1                                                                                               SUN SEP 08/96   19:03:19   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                   D4.3 MASTER     SA  G          W009:UMLOAD.S                                                   
            4.3T1     1  UMLOAD.D4.3_MASTER.SA.001          1 LINE     72   86 PAGE UM   SHERRY              APR. 05, 1980  13:34:03
0          THE MTS RELOCATABLE LOADER.
            
           **********************************************************************************
           D4.3 VERSION:
            
           NEW MASTER GENERATED FOR THIS VERSION WITH SEVERAL OF THE UBC AND UQV UPDATES
           APPLIED.  CHECK THE 001/2 UPDATE FOR DETAILS.
           **********************************************************************************
0          Referenced by comments of: 1/2, 1021/7, 1021/10 
00001/002A  UMLOAD                   UPDATE          UC  G          W009:UMLOAD.U                                                   
            4.3T1     2  UMLOAD.UPDATE.UC.002               1 LINE     71    5 PAGE UM   SHERRY              APR. 05, 1980  13:34:15
                         W009:UMLOAD.U        
0          UPDATE DECK TO PRODUCE CURRENT UMLOAD SOURCE (001/1) FROM D4.2 UMLOAD.
00001/003A  UMLOAD                   OBJECT          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   SHERRY                                     
00001/004   UMLOAD                   LOADINFO DSECT  SA  G          *LOADINFODSECT                                                  
            D4T1      3  UMLOAD.LOADINFO_DSECT.SA.004       1 LINE     67    1 PAGE UM   SHERRY              JULY 27, 1977  21:23:19
                         *LOADINFODSECT       
0          COPY SECTION FOR INFORMATION RETURNED BY LOADINFO SUBR (PART OF 354/1).
0          Referenced by comments of: 506/3, 545/3, 721/1, 1023/1 
00001/005A  UMLOAD                   INFO CLS        SA  O  INF     W009:CLSINFO.S                                                  
            4.3T1     3  UMLOAD.INFO_CLS.SA.005             1 LINE     80   53 PAGE UM   SHERRY              APR. 05, 1980  13:34:17
                         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/14).
           COPIES *CNFGINFODSECT (654). REQUIRES THE MSG ROUTINES (1023/1).
            
           ****************************************************************************
           D4.3 VERSION:
            
           REQUIRES THE MSG ROUTINES (1023/1).
           ****************************************************************************
00001/006A  UMLOAD                   INFO CLS        OE  O          W009:CLSINFO.O                                                  
            4.3T1     4  UMLOAD.INFO_CLS.OE.006             1 LINE   8744    7 PAGE UM   SHERRY              APR. 05, 1980  13:34:35
                         W009:I               
1                                                                                               SUN SEP 08/96   19:03:19   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/007   UMLOAD                   INFO CLS        M              W009:CLSINFO.X                                                  
            D4T1      6  UMLOAD.INFO_CLS.M.007              1 LINE     74    2 PAGE UM   SHERRY              JULY 27, 1977  21:23:26
                         W009:CLSINFO.X       
0          MESSAGE FILE USED BY THE INFO CLS.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00001/008   UMLOAD                   INFO CLS        WF             W009:CLSINFO.W                                                  
            D4T1      7  UMLOAD.INFO_CLS.WF.008             1 LINE     91    4 PAGE UM   SHERRY              JULY 27, 1977  21:23:29
                         W009:CLSINFO.W       
0          WRITEUP DESCRIBING THE INFO CLS PROGRAM.
00001/009A  UMLOAD                   CLSDRV          SA  O          W009:CLSDRV.S                                                   
            4.3T1     5  UMLOAD.CLSDRV.SA.009               1 LINE    109    1 PAGE UM   SHERRY              APR. 05, 1980  13:34:38
                         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/13).
00001/010A  UMLOAD                   CLSDRV          OC  O          W009:CLSDRV.O                                                   
            4.3T1     6  UMLOAD.CLSDRV.OC.010               1 LINE    604    1 PAGE UM   SHERRY              APR. 05, 1980  13:34:40
                         W009:CLSDRV.O        
00003/001   JOBLIST                                  SA  G          S1319 D4.2T1 VLO FSNAME=JOBLIST..SA.001(1)                     2
            D4.2T1    2  JOBLIST..SA.001                    1 LINE     71    4 PAGE UM   WSG                 MAR. 26, 1979  02:14:20
0          MANY ASSEMBLIES WHICH TOGETHER FORM THE LIST OF AVAILABLE JOBS IN UMMPS.
           ASSEMBLE WITH PAR=B.
00003/002   JOBLIST                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00004/001A  TABLES                                   SA  G  TABL    WSG:TABLES                                                      
            4.3T1     7  TABLES..SA.001                     1 LINE     80   27 PAGE UM   WSG                 MAY  21, 1980  22:59:01
                         WSG.:TABLES          
0          TABLES THAT DEFINE THE HARDWARE CONFIGURATION FOR THE UM AMDAHL 470, THE NUMBER OF LOW-CORE
           TERMINAL I/O BUFFERS, THE LIST OF PUBLIC DISK VOLUME NAMES AND CORRESPONDING DISK DRIVES, ETC.
           THIS DECK IS DISTRIBUTED AS AN EXAMPLE OF AN I/O CONFIGURATION; OBVIOUSLY, EACH INSTALLATION
           WILL SUPPLY TABLES FOR ITS LOCAL CONFIGURATION OR USE DECKGEN (004/5).  THIS DECK CONTAINS
           SEVERAL MACRO DEFINITIONS USEFUL FOR DEFINING THE TABLES.  COPIES COPY:LLMPSEQU (087),
           COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND *CNFGINFODSECT(2) (654).
           ASSEMBLE USING COPY:FILE.MACROS (482/33) AND COPY:SETPARM (653).
           NOTE:  IT IS NORMAL TO GET AN *ASMG WARNING MESSAGE ABOUT RELOCATABLE Y-CONS. IF
                  ASSEMBLING WITH *ASMH, USE PAR=REL2 TO SUPPRESS THESE WARNINGS.
0          Referenced by comments of: 482/38 
00004/002A  TABLES                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00004/003A  TABLES                   WRITEUP         WF             W163:TABLES.F                                                   
            4.3T1     8  TABLES.WRITEUP.WF.003              1 LINE    147   13 PAGE UM   WSG                 APR. 05, 1980  13:34:46
                         WSG.:TABLES.WF       
0          ***************
           FILE DOESN'T EXIST
           ***************
00004/004A  TABLES                   DECKGEN         SA  G  DCKP    MTS:DCKPCHR.S                                                   
            4.3T1     9  TABLES.DECKGEN.SA.004              1 LINE     80   76 PAGE UBC            HELFFRICH APR. 05, 1980  13:34:48
                         MTS.:DCKPCHR.S       
0          STAND-ALONE PROGRAM TO GENERATE AN ASSEMBLER OBJECT DECK FOR THE SYSTEM TABLES
           CSECT BASED ON INPUT ENTERED FROM THE OPERATOR'S CONSOLE.  IT WILL ALSO WRITE
           THE GENERATED OBJECT DECK ONTO A TAPE, FOR SUBSEQUENT USE WITH THE IPLREADER
           PROGRAM (1021), WHICH CAN REPLACE THE TABLES CSECT IN A SYSTEM WITH THE ONE
           FROM THE TAPE.  USES THE IPLREADER ROUTINES FOR CONSOLE I/O, WHICH MEANS THAT
           A 3270 MAY BE USED.  COPIES *CNFGINFODSECT (654).  ASSEMBLE WITH *ASMH USING
           COPY:FILE.MACROS (482/33), COPY:MISC.MACROS (728), AND *SYSMAC.
            
           ******************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           UPDATED TO COPE WITH NEW LCH TABLE FORMAT.
           _______________________________________________________________________________
            
           D4.3 CHANGES:
            
           REASSEMBLED FOR D4.3 DSKTAB FORMAT.
           ******************************************************************************
00004/005A  TABLES                   DECKGEN         OC  G          MTS:DCKPCHR.O                                                   
            4.3T1    10  TABLES.DECKGEN.OC.005              1 LINE     80    8 PAGE UBC            HELFFRICH APR. 05, 1980  13:34:57
                         MTS.:DCKPCHR.O       
0          THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE.
0          Referenced by comments of: 4/1 
00004/006A  TABLES                   *IPL.DECKGEN    D              MTS:IPL.DECKGEN                                                 
            4.3T1    11  TABLES.*IPL.DECKGEN.D.006          1 SEQ    4100   30 PAGE UBC            HELFFRICH APR. 05, 1980  13:34:59
                         *IPL.DECKGEN         
0          OBJECT FOR DECKGEN SUITABLE FOR LOADING BY THE IPL READER.
00004/007A  TABLES                   DECKGEN DESCR   WF             MTS:DCKPCHR.W                                                   
            4.3T1    12  TABLES.DECKGEN_DESCR.WF.007        1 LINE    126    7 PAGE UBC            HELFFRICH APR. 05, 1980  13:35:02
                         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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00005/001   JBRP                     D4 SOURCE       SA  G          S0563 D4T1 VLO FSNAME=JBRP..SA.001(1)                         16
            D4T1     16  JBRP..SA.001                       1 LINE     80    7 PAGE UM   MTA                 JULY 27, 1977  21:23:55
0          JOB REQUEST PROCESSOR (TASK INITIALIZATION).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 5/2 
00005/002C  JBRP                     UPDATE          UC  G          MTA:JBRP.U                                                    16
            4.3T1    13  JBRP.UPDATE.UC.002                 1 LINE     76    1 PAGE UM   MTA                 APR. 05, 1980  13:35:05
0          UPDATE TO PRODUCE CURRENT SOURCE FROM D4.0 SOURCE (005/1).
00005/003A  JBRP                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00006/001   FNDJTL                                   SA  G          S0563 D4T1 VLO FSNAME=FNDJTL..SA.001(1)                       17
            D4T1     17  FNDJTL..SA.001                     1 LINE     80    2 PAGE UM   MTA                 JULY 27, 1977  21:23:58
0          FIND JOB TABLE.
00006/002   FNDJTL                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00007/001   FBJTJL                   D4 SOURCE       SA  G          S0563 D4T1 VLO FSNAME=FBJTJL..SA.001(1)                       18
            D4T1     18  FBJTJL..SA.001                     1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  21:23:59
0          FREE BUFFERS AND JOB TABLE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
00007/002C  FBJTJL                   UPDATE          UC  G          MTA:FBJTJL.U                                                  18
            4.3T1    14  FBJTJL.UPDATE.UC.002               1 LINE     68    1 PAGE UM   MTA                 APR. 05, 1980  13:35:07
0          UPDATE TO PRODUCE THE CURRENT SOURCE USING THE D4.0 SOURCE AS BASE.
00007/003A  FBJTJL                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00008/001   FIDCQ                                    SA  G          S0563 D4T1 VLO FSNAME=FIDCQ..SA.001(1)                        19
            D4T1     19  FIDCQ..SA.001                      1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  21:24:01
0          FREE I/O DEVICES AND CPU QUEUE.  UNCHANGED SINCE 1968!
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
00008/002   FIDCQ                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00009/001   BUFALLOC                                 SA  G          S0563 D4T1 VLO FSNAME=BUFALLOC..SA.001(1)                     20
            D4T1     20  BUFALLOC..SA.001                   1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  21:24:03
0          SUBROUTINE TO ALLOCATE AND RELEASE 128-BYTE, LOW-CORE, TERMINAL, I/O BUFFERS.
1                                                                                               SUN SEP 08/96   19:03:19   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          THIS ROUTINE IS CALLED BY SEVERAL TERMINAL DEVICE SUPPORT ROUTINES (TSFO, PDP8RTN, MNETRTN, ETC).
           IT ALLOCATES BUFFERS FROM A POOL OF BUFFERS WHICH ARE PART OF TABLES AND WHICH BUFALLOC REFERENCES
           WITH THE TABLES EXTERNAL SYMBOL 'TERMBFRS'.
           THE PURPOSE OF THESE BUFFERS IS TO HAVE THE TERMINAL ROUTINES DOING I/O INTO REAL-CORE BUFFERS,
           THUS AVOIDING THE OVERHEAD OF HAVING MANY VM PAGES LOCKED IN CORE DURING TERMINAL I/O.
            
           THE BUFSTAT PROGRAM (618) PRINTS WHICH JOB IS USING WHICH BUFFER(S).
00009/002   BUFALLOC                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00010/001A  EXIT                                     SA  G          MTA:EXIT(1,999)                                                 
            4.3T1    15  EXIT..SA.001                       1 LINE     75    2 PAGE UM   MTA                 APR. 05, 1980  13:35:10
                         MTA.:EXIT            
0          KILLS CALLING TASK.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).
00010/002A  EXIT                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00011/001   CARDUC                                   SA  G          S0720 'D3T1' FSNAME=CARDUC..SA.1(1)                         12  
            D4T1     22  CARDUC..SA.001                     1 LINE     80    9 PAGE UM   MTA                 JULY 30, 1973  03:30.59
0          2501 AND 2540 READER UNIT CHECK ROUTINES.
00011/002   CARDUC                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00012/001   TAPEUC                                   SA     TPUC    WSG:TAPEUC(1,999)                                               
            D4T1     23  TAPEUC..SA.001                     1 LINE     80   18 PAGE SFU  BENET     WSG       JULY 27, 1977  21:25:13
                         WSG.:TAPEUC          
0          MAGNETIC TAPE UNIT CHECK ROUTINES.  COPIES COPY:CMDAREADSECT (531/18).
00012/002   TAPEUC                                   OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    SFU  BENET     WSG                              
00013/001   PTRUC                                    SA  G          S0563 D4T1 VLO FSNAME=PTRUC..SA.001(1)                        24
            D4T1     24  PTRUC..SA.001                      1 LINE     80   10 PAGE UM   MTA                 JULY 27, 1977  21:25:15
0          1403 AND 1443 PRINTER UNIT CHECK ROUTINES.
00013/002   PTRUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00014/001   PUNUC                                    SA  G  PCUC    DWB:PUNUC(1,999)                                              15
            D4.1T1    8  PUNUC..SA.001                      1 LINE     80    6 PAGE UM   DWB                 MAY  13, 1978  16:52:09
                         DWB.:PUNUC           
0          2540 AND 1442 PUNCH UNIT CHECK ROUTINES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00014/002   PUNUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00016/001A  CCTB                                     SA  G          S0683 OGDEN FSNAME=CCTB.S                                       
            4.3T1    16  CCTB..SA.001                       1 LINE     80    3 PAGE UM   MTA                 SEP. 25, 1979  03:33:30
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/002A  CCTB                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00017       PN XLATE TABLE                           SA           # (OBSOLETE)                                                      
            D3T1     17  PN_XLATE_TABLE..SA.1               1 SEQ      80    1 PAGE UM                       JULY 30, 1973  23:01.33
00018/001   STOP/BLAST/GOOSE JOBS                    SA  G          S0720 'D3T1' FSNAME=STOP/BLAST/GOOSE_JOBS..SA.1(1)            18
            D4T1     27  STOP/BLAST/GOOSE_JOBS..SA.001      1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:01.54
0          THE STOP, BLAST, AND GOOSE UMMPS JOB PROGRAMS.  UNCHANGED SINCE DIST 1.0.
00018/002   STOP/BLAST/GOOSE JOBS                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00019/001   TASKS JOB                                SA  G          S1143 D4.1T1 VLO FSNAME=TASKS_JOB..SA.001(1)                   9
            D4.1T1    9  TASKS_JOB..SA.001                  1 LINE     80   11 PAGE UM   WSG                 MAY  13, 1978  16:52:12
0          THE JOB PROGRAM VERSION OF *TASKS (145); CONTAINS THE TSKFMT SUBROUTINE CALLED BY
           *TASKS (145) AND SSRTN (413/1).  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:SETPARM (653).  SOURCE IN LINES (1,999).
0          Referenced by comments of: 145/1, 413/1, 647/1 
00019/002A  TASKS JOB                                OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00020/001   JOBDUMP                                  SA  G          S0720 'D3T1' FSNAME=JOBDUMP_JOB..SA.1(1)                      20
            D4T1     29  JOBDUMP..SA.001                    1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:03.31
0          UMMPS "JOBDUMP" JOB.  USES SVC XJOBDUMP TO DUMP THE SPECIFIED JOB.
           UNCHANGED SINCE DIST 1.0.
00020/002   JOBDUMP                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00021/001A  BROADCST                                 SA  G  BDCS    MTS:BROADCST(1000)                                              
            4.3T1    17  BROADCST..SA.001                   1 LINE     80   14 PAGE UM   OGDEN               APR. 05, 1980  13:40:04
                         MTS.:BROADCST        
0          JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR
           TO ALL USERS.  HAS A SETA SYMBOL (%DC) WHICH CONTROLS CONDITIONAL ASSEMBLY
           OF CODE WHICH SENDS BROADCAST MESSAGES TO THE UM DATA CONCENTRATORS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).  ASSEMBLE USING 
           COPY:MISC.MACROS (728).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00021/002A  BROADCST                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00021/003   BROADCST                 PGM             OC  G          MTS:BROADCST(1,499)                                             
            D4.2T1   11  BROADCST.PGM.OC.003                1 LINE     25    1 PAGE UM   OGDEN               MAR. 26, 1979  02:14:46
0          A PROGRAM THAT CAN BE $RUN TO DO WHAT THE BROADCST JOB PROGRAM DOES.
00023/001   TPMOVE JOBS                              SA  O          S0563 D4T1 VLO FSNAME=TPMOVE_JOBS..SA.001(1)                  31
            D4T1     31  TPMOVE_JOBS..SA.001                1 LINE     80    6 PAGE UM   WSG                 DEC. 01, 1976  12:56:04
0          JOBS TO MOVE A TAPE (REW, WTM, BSF, BSR, FSF, FSR, ERG)
           THE WTM JOB DOESN'T USE A MODESET, SO THE DENSITY WILL BE UNPREDICTABLE ON
           DUAL-DENSITY TAPE DRIVES.
00023/002   TPMOVE JOBS                              OC  O        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00024/001A  ONLINE/OFFLINE                           SA  G          MTS:ON/OFFLINE(1,999)                                           
            4.3T1    18  ONLINE/OFFLINE..SA.001             1 LINE     80    8 PAGE UM   MTA                 APR. 05, 1980  13:40:12
                         MTS.:ON/OFFLINE      
0          JOB TO ONLINE OR OFFLINE A DEVICE, CONTROL UNIT, CHANNEL, OR CHANNEL-CONTROL UNIT PATH.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
            
           (1) TO ONLINE/OFFLINE ONE OR MORE DEVICES:
                ONLINE|OFFLINE DEVNAME1 DEVNAME2 ...
            
           (2) TO ONLINE/OFFLINE A CONTROL UNIT:
                ONLINE|OFFLINE CU|ALL DEVNAME1|CU#1 DEVNAME2|CU#2 ...
               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/002A  ONLINE/OFFLINE                           OC  O        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00025/001   QN/PN/TN JOBS                            SA  G          S0720 'D3T1' FSNAME=QN/PN/TN_JOBS..SA.1(1)                    24
            D4T1     33  QN/PN/TN_JOBS..SA.001              1 SEQ      80    5 PAGE UM   MTA                 JULY 30, 1973  23:03.42
0          THREE ASSEMBLIES THAT LOAD THE 1403 UCS BUFFER FOR QN, PN, OR TN CHARACTER SETS.
           THE QN JOB CONTAINS A SUBROUTINE USED BY ALL THE REST OF THEM.
           FOR EXAMPLE, ENTERING "PN PTR1 ECHO" ON THE OPERATOR'S CONSOLE WILL LOAD THE UCS BUFFER FOR PTR1 WITH THE PN
           CHARACTER SET AND ECHO THE CHARACTERS TO THE PRINTER FOR VERIFICATION.
           UNCHANGED SINCE DIST 2.0.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00025/002   QN/PN/TN JOBS                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00026       CPCC JOB                                 SA           # (OBSOLETE)                                                      
            D3T1     25  CPCC_JOB..SA.1                     1 SEQ      80    7 PAGE UM                       JULY 30, 1973  23:04.05
00031       GTZ                                                   # (OBSOLETE)                                                      
            D2.1    036                                                             UM                                              
00038/001A  TSFO                                     SA  G  TSF     W032:TSFOSOU4.3                                                 
            4.3T1    19  TSFO..SA.001                       1 LINE     80  244 PAGE UM   EMERY               APR. 05, 1980  13:40:14
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).
            
           **********************************************************************************
           D4.3 VERSION:
            
           SEE 038/13 FOR A DESCRIPTION OF THE CHANGES MADE TO TSFO FOR D4.3.
           **********************************************************************************
00038/002A  TSFO                     *2741RTN        OC  G          *2741RTN                                                        
            4.3T1    20  TSFO.*2741RTN.OC.002               1 LINE     80   17 PAGE UM   EMERY               APR. 05, 1980  13:40:31
                         *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                                                         
            D4T1     36  TSFO.*TTYRTN.OC.003                1 LINE     30    1 PAGE UM   EMERY               JULY 27, 1977  21:28:22
                         *TTYRTN              
0          THIS FILE CONSISTS OF:       $CONTINUE WITH *2741RTN RETURN
                                         LDT            TEL2
            
           IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL TEL2 IS UNDEFINED IN LCSYMBOL.
           NORMALLY TEL2 IS DEFINED BY PISTLE AT IPL.
00038/004   TSFO                     *MRXARTN        OC  G          *MRXARTN                                                        
            D4T1     37  TSFO.*MRXARTN.OC.004               1 LINE     30    1 PAGE UM   EMERY               JULY 27, 1977  21:28:24
                         *MRXARTN             
0          THIS FILE CONSISTS OF:       $CONTINUE WITH *2741RTN RETURN
                                         LDT            MRXA
            
           IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL MRXA IS UNDEFINED IN LCSYMBOL.
           NORMALLY MRXA IS DEFINED BY PISTLE AT IPL.
1                                                                                               SUN SEP 08/96   19:03:19   Page    9
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00038/005   TSFO                     TRTBLGEN        SA     TGEN    W032:TRTBLGEN(1,500)                                            
            D4T1     38  TSFO.TRTBLGEN.SA.005               1 LINE     80   11 PAGE UM   EMERY               JULY 27, 1977  21:28:26
0          PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE ALL NON-ASCII
           TABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY
           ARBITRARY TRANSLATE TABLES.  LOGICAL I/O UNITS USED ARE:
             1         DEFINITION OF NAMES OF CHARACTERS (038/9).
             2         DEFINITION OF CHARACTER SET ON THE GOLFBALL.  038/10 AND 038/11 ARE EXAMPLES.
             3         DEFINITION OF THE CODE SET BEING USED (EITHER 038/7 OR 038/8).
             SPRINT    PRINTED OUTPUT  AND ERROR COMMENTS.
             SPUNCH    NEW TRANSLATE TABLES.
            
           THE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK.
            
00038/006   TSFO                     TRTBLGEN        OC             W032:TRTBLGEN(2000)                                             
            D4T1     39  TSFO.TRTBLGEN.OC.006               1 LINE     80    3 PAGE UM   EMERY               JULY 27, 1977  21:28:28
00038/007   TSFO                     KBD2741PTTC     D              W032:KBD2741PTTC                                                
            D4T1     40  TSFO.KBD2741PTTC.D.007             1 LINE     41    1 PAGE UM   EMERY               JULY 27, 1977  21:28:30
0          SEE 038/5.  THIS IS THE 2741 PTTC KEYBOARD DEFINITION.
00038/008   TSFO                     KBD2741CORR     D              W032:KBD2741CORR                                                
            D4T1     41  TSFO.KBD2741CORR.D.008             1 LINE     41    1 PAGE UM   EMERY               JULY 27, 1977  21:28:33
0          SEE 038/5.  THIS IS THE 2741 CORRESPONDENCE KEYBOARD DEFINITION.
00038/009   TSFO                     EBCDDEFN        D              W032:EBCDDEFN                                                   
            D4T1     42  TSFO.EBCDDEFN.D.009                1 LINE     32    3 PAGE UM   EMERY               JULY 27, 1977  21:28:35
0          SEE 038/5. THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT.
0          Referenced by comments of: 38/5, 575/3 
00038/010   TSFO                     GOLFPTTC        D              W032:GOLFPTTC                                                   
            D4T1     43  TSFO.GOLFPTTC.D.010                1 LINE     72    3 PAGE UM   EMERY               JULY 27, 1977  21:28:37
0          SEE 038/5.  THIS FILE CONTAINS DEFINITIONS OF PTTC GOLF BALLS.
           THE DEFINITONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER.
           CONTAINS "$CONTINUE WITH W032:GOLFPTTC" LINES.
0          Referenced by comments of: 575/3 
00038/011   TSFO                     GOLFCORR        D              W032:GOLFCORR                                                   
            D4T1     44  TSFO.GOLFCORR.D.011                1 LINE     72    8 PAGE UM   EMERY               JULY 27, 1977  21:28:39
0          SEE 038/5.  THIS FILE CONTAINS DEFINITIONS OF CORRESPONDENCE GOLF BALLS.
           THE DEFINITIONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER.
           CONTAINS "$CONTINUE WITH W032:GOLFCORR" LINES.
0          Referenced by comments of: 575/3 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00038/012   TSFO                     MEMO 366        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M366                              
            D4T1    767  TSFO.MEMO_366.WF.014               1 LINE    110    3 PAGE UM   EMERY               SEP. 19, 1977  16:54:45
0          THIS IS COMPUTING CENTER MEMO 366 -- "ADDITIONS TO MEMOREX 1270 DEVICE SUPPORT
           ROUTINE"
00038/013C  TSFO                                     P              W032:TSFOCHANGES                                                
            4.3T1    21  TSFO..P.013                        1 LINE     69    3 PAGE UM   EMERY               APR. 05, 1980  13:40:33
0          A DESCRIPTION OF THE CHANGES TO TSFO FOR D4.3.
00039/001A  CASECONV                                 SA     CASE    MTS:CASECONV                                                  37
            4.3T1    22  CASECONV..SA.001                   1 LINE     80    1 PAGE UM   EMERY               APR. 05, 1980  13:40:36
0          TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE.
           ALL OTHER CHARACTERS ARE UNCHANGED.
00039/002A  CASECONV                                 OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   EMERY                                      
00040/001   KEYWRD SCANNER                           SA  G          W170:KWIC(MIN,-1)                                               
            D4.2T1   12  KEYWRD_SUBR_-_KWIC..SA.001         1 LINE     80   72 PAGE UM   HELFFRICH           MAR. 26, 1979  02:14:48
                         W170:KWIC            
0          D4.2 BASE SOURCE FOR KEYWORD SCANNER.
0          Referenced by comments of: 40/4, 559/2 
00040/002A  KEYWRD SCANNER           UPDATE          UC  G          W170:KWIC(10000)                                                
            4.3T1    23  KEYWRD_SCANNER.UPDATE.UC.002       1 LINE     69    1 PAGE UM   HELFFRICH           APR. 05, 1980  13:40:37
0          UPDATE DECK TO YIELD CURRENT KEYWORD SCANNER SOURCE CODE.
00040/003A  KEYWRD SCANNER           OBJECT          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00040/004A  KEYWRD SCANNER           SPELLING CORR   SA  G          W170:KWIC.SPELL(1000)                                           
            4.3T1    24  KEYWRD_SCANNER.SPELLING_C.SA.004   1 LINE     70    3 PAGE UM   HELFFRICH           APR. 05, 1980  13:40:42
                         W170:KWIC.SPELL      
0          SPELLING CORRECTION SUBROUTINE USED BY MTS AND THE KEYWORD SCANNER (40/1).
           ALSO USER-CALLABLE.
00040/005A  KEYWRD SCANNER           SPELLING CORR   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00041       GETSPACE/FREESPAC                        SA           # (OBSOLETED BY 732)                                              
            D4T1     51  GETSPACE/FREESPAC.D4_MAST.SA.001   1 SEQ      80   28 PAGE UM                       JULY 27, 1977  21:31:43
00042/001   MTS                      D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=MTS                         
            D4T1     55  MTS.D4_MASTER.SA.001               1 SEQ      80  137 PAGE UM   MTS       HELFFRICH SEP. 15, 1977  18:11:07
0          MASTER SOURCE FOR DIST 4.0 MTS.  COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALDEFS
           (1026/1), COPY:GLOBALSETS (1026/2), COPY:RATEVEC (651/2), AND COPY:JOBSTA (413/9).
1                                                                                               SUN SEP 08/96   19:03:19   Page   11
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND *SYSMAC.
0          Referenced by comments of: 344/1 
00042/002A  MTS                      UPDATE          UC  G          MTS:MTSUPD                                                      
            4.3T1    25  MTS.UPDATE.UC.002                  1 LINE     76   38 PAGE UM   MTS       HELFFRICH APR. 05, 1980  13:40:45
                         MTS.:MTSUPD          
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=MTS.
00042/003A  MTS                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00042/004A  MTS                      ASM JOB         C              MTS:MTSASM                                                      
            4.3T1    26  MTS.ASM_JOB.C.004                  1 LINE    121    5 PAGE UM   MTS       HELFFRICH APR. 05, 1980  13:40:57
                         MTS.:MTSASM          
0          USING THE D4.2 SOURCE AS BASE:
            
           AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES
           AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES OF MTS
            
           USING THE D4.0 SOURCE AS BASE:
            
           AT LINE 2000, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES
           AT LINE 3000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES OF MTS
            
           IF THE D4.0 SOURCE IS USED AS A BASE, THE VARIOUS ...UPD FILES MUST
           HAVE CERTAIN $CONTINUE WITH LINES REMOVED FROM THEM.
00042/005A  MTS                                      L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=MTS.LIST              1   
            4.3T1    27  MTS..L.005                         1 SEQ     133  610 PAGE UM   MTS       HELFFRICH APR. 05, 1980  13:43:39
00042/006   MTS                      FILETYPE WORDS  WF             S0938 FSAVE2 VLO FSNAME=ADDNEWFILE(1)                           
            D4T1     60  MTS.FILETYPE_WORDS.WF.008          1 LINE    134    3 PAGE UM   MTA                 MAY  28, 1975  22:49:52
0          WRITEUP DESCRIBING HOW TO ADD A NEW TYPE OF FILE TO MTS.
00042/007   MTS                      TSATBL WORDS    WF             S0563 D4T1 VLO FSNAME=MTS.TSATBL_WORDS.WF.009(1)              61
            D4T1     61  MTS.TSATBL_WORDS.WF.009            1 LINE    113    1 PAGE UM   MTA                 SEP. 15, 1977  18:14:15
0          WRITEUP DESCRIBING HOW TO USE THE TSATBL MACRO (IN COPY:MTS.MACROS).
00043       LCSYMBOL                                 SA           # (PART OF COMP 4000)                                             
                                                                                    UM                                              
0          Referenced by comments of: 4000/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00044/001A  PDP                                      SA  G          MTA:PDP.S                                                       
            4.3T1    28  PDP..SA.001                        1 LINE     72   35 PAGE UM   MTA                 APR. 05, 1980  13:43:47
                         MTA.:PDP.S           
0          THE PAGING DRUM PROCESSOR.  ASSEMBLY PARAMETERS ALLOW VERSION TO
           BE ASSEMBLED FOR EITHER 2305 FIXED HEAD FILE AND 3330 MIGRATION
           DISK, OR 2301 DRUM AND 3330 MIGRATION DISK.  DISTRIBUTED OBJECT
           IS FOR 2305/3330 COMBINATION NORMALLY USED ON 370/470 SYSTEMS.
           COPIES COPY:PCBDSECT (470), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3).
0          Referenced by comments of: 540/3 
00044/002A  PDP                      2305/3330 OBJ   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
0          VERSION ASSEMBLED FOR USE WITH AN IBM 2305 MOD 1 OR MOD 2 FHF AND IBM 3330 
           (OR EQUIVALENT) PAGING DISK.
00045/001   SUPERVISOR               D4 MASTER       SA  G          S0563 D4T1 VLO FSNAME=SUPERVISOR.D4_MASTER.SA.004(1)          66
            D4T1     66  SUPERVISOR.D4_MASTER.SA.004        1 SEQ      80  318 PAGE UM   MTA                 AUG. 20, 1977  22:31:37
0          MASTER SOURCE FOR D4.0 SUPERVISOR.  COPIES COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT
           (470), COPY:CPSCNPAR (609/2), AND COPY:CMDAREADSECT (531/18).  ASSEMBLE
           WITH COPY:SETPARM (653/1) AND COPY:UMMPS.MACROS (1081/5).
0          Referenced by comments of: 45/2, 540/3, 611/1, 1081/1 
00045/002A  SUPERVISOR               UPDATE          UC  G          MTA:UMMPS.U                                                     
            4.3T1    29  SUPERVISOR.UPDATE.UC.002           1 LINE     94   70 PAGE UM   MTA                 APR. 28, 1980  19:29:26
                         MTA:UMMPS.U          
0          UPDATE TO D4.0 UMMPS (045/1) TO PRODUCE CURRENT UMMPS.
00045/003A  SUPERVISOR                               OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00045/004A  SUPERVISOR                               L              S0707 UMMPSL POSN=UMMPS.LISTING.370                             
            4.3T1    30  SUPERVISOR..L.004                  1 SEQ     133  732 PAGE UM   MTA                 APR. 28, 1980  19:31:38
00045/005A  SUPERVISOR               SVC WRITEUP     WT             S0683 OGDEN FSNAME=SVCDESCR                                     
            4.3T1    31  SUPERVISOR.SVC_WRITEUP.WT.005      1 LINE    122   38 PAGE UM   OGDEN               APR. 24, 1980  23:38:24
0          TEXT/360 INPUT FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS.
00045/006A  SUPERVISOR               SVC WRITEUP     PT             MTS:SVC.W                                                       
            4.3T1    32  SUPERVISOR.SVC_WRITEUP.PT.006      1 LINE    105   88 PAGE UM   OGDEN               APR. 28, 1980  19:35:38
                         MTS.:SVC.W           
0          COPY THIS TO A TN PRINTER @CC (NOT @MCC).
1                                                                                               SUN SEP 08/96   19:03:19   Page   13
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00045/007   SUPERVISOR               TEST SVC STIO   SA  G          MTA:TESTSTIO(1,999)                                             
            D4T1     71  SUPERVISOR.TEST_SVC_STIO.SA.011    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  21:46:19
                         MTA.:TESTSTIO        
0          TEST PROGRAM FOR SVC STIO TO BE USED IN THE VIRTUAL MACHINE.
00045/008   SUPERVISOR               TEST SVC STIO   OC  G          MTA:TESTSTIO(1000)                                              
            D4T1     72  SUPERVISOR.TEST_SVC_STIO.OC.012    1 LINE     80    2 PAGE UM   MTA                 JULY 27, 1977  21:46:19
00045/009   SUPERVISOR               TEST PROT SVC   SA  O          MTA:TESTPROTSVC(1,999)                                          
            D4T1     73  SUPERVISOR.TEST_PROT_SVC.SA.013    1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  21:46:22
                         MTA.:TESTPROTSVC     
0          PROGRAM TO TEST THE SVCS RELATED TO PROTECTION.  INTENDED TO BE USED WHILE
           RUNNING MTS IN THE VIRTUAL MACHINE.  HALTS IF AN ERROR OCCURS.
00045/010   SUPERVISOR               TEST PROT SVC   OC  O          MTA:TESTPROTSVC(1000)                                           
            D4T1     74  SUPERVISOR.TEST_PROT_SVC.OC.014    1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:46:25
00045/011   SUPERVISOR               TEST SETSTK     SA  G          MTA:TESTSETSTK(1,999)                                           
            D4.1T1   21  SUPERVISOR.TEST_SETSTK.SA.013      1 LINE     59    1 PAGE UM   MTA                 MAY  13, 1978  17:01:22
                         MTA:TESTSETSTK       
0          PROGRAM TO TEST THE CHANGES TO THE SETSTK SVC.
00045/012   SUPERVISOR               TEST SETSTK     OC  G          MTA:TESTSETSTK(1000)                                            
            D4.1T1   22  SUPERVISOR.TEST_SETSTK.OC.014      1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  17:01:23
00045/013   SUPERVISOR               DOCUMENTATION   WF             S1319 D4.2T1 VLO FSNAME=SUPERVISOR.DOCUMENTATION.WF.013(1)    14
            D4.2T1   14  SUPERVISOR.DOCUMENTATION.WF.013    1 LINE     94    6 PAGE UM   MTA                 MAR. 26, 1979  02:15:12
0          SUMMARY OF SECTIONS OF UMMPS AND WHAT THEY DO.  PREPARED FOR A LECTURE TO A
           GRADUATE PROGRAMMING CLASS.
00045/014C  SUPERVISOR               MACROS          SM  G          COPY:UMMPS.MACROS                                               
            4.3T1    33  SUPERVISOR.MACROS.SM.014           1 LINE     73    5 PAGE UM   MTA                 APR. 05, 1980  13:47:02
                         COPY:UMMPS.MACROS    
00045/015C  SUPERVISOR               BJP DESCRIP     WX             S0938 FSAVE2 VLO FSNAME=BJPDESCR                            521 
            4.3T1    34  SUPERVISOR.BJP_DESCRIP.WX.015      1 LINE     82    3 PAGE UM   MTA                 NOV. 02, 1979  22:29:25
0          DESCRIPTION OF HOW UMMPS USES THE PARAMETERS SET BY BJPMOD (650).
00046/001   CONFIG                   D4 MASTER       SA  G          S0699 D3TAPE POSN=CONFIG.370                                    
            D4T1     78  CONFIG.D4_MASTER.SA.004            1 SEQ      80   36 PAGE UM   MTA                 SEP. 15, 1977  18:17:27
0          D4.0 MASTER SOURCE FOR CONFIGURATION PROGRAM.  COPIES COPY:GLOBALS (1026/3),
           COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CMDAREADSECT
           (531/18), AND *CNFGINFODSECT (654).  ASSEMBLE USING COPY:MISC.MACROS (728),
           COPY:SETPARM (653), AND MTA:MCHMAC (577/6).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00046/002A  CONFIG                   UPDATE          UC  G          MTA:CONFIG.U                                                    
            4.3T1    35  CONFIG.UPDATE.UC.002               1 LINE     76   14 PAGE UM   MTA                 APR. 05, 1980  13:51:08
                         MTA.:CONFIG.U        
0          UDATE TO 046/1 TO PRODUCE CURRENT CONFIG.
00046/003A  CONFIG                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00046/004A  CONFIG                                   L              S0707 UMMPSL POSN=CNFG.LISTING.370                              
            4.3T1    36  CONFIG..L.004                      1 SEQ     133  169 PAGE UM   MTA                 APR. 05, 1980  13:51:26
00047      *CATALOG                                  SA  G        # (OBSOLETED BY $FILESTATUS, COMP 529)                            
            D3T1     56  CATALOG..SA.1                      1 LINE     80    8 PAGE UM                       JULY 30, 1973  23:26.21
00049/001   SDUMP SUBR                               SA             MTS:SDUMP(1000)                                                 
            D4.2T1   17  SDUMP_SUBR..SA.001                 1 LINE     80   18 PAGE UM   MTS       HELFFRICH MAR. 26, 1979  02:16:17
                         MTS.:SDUMP           
0          MTS SUBROUTINE TO PRODUCE DUMPS.  ALSO USED BY $DISPLAY COMMAND.
           COPIES *CNFGINFODSECT (654).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 463/1 
00049/002   SDUMP SUBR                               OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00050/001   STATISTICS SAVE          *STA            C              *STA                                                            
            D4.2T1   18  STATISTICS_SAVE.*STA.C.001         1 LINE     45    1 PAGE UM   SALISBURY           MAR. 26, 1979  02:16:26
                         *STA                 
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO RUN THE STATISTICS SAVE PROGRAM.  INVOKED BY ENTERING "MTS *STA"
           ON THE OPERATOR'S CONSOLE.  THE SAVE PROGRAM DUMPS THE MTS JOB STATISTICS FILE (*STATISTICS) TO TAPE.  MTS
           WARNS THE OPERATOR WHEN *STATISTICS HAS REACHED 7500 RECORDS BY PRINTING "*** *STATISTICS IS FULL ***"
           ON THE CONSOLE.  WHEN THIS HAPPENS, THE OPERATOR SHOULD IMMEDIATELY ENTER "MTS *STA" TO BEGIN THE SAVE
           PROGRAM BEFORE THE FILE IS REALLY FULL (JOBS WILL BEGIN TO "SNARK" IF THIS HAPPENS).
0          Referenced by comments of: 256/2 
00050/002   STATISTICS SAVE          *STI            C              *STI                                                            
            D4.2T1   19  STATISTICS_SAVE.*STI.C.002         1 LINE     43    1 PAGE UM   SALISBURY           MAR. 26, 1979  02:16:27
                         *STI                 
0          COMMAND FILE WHICH IS RUN AUTOMATICALLY AT SYSTEM INITIALIZATION BY INIT:INITCMD 
           (97/2).  THIS CAUSES THE STATISTICS SAVE PROGRAM (50/3) TO CHECK FOR A SYSTEM 
           CRASH DURING THE LAST STATISTICS SAVE.  IF THERE WAS A CRASH, THE DIRECTORY 
           (50/6) IS REPAIRED AND *STATISTICS (50/5) IS RESAVED.
0          Referenced by comments of: 97/2 
00050/003   STATISTICS SAVE          SAVE PGM        SG  G          W044:NEWSTA.S                                                   
            D4.2T1   20  STATISTICS_SAVE.SAVE_PGM.SG.003    1 LINE    114    8 PAGE UM   SALISBURY           MAR. 26, 1979  02:16:28
0          PROGRAM TO SAVE *STATISTICS (50/5) ON TAPE.  THE USE OF THIS PROGRAM IS 
1                                                                                               SUN SEP 08/96   19:03:19   Page   15
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          DESCRIBED IN THE MTS OPERATORS MANUAL (592).  IN GENERAL, THIS PROGRAM
           SAVES *STATISTICS ON BOTH A MONTHLY AND A DAILY TAPE AND ENTERS THE
           SIGNON/SIGNOFF TIME RANGES INTO THE FILE SYS:DIRECTORY (50/6).
0          Referenced by comments of: 50/2, 50/6 
00050/004   STATISTICS SAVE          SAVE PGM        OC  G          SYS:NEWSTA                                                      
            D4.2T1   21  STATISTICS_SAVE.SAVE_PGM.OC.004    1 LINE     80   10 PAGE UM   SALISBURY           MAR. 26, 1979  02:16:31
                         SYS.:NEWSTA          
0          MUST BE LOADED WITH TAPE DIRECTORY LIBRARY SYS:DIRLIB (742/5), E. G.,
            
                            $RUN SYS:NEWSTA+SYS:DIRLIB
00050/005   STATISTICS SAVE          *STATISTICS     D            # MTS:TST.STAT                                                    
                                                                                    UM   SALISBURY                                  
                         *STATISTICS          
0          DATA FILE USED TO ACCUMULATE MTS SIGNOFF STATISTICS TO BE USED FOR BILLING
           AND JOB STATISTICS.  MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (PKEY=*SYS.STAT, PKEY=SYS.:STA, MTS.&PKEY=*SYS.STAT, ACC.&PKEY=ACC.:ACCMAINT),
           R (PKEY=INIT:INITCHK, ACC.)
0          Referenced by comments of: 50/2, 50/3, 97/2 
00050/006   STATISTICS SAVE          DIRECTORY       D            # MTS:TST.DIR                                                     
                                                                                    UM   SALISBURY                                  
                         SYS.:DIRECTORY       
0          DIRECTORY OF STATISTICS FILES (*STATISTICS) THAT HAVE BEEN SAVED ON DAILY
           AND MONTHLY STATISTICS TAPES BY SYS:NEWSTA (50/3).  THIS DIRECTORY MAY BE 
           INTERROGATED BY THE TAPE DIRECTORY PROGRAM (742/1).
0          Referenced by comments of: 50/2, 50/3, 617/1 
00051/001  *WATFOR                   ARITH           S            # (OBSOLETE)                                                      
            D2T2    011                                                             UM                                              
00051/002  *WATFOR                   DODO            S            # (OBSOLETE)                                                      
            D2T2    012                                                             UM                                              
00051/003  *WATFOR                   DUMMY           S            # (OBSOLETE)                                                      
            D2T2    013                                                             UM                                              
00051/004  *WATFOR                   DUMMYFUN        S            # (OBSOLETE)                                                      
            D2T2    014                                                             UM                                              
00051/005  *WATFOR                   FIOCS           S            # (OBSOLETE)                                                      
            D2T2    015                                                             UM                                              
00051/006  *WATFOR                   FIOSTAB         S            # (OBSOLETE)                                                      
            D2T2    016                                                             UM                                              
1                                                                                               SUN SEP 08/96   19:03:19   Page   16
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00051/007  *WATFOR                   FORMAT          S            # (OBSOLETE)                                                      
            D2T2    017                                                             UM                                              
00051/008  *WATFOR                   FORMCONV        S            # (OBSOLETE)                                                      
            D2T2    018                                                             UM                                              
00051/009  *WATFOR                   FRIOSCAN        S            # (OBSOLETE)                                                      
            D2T2    019                                                             UM                                              
00051/010  *WATFOR                   FUNCTION        S            # (OBSOLETE)                                                      
            D2T2    020                                                             UM                                              
00051/011  *WATFOR                   INOUT           S            # (OBSOLETE)                                                      
            D2T2    021                                                             UM                                              
00051/012  *WATFOR                   LINKR           S            # (OBSOLETE)                                                      
            D2T2    022                                                             UM                                              
00051/013  *WATFOR                   MAIN            S            # (OBSOLETE)                                                      
            D2T2    023                                                             UM                                              
00051/014  *WATFOR                   MESSAGE         S            # (OBSOLETE)                                                      
            D2T2    024                                                             UM                                              
00051/015  *WATFOR                   RELOC           S            # (OBSOLETE)                                                      
            D2T2    025                                                             UM                                              
00051/016  *WATFOR                   SCAN            S            # (OBSOLETE)                                                      
            D2T2    026                                                             UM                                              
00051/017  *WATFOR                   SPECS           S            # (OBSOLETE)                                                      
            D2T2    027                                                             UM                                              
00051/018  *WATFOR                   OPTIONS         S            # (OBSOLETE)                                                      
            D2T2    028                                                             UM                                              
00051/019  *WATFOR                   CDEFN           S            # (OBSOLETE)                                                      
            D2T2    029                                                             UM                                              
00051/020  *WATFOR                   COMMR           S            # (OBSOLETE)                                                      
            D2T2    030                                                             UM                                              
00051/021  *WATFOR                   STARTA          S            # (OBSOLETE)                                                      
            D2T2    031                                                             UM                                              
00051/022  *WATFOR                   WATMAC          S            # (OBSOLETE)                                                      
            D2T2    032                                                             UM                                              
00051/023  *WATFOR                   UAT             O            # (OBSOLETE)                                                      
            D2T2    033                                                             UM                                              
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00051/024  *WATFOR                   UPDATE          U            # (OBSOLETE)                                                      
            D2.2    091                                                             UM                                              
00051/025  *WATFOR                   DIAGS           S            # (OBSOLETE)                                                      
            D2T2    035                                                             UM                                              
00051/026  *WATFOR                   DIAGS           O            # (OBSOLETE)                                                      
            D2T2    036                                                             UM                                              
00052/001  *COINFLIP                                 SA     CNFL    S0720 'D3T1' FSNAME=COINFLIP..SA.1(1)                         62
            D4T1     85  COINFLIP..SA.001                   1 SEQ      80    3 PAGE UM   STERKEN             JULY 30, 1973  23:27.01
0          DEMONSTRATION PROGRAM.
00052/002  *COINFLIP                                 OE             *COINFLIP                                                       
            D4T1     86  COINFLIP..OE.002                   1 LINE    255    1 PAGE UM   STERKEN             JULY 27, 1977  21:50:14
                         *COINFLIP            
00053/001A  DISKDUMP                                 SA  G  DSKD    FILE:DISKDUMP(1000)                                             
            4.3T1    37  DISKDUMP..SA.001                   1 LINE     80   12 PAGE UM   HELFFRICH           APR. 05, 1980  13:51:30
0          PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS.  DOESN'T CALL MTS FILE ROUTINES.
            
           ******************************************************************************
           D4.3 CHANGES:
            
           1) UPDATED FOR 3350 SUPPORT.
           2) DEPENDENCE ON MTS DSECT ELIMINATED.
           ******************************************************************************
00053/002A  DISKDUMP                                 OC  G          FILE:DISKDUMP(1,900)                                            
            4.3T1    38  DISKDUMP..OC.002                   1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  13:51:32
                         FILE:DISKDUMP        
00054/001  *TPS                                      S            # (OBSOLETE)                                                      
            D2T1    145                                                             UM                                              
00054/002  *TPS                      LL PTR UC       S            # (OBSOLETE)                                                      
            D2T1    146                                                             UM                                              
00055/001  *BCDEBCD                                  SA  G  BCDE    S0720 'D3T1' FSNAME=BCDEBCD..SA.1(1)                          66
            D4T1     89  BCDEBCD..SA.001                    1 SEQ      80    2 PAGE UM   ENGLE               JULY 30, 1973  23:27.43
0          TRANSLATE SCIENTIFIC 026 CODE TO EBCD.
00055/002  *BCDEBCD                                  OC  G          *BCDEBCD                                                        
            D4T1     90  BCDEBCD..OC.002                    1 LINE     80    1 PAGE UM   ENGLE               JULY 27, 1977  21:50:22
                         *BCDEBCD             
00056      *2250RTN                                  SA           # (OBSOLETE)                                                      
            D4T1     91  2250RTN..SA.                       1 SEQ      80   26 PAGE UM                       JULY 30, 1973  23:28.54
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00057/001  *TABEDIT                                  SA  O  TBED    W045:TABEDIT                                                    
            D4T1     92  TABEDIT..SA.001                    1 LINE     80    5 PAGE UM   PIRKOLA             JULY 27, 1977  21:50:27
0          PROGRAM TO REFORMAT RECORDS USING A SPECIFIED TAB CHARACTER AND TAB STOPS.
           COPIES *GDINFODSECT (594).  ASSEMBLE USING *SYSMAC.
00057/002  *TABEDIT                                  OC  O          *TABEDIT                                                        
            D4T1     93  TABEDIT..OC.002                    1 LINE     80    2 PAGE UM   PIRKOLA             JULY 27, 1977  21:50:29
                         *TABEDIT             
00058      *T7D                                      S            # (OBSOLETE)                                                      
            D2T1    142                                                             UM                                              
00059      *TCP                                      S            # (OBSOLETE)                                                      
            D2T1    141                                                             UM                                              
00060       JBRP <MTS>                               S            # (OBSOLETE)                                                      
            D2T1    144                                                             UM                                              
00061      *T9D                                      S            # (OBSOLETE)                                                      
            D2T1    143                                                             UM                                              
00063      *PTSKRTN                                  SA           # (OBSOLETE)                                                      
            D4T1     94  PTSKRTN..SA.                       1 SEQ      80   14 PAGE UM                       JULY 30, 1973  23:30.18
00064/001  *OBJSCAN                                  SA  G  SCAN    W062:OBJSCAN.S                                                  
            D4.2T1   22  OBJSCAN..SA.001                    1 LINE     80   22 PAGE UM   TIFFANY             MAR. 26, 1979  02:16:32
0          SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER
           RANGES FOR EACH MODULE ENCOUNTERED.  COPIES *GDINFODSECT (594).
00064/002  *OBJSCAN                                  OE  G          *OBJSCAN                                                        
            D4.2T1   23  OBJSCAN..OE.002                    1 SEQ    4804    2 PAGE UM   TIFFANY             MAR. 26, 1979  02:16:34
                         *OBJSCAN             
00065      *ASMERR                                   S            # (OBSOLETE)                                                      
            D2T1    323                                                             UM                                              
00066/001  *ASMG                     ASMGASM         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGASM                        1  
            D4T1     97  ASMG.ASMGASM.SA.001                1 SEQ      80   20 PAGE UM   MTA                 JULY 27, 1977  21:50:54
0          COMPONENTS 066/1 THROUGH 066/67 ARE THE MASTER OS/360 SOURCE FOR THE G LEVEL
           ASSEMBLER (ASMG) VERSION 2, LEVEL 7 FROM THE UNIVERSITY OF WATERLOO.  THE
           UPDATE DECK (066/71) WILL PRODUCE AN ASMG WHICH RUNS IN MTS.  COMPONENT 066/72
           CONTAINS COMMANDS TO UPDATE AND ASSEMBLE ASMG.
0          Referenced by comments of: 686/1, 705/12 
00066/002  *ASMG                     ASMGBUFF        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGBUFF                       2  
            D4T1     98  ASMG.ASMGBUFF.SA.002               1 SEQ      80   51 PAGE UM   MTA                 JULY 27, 1977  21:50:58
1                                                                                               SUN SEP 08/96   19:03:19   Page   19
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/003  *ASMG                     ASMGFD          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFD                         3  
            D4T1     99  ASMG.ASMGFD.SA.003                 1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  21:51:00
00066/004  *ASMG                     ASMGFEX         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFEX                        4  
            D4T1    100  ASMG.ASMGFEX.SA.004                1 SEQ      80   19 PAGE UM   MTA                 JULY 27, 1977  21:51:02
00066/005  *ASMG                     ASMGFI          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFI                         5  
            D4T1    101  ASMG.ASMGFI.SA.005                 1 SEQ      80   13 PAGE UM   MTA                 JULY 27, 1977  21:51:04
00066/006  *ASMG                     ASMGFPP         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFPP                        6  
            D4T1    102  ASMG.ASMGFPP.SA.006                1 SEQ      80   33 PAGE UM   MTA                 JULY 27, 1977  21:51:07
00066/007  *ASMG                     ASMGF1          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF1                         7  
            D4T1    103  ASMG.ASMGF1.SA.007                 1 SEQ      80   46 PAGE UM   MTA                 JULY 27, 1977  21:51:10
00066/008  *ASMG                     ASMGF2          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2                         8  
            D4T1    104  ASMG.ASMGF2.SA.008                 1 SEQ      80   89 PAGE UM   MTA                 JULY 27, 1977  21:51:15
00066/009  *ASMG                     ASMGF2A         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2A                        9  
            D4T1    105  ASMG.ASMGF2A.SA.009                1 SEQ      80   60 PAGE UM   MTA                 JULY 27, 1977  21:51:19
00066/010  *ASMG                     ASMGF3          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF3                         10 
            D4T1    106  ASMG.ASMGF3.SA.010                 1 SEQ      80   62 PAGE UM   MTA                 JULY 27, 1977  21:51:23
00066/011  *ASMG                     ASMGF7C         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7C                        11 
            D4T1    107  ASMG.ASMGF7C.SA.011                1 SEQ      80   26 PAGE UM   MTA                 JULY 27, 1977  21:51:25
00066/012  *ASMG                     ASMGF7D         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7D                        12 
            D4T1    108  ASMG.ASMGF7D.SA.012                1 SEQ      80   25 PAGE UM   MTA                 JULY 27, 1977  21:51:27
00066/013  *ASMG                     ASMGF7E         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7E                        13 
            D4T1    109  ASMG.ASMGF7E.SA.013                1 SEQ      80   26 PAGE UM   MTA                 JULY 27, 1977  21:51:29
00066/014  *ASMG                     ASMGF7G         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7G                        14 
            D4T1    110  ASMG.ASMGF7G.SA.014                1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:51:30
00066/015  *ASMG                     ASMGF7I         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7I                        15 
            D4T1    111  ASMG.ASMGF7I.SA.015                1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  21:51:33
00066/016  *ASMG                     ASMGF7L         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7L                        16 
            D4T1    112  ASMG.ASMGF7L.SA.016                1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:51:35
00066/017  *ASMG                     ASMGF7N         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7N                        17 
            D4T1    113  ASMG.ASMGF7N.SA.017                1 SEQ      80   13 PAGE UM   MTA                 JULY 27, 1977  21:51:37
00066/018  *ASMG                     ASMGF7S         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7S                        18 
            D4T1    114  ASMG.ASMGF7S.SA.018                1 SEQ      80    8 PAGE UM   MTA                 JULY 27, 1977  21:51:39
00066/019  *ASMG                     ASMGF7V         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7V                        19 
            D4T1    115  ASMG.ASMGF7V.SA.019                1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  21:51:42
1                                                                                               SUN SEP 08/96   19:03:19   Page   20
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/020  *ASMG                     ASMGF7X         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7X                        20 
            D4T1    116  ASMG.ASMGF7X.SA.020                1 SEQ      80   36 PAGE UM   MTA                 JULY 27, 1977  21:51:45
00066/021  *ASMG                     ASMGF8A         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8A                        21 
            D4T1    117  ASMG.ASMGF8A.SA.021                1 SEQ      80   27 PAGE UM   MTA                 JULY 27, 1977  21:51:47
00066/022  *ASMG                     ASMGF8C         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8C                        22 
            D4T1    118  ASMG.ASMGF8C.SA.022                1 SEQ      80    6 PAGE UM   MTA                 JULY 27, 1977  21:51:48
00066/023  *ASMG                     ASMGF8D         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8D                        23 
            D4T1    119  ASMG.ASMGF8D.SA.023                1 SEQ      80   23 PAGE UM   MTA                 JULY 27, 1977  21:51:54
00066/024  *ASMG                     ASMGF8I         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8I                        24 
            D4T1    120  ASMG.ASMGF8I.SA.024                1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  21:51:57
00066/025  *ASMG                     ASMGF8L         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8L                        25 
            D4T1    121  ASMG.ASMGF8L.SA.025                1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:51:59
00066/026  *ASMG                     ASMGF8M         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8M                        26 
            D4T1    122  ASMG.ASMGF8M.SA.026                1 SEQ      80   27 PAGE UM   MTA                 JULY 27, 1977  21:52:03
00066/027  *ASMG                     ASMGF8N         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8N                        27 
            D4T1    123  ASMG.ASMGF8N.SA.027                1 SEQ      80   13 PAGE UM   MTA                 JULY 27, 1977  21:52:05
00066/028  *ASMG                     ASMGF8P         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8P                        28 
            D4T1    124  ASMG.ASMGF8P.SA.028                1 SEQ      80   22 PAGE UM   MTA                 JULY 27, 1977  21:52:09
00066/029  *ASMG                     ASMGF8S         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8S                        29 
            D4T1    125  ASMG.ASMGF8S.SA.029                1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:52:11
00066/030  *ASMG                     ASMGF8V         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8V                        30 
            D4T1    126  ASMG.ASMGF8V.SA.030                1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  21:52:14
00066/031  *ASMG                     ASMGIS00        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS00                       31 
            D4T1    127  ASMG.ASMGIS00.SA.031               1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  21:52:17
00066/032  *ASMG                     ASMGIS09        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS09                       33 
            D4T1    128  ASMG.ASMGIS09.SA.032               1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  21:52:20
00066/033  *ASMG                     ASMGIS20        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS20                       35 
            D4T1    129  ASMG.ASMGIS20.SA.033               1 SEQ      80    6 PAGE UM   MTA                 JULY 27, 1977  21:52:22
00066/034  *ASMG                     ASMGIS44        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS44                       36 
            D4T1    130  ASMG.ASMGIS44.SA.034               1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  21:52:24
00066/035  *ASMG                     ASMGIS60        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS60                       37 
            D4T1    131  ASMG.ASMGIS60.SA.035               1 SEQ      80   10 PAGE UM   MTA                 JULY 27, 1977  21:52:26
00066/036  *ASMG                     ASMGIS67        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS67                       38 
            D4T1    132  ASMG.ASMGIS67.SA.036               1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  21:52:28
1                                                                                               SUN SEP 08/96   19:03:19   Page   21
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/037  *ASMG                     ASMGIS70        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS70                       39 
            D4T1    133  ASMG.ASMGIS70.SA.037               1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  21:52:30
00066/038  *ASMG                     ASMGIS71        SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS71                       40 
            D4T1    134  ASMG.ASMGIS71.SA.038               1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  21:52:33
00066/039  *ASMG                     ASMGRTA         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGRTA                        41 
            D4T1    135  ASMG.ASMGRTA.SA.039                1 SEQ      80    5 PAGE UM   MTA                 JULY 27, 1977  21:52:34
00066/040  *ASMG                     ASMGUP          SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGUP                         42 
            D4T1    136  ASMG.ASMGUP.SA.040                 1 SEQ      80   20 PAGE UM   MTA                 JULY 27, 1977  21:52:37
00066/041  *ASMG                     APARM           SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=APARM                          43 
            D4T1    137  ASMG.APARM.SA.041                  1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:52:39
00066/042  *ASMG                     ASMGSET         SA  G          S0032 ASMGOS 'ASMGOS 27' POSN=ASMGSET                        44 
            D4T1    138  ASMG.ASMGSET.SA.042                1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:52:41
00066/043  *ASMG                     COMMENCE        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=COMMENCE                       45 
            D4T1    139  ASMG.COMMENCE.SM.043               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:43
00066/044  *ASMG                     COMMON          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=COMMON                         46 
            D4T1    140  ASMG.COMMON.SM.044                 1 SEQ      80   18 PAGE UM   MTA                 JULY 27, 1977  21:52:46
00066/045  *ASMG                     DCBOUT          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=DCBOUT                         47 
            D4T1    141  ASMG.DCBOUT.SM.045                 1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:47
00066/046  *ASMG                     DEFCHAR         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=DEFCHAR                        48 
            D4T1    142  ASMG.DEFCHAR.SM.046                1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:52:49
00066/047  *ASMG                     ELZERO          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=ELZERO                         49 
            D4T1    143  ASMG.ELZERO.SM.047                 1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:51
00066/048  *ASMG                     EMSG            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=EMSG                           50 
            D4T1    144  ASMG.EMSG.SM.048                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:54
00066/049  *ASMG                     ENTRYOUT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=ENTRYOUT                       51 
            D4T1    145  ASMG.ENTRYOUT.SM.049               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:55
00066/050  *ASMG                     EPTR            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=EPTR                           52 
            D4T1    146  ASMG.EPTR.SM.050                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:52:58
00066/051  *ASMG                     FDIMEN          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=FDIMEN                         53 
            D4T1    147  ASMG.FDIMEN.SM.051                 1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  21:53:00
00066/052  *ASMG                     FINISH          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=FINISH                         54 
            D4T1    148  ASMG.FINISH.SM.052                 1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:02
00066/053  *ASMG                     GETT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=GETT                           55 
            D4T1    149  ASMG.GETT.SM.053                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:04
1                                                                                               SUN SEP 08/96   19:03:19   Page   22
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/054  *ASMG                     INST            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=INST                           56 
            D4T1    150  ASMG.INST.SM.054                   1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  21:53:06
00066/055  *ASMG                     INSTSET         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=INSTSET                        57 
            D4T1    151  ASMG.INSTSET.SM.055                1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:53:08
00066/056  *ASMG                     LIST1EQU        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=LIST1EQU                       58 
            D4T1    152  ASMG.LIST1EQU.SM.056               1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:53:10
00066/057  *ASMG                     MESSAGE         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=MESSAGE                        59 
            D4T1    153  ASMG.MESSAGE.SM.057                1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:12
00066/058  *ASMG                     PRINTOUT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PRINTOUT                       60 
            D4T1    154  ASMG.PRINTOUT.SM.058               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:14
00066/059  *ASMG                     PRNT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PRNT                           61 
            D4T1    155  ASMG.PRNT.SM.059                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:16
00066/060  *ASMG                     PUTT            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=PUTT                           62 
            D4T1    156  ASMG.PUTT.SM.060                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:18
00066/061  *ASMG                     RD              SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=RD                             63 
            D4T1    157  ASMG.RD.SM.061                     1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:20
00066/062  *ASMG                     SETR            SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SETR                           64 
            D4T1    158  ASMG.SETR.SM.062                   1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:22
00066/063  *ASMG                     SNAPDATA        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SNAPDATA                       65 
            D4T1    159  ASMG.SNAPDATA.SM.063               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:24
00066/064  *ASMG                     SNAPOUT         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=SNAPOUT                        66 
            D4T1    160  ASMG.SNAPOUT.SM.064                1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  21:53:26
00066/065  *ASMG                     TIMEOUT         SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=TIMEOUT                        67 
            D4T1    161  ASMG.TIMEOUT.SM.065                1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:29
00066/066  *ASMG                     TRANSLAT        SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=TRANSLAT                       68 
            D4T1    162  ASMG.TRANSLAT.SM.066               1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:31
00066/067  *ASMG                     UPEMSG          SM  G          S0032 ASMGOS 'ASMGOS 27' POSN=UPEMSG                         69 
            D4T1    163  ASMG.UPEMSG.SM.067                 1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:33
00066/068  *ASMG                     ASMGMOD         SA  G          S0003 FSWATF FSNAME=ASMGMOD                                     
            D4T1    164  ASMG.ASMGMOD.SA.068                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:37
0          SOURCE FOR THE MODULE LIST INDICATING FROM WHICH FILE TO LOAD EACH PART OF ASMG.
00066/069  *ASMG                     ASMGMOD         OC  G        # PART OF 66/68                                                   
            D4T1    165  ASMG.ASMGMOD.OC.069                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:37
00066/070  *ASMG                     GTIMEST         OC  G          S0563 D4T1 VLO FSNAME=ASMG.GTIMEST.OC.070(1)                 166
            D4T1    166  ASMG.GTIMEST.OC.070                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:53:39
0          OBJECT FOR A SUBROUTINE TO GET THE USER'S REMAINING EXECUTION TIME.  SOURCE
1                                                                                               SUN SEP 08/96   19:03:19   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          FOR THIS SUBROUTINE HAS BEEN LOST, BUT COULD BE REGENERATED IF REALLY NECESSARY.
00066/071  *ASMG                     ASMGUPD         UU  G          S0003 FSWATF FSNAME=ASMGUPD                                     
            D4T1    167  ASMG.ASMGUPD.UU.071                1 LINE     83   40 PAGE UM   MTA                 JULY 27, 1977  21:53:41
0          UPDATE DECK TO CONVERT ALL OF THE OS VERSION OF ASMG (066/1 THROUGH 066/67) TO RUN IN MTS.
0          Referenced by comments of: 66/1, 66/72 
00066/072  *ASMG                     ASMGJOB         C              S0003 FSWATF FSNAME=ASMGJOB                                     
            D4T1    168  ASMG.ASMGJOB.C.072                 1 LINE    124    1 PAGE UM   MTA                 JULY 27, 1977  21:53:49
0           THIS JOB UPDATES AND ASSEMBLES THE G ASSEMBLER FOR MTS. 
               THE FOLLOWING FILES AND TAPES ARE USED: 
                      ASMGUPD - UPDATE DECK FOR ALL OF ASMG (066/71) 
                      ASMGSET - EMPTIED AND WRITTEN WITH A COPY SECTION 
                      ASMGMACROS - EMPTIED AND WRITTEN WITH A MACRO LIBRARY 
                      ASMGERRORS - EMPTIES AND WRITTEN WITT SERCOM OUTPUT OF THE ASSEMBLY
                      S0032 VOL=ASMGOS - MASTER TAPE, CONTAINS CURRENT OS VERSION OF ASMG (066/1 THROUGH 066/67) 
                        ***NOTE*** DATA SET NAMES ON THIS TAPE MUST NOT BE CHANGED SINCE ASMGUPD CONTAINS 
                                   %POSN COMMANDS TO POSITION THE TAPE. 
                      S0416 VOL=UPDATE - WRITTEN WITH NEW SOURCE FOR ASMG (MTS VERSION) 
                      S0111 VOL=ASMGL - WRITTEN WITH LISTINGS FOR ASMG (MTS VERSION) 
                      ASMG - EMPTIED AND WRITTEN WITH OBJECT FOR ASMG (MTS VERSION) 
            
                THE LISTINGS ARE NOT PRINTED. A SEPARATE JOB IS REQUIRED. 
0          Referenced by comments of: 66/74 
00066/073  *ASMG                     ASMGJOB2        C              S0003 FSWATF FSNAME=ASMGJOB2                                    
            D4T1    169  ASMG.ASMGJOB2.C.073                1 LINE    112    1 PAGE UM   MTA                 JULY 27, 1977  21:53:51
0          COMMAND FILE TO ASSEMBLE SELECTED PARTS OF ASMG.
00066/074  *ASMG                     ASMGLINK        C              S0003 FSWATF FSNAME=ASMGLINK                                    
            D4T1    170  ASMG.ASMGLINK.C.074                1 LINE    112    1 PAGE UM   MTA                 JULY 27, 1977  21:53:53
0          COMMAND FILE TO PUT OUTPUT OF ASMGJOB (066/72) INTO PRIVATE FILES FOR TESTING.
0          Referenced by comments of: 66/75 
00066/075  *ASMG                     ASMGCOPY        C              S0003 FSWATF FSNAME=ASMGCOPY                                    
            D4T1    171  ASMG.ASMGCOPY.C.075                1 LINE     26    2 PAGE UM   MTA                 JULY 27, 1977  21:53:56
0          COMMAND FILE TO MOVE THE OUTPUT OF ASMGLINK (066/74) INTO THE PUBLIC FILES.
00066/076A *ASMG                     *ASMG           OE  G          *ASMG                                                           
            4.3T1    39  ASMG.*ASMG.OE.076                  1 SEQ    8849    3 PAGE UM   MTA                 APR. 05, 1980  13:51:34
                         *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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0                   ----           -----------    --------
                    *ASMG          ASMGASM        ASMGASM,ASMGBUFF,ASMGMOD
                    *ASMBLR        ASMGASM        (EXACTLY THE SAME CONTENTS AS *ASMG)
                    ETC:ASMGFPP    ASMGFPP        ASMGFPP,ASMGFD,ASMGFEX
                    ETC:ASMGF1     ASMGF1         ASMGF1
                    ETC:ASMGF2     ASMGF2         ASMGF2,ASMGF2A
                    ETC:ASMGF3     ASMGF3         ASMGF3
                    ETC:ASMGF7     ASMGF7         ASMGF7C,ASMGF7G,,ASMGF7L,ASMGF7S,ASMGFI,
                                                  ASMGF7D,ASMGF7E,ASMGF7I,ASMGF7N,ASMGF7V,ASMGF7X
                    ETC:ASMGF8     ASMGF8         ASMGF8A,ASMGF8C,ASMGF8L,ASMGF8N,ASMGF8P,
                                                  ASMGF8S,ASMGF8V,ASMGF8D,ASMGF8I,ASMGF8M
                    ETC:ASMGIS00                  ASMGIS00
                    ETC:ASMGIS09                  ASMGIS09
                    ETC:ASMGIS20                  ASMGIS20
                    ETC:ASMGIS44                  ASMGIS44
                    ETC:ASMGIS60                  ASMGIS60
                    ETC:ASMGIS67                  ASMGIS67
                    ETC:ASMGIS70                  ASMGIS70
                    ETC:ASMGIS71                  ASMGIS71
                    ETC:ASMGRTA    ASMGRTA        ASMGRTA
                    ETC:ASMGUP     ASMGUP         ASMGUP
            
           NOTE:  *ASMG ALSO CONTAINS THE OBJECT
            
           ********************************************************************************
           D4.3 CHANGES:
            
           MSG LINES ADDED.
           ********************************************************************************
00066/077  *ASMG                     ASMGFPP         OE  G          ETC:ASMGFPP                                                     
            D4T1    173  ASMG.ASMGFPP.OE.077                1 SEQ   12064    5 PAGE UM   MTA                 JULY 27, 1977  21:54:00
                         ETC.:ASMGFPP         
00066/078A *ASMG                     ASMGF1          OE  G          ETC:ASMGF1                                                      
            4.3T1    40  ASMG.ASMGF1.OE.078                 1 SEQ    9088    3 PAGE UM   MTA                 APR. 05, 1980  13:51:36
                         ETC.:ASMGF1          
0           
           ********************************************************************************
           D4.3 CHANGES:
            
           REP CARDS ADDED TO CHANGE MACRO LIBRARY TO *ASMGSYSMAC (66/95).
           ********************************************************************************
00066/079  *ASMG                     ASMGF2          OE  G          ETC:ASMGF2                                                      
            D4T1    175  ASMG.ASMGF2.OE.079                 1 SEQ   20784    6 PAGE UM   MTA                 JULY 27, 1977  21:54:04
                         ETC.:ASMGF2          
00066/080  *ASMG                     ASMGF3          OE  G          ETC:ASMGF3                                                      
            D4T1    176  ASMG.ASMGF3.OE.080                 1 SEQ    8286    3 PAGE UM   MTA                 JULY 27, 1977  21:54:06
                         ETC.:ASMGF3          
1                                                                                               SUN SEP 08/96   19:03:19   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/081  *ASMG                     ASMGF7          OE  G          ETC:ASMGF7                                                      
            D4T1    177  ASMG.ASMGF7.OE.081                 1 SEQ   12904    6 PAGE UM   MTA                 JULY 27, 1977  21:54:08
                         ETC.:ASMGF7          
00066/082  *ASMG                     ASMGF8          OE  G          ETC:ASMGF8                                                      
            D4T1    178  ASMG.ASMGF8.OE.082                 1 SEQ    9552    6 PAGE UM   MTA                 JULY 27, 1977  21:54:10
                         ETC.:ASMGF8          
00066/083  *ASMG                     ASMGIS00        OE  G          ETC:ASMGIS00                                                    
            D4T1    179  ASMG.ASMGIS00.OE.083               1 SEQ    2220    1 PAGE UM   MTA                 JULY 27, 1977  21:54:12
                         ETC.:ASMGIS00        
00066/084  *ASMG                     ASMGIS09        OE  G          ETC:ASMGIS09                                                    
            D4T1    180  ASMG.ASMGIS09.OE.084               1 SEQ    1834    1 PAGE UM   MTA                 JULY 27, 1977  21:54:15
                         ETC.:ASMGIS09        
00066/085  *ASMG                     ASMGIS20        OE  G          ETC:ASMGIS20                                                    
            D4T1    181  ASMG.ASMGIS20.OE.085               1 SEQ    1199    1 PAGE UM   MTA                 JULY 27, 1977  21:54:17
                         ETC.:ASMGIS20        
00066/086  *ASMG                     ASMGIS44        OE  G          ETC:ASMGIS44                                                    
            D4T1    182  ASMG.ASMGIS44.OE.086               1 SEQ    1866    1 PAGE UM   MTA                 JULY 27, 1977  21:54:19
                         ETC.:ASMGIS44        
00066/087  *ASMG                     ASMGIS60        OE  G          ETC:ASMGIS60                                                    
            D4T1    183  ASMG.ASMGIS60.OE.087               1 SEQ    2074    1 PAGE UM   MTA                 JULY 27, 1977  21:54:21
                         ETC.:ASMGIS60        
00066/088  *ASMG                     ASMGIS67        OE  G          ETC:ASMGIS67                                                    
            D4T1    184  ASMG.ASMGIS67.OE.088               1 SEQ    2160    1 PAGE UM   MTA                 JULY 27, 1977  21:54:23
                         ETC.:ASMGIS67        
00066/089  *ASMG                     ASMGIS70        OE  G          ETC:ASMGIS70                                                    
            D4T1    185  ASMG.ASMGIS70.OE.089               1 SEQ    2372    1 PAGE UM   MTA                 JULY 27, 1977  21:54:25
                         ETC.:ASMGIS70        
00066/090  *ASMG                     ASMGIS71        OE  G          ETC:ASMGIS71                                                    
            D4T1    186  ASMG.ASMGIS71.OE.090               1 SEQ    2380    1 PAGE UM   MTA                 JULY 27, 1977  21:54:28
                         ETC.:ASMGIS71        
00066/091  *ASMG                     ASMGRTA         OE  G          ETC:ASMGRTA                                                     
            D4T1    187  ASMG.ASMGRTA.OE.091                1 SEQ    1280    1 PAGE UM   MTA                 JULY 27, 1977  21:54:30
                         ETC.:ASMGRTA         
00066/092  *ASMG                     ASMGUP          OE  G          ETC:ASMGUP                                                      
            D4T1    188  ASMG.ASMGUP.OE.092                 1 SEQ    3538    1 PAGE UM   MTA                 JULY 27, 1977  21:54:32
                         ETC.:ASMGUP          
00066/093  *ASMG                     USER'S GUIDE    P              S0881 ASMG27 POSN=ASMG.GUIDE.USERS                           3  
            D4T1    189  ASMG.USER'S_GUIDE.P.093            1 SEQ      80   41 PAGE UM   MTA                 JULY 27, 1977  21:54:49
0          WATERLOO USER'S GUIDE FOR OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
           SEE MTS VOLUME 14 (665) FOR MTS ASMG USER'S GUIDE.
1                                                                                               SUN SEP 08/96   19:03:19   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/094  *ASMG                     IMPLEMENTATION  P              S0881 ASMG27 POSN=ASMG.GUIDE.IMPL                            4  
            D4T1    190  ASMG.IMPLEMENTATION.P.094          1 SEQ      78   27 PAGE UM   MTA                 JULY 27, 1977  21:54:52
0          IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
00066/095C *ASMG                     *ASMGSYSMAC     SM  G          *ASMGSYSMAC                                                     
            4.3T1    41  ASMG.*ASMGSYSMAC.SM.095            1 LINE     80   81 PAGE UM   MTA                 APR. 05, 1980  13:51:38
                         *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)                                             
            4.3T1    42  FILE_SAVE.MAIN.SA.001              1 LINE     80   33 PAGE UM   HELFFRICH           APR. 05, 1980  13:51:45
                         RSTR:FILESAVE        
0          THIS COMPONENT IS A COMBINATION OF WHAT WERE PREVIOUSLY TWO COMPONENTS, 
           FILE SAVE (067) AND FILE SAVE - ONLINE (716).
            
           67/1 IS THE MTS FILESAVE (DISK BACKUP) PROGRAM.  THIS PROGRAM IS RUN ONCE
           PER WEEK AT UM TO PRODUCE A BACKUP OF ALL DISK FILES IN CASE OF HARDWARE
           (OR SOFTWARE) PROBLEMS.  ON OTHER DAYS, A PARTIAL FILESAVE IS PRODUCED USING
           THE ONLINE FILE SAVE PROGRAM (67/17) OF THOSE FILES WHICH HAVE CHANGED SINCE
           THE PREVIOUS FILE SAVE WAS RUN.  THE TAPES GENERATED BY THE FULL SAVE ARE COPIED
           (SEE 610) AND SAVED FOR SEVERAL MONTHS.  SIX WEEK INTERVALS OF THESE FULL TAPES
           ARE SAVED FOR SEVERAL YEARS.  WE HAVE FOUND THAT THIS PROCEDURE (WHICH INCLUDES
           STORING THE FULL TAPES IN ANOTHER BUILDING) SEEMS TO PROVIDE A REASONABLE BACKUP.
            
           THIS IS THE SOURCE FOR THE FILESAVE MAIN PROGRAM WHICH ACCEPTS THE FOLLOWING
           PARAMETERS SEPARATED BY BLANKS:
            
                ALL -- MEANS ALL FILES WILL BE SAVED
                CHG -- MEANS ONLY CHANGED FILES WILL BE SAVED
                DIR -- MEANS THAT *RESTORE (712) DIRECTORY ENTRIES ARE TO BE GENERATED
            
           ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE FILESAVE MACROS (67/29).
            
           *****************************************************************************
           D4.3 CHANGES: 
            
            1)  UPDATED FOR VAMX SUPPORT.
            2)  FILE LISTING NOW CONTAINS HEADER ON EACH PAGE IDENTIFYING TIME, DATE,
                TAPE SERIES, AND VOLUMES OF SAVE.
            
           -----------------------------------------------------------------------------
            
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2A/RD16):
            
           CHANGED TO ELIMINATE USAGE OF FDVSER FIELD (WHICH IS NOT NEEDED NOW) IN THE
           CATALOG.  ALSO FIXED A BUG WHICH WOULD HAVE CAUSED A PGNT IF A BAD
           SHLENT/SHNENT HAD BEEN ENCOUNTERED.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 67/1, 67/37, 92/1, 502/7 
00067/002A  FILE SAVE                SAVEFILE        SA  G  SFIL    RSTR:SAVEFILE(1000)                                             
            4.3T1    43  FILE_SAVE.SAVEFILE.SA.002          1 LINE     80   10 PAGE UM   HELFFRICH           APR. 05, 1980  13:51:52
                         RSTR:SAVEFILE        
0          ASSEMBLE USING COPY:FILE.MACROS (482/33), COPY:MISC.MACROS (728) AND *SYSMAC.
            
           *****************************************************************************
           D4.3 CHANGES:
            
            1)  CHANGED FOR VAMX SUPPORT
            2)  CHANGED TO ERASE PARTIALLY SAVED FILE FROM SAVE TAPE IF DISK ERROR
                ENCOUNTERED WHILE SAVING FILE.
            
           -----------------------------------------------------------------------------
            
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): 
            
           CHANGED TO BLOCK FILE SAVE TAPE AT A 7 DISK PAGE PER TAPE BLOCK FACTOR. 
           *****************************************************************************
0          Referenced by comments of: 67/17, 502/7 
00067/003A  FILE SAVE                VTOCRD          SA  G  VTOC    RSTR:VTOCREAD(1000)                                             
            4.3T1    44  FILE_SAVE.VTOCRD.SA.003            1 LINE     80   14 PAGE UM   HELFFRICH           APR. 05, 1980  13:51:54
                         RSTR:VTOCREAD        
0          SUBROUTINE TO READ ENTIRE VTOC OF DISK VOLUME.  ASSEMBLE USING *SYSMAC AND
           COPY:FILE.MACROS (482/33).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX SUPPORT.
           *****************************************************************************
0          Referenced by comments of: 67/37, 104/111, 502/7, 1030/2 
00067/004A  FILE SAVE                OBJECT          OC  G          RSTR:FILESAVEOBJ                                                
            4.3T1    45  FILE_SAVE.OBJECT.OC.004            1 LINE     80   20 PAGE UM   HELFFRICH           APR. 05, 1980  13:51:57
                         RSTR:FILESAVEOBJ     
0          OBJECT FROM 067/1, 067/2, 067/3, AND 67/19.
0          Referenced by comments of: 104/110, 682/20, 682/36, 1030/1 
00067/005   FILE SAVE                RESTART         SA  G          RSTR:LFS.RESTART(1005)                                          
            D4.1T1   28  FILE_SAVE.RESTART.SA.005           1 LINE     72    3 PAGE UM   HELFFRICH           MAY  13, 1978  17:02:58
                         RSTR:LFS.RESTART     
0          PROGRAM USED BY WEEKLY SAVE (067/9) TO CAUSE THE WEEKLY TAPES TO BE RE-USED 
           AFTER THEIR CYCLE PERIOD HAS EXPIRED (6 WEEKS).  THIS HAS TO BE DONE BECAUSE
           IF FILESAVE CRASHES WITH PART OF A SET OF TAPES WRITTEN, IT WOULD NOT RE-USE
1                                                                                               SUN SEP 08/96   19:03:19   Page   28
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          THE PARTIALLY WRITTEN TAPES OF THE SET WHEN RESTARTED.  THIS PROGRAM IS A
           KLUDGE. ASSEMBLE WITH THE FILE SAVE MACROS (67/29).
0          Referenced by comments of: 67/7 
00067/006   FILE SAVE                RESTART         OC  G          RSTR:LFS.RESTART(1,999)                                         
            D4.1T1   29  FILE_SAVE.RESTART.OC.006           1 LINE     80    2 PAGE UM   HELFFRICH           MAY  13, 1978  17:02:59
00067/007   FILE SAVE                SVSTART         C              RSTR:SVSTART                                                    
            D4.2T1   26  FILE_SAVE.SVSTART.C.007            1 LINE     68    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:16:38
                         RSTR:SVSTART         
0          COMMAND AND DATA FILE WHICH IS $SOURCED TO BY *SVW (067/9).  THIS FILE STARTS
           UP THE SEVERAL (CURRENTLY 6) STREAMS WHICH ARE USED FOR THE FULL FILE SAVE.
           IT USES LFS.RESTART (067/5) TO CAUSE THE WEEKLY TAPES TO BE RE-USED AFTER
           THEIR CYCLE PERIOD HAS EXPIRED.
0          Referenced by comments of: 67/9 
00067/008   FILE SAVE                FSS             C              MTS:TST.FSS                                                     
            D4.2T1   27  FILE_SAVE.FSS.C.008                1 LINE    121    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:16:38
                         RSTR:FSS             
0          COMMAND AND DATA FILE $SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4,
           *SV5, AND *SV6).  THIS FILE CONTAINS THE DISK VOLUME SERIAL NUMBERS OF THE VOLUMES
           TO BE SAVED BY EACH STREAM.  IN ADDITION, THE LETTER "C" MAY FOLLOW EACH VOLUME
           SERIAL NUMBER TO INDICATE WHETHER THE LABEL FOR EACH TAPE IS TO BE CHECKED.
           THIS FILE WILL HAVE TO BE CHANGED BY EACH INSTALLATION TO REFLECT THE NUMBER
           OF DISK PACKS IN USE AND THEIR VOLUME SERIAL NUMBERS.  THE FILE "FSLOG" IS
           USED TO LOG THE FILESAVE START/STOP TIMES.
00067/009   FILE SAVE                WEEKLY START    C              *SVW                                                            
            D4T1    200  FILE_SAVE.WEEKLY_START.C.010       1 LINE     25    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:24
                         RSTR:*SVW            
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE WEEKLY (FULL) FILESAVE
           PROCESS.  ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN.  THIS FILE WILL
           $SOURCE TO RSTR:SVSTART (067/7) WHICH WILL START UP 5 MORE STREAMS (*SV2, *SV3,
           *SV4, *SV5 AND *SV6) AUTOMATICALLY SO THAT THE FULL SAVE IS DONE IN 6 STREAMS.
           EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED, DEPENDING
           ON THE NUMBER OF DISK DRIVES AND CONTROLS, AND TAPE DRIVES AND CONTROLS WHICH
           ARE AVAILABLE.  INVOKED BY ENTERING "MTS *SVW" ON THE OPERATORS CONSOLE.
0          Referenced by comments of: 67/5, 67/7 
00067/010   FILE SAVE                WKLY STREAM #1  C              *SV1                                                            
            D4T1    201  FILE_SAVE.WKLY_STREAM_#1.C.011     1 LINE     19    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:27
                         RSTR:*SV1            
0          THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART
           WEEKLY (FULL) STREAM #1.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00067/011   FILE SAVE                WKLY STREAM #2  C              *SV2                                                            
            D4T1    202  FILE_SAVE.WKLY_STREAM_#2.C.012     1 LINE     19    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:29
                         RSTR:*SV2            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #2.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #2.
00067/012   FILE SAVE                WKLY STREAM #3  C              *SV3                                                            
            D4T1    203  FILE_SAVE.WKLY_STREAM_#3.C.013     1 LINE     19    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:32
                         RSTR:*SV3            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #3.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #3.
00067/013   FILE SAVE                WKLY STREAM #4  C              *SV4                                                            
            D4T1    204  FILE_SAVE.WKLY_STREAM_#4.C.014     1 LINE     19    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:55:34
                         RSTR:*SV4            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #4.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #4.
00067/014   FILE SAVE                WKLY STREAM #5  C              *SV5                                                            
            D4.1T1   32  FILE_SAVE.WKLY_STREAM_#5.C.014     1 LINE     19    1 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:01
                         RSTR:*SV5            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #5.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #5.
00067/015   FILE SAVE                WKLY STREAM #6  C              *SV6                                                            
            D4.2T1   28  FILE_SAVE.WKLY_STREAM_#6.C.015     1 LINE     19    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:16:39
                         RSTR:*SV6            
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #6.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #6.
00067/016A  FILE SAVE                *SAV            C              *SAV                                                            
            4.3T1    46  FILE_SAVE.*SAV.C.016               1 LINE     65    1 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:00
                         RSTR:*SAV            
0          COMMAND FILE TO START THE ONLINE FILESAVE AND MERGE OPERATIONS.  INVOKED BY
           ENTERING "MTS *SAV" ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 67/39 
00067/017A  FILE SAVE                SAVE PGM        SA  G  OLFS    RSTR:DSF(1000)                                                  
            4.3T1    47  FILE_SAVE.SAVE_PGM.SA.017          1 LINE     80   19 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:02
                         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" (NN=01,02,...),
           WHICH CONSTITUTE THE INPUT TO THE MERGE PROGRAM (67/21).  THE MERGE PROGRAM
           ULTIMATELY MAKES THE SAVE TIMES FOR THE FILES SAVED BY THE ONLINE FILE
           SAVE AVAILABLE TO *RESTORE (712).  CALLS SAVEFILE (67/2), FILEDSCB (502/9)
           AND TAPEOUT (67/19).  ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE
1                                                                                               SUN SEP 08/96   19:03:19   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          FILESAVE MACROS (67/29).  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.
            
           ****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16):
            
           CHANGED TO ELIMINATE USAGE OF FDVSER FIELD IN THE CATALOG.  ALL ERRORS 
           ENCOUNTERED ARE REPORTED ON OPER/SERCOM AND PREFIXED WITH "*** FILE SAVE
           ERROR" (FOR COMPREHENSIBILITY) SO THAT SCANNING OF OUTPUT LISTINGS IS 
           UNNECESSARY.
           ****************************************************************************
0          Referenced by comments of: 67/1, 67/19, 67/37, 671/1 
00067/018A  FILE SAVE                SAVE PGM        OC  G          RSTR:OLFSOBJ                                                    
            4.3T1    48  FILE_SAVE.SAVE_PGM.OC.018          1 LINE     80   16 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:11
                         RSTR:OLFSOBJ         
0          CONTAINS OBJECT OF 67/2, 67/17, 67/19, AND 502/9.
00067/019A  FILE SAVE                TAPEOUT         SA  G  TPDO    RSTR:TAPEOUT(1000)                                              
            4.3T1    49  FILE_SAVE.TAPEOUT.SA.019           1 LINE     80   25 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:14
                         RSTR:TAPEOUT         
0          SUBROUTINE CALLED BY THE SAVE PROGRAM (67/17) 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.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           PARTIALLY SAVED FILES WILL BE ELIMINATED FROM TAPE IF A DISK ERROR EVER
           OCCURS WHILE SAVING THE FILE.
            
           -----------------------------------------------------------------------------
            
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2C):
            
           1) SAVE TAPES NOW BLOCKED AT 7 PAGES PER BLOCK.
           2) A "SLOP FACTOR" WAS DEFINED FOR TAPE RE-USE.  IN THIS TIME FRAME, TAPES
              WILL BE REUSED IN AN ARBITRARY RATHER THAN OLDEST-FIRST ORDER.
           3) FIXED BUG WHICH WOULD CAUSE FLAKEY TAPE HARDWARE TO WRITE A TAPE 
              MARK AT THE FRONT OF THE TAPE FOLLOWING AN ERROR BSR-ING AT THE
              END OF A TAPE.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 67/17 
00067/020A  FILE SAVE                TAPEOUT         OC  G          RSTR:TAPEOUT(1,999)                                             
            4.3T1    50  FILE_SAVE.TAPEOUT.OC.020           1 LINE     80    8 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:31
00067/021A  FILE SAVE                MERGE PGM       SA  G  MERG    RSTR:MERGE(1000)                                                
            4.3T1    51  FILE_SAVE.MERGE_PGM.SA.021         1 LINE     80   17 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:38
                         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).  ASSEMBLE USING THE FILESAVE
           MACROS (67/29).
            
            
           ***********************************************************************************
           D4.3 CHANGES:
            
           SOME BUGS IN THE HANDLING OF NOSAVE ENTRIES HAVE BEEN FIXED, AND AN OPTION
           PERTAINING TO DISASTER RECOVERY HAS BEEN ADDED (SEE 682/13).
           ***********************************************************************************
0          Referenced by comments of: 67/17, 682/39 
00067/022A  FILE SAVE                MERGE PGM       OC  G          RSTR:MERGE(1,999)                                               
            4.3T1    52  FILE_SAVE.MERGE_PGM.OC.022         1 LINE     80    5 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:43
0          CONTAINS TWO "ALI" RECORDS AND "$CONTINUE WITH SEG2:CFE+SEG2:TIME+FILE:CHKFILE+*LIBRARY".
00067/023A  FILE SAVE                TAPEDIRLIST     SA  G  TPDL    RSTR:TAPEDIRLIST(1000)                                          
            4.3T1    53  FILE_SAVE.TAPEDIRLIST.SA.023       1 LINE     80    4 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:45
                         RSTR:TAPEDIRLIST     
0          PROGRAM TO LIST THE "TAPEDIR" FILE IN READABLE FORM.  ASSEMBLE USING THE FILESAVE
           MACROS (67/29).
            
           **********************************************************************************
           D4.3 CHANGES:
            
           CHANGED TO ACCEPT PARAMETER IN PAR FIELD WHICH GIVES NAME OF FILE TO LIST.
           DEFAULT IS RSTR:FILEDIR.MAS.
           **********************************************************************************
00067/024A  FILE SAVE                TAPEDIRLIST     OC  G          RSTR:TAPEDIRLIST(1,999)                                         
            4.3T1    54  FILE_SAVE.TAPEDIRLIST.OC.024       1 LINE     80    2 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:48
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00067/025   FILE SAVE                REGENERATE      SA  G          RSTR:REGENERATE(1005)                                           
            D4.2T1  718  FILE_SAVE_-_ONLINE.REGENE.SA.010   1 LINE     72    3 PAGE UM   HELFFRICH           APR. 02, 1979  00:53:36
                         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
           MACRO LIBRARY (67/29).
00067/026   FILE SAVE                REGENERATE      OC  G          RSTR:REGENERATE(1,998)                                          
            D4.2T1  719  FILE_SAVE_-_ONLINE.REGENE.OC.011   1 LINE     80    3 PAGE UM   HELFFRICH           APR. 02, 1979  00:53:36
0          CONTAINS A "$CONTINUE WITH *ENDJUNK" CARD.
00067/027   FILE SAVE                *FSM            C              *FSM                                                            
            D4.2T1  720  FILE_SAVE_-_ONLINE.*FSM.C.012      1 LINE     28    1 PAGE UM   HELFFRICH           APR. 02, 1979  00:53:37
                         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/028   FILE SAVE                WRITEUP         WF             RSTR:OLFS.W                                                     
            D4T3    290  FILE_SAVE_-_ONLINE.WRITEU.WF.016   1 LINE    102    5 PAGE UM   HELFFRICH           SEP. 18, 1977  22:14:43
                         RSTR:OLFS.W          
0          INFORMAL DOCUMENTATION FOR THE ONLINE FILE SAVE.
00067/029A  FILE SAVE                MACROS          SM  G          RSTR:FS.MACROS                                                  
            4.3T1    55  FILE_SAVE.MACROS.SM.029            1 LINE     72    3 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:50
                         RSTR:FS.MACROS       
0          FILESAVE MACRO LIBRARY.
0          Referenced by comments of: 67/1, 67/5, 67/17, 67/21, 67/23, 67/25, 67/39, 610/1, 671/1, 671/3, 682/37, 712/1,
                 712/2 
00067/030   FILE SAVE                RECOVER         SA  G          RSTR:RECOVER(1001)                                              
            D4.1T1  531  FILE_SAVE_-_ONLINE.RECOVE.SA.015   1 LINE     72    1 PAGE UM   HELFFRICH           MAY  13, 1978  18:16:50
                         RSTR:RECOVER         
0          SMALL PROGRAM TO COPY AND RE-LABEL A SET OF WEEKLY FILESAVE TAPES ERRONEOUSLY
           WRITTEN BY FILESAVE.
00067/031   FILE SAVE                RECOVER         OC  G          RSTR:RECOVER(1,999)                                             
            D4.1T1  532  FILE_SAVE_-_ONLINE.RECOVE.OC.016   1 LINE     80    2 PAGE UM   HELFFRICH           MAY  13, 1978  18:16:50
00067/032   FILE SAVE                FILEDIR.MAS     D            # MTS:TST.FILEDIR                                                 
                                                                                    UM   HELFFRICH                                  
                         RSTR:FILEDIR.MAS     
0          ONLINE FILESAVE FILE DIRECTORY FILE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00067/033   FILE SAVE                FILEDIR.NEW     D            # MTS:TST.FILEDIR                                                 
                                                                                    UM   HELFFRICH                                  
                         RSTR:FILEDIR.NEW     
0          ONLINE FILESAVE FILE DIRECTORY FILE.
00067/034   FILE SAVE                TAPEDIR         D            # MTS:TST.TAPEDIR                                                 
                                                                                    UM   HELFFRICH                                  
                         RSTR:TAPEDIR         
0          ONLINE FILESAVE TAPE DIRECTORY FILE.
00067/035   FILE SAVE                FSLOG           D            # MTS:TST.EMPTY                                                   
                                                                                    UM   HELFFRICH                                  
                         RSTR:FSLOG           
0          FILESAVE LOG FILE.
00067/036   FILE SAVE                RECOVERING      WF             RSTR:RECOVERING                                                 
            D4.2T1  721  FILE_SAVE_-_ONLINE.RECOVE.WF.021   1 LINE    106    3 PAGE UM   HELFFRICH           APR. 02, 1979  00:53:38
                         RSTR:RECOVERING      
0          WRITEUP DESCRIBING HOW TO REGENERATE THE FILE SAVE DIRECTORIES IF THEY ARE
           DAMAGED AS A RESULT OF A DISK DISASTER.
00067/037C  FILE SAVE                TESTER          SA  O          RSTR:FSTEST(1000)                                               
            4.3T1    56  FILE_SAVE.TESTER.SA.037            1 LINE     46    1 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:53
0          SERIES OF OBJECT MODULES TO BE CONCATENATED TO ONLINE FILESAVE (67/17) TO
           DEBUG IT.  $CONTINUES WITH FILEDSCB (502/9) + SAVEFILE (67/1) + VTOCREAD
           (67/3) + COPY:SYSDEFS (579/3).
00067/038C  FILE SAVE                TESTER          OC  O          RSTR:FSTEST(1,999)                                              
            4.3T1    57  FILE_SAVE.TESTER.OC.038            1 LINE     80    1 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:55
                         RSTR:FSTEST          
00067/039C  FILE SAVE                TAPE PREVIEW    SA  O          RSTR:TAPEPREVIEW(1000)                                          
            4.3T1    58  FILE_SAVE.TAPE_PREVIEW.SA.039      1 LINE     72    5 PAGE UM   HELFFRICH           APR. 05, 1980  13:52:57
0          PROGRAM INVOKED BY *SAV (67/16) TO PRINT OUT THE NEXT "N" ONLINE FILESAVE
           TAPES TO BE USED.  TAKES THE NUMBER "N" IN THE PARAMETER FIELD, WHERE "N"
           IS THE NUMBER OF TAPES TO PRINT OUT.  ASSEMBLE USING THE FILE SAVE MACROS
           (67/29).
00067/040C  FILE SAVE                TAPE PREVIEW    OC  O          RSTR:TAPEPREVIEW(1,999)                                         
            4.3T1    59  FILE_SAVE.TAPE_PREVIEW.OC.040      1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  13:53:00
                         RSTR:TAPEPREVIEW     
00069      *DRAW                                     SA           # (OBSOLETE)                                                      
            D4T1    210  DRAW..SA.                          1 SEQ      80   13 PAGE UM                       JULY 30, 1973  23:38.23
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00071/001   LISTSTAT                                 SA  G          S0811 REBATE 'REBATES' FSNAME=LISTSTAT                          
            D4.2T1   29  LISTSTAT..SA.001                   1 LINE     80   10 PAGE UM   LIFT                JAN. 05, 1979  16:23:53
0          PROGRAM TO PRINT *STATISTICS RECORDS.  WILL READ RECORDS (ON SCARDS) FROM A
           FILE OR BLOCKED TAPE (SUCH AS PRODUCED BY *CMB).  PRINTS OUTPUT ON SPRINT.
           ALTERNATE SUBROUTINE ENTRY LIST#, USED BY RSCAN (707), LETS CALLER SPECIFY
           I/O FDUBS INSTEAD OF SCARDS/SPRINT.  PROGRAM MUST BE RUN WITH PROT=OFF.
           IF A RATE NUMBER APPEARS IN THE *STATISTICS RECORD AND THE JOB WAS RUN AFTER
           THE BEGINNING OF 1974, THE MTS GETRATES SUBROUTINE (651/8) IS CALLED TO
           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(5) (651/2).
           SOURCE IN LINES (1,999).
0          Referenced by comments of: 355/1, 707/3, 753/4 
00071/002   LISTSTAT                                 OC  G          W035:LISTSTAT                                                   
            D4.2T1   30  LISTSTAT..OC.002                   1 SEQ      80    3 PAGE UM   LIFT                MAR. 26, 1979  02:17:32
00072      *FORTEDIT                                 SA  O        # (OBSOLETE)                                                      
            D3T1    170  FORTEDIT..SA.1                     1 SEQ      80   20 PAGE UM                       JULY 30, 1973  23:39.26
00073/001  *DSK                                      C              *DSK                                                            
            D4.2T1   31  DSK..C.001                         1 LINE     32    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:17:32
                         FILE:*DSK            
0          COMMAND FILE TO RUN SYS:DSK (073/4).  INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE.
0          Referenced by comments of: 682/4 
00073/002A *DSK                      *DSO            C              *DSO                                                            
            4.3T1    60  DSK.*DSO.C.002                     1 LINE     21    1 PAGE UBC  HOGG      MTA       APR. 05, 1980  13:53:03
                         *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/4) 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.
            
           THIS WAS FORMERLY A PART OF DISK SPACE (644), WHICH HAS BEEN REPLACED BY *DSK.
00073/003A *DSK                      DSKMAN          SA  G  DMAN    FILE:DSKMAN(1000)                                               
            4.3T1    61  DSK.DSKMAN.SA.003                  1 LINE     80    9 PAGE UM   HELFFRICH           APR. 05, 1980  13:53:05
                         FILE:DSKMAN          
0          THIS PROGRAM IS A FRONT-END TO THE VOLREL SUBROUTINE (IN 482/5).  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.  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/33).  SEE 682/4
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          FOR A WRITEUP.
00073/004A *DSK                      DSKMAN          OC  G          SYS:DSK                                                         
            4.3T1    62  DSK.DSKMAN.OC.004                  1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  13:53:07
                         SYS.:DSK             
0          Referenced by comments of: 73/1, 73/2 
00074      *2250EDIT                                 SA           # (OBSOLETE)                                                      
            D4T1    216  2250EDIT..SA.                      1 SEQ      80   29 PAGE UM                       JULY 30, 1973  23:39.56
00076/001   RESERVE DISK             *RSV            C              *RSV                                                            
            D4.2T1   32  RESERVE_DISK.*RSV.C.001            1 LINE     45    1 PAGE UM   MTA                 MAR. 26, 1979  02:17:33
                         *RSV                 
0          COMMAND FILE TO RUN THE DISK RESERVE PROGRAM (076/3).  INVOKED BY ENTERING "MTS *RSV"
           ON OPERATOR'S CONSOLE.
00076/002   RESERVE DISK             RESERVE PGM     SA  G          S0720 'D3T1' FSNAME=RESERVE_DISK.RESERVE_PGM.SA.2(1)         177
            D4T1    218  RESERVE_DISK.RESERVE_PGM.SA.002    1 LINE     80    1 PAGE UM   MTA                 JULY 30, 1973  23:40.00
0          PROGRAM TO EXECUTE A RESERVE COMMAND FOR A DISK PACK. USED ONLY WITH 2844 OR 2 TAIL SWITCH.
00076/003   RESERVE DISK             RESERVE PGM     OC  G          SYS:RSV                                                         
            D4T1    219  RESERVE_DISK.RESERVE_PGM.OC.003    1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  21:56:39
                         SYS.:RSV             
0          Referenced by comments of: 76/1 
00077/001   STATBUFF                                 SA  G          S0563 D4T1 VLO FSNAME=STATBUFF..SA.001(1)                    220
            D4T1    220  STATBUFF..SA.001                   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  21:56:41
0          POINTS TO THE BUFFER USED BY THE STAT JOB (079) IF IT IS ACTIVE.  THE SECOND
           WORD POINTS TO THE STAT JOB'S JOB TABLE.
00077/002   STATBUFF                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00078/001   STAT SUBROUTINE                          SA  G          S0563 D4T1 VLO FSNAME=STAT_SUBROUTINE..SA.001(1)             221
            D4T1    221  STAT_SUBROUTINE..SA.001            1 LINE     80    4 PAGE UM   HELFFRICH           JULY 27, 1977  21:56:44
0          SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O.
00078/002   STAT SUBROUTINE                          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00079/001   STAT JOB                                 SA  G  STAT    W170:STAT.JOB(1005)                                             
            D4.1T1   33  STAT_JOB..SA.001                   1 LINE     80   16 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:02
                         W170:STAT.JOB        
0          THE "STAT" JOB WILL SAVE STATISTICS ABOUT HARDWARE INTERRUPTS, MTS I/O OPERATIONS,
           AND INTERNAL SUPERVISOR FUNCTIONS (SUCH AS THE EXECUTION OF SIO) ON TAPE.  CAN PRODUCE
           LARGE AMOUNTS OF DATA QUICKLY.  *ANALYSIS (140) CAN HELP ANALYZE THE DATA.  COPIES
           COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:SETPARM (653).
1                                                                                               SUN SEP 08/96   19:03:19   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          Referenced by comments of: 77/1, 79/3, 140/1 
00079/002   STAT JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00079/003   STAT JOB                 STATSW          SA  G          W170:STAT.PROG(1005)                                            
            D4.1T1   34  STAT_JOB.STATSW.SA.004             1 LINE     72    5 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:07
                         W170:STAT.PROG       
0          THE STATSW JOB PROGRAM (WHICH IS ALSO A MTS-CALLABLE ROUTINE) PARSES AN INPUT
           LINE FROM OPER (OR SCARDS, IF MTS CALLED) AND CALLS THE STATSSUB SUBROUTINE IN
           THE STAT JOB ASSEMBLY (079/1) TO DO THE DIRTY WORK RELATING TO DATA COLLECTION
           RECORDING SWITCHING.  SEE THE COMMENTS IN THE SOURCE LISTING.
0          Referenced by comments of: 79/5 
00079/004   STAT JOB                 STATSW JOB      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00079/005   STAT JOB                 MTS STATSW      OC  G          MTS:STATSW                                                      
            D4.1T1   35  STAT_JOB.MTS_STATSW.OC.006         1 LINE     24    1 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:09
                         MTS.:STATSW          
0          RIP AND LCS CARDS TO FORCE REFERENCE TO THE MTS ENTRY POINT TO STATSW (079/3)
           TO ENABLE THE STATSW JOB TO BE RUN AS AN MTS PROGRAM.
00079/006   STAT JOB                 MEMO 393        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M393                              
            D4.1T1   36  STAT_JOB.WRITEUP.WF.007            1 LINE     97    2 PAGE UM   HELFFRICH           MAY  13, 1978  17:03:09
0          THIS IS COMPUTING CENTER MEMO 393 -- "DATA-COLLECTION FACILITY".
           REQUIRES HAND-INSERTED CHARACTERS.
0          Referenced by comments of: 140/2, 140/7 
00080/001   INIT JOB                                 SA  G          MTA:INITJOB(1,999)                                           78 
            D4.1T1   37  INIT_JOB..SA.001                   1 LINE     80    3 PAGE UM   MTA                 MAY  13, 1978  17:03:10
                         MTA.:INITJOB         
0          AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST).
           IF &OPERJOB (IN COPY:GLOBALS) IS SET, THE INIT JOB WILL START THE OPERATOR JOB
           AND WAIT UP TO 20 SECONDS FOR IT TO START. THEN, AFTER FINDING THE DISK LOCATIONS
           OF THE MTS FILE CATALOGS, IT TURNS OVER THE REMAINING WORK OF INITIALIZING THE
           SYSTEM TO MTS BY USING THE SVC STRTJB TO START "MTS *INIT" (SEE COMP 097).
           INSTALLATIONS NOT USING THE OPERATOR JOB WILL WANT TO CHANGE THE VALUE OF &OPERJOB
           AND REASSEMBLE THE INIT JOB TO REMOVE THE 20 SECOND DELAY.  COPIES COPY:GLOBALS
           (1026/3).
00080/002   INIT JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00082       DMOD                                     SA           # (OBSOLETE)                                                      
            D4T1    224  DMOD..SA.001                       1 LINE     80    7 PAGE UM                       JULY 27, 1977  21:56:50
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00083/001A *EBCDBCD                                  SA  G          S0792 WSGFS FSNAME=EBCDBCD                                      
            4.3T1    63  EBCDBCD..SA.001                    1 LINE     80    3 PAGE UM   WSG                 JAN. 11, 1980  17:33:39
0          PROGRAM TO TRANSLATE ARBITRARY LENGTH 029 KEYPUNCH RECORDS TO 026.
           SOURCE IN LINES (1,999).
00083/002A *EBCDBCD                                  OC  G          *EBCDBCD                                                        
            4.3T1    64  EBCDBCD..OC.002                    1 LINE     80    1 PAGE UM   WSG                 APR. 05, 1980  13:55:17
                         *EBCDBCD             
00084/001   AUDIO RESP UNIT - 7772   ARURTN          SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.SA.001(1)    228
            D4T1    228  AUDIO_RESP_UNIT_-_7772.*A.SA.001   1 LINE     80   56 PAGE UM   WSG                 JULY 28, 1976  00:35:37
0          DEVICE SUPPORT ROUTINES FOR THE IBM 7772 AUDIO RESPONSE UNIT.  NO LONGER IN USE AT UM.
           REFERENCES *ARUDEF (084/4) AND *SPEAK (084/3).
           USES BAS AND BASR INSTRUCTIONS LIKE CRAZY.  ASSEMBLE WITH PAR=IS=67.
0          Referenced by comments of: 84/3, 84/4 
00084/002   AUDIO RESP UNIT - 7772   *ARURTN         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.OC.002(1)    229
            D4T1    229  AUDIO_RESP_UNIT_-_7772.*A.OC.002   1 LINE     80    4 PAGE UM   WSG                 JULY 28, 1976  00:35:45
0          OBJECT SUITABLE FOR LOADING INTO SHARED VM.
00084/003   AUDIO RESP UNIT - 7772   *SPEAK          D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*S.D.003(1)     230
            D4T1    230  AUDIO_RESP_UNIT_-_7772.*S.D.003    1 LINE    255   60 PAGE UM   WSG                 JULY 30, 1973  23:42.25
0          VOCABULARY FILE FOR *ARURTN (084/1).
0          Referenced by comments of: 84/1 
00084/004   AUDIO RESP UNIT - 7772   *ARUDEF         D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.004(1)     231
            D4T1    231  AUDIO_RESP_UNIT_-_7772.*A.D.004    1 LINE     10    1 PAGE UM   WSG                 JULY 30, 1973  23:42.34
0          PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1)
0          Referenced by comments of: 84/1 
00084/005   AUDIO RESP UNIT - 7772   DCVD SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.005(1)    232
            D4T1    232  AUDIO_RESP_UNIT_-_7772.DC.SA.005   1 LINE     80    5 PAGE UM   WSG                 FEB. 13, 1976  17:36:01
0          SUBROUTINE TO CONVERT DIGITALLY CODED VOICE FROM THE FORMAT EXPECTED BY THE 7772 TO A MORE REASONABLE FORMAT.
0          Referenced by comments of: 84/12, 84/15, 84/17 
00084/006   AUDIO RESP UNIT - 7772   DCVD SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.006(1)    233
            D4T1    233  AUDIO_RESP_UNIT_-_7772.DC.OC.006   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:06
0          PUT THIS IN *LIBRARY.
00084/007   AUDIO RESP UNIT - 7772   DCVC SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.007(1)    234
            D4T1    234  AUDIO_RESP_UNIT_-_7772.DC.SA.007   1 LINE     80    4 PAGE UM   WSG                 FEB. 13, 1976  17:36:17
0          SUBROUTINE TO CONVERT DIGITALLY CODED VOICE TO THE FORMAT EXPECTED BY THE 7772.
1                                                                                               SUN SEP 08/96   19:03:19   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          Referenced by comments of: 84/12, 84/15, 84/17 
00084/008   AUDIO RESP UNIT - 7772   DCVC SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.008(1)    235
            D4T1    235  AUDIO_RESP_UNIT_-_7772.DC.OC.008   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:26
0          PUT THIS IN *LIBRARY.
00084/009   AUDIO RESP UNIT - 7772   DCVG SUBR       SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.009(1)    236
            D4T1    236  AUDIO_RESP_UNIT_-_7772.DC.SA.009   1 LINE     80    3 PAGE UM   WSG                 FEB. 13, 1976  17:36:52
0          SUBROUTINE TO RETRIEVE THE DIGITALLY CODED VOICE USED BY THE 7772.
0          Referenced by comments of: 84/12, 84/15, 84/17 
00084/010   AUDIO RESP UNIT - 7772   DCVG SUBR       OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.010(1)    237
            D4T1    237  AUDIO_RESP_UNIT_-_7772.DC.OC.010   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:36:55
0          PUT THIS IN *LIBRARY.
00084/011   AUDIO RESP UNIT - 7772   *ARUVOC         D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.011(1)     238
            D4T1    238  AUDIO_RESP_UNIT_-_7772.*A.D.011    1 LINE    102   11 PAGE UM   WSG                 JULY 30, 1973  23:42.36
0          LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING.
00084/012   AUDIO RESP UNIT - 7772   CREVOC          SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.012(1)    239
            D4T1    239  AUDIO_RESP_UNIT_-_7772.*C.SA.012   1 LINE     80   19 PAGE UM   WSG                 FEB. 13, 1976  17:38:37
0          PROGRAM TO CREATE AN ARU VOCABULARY FILE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9)
           AS WELL AS THE MSG SUBR (084/13).
0          Referenced by comments of: 84/13, 84/14 
00084/013   AUDIO RESP UNIT - 7772   CREVOC MSG SUB  SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.013(1)    240
            D4T1    240  AUDIO_RESP_UNIT_-_7772.*C.SA.013   1 LINE     80    5 PAGE UM   WSG                 FEB. 25, 1976  12:52:33
0          MSG SUBR CALLED BY CREVOC (084/12). 
0          Referenced by comments of: 84/12, 84/14 
00084/014   AUDIO RESP UNIT - 7772   *CREVOC         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.OC.014(1)    241
            D4T1    241  AUDIO_RESP_UNIT_-_7772.*C.OC.014   1 LINE     80    3 PAGE UM   WSG                 FEB. 25, 1976  12:51:48
0          OBJECT FOR CREVOC (084/12) AND THE MSG SUBR (084/13).
           ALSO CONTAINS ERROR MESSAGES STARTING AT LINE 800.
           LINE NUMBERS ARE IMPORTANT IN THIS FILE.
00084/015   AUDIO RESP UNIT - 7772   VLIST           SA  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.SA.015(1)    242
            D4T1    242  AUDIO_RESP_UNIT_-_7772.*V.SA.015   1 LINE     80    4 PAGE UM   WSG                 FEB. 13, 1976  17:39:10
0          PROGRAM TO EITHER SPEAK OR PRINT AN AUDIO RESPONSE UNIT VOCABULARY FILE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00084/016   AUDIO RESP UNIT - 7772   *VLIST          OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.OC.016(1)    243
            D4T1    243  AUDIO_RESP_UNIT_-_7772.*V.OC.016   1 LINE     80    1 PAGE UM   WSG                 FEB. 13, 1976  17:39:14
00084/017   AUDIO RESP UNIT - 7772   DCVDEC          SF  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.SF.017(1)    244
            D4T1    244  AUDIO_RESP_UNIT_-_7772.*D.SF.017   1 LINE     67    1 PAGE UM   WSG                 FEB. 13, 1976  17:39:56
0          PROGRAM TO FORM AND LIST THE INFO WHICH WOULD BE TRANSMITTED TO THE ARU FOR A TEXT LINE.
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
00084/018   AUDIO RESP UNIT - 7772   *DCVDEC         OC  G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.OC.018(1)    245
            D4T1    245  AUDIO_RESP_UNIT_-_7772.*D.OC.018   1 LINE    454    1 PAGE UM   WSG                 FEB. 13, 1976  17:40:05
00084/019   AUDIO RESP UNIT - 7772   *FSK            D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*F.D.019(1)     246
            D4T1    246  AUDIO_RESP_UNIT_-_7772.*F.D.019    1 LINE     31    1 PAGE UM   WSG                 JULY 30, 1973  23:43.01
0          AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO 11-BIT (FRAME SIZE) ASCII CODE.
00084/020   AUDIO RESP UNIT - 7772   *IM             D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*I.D.020(1)     247
            D4T1    247  AUDIO_RESP_UNIT_-_7772.*I.D.020    1 LINE     87    1 PAGE UM   WSG                 JULY 30, 1973  23:43.03
0          AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO INTERNATIONAL MORSE CODE.
00084/021   AUDIO RESP UNIT - 7772   *NOTES          D   G          S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*N.D.021(1)     248
            D4T1    248  AUDIO_RESP_UNIT_-_7772.*N.D.021    1 LINE     91    2 PAGE UM   WSG                 JULY 30, 1973  23:43.05
0          AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES.
00086/001  *2501RTN                                  SA  G          S0563 D4T1 VLO FSNAME=2501RTN..SA.001(1)                     249
            D4T1    249  2501RTN..SA.001                    1 LINE     80   16 PAGE UM   DWB                 JULY 27, 1977  21:58:36
0          MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2501 CARD READER.  CALLS BINEBCD (243).
0          Referenced by comments of: 243/1 
00086/002  *2501RTN                                  OC  G          *2501RTN                                                        
            D4T1    250  2501RTN..OC.002                    1 LINE     80    2 PAGE UM   DWB                 JULY 27, 1977  21:58:38
                         *2501RTN             
0          OBJECT FOR 2501 ROUTINES AND OMR CONVERT SUBR (576/2).
00087    A  LLMPSEQU                                 SA  G          COPY:LLMPSEQU                                                   
            4.3T1    65  LLMPSEQU..SA.                      1 LINE     80   13 PAGE UM   MTA                 APR. 28, 1980  19:39:25
                         COPY:LLMPSEQU        
0          COPY SECTION FOR DEFINITIONS OF JOB TABLE, DEVICE LIST, DEVICE TABLE, ETC. WHICH
           IS COPIED BY MANY PROGRAMS.  ITS NAME COMES STRAIGHT FROM ANCIENT HISTORY (LINCOLN
           LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES).
           THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING
           AT LINE 100.
           NOTE:  PROGRAMS COPYING THIS FILE MUST FIRST COPY COPY:GLOBALS (1026/3).
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 24/1, 42/1, 44/1, 45/1, 46/1, 79/1, 101/1, 104/83,
                 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/4, 400/10, 400/12,
                 400/18, 413/1, 464/1, 482/5, 482/7, 500/50, 507/2, 509/1, 513/1, 531/1, 531/6, 531/13, 539/1, 540/1, 540/3,
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
 
                 540/6, 540/8, 540/18, 540/27, 545/3, 545/16, 554/1, 554/3, 570/1, 577/2, 577/4, 577/7, 578/1, 615/15, 618/1,
                 621/2, 629/4, 634/1, 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/10, 682/22, 693/1, 731/3,
                 732/1, 777/1, 1012/1, 1021/1, 1021/4, 1081/1, 3024/1, 4000/1 
00090      *HEXLIST                                  SA           # (OBSOLETE)                                                      
            D3T1    202  HEXLIST..SA.1                      1 LINE     80    6 PAGE UM                       JULY 30, 1973  23:43.29
00091      *DOUBLE                                   SA           # (OBSOLETE)                                                      
            D3T1    204  DOUBLE..SA.1                       1 LINE     80   16 PAGE UM                       JULY 27, 1973  22:03.05
00092/001A  FILE RESTORE             RSTFMT0         SA  G  FMT     RSTR:RSTFMT0(1000)                                              
            4.3T1    66  FILE_RESTORE.RSTFMT0.SA.001        1 LINE     80   48 PAGE UM   HELFFRICH           APR. 05, 1980  13:55:22
                         RSTR:RSTFMT0         
0          MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502).
           ASSEMBLE USING *SYSMAC.
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           CHANGED TO HANDLE NEW TAPE BLOCKING FACTORS.
           *****************************************************************************
00092/002A  FILE RESTORE             RSTFMT1         SA  G  FMT1    RSTR:RSTFMT1(1000)                                              
            4.3T1    67  FILE_RESTORE.RSTFMT1.SA.002        1 LINE     80   31 PAGE UM   HELFFRICH           APR. 05, 1980  13:55:30
                         RSTR:RSTFMT1         
0          SUBROUTINE CALLED BY 092/1.  ASSEMBLE USING *SYSMAC.
            
           ******************************************************************************
           D4.3 CHANGES:
            
           INCREASED FILE ROUTINE SCRATCH AREA SIZES.
           ******************************************************************************
00092/003A  FILE RESTORE             RSTFMT2         SA  G  FMT2    RSTR:RSTFMT2(1000)                                              
            4.3T1    68  FILE_RESTORE.RSTFMT2.SA.003        1 LINE     80   41 PAGE UM   HELFFRICH           APR. 05, 1980  13:55:36
                         RSTR:RSTFMT2         
0          SUBROUTINE CALLED BY 092/1 AND *RESTORE (712).  ASSEMBLE USING *SYSMAC AND 
           COPY:FILE.MACROS (482/33).
            
           *****************************************************************************
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT:
            
            
           RD4.2A (RD16) CHANGES:
            
              CHANGED TO PRINT OUT AMOUNT OF SPACE NEEDED FOR A FILE IF ITS RESTORATION
              CAUSES THE ACCOUNT'S SPACE MAXIMUM TO BE EXCEEDED.
            
            
           RD4.2C CHANGES:
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0             CHANGED TO HANDLE NEW TAPE BLOCKING FACTORS.
           *****************************************************************************
0          Referenced by comments of: 712/1, 712/2, 712/3 
00092/004A  FILE RESTORE                             OC  G          RSTR:RST                                                        
            4.3T1    69  FILE_RESTORE..OC.004               1 LINE     80   25 PAGE UM   HELFFRICH           APR. 05, 1980  13:55:49
                         RSTR:RST             
0          OBJECT FROM 092/1, 092/2, AND 092/3.
00092/005   FILE RESTORE             *RST            C              *RST                                                            
            D4.2T1   38  FILE_RESTORE.*RST.C.005            1 LINE     37    1 PAGE UM   HELFFRICH           MAR. 26, 1979  02:20:51
                         RSTR:*RST            
0          COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST).  INVOKED BY ENTERING "MTS *RST"
           ON OPERATOR'S CONSOLE.
00094/001  *TIME                                     SA  G  TIME    W062:TIME                                                       
            D4T1    257  TIME..SA.001                       1 LINE     80    2 PAGE UM   TIFFANY             JULY 27, 1977  21:59:07
0          PROGRAM TO PRINT TIME AND DATE.  CHANGED FOR STANDARDIZATION.
00094/002  *TIME                                     OC  G          *TIME                                                           
            D4T1    258  TIME..OC.002                       1 SEQ     247    1 PAGE UM   TIFFANY             JULY 27, 1977  21:59:09
                         *TIME                
00094/003  *TIME                     EXPANDED VERS   SA  G          S0563 D4T1 VLO FSNAME=TIME.EXPANDED_VERS.SA.003(1)           259
            D4T1    259  TIME.EXPANDED_VERS.SA.003          1 LINE    120    3 PAGE UM   HELFFRICH           JULY 27, 1977  21:59:11
0          IMPROVED (?) VERSION OF *TIME WHICH GIVES EXTENDED TIME INFORMATION. 
00094/004  *TIME                     EXPANDED VERS   OC  G          S0563 D4T1 VLO FSNAME=TIME.EXPANDED_VERS.OC.004(1)           260
            D4T1    260  TIME.EXPANDED_VERS.OC.004          1 LINE     80    2 PAGE UM   HELFFRICH           JULY 27, 1977  21:59:13
0          THIS OBJECT COULD BE PLACED IN *TIME INSTEAD OF 094/2.
00096/001  *SYMBOLS                                  SA  G  SYMB    W009:SYMBOL.S                                                   
            D4.2T1   39  SYMBOLS..SA.001                    1 LINE     80   13 PAGE UM   SHERRY              MAR. 26, 1979  02:20:51
                         W009:SYMBOL.S        
0          PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL.
00096/002  *SYMBOLS                                  OC  G          *SYMBOLS                                                        
            D4.2T1   40  SYMBOLS..OC.002                    1 LINE   1628    3 PAGE UM   SHERRY              MAR. 26, 1979  02:20:54
                         *SYMBOLS             
00097/001   INIT                     *INIT           C              *INIT                                                           
            D4.2T1   41  INIT.*INIT.C.001                   1 LINE     47    1 PAGE UM   ENGLE               MAR. 26, 1979  02:20:54
                         INIT:*INIT           
0          THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL.  NO
           OPERATOR ACTION IS REQUIRED.  THIS COMMAND FILE SIGNS ON UNDER THE ID INIT
           AND SOURCES TO INIT:INITCMD.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY
           ACCINITL IN INIT:INIT TO PRODUCE LISTS OF THE USER IDS WHICH WERE NOT PROPERLY
           SIGNED OFF WHEN THE SYSTEM LAST WENT DOWN (IF ANY) SO THAT THEY MAY BE "FIXED".
00097/002A  INIT                     INIT:INITCMD    C              INIT:INITCMD                                                    
            4.3T1    70  INIT.INIT:INITCMD.C.002            1 LINE     62    1 PAGE UM   MTA                 APR. 05, 1980  13:55:51
                         INIT:INITCMD         
0          THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RELOAD.
           THE FOLLOWING FUNCTIONS ARE PERFORMED:
            
            (1)  INIT:REASON (97/20) IS CREATED AND EMPTIED.
            (2)  THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF
                 IN *STATISTICS (50/5) TO VERIFY (AT LEAST PARTIALLY) THAT THEY ARE CORRECT.
            (3)  THE PROGRAM INITLOG (097/10) IS RUN TO OBTAIN THE REASON FOR RELOADING FROM THE
                 OPERATOR AND WRITE IT AT THE END OF THE FILE INIT:LOG (97/19) AND INTO INIT:REASON.
            (4)  FMT2305 IS RUN TO FORMAT THE 2305 FIXED HEAD FILE(S).  IT READS A LIST
                 OF FHF NAMES FROM THIS FILE.  AS DISTRIBUTED, THE LIST CONSISTS OF FF00, FF08, FF10,
                 FF18, AND FF20.
            (5)  THE PDP IS STARTED.
            (6)  INIT:REASON IS COPIED TO THE END OF INIT:RELOADLOG (97/21).
            (7)  RAMROD IS RUN TO WRITE THE COMMENTS FOR THE CURRENT SYSTEM TO INIT:REASON(2000),
                 WHICH IS THEN COPIED TO OPER.
            (8)  THE POST-IPL LOADER, MTS *S2L (559/1), IS STARTED.
            (9)  MTS *CMD (531/5) IS STARTED TO BEGIN THE CMDSTAT DATA COLLECTION.
            (10) MTS *FSM (67/27) IS STARTED TO CLEAN UP THE ONLINE FILE SAVE DIRECTORIES.
            (11) MTS *STI (50/2) IS STARTED TO CHECK FOR A SYSTEM CRASH DURING THE LAST STATISTICS SAVE.
            (12) THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED.
            (13) THE CLEAN PROGRAM (97/6) IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN
                 THE SYSTEM LAST WENT DOWN.
            (14) THE INIT PROGRAM (97/3) IS RUN.  IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES)
                 OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE 5 LISTS (IN THE FILES INIT1,
                 INIT2, ETC.) OF THE USER IDS WHICH WERE SIGNED-ON WHEN THE SYSTEM LAST WENT DOWN.
                 WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS AVAILABLE" ON
                 THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS.  WHEN FINISHED, THE TOTAL
                 NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE.  NO BATCH JOBS SHOULD BE ALLOWED
                 TO RUN (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE
                 IT IS POSSIBLE THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH
                 ARE STILL BEING FIXED.  IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING
                 FILE IS AVAILABLE" MESSAGE PRINTS AND AFTER THE "POST-IPL SYSTEM LOADED OK"
                 MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE ABLE TO SIGNON UNTIL THEIR
                 USER IDS HAVE BEEN FIXED.  THESE USERS WILL GET A MESSAGE WHICH INDICATES THAT
                 THEIR IDS ARE TEMPORARILY UNAVAILABLE.
0          Referenced by comments of: 50/2, 97/12, 531/5, 559/1 
00097/003A  INIT                     INIT:INIT       OE  G          INIT:INIT                                                       
            4.3T1    71  INIT.INIT:INIT.OE.003              1 LINE   1430    4 PAGE UM   ENGLE               APR. 05, 1980  13:55:53
                         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                                                                                               SUN SEP 08/96   19:03:19   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          AT INIT(1000).
0          Referenced by comments of: 97/2, 104/81 
00097/004   INIT                     INITCHK         SA  G  ICHK    S0027 DISTRB FSNAME=INITCHK                                     
            D4T1    266  INIT.INIT:INITCHK.SA.004           1 LINE     80    4 PAGE UM   ENGLE               DEC. 08, 1975  10:08:45
0          PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "REASONABLE" TIME AND DATE.
           COPIES GRDEF (104/70).
00097/005   INIT                     INIT:INITCHK    OC  G          S0027 DISTRB FSNAME=ICHK                                        
            D4T1    267  INIT.INIT:INITCHK.OC.005           1 LINE     80    3 PAGE UM   ENGLE               DEC. 08, 1975  10:10:31
                         INIT:INITCHK         
00097/006   INIT                     CLEAN           SA  G  SFDS    FILE:SFDESTRY                                                   
            D4T1    268  INIT.INIT:CLEAN.SA.006             1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  22:03:04
                         FILE:SFDESTRY        
0          PROGRAM TO DESTROY SCRATCH FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 97/2 
00097/007   INIT                     CLEAN           OC  G          INIT:CLEAN                                                      
            D4T1    269  INIT.INIT:CLEAN.OC.007             1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  22:03:07
                         INIT:CLEAN           
00097/008   INIT                     DINIT           SA  O  DNIT    S0720 'D3T1' FSNAME=INIT.INIT:DINIT.SA.8(1)                  221
            D4T1    270  INIT.INIT:DINIT.SA.008             1 LINE     80    7 PAGE UM   DWB                 AUG. 01, 1973  00:54.09
0          DRUM INITIALIZATION PROGRAM.  HAS TABLE OF DRUM NAMES TO USE ASSEMBLED IN.  AS DISTRIBUTED, THE TABLE
           CONTAINS TWO NAMES:  DRM1 AND DRM2.  IF THE PROGRAM CAN'T ACQUIRE ANY OF THE SPECIFIED DRUMS FROM THE
           SUPERVISOR, IT PRINTS "NNNN NOT AVAILABLE" AND GOES ON TO THE NEXT DRUM.
00097/009   INIT                     DINIT           OC             INIT:DINIT                                                      
            D4T1    271  INIT.INIT:DINIT.OC.009             1 LINE     80    4 PAGE UM   DWB                 JULY 27, 1977  22:03:14
                         INIT:DINIT           
00097/010   INIT                     INITLOG         SA  G          MTA:INITLOG(1,999)                                              
            D4.2T1   43  INIT.INITLOG.SA.010                1 LINE     72    1 PAGE UM   MTA                 MAR. 26, 1979  02:20:55
                         MTA.:INITLOG         
0          PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD.
           COPIES *CNFGINFODSECT (654).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 97/2 
00097/011   INIT                     INITLOG         OC  G          INIT:INITLOG                                                    
            D4.2T1   44  INIT.INITLOG.OC.011                1 LINE    525    1 PAGE UM   MTA                 MAR. 26, 1979  02:20:56
                         INIT:INITLOG         
0          NOTE:  THIS OBJECT FILE CONTAINS AN NCA CARD FOR CNFIGTBL, SINCE THERE IS
                  NO CNFIGTBL ON A 370.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00097/012   INIT                     FMT2305         SA  G          MTA:FMT2305.S                                                   
            D4.2T1   45  INIT.FMT2305.SA.012                1 LINE     68    4 PAGE UBC  MTA                 MAR. 26, 1979  02:20:57
                         MTA.:FMT2305.S       
0          MTS PROGRAM TO INITIALIZE (I.E. FORMAT) A 2305 OR ITS UNDERSTUDY.
           THIS PROGRAM IS RUN FROM INIT:INITCMD (097/2) AT STARTUP TO FORMAT A 2305
           BEFORE STARTING THE PDP.
00097/013   INIT                     FMT2305         OC  G          INIT:FMT2305                                                    
            D4.2T1   46  INIT.FMT2305.OC.013                1 SEQ      80    2 PAGE UBC  MTA                 MAR. 26, 1979  02:20:58
                         INIT:FMT2305         
00097/014   INIT                     INIT:INIT1      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT1           
0          LIST OF USER IDS IN *ACCOUNTING1 WHICH NEED TO BE FIXED AFTER IPL.
00097/015   INIT                     INIT:INIT2      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT2           
0          LIST OF USER IDS IN *ACCOUNTING2 WHICH NEED TO BE FIXED AFTER IPL.
00097/016   INIT                     INIT:INIT3      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT3           
0          LIST OF USER IDS IN *ACCOUNTING3 WHICH NEED TO BE FIXED AFTER IPL.
00097/017   INIT                     INIT:INIT4      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT4           
0          LIST OF USER IDS IN *ACCOUNTING4 WHICH NEED TO BE FIXED AFTER IPL.
00097/018   INIT                     INIT:INIT5      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   ENGLE                                      
                         INIT:INIT5           
0          LIST OF USER IDS IN *ACCOUNTING5 WHICH NEED TO BE FIXED AFTER IPL.
00097/019   INIT                     INIT:LOG        D            # MTS:TST.LOG                                                     
                                                                                    UM   MTA                                        
                         INIT:LOG             
0          LOG OF SYSTEM RELOADS.  CONTAINS THE TIME AND DATE OF EACH RELOAD, THE NAME
           OF THE SYSTEM IPLED FROM, THE REASON FOR THE RELOAD (AS ENTERED BY THE OPERATOR),
           THE LIST OF SCRATCH FILES DESTROYED, AND THE LIST OF USER IDS FIXED.
0          Referenced by comments of: 97/2 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00097/020   INIT                     INIT:REASON     D            # MTS:TST.LOG                                                     
                                                                                    UM   MTA                                        
                         INIT:REASON          
0          FILE TO CONTAIN REASON FOR RELOADING AND CURRENT SYSTEM NAME AND COMMENTS
           AFTER EACH RELOAD.
0          Referenced by comments of: 97/2 
00097/021   INIT                     INIT:RELOADLOG  D            # MTS:TST.LOG                                                     
                                                                                    UM   MTA                                        
                         INIT:RELOADLOG       
0          LOG OF SYSTEM RELOADS.  SAME AS INIT:LOG EXCEPT DOES NOT CONTAIN THE LISTS
           OF SCRATCH FILES OR USER IDS.
0          Referenced by comments of: 97/2 
00098      *SQUASH                                   SA           # (OBSOLETED BY *LINKEDIT, COMP 297)                              
            D2T1    278                                                             UM                                              
00099      *IHC                                      M            # (OBSOLETE)                                                      
            D3T1    225  IHC..M.                            1 LINE     68    1 PAGE UM                       JULY 30, 1973  23:46.44
00100/001  *FILEDUMP                                 SA  G  FILD    W045:FILEDUMP                                                   
            D4T1    276  FILEDUMP..SA.001                   1 LINE     80    8 PAGE UM   PIRKOLA             JULY 27, 1977  22:03:25
0          USE *TAPEDUMP INSTEAD.
00100/002  *FILEDUMP                                 OC  G          *FILEDUMP                                                       
            D4T1    277  FILEDUMP..OC.002                   1 LINE     80    3 PAGE UM   PIRKOLA             JULY 27, 1977  22:03:27
                         *FILEDUMP            
00101/001A  MOUNT COMMAND                            SA  G  MNT     WSG:MOUNTCMD                                                    
            4.3T1    72  MOUNT_COMMAND..SA.001              1 LINE     80   71 PAGE UM   WSG                 APR. 05, 1980  13:55:56
                         WSG.:MOUNTCMD        
0          CLS TO MOUNT PRIVATE DEVICES.  SUPPORTS MAGNETIC TAPES, 2671 PAPER TAPE READER, PAPER TAPE
           PUNCHES ON THE UM DATA CONCENTRATOR, 7772 AUDIO RESPONSE UNIT, FLOPPY DISKS, AND THE MERIT
           COMPUTER NETWORK. MOUNT CONTAINS GLOBAL ASSEMBLY PARAMETERS (DESCRIBED IN THE SOURCE) FOR
           THE MAXIMUM NUMBER OF DEVICES OF EACH TYPE (IF ZERO, THE CODE AND TABLES TO SUPPORT THAT
           TYPE ARE DELETED). ANOTHER ASSEMBLY PARAMETER SPECIFIES THE RACK NUMBER FOR SCRATCH TAPES
           (DISTRIBUTED AS 'POOL').  OTHER PARAMETERS SPECIFY THE DEFAULT DENSITY FOR SCRATCH TAPES
           (DISTRIBUTED AS 8EN FOR 7-TRACK AND 1600 FOR 9-TRACK).  ANOTHER PARAMETER SPECIFIES WHETHER
           THE TAPE ID IS REQUIRED (AS DISTRIBUTED, IT IS).  ANOTHER PARAMETER SPECIFIES THE SUPERVISOR
           LOCK NUMBER, IF ANY, TO BE USED FOR INTERLOCKING THE OPERATOR COMMUNICATION, I.E. TO
           PREVENT MULTIPLE MOUNT REQUESTS FROM BEING PRESENTED TO THE OPERATOR SIMULTANEOUSLY
           DISTRIBUTED AS ZERO, I.E. NO INTERLOCKING).  MOUNT CALLS THE MNTSTAT SUBROUTINE (447/1)
           TO RECORD A MOUNT STATISTICS RECORD FOR EVERY MOUNT REQUEST.  IT ALSO CALLS CUINFO FOR
           EACH MOUNT DONE BY THE OPERATOR TO INCREMENT THE MOUNT COUNT (FOR BILLING).  MOUNT WILL
           REFUSE ANY MOUNT REQUIRING OPERATOR INTERVENTION IF THE SYSTEM IS IN UNATTENDED MODE
           (BATCH JOBS ARE RERUN).  INTERFACES WITH TAPESHARE (1067/5).  COPIES COPY:LLMPSEQU (087),
           COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND COPY:JOBSTA (413/9).  ASSEMBLE
           USING COPY:MTS.MACROS (344/3) AND COPY:SETPARM (653/1).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           FLOPPY DISK (FDSK) SUPPORT ADDED.
           *****************************************************************************
0          Referenced by comments of: 101/2, 447/1, 1067/5 
00101/002A  MOUNT COMMAND                            OC  G          *CLSMOUNT                                                       
            4.3T1    73  MOUNT_COMMAND..OC.002              1 LINE     80    7 PAGE UM   WSG                 APR. 05, 1980  13:56:03
                         *CLSMOUNT            
0          OBJECT FOR THE MOUNT COMMAND CLS (101/1), THE MOUNT SUBROUTINE (271/1), THE
           MNTSTAT SUBROUTINE (447/1), THE DISMOUNT SUBROUTINE (270/1), AND THE
           TAPESHARE CHECK SUBROUTINE (1067/5).  THIS FILE IS LOADED INTO SHARED VM
           AFTER IPL BY PISTLE.
            
00101/003   MOUNT COMMAND            *MOUNT                       # (OBSOLETED BY $MOUNT)                                           
            D3T1    230  MOUNT.*MOUNT.OC.3                  1 LINE     24    1 PAGE UM                       JULY 30, 1973  23:47.04
00102      *DISMOUNT                                              # (OBSOLETED BY $RELEASE)                                         
            D3T1    232  DISMOUNT.*DISMOUNT.OC.3            1 LINE     24    1 PAGE UM                       JULY 30, 1973  23:47.08
00104/001   ACCOUNTING               ACCFORMAT       SA  G  AFMT    S0027 DISTRB FSNAME=ACCFORMAT                                   
            D4.2T1   49  ACCOUNTING.ACCFORMAT.SA.001        1 SEQ      80    2 PAGE UM   ENGLE               JAN. 09, 1979  15:58:55
0                     COMPONENT 104 CONTAINS THE SOURCE AND OBJECT FOR THE MTS ACCOUNTING ROUTINES.
                      THE FOLLOWING PROGRAMS CAN BE CONSTRUCTED BY COMBINING THE OBJECT FILES AS INDICATED BELOW:
            
                          *ACCRESTORE              ASTR+AFLU+AIO+GTFL+ACAT+FLRT+CSIG+SYSDEFS
                          *STATUS                  STAT
                          ACC:ACCDISPLAY           ADSP+ACCLIB
                          ACC:ACCERRORSCAN         ACNS+ACCLIB
                          ACC:ACCFILCHARGE         ADSP+AFLC+ACCLIB
                          ACC:ACCHEXDISP           ADSP+AXPR+ACCLIB
                          ACC:ACCLISTING           ALST+ACCLIB
                          ACC:ACCMAINT             AMAT+ACCLIB
                          ACC:ACCPASWD             APSW+GTFL+AIO+FLNM
                          ACC:ACCRETRIEVE          ARTV+ATRD
                          ACC:ACCSAVE              ASAV+ACCLIB
                          ACC:DIRDISPLAY           DDSP+ACCLIB
                          ACC:DIRLIST              DLST+ACCLIB
                          ACC:GETFILECHG           FLUP+AIO+FLRT+TTRP+GTFL+SYSDEFS
                          ACC:PROJECTDISP          APDS+ACCLIB
                          ACC:PROJECTIDS           APID+ACCLIB
                          ACC:PROJECTLIST          APLS+ACCLIB
                          ACC:PROJECTMAINT         APMT+ACCLIB
                          ACC:STAPROJECT           SPCL+(AMXM PATCHED FROM SPPA)+AUPR+ACCLIB
                          ACCUPDAT                 ARDW+PRINT+AIO+TTRP+GTFL+OLDPRINT+ACCPRINT+ACCUPDAT
                          INIT:INIT(1,999)         AINT+AFLU+AIO+ACAT+FLRT+CSIG+GTFL+SYSDEFS
                          INIT:INIT(1000)          AINS+FLNM+GTFL
            
1                                                                                               SUN SEP 08/96   19:03:19   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                         ACC:ACCLIB               ACAT+AERR+AFIN+AFKF+AFLA+AFIO+AFLU+AIO+ALPR+ALST+APLS+APPR+APRT+CSIG+DIR+DPRT+FIOC
                                                   +FLNM+FLRT+FLSH+GPID+GTFL+IOLC+LCNT+LOG+RBTA+STRD+TMCL+TTRP+SYSDEFS
                                                   (SEE ACCOUNTING CLS FOR FIOC (631/12) AND REBATE FOR RBTA (632/4) AND STRD (632/6)).
            
                      ACCFORMAT (104/1) IS THE COPY SECTION THAT DESCRIBES THE ACCOUNTING FILE RECORD FORMAT.
                      IT IS COPIED UNDER THE NAME "ACCFORMAT" BY COMPONENTS OF THE ACCOUNTING SYSTEM.
            
                      ****** NOTE:  ACCOUNTING PROGRAMS HAVE A GBLB SYMBOL (&DC) TO ELIMINATE THE ASSEMBLY
                                    OF INSTRUCTIONS FOR THE DATA CELL.  IF THE VALUE OF &DC IS 0, THE
                                    INSTRUCTIONS WILL NOT BE ASSEMBLED.  IF THE VALUE IS 1, THE INSTRUCTIONS
                                    WILL BE ASSEMBLED.  ALL DISTRIBUTION PROGRAMS HAVE THE VALUE SET TO 0,
                                    AND THE RESULTS OF SETTING &DC TO 1 ARE NOT GUARANTEED.
0          Referenced by comments of: 104/1, 104/4, 104/6, 104/12, 104/14, 104/20, 104/31, 104/50, 104/53, 104/64, 104/66,
                 104/79, 104/81, 104/86, 104/88, 104/91, 104/97, 502/1, 586/1, 631/8, 631/11, 632/3 
00104/002   ACCOUNTING               ACCPROJFMT      SA  G          S0027 DISTRB FSNAME=ACCPROJFMT                                  
            D4.2T1   50  ACCOUNTING.ACCPROJFMT.SA.002       1 LINE     80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:25:29
0          COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT.
0          Referenced by comments of: 104/20, 104/35, 104/42, 104/53, 104/134, 500/36, 500/40, 631/8 
00104/003   ACCOUNTING               ACCPROJFMT      UC  G        # S0027 DISTRB FSNAME=ACCPROJFMTUP                                
            D4.2T1   51  ACCOUNTING.ACCPROJFMT.UC.003       1 LINE     67    1 PAGE UM   ENGLE               JAN. 25, 1979  16:25:32
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/004   ACCOUNTING               ACCERROR        SA  G  AERR    S0027 DISTRB FSNAME=ACCERROR                                    
            D4.2T1   52  ACCOUNTING.ACCERROR.SA.004         1 LINE     80    8 PAGE UM   ENGLE               JAN. 10, 1979  16:30:18
0          CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN.
           COPIES ACCFORMAT (104/1).
00104/005   ACCOUNTING               ACCERROR        OC  G          S0027 DISTRB FSNAME=AERR                                        
            D4.2T1   53  ACCOUNTING.ACCERROR.OC.005         1 LINE     80    2 PAGE UM   ENGLE               JAN. 11, 1979  11:04:50
00104/006   ACCOUNTING               ACCPRINT        SA  G  APRT    S0027 DISTRB FSNAME=ACCPRINT                                    
            D4.2T1   54  ACCOUNTING.ACCPRINT.SA.006         1 LINE     80   10 PAGE UM   ENGLE               JAN. 09, 1979  15:31:15
0          FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS.
           COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/127 
00104/007   ACCOUNTING               ACCPRINT        OC  G          S0027 DISTRB FSNAME=APRT                                        
            D4.2T1   55  ACCOUNTING.ACCPRINT.OC.007         1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  15:31:21
00104/008   ACCOUNTING               ACCLIST         SA  G  ALST    S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.SA.8(1)               240
            D4T1    286  ACCOUNTING.ACCLIST.SA.007          1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  16:22.45
0          READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD.
1                                                                                               SUN SEP 08/96   19:03:19   Page   48
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/009   ACCOUNTING               ACCLIST         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.OC.9(1)               241
            D4T1    287  ACCOUNTING.ACCLIST.OC.008          1 LINE     80    1 DISK UM   ENGLE               OCT. 03, 1972  15:12.04
00104/010   ACCOUNTING               ACCLIST         OC  G        # ACC:ACCLISTING                                                  
                                                                                    UM   ENGLE                                      
                         ACC:ACCLISTING       
00104/011   ACCOUNTING               ACCLIST         OC  G        # MTS:TST.ACCLIST                                                 
                                                                                    UM   ENGLE                                      
                         ACC:ACCLIST          
0          PROGRAM TO PRINT EVERY FIELD OF EACH ACCOUNTING RECORD.  ACCLIST+ACCPRINT.
00104/012   ACCOUNTING               ACCINITL        SA  G  AINT    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCINITL.SA.10(1)           130
            D4T1    288  ACCOUNTING.ACCINITL.SA.009         1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  13:31.37
0          RESTORES LOCK BITS AND FILE SPACE FIELDS FOR ALL RECORDS WITH CURRENT NUMBER OF SIGNONS > 0.
           COPIES ACCFORMAT (104/1).
00104/013   ACCOUNTING               ACCINITL        OC  G          S0027 DISTRB FSNAME=AINT                                        
            D4T1    289  ACCOUNTING.ACCINITL.OC.010         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:07:50
00104/014A  ACCOUNTING               STATUS          SA  G  STAT    S0027 DISTRB FSNAME=STATUS                                      
            4.3T1    74  ACCOUNTING.STATUS.SA.014           1 LINE     80   26 PAGE UM   ENGLE               FEB. 20, 1980  10:22:27
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).
            
           *********************************************************************************
           D4.3 VERSION:
            
           N.B. THE VERSION USED WITH THE ACCOUNTING CLS HAS NOT BEEN ANNOUNCED AND 
                SPECIFICATIONS ARE SUBJECT TO CHANGE.  IT SHOULD BE CONSIDERED
                EXPERIMENTAL.
           *********************************************************************************
00104/015C  ACCOUNTING               STATUS          UC  G          S0027 DISTRB FSNAME=STATUSUPD                                   
            4.3T1    75  ACCOUNTING.STATUS.UC.015           1 LINE     79   11 PAGE UM   ENGLE               FEB. 20, 1980  10:23:14
00104/016A  ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STAT                                        
            4.3T1    76  ACCOUNTING.STATUS.OC.016           1 LINE     80    5 PAGE UM   ENGLE               FEB. 20, 1980  10:23:20
0          OBJECT FOR *STATUS.
0          Referenced by comments of: 129/2 
00104/017C  ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STATCLS                                     
            4.3T1    77  ACCOUNTING.STATUS.OC.017           1 LINE     80    6 PAGE UM   ENGLE               FEB. 20, 1980  10:23:28
0          OBJECT FOR ACCOUNTING CLS SUBROUTINE.
            
           *********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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          D4.3 VERSION:
            
           SEE WARNING FOR 104/14.
           *********************************************************************************
0          Referenced by comments of: 631/8, 631/15 
00104/018   ACCOUNTING               FILERATE        SA  G  FLRT    S0027 DISTRB FSNAME=FILERATE                                    
            D4T1    292  ACCOUNTING.FILERATE.SA.013         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:10:41
0          SUBROUTINE TO RETURN A CURRENT RATE NUMBER AND THE FILE RATES FOR A SIGNON ID.
           COPIES GRDEF (104/70) AND COPY:RATEVEC (651/2).
0          Referenced by comments of: 484/1 
00104/019   ACCOUNTING               FILERATE        OC  G          S0027 DISTRB FSNAME=FLRT                                        
            D4T1    293  ACCOUNTING.FILERATE.OC.014         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:11:04
00104/020   ACCOUNTING               ACCMAINT        SA  G  AMAT    S0027 DISTRB FSNAME=ACCMAINT                                    
            D4.2T1   56  ACCOUNTING.ACCMAINT.SA.018         1 LINE     80   58 PAGE UM   ENGLE               JAN. 25, 1979  16:37:32
0          MAIN PROGRAM FOR ACCMAINT.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
           THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG)
           INTO WHICH A LOG IS WRITTEN.
00104/021   ACCOUNTING               ACCMAINT        UC  G        # S0027 DISTRB FSNAME=ACCMAINTUPD                                 
            D4.2T1   57  ACCOUNTING.ACCMAINT.UC.019         1 LINE     72    2 PAGE UM   ENGLE               JAN. 25, 1979  16:37:51
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/022   ACCOUNTING               ACCMAINT        OC  G          S0027 DISTRB FSNAME=AMAT                                        
            D4.2T1   58  ACCOUNTING.ACCMAINT.OC.020         1 LINE     80   10 PAGE UM   ENGLE               JAN. 25, 1979  16:37:55
0          Referenced by comments of: 104/127 
00104/023   ACCOUNTING               ACCMAINT        OE  G        # ACC:ACCMAINT                                                    
                                                                                    UM   ENGLE                                      
                         ACC:ACCMAINT         
0          Referenced by comments of: 104/125 
00104/024   ACCOUNTING               ACCIO           SA  G  AIO     S0027 DISTRB FSNAME=ACCIO                                       
            D4T1    296  ACCOUNTING.ACCIO.SA.017            1 LINE     80   15 PAGE UM   ENGLE               JUNE 04, 1976  14:22:22
0          GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S).
0          Referenced by comments of: 104/41 
00104/025   ACCOUNTING               ACCIO           OC  G          S0027 DISTRB FSNAME=AIO                                         
            D4T1    297  ACCOUNTING.ACCIO.OC.018            1 LINE     80    3 PAGE UM   ENGLE               JUNE 04, 1976  14:22:35
0          THERE ARE REP CARDS IN THIS FILE TO CHANGE FILE NAMES TO PUBLIC FILES.
1                                                                                               SUN SEP 08/96   19:03:19   Page   50
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 484/1, 631/15 
00104/026   ACCOUNTING               ACCGFUPD        SA  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.ACCGFUPD.SA.19(1)            66
            D4T1    298  ACCOUNTING.ACCGFUPD.SA.019         1 LINE     72    1 PAGE UM   ENGLE               MAR. 21, 1975  01:02:18
0          PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS.  RUN WITH ACCRDWRT (104/33).
0          Referenced by comments of: 104/33, 682/36 
00104/027   ACCOUNTING               ACCGFUPD        OC  G          W013:ACCGFUPD(1,98)                                             
            D4T1    299  ACCOUNTING.ACCGFUPD.OC.020         1 LINE     80    1 PAGE UM   ENGLE               JULY 27, 1977  22:10:30
00104/028   ACCOUNTING               ACCDSPLA        SA  G  ADSP    S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.SA.22(1)             254
            D4T1    300  ACCOUNTING.ACCDSPLA.SA.021         1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  12:08.13
0          PROGRAM TO READ A SPECIFIC RECORD OF THE ACCOUNTING FILE AND CALL ACCPRINT FOR IT.
00104/029   ACCOUNTING               ACCDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.OC.23(1)             255
            D4T1    301  ACCOUNTING.ACCDSPLA.OC.022         1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  12:08.26
00104/030   ACCOUNTING               ACCDSPLA        OC  G        # ACC:ACCDISPLAY                                                  
                                                                                    UM   ENGLE                                      
                         ACC:ACCDISPLAY       
00104/031   ACCOUNTING               ACCSTRUP        SA  G  ASTR    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSTRUP.SA.24(1)           137
            D4T1    302  ACCOUNTING.ACCSTRUP.SA.023         1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  13:43.30
0          MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1).
00104/032   ACCOUNTING               ACCSTRUP        OC  G          S0027 DISTRB FSNAME=ASTR                                        
            D4T1    303  ACCOUNTING.ACCSTRUP.OC.024         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  10:19:52
0          Referenced by comments of: 484/1 
00104/033   ACCOUNTING               ACCRDWRT        SA  G  ARDW    S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.SA.26(1)             258
            D4T1    304  ACCOUNTING.ACCRDWRT.SA.025         1 LINE     80    6 PAGE UM   ENGLE               OCT. 05, 1972  12:20.15
0          PROGRAM TO PERFORM GENERAL REFORMATTING OPERATION ON THE ACCOUNTING FILE. IT CALLS A USER PROVIDED
           SUBROUTINE CALLED ACCUPDAT TO DO THE ACTUAL REFORMATTING. ACCGFUPD (104/26) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE
           COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION.
0          Referenced by comments of: 104/26, 682/36 
00104/034   ACCOUNTING               ACCRDWRT        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.OC.27(1)             259
            D4T1    305  ACCOUNTING.ACCRDWRT.OC.026         1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  12:20.35
0          Referenced by comments of: 104/66 
00104/035   ACCOUNTING               PCONVERT        SA  G          S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.SA.28(1)           139
            D4T1    306  ACCOUNTING.PCONVERT.SA.027         1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:33.24
0          PRJPRINT SUBROUTINE TO CONVERT A DISTRIBUTION 3.0 PROJECT FILE TO DISTRIBUTIONS 3.1, 3.2, OR 4.0
           (WHICH ARE ALL THE SAME) BY ADDING NETWORK FIELDS AND FLAG.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          TO USE, RUN PRJLIST (104/45) + PCONVERT + ACCLIB (104/41).  NEW PROJECT FILE IS PRODUCED ON SPUNCH.
           COPIES ACCPROJFMT (104/2).
00104/036   ACCOUNTING               PCONVERT        OC  G          S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.OC.29(1)           140
            D4T1    307  ACCOUNTING.PCONVERT.OC.028         1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:33.42
00104/037   ACCOUNTING               ACCPRJMT        SA  G  APMT    S0027 DISTRB FSNAME=ACCPRJMT                                    
            D4.2T1   59  ACCOUNTING.ACCPRJMT.SA.035         1 LINE     80   29 PAGE UM   ENGLE               FEB. 05, 1979  17:30:21
0          MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT.  RUN WITH PROT=OFF.
           THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO
           WHICH A LOG IS WRITTEN.
0          Referenced by comments of: 104/127 
00104/038   ACCOUNTING               ACCPRJMT        UC  G        # S0027 DISTRB FSNAME=ACCPRJMTUPD                                 
            D4.2T1   60  ACCOUNTING.ACCPRJMT.UC.036         1 LINE     73    2 PAGE UM   ENGLE               FEB. 05, 1979  17:30:30
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/039   ACCOUNTING               ACCPRJMT        OC  G          S0027 DISTRB FSNAME=APMT                                        
            D4.2T1   61  ACCOUNTING.ACCPRJMT.OC.037         1 LINE     80    5 PAGE UM   ENGLE               JAN. 25, 1979  16:26:26
00104/040   ACCOUNTING               ACCPRJMT        OE  G        # ACC:PROJECTMAINT                                                
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTMAINT     
00104/041A  ACCOUNTING               ACCLIB          OL  G          S0027 DISTRB FSNAME=ACCLIB                                      
            4.3T1    78  ACCOUNTING.ACCLIB.OL.041           1 LINE    768   24 PAGE UM   ENGLE               FEB. 22, 1980  17:38:39
                         ACC:ACCLIB           
0          THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/24) TO PUBLIC FILES.
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  R PKEY=FILEINFO.
0          Referenced by comments of: 104/35, 632/3, 632/6, 682/36 
00104/042   ACCOUNTING               ACPRJPRT        SA  G  APPR    S0027 DISTRB FSNAME=ACPRJPRT                                    
            D4.2T1   63  ACCOUNTING.ACPRJPRT.SA.040         1 LINE     80    9 PAGE UM   ENGLE               JAN. 25, 1979  16:30:30
0          SUBROUTINE TO PRINT A RECORD FROM *PROJECT.
           COPIES ACCPROJFMT (104/2).
0          Referenced by comments of: 104/127 
00104/043   ACCOUNTING               ACPRJPRT        OC  G          S0027 DISTRB FSNAME=APPR                                        
            D4.2T1   64  ACCOUNTING.ACPRJPRT.OC.041         1 LINE     80    4 PAGE UM   ENGLE               JAN. 25, 1979  16:30:35
00104/044   ACCOUNTING               PRJLIST         SA  G  APLS    S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.SA.35(1)              267
            D4T1    313  ACCOUNTING.PRJLIST.SA.034          1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  15:13.34
0          PROGRAM TO READ EACH RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT.
0          Referenced by comments of: 500/40 
1                                                                                               SUN SEP 08/96   19:03:19   Page   52
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/045   ACCOUNTING               PRJLIST         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.OC.36(1)              268
            D4T1    314  ACCOUNTING.PRJLIST.OC.035          1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:13.55
0          Referenced by comments of: 104/35 
00104/046   ACCOUNTING               PRJLIST         OC  G        # ACC:PROJECTLIST                                                 
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTLIST      
00104/047   ACCOUNTING               PRJDSPLA        SA  G  APDS    S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.SA.37(1)             269
            D4T1    315  ACCOUNTING.PRJDSPLA.SA.036         1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  15:17.03
0          PROGRAM TO READ A SPECIFIC RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT.
00104/048   ACCOUNTING               PRJDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.OC.38(1)             270
            D4T1    316  ACCOUNTING.PRJDSPLA.OC.037         1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:17.49
00104/049   ACCOUNTING               PRJDSPLA        OC  G        # ACC:PROJECTDISP                                                 
                                                                                    UM   ENGLE                                      
                         ACC:PROJECTDISP      
00104/050   ACCOUNTING               ACCPASWD        SA  G  APSW    S0027 DISTRB FSNAME=ACCPASWD                                    
            D4.2T1   65  ACCOUNTING.ACCPASWD.SA.048         1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  15:29:57
0          PROGRAM TO GENERATE A RANDOM PASSWORD FOR AN ACCOUNTING RECORD AND PRINT THE NEW PASSWORD PLUS
           THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET.  THIS PROGRAM WRITES AN AUDIT
           TRAIL IN THE FILE *PWSTAT, WHICH MUST EXIST AS A LINE FILE WITH AT LEAST ONE LINE
           (WHICH MAY BE ANYTHING).  RUN WITH PROT=OFF.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/147, 104/148, 104/155 
00104/051   ACCOUNTING               ACCPASWD        OC  G          S0027 DISTRB FSNAME=APSW                                        
            D4.2T1   66  ACCOUNTING.ACCPASWD.OC.049         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1979  15:30:04
00104/052   ACCOUNTING               ACCPASWD        OE  G        # WPSW:PROGRAM1                                                   
                                                                                    UM   ENGLE                                      
                         ACC:ACCPASWD         
00104/053   ACCOUNTING               ACONSIST        SA  G  ACNS    S0027 DISTRB FSNAME=ACONSIST                                    
            D4.2T1   67  ACCOUNTING.ACONSIST.SA.051         1 LINE     80   13 PAGE UM   ENGLE               JAN. 10, 1979  16:37:32
0          MAIN PROGRAM FOR ACCERRORSCAN.  RUN WITH PROT=OFF.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
0          Referenced by comments of: 104/127 
00104/054   ACCOUNTING               ACONSIST        OC  G          S0027 DISTRB FSNAME=ACNS                                        
            D4.2T1   68  ACCOUNTING.ACONSIST.OC.052         1 LINE     80    4 PAGE UM   ENGLE               JAN. 10, 1979  16:37:40
00104/055   ACCOUNTING               ACONSIST        OC  G        # ACC:ACCERRORSCAN                                                
                                                                                    UM   ENGLE                                      
                         ACC:ACCERRORSCAN     
1                                                                                               SUN SEP 08/96   19:03:19   Page   53
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/056   ACCOUNTING               FILENAME        SA  G  FLNM    S0027 DISTRB FSNAME=FILENAME                                    
            D4.2T1   69  ACCOUNTING.FILENAME.SA.054         1 LINE     80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:39:44
0          CONTAINS THE NAMES OF THE FILES *ACCOUNTING, *PWSTAT, *PROJECT, *PROJDIRECTORY, AND *STATISTICS.
0          Referenced by comments of: 104/141 
00104/057   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/058   ACCOUNTING               FILENAME        OC  G          S0027 DISTRB FSNAME=FLNM                                        
            D4.2T1   71  ACCOUNTING.FILENAME.OC.056         1 SEQ      80    1 PAGE UM   ENGLE               JAN. 25, 1979  16:40:00
0          Referenced by comments of: 631/15 
00104/059   ACCOUNTING               DIRECTRY        SA  G  DIR     S0027 DISTRB FSNAME=DIRECTRY                                    
            D4.2T1   72  ACCOUNTING.DIRECTRY.SA.057         1 LINE     80   17 PAGE UM   ENGLE               JAN. 10, 1979  15:27:14
0          I/O SUBROUTINES FOR THE DIRECTORY FILE.  COPIES *CNFGINFODSECT (654).
00104/060   ACCOUNTING               DIRECTRY        OC  G          S0027 DISTRB FSNAME=DIR                                         
            D4.2T1   73  ACCOUNTING.DIRECTRY.OC.058         1 LINE     80    4 PAGE UM   ENGLE               JAN. 10, 1979  15:27:27
0          Referenced by comments of: 631/15 
00104/061   ACCOUNTING               DIRLIST         SA  G  DLST    S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRLIST.SA.46(1)             79
            D4T1    325  ACCOUNTING.DIRLIST.SA.046          1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  11:36.26
0          MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY.
00104/062   ACCOUNTING               DIRLIST         OC  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRLIST.OC.47(1)             80
            D4T1    326  ACCOUNTING.DIRLIST.OC.047          1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  11:36.55
00104/063   ACCOUNTING               DIRLIST         OC  G        # ACC:DIRLIST                                                     
                                                                                    UM   ENGLE                                      
                         ACC:DIRLIST          
00104/064   ACCOUNTING               FILUPDAT        SA  G  FLUP    S0027 DISTRB FSNAME=FILUPDAT                                    
            D4.2T1   74  ACCOUNTING.FILUPDAT.SA.062         1 LINE     80    7 PAGE UM   ENGLE               MAR. 07, 1979  12:02:47
0          PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE
           CURRENT MONTH (IF NO PAR= IS GIVEN) OR EXPIRATION TIME.  IF PAR=MM/DD/YY IS
           GIVEN, UPDATE IS TO 24:00:00 OF MM/DD/YY OR EXPIRATION TIME.  IF PAR=
           MM/DD/YY HH:MM:SS IS GIVEN, UPDATE IS TO SPECIFIED TIME OR EXPIRATION TIME.
           PROGRAM UPDATES THE ACCOUNTING RECORD AND WRITES A STATISTICS RECORD FOR BILLING.
           RUN WITH PROT=OFF.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/147, 104/148 
1                                                                                               SUN SEP 08/96   19:03:19   Page   54
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/065   ACCOUNTING               FILUPDAT        OC  G          S0027 DISTRB FSNAME=FLUP                                        
            D4.2T1   75  ACCOUNTING.FILUPDAT.OC.063         1 LINE     80    3 PAGE UM   ENGLE               MAR. 07, 1979  12:02:58
00104/066   ACCOUNTING               ACONVERT        SA  G  ACNV    S0027 DISTRB FSNAME=ACONVERT                                    
            D4T1    329  ACCOUNTING.ACONVERT.SA.050         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:41:10
0          ACCUPDAT SUBROUTINE TO CONVERT A DISTRIBUTION 3.2 ACCOUNTING FILE TO THE NEW FORMAT WHICH INCLUDES PLOTTER PAPER AND PEN
           FIELDS.  USE WITH ACCRDWRT (104/34).  COPIES ACCFORMAT (104/1).
00104/067   ACCOUNTING               ACONVERT        OC  G          S0027 DISTRB FSNAME=ACNV                                        
            D4T1    330  ACCOUNTING.ACONVERT.OC.051         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  10:41:16
00104/068A  ACCOUNTING               STAPROJECT      OC  G          S0027 DISTRB FSNAME=STAPROJECT                                  
            4.3T1    79  ACCOUNTING.STAPROJECT.OC.068       1 LINE     80    5 PAGE UM   ENGLE               FEB. 20, 1980  10:26:04
0          PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT.
           PRODUCED BY ASSEMBLING ACCMXMAT (631/6) WITH &STAPRJ SET TO ONE.  RUN WITH PROT=OFF.
0          Referenced by comments of: 631/8 
00104/069A  ACCOUNTING               STAPROJECT      OE  G        # ACC:STAPROJECT                                                  
                                                                                    UM   ENGLE                                      
                         ACC:STAPROJECT       
0          LINKEDITED VERSION OF 104/68 + AUPR (631/8) + "$CONTINUE WITH ACC:ACCLIB".
00104/070   ACCOUNTING               GRDEF           SA  G  GRDF    S0720 'D3T1' FSNAME=ACCOUNTING.GRDEF.SA.58(1)                290
            D4T1    336  ACCOUNTING.GRDEF.SA.057            1 SEQ      80    1 PAGE UM   ENGLE               JAN. 10, 1973  17:16.39
0          COPY SECTION.
0          Referenced by comments of: 97/4, 104/18, 104/79, 104/81, 104/83, 104/91, 104/95, 104/102, 104/114, 104/134, 360/1,
                 500/46, 586/1, 631/1, 631/5, 631/13, 632/3, 708/1 
00104/071   ACCOUNTING               WKDAY           SA  G  WKDA    S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.SA.59(1)                291
            D4T1    337  ACCOUNTING.WKDAY.SA.058            1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1973  12:14.08
0          SUBROUTINE TO PRODUCE THE DAY OF THE WEEK FOR A GIVEN DATE.  USED IN INITCHK (104/78).
00104/072   ACCOUNTING               WKDAY           OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.OC.60(1)                292
            D4T1    338  ACCOUNTING.WKDAY.OC.059            1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  12:14.29
00104/073   ACCOUNTING               DIRDSPLA        SA  G  DDSP    S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.SA.61(1)             293
            D4T1    339  ACCOUNTING.DIRDSPLA.SA.060         1 LINE     80    3 PAGE UM   ENGLE               JAN. 12, 1973  13:57.36
0          PROGRAM TO READ A SPECIFIC RECORD FROM *PRJDIRECTORY AND CALL DIRPRINT FOR IT.
00104/074   ACCOUNTING               DIRDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.OC.62(1)             294
            D4T1    340  ACCOUNTING.DIRDSPLA.OC.061         1 LINE     80    1 DISK UM   ENGLE               JAN. 12, 1973  13:57.46
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00104/075   ACCOUNTING               DIRDSPLA        OC  G        # ACC:DIRDISPLAY                                                  
                                                                                    UM   ENGLE                                      
                         ACC:DIRDISPLAY       
00104/076   ACCOUNTING               DIRPRINT        SA  G  DPRT    S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRPRINT.SA.62(1)            90
            D4T1    341  ACCOUNTING.DIRPRINT.SA.062         1 LINE     80    6 PAGE UM   ENGLE               DEC. 06, 1974  12:00.11
0          SUBROUTINE TO FORMAT A DIRECTORY ENTRY FOR PRINTING.  USED IN ACC:ACCLIB.
00104/077   ACCOUNTING               DIRPRINT        OC  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRPRINT.OC.63(1)            91
            D4T1    342  ACCOUNTING.DIRPRINT.OC.063         1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  12:00.34
00104/078   ACCOUNTING               INITCHK                      # (SEE COMP 097/5 AND 097/6)                                      
                                                                                    UM   ENGLE                                      
0          Referenced by comments of: 104/71 
00104/079   ACCOUNTING               ACCFLUPD        SA  G  AFLU    S0027 DISTRB FSNAME=ACCFLUPD                                    
            D4T1    343  ACCOUNTING.ACCFLUPD.SA.065         1 LINE     80    7 PAGE UM   ENGLE               JUNE 02, 1976  12:42:09
0          SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD.
           COPIES ACCFORMAT (104/1) AND GRDEF (104/70).
00104/080   ACCOUNTING               ACCFLUPD        OC  G          S0027 DISTRB FSNAME=AFLU                                        
            D4T1    344  ACCOUNTING.ACCFLUPD.OC.066         1 LINE     80    2 PAGE UM   ENGLE               JUNE 02, 1976  12:42:15
0          Referenced by comments of: 484/1 
00104/081   ACCOUNTING               ACCINSCN        SA  G  AINS    S0027 DISTRB FSNAME=ACCINSCN                                    
            D4T1    345  ACCOUNTING.ACCINSCN.SA.067         1 LINE     80    6 PAGE UM   ENGLE               DEC. 05, 1975  11:57:04
0          USED IN INIT:INIT (097/3).  COPIES ACCFORMAT (104/1) AND GRDEF (104/70).
00104/082   ACCOUNTING               ACCINSCN        OC  G          S0027 DISTRB FSNAME=AINS                                        
            D4T1    346  ACCOUNTING.ACCINSCN.OC.068         1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  11:57:12
00104/083   ACCOUNTING               CURSIG          SA  G  CSIG    S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.SA.70(1)               301
            D4T1    347  ACCOUNTING.CURSIG.SA.069           1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1973  17:55.52
0          SUBROUTINE TO DETERMINE NUMBER OF CURRENT SIGNONS.  COPIES GRDEF (104/70) AND *LLMPSEQU.  NOTE THAT THE
           SOURCE SHOULD BE CHANGED (IF RE-ASSEMBLED) SO THAT IT COPIES COPY:LLMPSEQU (087) INSTEAD OF *LLMPSEQU
           WHICH NO LONGER EXISTS.
00104/084   ACCOUNTING               CURSIG          OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.OC.71(1)               302
            D4T1    348  ACCOUNTING.CURSIG.OC.070           1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:56.03
0          Referenced by comments of: 484/1 
00104/085   ACCOUNTING               DEDFLFIX                     # (SEE COMP 502/9 AND 502/10)                                     
                                                                                    UM   ENGLE                                      
1                                                                                               SUN SEP 08/96   19:03:19   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/086   ACCOUNTING               ACCLSTPR        SA  G  ALPR    S0027 DISTRB FSNAME=ACCLSTPR                                    
            D4.2T1   77  ACCOUNTING.ACCLSTPR.SA.084         1 LINE     80    9 PAGE UM   ENGLE               JAN. 09, 1979  15:32:09
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/127 
00104/087   ACCOUNTING               ACCLSTPR        OC  G          S0027 DISTRB FSNAME=ALPR                                        
            D4.2T1   78  ACCOUNTING.ACCLSTPR.OC.085         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1979  15:32:23
00104/088   ACCOUNTING               ACCFLCHG        SA  G  AFLC    S0027 DISTRB FSNAME=ACCFLCHG                                    
            D4T1    351  ACCOUNTING.ACCFLCHG.SA.074         1 LINE     80    4 PAGE UM   ENGLE               MAY  14, 1976  16:23:03
0          SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD.
           CALLED BY ACCDSPLA.  COPIES ACCFORMAT (104/1).
00104/089   ACCOUNTING               ACCFLCHG        OC  G          S0027 DISTRB FSNAME=AFLC                                        
            D4T1    352  ACCOUNTING.ACCFLCHG.OC.075         1 LINE     80    1 PAGE UM   ENGLE               MAY  14, 1976  16:23:10
0          PATCHED TO AGREE WITH SOURCE.
00104/090   ACCOUNTING               ACCFLCHG        OE  G        # ACC:ACCFILCHARGE                                                
                                                                                    UM   ENGLE                                      
                         ACC:ACCFILCHARGE     
0          ACCDSPLA+ACCFLCHG
00104/091   ACCOUNTING               APSWDISP        SA  G  APWD    S0720 'D3T1' FSNAME=ACCOUNTING.APSWDISP.SA.77(1)             307
            D4T1    353  ACCOUNTING.APSWDISP.SA.076         1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1973  18:07.38
0          SUBROUTINE TO PRINT INTERNAL PASSWORD REPRESENTATION AND LAST DATE AND TIME SET FOR AN ACCOUNTING RECORD.
           CALLED BY ACCDSPLA.  COPIES ACCFORMAT (104/1) AND GRDEF (104/70).
00104/092   ACCOUNTING               APSWDISP        OC  G          S0027 DISTRB FSNAME=APWD                                        
            D4T1    354  ACCOUNTING.APSWDISP.OC.077         1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  12:20:25
00104/093   ACCOUNTING               ACCHEXPR        SA  O  AXPR    S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.SA.79(1)             309
            D4T1    355  ACCOUNTING.ACCHEXPR.SA.078         1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1973  10:55.07
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN HEX.  CALLED BY ACCDSPLA.
00104/094   ACCOUNTING               ACCHEXPR        OC  O          S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.OC.80(1)             310
            D4T1    356  ACCOUNTING.ACCHEXPR.OC.079         1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  10:55.43
00104/095   ACCOUNTING               TIMETRP         SA  G  TTRP    S0964 'D3.2T1' FSNAME=ACCOUNTING.TIMETRP.SA.80(1)            101
            D4T1    357  ACCOUNTING.TIMETRP.SA.080          1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:04.25
0          SUBROUTINE TO SET UP REAL TIME INTERRUPTS AND SET A FLAG AT THE INTERRUPT.  COPIES GRDEF (104/70).
00104/096   ACCOUNTING               TIMETRP         OC  G          S0964 'D3.2T1' FSNAME=ACCOUNTING.TIMETRP.OC.81(1)            102
            D4T1    358  ACCOUNTING.TIMETRP.OC.081          1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:04.41
0          Referenced by comments of: 631/15 
1                                                                                               SUN SEP 08/96   19:03:19   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/097   ACCOUNTING               ACCSGATR        SA  G  ASAR    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.SA.83(1)           165
            D4T1    359  ACCOUNTING.ACCSGATR.SA.082         1 LINE     80    5 PAGE UM   ENGLE               JAN. 08, 1974  14:50.39
0          PROGRAM TO RESET SIGNON ATTENTION FLAG IN A USERS ACCOUNTING RECORD.
           THIS PROGRAM WRITES AN AUDIT TRAIL IN THE FILE *PWSTAT, WHICH MUST EXIST AS A LINE FILE
           WITH AT LEAST ONE LINE (WHICH MAY BE ANYTHING).  RUN WITH PROT=OFF.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/147, 104/148, 104/155 
00104/098   ACCOUNTING               ACCSGATR        OC  G          S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.OC.84(1)           166
            D4T1    360  ACCOUNTING.ACCSGATR.OC.083         1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  14:53.32
00104/099   ACCOUNTING               ACCSAVE         SA  G  ASAV    S0027 DISTRB FSNAME=ACCSAVE                                     
            D4T1    361  ACCOUNTING.ACCSAVE.SA.084          1 LINE     80    8 PAGE UM   ENGLE               DEC. 05, 1975  12:22:04
0          MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE.
0          Referenced by comments of: 104/129 
00104/100   ACCOUNTING               ACCSAVE         OC  G          S0027 DISTRB FSNAME=ASAV                                        
            D4T1    362  ACCOUNTING.ACCSAVE.OC.085          1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  12:22:10
00104/101   ACCOUNTING               ACCSAVE         OE  G        # ACC:ACCSAVE                                                     
                                                                                    UM   ENGLE                                      
                         ACC:ACCSAVE          
00104/102   ACCOUNTING               ACCTAPRD        SA  G  ATRD    S0027 DISTRB FSNAME=ACCTAPRD                                    
            D4T1    363  ACCOUNTING.ACCTAPRD.SA.086         1 LINE     80    4 PAGE UM   ENGLE               DEC. 05, 1975  12:24:14
0          VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES.
           COPIES GRDEF (104/70).
00104/103   ACCOUNTING               ACCTAPRD        OC  G          S0027 DISTRB FSNAME=ATRD                                        
            D4T1    364  ACCOUNTING.ACCTAPRD.OC.087         1 LINE     80    2 PAGE UM   ENGLE               DEC. 05, 1975  12:24:24
00104/104   ACCOUNTING               GETFILE         SA  G  GTFL    S0027 DISTRB FSNAME=GETFILE                                     
            D4.1T1   50  ACCOUNTING.GETFILE.SA.102          1 LINE     80    3 PAGE UM   ENGLE               FEB. 27, 1978  11:04:45
0          SUBROUTINE TO GET A FDUB, ETC.
00104/105   ACCOUNTING               GETFILE         OC  G          S0027 DISTRB FSNAME=GTFL                                        
            D4.1T1   51  ACCOUNTING.GETFILE.OC.103          1 LINE     80    1 PAGE UM   ENGLE               FEB. 27, 1978  11:04:47
0          Referenced by comments of: 484/1, 631/15 
00104/106A  ACCOUNTING               ACATALOG        SA  G  ACAT    FILE:ACATALOG(1000)                                             
            4.3T1    80  ACCOUNTING.ACATALOG.SA.106         1 LINE     80    4 PAGE UM   HELFFRICH           APR. 05, 1980  14:00:53
0          SUBROUTINE THAT GETS THE CURRENT DISK AND DATA CELL SPACE FOR A USER FROM THE CATALOG AND DSCB. USED BY
           ACC:ACCMAINT, INIT:INIT, AND *ACCRESTORE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
            
           **********************************************************************************
           D4.3 CHANGES:
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           UPDATED FOR DISK MANAGER (769) COMPATABILITY.
           **********************************************************************************
00104/107A  ACCOUNTING               ACATALOG        OC  G          FILE:ACATALOG(1,998)                                            
            4.3T1    81  ACCOUNTING.ACATALOG.OC.107         1 LINE     80    2 PAGE UM   HELFFRICH           APR. 05, 1980  14:00:55
                         FILE:ACATALOG        
0          Referenced by comments of: 484/1 
00104/108   ACCOUNTING               ACATALOG        SA  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACATALOG.SA.092(1)          369
            D4T1    369  ACCOUNTING.ACATALOG.SA.092         1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  22:18:36
0          THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION,
           BUT CALLS THE ACATSUB SUBROUTINE (104/110) 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/110, 682/36 
00104/109   ACCOUNTING               ACATALOG        OC  G          S0563 D4T1 VLO FSNAME=ACCOUNTING.ACATALOG.OC.093(1)          370
            D4T1    370  ACCOUNTING.ACATALOG.OC.093         1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  22:18:38
                         MTA:ACATALOG         
00104/110A  ACCOUNTING               ACATSUB         SA  G          FILE:ACATSUB(1,999)                                             
            4.3T1    82  ACCOUNTING.ACATSUB.SA.110          1 LINE     72    8 PAGE UM   MTA                 APR. 28, 1980  19:40:45
                         FILE:ACATSUB         
0          SUBROUTINE CALLED BY SUPER ACATALOG (104/108) AND USED BY THE DISK ERROR RECOVERY
           PROCEDURES (703).  IT BUILDS A TABLE OF THE AMOUNT OF SPACE USED BY EACH USERID
           WHICH HAS FILES.  IN THE PROCESS, IT CHECKS THE CATALOG AGAINST THE DSCBS ON THE
           VARIOUS VOLUMES AND OPTIONALLY PRODUCES TWO LISTS WHICH CAN BE USED WITH FASTRSTR
           (671).  IF UNIT 10 IS ASSIGNED, IT IS A LIST OF USERIDS WHICH ARE KNOWN TO HAVE
           LOST CATALOG SEGMENTS (INCLUDING POSSIBLY *SYS) AND TWO OUTPUT LISTS ARE PRODUCED.
           UNIT 11 WILL CONTAIN A LIST OF UNCATALOGED FILES WHICH BELONG TO THE USERS 
           IN THE UNIT 10 LIST.  UNIT 12 WILL CONTAIN A LIST OF ALL FILES WHICH ARE IN THE
           CATALOG BUT HAVE NO DSCB.  THE LIST ON UNIT 11 SHOULD BE CHECKED FOR DUPLICATE
           ENTRIES (E.G. USING *SORT).  THERE WILL NOT BE DUPLICATES BETWEEN THE TWO LISTS
           SINCE, IF A FILE IS IN THE CATALOG ANYWHERE, IT WILL NOT BE PUT IN THE LIST ON
           UNIT 11.  THE LIST ON UNIT 11 WILL NOT INCLUDE *MASTER.CATALOGN OR *IPLAREA.
           THE LIST ON UNIT 12 WILL NOT INCLUDE ANY SCRATCH FILES OR ANY DUPLICATE NAMES.
           USES UNITS 10, 11, AND 12 TO AVOID CONFLICTS WITH ACCUPDAT.  CALLS VTOCREAD
           (067/4).  ASSEMBLE USING COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 104/108, 682/36 
00104/111A  ACCOUNTING               ACATSUB         OC  G          FILE:ACATSUB(1000)                                              
            4.3T1    83  ACCOUNTING.ACATSUB.OC.111          1 LINE     80    4 PAGE UM   MTA                 APR. 28, 1980  19:40:48
0          HAS A $CONTINUE WITH RSTR:VTOCREAD (67/3) + COPY:SYSDEFS (579/3) RECORD.
1                                                                                               SUN SEP 08/96   19:03:19   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/112   ACCOUNTING               WRITEUP         WF             S0027 DISTRB FSNAME=ACCWRITEUP                                  
            D4.2T1   83  ACCOUNTING.WRITEUP.WF.110          1 LINE     80    8 PAGE UM   ENGLE               JAN. 25, 1979  16:36:21
0          A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS.
00104/113   ACCOUNTING               WRITEUP         UC           # S0027 DISTRB FSNAME=ACCWRITEUPUP                                
            D4.2T1   84  ACCOUNTING.WRITEUP.UC.111          1 LINE     76    1 PAGE UM   ENGLE               JAN. 25, 1979  16:36:27
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00104/114   ACCOUNTING               IOLOKCK         SA  G  IOLC    S0027 DISTRB FSNAME=IOLOKCK                                     
            D4T1    374  ACCOUNTING.IOLOKCK.SA.097          1 LINE     80    5 PAGE UM   ENGLE               DEC. 05, 1975  12:27:08
0          SUBROUTINE TO INTERCEPT I/O ERRORS AND NON-ZERO RETURN CODES FROM SETLCK IN ORDER
           TO PREVENT INTERRUPTION OF FILE LOCK WAITS.  SETIOERR MUST BE CALLED WITH IOLOKCK AS
           THE I/O ERROR SUBROUTINE IN ORDER TO ACTIVATE THE I/O ERROR INTERCEPT.
           COPIES GRDEF (104/70).
0          Referenced by comments of: 631/15 
00104/115   ACCOUNTING               IOLOKCK         OC  G          S0027 DISTRB FSNAME=IOLC                                        
            D4T1    375  ACCOUNTING.IOLOKCK.OC.098          1 LINE     80    2 PAGE UM   ENGLE               DEC. 05, 1975  12:27:18
00104/116   ACCOUNTING               FLINFCL         SG  G          S0027 DISTRB FSNAME=FLINFCL                                     
            D4.1T1   52  ACCOUNTING.FLINFCL.SG.113          1 LINE     59    1 PAGE UM   ENGLE               FEB. 27, 1978  13:45:51
0          PROGRAM TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE
           BROKEN DOWN BY THE FIRST LETTER OF THE PROJECT NUMBER FOR ACTIVE (UNEXPIRED)
           SIGNON ID'S AND SUMMARIZED FOR ALL DEAD (EXPIRED) ID'S.  IF PAR=DEAD IS GIVEN,
           THE REVERSE IS DONE, I.E., THE USAGE INFORMATION IS BROKEN DOWN BY THE FIRST
           LETTER OF THE PROJECT NUMBER FOR DEAD ID'S AND SUMMARIZED FOR ALL ACTIVE ID'S.
           THE PARAMETER MM/DD/YY (OR DATE=MM/DD/YY) MAY ALSO BE GIVEN TO SPECIFY A
           DATE; FILES BELONGING TO ID'S EXPIRING AT OR BEFORE MIDNIGHT OF THAT DATE ARE
           CONSIDERED DEAD.  IF NO DATE IS SPECIFIED, THEN THE PREVIOUS MIDNIGHT IS
           USED AS THE TIME.  IN ADDITION, IF PAR=STAFF IS GIVEN, ADDITIONAL INFORMATION
           FOR EACH SIGNON ID BELONGING TO A PROJECT BEGINNING WITH THE LETTER W IS PRINTED.
           THIS SECTION LOADS THE MAIN FUNCTION (104/118) FROM ACC:ACCLIB+NEW:GOMLIB.
00104/117   ACCOUNTING               FLINFCL         OC  G          S0027 DISTRB FSNAME=FICL                                        
            D4.1T1   53  ACCOUNTING.FLINFCL.OC.114          1 LINE     80    1 PAGE UM   ENGLE               FEB. 27, 1978  13:47:55
                         ACC:FILEINFO         
0          THIS FILE HAS THE PROGRAM KEY ACC.:FILEINFO.
00104/118A  ACCOUNTING               ACCFLINF        SG  G          S0027 DISTRB FSNAME=ACCFLINF                                    
            4.3T1    84  ACCOUNTING.ACCFLINF.SG.118         1 LINE    100    3 PAGE UM   ENGLE               FEB. 20, 1980  10:33:58
0          MAIN FUNCTION TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE.
0          Referenced by comments of: 104/116, 104/121, 104/123, 104/125 
1                                                                                               SUN SEP 08/96   19:03:19   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/119A  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.
00104/120A  ACCOUNTING               ACCFLINF        OC  G          S0027 DISTRB FSNAME=AFIN                                        
            4.3T1    86  ACCOUNTING.ACCFLINF.OC.120         1 LINE     80    7 PAGE UM   ENGLE               FEB. 20, 1980  10:34:12
00104/121   ACCOUNTING               ACCFLKWF        SG  G          S0027 DISTRB FSNAME=ACCFLKWF                                    
            D4.1T1   56  ACCOUNTING.ACCFLKWF.SG.117         1 LINE     70    1 PAGE UM   ENGLE               FEB. 27, 1978  14:01:40
0          KWSCAN EXECUTE SUBROUTINE FOR ACCFLINF (104/118).
00104/122   ACCOUNTING               ACCFLKWF        OC  G          S0027 DISTRB FSNAME=AFKF                                        
            D4.1T1   57  ACCOUNTING.ACCFLKWF.OC.118         1 LINE     80    1 PAGE UM   ENGLE               FEB. 27, 1978  14:02:24
00104/123   ACCOUNTING               ACCFLATN        SG  G          S0027 DISTRB FSNAME=ACCFLATN                                    
            D4.2T1   85  ACCOUNTING.ACCFLATN.SG.120         1 LINE     55    1 PAGE UM   ENGLE               JAN. 09, 1979  15:35:45
0          GOM ATTENTION INTERRUPT EXIT FOR ACCFLINF (104/118).
00104/124   ACCOUNTING               ACCFLATN        OC  G          S0027 DISTRB FSNAME=AFLA                                        
            D4.2T1   86  ACCOUNTING.ACCFLATN.OC.121         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  15:38:12
00104/125   ACCOUNTING               ACCFLAIO        SA  G  AFIO    S0027 DISTRB FSNAME=ACCFLAIO                                    
            D4T1    382  ACCOUNTING.ACCFLAIO.SA.105         1 LINE     80    1 PAGE UM   ENGLE               MAR. 02, 1977  11:42:53
0          SUBROUTINES ACCSCN AND ACCCLS WHICH ARE INTERFACES BETWEEN ACCFLINF (104/118)
           AND ACCSCAN AND ACCCLOSE (104/23).
00104/126   ACCOUNTING               ACCFLAIO        OC  G          S0027 DISTRB FSNAME=AFIO                                        
            D4T1    383  ACCOUNTING.ACCFLAIO.OC.106         1 LINE     80    1 PAGE UM   ENGLE               MAR. 02, 1977  11:42:57
00104/127   ACCOUNTING               LINCOUNT        SA  G  LCNT    S0027 DISTRB FSNAME=LINCOUNT                                    
            D4.2T1   87  ACCOUNTING.LINCOUNT.SA.124         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:00:46
0          DEFINITION OF THE VARIABLE LINCOUNT.  REFERENCED BY ACCPRINT (104/6),
           ACCLSTPR (104/86), ACPRJPRT (104/42), ACCMAINT (104/22), ACCPRJMT
           (104/37), AND ACONSIST (104/53).
00104/128   ACCOUNTING               LINCOUNT        OC  G          S0027 DISTRB FSNAME=LCNT                                        
            D4.2T1   88  ACCOUNTING.LINCOUNT.OC.125         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:01:15
00104/129   ACCOUNTING               ACCRETRV        SG  G          S0027 DISTRB FSNAME=ACCRETRV                                    
            D4.2T1   89  ACCOUNTING.ACCRETRV.SG.126         1 LINE    135    5 PAGE UM   ENGLE               JAN. 26, 1979  10:27:54
0          PROGRAM TO MOUNT AN ACCSAVE TAPE (104/99) AND DISPLAY OR LIST ACCOUNTING OR
           PROJECT RECORDS.  ASSUMES THE EXISTENCE OF PROGRAMS IN ACC:ACCDISPLAY,
           ACC:PROJECTDISP, ACC:ACCLISTING, AND ACC:PROJECTLIST.
0          Referenced by comments of: 104/132 
1                                                                                               SUN SEP 08/96   19:03:19   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/130   ACCOUNTING               ACCRETRV        OC  G          S0027 DISTRB FSNAME=ARTV                                        
            D4.2T1   90  ACCOUNTING.ACCRETRV.OC.127         1 LINE     80    9 PAGE UM   ENGLE               JAN. 26, 1979  10:34:06
00104/131   ACCOUNTING               ACCRETRV        OE  G        # ACC:ACCRETRIEVE                                                 
                                                                                    UM   ENGLE                                      
                         ACC.:ACCRETRIEVE     
0          ACCRETRV+ACCTAPRD
00104/132   ACCOUNTING               TIMECALL        SA  G  TMCL    S0027 DISTRB FSNAME=TIMECALL                                    
            D4.2T1   91  ACCOUNTING.TIMECALL.SA.129         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:05:36
0          INTERFACE TO DYNAMICALLY LINK TO THE TIME SUBROUTINE. CALLED BY ACCRETRV
           (104/129).
00104/133   ACCOUNTING               TIMECALL        OC  G          S0027 DISTRB FSNAME=TMCL                                        
            D4.2T1   92  ACCOUNTING.TIMECALL.OC.130         1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1979  13:06:23
00104/134   ACCOUNTING               GTPRJIDS        SA  G  GPID    S0027 DISTRB FSNAME=GTPRJIDS                                    
            D4.2T1   93  ACCOUNTING.GTPRJIDS.SA.131         1 LINE     80   13 PAGE UM   ENGLE               JAN. 11, 1979  11:04:53
0          SUBROUTINE TO OBTAIN THE SIGNON IDS BELONGING TO A PROJECT.  COPIES GRDEF
           (104/70), ACCPROJFMT (104/2) AND *CNFGINFODSECT (654).
00104/135   ACCOUNTING               GTPRJIDS        OC  G          S0027 DISTRB FSNAME=GPID                                        
            D4.2T1   94  ACCOUNTING.GTPRJIDS.OC.132         1 LINE     80    4 PAGE UM   ENGLE               JAN. 11, 1979  11:05:00
00104/136   ACCOUNTING               ACCPRJID        SG  G          S0027 DISTRB FSNAME=ACCPRJID                                    
            D4.2T1   95  ACCOUNTING.ACCPRJID.SG.133         1 LINE    112    1 PAGE UM   ENGLE               JAN. 09, 1979  13:08:32
0          PROGRAM TO LIST THE SIGNON ID'S FOR A SPECIFIED PROJECT.
00104/137   ACCOUNTING               ACCPRJID        OC  G          S0027 DISTRB FSNAME=APID                                        
            D4.2T1   96  ACCOUNTING.ACCPRJID.OC.134         1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:08:55
00104/138   ACCOUNTING               ACCPRJID        OE  G        # ACC:PROJECTIDS                                                  
                                                                                    UM   ENGLE                                      
                         ACC.:PROJECTIDS      
00104/139   ACCOUNTING               IDRANGE         SG  G          S0027 DISTRB FSNAME=IDRANGE                                     
            D4.2T1   97  ACCOUNTING.IDRANGE.SG.136          1 LINE     84    3 PAGE UM   ENGLE               JAN. 09, 1979  14:35:56
0          PROGRAM TO PRINT THE LAST ID IN A RANGE GIVEN THE FIRST ID AND NUMBER
           OF ID'S OR THE NUMBER OF ID'S GIVEN THE FIRST AND LAST ID'S WITH OPTION
           TO LIST ALL ID'S IN THE RANGE.  COLLATING SEQUENCE IS A-H, J-N, P-Z, 0-9.
00104/140   ACCOUNTING               IDRANGE         OC  G          S0027 DISTRB FSNAME=IRNG                                        
            D4.2T1   98  ACCOUNTING.IDRANGE.OC.137          1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  14:36:14
00104/141C  ACCOUNTING               ACCKILL         SG  O          S0027 DISTRB FSNAME=ACCKILL                                     
            4.3T1    87  ACCOUNTING.ACCKILL.SG.141          1 LINE    110    3 PAGE UM   ENGLE               MAR. 07, 1980  17:47:11
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,
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          THE SIGNON ID, AND THE SIGNON ID A SECOND TIME FOR VERIFICATION.  INFORMATION
           ABOUT THE CHANGE IS WRITTEN IN ACCLOGFL (SEE FILENAME (104/56)).
00104/142   ACCOUNTING               ACCKILL         UC  G          S0027 DISTRB FSNAME=ACCKILLUPD                                  
                                                                                    UM   ENGLE                                      
0          UPDATES SOURCE FROM THE PREVIOUS REGULAR DISTRIBUTION TO THE CURRENT
           DISTRIBUTION.
00104/143C  ACCOUNTING               ACCKILL         OC  O          S0027 DISTRB FSNAME=AKIL                                        
            4.3T1    88  ACCOUNTING.ACCKILL.OC.143          1 LINE     80    4 PAGE UM   ENGLE               MAR. 07, 1980  17:47:20
00104/144A  ACCOUNTING               LOG             SG  G          S0027 DISTRB FSNAME=LOGSOURCE                                   
            4.3T1    89  ACCOUNTING.LOG.SG.144              1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  10:41:31
0          SUBROUTINE TO WRITE AN AUDIT TRAIL IN A LOG FILE.
0          Referenced by comments of: 631/15 
00104/145C  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/146A  ACCOUNTING               LOG             OC  G          S0027 DISTRB FSNAME=LOG                                         
            4.3T1    91  ACCOUNTING.LOG.OC.146              1 LINE     80    4 PAGE UM   ENGLE               FEB. 20, 1980  10:41:45
00104/147A  ACCOUNTING               *ACCOUNTING     D            # MTS:$ACCOUNTING                                                 
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING          
0          THIS FILE CONTAINS THE SUFFIXS FOR THE NAME OF THE AUXILIARY ACCOUNTING
           FILE CONTAINING THE ACCOUNTING RECORD FOR EACH USER ID.  THIS FILE MUST
           BE PERMITTED AS FOLLOWS: R/N,R (PKEY=*SYS.ACC,PKEY=*ACC,PKEY=INIT:INIT,
           PKEY=(ACCPASWD (104/50)),PKEY=(ACCSGATR (104/97)),PKEY=(FIX (502/11)),
           PKEY=*ACRESTORE,PKEY=(SCANFILES (502/1))),WE PKEY=INIT:INITCHK,RW ACC.,
           RWE PKEY=(FILUPDAT (104/64))
            
           THE DISTRIBUTED SYSTEM HAS THE FOLLOWING USERIDS:  ACC., APL., BB00 ... BB99,
           BNCH, B001 ... B500, COPY, DIST, DWB., ETC., FILE, FIX., INIT, MTA., MTS., 
           NEW., NPRV, RSTR, SEG2, STRT, SYS., TMTS, UNSP, WSG., W009, AND W170.
00104/148A  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=*ACC,PKEY=INIT:INIT,PKEY=(FIX (502/11)),PKEY=*ACRESTORE,
           PKEY=(FILUPDAT (104/64)),PKEY=(SCANFILES (502/1)),PKEY=(ACCPASWD (104/50)),
           PKEY=(ACCSGATR (104/97))),R PKEY=ACC.:FILEINFO,RW ACC.
1                                                                                               SUN SEP 08/96   19:03:19   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/149A  ACCOUNTING               *ACCOUNTING2    D            # MTS:$ACCOUNTING2                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING2         
00104/150A  ACCOUNTING               *ACCOUNTING3    D            # MTS:$ACCOUNTING3                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING3         
00104/151A  ACCOUNTING               *ACCOUNTING4    D            # MTS:$ACCOUNTING4                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING4         
00104/152A  ACCOUNTING               *ACCOUNTING5    D            # MTS:$ACCOUNTING5                                                
                                                                                    UM   ENGLE                                      
                         *ACCOUNTING5         
00104/153A  ACCOUNTING               *PROJECT        D            # MTS:$PROJECT                                                    
                                                                                    UM   ENGLE                                      
                         *PROJECT             
0          THE PROJECT FILE CONTAINS A RECORD FOR EACH PROJECT.  THE FILE MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=(*ACC,PKEY=*SYS.MESSAGE)
           THIS FILE MUST ALSO BE PERMITTED READ TO THE USER ID WHICH RUNS THE BILLING PROGRAMS.
00104/154A  ACCOUNTING               *PRJDIRECTORY   D            # MTS:$PRJDIRECTOR                                                
                                                                                    UM   ENGLE                                      
                         *PRJDIRECTORY        
0          THE PROJECT DIRECTORY FILE CONTAINS LISTS OF THE USER ID'S BELONGING TO EACH
           PROJECT.  THE FILE MUST BE PERMITTED AS FOLLOWS:
           P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=(*ACC,PKEY=*SYS.MESSAGE)
00104/155   ACCOUNTING               *PWSTAT         D            # MTS:TST.PWSTAT                                                  
                                                                                    UM   ENGLE                                      
                         *PWSTAT              
0          LOG FILE USED TO RECORD THE TIME AND DATE OF PASSWORD SETTINGS BY THE
           ACCOUNTING PROGRAMS.  MUST BE PERMITTED AS FOLLOWS:
           P/N, (RWC,TRUNC) ACC.&PKEY=NEW.:LOGPURGE
           SOME INSTALLATIONS MAY CHOOSE TO PERMIT THIS FILE WE TO ALL SO THAT ANY USER
           WHO MANAGES TO RUN ACCPASWD (104/50) OR ACCSGATR (104/97) WILL LEAVE SOME
           EVIDENCE.  IN THEORY, THESE PROGAMS ARE NOT AVAILABLE TO USERS.
00104/156   ACCOUNTING               LOG FILE        D            # MTS:TST.ACCLOG                                                  
                                                                                    UM   ENGLE                                      
                         ACC.:ACCLOG          
0          THIS FILE WILL ACCUMULATE ACCOUNTING MAINTENANCE AND PROJECT MAINTENANCE
           DATA. IT SHOULD BE PURGED REGULARLY TO PREVENT IT BECOMING TOO LARGE.
           NEW:LOGPURGE (739) MAY BE USED FOR THIS PURPOSE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00108/001A *PL360                    COMPILER        S3             DBMS:PL360COMP.S                                                
            4.3T1    92  PL360.COMPILER.S3.001              1 LINE     80   81 PAGE UM   BLOCK               APR. 05, 1980  14:02:01
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 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 PL360COMP.O+PL360INTF.O
                COMBINE
                PUNCH ON *PL360 
                STOP
            
           *PL360 CREATES AND DESTROYS A TEMPORARY FILE (-PL360#01) IN WHICH
           IT KEEPS AN INTERMEDIATE VERSION OF THE OBJECT MODULES IT PRODUCES.
            
           THE MTS VERSION OF PL360 IS DESCRIBED FURTHER IN CCMEMO 75.
           THE BEST REFERENCE MANUAL FOR PL360 IS "INTRODUCTION TO PL360
           PROGRAMMING" BY RICHARD L. GUERTIN (WADSWORTH PUBLISHING CO.,
           BELMONT, CALIFORNIA).
00108/002A *PL360                    MTS INTERFACE   SA             DBMS:PL360INTF.S                                                
            4.3T1    93  PL360.MTS_INTERFACE.SA.002         1 LINE     80   14 PAGE UM   BLOCK               APR. 05, 1980  14:02:06
0          SOURCE FOR MTS INTERFACE OF PL/360.
00108/003A *PL360                    *PL360          OE             *PL360                                                          
            4.3T1    94  PL360.*PL360.OE.003                1 SEQ   26292   10 PAGE UM   BLOCK               APR. 05, 1980  14:02:08
                         *PL360               
00108/004A *PL360                    LIBRARY         SA             DBMS:PL360LIB.S                                                 
            4.3T1    95  PL360.LIBRARY.SA.004               1 LINE     80    3 PAGE UM   BLOCK               APR. 05, 1980  14:02:11
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.
            
1                                                                                               SUN SEP 08/96   19:03:19   Page   65
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          PL360LIB.S CONTAINS THE ASSEMBLY SOURCE FOR *PL360LIB.
00108/005A *PL360                    *PL360LIB       OE             *PL360LIB                                                       
            4.3T1    96  PL360.*PL360LIB.OE.005             1 LINE    572    1 PAGE UM   BLOCK               APR. 05, 1980  14:02:13
                         *PL360LIB            
00110       TNL                                      SA           # (ABANDONED)                                                     
            D3T1    335  TNL.*TNL.S.1                       1 SEQ      80   30 PAGE UM                       JULY 31, 1973  00:08.57
00111/001  *PTPRRTN                                  SA  G  PTPR    W116:PTPR.S                                                     
            D4.2T1  101  PTPRRTN..SA.001                    1 LINE     80   24 PAGE UM   H YOUNG             MAR. 26, 1979  02:28:14
0          DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER.  ASKS THE 
           OPERATOR FOR THE CAUSE OF ANY EQUIPMENT CHECKS AND THEN TRANSMITS THAT
           INFORMATION TO THE USER.  MAXIMUM LENGTH OF THE OPERATOR'S RESPONSE IS
           GOVERNED BY THE LENGTH OF THE PAD WHICH IS FOUND IN THE PSECT (LENGTH IS
           COMPUTED BY &LENRESP).  MINIMUM LENGTH OF THE OPERATOR'S RESPONSE IS SET
           BY &MINRESP AND IS CURRENTLY SET TO 10 CHARACTERS.  COPIES COPY:MTS.MACROS.
00111/002  *PTPRRTN                                  OC  G          *PTPRRTN                                                        
            D4.2T1  102  PTPRRTN..OC.002                    1 LINE     80    3 PAGE UM   H YOUNG             MAR. 26, 1979  02:28:18
                         *PTPRRTN             
00116/001A *PDP8RTN                                  SA  G  PDP8    WSG:PDP8                                                        
            4.3T1    97  PDP8RTN..SA.001                    1 LINE     80   74 PAGE UM   WSG                 MAY  21, 1980  23:06:51
                         WSG.:PDP8            
0          MTS DEVICE SUPPORT ROUTINES FOR THE UM FRONT END MACHINES (DATA CONCENTRATORS). 
           INCLUDES SUPPORT FOR "VOTRAX" AUDIO RESPONSE UNITS BY CALLING SPECIAL SUBROUTINES
           TO PERFORM I/O CONVERSION (SEE COMP 681).  COPIES COPY:LLMPSEQU (087),
           COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), *CNFGINFODSECT (654), AND
           *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 681/1, 681/2, 681/19 
00116/002A *PDP8RTN                                  OC  G          *PDP8RTN                                                        
            4.3T1    98  PDP8RTN..OC.002                    1 LINE   8976   28 PAGE UM   WSG                 MAY  21, 1980  23:06:59
                         *PDP8RTN             
00116/003  *PDP8RTN                  MEMO 370        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M370                              
            D4.1T1   63  PDP8RTN.MEMO_370.WF.005            1 LINE    119    4 PAGE UM   FLOWER              MAY  13, 1978  17:05:03
0          THIS IS COMPUTING CENTER MEMO 370 -- "USE OF THE TEXAS INSTRUMENTS MODEL
           733 ASR TERMINAL WITH THE DATA CONCENTRATOR."
00116/004  *PDP8RTN                  MEMO 375        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M375DECWRITER                    
            D4.2T1  106  PDP8RTN.MEMO_375.WF.006            1 LINE    104   10 PAGE UM   P.O.                SEP. 07, 1978  15:03:42
0          THIS IS COMPUTING CENTER MEMO 375 -- "THE DECWRITER TERMINAL AND MTS."
00116/005C *PDP8RTN                  MEMO 413        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M413                              
            4.3T1    99  PDP8RTN.MEMO_413.WF.005            1 LINE     68    3 PAGE UM   LUBBERS             FEB. 29, 1980  10:17:22
0          THIS IS COMPUTING CENTER MEMO 413 -- "GUIDE FOR USING DECWRITER TERMINALS WITH
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          VARIOUS TERMINAL CONTROLLERS."
00117      *GRAPHMAC                                 SM           # (OBSOLETE)                                                      
            D4T1    396  GRAPHMAC..SM.                      1 SEQ      80   63 PAGE UM                       JULY 31, 1973  00:14.26
00119/001   SYN360                                   SS             S0720 'D3T1' FSNAME=SYN360..SS.1(1)                          343
            D4T1    397  SYN360..SS.001                     1 SEQ      80    5 PAGE UM   DWB                 JULY 31, 1973  00:15.37
0          PROGRAM (IN SNOBOL) TO PRODUCE THE SYNTAX TABLES THAT SNOBOL USES TO PARSE ITS INPUT.
           USED AS "CPU BURNER" AND "PAGER" FOR SYSTEM TESTING.
00119/002   SYN360                   TABLES DATA     D              S0720 'D3T1' FSNAME=SYN360.TABLES_DATA.D.2(1)                344
            D4T1    398  SYN360.TABLES_DATA.D.002           1 SEQ      80    3 PAGE UM   DWB                 JULY 31, 1973  00:15.38
0          INPUT TO 119/1.  ENDS WITH A "$CONTINUE WITH SYNTBL" CARD.
00120/001   REWIND SUBR                              SA  G          S1143 D4.1T1 VLO FSNAME=REWIND_SUBR..SA.001(1)                64
            D4.1T1   64  REWIND_SUBR..SA.001                1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  17:05:05
0          FORTRAN CALLABLE REWIND SUBROUTINE.  ASSEMBLE USING *SYSMAC.
00120/002   REWIND SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00121/001A *USERS                                    SG  G          MTS:USERS.S                                                     
            4.3T1   100  USERS..SG.001                      1 LINE     75    1 PAGE UM   MTA                 APR. 05, 1980  14:06:21
0          GOM PROGRAM TO ISSUE A "$SYSTEMSTATUS USERS" COMMAND (GRUDGINGLY).
           IT IS SUGGESTED THAT THIS PROGRAM NOT BE INSTALLED AT NEW INSTALLATIONS.
00121/002A *USERS                                    OC  G          *USERS                                                          
            4.3T1   101  USERS..OC.002                      1 LINE     80    1 PAGE UM   MTA                 APR. 05, 1980  14:06:23
00123      *PTASKS                                   SA           # (OBSOLETE)                                                      
            D4T1    405  PTASKS..SA.                        1 SEQ      80   17 PAGE UM                       JULY 31, 1973  00:15.58
00126/001   BLSTDEV                                  SA  G          S0720 'D3T1' FSNAME=BLSTDEV..SA.1(1)                         351
            D4T1    406  BLSTDEV..SA.001                    1 LINE     80    3 PAGE UM   MTA                 JULY 30, 1973  03:31.46
0          SUBROUTINE TO RESET A DEVICE FOR A NEW OPERATION. USED BY SEVERAL DSR'S.
00126/002   BLSTDEV                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00128      *PTPPRTN                                  SA  S          S0563 D4T1 VLO FSNAME=PTPPRTN..SA.(1)                        407
            D4T1    407  PTPPRTN..SA.                       1 SEQ      80   19 PAGE UM   WSG                 JULY 31, 1973  00:17.03
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 1018 PAPER TAPE PUNCH.  HAS BUGS AND HAS NOT BEEN USED AT UM FOR MANY YEARS.
           OBJECT NOT DISTRIBUTED; WASTE YOUR OWN MONEY ASSEMBLING IT!
00129/001  *STATUS                                   SA  G        # (SEE COMP 104)                                                  
                                                                                    UM   ENGLE                                      
0          PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD.
1                                                                                               SUN SEP 08/96   19:03:19   Page   67
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          RUN WITH PROT=OFF.
00129/002A *STATUS                                   OE  G          *STATUS                                                         
            4.3T1   102  STATUS..OE.002                     1 LINE   6148    3 PAGE UM   ENGLE               APR. 05, 1980  14:06:25
                         *STATUS              
0          CONSISTS OF:  STATUS (104/16) + *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       STRTPDP                                               # (OBSOLETE, SEE COMP 614)                                        
            D2T1    149                                                             UM                                              
00132      *PERMIT                                   SA           # (OBSOLETE)                                                      
            D4T1    409  PERMIT..SA.001                     1 LINE     80    6 PAGE UM                       JULY 27, 1977  22:26:58
00133/001  *PLOT                                     SA             S1011 ETC 'MISC' FSNAME=PTRCONVPLOT                             
            D4.2T1  108  PLOT..SA.001                       1 LINE     72    8 PAGE UM   LIFT                DEC. 07, 1978  15:44:47
0          CONVERSATIONAL INTERFACE TO PRINTER PLOT SUBROUTINES (282).
00133/002  *PLOT                                     OC             *PLOT                                                           
            D4.2T1  109  PLOT..OC.002                       1 LINE     80    3 PAGE UM   LIFT                MAR. 26, 1979  02:31:35
                         *PLOT                
00135/001A *TAPERTN                                  SA  G  TAPE    WSG:TAPE                                                        
            4.3T1   103  TAPERTN..SA.001                    1 LINE     80  110 PAGE UM   WSG                 APR. 05, 1980  14:06:27
                         WSG.:TAPE            
0          MTS DEVICE SUPPORT ROUTINES FOR MAGNETIC TAPES.  NOTE:  THE "NLC" CONTROL COMMAND
           (WHICH ONLY WORKS IF ISSUED BY A USER ID WHICH IS AUTHORIZED TO $SET PROT=OFF OR
           BY USER ID SYS WITH PROGRAM KEY "*LABEL") OVERRIDES THE NORMAL CHECKING FOR
           VOLUME LABELS.  IT IS USED BY *LABEL (487) TO LABEL VIRGIN TAPES AND FIND LABEL
           (729) TO PRINT UNKNOWN LABELS.  COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS
           (1026/1), COPY:GLOBALSETS (1026/2), *CNFGINFODSECT (654), AND *SENSEDSECT (3025).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:SETPARM (653/1).
0          Referenced by comments of: 489/1 
00135/002A *TAPERTN                                  OC  G          *TAPERTN                                                        
            4.3T1   104  TAPERTN..OC.002                    1 LINE     80    7 PAGE UM   WSG                 APR. 05, 1980  14:06:44
                         *TAPERTN             
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE.
00136/001  *FIX                                      C   G          *FIX                                                            
            D4T1    415  FIX..C.001                         1 LINE      7    1 PAGE UM   ENGLE               JULY 27, 1977  22:49:32
                         *FIX                 
0          COMMAND FILE USED BY OPERATORS TO CLEAN UP A USERID (E.G. AFTER A SNARK).  THIS WILL SET THE
           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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00136/002  *FIX                      FIX:FIX         C   G          FIX:FIX                                                         
            D4T1    416  FIX.FIX:FIX.C.002                  1 LINE     49    1 PAGE UM   ENGLE               JULY 27, 1977  22:49:34
                         FIX.:FIX             
0          COMMAND FILE TO RUN *ACCRESTORE (484).
0          Referenced by comments of: 136/1 
00137/001  *UPDATE                   D4 MASTER       SA  G  UPDT    W009:UPDATE.S                                                   
            D4T1    417  UPDATE.D4_MASTER.SA.001            1 LINE     80   32 PAGE UM   SHERRY              JULY 27, 1977  22:49:35
                         W009:UPDATE.S        
0          D4 MASTER SOURCE FOR THE MTS SOURCE UPDATE PROGRAM.  REQUIRES BLOCKED I/O ROUTINES (283).
00137/002  *UPDATE                   UPDATE          UU  G          W009:UPDATE.U                                                   
            D4T1    418  UPDATE.UPDATE.UU.002               1 LINE     72    5 PAGE UM   SHERRY              JULY 27, 1977  22:49:39
                         W009:UPDATE.U        
0          UPDATE DECK TO PRODUCE D4 SOURCE FOR *UPDATE FROM D3 MASTER SOURCE.
           MAJOR SURGERY WAS PERFORMED TO FIX SEVERAL BUGS AND SUPPORT THE NEW
           "%MCMD MTSCOMMAND" COMMAND.
00137/003  *UPDATE                                   OE  G          *UPDATE                                                         
            D4T1    419  UPDATE..OE.003                     1 LINE   7560    4 PAGE UM   SHERRY              JULY 27, 1977  22:49:41
                         *UPDATE              
00138/001  *TEXT360                  MONITOR         SA  G  T360    W062:T360.S                                                     
            D4T1    420  TEXT360.MONITOR.SA.001             1 LINE     80   18 PAGE UM   TIFFANY             JULY 27, 1977  22:49:43
0          NEW VERSION 7 OF TEXT/360 TEXT PROCESSING PROGRAM.  THE SEPARATE PROGRAMS
           *FMAINT, *BLDLIN, *PLAOUT, AND *POSTPR ARE NO LONGER USED.  INSTEAD, *TEXT360
           CONTAINS ALL THESE PROGRAMS.  IN ADDITION, MOST PARTS OF TEXT/360 HAVE BEEN
           RE-WRITTEN BECOMING BOTH SMALLER AND FASTER.
00138/002  *TEXT360                  FMAINT          SA  G  FMNT    W062:FM.S                                                       
            D4.2T1  112  TEXT360.FMAINT.SA.002              1 LINE     80   55 PAGE UM   TIFFANY             MAR. 26, 1979  02:31:48
0          TEXT/360 FILE MAINTENANCE.
00138/003  *TEXT360                  BLDLIN          SA  G  BLDL    W062:BUILINE.S                                                  
            D4T1    422  TEXT360.BLDLIN.SA.003              1 LINE     80   94 PAGE UM   TIFFANY             JULY 27, 1977  22:49:54
0          TEXT/360 BUILD LINES.
00138/004  *TEXT360                  HYPHEN          SA  G  HYPH    W062:HYPHEN.S                                                   
            D4.2T1  113  TEXT360.HYPHEN.SA.004              1 LINE     80   10 PAGE UM   TIFFANY             MAR. 26, 1979  02:31:56
0          TEXT/360 SUBROUTINE TO HYPHENATE WORDS.
00138/005  *TEXT360                  PLAOUT          SA  G  PLAY    W062:PAGELAYOUT                                                 
            D4.2T1  114  TEXT360.PLAOUT.SA.005              1 LINE     80   70 PAGE UM   TIFFANY             MAR. 26, 1979  02:31:56
0          TEXT/360 PAGE LAYOUT.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00138/006  *TEXT360                  PPR1            SP  O  PPR1    W062:POSTPR                                                     
            D4.2T1  115  TEXT360.PPR1.SP.006                1 LINE     80   28 PAGE UM   TIFFANY             MAR. 26, 1979  02:32:05
0          TEXT/360 POST PROCESSOR.
00138/007  *TEXT360                  PPR2            SA  G  PPR2    W062:PPR2                                                       
            D4T1    426  TEXT360.PPR2.SA.007                1 LINE     80   11 PAGE UM   TIFFANY             JULY 27, 1977  22:50:26
0          TEXT/360 SPELLING POSTPROCESSOR.
00138/008  *TEXT360                  OBJECT          OE  G          *TEXT360                                                        
            D4.2T1  116  TEXT360.OBJECT.OE.008              1 SEQ   14896   27 PAGE UM   TIFFANY             MAR. 26, 1979  02:32:07
                         *TEXT360             
0          OBJECT FROM 138/1 THROUGH 138/7.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/009  *TEXT360                  *PRESCAN        SA  O  SCAN    W062:PRESCAN                                                    
            D4T1    428  TEXT360.*PRESCAN.SA.009            1 LINE     80   40 PAGE UM   TIFFANY             JULY 27, 1977  22:50:30
0          TEXT/360 PRESCAN PROGRAM.
00138/010  *TEXT360                  *PRESCAN        OE  O          *PRESCAN                                                        
            D4T1    429  TEXT360.*PRESCAN.OE.010            1 LINE   8994    5 PAGE UM   TIFFANY             JULY 27, 1977  22:50:34
                         *PRESCAN             
00138/011  *TEXT360                  *PRINT          SA  G  PRNT    W062:PRINT                                                      
            D4T1    430  TEXT360.*PRINT.SA.011              1 LINE     80   11 PAGE UM   TIFFANY             JULY 27, 1977  22:50:37
0          TEXT/360 OUTPUT PRINTING PROGRAM.
00138/012  *TEXT360                  *PRINT          OC  G          *PRINT                                                          
            D4T1    431  TEXT360.*PRINT.OC.012              1 LINE     80    3 PAGE UM   TIFFANY             JULY 27, 1977  22:50:39
                         *PRINT               
00138/013  *TEXT360                  *DICTUPD        SP  G  DICT    W062:DICTUPD                                                    
            D4T1    432  TEXT360.*DICTUPD.SP.013            1 LINE     80    7 PAGE UM   TIFFANY             JULY 27, 1977  22:50:41
0          PROGRAM TO MAINTAIN TEXT/360 SPELLING DICTIONARY.
00138/014  *TEXT360                  *DICTUPD        OE  O          *DICTUPD                                                        
            D4T1    433  TEXT360.*DICTUPD.OE.014            1 LINE  10746    5 PAGE UM   TIFFANY             JULY 27, 1977  22:50:43
                         *DICTUPD             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/015  *TEXT360                  *DICT           D              *DICT                                                           
            D4T1    434  TEXT360.*DICT.D.015                1 SEQ    4096   22 PAGE UM   TIFFANY             JULY 27, 1977  22:50:45
                         *DICT                
0          TEXT/360 SPELLING DICTIONARY CONTAINING ABOUT 12000 WORDS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00138/016  *TEXT360                  *HYPHDICT       D              *HYPHDICT                                                       
            D4.2T1  117  TEXT360.*HYPHDICT.D.016            1 LINE     64    5 PAGE UM   MANUAL              MAR. 26, 1979  02:32:08
                         *HYPHDICT            
0          A HYPHENATION OVERRIDE DICTIONARY FOR WORDS THAT MTS TEXT PROCESSING LANGUAGES
           CANNOT HYPHENATE CORRECTLY.
00138/017A *TEXT360                  *T360MASTCONV   SP  G          S0701 RD16T1 VLO FSNAME=TEXT360.*T360MASTCONV.SP.017(1)       18
            4.3T1   105  TEXT360.*T360MASTCONV.SP.017       1 LINE     70    3 PAGE UM   TIFFANY             JULY 12, 1979  22:25:52
0          PROGRAM TO CONVERT A TEXT/360 MASTER FILE INTO A TEXT/360 INPUT STREAM.
00138/018A *TEXT360                  *T360MASTCONV   SA  G          S0701 RD16T1 VLO FSNAME=TEXT360.*T360MASTCONV.SA.018(1)       19
            4.3T1   106  TEXT360.*T360MASTCONV.SA.018       1 LINE     72    1 PAGE UM   TIFFANY             JULY 12, 1979  22:25:54
0          A SUBROUTINE TO REPLACE "NONPRINTABLE" CHARACTERS WITH SPECIAL CHARACTERS
           PRECEDED BY EITHER A "/" OR "//".
00138/019A *TEXT360                  *T360MASTCONV   OE  G          *T360MASTCONV                                                   
            4.3T1   107  TEXT360.*T360MASTCONV.OE.019       1 LINE   5598    5 PAGE UM   TIFFANY             APR. 05, 1980  14:08:28
                         *T360MASTCONV        
0          EXTERNAL SYMBOL IHESAPC SHOULD BE RENAMED IHESAPE.  ENDS WITH A
           "$CONTINUE WITH *PL1LIB" RECORD.
00140/001  *ANALYSIS                                 SA  G          S0563 D4T1 VLO FSNAME=ANALYSIS..SA.001(1)                    438
            D4T1    438  ANALYSIS..SA.001                   1 LINE     80   60 PAGE UM   MTA                 JULY 27, 1977  22:50:55
0          PROGRAM USED IN ANALYZING THE STATISTICS PRODUCED ON MAGNETIC TAPE BY THE STAT JOB (079).
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 79/1 
00140/002  *ANALYSIS                                 OC  G          *ANALYSIS(1)                                                    
            D4T1    439  ANALYSIS..OC.002                   1 LINE  11972    7 PAGE UM   MTA                 JULY 27, 1977  22:51:00
                         *ANALYSIS            
0          THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000.  SEE CCMEMO 393 (079/6).
00140/003  *ANALYSIS                 PL/1 MAIN PGM   SP             S0563 D4T1 VLO FSNAME=ANALYSIS.PL/1_MAIN_PGM.SP.003(1)       440
            D4T1    440  ANALYSIS.PL/1_MAIN_PGM.SP.003      1 LINE     80    1 PAGE UM   MTA                 JUNE 28, 1974  16:12.14
0          PL/1 MAIN PROGRAM FOR USE WITH *ANALYSIS.
00140/004  *ANALYSIS                 PL/1 MAIN PGM   OC             *ANALYSIS(0,.999)                                               
            D4T1    441  ANALYSIS.PL/1_MAIN_PGM.OC.004      1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  22:57:07
00140/005  *ANALYSIS                 EXAMPLE STP2    SA  G          S0938 FSAVE2 VLO FSNAME=KIPSSTP2(2)                          124
            D4T1    442  ANALYSIS.EXAMPLE_STP2.SA.005       1 LINE     80   43 PAGE UM   MTA                 NOV. 08, 1975  00:29:03
0          EXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS.  CALLS THE HISTOGRAM SUBROUTINE (140/7).
           COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC.
0          Referenced by comments of: 140/7 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00140/006  *ANALYSIS                 EXAMPLE STP2    OC  G          S0938 FSAVE2 VLO FSNAME=KIPSSTP2(3)                          177
            D4T1    443  ANALYSIS.EXAMPLE_STP2.OC.006       1 LINE     80   29 PAGE UM   MTA                 OCT. 25, 1976  22:22:14
00140/007  *ANALYSIS                 HISTOGRAM       SA  G          *ANALYSIS(-400,-1)                                              
            D4T1    444  ANALYSIS.HISTOGRAM.SA.007          1 LINE     80   11 PAGE UM   MTA                 JULY 27, 1977  23:11:25
0          SUBROUTINE TO PLOT HISTOGRAMS, VAGUELY RELATED TO *ANALYSIS AND BRIEFLY DESCRIBED IN CCMEMO 393 (079/6).
           CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/5). ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 140/5 
00140/008  *ANALYSIS                 HISTOGRAM       OC  G          *ANALYSIS(-600,-401)                                            
            D4T1    445  ANALYSIS.HISTOGRAM.OC.008          1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  23:11:26
00140/009  *ANALYSIS                 CALLSTP2        SA  G          MTA:CALLSTP2(1,999)                                             
            D4.1T1   71  ANALYSIS.CALLSTP2.SA.010           1 LINE     80    5 PAGE UM   MTA                 MAY  13, 1978  17:05:20
                         MTA.:CALLSTP2        
0          PROGRAM TO REPLACE *ANALYSIS FOR THE CASE WHERE ONLY STP2A, STP2D, AND/OR
           STP2E ARE SUPPLIED AND THE JOB AREA IS NOT NEEDED.  MUCH FASTER THAN *ANALYSIS
           FOR THIS CASE.
00140/010  *ANALYSIS                 CALLSTP2        OC  G          MTA:CALLSTP2(1000)                                              
            D4.1T1   72  ANALYSIS.CALLSTP2.OC.011           1 LINE     80    2 PAGE UM   MTA                 MAY  13, 1978  17:05:21
00141      *GPAKDRAW                                 S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00143       REWIND# SUBR                             SA           # (SEE COMP 578)                                                  
                                                                                    UM                                              
00144/001  *ASA                                      SA  O  ASA     LBT:ASA(1,999)                                                  
            D4T1    450  ASA..SA.001                        1 LINE     80    4 PAGE UM   TIFFANY             JULY 27, 1977  23:16:57
0          PRINTS OUTPUT WITH ASA STANDARD CARRIAGE CONTROL.
           ASSEMBLE WITH PAR=BATCH.
00144/002  *ASA                                      OC  O          *ASA                                                            
            D4T1    451  ASA..OC.002                        1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  23:16:59
                         *ASA                 
00145/001  *TASKS                                    SA  G          S0563 D4T1 VLO FSNAME=TASKS..SA.001(1)                       452
            D4T1    452  TASKS..SA.001                      1 LINE     80    5 PAGE UM   WSG                 DEC. 01, 1976  12:53:23
0          MTS PROGRAM TO PRINT TASK STATUS IN SAME FORMAT AS TASKS JOB (019).  CALLS TSKFMT SUBROUTINE
           WHICH IS PART OF TASKS JOB (019).
0          Referenced by comments of: 19/1 
00145/002  *TASKS                                    OC  G          *TASKS                                                          
            D4T1    453  TASKS..OC.002                      1 LINE     80    1 PAGE UM   WSG                 JULY 27, 1977  23:19:56
                         *TASKS               
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00146      *OLDED                                    SA           # (OBSOLETE)                                                      
            D2T1    325                                                             UM                                              
00147/001  *FILESCAN                                 SA  G  FSCN    S0027 DISTRB FSNAME=FILESCAN                                    
            D4T1    454  FILESCAN..SA.001                   1 LINE     80    9 PAGE UM   ENGLE               DEC. 05, 1975  16:09:05
0          MTS FILE SCANNING PROGRAM.
00147/002  *FILESCAN                                 OE  G          S0027 DISTRB FSNAME=FSCN                                        
            D4T1    455  FILESCAN..OE.002                   1 LINE    255    2 PAGE UM   ENGLE               DEC. 05, 1975  16:09:21
00148/001  *WATLIB                                                  *WATLIB                                                         
            D4T1    456  WATLIB...001                       1 SEQ     384    4 PAGE UM   SHERRY              JULY 27, 1977  23:22:28
                         *WATLIB              
0          THIS FILE HAS SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES AND ASSEMBLER SUBROUTINE OBJECT DECKS 
           WHICH *WATFIV ASSUMES AS THE DEFAULT LIBRARY WHEN ATTEMPTING TO RESOLVE UNDEFINED SYMBOLS IN
           WATFIV PROGRAMS.
0          Referenced by comments of: 148/2, 148/3 
00148/002  *WATLIB                   WATSUB SUBR     SA  G          W159:WAT5.XFACE.S(4)                                            
            D4T1    457  WATLIB.WATSUB_SUBR.SA.002          1 LINE     66    3 PAGE UM   SHERRY              AUG. 14, 1977  19:11:25
0          SOURCE FOR THE WATSUB SUBROUTINE.  OBJECT IS IN *WATLIB (148/1).
00148/003  *WATLIB                   TRACER SUBR     SA  G          W159:WAT5.TRACE.S                                               
            D4T1    458  WATLIB.TRACER_SUBR.SA.003          1 LINE     57    1 PAGE UM   SHERRY              AUG. 14, 1977  19:11:26
0          SOURCE FOR THE TRACER SUBROUTINE.  OBJECT IS IN *WATLIB (148/1).
00148/004  *WATLIB                   WATGENLIB       SA  G  WATG    W159:WATGEN.S                                                   
            D4T1    459  WATLIB.*WATGENLIB.SA.004           1 LINE     80   23 PAGE UM   SHERRY              JULY 27, 1977  23:22:29
0          WATFIV LIBRARY GENERATOR.  THE WATFIV CONTROL CARD CHARACTER IS "/"
           (ALTERNATIVELY "$"), SO THE SET SYMBOLS &CC AND &CCA SHOULD BE CHANGED
           APPROPRIATELY IF A DIFFERENT CONVENTION IS FOLLOWED.
           ASSEMBLE USING *SYSMAC.
00148/005  *WATLIB                   *WATGENLIB      OE  G          *WATGENLIB                                                      
            D4T1    460  WATLIB.*WATGENLIB.OE.005           1 SEQ    3151    2 PAGE UM   SHERRY              JULY 27, 1977  23:22:31
                         *WATGENLIB           
00151      *CONVSNOBOL                               SS  G          *CONVSNOBOL                                                     
            D4T1    461  CONVSNOBOL..SS.                    1 LINE     69    1 PAGE UM   SWARTZ              JULY 27, 1977  23:22:33
                         *CONVSNOBOL          
0          $SOURCE FILE WHICH RUNS A SNOBOL PROGRAM TO ENHANCE CONVERSATIONAL USE OF SNOBOL.
00153      *MADTOPL1                                 SS     MPL1    *MADTOPL1                                                       
            D4T1    462  MADTOPL1..SS.                      1 LINE     80   21 PAGE UM   ?                   JULY 27, 1977  23:22:35
                         *MADTOPL1            
0          CONVERT MAD 7090 TO PL/I
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00154/001  *LAS                                      C              *LAS                                                            
            D4T1    463  LAS..C.001                         1 LINE      9    1 PAGE UM   WSG                 JULY 27, 1977  23:22:37
                         STRT:*LAS            
0          COMMAND FILE FOR STARTING MTS TERMINAL LINES.  INVOKED BY ENTERING "MTS *LAS" ON THE
           OPERATORS CONSOLE.  SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:LAS (154/2).
0          Referenced by comments of: 621/1 
00154/002  *LAS                      LAS             C              MTS:TST.LAS                                                     
            D4.2T1  119  LAS.LAS.C.002                      1 LINE     67    1 PAGE UM   WSG                 MAR. 26, 1979  02:32:17
                         STRT:LAS             
0          COMMAND FILE WHICH STARTS UP MTS TERMINAL LINES.  THIS FILE WILL HAVE TO BE
           MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION.
0          Referenced by comments of: 154/1 
00156       IPL PROGRAM                                           # (OBSOLETE)                                                      
            D3.2T1  131  IPL_PROGRAM..SA.01                 1 LINE     80   13 PAGE UM                       MAR. 21, 1975  01:13:31
00157/001   IPL BOOTSTRAP                            SA  G  IPLB    W009:ABSLDR(1,999)                                              
            D4T1    465  IPL_BOOTSTRAP..SA.001              1 LINE     80    4 PAGE UM   SHERRY              JULY 27, 1977  23:22:41
                         W009:ABSLDR          
0          ABSOLUTE LOADER FOR STAND-ALONE PROGRAMS.
           THE OBJECT DECK FOR THIS PROGRAM MUST BE MASSAGED BY HAND (OR KEYPUNCH) BEFORE IT WILL
           IPL (SEE COMMENTS IN LISTING IF IT BECOMES NECESSARY TO RE-ASSEMBLE -- UNLIKELY).
           157/2 HAS ALREADY BEEN APPROPRIATELY FIXED.
           CURRENTLY, THIS PROGRAM IS NOT USED.
00157/002   IPL BOOTSTRAP                            OC  G          W009:ABSLDR(1000)                                               
            D4T1    466  IPL_BOOTSTRAP..OC.002              1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  23:22:43
0          THIS OBJECT DECK (ALONG WITH 156 AND SOME REP CARDS) IS LOCATED AT THE END (AFTER
           THE LDT CARD) OF THE RESIDENT SYSTEM DECK.
00160       FRONCOPY                                 S            # (OBSOLETE)                                                      
            D2T1    387                                                             UM                                              
00162    A  PSA DSECT                                SA  G          COPY:PSA                                                        
            4.3T1   108  PSA_DSECT..SA.                     1 LINE     72    4 PAGE UM   MTA                 APR. 05, 1980  14:08:29
                         COPY:PSA             
0          DEFINITION OF PREFIXED STORAGE AREA (PSA).
           COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS.
           REQUIRES THAT COPY:GLOBALS (1026/3) BE COPIED FIRST.
0          Referenced by comments of: 45/1, 46/1, 577/2, 577/4, 577/7, 611/1, 634/4, 1021/1, 1021/4 
00163/001A  PL1 COMPILER             MACLIB          SM  G  MAC     W062:OSMACLIB                                                   
            4.3T1   109  PL1_COMPILER.MACLIB.SM.001         1 LINE     80   27 PAGE UM   TIFFANY             APR. 05, 1980  14:08:31
0          PL/I(F) VERSION 5.5 COMPILER (RELEASE 21.8).
1                                                                                               SUN SEP 08/96   19:03:19   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           
           ********************************************************************
           THIS VERSION OF THE PL/I(F) COMPILER HAVE ALREADY BEEN SENT OUT ON RD4.2C.
           IT DIFFERS FROM THE PREVIOUS VERSION IN THE FOLLOWING WAYS:
            
            1) FASTER AND CHEAPER COMPILATION.
            2) INPUT RECORDS OVER 100 BYTES WILL BE TRUNCATED WITH A WARNING.
            3) COMPILER OPTIONS 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/13, 233/41, 595/6 
00163/002A  PL1 COMPILER             MACLIB          SM  G          W062:MAC                                                        
            4.3T1   110  PL1_COMPILER.MACLIB.SM.002         1 LINE     73    8 PAGE UM   TIFFANY             APR. 05, 1980  14:08:33
0          ANOTHER MACRO LIBRARY.
0          Referenced by comments of: 233/32 
00163/003A  PL1 COMPILER             REPLACE         SA  G  RPLC    W062:IOPACK(1000,1999)                                          
            4.3T1   111  PL1_COMPILER.REPLACE.SA.003        1 LINE     80    3 PAGE UM   TIFFANY             APR. 05, 1980  14:08:35
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/004A  PL1 COMPILER             CHKLIO          SA  G  CKL     W062:IOPACK(2000,2999)                                          
            4.3T1   112  PL1_COMPILER.CHKLIO.SA.004         1 LINE     80    3 PAGE UM   TIFFANY             APR. 05, 1980  14:09:00
0          ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT.
00163/005A  PL1 COMPILER             NONSENSE        SA  G  NONE    W062:IOPACK(3000,3999)                                          
            4.3T1   113  PL1_COMPILER.NONSENSE.SA.005       1 LINE     80    3 PAGE UM   TIFFANY             APR. 05, 1980  14:09:27
0          ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE.
            
           ASSEMBLE USING THE 163/1 MACRO LIBRARY.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00163/006A  PL1 COMPILER             FREEDDEF        SA  G  FREE    W062:IOPACK(4000,4999)                                          
            4.3T1   114  PL1_COMPILER.FREEDDEF.SA.006       1 LINE     80    2 PAGE UM   TIFFANY             APR. 05, 1980  14:09:53
0          ROUTINE TO FREE ALL DDEF'S.
            
           ASSEMBLE USING THE 163/1 MACRO LIBRARY.
00163/007A  PL1 COMPILER             FINDTIOT        SA  G  FIND    W062:IOPACK(5000,5999)                                          
            4.3T1   115  PL1_COMPILER.FINDTIOT.SA.007       1 LINE     80    2 PAGE UM   TIFFANY             APR. 05, 1980  14:10:19
0          ROUTINE TO FIND A TIOT GIVEN A "DDNAME."
            
           ASSEMBLE USING THE 163/1 MACRO LIBRARY.
00163/008A  PL1 COMPILER             DDEF            SA  G  DDEF    W062:IOPACK(6000,6999)                                          
            4.3T1   116  PL1_COMPILER.DDEF.SA.008           1 LINE     80   10 PAGE UM   TIFFANY             APR. 05, 1980  14:10:46
0          ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH.
            
           ASSEMBLE USING THE 163/1 MACRO LIBRARY.
00163/009A  PL1 COMPILER             OPEN            SA  G  OPEN    W062:IOPACK(7000,7999)                                          
            4.3T1   117  PL1_COMPILER.OPEN.SA.009           1 LINE     80   16 PAGE UM   TIFFANY             APR. 05, 1980  14:11:16
0          SIMULATE OS/360 OPEN.  CURRENTLY ONLY BSAM AND QSAM ARE SUPPORTED. 
            
           ASSEMBLE USING THE 163/1 MACRO LIBRARY.
00163/010A  PL1 COMPILER             ROUT            SA  G  RUTE    W062:IOPACK(8000,8999)                                          
            4.3T1   118  PL1_COMPILER.ROUT.SA.010           1 LINE     80   32 PAGE UM   TIFFANY             APR. 05, 1980  14:12:18
0          LIST OF VARIOUS ROUTINES.
            
           MODIFIED TO FIX @NOTIFY PROBLEM.
            
           ASSEMBLE USING THE 163/1 MACRO LIBRARY.
00163/011A  PL1 COMPILER             CLOSE           SA  G  CLOS    W062:IOPACK(9000,9999)                                          
            4.3T1   119  PL1_COMPILER.CLOSE.SA.011          1 LINE     80    5 PAGE UM   TIFFANY             APR. 05, 1980  14:13:12
0          SIMULATE OS/360 CLOSE.
            
           ASSEMBLE USING THE 163/1 MACRO LIBRARY.
00163/012A  PL1 COMPILER             SETPFX          SA  G  SPFX    W062:IOPACK(10000,10999)                                        
            4.3T1   120  PL1_COMPILER.SETPFX.SA.012         1 LINE     80    7 PAGE UM   TIFFANY             APR. 05, 1980  14:13:46
0          ALTERNATE ROUTINES: SETPFX, GETPFX WITH MULTICHARACTER PREFIX FEATURES.
00163/013A  PL1 COMPILER             UPDATE          UC             W062:PL1.UP                                                     
            4.3T1   121  PL1_COMPILER.UPDATE.UC.013         1 LINE     73   40 PAGE UM   TIFFANY             APR. 05, 1980  14:14:13
0          *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                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
              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/10 FOR INFORMATION REGARDING THE INSTALLATION AND
           MAINTENANCE OF VERSION 5.5 OF THE PL/I-F COMPILER.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           MODULES IEMFE AND IEMQJ UPDATED.
           *****************************************************************************
00163/014A  PL1 COMPILER             ESDLIST         SA  G  ESDL    W062:PL1LCS(1,999)                                              
            4.3T1   122  PL1_COMPILER.ESDLIST.SA.014        1 LINE     80    2 PAGE UM   TIFFANY             APR. 05, 1980  14:14:37
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  TM      W062:IEMTM                                                      
            4.3T1   123  PL1_COMPILER.IEMTM.SA.015          1 LINE     80   42 PAGE UM   TIFFANY             APR. 05, 1980  14:14:39
0          COMPILER PHASE "TM" WHICH PRODUCES THE SYMPL1 RECORDS IF THE "TEST" OPTION IS USED.
00163/016A  PL1 COMPILER             *PL1            OE  G          *PL1                                                            
            4.3T1   124  PL1_COMPILER.*PL1.OE.016           1 LINE   5196    9 PAGE UM   TIFFANY             APR. 05, 1980  14:14:48
                         *PL1                 
0          Referenced by comments of: 163/17 
00163/017A  PL1 COMPILER             PL1LINKLIB      OE  G          ETC:PL1LINKLIB                                                  
            4.3T1   125  PL1_COMPILER.PL1LINKLIB.OE.017     1 LINE  17741  238 PAGE UM   TIFFANY             APR. 05, 1980  14:14:50
                         ETC:PL1LINKLIB       
0          A DIR-TYPE LIBRARY LINE FILE FROM WHICH *PL1 (163/16) LOADS PHASES DURING
           COMPILATION. 
00164      *LCS                                      OC  G          *LCS                                                            
            D4T1    488  LCS..OC.                           1 LINE     24    1 PAGE UM   MTA                 JULY 27, 1977  23:24:46
                         *LCS                 
0          CONTAINS THE SINGLE LOADER CARD:
            LCS            LCSYMBOL
0          Referenced by comments of: 129/2, 303/4, 631/15, 739/4, 740/4 
00170      *LISTVTOC                                 SA           # (OBSOLETE)                                                      
            D2T1    105                                                             UM                                              
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00171      *BATCH                                    SA           # (OBSOLETED BY *BATCH*)                                          
            D2T1    327                                                             UM                                              
00172/001A *UMIST                    MACRO LIB       SM             S0600 UMIST FSNAME=UMIST.MAC                                    
            4.3T1   126  UMIST.MACRO_LIB.SM.001             1 LINE     72    8 PAGE UM   WELTER              SEP. 07, 1979  09:14:41
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.
            
           **************************************************************************
           D4.3 UMIST CHANGES:
            
           REMOVED SWAP REGISTER INSTRUCTIONS AND FIXED MISCELLANEOUS BUGS.
           **************************************************************************
00172/002A *UMIST                    /SYMBOLS        SA             S0600 UMIST FSNAME=UMIST.SYMS                                   
            4.3T1   127  UMIST./SYMBOLS.SA.002              1 LINE     72    3 PAGE UM   WELTER              SEP. 07, 1979  09:16:28
0          THIS IS THE UMIST.SYMS COPY SECTION
0          Referenced by comments of: 172/1 
00172/003A *UMIST                    /PSECT          SA             S0600 UMIST FSNAME=UMIST.PSECT                                  
            4.3T1   128  UMIST./PSECT.SA.003                1 LINE     72    4 PAGE UM   WELTER              SEP. 07, 1979  09:16:38
0          THIS IS THE UMIST.PSECT COPY SECTION
0          Referenced by comments of: 172/1 
00172/004A *UMIST                    /ENTRY          SA             S0600 UMIST FSNAME=UMIST.ENT.AS                                 
            4.3T1   129  UMIST./ENTRY.SA.004                1 LINE     71    5 PAGE UM   WELTER              SEP. 07, 1979  09:17:28
0          "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH AS POSSIBLE.
00172/005A *UMIST                    /TABLES         SA             S0600 UMIST FSNAME=UMIST.TAB.AS                                 
            4.3T1   130  UMIST./TABLES.SA.005               1 LINE     73    5 PAGE UM   WELTER              SEP. 07, 1979  09:17:51
0          MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS.
           CALLED "/TABLES"
00172/006A *UMIST                    /MISC           SA             S0600 UMIST FSNAME=UMIST.MIS.AS                                 
            4.3T1   131  UMIST./MISC.SA.006                 1 LINE     72    1 PAGE UM   WELTER              SEP. 07, 1979  09:18:10
0          "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK,
           INPUT BUFFER, AND FREE STORAGE.
00172/007A *UMIST                    /UTILITIES      SA             S0600 UMIST FSNAME=UMIST.UTL.AS                                 
            4.3T1   132  UMIST./UTILITIES.SA.007            1 LINE     77   24 PAGE UM   WELTER              SEP. 07, 1979  09:18:57
0          "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH SUPPORT PRIMITIVE FUNCTIONS.
           THIS ASSEMBLY USES THE "SWPR" RPQ'ED INSTRUCTION.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00172/008A *UMIST                    /FCNS/1         SA             S0600 UMIST FSNAME=UMIST.FN1.AS                                 
            4.3T1   133  UMIST./FCNS/1.SA.008               1 LINE     71   27 PAGE UM   WELTER              SEP. 07, 1979  09:19:10
0          "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS.
00172/009A *UMIST                    /FCNS/2         SA             S0600 UMIST FSNAME=UMIST.FN2.AS                                 
            4.3T1   134  UMIST./FCNS/2.SA.009               1 LINE     71   19 PAGE UM   WELTER              SEP. 07, 1979  09:19:24
0          "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS.
00172/010A *UMIST                    TEST DECK       D              S0600 UMIST FSNAME=UMIST.TEST                                   
            4.3T1   135  UMIST.TEST_DECK.D.010              1 LINE     80    3 PAGE UM   WELTER              SEP. 07, 1979  09:20:43
0          "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF.
00172/011A *UMIST                    OBJECT          OE  G          *UMIST                                                          
            4.3T1   136  UMIST.OBJECT.OE.011                1 LINE  15736    8 PAGE UM   WELTER              APR. 05, 1980  14:17:22
                         *UMIST               
0          THIS IS *UMIST, THE LINKEDITED OBJECT OF 172/1 THROUGH 172/9. 
00175      *GPAKLIB                                  OL           # (OBSOLETE)                                                      
            D4T1    500  GPAKLIB..OL.                       1 SEQ    3888   40 DISK UM                       JAN. 22, 1973  18:22.11
00178      *PIL - OLD VERSION                        SA  S        # (OBSOLETED BY 566)                                              
            D3T1    447  PIL..SA.1                          1 SEQ      80  215 PAGE UM                       JULY 31, 1973  00:38.27
00179      *GPAKGRID                                 OC           # (OBSOLETE)                                                      
            D4T1    501  GPAKGRID..OC.                      1 LINE     80    7 DISK UM                       JAN. 22, 1973  22:06.14
00180       SCANDASD                                 SA           # (OBSOLETE)                                                      
            D2T1    117                                                             UM                                              
00182/001  *SNOBOL4                  MAIN            SA  G          S0720 'D3T1' FSNAME=SNOBOL4.S4.SA.1(1)                       450
            D4T1    502  SNOBOL4.MAIN.SA.001                1 SEQ      80  138 PAGE UM   SWARTZ              JULY 31, 1973  00:40.21
0          BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4.
           COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13).
0          Referenced by comments of: 182/6 
00182/002  *SNOBOL4                  SUBR            SA  G          S0720 'D3T1' FSNAME=SNOBOL4.SUBR.SA.2(1)                     451
            D4T1    503  SNOBOL4.SUBR.SA.002                1 SEQ      80   46 PAGE UM   SWARTZ              JULY 31, 1973  00:41.01
0          BELL LABS SOURCE FOR SUBROUTINES.
00182/003  *SNOBOL4                  MACROS          SA  G          S0720 'D3T1' FSNAME=SNOBOL4.MACROS.SA.3(1)                   452
            D4T1    504  SNOBOL4.MACROS.SA.003              1 SEQ      80   41 PAGE UM   SWARTZ              JULY 31, 1973  00:44.08
0          BELL LABS SOURCE FOR MACROS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00182/004  *SNOBOL4                  GENERATE        C              S0101 'SNOBOL4 FS' FSNAME=S4.GEN                                
            D4T1    505  SNOBOL4.GENERATE.C.004             1 LINE    128    1 PAGE UM   SWARTZ              MAY  06, 1975  19:57:08
0          MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4.
00182/005  *SNOBOL4                  LINKEDIT        C              S0101 'SNOBOL4 FS' FSNAME=S4.LINK                               
            D4T1    506  SNOBOL4.LINKEDIT.C.005             1 LINE     54    1 PAGE UM   SWARTZ              MAY  06, 1975  19:57:10
0          MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4.
00182/006  *SNOBOL4                  UPDATE          UU  G          S0101 'SNOBOL4 FS' FSNAME=S4.MTS.U                              
            D4T1    507  SNOBOL4.UPDATE.UU.006              1 LINE     80   23 PAGE UM   SWARTZ              APR. 30, 1975  22:36:24
0          *UPDATE DECK TO MODIFIY BELL LABS SOURCE (182/1) TO BRING IT UP TO VERSION 3.10
           SNOBOL 4 AND TO ADD THE CHANGES NECESSARY TO RUN IT IN MTS.
00182/007  *SNOBOL4                  OBJECT          OE  G          *SNOBOL4                                                        
            D4T1    508  SNOBOL4.OBJECT.OE.007              1 SEQ   32767   27 PAGE UM   SWARTZ              JULY 27, 1977  23:26:57
                         *SNOBOL4             
0          OBJECT FROM ASSEMBLY OF MAIN AND SUBR, WHICH HAS BEEN COMBINED AND PURGED
           BY *LINKEDIT.
00182/008  *SNOBOL4                  MACLEAN         SP  G          S0720 'D3T1' FSNAME=SNOBOL4.MACLEAN.SP.6(1)                  455
            D4T1    509  SNOBOL4.MACLEAN.SP.008             1 SEQ      80    1 PAGE UM   SWARTZ              JULY 31, 1973  00:47.21
0          SOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSEMBLY.
00182/009  *SNOBOL4                  MACLEAN         OC  G          S0720 'D3T1' FSNAME=SNOBOL4.MACLEAN.OC.7(1)                  456
            D4T1    510  SNOBOL4.MACLEAN.OC.009             1 SEQ      80    2 PAGE UM   SWARTZ              JULY 31, 1973  00:47.23
0          RUN THIS PLUS *PL1LIB.
00182/010  *SNOBOL4                  TEST PGMS       SS  G          S0101 'SNOBOL4 FS' FSNAME=S4.TEST                               
            D4T1    511  SNOBOL4.TEST_PGMS.SS.010           1 LINE     72    3 PAGE UM   SWARTZ              APR. 30, 1975  22:36:43
0          PROGRAMS FOR TESTING SNOBOL4.
00182/011  *SNOBOL4                  MLINK           SA  G          S0101 'SNOBOL4 FS' FSNAME=MLINK                                 
            D4T1    512  SNOBOL4.MLINK.SA.011               1 LINE     28    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:16
0          COPY SECTION.
0          Referenced by comments of: 182/1, 334/1 
00182/012  *SNOBOL4                  PARMS           SA  G          S0101 'SNOBOL4 FS' FSNAME=PARMS                                 
            D4T1    513  SNOBOL4.PARMS.SA.012               1 LINE     68    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:18
0          COPY SECTION.
0          Referenced by comments of: 182/1, 334/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00182/013  *SNOBOL4                  MDATA           SA  G          S0101 'SNOBOL4 FS' FSNAME=MDATA                                 
            D4T1    514  SNOBOL4.MDATA.SA.013               1 LINE     39    1 PAGE UM   SWARTZ              APR. 30, 1975  22:36:14
0          COPY SECTION.
0          Referenced by comments of: 182/1, 334/1 
00191      *TRANSNOBOL                               SS  G          *TRANSNOBOL                                                     
            D4T1    515  TRANSNOBOL..SS.                    1 LINE     76    4 PAGE UM   SWARTZ              JULY 27, 1977  23:27:11
                         *TRANSNOBOL          
0          CONVERT SNOBOL3 TO SNOBOL4. UNCHANGED SINCE DIST 1.
00193/001  *OSMAC                                    SM             *OSMAC                                                          
            D4T1    516  OSMAC..SM.001                      1 LINE     72  159 PAGE UM   H YOUNG             JULY 27, 1977  23:27:12
                         *OSMAC               
0          MACRO LIBRARY FOR OS/360 RELEASE 21.0
0          Referenced by comments of: 545/32 
00193/002  *OSMAC                    BUILD PROGRAM   SA     MACB    S0652 SOURCE POSN=MACBLD                                     1  
            D4T1    517  OSMAC.BUILD_PROGRAM.SA.002         1 SEQ      80   11 PAGE UM   H YOUNG             JULY 27, 1977  23:29:04
0          THIS IS A PROGRAM TO BUILD *OSMAC.  IT READS NAMES OF MACROS (UP TO 255 CHARS PER LINE) FROM
           SCARDS, DELETING ANY NAMES WHICH ARE DUPLICATES OR WHICH ARE LONGER THAN 8 CHARS.  THE LIST
           OF MACRO NAMES IS TERMINATED BY AN END-OF-FILE FROM SCARDS.  THE NAMES ARE SORTED INTO 
           ALPHABETICAL ORDER AND THE MACRO TAPE IS THEN READ FROM LOGICAL I/O UNIT 0.
           THE SPECIFIED MACROS ARE WRITTEN IN THE MACRO LIBRARY FILE (LOGICAL I/O UNIT 1)
           BEGINNING AT LINE 3000.  THE READING IS TERMINATED WHEN ALL SPECIFIED MACROS HAVE BEEN
           FOUND OR WHEN 2 CONSEQUTIVE END-OF-FILES HAVE BEEN READ.  A DIRECTORY SHOWING THE STARTING
           LINE NUMBER FOR EACH MACRO IS PRINTED ON SPRINT.
            
           NORMALLY, THIS PROGRAM DELETES SEQUENCE ID FROM THE MACROS TO SAVE FILE SPACE (A LOT).
           STATEMENTS 201 AND 202 SHOULD BE DELETED IF SEQUENCE ID IS TO BE PRESERVED:
                    LA    1,72
                    STH   1,LEN
00193/003  *OSMAC                    BUILD PROGRAM   OC             W116:BUILDMAC                                                   
            D4T1    518  OSMAC.BUILD_PROGRAM.OC.003         1 LINE     80    3 PAGE UM   H YOUNG             JULY 27, 1977  23:29:06
00196       PAGEIT                                   SA           # (OBSOLETED BY COMP 643)                                         
            D3T2      4  PAGEIT..SA.1                       1 LINE     80    3 PAGE UM                       JULY 31, 1973  20:59.23
0          Referenced by comments of: 643/1 
00197    A *SMDS                                     M              *SMDS                                                           
            4.3T1   137  SMDS..M.                           1 LINE    168    6 PAGE UM   MTS                 APR. 05, 1980  14:17:24
                         *SMDS                
0          MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET).  USED IN CONJUNCTION WITH FMSG MACRO IN MTS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00198/001   GUINFO/CUINFO SUBRS      D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=INFO                        
            D4T1    520  GUINFO/CUINFO_SUBRS.D4_MA.SA.001   1 SEQ      80   12 PAGE UM   MTS       HELFFRICH JULY 27, 1977  23:30:24
0          SUBROUTINES TO ALLOW USERS TO ACCESS (OR CHANGE) CERTAIN INFORMATION IN THE MTS DSECT.
           COPIES COPY:LLMPSEQU (087), COPY:JOBSTA (413/9), AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
00198/002A  GUINFO/CUINFO SUBRS      UPDATE          UC  G          MTS:INFOUPD                                                     
            4.3T1   138  GUINFO/CUINFO_SUBRS.UPDAT.UC.002   1 LINE     72    7 PAGE UM   MTS       HELFFRICH APR. 05, 1980  14:17:26
                         MTS.:INFOUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=INFO.
00198/003A  GUINFO/CUINFO SUBRS                      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00198/004A  GUINFO/CUINFO SUBRS                      L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=INFO.LIST             7   
            4.3T1   139  GUINFO/CUINFO_SUBRS..L.004         1 SEQ     133   55 PAGE UM   MTS       HELFFRICH APR. 05, 1980  14:18:28
00200      *SDARTN                                   SA           # (OBSOLETE)                                                      
            D3T2      8  SDARTN..SA.1                       1 LINE     80   94 PAGE UM                       JULY 31, 1973  21:01.58
00201/001  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                14 
            D4T1    524  GPSS.OS_SOURCE.SA.001              1 SEQ      80   20 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:43
0          THE MTS IMPLEMENTATION OF GPSS OFFERS SEVERAL FEATURES NOT PROVIDED BY THE IBM VERSION:
            
              (1) IMPROVED LISTING CONTROL WITH BATCH AND TERMINAL DEFAULTS.
              (2) LINE NUMBERS IN THE LISTING.
              (3) SENSIBLE CARRIAGE CONTROL (FAR FEWER PAGE SKIPS).
              (4) CAPABILITY OF DIRECTLY INTERFACING WITH SUBROUTINES THAT USE OS/I CALLING SEQUENCES.
              (5) SUBROUTINES TO ALLOW MANIPULATION OF GPSS DATA FROM FORTRAN PROGRAMS.
              (6) TIME ESTIMATES TO ALLOW ERROR OUTPUT TO BE PRINTED BEFORE MTS TERMINATES A JOB.
              (7) ATTENTION INTERRUPT CONTROL TO TELL THE USER WHERE HIS PROGRAM IS AND HOW MUCH HAS BEEN SPENT.
              (8) PADDING AND TRUNCATION OF JOBTAPES FOR DISK SPACE ECONOMY.
              (9) ERROR MESSAGE SUMMARY.
            
           THREE PRINCIPLE APPENDAGES ARE TACKED ONTO THE IBM MODULES TO MAKE THESE IMPROVEMENTS.  FIRST, A DRIVER PROGRAM
           IS PROVIDED TO SCAN THE PAR= FIELD AND SET-UP DEFAULTS; AND, AT THE CONCLUSION OF A RUN, TO PRINT AN ERROR
           SUMMARY WHERE APPROPRIATE.  SECOND, A SET OF INTERFACE SUBROUTINES PROVIDE A SIMULATED OS/360 ENVIRONMENT.
           ONE NOTABLE FEATURE OF THIS INTERFACE IS THAT SCRATCH FILE I/O IS IMPLEMENTED BY USE OF VIRTUAL MEMORY FILES.
           THIRD, A SET OF SMALL "HOOK" SUBROUTINES IS PROVIDED.  BECAUSE OF THE VOLATILITY OF THE RATHER POOR IBM
           CODE, SUCH FUNCTIONS AS IMPROVED LISTING CONTROL WERE IMPLEMENTED BY ASSEMBLING "HOOKS" INTO THE IBM CODE,
           EACH "HOOK" RESULTING IN A CALL TO A "HOOK" SUBROUTINE.  WHILE THE "HOOK" SUBROUTINES EXHIBIT WHAT WOULD
           APPEAR TO BE BAD PROGRAMMING PRACTICES (E.G. ABSOLUTE DISPLACEMENTS IN INSTRUCTIONS), THEY HAVE BEEN CODED
           IN SUCH A WAY AS TO BE INSENSITIVE TO REASSEMBLY OF THE IBM MODULES.
            
           COMPONENTS 201/1 THROUGH 201/11 ARE THE OS/360 SOURCE FOR GPSS VERSION 1 MODIFICATION LEVEL 3.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00201/002  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                15 
            D4T1    525  GPSS.OS_SOURCE.SA.002              1 SEQ      80   11 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:44
00201/003  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                16 
            D4T1    526  GPSS.OS_SOURCE.SA.003              1 SEQ      80    8 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:46
00201/004  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                17 
            D4T1    527  GPSS.OS_SOURCE.SA.004              1 SEQ      80   62 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:50
00201/005  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                18 
            D4T1    528  GPSS.OS_SOURCE.SA.005              1 SEQ      80  102 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:55
00201/006  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                19 
            D4T1    529  GPSS.OS_SOURCE.SA.006              1 SEQ      80   22 PAGE UM   FLANIGAN            JULY 27, 1977  23:35:57
00201/007  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                20 
            D4T1    530  GPSS.OS_SOURCE.SA.007              1 SEQ      80   88 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:02
00201/008  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                21 
            D4T1    531  GPSS.OS_SOURCE.SA.008              1 SEQ      80  112 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:08
00201/009  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                22 
            D4T1    532  GPSS.OS_SOURCE.SA.009              1 SEQ      80  152 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:16
00201/010  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                23 
            D4T1    533  GPSS.OS_SOURCE.SA.010              1 SEQ      80  109 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:23
00201/011  *GPSS                     OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                24 
            D4T1    534  GPSS.OS_SOURCE.SA.011              1 SEQ      80   57 PAGE UM   FLANIGAN            JULY 27, 1977  23:36:28
00201/012  *GPSS                     GPSSUPDATE      UU  G          S0289 S289 'GPSS/360' FSNAME=GPSSUPDATE                         
            D4T1    535  GPSS.GPSSUPDATE.UU.012             1 LINE     80    7 PAGE UM   FLANIGAN            AUG. 13, 1974  15:30.13
0          UPDATE DECK TO BE APPLIED TO 11 OS SOURCE FILES.  A TAPE-TO-TAPE UPDATE VIA *UPDATE
           USING *IBM* TO *MTS* IS ASSUMED.  THIS UPDATE PRODUCES VERSION 1, MOD 4 GPSS.
00201/013  *GPSS                     GPSS.OS.O       OE  G          S0289 S289 'GPSS/360' FSNAME=GPSS.OS.O                          
            D4T1    536  GPSS.GPSS.OS.O.OE.013              1 LINE    255   43 PAGE UM   FLANIGAN            AUG. 13, 1974  15:28.34
0          OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES.
00201/014  *GPSS                     GPSSMAC         SM  G  GMAC    S0289 S289 'GPSS/360' FSNAME=GPSSMAC                            
            D4T1    537  GPSS.GPSSMAC.SM.014                1 LINE     80    8 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.29
0          MACRO LIBRARY NEEDED FOR ALL ASSEMBLIES.
00201/015  *GPSS                     GPSS.S          SA  G  GPSS    S0289 S289 'GPSS/360' FSNAME=GPSS.S                             
            D4T1    538  GPSS.GPSS.S.SA.015                 1 LINE     80    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.33
0          SOURCE FOR MTS DRIVER PROGRAM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00201/016  *GPSS                     GPSSPKG.S       SA  G  GPKG    S0289 S289 'GPSS/360' FSNAME=GPSSPKG.S                          
            D4T1    539  GPSS.GPSSPKG.S.SA.016              1 LINE     80    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.38
0          SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS.
00201/017  *GPSS                     HOOKSECT.S      SA  G  GHOK    S0289 S289 'GPSS/360' FSNAME=HOOKSECT.S                         
            D4T1    540  GPSS.HOOKSECT.S.SA.017             1 LINE     80   15 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.50
0          SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE.
00201/018  *GPSS                     JUNK.S          SA  G  GJNK    S0289 S289 'GPSS/360' FSNAME=JUNK.S                             
            D4T1    541  GPSS.JUNK.S.SA.018                 1 LINE     80    3 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.42
0          SOURCE FOR SEVERAL SUBROUTINES.
00201/019  *GPSS                     GPSS.MTS.O      OE  G          S0289 S289 'GPSS/360' FSNAME=GPSS.MTS.O                         
            D4T1    542  GPSS.GPSS.MTS.O.OE.019             1 LINE    255    7 PAGE UM   FLANIGAN            APR. 06, 1974  14:49.02
0          OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S.
00201/020  *GPSS                     *GPSS           OE  G          *GPSS                                                           
            D4T1    543  GPSS.*GPSS.OE.020                  1 SEQ   32767   34 PAGE UM   FLANIGAN            JULY 27, 1977  23:38:01
                         *GPSS                
0          LINKEDIT OF GPSS.OS.O AND GPSS.MTS.O WITH ENTRY POINT ESD ITEMS PURGED.
           NOTE:  GPSS CALL THE FOLLOWING LIBRARY SUBROUTINES:  COST, SETIME, AND TIMNTRP.
00201/021  *GPSS                     GPSSLIB         SA  G  GHLP    S0289 S289 'GPSS/360' FSNAME=HELPLIB.S                          
            D4T1    544  GPSS.*GPSSLIB.SA.021               1 LINE     80    8 PAGE UM   FLANIGAN            APR. 06, 1974  14:48.45
0          SOURCE FOR SUBROUTINES WHICH ALLOW THE MANIPULATION OF GPSS DATA FROM FORTRAN SUBROUTINES.
00201/022  *GPSS                     *GPSSLIB        OC  G          *GPSSLIB                                                        
            D4T1    545  GPSS.*GPSSLIB.OC.022               1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 27, 1977  23:38:05
                         *GPSSLIB             
00201/023  *GPSS                     *GPSSERR        M   G          *GPSSERR                                                        
            D4T1    546  GPSS.*GPSSERR.M.023                1 LINE     73    9 PAGE UM   FLANIGAN            JULY 27, 1977  23:38:08
                         *GPSSERR             
0          ERROR MESSAGE FILE.
00201/024  *GPSS                     TESTPROG        S   G  TEST    S0289 S289 'GPSS/360' FSNAME=TESTPROG                           
            D4T1    547  GPSS.TESTPROG.S.024                1 LINE     80    1 PAGE UM   FLANIGAN            APR. 06, 1974  14:49.23
0          SOURCE FOR TEST PROGRAM.
00201/025  *GPSS                     TESTOUTPUT      D   G          S0289 S289 'GPSS/360' FSNAME=TESTOUTPUT                         
            D4T1    548  GPSS.TESTOUTPUT.D.025              1 LINE    129    3 PAGE UM   FLANIGAN            NOV. 02, 1974  13:57.22
0          OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00201/026  *GPSS                     NOTES           WF             S0780 'D3.1T1' FSNAME=GPSS/360.D3.1_NOTES.WF.26(1)           190
            D4T1    549  GPSS.NOTES.WF.026                  1 LINE    107    1 PAGE UM   FLANIGAN            MAR. 06, 1974  03:34.46
0          WRITEUP DESCRIBING GPSS/360.
00204/001   FORTRANG                 IEYFORT         SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORT.S                       
            D4T1    550  FORTRANG.IEYFORT.SA.001            1 LINE     72   11 PAGE UM   HANSEN              JUNE 01, 1976  10:43:12
0          THIS IS THE MTS VERSION OF THE CONTROL MODULE OF THE FORTRAN G COMPILER. IT INCORPORATES THE FUNCTIONS
           OF THE OS MODULES IEYFORT AND IEYFORT2.  THIS MODULE IS THE ENTRY POINT TO THE COMPILER.
0          Referenced by comments of: 551/1 
00204/002   FORTRANG                 IEYFORT         OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORT.O                       
            D4T1    551  FORTRANG.IEYFORT.OC.002            1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  10:43:23
00204/003   FORTRANG                 IEYFORTD        SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORTD.S                      
            D4T1    552  FORTRANG.IEYFORTD.SA.003           1 LINE     72   12 PAGE UM   HANSEN              JUNE 01, 1976  10:43:18
0          THIS IS THE CONTROL MODULE OF THE COMPILER VERSION WHICH PRODUCES SYM RECORDS.
           IT OBTAINS SYMBOL STORAGE IN SEGMENT 6 AND COMPILER STORAGE IN SEGMENTS 7 AND
           ABOVE, GREATLY REDUCING THE CHANCE OF A COMPILER PROGRAM INTERRUPT.
0          Referenced by comments of: 204/21 
00204/004   FORTRANG                 IEYFORTD        OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORTD.O                      
            D4T1    553  FORTRANG.IEYFORTD.OC.004           1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  10:43:37
00204/005   FORTRANG                 IEYALL          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYALL.S                        
            D4T1    554  FORTRANG.IEYALL.SA.005             1 LINE     80   87 PAGE UM   HANSEN              OCT. 06, 1975  14:36:02
0          FORTRAN G ALLOCATE MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS
           (204/23).
00204/006   FORTRANG                 IEYALL          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYALL.O                        
            D4T1    555  FORTRANG.IEYALL.OC.006             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:38
00204/007   FORTRANG                 IEYEXT          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYEXT.S                        
            D4T1    556  FORTRANG.IEYEXT.SA.007             1 LINE     80   60 PAGE UM   HANSEN              OCT. 06, 1975  14:36:23
0          FORTRAN G EXIT MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS (204/23).
00204/008   FORTRANG                 IEYEXT          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYEXT.O                        
            D4T1    557  FORTRANG.IEYEXT.OC.008             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:43
00204/009   FORTRANG                 IEYGEN          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYGEN.S                        
            D4T1    558  FORTRANG.IEYGEN.SA.009             1 LINE     80  171 PAGE UM   HANSEN              OCT. 06, 1975  14:37:56
0          FORTRAN G CODE GENERATION MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING
           IEYMACROS (204/23).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00204/010   FORTRANG                 IEYGEN          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYGEN.O                        
            D4T1    559  FORTRANG.IEYGEN.OC.010             1 LINE     80    8 PAGE UM   HANSEN              JUNE 01, 1976  11:26:47
00204/011   FORTRANG                 IEYINT          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYINT.S                        
            D4T1    560  FORTRANG.IEYINT.SA.011             1 LINE     80    3 PAGE UM   HANSEN              OCT. 06, 1975  14:38:23
0          FORTRAN G POP INTERPRETER.  COPIES IEYDINT (204/24).  ASSEMBLE USING IEYMACROS
           (204/23).
00204/012   FORTRANG                 IEYINT          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYINT.O                        
            D4T1    561  FORTRANG.IEYINT.OC.012             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:26:51
00204/013   FORTRANG                 IEYPAR          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYPAR.S                        
            D4T1    562  FORTRANG.IEYPAR.SA.013             1 LINE     80  188 PAGE UM   HANSEN              NOV. 13, 1975  09:23:17
0          FORTRAN G PARSER MODIFIED TO ALLOW AN ARBITRARY NUMBER OF COMMENTS BETWEEN ANY
           TWO STATEMENTS.  COPIES IEYDINT (204/24).  ASSEMBLE USING IEYMACROS (204/23).
00204/014   FORTRANG                 IEYPAR          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYPAR.O                        
            D4T1    563  FORTRANG.IEYPAR.OC.014             1 LINE     80    9 PAGE UM   HANSEN              JUNE 01, 1976  11:26:55
00204/015   FORTRANG                 IEYROL          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYROL.S                        
            D4T1    564  FORTRANG.IEYROL.SA.015             1 LINE     80   11 PAGE UM   HANSEN              OCT. 06, 1975  14:39:13
0          FORTRAN G ROLL CONTROL MODULE FOR COMPILER WORKSPACE.  ASSEMBLE USING IEYMACROS
           (204/23).
00204/016   FORTRANG                 IEYROL          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYROL.O                        
            D4T1    565  FORTRANG.IEYROL.OC.016             1 LINE     80    4 PAGE UM   HANSEN              JUNE 01, 1976  11:27:00
00204/017   FORTRANG                 IEYOPT          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYOPT.S                        
            D4T1    566  FORTRANG.IEYOPT.SA.017             1 LINE     68    3 PAGE UM   HANSEN              OCT. 08, 1975  16:28:22
0          THIS IS AN OPTION SCANNER CALLED BY IEYFORT TO PARSE THE PAR FIELD.
00204/018   FORTRANG                 IEYOPT          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYOPT.O                        
            D4T1    567  FORTRANG.IEYOPT.OC.018             1 LINE    255    1 PAGE UM   HANSEN              OCT. 08, 1975  16:31:46
00204/019   FORTRANG                 IEYUNF          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYUNF.S                        
            D4T1    568  FORTRANG.IEYUNF.SA.019             1 LINE     80   35 PAGE UM   HANSEN              OCT. 06, 1975  14:39:38
0          FORTRAN G "UNIFY" MODULE.  COPIES IEYPSCT (204/27).  ASSEMBLE USING IEYMACROS
           (204/23).
00204/020   FORTRANG                 IEYUNF          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYUNF.O                        
            D4T1    569  FORTRANG.IEYUNF.OC.020             1 LINE     80    8 PAGE UM   HANSEN              JUNE 01, 1976  11:27:04
00204/021   FORTRANG                 IEYSYM          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYSYM.S                        
            D4T1    570  FORTRANG.IEYSYM.SA.021             1 LINE     72   15 PAGE UM   HANSEN              DEC. 15, 1975  12:43:24
0          THIS IS THE SYM CARD PRODUCING MODULE.  IT IS CALLED BY IEYFORTD (204/3).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00204/022   FORTRANG                 IEYSYM          OC  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYSYM.O                        
            D4T1    571  FORTRANG.IEYSYM.OC.022             1 LINE     80    4 PAGE UM   HANSEN              DEC. 15, 1975  12:43:35
00204/023   FORTRANG                 IEYMACROS       SM  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYMACROS                       
            D4T1    572  FORTRANG.IEYMACROS.SM.023          1 LINE     80   62 PAGE UM   HANSEN              OCT. 08, 1975  16:29:23
0          THE MACRO LIBRARY NEEDED TO ASSEMBLE ALL OS MODULES OF FORTRAN G, I.E. EVERYTHING
           EXCEPT IEYFORT, IEYFORTD, IEYOPT, AND IEYSYM.
0          Referenced by comments of: 204/5, 204/7, 204/9, 204/11, 204/13, 204/15, 204/19 
00204/024   FORTRANG                 IEYDINT         SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYDINT                         
            D4T1    573  FORTRANG.IEYDINT.SA.024            1 LINE     80   34 PAGE UM   HANSEN              OCT. 08, 1975  16:30:07
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
0          Referenced by comments of: 204/11, 204/13 
00204/025   FORTRANG                 IEYMID          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYMID                          
            D4T1    574  FORTRANG.IEYMID.SA.025             1 LINE     80    1 PAGE UM   HANSEN              OCT. 08, 1975  16:29:36
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
00204/026   FORTRANG                 IEYPRF          SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYPRF                          
            D4T1    575  FORTRANG.IEYPRF.SA.026             1 LINE     80    1 PAGE UM   HANSEN              OCT. 08, 1975  16:29:45
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
00204/027   FORTRANG                 IEYPSCT         SA  G          S0049 FG21.8 'FORTRAN G' FSNAME=IEYPSCT                         
            D4T1    576  FORTRANG.IEYPSCT.SA.027            1 LINE     80    5 PAGE UM   HANSEN              OCT. 08, 1975  16:30:00
0          A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G.
0          Referenced by comments of: 204/5, 204/7, 204/9, 204/19 
00204/028   FORTRANG                 REG OBJECT      OE  G          *FORTRANG                                                       
            D4T1    577  FORTRANG.REG_OBJECT.OE.028         1 SEQ   32766   16 PAGE UM   HANSEN              JULY 27, 1977  23:51:00
                         *FORTRANG            
0          THE LINKEDITED OBJECT OF THE REGULAR (NON-TEST) FORTRAN G COMPILER.
           IT INCLUDES IEYFORT, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, AND IEYUNF.
00204/029   FORTRANG                 TEST OBJECT     OE  G          *FTNGTEST                                                       
            D4T1    578  FORTRANG.TEST_OBJECT.OE.029        1 SEQ   32767   17 PAGE UM   HANSEN              JULY 27, 1977  23:51:01
                         *FTNGTEST            
0          THE LINKEDITED OBJECT OF THE SYM CARD PRODUCING VERSION OF THE FORTRAN G COMPILER.
           IT INCLUDES IEYFORTD, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, IEYSYM, AND IEYUNF.
00210/001A *LISP                                     SA  G          C4541C GO FSNAME=LISPSOURCE.ASMG(2)                             
            4.3T1   140  LISP..SA.001                       1 LINE     71  105 PAGE UM   GOODRICH            DEC. 07, 1979  09:47:53
0          NEW LISP INTERPRETER WRITTEN BY UM MENTAL HEALTH RESEARCH INSTITUTE.
           THE OLD OS/360 LISP IS NOW USED ONLY IN CONJUNCTION WITH REDUCE2 (556).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00210/002A *LISP                                     OE  G          *LISP                                                           
            4.3T1   141  LISP..OE.002                       1 SEQ      80   41 PAGE UM   GOODRICH            APR. 05, 1980  14:20:32
                         *LISP                
00210/003A *LISP                     TRANSIT         SA  G          C4541C GO FSNAME=TRANSIT.ASMG                                   
            4.3T1   142  LISP.TRANSIT.SA.003                1 LINE     93    7 PAGE UM   GOODRICH            JAN. 06, 1979  12:43:54
0          THIS COMPONENT CONTAINS THE "HYPOTHETICAL WORLDS" FUNCTIONS, RPLACA2, RPLACD2,
           SETA2, NEWWORLD, REALWORLD, GETWORLD.
00210/004A *LISP                     EDITOR          S   G          C4541C GO FSNAME=EDIT.LISP                                      
            4.3T1   143  LISP.EDITOR.S.004                  1 LINE    152    6 PAGE UM   GOODRICH            JAN. 06, 1979  12:43:25
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/005A *LISP                     BREAK           S   G          C4541C GO FSNAME=DEBUG.LISP                                     
            4.3T1   144  LISP.BREAK.S.005                   1 LINE    126    5 PAGE UM   GOODRICH            JAN. 06, 1979  12:42:46
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/006A *LISP                     COMPILER        S   G          C4541C GO FSNAME=COMPILER.LISP                                  
            4.3T1   145  LISP.COMPILER.S.006                1 LINE    116   29 PAGE UM   GOODRICH            DEC. 07, 1979  09:48:26
0          THIS IS THE LISP SOURCE FOR THE LISP COMPILER.
00210/007A *LISP                     *LISPLIB        O   G          *LISPLIB                                                        
            4.3T1   146  LISP.*LISPLIB.O.007                1 LINE  32517   74 PAGE UM   GOODRICH            APR. 05, 1980  14:21:08
                         *LISPLIB             
0          THIS IS A SEQ FILE WHICH CONTAINS CHECKPOINTED VERSIONS OF LESS FREQUENTLY
           USED FUNCTIONS IN A FORMAT UNDERSTOOD ONLY BY THE LISP INTERPRETER.
           IT CURRENTLY CONTAINS THE SUBCOMPONENTS TRANSIT, EDITOR, BREAK, AND COMPILER.
00212      *FILESNIFF                                SA  G        # (OBSOLETED BY $FILESTATUS, COMP 529)                            
            D3T2     49  FILESNIFF..SA.1                    1 LINE     80    6 PAGE UM                       JULY 31, 1973  21:17.52
00217      *LIBTOFASTLIB                             S            # (OBSOLETE)                                                      
            D2T1    289                                                             UM                                              
00220      *GOMAD                                    S            # (OBSOLETE)                                                      
            D2T1    293                                                             UM                                              
00221      **TP                                      S            # (OBSOLETE)                                                      
            D2T1    140                                                             UM                                              
00223/001   SIOERR SUBR                              SA  G          S0563 D4T1 VLO FSNAME=SIOERR_SUBR..SA.001(1)                 586
            D4T1    586  SIOERR_SUBR..SA.001                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  23:54:04
0          FORTRAN INTERFACE TO SETIOERR.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00223/002   SIOERR SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00225/001A *SYSMAC                                   SM  G          MTA:SYSMAC                                                      
            4.3T1   147  SYSMAC..SM.001                     1 LINE     80  124 PAGE UM   MTA                 APR. 05, 1980  14:21:11
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.
0          Referenced by comments of: 1000/51 
00225/002A *SYSMAC                                   SM  G          NEW:SYSMAC                                                      
            4.3T1   148  SYSMAC..SM.002                     1 LINE     80   93 PAGE UM   MTA                 APR. 05, 1980  14:21:24
                         *SYSMAC              
0          Referenced by comments of: 225/1, 545/32, 570/1, 1023/1, 1023/3, 1081/11, 1081/12, 1081/13, 1081/14, 1081/15,
                 1081/21, 1081/23, 1081/25 
00225/003A *SYSMAC                   TEST PGM 1      SA  G          MTA:TESTIOMAC                                                   
            4.3T1   149  SYSMAC.TEST_PGM_1.SA.003           1 LINE     72   10 PAGE UM   MTA                 APR. 05, 1980  14:21:37
                         MTA.:TESTIOMAC       
0          TEST PROGRAM FOR MANY MACROS IN *SYSMAC.
00225/004  *SYSMAC                   TEST PGM 2      SA  G          MTA:TESTMINMAX                                                  
            D4.2T1  128  SYSMAC.TEST_PGM_2.SA.004           1 LINE     45    3 PAGE UM   MTA                 MAR. 26, 1979  02:33:10
                         MTA:TESTMINMAX       
0          TESTS MIN AND MAX MACROS.
00229      *TIDY                                     SF           # (OBSOLETED BY COMP 727)                                         
            D4T1    589  TIDY..SF.001                       1 SEQ      80   60 PAGE UM                       JULY 31, 1973  21:20.10
0          Referenced by comments of: 727/1 
00231      *GRAPHLIB                                 SA           # (OBSOLETE)                                                      
            D4T1    591  GRAPHLIB..SA.                      1 SEQ      80  211 PAGE UM                       JULY 31, 1973  21:21.10
00233/001   PL1 LIBRARY              MACLIB          SM           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
0          *****************************************************************************
           D4.3 PL1 LIBRARY:
            
           THE PL1 LIBRARY DOES NOT YET USE THE LATEST VERSION OF 163/3 THROUGH 163/11.
           *****************************************************************************
00233/002   PL1 LIBRARY              SAMEQU          SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00233/003   PL1 LIBRARY              REPLACE         SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/004   PL1 LIBRARY              CKLIO           SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/005   PL1 LIBRARY              NONSENSE        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/006   PL1 LIBRARY              FREEDDEF        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/007   PL1 LIBRARY              FINDTIOT        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/008   PL1 LIBRARY              DDEF            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/009   PL1 LIBRARY              OPEN            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/010   PL1 LIBRARY              ROUT            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/011   PL1 LIBRARY              CLOSE           SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/012   PL1 LIBRARY              QUIT            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/013   PL1 LIBRARY              PL1MACLIB       SM  G  PL1M    W062:PL1MACLIB                                                  
            D4T1    592  PL1_LIBRARY.PL1MACLIB.SM.013       1 LINE     80   13 PAGE UM   TIFFANY             JULY 27, 1977  23:56:02
0          MACRO LIBRARY FOR PL/I LIBRARY ROUTINES.
0          Referenced by comments of: 233/41 
00233/014   PL1 LIBRARY              SNAP            SA  G  SNAP    S0410 MTSPL1 'PL1LIB' POSN=SNAP                              14 
            D4T1    593  PL1_LIBRARY.SNAP.SA.014            1 SEQ      80    3 PAGE UM   TIFFANY             JULY 27, 1977  23:56:16
0          SUBROUTINES TO DUMP.  USED BY IHEDUMP.
00233/015   PL1 LIBRARY              CNTL            SA  G  CNTL    S0410 MTSPL1 'PL1LIB' POSN=CNTL                              15 
            D4T1    594  PL1_LIBRARY.CNTL.SA.015            1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  23:56:17
0          SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND MTS 'CONTROL' SUBROUTINE.
00233/016   PL1 LIBRARY              RAND            SA  G  RAND    S0410 MTSPL1 'PL1LIB' POSN=RAND.D4                              
            D4T1    595  PL1_LIBRARY.RAND.SA.016            1 LINE     80    2 PAGE UM   TIFFANY             JULY 28, 1977  00:03:58
0          RANDOM NUMBER GENERATOR
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00233/017   PL1 LIBRARY              USERID          SA  G  USER    S0410 MTSPL1 'PL1LIB' POSN=USERID                            17 
            D4T1    596  PL1_LIBRARY.USERID.SA.017          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:00
0          RUN TIME SUBR
00233/018   PL1 LIBRARY              BATCH           SA  G  BTCH    S0410 MTSPL1 'PL1LIB' POSN=BATCH                             18 
            D4T1    597  PL1_LIBRARY.BATCH.SA.018           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:02
0          RUN TIME SUBROUTINE TO CALL CANREPLY
00233/019   PL1 LIBRARY              ELAPSED         SA  G  ELPS    S0410 MTSPL1 'PL1LIB' POSN=ELAPSED                           19 
            D4T1    598  PL1_LIBRARY.ELAPSED.SA.019         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:05
0          RUN TIME SUBROUTINE
00233/020   PL1 LIBRARY              CPUTIME         SA  G  CPUT    S0410 MTSPL1 'PL1LIB' POSN=CPUTIME                           20 
            D4T1    599  PL1_LIBRARY.CPUTIME.SA.020         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:07
0          RUN TIME SUBROUTINE
00233/021   PL1 LIBRARY              UN-QSAM         SA  G  ITBA    S0410 MTSPL1 'PL1LIB' POSN=IHEITB.D4                            
            D4T1    600  PL1_LIBRARY.UN-QSAM.SA.021         1 LINE     80   18 PAGE UM   TIFFANY             JULY 27, 1977  01:52:09
0          I/O ROUTINES FOR NON-STANDARD PL/I FILES -- IHEITB
00233/022   PL1 LIBRARY              KEY             SA  G  NKEY    S0410 MTSPL1 'PL1LIB' POSN=NEXTKEY                           22 
            D4T1    601  PL1_LIBRARY.KEY.SA.022             1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:12
0          NEXTKEY AND LASTKEY
00233/023   PL1 LIBRARY              ATTACH          SA  G  ATCH    S0410 MTSPL1 'PL1LIB' POSN=ATTACH                            23 
            D4T1    602  PL1_LIBRARY.ATTACH.SA.023          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:14
0          PROGRAM TO CALL DDEF AT RUN TIME
00233/024   PL1 LIBRARY              DISPLAY         SA  G  DSPA    S0410 MTSPL1 'PL1LIB' POSN=IHEDSP                            24 
            D4T1    603  PL1_LIBRARY.DISPLAY.SA.024         1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:16
0          REPLACEMENT FOR AN IBM SUBROUTINE.  OUTPUT ON SERCOM, INPUT FROM GUSER.
00233/025   PL1 LIBRARY              IHEMAIN         SA  G  MAIN    S0410 MTSPL1 'PL1LIB' POSN=IHEMAIN                           25 
            D4T1    604  PL1_LIBRARY.IHEMAIN.SA.025         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:19
0          MAIN PROGRAM IF USER DOES NOT GIVE ONE
0          Referenced by comments of: 233/43 
00233/026   PL1 LIBRARY              IHEOST          SA  G  OSTA    S0410 MTSPL1 'PL1LIB' POSN=IHEOST                            26 
            D4T1    605  PL1_LIBRARY.IHEOST.SA.026          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:21
0          GIVES TIME AND DATE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00233/027   PL1 LIBRARY              SIGNOFF         SA  G  SIGN    S0410 MTSPL1 'PL1LIB' POSN=SIGNOFF                           27 
            D4T1    606  PL1_LIBRARY.SIGNOFF.SA.027         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:23
0          RUN TIME SUBR
00233/028   PL1 LIBRARY              SYSERR          SA  G  SERR    S0410 MTSPL1 'PL1LIB' POSN=SYSERR                            28 
            D4T1    607  PL1_LIBRARY.SYSERR.SA.028          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:26
0          SYSTEM AND ERROR
00233/029   PL1 LIBRARY              IHELTT          SA  G  LTTA    S0410 MTSPL1 'PL1LIB' POSN=IHELTT                            29 
            D4T1    608  PL1_LIBRARY.IHELTT.SA.029          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:28
0          TRANSFER VECTOR TABLE IN *PL1LIB.
00233/030   PL1 LIBRARY              IHELTV          SA  G  LTVA    S0410 MTSPL1 'PL1LIB' POSN=IHELTV                            30 
            D4T1    609  PL1_LIBRARY.IHELTV.SA.030          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:30
0          TRANSFER VECTOR TABLE IN SHAREDPL1LIB.
00233/031   PL1 LIBRARY              IHESAP          SA  G  SAPA    S0410 MTSPL1 'PL1LIB' POSN=IHESAP.D4                            
            D4T1    610  PL1_LIBRARY.IHESAP.SA.031          1 LINE     80    8 PAGE UM   TIFFANY             JULY 27, 1977  01:52:32
0          PL/I PROGRAM INITIALIZER.
0          Referenced by comments of: 233/43 
00233/032   PL1 LIBRARY              FINFO           SA  G  FINF    S0410 MTSPL1 'PL1LIB' POSN=FINFO                             32 
            D4T1    611  PL1_LIBRARY.FINFO.SA.032           1 SEQ      80    4 PAGE UM   TIFFANY             JULY 27, 1977  01:52:35
0          ROUTINE TO GET INFORMATION FOR A PL/I FILE.  COPIES SAMEQU (163/2).
00233/033   PL1 LIBRARY              READ/WRITE      SA  G  READ    S0410 MTSPL1 'PL1LIB' POSN=IHEREAD                           33 
            D4T1    612  PL1_LIBRARY.READ/WRITE.SA.033      1 SEQ      80    5 PAGE UM   TIFFANY             JULY 27, 1977  01:52:38
0          ROUTINES IHEREAD AND IHERITE.
00233/034   PL1 LIBRARY              NOTE/POINT      SA  G  PNTS    S0410 MTSPL1 'PL1LIB' POSN=IHENOTE                           34 
            D4T1    613  PL1_LIBRARY.NOTE/POINT.SA.034      1 SEQ      80    2 PAGE UM   TIFFANY             JULY 27, 1977  01:52:40
0          SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND THE MTS SUBROUTINES 'NOTE' AND 'POINT'.
00233/035   PL1 LIBRARY              PLCALL ET AL    SA  G  PLCL    S0027 DISTRB FSNAME=PLCALL                                      
            D4T1    614  PL1_LIBRARY.PLCALL_ET_AL.SA.035    1 LINE     80    6 PAGE UM   ENGLE               MAY  17, 1976  14:28:46
0          SUBROUTINES PCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL1 PROGRAM TO CALL SUBROUTINES
           WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE.
           THE SUBROUTINES PL1ADR AND PL1RC ARE ALSO ENTRY POINTS TO THIS PROGRAM.
00233/036   PL1 LIBRARY              IHEATTN         SA  G  ATTN    S0410 MTSPL1 'PL1LIB' POSN=ATTN.D4                              
            D4T1    615  PL1_LIBRARY.IHEATTN.SA.036         1 LINE     80    9 PAGE UM   TIFFANY             JULY 27, 1977  01:52:50
0          ASSEMBLE USING *SYSMAC.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00233/037   PL1 LIBRARY              IHEZZZZZ        SA  G  ZZZZ    S0410 MTSPL1 'PL1LIB' POSN=IHEZZZZZ.D4                          
            D4T1    616  PL1_LIBRARY.IHEZZZZZ.SA.037        1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:52:52
0          A NULL-LENGTH CONTROL SECTION TO BE PLACED AT THE END OF SHAREDPL1LIB FOR THE
           BENEFIT OF SDS.
00233/038   PL1 LIBRARY              CALLPL1         SA  G          S0410 MTSPL1 'PL1LIB' POSN=PL1CALL.D4                           
            D4T1    617  PL1_LIBRARY.CALLPL1.SA.038         1 LINE     72   10 PAGE UM   TIFFANY             JULY 27, 1977  01:52:55
0          SUBROUTINES PL1SUB, PL1FCN, IPLFCN, PLDFCN, I2FCN, CPXFCN, CDFCN, LGLFCN,
           LG1FCN, PL1BEG, PL1END, AND IPL1RC WHICH CAN BE USED BY NON-PL1 PROGRAMS
           TO CALL PL1 PROCEDURES.
0          Referenced by comments of: 233/43 
00233/039   PL1 LIBRARY              MAXLEN          SA  G  MAXL    S0410 MTSPL1 'PL1LIB' POSN=MAXLEN.D4                            
            D4T1    619  PL1_LIBRARY.MAXLEN.SA.040          1 LINE     80    1 PAGE UM   TIFFANY             JULY 27, 1977  01:54:07
0          MAXLEN OBTAINS THE MAXIMUM LENGTH FOR A GIVEN PL/1 CHARACTER VARYING STRING.
00233/040   PL1 LIBRARY              IHEDBNA         SA  G          S0410 MTSPL1 'PL1LIB' POSN=IHEDBNA                              
            D4.1T1   83  PL1_LIBRARY.IHEDBNA.SA.040         1 SEQ      80    4 PAGE UM   TIFFANY             MAY  13, 1978  17:07:38
0          THIS REPLACES THE IBM VERSION OF IHEDBNA WHICH CAUSED ADDRESSIBILITY
           INTERRUPTS, ESPECIALLY IN *LINKEDIT WHILE CONVERTING BIT STRINGS TO
           ARITHMETIC VALUES.
00233/041   PL1 LIBRARY              UPDATE          UI  G          S0410 MTSPL1 'PL1LIB' POSN=PL1LIBUP.D4                          
            D4T1    620  PL1_LIBRARY.UPDATE.UI.041          1 LINE     73    9 PAGE UM   TIFFANY             JULY 27, 1977  01:54:11
0          *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL1 LIBRARY FROM IBM RELEASE 21.8.
           THE RESULT OF THIS ASSEMBLY SHOULD BE ASSEMBLED USING THE FOLLOWING MACRO
           LIBRARIES (IN THE ORDER GIVEN):  PL1MACLIB (233/13), OSMACLIB (163/1), AND
           *SYSMAC.
00233/042   PL1 LIBRARY              ENDPL1LIB       OC  G          S0410 MTSPL1 'PL1LIB' POSN=ENDPL1LIB.D4                      40 
            D4T1    621  PL1_LIBRARY.ENDPL1LIB.OC.042       1 LINE     24    1 PAGE UM   TIFFANY             JULY 27, 1977  01:54:14
0          CONTAINS 5 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD).
00233/043   PL1 LIBRARY              *PL1LIB         OL  G          *PL1LIB                                                         
            D4T1    622  PL1_LIBRARY.*PL1LIB.OL.043         1 SEQ    2642    3 PAGE UM   TIFFANY             JULY 27, 1977  01:54:16
                         *PL1LIB              
0          NON-REENTRANT PART OF RUN-TIME LIBRARY; THE REMAINDER IS IN SHAREDPL1LIB.
           NOTE:  IHEMAIN (233/25) MUST COME AFTER BOTH IHESAP (233/31) AND CALLPL1
                  (233/38) IN THE DIR RECORD FOR THIS LIBRARY.
00233/044   PL1 LIBRARY              SHAREDPL1LIB    OE  G          SEG2:SHAREDPL1LIB                                               
            D4.1T1   84  PL1_LIBRARY.SHAREDPL1LIB.OE.044    1 LINE    256   58 PAGE UM   TIFFANY             MAY  13, 1978  17:07:38
                         SEG2:SHAREDPL1LIB    
0          REENTRANT PART OF RUN-TIME LIBRARY; LOADED INTO SHARED VM AT IPL BY PISTLE.
           CONTAINS IHEPRD WHICH IS SET UP CORRECTLY BY CRELCSPR (506/2).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00233/045   PL1 LIBRARY              UNSP PREAD      SA  G  PREA    S0684 UNSP FSNAME=PREAD.S                                       
            D4T1    624  PL1_LIBRARY.UNSP_PREAD.SA.045      1 LINE     80    3 PAGE UM   UNSP                NOV. 09, 1975  19:29:47
0          THE FOLLOWING PROCEDURES CONSTITUTE THE UM "UNSUPPORTED" PL/1 LIBRARY.
           WRITEUPS ARE INCLUDED IN 685/2.
            
           PREAD ALLOWS THE MTS READ SUBROUTINE TO BE CALLED FROM A PL/1 PROGRAM WITHOUT
           USING PLCALL.
00233/046   PL1 LIBRARY              UNSP PWRITE     SA  G  PWRI    S0684 UNSP FSNAME=PWRITE.S                                      
            D4T1    625  PL1_LIBRARY.UNSP_PWRITE.SA.046     1 LINE     80    3 PAGE UM   UNSP                NOV. 09, 1975  19:29:40
0          PWRITE ALLOWS THE MTS WRITE SUBROUTINE TO BE CALLED FROM A PL/1 PROGRAM WITHOUT
           USING PLCALL.
00233/047   PL1 LIBRARY              UNSP SETLEN     SA  O  SETL    S0684 UNSP FSNAME=SETLEN.S                                      
            D4T1    626  PL1_LIBRARY.UNSP_SETLEN.SA.047     1 LINE     80    1 PAGE UM   UNSP                NOV. 09, 1975  19:30:07
0          SETLEN RESETS THE LENGTH OF A PL/1 CHARACTER VARYING STRING.
00233/048   PL1 LIBRARY              UNSP LIBRARY    OL  O          UNSP:PL1LIB                                                     
            D4T1    627  PL1_LIBRARY.UNSP_LIBRARY.OL.048    1 LINE    105    1 PAGE UM   UNSP                JULY 27, 1977  01:58:53
                         UNSP:PL1LIB          
00234/001   8ASR                     8ASRMAC         SM  G          S0563 D4T1 VLO FSNAME=8ASR.8ASRMAC.SM.001(1)                 628
            D4T1    628  8ASR.8ASRMAC.SM.001                1 LINE     80   16 PAGE UM   LUBBERS             JUNE 02, 1976  20:37:42
0          MACRO LIBRARY FOR DEC ASSEMBLERS.
0          Referenced by comments of: 234/4, 234/6 
00234/002   8ASR                     8ASREQU.C       SA  G          S0563 D4T1 VLO FSNAME=8ASR.8ASREQU.C.SA.002(1)               629
            D4T1    629  8ASR.8ASREQU.C.SA.002              1 LINE     80    4 PAGE UM   LUBBERS             JULY 19, 1977  11:33:37
0          COPY SECTION.
0          Referenced by comments of: 234/4, 234/6 
00234/003   8ASR                     8ASRST.C        SA  G          S0563 D4T1 VLO FSNAME=8ASR.8ASRST.C.SA.003(1)                630
            D4T1    630  8ASR.8ASRST.C.SA.003               1 LINE     80    7 PAGE UM   LUBBERS             JULY 19, 1977  11:34:01
0          COPY SECTION.
0          Referenced by comments of: 234/4, 234/6 
00234/004   8ASR                     MAIN PROGRAM    SA  G          S0563 D4T1 VLO FSNAME=8ASR.MAIN_PROGRAM.SA.004(1)            631
            D4T1    631  8ASR.MAIN_PROGRAM.SA.004           1 LINE     99   33 PAGE UM   LUBBERS             JULY 19, 1977  11:34:21
0          MAIN PROGRAM FOR *8ASR, *9ASR, AND *1ASR.
           COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00234/005   8ASR                     MAIN PROGRAM    OC  G          S0563 D4T1 VLO FSNAME=8ASR.MAIN_PROGRAM.OC.005(1)            632
            D4T1    632  8ASR.MAIN_PROGRAM.OC.005           1 LINE     80   10 PAGE UM   LUBBERS             JULY 19, 1977  11:34:41
00234/006   8ASR                     SUBROUTINES     SA  G          S0563 D4T1 VLO FSNAME=8ASR.SUBROUTINES.SA.006(1)             633
            D4T1    633  8ASR.SUBROUTINES.SA.006            1 LINE    105   10 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:06
0          SUBROUTINES USED BY 234/4.
           COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1).
00234/007   8ASR                     SUBROUTINES     OC  G          S0563 D4T1 VLO FSNAME=8ASR.SUBROUTINES.OC.007(1)             634
            D4T1    634  8ASR.SUBROUTINES.OC.007            1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:13
00234/008   8ASR                     PDP-8 OP TBLS   SA  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-8_OP_TBLS.SA.008(1)           635
            D4T1    635  8ASR.PDP-8_OP_TBLS.SA.008          1 LINE     99    4 PAGE UM   LUBBERS             JUNE 02, 1976  20:41:53
0          ASSEMBLY TO DEFINE PDP-8 OPERATION CODES FOR *8ASR.
00234/009   8ASR                     PDP-8 OP TBLS   OC  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-8_OP_TBLS.OC.009(1)           636
            D4T1    636  8ASR.PDP-8_OP_TBLS.OC.009          1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:06
00234/010   8ASR                     *8ASR           OE  G          *8ASR                                                           
            D4T1    637  8ASR.*8ASR.OE.010                  1 SEQ   11502    7 PAGE UM   LUBBERS             JULY 27, 1977  02:03:03
                         *8ASR                
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/9
00234/011   8ASR                     PDP-9 OP TBLS   SA  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-9_OP_TBLS.SA.011(1)           638
            D4T1    638  8ASR.PDP-9_OP_TBLS.SA.011          1 LINE     99    4 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:18
0          ASSEMBLY TO DEFINE PDP-9 OPERATION CODES FOR *9ASR.
00234/012   8ASR                     PDP-9 OP TBLS   OC  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-9_OP_TBLS.OC.012(1)           639
            D4T1    639  8ASR.PDP-9_OP_TBLS.OC.012          1 LINE     80    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:26
00234/013   8ASR                     *9ASR           OE  G          *9ASR                                                           
            D4T1    640  8ASR.*9ASR.OE.013                  1 SEQ   11502    7 PAGE UM   LUBBERS             JULY 27, 1977  02:03:10
                         *9ASR                
0          OBJECT CONSISTING OF 234/5 + 234/7 +234/12
00234/014   8ASR                     PDP-1 OP TBLS   SA  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-1_OP_TBLS.SA.014(1)           641
            D4T1    641  8ASR.PDP-1_OP_TBLS.SA.014          1 LINE     99    5 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:35
0          ASSEMBLY TO DEFINE PDP-1 OPERATION CODES FOR *1ASR.
00234/015   8ASR                     PDP-1 OP TBLS   OC  G          S0563 D4T1 VLO FSNAME=8ASR.PDP-1_OP_TBLS.OC.015(1)           642
            D4T1    642  8ASR.PDP-1_OP_TBLS.OC.015          1 LINE     80    6 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:43
00234/016   8ASR                     FRIDEN TR TBL   SA             S0563 D4T1 VLO FSNAME=8ASR.FRIDEN_TR_TBL.SA.016(1)           643
            D4T1    643  8ASR.FRIDEN_TR_TBL.SA.016          1 LINE     99    3 PAGE UM   LUBBERS             JUNE 02, 1976  20:42:57
0          ASSEMBLY TO DEFINE TRANSLATE TABLE FOR FRIDEN TERMINAL USED IN CONNECTION WITH *1ASR.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00234/017   8ASR                     FRIDEN TR TBL   OC             S0563 D4T1 VLO FSNAME=8ASR.FRIDEN_TR_TBL.OC.017(1)           644
            D4T1    644  8ASR.FRIDEN_TR_TBL.OC.017          1 LINE     80    3 PAGE UM   LUBBERS             JUNE 02, 1976  20:43:05
00234/018   8ASR                     *1ASR           OE  G          *1ASR                                                           
            D4T1    645  8ASR.*1ASR.OE.018                  1 SEQ   11986    7 PAGE UM   LUBBERS             JULY 27, 1977  02:03:22
                         *1ASR                
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/15 + 234/17
00234/019   8ASR                     OS INTERFACE    SA             S0563 D4T1 VLO FSNAME=8ASR.OS_INTERFACE.SA.019(1)            646
            D4T1    646  8ASR.OS_INTERFACE.SA.019           1 LINE     80    8 PAGE UM   LUBBERS             JUNE 29, 1973  21:38.49
0          SUBROUTINES TO PROVIDE MTS ENVIRONMENT FOR 8ASR IN OS/360.  NOT COMPLETELY CHECKED OUT.
           OBJECT NOT DISTRIBUTED.  ASSEMBLE USING *OSMAC OR USE OS/360.
00234/020   8ASR                     LINK EDITOR     SA  G          S0563 D4T1 VLO FSNAME=8ASR.LINK_EDITOR.SA.020(1)             647
            D4T1    647  8ASR.LINK_EDITOR.SA.020            1 LINE     80   77 PAGE UM   LUBBERS             JAN. 07, 1974  16:41.59
0          PROGRAM TO LINK-EDIT RELOCATIBLE PDP-8 OBJECT TO PRODUCE LOADABLE FILE OR TAPE.
           COPIES 8PANEL (234/24).
00234/021   8ASR                     LINK EDITOR     OC  G          S0563 D4T1 VLO FSNAME=8ASR.LINK_EDITOR.OC.021(1)             648
            D4T1    648  8ASR.LINK_EDITOR.OC.021            1 LINE     80    8 PAGE UM   LUBBERS             JAN. 07, 1974  16:42.37
00234/022   8ASR                     PDP8 SIMULATOR  SA  G          S0563 D4T1 VLO FSNAME=8ASR.PDP8_SIMULATOR.SA.022(1)          649
            D4T1    649  8ASR.PDP8_SIMULATOR.SA.022         1 LINE     80   28 PAGE UM   LUBBERS             JUNE 29, 1973  21:42.44
0          PDP-8 SIMULATOR SECTION OF *8LINK.  COPIES 8PANEL (234/24).
00234/023   8ASR                     PDP8 SIMULATOR  OC  G          S0563 D4T1 VLO FSNAME=8ASR.PDP8_SIMULATOR.OC.023(1)          650
            D4T1    650  8ASR.PDP8_SIMULATOR.OC.023         1 LINE     80    2 DISK UM   LUBBERS             JUNE 29, 1973  21:47.24
00234/024   8ASR                     8PANEL          SA  G          S0563 D4T1 VLO FSNAME=8ASR.8PANEL.SA.024(1)                  651
            D4T1    651  8ASR.8PANEL.SA.024                 1 LINE     80    3 PAGE UM   LUBBERS             JUNE 29, 1973  21:43.27
0          COPY SECTION.
0          Referenced by comments of: 234/20, 234/22 
00234/025   8ASR                     *8LINK          OE  G          *8LINK                                                          
            D4T1    652  8ASR.*8LINK.OE.025                 1 SEQ    7776   11 PAGE UM   LUBBERS             JULY 27, 1977  02:03:43
                         *8LINK               
0          LINK EDIT OF 234/21 + 234/23.
00234/026   8ASR                     MEMO 329        WF             S0563 D4T1 VLO FSNAME=8ASR.MEMO_329.WF.026(1)                653
            D4T1    653  8ASR.MEMO_329.WF.026               1 LINE    234   32 PAGE UM   LUBBERS             JAN. 24, 1977  21:23:27
0          THIS IS COMPUTING CENTER MEMO 329 -- "*8ASR PDP-8 ASSEMBLER AND *8LINK LINK
           EDITOR AND LOADER"
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00234/027   8ASR                     TAPE-CARD UTIL  SA           # (OBSOLETE)                                                      
            D2T2    108                                                             UM                                              
00234/028   8ASR                     8ASR-PAL CNVRT  SA           # (OBSOLETE)                                                      
            D2T2    109                                                             UM                                              
00238      *2250PLOT                                 SA           # (OBSOLETE)                                                      
            D4T1    654  2250PLOT..SA.                      1 SEQ      80    4 PAGE UM                       JULY 31, 1973  21:29.07
00241      *TRACK                                    SA           # (OBSOLETE)                                                      
            D4T1    655  TRACK..SA.                         1 SEQ      80    8 PAGE UM                       JULY 31, 1973  21:29.51
00243/001   BINEBCD                                  SA  G          S0563 D4T1 VLO FSNAME=BINEBCD..SA.001(1)                     656
            D4T1    656  BINEBCD..SA.001                    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  02:04:19
0          SUBROUTINE TO CONVERT AN EBCDIC CARD WHICH WAS READ IN COLUMN BINARY BACK TO EBCDIC.  CALLED BY *2501RTN (086)
           AND BY HASP (387).  THIS VERSION DOES NO ERROR CHECKING.
0          Referenced by comments of: 86/1 
00243/002   BINEBCD                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00243/003   BINEBCD                                  SA  G          S0563 D4T1 VLO FSNAME=BINEBCD..SA.003(1)                     657
            D4T1    657  BINEBCD..SA.003                    1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  02:04:21
0          SAME SUBROUTINE, BUT WITH ERROR CHECKING.  OBJECT NOT DISTRIBUTED.
00244/001  **CT                                      S            # (OBSOLETE)                                                      
            D2T1    138                                                             UM                                              
00244/002  **CT                      TAPE SUBR       S            # (OBSOLETE)                                                      
            D2T1    139                                                             UM                                              
00249      *COPY                                     SA           # (OBSOLETE)                                                      
            D4T1    658  COPY..SA.001                       1 LINE     80    4 PAGE UM                       JULY 27, 1977  02:04:23
00251/001  *IEBUPDAT                                 SP  O          S0721 'D3T2' FSNAME=IEBUPDAT..SA.1(1)                        117
            D4T1    660  IEBUPDAT..SP.001                   1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  21:31.45
0          A PROGRAM TO COPY TAPES CONTAINING CARD IMAGES CONFORMING TO THE IBM IEBUPDAT OR IEBUPDTE PROGRAMS.
           THIS PROGRAM WILL MAKE INSERTIONS AND DELETIONS.
00251/002  *IEBUPDAT                                 OC  O          *IEBUPDAT                                                       
            D4T1    661  IEBUPDAT..OC.002                   1 LINE     80    5 PAGE UM   TIFFANY             JULY 27, 1977  02:04:29
                         *IEBUPDAT            
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00253       LINE DIRECTORY SORT                      SA           # (OBSOLETED BY COMP 546)                                         
            D2T1    121                                                             UM                                              
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00254       BSLOAD                                   SA  G        # (OBSOLETE)                                                      
            D3.1T1  192  BSLOAD..SA.1                       1 LINE     80   26 PAGE UM                       MAR. 06, 1974  03:34.57
00256/001   STATISTICS COMBINE       *CMB            C              *CMB                                                            
            D4T1    662  STATISTICS_COMBINE.*CMB.C.001      1 LINE     29    1 PAGE UM   WSG                 JULY 27, 1977  02:04:31
                         *CMB                 
0          COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2).
           INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE.
00256/002   STATISTICS COMBINE       COMBINE PGM     SA  G          S1319 D4.2T1 VLO FSNAME=STATISTICS_COMBINE.COMBIN.SA.002(1)  129
            D4.2T1  129  STATISTICS_COMBINE.COMBIN.SA.002   1 LINE     80    7 PAGE UM   WSG                 OCT. 02, 1978  11:48:07
0          PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/1).
           PROGRAM WILL ASK FOR TAPE DRIVE WHERE OUTPUT TAPE IS MOUNTED, THEN ASK FOR INPUT TAPE
           DRIVE NAMES.  COMBINE PROCESS IS ENDED BY ENTERING "DONE" FOR AN INPUT DRIVE NAME.
           THIS PROGRAM PRODUCES TAPES WHICH ARE BLOCKED IN A RATHER NON-STANDARD MANNER.
           HOWEVER, MOST SYSTEM PROGRAMS WHICH READ *STATISTICS DATA, ARE CAPABLE OF
           DEBLOCKING THESE TAPES.  SOURCE IN LINES (1,999).
0          Referenced by comments of: 256/1 
00256/003   STATISTICS COMBINE       COMBINE PGM     OC  G          SYS:CMB                                                         
            D4.2T1  130  STATISTICS_COMBINE.COMBIN.OC.003   1 LINE     80    2 PAGE UM   WSG                 MAR. 26, 1979  02:33:12
                         SYS.:CMB             
00257      *MOMS                                     OC           # (NOT DISTRIBUTED)                                               
            D3T2    123  MOMS..OC.                          1 LINE    255   12 DISK UM                       FEB. 22, 1973  17:18.51
00258/001   RECEIPT CARDS            *RCP            C              *RCP                                                            
            D4.2T1  131  RECEIPT_CARDS.*RCP.C.001           1 LINE     31    1 PAGE UM   DONNELLY            MAR. 26, 1979  02:33:13
                         *RCP                 
0          COMMAND FILE TO RUN BATCH RECEIPT (S-8) CARD GENERATOR PROGRAM (258/3).
           INVOKED BY ENTERING "MTS *RCP" FROM OPERATORS CONSOLE.
00258/002   RECEIPT CARDS            RECEIPT PGM     SA     RECP    W035:RCP                                                        
            D4.2T1  132  RECEIPT_CARDS.RECEIPT_PGM.SA.002   1 LINE     80    5 PAGE UM   DONNELLY            MAR. 26, 1979  02:33:14
0          PROGRAM TO GENERATE MTS BATCH RECEIPT CARDS.
00258/003   RECEIPT CARDS            RECEIPT PGM     OC             SYS:RCP                                                         
            D4T1    667  RECEIPT_CARDS.RECEIPT_PGM.OC.003   1 LINE     80    2 PAGE UM   DONNELLY            JULY 27, 1977  02:04:47
                         SYS.:RCP             
0          Referenced by comments of: 258/1 
00259      *LIST                                     SA           # (OBSOLETE)                                                      
            D2T1    332                                                             UM                                              
00260/001   SSP                      *SSP            OC  G        # (NOT DISTRIBUTED)                                               
            D3T2    127  SSP.*SSP.O.1                       1 LINE     32    1 PAGE UM                       JULY 31, 1973  21:32.18
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00260/002   SSP                      *SSPSTAT        OL  G        # (NOT DISTRIBUTED)                                               
            D3T2    128  SSP.*SSPSTAT.OL.2                  1 LINE    255   30 PAGE UM                       JULY 31, 1973  21:32.20
00260/003   SSP                      *SSPMATH        OL  G        # (NOT DISTRIBUTED)                                               
            D3T2    129  SSP.*SSPMATH.OL.3                  1 LINE    255  129 PAGE UM                       JULY 31, 1973  21:32.27
00261/001   SLIP                     SLIP FTN        SF  G          S0985 W081 'W081SAVE' FSNAME=DSLIP.S                            
            D4T1    668  SLIP.*SLIP_FTN.SF.001              1 LINE     84   25 PAGE UM   GOODRICH            DEC. 21, 1975  20:30:52
0          SLIP IS A LIBRARY OF FORTRAN-CALLABLE SUBROUTINES FOR LIST PROCESSING.
           SEE THE DESCRIPTION IN THE CACM V.6, N.9, SEPT/63, PP 524-544.  THERE ARE
           TWO SEPARATE IMPLEMENTATIONS IN MTS:  *SLIP IS THE NORMAL DOUBLE-WORD
           VERSION, "LITTLE SLIP" (UNSP:LSLIPLIB) IS A SINGLE-PRECISION VERSION.
            
           THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR *SLIP.
00261/002   SLIP                     SLIP PRIM       SA  G          S0985 W081 'W081SAVE' FSNAME=DSLIPPRIM.S                        
            D4T1    669  SLIP.*SLIP_PRIM.SA.002             1 LINE     79    4 PAGE UM   GOODRICH            MAY  03, 1977  15:46:19
0          THIS IS THE ASSEMBLY SOURCE FOR *SLIP PRIMITIVES.
00261/003   SLIP                     *SLIP           OL  G          *SLIP                                                           
            D4T1    670  SLIP.*SLIP_LIBRARY.OL.003          1 SEQ    2040   37 PAGE UM   GOODRICH            JULY 27, 1977  02:09:06
                         *SLIP                
00261/004   SLIP                     *SLIPDEC        SF  G  SDEC    *SLIPDEC                                                        
            D4T1    671  SLIP.*SLIPDEC.SF.004               1 LINE     80    3 PAGE UM   GOODRICH            JULY 27, 1977  02:09:08
                         *SLIPDEC             
0          THIS IS A SET OF FORTRAN DECLARATIONS FOR ALL SLIP FUNCTIONS.  IT IS TO BE
           USED BY PROGRAMS WHICH CALL THE *SLIP PACKAGE.
00261/005   SLIP                     LSLIP FTN       SF  O          S0684 UNSP FSNAME=LSLIP.S                                       
            D4T1    672  SLIP.LSLIP_FTN.SF.005              1 LINE     84   30 PAGE UM   UNSP                JUNE 22, 1976  16:35:26
0          THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR THE "LITTLE SLIP" PACKAGE.  AT UM,
           THIS VERSION OF SLIP IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.
00261/006   SLIP                     LSLIP LIBRARY   OL  O          UNSP:LSLIPLIB                                                   
            D4T1    673  SLIP.LSLIP_LIBRARY.OL.006          1 LINE    946   36 PAGE UM   UNSP                JULY 27, 1977  02:09:48
                         UNSP:LSLIPLIB        
00265      *1                                        SM             *1                                                              
            D4T1    674  1..SM.                             1 LINE     80   31 PAGE UM   SALISBURY           JULY 27, 1977  02:09:51
                         *1                   
0          MACRO LIBRARY FOR LIST PROCESSING IN ASSEMBLY LANGUAGE.  SIMILAR TO L6.
00267/001  *DOWNDATE                                 SA  O          WATF:DOWNDATE(1,999)                                            
            D4T1    675  DOWNDATE..SA.001                   1 LINE     80    9 PAGE UM   MTA                 JULY 27, 1977  02:09:53
0          THE INVERSE OF *UPDATE. WILL PRODUCE AN UPDATE DECK FROM TWO SOURCE TAPES.
           CALLS SCANPAR SUBROUTINE (267/3).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 267/3 
00267/002  *DOWNDATE                                 OE  O          *DOWNDATE                                                       
            D4T1    676  DOWNDATE..OE.002                   1 LINE   2626    2 PAGE UM   MTA                 JULY 27, 1977  02:09:55
                         *DOWNDATE            
0          INCLUDES SCANPAR OBJECT (267/4).
00267/003  *DOWNDATE                 SCANPAR         SA             WATF:SCANPAR(1,999)                                             
            D4T1    677  DOWNDATE.SCANPAR.SA.003            1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  02:09:57
0          SUBROUTINE CALLED BY DOWNDATE (267/1) AND UNEDIT (561/1) TO SCAN PARAMETERS.
0          Referenced by comments of: 267/1, 561/1 
00267/004  *DOWNDATE                 SCANPAR         OC             WATF:SCANPAR(1000)                                              
            D4T1    678  DOWNDATE.SCANPAR.OC.004            1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:09:59
0          Referenced by comments of: 267/2 
00268       @TESTITP                                 S            # (OBSOLETE)                                                      
            D2T1    421                                                             UM                                              
00270/001   DISMOUNT SUBR                            SA  G          S0563 D4T1 VLO FSNAME=DISMOUNT_SUBR..SA.001(1)               679
            D4T1    679  DISMOUNT_SUBR..SA.001              1 LINE     80    5 PAGE UM   WSG                 DEC. 01, 1976  13:10:50
0          THIS SUBROUTINE PRODUCES $RELEASE COMMANDS WHICH ARE PASSED TO CMDNOE FOR PROCESSING.
0          Referenced by comments of: 101/2 
00270/002   DISMOUNT SUBR                            OC  G        # *CLSMOUNT (SEE COMP 101)                                        
                                                                                    UM   WSG                                        
00271/001   MOUNT SUBR                               SA  G          S0563 D4T1 VLO FSNAME=MOUNT_SUBR..SA.001(1)                  680
            D4T1    680  MOUNT_SUBR..SA.001                 1 LINE     80    3 PAGE UM   WSG                 DEC. 01, 1976  12:50:44
0          THIS SUBROUTINE PRODUCES A $MOUNT COMMAND WHICH IS PASSED TO CMDNOE FOR PROCESSING.
0          Referenced by comments of: 101/2 
00271/002   MOUNT SUBR                               OC  G        # *CLSMOUNT (SEE COMP 101/2)                                      
                                                                                    UM   WSG                                        
00273/001   FPC                                      SA  G          S0563 D4T1 VLO FSNAME=FPC..SA.001(1)                         681
            D4T1    681  FPC..SA.001                        1 LINE     80    6 PAGE UM   WSG                 JULY 31, 1973  21:33.40
0          SUBROUTINES E7090, D7090, E7090P, D7090P TO CONVERT IBM 7090 SERIES FLOATING POINT NUMBERS TO SYSTEM/360
           LONG AND SHORT FORM.
00273/002   FPC                                      OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00274       GLINT                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    395                                                             UM                                              
00275/001   BITWISE LOGIC - IHCLOGIC                 SA  G  IHCL    W062:LOGIC(1,999)                                               
            D4T1    682  BITWISE_LOGIC_-_IHCLOGIC..SA.001   1 LINE     80    4 PAGE UM   TIFFANY             SEP. 15, 1977  18:53:12
0          SUBROUTINES AND, LAND, OR, LOR, XOR, LXOR, COMPL, LCOMPL, SHFTL, AND SHFTR USED FOR LOGICAL 
           OPERATIONS IN FORTRAN.
           D4.0 VERSION IS MORE THAN 3 TIMES FASTER THAN PREVIOUS VERSIONS.
00275/002   BITWISE LOGIC - IHCLOGIC                 OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   TIFFANY                                    
00278/001   IOH                                      SA  G  IOH     W016:IOH.S(1.8)                                                 
            D4.1T1   85  IOH..SA.001                        1 LINE     80  153 PAGE UM   SWARTZ              MAY  13, 1978  17:07:43
0          I/O CONVERSION PACKAGE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 387/23, 400/1 
00278/002   IOH                                      OC  G          W016:IOH.O                                                      
            D4.1T1   86  IOH..OC.002                        1 LINE     80   21 PAGE UM   SWARTZ              MAY  13, 1978  17:08:15
0          OBJECT IS ALSO IN *LIBRARY (524) -- MAY NOT BE EXACTLY THE SAME VERSION.
00278/003   IOH                      IOPKG           SA  G          W016:IOHPKG.S                                                   
            D4.1T1   87  IOH.IOPKG.SA.003                   1 LINE     68    5 PAGE UM   SWARTZ              MAY  13, 1978  17:08:19
0          COPIES *GDINFODSECT (594).
00278/004   IOH                      IOPKG           OC  G          W016:IOHPKG.O                                                   
            D4.1T1   88  IOH.IOPKG.OC.004                   1 LINE     80    3 PAGE UM   SWARTZ              MAY  13, 1978  17:08:22
0          OBJECT IS ALSO IN *LIBRARY (524).
00278/005   IOH                      TEST PGM        SA  G  IOHT    W016:TESTIOH.S                                                  
            D4T1    687  IOH.TEST_PGM.SA.005                1 LINE     80   11 PAGE UM   SWARTZ              JULY 27, 1977  02:10:39
0          PROGRAM TO TEST IOH.
00278/006   IOH                      TEST PGM        OC  G          W016:TESTIOH.O                                                  
            D4T1    688  IOH.TEST_PGM.OC.006                1 LINE     80   10 PAGE UM   SWARTZ              JULY 27, 1977  02:10:41
00278/007   IOH                      IOHDBLIN        SA             W016:IOHDBLIN.S                                                 
            D4T1    689  IOH.IOHDBLIN.SA.007                1 LINE     74    7 PAGE UM   SWARTZ              JULY 27, 1977  02:10:43
00278/008   IOH                      IOHDBLIN        OE             ETC:IOHDBLIN                                                    
            D4T1    690  IOH.IOHDBLIN.OE.008                1 SEQ    2530    1 PAGE UM   SWARTZ              JULY 27, 1977  02:10:45
                         ETC.:IOHDBLIN        
00278/009   IOH                      IOHDBLOUT       SA             W016:IOHOUT                                                     
            D4T1    691  IOH.IOHDBLOUT.SA.009               1 LINE     73    5 PAGE UM   SWARTZ              JULY 27, 1977  02:10:48
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00278/010   IOH                      IOHDBLOUT       OE             ETC:IOHDBLOUT                                                   
            D4T1    692  IOH.IOHDBLOUT.OE.010               1 SEQ    1363    1 PAGE UM   SWARTZ              JULY 27, 1977  02:10:49
                         ETC.:IOHDBLOUT       
00278/011   IOH                      IOHEVAL         SA             W016:IOHEVAL.S(5)                                               
            D4.1T1   89  IOH.IOHEVAL.SA.011                 1 LINE     65    2 PAGE UM   SWARTZ              MAY  13, 1978  17:08:24
0          COPIES THE EDITOR MACRO LIBRARY (648/16).
00278/012   IOH                      IOHEVAL         OC             ETC:IOHEVAL                                                     
            D4.1T1   90  IOH.IOHEVAL.OC.012                 1 SEQ      80    1 PAGE UM   SWARTZ              MAY  13, 1978  17:08:25
                         ETC.:IOHEVAL         
00279       LINPG SUBR                               S            # (NOT DISTRIBUTED)                                               
            D2T1    396                                                             UM                                              
00282/001   PRINTER PLOT SUBR                        SA  G          S1011 ETC 'MISC' FSNAME=PTRPLOT                                 
            D4.2T1  133  PRINTER_PLOT_SUBR..SA.001          1 LINE     69   21 PAGE UM   LIFT                FEB. 23, 1979  11:28:04
0          COPIES "PLOTDS" (282/2).  ASSEMBLE WITH PAR=BATCH.
0          Referenced by comments of: 133/1 
00282/002   PRINTER PLOT SUBR        COPY SECTION    SA  G          S1011 ETC 'MISC' FSNAME=PTRPLOTD4DS                             
            D4T1    696  PRINTER_PLOT_SUBR.COPY_SE.SA.002   1 LINE     80    4 PAGE UM   LIFT                APR. 06, 1977  18:45:48
0          "PLOTDS" COPY SECTION COPIED BY 282/1.
0          Referenced by comments of: 282/1 
00282/003   PRINTER PLOT SUBR                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   LIFT                                       
00283/001   BLOCKED I/O - QSAM                       SA  G          S0563 D4T1 VLO FSNAME=BLOCKED_I/O_-_QSAM..SA.001(1)          697
            D4T1    697  BLOCKED_I/O_-_QSAM..SA.001         1 LINE     80   19 PAGE UM   H YOUNG             JULY 31, 1973  21:35.33
0          LIBRARY SUBROUTINES TO PERFORM FIXED BLOCKING (FORMAT FB) ON FILES, TAPES, ETC.
           ENTRY POINTS:  QGETUCB (QGTUCB), QOPEN, QGET, QPUT, QCLOSE, QCNTRL, AND QFREEUCB (QFRUCB).
0          Referenced by comments of: 137/1 
00283/002   BLOCKED I/O - QSAM                       OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   H YOUNG                                    
00285/001   SKIP SUBR                                SA  G          S1143 D4.1T1 VLO FSNAME=SKIP_SUBR..SA.001(1)                  91
            D4.1T1   91  SKIP_SUBR..SA.001                  1 LINE     80    5 PAGE UM   WSG                 MAY  02, 1978  23:41:03
0          SUBR TO SPACE A FILE OR MAG TAPE FORWARD OR BACKWARD BY RECORDS AND/OR FILES.
           SOURCE IN LINES (1,999).
00285/002   SKIP SUBR                                OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00286/001   MATH SUBRS               SLE             S            # (NOT DISTRIBUTED)                                               
            D2T1    389                                                             UM                                              
00286/002   MATH SUBRS               INV             S            # (NOT DISTRIBUTED)                                               
            D2T1    390                                                             UM                                              
00286/003   MATH SUBRS               INV1            S            # (NOT DISTRIBUTED)                                               
            D2T1    391                                                             UM                                              
00286/004   MATH SUBRS               LRD             S            # (NOT DISTRIBUTED)                                               
            D2T1    392                                                             UM                                              
00286/005   MATH SUBRS               DBS             S            # (NOT DISTRIBUTED)                                               
            D2T1    393                                                             UM                                              
00286/006   MATH SUBRS               DBST            S            # (NOT DISTRIBUTED)                                               
            D2T1    394                                                             UM                                              
00287/001   SPIE SUBR                                SA  G          MTA:SPIE(1,999)                                                 
            D4T1    699  SPIE_SUBR..SA.001                  1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  02:12:55
                         MTA.:SPIE            
0          SUBROUTINE TO INTERFACE OS/360 'SPIE' MACRO WITH MTS 'PGNTTRP' SUBROUTINE.
00287/002   SPIE SUBR                                OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00291/001  *IEHMOVE                                  SA  G  SCAN    W062:IEHMOVE.S                                                  
            D4T1    700  IEHMOVE..SA.001                    1 LINE     80   28 PAGE UM   TIFFANY             JULY 27, 1977  02:12:57
0          PROGRAM TO READ UNLOADED OS/360 DATA SETS IN MTS. SEE ALSO *UNLINKER (562).
           CALLS THE BLKRTN SUBROUTINE (562/2) TO READ OS/VS IEBCOPY OR IEHMOVE TAPES.
00291/002  *IEHMOVE                                  OE  G          *IEHMOVE                                                        
            D4.2T1  134  IEHMOVE..OE.002                    1 LINE   7856    8 PAGE UM   TIFFANY             MAR. 26, 1979  02:33:16
                         *IEHMOVE             
00293/001  *MACGEN                                   SA  G  MACG    WATF:MACGEN(1,999)                                              
            D4T1    702  MACGEN..SA.001                     1 LINE     80    3 PAGE UM   HELFFRICH           JULY 27, 1977  02:13:02
0          GENERATE THE DIRECTORY FOR A MACRO LIBRARY.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 648/12 
00293/002  *MACGEN                                   OE  G          *MACGEN                                                         
            D4T1    703  MACGEN..OE.002                     1 SEQ     658    1 PAGE UM   HELFFRICH           JULY 27, 1977  02:13:04
                         *MACGEN              
0          Referenced by comments of: 528/31 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00296       CHECKDASD                                SA           # (OBSOLETE)                                                      
            D2T1    119                                                             UM                                              
00297/001A *LINKEDIT                 LKEDCMD         SP  G          W052:LINK.CMD.S                                                 
            4.3T1   150  LINKEDIT.LKEDCMD.SP.001            1 LINE     99   33 PAGE UM   SHERRY              APR. 05, 1980  14:21:42
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)
            
           *****************************************************************************
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT ON D4.2 (UNDOCUMENTED),
           RD4.2A/RD16, OR RD4.2C:
            
           1)  TERSE NOW DEFAULTS TO THE MTS SETTING.
           2)  RETURN IS NOW LIKE MTS INSTEAD OF STOP.
           3)  LINKEDIT NOW TERMINATES EXECUTION BY A STOP STATEMENT INSTEAD OF CALLING
               SYSTEM.
           4)  A WARNING MESSAGE IS PRINTED IF (IN COMMAND MODE) A USER DOES AN
               INCLUDE, COMBINE, PURGE BUT NO PUNCH BEFORE STOP.  TERMINAL USERS
               ARE GIVEN A CHANCE TO CHANGE THEIR MINDS BEFORE STOPPING.
           5)  BUG FIX:
                  FORWARD REFERENCED ENTRY POINTS OF A BUFFERED CONTROL SECTION ARE
               NOW RESOLVED AND DEFINED PROPERLY.
           6)  BUG FIX:
                        $RUN *LINKEDIT SCARDS=NOSUCHFILE SPUNCH=-STUFF
               NOW WORKS AND DOESN'T PRINT ALL KINDS OF WEIRD GARBAGE DUE TO THE 
               NONEXISTENT INPUT FILE.
           7)  IN BATCH, WARNINGS NO LONGER CAUSE AN ERROR RETURN IF QUIT=ON.
           8)  BUG FIX:
                  AN INPUT FILE WITH A COM RECORD AT LINE 1 IN NO COMMAND MODE NO
               LONGER CAUSES AN ERRONEOUS MESSAGE TO BE PRINTED AND THEN CRAPS OUT.
           9)  BUG FIXED IN RENAME SUBROUTINE THAT CAUSED CIRCULAR HASH CHAINS
               FOR SYMBOLS HASHING TO SAME CHAIN LOCATION.
            
           10) BUG FIXED IN INCLUDE BUFREAD WHICH CAUSED PGNT IF TWO MODULES
               WITH LENGTH ON END CARD WERE INCLUDED IN THE SAME COMMAND.
           *****************************************************************************
0          Referenced by comments of: 297/11, 297/16, 721/1, 3031/1 
00297/002A *LINKEDIT                 INCLUDE         SP  G          W052:LINK.INCL.S                                                
            4.3T1   151  LINKEDIT.INCLUDE.SP.002            1 LINE    100   17 PAGE UM   SHERRY              APR. 05, 1980  14:21:51
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/003  *LINKEDIT                 PUNCH           SP  G          W052:LINK.PUNCH.S                                               
            D4T1    706  LINKEDIT.PUNCH.SP.003              1 LINE    100    7 PAGE UM   SHERRY              JULY 27, 1977  02:13:20
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00297/004  *LINKEDIT                 COMBINE         SP  G          W052:LINK.COMB.S                                                
            D4T1    707  LINKEDIT.COMBINE.SP.004            1 LINE    100   10 PAGE UM   SHERRY              JULY 27, 1977  02:13:22
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/005  *LINKEDIT                 SUBR            SP  G          W052:LINK.SUBR.S                                                
            D4T1    708  LINKEDIT.SUBR.SP.005               1 LINE     99    5 PAGE UM   SHERRY              JULY 27, 1977  02:13:25
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/006A *LINKEDIT                 LINK.COM        SP  G          W052:LINK.COM                                                   
            4.3T1   152  LINKEDIT.LINK.COM.SP.006           1 LINE    100    6 PAGE UM   SHERRY              APR. 05, 1980  14:21:54
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/12, 297/13, 297/15, 297/16 
00297/007  *LINKEDIT                 ASMSUBR         SA  G          W052:LINK.ALIB.S                                                
            D4T1    710  LINKEDIT.ASMSUBR.SA.007            1 LINE     71    3 PAGE UM   SHERRY              JULY 27, 1977  02:13:29
0          ASMG SUBROUTINES.
00297/008  *LINKEDIT                 DUMP            SP  G          W052:LINK.DUMP.S                                                
            D4T1    711  LINKEDIT.DUMP.SP.008               1 LINE     92    4 PAGE UM   SHERRY              JULY 27, 1977  02:13:31
0          SUBROUTINE TO PRODUCE ERROR DUMPS.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/009A *LINKEDIT                 UTIL            SP  G          W052:LINK.UTIL.S                                                
            4.3T1   153  LINKEDIT.UTIL.SP.009               1 LINE     88    3 PAGE UM   SHERRY              APR. 05, 1980  14:21:56
0          MISCELLANEOUS UTILITY SUBROUTINES.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/010  *LINKEDIT                 UNLK            SP  G          W052:LINK.UNLK.S                                                
            D4T1    713  LINKEDIT.UNLK.SP.010               1 LINE    100    6 PAGE UM   SHERRY              JULY 27, 1977  02:13:36
0          SUBROUTINE TO UNLINK MULTIPLE-CSECT MODULES.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/011  *LINKEDIT                 ATTN            SA  G          W052:LINK.ATTN.S                                                
            D4T1    714  LINKEDIT.ATTN.SA.011               1 LINE     67    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:38
0          ROUTINE TO ALLOW *LINKEDIT TO FIELD ATTENTION INTERRUPTS.
           NOTE:  THIS ROUTINE IS NO LONGER REQUIRED SINCE THE D4.0 PL1 COMPILER SUPPORTS
                  ON CONDITION (ATTN), WHICH LKEDMCD (297/1) HAS BEEN CHANGED TO USE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00297/012  *LINKEDIT                 PURGE           SP  G          W052:LINK.PUREP.S                                               
            D4T1    715  LINKEDIT.PURGE.SP.012              1 LINE     91    3 PAGE UM   SHERRY              JULY 27, 1977  02:13:40
0          SUBROUTINE TO IMPLEMENT PURGE AND REPLACE (UPDATE) COMMANDS.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/013  *LINKEDIT                 XMAL            SP  G          W052:LINK.XMAL.S                                                
            D4T1    716  LINKEDIT.XMAL.SP.013               1 LINE     96    8 PAGE UM   SHERRY              JULY 27, 1977  02:13:42
0          SUBROUTINE TO IMPLEMENT XREF, MAP, ATTRIBUTE, AND LIST COMMANDS.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/014  *LINKEDIT                 IOCVT           SA  G          W052:LINK.IOCVT.S                                               
            D4T1    717  LINKEDIT.IOCVT.SA.014              1 LINE     72   17 PAGE UM   SHERRY              JULY 27, 1977  02:13:44
0          ROUTINES TO DO I/O CONVERSIONS, TEXT MODIFICATION, AND SCANNING;
           USED BY DISPLAY, SCAN, AND MODIFY COMMANDS.
           ASSEMBLE USING *SYSMAC.
00297/015  *LINKEDIT                 IOSUB           SP  G          W052:LINK.IOSUB.S                                               
            D4T1    718  LINKEDIT.IOSUB.SP.015              1 LINE     91    3 PAGE UM   SHERRY              JULY 27, 1977  02:13:47
0          SUBROUTINE USED BY DISPLAY, SCAN, AND MODIFY COMMANDS.
           CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
           COMPILE WITH PARAMETER SORMGIN=(2,100,1)
00297/016  *LINKEDIT                 LINK.CMD.GEN    C              W052:LINK.CMD.G                                                 
            D4T1    719  LINKEDIT.LINK.CMD.GEN.C.016        1 LINE    106    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:50
0          THIS IS AN MTS COMMAND SOURCE FILE TO RECOMPILE LINK.CMD.S (297/1).
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.  THIS FILE
           CONTAINS SOME $EDIT COMMANDS TO SET THE VERSION DATE IN W052:LINK.COM
           (297/6) BEFORE COMPILING.
00297/017A *LINKEDIT                 LINKLOAD        OC  G          W052:LINKLOAD                                                   
            4.3T1   154  LINKEDIT.LINKLOAD.OC.017           1 LINE  32767  121 PAGE UM   SHERRY              APR. 05, 1980  14:21:59
0          UNLINKEDITED OBJECT FOR LINKAGE EDITOR.  THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT.
0          Referenced by comments of: 297/18 
00297/018  *LINKEDIT                 LINKEDIT.G      C              W052:LINKEDIT.G                                                 
            D4T1    721  LINKEDIT.LINKEDIT.G.C.018          1 LINE     34    1 PAGE UM   SHERRY              JULY 27, 1977  02:13:54
0          THIS FILE CONTAINS ALL THE MTS AND *LINKEDIT COMMANDS NECESSARY TO LINKEDIT
           THE UNLINKEDITED VERSION OF THE LINKAGE EDITOR (297/17).  THE *LINKEDIT
           COMMAND "RENAME IHESAPC IHESAPE" IS IMPORTANT SO THAT THE PAR= FIELD ON A
           $RUN *LINKEDIT COMMAND WON'T BE INTERCEPTED BY THE PL1 ENVIRONMENT.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00297/019A *LINKEDIT                 OBJECT          OE  G          *LINKEDIT                                                       
            4.3T1   155  LINKEDIT.OBJECT.OE.019             1 SEQ   32767   71 PAGE UM   SHERRY              APR. 05, 1980  14:22:07
                         *LINKEDIT            
0          THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT.
00298/001  *FORTRANH                 ASM SOU         SA  G          S1099 FORTRN FSNAME=FTNH.ASM                                    
            D4.2T1  140  FORTRANH.ASM_SOU.SA.001            1 LINE     80  282 PAGE UM   HANSEN              FEB. 04, 1979  13:57:59
0          SOURCE FOR ASSEMBLER MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND
           UNIVERSITY OF ROCHESTER VERSIONS. 
            
           ASSEMBLE USING 298/7 MACRO LIBRARY.
0          Referenced by comments of: 551/1 
00298/002  *FORTRANH                 FORTRAN SOU     SF  G          S1099 FORTRN FSNAME=FTNH.FTN                                    
            D4.2T1  141  FORTRANH.FORTRAN_SOU.SF.002        1 LINE     80  129 PAGE UM   HANSEN              NOV. 14, 1978  17:50:31
0          SOURCE FOR FORTRAN MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND UNIVERSITY
           OF ROCHESTER VERSIONS.
00298/003  *FORTRANH                 ROCHESTER SOU   S   G          S1099 FORTRN FSNAME=FTNH.UOR                                    
            D4.2T1  142  FORTRANH.ROCHESTER_SOU.S.003       1 LINE     80   93 PAGE UM   HANSEN              DEC. 01, 1978  12:43:27
0          SOURCE (ASSEMBLER AND FORTRAN) FOR THE MODULES FROM THE UNIVERSITY OF
           ROCHESTER.
00298/004  *FORTRANH                 OS SOURCE       S   O          S0695 OSSRC5                                                2   
            D4.2T1  143  FORTRANH.OS_SOURCE.S.004           1 SEQ      80 1263 PAGE UM   HANSEN              MAR. 26, 1979  02:37:25
0          SOURCE MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS (RELEASE 20.1).
           NO PTF'S ARE INCLUDED IN THIS FILE.
00298/005  *FORTRANH                 OBJECT          OC  G          S1099 FORTRN FSNAME=FORTRANH                                    
            D4.2T1  144  FORTRANH.OBJECT.OC.005             1 LINE  22909  139 PAGE UM   HANSEN              MAR. 02, 1979  12:04:06
0          COMPLETE, UN-LINKEDITED FORTRAN H COMPILER, CONSISTING OF OBJECT FOR 298/1,
           298/2, 298/3, AND 298/4.
00298/006  *FORTRANH                 *FORTRANH       OE  G          *FORTRANH                                                       
            D4.2T1  145  FORTRANH.*FORTRANH.OE.006          1 LINE  32767  102 PAGE UM   HANSEN              MAR. 26, 1979  02:37:54
                         *FORTRANH            
0          LINKEDITED VERSION OF 297/5.
00298/007  *FORTRANH                 MACLIB          SM  G          S1099 FORTRN FSNAME=IEK.MACLIB                                  
            D4.2T1  146  FORTRANH.MACLIB.SM.007             1 LINE     72    3 PAGE UM   HANSEN              NOV. 14, 1978  18:00:46
0          MACRO LIBRARY USED BY 298/1.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00299      *LOVOC                                    S            # (OBSOLETE)                                                      
            D2T2    205                                                             UM                                              
00300      *LODEF                                    S            # (OBSOLETE)                                                      
            D2T2    206                                                             UM                                              
00302      *SSPSOURCE                                SF  G        # (NOT DISTRIBUTED)                                               
            D3T2    167  SSPSOURCE..SF.1                    1 LINE     80    5 PAGE UM                       FEB. 17, 1972  13:31.13
00303/001A  SORT                     SORT PGM        SA  G  SORT    S0027 DISTRB FSNAME=SORT                                        
            4.3T1   156  SORT.SORT_PGM.SA.001               1 LINE     80   90 PAGE UM   ENGLE               FEB. 22, 1980  14:33:55
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).
00303/002A  SORT                     SORT PGM        UC  G          S0027 DISTRB FSNAME=SORTUPDATE                                  
            4.3T1   157  SORT.SORT_PGM.UC.002               1 LINE     80   13 PAGE UM   ENGLE               FEB. 22, 1980  14:38:45
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00303/003A  SORT                     *SORT           OC  G          S0027 DISTRB FSNAME=SRT                                         
            4.3T1   158  SORT.*SORT.OC.003                  1 LINE     80   10 PAGE UM   ENGLE               FEB. 22, 1980  14:38:48
00303/004C  SORT                     *SORT           OE  G          *SORT                                                           
            4.3T1   159  SORT.*SORT.OE.004                  1 SEQ    7584    4 PAGE UM   ENGLE               APR. 05, 1980  14:23:31
                         *SORT                
0          LINKEDITED COMBINATION OF 303/3 AND *LCS (164).
0          Referenced by comments of: 303/1 
00303/005A  SORT                     SORT SUBR       OC  G          S0027 DISTRB FSNAME=SRT1                                        
            4.3T1   160  SORT.SORT_SUBR.OC.005              1 LINE     80   10 PAGE UM   ENGLE               FEB. 22, 1980  14:38:52
0          Referenced by comments of: 303/1 
00303/006A  SORT                     SORT2/3/4 SUBR  SA  G  SRT2    S0027 DISTRB FSNAME=SORT2                                       
            4.3T1   161  SORT.SORT2/3/4_SUBR.SA.006         1 LINE     80   38 PAGE UM   ENGLE               FEB. 20, 1980  12:39:33
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           COPIES *CNFGINFODSECT (654).
0          Referenced by comments of: 1030/1 
00303/007A  SORT                     SORT2/3/4 SUBR  UC  G          S0027 DISTRB FSNAME=SORT2UPDATE                                 
            4.3T1   162  SORT.SORT2/3/4_SUBR.UC.007         1 LINE     72    3 PAGE UM   ENGLE               FEB. 20, 1980  12:39:42
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00303/008A  SORT                     SORT2/3/4 SUBR  OC  G          S0027 DISTRB FSNAME=SRT2                                        
            4.3T1   163  SORT.SORT2/3/4_SUBR.OC.008         1 LINE     80    5 PAGE UM   ENGLE               FEB. 20, 1980  12:39:49
00303/009   SORT                     MESSAGE         SA  G  MSG     S0027 DISTRB FSNAME=MESSAGE                                     
            D4T1    738  SORT.MESSAGE.SA.006                1 LINE     80    4 PAGE UM   ENGLE               MAY  18, 1976  11:01:21
0          MODULE TO PRINT SORT ERROR MESSAGES (303/11).
0          Referenced by comments of: 303/15 
00303/010   SORT                     MESSAGE         OE  G          S0027 DISTRB FSNAME=MSG                                         
            D4T1    739  SORT.MESSAGE.OE.007                1 LINE     80    1 PAGE UM   ENGLE               MAY  18, 1976  11:01:36
00303/011A  SORT                     MESSAGES        M              S0027 DISTRB FSNAME=SORTMESSAGES                                
            4.3T1   164  SORT.MESSAGES.M.011                1 LINE     81    3 PAGE UM   ENGLE               FEB. 20, 1980  12:41:58
0          SORT ERROR MESSAGES.
           NOTE:  LINE NUMBERS ARE IMPORTANT IN THIS FILE.
0          Referenced by comments of: 303/9, 303/15 
00303/012   SORT                     CHECK           SA  G  CHK     S0027 DISTRB FSNAME=CHECK                                       
            D4T1    741  SORT.CHECK.SA.009                  1 LINE     80    8 PAGE UM   ENGLE               JULY 08, 1976  14:36:37
0          MODULE TO IMPLEMENT THE SORT "CHK" PARAMETER.
0          Referenced by comments of: 303/15 
00303/013   SORT                     CHECK           OE  G          S0027 DISTRB FSNAME=CHK                                         
            D4T1    742  SORT.CHECK.OE.010                  1 LINE     80    2 PAGE UM   ENGLE               JULY 08, 1976  14:36:44
00303/014A  SORT                     DOC             WT             S0027 DISTRB FSNAME=SORTWRITEUP                                 
            4.3T1   165  SORT.DOC.WT.014                    1 LINE    256   52 PAGE UM   ENGLE               MAR. 05, 1980  11:06:43
0          TEXT/360 MASTER FOR MTS VOLUME 5 SORT WRITEUP INCLUDING PRELIMINARY ADDITIONS 
           AND CORRECTIONS SINCE COMPUTING CENTER MEMO 397 (UPDATE 2 TO VOLUME 5, FEB/79).
00303/015A  SORT                     *SORTLM             G          *SORTLM                                                         
            4.3T1   166  SORT.*SORTLM..015                  1 LINE   2753    4 PAGE UM   ENGLE               APR. 05, 1980  14:23:56
                         *SORTLM              
0          FILE CONTAINING ERROR MESSAGE PROGRAM (303/9), MESSAGES (303/11), CHECK ROUTINE (303/12),
           AND TAPESORT (303/22). LINE NUMBERS IN THIS FILE ARE IMPORTANT.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00303/016   SORT                     SRTTMTST        SA  G  SRTT    S0027 DISTRB FSNAME=SRTTMTST                                    
            D4T1    745  SORT.SRTTMTST.SA.013               1 LINE     80    4 PAGE UM   ENGLE               JAN. 24, 1977  16:01:14
0          MAIN PROGRAM TO PRODUCE CPU AND VMI TIMING RESULTS WHEN LOADED WITH *SORT.
00303/017   SORT                     SRTTMTST        OC  G          S0027 DISTRB FSNAME=SRTT                                        
            D4T1    746  SORT.SRTTMTST.OC.014               1 LINE     80    1 PAGE UM   ENGLE               JAN. 24, 1977  16:02:11
00303/018   SORT                     SORTPLOT        SF  G  SRTP    S0027 DISTRB FSNAME=SORTPLOT                                    
            D4T1    747  SORT.SORTPLOT.SF.015               1 LINE     80    7 PAGE UM   ENGLE               MAY  18, 1976  11:19:41
0          PROGRAM TO GENERATE CALCOMP TIMING PLOTS FOR THE SORT WRITEUP.  IT ASSUMES THE
           EXISTENCE OF THE PENCHG SUBROUTINE FOR MULTICOLOR PLOTS.  A DUMMY SUBROUTINE MAY BE
           SUBSTITUTED.  INTERNAL STATEMENT NUMBER 87 SHOULD BE SKIPPED TO ELIMINATE THE
           PLOTTING OF DATA POINTS.
00303/019   SORT                     SORTPLOT        OC  G          S0027 DISTRB FSNAME=SRTP                                        
            D4T1    748  SORT.SORTPLOT.OC.016               1 LINE   3500    4 PAGE UM   ENGLE               MAY  18, 1976  11:23:17
00303/020A  SORT                     SORTPLOT        D   G          S0027 DISTRB FSNAME=SRTPDATA                                    
            4.3T1   167  SORT.SORTPLOT.D.020                1 LINE     28    3 PAGE UM   ENGLE               FEB. 20, 1980  12:55:36
0          DATA FOR SORT TIMING PLOTS, MEASURED ON AMDAHL 470V/7.
00303/021A  SORT                     SORTPLOT        D   G          S0027 DISTRB FSNAME=SRTPPLOT                                    
            4.3T1   168  SORT.SORTPLOT.D.021                1 LINE   3670   35 PAGE UM   ENGLE               FEB. 20, 1980  12:55:45
0          CALCOMP PLOT FILE FOR SORT TIMING PLOTS IN SORT WRITEUP.  CONTAINS PPEN RECORDS
           FOR MULTICOLOR PLOTTING.
00303/022A  SORT                     TAPESORT        SA  G  TSRT    S0027 DISTRB FSNAME=TAPESORT                                    
            4.3T1   169  SORT.TAPESORT.SA.022               1 LINE     80   18 PAGE UM   ENGLE               OCT. 24, 1979  16:41:35
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/15 
00303/023A  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/024A  SORT                     TAPESORT        OC  G          S0027 DISTRB FSNAME=TSRT                                        
            4.3T1   171  SORT.TAPESORT.OC.024               1 LINE     80    3 PAGE UM   ENGLE               OCT. 24, 1979  16:43:40
00303/025   SORT                     SRT2TIME        SG  G          S0027 DISTRB FSNAME=SRT2TIME                                    
            D4T1    753  SORT.SRT2TIME.SG.021               1 LINE     72    4 PAGE UM   ENGLE               SEP. 09, 1977  16:42:55
0          PROGRAM TO PRODUCE CPU TIMING RESULTS FOR SORT2, SORT3, AND SORT4.  MAY BE USED
           TO TIME ONE OR MORE VERSIONS OF THESE SUBROUTINES.  INFORMATION REQUESTED BY
           PROMPTING INCLUDES LOCATIONS (FILE NAMES ENTERED ONE/LINE TERMINATED BY EOF) OF
           ADDITIONAL VERSIONS (BESIDES THE ONE LOADED WITH THE PROGRAM), WHETHER THE RESULTS
1                                                                                               SUN SEP 08/96   19:03:19   Page  110
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          OF EACH INDIVIDUAL REPETITION ARE TO BE PRINTED, THE NUMBER OF REPETITIONS (0 OR
           MORE) FOR EACH TEST (RANDOM NUMBERS, ALREADY ORDERED, REVERSE ORDER, AND ALL
           EQUAL), ELEMENTS/ARRAY, ELEMENT LENGTH (LENGTH IS SAME FOR TAG ELEMENTS FOR
           SORT3), AND STARTING RANDOM NUMBER.  IF ELEMENTS/ARRAY OR ELEMENT LENGTH IS ZERO,
           A NEW SET OF NUMBER OF REPETITIONS WILL BE REQUESTED.
00303/026   SORT                     SRT2TIME        OC  G          S0027 DISTRB FSNAME=S2TM                                        
            D4T1    754  SORT.SRT2TIME.OC.022               1 LINE     80    8 PAGE UM   ENGLE               SEP. 09, 1977  16:44:10
0          >>>>>>>> NOTE:  REP CARD IN THIS OBJECT CAUSES THE TIMES TO BE PRINTED AS
                    TIME/N RATHER THAN TIME/(N*LOG2(N)).
00303/027C  SORT                     SORT4F          SA  G  S4F     S0027 DISTRB FSNAME=SORT4F                                      
            4.3T1   172  SORT.SORT4F.SA.027                 1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  13:49:43
0          SORT4F IS A SUBROUTINE TO SORT AN ARRAY OF FORTRAN INDEXES BASED ON THE DATA
           TO WHICH THE INDEXES REFER.
00303/028C  SORT                     SORT4F          OC  G          S0027 DISTRB FSNAME=SRT4F                                       
            4.3T1   173  SORT.SORT4F.OC.028                 1 LINE     80    1 PAGE UM   ENGLE               FEB. 20, 1980  13:49:51
00304/001   TAPE DIAGNOSTIC          *TPD            C              *TPD                                                            
            D4.2T1  161  TAPE_DIAGNOSTIC.*TPD.C.001         1 LINE     61    1 PAGE UM   WSG                 MAR. 26, 1979  02:39:10
                         *TPD                 
0          COMMAND FILE TO RUN THE SYSTEM TAPE DIAGNOSTIC PROGRAM (304/2).  INVOKED BY ENTERING
           "MTS *TPD" ON THE OPERATOR'S CONSOLE.
00304/002   TAPE DIAGNOSTIC                          SA  G  TDIA    WSG:TAPEDIAG(1,999)                                             
            D4T1    756  TAPE_DIAGNOSTIC..SA.002            1 LINE     80    8 PAGE UM   WSG                 JULY 27, 1977  02:24:20
                         WSG.:TAPEDIAG        
0          SIMPLE TAPE DIAGNOSTIC PROGRAM.  READS AND WRITES RANDOM LENGTH, RANDOM DATA
           RECORDS.  WORKS ON BOTH 7- AND 9-TRACK.  WHEN IT ASKS FOR A TAPE DRIVE, PARAMETERS
           MAY BE GIVEN AFTER THE DRIVE NAME AS FOLLOWS:
             800   - FOR 9-TRACK, TEST 800 BPI.
             1600  - FOR 9-TRACK, TEST 1600 BPI.
             6250  - FOR 9-TRACK, TEST 6250 BPI.
             ALL   - TEST THE ENTIRE TAPE RATHER THAN THE DEFAULT 300 READ/WRITE ATTEMPTS.
           IF NONE OF THE FIRST THREE PARAMETERS IS GIVEN, ALL 9-TRACK DENSITIES WILL BE TESTED
           IN SUCCESSION (800, 1600, AND 6250).  IF ANY OF THESE DENSITIES IS NOT SUPPORTED BY
           THE DRIVE BEING TESTED, A WARNING MESSAGE WILL BE PRODUCED AND THAT DENSITY IS
           SKIPPED.  ALL THREE 7-TRACK DENSITIES ARE ALWAYS TESTED ON AN INTERLEAVED
           RECORD-BY-RECORD BASIS.
0          Referenced by comments of: 304/1 
00304/003   TAPE DIAGNOSTIC                          OC  G          WSG:TAPEDIAG(1000)                                              
            D4T1    757  TAPE_DIAGNOSTIC..OC.003            1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  02:24:22
00305/001  *FTNTOPL1                 SLCPF4          SP  O  LCP     S0721 'D3T2' FSNAME=FTNTOPL1.SLCPF4.SP.1(1)                  177
            D4T1    758  FTNTOPL1.SLCPF4.SP.001             1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  22:47.13
0          IBM PROGRAM 360-CV-710: LCP FORTRAN-IV TO PL/I, VERSION 1 LEVEL 0. THE SOURCE DECKS (305/1 THRU 305/20)
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          SHOULD BE STORED IN FILES NAMED AS INDICATED.  THE UPDATE DECK (305/21) WILL CONVERT THESE FILES, WHICH 
           ARE UNMODIFIED IBM SOURCE, INTO A VERSION THAT WILL RUN IN MTS.  MOST OF THESE PROGRAMS ARE WRITTEN IN PL/I
           VERSION 4 WITH SORGMIN=(2,41).  THE ONLY PROGRAMS WHICH ARE NOT PL/I ARE SCONVER, SPUTTBS, AND SLBLNK, WHICH ARE
           ASSEMBLY LANGUAGE.  UNCHANGED SINCE DIST 2.
00305/002  *FTNTOPL1                 SCONVER         SA  O  CON     S0721 'D3T2' FSNAME=FTNTOPL1.SCONVER.SA.2(1)                 178
            D4T1    759  FTNTOPL1.SCONVER.SA.002            1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.14
00305/003  *FTNTOPL1                 SPUTTBS         SA  O  PUT     S0721 'D3T2' FSNAME=FTNTOPL1.SPUTTBS.SA.3(1)                 179
            D4T1    760  FTNTOPL1.SPUTTBS.SA.003            1 SEQ      80   24 PAGE UM   TIFFANY             JULY 31, 1973  22:47.18
0          Referenced by comments of: 305/21 
00305/004  *FTNTOPL1                 SLTCOL          SP  O  LTC     S0721 'D3T2' FSNAME=FTNTOPL1.SLTCOL.SP.4(1)                  180
            D4T1    761  FTNTOPL1.SLTCOL.SP.004             1 SEQ      80   12 PAGE UM   TIFFANY             JULY 31, 1973  22:47.22
00305/005  *FTNTOPL1                 SIPPRS          SP  O  IPP     S0721 'D3T2' FSNAME=FTNTOPL1.SIPPRS.SP.5(1)                  181
            D4T1    762  FTNTOPL1.SIPPRS.SP.005             1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.25
00305/006  *FTNTOPL1                 SPH10           SP  O  PH1     S0721 'D3T2' FSNAME=FTNTOPL1.SPH10.SP.6(1)                   182
            D4T1    763  FTNTOPL1.SPH10.SP.006              1 SEQ      80   11 PAGE UM   TIFFANY             JULY 31, 1973  22:47.28
00305/007  *FTNTOPL1                 SFNPRO          SP  O  FNP     S0721 'D3T2' FSNAME=FTNTOPL1.SFNPRO.SP.7(1)                  183
            D4T1    764  FTNTOPL1.SFNPRO.SP.007             1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.30
00305/008  *FTNTOPL1                 SDMPRO          SP  O  DMP     S0721 'D3T2' FSNAME=FTNTOPL1.SDMPRO.SP.8(1)                  184
            D4T1    765  FTNTOPL1.SDMPRO.SP.008             1 SEQ      80   18 PAGE UM   TIFFANY             JULY 31, 1973  22:47.32
00305/009  *FTNTOPL1                 SNLPRO          SP  O  NLP     S0721 'D3T2' FSNAME=FTNTOPL1.SNLPRO.SP.9(1)                  185
            D4T1    766  FTNTOPL1.SNLPRO.SP.009             1 SEQ      80    9 PAGE UM   TIFFANY             JULY 31, 1973  22:47.34
00305/010  *FTNTOPL1                 SFTPRO          SP  O  FTP     S0721 'D3T2' FSNAME=FTNTOPL1.SFTPRO.SP.10(1)                 186
            D4T1    767  FTNTOPL1.SFTPRO.SP.010             1 SEQ      80   21 PAGE UM   TIFFANY             JULY 31, 1973  22:47.38
00305/011  *FTNTOPL1                 SRTPRO          SP  O  RTP     S0721 'D3T2' FSNAME=FTNTOPL1.SRTPRO.SP.11(1)                 187
            D4T1    768  FTNTOPL1.SRTPRO.SP.011             1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.40
00305/012  *FTNTOPL1                 SIOPRO          SP  O  IOP     S0721 'D3T2' FSNAME=FTNTOPL1.SIOPRO.SP.12(1)                 188
            D4T1    769  FTNTOPL1.SIOPRO.SP.012             1 SEQ      80   25 PAGE UM   TIFFANY             JULY 31, 1973  22:47.43
00305/013  *FTNTOPL1                 SARPRO          SP  O  ARP     S0721 'D3T2' FSNAME=FTNTOPL1.SARPRO.SP.13(1)                 189
            D4T1    770  FTNTOPL1.SARPRO.SP.013             1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.47
00305/014  *FTNTOPL1                 SCAPRO          SP  O  CAP     S0721 'D3T2' FSNAME=FTNTOPL1.SCAPRO.SP.14(1)                 190
            D4T1    771  FTNTOPL1.SCAPRO.SP.014             1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.49
00305/015  *FTNTOPL1                 SIFPRO          SP  O  IFP     S0721 'D3T2' FSNAME=FTNTOPL1.SIFPRO.SP.15(1)                 191
            D4T1    772  FTNTOPL1.SIFPRO.SP.015             1 SEQ      80    6 PAGE UM   TIFFANY             JULY 31, 1973  22:47.52
00305/016  *FTNTOPL1                 SALPRO          SP  O  ALP     S0721 'D3T2' FSNAME=FTNTOPL1.SALPRO.SP.16(1)                 192
            D4T1    773  FTNTOPL1.SALPRO.SP.016             1 SEQ      80    7 PAGE UM   TIFFANY             JULY 31, 1973  22:47.54
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00305/017  *FTNTOPL1                 SPH20           SP  O  PH2     S0721 'D3T2' FSNAME=FTNTOPL1.SPH20.SP.17(1)                  193
            D4T1    774  FTNTOPL1.SPH20.SP.017              1 SEQ      80   16 PAGE UM   TIFFANY             JULY 31, 1973  22:47.58
00305/018  *FTNTOPL1                 SPH30           SP  O  PH3     S0721 'D3T2' FSNAME=FTNTOPL1.SPH30.SP.18(1)                  194
            D4T1    775  FTNTOPL1.SPH30.SP.018              1 SEQ      80   41 PAGE UM   TIFFANY             JULY 31, 1973  22:48.03
00305/019  *FTNTOPL1                 SLBLNK          SA  O  SLBL    S0721 'D3T2' FSNAME=FTNTOPL1.SLBLNK.SA.19(1)                 195
            D4T1    776  FTNTOPL1.SLBLNK.SA.019             1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:48.07
00305/020  *FTNTOPL1                 SUT1            SP  O          S0721 'D3T2' FSNAME=FTNTOPL1.SUT1.SP.20(1)                   196
            D4T1    777  FTNTOPL1.SUT1.SP.020               1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  22:48.08
00305/021  *FTNTOPL1                 UPDATE          UU  O          S0563 D4T1 VLO FSNAME=FTNTOPL1.UPDATE.UU.021(1)              778
            D4T1    778  FTNTOPL1.UPDATE.UU.021             1 LINE     80    4 PAGE UM   TIFFANY             JULY 27, 1977  02:25:15
0          UPDATE DECK, INCLUDING MTS COMMANDS, TO PRODUCE IN A FILE "NEWLCP" A VERSION OF *FTNTOPL1 THAT WILL RUN
           IN MTS. THIS DECK WILL HAVE TO BE CHANGED TO MEET LOCAL CONDITIONS - IT CURRENTLY USES THE DATA CELL.
           LATEST VERSION CORRECTS SPUTTBS (305/3) SO THAT THERE CAN BE MORE THAN 200 INPUT CARDS.
0          Referenced by comments of: 305/1 
00305/022  *FTNTOPL1                                 OC  O          *FTNTOPL1                                                       
            D4T1    779  FTNTOPL1..OC.022                   1 SEQ   22330   46 PAGE UM   TIFFANY             JULY 27, 1977  02:25:17
                         *FTNTOPL1            
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00306/001  *WIREWRAP                 WW.S.MAIN       SA  G  WWMN    S0767 'SAVETAPE' FSNAME=WW.S.MAIN                               
            D4T1    780  WIREWRAP.WW.S.MAIN.SA.001          1 LINE     80   55 PAGE UM   GOEN                AUG. 21, 1975  11:54:24
0          PROGRAM TO PRODUCE ALL SORTS OF NEAT OUTPUT ABOUT WIRING BACKPANELS FOR HARDWARE DEVICES.
           INPUT TO THE PROGRAM IS A MACRO-ORIENTED LANGUAGE FOR DESCRIBING HARDWARE DEVICES FROM LOGIC
           DIAGRAMS.  OUTPUT INCLUDES LISTS OF SIGNALS, WIRE-CHAINS, IC'S USED, COST AND POWER TOTALS,
           AND A PUNCHED CARD DECK FOR AUTOMATICALLY DRIVING ANY GARDNER-DENVER WIREWRAP MACHINE.
           THE WIREWRAP PROGRAM CONSISTS OF THREE CSECTS:  WW.S.MAIN (306/1), WW.S.AUX (306/2),
           AND WW.S.MACR (306/3).  EACH REQUIRES COPY SECTIONS WWCOPY (306/5) AND WWDATA (306/6) AND MACRO
           LIBRARIES WWMAC (306/7) AND *SYSMAC.  THE OBJECT MODULE (*WIREWRAP) MUST BE RUN IN CONJUNCTION
           WITH THE *WWLIB (306/9) LIBRARY FILE OR MUST BE CONCATENATED WITH A PRIVATE SUBROUTINE
           PACKAGE USED TO DEFINE THE CHARACTERISTICS OF THE IC MOUNTING TECHNIQUE.  SOURCE FILE
           WWJOB (306/8) WILL ASSEMBLE *WIREWRAP.
0          Referenced by comments of: 306/1 
00306/002  *WIREWRAP                 WW.S.AUX        SA  G  WWAU    S0767 'SAVETAPE' FSNAME=WW.S.AUX                                
            D4T1    781  WIREWRAP.WW.S.AUX.SA.002           1 LINE     80   42 PAGE UM   GOEN                AUG. 21, 1975  11:54:30
0          Referenced by comments of: 306/1 
00306/003  *WIREWRAP                 WW.S.MACR       SA  G  WWMC    S0767 'SAVETAPE' FSNAME=WW.S.MACR                               
            D4T1    782  WIREWRAP.WW.S.MACR.SA.003          1 LINE     80   29 PAGE UM   GOEN                AUG. 21, 1975  11:54:38
0          Referenced by comments of: 306/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00306/004  *WIREWRAP                 *WIREWRAP       OE  G          *WIREWRAP                                                       
            D4T1    783  WIREWRAP.*WIREWRAP.OE.004          1 SEQ   12724   15 PAGE UM   GOEN                JULY 27, 1977  02:29:07
                         *WIREWRAP            
00306/005  *WIREWRAP                 WWCOPY          SA  G  WWCO    S0767 'SAVETAPE' FSNAME=WWCOPY                                  
            D4T1    784  WIREWRAP.WWCOPY.SA.005             1 LINE     80    4 PAGE UM   GOEN                AUG. 21, 1975  11:55:07
0          COPY SECTION USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
00306/006  *WIREWRAP                 WWDATA          SA  G  WWDA    S0767 'SAVETAPE' FSNAME=WWDATA                                  
            D4T1    785  WIREWRAP.WWDATA.SA.006             1 LINE     80    8 PAGE UM   GOEN                AUG. 21, 1975  11:55:02
0          COPY SECTION USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
00306/007  *WIREWRAP                 WWMAC           SM  G          S0767 'SAVETAPE' FSNAME=WWMAC                                   
            D4T1    786  WIREWRAP.WWMAC.SM.007              1 LINE     73    3 PAGE UM   GOEN                AUG. 21, 1975  11:54:50
0          MACRO LIB USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
00306/008  *WIREWRAP                 WWJOB           C   G          S0767 'SAVETAPE' FSNAME=WWJOB                                   
            D4T1    787  WIREWRAP.WWJOB.C.008               1 LINE     92    1 PAGE UM   GOEN                AUG. 21, 1975  11:54:55
0          Referenced by comments of: 306/1 
00306/009  *WIREWRAP                 *WWLIB          OL  G          *WWLIB                                                          
            D4.1T1   99  WIREWRAP.*WWLIB.OL.009             1 LINE   2948   37 PAGE UM   GOEN                MAY  13, 1978  17:10:10
                         *WWLIB               
0          NON-STANDARD LIBRARY FILE USED BY *WIREWRAP TO OBTAIN CHARACTERISTICS OF THE IC
           MOUNTING TECHNIQUE.  CONSISTS OF A DIRECTORY FOLLOWED BY THE LINK-EDITED OBJECT
           MODULES FOR BAY TYPES:  LAB, LAB16, IC, MSERIES, PG1, PG3, PG5, PG13, UG1, MIC,
           RSERIES, 8SERIES, CHIP, AND DOUGLAS.  THE *WIREWRAP USER'S GUIDE (306/33)
           DESCRIBES MOST OF THESE BAY TYPES.  8SERIES IS USED FOR CLASSIC PDP-8 MINCOMPUTERS.
           CHIP AND DOUGLAS ARE DESCRIBED IN THEIR RESPECTIVE FORTRAN SOURCE CODES.  THIS
           LIBRARY ALSO MAKES USE OF OBJECT FILES *WWSQGRD (306/11), *WWSTGRD1 (306/13),
           AND *WWSTGRD2 (306/15).
0          Referenced by comments of: 306/1, 306/16, 306/17, 306/18, 306/19, 306/20, 306/21, 306/22, 306/23, 306/24, 306/25,
                 306/26, 306/27, 306/28, 306/29 
00306/010  *WIREWRAP                 SQGRD           SA  G  SQGR    S0767 'SAVETAPE' FSNAME=SQGRD.S                                 
            D4T1    789  WIREWRAP.SQGRD.SA.010              1 LINE     80    7 PAGE UM   GOEN                DEC. 13, 1973  12:57.39
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00306/011  *WIREWRAP                 SQGRD           OE  G          *WWSQGRD                                                        
            D4T1    790  WIREWRAP.SQGRD.OE.011              1 SEQ     606    1 PAGE UM   GOEN                JULY 27, 1977  02:29:46
                         *WWSQGRD             
0          Referenced by comments of: 306/9 
00306/012  *WIREWRAP                 STGRD1          SA  G  STG1    S0767 'SAVETAPE' FSNAME=STGRD1.S                                
            D4T1    791  WIREWRAP.STGRD1.SA.012             1 LINE     80    8 PAGE UM   GOEN                DEC. 13, 1973  12:57.57
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/013  *WIREWRAP                 STGRD1          OE  G          *WWSTGRD1                                                       
            D4T1    792  WIREWRAP.STGRD1.OE.013             1 SEQ     726    1 PAGE UM   GOEN                JULY 27, 1977  02:29:50
                         *WWSTGRD1            
0          Referenced by comments of: 306/9 
00306/014  *WIREWRAP                 STGRD2          SA  G  STG2    S0767 'SAVETAPE' FSNAME=STGRD2.S                                
            D4T1    793  WIREWRAP.STGRD2.SA.014             1 LINE     80    8 PAGE UM   GOEN                DEC. 13, 1973  12:58.13
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/015  *WIREWRAP                 STGRD2          OE  G          *WWSTGRD2                                                       
            D4T1    794  WIREWRAP.STGRD2.OE.015             1 SEQ    5718    2 PAGE UM   GOEN                JULY 27, 1977  02:29:55
                         *WWSTGRD2            
0          Referenced by comments of: 306/9 
00306/016  *WIREWRAP                 LAB             SF  G  LAB     S0767 'SAVETAPE' FSNAME=LAB.S                                   
            D4T1    795  WIREWRAP.LAB.SF.016                1 LINE     80    5 PAGE UM   GOEN                FEB. 20, 1976  14:55:25
0          SUBROUTINE PACKAGE FOR BAY TYPE 'LAB'.  OBJECT MODULE IN *WWLIB (306/9).
00306/017  *WIREWRAP                 LAB16           SF  G          S0767 'SAVETAPE' FSNAME=LAB16.S                                 
            D4.1T1  100  WIREWRAP.LAB16.SF.017              1 LINE     70    3 PAGE UM   GOEN                MAR. 13, 1978  15:48:56
0          SUBROUTINE PACKAGE FOR BAY TYPE 'LAB16', WHICH IS THE SAME AS 'LAB' EXCEPT
           IT ALLOWS FOR 14- OR 16-PIN CHIPS.  OBJECT MODULE IN *WWLIB (306/9).
00306/018  *WIREWRAP                 MSERIES         SF  G  MSER    S0767 'SAVETAPE' FSNAME=MSERIES.S                               
            D4T1    796  WIREWRAP.MSERIES.SF.017            1 LINE     80    5 PAGE UM   GOEN                DEC. 13, 1973  12:56.06
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MSERIES'. OBJECT MODULE IN *WWLIB (306/9).
00306/019  *WIREWRAP                 RSERIES         SF  G  RSER    S0767 'SAVETAPE' FSNAME=RSERIES.S                               
            D4T1    797  WIREWRAP.RSERIES.SF.018            1 LINE     80    5 PAGE UM   GOEN                DEC. 13, 1973  12:56.35
0          SUBROUTINE PACKAGE FOR BAY TYPE 'RSERIES'.  OBJECT MODULE IN *WWLIB (306/9).
00306/020  *WIREWRAP                 IC              SF  G  IC      S0767 'SAVETAPE' FSNAME=IC.S                                    
            D4T1    798  WIREWRAP.IC.SF.019                 1 LINE     80    5 PAGE UM   GOEN                DEC. 13, 1973  12:55.30
0          SUBROUTINE PACKAGE FOR BAY TYPE 'IC'.  OBJECT MODULE IN *WWLIB (306/9).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00306/021  *WIREWRAP                 MIC             SF  G  MIC     S0767 'SAVETAPE' FSNAME=MIC.S                                   
            D4T1    799  WIREWRAP.MIC.SF.020                1 LINE     80    6 PAGE UM   GOEN                JAN. 16, 1974  13:12.44
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MIC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/022  *WIREWRAP                 PG1             SF  G  PG1     S0767 'SAVETAPE' FSNAME=79.PG1SOU                               
            D4T1    800  WIREWRAP.PG1.SF.021                1 LINE     80    6 PAGE UM   GOEN                DEC. 13, 1973  13:35.38
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/023  *WIREWRAP                 PG3             SF  G  PG3     S0767 'SAVETAPE' FSNAME=79.PG3SOU                               
            D4T1    801  WIREWRAP.PG3.SF.022                1 LINE     80    7 PAGE UM   GOEN                DEC. 13, 1973  13:36.09
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG3'.  OBJECT MODULE IN *WWLIB (306/9).
00306/024  *WIREWRAP                 PG5             SF  G  PG5     S0767 'SAVETAPE' FSNAME=79.PG5SOU                               
            D4T1    802  WIREWRAP.PG5.SF.023                1 LINE     80    6 PAGE UM   GOEN                DEC. 13, 1973  13:36.26
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG5'.  OBJECT MODULE IN *WWLIB (306/9).
00306/025  *WIREWRAP                 PG13            SF  G  PG13    S0767 'SAVETAPE' FSNAME=79.PG13SOU                              
            D4T1    803  WIREWRAP.PG13.SF.024               1 LINE     80    7 PAGE UM   GOEN                DEC. 13, 1973  13:35.53
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG13'.  OBJECT MODULE IN *WWLIB (306/9).
00306/026  *WIREWRAP                 UG1             SA  G  UG1     S0767 'SAVETAPE' FSNAME=AUGATUG1.S                              
            D4T1    804  WIREWRAP.UG1.SA.025                1 LINE     80   20 PAGE UM   GOEN                JAN. 16, 1974  13:13.19
0          SUBROUTINE PACKAGE FOR BAY TYPE 'UG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/027  *WIREWRAP                 CHIP            SF  G          S0767 'SAVETAPE' FSNAME=CHIP.S                                  
            D4T1    805  WIREWRAP.CHIP.SF.026               1 LINE     69    3 PAGE UM   GOEN                FEB. 20, 1976  14:54:28
0          SUBROUTINE PACKAGE FOR BAY TYPE 'CHIP'.  USEFUL FOR "BREADBOARDING" APPLICATIONS;
           I.E. STICKING WIREWRAP SOCKETS INTO VECTOR BOARD.  COMPLETE DOCUMENTATION IS IN
           THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE.  OBJECT MODULE IN *WWLIB (306/9).
00306/028  *WIREWRAP                 DOUGLAS         SF  G          S0767 'SAVETAPE' FSNAME=DOUGLAS.S                               
            D4T1    806  WIREWRAP.DOUGLAS.SF.027            1 LINE     69    4 PAGE UM   GOEN                FEB. 20, 1976  14:58:54
0          SUBROUTINE PACKAGE FOR BAY TYPE 'DOUGLAS' -- THE DEC-BAY-COMPATIBLE '10-DE-77'
           SOCKET BOARD.  DOCUMENTATION IS IN THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE.
           OBJECT MODULE IN *WWLIB (306/9).
00306/029  *WIREWRAP                 8SERIES         SF  G          S0767 'SAVETAPE' FSNAME=8SERIES.S                               
            D4T1    807  WIREWRAP.8SERIES.SF.028            1 LINE     73    3 PAGE UM   GOEN                DEC. 13, 1973  12:57.00
0          SUBROUTINE PACKAGE FOR BAY TYPE '8SERIES' -- FOR DEC'S PDP-8 CLASSIC MINI-COMPUTER.
           OBJECT MODULE IN *WWLIB (306/9).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00306/030  *WIREWRAP                 *WWICMAC        D              *WWICMAC                                                        
            D4.2T1  162  WIREWRAP.*WWICMAC.D.030            1 LINE     65    4 PAGE UM   GOEN                MAR. 26, 1979  02:39:11
                         *WWICMAC             
0          THIS FILE CONTAINS "WIREWRAP MACROS" FOR MOST OF THE IC'S USED FOR LOGIC DESIGN AT THE UM COMPUTING CENTER.
           THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES "PAR=TYPE=IC" FOR THE MOUNTING TECHNIQUE.
00306/031  *WIREWRAP                 *WWLABMAC       D              *WWLABMAC                                                       
            D4.2T1  163  WIREWRAP.*WWLABMAC.D.031           1 LINE     55    3 PAGE UM   GOEN                MAR. 26, 1979  02:39:12
                         *WWLABMAC            
0          THIS FILE CONTAINS A "WIREWRAP MACRO" DICTIONARY FOR IC'S USED IN THE LOGIC LAB "SUITCASE" USED
           IN ECE DEPARTMENT CLASSES AT UM.  THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES
           "PAR=TYPE=LAB" FOR THE MOUNTING TECHNIQUE.
00306/032  *WIREWRAP                 TTLMAC          D   G          S0767 'SAVETAPE' FSNAME=TTLMAC                                  
            D4T1    810  WIREWRAP.TTLMAC.D.031              1 LINE     91    4 PAGE UM   GOEN                JUNE 18, 1976  13:38:55
0          ANOTHER "WIREWRAP MACRO" DICTIONARY.
00306/033  *WIREWRAP                 MEMO 267        WT             S0563 D4T1 VLO FSNAME=WIREWRAP.MEMO_267.WT.032(1)            811
            D4T1    811  WIREWRAP.MEMO_267.WT.032           1 LINE     81   49 PAGE UM   GOEN                FEB. 03, 1977  16:58:19
0          THIS IS COMPUTING CENTER MEMO 267 -- "*WIREWRAP USER'S GUIDE"
0          Referenced by comments of: 306/9 
00307      *OBJCONV                                  SA           # (OBSOLETE)                                                      
            D3T2    220  OBJCONV..SA.1                      1 SEQ      80    1 PAGE UM                       JULY 31, 1973  22:54.21
00308/001A *FMT                      MAIN            SA  O          W030:UBCFMT                                                     
            4.3T1   174  FMT.MAIN.SA.001                    1 LINE     73   91 PAGE UBC            LIFT      APR. 05, 1980  14:24:43
0          FORMAT TEXT PROCESSING LANGUAGE, KNOWN AS *FMT THROUGHOUT MTS-LAND EXCEPT AT UM WHERE
           IT IS CALLED *FORMAT.  THIS IS THE MAIN PROGRAM AND "MAIN LINE" SUBROUTINES.
           ALL ROUTINES USING THE FMT#DS COPY SECTION (308/4) ARE INCLUDED HERE, NAMELY
           FMT, FMTCC, FMTOUT, AND CONCARD.  THIS VERSION HAS MULTIPLE COLUMN SUPPORT
           AND SUPERFMT.  ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC.
            
           **********************************************************************************
           D4.3 CHANGE:
            
           CSECT CONCARD CHANGED TO FIX BUG IN TRANS CONTROL CMD PARSING.
           **********************************************************************************
0          Referenced by comments of: 560/1 
00308/002  *FMT                      SUBROUTINES     SA  O          W030:UBCFMTRTN                                                  
            D4.2T1  165  FMT.SUBROUTINES.SA.002             1 LINE     77   29 PAGE UBC            LIFT      MAR. 26, 1979  02:39:23
0          SUBROUTINES WHICH DO NOT COPY FMT#DS.  THE ROUTINE FMTOPTS SHOULD BE REASSEMBLED
           TO CHANGE THE NAME OF THE FUNCTION LIBRARY (ETC:FMTLIB) IF NECESSARY.
           ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00308/003  *FMT                      MORE SUBRS      SA  O          W030:UBCFMTRTN1                                                 
            D4T1    814  FMT.MORE_SUBRS.SA.003              1 LINE     80   99 PAGE UBC            LIFT      JULY 27, 1977  02:36:32
0          ADDITIONAL SUBROUTINES WHICH ARE ALSO USED BY THE FUNCTIONS (308/7 ET SEQ).
           ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC.
00308/004  *FMT                      FMT#DS          SA  G          W030:UBCFMTDS                                                   
            D4T1    815  FMT.FMT#DS.SA.004                  1 LINE     80   13 PAGE UBC            LIFT      JULY 27, 1977  02:36:38
0          FMT#DS COPY SECTION.
0          Referenced by comments of: 308/1 
00308/005  *FMT                      UBCMACLIB       SM  G          W030:UBCMACLIB                                                  
            D4T1    816  FMT.UBCMACLIB.SM.005               1 LINE     80   15 PAGE UBC            LIFT      JULY 27, 1977  02:36:40
0          Referenced by comments of: 308/1, 308/2, 308/3, 308/8, 308/10 
00308/006A *FMT                      OBJECT          OE  O          *FORMAT                                                         
            4.3T1   175  FMT.OBJECT.OE.006                  1 SEQ   31983   14 PAGE UBC            LIFT      APR. 05, 1980  14:24:54
                         *FORMAT              
0          OBJECT FROM 308/1, 308/2, AND 308/3.
0          Referenced by comments of: 308/8 
00308/007  *FMT                      HYPHEN          S3  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTHYPHEN                          
            D4T1    818  FMT.HYPHEN.S3.007                  1 LINE     70   21 PAGE UBC            LIFT      JULY 27, 1977  02:36:45
0          THIS COMPONENT AND THOSE FOLLOWING ARE THE SOURCE FOR THE FMT DYNAMICALLY
           LOADED FUNCTION LIBRARY (ETC:FMTLIB).
            
           THIS IS THE HYPHEN FUNCTION AND ITS SUBROUTINES.  IT HAS $CONTINUE WITHS
           WHICH ARE SELF-REFERENCING.  AFTER COMPILATION, REFERENCES IN THE OBJECT 
           TO INFREE1 SHOULD BE CHANGED TO INFREE#.  THIS FUNCTION REFERENCES THE 
           DATA FILE ETC:FMTDICT (308/18).
00308/008  *FMT                      GSPFRSP         SA  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTHYPHEN1                         
            D4T1    819  FMT.GSPFRSP.SA.008                 1 LINE     80    4 PAGE UBC            LIFT      JULY 27, 1977  02:36:48
0          SUBROUTINE CALLED BY HYPHEN (308/6).  ASSEMBLE USING UBCMACLIB (308/5) AND *SYSMAC.
00308/009A *FMT                      INDEX           SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTINDEX                           
            4.3T1   176  FMT.INDEX.SF.009                   1 LINE     80   10 PAGE UBC            LIFT      AUG. 01, 1979  20:25:37
0          INDEX FUNCTION AND SEVERAL SUBROUTINES.
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           CHANGED FOR SORT CALLS.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00308/010  *FMT                      ASMFNS          SA  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTASMFNS                          
            D4T1    821  FMT.ASMFNS.SA.010                  1 LINE     80   11 PAGE UBC            LIFT      JULY 27, 1977  02:36:52
0          FUNCTIONS UCTRAN, IFDEF, IFNUL, BLOCK, CAPIT, DOUBLE, GETPAR, FMTCHAR,
           MOST, AND ALL.  ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC.
00308/011  *FMT                      CONTENTS        SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTCONTENTS                        
            D4T1    822  FMT.CONTENTS.SF.011                1 LINE     73    4 PAGE UBC            LIFT      JULY 27, 1977  02:36:54
0          AFTER COMPILATION, CHANGE THE NAME "CONTNS  " TO "CONTENTS" IN THE OBJECT.
00308/012  *FMT                      COUNT           SF  G          S0791 FMTJNK 'FORMAT' FSNAME=FMTCOUNT                           
            D4T1    823  FMT.COUNT.SF.012                   1 LINE     72    3 PAGE UBC            LIFT      JULY 27, 1977  02:36:56
00308/013  *FMT                      DATE            S3  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTDATE                            
            D4T1    824  FMT.DATE.S3.013                    1 LINE     71    4 PAGE UBC            LIFT      JULY 27, 1977  02:36:59
00308/014  *FMT                      FTNFNS          SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTFTNFNS                          
            D4T1    825  FMT.FTNFNS.SF.014                  1 LINE     72    6 PAGE UBC            LIFT      JULY 27, 1977  02:37:01
0          FUNCTIONS STACK, NULL, CENTER, TEST, INPUT, MYSORT, PAD, FOR, SPREAD, EXIST,
           JUST, AND FMTCNTRL.  AFTER COMPILATION, CHANGE THE NAME "FMTCTL  " TO "FMTCNTRL"
           IN THE OBJECT.
00308/015A *FMT                      SORT            SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTSORT                            
            4.3T1   177  FMT.SORT.SF.015                    1 LINE     64    1 PAGE UBC            LIFT      AUG. 01, 1979  20:25:24
0          AFTER COMPILATION, CHANGE THE NAME "FMTSRT " TO FMTSORT" IN THE OBJECT.
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           CHANGED FOR SORT CALLS.
           *****************************************************************************
00308/016  *FMT                      PAGE            SF  O          S0791 FMTJNK 'FORMAT' FSNAME=FMTPAGE                            
            D4T1    827  FMT.PAGE.SF.016                    1 LINE     80    7 PAGE UBC            LIFT      JULY 27, 1977  02:37:05
0          PAGE FUNCTION AND FMTPAG SUBROUTINE.
00308/017A *FMT                      FMTLIB          OL  O          ETC:FMTLIB                                                      
            4.3T1   178  FMT.FMTLIB.OL.017                  1 SEQ    6322   26 PAGE UBC            LIFT      APR. 05, 1980  14:26:58
                         ETC.:FMTLIB          
0          FUNCTION LIBRARY CONSISTING OF OBJECT FROM 308/7 THROUGH 308/16.
00308/018  *FMT                      DICT            D              ETC:FMTDICT                                                     
            D4T1    829  FMT.DICT.D.018                     1 LINE     80    3 PAGE UBC            LIFT      JULY 27, 1977  02:37:09
                         ETC.:FMTDICT         
0          HYPHENATION DICTIONARY DATA FILE USED BY 308/7.
0          Referenced by comments of: 308/7 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00308/019A *FMT                      JONMACLIB       SM  O          UNSP:JONMACLIBFMT                                               
            4.3T1   179  FMT.JONMACLIB.SM.019               1 LINE    110    7 PAGE UBC  NIGHTINGA UNSP      APR. 05, 1980  14:26:59
                         UNSP:JONMACLIBFMT    
0          UBC'S JON:MACLIB -- FMT MACROS USED IN UBC DOCUMENTATION.  DOCUMENTATION FOR 
           JON:MACLIB IS IN UBC DGUIDE (CURRENTLY NOT DISTRIBUTED IN REGULAR
           DISTRIBUTION PROCESS).  THERE MAY BE SOME PROBLEM USING UM'S *FORMAT (BUT NOT 
           NECESSARILY). AT UM, THIS FILE IS PERMITTED ONLY TO P=W?.
0          Referenced by comments of: 705/9, 705/15, 1042/86 
00309      *STASS360                                 SA           # (OBSOLETED BY *ASSIST, COMP 669)                                
            D3T2    225  STASS360.MONITOR.SA.1              1 SEQ      80   11 PAGE UM                       JULY 31, 1973  22:55.58
00311      *VARRLIST                                 S            # (OBSOLETE)                                                      
            D2T1    333                                                             UM                                              
00313       1130 RJE SUPPORT PROGRAM                 S            # (OBSOLETE)                                                      
            D2T1    096                                                             UM                                              
00314/001  *LABELSNIFF                               SA  G          LBT:LBLSNIFF.S                                                  
            D4T1    830  LABELSNIFF..SA.001                 1 LINE     80   53 PAGE UM   TIFFANY             JULY 27, 1977  02:37:11
0          THIS PROGRAM (ALSO KNOWN IN SOME LANDS AS *TAPESNIFF) FORMATS AND
           PRINTS INFORMATION ABOUT TAPES.  FOR D4, THIS PROGRAM HAS BEEN
           CHANGED TO SUPPORT BOTH UNLABELED AS WELL AS LABELED TAPES, 6250
           BPI, AND SPECIAL HANDLING FOR *FS TAPES.  IT NOW PRINTS THE RACK
           NUMBER AND OTHER ITEMS SUCH AS "RING=IN".  BETTER ERROR RECOVERY IS
           INCLUDED FOR 7-TRACK MIXED PARITY TAPES.  UNLABELED TAPES ARE PROCESSED
           UP TO A DOUBLE FILE MARK WHICH IS TREATED AS THE LOGICAL END OF TAPE.
           *FS TAPES ARE DETECTED AND THE OUTPUT LISTING IS SIMILAR TO THAT
           PRODUCED BY THE *FS LIST COMMAND.  A "METRIC" PARAMETER HAS BEEN
           ADDED TO USE METRIC MEASUREMENT INSTEAD OF FEET. THE "ENGLISH"
           PARAMETER IS THE DEFAULT HOWEVER.  ANY INPUT LINE BEGINNING WITH
           A DOLLAR SIGN IS TREATED AS AN MTS COMMAND.
           COPIES *SENSEDSECT (3025).
00314/002  *LABELSNIFF                               OE  G          *LABELSNIFF                                                     
            D4T1    831  LABELSNIFF..OE.002                 1 SEQ    8056    6 PAGE UM   TIFFANY             JULY 27, 1977  02:37:15
                         *LABELSNIFF          
00315      *ANS                                      SA           # (OBSOLETE)                                                      
            D2T1    155                                                             UM                                              
00316       GENLIB                                   SA           # (OBSOLETED BY 389)                                              
            D3T2    236  GENLIB..SA.                        1 SEQ      80    6 PAGE UNE                      JULY 31, 1973  22:59.46
00318/001  *XPL                      SUBMONITOR      SA  G  XMON    S0296 S296 'JOH XPL' POSN=XMON@S                             12 
            D4T1    832  XPL.SUBMONITOR.SA.001              1 SEQ      80   24 PAGE UM   SHERRY              JULY 27, 1977  02:39:23
0          XPL COMPILER AND EXECUTION CONTROL (SEE 1968 FJCC PROC, PP 617-636).  ONE NEVER $RUNS AN
           XPL OBJECT DECK SINCE THE OBJECT CODE IS STORED IN A FORMAT UNIQUE TO XPL.  RATHER, ONE
           RUNS THE XPL SUBMONITOR, WHICH IN TURN LOADS THE XPL PROGRAM AND PROVIDES A RUN-TIME
           INTERFACE TO MTS.  SINCE THE COMPILER ITSELF IS ALSO AN XPL PROGRAM, IT MUST BE RUN IN THE
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          SAME MANNER, I.E. IT MUST BE RUN UNDER CONTROL OF THE SUBMONITOR.  THE 2 FILES *XPL
           AND *XPLGO CONTAIN MTS OBJECT FOR A SET OF DEFAULT FILE NAMES FOR THE COMPILER
           AND COMPILED CODE EXECUTION RESPECTIVELY.  EACH ENDS WITH "$CONTINUE WITH *XMON" SO THAT
           BY $RUNNING *XPL OR *XPLGO, THE SUBMONITOR (*XMON), WITH APPROPRIATE DEFAULTS, IS INVOKED.
            
           MODIFIED UBC SOURCE FOR THE XPL SUBMONITOR (*XMON).
00318/002  *XPL                      SUBMONITOR      OC  G          S0296 S296 'JOH XPL' POSN=XMON@O                             14 
            D4T1    833  XPL.SUBMONITOR.OC.002              1 SEQ      80    2 PAGE UM   SHERRY              JULY 27, 1977  02:39:26
0          THIS FILE PLUS THE OBJECT FOR TRACE (318/4) CONSTITUTE *XMON.
           THE FOLLOWING PATCH SHOULD BE INSERTED INTO THIS OBJECT FILE:
            REP  0008C6  01,0700,0700       TRACE DIES IF LEFT IN
0          Referenced by comments of: 318/4 
00318/003  *XPL                      TRACE           SA  G  TRAC    S0296 S296 'JOH XPL' POSN=TRACE@S                            4  
            D4T1    834  XPL.TRACE.SA.003                   1 SEQ      80   33 PAGE UM   SHERRY              JULY 27, 1977  02:39:35
0          UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON) AND *SPL (336).
00318/004  *XPL                      TRACE           OC  G          S0296 S296 'JOH XPL' POSN=TRACE@O                            6  
            D4T1    835  XPL.TRACE.OC.004                   1 SEQ      80    2 PAGE UM   SHERRY              JULY 27, 1977  02:39:38
0          THE SUBMONITOR OBJECT (318/2) PLUS THIS FILE CONSTITUTE *XMON.
           THE FOLLOWING 2 LOADER CARDS SHOULD ALSO BE ADDED AT THE END OF *XMON:
            LCS            LCSYMBOL
            LDT            XPLSM
0          Referenced by comments of: 318/2 
00318/005  *XPL                      *XMON           OE  G          *XMON                                                           
            D4T1    836  XPL.*XMON.OE.005                   1 SEQ    4384    2 PAGE UM   SHERRY              JULY 27, 1977  02:39:38
                         *XMON                
00318/006  *XPL                      DEFAULTS        SA  G  DFLT    S0296 S296 'JOH XPL' POSN=DFLT@S                             1  
            D4T1    837  XPL.DEFAULTS.SA.006                1 SEQ      80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:44
0          SOURCE FOR THE 2 SETS OF SUBMONITOR DEFAULTS, THE FIRST FOR THE EXECUTION OF THE COMPILER (*XPL)
           AND THE SECOND FOR THE EXECUTION OF COMPILED CODE (*XPLGO).
00318/007  *XPL                      *XPL            OC  G          *XPL                                                            
            D4T1    838  XPL.*XPL.OC.007                    1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:44
                         *XPL                 
0          OBJECT FOR THE FIRST DEFAULTS PROGRAM.  CONTAINS A "$CONTINUE WITH *XMON" LINE.
00318/008  *XPL                      *XPLGO          OC  G          *XPLGO                                                          
            D4T1    839  XPL.*XPLGO.OC.008                  1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:46
                         *XPLGO               
0          OBJECT FOR THE SECOND DEFAULTS PROGRAM.  CONTAINS A "$CONTINUE WITH *XMON" LINE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00318/009  *XPL                      COMPILER        SX  G          *XCOM                                                           
            D4T1    840  XPL.COMPILER.SX.009                1 LINE     80   54 PAGE UM   SHERRY              JULY 27, 1977  02:39:48
                         *XCOM                
0          XPL SOURCE FOR THE XPL COMPILER (*XCOM).  THIS VERSION IS MODIFIED FROM AN EARLY STANFORD
           RELEASE; IT IS NOT THE SHARE RELEASE.  IT WAS USED QUITE HEAVILY AT UM AND IS RELATIVELY BUG-FREE.
           MOST XPL USERS NOW USE *EXPL (495) BECAUSE INDEPENDENTLY COMPILABLE PROCEDURES REDUCE
           THE COST OF COMPILER DEVELOPMENT.
           THE COMPILER SOURCE IS KEPT IN A PUBLIC FILE (*XCOM) SO THAT PARTS OF IT ARE AVAILABLE FOR
           EXTRACTION BY STUDENTS IN COMPILER WRITING COURSES.
00318/010  *XPL                      COMPILER        O   G          *XPLCOMPILER                                                    
            D4T1    841  XPL.COMPILER.O.010                 1 SEQ     240   29 PAGE UM   SHERRY              JULY 27, 1977  02:39:57
                         *XPLCOMPILER         
0          XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER).
00318/011  *XPL                      *XPLIBRARY      SX  G          *XPLIBRARY                                                      
            D4T1    842  XPL.*XPLIBRARY.SX.011              1 SEQ      80    1 PAGE UM   SHERRY              JULY 27, 1977  02:39:59
                         *XPLIBRARY           
0          SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL.
00318/012  *XPL                      *SKELETON       SX  G          *SKELETON                                                       
            D4T1    843  XPL.*SKELETON.SX.012               1 LINE     80   10 PAGE UM   SHERRY              JULY 27, 1977  02:40:01
                         *SKELETON            
0          THIS IS THE MINIMAL FRAMEWORK FOR A TABLE-DRIVEN COMPILER.  USER IS EXPECTED TO REPLACE THE
           SYNTAX TABLES WITH APPROPRIATE TABLES PRODUCED BY *ANALYZER AND COMPLETE THE COMPILER BY
           WRITING THE CODE SYNTHESIZER SECTION.
0          Referenced by comments of: 495/9 
00318/013  *XPL                      ANALYZER        SX  G          S0296 S296 'JOH XPL' POSN=ANAL@S                             15 
            D4T1    844  XPL.*ANALYZER.SX.013               1 SEQ      80   33 PAGE UM   SHERRY              JULY 27, 1977  02:40:20
0          XPL PROGRAM TO ANALYZE A BNF DESCRIPTION OF A LANGUAGE AND PRODUCE TABLES FOR COMPILING IT.
0          Referenced by comments of: 495/8 
00318/014  *XPL                      *ANALYZER       O   G          *ANALYZER                                                       
            D4T1    845  XPL.*ANALYZER.O.014                1 SEQ     240   24 PAGE UM   SHERRY              JULY 27, 1977  02:40:21
                         *ANALYZER            
0          XPL FORMAT OBJECT FILE.
00318/015  *XPL                      XPLBNF          D   G          S0296 S296 'JOH XPL' POSN=XPLBNF                             10 
            D4T1    846  XPL.XPLBNF.D.015                   1 SEQ      80    3 PAGE UM   SHERRY              JULY 27, 1977  02:40:28
0          BNF DESCRIPTION OF XPL SUITABLE FOR INPUT TO *ANALYZER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00318/016  *XPL                      MEMO 230        WF             S0563 D4T1 VLO FSNAME=XPL.MEMO_230.WF.016(1)                 847
            D4T1    847  XPL.MEMO_230.WF.016                1 LINE    127    4 PAGE UM   SHERRY              JAN. 25, 1977  18:03:50
0          THIS IS COMPUTING CENTER MEMO 230 -- "XPL USER'S GUIDE"
00319      *FLIKPLT                                  OC           # (OBSOLETE)                                                      
            D3T2    251  FLIKPLT..OC.                       1 LINE     80   15 PAGE UM                       JULY 31, 1973  23:03.29
00321      *PIB                                      OC           # (OBSOLETE)                                                      
            D3T2    252  PIB..OC.                           1 LINE     80  122 PAGE UM                       JULY 31, 1973  23:03.31
00322/001  *2260RTN                                  SA  G          S0563 D4T1 VLO FSNAME=2260RTN..SA.001(1)                     848
            D4T1    848  2260RTN..SA.001                    1 LINE     80   56 PAGE UM   MTA                 JULY 27, 1977  02:40:36
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 2260 DISPLAY.
           SUPPORT FOR THE @MAXLEN MODIFIER HAS BEEN ADDED, BUT NOT TESTED DUE TO LACK OF
           HARDWARE AT UM.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00322/002  *2260RTN                                  OC  G          *2260RTN                                                        
            D4T1    849  2260RTN..OC.002                    1 LINE     80    6 PAGE UM   MTA                 JULY 27, 1977  02:40:40
                         *2260RTN             
00324/001   EDITOR - OLD                             SA  G        # (OBSOLETE)                                                      
            D3T2    255  EDITOR..SA.1                       1 LINE     80   97 PAGE UM                       FEB. 02, 1973  21:38.36
00324/002   EDITOR - OLD             MESSAGES        M            # (OBSOLETE)                                                      
            D3T2    258  EDITOR.MESSAGES.M.4                1 LINE     70    8 PAGE UM                       JULY 31, 1973  23:08.21
00324/003   EDITOR - OLD             *ED             SA  G        # (OBSOLETE)                                                      
            D3T2    259  EDITOR.*ED.SA.5                    1 LINE     80    3 PAGE UM                       JULY 31, 1973  23:08.24
00326/001A  STAT MONTHLY SUMMARY     MAIN PGM        SP  G          S0027 DISTRB FSNAME=SYSSTAT                                     
            4.3T1   180  STAT_MONTHLY_SUMMARY.MAIN.SP.001   1 LINE     99   17 PAGE UM   ENGLE               FEB. 20, 1980  14:01:47
0          READS STATISTICS (*STATISTICS) TAPES OR FILES AND PRINTS MANY PAGES OF INTERESTING (HOPEFULLY)
           INFORMATION ABOUT A MONTHS RUNNING OF THE SYSTEM.  IT ALSO READS CPU UTILIZATION AND HASP BATCH
           QUEUE STATISTICS FROM SSRTN (413/1) (NORMALLY IN SYS:SSRTNSUMM) AND PRINTS THAT INFORMATION. 
            
           THE FOLLOWING LOGICAL I/O UNITS ARE USED:
            
            0         INPUT OF SSRTN (413/1) SUMMARY DATA.
            SPRINT    OUTPUT. 
            
           THE FOLLOWING PL/I FILE NAMES ARE USED: 
            
            ERROR     LOG OF SKIPPED INPUT RECORDS, LIST OF WEEKDAY MINUTES DURING WHICH THE MOST
                      USERS WERE SIGNED ON, AND LIST OF WEEKEND MINUTES DURING WHICH THE MOST USERS
                      WERE SIGNED ON.  THE NUMBER OF MINUTES FOR EACH CATEGORY IS APPROXIMATELY 1%
                      OF THE TOTAL MINUTES FOR THE COMBINED CATEGORIES.
            SAVE      SAVE OR RESTORE INTERMEDIATE INFORMATION (SEE BELOW).
            SCARDS    USES GET LIST FOR 6 OR 7 ITEMS, FOLLOWED BY GET DATA FOR 2 VARIABLES:
            
                         1)   'MM'    MONTH TO ANALYZE, OR
1                                                                                               SUN SEP 08/96   19:03:19   Page  123
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                             '00'    LOOK AT ALL INPUT (REQUIRES 'FULL', Â'CPU', AND Â'MIXED')
            
                         2)   'YYYY'  YEAR
            
                         3)   'PART'  USE DATA FROM WHATEVER PART OF MONTH IS PRESENT, OR
                              'FULL'  EXPECT DATA FROM ENTIRE MONTH, OR
                              '9TO5'  FILTERS ALL DATA EXCEPT 9AM TO 5PM, OR
                              '5TOM'  FILTERS ALL DATA EXCEPT 5PM TO MIDNIGHT, OR
                              'COUR'  FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS BEGINNING
                                      WITH "1", "2", OR "3", OR
                              'UGRD'  FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS 1AWA, 1BF4,
                                      1AAA, 1AGA, 1APA, 1AVA, 1CXA, OR 1HGA.
            
                         4)   'REST'  RESTORE DATA (CHECKPOINT) FROM SAVE, OR
                              'SAVE'  SAVE (CHECKPOINT) DATA ON SAVE, OR
                              'USER'  SAVE NUM OF USERS VERSUS TIME DATA ONLY ON SAVE, OR
                              'CPU.'  SKIP EVERYTHING EXCEPT JOBS PROGRAM STATISTICS, OR
                              'NONE'  NONE OF ABOVE
            
                         5)   'CPU'   PROCESS JOBS STATISTICS DATA (SEE COMP 413/10), OR
                              'YES'   SAME AS 'CPU', OR
                              'NOT'   OMIT PROCESSING OF JOBS STATISTICS
            
                         6)   'WHOLE' NO RATE CHANGE DURING PERIOD OF COMPUTATION, OR
                              'MIXED' RATE CHANGE OCCURRED
            
                         7)   'DD'    FIRST DAY (OF MONTH) FOR NEW RATES.  GIVE ONLY IF 'MIXED'
                                      GIVEN.
            
                         8)   TESTCOUNT=N    NUMBER OF INPUT RECORDS TO ECHO ON SPRINT (DEBUG)
            
                         9)   DEBUG='1'B     PRODUCES GENERAL DEBUG OUTPUT.  PRINTS FOR ONLY N
                                             RECORDS IF TESTCOUNT GIVEN.
            
                      THIS IS FOLLOWED BY ONE OR MORE LINES EACH CONTAINING A MOUNT REQUEST OR
                      FILE NAME FOR STATISTICS RECORDS.  THE LIST OF INPUT FILES IS TERMINATED
                      BY "DONE" OR AN END-OF-FILE.
            
                      AT UM, THE NORMAL INPUT USED IS:
            
                           'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE' ;
                           STATM 9TP *T* VOL=STATM 'MMM 19YY MONTHLY STATISTICS'
                           STAT 9TP *T* VOL=STAT 'MMM+1 1, 19YY, 1 A.M. DAILY STATISTICS'
                           BILL 9TP *T* VOL=STAT 'MMM 19YY DAILY MTS STATISTICS FILE CHARGES'
                           DONE
00326/002C  STAT MONTHLY SUMMARY     MAIN PGM        UC  G          S0027 DISTRB FSNAME=SYSSTATUPD                                  
            4.3T1   181  STAT_MONTHLY_SUMMARY.MAIN.UC.002   1 LINE     71    1 PAGE UM   ENGLE               FEB. 20, 1980  14:02:06
00326/003   STAT MONTHLY SUMMARY     PPAGES SUBR     SP  G          S0027 DISTRB FSNAME=SYSSTAT2000                                 
            D4.2T1  168  STAT_MONTHLY_SUMMARY.PPAG.SP.002   1 LINE     99    7 PAGE UM   ENGLE               JAN. 10, 1979  16:59:12
0          SUBROUTINE CALLED BY MAIN PROGRAM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00326/004   STAT MONTHLY SUMMARY     CPUSE SUBR      SG  G          S0027 DISTRB FSNAME=CPUSE                                       
            D4.1T1  104  STAT_MONTHLY_SUMMARY.CPUS.SG.003   1 LINE    179    4 PAGE UM   ENGLE               DEC. 13, 1977  16:12:06
0          SUBROUTINE WHICH READS SSRTN SUMMARY DATA (SEE COMP 413/1) AND PRINTS THE RESULTS.  CALLED ONLY IF 'CPU'
           IS SPECIFIED FOR THE FIFTH PARAMETER OR 'CPU.' IS SPECIFIED FOR THE FOURTH PARAMETER.
0          Referenced by comments of: 413/1 
00326/005   STAT MONTHLY SUMMARY     SETRATE         SP  G  SRAT    S0027 DISTRB FSNAME=SYSSTAT4000                                 
            D4.2T1  169  STAT_MONTHLY_SUMMARY.SETR.SP.004   1 LINE     80    6 PAGE UM   ENGLE               JAN. 10, 1979  17:03:02
0          SUBROUTINES WHICH FILL IN A RATE STRUCTURE BY CALLING GETRATES AND DECOMPOSE A RATE
           NUMBER INTO SUBSCRIPTS.  ASSUMPTION OF HOW RATE NUMBER IS COMPUTED IS BUILT-IN,
           SEE LINE 68 FF.  326/1 CALLS SETRATE TO DYNAMICALLY CONSTRUCT THE CURRENT AND OLD RATES.
           EXTERNAL REFERENCE TO GETRATE ON ESD CARD IN OBJECT DECK MUST BE CHANGED TO GETRATES.
           RUN WITH PROT=OFF.
00326/006A  STAT MONTHLY SUMMARY     OBJECT          OE  G          S0027 DISTRB FSNAME=SYST                                        
            4.3T1   182  STAT_MONTHLY_SUMMARY.OBJE.OE.006   1 LINE  32767   81 PAGE UM   ENGLE               FEB. 20, 1980  14:02:11
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
00326/007A  STAT MONTHLY SUMMARY     BATCHID         D              S0027 DISTRB FSNAME=BATCHID                                     
            4.3T1   183  STAT_MONTHLY_SUMMARY.BATC.D.007    1 LINE      4    1 PAGE UM   ENGLE               FEB. 20, 1980  14:02:26
0          100-LINE DATA FILE REFERENCED TO DEFINE THE MAPPING BETWEEN THE FIRST TWO DIGITS
           OF THE S-8 NUMBER AND THE REMOTE BATCH STATION ID'S.
00328       ALLLINES                                 SA           # (OBSOLETE)                                                      
            D2T1    264                                                             UM                                              
00330/001A  ABKGET                                   SP  O          W041:ABKGET.S4                                                  
            4.3T1   184  ABKGET..SP.001                     1 LINE     80    5 PAGE UM   DWB                 APR. 05, 1980  14:27:12
0          PROGRAM TO SORT AND TABULATE TERMINAL ANSWERBACK STATISTICS FROM *STATISTICS DATA.
           WILL READ INPUT FROM EITHER AN INDIVIDUAL OR MONTHLY STATISTICS TAPE.
           FIRST LINE OF INPUT MUST BE MONTH AND YEAR, SECOND AND SUCCEEDING LINES
           MUST BE FILE OR TAPE NAMES, OR MOUNT REQUESTS, TERMINATED BY AN END-OF-FILE
           OR "DONE" -- FOR EXAMPLE
            
                       '01' '1977'                (LINE MUST HAVE TRAILING BLANK)
                       STATM 9TP *T* VOL=STATM 'JAN 1977'
                       STAT 9TP *T* VOL=STAT '1 FEB 1977 01:00'
                       DONE
00330/002A  ABKGET                                   OC  O          W041:ABKGET.O4                                                  
            4.3T1   185  ABKGET..OC.002                     1 LINE     80    9 PAGE UM   DWB                 APR. 05, 1980  14:27:14
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00334/001  *SNOBOL4B                 MAIN            SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.S4.SA.1(1)                      267
            D4T1    858  SNOBOL4B.MAIN.SA.001               1 SEQ      80  107 PAGE UM   SWARTZ              JULY 31, 1973  23:13.39
0          BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.0).
           THIS FILE IS ASSUMED TO BE FILE 1 ON THE INPUT TAPE FOR THE UPDATE.
           COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13).
0          Referenced by comments of: 334/8 
00334/002  *SNOBOL4B                 SUBR            SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.SUBR.SA.2(1)                    268
            D4T1    859  SNOBOL4B.SUBR.SA.002               1 SEQ      80   49 PAGE UM   SWARTZ              JULY 31, 1973  23:14.01
0          BELL LABS SOURCE FOR SUBROUTINES.  THIS FILE IS ASSUMED TO BE FILE 6 ON THE
           INPUT TAPE FOR THE UPDATE.
00334/003  *SNOBOL4B                 CLEANIO         SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.CLEANIO.SA.5(1)                 271
            D4T1    860  SNOBOL4B.CLEANIO.SA.003            1 SEQ      80    8 PAGE UM   SWARTZ              JULY 31, 1973  23:14.24
0          BELL LABS SOURCE FOR CLEANIO.  THIS FILE IS ASSUMED TO BE FILE 5 ON THE INPUT
           TAPE FOR THE UPDATE.
00334/004  *SNOBOL4B                 BASIC MACROS    SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.BASIC_MACROS.SA.3(1)            269
            D4T1    861  SNOBOL4B.BASIC_MACROS.SA.004       1 SEQ      80   41 PAGE UM   SWARTZ              JULY 31, 1973  23:14.15
0          BELL LABS SOURCE FOR BASIC MACROS.  THIS FILE IS ASSUMED TO BE FILE 4 ON THE
           INPUT TAPE FOR THE UPDATE.
00334/005  *SNOBOL4B                 NEW MACROS      SA  G          S0721 'D3T2' FSNAME=SNOBOL4B.NEW_MACROS.SA.4(1)              270
            D4T1    862  SNOBOL4B.NEW_MACROS.SA.005         1 SEQ      80    5 PAGE UM   SWARTZ              JULY 31, 1973  23:14.21
0          BELL LABS SOURCE FOR NEW MACROS.  THIS FILE IS ASSUMED TO BE FILE 3 ON THE
           INPUT TAPE FOR THE UPDATE.
00334/006  *SNOBOL4B                 GENERATE        C              S0540 'SNOBOL4B FS' FSNAME=S4B.GEN                              
            D4T1    863  SNOBOL4B.GENERATE.C.006            1 LINE    128    1 PAGE UM   SWARTZ              MAY  08, 1975  14:44:26
0          MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4B.
00334/007  *SNOBOL4B                 LINKEDIT        C              S0540 'SNOBOL4B FS' FSNAME=S4B.LINK                             
            D4T1    864  SNOBOL4B.LINKEDIT.C.007            1 LINE     56    1 PAGE UM   SWARTZ              MAY  08, 1975  14:44:28
0          MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4B.
00334/008  *SNOBOL4B                 UPDATE          UU  G          S0540 'SNOBOL4B FS' FSNAME=S4B.MTS.U                            
            D4T1    865  SNOBOL4B.UPDATE.UU.008             1 LINE     80   22 PAGE UM   SWARTZ              MAY  08, 1975  14:44:18
0          *UPDATE DECK TO MODIFIY BELL LABS SOURCE (334/1) TO BRING IT UP TO VERSION 3.10
           SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.10) AND TO ADD THE CHANGES NECESSARY TO
           RUN IT IN MTS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00334/009  *SNOBOL4B                 OBJECT          OE  G          *SNOBOL4B                                                       
            D4T1    866  SNOBOL4B.OBJECT.OE.009             1 SEQ   32767   41 PAGE UM   SWARTZ              JULY 27, 1977  02:45:10
                         *SNOBOL4B            
0          OBJECT FROM ASSEMBLY OF MAIN, SUBR, AND CLEANIO PLUS FTN.O WHICH HAS BEEN COMBINED
           AND PURGED BY *LINKEDIT.
00334/010  *SNOBOL4B                 FTN.O           OE  G          S0540 'SNOBOL4B FS' FSNAME=S4B.FTN.O                            
            D4T1    867  SNOBOL4B.FTN.O.OE.010              1 LINE    255    5 PAGE UM   SWARTZ              MAY  08, 1975  14:44:42
0          FORTRAN I/O ROUTINES FOR USED BY SNOBOL4B.
00334/011  *SNOBOL4B                 MACLEAN                      # (SEE COMP 182)                                                  
                                                                                    UM   SWARTZ                                     
00334/012  *SNOBOL4B                 TEST PGMS       SS  G          S0540 'SNOBOL4B FS' FSNAME=S4B.TEST                             
            D4T1    868  SNOBOL4B.TEST_PGMS.SS.012          1 LINE     74    5 PAGE UM   SWARTZ              MAY  08, 1975  14:44:44
0          PROGRAMS FOR TESTING SNOBOL4B.
00335/001  *DITTO                                    SA  G          S0791 FMTJNK 'FORMAT' FSNAME=DITTO                              
            D4T1    869  DITTO..SA.001                      1 LINE     80   10 PAGE UM   LIFT                JULY 27, 1977  02:45:21
0          PROGRAM TO PRODUCE DITTO (OR OTHER DUPLICATING PROCESS) MASTERS ON A 2741 OR
           1050 FROM PRINTED OUTPUT (SUCH AS FROM *FORMAT) WHICH MAY INCLUDE OVERPRINTING.
00335/002  *DITTO                                    OE  G          *DITTO                                                          
            D4T1    870  DITTO..OE.002                      1 SEQ    2070    2 PAGE UM   LIFT                JULY 27, 1977  02:45:21
                         *DITTO               
00336/001  *SPL                      SUBMONITOR      SA           # (NOT DISTRIBUTED)                                               
            D3T2    277  SPL.SUBMONITOR.SA.1                1 SEQ      80   21 PAGE UM                       JULY 31, 1973  23:16.06
0          Referenced by comments of: 318/3 
00336/002  *SPL                      COMPILER        SX           # (NOT DISTRIBUTED)                                               
            D3T2    279  SPL.COMPILER.SX.4                  1 SEQ      80  160 PAGE UM                       JULY 31, 1973  23:16.33
00337/001A  PRINTTRACE                               SA  G          MTA:PRINTTRACE(1,999)                                           
            4.3T1   186  PRINTTRACE..SA.001                 1 LINE     71    4 PAGE UM   MTA                 APR. 05, 1980  14:27:17
                         MTA.:PRINTTRACE      
0          SUBROUTINE TO PRINT TRACE TABLE ENTRIES FROM DUMP TAPE OR STAT JOB TAPE. TO GET TRACE TABLE ON STAT JOB
           TAPE TYPE "TRCTP" ON OPERATORS CONSOLE.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 400/1, 400/20, 1028/3 
00337/002A  PRINTTRACE                               OC  G          MTA:PRINTTRACE(1000,1999)                                       
            4.3T1   187  PRINTTRACE..OC.002                 1 LINE     80    4 PAGE UM   MTA                 APR. 05, 1980  14:27:19
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00338/001   RIPPLE                   PN/QN           SA  O          MTA:RIPPLE(1,999)                                               
            D4T1    873  RIPPLE.PN/QN.SA.001                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:27
                         MTA.:RIPPLE          
0          PROGRAM TO RIPPLE PRINT ON A PN OR QN PRINTER.  USEFUL FOR CLEANING A TRAIN OR CHECKING OUT A PRINTER.
           OLTEP (458) DOES A BETTER JOB.
00338/002   RIPPLE                   PN/QN           OC  O          MTA:RIPPLE(1000)                                                
            D4T1    874  RIPPLE.PN/QN.OC.002                1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:29
00338/003   RIPPLE                   *RIP            C              *RIP                                                            
            D4T1    875  RIPPLE.*RIP.C.003                  1 LINE     36    1 PAGE UM   MTA                 JULY 27, 1977  02:45:32
                         *RIP                 
0          COMMAND FILE TO RUN MTA:RIPPLE(1000).  INVOKED BY ENTERING "MTS *RIP , PTRX" ON THE OPERATOR'S CONSOLE,
           WHERE PTRX IS THE PRINTER TO BE RIPPLED.
0          Referenced by comments of: 338/6 
00338/004   RIPPLE                   TN              SA  O          MTA:TNRIP(1,999)                                                
            D4T1    876  RIPPLE.TN.SA.004                   1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:34
                         MTA.:TNRIP           
0          SAME AS 338/1 EXCEPT FOR TN PRINTERS.
00338/005   RIPPLE                   TN              OC  O          MTA:TNRIP(1000)                                                 
            D4T1    877  RIPPLE.TN.OC.005                   1 LINE     80    1 PAGE UM   MTA                 JULY 27, 1977  02:45:36
00338/006   RIPPLE                   *TNR            C              *TNR                                                            
            D4T1    878  RIPPLE.*TNR.C.006                  1 LINE     18    1 PAGE UM   MTA                 JULY 27, 1977  02:45:38
                         *TNR                 
0          SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000).
00339       WRITE80                                  S            # (OBSOLETE)                                                      
            D2T1    165                                                             UM                                              
00340/001A  READRESTP                                SA  O          MTA:READRESTP(1,999)                                            
            4.3T1   188  READRESTP..SA.001                  1 LINE     80    9 PAGE UM   MTA                 APR. 05, 1980  14:27:21
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.
00340/002A  READRESTP                SUBROUTINE      SA  O        # (PART OF 340/1)                                                 
                                                                                    UM   MTA                                        
0          SUBROUTINE CALLED BY 340/1.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00340/003A  READRESTP                                OC  O          MTA:READRESTP(1000)                                             
            4.3T1   189  READRESTP..OC.003                  1 LINE     80    5 PAGE UM   MTA                 APR. 05, 1980  14:27:24
00341/001   RDRSTP                   UNLINK          SA           # (OBSOLETED BY *UNLINKER, COMP 562)                              
            D2T1    168                                                             UM                                              
00341/002   RDRSTP                   BLKRTN          SA           # (OBSOLETED BY *UNLINKER)                                        
            D2T1    169                                                             UM                                              
00342       LIBPRINT                                 S            # (OBSOLETE)                                                      
            D2T1    171                                                             UM                                              
00343       MTS.CONTAB                               SA           # (OBSOLETED BY 344)                                              
            D3.2T1  180  MTS.CONTAB..SA.                    1 LINE     80    4 PAGE UM                       MAR. 21, 1975  01:24:57
00344/001   MTS.MACROS               MASTER SOURCE   SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=MTS.MACROS                  
            D4.1T1  106  MTS.MACROS..SM.                    1 LINE     80   75 PAGE UM   MTS       HELFFRICH MAY  13, 1978  17:12:45
0          D4.1 MASTER SOURCE FOR THE MTS MACRO LIBRARY WHICH IS USED TO ASSEMBLE MTS (042)
           AND THE "MTS SUBROUTINES" (AS LISTED UNDER THE COMMENTS FOR 042/2) IN ADDITION
           TO MANY OTHER PROGRAMS.
00344/002A  MTS.MACROS               UPDATE          UC  G          MTS:MACROSUPD                                                   
            4.3T1   190  MTS.MACROS.UPDATE.UC.002           1 LINE     80   28 PAGE UM   MTS       HELFFRICH APR. 05, 1980  14:27:26
                         MTS.:MACROSUPD       
0          MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE.  FILE
           CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE
           AS BASE.  THIS LINE SHOULD BE REMOVED WHEN USING THE D4.1 SOURCE AS BASE.
           THE UPDATED SOURCE, WHEN RUN THROUGH *MACUTIL, WILL PRODUCE THE
           CURRENT MACRO LIBRARY (344/3).
00344/003A  MTS.MACROS               MACRO LIBRARY   SM  G          COPY:MTS.MACROS                                                 
            4.3T1   191  MTS.MACROS.MACRO_LIBRARY.SM.003    1 LINE     72   51 PAGE UM   MTS       HELFFRICH APR. 05, 1980  14:27:33
                         COPY:MTS.MACROS      
0          THIS IS "COPY:MTS.MACROS" WHICH IS PRODUCED BY *MACUTIL, USING AS INPUT THE
           OUTPUT FROM THE *CDUPDATE RUN OF 344/2 AGAINST 344/1.
0          Referenced by comments of: 1/5, 1/9, 42/1, 71/1, 101/1, 104/14, 116/1, 135/1, 198/1, 322/1, 344/2, 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/4, 413/5, 447/1, 464/1, 482/51,
                 500/50, 513/1, 531/1, 531/6, 531/13, 535/1, 535/8, 539/1, 553/1, 553/2, 553/5, 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, 629/1, 631/1, 635/1, 636/1, 637/1, 638/1,
                 639/1, 648/1, 648/7, 648/9, 648/14, 648/17, 651/10, 707/1, 725/1, 732/1, 753/1, 753/3, 761/1, 761/3, 1067/5,
                 3024/1, 4000/1 
00345       MTS.EQU                                  SA           # (OBSOLETED BY 344)                                              
            D3.2T1  182  MTS.EQU..SA.                       1 LINE     80    4 PAGE UM                       MAR. 21, 1975  01:25:01
00346       MTS.DSECT                                SA           # (OBSOLETED BY 344)                                              
            D3.2T1  183  MTS.DSECT..SA.                     1 LINE     80   20 PAGE UM                       MAR. 21, 1975  01:25:03
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00347       MTS.EQU2                                 SA           # (OBSOLETED BY 344)                                              
            D3.2T1  184  MTS.EQU2..SA.                      1 LINE     81    4 PAGE UM                       MAR. 21, 1975  01:25:08
00348       MTS.RHTABLE                              SA           # (OBSOLETED BY 344)                                              
            D3.2T1  185  MTS.RHTABLE..SA.                   1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:25:10
00350       BLOCKLETTER                              SA           # (OBSOLETE)                                                      
            D2T1    252                                                             UM                                              
00353/001   BABYSIT                  *BBS            C              *BBS                                                            
            D4T1    881  BABYSIT.*BBS.C.001                 1 LINE     67    1 PAGE UM   WSG                 JULY 27, 1977  02:49:58
                         *BBS                 
0          COMMAND FILE INVOKED BY ENTERING "MTS *BBS" FROM OPERATOR'S CONSOLE WHICH SIGNS ON
           UNDER USER ID "SYS." AND RUNS WSG:BBSIT(1000) WITH I/O ON THE OPERATOR'S CONSOLE.
00353/002   BABYSIT                                  SA  O  BBST    WSG:BBSIT(1,999)                                                
            D4T1    882  BABYSIT..SA.002                    1 LINE     80    4 PAGE UM   WSG                 JULY 27, 1977  02:50:00
                         WSG.:BBSIT           
0          PROGRAM TO WATCH FOR SPECIFIED USERS TO SIGNON OR SIGNOFF. USEFUL FOR CATCHING A PIRATE.
           RUN WITH PROT=OFF.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
00353/003   BABYSIT                                  OC  O          WSG:BBSIT(1000)                                                 
            D4T1    883  BABYSIT..OC.003                    1 LINE     80    1 PAGE UM   WSG                 JULY 27, 1977  02:50:02
00354/001   LLXU                     D4 MASTER       SA  G  LLXU    S0917 MTSSD4 'MASTER D4.0' POSN=LLXU                            
            D4T1    884  LLXU.D4_MASTER.SA.001              1 SEQ      80   51 PAGE UM   MTS       SHERRY    JULY 27, 1977  02:50:07
0          LOAD/LINK/XCTL/UNLOAD SUBROUTINES, THE INTERFACE BETWEEN MTS AND UMLOAD.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 1002/22 
00354/002A  LLXU                     UPDATE          UC  G          MTS:LLXUUPD                                                     
            4.3T1   192  LLXU.UPDATE.UC.002                 1 LINE     82   10 PAGE UM   MTS       SHERRY    APR. 05, 1980  14:27:39
                         MTS.:LLXUUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=LLXU.
00354/003A  LLXU                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       SHERRY                           
00354/004A  LLXU                                     L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=LLXU.LIST             9   
            4.3T1   193  LLXU..L.004                        1 SEQ     133  145 PAGE UM   MTS       SHERRY    APR. 05, 1980  14:27:45
00354/005A  LLXU                     LLXUTEST        SA  G          W009:LLXUTEST.S                                                 
            4.3T1   194  LLXU.LLXUTEST.SA.005               1 LINE    158   47 PAGE UM   SHERRY              APR. 05, 1980  14:27:47
0          PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD.  ASSEMBLE USING *SYSMAC,
           COPY:MTS.MACROS (344/3), AND THE *OBJUTIL MISCELLANEOUS MACROS (721/14).  USES
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          THE MSG ROUTINES (1023/1).  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).
           WRITEUP (354/11). 
           ***********************************************************************
           D4.3 VERSION:
            
           USES THE NEW MESSAGE ROUTINES (1023/1).
           ***********************************************************************
0          Referenced by comments of: 354/7, 354/9, 354/11 
00354/006A  LLXU                     LLXUTEST        OC  G          W009:LLXUTEST.O                                                 
            4.3T1   195  LLXU.LLXUTEST.OC.006               1 LINE  10032   17 PAGE UM   SHERRY              APR. 05, 1980  14:28:06
00354/007   LLXU                     FAKEGATE        SA  G          W009:FAKEGATE.S                                                 
            D4T1    890  LLXU.FAKEGATE.SA.009               1 LINE     67    1 PAGE UM   SHERRY              JULY 27, 1977  02:55:04
0          DUMMY VERSIONS OF ROUTINES IN GATEKEEP WHICH LLXU CALLS -- REQUIRED FOR
           LLXUTEST (354/5).
00354/008   LLXU                     FAKEGATE        OC  G          W009:FAKEGATE.O                                                 
            D4T1    891  LLXU.FAKEGATE.OC.010               1 LINE    176    1 PAGE UM   SHERRY              JULY 27, 1977  02:55:06
00354/009   LLXU                     TOXCTL          SA  G  TXTL    W009:LLXUTEST.XTL(1000)                                         
            D4T1    892  LLXU.TOXCTL.SA.011                 1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  02:55:08
0          INTERFACE TO XCTL WHICH PERMITS XCTL TO BE TESTED BY LLXUTEST (354/5) WITHOUT
           UNLOADING THE TEST PROGRAM.
0          Referenced by comments of: 354/5 
00354/010   LLXU                     TOXCTL          OC  G          W009:LLXUTEST.XTL(1,999)                                        
            D4T1    893  LLXU.TOXCTL.OC.012                 1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  02:55:10
00354/011   LLXU                     TEST WRITEUP    WF             W009:LLXUTEST.W                                                 
            D4T1    894  LLXU.TEST_WRITEUP.WF.013           1 LINE    119   14 PAGE UM   SHERRY              JULY 27, 1977  02:55:12
0          WRITEUP DESCRIBING LLXUTEST (354/5).
0          Referenced by comments of: 354/5 
00355/001A  STATSCN                                  SA  G  STSC    WSG:STATSCN(1,999)                                              
            4.3T1   196  STATSCN..SA.001                    1 LINE     80    7 PAGE UM   WSG                 APR. 05, 1980  14:28:10
                         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
1                                                                                               SUN SEP 08/96   19:03:19   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                        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)                                               
            D4T1    896  STATSCN..OC.002                    1 LINE     80    2 PAGE UM   WSG                 JULY 27, 1977  02:55:21
00357/001   RCALL/ADROF SUBRS                        SA  G  RCAL    S0027 DISTRB FSNAME=RCALL                                       
            D4.1T1  110  RCALL/ADROF_SUBRS..SA.001          1 SEQ      80    2 PAGE UM   ENGLE               MAY  05, 1978  13:26:44
0          RCALL ALLOWS FORTRAN PROGRAMS TO CALL SUBROUTINES WITH R TYPE CALLING SEQUENCES, E.G. GETFD.
           ADROF ALLOWS FORTRAN PROGRAMS TO GET THE ADDRESS OF A VARIABLE, E.G. ADROF('ABC').
           UNCHANGED FROM DIST 2.0.
00357/002   RCALL/ADROF SUBRS                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00358/001A *TAPECOPY                                 SA  G  TPCP    WSG:TAPECOPY(1,999)                                             
            4.3T1   197  TAPECOPY..SA.001                   1 LINE     80   17 PAGE UM   WSG                 APR. 05, 1980  14:28:12
                         WSG.:TAPECOPY        
0          MULTIPLE FILE TAPE COPY PROGRAM.  COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK.
00358/002A *TAPECOPY                                 OC  G          *TAPECOPY                                                       
            4.3T1   198  TAPECOPY..OC.002                   1 LINE   4743    3 PAGE UM   WSG                 APR. 05, 1980  14:28:15
                         *TAPECOPY            
00360/001   TIME SUBR                                SA  G  TIME    W013:TIME                                                       
            D4T1    900  TIME_SUBR..SA.001                  1 LINE     80   17 PAGE UM   ENGLE               AUG. 14, 1977  19:27:52
0          SUBROUTINE TO DO THINGS WITH THE TIME (DATE/TIME, CPU, AND ELAPSED).
           COPIES GRDEF (104/70) AND *CNFGINFODSECT (654).
0          Referenced by comments of: 67/21, 534/8 
00360/002   TIME SUBR                                OC  G          SEG2:TIME                                                       
            D4T1    901  TIME_SUBR..OC.002                  1 LINE     80    2 PAGE UM   ENGLE               AUG. 14, 1977  19:27:55
                         SEG2:TIME            
0          LOADED INTO SHARED VM BY PISTLE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00387/001A  HASP                     MAIN            SA  G  HSP     S0996 HASP 'MODULAR HASP' FSNAME=HASP.MAIN                      
            4.3T1   199  HASP.MAIN.SA.001                   1 LINE     80  214 PAGE UM   HANSEN              MAR. 13, 1980  22:06:01
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: 243/1, 570/4 
00387/002A  HASP                     EXEC            SA  G  EXEC    S0996 HASP 'MODULAR HASP' FSNAME=HASP.EXEC                      
            4.3T1   200  HASP.EXEC.SA.002                   1 LINE     80   56 PAGE UM   HANSEN              APR. 15, 1980  18:13:40
0          COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9),  AND COPY:LLMPSEQU (087). 
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6).
00387/003A  HASP                     RDR             SA  G  RDR     S0996 HASP 'MODULAR HASP' FSNAME=HASP.RDR                       
            4.3T1   201  HASP.RDR.SA.003                    1 LINE     80   76 PAGE UM   HANSEN              MAR. 13, 1980  22:06:25
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                       
            4.3T1   202  HASP.PPR.SA.004                    1 LINE     80   26 PAGE UM   HANSEN              MAR. 13, 1980  22:06:40
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                      
            4.3T1   203  HASP.DATA.SA.005                   1 LINE     80   10 PAGE UM   HANSEN              MAR. 13, 1980  22:06:48
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                    
            4.3T1   204  HASP.MACROS.SM.006                 1 LINE     80  134 PAGE UM   HANSEN              MAR. 13, 1980  22:05:49
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/31, 387/34, 387/36 
00387/007A  HASP                     OPER            SA  G  OPER    S0996 HASP 'MODULAR HASP' FSNAME=HASP.OPER                      
            4.3T1   205  HASP.OPER.SA.007                   1 LINE     80   98 PAGE UM   HANSEN              MAR. 13, 1980  22:06:16
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                     
            4.3T1   206  HASP.MXMTR.SA.008                  1 LINE     80   17 PAGE UM   HANSEN              MAR. 13, 1980  22:06:45
0          MERIT BATCH TRANSMITTER PROCESSOR.  ASSEMBLE USING COPY:MTS.MACROS (344/3)
           AND HASP.MACROS (387/6). COPIES COPY:GLOBALSETS (1026/2).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00387/009A  HASP                     SEG2:HASP       OC  G          S0996 HASP 'MODULAR HASP' FSNAME=HASP.D.SEG2                    
            4.3T1   207  HASP.SEG2:HASP.OC.009              1 LINE     80   40 PAGE UM   HANSEN              APR. 15, 1980  18:14:52
                         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/4) OBJECT MUST BE ADDED TO THIS FILE, A "COM MASCEBC
           EBCMASC" CARD MUST BE PLACED AT THE BEGINNING OF THIS FILE, AND THE 
           SEG2:S2FILES (559/4) ENTRIES FOR HASP MUST BE CHANGED TO USE THE IPLCS 
           OPTION (INSTEAD OF THE IPL OPTION).
00387/010A  HASP                     LISTING         L              S1019 HASPLS POSN=HASP.LIST                                     
            4.3T1   208  HASP.LISTING.L.010                 1 SEQ     132 1224 PAGE UM   HANSEN              APR. 21, 1980  17:23:50
00387/011   HASP                     HRTP1130        SA  G  1130    W092:HRTP1130.U                                                 
            D4T1    916  HASP.HRTP1130.SA.015               1 LINE     80  176 PAGE UM   HANSEN              JULY 27, 1977  03:03:38
0          REMOTE TERMINAL PROGRAM FOR 1130.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/012   HASP                     HRTPLOAD        SA  G  LOAD    W092:HRTPLOAD.U                                                 
            D4T1    917  HASP.HRTPLOAD.SA.016               1 LINE     80   38 PAGE UM   HANSEN              JULY 27, 1977  03:03:49
0          LOADER FOR REMOTE 1130 PROGRAM.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/013   HASP                     HRTPB360        SA  G  B360    W092:HRTP360.ASM                                                
            D4T1    918  HASP.HRTPB360.SA.017               1 LINE     80  104 PAGE UM   HANSEN              JULY 27, 1977  03:03:52
0          REMOTE PROGRAM FOR 360'S (BOTH MODEL 20 AND OTHER).  THIS IS THE OS VERSION WITH BUGS FIXED.
           NOTE:  THIS REMOTE PROGRAM IS FROM HASP II VERSION 3.1, ALTHOUGH IT WORKS OK WITH MTS HASP (WHICH
                  WAS DERIVED PRINCIPALLY FROM HASP II VERSION 2.3). INCLUDES TN PRINTER SUPPORT.
00387/014   HASP                     HRTPSYS3        SA  G  SYS3    S0721 'D3T2' FSNAME=HASP.HRTPSYS3.SA.13(1)                   321
            D4T1    919  HASP.HRTPSYS3.SA.018               1 LINE     80  102 PAGE UM   HANSEN              AUG. 02, 1973  02:31.26
0          REMOTE PROGRAM FOR IBM SYSTEM/3.  HERE AGAIN, THIS VERSION IS FROM HASP II VERSION 3.1.
00387/015   HASP                     RTPBOOT         B   G          S0721 'D3T2' FSNAME=HASP.RTPBOOT.B.14(1)                     322
            D4T1    920  HASP.RTPBOOT.B.019                 1 LINE    160    1 PAGE UM   HANSEN              AUG. 02, 1973  02:31.40
0          BOOTSTRAP LOADER FOR 1130 REMOTE PROGRAM.  THESE ARE THE SIX BINARY CARDS THAT THE HASP
           MANUAL TELLS YOU TO HAND PUNCH.
           THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN AND PLACED AT THE BEGINNING OF THE 1130 REMOTE PROGRAM DECK.
           NO SOURCE AVAILABLE.
00387/016   HASP                     LETRRIP         SA  G  LETI    S0721 'D3T2' FSNAME=HASP.LETRRIP.SA.15(1)                    323
            D4T1    921  HASP.LETRRIP.SA.020                1 LINE     80    2 PAGE UM   HANSEN              AUG. 02, 1973  02:31.42
0          PARTIAL SOURCE FOR AN MTS PROGRAM TO CONVERT 1130 OBJECT PROGRAMS ASSEMBLED BY *ASMG FROM ASMG OBJECT FORMAT
           TO 1130 BINARY OBJECT CARD FORMAT.  READS FROM SCARDS, WRITES ON SPUNCH.
00387/017   HASP                     LETRRIP         OC  G          S0721 'D3T2' FSNAME=HASP.LETRRIP.OC.16(1)                    324
            D4T1    922  HASP.LETRRIP.OC.021                1 LINE     80    6 PAGE UM   HANSEN              AUG. 02, 1973  02:31.44
0          OBJECT IS IN 3 PARTS:  (1) THE OS/360 OBJECT FOR LETRRIP FROM HASP WITH REP CARDS TO PATCH ALL OS SVC'S INTO
1                                                                                               SUN SEP 08/96   19:03:19   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          INVALID OP-CODES (TO PRODUCE PROGRAM INTERRUPTS WHICH CAN BE FIELDED), (2) THE OBJECT FROM 387/16, AND (3) THE
           OBJECT FOR THE ALGOL COMPILER (OR LIBRARY) MTS INTERFACE (COMP 505/2 OR 505/22).
00387/018   HASP                     *HSP            C              *HSP                                                            
            D4T1    923  HASP.*HSP.C.022                    1 LINE      9    1 PAGE UM   WSG                 JULY 27, 1977  03:04:50
                         STRT:*HSP            
0          COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:HSP (387/19).
           INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE.
00387/019A  HASP                     HSP             C              MTS:TST.HSP                                                     
            4.3T1   209  HASP.HSP.C.019                     1 LINE     23    1 PAGE UM   WSG                 APR. 05, 1980  14:35:08
                         STRT:HSP             
0          THIS FILE ISSUES BUNCHES OF HASP COMMANDS ($START ET AL.).  THE PARTICULAR
           COMMANDS WILL HAVE TO BE MODIFIED FOR THE I/O DEVICES IN USE AT EACH
           INSTALLATION.
            
           THE UM LOCAL VERSION (NOT THE DISTRIBUTED VERSION) STARTS *HLG (752).
0          Referenced by comments of: 387/18 
00387/020   HASP                     *DRN            C              *DRN                                                            
            D4T1    925  HASP.*DRN.C.024                    1 LINE      9    1 PAGE UM   WSG                 JULY 27, 1977  03:04:54
                         STRT:*DRN            
0          COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:DRN (387/21).
           INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE.
00387/021   HASP                     STRT:DRN        C              STRT:DRN                                                        
            D4T1    926  HASP.STRT:DRN.C.025                1 LINE     16    1 PAGE UM   WSG                 JULY 27, 1977  03:04:56
                         STRT:DRN             
0          THIS FILE ISSUES "$DRAIN SAXX" HASP COMMANDS USED TO DRAIN HASP PRIOR TO SHUTDOWN.
           THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE RJE LINES AVAILABLE (IF ANY)
           AT EACH INSTALLATION.
0          Referenced by comments of: 387/20 
00387/022A  HASP                     OPER MANUAL     WF             W225:HSPM.FMT                                                   
            4.3T1   210  HASP.OPER_MANUAL.WF.022            1 LINE    225   29 PAGE UM   DONNELLY            APR. 05, 1980  14:35:09
0          MTS HASP OPERATOR'S MANUAL.  NOTE:  SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592).
00387/023   HASP                     PCE SNIFFER     SA     PCE     HASP:PCE(1,999)                                                 
            D4T1    929  HASP.PCE_SNIFFER.SA.028            1 LINE     80    4 PAGE UM   HANSEN              JULY 27, 1977  03:05:11
                         MTS.:PCE             
0          PCE SNIFFER UTILITY PROGRAM.
           EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE:
            
             F:N1   B:N2   T: N3P  N4U  N5B
            
           WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S,
1                                                                                               SUN SEP 08/96   19:03:19   Page  135
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION,
                 N3 IS THE NUMBER OF *PRINT* PCE'S,
                 N4 IS THE NUMBER OF *PUNCH* PCE'S,
                 AND N5 IS THE NUMBER OF *BATCH* PCE'S.
            
           IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS
           FROM THE PREVIOUS LINE PRINTED.
           IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE
           USER THEY THINK THEY ARE.  IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS
           FROM THE JCT ID, IT PRINTS:
            
             PCE: AAAAA   JCTID: IIII    JOB TABLE: PPPPPPPP   JOB N
            
           WHERE AAAAA IS THE HEX LOCN OF THE PCE,
                 IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL),
                 PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER),
                 AND N IS THE JOB NUMBER.
            
           USES IOH (278) FOR OUTPUT FORMATTING AND REQUIRES THE HASP COPY SECTIONS.
00387/024   HASP                     PCE SNIFFER     OC             HASP:PCE(1000)                                                  
            D4.1T1  128  HASP.PCE_SNIFFER.OC.029            1 LINE     80    1 PAGE UM   HANSEN              MAY  17, 1978  15:41:20
00387/025A  HASP                     WRITEUP         WF             S0996 HASP 'MODULAR HASP' FSNAME=HASP.WRUP                      
            4.3T1   211  HASP.WRITEUP.WF.025                1 LINE    116   17 PAGE UM   HANSEN              MAR. 14, 1980  19:15:10
0          A DISCUSSION OF THE D4.3 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                        
            4.3T1   212  HASP.DUMP/ANAL.SA.026              1 LINE     72   53 PAGE UM   HANSEN              MAR. 13, 1980  22:07:14
0          THIS PROGRAM PERMITS A SYSTEM PROGRAMMER TO LOOK AT MEMORY OR A DUMP TAPE (VIA A
           DUMP TAPE OPTIONALLY ASSIGNED TO UNIT 1) AND PRINT IT IN AN EASILY READABLE FORM.
           FORMS PERMITTED ARE PRIMARILY HASP DSECT FORMATS (E.G., PCE AND DCT) AND JOBTABLE
           OR DUMP FORMATS.  A HELP COMMAND PROVIDES COMPREHENSIVE DESCRIPTIONS AS OBTAINED
           FROM 387/28.  COPIES COPY:GLOBALSETS (1026/2) AND COPY:LLMPSEQU (087).  REQUIRES
           ASSEMBLY WITH THE HASP MACROS (387/6).  CONTAINS MTS COMMANDS AT THE BEGINNING
           OF THE FILE TO ASSEMBLE IT.  IT ALSO CONTAINS A SPECIAL VERSION OF THE SYSADR
           SUBROUTINE (400/7) WHICH READS FROM THE DUMP TAPE.  IT REQUIRES THE VMFIND
           SUBROUTINE (400/2).
0          Referenced by comments of: 387/28 
00387/027A  HASP                     DUMP/ANAL       OC             S0996 HASP 'MODULAR HASP' FSNAME=D/A.D                          
            4.3T1   213  HASP.DUMP/ANAL.OC.027              1 LINE  24896   22 PAGE UM   HANSEN              MAR. 13, 1980  22:07:04
                         MTS.:HASP.D/A        
00387/028A  HASP                     DUMP/ANAL HELP  M              S0996 HASP 'MODULAR HASP' FSNAME=D/A.HELP                       
            4.3T1   214  HASP.DUMP/ANAL_HELP.M.028          1 LINE     68    5 PAGE UM   HANSEN              NOV. 14, 1978  15:34:22
0          HELP MESSAGE FILE FOR USE BY DUMP/ANAL (387/26).  THIS FILE IS IN THE FORM OF AN
           ASSEMBLER MACRO LIBRARY.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00387/029A  HASP                     HASPTRACKS      SA  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.S                   
            4.3T1   215  HASP.HASPTRACKS.SA.029             1 LINE     95    4 PAGE UM   HANSEN              NOV. 14, 1978  15:32:22
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/7) SUBROUTINE.
0          Referenced by comments of: 387/30 
00387/030A  HASP                     HASPTRACKS      OC  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.D                   
            4.3T1   216  HASP.HASPTRACKS.OC.030             1 LINE    256    6 PAGE UM   HANSEN              MAR. 13, 1980  22:07:01
0          OBJECT FOR HASPTRACKS (387/29) PLUS THE OBJECT FOR SYSADR (400/7).
00387/031A  HASP                     QUESCAN         SA  O          S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.S                      
            4.3T1   217  HASP.QUESCAN.SA.031                1 LINE     91    5 PAGE UM   HANSEN              JULY 13, 1979  16:48:06
0          PROGRAM TO SCAN THE HASP QUEUE, VERIFYING THAT ALL ENTRIES ARE PROPERLY LINKED,
           LOCATING UNATTACHED SEGMENTS, AND MAKING OTHER TESTS.  THE FILE BEGINS WITH
           MTS COMMANDS TO ASSEMBLE THE PROGRAM.  COPIES THE HASP COPY SECTIONS AND REQUIRES
           THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY.  CALLS THE SYSADR (400/7) SUBR.
           COPIES COPY:GLOBALSETS (1026/2).
0          Referenced by comments of: 387/32 
00387/032A  HASP                     QUESCAN         OC  O          S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.D                      
            4.3T1   218  HASP.QUESCAN.OC.032                1 LINE    256    6 PAGE UM   HANSEN              MAR. 13, 1980  22:08:52
0          OBJECT FOR QUESCAN (387/31) PLUS THE OBJECT FOR SYSADR (400/7).
00387/033C  HASP                     HASPSTAT CMDS   C            # MTS:TST.HPS                                                     
                                                                                    UM   HANSEN                                     
                         *HPS                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE HASPSTAT PROGRAM (387/34) TO
           CHECK FOR POSSIBLE HASP PROBLEMS.
00387/034A  HASP                     HASPSTAT        SA  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.S                     
            4.3T1   219  HASP.HASPSTAT.SA.034               1 LINE    111    3 PAGE UM   HANSEN              JULY 13, 1979  16:48:03
0          PROGRAM TO LOOK AT HASP WHILE IT'S RUNNING AND CHECK FOR POSSIBLE PROBLEMS.
           IF FOUND, THEY ARE PRINTED ON SERCOM.  THE FILE BEGINS WITH MTS COMMANDS TO
           ASSEMBLE THE PROGRAM. COPIES COPY:GLOBALSETS (1026/2). REQUIRES THE HASP
           MACRO LIBRARY (387/6) FOR ASSEMBLY.  CALLS THE SYSADR (400/7) SUBR.
0          Referenced by comments of: 387/33, 387/35 
00387/035A  HASP                     HASPSTAT        OC  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.D                     
            4.3T1   220  HASP.HASPSTAT.OC.035               1 LINE    256    5 PAGE UM   HANSEN              MAR. 13, 1980  22:08:45
                         SYS:HASPSTAT         
0          OBJECT FOR HASPSTAT (387/34) PLUS THE OBJECT FOR SYSADR (400/7).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00387/036   HASP                     HASPCKPT        SA  O          S0996 HASP 'MODULAR HASP' FSNAME=HASPCKPT                       
            D4.1T1  139  HASP.HASPCKPT.SA.040               1 LINE     95    3 PAGE UM   HANSEN              MAR. 28, 1978  20:41:54
0          PROGRAM TO REFORMAT THE HASP CHECKPOINT RECORD TO AVOID DOING A COLD START
           WHEN CHANGING FROM 16- TO 32-BYTE $ROUTAB ENTRIES.  COULD BE USED FOR OTHER
           CHECKPOINT RECORD CHANGES TOO.  THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE
           THE PROGRAM.  COPIES THE HASP COPY SECTIONS AND REQUIRES THE HASP MACRO
           LIBRARY (387/6) FOR ASSEMBLY.  OBJECT NOT DISTRIBUTED.
00388/001A  HASPLING                 MAIN            SA  G  HSPL    S0996 HASP 'MODULAR HASP' FSNAME=HASPLING                       
            4.3T1   221  HASPLING.MAIN.SA.001               1 LINE     80   27 PAGE UM   HANSEN              MAR. 13, 1980  22:06:51
0          COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING
           COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 387/9 
00388/002A  HASPLING                 MNET            SA  G  HSPM    S0996 HASP 'MODULAR HASP' FSNAME=HSPLNG.MNET                    
            4.3T1   222  HASPLING.MNET.SA.002               1 LINE     80   19 PAGE UM   HANSEN              MAR. 13, 1980  22:06:55
0          ASSEMBLE USING COPY:MTS.MACROS (344/3).
00388/003   HASPLING                 OBJECT          OC  G        # (PART OF 387/13)                                                
                                                                                    UM   HANSEN                                     
00389/001  *GENLIB                                   SA  G  GENL    LBT:GENLIB.S                                                    
            D4T1    938  GENLIB..SA.001                     1 LINE     80  143 PAGE UM   TIFFANY             JULY 27, 1977  03:05:47
0          THIS IS THE SOURCE FOR *GENLIB.
            
           NOTE:  *GENLIB IS STILL SUPPORTED BY UM, BUT *OBJUTIL (721) IS PREFERRED.
0          Referenced by comments of: 3031/1 
00389/002  *GENLIB                                   OE  G          *GENLIB                                                         
            D4.2T1  194  GENLIB..OE.002                     1 LINE  12279   14 PAGE UM   TIFFANY             MAR. 26, 1979  02:46:18
                         *GENLIB              
00389/003  *GENLIB                   MESSAGES        M              ETC:GENLIBHELP                                                  
            D4T1    940  GENLIB.MESSAGES.M.003              1 LINE     66   10 PAGE UM   TIFFANY             JULY 27, 1977  03:06:15
                         ETC.:GENLIBHELP      
0          MESSAGE FILE REFERENCED FOR THE EXPLAIN COMMAND.
00390/001  *QUE                                      C              *QUE(1,999)                                                     
            D4T1    941  QUE..C.001                         1 LINE     30    1 PAGE UM   WSG                 AUG. 14, 1977  19:29:14
                         *QUE                 
0          COMMAND FILE TO PRINT A LISTING (ON *PRINT*) OF THE HASP QUEUE.  INVOKED BY
           ENTERING "MTS *QUE" ON THE OPERATOR'S CONSOLE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00390/002  *QUE                      PGM             SA  G  HSPQ    S0721 'D3T2' FSNAME=QUE..SA.1(1)                             334
            D4T1    942  QUE.PGM.SA.002                     1 SEQ      80    2 PAGE UM   WSG                 AUG. 02, 1973  02:35.17
0          PROGRAM TO PRINT OUT HASP QUEUE.
00390/003  *QUE                      PGM             OC  G          *QUE(1000)                                                      
            D4T1    943  QUE.PGM.OC.003                     1 LINE     80    1 PAGE UM   WSG                 AUG. 14, 1977  19:29:15
00391       FILE STATISTICS                          SP           # (OBSOLETE)                                                      
            D2T1    123                                                             UM                                              
00392      *FSAVE                                    SA           # (OBSOLETED BY COMP 548)                                         
            D2.2    116                                                             UM                                              
0          Referenced by comments of: 549/1 
00399/001   DUMP                                     SA  G          S0563 D4T1 VLO FSNAME=DUMP..SA.001(1)                        944
            D4T1    944  DUMP..SA.001                       1 LINE     80   13 PAGE UM   MTA                 JULY 27, 1977  03:06:22
0          THIS IS THE UMMPS SYSTEM DUMP PROGRAM.  IT TAKES A DUMP OF ALL OF REAL MEMORY PLUS, OPTIONALLY,
           THE VM FOR A SPECIFIED JOB.  IT WRITES THE DUMP UNFORMATED ONTO A 9-TRACK LABELED TAPE FOR
           WHICH THE VOLUME LABEL MUST BE 'DUMPXX'.  THE PRINTDUMP PROGRAM (400) WILL PRINT SELECTED
           PARTS OF A DUMP TAPE.
           COPIES COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 400/1 
00399/002   DUMP                     UPDATE          UC  G          MTA:DUMP.U                                                      
            D4.2T1  195  DUMP.UPDATE.UC.002                 1 LINE     65    1 PAGE UM   MTA                 MAR. 26, 1979  02:46:19
0          UPDATES TO THE D4.0 SOURCE.
00399/003   DUMP                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00400/001   PRINTDUMP                D4 MAIN         SA  G          S0563 D4T1 VLO FSNAME=PRINTDUMP.MAIN.SA.001                 945 
            RD16T1   51  PRINTDUMP.MAIN.SA.001              1 LINE     72   29 PAGE UM   MTA                 JULY 12, 1979  22:34:35
                         MTA.:DMPLST          
0          PRINTS DUMP TAPES PRODUCED BY SYSTEM DUMP (399).  A SEPARATE DUMP PROGRAM
           IS ALSO AVAILABLE FOR HASP (SEE COMP 387).  PRINTDUMP REQUIRES PRINTTRACE
           (337), THE MSG ROUTINES (1023), AND IOH (278) FOR THE "TRACE" COMMAND ONLY. 
           COPIES COPY:LLMPSEQU (087), COPY:PCBDSECT (470), COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/2), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:SETPARM
           (653).
0          Referenced by comments of: 399/1, 400/2, 534/9, 4003/1 
00400/002C  PRINTDUMP                MAIN UPDATE     UC  G          MTA:DMPLST.U                                                    
            4.3T1   223  PRINTDUMP.MAIN_UPDATE.UC.002       1 LINE     72   33 PAGE UM   MTA                 APR. 05, 1980  14:40:02
0          UPDATE TO PRODUCE THE CURRENT SOURCE FOR THE MAIN PROGRAM FROM THE D4.O
           SOURCE (400/1).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 387/26 
00400/003A  PRINTDUMP                VMFIND SUBR     SA  G          MTA:DMPLST.VMFIN(1,999)                                         
            4.3T1   224  PRINTDUMP.VMFIND_SUBR.SA.003       1 LINE     68    5 PAGE UM   MTA                 APR. 05, 1980  14:40:05
                         MTA.:DMPLST.VMFIN    
0          SUBROUTINE TO FIND A VM PAGE ON A DUMP TAPE.
            
           **********************************************************************************
           D4.3 CHANGES:
            
           COMPLETELY REWRITTEN FOR D4.3.
           **********************************************************************************
0          Referenced by comments of: 400/7, 534/10 
00400/004   PRINTDUMP                D4 SSCN SUBR    SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=SSCN                        
            D4T1    947  PRINTDUMP.SSCN_SUBR.SA.003         1 LINE     80   11 PAGE UM   MTS       MTA       JULY 27, 1977  03:06:31
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).
00400/005A  PRINTDUMP                SSCN SUBR UPD   UC  G          MTS:SSCNUPD                                                     
            4.3T1   225  PRINTDUMP.SSCN_SUBR_UPD.UC.005     1 LINE     72    6 PAGE UM   MTS       MTA       APR. 05, 1980  14:40:08
                         MTS.:SSCNUPD         
0          MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE.  FILE
           CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF THE UPDATE WITH THE RD16 SOURCE
           AS BASE.  THIS LINE SHOULD BE REMOVED WHEN USING THE D4.0 SOURCE AS BASE.
           UPDATE USES $CONTROL *IN* POSN=SSCN.
00400/006A  PRINTDUMP                SSCN SUBR LIST  L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=SSCN.LIST             15  
            4.3T1   226  PRINTDUMP.SSCN_SUBR_LIST.L.006     1 SEQ     133   41 PAGE UM   MTS       MTA       APR. 05, 1980  14:40:18
00400/007   PRINTDUMP                DUMP SUBR       SA  G          S0563 D4T1 VLO FSNAME=PRINTDUMP.DUMP_SUBR.SA.004(1)          948
            D4T1    948  PRINTDUMP.DUMP_SUBR.SA.004         1 LINE     80    5 PAGE UM   MTA                 JULY 27, 1977  03:06:33
                         MTA.:DMPLST.ADUMP    
0          SUBROUTINE TO FORMAT DUMP OUTPUT.  CALLED BY SSCN (400/3).
0          Referenced by comments of: 387/26, 387/29, 387/30, 387/31, 387/32, 387/34, 387/35 
00400/008   PRINTDUMP                4.1 SYSADR SUB  SA  G          S1143 D4.1T1 VLO FSNAME=PRINTDUMP.SYSADR_SUBR.SA.006(1)      144
            D4.1T1  144  PRINTDUMP.SYSADR_SUBR.SA.006       1 LINE     80    4 PAGE UM   MTA                 MAY  13, 1978  17:16:52
                         MTA.:DMPLST.SYSAD    
0          SUBROUTINE TO RESOLVE A NAME FROM THE UMLOAD SYMBOL TABLE FOR THE RESIDENT SYSTEM
           ON A DUMP TAPE.
0          Referenced by comments of: 400/9 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00400/009C  PRINTDUMP                SYSADR UPDATE   UC  G          MTA:DMPLST.ADR.U                                                
            4.3T1   227  PRINTDUMP.SYSADR_UPDATE.UC.009     1 LINE     68    1 PAGE UM   MTA                 APR. 05, 1980  14:40:18
0          UPDATE TO PRODUCE CURRENT SOURCE FROM THE D4.1 SOURCE (400/8).
00400/010   PRINTDUMP                4.2 TASKSTAT    SA  G          S1319 D4.2T1 VLO FSNAME=PRINTDUMP.TASKSTAT_SUBR.SA.007(1)    198
            D4.2T1  198  PRINTDUMP.TASKSTAT_SUBR.SA.007     1 LINE     86    5 PAGE UM   MTA                 MAR. 26, 1979  02:46:27
                         MTA.:DMPLST.TSTAT    
0          VERSION OF TASKSTAT SUBROUTINE (647) WHICH WORKS WITH A DUMP TAPE.  COPIES
           COPY:GLOBALS(1026/3), COPY:LLMPSEQU (087), AND COPY:JOBSTA (413/9).
           ASSEMBLE USING COPY:SETPARM (653) AND DMPLST.MACROS (400/12).
0          Referenced by comments of: 400/11 
00400/011C  PRINTDUMP                TASKSTAT UPD    UC  G          MTA:DMPLST.TST.U                                                
            4.3T1   228  PRINTDUMP.TASKSTAT_UPD.UC.011      1 LINE     66    1 PAGE UM   MTA                 APR. 05, 1980  14:40:21
0          UPDATE TO PRODUCE CURRENT SOURCE FROM THE D4.2 SOURCE (400/10).
0          Referenced by comments of: 400/12 
00400/012   PRINTDUMP                4.2 LOADCLAS    SA  G          S1319 D4.2T1 VLO FSNAME=PRINTDUMP.LOADCLAS_SUBR.SA.008(1)    199
            D4.2T1  199  PRINTDUMP.LOADCLAS_SUBR.SA.008     1 LINE     72    3 PAGE UM   MTA                 MAR. 26, 1979  02:46:28
                         MTA.:DMPLST.LOADC    
0          SUBROUTINE TO PRODUCE A SUBSET OF LOADCLAS (540/8) OUTPUT FROM A DUMP TAPE.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING
           COPY:SETPARM (653) AND DMPLST.MACROS (400/11).
0          Referenced by comments of: 400/10, 400/13, 1012/1 
00400/013C  PRINTDUMP                LOADCLAS UPD    UC  G          MTA:DMPLST.LC.U                                                 
            4.3T1   229  PRINTDUMP.LOADCLAS_UPD.UC.013      1 LINE     66    1 PAGE UM   MTA                 APR. 05, 1980  14:40:24
0          UPDATE TO PRODUCE CURRENT SOURCE FROM THE D4.2 SOURCE (400/12).
00400/014   PRINTDUMP                D4 ICTAB SUBR   SA  G          S0563 D4T1 VLO FSNAME=PRINTDUMP.ICTAB_SUBR.SA.008(1)         952
            D4T1    952  PRINTDUMP.ICTAB_SUBR.SA.008        1 LINE     80   21 PAGE UM   MTA                 JULY 27, 1977  03:06:43
                         MTA.:DMPLST.ICTAB    
0          SUBROUTINE WHICH IMPLEMENTS THE ICTAB COMMAND FOR PRINTDUMP.  THIS IS A MODIFIED
           VERSION OF TABLMOD (554).  ASSEMBLE USING COPY:FILE.MACROS (482/33).
00400/015   PRINTDUMP                D4 ICSTAT SUBR  SA  G          S0563 D4T1 VLO FSNAME=PRINTDUMP.ICSTAT_SUBR.SA.009(1)        953
            D4T1    953  PRINTDUMP.ICSTAT_SUBR.SA.009       1 LINE     80    6 PAGE UM   MTA                 JULY 27, 1977  03:06:45
                         MTA.:DMPLST.ICSTA    
0          VERSION OF THE ICSTAT SUBROUTINE (PART OF 482/25) THAT WORKS FROM A DUMP TAPE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00400/016C  PRINTDUMP                CMDREAD SUBR    SA  G          MTA:DMPLST.CMDRE(1,999)                                         
            4.3T1   230  PRINTDUMP.CMDREAD_SUBR.SA.016      1 LINE     72    7 PAGE UM   MTA                 APR. 05, 1980  14:40:26
0          SUBROUTINE TO READ COMMANDS.  ASSEMBLE WITH COPY:CC.MACROS (1054/3).
           COPIES *GDINFODSECT (594).
00400/017C  PRINTDUMP                IOSETUP SUBR    SA  G          MTA:DMPLST.IOSET(1,999)                                         
            4.3T1   231  PRINTDUMP.IOSETUP_SUBR.SA.017      1 LINE     72    4 PAGE UM   MTA                 APR. 05, 1980  14:40:29
0          SUBROUTINE TO FIND A DUMP TAPE.  COPIES *GDINFODSECT (594).
00400/018C  PRINTDUMP                ITDUMP SUBR     SA  G          MTA:DMPLST.ITDUMP(1,999)                                        
            4.3T1   232  PRINTDUMP.ITDUMP_SUBR.SA.018       1 LINE     71   10 PAGE UM   MTA                 APR. 05, 1980  14:40:31
0          DUMPS UBC INTERTASK STUFF (1081).  ASSEMBLE WITH THE PRINTDUMP MACROS
           (400/19).  COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND
           COPY:IT.COPY_SECT (1081/4).
0          Referenced by comments of: 1081/4 
00400/019   PRINTDUMP                MACROS          SM  G          MTA:DMPLST.MACROS                                               
            D4.2T1  200  PRINTDUMP.MACROS.SM.011            1 LINE     63    1 PAGE UM   MTA                 MAR. 26, 1979  02:46:29
                         MTA:DMPLST.MACROS    
0          MACRO LIBRARY.
0          Referenced by comments of: 400/18 
00400/020A  PRINTDUMP                                OC  G          MTA:PRINTDUMP                                                   
            4.3T1   233  PRINTDUMP..OC.020                  1 LINE  10626   23 PAGE UM   MTA                 APR. 05, 1980  14:40:34
                         MTS.:PRINTDUMP       
0          THIS FILE CONTAINS THE OBJECT FOR ALL OF PRINTDUMP PLUS PRINTTRACE (337).
00400/021   PRINTDUMP                GETDUMP         SA  G          SYS:GETDUMP(1000)                                               
            D4.2T1  202  PRINTDUMP.GETDUMP.SA.013           1 LINE     72    1 PAGE UM   OGDEN               MAR. 26, 1979  02:46:32
                         SYS:GETDUMP          
0          PROGRAM INVOKED BY 400/16.  COPIES *SENSEDSECT (3025).
00400/022   PRINTDUMP                GETDUMP         OC  G          SYS:GETDUMP(1,999)                                              
            D4.2T1  203  PRINTDUMP.GETDUMP.OC.014           1 LINE     80    3 PAGE UM   OGDEN               MAR. 26, 1979  02:46:33
00400/023   PRINTDUMP                DUMP            C              SYS:DUMP                                                        
            D4.2T1  204  PRINTDUMP.DUMP.C.015               1 LINE     37    1 PAGE UM   OGDEN               MAR. 26, 1979  02:46:33
                         SYS:DUMP             
0          SOURCE FILE TO AUTOMATICALLY MOUNT AND PRINT A DUMP TAPE.  PROMPTS USER FOR
           DUMP TAPE NUMBER AND DUMPS OUTPUT ON *PRINT*.  ASSUMES THAT FILE IS SOURCED
           TO FROM THE ID SYS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00410/001  *ASMTIDY                                  SA  S          S0563 D4T1 VLO FSNAME=ASMTIDY..SA.001(1)                     958
            D4T1    958  ASMTIDY..SA.001                    1 LINE     80   17 PAGE UBC            TIFFANY   JULY 27, 1977  03:06:57
0          PROGRAM TO CLEAN UP AND ENTER ASSEMBLY PROGRAMS INTO FILES.
           REQUIRES THAT USER "$SET SEQFCHK=OFF" IF OUTPUT IS INTO A SEQUENTIAL FILE.
           UBC VERSION OF JAN 27, 1976 CHANGED ONLY TO DEFAULT SEQID ON, TO CHECK FOR INPUT
           RECORDS > 256 BYTES, AND TO WATCH FOR RC=4 ON WRITING OUTPUT.  THIS VERSION
           DOES NOT USE INFREE. UM WRITEUP IS IN MTS VOLUME 14 (SEE COMP 665).
00410/002  *ASMTIDY                                  OC  S          *ASMTIDY                                                        
            D4T1    959  ASMTIDY..OC.002                    1 SEQ      80    3 PAGE UBC            TIFFANY   JULY 27, 1977  03:06:59
                         *ASMTIDY             
00410/003  *ASMTIDY                  NEW ASMTIDY     SS  G          S0684 UNSP FSNAME=ASMTIDY.S                                     
            D4.2T1  205  ASMTIDY.NEW_ASMTIDY.SS.003         1 LINE    108    6 PAGE UM   UNSP      SHERRY    JAN. 18, 1979  22:27:46
0          NEW VERSION OF ASMTIDY WHICH WORKS CORRECTLY.  THERE IS NO ICTL CAPABILITY. 
           IT INDENTS STRUCTURED PROGRAMMING MACROS AND NOW PROCESSES PARAMETERS 
           DESCRIBED IN 410/5. IT READS THE SOURCE ON SCARDS, WRITES ONLY THE CHANGED
           LINES ON SPUNCH (@I), AND PRINTS A LISTING ON SPRINT WITH NESTING LINES
           AND *FRAMES EXPANDED.  USES UNSP:SPITPAR (757/2).
00410/004  *ASMTIDY                  NEW ASMTIDY     OE  G          UNSP:ASMTIDY                                                    
            D4.2T1  206  ASMTIDY.NEW_ASMTIDY.OE.004         1 LINE  15828    8 PAGE UM   UNSP      SHERRY    MAR. 26, 1979  02:50:31
                         UNSP:ASMTIDY         
0          HAS A "$CONTINUE WITH UNSP:SPITPAR" (757/2) CARD.
00410/005  *ASMTIDY                  NEW ASMTIDY     WF             S0684 UNSP FSNAME=ASMTIDY.F                                     
            D4.2T1  207  ASMTIDY.NEW_ASMTIDY.WF.005         1 LINE     79    3 PAGE UM   UNSP      SHERRY    JAN. 18, 1979  22:27:41
00413/001A  SYSTEM STATUS            SSRTN           SA  G          WSG:SSRTN                                                       
            4.3T1   234  SYSTEM_STATUS.SSRTN.SA.001         1 LINE     72   41 PAGE UM   WSG                 APR. 05, 1980  14:40:37
                         WSG.:SSRTN           
0          THE SYSTEM STATUS ROUTINE (SSRTN) COMPUTES SYSTEM LOAD (CPU, PAGING, DISK, CHANNEL, AND
           DRUM SPACE) DURING EVERY 20 SECONDS OF SYSTEM OPERATION.  IT IS A SUBROUTINE CALLED BY
           THE OPERATOR JOB (634), THE JOBS JOB (413/3) AND THE MTS $SYSTEMSTATUS CLS (413/5).  IT
           ALSO HAS A SEPARATE ENTRY POINT (SSFMT) WHICH ONLY PRODUCES THE FORMATED OUTPUT VECTOR
           AS PRINTED BY THE "LOAD" COMMAND.  THIS ENTRY IS CALLED BY THE OPERATOR JOB (TO PRODUCE
           THE TOP LINE ON THE CONSOLE SCREEN) AND BY THE 3270 %ACTIVITY COMMAND (629/4).  THE
           "MASTER" COMMAND CAN ONLY BE ACTIVATED BY ONE TASK AT A TIME.  WHEN ISSUED, IT CAUSES
           THAT TASK TO PERFORM THE LOAD CALCULATION EVERY 20 SECONDS UPDATING THE INFORMATION
           IN THE JOBSTA VECTOR (413/7) FOR USE BY OTHER TASKS AND ALSO LOGGING THE DATA VIA
           CMDSTAT (AS RECORD TYPE 8).  CALLS BJPMOD (650), CHECKFE (731), TASKSTAT (647),
           TSKFMT (019), AND CMDSTATS (531).  COPIES COPY:BJPDSCT (650/3), COPY:JOBSTA (413/9),
           COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654).  ASSEMBLE
           WITH PAR=SIZE=12.
            
           CHANGED AS FOLLOWS SINCE D4.0:
            (1) SSFMT EXPANDED TO ALSO RETURN THE HEADER LINE FOR "LOAD" OUTPUT.
            (2) DISPLAY COMMAND CHANGED TO ALLOW OPTIONAL JOB=N PARAMETER IMMEDIATELY
                BEFORE THE DISPLAY ADDRESS IF ISSUED BY OPERATOR JOB, JOBS JOB, OR
                $SY WITH USER ID MTS.  WHEN JOB=N IS GIVEN, THE PRIVATE VM FOR JOB N
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0               IS DISPLAYED, RATHER THAN THE CURRENT JOB.
            (3) DISPLAY COMMAND CHANGED TO ALLOW "DISPLAY LOCK N" FOR DISPLAYING WHICH
                JOB (IF ANY) CURRENTLY HAS SUPERVISOR LOCK N SET.  IN ORDER FOR THIS
                COMMAND TO WORK, UMMPS MUST HAVE A DEF CARD DEFINING "LOCKTBL".
            (4) THE LENGTH OF THE HASP $ROUTAB TABLE ENTRIES HAS BEEN PARAMETERIZED
                SINCE THE UM HASP NOW SUPPORTS RJE PASSWORDS (REQUIRING 32-BYTE $ROUTAB
                ENTRIES INSTEAD OF 16).
            (5) THE MASTER COMMAND NOW PRODUCES A SUMMARY RECORD EVERY 10 MINUTES (VIA
                A NEW CMDSTAT CALL -- TYPE 19) WHICH CONTAINS CURRENTLY ONLY 10 BYTES
                OF DATA (ALL HALFWORDS):  SUMMARY PERIOD LENGTH (SECONDS), AVERAGE
                CPU UTILIZATION OVER SUMMARY PERIOD (PERCENT * 100), AVERAGE HASP EXEC
                QUEUE LENGTH OVER SUMMARY PERIOD, MAX HASP EXEC QUEUE LENGTH DURING
                PERIOD, AND MIN HASP EXEC QUEUE LENGTH DURING PERIOD.  THE "SVEC"
                COMMAND HAS BEEN REMOVED.  THE SUMMARY DATA IS PLACED IN THE FILE
                SYS:SSRTNSUMM BY *DWB (531/12) AND MAY BE PRINTED BY SUMMPRT (413/10) OR
                SUMMARIZED BY THE CPUSE SUBR (326/4) ON A MONTHLY BASIS.
            (6) IF THE EXTERNAL SYMBOL "CHECKFE" IS DEFINED, THE NEW "CHECK FRONT END"
                SUBR (731) IS CALLED EVERY SEVERAL MINUTES TO CHECK ON THE STATUS (UP,
                DOWN, OFFLINE, ETC.) OF FRONT END PROCESSORS.  IT WILL INFORM THE OPERATOR
                OF ANY ABNORMAL CONDITIONS IT NOTICES.  SYMBOLS IN JOBSTA (413/9) ARE
                USED TO CONTROL THE CHECKING OF THE FRONT ENDS AND TO REPORT THEIR STATUS.
                AT UM, THE SYMBOLS JSCAS, JSCBS, JSCCS, AND JSMNS ARE USED FOR THE STATUS
                OF THE THREE DATA CONCENTRATORS AND THE MERIT FRONT END RESPECTIVELY.
            (7) ALLOWS FOR MORE THAN 999 REAL PAGES IN VARIOUS OUTPUT FORMATS.
            (8) CHANGED TO MAINTAIN A COUNT OF THE NUMBER OF AVAILABLE (FREE) JOB TABLES
                AS WELL AS A COUNT OF THE NUMBER OF ADDITIONAL GRABS WHICH CAN BE DONE
                BY 3270 JOBS.
            (9) MESSAGES NOW APPEAR IN UPPER/LOWER CASE.
           (10) MINOR CHANGES FOR CHECKFE, INCLUDING CALLING IT EVERY INTERVAL AND
                ADDING JSCDS FOR THE FOURTH DATA CONCENTRATOR.
           (11) ADDITIONAL JOBSTA ITEMS ADDED FOR USE BY BJPMOD.
0          Referenced by comments of: 19/1, 326/1, 413/3, 413/5, 413/7, 413/10, 540/10, 647/1, 650/1, 731/1 
00413/002A  SYSTEM STATUS            SSRTN           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00413/003   SYSTEM STATUS            JOBS JOB        SA  G          S0563 D4T1 VLO FSNAME=SYSTEM_STATUS.JOBS_JOB.SA.003(1)       963
            D4T1    963  SYSTEM_STATUS.JOBS_JOB.SA.003      1 LINE     80    3 PAGE UM   WSG                 JULY 27, 1977  03:07:17
0          UMMPS JOB PROGRAM (NAMED "JOBS") TO INTERFACE TO SSRTN (413/1) FROM THE JOB PROGRAM LEVEL.
0          Referenced by comments of: 413/1 
00413/004   SYSTEM STATUS            JOBS JOB        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00413/005A  SYSTEM STATUS            SYS STAT CLS    SA  G  SCLS    WSG:SSTA.CLS(1,999)                                             
            4.3T1   235  SYSTEM_STATUS.SYS_STAT_CL.SA.005   1 LINE     80   15 PAGE UM   WSG                 APR. 05, 1980  14:40:47
                         WSG.:SSTA.CLS        
0          $SYSTEMSTATUS CLS FOR INTERFACING WITH SSRTN (413/1) FROM MTS COMMAND LEVEL.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
1                                                                                               SUN SEP 08/96   19:03:19   Page  144
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 413/1 
00413/006A  SYSTEM STATUS            SYS STAT CLS    OC  G          *CLSSSTA                                                        
            4.3T1   236  SYSTEM_STATUS.SYS_STAT_CL.OC.006   1 LINE     80    2 PAGE UM   WSG                 APR. 05, 1980  14:40:50
                         *CLSSSTA             
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE.
00413/007   SYSTEM STATUS            JOBSTA VECTOR   SA  G  SVEC    WSG:SSTA.VEC(1,999)                                             
            D4.2T1  208  SYSTEM_STATUS.JOBSTA_VECT.SA.007   1 LINE     80    1 PAGE UM   WSG                 MAR. 26, 1979  02:50:33
                         WSG.:SSTA.VEC        
0          SYSTEM STATUS INFORMATION VECTOR MAINTAINED BY SSRTN (413/1).
           COPIES COPY:JOBSTA (413/9).
0          Referenced by comments of: 413/1, 540/10 
00413/008A  SYSTEM STATUS            JOBSTA VECTOR   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
0          THIS OBJECT DECK SHOULD BE KEPT IN SEGMENT 0 TO REDUCE THE OVERHEAD OF THE SVC WAYT IN SSRTN.
00413/009A  SYSTEM STATUS            JOBSTA DSECT    SA  G          COPY:JOBSTA                                                     
            4.3T1   237  SYSTEM_STATUS.JOBSTA_DSEC.SA.009   1 LINE     71    3 PAGE UM   WSG                 APR. 05, 1980  14:40:53
                         COPY:JOBSTA          
0          THIS IS THE DSECT FOR THE SYSTEM STATUS VECTOR.
0          Referenced by comments of: 42/1, 101/1, 198/1, 387/1, 387/2, 400/10, 413/1, 413/7, 634/1, 647/1, 650/1, 731/1,
                 3024/3, 4000/33 
00413/010   SYSTEM STATUS            SUMMPRT         SG  G          WSG:SUMMPRT(1,999)                                              
            D4.2T1  210  SYSTEM_STATUS.SUMMPRT.SG.010       1 LINE    121    1 PAGE UM   WSG                 MAR. 26, 1979  02:50:34
                         WSG.:SUMMPRT         
0          GOM PROGRAM TO PRINT SUMMARY DATA COLLECTED BY SSRTN (413/1).
0          Referenced by comments of: 413/1 
00413/011   SYSTEM STATUS            SUMMPRT         OC  G          WSG:SUMMPRT(1000)                                               
            D4.2T1  211  SYSTEM_STATUS.SUMMPRT.OC.011       1 LINE     80    2 PAGE UM   WSG                 MAR. 26, 1979  02:50:35
0          Referenced by comments of: 540/10 
00413/012   SYSTEM STATUS            DOCUMENTATION   WF             WSG:SSRTN.DOC                                                   
            D4.2T1  212  SYSTEM_STATUS.DOCUMENTATI.WF.012   1 LINE    106    3 PAGE UM   WSG                 MAR. 26, 1979  02:50:35
                         WSG.:SSRTN.DOC       
0          WRITEUP DESCRIBING THE SYSTEM LOAD COMPUTATION ALGORITHM AND JOB SCHEDULING MECHANISM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00414/001  *TAPEDUMP                                 SA  G  TDMP    WSG:TAPEDUMP(1,999)                                             
            D4.2T1  213  TAPEDUMP..SA.001                   1 LINE     80   18 PAGE UM   WSG                 MAR. 26, 1979  02:50:36
                         WSG.:TAPEDUMP        
0          PROGRAM TO DUMP 7- OR 9-TRACK TAPES OR FILES.
00414/002  *TAPEDUMP                                 OE  G          *TAPEDUMP                                                       
            D4.2T1  214  TAPEDUMP..OE.002                   1 LINE   3883    3 PAGE UM   WSG                 MAR. 26, 1979  02:50:40
                         *TAPEDUMP            
00418      *HBT                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    183                                                             UM                                              
00421      *SCN                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    199                                                             UM                                              
00422       FORTRAN LIBRARY                          SA           # (OBSOLETED BY COMP 1002)                                        
            D3T2    350  FORTRAN_LIBRARY.IBCOM#.SA.1        1 LINE     80   29 PAGE UM                       AUG. 02, 1973  02:49.57
00436/001   GTDJMSR                                  SA             DWB:GRJTM(1,124)                                                
            D4T1    975  GTDJMSR..SA.001                    1 LINE     77    3 PAGE UM   DWB                 JULY 27, 1977  03:11:05
                         DWB.:GRJTM           
0          SUBROUTINE TO CONVERT GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900.
           SIMILAR TO GRGJULTM (518), BUT TAKES DIFFERENT ARGUMENTS.
00436/002   GTDJMSR                                  OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00436/003   GTDJMSR                  GTDJMS          SA             DWB:GTDJMS(1,999)                                               
            D4T1    976  GTDJMSR.GTDJMS.SA.003              1 LINE     77    1 PAGE UM   DWB                 JULY 27, 1977  03:11:07
                         DWB.:GTDJMS          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO GTDJMSR.  CONVERTS GREGORIAN
           TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900.
00436/004   GTDJMSR                  GTDJMS          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00437/001   JMSGTDR/JTUGTDR                          SA             DWB:JMSGTDR(125,999)                                            
            D4T1    977  JMSGTDR/JTUGTDR..SA.001            1 LINE     77    4 PAGE UM   DWB                 JULY 27, 1977  03:11:09
                         DWB.:JMSGTDR         
0          SUBROUTINE TO CONVERT JULIAN MICRO-SECONDS TO GREGORIAN TIME AND DATE.
           SIMILAR TO JULGRGTM (522), BUT TAKES DIFFERENT ARGUMENTS.  HAS ALTERNATE
           ENTRY POINT (JTUGTDR) WHICH CONVERTS JULIAN TIMER-UNITS TO GREGORIAN TIME
           AND DATE.  THIS IS THE UBC-CORRECTED VERSION OF FEB/77 WITH A FEW ADDITIONAL
           UM CORRECTIONS ADDED.
00437/002   JMSGTDR/JTUGTDR                          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
0          NOTE:  *ANALYSIS CALLS A SUBROUTINE (JULGRGTM/JULGRGTU) WHICH IS ESSENTIALLY THE SAME AS THIS,
                  BUT WITH DIFFERENT NAMES.  THE OBJECT FOR THAT SUBROUTINE IS PART OF *ANALYSIS.
1                                                                                               SUN SEP 08/96   19:03:19   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                 *ANALYSIS COULD (SHOULD) BE CHANGED TO USE THIS SUBR OUT OF *LIBRARY.
00437/003   JMSGTDR/JTUGTDR          JMSGTD          SA             DWB:JMSGTD(1,999)                                               
            D4T1    978  JMSGTDR/JTUGTDR.JMSGTD.SA.003      1 LINE     77    1 PAGE UM   DWB                 JULY 27, 1977  03:11:11
                         DWB.:JMSGTD          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JMSGTDR.
00437/004   JMSGTDR/JTUGTDR          JMSGTD          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00437/005   JMSGTDR/JTUGTDR          JTUGTD          SA             DWB:JTUGTD(1,999)                                               
            D4T1    979  JMSGTDR/JTUGTDR.JTUGTD.SA.005      1 LINE     77    1 PAGE UM   DWB                 JULY 27, 1977  03:11:14
                         DWB.:JTUGTD          
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JTUGTDR.
00437/006   JMSGTDR/JTUGTDR          JTUGTD          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00441      *FILEUSE                                  SA  G        # (OBSOLETED BY $FILESTATUS, COMP 529)                            
            D3T2    369  FILEUSE..SA.1                      1 LINE     80    5 PAGE UM                       AUG. 02, 1973  02:54.05
00442/001A  CCATL                                    SA  O  CCAT    FILE:CCATL(1000)                                                
            4.3T1   238  CCATL..SA.001                      1 LINE     80   18 PAGE UM   HELFFRICH           APR. 05, 1980  14:40:56
                         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 AN 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/33).  SEE COMP 682/2 FOR A WRITEUP.
            
           ***********************************************************************************
           D4.3 CHANGES:
            
           1) INCREASED SCRATCH AREA SIZE AND ELIMINATED CONFLICT WITH NAME DEFINED IN 
              BCBEQU.
           2) MADE COMPATIBLE WITH DISK MANAGER (769) FILE ROUTINES.
           ***********************************************************************************
0          Referenced by comments of: 682/2 
00442/002A  CCATL                                    OC  O          FILE:CCATL(1,999)                                               
            4.3T1   239  CCATL..OC.002                      1 LINE     80    5 PAGE UM   HELFFRICH           APR. 05, 1980  14:41:00
00443       FORMAT-TEXT360 CONVERTER                 SS  S          W073:FORMAT2T360                                                
            D4T1    982  FORMAT-TEXT360_CONVERTER..SS.      1 LINE     90    9 PAGE UM   SALISBURY           JULY 27, 1977  03:11:21
0          SNOBOL PROGRAM TO CONVERT INPUT FOR *FORMAT TO INPUT FOR TEXT/360.
           THIS PROGRAM HAS MANY LIMITATIONS AND SOME KNOWN BUGS, BUT IS USUALLY BETTER THAN RETYPING.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00444/001A  MTS VOLUME 2             MASTER          WT             S0485 MTSV2 'MTS MANUALS' POSN=NEWM12.V2                        
            4.3T1   240  MTS_VOLUME_2.MASTER.WT.001         1 SEQ     132  260 PAGE UM   MANUAL              APR. 05, 1980  14:42:56
0          TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUALS
           (DECEMBER 1978, UPDATED OCTOBER 1979 AND APRIL 1980).
            
           EDITOR:  RICHARD A. SALISBURY
00444/002A  MTS VOLUME 2             PRINT           PT             S0485 MTSV2 'MTS MANUALS' POSN=PRINT12.V2                       
            4.3T1   241  MTS_VOLUME_2.PRINT.PT.002          1 SEQ     132  509 PAGE UM   MANUAL              APR. 05, 1980  14:43:10
0          TEXT/360 PRINT FILE.
00444/003   MTS VOLUME 2             FLOWCHART       P              S0485 MTSV2 'MTS MANUALS' POSN=FLOWCHART                        
            D4.2T1  219  MTS_VOLUME_2.FLOWCHART.P.003       1 SEQ     133    6 PAGE UM   MANUAL              MAR. 26, 1979  02:54:14
0          *FLOWCHART EXAMPLE -- MUST BE PRINTED AT 8 LINES/INCH.
00444/004A  MTS VOLUME 2             UPDATE 1        PT             W073:TNLV2.OCT79                                                
            4.3T1   242  MTS_VOLUME_2.UPDATE_1.PT.004       1 LINE    152   99 PAGE UM   MANUAL              APR. 05, 1980  14:43:20
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/005C  MTS VOLUME 2             UPDATE 2        PT             W073:TNLV2.APR80                                                
            4.3T1   243  MTS_VOLUME_2.UPDATE_2.PT.005       1 LINE    105   41 PAGE UM   MANUAL              APR. 05, 1980  14:43:28
0          THIS IS "UPDATE 2 TO MTS VOLUME 2,"  (APRIL 1980).  $COPY TO A TN PRINTER
           USING THE @MCC MODIFIER.
00447/001   MOUNT STATISTICS         MNTSTAT SUBR    SA  G          S0563 D4T1 VLO FSNAME=MOUNT_STATISTICS.MNTSTAT.SA.001(1)     986
            D4T1    986  MOUNT_STATISTICS.MNTSTAT.SA.001    1 LINE     80    3 PAGE UM   WSG                 JAN. 14, 1977  15:13:26
0          THE MOUNT STATISTICS FACILITY IS USED TO SAVE INFORMATION ABOUT MOUNTS
           AND ATTEMPTED MOUNTS WHICH FAIL.  THIS INFORMATION IS COLLECTED VIA THE
           CMDSTAT FACILITY (531) AS RECORD TYPE 16.  THE CMDSTAT FACILITY PERIODICALLY
           PLACES THE MNTSTAT RECORDS IN THE FILE SYS:MOUNTSTAT.  THE SAVMS PROGRAM
           (447/3) SHOULD BE RUN ABOUT MONTHLY TO DUMP THE DATA FROM THIS FILE ONTO
           TAPE.  THE SAVMS PROGRAM WILL LEAVE THE RECORD FOR THE LAST REFERENCE TO 
           EACH RACK NUMBER IN THE FILE FOR ACCESS BY THE MSSCN PROGRAM (447/5) AND
           DELETE OLDER RECORDS.  THE MSDEL PROGRAM (447/8) CAN BE USED TO DELETE
           ANY ADDITIONAL UNWANTED RECORDS AFTER SAVMS HAS BEEN RUN.
            
           MNTSTAT IS A SUBROUTINE CALLED BY THE MOUNT COMMAND (101/1) TO LOG STATISTICS
           RECORDS ABOUT EACH MOUNT REQUEST.  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 101/1, 101/2, 447/3, 447/8 
00447/002   MOUNT STATISTICS         MNTSTAT SUBR    OC  G        # *CLSMOUNT (SEE COMP 101/2)                                      
                                                                                    UM   WSG                                        
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00447/003   MOUNT STATISTICS         SAVMS PGM       SA  G  SVMS    WSG:SAVMS(1,999)                                                
            D4.2T1  220  MOUNT_STATISTICS.SAVMS_PG.SA.003   1 LINE     80    7 PAGE UM   WSG                 MAR. 26, 1979  02:54:15
                         WSG.:SAVMS           
0          PROGRAM TO DUMP THE MOUNT STATISTICS FROM SYS:MOUNTSTAT TO TAPE.  THIS PROGRAM
           IS RUN MONTHLY AT UM.  IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A TAPE AND
           THEN DELETES ALL BUT THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH
           RACK NUMBER.  AT UM, THIS LEAVES ABOUT 100 PAGES WORTH OF MOUNT STATISTICS.
           THIS IS DONE SO THAT AN ONLINE FILE CONTAINING THE LAST REFERENCE (AND LAST
           POTENTIAL CHANGE) FOR EACH TAPE IS AVAILABLE FOR THE MSSCN PROGRAM (447/5).
           THE FILE SYS:MOUNTSTAT MUST BE A LINE FILE.  THE TAPE IS BLOCKED VB(16379,255).
           AT UM, WE COPY EACH MONTH'S TAPE ONTO THE END OF A LARGER TAPE, SAVING THE
           MOUNT STATISTICS INDEFINITELY.  IT IS ADVISABLE TO OCCASIONALLY OPTIMIZE
           SYS:MOUNTSTAT BY COPYING IT TO ANOTHER FILE AND BACK SINCE THE PROCESS OF 
           DELETING THE OLD RECORDS (BY SAVMS) CAUSES THE FILE TO BECOME UNOPTIMIZED.
           THIS PROGRAM WILL HANDLE A MIXTURE OF BOTH THE RECORDS PRODUCED BY MNTSTAT
           (447/1) VIA CMDSTAT AND THE OLDER RECORDS PRODUCED BY THE D3.0 TAPESTAT PROGRAM.
0          Referenced by comments of: 447/1 
00447/004   MOUNT STATISTICS         SAVMS PGM       OC  G          WSG:SAVMS(1000)                                                 
            D4.2T1  221  MOUNT_STATISTICS.SAVMS_PG.OC.004   1 LINE     80    2 PAGE UM   WSG                 MAR. 26, 1979  02:54:16
00447/005A  MOUNT STATISTICS         MSSCN PGM       SA  G  MSSN    WSG:MSSCN(1,999)                                                
            4.3T1   244  MOUNT_STATISTICS.MSSCN_PG.SA.005   1 LINE     80   13 PAGE UM   WSG                 APR. 05, 1980  14:43:32
                         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/006A  MOUNT STATISTICS         MSSCN PGM       OC  G          SYS:MSSCN                                                       
            4.3T1   245  MOUNT_STATISTICS.MSSCN_PG.OC.006   1 LINE     80    3 PAGE UM   WSG                 APR. 05, 1980  14:43:34
                         SYS.:MSSCN           
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00447/007   MOUNT STATISTICS         *MSS            C              *MSS                                                            
            D4.2T1  224  MOUNT_STATISTICS.*MSS.C.007        1 LINE     54    1 PAGE UM   WSG                 MAR. 26, 1979  02:54:18
                         *MSS                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN MSSCN (447/5).  INVOKED BY ENTERING
           "MTS *MSS" ON THE OPERATOR'S CONSOLE.
00447/008   MOUNT STATISTICS         MSDEL PGM       SA  G  MSDL    WSG:MSDEL(1,999)                                                
            D4T1    992  MOUNT_STATISTICS.MSDEL_PG.SA.008   1 LINE     80    4 PAGE UM   WSG                 JULY 27, 1977  03:20:25
                         WSG.:MSDEL           
0          PROGRAM USED TO DELETE UNWANTED RECORDS FROM THE MOUNT STATISTICS FILE
           SYS:MOUNTSTAT.  IT ASKS FOR RACK NUMBERS TO BE DELETED, WHICH MUST BE ENTERED
           ONE PER LINE, FOLLOWED BY AN END-OF-FILE.  IT MAKES ONE PASS THROUGH SYS:MOUNTSTAT,
           WHICH IS LOCKED FOR MODIFICATION, AND DELETES ANY RECORD WHICH HAS ONE OF THE
           SPECIFIED RACK NUMBERS.  AT UM, THIS PROGRAM IS RUN PERIODICALLY TO CLEAN OUT
           OLD SERIES OF RACK NUMBERS TO KEEP SYS:MOUNTSTAT AT A REASONABLE SIZE.  THIS
           PROGRAM WILL NEVER DELETE ANY RECORD WHICH HAS NOT BEEN PREVIOUSLY SAVED ON TAPE
           AND WILL HANDLE A FILE WHICH IS A MIXTURE OF RECORDS PRODUCED BY MNTSTAT (447/1)
           AND THE D3.0 TAPESTAT PROGRAM (NOW OBSOLETE).
0          Referenced by comments of: 447/1 
00447/009   MOUNT STATISTICS         MSDEL PGM       OC  G          WSG:MSDEL(1000)                                                 
            D4T1    993  MOUNT_STATISTICS.MSDEL_PG.OC.009   1 LINE     80    2 PAGE UM   WSG                 JULY 27, 1977  03:20:27
00447/010   MOUNT STATISTICS         SYS:MOUNTSTAT   D            # MTS:TST.MOUNTSTA                                                
                                                                                    UM   WSG                                        
                         SYS:MOUNTSTAT        
00449      *DEB                                      S            # (OBSOLETED BY *SORT)                                            
            D2T1    341                                                             UM                                              
00451       CATALOG VERIFY - VNTD                                 # (SEE COMP 682)                                                  
                                                                                    UM                                              
00453/001   DRUM INIT <STAND-ALONE>                  SA     DNIT    S0722 'D3T3' FSNAME=DRUM_INIT_<STAND-ALONE>..SA.1(1)          15
            D4T1    994  DRUM_INIT_<STAND-ALONE>..SA.001    1 SEQ      80    7 PAGE UM   DWB                 AUG. 01, 1973  18:21.35
0          STAND ALONE PROGRAM TO FORMAT DRUMS.  HAS REP CARDS TO DEFINE CERTAIN PARAMETERS.
           UNCHANGED SINCE DIST 2.0
00453/002   DRUM INIT <STAND-ALONE>                  OC             S0722 'D3T3' FSNAME=DRUM_INIT_<STAND-ALONE>..OC.2(1)          16
            D4T1    995  DRUM_INIT_<STAND-ALONE>..OC.002    1 SEQ      80    6 PAGE UM   DWB                 AUG. 01, 1973  18:21.37
00455       DBS:MAC                                  SM           # (OBSOLETE)                                                      
            D3T3     17  DBS:MAC..SM.                       1 LINE     66    3 PAGE UM                       AUG. 01, 1973  18:21.38
00456      *CONFIG                                   SA           # (OBSOLETE)                                                      
            D2T1    318                                                             UM                                              
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00457       TPSBUFFER                                SA           # (OBSOLETE)                                                      
            D2T1    147                                                             UM                                              
00458/001   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  1  
            D4T1    996  OLTEP.21.7_SOURCE.SA.001           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:06
0          458/1 THROUGH 458/76 CONTAIN THE SOURCE FOR OS/360 RELEASE 21.7 OLTEP.
           THIS IS ASSEMBLED WITH *OSMAC AND OLTEPMACLIB (458/77).
           OLTEP IS RUN UNDER FAKEOS (SEE COMP 545).
0          Referenced by comments of: 338/1 
00458/002   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  2  
            D4T1    997  OLTEP.21.7_SOURCE.SA.002           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:07
00458/003   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  3  
            D4T1    998  OLTEP.21.7_SOURCE.SA.003           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:09
00458/004   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  4  
            D4T1    999  OLTEP.21.7_SOURCE.SA.004           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:12
00458/005   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  5  
            D4T1   1000  OLTEP.21.7_SOURCE.SA.005           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:14
00458/006   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  6  
            D4T1   1001  OLTEP.21.7_SOURCE.SA.006           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:16
00458/007   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  7  
            D4T1   1002  OLTEP.21.7_SOURCE.SA.007           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:18
00458/008   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  8  
            D4T1   1003  OLTEP.21.7_SOURCE.SA.008           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:21
00458/009   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  9  
            D4T1   1004  OLTEP.21.7_SOURCE.SA.009           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:23
00458/010   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  10 
            D4T1   1005  OLTEP.21.7_SOURCE.SA.010           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:25
00458/011   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  11 
            D4T1   1006  OLTEP.21.7_SOURCE.SA.011           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:28
00458/012   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  12 
            D4T1   1007  OLTEP.21.7_SOURCE.SA.012           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:30
00458/013   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  13 
            D4T1   1008  OLTEP.21.7_SOURCE.SA.013           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:32
00458/014   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  14 
            D4T1   1009  OLTEP.21.7_SOURCE.SA.014           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:35
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00458/015   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  15 
            D4T1   1010  OLTEP.21.7_SOURCE.SA.015           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:37
00458/016   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  16 
            D4T1   1011  OLTEP.21.7_SOURCE.SA.016           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:39
00458/017   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  17 
            D4T1   1012  OLTEP.21.7_SOURCE.SA.017           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:41
00458/018   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  18 
            D4T1   1013  OLTEP.21.7_SOURCE.SA.018           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:44
00458/019   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  19 
            D4T1   1014  OLTEP.21.7_SOURCE.SA.019           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:46
00458/020   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  20 
            D4T1   1015  OLTEP.21.7_SOURCE.SA.020           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:48
00458/021   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  21 
            D4T1   1016  OLTEP.21.7_SOURCE.SA.021           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:51
00458/022   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  22 
            D4T1   1017  OLTEP.21.7_SOURCE.SA.022           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:53
00458/023   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  23 
            D4T1   1018  OLTEP.21.7_SOURCE.SA.023           1 SEQ      80    1 PAGE UM   MTA                 JULY 27, 1977  03:23:55
00458/024   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  24 
            D4T1   1019  OLTEP.21.7_SOURCE.SA.024           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:23:58
00458/025   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  25 
            D4T1   1020  OLTEP.21.7_SOURCE.SA.025           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:24:00
00458/026   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  26 
            D4T1   1021  OLTEP.21.7_SOURCE.SA.026           1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  03:24:02
00458/027   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  27 
            D4T1   1022  OLTEP.21.7_SOURCE.SA.027           1 SEQ      80   35 PAGE UM   MTA                 JULY 27, 1977  03:24:06
00458/028   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  28 
            D4T1   1023  OLTEP.21.7_SOURCE.SA.028           1 SEQ      80   19 PAGE UM   MTA                 JULY 27, 1977  03:24:07
00458/029   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  29 
            D4T1   1024  OLTEP.21.7_SOURCE.SA.029           1 SEQ      80   24 PAGE UM   MTA                 JULY 27, 1977  03:24:10
00458/030   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  30 
            D4T1   1025  OLTEP.21.7_SOURCE.SA.030           1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  03:24:12
00458/031   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  31 
            D4T1   1026  OLTEP.21.7_SOURCE.SA.031           1 SEQ      80   26 PAGE UM   MTA                 JULY 27, 1977  03:24:14
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00458/032   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  32 
            D4T1   1027  OLTEP.21.7_SOURCE.SA.032           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:24:16
00458/033   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  33 
            D4T1   1028  OLTEP.21.7_SOURCE.SA.033           1 SEQ      80   23 PAGE UM   MTA                 JULY 27, 1977  03:24:19
00458/034   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  34 
            D4T1   1029  OLTEP.21.7_SOURCE.SA.034           1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  03:24:21
00458/035   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  35 
            D4T1   1030  OLTEP.21.7_SOURCE.SA.035           1 SEQ      80    8 PAGE UM   MTA                 JULY 27, 1977  03:24:23
00458/036   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  36 
            D4T1   1031  OLTEP.21.7_SOURCE.SA.036           1 SEQ      80    7 PAGE UM   MTA                 JULY 27, 1977  03:24:25
00458/037   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  37 
            D4T1   1032  OLTEP.21.7_SOURCE.SA.037           1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  03:24:27
00458/038   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  38 
            D4T1   1033  OLTEP.21.7_SOURCE.SA.038           1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  03:24:30
00458/039   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  39 
            D4T1   1034  OLTEP.21.7_SOURCE.SA.039           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:24:32
00458/040   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  40 
            D4T1   1035  OLTEP.21.7_SOURCE.SA.040           1 SEQ      80   16 PAGE UM   MTA                 JULY 27, 1977  03:24:35
00458/041   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  41 
            D4T1   1036  OLTEP.21.7_SOURCE.SA.041           1 SEQ      80    8 PAGE UM   MTA                 JULY 27, 1977  03:24:37
00458/042   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  42 
            D4T1   1037  OLTEP.21.7_SOURCE.SA.042           1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  03:24:39
00458/043   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  43 
            D4T1   1038  OLTEP.21.7_SOURCE.SA.043           1 SEQ      80   37 PAGE UM   MTA                 JULY 27, 1977  03:24:42
00458/044   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  44 
            D4T1   1039  OLTEP.21.7_SOURCE.SA.044           1 SEQ      80   17 PAGE UM   MTA                 JULY 27, 1977  03:24:44
00458/045   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  45 
            D4T1   1040  OLTEP.21.7_SOURCE.SA.045           1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  03:24:46
00458/046   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  46 
            D4T1   1041  OLTEP.21.7_SOURCE.SA.046           1 SEQ      80   31 PAGE UM   MTA                 JULY 27, 1977  03:24:49
00458/047   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  47 
            D4T1   1042  OLTEP.21.7_SOURCE.SA.047           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:24:51
00458/048   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  48 
            D4T1   1043  OLTEP.21.7_SOURCE.SA.048           1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  03:24:53
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00458/049   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  49 
            D4T1   1044  OLTEP.21.7_SOURCE.SA.049           1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  03:24:56
00458/050   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  50 
            D4T1   1045  OLTEP.21.7_SOURCE.SA.050           1 SEQ      80   10 PAGE UM   MTA                 JULY 27, 1977  03:24:58
00458/051   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  51 
            D4T1   1046  OLTEP.21.7_SOURCE.SA.051           1 SEQ      80    5 PAGE UM   MTA                 JULY 27, 1977  03:25:00
00458/052   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  52 
            D4T1   1047  OLTEP.21.7_SOURCE.SA.052           1 SEQ      80   24 PAGE UM   MTA                 JULY 27, 1977  03:25:03
00458/053   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  53 
            D4T1   1048  OLTEP.21.7_SOURCE.SA.053           1 SEQ      80   27 PAGE UM   MTA                 JULY 27, 1977  03:25:05
00458/054   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  54 
            D4T1   1049  OLTEP.21.7_SOURCE.SA.054           1 SEQ      80   24 PAGE UM   MTA                 JULY 27, 1977  03:25:07
00458/055   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  55 
            D4T1   1050  OLTEP.21.7_SOURCE.SA.055           1 SEQ      80   33 PAGE UM   MTA                 JULY 27, 1977  03:25:10
00458/056   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  56 
            D4T1   1051  OLTEP.21.7_SOURCE.SA.056           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:25:12
00458/057   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  57 
            D4T1   1052  OLTEP.21.7_SOURCE.SA.057           1 SEQ      80   39 PAGE UM   MTA                 JULY 27, 1977  03:25:15
00458/058   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  58 
            D4T1   1053  OLTEP.21.7_SOURCE.SA.058           1 SEQ      80   32 PAGE UM   MTA                 JULY 27, 1977  03:25:17
00458/059   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  59 
            D4T1   1054  OLTEP.21.7_SOURCE.SA.059           1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  03:25:19
00458/060   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  60 
            D4T1   1055  OLTEP.21.7_SOURCE.SA.060           1 SEQ      80   20 PAGE UM   MTA                 JULY 27, 1977  03:25:21
00458/061   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  61 
            D4T1   1056  OLTEP.21.7_SOURCE.SA.061           1 SEQ      80   18 PAGE UM   MTA                 JULY 27, 1977  03:25:23
00458/062   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  62 
            D4T1   1057  OLTEP.21.7_SOURCE.SA.062           1 SEQ      80    8 PAGE UM   MTA                 JULY 27, 1977  03:25:25
00458/063   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  63 
            D4T1   1058  OLTEP.21.7_SOURCE.SA.063           1 SEQ      80   10 PAGE UM   MTA                 JULY 27, 1977  03:25:28
00458/064   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  64 
            D4T1   1059  OLTEP.21.7_SOURCE.SA.064           1 SEQ      80   12 PAGE UM   MTA                 JULY 27, 1977  03:25:30
00458/065   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  65 
            D4T1   1060  OLTEP.21.7_SOURCE.SA.065           1 SEQ      80   38 PAGE UM   MTA                 JULY 27, 1977  03:25:33
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00458/066   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  66 
            D4T1   1061  OLTEP.21.7_SOURCE.SA.066           1 SEQ      80    7 PAGE UM   MTA                 JULY 27, 1977  03:25:34
00458/067   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  67 
            D4T1   1062  OLTEP.21.7_SOURCE.SA.067           1 SEQ      80    3 PAGE UM   MTA                 JULY 27, 1977  03:25:37
00458/068   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  68 
            D4T1   1063  OLTEP.21.7_SOURCE.SA.068           1 SEQ      80   19 PAGE UM   MTA                 JULY 27, 1977  03:25:39
00458/069   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  69 
            D4T1   1064  OLTEP.21.7_SOURCE.SA.069           1 SEQ      80   13 PAGE UM   MTA                 JULY 27, 1977  03:25:42
00458/070   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  70 
            D4T1   1065  OLTEP.21.7_SOURCE.SA.070           1 SEQ      80   15 PAGE UM   MTA                 JULY 27, 1977  03:25:44
00458/071   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  71 
            D4T1   1066  OLTEP.21.7_SOURCE.SA.071           1 SEQ      80   24 PAGE UM   MTA                 JULY 27, 1977  03:25:47
00458/072   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  72 
            D4T1   1067  OLTEP.21.7_SOURCE.SA.072           1 SEQ      80   11 PAGE UM   MTA                 JULY 27, 1977  03:25:48
00458/073   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  73 
            D4T1   1068  OLTEP.21.7_SOURCE.SA.073           1 SEQ      80    2 PAGE UM   MTA                 JULY 27, 1977  03:25:50
00458/074   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  74 
            D4T1   1069  OLTEP.21.7_SOURCE.SA.074           1 SEQ      80   21 PAGE UM   MTA                 JULY 27, 1977  03:25:53
00458/075   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  75 
            D4T1   1070  OLTEP.21.7_SOURCE.SA.075           1 SEQ      80   26 PAGE UM   MTA                 JULY 27, 1977  03:25:56
00458/076   OLTEP                    21.7 SOURCE     SA  G          S0710 OLTEP                                                  76 
            D4T1   1071  OLTEP.21.7_SOURCE.SA.076           1 SEQ      80    9 PAGE UM   MTA                 JULY 27, 1977  03:25:58
00458/077   OLTEP                    OLTEPMACLIB     SM  G          S0938 FSAVE2 VLO FSNAME=OLTEPMACLIB(1)                          
            D4T1   1072  OLTEP.OLTEPMACLIB.SM.077           1 LINE     72   56 PAGE UM   MTA                 SEP. 23, 1975  00:49:30
0          MACROS, SOME OF WHICH ARE USED BY OLTEP -- NOT SURE WHICH MACROS ARE NOT NEEDED.
0          Referenced by comments of: 458/1 
00458/078   OLTEP                    OBJECT          OC  G          ETC:OLTEP                                                       
            D4T1   1073  OLTEP.OBJECT.OC.078                1 SEQ     920    2 PAGE UM   MTA                 JULY 27, 1977  03:26:41
                         ETC.:OLTEP           
0          OBJECT FOR OLTEP MAIN PROGRAM AND IFDOLT59, WHICH IS INCLUDED TO GET THE RIGHT
           DEFINITION OF SOME MULTIPLY DEFINED SYMBOLS.
00458/079   OLTEP                    OLTEPLIB        OL  G          ETC:OLTEPLIB                                                    
            D4.2T1  225  OLTEP.OLTEPLIB.OL.079              1 LINE   2572   64 PAGE UM   MTA                 MAR. 26, 1979  02:54:19
                         ETC.:OLTEPLIB        
0          OBJECT LIBRARY FOR THE REST OF OLTEP.  SOME MODULES WHICH ARE NOT USED IN MTS ARE INCLUDED.
           THE FOLLOWING PATCHES ARE INCLUDED BECAUSE THESE MODULES USE MACROS WHICH ARE NOT IN *OSMAC:
           TO IFDOLT20:   REP  000000  0141F00020,07FE
1                                                                                               SUN SEP 08/96   19:03:19   Page  155
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          TO IFDOLT22:   REP  000386  014700
0          Referenced by comments of: 458/80 
00458/080   OLTEP                    OLTEPBLDLIN     D   G          MTA:OLTEPBLDLIN                                                 
            D4.2T1  226  OLTEP.OLTEPBLDLIN.D.080            1 LINE     60    1 PAGE UM   MTA                 MAR. 26, 1979  02:54:23
                         MTA.:OLTEPBLDLIN     
0          INPUT TO CREBLDL (545/38) FOR OLTEP.  CONTAINS ENTRIES FOR THINGS IN
           OLTEPLIB (458/79), BUT NOT OLTEPCDSLIB (458/86) OR OLTEPTSTLIB (458/82).
00458/081A  OLTEP                    OLTEPBLDL       D   G          ETC:OLTEPBLDL                                                   
            4.3T1   246  OLTEP.OLTEPBLDL.D.081              1 SEQ     250   10 PAGE UM   MTA                 APR. 05, 1980  14:43:37
                         ETC.:OLTEPBLDL       
0          BLDL INFO FOR OLTEP.  CREATED BY CREBLDL (545/38) USING 458/80, 458/83, AND 
           458/85 AS INPUT.
00458/082A  OLTEP                    OLTEPTSTLIB     OL  G          MTS:OLTEPTSTLIB                                                 
            4.3T1   247  OLTEP.OLTEPTSTLIB.OL.082           1 LINE  26386  239 PAGE UM   MTA                 APR. 05, 1980  14:43:40
                         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).
0          Referenced by comments of: 458/80 
00458/083A  OLTEP                    OLTEPTSTBLDL    D              MTA:OLTEPTSTBLDL                                                
            4.3T1   248  OLTEP.OLTEPTSTBLDL.D.083           1 LINE     60    7 PAGE UM   MTA                 APR. 05, 1980  14:43:58
                         MTA:OLTEPTSTBLDL     
0          INPUT TO CREBLDL (545/38) FOR 458/82.
0          Referenced by comments of: 458/82 
00458/084A  OLTEP                    OLTEPCDS        D              MTA:OLTEPCDS                                                    
            4.3T1   249  OLTEP.OLTEPCDS.D.084               1 LINE     64    9 PAGE UM   MTA                 APR. 05, 1980  14:44:01
                         MTA.:OLTEPCDS        
0          INPUT TO SOSPB TO PRODUCE  A CDS FOR THE UM HARDWARE CONFIGURATION.  THIS
           MUST BE COPIED TO A TAPE AND THE TAPE USED AS INPUT TO SOSPB (WITH THE OLTSEP
           TAPE AND AN OUTPUT TAPE ALSO AVAILABLE).
0          Referenced by comments of: 458/86 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00458/085A  OLTEP                    OLTEPCDSBLDL    D              MTA:OLTEPCDSBLDL                                                
            4.3T1   250  OLTEP.OLTEPCDSBLDL.D.085           1 LINE     60   14 PAGE UM   MTA                 APR. 05, 1980  14:44:03
                         MTA.:OLTEPCDSBLDL    
0          INPUT TO CREBLDL FOR THE UM CONFIGURATION CDS.
00458/086A  OLTEP                    OLTEPCDSLIB     OL  G          ETC:OLTEPCDSLIB                                                 
            4.3T1   251  OLTEP.OLTEPCDSLIB.OL.086           1 LINE   8760   26 PAGE UM   MTA                 APR. 05, 1980  14:44:06
                         ETC.:OLTEPCDSLIB     
0          LIBRARY OF CDS ENTRIES FOR THE UM CONFIGURATION PRODUCED BY SOSP READING
           OLTEPCDS (458/84).
0          Referenced by comments of: 458/80 
00458/087   OLTEP                    OLTEPOBJCVT     SA  O          MTA:OLTEPOBJCVT(1,999)                                          
            D4T1   1081  OLTEP.OLTEPOBJCVT.SA.086           1 LINE     80    4 PAGE UM   MTA                 JULY 27, 1977  03:27:09
                         MTA.:OLTEPOBJCVT     
0          PROGRAM TO CONVERT OLTSEP, OLTEP, OR CDS DECKS WITH OR WITHOUT OS LINKEDIT
           CONTROL CARDS TO MTS FORMAT AND PRODUCE INPUT TO CREBLDL FOR THEM.  THE INPUT
           IS READ FROM SCARDS; THE MTS OBJECT DECKS ARE WRITTEN ON SPUNCH; A PROTOTYPE
           BLDL RECORD IS READ FROM UNIT 0; AND BLDL OUTPUT RECORDS WITH CORRECT NAME
           AND LENGTH ARE WRITTEN ON UNIT 1.
00458/088   OLTEP                    OLTEPOBJCVT     OC  O          MTA:OLTEPOBJCVT(1000)                                           
            D4T1   1082  OLTEP.OLTEPOBJCVT.OC.087           1 LINE     80    3 PAGE UM   MTA                 JULY 27, 1977  03:27:11
00458/089C  OLTEP                    CDS CREATE PGM  SA  G          MTA:OLTEPCRECDS(1,999)                                          
            4.3T1   252  OLTEP.CDS_CREATE_PGM.SA.089        1 LINE     72    4 PAGE UM   MTA                 APR. 05, 1980  14:44:09
                         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.
00458/090C  OLTEP                    CDS CREATE PGM  OC  G          MTA:OLTEPCRECDS(1000)                                           
            4.3T1   253  OLTEP.CDS_CREATE_PGM.OC.090        1 LINE     80    4 PAGE UM   MTA                 APR. 05, 1980  14:44:11
00458/091A  OLTEP                    OLTEPCMD        C              MTA:OLTEPCMD                                                    
            4.3T1   254  OLTEP.OLTEPCMD.C.091               1 LINE     95    1 PAGE UM   MTA                 APR. 05, 1980  14:44:14
                         MTA.:OLTEPCMD        
0          THE FOLLOWING PROCEDURES SHOULD BE USED FOR RELEASE 21.7 OLTEP.
           TO RUN OLTEP, ISSUE THE FOLLOWING COMMAND:
            
             $SOURCE OLTEPCMD
            
           WHERE OLTEPCMD IS 458/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.
1                                                                                               SUN SEP 08/96   19:03:19   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          (3)  ALL COMMUNICATION IS VIA THE TERMINAL, NOT THE OPERATOR'S CONSOLE.
           (4)  IT IS NOT NECESSARY TO TYPE "R 00,'XXX'", SINCE "XXX" IS TREATED IN EXACTLY THE SAME WAY.
           (5)  THE PRINTED OUTPUT FROM OLTEP (REFERED TO AS THE DIAGMSG DD IN THE MANUAL) WILL BE PUT
                IN THE TEMPORARY FILE -DIAG WHICH MAY BE COPIED TO *PRINT* AFTER OLTEP TERMINATES.
00459      *ICSERIES                                 S            # (OBSOLETE)                                                      
            D2T2    155                                                             UM                                              
00460       WIREWRAP TEST                                         # (OBSOLETE)                                                      
            D2T2    156                                                             UM                                              
00461/001   DISTRIBUTION             DEDIT           SA  G          WSG:DEDIT                                                       
            D4.2T1  233  DISTRIBUTION.DEDIT.SA.001          1 LINE     72   28 PAGE UM   WSG                 MAR. 26, 1979  02:54:43
                         WSG.:DEDIT           
0          DISTRIBUTION DRIVER FILE EDITOR USED TO CONSTRUCT AND EDIT DRIVER FILES.
           COPIES COPY:DRDSECT (461/11) AND *CNFGINFODSECT (654).
0          Referenced by comments of: 461/11 
00461/002   DISTRIBUTION             *DEDIT          OE  G          *DEDIT                                                          
            D4.2T1  234  DISTRIBUTION.*DEDIT.OE.002         1 LINE  11192    6 PAGE UM   WSG                 MAR. 26, 1979  02:54:45
                         *DEDIT               
00461/003   DISTRIBUTION             5-LINE          SA  G  5LIN    S0722 'D3T3' FSNAME=DISTRIBUTION.5-LINE.SA.7(1)               31
            D4T1   1086  DISTRIBUTION.5-LINE.SA.003         1 LINE     80    8 PAGE UBC  HOGG                MAR. 01, 1973  19:33:27
0          PROGRAM TO PRINT THE FIRST 5 AND LAST 5 LINES OF EACH FILE ON A *FS TAPE.  USED TO VERIFY DIST TAPE CONTENTS.
00461/004   DISTRIBUTION             5-LINE          OC  G          MTS:FS5L                                                        
            D4T1   1087  DISTRIBUTION.5-LINE.OC.004         1 LINE     80    3 PAGE UBC  HOGG                JULY 27, 1977  03:27:34
                         MTS.:FS5L            
00461/005A  DISTRIBUTION             6250 DRIVER     D              DIST:DRIVER6250                                                 
            4.3T2   573  DISTRIBUTION.6250_DRIVER.D.005     1 LINE    264  307 PAGE UM   SWEET               MAY  22, 1980  03:10:25
                         DIST:DRIVER6250      
0          THIS IS THE COMPLETE DRIVER FILE FOR THE 6250 BPI VERSION OF UM D4.3.  ITEMS
           INCLUDED IN D4.3 ARE MARKED WITH REVISION LEVELS AS FOLLOWS:
            
           REVL=A    COMPONENTS WHICH HAVE CHANGED SINCE D4.2.  THESE MAY HAVE BEEN 
                     SENT ON RD4.2A (RD16), RD4.2B, OR RD4.2C.
            
           REVL=C    NEW SUBCOMPONENTS WHICH HAVE BEEN ADDED TO THE 
                     PRODUCTION SYSTEM AT UM SINCE RD4.2C.
0          Referenced by comments of: 461/13 
00461/006A  DISTRIBUTION             1600 DRIVER     D              DIST:DRIVER1600                                                 
            4.3T2   574  DISTRIBUTION.1600_DRIVER.D.006     1 LINE    264  307 PAGE UM   SWEET               MAY  22, 1980  03:13:25
                         DIST:DRIVER1600      
0          THIS IS THE COMPLETE DRIVER FILE FOR THE 1600 BPI VERSION OF UM D4.3.  ITEMS
           INCLUDED IN D4.3 ARE MARKED WITH REVISION LEVELS AS FOLLOWS:
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           REVL=A    COMPONENTS WHICH HAVE CHANGED SINCE D4.2.  THESE MAY HAVE BEEN 
                     SENT ON RD4.2A (RD16), RD4.2B, OR RD4.2C.
            
           REVL=C    NEW SUBCOMPONENTS WHICH HAVE BEEN ADDED TO THE 
                     PRODUCTION SYSTEM AT UM SINCE RD4.2C.
0          Referenced by comments of: 461/14 
00461/007A  DISTRIBUTION             DRIVER COMMENT  D              DIST:COMM                                                       
            4.3T2   575  DISTRIBUTION.DRIVER_COMME.D.007    1 LINE    138  177 PAGE UM   SWEET               MAY  22, 1980  03:13:45
                         DIST:COMM            
0          THIS IS THE COMMENT FILE FOR THE RD16 DRIVER FILES (461/5 AND 461/6).  LINE NUMBERS IN
           THIS FILE ARE IMPORTANT.
00461/008A  DISTRIBUTION             NEW SYSTEMS     WF             DIST:NEWSYS.WF                                                  
            4.3T2   558  DISTRIBUTION.NEW_SYSTEMS.WF.008    1 LINE    167    5 PAGE UM   WSG                 MAY  22, 1980  01:48:26
                         DIST:NEWSYS.WF       
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.2 AT NEW INSTALLATIONS,
           I.E. INSTALLATIONS WHICH HAVE NOT PREVIOUSLY USED MTS.
            
           *****************
           Does this need to be updated for d5.0?
           *****************
00461/009A  DISTRIBUTION             OLD SYSTEMS     WF             DIST:OLDSYS.WF                                                  
            4.3T2   559  DISTRIBUTION.OLD_SYSTEMS.WF.009    1 LINE    118    9 PAGE UM   WSG                 MAY  22, 1980  01:48:28
                         DIST:OLDSYS.WF       
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.2 AT OLD INSTALLATIONS,
           I.E. INSTALLATIONS WHICH HAVE PREVIOUSLY USED MTS.
            
           *****************
           Does this need to be updated for d5.0?
           *****************
00461/010A  DISTRIBUTION             GENERAL NOTES   WF             DIST:GENNOTES.WF                                                
            4.3T2   560  DISTRIBUTION.GENERAL_NOTE.WF.010   1 LINE    147   11 PAGE UM   WSG                 MAY  22, 1980  01:48:30
                         DIST:GENNOTES.WF     
0          GENERAL NOTES ON DISTRIBUTION 4.2.
00461/011   DISTRIBUTION             DRIVER DSECT    SA  G  DRVD    COPY:DRDSECT                                                    
            D4.1T1  163  DISTRIBUTION.DRIVER_DSECT.SA.010   1 LINE     80    3 PAGE UM   WSG                 MAY  13, 1978  17:21:51
                         COPY:DRDSECT         
0          COPY SECTION FOR THE DRIVER FILE DSECT USED BY *FS (548) AND *DEDIT (461/1).
           IT DEFINES THE STRUCTURE OF A DISTRIBUTION DRIVER FILE RECORD.
0          Referenced by comments of: 461/1, 548/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00461/012   DISTRIBUTION             DRIV INDEX GEN  C              DIST:DISTINDEX                                                  
            D4.2T1  236  DISTRIBUTION.DRIV_INDEX_G.C.012    1 LINE    133    1 PAGE UM   SWEET               MAR. 26, 1979  02:55:09
                         DIST:DISTINDEX       
0          COMMAND FILE TO PRODUCE A DRIVER FILE ALPHABETIZED INDEX.
00461/013A  DISTRIBUTION             6250 INDEX      P              DIST:INDEX6250                                                  
            4.3T2   576  DISTRIBUTION.6250_INDEX.P.013      1 LINE    133  184 PAGE UM   SWEET               MAY  22, 1980  03:14:00
                         DIST:INDEX6250       
0          INDEX FOR THE 6250 BPI DRIVER FILE (461/5).  COPY TO A TN PRINTER.
00461/014A  DISTRIBUTION             1600 INDEX      P              DIST:INDEX1600                                                  
            4.3T2   577  DISTRIBUTION.1600_INDEX.P.014      1 LINE    133  184 PAGE UM   SWEET               MAY  22, 1980  03:14:10
                         DIST:INDEX1600       
0          INDEX FOR THE 1600 BPI DRIVER FILE (461/6).  COPY TO A TN PRINTER.
00461/015A  DISTRIBUTION             D4.3 MEMO LIST  WF             DIST:MEMOLIST                                                   
            4.3T1   255  DISTRIBUTION.D4.3_MEMO_LI.WF.015   1 LINE    110    3 PAGE UM   SWEET               APR. 05, 1980  15:07:10
0          WRITEUP SHOWING THE STATUS OF ALL COMPUTING CENTER MEMOS AT THE TIME OF D4.2.
           DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6).
00461/016   DISTRIBUTION             CHG FORMS CMDS  C              MTS:CHANGEFORMS                                                 
            D4.1T1  166  DISTRIBUTION.CHG_FORMS_CM.C.014    1 LINE     66    1 PAGE UM   DWB                 MAY  13, 1978  17:21:58
                         MTS.:CHANGEFORMS     
0          COMMAND FILE TO RUN THE DISTRIBUTION CHANGE FORM GENERATION PROGRAM (461/17)
           WHICH READS THE CHANGE FORM DATA FILE (461/18) TO PRODUCE CHANGE FORMS IN THE
           FILE -FORMS.
00461/017   DISTRIBUTION             CHG FORMS PGM   SS  G          MTS:CHGFORMPGM                                                  
            D4.2T2  518  DISTRIBUTION.CHG_FORMS_PG.SS.017   1 LINE     78    3 PAGE UM   DWB                 APR. 09, 1979  00:16:29
                         MTS.:CHGFORMPGM      
0          SPITBOL PROGRAM TO PROCESS THE CHANGE FORM DATA FILE (461/18) AND PRODUCE CHANGE
           FORMS.
0          Referenced by comments of: 461/16, 461/18 
00461/018A  DISTRIBUTION             CHG FORMS DATA  D              MTS:CHGFORMDATA                                                 
            4.3T1   256  DISTRIBUTION.CHG_FORMS_DA.D.018    1 LINE     91   81 PAGE UM   DWB                 APR. 05, 1980  15:07:11
                         MTS.:CHGFORMDATA     
0          DATA FILE OF CHANGE FORMS RELEVANT TO THE D4 DISTRIBUTION.  TO BE USED AS INPUT
           TO THE CHANGE FORM PROGRAM (461/17) TO PRODUCE THE ACTUAL PRINTED FORMS.  THE
           CONSTRUCTION OF THIS DATA FILE IS DESCRIBED IN 461/19.
0          Referenced by comments of: 461/16, 461/17, 461/19 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00461/019   DISTRIBUTION             CHG FORMS DESC  WF             DWB:CHGFORMNOTE                                                 
            D4.1T1  169  DISTRIBUTION.CHG_FORMS_DE.WF.017   1 LINE     68    3 PAGE UM   DWB                 MAY  13, 1978  17:22:07
                         DWB.:CHGFORMNOTE     
0          MEMO TO UM COMPUTING CENTER STAFF ABOUT HOW TO CONSTRUCT THE CHANGE FORMS
           DATA FILE (461/18).
00461/020   DISTRIBUTION             MEMO 378        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M378                              
            D4.1T1  170  DISTRIBUTION.MEMO_378.WF.018       1 LINE     92   11 PAGE UM   PIRKOLA             MAY  13, 1978  17:22:07
0          THIS IS COMPUTING CENTER MEMO 378 -- "SUPPORT CATEGORIES FOR COMPUTING
           CENTER SOFTWARE."
00461/021A  DISTRIBUTION             FM.GEN          SS  G          WSG:FM.GEN                                                      
            4.3T1   257  DISTRIBUTION.FM.GEN.SS.021         1 LINE     75    2 PAGE UM   WSG                 APR. 05, 1980  15:07:20
                         WSG:FM.GEN           
0          MTS COMMANDS AND A SPITBOL PROGRAM TO GENERATE INPUT FOR THE FILE MOVE
           PROGRAM (1020) WHICH CAN BE USED TO BUILD A TEST PACK BASED ON A DRIVER
           FILE.  THE PROGRAM WILL ASK FOR THE FOLLOWING:
              (1) THE NAME OF A FILE WHICH CONTAINS A COMPLETE LIST OF THE FILES
                  CURRENTLY ON THE TEST PACK (POSSIBLY NULL),
              (2) THE NAME OF THE DRIVER FILE, AND 
              (3) THE DRIVER FILE REVISION LEVEL TO BE USED (ENTER A NULL LINE FOR
                  A FULL DISTRIBUTION).
           THE PROGRAM WILL READ THROUGH THE DRIVER FILE AND, FOR LINES WHICH HAVE
           A NON-BLANK DISK NAME FIELD (SEE *DEDIT WRITEUP) AND THE APPROPRIATE
           REVISION LEVEL, IT WILL OUTPUT (ON SPUNCH) RECORDS WHICH CAN BE USED AS
           INPUT TO FILE MOVE.  THE PROGRAM WILL PRINT AN ERROR MESSAGE (ON SPRINT)
           FOR ANY COMPONENT (AT THE SPECIFIED REVISION LEVEL) WHICH HAS A BAD SAVE
           CONTROL FIELD OR WHICH IS LOCATED ON TAPE (SINCE FILE MOVE CAN'T READ
           TAPES).  IT WILL ALSO OUTPUT (ON UNIT 0) A NEW FILE LIST FOR THE PACK,
           I.E., A LIST OF WHAT FILES WILL BE ON THE PACK AFTER FILE MOVE IS RUN.
00461/022A  DISTRIBUTION             MTS431 FILES    D              DIST:MTS431.FILES                                               
            4.3T2   561  DISTRIBUTION.MTS431_FILES.D.022    1 LINE     17    7 PAGE UM   WSG                 MAY  22, 1980  01:48:35
                         DIST:MTS431.FILES    
0          A LIST OF ALL THE FILES ON THE D4.3 DUMP/RESTORE PACK.
00461/023A  DISTRIBUTION             MTS BIB         WF             DIST:MTS.BIB                                                    
            4.3T1   258  DISTRIBUTION.MTS_BIB.WF.023        1 LINE     69    2 PAGE UM   SWEET               APR. 05, 1980  15:07:23
0          BIBLIOGRAPHY OF PUBLISHED PAPERS ABOUT MTS AND FRIENDS.
00461/024C  DISTRIBUTION             DRIVERSCAN      SS  G          DIST:DRIVERSCAN.S                                               
            4.3T1   259  DISTRIBUTION.DRIVERSCAN.SS.024     1 LINE     68    4 PAGE UBC  BERRYMAN  WSG       APR. 05, 1980  15:07:25
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00461/025C  DISTRIBUTION             DRIVERSCAN      OC  G          DIST:DRIVERSCAN                                                 
            4.3T1   260  DISTRIBUTION.DRIVERSCAN.OC.025     1 LINE   8024    5 PAGE UBC  BERRYMAN  WSG       APR. 05, 1980  15:07:27
0          CONTAINS A $CONTINUE WITH *SPITLIB RECORD.
00462       CHECKSUM                                 SA           # (OBSOLETED BY PROTECTION)                                       
            D3T3     36  CHECKSUM..SA.1                     1 SEQ      80    3 PAGE UM                       AUG. 01, 1973  18:30.28
00463/001A  STDDMP SUBR                              SA  G          MTS:STDDMP(1000)                                                
            4.3T1   261  STDDMP_SUBR..SA.001                1 LINE     72    5 PAGE UM   MTA                 APR. 05, 1980  15:07:30
                         MTS:STDDMP           
0          PRODUCES STANDARD FORMAT DUMPS.  SEE ALSO SDUMP (049).
00463/002A  STDDMP SUBR                              OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00464/001   PLIMIT                   D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=PLIM                        
            D4T1   1094  PLIMIT.D4_MASTER.SA.001            1 SEQ      80    3 PAGE UM   MTS       HELFFRICH JULY 27, 1977  03:28:49
0          CHECKS PAGE AND PUNCH LIMITS.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
00464/002A  PLIMIT                   UPDATE          UC  G          MTS:PLIMUPD                                                     
            4.3T1   262  PLIMIT.UPDATE.UC.002               1 LINE     68    1 PAGE UM   MTS       HELFFRICH APR. 05, 1980  15:07:32
                         MTS.:PLIMUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=PLIM.
00464/003A  PLIMIT                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00464/004A  PLIMIT                                   L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=PLIM.LIST             8   
            4.3T1   263  PLIMIT..L.004                      1 SEQ     133   17 PAGE UM   MTS       HELFFRICH APR. 05, 1980  15:07:57
00465/001A *APL                      MTS INTERFACE   SA  G          W170:APL.MTS(1000)                                              
            4.3T1   264  APL.MTS_INTERFACE.SA.001           1 LINE     72   31 PAGE UM   HELFFRICH           APR. 05, 1980  15:07:57
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).
            
           THIS IS A 370-ONLY VERSION OF APL, AND DOES NOT EVER NEED TO BE RUN WITH 
           PROT=OFF.  PREVIOUSLY, THIS HAD TO BE DONE IF APL WAS LOADED INTO SHARED
           VM SO IT WOULD MODIFY ITSELF TO USE MVCL LOGIC TO CLEAR WORKSPACES IF RUNNING
           ON A 370.
            
           *************************************************************************************
           D4.3 CHANGES:
            
           APL NOW PERMITS ALL WORKSPACES IT CREATES R PKEY=*APL.
           *************************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00465/002  *APL                      TRTABS          SA  G  TRTA    S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TRTA.S                    
            D4T1   1099  APL.TRTABS.SA.002                  1 LINE     80   43 PAGE UM   HELFFRICH           MAR. 04, 1977  19:14:31
0          SOURCE FOR THE APL TRANSLATE TABLES TO CONVERT APL INTERNAL CHARACTERS TO EXTERNAL
           CHARACTERS.  INCLUDES TABLES FOR:  1052, 1050, 2741, CORRESPONDENCE 2741, TTY 38
           APL ASSIGNMENT #3, GSI300/DTC300/DTC302, APL2 DEVICES (DDI265), LA36, AND ASCII
           DEVICES.  ASSEMBLE USING THE APL MACRO LIBRARY (465/3).
00465/003  *APL                      MACRO LIBRARY   SM  G  ALIB    S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.MACROS                    
            D4T1   1100  APL.MACRO_LIBRARY.SM.003           1 LINE     80   21 PAGE UM   HELFFRICH           MAR. 04, 1977  19:05:51
0          MACRO LIBRARY CONTAINING MACROS AND COPY SECTIONS REQUIRED FOR ASSEMBLING ALL
           THE APL SOURCE COMPONENTS.
0          Referenced by comments of: 465/1, 465/2, 465/4, 465/5, 465/6, 465/7, 465/8, 465/9, 465/10, 465/11, 465/12, 465/13 
00465/004  *APL                      ARTH UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.ARTH.U                    
            D4T1   1101  APL.ARTH_UPDATE.UU.004             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:17:46
0          UPDATE TO BE APPLIED TO ORIGINAL SOURCE TO YIELD CURRENT UM SOURCE FOR ARTH MODULE.
           THE SUCCEEDING SUB-COMPONENTS (365/5 THROUGH 365/12) ARE SIMILAR.  ARTH CHANGES:
           MACRO FIXUP AND RECOGNITION OF "REVERSAL ALONG FIRST DIMENSION" OPERATOR.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/005  *APL                      DEXP UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DEXP.U                    
            D4T1   1102  APL.DEXP_UPDATE.UU.005             1 LINE     61    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:18:21
0          SEE COMMENTS FOR 465/4.  DEXP CHANGES:  FIX OF BUG CAUSING OCCASIONAL WRONG SIGN
           OF VALUE RETURNED BY SQUARE ROOT.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/006  *APL                      DYIB UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DYIB.U                    
            D4T1   1103  APL.DYIB_UPDATE.UU.006             1 LINE     65    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:18:55
0          SEE COMMENTS FOR 465/4.  DYIB CHANGES:  IMPLEMENTATION OF PRIVILEGED DYADIC OPERATIONS.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/007  *APL                      IBAR UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.IBAR.U                    
            D4T1   1104  APL.IBAR_UPDATE.UU.007             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:19:29
0          SEE COMMENTS FOR 465/4.  IBAR CHANGES:  CHANGE TO RETRIEVAL METHOD FOR TIME OF
           DAY IBEAM.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/008  *APL                      OCTL UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.OCTL.U                    
            D4T1   1105  APL.OCTL_UPDATE.UU.008             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:20:01
0          SEE COMMENTS FOR 465/4.  OCTL CHANGES:  CHANGES FOR CATN.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/009  *APL                      REDU UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.REDU.U                    
            D4T1   1106  APL.REDU_UPDATE.UU.009             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:20:30
0          SEE COMMENTS FOR 465/4.  REDU CHANGES:  YIELDS NONCE ERROR IF "SCAN" OPERATION
           IS ATTEMPTED.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00465/010  *APL                      SLCT UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.SLCT.U                    
            D4T1   1107  APL.SLCT_UPDATE.UU.010             1 LINE     72    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:21:01
0          SEE COMMENTS FOR 465/4.  SLCT CHANGES:  RECOGNITION OF EXPANSION AND COMPRESSION
           ALONG FIRST DIMENSION SYMBOLS.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/011  *APL                      TPIN UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TPIN.U                    
            D4.2T1  242  APL.TPIN_UPDATE.UU.011             1 LINE     72   12 PAGE UM   HELFFRICH           JAN. 16, 1979  15:32:03
0          SEE COMMENTS FOR 465/4.  TPIN CHANGES:  )SYMBOLS COMMAND IMPLEMENTED; BUG RELATING
           TO IGNORING OF INPUT AFTER ATTN INTERRUPT FIXED; CHANGES TO OBTAIN DATE DIFFERENTLY;
           )COPY AND )PCOPY ERROR REPORTING ADDED.  ASSEMBLE RESULT USING THE APL MACRO LIBRARY
           (465/3).
00465/012  *APL                      VECT UPDATE     UU  G          S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.VECT.U                    
            D4T1   1109  APL.VECT_UPDATE.UU.012             1 LINE     65    1 PAGE UM   HELFFRICH           MAR. 04, 1977  19:22:13
0          SEE COMMENTS FOR 465/4.  VECT CHANGES:  CALLS ERROR$ RATHER THAN ERROR.
           ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3).
00465/013  *APL                      CATN            SA  G  ACTN    S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.CATN.S                    
            D4.1T1  179  APL.CATN.SA.013                    1 LINE     80   13 PAGE UM   HELFFRICH           FEB. 02, 1978  15:13:19
0          REWRITE OF CATENATION PROCESSOR TO PROVIDE FULL CATENATION CAPABILITIES IN APL/MTS.
           COPIES OPSECT AND APLDEFN FROM THE APL MACRO LIBRARY (465/3).
00465/014A *APL                      OBJECT          OC  G          SEG2:S2APL                                                      
            4.3T1   265  APL.OBJECT.OC.014                  1 LINE  11225  110 PAGE UM   HELFFRICH           APR. 05, 1980  15:08:07
                         SEG2:S2APL           
0          APL OBJECT LOADED INTO SHARED VM BY PISTLE AT IPL.
0          Referenced by comments of: 465/15 
00465/015  *APL                      *APL            OC  G          *APL                                                            
            D4T1   1112  APL.*APL.OC.015                    1 LINE     24    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:35:49
                         *APL                 
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM APL (465/14).
00465/016  *APL                      MEMO 382        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M382APL                          
            D4.2T1  244  APL.MEMO_382.WF.016                1 LINE    130   12 PAGE UM   HELFFRICH           SEP. 07, 1978  17:00:42
0          THIS IS COMPUTING CENTER MEMO 382 -- "MTS APL USERS' GUIDE".
           NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY.
00466/001   ACTIVCNT/ASTATSUB                        SA  G  ACAS    MTS:ACTIVCNT(1,99)                                              
            D4T1   1114  ACTIVCNT/ASTATSUB..SA.001          1 LINE     80    1 PAGE UM   DWB                 JULY 27, 1977  03:35:53
                         MTS.:ACTIVCNT        
0          ACTIVCNT CONTAINS THE NUMBER OF USERS SIGNED ON AND ASTATSUB IS USED
           TO COMMUNICATE BETWEEN MTS AND THE STAT JOB.
           ACTIVCNT HAS BEEN EXPANDED SINCE DIST 2.0 FROM ONE TO THREE WORDS.  THE EXTRA TWO WORDS (ONE FOR BATCH,
           ONE FOR TERMINAL) ARE INCREMENTED WHENEVER ANYONE SIGNS OFF.  THIS PERMITS PROGRAMS TO MEASURE JOB
1                                                                                               SUN SEP 08/96   19:03:19   Page  164
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          THROUGHPUT CONVENIENTLY.  ASTATSUB IS UNCHANGED SINCE DIST 2.0.
00466/002   ACTIVCNT/ASTATSUB                        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00467/001   ENDSEG2                                  SA  G          MTS:ENDSEG2.S                                                   
            D4.1T1  181  ENDSEG2..SA.001                    1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  17:23:16
0          ASSEMBLY TO MARK THE END OF THE IPLED PART OF SHARED VM.
00467/002   ENDSEG2                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00468/001A  RESIDENT SYSTEM          D4.3 SYS        D              MTS:D4.3SYS                                                     
            4.3T2   562  RESIDENT_SYSTEM.D4.3_SYS.D.001     1 SEQ    4100  161 PAGE UM   WSG                 MAY  22, 1980  01:48:36
                         *IPL.D4.3            
0          RAMROD IPL FILE FOR D4.3 SYSTEM (WITH DUMMY TABLES) ON DUMP/RESTORE PACK.
0          Referenced by comments of: 482/4, 482/26 
00468/002A  RESIDENT SYSTEM          D4.3 UM SYS     D              MTS:TST.IPL.0                                                   
            4.3T2   563  RESIDENT_SYSTEM.D4.3_UM_S.D.002    1 SEQ    4100  172 PAGE UM   WSG                 MAY  22, 1980  01:48:42
                         *IPL.0               
0          RAMROD IPL FILE FOR D4.3 SYSTEM WITH UM I/O CONFIGURATION, BUT ONLY MTS431.
           THIS IS THE "CURRENT" SYSTEM ON THE D4.3 DUMP/RESTORE PACK.
00468/003A  RESIDENT SYSTEM          UM RAMROD       D              MTS:D4.3ROD                                                     
            4.3T2   564  RESIDENT_SYSTEM.UM_RAMROD.D.003    1 SEQ   32767  522 PAGE UM   WSG                 MAY  22, 1980  01:48:48
                         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                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
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/006C  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                                               557
            4.3T1   266  RESIDENT_SYSTEM.WRITEUP.WF.007     1 LINE    145    4 PAGE UM   WSG                 APR. 05, 1980  15:08:19
                         DIST:RESSYS.WF       
0          A WRITEUP DESCRIBING THE STRUCTURE OF THE SYSTEM OBJECT DECKS.
00469       360/20 RJE SUPPORT PGM                   S            # (OBSOLETE)                                                      
            D2T1    094                                                             UM                                              
00470    A  PCB DSECT                COPY:PCBDSECT   SA  G          COPY:PCBDSECT                                                   
            4.3T1   267  PCB_DSECT.COPY:PCBDSECT.SA.        1 LINE     72    2 PAGE UM   MTA                 APR. 05, 1980  15:08:21
                         COPY:PCBDSECT        
0          DSECT FOR THE PAGE CONTROL BLOCK.  COPIED BY THE SUPERVISOR, PDP, AND CONFIG AMONG OTHERS.
0          Referenced by comments of: 44/1, 45/1, 46/1, 400/1, 577/2 
00471       REX                                      SA           # (OBSOLETE)                                                      
            D3.2T1  303  REX.MONITOR.SA.01                  1 LINE     80   78 PAGE UM                       JULY 16, 1974  13:04:27
00472/001  *ST360                    MAIN PGM        SA  G          S0722 'D3T3' FSNAME=ST360.MAIN_PGM.SA.1(1)                    59
            D4T1   1118  ST360.MAIN_PGM.SA.001              1 SEQ      80   41 PAGE UM   MTA                 AUG. 01, 1973  18:40.02
0          THE STUDENT VIRTUAL MACHINE SIMULATOR.  THE SIMULATED MACHINE HAS THE FOLLOWING CHARACTERISTICS:
            
              1.  THE SYSTEM/360 UNIVERSAL INSTRUCTION SET
              2.  NO INTERVAL TIMER
              3.  NO MEMORY PROTECTION
              4.  32K BYTES OF STORAGE
              5.  AN I/O COMPLEMENT CONSISTING OF:
            
                      A. 1052 OPERATOR'S CONSOLE            ADDRESS 0009
                      B. 2540 CARD READER                   ADDRESS 000C
1                                                                                               SUN SEP 08/96   19:03:19   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                     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: 4240/1 
00472/002  *ST360                    CCWTRANS SUBR   SA  G          S0722 'D3T3' FSNAME=ST360.CCWTRANS_SUBR.SA.2(1)               60
            D4T1   1119  ST360.CCWTRANS_SUBR.SA.002         1 SEQ      80   12 PAGE UM   MTA                 AUG. 01, 1973  18:49.51
0          SUBROUTINE CALLED BY 472/1 TO TRANSLATE CCW LISTS.
           UNCHANGED SINCE DIST 2.0.
00472/003  *ST360                    OBJECT          OE  G          *ST360                                                          
            D4T1   1120  ST360.OBJECT.OE.003                1 SEQ    8720    5 PAGE UM   MTA                 JULY 27, 1977  03:36:53
                         *ST360               
00473/001  *1130ASM                  CCD             SA             S0722 'D3T3' FSNAME=1130ASM.CCD.SA.1(1)                       62
            D4T1   1121  1130ASM.CCD.SA.001                 1 SEQ      80   48 PAGE UM   LUBBERS             AUG. 01, 1973  18:51.47
0          IBM ASSEMBLER FOR THE IBM 1130 AND IBM 1800 COMPUTERS.  THIS VERSION HAS BEEN MODIFIED TO RUN IN MTS.
           THIS THING APPEARS TO CONSIST OF 4 ASSEMBLIES AND 1 COPY SECTION.  THE QUESTION IS WHICH IS WHICH.
           WE SUGGEST THAT THE FIRST MAY BE THE COPY SECTION, BUT WE'RE NOT SURE.
00473/002  *1130ASM                  M0              SA             S0722 'D3T3' FSNAME=1130ASM.M0.SA.2(1)                        63
            D4T1   1122  1130ASM.M0.SA.002                  1 SEQ      80    2 PAGE UM   LUBBERS             AUG. 01, 1973  18:51.57
00473/003  *1130ASM                  M12             SA             S0722 'D3T3' FSNAME=1130ASM.M12.SA.3(1)                       64
            D4T1   1123  1130ASM.M12.SA.003                 1 SEQ      80   74 PAGE UM   LUBBERS             AUG. 01, 1973  18:52.43
00473/004  *1130ASM                  M3              SA             S0722 'D3T3' FSNAME=1130ASM.M3.SA.4(1)                        65
            D4T1   1124  1130ASM.M3.SA.004                  1 SEQ      80   89 PAGE UM   LUBBERS             AUG. 01, 1973  18:53.47
00473/005  *1130ASM                  M4              SA             S0722 'D3T3' FSNAME=1130ASM.M4.SA.5(1)                        66
            D4T1   1125  1130ASM.M4.SA.005                  1 SEQ      80   25 PAGE UM   LUBBERS             AUG. 01, 1973  18:54.12
00473/006  *1130ASM                  OBJECT          OC             *1130ASM                                                        
            D4T1   1126  1130ASM.OBJECT.OC.006              1 SEQ      80   18 PAGE UM   LUBBERS             JULY 27, 1977  03:46:47
                         *1130ASM             
00475       OS SIMULATION PACKAGE                    S            # (OBSOLETE)                                                      
            D2T1    284                                                             UM                                              
00476       DBS:MSG                                  S            # (OBSOLETE)                                                      
            D2T1    441                                                             UM                                              
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00480       APF                                      SA           # (OBSOLETE)                                                      
            D2T1    329                                                             UM                                              
00481       FILE SAVE - OLD VERSION                  O            # (OBSOLETE)                                                      
            D2T1    001                                                             UM                                              
00482/001   FILE SYSTEM              DASDUC          SA           # (SEE COMP. 787/7)                                               
                                                                                    UM                                              
00482/002   FILE SYSTEM              DASDUC          OC           # (SEE COMP. 787/8)                                               
                                                                                    UM                                              
00482/003   FILE SYSTEM              MOVE            SA  G          FILE:MOVE                                                       
            D4T1   1129  FILE_SYSTEM.MOVE.SA.003            1 LINE     80    4 PAGE UM   HELFFRICH           JULY 27, 1977  03:46:54
                         FILE:MOVE            
0          SUBROUTINE TO MOVE CORE AROUND.  COPIES *CNFGINFODSECT (654).
00482/004   FILE SYSTEM              MOVE            OC  G          FILE:MOVE.O                                                     
                                                                                    UM   HELFFRICH                                  
                         FILE:MOVE.O          
0          OBJECT ALSO PART OF THE RESIDENT SYSTEM (468/1).
0          Referenced by comments of: 482/40 
00482/005A  FILE SYSTEM              VOLGET          SA  G          FILE:VOLGET(1000)                                               
            4.3T1   268  FILE_SYSTEM.VOLGET.SA.005          1 LINE     72   17 PAGE UM   HELFFRICH           APR. 05, 1980  15:08:23
                         FILE:VOLGET          
0          BASIC LOW LEVEL DISK SUBROUTINES TO EXECUTE CHANNEL PROGRAMS, ETC.  ASSEMBLE USING
           COPY:FILE.MACROS (482/33) AND THE DISK MANAGER MACROS (769/8).  COPIES COPY:GLOBALS 
           (1026/3) AND COPY:LLMPSEQU(100) (087).
            
           *********************************************************************************
           D4.3 CHANGES:
            
           1) VAMX SUPPORT ADDED
           2) PRELIMINARY DISK MANAGER (769) SUPPORT INSTALLED IN A COMPATIBLE FASHION.
           *********************************************************************************
            
            
0          Referenced by comments of: 534/5 
00482/006A  FILE SYSTEM              VOLGET          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/007A  FILE SYSTEM              TRAK            SA  G          FILE:TRAK(1000)                                                 
            4.3T1   269  FILE_SYSTEM.TRAK.SA.007            1 LINE     72   16 PAGE UM   HELFFRICH           APR. 05, 1980  15:08:30
                         FILE:TRAK            
0          BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE PHYSICAL RECORDS.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE WITH COPY:FILE.MACROS
1                                                                                               SUN SEP 08/96   19:03:19   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          (482/33).
            
           NOTE:  THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           VAMX SUPPORT ADDED.
           *****************************************************************************
0          Referenced by comments of: 482/51 
00482/008A  FILE SYSTEM              TRAK            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/009   FILE SYSTEM              READI           SA  G          FILE:READI(1000)                                                
            D4.2T1  248  FILE_SYSTEM.READI.SA.009           1 LINE     72    6 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:06
                         FILE:READI           
0          SUBROUTINE TO READ FROM A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/010   FILE SYSTEM              READI           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/011A  FILE SYSTEM              WRITEI          SA  G          FILE:WRITEI(1000)                                               
            4.3T1   270  FILE_SYSTEM.WRITEI.SA.011          1 LINE     72   34 PAGE UM   HELFFRICH           APR. 05, 1980  15:08:34
                         FILE:WRITEI          
0          SUBROUTINE TO WRITE LINE FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33).
            
           *****************************************************************************
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2C):
            
           1) BUG FIXED IN THE PROCEDURE WHICH SPLITS ONE-PAGE FILES INTO MULTI-PAGE FILES
              IF SEGMENTED DATA LINES ARE PRESENT.
           2) VAMX SUPPORT ADDED
           3) DISK MANAGER (769) COMPATIBILITY ADDED.
           *****************************************************************************
00482/012A  FILE SYSTEM              WRITEI          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/013   FILE SYSTEM              READL           SA  G          FILE:READL(1000)                                                
            D4.2T1  250  FILE_SYSTEM.READL.SA.013           1 LINE     72   10 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:13
                         FILE:READL           
0          SUBROUTINE TO FIND THE FIRST OR LAST LINE NUMBER IN A FILE.
           ALSO CONTAINS SUBROUTINES TO RENUMBER, COUNT, RETURN, AND SET LINES IN A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00482/014   FILE SYSTEM              READL           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/015A  FILE SYSTEM              OPEN            SA  G          FILE:OPEN(1000)                                                 
            4.3T1   271  FILE_SYSTEM.OPEN.SA.015            1 LINE     80   86 PAGE UM   HELFFRICH           APR. 05, 1980  15:08:41
                         FILE:OPEN            
0          SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           1) VAMX SUPPORT ADDED.
           2) CHANGED TO CHECK WHETHER BUFFERS ARE ACTUALLY ATTACHED TO BCBS BEFORE 
              FREEING THEM.
           *****************************************************************************
00482/016A  FILE SYSTEM              OPEN            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/017A  FILE SYSTEM              GETDSK          SA  G          FILE:GETDSK(1000)                                               
            4.3T1   272  FILE_SYSTEM.GETDSK.SA.017          1 LINE     72   19 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:02
                         FILE:GETDSK          
0          SUBROUTINES TO ALLOCATE AND RELEASE DISK SPACE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           VAMX SUPPORT ADDED.
           *****************************************************************************
00482/018A  FILE SYSTEM              GETDSK          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/019   FILE SYSTEM              FLINE           SA  G          FILE:FLINE(1000)                                                
            D4.2T1  253  FILE_SYSTEM.FLINE.SA.019           1 LINE     72    6 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:30
                         FILE:FLINE           
0          SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/020   FILE SYSTEM              FLINE           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/021A  FILE SYSTEM              CATALOG         SA  G          FILE:CATALOG(1000)                                              
            4.3T1   273  FILE_SYSTEM.CATALOG.SA.021         1 LINE     71   45 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:08
                         FILE:CATALOG         
0          SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          *****************************************************************************
           D4.3 CHANGES:
            
           VAMX SUPPORT ADDED.
           *****************************************************************************
00482/022A  FILE SYSTEM              CATALOG         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/023A  FILE SYSTEM              RWSEQ           SA  G          FILE:RWSEQ(1000)                                                
            4.3T1   274  FILE_SYSTEM.RWSEQ.SA.023           1 LINE     72   15 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:25
                         FILE:RWSEQ           
0          SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           VAMX SUPPORT ADDED.
           *****************************************************************************
00482/024A  FILE SYSTEM              RWSEQ           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00482/025   FILE SYSTEM              TABLRTN         SA  G          FILE:TABLRTN                                                    
            D4.2T1  256  FILE_SYSTEM.TABLRTN.SA.025         1 LINE     78   31 PAGE UM   GOODRICH            MAR. 26, 1979  03:15:39
                         FILE:TABLRTN         
0          SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
           ASSEMBLE STARTING AT LINE 1.
0          Referenced by comments of: 482/40, 534/5 
00482/026   FILE SYSTEM              TABLRTN         OC  G          FILE:TABLRTN.O                                                  
            D4.2T1  257  FILE_SYSTEM.TABLRTN.OC.026         1 LINE     80   15 PAGE UM   GOODRICH            MAR. 26, 1979  03:15:56
                         FILE:TABLRTN.O       
0          OBJECT ALSO PART OF THE RESIDENT SYSTEM (468/1).
00482/027   FILE SYSTEM              GETFINF         SA  G          FILE:GETFINF(1000)                                              
            D4.2T1  258  FILE_SYSTEM.GETFINF.SA.027         1 LINE     70    8 PAGE UM   HELFFRICH           MAR. 26, 1979  03:15:57
                         FILE:GETFINF         
0          SUBROUTINE TO RETURN INFORMATION ABOUT A FILE.  CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF).
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
00482/028   FILE SYSTEM              GETFINF         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00482/029   FILE SYSTEM              TEST DSACC      SA  G          FILE:DSACC(1,999)                                               
            D4T1   1144  FILE_SYSTEM.TEST_DSACC.SA.031      1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:47:50
                         FILE:DSACC           
0          SPECIAL NOP VERSION OF DSACC.
0          Referenced by comments of: 482/37 
00482/030   FILE SYSTEM              TEST DSACC      OC  G          FILE:DSACC(1000)                                                
            D4T1   1145  FILE_SYSTEM.TEST_DSACC.OC.032      1 LINE     80    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:47:52
0          Referenced by comments of: 682/36 
00482/031A  FILE SYSTEM              FSTEST          SA  G          FILE:FSTEST(1005)                                               
            4.3T1   275  FILE_SYSTEM.FSTEST.SA.031          1 LINE     68   13 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:29
                         FILE:FSTEST          
0          FILE SYSTEM TEST PROGRAM.  ASSEMBLE USING COPY:FILE.MACROS (482/33) AND *SYSMAC.
           USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX AND DISK MANAGER (769) SUPPORT.
           *****************************************************************************
0          Referenced by comments of: 682/11 
00482/032A  FILE SYSTEM              FSTEST          OC  G          FILE:FSTEST(1,1004.999)                                         
            4.3T1   276  FILE_SYSTEM.FSTEST.OC.032          1 LINE     80    6 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:34
00482/033A  FILE SYSTEM              FILE.MACROS     SM  G          COPY:FILE.MACROS                                                
            4.3T1   277  FILE_SYSTEM.FILE.MACROS.SM.033     1 LINE     72   10 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:36
                         COPY:FILE.MACROS     
0          MACRO LIBRARY USED TO ASSEMBLE THE FILE SYSTEM AND RELATED ROUTINES.
            
           FOR D4, THE FOLLOWING COPY SECTIONS HAVE BEEN CONVERTED INTO MACROS AND PLACED IN COPY:FILE.MACROS:
            
               COPY SECTION FILE NAME        MACRO NAME
            
               COPY:CATEQU                   CATEQU
               COPY:FCBEQU                   FCBEQU,BCBEQU
               COPY:DSCBDSCT                 DSCBDSCT
               COPY:DSKDSCT                  DSKDSCT
               COPY:PATEQU                   PATEQU
               COPY:ICEQU                    ICEQU
            
           *****************************************************************************
           D4.3 CHANGES:
            
           VAMX SUPPORT ADDED.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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          Referenced by comments of: 4/1, 4/4, 67/1, 67/2, 67/3, 67/17, 73/3, 92/3, 97/6, 104/106, 104/110, 400/14, 400/15,
                 442/1, 482/5, 482/7, 482/9, 482/11, 482/13, 482/15, 482/17, 482/19, 482/21, 482/23, 482/25, 482/27, 482/31,
                 482/34, 482/40, 482/42, 482/51, 502/1, 502/7, 502/9, 509/1, 539/1, 540/18, 546/1, 554/1, 554/3, 578/1, 598/1,
                 599/1, 621/2, 629/4, 644/1, 671/3, 682/18, 682/20, 682/22, 682/24, 682/26, 682/28, 682/30, 682/39, 682/41,
                 724/1, 769/4, 769/9, 790/2, 790/4, 790/5, 790/7, 1020/1, 1021/1, 1021/4, 1021/7, 1030/1, 3024/37 
00482/034A  FILE SYSTEM              PDLIST PGM      SA  G          FILE:PDLIST(1000)                                               
            4.3T1   278  FILE_SYSTEM.PDLIST_PGM.SA.034      1 LINE     71    4 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:39
                         FILE:PDLIST          
0          PROGRAM TO PRINT THE PHYSICAL DRIVE ADDRESS FOR EACH PUBLIC DISK VOLUME.
           ASSEMBLE WITH COPY:FILE.MACROS (482/33) AND COPY:MISC.MACROS (728).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           ADDED 3350 SUPPORT.
           *****************************************************************************
0          Referenced by comments of: 482/36 
00482/035A  FILE SYSTEM              PDLIST PGM      OC  G          FILE:PDLIST(1,999)                                              
            4.3T1   279  FILE_SYSTEM.PDLIST_PGM.OC.035      1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:41
0          HAS A $CONTINUE WITH COPY:SYSDEFS (579/3) RECORD.
00482/036   FILE SYSTEM              *PDL            C              *PDL                                                            
            D4.2T1  262  FILE_SYSTEM.*PDL.C.036             1 LINE     29    1 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:05
                         *PDL                 
0          OPERATOR FILE TO RUN PDLIST (482/34).  INVOKED BY ENTERING "MTS *PDL"
           ON THE OPERATORS CONSOLE.
00482/037A  FILE SYSTEM              TEST FILERTNS   OC  G          FILE:FILERTNS                                                   
            4.3T1   280  FILE_SYSTEM.TEST_FILERTNS.OC.037   1 LINE     38    1 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:44
                         FILE:FILERTNS        
0          A SERIES OF $CONTINUE WITHS TO PICK UP THE VARIOUS FILE SYSTEM OBJECT DECKS,
           A TEST VERSION OF TABLES (482/38), AND A TEST VERSION OF DSACC (482/29).
0          Referenced by comments of: 482/38 
00482/038A  FILE SYSTEM              TEST TABLES     SA  G          FILE:TABLES.TEST(1000)                                          
            4.3T1   281  FILE_SYSTEM.TEST_TABLES.SA.038     1 LINE     56    1 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:46
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/37).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX SUPPORT.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   Page  173
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 482/37 
00482/039A  FILE SYSTEM              TEST TABLES     OC  G          FILE:TABLES.TEST(1,998)                                         
            4.3T1   282  FILE_SYSTEM.TEST_TABLES.OC.039     1 LINE     80    1 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:49
                         FILE:TABLES.TEST     
00482/040   FILE SYSTEM              TABLRTN TEST    SA  G          FILE:TABLTST                                                    
            D4.1T1  203  FILE_SYSTEM.TABLRTN_TEST.SA.042    1 LINE     80   35 PAGE UM   GOODRICH            MAY  13, 1978  17:24:57
                         FILE:TABLTST         
0          PROGRAM TO TEST THE SHARED FILE TABLE ROUTINES TABLRTN (482/25).
           TO USE THIS, THE SHARED FILE TABLE ROUTINES MUST BE RE-ASSEMBLED STARTING AT
           LINE 0, SO THAT ALL SVC'S ARE REPLACED WITH SUBROUTINE CALLS TO ENTRY POINTS IN
           THIS TABLE TEST PROGRAM.  THE COMMANDS ACCEPTED BY THIS PROGRAM ARE DOCUMENTED IN THE
           SOURCE.  THIS PROGRAM SHOULD BE ASSEMBLED USING *SYSMAC AND COPY:FILE.MACROS (482/33).
           THIS PROGRAM REQUIRES A COPY OF MOVE (482/4) IN ORDER TO LOAD PROPERLY.
00482/041   FILE SYSTEM              TABLRTN TEST    OC  G          FILE:TABLTST.O                                                  
            D4.1T1  204  FILE_SYSTEM.TABLRTN_TEST.OC.043    1 LINE     80    5 PAGE UM   GOODRICH            MAY  13, 1978  17:25:01
                         FILE:TABLTST.O       
00482/042A  FILE SYSTEM              CATALOG SCAN    SA  G          FILE:CATSCAN(1000)                                              
            4.3T1   283  FILE_SYSTEM.CATALOG_SCAN.SA.042    1 LINE     70    9 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:52
                         FILE:CATSCAN         
0          A PROGRAM WHICH GOES THROUGH THE CATALOG BY USER ID AND GATHERS INFORMATION OF INTEREST
           (E.G. THE NUMBER OF FILES WITH SPECIFIC SHARING DESCRIPTORS ETC.).  IT TAKES A LONG TIME
           TO RUN.  ASSEMBLE USING COPY:FILE.MACROS (482/33).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX AND DISK MANAGER (769) SUPPORT.
           *****************************************************************************
00482/043A  FILE SYSTEM              CATALOG SCAN    OC  G          FILE:CATSCAN(1,999)                                             
            4.3T1   284  FILE_SYSTEM.CATALOG_SCAN.OC.043    1 LINE     80    7 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:54
00482/044   FILE SYSTEM              DOCUMENTATION   WF             S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOCUMENTATION.WF.052(1)   1165
            D4T1   1165  FILE_SYSTEM.DOCUMENTATION.WF.052   1 LINE    190   63 PAGE UM   HELFFRICH           DEC. 10, 1976  17:23:53
0          FORMAT INPUT FOR THE MTS FILE SYSTEM INTERNAL DOCUMENTATION.  THE FORMAT OUTPUT
           SHOULD BE RUN THROUGH THE INDEX PROGRAM (482/45) TO PRODUCE AN INDEX FOR THE
           FRONT OF THIS WRITEUP.  COMPONENT 482/46 CONTAINS COMMANDS TO DO THIS.
           SEE ALSO COMP 682/1 FOR ADDITIONAL DOCUMENTATION RELATED TO THE FILE SYSTEM.
0          Referenced by comments of: 482/46 
00482/045   FILE SYSTEM              INDEX           SS  G          S0563 D4T1 VLO FSNAME=FILE_SYSTEM.INDEX.SS.053(1)           1166
            D4T1   1166  FILE_SYSTEM.INDEX.SS.053           1 LINE     68    1 PAGE UM   HELFFRICH           DEC. 10, 1976  17:24:07
0          SNOBOL PROGRAM TO PRODUCE A TABLE OF CONTENTS FOR THE FILE SYSTEM INTERNAL DOCUMENTATION.
0          Referenced by comments of: 482/44, 482/46 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00482/046   FILE SYSTEM              DOC CMDS        C              S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOC_CMDS.C.054(1)         1167
            D4T1   1167  FILE_SYSTEM.DOC_CMDS.C.054         1 LINE     65    1 PAGE UM   HELFFRICH           DEC. 10, 1976  17:24:15
0          A COMMAND FILE TO PRODUCE THE COMPLETE FILE SYSTEM INTERNAL DOCUMENTATION.
           IT REFERENCES THE FORMAT INPUT (482/44) AND THE INDEX PROGRAM (482/45).
00482/047   FILE SYSTEM              DSECTLIST1      SS  G          FILE:DSECTLIST                                                  
            D4T1   1168  FILE_SYSTEM.DSECTLIST1.SS.055      1 LINE     53    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:53
                         FILE:DSECTLIST       
0          THIS SNOBOL PROGRAM AND THE ONE FOLLOWING ARE USED TO CONVERT AN ASSEMBLY LANGUAGE
           DSECT INTO FORMAT INPUT WHICH INCLUDES SYMBOL VALUES FOR INCLUSION IN A WRITEUP.
00482/048   FILE SYSTEM              DSECTLIST2      SS  G          FILE:DSECT2                                                     
            D4T1   1169  FILE_SYSTEM.DSECTLIST2.SS.056      1 LINE     63    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:55
                         FILE:DSECT2          
0          THE SPUNCH OUTPUT FROM 482/47 SHOULD BE RUN THROUGH THIS PROGRAM, THE SPUNCH
           OUTPUT FROM THIS PROGRAM THEN BEING FORMAT INPUT.
00482/049   FILE SYSTEM              DSECTLIST CMDS  C              FILE:SODSECT                                                    
            D4T1   1170  FILE_SYSTEM.DSECTLIST_CMD.C.057    1 LINE     71    1 PAGE UM   HELFFRICH           JULY 27, 1977  03:56:57
                         FILE:SODSECT         
0          THIS COMMAND FILE WILL RUN THE DSECTLIST PROGRAMS AND SLIGHTLY EDIT THE
           OUTPUT FOR EACH OF THE FILE SYSTEM DSECTS (FCBEQU, BCBEQU, CATEQU, DSKDSCT,
           DSCBDSCT, PATEQU, ICEQU, AND FDUBDSECT).  THE RESULTING OUTPUT IS INCLUDED
           AS PART OF 482/44.
00482/050A  FILE SYSTEM              SCRATCH SIZES   C              FILE:SCRATCHSIZES(1)                                            
            4.3T1   285  FILE_SYSTEM.SCRATCH_SIZES.C.050    1 LINE     72    3 PAGE UM   HELFFRICH           APR. 05, 1980  15:09:57
                         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.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX SUPPORT.
           *****************************************************************************
00482/051   FILE SYSTEM              TRAKSTAT        SA  O          FILE:TRAKSTAT(1000)                                             
            D4.2T1  267  FILE_SYSTEM.TRAKSTAT.SA.051        1 LINE     72    7 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:10
                         FILE:TRAKSTAT        
0          PROGRAM TO DISPLAY HISTOGRAMS (PREFERABLY ON A 3270 DEVICE) OF CURRENT DISK
           ACTIVITY IN VARIOUS CATEGORIES:  LINE DIRECTORY, DATA, CATALOG, PAT, AND
           DSCB. TAKES THE FOLLOWING PAR FIELD PARAMETERS:
            
                      NOHIST         TO SUPPRESS HISTOGRAMS
1                                                                                               SUN SEP 08/96   19:03:19   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                     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
            
           DEFAULT PARAMETERS ARE DT=15S, RESET=YES.  COPIES COPY:FILE.MACROS (482/33)
           AND COPY:MTS.MACROS (344/3).
00482/052   FILE SYSTEM              TRAKSTAT        OC  O          FILE:TRAKSTAT(1,999)                                            
            D4.2T1  268  FILE_SYSTEM.TRAKSTAT.OC.052        1 LINE     80    4 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:16
00482/053   FILE SYSTEM              TRAKSTATAREA    SA  O          FILE:TRAKSTATAREA(1000)                                         
            D4.2T1  269  FILE_SYSTEM.TRAKSTATAREA.SA.053    1 LINE     62    1 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:18
                         FILE:TRAKSTATAREA    
0          THIS REGION MUST BE PISTLED BEFORE FILE SYSTEM STATISTICS MAY BE GENERATED. 
           THE FIRST WORD OF THIS REGION IS A COUNT RELATING TO HOW MANY PUBLIC VOLUMES
           FOR WHICH STATISTICS MAY BE ACCUMULATED.
00482/054   FILE SYSTEM              TRAKSTATAREA    OC  O          FILE:TRAKSTATAREA(1,999)                                        
            D4.2T1  270  FILE_SYSTEM.TRAKSTATAREA.OC.054    1 LINE     80    1 PAGE UM   HELFFRICH           MAR. 26, 1979  03:16:19
00483/001  *WATFIV                   UPDATE          UU  G          W159:WAT5.SGEN                                                  
            D4.1T1  205  WATFIV.UPDATE.UU.001               1 LINE     80   30 PAGE UM   SHERRY              MAY  13, 1978  17:25:02
0          THE WATFIV UPDATE DECK (483/1) IS ORGANIZED (BY LINE NUMBER) AS FOLLOWS:
            
               LINE NUMBERS        FILE #    NAME
               (2000,2999)          *2*      ACCT
               (9000,9999)          *9*      ARITH
               (11000,11999)        *11*     CDEFN
               (17000,17999)        *17*     COMMR
               (34000,34999)        *34*     DODO
               (42000,42999)        *42*     ERROR
               (44000,44999)        *44*     ERRTEXTS
               (46000,46999)        *46*     EXTRN
               (49000,49999)        *49*     FORMAT
               (50000,50999)        *50*     FORMCONV
               (51000,51999)        *51*     FRIOSCAN
               (53000,53999)        *53*     FUNCTION
               (55000,55999)        *55*     IBCOM#
               (58000,58999)        *58*     INOUT
               (60000,60999)        *60*     LANDR
               (61000,61999)        *61*     MAIN
               (66000,66999)        *66*     NAMELIST
               (68000,68999)        *68*     OPTIONS
               (71000,71999)        *71*     SCAN
               (75000,75999)        *75*     SPEX
               (76000,76999)        *76*     STARTA
               (77000,77999)        *77*     STARTB
               (78000,78999)        *78*     STOP#
               (79000,79999)        *79*     SYS
               (84000,84999)        *84*     WATIO
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0              (85000,85999)        *85*     WATLOAD
               (86000,86999)        *86*     ZMONTH
            
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
           THIS COMPONENT SHOULD BE RESTORED TO A FILE NAMED WAT5.SGEN SINCE THE COMMAND
           FILE (483/7) HAS NUMEROUS REFERENCES TO THIS FILE.
0          Referenced by comments of: 483/1, 483/7 
00483/002  *WATFIV                   FIOCS           SA  G  FIOC    W159:WAT5.FIOCS.S                                               
            D4T1   1173  WATFIV.FIOCS.SA.002                1 LINE     80   21 PAGE UM   SHERRY              JULY 27, 1977  03:57:06
0          ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/8 
00483/003  *WATFIV                   DIOCS           SA  G  DIOC    W159:WAT5.DIOCS.S                                               
            D4T1   1174  WATFIV.DIOCS.SA.003                1 LINE     80    3 PAGE UM   SHERRY              JULY 27, 1977  03:57:08
0          ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/8 
00483/004  *WATFIV                   DEFAULT         SA  G  DFLT    W159:WAT5.DFALT.S                                               
            D4T1   1175  WATFIV.DEFAULT.SA.004              1 LINE     80    4 PAGE UM   SHERRY              JULY 27, 1977  03:57:10
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER.
           ASSEMBLE USING *SYSMAC.
           NOTE:  THIS ROUTINE IS ALSO USED BY ALGOLW (528) AND PLC (485).
0          Referenced by comments of: 483/8 
00483/005  *WATFIV                   OBJECT          OE  G        # *WATFIV                                                         
                                                                                    UM   SHERRY                                     
0          NOTE:  BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED.
00483/006  *WATFIV                   TEST DECKS      SF  G          W159:WAT5.TEST                                                  
            D4T1   1176  WATFIV.TEST_DECKS.SF.006           1 LINE     80    7 PAGE UM   SHERRY              JULY 27, 1977  03:57:12
0          THE FIRST FEW LINES ON THIS FILE CONTAIN THE MTS COMMANDS NEEDED TO COMPILE
           THE TEST DECKS WHICH START AT LINE 1000.  THEY MUST BE RUN WITH THE FOLLOWING
           I/O ASSIGNMENTS (TEMPORARY FILES):
            
                1   A SEQUENTIAL FILE
                2   A LINE FILE
                3   ANOTHER LINE FILE
            
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00483/007  *WATFIV                   REASS           C              W159:WAT5.REASS                                                 
            D4T1   1177  WATFIV.REASS.C.007                 1 LINE    127    4 PAGE UM   SHERRY              JULY 27, 1977  03:57:14
0          THIS FILE CONTAINS ALL THE MTS COMMANDS NECESSARY TO GENERATE THE VARIOUS
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          COMPONENTS OF WATFIV.  THE MTS COMMANDS ARE ORGANIZED (BY LINE NUMBER) IDENTICALLY
           TO COMP 483/1, E.G. THE SOURCE COMMANDS NECESSARY TO ASSEMBLE WATIO (TAPE FILE
           #84) ARE LOCATED IN THE LINE RANGE (84000,84999) AS ARE THE CORRESPONDING UPDATE
           CONTROL CARDS IN WAT5.SGEN (483/1).  LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE
           483/8 CONTAINS REFERENCES BY LINE NUMBER.  THIS FIRST HUNDRED LINES OF THIS FILE
           CONTAIN DESCRIPTIONS OF THE VARIOUS SOURCE COMMANDS.  THIS FILE CONTAINS TWO $MOUNT
           COMMANDS-- ONE TO MOUNT THE WATERLOO DISTRIBUTION TAPE AND ANOTHER TO MOUNT A TAPE
           WHICH RECEIVES THE UNLOADED WATFIV SOURCE FILES.  THE MOUNT COMMANDS ARE AT LINE
           NUMBERS 101 AND 201, RESPECTIVELY, AND SHOULD BE REPLACED APPROPRIATELY.
0          Referenced by comments of: 483/1, 483/8 
00483/008  *WATFIV                   $SOU            C              W159:WAT5.$SOU                                                  
            D4T1   1178  WATFIV.$SOU.C.008                  1 LINE     55    1 PAGE UM   SHERRY              JULY 27, 1977  03:57:16
0          THIS FILE CONTAINS ALL THE "$SOURCE WAT5.REASS(---)" (483/7) COMMANDS NECESSARY
           TO GENERATE THE MTS VERSION OF WATFIV.  THIS IS A FIVE STEP PROCEDURE:
            
           (1) THE SOURCE CODE FOR WATFIV IS UNLOADED FROM THE WATERLOO DISTRIBUTION TAPE
               (WATFIV V1L4) ONTO ANOTHER TAPE; A MACRO LIBRARY IS UNLOADED; AND THE FUNCTION
               OBJECT DECK LIBRARY IS UNLOADED AND UPDATED.
           (2) THE COPY SECTIONS ACCT, CDEFN, COMMR, ERRTEXTS, EXTRN, OPTIONS, STARTA, STARTB,
               AND SYS ARE GENERATED (A DISK FILE WITH THE SAME NAME IS PRODUCED FOR EACH COPY SECTION).
           (3) THE WATFIV CSECTS ARE ASSEMBLED.
           (4) THE LOCAL MTS ORIGINATED ROUTINES FIOCS (483/2), DIOCS (483/3), DFLT (483/4),
               TIME (483/9), AND MTSFUN (483/10) ARE ASSEMBLED.
           (5) THE RESULTING OBJECT DECKS ARE LINKEDITED VIA THE PROCEDURE (483/11) AND THE
               OUTPUT IS PLACED IN A FILE NAMED WAT5, WHICH MAY BE COPIED TO THE PUBLIC
               FILE *WATFIV.
            
           THUS, WATFIV WILL BE GENERATED IF THIS FILE IS $SOURCED TO.
00483/009  *WATFIV                   TIME            SA  O  TIME    W159:WAT5.TIME.S                                                
            D4T1   1179  WATFIV.TIME.SA.009                 1 LINE     80    7 PAGE UM   SHERRY              JULY 27, 1977  03:57:19
0          VERSION OF THE MTS TIME SUBROUTINE RECODED TO CONFORM TO WATFIV CALLING CONVENTIONS.
           PROGRAM WRITTEN AT UBC.  ASSEMBLE USING *SYSMAC AND THE TWO WATERLOO MACRO LIBRARIES.
0          Referenced by comments of: 483/8 
00483/010  *WATFIV                   MTSFUN          SA  G  MTSF    W159:WAT5.MTSFUNS                                               
            D4T1   1180  WATFIV.MTSFUN.SA.010               1 LINE     80    4 PAGE UM   SHERRY              JULY 27, 1977  03:57:21
0          CODE FOR BUILTIN SUBROUTINES RAND, SCLOCK, CLOCK, IEOR, IOR, IAND, AND ICOMPL.
           ASSEMBLE USING *SYSMAC AND THE TWO WATERLOO MACRO LIBRARIES.
0          Referenced by comments of: 483/8 
00483/011  *WATFIV                   RELINK          C              W159:WAT5.RELINK                                                
            D4T1   1181  WATFIV.RELINK.C.011                1 LINE     29    1 PAGE UM   SHERRY              JULY 27, 1977  03:57:23
0          LINKEDITOR COMMANDS REQUIRED TO LINKEDIT WATFIV.  "INCLUDES" WAT5.O (483/12).
0          Referenced by comments of: 483/8 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00483/012  *WATFIV                   WAT5.O          OC  G          W159:WAT5.O                                                     
            D4T1   1182  WATFIV.WAT5.O.OC.012               1 LINE     80    1 PAGE UM   SHERRY              JULY 27, 1977  03:57:25
0          THIS FILE CONTAINS A SERIES OF "$CONTINUE WITH" RECORDS, THE OBJECT FOR SPIE, AND SOME
           LOADER CONTROL RECORDS TO CAUSE THE VARIOUS WATFIV SUB-COMPONENTS TO BE LOADED
           WHEN THIS FILE IS $RUN.  ALSO REFERENCED BY 483/11 TO LINKEDIT WATFIV.
0          Referenced by comments of: 483/11 
00484    A *ACCRESTORE                               OE  G          *ACCRESTORE                                                     
            4.3T1   286  ACCRESTORE..OE.                    1 LINE   3648    3 PAGE UM   ENGLE               APR. 05, 1980  15:10:00
                         *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/84), ACATALOG (104/107), GETFILE (104/105),
           ACCIO (104/25), ACCFLUPD (104/80), FILERATE (104/18), AND SYSDEFS.  THIS FILE
           MUST BE PERMITTED AS FOLLOWS:  U/N,R (P=W&PKEY=*MTS.RUN,USERID&PKEY=*MTS.ETC.RUN)
           WHERE "USERID" SHOULD BE REPLACED BY THE USER ID USED TO RUN DEADFILES (502).
           THIS FILE MUST BE GIVEN THE PROGRAM KEY *ACRESTORE.
0          Referenced by comments of: 136/2 
00485/001  *PLC                      INSTALLATION    PF             S0548 PLCARC 'PL/C ARCHIVE' FSNAME=INSTALL                      
            D4.1T1  207  PLC.INSTALLATION.PF.001            1 LINE     69    5 PAGE UM   BODWIN              APR. 19, 1978  17:48:47
0          DUE TO COPYRIGHT RESTRICTIONS, THE MASTER SOURCE FOR PL/C CANNOT BE DISTRIBUTED;
           YOU MUST OBTAIN IT DIRECTLY FROM CORNELL UNIVERSITY.
            
           485/1 CONSISTS OF INSTRUCTIONS FOR INSTALLING PL/C RELEASE 7.6 IN MTS.  $COPY
           IT TO A TN PRINTER.
0          Referenced by comments of: 483/4 
00485/002  *PLC                      PLCGEN          C              S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCGEN                       
            D4.1T1  208  PLC.PLCGEN.C.002                   1 LINE    110    4 PAGE UM   BODWIN              APR. 19, 1978  17:48:50
0          MTS COMMAND FILE TO GENERATE MTS PL/C.  HAS "$CONTINUE WITH"S TO MANY OF THE
           DISTRIBUTED FILES -- SEE 485/1 FOR DETAILS.
00485/003A *PLC                      CONT            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.U                       
            4.3T1   287  PLC.CONT.UU.003                    1 LINE     72    8 PAGE UM   BODWIN              MAY  30, 1979  16:59:06
0          MTS UPDATE FOR THE COLLECTION OF CSECTS WHICH CONTROL THE SEQUENCING OF THE
           COMPILER PHASES AND PROVIDE INTERFACING BETWEEN PL/C AND THE LOW LEVEL ROUTINES.
00485/004A *PLC                      CONT            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00485/005  *PLC                      DGIO            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DGIO.U                       
            D4.2T1  272  PLC.DGIO.UU.005                    1 LINE     72    1 PAGE UM   BODWIN              DEC. 14, 1978  16:11:11
0          MTS UPDATE FOR THE I/O CODE GENERATOR.
00485/006  *PLC                      DGIO            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DGIO.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/007  *PLC                      ERMW            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=ERMW.U                       
            D4.1T1  211  PLC.ERMW.UU.007                    1 LINE     72    4 PAGE UM   BODWIN              APR. 19, 1978  17:47:30
0          MTS UPDATE FOR THE MODULE WHICH PRODUCES THE ERROR MESSAGES.
00485/008  *PLC                      ERMW            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=ERMW.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/009  *PLC                      EXRI            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXRI.U                       
            D4.1T1  212  PLC.EXRI.UU.009                    1 LINE     72    1 PAGE UM   BODWIN              APR. 19, 1978  17:47:33
0          MTS UPDATE FOR THE MODULE WHICH PERFORMS RECORD I/O.
00485/010  *PLC                      EXRI            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXRI.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/011  *PLC                      GPCR            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=GPCR.U                       
            D4.1T1  213  PLC.GPCR.UU.011                    1 LINE     17    1 PAGE UM   BODWIN              APR. 19, 1978  17:47:35
0          MTS UPDATE FOR THE MODULE WHICH PERFORMS CONVERSIONS.
00485/012  *PLC                      GPCR            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=GPCR.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/013  *PLC                      IM              UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=IM.U                         
            D4.2T1  273  PLC.IM.UU.013                      1 LINE     72    7 PAGE UM   BODWIN              DEC. 18, 1978  14:51:13
0          MTS UPDATE FOR THE INSTALLATION DEPENDANT MODULE.
00485/014  *PLC                      IM              OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=IM.O                         
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/015A *PLC                      MIMO            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.U                       
            4.3T1   288  PLC.MIMO.UU.015                    1 LINE     72    6 PAGE UM   BODWIN              MAY  30, 1979  16:59:18
0          MTS UPDATE FOR THE MODULE WHICH GAINS INITIAL CONTROL IN PL/C.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00485/016A *PLC                      MIMO            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/017  *PLC                      OPTB            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTB.U                       
            D4.2T1  275  PLC.OPTB.UU.017                    1 LINE     72    1 PAGE UM   BODWIN              DEC. 14, 1978  16:11:42
0          MTS UPDATE FOR THE MODULE WHICH DEFINES THE DEFAULT OPTIONS FOR PL/C.
00485/018  *PLC                      OPTB            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTB.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/019  *PLC                      OPTN            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTN.U                       
            D4.2T1  276  PLC.OPTN.UU.019                    1 LINE     72    4 PAGE UM   BODWIN              FEB. 02, 1979  01:20:38
0          MTS UPDATE FOR THE MODULE WHICH PERFORMS THE COMPILER OPTIONS SCANNING.
00485/020  *PLC                      OPTN            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTN.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/021A *PLC                      SYSO            UU  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.U                       
            4.3T1   289  PLC.SYSO.UU.021                    1 LINE     72   24 PAGE UM   BODWIN              JUNE 18, 1979  22:10:30
0          MTS UPDATE FOR THE MODULE WHICH INTERFACES WITH THE OPERATING SYSTEM.
00485/022A *PLC                      SYSO            OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.O                       
                                                                                    UM   BODWIN                                     
0          NOTE:  BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED.
00485/023  *PLC                      DEFAULT         SA  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.S                    
            D4.1T1  219  PLC.DEFAULT.SA.023                 1 LINE     71    3 PAGE UM   BODWIN              APR. 19, 1978  17:48:53
0          SUBROUTINE TO HANDLE DEFAULT PAGE AND TIME ESTIMATES IN MTS -- NOT PART OF THE
           CORNELL SOURCE.
00485/024  *PLC                      DEFAULT         OC  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.O                    
            D4.1T1  220  PLC.DEFAULT.OC.024                 1 LINE     80    1 PAGE UM   BODWIN              APR. 19, 1978  17:48:00
00485/025  *PLC                      MACDIR          SM  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MACDIR                       
            D4.1T1  221  PLC.MACDIR.SM.025                  1 LINE     15    2 PAGE UM   BODWIN              APR. 19, 1978  18:12:00
0          THE DIRECTORY FOR THE PL/C MACRO LIBRARY, WHICH CANNOT ITSELF BE DISTRIBUTED
           BECAUSE OF CORNELL RESTRICTIONS.
00485/026  *PLC                      MACROS          SM  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MACROS                       
            D4.1T1  222  PLC.MACROS.SM.026                  1 LINE     72    5 PAGE UM   BODWIN              APR. 19, 1978  18:12:07
0          ADDITIONAL MACROS FOR THE PL/C MACRO LIBRARY.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00485/027  *PLC                      OBJECT          OC  G        # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLC.O                        
                                                                                    UM   BODWIN                                     
0          CORNELL PL/C OBJECT WITH "$CONTINUE WITH"S TO THE VARIOUS OBJECT FILES FOR THE
           MODULES WHICH ARE DIFFERENT IN MTS.  BECAUSE OF CORNELL RESTRICTIONS, THIS
           FILE CANNOT BE DISTRIBUTED.
00485/028  *PLC                      TEST PGMS       SP  G          S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLC.TEST                     
            D4.1T1  223  PLC.TEST_PGMS.SP.028               1 LINE     91    9 PAGE UM   BODWIN              APR. 19, 1978  18:45:59
0          TEST PROGRAMS TO EXERCISE THE MTS VERSION OF PL/C.  THE LAST EXAMPLES ILLUSTRATE
           KNOWN BUGS.
00486      *HBQ                                      SA           # (OBSOLETED BY $SYSTEMSTATUS)                                    
            D4T1   1196  HBQ..SA.001                        1 LINE     80   18 PAGE UM                       FEB. 25, 1975  16:41:55
0          PROGRAM TO PRINT HASP STATUS OF A PARTICULAR BATCH JOB (BY RECEIPT NUMBER) OR THE BACKLOG
           AT A PARTICULAR REMOTE STATION OR THE ENTIRE SYSTEM.
            
           *** NOTE:  THIS PROGRAM IS NOW OBSOLETE SINCE ALL OF ITS FUNCTIONS ARE PROVIDED
                      BY THE MTS $SYSTEMSTATUS COMMAND.
00487/001  *LABEL                    MAIN PGM        SA  G          S1237 TAPES 'TAPEFS' FSNAME=LABEL                               
            D4.1T1  224  LABEL.MAIN_PGM.SA.001              1 LINE     80    6 PAGE UM   LIFT                APR. 20, 1978  20:30:09
0          PROGRAM TO INITIALIZE LABELED OR UNLABELED MAGNETIC TAPES.  CALLS TPINIT
           SUBROUTINE (487/4). SOURCE IN LINES (1,999).
0          Referenced by comments of: 135/1, 487/3 
00487/002  *LABEL                    MAIN PGM        OC  G          *LABEL                                                          
            D4.1T1  225  LABEL.MAIN_PGM.OC.002              1 LINE   1840    1 PAGE UM   LIFT                MAY  13, 1978  17:29:09
                         *LABEL               
00487/003  *LABEL                    *LBL            C              *LBL                                                            
            D4T1   1200  LABEL.*LBL.C.003                   1 LINE     32    1 PAGE UM   LIFT                JULY 27, 1977  04:07:25
                         *LBL                 
0          COMMAND FILE TO RUN *LABEL (487/1) FOR THE OPERATORS.  INVOKED BY ENTERING
           "MTS *LBL" ON THE OPERATOR'S CONSOLE.
00487/004  *LABEL                    TPINIT SUBR     SA  G          S1237 TAPES 'TAPEFS' FSNAME=TAPEINIT                            
            D4.2T1  278  LABEL.TPINIT_SUBR.SA.004           1 LINE     80    4 PAGE UM   LIFT                OCT. 19, 1978  15:42:09
0          SUBROUTINE, WITH ALTERNATE ENTRY TAPEINIT, WHICH INITIALIZES TAPES (LABELED OR
           UNLABELED).  SOURCE IN LINES (1,999).
0          Referenced by comments of: 487/1 
00487/005  *LABEL                    TPINIT SUBR     OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   LIFT                                       
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00488       CONTROL                                  SA           # (OBSOLETE)                                                      
            D2.3    035                                                             UM                                              
00489/001   TAPETEST                                 SA  G  TT      WSG:TT(1,999)                                                   
            D4.2T1  279  TAPETEST..SA.001                   1 LINE     80   15 PAGE UM   WSG                 MAR. 26, 1979  03:22:13
                         WSG.:TT              
0          THE TAPETEST (TT) PROGRAM WAS DESIGNED TO CHECK OUT THE MTS MAG TAPE ROUTINES (135).
           HOWEVER, IT SEEMS TO BE A RATHER MORE GENERALLY USEFUL UTILITY FOR PERFORMING I/O.
           IT FIELDS ATTENTION INTERRUPTS AND DSR ERRORS.  COPIES *SENSEDSECT (3025).
           IT WILL ACCEPT THE FOLLOWING COMMANDS (ON GUSER):
            
               ATTACH FDNAME       ATTACH A FILE OR DEVICE (CALL "GETFD").
               CONTROL STRING      CALL "CONTROL" WITH STRING AS THE ARGUMENT.
               HELP                FOR A LIST OF COMMANDS.
               LEN N               SET MAXIMUM INPUT LENGTH TO N.  IF N IS NON-ZERO, THE READ AND RDBKWD
                                   COMMANDS WILL USE THE @MAXLEN MODIFIER.
               MTS STRING          CALL "CMD" (WITH STRING) OR "MTS" (IF STRING OMITTED).
               READ N              READ THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA.
               RBKWD N             READ BACKWARD THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA.
               RETURN              TO QUIT.
               SNS                 ISSUE A "SNS" CONTROL COMMAND AND PRINT THE "SENSE DATA" IN A READABLE FORMAT.
               STA                 IDENTICAL TO "SNS" EXCEPT FOR LABELED TAPES, IN WHICH CASE IT DOES NOT CAUSE THE NEXT
                                   FILE TO BE OPENED.
               STOP                TO QUIT.
               WRITE FDNAME        WRITE RECORDS READ FROM FDNAME (OR *MSOURCE* IF OMITTED) ON THE ATTACHED UNIT.
            
           NOTES:  COMMANDS MAY BE ABBREVIATED BY THEIR FIRST LETTER EXCEPT FOR "RBKWD" AND "STA"
                   WHICH REQUIRE TWO LETTERS.  ANY COMMAND BEGINNING WITH A $ IS PASSED TO MTS
                   FOR PROCESSING.
            
            
           EXAMPLE:      $MOUNT POOL 9TP *T*
                         $RUN TT(1000)
                         A *T*
                         C DSN TEST1
                         C FMT FB(8000,80)
                         W TESTFILE
                         C WTM
                         C DSN TWO
                         W
                         HELLO
                         $ENDFILE
                         C POSN TWO
                         LEN 50
                         R 5
                         LEN 0
                         RB
                         SNS
                         C REW
                         $RUN *TAPEDUMP 0=*T* SPRINT=*PRINT*
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00489/002   TAPETEST                                 OC  G          WSG:TT(1000)                                                    
            D4.2T1  280  TAPETEST..OC.002                   1 LINE     80    5 PAGE UM   WSG                 MAR. 26, 1979  03:22:14
00490      *LAR                                      C              *LAR                                                            
            D4T1   1203  LAR..C.                            1 LINE     29    1 PAGE UM   MTA                 JULY 27, 1977  04:07:31
                         STRT:*LAR            
0          COMMAND FILE TO RUN UNITS (1012) TO RESET ALL 2703 (AND SIMILAR) LINES.
           IT RESETS EVERYTHING WITH DEVICE TYPE MRXA, SDA, TTY, OR 2741.
           INVOKED BY ENTERING "MTS *LAR" ON THE OPERATOR'S CONSOLE.
           IT SHOULD ONLY BE USED WHEN A 2703 OR MEMOREX 1270 HAS DROPPED ITS
           LINES SINCE IT FAKES A UNIT CHECK ON EACH 2703 ADDRESS.
00491/001  *SCRAMBLE                                 SF  O          S0683 OGDEN FSNAME=SCRAMBLE.S                                   
            D4T1   1204  SCRAMBLE..SF.001                   1 LINE     50    1 PAGE UM   OGDEN               JUNE 06, 1976  22:11:25
0          THE PREVIOUSLY SCRAMBLED SOURCE FOR *SCRAMBLE HAS NOW BEEN UNSCRAMBLED (IF ANYONE
           CARES, SINCE THIS PROGRAM IS NOW CONSIDERED TO BE OBSOLETE AT UM).   *ENCRYPT (677)
           IS A BETTER PROGRAM FOR THE SAME PURPOSE.
0          Referenced by comments of: 677/1 
00491/002  *SCRAMBLE                                 OC  O          S0683 OGDEN FSNAME=SCRAMBLE.O                                   
            D4T1   1205  SCRAMBLE..OC.002                   1 LINE    175    3 PAGE UM   OGDEN               JUNE 06, 1976  22:11:42
00491/003  *SCRAMBLE                 WRITEUP         WT  O          S0780 'D3.1T1' FSNAME=SCRAMBLE.WRITEUP.WT.2(1)               293
            D4T1   1206  SCRAMBLE.WRITEUP.WT.003            1 LINE    132    4 PAGE UM   ENGLE               JAN. 08, 1974  16:05.57
0          GENERAL WRITEUP ON SCRAMBLE ALGORITHMNS.
00492/001  *DCALC                                    SP  G          S0722 'D3T3' FSNAME=DCALC..SP.1(1)                           123
            D4T1   1207  DCALC..SP.001                      1 LINE     80   13 PAGE UM   MTA                 AUG. 03, 1973  21:27.08
0          PL/I DESK CALCULATOR PROGRAM.
00492/002  *DCALC                                    OE  G          *DCALC                                                          
            D4T1   1208  DCALC..OE.002                      1 SEQ   21678    9 PAGE UM   MTA                 JULY 27, 1977  04:12:43
                         *DCALC               
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00493/001  *TALLY                    MAIN            SA  O  TALY    W044:TALLYSOU                                                   
            D4T1   1209  TALLY.370_MAIN.SA.001              1 LINE     80    9 PAGE UM   SALISBURY           JULY 27, 1977  04:12:45
0          TALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO COUNT THE NUMBER OF TIMES
           EACH MACHINE INSTRUCTION IS EXECUTED.
00493/002  *TALLY                    SIM SUBR        SA  O  TSIM    W044:TALLYSIMSOU                                                
            D4T1   1210  TALLY.370_SIM_SUBR.SA.002          1 LINE     80   36 PAGE UM   SALISBURY           JULY 27, 1977  04:12:47
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00493/003  *TALLY                    OBJECT          OC  O          *TALLY                                                          
                                                                                    UM   SALISBURY                                  
                         *TALLY               
00494/001  *CSMP                                     SA  G  CSMP    W020:CSMPDISTR(1,341)                                           
            D4T1   1215  CSMP..SA.001                       1 LINE     80    8 PAGE UM   FLANIGAN            JULY 27, 1977  04:12:59
0          CONTINUOUS SYSTEM MODELING PROGRAM (MODIFIED FROM IBM).
            
           *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS.
00494/002  *CSMP                                     OE  G          *CSMP                                                           
            D4T1   1216  CSMP..OE.002                       1 SEQ      80    2 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:02
                         *CSMP                
00494/003  *CSMP                     CSMPTRAN        SA  G  CPTR    W020:CSMPDISTR(500,720)                                         
            D4T1   1217  CSMP.*CSMPTRAN.SA.003              1 LINE     80    6 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:03
0          TRANSLATION CONTROL.  ASSEMBLE USING *SYSMAC AND PUT IN *CSMPTRAN. 
           ADD "$CONTINUE WITH *CSMPLIB" AT END.
00494/004  *CSMP                     *CSMPTRAN       OE  G          *CSMPTRAN                                                       
            D4T1   1218  CSMP.*CSMPTRAN.OE.004              1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:05
                         *CSMPTRAN            
0          ENDS WITH A "$CONTINUE WITH *CSMPLIB" CARD.
00494/005  *CSMP                     CSMPEXEC        SA  G  CPEX    W020:CSMPDISTR(1000,1107)                                       
            D4T1   1219  CSMP.*CSMPEXEC.SA.005              1 LINE     80    4 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:08
0          EXECUTION CONTROL
00494/006  *CSMP                     *CSMPEXEC       OE  G          *CSMPEXEC                                                       
            D4T1   1220  CSMP.*CSMPEXEC.OE.006              1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 27, 1977  04:13:10
                         *CSMPEXEC            
00494/007  *CSMP                     CSMPLIB IBM     S   G          S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80)           2  
            D4T1   1221  CSMP.*CSMPLIB.S.007                1 SEQ      80  155 PAGE UM   FLANIGAN            JULY 28, 1977  00:34:43
0          ORIGINAL IBM SOURCE (FORTRAN AND ASM).
00494/008  *CSMP                     CSMPLIB UPD     UU  G          W020:CSMPDISTR(2000,2175)                                       
            D4T1   1222  CSMP.*CSMPLIB.UU.008               1 LINE     80    4 PAGE UM   FLANIGAN            JULY 28, 1977  00:34:48
0          THIS UPDATE DECK APPLIES ALL KNOWN IBM APARS PLUS LOCAL CHANGES. IT ASSUMES THE FOLLOWING:
              (1) IBM SOURCE IS ON TAPE *S*
              (2) A POOL (SCRATCH) TAPE HAS BEEN MOUNTED AS *P*
              (3) AN EMPTY SEQUENTIAL FILE -A EXISTS
           THIS UPDATE PUTS THE UPDATED CSMP FORTRAN ROUTINES ON *P* (BLOCKING FACTOR 100), REWINDS IT,
           PUTS THE UPDATED CSMP ASSEMBLER ROUTINES IN -A, AND REWINDS AND UNLOADS *S*.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00494/009  *CSMP                     CSMPLIB ASM     SA  G          W020:CSMPDISTR(1500,1531)                                       
            D4T1   1223  CSMP.*CSMPLIB.SA.009               1 LINE     70    1 PAGE UM   FLANIGAN            JULY 28, 1977  00:34:50
0          TWO ASM ROUTINES USED DURING DYNAMIC LINKING.
00494/010  *CSMP                     *CSMPLIB        OL  G          *CSMPLIB                                                        
            D4T1   1224  CSMP.*CSMPLIB.OL.010               1 SEQ    6924   32 PAGE UM   FLANIGAN            JULY 28, 1977  00:34:52
                         *CSMPLIB             
0          LIBRARY MADE FROM ASM AND FTN ROUTINES UPDATED BY 494/8 AND ASM ROUTINES
           FROM COMPONENT 494/9.  (NOTE:  FORTRANH HAS BEEN USED.)
00495/001   EXPL                     SUBMONITOR      SA     XMON    W052:EXMON.S                                                    
            D4.2T1  281  EXPL.SUBMONITOR.SA.001             1 LINE     80   40 PAGE UM   SHERRY              MAR. 26, 1979  03:22:15
0          EXTENDED VERSION OF XPL.  USING THIS VERSION, AN XPL PROGRAM CAN CONSIST OF A COLLECTION OF INDEPENDENTLY
           COMPILED PROCEDURES.  THIS VERSION PRODUCES NORMAL MTS OBJECT DECKS, RATHER THAN SPECIAL OBJECT MODULES.
            
           THE SUBMONITOR CONSISTS OF 4 CSECTS:  XMON, XPLDFLTS, COMPACT#, AND SORTIT.  ASSEMBLE USING *SYSMAC.
           COPIES *GDINFODSECT (594).
            
           THIS VERSION SUPPORTS CHANGES DESCRIBED IN 495/12.
0          Referenced by comments of: 318/9 
00495/002A  EXPL                     SUBMON UPDATE   UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=EXMON.CDU                     
            4.3T1   290  EXPL.SUBMON_UPDATE.UC.002          1 LINE     80    3 PAGE UM   UNSP                FEB. 25, 1980  15:13:15
0          THIS IS AN UPDATE TO BE APPLIED TO 495/1.  THE OBJECT (495/13) IS NOT INSTALLED
           AS THE EXPL SUBMONITOR AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003).
00495/003   EXPL                     SUBMONITOR      OC             W052:EXMON.O                                                    
            D4.2T1  282  EXPL.SUBMONITOR.OC.002             1 LINE   5618    5 PAGE UM   SHERRY              MAR. 26, 1979  03:22:18
00495/004   EXPL                     *EXPLIB         OE             *EXPLIB                                                         
            D4.2T1  283  EXPL.*EXPLIB.OE.003                1 LINE   6364    4 PAGE UM   SHERRY              MAR. 26, 1979  03:22:19
                         *EXPLIB              
0          *EXPLIB SHOULD BE A LINKEDIT OF XMON, COMPACT#, AND SORTIT, PLUS THE XPLDFLTS CSECT WHICH SPECIFIES A FREE
           STRING AREA SIZE (FSASIZE) OF 5 PAGES.  ALL SYMBOLS SHOULD BE PURGED EXCEPT XPLSM, XPLSM@SP, COMPACTI,
           AND TIMEXOFX.  IN ADDITION, TIMEXOFX SHOULD BE CHANGED TO TIME_OF_ AND AN ENT CARD SPECIFYING XPLSM
           AS THE ENTRY POINT SHOULD BE INSERTED INTO THE OBJECT MODULE.
0          Referenced by comments of: 782/60 
00495/005   EXPL                     *EXCOM          SX             *EXCOM                                                          
            D4.2T1  284  EXPL.*EXCOM.SX.004                 1 LINE     96   68 PAGE UM   SHERRY              MAR. 26, 1979  03:22:19
                         *EXCOM               
0          EXPL SOURCE FOR THE EXTENDED XPL COMPILER.  THE RESULTING OBJECT MUST BE RUN
           CONCATENATED WITH *EXPLIB.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00495/006A  EXPL                     *EXCOM UPDATE   UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=EXCOM.CDU                     
            4.3T1   291  EXPL.*EXCOM_UPDATE.UC.006          1 LINE     68    1 PAGE UM   UNSP                FEB. 25, 1980  15:07:25
0          THIS IS AN UPDATE TO BE APPLIED TO 495/5.  THE OBJECT (495/14) IS NOT
           INSTALLED AS *EXPL AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003). 
           FIXES PROBLEMS ENCOUNTERED BY LARGE PROGRAMS.
00495/007   EXPL                     *EXPL           OE             *EXPL                                                           
            D4.2T1  285  EXPL.*EXPL.OE.005                  1 SEQ   32767   41 PAGE UM   SHERRY              MAR. 26, 1979  03:22:24
                         *EXPL                
0          IT IS MOST CONVENIENT TO LINKEDIT THE COMPILER AND SUBMONITOR TOGETHER TO MAKE *EXPL.  NOTE THAT THE
           ENTRY POINT MUST BE XPLSM.  WHEN LINKEDITING, THE XPLDFLTS CSECT WHICH SETS THE FREE STRING AREA SIZE
           (FSASIZE) TO 15 PAGES SHOULD BE USED.
00495/008   EXPL                     *EXPLBNF        D              *EXPLBNF                                                        
            D4T1   1230  EXPL.*EXPLBNF.D.006                1 LINE     73    3 PAGE UM   SHERRY              JULY 28, 1977  00:37:44
                         *EXPLBNF             
0          SUITABLE INPUT TO *ANALYZER (318/13) TO PRODUCE THE NECESSARY DECLARATIONS FOR
           DRIVING THE PARSING ALGORITHM FOR *EXPL.
00495/009   EXPL                     *EXSKELETON     SX  G          *EXSKELETON                                                     
            D4T1   1231  EXPL.*EXSKELETON.SX.007            1 LINE     80   12 PAGE UM   SHERRY              JULY 28, 1977  00:37:46
                         *EXSKELETON          
0          THIS IS A VERSION OF SKELETON (318/12), A PROTO-COMPILER FOR USE WITH *EXPL.
           IT CONSISTS OF SEVERAL INDEPENDENTLY COMPILABLE EXTERNAL PROCEDURES WHICH FORM
           THE FRAMEWORK FOR A TABLE-DRIVEN COMPILER.
00495/010   EXPL                     CREATE          C              S0579 SAVE 'JWS-SAVE' FSNAME=EXPL.CREATE                        
            D4T1   1232  EXPL.CREATE.C.008                  1 LINE     31    1 PAGE UM   SHERRY              APR. 08, 1977  09:42:10
0          SOURCE FILE WHICH LINKEDITS THE APPROPRIATE PIECES OF THE SUBMONITOR AND EXCOM
           INTO AN EXPL COMPILER.
00495/011   EXPL                     MEMO 343        WF             S0563 D4T1 VLO FSNAME=EXPL.MEMO_343.WF.009(1)               1233
            D4T1   1233  EXPL.MEMO_343.WF.009               1 LINE    115    5 PAGE UM   SHERRY              JAN. 24, 1977  21:36:39
0          THIS IS COMPUTING CENTER MEMO 343 -- "EXPL--EXTENDED XPL"
00495/012   EXPL                     MEMO 390        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M390EXPL                         
            D4.2T1  286  EXPL.MEMO_390.WF.010               1 LINE     95    3 PAGE UM   SHERRY              SEP. 07, 1978  16:15:58
0          THIS IS COMPUTING CENTER MEMO 390 -- "CHANGES TO EXPL."
00495/013A  EXPL                     SUBMONITOR      OC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=EXMON                         
            4.3T1   292  EXPL.SUBMONITOR.OC.013             1 LINE   5290    5 PAGE UM   UNSP                FEB. 25, 1980  15:15:37
0          THIS IS THE OBJECT OF 495/1, WITH 495/2 UPDATE APPLIED.  THIS IS NOT INSTALLED
           AS THE EXPL SUBMONITOR AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB
           (9003).
            
           ********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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          D4.3 CHANGE:
            
           CHANGED TO FIX BUG IN THE COMPACTIFY SUBROUTINE.
           ********************************************************************************
0          Referenced by comments of: 495/2 
00495/014A  EXPL                     COMPILER        OC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=EXPL                          
            4.3T1   293  EXPL.COMPILER.OC.014               1 LINE  32767   41 PAGE UM   UNSP                FEB. 25, 1980  15:08:32
0          THIS IS THE OBJECT OF 495/5, WITH THE 495/6 UPDATE APPLIED.  THIS IS NOT 
           INSTALLED AS *EXPL AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003).
0          Referenced by comments of: 495/6 
00496/001A *APC                                      SA  G          LBT:APC.S                                                       
            4.3T1   294  APC..SA.001                        1 LINE     90   67 PAGE UM   TIFFANY             APR. 05, 1980  15:16:35
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, 746/1, 1016/1 
00496/002A *APC                                      OE  G          *APC                                                            
            4.3T1   295  APC..OE.002                        1 LINE  21255   15 PAGE UM   TIFFANY             APR. 05, 1980  15:16:41
                         *APC                 
00496/003  *APC                      EXPLAIN MSG     M              ETC:APCEXP                                                      
            D4.1T1  229  APC.EXPLAIN_MSG.M.003              1 LINE     66   10 PAGE UM   TIFFANY             MAY  13, 1978  17:29:42
                         ETC.:APCEXP          
0          EXPLAIN MESSAGE FILE FOR *APC.
00497/001  *SNAP                                     SF  G          S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80)           1  
            D4T1   1240  SNAP..SF.001                       1 SEQ      80  132 PAGE UM   FLANIGAN            JULY 28, 1977  00:40:58
00497/002  *SNAP                                     UU  G          S0722 'D3T3' FSNAME=SNAP..UU.2(1)                            147
            D4T1   1241  SNAP..UU.002                       1 LINE     73    1 PAGE UM   FLANIGAN            JULY 30, 1973  20:45.57
00497/003  *SNAP                                     OE  G          *SNAP                                                           
            D4T1   1242  SNAP..OE.003                       1 SEQ    5212   27 PAGE UM   FLANIGAN            JULY 28, 1977  00:43:57
                         *SNAP                
00498/001  *IG                       DI              SA  G          S0933 IGDIST FSNAME=IG.DI.S                                     
            RD16T1   78  IG.DI.SA.001                       1 LINE     84   72 PAGE UM   GOODRICH            JULY 12, 1979  22:48:19
0          THE INTEGRATED GRAPHICS (IG) SYSTEM IS A LIBRARY OF FORTRAN CALLABLE
           SUBROUTINES FOR PERFORMING GRAPHICS OPERATIONS ON A WIDE VARIETY OF GRAPHIC
           TERMINALS.  IT CONSISTS OF *IG AND ROUTINES FOR DEVICE DEPENDENT I/O SUPPORT.
           EACH SOURCE MODULE FOR THIS COMPONENT ALSO CONTAINS THE MTS COMMANDS FOR
           ASSEMBLING IT;  EACH SHOULD BE ASSEMBLED USING THE COPY:IG.COPY.M MACRO
           LIBRARY (498/9).
            
1                                                                                               SUN SEP 08/96   19:03:19   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          498/1 IS THE SOURCE FOR THE DEVICE INTERFACE CSECT (DI).
00498/002  *IG                       DSM             SA  G          S0933 IGDIST FSNAME=IG.DSM.S                                    
            D4.2T1  290  IG.DSM.SA.002                      1 LINE     86   38 PAGE UM   GOODRICH            MAR. 24, 1979  02:04:03
0          SOURCE FOR DATA STRUCTURE MANIPULATON CSECT (DSM).
00498/003  *IG                       PD              SA  G          S0933 IGDIST FSNAME=IG.PD.S                                     
            D4.2T1  291  IG.PD.SA.003                       1 LINE     87   16 PAGE UM   GOODRICH            MAR. 24, 1979  02:05:03
0          SOURCE FOR PICTURE DESCRIPTION CSECT (PD).
00498/004  *IG                       GETDD           SA  G          S0933 IGDIST FSNAME=IG.GETDD.S                                  
            RD16T1   79  IG.GETDD.SA.004                    1 LINE     91   22 PAGE UM   GOODRICH            JULY 12, 1979  22:48:43
0          SOURCE FOR GET DEVICE DEPENDENT ROUTINE CSECT (#IGETDD).
00498/005  *IG                       EGP             SA  G          S0933 IGDIST FSNAME=IG.EGP.S                                    
            D4.2T1  293  IG.EGP.SA.005                      1 LINE     86   10 PAGE UM   GOODRICH            MAR. 24, 1979  02:04:46
0          SOURCE FOR GET EXTERNAL GRAPHICS PROCEDURE CSECT (#IGETEGP).
00498/006  *IG                       ERRCOM          SA  G          S0933 IGDIST FSNAME=IG.ERRCOM.S                                 
            D4T1   1248  IG.ERRCOM.SA.006                   1 LINE     85    3 PAGE UM   GOODRICH            AUG. 05, 1976  21:11:45
0          SOURCE FOR ERROR COMMENT PRINTING CSECT (ERRCOM#).
00498/007  *IG                       LOAD            SA  G          S0933 IGDIST FSNAME=IG.LOAD.S                                   
            D4T1   1249  IG.LOAD.SA.007                     1 LINE     88   12 PAGE UM   GOODRICH            JULY 09, 1977  14:00:42
0          SOURCE FOR OBJECT LOADING FACILITY (LOAD).
00498/008  *IG                       *IG             OL  G          *IG                                                             
            D4.2T1  294  IG.*IG.OL.008                      1 SEQ   20060   20 PAGE UM   GOODRICH            MAR. 26, 1979  03:25:47
                         *IG                  
0          OBJECT LIBRARY FOR INTEGRATED GRAPHICS ROUTINES.
00498/009  *IG                       COPY:IG.COPY.M  SM  G          COPY:IG.COPY.M                                                  
            D4.2T1  295  IG.COPY:IG.COPY.M.SM.009           1 LINE     75   16 PAGE UM   GOODRICH            MAR. 26, 1979  03:25:48
                         COPY:IG.COPY.M       
0          MACRO LIBRARY OF COPY SECTIONS USED BY THE VARIOUS COMPONENTS OF IG.
0          Referenced by comments of: 498/1 
00498/010  *IG                       TEST            SF  G          W114:IG.TEST.S                                                  
            D4.2T1  296  IG.TEST.SF.010                     1 LINE     85   21 PAGE UM   GOODRICH            MAR. 26, 1979  03:25:54
0          FORTRAN SOURCE FOR THE PROGRAM TO TEST OUT NEW VERSIONS OF IG.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00498/011  *IG                       DUMP            SA  G          S0933 IGDIST FSNAME=IG.DUMP.S                                   
            D4T1   1253  IG.DUMP.SA.011                     1 LINE     88    8 PAGE UM   GOODRICH            MAY  01, 1977  16:08:35
0          SOURCE FOR IG DATA STRUCTURE DUMPING ROUTINE.
00498/012  *IG                       DUMP            OE  G          S0933 IGDIST FSNAME=IG.DUMP.O                                   
            D4T1   1254  IG.DUMP.OE.012                     1 LINE     80    3 PAGE UM   GOODRICH            JULY 09, 1977  21:48:05
0          OBJECT FOR IG DATA STRUCTURE DUMPING ROUTINE.
00498/013  *IG                       BRANCH MONITOR  SA  G          S0933 IGDIST FSNAME=BMON.S                                      
            D4T1   1255  IG.BRANCH_MONITOR.SA.013           1 LINE     69    4 PAGE UM   GOODRICH            JUNE 01, 1976  14:21:53
0          SOURCE FOR A PROGRAM WHICH MONITORS ALL THE BRANCHES IN A SPECIFIED ROUTINE.
00498/014  *IG                       BRANCH MONITOR  OE  G          S0933 IGDIST FSNAME=BMON.O                                      
            D4T1   1256  IG.BRANCH_MONITOR.OE.014           1 LINE    255    1 PAGE UM   GOODRICH            JULY 09, 1977  21:48:02
0          OBJECT FOR A PROGRAM WHICH MONITORS ALL THE BRANCHES IN A SPECIFIED ROUTINE.
00498/015  *IG                       RELINK          C              W114:IG.RELINK                                                  
            D4.1T1  237  IG.RELINK.C.015                    1 LINE     61    1 PAGE UM   GOODRICH            MAY  13, 1978  17:31:40
0          COMMANDS TO LINKEDIT AND CREATE A LIBRARY FOR A NEW VERSION OF IG.
00498/016  *IG                       STATS SAVE      C              S0933 IGDIST FSNAME=IG.SHUFFLE                                  
            D4.1T1  238  IG.STATS_SAVE.C.016                1 LINE     50    1 PAGE UM   GOODRICH            APR. 08, 1978  16:57:22
0          COMMANDS TO SAVE THE CONTENTS OF THE STATISTICS FILE (498/95) MAINTAINED BY IG.
           THE TAPE MOUNT COMMAND IN THIS FILE MUST BE CHANGED FOR EACH INSTALLATION BEFORE IT IS OF USE.
00498/017  *IG                       MEMO 299        WF             S0563 D4T1 VLO FSNAME=IG.MEMO_299.WF.017(1)                 1259
            D4T1   1259  IG.MEMO_299.WF.017                 1 LINE    235   61 PAGE UM   GOODRICH            MAR. 04, 1977  14:29:58
0          THIS IS COMPUTING CENTER MEMO 299 -- "INTEGRATED GRAPHICS SYSTEM USER'S GUIDE"
00498/018  *IG                       IMPLEMENTATION  WF             S0933 IGDIST FSNAME=IGIG.W                                      
            D4.2T1  297  IG.IMPLEMENTATION.WF.018           1 LINE    145   25 PAGE UM   GOODRICH            AUG. 29, 1978  01:29:16
0          THE INTEGRATED GRAPHICS INTERNAL GUTS AND IMPLEMENTATION GUIDE.
00498/019  *IG                       STATS CALC      SF  G          S0933 IGDIST FSNAME=IG.STATC.S                                  
            D4T1   1261  IG.STATS_CALC.SF.019               1 LINE     67    2 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:11
0          FORTRAN SOURCE FOR A PROGRAM WHICH CALCULATES AND GROUPS INFORMATION ON IG USAGE FROM THE STATISTICS GATHERED BY IG.
00498/020  *IG                       STATS SCAN      SA  G          S0933 IGDIST FSNAME=IG.STATSCN.S                                
            D4T1   1262  IG.STATS_SCAN.SA.020               1 LINE     87    3 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:16
0          FORTRAN SOURCE FOR A PROGRAM TO SCAN SELECTIVELY FOR CERTAIN RECORDS IN THE  STATISTICS FILE MAINTAINED BY IG.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00498/021  *IG                       PWRIT           SA  G          S0933 IGDIST FSNAME=IG.PWRIT.S                                  
            D4.1T1  240  IG.PWRIT.SA.021                    1 LINE     93   10 PAGE UM   GOODRICH            APR. 08, 1978  16:56:35
0          SOURCE FOR THE *PLOTSYS INTERFACE WHICH ALLOWS CALCOMP PLOTTING PROGRAMS TO RUN WITH IG INSTEAD.
00498/022  *IG                       UBPWRIT         SF  G          S0933 IGDIST FSNAME=IG.UBPWRIT.S                                
            D4T1   1264  IG.UBPWRIT.SF.022                  1 LINE     72    3 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:46
0          SOURCE FOR THE UBC PWRIT PROGRAM USED TO INTERFACE THEIR PLOTTING ROUTINES TO ALLOW PROGRAMS TO RUN WITH IG INSTEAD.
00498/023  *IG                       IGRI.339        S              S0596 BLAH 'IG ROUTINES' FSNAME=W114:IGRI.339.S                 
            D4T1   1265  IG.IGRI.339.S.023                  1 LINE     79   13 PAGE UM   GOODRICH            DEC. 21, 1974  16:04.29
0          SOURCE FOR AN OPERATING SYSTEM FOR THE DEC 339 / PDP-9 WHICH ALLOWS THE RUNNING OF IG.
00498/024  *IG                       FIGURES         SF  G          S0933 IGDIST FSNAME=IG.FIGS.S                                   
            D4T1   1266  IG.FIGURES.SF.024                  1 LINE     82    4 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:54
0          FORTRAN SOURCE FOR A PROGRAM TO GENERATE THE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE.
00498/025  *IG                       FIGURES 1       SG  G          S0933 IGDIST FSNAME=IG.FIGS1.S                                  
            D4T1   1267  IG.FIGURES_1.SG.025                1 LINE     56    1 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:57
0          GOM SOURCE FOR A PROGRAM TO GENERATE MORE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE.
00498/026  *IG                       FIGURES DATA    D              S0933 IGDIST FSNAME=IG.FIGS.D                                   
            D4T1   1268  IG.FIGURES_DATA.D.026              1 LINE    252    6 PAGE UM   GOODRICH            JUNE 16, 1976  19:12:52
0          DATA FOR THE PROGRAMS USED TO GENERATE THE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE.
00498/027  *IG                       GREEKFONT       SA  G          S0933 IGDIST FSNAME=IG.GREEKF.S                                 
            D4T1   1269  IG.GREEKFONT.SA.027                1 LINE     92    4 PAGE UM   GOODRICH            JULY 09, 1977  21:47:50
0          SOURCE FOR THE GREEK CHARACTER SET USED BY IG.  OBJECT IS AT LINES (400,999)
           OF 498/28.
0          Referenced by comments of: 498/28 
00498/028  *IG                       ETC:IG.FONTS    OC  G          ETC:IG.FONTS                                                    
            D4T1   1270  IG.ETC:IG.FONTS.OC.028             1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:50:39
                         ETC.:IG.FONTS        
0          THIS FILE CONTAINS THE OBJECT FOR THE IG CHARACTER FONTS, CURRENTLY ONLY THE
           GREEK FONT (498/27).  EACH FONT STARTS ON A MULTIPLE OF LINE 100.  LINES 0 TO
           99 CURRENTLY CONTAIN A SNOBOL PROGRAM TO CONVERT THE OLD BYTE-STYLE CHARACTER
           SET SOURCE TO THE NEW HALFWORD DEFINITION SOURCE.  THIS MAY BE DELETED WHEN NO
           LONGER NEEDED.
00498/029  *IG                       *IG.AGT         SA  G          S0933 IGDIST FSNAME=IG.AGT.S                                    
            D4T1   1271  IG.*IG.AGT.SA.029                  1 LINE     89    8 PAGE UM   GOODRICH            FEB. 26, 1977  20:24:08
0          SOURCE FOR THE DDR FOR THE ADAGE 10 REFRESH DISPLAY.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00498/030  *IG                       *IG.AGT         OC  G          S0933 IGDIST FSNAME=IG.AGT.O                                    
            D4T1   1272  IG.*IG.AGT.OC.030                  1 LINE     80    3 PAGE UM   GOODRICH            MAY  11, 1977  18:47:58
00498/031  *IG                       *IG.AJ830       SA  G          S0933 IGDIST FSNAME=IG.AJ830.S                                  
            D4T1   1273  IG.*IG.AJ830.SA.031                1 LINE     93   10 PAGE UM   GOODRICH            JULY 09, 1977  14:04:41
0          SOURCE FOR THE DDR FOR THE ANDERSON-JACOBSON 830 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION.
00498/032  *IG                       *IG.AJ830       OC  G          *IG.AJ830                                                       
            D4T1   1274  IG.*IG.AJ830.OC.032                1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:01
                         *IG.AJ830            
00498/033  *IG                       *IG.CCMP        SA  G          S0933 IGDIST FSNAME=IG.CCMP.S                                   
            D4.1T1  241  IG.*IG.CCMP.SA.033                 1 LINE    108    8 PAGE UM   GOODRICH            APR. 08, 1978  16:54:34
0          SOURCE FOR THE DDR FOR THE CALCOMP PLOTTER VIA *PLOTSYS.
00498/034  *IG                       *IG.CCMP        OC  G          *IG.CCMP                                                        
            D4.1T1  242  IG.*IG.CCMP.OC.034                 1 SEQ      80    2 PAGE UM   GOODRICH            MAY  13, 1978  17:32:04
                         *IG.CCMP             
0          HAS A "$CONTINUE WITH *PLOTSYS" CARD.
00498/035  *IG                       *IG.CK400       SA  G          S0933 IGDIST FSNAME=IG.CK400.S                                  
            D4.1T1  243  IG.*IG.CK400.SA.035                1 LINE     90   11 PAGE UM   GOODRICH            DEC. 07, 1977  23:26:43
0          SOURCE FOR THE DDR FOR THE COMPUTEK 400 STORAGE TUBE DISPLAY.
00498/036  *IG                       *IG.CK400       OC  G          *IG.CK400                                                       
            D4.1T1  244  IG.*IG.CK400.OC.036                1 SEQ      80    3 PAGE UM   GOODRICH            MAY  13, 1978  17:32:09
                         *IG.CK400            
00498/037  *IG                       *IG.DTC300      SA  G          S0933 IGDIST FSNAME=IG.DTC300.S                                 
            D4T1   1279  IG.*IG.DTC300.SA.037               1 LINE     95    9 PAGE UM   GOODRICH            JULY 09, 1977  14:04:56
0          SOURCE FOR THE DDR FOR THE DATA TERMINALS CORPORATION 300 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION.
00498/038  *IG                       *IG.DTC300      OC  G          *IG.DTC300                                                      
            D4T1   1280  IG.*IG.DTC300.OC.038               1 SEQ      80    2 PAGE UM   GOODRICH            JULY 28, 1977  00:51:13
                         *IG.DTC300           
00498/039  *IG                       *IG.DTC302      SA  G          S0933 IGDIST FSNAME=IG.DTC302.S                                 
            D4T1   1281  IG.*IG.DTC302.SA.039               1 LINE     95    9 PAGE UM   GOODRICH            JULY 09, 1977  14:05:02
0          SOURCE FOR THE DDR FOR THE DATA TERMINALS CORPORATION 302 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION.
00498/040  *IG                       *IG.DTC302      OC  G          *IG.DTC302                                                      
            D4T1   1282  IG.*IG.DTC302.OC.040               1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:18
                         *IG.DTC302           
00498/041  *IG                       *IG.GT40        SA  G          S0933 IGDIST FSNAME=IG.GT40.S                                   
            D4T1   1283  IG.*IG.GT40.SA.041                 1 LINE     91   10 PAGE UM   GOODRICH            MAY  01, 1977  16:06:13
0          SOURCE FOR THE DDR FOR THE DIGITAL EQUIPMENT CORPORATION GT40 REFRESH DISPLAY.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00498/042  *IG                       *IG.GT40        OC  G          *IG.GT40                                                        
            D4T1   1284  IG.*IG.GT40.OC.042                 1 SEQ      80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:22
                         *IG.GT40             
00498/043  *IG                       *IG.HP2648      SA  G        # S0933 IGDIST FSNAME=IG.HP2648.S                                 
                                                                                    UM   GOODRICH                                   
0          SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 2648 VIDEO-GRAPHICS TERMINAL.
           (NOT READY FOR DISTRIBUTION)
00498/044  *IG                       *IG.HP2648      OC  G        # *IG.HP2648                                                      
                                                                                    UM   GOODRICH                                   
0          (NOT READY FOR DISTRIBUTION)
00498/045  *IG                       *IG.HP7203      SA  G          S0933 IGDIST FSNAME=IG.HP7203.S                                 
            D4T1   1285  IG.*IG.HP7203.SA.043               1 LINE     95    9 PAGE UM   GOODRICH            MAY  01, 1977  16:06:18
0          SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 7203A PLOTTER WITH EIA INTERFACE.
00498/046  *IG                       *IG.HP7203      OC  G          *IG.HP7203                                                      
            D4T1   1286  IG.*IG.HP7203.OC.044               1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:26
                         *IG.HP7203           
00498/047A *IG                       *IG.HP7221      SA  G          S0933 IGDIST FSNAME=IG.HP7221.S                                 
            4.3T1   296  IG.*IG.HP7221.SA.047               1 LINE    102   17 PAGE UM   GOODRICH            AUG. 29, 1978  01:25:18
0          SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 7221A 4-PEN PLOTTER WITH EIA INTERFACE.
00498/048A *IG                       *IG.HP7221      OC  G          *IG.HP7221                                                      
            4.3T1   297  IG.*IG.HP7221.OC.048               1 LINE     80    5 PAGE UM   GOODRICH            APR. 05, 1980  15:19:52
                         *IG.HP7221           
00498/049  *IG                       *IG.HUGHES      SA  G          S0933 IGDIST FSNAME=IG.HUGHES.S                                 
            D4.1T1  245  IG.*IG.HUGHES.SA.045               1 LINE     92   19 PAGE UM   GOODRICH            OCT. 11, 1977  19:01:24
0          SOURCE FOR THE DDR FOR THE HUGHES GRAPHICS TERMINAL.
00498/050  *IG                       *IG.HUGHES      OC  G          *IG.HUGHES                                                      
            D4.1T1  246  IG.*IG.HUGHES.OC.046               1 LINE     80    4 PAGE UM   GOODRICH            MAY  13, 1978  17:32:14
                         *IG.HUGHES           
00498/051  *IG                       *IG.MX12000     SA  G          S0933 IGDIST FSNAME=IG.MX12000.S                                
            D4T1   1287  IG.*IG.MX12000.SA.045              1 LINE     94   13 PAGE UM   GOODRICH            JULY 09, 1977  14:06:49
0          SOURCE FOR THE DDR FOR THE MAGNAVOX 12000 PLASMA TERMINAL.
00498/052  *IG                       *IG.MX12000     OC  G          *IG.MX12000                                                     
            D4T1   1288  IG.*IG.MX12000.OC.046              1 LINE     80    4 PAGE UM   GOODRICH            JULY 28, 1977  00:51:31
                         *IG.MX12000          
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00498/053  *IG                       *IG.PEP         SA  G          S0933 IGDIST FSNAME=IG.PEP.S                                    
            D4T1   1289  IG.*IG.PEP.SA.047                  1 LINE     96   11 PAGE UM   GOODRICH            JULY 09, 1977  14:06:57
0          SOURCE FOR THE DDR FOR THE PRINCETON ELECTRONIC PRODUCTS 801 LITHICON DISPLAY.
00498/054  *IG                       *IG.PEP         OC  G          *IG.PEP                                                         
            D4T1   1290  IG.*IG.PEP.OC.048                  1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:35
                         *IG.PEP              
00498/055  *IG                       *IG.PRNT        SA  G          S0933 IGDIST FSNAME=IG.PRNT.S                                   
            D4T1   1291  IG.*IG.PRNT.SA.049                 1 LINE     91    4 PAGE UM   GOODRICH            MAY  01, 1977  16:06:34
0          SOURCE FOR THE DDR FOR PRINTER PLOTS. (WILL BE REPLACED SOON BY CODE FROM UBC).
00498/056  *IG                       *IG.PRNT        OC  G          *IG.PRNT                                                        
            D4T1   1292  IG.*IG.PRNT.OC.050                 1 LINE     80    2 PAGE UM   GOODRICH            JULY 28, 1977  00:51:39
                         *IG.PRNT             
00498/057  *IG                       *IG.QUMES5      SA  G          S0933 IGDIST FSNAME=IG.QUMES5.S                                 
            D4.2T1  298  IG.*IG.QUMES5.SA.057               1 LINE     92   10 PAGE UM   GOODRICH            JAN. 04, 1979  18:38:55
0          SOURCE FOR THE DDR FOR THE QUME SPRINT5 TERMINAL WITH DIABLO-STYLE PRINTER.
00498/058  *IG                       *IG.QUMES5      OC  G          *IG.QUMES5                                                      
            D4.2T1  299  IG.*IG.QUMES5.OC.058               1 LINE     80    4 PAGE UM   GOODRICH            MAR. 26, 1979  03:28:33
                         *IG.QUMES5           
00498/059  *IG                       *IG.SAVE        SA  G          S0933 IGDIST FSNAME=IG.SAVE.S                                   
            D4T1   1293  IG.*IG.SAVE.SA.051                 1 LINE     91    9 PAGE UM   GOODRICH            JULY 09, 1977  14:07:07
0          SOURCE FOR THE FAKE DDR WHICH DOES SAVING OF OBJECTS.
00498/060  *IG                       *IG.SAVE        OC  G          *IG.SAVE                                                        
            D4T1   1294  IG.*IG.SAVE.OC.052                 1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:43
                         *IG.SAVE             
00498/061  *IG                       *IG.TD4000      SA  G          S0933 IGDIST FSNAME=IG.TD4000.S                                 
            D4T1   1295  IG.*IG.TD4000.SA.053               1 LINE     92    9 PAGE UM   GOODRICH            JULY 09, 1977  14:07:12
0          SOURCE FOR THE DDR FOR THE TREND DATA 4000 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION.
00498/062  *IG                       *IG.TD4000      OC  G          *IG.TD4000                                                      
            D4T1   1296  IG.*IG.TD4000.OC.054               1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:51:48
                         *IG.TD4000           
00498/063  *IG                       *IG.TTY         SA  G          S0933 IGDIST FSNAME=IG.TTY.S                                    
            D4T1   1297  IG.*IG.TTY.SA.055                  1 LINE     99   10 PAGE UM   GOODRICH            JULY 11, 1977  15:01:03
0          SOURCE FOR THE DDR FOR THE TELETYPE DEBUGGING ROUTINES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00498/064  *IG                       *IG.TTY         OC  G          *IG.TTY                                                         
            D4T1   1298  IG.*IG.TTY.OC.056                  1 SEQ      80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:52:09
                         *IG.TTY              
00498/065  *IG                       *IG.TX4002      SA  G          S0933 IGDIST FSNAME=IG.TX4002.S                                 
            D4T1   1299  IG.*IG.TX4002.SA.057               1 LINE     96   10 PAGE UM   GOODRICH            JULY 09, 1977  14:07:23
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4002 STORAGE TUBE DISPLAY.
00498/066  *IG                       *IG.TX4002      OC  G          *IG.TX4002                                                      
            D4T1   1300  IG.*IG.TX4002.OC.058               1 SEQ      80    2 PAGE UM   GOODRICH            JULY 28, 1977  00:52:36
                         *IG.TX4002           
00498/067  *IG                       *IG.TX4006      SA  G          S0933 IGDIST FSNAME=IG.TX4006.S                                 
            D4T1   1301  IG.*IG.TX4006.SA.059               1 LINE     95   11 PAGE UM   GOODRICH            JULY 09, 1977  14:07:28
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4006 STORAGE TUBE DISPLAY.
00498/068  *IG                       *IG.TX4006      OC  G          *IG.TX4006                                                      
            D4T1   1302  IG.*IG.TX4006.OC.060               1 LINE     80    4 PAGE UM   GOODRICH            JULY 28, 1977  00:52:41
                         *IG.TX4006           
00498/069  *IG                       *IG.TX4010      SA  G          S0933 IGDIST FSNAME=IG.TX4010.S                                 
            D4T1   1303  IG.*IG.TX4010.SA.061               1 LINE     95   12 PAGE UM   GOODRICH            JULY 09, 1977  21:46:11
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4010 STORAGE TUBE DISPLAY.
00498/070  *IG                       *IG.TX4010      OC  G          *IG.TX4010                                                      
            D4T1   1304  IG.*IG.TX4010.OC.062               1 SEQ      80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:52:45
                         *IG.TX4010           
00498/071  *IG                       *IG.TX4014      SA  G          S0933 IGDIST FSNAME=IG.TX4014.S                                 
            D4.1T1  247  IG.*IG.TX4014.SA.065               1 LINE    105   12 PAGE UM   GOODRICH            OCT. 11, 1977  19:01:55
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4014 STORAGE TUBE DISPLAY.
00498/072  *IG                       *IG.TX4014      OC  G          *IG.TX4014                                                      
            D4.1T1  248  IG.*IG.TX4014.OC.066               1 SEQ      80    3 PAGE UM   GOODRICH            MAY  13, 1978  17:32:17
                         *IG.TX4014           
00498/073  *IG                       *IG.TX4025      SA  G          S0933 IGDIST FSNAME=IG.TX4025.S                                 
            D4.1T1  249  IG.*IG.TX4025.SA.067               1 LINE     95   11 PAGE UM   GOODRICH            APR. 08, 1978  16:57:48
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4025 STORAGE TUBE DISPLAY.
00498/074  *IG                       *IG.TX4025      OC  G          *IG.TX4025                                                      
            D4.1T1  250  IG.*IG.TX4025.OC.068               1 LINE     80    4 PAGE UM   GOODRICH            MAY  13, 1978  17:32:32
                         *IG.TX4025           
00498/075  *IG                       *IG.TX4662      SA  G          S0933 IGDIST FSNAME=IG.TX4662.S                                 
            D4.2T1  300  IG.*IG.TX4662.SA.075               1 LINE    102   12 PAGE UM   GOODRICH            JAN. 04, 1979  18:39:03
0          SOURCE FOR THE DDR FOR THE TEKTRONIX 4662 DIGITAL PLOTTER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00498/076  *IG                       *IG.TX4662      OC  G          *IG.TX4662                                                      
            D4.2T1  301  IG.*IG.TX4662.OC.076               1 LINE     80    4 PAGE UM   GOODRICH            MAR. 26, 1979  03:28:38
                         *IG.TX4662           
00498/077  *IG                       *IG.VUCOM       SA  G          S0933 IGDIST FSNAME=IG.VUCOM.S                                  
            D4T1   1309  IG.*IG.VUCOM.SA.067                1 LINE     93    6 PAGE UM   GOODRICH            FEB. 26, 1977  20:28:30
0          SOURCE FOR THE DDR FOR THE VUCOM TERMINAL.
00498/078  *IG                       *IG.VUCOM       OC  G          S0933 IGDIST FSNAME=IG.VUCOM.O                                  
            D4T1   1310  IG.*IG.VUCOM.OC.068                1 LINE     80    3 PAGE UM   GOODRICH            JUNE 16, 1976  19:09:45
00498/079  *IG                       *IG.XX1620      SA  G          S0933 IGDIST FSNAME=IG.XX1620.S                                 
            D4T1   1311  IG.*IG.XX1620.SA.069               1 LINE     95    9 PAGE UM   GOODRICH            JULY 09, 1977  21:46:28
0          SOURCE FOR THE DDR FOR THE XEROX 1620 TERMINAL WITH DIABLO PRINTER.
00498/080  *IG                       *IG.XX1620      OC  G          *IG.XX1620                                                      
            D4T1   1312  IG.*IG.XX1620.OC.070               1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  00:53:02
                         *IG.XX1620           
00498/081  *IG                       *IG.ZETA        SA  G          S0933 IGDIST FSNAME=IG.ZETA.S                                   
            D4T1   1313  IG.*IG.ZETA.SA.071                 1 LINE     86   14 PAGE UM   GOODRICH            FEB. 26, 1977  20:19:25
0          SOURCE FOR THE DDR FOR THE ZETA PLOTTER DEVELOPED BY NCSS.  NEEDS SOME CHANGES
           TO RUN IN MTS.  OBJECT NOT DISTRIBUTED.
00498/082  *IG                       *IG.3270        SA  G          S0933 IGDIST FSNAME=IG.3270.S                                   
            D4.1T1  253  IG.*IG.3270.SA.076                 1 LINE     88    9 PAGE UM   GOODRICH            APR. 08, 1978  16:57:58
0          SOURCE FOR THE DDR FOR THE IBM 3270 AND COMPATIBLE TERMINALS.
00498/083  *IG                       *IG.3270        OC  G          *IG.3270                                                        
            D4.1T1  254  IG.*IG.3270_-_370.OC.077           1 SEQ      80    2 PAGE UM   GOODRICH            MAY  13, 1978  17:32:36
                         *IG.3270             
00498/084  *IG                       *IG.339         SA  G          S0933 IGDIST FSNAME=IG.339.S                                    
            D4.1T1  256  IG.*IG.339.SA.080                  1 LINE     96    6 PAGE UM   GOODRICH            APR. 08, 1978  16:58:02
0          SOURCE FOR THE DDR FOR THE DIGITAL EQUIPMENT CORPORATION 339 REFRESH DISPLAY.
00498/085  *IG                       *IG.339         OC  G          *IG.339                                                         
            D4.1T1  257  IG.*IG.339.OC.081                  1 SEQ      80    2 PAGE UM   GOODRICH            MAY  13, 1978  17:32:39
                         *IG.339              
00498/086  *IG                       INTERACTIVE IG  SG  O          S0933 IGDIST FSNAME=IAIG.S                                      
            D4.1T1  258  IG.INTERACTIVE_IG.SG.082           1 LINE    115   24 PAGE UM   GOODRICH            APR. 08, 1978  17:10:19
0          SOURCE FOR AN INTERACTIVE VERSION OF IG REQUIRING NO PROGRAMMING ON PART OF USER.
           REQUIRES NEW:GOMLIB.  ALSO MAY BE USED AS A GRAPHICS MONITOR FOR PROGRAMS BY
           CALLING THE ENTRY REIAIG.
0          Referenced by comments of: 498/89, 498/91, 659/41 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00498/087  *IG                       INTERACTIVE IG  OC  O          S0933 IGDIST FSNAME=IAIG.O                                      
            D4.1T1  259  IG.INTERACTIVE_IG.OC.083           1 LINE     80   23 PAGE UM   GOODRICH            APR. 08, 1978  17:10:40
0          HAS A "$CONTINUE WITH NEW:GOMLIB+W081:SPANBREAK.O" CARD.
00498/088  *IG                       INTERACTIVE IG  WF  O          S0933 IGDIST FSNAME=IAIG.W                                      
            D4T1   1321  IG.INTERACTIVE_IG.WF.079           1 LINE    142    4 PAGE UM   GOODRICH            JULY 09, 1977  21:52:00
00498/089  *IG                       SPAN BREAK      SA  G          S0933 IGDIST FSNAME=SPANBREAK.S                                 
            D4T1   1322  IG.SPAN_BREAK.SA.080               1 LINE     76    4 PAGE UM   GOODRICH            JULY 09, 1977  21:52:04
0          SNOBOL STYLE SPAN AND BREAK FUNCTIONS USED BY INTERACTIVE IG (498/86).
00498/090  *IG                       SPAN BREAK      OC  G          S0933 IGDIST FSNAME=SPANBREAK.O                                 
            D4T1   1323  IG.SPAN_BREAK.OC.081               1 LINE     80    1 PAGE UM   GOODRICH            JULY 09, 1977  21:52:02
00498/091  *IG                       IAIGCMD         SS  G          S0933 IGDIST FSNAME=IAIGCMD.S                                   
            D4.1T1  260  IG.IAIGCMD.SS.087                  1 LINE     73    1 PAGE UM   GOODRICH            APR. 08, 1978  17:10:27
0          SNOBOL PROGRAM WHICH GENERATES GOM VECTOR VALUES STATEMENTS FOR COMMAND SCANNER
           DATA FOR INTERACTIVE IG (498/86).
00498/092  *IG                       VERSION LABLER  SG  G          S0933 IGDIST FSNAME=VERLAB.S                                    
            D4T1   1325  IG.VERSION_LABLER.SG.083           1 LINE    151    3 PAGE UM   GOODRICH            JULY 09, 1977  21:50:06
0          SOURCE FOR VERSION LABEL PROGRAM WHICH GENERATES A HEAD SHEET FOR EACH IG COMPONENT'S LISTING WHEN IT IS ASSEMBLED.
00498/093  *IG                       VERSION LABLER  OC  G          S0933 IGDIST FSNAME=VERLAB.O                                    
            D4T1   1326  IG.VERSION_LABLER.OC.084           1 LINE     80    4 PAGE UM   GOODRICH            JULY 09, 1977  21:50:04
00498/094  *IG                       MEMO 356        WF             S0563 D4T1 VLO FSNAME=IG.MEMO_356.WF.085(1)                 1327
            D4T1   1327  IG.MEMO_356.WF.085                 1 LINE    235   17 PAGE UM   GOODRICH            AUG. 14, 1977  21:30:55
0          THIS IS COMPUTING CENTER MEMO 356 -- "RECENT CHANGES AND ADDITIONS TO THE INTEGRATED
           GRAPHICS SYSTEM"
00498/095  *IG                       ETC:IG.STAT     D            # MTS:TST.EMPSEQWE                                                
                                                                                    UM   GOODRICH                                   
                         ETC.:IG.STAT         
0          FILE FOR ACCUMULATING USAGE STATISTICS.
0          Referenced by comments of: 498/16 
00500/001   BILLING                  BLSIGCK         SG  G          S0027 DISTRB FSNAME=BLSIGCK                                     
            D4.2T1  302  BILLING.BLSIGCK.SG.001             1 LINE     94    3 PAGE UM   ENGLE               JAN. 09, 1979  13:10:41
0          PROGRAM TO LIST ALL SIGNONS WHICH WERE MADE DURING THE BILLING PERIOD AND
           ARE STILL SIGNED ON OR WHICH STILL HAVE A STATISTICS RECORD IN THE 
           STATISTICS FILE.  IF SIGONSCN (500/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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 500/50 
00500/002   BILLING                  BLSIGCK         OC  G          S0027 DISTRB FSNAME=BLSC                                        
            D4.2T1  303  BILLING.BLSIGCK.OC.002             1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:10:44
00500/003A  BILLING                  BILLRFT         SP  G  BLRF    S0027 DISTRB FSNAME=BILLRFT                                     
            4.3T1   298  BILLING.BILLRFT.SP.003             1 LINE     80   21 PAGE UM   ENGLE               FEB. 20, 1980  11:20:33
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/004C  BILLING                  BILLRFT         UC  G          S0027 DISTRB FSNAME=BILLRFTUPD                                  
            4.3T1   299  BILLING.BILLRFT.UC.004             1 LINE     76    1 PAGE UM   ENGLE               FEB. 20, 1980  11:20:40
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00500/005A  BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=BLRF                                        
            4.3T1   300  BILLING.BILLRFT.OC.005             1 LINE     80   21 PAGE UM   ENGLE               FEB. 20, 1980  11:20:44
0          REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';).
00500/006A  BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=NETBLRF                                     
            4.3T1   301  BILLING.BILLRFT.OC.006             1 LINE     80   18 PAGE UM   ENGLE               FEB. 20, 1980  11:21:16
0          REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/007A  BILLING                  BILLING         SP  G  BILL    S0027 DISTRB FSNAME=BILLING                                     
            4.3T1   302  BILLING.BILLING.SP.007             1 LINE     80   31 PAGE UM   ENGLE               FEB. 20, 1980  11:23:54
0          PROGRAM TO DO MAIN PART OF BILLING AFTER SORT.
0          Referenced by comments of: 500/28, 500/30, 500/44 
00500/008C  BILLING                  BILLING         UC  G          S0027 DISTRB FSNAME=BILLINGUPD                                  
            4.3T1   303  BILLING.BILLING.UC.008             1 LINE     72    1 PAGE UM   ENGLE               FEB. 20, 1980  11:24:01
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00500/009A  BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=BILL                                        
            4.3T1   304  BILLING.BILLING.OC.009             1 LINE     80   27 PAGE UM   ENGLE               FEB. 20, 1980  11:24:04
0          REGULAR BILLING (COMPILED WITH %NET='';).
00500/010A  BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=NETBILL                                     
            4.3T1   305  BILLING.BILLING.OC.010             1 LINE     80   16 PAGE UM   ENGLE               FEB. 20, 1980  11:24:19
0          NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/011   BILLING                  BILPRNT         SP  G  BLPR    S0027 DISTRB FSNAME=BILPRNT                                     
            D4.2T1  307  BILLING.BILPRNT.SP.009             1 LINE     80   13 PAGE UM   ENGLE               JAN. 10, 1979  14:41:29
0          PROGRAM TO PRINT BILLING REPORTS.
1                                                                                               SUN SEP 08/96   19:03:19   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          Referenced by comments of: 500/29, 500/46 
00500/012   BILLING                  BILPRNT         OC  G          S0027 DISTRB FSNAME=BLPR                                        
            D4.2T1  308  BILLING.BILPRNT.OC.010             1 LINE     80   15 PAGE UM   ENGLE               JAN. 10, 1979  14:42:54
00500/013C  BILLING                  BILLUTIL        SG  G          S0027 DISTRB FSNAME=BILLUTIL                                    
            4.3T1   306  BILLING.BILLUTIL.SG.013            1 LINE    131    2 PAGE UM   ENGLE               FEB. 20, 1980  11:27:33
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/014   BILLING                  BILLUTIL        UC  G          S0027 DISTRB FSNAME=BILLUTILUPD                                 
                                                                                    UM   ENGLE                                      
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
0          Referenced by comments of: 500/31 
00500/015C  BILLING                  BILLUTIL        OC  G          S0027 DISTRB FSNAME=BLUT                                        
            4.3T1   307  BILLING.BILLUTIL.OC.015            1 LINE     80    4 PAGE UM   ENGLE               FEB. 20, 1980  11:27:36
00500/016C  BILLING                  BLPRVUTL        SG  G          S0027 DISTRB FSNAME=BLPRVUTL                                    
            4.3T1   308  BILLING.BLPRVUTL.SG.016            1 LINE     72    1 PAGE UM   ENGLE               FEB. 20, 1980  11:28:47
0          PROGRAM TO PRODUCE INPUT FOR TAXIR (668) SPECIFYING THE HEADING, MONTH, AND
           YEAR FOR A REPORT FOR THE PREVIOUS MONTH.
00500/017   BILLING                  BLPRVUTL        UC  G          S0027 DISTRB FSNAME=BLPRVUTLUPD                                 
                                                                                    UM   ENGLE                                      
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00500/018C  BILLING                  BLPRVUTL        OC  G          S0027 DISTRB FSNAME=BPRU                                        
            4.3T1   309  BILLING.BLPRVUTL.OC.018            1 LINE     80    1 PAGE UM   ENGLE               FEB. 20, 1980  11:28:51
00500/019C  BILLING                  UTILSORT        SG  G          S0027 DISTRB FSNAME=UTILSORT                                    
            4.3T1   310  BILLING.UTILSORT.SG.019            1 LINE     71    1 PAGE UM   ENGLE               FEB. 20, 1980  11:30:16
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/021C  BILLING                  UTILSORT        OC  G          S0027 DISTRB FSNAME=UTLS                                        
            4.3T1   311  BILLING.UTILSORT.OC.021            1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  11:30:19
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00500/022C  BILLING                  STATEMNT        SG  G          S0027 DISTRB FSNAME=STATEMNT                                    
            4.3T1   312  BILLING.STATEMNT.SG.022            1 LINE    149    6 PAGE UM   ENGLE               FEB. 20, 1980  11:31:55
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.
00500/024C  BILLING                  STATEMNT        OC  G          S0027 DISTRB FSNAME=STMT                                        
            4.3T1   313  BILLING.STATEMNT.OC.024            1 LINE     80   10 PAGE UM   ENGLE               FEB. 20, 1980  11:32:02
00500/025A  BILLING                  BILLWRITEUP     WF  G          S0027 DISTRB FSNAME=BILLWRITEUP                                 
            4.3T1   314  BILLING.BILLWRITEUP.WF.025         1 LINE    159    9 PAGE UM   ENGLE               FEB. 20, 1980  11:34:41
0          WRITEUP FOR RUNNING BILLING.
00500/026A  BILLING                  BILLSOURCE      C              S0027 DISTRB FSNAME=BILLSOURCE                                  
            4.3T1   315  BILLING.BILLSOURCE.C.026           1 LINE    535    2 PAGE UM   ENGLE               FEB. 20, 1980  11:35:33
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/027C  BILLING                  CMPUTLSOURCE    C              S0027 DISTRB FSNAME=CMPUTLSOURCE                                
            4.3T1   316  BILLING.CMPUTLSOURCE.C.027         1 LINE    348    3 PAGE UM   ENGLE               MAR. 25, 1980  15:03:24
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/028   BILLING                  BILLTABLES      D              S0027 DISTRB FSNAME=BILLTABLES                                  
            D4T2     11  BILLING.BILLTABLES.D.011           1 LINE     76    4 PAGE UM   ENGLE               MAY  17, 1976  12:57:23
0          MACHINE READABLE TABLE OF INFORMATION USED BY BILLING.  READ DURING EXECUTION OF BILLRFT (500/3) AND 
           BILLING (500/7).
00500/029   BILLING                  DIVISION        D              BILL:DIVISION                                                   
            D4T2     12  BILLING.DIVISION.D.012             1 LINE    104   22 PAGE UM   ENGLE               JULY 28, 1977  01:22:52
0          MACHINE READABLE TABLE OF UNIVERSITY UNITS ACCORDING TO UNIT CODE.  READ AND WRITTEN BY BILPRNT (500/11).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 500/13, 500/54 
00500/030   BILLING                  COVER           D              S0027 DISTRB FSNAME=COVER                                       
            D4T2     13  BILLING.COVER.D.013                1 LINE     66    1 PAGE UM   ENGLE               DEC. 05, 1975  13:40:06
0          MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS.  READ BY BILLING (500/7).
00500/031C  BILLING                  UTILIZATION         G          S0027 DISTRB FSNAME=UTILIZATION                                 
            4.3T1   317  BILLING.UTILIZATION..031           1 LINE    420    1 PAGE UM   ENGLE               FEB. 20, 1980  11:48:38
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                                     
            4.3T1   318  BILLING.RESTART.C.032              1 LINE     51    1 PAGE UM   ENGLE               FEB. 20, 1980  11:49:44
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                                     
            4.3T1   319  BILLING.BILLLIB.OL.033             1 LINE    276    9 PAGE UM   ENGLE               FEB. 22, 1980  17:01:36
0          LIBRARY FOR BILLING PROGRAMS.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00500/034   BILLING                  FLUSH           SP  G  FLSH    S0722 'D3T3' FSNAME=BILLING.FLUSH.SP.17(1)                   197
            D4T2     16  BILLING.FLUSH.SP.016               1 LINE     80    1 PAGE UM   ENGLE               JUNE 07, 1973  10:28.44
0          SUBROUTINE TO FORCE A LINE OF OUTPUT TO A PL/I STREAM FILE (PUT STATEMENTS) TO BE PRINTED NOW (DAMNIT),
           E.G., ON A TERMINAL FOR PROMPTING FOR INPUT.
00500/035   BILLING                  FLUSH           OC  G          S0780 'D3.1T1' FSNAME=BILLING.FLUSH.OC.17(1)                 306
            D4T2     17  BILLING.FLUSH.OC.017               1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1974  15:46.26
00500/036   BILLING                  BLPRJFL         SA  G          S0964 'D3.2T1' FSNAME=BILLING.BLPRJFL.SA.18(1)               394
            D4T2     18  BILLING.BLPRJFL.SA.018             1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  13:12.59
0          SUBROUTINE TO READ THE NEXT PROJECT RECORD FROM *PROJECT.  CALLED BY BILLRFT (500/3).
           COPIES ACCPROJFMT (104/2).
00500/037   BILLING                  BLPRJFL         OC  G          S0964 'D3.2T1' FSNAME=BILLING.BLPRJFL.OC.19(1)               395
            D4T2     19  BILLING.BLPRJFL.OC.019             1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:13.11
00500/038   BILLING                  PNLIST          SP  G  PNLS    S0027 DISTRB FSNAME=PNLIST                                      
            D4.2T1  313  BILLING.PNLIST.SP.022              1 LINE     80    5 PAGE UM   ENGLE               JAN. 10, 1979  16:34:56
0          PROGRAM TO PRODUCE LISTINGS OF PROJECT NUMBERS IN *PROJECT SORTED BY UNIVERSITY ACCOUNT NUMBER, INTER-DEPARTMENTAL
           REQUISITION NUMBER, UNIT CODE, AND NAME.
0          Referenced by comments of: 500/40 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00500/039   BILLING                  PNLIST          OC  G          S0027 DISTRB FSNAME=PNLS                                        
            D4.2T1  314  BILLING.PNLIST.OC.023              1 LINE     80    6 PAGE UM   ENGLE               FEB. 12, 1979  11:52:37
00500/040   BILLING                  PNLSEXTR        SA  G          S0964 'D3.2T1' FSNAME=BILLING.PNLSEXTR.SA.22(1)              398
            D4T2     22  BILLING.PNLSEXTR.SA.022            1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  13:16.12
0          SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/38).  CALLED BY PRJLIST (104/44) WHICH IS CALLED BY PNLIST.
           COPIES ACCPROJFMT (104/2).
00500/041   BILLING                  PNLSEXTR        OC  G          S0964 'D3.2T1' FSNAME=BILLING.PNLSEXTR.OC.23(1)              399
            D4T2     23  BILLING.PNLSEXTR.OC.023            1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:16.32
00500/042   BILLING                  BLRECPR         SP  G          S0964 'D3.2T1' FSNAME=BILLING.BLRECPR.SP.24(1)               400
            D4T2     24  BILLING.BLRECPR.SP.024             1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  14:16.05
0          PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/3).
00500/043   BILLING                  BLRECPR         OC  G          S0964 'D3.2T1' FSNAME=BILLING.BLRECPR.OC.25(1)               401
            D4T2     25  BILLING.BLRECPR.OC.025             1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  14:16.20
00500/044   BILLING                  POSIFIL         SP  G          S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.SP.26(1)               312
            D4T2     26  BILLING.POSIFIL.SP.026             1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  15:49.10
0          SUBROUTINE CALLED BY BILLING (500/7) TO POSITION PL/1 FILES FOR RESTART.
00500/045   BILLING                  POSIFIL         OC  G          S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.OC.27(1)               313
            D4T2     27  BILLING.POSIFIL.OC.027             1 LINE     80    2 PAGE UM   ENGLE               JAN. 08, 1974  15:49.29
00500/046   BILLING                  BLDVSRTE        SA  G  BDSE    S0027 DISTRB FSNAME=BLDVSRTE                                    
            D4.2T1  315  BILLING.BLDVSRTE.SA.030            1 LINE     80    4 PAGE UM   ENGLE               JAN. 10, 1979  14:53:17
0          SORT EXIT SUBROUTINES TO DO DIVISION SORT FOR BILPRNT (500/11).  COPIES GRDEF
           (104/70).
00500/047   BILLING                  BLDVSRTE        OC  G          S0027 DISTRB FSNAME=BDSE                                        
            D4.2T1  316  BILLING.BLDVSRTE.OC.031            1 LINE     80    2 PAGE UM   ENGLE               FEB. 12, 1979  11:52:41
00500/048   BILLING                  BILLMNT         SG  G          S0027 DISTRB FSNAME=BILLMNT                                     
            D4T2     30  BILLING.BILLMNT.SG.030             1 LINE     73    1 PAGE UM   ENGLE               MAR. 01, 1977  17:10:37
0          GOM PROGRAM TO MOUNT THE BILLING REPORT TAPE.
00500/049   BILLING                  BILLMNT         OC  G          S0027 DISTRB FSNAME=BMNT                                        
            D4T2     31  BILLING.BILLMNT.OC.031             1 LINE     80    3 PAGE UM   ENGLE               MAR. 01, 1977  17:10:40
00500/050   BILLING                  SIGONSCN        SA  G  SSCN    S0027 DISTRB FSNAME=SIGONSCN                                    
            D4.2T1  317  BILLING.SIGONSCN.SA.034            1 LINE     80    4 PAGE UM   ENGLE               JAN. 09, 1979  13:13:20
0          SUBROUTINE TO SCAN THE JOB TABLE FOR SIGNONS MADE DURING THE BILLING
           PERIOD.  CALLED BY BLSIGCK (500/1).  COPIES COPY:GLOBALS (1026/3)
           AND COPY:LLMPSEQU(100) (087).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 500/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00500/051   BILLING                  SIGONSCN        OC  G          S0027 DISTRB FSNAME=SSCN                                        
            D4.2T1  318  BILLING.SIGONSCN.OC.035            1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  13:13:26
00500/052   BILLING                  TAPMNT          SG  G          S0027 DISTRB FSNAME=TAPMNT                                      
            D4.2T1  319  BILLING.TAPMNT.SG.036              1 LINE     72    3 PAGE UM   ENGLE               JAN. 09, 1979  13:48:40
0          SUBROUTINE TO ACQUIRE SUCCESSIVE FILES FOR A SPECIFIED RANGE FROM TAPE
           DIRECTORY TAPES.
00500/053   BILLING                  TAPMNT          OC  G          S0027 DISTRB FSNAME=TMNT                                        
            D4.2T1  320  BILLING.TAPMNT.OC.037              1 LINE     80    5 PAGE UM   ENGLE               JAN. 09, 1979  13:50:32
00500/054C  BILLING                  DIVTOTXR        SG  G          S0027 DISTRB FSNAME=DIVTOTXR                                    
            4.3T1   320  BILLING.DIVTOTXR.SG.054            1 LINE     99    3 PAGE UM   ENGLE               FEB. 20, 1980  11:51:13
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.
00500/056C  BILLING                  DIVTOTXR        OC  G          S0027 DISTRB FSNAME=DTXR                                        
            4.3T1   321  BILLING.DIVTOTXR.OC.056            1 LINE     80    4 PAGE UM   ENGLE               FEB. 20, 1980  11:51:16
00501/001A  MTS VOLUME 3             MASTER          WT             S1167 MTSV3 'MTS MANUALS' POSN=NEWM15.V3                        
            4.3T1   322  MTS_VOLUME_3.MASTER.WT.001         1 SEQ     132  330 PAGE UM   MANUAL              APR. 05, 1980  15:23:40
0          TEXT/360 MASTER FOR VOLUME 3 "SYSTEM SUBROUTINE DESCRIPTIONS" OF THE UM MTS MANUALS
           (OCTOBER 1976, UPDATED JUNE 1977, FEBRUARY 1978, JULY 1978, OCTOBER 1979, AND
           APRIL 1980).
            
           EDITOR:  RICHARD A. SALISBURY
00501/002A  MTS VOLUME 3             PRINT           PT             S1167 MTSV3 'MTS MANUALS' POSN=PRINT15.V3                       
            4.3T1   323  MTS_VOLUME_3.PRINT.PT.002          1 SEQ     132  687 PAGE UM   MANUAL              APR. 05, 1980  15:23:59
0          TEXT/360 PRINT FILE.
00501/003   MTS VOLUME 3             UPDATE 1        PT             W073:TNLV3.JUN77                                                
            D4.2T1  323  MTS_VOLUME_3.UPDATE_1.PT.003       1 LINE    147  100 PAGE UM   MANUAL              APR. 01, 1979  22:22:21
0          THIS IS COMPUTING CENTER MEMO 358 -- "UPDATE 1 TO MTS VOLUME 3," 
           (JUNE 1977).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00501/004   MTS VOLUME 3             UPDATE 2        PT             W073:TNLV3.FEB78                                                
            D4.2T1  324  MTS_VOLUME_3.UPDATE_2.PT.004       1 LINE    106   77 PAGE UM   MANUAL              APR. 01, 1979  22:22:36
0          THIS IS COMPUTING CENTER MEMO 374 -- "UPDATE 2 TO MTS VOLUME 3," 
           (FEBRUARY 1978).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00501/005   MTS VOLUME 3             UPDATE 3        PT             W073:TNLV3.JUL78                                                
            D4.2T1  325  MTS_VOLUME_3.UPDATE_3.PT.005       1 LINE    133   44 PAGE UM   MANUAL              APR. 01, 1979  22:22:45
0          THIS IS COMPUTING CENTER MEMO 385 -- "UPDATE 3 TO MTS VOLUME 3," 
           (JULY 1978).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00501/006A  MTS VOLUME 3             UPDATE 4        PT             W073:TNLV3.OCT79                                                
            4.3T1   324  MTS_VOLUME_3.UPDATE_4.PT.006       1 LINE    152  129 PAGE UM   MANUAL              APR. 05, 1980  15:24:11
0          THIS IS COMPUTING CENTER MEMO 409 -- "UPDATE 4 TO MTS VOLUME 3,"  (OCTOBER
           1979).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00501/007C  MTS VOLUME 3             UPDATE 5        PT             W073:TNLV3.APR80                                                
            4.3T1   325  MTS_VOLUME_3.UPDATE_5.PT.007       1 LINE    103   26 PAGE UM   MANUAL              APR. 05, 1980  15:24:23
0          THIS IS "UPDATE 5 TO MTS VOLUME 3" (APRIL 1980).  $COPY TO A TN PRINTER
           USING THE @MCC MODIFIER.
00502/001   DEADFILES                SCANFILES       SA  G  SCFL    S0027 DISTRB FSNAME=SCANFILE                                    
            D4T2     34  DEADFILES.SCANFILES.SA.001         1 LINE     80    9 PAGE UM   ENGLE               APR. 18, 1977  14:40:28
0          DEADFILES IS A SERIES OF PROGRAMS USED TO REMOVE FILES WHICH BELONG TO EXPIRED
           USER ID'S.  AT UM, THIS IS DONE ONCE PER MONTH AND THE TAPE(S) GENERATED ARE
           SAVED INDEFINITELY.  THE OPERATOR'S MANUAL (592) DESCRIBES THE PROCEDURE.
           HOWEVER, IT SAYS TO USE USER ID W035 (WHICH IS NOT ON THE DISTRIBUTED PACK).
           USE USER ID RSTR INSTEAD AND USE THE PROGRAMS RSTR:SCANFILES AND RSTR:FIX
           INSTEAD OF THE CORRESPONDING PROGRAMS UNDER W035.
            
           SCANFILES COPIES ACCFORMAT (104/1).  ASSEMBLE USING COPY:FILE.MACROS (482/33).
           RUN WITH PROT=OFF.
0          Referenced by comments of: 92/1, 104/147, 104/148, 484/1 
00502/002   DEADFILES                SCANFILES       OE  G          MTS:TST.SCANFILE                                                
            D4T2     35  DEADFILES.SCANFILES.OE.002         1 LINE   3320    3 PAGE UM   ENGLE               APR. 18, 1977  14:43:09
                         RSTR:SCANFILES       
00502/003A  DEADFILES                DESTROY         SA  G  DSTR    RSTR:DEADFILEDES(1000)                                          
            4.3T1   326  DEADFILES.DESTROY.SA.003           1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  15:24:31
                         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.
            
           ********************************************************************************
           D4.3 CHANGES:
            
           CHANGED TO READ FILE LIST @ÂTRIM.
           ********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00502/004A  DEADFILES                DESTROY         OC  G          RSTR:DEADFILEDES(1,998)                                         
            4.3T1   327  DEADFILES.DESTROY.OC.004           1 LINE     80    1 PAGE UM   HELFFRICH           APR. 05, 1980  15:24:34
00502/005A  DEADFILES                CATDES          SA  G  CDES    RSTR:DEADUCATDES(1000)                                          
            4.3T1   328  DEADFILES.CATDES.SA.005            1 LINE     80    4 PAGE UM   HELFFRICH           APR. 05, 1980  15:24:36
                         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.
            
           *****************************************************************************
           D4.3 CHANGES:
            
            1)  READS USER ID INPUT LIST @ÂTRIM.
            
            2)  SCRATCH AREA INCREASED FOR VAMX SUPPORT.
            
            3)  CHANGED TO CHECK FOR PRESENCE OF FILES IN THE USER CATALOG BEFORE 
                DESTROYING THE CATALOG.
           -----------------------------------------------------------------------------
            
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT:
            
           RD4.2A/RD16:
            
           CHANGED TO BUILD NEW MASTER FILE DIRECTORY IN RSTR:FILEDIR.NEW RATHER
           THAN IN PLACE IN RSTR:FILEDIR.MAS.  THIS MAKES *RESTORE USABLE DURING
           THE PERIOD WHEN CATDES IS RUNNING.
           *****************************************************************************
00502/006A  DEADFILES                CATDES          OC  G          RSTR:DEADUCATDES(1,998)                                         
            4.3T1   329  DEADFILES.CATDES.OC.006            1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  15:24:38
0          THIS FILE SHOULD HAVE THE PROGRAM KEY RSTR:DEADUCATDES
00502/007A  DEADFILES                SAVEFILES       SA  G  SVFL    RSTR:DEADSAVE(1000)                                             
            4.3T1   330  DEADFILES.SAVEFILES.SA.007         1 LINE     80    7 PAGE UM   HELFFRICH           APR. 05, 1980  15:24:41
0          PROGRAM TO SAVE A SPECIFIC SET OF FILES - USUALLY THE LIST OF DEAD FILES, 
           BUT IT READS AN ARBITRARY LIST - IN THE SAME FORMAT AS FILESAVE (067).
           ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33).  CALLS THE FOLLOWING
           SUBROUTINES:  SAVEFILE (067/2), TAPEOUT (067/3), AND FILEDSCB (502/9).
            
           ******************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX SUPPORT.
           ******************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 502/9 
00502/008A  DEADFILES                SAVEFILES       OC  G          RSTR:DEADSAVE(1,998)                                            
            4.3T1   331  DEADFILES.SAVEFILES.OC.008         1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  15:24:43
                         RSTR:DEADSAVE        
00502/009A  DEADFILES                FILEDSCB SUBR   SA  G  DSCB    RSTR:FILEDSCB(1000)                                             
            4.3T1   332  DEADFILES.FILEDSCB_SUBR.SA.009     1 LINE     80    5 PAGE UM   HELFFRICH           APR. 05, 1980  15:24:46
0          SUBROUTINE CALLED BY SAVEFILES (502/7) AND THE ONLINE FILESAVE (716) TO GET
           DSCB'S FOR A FILE.  ASSEMBLE USING COPY:FILE.MACROS (482/33), COPY:MISC.MACROS
           (728) AND *SYSMAC. 
            
           ******************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX SUPPORT.
           ******************************************************************************
0          Referenced by comments of: 67/17, 67/37, 502/7 
00502/010A  DEADFILES                FILEDSCB SUBR   OC  G          RSTR:FILEDSCB(1,998)                                            
            4.3T1   333  DEADFILES.FILEDSCB_SUBR.OC.010     1 LINE     80    2 PAGE UM   HELFFRICH           APR. 05, 1980  15:24:48
                         RSTR:FILEDSCB        
00502/011   DEADFILES                FIX             SA  G          S0564 D4T2 VLO FSNAME=DEADFILES.FIX.SA.011(1)                 44
            D4T2     44  DEADFILES.FIX.SA.011               1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1973  17:58.20
0          PROGRAM TO UPDATE THE FILE INFORMATION IN AN ACCOUNTING RECORD TO ADJUST FOR THE FILES DESTROYED.
           CALLS *ACCRESTORE.  RUN WITH PROT=OFF.
0          Referenced by comments of: 104/147, 104/148 
00502/012   DEADFILES                FIX             OC  G          MTS:TST.FIX                                                     
            D4T2     45  DEADFILES.FIX.OC.012               1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:59.15
                         RSTR:FIX             
00504/001A  MTS VOLUME 1             MASTER          WT             S0488 MTSV1 'MTS MANUALS' POSN=NEWM8.V1                         
            4.3T1   334  MTS_VOLUME_1.MASTER.WT.001         1 SEQ     132  353 PAGE UM   MANUAL              APR. 05, 1980  15:26:54
0          TEXT/360 MASTER FOR VOLUME 1, "MICHIGAN TERMINAL SYSTEM," OF THE UM MTS MANUALS 
           (DECEMBER 1979).
            
           EDITOR:  RICHARD A. SALISBURY
0          Referenced by comments of: 648/18 
00504/002A  MTS VOLUME 1             PRINT           PT             S0488 MTSV1 'MTS MANUALS' POSN=PRINT8.V1                        
            4.3T1   335  MTS_VOLUME_1.PRINT.PT.002          1 SEQ     132  608 PAGE UM   MANUAL              APR. 05, 1980  15:27:12
0          TEXT/360 PRINT FILE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00504/003A  MTS VOLUME 1             ERROR DUMP      P              S0488 MTSV1 'MTS MANUALS' POSN=ERRORDUMP.8                      
            4.3T1   336  MTS_VOLUME_1.ERROR_DUMP.P.003      1 SEQ     133    3 PAGE UM   MANUAL              APR. 05, 1980  15:27:21
0          PRINTED OUTPUT FOR EXAMPLE OF USING ERROR DUMPS AND LOAD MAPS.
00504/004A  MTS VOLUME 1             DEBUG DUMP      P              S0488 MTSV1 'MTS MANUALS' POSN=DEBUGDUMP.8                      
            4.3T1   337  MTS_VOLUME_1.DEBUG_DUMP.P.004      1 SEQ     105    3 PAGE UM   MANUAL              APR. 05, 1980  15:27:23
0          PRINTED OUTPUT FOR EXAMPLE IN DEBUG MODE SECTION.
00504/005A  MTS VOLUME 1             INDEX SOURCE    D              S0488 MTSV1 'MTS MANUALS' POSN=V1INDEXSOU.8                     
            4.3T1   338  MTS_VOLUME_1.INDEX_SOURCE.D.005    1 SEQ     121    8 PAGE UM   MANUAL              APR. 05, 1980  15:27:26
00504/006A  MTS VOLUME 1             VISUAL MODE     WT             S0488 MTSV1 'MTS MANUALS' POSN=VISUALMODE.8                     
            4.3T1   339  MTS_VOLUME_1.VISUAL_MODE.WT.006    1 SEQ      88    4 PAGE UM   MANUAL              APR. 05, 1980  15:28:57
0          TEXT360 SOURCE FOR VISUAL MODE DIAGRAMS IN "EDIT MODE" SECTION OF MTS 
           VOLUME 1.
00505/001  *ALGOL                    DUMPRESTORE     C              S0504 'UBC -> UM #6' FMT=U(255)                              1  
            D4T2     51  ALGOL.DUMPRESTORE.C.001            1 SEQ      44    2 PAGE UNE  SALISBURY           JULY 28, 1977  01:42:52
0          MTS COMMANDS USED TO GENERATE OR RESTORE THE ALGOL FILES ON THE UNE ALGOL
           DISTRIBUTION TAPE.  ALTHOUGH THESE COMMANDS ARE NOT APPROPRIATE FOR RESTORING
           THE ALGOL FILES FROM THE DIST 3 TAPE, THEY ARE INCLUDED BECAUSE THEY SHOW
           THE ORGANIZATION OF THE UNE ALGOL.
00505/002  *ALGOL                    CINTSORC        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         4  
            D4T2     52  ALGOL.CINTSORC.SA.002              1 SEQ      80   30 PAGE UNE  SALISBURY           JULY 28, 1977  01:42:56
0          COMPILER/MTS INTERFACE MODULE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 505/19 
00505/003  *ALGOL                    FSACONV         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         5  
            D4T2     53  ALGOL.FSACONV.SA.003               1 SEQ      80    2 PAGE UNE  SALISBURY           JULY 28, 1977  01:42:56
0          COPY SECTION COPIED BY COMPILER.
00505/004  *ALGOL                    FSAREA          SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         6  
            D4T2     54  ALGOL.FSAREA.SA.004                1 SEQ      80    3 PAGE UNE  SALISBURY           JULY 28, 1977  01:42:59
0          COPY SECTION COPIED BY COMPILER.
00505/005  *ALGOL                    IEX50T          SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         7  
            D4T2     55  ALGOL.IEX50T.SA.005                1 SEQ      80   95 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:04
0          COPY SECTION COPIED BY COMPILER.
00505/006  *ALGOL                    IEX60000        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         8  
            D4T2     56  ALGOL.IEX60000.SA.006              1 SEQ      80   15 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:06
0          COPY SECTION COPIED BY COMPILER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00505/007  *ALGOL                    OSALG00         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         14 
            D4T2     57  ALGOL.OSALG00.SA.007               1 SEQ      80   10 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:17
0          COMPS 505/7 THROUGH 505/16 ARE OS/360 ALGOL COMPILER SOURCE.
           EACH MUST BE ASSEMBLED USING THE SPECIAL OS MACRO LIBRARY (505/17).
00505/008  *ALGOL                    OSALG01         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         15 
            D4T2     58  ALGOL.OSALG01.SA.008               1 SEQ      80    4 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:17
00505/009  *ALGOL                    OSALG10         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         16 
            D4T2     59  ALGOL.OSALG10.SA.009               1 SEQ      80   22 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:20
00505/010  *ALGOL                    OSALG11         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         17 
            D4T2     60  ALGOL.OSALG11.SA.010               1 SEQ      80   88 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:25
00505/011  *ALGOL                    OSALG20         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         18 
            D4T2     61  ALGOL.OSALG20.SA.011               1 SEQ      80   16 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:26
00505/012  *ALGOL                    OSALG30         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         19 
            D4T2     62  ALGOL.OSALG30.SA.012               1 SEQ      80   62 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:30
00505/013  *ALGOL                    OSALG40         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         20 
            D4T2     63  ALGOL.OSALG40.SA.013               1 SEQ      80   17 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:32
00505/014  *ALGOL                    OSALG50         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         21 
            D4T2     64  ALGOL.OSALG50.SA.014               1 SEQ      80   96 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:37
00505/015  *ALGOL                    OSALG51         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         22 
            D4T2     65  ALGOL.OSALG51.SA.015               1 SEQ      80   24 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:39
00505/016  *ALGOL                    OSALG51M        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         23 
            D4T2     66  ALGOL.OSALG51M.SA.016              1 SEQ      80    9 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:41
00505/017  *ALGOL                    OSMAC           SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         24 
            D4T2     67  ALGOL.OSMAC.SA.017                 1 SEQ      80  103 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:46
0          SPECIAL OS INTERFACE MACROS.  MUST BE USED TO ASSEMBLE COMPS 505/7 THROUGH
           505/16.
0          Referenced by comments of: 505/7, 505/20, 505/21 
00505/018  *ALGOL                    WORKAREA        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         25 
            D4T2     68  ALGOL.WORKAREA.SA.018              1 SEQ      80    4 PAGE UNE  SALISBURY           JULY 28, 1977  01:43:48
0          COPY SECTION COPIED BY COMPILER AND LIBRARY.
00505/019  *ALGOL                    *ALGOL          OC  G          *ALGOL                                                          
            D4T2     69  ALGOL.*ALGOL.OC.019                1 SEQ      80   31 PAGE UM   SALISBURY           JULY 28, 1977  01:43:50
                         *ALGOL               
0          COMPLETE COMPILER OBJECT FILE.  CONSISTS OF OBJECT OF COMPS 505/7 THROUGH
           505/16 (THE OS/360 SOURCE) PLUS THE COMPILER/MTS INTERFACE MODULE
           (505/2) AND AN " ENT            COMENTRY" LOADER CARD TO SPECIFY THE COMPILER
           ENTRY POINT.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00505/020  *ALGOL                    LIBSORC         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         11 
            D4T2     70  ALGOL.LIBSORC.SA.020               1 SEQ      80  181 PAGE UNE  SALISBURY           JULY 28, 1977  01:44:18
0          OS/360 LIBRARY SOURCE.  ASSEMBLE USING OSMAC (505/17).
00505/021  *ALGOL                    LIBSORC1        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         12 
            D4T2     71  ALGOL.LIBSORC1.SA.021              1 SEQ      80   37 PAGE UNE  SALISBURY           JULY 28, 1977  01:44:22
0          MORE OS/360 LIBRARY SOURCE.  ASSEMBLE USING OSMAC (505/17).
00505/022  *ALGOL                    LINTSORC        SA  G          S0722 'D3T3' FSNAME=ALGOL.LINTSORC.SA.22(1)                  248
            D4T2     72  ALGOL.LINTSORC.SA.022              1 LINE     80   28 PAGE UM   SALISBURY           AUG. 03, 1973  22:24.23
0          LIBRARY/MTS INTERFACE MODULE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 505/23 
00505/023  *ALGOL                    *ALGOLLIB       OL  G          *ALGOLLIB                                                       
            D4T2     73  ALGOL.*ALGOLLIB.OL.023             1 SEQ    3963   11 PAGE UM   SALISBURY           JULY 28, 1977  01:45:30
                         *ALGOLLIB            
0          COMPLETE LIBRARY OBJECT FILE.  CONSISTS OF OBJECT OF COMPS 505/20 AND 505/21
           (THE OS/360 LIBRARY SOURCE) PLUS THE LIBRARY/MTS INTERFACE MODULE (505/22)
           AND AN " ENT            LIBENTRY" LOADER CARD TO SPECIFY THE LIBRARY ENTRY POINT.
00505/024  *ALGOL                    KDFSORC         S   G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         10 
            D4T2     74  ALGOL.KDFSORC.S.024                1 SEQ      80   45 PAGE UNE  SALISBURY           JULY 28, 1977  01:45:40
0          SOURCE FOR THE "KDF9" I/O LIBRARY.  MAY BE USED BY USERS WHO ARE ACCUSTOMED TO
           RUNNING ALGOL PROGRAMS ON THE KDF9 COMPUTER.  THE SOURCE IS ENTIRELY IN ALGOL
           EXCEPT FOR "FORMAT" WHICH IS ASSEMBLE LANGUAGE.
00505/025  *ALGOL                    *KDFLIB         OL  G          *KDFLIB                                                         
            D4T2     75  ALGOL.*KDFLIB.OL.025               1 SEQ     348   56 PAGE UM   SALISBURY           JULY 28, 1977  01:45:43
                         *KDFLIB              
0          KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB.  NOTE:  THIS VERSION OF KDFLIB USES SHORT
           FLOATING POINT ARITHMETIC.  PAR=LONG,PROCEDURE SHOULD BE USED TO RECOMPILE THE LIBRARY
           IF LONG FLOATING POINT ARITHMETIC IS DESIRED.
00505/026  *ALGOL                    KDFLIBTEST      S   G          S0722 'D3T3' FSNAME=ALGOL.KDFLIBTEST.S.26(1)                 252
            D4T2     76  ALGOL.KDFLIBTEST.S.026             1 LINE     67    1 PAGE UM   SALISBURY           AUG. 03, 1973  22:25.28
0          ALGOL PROGRAM TO TEST *KDFLIB.
00506/001A  PL1 MAINTENANCE          CRELCS          SA  G  CLCS    S0410 MTSPL1 'PL1LIB' POSN=CRELCS                            37 
            4.3T1   340  PL1_MAINTENANCE.CRELCS.SA.001      1 SEQ      80    5 PAGE UM   TIFFANY             APR. 05, 1980  15:30:20
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
           SCARDS, THE COMPLETE LIST OF LOW-CORE SYMBOLS.
0          Referenced by comments of: 163/14, 506/5, 506/6 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00506/002   PL1 MAINTENANCE          CRELCSPR        SA  G  LCSP    S0410 MTSPL1 'PL1LIB' POSN=CRELCSPR.D4                          
            D4T2     78  PL1_MAINTENANCE.CRELCSPR.SA.002    1 LINE     80    6 PAGE UM   TIFFANY             JULY 28, 1977  01:46:04
0          SAME AS 506/1 EXCEPT FOR PSEUDO-REGISTERS.  IHEPRD IS GENERATED.
0          Referenced by comments of: 233/44 
00506/003   PL1 MAINTENANCE          RUN             SA  G          S0410 MTSPL1 'PL1LIB' POSN=RUN.S                                
            D4.1T1  269  PL1_MAINTENANCE.RUN.SA.003         1 SEQ      80   25 PAGE UM   TIFFANY             MAY  13, 1978  17:34:55
0          PROGRAM USED TO SIMULATE THE LOADING PROCESS WITH THE PL/I LIBRARY IN USER VM,
           RATHER THAN SHARED VM (FOR CHECKOUT).  SIMILAR TO UBC'S *RUN PROGRAM (NOT
           DISTRIBUTED), BUT WITH EXTRA FEATURE (SPECIFIED BY "S2L=" KEYWORD) FOR LOADING
           LIBRARIES (SUCH AS FIX, SHAREDPL1LIB, ETC.) INTO SEGMENT 12 INSTEAD OF SHARED
           VM.  KEYWORDS "PGM=" (OR "PROGRAM=") HAVE ALSO BEEN ADDED.  SEE THE SOURCE FOR
           USAGE INSTRUCTIONS.  COPIES *LOADINFODSECT (001/4).  ASSEMBLE WITH PAR=BATCH
           USING UBC MACROS (1024).
00506/004   PL1 MAINTENANCE          SYMBOLS         SA  G  SYMB    S0410 MTSPL1 'PL1LIB' POSN=SYMBOLS                           44 
            D4T2     81  PL1_MAINTENANCE.SYMBOLS.SA.005     1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  01:46:12
0          PRINT PL1LIB SYMBOLS AND THEIR CURRENT ADDRESSES.
00506/005   PL1 MAINTENANCE          PL1SYMBOLS      D              S0410 MTSPL1 'PL1LIB' POSN=PL1SYMBOLS.D4                        
            D4T2     83  PL1_MAINTENANCE.PL1SYMBOL.D.007    1 LINE    117    2 PAGE UM   TIFFANY             JULY 28, 1977  01:46:16
0          LIST OF PL/I SYMBOL NAMES.  USED BY CRELCS (506/1).
00506/006   PL1 MAINTENANCE          INTSUBS         D              S0410 MTSPL1 'PL1LIB' POSN=INTSUBS                           48 
            D4T2     84  PL1_MAINTENANCE.INTSUBS.D.008      1 SEQ      56    1 PAGE UM   TIFFANY             JULY 28, 1977  01:46:20
0          LIST OF INTERNAL SUBROUTINES.  USED BY CRELCS (506/1).
00506/007A  PL1 MAINTENANCE          LLXU            SA  G  LLXU    W062:NEWLOAD.S                                                  
            4.3T1   341  PL1_MAINTENANCE.LLXU.SA.007        1 LINE     80   20 PAGE UM   TIFFANY             APR. 05, 1980  15:30:22
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          W062:PECKER.S                                                   
            4.3T1   342  PL1_MAINTENANCE.HENPECKER.SA.008   1 LINE    121    9 PAGE UM   TIFFANY             APR. 05, 1980  15:30:24
0          PROGRAM TO PICK UP THE SOURCE MODULES FROM IEHUPDTE INPUT TAPE SUCH AS
           THE PL/1 COMPILER. COPIES *GDINFODSECT (594) AND *CNFGINFODSECT (654).
0          Referenced by comments of: 163/13 
00506/009   PL1 MAINTENANCE          INSTALLATION    WF             S0410 MTSPL1 'PL1LIB' POSN=INSTALL.D4                           
            D4T2     89  PL1_MAINTENANCE.INSTALLAT.WF.013   1 LINE    140   18 PAGE UM   TIFFANY             JULY 28, 1977  01:46:32
0          INSTRUCTIONS FOR INSTALLATION OF PL/I IN MTS AND DOCUMENTATION ON OS SIMULATION
1                                                                                               SUN SEP 08/96   19:03:19   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          PACKAGE.
00506/010A  PL1 MAINTENANCE          INSTALLATION    WF             W062:PL1INSTALL.W                                               
            4.3T1   343  PL1_MAINTENANCE.INSTALLAT.WF.010   1 LINE    134    5 PAGE UM   TIFFANY             APR. 05, 1980  15:30:28
0          WRITEUP INDICATING HOW TO INSTALL AND MAINTAIN THE NEW VERSION 5.5 OF THE
           PL/I-F COMPILER.
00507/001   TIMELIMIT                *LIM            C              *LIM                                                            
            D4.2T1  336  TIMELIMIT.*LIM.C.001               1 LINE     60    1 PAGE UM   WSG                 APR. 01, 1979  22:26:49
                         *LIM                 
0          COMMAND FILE USED BY OPERATORS TO FIND OUT HOW MUCH CPU TIME IS REMAINING FOR AN
           EXECUTING BATCH JOB.  INVOKED BY ENTERING "MTS *LIM" ON OPERATOR'S CONSOLE.
00507/002   TIMELIMIT                TLIMIT PGM      SA  G          S0564 D4T2 VLO FSNAME=TIMELIMIT.TLIMIT_PGM.SA.002(1)          91
            D4T2     91  TIMELIMIT.TLIMIT_PGM.SA.002        1 LINE     80    5 PAGE UM   WSG                 JAN. 13, 1977  16:30:08
0          PROGRAM TO COMPUTE HOW MUCH TIME IS LEFT BEFORE A JOB EXCEEDS ITS GLOBAL TIME LIMIT.
           OPERATOR ENTERS EITHER AN UMMPS JOB NUMBER OR USER ID TO SPECIFY THE JOB(S) FOR
           WHICH THE REMAINING TIME IS TO BE CALCULATED.  END-OF-FILE TERMINATES PROGRAM.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654).
           SOURCE IN LINES (1,999).
00507/003   TIMELIMIT                TLIMIT PGM      OC  G          SYS:TLIMIT                                                      
            D4T2     92  TIMELIMIT.TLIMIT_PGM.OC.003        1 LINE     80    1 PAGE UM   WSG                 JULY 28, 1977  01:48:19
                         SYS.:TLIMIT          
00508/001  *BASIC                    STRT1           C              W070:BASIC.STRT1                                                
            D4T2     93  BASIC.STRT1.C.001                  1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:22
0          MTS COMMANDS TO RESTORE FILES NEEDED TO GENERATE BASIC, 508/2 THROUGH 508/18
           AND 508/28 THROUGH 508/30, WHICH IT ASSUMES ARE ON A *FS TAPE BY THEMSELVES.
00508/002A *BASIC                    STRT2           C              W070:BASIC.STRT2                                                
            4.3T1   344  BASIC.STRT2.C.002                  1 LINE    128    1 PAGE UM   FRONCZAK            APR. 05, 1980  15:30:30
0          MTS COMMANDS TO ASSEMBLE (VIA *ASMH) AND LINK-EDIT THE BASIC SOURCE, 508/19 THROUGH 508/27,
           WHICH IT ASSUMES ARE ON A REGULAR (NON-*FS) BLOCKED, LABELED TAPE.
            
           *****************************************************************************
           CONTAINS UQV UPDATES (10/79) PLUS POST D4.2 UM CHANGES, INCLUDING CHANGE FORM
           4205.
           *****************************************************************************
00508/003  *BASIC                    BIFDSECT        SA  G          W070:BIFDSECT                                                   
            D4T2     95  BASIC.BIFDSECT.SA.003              1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:26
0          THE DSECT USED BY "BUILT-IN" FUNCTIONS.
00508/004  *BASIC                    CLIDSECT        SA  G          W070:CLIDSECT                                                   
            D4T2     96  BASIC.CLIDSECT.SA.004              1 LINE     72    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:28
0          THE DSECT USED BY COMMAND AND CMNDINIT.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00508/005  *BASIC                    DS6A            SA  G          W070:DS6A                                                       
            D4T2     97  BASIC.DS6A.SA.005                  1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:30
0          THE DSECT USED BY LOADER.
00508/006  *BASIC                    DSECTCOMM       SA  G          W070:DSECTCOMM                                                  
            D4T2     98  BASIC.DSECTCOMM.SA.006             1 LINE     70    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:33
0          THE BASIC COMMON DSECT.
00508/007  *BASIC                    DSECT9A         SA  G          W070:DSECT9A                                                    
            D4.2T1  337  BASIC.DSECT9A.SA.007               1 LINE     69    2 PAGE UM   FRONCZAK            APR. 01, 1979  22:26:50
0          THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH.
00508/008  *BASIC                    FHDRDSECT       SA  G          W070:FHDRDSECT                                                  
            D4T2    100  BASIC.FHDRDSECT.SA.008             1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:37
0          THE "FILE HEADER" DSECT.
00508/009  *BASIC                    GLOBALSYM       SA  G          W070:GLOBALSYM                                                  
            D4T2    101  BASIC.GLOBALSYM.SA.009             1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:39
0          CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE
           INSTALLATION NAME.
00508/010  *BASIC                    INTFACMAC       SM  G          W070:INTFACMAC                                                  
            D4T2    102  BASIC.INTFACMAC.SM.010             1 LINE     58    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:41
0          BASIC MACRO LIBRARY.
00508/011  *BASIC                    LDICDSCT        SA  G          W070:LDICDSCT                                                   
            D4T2    103  BASIC.LDICDSCT.SA.011              1 LINE     72    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:44
0          THE "LOADING DIRECTORY" DSECT.
00508/012  *BASIC                    MAPDSECT        SA  G          W070:MAPDSECT                                                   
            D4T2    104  BASIC.MAPDSECT.SA.012              1 LINE     68    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:46
0          THE "MAP ENTRY DESCRIPTION" DSECT.
00508/013  *BASIC                    OPDEFEQUS       SA  G          W070:OPDEFEQUS                                                  
            D4T2    105  BASIC.OPDEFEQUS.SA.013             1 LINE     70    2 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:48
0          "EQUS" USED IN OPERATOR DEFINITIONS.
00508/014  *BASIC                    OPDEFMACROS     SM  G          W070:OPDEFMACROS                                                
            D4T2    106  BASIC.OPDEFMACROS.SM.014           1 LINE     72    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:50
0          MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00508/015  *BASIC                    PDSECT          SA  G          W070:PDSECT                                                     
            D4T2    107  BASIC.PDSECT.SA.015                1 LINE     72    3 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:52
0          THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----).
00508/016  *BASIC                    SYMTABDEF       SA  G          W070:SYMTABDEF                                                  
            D4T2    108  BASIC.SYMTABDEF.SA.016             1 LINE     33    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:55
0          THE SYMBOL TABLE DSECT (UNDOCUMENTED).
00508/017  *BASIC                    SYMTABSECT      SA  G          W070:SYMTABSECT                                                 
            D4T2    109  BASIC.SYMTABSECT.SA.017            1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:57
0          THE SYMBOL TABLE DSECT (DOCUMENTED).
00508/018  *BASIC                    WSLAYOUT        SA  G          W070:WSLAYOUT                                                   
            D4T2    110  BASIC.WSLAYOUT.SA.018              1 LINE     68    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:48:59
0          THE "WORKING STORAGE LAYOUT" DSECT.
00508/019A *BASIC                    CLI             SA  G          S0842 BSCSD POSN=*BASIC.CLI                                  1  
            4.3T1   345  BASIC.CLI.SA.019                   1 SEQ      80  124 PAGE UM   FRONCZAK            APR. 05, 1980  15:31:27
00508/020A *BASIC                    LEX             SA  G          S0842 BSCSD POSN=*BASIC.LEX                                 2   
            4.3T1   346  BASIC.LEX.SA.020                   1 SEQ      80  108 PAGE UM   FRONCZAK            APR. 05, 1980  15:31:34
00508/021A *BASIC                    CMP             SA  G          S0842 BSCSD POSN=*BASIC.CMP                                  3  
            4.3T1   347  BASIC.CMP.SA.021                   1 SEQ      80  107 PAGE UM   FRONCZAK            APR. 05, 1980  15:31:40
00508/022A *BASIC                    CPS             SA  G          S0842 BSCSD POSN=*BASIC.CPS                                 4   
            4.3T1   348  BASIC.CPS.SA.022                   1 SEQ      80   80 PAGE UM   FRONCZAK            APR. 05, 1980  15:31:45
00508/023A *BASIC                    NUM             SA  G          S0842 BSCSD POSN=*BASIC.NUM                                  5  
            4.3T1   349  BASIC.NUM.SA.023                   1 SEQ      80   62 PAGE UM   FRONCZAK            APR. 05, 1980  15:31:50
00508/024A *BASIC                    VFL             SA  G          S0842 BSCSD POSN=*BASIC.VFL                                  6  
            4.3T1   350  BASIC.VFL.SA.024                   1 SEQ      80   41 PAGE UM   FRONCZAK            APR. 05, 1980  15:31:53
00508/025A *BASIC                    BIO             SA  G          S0842 BSCSD POSN=*BASIC.BIO                                  7  
            4.3T1   351  BASIC.BIO.SA.025                   1 SEQ      80   51 PAGE UM   FRONCZAK            APR. 05, 1980  15:31:57
00508/026A *BASIC                    INF             SA  G          S0842 BSCSD POSN=*BASIC.INF                                  8  
            4.3T1   352  BASIC.INF.SA.026                   1 SEQ      80   48 PAGE UM   FRONCZAK            APR. 05, 1980  15:32:00
00508/027A *BASIC                    BSI             SA  G          S0842 BSCSD POSN=*BASIC.BSI                                  9  
            4.3T1   353  BASIC.BSI.SA.027                   1 SEQ      80    5 PAGE UM   FRONCZAK            APR. 05, 1980  15:32:02
00508/028  *BASIC                    LIBSYM          SA  G          W070:LIBSYM                                                     
            D4T2    120  BASIC.LIBSYM.SA.028                1 LINE     66    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:32
0          PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00508/029  *BASIC                    SPECIALRATES    SA  G          W070:SPECIALRATES                                               
            D4T2    121  BASIC.SPECIALRATES.SA.029          1 LINE     70    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:33
0          THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR:  %PRINT BALANCE AND STATISTICS PRINTING.
00508/030A *BASIC                    OBJECT          OC  G          SEG2:BASIC                                                      
            4.3T1   354  BASIC.OBJECT.OC.030                1 LINE  14752   33 PAGE UM   FRONCZAK            APR. 05, 1980  15:32:05
                         SEG2:BASIC           
0          OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY PISTLE.
0          Referenced by comments of: 508/31 
00508/031  *BASIC                    *BASIC          OC  G          *BASIC                                                          
            D4T2    123  BASIC.*BASIC.OC.031                1 SEQ      24    1 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:43
                         *BASIC               
0          CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SHARED VM
           BASIC (508/30).
00508/032A *BASIC                    BASICHELPC      M              ETC:BASICHELPC                                                  
            4.3T1   355  BASIC.BASICHELPC.M.032             1 LINE     68    1 PAGE UM   FRONCZAK            APR. 05, 1980  15:32:08
                         ETC.:BASICHELPC      
0          BASIC HELP COMMAND FILE.
00508/033  *BASIC                    INSTALLATION    P              W070:T360SYSGENPR                                               
            D4T2    125  BASIC.INSTALLATION.P.033           1 SEQ     100    4 PAGE UM   FRONCZAK            JULY 28, 1977  01:50:47
0          NOTES ON THE INSTALLATION OF BASIC.  COPY TO A TN PRINTER @MCC.
00508/034C *BASIC                    SIGNONM FILE    D              ETC:BASICSIGNONM                                                
            4.3T1   356  BASIC.SIGNONM_FILE.D.034           1 LINE     55    1 PAGE UM   FRONCZAK            APR. 05, 1980  15:32:10
                         ETC:BASICSIGNONM     
0          FILE CONTAINING BASIC "SIGNON" MESSAGE.
00509/001A  PERMIT COMMAND                           SA  G          MTS:PERMIT.S                                                    
            4.3T1   357  PERMIT_COMMAND..SA.001             1 LINE    130   46 PAGE UM   DWB                 APR. 05, 1980  15:32:12
                         MTS:PERMIT.S         
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/3O AND COPY:FILE.MACROS (482/33).
           NOTE:  SOURCE STARTS AT LINE 1, COMMANDS TO ASSEMBLE START AT LINE 0.
            
           ******************************************************************************
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2C):
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          1)  ACCEPTS PARTIALLY SPECIFIED CCID, PROJECTS, AND PKEYS FOLLOWED BY A 
               QUESTION MARK.
            
           2)  PRINTS A WARNING IF PARTIALLY SPECIFIED CCIDS, PROJECTS, AND PKEYS ARE
               NOT FOLLOWED BY A QUESTION MARK.  THE WARNING INCLUDES A DATE WHICH IS
               INSTALLATION-DEPENDENT.
            
           3)  PRINTS WARNINGS WHEN FILES ARE PERMITTED UNLIM, FULL, OR PERMIT TO OTHERS.
            
           4)  MAKES DEF OTHERS ILLEGAL.
            
           5)  DOES BETTER CHECKING FOR ILLEGAL CHARACTERS IN CCIDS, PROJECTS, AND PKEYS
               (BUT WILL REQUIRE CHANGES TO ALLOW BLANKS IN PROJECTS IF THIS IS LEGAL).
           ------------------------------------------------------------------------------
            
           ------------------------------------------------------------------------------
           D4.3 CHANGES:
            
           1)  FINISHED CHANGES TO $PERMIT AND THE PERMIT SUBROUTINE THAT ALLOW PARTIALLY
               SPECIFIED CCIDS, PROJECTS, AND PKEYS TO END WITH A TRAILING QUESTION MARK. 
               THESE CHANGES WERE STARTED IN THE D4.2C VERSION.  THEY REQUIRE NEW VERSIONS
               OF FILESTATUS (529), GFINFO, AND FILEMOVE (1020/1).
            
           2)  IMPROVED CHECKING OF PKEYS FOR ILLEGAL CHARACTERS.
            
           3)  FIXED A BUG HAVING TO DO WITH THE ADDRESSABILITY OF A KEYWORD TABLE.
            
           ******************************************************************************
00509/002A  PERMIT COMMAND                           OC  G          *CLSPERMIT                                                      
            4.3T1   358  PERMIT_COMMAND..OC.002             1 LINE     80    5 PAGE UM   DWB                 APR. 05, 1980  15:32:17
                         *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/003   PERMIT COMMAND           *PERSUB         OC  G          *PERSUB                                                         
            D4T2    128  PERMIT_COMMAND.*PERSUB.OC.003      1 LINE     26    1 PAGE UM   DWB                 JULY 28, 1977  01:50:56
                         *PERSUB              
0          THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "PERMIT" FOLLOWED BY A 
           "$CONTINUE WITH *CLSPERMIT" CARD.  IT IS USED AS THE FILE NAME IN THE
           LOADT TABLE IN MTS, AND IS LOADED FROM IF THE PERMIT SUBROUTINE IS NOT
           DEFINED IN LCSYMBOL.
00509/004   PERMIT COMMAND           *SKEYSUB        OC  G          *SKEYSUB                                                        
            D4T2    129  PERMIT_COMMAND.*SKEYSUB.OC.004     1 LINE     26    1 PAGE UM   DWB                 JULY 28, 1977  01:50:58
                         *SKEYSUB             
0          THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETKEY" FOLLOWED BY A 
           "$CONTINUE WITH *CLSPERMIT" CARD.  IT IS USED AS THE FILE NAME IN THE
           LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETKEY SUBROUTINE IS NOT
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          DEFINED IN LCSYMBOL.
00509/005   PERMIT COMMAND           *SFSAVSUB       OC  G          *SFSAVSUB                                                       
            D4T2    130  PERMIT_COMMAND.*SFSAVSUB.OC.005    1 LINE     26    1 PAGE UM   DWB                 JULY 28, 1977  01:51:01
                         *SFSAVSUB            
0          THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETFSAVE" FOLLOWED BY A 
           "$CONTINUE WITH *CLSPERMIT" CARD.  IT IS USED AS THE FILE NAME IN THE
           LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETFSAVE SUBROUTINE IS NOT
           DEFINED IN LCSYMBOL.
00509/006   PERMIT COMMAND           *SPRIVSUB       OC  G          *SPRIVSUB                                                       
            D4T2    131  PERMIT_COMMAND.*SPRIVSUB.OC.006    1 LINE     25    1 PAGE UM   DWB                 JULY 28, 1977  01:51:03
                         *SPRIVSUB            
0          THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETFPRIV" FOLLOWED BY A 
           "$CONTINUE WITH *CLSPERMIT" CARD.  IT IS USED AS THE FILE NAME IN THE
           LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETFPRIV SUBROUTINE IS NOT
           DEFINED IN LCSYMBOL.
00509/007A  PERMIT COMMAND           SUBR TEST PGM   SF             MTS:TESTPERSUB(1,999)                                           
            4.3T1   359  PERMIT_COMMAND.SUBR_TEST.SF.007    1 LINE     72    3 PAGE UM   DWB                 APR. 05, 1980  15:32:19
                         MTS:TESTPERSUB       
0          PROGRAM TO TEST THE PERMIT SUBROUTINE.
00510/001   MTS VOLUME 13                            WF             S0723 'D3T4' FSNAME=MTS_VOLUME_13..WF.1(1)                    62
            D4T2    134  MTS_VOLUME_13..WF.001              1 LINE    159   61 PAGE UM   MANUAL              AUG. 01, 1973  22:10.11
0          FORMAT INPUT FOR VOLUME 13 "DATA CONCENTRATOR USER'S GUIDE" OF THE UM MTS MANUAL (AUGUST 1973).
            
           EDITOR:  RICHARD A. SALISBURY
            
           NOTE:  THIS MANUAL IS OBSOLETE AND WILL NOT BE REISSUED.
00510/002   MTS VOLUME 13                            PF             S0723 'D3T4' FSNAME=MTS_VOLUME_13..PF.2(1)                    63
            D4T2    135  MTS_VOLUME_13..PF.002              1 LINE     80   81 PAGE UM   MANUAL              AUG. 01, 1973  22:11.01
0          PRINT FILE FOR VOLUME 13.  COPY TO A TN PRINTER.
00511/001  *OBJLIST                                  SA  G  OBJL    LBT:OBJLIST.S                                                   
            D4.1T1  273  OBJLIST..SA.001                    1 LINE     80   55 PAGE UM   TIFFANY             MAY  13, 1978  17:35:44
0          PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT.  READS *ASMH (737) SYM
           RECORDS.
00511/002  *OBJLIST                                  OE  G          *OBJLIST                                                        
            D4.1T1  274  OBJLIST..OE.002                    1 SEQ    7253    4 PAGE UM   TIFFANY             MAY  13, 1978  17:35:48
                         *OBJLIST             
00512/001A  MTS VOLUME 11            MASTER          WT             S0549 MTSV11 'MTS MANUALS' POSN=NEWM4.V11                       
            4.3T1   360  MTS_VOLUME_11.MASTER.WT.001        1 SEQ     132   85 PAGE UM   MANUAL              APR. 05, 1980  15:34:11
0          TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUALS
1                                                                                               SUN SEP 08/96   19:03:19   Page  216
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          (AUGUST 1978, UPDATED APRIL 1980).
            
           EDITOR:  GAIL H. LIFT
00512/002A  MTS VOLUME 11            PRINT           PT             S0549 MTSV11 'MTS MANUALS' POSN=PRINT4.V11                      
            4.3T1   361  MTS_VOLUME_11.PRINT.PT.002         1 SEQ     132  174 PAGE UM   MANUAL              APR. 05, 1980  15:34:21
0          TEXT/360 PRINT FILE.
00512/003A  MTS VOLUME 11            FIGURES         SG  G          W073:V11FIGS.MAIN                                               
            4.3T1   362  MTS_VOLUME_11.FIGURES.SG.003       1 LINE     55    1 PAGE UM   MANUAL              APR. 05, 1980  15:34:27
0          GOM SOURCE FOR MAIN PROGRAM TO CALL SUBROUTINES WHICH GENERATE FIGURES
           FOR VOLUME 11.
00512/004A  MTS VOLUME 11            FIGURES         SF  G          W073:V11FIGS.SUBR                                               
            4.3T1   363  MTS_VOLUME_11.FIGURES.SF.004       1 LINE   1534   47 PAGE UM   MANUAL              APR. 05, 1980  15:34:28
0          FORTRAN SOURCE FOR SUBROUTINES WHICH GENERATE FIGURES FOR VOLUME 11.
00512/005   MTS VOLUME 11            INDEX SOURCE    D              S0549 MTSV11 'MTS MANUALS' POSN=V11INDEXSOU                     
            D4.2T1  345  MTS_VOLUME_11.INDEX_SOURC.D.005    1 SEQ      37    3 PAGE UM   MANUAL              APR. 01, 1979  22:30:35
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 11.
00512/006C  MTS VOLUME 11            UPDATE 1        PT             W073:TNLV11.APR80                                               
            4.3T1   364  MTS_VOLUME_11.UPDATE_1.PT.006      1 LINE    103   19 PAGE UM   MANUAL              APR. 05, 1980  15:34:35
0          THIS IS "UPDATE 1 TO MTS VOLUME 11" (APRIL 1980).  $COPY TO A TN PRINTER 
           USING THE @MCC MODIFIER.
00513/001   DYSSUB                   D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=DYS                         
            D4T2    142  DYSSUB..SA.001                     1 LINE     72    5 PAGE UM   MTS       HELFFRICH JULY 28, 1977  01:54:59
0          SUBROUTINE TO PROCESS SOME $DISPLAY PARAMETERS.
            
           COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), *GDINFODSECT (594),
           AND *SENSEDSECT (3025).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
00513/002A  DYSSUB                   UPDATE          UC  G          MTS:DYSUPD                                                      
            4.3T1   365  DYSSUB.UPDATE.UC.002               1 LINE     72    4 PAGE UM   MTS       HELFFRICH APR. 05, 1980  15:34:37
                         MTS.:DYSUPD          
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=DYS.
00513/003A  DYSSUB                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
            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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00513/004A  DYSSUB                                   L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DYS.LIST              14  
            4.3T1   366  DYSSUB..L.004                      1 SEQ     133   55 PAGE UM   MTS       HELFFRICH APR. 05, 1980  15:34:48
00514/001  *PL1TIDY                                  SP  G          W062:NEATENED                                                   
            D4T2    144  PL1TIDY..SP.001                    1 LINE     72   18 PAGE UM   TIFFANY             JULY 28, 1977  01:55:02
0          THIS IS A REVISED VERSION OF THE IBM "NEATER" PROGRAM.
           NOTE: AFTER COMPILATION, THE SYMBOL IHESAPC IN THE OBJECT MUST BE CHANGED TO IHESAPE.
00514/002  *PL1TIDY                                  OE  G          *PL1TIDY                                                        
            D4T2    145  PL1TIDY..OE.002                    1 SEQ   25530    9 PAGE UM   TIFFANY             JULY 28, 1977  01:55:04
                         *PL1TIDY             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00515/001A *11ASR                    INSTAL          C              W267:11ASR.INSTAL                                               
            4.3T1   367  11ASR.INSTAL.C.001                 1 LINE    125    1 PAGE UM   EADIE               APR. 05, 1980  15:34:49
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 
00515/002A *11ASR                    MACLIB          SM  G          W267:11ASR.MACLIB                                               
            4.3T1   368  11ASR.MACLIB.SM.002                1 LINE     64    4 PAGE UM   EADIE               APR. 05, 1980  15:34:51
0          MACRO LIBRARY USED TO ASSEMBLE COMPS. 515/3 THROUGH 515/7.
00515/003A *11ASR                    KERNAL          SA  G          W267:11ASR.KERNAL                                               
            4.3T1   369  11ASR.KERNAL.SA.003                1 LINE     86  105 PAGE UM   EADIE               APR. 05, 1980  15:34:54
0          *********************************************************************************
           D4.3 CHANGES:
            
           SOME VERY MINOR BUGS HAVE BEEN REMOVED.
           *********************************************************************************
0          Referenced by comments of: 515/11 
00515/004A *11ASR                    DCEVAL          SA  G          W267:11ASR.DCEVAL                                               
            4.3T1   370  11ASR.DCEVAL.SA.004                1 LINE     80   18 PAGE UM   EADIE               APR. 05, 1980  15:35:07
00515/005A *11ASR                    REPSCN          SA  O          W267:11ASR.REPSCN                                               
            4.3T1   371  11ASR.REPSCN.SA.005                1 LINE     80    5 PAGE UM   EADIE               APR. 05, 1980  15:35:10
00515/006A *11ASR                    MACPRO          SA  O          W267:11ASR.MACPRO                                               
            4.3T1   372  11ASR.MACPRO.SA.006                1 LINE     70   38 PAGE UM   EADIE               APR. 05, 1980  15:35:12
0          *********************************************************************************
           D4.3 CHANGES:
            
           THERE IS A MODIFICATION TO THE 11ASR MACROPROCESSOR WHICH ALLOWS MACRO
           PARAMETERS WITH EMBEDDED PRIMES TO BE PASSED WITHOUT THE PRIMES BEING
           STRIPPED.  IF THE PARAMETER IS DELIMITED BY PRIMES, THEN IT IS TREATED AS
1                                                                                               SUN SEP 08/96   19:03:19   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          BEFORE (SINGLE PRIMES - STRIPPED, DOUBLE PRIMES - SINGLED).
           *********************************************************************************
00515/007A *11ASR                    EXTF11          SA  G          W267:11ASR.EXTF11                                               
            4.3T1   373  11ASR.EXTF11.SA.007                1 LINE     72    7 PAGE UM   EADIE               APR. 05, 1980  15:35:23
00515/008A *11ASR                    OPCODE          SA  G          W267:11ASR.OPCODE                                               
            4.3T1   374  11ASR.OPCODE.SA.008                1 LINE     72   15 PAGE UM   EADIE               APR. 05, 1980  15:35:26
00515/009A *11ASR                    MICROP          SA  G          W267:11ASR.MICROP                                               
            4.3T1   375  11ASR.MICROP.SA.009                1 LINE     72    6 PAGE UM   EADIE               APR. 05, 1980  15:35:28
00515/010A *11ASR                    OBJECT          OE  G          *11ASR                                                          
            4.3T1   376  11ASR.OBJECT.OE.010                1 SEQ   13480   39 PAGE UM   EADIE               APR. 05, 1980  15:35:30
                         *11ASR               
0          *************************************************************************************
           D4.3 VERSION:
            
           NOTE:  THE OBJECT IN THIS FILE IS THE UM PUBLIC FILE.  TO GET THE NEW MACRO
                  PROCESSOR, YOU SHOULD REASSEMBLE THIS PROGRAM.
           *************************************************************************************
00515/011A *11ASR                    11ASRERROR      M   G          ETC:11ASRERROR                                                  
            4.3T1   377  11ASR.11ASRERROR.M.011             1 LINE     70    4 PAGE UM   EADIE               APR. 05, 1980  15:35:33
                         ETC.:11ASRERROR      
0          ERROR COMMENT FILE REFERENCED BY UATS/MAL (515/3) ON LINE 7455.
00515/012  *11ASR                    MEMO 286        WT             W267:11ASR.MANUAL                                               
            D4T2    162  11ASR.MEMO_286.WT.017              1 LINE     80   49 PAGE UM   EADIE               JAN. 26, 1977  20:17:02
0          THIS IS COMPUTING CENTER MEMO 286 -- "THE PDP-11 ASSEMBLER AND LINK EDITOR:
           A USER'S GUIDE TO *11ASR AND *LINK11"
00516/001A *LINK11                                   SA  G          W267:LINK11.SA                                                  
            4.3T1   378  LINK11..SA.001                     1 LINE     85   46 PAGE UM   EADIE               APR. 05, 1980  15:35:35
0          LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515).
0          Referenced by comments of: 660/1 
00516/002A *LINK11                                   OE  G          *LINK11                                                         
            4.3T1   379  LINK11..OE.002                     1 SEQ   13152    6 PAGE UM   EADIE               APR. 05, 1980  15:35:42
                         *LINK11              
00516/003  *LINK11                   USER'S GUIDE    WT           # (SEE COMP 515/12)                                               
                                                                                    UM   EADIE                                      
00517/001   LOGICAL OPERATORS                        SA  G          S0564 D4T2 VLO FSNAME=LOGICAL_OPERATORS..SA.001(1)           165
            D4T2    165  LOGICAL_OPERATORS..SA.001          1 LINE     70    4 PAGE UM   HARDING             JULY 28, 1977  01:59:54
0          SUBROUTINES TO PROVIDE THE FOLLOWING SYSTEM/360 MACHINE OPERATIONS:  MVC, CLC, NC, OC, XC, TR, TRT, ED, AND EDMK.
           REWRITTEN SINCE DIST 2.0.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00517/002   LOGICAL OPERATORS                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HARDING                                    
00518/001   GRGJUL SUBRS                             SA  G  GRJL    S0027 DISTRB FSNAME=GRGJULTM                                    
            D4T2    166  GRGJUL_SUBRS..SA.001               1 LINE     80    5 PAGE UM   ENGLE               DEC. 05, 1975  16:10:51
0          GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC).
0          Referenced by comments of: 436/1, 529/1 
00518/002   GRGJUL SUBRS                             OC  G        # (PART OF COMP 143)                                              
                                                                                    UM   ENGLE                                      
0          THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE"
           BY PISTLE AT IPL.
00519/001   GRJLDT/GRJLTM SUBRS      GRJLDT          SA  G  GJDT    S0027 DISTRB FSNAME=GRJLDT                                      
            D4.1T1  277  GRJLDT/GRJLTM_SUBRS.GRJLD.SA.001   1 LINE     80    1 PAGE UM   ENGLE               JAN. 20, 1978  13:32:33
0          GREGORIAN-TO-JULIAN CONVERSION SUBROUTINES (TWO OF MANY -- TOO MANY).
00519/002   GRJLDT/GRJLTM SUBRS      GRJLDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00519/003   GRJLDT/GRJLTM SUBRS      GRJLTM          SA  G  GJTM    S0027 DISTRB FSNAME=GRJLTM                                      
            D4.1T1  278  GRJLDT/GRJLTM_SUBRS.GRJLT.SA.003   1 LINE     80    1 PAGE UM   ENGLE               JAN. 20, 1978  13:33:56
00519/004   GRJLDT/GRJLTM SUBRS      GRJLTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00520/001   GROSDT                                   SA  G  GODT    S0027 DISTRB FSNAME=GROSDT                                      
            D4.1T1  279  GROSDT..SA.001                     1 LINE     80    2 PAGE UM   ENGLE               JAN. 20, 1978  13:36:51
0          GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE.
00520/002   GROSDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/001   JLGRDT/JLGRTM            JLGRDT          SA  G  JGDT    S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRDT.SA.1(1)              89
            D4T2    170  JLGRDT/JLGRTM.JLGRDT.SA.001        1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:55.50
0          JULIAN-TO-GREGORIAN CONVERSION SUBROUTINES.
00521/002   JLGRDT/JLGRTM            JLGRDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/003   JLGRDT/JLGRTM            JLGRTM          SA  G  JGTM    S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRTM.SA.3(1)              90
            D4T2    171  JLGRDT/JLGRTM.JLGRTM.SA.003        1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:57.15
00521/004   JLGRDT/JLGRTM            JLGRTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00522/001   JULGRG SUBRS                             SA  G  JLGR    S0723 'D3T4' FSNAME=JULGRG_SUBRS..SA.1(1)                     91
            D4T2    172  JULGRG_SUBRS..SA.001               1 LINE     80    5 PAGE UM   ENGLE               MAY  03, 1973  10:00.10
0          JULIAN TO GREGORIAN DATE/TIME CONVERSION SUBROUTINES (JULGRGDT, JULGRGTM, AND JLGRSEC).
0          Referenced by comments of: 67/21, 437/1, 529/1 
00522/002   JULGRG SUBRS                             OC  G          SEG2:CFE                                                        
            D4T2    173  JULGRG_SUBRS..OC.002               1 LINE     80    1 PAGE UM   ENGLE               JULY 28, 1977  02:06:33
                         SEG2:CFE             
0          THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE"
           BY PISTLE AT IPL.
00523/001   OSGRDT                                   SA  G  OGDT    S0027 DISTRB FSNAME=OSGRDT                                      
            D4.1T1  280  OSGRDT..SA.001                     1 LINE     80    2 PAGE UM   ENGLE               JAN. 20, 1978  13:38:52
0          OS/360 (YYDDD) TO GREGORIAN DATE CONVERSION SUBROUTINE.
00523/002   OSGRDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00524/001A *LIBRARY                                  OL             *LIBRARY                                                        
            4.3T1   380  LIBRARY..OL.001                    1 LINE  13448   27 PAGE UM   SALISBURY           APR. 05, 1980  15:35:44
                         *LIBRARY             
0          OBJECT LIBRARY FOR SYSTEM NON-RESIDENT SUBROUTINES.  THE SOURCE FILES FOR THE PROGRAMS CONTAINED
           IN THIS LIBRARY ARE GIVEN ELSEWHERE IN THIS DISTRIBUTION UNDER THE SPECIFIC SUBROUTINE NAME.
           THIS LIBRARY IS AUTOMATICALLY SEARCHED WHEN PROGRAMS ARE LOADED IF THERE ARE UNRESOLVED SYMBOLS.
0          Referenced by comments of: 278/2, 278/4, 677/1, 744/1, 744/6, 773/1 
00524/002  *LIBRARY                  CREATELIB       C              LIB:CREATELIB                                                   
            D4T2    176  LIBRARY.CREATELIB.C.002            1 LINE     91    1 PAGE UM   SALISBURY           SEP. 16, 1977  10:40:01
0          MTS COMMAND FILE TO CONSTRUCT A NEW LIBRARY FILE; IT COPIES THE INDIVIDUAL MODULES INTO A FILE,
           LINK EDITS THE FILE, AND THEN RUN *GENLIB.
           NOTE:  THIS COMMAND FILE HAS MANY "$CONTINUE WITH" LINES FOR PRIVATE FILES (NOT DISTRIBUTED) WHICH
                  CONSTITUTE THE COMPONENTS OF *LIBRARY.
0          Referenced by comments of: 524/3 
00524/003  *LIBRARY                  ENTERLIB        C              LIB:ENTERLIB                                                    
            D4T2    177  LIBRARY.ENTERLIB.C.003             1 LINE     37    1 PAGE UM   SALISBURY           JULY 28, 1977  02:06:41
0          MTS COMMAND FILE TO ENTER THE NEW LIBRARY FILE CONSTRUCTED BY CREATELIB (524/2)
           INTO *LIBRARY.  WITH RSF, THIS CAN BE DONE DURING NORMAL SYSTEM OPERATION.
00524/004A *LIBRARY                                  WF             W098:EAS.MODLIB                                                 
            4.3T1   381  LIBRARY..WF.004                    1 LINE     68    1 PAGE UM   SALISBURY           APR. 05, 1980  15:35:47
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00525/001   ELEM FUNC LIB            SQRT            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.SQRT.SA.001(1)           178
            D4T2    178  ELEM_FUNC_LIB.SQRT.SA.001          1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:02.02
0          THE ELEMENTARY FUNCTION LIBRARY CONTAINS THE MATHEMATICAL AND IMPLICITLY CALLED SUBROUTINES USUALLY ASSOCIATED
           WITH THE FORTRAN IV LANGUAGE AS WELL AS A FEW ADDITIONAL FUNCTIONS WHICH, INEXPLICABLY, ARE NOT PART OF THE
           IBM FORTRAN LIBRARY.  THESE FUNCTIONS ARE ALL RE-ENTRANT AND, THEREFORE, ARE NORMALLY LOADED INTO SHARED VM.
            
           COMPS 525/1 THROUGH 525/46 SHOULD ALL BE ASSEMBLED WITH THE EFL.MACLIB MACRO LIBRARY (525/47).
0          Referenced by comments of: 527/1, 528/51, 1000/48 
00525/002   ELEM FUNC LIB            EXP             SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EXP.SA.002(1)            179
            D4T2    179  ELEM_FUNC_LIB.EXP.SA.002           1 LINE     71    3 PAGE UM   HARDING             SEP. 24, 1974  09:04.04
00525/003   ELEM FUNC LIB            ALOG10/ALOG     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALOG10/ALOG.SA.003(1)    180
            D4T2    180  ELEM_FUNC_LIB.ALOG10/ALOG.SA.003   1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.13
00525/004   ELEM FUNC LIB            COS/SIN         SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COS/SIN.SA.004(1)        181
            D4T2    181  ELEM_FUNC_LIB.COS/SIN.SA.004       1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.18
00525/005   ELEM FUNC LIB            COTAN/TAN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COTAN/TAN.SA.005(1)      182
            D4T2    182  ELEM_FUNC_LIB.COTAN/TAN.SA.005     1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.23
00525/006   ELEM FUNC LIB            ARCOS/ARSIN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006(1)    183
            D4T2    183  ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:02.28
00525/007   ELEM FUNC LIB            ATAN2/ATAN      SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ATAN2/ATAN.SA.007(1)     184
            D4T2    184  ELEM_FUNC_LIB.ATAN2/ATAN.SA.007    1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:02.33
00525/008   ELEM FUNC LIB            COSH/SINH       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COSH/SINH.SA.008(1)      185
            D4T2    185  ELEM_FUNC_LIB.COSH/SINH.SA.008     1 LINE     71    1 DISK UM   HARDING             JUNE 27, 1972  12:02.38
00525/009   ELEM FUNC LIB            TANH            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.TANH.SA.009(1)           186
            D4T2    186  ELEM_FUNC_LIB.TANH.SA.009          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.42
00525/010   ELEM FUNC LIB            ERFC/ERF        SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERFC/ERF.SA.010(1)       187
            D4T2    187  ELEM_FUNC_LIB.ERFC/ERF.SA.010      1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.46
00525/011   ELEM FUNC LIB            ALGAMA/GAMMA    SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011(1)    188
            D4T2    188  ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:02.51
00525/012   ELEM FUNC LIB            DSQRT           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DSQRT.SA.012(1)          189
            D4T2    189  ELEM_FUNC_LIB.DSQRT.SA.012         1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.56
00525/013   ELEM FUNC LIB            DEXP            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DEXP.SA.013(1)           190
            D4T2    190  ELEM_FUNC_LIB.DEXP.SA.013          1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.00
00525/014   ELEM FUNC LIB            DLOG10/DLOG     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLOG10/DLOG.SA.014(1)    191
            D4T2    191  ELEM_FUNC_LIB.DLOG10/DLOG.SA.014   1 LINE     67    2 DISK UM   HARDING             JUNE 27, 1972  12:03.05
00525/015   ELEM FUNC LIB            DCOS/DSIN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOS/DSIN.SA.015(1)      192
            D4T2    192  ELEM_FUNC_LIB.DCOS/DSIN.SA.015     1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.11
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00525/016   ELEM FUNC LIB            DCOTAN/DTAN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016(1)    193
            D4T2    193  ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016   1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:03.15
00525/017   ELEM FUNC LIB            DARCOS/DARSIN   SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DARCOS/DARS.SA.017(1)    194
            D4T2    194  ELEM_FUNC_LIB.DARCOS/DARS.SA.017   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.20
00525/018   ELEM FUNC LIB            DATAN2/DATAN    SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DATAN2/DATA.SA.018(1)    195
            D4T2    195  ELEM_FUNC_LIB.DATAN2/DATA.SA.018   1 LINE     70    2 DISK UM   HARDING             FEB. 16, 1973  09:37.48
00525/019   ELEM FUNC LIB            DCOSH/DSINH     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOSH/DSINH.SA.019(1)    196
            D4T2    196  ELEM_FUNC_LIB.DCOSH/DSINH.SA.019   1 LINE     68    2 DISK UM   HARDING             JUNE 27, 1972  12:03.32
00525/020   ELEM FUNC LIB            DTANH           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DTANH.SA.020(1)          197
            D4T2    197  ELEM_FUNC_LIB.DTANH.SA.020         1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:03.36
00525/021   ELEM FUNC LIB            DERFC/DERF      SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DERFC/DERF.SA.021(1)     198
            D4T2    198  ELEM_FUNC_LIB.DERFC/DERF.SA.021    1 LINE     72    2 DISK UM   HARDING             JUNE 27, 1972  12:03.39
00525/022   ELEM FUNC LIB            DLGAMA/DGAMMA   SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022(1)    199
            D4T2    199  ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022   1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.42
00525/023   ELEM FUNC LIB            CABS            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CABS.SA.023(1)           200
            D4T2    200  ELEM_FUNC_LIB.CABS.SA.023          1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:03.46
00525/024   ELEM FUNC LIB            CSQRT           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CSQRT.SA.024(1)          201
            D4T2    201  ELEM_FUNC_LIB.CSQRT.SA.024         1 LINE     67    2 DISK UM   HARDING             JUNE 27, 1972  12:03.50
00525/025   ELEM FUNC LIB            CEXP            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CEXP.SA.025(1)           202
            D4T2    202  ELEM_FUNC_LIB.CEXP.SA.025          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:03.54
00525/026   ELEM FUNC LIB            CLOG            SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CLOG.SA.026(1)           203
            D4T2    203  ELEM_FUNC_LIB.CLOG.SA.026          1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.57
00525/027   ELEM FUNC LIB            CCOS/CSIN       SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CCOS/CSIN.SA.027(1)      204
            D4T2    204  ELEM_FUNC_LIB.CCOS/CSIN.SA.027     1 LINE     69    2 PAGE UM   HARDING             JULY 27, 1973  12:18.03
00525/028   ELEM FUNC LIB            CDABS           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDABS.SA.028(1)          205
            D4T2    205  ELEM_FUNC_LIB.CDABS.SA.028         1 LINE     69    1 DISK UM   HARDING             JUNE 27, 1972  12:04.04
00525/029   ELEM FUNC LIB            CDSQRT          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDSQRT.SA.029(1)         206
            D4T2    206  ELEM_FUNC_LIB.CDSQRT.SA.029        1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:04.08
00525/030   ELEM FUNC LIB            CDEXP           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDEXP.SA.030(1)          207
            D4T2    207  ELEM_FUNC_LIB.CDEXP.SA.030         1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:04.12
00525/031   ELEM FUNC LIB            CDLOG           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDLOG.SA.031(1)          208
            D4T2    208  ELEM_FUNC_LIB.CDLOG.SA.031         1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:04.16
00525/032   ELEM FUNC LIB            CDCOS/CDSIN     SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032(1)    209
            D4T2    209  ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032   1 LINE     63    2 DISK UM   HARDING             JUNE 27, 1972  12:04.19
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00525/033   ELEM FUNC LIB            FIXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FIXPI#.SA.033(1)         210
            D4T2    210  ELEM_FUNC_LIB.FIXPI#.SA.033        1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:04.23
00525/034   ELEM FUNC LIB            FRXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPI#.SA.034(1)         211
            D4T2    211  ELEM_FUNC_LIB.FRXPI#.SA.034        1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:04.25
00525/035   ELEM FUNC LIB            FDXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPI#.SA.035(1)         212
            D4T2    212  ELEM_FUNC_LIB.FDXPI#.SA.035        1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:04.28
00525/036   ELEM FUNC LIB            FCXPI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCXPI#.SA.036(1)         213
            D4T2    213  ELEM_FUNC_LIB.FCXPI#.SA.036        1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.31
00525/037   ELEM FUNC LIB            FCDXI#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCDXI#.SA.037(1)         214
            D4T2    214  ELEM_FUNC_LIB.FCDXI#.SA.037        1 LINE     71    1 DISK UM   HARDING             JUNE 27, 1972  12:04.34
00525/038   ELEM FUNC LIB            FRXPR#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPR#.SA.038(1)         215
            D4T2    215  ELEM_FUNC_LIB.FRXPR#.SA.038        1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:04.37
00525/039   ELEM FUNC LIB            FDXPD#          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPD#.SA.039(1)         216
            D4T2    216  ELEM_FUNC_LIB.FDXPD#.SA.039        1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.43
00525/040   ELEM FUNC LIB            CMPY#           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CMPY#.SA.040(1)          217
            D4T2    217  ELEM_FUNC_LIB.CMPY#.SA.040         1 LINE     61    1 DISK UM   HARDING             JUNE 27, 1972  12:04.46
00525/041A  ELEM FUNC LIB            CDVD#           SA  G          W060:ASM.CDVD                                                   
            4.3T1   382  ELEM_FUNC_LIB.CDVD#.SA.041         1 LINE     67    1 PAGE UM   HARDING             APR. 05, 1980  15:35:49
0          *****************************************************************************
           D4.3 CHANGES:
            
           OLD VERSION REPLACED BY COMPLETELY NEW VERSION.
           *****************************************************************************
00525/042   ELEM FUNC LIB            CDMPY#          SA  G          S0562 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDMPY#.SA.042(1)         219
            D4T2    219  ELEM_FUNC_LIB.CDMPY#.SA.042        1 LINE     61    1 DISK UM   HARDING             JUNE 27, 1972  12:04.54
00525/043A  ELEM FUNC LIB            CDDVD#          SA  G          W060:ASM.CDDVD                                                  
            4.3T1   383  ELEM_FUNC_LIB.CDDVD#.SA.043        1 LINE     67    1 PAGE UM   HARDING             APR. 05, 1980  15:35:51
0          *****************************************************************************
           D4.3 CHANGES:
            
           OLD VERSION REPLACED BY COMPLETELY NEW VERSION.
           *****************************************************************************
00525/044   ELEM FUNC LIB            DREAL           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DREAL.SA.044(1)          221
            D4T2    221  ELEM_FUNC_LIB.DREAL.SA.044         1 LINE     58    1 DISK UM   HARDING             JUNE 27, 1972  12:05.00
00525/045   ELEM FUNC LIB            DIMAG           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DIMAG.SA.045(1)          222
            D4T2    222  ELEM_FUNC_LIB.DIMAG.SA.045         1 LINE     58    1 DISK UM   HARDING             JUNE 27, 1972  12:05.02
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00525/046   ELEM FUNC LIB            MINMAX          SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.MINMAX.SA.046(1)         223
            D4T2    223  ELEM_FUNC_LIB.MINMAX.SA.046        1 LINE     65    2 DISK UM   HARDING             JUNE 27, 1972  12:05.05
00525/047   ELEM FUNC LIB            EFL.MACLIB      SM  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EFL.MACLIB.SM.047(1)     224
            D4T2    224  ELEM_FUNC_LIB.EFL.MACLIB.SM.047    1 LINE     65    1 DISK UM   HARDING             JUNE 27, 1972  12:05.10
0          EFL MACRO LIBRARY REQUIRED FOR ASSEMBLING COMPS 525/1 THROUGH 525/46.
0          Referenced by comments of: 525/1 
00525/048   ELEM FUNC LIB            ERRMON#         SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERRMON#.SA.048(1)        225
            D4T2    225  ELEM_FUNC_LIB.ERRMON#.SA.048       1 LINE     70    9 PAGE UM   HARDING             JULY 28, 1977  02:09:29
0          EFL ERROR MONITOR.
0          Referenced by comments of: 527/1 
00525/049   ELEM FUNC LIB            <EFL>           SA  G          S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.<EFL>.SA.049(1)          226
            D4T2    226  ELEM_FUNC_LIB.<EFL>.SA.049         1 LINE     57    3 PAGE UM   HARDING             SEP. 24, 1974  09:03.35
0          SOURCE FOR LOW-CORE SYMBOL TABLE "<EFL>" WHICH DEFINES EACH OF THE ENTRY POINTS FOR THE EFL ROUTINES.
           THE <EFL> SYMBOL TABLE IS POINTED TO BY LCSYMBOL.
           THE ASSEMBLED NAME OF THIS PROGRAM IS "EFL" SINCE "<EFL>" IS AN ILLEGAL CSECT NAME.  THE OBJECT DECK MUST BE
           CHANGED (BY THE EDITOR) TO CHANGE THE NAME TO "<EFL>" IF IT IS RE-ASSEMBLED.
00525/050A  ELEM FUNC LIB            OBJECT          OC  G          SEG2:EFL                                                        
            4.3T1   384  ELEM_FUNC_LIB.OBJECT.OC.050        1 LINE     80   17 PAGE UM   HARDING             APR. 05, 1980  15:35:53
                         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.
00526/001   SIOC SUBR                                SA  G          S0564 D4T2 VLO FSNAME=SIOC_SUBR..SA.001(1)                   228
            D4T2    228  SIOC_SUBR..SA.001                  1 LINE     80   42 PAGE UM   HARDING             JULY 28, 1977  02:09:37
0          AN I/O CONVERSION PROGRAM TO PERFORM FLOATING POINT, INTEGER, LOGICAL, AND HEX CONVERSIONS.  THE CONVERSIONS
           AVAILABLE CORRESPOND TO THOSE USUALLY ASSOCIATED WITH THE D, E, F, G, I, L, AND Z FORTRAN FORMAT SPECIFICATIONS.
           THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, IS NORMALLY LOADED INTO SHARED VM.
00526/002   SIOC SUBR                                OC  G          SEG2:SIOC                                                       
            D4T2    229  SIOC_SUBR.370_OBJECT.OC.002        1 LINE     80    3 PAGE UM   HARDING             JULY 28, 1977  02:09:46
                         SEG2:SIOC            
00526/003A  SIOC SUBR                SIOCP           SA  G          W060:ASM.SIOCP                                                  
            4.3T1   385  SIOC_SUBR.SIOCP.SA.003             1 LINE     80    6 PAGE UM   HARDING             APR. 05, 1980  15:35:56
0          SUBROUTINE TO TRANSLATE FORTRAN FORMAT-LIKE CHARACTER STRINGS INTO THE DATA
           BLOCK REQUIRED FOR CALLING SIOC.
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          *****************************************************************************
           D4.3 CHANGES:
            
           ERROR CORRECTED.
           *****************************************************************************
00526/004A  SIOC SUBR                SIOCP           OC  G        # (PART OF COMP 525/50)                                           
                                                                                    UM   HARDING                                    
00527/001   TRACER SUBR                              SA  G          S0564 D4T2 VLO FSNAME=TRACER_SUBR..SA.001(1)                 232
            D4T2    232  TRACER_SUBR..SA.001                1 LINE     80   52 PAGE UM   HARDING             SEP. 24, 1974  09:04.21
0          THE TRACEBACK PROGRAM FORMERLY PROVIDED CONVERSATIONAL ERROR PROCESSING FOR ERROR
           CONDITIONS DETECTED BY THE ELEMENTARY FUNCTION LIBRARY (525) AS WELL AS PROGRAM
           AND ATTENTION INTERRUPT PROCESSING.  COMMANDS ARE AVAILABLE FOR DISPLAYING AND
           ALTERING FLOATING POINT, INTEGER, CHARACTER, AND HEX DATA.  THIS PROGRAM IS
           RE-ENTRANT AND, THEREFORE, CAN BE LOADED INTO SHARED VM.
            
           NOTE:  AT UM, THIS COMPONENT IS CONSIDERED TO BE OBSOLETE AND WILL PROBABLY BE
                  REMOVED FROM THE SYSTEM IN THE NEAR FUTURE SINCE THE CURRENT VERSION OF
                  THE EFL ERROR MONITOR (525/48) NO LONGER CALLS IT.
00527/002   TRACER SUBR                              OC  G        # (PART OF COMP 525)                                              
                                                                                    UM   HARDING                                    
0          OBJECT IS PART OF FILE "SEG2:EFL".
00528/001A  ALGOLW                   ALGOLW          OC  O          *ALGOLW                                                         
            4.3T1   386  ALGOLW.ALGOLW.OC.001               1 LINE     24    1 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  15:35:58
                         *ALGOLW              
0           
           ALW  *********************************************************  ALW
           ALW  *                                                       *  ALW
           ALW  *   U N E   A L G O L   W   -   R E L E A S E   6 . 2   *  ALW
           ALW  *                                   (Version EB040)     *  ALW
           ALW  *                                                       *  ALW
           ALW  *********************************************************  ALW
            
           The following are not yet implemented or not yet completed:
            
              1)  The "Algol W Reference Manual" document (comp. 528/34)
              2)  The LINK standard function (procedure callback mechanism)
              3)  The document describing the KXSCAN subroutine (comp. 528/26)
              4)  The debug system (GOODGUYS), but PMDUMP is in, see comp. 582/9
            
           ALW  =========================================================  ALW
            
           Contact people:
            
               Alan Hunter                    (all modules except AWA, 528/4,
                                               and AWB, 528/5 through 528/7)
                  NUMAC Computing Service
                     Computing Laboratory
1                                                                                               SUN SEP 08/96   19:03:19   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                    The University of Newcastle upon Tyne
                     NEWCASTLE   NE1 7RU
                     England
            
               Jim Bodwin                     (AWA, 528/4, and AWB, 528/5
                                               through 528/7)
                  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/21.   A system design overview is
           given in paper 2L of the MTS Workshop IV (Newcastle) Proceedings and
           the user manual (based on UM material) is subcomponent 538/33. The
           writeups included with this distribution should be $COPied to a TN
           printer @MCC.
            
           ALW  =========================================================  ALW
            
           All subcomponents should be restored to filenames formed from:
            
                             <subname>.<type>
            
           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 
00528/002A  ALGOLW                   ALGOLW          OE  O          NEW:ALGOLW                                                      
            4.3T1   387  ALGOLW.ALGOLW.OE.002               1 LINE  32767   57 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  15:36:01
                         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/12.
            
           To use in user segments this subcomponent should be restored and $RUN.
            
           A source file, subcomponent 528/37, may be used to transfer the
           contents of this file to the file SEG2:ALGOLW, which is normally the
1                                                                                               SUN SEP 08/96   19:03:19   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          production Algol W system.
            
           The COM card defining LCSYMBOL entries is:
            COM AWDRIVER AWSYSTEM KXSCAN
            
           This subcomponent contains the assembled object decks from the
           following source decks:
            
              DRIVER.SA   (528/14) -- Compiler system control routine
              SERVICES.SA (528/49) -- Compiler service routines
              LOADER.SA   (528/28) -- Loader for CLG / Monitor
              SCAN.S3     (528/47) -- Compiler phase A : scan
              PARSE.S3    (528/40) -- Compiler phase A : parse
              AWB.S3      (528/07) -- Compiler phase B : code generate 
              RENTALIB.SA (528/45) -- Run time initialisation and interrupt exits
              IOPACK.SA   (528/24) -- I/O system entries
              SYSPACK.SA  (528/53) -- 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/20) -- Run time debug processor
              FUNRTNS.SA  (528/18) -- Function entries
              SHORTFNS.SA (528/51) -- Short real and complex analytic functions
              LONGFNS.SA  (528/30) -- Long real and complex analytic functions
              RECORDS.S3  (528/43) -- Record allocation
              WOLFPACK.SA (528/56) -- Keyword / expression scanner
              MTSSIM.SA   (528/36) -- MTS system interface module
              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/37 
00528/003A  ALGOLW                   ASM             C   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.ASM.C.003(1)                 3
            4.3T1   388  ALGOLW.ASM.C.003                   1 LINE    114    1 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:00:06
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   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.AWA.C.004(1)                 4
            4.3T1   389  ALGOLW.AWA.C.004                   1 LINE     84    1 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:00:11
0          MTS commands to compile the compiler, Phase A.
           The scanner is in 528/52, and its object is in 528/51.
           The parser is in 528/40, and its object is in 528/39.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00528/005A  ALGOLW                   AWB             C   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.AWB.C.005(1)                 5
            4.3T1   390  ALGOLW.AWB.C.005                   1 LINE     70    1 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:00:17
0          MTS commands to compiler the compiler, Phase B.
           The source is in 528/7, and the object is in 528/6.
00528/006A  ALGOLW                   AWB             OC  O          ALGW:AWB.O3                                                     
            4.3T1   391  ALGOLW.AWB.OC.006                  1 LINE     80   52 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  15:36:59
0          Compiler scan and parse phase object produced by 528/5 from
           528/7.
00528/007A  ALGOLW                   AWB             S3  O          ALGW:AWB.S3                                                     
            4.3T1   392  ALGOLW.AWB.S3.007                  1 LINE     72   79 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  15:37:04
0          Source (PL360) for the Algol W compiler, phase B.
0          Referenced by comments of: 528/2 
00528/008A  ALGOLW                   BADGUYS         OC  O          ALGW:BADGUYS.OA                                                 
            4.3T1   393  ALGOLW.BADGUYS.OC.008              1 LINE     80   21 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  15:37:13
0          Object deck assembled from subcomponent 528/9.
00528/009A  ALGOLW                   BADGUYS         SA  O          ALGW:BADGUYS.SA                                                 
            4.3T1   394  ALGOLW.BADGUYS.SA.009              1 LINE     72   48 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  15:37:15
0          Assembler source for the Algol W run time error and exception
           processor.
            
           SD:    AWXERROR
           LD:    ** None **
0          Referenced by comments of: 528/2 
00528/010A  ALGOLW                   BUILD           C   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.BUILD.C.010(1)              10
            4.3T1   395  ALGOLW.BUILD.C.010                 1 LINE     68   10 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:08:09
0          Contains an MTS command deck to build the driver file for this
           distribution, from scratch, in a file called "_DRIVER".  It runs
           *DEDIT - comments are stored in the driver file negative line range.
00528/011A  ALGOLW                   COMMON          S3  O          ALGW:COMMON.S3                                                  
            4.3T1   396  ALGOLW.COMMON.S3.011               1 LINE     72    4 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  15:37:23
0          Compiler scan and parse phase : source for data segments and
           procedures common to both 528/47 and 528/40.
0          Referenced by comments of: 528/40, 528/47 
00528/012A  ALGOLW                   DECKGEN         C   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.DECKGEN.C.012(1)            12
            4.3T1   397  ALGOLW.DECKGEN.C.012               1 LINE    113    3 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:09:31
0          A command deck to assemble/compile all of the object decks for the
1                                                                                               SUN SEP 08/96   19:03:19   Page  229
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          ALW system.
00528/013A  ALGOLW                   DRIVER          OC  O          ALGW:DRIVER.OA                                                  
            4.3T1   398  ALGOLW.DRIVER.OC.013               1 LINE     80   11 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  15:37:27
0          Object deck assembled from subcomponent 528/14.
00528/014A  ALGOLW                   DRIVER          SA  O          ALGW:DRIVER.SA                                                  
            4.3T1   399  ALGOLW.DRIVER.SA.014               1 LINE     72   34 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  17:59:42
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 COPY:GLOBALS (1026/3).
            
           SD:    AWDRIVER      Compiler system (*ALW) entry point
           LD:    ** None **
0          Referenced by comments of: 528/2 
00528/015A  ALGOLW                   FMTPACK         OC  O          ALGW:FMTPACK.OA                                                 
            4.3T1   400  ALGOLW.FMTPACK.OC.015              1 LINE     80   13 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:03:42
0          Object deck assembled from subcomponent 528/16.
00528/016A  ALGOLW                   FMTPACK         SA  O          ALGW:FMTPACK.SA                                                 
            4.3T1   401  ALGOLW.FMTPACK.SA.016              1 LINE     72   49 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:03:43
0          Assembler source for the Algol W I/O format conversion routines.
           Processes input and output data conversion.   These are stack
           linked "Q-routines".
            
           SD:    AWFMTPAK      Q-routine transfer vector
           LD:    ** None **
0          Referenced by comments of: 528/2 
00528/017A  ALGOLW                   FUNRTNS         OC  O          ALGW:FUNRTNS.OA                                                 
            4.3T1   402  ALGOLW.FUNRTNS.OC.017              1 LINE     80    5 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:03:47
0          Object deck assembled from subcomponent 528/18.
00528/018A  ALGOLW                   FUNRTNS         SA  O          ALGW:FUNRTNS.SA                                                 
            4.3T1   403  ALGOLW.FUNRTNS.SA.018              1 LINE     72   14 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:03:49
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/51 and 528/30.
            
           SD:    AWFUNLIB
1                                                                                               SUN SEP 08/96   19:03:19   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          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/51
                  AWLANALF      Long real analytic functions - 528/30
                  AWSCANLF      Complex analytic functions - 528/51
                  AWLCANLF      Long complex analytic functions - 528/30
                  AWPOWERS      Powers evaluation
                  AWRICVFN      Real to integer conversion functions -
                                   ENTIER, ROUND, TRUNCATE
                  AWCARITH      Complex arithmetic
0          Referenced by comments of: 528/2 
00528/019A  ALGOLW                   GOODGUYS        OC  O          ALGW:GOODGUYS.OA                                                
            4.3T1   404  ALGOLW.GOODGUYS.OC.019             1 LINE     80    4 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:03:51
0          Object deck assembled from subcomponent 528/20.
00528/020C  ALGOLW                   GOODGUYS        SA  O          ALGW:GOODGUYS.SA                                                
            4.3T1   405  ALGOLW.GOODGUYS.SA.020             1 LINE     68    3 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:03:54
0          Assembler source for the Algol W run time debug processor routines
           processor.  Doesn't do anything yet.
            
           SD:    AWXDEBUG
           LD:    AWPMDUMP + others to be finalised
0          Referenced by comments of: 528/2 
00528/021A  ALGOLW                   INSTALL         P   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.INSTALL.P.021(1)            21
            4.3T1   406  ALGOLW.INSTALL.P.021               1 LINE     76    4 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:15:58
0          Print file from subcomponent 528/22.
           Copy to a TN printer.
00528/022A  ALGOLW                   INSTALL         WX  O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.INSTALL.WX.022(1)           22
            4.3T1   407  ALGOLW.INSTALL.WX.022              1 LINE     68    4 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:16:07
0          TEXTFORM source for:
            
              ==========================================================
              =   Algol W Installation Guide                           =
              =   by - Alan Hunter                                     =
              =   July 1978                                            =
              ==========================================================
            
           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.
1                                                                                               SUN SEP 08/96   19:03:19   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          The print file is subcomponent 528/21.
00528/023A  ALGOLW                   IOPACK          OC  O          ALGW:IOPACK.OA                                                  
            4.3T1   408  ALGOLW.IOPACK.OC.023               1 LINE     80    7 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:02
0          Object deck assembled from subcomponent 528/24.
00528/024A  ALGOLW                   IOPACK          SA  O          ALGW:IOPACK.SA                                                  
            4.3T1   409  ALGOLW.IOPACK.SA.024               1 LINE     72   18 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:04
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 
00528/025A  ALGOLW                   KXSCAN          P   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.KXSCAN.P.025(1)             25
            4.3T1   410  ALGOLW.KXSCAN.P.025                1 LINE     88    6 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:16:58
0          Print file from subcomponent 528/26.
           Copy to a TN printer.
00528/026A  ALGOLW                   KXSCAN          WX  O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.KXSCAN.WX.026(1)            26
            4.3T1   411  ALGOLW.KXSCAN.WX.026               1 LINE    102    3 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:17:12
0          TEXTFORM source for:
            
              ==========================================================
              =   Newcastle University Computing Laboratory            =
              =   NUMAC Document S21                                   =
              =   KXSCAN - A Keyword and Expression Scanner            =
              =   by - Alan Hunter                                     =
              =   December 1979 (incomplete)                           =
              ==========================================================
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           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/25.
            
           Copyright:       The University of Newcastle upon Tyne
00528/027A  ALGOLW                   LOADER          OC  O          ALGW:LOADER.OA                                                  
            4.3T1   412  ALGOLW.LOADER.OC.027               1 LINE     80    5 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:11
0          Object deck assembled from subcomponent 528/28.
00528/028A  ALGOLW                   LOADER          SA  O          ALGW:LOADER.SA                                                  
            4.3T1   413  ALGOLW.LOADER.SA.028               1 LINE     72   17 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:13
0          Assembler source for the Algol W system loader.   Used by the 
           compiler driver to load programs compiled in CLG or Monitor mode.
            
           SD:    AWLOADER      Algol W loader
           LD:    ** None **
0          Referenced by comments of: 528/2 
00528/029A  ALGOLW                   LONGFNS         OC  O          ALGW:LONGFNS.OA                                                 
            4.3T1   414  ALGOLW.LONGFNS.OC.029              1 LINE     80    6 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:15
0          Object deck assembled from subcomponent 528/30.
00528/030A  ALGOLW                   LONGFNS         SA  O          ALGW:LONGFNS.SA                                                 
            4.3T1   415  ALGOLW.LONGFNS.SA.030              1 LINE     72   23 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:18
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 
00528/031A  ALGOLW                   MACROS          C   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.MACROS.C.031(1)             31
            4.3T1   416  ALGOLW.MACROS.C.031                1 LINE     59    1 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:19:16
0          An MTS command deck to produce the Algol W system macro library
           from the macro source in 528/32. Contains commands to $RUN *MACGEN (293/2).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00528/032A  ALGOLW                   MACROS          UI  O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.MACROS.UI.032(1)            32
            4.3T1   417  ALGOLW.MACROS.UI.032               1 LINE     72   40 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:19:21
0          Contains the source for the Algol W system macro library.  This
           subcomponent is maintained as an IEBUPDTE source deck (in fact
           it is a complete OS job deck).   Changes to Algol W system macros 
           should be made in this file, and a new system library set up
           by sourcing subcomponent 528/31.
00528/033A  ALGOLW                   MANUAL          P   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.MANUAL.P.033(1)             33
            4.3T1   418  ALGOLW.MANUAL.P.033                1 LINE     88  215 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:21:34
0          Print file from subcomponent 528/34.
           Copy to a TN printer.
00528/034A  ALGOLW                   MANUAL          WX  O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.MANUAL.WX.034(1)            34
            4.3T1   419  ALGOLW.MANUAL.WX.034               1 LINE    167  189 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:29:25
0          TEXTFORM source for:
            
              ==========================================================
              =   Newcastle University Computing Laboratory            =
              =   NUMAC Document U78                                   =
              =   Algol W Reference Manual                             =
              =   by - Blanche Grosswald (UM)                          =
              =   revised - Alan Hunter (UNE)                          =
              =   February 1980 (incomplete)                           =
              ==========================================================
            
           This document is the new Algol W user manual.   It is based on
           the University of Michigan:   "MTS Volume 16 - Algol W in MTS",
           written by Blanche Grosswald with help from other UM staff.  It
           has been revised at Newcastle by Alan Hunter (incorporating some
           UQV material by Tony Marsland) in the light of our enhancements. 
           The print file is subcomponent 528/33.
            
           Copyright 1979 by the University of Newcastle upon Tyne,
           Computing Laboratory.  All rights reserved, subject to exceptions
           specified in the University of Michigan copyright to which this
           document is also subject.
            
           Copyright 1978 by the Regents of the University of Michigan.
           Copying is permitted for nonprofit, educational use provided that
           each reproduction is done without alteration, and that the volume
           reference and date of publication are included.  Permission to
           republish any portions of this manual should be obtained in
           writing from the Director of the University of Michigan Computing
           Center, or the Information Officer at Newcastle.
            
           The following layouts are suitable:
             LAY.TYNE (3018/178) -- NUMAC Documentation group standards
             LAY.DEE (3018/179) -- NUMAC general layout with numbered headings
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00528/035A  ALGOLW                   MTSSIM          OC  O          ALGW:MTSSIM.OA                                                  
            4.3T1   420  ALGOLW.MTSSIM.OC.035               1 LINE     80    5 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:36
0          Object deck assembled from subcomponent 528/36.
00528/036A  ALGOLW                   MTSSIM          SA  O          ALGW:MTSSIM.SA                                                  
            4.3T1   421  ALGOLW.MTSSIM.SA.036               1 LINE     72   29 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:38
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.
            
           SD:    AWSIMRTN
           LD:    AWSIMBGN      SIM initialisation 
                  AWSIMEND      SIM close down 
                  AWGTMAIN      Get main storage 
                  AWFRMAIN      Return main storage 
                  AWXCLOCK      System clock 
                  AWRDRECD      Read in a record 
                  AWWRRECD      Write out a 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      Emergency exit 
                  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 (calls
                                DEFAULTS (791/1))
            
           Copies COPY:GLOBALS (1026/3).
0          Referenced by comments of: 528/2 
00528/037A  ALGOLW                   NEWSYS          C   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.NEWSYS.C.037(1)             37
            4.3T1   422  ALGOLW.NEWSYS.C.037                1 LINE     66    1 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:39:37
0          This contains a set of MTS commands to change the current post-IPL
           (production) Algol W system.  It should be sourced from the id
1                                                                                               SUN SEP 08/96   19:03:19   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          "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 (749) using the file NEW:ALGOLW (528/2)
           as a basis.
00528/038A  ALGOLW                   OBJBUILD        C   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.OBJBUILD.C.038(1)           38
            4.3T1   423  ALGOLW.OBJBUILD.C.038              1 LINE     66    1 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:39:41
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.
00528/039A  ALGOLW                   PARSE           OC  O          ALGW:PARSE.O3                                                   
            4.3T1   424  ALGOLW.PARSE.OC.039                1 LINE     80   44 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:45
0          Compiler scan and parse phase object produced by 528/4 from
           528/40.
00528/040C  ALGOLW                   PARSE           S3  O          ALGW:PARSE.S3                                                   
            4.3T1   425  ALGOLW.PARSE.S3.040                1 LINE     72   73 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:04:48
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 
00528/041A  ALGOLW                   RECORDS         C   O          S1397 UNE26 'UNE26' FSNAME=ALGOLW.RECORDS.C.046(1)            46
            4.3T1   426  ALGOLW.RECORDS.C.041               1 LINE    117    1 PAGE UNE  HUNTER    BODWIN    FEB. 28, 1980  15:46:18
0          Contains an MTS command deck to compile the record allocation
           library routine 528/43.
00528/042A  ALGOLW                   RECORDS         OC  O          ALGW:RECORDS.O3                                                 
            4.3T1   427  ALGOLW.RECORDS.OC.042              1 LINE     80    3 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:00
0          Object deck compiled from subcomponent 528/43.
00528/043A  ALGOLW                   RECORDS         S3  O          ALGW:RECORDS.S3                                                 
            4.3T1   428  ALGOLW.RECORDS.S3.043              1 LINE     72    5 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:01
0          PL360 source for the Algol W record allocation routine.
            
           SD:    AWRCALOC      Record allocator
           LD:    ** None **
0          Referenced by comments of: 528/2 
00528/044A  ALGOLW                   RENTALIB        OC  O          ALGW:RENTALIB.OA                                                
            4.3T1   429  ALGOLW.RENTALIB.OC.044             1 LINE     80    9 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:03
0          Object deck assembled from subcomponent 528/45.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00528/045A  ALGOLW                   RENTALIB        SA  O          ALGW:RENTALIB.SA                                                
            4.3T1   430  ALGOLW.RENTALIB.SA.045             1 LINE     69   16 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:05
0          Assembler source for the Algol W library root control section.
           Provides the initialization entry for the run time ststem, with
           dummy section initialization code, and also the interrupt exits.
            
           SD:    AWSYSTEM      Initial run time entry
0          Referenced by comments of: 528/2 
00528/046A  ALGOLW                   SCAN            O3  O          ALGW:SCAN.O3                                                    
            4.3T1   431  ALGOLW.SCAN.O3.046                 1 LINE     80   18 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:08
0          Compiler scan and parse phase object produced by 528/4 from
           528/47.
00528/047C  ALGOLW                   SCAN            S3  O          ALGW:SCAN.S3                                                    
            4.3T1   432  ALGOLW.SCAN.S3.047                 1 LINE     72   24 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:10
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 
00528/048A  ALGOLW                   SERVICES        OC  O          ALGW:SERVICES.OA                                                
            4.3T1   433  ALGOLW.SERVICES.OC.048             1 LINE     80    8 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:12
0          Object deck assembled from subcomponent 528/49.
00528/049A  ALGOLW                   SERVICES        SA  O          ALGW:SERVICES.SA                                                
            4.3T1   434  ALGOLW.SERVICES.SA.049             1 LINE     71   32 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:14
0          Assembler source for the Algol W compiler service routines.
           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 
00528/050A  ALGOLW                   SHORTFNS        OC  O          ALGW:SHORTFNS.OA                                                
            4.3T1   435  ALGOLW.SHORTFNS.OC.050             1 LINE     80    6 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:17
0          Object deck assembled from subcomponent 528/51.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00528/051A  ALGOLW                   SHORTFNS        SA  O          ALGW:SHORTFNS.SA                                                
            4.3T1   436  ALGOLW.SHORTFNS.SA.051             1 LINE     72   20 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:19
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 
00528/052A  ALGOLW                   SYSPACK         OC  O          ALGW:SYSPACK.OA                                                 
            4.3T1   437  ALGOLW.SYSPACK.OC.052              1 LINE     80   14 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:21
0          Object deck assembled from subcomponent 528/53.
00528/053A  ALGOLW                   SYSPACK         SA  O          ALGW:SYSPACK.SA                                                 
            4.3T1   438  ALGOLW.SYSPACK.SA.053              1 LINE     72   32 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:24
0          Assembler source for the Algol W I/O system record and device 
           control routines.   These are stack linked "Q-routines".
           Copies COPY:GLOBALS (1026/3).
            
           SD:    AWSYSPAK      Q-routine transfer vector
           LD:    AWFMSCAN      Format string decoder (O/S type I rtn)
0          Referenced by comments of: 528/2 
00528/054A  ALGOLW                   TESTPGMS        SW  O          ALGW:TESTPGMS.SW                                                
            4.3T1   439  ALGOLW.TESTPGMS.SW.054             1 LINE     81    5 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:26
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/055A  ALGOLW                   WOLFPACK        OC  O          ALGW:WOLFPACK.OA                                                
            4.3T1   440  ALGOLW.WOLFPACK.OC.055             1 LINE     80   11 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:28
0          Object deck assembled from subcomponent 528/56.
00528/056A  ALGOLW                   WOLFPACK        SA  O          ALGW:WOLFPACK.SA                                                
            4.3T1   441  ALGOLW.WOLFPACK.SA.056             1 LINE     72   48 PAGE UNE  HUNTER    BODWIN    APR. 05, 1980  18:05:31
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 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0                 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 
00528/057   ALGOLW                   *XALGOLW        OE  O        # (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. 
00528/058C  ALGOLW                   MEMO 403        WX             S0672 CCMEMO 'CCMEMOS' FSNAME=M403SOURCE                        
            4.3T1   442  ALGOLW.MEMO_403.WX.058             1 LINE    255   27 PAGE UM   BODWIN              OCT. 09, 1979  08:49:33
0          THIS IS COMPUTING CENTER MEMO 403 -- "ALGOLW: RELEASE 6.1."
00528/059   ALGOLW                   UNSP I/O        SA  O  ALIO    S0684 UNSP FSNAME=ALGOLIO.S                                     
            D4.2T1  350  ALGOLW.UNSP_I/O.SA.022             1 LINE     80    5 PAGE UM   UNSP                FEB. 23, 1979  04:51:31
0          THE OBJECT OF THIS IS IN UNSP:LIBRARY (685/4). THIS MODULE IS USABLE, BUT 
           IT HAS BEEN OUTDATED BY NEW FEATURES OF *ALGOLW.
00529/001A  FILESTATUS COMMAND                       SA             MTS:FILESTATUS.S                                                
            4.3T1   443  FILESTATUS_COMMAND..SA.001         1 LINE    110   86 PAGE UM   DWB                 APR. 05, 1980  18:05:56
                         MTS:FILESTATUS.S     
0          SOURCE FOR FILESTATUS COMMAND WHICH IS NORMALLY LOADED BY PISTLE AT IPL AND EXECUTED
           WHENEVER A $FILESTATUS COMMAND IS ISSUED.  (THIS COMMAND PRINTS INFO ABOUT FILES.)
           THE FILESTATUS COMMAND, LIKE THE PERMIT COMMAND, WAS IMPLEMENTED AS A COMMAND LANGUAGE
           SUBSYSTEM (CLS) EVEN THOUGH IT REALLY ISN'T A CLS (SEE THE COMMENTS FOR COMP 509/1).
            
           COPIES *GFINFODSECT (593) AND *GDINFODSECT (594).
           REQUIRES SHARED VM SUBROUTINES JULGRGDT (522) AND GRGJULDT (518).
            
           *****************************************************************************
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT:
            
           D4.2A (RD16) CHANGES:
            
           CHANGED TO USE TYPE 20 RHS SUBSTRINGS INSTEAD OF TYPE 6, SO AS TO MATCH
           DOCUMENTATION AND EXPECTED BEHAVIOR.
            
           D4.2C CHANGES:
            
           PRINTS PARTIALLY SPECIFIED CCID, PROJECTS, AND PKEYS WITH A TRAILING
           QUESTION MARK.  IN ADDITION, A BUG WAS FIXED.
            
           -----------------------------------------------------------------------------
            
1                                                                                               SUN SEP 08/96   19:03:19   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          -----------------------------------------------------------------------------
           D4.3 CHANGES:
            
           1)  CHANGED TO ACCEPT INITIAL SUBSTRING LEFTHAND SIDES THAT MATCH THE
               INITIAL RIGHT-HAND SIDES IT ALREADY ACCEPTS.
           2)  CHANGED TO ALLOW GFINFO TO SUPPLY THE TRAILING QUESTION MARKS ON 
               PARTIALLY SPECIFIED CCIDS, PROJECTS, AND PKEYS AND TO TRIM TRAILING
               BLANKS FROM CCIDS, PROJECTS, AND PKEYS BEFORE PRINTING IN SHARING
               INFORMATION.
           3)  ENABLED SPELLING CORRECTION ACCORDING TO MTS SPELLCOR SWITCH.
           4)  FIXED BUGS HAVING TO DO WITH THE SCANNING OF CATALOGS THAT INCLUDED
               PRIVATE FILES WHOSE NAMES STARTED WITH "*", OR THE CURRENT SCRATCH
               FILE CHARACTER, OR WHOSE NAMES CONTAIN THE CURRENT SHARED FILE 
               SEPARATOR CHARACTER AS ONE OF THE FIRST 5 CHARACTERS OF THE NAME.
           5)  FIXED A BUG CAUSING HOLES TO NOT BE PRINTED SOMETIMES.
           6)  CHANGED WHAT GETS PRINTED FOR LOCATION (LOC) TO BE 2311, 2314, CELL,
               3330, OR 3350 RATHER THAN 2311, 2314, CELL, DISK, AND DISK (REQUIRES
               A CHANGE TO GFINFO).
           7)  MADE THE MESSAGE PRINTED FOR A CCID THAT HAS NO CATALOG THE SAME AS
               THE ONE FOR AN ID WITH AN EMPTY CATALOG.
           *****************************************************************************
0          Referenced by comments of: 509/1 
00529/002A  FILESTATUS COMMAND                       OC             *CLSFILESTATUS                                                  
            4.3T1   444  FILESTATUS_COMMAND..OC.002         1 LINE     80   17 PAGE UM   DWB                 APR. 05, 1980  18:06:07
                         *CLSFILESTATUS       
00530/001  *AMENDS                                   SA             S0564 D4T2 VLO FSNAME=AMENDS..SA.001(1)                      256
            D4T2    256  AMENDS..SA.001                     1 LINE     80    6 PAGE UM   DWB                 JULY 28, 1977  02:17:36
0          CHANGED TO PROMPT FOR OLD AND NEW COPIES IF UNITS 0 AND/OR 1 ARE NOT ASSIGNED.
00530/002  *AMENDS                                   OC             *AMENDS                                                         
            D4T2    257  AMENDS..OC.002                     1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:17:38
                         *AMENDS              
00531/001   COMMAND STATISTICS       CMDSTAT D4.1    SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=CMDSTAT                     
            D4.1T1  284  COMMAND_STATISTICS.CMDSTA.SA.001   1 LINE     80   13 PAGE UM   MTS       HELFFRICH MAY  13, 1978  17:36:26
0          GENERAL SYSTEM LOGGING FACILITY TO LOG ALL MTS COMMANDS, THE HASP LOG, THE
           OPERATOR'S CONSOLE LOG, UNIT AND MACHINE CHECK RECORDS, ETC.  COPIES
           COPY:CMDAREADSECT (531/18), CMDSTAT.D (531/19), COPY:LLMPSEQU (087), AND
           COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
            
           CURRENTLY THE FOLLOWING RECORD TYPES ARE ASSIGNED:
              TYPE 1 = MTS COMMANDS
                   2 = OVERFLOW
                   3 = RELOAD
                   4 = UNIT-CHECK DATA
                   5 = END-OF-USER (HAS BEEN SIGNED-OFF)
                   6 = 3270 DSR STATISTICS
                   7 = HASP LOG
                   8 = SSRTN JOBSTA DATA
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0                  9 = TSFO DSR STATISTICS
                  10 = MACHINE-CHECK RECORDS
                  11 = OPERATOR CONSOLE LOG 
                  12 = EDITOR STATISTICS
                  13 = LOADER STATISTICS
                  14 = PLOTTER USER STATISTICS
                  15 = SPIRES STATISTICS
                  16 = MOUNT STATISTICS
                  17 = MERIT STATISTICS
                  18 = PLOTTER LOAD STATISTICS
                  19 = SSRTN SUMMARY DATA
                  20 = DISK MANAGER STATISTICS (TRAK TO START)
                  21 = HASP DEVICE STATISTICS (E.G., OMR CARDS)
                  22 = RESERVED FOR PW FAILURE STATISTICS (WORK
                           BEING DONE AT RPI)
            
           RECORDS ARE LOGGED BY CALLING THE S-TYPE ENTRY TO CMDSTAT AS FOLLOWS:
                  CALL CMDSTATS,(LOC,LEN,TYPE)
           WHERE LOC IS THE LOCATION OF THE RECORD
                 LEN IS THE HALFWORD LENGTH OF THE RECORD
                 TYPE IS THE FULLWORD RECORD TYPE
           AND   RC=0 IS NORMAL
                 RC=4 MEAN ALL DROP AREAS ARE FULL; THE RECORD HAS NOT BEEN LOGGED.
0          Referenced by comments of: 413/1, 447/1, 752/1 
00531/002A  COMMAND STATISTICS       CMDSTAT UPDATE  UC  G          MTS:CMDSTATUPD                                                  
            4.3T1   445  COMMAND_STATISTICS.CMDSTA.UC.002   1 LINE     72    3 PAGE UM   MTS       HELFFRICH APR. 05, 1980  18:06:10
                         MTS.:CMDSTATUPD      
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.1 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=CMDSTAT. 
            
           REQUIRES THE RD16 VERSION OF CMDPIKUP (531/6).
00531/003A  COMMAND STATISTICS       CMDSTAT OBJECT  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00531/004A  COMMAND STATISTICS       CMDSTAT LIST    L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=CMDSTAT.LIST          16  
            4.3T1   446  COMMAND_STATISTICS.CMDSTA.L.004    1 SEQ     133   38 PAGE UM   MTS       HELFFRICH APR. 05, 1980  18:06:13
00531/005A  COMMAND STATISTICS       *CMD            C   G          *CMD                                                            
            4.3T1   447  COMMAND_STATISTICS.*CMD.C.005      1 LINE     81    1 PAGE UM   DWB                 APR. 05, 1980  18:06:15
                         *CMD                 
0          THIS COMMAND FILE IS INVOKED BY INIT:INTCMD (097/2) WHENEVER THE SYSTEM IS IPLED.  AFTER SIGNON,
           *CMD RUNS CMDPIKUP (531/6).  AN ERROR FILE (CMDERRORS) MUST EXIST UNDER THE USER ID USED FOR *CMD.
           THE LOGGED RECORDS FILL UP A 384 PAGE FILE ABOUT 3 TIMES PER DAY UNDER BUSY CONDITIONS.
           TWO SUCH FILES ARE USED ALTERNATELY.  THE TAPES ONTO WHICH THEY ARE DUMPED FILL UP IN ABOUT 2 WEEKS.
0          Referenced by comments of: 97/2 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00531/006A  COMMAND STATISTICS       CMDPIKUP        SA  G  CMDP    SYS:CMDPIKUP(1000)                                              
            4.3T1   448  COMMAND_STATISTICS.CMDPIK.SA.006   1 LINE     80   21 PAGE UM   DWB                 APR. 05, 1980  18:06:17
                         SYS:CMDPIKUP         
0          PROGRAM TO PICKUP LOG RECORDS (FROM CMDSTAT) AND SAVE THEM IN FILES; FILENAMES ARE
           SPECIFIED BY THE CMDDIR FILE (531/9).  WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC
           STRTJB TO START "MTS *DWB" (531/12) WHICH DUMPS THE FILLED FILE ONTO TAPE ACCORDING
           TO DIRECTORY INFORMATION IN CMDDIR.  IN ADDITION, MACHINE AND CHANNEL CHECK RECORDS
           (TYPE 10) ARE ALSO WRITTEN ON UNIT 10 WHICH IS ASSIGNED TO THE FILE INIT:MCFILE.
           DISK UNIT CHECK RECORDS (TYPE 4) ARE ALSO WRITTEN ON UNIT 4 WHICH IS ASSIGNED TO
           THE FILE INIT:UC3330LOG(*L+1).  CMDPIKUP REQUIRES AN EMPTY FILE NAMED CMDSTATLOCK
           WHICH IS USED TO MAKE SURE THAT ONLY ONE COPY OF THIS PROGRAM IS RUNNING AT A TIME.
           WHEN CMDPIKUP IS STARTED, IT FIRST SCANS THE DIRECTORY FILE LOOKING FOR BUSY ENTRIES.
           IF IT FINDS ANY, IT CHANGES FILE BUSY TO FILE FULL AND TAPE BUSY TO TAPE ACTIVE (SEE
           531/35), AND THEN SETS THINGS UP SO A FILE-TO-TAPE TASK (531/12) WILL BE STARTED UP
           ABOUT 4 MINUTES AFTER CMDPIKUP STARTED (THIS DELAY IS TO ALLOW PISTLE TO FINISH
           LOADING MOUNT IF THE SYSTEM HAS JUST BEEN IPLED).  NOTE:  THE FILE "CMDDIR" (531/9)
           IS REFERENCED DIRECTLY BY THIS PROGRAM.  CMDPIKUP COPIES COPY:CMDAREADSECT (531/18),
           COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), CMDSTAT.D (531/18), *GFINFODSECT (593),
           AND *GDINFODSECT (594).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND MTA:MCHMAC (577/6).
0          Referenced by comments of: 531/2, 531/5, 531/8, 531/35 
00531/007A  COMMAND STATISTICS       CMDPIKUP        OC  G          SYS:CMDPIKUP(1,999)                                             
            4.3T1   449  COMMAND_STATISTICS.CMDPIK.OC.007   1 LINE     80    6 PAGE UM   DWB                 APR. 05, 1980  18:06:23
00531/008   COMMAND STATISTICS       CMDSTATLOCK     D            # MTS:TST.EMPTY                                                   
                                                                                    UM   DWB                                        
                         SYS:CMDSTATLOCK      
0          FILE USED BY CMDPIKUP (531/6) TO MAKE SURE ONLY ONE COPY AT A TIME IS RUNNING.
00531/009   COMMAND STATISTICS       SYS:CMDDIR      D              MTS:TST.CMDDIR                                                  
            D4.1T1  285  COMMAND_STATISTICS.SYS:CM.D.007    1 LINE     70    1 PAGE UM   DWB                 MAY  13, 1978  17:36:30
                         SYS.:CMDDIR          
0          THIS FILE SPECIFIES THE NAMES OF THE DATA FILES USED FOR DUMPING THE LOGGED RECORDS.
           IT ALSO SPECIFIES THE TAPE PARAMETERS USED FOR DUMPING EACH FILE TO TAPE WHEN FULL.
           *** WARNING ***  WHEN EDITTING THIS FILE WITH THE EDITOR, NEVER USE VISUAL MODE
                            OR THE REPLACE COMMAND SINCE THE LINES CONTAINING TAPE INFORMATION
                            HAVE HEX FIELDS WHICH WILL BE CLOBBERED.
0          Referenced by comments of: 531/6, 531/13 
00531/010   COMMAND STATISTICS       SYS:CMDSTAT1    D            # MTS:TST.CMDSTATX                                                
                                                                                    UM   DWB                                        
                         SYS:CMDSTAT1         
00531/011   COMMAND STATISTICS       SYS:CMDSTAT2    D            # MTS:TST.CMDSTATX                                                
                                                                                    UM   DWB                                        
                         SYS:CMDSTAT2         
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00531/012A  COMMAND STATISTICS       *DWB            C   G          MTS:TST.DWB                                                     
            4.3T1   450  COMMAND_STATISTICS.*DWB.C.012      1 LINE    161    1 PAGE UM   DWB                 APR. 05, 1980  18:06:25
                         *DWB                 
0          COMMAND FILE INVOKED BY CMDPIKUP TO RUN THE CMDTAPE PROGRAM (531/13) WHICH DUMPS A FULL LOG
           FILE TO TAPE AND UPDATES THE CMDFDIR DIRECTORY TO ADD A LINE OF INFORMATION FOR EACH FILE WRITTEN.
           THE CMDTAPE PROGRAM ALSO WRITES ALL SPIRES STATISTICS RECORDS (TYPE 15) ON UNIT 15, WHICH IS 
           ASSIGNED TO THE FILE DBMS:SPIRESLOG(*L+1); 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/6 
00531/013A  COMMAND STATISTICS       CMDTAPE         SA  G          DWB:CMDTAPE.370(1,999)                                          
            4.3T1   451  COMMAND_STATISTICS.CMDTAP.SA.013   1 LINE     72    8 PAGE UM   DWB                 APR. 05, 1980  18:06:28
                         DWB.:CMDTAPE.370     
0          PROGRAM TO COPY CMDSTAT LOG FILES TO TAPE.  RUN BY *DWB.  NOTE:  THE
           FILES CMDDIR (531/9) AND CMDFDIR (531/15) ARE REFERENCED DIRECTLY BY
           THIS PROGRAM. IT ALSO WRITES *PRINT* RECEIPT NUMBERS IN THE FILE
           SYS:HASPRECEIPTS (531/17) FOR THE PRINTED HASP LOG IT PRODUCES.
           COPIES COPY:CMDAREADSECT (531/18), *GDINFODSECT (594), COPY:LLMPSEQU (087),
           AND COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 531/12, 531/15, 531/16, 531/17, 531/31 
00531/014A  COMMAND STATISTICS       CMDTAPE         OC  G          SYS:CMDTAPE.O                                                   
            4.3T1   452  COMMAND_STATISTICS.CMDTAP.OC.014   1 LINE   1660    7 PAGE UM   DWB                 APR. 05, 1980  18:06:32
                         SYS.:CMDTAPE.O       
0          OBJECT OF 531/13 AND 722/1.
00531/015   COMMAND STATISTICS       SYS:CMDFDIR     D            # MTS:TST.CMDFDIR                                                 
            D4T2    266  COMMAND_STATISTICS.SYS:CM.D.010    1 LINE      ?    1 PAGE UM   DWB                 JULY 28, 1977  02:18:13
                         SYS.:CMDFDIR         
0          DATA FILE, MAINTAINED BY THE CMDTAPE PROGRAM (531/13), WHICH HAS ONE LINE
           FOR EACH FILE ON A COMMAND STATISTICS TAPE.  IT HAS THE EARLIEST AND LATEST
           TIMES FOR THAT FILE, THE FILE NUMBER, AND THE MOUNT INFORMATION.  IT IS
           ORDERED BY THE EARLIEST TIME.  SOME PROGRAMS USE THIS FILE TO DETERMINE
           WHAT TAPE TO USE, GIVEN A TIME RANGE.
0          Referenced by comments of: 531/13 
00531/016   COMMAND STATISTICS       CMDERRORS       D            # MTS:TST.EMPSEQF                                                 
                                                                                    UM   DWB                                        
                         SYS:CMDERRORS        
0          LOG FILE FOR CMDTAPE (531/13).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00531/017C  COMMAND STATISTICS       HASP RECEIPTS   D            # MTS:TST.EMPTY                                                   
                                                                                    UM   DWB                                        
                         SYS:HASPRECEIPTS     
0          LOG FILE, USED BY THE CMDTAPE PROGRAM (531/13), WHICH LOGS THE *PRINT*
           RECEIPT NUMBERS FOR THE PRINTED HASP LOGS PRODUCED BY IT.
0          Referenced by comments of: 531/13, 531/33 
00531/018A  COMMAND STATISTICS       CMDAREADSECT    SA  G  CMDA    COPY:CMDAREADSECT                                               
            4.3T1   453  COMMAND_STATISTICS.CMDARE.SA.018   1 LINE     80    3 PAGE UM   DWB                 APR. 05, 1980  18:06:35
                         COPY:CMDAREADSECT    
0          COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD.
0          Referenced by comments of: 12/1, 45/1, 46/1, 531/1, 531/6, 531/13, 531/31, 531/33, 540/10, 577/2, 621/2, 621/4,
                 621/8, 621/10, 655/2, 707/1, 707/2, 718/1, 753/1, 753/3, 787/3, 787/9, 787/11 
00531/019   COMMAND STATISTICS       CMDSTATDATA     SA  G  CMDD    DWB:CMDSTAT.D                                                   
            D4T2    268  COMMAND_STATISTICS.CMDSTA.SA.013   1 LINE     80    1 PAGE UM   DWB                 JULY 28, 1977  02:20:51
                         DWB.:CMDSTAT.D       
0          COPY SECTION FOR CMDSTAT DATA.
0          Referenced by comments of: 531/1 
00531/020   COMMAND STATISTICS       CHECKTIME       SA  G  CHKT    DWB:CMDCHECKTIME(1,999)                                         
            D4T2    269  COMMAND_STATISTICS.CHECKT.SA.014   1 LINE     80    5 PAGE UM   DWB                 JULY 28, 1977  02:20:53
                         DWB.:CMDCHECKTIME    
0          PROGRAM TO CHECK COMMAND STATISTICS OUTPUT TIMES TO SEE IF SOMETHING IS MISSING OR WHATEVER.  IT PRINTS THE TIME/DATE OF
           THE FIRST AND LAST RECORDS AND OTHER RECORDS IF THE DIFFERENCE FROM THE PREVIOUS RECORD IS AT LEAST 1 SECOND AND IS
           GREATER THAN 128 TIMES THE AVERAGE OF THE LAST 8 DIFFERENCES, OR IF THE DIFFERENCE IS GREATER THAN 10 MINUTES.
           IF THE DIFFERENCE IS NEGATIVE, IT DOES THE SAME THING EXCEPT THAT IT USES 16 TIMES THE AVERAGE OF THE LAST 8.
            
           IF PAR=M IS GIVEN, IT GOES THROUGH MULTIPLE FILES.
           IF PAR=S IS GIVEN, IT PRINTS EVERY 128TH RECORD INSTEAD OF MAKING THE ABOVE CHECKS.
00531/021   COMMAND STATISTICS       CHECKTIME       OC  G          DWB:CMDCHECKTIME(1000)                                          
            D4T2    270  COMMAND_STATISTICS.CHECKT.OC.015   1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:20:56
00531/022   COMMAND STATISTICS       CMDXTRACT       SF             DWB:CMDXTRACT(1,999)                                            
            D4.2T1  357  COMMAND_STATISTICS.CMDXTR.SF.022   1 LINE     71    1 PAGE UM   DWB                 APR. 01, 1979  22:38:18
                         DWB.:CMDXTRACT       
0          PROGRAM TO EXTRACT COMMAND LINES FOR A GIVEN USERID AND TIME RANGE.
           TAKES STATISTICS INPUT ON SCARDS, PRINTS LINES (WITH TIME,DATE,ID
           PROJ NO,AND TASK NUMBER) ON 6. 5 (INPUT) AND SPRINT (OUTPUT)
           SHOULD BE ATTACHED TO TERMINAL. IT WILL ASK QUESTIONS FOR ITS
           PARAMETERS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00531/023   COMMAND STATISTICS       CMDXTRACT       OC             DWB:CMDXTRACT(1000)                                             
            D4.2T1  358  COMMAND_STATISTICS.CMDXTR.OC.023   1 LINE    914    2 PAGE UM   DWB                 APR. 01, 1979  22:38:19
00531/024   COMMAND STATISTICS       CMDXTRACT3      SF             DWB:CMDXTRACT3(1,999)                                           
            D4.2T1  359  COMMAND_STATISTICS.CMDXTR.SF.024   1 LINE     65    1 PAGE UM   DWB                 APR. 01, 1979  22:38:19
                         DWB.:CMDXTRACT3      
0          PROGRAM TO EXTRACT HASP LOG ITEMS AND OTHER THINGS.  ASKS FOR A RECORD TYPE AND A "THING"
           (E.G. AN S8 NUMBER) TO SEARCH FOR.  RUN IT LIKE 531/22.
00531/025   COMMAND STATISTICS       CMDXTRACT3      OC             DWB:CMDXTRACT3(1000)                                            
            D4.2T1  360  COMMAND_STATISTICS.CMDXTR.OC.025   1 LINE    778    2 PAGE UM   DWB                 APR. 01, 1979  22:38:20
00531/026   COMMAND STATISTICS       CMDXTRACT4      SF             DWB:CMDXTRACT4(1,999)                                           
            D4.2T1  361  COMMAND_STATISTICS.CMDXTR.SF.026   1 LINE     71    2 PAGE UM   DWB                 APR. 01, 1979  22:38:21
                         DWB.:CMDXTRACT4      
0          EXTRACTS TYPES 1 THROUGH 4 FOR A GIVEN TIME INTERVAL AND OPTIONALLY FOR A
           GIVEN USERID.  RUN LIKE 531/22.
00531/027   COMMAND STATISTICS       CMDXTRACT4      OC             DWB:CMDXTRACT4(1000)                                            
            D4.2T1  362  COMMAND_STATISTICS.CMDXTR.OC.027   1 LINE    954    2 PAGE UM   DWB                 APR. 01, 1979  22:38:21
00531/028   COMMAND STATISTICS       PROCESSING      SF             DWB:CMDPROC.S                                                   
            D4.2T1  363  COMMAND_STATISTICS.PROCES.SF.028   1 LINE     75    9 PAGE UM   DWB                 APR. 01, 1979  22:38:22
                         DWB.:CMDPROC.S       
0          PROGRAM TO READ AND GENERATE VARIOUS STATISTICS ON COMMAND DATA
           (USAGE OF VARIOUS COMMANDS FOR VARIOUS CATEGORIES OF USERS,
           AVERAGE LENGTH OF COMMANDS AND COMMAND NAMES,USAGE OF
           ABBREVIATIONS,...)
                SCARDS-DATA IN
                6     -PRINT OUT
                5     -PROMPT INPUT
                SPRINT-PROMPT OUTPUT
                (ASKS FOR NUMBER OF FILES TO PROCESS) 
00531/029   COMMAND STATISTICS       PROCESSING      OC             DWB:CMDPROC.O                                                   
            D4.2T1  364  COMMAND_STATISTICS.PROCES.OC.029   1 LINE  20186   11 PAGE UM   DWB                 APR. 01, 1979  22:38:23
                         DWB.:CMDPROC.O       
00531/030   COMMAND STATISTICS       SCANCMD         SA           # (OBSOLETE)                                                      
            D3.2T1  435  COMMAND_STATISTICS.SCANCMD.SA.22   1 LINE     80    7 PAGE UM                       MAR. 21, 1975  01:49:37
00531/031   COMMAND STATISTICS       SELECTCMD       SA  G          MTS:SELECTCMD(1,999)                                            
            D4T2    277  COMMAND_STATISTICS.SELECT.SA.023   1 LINE     80    6 PAGE UM   MTA                 JULY 28, 1977  02:21:14
                         MTS.:SELECTCMD       
0          PROGRAM TO RETRIEVE DATA FROM CMDSTAT TAPES USING DIRECTORY BUILT BY CMDTAPE (531/13).
           CALLS READBFR ROUTINE (709).  COPIES COPY:CMDAREADSECT (531/18).
0          Referenced by comments of: 709/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00531/032   COMMAND STATISTICS       SELECTCMD       OC  G          MTS:SELECTCMD(1000)                                             
            D4T2    278  COMMAND_STATISTICS.SELECT.OC.024   1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:21:16
00531/033A  COMMAND STATISTICS       CMDUTIL         SA  G  CMDU    DWB:CMDUTIL(1,999)                                              
            4.3T1   454  COMMAND_STATISTICS.CMDUTI.SA.033   1 LINE     80    9 PAGE UM   DWB                 APR. 05, 1980  18:06:37
                         DWB.:CMDUTIL         
0          PROGRAM TO PRINT OR COPY (OR BOTH) COMMAND STATISTICS RECORDS BASED ON RECORD
           TYPES.  THIS PROGRAM REPLACES AND EXTENDS CMDAREAPRINT (531/17).  IF NO PARAMETER
           IS GIVEN, IT WILL PROMPT FOR PRINT|COPY|BOTH AND FOR THE RECORD TYPES.  CURRENTLY,
           RECORDS WHICH ARE NOT COMMAND STATISTICS (I.E. NOT TYPES 1, 2, 3, OR 5) ARE JUST
           PRINTED AS BCD.  THIS IS FINE FOR THE HASP AND CONSOLE LOGS, BUT NOT FOR OTHERS.
           ROUTINES TO FORMAT OTHER RECORD TYPES FOR PRINTING CAN BE INCLUDED WHEN WRITTEN.
           IF PAR=COUNT IS GIVEN, THEN IT WILL NEITHER COPY NOR PRINT, BUT INSTEAD SIMPLY
           REPORT THE NUMBER OF RECORDS OF EACH TYPE FOUND.  IT READS CMDSTAT DATA FROM
           SCARDS AND PRINTS OUTPUT ON SPRINT.  IF THE COPY FUNCTION IS SPECIFIED, THEN
           RECORD TYPE N IS WRITTEN ON MTS I/O UNIT N.  COPIES COPY:CMDAREADSECT (531/18).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           CHANGED SO THAT RECORDS OF TYPE N WHERE N>19 ARE COPIED TO UNIT 0.
           *****************************************************************************
00531/034A  COMMAND STATISTICS       CMDUTIL         OC  G          DWB:CMDUTIL(1000)                                               
            4.3T1   455  COMMAND_STATISTICS.CMDUTI.OC.034   1 LINE     80    4 PAGE UM   DWB                 APR. 05, 1980  18:06:40
00531/035   COMMAND STATISTICS       CARE & FEEDING  WF             DWB:CMDSTAT.CF                                                  
            D4T2    281  COMMAND_STATISTICS.CARE_&.WF.027   1 LINE    112    3 PAGE UM   DWB                 JULY 28, 1977  02:21:24
                         DWB.:CMDSTAT.CF      
0          WRITEUP DESCRIBING NORMAL BEHAVIOR OF COMMAND STATISTICS PICKUP AND WHAT TO
           DO WHEN ABNORMALITIES OCCUR.  THE CMDPIKUP PROGRAM (531/6) HAS BEEN CHANGED
           TO ATTEMPT TO REPAIR ANY PROBLEMS (BUSY ENTRIES) FOUND WHEN IT FIRST STARTS
           UP.  THUS SIMPLE CAUSES OF CONSTIPATION SUCH AS DESCRIBED IN THE THIS WRITEUP
           SHOULD NO LONGER OCCUR.  HOWEVER, MORE COMPLEX CASES, SUCH AS A FILE BEING
           LEFT UNREADABLE DUE TO A DISK ERROR, WILL STILL REQUIRE THE CORRECTIVE ACTIONS
           DESCRIBED HEREIN.
00532/001  *PLOTSEE                                  SA  G          S0933 IGDIST FSNAME=PLOTSEE.S                                   
            D4.2T1  365  PLOTSEE..SA.001                    1 LINE     71   11 PAGE UM   GOODRICH            JAN. 04, 1979  18:39:22
0          PLOT PREVIEWING PROGRAM.  USER OF ANY IG-SUPPORTED DISPLAY CAN VIEW PDS PLOT
           FILES PRODUCED VIA *PLOTSYS.  HAS "WINDOWING" FACILITY.  USES PLOT SYSTEM
           ROUTINE PSYM (615/5) ASSEMBLED WITH THE &WHAT SETC SYMBOL SET TO 'IG'.
00532/002  *PLOTSEE                                  OE  G          *PLOTSEE                                                        
            D4.2T1  366  PLOTSEE..OE.002                    1 LINE   4904    9 PAGE UM   GOODRICH            APR. 01, 1979  22:41:01
                         *PLOTSEE             
0          CONTAINS A "$CONTINUE WITH *IG RETURN" LINE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00533      *FRISK                                    SA           # (OBSOLETED BY COMP 727)                                         
            D4T2    284  FRISK.MAIN.SA.001                  1 LINE     72   44 PAGE UBC                      JULY 18, 1977  15:53:27
0          Referenced by comments of: 727/1 
00534/001   TMTS                     JOB LIST ENTRY  SA  G          MTS:TMTSJLE(1,999)                                              
            D4T2    287  TMTS.JOB_LIST_ENTRY.SA.001         1 LINE     60    1 PAGE UM   MTA                 JULY 28, 1977  02:28:32
                         MTS.:TMTSJLE         
0          "TEST MTS" JOB LIST ENTRY.  NORMALLY, IT POINTS TO TMTS FAKE JOB-PROGRAM (534/3), WHICH WHEN
           ACTIVATED, SAYS "NO TEST SYSTEM LOADED."  RUNNING THE LOADMTS PROGRAM (534/5) LOADS A TEST
           VERSION OF MTS AND FRIENDS INTO SHARED VM AND PLUGS THE MTS ENTRY POINT INTO THIS JOB LIST ENTRY.
           THIS PROVIDES A WAY OF CHECKING OUT NEW VERSIONS OF MTS WITHOUT USING THE VIRTUAL MACHINE.
0          Referenced by comments of: 534/3 
00534/002   TMTS                     JOB LIST ENTRY  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00534/003   TMTS                     FAKE JOB-PGM    SA  G          MTS:TMTSFAKE(1,999)                                             
            D4T2    288  TMTS.FAKE_JOB-PGM.SA.003           1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  02:28:35
                         MTS.:TMTSFAKE        
0          DUMMY JOB PROGRAM POINTED TO BY TMTS JOB LIST ENTRY (534/1).
0          Referenced by comments of: 534/1 
00534/004   TMTS                     FAKE JOB-PGM    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00534/005A  TMTS                     LOADMTS         SA  G          TMTS:LOADMTS(2000)                                              
            4.3T1   456  TMTS.LOADMTS.SA.005                1 LINE     71    9 PAGE UM   JWS                 APR. 05, 1980  18:06:43
                         TMTS:LOADMTS         
0          PROGRAM TO LOAD A TEST VERSION OF MTS AND FRIENDS INTO SHARED VM AND PLANT THE ENTRY POINT IN THE TMTS JOB LIST ENTRY.
            
           I/O UNIT USAGE:     GUSER - FOR USER INPUT
                               SERCOM - FOR PROMPTING
                               SPRINT - MAP, MESSAGES, AND EVERYTHING WRITTEN ON SERCOM
            
           TWO PARAMETERS MAY BE GIVEN:  PAR=TEST (THE DEFAULT) MEANS LOAD THE TEST SYSTEM INTO PRIVATE
                                         VM AND DON'T CHANGE THE ENTRY POINT IN THE TMTS JOB LIST,
                                         PAR=NOTEST MEANS LOAD THE TEST SYSTEM INTO SHARED VM AND
                                         CHANGE THE TMTS JOB LIST ENTRY POINT.
            
           THE PROGRAM FINDS THE FIRST UNUSED ADDRESS IN SHARED VM USING ENDSEG2 AND ASKS IF IT
           IS OK TO START LOADING THERE.  REPLY "OK" OR WITH A NEW ADDRESS IN SHARED VM.
            
           THE PROGRAM PROMPTS FOR THE NAME OF A FILE TO LOAD FROM, WHICH SHOULD CONTAIN THOSE
           PARTS OF THE SYSTEM TO BE TESTED, BUT MUST CONTAIN AT LEAST THE FOLLOWING:
            
             MTS, MTS SUBRS (GETSPACE/FREESPAC, GUINFO/CUINFO, PLIMIT, LLXU, TIMER, CMDS, RSF,
             GATE, USUB, FSUB, DSRS, DSRI), COST, CFDUB, SYSDEFS, GETRATES, RATEVEC, RATENBR,
             DYSSUB, CHARGE, STDDMP, MSG, AND ENDSEG2.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           GATE SHOULD BE ASSEMBLED WITH &TMTS SET TO 1.  OTHER COMPONENTS MAY ALSO BE INCLUDED,
           BUT NEITHER VOLGET (482/5) NOR TABLRTN (482/25) SHOULD BE INCLUDED.
            
           COPIES *CNFGINFODSECT (654).
0          Referenced by comments of: 534/1 
00534/006   TMTS                     LOADMTS         OC  G          TMTS:LOADMTS(1,1999)                                            
            D4.2T1  368  TMTS.LOADMTS.OC.006                1 LINE   3655    3 PAGE UM   MTA                 APR. 01, 1979  22:41:03
00534/007A  TMTS                     TMTSLIB         OL  O          TMTS:TMTSLIB                                                    
            4.3T1   457  TMTS.TMTSLIB.OL.007                1 LINE  32767  102 PAGE UM   JWS                 APR. 05, 1980  18:06:45
                         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/8 
00534/008A  TMTS                     POSTIPL         C   G          TMTS:POSTIPL                                                    
            4.3T1   458  TMTS.POSTIPL.C.008                 1 LINE     82    1 PAGE UM   JWS                 APR. 05, 1980  18:06:51
                         TMTS:POSTIPL         
0          LINES 1 TO 9 OF THIS FILE CONTAIN COMMANDS TO RUN PISTLE TO LOAD
           SEG2:TIME (360/1) 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 A $CONTINUE WITH TMTS:TMTSLIB (534/7) 
           RECORD.  THE PROCEDURE IS TO FIRST LOAD TMTS, START A TMTS TASK, SIGNON, AND 
           $SOURCE TO THIS COMMAND FILE.
00534/009   TMTS                     PRINTDUMP       OC  G          TMTS:PRINTDUMP                                                  
            D4T2    293  TMTS.PRINTDUMP.OC.009              1 LINE     42    1 PAGE UM   MTA                 JULY 28, 1977  02:28:50
                         TMTS:PRINTDUMP       
0          CONTAINS THE TWO LINES:
                $CONTINUE WITH MTA:PRINTDUMP(1,999) RETURN
                $CONTINUE WITH TMTS:MTSSSCN
           TO PICK UP THE APPROPRIATE OBJECT DECKS FOR A VERSION OF PRINTDUMP (400)
           WHICH WILL PRINT TMTS JOB DUMPS.
00534/010   TMTS                     MTSSSCN         OC  G          TMTS:MTSSSCN                                                    
            D4.2T1  370  TMTS.MTSSSCN.OC.010                1 LINE     80    3 PAGE UM   MTA                 APR. 01, 1979  22:41:14
                         TMTS:MTSSSCN         
0          OBJECT FOR PRINTDUMP SSCN SUBROUTINE (400/3) USED FOR PRINTING TMTS JOB DUMPS
           (SEE 534/9).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00535/001   CLS INTERFACE            CLS DRIVER PGM  SA  O  DRIV    W044:MTSSOU                                                     
            D4T2    295  CLS_INTERFACE.CLS_DRIVER.SA.001    1 LINE     80   49 PAGE UM   SALISBURY           JULY 28, 1977  02:28:55
0          PROGRAM TO FAKE AN MTS/CLS INTERFACE FOR DEBUGGING A NEW CLS.  SINCE
           IT EXECUTES AS A NORMAL PROGRAM, SDS CAN BE USED IN THE DEBUGGING.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00535/002   CLS INTERFACE            CLS DRIVER PGM  OC  O          W044:MTS                                                        
            D4T2    296  CLS_INTERFACE.CLS_DRIVER.OC.002    1 LINE     80    9 PAGE UM   SALISBURY           JULY 28, 1977  02:28:58
00535/003   CLS INTERFACE            STDTV           SA  G  STTV  # (OBSOLETED BY 636)                                              
            RD16T1   95  CLS_INTERFACE.STDTV.SA.003         1 LINE     80    1 PAGE UM   MTS       HELFFRICH JULY 12, 1979  22:52:52
0          THIS SUBCOMPONENT IS NOW OBSOLETE.  IT HAS BEEN INCLUDED IN THE CMDS
           ASSEMBLY (636).
00535/004   CLS INTERFACE            PLAN COPY SECT  SA           # (OBSOLETED BY 344)                                              
            D3.2T1  447  CLS_INTERFACE.PLAN_COPY_SE.SA.01   1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:50:18
00535/005   CLS INTERFACE            T/V DSECT       SA           # (OBSOLETED BY CLSTV MACRO IN 344)                               
            D3.2T1  448  CLS_INTERFACE.T/V_DSECT.SA.02      1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:50:21
00535/006   CLS INTERFACE            T/V STD ADCONS  SA           # (OBSOLETED BY 344)                                              
            D3.2T1  449  CLS_INTERFACE.T/V_STD_ADCO.SA.03   1 LINE     80    3 PAGE UM                       MAR. 21, 1975  01:50:23
00535/007   CLS INTERFACE            CLSAREA         SA           # (OBSOLETED BY 344)                                              
            D3.2T2   42  CLSAREA..SA.                       1 LINE     80    2 PAGE UM                       MAR. 21, 1975  02:20:53
00535/008A  CLS INTERFACE            GOM T/V DSECT   SG  G          COPY:CLSTV.SG                                                   
            4.3T1   459  CLS_INTERFACE.GOM_T/V_DSE.SG.008   1 LINE     97    1 PAGE UM   MTS       HELFFRICH APR. 05, 1980  18:06:53
                         COPY:CLSTV.SG        
0          THIS IS THE GOM EQUIVALENT OF THE CLSTV MACRO IN MTS.MACROS (344/3).
00536      *BRAILLE                                               # (OBSOLETE)                                                      
            D3T4    199  BRAILLE..SA.1                      1 LINE     73   21 PAGE UM                       JULY 30, 1973  03:34.19
00538/001A *COBOLU                   EXECUTOR        SA  G  COBU    MTA:COBOLU(1,999)                                               
            4.3T1   460  COBOLU.EXECUTOR.SA.001             1 LINE     80    4 PAGE UM   H YOUNG             APR. 05, 1980  18:06:55
                         MTA.:COBOLU          
0          THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM.
           COPIES FAKEOS.GBLS (545/19).  ASSEMBLE USING *SYSMAC.
00538/002A *COBOLU                   EXECUTOR        OE  G          *COBOLU                                                         
            4.3T1   461  COBOLU.EXECUTOR.OE.002             1 LINE    746    1 PAGE UM   H YOUNG             APR. 05, 1980  18:06:58
                         *COBOLU              
00538/003  *COBOLU                   BLDLIN          D              MTA:COBOL.BLDLIN                                                
            D4T2    301  COBOLU.BLDLIN.D.003                1 LINE     44    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:10
                         MTA.:COBOL.BLDLIN    
0          SCARDS INPUT TO CREBLDL (545/38) TO BUILD 538/4.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00538/004  *COBOLU                   BLDL            D              ETC:COBOL.BLDL                                                  
            D4T2    302  COBOLU.BLDL.D.004                  1 SEQ     238    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:12
                         ETC.:COBOL.BLDL      
00538/005  *COBOLU                   IKFCBL00        OE  O          ETC:IKFCBL00                                                    
            D4T2    303  COBOLU.IKFCBL00.OE.005             1 SEQ    1024    4 PAGE UM   H YOUNG             JULY 28, 1977  02:29:15
                         ETC.:IKFCBL00        
0          COMPONENTS 538/5 THROUGH 538/16 ARE THE UNMODIFIED OS/360 OBJECT FOR THE ANSI COBOL
           COMPILER (RELEASE 21.6, VERSION 2).
00538/006  *COBOLU                   IKFCBL01        OE  O          ETC:IKFCBL01                                                    
            D4T2    304  COBOLU.IKFCBL01.OE.006             1 SEQ    6144    5 PAGE UM   H YOUNG             JULY 28, 1977  02:29:17
                         ETC.:IKFCBL01        
0          OBJECT HAS REP CARD TO CHANGE DEFAULT PAR FIELD.
00538/007  *COBOLU                   IKFCBL1B        OE  O          ETC:IKFCBL1B                                                    
            D4T2    305  COBOLU.IKFCBL1B.OE.007             1 SEQ    1024    7 PAGE UM   H YOUNG             JULY 28, 1977  02:29:19
                         ETC.:IKFCBL1B        
00538/008  *COBOLU                   IKFCBL10        OE  O          ETC:IKFCBL10                                                    
            D4T2    306  COBOLU.IKFCBL10.OE.008             1 SEQ    1024   12 PAGE UM   H YOUNG             JULY 28, 1977  02:29:21
                         ETC.:IKFCBL10        
00538/009  *COBOLU                   IKFCBL20        OE  O          ETC:IKFCBL20                                                    
            D4T2    307  COBOLU.IKFCBL20.OE.009             1 SEQ    1024   13 PAGE UM   H YOUNG             JULY 28, 1977  02:29:23
                         ETC.:IKFCBL20        
00538/010  *COBOLU                   IKFCBL30        OE  O          ETC:IKFCBL30                                                    
            D4T2    308  COBOLU.IKFCBL30.OE.010             1 SEQ    1024    4 PAGE UM   H YOUNG             JULY 28, 1977  02:29:26
                         ETC.:IKFCBL30        
00538/011  *COBOLU                   IKFCBL40        OE  O          ETC:IKFCBL40                                                    
            D4T2    309  COBOLU.IKFCBL40.OE.011             1 SEQ    1024   11 PAGE UM   H YOUNG             JULY 28, 1977  02:29:28
                         ETC.:IKFCBL40        
00538/012  *COBOLU                   IKFCBL50        OE  O          ETC:IKFCBL50                                                    
            D4T2    310  COBOLU.IKFCBL50.OE.012             1 SEQ    1024    9 PAGE UM   H YOUNG             JULY 28, 1977  02:29:30
                         ETC.:IKFCBL50        
00538/013  *COBOLU                   IKFCBL51        OE  O          ETC:IKFCBL51                                                    
            D4T2    311  COBOLU.IKFCBL51.OE.013             1 SEQ    1024   10 PAGE UM   H YOUNG             JULY 28, 1977  02:29:32
                         ETC.:IKFCBL51        
00538/014  *COBOLU                   IKFCBL6A        OE  O          ETC:IKFCBL6A                                                    
            D4T2    312  COBOLU.IKFCBL6A.OE.014             1 SEQ    1024    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:35
                         ETC.:IKFCBL6A        
00538/015  *COBOLU                   IKFCBL60        OE  O          ETC:IKFCBL60                                                    
            D4T2    313  COBOLU.IKFCBL60.OE.015             1 SEQ    1024    8 PAGE UM   H YOUNG             JULY 28, 1977  02:29:37
                         ETC.:IKFCBL60        
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00538/016  *COBOLU                   IKFCBL70        OE  O          ETC:IKFCBL70                                                    
            D4T2    314  COBOLU.IKFCBL70.OE.016             1 SEQ    1024   13 PAGE UM   H YOUNG             JULY 28, 1977  02:29:39
                         ETC.:IKFCBL70        
00538/017  *COBOLU                   *COBLIB         OL  O          *COBLIB                                                         
            D4T2    315  COBOLU.*COBLIB.OL.017              1 SEQ    1024    9 PAGE UM   H YOUNG             JULY 28, 1977  02:29:41
                         *COBLIB              
0          OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY.
           NOTE:  *GENLIB COMPLAINS ABOUT THIS (MULTIPLY DEFINED SYMBOLS).  IGNORE IT.
00538/018  *COBOLU                   TEST PGM #1     SC             MTA:COBTEST                                                     
            D4T2    316  COBOLU.TEST_PGM_#1.SC.018          1 LINE     67    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:43
                         MTA.:COBTEST         
0          TEST PROGRAM.
00538/019  *COBOLU                   TEST PGM #2     SC             MTA:COBTEST2                                                    
            D4T2    317  COBOLU.TEST_PGM_#2.SC.019          1 LINE     73    4 PAGE UM   H YOUNG             JULY 28, 1977  02:29:46
                         MTA.:COBTEST2        
0          ANOTHER TEST PROGRAM.
00538/020  *COBOLU                   TEST PGM #3     SC             MTA:COBTEST3                                                    
            D4T2    318  COBOLU.TEST_PGM_#3.SC.020          1 LINE     59    1 PAGE UM   H YOUNG             JULY 28, 1977  02:29:48
                         MTA.:COBTEST3        
0          TESTS THE SORT VERB.
00539/001   TIMNTRP                  D4 MASTER       SA  G          S0917 MTSSD4 'MASTER D4.0' POSN=TIMT                            
            D4T2    319  TIMNTRP.D4_MASTER.SA.001           1 SEQ      80   24 PAGE UM   MTS       MTA       JULY 28, 1977  02:30:36
0          MTS TIMER INTERRUPT ROUTINES (USER CALLABLE):  SETIME, RSTIME, GETIME, AND TIMNTRP.
           ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND COPY:FILE.MACROS
           (482/33). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).
00539/002A  TIMNTRP                  UPDATE          UC  G          MTS:TIMTUPD                                                     
            4.3T1   462  TIMNTRP.UPDATE.UC.002              1 LINE     72    4 PAGE UM   MTS       MTA       APR. 05, 1980  18:07:00
                         MTS.:TIMTUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=TIMT.
00539/003A  TIMNTRP                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       MTA                              
00539/004A  TIMNTRP                                  L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=TIMT.LIST             10  
            4.3T1   463  TIMNTRP..L.004                     1 SEQ     133   73 PAGE UM   MTS       MTA       APR. 05, 1980  18:07:11
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00539/005   TIMNTRP                  TEST PROGRAM    SA  O          MTA:TESTTI(1,999)                                               
            D4T2    323  TIMNTRP.TEST_PROGRAM.SA.007        1 LINE     80    6 PAGE UM   MTS       MTA       JULY 28, 1977  02:37:30
                         MTA.:TESTTI          
0          DRIVER FOR TESTING TIMER ROUTINES.
00539/006   TIMNTRP                  TEST PROGRAM    OC  O          MTA:TESTTI(1000)                                                
            D4T2    324  TIMNTRP.TEST_PROGRAM.OC.008        1 LINE     80    3 PAGE UM   MTS       MTA       JULY 28, 1977  02:37:32
00540/001A  SYSTEM WATCHERS          PDPBUG          SA  G          MTA:PDPBUG(1000)                                                
            4.3T1   464  SYSTEM_WATCHERS.PDPBUG.SA.001      1 LINE     68    4 PAGE UM   MTA                 APR. 05, 1980  18:07:12
                         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/1).
00540/002A  SYSTEM WATCHERS          PDPBUG          OC  G          MTA:PDPBUG(1,999)                                               
            4.3T1   465  SYSTEM_WATCHERS.PDPBUG.OC.002      1 LINE     80    3 PAGE UM   MTA                 APR. 05, 1980  18:07:14
00540/003A  SYSTEM WATCHERS          PRNTCNTS        SA  G          MTA:PRNTCNTS(1000)                                              
            4.3T1   466  SYSTEM_WATCHERS.PRNTCNTS.SA.003    1 LINE     74   11 PAGE UM   MTA                 APR. 05, 1980  18:07:16
                         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) AND COPY:LLMPSEQU (087).
00540/004A  SYSTEM WATCHERS          PRNTCNTS        OC  G          MTA:PRNTCNTS(1,999)                                             
            4.3T1   467  SYSTEM_WATCHERS.PRNTCNTS.OC.004    1 LINE     80    8 PAGE UM   MTA                 APR. 05, 1980  18:07:27
00540/005C  SYSTEM WATCHERS          HOGS CMDS       C              *HGS                                                            
            4.3T1   468  SYSTEM_WATCHERS.HOGS_CMDS.C.005    1 LINE     40    1 PAGE UM   MTA                 APR. 05, 1980  18:07:35
                         *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/006   SYSTEM WATCHERS          HOGS            SA  G          MTA:HOGS(1000)                                                  
            D4.2T1  376  SYSTEM_WATCHERS.HOGS.SA.005        1 LINE     68    2 PAGE UM   MTA                 APR. 01, 1979  22:41:27
                         MTA.:HOGS            
0          PROGRAM TO FIND THE JOBS WHICH ARE USING THE MOST CPU TIME, VM, AND DRUM READS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (026/5).  ASSEMBLE USING COPY:SETPARM
           (653).
0          Referenced by comments of: 540/5 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00540/007   SYSTEM WATCHERS          HOGS            OC  G          MTA:HOGS(1,999)                                                 
            D4.2T1  377  SYSTEM_WATCHERS.HOGS.OC.006        1 LINE     80    1 PAGE UM   MTA                 APR. 01, 1979  22:41:28
00540/008   SYSTEM WATCHERS          LOADCLAS        SA  G          MTA:LOADCLAS.S                                                  
            D4.2T1  378  SYSTEM_WATCHERS.LOADCLAS.SA.007    1 LINE     71    4 PAGE UM   MTA                 APR. 01, 1979  22:41:29
                         MTA.:LOADCLAS.S      
0          PROGRAM TO CALL TASKSTAT (647) FOR EVERY JOB IN THE SYSTEM EVERY 30 SECONDS AND
           SUMMARIZE THE RESULTS.  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).
0          Referenced by comments of: 400/12, 647/1 
00540/009   SYSTEM WATCHERS          LOADCLAS        OC  G          MTA:LOADCLAS                                                    
            D4.2T1  379  SYSTEM_WATCHERS.LOADCLAS.OC.008    1 LINE     80    4 PAGE UM   MTA                 APR. 01, 1979  22:41:30
                         MTA.:LOADCLAS        
00540/010A  SYSTEM WATCHERS          DBJP            SA  G  DPBJ    MTS:DBJP(1000)                                                  
            4.3T1   469  SYSTEM_WATCHERS.DBJP.SA.010        1 LINE     80    8 PAGE UM   OGDEN               APR. 05, 1980  18:07:37
                         MTS.:DBJP            
0          PROGRAM TO DISPLAY BIG JOB PARAMETERS (AND OTHER STUFF).  EVERY 20 SECONDS
           IT PRINTS STATISTICS RELATING TO THE SYSTEM LOAD.  IF SCARDS IS EXPLICITLY
           ASSIGNED, THEN TYPE 8 CMDSTAT RECORDS GENERATED BY SSRTN (413) ARE USED TO
           GENERATE THE STATISTICS.  OTHERWISE, THE INCORE JOBSTA VECTOR (413/7) IS
           USED AS THE SOURCE OF INFORMATION.  DBJP CAN ALSO BE USED TO TEST NEW
           VERSION OF BJPMOD (650) BY CONCATENATING DBJP TO THE NEW BJPMOD OBJECT
           (BJPMOD MUST PRECEDE DBJP).  COPIES COPY:GLOBALS (1026/3), COPY:JOBSTA
           (413/11), COPY:BJPDSCT (650/3), COPY:CMDAREADSECT (531/18), *GDINFODSECT
           (594), AND *CNFGINFODSECT (654).
00540/011A  SYSTEM WATCHERS          DBJP            OC  G          MTS:DBJP(1,999)                                                 
            4.3T1   470  SYSTEM_WATCHERS.DBJP.OC.011        1 LINE   1792    3 PAGE UM   OGDEN               APR. 05, 1980  18:07:40
00540/012   SYSTEM WATCHERS          DPBJ            SA  G          MTA:DPBJ(1000)                                                  
            D4.2T1  382  SYSTEM_WATCHERS.DPBJ.SA.011        1 LINE     52    1 PAGE UM   MTA                 APR. 01, 1979  22:41:34
                         MTA.:DPBJ            
0          EVERY 20 SECONDS, THIS PROGRAM PRINTS THE NUMBER OF JOBS (IN EACH OF 4 CATEGORIES)
           THAT HAVE USED ANY CPU TIME IN THE PREVIOUS 20 SECONDS.  THE CATEGORIES ARE
           DETERMINED BY WHETHER THE JOB IS PAGING BOUND AND WHETHER IT IS OVER THE BIG
           JOB THRESHOLD (BIGJTH).
00540/013   SYSTEM WATCHERS          DPBJ            OC  G          MTA:DPBJ(1,999)                                                 
            D4.2T1  383  SYSTEM_WATCHERS.DPBJ.OC.012        1 LINE     80    1 PAGE UM   MTA                 APR. 01, 1979  22:41:35
00540/014A  SYSTEM WATCHERS          DRUMSTAT        SA  O          MTA:DRUMSTAT(1000)                                              
            4.3T1   471  SYSTEM_WATCHERS.DRUMSTAT.SA.014    1 LINE     72    3 PAGE UM   MTA                 APR. 05, 1980  18:07:43
                         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                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
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)                                             
            4.3T1   472  SYSTEM_WATCHERS.DRUMSTAT.OC.015    1 LINE     80    2 PAGE UM   MTA                 APR. 05, 1980  18:07:45
00540/016C  SYSTEM WATCHERS          GTUNIT CMDS     C              *GTU                                                            
            4.3T1   473  SYSTEM_WATCHERS.GTUNIT_CM.C.016    1 LINE     28    1 PAGE UM   OGDEN               APR. 05, 1980  18:07:48
                         *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          S0683 OGDEN FSNAME=GTDRIVER.S                                   
            D4.1T1  305  SYSTEM_WATCHERS.GTUNIT_MA.SG.015   1 LINE     44    1 PAGE UM   OGDEN               NOV. 10, 1977  20:40:15
0          MAIN PROGRAM TO CALL THE GTUNIT SUBR (540/18) EVERY 20 SECONDS.  CALLS THE PAR
           (687/1) AND ATRAP (689/1) SUBROUTINES.
00540/018   SYSTEM WATCHERS          GTUNIT SUBR     SA  G  GTUN    S0683 OGDEN FSNAME=GTUNIT.S                                     
            D4.1T1  306  SYSTEM_WATCHERS.GTUNIT_SU.SA.016   1 LINE     80    4 PAGE UM   OGDEN               FEB. 03, 1978  15:16:59
0          SUBROUTINE TO COUNT THE NUMBER OF GTUNIT WAITS OUTSTANDING FOR EACH PUBLIC
           DISK VOLUME, AND PRINT THE NON-ZERO RESULTS ON SPRINT.  CALLS TASKSTAT (647/1).
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:FILE.MACROS
           (482/33).
0          Referenced by comments of: 540/17, 647/1 
00540/019   SYSTEM WATCHERS          GTUNIT          OE  G          FILE:GTUNIT                                                     
            D4.1T1  307  SYSTEM_WATCHERS.GTUNIT.OE.017      1 LINE    652    2 PAGE UM   OGDEN               MAY  13, 1978  17:40:58
                         FILE:GTUNIT          
0          OBJECT FOR 540/17 AND 540/18.
00540/020   SYSTEM WATCHERS          TTPRINT         SA  G          MTA:TTPRINT.S                                                   
            D4.2T1  386  SYSTEM_WATCHERS.TTPRINT.SA.018     1 LINE     71    3 PAGE UM   MTA                 APR. 01, 1979  22:41:37
                         MTA.:TTPRINT.S       
0          PROGRAM TO PRINT THE SUPERVISOR TRACE TABLE AT THE TIME IT IS RUN, I.E., FROM
           MEMORY.
00540/021   SYSTEM WATCHERS          TTPRINT         OC  G          MTA:TTPRINT                                                     
            D4.2T1  387  SYSTEM_WATCHERS.TTPRINT.OC.019     1 LINE    440    4 PAGE UM   MTA                 APR. 01, 1979  22:41:38
                         MTA.:TTPRINT         
00540/022   SYSTEM WATCHERS          UPTIME CMDS     C              *LRL                                                            
            D4T3    227  UPTIME.*LRL.C.001                  1 LINE      8    1 PAGE UM   MTA                 JULY 28, 1977  23:53:31
                         *LRL                 
0          COMMAND FILE USED BY THE OPERATORS TO PRINT THE REASON FOR THE LAST SYSTEM
           RELOAD AND THE ELAPSED TIME SINCE THAT RELOAD.  INVOKED BY ENTERING "MTS *LRL"
           ON THE OPERATOR'S CONSOLE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 540/23 
00540/023   SYSTEM WATCHERS          UPTIME CMDS     C              SYS:LRL                                                         
            D4T3    228  UPTIME.LRL.C.002                   1 LINE     38    1 PAGE UM   MTA                 JULY 28, 1977  23:53:34
                         SYS.:LRL             
0          COMMAND FILE SOURCED TO BY *LRL (540/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)                                                
            D4.2T1  388  SYSTEM_WATCHERS.UPTIME_PG.SA.022   1 LINE     72    1 PAGE UM   MTA                 APR. 01, 1979  22:41:40
                         MTA.:UPTIME          
0          PROGRAM TO PRINT THE ELAPSED TIME SINCE THE LAST IPL.  NOTE:  THIS PROGRAM ONLY
           WORKS ON A 370 OR 470.
0          Referenced by comments of: 540/23 
00540/025   SYSTEM WATCHERS          UPTIME PGM      OC  G          MTA:UPTIME(1,999)                                               
            D4.2T1  389  SYSTEM_WATCHERS.UPTIME_PG.OC.023   1 LINE     80    1 PAGE UM   MTA                 APR. 01, 1979  22:41:41
00540/026   SYSTEM WATCHERS          PWCT CMDS       C              *PWC                                                            
            D4.2T1  390  SYSTEM_WATCHERS.PWCT_CMDS.C.024    1 LINE     58    1 PAGE UM   OGDEN               APR. 01, 1979  22:41:41
                         *PWC                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE PWCT PROGRAM (540/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  PWCT    MTS:PWC(1000)                                                   
            4.3T1   474  SYSTEM_WATCHERS.PWCT_PGM.SA.027    1 LINE     80   21 PAGE UBC  HOGG      OGDEN     APR. 05, 1980  18:07:50
                         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 
00540/028A  SYSTEM WATCHERS          PWCT PGM        OC  G          MTS:PWC(1,999)                                                  
            4.3T1   475  SYSTEM_WATCHERS.PWCT_PGM.OC.028    1 LINE     80    5 PAGE UBC  HOGG      OGDEN     APR. 05, 1980  18:07:54
00541/001  *DECODE                                   SA  G          S0723 'D3T4' FSNAME=DECODE..SA.1(1)                          220
            D4T2    339  DECODE..SA.001                     1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  22:56.50
0          PROGRAM TO PROVIDE HASP-TYPE DECOMPRESSION/DEBLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE.
00541/002  *DECODE                                   OC  G          *DECODE                                                         
            D4.2T1  393  DECODE..OC.002                     1 LINE     80    1 PAGE UM   MTA                 APR. 01, 1979  22:41:47
                         *DECODE              
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00542/001  *DF                                       SA           # (NOT DISTRIBUTED)                                               
            D3T4    222  DF..SA.1                           1 LINE     72   93 PAGE UM   GOODRICH            AUG. 01, 1973  22:56.58
00542/002  *DF                       PSECT           SA           # (NOT DISTRIBUTED)                                               
            D3T4    223  DF.PSECT.SA.2                      1 LINE     72    3 PAGE UM   GOODRICH            AUG. 01, 1973  22:57.15
00542/003  *DF                                       OL           # (NOT DISTRIBUTED)                                               
            D3T4    224  DF..OL.3                           1 SEQ    3536    6 PAGE UM   GOODRICH            AUG. 01, 1973  22:57.19
00543/001  *ENCODE                                   SA  G          S0723 'D3T4' FSNAME=ENCODE..SA.1(1)                          225
            D4T2    341  ENCODE..SA.001                     1 LINE     80   10 PAGE UM   MTA                 AUG. 01, 1973  22:57.23
0          PROGRAM TO PROVIDE HASP-TYPE COMPRESSION/BLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE.
00543/002  *ENCODE                                   OC  G          *ENCODE                                                         
            D4.2T1  394  ENCODE..OC.002                     1 LINE     80    3 PAGE UM   MTA                 APR. 01, 1979  22:41:48
                         *ENCODE              
00544      *ENDJUNK                                  OC  G          *ENDJUNK                                                        
            D4T2    343  ENDJUNK..OC.                       1 LINE     24    1 PAGE UM   MTA                 JULY 28, 1977  02:38:57
                         *ENDJUNK             
0          CONTAINS THE TWO LOADER CARDS:
            LCS            LCSYMBOL
            LDT
00545/001  *FAKEOS                   INSTALLATION    WF             S0989 UQV15 FSNAME=FAKEOS.INSTALLATION(1)                    15 
            D4T2    344  FAKEOS.INSTALLATION.WF.001         1 LINE    100    3 PAGE UM   MTA                 FEB. 17, 1976  20:04:00
0          SOMEWHAT OUT-OF-DATE WRITEUP DESCRIBING THE ORGANIZATION AND INSTALLATION OF *FAKEOS.
0          Referenced by comments of: 762/3 
00545/002  *FAKEOS                   WRITEUP         WF             S0989 UQV15 FSNAME=FAKEOS.WRITEUP(1)                         14 
            D4T2    345  FAKEOS.WRITEUP.WF.002              1 LINE    148   11 PAGE UM   MTA                 FEB. 17, 1976  20:03:19
0          UQV USER LEVEL WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS.
           UM USER LEVEL DOCUMENTATION IS IN MTS VOLUME 2.
00545/003  *FAKEOS                   MAIN MASTER     SA  G          S0689 UQVD06 FSNAME=FAKEOS.FAKEOSB.SA.4(1)                   134
            D4T2    346  FAKEOS.MAIN_MASTER.SA.003          1 SEQ    4000  188 PAGE UM   MTA                 FEB. 19, 1975  06:22.20
0          MASTER SOURCE FOR THE FAKEOS MAIN PROGRAM.
           COPIES COPY:GLOBALDEFS (1026/1), FAKEOS.GBLS (545/19), COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087),
           *LOADINFODSECT (001/4), *GDINFODSECT (594), AND *SENSEDSECT (3025).
           ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (ON UNIT 0), AND FOS.MACLIB (545/21).
00545/004  *FAKEOS                   PREFIX MASTER   SA  G          S0689 UQVD06 FSNAME=FAKEOS.FAKEOSPFX.SA.3(1)                 133
            D4T2    347  FAKEOS.PREFIX_MASTER.SA.004        1 SEQ    4000   45 PAGE UM   MTA                 FEB. 19, 1975  06:22.12
0          MASTER SOURCE FOR FAKEOS PREFIX.
           COPIES FAKEOS.GBLS (545/19), *GDINFODSECT (594), AND *CNFGINFODSECT (654).
           ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (ON UNIT 0), AND FOS.MACLIB (545/21).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00545/005  *FAKEOS                   UPDATE 1        UU  G          S1319 D4.2T1 VLO FSNAME=FAKEOS.UPDATES.UU.005               395 
                                                                                    UM   MTA                                        
0          UPDATES TO PRODUCE D4.2 FAKEOS FROM D4.0 VERSION.  CONTAINS COMMANDS AND 
           UPDATES TO ASSEMBLE 545/3 AND 545/4.
00545/006A *FAKEOS                   UPDATES         UC  G          MTA:FOS.UPDATES                                                 
            4.3T1   476  FAKEOS.UPDATES.UC.006              1 LINE     81    4 PAGE UM   MTA                 APR. 05, 1980  18:07:57
                         MTA.:FOS.UPDATES     
0          POST D4.2 UPDATES TO FAKEOS PREFIX (LINE 1) AND MAIN PROGRAM (LINE 10000).
00545/007A *FAKEOS                   ASSEMBLY CMDS   C              MTA:FOS.ASM                                                     
            4.3T1   477  FAKEOS.ASSEMBLY_CMDS.C.007         1 LINE     91    1 PAGE UM   MTA                 APR. 05, 1980  18:08:00
0          COMMANDS TO ASSEMBLE FAKEOS PREFIX (AT LINE 1) AND MAIN PROGRAM (AT LINE
           1000).
00545/008  *FAKEOS                   OS LOWCORE      SA             MTA:FOS.OSLC                                                    
            D4T2    349  FAKEOS.OS_LOWCORE.SA.006           1 LINE     42    4 PAGE UM   MTA                 JULY 28, 1977  02:40:56
                         MTA.:FOS.OSLC        
0          CONTENTS OF FIRST HALF-PAGE OF OS.
00545/009A *FAKEOS                   BDAM SIMULATOR  SA             S0938 FSAVE2 VLO FSNAME=FOS.BDAM                                
            4.3T1   478  FAKEOS.BDAM_SIMULATOR.SA.009       1 LINE     87   69 PAGE UM   MTA                 MAR. 07, 1980  23:48:27
0          SOURCE FOR OS BDAM SIMULATOR.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/010A *FAKEOS                   BDAM SIMULATOR  OE             ETC:BDAM                                                        
            4.3T1   479  FAKEOS.BDAM_SIMULATOR.OE.010       1 SEQ   15140    4 PAGE UM   MTA                 APR. 05, 1980  18:08:09
                         ETC.:BDAM            
00545/011  *FAKEOS                   DDNAME SCANNER  SA             S0938 FSAVE2 VLO FSNAME=FOS.DDEF(3)                         402 
            D4T2    352  FAKEOS.DDNAME_SCANNER.SA.009       1 LINE     80   20 PAGE UM   MTA                 JULY 28, 1977  02:41:08
0          SOURCE FOR DDNAME SCANNER.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/012  *FAKEOS                   DDNAME SCANNER  OC           # (PART OF 545/37)                                                
            D3.2T1  455  FAKEOS.VOSDDEF.OE.18               1 SEQ    2586    1 PAGE UM   MTA                 MAR. 21, 1975  01:50:37
00545/013  *FAKEOS                   EXCP SIMULATOR  SA             MTA:FOS.EXCP                                                    
            D4.2T1  398  FAKEOS.EXCP_SIMULATOR.SA.011       1 LINE     72    8 PAGE UM   MTA                 APR. 01, 1979  22:42:41
                         MTA.:FOS.EXCP        
0          SOURCE FOR NON-OLTEP EXCP SIMULATOR.
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00545/014  *FAKEOS                   EXCP SIMULATOR  OE             ETC:FAKEOS.EXCP                                                 
            D4.2T1  399  FAKEOS.EXCP_SIMULATOR.OE.012       1 SEQ    2492    1 PAGE UM   MTA                 APR. 01, 1979  22:42:43
                         ETC.:FAKEOS.EXCP     
00545/015  *FAKEOS                   OLTEP EXCP SIM  SA             MTA:FOS.OLTSEXCP                                                
            D4T2    355  FAKEOS.OLTEP_EXCP_SIM.SA.013       1 LINE     71    5 PAGE UM   MTA                 JULY 28, 1977  02:41:15
                         MTA.:FOS.OLTSEXCP    
0          SOURCE FOR OLTEP EXCP SIMULATOR.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/016A *FAKEOS                   OS SVC 59 SIML  SA             MTA:FOS.SVC59                                                   
            4.3T1   480  FAKEOS.OS_SVC_59_SIML.SA.016       1 LINE     71    6 PAGE UM   MTA                 APR. 05, 1980  18:08:10
                         MTA.:FOS.SVC59       
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, AND FOS.MACLIB (545/21).
00545/017A *FAKEOS                   FOS.OLTS        OE             ETC:FOS.OLTS                                                    
            4.3T1   481  FAKEOS.FOS.OLTS.OE.017             1 LINE   1694    4 PAGE UM   MTA                 APR. 05, 1980  18:08:13
                         ETC.:FOS.OLTS        
0          OBJECT FROM 545/15 AND 545/16.  MUST BE CONCATENATED WITH *FAKEOS (545/40) WHEN RUNNING OLTEP.
00545/018  *FAKEOS                   IERRCO00        SA             MTA:FOS.IERRCO00                                                
            D4.1T1  318  FAKEOS.IERRCO00.SA.016             1 LINE     72   16 PAGE UM   MTA                 MAY  13, 1978  17:41:39
                         MTA.:FOS.IERRCO00    
0          SOURCE FOR THE FAKEOS SORT INTERFACE SUBROUTINE.
00545/019A *FAKEOS                   FAKEOS.GBLS     SA             MTA:FAKEOS.GBLS                                                 
            4.3T1   482  FAKEOS.FAKEOS.GBLS.SA.019          1 LINE     80    1 PAGE UM   MTA                 APR. 05, 1980  18:08:15
                         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/34, 737/3 
00545/020  *FAKEOS                   FOS.LPA         SA             MTA:FOS.LPA                                                     
            D4.1T1  319  FAKEOS.FOS.LPA.SA.018              1 LINE     55    1 PAGE UM   MTA                 MAY  13, 1978  17:41:41
                         MTA:FOS.LPA          
0          SYMBOL TABLE FOR MODULES MOVED FROM FOS.IGG TO *FAKEOS.  OBJECT IN *FAKEOS (545/40).
00545/021A *FAKEOS                   FOS.MACLIB      SM             MTA:FOS.MACLIB                                                  
            4.3T1   483  FAKEOS.FOS.MACLIB.SM.021           1 LINE     80   26 PAGE UM   MTA                 APR. 05, 1980  18:08:18
                         MTA.:FOS.MACLIB      
0          FAKEOS MACRO LIBRARY.
1                                                                                               SUN SEP 08/96   19:03:19   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          Referenced by comments of: 545/3, 545/4, 545/9, 545/11, 545/13, 545/15, 545/16, 545/34 
00545/022  *FAKEOS                   IERRCO00 TEST   SA  G          MTA:FOS.IERR.TEST(1,999)                                        
            D4.1T1  320  FAKEOS.IERRCO00_TEST.SA.020        1 LINE     80    6 PAGE UM   MTA                 MAY  13, 1978  17:41:42
                         MTA.:FOS.IERR.TES    
0          TEST PROGRAM FOR IERRCO00.  RUNS WITHOUT FAKEOS.  ALL THE SORT TEST DATA IS
           INTERNAL TO IT.  SETS THE "DIAG" PARAMETER TO IERRCO00 SO A LOT OF SORT TRACE
           OUTPUT IS PRODUCED.  CHECKS THE RESULT OF THE SORT AND PRINTS ERROR COMMENTS
           IF BAD.
00545/023  *FAKEOS                   IERRCO00 TEST   OC  G          MTA:FOS.IERR.TEST(1000)                                         
            D4.1T1  321  FAKEOS.IERRCO00_TEST.OC.021        1 LINE     80    4 PAGE UM   MTA                 MAY  13, 1978  17:41:43
00545/024  *FAKEOS                   BSAM TEST       SA             MTA:FOS.TESTBSAM(1,999)                                         
            D4.2T1  402  FAKEOS.BSAM_TEST.SA.022            1 LINE     65    1 PAGE UM   MTA                 APR. 01, 1979  22:42:48
                         MTA.:FOS.TESTBSAM    
0          PROGRAM TO TEST BSAM BY COPYING FROM INPUT TO SYSPRINT USING BSAM WITH DOUBLE
           BUFFERING ON BOTH.  ASSEMBLE USING *OSMAC (ON UNIT 2) AND *SYSMAC (ON UNIT 0).
00545/025  *FAKEOS                   BSAM TEST       OC             MTA:FOS.TESTBSAM(1000)                                          
            D4.2T1  403  FAKEOS.BSAM_TEST.OC.023            1 LINE     80    3 PAGE UM   MTA                 APR. 01, 1979  22:42:49
00545/026  *FAKEOS                   QSAM TEST       SA             MTA:FOS.TESTQSAM(1,999)                                         
            D4T2    365  FAKEOS.QSAM_TEST.SA.023            1 LINE     69    1 PAGE UM   MTA                 JULY 28, 1977  02:41:44
                         MTA.:FOS.TESTQSAM    
0          PROGRAM TO TEST QSAM BY COPYING INPUT TO OUTPUT USING QSAM.  ECHOS EACH LINE
           ON MTS UNIT 1.  GENERAL ENOUGH TO ALLOW ANY MODE OF GET AND PUT (MOVE, LOCATE,
           DATA) AND ANY RECORD FORMAT (NO MEAN TRICK IN OS!).  ASSEMBLE USING *SYSMAC
           (ON UNIT 2) AND *OSMAC (ON UNIT 0) (SIC).
00545/027  *FAKEOS                   QSAM TEST       OC             MTA:FOS.TESTQSAM(1000)                                          
            D4T2    366  FAKEOS.QSAM_TEST.OC.024            1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:41:47
00545/028  *FAKEOS                   UPDATE TEST     SA             MTA:FOS.TSTUPDAT(1,999)                                         
            D4T2    367  FAKEOS.UPDATE_TEST.SA.025          1 LINE     66    1 PAGE UM   MTA                 JULY 28, 1977  02:41:49
                         MTA.:FOS.TSTUPDAT    
0          TEST PROGRAM WHICH READS INPUT USING BSAM WITH DOUBLE BUFFERING AND REWRITES
           ANY LINE BEGINNING WITH "A" AFTER CHANGING THE "A" TO "B".  ALSO ECHOS LINES
           READ ON SYSPRINT USING QSAM.  ASSEMBLE WITH *SYSMAC (ON UNIT 0) AND *OSMAC
           (ON UNIT 2).
00545/029  *FAKEOS                   UPDATE TEST     OC             MTA:FOS.TSTUPDAT(1000)                                          
            D4T2    368  FAKEOS.UPDATE_TEST.OC.026          1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:41:51
00545/030  *FAKEOS                   TIMER TEST      SA             MTA:FOS.TESTTIME(1,999)                                         
            D4T2    369  FAKEOS.TIMER_TEST.SA.027           1 LINE     69    1 PAGE UM   MTA                 JULY 28, 1977  02:41:53
                         MTA.:FOS.TESTTIME    
0          PROGRAM WHICH TESTS STIMER AND TTIMER IN OS.  PRINTS MESSAGES TELLING WHAT IT'S
           DOING.  ASSEMBLE USING *SYSMAC (ON UNIT 0) AND *OSMAC (ON UNIT 2).  IF ASSEMBLED
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          WITH *SYSMAC ONLY, IT WILL TEST STIMER AND TTIMER IN MTS.
00545/031  *FAKEOS                   TIMER TEST      OC             MTA:FOS.TESTTIME(1000)                                          
            D4T2    370  FAKEOS.TIMER_TEST.OC.028           1 LINE     80    2 PAGE UM   MTA                 JULY 28, 1977  02:41:56
00545/032C *FAKEOS                   WTO/WTOR TEST   SA  O          MTA:FOS.WTOTST(1,999)                                           
            4.3T1   484  FAKEOS.WTO/WTOR_TEST.SA.032        1 LINE     72    1 PAGE UM   MTA                 APR. 05, 1980  18:08:21
                         MTA:FOS.WTOTST       
0          TESTS WTO (WRITE TO OPERATOR) AND WTOR (WRITE TO OPERATOR WITH REPLY). 
           ASSEMBLE WITH *OSMAC (193/1) ON UNIT 0 AND *SYSMAC (225/2) ON UNIT 2.
00545/033C *FAKEOS                   WTO/WTOR TEST   OC  O          MTA:FOS.WTOTST(1000)                                            
            4.3T1   485  FAKEOS.WTO/WTOR_TEST.OC.033        1 LINE     80    1 PAGE UM   MTA                 APR. 05, 1980  18:08:24
00545/034  *FAKEOS                   BDAM DUMP       SA             MTA:FOS.BDAMDUMP(1000)                                          
            D4.2T1  404  FAKEOS.BDAM_DUMP.SA.030            1 LINE     72    5 PAGE UM   MTA                 APR. 01, 1979  22:42:49
                         MTA.:FOS.BDAMDUMP    
0          SOURCE FOR PROGRAM TO DUMP BDAM FAKEOS FILES.
           COPIES FAKEOS.GBLS (545/19).
           ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21).
00545/035  *FAKEOS                   BDAM DUMP       OC             MTA:FOS.BDAMDUMP(1,999)                                         
            D4.2T1  405  FAKEOS.BDAM_DUMP.OC.031            1 LINE     80    4 PAGE UM   MTA                 APR. 01, 1979  22:42:51
00545/036  *FAKEOS                   FAKEOSTRACE     SA             MTA:FOS.TRACE(1,999)                                            
            D4T2    373  FAKEOS.*FAKEOSTRACE.SA.031         1 LINE     66    3 PAGE UM   MTA                 JULY 28, 1977  02:42:03
                         MTA.:FOS.TRACE       
0          SOURCE FOR PROGRAM TO PRINT FAKEOS TRACE FILE.  ASSEMBLE USING *SYSMAC.
00545/037  *FAKEOS                   *FAKEOSTRACE    OE             *FAKEOSTRACE                                                    
            D4.2T1  406  FAKEOS.*FAKEOSTRACE.OE.033         1 LINE   2764    2 PAGE UM   MTA                 APR. 01, 1979  22:42:53
                         *FAKEOSTRACE         
00545/038  *FAKEOS                   FAKEOSCREBLDL   SA             MTA:FOS.CREBLDL(1,999)                                          
            D4T2    375  FAKEOS.*FAKEOSCREBLDL.SA.033       1 LINE     68    3 PAGE UM   MTA                 JULY 28, 1977  02:42:07
                         MTA.:FOS.CREBLDL     
0          PROGRAM TO CREATE A DIRECTORY THAT FAKEOS WILL USE WHEN DOING A BLDL ON LINKLIB.
           TAKES INPUT DATA ON SCARDS, OUTPUT DIRECTORY WRITTEN ON UNIT 0.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 458/80, 458/81, 458/83, 538/3 
00545/039  *FAKEOS                   *FAKEOSCREBLDL  OE             *FAKEOSCREBLDL                                                  
            D4.2T1  407  FAKEOS.*FAKEOSCREBLDL.OE.035       1 SEQ    1620    1 PAGE UM   MTA                 APR. 01, 1979  22:42:54
                         *FAKEOSCREBLDL       
0          Referenced by comments of: 737/5, 737/6, 762/7, 762/8 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00545/040A *FAKEOS                   *FAKEOS         OE  G          *FAKEOS                                                         
            4.3T1   486  FAKEOS.*FAKEOS.OE.040              1 LINE  32767   17 PAGE UM   MTA                 APR. 05, 1980  18:08:26
                         *FAKEOS              
0          CURRENT OBJECT FOR FAKEOS.
0          Referenced by comments of: 545/17, 545/20 
00545/041A *FAKEOS                   MESSAGE FILE    M              ETC:FAKEOS.MSG                                                  
            4.3T1   487  FAKEOS.MESSAGE_FILE.M.041          1 LINE    120    4 PAGE UM   MTA                 APR. 05, 1980  18:08:29
                         ETC.:FAKEOS.MSG      
0          ERROR MESSAGE FILE FOR FAKEOS.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00545/042  *FAKEOS                   OS DATA MANAGE  OL             ETC:FOS.IGG                                                     
            D4.1T1  323  FAKEOS.OS_DATA_MANAGE.OL.038       1 LINE   3668    6 PAGE UM   MTA                 MAY  13, 1978  17:41:45
                         ETC.:FOS.IGG         
0          LIBRARY OF OS DATA MANAGEMENT MODULES FROM REL 21.8 AND IERRCO00.
           >>>>>> NOTE: OBJECT HAS REP CARDS.
00546/001A *VALIDATEFILE                             SA  G  VALD    RSTR:VALIDATEFILE(1000)                                         
            4.3T1   488  VALIDATEFILE..SA.001               1 LINE     80   39 PAGE UM   HELFFRICH           APR. 05, 1980  18:08:31
                         RSTR:VALIDATEFILE    
0          PROGRAM TO VALIDATE LINE FILES FOR CONSISTENCY.  CAN BE USED (BY USERS) AFTER A
           SYSTEM CRASH DURING WHICH A FILE WAS OPEN.  PROMPTS FOR INPUT.  ASSEMBLE USING
           COPY:FILE.MACROS (482/33).
            
           *********************************************************************************
           D4.3 CHANGES:
            
           SCRATCH AREA SIZE INCREASED FOR VAMX SUPPORT.
           *********************************************************************************
00546/002A *VALIDATEFILE                             OE  G          *VALIDATEFILE                                                   
            4.3T1   489  VALIDATEFILE..OE.002               1 LINE   5643    6 PAGE UM   HELFFRICH           APR. 05, 1980  18:08:35
                         *VALIDATEFILE        
00547      *FOREVER                                  D              *FOREVER                                                        
            D4T2    383  FOREVER..D.                        1 LINE     51    3 PAGE UM   MTA                 JULY 28, 1977  02:42:26
                         *FOREVER             
0          A FILE CONTAINING ABOUT 300 LINES OF JUNK, ENDING WITH "$CONTINUE WITH *FOREVER" SO THAT
           IT APPEARS TO CONTAIN EVEN MORE.
00548/001  *FS                                       SA  G          MTS:FS.S                                                        
            D4.2T1  412  FS..SA.001                         1 LINE     77   90 PAGE UBC  MTA                 APR. 01, 1979  22:43:20
                         MTS.:FS.S            
0          USER PROGRAM TO SAVE AND RESTORE FILES ON MAGNETIC TAPE, MAINTAINING
           A DIRECTORY AND PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION.
           THIS PROGRAM IS ALSO USED TO GENERATE MTS DISTRIBUTION TAPES.
           CALLS SNIFF SUBROUTINE (548/2).  COPIES COPY:DRDSECT (461/11),
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          *GFINFODSECT (593), AND *GDINFODSECT (594).
0          Referenced by comments of: 461/11, 549/1 
00548/002  *FS                       SNIFF SUBR      SA  G          MTS:FS.SNIFF(1,999)                                             
            D4T2    385  FS.SNIFF_SUBR.SA.002               1 LINE     80    4 PAGE UBC  MTA                 AUG. 14, 1977  21:51:13
                         MTS.:FS.SNIFF        
0          SUBROUTINE TO DETERMINE THE AMOUNT OF SPACE REQUIRED BY A FILE. CALLED BY *FS.
           COPIES *GFINFODSECT (593). ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 548/1 
00548/003  *FS                                       OE  G          *FS                                                             
            D4.2T1  413  FS..OE.003                         1 LINE  32315   12 PAGE UBC  MTA                 APR. 01, 1979  22:44:14
                         *FS                  
00549/001  *FSCON                                    SA  G          MTS:FSCON.S(1,1449)                                             
            D4T2    387  FSCON..SA.001                      1 LINE     80   33 PAGE UM   MTA                 JULY 28, 1977  02:43:20
                         MTS.:FSCON.S         
0          PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT.
           NO LONGER REQUIRES THE FSZ SUBROUTINE.
00549/002  *FSCON                                    OE  G          *FSCON                                                          
            D4.2T1  414  FSCON..OE.002                      1 SEQ    8116    3 PAGE UM   MTA                 APR. 01, 1979  22:44:15
                         *FSCON               
00550      *FSCOPY                                   SA           # (OBSOLETED BY 548)                                              
            D3T4    270  FSCOPY..SA.1                       1 LINE     80   30 PAGE UBC                      AUG. 01, 1973  23:05.32
00551/001  *FTN                                      SA  G          S1099 FORTRN FSNAME=FTN.S                                       
            D4.2T1  415  FTN..SA.001                        1 LINE     85   51 PAGE UM   HANSEN              MAR. 02, 1979  12:24:24
0          THIS VERSION OF *FTN INTERFACES TO THE FORTRAN G (204) AND FORTRAN H (298)
           COMPILERS AND ALSO TO OVERDRIVE (667), THE FORTRAN PREPROCESSOR.
           IT IS LOADED INTO SHARED VM AT IPL BY PISTLE WITH THE SINGLE SYMBOL FTN
           DEFINED IN LCSYMBOL.  THERE ARE 4 REFERENCES TO FILE NAMES IN THIS VERSION
           AT LINES 922 THROUGH 925.  AS DISTRIBUTED, THEY ARE *FORTRANH, *FORTRANG,
           *FTNGTEST, AND *OVERDRIVE RESPECTIVELY. COPIES *GDINFODSECT (594).
0          Referenced by comments of: 699/1 
00551/002  *FTN                      SHARED OBJECT   OC  G          SEG2:FTN                                                        
            D4.2T1  416  FTN.SHARED_OBJECT.OC.002           1 LINE     80   11 PAGE UM   HANSEN              APR. 01, 1979  22:46:11
                         SEG2:FTN             
0          LOADED INTO SHARED VM AT IPL BY PISTLE.
00551/003  *FTN                                      OC  G          *FTN                                                            
            D4T2    391  FTN..OC.003                        1 SEQ      24    1 PAGE UM   HANSEN              JULY 28, 1977  02:45:44
                         *FTN                 
0          CONTAINS ONLY THE LOADER CARDS:
1                                                                                               SUN SEP 08/96   19:03:19   Page  262
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                RIP  FTN 
                 LCS            LCSYMBOL
                 LDT            FTN 
00552/001  *GASP                                     SF  G  GASP    S0282 SYSSAV 'FLANIGAN SYSTEM SAVE TAPE' FSNAME=GASPII.S        
            D4T2    392  GASP..SF.001                       1 LINE     80   30 PAGE UM   FLANIGAN            APR. 18, 1975  08:59:55
0          FTN SOURCE FOR GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION.
           NOTE:  SOURCE CONTAINS MANY "$CONTINUE WITH *GASPCOM RETURN" LINES.
00552/002  *GASP                                     SA  G  GASP    W020:GASP.ASMB(1,14)                                            
            D4T2    393  GASP..SA.002                       1 LINE     80    1 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:12
0          ASMG SOURCE FOR GASP ERROR EXIT ROUTINE.
00552/003  *GASP                                     OL  G          *GASP                                                           
            D4T2    394  GASP..OL.003                       1 SEQ    6930   15 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:12
                         *GASP                
0          OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN 552/1 AND 552/2.
00552/004  *GASP                     *GASPCOM        SF  G  GPCM    *GASPCOM(0,7)                                                   
            D4T2    395  GASP.*GASPCOM.SF.004               1 LINE     80    1 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:14
                         *GASPCOM             
00552/005  *GASP                     MEMO 246        WF             S0564 D4T2 VLO FSNAME=GASP.MEMO_246.WF.005(1)                396
            D4T2    396  GASP.MEMO_246.WF.005               1 LINE    127   11 PAGE UM   FLANIGAN            JAN. 24, 1977  20:29:16
0          THIS IS COMPUTING CENTER MEMO 246 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM"
00552/006  *GASP                     INTERNAL DESC   P   G          W020:GASPINFO(1,1488)                                           
            D4T2    397  GASP.INTERNAL_DESC.P.006           1 LINE     80   28 PAGE UM   FLANIGAN            JULY 28, 1977  02:46:54
0          DESCRIPTION OF THE INTERNALS OF GASP.
00553/001A  NETWORK CLS                              SA  G  NETC    S0683 OGDEN FSNAME=NET.S                                        
            4.3T1   490  NETWORK_CLS..SA.001                1 LINE     80   43 PAGE UM   OGDEN               JAN. 31, 1980  01:18:32
0          COMMAND LANGUAGE SUB-SYSTEM FOR MERIT COMPUTER NETWORK ($NET COMMAND).
           DESCRIBED IN "MERIT NETWORK USER'S GUIDE" IN MTS VOLUME 4.
           CALLS COPY SUBROUTINE (553/2) TO IMPLEMENT THE .COPY NETWORK COMMAND.
           COPIES *GDINFODSECT (594) AND *SENSEDSECT (3025).
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00553/002   NETWORK CLS              COPY SUBR       SA  G          S0683 OGDEN FSNAME=NETCOPY.S                                    
            D4.2T1  418  NETWORK_CLS.COPY_SUBR.SA.002       1 LINE     71   38 PAGE UM   OGDEN               FEB. 10, 1979  21:55:28
0          SUBROUTINES TO IMPLEMENT THE .COPY NETWORK COMMAND.
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
0          Referenced by comments of: 553/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00553/003A  NETWORK CLS                              OC  G          *CLSNET                                                         
            4.3T1   491  NETWORK_CLS..OC.003                1 LINE  18144    6 PAGE UM   OGDEN               APR. 05, 1980  18:12:38
                         *CLSNET              
0          OBJECT FROM 553/1 AND 553/2, NORMALLY LOADED INTO SHARED VM BY PISTLE AFTER IPL.
00553/004A  NETWORK CLS              MNET:NETCOPY    OC  G          MNET:NETCOPY                                                    
            4.3T1   492  NETWORK_CLS.MNET:NETCOPY.OC.004    1 LINE  10144    4 PAGE UM   OGDEN               APR. 05, 1980  18:12:39
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/005   NETWORK CLS              NET TEST PGM    SA  G  TNET    S0683 OGDEN FSNAME=TNET.S                                       
            D4T2    403  NETWORK_CLS.NET_TEST_PGM.SA.006    1 LINE     80    3 PAGE UM   OGDEN               MAR. 03, 1977  12:42:13
0          PROGRAM TO CALL THE NET CLS -- ALLOWS TESTING WITH SDS.  CALLS MSG
           ROUTINES (1023).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND WITH SIZE=20.
00553/006   NETWORK CLS              NET TEST PGM    OC  G          W163:TNET                                                       
            D4T2    404  NETWORK_CLS.NET_TEST_PGM.OC.007    1 LINE     80    3 PAGE UM   OGDEN               JULY 28, 1977  02:48:46
00554/001   TABLMOD                  JOB PROGRAM     SA  G  TBJP    FILE:TABLMOD                                                    
            D4.2T1  420  TABLMOD.JOB_PROGRAM.SA.001         1 LINE     80   28 PAGE UM   GOODRICH            APR. 01, 1979  22:55:06
                         FILE:TABLMOD         
0          UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE SHARED FILE TABLE.
           INVOKED BY ENTERING "TABLMOD" ON THE OPERATOR'S CONSOLE.  THE FOLLOWING COMMANDS
           ARE AVAILABLE:
            
             VERIFY   VERIFYS (ENTRY AND ELEMENT) ALLOCATIONS ARE CONSISTANT BY CHASING
                      THROUGH VARIOUS CHAINS IN SHARED FILE TABLE.  ALSO PRINTS THE NUMBER
                      OF OPEN FILES, MATRIX COMPUTATIONS, AND DEADLOCK DETECTIONS.
            
             TRACE    PRINTS OUT THE ENTIRE SHARED FILE TABLE.  EACH ENTRY CONSISTS OF
                      A FILE NAME, JOB NUMBER, OPEN STATUS ("OPEN" OR "NOTO"), LOCK
                      STATUS ("LOCKR", "LOCKM", OR "LOCKD"), AND WAIT STATUS ("WAITO",
                      "WAITR", "WAITM", OR "WAITD").
            
             LSTAT    PRINTS THE INFORMATION ASSOCIATED WITH A SINGLE FILE ("LSTAT FILE
                      FNAME") OR A SINGLE JOB ("LSTAT JOB N") IN THE SAME FORMAT AS THE
                      TRACE COMMAND.
            
             LOCATE   PRINTS THE HALF-WORD OFFSET 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.
            
1                                                                                               SUN SEP 08/96   19:03:19   Page  264
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0            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/33).  SEE COMP 682/9 FOR A WRITEUP.
            
0          Referenced by comments of: 400/14, 554/3, 682/9 
00554/002   TABLMOD                  TABLMOD JOB     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   GOODRICH                                   
00554/003   TABLMOD                  MTS PROGRAM     SA  G        # (SAME AS COMP 554/1)                                            
                                                                                    UM   GOODRICH                                   
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/33) STARTING AT LINE 0 TO INCLUDE THE CODE NECESSARY FOR
           THE MTS PROGRAM.  CONTAINS A "$CONTINUE WITH W045:TABLMOD(2)" LINE.
00554/004   TABLMOD                  MTS PROGRAM     OC  G          FILE:TABLMODMP.O                                                
            D4.2T1  421  TABLMOD.MTS_PROGRAM.OC.004         1 LINE     80    4 PAGE UM   GOODRICH            APR. 01, 1979  22:55:09
                         FILE:TABLMODMP.O     
00555/001   MESSAGE MANUAL           PGM             SS  G          W070:MESSAGEPGM(4)                                              
            D4T2    407  MESSAGE_MANUAL.PGM.SS.001          1 LINE     70   11 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:53
0          SPITBOL PROGRAM TO PRODUCE MESSAGE MANUAL FROM DATA IN 555/4.  RUN AS FOLLOWS:
            
            $RUN *SPITBOL SCARDS=MESSAGEPGM(5) 5=MESSAGEDATA 4=*MSOURCE* 6=*MSINK* 7=MSGMANPRT SPRINT=*PRINT* PAR=SIZE=MAX
            
           *PRINT* SHOULD BE SPECIFIED AS A TN PRINTER.  THE PRINTOUT CONSISTS OF USER
           MESSAGES (ALPHABETICAL) AND OPERATOR MESSAGES (ALPHABETICAL).  INSTRUCTIONS
           ON PROGRAM USAGE MAY BE OBTAINED VIA &HELP.
00555/002   MESSAGE MANUAL           SPITBLK         SA  G          W070:MSGPGMBLK.S                                                
            D4T2    408  MESSAGE_MANUAL.SPITBLK.SA.002      1 LINE     79    3 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:56
0          ROUTINE TO INTERFACE SPITBOL TO THE BLOKLETR SUBR (572).
00555/003   MESSAGE MANUAL           SPITBLK         OC  G          W070:MSGPGMBLK.O                                                
            D4T2    409  MESSAGE_MANUAL.SPITBLK.OC.003      1 LINE     80    1 PAGE UM   FRONCZAK            JULY 28, 1977  02:48:58
00555/004   MESSAGE MANUAL           DATA            D              W070:MESSAGEDATA                                                
            D4T2    410  MESSAGE_MANUAL.DATA.D.004          1 LINE    107   52 PAGE UM   FRONCZAK            JULY 28, 1977  02:49:01
0          A DATA FILE DESCRIBING THE VARIOUS SYSTEM MESSAGES.  THE FORMAT OF THE FILE
           IS AS FOLLOWS:
            
             1. LOCATION OF MESSAGES
                  A) MTS "FMSG" MESSAGES ARE FOUND STARTING AT THE LINE NUMBER WHICH IS
1                                                                                               SUN SEP 08/96   19:03:19   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                    THE FMSG NUMBER.
                  B) MTS "CMSG" MESSAGES START AT LINE 2000.
                  C) OTHER MESSAGES START AT LINE 3000.
            
             2. FORMAT OF LINES
                  A GROUP OF CONSECTIVE LINES IN THE FILE HAS INFORMATION ABOUT A GIVEN
                  MESSAGE.  THE FIRST LINE SPECIFIES THE MESSAGE TEXT, WHILE SUCCEEDING
                  LINES IN THE GROUP INDENTIFY THE DESTINATION, SOURCE, AND MEANING.
                  EACH LINE IS IDENTIFIED BY ITS LEADING CHARACTERS, WHICH MUST BE UPPERCASE;
                  THE TEXT OF MESSAGES MAYBE OF MIXED CASE.  THE FOLLOWING LINE FORMATS ARE
                  SPECIFIED (ALL COMPONENT NAMES MUST BE GIVEN IN UPPERCASE):
            
                  A) MESSAGE LINE
                     BEGINS WITH "## "; MESSAGE, STARTING IN COLUMN 4, USUALLY IN UPPERCASE
                     WITH GENERIC PARTS IN LOWERCASE.
            
                  B) TEXT ELIMINATION LINE
                     BEGINS WITH " ELIM " FOLLOWED BY THE EXACT TEXT TO BE ELIMINATED
                     FROM THE MESSAGE LINE FOR SORTING PURPOSES ONLY, DELIMITED BY A CHARACTER
                     WHICH MUST NOT APPEAR IN THE ELIMINATION TEXT.  FOR EXAMPLE,
                     ELIM 'STRING'
            
                  C) DESTINATION OF MESSAGE
                     BEGINS WITH " DEST OPER" IF OPERATOR MESSAGE; NO DESTINATION LINE IF
                     NORMAL MESSAGE.
            
                  D) LOCATION OF MESSAGE TEXT
                     BEGINS WITH " TXTLOC "; TEXT LOCATION NAME STARTING IN COLUMN 8, SUCH AS
                     FSMG 21.  FOR EXAMPLE, TXTLOC PERMIT,509,SDM51,PRMT0445.
            
                  E) WHO ISSUED MESSAGE (MAY BE SEVERAL OF THESE IN A GROUP)
                     BEGINS WITH " SOURCE "; INFORMATION STARTING IN COLUMN 9:  COMPONENT
                     NAME, COMPONENT NUMBER, LABEL, SEQUENCE ID.  FOR EXAMPLE,
                     SOURCE PERMIT,509,SDM51,PRMT0445.
            
                  F) EXPLANATIONS OF MESSAGE (AS MANY LINES AS NEEDED)
                     BEGINS WITH 3 BLANKS; TEXT STARTING IN COLUMN 4.  ALL
                     LINES ARE USER-LEVEL EXPLANATION LINES UNTIL "#S " APPEARS
                     IN COLUMNS 1-3, IN WHICH CASE, THAT LINE AND SUBSEQUENT
                     LINES DEFINE THE SYSTEM-LEVEL EXPLANATION.
            
           THIS FILE CURRENTLY CONTAINS COMPLETE COVERAGE OF MTS ITSELF AND MOST CLS'S.
00555/005   MESSAGE MANUAL           OUTPUT          P              W070:MSGMANPRT                                                  
            D4T2    411  MESSAGE_MANUAL.OUTPUT.P.005        1 LINE     98  191 PAGE UM   FRONCZAK            JULY 28, 1977  02:49:29
0          COPY THIS OUTPUT TO A TN PRINTER FOR A COPY OF THE MESSAGE MANUAL.
00556/001  *REDUCE2                  MTS MASTER      S   G          WATF:RDC2SOU                                                    
            D4.2T1  422  REDUCE2.MTS_MASTER.S.001           1 LINE     80  165 PAGE UM   MTA                 APR. 01, 1979  22:55:09
0          REDUCE 2 IS A LISP 1.5 PROGRAM DESIGNED FOR GENERAL ALGEBRAIC COMPUTATIONS.
            
           THIS IS THE OS/360 VERSION OF REDUCE2 MODIFIED TO RUN IN MTS.
1                                                                                               SUN SEP 08/96   19:03:19   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          THE LISP COMPILER IS EXPECTED TO BE IN THE FILE "COMPILE" UNDER THE USER ID COMPILING REDUCE2.
0          Referenced by comments of: 210/1, 556/3 
00556/002  *REDUCE2                  OS SOURCE       S   G          WATF:RDC2UG125                                                  
            D4T2    413  REDUCE2.OS_SOURCE.S.002            1 LINE     80  158 PAGE UM   MTA                 JULY 28, 1977  02:50:01
0          OS/360 SOURCE FOR REDUCE2 (VERSION NOV 30, 1973).
0          Referenced by comments of: 556/3 
00556/003  *REDUCE2                  UPDATE          UC  G          WATF:RDC2UPD                                                    
            D4.2T1  423  REDUCE2.UPDATE.UC.003              1 LINE     80   10 PAGE UM   MTA                 APR. 01, 1979  22:55:20
0          UPDATE DECK TO CONVERT OS/360 SOURCE (556/2) TO MTS VERSION (556/1).
00556/004  *REDUCE2                  CHKPOINT        O   G          ETC:RDC2.CKPT                                                   
            D4.2T1  424  REDUCE2.CHKPOINT.O.004             1 LINE     80   61 PAGE UM   MTA                 APR. 01, 1979  22:55:23
                         ETC.:RDC2.CKPT       
0          FILE IN LISP OBJECT FORMAT CONTAINING CHECKPOINT OF REDUCE2.  THIS FILE IS REFERENCED BY *REDUCE2.
00556/005  *REDUCE2                  *REDUCE2        C              *REDUCE2                                                        
            D4T2    416  REDUCE2.*REDUCE2.C.005             1 LINE     66    1 PAGE UM   MTA                 JULY 28, 1977  02:50:17
                         *REDUCE2             
0          FILE TO WHICH USERS $SOURCE TO INVOKE REDUCE2.  IT RUNS THE REDUCE VERSION OF LISP AND THEN
           LOADS THE REDUCE2 CHECKPOINT.
00556/006  *REDUCE2                  UPDCOMP         C              WATF:RDC2JOB                                                    
            D4.2T1  425  REDUCE2.UPDCOMP.C.006              1 LINE     78    1 PAGE UM   MTA                 APR. 01, 1979  22:55:27
0          COMMANDS TO UPDATE AND COMPILE REDUCE2.
            
           THIS COMMAND FILE PRODUCES A CHECKPOINT FOR A "TEST" VERSION OF REDUCE
           IN THE FILE "RDC2.NEW" UNDER THE ID RUNNING IT. TO PRODUCE A PRODUCTION
           VERSION OF REDUCE (FOR ETC:RDC2.CKPT OR EQUIVALENT) DO THE FOLLOWING:
            
              EMPTY ETC:RDC2.CKPT
              RUN ETC:RDC2.LISP PAR=R=90P
              RESTORE ($$$RDC2.NEW$)
              REMCMP ()
              CONDENSE (2400 11000)
              CHKPOINT ($$$ETC:RDC2.CKPT$)
            
           THIS REMOVES THE LISP COMPILER AND REDUCES THE MEMORY REQUIRED BY REDUCE.
00556/007  *REDUCE2                  EXAMPLE         S              WATF:RDC2TEST                                                   
            D4T2    418  REDUCE2.EXAMPLE.S.007              1 LINE     72    3 PAGE UM   MTA                 JULY 28, 1977  02:50:22
0          EXAMPLE OF REDUCE2 INPUT. THIS IS THE INPUT THAT PRODUCES *REDUCE2EXAMP.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00556/008  *REDUCE2                  EXAMPLE OUTPUT  P              *REDUCE2EXAMP                                                   
            D4T2    419  REDUCE2.EXAMPLE_OUTPUT.P.008       1 LINE    132    7 PAGE UM   MTA                 JULY 28, 1977  02:50:24
                         *REDUCE2EXAMP        
0          EXAMPLE OF THE OUTPUT FROM *REDUCE2.  PRODUCED BY FEEDING 556/7 TO *REDUCE2.
00556/009  *REDUCE2                  LISP OS/MAS     SA  G          WATF:LISP.PR066                                                 
            D4T2    420  REDUCE2.LISP_OS/MAS.SA.009         1 LINE     80  179 PAGE UM   MTA                 JULY 28, 1977  02:50:26
0          SOURCE FOR THE LISP/360 INTERPRETER  (OS/360 VERSION) AS DISTRIBUTED WITH REDUCE2.
           THE LISP 1.5 LANGUAGE IS DESCRIBED IN "LISP 1.5 PROGRAMMER'S MANUAL" BY J. MC CARTHY,
           ET AL, MIT PRESS, 1966.
0          Referenced by comments of: 556/10 
00556/010  *REDUCE2                  LISP UPDATE     UU  G          WATF:LISPUPD                                                    
            D4.2T1  426  REDUCE2.LISP_UPDATE.UU.010         1 LINE     72   24 PAGE UM   MTA                 APR. 01, 1979  22:55:27
0          UPDATE TO GO FROM OS/360 SOURCE (556/9) TO MTS VERSION.
00556/011  *REDUCE2                  LISP OBJECT     OE  G          ETC:RDC2.LISP                                                   
            D4.2T1  427  REDUCE2.LISP_OBJECT.OE.011         1 LINE  32767   15 PAGE UM   MTA                 APR. 01, 1979  22:55:32
                         ETC.:RDC2.LISP       
00556/012  *REDUCE2                  LISP COMPILER   S   G          S0923 'REDUCE' FMT=FB(720,80)                                3  
            D4T2    423  REDUCE2.LISP_COMPILER.S.012        1 SEQ      80   41 PAGE UM   MTA                 JULY 28, 1977  02:51:08
0          LISP/360 COMPILER AND ASSEMBLY PROGRAM.  FEED THIS FILE TO LISP AND CHECKPOINT THE RESULT.
00556/013  *REDUCE2                  LISP COMPILER   UU  G          WATF:COMPUPDAR055                                               
            D4T2    424  REDUCE2.LISP_COMPILER.UU.013       1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  02:51:11
0          UPDATE TO BRING COMPILER UP TO MARCH 5, 1975 OS VERSION.
00556/014  *REDUCE2                  LISP COMPILER   UU  G          WATF:COMPUPD                                                    
            D4T2    425  REDUCE2.LISP_COMPILER.UU.014       1 LINE     85    1 PAGE UM   MTA                 JULY 28, 1977  02:51:11
0          UPDATE TO CHANGE OS COMPILER INTO MTS VERSION. APPLY AFTER 556/13.
00556/015  *REDUCE2                  LISP COMPILER   O   G          WATF:COMPILE                                                    
            D4.2T1  428  REDUCE2.LISP_COMPILER.O.015        1 SEQ      80   19 PAGE UM   MTA                 APR. 01, 1979  22:55:34
0          CHECKPOINTED LISP/360 COMPILER AND ASSEMBLY PROGRAM.  LISP OBJECT FORMAT.
00556/016  *REDUCE2                  LISP COMPILER   C   G          WATF:GENCOMPILE                                                 
            D4T2    427  REDUCE2.LISP_COMPILER.C.016        1 LINE     60    1 PAGE UM   MTA                 JULY 28, 1977  02:51:16
0          COMMANDS TO GENERATE THE LISP COMPILER.
00556/017  *REDUCE2                  LISP DEBUG      S   O          WATF:LISPBREAK                                                  
            D4T2    428  REDUCE2.LISP_DEBUG.S.017           1 LINE    105    5 PAGE UM   MTA                 JULY 28, 1977  02:51:19
0          THIS PROGRAM (WRITTEN IN LISP) DEFINES TWO FUNCTIONS:  BREAK AND UNBREAK.
            
1                                                                                               SUN SEP 08/96   19:03:19   Page  268
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          BREAK TAKES A LIST OF FUNCTION NAMES AND SETS A BREAKPOINT AT THE ENTRY AND EXIT
           TO EACH OF THEM.  UNBREAK TAKES A LIST OF FUNCTION NAMES AND RESETS THE BREAKPOINT
           AT EACH.  ALL FUNCTIONS MUST BE PREVIOUSLY DEFINED.  BOTH BREAK AND UNBREAK ARE
           DEFINED AS FEXPR'S SO THAT THEIR ARGUMENTS ARE NOT EVALUATED.  WHEN A FUNCTION
           WHICH HAS A BREAKPOINT SET IS CALLED, THE MESSAGE ">>> ENTERING NAME TYPE ARGS"
           IS TYPED, WHERE "NAME" IS THE NAME OF THE FUNCTION, "TYPE" IS SUBR, FSUBR, EXPR,
           OR FEXPR, AND "ARGS" ARE THE NAMES OF THE ARGUMENTS.  WHEN THE FUNCTION EXITS,
           THE MESSAGE ">>> EXITING NAME" IS TYPED.  BOTH MESSAGES ARE FOLLOWED BY THE
           MESSAGE "LISTENING" AND LINES ARE READ AND PASSED TO EVAL UNTIL "T" IS ENTERED.
           THE ATOM "VALUE" WILL BE BOUND TO THE RESULT OF THE FUNCTION ON EXIT, AND THE
           ARGUMENTS WILL BE BOUND BOTH TIMES.  CONDITIONAL BREAKPOINTS MAY BE SET BY MAKING
           ONE OF THE ARGUMENTS OF BREAK A LIST.  CAR OF THE LIST IS THE NAME OF THE FUNCTION
           AND CADR OF THE LIST IS A CONDITION WHICH MUST BE TRUE FOR THE BREAKPOINT TO OCCUR.
           THE CONDITION IS TESTED WHEN THE FUNCTION IS CALLED.
            
           EXAMPLE:  BREAK (FN (FN2 (EQ ARG1 1)))   WILL ALWAYS BREAK AT FUNCTION FN AND
                                                    BREAK AT FN2 IF ARG1 IS 1 (ASSUMING ARG1
                                                    IS THE FIRST ARGUMENT OF FN2).
00557/001   FLOATEST                                 SA  O  FLOT    MTS:FLOATEST                                                    
            D4T2    429  FLOATEST..SA.001                   1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  02:51:21
                         MTS.:FLOATEST        
0          PROGRAM TO TEST THAT FLOATING-POINT REGISTERS AND PROGRAM MASK ARE PRESERVED ACROSS ABNORMAL PROGRAM EXITS.
           DESIGNED TO BE RUN BOTH BY $RUN COMMAND AND UNDER CONTROL OF SDS ($DEBUG OR $SET DEBUG=ON AND $RUN).
00557/002   FLOATEST                                 OC  O          MTS:FLOATEST.O                                                  
            D4T2    430  FLOATEST..OC.002                   1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  02:51:23
                         MTS.:FLOATEST.O      
00558/001A  VIRTUAL MACHINE          MAIN PGM        SA  G          MTA:VMN.S                                                       
            4.3T1   493  VIRTUAL_MACHINE.MAIN_PGM.SA.001    1 LINE     72   67 PAGE UM   MTA                 APR. 05, 1980  18:12:41
                         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 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 
00558/002A  VIRTUAL MACHINE          V370 SUPPORT    SA  G          MTA:V370.S                                                      
            4.3T1   494  VIRTUAL_MACHINE.V370_SUPP.SA.002   1 LINE     72   10 PAGE UM   MTA                 APR. 05, 1980  18:12:50
                         MTA.:V370.S          
0          COPY SECTION CONTAINING THE 370 INSTRUCTION SIMULATION CODE.
0          Referenced by comments of: 558/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00558/003A  VIRTUAL MACHINE          3066 SUPPORT    SA  G          MTA:OC.S                                                        
            4.3T1   495  VIRTUAL_MACHINE.3066_SUPP.SA.003   1 LINE     68    6 PAGE UM   MTA                 APR. 05, 1980  18:12:52
                         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                                                       
            D4.2T1  431  VIRTUAL_MACHINE.2301_SUPP.SA.004   1 LINE     70    6 PAGE UM   MTA                 APR. 01, 1979  22:55:43
                         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)                                           
            4.3T1   496  VIRTUAL_MACHINE.DEVICE_LI.SA.005   1 LINE     66    1 PAGE UM   MTA                 APR. 05, 1980  18:12:55
                         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                                                 
            4.3T1   497  VIRTUAL_MACHINE.DEVLIST_M.SM.006   1 LINE     69    3 PAGE UM   MTA                 APR. 05, 1980  18:12:57
                         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                                                        
            4.3T1   498  VIRTUAL_MACHINE.370_OBJEC.OC.007   1 LINE  10687   13 PAGE UM   MTA                 APR. 05, 1980  18:13:00
                         MTA.:V370            
0          OBJECT FOR UM VIRTUAL 370, I.E. 558/1 WITH Â&DUPLEX, Â&M67, Â&ST, AND &S370.
00558/008   VIRTUAL MACHINE          WRITEUP         P              MTA:V67WRUP                                                     
            D4T2    439  VIRTUAL_MACHINE.WRITEUP.P.009      1 LINE     75   12 PAGE UM   MTA                 JULY 28, 1977  02:51:52
                         MTA.:V67WRUP         
0          WRITEUP TO BE COPIED TO A TN PRINTER.
           NOTE:  WRITEUP IS NOT UP TO DATE.
00559/001A  PISTLE                   *S2L            C   G          *S2L                                                            
            4.3T1   499  PISTLE.*S2L.C.001                  1 LINE     88    1 PAGE UM   SHERRY              APR. 05, 1980  18:13:03
                         SEG2:*S2L            
0          COMMAND FILE TO RUN PISTLE (POST-IPL SYSTEM LOADER).  INVOKED BY INIT:INITCMD
           (097/2) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN
           SEG2:S2FILES.
0          Referenced by comments of: 97/2, 513/3 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00559/002A  PISTLE                                   SA  G          W009:PISTLE.S                                                   
            4.3T1   500  PISTLE..SA.002                     1 LINE    139   17 PAGE UM   SHERRY              APR. 05, 1980  18:13:05
                         W009:PISTLE.S        
0          ********************************************************************
           D4.3 VERSION:
            
           THIS IS A NEW VERSION OF THE POST-IPL LOADER. THIS VERSION CONTAINS
           MANY INTERNAL CHANGES TO SUPPORT THE FOLLOWING EXTERNAL DIFFERENCES:
            
           1.  A SUBROUTINE INTERFACE ENTRY POINT CALLED LOADSVM IN NOW
               AVAILABLE.  THIS WAS DESIGNED FOR USE BY CREP (NOT READY FOR
               DISTRIBUTION) AND IS DOCUMENTED IN THE 559/11 WRITEUP.
            
           2.  PISTLE WILL NOW SUPPRESS THE PROMPT FOR CONFIRMATION WHEN
               REPLACING LCS SYMBOLS THAT WERE DEFINED AS WXTRN IN LCSYMBOL,
               I.E., THOSE SYMBOLS IN LCSYMBOL THAT HAVE A ZERO-VALUED
               ADDRESS WILL BE UPDATED WITHOUT COMPLAINT.
            
           3.  A NEW PARAMETER IS NOW ACCEPTED IN THE PAR FIELD OF THE $RUN
               COMMAND:
            
                       PAR=TESTSHAREDVM
            
               WHICH MAY BE ABBREVIATED TESTSVM, WILL CAUSE THE SPECIFIED
               COMPONENT TO BE TEST LOADED INTO SHARED VM, BEGINNING AT THE
               CURRENT END OF SHARED VM AS SPECIFIED BY ENDSEG2.  THIS
               ACTION IS THE SAME AS PAR=NOTEST EXCEPT THAT LCSYMBOL AND
               ENDSEG2 WILL NOT BE UPDATED.  THIS ALLOWS A NEW COMPONENT TO
               BE TESTED FOR REENTRANCY IN SHARED VIRTUAL MEMORY WITHOUT
               MAKING IT GENERALLY AVAILABLE THROUGH A REFERENCE IN
               LCSYMBOL.  PISTLE WILL PRINT A SAMPLE DEF CARD AT THE END OF
               ITS LOAD PROCESS WHICH MAY BE USED TO INVOKE THE NEWLY
               LOADED COMPONENT VIA THE $RUN OR #CLS COMMANDS.  NOTE THAT
               SINCE ENDSEG2 IS NOT UPDATED ANY SUBSEQUENT PISTLE OR LOADMTS
               RUNS WILL CLOBBER THE TEST LOADED COMPONENT.
            
           4.  THE KEYWORD SCANNER (40/1) IS NOW USED TO PROCESS PARAMETERS
               IN THE PAR FIELD OF THE $RUN COMMAND.  AS A RESULT, PISTLE
               PARAMETERS MAY NOW BE SPELLED OUT IN FULL OR ABBREVIATED AS
               FOLLOWS:
            
                       TESTUSERVM OR TEST
                       TESTSHAREDVM OR TESTSVM
                       NOTEST
                       QUERY OR Q
            
           5.  ALBERTA'S UPDATE TO LOG POST-*S2L SHARED VM COMPONENT CHANGES
               ON THE OPERATOR'S CONSOLE IS NOW INCLUDED AS A CONDITIONAL
               ASSEMBLY AND IS NOW USED AT UM.
            
           6.  IF PISTLE ENCOUNTERS A NON-RECOVERABLE LOADER ERROR WHEN
               RUNNING IN NOTEST MODE, IT NOW SETS THE VALUE OF ENDSEG2 TO
               THE BEGINNING OF THE ERRONEOUS COMPONENT, INSTEAD OF THE END.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0              BY RECLAIMING THIS SHARED VM SPACE, IT MIGHT BE POSSIBLE TO
               POST-IPL A "GOOD" VERSION OF THE BAD COMPONENT INSTEAD OF
               RE-IPLING.
            
           7.  IF PISTLE IS RUN WITH PAR=NOTEST FROM A TERMINAL (I.E., NOT
               BY *S2L), IT NOW PRINTS A NEW MESSAGE AFTER THE "POST-IPL OK"
               ONE THAT TELLS YOU HOW MUCH SPACE IS LEFT IN SHARED VM AFTER
               LOADING A COMPONENT.  IF PAR=TEST WAS SPECIFIED, IT PRINTS
               THE SIZE OF THE TEST LOADED COMPONENT AND HOW MUCH SPACE
               WOULD BE LEFT IN SHARED VM IF YOU REALLY LOADED IT.
           ********************************************************************
            
           PISTLE REQUIRES THE MSG ROUTINES (1023). COPIES *CNFGINFODSECT (654).
0          Referenced by comments of: 559/11, 4000/7 
00559/003A  PISTLE                                   OC  G          SEG2:S2L                                                        
            4.3T1   501  PISTLE..OC.003                     1 LINE   6772    4 PAGE UM   SHERRY              APR. 05, 1980  18:13:10
                         SEG2:S2L             
00559/004A  PISTLE                   S2FILES         D              MTS:TST.S2FILES                                                 
            4.3T1   502  PISTLE.S2FILES.D.004               1 LINE     19    1 PAGE UM   DWB                 APR. 28, 1980  19:58:11
                         SEG2:S2FILES         
0          A LIST OF FILES FROM WHICH PISTLE WILL LOAD PROGRAMS AT IPL.
0          Referenced by comments of: 387/9 
00559/005A  PISTLE                   WRITEUP         WF             W009:PISTLE.W                                                   
            4.3T1   503  PISTLE.WRITEUP.WF.005              1 LINE    124    3 PAGE UM   SHERRY              APR. 05, 1980  18:13:14
                         W009:PISTLE.W        
00559/006   PISTLE                   SETTIME         SF  G          S0564 D4T2 VLO FSNAME=PISTLE.SETTIME.SF.006(1)               445
            D4T2    445  PISTLE.SETTIME.SF.006              1 LINE     54    1 PAGE UM   ENGLE               AUG. 14, 1977  21:52:29
0          PROGRAM RUN BY *S2L TO CALL THE TIME SUBROUTINE (WITH PROTECT OFF) TO CAUSE
           IT TO INITIALIZE ITSELF.
00559/007   PISTLE                   SETTIME         OC  G          SEG2:SETTIME                                                    
            D4T2    446  PISTLE.SETTIME.OC.007              1 LINE    146    1 PAGE UM   ENGLE               AUG. 14, 1977  21:52:30
                         SEG2:SETTIME         
00559/008A  PISTLE                   PRINTMAP        SA  G          SEG2:PRINTMAP(1000)                                             
            4.3T1   504  PISTLE.PRINTMAP.SA.008             1 LINE     67    2 PAGE UM   SHERRY              APR. 05, 1980  18:13:16
                         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.
00559/009A  PISTLE                   PRINTMAP        OC  G          SEG2:PRINTMAP(1,999)                                            
            4.3T1   505  PISTLE.PRINTMAP.OC.009             1 LINE     80    2 PAGE UM   SHERRY              APR. 05, 1980  18:13:18
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00559/010A  PISTLE                   S2MAP           D            # MTS:TST.S2MAP                                                   
                                                                                    UM   SHERRY                                     
                         SEG2:S2MAP           
0          FILE WHERE PISTLE WRITES THE SYSTEM MAP.
00559/011C  PISTLE                   LOADSVM DOC     WF             W009:LOADSVM.W                                                  
            4.3T1   506  PISTLE.LOADSVM_DOC.WF.011          1 LINE     88    3 PAGE UM   SHERRY              APR. 05, 1980  18:13:21
0          WRITEUP DESCRIBING THE PISTLE SUBROUTINE INTERFACE LOADSVM (559/2).
00560      *TYPEIT                                   C              *TYPEIT                                                         
            D4T2    449  TYPEIT..C.                         1 LINE     69    2 PAGE UM   LIFT                JULY 28, 1977  02:52:06
                         *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          WATF:UNEDIT(1,999)                                              
            D4T2    450  UNEDIT..SA.001                     1 LINE     80   14 PAGE UM   MTA                 JULY 28, 1977  02:52:08
0          PROGRAM TO COMPARE THE CURRENT VERSION OF A LINE FILE WITH A PREVIOUS VERSION AND PRODUCE THE APPROPRIATE
           MTS EDITOR COMMANDS FOR TRANSFORMING THE OLD VERSION TO THE NEW, I.E. THIS PROGRAM PRODUCES AN "UPDATE"
           DECK WHICH IS IN EDITOR FORMAT RATHER THAN *UPDATE FORMAT.
           CALL SCANPAR SUBROUTINE (267/3).
0          Referenced by comments of: 267/3 
00561/002  *UNEDIT                                   OE  G          *UNEDIT                                                         
            D4T2    451  UNEDIT..OE.002                     1 SEQ    2536    2 PAGE UM   MTA                 JULY 28, 1977  02:52:10
                         *UNEDIT              
00562/001  *UNLINKER                                 SA  G  UNLK    W062:UNLINKER.S                                                 
            D4.1T1  341  UNLINKER..SA.001                   1 LINE     80   39 PAGE UM   TIFFANY             MAY  13, 1978  17:43:31
0          PROGRAM TO CHANGE OS/VS LOAD MODULES INTO MTS OBJECT DECKS.
0          Referenced by comments of: 291/1, 340/1, 3031/1 
00562/002  *UNLINKER                 BLKRTN SUBR     SA  G  BLKR    W062:BLK.S                                                      
            D4.2T1  439  UNLINKER.BLKRTN_SUBR.SA.002        1 LINE     80   33 PAGE UM   TIFFANY             APR. 01, 1979  22:55:53
0          SUBROUTINE TO READ OS/VS IEBCOPY OR IEHMOVE TAPES.
0          Referenced by comments of: 291/1 
00562/003  *UNLINKER                                 OE  G          *UNLINKER                                                       
            D4.2T1  440  UNLINKER..OE.003                   1 SEQ    8154    9 PAGE UM   TIFFANY             APR. 01, 1979  22:56:03
                         *UNLINKER            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00563/001   CHAR MANIP SUBRS         BTD             SA     BTD     S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.BTD.SA.1(1)             316
            D4T2    455  CHAR_MANIP_SUBRS.BTD.SA.001        1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:11.19
0          THESE ARE THE UBC CHARACTER MANIPULATION SUBROUTINES.
00563/002   CHAR MANIP SUBRS         LCOMC/COMC      SA     COMC    W114:LCOMC                                                      
            D4T2    456  CHAR_MANIP_SUBRS.LCOMC/CO.SA.002   1 LINE     80    3 PAGE UBC  BRILL               JULY 28, 1977  02:53:01
00563/003   CHAR MANIP SUBRS         DTB             SA     DTB     S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.DTB.SA.3(1)             318
            D4T2    457  CHAR_MANIP_SUBRS.DTB.SA.003        1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:11.29
00563/004   CHAR MANIP SUBRS         FINDC           SA     FINC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDC.SA.4(1)           319
            D4T2    458  CHAR_MANIP_SUBRS.FINDC.SA.004      1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:11.35
00563/005   CHAR MANIP SUBRS         FINDST          SA     FINS    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDST.SA.5(1)          320
            D4T2    459  CHAR_MANIP_SUBRS.FINDST.SA.005     1 LINE     80    4 PAGE UBC  BRILL               AUG. 01, 1973  23:11.40
00563/006   CHAR MANIP SUBRS         IGC             SA     IGC     S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.IGC.SA.6(1)             321
            D4T2    460  CHAR_MANIP_SUBRS.IGC.SA.006        1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:11.45
00563/007   CHAR MANIP SUBRS         MOVEC           SA     MOVC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.MOVEC.SA.7(1)           322
            D4T2    461  CHAR_MANIP_SUBRS.MOVEC.SA.007      1 LINE     80    1 PAGE UBC  BRILL               AUG. 01, 1973  23:11.51
00563/008   CHAR MANIP SUBRS         SETC            SA     SETC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.SETC.SA.8(1)            323
            D4T2    462  CHAR_MANIP_SUBRS.SETC.SA.008       1 LINE     80    1 PAGE UBC  BRILL               AUG. 01, 1973  23:11.58
00563/009   CHAR MANIP SUBRS         TRNC            SA     TRNC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNC.SA.9(1)            324
            D4T2    463  CHAR_MANIP_SUBRS.TRNC.SA.009       1 LINE     80    3 PAGE UBC  BRILL               AUG. 01, 1973  23:12.02
00563/010   CHAR MANIP SUBRS         TRNST           SA     TRNS    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNST.SA.10(1)          325
            D4T2    464  CHAR_MANIP_SUBRS.TRNST.SA.010      1 LINE     80    4 PAGE UBC  BRILL               AUG. 01, 1973  23:12.07
00563/011   CHAR MANIP SUBRS         EQUC            SA             S0780 'D3.1T1' FSNAME=CHAR_MANIP_SUBRS.EQUC.SA.11(1)         420
            D4T2    465  CHAR_MANIP_SUBRS.EQUC.SA.011       1 LINE     80    1 PAGE UBC  BRILL               MAR. 06, 1974  22:01.57
00563/012   CHAR MANIP SUBRS         OBJECT          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   BRILL                                      
00564/001   SYMBOL XREF PROGRAM                      SA  G          S0564 D4T2 VLO FSNAME=SYMBOL_XREF_PROGRAM..SA.001(1)         466
            D4T2    466  SYMBOL_XREF_PROGRAM..SA.001        1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  02:53:57
0          PROGRAM READS ASSEMBLY SOURCE PROGRAMS FROM SCARDS AND WRITES EACH LINE WHICH CONTAINS A SEQUENCE OR
           SET SYMBOL ON SPUNCH WITH THE SYMBOL PREFIXED TO THE BEGINNING OF THE LINE (FOR SORTING).
           ASSEMBLE USING *SYSMAC.
00564/002   SYMBOL XREF PROGRAM                      OC  G          S0564 D4T2 VLO FSNAME=SYMBOL_XREF_PROGRAM..OC.002(1)         467
            D4T2    467  SYMBOL_XREF_PROGRAM..OC.002        1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  02:53:58
00565/001A  STOR PROTECT DIAGNOSTIC                  SA  G          MTS:TESTPROTECT(1,999)                                          
            4.3T1   507  STOR_PROTECT_DIAGNOSTIC..SA.001    1 LINE     60    3 PAGE UM   MTA                 APR. 05, 1980  18:13:23
0          HARDWARE STORAGE PROTECT DIAGNOSTIC TO TEST ALL OF CORE ABOVE X'1000'.
           PSW RESTART WILL RERUN THE TEST.  ASSUMES A 1052 TYPEWRITER AT ADDRESS 740;
           THIS MAY BE CHANGED BY PATCHING IN A NEW CONSOLE ADDRESS AT LOCATION B02.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          IBM DOESN'T SEEM TO PROVIDE A DIAGNOSTIC TO PERFORM THE FUNCTIONS PROVIDED
           BY THIS PROGRAM.  THE FOLLOWING ERRORS ARE REPORTED BY NUMBER ALONG WITH
           THE FAILING ADDRESS:
            
             1.  INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 10.
             2.  KEY NOT EQUAL TO 14 AFTER TEST 1.
             3.  NO INTERRUPT ON STORE WITH PSW KEY 2 AND STORAGE KEY 10.
             4.  KEY NOT EQUAL TO 16 AFTER TEST 3.
             5.  STORAGE CHANGED AFTER TEST 3 OR INTERRUPT LOOKING.
             6.  NO INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 18.
             7.  KEY NOT EQUAL TO 1C AFTER TEST 6.
             8.  INTERRUPT ON LOAD WITH PSW KEY 1 AND STORAGE KEY 18.
             9.  KEY NOT EQUAL TO 1C AFTER TEST 8.
             10. INTERRUPT ON STORE WITH PSW KEY 1 AND STORAGE KEY 18.
             11. STORAGE NOT CHANGED CORRECTLY AFTER TEST 10 OR INTERRUPT LOOKING.
             12. KEY NOT EQUAL TO 1E AFTER TEST 10.
            
           THE PROGRAM WILL GO INTO WAIT STATE AT LOCATION ZERO WHEN IT FINISHES.
           IF YOU PATCH LOCATION E30 TO 47F00B00, THE PROGRAM WILL START OVER AGAIN
           AFTER TESTING ALL OF MEMORY (WITHOUT COMMENT).
            
           NOTE: IF YOU GET GET ERROR 4(14) ON EVERY HALF-PAGE, THEN PATCH THE
                 PROGRAM BY CHANGING LOCATION F1F TO X'14'.
00565/002A  STOR PROTECT DIAGNOSTIC                  OC  G          MTS:TESTPROTECT(1000)                                           
            4.3T1   508  STOR_PROTECT_DIAGNOSTIC..OC.002    1 LINE     80    1 PAGE UM   MTA                 APR. 05, 1980  18:13:25
0          NEEDS AN ABSOLUTE LOADER.  IPL ON A REAL OR VIRTUAL MACHINE.
00566/001  *PIL                      MACLIB          SM  G          S0543 MTSPIL 'MTSPIL2' POSN=MACLIB                           1  
            D4T2    470  PIL.MACLIB.SM.001                  1 SEQ      80   14 PAGE UM   TIFFANY             JULY 28, 1977  02:54:18
0          *PIL IS LATEST VERSION OF THE PITTSBURGH INTERPRETIVE LANGUAGE.
            
           NOTE:  MACLIB IS THE ONLY MACRO LIBRARY USED IN ASSEMBLING *PIL.
00566/002  *PIL                      DSECT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DSECT                            2  
            D4T2    471  PIL.DSECT.SA.002                   1 SEQ      80    4 PAGE UM   TIFFANY             JULY 28, 1977  02:54:19
0          COMPS 566/2 THROUGH 566/10 ARE COPY SECTIONS.
00566/003  *PIL                      EQUS            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EQUS                             3  
            D4T2    472  PIL.EQUS.SA.003                    1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:21
00566/004  *PIL                      EVOUTPUT        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EVOUTPUT                         4  
            D4T2    473  PIL.EVOUTPUT.SA.004                1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:23
00566/005  *PIL                      FORMDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORMDS                           5  
            D4T2    474  PIL.FORMDS.SA.005                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:25
00566/006  *PIL                      KEYCODES        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=KEYCODES                         6  
            D4T2    475  PIL.KEYCODES.SA.006                1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:27
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00566/007  *PIL                      PARTDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PARTDS                           7  
            D4T2    476  PIL.PARTDS.SA.007                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:29
00566/008  *PIL                      SCRDS           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SCRDS                            8  
            D4T2    477  PIL.SCRDS.SA.008                   1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:31
00566/009  *PIL                      STACKDS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STACKDS                          9  
            D4T2    478  PIL.STACKDS.SA.009                 1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:33
00566/010  *PIL                      STEPDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STEPDS                           10 
            D4T2    479  PIL.STEPDS.SA.010                  1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:54:35
00566/011A *PIL                      PILL            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILL.D4.3                       59  
            4.3T1   509  PIL.PILL.SA.011                    1 SEQ      80    5 PAGE UM   TIFFANY             APR. 05, 1980  18:15:20
0          COMPS 566/11 THROUGH 566/48 ARE THE ASMG SOURCE FOR *PIL.
           REQUIRES *CNFGINFODSECT (654) FOR ASSEMBLY.
00566/012  *PIL                      READIT          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=READIT.D4                        49 
            D4T2    481  PIL.READIT.SA.012                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:57:02
00566/013  *PIL                      TYPEIT          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPEIT                           13 
            D4T2    482  PIL.TYPEIT.SA.013                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:57:14
00566/014  *PIL                      PAGEMSG         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PAGEMSG                          14 
            D4T2    483  PIL.PAGEMSG.SA.014                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:15
00566/015  *PIL                      CANIT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=CANIT                            15 
            D4T2    484  PIL.CANIT.SA.015                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:57:17
00566/016  *PIL                      PIL2            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PIL2.D4                          50 
            D4T2    485  PIL.PIL2.SA.016                    1 SEQ      80   11 PAGE UM   TIFFANY             JULY 28, 1977  02:57:34
00566/017  *PIL                      DSBRK           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DSBRK                            17 
            D4T2    486  PIL.DSBRK.SA.017                   1 SEQ      80    8 PAGE UM   TIFFANY             JULY 28, 1977  02:57:48
00566/018  *PIL                      BKDOWN          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=BKDOWN                           18 
            D4T2    487  PIL.BKDOWN.SA.018                  1 SEQ      80   21 PAGE UM   TIFFANY             JULY 28, 1977  02:57:49
00566/019  *PIL                      FORMPROC        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORMPROC                         19 
            D4T2    488  PIL.FORMPROC.SA.019                1 SEQ      80   44 PAGE UM   TIFFANY             JULY 28, 1977  02:57:53
00566/020  *PIL                      PILSQRT         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILSQRT                          20 
            D4T2    489  PIL.PILSQRT.SA.020                 1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:57:54
00566/021  *PIL                      PILATAN         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILATAN                          21 
            D4T2    490  PIL.PILATAN.SA.021                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:56
00566/022  *PIL                      PILSINE         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILSINE                          22 
            D4T2    491  PIL.PILSINE.SA.022                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:57:58
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00566/023  *PIL                      PILLOGE         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILLOGE                          23 
            D4T2    492  PIL.PILLOGE.SA.023                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:00
00566/024  *PIL                      PILETX          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILETX                           24 
            D4T2    493  PIL.PILETX.SA.024                  1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:03
00566/025  *PIL                      LOOKPS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=LOOKPS                           25 
            D4T2    494  PIL.LOOKPS.SA.025                  1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:58:05
00566/026A *PIL                      WANT16          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=WANT16.D4.3                     60  
            4.3T1   510  PIL.WANT16.SA.026                  1 SEQ      80    4 PAGE UM   TIFFANY             APR. 05, 1980  18:15:21
00566/027  *PIL                      MOVPOL          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=MOVPOL                           27 
            D4T2    496  PIL.MOVPOL.SA.027                  1 SEQ      80    4 PAGE UM   TIFFANY             JULY 28, 1977  02:58:09
00566/028  *PIL                      FORTROL         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORTROL                          28 
            D4T2    497  PIL.FORTROL.SA.028                 1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:58:11
00566/029  *PIL                      RETHEAD         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=RETHEAD                          29 
            D4T2    498  PIL.RETHEAD.SA.029                 1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  02:58:13
00566/030  *PIL                      TALPL           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TALPL                            30 
            D4T2    499  PIL.TALPL.SA.030                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:58:15
00566/031  *PIL                      CONVERT         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=CONVERT                          31 
            D4T2    500  PIL.CONVERT.SA.031                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:58:17
00566/032  *PIL                      STEPMESS        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STEPMESS                         32 
            D4T2    501  PIL.STEPMESS.SA.032                1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:58:19
00566/033  *PIL                      FUNCS           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FUNCS.D4                         51 
            D4T2    502  PIL.FUNCS.SA.033                   1 SEQ      80   30 PAGE UM   TIFFANY             JULY 28, 1977  02:58:32
00566/034  *PIL                      LOPL            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=LOPL                             34 
            D4T2    503  PIL.LOPL.SA.034                    1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:58:43
00566/035  *PIL                      DELVALS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DELVALS.D4                       54 
            D4T2    504  PIL.DELVALS.SA.035                 1 SEQ      80   25 PAGE UM   TIFFANY             JULY 28, 1977  02:58:56
00566/036  *PIL                      XFORMX          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=XFORMX                           36 
            D4T2    505  PIL.XFORMX.SA.036                  1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:59:09
00566/037  *PIL                      EXTRANS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EXTRANS                          37 
            D4T2    506  PIL.EXTRANS.SA.037                 1 SEQ      80    3 PAGE UM   TIFFANY             JULY 28, 1977  02:59:09
00566/038  *PIL                      TYPEPS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPEPS.D4                        52 
            D4T2    507  PIL.TYPEPS.SA.038                  1 SEQ      80   15 PAGE UM   TIFFANY             JULY 28, 1977  02:59:20
00566/039  *PIL                      XPRES           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=XPRES                            39 
            D4T2    508  PIL.XPRES.SA.039                   1 SEQ      80   19 PAGE UM   TIFFANY             JULY 28, 1977  02:59:31
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00566/040  *PIL                      MINDIR          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=MINDIR                           40 
            D4T2    509  PIL.MINDIR.SA.040                  1 SEQ      80    5 PAGE UM   TIFFANY             JULY 28, 1977  02:59:32
00566/041  *PIL                      HEADINS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=HEADINS                          41 
            D4T2    510  PIL.HEADINS.SA.041                 1 SEQ      80    1 PAGE UM   TIFFANY             JULY 28, 1977  02:59:34
00566/042  *PIL                      STROP           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STROP                            42 
            D4T2    511  PIL.STROP.SA.042                   1 SEQ      80   15 PAGE UM   TIFFANY             JULY 28, 1977  02:59:36
00566/043  *PIL                      SETUP           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SETUP                            43 
            D4T2    512  PIL.SETUP.SA.043                   1 SEQ      80    6 PAGE UM   TIFFANY             JULY 28, 1977  02:59:38
00566/044  *PIL                      SPLIT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SPLIT                            44 
            D4T2    513  PIL.SPLIT.SA.044                   1 SEQ      80    2 PAGE UM   TIFFANY             JULY 28, 1977  02:59:40
00566/045  *PIL                      FORBREAK        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORBREAK.D4                      55 
            D4T2    514  PIL.FORBREAK.SA.045                1 SEQ      80   10 PAGE UM   TIFFANY             JULY 28, 1977  02:59:50
00566/046  *PIL                      EVAL            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EVAL.D4                          53 
            D4T2    515  PIL.EVAL.SA.046                    1 SEQ      80   28 PAGE UM   TIFFANY             JULY 28, 1977  02:59:55
00566/047  *PIL                      TYPARRY         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPARRY                          47 
            D4T2    516  PIL.TYPARRY.SA.047                 1 SEQ      80   12 PAGE UM   TIFFANY             JULY 28, 1977  03:00:03
00566/048  *PIL                      PROCESS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PROCESS                          48 
            D4T2    517  PIL.PROCESS.SA.048                 1 SEQ      80   51 PAGE UM   TIFFANY             JULY 28, 1977  03:00:07
00566/049A *PIL                      *PIL            OC  G          *PIL                                                            
            4.3T1   511  PIL.*PIL.OC.049                    1 LINE    928   21 PAGE UM   TIFFANY             APR. 05, 1980  18:15:25
                         *PIL                 
0          *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16):
            
           NO LONGER IN SEGMENT 2, DUE TO LOW USE COUNT.
           *****************************************************************************
00566/050  *PIL                      PLM             WT  G          S0543 MTSPIL 'MTSPIL2' POSN=PILMASTER                           
            D4T2    520  PIL.PLM.WT.051                     1 LINE    256   37 PAGE UM   TIFFANY             JULY 28, 1977  03:00:13
0          TEXT/360 MASTER FILE FOR WRITEUP DESCRIBING THE INTERNAL STRUCTURE OF PIL/2
           FOR PROSPECTIVE DEVELOPERS.
00567/001  *1052RTN                                  SA  O          S0564 D4T2 VLO FSNAME=1052RTN..SA.001(1)                     521
            D4T2    521  1052RTN..SA.001                    1 LINE     80   40 PAGE UM   MTA                 JULY 28, 1977  03:00:16
0          MTS DEVICE SUPPORT ROUTINES FOR 1052 OPERATOR'S CONSOLE.  ALLOWS USE OF 1052
           CONSOLE OR 2150 AS AN MTS TERMINAL.  AWRITE AND HALTIO ENTRIES ADDED BUT NOT
           TESTED.  ASSEMBLE USING COPY:MTS.MACROS (344/3).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00567/002A *1052RTN                                  OC  O          *1052RTN                                                        
            4.3T1   512  1052RTN..OC.002                    1 LINE     80    4 PAGE UM   MTA                 APR. 05, 1980  18:15:27
                         *1052RTN             
00568      *TIMETALLY                                             # (OBSOLETED BY SDS)                                              
            D3.2T1  492  TIMETALLY..SA.01                   1 LINE     80   45 PAGE UM                       MAR. 21, 1975  01:53:09
00569       PCE SNIFFER                                           # (SEE COMP 387)                                                  
                                                                                    UM                                              
00570/001A *MNETRTN                                  SA  G          W267:MNETRTN.S(1)                                               
            4.3T1   513  MNETRTN..SA.001                    1 LINE     80   44 PAGE UM   EADIE               APR. 05, 1980  18:15:29
0          MTS DEVICE SUPPORT ROUTINES FOR THE MERIT COMPUTER NETWORK INTERACTIVE SERVICE.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), AND COPY:GLOBALSETS (1026/2).
           ASSEMBLE USING *SYSMAC (225/2), COPY:MTS.MACROS (344/3), AND THE PEXIT
           MACROS (775/2).
00570/002C *MNETRTN                  UPDATE          UC  G          W267:MNETRTN.UC                                                 
            4.3T1   514  MNETRTN.UPDATE.UC.002              1 LINE     70   13 PAGE UM   EADIE               APR. 05, 1980  18:15:36
0          UPDATE TO BE APPLIED TO 570/1.
00570/003A *MNETRTN                                  OC  G          *MNETRTN                                                        
            4.3T1   515  MNETRTN..OC.003                    1 LINE  10486    4 PAGE UM   EADIE               APR. 05, 1980  18:15:38
                         *MNETRTN             
00570/004  *MNETRTN                  ASCII XLATE     SA  G          S0564 D4T2 VLO FSNAME=MNETRTN.ASCII_XLATE.SA.003(1)          525
            D4T2    525  MNETRTN.ASCII_XLATE.SA.003         1 LINE     80    4 PAGE UM   EADIE               FEB. 05, 1976  00:43:33
0          MERIT ASCII/EBCDIC TRANSLATE TABLES MASCEBC AND EBCMASC WHICH ARE USED BOTH
           BY THE MERIT DSR AND HASP (387).
0          Referenced by comments of: 387/9 
00570/005  *MNETRTN                  ASCII XLATE     OC  G        # (PART OF 387/13)                                                
                                                                                    UM   EADIE                                      
00571/001   APL LIBRARY WS           ADVANCEDE       D              APL:001ADVANCEDE                                                
            D4T2    526  APL_LIBRARY_WS.ADVANCEDE.D.001     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:00:56
                         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.
00571/002   APL LIBRARY WS           APLCOURSE       D              APL:001APLCOURSE                                                
            D4T2    527  APL_LIBRARY_WS.APLCOURSE.D.002     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:00:59
                         APL.:001APLCOURSE    
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00571/003   APL LIBRARY WS           CLASS           D              APL:001CLASS                                                    
            D4T2    528  APL_LIBRARY_WS.CLASS.D.003         1 LINE    255    7 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:01
                         APL.:001CLASS        
00571/004A  APL LIBRARY WS           NEWS            D              APL:001NEWS                                                     
            4.3T1   516  APL_LIBRARY_WS.NEWS.D.004          1 SEQ   27576    8 PAGE UM   HELFFRICH           APR. 05, 1980  18:15:41
                         APL.:001NEWS         
0           
           **************************************************************************************
           D4.3 CHANGES:
            
           SOME NEWS ITEMS UPDATED.
           **************************************************************************************
00571/005   APL LIBRARY WS           PLOTFORMA       D              APL:001PLOTFORMA                                                
            D4T2    530  APL_LIBRARY_WS.PLOTFORMA.D.005     1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:06
                         APL.:001PLOTFORMA    
00571/006   APL LIBRARY WS           TYPEDRILL       D              APL:001TYPEDRILL                                                
            D4T2    531  APL_LIBRARY_WS.TYPEDRILL.D.006     1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:08
                         APL.:001TYPEDRILL    
00571/007   APL LIBRARY WS           WSFNS           D              APL:001WSFNS                                                    
            D4T2    532  APL_LIBRARY_WS.WSFNS.D.007         1 LINE    255    3 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:11
                         APL.:001WSFNS        
00571/008   APL LIBRARY WS           EIGENVALUE      D              APL:001EIGENVALUE                                               
            D4T2    533  APL_LIBRARY_WS.EIGENVALUE.D.008    1 SEQ   12980    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:13
                         APL.:001EIGENVALU    
00571/009   APL LIBRARY WS           BRFNS           D              APL:001BRFNS                                                    
            D4.2T1  444  APL_LIBRARY_WS.BRFNS.D.010         1 SEQ    8044    3 PAGE UM   HELFFRICH           APR. 01, 1979  22:56:14
                         APL.:001BRFNS        
00571/010   APL LIBRARY WS           CATALOG         D              APL:002CATALOG                                                  
            D4T2    534  APL_LIBRARY_WS.CATALOG.D.009       1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:16
                         APL.:002CATALOG      
00571/011   APL LIBRARY WS           STP1            D              APL:002STP1                                                     
            D4T2    535  APL_LIBRARY_WS.STP1.D.010          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:18
                         APL.:002STP1         
00571/012   APL LIBRARY WS           STP2            D              APL:002STP2                                                     
            D4T2    536  APL_LIBRARY_WS.STP2.D.011          1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:21
                         APL.:002STP2         
00571/013   APL LIBRARY WS           STP3            D              APL:002STP3                                                     
            D4T2    537  APL_LIBRARY_WS.STP3.D.012          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:23
                         APL.:002STP3         
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00571/014   APL LIBRARY WS           STP4            D              APL:002STP4                                                     
            D4T2    538  APL_LIBRARY_WS.STP4.D.013          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:25
                         APL.:002STP4         
00571/015   APL LIBRARY WS           STP5            D              APL:002STP5                                                     
            D4T2    539  APL_LIBRARY_WS.STP5.D.014          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:28
                         APL.:002STP5         
00571/016   APL LIBRARY WS           STP6            D              APL:002STP6                                                     
            D4T2    540  APL_LIBRARY_WS.STP6.D.015          1 LINE    255    5 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:30
                         APL.:002STP6         
00571/017   APL LIBRARY WS           STP7            D              APL:002STP7                                                     
            D4T2    541  APL_LIBRARY_WS.STP7.D.016          1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:32
                         APL.:002STP7         
00571/018   APL LIBRARY WS           STP8            D              APL:002STP8                                                     
            D4T2    542  APL_LIBRARY_WS.STP8.D.017          1 LINE    255    5 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:34
                         APL.:002STP8         
00571/019   APL LIBRARY WS           COMPLEX         D              APL:003COMPLEX                                                  
            D4T2    543  APL_LIBRARY_WS.COMPLEX.D.018       1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:37
                         APL.:003COMPLEX      
00571/020   APL LIBRARY WS           INDEX           D              APL:003INDEX                                                    
            D4T2    544  APL_LIBRARY_WS.INDEX.D.019         1 LINE    255    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:39
                         APL.:003INDEX        
00571/021   APL LIBRARY WS           UTIL            D              APL:003UTIL                                                     
            D4T2    545  APL_LIBRARY_WS.UTIL.D.020          1 LINE    255    3 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:42
                         APL.:003UTIL         
00571/022   APL LIBRARY WS           ALGFORM         D              APL:005ALGFORM                                                  
            D4T2    546  APL_LIBRARY_WS.ALGFORM.D.021       1 LINE    255    6 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:44
                         APL.:005ALGFORM      
00571/023   APL LIBRARY WS           COGO            D              APL:005COGO                                                     
            D4T2    547  APL_LIBRARY_WS.COGO.D.022          1 LINE    255    9 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:46
                         APL.:005COGO         
00571/024   APL LIBRARY WS           COMPCENT        D              APL:005COMPCENT                                                 
            D4T2    548  APL_LIBRARY_WS.COMPCENT.D.023      1 LINE    255    3 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:49
                         APL.:005COMPCENT     
00571/025   APL LIBRARY WS           CW              D              APL:005CW                                                       
            D4T2    549  APL_LIBRARY_WS.CW.D.024            1 LINE    255    7 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:51
                         APL.:005CW           
00571/026   APL LIBRARY WS           EDIT            D              APL:005EDIT                                                     
            D4T2    550  APL_LIBRARY_WS.EDIT.D.025          1 LINE    255    7 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:54
                         APL.:005EDIT         
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00571/027   APL LIBRARY WS           MATRIXALG       D              APL:005MATRIXALG                                                
            D4T2    551  APL_LIBRARY_WS.MATRIXALG.D.026     1 LINE    255    8 PAGE UM   HELFFRICH           JULY 28, 1977  03:01:56
                         APL.:005MATRIXALG    
00571/028A  APL LIBRARY WS           SNOBOL          D              APL:005SNOBOL                                                   
            4.3T1   517  APL_LIBRARY_WS.SNOBOL.D.028        1 SEQ   17176    5 PAGE UM   HELFFRICH           APR. 05, 1980  18:15:43
                         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                                                  
            D4T2    553  APL_LIBRARY_WS.SRADEMO.D.028       1 LINE    255    9 PAGE UM   HELFFRICH           JULY 28, 1977  03:02:01
                         APL.:005SRADEMO      
00571/030   APL LIBRARY WS           KINGDOM         D              APL:006KINGDOM                                                  
            D4T2    554  APL_LIBRARY_WS.KINGDOM.D.029       1 SEQ   17208    5 PAGE UM   HELFFRICH           JULY 28, 1977  03:02:03
                         APL.:006KINGDOM      
0          XM6 APL REWORK OF ALBERTA'S SV APL 'KINGDOM' SIMULATION GAME.
00571/031   APL LIBRARY WS           TESTS           D              APL:999TESTS                                                    
            D4T2    555  APL_LIBRARY_WS.TESTS.D.030         1 SEQ    3080    2 PAGE UM   HELFFRICH           JULY 28, 1977  03:02:06
                         APL.:999TESTS        
0          WORKSPACE INTENDED FOR PROVIDING A TEST FACILITY FOR THE TRIAL OF NEW APL DEVICES.
00572/001A  BLOKLETR SUBR                            SA  G  BKLT    W059:BLOKLETR.S                                                 
            4.3T1   518  BLOKLETR_SUBR..SA.001              1 LINE     80   11 PAGE UM   VALERIO             APR. 05, 1980  18:15:45
0          SUBROUTINE CALLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS.
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16):
            
           LOWERCASE LETTERS ADDED.
           *****************************************************************************
0          Referenced by comments of: 555/2 
00572/002A  BLOKLETR SUBR                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   VALERIO                                    
00573/001A  MTS VOLUME 5             MASTER          WT             S0451 MTSV5 'MTS MANUALS' POSN=NEWM6.V5                         
            4.3T1   519  MTS_VOLUME_5.MASTER.WT.001         1 SEQ     132  248 PAGE UM   MANUAL              APR. 05, 1980  18:17:25
0          TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" OF THE UM MTS MANUALS
           (APRIL 1980).
            
           EDITOR:  RICHARD A. SALISBURY
00573/002A  MTS VOLUME 5             PRINT           PT             S0451 MTSV5 'MTS MANUALS' POSN=PRINT6.V5                        
            4.3T1   520  MTS_VOLUME_5.PRINT.PT.002          1 SEQ     132  404 PAGE UM   MANUAL              APR. 05, 1980  18:17:37
0          TEXT/360 PRINT FILE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00573/003   MTS VOLUME 5             LOADER MAP      P              S0451 MTSV5 'MTS MANUALS' POSN=V5LOADERMAP.2                    
            D4.1T1  346  MTS_VOLUME_5.LOADER_MAP.P.003      1 SEQ     128    2 PAGE UM   MANUAL              MAY  13, 1978  17:47:12
0          PRINTED OUTPUT FOR THE EXAMPLE LOADER MAP IN VOLUME 5.
00573/004A  MTS VOLUME 5             INDEX SOURCE    D              S0451 MTSV5 'MTS MANUALS' POSN=V5INDEXSOU.5                     
            4.3T1   521  MTS_VOLUME_5.INDEX_SOURCE.D.004    1 SEQ     145    6 PAGE UM   MANUAL              APR. 05, 1980  18:17:44
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 5.
00574/001   MTS VOLUME 10            MASTER          WT             S0546 MTSV10 'MTS MANUALS' POSN=NEWM2.V10                       
            D4T2    561  MTS_VOLUME_10.MASTER.WT.001        1 SEQ     132  174 PAGE UM   MANUAL              JULY 28, 1977  03:05:05
0          TEXT/360 MASTER FOR VOLUME 10 "BASIC IN MTS" OF THE UM MTS MANUALS (SEPTEMBER 1974).
            
           EDITOR:  EDWARD J. FRONCZAK
00574/002   MTS VOLUME 10            OUTPUT          P              S0546 MTSV10 'MTS MANUALS' POSN=VOL10SEPT74                     
            D4T2    562  MTS_VOLUME_10.OUTPUT.P.002         1 SEQ     132  327 PAGE UM   MANUAL              JULY 28, 1977  03:05:27
0          THIS FILE SHOULD BE COPIED DIRECTLY TO A PRINTER @MCC.  IT IS NOT A TEXT/360
           PRINT FILE; IT IS THE OUTPUT FROM *PRINT WITH AN INDEX INSERTED.
00575/001   MTS VOLUME 4             MASTER          WT             S0616 MTSV4 'MTS MANUALS' POSN=NEWM4.V4                         
            D4T2    563  MTS_VOLUME_4.MASTER.WT.001         1 SEQ     132  215 PAGE UM   MANUAL              JULY 28, 1977  03:06:55
0          TEXT/360 MASTER FOR VOLUME 4 "TERMINALS AND TAPES" OF THE UM MTS MANUALS
           (AUGUST 1974, UPDATED OCT 1976 AND JAN 1977).
            
           EDITOR:  RICHARD A. SALISBURY
00575/002   MTS VOLUME 4             PRINT           PT             S0616 MTSV4 'MTS MANUALS' POSN=PRINT4.V4                        
            D4T2    564  MTS_VOLUME_4.PRINT.PT.002          1 SEQ     132  338 PAGE UM   MANUAL              JULY 28, 1977  03:07:15
0          TEXT/360 PRINT FILE.
00575/003   MTS VOLUME 4             KEYBOARD PLOT   SF             W032:KBDPLOTSOU                                                 
            D4T2    565  MTS_VOLUME_4.KEYBOARD_PLO.SF.003   1 LINE     80   11 PAGE UM   MANUAL    EMERY     JULY 28, 1977  03:07:22
0          FORTRAN PROGRAM TO PRODUCE THE CALCOMP KEYBOARD PLOTS USED IN THE MEMOREX 1270
           (IBM 2703) USERS' GUIDE IN VOLUME 4.  REQUIRES THE CALCOMP ROUTINES PALPHA, PSYM,
           AND PSMLEN.  USES EBCDDEFN (038/9) AND GOLFPTTC (038/10) (OR GOLFCORR (038/11))
           AS INPUT DURING EXECUTION.  ALSO USES KBDPALPHA (575/4).  OBJECT NOT DISTRIBUTED.
0          Referenced by comments of: 575/4 
00575/004   MTS VOLUME 4             KBDPALPHA       D              W032:KBDPALPHA                                                  
            D4T2    566  MTS_VOLUME_4.KBDPALPHA.D.004       1 LINE   1053    1 PAGE UM   MANUAL    EMERY     JULY 28, 1977  03:07:24
0          DATA FILE CONTAINING CHARACTER DEFINITIONS FOR THE MTS VOLUME 4 KEYBOARD
           PLOTS.  FILE CONSISTS OF THREE LINES OF BINARY DATA AND IS REFERENCED VIA
           CALL PALPHA('W032:KBDPALPHA',1,&N) IN THE KEYBOARD PLOT PROGRAM (575/3).
0          Referenced by comments of: 575/3 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00575/005   MTS VOLUME 4             INDEX SOURCE    D              S0616 MTSV4 'MTS MANUALS' POSN=V4INDEXSOU                       
            D4.2T1  450  MTS_VOLUME_4.INDEX_SOURCE.D.005    1 SEQ     254    9 PAGE UM   MANUAL              APR. 01, 1979  22:59:11
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 4.
00575/006   MTS VOLUME 4             UPDATE 1        PT             W073:TNLV4.OCT76                                                
            D4.2T1  451  MTS_VOLUME_4.UPDATE_1.PT.006       1 LINE    105   64 PAGE UM   MANUAL              APR. 01, 1979  22:59:12
0          THIS IS COMPUTING CENTER MEMO 340 -- "UPDATE 1 TO MTS VOLUME 4," 
           (OCTOBER 1976).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00575/007   MTS VOLUME 4             UPDATE 2        PT             W073:TNLV4.JAN77                                                
            D4.2T1  452  MTS_VOLUME_4.UPDATE_2.PT.007       1 LINE    106  144 PAGE UM   MANUAL              APR. 01, 1979  22:59:22
0          THIS IS COMPUTING CENTER MEMO 346 -- "UPDATE 2 TO MTS VOLUME 4," 
           (JANUARY 1977).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00576/001   CVTOMR                                   SA  G          S0564 D4T2 VLO FSNAME=CVTOMR..SA.001(1)                      567
            D4T2    567  CVTOMR..SA.001                     1 LINE     80   15 PAGE UM   DWB                 JULY 28, 1977  03:07:26
0          SUBROUTINE CALLED BY BOTH HASP (ONLY IF FIRST CARD FOLLOWING A DECK (S8) CARD IS AN OMR CARD) AND
           MTS (FOR ALL OTHER CONVERSION) TO CONVERT OMR CARDS TO EBCDIC.
           NOTE:  THIS ROUTINE CURRENTLY HANDLES THE WATERLOO OMR CARD FORMAT (2-4-6 MARK IN COLUMN 1),
           AND THE UM MTS-AND-FORTRAN CARD (1-5-7 MARK IN COLUMN 1).
00576/002   CVTOMR                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
0          Referenced by comments of: 86/2 
00577/001   MACHINE CHECK RECOVERY   360/67          SA  G        # (OBSOLETE)                                                      
            D4T2   568   MACHINE_CHECK_RECOVERY.67.SA.001   1 LINE     80   19 PAGE UM                       FEB. 13, 1975  23:51:55
0          THE MTS 360/67 MACHINE CHECK ERROR RECOVERY.  MODIFIED (AND DEBUGGED) FROM TSS/360 BY UBC AND UM.
00577/002A  MACHINE CHECK RECOVERY   370 MCHCCH      SA  G          MTA:MCHCCH.S                                                    
            4.3T1   522  MACHINE_CHECK_RECOVERY.37.SA.002   1 LINE     80   14 PAGE UM   MTA                 APR. 05, 1980  18:17:48
                         MTA.:MCHCCH.S        
0          370 MODEL-INDEPENDENT MACHINE AND CHANNEL CHECK HANDLER.
           ASSEMBLE USING COPY:SETPARM (653), *SYSMAC, AND MCHMAC (577/6).
           COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470),
           COPY:CMDAREADSECT (531/18), COPY:GLOBALS (1026/3), AND
           COPY:BJPDSCT (650/3).
0          Referenced by comments of: 577/7, 589/2, 655/2 
00577/003A  MACHINE CHECK RECOVERY   370 MCHCCH      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00577/004   MACHINE CHECK RECOVERY   370 LOGGER      SA  G          S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.37.SA.055(1)    607
            D4T2    607  MACHINE_CHECK_RECOVERY.37.SA.055   1 LINE     80    4 PAGE UBC            MTA       MAR. 21, 1975  01:55:46
0          THIS IS A PROGRAM THAT PRODUCES ON SPUNCH A STANDALONE PROGRAM TO BE WRITTEN
1                                                                                               SUN SEP 08/96   19:03:19   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          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/005   MACHINE CHECK RECOVERY   370 LOGGER      OC  G          S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.37.OC.056(1)    608
            D4T2    608  MACHINE_CHECK_RECOVERY.37.OC.056   1 LINE     80    3 PAGE UBC            MTA       MAR. 21, 1975  01:55:49
00577/006A  MACHINE CHECK RECOVERY   MACROS          SM  G          MTA:MCHMAC                                                      
            4.3T1   523  MACHINE_CHECK_RECOVERY.MA.SM.006   1 LINE     72   29 PAGE UM   MTA                 APR. 05, 1980  18:17:51
                         MTA.:MCHMAC          
0          MACROS FOR ASSEMBLING EREP AND MACHINE CHECK RECOVERY.
0          Referenced by comments of: 46/1, 531/6, 577/2, 577/7, 589/2, 589/4, 589/5, 589/6, 589/8, 655/2 
00577/007A  MACHINE CHECK RECOVERY   MCHSUBR         SA  G          MTA:MCHSUBR(1,999)                                              
            4.3T1   524  MACHINE_CHECK_RECOVERY.MC.SA.007   1 LINE     78   12 PAGE UM   MTA                 APR. 05, 1980  18:17:54
                         MTA.:MCHSUBR         
0          MCHCCH (577/2) 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/6) AND
           COPY:SETPARM (653).
00577/008A  MACHINE CHECK RECOVERY   MCHSUBR         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00577/009   MACHINE CHECK RECOVERY   GETLOGS         SA  G          MTA:GETLOGS(1000)                                               
            D4.2T1  456  MACHINE_CHECK_RECOVERY.GE.SA.009   1 LINE     69    3 PAGE UM   MTA                 APR. 01, 1979  22:59:50
                         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/010   MACHINE CHECK RECOVERY   GETLOGS         OC  G          MTA:GETLOGS(1,999)                                              
            D4.2T1  457  MACHINE_CHECK_RECOVERY.GE.OC.010   1 LINE     80    3 PAGE UM   MTA                 APR. 01, 1979  22:59:51
00577/011   MACHINE CHECK RECOVERY   INIT:MCFILE     D            # MTS:TST.MCFILE                                                  
                                                                                    UM   MTA                                        
                         INIT:MCFILE          
0          LOG FILE USED BY THE CMDSTAT PICKUP PROGRAM (*CMD) TO SAVE TYPE 10 (MACHINE
           CHECK) RECORDS.
00577/012   MACHINE CHECK RECOVERY   67 CHACST       SA  G          S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.67.SA.028(1)    582
            D4T2    582  MACHINE_CHECK_RECOVERY.67.SA.028   1 LINE     80    2 PAGE UM   MTA                 FEB. 13, 1975  23:52:51
0          COPY SECTION FOR CPU STATUS TABLE (PART OF 360/67 MACHINE CHECK RECOVERY).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          THIS COMPONENT IS STILL REQUIRED BECAUSE LOCKSTAT (611) COPIES IT.
0          Referenced by comments of: 611/1 
00578/001   RSF                      D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=RSF                         
            D4T2    613  RSF.D4_MASTER.SA.001               1 SEQ      80   82 PAGE UM   MTS       HELFFRICH JULY 28, 1977  03:19:14
0          REALLY SHARED FILES (RSF) PORTION OF MTS.  COPIES *GFINFODSECT (593),
           COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND COPY:RATEVEC (651/2).
           ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND
           COPY:FILE.MACROS (482/33).
00578/002A  RSF                      UPDATE          UC  G          MTS:RSFUPD                                                      
            4.3T1   525  RSF.UPDATE.UC.002                  1 LINE     72    9 PAGE UM   MTS       HELFFRICH APR. 05, 1980  18:17:56
                         MTS.:RSFUPD          
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=RSF.
00578/003A  RSF                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00578/004A  RSF                                      L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=RSF.LIST              11  
            4.3T1   526  RSF..L.004                         1 SEQ     133  225 PAGE UM   MTS       HELFFRICH APR. 05, 1980  18:18:03
00579/001A  SYSDEFS                                  SA  G          MTS:SYSDEFS(1,999)                                              
            4.3T1   527  SYSDEFS..SA.001                    1 LINE     70    3 PAGE UM   MTS       MTA       APR. 05, 1980  18:18:07
                         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).  ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 682/36 
00579/002A  SYSDEFS                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       MTA                              
00579/003   SYSDEFS                  COPY:SYSDEFS    OC  G          COPY:SYSDEFS                                                    
            D4.1T1  354  SYSDEFS.COPY:SYSDEFS.OC.004        1 LINE     24    1 PAGE UM   MTS       MTA       MAY  13, 1978  17:47:57
                         COPY:SYSDEFS         
0          CONTAINS THE 3 LOADER CARDS:
                 RIP  SYSDEFS 
                 LCS            LCSYMBOL
                 LCS            SYSDEFS 
1                                                                                               SUN SEP 08/96   19:03:19   Page  286
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 67/37, 104/111, 482/35, 682/23, 682/40, 724/2, 752/5 
00580/001A *INDEX                                    SP  O  INDX    S0027 DISTRB FSNAME=INDEX                                       
            4.3T1   528  INDEX..SP.001                      1 LINE     80   15 PAGE UM   ENGLE               FEB. 20, 1980  12:05:43
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/5, 665/3, 669/3, 675/3, 676/3, 683/3, 717/3, 733/3, 741/3, 748/3,
                 766/3 
00580/002C *INDEX                                    UC  O          S0027 DISTRB FSNAME=INDEXUPD                                    
            4.3T1   529  INDEX..UC.002                      1 LINE     69    1 PAGE UM   ENGLE               FEB. 20, 1980  12:05:49
00580/003A *INDEX                                    OC  O          *INDEX                                                          
            4.3T1   530  INDEX..OC.003                      1 LINE  29274   11 PAGE UM   ENGLE               APR. 05, 1980  18:18:14
                         *INDEX               
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00581       INDEXGT                                  SA  G        # (OBSOLETE)                                                      
            D3T5      5  INDEXGT..SA.1                      1 LINE     80    3 PAGE UM                       AUG. 02, 1973  00:15.05
00582       LIBRARY INDEX PROGRAM                    C            # (OBSOLETE)                                                      
            D3T5      7  LIBRARY_INDEX_PROGRAM..C.1         1 LINE    138    1 PAGE UM                       AUG. 02, 1973  00:15.08
00583/001   KWIC/360                 PHASE A         SP             S0979 DWBSV1 'DWBSAVE' FSNAME=KWIC/360(1)                   19  
            D4T2    621  KWIC/360.PHASE_A.SP.001            1 LINE     80   30 PAGE UM   DWB                 JUNE 04, 1975  22:19:07
0          MODIFIED VERSION OF IBM PROGRAM 360D-06.7.014.  PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION.
            
           SOURCE FOR PHASES A THROUGH D AND THE SCAN2 AND TRANS SUBROUTINES.
00583/002   KWIC/360                 PHASE A         OC             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_A.OC.002(1)             622
            D4T2    622  KWIC/360.PHASE_A.OC.002            1 SEQ      80    7 PAGE UM   DWB                 JULY 28, 1977  03:22:37
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/003   KWIC/360                 PHASE B         SP           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SOURCE FOR PHASE B.
00583/004   KWIC/360                 PHASE B         OC             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_B.OC.004(1)             623
            D4T2    623  KWIC/360.PHASE_B.OC.004            1 SEQ      80    3 PAGE UM   DWB                 JULY 28, 1977  03:22:39
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/005   KWIC/360                 PHASE C         SP           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SOURCE FOR PHASE C.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00583/006   KWIC/360                 PHASE C         OC             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_C.OC.006(1)             624
            D4T2    624  KWIC/360.PHASE_C.OC.006            1 SEQ      80    4 PAGE UM   DWB                 JULY 28, 1977  03:22:42
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/007   KWIC/360                 PHASE D         SP           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SOURCE FOR PHASE D.
00583/008   KWIC/360                 PHASE D         OC             S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_D.OC.008(1)             625
            D4T2    625  KWIC/360.PHASE_D.OC.008            1 SEQ      80    4 PAGE UM   DWB                 JULY 28, 1977  03:22:44
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/009   KWIC/360                 SCAN2 SUBR      SA           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SUBROUTINE CALLED BY PHASE A.  OBJECT IS IN 583/2.
00583/010   KWIC/360                 TRANS SUBR      SA           # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          SUBROUTINE CALLED BY BOTH PHASE A AND PHASE B.  OBJECT IS IN 583/2 AND 583/4.
00583/011   KWIC/360                 TEST DATA       D            # (PART OF 583/1)                                                 
                                                                                    UM   DWB                                        
0          INPUT FOR TEST RUN IS AS FOLLOWS:
            
              LINES 1068-1083 ARE PRIMARY STOPWORDS
              LINES 1084-1085 ARE SECONDARY STOPWORDS
              LINES 1086-LAST ARE INPUT CARDS
00584/001   QUIC                     PHASE 1         SP             S0979 DWBSV1 'DWBSAVE' FSNAME=QUIC.S(1)                     69  
            D4T2    626  QUIC.PHASE_1.SP.001                1 LINE     81   35 PAGE UM   DWB                 MAY  13, 1976  20:59:32
0          THIS IS THE IBM PROGRAM 360D-06.7.022.  IT IS USED AS FOLLOWS:
           RUN PHASE 1 (QUIC1), THEN *SORT, THEN PHASE 2 (QUIC2).
           PAPER DOCUMENTATION WAS ENCLOSED WITH DISTRIBUTION D3.0 AND IS
           AVAILABLE UPON REQUEST FROM DON BOETTNER AT UM.
            
           THE SOURCE FOR PHASE 1 IS IN LINES 252 THROUGH 1249.
00584/002   QUIC                     PHASE 1         OC             S0564 D4T2 VLO FSNAME=QUIC.PHASE_1.OC.002(1)                 627
            D4T2    627  QUIC.PHASE_1.OC.002                1 LINE     80   21 PAGE UM   DWB                 JULY 28, 1977  03:23:21
00584/003   QUIC                     PHASE 2         SP           # (PART OF 584/1)                                                 
                                                                                    UM   DWB                                        
0          THE SOURCE FOR PHASE 2 IS IN LINES 1347 THROUGH 1496.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00584/004   QUIC                     PHASE 2         OC             S0564 D4T2 VLO FSNAME=QUIC.PHASE_2.OC.004(1)                 628
            D4T2    628  QUIC.PHASE_2.OC.004                1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  03:23:22
00584/005   QUIC                     TEST DATA       D            # (PART OF 584/1)                                                 
                                                                                    UM   DWB                                        
0          TEST DATA IS IN LINES 1269 THROUGH 1320.
00585/001A  CALC CLS                                 SA  G          W070:CALC.S                                                     
            4.3T1   531  CALC_CLS..SA.001                   1 LINE     92   54 PAGE UM   FRONCZAK            APR. 05, 1980  18:18:15
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.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           MINIMUM COMMAND LENGTH CHANGED FROM 3 TO 2.
           *****************************************************************************
00585/002A  CALC CLS                                 OC  G          *CLSCALC                                                        
            4.3T1   532  CALC_CLS..OC.002                   1 LINE     80    5 PAGE UM   FRONCZAK            APR. 05, 1980  18:18:19
                         *CLSCALC             
00586/001   COST SUBR                                SA  G  COST    S0027 DISTRB FSNAME=COST                                        
            D4T2    631  COST_SUBR..SA.001                  1 LINE     80    8 PAGE UM   ENGLE               JAN. 25, 1977  15:31:03
0          SUBROUTINE TO COMPUTE CURRENT COST OF RUN.  (E.G. CALLED BY MTS FOR $DISPLAY $).
           COPIES ACCFORMAT (104/1), AND GRDEF (104/70).
00586/002   COST SUBR                                OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   ENGLE                                      
00587/001   RESEQUENCING PGM                         SA  G  RSEQ    MTS:RSEQ(1,999)                                                 
            D4T2    632  RESEQUENCING_PGM..SA.001           1 LINE     80    4 PAGE UBC  HOGG      DWB       JULY 28, 1977  03:31:57
                         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)                                                  
            D4T2    633  RESEQUENCING_PGM..OC.002           1 LINE     80    2 PAGE UBC  HOGG      DWB       JULY 28, 1977  03:31:59
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00588       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
            D4T2    636  CHANNEL_CHECK_RECOVERY.37.SA.003   1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  03:32:09
0          MCHCCH (577/2) 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/6).
           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        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00589/004   CHANNEL CHECK RECOVERY   IGFC60          SA             S0938 FSAVE2 VLO FSNAME=VS2CCH(1)                            128
            D4T2    637  CHANNEL_CHECK_RECOVERY.IG.SA.005   1 LINE     80   26 PAGE UM   MTA                 NOV. 08, 1975  00:31:31
0          VS2 SUBROUTINE TO CONVERT A 2860 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/6).
0          Referenced by comments of: 589/2, 655/2 
00589/005   CHANNEL CHECK RECOVERY   IGFC70          SA           # (PART OF 589/4)                                                 
                                                                                    UM   MTA                                        
0          VS2 SUBROUTINE TO CONVERT A 2870 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/6).
0          Referenced by comments of: 589/2, 655/2 
00589/006   CHANNEL CHECK RECOVERY   IGFC80          SA           # (PART OF 589/4)                                                 
                                                                                    UM   MTA                                        
0          VS2 SUBROUTINE TO CONVERT A 2880 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT.
           ASSEMBLE USING MCHMAC (577/6).
0          Referenced by comments of: 589/2, 655/2 
00589/007   CHANNEL CHECK RECOVERY   VS2CCH          OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
0          OBJECT FOR 589/4, 589/5, AND 589/6.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00589/008A  CHANNEL CHECK RECOVERY   A#VCCH47        SA  G          MTA:470CCH(1,999)                                               
            4.3T1   533  CHANNEL_CHECK_RECOVERY.A#.SA.008   1 LINE     72   11 PAGE UM   MTA                 APR. 05, 1980  18:18:21
                         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/6).
0          Referenced by comments of: 589/2, 655/2 
00589/009A  CHANNEL CHECK RECOVERY   A#VCCH47        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00590/001  *SPITBOL                  MAIN UPDATE     UU  G          W086:SPIT.M.U                                                   
            D4.1T1  360  SPITBOL.MAIN_UPDATE.UU.001         1 LINE     72   13 PAGE UM   SWARTZ              MAY  13, 1978  17:48:20
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).
0          Referenced by comments of: 678/4 
00590/002  *SPITBOL                  XFACE UPDATE    UU  G          W086:SPIT.I.U                                                   
            D4.1T1  361  SPITBOL.XFACE_UPDATE.UU.002        1 LINE     72   40 PAGE UM   SWARTZ              MAY  13, 1978  17:48:22
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          W086:DEFLMOD                                                    
            D4.1T1  362  SPITBOL.DEFLMOD.SA.003             1 LINE     39    1 PAGE UM   SWARTZ              MAY  13, 1978  17:48:26
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          W086:SPIT.WORK                                                  
            D4.1T1  363  SPITBOL.WORK_AREA.SA.004           1 LINE     80    3 PAGE UM   SWARTZ              MAY  13, 1978  17:48:27
0          COPY SECTION OF SPITBOL WORK AREA.
0          Referenced by comments of: 590/1, 590/2 
00590/005  *SPITBOL                  ZAP CONVERT     SS  G          W086:ZAPCNV                                                     
            D4T2    641  SPITBOL.ZAP_CONVERT.SS.003         1 LINE     72    1 PAGE UM   SWARTZ              JULY 28, 1977  03:34:16
0          SNOBOL PROGRAM TO CONVERT SPITBOL SUPERZAP DECKS INTO MTS COM AND REP LOADER CARDS.
00590/006  *SPITBOL                  *SPITBOL        OC  G          *SPITBOL                                                        
            D4T2    642  SPITBOL.*SPITBOL.OC.004            1 SEQ      24    1 PAGE UM   SWARTZ              JULY 28, 1977  03:34:18
0          LOADER CARDS TO FORCE REFERENCE TO THE SHARED VM SPITBOL.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00590/007  *SPITBOL                  ETC:SPITDEFLIB  OL  G          S0997 'SPITBOL FS' FSNAME=W086:LIBRARY                          
            D4T2    643  SPITBOL.ETC:SPITDEFLIB.OC.005      1 LINE     24    1 PAGE UM   SWARTZ              JULY 20, 1977  03:40:47
0          LOADER CARDS USED AS A DEFAULT LIBRARY FOR THE SPITBOL LOAD FUNCTION TO
           FORCE REFERENCE TO EFL AND LCSYMBOLS.
00590/008A *SPITBOL                  *SPITERR        M              *SPITERR                                                        
            4.3T1   534  SPITBOL.*SPITERR.M.008             1 LINE    175    4 PAGE UM   SWARTZ              APR. 05, 1980  18:18:23
0          SPITBOL ERROR MESSAGES.
00590/009A *SPITBOL                  *SPITDEBUG      SS  O          *SPITDEBUG                                                      
            4.3T1   535  SPITBOL.*SPITDEBUG.SS.009          1 LINE    111    4 PAGE UM   SWARTZ              APR. 05, 1980  18:18:26
                         *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.
            
           *****************************************************************************
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT:
            
           RD4.2A/RD16:
            
             BREAK COMMAND ADDED.
            
           RD4.2C:
            
             BUGS FIXED.
           *****************************************************************************
0          Referenced by comments of: 590/31 
00590/010A *SPITBOL                  NEWS FILE       P              S0103 FS 'FRED SWARTZ' FSNAME=SDEBUG.NEWS                       
            4.3T1   536  SPITBOL.NEWS_FILE.P.010            1 LINE     65    1 PAGE UM   SWARTZ              NOV. 09, 1979  12:04:51
0          THIS FILE CONTAINS *SPITDEBUG NEWS ITEMS.
00590/011  *SPITBOL                  UNSP CMD        SA  G  SCMD    S0684 UNSP FSNAME=SCMD.S                                        
            D4T2    646  SPITBOL.UNSP_CMD.SA.008            1 LINE     80    3 PAGE UM   UNSP                DEC. 23, 1975  19:33:48
0          THIS FOLLOWING SUBCOMPONENTS ARE THE SOURCE FOR THE "UNSUPPORTED" SPITBOL
           FUNCTION LIBRARY, UNSP:SPITLIB (590/30).  WRITEUP FOR THESE FUNCTIONS ARE
           IN UNSP:WRITEUPS (685/2). THESE FUNCTIONS SHOULD NOT BE CONFUSED WITH THOSE
           IN *SPITLIB.
00590/012  *SPITBOL                  UNSP CREATE     SA  G  SCRE    S0684 UNSP FSNAME=SCREATE.S                                     
            D4T2    647  SPITBOL.UNSP_CREATE.SA.009         1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:34:35
00590/013  *SPITBOL                  UNSP CREPLY     SA  G  SCRP    S0684 UNSP FSNAME=SCREPLY.S                                     
            D4.2T1  463  SPITBOL.UNSP_CREPLY.SA.013         1 LINE     80    2 PAGE UM   UNSP                SEP. 01, 1978  08:19:41
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00590/014  *SPITBOL                  UNSP GDINFO     SA  G  SGDI    S0684 UNSP FSNAME=SGDINFO.S                                     
            D4T2    649  SPITBOL.UNSP_GDINFO.SA.011         1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:34:40
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/015  *SPITBOL                  UNSP GETFD      SA  G  SGET    S0684 UNSP FSNAME=SGETFD.S                                      
            D4T2    650  SPITBOL.UNSP_GETFD.SA.012          1 LINE     80    3 PAGE UM   UNSP                SEP. 02, 1976  12:34:44
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/016  *SPITBOL                  UNSP GUINFO     SA  G  SGUI    S0684 UNSP FSNAME=SGUINFO.S                                     
            D4T2    651  SPITBOL.UNSP_GUINFO.SA.013         1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:34:51
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/017  *SPITBOL                  UNSP MTSCMD     SA  G  SMTS    S0684 UNSP FSNAME=SMTSCMD.S                                     
            D4T2    652  SPITBOL.UNSP_MTSCMD.SA.014         1 LINE     80    3 PAGE UM   UNSP                DEC. 23, 1975  19:34:03
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/018  *SPITBOL                  UNSP READ       SA  G  SREA    S0684 UNSP FSNAME=SREAD.S                                       
            D4T2    653  SPITBOL.UNSP_READ.SA.015           1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:35:05
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/019  *SPITBOL                  UNSP SETPFX     SA  G  SSET    S0684 UNSP FSNAME=SSETPFX.S                                     
            D4T2    654  SPITBOL.UNSP_SETPFX.SA.016         1 LINE     80    3 PAGE UM   UNSP                JAN. 13, 1976  11:29:00
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/020  *SPITBOL                  UNSP SNS        SA  G  SSNS    S0684 UNSP FSNAME=SNS.S                                         
            D4T2    655  SPITBOL.UNSP_SNS.SA.017            1 LINE     80    3 PAGE UM   UNSP                SEP. 02, 1976  12:34:54
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/021  *SPITBOL                  UNSP WRITE      SA  G  SWRI    S0684 UNSP FSNAME=SWRITE.S                                      
            D4T2    656  SPITBOL.UNSP_WRITE.SA.018          1 LINE     80    4 PAGE UM   UNSP                SEP. 02, 1976  12:35:12
0          ASSEMBLE USING UNSP:MACLIB (685/5).
00590/022  *SPITBOL                  UNSP SNOOP      SA  G  SSNO    S0684 UNSP FSNAME=SSNOOP.S                                      
            D4T2    657  SPITBOL.UNSP_SNOOP.SA.019          1 LINE     80    3 PAGE UM   UNSP                JULY 12, 1976  13:42:24
00590/023  *SPITBOL                  UNSP SPITATTN   SA  G  SATN    S0684 UNSP FSNAME=SPITATTN.S                                    
            D4T2    658  SPITBOL.UNSP_SPITATTN.SA.020       1 LINE     80    5 PAGE UM   UNSP                NOV. 30, 1976  14:22:13
00590/024  *SPITBOL                  UNSP SGETRC     SA  G  SGRC    S0684 UNSP FSNAME=SGETRC.S                                      
            D4T2    659  SPITBOL.UNSP_SGETRC.SA.021         1 LINE     80    1 PAGE UM   UNSP                SEP. 02, 1976  12:34:47
00590/025  *SPITBOL                  UNSP SPUTRC     SA  G  SPRC    S0684 UNSP FSNAME=SPUTRC.S                                      
            D4T2    660  SPITBOL.UNSP_SPUTRC.SA.022         1 LINE     80    1 PAGE UM   UNSP                SEP. 02, 1976  12:35:01
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00590/026  *SPITBOL                  UNSP STI        SA  G  STIA    S0684 UNSP FSNAME=STI.S                                         
            D4T2    661  SPITBOL.UNSP_STI.SA.023            1 LINE     80    2 PAGE UM   UNSP                SEP. 02, 1976  12:35:09
0          "STR" IS AN ALTERNATE ENTRY.  ASSEMBLE USING UNSP:MACLIB (685/5).
00590/027  *SPITBOL                  UNSP ITR        SA  G  ITRA    S0684 UNSP FSNAME=ITR.S                                         
            D4T2    662  SPITBOL.UNSP_ITR.SA.024            1 LINE     80    1 PAGE UM   UNSP                SEP. 02, 1976  12:35:20
0          "RTI" IS AN ALTERNATE ENTRY.
00590/028  *SPITBOL                  UNSP ITS        SA  G  ITSA    S0684 UNSP FSNAME=ITS.S                                         
            D4T2    663  SPITBOL.UNSP_ITS.SA.025            1 LINE     80    1 PAGE UM   UNSP                SEP. 02, 1976  12:35:16
0          "RTS" IS AN ALTERNATE ENTRY.
00590/029  *SPITBOL                  UNSP SETLIO     SA  G          S0684 UNSP FSNAME=SSETLIO.S                                     
            D4.2T1  464  SPITBOL.UNSP_SETLIO.SA.029         1 LINE     66    1 PAGE UM   UNSP                FEB. 23, 1979  04:51:29
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                                                    
            D4.2T1  465  SPITBOL.UNSP_LIBRARY.OL.030        1 LINE  32767   17 PAGE UM   UNSP                APR. 01, 1979  23:04:31
                         UNSP:SPITLIB         
0          Referenced by comments of: 590/9, 590/11, 590/29, 678/1, 737/15, 1042/73 
00590/031A *SPITBOL                  CONVSPIT        SS  G          UNSP:CONVSPIT(1000)                                             
            4.3T1   537  SPITBOL.CONVSPIT.SS.031            1 LINE     53    1 PAGE UM   UNSP                APR. 05, 1980  18:26:36
0          AN INTERACTIVE SPITBOL. USES *SPITLIB (NOT DISTRIBUTED) AND *SPITDEBUG
           (590/9).
00590/032A *SPITBOL                  CONVSPIT        OE  G          UNSP:CONVSPIT(1,999)                                            
            4.3T1   538  SPITBOL.CONVSPIT.OE.032            1 LINE  10408    6 PAGE UM   UNSP                APR. 05, 1980  18:26:37
                         UNSP:CONVSPIT        
00591/001   CFDUB SUBR                               SA  G          MTS:CFDUB(1,999)                                                
            D4T2    665  CFDUB_SUBR..SA.001                 1 LINE     80    2 PAGE UM   MTA                 JULY 28, 1977  03:46:29
                         MTS.:CFDUB           
0          SUBROUTINE TO COMPARE TWO FDUBS TO SEE IF THEY ARE ASSIGNED TO THE SAME THING.  TO USE,
           CALL CFDUB(F1,F2) WHERE F1 AND F2 ARE CHKFDUB THINGS.  RC=0 MEANS THAT THEY'RE THE SAME, RC=4 MEANS THEY'RE
           DIFFERENT, RC=8 MEANS THAT AT LEAST ONE IS INVALID.  FOR EXAMPLE, CALL CFDUB('SPUNCH  ','SPRINT  ',&1,&2).
00591/002   CFDUB SUBR                               OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00592    A  OPERATORS MANUAL                         WF             W225:OPRML.FMT                                                  
            4.3T1   539  OPERATORS_MANUAL..WF.              1 LINE    236  129 PAGE UM   DONNELLY            APR. 05, 1980  18:26:39
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, 655/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00593    A *GFINFODSECT                              SA  G          *GFINFODSECT                                                    
            4.3T1   540  GFINFODSECT..SA.                   1 LINE     80    4 PAGE UM   HELFFRICH           APR. 05, 1980  18:26:57
                         *GFINFODSECT         
0          COPY SECTION FOR DSECTS DEFINING INFORMATION REGIONS USED IN CONJUNCTION WITH THE
           GFINFO SUBROUTINE (PART OF 578/1).
0          Referenced by comments of: 465/1, 529/1, 531/6, 548/1, 548/2, 578/1, 630/1, 774/1, 1019/2, 3003/24 
00594      *GDINFODSECT                              SA  G          *GDINFODSECT                                                    
            D4.2T1  467  GDINFODSECT..SA.                   1 LINE     80    2 PAGE UM   DWB                 APR. 01, 1979  23:04:42
                         *GDINFODSECT         
0          COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE.
0          Referenced by comments of: 57/1, 64/1, 278/3, 400/16, 400/17, 495/1, 496/1, 506/7, 506/8, 513/1, 529/1, 531/6,
                 531/13, 540/10, 545/3, 545/4, 548/1, 551/1, 553/1, 595/6, 619/23, 634/7, 648/7, 677/1, 680/1, 706/6, 709/1,
                 721/1, 721/2, 721/3, 721/6, 721/9, 721/12, 727/1, 737/3, 738/1, 746/1, 749/1, 752/1, 771/1, 774/1, 1002/15,
                 1002/23, 1021/7, 1067/1, 3003/24, 3011/3, 3024/1 
00595/001   APL - GMRL               INSTALLATION    P              S0625 GMAPL 'APL SOURCE' FSNAME=DESCRIPTION                  1  
            D4T2    669  APL_-_GMRL.INSTALLATION.P.001      1 LINE     73    1 PAGE UM   TIFFANY             JULY 16, 1973  01:42.51
0          THIS IS THE GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE (APL), NOT TO BE CONFUSED WITH COMPONENT 465 (*APL).
           APL (PRONOUNCED "APPLE") IS A SUPERSET OF PL/I, WHICH HAS EXTENSIONS IN THE AREA OF DATA STRUCTURE PROCESSING.  IT IS
           INTENDED PRIMARILY FOR LARGE SCALE STRUCTURAL DESIGN APPLICATIONS, PARTICULARLY THOSE INVOLVING INTERACTIVE GRAPHICS.
            
           COMPONENT 595/1 EXPLAINS THE CONTENTS OF COMPONENTS 595/2 THROUGH 595/92 AND TELLS HOW TO GENERATE THE SEVERAL
           COMPONENTS WHICH MAKE UP APL.
00595/002A  APL - GMRL               *APLGM          OE  G          *APLGM                                                          
            4.3T1   541  APL_-_GMRL.*APLGM.OE.002           1 SEQ    2436    2 PAGE UM   TIFFANY             APR. 05, 1980  18:26:59
                         *APLGM               
0          COMPONENTS 595/2 THROUGH 595/5 ARE THE FOUR APL OBJECT FILES AS DESCRIBED IN CCMEMO 236 (SEE 595/93).
00595/003   APL - GMRL               *APLTRAN        OE  G          *APLTRAN                                                        
            D4T2    671  APL_-_GMRL.*APLTRAN.OE.003         1 SEQ   32767   47 PAGE UM   TIFFANY             JULY 28, 1977  03:48:38
                         *APLTRAN             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/004   APL - GMRL               *APLLIB         OL  G          *APLLIB                                                         
            D4T2    672  APL_-_GMRL.*APLLIB.OL.004          1 SEQ    4222   21 PAGE UM   TIFFANY             JULY 28, 1977  03:48:40
                         *APLLIB              
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/005   APL - GMRL               *APLEDCL        OE  G          *APLEDCL                                                        
            D4T2    673  APL_-_GMRL.*APLEDCL.OE.005         1 SEQ   10704    7 PAGE UM   TIFFANY             JULY 28, 1977  03:48:45
                         *APLEDCL             
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00595/006A  APL - GMRL               APLLL0          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLLL0                          
            4.3T1   542  APL_-_GMRL.APLLL0.SA.006           1 LINE     95    4 PAGE UM   TIFFANY             DEC. 21, 1979  09:31:21
0          THE SOURCE FOR *APLGM.  ASSEMBLE USING *SYSMAC. COPIES *GDINFODCEST (594).
            
           *****************************************************************************
           D4.3 VERSION:
            
           CHANGED SO THAT IT WOULD WORK FOR THE LATEST VERSION OF THE PL1 COMPILER (163).
           *****************************************************************************
00595/007   APL - GMRL               XAPL            SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XAPL                         7  
            D4T2    675  APL_-_GMRL.XAPL.SP.007             1 LINE     72    6 PAGE UM   TIFFANY             JULY 16, 1973  01:45.18
0          COMPONENTS 595/7 THROUGH 595/48 ARE THE SOURCE FOR *APLTRAN.
00595/008   APL - GMRL               MINITERM        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MINITERM                     8  
            D4T2    676  APL_-_GMRL.MINITERM.SP.008         1 LINE     73    4 PAGE UM   TIFFANY             JULY 16, 1973  01:45.20
00595/009   APL - GMRL               MAPLGET         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGET                      9  
            D4T2    677  APL_-_GMRL.MAPLGET.SP.009          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:45.23
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/010   APL - GMRL               MCARDGET        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCARDGET                     10 
            D4T2    678  APL_-_GMRL.MCARDGET.SP.010         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.26
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/011   APL - GMRL               MCHMOVE         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHMOVE                      11 
            D4T2    679  APL_-_GMRL.MCHMOVE.SP.011          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.30
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/012   APL - GMRL               MCHSCAN         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHSCAN                      12 
            D4T2    680  APL_-_GMRL.MCHSCAN.SP.012          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.33
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/013   APL - GMRL               MAPLGOOF        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGOOF                     13 
            D4T2    681  APL_-_GMRL.MAPLGOOF.SP.013         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.36
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00595/014   APL - GMRL               MAPLPUT         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLPUT                      14 
            D4T2    682  APL_-_GMRL.MAPLPUT.SP.014          1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.39
00595/015   APL - GMRL               MCARDPUT        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCARDPUT                     15 
            D4T2    683  APL_-_GMRL.MCARDPUT.SP.015         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.42
00595/016   APL - GMRL               MAPLNAME        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLNAME                     16 
            D4T2    684  APL_-_GMRL.MAPLNAME.SP.016         1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.46
00595/017   APL - GMRL               MCHNAM1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM1                      17 
            D4T2    685  APL_-_GMRL.MCHNAM1.SP.017          1 LINE     71    2 PAGE UM   TIFFANY             JULY 16, 1973  01:45.49
00595/018   APL - GMRL               MCHNAM2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM2                      18 
            D4T2    686  APL_-_GMRL.MCHNAM2.SP.018          1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:45.52
00595/019   APL - GMRL               MCHNAM3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM3                      19 
            D4T2    687  APL_-_GMRL.MCHNAM3.SP.019          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.55
00595/020   APL - GMRL               MBEGPRC         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MBEGPRC                      20 
            D4T2    688  APL_-_GMRL.MBEGPRC.SP.020          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:45.59
00595/021   APL - GMRL               MDIAGNS         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MDIAGNS                      21 
            D4T2    689  APL_-_GMRL.MDIAGNS.SP.021          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.02
00595/022   APL - GMRL               MENTDCL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MENTDCL                      22 
            D4T2    690  APL_-_GMRL.MENTDCL.SP.022          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.05
00595/023   APL - GMRL               MSCOPE01        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE01                     23 
            D4T2    691  APL_-_GMRL.MSCOPE01.SP.023         1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.08
00595/024   APL - GMRL               MSCOPE02        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE02                     24 
            D4T2    692  APL_-_GMRL.MSCOPE02.SP.024         1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.11
00595/025   APL - GMRL               MSCOPE03        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE03                     25 
            D4T2    693  APL_-_GMRL.MSCOPE03.SP.025         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.15
00595/026   APL - GMRL               MSCOPE04        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE04                     26 
            D4T2    694  APL_-_GMRL.MSCOPE04.SP.026         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.18
00595/027   APL - GMRL               MSCOPE05        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE05                     27 
            D4T2    695  APL_-_GMRL.MSCOPE05.SP.027         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.21
00595/028   APL - GMRL               MSCOPE06        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE06                     28 
            D4T2    696  APL_-_GMRL.MSCOPE06.SP.028         1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.25
00595/029   APL - GMRL               MSUBDCL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSUBDCL                      29 
            D4T2    697  APL_-_GMRL.MSUBDCL.SP.029          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.28
00595/030   APL - GMRL               MXCREATE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXCREATE                     30 
            D4T2    698  APL_-_GMRL.MXCREATE.SP.030         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.31
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00595/031   APL - GMRL               MXDCL           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL                        31 
            D4T2    699  APL_-_GMRL.MXDCL.SP.031            1 LINE     72    8 PAGE UM   TIFFANY             JULY 16, 1973  01:46.35
00595/032   APL - GMRL               MXDCL1          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL1                       32 
            D4T2    700  APL_-_GMRL.MXDCL1.SP.032           1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:46.38
00595/033   APL - GMRL               MXDCL2          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL2                       33 
            D4T2    701  APL_-_GMRL.MXDCL2.SP.033           1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:46.41
00595/034   APL - GMRL               MXDELETE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDELETE                     34 
            D4T2    702  APL_-_GMRL.MXDELETE.SP.034         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.44
00595/035   APL - GMRL               MXEND           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXEND                        35 
            D4T2    703  APL_-_GMRL.MXEND.SP.035            1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:46.47
00595/036   APL - GMRL               MXFIND          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND                       36 
            D4T2    704  APL_-_GMRL.MXFIND.SP.036           1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.51
00595/037   APL - GMRL               MXFIND1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND1                      37 
            D4T2    705  APL_-_GMRL.MXFIND1.SP.037          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.54
00595/038   APL - GMRL               MXINSERT        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXINSERT                     38 
            D4T2    706  APL_-_GMRL.MXINSERT.SP.038         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:46.57
00595/039   APL - GMRL               MXLET           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXLET                        39 
            D4T2    707  APL_-_GMRL.MXLET.SP.039            1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.00
00595/040   APL - GMRL               MXON            SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXON                         40 
            D4T2    708  APL_-_GMRL.MXON.SP.040             1 LINE     71    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.03
00595/041   APL - GMRL               MXPLI           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXPLI                        41 
            D4T2    709  APL_-_GMRL.MXPLI.SP.041            1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:47.06
00595/042   APL - GMRL               MXQUEST         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXQUEST                      42 
            D4T2    710  APL_-_GMRL.MXQUEST.SP.042          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:47.09
00595/043   APL - GMRL               MXREMOVE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXREMOVE                     43 
            D4T2    711  APL_-_GMRL.MXREMOVE.SP.043         1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.12
00595/044   APL - GMRL               MX4EACH         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MX4EACH                      44 
            D4T2    712  APL_-_GMRL.MX4EACH.SP.044          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.15
00595/045   APL - GMRL               MAPLGO          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGO                       45 
            D4T2    713  APL_-_GMRL.MAPLGO.SP.045           1 LINE     68    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.18
00595/046   APL - GMRL               XPLEMES         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEMES(1)                   46 
            D4T2    714  APL_-_GMRL.XPLEMES.SP.046          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.22
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB.
00595/047   APL - GMRL               MXXLOCSET       SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXXLOCSET                    47 
            D4T2    715  APL_-_GMRL.MXXLOCSET.SA.047        1 LINE     67    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.25
0          ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00595/048   APL - GMRL               XPLFORM         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFORM(1)                   48 
            D4T2    716  APL_-_GMRL.XPLFORM.SA.048          1 LINE     71    4 PAGE UM   TIFFANY             JULY 16, 1973  01:47.28
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB.  ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88).
00595/049   APL - GMRL               XPLCONA         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCONA                      49 
            D4T2    717  APL_-_GMRL.XPLCONA.SP.049          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.31
0          COMPONENTS 595/49 THROUGH 595/86 PLUS 595/46 AND 595/48 ARE THE SOURCE FOR *APLLIB.
00595/050   APL - GMRL               XPLCON          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCON                       50 
            D4T2    718  APL_-_GMRL.XPLCON.SP.050           1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:47.34
00595/051   APL - GMRL               XPLCRT1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT1                      51 
            D4T2    719  APL_-_GMRL.XPLCRT1.SP.051          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.38
00595/052   APL - GMRL               XPLCRT2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT2                      52 
            D4T2    720  APL_-_GMRL.XPLCRT2.SP.052          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.41
00595/053   APL - GMRL               XPLDEL1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL1                      53 
            D4T2    721  APL_-_GMRL.XPLDEL1.SP.053          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.44
00595/054   APL - GMRL               XPLDEL2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL2                      54 
            D4T2    722  APL_-_GMRL.XPLDEL2.SP.054          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:47.47
00595/055   APL - GMRL               XPLDEL3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL3                      55 
            D4T2    723  APL_-_GMRL.XPLDEL3.SP.055          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.51
00595/056   APL - GMRL               XPLESET         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLESET                      56 
            D4T2    724  APL_-_GMRL.XPLESET.SP.056          1 LINE     63    1 PAGE UM   TIFFANY             JULY 16, 1973  01:47.54
00595/057   APL - GMRL               XPLEVAR         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEVAR                      58 
            D4T2    725  APL_-_GMRL.XPLEVAR.SP.057          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.00
00595/058   APL - GMRL               XPLFND1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND1                      59 
            D4T2    726  APL_-_GMRL.XPLFND1.SP.058          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.03
00595/059   APL - GMRL               XPLFND2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND2                      60 
            D4T2    727  APL_-_GMRL.XPLFND2.SP.059          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.07
00595/060   APL - GMRL               XPLFND3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND3                      61 
            D4T2    728  APL_-_GMRL.XPLFND3.SP.060          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.10
00595/061   APL - GMRL               XPLGO           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLGO                        62 
            D4T2    729  APL_-_GMRL.XPLGO.SP.061            1 LINE     68    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.13
00595/062   APL - GMRL               XPLGARB         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLGARB                      63 
            D4T2    730  APL_-_GMRL.XPLGARB.SP.062          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.16
00595/063   APL - GMRL               XPLNUMB         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNUMB                      64 
            D4T2    731  APL_-_GMRL.XPLNUMB.SP.063          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.19
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00595/064   APL - GMRL               XPLINDX         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLINDX                      65 
            D4T2    732  APL_-_GMRL.XPLINDX.SP.064          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.23
00595/065   APL - GMRL               XPLNOBL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNOBL                      66 
            D4T2    733  APL_-_GMRL.XPLNOBL.SP.065          1 LINE     71    3 PAGE UM   TIFFANY             JULY 16, 1973  01:48.26
00595/066   APL - GMRL               XPLNSRT         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNSRT                      67 
            D4T2    734  APL_-_GMRL.XPLNSRT.SP.066          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:48.29
00595/067   APL - GMRL               XPLOWNI         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWNI(3)                   99 
            D4T2    735  APL_-_GMRL.XPLOWNI.SP.067          1 LINE     72    1 PAGE UM   TIFFANY             MAY  05, 1975  17:39:10
00595/068   APL - GMRL               XPLOWRS         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWRS                      69 
            D4T2    736  APL_-_GMRL.XPLOWRS.SP.068          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.35
00595/069   APL - GMRL               XPLREL0         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL0                      70 
            D4T2    737  APL_-_GMRL.XPLREL0.SP.069          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.38
00595/070   APL - GMRL               XPLREL1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL1                      71 
            D4T2    738  APL_-_GMRL.XPLREL1.SP.070          1 LINE     70    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.42
00595/071   APL - GMRL               XPLSNAM         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLSNAM                      72 
            D4T2    739  APL_-_GMRL.XPLSNAM.SP.071          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.45
00595/072   APL - GMRL               XPLRMV1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV1                      73 
            D4T2    740  APL_-_GMRL.XPLRMV1.SP.072          1 LINE     72    4 PAGE UM   TIFFANY             JULY 16, 1973  01:48.48
00595/073   APL - GMRL               XPLRMV2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV2                      74 
            D4T2    741  APL_-_GMRL.XPLRMV2.SP.073          1 LINE     72    2 PAGE UM   TIFFANY             JULY 16, 1973  01:48.51
00595/074   APL - GMRL               XPLTYPE         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLTYPE                      75 
            D4T2    742  APL_-_GMRL.XPLTYPE.SA.074          1 LINE     59    1 PAGE UM   TIFFANY             JULY 16, 1973  01:48.55
0          COMPONENTS 595/74 THROUGH 595/86 SHOULD BE ASSEMBLED WITH *SYSMAC AND PL1MACLIB (595/88).
00595/075   APL - GMRL               XPLUDAT         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLUDAT                      76 
            D4T2    743  APL_-_GMRL.XPLUDAT.SA.075          1 LINE     72    7 PAGE UM   TIFFANY             JULY 16, 1973  01:48.58
00595/076   APL - GMRL               XPLADDR         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLADDR                      77 
            D4T2    744  APL_-_GMRL.XPLADDR.SA.076          1 LINE     40    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.01
00595/077   APL - GMRL               XPLALOC         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLALOC(2)                   95 
            D4T2    745  APL_-_GMRL.XPLALOC.SA.077          1 LINE     72    3 PAGE UM   TIFFANY             SEP. 27, 1974  12:40.15
00595/078   APL - GMRL               XPLDREC         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDREC                      79 
            D4T2    746  APL_-_GMRL.XPLDREC.SA.078          1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:49.07
00595/079   APL - GMRL               XPLEV           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEV                        80 
            D4T2    747  APL_-_GMRL.XPLEV.SA.079            1 LINE     56    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.11
00595/080   APL - GMRL               XPLFREE         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFREE                      81 
            D4T2    748  APL_-_GMRL.XPLFREE.SA.080          1 LINE     72    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.14
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00595/081   APL - GMRL               XPLOC           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOC                        83 
            D4T2    749  APL_-_GMRL.XPLOC.SA.081            1 LINE     72    3 PAGE UM   TIFFANY             JULY 16, 1973  01:49.20
00595/082   APL - GMRL               XIRMIN          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XIRMIN                       84 
            D4T2    750  APL_-_GMRL.XIRMIN.SA.082           1 LINE     72    9 PAGE UM   TIFFANY             JULY 16, 1973  01:49.23
00595/083   APL - GMRL               XIRMOUT         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XIRMOUT                      85 
            D4T2    751  APL_-_GMRL.XIRMOUT.SA.083          1 LINE     72    9 PAGE UM   TIFFANY             JULY 16, 1973  01:49.26
00595/084   APL - GMRL               RRIN            SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=RRIN                         86 
            D4T2    752  APL_-_GMRL.RRIN.SA.084             1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:49.29
00595/085   APL - GMRL               RROUT           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=RROUT                        87 
            D4T2    753  APL_-_GMRL.RROUT.SA.085            1 LINE     72    5 PAGE UM   TIFFANY             JULY 16, 1973  01:49.32
00595/086   APL - GMRL               SYSVM           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=SYSVM(3)                     105
            D4T2    754  APL_-_GMRL.SYSVM.SA.086            1 LINE     69    8 PAGE UM   TIFFANY             OCT. 13, 1976  18:05:24
00595/087   APL - GMRL               CHGSCR          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=CHGSCR                       89 
            D4T2    755  APL_-_GMRL.CHGSCR.SA.087           1 LINE     71    1 PAGE UM   TIFFANY             JULY 16, 1973  01:49.38
0          COPY SECTION USED BY SEVERAL MODULES IN *APLLIB.
00595/088   APL - GMRL               PL1MACLIB       SM  G          S0625 GMAPL 'APL SOURCE' FSNAME=PL1MACLIB                    90 
            D4T2    756  APL_-_GMRL.PL1MACLIB.SM.088        1 LINE     80   15 PAGE UM   TIFFANY             JULY 16, 1973  01:49.58
0          MACRO LIBRARY REQUIRED BY ASSEMBLY LANGUAGE MODULES IN *APLTRAN AND *APLLIB.
0          Referenced by comments of: 595/47, 595/48, 595/74 
00595/089   APL - GMRL               BLDTRAN         C              S0625 GMAPL 'APL SOURCE' FSNAME=BLDTRAN                      91 
            D4T2    757  APL_-_GMRL.BLDTRAN.C.089           1 LINE     82    1 PAGE UM   TIFFANY             JULY 16, 1973  01:50.08
0          A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLTRAN.
           HAS MANY  "$CONTINUE WITH" LINES.
00595/090   APL - GMRL               BLDLIB          C              S0625 GMAPL 'APL SOURCE' FSNAME=BLDLIB                       92 
            D4T2    758  APL_-_GMRL.BLDLIB.C.090            1 LINE     74    1 PAGE UM   TIFFANY             JULY 16, 1973  01:50.17
0          A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLLIB.
           HAS MANY "$CONTINUE WITH" LINES.
00595/091   APL - GMRL               APLTRAN.SEP     OE  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLTRAN.SEP                  93 
            D4T2    759  APL_-_GMRL.APLTRAN.SEP.OE.091      1 SEQ   11606   54 PAGE UM   TIFFANY             JULY 16, 1973  01:51.03
0          OBJECT MODULES FOR *APLTRAN, LINK-EDITTED, BUT NOT COMBINED, SO THAT INDIVIDUAL MODULES CAN BE REPLACED.
00595/092   APL - GMRL               APLEDCL.S       SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLEDCL.S(2)                 98 
            D4T2    760  APL_-_GMRL.APLEDCL.S.SP.092        1 LINE     72    4 PAGE UM   TIFFANY             MAY  05, 1975  17:39:07
0          THE SOURCE FOR *APLEDCL CONSISTS OF THIS COMPONENT, PLUS MAPLGET (595/9), MCARDGET (595/10), MCHSCAN (595/12),
           MCHMOVE (595/11), AND MAPLGOOF (595/13).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00595/093   APL - GMRL               MEMO 236        WF             S0724 'D3T5' FSNAME=APL_-_GMRL.USER'S_GUIDE.WF.93(1)         135
            D4T2    761  APL_-_GMRL.MEMO_236.WF.093         1 LINE    114    8 PAGE UM   TIFFANY             JULY 17, 1973  17:39.33
0          THIS IS COMPUTING CENTER MEMO 236 -- "GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE"
           ONLY PART OF CCMEMO 236 IS INCLUDED HERE SINCE THE BULK OF IT IS SIMPLY REPRODUCED FROM
           THE GENERAL MOTORS APL USER'S MANUAL (PUBLICATION GMR-1219 OF THE GENERAL MOTORS RESEARCH LAB).
00596       ZAP                                      SA           # (OBSOLETED BY 1019)                                             
            D3.1T1  455  ZAP..SA.1                          1 LINE     80   13 PAGE UM                       MAR. 06, 1974  22:30.58
00597       CHKVTOC                                               # (SEE COMP 682)                                                  
                                                                                    UM                                              
00598/001A  DASDI                                    SA  G          FILE:DASDI.S                                                    
            4.3T2   565  DASDI..SA.001                      1 LINE     83   45 PAGE UM   HELFFRICH           MAY  22, 1980  01:49:09
                         FILE:DASDI.S         
0          PROGRAM TO VAM2- OR VAMX-FORMAT DASDI 2311, 2314, 3330, 333B, 3340, 3344, AND 3350 DISKS.
           MARKS 3330-11 DISKS AS "333B" IN LABEL ACCORDING TO TSS CONVENTION. ASSEMBLE
           USING COPY:FILE.MACROS (482/33), COPY:MISC.MACROS (728), AND *SYSMAC.  INPUT
           DESCRIBED IN SOURCE COMMENTS.
0          Referenced by comments of: 682/5 
00598/002A  DASDI                                    OC  G          FILE:DASDI                                                      
            4.3T2   566  DASDI..OC.002                      1 LINE     80   14 PAGE UM   HELFFRICH           MAY  22, 1980  01:49:13
                         FILE:DASDI           
00599/001   CHONID                                   SA  G  CHON    FILE:CHONID(1,999)                                              
            D4T2    765  CHONID..SA.001                     1 LINE     80    4 PAGE UM   HELFFRICH           JULY 28, 1977  03:53:38
                         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/33).  SEE COMP 682/6 FOR A WRITEUP.
0          Referenced by comments of: 682/6 
00599/002   CHONID                                   OC  G          FILE:CHONID(1000)                                               
            D4T2    766  CHONID..OC.002                     1 LINE     80    1 PAGE UM   HELFFRICH           JULY 28, 1977  03:53:40
00600/001A  SDS CLS                  CLSSOU          SA  G          W059:SDSCLSSOU                                                  
            4.3T1   543  SDS_CLS.CLSSOU.SA.001              1 LINE     75  175 PAGE UM   VALERIO             APR. 05, 1980  18:34:16
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: 721/18 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00600/002A  SDS CLS                  CLS             OC  G          W059:SDSCLS                                                     
            4.3T1   544  SDS_CLS.CLS.OC.002                 1 LINE     80   58 PAGE UM   VALERIO             APR. 05, 1980  18:34:31
0          OBJECT FOR 600/1.
00600/003A  SDS CLS                  CLI             SA  G          W059:SDSCLISOU                                                  
            4.3T1   545  SDS_CLS.CLI.SA.003                 1 LINE     72   85 PAGE UM   VALERIO             APR. 05, 1980  18:34:39
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/004A  SDS CLS                  CLI             OC  G          W059:SDSCLI                                                     
            4.3T1   546  SDS_CLS.CLI.OC.004                 1 LINE     80   34 PAGE UM   VALERIO             APR. 05, 1980  18:34:47
00600/005A  SDS CLS                  IOC             SA  G          W059:SDSIOCSOU                                                  
            4.3T1   547  SDS_CLS.IOC.SA.005                 1 LINE     80   18 PAGE UM   VALERIO             APR. 05, 1980  18:34:51
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/006A  SDS CLS                  IOC             OC  G          W059:SDSIOC                                                     
            4.3T1   548  SDS_CLS.IOC.OC.006                 1 LINE     80   14 PAGE UM   VALERIO             APR. 05, 1980  18:34:54
00600/007A  SDS CLS                  SIMULATOR       SA  G          W059:SDSSIMLSOU                                                 
            4.3T1   549  SDS_CLS.SIMULATOR.SA.007           1 LINE     70   30 PAGE UM   VALERIO             APR. 05, 1980  18:34:56
0          THE SDS INSTRUCTION SIMULATOR.  COPIES SDSPSECT (600/12) AND
           *CNFGINFODSECT (654).  ASSEMBLE USING SDSMACROS (600/11) AND
           COPY:MTS.MACROS (344/3).
00600/008A  SDS CLS                  SIMULATOR       OC  G          W059:SDSSIML                                                    
            4.3T1   550  SDS_CLS.SIMULATOR.OC.008           1 LINE     80   18 PAGE UM   VALERIO             APR. 05, 1980  18:34:58
00600/009A  SDS CLS                  EDITOR          SA  G          W059:SDSEDTRSOU                                                 
            4.3T1   551  SDS_CLS.EDITOR.SA.009              1 LINE     72   38 PAGE UM   VALERIO             APR. 05, 1980  18:35:01
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/010A  SDS CLS                  EDITOR          OC  G          W059:SDSEDTR                                                    
            4.3T1   552  SDS_CLS.EDITOR.OC.010              1 LINE     80   18 PAGE UM   VALERIO             APR. 05, 1980  18:35:04
00600/011A  SDS CLS                  SDSMACROS       SM  G  SDSM    W059:SDSMACROS                                                  
            4.3T1   553  SDS_CLS.SDSMACROS.SM.011           1 LINE     80   14 PAGE UM   VALERIO             APR. 05, 1980  18:35:06
0          SDS MACRO LIBRARY.
0          Referenced by comments of: 600/1, 600/3, 600/5, 600/7, 600/9 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00600/012A  SDS CLS                  SDSPSECT        SA  G          W059:SDSPSECT                                                   
            4.3T1   554  SDS_CLS.SDSPSECT.SA.012            1 LINE     72   38 PAGE UM   VALERIO             APR. 05, 1980  18:35:09
0          COPY SECTION FOR SDS DSECTS.
0          Referenced by comments of: 600/1, 600/3, 600/5, 600/7, 600/9 
00600/013A  SDS CLS                  SDSBT           SA  G          W059:SDSBT                                                      
            4.3T1   555  SDS_CLS.SDSBT.SA.013               1 LINE     70    3 PAGE UM   VALERIO             APR. 05, 1980  18:35:12
0          COPY SECTION FOR BRANCH TABLES.
0          Referenced by comments of: 600/3, 600/5, 600/9 
00600/014A  SDS CLS                  SDSCONSTANT     SA  G          W059:SDSCONSTANT                                                
            4.3T1   556  SDS_CLS.SDSCONSTANT.SA.014         1 LINE     68    1 PAGE UM   VALERIO             APR. 05, 1980  18:35:14
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                                                         
            4.3T1   557  SDS_CLS.OBJECT.OE.015              1 LINE  32767   88 PAGE UM   VALERIO             APR. 05, 1980  18:35:16
                         *CLSSDS              
0          THE SDS OBJECT IS LOADED INTO SHARED VM BY PISTLE AT IPL.
00600/016A  SDS CLS                  TEST PROGRAM    C              W059:ASMSDSTEST                                                 
            4.3T1   558  SDS_CLS.TEST_PROGRAM.C.016         1 LINE     63    1 PAGE UM   VALERIO             APR. 05, 1980  18:35:25
0          SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAMS (600/17 AND 600/18).
00600/017A  SDS CLS                  TEST PGM 1      SA             W059:SDSTEST.S                                                  
            4.3T1   559  SDS_CLS.TEST_PGM_1.SA.017          1 LINE     63    6 PAGE UM   VALERIO             APR. 05, 1980  18:35:27
00600/018A  SDS CLS                  TEST PGM 1      OC             W059:SDSTEST.O                                                  
            4.3T1   560  SDS_CLS.TEST_PGM_1.OC.018          1 LINE     80    8 PAGE UM   VALERIO             APR. 05, 1980  18:35:30
00600/019A  SDS CLS                  TEST PGM 2      SP             W059:PL1TESTSOU                                                 
            4.3T1   561  SDS_CLS.TEST_PGM_2.SP.019          1 LINE     92    5 PAGE UM   VALERIO             APR. 05, 1980  18:35:32
00600/020A  SDS CLS                  TEST PGM 2      OC             W059:PL1TEST                                                    
            4.3T1   562  SDS_CLS.TEST_PGM_2.OC.020          1 LINE     80   14 PAGE UM   VALERIO             APR. 05, 1980  18:35:34
00601       SLT INSTRUCTION DIAGRAM                  P              S0724 'D3T5' FSNAME=SLT_INSTRUCTION_DIAGRAM..P.(1)           163
            D4T2    788  SLT_INSTRUCTION_DIAGRAM..P.        1 LINE     75    1 PAGE UM   ?                   AUG. 02, 1973  00:33.08
0          PRINTER DIAGRAM SHOWING OPERATION OF SYSTEM/360 SLT (SEARCH LIST) INSTRUCTION.
00602       NOT-RESEQUENCER                          SS             S0564 D4T2 VLO FSNAME=NOT-RESEQUENCER..SS.(1)                789
            D4T2    789  NOT-RESEQUENCER..SS.               1 LINE     63    2 PAGE UM   DWB                 JULY 28, 1977  03:55:16
0          PROGRAM TO PUT SEQUENCE ID ON MTS (OR ANYTHING ELSE) FOR A NEW MASTER WITHOUT CHANGING THE ID'S ON EXISTING
           CARDS.  UNLIKE EARLIER VERSIONS, THE SEQUENCE ID DOES NOT HAVE TO BE ALL NUMERIC.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           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       UC3330                                                # (SEE COMP 787)                                                  
                                                                                    UM                                              
00604       PRNTCNTS                                              # (SEE COMP 540)                                                  
                                                                                    UM                                              
00605/001   TWAIT SUBR                               SA  G          MTA:TIMESUBRS(1,199)                                            
            D4T2    792  TWAIT_SUBR..SA.001                 1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  04:02:04
                         MTA.:TIMESUBRS       
0          USER CALLABLE SUBROUTINE TO WAIT FOR A SPECIFIED REAL TIME INTERVAL AND THEN RETURN.
0          Referenced by comments of: 606/1 
00605/002   TWAIT SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00606/001   TICALL SUBR                              SA  G          MTA:TIMESUBRS(200,299)                                          
            D4T2    793  TICALL_SUBR..SA.001                1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  04:02:05
0          SUBROUTINE TO PROVIDE AN INTERFACE TO THE MTS TIMER INTERRUPT SUBROUTINES (605) FROM FORTRAN PROGRAMS.
00606/002   TICALL SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00607/001   STIMER SUBR                              SA  G          MTA:TIMESUBRS(300)                                              
            D4T2    794  STIMER_SUBR..SA.001                1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  04:02:07
0          SUBROUTINE TO PROVIDE MTS SUPPORT FOR THE OS/360 STIMER AND TTIMER MACROS WHICH
           ARE AVAILABLE IN *SYSMAC.  SEE 545/30 IN FAKEOS FOR A TEST PROGRAM.
00607/002   STIMER SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00608/001  *MVC                                      SA  G  MVC     W032:MVCSOU4.0                                                  
            D4T2    795  MVC..SA.001                        1 LINE     80   38 PAGE UM   EMERY               JULY 28, 1977  04:02:09
0          RECORD REFORMATTING PROGRAM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00608/002  *MVC                                      OC  G          *MVC                                                            
            D4T2    796  MVC..OC.002                        1 LINE     80    4 PAGE UM   EMERY               JULY 28, 1977  04:02:12
                         *MVC                 
00609/001   7330 CCW SCANNER         360/67          SA  G        # (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.
00609/002   7330 CCW SCANNER         COPY:CPSCNPAR   SA  G          COPY:CPSCNPAR                                                   
            D4T2    798  7330_CCW_SCANNER.COPY:CPS.SA.003   1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  04:02:27
                         COPY:CPSCNPAR        
0          COPY SECTION FOR ITEL 7330 CCW SCANNER PARAMETER AND SCRATCH AREAS.
0          Referenced by comments of: 45/1 
00610/001A  FILE SAVE TAPE COPY                      SA             RSTR:FSTAPECOPY(1000)                                           
            4.3T1   563  FILE_SAVE_TAPE_COPY..SA.001        1 LINE     72   16 PAGE UM   HELFFRICH           APR. 05, 1980  18:35:37
                         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 (67/29).
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           1) CHANGED TO FIX BUG IN INPUT TAPE REPOSITIONING WHEN AN ERROR OCCURS ON
              WRITING THE OUTPUT TAPE.
           2) WILL NOW ACQUIRE ALL USER VM IT CAN TO BUILD FILE TABLE IF A LISTING 
              IS BEING MADE OF THE TAPE.
           *****************************************************************************
00610/002A  FILE SAVE TAPE COPY                      OC             RSTR:FSTAPECOPY(1,999)                                          
            4.3T1   564  FILE_SAVE_TAPE_COPY..OC.002        1 LINE     80   14 PAGE UM   HELFFRICH           APR. 05, 1980  18:35:48
00610/003   FILE SAVE TAPE COPY      *FSC            C              *FSC                                                            
            D4T2    801  FILE_SAVE_TAPE_COPY.*FSC.C.003     1 LINE     67    1 PAGE UM   HELFFRICH           JULY 28, 1977  20:58:15
                         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                                 SA  G          S0724 'D3T5' FSNAME=LOCKSTAT..SA.1(1)                        179
            D4T2    802  LOCKSTAT..SA.001                   1 LINE     80    6 PAGE UM   MTA                 AUG. 02, 1973  00:36.13
0          PROGRAM TO PRINT LOCK BYTE COUNTS AND TIMES FROM THE SUPERVISOR (045).  THE SUPERVISOR MUST BE REASSEMBLED WITH
           &NOLOKC SET TO 0.  COPIES COPY:PSA (162) AND COPY:CHACST (577/12).  ASSEMBLE USING *SYSMAC.
           NOTE:  THIS PROGRAM HAS EQUS FOR THE LOCATION OF THE LOCK BYTE COUNTS IN THE PSA.
0          Referenced by comments of: 577/12 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00611/002   LOCKSTAT                                 OC  G          S0724 'D3T5' FSNAME=LOCKSTAT..OC.2(1)                        180
            D4T2    803  LOCKSTAT..OC.002                   1 LINE     80    3 PAGE UM   MTA                 AUG. 02, 1973  00:36.15
00612/001   LETGO SUBR                               SA  G          S1143 D4.1T1 VLO FSNAME=LETGO_SUBR..SA.001(1)                376
            D4.1T1  376  LETGO_SUBR..SA.001                 1 LINE     80    5 PAGE UM   WSG                 APR. 21, 1978  18:32:23
0          FORTRAN CALLABLE SUBROUTINE TO UNLOCK AND RELOCK FILES AT SPECIFIED INTERVALS OF REAL TIME.
           SOURCE IN LINES (1,999).
00612/002   LETGO SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
00613/001   LONGREAD                                 SA  S          S0564 D4T2 VLO FSNAME=LONGREAD..SA.001(1)                    805
            D4T2    805  LONGREAD..SA.001                   1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:36.19
0          PROGRAM TO DEBLOCK MAGNETIC TAPE BLOCKS WHICH ARE UP TO 65534 BYTES LONG USING MTS MAG TAPE DSR.  NOT FOR GENERAL
           USE SINCE IT REQUIRES THAT THE SIZE PARAMETER IN THE TAPERTN DSECT BE PATCHED.  SEE COMMENTS IN LISTING.
00613/002   LONGREAD                                 OC  S          S0564 D4T2 VLO FSNAME=LONGREAD..OC.002(1)                    806
            D4T2    806  LONGREAD..OC.002                   1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:36.21
00614       START JOB                                             # (OBSOLETED BY $SY COMMAND)                                      
            D3T5    184  START_JOB..SA.1                    1 LINE     80    1 PAGE UM                       AUG. 02, 1973  00:36.23
00615/001   PLOT SYSTEM              MACROS          SM  G          W030:CCMACROS                                                   
            D4T2    807  PLOT_SYSTEM.MACROS.SM.001          1 LINE     80    3 PAGE UM   LIFT                JULY 28, 1977  21:01:47
0          THE UM MTS CALCOMP PLOT ROUTINES.
            
           SEVERAL OF THE SOURCE SUB-COMPONENTS OF THE PLOT SYSTEM CONSIST OF MORE THAN ONE ASSEMBLY, SO ASSEMBLE WITH PAR=B.
            
           615/1 CONTAINS PLOT SYSTEM MACRO LIBRARY USED TO ASSEMBLE SOME OF THE ROUTINES.
0          Referenced by comments of: 615/3 
00615/002A  PLOT SYSTEM              PLTBGN          SA  G          W030:PLTBGN                                                     
            4.3T1   565  PLOT_SYSTEM.PLTBGN.SA.002          1 LINE     71   14 PAGE UM   LIFT                APR. 05, 1980  18:35:54
0          SUBROUTINE IN *PLOTSYS.  ASSEMBLE USING *SYSMAC.
00615/003A  PLOT SYSTEM              ASM             SA  G          W030:CCASM                                                      
            4.3T1   566  PLOT_SYSTEM.ASM.SA.003             1 LINE     80   36 PAGE UM   LIFT                APR. 05, 1980  18:36:00
0          SUBROUTINES IN *PLOTSYS.  ASSEMBLE USING PLOT MACROS (615/1) AND *SYSMAC.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           1) PSYMB MOVED (NO VISIBLE EFFECTS).
           2) CALCOMP STUFF CHANGED.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00615/004A  PLOT SYSTEM              FORT            SF  G          W030:CCFORT                                                     
            4.3T1   567  PLOT_SYSTEM.FORT.SF.004            1 LINE     76   17 PAGE UM   LIFT                APR. 05, 1980  18:36:05
0          SUBROUTINES IN *PLOTSYS.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           1) CALCOMP STUFF CHANGED.
           2) PPSYM ELIMINATED.
           3) BUG IN PFLINE FIXED. 
           *****************************************************************************
00615/005   PLOT SYSTEM              PSYM            SA  G          W030:PSYM                                                       
            D4.1T1  378  PLOT_SYSTEM.PSYM.SA.006            1 LINE     68   14 PAGE UM   LIFT                MAY  13, 1978  17:51:44
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 
00615/006   PLOT SYSTEM              PALPHA          SA  G          W030:PALPHA                                                     
            D4.2T1  478  PLOT_SYSTEM.PALPHA.SA.007          1 LINE     68   10 PAGE UM   LIFT                APR. 01, 1979  23:05:34
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 
00615/007   PLOT SYSTEM              CBDSECT         SA  G          W030:CBDSECT                                                    
            D4.2T1  479  PLOT_SYSTEM.CBDSECT.SA.008         1 LINE     69    1 PAGE UM   LIFT                APR. 01, 1979  23:05:35
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                                                   
            D4.1T1  380  PLOT_SYSTEM.ETC:PLOTALPHA.D.009    1 LINE  22530   53 PAGE UM   LIFT                MAY  13, 1978  17:51:47
                         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/138 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00615/009A  PLOT SYSTEM              *PLOTSYS        OL  G          *PLOTSYS                                                        
            4.3T1   568  PLOT_SYSTEM.*PLOTSYS.OL.009        1 LINE   5456   23 PAGE UM   LIFT                APR. 05, 1980  18:36:10
                         *PLOTSYS             
0          OBJECT LIBRARY GENERATED FROM 615/2 + 615/3 + 615/4 + 615/5 + 615/6.
0          Referenced by comments of: 3018/140 
00615/010A  PLOT SYSTEM              PLOTTER         SA  G          W030:PLOTTER                                                    
            4.3T1   569  PLOT_SYSTEM.PLOTTER.SA.010         1 LINE     72   20 PAGE UM   LIFT                APR. 05, 1980  18:36:13
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 W030:PLOTTER.MAC (615/14).
            
           **********************************************************************************
           D4.3 CHANGE:
            
           BUG IN CHECKING LEGALITY OF PEN COMBINATIONS FIXED.
           **********************************************************************************
00615/011C  PLOT SYSTEM              ZIGZAG 1051     SA  G          W030:ZIGZAG                                                     
            4.3T1   570  PLOT_SYSTEM.ZIGZAG_1051.SA.011     1 LINE     80    8 PAGE UM   LIFT                APR. 05, 1980  18:36:17
0          THIS SUBROUTINE REPLACES THE ZIGZAG ROUTINE IN 615/10 FOR USE WITH THE 
           CALCOMP 1051.
00615/012C  PLOT SYSTEM              ENDPLOT         SA  G          W030:ENDPLOT                                                    
            4.3T1   571  PLOT_SYSTEM.ENDPLOT.SA.012         1 LINE     80    2 PAGE UM   LIFT                APR. 05, 1980  18:36:20
0          SUBROUTINE TO PRINT "END OF PLOTS ....." FOR PLOTCON (615/20).
00615/013C  PLOT SYSTEM              TEARLINE        SA  G          W030:TEARLINE                                                   
            4.3T1   572  PLOT_SYSTEM.TEARLINE.SA.013        1 LINE     80    3 PAGE UM   LIFT                APR. 05, 1980  18:36:22
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.
00615/014A  PLOT SYSTEM              MACROS          SM  G          W030:PLOTTER.MAC                                                
            4.3T1   573  PLOT_SYSTEM.MACROS.SM.014          1 LINE     66    3 PAGE UM   LIFT                APR. 05, 1980  18:36:25
0          MACRO LIBRARY USED BY POST-PROCESSING ROUTINES.
0          Referenced by comments of: 615/10, 615/15, 615/17, 615/20, 615/29, 615/31, 615/38, 615/44 
00615/015A  PLOT SYSTEM              *CCQUEUE        SA  G          W030:CCQ                                                        
            4.3T1   574  PLOT_SYSTEM.*CCQUEUE.SA.015        1 LINE     70   19 PAGE UM   LIFT                APR. 05, 1980  18:36:27
0          MAIN PROGRAM FOR *CCQUEUE, AND SUBROUTINES CCQCNCL AND PLOTCOST.  COPIES
           COPY:RATEVEC (651/2), COPY:GLOBALS (1026/3), AND COPY:LLMPSEQU (087).
           ASSEMBLE USING COPY:MTS.MACROS (344/3), AND W030:PLOTTER.MAC (615/14). 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00615/016A  PLOT SYSTEM              *CCQUEUE        OE  G          *CCQUEUE                                                        
            4.3T1   575  PLOT_SYSTEM.*CCQUEUE.OE.016        1 SEQ    6214    6 PAGE UM   LIFT                APR. 05, 1980  18:36:30
                         *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.
0          Referenced by comments of: 615/10 
00615/017A  PLOT SYSTEM              CCP             SA  G          W030:CCP                                                        
            4.3T1   576  PLOT_SYSTEM.CCP.SA.017             1 LINE     68   19 PAGE UM   LIFT                APR. 05, 1980  18:36:32
0          MAIN PROGRAM FOR *CCP PLUS SUBROUTINE TAPECON.  COPIES COPY:GLOBALS (1026/3).
           ASSEMBLE USING W030:PLOTTER.MAC (615/14).
0          Referenced by comments of: 615/37 
00615/018A  PLOT SYSTEM              CCP             OE  G          SYS:CCP                                                         
            4.3T1   577  PLOT_SYSTEM.CCP.OE.018             1 LINE   5252    5 PAGE UM   LIFT                APR. 05, 1980  18:36:35
                         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.
0          Referenced by comments of: 615/10, 615/19, 615/35 
00615/019   PLOT SYSTEM              *CCP            C              *CCP                                                            
            D4T2    823  PLOT_SYSTEM.*CCP.C.017             1 LINE     10    1 PAGE UM   LIFT                JULY 28, 1977  21:02:41
                         *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                                                    
            4.3T1   578  PLOT_SYSTEM.PLOTCON.SA.020         1 LINE     70   18 PAGE UM   LIFT                APR. 05, 1980  18:36:37
0          PROGRAM USED BY THE OPERATOR TO PLOT THE QUEUED PLOTS ON THE UM ONLINE
           PLOTTER.  SEE THE WRITEUP IN THE OPERATORS' MANUAL (592).  ASSEMBLEUSING
           W030:PLOTTER.MAC (615/14).
            
           **********************************************************************************
           D4.3 CHANGE:
            
           COPIES PDF'S FROM TAPE TO FILE, THEN TRANSLATES THEM TO PLOTTER INSTRUCTIONS
           AS IT PLOTS THEM.
           **********************************************************************************
0          Referenced by comments of: 615/12, 615/36 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00615/021A  PLOT SYSTEM              PLOTCON         OE  G          SYS:PLT                                                         
            4.3T1   579  PLOT_SYSTEM.PLOTCON.OE.021         1 LINE   4228    9 PAGE UM   LIFT                APR. 05, 1980  18:36:46
                         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.
00615/022C  PLOT SYSTEM              PLOTCON         OE  G          SYS:PLT1                                                        
            4.3T1   580  PLOT_SYSTEM.PLOTCON.OE.022         1 LINE   4192    8 PAGE UM   LIFT                APR. 05, 1980  18:36:49
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.
00615/023A  PLOT SYSTEM              INSTALLATION    P              S0876 CCGHL 'CALCOMP'FSNAME=PLOTINFO                            
            4.3T1   581  PLOT_SYSTEM.INSTALLATION.P.023     1 LINE     71    3 PAGE UM   LIFT                FEB. 20, 1980  19:28:49
0          Referenced by comments of: 615/5, 615/10 
00615/024   PLOT SYSTEM              PDSTOMNET       SA  G          S0981 W114 'W114SAVE' FSNAME=PDSTOMNET.S                        
            D4T2    834  PLOT_SYSTEM.*PDSTOMNET.SA.028      1 LINE     76    8 PAGE UM   GOODRICH            JUNE 12, 1977  21:56:34
0          THIS IS A UTILITY TO CONVERT A PLOT DESCRIPTION SYSTEM (PDS) PLOT FILE TO A
           PLOT FILE IN MERIT NETWORK STANDARD FORM.
00615/025   PLOT SYSTEM              *PDSTOMNET      OC  G          *PDSTOMNET                                                      
            D4T2    835  PLOT_SYSTEM.*PDSTOMNET.OC.029      1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  21:06:44
                         *PDSTOMNET           
0          ENDS WITH "$CONTINUE WITH *PLOTSYS"
00615/026   PLOT SYSTEM              MNETTOPDS       SA  G          S0981 W114 'W114SAVE' FSNAME=MNETTOPDS.S                        
            D4T2    836  PLOT_SYSTEM.*MNETTOPDS.SA.030      1 LINE     89    5 PAGE UM   GOODRICH            FEB. 15, 1976  18:12:38
0          THIS IS A UTILITY TO CONVERT A MERIT NETWORK STANDARD PLOT FILE TO A PLOT DESCRIPTION (PDS)
           PLOT FILE.
00615/027   PLOT SYSTEM              *MNETTOPDS      OC  G          *MNETTOPDS                                                      
            D4T2    837  PLOT_SYSTEM.*MNETTOPDS.OC.031      1 LINE     80    3 PAGE UM   GOODRICH            JULY 28, 1977  21:07:02
                         *MNETTOPDS           
0          ENDS WITH "$CONTINUE WITH *PLOTSYS"
00615/028   PLOT SYSTEM              *CCT            C              *CCT                                                            
            D4.1T1  389  PLOT_SYSTEM.*CCT.C.032             1 LINE     10    1 PAGE UM   LIFT                MAY  13, 1978  17:52:57
                         *CCT                 
0          COMMAND FILE USED TO RUN THE CCT PROGRAM (615/29).  INVOKED BY ENTERING "MTS
           *CCT" ON THE OPERATORS CONSOLE.
00615/029   PLOT SYSTEM              CCT PGM         SA  G          S0876 CCGHL 'CALCOMP' FSNAME=CCT                                
            D4.1T1  390  PLOT_SYSTEM.CCT_PGM.SA.033         1 LINE     80    3 PAGE UM   LIFT                NOV. 02, 1977  12:28:11
0          PROGRAM TO COMPUTE AND PRINT THE TIME REQUIRED TO PLOT THE PLOTS CURRENTLY
           IN THE PLOT QUEUE (*CCPFILE).  ASSEMBLE USING W030:PLOTTER.MAC (615/14).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 615/28 
00615/030   PLOT SYSTEM              CCT PGM         OC  G          SYS:CCT                                                         
            D4.1T1  391  PLOT_SYSTEM.CCT_PGM.OC.034         1 LINE     80    1 PAGE UM   LIFT                MAY  13, 1978  17:53:00
                         SYS.:CCT             
00615/031   PLOT SYSTEM              PLOTTAPE        SA  G          W030:PLOTTAPE                                                   
            D4.1T1  392  PLOT_SYSTEM.PLOTTAPE.SA.035        1 LINE     80    6 PAGE UM   LIFT                MAY  13, 1978  17:53:00
0          PROGRAM USED FOR TWO FUNCTIONS:  (1) INITIALIZING PLOT TAPES FOR USE BY
           BY *CCP (615/19), AND (2) CONSTRUCTING PLOT PRIORITY INFORMATION (IN THE
           FILE SYS:CCPPRIO (615/33)) FOR USE BY *CCP.  ASSEMBLE USING W030:PLOTTER.MAC 
           (615/14).
00615/032   PLOT SYSTEM              PLOTTAPE        OC  G          W030:PLOTTAPE(1000)                                             
            D4.1T1  393  PLOT_SYSTEM.PLOTTAPE.OC.036        1 LINE     80    3 PAGE UM   LIFT                MAY  13, 1978  17:53:02
00615/033   PLOT SYSTEM              PRIORITY FILE   D              SYS.:CCPPRIO                                                    
            D4.2T1  485  PLOT_SYSTEM.PRIORITY_FILE.D.034    1 LINE     96    1 PAGE UM   LIFT                APR. 01, 1979  23:09:19
                         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            # MTS:TST.CCPFILE                                                 
                                                                                    UM   LIFT                                       
                         SYS:*CCPFILE         
0          THIS IS THE SYSTEM PLOT QUEUE FILE.
0          Referenced by comments of: 615/35 
00615/035   PLOT SYSTEM              BACKUPQ         D            # MTS:TST.EMPTY                                                   
                                                                                    UM   LIFT                                       
                         SYS:BACKUPQ          
0          USED BY CCP (615/18) TO BACKUP *CCPFILE (615/34).
00615/036   PLOT SYSTEM              PLOTDIR         D            # MTS:TST.EMPTY                                                   
                                                                                    UM   LIFT                                       
                         SYS:PLOTDIR          
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            # MTS:TST.EMPTY                                                   
                                                                                    UM   LIFT                                       
                         SYS:PLOTREBAT        
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00615/038   PLOT SYSTEM              CCPINIT         SA  G          S0876 CCGHL 'CALCOMP' FSNAME=CCPINIT                            
            D4.2T1  486  PLOT_SYSTEM.CCPINIT.SA.039         1 LINE     80    8 PAGE UM   LIFT                NOV. 07, 1978  10:05:42
0          PROGRAM USED BY THE SYSTEM OPERATOR TO INITIALIZE (SET VOLUME LABEL AND IDENT 
           FILE) PLOT TAPES FOR USE BY *CCP (615/19).  INSTRUCTIONS WITHIN AND IN
           OPERATOR'S MANUAL.  SOURCE IN LINES (1,999).
            
           ASSEMBLE USING W030:PLOTTER.MAC (615/14).
00615/039   PLOT SYSTEM              CCPINIT         OC  G          SYS:CCPINIT                                                     
            D4.2T1  487  PLOT_SYSTEM.CCPINIT.OC.040         1 LINE     80    3 PAGE UM   LIFT                APR. 01, 1979  23:10:55
                         SYS.:CCPINIT         
0          Referenced by comments of: 615/40 
00615/040   PLOT SYSTEM              *CCL            C              *CCL                                                            
            D4.1T1  398  PLOT_SYSTEM.*CCL.C.045             1 LINE     38    1 PAGE UM   LIFT                MAY  13, 1978  17:53:08
                         *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                           
            D4.1T1  399  PLOT_SYSTEM.CCPDEFER.SA.046        1 LINE     80    5 PAGE UM   LIFT                APR. 28, 1978  20:17:20
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                                                    
            D4.1T1  400  PLOT_SYSTEM.CCPDEFER.OC.047        1 LINE     80    2 PAGE UM   LIFT                MAY  13, 1978  17:53:11
                         SYS.:CCPDEFER        
0          Referenced by comments of: 615/43 
00615/043   PLOT SYSTEM              *CCD            C              *CCD                                                            
            D4.2T1  488  PLOT_SYSTEM.*CCD.C.044             1 LINE     37    1 PAGE UM   LIFT                APR. 01, 1979  23:10:56
                         *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                             
            D4.2T1  489  PLOT_SYSTEM.PIDENT.SA.045          1 LINE     80    4 PAGE UM   LIFT                FEB. 19, 1979  22:09:23
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
           W030:PLOTTER.MAC (615/14).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 615/46 
00615/045   PLOT SYSTEM              PIDENT          OC  G          SYS:PIDENT                                                      
            D4.2T1  490  PLOT_SYSTEM.PIDENT.OC.046          1 LINE     80    1 PAGE UM   LIFT                APR. 01, 1979  23:20:29
                         SYS.:PIDENT          
00615/046   PLOT SYSTEM              *PLB            C              *PLB                                                            
            D4.2T1  491  PLOT_SYSTEM.*PLB.C.047             1 LINE     38    1 PAGE UM   LIFT                APR. 01, 1979  23:20:30
                         *PLB                 
0          COMMANDS TO RUN PIDENT (615/44) FROM OPERATOR'S CONSOLE.  DOCUMENTATION
           IS IN THE OPERATOR'S MANUAL (592).
00615/047   PLOT SYSTEM              MEMO 392        WT             S1024 CCMEMO 'DOCUMENT' FSNAME=M392PLOTSYS.PENCHG               
            D4.2T1  492  PLOT_SYSTEM.MEMO_392.WT.048        1 LINE     87    1 PAGE UM   LIFT                JAN. 05, 1979  13:21:30
0          THIS IS COMPUTING CENTER MEMO 392 -- "PENCHG: PEN SIZE CHANGES."
00616/001A  TERM USAGE STATISTICS                    SA  G  DCST    WSG:DCSTAT(1,999)                                               
            4.3T1   582  TERM_USAGE_STATISTICS..SA.001      1 LINE     80   22 PAGE UM   WSG                 APR. 05, 1980  18:40:40
                         WSG.:DCSTAT          
0          PROGRAM TO COMPUTE SYSTEM USAGE BY VARIOUS TERMINAL TYPES, CLASSES, AND SPEEDS.  IT READS
           *STATISTICS DATA AND PRINTS THE TOTAL USAGE (ELAPSED TIME, CPU TIME, CPU VMI, AND WAIT VMI)
           FOR EACH TERMINAL TYPE AND SUMMARY LINES FOR CLASSES OF TERMINALS.  THE DISTRIBUTED VERSION
           IS SET UP FOR THE UM TERMINAL I/O CONFIGURATION (3 DATA CONCENTRATORS, MEMOREX 1270 (2703),
           MERIT, 3270, ETC.).  THE FILE CONTAINING THE STATISTICS DATA MAY BE SPECIFIED IN THE PAR=
           FIELD OR A TAPE MAY BE SPECIFIED BY GIVING "PAR=TAPE-VOL '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).  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 (ITEMS IN () ARE OPTIONAL).  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).
00616/002A  TERM USAGE STATISTICS                    OC  G          WSG:DCSTAT(1000)                                                
            4.3T1   583  TERM_USAGE_STATISTICS..OC.002      1 LINE     80    7 PAGE UM   WSG                 APR. 05, 1980  18:40:47
0          OBJECT FROM 616/1 + 617/2.  ENDS WITH A "$CONTINUE WITH SYS:DIRLIB" CARD.
00617/001   USAGE STATISTICS         STAT PGM        SA  G          W116:STAT.S                                                     
            D4.2T1  495  USAGE_STATISTICS.STAT_PGM.SA.001   1 LINE     80   30 PAGE UM   H YOUNG             APR. 01, 1979  23:48:50
0          PROGRAM TO PRINT SYSTEM USAGE FOR SPECIFIED USER ID'S, ANSWERBACKS, AND MASTER SOURCE DEVICE NAMES.
           FOR EACH RECORD FOUND, THE USER ID, PROJECT NUMBER, SIGNON AND OFF TIMES, DATE, ANSWERBACK, ELAPSED
           TIME, AND MERIT CONNECT TIME ARE PRINTED ON SPRINT AND THE TOTAL ELAPSED TIME FOR ALL JOBS FOUND IS
           PRINTED ON SERCOM.  INPUT COMMANDS ARE READ FROM GUSER IN RESPONSE TO THE PROMPT "READY:" ON SERCOM.
           THE FOLLOWING COMMANDS ARE ACCEPTED:
            
               DATE MM-DD MM-DD    SPECIFY DATE RANGE FOR SUBSEQUENT SEARCHES.
               TIME HH:MM HH:MM    SPECIFY TIME RANGE FOR SUBSEQUENT SEARCHES.
               U USERID            SCAN FOR ALL RUNS FOR THIS USERID.
               D NAME              SCAN FOR ALL RUNS FROM THIS MSOURCE DEVICE.
               A ANSWERBACK        SCAN FOR ALL RUNS WITH THIS ANSWERBACK CODE.
1                                                                                               SUN SEP 08/96   19:03:19   Page  314
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0              N                   SCAN FOR ALL RUNS USING MERIT OUTBOUND CONNECTIONS.
            
           NOTE:  THE CHARACTER "#" IS USED AS A FILL CHARACTER FOR THE MATCHING DONE BY THE U, D, AND A
           COMMANDS.  FOR EXAMPLE "D LA##" WILL FIND ALL JOBS ON ANY "LA" (1270) LINE.  THE FILE FROM WHICH
           THE INPUT STATISTICS DATA IS READ MAY BE SPECIFIED IN THE PAR FIELD OR A TAPE MAY BE SPECIFIED
           BY GIVING "PAR=TAPE-VOL 'TAPE ID'" WHERE VOL IS THE VOLUME NAME OF THE TAPE TO BE MOUNTED
           AND 'TAPE ID' IS THE 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 IS ENTERED (THE TIME IS OPTIONAL).  THIS FACILITY MAKES USE OF THE TAPE 
           DIRECTORY ROUTINES (742) AND SYS:DIRECTORY (50/6), WHICH ACCESSES TAPE INFORMATION.
           IF NO DATE COMMAND IS ENTERED, *STATISTICS IS ACCESSED.  ASSEMBLE USING COPY:MTS.MACROS
           (344/3) AND THE USAGE STATISTICS MACROS (617/3).
00617/002   USAGE STATISTICS         STATIO SUBR     SA  G          W116:STATTAPE.S                                                 
            D4.2T1  496  USAGE_STATISTICS.STATIO_S.SA.002   1 LINE     72   16 PAGE UM   H YOUNG             APR. 01, 1979  23:48:53
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 
00617/003   USAGE STATISTICS         MACROS          SM  G          W116:STATLIB                                                    
            D4.2T1  497  USAGE_STATISTICS.MACROS.SM.003     1 LINE     72    3 PAGE UM   H YOUNG             APR. 01, 1979  23:49:02
0          MACRO LIBRARY FOR 617/1 AND 617/2.
0          Referenced by comments of: 616/1, 617/1 
00617/004   USAGE STATISTICS                         OC  G          W108:STAT                                                       
            D4.2T1  498  USAGE_STATISTICS..OC.004           1 LINE     80    6 PAGE UM   H YOUNG             APR. 01, 1979  23:49:03
0          OBJECT FROM 617/1 + 617/2.  ENDS WITH A "$CONTINUE WITH SYS:DIRLIB" CARD.
00618/001   BUFSTAT                                  SA  G  BUFS    WSG:BUFSTAT(1,999)                                              
            D4T2    842  BUFSTAT..SA.001                    1 LINE     80    4 PAGE UM   WSG                 JULY 28, 1977  21:07:12
                         WSG.: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.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
0          Referenced by comments of: 9/1 
00618/002   BUFSTAT                                  OC  G          WSG:BUFSTAT(1000)                                               
            D4T2    843  BUFSTAT..OC.002                    1 LINE     80    1 PAGE UM   WSG                 JULY 28, 1977  21:07:15
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00619/001  *ASMT                     *ASMTSYSMAC     SM  O          *ASMTSYSMAC                                                     
            D4.2T1  499  ASMT.*ASMTSYSMAC.SM.001            1 LINE     80  167 PAGE UM   TIFFANY             APR. 01, 1979  23:49:04
                         *ASMTSYSMAC          
0          THE IBM TSS/360 ASSEMBLER MODIFIED TO RUN IN MTS.
            
           *ASMTSYSMAC IS THE ASMT VERSION OF *SYSMAC.
0          Referenced by comments of: 225/1 
00619/002  *ASMT                     MACROS          SM  G  MAC     S0683 OGDEN FSNAME=ASMTMACROS                                   
            D4T2    845  ASMT.MACROS.SM.002                 1 LINE     80   75 PAGE UM   TIFFANY             JUNE 17, 1976  22:40:31
0          MACRO LIBRARY USED TO ASSEMBLE COMPS 619/3 THROUGH 619/23.  CONTAINS DSECTS, PSECTS, AND OTHER TID BITS.
0          Referenced by comments of: 619/3 
00619/003  *ASMT                     PHASE 1.1       SA  S  A1      S0683 OGDEN FSNAME=CEVA1.S                                      
            D4T2    846  ASMT.PHASE_1.1.SA.003              1 LINE     80   45 PAGE UM   TIFFANY             MAR. 02, 1976  00:11:50
0          COMPS 619/3 THROUGH 619/23 SHOULD ALL BE ASSEMBLED USING THE ASMTMACROS MACRO LIBRARY (619/2) AND *SYSMAC.
00619/004  *ASMT                     PHASE 1.2       SA  S  A2      S0683 OGDEN FSNAME=CEVA2.S                                      
            D4T2    847  ASMT.PHASE_1.2.SA.004              1 LINE     80   52 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:40
00619/005  *ASMT                     PHASE 1.3       SA  S  A3      S0683 OGDEN FSNAME=CEVA3.S                                      
            D4T2    848  ASMT.PHASE_1.3.SA.005              1 LINE     80   50 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:45
00619/006  *ASMT                     PHASE 1.4       SA  S  A4      S0683 OGDEN FSNAME=CEVA4.S                                      
            D4T2    849  ASMT.PHASE_1.4.SA.006              1 LINE     80   42 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:50
00619/007  *ASMT                     PHASE 1.5       SA  S  A5      S0683 OGDEN FSNAME=CEVA5.S                                      
            D4T2    850  ASMT.PHASE_1.5.SA.007              1 LINE     80   51 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:53
00619/008  *ASMT                     PHASE 1.6       SA  S  A6      S0683 OGDEN FSNAME=CEVA6.S                                      
            D4T2    851  ASMT.PHASE_1.6.SA.008              1 LINE     80   48 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:59
00619/009  *ASMT                     PHASE 1.7       SA  S  A7      S0683 OGDEN FSNAME=CEVA7.S                                      
            D4T2    852  ASMT.PHASE_1.7.SA.009              1 LINE     80   41 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:03
00619/010  *ASMT                     PHASE 1.8       SA  S  A8      S0683 OGDEN FSNAME=CEVA8.S                                      
            D4T2    853  ASMT.PHASE_1.8.SA.010              1 LINE     80   19 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:07
00619/011  *ASMT                     PHASE 1.9       SA  S  A9      S0683 OGDEN FSNAME=CEVA9.S                                      
            D4T2    854  ASMT.PHASE_1.9.SA.011              1 LINE     80   10 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:09
00619/012  *ASMT                     PHASE 2.1       SA  S  B1      S0683 OGDEN FSNAME=CEVB1.S                                      
            D4T2    855  ASMT.PHASE_2.1.SA.012              1 LINE     80   30 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:11
00619/013  *ASMT                     PHASE 2.2       SA  S  C1      S0683 OGDEN FSNAME=CEVC1.S                                      
            D4T2    856  ASMT.PHASE_2.2.SA.013              1 LINE     80   42 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:14
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00619/014  *ASMT                     PHASE 2.3       SA  S  D1      S0683 OGDEN FSNAME=CEVD1.S                                      
            D4T2    857  ASMT.PHASE_2.3.SA.014              1 LINE     80   20 PAGE UM   TIFFANY             FEB. 11, 1975  01:57:51
00619/015  *ASMT                     PHASE 3.1       SA  S  E1      S0683 OGDEN FSNAME=CEVE1.S                                      
            D4T2    858  ASMT.PHAS1_3.1.SA.015              1 LINE     80   65 PAGE UM   TIFFANY             MAR. 10, 1976  17:14:58
00619/016  *ASMT                     PHASE 3.2       SA  S  E2      S0683 OGDEN FSNAME=CEVE2.S                                      
            D4T2    859  ASMT.PHASE_3.2.SA.016              1 LINE     80   65 PAGE UM   TIFFANY             FEB. 13, 1976  03:55:40
00619/017  *ASMT                     PHASE 4         SA  S  F1      S0683 OGDEN FSNAME=CEVF1.S                                      
            D4T2    860  ASMT.PHASE_4.SA.017                1 LINE     80   59 PAGE UM   TIFFANY             JAN. 15, 1975  21:42:34
00619/018  *ASMT                     ASMTGO          SA  B  GO      S0683 OGDEN FSNAME=ASMTGO.S                                     
            D4T2    861  ASMT.ASMTGO.SA.018                 1 LINE     80    4 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:15
00619/019  *ASMT                     ASMTDEFS        SA     DEFS    S0683 OGDEN FSNAME=ASMTDEFS.S                                   
            D4T2    862  ASMT.ASMTDEFS.SA.019               1 LINE     80    4 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:12
0          ASMT LOW-CORE SYMBOL TABLE.
00619/020  *ASMT                     CEVAR           SA  S  AR      S0683 OGDEN FSNAME=CEVAR.S                                      
            D4T2    863  ASMT.CEVAR.SA.020                  1 LINE     80    8 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:34
0          ASMT PSECTS.  ASSEMBLE WITH PAR=BATCH.
00619/021  *ASMT                     LPC             SA  O  LPC     S0683 OGDEN FSNAME=ASMTLPC.S                                    
            D4T2    864  ASMT.LPC.SA.021                    1 LINE     80   20 PAGE UM   TIFFANY             JUNE 01, 1975  23:30:22
0          ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT).
00619/022  *ASMT                     OBJ PRODUCER    SA  O  DECK    S0683 OGDEN FSNAME=DECK.S                                       
            D4T2    865  ASMT.OBJ_PRODUCER.SA.022           1 LINE     80   28 PAGE UM   TIFFANY             FEB. 13, 1976  03:55:47
0          PROGRAM TO CONVERT TSS OBJECT TO MTS FORMAT OBJECT DECK.
00619/023  *ASMT                     CEVML           SA  O  ML      S0683 OGDEN FSNAME=CEVML.S                                      
            D4.1T1  403  ASMT.CEVML.SA.023                  1 LINE     80   10 PAGE UM   TIFFANY             APR. 24, 1978  01:52:36
0          MACRO AND COPY LIBRARY RETRIEVAL.  COPIES *GDINFODSECT (594).
00619/024A *ASMT                     *ASMT           OE  O          *ASMT                                                           
            4.3T1   584  ASMT.*ASMT.OE.024                  1 LINE   3236  101 PAGE UM   TIFFANY             APR. 05, 1980  18:40:50
                         *ASMT                
0          *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16):
            
           NO LONGER IN SEGMENT 2 DUE TO LOW USE COUNT.
           *****************************************************************************
00619/025  *ASMT                     DOCUMENTATION   WF             S0683 OGDEN FSNAME=ASMTDOC                                      
            D4T2    869  ASMT.DOCUMENTATION.WF.026          1 LINE    153    5 PAGE UM   TIFFANY             JAN. 15, 1975  21:41:13
0          *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION.  FILE HAS A "$CONTINUE WITH *DUMMY*" LINE.
1                                                                                               SUN SEP 08/96   19:03:19   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          NOTE:  THIS FILE HAS COMMANDS AT NEGATIVE LINE NUMBERS.
00619/026  *ASMT                     FRAME           SA  G  FRAM    S0683 OGDEN FSNAME=FRAME.S                                      
            D4T2    870  ASMT.FRAME.SA.027                  1 LINE     80    4 PAGE UM   TIFFANY             APR. 22, 1977  15:08:31
0          SUBROUTINE TO INTERCEPT SCARDS CALLS AND EXPAND "*FRAME" BOXES.  ALSO USABLE
           WITH *ASMG.
00619/027  *ASMT                     FRAME           OE  G          S0683 OGDEN FSNAME=FRAME.O                                      
            D4T2    871  ASMT.FRAME.OE.028                  1 SEQ     862    1 PAGE UM   TIFFANY             APR. 22, 1977  15:08:32
00620/001   STAT DSECT               COPY:STATDSECT  SA  G        # (OBSOLETED BY 344/3)                                            
            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).
00620/002   STAT DSECT               GOM STAT DSECT  SG  G          COPY:STATDSECT.SG                                               
            D4.2T1  500  STAT_DSECT.GOM_SOURCE.SG.002       1 LINE     95    3 PAGE UM   MTS       HELFFRICH APR. 01, 1979  23:49:18
                         COPY:STATDSECT.SG    
0          GOM VERSION OF *STATISTICS RECORD DSECT.
00621/001A  DIRECT ACCESS ERROR LOG  *DLG            C              *DLG                                                            
            4.3T1   585  DIRECT_ACCESS_ERROR_LOG.*.C.001    1 LINE     36    1 PAGE UM   MTA                 APR. 05, 1980  18:40:57
                         *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.
           NOTE:  THE FILE ETC:3330LOCK IS LOCKED BY *DLG (WITH QUIT) TO KEEP TWO COPIES OF
                  *DLG FROM RUNNING SIMULTANEOUSLY.
00621/002A  DIRECT ACCESS ERROR LOG  READ3330LOG     SA  G          MTA:READ3330LOG(1,999)                                          
            4.3T1   586  DIRECT_ACCESS_ERROR_LOG.R.SA.002   1 LINE     72    3 PAGE UM   MTA                 APR. 05, 1980  18:40:59
                         MTA.:READ3330LOG     
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/18), COPY:GLOBALS (1026/3),
           AND COPY:LLMPSEQU (087).  ASSEMBLE USING COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 621/1, 621/4, 621/6 
00621/003A  DIRECT ACCESS ERROR LOG  READ3330LOG     OC  G          MTA:READ3330LOG(1000)                                           
            4.3T1   587  DIRECT_ACCESS_ERROR_LOG.R.OC.003   1 LINE     80    3 PAGE UM   MTA                 APR. 05, 1980  18:41:02
00621/004A  DIRECT ACCESS ERROR LOG  PRINT UC 3330   SA  G          MTA:PRINTUC3330(1,999)                                          
            4.3T1   588  DIRECT_ACCESS_ERROR_LOG.P.SA.004   1 LINE     57    1 PAGE UM   MTA                 APR. 05, 1980  18:41:05
                         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.  "PAR=ERRORS" MEANS TO PRINT ONLY THOSE RECORDS
           WHICH ARE REALLY ERRORS.  CALLS READBFR ROUTINE (709) AND PRUC3330 (621/10).
1                                                                                               SUN SEP 08/96   19:03:19   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          COPIES COPY:CMDAREADSECT (531/18).
00621/005A  DIRECT ACCESS ERROR LOG  PRINT UC 3330   OC  G          MTA:PRINTUC3330(1000)                                           
            4.3T1   589  DIRECT_ACCESS_ERROR_LOG.P.OC.005   1 LINE     80    1 PAGE UM   MTA                 APR. 05, 1980  18:41:07
00621/006   DIRECT ACCESS ERROR LOG  CONSOLE WATCH   SA  O          S0724 'D3T5' FSNAME=DISK_ERROR_LOG.CONSOLE_WAT.SA.6(1)       242
            D4T2    878  DIRECT_ACCESS_ERROR_LOG.C.SA.006   1 LINE     80    2 PAGE UM   MTA                 AUG. 02, 1973  00:53.48
0          PROGRAM TO KEEP WATCHING OUTPUT PRINTED ON OPERATORS CONSOLE LOOKING FOR 2314
           DISK UNIT CHECK MESSAGES AND WRITES THEM IN A FILE.  READ3330LOG (621/2) IS A
           REPLACEMENT FOR THIS PROGRAM WHEN 3330 AND 2305 HARDWARE IS BEING USED.
0          Referenced by comments of: 621/1 
00621/007   DIRECT ACCESS ERROR LOG  CONSOLE WATCH   OC  O          S0724 'D3T5' FSNAME=DISK_ERROR_LOG.CONSOLE_WAT.OC.7(1)       243
            D4T2    879  DIRECT_ACCESS_ERROR_LOG.C.OC.007   1 LINE     80    1 PAGE UM   MTA                 AUG. 02, 1973  00:53.50
00621/008A  DIRECT ACCESS ERROR LOG  SORT AND PRINT  SA  G          MTA:PRINTUC                                                     
            4.3T1   590  DIRECT_ACCESS_ERROR_LOG.S.SA.008   1 LINE     72   11 PAGE UM   MTA                 APR. 05, 1980  18:41:10
                         MTA.:PRINTUC         
0          PROGRAM TO SORT AND SUMMARIZE UNIT CHECK AND BUFFERED LOG DATA FOR 3330 AND 2305.
           ACCEPTS PAR=STC (FOR STC DRIVES, SEE BELOW), 2305 (TO PRINT 2305 ERRORS ONLY), OR
           BOTH (FOR BOTH 2305 AND 3330 ERRORS).  IF NEITHER 2305 NOR BOTH IS GIVEN, IT PROMTS.
           COPIES COPY:CMDAREADSECT (531/18).  CALLS PRUC3330 (621/10) AND JVCT (674).
           HAS ASSEMBLY PARAMETER (&UM) WHICH REMAPS STC DRIVE IDS ACCORDING THE MESS STC
           MADE OF THEM AT UM.
00621/009A  DIRECT ACCESS ERROR LOG  SORT AND PRINT  OC  G          MTA:PUC                                                         
            4.3T1   591  DIRECT_ACCESS_ERROR_LOG.S.OC.009   1 LINE     80    7 PAGE UM   MTA                 APR. 05, 1980  18:41:18
                         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)                                             
            4.3T1   592  DIRECT_ACCESS_ERROR_LOG.P.SA.010   1 LINE     71    3 PAGE UM   MTA                 APR. 05, 1980  18:41:21
                         MTA.:PRUC3330        
0          SUBROUTINE CALLED BY 621/4 AND 621/8.  COPIES COPY:CMDAREADSECT (531/18).
0          Referenced by comments of: 621/4, 621/8 
00621/011A  DIRECT ACCESS ERROR LOG  PRUC3330        OC  G          MTA:PRUC3330(1000)                                              
            4.3T1   593  DIRECT_ACCESS_ERROR_LOG.P.OC.011   1 LINE     80    3 PAGE UM   MTA                 APR. 05, 1980  18:41:24
00621/012   DIRECT ACCESS ERROR LOG  INIT:UC3330LOG  D            # MTS:TST.3330LOG                                                 
                                                                                    UM   MTA                                        
                         INIT:UC3330LOG       
0          LOG FILE USED BY THE CMDSTAT PICKUP PROGRAM (*CMD) TO SAVE TYPE 4 (DIRECT ACCESS
           UNIT CHECK) RECORDS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00621/013   DIRECT ACCESS ERROR LOG  ETC:3330LOCK    D            # MTS:TST.3330LOCK                                                
                                                                                    UM   MTA                                        
                         ETC:3330LOCK         
0          EMPTY FILE LOCKED BY *DLG TO PREVENT MORE THAN ONE COPY RUNNING AT ONCE.
00622       FCBDSECT                                 SA           # (OBSOLETED BY 344)                                              
            D3.2T2    7  FCBDSECT..SA.                      1 LINE     80    4 PAGE UM                       MAR. 21, 1975  02:15:34
00623       FDUBDSECT                                SA           # (OBSOLETED BY 344)                                              
            D3.2T2    8  FDUBDSECT..SA.                     1 LINE     80    3 PAGE UM                       MAR. 21, 1975  02:15:37
00624       WOPTRDSECT                               SA           # (OBSOLETED BY 344)                                              
            D3.2T2    9  WOPTRDSECT..SA.                    1 LINE     80    1 PAGE UM                       MAR. 21, 1975  02:15:39
00625/001  *TAPEFIXER                                SA  O          S1237 TAPES 'TAPEFS' FSNAME=TAPEFIXER                           
            D4.1T1  407  TAPEFIXER..SA.001                  1 LINE     73   13 PAGE UM   LIFT                SEP. 28, 1977  16:56:00
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                                                      
            D4.1T1  408  TAPEFIXER..OE.002                  1 LINE   7503    4 PAGE UM   LIFT                MAY  13, 1978  17:53:50
                         *TAPEFIXER           
00626/001   ATNTRP SUBR                              SA  G  ATRP    S0579 SAVE 'JWS-SAVE' FSNAME=ATNTRP.S                           
            D4T2    886  ATNTRP_SUBR..SA.001                1 LINE     80    1 PAGE UM   DWB                 JULY 26, 1974  09:21.43
0          SUBROUTINE TO ALLOW FORTRAN USERS TO CALL ATTNTRP.
           MISSED IN DIST 3.0.
00626/002   ATNTRP SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00627/001   GDINF SUBR                               SA  G          S0564 D4T2 VLO FSNAME=GDINF_SUBR..SA.001(1)                  887
            D4T2    887  GDINF_SUBR..SA.001                 1 LINE     80    1 PAGE UM   DWB                 MAR. 04, 1976  10:29:29
0          SUBROUTINE TO ALLOW FORTRAN USERS TO CALL GDINFO.
           MISSED IN DIST 3.0.
00627/002   GDINF SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00628/001A *3284RTN                  DSR             SA  B          S0683 OGDEN FSNAME=3284.S                                       
            4.3T1   594  3284RTN.DSR.SA.001                 1 LINE     69    2 PAGE UM   OGDEN               JUNE 27, 1979  05:08:41
0          DSR FOR IBM 3284, 3286, 3287, AND SIMILAR PRINTERS. USES THE TR3270 TABLES
           (629/12).
0          Referenced by comments of: 629/12 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00628/002A *3284RTN                  DSR             OC  B          *3284RTN                                                        
            4.3T1   595  3284RTN.DSR.OC.002                 1 LINE     80    1 PAGE UM   OGDEN               APR. 05, 1980  18:45:20
                         *3284RTN             
00628/003  *3284RTN                  UNIT CHECK      SA  G          MTS:UC3284(1,999)                                               
            D4T2    888  UC3284..SA.001                     1 LINE     72    3 PAGE UM   OGDEN               JULY 28, 1977  21:20:35
                         MTS.:UC3284          
0          UNIT CHECK ROUTINES FOR IBM 3284, 3286, 3287, AND SIMILAR PRINTERS.
00628/004  *3284RTN                  UNIT CHECK      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00629/001A *3270RTN                                  SA  G          W261:3270.S                                                     
            4.3T1   596  3270RTN..SA.001                    1 LINE     73   86 PAGE UBC  SAYLE     BLOCK     APR. 05, 1980  18:45:22
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/12 
00629/002A *3270RTN                  UPDATE          UC  G          W261:3270.UPD                                                   
            4.3T1   597  3270RTN.UPDATE.UC.002              1 LINE     98   27 PAGE UBC  SAYLE     BLOCK     APR. 05, 1980  18:45:34
0          UPDATE TO PRODUCE CURRENT *3270RTN SOURCE FROM D4.2 SOURCE (629/1).
00629/003A *3270RTN                  IO3066          SA  G  SCON    S0683 OGDEN FSNAME=IO3066.S                                     
            4.3T1   598  3270RTN.IO3066.SA.003              1 LINE     80   14 PAGE UM   BLOCK               JUNE 27, 1979  05:09:55
0          SUBROUTINE TO SIMULATE A 3270 ON A 3066 BY INTERPRETING A 3270 CHANNEL
           PROGRAM.  ASSEMBLE USING *SYSMAC.
00629/004A *3270RTN                  ACTIVITY SUBR   SA  G          S0683 OGDEN FSNAME=ACTIVITY.S(4)                                
            4.3T2   567  3270RTN.ACTIVITY_SUBR.SA.004       1 LINE     80   11 PAGE UBC  SAYLE     BLOCK     JAN. 31, 1980  01:17:33
0          GENERATES %ACTIVITY DISPLAY.  CALLED BY 629/1.  COPIES COPY:LLMPSEQU (087)
           AND COPY:GLOBALS (1026/3).  ASSEMBLE USING COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 413/1, 629/8, 647/1 
00629/005A *3270RTN                                  OC  G          *3270RTN                                                        
            4.3T1   599  3270RTN..OC.005                    1 LINE  18926    9 PAGE UBC  SAYLE     BLOCK     APR. 05, 1980  18:45:46
                         *3270RTN             
0          OBJECT FOR 629/1, 629/3, AND 629/4.
00629/006  *3270RTN                  GRAB3270        SA  G          S0683 OGDEN FSNAME=GRAB3270.S                                   
            D4.2T2  531  3270RTN.GRAB3270.SA.004            1 LINE     59    1 PAGE UBC  SAYLE     BLOCK     DEC. 03, 1978  04:08:59
0          THIS IS THE SHARED TABLE FOR USE WITH THE %GRAB AND %FLIP COMMANDS IN
           THE 3270 DSR.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00629/007  *3270RTN                  GRAB3270        OC  G          SEG2:GRAB3270                                                   
            D4.2T2  532  3270RTN.GRAB3270.OC.005            1 LINE     80    1 PAGE UBC  SAYLE     BLOCK     APR. 09, 1979  00:21:25
                         SEG2:GRAB3270        
0          THIS OBJECT SHOULD BE LOADED BY PISTLE PRIOR TO LOADING THE 3270 DSR.
00629/008  *3270RTN                  TEST ACTIVITY   SF  G  TACT    S0683 OGDEN FSNAME=TACTIVITY.S                                  
            D4.1T1  411  3270RTN.TEST_ACTIVITY.SF.006       1 LINE     80    3 PAGE UM   BLOCK               APR. 30, 1978  14:24:15
0          A MAIN PROGRAM WHICH CALLS THE ACTIVITY SUBROUTINE (629/4) AND PRINTS THE
           RESULTS ON SPRINT.  FOR TESTING PURPOSES ONLY.
00629/009  *3270RTN                  TEST ACTIVITY   OC  G          S0683 OGDEN FSNAME=TA                                           
            D4.1T1  412  3270RTN.TEST_ACTIVITY.OC.007       1 LINE    516    1 PAGE UM   BLOCK               APR. 30, 1978  14:24:17
00629/010A *3270RTN                  *3066RTN        OC  G          *3066RTN                                                        
            4.3T1   600  3270RTN.*3066RTN.OC.010            1 LINE     24    1 PAGE UBC  SAYLE     BLOCK     APR. 05, 1980  18:45:48
                         *3066RTN             
0          CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD.
00629/011A *3270RTN                  *3036RTN        OC  G          *3036RTN                                                        
            4.3T1   601  3270RTN.*3036RTN.OC.011            1 LINE     24    1 PAGE UBC  SAYLE     BLOCK     APR. 05, 1980  18:45:51
                         *3036RTN             
0          CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD.
00629/012A *3270RTN                  TR3270          SA  G          S0683 OGDEN FSNAME=TR3270.S                                     
            4.3T1   602  3270RTN.TR3270.SA.012              1 LINE     72    3 PAGE UM   BLOCK               JUNE 27, 1979  05:08:44
0          PROVIDES THE TR AND TRT TABLES USED BY THE 3270 DSR (629/1), THE 
           3284 DSR (628/1), THE EDITOR (648), *APC (496), AND THE OPERATOR
           JOB (634).
0          Referenced by comments of: 628/1, 629/1, 634/1, 648/4 
00629/013A *3270RTN                  TR3270          OC  G          SEG2:TR3270                                                     
            4.3T1   603  3270RTN.TR3270.OC.013              1 LINE     80    4 PAGE UM   BLOCK               APR. 05, 1980  18:45:57
                         SEG2:TR3270          
00630/001   TRUNCATE                                 SA  G  TRUN    S0684 UNSP FSNAME=TRUNCATE.S                                    
            D4T2    897  TRUNCATE..SA.001                   1 LINE     80    7 PAGE UM   UNSP                MAR. 27, 1976  12:24:30
0          SCANS FILES ON USERS ACCOUNT AND TRUNCATES THOSE THAT NEED IT.  AT UM, THIS PROGRAM
           IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.  COPIES
           *GFINFODSECT (593).
00630/002   TRUNCATE                                 OE  G          UNSP:TRUNCATE                                                   
            D4T2    898  TRUNCATE..OE.002                   1 SEQ    2693    3 PAGE UM   UNSP                JULY 28, 1977  21:26:04
                         UNSP:TRUNCATE        
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00631/001A  ACCOUNTING CLS           CLSTV           SA  G  CLST    S0027 DISTRB FSNAME=CLSTV                                       
            4.3T1   604  ACCOUNTING_CLS.CLSTV.SA.001        1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  10:48:08
0          PROGRAM TO PRODUCE CLSTRANSVEC WHICH IS A COPY SECTION FOR ACCCLS. 
           COPIES GRDEF (104/70).  ASSEMBLE USING COPY:MTS.MACROS (344/3).
00631/002C  ACCOUNTING CLS           CLSTV           UC  G          S0027 DISTRB FSNAME=CLSTVUPD                                    
            4.3T1   605  ACCOUNTING_CLS.CLSTV.UC.002        1 LINE     49    1 PAGE UM   ENGLE               FEB. 20, 1980  10:48:14
0          Referenced by comments of: 631/4 
00631/003A  ACCOUNTING CLS           CLSTV           OC  G  CLST    S0027 DISTRB FSNAME=CLST                                        
            4.3T1   606  ACCOUNTING_CLS.CLSTV.OC.003        1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  10:48:24
0          Referenced by comments of: 631/5 
00631/004A  ACCOUNTING CLS           CLSTRANSVEC     SA  G          S0027 DISTRB FSNAME=CLSTRANSVEC                                 
            4.3T1   607  ACCOUNTING_CLS.CLSTRANSVE.SA.004   1 LINE     19    1 PAGE UM   ENGLE               FEB. 20, 1980  10:49:09
0          COPY SECTION FOR ACCCLS PRODUCED BY RUNNING CLSTV (631/2).
00631/005A  ACCOUNTING CLS           ACCCLS          SA  G  ACLS    S0027 DISTRB FSNAME=ACCCLS                                      
            4.3T1   608  ACCOUNTING_CLS.ACCCLS.SA.005       1 LINE     80    6 PAGE UM   ENGLE               FEB. 20, 1980  10:52:14
0          INTERFACE BETWEEN ACCOUNTING CLS CALL AND ACCMXMAT.
           COPIES GRDEF (104/70) AND CLSTRANSVEC (631/3).
0          Referenced by comments of: 631/15 
00631/006C  ACCOUNTING CLS           ACCCLS          UC  G          S0027 DISTRB FSNAME=ACCCLSUPD                                   
            4.3T1   609  ACCOUNTING_CLS.ACCCLS.UC.006       1 LINE     65    1 PAGE UM   ENGLE               FEB. 20, 1980  10:53:07
0          Referenced by comments of: 104/68 
00631/007A  ACCOUNTING CLS           ACCCLS          OC  G  ACLS    S0027 DISTRB FSNAME=ACLS                                        
            4.3T1   610  ACCOUNTING_CLS.ACCCLS.OC.007       1 LINE     80    3 PAGE UM   ENGLE               FEB. 20, 1980  10:53:13
00631/008A  ACCOUNTING CLS           ACCMXMAT        SA  G  AMXM    S0027 DISTRB FSNAME=ACCMXMAT                                    
            4.3T1   611  ACCOUNTING_CLS.ACCMXMAT.SA.008     1 LINE     80   58 PAGE UM   ENGLE               FEB. 20, 1980  11:17:25
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/2).
           IF &STAPRJ IS SET TO 1, THE OBJECT FOR ACC:STAPROJECT (104/68) 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.
            
           **********************************************************************************
           D4.3 VERSION:
            
           N.B. THE INCLUSION OF STATUS (104/17) HAS NOT BEEN ANNOUNCED AND
                SPECIFICATIONS ARE SUBJECT TO CHANGE.  IT SHOULD BE CONSIDERED
                EXPERIMENTAL.
           **********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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          Referenced by comments of: 104/69, 631/15 
00631/009A  ACCOUNTING CLS           ACCMXMAT        UC  G          S0027 DISTRB FSNAME=ACCMXMATUPD                                 
            4.3T1   612  ACCOUNTING_CLS.ACCMXMAT.UC.009     1 LINE     71    2 PAGE UM   ENGLE               FEB. 20, 1980  11:17:33
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00631/010A  ACCOUNTING CLS           ACCMXMAT        OC  G          S0027 DISTRB FSNAME=AMXM                                        
            4.3T1   613  ACCOUNTING_CLS.ACCMXMAT.OC.010     1 LINE     80   13 PAGE UM   ENGLE               FEB. 20, 1980  11:17:42
0          Referenced by comments of: 631/15 
00631/011   ACCOUNTING CLS           ACUSPRNT        SA  G  AUPR    S0027 DISTRB FSNAME=ACUSPRNT                                    
            D4T2    906  ACCOUNTING_CLS.ACUSPRNT.SA.008     1 LINE     80    8 PAGE UM   ENGLE               DEC. 15, 1975  14:45:51
0          PRINT SUBROUTINE FOR ACCOUNTING CLS.
           COPIES ACCFORMAT (104/1).
           THIS PROGRAM USES A SETC SYMBOL &DC TO CONTROL ASSEMBLY OF DATA CELL INSTRUCTIONS.
           IF IT IS SET TO '0', THE DATA CELL INSTRUCTIONS WILL NOT BE ASSEMBLED.  SEE THE SOURCE
           FOR THE VALUE TO BE USED FOR DATA CELL.
00631/012   ACCOUNTING CLS           ACUSPRNT        OC  G          S0027 DISTRB FSNAME=AUPR                                        
            D4T2    907  ACCOUNTING_CLS.ACUSPRNT.OC.009     1 LINE     80    3 PAGE UM   ENGLE               DEC. 15, 1975  14:46:14
0          Referenced by comments of: 104/1, 631/15 
00631/013   ACCOUNTING CLS           FASTIOCK        SA  G  FIOC    S0967 'D3.2T2' FSNAME=ACCOUNTING_CLS.FASTIOCK.SA.10(1)        19
            D4T2    908  ACCOUNTING_CLS.FASTIOCK.SA.010     1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:48.35
0          SUBROUTINE TO DETERMINE IF AN I/O UNIT IS "FAST."  USED IN ACCOUNTING CLS.  COPIES GRDEF (104/70).
00631/014   ACCOUNTING CLS           FASTIOCK        OC  G          S0967 'D3.2T2' FSNAME=ACCOUNTING_CLS.FASTIOCK.OC.11(1)        20
            D4T2    909  ACCOUNTING_CLS.FASTIOCK.OC.011     1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:48.53
00631/015A  ACCOUNTING CLS           *CLSACC         OE  G          *CLSACC                                                         
            4.3T1   614  ACCOUNTING_CLS.*CLSACC.OE.015      1 SEQ   12244   10 PAGE UM   ENGLE               APR. 05, 1980  19:11:24
                         *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/105) + DIRECTRY (104/60) + ACCIO (104/25) + LOG (104/144) +
           FILENAME (104/58) +ACUSPRNT (631/10) + STATUS (104/17) + FASTIOCK (631/12) +
           IOLOKCK (104/114) + TIMETRP (104/96) + *LCS (164).
           THIS FILE MUST BE PERMITTED AS FOLLOWS:  U/N,R PKEY=*ACC
            
           **********************************************************************************
           D4.3 VERSION:
            
           N.B. THE INCLUSION OF STATUS (104/17) HAS NOT BEEN ANNOUNCED AND
                SPECIFICATIONS ARE SUBJECT TO CHANGE.  IT SHOULD BE CONSIDERED
                EXPERIMENTAL.
           **********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00631/016   ACCOUNTING CLS           *PRJACCSTAT     D            # MTS:TST.PRJACCST                                                
                                                                                    UM   ENGLE                                      
                         *PRJACCSTAT          
0          FILE USED TO HOLD ERROR COMMENTS FROM THE ACCOUNTING MAINTENANCE PROGRAM.
           SHOULD BE PERMITTED:  P/N, WE PKEY=*ACC
00632/001   REBATE                   REBATE          SP  G          S0811 REBATE 'REBATES' FSNAME=REBATE                            
            D4T2    911  REBATE.REBATE.SP.001               1 LINE     77   26 PAGE UM   LIFT                JAN. 03, 1977  22:59:27
0          PROGRAM TO REBATE CHARGES FOR MTS JOBS.
00632/002   REBATE                   REBATE          OC  G          ACC:REBATE                                                      
            D4T2    912  REBATE.REBATE.OC.002               1 LINE     80   28 PAGE UM   LIFT                JAN. 03, 1977  22:59:53
                         ACC:REBATE           
0          OBJECT FOR 631/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  RBTA    S0027 DISTRB FSNAME=RBATACC                                     
            D4T2    913  REBATE.RBATACC.SA.003              1 LINE     80    6 PAGE UM   ENGLE               DEC. 05, 1975  14:31:44
0          SUBROUTINE CALLED BY REBATE TO COMPUTE COST OF REBATE AND TO UPDATE USERS 
           ACCOUNTING RECORD. USED IN ACCLIB (104/41).
           COPIES GRDEF (104/70), COPY:RATEVEC (651/2), AND ACCFORMAT (104/1).
00632/004   REBATE                   RBATACC         OC  G          S0027 DISTRB FSNAME=RBTA                                        
            D4T2    914  REBATE.RBATACC.OC.004              1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1975  14:43:37
0          Referenced by comments of: 104/1 
00632/005   REBATE                   STAREAD         SA  G          S0811 REBATE 'REBATES' FSNAME=STAREAD                           
            D4.1T1  416  REBATE.STAREAD.SA.005              1 LINE     77    3 PAGE UM   LIFT                MAR. 07, 1978  16:07:58
0          SUBROUTINE CALLED BY REBATE TO READ A RECORD FROM *STATISTICS.
00632/006   REBATE                   STAREAD         OC  G          S0811 REBATE 'REBATES' FSNAME=STAREAD.O                         
            D4.1T1  417  REBATE.STAREAD.OC.006              1 LINE     80    2 PAGE UM   LIFT                MAR. 07, 1978  16:08:02
0          OBJECT ALSO IN ACCLIB (104/41).
0          Referenced by comments of: 104/1 
00632/007   REBATE                   WRITEUP         WF  G          S0811 REBATE 'REBATES' FSNAME=REBATEWRUP                        
            D4T2    917  REBATE.WRITEUP.WF.007              1 LINE     80    6 PAGE UM   LIFT                JAN. 03, 1977  22:34:23
0          WRITEUP DESCRIBING HOW TO RUN THE REBATE PROGRAM.
00632/008   REBATE                   REQUEST FORM    C              W012:REBATE                                                     
            D4T2    918  REBATE.REQUEST_FORM.C.008          1 LINE    112    2 PAGE UM   LIFT                JULY 28, 1977  21:33:19
0          COMMANDS AND FORMAT INPUT FOR REBATE REQUEST FORM.  IT IS ASSUMED THAT THIS IS
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          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                          
                                                                                    UM   LIFT                                       
0          PROGRAM TO TAKE QUEUE RECORDS FROM SYS:PLOTREBAT AND PRODUCE INPUT TO THE
           REBATE PROGRAM.  THE OUTPUT FROM THIS PROGRAM IS WRITTEN INTO ACC:PLOTREBAT.
0          Referenced by comments of: 615/37, 632/11 
00632/010   REBATE                   CCREBATE        OC  G          ACC:CCREBATE                                                    
                                                                                    UM   LIFT                                       
                         ACC:CCREBATE         
00632/011   REBATE                   ACC:PLOTREBAT   D            # MTS:TST.EMPTY                                                   
                                                                                    UM   LIFT                                       
                         ACC:PLOTREBAT        
0          DATA FILE USED FOR OUTPUT FROM CCREBATE (632/9).
00633/001  *PL1SCAN                  IBM SOURCE      SA  G          S0696 OSSRC6 POSN=PL552                                         
            D4T2    919  PL1SCAN.IBM_SOURCE.SA.001          1 SEQ      80  220 PAGE UM   TIFFANY             JULY 28, 1977  21:37:24
0          IBM OS/360 (RELEASE 21.7) SOURCE FOR PL/I SYNTAX SCANNING PROGRAM.
00633/002  *PL1SCAN                  MTS UPDATE      UU  G          S0410 MTSPL1 'PL1LIB' POSN=PL1SCANUP.D4                         
            D4T2    920  PL1SCAN.MTS_UPDATE.UU.002          1 LINE     80    4 PAGE UM   TIFFANY             JULY 28, 1977  21:37:30
0          *IEBUPDAT DECK FOR MTS CHANGES.  ASSEMBLE OUTPUT OF UPDATE USING IKM (633/3).
           COPIES IKMBASE (633/4).
00633/003  *PL1SCAN                  IKM             SM  G          S0410 MTSPL1 'PL1LIB' POSN=PL1SCNIKM.D4                         
            D4T2    921  PL1SCAN.IKM.SM.003                 1 LINE     80   20 PAGE UM   TIFFANY             JULY 28, 1977  21:37:30
0          Referenced by comments of: 633/2 
00633/004  *PL1SCAN                  IKMBASE         SA  G          S0410 MTSPL1 'PL1LIB' POSN=PL1SCNIKMBASE.D4                     
            D4T2    922  PL1SCAN.IKMBASE.SA.004             1 LINE     80   11 PAGE UM   TIFFANY             JULY 28, 1977  21:37:33
0          A SECTION COPIED BY THE IKM002 MODULE.
0          Referenced by comments of: 633/2 
00633/005  *PL1SCAN                  INTERFACE       SA  G          S0410 MTSPL1 'PL1LIB' POSN=PL1SCAN.S.D4                         
            D4T2    923  PL1SCAN.INTERFACE.SA.005           1 LINE     72   14 PAGE UM   TIFFANY             JULY 28, 1977  21:37:35
0          MTS INTERFACE MODULE.  ASSEMBLE USING MACROLIB (633/6).
00633/006  *PL1SCAN                  MACROLIB        SM  G          S0564 D4T2 VLO FSNAME=PL1SCAN.MACROLIB.SM.006(1)             924
            D4T2    924  PL1SCAN.MACROLIB.SM.006            1 LINE     38    1 PAGE UM   TIFFANY             JULY 28, 1977  21:37:37
0          Referenced by comments of: 633/5 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00633/007  *PL1SCAN                                  OE  G          *PL1SCAN                                                        
            D4T2    925  PL1SCAN..OE.007                    1 SEQ    4032    9 PAGE UM   TIFFANY             JULY 28, 1977  21:37:39
                         *PL1SCAN             
0          THIS OBJECT COULD BE LOADED INTO SHARED VM BY PISTLE IF DESIRED.
00634/001   OPERATOR JOB                             SA  G          S0683 OGDEN FSNAME=OP.S                                         
            D4.2T2  533  OPERATOR_JOB..SA.001               1 LINE     80   66 PAGE UM   OGDEN               APR. 07, 1979  02:25:34
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 
00634/002A  OPERATOR JOB             UPDATE          UC  G          S0683 OGDEN FSNAME=OPUPD                                        
            4.3T1   615  OPERATOR_JOB.UPDATE.UC.002         1 LINE     94    3 PAGE UM   OGDEN               NOV. 10, 1979  17:22:58
00634/003A  OPERATOR JOB                             OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00634/004A  OPERATOR JOB             CONSIO          SA  G  CONS    S0683 OGDEN FSNAME=CONSIO.S                                     
            4.3T1   616  OPERATOR_JOB.CONSIO.SA.004         1 LINE     80   14 PAGE UM   OGDEN               SEP. 25, 1979  03:31:18
0          SUBROUTINE TO DO STAND-ALONE I/O TO A 3270, 1052, OR 3066.  ALSO PROVIDES
           INTERFACE TO OPERATOR JOB (634/1) IF USED.  IF OPERATOR JOB IS NOT USED, CONSIO
           MAY BE ASSEMBLED WITH &OPERJOB=0 TO REDUCE ITS SIZE.  COPIES COPY:GLOBALS (1026/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        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00634/006A  OPERATOR JOB             WRITEUP         WF             S0683 OGDEN FSNAME=OP.F                                         
            4.3T1   617  OPERATOR_JOB.WRITEUP.WF.006        1 LINE    143    7 PAGE UM   OGDEN               APR. 07, 1979  02:25:31
0          OPERATOR'S GUIDE TO USING THE IBM 3270 OPERATOR'S CONSOLE.
00634/007A  OPERATOR JOB             CONSOLE         SA  G          MTS:CONSOLE(1000)                                               
            4.3T1   618  OPERATOR_JOB.CONSOLE.SA.007        1 LINE     68    4 PAGE UBC  O'REILLY  OGDEN     APR. 05, 1980  19:18:17
                         MTS:CONSOLE          
0          PROGRAM TO DISPLAY THE OPERATORS' CONSOLE ON A 3270 TYPE TERMINAL.
           COPIES *GDINFODSECT (594).
00634/008A  OPERATOR JOB             CONSOLE         OC  G          MTS:CONSOLE(1,999)                                              
            4.3T1   619  OPERATOR_JOB.CONSOLE.OC.008        1 LINE     80    4 PAGE UBC  O'REILLY  OGDEN     APR. 05, 1980  19:18:19
00635/001   FSUB                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=FSUB                        
            D4T2    929  FSUB.D4_MASTER.SA.001              1 SEQ      80   79 PAGE UM   MTS       HELFFRICH JULY 28, 1977  21:39:25
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).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00635/002A  FSUB                     UPDATE          UC  G          MTS:FSUBUPD                                                     
            4.3T1   620  FSUB.UPDATE.UC.002                 1 LINE     72   22 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:18:22
                         MTS.:FSUBUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=FSUB.
00635/003A  FSUB                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00635/004A  FSUB                                     L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=SUBR.LIST             18  
            4.3T1   621  FSUB..L.004                        1 SEQ     133  253 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:19:56
00636/001   CMDS                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=CMDS                        
            D4T2    933  CMDS.D4_MASTER.SA.001              1 SEQ      80  147 PAGE UM   MTS       HELFFRICH SEP. 16, 1977  11:41:58
0          MTS COMMAND PROCESSORS.  COPIES COPY:LLMPSEQU (087) COPY:GLOBALS (1026/3),
           *CNFGINFODSECT (654), AND COPY:RATEVEC (651/2).  ASSEMBLE USING COPY:MTS.MACROS
           (344/3) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 535/3 
00636/002A  CMDS                     UPDATE          UC  G          MTS:CMDSUPD                                                     
            4.3T1   622  CMDS.UPDATE.UC.002                 1 LINE     80   38 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:20:00
                         MTS.:CMDSUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS A "$CONTINUE WITH" LINE TO 
           ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE
           REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=CMDS.
00636/003A  CMDS                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00636/004A  CMDS                                     L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=CMDS.LIST             3   
            4.3T1   623  CMDS..L.004                        1 SEQ     133  472 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:20:30
00637/001   DSRS                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=DSRS                        
            D4T2    937  DSRS.D4_MASTER.SA.001              1 SEQ      80   54 PAGE UM   MTS       HELFFRICH JULY 28, 1977  21:42:26
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).
00637/002A  DSRS                     UPDATE          UC  G          MTS:DSRSUPD                                                     
            4.3T1   624  DSRS.UPDATE.UC.002                 1 LINE     71   11 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:20:36
                         MTS.:DSRSUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=DSRS.
0          Referenced by comments of: 16/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00637/003A  DSRS                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00637/004A  DSRS                                     L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DSRS.LIST             5   
            4.3T1   625  DSRS..L.004                        1 SEQ     133  160 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:20:42
00638/001   USUB                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=USUB                        
            D4T2    941  USUB.D4_MASTER.SA.001              1 SEQ      80   33 PAGE UM   MTS       HELFFRICH JULY 28, 1977  21:43:20
0          MTS USER SUBROUTINES. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
00638/002A  USUB                     UPDATE          UC  G          MTS:USUBUPD                                                     
            4.3T1   626  USUB.UPDATE.UC.002                 1 LINE     80   28 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:20:44
                         MTS.:USUBUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=USUB.
00638/003A  USUB                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00638/004A  USUB                                     L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=USUB.LIST             4   
            4.3T1   627  USUB..L.004                        1 SEQ     133  166 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:20:55
00639/001   DSRI                     D4 MASTER       SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=DSRI                        
            D4T2    945  DSRI.D4_MASTER.SA.001              1 SEQ      80   32 PAGE UM   MTS       HELFFRICH JULY 28, 1977  21:45:46
0          MTS DSR INTERFACE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3).
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3).
00639/002A  DSRI                     UPDATE          UC  G          MTS:DSRIUPD                                                     
            4.3T1   628  DSRI.UPDATE.UC.002                 1 LINE     72   14 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:20:57
                         MTS.:DSRIUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=DSRI.
00639/003A  DSRI                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00639/004A  DSRI                                     L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DSRI.LIST             6   
            4.3T1   629  DSRI..L.004                        1 SEQ     133  108 PAGE UM   MTS       HELFFRICH APR. 05, 1980  19:21:03
00639/005   DSRI                     TESTIO          SA  G          MTS:TESTIO(1,999)                                               
            D4T2    949  DSRI.TESTIO.SA.007                 1 LINE     80    8 PAGE UM   MTA                 JULY 28, 1977  21:46:11
                         MTS.:TESTIO          
0          TEST PROGRAM FOR DSR INTERFACE.
0          Referenced by comments of: 639/7, 639/8, 639/9, 639/10 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00639/006   DSRI                     TESTIO          OC  G          MTS:TESTIO(1000)                                                
            D4T2    950  DSRI.TESTIO.OC.008                 1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  21:46:12
00639/007   DSRI                     TESTIO DATA     D              MTS:TESTIODATA                                                  
            D4T2    951  DSRI.TESTIO_DATA.D.009             1 LINE     44    1 PAGE UM   MTA                 JULY 28, 1977  21:46:14
                         MTS.:TESTIODATA      
0          COMMANDS TO TESTIO PROGRAM (639/5), READ ON SCARDS.
00639/008   DSRI                     TESTIO FILE 1   D              MTS:TESTIOFILE                                                  
            D4T2    952  DSRI.TESTIO_FILE_1.D.010           1 LINE      5    1 PAGE UM   MTA                 JULY 28, 1977  21:46:16
                         MTS.:TESTIOFILE      
0          TESTIO (639/5) TEST FILE NUMBER 1.
00639/009   DSRI                     TESTIO FILE 2   D              MTS:TESTIOFILE2                                                 
            D4T2    953  DSRI.TESTIO_FILE_2.D.011           1 LINE      5    1 PAGE UM   MTA                 JULY 28, 1977  21:46:18
                         MTS.:TESTIOFILE2     
0          TESTIO (639/5) TEST FILE NUMBER 2.
00639/010   DSRI                     TESTIO BASE     D              MTS:TESTIOBASE                                                  
            D4T2    954  DSRI.TESTIO_BASE.D.012             1 LINE    132    3 PAGE UM   MTA                 JULY 28, 1977  21:46:20
                         MTS.:TESTIOBASE      
0          EXPECTED SPRINT OUTPUT WHEN TESTIO (639/5) IS RUN USING TESTIO DATA (639/5) AS INPUT.
00640       MTS.TV                                   SA           # (OBSOLETED BY 344)                                              
            D3.2T2   41  MTS.TV..SA.                        1 LINE     56    1 PAGE UM                       MAR. 21, 1975  02:20:51
00642/001   MERIT UTILITIES          *MNS            C              *MNS                                                            
            D4T2    955  MERIT_UTILITIES.*MNS.C.001         1 LINE      9    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:23
0          COMMAND FILE USED BY THE OPERATORS TO START THE MERIT TERMINAL SERVICE AFTER
           IPL.  INVOKED BY ENTERING "MTS *MNS" ON THE OPERATOR'S CONSOLE.  DESCRIBED
           IN THE OPERATOR'S MANUAL (592).
0          Referenced by comments of: 642/2 
00642/002   MERIT UTILITIES          MNS             C              STRT:MNS                                                        
            D4T2    956  MERIT_UTILITIES.MNS.C.002          1 LINE     60    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:25
0          COMMAND FILE SOURCED TO BY *MNS (642/1).
00642/003   MERIT UTILITIES          *MND            C              *MND                                                            
            D4T2    957  MERIT_UTILITIES.*MND.C.003         1 LINE      9    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:27
0          COMMAND FILE USED BY THE OPERATORS TO PREVENT USAGE OF THE MERIT NETWORK
           WHEN IT IS DOWN.  INVOKED BY ENTERING "MTS *MND" ON THE OPERATOR'S CONSOLE.
           DESCRIBED IN THE OPERATOR'S MANUAL (592).
0          Referenced by comments of: 642/4 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00642/004   MERIT UTILITIES          MND             C              STRT:MND                                                        
            D4T2    958  MERIT_UTILITIES.MND.C.004          1 LINE     22    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:30
0          COMMAND FILE SOURCED TO BY *MND (642/3) WHICH CHANGES MNET:AUTH (642/5) TO
           PREVENT NETWORK ACCESS.
00642/005   MERIT UTILITIES          AUTHORIZATION   D              MNET:AUTH                                                       
            D4T2    959  MERIT_UTILITIES.AUTHORIZA.D.005    1 LINE     44    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:32
0          DATA FILE USED TO CONTROL WHICH USERS CAN USE THE NETWORK AND AT WHAT TIMES.
0          Referenced by comments of: 642/4 
00642/006A  MERIT UTILITIES          SETDATE         SF  G  SETD    MNET:SETDATE(1000)                                              
            4.3T1   630  MERIT_UTILITIES.SETDATE.SF.006     1 LINE     80    6 PAGE UM   OGDEN               APR. 05, 1980  19:21:06
0          MTS PROGRAM TO SET THE TIME AND DATE IN THE MERIT PDP-11.  CALLS THE PAR SUBROUTINE
           FROM UNSP:LIBRARY (685/4).
0          Referenced by comments of: 642/8 
00642/007A  MERIT UTILITIES          SETDATE         OE  G          MNET:SETDATE(1,999)                                             
            4.3T1   631  MERIT_UTILITIES.SETDATE.OE.007     1 LINE   5038    4 PAGE UM   OGDEN               APR. 05, 1980  19:21:07
00642/008A  MERIT UTILITIES          SETDATE         WF             S0683 OGDEN FSNAME=SETDATE.F                                    
            4.3T1   632  MERIT_UTILITIES.SETDATE.WF.008     1 LINE     79    1 PAGE UM   OGDEN               MAY  16, 1977  23:44:13
0          A DESCRIPTION OF THE SETDATE PROGRAM (642/6).
00642/009   MERIT UTILITIES          *MLD            C              *MLD                                                            
            D4T2    963  MERIT_UTILITIES.*MLD.C.009         1 LINE     16    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:42
0          COMMAND FILE USED BY THE OPERATORS TO RELOAD THE MERIT PDP-11.  INVOKED BY
           ENTERING "MTS *MLD" ON THE OPERATOR'S CONSOLE.  DESCRIBED IN THE OPERATOR'S
           MANUAL (592).
0          Referenced by comments of: 642/10 
00642/010   MERIT UTILITIES          RELOAD          C              MNET:RELOAD                                                     
            D4T2    964  MERIT_UTILITIES.RELOAD.C.010       1 LINE     83    1 PAGE UM   OGDEN               JULY 28, 1977  21:46:44
0          COMMAND FILE SOURCED TO BY *MLD (642/9) TO RUN 11LOAD (642/11).
00642/011   MERIT UTILITIES          11LOAD          SA  G  LOAD    MNET:11LOAD(1000)                                               
            D4T2    965  MERIT_UTILITIES.11LOAD.SA.011      1 LINE     80   19 PAGE UM   OGDEN               JULY 28, 1977  21:46:47
0          Referenced by comments of: 642/10, 642/13, 715/40 
00642/012   MERIT UTILITIES          11LOAD          OE  G          MNET:11LOAD(1,999)                                              
            D4T2    966  MERIT_UTILITIES.11LOAD.OE.012      1 LINE   5344    3 PAGE UM   OGDEN               JULY 28, 1977  21:46:49
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00642/013   MERIT UTILITIES          11LOAD          WF             S0683 OGDEN FSNAME=11LOAD.F                                     
            D4T2    967  MERIT_UTILITIES.11LOAD.WF.013      1 LINE    176    3 PAGE UM   OGDEN               MAR. 25, 1977  11:52:19
0          THIS IS MERIT MEMO ND-77-288, A DESCRIPTION OF 11LOAD (642/11).
00642/014   MERIT UTILITIES          *MUP            C              *MUP                                                            
            D4.2T1  507  MERIT_UTILITIES.*MUP.C.014         1 LINE     39    1 PAGE UM   OGDEN               APR. 01, 1979  23:50:07
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                                        
            4.3T1   633  MERIT_UTILITIES.MUP.SG.015         1 LINE    111    3 PAGE UM   OGDEN               JAN. 31, 1980  01:26:30
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/20, 734/3 
00642/016   MERIT UTILITIES          CKMNJOBS SUBR   SA  G  CKMN    S0683 OGDEN FSNAME=CKMNJOBS.S                                   
            D4.1T1  437  MERIT_UTILITIES.CKMNJOBS.SA.016    1 LINE     80    4 PAGE UM   OGDEN               DEC. 04, 1977  23:10:02
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 
00642/017A  MERIT UTILITIES          CKNET SUBR      SG  G          S0683 OGDEN FSNAME=CKNET.S                                      
            4.3T1   634  MERIT_UTILITIES.CKNET_SUB.SG.017   1 LINE     99    2 PAGE UM   OGDEN               JULY 28, 1979  13:36:29
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 
00642/018   MERIT UTILITIES          CKAUTH SUBR     SA  G  CKAU    S0683 OGDEN FSNAME=CKAUTH.S                                     
            D4.1T1  439  MERIT_UTILITIES.CKAUTH_SU.SA.018   1 LINE     80    5 PAGE UM   OGDEN               DEC. 04, 1977  23:09:48
0          SUBROUTINE CALLED BY MUP (642/15) WHICH CHECKS THE FILE MNET:AUTH.
0          Referenced by comments of: 642/15 
00642/019A  MERIT UTILITIES          MUP             OC  G          MNET:MUP                                                        
            4.3T1   635  MERIT_UTILITIES.MUP.OC.019         1 LINE   2132    5 PAGE UM   OGDEN               APR. 05, 1980  19:23:50
0          OBJECT FOR 642/15, 642/16, 642/17, 642/18, AND 734/3.
00642/020   MERIT UTILITIES          MUP             WF             S0683 OGDEN FSNAME=MUP.F                                        
            D4T2    971  MERIT_UTILITIES.MUP.WF.017         1 LINE     83    2 PAGE UM   OGDEN               MAR. 03, 1977  12:41:56
0          A DESCRIPTION OF THE MUP PROGRAM (642/15).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00642/021   MERIT UTILITIES          TNTH            SA  O  TNTH    S0683 OGDEN FSNAME=TNTH.S                                       
            D4T2    972  MERIT_UTILITIES.TNTH.SA.018        1 LINE     80   24 PAGE UM   OGDEN               APR. 07, 1977  21:50:14
0          TEST PROGRAM AND BATCHDSR SUBROUTINE TO RECEIVE NETWORK BATCH JOBS. ASSEMBLE
           WITH PAR=B.
00642/022   MERIT UTILITIES          TNTH            OC  O          MNET:TNTH                                                       
            D4T2    973  MERIT_UTILITIES.TNTH.OC.019        1 LINE     80    4 PAGE UM   OGDEN               JULY 28, 1977  21:47:11
00642/023   MERIT UTILITIES          THTN            SA  G  THTN    S0683 OGDEN FSNAME=THTN.S                                       
            D4T2    974  MERIT_UTILITIES.THTN.SA.020        1 LINE     80    7 PAGE UM   OGDEN               MAR. 03, 1977  12:42:11
0          TEST PROGRAM TO TRANSMIT NETWORK BATCH JOBS.  CALLS MSG ROUTINE (1023).
00642/024   MERIT UTILITIES          THTN            OC  G          MNET:THTN                                                       
            D4T2    975  MERIT_UTILITIES.THTN.OC.021        1 LINE     80    3 PAGE UM   OGDEN               JULY 28, 1977  21:47:17
00642/025A  MERIT UTILITIES          CONSOLE         SG  G          MNET:CONSOLE(1000)                                              
            4.3T1   636  MERIT_UTILITIES.CONSOLE.SG.025     1 LINE     95    4 PAGE UM   OGDEN               APR. 05, 1980  19:23:53
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/4).
00642/026A  MERIT UTILITIES          CONSOLE         OC  G          MNET:CONSOLE(1,999)                                             
            4.3T1   637  MERIT_UTILITIES.CONSOLE.OC.026     1 LINE   3910    6 PAGE UM   OGDEN               APR. 05, 1980  19:23:56
00643/001   PAGLOAD                                  SA  G          MTA:PAGLOAD(1000)                                               
            D4.1T1  441  PAGLOAD..SA.001                    1 LINE     80    8 PAGE UM   MTA                 MAY  15, 1978  15:52:37
                         MTA.:PAGLOAD         
0          A VARIABLE PAGING LOAD GENERATOR.  ALSO CHECKS FOR CORRECT PAGES.  THIS
           IS A REPLACEMENT FOR PAGEIT (196).  A DESCRIPTION OF THE PARAMETERS IS
           IN THE SOURCE.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 643/3 
00643/002   PAGLOAD                                  OC  G          MTA:PAGLOAD(1,999)                                              
            D4.1T1  442  PAGLOAD..OC.002                    1 LINE     80    3 PAGE UM   MTA                 MAY  15, 1978  15:52:42
00643/003C  PAGLOAD                  *PAG            C              *PAG                                                            
            4.3T1   638  PAGLOAD.*PAG.C.003                 1 LINE     46    1 PAGE UM   MTA                 APR. 22, 1980  12:45:18
                         *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       DISK SPACE                                            # (OBSOLETED BY COMP. 073)                                        
            D4T2    978  DISK_SPACE..SA.001                 1 LINE     72    3 PAGE UBC                      JULY 28, 1977  21:47:24
0          PROGRAM TO PRINT AVAILABLE DISK SPACE.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 73/2 
00645       UBCDSECTS                                SA           # (OBSOLETED BY 344)                                              
            D3.2T2   48  UBCDSECTS..SA.                     1 LINE     71    1 PAGE UBC                      MAR. 21, 1975  02:21:05
00646/001   SYSTEM DOCUMENTATION     LECTURE 1       WF             MTS:LECTURE1                                                    
            D4T2    981  SYSTEM_DOCUMENTATION.LECT.WF.001   1 LINE    134    8 PAGE UM   OGDEN               JULY 28, 1977  21:47:30
                         MTS.:LECTURE1        
0          FORMAT SOURCE FOR LECTURE 1 OF THE MTS SYSTEMS LECTURES AS UPDATED TO RELECT D4 MTS
           (AT LEAST AS VIEWED BY DON).
00646/002   SYSTEM DOCUMENTATION     VOL 99 PGM      SG  G          DWB:VOLUME99.S                                                  
            D4T2    982  SYSTEM_DOCUMENTATION.VOL.SG.002    1 LINE     97    9 PAGE UM   OGDEN               JULY 28, 1977  21:47:33
                         DWB.:VOLUME99.S      
0          A PROGRAM TO IMPLEMENT THE FINDING AND EXTRACTION OF SYSTEM INTERNAL DOCUMENTATION
           BASED ON THE CLASSIFICATION SCHEME (PREVIOUSLY PUBLISHED IN THE MTS NEWSLETTER,
           NO. 37, PP. 113-119).  WHEN RUN WITHOUT ANY PARAMETER, IT WILL ASK FOUR QUESTIONS
           VIA SERCOM/GUSER.  OUTPUT FROM THE PROGRAM IS WRITTEN ON SPRINT.  IT MAY ALSO BE
           RUN WITH A PAR= GIVING THE ANSWERS TO THE QUESTIONS SEPARATED BY COMMAS WITH MISSING
           ITEMS ASSUMED TO BE "ALL".  IN EITHER PROMPT OR PAR= MODE, ADDITIONAL INFORMATION MAY
           BE SUPPLIED TO BYPASS THE REMAINING QUESTIONS.  THE QUESTIONS ARE:
            (1) "PRINT CLASSIFICATION, DOCUMENTS, OR BOTH"
                RESPONSE:  "C" (FOR CLASSIFICATION ONLY), "D" (FOR DOCUMENTS ONLY), OR
                           "B" (FOR BOTH); OR TO CONTROL PRINTING MORE PRECISELY,
                           "C=(C|X)(U)(D)(V)" WHERE (PARENS REPRESENTING OPTIONS)
                              C MEANS PRINT CLASSIFICATION INFO,
                              X IS SAME AS C BUT PRINTS ONLY IF THERE IS DOCUMENT INFO,
                              U MEANS PRINT USAGE INFO,
                              D MEANS PRINT DOCUMENT INFO,
                              V MEANS PRINT VERSION INFO; OR
                           "(D|C)=<ANSWER TO QUESTION2>", OR
                           "(D|C)=<ANSWER TO QUESTION2> <ANSWER TO QUESTION 3>", OR
                           "(D|C)=<ANSWER TO QUESTION4>"
            (2) "GIVE CLASSIFICATION NUMBER"
                RESPONSE:  "ALL" (OR A NULL LINE), OR
                           N OR N1-N2, WHERE N IS A CLASSIFICATION NUMBER NNN.(N(N))
            (3) "ENTER USAGE NUMBER"
                RESPONSE:  "ALL" (OR A NULL LINE),
                           /N, WHERE N IS A USAGE NUMBER, OR
                           ? (TO GET A DESCRIPTION OF USAGE NUMBERS)
            (4) "ENTER OTHER INFO"
                RESPONSE:  ONE OR MORE OF THE FOLLOWING:
                           "ALL" (OR A NULL LINE),
                           MM-DD-YY (TO GET ENTRIES SINCE THE SPECIFIED DATE),
                           D=NNNN (TO GET A SPECIFIC DOCUMENT), OR
                           V=(NNN|LAST) (TO GET A SPECIFIC VERSION OR THE MOST RECENT)
                THE DEFAULT FOR THE VERSION IS "ALL" IF CLASSIFICATION INFORMATION IS BEING
                OBTAINED, "LAST" IF DOCUMENTS ARE BEING EXTRACTED.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00646/003   SYSTEM DOCUMENTATION     VOL 99 PGM      OC  G          SYS:VOLUME99                                                    
            D4T2    983  SYSTEM_DOCUMENTATION.VOL.OC.003    1 LINE     80   13 PAGE UM   OGDEN               JULY 28, 1977  21:47:38
                         SYS.:VOLUME99        
0          HAS EMBEDDED FILE NAMES FOR "SYS:INTCLASS" AND "SYS:INTDOCDATA".
00646/004   SYSTEM DOCUMENTATION     VOL 99 CLASS    D              SYS:INTCLASS                                                    
            D4.1T1  443  SYSTEM_DOCUMENTATION.VOL.D.004     1 LINE    101    4 PAGE UM   OGDEN               MAY  15, 1978  15:52:44
                         SYS.:INTCLASS        
0          DATA FILE CONTAINING THE CLASSIFICATION INFORMATION AND INFORMATION ABOUT THE
           DOCUMENTS.  LINES NUMBERS IN THIS FILE ARE IMPORTANT; HAS NEGATIVE LINE NUMBERS.
00646/005   SYSTEM DOCUMENTATION     VOL 99 DOC      D              SYS:INTDOCDATA                                                  
            D4.1T1  444  SYSTEM_DOCUMENTATION.VOL.D.005     1 LINE    190  240 PAGE UM   OGDEN               MAY  15, 1978  15:52:46
                         SYS.:INTDOCDATA      
0          THE "STANDARD FILE" FOR CONTAINING DOCUMENTATION; POINTED TO BY 646/4.
           DOCUMENTATION MAY ALSO BE IN OTHER FILES.
            
           NOTE:  THIS FILE IS CURRENTLY VERY INCOMPLETE SINCE DOCUMENTS HAVE ONLY RECENTLY
                  BEEN ENTERED INTO THE FILE.
00646/006   SYSTEM DOCUMENTATION     PROTECTION      WF             FILE:PROTECTPAPR                                                
            D4T2    986  SYSTEM_DOCUMENTATION.PROT.WF.006   1 LINE    183   14 PAGE UM   PIRKOLA             JULY 28, 1977  21:48:18
                         FILE:PROTECTPAPR     
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.
00647/001A  TASKSTAT SUBR                            SA  G  TKST    S0683 OGDEN FSNAME=TASKSTAT.S                                   
            4.3T1   639  TASKSTAT_SUBR..SA.001              1 LINE     80    9 PAGE UM   OGDEN               MAR. 13, 1980  19:13:46
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                   7 = FILE WAIT              14 = INACTIVE JOB TABLE
                   1 = PAGE WAIT               8 = UNKNOWN WAYT           15 = DASD GTUNIT WAIT
                   2 = DASD I/O WAIT           9 = IDLE                   16 = HASP WAYT
                   3 = OTHER I/O WAIT (ÂDASD) 10 = DORMANT (NO CPU Q)     17 = INTERTASK WAIT
                   4 = TIME WAIT              11 = JOBSTA WAIT            18 = INTERTASK BUSY
                   5 = SVC LOCK WAIT          12 = CMDSTA WAIT            19 = UNUSED 
                   6 = GTUNIT WAIT (ÂDASD)    13 = OPER WAIT              20 = SNARKED (MTS/TMTS ONLY)
             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.
1                                                                                               SUN SEP 08/96   19:03:19   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           
           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). 
0          Referenced by comments of: 400/10, 413/1, 540/8, 540/18 
00647/002A  TASKSTAT SUBR                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00648/001   EDITOR                   CLS             SA  G          S1137 EDITOR FSNAME=ED.MAIN.S                                   
            D4.2T1  515  EDITOR.CLS.SA.001                  1 LINE    129   49 PAGE UM   GOODRICH            MAR. 23, 1979  23:56:39
0          THE MTS CONTEXT EDITOR WITH PATTERN MATCHING AND VARIABLE HANDLING.  ASSEMBLE 
           WITH *ASMH (737) USING COPY:MTS.MACROS (344/3) AND THE EDITOR MACRO LIBRARY 
           (648/16).  THE EDITOR SUGGEST COMMAND ALLOWS USERS TO ENTER SUGGESTIONS WHICH 
           ARE LOGGED IN THE FILE ETC:EDSUGGEST IF IT EXISTS. THIS FILE SHOULD BE
           PERMITTED WE TO ALL.
0          Referenced by comments of: 629/12, 648/17 
00648/002A  EDITOR                   CMMDS A TO M    SA  G          W078:ED.CMDATOM.S                                               
            4.3T1   640  EDITOR.CMMDS_A_TO_M.SA.002         1 LINE    142   64 PAGE UM   GOODRICH            APR. 22, 1980  12:48:30
0          ASSEMBLE WITH *ASMH (737) USING THE EDITOR MACRO LIBRARY (648/16); *ASMG WILL
           PRODUCE WARNING MESSAGES. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR
           ASSEMBLING.
00648/003A  EDITOR                   CMMDS N TO Z    SA  G          W078:ED.CMDNTOZ.S                                               
            4.3T1   641  EDITOR.CMMDS_N_TO_Z.SA.003         1 LINE    142   31 PAGE UM   GOODRICH            APR. 22, 1980  12:51:59
0          ASSEMBLE WITH *ASMH (737)USING THE EDITOR MACRO LIBARY (648/16); *ASMG WILL
           WILL PRODUCE WARNING MESSAGES. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING.
0          Referenced by comments of: 648/8 
00648/004A  EDITOR                   VISUAL CMMD     SA  G          W078:ED.VISUAL.S                                                
            4.3T1   642  EDITOR.VISUAL_CMMD.SA.004          1 LINE    141   26 PAGE UM   GOODRICH            APR. 22, 1980  12:53:07
0          ASSEMBLE WITH *ASMH (737)USING THE EDITOR MACRO LIBRARY (648/16); *ASMG WILL
           PRODUCE WARNING MESSAGES.  USES TR3270 (629/12).  FILE CONTAINS MTS COMMANDS AT
           THE BEGINNING FOR ASSEMBLING.
            
           *****************************************************************************
           THE FOLLOWING HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16):
            
           CODE TO DIFFERENTIATE BETWEEN VARIOUS 3270 MODELS AND 3066 HAS BEEN 
           ADDED. THIS COMPONENT NOW NEEDS TR3270 (629/12).
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00648/005A  EDITOR                   PRIMITIV PARSE  SA  G          W078:ED.PRPARSE.S                                               
            4.3T1   643  EDITOR.PRIMITIV_PARSE.SA.005       1 LINE    142   42 PAGE UM   GOODRICH            APR. 22, 1980  12:53:24
0          ASSEMBLE WITH *ASMH (737) USING THE EDITOR MACRO LIBRARY (648/16); *ASMG WILL
           PRODUCE WARNING MESSAGES. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR
           ASSEMBLING.
00648/006   EDITOR                   EST SUBR        SA  G          S0564 D4T2 VLO FSNAME=EDITOR.EST_SUBR.SA.002(1)              989
            D4T2    989  EDITOR.EST_SUBR.SA.002             1 LINE     80    6 PAGE UM   GOODRICH            JUNE 30, 1977  12:31:56
0          SUBROUTINE TO CALCULATE INSERTION LINE NUMBER SPACING.
0          Referenced by comments of: 721/1, 738/1, 738/2 
00648/007A  EDITOR                   I/O SUPPORT     SA  G          W078:ED.IO.S                                                    
            4.3T1   644  EDITOR.I/O_SUPPORT.SA.007          1 LINE    137   44 PAGE UM   GOODRICH            APR. 22, 1980  12:53:54
0          ASSEMBLE WITH PAR=SIZE=32 AND USING COPY:MTS.MACROS (344/3) AND THE 648/16
           MACRO LIBRARY.  COPIES *GDINFODSECT (594).
00648/008A  EDITOR                   VIRTUAL FILES   SA  G          W078:ED.VF.S                                                    
            4.3T1   645  EDITOR.VIRTUAL_FILES.SA.008        1 LINE    137   15 PAGE UM   GOODRICH            APR. 22, 1980  12:54:17
0          A SET OF ROUTINES WHICH ARE USED LIKE LINE FILES, BUT USE VM FOR STORAGE.  THE
           CALLING SEQUENCES ARE SIMILAR TO THOSE USED WITHIN THE EDITOR TO ACCESS THE I/O
           SUPPORT (648/3).  ASSEMBLE USING THE 648/16 MACRO FILE.
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16):
            
           THE VFFREE ROUTINE HAS BEEN ADDED TO FREE A VIRTUAL FILE DSECT AND ALL 
           ITS FILES.
           *****************************************************************************
00648/009   EDITOR                   CLS INTERFACE   SA  G          S1137 EDITOR FSNAME=ED.CLS.S                                    
            D4.2T1  521  EDITOR.CLS_INTERFACE.SA.009        1 LINE    114    4 PAGE UM   GOODRICH            MAR. 23, 1979  23:55:53
0          CLS INTERFACE TO THE EDITOR.  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND THE 648/16
           MACRO LIBRARY.
00648/010A  EDITOR                   OBJECT          OC  G          W078:*CLSED                                                     
            4.3T1   646  EDITOR.OBJECT.OC.010               1 LINE  19176  118 PAGE UM   GOODRICH            APR. 22, 1980  12:54:35
                         *CLSED               
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL.
00648/011A  EDITOR                   ETC:EDEXPLAIN   M              ETC.:EDEXPLAIN                                                  
            4.3T1   647  EDITOR.ETC:EDEXPLAIN.M.011         1 LINE     72   41 PAGE UM   GOODRICH            APR. 22, 1980  12:55:08
                         ETC.:EDEXPLAIN       
0          TEXT USED BY THE EXPLAIN COMMAND.
0          Referenced by comments of: 648/12 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00648/012   EDITOR                   EXPLAIN GEN     SA  G          W078:EXPLAINGEN(1,999)                                          
            D4.2T1  524  EDITOR.EXPLAIN_GEN.SA.012          1 LINE     83    3 PAGE UM   GOODRICH            APR. 02, 1979  00:14:12
0          PROGRAM TO GENERATE A DIRECTORY FOR THE EDITOR EXPLAIN COMMAND.  WORKS LIKE 
           MACGEN (293/1), EXCEPT THAT THERE IS AN EXTRA FIELD WHICH CONTAINS ENDING LINE
           NUMBERS.  EXPLAINGEN TAKES ETC:EDEXPLAIN(1000) (648/11) AS SCARDS AND PRODUCES
           THE DIRECTORY ON SPUNCH, WHICH SHOULD BE ASSIGNED TO ETC:EDEXPLAIN(1,999).
00648/013   EDITOR                   EXPLAIN GEN     OC  G          W078:EXPLAINGEN(1000)                                           
            D4.2T1  525  EDITOR.EXPLAIN_GEN.OC.013          1 LINE     80    2 PAGE UM   GOODRICH            APR. 02, 1979  00:14:12
00648/014   EDITOR                   *ED PROGRAM     SA  G          S1137 EDITOR FSNAME=ED.CALLER.S                                 
            D4.1T1  457  EDITOR.*ED_PROGRAM.SA.014          1 LINE    110    3 PAGE UM   GOODRICH            APR. 27, 1978  00:02:26
0          PROGRAM INTERFACE TO EDITOR.  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND THE EDITOR
           MACRO LIBRARY (648/16).
00648/015   EDITOR                   *ED PROGRAM     OE  G          S1137 EDITOR FSNAME=ED.CALLER.O                                 
            D4.1T1  458  EDITOR.*ED_PROGRAM.OE.015          1 LINE    755    1 PAGE UM   GOODRICH            APR. 27, 1978  00:02:23
00648/016A  EDITOR                   MACROS          SM  G          COPY:ED.MACROS                                                  
            4.3T1   648  EDITOR.MACROS.SM.016               1 LINE     72   57 PAGE UM   GOODRICH            APR. 22, 1980  12:55:21
                         COPY:ED.MACROS       
0          Referenced by comments of: 278/11, 648/1, 648/2, 648/3, 648/4, 648/5, 648/14, 648/17, 648/18, 648/19, 648/20 
00648/017A  EDITOR                   SUBROUTINES     SA  G          W078:ED.SUBRTNS.S                                               
            4.3T1   649  EDITOR.SUBROUTINES.SA.017          1 LINE    140   53 PAGE UM   GOODRICH            APR. 22, 1980  12:56:15
0          COMMON SUBROUTINES, FORMERLY PART OF EDITOR CLS SOURCE (648/1), USED BY OTHER 
           EDITOR SUBCOMPONENTS.  FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR
           ASSEMBLING.  ASSEMBLE USING *ASMH (737), COPY:MTS.MACROS (344/3), AND THE 
           EDITOR MACRO LIBRARY (648/16).
00648/018A  EDITOR                   PATTERN         SA  G          W078:ED.PATTERN.S                                               
            4.3T1   650  EDITOR.PATTERN.SA.018              1 LINE    142   69 PAGE UM   GOODRICH            APR. 22, 1980  12:56:32
0          PATTERN MATCHING ROUTINES FOR EDITOR, AS WELL AS USER-CALLABLE PATTERN 
           ROUTINES.  ASSEMBLE WITH *ASMH (737) USING THE EDITOR MACRO LIBRARY (648/16);
           *ASMG WILL PRODUCE WARNING MESSAGES.  FILE CONTAINS MTS COMMANDS AT THE
           BEGINNING FOR ASSEMBLING.
            
           *****************************************************************************
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT:
            
           RD4.2A/RD16:
            
           THE SYNTAX OF EDITOR PATTERN MATCHING HAS BEEN CHANGED SINCE D4.2.  THIS
           VERSION OF PATTERNS MAY BE RELEASED TO USERS.
            
           RD4.2C:
            
           THE DOCUMENTATION FOR PATTERN MATCHING IS NOW IN MTS VOL. 1, DECEMBER 1979
           VERSION (504).
1                                                                                               SUN SEP 08/96   19:03:19   Page  338
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          *****************************************************************************
00648/019C  EDITOR                   EXPRESSIONS     SA  G          W078:ED.EXPRTNS.S                                               
            4.3T1   651  EDITOR.EXPRESSIONS.SA.019          1 LINE    155    4 PAGE UM   GOODRICH            APR. 22, 1980  12:56:41
0          THIS FILE CONTAINS THE PREDEFINED VARIABLE ROUTINES AND EXPRESSION PARSER
           ADDED IN ANTICIPATION OF MTS CONDITIONAL COMMANDS.
            
           ASSEMBLE WITH *ASMH (737) USING THE EDITOR MACRO LIBRARY (648/16); *ASMG
           WILL PRODUCE WARNING MESSAGES. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING.
00648/020A  EDITOR                   SYMBOL TABLE    SA  G          W078:ED.SYMTAB.S                                                
            4.3T1   652  EDITOR.SYMBOL_TABLE.SA.020         1 LINE    120   16 PAGE UM   GOODRICH            APR. 22, 1980  12:56:44
0          ROUTINES TO MANAGE THE EDITOR'S VARIABLES.  FILE CONTAINS MTS COMMANDS AT
           FRONT FOR ASSEMBLING.  ASSEMBLE USING THE EDITOR MACRO LIBRARY (648/16).
            
           THESE ROUTINES PROBABLY WILL NOT BE DISTRIBUTED AFTER THE CONDITIONAL COMMAND
           FACILITY IS ADDED TO MTS.
00648/021C  EDITOR                   CHANGES         P              W078:ED.CHANGES                                                 
            4.3T1   653  EDITOR.CHANGES.P.021               1 LINE     76    5 PAGE UM   GOODRICH            APR. 22, 1980  12:56:53
0          CONTAINS A LIST OF CHANGES MADE TO THE EDITOR SINCE IT WAS LAST DISTRIBUTED.
           CONTAINS COMMANDS AT THE FRONT TO GENERATE A *PRINT* JOB.
00649/001   SNOBOLTIDY                               SA  G  STID    S0684 UNSP FSNAME=SNOBOLTIDY.S                                  
            D4T2    999  SNOBOLTIDY..SA.001                 1 LINE     80    9 PAGE UM   UNSP                SEP. 30, 1975  11:00:41
0          A SNOBOL4 SOURCE TIDYING PROGRAM WHICH ESTABLISHES A CORRESPONDENCE BETWEEN
           MTS LINE NUMBERS AND THE INTERNAL STATEMENT NUMBERS USED BY THE COMPILERS.
           AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.  ASSEMBLE USING *SYSMAC.
00649/002   SNOBOLTIDY                               OE  G          UNSP:SNOBOLTIDY                                                 
            D4T2   1000  SNOBOLTIDY..OE.002                 1 SEQ    1382    2 PAGE UM   UNSP                JULY 28, 1977  21:52:17
                         UNSP:SNOBOLTIDY      
00650/001A  BJPMOD                                   SA  G  BJPM    S0683 OGDEN FSNAME=BJPMOD.S                                     
            4.3T1   654  BJPMOD..SA.001                     1 LINE     80    7 PAGE UM   OGDEN               DEC. 21, 1979  01:39:53
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).
            
           ********************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           REQUIRES THE NEW COPY:JOBSTA (413/9).
           ********************************************************************************
0          Referenced by comments of: 45/15, 413/1, 540/10 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00650/002A  BJPMOD                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00650/003A  BJPMOD                   BJP DSECT       SA  G  BJPD    COPY:BJPDSCT                                                    
            4.3T1   655  BJPMOD.BJP_DSECT.SA.003            1 LINE     80    1 PAGE UM   OGDEN               APR. 05, 1980  19:27:42
                         COPY:BJPDSCT         
0          DSECT FOR SUPERVISOR'S BIG JOB PARAMETER VECTOR.
0          Referenced by comments of: 413/1, 540/10, 577/2, 650/1 
00650/004A  BJPMOD                   WRITEUP         WF             S0683 OGDEN FSNAME=BJPMOD.F                                     
            4.3T1   656  BJPMOD.WRITEUP.WF.004              1 LINE     69    3 PAGE UM   OGDEN               MAR. 13, 1980  22:21:24
0          NOTES ON BJPMOD AND CPU SCHEDULING.
00651/001   RATES                    RATEFILEFMT     SA  G  RTFL    S0027 DISTRB FSNAME=RATEFILEFMT                                 
            D4T2   1004  RATES.RATEFILEFMT.SA.001           1 LINE     80    1 PAGE UM   ENGLE               DEC. 05, 1975  14:24:36
0          DESCRIBES MTS RATE LINES IN *RATEFILE.
0          Referenced by comments of: 651/3 
00651/002   RATES                    COPY:RATEVEC    SA  G          COPY:RATEVEC                                                    
            D4T2   1005  RATES.COPY:RATEVEC.SA.002          1 LINE     80    2 PAGE UM   ENGLE               JULY 28, 1977  21:53:38
                         COPY:RATEVEC         
0          DSECT COPIED UNDER THE NAME "COPY:RATEVEC" TO DESCRIBE "RATEVEC" IN SHARED
           VM AND THE INFORMATION RETURNED BY GETRATES (651/8).
0          Referenced by comments of: 42/1, 71/1, 104/18, 578/1, 615/15, 631/8, 632/3, 636/1, 651/8, 651/10, 651/13, 708/1 
00651/003   RATES                    RATEGEN         SA  G  RGEN    S0027 DISTRB FSNAME=RATEGEN                                     
            D4T2   1006  RATES.RATEGEN.SA.003               1 LINE     80   10 PAGE UM   ENGLE               MAY  17, 1976  14:32:01
0          PROGRAM TO GENERATE *RATEFILE.  EACH LINE IN *RATEFILE IS PRODUCED BY A MACRO
           EXPANSION.  CONSEQUENTLY, MACRO CALLS MUST BE CHANGED OR ADDED AND THE PROGRAM
           REASSEMBLED FOR EACH CHANGE IN THE RATES.
           COPIES RATEFILEFMT (651/1).
0          Referenced by comments of: 651/7 
00651/004   RATES                    RATEGEN         OC  G          S0027 DISTRB FSNAME=RGEN                                        
            D4T2   1007  RATES.RATEGEN.OC.004               1 LINE     80    9 PAGE UM   ENGLE               MAY  17, 1976  14:33:01
00651/005   RATES                    RATEPRNT        SA  G          S0967 'D3.2T2' FSNAME=RATES.RATEPRNT.SA.05(1)                 56
            D4T2   1008  RATES.RATEPRNT.SA.005              1 LINE     80    4 PAGE UM   ENGLE               MAY  03, 1974  14:42.03
0          PROGRAM TO PRINT THE CONTENTS OF *RATEFILE.  RATE LINES ARE PRINTED AS IF THEY FORMED
           A COLUMN MAJOR MATRIX CONTAINING 3 ROWS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00651/006   RATES                    RATEPRNT        OC  G          S0967 'D3.2T2' FSNAME=RATES.RATEPRNT.OC.06(1)                 57
            D4T2   1009  RATES.RATEPRNT.OC.006              1 LINE     80    1 PAGE UM   ENGLE               MAY  03, 1974  14:42.23
00651/007A  RATES                    *RATEFILE       D   G          MTS:TST.RATEFILE                                                
            4.3T1   657  RATES.*RATEFILE.D.007              1 LINE    222    5 PAGE UM   ENGLE               APR. 05, 1980  19:28:00
                         *RATEFILE            
0          FILE USED BY MTS AND BILLING FOR CHARGE RATES.  DOES NOT AGREE WITH DISTRIBUTED
           VERSION OF RATEGEN (651/3)-- HAS EXTRA CHEAP RATES (FREE).
00651/008   RATES                    GETRATES        SA  G          MTS:GETRATES(1,999)                                             
            D4T2   1011  RATES.GETRATES.SA.008              1 LINE     80    6 PAGE UM   MTA                 JULY 28, 1977  21:54:04
                         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.  COPIES COPY:RATEVEC (651/2).
0          Referenced by comments of: 71/1, 651/2 
00651/009   RATES                    GETRATES        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00651/010   RATES                    RATENBR D4 MAS  SA  G          S0917 MTSSD4 'MTS MASTER D4.0' POSN=RNBR                    14  
            D4T2   1012  RATES.RATENBR.SA.010               1 LINE     80   14 PAGE UM   MTS       MTA       JULY 28, 1977  21:54:06
0          SUBROUTINE TO COMPUTE THE APPROPRIATE RATE NUMBER FOR THE CURRENT JOB.
           COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU(100) (087), COPY:RATEVEC (651/2),
           AND *CNFGINFODSECT (654).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 761/1 
00651/011A  RATES                    RATENBR UPD     UC  G          MTS:RNBRUPD                                                     
            4.3T1   658  RATES.RATENBR_UPD.UC.011           1 LINE     68    3 PAGE UM   MTS       MTA       APR. 05, 1980  19:28:02
                         MTS.:RNBRUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=RNBR.
00651/012A  RATES                    RATENBR         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       MTA                              
00651/013   RATES                    RATEVEC         SA  G          MTS:RATEVEC(1,999)                                              
            D4T2   1013  RATES.RATEVEC.SA.012               1 LINE     80    1 PAGE UM   MTA                 JULY 28, 1977  21:54:08
                         MTS.:RATEVEC         
0          INITIAL VALUES FOR RATE VECTOR.  COPIES COPY:RATEVEC (651/2).
00651/014   RATES                    RATEVEC         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00651/015   RATES                    DOCUMENTATION   WF             S0938 FSAVE2 VLO FSNAME=VBLRATEDOC(1)                           
            D4T2   1014  RATES.DOCUMENTATION.WF.014         1 LINE    126    5 PAGE UM   MTA                 SEP. 23, 1975  00:16:54
0          A WRITEUP DESCRIBING THE MTS VARIABLE RATES IMPLEMENTATION.
00652/001   MTS VOLUME 12            MASTER          WT             S0909 MTSV12 'MTS MANUALS' POSN=NEWM1.V12                       
            D4T2   1015  MTS_VOLUME_12.MASTER.WT.001        1 SEQ     132  108 PAGE UM   MANUAL              JULY 28, 1977  21:55:28
0          TEXT/360 MASTER FOR VOLUME 12 "PIL/2 IN MTS" OF THE UM MTS MANUALS (DECEMBER 1974).
            
           EDITOR:  RICHARD A. SALISBURY
00652/002   MTS VOLUME 12            PRINT           PT             S0909 MTSV12 'MTS MANUALS' POSN=PRINT1.V12                      
            D4T2   1016  MTS_VOLUME_12.PRINT.PT.002         1 SEQ     132  248 PAGE UM   MANUAL              JULY 28, 1977  21:55:38
0          TEXT/360 PRINT FILE.
00653/001A  SETPARM                  ASMG VERSION    SM  G          COPY:SETPARM                                                    
            4.3T1   659  SETPARM.ASMG_VERSION.SM.001        1 LINE     72    3 PAGE UM   MTA                 APR. 05, 1980  19:28:04
                         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. 
           FOR EXAMPLE, IF A PROGRAM HAS A SETPARM MACRO (AFTER COPYING COPY:GLOBALS)
           AND IS ASSEMBLED WITH PAR=SYSPARM=0001100101023 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
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 45/1, 46/1, 79/1, 101/1, 135/1, 399/1, 400/1, 400/10,
                 400/12, 540/1, 540/6, 577/2, 577/7, 579/1, 634/1, 634/4, 647/1, 732/1, 1021/1, 1021/4, 1081/1 
00653/002A  SETPARM                  ASMH VERSION    SA  G        # SEE COPY:SETPARM (653/1)                                        
            D4.1T1  462  SETPARM.ASMH_VERSION.SA.002        1 LINE     72    3 PAGE UM   MTA                 MAY  13, 1978  18:07:40
0          ASMH VERSION OF SETPARM MACRO.
            
           SCANS SYSPARM FOR NAME=TVAL WHERE "NAME" IS A SYMBOL NAME,
           "T" IS A, B, C, 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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00654    A *CNFGINFODSECT                            SA  G          *CNFGINFODSECT                                                  
            4.3T1   660  CNFGINFODSECT..SA.                 1 LINE     80    4 PAGE UM   MTA                 APR. 05, 1980  19:28:07
                         *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, 46/1, 49/1, 67/21, 97/10, 104/59, 104/134, 116/1, 135/1, 303/1, 303/6,
                 354/5, 360/1, 400/1, 413/1, 461/1, 482/3, 506/8, 507/2, 509/1, 534/5, 540/1, 540/10, 545/4, 545/16, 558/1,
                 559/2, 566/11, 577/7, 600/1, 600/7, 610/1, 629/1, 634/1, 636/1, 647/1, 651/10, 655/2, 671/3, 682/37, 682/39,
                 721/1, 721/11, 721/18, 738/1, 1002/13, 1002/23, 1020/1, 3003/24, 3018/30 
00655/001A  EREP/370                 COMMANDS        C              MTA:EREPCMD                                                     
            4.3T1   661  EREP/370.COMMANDS.C.001            1 LINE    109    1 PAGE UM   MTA                 APR. 05, 1980  19:28:09
                         MTA.:EREPCMD         
0          IBM VS2 EREP PROGRAM (IFCEREP0) TO PRINT CPU AND CHANNEL LOGOUTS AND
           3330 AND 2305 DIRECT ACCESS ERRORS.
            
           TO USE EREP IN MTS, ENTER THE FOLLOWING COMMANDS:
            
             $SINK <OUTPUT>
             $SOURCE EREPCMD
             <STARTING DATE>
             <ENDING DATE>
             <EREP PARAMETERS>
            
           WHERE <OUTPUT> IS THE OUTPUT FDNAME, E.G. *PRINT*,
                 EREPCMD IS THE FILE CONTAINING 655/1 MODIFIED FOR LOCAL FILE NAMES, AND
                 <EREP PARAMETERS> ARE ANY OF THE PARAMETERS FOR THE IBM EREP PROGRAM
                                   AS SHOWN IN THE IBM DOCUMENTATION (FORM GC28-0677).
            
           USAGE OF THIS PROGRAM IS DESCRIBED IN THE OPERATOR'S MANUAL (592).
00655/002A  EREP/370                 CNVTEREP        SA  O          MTA:CNVTEREP(1,999)                                             
            4.3T1   662  EREP/370.CNVTEREP.SA.002           1 LINE     72    8 PAGE UM   MTA                 APR. 05, 1980  19:28:11
                         MTA.:CNVTEREP        
0          PROGRAM TO CONVERT LOG RECORDS GENERATED BY MCHCCH (577/2) AND UC3330 (787) TO
           A FORMAT ACCEPTABLE TO THE IBM EREP PROGRAM WHICH IS RUN UNDER *FAKEOS IN MTS.
           CALLS JVCT (674) AND MAY CALL IGFC60 (589/4), IGFC70 (589/5), IGFC80 (589/6),
           IGFCIC (NOT DISTRIBUTED), OR A#VCCH47 (589/8) IF VERY OLD DATA IS PROCESSED.
           COPIES COPY:CMDAREADSECT (531/18) AND *CNFGINFODSECT (654).  ASSEMBLE USING
           MCHMAC (577/6).
00655/003A  EREP/370                 CNVTEREP        OC  O          MTA:CNVTEREP(1000)                                              
            4.3T1   663  EREP/370.CNVTEREP.OC.003           1 LINE     80    6 PAGE UM   MTA                 APR. 05, 1980  19:28:16
00655/004A  EREP/370                 470 RMS SOURCE  SA  G          S0081 ADV254 'RMS6.0' POSN=MS.UPGRADE.SOURCE                6   
            4.3T1   664  EREP/370.470_RMS_SOURCE.SA.004     1 SEQ      80  196 PAGE AMD            MTA       APR. 05, 1980  19:29:42
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00655/005A  EREP/370                 470 LIBRARY     OL  G          ETC:EREP470LIB                                                  
            4.3T1   665  EREP/370.470_LIBRARY.OL.005        1 LINE  14866   12 PAGE AMD            MTA       APR. 05, 1980  19:29:47
                         ETC.:EREP470LIB      
00655/006   EREP/370                 ALIASES         SS  O          S0938 FSAVE2 FSNAME=EREP.ALIPGM                                 
            D4T2   1028  EREP/370.ALIASES.SS.010            1 LINE     65    1 PAGE UM   MTA                 JULY 28, 1977  21:57:00
                         MTA.:EREP.ALIPGM     
0          SPITBOL PROGRAM WHICH READS THE OS/VS LINKEDIT INPUT FOR EREP (655/7) ON UNIT 0,
           THE BLDL OUTPUT (655/8) PRODUCED BY *UNLINKER ON UNIT 2, AND PRODUCES UMLOAD
           ALI RECORDS ON UNIT 1 AND ADDITIONAL BLDL RECORDS ON UNIT 3.  UNITS 2 AND 3 ARE
           THEN FED TO CREBLDL AND UNIT 1 OUTPUT IS PUT AT THE FRONT OF EREPLIB (655/10).
0          Referenced by comments of: 655/8 
00655/007   EREP/370                 LINKEDIT INPUT  D              S0938 FSAVE2 VLO FSNAME=EREP.LKED(1)                         192
            D4T2   1029  EREP/370.LINKEDIT_INPUT.D.011      1 LINE     49    4 PAGE UM   MTA                 DEC. 19, 1976  20:47:11
0          OS/VS LINKEDIT CONTROL CARDS FOR EREP FOR ALL POSSIBLE OPTIONS, I.E. UNION OF ALL
           POSSIBLE OUTPUT FROM EREP.SGMAC (655/12).  CORRESPONDS TO VS2 REL 3.7.
0          Referenced by comments of: 655/6 
00655/008   EREP/370                 BLDL IN         D   O          S0938 FSAVE2 FSNAME=EREPBLDLIN                                  
            D4T2   1030  EREP/370.BLDL_IN.D.012             1 LINE     64    5 PAGE UM   MTA                 JULY 28, 1977  21:57:07
                         MTA.:EREPBLDLIN      
0          INPUT TO CREBLDL FOR EREP.  LINES (1,999) ARE OUTPUT FROM *UNLINKER.
           LINES (1000,*L) ARE OUTPUT FROM ALIASES (655/6).
0          Referenced by comments of: 655/6 
00655/009   EREP/370                 BLDL OUT        D              ETC:EREPBLDL                                                    
            D4T2   1031  EREP/370.BLDL_OUT.D.013            1 SEQ     254    4 PAGE UM   MTA                 JULY 28, 1977  21:57:10
                         ETC.:EREPBLDL        
0          OUTPUT FROM CREBLDL FOR EREP.
00655/010A  EREP/370                 LIBRARY         OL  O          ETC:EREPLIB                                                     
            4.3T1   666  EREP/370.LIBRARY.OL.010            1 LINE   6144  183 PAGE UM   MTA                 APR. 05, 1980  19:29:48
                         ETC.:EREPLIB         
0          LIBRARY CONTAINING ALL OF EREP (VS2 REL 3.7) FOR ALL MODELS OF 370.
            
                         >>>>>>>CONTAINS A REP CARD.<<<<<<<
0          Referenced by comments of: 655/6 
00655/011   EREP/370                 OBJECT          OE  O          S0938 FSAVE2 VLO FSNAME=EREPOBJ(3)                           190
            D4T2   1033  EREP/370.OBJECT.OE.015             1 LINE   6144  188 PAGE UM   MTA                 DEC. 19, 1976  20:36:47
0          EREP OBJECT MUCH AS IT CAME FROM VS2 (REL 3.7).  CHANGED TO ADD "MTS" TO THE TABLE
           OF SYSTEM NAMES IN EACH MODULE.  THE FOLLOWING MODULES ARE NOT REFERENCED IN THE
           SYSGEN MACRO (655/12) AND SHOULD BE DELETED BEFORE MAKING THIS INTO A LIBRARY
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          SINCE THEY CAUSE DUPLICATE SYMBOLS:
            
             IFCE3330   (LINE 709)
             IFCS3340   (LINE 807, ENTRY POINT IFCSAXXC)
             IFCE3800   (LINE 932, ENTRY POINT IFCEXXXF)
             IFCS3800   (LINE 939, ENTRY POINT IFCSXXXF)
             IFCEXXXF   (LINE 1070)
             IFCSXXXF   (LINE 1077, ALIAS IFCST00C)
            
           ALSO DELETE THE BLDL LINES FROM EREPBLDLIN.
            
           THE FOLLOWING MODULES ARE REFERENCED IN THE SYSGEN MACRO BUT ARE NOT INCLUDED:
           IFCE0135, IFCS0135, AND IFCEI135.
            
           SEVERAL OTHER MODULES HAVE A MEMBER NAME DIFFERENT FROM THE ENTRY POINT NAME
           BUT, IN ALL CASES, THE ENTRY POINT NAME IS GIVEN AS AN ALIAS OR MEMBER NAME IN
           THE SYSGEN MACRO SO EVERYTHING WORKS.
            
           >>>>> NOTE:  HAS MANY REP CARDS.
00655/012   EREP/370                 SYSGEN MACRO    SA  G          S0938 FSAVE2 VLO FSNAME=EREP.SGMAC(1)                        191
            D4T2   1034  EREP/370.SYSGEN_MACRO.SA.016       1 LINE     80   13 PAGE UM   MTA                 DEC. 19, 1976  20:46:48
0          VS2 REL 3.7 EREP SYSGEN MACRO SGIFB400.  IT IS NOT INTENDED THAT THIS MACRO BE
           ASSEMBLED AS IS; IT IS INCLUDED ONLY TO INDICATE WHAT PART OF EREP SUPPORTS WHAT
           DEVICE OR FEATURE.  655/7 IS THE RESULT OF ASSEMBLING AN EDITED VERSION OF THIS.
0          Referenced by comments of: 655/7, 655/11 
00656/001   GT40 GRAPHICS SYSTEM     SYST            S   O          S0933 IGDIST FSNAME=GT40.SYST.S                                 
            D4T2   1035  GT40_GRAPHICS_SYSTEM.SYST.S.001    1 LINE     85   33 PAGE UM   GOODRICH            AUG. 12, 1976  15:57:09
0          GRAPHICS OPERATING SYSTEM FOR DEC GT40 DISPLAY.  COPIES W081:GT40.EQU.C (656/2).
00656/002   GT40 GRAPHICS SYSTEM     EQUS            S   G          S0981 W114 'W114SAVE' FSNAME=GT40.EQU.C                         
            D4T2   1036  GT40_GRAPHICS_SYSTEM.EQUS.S.002    1 LINE     72    1 PAGE UM   GOODRICH            APR. 03, 1975  17:27:56
0          Referenced by comments of: 656/1 
00656/003   GT40 GRAPHICS SYSTEM     SYST            O   O          S0933 IGDIST FSNAME=GT40.SYST                                   
            D4T2   1037  GT40_GRAPHICS_SYSTEM.SYST.O.003    1 LINE     55    3 PAGE UM   GOODRICH            MAY  16, 1977  17:49:15
0          HAS A "$CONTINUE WITH SBWB:LOADER RETURN" CARD TO PICK UP THE OBJECT FOR 656/4.
00656/004   GT40 GRAPHICS SYSTEM     LOADER          S   G          S0933 IGDIST FSNAME=GT40.LOAD.S                                 
            D4T2   1038  GT40_GRAPHICS_SYSTEM.LOAD.S.004    1 LINE     82    3 PAGE UM   GOODRICH            AUG. 12, 1976  15:57:22
0          PROGRAM TO LOAD A DEC GT40 DISPLAY VIA TELEPHONE LINE.
00656/005   GT40 GRAPHICS SYSTEM     LOADER          O   G          S0933 IGDIST FSNAME=GT40.LOAD                                   
            D4T2   1039  GT40_GRAPHICS_SYSTEM.LOAD.O.005    1 LINE     76    1 PAGE UM   GOODRICH            MAY  16, 1977  17:49:13
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00657/001A *ASCEBCD                                  SA  G          S0792 WSGFS FSNAME=ASCEBCD                                      
            4.3T1   667  ASCEBCD..SA.001                    1 LINE     80    3 PAGE UM   WSG                 JAN. 11, 1980  17:35:45
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/002A *ASCEBCD                                  OC  G          *ASCEBCD                                                        
            4.3T1   668  ASCEBCD..OC.002                    1 LINE     80    1 PAGE UM   WSG                 APR. 05, 1980  19:32:36
                         *ASCEBCD             
00658/001A *EBCDASC                                  SA  G          S0792 WSGFS FSNAME=EBCDASC                                      
            4.3T1   669  EBCDASC..SA.001                    1 LINE     80    5 PAGE UM   WSG                 JAN. 11, 1980  17:37:01
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                                                        
            4.3T1   670  EBCDASC..OC.002                    1 LINE     80    2 PAGE UM   WSG                 APR. 05, 1980  19:32:42
                         *EBCDASC             
00659/001A  GOM                      COMPILER FTN    SF  G          DWB:GOM.S                                                       
            4.3T1   671  GOM.COMPILER_FTN.SF.001            1 LINE    100  110 PAGE UM   DWB                 APR. 05, 1980  19:32:43
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 (31000,31999).
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           THIS VERSION OF GOM INCORPORATES THE R12 - R13 REGISTER SWITCH FOR LINKAGE=MTS
           OR CLSMTS AND THE USE OF PSEUDOREGISTERS FOR GLOBAL AREAS IF LINKAGE IS CLSMTS.
           *****************************************************************************
0          Referenced by comments of: 659/5, 659/25 
00659/002A  GOM                      COMPILER FTN    OC  G          DWB:GOM.O                                                       
            4.3T1   672  GOM.COMPILER_FTN.OC.002            1 LINE  25920  158 PAGE UM   DWB                 APR. 05, 1980  19:34:30
                         DWB.:GOM.O           
0          OBJECT CORRESPONDING TO 659/1, PLUS THE OBJECT FOR THE MODULE WHOSE SOURCE
           IS IN LINES (1000,1999) OF 659/3 SINCE THIS IS THE ONLY GOM MODULE WHICH IS
           REQUIRED.  THIS ALLOWS CHECKOUT TO BE DONE USING 659/2 + 659/6.
00659/003A  GOM                      COMPILER GOM    SG  G          DWB:GOM.SG                                                      
            4.3T1   673  GOM.COMPILER_GOM.SG.003            1 LINE    153   17 PAGE UM   DWB                 APR. 05, 1980  19:34:41
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).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/004A  GOM                      COMPILER GOM    OC  G          DWB:GOM.OG                                                      
            4.3T1   674  GOM.COMPILER_GOM.OC.004            1 LINE  16100   17 PAGE UM   DWB                 APR. 05, 1980  19:34:48
                         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  SEQS    DWB:GOM.SEQS                                                    
            4.3T1   675  GOM.SEQUENCES.SA.005               1 LINE     80  137 PAGE UM   DWB                 APR. 05, 1980  19:34:51
0          THIS IS NOT EXECUTABLE. THE FORTRAN SOURCE PIECES (659/1) TREAT THIS AS A
           COMMON SECTION THAT IS AN ARRAY OF HALFWORDS.
00659/006A  GOM                      SEQUENCES       OC  G          DWB:GOM.SEQS.O                                                  
            4.3T1   676  GOM.SEQUENCES.OC.006               1 LINE     80   39 PAGE UM   DWB                 APR. 05, 1980  19:35:13
                         DWB.:GOM.SEQS.O      
0          OBJECT CORRESPONDING TO 659/5.
00659/007A  GOM                      OBJECT          OE  G          *GOM                                                            
            4.3T1   677  GOM.OBJECT.OE.007                  1 LINE  32767   93 PAGE UM   DWB                 APR. 05, 1980  19:35:15
                         *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 NEW:GOM
             PUNCH NEW:GOM
            
           NOTE:  THE UPDATE COMMAND IN THE ABOVE SEQUENCE WILL CAUSE *LINKEDIT TO EMIT A
                  WARNING MESSAGE TO THE EFFECT THAT THERE ARE STRUCTURAL DIFFERENCES IN THE
                  MODULES DEFINING MTRXPR.  THIS IS OK.
            
           AN ALMOST ALL-FORTRAN VERSION CAN BE PRODUCED BY THE FOLLOWING *LINKEDIT COMMANDS:
             INCLUDE GOM.O
             INCLUDE GOM.SEQS.O
             COMBINE@BC
             PURGE
             $EMPTY NEW:GOM
             PUNCH NEW:GOM
            
           *******************************************************************************
           D4.3 CHANGES:
            
           "INCLUDE GOM.SYMOPG(1000)" NOW REQUIRED AS COMMAND TO *LINKEDIT FOR THE MIXED
           GOM/FTN VERSION (AS GIVEN ABOVE).  GOM.SYMOPG IS DISTRIBUTED AS 659/16 AND
           659/17 BELOW.
           *******************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/008A  GOM                      COMMON DECLAR   SF  G          DWB:GOM.COMMON                                                  
            4.3T1   678  GOM.COMMON_DECLAR.SF.008           1 LINE     71    1 PAGE UM   DWB                 APR. 05, 1980  19:35:20
0          "$CONTINUE WITH"ED BY ALL FORTRAN MODULES. CONTAINS COMMON DEFINITIONS AND
           COMMON DECLARATIONS.
0          Referenced by comments of: 659/1, 659/20 
00659/009A  GOM                      COMMON DECLAR   SG  G          DWB:GOM.COMMONG                                                 
            4.3T1   679  GOM.COMMON_DECLAR.SG.009           1 LINE     83    3 PAGE UM   DWB                 APR. 05, 1980  19:35:22
0          GOM "COPY SECTION" EQUIVALENT TO 659/8.  "$CONTINUE WITH"ED BY ALL GOM MODULES.
0          Referenced by comments of: 659/3, 659/20 
00659/010   GOM                      DEPEND DECLAR   SF  G          DWB:GOM.COMMOND                                                 
            D4.2T1  554  GOM.DEPEND_DECLAR.SF.010           1 LINE     71    1 PAGE UM   DWB                 APR. 02, 1979  00:28:31
0          "$CONTINUE WITH"ED BY ALL MODULES WHICH ARE CHARACTER OR MACHINE DEPENDENT.
           CONTAINS COMMON SECTIONS AND DEFINITIONS.
0          Referenced by comments of: 659/1 
00659/011C  GOM                      DEPEND DECLAR   SG  G          DWB:GOM.COMMONDG                                                
            4.3T1   680  GOM.DEPEND_DECLAR.SG.011           1 LINE     79    1 PAGE UM   DWB                 APR. 05, 1980  19:35:24
0          GOM EQUIVALENT OF 659/10.
0          Referenced by comments of: 659/3 
00659/012   GOM                      CON TAB DECLAR  SF  G          DWB:GOM.CONTAB                                                  
            D4.2T1  555  GOM.CON_TAB_DECLAR.SF.011          1 LINE     71    1 PAGE UM   DWB                 APR. 02, 1979  00:28:31
0          "$CONTINUE WITH"ED BY THOSE MODULES DEALING WITH THE CONSTANT TABLE.
           CONTAINS ALL DEFINITIONS FOR CONSTANT TABLE.
0          Referenced by comments of: 659/1 
00659/013C  GOM                      CON TAB DECLAR  SG  G          DWB:GOM.CONTABG                                                 
            4.3T1   681  GOM.CON_TAB_DECLAR.SG.013          1 LINE     71    1 PAGE UM   DWB                 APR. 05, 1980  19:35:27
0          GOM EQUIVALENT OF 659/12.
0          Referenced by comments of: 659/3 
00659/014   GOM                      TRIPLES TABLE   SF  G          DWB:GOM.MATRIX                                                  
            D4.1T1  476  GOM.TRIPLES_TABLE.SF.012           1 LINE     38    1 PAGE UM   DWB                 MAY  13, 1978  18:09:23
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 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/015A  GOM                      SYM TAB DECLAR  SF  G          DWB:GOM.SYMTAB                                                  
            4.3T1   682  GOM.SYM_TAB_DECLAR.SF.015          1 LINE     69    1 PAGE UM   DWB                 APR. 05, 1980  19:35:29
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/016C  GOM                      SYM TAB OPER    SA  G          DWB:GOM.SYMOPG(1,999)                                           
            4.3T1   683  GOM.SYM_TAB_OPER.SA.016            1 LINE     70    4 PAGE UM   DWB                 APR. 05, 1980  19:35:32
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/017C  GOM                      SYM TAB OPER    OC  G          DWB:GOM.SYMOPG(1000)                                            
            4.3T1   684  GOM.SYM_TAB_OPER.OC.017            1 LINE     80    6 PAGE UM   DWB                 APR. 05, 1980  19:35:36
00659/018C  GOM                      DATA INIT RTN   SA  G          DWB:GOM.DIN(1,999)                                              
            4.3T1   685  GOM.DATA_INIT_RTN.SA.018           1 LINE     60    1 PAGE UM   DWB                 APR. 05, 1980  19:35:39
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 - NOT
           YET DISTRIBUTED).
00659/019C  GOM                      DATA INIT RTN   OC  G          DWB:GOM.DIN(1000)                                               
            4.3T1   686  GOM.DATA_INIT_RTN.OC.019           1 LINE     80    1 PAGE UM   DWB                 APR. 05, 1980  19:35:43
0          THE OBJECT FOR 659/17.  IT WILL EVENTUALLY GO INTO "SEGMENT 2."
00659/020   GOM                      COPY SECT CVT   SS  G          DWB:GOM.CONVERT                                                 
            D4T2   1057  GOM.COPY_SECT_CVT.SS.014           1 LINE     70    1 PAGE UM   DWB                 JULY 28, 1977  22:02:01
0          SNOBOL PROGRAM TO CONVERT THE FORTRAN COPY SECTIONS (E.G. GOM.COMMON (659/8))
           INTO THE EQUIVALENT GOM COPY SECTIONS (E.G. GOM.COMMONG (659/9)).
00659/021A  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
0          CONTAINS DESCRIPTIONS OF RECENT ADDITIONS TO THE LANGUAGE.
0          Referenced by comments of: 659/22 
00659/022   GOM                      USER'S MANUAL   WF             DWB:GOMMANUAL                                                   
            D4.2T1  558  GOM.USER'S_MANUAL.WF.016           1 LINE    147   42 PAGE UM   DWB                 APR. 02, 1979  00:28:36
0          A USER'S MANUAL FOR GOM CONSISTING MOSTLY OF THE OLD 7090 MAD MANUAL CHAPTER
           II, WITH DELETIONS, ADDITIONS, AND REVISIONS FOR GOM.
            
           NOT EVER QUITE UP TO DATE.  ALWAYS SEE GOMNEWS (659/21).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/023   GOM                      DOCUMENTATION   WF             DWB:GOM.PROGWRUP                                                
            D4T2   1061  GOM.DOCUMENTATION.WF.018           1 LINE    108    4 PAGE UM   DWB                 JULY 28, 1977  22:02:22
0          WRITEUP DESCRIBING THE STRUCTURE OF AN OBJECT MODULE PRODUCED BY GOM.
00659/024   GOM                      DOCUMENTATION   WF             DWB:GOM.LISTWRUP                                                
            D4.2T1  559  GOM.DOCUMENTATION.WF.018           1 LINE    120    6 PAGE UM   DWB                 APR. 02, 1979  00:28:47
0          WRITEUP DESCRIBING THE INTERNALS OF THE COMPILER AND HOW TO READ THE
           COMPILER LISTINGS.
0          Referenced by comments of: 659/25 
00659/025A  GOM                      DOCUMENTATION   SS  G          DWB:GOM.PEEL                                                    
            4.3T1   688  GOM.DOCUMENTATION.SS.025           1 LINE     74    1 PAGE UM   DWB                 APR. 05, 1980  19:35:51
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/026C  GOM                      DOCUMENTATION   P              W008:F77.COM.DOC                                                
            4.3T1   689  GOM.DOCUMENTATION.P.026            1 LINE     68    6 PAGE UM   SWARTZ    DWB       APR. 05, 1980  19:35:55
0          CONTAINS EXPLANATION OF EACH SYMBOL IN A GOM COMMON SECTION.  ALSO HAS THE
           SYMBOLS ADDED FOR THE FORTRAN77 PROJECT.
00659/027   GOM                      READ DATA SUBR  SA  G  RDAT    DWB:GOM.RDATA(1,999)                                            
            D4T2   1064  GOM.READ_DATA_SUBR.SA.021          1 LINE     80   17 PAGE UM   DWB                 JULY 28, 1977  22:02:29
0          SUBROUTINE CALLED BY "READ DATA" AND "READ AND PRINT DATA" STATEMENTS.
0          Referenced by comments of: 659/34 
00659/028   GOM                      READ DATA SUBR  OC  G          DWB:GOM.RDATA(1000)                                             
            D4T2   1065  GOM.READ_DATA_SUBR.OC.022          1 LINE     80    4 PAGE UM   DWB                 JULY 28, 1977  22:02:32
                         DWB:GOM.RDATA        
0          OBJECT ALSO IN *LIBRARY.
00659/029   GOM                      PRINT RES SUBR  SA  G  PRSL    DWB:GOM.PRSLT(1,999)                                            
            D4T2   1066  GOM.PRINT_RES_SUBR.SA.023          1 LINE     80   13 PAGE UM   DWB                 JULY 28, 1977  22:02:34
0          SUBROUTINE CALLED BY "PRINT RESULTS", "PRINT BCD RESULTS", AND "PRINT HEX
           RESULTS" STATEMENTS.
0          Referenced by comments of: 659/33 
00659/030   GOM                      PRINT RES SUBR  OC  G          DWB:GOM.PRSLT(1000)                                             
            D4T2   1067  GOM.PRINT_RES_SUBR.OC.024          1 LINE     80    3 PAGE UM   DWB                 JULY 28, 1977  22:02:37
                         DWB.:GOM.PRSLT       
0          OBJECT ALSO IN *LIBRARY.
           HAS A "$CONTINUE WITH *EXPLIB" LINE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/031   GOM                      TEST PROGRAMS   C   G          DWB:GOM.EXAMP                                                   
            D4T2   1069  GOM.TEST_PROGRAMS.C.026            1 LINE     43    1 PAGE UM   DWB                 JULY 28, 1977  22:02:41
0          COMMANDS FOR A BATCH JOB WHICH COMPILES AND EXECUTES THREE TEST PROGRAMS
           (659/32).
0          Referenced by comments of: 659/32 
00659/032   GOM                      TEST PROGRAMS   SG  G          DWB:TESTMAD                                                     
            D4T2   1070  GOM.TEST_PROGRAMS.SG.027           1 LINE     81    5 PAGE UM   DWB                 JULY 28, 1977  22:02:44
0          A MOTLEY ASSORTMENT OF OLD-MAD PROGRAMS, SOME OF WHICH HAVE BEEN MODIFIED
           FOR GOM AND ARE USED BY GOM.EXAMP (659/31).
0          Referenced by comments of: 659/31 
00659/033   GOM                      TEST PROGRAMS   SA  G  TPRS    DWB:GOM.PRSLT.T(1,999)                                          
            D4T2   1071  GOM.TEST_PROGRAMS.SA.028           1 LINE     80    2 PAGE UM   DWB                 JULY 28, 1977  22:02:46
0          TEST PROGRAM FOR PRINT RESULTS SUBROUTINE (659/29).
00659/034   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.RDATA.T                                                 
            D4T2   1072  GOM.TEST_PROGRAMS.SG.029           1 LINE     37    1 PAGE UM   DWB                 JULY 28, 1977  22:02:48
0          TEST PROGRAM FOR READ DATA SUBROUTINE (659/27).
00659/035   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST.SDS                                                
            D4T2   1073  GOM.TEST_PROGRAMS.SG.030           1 LINE     32    1 PAGE UM   DWB                 JULY 28, 1977  22:02:50
0          RUN GOM WITH PAR=TEST ON THIS SOURCE TO CHECK SYM CARD GENERATION.
           CURRENT PECULARITIES OF GOM SYM CARDS ARE:
            (1) THEY ARE PL3 CARDS,
            (2) SINCE SDS NEVER HEARD OF STARTING ARRAYS AT SUBSCRIPT 0 INSTEAD OF 1,
                ARRAY REFERENCES ARE OFF BY ONE.
           THESE WILL BE FIXED SOMETIME WHEN A GOM CARD IS DEFINED AND SDS SUPPORTS IT.
00659/036   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.SIMPLE                                                  
            D4T2   1074  GOM.TEST_PROGRAMS.SG.031           1 LINE     42    1 PAGE UM   DWB                 JULY 28, 1977  22:02:53
0          THIS COMPONENT AND THOSE WHICH FOLLOW ARE MISCELLANEOUS TEST INPUT FOR THE COMPILER.
           THEY ARE (OBVIOUSLY) NOT TO BE EXECUTED AFTER COMPILATION.
00659/037   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST.FN                                                 
            D4T2   1075  GOM.TEST_PROGRAMS.SG.032           1 LINE     50    1 PAGE UM   DWB                 JULY 28, 1977  22:02:55
0          FIFTEEN TEST PROGRAMS (STARTING AT LINES 1, 1000, 2000, ...) TO TEST EXTERNAL AND
           INTERNAL FUNCTIONS.
00659/038   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST                                                    
            D4T2   1076  GOM.TEST_PROGRAMS.SG.033           1 LINE     53    1 PAGE UM   DWB                 JULY 28, 1977  22:02:57
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/039   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST2                                                   
            D4T2   1077  GOM.TEST_PROGRAMS.SG.034           1 LINE     41    1 PAGE UM   DWB                 JULY 28, 1977  22:03:00
00659/040   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST3                                                   
            D4T2   1078  GOM.TEST_PROGRAMS.SG.035           1 LINE     33    1 PAGE UM   DWB                 JULY 28, 1977  22:03:02
00659/041   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST4                                                   
            D4T2   1079  GOM.TEST_PROGRAMS.SG.036           1 LINE     45    1 PAGE UM   DWB                 JULY 28, 1977  22:03:04
0          AN EARLY VERSION OF A PROGRAM WHICH IS USEFUL FOR TESTING ARRAYS OF STATEMENT LABEL
           CONSTANTS.  SEE ALSO THE INTERACTIVE VERSION OF IG (498/86) FOR THE LATEST VERSION.
00659/042   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST5                                                   
            D4T2   1080  GOM.TEST_PROGRAMS.SG.037           1 LINE     34    1 PAGE UM   DWB                 JULY 28, 1977  22:03:07
0          TEST PROGRAM WHICH TESTS VECTOR VALUES AND SHIFTS.
00659/043   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST6                                                   
            D4T2   1081  GOM.TEST_PROGRAMS.SG.038           1 LINE     30    1 PAGE UM   DWB                 JULY 28, 1977  22:03:09
0          TEST PROGRAM WHICH TESTS ARRAY ACCESSING.
00659/044   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST7                                                   
            D4T2   1082  GOM.TEST_PROGRAMS.SG.039           1 LINE     41    1 PAGE UM   DWB                 JULY 28, 1977  22:03:11
0          EIGHT TEST SECTIONS (AT LINES 1, 100, 200, ...) TO TEST PROGRAM COMMON.
00659/045   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST8                                                   
            D4T2   1083  GOM.TEST_PROGRAMS.SG.040           1 LINE     30    1 PAGE UM   DWB                 JULY 28, 1977  22:03:13
0          TEST PROGRAM WHICH TESTS EXPONENTIATION.
00659/046   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST9                                                   
            D4T2   1084  GOM.TEST_PROGRAMS.SG.041           1 LINE     51    1 PAGE UM   DWB                 JULY 28, 1977  22:03:16
0          TEST PROGRAM WHICH TESTS THE .LOC. AND .IND. OPERATORS.
00659/047   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST10                                                  
            D4T2   1085  GOM.TEST_PROGRAMS.SG.042           1 LINE     24    1 PAGE UM   DWB                 JULY 28, 1977  22:03:18
0          TEST PROGRAM WHICH TESTS SHORT INTEGER AND BYTE INTEGER DATA TYPES.
00659/048A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST11                                                  
            4.3T1   690  GOM.TEST_PROGRAMS.SG.048           1 LINE     44    1 PAGE UM   DWB                 APR. 05, 1980  19:35:59
0          TEST PROGRAM WHICH TESTS CHARACTER SUBSTRING OPERATION.
00659/049   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST12                                                  
            D4T2   1087  GOM.TEST_PROGRAMS.SG.044           1 LINE     24    1 PAGE UM   DWB                 JULY 28, 1977  22:03:23
0          TEST PROGRAM WHICH TESTS THE "@" CONSTANT QUALIFIER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/050   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST13                                                  
            D4T2   1088  GOM.TEST_PROGRAMS.SG.045           1 LINE     40    1 PAGE UM   DWB                 JULY 28, 1977  22:03:25
0          TEST PROGRAM WHICH TESTS THE ADDRESSING OF NEW DATA TYPES WHEN THEY ARE IN
           PROGRAM COMMON.  (SAME AS 659/47 EXCEPT ALL VARIABLES ARE IN PROGRAM COMMON.)
00659/051   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST14                                                  
            D4T2   1089  GOM.TEST_PROGRAMS.SG.046           1 LINE     46    1 PAGE UM   DWB                 JULY 28, 1977  22:03:27
0          TEST PROGRAM WHICH TESTS THE LONG INTEGER DATA TYPE AND THE .AS. OPERATOR.
00659/052   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST15                                                  
            D4T2   1090  GOM.TEST_PROGRAMS.SG.047           1 LINE     62    1 PAGE UM   DWB                 JULY 28, 1977  22:03:30
0          EXTERNAL FUNCTION TO DO HEX OUTPUT IN 6 STATEMENTS.  IT ILLUSTRATES THE .RS.
           AND .A. OPERATORS, THE @X CONSTANT MODIFIER, AND SUBSCRIPTION OF A CONSTANT.
00659/053   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST16                                                  
            D4T2   1091  GOM.TEST_PROGRAMS.SG.048           1 LINE     46    1 PAGE UM   DWB                 JULY 28, 1977  22:03:32
0          TEST PROGRAM WHICH TESTS "PRINT RESULTS" FOR THE SHORT INTEGER, BYTE INTEGER,
           CHARACTER, AND LONG INTEGER DATA TYPES.
00659/054   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST17                                                  
            D4T2   1092  GOM.TEST_PROGRAMS.SG.049           1 LINE     45    1 PAGE UM   DWB                 JULY 28, 1977  22:03:34
0          TEST PROGRAM WHICH TESTS "READ DATA" FOR VARIED DATA TYPES.
00659/055   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST18                                                  
            D4T2   1093  GOM.TEST_PROGRAMS.SG.050           1 LINE     52    1 PAGE UM   DWB                 JULY 28, 1977  22:03:36
0          SMALL TEST PROGRAM WHICH CHECKS IF LOOP-END TERMINATION IS CORRECT.
00659/056A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST19                                                  
            4.3T1   691  GOM.TEST_PROGRAMS.SG.056           1 LINE     53    1 PAGE UM   DWB                 APR. 05, 1980  19:36:03
0          TEST PROGRAM WHICH CHECKS THE R-TYPE CALLING SEQUENCE GENERATION.
00659/057A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST20                                                  
            4.3T1   692  GOM.TEST_PROGRAMS.SG.057           1 LINE     54    1 PAGE UM   DWB                 APR. 05, 1980  19:36:07
0          TEST PROGRAM WHICH TESTS DYNAMIC RECORDS, AND ALLOCATE, RELEASE, USING POINTER,
           AND THE .SIZE. OPERATOR.
00659/058A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST21                                                  
            4.3T1   693  GOM.TEST_PROGRAMS.SG.058           1 LINE     56    1 PAGE UM   DWB                 APR. 05, 1980  19:36:09
0          TEST PROGRAM WHICH TESTS RETURN CODE EXTRACTION AND TESTING FOR FORMATTED I/O STATEMENTS.
00659/059   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST22                                                  
            D4T2   1097  GOM.TEST_PROGRAMS.SG.054           1 LINE     41    1 PAGE UM   DWB                 JULY 28, 1977  22:03:46
0          TEST PROGRAM WHICH TESTS ALTERNATE STRING DELIMITERS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/060   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST23                                                  
            D4.1T1  481  GOM.TEST_PROGRAMS.SG.055           1 LINE     33    1 PAGE UM   DWB                 MAY  13, 1978  18:09:39
0          TEST PROGRAM WHICH TESTS THE "CONSTANT" STATEMENT.
00659/061   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST24                                                  
            D4T2   1099  GOM.TEST_PROGRAMS.SG.056           1 LINE     35    1 PAGE UM   DWB                 JULY 28, 1977  22:03:50
0          TEST PROGRAM WHICH TESTS PART 1 ERROR COMMENTS.  (ALMOST EVERY STATEMENT SHOULD
           GET AN ERROR COMMENT FROM THE FIRST PHASE OF THE COMPILER.)
00659/062   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST25                                                  
            D4.1T1  482  GOM.TEST_PROGRAMS.SG.057           1 LINE     31    1 PAGE UM   DWB                 MAY  13, 1978  18:09:39
0          TEST PROGRAM WHICH CHECKS STATEMENT LABEL CONSTANTS (SCALAR AND ARRAYS) AND STATEMENT
           LABEL VARIABLES (SCALARS AND ARRAYS).
00659/063   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST26                                                  
            D4T2   1101  GOM.TEST_PROGRAMS.SG.058           1 LINE     57    1 PAGE UM   DWB                 JULY 28, 1977  22:03:55
0          TEST PROGRAM TO SEE IF ILLEGAL UNARY "/" OPERATOR IS CAUGHT.
00659/064   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST27                                                  
            D4T2   1102  GOM.TEST_PROGRAMS.SG.059           1 LINE     26    1 PAGE UM   DWB                 JULY 28, 1977  22:03:57
0          PROGRAM TO TEST THAT CONSTANTS ARE ALLOCATED CORRECTLY IN THE CASE THAT THE
           FIRST OCCURRENCE OF THE CONSTANT "1"  APPEARS AS THE FIRST CONSTANT FOLLOWING
           A VECTOR VALUES STATEMENT WHICH IS INITIALIZING AN ARRAY WHICH HAS ALREADY BEEN
           PARTIALLY INITIALIZED BY A PREVIOUS VECTOR VALUES STATEMENT. WOW!
00659/065   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST28                                                  
            D4T2   1103  GOM.TEST_PROGRAMS.SG.060           1 LINE     70    1 PAGE UM   DWB                 JULY 28, 1977  22:03:59
0          PROGRAM TO TEST THAT TEMPORARIES ARE PROPERLY USED WHEN IT RUNS OUT OF REGISTERS.
00659/066   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST29                                                  
            D4T2   1104  GOM.TEST_PROGRAMS.SG.061           1 LINE     34    1 PAGE UM   DWB                 JULY 28, 1977  22:04:02
0          PROGRAM TO TEST PARSING OF HEX CONSTANTS AND PROPER INSERTION OF SAME AND CHARACTER
           CONSTANTS IN VECTOR VALUES STATEMENTS.
00659/067   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST30                                                  
            D4T2   1105  GOM.TEST_PROGRAMS.SG.062           1 LINE     67    1 PAGE UM   DWB                 JULY 28, 1977  22:04:04
0          PROGRAM TO TEST THE INITIALIZATION OF ARRAYS WITH NAMES OF INTERNAL AND EXTERNAL
           FUNCTIONS, STATEMENT LABELS, AND MIXTURES OF SAME TOGETHER WITH INTEGERS.
00659/068   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST31                                                  
            D4T2   1106  GOM.TEST_PROGRAMS.SG.063           1 LINE     62    1 PAGE UM   DWB                 JULY 28, 1977  22:04:06
0          PROGRAM TO TEST TO SEE THAT TEMPORARIES USED BY AN INTERNAL FUNCTION ARE NOT THE
           SAME TEMPORARIES USED TO SAVE COMPUTED PARAMETERS ON THE CALL TO THAT FUNCTION.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/069   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST32                                                  
            D4T2   1107  GOM.TEST_PROGRAMS.SG.064           1 LINE     58    1 PAGE UM   DWB                 JULY 28, 1977  22:04:09
0          TEST OF FUNCTION CALLS WITH AND WITHOUT (A) ARGUMENT LISTS, (B) RETURN CODE
           EXTRACTION, AND (C) WHETHER IN EXPRESSION OR STAND-ALONE.
00659/070   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST33                                                  
            D4T2   1108  GOM.TEST_PROGRAMS.SG.065           1 LINE     66    1 PAGE UM   DWB                 JULY 28, 1977  22:04:11
0          TEST FOR FOUR MISCELLANEOUS PROBLEMS.
00659/071   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST34                                                  
            D4T2   1109  GOM.TEST_PROGRAMS.SG.066           1 LINE    140    1 PAGE UM   DWB                 JULY 28, 1977  22:04:13
0          TEST FOR LONG INPUT LINES IN THE SOURCE (FOR WRAPAROUND ON THE LISTING).
00659/072   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST35                                                  
            D4T2   1110  GOM.TEST_PROGRAMS.SG.067           1 LINE     74    1 PAGE UM   DWB                 JULY 28, 1977  22:04:16
0          TEST FOR PROPER CODE IN THE CASE THAT A USING IS IN EFFECT, AND THE POINTER
           IS A DUMMY VARIABLE, IS IN COMMON, OR IS IN ANOTHER DYNAMIC RECORD WHOSE
           POINTER MAY BE IN YET ANOTHER DYNAMIC RECORD (OR IN COMMON, OR A DUMMY
           VARIABLE)...
00659/073   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST36                                                  
            D4.1T1  483  GOM.TEST_PROGRAMS.SG.068           1 LINE     60    1 PAGE UM   DWB                 MAY  13, 1978  18:09:40
0          TEST SIMPLE I/O AND FORMATTED I/O WHEN I/O UNIT OR FDUB IS SPECIFIED.
00659/074   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST37                                                  
            D4.1T1  484  GOM.TEST_PROGRAMS.SG.069           1 LINE     61    1 PAGE UM   DWB                 MAY  13, 1978  18:09:41
0          TESTS FORMATTED I/O WHEN I/O UNIT OR FDUB IS SPECIFIED AND THERE IS NO SYMBOL TABLE.
00659/075   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST38                                                  
            D4.1T1  485  GOM.TEST_PROGRAMS.SG.070           1 LINE     40    1 PAGE UM   DWB                 MAY  13, 1978  18:09:42
0          TESTS FORMAT VARIABLE STATEMENT AND USE OF FORMAT VARIABLES.
00659/076   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST39                                                  
            D4.1T1  486  GOM.TEST_PROGRAMS.SG.071           1 LINE     57    1 PAGE UM   DWB                 MAY  13, 1978  18:09:42
0          TESTS LONG INTEGER EXPRESSIONS IN COMPARATIVES.
0          Referenced by comments of: 659/81 
00659/077   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST40                                                  
            D4.2T1  561  GOM.TEST_PROGRAMS.SG.070           1 LINE     80    1 PAGE UM   DWB                 APR. 02, 1979  00:28:48
0          PROGRAM TO TEST SUPERVISOR CALL STATEMENT.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/078   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST41                                                  
            D4.2T1  562  GOM.TEST_PROGRAMS.SG.071           1 LINE     67    2 PAGE UM   DWB                 APR. 02, 1979  00:28:49
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/9) RECORDS.
00659/079   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST42                                                  
            D4.2T1  563  GOM.TEST_PROGRAMS.SG.072           1 LINE     39    1 PAGE UM   DWB                 APR. 02, 1979  00:28:50
0          PROGRAM TO TEST R-TYPE SUBROUTINE ENTRY.
00659/080A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST43                                                  
            4.3T1   694  GOM.TEST_PROGRAMS.SG.080           1 LINE     38    1 PAGE UM   DWB                 APR. 05, 1980  19:36:12
0          PROGRAM TO TEST FUNCTION ENTRIES WITH VARIABLE NUMBER OF ARGUMENTS.
00659/081   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST44                                                  
            D4.2T1  565  GOM.TEST_PROGRAMS.SG.074           1 LINE     65    2 PAGE UM   DWB                 APR. 02, 1979  00:28:51
0          THIS IS THE SAME PROGRAM AS TEST 41 (659/76), 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/9) RECORDS.
00659/082   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST45                                                  
            D4.2T1  566  GOM.TEST_PROGRAMS.SG.075           1 LINE     44    1 PAGE UM   DWB                 APR. 02, 1979  00:28:52
0          TEST OF SPECIFYING SUBSTRING AS "BEG|LEN" AS WELL AS "BEG...END".
00659/083   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST46                                                  
            D4.2T1  567  GOM.TEST_PROGRAMS.SG.076           1 LINE     35    1 PAGE UM   DWB                 APR. 02, 1979  00:28:54
0          PROGRAM TO TEST THE ITERATE STATEMENT.
00659/084   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST47                                                  
            D4.2T1  568  GOM.TEST_PROGRAMS.SG.077           1 LINE     56    1 PAGE UM   DWB                 APR. 02, 1979  00:28:54
0          PROGRAM AND RECURSIVE SUBROUTINE TO TEST STACKSIZE=NNNP OPTION ("RXENTER")
           AND LINKAGE=MTS OPTIONS, RESPECTIVELY.  COMPUTES ACKERMAN'S FUNCTION.
00659/085   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST48                                                  
            D4.2T1  569  GOM.TEST_PROGRAMS.SG.078           1 LINE     56    1 PAGE UM   DWB                 APR. 02, 1979  00:28:55
0          PROGRAM TO TEST MULTIPLE-DIMENSIONING CODE.  THIS SHOULD NOT BE RUN.
00659/086   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST49                                                  
            D4.2T1  570  GOM.TEST_PROGRAMS.SG.079           1 LINE     58    1 PAGE UM   DWB                 APR. 02, 1979  00:28:56
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                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/087   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST50                                                  
            D4.2T1  571  GOM.TEST_PROGRAMS.SG.080           1 LINE     48    1 PAGE UM   DWB                 APR. 02, 1979  00:28:57
0          PROGRAM TO TEST INCLUDE STATEMENT AND THE IF, ELSEIF, ELSE, ENDIF, LOOP,
           AND ENDLOOP ALTERNATE FORMS.
00659/088   GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST51                                                  
            D4.2T1  572  GOM.TEST_PROGRAMS.SG.081           1 LINE     60    1 PAGE UM   DWB                 APR. 02, 1979  00:28:57
0          PROGRAM TO TEST LONG INTEGER CONSTANTS AND MODIFIERS.
00659/089A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST52                                                  
            4.3T1   695  GOM.TEST_PROGRAMS.SG.089           1 LINE     56    1 PAGE UM   DWB                 APR. 05, 1980  19:36:15
0          PROGRAM TO TEST PUTTING ITEMS IN VECTOR VALUES STATEMENT FOR PROPER LENGTHS
           AT PROPER DISPLACEMENTS.
00659/090A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST53                                                  
            4.3T1   696  GOM.TEST_PROGRAMS.SG.090           1 LINE     80    1 PAGE UM   DWB                 APR. 05, 1980  19:36:17
0          COMMANDS AND SOURCE OF GOM DRIVER PROGRAM, GOM SUBROUTINE AND PLUS 
           SUBROUTINE TO TEST LINKAGES.  BOTH SUBPROGRAMS PRINT "HELLO THERE".
00659/091A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST54                                                  
            4.3T1   697  GOM.TEST_PROGRAMS.SG.091           1 LINE     53    1 PAGE UM   DWB                 APR. 05, 1980  19:36:20
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/092A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST55                                                  
            4.3T1   698  GOM.TEST_PROGRAMS.SG.092           1 LINE     43    1 PAGE UM   DWB                 APR. 05, 1980  19:36:22
0          PROGRAM TO TEST PASSING FUNCTION NAME CONSTANT TO SUBROUTINE WHICH WILL THEN
           USE IT IN A CALL.
00659/093A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST56                                                  
            4.3T1   699  GOM.TEST_PROGRAMS.SG.093           1 LINE     72    1 PAGE UM   DWB                 APR. 05, 1980  19:36:25
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/094A  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST57                                                  
            4.3T1   700  GOM.TEST_PROGRAMS.SG.094           1 LINE     36    1 PAGE UM   DWB                 APR. 05, 1980  19:36:27
0          PROGRAM TO CHECK PASSING OF ARGUMENTS TO INTERNAL FUNCTIONS BEING REENTRANT
           FOR REENTRANT OR RECURSIVE EXTERNAL FUNCTIONS.
00659/095C  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST58                                                  
            4.3T1   701  GOM.TEST_PROGRAMS.SG.095           1 LINE     80    7 PAGE UM   DWB                 APR. 05, 1980  19:36:29
0          PROGRAM TO TEST HAVING MORE THAN ONE PAGE OF CONSTANTS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00659/096C  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST59                                                  
            4.3T1   702  GOM.TEST_PROGRAMS.SG.096           1 LINE     35    1 PAGE UM   DWB                 APR. 05, 1980  19:36:32
0          PROGRAM TO TEST OPT=1.
00659/097C  GOM                      TEST PROGRAMS   SG  G          DWB:GOM.TEST60                                                  
            4.3T1   703  GOM.TEST_PROGRAMS.SG.097           1 LINE     59    1 PAGE UM   DWB                 APR. 05, 1980  19:36:34
0          PROGRAM TO TEST .BIT., .SETBIT., AND .RESETBIT. OPERATORS.
00660/001A  MCS-11                   SUPERVISOR      S   G          FEP:SUPER                                                       
            4.3T1   704  MCS-11.SUPERVISOR.S.001            1 LINE     84   52 PAGE UM   EADIE               APR. 05, 1980  19:36:37
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/002A  MCS-11                   DEVICES         S   G          FEP:DEVICES                                                     
            4.3T1   705  MCS-11.DEVICES.S.002               1 LINE     85  136 PAGE UM   EADIE               APR. 05, 1980  19:36:42
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/003A  MCS-11                   TASKS           S   G          FEP:TASKS                                                       
            4.3T1   706  MCS-11.TASKS.S.003                 1 LINE    174   93 PAGE UM   EADIE               APR. 05, 1980  19:36:50
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 
00660/004A  MCS-11                   TABLES          S   G          FEP:TABLES                                                      
            4.3T1   707  MCS-11.TABLES.S.004                1 LINE     91   50 PAGE UM   EADIE               APR. 05, 1980  19:36:58
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/005A  MCS-11                   STORAGE         S   G          FEP:STORAGE                                                     
            4.3T1   708  MCS-11.STORAGE.S.005               1 LINE     74    1 PAGE UM   EADIE               APR. 05, 1980  19:37:02
0          THIS IS THE STORAGE CSECT FOR MCS. IT CONTAINS STORAGE DEFINITIONS FOR THE SYSTEM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00660/006A  MCS-11                   COMMON          S   G          FEP:COMMON                                                      
            4.3T1   709  MCS-11.COMMON.S.006                1 LINE     83   22 PAGE UM   EADIE               APR. 05, 1980  19:37:05
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/007A  MCS-11                   SUPEREXTRN      S   G          FEP:SUPEREXTRN                                                  
            4.3T1   710  MCS-11.SUPEREXTRN.S.007            1 LINE     84    3 PAGE UM   EADIE               APR. 05, 1980  19:37:07
0          THIS IS COPIED BY SEVERAL CSECTS TO GET EXTERNAL SYMBOLS FOR THE SUPERVISOR.
0          Referenced by comments of: 660/2, 660/3 
00660/008A  MCS-11                   TASKSEXTRN      S   G          FEP:TASKSEXTRN                                                  
            4.3T1   711  MCS-11.TASKSEXTRN.S.008            1 LINE     82    1 PAGE UM   EADIE               APR. 05, 1980  19:37:09
0          THIS IS COPIED BY SOME CSECTS TO GET EXTERNAL SYMBOLS FOR TASKS.
0          Referenced by comments of: 660/2 
00660/009A  MCS-11                   CC.EBCDIC       S   G          FEP:CC.EBCDIC                                                   
            4.3T1   712  MCS-11.CC.EBCDIC.S.009             1 LINE     62    1 PAGE UM   EADIE               APR. 05, 1980  19:37:11
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/010A  MCS-11                   DEVICESEXTRN    S   G          FEP:DEVICESEXTRN                                                
            4.3T1   713  MCS-11.DEVICESEXTRN.S.010          1 LINE     82    3 PAGE UM   EADIE               APR. 05, 1980  19:37:14
0          THIS IS COPIED BY CSECTS TO GET EXTERNAL SYMBOLS FOR DEVICES.
0          Referenced by comments of: 660/3 
00660/011A  MCS-11                   CBJOB           C              FEP:CBJOB                                                       
            4.3T1   714  MCS-11.CBJOB.C.011                 1 LINE     67    1 PAGE UM   EADIE               APR. 05, 1980  19:37:16
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/012A  MCS-11                   CCJOB           C              FEP:CCJOB                                                       
            4.3T1   715  MCS-11.CCJOB.C.012                 1 LINE     67    1 PAGE UM   EADIE               APR. 05, 1980  19:37:18
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).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00660/013C  MCS-11                   CDJOB           C              FEP:CDJOB                                                       
            4.3T1   716  MCS-11.CDJOB.C.013                 1 LINE     67    1 PAGE UM   EADIE               APR. 05, 1980  19:37:21
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/014A  MCS-11                   LSIJOB          C              FEP:LSIJOB                                                      
            4.3T1   717  MCS-11.LSIJOB.C.014                1 LINE     71    1 PAGE UM   EADIE               APR. 05, 1980  19:37:23
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/015A  MCS-11                   DEBUG/LOAD      S   G          DIAG:HCOR.S                                                     
            4.3T1   718  MCS-11.DEBUG/LOAD.S.015            1 LINE     81   30 PAGE UM   EADIE               APR. 05, 1980  19:37:25
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/17 
00660/016A  MCS-11                   HCORDATA        S   G          DIAG:HCORDATA                                                   
            4.3T1   719  MCS-11.HCORDATA.S.016              1 LINE     80    1 PAGE UM   EADIE               APR. 05, 1980  19:37:29
0          COPY SECTION USED BY 660/15.
0          Referenced by comments of: 660/15 
00660/017A  MCS-11                   WHICHCONC       S   G          FEP:WHICHCONC                                                   
            4.3T1   720  MCS-11.WHICHCONC.S.017             1 LINE     19    1 PAGE UM   EADIE               APR. 05, 1980  19:37:31
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/018A  MCS-11                   MCP SPEC        WF             CRT:MCP.DOC                                                     
            4.3T1   721  MCS-11.MCP_SPEC.WF.018             1 LINE    101   10 PAGE UM   EADIE               APR. 05, 1980  19:37:34
0          WRITEUP DESCRIBING THE MICHIGAN COMMUNICATIONS PROTOCOL (MCP) USED FOR
           COMPUTER-TO-COMPUTER COMMUNICATIONS AT UM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00660/019A  MCS-11                   MCP EXAMPLE     WF             CRT:MCP.EXAMPLE                                                 
            4.3T1   722  MCS-11.MCP_EXAMPLE.WF.019          1 LINE    109    4 PAGE UM   EADIE               APR. 05, 1980  19:37:36
0          SAMPLE TERMINAL SESSION USING MCP.
00661       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      *3066RTN                                               # (SEE COMPONENT 629)                                             
                                                                                    UM                                              
00663/001  *SIDEDATE                                 SX  O          S0579 SAVE 'JWS-SAVE' FSNAME=SIDEDATE.S                         
            D4T2   1138  SIDEDATE..SX.001                   1 LINE     80   10 PAGE UM   SHERRY              AUG. 27, 1976  20:51:39
0          PROGRAM TO COMPARE TWO *UPDATE FILES WHICH UPDATE THE SAME BASE.  IT PRINTS
           A RECORD OF THEIR DIFFERENCES AND MERGES THE TWO TO PRODUCE A SINGLE *UPDATE
           FILE.  IT IS WRITTEN IN EXTENDED XPL AND MUST BE COMPILED USING *EXPL.
00663/002  *SIDEDATE                                 OC  O          *SIDEDATE                                                       
            D4T2   1139  SIDEDATE..OC.002                   1 LINE    240    8 PAGE UM   SHERRY              JULY 28, 1977  22:57:04
                         *SIDEDATE            
0          OBJECT ALSO IN *LIBRARY.
           HAS A "$CONTINUE WITH *EXPLIB" LINE.
00664/001A  PASCAL/GN                COMPILER        SW  S          W264:PASCAL                                                     
            4.3T1   723  PASCAL.COMPILER.SW.001             1 LINE     80   91 PAGE UM   GREENING            APR. 05, 1980  19:37:39
0          OS/360 VERSION OF PASCAL COMPILER (FROM GRENOBLE) CONVERTED TO MTS.
           THIS IS THE PASCAL SOURCE FOR THE CURRENT COMPILER.
0          Referenced by comments of: 685/11 
00664/002A  PASCAL/GN                PGNT ROUTINE    SA  G  PASM    W264:PAS.MONITOR                                            30  
            4.3T1   724  PASCAL.PGNT_ROUTINE.SA.002         1 LINE     80    4 PAGE UM   GREENING            APR. 05, 1980  19:37:58
0          AUX ROUTINE TO LOG USAGE STATISTICS (FUTURE OF UM PASCAL IS UNCERTAIN) AND
           PROGRAM INTERRUPTS IN THE FILE ETC:PASCALINFO.  DUE TO OS/360 ORIGIN OF
           COMPILER, IT IS FRAUGHT WITH PAGE ZERO REFERENCES WHICH THE ROUTINE IGNORES,
           BUT LOGS.
00664/003A  PASCAL/GN                OBJECT          OE  S          UNSP:PASCAL.GN                                                  
            4.3T1   725  PASCAL.OBJECT.OE.003               1 LINE  32767   37 PAGE UM   GREENING            APR. 05, 1980  19:38:00
                         UNSP:PASCAL.GN       
0          COMPILER REQUIRES FILES NAMED ETC:PASCALINFO (FOR RECORDING USAGE AND INTERRUPT
           STATISTICS) AND ETC:PASCALERRS (664/8).  THIS FILE CONTAINS THE OBJECT FROM
           664/1 AND 664/2.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00664/004A  PASCAL/GN                XREF            SW  G          W264:PAS.XREF.S                                             33  
            4.3T1   726  PASCAL.XREF.SW.004                 1 LINE     73    5 PAGE UM   GREENING            APR. 05, 1980  19:38:03
0          PASCAL SOURCE FOR A CROSS-REFERENCE PROGRAM.
           SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS.
00664/005A  PASCAL/GN                XREF            OC  G          W264:PAS.XREF                                                   
            4.3T1   727  PASCAL.XREF.OC.005                 1 LINE     80    5 PAGE UM   GREENING            APR. 05, 1980  19:38:05
00664/006A  PASCAL/GN                USAGE UTIL      SA  G          W264:PAS.USESNIFF(-1000,-1)                                     
            4.3T1   728  PASCAL.USAGE_UTIL.SA.006           1 LINE     72    4 PAGE UM   GREENING            APR. 05, 1980  19:38:07
0          SOURCE FOR A PROGRAM TO MAKE THE USAGE RECORDS WRITTEN BY 665/2 LEGIBLE.
           SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS.
           NOTE:  THE SOURCE BEGINS AT LINE -1000.
00664/007A  PASCAL/GN                USAGE UTIL      OC  G          W264:PAS.USESNIFF(1,*L)                                         
            4.3T1   729  PASCAL.USAGE_UTIL.OC.007           1 LINE     80    1 PAGE UM   GREENING            APR. 05, 1980  19:38:09
00664/008A  PASCAL/GN                ERROR MESSAGES  M              ETC:PASCALERRS                                                  
            4.3T1   730  PASCAL.ERROR_MESSAGES.M.008        1 LINE     79    3 PAGE UM   GREENING            APR. 05, 1980  19:38:12
                         ETC.:PASCALERRS      
0          ERROR MESSAGES REFERENCED BY THE COMPILER FROM THE FILE ETC:PASCALERRS.
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
0          Referenced by comments of: 664/3 
00664/009A  PASCAL/GN                USER MANUAL     WF             W264:PAS.MANUAL                                                 
            4.3T1   731  PASCAL.USER_MANUAL.WF.009          1 LINE    109   11 PAGE UM   GREENING            APR. 05, 1980  19:38:14
0          PASCAL/MTS USER'S MANUAL CONTAINING "HOW TO USE" INFORMATION PLUS SOME INTERNAL
           IMPLEMENTATION NOTES.
00664/010   PASCAL/GN                USAGE STATS     D              ETC:PASCALINFO                                                  
            D4.2T1  588  PASCAL.USAGE_STATS.D.010           1 LINE     72   44 PAGE UM   GREENING            APR. 02, 1979  00:29:38
                         ETC:PASCALINFO       
0          THIS IS A FILE WHICH LOGS USAGE STATISTICS AND PROGRAM INTERRUPTS RELATING 
           TO PASCAL.
00665/001A  MTS VOLUME 14            MASTER          WT             S0951 MTSV14 'MTS MANUALS' POSN=NEWM7.V14                       
            4.3T1   732  MTS_VOLUME_14.MASTER.WT.001        1 SEQ     132  183 PAGE UM   MANUAL              APR. 05, 1980  19:40:38
0          TEXT/360 MASTER FOR VOLUME 14 "360/370 ASSEMBLER LANGUAGES IN MTS" OF THE UM MTS
           MANUALS (AUGUST 1978, UPDATED OCTOBER 1979 AND APRIL 1980).
            
           EDITOR:  RICHARD A. SALISBURY
0          Referenced by comments of: 66/93 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00665/002A  MTS VOLUME 14            PRINT           PT             S0951 MTSV14 'MTS MANUALS' POSN=PRINT7.V14                      
            4.3T1   733  MTS_VOLUME_14.PRINT.PT.002         1 SEQ     132  364 PAGE UM   MANUAL              APR. 05, 1980  19:40:58
0          TEXT/360 PRINT FILE.
00665/003   MTS VOLUME 14            INDEX SOURCE    D              S0951 MTSV14 'MTS MANUALS' POSN=V14INDEXSOU                     
            D4.2T1  591  MTS_VOLUME_14.INDEX_SOURC.D.003    1 SEQ     110    4 PAGE UM   MANUAL              APR. 02, 1979  00:32:20
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 14.
00665/004A  MTS VOLUME 14            UPDATE 1        PT             W073:TNLV14.OCT79                                               
            4.3T1   734  MTS_VOLUME_14.UPDATE_1.PT.004      1 LINE    103   95 PAGE UM   MANUAL              APR. 05, 1980  19:41:05
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/005C  MTS VOLUME 14            UPDATE 2        PT             W073:TNLV14.APR80                                               
            4.3T1   735  MTS_VOLUME_14.UPDATE_2.PT.005      1 LINE    103    9 PAGE UM   MANUAL              APR. 05, 1980  20:27:36
0          THIS IS "UPDATE 2 TO MTS VOLUME 14,"  (APRIL 1980).  $COPY TO A TN PRINTER
           USING THE @MCC MODIFIER.
00666/001   AMS SUBR                                 SF  G  AMS     S1223 TAXIR8 FSNAME=AMS.8.S                                     
            D4.2T1  592  AMS_SUBR..SF.001                   1 LINE     80    7 PAGE UM   BRILL               NOV. 16, 1978  10:21:07
0          DYNAMIC ARRAY MANAGEMENT FOR FORTRAN PROGRAMS.  COMPILE WITH FTN-G OR H.
           SEE MTS VOLUMES 3 OR 6 FOR DESCRIPTION.
00666/002   AMS SUBR                                 OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   BRILL                                      
00667/001A  OVERDRIVE                                S*  O          W008:OD.S                                                       
            4.3T1   736  OVERDRIVE..S*.001                  1 LINE     98   49 PAGE UM   SWARTZ              APR. 05, 1980  20:27:38
0          A FORTRAN PREPROCESSOR WHICH IS WRITTEN IN SNOSTORM (SEE COMP 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 
00667/002A  OVERDRIVE                                SS  O          W008:OD.INTERMED                                                
            4.3T1   737  OVERDRIVE..SS.002                  1 LINE     95   53 PAGE UM   SWARTZ              APR. 05, 1980  20:27:47
0          INTERMEDIATE SOURCE FOR *OVERDRIVE (667/3).  IN SPITBOL, AS PRODUCED FROM 
           667/1.
00667/003A  OVERDRIVE                                OC  O          *OVERDRIVE                                                      
            4.3T1   738  OVERDRIVE..OC.003                  1 LINE  32767   50 PAGE UM   SWARTZ              APR. 05, 1980  20:27:51
                         *OVERDRIVE           
0          HAS A "$CONTINUE WITH *SPITLIB" CARD.
0          Referenced by comments of: 667/2 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00668/001A *TAXIR                    FLECS SOURCE    SF  G  TAX     S1223 TAXIR8 FSNAME=TAXIR.8.S                                   
            4.3T1   739  TAXIR.FLECS_SOURCE.SF.001          1 LINE     80  195 PAGE UM   BRILL               DEC. 13, 1979  13:19:13
0          SOURCE FOR THE FLECS PORTION OF THE TAXIR INFORMATION RETRIEVAL SYSTEM,
           VERSION 8. IT SHOULD BE PROCESSED BY THE FLECS PRE-PROCESSOR (673) AND THEN
           COMPILED USING FTN-H WITH PAR=XL (TO GET *LIBRARY FUNCTIONS LAND, LOR, LXOR,
           LCOMPL, SHFTR, AND SHFTL COMPILED INLINE).
            
           ***************************************************************************
           D4.3 VERSION:
            
           THIS DISTRIBUTION IS EXACTLY LIKE THAT DISTRIBUTED WITH D4.2, EXCEPT THAT A
           FEW BUGS HAVE BEEN FIXED AND ONLY THE AFFECTED COMPONENTS ARE DISTRIBUTED,
           NAMELY:
            
           668/1  FLECS SOURCE
           668/2  FLECS LISTING
           668/3  ASM SOURCE
           668/4  *TAXIR
            
           USE THE INSTALLATION GUIDE DISTRIBUTED WITH D4.2, BUT WHEREVER THE ABOVE
           COMPONENTS ARE REFERENCED, USE THE D4.3 COMPONENTS.
           ***************************************************************************
0          Referenced by comments of: 500/16, 500/19, 500/31 
00668/002A *TAXIR                    FLECS LISTING   L   G          S1223 TAXIR8 FSNAME=TAXIRFLECSLIST.8                            
            4.3T1   740  TAXIR.FLECS_LISTING.L.002          1 LINE    121  317 PAGE UM   BRILL               FEB. 01, 1980  15:14:04
0          FLECS INDENTED LISTING OF TAXIR, VERSION 8.  (OUTPUT LISTING PRODUCED
           BY FLECS.)
00668/003A *TAXIR                    ASM SOURCE      SA  G  TAX     S1223 TAXIR8 FSNAME=TAXIRASM.8.S                                
            4.3T1   741  TAXIR.ASM_SOURCE.SA.003            1 LINE     80   18 PAGE UM   BRILL               FEB. 01, 1980  15:15:38
0          SOURCE FOR THE ASSEMBLY LANGUAGE PORTION OF TAXIR, VERSION 8.
00668/004A *TAXIR                    *TAXIR          OE  G          *TAXIR                                                          
            4.3T1   742  TAXIR.*TAXIR.OE.004                1 SEQ   32767   45 PAGE UM   BRILL               APR. 05, 1980  20:29:47
                         *TAXIR               
0          LINKEDITED OBJECT MODULE FOR VERSION 8 OF TAXIR.
00668/005  *TAXIR                    ETC:TAXERRORS   M              S1223 TAXIR8 FSNAME=TAXIRERRORS.8                               
            D4.2T1  599  TAXIR.ETC:TAXERRORS.M.005          1 LINE     72    3 PAGE UM   BRILL               JAN. 08, 1979  16:12:13
                         ETC.:TAXERRORS       
0          FILE OF ERROR AND BROADCAST MESSAGES USED BY TAXIR, VERSION 8.  THIS FILE
           IS READ @I BY TAXIR, SO LINE NUMBERS ARE IMPORTANT.  THE FIRST LINE NUMBER
           IS -2.  THE FILE SHOULD BE PERMITTED READ TO ALL.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00668/006  *TAXIR                    ETC:TAXMONITOR  D            # MTS:TST.EMPSEQWE                                                
                                                                                    UM   BRILL                                      
                         ETC:TAXMONITOR       
0          THIS IS A SEQUENTIAL FILE USED BY TAXIR TO RECORD USAGE STATISTICS.  ITS
           CONTENTS ARE NOT DISTRIBUTED SINCE AN EMPTY SEQUENTIAL FILE IS ALL THAT
           IS INITIALLY REQUIRED.  TAXIR MAY BE USED TO ANALYZE THE ACCUMULATED USAGE
           STATISTICS.  THE FILE SHOULD BE PERMITTED WRITE-EXPAND (WE) TO ALL.
00668/007  *TAXIR                    PRIMER          WF             S1223 TAXIR8 FSNAME=TAXIRPRIMER.3.F                             
            D4.2T1  600  TAXIR.PRIMER.WF.007                1 LINE    221   70 PAGE UM   BRILL               JAN. 24, 1979  14:36:53
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/008  *TAXIR                    DATA BANK       D              S1223 TAXIR8 FSNAME=TAXIRMODULES.8                              
            D4.2T1  601  TAXIR.DATA_BANK.D.008              1 LINE   1244    3 PAGE UM   BRILL               JAN. 24, 1979  15:21:33
0          THIS IS A TAXIR DATA BANK OF MODULE RELATIONSHIPS IN TAXIR, VERSION 8.  EACH
           ITEM IS A CALLER-CALLED PAIR AND INCLUDES THE TYPE OF THE CALLED MODULE, WHICH
           MAY BE FLX (WRITTEN IN FLECS), FOR (WRITTEN IN FORTRAN), ASM (WRITTEN IN
           ASSEMBLER), COM (A COMMON BLOCK), OR EXT (AN EXTERNAL ROUTINE, E.G., MTS
           SUBROUTINE, *LIBRARY SUBROUTINE, ETC.).  THIS IS NOT AN ESSENTIAL COMPONENT,
           BUT IS USEFUL FOR DEBUGGING TAXIR.
0          Referenced by comments of: 668/9 
00668/009  *TAXIR                    DATA BANK PGM   D              S1223 TAXIR8 FSNAME=TAXIRMODQUERY.8                             
            D4.2T1  602  TAXIR.DATA_BANK_PGM.D.009          1 LINE     45    1 PAGE UM   BRILL               JAN. 26, 1979  10:24:10
0          THIS IS A FILE OF TAXIR STATEMENTS FOR GENERATING THREE REPORTS FROM THE DATA
           BANK (668/8):  "TAXIR MODULES AND THE MODULES THEY CALL," "TAXIR MODULES AND
           THEIR CALLERS," AND "LIST OF TAXIR MODULES BY TYPE."
00668/010  *TAXIR                    MOD REPORT      P              S1223 TAXIR8 FSNAME=TAXIRMODREPORT.8                            
            D4.2T1  603  TAXIR.MOD_REPORT.P.010             1 LINE     69   25 PAGE UM   BRILL               JAN. 24, 1979  15:22:04
0          A TAXIR-GENERATED REPORT OF MODULE RELATIONSHIPS IN TAXIR, VERSION 8.
           PRODUCED BY ISSUING TAXIR COMMANDS IN 668/9 FOR DATA IN 668/8.
00668/011  *TAXIR                    INSTALL GUIDE   P              S1223 TAXIR8 FSNAME=TAXIRINSTGUIDE.8                            
            D4.2T1  604  TAXIR.INSTALL_GUIDE.P.011          1 LINE     83    6 PAGE UM   BRILL               JAN. 26, 1979  11:48:33
0          INSTALLATION AND MAINTENANCE GUIDE FOR TAXIR, VERSION 8.
00669/001A  MTS VOLUME 9             MASTER          WT             S1051 MTSV9 'MTS MANUALS' POSN=NEWM2.V9                         
            4.3T1   743  MTS_VOLUME_9.MASTER.WT.001         1 SEQ     132  114 PAGE UM   MANUAL              APR. 05, 1980  20:31:27
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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00669/002A  MTS VOLUME 9             PRINT           PT             S1051 MTSV9 'MTS MANUALS' POSN=PRINT2.V9                        
            4.3T1   744  MTS_VOLUME_9.PRINT.PT.002          1 SEQ     132  175 PAGE UM   MANUAL              APR. 05, 1980  20:31:33
0          TEXT/360 PRINT FILE.
00669/003A  MTS VOLUME 9             INDEX SOURCE    D              S1051 MTSV9 'MTS MANUALS' POSN=V9INDEXSOU                       
            4.3T1   745  MTS_VOLUME_9.INDEX_SOURCE.D.003    1 SEQ      82    5 PAGE UM   MANUAL              APR. 05, 1980  20:31:36
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 9
00669/004A  MTS VOLUME 9             UPDATE 1        PT             W073:TNLV9.JUN79                                                
            4.3T1   746  MTS_VOLUME_9.UPDATE_1.PT.004       1 LINE    108   78 PAGE UM   MANUAL              APR. 05, 1980  20:31:41
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       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  FRES    RSTR:FASTRESTORE(1000)                                          
            4.3T1   747  FILE_RESTORE_-_FAST.FASTR.SA.001   1 LINE     80   15 PAGE UM   HELFFRICH           APR. 05, 1980  20:31:49
                         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 (67/17) 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 (67/29).
            
           *********************************************************************************
           D4.3 COMMENTS:
            
           FIXED BUG WHICH WOULD CAUSE FILES TO BE RESTORED TWICE IF THE RESTORATIONS
           WERE RESTARTED THROUGH THE USE OF THE UNIT 0 OUTPUT LIST.
           *********************************************************************************
0          Referenced by comments of: 104/110, 682/37 
00671/002A  FILE RESTORE - FAST      FASTRESTORE     OC  G          RSTR:FASTRESTORE(1,999)                                         
            4.3T1   748  FILE_RESTORE_-_FAST.FASTR.OC.002   1 LINE     80    5 PAGE UM   HELFFRICH           APR. 05, 1980  20:31:55
0          HAS A $CONTINUE WITH RSTR:FASTRSTR+COPY:SYSDEFS RECORD.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00671/003A  FILE RESTORE - FAST      FASTRSTR SUBR   SA  G  FRST    RSTR:FASTRSTR(1000)                                             
            4.3T1   749  FILE_RESTORE_-_FAST.FASTR.SA.003   1 LINE     80   23 PAGE UM   HELFFRICH           APR. 05, 1980  20:31:58
                         RSTR:FASTRSTR        
0          SUBROUTINE CALLED BY 671/1 TO DO FAST RESTORING.  ASSEMBLE USING COPY:FILE.MACROS
           (482/33) AND THE FILE SAVE MACROS (67/29). COPIES *CNFGINFODSECT (654).
            
           *********************************************************************************
           D4.3 COMMENTS:
            
           UPDATED FOR VAMX SUPPORT.
           *********************************************************************************
0          Referenced by comments of: 671/1 
00671/004A  FILE RESTORE - FAST      FASTRSTR SUBR   OC  G          RSTR:FASTRSTR(1,999)                                            
            4.3T1   750  FILE_RESTORE_-_FAST.FASTR.OC.004   1 LINE     80    6 PAGE UM   HELFFRICH           APR. 05, 1980  20:32:03
00672/001  *WATBOL                   INSTALLATION    WF             S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.D4.0.W                 
            D4T2   1178  WATBOL.INSTALLATION.WF.001         1 LINE     78    1 PAGE UM   SWARTZ              NOV. 04, 1976  22:59:17
0          UNIVERSITY OF WATERLOO WATBOL V2L0 COBOL.  THE SOURCE AND OBJECT CANNOT BE
           DISTRIBUTED DUE TO WATERLOO RESTRICTIONS.
            
           THIS SUB-COMPONENT DESCRIBES THE WATBOL INSTALLATION PROCEDURE FOR MTS.
00672/002  *WATBOL                   START.S         SA  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.START.S                
            D4T2   1179  WATBOL.START.S.SA.002              1 LINE     73    1 PAGE UM   SWARTZ              JULY 15, 1976  03:12:34
0          AN INSTALLATION-DEPENDENT PREFIX OF ASSEMBLER GBL'S TO BE PLACED AT THE HEAD
           OF MOST ALL OF THE ASSEMBLER SOURCE GENERATED BY THE FOLLOWING UPDATE DECKS.
00672/003  *WATBOL                   END.S           SA  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.END.S                  
            D4T2   1180  WATBOL.END.S.SA.003                1 LINE     12    1 PAGE UM   SWARTZ              JULY 15, 1976  03:14:13
0          AN ASSEMBLER END CARD TO SUFFIX ASSEMBLIES OF SOURCE GENERATED BY THE FOLLOWING
           UPDATE DECKS.
00672/004  *WATBOL                   ACCT.U          UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=ACCT.U                 1  
            D4T2   1181  WATBOL.ACCT.U.UU.004               1 LINE     83    8 PAGE UM   SWARTZ              FEB. 28, 1976  13:35:59
00672/005  *WATBOL                   DATFX.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DATFX.U                2  
            D4T2   1182  WATBOL.DATFX.U.UU.005              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:08
00672/006  *WATBOL                   DEBUG.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DEBUG.U                3  
            D4T2   1183  WATBOL.DEBUG.U.UU.006              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:20
00672/007  *WATBOL                   EOSTA.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=EOSTA.U                4  
            D4T2   1184  WATBOL.EOSTA.U.UU.007              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:36
00672/008  *WATBOL                   FD.U            UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=FD.U                   5  
            D4T2   1185  WATBOL.FD.U.UU.008                 1 LINE     78    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:36:48
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00672/009  *WATBOL                   JOBJOB.U        UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=JOBJOB.U               6  
            D4T2   1186  WATBOL.JOBJOB.U.UU.009             1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:37:06
00672/010  *WATBOL                   LOADR.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=LOADR.U                7  
            D4T2   1187  WATBOL.LOADR.U.UU.010              1 LINE     72    6 PAGE UM   SWARTZ              FEB. 28, 1976  13:37:23
00672/011  *WATBOL                   MAIN.U          UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=MAIN.U                 8  
            D4T2   1188  WATBOL.MAIN.U.UU.011               1 LINE     81   17 PAGE UM   SWARTZ              FEB. 28, 1976  13:38:08
00672/012  *WATBOL                   OPEN.U          UU  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.OPEN.U                 
            D4T2   1189  WATBOL.OPEN.U.UU.012               1 LINE     72    1 PAGE UM   SWARTZ              NOV. 04, 1976  22:58:48
00672/013  *WATBOL                   RINIT.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=RINIT.U                10 
            D4T2   1190  WATBOL.RINIT.U.UU.013              1 LINE     72    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:56:43
00672/014  *WATBOL                   SD.U            UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SD.U                   11 
            D4T2   1191  WATBOL.SD.U.UU.014                 1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:42:42
00672/015  *WATBOL                   SERVICE.U       UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SERVICE.U              12 
            D4T2   1192  WATBOL.SERVICE.U.UU.015            1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:54:31
00672/016  *WATBOL                   SYSINT.U        UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SYSINT.U               13 
            D4T2   1193  WATBOL.SYSINT.U.UU.016             1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:54:51
00672/017  *WATBOL                   DIAC.U          UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DIAC.U                 14 
            D4T2   1194  WATBOL.DIAC.U.UU.017               1 LINE     72    4 PAGE UM   SWARTZ              FEB. 28, 1976  13:55:19
00672/018  *WATBOL                   FORMT.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=FORMT.U                15 
            D4T2   1195  WATBOL.FORMT.U.UU.018              1 LINE     72    1 PAGE UM   SWARTZ              FEB. 28, 1976  13:55:51
00672/019  *WATBOL                   IOSUP.U         UU  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.IOSUP.U             29 
            D4T2   1196  WATBOL.IOSUP.U.UU.019              1 LINE     73   18 PAGE UM   SWARTZ              JULY 15, 1976  03:33:59
00672/020  *WATBOL                   RUN.U           UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=RUN.U                  17 
            D4T2   1197  WATBOL.RUN.U.UU.020                1 LINE     75    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:00
00672/021  *WATBOL                   SORTR.U         UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SORTR.U                18 
            D4T2   1198  WATBOL.SORTR.U.UU.021              1 LINE     72    7 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:18
00672/022  *WATBOL                   TRAC.U          UU  G          S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=TRAC.U                 19 
            D4T2   1199  WATBOL.TRAC.U.UU.022               1 LINE     72    3 PAGE UM   SWARTZ              FEB. 28, 1976  13:57:33
00672/023  *WATBOL                   TIME.S          SA  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.TIME.S              21 
            D4T2   1200  WATBOL.TIME.S.SA.023               1 LINE     71    3 PAGE UM   SWARTZ              JULY 15, 1976  03:12:51
00672/024  *WATBOL                   MACROS          SM  G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.MACROS              25 
            D4T2   1201  WATBOL.MACROS.SM.024               1 LINE     80   16 PAGE UM   SWARTZ              JULY 15, 1976  03:16:17
0          MACRO LIBRARY NEEDED TO ASSEMBLE SOURCE RESULTING FROM 672/4 THRU 672/23.
00672/025  *WATBOL                   OBJECT          OC  G        # S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.WATBOL                 
                                                                                    UM   SWARTZ                                     
0          UNLINK-EDITED OBJECT FOR WATBOL.  NOT DISTRIBUTED DUE TO WATERLOO RESTRICTIONS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00672/026  *WATBOL                   OBJECT          OE  G        # *WATBOL                                                         
                                                                                    UM   SWARTZ                                     
0          NOT DISTRIBUTED DUE TO WATERLOO RESTRICTIONS.
00672/027  *WATBOL                   LIBRARY GEN     SA  G  WBLG    S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.LIBGEN.S            24 
            D4T2   1202  WATBOL.LIBRARY_GEN.SA.027          1 LINE     80   30 PAGE UM   SWARTZ              JULY 15, 1976  03:15:10
0          SOURCE FOR WATBOL LIBRARY GENERATION PROGRAM.  ASSEMBLE USING *SYSMAC.
00672/028  *WATBOL                   LIBRARY GEN     OC  G          *WATBOLLIBGEN                                                   
            D4T2   1203  WATBOL.LIBRARY_GEN.OC.028          1 SEQ      80    4 PAGE UM   SWARTZ              JULY 28, 1977  23:04:44
                         *WATBOLLIBGEN        
00672/029  *WATBOL                   LIBRARY         D   G          *WATBOLLIB                                                      
            D4T2   1205  WATBOL.LIBRARY.D.030               1 LINE     69    4 PAGE UM   SWARTZ              JULY 28, 1977  23:05:58
                         *WATBOLLIB           
0          DEFAULT UM WATBOL LIBRARY.
00672/030  *WATBOL                   TEST PROGRAMS   S   G          S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.PROGS                  
            D4T2   1206  WATBOL.TEST_PROGRAMS.S.031         1 LINE     82   49 PAGE UM   SWARTZ              NOV. 10, 1976  20:22:05
0          TEST PROGRAM SERIES FOR WATBOL V2L0 COMPILER.  SEE 672/1 FOR INSTRUCTIONS.
00673/001   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=C.FLX                                         
            D4T3      1  FLECS.OREGON_SOURCE.SF.001         1 LINE     80   38 PAGE UM   UNSP                DEC. 16, 1974  20:57.44
0          UNIVERSITY OF OREGON'S FORTRAN PREPROCESSOR.  AT UM, THIS PROGRAM IS CONSIDERED
           TO BE IN THE CATEGORY OF "UNSUPPORTED" SOFTWARE.  A FLECS WRITEUP IS INCLUDED
           IN UNSP:WRITEUPS (685/2).  A HARDCOPY OF THIS WRITEUP AND OTHER DOCUMENTATION
           IS INCLUDED WITH D4.
            
           THIS COMPONENT AND THE NEXT 10 ARE THE ORIGINAL FLECS SOURCE FROM THE UNIVERSITY
           OF OREGON.  THEY ARE REFERRED TO AS FILES 1 THROUGH 11 IN THE MTS FLECS INSTALLATION
           GUIDE (673/36).
0          Referenced by comments of: 668/1 
00673/002   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=C.F4                                          
            D4T3      2  FLECS.OREGON_SOURCE.SF.002         1 LINE     80   42 PAGE UM   UNSP                DEC. 16, 1974  20:59.11
0          FILE 2
00673/003   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=SC.FLX                                        
            D4T3      3  FLECS.OREGON_SOURCE.SF.003         1 LINE     80   16 PAGE UM   UNSP                DEC. 16, 1974  20:59.41
0          FILE 3
00673/004   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=SC.F4                                         
            D4T3      4  FLECS.OREGON_SOURCE.SF.004         1 LINE     80    8 PAGE UM   UNSP                DEC. 16, 1974  21:00.25
0          FILE 4
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00673/005   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=M.FLX                                         
            D4T3      5  FLECS.OREGON_SOURCE.SF.005         1 LINE     80   22 PAGE UM   UNSP                DEC. 16, 1974  21:01.13
0          FILE 5
00673/006   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=M.F4                                          
            D4T3      6  FLECS.OREGON_SOURCE.SF.006         1 LINE     80   24 PAGE UM   UNSP                DEC. 16, 1974  21:02.06
0          FILE 6
00673/007   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=A.FLX                                         
            D4T3      7  FLECS.OREGON_SOURCE.SF.007         1 LINE     80   14 PAGE UM   UNSP                DEC. 16, 1974  21:03.11
0          FILE 7
00673/008   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=A.F4                                          
            D4T3      8  FLECS.OREGON_SOURCE.SF.008         1 LINE     80   14 PAGE UM   UNSP                DEC. 16, 1974  21:03.58
0          FILE 8
00673/009   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=L.FLX                                         
            D4T3      9  FLECS.OREGON_SOURCE.SF.009         1 LINE     80   13 PAGE UM   UNSP                DEC. 16, 1974  21:04.46
0          FILE 9
00673/010   FLECS                    OREGON SOURCE   SF  O          S0684 UNSP FSNAME=L.F4                                          
            D4T3     10  FLECS.OREGON_SOURCE.SF.010         1 LINE     80   11 PAGE UM   UNSP                DEC. 16, 1974  21:05.45
0          FILE 10
00673/011   FLECS                    OREGON SOURCE   SA  O          S0684 UNSP FSNAME=ASMFLX.S                                      
            D4T3     11  FLECS.OREGON_SOURCE.SA.011         1 LINE     80   13 PAGE UM   UNSP                DEC. 16, 1974  21:06.34
0          FILE 11
00673/012   FLECS                    STANDALONE XLT  S   O  FLE     S0684 UNSP FSNAME=F.FLECS                                       
            D4T3     12  FLECS.STANDALONE_XLT.S.012         1 LINE     80   49 PAGE UM   UNSP                AUG. 08, 1975  14:16:20
0          FILE 12 -- FLECS SOURCE FOR 3 PART MTS STANDALONE TRANSLATOR.
00673/013   FLECS                    STANDALONE XLT  S   O          S0684 UNSP FSNAME=S.FLECS                                       
            D4T3     13  FLECS.STANDALONE_XLT.S.013         1 LINE     80   46 PAGE UM   UNSP                AUG. 08, 1975  14:17:31
0          FILE 13 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR MTS STANDALONE TRANSLATOR.
00673/014   FLECS                    STANDALONE XLT  OC  O          S0684 UNSP FSNAME=O.FLECS                                       
            D4T3     14  FLECS.STANDALONE_XLT.OC.014        1 LINE    240    9 PAGE UM   UNSP                AUG. 08, 1975  14:18:07
0          FILE 14 -- OBJECT FOR MTS STANDALONE TRANSLATOR.
00673/015   FLECS                    STANDALONE XLT  S   O  FLE1    S0684 UNSP FSNAME=F.FLECS.SC                                    
            D4T3     15  FLECS.STANDALONE_XLT.S.015         1 LINE     80    8 PAGE UM   UNSP                AUG. 08, 1975  14:19:03
0          FILE 15 -- FLECS SOURCE FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00673/016   FLECS                    STANDALONE XLT  S   O          S0684 UNSP FSNAME=S.FLECS.SC                                    
            D4T3     16  FLECS.STANDALONE_XLT.S.016         1 LINE     80   11 PAGE UM   UNSP                AUG. 08, 1975  14:20:41
0          FILE 16 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
00673/017   FLECS                    STANDALONE XLT  OC  O          S0684 UNSP FSNAME=O.FLECS.SC                                    
            D4T3     17  FLECS.STANDALONE_XLT.OC.017        1 LINE    244    5 PAGE UM   UNSP                AUG. 08, 1975  14:22:01
0          FILE 17 -- OBJECT FOR STANDALONE TRANSLATOR SUPPORT ROUTINES.
00673/018   FLECS                    STANDALONE XLT  OE  O          S0684 UNSP FSNAME=FLECS                                         
            D4T3     18  FLECS.STANDALONE_XLT.OE.018        1 SEQ   24628    9 PAGE UM   UNSP                AUG. 08, 1975  14:22:37
0          FILE 18 -- LINKEDITED OBJECT FOR MTS STANDALONE TRANSLATOR.
00673/019   FLECS                    STANDALONE XLT  SF  O  FLE2    S0684 UNSP FSNAME=COM.FLECS                                     
            D4T3     19  FLECS.STANDALONE_XLT.SF.019        1 LINE     80    2 PAGE UM   UNSP                AUG. 08, 1975  14:23:26
0          FILE 19 -- COMMON SECTIONS USED BY STANDALONE TRANSLATOR.
00673/020   FLECS                    FLX WRITEUP     WF             S0684 UNSP FSNAME=F.FFIWR                                       
            D4.2T1  609  FLECS.FLX_WRITEUP.WF.020           1 LINE    244   16 PAGE UM   UNSP                OCT. 08, 1978  22:53:11
0          FILE 20 -- FORMAT SOURCE FOR THE FLX MTS INTERFACE WRITEUP.
00673/021   FLECS                    NOTES           WF             S0684 UNSP FSNAME=FLECS.NOTES                                   
            D4T3     21  FLECS.NOTES.WF.021                 1 LINE     63    1 PAGE UM   UNSP                MAY  22, 1977  17:34:48
0          NOTES DESCRIBING THE CHANGES BETWEEN THIS VERSION AND THE PREVIOUS REDISTRIBUTION.
00673/022   FLECS                    USER'S MANUAL   WF             S0684 UNSP FSNAME=FLECS.F                                       
            D4T3     22  FLECS.USER'S_MANUAL.WF.022         1 LINE    183   13 PAGE UM   UNSP                DEC. 15, 1975  08:57:40
00673/023   FLECS                    FLX             SF  O  FLX     S0684 UNSP FSNAME=COM.FLX                                       
            D4T3     23  FLECS.FLX.SF.023                   1 LINE     80    3 PAGE UM   UNSP                MAY  22, 1977  17:37:47
0          FILE 23 -- FORTRAN COMMON SECTIONS USED BY FLECS/FORTRAN INTERFACE.
0          Referenced by comments of: 673/27, 673/32 
00673/024   FLECS                    FLX             S   O  FLX1    S0684 UNSP FSNAME=F.FLX                                         
            D4T3     24  FLECS.FLX.S.024                    1 LINE     80   50 PAGE UM   UNSP                MAY  22, 1977  17:40:01
0          FILE 24 -- FLECS SOURCE FOR FLXT TRANSLATOR.
0          Referenced by comments of: 673/28 
00673/025   FLECS                    FLX             S   O  FLX2    S0684 UNSP FSNAME=F.FLX.SC                                      
            D4T3     25  FLECS.FLX.S.025                    1 LINE     80    8 PAGE UM   UNSP                MAY  22, 1977  17:41:16
0          FILE 25 -- FLECS SOURCE FOR FFI/FLXT INTERFACE.
0          Referenced by comments of: 673/29 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00673/026   FLECS                    FLX             SA  O  FLX3    S0684 UNSP FSNAME=S.FLX.AU                                      
            D4T3     26  FLECS.FLX.SA.026                   1 LINE     80   26 PAGE UM   UNSP                MAY  22, 1977  17:46:03
0          FILE 26 -- ASSEMBLY SOURCE FOR FLXT UTILITY ROUTINES.
00673/027   FLECS                    FLX             OC  O          S0684 UNSP FSNAME=O.FLX                                         
            D4T3     27  FLECS.FLX.OC.027                   1 LINE   9072    8 PAGE UM   UNSP                MAY  22, 1977  17:44:12
0          FILE 27 -- OBJECT FOR F.FLX (673/23).
00673/028   FLECS                    FLX             OC  O          S0684 UNSP FSNAME=O.FLX.SC                                      
            D4T3     28  FLECS.FLX.OC.028                   1 LINE   1004    4 PAGE UM   UNSP                MAY  22, 1977  17:45:02
0          FILE 28 -- OBJECT FOR F.SC (673/24).
00673/029   FLECS                    FLX             OC  O          S0684 UNSP FSNAME=O.FLX.AU                                      
            D4T3     29  FLECS.FLX.OC.029                   1 LINE     80    3 PAGE UM   UNSP                MAY  22, 1977  17:43:04
0          FILE 29 -- OBJECT FOR S.AU (673/25).
00673/030   FLECS                    FLX             OE  O          UNSP:FLXT                                                       
            D4T3     30  FLECS.FLX.OE.030                   1 LINE  11124   11 PAGE UM   UNSP                JULY 28, 1977  23:10:29
                         UNSP:FLXT            
0          FILE 30 -- LINKEDITED OBJECT FOR FLXT, THE TRANSLATOR THAT RUNS UNDER FFI.
00673/031   FLECS                    FLX             SA  O  FLX2    S0684 UNSP FSNAME=FLXDEF                                        
            D4T3     31  FLECS.FLX.SA.031                   1 LINE     80    8 PAGE UM   UNSP                MAY  22, 1977  17:41:57
0          FILE 31 -- MACROS AND COPY SECTIONS.
0          Referenced by comments of: 673/32 
00673/032   FLECS                    FLX             SA  O  FFI     S0684 UNSP FSNAME=S.FFI                                         
            D4.2T1  610  FLECS.FLX.SA.032                   1 LINE     80   77 PAGE UM   UNSP                OCT. 08, 1978  22:50:10
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          S0684 UNSP FSNAME=O.FFI                                         
            D4T3     33  FLECS.FLX.OC.033                   1 LINE     80    8 PAGE UM   UNSP                MAY  22, 1977  17:43:27
00673/034   FLECS                    FLX             OE  O          UNSP:FLX                                                        
            D4.2T1  611  FLECS.FLX.OE.034                   1 LINE   1956    6 PAGE UM   UNSP                APR. 02, 1979  00:41:37
                         UNSP:FLX             
0          FILE 34 -- LINKEDITED OBJECT FOR FFI.  LINKS TO FLXT AND *FORTRANG OR *FORTRANH.
00673/035   FLECS                    EXAMPLE 1       S   S  FEX1    S0684 UNSP FSNAME=DRKEXAMPLE                                    
            D4T3     35  FLECS.EXAMPLE_1.S.035              1 LINE     80   25 PAGE UM   UNSP                DEC. 09, 1976  22:36:39
0          FILE 35 -- EXAMPLE FLECS PROGRAMS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00673/036   FLECS                    EXAMPLE 2       S   S  FEX2    S0684 UNSP FSNAME=HBGEXAMPLE                                    
            D4T3     36  FLECS.EXAMPLE_2.S.036              1 LINE     80   14 PAGE UM   UNSP                JAN. 21, 1976  15:16:56
0          FILE 36 -- EXAMPLE FLECS PROGRAM.
0          Referenced by comments of: 673/1 
00673/037   FLECS                    INSTALLATION    WF             S0684 UNSP FSNAME=FLECSINSTALL.F                                
            D4T3     37  FLECS.INSTALLATION.WF.037          1 LINE    145   12 PAGE UM   UNSP                MAY  22, 1977  17:33:57
0          FILE 37 -- FORMAT SOURCE FOR THE MTS FLECS INSTALLATION GUIDE.
00674/001   JVCT SUBR                                SA  G          S0811 REBATE 'REBATES' FSNAME=UBCDATE                           
            D4T3     38  JVCT_SUBR..SA.001                  1 LINE     72   10 PAGE UBC  HOGG      LIFT      JULY 28, 1977  23:15:58
0          SUBROUTINE TO CONVERT FREE FORM TIME AND DATE FROM BCD TO MTS STANDARD
           INTERNAL TIME, I.E. MICROSECONDS SINCE 1 MARCH 1900.  SEE SOURCE FOR
           USAGE DESCRIPTION.
0          Referenced by comments of: 621/8, 621/9, 655/2, 707/3, 753/4, 3024/31 
00674/002   JVCT SUBR                                OC  G          MTS:UBCDATEX                                                    
            D4T3     39  JVCT_SUBR..OC.002                  1 LINE     80    3 PAGE UBC  HOGG      LIFT      AUG. 14, 1977  22:38:03
                         MTS.:UBCDATEX        
00675/001   MTS VOLUME 6             MASTER          WT             S0273 MTSV6 'MTS MANUALS' POSN=NEWM3.V6                         
            D4.2T1  612  MTS_VOLUME_6.MASTER.WT.001         1 SEQ     132  360 PAGE UM   MANUAL              APR. 02, 1979  00:42:17
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             S0273 MTSV6 'MTS MANUALS' POSN=PRINT3.V6                        
            D4.2T1  613  MTS_VOLUME_6.PRINT.PT.002          1 SEQ     132  557 PAGE UM   MANUAL              APR. 02, 1979  00:42:31
0          TEXT/360 PRINT FILE.
00675/003   MTS VOLUME 6             INDEX SOURCE    D              S0273 MTSV6 'MTS MANUALS' POSN=V6INDEXSOU                   10  
            D4.2T1  614  MTS_VOLUME_6.INDEX_SOURCE.D.003    1 SEQ      82    6 PAGE UM   MANUAL              APR. 02, 1979  00:42:38
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 6.
00676/001   MTS VOLUME 8             MASTER          WT             S0950 MTSV8 'MTS MANUALS' POSN=NEWM2.V8                         
            D4.2T1  615  MTS_VOLUME_8.MASTER.WT.001         1 SEQ     132  100 PAGE UM   MANUAL              APR. 02, 1979  00:43:01
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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00676/002   MTS VOLUME 8             PRINT           PT             S0950 MTSV8 'MTS MANUALS' POSN=PRINT2.V8                        
            D4.2T1  616  MTS_VOLUME_8.PRINT.PT.002          1 SEQ     132  170 PAGE UM   MANUAL              APR. 02, 1979  00:43:06
0          TEXT/360 PRINT FILE.
00676/003   MTS VOLUME 8             INDEX SOURCE    D              S0950 MTSV8 'MTS MANUALS' POSN=V8INDEXSOU                       
            D4.2T1  617  MTS_VOLUME_8.INDEX_SOURCE.D.003    1 SEQ      68    5 PAGE UM   MANUAL              APR. 02, 1979  00:43:08
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 8.
00676/004   MTS VOLUME 8             UPDATE 1        PT             W073:TNLV8.FEB79                                                
            D4.2T1  618  MTS_VOLUME_8.UPDATE_1.PT.004       1 LINE    106   56 PAGE UM   MANUAL              APR. 02, 1979  00:43:09
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)                                                  
            4.3T1   751  ENCRYPT..SA.001                    1 LINE     80   18 PAGE UM   GREENING            APR. 05, 1980  20:32:06
                         *ENCRYPT             
0          THIS PROGRAM TO SCRAMBLE AND UNSCRAMBLE FILES BASED ON A SECRET KEY IS INTENDED
           AS A REPLACEMENT FOR *SCRAMBLE (491).  ASSEMBLE WITH PAR=BATCH USING COPY:CC.MACROS
           (1054/3).  COPIES *GDINFODSECT (594). THIS IS ALSO THE SOURCE FOR THE CRYPT
           SUBROUTINE IN *LIBARY (524/1).
0          Referenced by comments of: 491/1 
00677/002A *ENCRYPT                                  OE  O          *ENCRYPT(1,999)                                                 
            4.3T1   752  ENCRYPT..OE.002                    1 LINE   3372    4 PAGE UM   GREENING            APR. 05, 1980  20:32:08
00678/001A  SNOSTORM                 PREPROCESSOR    S*  G          W008:SNO.S                                                      
            4.3T1   753  SNOSTORM.PREPROCESSOR.S*.001       1 LINE     99   25 PAGE UM   SWARTZ              APR. 05, 1980  20:32:10
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.
00678/002A  SNOSTORM                 PREPROCESSOR    SS  G          W008:SNO.S2                                                     
            4.3T1   754  SNOSTORM.PREPROCESSOR.SS.002       1 LINE     99   17 PAGE UM   SWARTZ              APR. 05, 1980  20:32:27
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00678/003A  SNOSTORM                 PREPROCESSOR    OC  G          ETC:SNOSTORM                                                    
            4.3T1   755  SNOSTORM.PREPROCESSOR.OC.003       1 LINE  32767   28 PAGE UM   SWARTZ              APR. 05, 1980  20:32:30
                         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/004A  SNOSTORM                 MAIN PROGRAM    SA  G          W008:SNOMAIN.S                                                  
            4.3T1   756  SNOSTORM.MAIN_PROGRAM.SA.004       1 LINE     73    3 PAGE UM   SWARTZ              APR. 05, 1980  20:32:32
0          THIS IS A SMALL MAIN PROGRAM WHICH LINKS TO THE SNOSTORM PREPROCESSOR (678/3)
           AND THEN TO *SPITBOL (590).
00678/005A  SNOSTORM                 *SNOSTORM       OE  G          *SNOSTORM                                                       
            4.3T1   757  SNOSTORM.*SNOSTORM.OE.005          1 LINE   1221    1 PAGE UM   SWARTZ              APR. 05, 1980  20:32:35
                         *SNOSTORM            
0          THE OBJECT OF 678/4.
00678/006A  SNOSTORM                 TEST PGM        S*  O          W008:SNO.T                                                      
            4.3T1   758  SNOSTORM.TEST_PGM.S*.006           1 LINE     74    3 PAGE UM   SWARTZ              APR. 05, 1980  20:32:37
00678/007A  SNOSTORM                 NEWS FILE       P              W008:SNO.NEWS                                                   
            4.3T1   759  SNOSTORM.NEWS_FILE.P.007           1 LINE     68    3 PAGE UM   SWARTZ              APR. 05, 1980  20:32:39
0          THIS FILE CONTAINS SNOSTORM NEWS ITEMS.
00679/001   INTRO GUIDE: INTRO TO CC                 WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO79.SOU               
            D4.2T1  624  INTRO_GUIDE:_INTRO_TO_CC..WF.001   1 LINE    222   60 PAGE UM   MANUAL              SEP. 11, 1978  19:57:45
0          FORMAT SOURCE FOR "INTRODUCTION TO THE COMPUTING CENTER" (SEPTEMBER 1979).
00679/002   INTRO GUIDE: INTRO TO CC                 PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO79.OUT               
            D4.2T1  625  INTRO_GUIDE:_INTRO_TO_CC..PF.002   1 LINE    135   92 PAGE UM   MANUAL              SEP. 11, 1978  19:57:53
0          FORMAT PRINT FILE.
00680/001A *CKID                                     SA  G          MTS:CKID.S                                                      
            4.3T1   760  CKID..SA.001                       1 LINE     77    9 PAGE UBC  HOGG      MTA       APR. 05, 1980  20:32:42
                         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 COPY:ACCFORMAT (725) AND *GDINFODSECT (594).
            
           ****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           CHANGED TO USE THE NEW MTS ROUTINE GETACCRE  (PART OF USUB -- COMP. 638/1)
           TO READ THE ACCOUNTING FILES.
           ****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00680/002A *CKID                                     OE  G          *CKID                                                           
            4.3T1   761  CKID..OE.002                       1 LINE   2100    1 PAGE UBC  HOGG      MTA       APR. 05, 1980  20:32:44
                         *CKID                
00681/001   AUDIO RESP SYS - VOTRAX  INSTALLATION    PT             W070:ARS.SYSWRP.P                                               
            D4T3     53  AUDIO_RESP_SYS_-_VOTRAX.I.PT.001   1 LINE    100    7 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:36
0          INSTRUCTIONS FOR THE INSTALLATION OF THE VOTRAX AUDIO RESPONSE SYSTEM
           WHICH USES THE VOTRAX VS-6 SPEECH SYNTHESIZER AND "TOUCH-TONE" TELEPHONE
           COMMUNICATION TO PROVIDE MTS INTERACTIVE FACILITIES IN CONJUNCTION WITH
           THE DATA CONCENTRATOR DEVICE SUPPORT ROUTINES PDP8RTN (116).  COPY TO A
           TN PRINTER @MCC.
00681/002A  AUDIO RESP SYS - VOTRAX  VTRX            SA  G          W070:VOTRX.S(6)                                                 
            4.3T1   762  AUDIO_RESP_SYS_-_VOTRAX.V.SA.002   1 LINE     81   36 PAGE UM   FRONCZAK            APR. 05, 1980  20:32:46
0          SUBROUTINES VTRXINIT, VTRXIN, VTRXOUT, VTRXCTRL, AND VTRXCLOS WHICH ARE
           CALLED BY PDP8RTN (116) TO PROCESS VOTRAX I/O AND CONTROL COMMANDS.
           THESE ROUTINES CALL CVTPB (681/4) AND DICTINIT, DICTADD, AND DICTLOOK
           (681/6) AS WELL AS REFERENCING THE VOTRAX VOCABULARY (681/14).
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           CHANGED DEF AND VOC FILE READS TO USE NOATTN MODIFIER (TO PREVENT RECURSION
           IN DSR).  ALSO, CHANGED THE VOTRAX PEEL ROUTINE.
           *****************************************************************************
00681/003A  AUDIO RESP SYS - VOTRAX  VTRX            OC  G        # *PDP8RTN (SEE COMP 116)                                         
                                                                                    UM   FRONCZAK                                   
00681/004   AUDIO RESP SYS - VOTRAX  CVTPB           SA  G          W070:VOTRX.CVT.S(5)                                             
            D4T3     55  AUDIO_RESP_SYS_-_VOTRAX.C.SA.004   1 LINE     71    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:47
0          SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION ROUTINE.
0          Referenced by comments of: 681/2, 681/8 
00681/005   AUDIO RESP SYS - VOTRAX  CVTPB           OC  G        # *PDP8RTN (SEE COMP 116)                                         
                                                                                    UM   FRONCZAK                                   
00681/006   AUDIO RESP SYS - VOTRAX  DICT            SA  G          W070:VOTRX.DICT.S(4)                                            
            D4T3     56  AUDIO_RESP_SYS_-_VOTRAX.D.SA.006   1 LINE     81   10 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:48
0          MORPH DIRECTORY MANIPULATION ROUTINES.
0          Referenced by comments of: 681/2, 681/8 
00681/007   AUDIO RESP SYS - VOTRAX  DICT            OC  G        # *PDP8RTN (SEE COMP 116)                                         
                                                                                    UM   FRONCZAK                                   
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00681/008   AUDIO RESP SYS - VOTRAX  RVGN            SA  G          W070:VOTRX.RVGN.S(6)                                            
            D4T3     57  AUDIO_RESP_SYS_-_VOTRAX.R.SA.008   1 LINE     67    9 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:53
0          PROGRAM TO READ A SYMBOLIC VOCABULARY FILE (E.G. *ARUVOC) AND GENERATE ASSEMBLER
           INPUT WHICH, WHEN ASSEMBLED, PRODUCES AN OBJECT DECK FOR THE TREE STRUCTURE VOCABULARY.
           THIS PROGRAM CALLS CVTPB (681/4), DICT (681/6), RVST (681/10) AND REQUIRES *PLOTSYS.
0          Referenced by comments of: 681/12, 681/13 
00681/009   AUDIO RESP SYS - VOTRAX  RVGN            OC  G          W070:VOTRX.RVGN.O                                               
            D4T3     58  AUDIO_RESP_SYS_-_VOTRAX.R.OC.009   1 LINE     80    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:54
00681/010   AUDIO RESP SYS - VOTRAX  RVST            SF  G          W070:VOTRX.RVST.S(6)                                            
            D4T3     59  AUDIO_RESP_SYS_-_VOTRAX.R.SF.010   1 LINE     71    4 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:55
0          SUBROUTINES TO COMPUTE, PRINT, AND PLOT VOCABULARY STATISTICS.
0          Referenced by comments of: 681/8 
00681/011   AUDIO RESP SYS - VOTRAX  RVST            OC  G          W070:VOTRX.RVST.O                                               
            D4T3     60  AUDIO_RESP_SYS_-_VOTRAX.R.OC.011   1 LINE    248    5 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:56
00681/012   AUDIO RESP SYS - VOTRAX  TREEDEF         SA  G          W070:VTREEDEF                                                   
            D4T3     61  AUDIO_RESP_SYS_-_VOTRAX.T.SA.012   1 LINE     65    2 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:57
0          THE OUTPUT (WHICH IS ASSEMBLER SOURCE) FROM RVGN (681/8) STARTS WITH A COPY
           PSEUDO-OP FOR "W070:VTREEDEF" WHICH COPIES THE INITIAL PART OF THE SOURCE.
00681/013   AUDIO RESP SYS - VOTRAX  VOCABULARY      D              *ARUVOC                                                         
            D4T3     62  AUDIO_RESP_SYS_-_VOTRAX.V.D.013    1 LINE     95   31 PAGE UM   FRONCZAK            SEP. 18, 1977  22:09:57
                         *ARUVOC              
0          MORPH SYMBOLIC DIRECTORY FOR STANDARD VOTRAX VOCABULARY WHICH, WHEN RUN
           THROUGH RVGN (681/8), PRODUCES THE ASSEMBLER INPUT FOR THE VOCABULARY
           WHICH, WHEN ASSEMBLED, YIELDS THE SHARED VM VOCABULARY OBJECT (681/14).
00681/014   AUDIO RESP SYS - VOTRAX  VOCABULARY      OC  G        # *PDP8RTN (SEE COMP 116)                                         
                                                                                    UM   FRONCZAK                                   
0          STANDARD SYSTEM VOTRAX TREE STRUCTURE VOCABULARY.
0          Referenced by comments of: 681/2, 681/13 
00681/015   AUDIO RESP SYS - VOTRAX  VOCAB EDITOR    SF  G          W070:VOTRX.EVOC.S                                               
            D4T3     63  AUDIO_RESP_SYS_-_VOTRAX.V.SF.015   1 LINE     70    2 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:01
0          VOTRAX VOCABULARY LINE FILE EDITOR WITH AURAL VERIFICATION.  SEE THE SOURCE
           FOR USAGE DIRECTIONS.
00681/016   AUDIO RESP SYS - VOTRAX  VOCAB EDITOR    OC  G          W070:VOTRX.EVOC                                                 
            D4T3     64  AUDIO_RESP_SYS_-_VOTRAX.V.OC.016   1 LINE    254    3 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:02
0          CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00681/017   AUDIO RESP SYS - VOTRAX  TALK            SF  G          W070:VOTRX.TALK.S                                               
            D4T3     65  AUDIO_RESP_SYS_-_VOTRAX.T.SF.017   1 LINE     64    1 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:03
0          SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION PROGRAM WITH AURAL VERIFICATION.
           SEE THE SOURCE FOR USAGE DIRECTIONS.
00681/018   AUDIO RESP SYS - VOTRAX  TALK            OC  G          W070:VOTRX.TALK                                                 
            D4T3     66  AUDIO_RESP_SYS_-_VOTRAX.T.OC.018   1 SEQ     340    1 PAGE UM   FRONCZAK            SEP. 18, 1977  22:10:04
0          CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD.
00681/019   AUDIO RESP SYS - VOTRAX  DSR TEST        SA  G          W070:VOTRX.TEST.S(4)                                            
            D4.2T1  628  AUDIO_RESP_SYS_-_VOTRAX.D.SA.019   1 LINE     72    8 PAGE UM   FRONCZAK            APR. 02, 1979  00:45:49
0          PROGRAM TO INDEPENDENTLY TEST THE VOTRAX ROUTINES WHICH ARE CALLED BY PDP8RTN (116).
           SEE THE SOURCE FOR USAGE DIRECTIONS.
00681/020   AUDIO RESP SYS - VOTRAX  DSR TEST        OC  G          W070:VOTRX.TEST.O                                               
            D4.2T1  629  AUDIO_RESP_SYS_-_VOTRAX.D.OC.020   1 LINE     80    3 PAGE UM   FRONCZAK            APR. 02, 1979  00:45:50
00681/021   AUDIO RESP SYS - VOTRAX  *ARUDEF         D              *ARUDEF                                                         
                                                                                    UM   FRONCZAK                                   
                         *ARUDEF              
0          PUBLIC TEXT DEFINITION FILE FOR TEXT INSERTION MODE.
00682/001A  FILE SYSTEM RECOVERY     DOCUMENTATION   WF             FILE:UBC.DISK.W                                                 
            4.3T1   763  FILE_SYSTEM_RECOVERY.DOCU.WF.001   1 LINE     92    7 PAGE UM   HELFFRICH           APR. 05, 1980  20:32:55
                         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.
            
           COMP 682/1 IS A WRITEUP DESCRIBING THE USAGE OF THE SEVERAL PROGRAMS AND A DESCRIPTION
           OF THE DISK ORGANIZATION.  THE FORMAT INCLUDE FUNCTION IS USED TO REFERENCE THE
           VARIOUS PIECES OF THIS WRITEUP (682/2 THROUGH 682/17).
00682/002A  FILE SYSTEM RECOVERY     CCATL DESC      WF             FILE:CCATL.W                                                    
            4.3T1   764  FILE_SYSTEM_RECOVERY.CCAT.WF.002   1 LINE     93    2 PAGE UM   HELFFRICH           APR. 05, 1980  20:32:58
                         FILE:CCATL.W         
0          WRITEUP DESCRIBING THE CCATL PROGRAM (442).
00682/003A  FILE SYSTEM RECOVERY     PM DESC         WF             FILE:PM.W                                                       
            4.3T1   765  FILE_SYSTEM_RECOVERY.PM_D.WF.003   1 LINE     62    2 PAGE UBC  O'REILLY  HELFFRICH APR. 05, 1980  20:33:01
                         FILE:PM.W            
0          WRITEUP DESCRIBING THE PACK MAP PROGRAM (1030).
00682/004A  FILE SYSTEM RECOVERY     DSKMAN DESC     WF             FILE:DSKMAN.W                                                   
            4.3T1   766  FILE_SYSTEM_RECOVERY.DSKM.WF.004   1 LINE     67    1 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:03
                         FILE:DSKMAN.W        
0          WRITEUP DESCRIBING THE DSKMAN (*DSK) PROGRAM (073).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00682/005A  FILE SYSTEM RECOVERY     DASDI DESC      WF             FILE:DASDI.W                                                    
            4.3T1   767  FILE_SYSTEM_RECOVERY.DASD.WF.005   1 LINE     80    2 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:06
                         FILE:DASDI.W         
0          WRITEUP DESCRIBING THE 3330 DASDI PROGRAM (598).
00682/006A  FILE SYSTEM RECOVERY     CHONID DESC     WF             FILE:CHONID.W                                                   
            4.3T1   768  FILE_SYSTEM_RECOVERY.CHON.WF.006   1 LINE     76    1 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:09
                         FILE:CHONID.W        
0          WRITEUP DESCRIBING THE CHONID PROGRAM (599).
00682/007A  FILE SYSTEM RECOVERY     FM DESC         WF             FILE:FM.W                                                       
            4.3T1   769  FILE_SYSTEM_RECOVERY.FM_D.WF.007   1 LINE     71    1 PAGE UBC  HOGG      HELFFRICH APR. 05, 1980  20:33:11
                         FILE:FM.W            
0          WRITEUP DESCRIBING THE FILE MOVE PROGRAM (1020).
00682/008A  FILE SYSTEM RECOVERY     CHKVTOC DESC    WF             FILE:CHKVTOC.W                                                  
            4.3T1   770  FILE_SYSTEM_RECOVERY.CHKV.WF.008   1 LINE     73    1 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:14
                         FILE:CHKVTOC.W       
0          WRITEUP DESCRIBING THE CHKVTOC PROGRAM (682/20).
00682/009   FILE SYSTEM RECOVERY     TABLMOD DESC    WF             FILE:TABLMOD.W                                                  
            D4T3     77  FILE_SYSTEM_RECOVERY.TABL.WF.009   1 LINE     76    1 PAGE UM   GOODRICH            JULY 28, 1977  23:22:18
                         FILE:TABLMOD.W       
0          WRITEUP DESCRIBING THE TABLMOD PROGRAM (554).
00682/010A  FILE SYSTEM RECOVERY     VNTD DESC       WF             FILE:VNTD.W                                                     
            4.3T1   771  FILE_SYSTEM_RECOVERY.VNTD.WF.010   1 LINE     71    1 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:17
                         FILE:VNTD.W          
0          WRITEUP DESCRIBING THE VNTD PROGRAM (682/18).
00682/011   FILE SYSTEM RECOVERY     FSTEST DESC     WF             FILE:FSTEST.W                                                   
            D4.1T1  494  FILE_SYSTEM_RECOVERY.FSTE.WF.011   1 LINE    101    4 PAGE UM   HELFFRICH           MAY  13, 1978  18:11:22
                         FILE:FSTEST.W        
0          WRITEUP DESCRIBING THE FSTEST PROGRAM (482/31).
00682/012A  FILE SYSTEM RECOVERY     VAMREC DESC     WF             FILE:VAMREC.WRUP                                                
            4.3T1   772  FILE_SYSTEM_RECOVERY.VAMR.WF.012   1 LINE    108    5 PAGE SFU  BENET     HELFFRICH APR. 05, 1980  20:33:19
                         FILE:VAMREC.WRUP     
0          WRITEUP DESCRIBING THE VAMREC PROGRAM (682/22).
00682/013A  FILE SYSTEM RECOVERY     RECOVERING      WF             FILE:RECOVERING                                                 
            4.3T1   773  FILE_SYSTEM_RECOVERY.RECO.WF.013   1 LINE    182    6 PAGE UM   HELFFRICH           MAY  21, 1980  23:19:49
                         FILE:RECOVERING      
0          DESCRIPTION OF PROCEDURES SUGGESTED FOR RECOVERING FROM DISK DISASTERS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00682/014A  FILE SYSTEM RECOVERY     LINE FILE DESC  WF             FILE:DOC.DESC.LNE                                               
            4.3T1   774  FILE_SYSTEM_RECOVERY.LINE.WF.014   1 LINE    136    4 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:25
                         FILE:DOC.DESC.LNE    
0          DESCRIPTION OF MTS LINE FILE ORGANIZATION.
00682/015A  FILE SYSTEM RECOVERY     SEQ FILE DESC   WF             FILE:DOC.DESC.SEQ                                               
            4.3T1   775  FILE_SYSTEM_RECOVERY.SEQ.WF.015    1 LINE    130    4 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:27
                         FILE:DOC.DESC.SEQ    
0          DESCRIPTION OF MTS SEQ FILE ORGANIZATION.
00682/016A  FILE SYSTEM RECOVERY     CAT DESC        WF             FILE:DOC.DESC.CAT                                               
            4.3T1   776  FILE_SYSTEM_RECOVERY.CAT.WF.016    1 LINE    190    7 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:30
                         FILE:DOC.DESC.CAT    
0          DESCRIPTION OF MTS FILE CATALOG ORGANIZATION.
00682/017   FILE SYSTEM RECOVERY     TAB DESC        WF             FILE:DOC.DESC.TAB                                               
            D4T3     85  FILE_SYSTEM_RECOVERY.TAB.WF.017    1 LINE    131    5 PAGE UM   HELFFRICH           AUG. 14, 1977  22:41:44
                         FILE:DOC.DESC.TAB    
0          DESCRIPTION OF MTS SHARED FILE TABLE ORGANIZATION.
00682/018A  FILE SYSTEM RECOVERY     VNTD            SA  G  VNTD    FILE:VNTD(1000)                                                 
            4.3T1   777  FILE_SYSTEM_RECOVERY.VNTD.SA.018   1 LINE     80   39 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:32
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/33).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           1) FIXED IOH FORMATS WHICH CAUSED SOME NUMERIC FIELD WIDTHS TO BE OVERFLOWED.
           2) INCREASED SIZE OF CATALOG SEGMENT TABLE FOR LARGE USER IDS.
           3) UPDATED FOR VAMX SUPPORT.
           *****************************************************************************
0          Referenced by comments of: 682/10, 682/26 
00682/019A  FILE SYSTEM RECOVERY     VNTD            OC  G          FILE:VNTD(1,998)                                                
            4.3T1   778  FILE_SYSTEM_RECOVERY.VNTD.OC.019   1 LINE     80    9 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:37
                         FILE:VNTD            
00682/020A  FILE SYSTEM RECOVERY     CHKVTOC         SA  G  CHKV    FILE:CHKVTOC(1000)                                              
            4.3T1   779  FILE_SYSTEM_RECOVERY.CHKV.SA.020   1 LINE     80   23 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:40
                         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/33)
           AND *SYSMAC.  CALLS VTOCREAD SUBROUTINE (067/4).  SEE COMP 682/8 FOR A WRITEUP.
            
           *********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          D4.3 CHANGES:
            
           REVISED FOR VAMX SUPPORT.
           *********************************************************************************
0          Referenced by comments of: 682/8 
00682/021A  FILE SYSTEM RECOVERY     CHKVTOC         OC  G          FILE:CHKVTOC(1,999)                                             
            4.3T1   780  FILE_SYSTEM_RECOVERY.CHKV.OC.021   1 LINE     80    6 PAGE UM   HELFFRICH           APR. 05, 1980  20:33:44
0          CONTAINS A "$CONTINUE WITH RSTR:VTOCREAD+COPY:SYSDEFS" LINE.
00682/022A  FILE SYSTEM RECOVERY     VAMREC          SA  G  VMRC    FILE:VAMREC(1000)                                               
            4.3T1   781  FILE_SYSTEM_RECOVERY.VAMR.SA.022   1 LINE     80  108 PAGE SFU  BENET     HELFFRICH APR. 22, 1980  13:19:07
                         FILE:VAMREC          
0          THE VAMREC DISK UTILITY.  COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087).
           ASSEMBLE WITH COPY:FILE.MACROS (482/33), COPY:CC.MACROS (1054/3), COPY:UC.MACROS
           (787/1), AND COPY:MISC.MACROS (728).  (FILE CONTAINS COMMANDS AT LINE 0 TO 
           ASSEMBLE).  SEE COMPONENT 682/12 FOR A WRITEUP.
            
           *********************************************************************************
           D4.3 CHANGES:
            
           THIS IS A NEW VERSION OF VAMREC WHICH USES THE RESOURCE MANAGER CODING
           CONVENTIONS AND STRUCTURED MACROS.  IT USED THE OLD VAMREC AS ITS BASE, BUT
           MAJOR CHANGES IN STRUCTURE WERE MADE SO THE SOURCE CODE IS QUITE DIFFERENT.
           THIS VERSION OF VAMREC CAN BE USED ON BOTH VAM2- AND VAMX-FORMAT PACKS.
           *********************************************************************************
0          Referenced by comments of: 682/12, 682/43 
00682/023A  FILE SYSTEM RECOVERY     VAMREC          OC  G          FILE:VAMREC(1,999)                                              
            4.3T1   782  FILE_SYSTEM_RECOVERY.VAMR.OC.023   1 LINE  20580   18 PAGE SFU  BENET     HELFFRICH APR. 22, 1980  13:20:20
0          HAS $CONTINUE WITH COPY:SYSDEFS (579/3) RECORDS.
00682/024   FILE SYSTEM RECOVERY     FIXEH           SA  G  FXEH    FILE:FIXEH(1,999)                                               
            D4.1T1  500  FILE_SYSTEM_RECOVERY.FIXE.SA.024   1 LINE     80    5 PAGE UM   HELFFRICH           MAY  13, 1978  18:11:59
                         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/33).
00682/025   FILE SYSTEM RECOVERY     FIXEH           OC  G          FILE:FIXEH(1000)                                                
            D4.1T1  501  FILE_SYSTEM_RECOVERY.FIXE.OC.025   1 LINE     80    2 PAGE UM   HELFFRICH           MAY  13, 1978  18:12:00
00682/026A  FILE SYSTEM RECOVERY     FIXCAT          SA  G  FCAT    FILE:FIXCAT(1000)                                               
            4.3T1   783  FILE_SYSTEM_RECOVERY.FIXC.SA.026   1 LINE     80    8 PAGE UM   HELFFRICH           MAY  21, 1980  23:20:47
                         FILE:FIXCAT          
0          PROGRAM TO RECHAIN CATALOG SEGMENTS BACK TOGETHER AND ADD OR REMOVE MASTER INDEX
1                                                                                               SUN SEP 08/96   19:03:19   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          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/33).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX SUPPORT.
           *****************************************************************************
00682/027A  FILE SYSTEM RECOVERY     FIXCAT          OC  G          FILE:FIXCAT(1,999)                                              
            4.3T1   784  FILE_SYSTEM_RECOVERY.FIXC.OC.027   1 LINE     80    3 PAGE UM   HELFFRICH           MAY  21, 1980  23:20:48
00682/028A  FILE SYSTEM RECOVERY     FIXSD           SA  G  FXSD    FILE:FIXSD(1,999)                                               
            4.3T1   785  FILE_SYSTEM_RECOVERY.FIXS.SA.028   1 LINE     80    6 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:11
                         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 (703/2) 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/33).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           1) FIXED BUG IN PROGRAM CAUSING DRIVE NOT TO BE RELEASED IF ERROR ENCOUNTERED.
           2) UPDATED FOR VAMX SUPPORT.
           *****************************************************************************
00682/029A  FILE SYSTEM RECOVERY     FIXSD           OC  G          FILE:FIXSD(1000)                                                
            4.3T1   786  FILE_SYSTEM_RECOVERY.FIXS.OC.029   1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:14
00682/030A  FILE SYSTEM RECOVERY     RECATALOG       SA  G  RCAT    FILE:RECATALOG(1,999)                                           
            4.3T1   787  FILE_SYSTEM_RECOVERY.RECA.SA.030   1 LINE     80    4 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:16
                         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/33).
            
           *********************************************************************************
           D4.3 CHANGES:
            
           SCRATCH AREA SIZE INCREASED FOR VAMX SUPPORT.
           *********************************************************************************
00682/031A  FILE SYSTEM RECOVERY     RECATALOG       OC  G          FILE:RECATALOG(1000)                                            
            4.3T1   788  FILE_SYSTEM_RECOVERY.RECA.OC.031   1 LINE     80    1 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:19
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00682/032   FILE SYSTEM RECOVERY     CALLDR          SA  G  CLDR    FILE:CALLDR(1,999)                                              
            D4T3    102  FILE_SYSTEM_RECOVERY.CALL.SA.034   1 LINE     80    3 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:12
                         FILE:CALLDR          
0          PROGRAM WHICH CALLS DESTRYR TO DESTROY FILES.  SEE THE SOURCE FOR USAGE DETAILS.
00682/033   FILE SYSTEM RECOVERY     CALLDR          OC  G          FILE:CALLDR(1000)                                               
            D4T3    103  FILE_SYSTEM_RECOVERY.CALL.OC.035   1 LINE     80    1 PAGE UM   HELFFRICH           JULY 28, 1977  23:23:14
00682/034A  FILE SYSTEM RECOVERY     FILES           SA  G          FILE:STARFILES(1,999)                                           
            4.3T1   789  FILE_SYSTEM_RECOVERY.FILE.SA.034   1 LINE     74    3 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:22
                         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.
00682/035A  FILE SYSTEM RECOVERY     FILES           OC  G          FILE:STARFILES(1000)                                            
            4.3T1   790  FILE_SYSTEM_RECOVERY.FILE.OC.035   1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:24
0          PUT THIS IN *FILES AFTER A DISK CRASH.
00682/036   FILE SYSTEM RECOVERY     FILE UPDATE     OC  G          FILE:FILEUPD                                                    
            D4.2T1  634  FILE_SYSTEM_RECOVERY.FILE.OC.040   1 LINE     80    3 PAGE UM   MTA                 APR. 02, 1979  00:46:01
                         FILE:FILEUPD         
0          OBJECT FOR ACCRDWRT (104/33), ACCUPDAT (104/26), AND A DUMMY PRINT ROUTINE,
           PLUS $CONTINUE WITHS FOR ACATALOG (104/108), ACATSUB (104/110), VTOCREAD (067/4),
           TEST DSACC (482/30), ACCLIB (104/41), 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)                                           
            4.3T1   791  FILE_SYSTEM_RECOVERY.AMAL.SA.037   1 LINE     72    6 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:27
                         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). COPIES *CNFGINFODSECT (654). ASSEMBLE WITH THE FILE SAVE MACROS (67/29).
           NOTE: THE DIRECTORY FILES RSTR:FILEDIR.MAS, RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR 
           MUST BE PERMITTED WITH READ ACCESS TO FILE&PKEY=DISASTER. 
            
           *********************************************************************************
           D4.3 CHANGES:
            
           AMALGAMATE HAS BEEN UPDATED TO SUPPLY A CATALOG FD LOCATION TO FASTRESTORE
           (671) TO SPEED UP CATALOG SEARCHING.
           *********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   Page  383
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 682/26, 682/28, 682/34, 682/39 
00682/038A  FILE SYSTEM RECOVERY     AMALGAMATE      OC  G          FILE:AMALGAMATE(1,999)                                          
            4.3T1   792  FILE_SYSTEM_RECOVERY.AMAL.OC.038   1 LINE     80    4 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:30
0          HAS A "$CONTINUE WITH MTS:UBCDATEX+FILE:CHKFILE RETURN" LINE.
0          Referenced by comments of: 671/1 
00682/039A  FILE SYSTEM RECOVERY     CHKFILE SUBR    SA  G  CKF2    FILE:CHKFILE(1000)                                              
            4.3T1   793  FILE_SYSTEM_RECOVERY.CHKF.SA.039   1 LINE     80    7 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:32
                         FILE:CHKFILE         
0          ALTERNATE VERSION OF SYSTEM CHKFILE ROUTINE FOR USE BY MERGE (67/21) AND AMALGAMATE
           (682/37).  COPIES *CNFGINFODSECT (654).  ASSEMBLE USING COPY:FILE.MACROS (482/33).
            
           *********************************************************************************
           D4.3 CHANGES:
            
           CHANGED (TO OPERATE WITH NEW VERSION OF AMALGAMATE (682/37)) TO RETURN FILE 
           FD LOCATION IN GR0.
           *********************************************************************************
0          Referenced by comments of: 67/21, 752/1 
00682/040A  FILE SYSTEM RECOVERY     CHKFILE SUBR    OC  G          FILE:CHKFILE(1,999)                                             
            4.3T1   794  FILE_SYSTEM_RECOVERY.CHKF.OC.040   1 LINE     80    3 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:35
0          CONTAINS A "$CONTINUE WITH COPY:SYSDEFS" (579/3) RECORD.
00682/041A  FILE SYSTEM RECOVERY     CALLRELDSK      SA  G          FILE:CALLRELDSK(1000)                                           
            4.3T1   795  FILE_SYSTEM_RECOVERY.CALL.SA.041   1 LINE     72    1 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:38
                         FILE:CALLRELDSK      
0          PROGRAM TO TAKE ACATSUB OUTPUT AND CALL RELDSK TO DESTROY UNCATALOGED FILES.
           ASSEMBLE WITH COPY:FILE.MACROS (482/33).
            
           *********************************************************************************
           D4.3 CHANGES:
            
           UPDATED FOR VAMX SUPPORT.
           *********************************************************************************
00682/042A  FILE SYSTEM RECOVERY     CALLRELDSK      OC  G          FILE:CALLRELDSK(1,999)                                          
            4.3T1   796  FILE_SYSTEM_RECOVERY.CALL.OC.042   1 LINE     80    1 PAGE UM   HELFFRICH           APR. 05, 1980  20:34:40
00682/043   FILE SYSTEM RECOVERY     VAMREC-CHKVTOC  SS  G          FILE:VAMREC->CHKV                                               
            D4.2T1  641  FILE_SYSTEM_RECOVERY.VAMR.SS.047   1 LINE     66    1 PAGE UM   HELFFRICH           APR. 02, 1979  00:46:12
                         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.
            
1                                                                                               SUN SEP 08/96   19:03:19   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          *********************************************************************************
           D4.3 VERSION:
            
           THIS PROGRAM PROBABLY WILL NOT WORK WITH THE CURRENT VERSION OF VAMREC (682/22).
           *********************************************************************************
00683/001   MTS VOLUME 15            MASTER          WT             S1062 MTSV15 'MTS MANUALS' POSN=NEWM2.V15                       
            D4.2T1  642  MTS_VOLUME_15.MASTER.WT.001        1 SEQ     132  158 PAGE UM   MANUAL              APR. 02, 1979  00:46:49
0          TEXT/360 MASTER FOR VOLUME 15 "FORMAT AND TEXT360" OF THE UM MTS MANUALS
           (APRIL 1977, UPDATED FEBRUARY 1979).
            
           EDITOR:  RICHARD A. SALISBURY
00683/002   MTS VOLUME 15            PRINT           PT             S1062 MTSV15 'MTS MANUALS' POSN=PRINT2.V15                      
            D4.2T1  643  MTS_VOLUME_15.PRINT.PT.002         1 SEQ     132  277 PAGE UM   MANUAL              APR. 02, 1979  00:47:01
0          TEXT/360 PRINT FILE.
00683/003   MTS VOLUME 15            INDEX SOURCE    D              S1062 MTSV15 'MTS MANUALS' POSN=V15INDEXSOU                     
            D4.2T1  644  MTS_VOLUME_15.INDEX_SOURC.D.003    1 SEQ     147    5 PAGE UM   MANUAL              APR. 02, 1979  00:47:16
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 15.
00683/004   MTS VOLUME 15            UPDATE 1        PT             W073:TNLV15.FEB79                                               
            D4.2T1  645  MTS_VOLUME_15.UPDATE_1.PT.004      1 LINE    133   59 PAGE UM   MANUAL              APR. 02, 1979  00:47:17
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
            D4T3    111  OXFORD..SA.001                     1 LINE     80   24 PAGE UBC  HOGG      DWB       JULY 28, 1977  23:24:13
0          IF THIS DECK IS PRESENT IN THE RESIDENT SYSTEM, MTS WILL PRODUCE "FRED WORDS"
           (FOUR LETTER ENGLISH WORDS) IN THE INTERSTICES OF THE EDGELINE FOR BATCH AND
           *PRINT* OUTPUT DESIGNED TO AID SEPARATION OF PRINTED OUTPUT.  MTS HAS A
           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
            D4T3    112  OXFORD..OC.002                     1 LINE     80    3 PAGE UBC  HOGG      DWB       JULY 28, 1977  23:24:15
00685/001A  UNSUPPORTED SOFTWARE     WRITEUPS        WF             S0684 UNSP FSNAME=W.F                                           
            4.3T1   797  UNSUPPORTED_SOFTWARE.WRIT.WF.001   1 LINE    135   31 PAGE UM   UNSP                NOV. 29, 1979  15:05:01
0          FORMAT SOURCE TO PRODUCE BRIEF (AS IN VOLUMES 2 AND 3) WRITEUPS FOR THE UNSUPPORTED
           SOFTWARE.  THE OUTPUT FROM FORMAT MUST HAVE THE TABLE OF CONTENTS MOVED TO THE
           BEGINNING OF THE FILE IN ORDER TO COMPLETELY AGREE WITH THE FILE UNSP:WRITEUPS (685/2).
           NOTE:  NOT ALL OF THE ITEMS DESCRIBED IN THESE WRITEUPS ARE INCLUDED IN THE DISTRIBUTION.
00685/002A  UNSUPPORTED SOFTWARE     WRITEUPS        PF             UNSP:WRITEUPS                                                   
            4.3T1   798  UNSUPPORTED_SOFTWARE.WRIT.PF.002   1 LINE     70   49 PAGE UM   UNSP                APR. 05, 1980  20:39:16
                         UNSP:WRITEUPS        
0          THIS FILE CONTAINS BRIEF WRITEUPS (AS IN VOLUMES 2 AND 3) FOR THE SEVERAL "UNSUPPORTED"
1                                                                                               SUN SEP 08/96   19:03:19   Page  385
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          SOFTWARE COMPONENTS.
0          Referenced by comments of: 590/11, 673/1, 685/1, 736/1 
00685/003A  UNSUPPORTED SOFTWARE     CATALOG         P              UNSP:CATALOG                                                    
            4.3T1   799  UNSUPPORTED_SOFTWARE.CATA.P.003    1 LINE     68    6 PAGE UM   UNSP                APR. 05, 1980  20:39:22
                         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/004   UNSUPPORTED SOFTWARE     SUBR LIBRARY    OL  O          UNSP:LIBRARY                                                    
            D4.2T1  649  UNSUPPORTED_SOFTWARE.SUBR.OL.004   1 LINE   1382    3 PAGE UM   UNSP                APR. 02, 1979  00:47:37
                         UNSP:LIBRARY         
0          SUBROUTINE LIBRARY -- ROUTINES INCLUDED SEPARATELY.
0          Referenced by comments of: 528/59, 642/6, 642/25, 765/1, 773/3, 774/2, 783/14, 784/3, 785/2, 785/3, 1052/2 
00685/005A  UNSUPPORTED SOFTWARE     MACRO LIBRARY   SM  G          UNSP:MACLIB                                                     
            4.3T1   800  UNSUPPORTED_SOFTWARE.MACR.SM.005   1 LINE     72    5 PAGE UM   UNSP      MTA       APR. 05, 1980  20:39:27
                         UNSP:MACLIB          
0          MACRO LIBRARY CONTAINING CLCL, MVCL, AND SEXIT MACROS AMONG OTHERS.
           THESE MACROS ARE DESCRIBED IN 685/6 WRITEUP.
0          Referenced by comments of: 590/14, 590/15, 590/16, 590/17, 590/18, 590/19, 590/20, 590/21, 590/26, 685/6 
00685/006   UNSUPPORTED SOFTWARE     MACRO LIBRARY   WF             S0684 UNSP FSNAME=MACLIB.F                                      
            D4.2T1  651  UNSUPPORTED_SOFTWARE.MACR.WF.006   1 LINE     72    4 PAGE UM   UNSP      MTA       JAN. 15, 1979  15:28:38
0          A WRITEUP DESCRIBING THE MACROS THAT ARE AVAILABLE IN UNSP:MACROS (685/5).
00685/007A  UNSUPPORTED SOFTWARE     MACRO TEST PGM  SA             S0938 FSAVE2 VLO FSNAME=MIFMACTEST                              
            4.3T1   801  UNSUPPORTED_SOFTWARE.MACR.SA.007   1 LINE     72    2 PAGE UM   UNSP      MTA       NOV. 02, 1979  23:04:04
0          TEST PROGRAM FOR "MIF" MACROS.  COPIES COPY:GLOBALS (1026/3). ASSEMBLE,
           BUT DON'T RUN IT.
00685/008A  UNSUPPORTED SOFTWARE     NEWS            P              UNSP:NEWS                                                       
            4.3T1   802  UNSUPPORTED_SOFTWARE.NEWS.P.008    1 LINE     68    4 PAGE UM   UNSP                APR. 05, 1980  20:43:21
0          LIST OF MOST CHANGES MADE TO UNSUPPORTED SOFTWARE AT UM.
            
           ****************************************************************************
           D4.3 CHANGES:
            
           NOW CONTAINS $CONTINUE WITH UNSP:NEWSNEW" (685/9) AND "$CONTINUE WITH
           UNSP:NEWSOLD" (685/10). 
           ****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00685/009A  UNSUPPORTED SOFTWARE     NEWSNEW         P              UNSP:NEWSNEW                                                    
            4.3T1   803  UNSUPPORTED_SOFTWARE.NEWS.P.009    1 LINE     68    3 PAGE UM   UNSP                APR. 05, 1980  20:43:24
0          CONTAINS NEWS ITEMS WHICH HAVE NOT YET APPEARED IN THE COMPUTING CENTER
           NEWSLETTER.
0          Referenced by comments of: 685/8 
00685/010A  UNSUPPORTED SOFTWARE     NEWSOLD         P              UNSP:NEWSOLD                                                    
            4.3T1   804  UNSUPPORTED_SOFTWARE.NEWS.P.010    1 LINE     69    6 PAGE UM   UNSP                APR. 05, 1980  20:43:27
0          CONTAINS NEWS ITEMS SENT OUT ON THE LAST REGULAR DISTRIBUTION.
0          Referenced by comments of: 685/8 
00685/011A  UNSUPPORTED SOFTWARE     PASCAL NEWS     P              UNSP:PASCAL.NEWS                                                
            4.3T1   805  UNSUPPORTED_SOFTWARE.PASC.P.011    1 LINE     68   14 PAGE UM   UNSP                APR. 05, 1980  20:43:29
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 (STONY BROOK) (9003), AND PASCAL/8000 (9004).  IT CONTAINS
           NO INFORMATION ABOUT THE GRENOBLE PASCAL (664).
0          Referenced by comments of: 1052/1 
00686/001A  MICRO CROSS-ASSEMBLER    GENCODE         SA  G          MINI:ASM.GENCODE                                                
            4.3T1   806  MICRO_CROSS-ASSEMBLER.GEN.SA.001   1 LINE     72   57 PAGE UM   UNSP      LUBBERS   APR. 05, 1980  20:43:33
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. THESE WERE ORIGINALLY WRITTEN BY CLARK LUBBERS AT UM,
           WHERE THEY ARE CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  SHORT WRITEUPS
           ARE GIVEN IN 685/2.
            
           NOTE:  ALL SUBCOMPONENTS OF 686 SHOULD BE ASSEMBLED USING *ASMG (066).
            
           THIS SUBCOMPONENT IS GENERAL SYSTEM-INDEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/002A  MICRO CROSS-ASSEMBLER    KWIC            SA  G          MINI:ASM.KWIC                                                   
            4.3T1   807  MICRO_CROSS-ASSEMBLER.KWI.SA.002   1 LINE     80   14 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:31
0          SYSTEM-INDEPENDENT KEYWORD SCANNER ROUTINE.
           ASSEMBLE USING 686/17.
00686/003A  MICRO CROSS-ASSEMBLER    SYMTAB          SA  G          MINI:ASM.SYM                                                    
            4.3T1   808  MICRO_CROSS-ASSEMBLER.SYM.SA.003   1 LINE     80   13 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:34
0          SYSTEM-INDEPENDENT SYMBOL TABLE ROUTINES.
           ASSEMBLE USING 686/17.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00686/004A  MICRO CROSS-ASSEMBLER    SYSCODE         SA  G          MINI:ASM.SYSCODE                                                
            4.3T1   809  MICRO_CROSS-ASSEMBLER.SYS.SA.004   1 LINE     72   13 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:36
0          MTS-DEPENDENT, ASSEMBLER-INDEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/005A  MICRO CROSS-ASSEMBLER    M6800I          SA  G          MINI:ASM.M6800I                                                 
            4.3T1   810  MICRO_CROSS-ASSEMBLER.M68.SA.005   1 LINE     72   43 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:39
0          M6800 SYSTEM-INDEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/006A  MICRO CROSS-ASSEMBLER    M6800MTS        SA  G          MINI:ASM.M6800MTS                                               
            4.3T1   811  MICRO_CROSS-ASSEMBLER.M68.SA.006   1 LINE     72    5 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:43
0          M6800 MTS-DEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/007A  MICRO CROSS-ASSEMBLER    M650XI          SA  G          MINI:ASM.M650XI                                                 
            4.3T1   812  MICRO_CROSS-ASSEMBLER.M65.SA.007   1 LINE     72   43 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:46
0          MCS650X SYSTEM-INDEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/008A  MICRO CROSS-ASSEMBLER    M650XMTS        SA  G          MINI:ASM.M650XMTS                                               
            4.3T1   813  MICRO_CROSS-ASSEMBLER.M65.SA.008   1 LINE     72    5 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:51
0          MCS650X MTS-DEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/009A  MICRO CROSS-ASSEMBLER    I8080I          SA  G          MINI:ASM.I8080I                                                 
            4.3T1   814  MICRO_CROSS-ASSEMBLER.I80.SA.009   1 LINE     72   43 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:53
0          I8080 SYSTEM-INDEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/010A  MICRO CROSS-ASSEMBLER    I8080MTS        SA  G          MINI:ASM.I8080MTS                                               
            4.3T1   815  MICRO_CROSS-ASSEMBLER.I80.SA.010   1 LINE     72    5 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:16:59
0          I8080 MTS-DEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/011A  MICRO CROSS-ASSEMBLER    Z80I            SA  G          MINI:ASM.Z80I                                                   
            4.3T1   816  MICRO_CROSS-ASSEMBLER.Z80.SA.011   1 LINE     72   50 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:01
0          Z80 SYSTEM-INDEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
00686/012A  MICRO CROSS-ASSEMBLER    Z80MTS          SA  G          MINI:ASM.Z80MTS                                                 
            4.3T1   817  MICRO_CROSS-ASSEMBLER.Z80.SA.012   1 LINE     72    5 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:07
0          Z80 MTS-DEPENDENT CODE.
           COPIES 686/16.  ASSEMBLE USING 686/17.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00686/013C  MICRO CROSS-ASSEMBLER    M6809I          SA  G          MINI:ASM.M6809I                                                 
            4.3T1   818  MICRO_CROSS-ASSEMBLER.M68.SA.013   1 LINE     72   50 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:09
0          M6809 SYSTEM INDEPENDENT CODE. COPIES 686/16.  ASSEMBLE USING 686/17.
00686/014C  MICRO CROSS-ASSEMBLER    M6809MTS        SA  G          MINI:ASM.M6809MTS                                               
            4.3T1   819  MICRO_CROSS-ASSEMBLER.M68.SA.014   1 LINE     72    5 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:14
0          M6809 MTS-DEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 
00686/015A  MICRO CROSS-ASSEMBLER    MESSAGES        M              ETC:M6800ASRERR                                                 
            4.3T1   820  MICRO_CROSS-ASSEMBLER.MES.M.015    1 LINE     65    2 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:17
                         ETC.:M6800ASRERR     
0          ERROR MESSAGES.
00686/016A  MICRO CROSS-ASSEMBLER    COPY SECTION    SA  G          MINI:ASM.DSECT                                                  
            4.3T1   821  MICRO_CROSS-ASSEMBLER.COP.SA.016   1 LINE     78   10 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:20
00686/017A  MICRO CROSS-ASSEMBLER    MACRO LIB       SM  G          MINI:ASM.MACRO                                                  
            4.3T1   822  MICRO_CROSS-ASSEMBLER.MAC.SM.017   1 LINE     71    3 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:22
00686/018A  MICRO CROSS-ASSEMBLER    M6800ASR        OE  G          UNSP:M6800ASR                                                   
            4.3T1   823  MICRO_CROSS-ASSEMBLER.M68.OE.018   1 LINE  32712   11 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:25
                         UNSP:M6800ASR        
0          OBJECT FOR MOTOROLA M6800 MICROPROCESSOR CROSS-ASSEMBLER.
00686/019A  MICRO CROSS-ASSEMBLER    MCS650ASR       OE  G          UNSP:MCS650XASR                                                 
            4.3T1   824  MICRO_CROSS-ASSEMBLER.MCS.OE.019   1 LINE  31888   10 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:27
                         UNSP:MCS650XASR      
0          OBJECT FOR MCS TECHNOLOGY 6500 SERIES MICROCOMPUTERS CROSS-ASSEMBLER.
00686/020A  MICRO CROSS-ASSEMBLER    I8080ASR        OE  G          UNSP:I8080ASR                                                   
            4.3T1   825  MICRO_CROSS-ASSEMBLER.I80.OE.020   1 LINE  32040   10 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:30
                         UNSP:I8080ASR        
0          OBJECT FOR INTEL 8080 MICROCOMPUTER CROSS-ASSEMBLER.
0          Referenced by comments of: 756/1 
00686/021A  MICRO CROSS-ASSEMBLER    Z80ASR          OE  G          UNSP:Z80ASR                                                     
            4.3T1   826  MICRO_CROSS-ASSEMBLER.Z80.OE.021   1 LINE  32767   10 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:33
                         UNSP:Z80ASR          
0          OBJECT FOR ZILOG Z80 MICROPROCESSOR CROSS-ASSEMBLER.
00686/022C  MICRO CROSS-ASSEMBLER    M6809ASR        OE  G          UNSP:M6809ASR                                                   
            4.3T1   827  MICRO_CROSS-ASSEMBLER.M68.OE.022   1 LINE  32767   10 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:35
0          OBJECT FOR MOTOROLA M6809 MICROCOMPUTER CROSS-ASSEMBLER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00686/023A  MICRO CROSS-ASSEMBLER    MANUAL          WF             MINI:ASM.MAN                                                    
            4.3T1   828  MICRO_CROSS-ASSEMBLER.MAN.WF.023   1 LINE     80   36 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:38
0          MANUAL FOR USAGE OF MICRO PROCESSOR CROSS-ASSEMBLERS.
00686/024C  MICRO CROSS-ASSEMBLER    NEWS            P              MINI:NEWS                                                       
            4.3T1   829  MICRO_CROSS-ASSEMBLER.NEW.P.024    1 LINE     70    3 PAGE UM   UNSP      LUBBERS   APR. 06, 1980  12:17:42
0           
           ********************************************************************************
           D4.3 VERSION:
            
           THIS IS A PRINT FILE CONTAINING A DESCRIPTION OF THE CHANGES TO MICRO
           CROSS ASSEMBLERS FOR D4.3.
           ********************************************************************************
00687/001   PAR SUBR                                 SA  O  PAR     S0683 OGDEN FSNAME=PAR.S                                        
            D4.1T1  510  PAR_SUBR..SA.001                   1 LINE     80    3 PAGE UM   OGDEN               MAR. 23, 1978  15:53:44
0          SUBROUTINE TO GIVE FORTRAN USERS ACCESS TO THE $RUN PAR STRING.
0          Referenced by comments of: 540/17, 3024/31 
00687/002   PAR SUBR                                 OC  O        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   OGDEN                                      
00688/001   TRAP SUBR                                SA  O  TRAP    S0684 UNSP FSNAME=TRAP.S                                        
            D4T3    136  TRAP_SUBR..SA.001                  1 LINE     80    6 PAGE UM   UNSP                OCT. 28, 1975  23:42:21
0          EXPANDED VERSION OF UBC'S TRAP ROUTINE WHICH ALLOWS FORTRAN USERS TO FIELD
           PROGRAM INTERRUPTS.  AT UM, THIS SUBROUTINE IS CLASSIFIED AS "UNSUPPORTED"
           SOFTWARE.  SEE THE WRITEUP IN 685/2.
0          Referenced by comments of: 689/1 
00688/002   TRAP SUBR                                OC  O        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UM   UNSP                                       
00689/001   ATRAP SUBR                               SA  O  ATRA    S0684 UNSP FSNAME=ATRAP.S                                       
            D4T3    137  ATRAP_SUBR..SA.001                 1 LINE     80    5 PAGE UM   UNSP                MAR. 23, 1976  12:19:34
0          SIMILAR TO THE TRAP SUBROUTINE (688), BUT ALLOWS FORTRAN USERS TO FIELD
           ATTENTION INTERRUPTS.  AT UM, THIS SUBROUTINE IS CLASSIFIED AS "UNSUPPORTED"
           SOFTWARE.  SEE THE WRITEUP IN 685/2.
0          Referenced by comments of: 540/17 
00689/002   ATRAP SUBR                               OC  O        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UM   UNSP                                       
00690/001   DISASM                                   SA  S  DASM    S0684 UNSP FSNAME=DISASM.S                                      
            D4T3    138  DISASM..SA.001                     1 LINE     80  147 PAGE UM   UNSP                APR. 15, 1976  01:14:16
0          A DISASSEMBLER FROM THE IBM/SHARE CONTRIBUTED PROGRAM LIBRARY (360D-05.3.001)
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          VIA UQV.  MODIFIED BY UM.  AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED"
           SOFTWARE.  NO USER WRITEUP IS AVAILABLE.  ASSEMBLE USING *SYSMAC.
00690/002   DISASM                                   OE  S          UNSP:DISASM                                                     
            D4T3    139  DISASM..OE.002                     1 LINE   3364   16 PAGE UM   UNSP                JULY 28, 1977  23:31:11
                         UNSP:DISASM          
00690/003   DISASM                   NOTES           P              S0684 UNSP FSNAME=DISASM.NOTES                                  
            D4T3    140  DISASM.NOTES.P.003                 1 LINE     61    1 PAGE UM   UNSP                JULY 09, 1976  12:03:21
0          COMMENTS, NOTES, AND BUGS.
00691/001   PFILES                                   SF  O  PFIL    S0684 UNSP FSNAME=PFILES.S                                      
            D4T3    141  PFILES..SF.001                     1 LINE     80    5 PAGE UM   UNSP                MAY  18, 1977  23:00:16
0          PROGRAM TO PRODUCE A COLUMNAR LISTING OF A USERS FILES FLAGGING THOSE WHICH
           HAVE NOT BEEN REFERENCED IN THE LAST 30 DAYS.  AT UM, THIS PROGRAM IS
           CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00691/002   PFILES                                   OE  O          UNSP:PFILES                                                     
            D4T3    142  PFILES..OE.002                     1 LINE   1428    4 PAGE UM   UNSP                JULY 28, 1977  23:31:57
                         UNSP:PFILES          
00692/001   SPELER SUBR                              SA  O  SPEL    S0684 UNSP FSNAME=SPELER.S                                      
            D4T3    143  SPELER_SUBR..SA.001                1 LINE     80    5 PAGE UBC            UNSP      OCT. 28, 1975  23:42:33
0          SUBROUTINE TO TEST TWO STRINGS AND DETERMINE IF THE SECOND IS A LIKELY MISSPELLING
           OF THE FIRST; SEE CACM, VOL 13, NO 2, FEB 1970.  AT UM, THIS SUBROUTINE IS CLASSIFIED
           AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00692/002   SPELER SUBR                              OC  O        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UBC            UNSP                             
00693/001A  TAPEDRIVES                               SA  G  TDRI    S0684 UNSP FSNAME=TAPEDRIVES.S                                  
            4.3T1   830  TAPEDRIVES..SA.001                 1 LINE     80    5 PAGE UBC            UNSP      JUNE 26, 1979  17:08:41
0          A MUCH REWORKED VERSION OF THE UBC *TAPEDRIVES PROGRAM.  AT UM, THIS PROGRAM
           IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
           COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087).  ASSEMBLE USING *SYSMAC,
           WITH PAR=BATCH.
            
           ***************************************************************************
           D4.3 CHANGES:
            
           OUTPUT FORMAT CHANGED SLIGHTLY.
           ***************************************************************************
00693/002A  TAPEDRIVES                               OE  G          UNSP:TAPEDRIVES                                                 
            4.3T1   831  TAPEDRIVES..OE.002                 1 LINE    695    1 PAGE UBC            UNSP      APR. 06, 1980  12:22:11
                         UNSP:TAPEDRIVES      
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00693/003   TAPEDRIVES               *TPS            C              *TPS                                                            
            D4.2T1  676  TAPEDRIVES.*TPS.C.003              1 LINE     33    1 PAGE UBC            UNSP      APR. 02, 1979  00:51:01
                         *TPS                 
0          OPERATOR FILE TO RUN UNSP:TAPEDRIVES.  INVOKED BY ENTERING "MTS *TPS"
           ON OPERATORS CONSOLE.
00694/001   DOC                                      SF  O  DOC     S0684 UNSP FSNAME=DOC.S                                         
            D4T3    146  DOC..SF.001                        1 LINE     80    5 PAGE UM   UNSP                OCT. 03, 1975  16:46:13
0          A PROGRAM TO HELP PRODUCE PROGRAM AND SUBROUTINE DOCUMENTATION.  AT UM, THIS
           PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00694/002   DOC                                      OE  O          UNSP:DOC                                                        
            D4T3    147  DOC..OE.002                        1 SEQ    2002    2 PAGE UM   UNSP                JULY 28, 1977  23:32:39
                         UNSP:DOC             
00694/003   DOC                      DOCCOM          D              UNSP:DOCCOM                                                     
            D4T3    148  DOC.DOCCOM.D.003                   1 LINE     35    1 PAGE UM   UNSP                JULY 28, 1977  23:32:41
                         UNSP:DOCCOM          
0          A DATA FILE REFERENCED BY 694/1.
00694/004   DOC                      DOCCOM2         D              UNSP:DOCCOM2                                                    
            D4T3    149  DOC.DOCCOM2.D.004                  1 LINE     31    1 PAGE UM   UNSP                JULY 28, 1977  23:32:43
                         UNSP:DOCCOM2         
0          A DATA FILE WHICH CAN BE USED WITH 694/1.
00694/005   DOC                      DOCCOM3         D              UNSP:DOCCOM3                                                    
            D4T3    150  DOC.DOCCOM3.D.005                  1 LINE     31    1 PAGE UM   UNSP                JULY 28, 1977  23:32:50
                         UNSP:DOCCOM3         
0          A DATA FILE WHICH CAN BE USED WITH 694/1.
00695/001   SNOOP                    SUBR            SF  G  SNOO    S0684 UNSP FSNAME=SNOOP.S                                       
            D4T3    151  SNOOP.SUBR.SF.001                  1 LINE     80    3 PAGE UM   UNSP                JAN. 13, 1976  11:28:21
0          THIS SUBROUTINE IS CALLED (EITHER DIRECTLY OR VIA CSNOOP) BY MOST OF THE UM
           "UNSUPPORTED" SOFTWARE COMPONENTS TO RECORD PROGRAM USAGE STATISTICS.
           A WRITEUP IS INCLUDED IN 685/2.
00695/002   SNOOP                    SUBR            OC  G        # UNSP:LIBRARY (SEE COMP 685)                                     
                                                                                    UM   UNSP                                       
00695/003   SNOOP                    CSNOOP          SA  O  CSNO    S0684 UNSP FSNAME=CSNOOP.S                                      
            D4T3    152  SNOOP.CSNOOP.SA.003                1 LINE     80    1 PAGE UM   UNSP                JUNE 21, 1976  13:03:43
0          A "MAIN" PROGRAM WHICH CALLS THE SNOOP SUBROUTINE AND THEN CALLS THE REAL
           MAIN PROGRAM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00695/004   SNOOP                    CSNOOP          OC  O          UNSP:CSNOOP.O                                                   
            D4T3    153  SNOOP.CSNOOP.OC.004                1 LINE     80    1 PAGE UM   UNSP                JULY 28, 1977  23:33:59
                         UNSP:CSNOOP.O        
0          Referenced by comments of: 772/2, 773/3, 774/2 
00696/001   CDCEBCD                                  SA  O  CDCE    S0684 UNSP FSNAME=CDCEBCD.S                                     
            D4T3    154  CDCEBCD..SA.001                    1 LINE     80    5 PAGE UM   UNSP                JULY 14, 1977  21:18:49
0          PROGRAM TO DEBLOCK CDC 6000 SERIES 7-TRACK SCOPE CODED TAPES AND CONVERT THE
           DATA FROM CDC "CONSOLE DISPLAY CODE" INTO EBCDIC.  AT UM, THIS PROGRAM IS
           CLASSIFIED AS "UNSUPPORTED "SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00696/002   CDCEBCD                                  OC  O          UNSP:CDCEBCD                                                    
            D4T3    155  CDCEBCD..OC.002                    1 LINE     80    3 PAGE UM   UNSP                JULY 28, 1977  23:36:29
                         UNSP:CDCEBCD         
00697/001   SIGFILE                                  SF  G  SIGF    S0684 UNSP FSNAME=SIGFILE.S                                     
            D4T3    156  SIGFILE..SF.001                    1 LINE     80    4 PAGE UM   UNSP                JULY 14, 1977  21:18:46
0          A PROGRAM, SOMEWHAT LIKE UBC'S PROFILE PROGRAM, WHICH IS DESIGNED TO BE RUN
           FROM SIGFILES.  AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
           A WRITEUP IS INCLUDED IN 685/2.
00697/002   SIGFILE                                  OE  G          UNSP:SIGFILE                                                    
            D4T3    157  SIGFILE..OE.002                    1 SEQ    4632    2 PAGE UM   UNSP                JULY 28, 1977  23:36:33
                         UNSP:SIGFILE         
00698       LIST                                                    (OBSOLETED BY 774)                                              
            D4T3    158  LIST..SF.001                       1 LINE     80    3 PAGE UM                       JULY 02, 1977  12:29:01
0          PROGRAM TO ALLOW LONG LINES TO BE PRINTED ON *PRINT* -- NOT TO BE CONFUSED WITH
           THE UBC LIST PROGRAM.  AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED"
           SOFTWARE.  A WRITEUP IS INCLUDED IN 685/2.
00699/001   FTNREP                                   SA  O  FTNR    S0684 UNSP FSNAME=FTNREP.S                                      
            D4T3    160  FTNREP..SA.001                     1 LINE     80    4 PAGE UM   UNSP                DEC. 01, 1976  22:00:25
0          A PROGRAM WHICH COMPILES FORTRAN SOURCE BY LINKING TO *FTN (551) AND THEN
           EDITS THE OBJECT INTO EXISTING OBJECT FILES BY LINKING TO OBJREP (700).
           AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 700/1 
00699/002   FTNREP                                   OE  O          UNSP:FTNREP                                                     
            D4T3    161  FTNREP..OE.002                     1 LINE   1382    3 PAGE UM   UNSP                JULY 28, 1977  23:37:30
                         UNSP:FTNREP          
00700/001   OBJREP                                   SA  O  OBJR    S0684 UNSP FSNAME=OBJREP.S                                      
            D4T3    162  OBJREP..SA.001                     1 LINE     80   16 PAGE UM   UNSP                OCT. 03, 1975  16:46:40
0          AN OBJECT FILE EDITOR/UPDATER WHICH IS LINKED TO BY FTNREP (699) OR CAN BE RUN
           DIRECTLY.  AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          IS INCLUDED IN 685/2. 
0          Referenced by comments of: 699/1 
00700/002   OBJREP                                   OE  O          UNSP:OBJREP                                                     
            D4T3    163  OBJREP..OE.002                     1 SEQ    4358    4 PAGE UM   UNSP                JULY 28, 1977  23:37:55
                         UNSP:OBJREP          
00701/001   ECMD                                     SF  O  ECMD    S0684 UNSP FSNAME=ECMD.S                                        
            D4T3    164  ECMD..SF.001                       1 LINE     80   17 PAGE UM   UNSP                JULY 02, 1977  12:23:42
0          A SIMPLE COMMAND EXPANDER WHICH ALLOWS ALL MTS COMMANDS TO MAKE USE OF THE
           NOTATION ACCEPTED BY $FILESTATUS.  CALLS THE FSTARTNS SUBROUTINE (701/2).
           AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.
00701/002   ECMD                     FSTARTNS SUBR   SA  O  FSTA    S0684 UNSP FSNAME=FSTARTN.S                                     
            D4T3    165  ECMD.FSTARTNS_SUBR.SA.002          1 LINE     80   18 PAGE UM   UNSP                JULY 10, 1976  17:44:16
0          ROUTINES TAKEN FROM $FILESTATUS TO SCAN FILE CATALOG FOR PARTIAL FILENAMES.
0          Referenced by comments of: 701/1 
00701/003   ECMD                                     OE  O          UNSP:ECMD                                                       
            D4T3    166  ECMD..OE.003                       1 LINE  12684    7 PAGE UM   UNSP                JULY 28, 1977  23:40:39
                         UNSP:ECMD            
00702/001   MCCTOCC                                  SA  G  MCCT    S0684 UNSP FSNAME=MCCTOCC.S                                     
            D4T3    167  MCCTOCC..SA.001                    1 LINE     80    3 PAGE UM   UNSP                SEP. 30, 1975  11:00:22
0          PROGRAM TO CONVERT MACHINE CARRIAGE CONTROL TO LOGICAL CARRIAGE CONTROL.
           AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  A WRITEUP IS
           INCLUDED IN 685/2.
00702/002   MCCTOCC                                  OE  G          UNSP:MCCTOCC                                                    
            D4T3    168  MCCTOCC..OE.002                    1 SEQ    1382    2 PAGE UM   UNSP                JULY 28, 1977  23:40:58
                         UNSP:MCCTOCC         
00703/001   DIGLIB                   PERSYS          SF  G  PERS    S0684 UNSP FSNAME=PERSYS.S                                      
            D4T3    169  DIGLIB.PERSYS.SF.001               1 LINE     80   16 PAGE UM   UNSP                AUG. 30, 1976  15:52:15
0          DIGLIB IS A LIBRARY OF DEVICE INDEPENDENT GRAPHICS (DIG) SUBROUTINES.  AT UM, THESE
           ROUTINES ARE CLASSIFIED AS "UNSUPPORTED" SOFTWARE.  BRIEF WRITEUPS ARE INCLUDED
           IN 685/2.
            
           THE PERSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING
           A TWO-DIMENSIONAL VIEW OF A THREE-DIMENSIONAL SURFACE.
0          Referenced by comments of: 104/110 
00703/002   DIGLIB                   PERSYS WRITEUP  WF  G          S0684 UNSP FSNAME=PERSYS.F                                      
            D4T3    170  DIGLIB.PERSYS_WRITEUP.WF.002       1 LINE    195   15 PAGE UM   UNSP                AUG. 30, 1976  15:52:33
0          CONTAINS A "$CONTINUE WITH PERSYS.S(---)" RECORD.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 682/28 
00703/003   DIGLIB                   CONSYS          SF  G  CONS    S0684 UNSP FSNAME=CONSYS.S                                      
            D4T3    171  DIGLIB.CONSYS.SF.003               1 LINE     80   18 PAGE UM   UNSP                AUG. 30, 1976  15:51:52
0          THE CONSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING
           A CONTOUR MAP.
00703/004   DIGLIB                   CONSYS WRITEUP  WF  G          S0684 UNSP FSNAME=CONSYS.F                                      
            D4T3    172  DIGLIB.CONSYS_WRITEUP.WF.004       1 LINE    221   17 PAGE UM   UNSP                AUG. 30, 1976  23:21:01
0          CONTAINS A "$CONTINUE WITH CONSYS.S(---)" RECORD.
00703/005   DIGLIB                   OBJECT LIB      OL  G          UNSP:DIGLIB                                                     
            D4T3    173  DIGLIB.OBJECT_LIB.OL.005           1 LINE   5024    7 PAGE UM   UNSP                JULY 28, 1977  23:41:57
                         UNSP:DIGLIB          
00704/001   11PAL                    SIMULATOR       SA     SIMU    S0684 UNSP FSNAME=11SIMULATOR.S                                 
            D4T3    174  11PAL.SIMULATOR.SA.001             1 LINE     80   35 PAGE UNE            UNSP      MAY  17, 1977  21:55:21
0          A PDP-11 ASSEMBLER AND SIMULATOR WHICH ORIGINALLY CAME FROM THE POLYTECHNIC
           INSTITUTE OF BROOKLYN (NEW YORK) -- ADAPTED FOR MTS BY UNE.  AT UM, THIS PROGRAM
           IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
00704/002   11PAL                    ASSEMBLER       SA     ASSE    S0684 UNSP FSNAME=11ASSEMBLER.S                                 
            D4T3    175  11PAL.ASSEMBLER.SA.002             1 LINE     80   63 PAGE UNE            UNSP      MAY  17, 1977  21:55:33
00704/003   11PAL                    MONITOR         SA     MONI    S0684 UNSP FSNAME=11MONITOR.S                                   
            D4T3    176  11PAL.MONITOR.SA.003               1 LINE     80   14 PAGE UNE            UNSP      OCT. 22, 1976  12:34:15
00704/004   11PAL                    OBJECT          OE             UNSP:11PAL                                                      
            D4T3    177  11PAL.OBJECT.OE.004                1 LINE  14130    9 PAGE UNE            UNSP      JULY 28, 1977  23:42:43
                         UNSP:11PAL           
00704/005   11PAL                    WRITEUP         WF             S0684 UNSP FSNAME=11PAL.F                                       
            D4T3    178  11PAL.WRITEUP.WF.005               1 LINE     95   15 PAGE UNE            UNSP      OCT. 22, 1976  12:33:13
0          IN ADDITION TO THIS WRITEUP, THERE IS ALSO A BRIEF DESCRIPTION INCLUDED IN 685/2.
00705/001   REPORT GENERATOR         DESCRIP         SA  O          S0684 UNSP FSNAME=RG.DESCRIP.S                                  
            D4.2T1  677  REPORT_GENERATOR.DESCRIP.SA.001    1 LINE     81   16 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:41:14
0          AT UM, RG IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
            
           ALL RG SOURCE PROGRAMS COPY THE RG COPY SECTION (705/13). ALL BUT 705/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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00705/002   REPORT GENERATOR         COMPILE         SA  O          S0684 UNSP FSNAME=RG.COMPILE.S                                  
            D4.2T1  678  REPORT_GENERATOR.COMPILE.SA.002    1 LINE     79   15 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:42:21
0          PHASE 2 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS:
             1 - PROCESS EXTRACT , ORDER , TABLE , CALL , TITLE , PRINT COMMANDS
             2 - GENERATE APPROPRIATE BLOCKS OF DATA DEFINING THE REQUIRED OPERATION.
00705/003   REPORT GENERATOR         ACTION          SA  O          S0684 UNSP FSNAME=RG.ACTION.S                                   
            D4.2T1  679  REPORT_GENERATOR.ACTION.SA.003     1 LINE     78   17 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:41:45
0          PHASE 3 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS:
             READS THE DATA FILE AND TRANSFERS THE EXTRACTED DATA RECORDS TO THE
               TEMPORARY SEQUENTIAL FILE -TEMPNAME.
00705/004   REPORT GENERATOR         PRINT           SA  O          S0684 UNSP FSNAME=RG.PRINT.S                                    
            D4.2T1  680  REPORT_GENERATOR.PRINT.SA.004      1 LINE     74   13 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:45:41
0          PHASE 4 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS:
             PRINT PRINTS THE REQUIRED REPORTS. PRINT , TITLE , CALL , TABLE ALL
               ARE HANDLED HERE.
00705/005   REPORT GENERATOR         SUBS            SA  O          S0684 UNSP FSNAME=RG.SUBS.S                                     
            D4.2T1  681  REPORT_GENERATOR.SUBS.SA.005       1 LINE     72    4 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:47:44
0          EXTERNAL SUBROUTINES TO HANDLE OVERFLOW AND CAPITALIZATION FOR PRINT.
           MADE EXTERNAL BECAUSE OF BASE REGISTER PROBLEMS AND USE OF REGISTERS.
00705/006   REPORT GENERATOR         SUBROUTINES     SA  O          S0684 UNSP FSNAME=RG.SUBROUTINES.S                              
            D4.2T1  682  REPORT_GENERATOR.SUBROUTI.SA.006   1 LINE     98   20 PAGE UBC  STEVENS   UNSP      OCT. 01, 1978  16:47:15
0          SUBROUTINES USED BY RG - ALL CALLED BY " BALR LINK,LINK "
             SCAN    -  GET ANOTHER FIELD
             SSCAN   -   "     "      "   ( SPECIAL FIELD)
             GNUMBER -  GET A NUMERIC FIELD
             GFIELD  -  GET A FIELD
             FNAME   -  INSURE FIELD IS A LEGAL FIELD
             NUM     -  CONVERT A FIELD TO NUMERIC
00705/007   REPORT GENERATOR         DATA            SA  O          S0684 UNSP FSNAME=RG.DATA.S                                     
            D4.2T1  683  REPORT_GENERATOR.DATA.SA.007       1 LINE     84    1 PAGE UBC  STEVENS   UNSP      OCT. 01, 1978  16:43:25
0          GENERATES THE PSECT AS A CSECT TO DEFINE ALL REQUIRED CONSTANTS.
           COPIES COPYSEC (705/13), AS DO ALL OTHER RG SOURCE ROUTINES.
0          Referenced by comments of: 705/13 
00705/008   REPORT GENERATOR         MACLIB          SM  O          S0684 UNSP FSNAME=RG.MACLIB                                     
            D4.2T1  684  REPORT_GENERATOR.MACLIB.SM.008     1 LINE     72    7 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:44:46
0          MACRO LIBRARY USED BY ALL RG SOURCE ROUTINES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00705/009   REPORT GENERATOR         INTERNAL DOC    WF             S0684 UNSP FSNAME=RG.INTERNAL.F                                 
            D4.2T1  685  REPORT_GENERATOR.INTERNAL.WF.009   1 LINE     81    9 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:48:38
0          USES UBC FORMAT AND JON:MACLIB (308/19). PRINT FILE (705/10) IS INCLUDED FOR
           INSTALLATIONS WHICH DON'T HAVE THESE.
00705/010   REPORT GENERATOR         INTERNAL DOC    PF             S0684 UNSP FSNAME=RG.INTERNAL                                   
            D4.2T1  686  REPORT_GENERATOR.INTERNAL.PF.010   1 LINE     69   10 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:50:22
0          Referenced by comments of: 705/9 
00705/011   REPORT GENERATOR         OBJECT          OC  O          UNSP:RG                                                         
            D4.2T1  687  REPORT_GENERATOR.OBJECT.OC.011     1 LINE   7102   11 PAGE UBC  COCKLE    UNSP      APR. 02, 1979  00:51:26
                         UNSP:RG              
00705/012   REPORT GENERATOR         OUTPUT          SA  O          S0684 UNSP FSNAME=RG.OUTPUT.S                                   
            D4.2T1  688  REPORT_GENERATOR.OUTPUT.SA.012     1 LINE     78    5 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:45:15
0          ROUTINE TO OUTPUT ERROR COMMENTS (MARK) AND OUTPUT FORMATTING
           TO SPRINT AND ECHOING OF INPUT LINES IF REQUESTED.
            
           MUST BE ASSEMBLED WITH *ASMG (066).
00705/013   REPORT GENERATOR         COPYSEC         SA  O          S0684 UNSP FSNAME=RG.COPYSEC.S                                  
            D4.2T1  689  REPORT_GENERATOR.COPYSEC.SA.013    1 LINE     72   10 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:43:07
0          COPY SECTION COPIED BY ALL RG SOURCE PROGRAMS. ALL BUT DATA (705/7) ASSEMBLE
           IT AS A DSECT.
0          Referenced by comments of: 705/1, 705/7 
00705/014   REPORT GENERATOR         TEST PROGRAMS   C              S0684 UNSP FSNAME=RG.TEST_PROGRAMS                              
            D4.2T1  690  REPORT_GENERATOR.TEST_PRO.C.014    1 LINE    255   28 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  17:25:22
0          A SOURCE FILE TO TEST RG WITH A SERIES OF TEST PROGRAMS.
00705/015   REPORT GENERATOR         USER WRITEUP    WF             S0684 UNSP FSNAME=RG.WRITEUP.F                                  
            D4.2T1  691  REPORT_GENERATOR.USER_WRI.WF.015   1 LINE    101   43 PAGE UBC  COCKLE    UNSP      OCT. 01, 1978  16:49:14
0          USES UBC FORMAT AND JON:MACLIB (308/19).  FOR INSTALLATIONS WHICH DO NOT HAVE THESE, 
           THE PRINT FILE (705/16) IS INCLUDED.
00705/016   REPORT GENERATOR         USER WRITEUP    PF             UNSP:RG.W                                                       
            D4.2T1  692  REPORT_GENERATOR.USER_WRI.PF.016   1 LINE     77   53 PAGE UBC  COCKLE    UNSP      APR. 02, 1979  00:51:37
                         UNSP:RG.W            
0          Referenced by comments of: 705/15 
00705/017   REPORT GENERATOR         UM EXAMPLE      C              UNSP:RG.EXAMPLE                                                 
            D4.2T1  693  REPORT_GENERATOR.UM_EXAMP.C.017    1 LINE    128    3 PAGE UBC  COCKLE    UNSP      APR. 02, 1979  00:51:42
                         UNSP:RG.EXAMPLE      
0          A FILE THAT CAN BE $SOURCED TO TO PRODUCE A SAMPLE RG RUN.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00706/001   SIMSCRIPT                SIM25 INSTALL   WF             S0684 UNSP FSNAME=S25INSTALL.F                                  
            D4.2T1  694  SIMSCRIPT.SIM25_INSTALL.WF.001     1 LINE     71    3 PAGE UM   UNSP                JAN. 04, 1979  05:39:45
0          INSTALLATION INSTRUCTIONS FOR THE CACI INC. SIMSCRIPT II.5 (RELEASE 8G) COMPILER
           AS MODIFIED FOR USE IN MTS.  DUE TO RESTRICTIONS, THIS COMPILER CANNOT BE
           DISTRIBUTED, BUT SHOULD BE AVAILABLE "FREE" TO UNIVERSITIES ONCE AN AGREEMENT
           WITH CACI INC. IS SIGNED.  THIS COMILER IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE
           AT UM.
00706/002   SIMSCRIPT                SIM25 SPCOMP    SA  G          S0684 UNSP FSNAME=S25SPCOMP.S                                   
            D4.2T1  695  SIMSCRIPT.SIM25_SPCOMP.SA.002      1 LINE     80   12 PAGE UM   UNSP                JAN. 04, 1979  05:19:17
0          MTS REPLACEMENTS FOR THE STANDARD CACI COMPILER ROUTINES ROPN AND RSET$R.
           ASSEMBLE WITH PAR=BATCH.
00706/003   SIMSCRIPT                SIM25 SPCOMP    OC  G          S0684 UNSP FSNAME=S25SPCOMP                                     
            D4.2T1  696  SIMSCRIPT.SIM25_SPCOMP.OC.003      1 LINE     80    5 PAGE UM   UNSP                JAN. 04, 1979  05:19:20
00706/004   SIMSCRIPT                SIM25 SPLIB     SA  G          S0684 UNSP FSNAME=S25SPLIB.S                                    
            D4.2T1  697  SIMSCRIPT.SIM25_SPLIB.SA.004       1 LINE     80   40 PAGE UM   UNSP                JAN. 04, 1979  05:19:22
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          S0684 UNSP FSNAME=S25SPLIB                                      
            D4.2T1  698  SIMSCRIPT.SIM25_SPLIB.OC.005       1 LINE     80    9 PAGE UM   UNSP                JAN. 04, 1979  05:20:34
00706/006   SIMSCRIPT                SIM25 INTERFAC  SA  G  S25I    S0684 UNSP FSNAME=S25INTER.S                                    
            D4.2T1  699  SIMSCRIPT.SIM25_INTERFAC.SA.006    1 LINE     80   10 PAGE UM   UNSP                JAN. 04, 1979  05:20:57
0          THE MTS TO OS INTERFACE ROUTINES THAT ARE ADDED TO THE STANDARD CACI RUN-TIME
           LIBRARY AND COMPILER ROUTINES.  ASSEMBLE WITH PAR=BATCH.  COPIES *GDINFODSECT 
           (594).
00706/007   SIMSCRIPT                SIM25 INTERFAC  OC  G          S0684 UNSP FSNAME=S25INTER                                      
            D4.2T1  700  SIMSCRIPT.SIM25_INTERFAC.OC.007    1 LINE     80    6 PAGE UM   UNSP                JAN. 04, 1979  05:21:07
00706/008   SIMSCRIPT                SIM25 MAC       SM  G          S0684 UNSP FSNAME=S25MAC                                        
            D4.2T1  701  SIMSCRIPT.SIM25_MAC.SM.008         1 LINE     80   12 PAGE UM   UNSP                JAN. 04, 1979  05:21:19
00706/009   SIMSCRIPT                SIM25 CACI COM  OC  G        # S0684 UNSP FSNAME=S25CACICOMP                                   
                                                                                    UM   UNSP                                       
0          OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G COMPILER AS
           DISTRIBUTED BY CACI.
00706/010   SIMSCRIPT                SIM25 COMP      OE  G        # UNSP:SIM25                                                      
                                                                                    UM   UNSP                                       
0          LINKEDITED OBJECT FOR THE MTS VERSION OF THE RELEASE 8G COMPILER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00706/011   SIMSCRIPT                SIM25 MAP       P   G        # S0684 UNSP FSNAME=S25MAP                                        
                                                                                    UM   UNSP                                       
0          MAP OUTPUT FROM *LINKEDIT FOR 706/10.
00706/012   SIMSCRIPT                SIM25 CACI LIB  OC  G        # S0684 UNSP FSNAME=S25CACILIB                                    
                                                                                    UM   UNSP                                       
0          OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G RUN-TIME LIBRARY
           AS DISTRIBUTED BY CACI.
00706/013   SIMSCRIPT                SIM25 LIB       OL  G        # UNSP:SIM25LIB                                                   
                                                                                    UM   UNSP                                       
0          MTS VERSION OF THE RELEASE 8G RUN-TIME LIBRARY.
00706/014   SIMSCRIPT                SIM25 ERRMSGS   M              UNSP:SIM25ERR                                                   
            D4.2T1  702  SIMSCRIPT.SIM25_ERRMSGS.M.014      1 LINE     79    4 PAGE UM   UNSP                APR. 02, 1979  00:52:01
                         UNSP:SIM25ERR        
0          ERROR MESSAGE FILE FOR RELEASE 8G.
00706/015   SIMSCRIPT                SIM25 WRITEUP   WF             S0684 UNSP FSNAME=SIM25.F                                       
            D4.2T1  703  SIMSCRIPT.SIM25_WRITEUP.WF.015     1 LINE     69    3 PAGE UM   UNSP                JAN. 04, 1979  06:08:16
00706/016   SIMSCRIPT                SIM25 TEST 1    S   G          S0684 UNSP FSNAME=S2TEST1                                       
            D4.2T1  704  SIMSCRIPT.SIM25_TEST_1.S.016       1 LINE     78    1 PAGE UM   UNSP                JAN. 09, 1979  12:28:22
0          FIRST OF THREE SIMSCRIPT SOURCE TEST PROGRAMS. 
00706/017   SIMSCRIPT                SIM25 TEST 2    S   G          S0684 UNSP FSNAME=S2TEST2                                       
            D4.2T1  705  SIMSCRIPT.SIM25_TEST_2.S.017       1 LINE     68    1 PAGE UM   UNSP                JAN. 09, 1979  12:28:28
00706/018   SIMSCRIPT                SIM25 TEST 3    S   G          S0684 UNSP FSNAME=S2TEST3                                       
            D4.2T1  706  SIMSCRIPT.SIM25_TEST_3.S.018       1 LINE     68    1 PAGE UM   UNSP                JAN. 09, 1979  12:28:33
0          COMPILE WITH PAR=NEWIF.
00707/001   RSCAN                                    SA  O          W030:RSCAN                                                      
            D4.2T1  707  RSCAN..SA.001                      1 LINE     68   12 PAGE UM   LIFT                APR. 02, 1979  00:52:08
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/18). 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                           
            D4T3    203  RSCAN.LISTCMD_SUBR.SA.002          1 LINE     80    4 PAGE UM   LIFT                JULY 28, 1977  23:47:35
0          SUBROUTINE TO LIST CMDSTAT TYPE 1 (MTS COMMAND) RECORDS.
           COPIES COPY:CMDAREADSECT (531/18).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 707/3 
00707/003   RSCAN                                    OC  O          W030:RSCANX                                                     
            D4.2T1  708  RSCAN..OC.003                      1 LINE     80   10 PAGE UM   LIFT                APR. 02, 1979  00:52:11
0          OBJECT FROM RSCAN (707/1), LISTCMD (707/2), LISTSTAT (071), AND JVCT (674).
           RUN WITH PROT=OFF.
00707/004   RSCAN                    WRITEUP         WF             S0811 REBATE 'REBATES' FSNAME=RSCAN.WF                          
            D4T3    205  RSCAN.WRITEUP.WF.004               1 LINE     94    3 PAGE UM   LIFT                JAN. 13, 1977  16:33:14
0          PRELIMINARY WRITEUP DESCRIBING THE USE OF RSCAN.
00708/001   CHARGE SUBR                              SA  G  CHRG    S0027 DISTRB FSNAME=CHARGE                                      
            D4T3    206  CHARGE_SUBR..SA.001                1 LINE     80    7 PAGE UM   ENGLE               JAN. 25, 1977  15:31:23
0          SUBROUTINE TO COMPUTE THE CHARGE FOR SPECIFIED QUANTITIES OF RESOURCES USING THE
           CURRENT RATES.  CHARGERN IS A PRIVATE ENTRY POINT WHICH ALLOWS A SPECIFIC RATE
           NUMBER TO BE SPECIFIED.  COPIES GRDEF (104/70) AND COPY:RATEVEC (651/2).
00708/002   CHARGE SUBR                              OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   ENGLE                                      
00709/001   READBFR SUBR                             SA  G          S0565 D4T3 VLO FSNAME=READBFR_SUBR..SA.001(1)                208
            D4T3    208  READBFR_SUBR..SA.001               1 LINE     80    3 PAGE UM   MTA                 JULY 28, 1977  23:52:05
0          SUBROUTINE TO PROVIDE "LOCATE MODE" INPUT WHEN INPUT RECORD LENGTH IS UNKNOWN.
           USES GDINFO AND @NOTIFY TO ALLOCATE INPUT BUFFER.  CALLED BY SELECTCMD (531/31).
           COPIES *GDINFODSECT (594).
0          Referenced by comments of: 531/31, 621/4 
00709/002   READBFR SUBR                             OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00710       SQUASH                                                # (OBSOLETE - SEE COMP. 721 FOR OPTIMIZE SUBR)                    
            D4T3    209  SQUASH..SA.001                     1 LINE     80    6 PAGE UM                       JULY 28, 1977  23:52:07
0          Referenced by comments of: 721/11 
00711/001A  COMP CNTR PUBLICATIONS   MEMO 404        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M404LIST                          
            4.3T1   832  COMP_CNTR_PUBLICATIONS.ME.WF.001   1 LINE     97    5 PAGE UM   P.O.                OCT. 09, 1979  08:49:49
0          THIS IS COMPUTING CENTER MEMO 404 -- "LIST AND SUBJECT INDEX OF CCMEMOS" (AUGUST 1979).
           DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6).
00711/002A  COMP CNTR PUBLICATIONS   MEMO 405        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M405CCPUB                         
            4.3T1   833  COMP_CNTR_PUBLICATIONS.ME.WF.002   1 LINE    132    6 PAGE UM   P.O.                OCT. 09, 1979  08:50:02
0          THIS IS COMPUTING CENTER MEMO 405 -- "COMPUTING CENTER PUBLICATIONS" (AUGUST 1979).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00711/003   COMP CNTR PUBLICATIONS   INDEX FUNC      SA  O          S0791 FMTJNK 'FORMAT' FSNAME=INDEX                              
            D4T3    216  COMP_CNTR_PUBLICATIONS.IN.SA.003   1 LINE     80   13 PAGE UM   LIFT                AUG. 14, 1977  22:43:51
0          *FORMAT INDEX AND INDEXOUT FUNCTIONS USED IN UM PUBLICATIONS.  THESE ARE CALLED
           BY THE IND AND INDOUT FUNCTIONS (711/4) TO CONSTRUCT AN INDEX.  THE CALLING
           SEQUENCE IS DESCRIBED IN THE SOURCE.
0          Referenced by comments of: 711/4 
00711/004   COMP CNTR PUBLICATIONS   IND FUNC        SG  O          S0791 FMTJNK 'FORMAT' FSNAME=IND                                
            D4T3    217  COMP_CNTR_PUBLICATIONS.IN.SG.004   1 LINE     78    2 PAGE UM   LIFT                MAY  31, 1977  12:48:48
0          *FORMAT IND AND INDOUT "USER-DEFINED FUNCTIONS" USED IN UM PUBLICATIONS TO
           CONSTRUCT AN INDEX.  THESE DIFFER FROM THE *FORMAT INDEX FUNCTION IN THAT PAGE
           NUMBERS ARE EXPLICITLY GIVEN AND TREATED AS CHARACTER STRINGS, AND ENTRIES ARE
           ALPHABETIZED WITHOUT REGARD TO UPPER OR LOWER CASE.  THESE FUNCTIONS CALL INDEX
           AND INDEXOUT (711/3).
0          Referenced by comments of: 711/3 
00711/005   COMP CNTR PUBLICATIONS   NRIGHT FUNC     SF  G          S0791 FMTJNK 'FORMAT' FSNAME=NRIGHT                             
            D4T3    218  COMP_CNTR_PUBLICATIONS.NR.SF.005   1 LINE     80    1 PAGE UM   LIFT                MAY  16, 1977  12:33:05
0          *FORMAT NRIGHT "USER-DEFINED FUNCTION" USED IN UM PUBLICATIONS TO GO TO A RIGHT
           HAND PAGE, LEAVING A BLANK PAGE IF NECESSARY.
00711/006   COMP CNTR PUBLICATIONS   FUNC LIB        OL  O          ETC:FORMFUN                                                     
            D4T3    219  COMP_CNTR_PUBLICATIONS.FU.OL.006   1 LINE   1762    3 PAGE UM   LIFT                AUG. 14, 1977  22:43:55
                         ETC.:FORMFUN         
0          OBJECT LIBRARY OF *FORMAT "USER-DEFINED FUNCTIONS" 711/3, 711/4, AND 711/5.
0          Referenced by comments of: 461/15, 711/1, 714/1 
00711/007C  COMP CNTR PUBLICATIONS   TXTF MACROS     WX             W278:MEMO.LAYOUT                                                
            4.3T1   834  COMP_CNTR_PUBLICATIONS.TX.WX.007   1 LINE     92    1 PAGE UM   LIFT                APR. 06, 1980  12:26:44
00712/001A *RESTORE                  MAIN PGM        SA  G  OLRS    RSTR:RESTORE(1000)                                              
            4.3T1   835  RESTORE.MAIN_PGM.SA.001            1 LINE     80   24 PAGE UM   HELFFRICH           APR. 06, 1980  12:26:45
                         RSTR:RESTORE         
0          USER RUNNABLE PROGRAM TO RESTORE FILES SAVED BY THE SYSTEM ONLINE FILE SAVE
           PROGRAM (67).  CALLS AUTOREST (712/2), AND RSTFMT2 (092/3).  ASSEMBLE USING
           THE FILESAVE MACROS (67/29).  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.
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16):
            
           THIS VERSION FIXES PROBLEMS CAUSED BY RESTORATION TO FILES LOCKED BY OTHER
           TASKS, AND ELIMINATES REPORTS OF "ERROR DESTROYING TEMPORARY FILE" ON
           SIGNOFF.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 67/1, 67/17, 92/3, 712/2 
00712/002A *RESTORE                  AUTOREST SUBR   SA  G  ARES    RSTR:AUTOREST(1000)                                             
            4.3T1   836  RESTORE.AUTOREST_SUBR.SA.002       1 LINE     80   11 PAGE UM   HELFFRICH           APR. 06, 1980  12:27:07
                         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 (67/29).
0          Referenced by comments of: 712/1 
00712/003A *RESTORE                  OBJECT          OE  G          *RESTORE                                                        
            4.3T1   837  RESTORE.OBJECT.OE.003              1 LINE   7308    7 PAGE UM   HELFFRICH           APR. 06, 1980  12:27:10
                         RSTR:*RESTORE        
0          OBJECT FOR 712/1, 712/2, AND RSTFMT2 (092/3).  NOTE: THE PKEY FOR THIS FILE
           MUST BE *RESTORE.
00712/004  *RESTORE                  *RES            C              *RES                                                            
            D4.2T1  714  RESTORE.*RES.C.004                 1 LINE     64    1 PAGE UM   HELFFRICH           APR. 02, 1979  00:53:27
                         RSTR:*RES            
0          COMMAND FILE TO RUN *RESTORE FOR THE OPERATORS (712/5).  INVOKED BY ENTERING
           "MTS *RES" ON THE OPERATOR'S CONSOLE.
00713       UPTIME                                                # (SEE COMP 540)                                                  
                                                                                    UM                                              
00714/001   INTRO GUIDE: FORMAT                      WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FORMAT.SOU                
            D4T3    231  INTRO_GUIDE:_FORMAT..WF.001        1 LINE    158   34 PAGE UM   MANUAL              JUNE 22, 1977  13:47:51
0          FORMAT SOURCE FOR "INTRODUCTION TO FORMAT" (JUNE 1977), THE SECOND IN A SERIES
           OF MTS INTRODUCTORY GUIDES.  REQUIRES FORMAT MACROS (714/2) AND DYNAMICALLY
           LOADS THE NRIGHT FUNCTION FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6).
00714/002   INTRO GUIDE: FORMAT      MACROS          WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FMT.MACLIB                
            D4T3    232  INTRO_GUIDE:_FORMAT.MACRO.WF.002   1 LINE    110    6 PAGE UM   MANUAL              JULY 28, 1977  23:53:47
0          FORMAT MACROS REQUIRED BY 714/1.
0          Referenced by comments of: 714/1 
00714/003   INTRO GUIDE: FORMAT                      PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FORMAT.OUT                
            D4T3    233  INTRO_GUIDE:_FORMAT..PF.003        1 LINE    133   78 PAGE UM   MANUAL              JUNE 22, 1977  13:49:54
0          FORMAT PRINT FILE.
00715/001A  MERIT CC SUPPORT         360 EQUS        S   G          K1Y9:360EQUS                                                    
            4.3T1   838  MERIT_CC_SUPPORT.360_EQUS.S.001    1 LINE     84    3 PAGE UM   EADIE               APR. 06, 1980  12:27:13
0          --------------------------------------------------------------------
            This component is the source for the Merit computer network PDP-11 
            communications computer (CC) support, related utility programs and
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           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/002A  MERIT CC SUPPORT         MCS11COM        S   G          K1Y9:MCS11COM                                                   
            4.3T1   839  MERIT_CC_SUPPORT.MCS11COM.S.002    1 LINE    100    9 PAGE UM   EADIE               APR. 06, 1980  12:27:15
0          *11ASR source for the copy section for the Merit direct terminal 
           support (Hermes).
00715/003A  MERIT CC SUPPORT         LA EQUS         S   G          K1Y9:LAEQUS                                                     
            4.3T1   840  MERIT_CC_SUPPORT.LA_EQUS.S.003     1 LINE     83    4 PAGE UM   EADIE               APR. 06, 1980  12:27:18
0          *11ASR source for equs which define the hardware registers for the
           asynchronous line adapter (LA32).
00715/004A  MERIT CC SUPPORT         NIMBLK DSECT    S   G          K1Y9:NIMBLK                                                     
            4.3T1   841  MERIT_CC_SUPPORT.NIMBLK_D.S.004    1 LINE     83    2 PAGE UM   EADIE               APR. 06, 1980  12:27:20
0          *11ASR source for the DSECT for the terminal access socket (Hermes).
00715/005A  MERIT CC SUPPORT         CLI COPY SECT   S   G          K1Y9:CLISTUFF                                                   
            4.3T1   842  MERIT_CC_SUPPORT.CLI_COPY.S.005    1 LINE     71    1 PAGE UM   EADIE               APR. 06, 1980  12:27:23
0          *11ASR source for the DSECT and EQUS used by the command language
           interpreter (CLI).
00715/006A  MERIT CC SUPPORT         FORMAT EQUS     S   O          K1Y9:FORMATEQUS                                                 
            4.3T1   843  MERIT_CC_SUPPORT.FORMAT_E.S.006    1 LINE     83    3 PAGE UM   EADIE               APR. 06, 1980  12:27:26
0          *11ASR source for the EQUS for the output formatting routine (FMTXT).
00715/007A  MERIT CC SUPPORT         IVECTOR DSECT   S   G          K1Y9:IVECTOR                                                    
            4.3T1   844  MERIT_CC_SUPPORT.IVECTOR.S.007     1 LINE     99    2 PAGE UM   EADIE               APR. 06, 1980  12:27:28
0          *11ASR source for the host-to-network interface transfer vector.
00715/008A  MERIT CC SUPPORT         CCB DSECT       S   G          K1Y9:CCB                                                        
            4.3T1   845  MERIT_CC_SUPPORT.CCB_DSEC.S.008    1 LINE     83    1 PAGE UM   EADIE               APR. 06, 1980  12:27:31
0          *11ASR source for the clock control block (CCB).
00715/009A  MERIT CC SUPPORT         RQCB DSECT      S   G          K1Y9:RQCB                                                       
            4.3T1   846  MERIT_CC_SUPPORT.RQCB_DSE.S.009    1 LINE     77    1 PAGE UM   EADIE               APR. 06, 1980  12:27:33
0          *11ASR source for the record queue control block (RQCB).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00715/010A  MERIT CC SUPPORT         OPEN BCB DSECT  S   G          K1Y9:OPENBCB                                                    
            4.3T1   847  MERIT_CC_SUPPORT.OPEN_BCB.S.010    1 LINE     87    1 PAGE UM   EADIE               APR. 06, 1980  12:27:36
0          *11ASR source for the open buffer control block. Copies 715/11. 
00715/011A  MERIT CC SUPPORT         BCB DSECT       S   G          K1Y9:BCB                                                        
            4.3T1   848  MERIT_CC_SUPPORT.BCB_DSEC.S.011    1 LINE     89    1 PAGE UM   EADIE               APR. 06, 1980  12:27:39
0          *11ASR source for the buffer control block (BCB).
00715/012A  MERIT CC SUPPORT         SCB DSECT       S   G          K1Y9:SCB                                                        
            4.3T1   849  MERIT_CC_SUPPORT.SCB_DSEC.S.012    1 LINE     89    3 PAGE UM   EADIE               APR. 06, 1980  12:27:41
0          *11ASR source for the socket control block (SCB).
00715/013A  MERIT CC SUPPORT         TCB DSECT       S   G          K1Y9:TCB                                                        
            4.3T1   850  MERIT_CC_SUPPORT.TCB_DSEC.S.013    1 LINE     82    1 PAGE UM   EADIE               APR. 06, 1980  12:27:44
0          *11ASR source for the task control block (TCB).
00715/014A  MERIT CC SUPPORT         GLOBAL EQUS     S   G          K1Y9:EQUS                                                       
            4.3T1   851  MERIT_CC_SUPPORT.GLOBAL_E.S.014    1 LINE     83    4 PAGE UM   EADIE               APR. 06, 1980  12:27:47
0          *11ASR source for the global equs.
00715/015A  MERIT CC SUPPORT         MACROS          S   G          K1Y9:MACROS                                                     
            4.3T1   852  MERIT_CC_SUPPORT.MACROS.S.015      1 LINE     72    1 PAGE UM   EADIE               APR. 06, 1980  12:27:49
0          *11ASR source for the macros.
00715/016A  MERIT CC SUPPORT         SWITCHES EQUS   S   G          K1Y9:SWITCHES                                                   
            4.3T1   853  MERIT_CC_SUPPORT.SWITCHES.S.016    1 LINE     90    3 PAGE UM   EADIE               APR. 06, 1980  12:27:52
0          *11ASR source for the Merit record switch bit definitions.  This is 
           used only for documentation; it is not copied.
00715/017A  MERIT CC SUPPORT         CDC EQUS        S   G          K1Y9:CDCEQUS                                                    
            4.3T1   854  MERIT_CC_SUPPORT.CDC_EQUS.S.017    1 LINE     74    3 PAGE UM   EADIE               APR. 06, 1980  12:27:54
0          *11ASR source for the EQUS for the CDC hardware interface.
00715/018A  MERIT CC SUPPORT         VECTORS         S   G          K1Y9:VECTORS.S                                                  
            4.3T1   855  MERIT_CC_SUPPORT.VECTORS.S.018     1 LINE    102    8 PAGE UM   EADIE               APR. 06, 1980  12:27:57
0          *11ASR source for the low-core system vectors and parameters for the
           Merit PDP-11 operating system (MINOS).
00715/019A  MERIT CC SUPPORT         SYSTEM          S   G          K1Y9:SYSTEM.S                                                   
            4.3T1   856  MERIT_CC_SUPPORT.SYSTEM.S.019      1 LINE    120   55 PAGE UM   EADIE               APR. 06, 1980  12:28:00
0          *11ASR source for the basic MINOS subroutines.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00715/020A  MERIT CC SUPPORT         TAPE            S   G          K1Y9:TAPE.S                                                     
            4.3T1   857  MERIT_CC_SUPPORT.TAPE.S.020        1 LINE     92    4 PAGE UM   EADIE               APR. 06, 1980  12:28:09
0          *11ASR source for the paper tape and communications computer (CC)
           "host" support.
00715/021A  MERIT CC SUPPORT         TIMER           S   O          K1Y9:TIMER.S                                                    
            4.3T1   858  MERIT_CC_SUPPORT.TIMER.S.021       1 LINE     88    9 PAGE UM   EADIE               APR. 06, 1980  12:28:12
0          *11ASR source for the MINOS interval timer support routines.
00715/022A  MERIT CC SUPPORT         PARSER          S   G          K1Y9:PARSE.S                                                    
            4.3T1   859  MERIT_CC_SUPPORT.PARSER.S.022      1 LINE     90   16 PAGE UM   EADIE               APR. 06, 1980  12:28:14
0          *11ASR source for the MINOS CLI parser.
00715/023A  MERIT CC SUPPORT         COMMANDS        S   G          K1Y9:CMNDS.S                                                    
            4.3T1   860  MERIT_CC_SUPPORT.COMMANDS.S.023    1 LINE    117   33 PAGE UM   EADIE               APR. 06, 1980  12:28:17
0          *11ASR source for the MINOS command definitions and execution routines.
00715/024A  MERIT CC SUPPORT         NIM             S   G          K1Y9:NIM.S                                                      
            4.3T1   861  MERIT_CC_SUPPORT.NIM.S.024         1 LINE    137   30 PAGE UM   EADIE               APR. 06, 1980  12:28:22
0          *11ASR source for the task time routines for terminal support
           (NIM: network interface module).
00715/025A  MERIT CC SUPPORT         NIBBLE          S   G          K1Y9:NIBBLE.S                                                   
            4.3T1   862  MERIT_CC_SUPPORT.NIBBLE.S.025      1 LINE     77    9 PAGE UM   EADIE               APR. 06, 1980  12:28:28
0          *11ASR source for the nibble buffer management for terminal support.
00715/026A  MERIT CC SUPPORT         SSDST           S   G          K1Y9:SSDST.S                                                    
            4.3T1   863  MERIT_CC_SUPPORT.SSDST.S.026       1 LINE    103   14 PAGE UM   EADIE               APR. 06, 1980  12:28:30
0          *11ASR source for the start/stop (asynchronous) device support task 
           (ring sniffer and hang-up detector).
00715/027A  MERIT CC SUPPORT         DEVICES         S   G          K1Y9:DEVICES.S                                                  
            4.3T1   864  MERIT_CC_SUPPORT.DEVICES.S.027     1 LINE     84   52 PAGE UM   EADIE               APR. 06, 1980  12:28:33
0          *11ASR source for the interrupt routines for the terminal support.
00715/028A  MERIT CC SUPPORT         GETOUT          S   G          K1Y9:GETOUT.S                                                   
            4.3T1   865  MERIT_CC_SUPPORT.GETOUT.S.028      1 LINE     94    6 PAGE UM   EADIE               APR. 06, 1980  12:28:39
0          *11ASR source for the lower level terminal support routines.
00715/029A  MERIT CC SUPPORT         TABLE           S   G          K1Y9:TABLE.S                                                    
            4.3T1   866  MERIT_CC_SUPPORT.TABLE.S.029       1 LINE     91   21 PAGE UM   EADIE               APR. 06, 1980  12:28:41
0          *11ASR source for the translate table for 2741 support.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00715/030A  MERIT CC SUPPORT         VERSNO          S   G          K1Y9:VERSNO                                                     
            4.3T1   867  MERIT_CC_SUPPORT.VERSNO.S.030      1 LINE     55    1 PAGE UM   EADIE               APR. 06, 1980  12:28:46
0          *11ASR source for the code to generate the system version number.
00715/031A  MERIT CC SUPPORT         MTS RARE        S   B          K1Y9:MTSRARE.S                                                  
            4.3T1   868  MERIT_CC_SUPPORT.MTS_RARE.S.031    1 LINE     92   18 PAGE UM   EADIE               APR. 06, 1980  12:28:48
0          *11ASR source for the MTS-dependent host interface support.
00715/032A  MERIT CC SUPPORT         CDC RARE        S   G          K1Y9:CDCRARE.S                                                  
            4.3T1   869  MERIT_CC_SUPPORT.CDC_RARE.S.032    1 LINE    115   12 PAGE UM   EADIE               APR. 06, 1980  12:28:51
0          *11ASR source for the CDC-dependent host interface support.
00715/033C  MERIT CC SUPPORT         INP             S   G          K1Y9:INP.S                                                      
            4.3T1   870  MERIT_CC_SUPPORT.INP.S.033         1 LINE    103   27 PAGE UM   EADIE               APR. 06, 1980  12:28:53
0          *11ASR source for the Merit internodal protocol support.
00715/034C  MERIT CC SUPPORT         SDA             S   G          K1Y9:SDA.S                                                      
            4.3T1   871  MERIT_CC_SUPPORT.SDA.S.034         1 LINE     94   10 PAGE UM   EADIE               APR. 06, 1980  12:28:57
0          *11ASR source for the Merit Synchronous Data Adapter support.
00715/035C  MERIT CC SUPPORT         INPUCB          S   G          K1Y9:INPUCB.S                                                   
            4.3T1   872  MERIT_CC_SUPPORT.INPUCB.S.035      1 LINE     86    1 PAGE UM   EADIE               APR. 06, 1980  12:29:00
0          *11ASR source for the Merit internodal protocol unit control block.
00715/036A  MERIT CC SUPPORT         GENERATE        C   G          K1Y9:LINK.AN                                                    
            4.3T1   873  MERIT_CC_SUPPORT.GENERATE.C.036    1 LINE     61    1 PAGE UM   EADIE               APR. 06, 1980  12:29:02
0          MTS and *LINK11 commands to build a MINOS system for Ann Arbor node.
00715/037A  MERIT CC SUPPORT         MTS LOADDUMP    S   G          MNET:11LOAD(1000)                                               
            4.3T1   874  MERIT_CC_SUPPORT.MTS_LOAD.S.037    1 LINE     72   11 PAGE UM   EADIE               APR. 06, 1980  12:29:05
0          *11ASR source for the stand-alone program to dump and load the
           PDP-11 from MTS via the IBM/Amdahl channel interface.
00715/038A  MERIT CC SUPPORT         EVANS           SP  G          K1YZ:EVANS.S(1000,2999)                                         
            4.3T1   875  MERIT_CC_SUPPORT.EVANS.SP.038      1 LINE     73   16 PAGE UM   EADIE               APR. 06, 1980  12:29:09
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/39, 715/40 
00715/039A  MERIT CC SUPPORT         DMPRD           SA  G          K1YZ:EVANS.S(3000)                                              
            4.3T1   876  MERIT_CC_SUPPORT.DMPRD.SA.039      1 LINE     72    1 PAGE UM   EADIE               APR. 06, 1980  12:29:13
0          SUBROUTINE CALLED BY EVANS (715/38) TO READ A PDP-11 CORE IMAGE FROM
           AN FDNAME AND BUILD AN INTERNAL DATA STRUCTURE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00715/040A  MERIT CC SUPPORT         CRUNCH          C              MNET:CRUNCH                                                     
            4.3T1   877  MERIT_CC_SUPPORT.CRUNCH.C.040      1 LINE    176    1 PAGE UM   EADIE               APR. 06, 1980  12:29:16
0          MTS AND EVANS (715/38) COMMANDS TO CRUNCH A DUMP TAKEN USING 11LOAD (642/11).
00715/041A  MERIT CC SUPPORT         SDA EQUS        S   G          K1Y9:SDAEQUS                                                    
            4.3T1   878  MERIT_CC_SUPPORT.SDA_EQUS.S.041    1 LINE     74    3 PAGE UM   EADIE               APR. 06, 1980  12:29:18
00715/042A  MERIT CC SUPPORT         SDA DSECTS      S   G          K1Y9:SDADSECTS                                                  
            4.3T1   879  MERIT_CC_SUPPORT.SDA_DSEC.S.042    1 LINE     81    4 PAGE UM   EADIE               APR. 06, 1980  12:29:21
00715/043A  MERIT CC SUPPORT         DO/IF MACROS    SM  G          K1Y9:11SYSMAC                                                   
            4.3T1   880  MERIT_CC_SUPPORT.DO/IF_MA.SM.043   1 LINE     67    3 PAGE UM   EADIE               APR. 06, 1980  12:29:24
0          *11ASR MACROS WHICH PROVIDE SIMILAR FACILITIES TO THE "STRUCTURED PROGRAMMING
           MACROS" IN *SYSMAC.
00716       FILE SAVE - ONLINE                                    # (SEE COMP. 067)                                                 
                                                                                    UM                                              
0          Referenced by comments of: 67/1, 502/9 
00717/001   MTS VOLUME 7             MASTER          WT             S0562 MTSV7 'MTS MANUALS' POSN=NEWM2.V7                         
            D4.2T1  722  MTS_VOLUME_7.MASTER.WT.001         1 SEQ     132  172 PAGE UM   MANUAL              APR. 02, 1979  00:53:56
0          TEXT/360 MASTER FOR VOLUME 7 "PL/I IN MTS" OF THE UM MTS MANUALS (JULY 1977,
           UPDATED FEBRUARY 1979).
            
           EDITOR:  RICHARD A. SALISBURY
00717/002   MTS VOLUME 7             PRINT           PT             S0562 MTSV7 'MTS MANUALS' POSN=PRINT2.V7                        
            D4.2T1  723  MTS_VOLUME_7.PRINT.PT.002          1 SEQ     132  300 PAGE UM   MANUAL              APR. 02, 1979  00:54:04
0          TEXT/360 PRINT FILE.
00717/003   MTS VOLUME 7             INDEX SOURCE    D              S0562 MTSV7 'MTS MANUALS' POSN=V7INDEXSOU.2                     
            D4.2T1  724  MTS_VOLUME_7.INDEX_SOURCE.D.003    1 SEQ      77    4 PAGE UM   MANUAL              APR. 02, 1979  00:54:08
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 7.
00717/004   MTS VOLUME 7             UPDATE 1        PT             W073:TNLV7.FEB79                                                
            D4.2T1  725  MTS_VOLUME_7.UPDATE_1.PT.004       1 LINE    106  106 PAGE UM   MANUAL              APR. 02, 1979  00:54:09
0          THIS IS COMPUTING CENTER MEMO 397 -- "UPDATE 1 TO MTS VOLUME 7," 
           (FEBRUARY 1979).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
00718/001   TURNAROUND                               SA  O          S0938 FSAVE2 VLO FSNAME=TURNAROUND                              
            D4T3    294  TURNAROUND..SA.001                 1 LINE     80   13 PAGE UM   MTA                 JULY 28, 1977  23:57:58
0          PROGRAM TO PRINT HISTOGRAMS OF BATCH TURNAROUND TIMES FROM CMDSTAT DATA.
           CONTAINS THE HASP TABLES WHICH ARE USED TO COMPUTE JOB PRIORITIES FROM TIME
           ESTIMATES AND PAGES PRINTED.  THESE TABLES MAY NEED TO BE CHANGED SO AS TO
           AGREE WITH THE HASP TABLES USED AT EACH INSTALLATION.  THE PROGRAM ALSO GIVES
           SPECIAL TREATMENT TO HASP REMOTE 18 (NUBS AT UM).  COPIES COPY:CMDAREADSECT
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          (531/18).
00718/002   TURNAROUND                               OC  O          MTA:TURNAROUND(1000)                                            
            D4T3    295  TURNAROUND..OC.002                 1 LINE     80    4 PAGE UM   MTA                 JULY 28, 1977  23:57:59
0          HAS A "$CONTINUE WITH MTA:READBFR(1000)+*ANALYSIS(-600,-401) RETURN" CARD WHICH
           REFERS TO COMPS 709 AND 140/7.
00719/001   IEBUPDTE SIMULATOR                       SA  G          WATF:IEBUPDTE(1,999)                                            
            D4T3    296  IEBUPDTE_SIMULATOR..SA.001         1 LINE     80   16 PAGE UM   MTA                 JULY 28, 1977  23:58:01
0          PROGRAM TO APPLY UPDATES INTENDED FOR THE OS IEBUPDTE PROGRAM.  UNIT 0 MUST BE
           ASSIGNED TO A LABELED INPUT TAPE, UNIT 1 TO A LABELED OUTPUT TAPE, BOTH OF WHICH
           MUST BE FORMAT FB WITH A LRECL OF 80.  THE PROGRAM USES THE INPUT TAPE DSNAMES
           AS MODULE NAMES.  CONTROL CARDS ARE READ FROM SCARDS; A RECORD OF WHAT WAS UPDATED
           IN PRODUCED ON SPRINT.  ON ANY ERROR, THE PROGRAM PRINTS THE INPUT, OLD MASTER
           POSITION, AND NEW MASTER POSITION ON SERCOM AND THEN CALLS MTS.  IF RESTARTED,
           IT ATTEMPTS TO IGNORE THE ERROR AND CONTINUE PROCESSING.
            
           FOR INPUT (FROM SCARDS), IF COLUMNS 1 AND 2 ARE NOT "./" THEN THE INPUT RECORD
           IS A DATA CARDS AND IS ADDED TO THE TAPE ON UNIT 1 IN SEQUENCE USING COLUMNS
           73-80.  IF COLUMNS 1 AND 2 ARE "./" THEN THE INPUT RECORD IS A CONTROL CARD
           AS FOLLOWS:
            
           ./ ADD NAME=X
              ADDS A NEW MODULE AFTER THE CURRENT ONE ON UNIT 1.
           ./ CHANGE NAME=X
              UPDATES X FROM UNIT 0 TO UNIT 1 COPYING ALL MODULES BEFORE IT.
           ./ REPL NAME=X
              REPLACE X.  POSITION UNIT 0 AFTER IT, COPYING ALL MODULES BEFORE IT.
           ./ DELETE SEQ1=S1 SEQ2=S2
              S1 AND S2 MUST BE ALL NUMERIC.  THE SEQ2 PARAMETER IS OPTIONAL.
           ./ ENDUP
00719/002   IEBUPDTE SIMULATOR                       OC  G          WATF:IEBUPDTE(1000)                                             
            D4T3    297  IEBUPDTE_SIMULATOR..OC.002         1 LINE     80    5 PAGE UM   MTA                 JULY 28, 1977  23:58:03
00720/001   LKEDCONV                                 SA  O          S0565 D4T3 VLO FSNAME=LKEDCONV..SA.001(1)                    298
            D4T3    298  LKEDCONV..SA.001                   1 LINE     80   60 PAGE SFU  BENET     MTA       JULY 28, 1977  23:58:06
0          A LARGE PROGRAM TO AID IN CONVERTING OS/VS OBJECT LIBRARIES (EITHER FROM *UNLINKER
           OR AS OS LINK EDITOR INPUT) FOR USE IN MTS.  COMMENTS IN THE SOURCE DESCRIBE HOW
           TO USE IT.
00720/002   LKEDCONV                                 OC  O          S0565 D4T3 VLO FSNAME=LKEDCONV..OC.002(1)                    299
            D4T3    299  LKEDCONV..OC.002                   1 LINE     80   12 PAGE SFU  BENET     MTA       JULY 28, 1977  23:58:18
00721/001A *OBJUTIL                  MAIN            SA  G          W067:OBJUTIL.S                                                  
            4.3T1   881  OBJUTIL.MAIN.SA.001                1 LINE     82   22 PAGE UM   SHERRY              APR. 06, 1980  12:29:26
0          OBJECT FILE EDITOR MAIN PROGRAM.  CALLS THE EDITOR EST SUBROUTINE (648/6).
           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/13, 721/14, AND 721/15) AND
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          *SYSMAC.  USES THE MSG ROUTINES (1023/1).  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.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           -----------------------------------------------------------------------------
            
           -----------------------------------------------------------------------------
           THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2C):
            
           THIS VERSION OF THE OBJECT FILE EDITOR IS A SUBSTANTIAL REORGANIZATION OF
           THE PROGRAM TO CONFORM TO THE "STANDARD" CODING CONVENTIONS (ALTHOUGH THE
           RESOURCE MANAGER MACROS ARE NOT USED, YET).  THE MAIN PROGRAM WAS DIVIDED
           INTO TEN SEPARATE ASSEMBLIES.
            
           BESIDES FIXING SEVERAL BUGS, THIS VERSION HAS A COUPLE OF NEW FEATURES, VIZ.,
             1) A NEW COMMAND: LIST REFERENCES <FOR> SYMBOL<,SYMBOL> ...
                WHICH LISTS THE NAMES OF ALL OBJECT MODULES THAT CONTAIN SOME
                SORT OF REFERENCE TO THE SPECIFIED SYMBOL(S).  THIS IS LIKE THE
                SECOND PART OF AN XREF COMMAND BUT JUST FOR A SPECIFIED SYMBOL.
             2) IT IS NOW POSSIBLE TO INCLUDE $CONTINUE WITH RECORDS FROM AN
                EXTERNAL FILE, E. G., TO ADD A LIBRARY REFERENCE FOR A PL/1
                PROGRAM:
                          ADD *SOURCE*@-IC
                          $CONTINUE WITH *PL1LIB
                THIS $CW RECORD WILL BE CALLED "ENDJUNK".  IF IT HAS A "RETURN"
                CLAUSE THEN IT WILL BE NAMED "<OM#N>" (WHERE "N" IS SOME UNIQUE
                NUMBER) ALA *LINKEDIT (297).  OBJUTIL NO LONGER READS @IC, SO
                YOU CAN SPECIFY AN FDNAME MODIFIER OR $SET IC=OFF.
            
           SEE 721/22 FOR A LIST OF ALL CHANGES.
           *****************************************************************************
0          Referenced by comments of: 389/1, 721/13 
00721/002A *OBJUTIL                  COMMANDS        SA  G          W067:OBJU.CMD.S                                                 
            4.3T1   882  OBJUTIL.COMMANDS.SA.002            1 LINE     84   39 PAGE UM   SHERRY              APR. 06, 1980  12:29:31
0          COMMAND PROCESSOR ROUTINES.  NEGATIVE LINE NUMBER RANGE CONTAINS $RUN COMMAND
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), 
           THE MSG ROUTINES (1023/1), *GDINFODSECT (594), AND *SYSMAC.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00721/003A *OBJUTIL                  PARSE           SA  G          W067:OBJU.PARSE.S                                               
            4.3T1   883  OBJUTIL.PARSE.SA.003               1 LINE     82   10 PAGE UM   SHERRY              APR. 06, 1980  12:29:36
0          ROUTINES FOR PARSING COMMAND LINES.  NEGATIVE LINE NUMBER RANGE CONTAINS
           COMMANDS TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/13, 721/14, AND
           721/15), THE MSG ROUTINES (1023/1), *GDINFODSECT (594), AND *SYSMAC.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
00721/004A *OBJUTIL                  PATCH           SA  G          W067:OBJU.PATCH.S                                               
            4.3T1   884  OBJUTIL.PATCH.SA.004               1 LINE     72    4 PAGE UM   SHERRY              APR. 06, 1980  12:29:40
0          ROUTINES TO GENERATE REP CARDS. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE 
           MSG ROUTINES (1023/1), AND *SYSMAC.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
00721/005A *OBJUTIL                  PRINTER         SA  G          W067:OBJU.PRINT.S                                               
            4.3T1   885  OBJUTIL.PRINTER.SA.005             1 LINE     68    6 PAGE UM   SHERRY              APR. 06, 1980  12:29:42
0          ROUTINES TO FORMAT AND PRINT OUTPUT LINES.  NEGATIVE LINE NUMBER RANGE
           CONTAINS COMMANDS TO ASSEMBLE IT.  USES THE OBJUTIL MACRO LIBRARIES (721/13,
           721/14, AND 721/15), THE MSG ROUTINES (1023/1), AND *SYSMAC.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
00721/006A *OBJUTIL                  READSUBR        SA  G          W067:OBJU.READ.S                                                
            4.3T1   886  OBJUTIL.READSUBR.SA.006            1 LINE     83   22 PAGE UM   SHERRY              APR. 06, 1980  12:29:44
0          ROUTINES THAT READ OBJECT FILES.  NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE
           MSG ROUTINES (1023/1), *GDINFODSECT (594), AND *SYSMAC.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00721/007A *OBJUTIL                  STORAGE         SA  G          W067:OBJU.STOR.S                                                
            4.3T1   887  OBJUTIL.STORAGE.SA.007             1 LINE     72    5 PAGE UM   SHERRY              APR. 06, 1980  12:29:49
0          STORAGE ALLOCATION ROUTINES.  NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE 
           MSG ROUTINES (1023/1), AND *SYSMAC.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
00721/008A *OBJUTIL                  SYMTABLE        SA  G          W067:OBJU.SYMT.S                                                
            4.3T1   888  OBJUTIL.SYMTABLE.SA.008            1 LINE     72    6 PAGE UM   SHERRY              APR. 06, 1980  12:29:52
0          SYMBOL TABLE MANAGEMENT ROUTINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE
           MSG ROUTINES (1023/1), AND *SYSMAC.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
00721/009A *OBJUTIL                  WRITING         SA  G          W067:OBJU.WRIT.S                                                
            4.3T1   889  OBJUTIL.WRITING.SA.009             1 LINE     83   18 PAGE UM   SHERRY              APR. 06, 1980  12:29:54
0          ROUTINES TO WRITE OBJECT FILES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE IT.  USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15),
           COPY SECTION *GDINFODSECT (594),  THE MSG ROUTINES (1023/1), AND *SYSMAC.
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
00721/010  *OBJUTIL                  IOCVT SUBR      SA  G  IOC     W067:OBJU.IOCVT.S                                               
            D4.1T1  534  OBJUTIL.IOCVT_SUBR.SA.002          1 LINE     80   27 PAGE UM   SHERRY              MAY  13, 1978  18:17:09
0          I/O CONVERSION ROUTINES FOR THE DISPLAY, MODIFY, AND SCAN COMMANDS.
00721/011A *OBJUTIL                  OPTIMIZE SUBR   SA  G          W067:OPTIMIZE.S                                                 
            4.3T1   890  OBJUTIL.OPTIMIZE_SUBR.SA.011       1 LINE    135   15 PAGE UM   SHERRY              APR. 06, 1980  12:29:58
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 MACROS (721/13, 721/14, 721/15).  USES
           THE MSG ROUTINES (1023/1).  COPIES *CNFGINFODSECT (654).
            
           THIS SUBCOMPONENT WAS FORMERLY A PART OF SQUASH (710).
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
00721/012C *OBJUTIL                  MISC RTNS       SA  G          W067:OBJU.RTN.S                                                 
            4.3T1   891  OBJUTIL.MISC_RTNS.SA.012           1 LINE     72   11 PAGE UM   SHERRY              APR. 06, 1980  12:30:02
0          MISCELLANEOUS SUBROUTINES.  THE NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS
           TO ASSEMBLE.  USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE MSG
           ROUTINES (1023/1), *GDINFODSECT (594), AND *SYSMAC. 
            
           *****************************************************************************
           D4.3 VERSION:
            
           USES THE NEW MSG ROUTINES (1023/1). 
           *****************************************************************************
00721/013A *OBJUTIL                  OBJUTIL MACROS  SM  G          W067:OBJU.MAC                                                   
            4.3T1   892  OBJUTIL.OBJUTIL_MACROS.SM.013      1 LINE     72   25 PAGE UM   SHERRY              APR. 06, 1980  12:30:04
0          OBJECT FILE EDITOR MACROS.  CONTAINS ROUTINE LINKAGE MACROS, MACROS THAT WERE
           FORMERLY IN THE SOURCE OF OBJUTIL (721/1), AND SEVERAL COPY SECTIONS
           INCLUDING THE PSECT DEFINITION, AND DATA STRUCTURE DSECTS.
0          Referenced by comments of: 1/9 
00721/014A *OBJUTIL                  MISC MACROS     SM  G          W067:MAC                                                        
            4.3T1   893  OBJUTIL.MISC_MACROS.SM.014         1 LINE     73   13 PAGE UM   SHERRY              APR. 06, 1980  12:30:08
0          MISCELLANEOUS MACROS.
0          Referenced by comments of: 1/5, 354/5, 746/1, 775/1 
00721/015A *OBJUTIL                  DCI MACROS      SM  G          W067:DCI                                                        
            4.3T1   894  OBJUTIL.DCI_MACROS.SM.015          1 LINE     72   14 PAGE UM   SHERRY              APR. 06, 1980  12:30:11
0          MACRO LIBRARY CONTAINING DCI MACROS USED TO INITIALIZE STORAGE IN DSECTS
           AND STACKS.
0          Referenced by comments of: 746/1 
00721/016A *OBJUTIL                  SHARED OBJECT   OE  G          SEG2:OBJUTIL                                                    
            4.3T1   895  OBJUTIL.SHARED_OBJECT.OE.016       1 LINE  19755   69 PAGE UM   SHERRY              APR. 06, 1980  12:30:14
                         SEG2:OBJUTIL         
0          370/470 OBJECT FOR THE OBJECT FILE EDITOR. LOADED INTO SHARED VM BY PISTLE.
00721/017  *OBJUTIL                  *OBJUTIL        OC  G          *OBJUTIL                                                        
            D4.2T1  730  OBJUTIL.*OBJUTIL.OC.006            1 LINE     24    1 PAGE UM   SHERRY              APR. 02, 1979  00:54:56
                         *OBJUTIL             
0          CONTAINS THE APPROPRIATE LOADER CARDS TO FORCE A REFERENCE TO THE SHARED VM
1                                                                                               SUN SEP 08/96   19:03:19   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          OBJUTIL.
0          Referenced by comments of: 721/18 
00721/018C *OBJUTIL                  OBJDUMP         SA  O          W067:OBJU.DUMP.S                                                
            4.3T1   896  OBJUTIL.OBJDUMP.SA.018             1 LINE     72    6 PAGE UM   SHERRY              APR. 06, 1980  12:30:21
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/13, 721/14, 721/15), COPY:CC.MACROS (1054/3), *CNFGINFIDSECT (654) AND
           *SYSMAC.
00721/019C *OBJUTIL                  OBJDUMP         OE  O          W067:OBJU.DUMP                                                  
            4.3T1   897  OBJUTIL.OBJDUMP.OE.019             1 LINE   1520    5 PAGE UM   SHERRY              APR. 06, 1980  12:30:23
0          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 
           REQUIRES THE MSG ROUTINES (1023/1).  SEE THE COMMENTS IN THE SOURCE FOR COMPLETE
           DETAILS.
00721/020A *OBJUTIL                  EXPLAIN FILE    M              ETC:OBJUTILEXP                                                  
            4.3T1   898  OBJUTIL.EXPLAIN_FILE.M.020         1 LINE     74   22 PAGE UM   SHERRY              APR. 06, 1980  12:30:25
                         ETC.:OBJUTILEXP      
0          EXPLAIN COMMAND MESSAGES.  LINE NUMBERS IN THIS FILE ARE IMPORTANT.
00721/021A *OBJUTIL                  TEST DECK       D              W067:OBJUTIL.T                                                  
            4.3T1   899  OBJUTIL.TEST_DECK.D.021            1 LINE     57    3 PAGE UM   SHERRY              APR. 06, 1980  12:30:28
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.
00721/022A *OBJUTIL                  CHANGES         WX             W067:OBJUTIL.CX                                                 
            4.3T1   900  OBJUTIL.CHANGES.WX.022             1 LINE     70    4 PAGE UM   SHERRY              APR. 06, 1980  12:30:31
0          *TEXTFORM WRITEUP DESCRIBING NEW VERSION OF THE OBJECT FILE EDITOR, INCLUDING
           BUG FIXES AND NEW FEATURES.
00722/001A  BLOCKHEADER                              SA  O          W009:BLKHDR.S                                                   
            4.3T1   901  BLOCKHEADER..SA.001                1 LINE    136    5 PAGE UM   SHERRY              APR. 06, 1980  12:30:33
                         W009:BLKHDR.S        
0          PROGRAM TO PRODUCE BLOCKLETTER HEADERS FOR PRINTED LISTINGS.  WRITES ON 
1                                                                                               SUN SEP 08/96   19:03:19   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          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"
00722/002A  BLOCKHEADER                              OE  O          W009:BLKHDR                                                     
            4.3T1   902  BLOCKHEADER..OE.002                1 LINE   1982    3 PAGE UM   SHERRY              APR. 06, 1980  12:30:36
                         W009:BLKHDR          
00723/001A  FNAMETRT                                 SA  G          MTS:FNAMETRT(1,999)                                             
            4.3T1   903  FNAMETRT..SA.001                   1 LINE     72    1 PAGE UM   MTS       HELFFRICH APR. 06, 1980  12:30:38
                         MTS.:FNAMETRT        
0          TRANSLATE TABLE USED BY FNAME TO DECIDE WHAT CHARACTERS ARE LEGAL IN FILE NAMES.
00723/002A  FNAMETRT                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
00724/001A  DISKCOPY                                 SA  G          FILE:DISKCOPY.AS                                                
            4.3T2   568  DISKCOPY..SA.001                   1 LINE    100   31 PAGE UM   HELFFRICH           MAY  22, 1980  02:05:32
                         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/33), COPY:CC.MACROS (1054/3),
           COPY:RM.MACROS (1041), COPY:UC.MACROS (787/1), AND *SYSMAC.
            
           *********************************************************************************
           D4.3 VERSION:
            
           THIS PROGRAM HAS BEEN COMPLETELY REWRITTEN. THE PREVIOUS VERSION ONLY COPIED
           THE CONTENTS OF ONE 3330 TO ANOTHER (ERROR-FREE) 3330 DISK.  THIS VERSION 
           WORKS WITH TAPES AS WELL AS VAM2 AND VAMX FORMATTED DISKS.  IT RELOCATES
           PAGES AS NECESSARY AND ATTEMPTS TO RECOVER FROM DISK ERRORS.  IT MAKE IT
           POSSIBLE TO COPY THE CONTENTS OF A 3330 TO A 3350 (AND BACK AGAIN).  THE
           TAPE FORMAT IS COMPATIBLE WITH TSS DUMP/RESTORE, PROVIDED THAT THE TAPE 
           IS UNLABELED. THE PROGRAM IS WRITTEN TO WORK WITH ANY PAGE-FORMATTED DISK
           BUT HAS ONLY BEEN TESTED ON 3330-11S AND 3350S.
           *********************************************************************************
00724/002A  DISKCOPY                 NORMAL OBJ      OC  G          FILE:DISKCOPY                                                   
            4.3T2   569  DISKCOPY.NORMAL_OBJ.OC.002         1 LINE     80   54 PAGE UM   HELFFRICH           MAY  22, 1980  02:06:19
                         FILE:DISKCOPY        
0          OBJECT FOR 724/1.  USES THE UBC SUBTASKING MONITOR (1053) AND REFERENCES 
           SYMBOLS IN COPY:SYSDEFS (579/3).  CONTAINS A $CONTINUE WITH DMGR:MONITOR
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          (1058/14) RECORD.
00724/003A  DISKCOPY                 SPECIAL OBJ     OC  O          FILE:D4.2D/R                                                    
            4.3T2   570  DISKCOPY.SPECIAL_OBJ.OC.003        1 LINE   9858   91 PAGE UM   HELFFRICH           MAY  22, 1980  02:06:24
0          OBJECT FOR 724/1, THE D4.3 SUBTASKING MONITOR (1053), AND THE OBJECT FOR
           VARIOUS OTHER D4.3 COMPONENTS SO AS TO MAKE THIS OBJECT DECK RUNNABLE IN
           A D4.2 SYSTEM. THE ONLY PURPOSE OF THIS DECK IS TO ALLOW THE RESTORATION
           OF THE D4.3 DUMP/RESTORE TAPE(S) BEFORE A D4.3 SYSTEM IS AVAILABLE.
00725       ACCFORMAT                                SA           # (OBSOLETED BY 344/3)                                            
            RD16T1  217  ACCFORMAT..SA.                     1 LINE     80    4 PAGE UM                       JULY 12, 1979  23:16:57
0          COPY SECTION DESCRIBING THE FORMAT OF THE MTS ACCOUNTING RECORD. THIS FILE IS
           COPIED BY ANY PROGRAM USING THE THEDSECT MACRO IN MTS.MACROS (344/3).
0          Referenced by comments of: 680/1 
00726       CNFGSOU                                  SA           # (OBSOLETE)                                                      
            D4T3   315   CNFGSOU..SA.001                    1 LINE     80    3 PAGE UM                       JULY 28, 1977  23:59:24
00727/001A *FTNTIDY                                  SA  G          W062:FTNTIDY.S                                                  
            4.3T1   904  FTNTIDY..SA.001                    1 LINE    132   80 PAGE UM   TIFFANY             APR. 06, 1980  12:30:41
0          REPLACEMENT PROGRAM FOR *TIDY (229) AND *FRISK (533).  SOURCE IS ORDERED
           LIKE A MACRO LIBRARY.  LINES AT FRONT OF SOURCE CONTAIN COMMANDS FOR ASSEMBLING;
           THE SOURCE STARTS AT LINE 1000.  ASSEMBLE USING THE FTNTIDY MACLIB (727/2) AND
           WITH PAR=BATCH,SIZE=32.  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.
            
00727/002  *FTNTIDY                  MACLIB          SM  G          W062:FTNTIDYMAC                                                 
            D4.2T1  736  FTNTIDY.MACLIB.SM.002              1 LINE     72    7 PAGE UM   TIFFANY             APR. 02, 1979  00:55:50
0          Referenced by comments of: 727/1 
00727/003A *FTNTIDY                                  OE  G          *FTNTIDY                                                        
            4.3T1   905  FTNTIDY..OE.003                    1 LINE  10521   20 PAGE UM   TIFFANY             APR. 06, 1980  12:31:25
                         *FTNTIDY             
00728    A  MISC.MACROS                              SM  G          COPY:MISC.MACROS                                                
            4.3T1   906  MISC.MACROS..SM.                   1 LINE     72    4 PAGE UM   MTA                 APR. 06, 1980  12:31:27
                         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, AND THE MIF MACROS.  DOCUMENTATION FOR THE MIF
           MACROS IS AVAILABLE IN 685/6.
0          Referenced by comments of: 4/4, 21/1, 46/1, 67/2, 482/34, 502/9, 515/1, 598/1, 629/1, 634/1, 634/4, 682/22, 732/1,
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
 
                 769/9, 777/1, 787/11, 790/2, 790/4, 3024/1 
00729/001   FIND LABEL               *FLB            C              *FLB                                                            
            D4.2T1  739  FIND_LABEL.*FLB.C.001              1 LINE     47    1 PAGE UM   WSG                 APR. 02, 1979  00:55:53
                         *FLB                 
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE FNDLBL PROGRAM (729/1).
           INVOKED BY ENTERING MTS *FLB ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 135/1, 729/1 
00729/002   FIND LABEL               FNDLBL PGM      SA  G          S1319 D4.2T1 VLO FSNAME=FIND_LABEL.FNDLBL_PGM.SA.002(1)      740
            D4.2T1  740  FIND_LABEL.FNDLBL_PGM.SA.002       1 LINE     80    5 PAGE UM   WSG                 AUG. 28, 1978  14:24:33
0          PROGRAM TO READ A TAPE, PRINTING OUT THE VOLUME LABEL AND DENSITY.  SOURCE IN
           LINES (1,999).
00729/003   FIND LABEL               FNDLBL PGM      OC  G          SYS:FNDLBL                                                      
            D4.2T1  741  FIND_LABEL.FNDLBL_PGM.OC.003       1 LINE     80    2 PAGE UM   WSG                 APR. 02, 1979  00:55:56
                         SYS.:FNDLBL          
00730       TSS UTILITIES                            OC  G          MTS:TSS/REL2.UTL                                                
            D4.1T1  550  TSS_UTILITIES..OC.                 1 SEQ      80   29 PAGE UM   WSG                 MAY  13, 1978  18:21:19
                         MTS:TSS/REL2.UTL     
0          IPL-ABLE DECKS FOR TSS RELEASE 2 UTILITIES (DASDI, DUMP/RESTORE, AND VAM2 
           UTILITIES).  MODIFIED IBM OBJECT TO ALLOW ALL 16 CHANNELS. 
00731/001A  CHECKFE SUBR                             SA  G  CKFE    S0683 OGDEN FSNAME=CHECKFE.S                                    
            4.3T1   907  CHECKFE_SUBR..SA.001               1 LINE     80    4 PAGE UM   OGDEN               MAY  22, 1979  07:40:40
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).
0          Referenced by comments of: 413/1, 731/3 
00731/002A  CHECKFE SUBR                             OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00731/003A  CHECKFE SUBR             FESNIFF SUBR    SA  G  FESN    S0683 OGDEN FSNAME=FESNIFF.S                                    
            4.3T1   908  CHECKFE_SUBR.FESNIFF_SUBR.SA.003   1 LINE     80    6 PAGE UM   OGDEN               FEB. 29, 1980  00:58:09
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).
0          Referenced by comments of: 731/1, 734/3 
00731/004A  CHECKFE SUBR             FESNIFF SUBR    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00731/005C  CHECKFE SUBR             *FIXFEP         C              *FIXFEP                                                         
            4.3T1   909  CHECKFE_SUBR.*FIXFEP.C.005         1 LINE     20    1 PAGE UM   OGDEN               APR. 06, 1980  12:36:24
                         *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).
00731/006C  CHECKFE SUBR             SYS:FIXFEP      C              SYS:FIXFEP                                                      
            4.3T1   910  CHECKFE_SUBR.SYS:FIXFEP.C.006      1 LINE     82    1 PAGE UM   OGDEN               APR. 06, 1980  12:36:27
                         SYS:FIXFEP           
0          COMMAND FILE $SOURCED TO BY 731/5.  $RUNS SYS:HUH (734/4).
0          Referenced by comments of: 731/5 
00731/007C  CHECKFE SUBR             SYS:FIXLOG      D            # MTS:TST.EMPTY                                                   
                                                                                    UM   OGDEN                                      
                         SYS:FIXLOG           
0          LOG FILE USED BY SYS:FIXFEP.
00732/001A  STOR                                     SA  G  STOR    W170:STOR(1000)                                                 
            4.3T1   911  STOR..SA.001                       1 LINE     80   39 PAGE UM   HELFFRICH           APR. 06, 1980  12:36:30
                         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/1).
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           CHANGED TO DEFINE SUBROUTINES TO SET AND RETRIEVE STORAGE KEYS AND REF/CHANGE
           BITS IN REAL OR VIRTUAL MACHINE MODE.
           *****************************************************************************
00732/002A  STOR                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HELFFRICH                                  
00732/003   STOR                     TEST PROGRAM    SA  G          W170:STOR.DUMP(1000)                                            
            D4.1T1  554  STOR.TEST_PROGRAM.SA.003           1 LINE     72    3 PAGE UM   HELFFRICH           MAY  13, 1978  18:22:05
                         W170:STOR.DUMP       
0          TEST PROGRAM TO BE $DEBUGED WITH 732/2 TO TEST IT.  STORAGE REQUESTS CAN BE
           SIMULATED BY CHANGING REGISTER CONTENTS AND GO-ING 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)                                           
            D4.1T1  555  STOR.TEST_PROGRAM.OC.004           1 LINE     80    3 PAGE UM   HELFFRICH           MAY  13, 1978  18:22:06
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00733/001   INTRO GUIDE: TERMINALS                   WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERMINAL.SOU              
            D4.1T1  556  INTRO_GUIDE:_TERMINALS..WF.001     1 LINE    116   49 PAGE UM   MANUAL              DEC. 12, 1977  22:20:36
0          FORMAT SOURCE FOR "INTRODUCTION TO TERMINALS" (NOV 1977).
00733/002   INTRO GUIDE: TERMINALS                   PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERMINAL.OUT              
            D4.1T1  557  INTRO_GUIDE:_TERMINALS..PF.002     1 LINE    135   79 PAGE UM   MANUAL              DEC. 12, 1977  22:20:59
0          FORMAT PRINT FILE.
00733/003   INTRO GUIDE: TERMINALS   INDEX           D              S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERM.INDEXSO              
            D4.1T1  558  INTRO_GUIDE:_TERMINALS.IN.D.003    1 LINE    100    3 PAGE UM   MANUAL              DEC. 12, 1977  22:21:30
0          INPUT TO *INDEX (580) FOR THE INDEX.
00734/001A  HUH                      *HUH            C              *HUH                                                            
            4.3T1   912  HUH.*HUH.C.001                     1 LINE     63    1 PAGE UM   OGDEN               APR. 06, 1980  12:36:52
0          COMMAND FILE USED BY THE OPERATORS TO RUN THE HUH PROGRAM (734/2).  INVOKED BY
           ENTERING "MTS *HUH" ON THE OPERATORS CONSOLE.
00734/002A  HUH                      HUH PGM         SG  G          S0683 OGDEN FSNAME=HUH.S                                        
            4.3T1   913  HUH.HUH_PGM.SG.002                 1 LINE    106    1 PAGE UM   OGDEN               MAY  22, 1979  07:40:38
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/003A  HUH                      CHKDEV SUBR     SA  G  CHKD    S0683 OGDEN FSNAME=CHKDEV.S                                     
            4.3T1   914  HUH.CHKDEV_SUBR.SA.003             1 LINE     80    3 PAGE UM   OGDEN               MAY  22, 1979  07:40:42
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, 731/3, 734/2, 734/4 
00734/004A  HUH                                      OC  G          SYS:HUH                                                         
            4.3T1   915  HUH..OC.004                        1 LINE   1182    3 PAGE UM   OGDEN               APR. 06, 1980  12:37:27
0          OBJECT FOR HUH (734/2) AND CHKDEV (734/3).
0          Referenced by comments of: 731/6 
00735/001   RESOURCES                FILEDEF         D              DBME:RES.FD                                                     
            D4.1T1  563  RESOURCES.FILEDEF.D.001            1 LINE     87    9 PAGE UM   OGDEN               MAY  13, 1978  18:22:52
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                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00735/002   RESOURCES                NOTES           WF             S0683 OGDEN FSNAME=RES.NOTES.F                                  
            D4.1T1  564  RESOURCES.NOTES.WF.002             1 LINE     65    2 PAGE UM   OGDEN               JAN. 30, 1978  12:11:52
0          NOTES ON INSTALLING DBME.RESOURCES.
00735/003   RESOURCES                /A FILE         D              DBME:RESOURCES/A                                                
            D4.2T1  744  RESOURCES./A_FILE.D.003            1 LINE   2048  822 PAGE UM   OGDEN               APR. 02, 1979  00:56:03
0          THE /A FILE FOR DBME.RESOURCES. 
00735/004   RESOURCES                /Q FILE         D              DBME:RESOURCES/Q                                                
            D4.2T1  745  RESOURCES./Q_FILE.D.004            1 LINE   2048    3 PAGE UM   OGDEN               APR. 02, 1979  00:56:53
0          THE /Q FILE FOR DBME.RESOURCES.
00735/005   RESOURCES                FORMATS         D              DBME:RES.FORMATS                                                
            D4.2T1  746  RESOURCES.FORMATS.D.005            1 LINE     82   15 PAGE UM   OGDEN               APR. 02, 1979  00:56:53
0          THE FORMATS ASSOCIATED WITH DBME.RESOURCES.
           THIS FILE IS ORGANIZED BY 1000S.
00735/006   RESOURCES                THESAURUS       D              DBME:RES.THE                                                    
            D4.1T1  568  RESOURCES.THESAURUS.D.006          1 LINE     87    8 PAGE UM   OGDEN               MAY  13, 1978  18:23:59
0          BATCH INPUT USED TO BUILD THE THESAURUS ASSOCIATED WITH
           THE SPIRES SUBFILE RES-SUBJECTS.
00735/007   RESOURCES                RES-SUBCHK      D              DBME:RES.SUBCHK                                                 
            D4.1T1  569  RESOURCES.RES-SUBCHK.D.007         1 LINE    113   11 PAGE UM   OGDEN               MAY  13, 1978  18:24:01
0          BATCH INPUT USED TO BUILD THE SPIRES SUBFILE RES-SUBCHK.
00735/008   RESOURCES                JUG SUB. CODES  P              DBME:RES.SUBJECT                                                
            D4.1T1  570  RESOURCES.JUG_SUB._CODES.P.008     1 LINE     72    6 PAGE UM   OGDEN               MAY  13, 1978  18:24:05
0          A "READABLE" LIST OF THE MODIFIED JOINT USERS GROUP (JUG)
           SUBJECT CODES.
00736/001   PLM                      PASS 0          SF  O  PLMO    S0684 UNSP FSNAME=PLM80.S                                       
            D4.1T1  571  PLM.PASS_0.SF.001                  1 LINE     80    1 PAGE UM   UNSP                DEC. 19, 1977  11:41:29
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.  DOCUMENTATION IS INCLUDED IN 
           UNSP:WRITEUPS (685/2).
00736/002   PLM                      PASS 0          OE  O          UNSP:PLM                                                        
            D4.1T1  572  PLM.PASS_0.OE.002                  1 LINE   1162    1 PAGE UM   UNSP                MAY  13, 1978  18:24:09
                         UNSP:PLM             
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00736/003   PLM                      PASS 1          SF  O          S0684 UNSP FSNAME=PLM81.S                                       
            D4.1T1  573  PLM.PASS_1.SF.003                  1 LINE     80   83 PAGE UM   UNSP                DEC. 19, 1977  11:41:42
0          PASS 1 OF VERSION 2 OF INTEL'S PL/M CROSS COMPILER.
0          Referenced by comments of: 736/1 
00736/004   PLM                      PASS 1          OE  O          UNSP:PLM81                                                      
            D4.1T1  574  PLM.PASS_1.OE.004                  1 LINE  31604   24 PAGE UM   UNSP                MAY  13, 1978  18:24:12
                         UNSP:PLM81           
00736/005   PLM                      PASS 2          SF  O          S0684 UNSP FSNAME=PLM82.S                                       
            D4.1T1  575  PLM.PASS_2.SF.005                  1 LINE     80  137 PAGE UM   UNSP                DEC. 19, 1977  11:42:30
0          PASS 2 OF VERSION 2 OF INTEL'S PL/M CROSS COMPILER.
0          Referenced by comments of: 736/1 
00736/006   PLM                      PASS 2          OE  O          UNSP:PLM82                                                      
            D4.1T1  576  PLM.PASS_2.OE.006                  1 LINE  32767   29 PAGE UM   UNSP                MAY  13, 1978  18:24:19
                         UNSP:PLM82           
00736/007   PLM                      SAMPLE PGM      S   G          UNSP:PLM.SAMPLE                                                 
            D4.2T1  747  PLM.SAMPLE_PGM.S.007               1 LINE     72    1 PAGE UM   UNSP                APR. 02, 1979  00:56:57
0          A SAMPLE PLM PROGRAM.
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           ****
                    ***                                   ***
                  **        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: 511/1, 648/1, 648/2, 648/3, 648/4, 648/5, 648/17, 648/18, 648/19, 721/1, 749/3, 749/4 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00737/002  *ASMH                     OS INFO         WF             S1143 D4.1T1 VLO FSNAME=ASMH.OS_INFO.WF.002(1)               577
            D4.1T1  577  ASMH.OS_INFO.WF.002                1 LINE     98    2 PAGE UM   MTA                 MAY  13, 1978  18:24:21
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
            D4.1T1  578  ASMH.INVOKER.SA.003                1 LINE     71    3 PAGE UM   MTA                 MAY  13, 1978  18:24:22
0          PROGRAM TO INVOKE *FAKEOS TO RUN THE OS VERSION OF ASMH.  COPIES FAKEOS.GBLS
           (545/19) AND *GDINFODSECT (594).  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
            D4.1T1  579  ASMH.INVOKER.OE.004                1 SEQ     853    1 PAGE UM   MTA                 MAY  13, 1978  18:24:23
00737/005  *ASMH                     BLDL INPUT      D              S1143 D4.1T1 VLO FSNAME=ASMH.BLDL_INPUT.D.005(1)             580
            D4.1T1  580  ASMH.BLDL_INPUT.D.005              1 LINE     60    1 PAGE UM   MTA                 MAY  13, 1978  18:24:24
0          INPUT TO *FAKEOSCREBLDL (545/39) FOR ASMH OS OBJECT DECKS.
00737/006  *ASMH                     BLDL            D              S1143 D4.1T1 VLO FSNAME=ASMH.BLDL.D.006(1)                   581
            D4.1T1  581  ASMH.BLDL.D.006                    1 SEQ     250    1 PAGE UM   MTA                 MAY  13, 1978  18:24:25
0          OUTPUT FROM *FAKEOSCREBLDL (545/39) 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 
00737/008  *ASMH                     BLOCK MACROS    SS  O          S0938 FSAVE2 VLO FSNAME=ASMHBLOCKMAC                            
            D4.1T1  582  ASMH.BLOCK_MACROS.SS.008           1 LINE     70    1 PAGE UM   MTA                 MAR. 09, 1978  22:41:24
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
            D4.1T1  583  ASMH.SYSMAC.SM.009                 1 LINE   4000   98 PAGE UM   MTA                 MAY  13, 1978  18:26:10
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/3, 737/20 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
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/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
            D4.1T1  584  ASMH.INFO.WF.012                   1 LINE    140    4 PAGE UM   MTA                 MAY  13, 1978  18:26:16
0          MEMO TO COMPUTING CENTER STAFF DESCRIBING THE MTS (NOT *FAKEOS) VERSION OF *ASMH.
00737/013  *ASMH                     INFO2           WF             S0938 FSAVE2 VLO FSNAME=ASMHINFO2(1)                        448 
            D4.2T1  748  ASMH.INFO2.WF.013                  1 LINE     80    2 PAGE UM   MTA                 NOV. 01, 1978  02:17:47
0          ADDENDUM TO 737/12.
00737/014A *ASMH                     INFO3           WX             S0938 FSAVE2 VLO FSNAME=ASMHMEMO                            520 
            4.3T2     1  ASMH.INFO3.WX.014                  1 LINE    106    5 PAGE UM   MTA                 NOV. 02, 1979  22:27:02
0          A MEMO GIVING DETAILS ABOUT RECENT CHANGES TO *ASMH.
00737/015A *ASMH                     UTILITY         SS  O          MTA:ASMHUTIL                                                    
            4.3T2     2  ASMH.UTILITY.SS.015                1 LINE    117    4 PAGE UM   MTA                 APR. 06, 1980  13:06:01
                         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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          *CDUPDATE (1036/2).
0          Referenced by comments of: 737/16 
00737/016A *ASMH                     DIR             D              MTA:ASMHDIR                                                     
            4.3T2     3  ASMH.DIR.D.016                     1 LINE    256    3 PAGE UM   MTA                 APR. 06, 1980  13:06:03
                         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                                                 
            D4.2T1  751  ASMH.INSTALL.C.016                 1 LINE     50    1 PAGE UM   MTA                 APR. 02, 1979  00:59:01
                         MTA.:ASMHINSTALL     
0          COMMANDS TO CREATE A NEW VERSION OF SEG2:ASMH IN -SEG2.
00737/018  *ASMH                     FIRST UPDATE    UC  G          MTA:ASMHUPD                                                     
            D4.1T1  587  ASMH.FIRST_UPDATE.UC.015           1 LINE     43    3 PAGE UM   MTA                 MAY  13, 1978  18:26:20
                         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).
0          Referenced by comments of: 737/15 
00737/019  *ASMH                     BUGS UPDATE     UC  G          MTA:ASMHUPDBUGS                                                 
            D4.1T1  588  ASMH.BUGS_UPDATE.UC.016            1 LINE     71   18 PAGE UM   MTA                 MAY  13, 1978  18:26:21
                         MTA.:ASMHUPDBUGS     
0          UPDATE TO FIX BUGS AND CLEAN UP ASMH, INCLUDING SEVERAL SPEED IMPROVEMENTS.
0          Referenced by comments of: 737/15, 737/18 
00737/020  *ASMH                     MTS UPDATE      UC  G          MTA:ASMHUPDMTS                                                  
            D4.1T1  589  ASMH.MTS_UPDATE.UC.017             1 LINE     78   28 PAGE UM   MTA                 MAY  13, 1978  18:26:32
                         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.
0          Referenced by comments of: 737/15, 737/18 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00737/021  *ASMH                     NUM UPDATE      UC  G          MTA:ASMHUPDNUM                                                  
            D4.1T1  590  ASMH.NUM_UPDATE.UC.018             1 LINE     70    5 PAGE UM   MTA                 MAY  13, 1978  18:26:51
                         MTA.:ASMHUPDNUM      
0          UPDATE TO ADD NUM OPTION.
0          Referenced by comments of: 737/15, 737/18 
00737/022  *ASMH                     EXTEN OPTION    UC  G          MTA:ASMHUPDEXTEN                                                
            D4.2T1  752  ASMH.EXTEN_OPTION.UC.021           1 LINE     72   11 PAGE UM   MTA                 APR. 02, 1979  00:59:02
                         MTA.:ASMHUPDEXTEN    
0          UPDATE TO ADD FEATURES CONTROLLED BY EXTEN OPTION.
0          Referenced by comments of: 737/15, 737/18 
00737/023A *ASMH                     MACRO UPDATE    UC  G          MTA:ASMHMACUPD                                                  
            4.3T2     4  ASMH.MACRO_UPDATE.UC.023           1 LINE     77   23 PAGE UM   MTA                 APR. 06, 1980  13:06:05
                         MTA.:ASMHMACUPD      
0          UPDATE TO PRODUCE THE MTS MACRO LIBRARY FROM THE IBM SOURCE (737/10).
00737/024A *ASMH                     NEW UPDATES     UC  G          MTA:ASMHUPDNEW                                                  
            4.3T2     5  ASMH.NEW_UPDATES.UC.024            1 LINE     76   79 PAGE UM   MTA                 APR. 06, 1980  13:06:10
                         MTA:ASMHUPDNEW       
0          POST D4.1 UDPATES, IN CHRONOLOGICAL ORDER, TO ASMH.
            
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 
00737/026  *ASMH                     MAIN PGM        SA  G          MTA:ASMHMAIN(1,999)                                             
            D4.1T1  593  ASMH.MAIN_PGM.SA.022               1 LINE     38    1 PAGE UM   MTA                 MAY  13, 1978  18:27:00
                         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)                                              
            D4.1T1  594  ASMH.MAIN_PGM.OC.023               1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  18:27:01
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
            D4.1T1  595  ASMH.OPTIONS_ASMBLY.SA.024         1 LINE     49    1 PAGE UM   MTA                 MAY  13, 1978  18:27:02
0          SOURCE FOR THE "SYSGEN OPTIONS" ASSEMBLY WHICH PRODUCES IEV61 WITH LOCAL OPTIONS.
1                                                                                               SUN SEP 08/96   19:03:19   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          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 
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/032A *ASMH                     TEST PGM #1     SA  G          MTA:ASMHT1                                                      
            4.3T2     6  ASMH.TEST_PGM_#1.SA.032            1 LINE     54    1 PAGE UM   MTA                 APR. 06, 1980  13:06:23
0          PROGRAM TO TEST SS INSTRUCTIONS.
00737/033A *ASMH                     TEST PGM #2     SA  G          MTA:ASMHT2                                                      
            4.3T2     7  ASMH.TEST_PGM_#2.SA.033            1 LINE     72    1 PAGE UM   MTA                 APR. 06, 1980  13:06:26
0          PROGRAM TO TEST NEW SYSTEM SET SYMBOLS.  START AT LINE *F.
00737/034A *ASMH                     TEST PGM #3     SA  G          MTA:ASMHT3                                                      
            4.3T2     8  ASMH.TEST_PGM_#3.SA.034            1 LINE     72    1 PAGE UM   MTA                 APR. 06, 1980  13:06:28
0          PROGRAM TO TEST LITERALS IN EQU STATEMENTS AND EXPRESSIONS.
00737/035  *ASMH                     TEST PGM #4     SA  G          MTA:ASMHT4                                                      
            D4.1T1  599  ASMH.TEST_PGM_#4.SA.031            1 LINE     76    1 PAGE UM   MTA                 MAY  13, 1978  18:27:05
0          PROGRAM TO TEST LINE NUMBER PRINTING.  START AT LINE *F.
00737/036  *ASMH                     TEST PGM #5     SA  G          MTA:ASMHT5                                                      
            D4.1T1  600  ASMH.TEST_PGM_#5.SA.032            1 LINE     77    1 PAGE UM   MTA                 MAY  13, 1978  18:27:06
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          MTA:ASMHT6                                                      
            D4.1T1  601  ASMH.TEST_PGM_#6.SA.033            1 LINE     70    1 PAGE UM   MTA                 MAY  13, 1978  18:27:07
0          PROGRAM TO TEST OPDEF, INSTSET, AND 360/67 INSTRUCTIONS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00737/038  *ASMH                     TEST PGM #7     SA  G          MTA:ASMHT7                                                      
            D4.1T1  602  ASMH.TEST_PGM_#7.SA.034            1 LINE     58    1 PAGE UM   MTA                 MAY  13, 1978  18:27:08
0          PROGRAM TO TEST NULL TYPE C CONSTANTS IN DC OR DS STATEMENTS.
00737/039  *ASMH                     TEST PGM #8     SA  G          MTA:ASMHT8                                                      
            D4.1T1  603  ASMH.TEST_PGM_#8.SA.035            1 LINE     72    1 PAGE UM   MTA                 MAY  13, 1978  18:27:09
0          PROGRAM TO TEST "*NNN" ON LCLC OR GBLC DECLARATIONS.
00737/040  *ASMH                     TEST PGM #9     SA  G          MTA:ASMHT9                                                      
            D4.1T1  604  ASMH.TEST_PGM_#9.SA.036            1 LINE     63    1 PAGE UM   MTA                 MAY  13, 1978  18:27:10
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          MTA:ASMHT10                                                     
            D4.1T1  605  ASMH.TEST_PGM_#10.SA.037           1 LINE     72    1 PAGE UM   MTA                 MAY  13, 1978  18:27:11
0          PROGRAM TO TEST INNER MACRO DEFINITION.
00737/042A *ASMH                     TEST PGM #11    SA  G          MTA:ASMHT11                                                     
            4.3T2     9  ASMH.TEST_PGM_#11.SA.042           1 LINE     72    3 PAGE UM   MTA                 APR. 06, 1980  13:06:30
0          PROGRAM TO TEST ORDINARY SYMBOLS IN CONDITIONAL ASSEMBLY.
00737/043A *ASMH                     TEST PGM #12    SA  G          MTA:ASMHT12                                                     
            4.3T2    10  ASMH.TEST_PGM_#12.SA.043           1 LINE     59    1 PAGE UM   MTA                 APR. 06, 1980  13:06:33
0          PROGRAM TO TEST SYM CARDS.
00737/044  *ASMH                     TEST PGM #13    SA  G          MTA:ASMHT13                                                     
            D4.2T1  757  ASMH.TEST_PGM_#13.SA.043           1 LINE     72    3 PAGE UM   MTA                 APR. 02, 1979  00:59:14
0          PROGRAM TO TEST MACRO PARAMETER SCANNING.
00737/045  *ASMH                     TEST PGM #14    SA  G          MTA:ASMHT14                                                     
            D4.1T1  609  ASMH.TEST_PGM_#14.SA.041           1 LINE     72    1 PAGE UM   MTA                 MAY  13, 1978  18:27:16
0          PROGRAM TO TEST SERCOM OUTPUT.
00737/046  *ASMH                     TEST PGM #15    SA  G          MTA:ASMHT15                                                     
            D4.1T1  610  ASMH.TEST_PGM_#15.SA.042           1 LINE     79    1 PAGE UM   MTA                 MAY  13, 1978  18:27:17
0          PROGRAM TO TEST INTERMEDIATE TEXT FILE AND PRINT ONLY TEXT.
00737/047  *ASMH                     TEST PGM #16    SA  G          MTA:ASMHT16                                                     
            D4.1T1  611  ASMH.TEST_PGM_#16.SA.043           1 LINE     45    1 PAGE UM   MTA                 MAY  13, 1978  18:27:18
0          PROGRAM TO TEST REDEFINITION OF MACROS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00737/048  *ASMH                     TEST PGM #17    SA  G          MTA:ASMHT17                                                     
            D4.1T1  612  ASMH.TEST_PGM_#17.SA.044           1 LINE     61    1 PAGE UM   MTA                 MAY  13, 1978  18:27:19
0          PROGRAM TO TEST AREAD.
00737/049  *ASMH                     TEST PGM #18    SA  G          MTA:ASMHT18                                                     
            D4.1T1  613  ASMH.TEST_PGM_#18.SA.045           1 LINE     53    1 PAGE UM   MTA                 MAY  13, 1978  18:27:21
0          PROGRAM TO TEST MSGLEVEL PARAMETER AND SERCOM OUTPUT.  RUN WITH MSGLEVEL=9.
00737/050  *ASMH                     TEST PGM #19    SA  G          MTA:ASMHT19                                                     
            D4.1T1  614  ASMH.TEST_PGM_#19.SA.046           1 LINE     75    1 PAGE UM   MTA                 MAY  13, 1978  18:27:22
0          PROGRAM TO TEST CONTINUATION AT FUNNY PLACES WHICH DON'T WORK IN OS VERSION.
00737/051  *ASMH                     TEST PGM #20    SA  G          MTA:ASMHT20                                                     
            D4.1T1  615  ASMH.TEST_PGM_#20.SA.047           1 LINE     28    1 PAGE UM   MTA                 MAY  13, 1978  18:27:23
0          PROGRAM TO TEST REPRO.
00737/052  *ASMH                     TEST PGM #21    SA  G          MTA:ASMHT21                                                     
            D4.2T1  758  ASMH.TEST_PGM_#21.SA.051           1 LINE     74    2 PAGE UM   MTA                 APR. 02, 1979  00:59:16
0          PROGRAM TO TEST MNOTE AND PUNCH.
00737/053A *ASMH                     TEST PGM #22    SA  G          MTA:ASMHT22                                                     
            4.3T2    11  ASMH.TEST_PGM_#22.SA.053           1 LINE     72    1 PAGE UM   MTA                 APR. 06, 1980  13:06:35
0          PROGRAM TO TEST TITLE, EJECT, SPACE, AND PRINT.
00737/054  *ASMH                     TEST PGM #23    SA  G          MTA:ASMHT23                                                     
            D4.1T1  618  ASMH.TEST_PGM_#23.SA.050           1 LINE     39    1 PAGE UM   MTA                 MAY  13, 1978  18:27:27
0          PROGRAM TO TEST RS AND SI INSTRUCTIONS.
00737/055A *ASMH                     TEST PGM #24    SA  G          MTA:ASMHT24                                                     
            4.3T2    12  ASMH.TEST_PGM_#24.SA.055           1 LINE     61    1 PAGE UM   MTA                 APR. 06, 1980  13:06:38
0          PROGRAM TO TEST ADCONS IN DSECTS.
00737/056  *ASMH                     TEST PGM #25    SA  G          MTA:ASMHT25                                                     
            D4.1T1  620  ASMH.TEST_PGM_#25.SA.052           1 LINE     72    1 PAGE UM   MTA                 MAY  13, 1978  18:27:29
0          PROGRAM TO TEST TYPE X, B, AND C CONSTANTS.
00737/057  *ASMH                     TEST PGM #26    SA  G          MTA:ASMHT26                                                     
            D4.1T1  621  ASMH.TEST_PGM_#26.SA.053           1 LINE     37    1 PAGE UM   MTA                 MAY  13, 1978  18:27:29
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          MTA:ASMHT27                                                     
            D4.1T1  622  ASMH.TEST_PGM_#27.SA.054           1 LINE     64    1 PAGE UM   MTA                 MAY  13, 1978  18:27:30
0          PROGRAM TO TEST TRUNCATED SETC EXPRESSIONS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00737/059  *ASMH                     TEST PGM #28    SA  G          MTA:ASMHT28                                                     
            D4.1T1  623  ASMH.TEST_PGM_#28.SA.055           1 LINE     72    1 PAGE UM   MTA                 MAY  13, 1978  18:27:31
0          PROGRAM TO TEST BLANK CARDS WITH AND WITHOUT LABELS.
00737/060  *ASMH                     TEST PGM #29    SA  G          MTA:ASMHT29                                                     
            D4.1T1  624  ASMH.TEST_PGM_#29.SA.056           1 LINE     55    1 PAGE UM   MTA                 MAY  13, 1978  18:27:32
0          PROGRAM TO TEST LENGTH ATTRIBUTE WITH LITERALS, SET SYMBOLS, AND PARAMETERS.
00737/061  *ASMH                     TEST PGM #30    SA  G          MTA:ASMHT30                                                     
            D4.1T1  625  ASMH.TEST_PGM_#30.SA.057           1 LINE     54    1 PAGE UM   MTA                 MAY  13, 1978  18:27:33
0          PROGRAM TO TEST TITLES WITH SET SYMBOLS AND IN MACROS.
00737/062A *ASMH                     TEST PGM #31    SA  G          MTA:ASMHT31                                                     
            4.3T2    13  ASMH.TEST_PGM_#31.SA.062           1 LINE     67    1 PAGE UM   MTA                 APR. 06, 1980  13:06:40
0          PROGRAM TO TEST MHELP 8 OUTPUT.
00737/063A *ASMH                     TEST PGM #32    SA  G          MTA:ASMHT32                                                     
            4.3T2    14  ASMH.TEST_PGM_#32.SA.063           1 LINE     65    1 PAGE UM   MTA                 APR. 06, 1980  13:06:42
0          PROGRAM TO TEST UNREFERENCED DXD'S.
00737/064  *ASMH                     TEST PGM #33    SA  G          MTA:ASMHT33                                                     
            D4.2T1  760  ASMH.TEST_PGM_#33.SA.063           1 LINE     66    1 PAGE UM   MTA                 APR. 02, 1979  00:59:17
0          PROGRAM TO TEST EXPRESSIONS IN Q TYPE CONSTANTS.
00737/065A *ASMH                     TEST PGM #34    SA  G          MTA:ASMHT34                                                     
            4.3T2    15  ASMH.TEST_PGM_#34.SA.065           1 LINE     72    4 PAGE UM   MTA                 APR. 06, 1980  13:06:45
0          PROGRAM TO TEST ORG AND LOCTR.  CONTAINS SEVERAL ASSEMBLIES.
00737/066A *ASMH                     TEST PGM #35    SA  G          MTA:ASMHT35                                                     
            4.3T2    16  ASMH.TEST_PGM_#35.SA.066           1 LINE     72    1 PAGE UM   MTA                 APR. 06, 1980  13:06:47
0          PROGRAM TO TEST TRAILING COMMAS ON VARIOUS ASSEMBLER STATEMENTS.
00737/067A *ASMH                     TEST PGM #36    SA  G          MTA:ASMHT36                                                     
            4.3T2    17  ASMH.TEST_PGM_#36.SA.067           1 LINE     58    1 PAGE UM   MTA                 APR. 06, 1980  13:06:49
0          TEST PROGRAM FOR PEXIT SUBROUTINE AND PARAMETER AND OCTL.  INTENDED TO 
           BE USED WITH 737/69.
00737/068A *ASMH                     PEXIT TEST      SA  G          MTA:ASMH.PEXIT(1000)                                            
            4.3T2    18  ASMH.PEXIT_TEST.SA.068             1 LINE     72    1 PAGE UM   MTA                 APR. 06, 1980  13:06:52
0          SAMPLE PEXIT SUBROUTINE WHICH WRITES ITS PARAMETERS AND LINE AS UNIT 19.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00737/069A *ASMH                     PEXIT TEST      OC  G          MTA:ASMH.PEXIT(1,999)                                           
            4.3T2    19  ASMH.PEXIT_TEST.OC.069             1 LINE     80    1 PAGE UM   MTA                 APR. 06, 1980  13:06:54
00737/070A *ASMH                     TEST PGM #37    SA  G          MTA:ASMHT37                                                     
            4.3T2    20  ASMH.TEST_PGM_#37.SA.070           1 LINE     47    1 PAGE UM   MTA                 APR. 06, 1980  13:06:57
0          TEST "_" AS AN ALPHEBETIC CHARACTER
00737/071A *ASMH                     TEST PGM #38    SA  G          MTA:ASMHT38                                                     
            4.3T2    21  ASMH.TEST_PGM_#38.SA.071           1 LINE     72    1 PAGE UM   MTA                 APR. 06, 1980  13:06:59
0          TEST CHANGES TO PASS 2 UNDEFINED SYMBOL PROCESSING
00737/072A *ASMH                     TEST PGM #39    SA  G          MTA:ASMHT39                                                     
            4.3T2    22  ASMH.TEST_PGM_#39.SA.072           1 LINE     71    3 PAGE UM   MTA                 APR. 06, 1980  13:07:01
0          TEST RELOCATABLE AND QUALIFIED USINGS
00737/073A *ASMH                     TEST PGM #40    SA  G          MTA:ASMHT40                                                     
            4.3T2    23  ASMH.TEST_PGM_#40.SA.073           1 LINE     64    2 PAGE UM   MTA                 APR. 06, 1980  13:07:04
0          TEST PASS2 ERRORS
00737/074  *ASMH                     CALLER          SA  G          MTA:ASMHCALLER(1,999)                                           
            D4.1T1  628  ASMH.CALLER.SA.060                 1 LINE     67    1 PAGE UM   MTA                 MAY  13, 1978  18:27:36
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
            D4.1T1  629  ASMH.CALLER.OC.061                 1 LINE     80    1 PAGE UM   MTA                 MAY  13, 1978  18:27:37
00738/001A *MACUTIL                  SOURCE          SA  G          LBT:MACUTIL.S                                                   
            4.3T2    24  MACUTIL.SOURCE.SA.001              1 LINE     73   93 PAGE UM   TIFFANY             APR. 06, 1980  13:07:06
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/6).  COMMANDS TO ASSEMBLE ARE AT NEGATIVE LINE 
           NUMBERS.  ASSEMBLE USING THE MACUTIL MACROS (738/7).  COPIES *GDINFODSECT
           (594) AND *CNFGINFODSECT (654).  THE SYSTEM PARAMETERS MAY BE SPECIFIED
           IN THE ASSEMBLY PARAMETER SYSPARM, E.G., 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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00738/002A *MACUTIL                  OBJECT          OE  G          *MACUTIL                                                        
            4.3T2    25  MACUTIL.OBJECT.OE.002              1 LINE  12944   11 PAGE UM   TIFFANY             APR. 06, 1980  13:07:17
                         *MACUTIL             
0          CONTAINS EDITOR EST SUBROUTINE (648/6). 
00738/003  *MACUTIL                  WRITEUP         WT             W062:MACUTIL.W                                                  
            D4.1T1  632  MACUTIL.WRITEUP.WT.003             1 LINE    124   13 PAGE UM   TIFFANY             MAY  13, 1978  18:27:48
00738/004  *MACUTIL                  GENEXPLAIN      SS  G          W062:GENEXPLAIN.S                                               
            D4.1T1  633  MACUTIL.GENEXPLAIN.SS.004          1 LINE     90    3 PAGE UM   TIFFANY             MAY  13, 1978  18:27:52
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                                                 
            D4.1T1  634  MACUTIL.GENEXPLAIN.OE.005          1 LINE  18216    9 PAGE UM   TIFFANY             MAY  13, 1978  18:27:53
0          SPITBOL OBJECT FOR GENEXPLAIN.
00738/006  *MACUTIL                  EXPLAIN         M              ETC:MACUTILEXP                                                  
            D4.1T1  635  MACUTIL.EXPLAIN.M.006              1 LINE     75   15 PAGE UM   TIFFANY             MAY  13, 1978  18:27:54
                         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:OLD.MACUMAC                                                
            4.3T2    26  MACUTIL.MACLIB.SM.007              1 LINE     73   16 PAGE UM   TIFFANY             APR. 06, 1980  13:07:20
0          MACRO LIBRARY FOR *MACUTIL.
0          Referenced by comments of: 738/1 
00739/001A *LOGPURGE                                 SG  G          S0027 DISTRB FSNAME=LOGPURGE                                    
            4.3T2    27  LOGPURGE..SG.001                   1 LINE    111    3 PAGE UM   ENGLE               FEB. 20, 1980  12:12:24
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 STARTING WITH 3/1/0, TO BE IN A FIXED POSITION IN
           EACH RECORD.  SEE SOURCE FOR RUN INSTRUCTIONS.
0          Referenced by comments of: 104/156 
00739/002C *LOGPURGE                                 UC  G          S0027 DISTRB FSNAME=LOGPURGEUPD                                 
            4.3T2    28  LOGPURGE..UC.002                   1 LINE    111    1 PAGE UM   ENGLE               FEB. 20, 1980  12:12:31
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00739/003A *LOGPURGE                                 OC  G          S0027 DISTRB FSNAME=LOGP                                        
            4.3T2    29  LOGPURGE..OC.003                   1 LINE     80    4 PAGE UM   ENGLE               FEB. 20, 1980  12:12:37
00739/004A *LOGPURGE                                 OE  G          NEW:LOGPURGE                                                    
            4.3T2    30  LOGPURGE..OE.004                   1 LINE   2868    2 PAGE UM   ENGLE               APR. 06, 1980  13:09:23
                         NEW:LOGPURGE         
0          LINKEDITED COMBINATION OF 739/1 AND *LCS (164).
00740/001A *CKSIG                                    SG  G          S0027 DISTRB FSNAME=CKSIG                                       
            4.3T2    31  CKSIG..SG.001                      1 LINE     78    8 PAGE UM   ENGLE               MAR. 17, 1980  13:57:32
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.
00740/002C *CKSIG                                    UC  G          S0027 DISTRB FSNAME=CKSIGUPD                                    
            4.3T2    32  CKSIG..UC.002                      1 LINE     72    4 PAGE UM   ENGLE               MAR. 17, 1980  13:57:36
0          UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION.
00740/003A *CKSIG                                    OC  G          S0027 DISTRB FSNAME=CKSG                                        
            4.3T2    33  CKSIG..OC.003                      1 LINE     80   14 PAGE UM   ENGLE               MAR. 17, 1980  13:58:03
00740/004A *CKSIG                                    OE  G          NEW:CKSIG                                                       
            4.3T2    34  CKSIG..OE.004                      1 LINE   8804    6 PAGE UM   ENGLE               APR. 06, 1980  13:09:40
                         NEW:CKSIG            
0          LINKEDITED COMBINATION OF 740/1 AND *LCS (164).
00741/001   MTS VOLUME 16            MASTER          WT             S1163 MTSV16 'MTS MANUALS' POSN=NEWM2.V16                       
            D4.2T1  764  MTS_VOLUME_16.MASTER.WT.001        1 SEQ     132  147 PAGE UM   MANUAL              APR. 02, 1979  01:00:05
0          TEXT/360 MASTER FOR VOLUME 16 "ALGOL W IN MTS" OF THE UM MTS 
           MANUALS (AUGUST 1978, UPDATED FEBRUARY 1979).
00741/002   MTS VOLUME 16            PRINT           PT             S1163 MTSV16 'MTS MANUALS' POSN=PRINT2.V16                      
            D4.2T1  765  MTS_VOLUME_16.PRINT.PT.002         1 SEQ     132  275 PAGE UM   MANUAL              APR. 02, 1979  01:00:17
0          TEXT/360 PRINT FILE.
00741/003   MTS VOLUME 16            INDEX SOURCE    D              S1163 MTSV16 'MTS MANUALS' POSN=V16INDEXSOU                     
            D4.2T1  766  MTS_VOLUME_16.INDEX_SOURC.D.003    1 SEQ      62    7 PAGE UM   MANUAL              APR. 02, 1979  01:00:32
0          INPUT TO *INDEX (580) FOR INDEX TO VOLUME 16.
00741/004   MTS VOLUME 16            UPDATE 1        PT             W073:TNLV16.FEB79                                               
            D4.2T1  767  MTS_VOLUME_16.UPDATE_1.PT.004      1 LINE    106   37 PAGE UM   MANUAL              APR. 02, 1979  01:00:33
0          THIS IS COMPUTING CENTER MEMO 400 -- "UPDATE 1 TO MTS VOLUME 16," 
           (FEBRUARY 1979).  $COPY TO A TN PRINTER USING THE @MCC MODIFIER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00742/001   TAPE DIRECTORY           MAIN PGM        SG  G          W044:TAPEDIR.S                                                  
            D4.2T1  768  TAPE_DIRECTORY.MAIN_PGM.SG.001     1 LINE    130   15 PAGE UM   SALISBURY           APR. 02, 1979  01:00:36
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 
00742/002   TAPE DIRECTORY           KWFCN FUNCTION  SG  G          W044:TAPEDIR.SF                                                 
            D4.2T1  769  TAPE_DIRECTORY.KWFCN_FUNC.SG.002   1 LINE     90    3 PAGE UM   SALISBURY           APR. 02, 1979  01:00:51
0          SOURCE FOR THE KWSCAN FUNCTION, "KWFCN".
00742/003   TAPE DIRECTORY           DIRECTORY FUNC  SG  G          W044:DIRLIB.S                                                   
            D4.2T1  770  TAPE_DIRECTORY.DIRECTORY.SG.003    1 LINE    126   14 PAGE UM   SALISBURY           APR. 02, 1979  01:00:51
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).
00742/004A  TAPE DIRECTORY           OBJECT          OC  G          SYS:DIRPROGRAM                                                  
            4.3T2    35  TAPE_DIRECTORY.OBJECT.OC.004       1 LINE     80   28 PAGE UM   SALISBURY           APR. 06, 1980  13:09:41
                         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                                                      
            D4.2T1  772  TAPE_DIRECTORY.DIRECTORY.OC.005    1 LINE     80   18 PAGE UM   SALISBURY           APR. 02, 1979  01:01:09
                         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.
0          Referenced by comments of: 50/4, 742/4, 753/4 
00742/006   TAPE DIRECTORY           WRITEUP         WT             W044:DIR.WRITEUP                                                
            D4.2T1  773  TAPE_DIRECTORY.WRITEUP.WT.006      1 LINE     93   15 PAGE UM   SALISBURY           APR. 02, 1979  01:01:10
0          DESCRIPTION OF THE TAPE DIRECTORY PROGRAM AND FUNCTIONS.
00742/007   TAPE DIRECTORY           WRITEUP         PT             W044:DIR.PRINT                                                  
            D4.2T1  774  TAPE_DIRECTORY.WRITEUP.PT.007      1 LINE    132   31 PAGE UM   SALISBURY           APR. 02, 1979  01:01:12
0          LINE PRINTER OUTPUT FOR 742/6.  COPY TO A TN PRINTER @MCC.
00743       HARDWARE CONFIG PLOT                     SF  G  CNFG    W032:CONFIGPLOT                                                 
            D4.2T1  775  HARDWARE_CONFIG_PLOT..SF.001       1 LINE     80   49 PAGE UM   EMERY               APR. 02, 1979  01:01:15
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 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          WISHING TO USE THIS PROGRAM WILL HAVE TO MODIFY AND RECOMPILE IT TO SUIT THE 
           LOCAL CONFIGURATION.
00744/001A  DAVE.GENLIB              MAIN            S*  O          W234:BLD.DAVE.SNO                                               
            4.3T2    36  DAVE.GENLIB.MAIN.S*.001            1 LINE     93    5 PAGE UM   BRILL               APR. 06, 1980  13:09:43
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.
            
           **********************************************************************************
           D4.3 CHANGES:
            
           CHANGED TO FIX BUG.
           **********************************************************************************
00744/002A  DAVE.GENLIB              ASM SUBRS       SA  O          W234:BLD.DAVE.ASM                                               
            4.3T2    37  DAVE.GENLIB.ASM_SUBRS.SA.002       1 LINE     67    1 PAGE UM   BRILL               APR. 06, 1980  13:09:46
0          ASSEMBLY LANGUAGE SUBROUTINES.  THIS FILE ALSO CONTAINS COMMANDS TO 
           ASSEMBLE IT.
00744/003A  DAVE.GENLIB              FTN SUBRS       SF  O          W234:BLD.DAVE.FTN                                               
            4.3T2    38  DAVE.GENLIB.FTN_SUBRS.SF.003       1 LINE     81    3 PAGE UM   BRILL               APR. 06, 1980  13:09:48
0          FORTRAN LANGUAGE SUBROUTINES.  THIS FILE ALSO CONTAINS THE COMMANDS TO
           COMPILE IT.
00744/004A  DAVE.GENLIB              SUBR LIB        OL  O          W234:BLD.DAVE.LIB                                               
            4.3T2    39  DAVE.GENLIB.SUBR_LIB.OL.004        1 LINE   1424    4 PAGE UM   BRILL               APR. 06, 1980  13:09:51
0          OBJECT OF 744/2 AND 744/3.
00744/005A  DAVE.GENLIB              *DAVE.GENLIB    OE  O          *DAVE.GENLIB                                                    
            4.3T2    40  DAVE.GENLIB.*DAVE.GENLIB.OE.005    1 LINE     80   16 PAGE UM   BRILL               APR. 06, 1980  13:09:53
                         *DAVE.GENLIB         
0          OBJECT OF 744/1, 744/2, AND 744/3.
           HAS A $CONTINUE WITH *SPITLIB RECORD.
            
           **********************************************************************************
           D4.3 CHANGES:
            
           REASSEMBLED WITH CHANGED 744/1.
           **********************************************************************************
0          Referenced by comments of: 744/6, 744/7 
00744/006A  DAVE.GENLIB              *LIBRARY DESCR  D              W234:VOL-3.DESCRI                                               
            4.3T2    41  DAVE.GENLIB.*LIBRARY_DESC.D.006    1 LINE     74   12 PAGE UM   BRILL               APR. 06, 1980  13:09:56
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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          ALL OF THE FORTRAN-CALLABLE SUBROUTINES IN *LIBRARY (524/1).
00744/007A  DAVE.GENLIB              DAVE.EXT        D              ETC:DAVE.EXT                                                    
            4.3T2    42  DAVE.GENLIB.DAVE.EXT.D.007         1 LINE   2660    7 PAGE UM   BRILL               APR. 06, 1980  13:09:59
                         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/008A  DAVE.GENLIB              MEMO 402        WF             S1024 CCMEMO 'DOCUMENT' FSNAME=M402DAVE.GENLIB                  
            4.3T2    43  DAVE.GENLIB.MEMO_402.WF.008        1 LINE     70    3 PAGE UM   BRILL               JULY 13, 1979  11:27:39
0          THIS IS COMPUTING CENTER MEMO 402 -- "*DAVE.GENLIB".
00745/001  *LALRGEN                                  SP  G          S1228 LALR 'LALRGEN' FSNAME=LALRGEN.S                           
            D4.2T1  776  LALRGEN..SP.001                    1 LINE     85   31 PAGE UM   BODWIN              FEB. 13, 1979  10:21:49
0          SOURCE FOR AN LALR(1) PARSE TABLE GENERATOR. COMPILE WITH 
           PAR=SORMGIN=(2,72,1),MACRO.
0          Referenced by comments of: 1042/86 
00745/002  *LALRGEN                                  OE  G          *LALRGEN                                                        
            D4.2T1  777  LALRGEN..OE.002                    1 LINE  32767   19 PAGE UM   BODWIN              APR. 02, 1979  01:02:01
                         *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                                                  
            4.3T2    44  COMPARE..SA.001                    1 LINE    142   36 PAGE UM   TIFFANY             APR. 06, 1980  13:11:53
0          A FAST COMPARISON PROGRAM.  ASSEMBLE USING MACROS IN ORDER:  THE PEXIT MACROS
           (775/2), THE COMPARE MACROS (746/3), OBJUTIL MISCELLANEOUS MACROS (721/14),
           AND OBJUTIL DCI MACROS (721/15) WITH PEXIT=W067:PEXIT (775/3). COPIES
           *GDINFODSECT (594).  THIS PROGRAM MAY BE INCORPORATED INTO *APC (496) IN
           THE FUTURE.
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           PCEQ CHANGED FROM 1% TO 25%.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00746/002A  COMPARE                                  OE  G          W062:COMPARE                                                    
            4.3T2    45  COMPARE..OE.002                    1 LINE  12948   11 PAGE UM   TIFFANY             APR. 06, 1980  13:12:05
                         UNSP:COMPARE         
00746/003A  COMPARE                  PROC.MAC        SM  G          W062:PROC.MAC                                                   
            4.3T2    46  COMPARE.PROC.MAC.SM.003            1 LINE     73   13 PAGE UM   TIFFANY             APR. 06, 1980  13:12:07
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/004A  COMPARE                  WRITEUP         WF             W062:COMPARE.W1                                                 
            4.3T2    47  COMPARE.WRITEUP.WF.004             1 LINE    104    3 PAGE UM   TIFFANY             APR. 06, 1980  13:12:17
0          WRITEUP DESCRIBING THE COMPARE PROGRAM.
00747/001A  SIDELABEL                                S   G          S0701 RD16T1 VLO FSNAME=SIDELABEL..S.001(1)                  243
            4.3T2    48  SIDELABEL..S.001                   1 LINE     88    3 PAGE UM   BODWIN              JULY 12, 1979  23:17:44
0          OVERDRIVE SOURCE FOR SIDELABEL, A PROGRAM TO LABEL THE EDGE OF PRINTOUTS.
00747/002A  SIDELABEL                                SF  G          S0701 RD16T1 VLO FSNAME=SIDELABEL..SF.002(1)                 244
            4.3T2    49  SIDELABEL..SF.002                  1 LINE     72    3 PAGE UM   BODWIN              JULY 12, 1979  23:17:46
0          FORTRAN SOURCE FOR SIDELABEL.
00747/003A  SIDELABEL                                OC  G          S0701 RD16T1 VLO FSNAME=SIDELABEL..OC.003(1)                 245
            4.3T2    50  SIDELABEL..OC.003                  1 LINE   2290    2 PAGE UM   BODWIN              JULY 12, 1979  23:17:46
0          OBJECT OF 747/1 AND 747/2.
00748/001   INTRO GUIDE: MTS                         WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.SOU                   
            D4.2T1  781  INTRO_GUIDE:_MTS..WF.001           1 LINE    154  132 PAGE UM   MANUAL              SEP. 11, 1978  19:58:08
0          FORMAT SOURCE FOR "INTRODUCTION TO MTS" (SEPTEMBER 1978).
00748/002   INTRO GUIDE: MTS                         PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.OUT                   
            D4.2T1  782  INTRO_GUIDE:_MTS..PF.002           1 LINE     81  184 PAGE UM   MANUAL              SEP. 11, 1978  19:58:23
0          FORMAT PRINT FILE.
00748/003   INTRO GUIDE: MTS         INDEX           D              S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.INDEXSOU              
            D4.2T1  783  INTRO_GUIDE:_MTS.INDEX.D.003       1 LINE    140   14 PAGE UM   MANUAL              SEP. 11, 1978  19:59:09
0          INPUT TO *INDEX (580) FOR THE INDEX TO "INTRODUCTION TO MTS."
00749/001A  MACSCAN                                  SA  G          W062:MACSCAN.S                                                  
            4.3T2    51  MACSCAN..SA.001                    1 LINE     74   17 PAGE UM   UNSP      TIFFANY   APR. 06, 1980  13:14:43
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 *OBJUTIL MACROS 721/14 AND 721/15, AND THE *PEXIT MACROS (775/2).
           COPIES *GDINFODSECT (594).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 528/37 
00749/002A  MACSCAN                                  OE  G          UNSP:MACSCAN                                                    
            4.3T2    52  MACSCAN..OE.002                    1 LINE   5698    6 PAGE UM   UNSP      TIFFANY   APR. 06, 1980  13:15:00
                         UNSP:MACSCAN         
00749/003A  MACSCAN                  360 INSTS       D              UNSP:MACSCAN.360                                                
            4.3T2    53  MACSCAN.360_INSTS.D.003            1 LINE     74    1 PAGE UM   UNSP      TIFFANY   APR. 06, 1980  13:15:02
                         UNSP:MACSCAN.360     
0          A LIST OF 360 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           1) ADDED SOME ASMH (737) PSEUDO-OPS.
           2) EXTENDED BRANCH INSTRUCTIONS, SUCH AS BEQ, ETC. ADDED.
           *****************************************************************************
00749/004A  MACSCAN                  370 INSTS       D              UNSP:MACSCAN.370                                                
            4.3T2    54  MACSCAN.370_INSTS.D.004            1 LINE     74    1 PAGE UM   UNSP      TIFFANY   APR. 06, 1980  13:15:04
                         UNSP:MACSCAN.370     
0          A LIST OF 370 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           1) ADDED SOME ASMH (737) PSEUDO-OPS.
           2) EXTENDED BRANCH INSTRUCTIONS, SUCH AS BEQ, ETC. ADDED.
           *****************************************************************************
00749/005A  MACSCAN                  WRITEUP         WF             W062:MACSCAN.W                                                  
            4.3T2    55  MACSCAN.WRITEUP.WF.005             1 LINE     81    1 PAGE UM   UNSP      TIFFANY   APR. 06, 1980  13:15:07
0          FORMAT SOURCE FOR MACSCAN WRITEUP.
00750/001   XREF                                     SS  O          S0684 UNSP FSNAME=XREF.S                                        
            D4.2T1  789  XREF..SS.001                       1 LINE    101    3 PAGE UBC  BALLARD   UNSP      DEC. 20, 1978  23:16:56
0          A GENERAL CROSS REFERENCE PROGRAM WRITTEN AT UBC.  AT UM, THIS PROGRAM IS
           CLASSIFIED AS UNSUPPORTED SOFTWARE.
00750/002   XREF                                     OC  O          UNSP:XREF                                                       
            D4.2T1  790  XREF..OC.002                       1 LINE     80    7 PAGE UBC  BALLARD   UNSP      APR. 02, 1979  01:02:52
                         UNSP:XREF            
0          HAS A $CONTINUE WITH *SPITLIB CARD.
00751/001   ILLBEBACK                                SG  G          S0684 UNSP FSNAME=ILLBEBACK.S                                   
            D4.2T1  791  ILLBEBACK..SG.001                  1 LINE     76    1 PAGE UM   UNSP                JAN. 02, 1979  17:18:11
0          PROGRAM TO LOCK A TERMINAL SESSION.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00751/002   ILLBEBACK                                OC  G          UNSP:ILLBEBACK                                                  
            D4.2T1  792  ILLBEBACK..OC.002                  1 LINE     80    1 PAGE UM   UNSP                APR. 02, 1979  01:02:54
                         UNSP:ILLBEBACK       
00751/003   ILLBEBACK                WRITEUP         WF             S0684 UNSP FSNAME=ILLBEBACK.F                                   
            D4.2T1  793  ILLBEBACK.WRITEUP.WF.003           1 LINE     67    1 PAGE UM   UNSP                JAN. 09, 1979  16:52:07
00752/001   HASP LOG                 COLLECTION PGM  SA  O          W116:HSP.COLLCT.S                                               
            D4.2T1  794  HASP_LOG.COLLECTION_PGM.SA.001     1 LINE     75   39 PAGE UM   UNSP      H YOUNG   APR. 02, 1979  01:06:14
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,
           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 
00752/002   HASP LOG                 COLLECTION PGM  OC  O          SYS:HLOG                                                        
            D4.2T1  795  HASP_LOG.COLLECTION_PGM.OC.002     1 LINE     80   16 PAGE UM   UNSP      H YOUNG   APR. 02, 1979  01:08:15
00752/003A  HASP LOG                 *HLG            C              *HLG                                                            
            4.3T2    56  HASP_LOG.*HLG.C.003                1 LINE     36    1 PAGE UM   UNSP      H YOUNG   APR. 06, 1980  13:15:09
0          COMMAND FILE TO RUN THE HASP LOG COLLECTION PROGRAM (752/1).  INVOKED BY
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          ENTERING "MTS *HLG" ON THE OPERATOR'S CONSOLE.
00752/004   HASP LOG                 RETRIEVAL PGM   SA  O          W116:HSP.RETRIV.S                                               
            D4.2T1  797  HASP_LOG.RETRIEVAL_PGM.SA.004      1 LINE     73   28 PAGE UM   UNSP      H YOUNG   APR. 02, 1979  01:10:01
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). 
00752/005   HASP LOG                 RETRIEVAL PGM   OC  O          UNSP:HASPLOG                                                    
            D4.2T1  798  HASP_LOG.RETRIEVAL_PGM.OC.005      1 LINE    280   11 PAGE UM   UNSP      H YOUNG   APR. 02, 1979  01:10:04
0          REFERENCES IN COPY:SYSDEFS (579/3) MUST BE APPENDED TO THE END.
00752/006   HASP LOG                 RETRIEVAL DOC   P              UNSP:HASPLOG.W                                                  
            D4.2T1  799  HASP_LOG.RETRIEVAL_DOC.P.006       1 LINE     77    3 PAGE UM   UNSP      H YOUNG   APR. 02, 1979  01:10:05
0          WRITEUP DESCRIBING THE USE OF THE RETRIEVAL PROGRAM.
00752/007   HASP LOG                 MACRO LIB       SM  G          W116:HSP.MACLIB                                                 
            D4.2T1  800  HASP_LOG.MACRO_LIB.SM.007          1 LINE     72   13 PAGE UM   UNSP      H YOUNG   APR. 02, 1979  01:10:06
0          MACRO LIBRARY USED BY 752/1 AND 752/4.
0          Referenced by comments of: 752/1, 752/4 
00753/001   SCAN                     MAIN PGM        SA  O          W030:SCAN                                                       
            D4.2T1  801  SCAN.MAIN_PGM.SA.001               1 LINE     69   10 PAGE UM   LIFT                APR. 02, 1979  01:10:08
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/18).  ASSEMBLE USING COPY:MTS.MACROS (344/3) AND
           WITH 2=W030:SCANDS (753/5).
0          Referenced by comments of: 707/1, 753/4 
00753/002   SCAN                     CSTAT SUBR      SA  O          W030:CSTAT(1,999)                                               
            D4.2T1  802  SCAN.CSTAT_SUBR.SA.002             1 LINE     67    4 PAGE UM   LIFT                APR. 02, 1979  01:10:13
0          SUBROUTINE FOR SCAN TO HANDLE THE STA COMMAND.  ASSEMBLE WITH
           2=W030:SCANDS (753/5).
0          Referenced by comments of: 753/4 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00753/003   SCAN                     CCOPY SUBR      SA  O          W030:CCOPY(1,999)                                               
            D4.2T1  803  SCAN.CCOPY_SUBR.SA.003             1 LINE     69    5 PAGE UM   LIFT                APR. 02, 1979  01:10:14
0          SUBROUTINE FOR SCAN TO HANDLE COPY AND LIST COMMANDS.
            
           ASSEMBLE USING COPY:MTS.MACROS (344/3) AND WITH 2=W030:SCANDS (753/5).
           COPIES COPY:CMDAREADSECT (531/18).
0          Referenced by comments of: 753/4 
00753/004   SCAN                     OBJECT          OC  O          W030:SCANX                                                      
            D4.2T1  804  SCAN.OBJECT.OC.004                 1 LINE     80   11 PAGE UM   LIFT                APR. 02, 1979  01:10:15
0          OBJECT OF SCAN MAIN PROGRAM (753/1) CSTAT SUBROUTINE (753/2),
           LISTSTAT (71/1), CCOPY SUBROUTINE (753/3), AND JVCT SUBROUTINE (674/1).
           HAS A $CONTINUE WITH SYS:DIRLIB RETURN (742/5) RECORD.
00753/005   SCAN                     MACRO LIBRARY   SM  O          W030:SCANDS                                                     
            D4.2T1  805  SCAN.MACRO_LIBRARY.SM.005          1 LINE     70    1 PAGE UM   LIFT                APR. 02, 1979  01:10:16
0          MACRO LIBRARY USED BY 753/1, 753/2, AND 753/3.
0          Referenced by comments of: 753/1, 753/2, 753/3 
00753/006   SCAN                     WRITEUP         WX             W030:SCAN.W(1,999)                                              
            D4.2T1  806  SCAN.WRITEUP.WX.006                1 LINE     80    4 PAGE UM   LIFT                APR. 02, 1979  01:10:17
0          WRITEUP FOR SCAN.  DESCRIBES ONLY WHAT'S ACTUALLY IMPLEMENTED.
00753/007   SCAN                     WRITEUP         PX             W030:SCAN.W(1000)                                               
            D4.2T1  807  SCAN.WRITEUP.PX.007                1 LINE     76    5 PAGE UM   LIFT                APR. 02, 1979  01:10:18
00754/001   F8ASR                                    SF  O          S0684 UNSP FSNAME=F8ASR.S                                       
            D4.2T1  808  F8ASR..SF.001                      1 LINE     79   25 PAGE UM   UNSP                JUNE 23, 1978  20:42:24
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                                                      
            D4.2T1  809  F8ASR..OE.002                      1 LINE  11980    7 PAGE UM   UNSP                APR. 02, 1979  01:10:35
                         UNSP:F8ASR           
00754/003   F8ASR                                    WF             S1319 D4.2T1 VLO FSNAME=F8ASR..WF.003(1)                     810
            D4.2T1  810  F8ASR..WF.003                      1 LINE    143   10 PAGE UM   UNSP                APR. 02, 1979  01:10:36
0          THIS IS THE "MOSTEK F8 MICROPROCESSOR SOFTWARE SUPPORT
           OPERATIONS MANUAL: FORTRAN IV CROSS ASSEMBLER" (10 PAGES).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00755/001   UM FEP HARDWARE          LAM PGM         S   G          W051:LAM                                                        
            D4.2T1  811  FEP_HARDWARE.LAM_PGM.S.001         1 LINE     81   25 PAGE UM   GOEN                APR. 02, 1979  01:10:41
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                                
            D4.2T1  812  FEP_HARDWARE.LAM_DESC.WF.002       1 LINE    120   36 PAGE UM   GOEN                JAN. 17, 1979  10:02:27
0          MANUAL DESCRIBING LAM HARDWARE AND PROGRAM.
00755/003   UM FEP HARDWARE          CHAN XFACE PGM  S   G          W051:11-360IF                                                   
            D4.2T1  813  FEP_HARDWARE.CHAN_XFACE_P.S.003    1 LINE     87   10 PAGE UM   GOEN                APR. 02, 1979  01:12:53
0          MICROPROGRAM FOR 360-CHANNEL-TO-PDP-11-INTERFACE.  ASSEMBLE USING *11ASR (515).
00755/004   UM FEP HARDWARE          CHAN XFACE MAN  WF             S0767 'SAVETAPE' FSNAME=360MANUAL                               
            D4.2T1  814  FEP_HARDWARE.CHAN_XFACE_M.WF.004   1 LINE    156   64 PAGE UM   GOEN                MAR. 07, 1974  08:55.40
0          MANUAL DESCRIBING CHANNEL INTERFACE PROGRAM.
00756/001A  ONTEL SOFTWARE           OP/MCP          S   G          CRT:OPSOU                                                       
            4.3T2    57  ONTEL_SOFTWARE.OP/MCP.S.001        1 LINE    189   71 PAGE UM   CASHMAN             APR. 06, 1980  13:15:11
0          SOURCE FOR THE UM ONTEL TERMINAL MICROPROCESS SOFTWARE.  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/20).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00756/002C  ONTEL SOFTWARE           KENOBI          S   G          CRT:KENOBI                                                      
            4.3T2    58  ONTEL_SOFTWARE.KENOBI.S.002        1 LINE    117   31 PAGE UM   CASHMAN             APR. 06, 1980  13:15:20
0          SOURCE FOR THE ONTEL DEBUGGING MONITOR.  THE FOLLOWING ARE CONDITIONAL
           ASSEMBLY PARAMETERS:
            
              1) OPTION='ROM' -- TO RUN IN ROM MEMORY
                 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/003A  ONTEL SOFTWARE           USER'S GUIDE    P              CRT:OP/MTS.MAN                                                  
            4.3T2    59  ONTEL_SOFTWARE.USER'S_GUI.P.003    1 LINE    133   36 PAGE UM   CASHMAN             APR. 06, 1980  13:15:23
00756/004C  ONTEL SOFTWARE           MEMO 415        WX             S0672 CCMEMO 'CCMEMOS' FSNAME=M415.TEXT                         
            4.3T2    60  ONTEL_SOFTWARE.MEMO_415.WX.004     1 LINE     92   10 PAGE UM   HARTMAN             MAR. 26, 1980  09:41:24
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 P. 15 FF.  REQUIRES OTHER HAND INSERTED DIAGRAMS, WHICH MAY
           BE OBTAINED FROM THE COMPUTING CENTER PUBLICATIONS OFFICE.
00756/005C  ONTEL SOFTWARE           MEMO 415        P              S0672 CCMEMO 'CCMEMOS' FSNAME=M415.TABLES                       
            4.3T2    61  ONTEL_SOFTWARE.MEMO_415.P.005      1 LINE     81    5 PAGE UM   HARTMAN             MAR. 26, 1980  09:47:11
0          CONTAINS DIAGRAM TO BE INSERTED ON P. 15 FF. OF 756/4.
00757/001   SPITPAR                                  SA  G          S0684 UNSP FSNAME=SPITPAR.S                                     
            D4.2T1  817  SPITPAR..SA.001                    1 LINE     72    1 PAGE UM   UNSP      SHERRY    JAN. 19, 1979  00:39:56
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/13, 721/14, AND 721/15).
00757/002   SPITPAR                                  OC  G          UNSP:SPITPAR                                                    
            D4.2T1  818  SPITPAR..OC.002                    1 LINE     80    1 PAGE UM   UNSP      SHERRY    APR. 02, 1979  01:15:57
                         UNSP:SPITPAR         
0          HAS A $CONTINUE WITH *SPITLIB CARD.
0          Referenced by comments of: 410/3, 410/4 
00758/001A  SOFTCHK                                  SA  G          MTA:SOFTCHK(1,999)                                              
            4.3T2    62  SOFTCHK..SA.001                    1 LINE     72    3 PAGE UM   MTA                 APR. 06, 1980  13:18:56
                         MTA:SOFTCHK          
0          SOFTCHK JOB PROGRAM TO ENABLE OR DISABLE SOFT MACHINE CHECKS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00758/002A  SOFTCHK                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00759/001   G11 JOB                                  SA  G          S0938 FSAVE2 VLO FSNAME=G11.S                                   
            D4.2T1  820  G11_JOB..SA.001                    1 LINE     61    2 PAGE UM   MTA                 FEB. 10, 1979  16:50:08
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 1/2 INCH
           PAPER.
            
00759/002   G11 JOB                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00760/001   BENCHMARK - BATCH        SCR             C              BNCH:BATCH.SCR                                                  
            D4.2T2    1  BENCHMARK_-_BATCH.SCR.C.001        1 LINE     76    1 PAGE UQV            OGDEN     APR. 02, 1979  01:23:45
                         BNCH:BATCH.SCR       
0          MTS COMMAND FILE TO RUN A BATCH BENCHMARK.
00760/002   BENCHMARK - BATCH        BATCH SUBMIT    SF  O          BNCH:SUBMIT.S                                                   
            D4.2T2    2  BENCHMARK_-_BATCH.BATCH_S.SF.002   1 LINE     80    4 PAGE UQV            OGDEN     APR. 02, 1979  01:23:46
                         BNCH:SUBMIT.S        
0          PROGRAM TO SUBMIT JOBS TO *BATCH* OR SOME OTHER FDNAME OPTIONALLY MAKING 
           MODIFICATIONS TO THE SIGNON COMMANDS. 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/003   BENCHMARK - BATCH        SUBMIT          OC  O          BNCH:SUBMIT                                                     
            D4.2T2    3  BENCHMARK_-_BATCH.SUBMIT.OC.003    1 LINE    240    3 PAGE UQV            OGDEN     APR. 02, 1979  01:23:46
                         BNCH:SUBMIT          
00760/004   BENCHMARK - BATCH        BATCH DRIVER    D              BNCH:DRIVER                                                     
            D4.2T2    4  BENCHMARK_-_BATCH.BATCH_D.D.004    1 LINE     26    1 PAGE UQV            OGDEN     APR. 02, 1979  01:23:47
                         BNCH:DRIVER          
0          SAMPLE DRIVER FILE FOR BATCH SUBMIT PROGRAM (760/2).
00760/005   BENCHMARK - BATCH        BM00 JOB        C              BNCH:BM00                                                       
            D4.2T2    5  BENCHMARK_-_BATCH.BM00_JO.C.005    1 LINE    136    2 PAGE UQV            OGDEN     APR. 02, 1979  01:23:48
                         BNCH:BM00            
0          BATCH JOB THAT CAN BE SUBMITTED USING SUBMIT (760/2).  ONCE KNOWN AS SUN OR SUP.
00760/006   BENCHMARK - BATCH        BM00 DATA       D              BNCH:ADEPT.F                                                    
            D4.2T2    6  BENCHMARK_-_BATCH.BM00_DA.D.006    1 LINE     77   19 PAGE UQV            OGDEN     APR. 02, 1979  01:23:48
                         BNCH:ADEPT.F         
0          DATA FILE USED BY BM00 JOB.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00760/007   BENCHMARK - BATCH        BM00 DATA       D              BNCH:AX                                                         
            D4.2T2    7  BENCHMARK_-_BATCH.BM00_DA.D.007    1 LINE    240    1 PAGE UQV            OGDEN     APR. 02, 1979  01:23:50
                         BNCH:AX              
0          DATA FILE USED BY BM00 JOB.
00760/008   BENCHMARK - BATCH        BM00 DATA       D              BNCH:CHOLX                                                      
            D4.2T2    8  BENCHMARK_-_BATCH.BM00_DA.D.008    1 LINE     80    9 PAGE UQV            OGDEN     APR. 02, 1979  01:23:51
                         BNCH:CHOLX           
0          DATA FILE USED BY BM00 JOB.
00760/009   BENCHMARK - BATCH        BM00 DATA       D              BNCH:CX                                                         
            D4.2T2    9  BENCHMARK_-_BATCH.BM00_DA.D.009    1 SEQ      80    2 PAGE UQV            OGDEN     APR. 02, 1979  01:23:52
                         BNCH:CX              
0          DATA FILE USED BY BM00 JOB.
00760/010   BENCHMARK - BATCH        BM00 DATA       D              BNCH:ELASTODATA                                                 
            D4.2T2   10  BENCHMARK_-_BATCH.BM00_DA.D.010    1 LINE     80    1 PAGE UQV            OGDEN     APR. 02, 1979  01:23:52
                         BNCH:ELASTODATA      
0          DATA FILE USED BY BM00 JOB.
00760/011   BENCHMARK - BATCH        BM00 DATA       D              BNCH:ELASTOPLAST                                                
            D4.2T2   11  BENCHMARK_-_BATCH.BM00_DA.D.011    1 SEQ   28240   39 PAGE UQV            OGDEN     APR. 02, 1979  01:23:53
                         BNCH:ELASTOPLAST     
0          DATA FILE USED BY BM00 JOB.
00760/012   BENCHMARK - BATCH        BM00 DATA       D              BNCH:GOMOKU.P                                                   
            D4.2T2   12  BENCHMARK_-_BATCH.BM00_DA.D.012    1 LINE     80    4 PAGE UQV            OGDEN     APR. 02, 1979  01:23:55
                         BNCH:GOMOKU.P        
0          DATA FILE USED BY BM00 JOB.
00760/013   BENCHMARK - BATCH        BM00 SUBR LIB   OL  O          BNCH:LIBRARY                                                    
            D4.2T2   13  BENCHMARK_-_BATCH.BM00_SU.OL.013   1 SEQ   13728  187 PAGE UQV            OGDEN     APR. 02, 1979  01:23:55
                         BNCH:LIBRARY         
0          SUBROUTINE LIBRARY USED BY BM00 JOB.
00760/014   BENCHMARK - BATCH        BM00 DATA       D              BNCH:PLOT                                                       
            D4.2T2   14  BENCHMARK_-_BATCH.BM00_DA.D.014    1 SEQ     240    7 PAGE UQV            OGDEN     APR. 02, 1979  01:24:00
                         BNCH:PLOT            
0          DATA FILE USED BY BM00 JOB.
00760/015   BENCHMARK - BATCH        BM00 DATA       D              BNCH:PLOTDATA                                                   
            D4.2T2   15  BENCHMARK_-_BATCH.BM00_DA.D.015    1 LINE     40    1 PAGE UQV            OGDEN     APR. 02, 1979  01:24:01
                         BNCH:PLOTDATA        
0          DATA FILE USED BY BM00 JOB.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00760/016   BENCHMARK - BATCH        BM00 DATA       D              BNCH:PRPLOT                                                     
            D4.2T2   16  BENCHMARK_-_BATCH.BM00_DA.D.016    1 SEQ    4554    9 PAGE UQV            OGDEN     APR. 02, 1979  01:24:01
                         BNCH:PRPLOT          
0          DATA FILE USED BY BM00 JOB.
00760/017   BENCHMARK - BATCH        BM00 DATA       D              BNCH:STAT.P                                                     
            D4.2T2   17  BENCHMARK_-_BATCH.BM00_DA.D.017    1 LINE     85   10 PAGE UQV            OGDEN     APR. 02, 1979  01:24:02
                         BNCH:STAT.P          
0          DATA FILE USED BY BM00 JOB.
00760/018   BENCHMARK - BATCH        BM00 DATA       D              BNCH:WATBOL.C                                                   
            D4.2T2   18  BENCHMARK_-_BATCH.BM00_DA.D.018    1 LINE     81   14 PAGE UQV            OGDEN     APR. 02, 1979  01:24:03
                         BNCH:WATBOL.C        
0          DATA FILE USED BY BM00 JOB.
00760/019   BENCHMARK - BATCH        BM00 DATA       D              BNCH:3270.BENCH.S                                               
            D4.2T2   19  BENCHMARK_-_BATCH.BM00_DA.D.019    1 LINE     80   92 PAGE UQV            OGDEN     APR. 02, 1979  01:24:04
                         BNCH:3270.BENCH.S    
0          DATA FILE USED BY BM00 JOB.
00760/020   BENCHMARK - BATCH        BM01 JOB        C              BNCH:BM01                                                       
            D4.2T2   20  BENCHMARK_-_BATCH.BM01_JO.C.020    1 LINE     80   17 PAGE UQV            OGDEN     APR. 02, 1979  01:24:11
                         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        C              BNCH:BM04                                                       
            D4.2T2   21  BENCHMARK_-_BATCH.BM04_JO.C.021    1 LINE     74    7 PAGE UQV            OGDEN     APR. 02, 1979  01:24:13
                         BNCH:BM04            
00760/022   BENCHMARK - BATCH        BM05 JOB        C              BNCH:BM05                                                       
            D4.2T2   22  BENCHMARK_-_BATCH.BM05_JO.C.022    1 LINE     80   17 PAGE UQV            OGDEN     APR. 02, 1979  01:24:14
                         BNCH:BM05            
00760/023   BENCHMARK - BATCH        BM06 JOB        C              BNCH:BM06                                                       
            D4.2T2   23  BENCHMARK_-_BATCH.BM06_JO.C.023    1 LINE     71    2 PAGE UQV            OGDEN     APR. 02, 1979  01:24:16
                         BNCH:BM06            
00760/024   BENCHMARK - BATCH        BM08 JOB        C              BNCH:BM08                                                       
            D4.2T2   24  BENCHMARK_-_BATCH.BM08_JO.C.024    1 LINE     73    6 PAGE UQV            OGDEN     APR. 02, 1979  01:24:16
                         BNCH:BM08            
00760/025   BENCHMARK - BATCH        BM09 JOB        C              BNCH:BM09                                                       
            D4.2T2   25  BENCHMARK_-_BATCH.BM09_JO.C.025    1 LINE     77    1 PAGE UQV            OGDEN     APR. 02, 1979  01:24:17
                         BNCH:BM09            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00760/026   BENCHMARK - BATCH        BM11 JOB        C              BNCH:BM11                                                       
            D4.2T2   26  BENCHMARK_-_BATCH.BM11_JO.C.026    1 LINE     73    7 PAGE UQV            OGDEN     APR. 02, 1979  01:24:17
                         BNCH:BM11            
00760/027   BENCHMARK - BATCH        BM12 JOB        C              BNCH:BM12                                                       
            D4.2T2   27  BENCHMARK_-_BATCH.BM12_JO.C.027    1 LINE     69    1 PAGE UQV            OGDEN     APR. 02, 1979  01:24:18
                         BNCH:BM12            
00760/028   BENCHMARK - BATCH        BM13 JOB        C              BNCH:BM13                                                       
            D4.2T2   28  BENCHMARK_-_BATCH.BM13_JO.C.028    1 LINE     72    3 PAGE UQV            OGDEN     APR. 02, 1979  01:24:19
                         BNCH:BM13            
00760/029   BENCHMARK - BATCH        BM14 JOB        C              BNCH:BM14                                                       
            D4.2T2   29  BENCHMARK_-_BATCH.BM14_JO.C.029    1 LINE     74    2 PAGE UQV            OGDEN     APR. 02, 1979  01:24:20
                         BNCH:BM14            
00760/030   BENCHMARK - BATCH        BM18 JOB        C              BNCH:BM18                                                       
            D4.2T2   30  BENCHMARK_-_BATCH.BM18_JO.C.030    1 LINE     71    2 PAGE UQV            OGDEN     APR. 02, 1979  01:24:20
                         BNCH:BM18            
00760/031   BENCHMARK - BATCH        BM19 JOB        C              BNCH:BM19                                                       
            D4.2T2   31  BENCHMARK_-_BATCH.BM19_JO.C.031    1 LINE     69    1 PAGE UQV            OGDEN     APR. 02, 1979  01:24:21
                         BNCH:BM19            
00760/032   BENCHMARK - BATCH        BM20 JOB        C              BNCH:BM20                                                       
            D4.2T2   32  BENCHMARK_-_BATCH.BM20_JO.C.032    1 LINE     72    3 PAGE UQV            OGDEN     APR. 02, 1979  01:24:21
                         BNCH:BM20            
00760/033   BENCHMARK - BATCH        BM21 JOB        C              BNCH:BM21                                                       
            D4.2T2   33  BENCHMARK_-_BATCH.BM21_JO.C.033    1 LINE     80    4 PAGE UQV            OGDEN     APR. 02, 1979  01:24:22
                         BNCH:BM21            
00760/034   BENCHMARK - BATCH        BM23 JOB        C              BNCH:BM23                                                       
            D4.2T2   34  BENCHMARK_-_BATCH.BM23_JO.C.034    1 LINE     73   17 PAGE UQV            OGDEN     APR. 02, 1979  01:24:22
                         BNCH:BM23            
00760/035   BENCHMARK - BATCH        BM26 JOB        C              BNCH:BM26                                                       
            D4.2T2   35  BENCHMARK_-_BATCH.BM26_JO.C.035    1 LINE     73   11 PAGE UQV            OGDEN     APR. 02, 1979  01:24:24
                         BNCH:BM26            
00760/036   BENCHMARK - BATCH        BN01 JOB        C              BNCH:BN01                                                       
            D4.2T2   36  BENCHMARK_-_BATCH.BN01_JO.C.036    1 LINE     80   58 PAGE UQV            OGDEN     APR. 02, 1979  01:24:25
                         BNCH:BN01            
00760/037   BENCHMARK - BATCH        BN02 JOB        C              BNCH:BN02                                                       
            D4.2T2   37  BENCHMARK_-_BATCH.BN02_JO.C.037    1 LINE     80    1 PAGE UQV            OGDEN     APR. 02, 1979  01:24:30
                         BNCH:BN02            
00760/038   BENCHMARK - BATCH        BN03 JOB        C              BNCH:BN03                                                       
            D4.2T2   38  BENCHMARK_-_BATCH.BN03_JO.C.038    1 LINE     76    9 PAGE UQV            OGDEN     APR. 02, 1979  01:24:31
                         BNCH:BN03            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00760/039   BENCHMARK - BATCH        BN04 JOB        C              BNCH:BN04                                                       
            D4.2T2   39  BENCHMARK_-_BATCH.BN04_JO.C.039    1 LINE     73    2 PAGE UQV            OGDEN     APR. 02, 1979  01:24:32
                         BNCH:BN04            
00760/040   BENCHMARK - BATCH        BN05 JOB        C              BNCH:BN05                                                       
            D4.2T2   40  BENCHMARK_-_BATCH.BN05_JO.C.040    1 LINE     80    1 PAGE UQV            OGDEN     APR. 02, 1979  01:24:33
                         BNCH:BN05            
00760/041   BENCHMARK - BATCH        BN06 JOB        C              BNCH:BN06                                                       
            D4.2T2   41  BENCHMARK_-_BATCH.BN06_JO.C.041    1 LINE     73    7 PAGE UQV            OGDEN     APR. 02, 1979  01:24:33
                         BNCH:BN06            
00760/042   BENCHMARK - BATCH        BN07 JOB        C              BNCH:BN07                                                       
            D4.2T2   42  BENCHMARK_-_BATCH.BN07_JO.C.042    1 LINE     73    2 PAGE UQV            OGDEN     APR. 02, 1979  01:24:34
                         BNCH:BN07            
00760/043   BENCHMARK - BATCH        BN08 JOB        C              BNCH:BN08                                                       
            D4.2T2   43  BENCHMARK_-_BATCH.BN08_JO.C.043    1 LINE     59    1 PAGE UQV            OGDEN     APR. 02, 1979  01:24:35
                         BNCH:BN08            
00760/044   BENCHMARK - BATCH        BN09 JOB        C              BNCH:BN09                                                       
            D4.2T2   44  BENCHMARK_-_BATCH.BN09_JO.C.044    1 LINE     80    4 PAGE UQV            OGDEN     APR. 02, 1979  01:24:35
                         BNCH:BN09            
00760/045   BENCHMARK - BATCH        BN10 JOB        C              BNCH:BN10                                                       
            D4.2T2   45  BENCHMARK_-_BATCH.BN10_JO.C.045    1 LINE     80    3 PAGE UQV            OGDEN     APR. 02, 1979  01:24:36
                         BNCH:BN10            
00760/046   BENCHMARK - BATCH        BN11 JOB        C              BNCH:BN11                                                       
            D4.2T2   46  BENCHMARK_-_BATCH.BN11_JO.C.046    1 LINE     78    6 PAGE UQV            OGDEN     APR. 02, 1979  01:24:37
                         BNCH:BN11            
00760/047   BENCHMARK - BATCH        BN12 JOB        C              BNCH:BN12                                                       
            D4.2T2   47  BENCHMARK_-_BATCH.BN12_JO.C.047    1 LINE     69    2 PAGE UQV            OGDEN     APR. 02, 1979  01:24:38
                         BNCH:BN12            
00760/048   BENCHMARK - BATCH        BN13 JOB        C              BNCH:BN13                                                       
            D4.2T2   48  BENCHMARK_-_BATCH.BN13_JO.C.048    1 LINE     73    3 PAGE UQV            OGDEN     APR. 02, 1979  01:24:38
                         BNCH:BN13            
00760/049   BENCHMARK - BATCH        BN15 JOB        C              BNCH:BN15                                                       
            D4.2T2   49  BENCHMARK_-_BATCH.BN15_JO.C.049    1 LINE     59    1 PAGE UQV            OGDEN     APR. 02, 1979  01:24:39
                         BNCH:BN15            
00760/050   BENCHMARK - BATCH        BN16 JOB        C              BNCH:BN16                                                       
            D4.2T2   50  BENCHMARK_-_BATCH.BN16_JO.C.050    1 LINE     75    3 PAGE UQV            OGDEN     APR. 02, 1979  01:24:40
                         BNCH:BN16            
00760/051   BENCHMARK - BATCH        BN17 JOB        C              BNCH:BN17                                                       
            D4.2T2   51  BENCHMARK_-_BATCH.BN17_JO.C.051    1 LINE     80    2 PAGE UQV            OGDEN     APR. 02, 1979  01:24:40
                         BNCH:BN17            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00760/052   BENCHMARK - BATCH        BN30 JOB        C              BNCH:BN30                                                       
            D4.2T2   52  BENCHMARK_-_BATCH.BN30_JO.C.052    1 LINE     80    4 PAGE UQV            OGDEN     APR. 02, 1979  01:24:41
                         BNCH:BN30            
00760/053   BENCHMARK - BATCH        BN31 JOB        C              BNCH:BN31                                                       
            D4.2T2   53  BENCHMARK_-_BATCH.BN31_JO.C.053    1 LINE     71    4 PAGE UQV            OGDEN     APR. 02, 1979  01:24:42
                         BNCH:BN31            
00760/054   BENCHMARK - BATCH        BN32 JOB        C              BNCH:BN32                                                       
            D4.2T2   54  BENCHMARK_-_BATCH.BN32_JO.C.054    1 LINE     80    6 PAGE UQV            OGDEN     APR. 02, 1979  01:24:42
                         BNCH:BN32            
00760/055   BENCHMARK - BATCH        BN33 JOB        C              BNCH:BN33                                                       
            D4.2T2   55  BENCHMARK_-_BATCH.BN33_JO.C.055    1 LINE     72    3 PAGE UQV            OGDEN     APR. 02, 1979  01:24:44
                         BNCH:BN33            
00760/056   BENCHMARK - BATCH        BN34 JOB        C              BNCH:BN34                                                       
            D4.2T2   56  BENCHMARK_-_BATCH.BN34_JO.C.056    1 LINE     72    3 PAGE UQV            OGDEN     APR. 02, 1979  01:24:45
                         BNCH:BN34            
00760/057   BENCHMARK - BATCH        BN35 JOB        C              BNCH:BN35                                                       
            D4.2T2   57  BENCHMARK_-_BATCH.BN35_JO.C.057    1 LINE     72    4 PAGE UQV            OGDEN     APR. 02, 1979  01:24:46
                         BNCH:BN35            
00760/058   BENCHMARK - BATCH        BN36 JOB        C              BNCH:BN36                                                       
            D4.2T2   58  BENCHMARK_-_BATCH.BN36_JO.C.058    1 LINE     72    2 PAGE UQV            OGDEN     APR. 02, 1979  01:24:47
                         BNCH:BN36            
00760/059   BENCHMARK - BATCH        BN37 JOB        C              BNCH:BN37                                                       
            D4.2T2   59  BENCHMARK_-_BATCH.BN37_JO.C.059    1 LINE     80    9 PAGE UQV            OGDEN     APR. 02, 1979  01:24:47
                         BNCH:BN37            
00760/060   BENCHMARK - BATCH        BN38 JOB        C              BNCH:BN38                                                       
            D4.2T2   60  BENCHMARK_-_BATCH.BN38_JO.C.060    1 LINE     80   25 PAGE UQV            OGDEN     APR. 02, 1979  01:24:48
                         BNCH:BN38            
00760/061   BENCHMARK - BATCH        BN39 JOB        C              BNCH:BN39                                                       
            D4.2T2   61  BENCHMARK_-_BATCH.BN39_JO.C.061    1 LINE     80   15 PAGE UQV            OGDEN     APR. 02, 1979  01:24:50
                         BNCH:BN39            
00760/062   BENCHMARK - BATCH        BN40 JOB        C              BNCH:BN40                                                       
            D4.2T2   62  BENCHMARK_-_BATCH.BN40_JO.C.062    1 LINE     80   14 PAGE UQV            OGDEN     APR. 02, 1979  01:24:51
                         BNCH:BN40            
00760/063   BENCHMARK - BATCH        BN41 JOB        C              BNCH:BN41                                                       
            D4.2T2   63  BENCHMARK_-_BATCH.BN41_JO.C.063    1 LINE     80    5 PAGE UQV            OGDEN     APR. 02, 1979  01:24:53
                         BNCH:BN41            
00760/064   BENCHMARK - BATCH        BN42 JOB        C              BNCH:BN42                                                       
            D4.2T2   64  BENCHMARK_-_BATCH.BN42_JO.C.064    1 LINE     72    4 PAGE UQV            OGDEN     APR. 02, 1979  01:24:53
                         BNCH:BN42            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00760/065   BENCHMARK - BATCH        BN43 JOB        C              BNCH:BN43                                                       
            D4.2T2   65  BENCHMARK_-_BATCH.BN43_JO.C.065    1 LINE     72    3 PAGE UQV            OGDEN     APR. 02, 1979  01:24:54
                         BNCH:BN43            
00760/066   BENCHMARK - BATCH        BN44 JOB        C              BNCH:BN44                                                       
            D4.2T2   66  BENCHMARK_-_BATCH.BN44_JO.C.066    1 LINE     72    4 PAGE UQV            OGDEN     APR. 02, 1979  01:24:55
                         BNCH:BN44            
00760/067   BENCHMARK - BATCH        BN50 JOB        C              BNCH:BN50                                                       
            D4.2T2   67  BENCHMARK_-_BATCH.BN50_JO.C.067    1 LINE     73   21 PAGE UQV            OGDEN     APR. 02, 1979  01:24:55
                         BNCH:BN50            
00760/068   BENCHMARK - BATCH        BN51 JOB        C              BNCH:BN51                                                       
            D4.2T2   68  BENCHMARK_-_BATCH.BN51_JO.C.068    1 LINE     80    4 PAGE UQV            OGDEN     APR. 02, 1979  01:24:58
                         BNCH:BN51            
00761/001A  HARDWIRED TERMINALS      *HWTERM         SA  G          S0683 OGDEN FSNAME=TST.HWTERM.S                                 
            4.3T2    63  HARDWIRED_TERMINALS.*HWTE.SA.001   1 LINE     65    1 PAGE UM   OGDEN               NOV. 16, 1979  14:21:13
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/10).
            
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
            
           ******************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           THE FORMAT OF THE HWTERM TABLE HAS CHANGED FROM THE D4.2 VERSION.
           ******************************************************************************
0          Referenced by comments of: 761/3 
00761/002A  HARDWIRED TERMINALS      *HWTERM         OC  G          MTS:TST.HWTERM                                                  
            4.3T2    64  HARDWIRED_TERMINALS.*HWTE.OC.002   1 LINE     80    1 PAGE UM   OGDEN               APR. 06, 1980  13:22:54
                         *HWTERM              
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM AFTER IPL BY PISTLE.
00761/003A  HARDWIRED TERMINALS      HWTPRINT        SA  G          STRT:HWTPRINT(1000)                                             
            4.3T2    65  HARDWIRED_TERMINALS.HWTPR.SA.003   1 LINE     72    1 PAGE UM   OGDEN               APR. 06, 1980  13:22:56
                         STRT:HWTPRINT        
0          PROGRAM TO PRINT THE CONTENTS OF THE HARDWIRED TERMINAL TABLE (761/1) CURRENTLY
           IN USE.  CALLS RJECHECK SUBROUTINE (IN HASP).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           ASSEMBLE USING COPY:MTS.MACROS (344/3).
00761/004A  HARDWIRED TERMINALS      HWTPRINT        OC  G          STRT:HWTPRINT(1,999)                                            
            4.3T2    66  HARDWIRED_TERMINALS.HWTPR.OC.004   1 LINE     80    1 PAGE UM   OGDEN               APR. 06, 1980  13:22:59
00762/001A  FIDS                     COMMAND FILE    C              MTA:FIDSCMD                                                     
            4.3T2    67  FIDS.COMMAND_FILE.C.001            1 LINE     95    1 PAGE UM   MTA                 APR. 06, 1980  13:23:02
                         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/002C  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/003A  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/004A  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
           TAPE CURRENT ON SEPT. 13, 1979.  THIS IS VERSION 2.4 OF FIDS, ACCORDING
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          TO THE MESSAGE IT PRINTS WHEN IT IS RUN.
00762/005A  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.
00762/006   FIDS                     EXIT ROUTINE    OC           # S0938 FSAVE2 VLO FSNAME=FIDS.FILE3(2)                       511 
                                                                                    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 (FILE 3 OF THE SAME TAPE AS 762/4).  IT IS NOT USED
           IN MTS (OR MVS).
00762/007A  FIDS                     BLDL            D              ETC:FIDS.BLDL                                                   
            4.3T2    68  FIDS.BLDL.D.007                    1 SEQ     250    1 PAGE UM   MTA                 APR. 06, 1980  13:23:05
                         ETC:FIDS.BLDL        
0          BLDL FILE FOR FIDS.  OUTPUT FROM *FAKEOSCREBLDL (545/39).
00762/008A  FIDS                     BLDL INPUT      D              S0938 FSAVE2 FSNAME=FIDS.BLDLIN                                 
            4.3T2    69  FIDS.BLDL_INPUT.D.008              1 LINE     60    2 PAGE UM   MTA                 MAR. 07, 1980  23:45:47
0          INPUT TO *FAKEOSCREBLDL (545/39) TO CREATE 762/7.
00762/009   FIDS                     WRITEUP         WF             S1320 D4.2T2 VLO FSNAME=FIDS.WRITEUP.WF.007(1)                76
            D4.2T2   76  FIDS.WRITEUP.WF.007                1 LINE     67    1 PAGE UM   MTA                 APR. 02, 1979  01:26:59
0          INSTRUCTIONS FOR RUNNING FIDS IN MTS.
00763/001   BLDGPLOT                 SOURCE          SF  G          S0409 'BLDGPLOT' FSNAME=BPRGM                                   
            D4.2T2   77  BLDGPLOT.SOURCE.SF.001             1 LINE     77   22 PAGE UM   EMERY               MAR. 09, 1979  12:06:11
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.
0          Referenced by comments of: 763/2 
00763/002   BLDGPLOT                 OBJECT          OC  G          S0409 'BLDGPLOT' FSNAME=BOBJ                                    
            D4.2T2   78  BLDGPLOT.OBJECT.OC.002             1 LINE   9522   22 PAGE UM   EMERY               MAR. 12, 1979  12:39:46
0          OBJECT FOR BLDGPLOT PROGRAM (763/1).
0          Referenced by comments of: 763/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00763/003   BLDGPLOT                 WALLS           D              S0409 'BLDGPLOT' FSNAME=BWALLS                                  
            D4.2T2   79  BLDGPLOT.WALLS.D.003               1 LINE     81   23 PAGE UM   EMERY               MAR. 09, 1979  12:10:03
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                                    
            D4.2T2   80  BLDGPLOT.DEVICES.D.004             1 LINE     94    5 PAGE UM   EMERY               MAR. 09, 1979  12:12:05
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                                   
            D4.2T2   81  BLDGPLOT.DATA.D.005                1 LINE     79   33 PAGE UM   EMERY               MAR. 09, 1979  12:13:34
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                                  
            D4.2T2   82  BLDGPLOT.LABELS.D.006              1 LINE     80    3 PAGE UM   EMERY               MAR. 09, 1979  12:16:02
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/001A  APPEND                                   SS  O          S0684 UNSP FSNAME=APPEND.S                                      
            4.3T2    70  APPEND..SS.001                     1 LINE     80    1 PAGE UM   UNSP                JAN. 03, 1979  14:01:22
0          APPEND IS A SPITBOL PROGRAM TO CONCATENATE LINES OF ONE FILE ONTO LINES OF
           ANOTHER, GIVEN 2 SPECIFIED COLUMN WIDTHS.
00764/002A  APPEND                                   OC  O          UNSP:APPEND                                                     
            4.3T2    71  APPEND..OC.002                     1 LINE   5048    3 PAGE UM   UNSP                APR. 06, 1980  13:27:42
                         UNSP:APPEND          
0          HAS A "$CONTINUE WITH *SPITLIB" CARD.
00764/003A  APPEND                                   WF             S0684 UNSP FSNAME=APPEND.F                                      
            4.3T2    72  APPEND..WF.003                     1 LINE     67    1 PAGE UM   UNSP                JUNE 13, 1979  03:08:59
00765/001A  DAVE/M                   MAIN            SF  G          W234:DAVE/M.MAIN                                                
            4.3T2    73  DAVE/M.MAIN.SF.001                 1 LINE     72   12 PAGE UM   BRILL               APR. 06, 1980  13:28:02
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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          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/4).
0          Referenced by comments of: 744/1, 765/3, 765/5, 765/7, 765/9, 765/13 
00765/002A  DAVE/M                   *DAVE           OE  G          *DAVE                                                           
            4.3T2    74  DAVE/M.*DAVE.OE.002                1 LINE  19309    9 PAGE UM   BRILL               APR. 06, 1980  13:28:04
                         *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/003A  DAVE/M                   PHASE0          SF  G          W234:PHASE0                                                     
            4.3T2    75  DAVE/M.PHASE0.SF.003               1 LINE     73   28 PAGE UM   BRILL               APR. 06, 1980  13:28:06
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/004A  DAVE/M                   PHASE0          OE  G          ETC:DAVE.0                                                      
            4.3T2    76  DAVE/M.PHASE0.OE.004               1 LINE  22894    8 PAGE UM   BRILL               APR. 06, 1980  13:28:09
                         ETC:DAVE.0           
00765/005A  DAVE/M                   PHASE1          SF  G          W234:PHASE1                                                     
            4.3T2    77  DAVE/M.PHASE1.SF.005               1 LINE     73   93 PAGE UM   BRILL               APR. 06, 1980  13:28:11
0          SOURCE CODE FOR PHASE 1, THE PARSER.
           DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1).
0          Referenced by comments of: 765/2 
00765/006A  DAVE/M                   PHASE1          OE  G          ETC:DAVE.1                                                      
            4.3T2    78  DAVE/M.PHASE1.OE.006               1 LINE  32767   22 PAGE UM   BRILL               APR. 06, 1980  13:28:41
                         ETC:DAVE.1           
00765/007A  DAVE/M                   PHASE2          SF  G          W234:PHASE2                                                     
            4.3T2    79  DAVE/M.PHASE2.SF.007               1 LINE     73  100 PAGE UM   BRILL               APR. 06, 1980  13:28:43
0          SOURCE CODE FOR PHASE 2, THE ANALYZER.
           DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1).
0          Referenced by comments of: 765/2 
00765/008A  DAVE/M                   PHASE2          OE  G          ETC:DAVE.2                                                      
            4.3T2    80  DAVE/M.PHASE2.OE.008               1 LINE  32767   32 PAGE UM   BRILL               APR. 06, 1980  13:29:03
                         ETC:DAVE.2           
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00765/009A  DAVE/M                   PHASE3          SF  G          W234:PHASE3                                                     
            4.3T2    81  DAVE/M.PHASE3.SF.009               1 LINE     75   29 PAGE UM   BRILL               APR. 06, 1980  13:29:05
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/010A  DAVE/M                   PHASE3          OE  G          ETC:DAVE.3                                                      
            4.3T2    82  DAVE/M.PHASE3.OE.010               1 LINE  32767   16 PAGE UM   BRILL               APR. 06, 1980  13:29:13
                         ETC:DAVE.3           
00765/011A  DAVE/M                   ASM SUBRS       SA  G          W234:DAVE.ASM                                                   
            4.3T2    83  DAVE/M.ASM_SUBRS.SA.011            1 LINE     72    5 PAGE UM   BRILL               APR. 06, 1980  13:29:15
0          DAVE ASSEMBLER LANGUAGE SUBROUTINES.
00765/012A  DAVE/M                   FTN SUBRS       SF  G          W234:DATAB                                                      
            4.3T2    84  DAVE/M.FTN_SUBRS.SF.012            1 LINE     73   46 PAGE UM   BRILL               APR. 06, 1980  13:29:17
0          DAVE FORTRAN LANGUAGE SUBROUTINES.
00765/013A  DAVE/M                   SUBR LIB        OL  G          ETC:DAVESUB                                                     
            4.3T2    85  DAVE/M.SUBR_LIB.OL.013             1 LINE  32767   17 PAGE UM   BRILL               APR. 06, 1980  13:29:23
                         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/014A  DAVE/M                   DAVE.CMD        C              W234:DAVE.CMD                                                   
            4.3T2    86  DAVE/M.DAVE.CMD.C.014              1 LINE     64    1 PAGE UM   BRILL               APR. 06, 1980  13:29:26
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.
00765/015A  DAVE/M                   DAVE.CMD.LIST   L              W234:DAVE.CMD.LIS                                               
            4.3T2    87  DAVE/M.DAVE.CMD.LIST.L.015         1 LINE     96    9 PAGE UM   BRILL               APR. 06, 1980  13:29:28
0          OUTPUT GENERATED WHEN 765/14 IS SOURCED TO.
0          Referenced by comments of: 765/14 
00765/016A  DAVE/M                   DATA BASE       SF  G          W234:DBINIT                                                     
            4.3T2    88  DAVE/M.DATA_BASE.SF.016            1 LINE     73   22 PAGE UM   BRILL               APR. 06, 1980  13:29:30
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/19 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00765/017A  DAVE/M                   DATA BASE       OE  G          W234:DBINB                                                      
            4.3T2    89  DAVE/M.DATA_BASE.OE.017            1 LINE   3160   14 PAGE UM   BRILL               APR. 06, 1980  13:29:33
0          OBJECT OF 765/16.
0          Referenced by comments of: 765/18 
00765/018A  DAVE/M                   DATA BASE       D              W234:NUDATA                                                     
            4.3T2    90  DAVE/M.DATA_BASE.D.018             1 LINE     67    4 PAGE UM   BRILL               APR. 06, 1980  13:29:35
0          INPUT DATA TO BE FED TO DBINB (765/17) TO CREATE DAVE.INIT (765/19).
0          Referenced by comments of: 765/19 
00765/019A  DAVE/M                   DATA BASE       D              ETC:DAVE.INIT                                                   
            4.3T2    91  DAVE/M.DATA_BASE.D.019             1 LINE   3256    2 PAGE UM   BRILL               APR. 06, 1980  13:29:37
                         ETC:DAVE.INIT        
0          THIS IS THE DATA BASE PRODUCED BY THE DAVE/M DATA BASE PROGRAM (765/16), FROM
           DATA IN NUDATA (765/18).  DAVE.INIT IS USED TO INITIALIZE DAVE/M.
0          Referenced by comments of: 765/16, 765/18 
00765/020A  DAVE/M                   TEST PROG       SF  G          W234:TESTFL                                                     
            4.3T2    92  DAVE/M.TEST_PROG.SF.020            1 LINE     72    3 PAGE UM   BRILL               APR. 06, 1980  13:29:40
0          THIS IS A TEST PROGRAM FOR THE DAVE/M SYSTEM.
00765/021A  DAVE/M                   DAVE.STAT       D            # MTS:TST.LOG                                                     
                                                                                    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.
00765/022A  DAVE/M                   MEMO 394        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M394                              
            4.3T2    93  DAVE/M.MEMO_394.WF.022             1 LINE     84   12 PAGE UM   BRILL               MAY  09, 1979  16:33:53
0          THIS IS COMPUTING CENTER MEMO 394 -- "*DAVE".
00765/023A  DAVE/M                   KNOWN BUGS      P              W234:KNOWN_BUGS                                                 
            4.3T2    94  DAVE/M.KNOWN_BUGS.P.023            1 LINE     67    1 PAGE UM   BRILL               APR. 06, 1980  13:30:17
0          DESCRIPTION OF THE TWO KNOWN BUGS IN DAVE/M.  REFERENCES 765/24 AS AN EXAMPLE.
00765/024A  DAVE/M                   DAVE_BUG1       SF             W234:DAVE_BUG1                                                  
            4.3T2    95  DAVE/M.DAVE_BUG1.SF.024            1 LINE     26    1 PAGE UM   BRILL               APR. 06, 1980  13:30:20
0          A PROGRAM WHICH CAUSES DAVE/M TO FAIL.
00765/025A  DAVE/M                   DAVE.INTERNAL   P              W234:DAVE.INTERNA                                               
            4.3T2    96  DAVE/M.DAVE.INTERNAL.P.025         1 LINE     61    3 PAGE UM   BRILL               APR. 06, 1980  13:30:22
0          A BRIEF INSTALLATION GUIDE FOR DAVE/M.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00766/001A  INTRO GUIDE: MAG TAPES                   WF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TAPE.SOU                  
            4.3T2    97  INTRO_GUIDE:_MAG_TAPES..WF.001     1 LINE    148   59 PAGE UM   MANUAL              AUG. 24, 1979  13:34:58
0          FORMAT SOURCE FOR "INTRODUCTION TO MAGNETIC TAPES" (SEPTEMBER 1979).
00766/002A  INTRO GUIDE: MAG TAPES                   PF             S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TAPE.OUT                  
            4.3T2    98  INTRO_GUIDE:_MAG_TAPES..PF.002     1 LINE    129   79 PAGE UM   MANUAL              AUG. 24, 1979  13:37:39
0          FORMAT PRINT FILE.
00766/003A  INTRO GUIDE: MAG TAPES                   D              S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TAPE.INDEXSOU             
            4.3T2    99  INTRO_GUIDE:_MAG_TAPES..D.003      1 LINE     59    6 PAGE UM   MANUAL              AUG. 24, 1979  13:38:44
0          INPUT TO *INDEX (580) FOR THE INDEX TO "INTRODUCTION TO MAGNETIC TAPES."
00767/001A  SIGLOG                                   SA  O          S0684 UNSP FSNAME=SIGLOG.S                                      
            4.3T2   100  SIGLOG..SA.001                     1 LINE     72    4 PAGE UM   UNSP                AUG. 31, 1979  01:00:49
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.
00767/002A  SIGLOG                                   OC  O          UNSP:SIGLOG                                                     
            4.3T2   101  SIGLOG..OC.002                     1 LINE   2819    2 PAGE UM   UNSP                APR. 06, 1980  13:32:35
                         UNSP:SIGLOG          
00767/003A  SIGLOG                                   P              UNSP:SIGLOG.W                                                   
            4.3T2   102  SIGLOG..P.003                      1 LINE     76    3 PAGE UM   UNSP                APR. 06, 1980  13:32:37
0          A PRINT FILE CONTAINING A DESCRIPTION OF THE SIGLOG PROGRAM.
00768/001A  SIGCHECK$                                SA  O          S0684 UNSP FSNAME=SIGCHECK$.S                                   
            4.3T2   103  SIGCHECK$..SA.001                  1 LINE     72    4 PAGE UM   UNSP                AUG. 31, 1979  00:59:45
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/002A  SIGCHECK$                                OC  O          UNSP:SIGCHECK$                                                  
            4.3T2   104  SIGCHECK$..OC.002                  1 LINE   2318    1 PAGE UM   UNSP                APR. 06, 1980  13:32:41
                         UNSP:SIGCHECK$       
00768/003A  SIGCHECK$                                P              UNSP:SIGCHECK$.W                                                
            4.3T2   105  SIGCHECK$..P.003                   1 LINE     77    3 PAGE UM   UNSP                APR. 06, 1980  13:32:43
0          A PRINT FILE CONTAINING A DESCRIPTION OF THE SIGCHECK$ PROGRAM.
00769/001   DISK MANAGER             MAIN            SA  G        # DMGR:DM.ABSMAIN.S                                               
            4.2BT1   70  DISK_MANAGER.MAIN.SA.001           1 LINE    122    4 PAGE UM   GOODRICH            OCT. 17, 1979  21:34:08
0          THIS IS A PRELIMINARY TEST VERSION OF THE DISK MANAGER.
            
           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 DMGR:DM.MACROS (769/8), COPY:CC.MACROS
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          (1054/3), AND COPY:RM.MACROS (1041/1).
0          Referenced by comments of: 104/106, 442/1, 482/5, 482/11, 482/31, 482/42 
00769/002   DISK MANAGER             MTS MAIN        SA  G        # DMGR:DM.MTSMAIN.S                                               
            4.2BT1   71  DISK_MANAGER.MTS_MAIN.SA.002       1 LINE    131    5 PAGE UM   GOODRICH            OCT. 17, 1979  21:34:09
0          THIS IS THE MTS VERSION OF THE MAIN PROGRAM OF THE DISK MANAGER.  IT REPLACES
           THE ABSOLUTE VERSION FOR TESTING PURPOSES.  IT CONTAINS THE COMMANDS TO
           ASSEMBLE IT AT LINE 1 AND MAY BE $SOURCED TO.  REQUIRES DMGR:DM.MACROS (769/8),
           COPY:CC.MACROS (1054/3), AND COPY:RM.MACROS (1041/1).
00769/003   DISK MANAGER             DISPATCH        SA  G        # DMGR:DM.DISPTCH.S                                               
            4.2BT1   72  DISK_MANAGER.DISPATCH.SA.003       1 LINE    146   11 PAGE UM   GOODRICH            OCT. 17, 1979  21:34:11
0          THIS IS THE DISPATCH SUBTASK OF THE DISK MANAGER, WHICH DOES THE FOLLOWING
           THINGS:
            
                  1) ADDS AND DELETES DISK DRIVES
                  2) SENDS REQUESTS TO LOCKMNGR (769/5) FOR LOCK AND UNLOCK PROCESSING
                  3) SORTS REQUESTS FROM THE SUPERVISOR AND THOSE RECEIVED BACK FROM
                     THE LOCKMNGR TO THE APPROPRIATE DISKLING (769/4) SUBTASK
                  4) REQUESTS PAGE-IN OPERATIONS OF SUPERVISOR FOR DISKLINGS 
                  5) POSTS FINISHED REQUESTS TO SUPERVISOR.
            
           THIS SUBCOMPONENT ALSO INCLUDES THE DMWAIT SUBROUTINE, WHICH REPLACES THE
           RMWAIT SUBROUTINE IN THE SUBTASKING MONITOR.  CONTAINS COMMANDS STARTING
           AT LINE 1 FOR ASSEMBLY AND MAY BE $SOURCED TO.  REQUIRES DMGR:DM.MACROS
           (769/8), COPY:CC.MACROS (1054/3), AND COPY:RM.MACROS (1041/1).
0          Referenced by comments of: 769/4, 769/6 
00769/004   DISK MANAGER             DISK INTERFACE  SA  G        # DMGR:DM.DISKXF.S                                                
            4.2BT1   73  DISK_MANAGER.DISK_INTERFA.SA.004   1 LINE    160   17 PAGE UM   GOODRICH            OCT. 17, 1979  21:34:21
0          THIS IS THE DISK INTERFACE OF THE DISK MANAGER. IT CONTAINS THE DISKLING AND
           IOMNGR 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) POST FINISHES 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) 
            
           CONTAINS COMMANDS AT LINE 1 FOR ASSEMBLY AND MAY BE $SOURCED TO.  REQUIRES
           DMGR:DM.MACROS (769/8), COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041/1),
           AND COPY.FILE.MACROS (482/33).
0          Referenced by comments of: 769/3 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00769/005   DISK MANAGER             LOCKING         SA  G        # DMGR:DM.LOCK.S                                                  
            4.2BT1   74  DISK_MANAGER.LOCKING.SA.005        1 LINE    140   19 PAGE UM   GOODRICH            OCT. 17, 1979  21:34:55
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 DMGR:DM.MACROS (769/8),
           COPY:CC.MACROS (1054/3), AND COPY:RM.MACROS (1041/1).
0          Referenced by comments of: 769/3 
00769/006   DISK MANAGER             MISCELLANEOUS   SA  G        # DMGR:DM.MISC.S                                                  
            4.2BT1   75  DISK_MANAGER.MISCELLANEOU.SA.006   1 LINE    140    3 PAGE UM   GOODRICH            OCT. 17, 1979  21:35:18
0          THIS SUBCOMPONENT CONSISTS OF MISCELLANEOUS SUBTASKS AND ROUTINES, INCLUDING
           THE EXITMNGR AND ITSKMNGR SUBTASKS.  THE EXITMNGR WAITS FOR TASK EXITS FROM
           THE SUPERVISOR AND CREATES OTHER STATIC TASKS, AND THE ITSKMNGR WAITS FOR
           MESSAGES ON THE INTERTASK NETWORK FOR "DISK MANAGER CONTROL" AND INFORMS THE
           DISPATCH SUBTASK (769/3) OF WHAT IS REQUESTED.  COMMANDS FOR ASSEMBLY START
           AT LINE 1 SO THAT THE FILE MAY BE SOURCED TO.  REQUIRES DMGR:DM.MACROS 
           (769/8), COPY:CC.MACROS (1054/3), AND COPY:RM.MACROS (1041/1).
00769/007   DISK MANAGER             OBJECT          OE  G        # DMGR:DM.O                                                       
                                                                                    UM   GOODRICH                                   
0          THIS IS THE OBJECT OF 769/1 AND 769/3 THROUGH 769/6, THE ABSOLUTE VERSION
           OF THE MTS DISK MANAGER.  WHEN IT IS INSTALLED, IT WILL BE LOADED BY THE
           IPL LOADER.  INCLUDES CODE FOR THE UBC SUBTASKING MONITOR (COMP. 1058, NOT
           DISTRIBUTED BY UM).
00769/008A  DISK MANAGER             MACROS          SM  G          DMGR:DM.MACROS                                                  
            4.3T2   106  DISK_MANAGER.MACROS.SM.008         1 LINE     72   19 PAGE UM   GOODRICH            APR. 06, 1980  13:32:45
0          THIS IS THE MACRO LIBRARY FOR THE MTS DISK MANAGER. IT ALSO CONTAINS COPY
           SECTIONS.
0          Referenced by comments of: 482/5, 769/1, 769/2, 769/3, 769/4, 769/5, 769/6, 769/9 
00769/009C  DISK MANAGER             MONITOR RTNS    SA  O        # DMGR:DM.MNTR(1000)                                              
                                                                                    UM   HELFFRICH                                  
0          DISK MANAGER SPECIFIC CODE TO PROVIDE THE SUBTASKING MONITOR (1068) FUNCTION
           OF ALLOCATING AND DEALLOCATING DISK DRIVES.  ASSEMBLE USING COPY:CC.MACROS
           (1054/3), COPY:RM.MACROS (1041), COPY:MISC.MACROS (728), COPY:FILE.MACROS
           (482/33), AND DMGR:DM.MACROS (769/8).
00770/001A  DTYPE                                    SA  S  DTYP    MTS:DTYPE(2000)                                                 
            4.3T2   107  DTYPE..SA.001                      1 LINE     80    2 PAGE UM   MTA                 APR. 06, 1980  13:32:51
0          A GLP THAT ALLOWS YOU TO CHANGE THE TYPE OF A GIVEN DEVICE (USUALLY TO OR
           FROM TYPE "TEST").  SHOULD COPY COPY:LLMPSEQU AND COPY:GLOBALS, BUT DOESN'T.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00770/002A  DTYPE                                    OC  S          MTS:DTYPE(1000,1999)                                            
            4.3T2   108  DTYPE..OC.002                      1 LINE     80    1 PAGE UM   MTA                 APR. 06, 1980  13:32:54
00771/001A *COMBINE                                  SA  G          S1210 PASDIS 'PASCAL DIST' FSNAME=COMBINE.ASM                   
            4.3T2   109  COMBINE..SA.001                    1 LINE     81   33 PAGE UM   PICKELMAN           OCT. 18, 1979  01:33:13
0          PROGRAM TO COMBINE RECORDS OR PORTIONS OF RECORDS FROM SEVERAL FILES. 
           COPIES *GDINFODSECT (594). ORIGINALLY WRITTEN BY JASON HALM AT UBC. 
            
00771/002A *COMBINE                                  OE  G          *COMBINE                                                        
            4.3T2   110  COMBINE..OE.002                    1 LINE  10684    5 PAGE UM   PICKELMAN           APR. 06, 1980  13:35:49
                         *COMBINE             
00771/003A *COMBINE                  MEMO 412        WF             S0672 CCMEMO 'CCMEMOS' FSNAME=M412                              
            4.3T2   111  COMBINE.MEMO_412.WF.003            1 LINE     74    5 PAGE UM   PICKELMAN           FEB. 29, 1980  10:17:12
0          THIS IS COMPUTING CENTER MEMO 412 -- "*COMBINE:  A RECORD-COMBINING PROGRAM."
00772/001A  COUNTW                                   SF  O          S0684 UNSP FSNAME=COUNTW.FTN                                    
            4.3T2   112  COUNTW..SF.001                     1 LINE     77    8 PAGE UM   UNSP                OCT. 06, 1979  04:41:28
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 (1050).
00772/002A  COUNTW                                   OE  O          UNSP:COUNTW                                                     
            4.3T2   113  COUNTW..OE.002                     1 LINE  20832    8 PAGE UM   UNSP                APR. 06, 1980  13:36:28
                         UNSP:COUNTW          
0          LINKEDITED OBJECT OF COUNTW, ROUTINES FROM UBC LIBRARY (1050), AND A
           MODIFIED CSNOOP.O (695/4). 
00772/003A  COUNTW                                   WF             S0684 UNSP FSNAME=COUNTW.F                                      
            4.3T2   114  COUNTW..WF.003                     1 LINE    106    8 PAGE UM   UNSP                OCT. 15, 1979  18:41:10
00773/001A  CONCORD                  FORTRAN SOU     SF  O          S0684 UNSP FSNAME=CONCORD.FTN                                   
            4.3T2   115  CONCORD.FORTRAN_SOU.SF.001         1 LINE     68    4 PAGE UM   UNSP                OCT. 06, 1979  04:44:29
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.
00773/002A  CONCORD                  ASSEMBLY SOU    SA  O          S0684 UNSP FSNAME=CONCORD.ASM                                   
            4.3T2   116  CONCORD.ASSEMBLY_SOU.SA.002        1 LINE     72    3 PAGE UM   UNSP                OCT. 06, 1979  04:43:32
0          Referenced by comments of: 773/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00773/003A  CONCORD                                  OE  O          UNSP:CONCORD                                                    
            4.3T2   117  CONCORD..OE.003                    1 LINE   3264    3 PAGE UM   UNSP                APR. 06, 1980  13:36:37
                         UNSP:CONCORD         
0          LINKEDITED OBJECT OF FORTRAN AND ASSEMBLER SOURCE (773/1 AND 773/2) AND A
           MODIFIED VERSION OF CSNOOP.O (695/4).  USES UNSP:LIBRARY (685/4).
00773/004A  CONCORD                                  WF  O          S0684 UNSP FSNAME=CONCORD.F                                     
            4.3T2   118  CONCORD..WF.004                    1 LINE     67    3 PAGE UM   UNSP                OCT. 06, 1979  04:44:46
00774/001A  LISTER                                   SA  O          S0684 UNSP FSNAME=LISTER.ASM                                    
            4.3T2   119  LISTER..SA.001                     1 LINE    101   39 PAGE UM   UNSP                OCT. 06, 1979  04:45:16
0          A PROGRAM TO LIST FILES.  IT HANDLES LONG LINES, FORMATS OUTPUT INTO COLUMNS,
           AND HAS MANY OTHER OPTIONS.  ORIGINALLY WRITTEN BY TONY BUCKLAND AT UBC.
           USES MTSLNR FROM UBC LIBRARY (1050).  COPIES *GDINFODSECT (594) AND
           *GFINFODSECT (593).  ASSEMBLE WITH PAR=BATCH.
00774/002A  LISTER                                   OE  O          UNSP:LISTER                                                     
            4.3T2   120  LISTER..OE.002                     1 LINE   6352    4 PAGE UM   UNSP                APR. 06, 1980  13:36:44
                         UNSP:LISTER          
0          LINKEDITED OBJECT OF LISTER AND SOME ROUTINES FROM UBC LIBRARY (1050),
           ALONG WITH A MODIFIED VERSION OF CSNOOP.O (695/4).  USES UNSP:LIBRARY (685/4).
00774/003A  LISTER                                   WF             S0684 UNSP FSNAME=LISTER.F                                      
            4.3T2   121  LISTER..WF.003                     1 LINE    173   10 PAGE UM   UNSP                OCT. 06, 1979  04:45:40
00775/001A  PEXIT                                    SA  O          W067:PEXIT.S                                                    
            4.3T2   122  PEXIT..SA.001                      1 LINE     92   15 PAGE UM   SHERRY              APR. 06, 1980  13:36:48
0          THIS IS AN EXPERIMENTAL 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/4 FOR A DESCRIPTION OF WHAT IT DOES
           AND HOW TO USE IT.  USES PEXIT.MAC (775/2), THE OBJUTIL MISC MACROS (721/14),
           AND *SYSMAC. ASSEMBLE WITH ASMH (737/30) WITH PAR=PEXIT=PEXIT.
            
           ***********************************************************************
           D4.3 VERSION:
            
           THIS COMPONENT IS FOR USE WITH THE VERSION OF *ASMH INCLUDED WITH THIS
           DISTRIBUTION (NOT PREVIOUS VERSIONS).
           ***********************************************************************
00775/002A  PEXIT                    MACROS          SM  G          W067:PEXIT.MAC                                                  
            4.3T2   123  PEXIT.MACROS.SM.002                1 LINE     73    8 PAGE UM   SHERRY              APR. 06, 1980  13:37:05
0          MACRO LIBRARY REQUIRED TO ASSEMBLE PROGRAMS CONTAINING THE ASMEDIT MACRO
           WHICH IS USED WITH THE ASSEMBLER H PEXIT ROUTINE.
0          Referenced by comments of: 570/1, 746/1, 749/1, 775/1 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00775/003A  PEXIT                                    OE  O          W067:PEXIT                                                      
            4.3T2   124  PEXIT..OE.003                      1 LINE   4164    5 PAGE UM   SHERRY              APR. 06, 1980  13:37:07
0          OBJECT LOADED BY ASMH (737/30 -- AS DISTRIBUTED ON RD4.2B) IF PAR=PEXIT=PEXIT
           IS SPECIFIED.
0          Referenced by comments of: 746/1 
00775/004A  PEXIT                                    WX             W067:PEXIT.WX                                                   
            4.3T2   125  PEXIT..WX.004                      1 LINE     85    3 PAGE UM   SHERRY              APR. 06, 1980  13:37:09
0          TEXTFORM WRITEUP DESCRIBING THE ASSEMBLER H PRINT EXIT PEXIT.
00776    C *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
           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          MTS:SHUTDOWN(1,999)                                             
            4.3T2   126  STARTUP/SHUTDOWN..SA.001           1 LINE     72    3 PAGE UM   OGDEN               APR. 06, 1980  13:37:11
0          THE STARTUP AND SHUTDOWN JOB PROGRAMS, RECENTLY MOVED TO AN ASSEMBLY OF
           THEIR OWN AND OUT OF CMDS.
           ASSEMBLE USING COPY:MISC.MACROS (728).  COPIES COPY:GLOBALS (1026/3)
           AND COPY:LLMPSEQU (087).
00777/002A  STARTUP/SHUTDOWN                         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00778/001A  SIGNONM                                  SA  G          MTS:SIGNONM(1,999)                                              
            4.3T2   127  SIGNONM..SA.001                    1 LINE     71    1 PAGE UM   OGDEN               APR. 06, 1980  13:37:14
0          THE SIGNONM (SIGNON MESSAGE) JOB PROGRAM, RECENTLY MOVED OUT OF CMDS AND
           INTO AN ASSEMBLY OF ITS OWN.
           ASSEMBLE USING COPY:MISC.MACROS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00778/002A  SIGNONM                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   OGDEN                                      
00779/001C  TRANSLATE TABLES                         SA  G          W078:TRTABLES.S                                                 
            4.3T2   128  TRANSLATE_TABLES..SA.001           1 LINE     89    3 PAGE UM   GOODRICH            APR. 06, 1980  13:37:16
0          TRANSLATE TABLES USED BY MANY PARTS OF THE SYSTEM.  CONTAINS COMMANDS AT
           FRONT SO THAT IT MAY BE $SOURCED TO.
00779/002C  TRANSLATE TABLES                         O   G          SEG2:TRTABLES                                                   
            4.3T2   129  TRANSLATE_TABLES..O.002            1 LINE     80    3 PAGE UM   GOODRICH            APR. 06, 1980  13:37:18
                         SEG2:TRTABLES        
0          OBJECT FOR THE TRANSLATE AND TRANSLATE AND TEST TABLES LOADED BY THE SEGMENT
           2 LOADER.
00780/001C  MESS                     STUDENT VERS    SF  O          S1073 UNSP FSNAME=MESS3SBSOR                                    
            4.3T2   130  MESS.STUDENT_VERS.SF.001           1 LINE     72   10 PAGE UM   UNSP                DEC. 21, 1974  14:06.40
0          THIS COMPONENT IS THE MICHIGAN EXPERIMENTAL SIMULATION SUPERVISOR (MESS),
           A GENERAL SUPERVISOR FOR COMPUTER-SIMULATED EXPERIMENTS.  MESS, THE MICHIGAN 
           EXPERIMENT SIMULATION SUPERVISOR, WAS DEVELOPED AT THE UNIVERSITY OF MICHIGAN 
           HIGHWAY SAFETY RESEARCH INSTITUTE BY RICHARD HALSTEAD-NUSSLOCH, ALONG WITH 
           DANA MAIN AND ROBERT L STOUT.  MESS IS USED BY THE MESS EXPR-SIM EXPERIMENTS
           (780/13 - 780/33), A COLLECTION OF EXPERIMENTS WHICH SIMULATE VARIOUS
           PSYCHOLOGICAL EXPERIMENTS.  MESS 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/002C  MESS                     STUDENT VERS    OC  O          UNSP:EXPR_MESS3SB                                               
            4.3T2   131  MESS.STUDENT_VERS.OC.002           1 LINE  10454    6 PAGE UM   UNSP                APR. 06, 1980  13:46:31
                         UNSP:EXPR_MESS3SB    
00780/003C  MESS                     INSTRUCT VERS   SF  O          S1073 UNSP FSNAME=MESS3PSOR                                     
            4.3T2   132  MESS.INSTRUCT_VERS.SF.003          1 LINE     72   16 PAGE UM   UNSP                MAY  31, 1975  17:51:05
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/004C  MESS                     INSTRUCT VERS   OC  O          UNSP:EXPR_MESS3P                                                
            4.3T2   133  MESS.INSTRUCT_VERS.OC.004          1 LINE  18282    9 PAGE UM   UNSP                APR. 06, 1980  13:46:36
                         UNSP:EXPR_MESS3P     
00780/005C  MESS                     CARD VERSION    SF  O          S1073 UNSP FSNAME=MESS3SCSOR                                    
            4.3T2   134  MESS.CARD_VERSION.SF.005           1 LINE     72   10 PAGE UM   UNSP                DEC. 21, 1974  13:58.50
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00780/006C  MESS                     CARD VERSION    OC  O          S0684 UNSP FSNAME=MESS3SCOBJ                                    
            4.3T2   135  MESS.CARD_VERSION.OC.006           1 LINE  14220    7 PAGE UM   UNSP                FEB. 20, 1980  05:40:11
00780/007C  MESS                     FORMAT RTNS     SF  O          S1073 UNSP FSNAME=FPOUTSOR                                      
            4.3T2   136  MESS.FORMAT_RTNS.SF.007            1 LINE     72    5 PAGE UM   UNSP                MAY  31, 1975  17:52:58
0          GENERAL FORMATTING ROUTINES USED BY MESS.
00780/008C  MESS                     NUM & STAT RTN  SF  O          S1073 UNSP FSNAME=LIBSOR                                        
            4.3T2   137  MESS.NUM_&_STAT_RTN.SF.008         1 LINE     74    8 PAGE UM   UNSP                MAY  31, 1975  17:50:48
0          NUMERICAL AND STATISTICAL ROUTINES USED BY MESS.
00780/009C  MESS                     AUX RTNS        SF  O          S1073 UNSP FSNAME=AUXSOR                                        
            4.3T2   138  MESS.AUX_RTNS.SF.009               1 LINE     75   13 PAGE UM   UNSP                MAY  31, 1975  17:46:53
0          MISCELLANEOUS AUXILIARY ROUTINES USED BY MESS.
00780/010C  MESS                     LIBRARY         OL  O          UNSP:EXPR_MESSLIB                                               
            4.3T2   139  MESS.LIBRARY.OL.010                1 LINE   5912   13 PAGE UM   UNSP                APR. 06, 1980  13:46:57
                         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/011C  MESS                     INSTALL         P              S0684 UNSP FSNAME=EXPR.COMMENTS                                 
            4.3T2   140  MESS.INSTALL.P.011                 1 LINE     67    1 PAGE UM   UNSP                DEC. 13, 1979  02:26:07
0          A BRIEF INTRODUCTION TO MESS AND THE MESS 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
            
                        EXPER-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                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00780/012C  MESS                     WRITEUP         P              UNSP:EXPR.W                                                     
            4.3T2   141  MESS.WRITEUP.P.012                 1 LINE     70    1 PAGE UM   UNSP                APR. 06, 1980  13:47:01
0          CONTAINS A DIRECTORY TO THE MESS AND MESS EXPR-SIM (780/13 - 780/33) FILES AT UM.
00780/013C  MESS                     EXPR-SIM DEMO   O   O          UNSP:EXPR.DEMO                                                  
            4.3T2   142  MESS.EXPR-SIM_DEMO.O.013           1 LINE  15804   21 PAGE UM   UNSP                APR. 06, 1980  13:47:04
                         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 780/14 FORTRAN
           MODEL PROGRAM.
00780/014C  MESS                     EXPR-SIM DEMO   SF  O          S1073 UNSP FSNAME=DEMO2SOR                                      
            4.3T2   143  MESS.EXPR-SIM_DEMO.SF.014          1 LINE     72    4 PAGE UM   UNSP                DEC. 21, 1974  14:26.35
0          THIS IS THE MODEL PROGRAM FOR A DEMONSTRATION EXPERIMENT.
00780/015C  MESS                     EXPR-SIM DEMO   D              S1073 UNSP FSNAME=DEMO2DAT1                                     
            4.3T2   144  MESS.EXPR-SIM_DEMO.D.015           1 LINE     64    1 PAGE UM   UNSP                DEC. 21, 1974  14:27.08
0          THIS IS THE DATA FOR 780/13.
0          Referenced by comments of: 780/13 
00780/016C  MESS                     EXPR-SIM DOPE   O   O          UNSP:EXPR.DOPE                                                  
            4.3T2   145  MESS.EXPR-SIM_DOPE.O.016           1 LINE  15800   20 PAGE UM   UNSP                APR. 06, 1980  13:47:14
                         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 780/17 FORTRAN
           MODEL PROGRAM.
00780/017C  MESS                     EXPR-SIM DOPE   SF  O          S1073 UNSP FSNAME=DOPESOR                                       
            4.3T2   146  MESS.EXPR-SIM_DOPE.SF.017          1 LINE     79    5 PAGE UM   UNSP                MAY  31, 1975  17:47:55
00780/018C  MESS                     EXPR-SIM DOPE   D              S1073 UNSP FSNAME=DOPEDAT1                                      
            4.3T2   147  MESS.EXPR-SIM_DOPE.D.018           1 LINE     54    1 PAGE UM   UNSP                DEC. 21, 1974  14:23.37
0          Referenced by comments of: 780/16 
00780/019C  MESS                     EXPR IMPRINT    O   O          UNSP:EXPR.IMPRINT                                               
            4.3T2   148  MESS.EXPR_IMPRINT.O.019            1 LINE  15800   18 PAGE UM   UNSP                APR. 06, 1980  13:47:21
                         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 780/20 FORTRAN
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          MODEL PROGRAM.
00780/020C  MESS                     EXPR IMPRINT    SF  O          S1073 UNSP FSNAME=IMPSOR                                        
            4.3T2   149  MESS.EXPR_IMPRINT.SF.020           1 LINE     72    3 PAGE UM   UNSP                DEC. 21, 1974  14:06.06
00780/021C  MESS                     EXPR IMPRINT    D              S1073 UNSP FSNAME=IMPDAT1                                       
            4.3T2   150  MESS.EXPR_IMPRINT.D.021            1 LINE     63    1 PAGE UM   UNSP                DEC. 21, 1974  14:22.37
0          Referenced by comments of: 780/19 
00780/022C  MESS                     EXPR MOTIV      O   O          UNSP:EXPR.MOTIVE                                                
            4.3T2   151  MESS.EXPR_MOTIV.O.022              1 LINE  15800   19 PAGE UM   UNSP                APR. 06, 1980  13:47:29
                         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 780/23 FORTRAN
           MODEL PROGRAM.
00780/023C  MESS                     EXPR MOTIV      SF  O          S1073 UNSP FSNAME=MOTSOR                                        
            4.3T2   152  MESS.EXPR_MOTIV.SF.023             1 LINE     71    3 PAGE UM   UNSP                DEC. 21, 1974  14:09.42
00780/024C  MESS                     EXPR MOTIV      D              S1073 UNSP FSNAME=MOTDAT1                                       
            4.3T2   153  MESS.EXPR_MOTIV.D.024              1 LINE     71    1 PAGE UM   UNSP                DEC. 21, 1974  14:08.33
0          Referenced by comments of: 780/22 
00780/025C  MESS                     EXPR-SIM RATS   O   O          UNSP:EXPR.RATS                                                  
            4.3T2   154  MESS.EXPR-SIM_RATS.O.025           1 LINE  15804   21 PAGE UM   UNSP                APR. 06, 1980  13:47:36
                         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 780/26 FORTRAN MODEL PROGRAM.
00780/026C  MESS                     EXPR-SIM RATS   SF  O          S1073 UNSP FSNAME=RATSSOR                                       
            4.3T2   155  MESS.EXPR-SIM_RATS.SF.026          1 LINE     75    5 PAGE UM   UNSP                MAY  31, 1975  17:48:33
00780/027C  MESS                     EXPR-SIM RATS   D              S1073 UNSP FSNAME=RATSDAT1                                      
            4.3T2   156  MESS.EXPR-SIM_RATS.D.027           1 LINE     52    1 PAGE UM   UNSP                DEC. 21, 1974  14:16.50
0          Referenced by comments of: 780/25 
00780/028C  MESS                     EXPR-SIM SCHIZ  O   O          UNSP:EXPR.SCHIZ                                                 
            4.3T2   157  MESS.EXPR-SIM_SCHIZ.O.028          1 LINE  15800   16 PAGE UM   UNSP                APR. 06, 1980  13:47:43
                         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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          OF THE 780/29 FORTRAN MODEL PROGRAM.
00780/029C  MESS                     EXPR-SIM SCHIZ  SF  O          S1073 UNSP FSNAME=SCHIZSOR                                      
            4.3T2   158  MESS.EXPR-SIM_SCHIZ.SF.029         1 LINE     72    1 PAGE UM   UNSP                DEC. 21, 1974  14:10.48
00780/030C  MESS                     EXPR-SIM SCHIZ  D              S1073 UNSP FSNAME=SCHIZDAT1                                     
            4.3T2   159  MESS.EXPR-SIM_SCHIZ.D.030          1 LINE     67    1 PAGE UM   UNSP                DEC. 21, 1974  14:10.18
0          Referenced by comments of: 780/28 
00780/031C  MESS                     EXPR SOC FAC    O   O          UNSP:EXPR.SOCFAC                                                
            4.3T2   160  MESS.EXPR_SOC_FAC.O.031            1 LINE  15800   19 PAGE UM   UNSP                APR. 06, 1980  13:47:51
                         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 780/32 FORTRAN
           MODEL PROGRAM.
00780/032C  MESS                     EXPR SOC FAC    SF  O          S1073 UNSP FSNAME=SFACSOR                                       
            4.3T2   161  MESS.EXPR_SOC_FAC.SF.032           1 LINE     69    4 PAGE UM   UNSP                SEP. 07, 1973  14:40.51
00780/033C  MESS                     EXPR SOC FAC    D              S1073 UNSP FSNAME=SFACDAT1                                      
            4.3T2   162  MESS.EXPR_SOC_FAC.D.033            1 LINE     76    1 PAGE UM   UNSP                SEP. 07, 1973  14:42.30
0          Referenced by comments of: 780/31 
00781/001C  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.
00781/002C  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 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00781/003C  PASCAL VALIDATION SUITE  DOCUMENTATION   P            # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.DOCUMENTATION             
                                                                                    UM   PICKELMAN                                  
0          A DESCRIPTION OF THE PASCAL VALIDATION SUITE.
00781/004C  PASCAL VALIDATION SUITE  SUITE           SW  G        # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SUITE                     
                                                                                    UM   PICKELMAN                                  
0          THE PASCAL VALIDATION SUITE TEST PROGRAMS.
00781/005C  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/006C  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/007C  PASCAL VALIDATION SUITE  UM REPORTS      P              S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.360REPORTS                
            4.3T2   163  PASCAL_VALIDATION_SUITE.U.P.007    1 LINE     82   12 PAGE UM   PICKELMAN           JAN. 21, 1980  14:52:47
0          RESULTS OF THE PASCAL VALIDATION SUITE AT UM.
00781/008C  PASCAL VALIDATION SUITE  SELECT          UC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SELECT.CDU                
            4.3T2   164  PASCAL_VALIDATION_SUITE.S.UC.008   1 LINE     68    3 PAGE UM   PICKELMAN           FEB. 25, 1980  15:21:19
0          UPDATE TO THE SKELETON (781/2).  PRODUCES OBJECT (781/9) FOR USE WITH THE
           PASCAL COMPILERS AVAILABLE UNDER MTS.
00781/009C  PASCAL VALIDATION SUITE  SELECT          OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=PVS_SELECT                    
            4.3T2   165  PASCAL_VALIDATION_SUITE.S.OC.009   1 LINE   7532    4 PAGE UM   PICKELMAN           JAN. 21, 1980  15:00:09
0          HAS A $CONTINUE WITH UNSP:PAS.SP.RUN (782/55) RECORD.
0          Referenced by comments of: 781/8 
00782/001A  PASCAL/SB                OS/COMMENTS     P   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.COMMENTS                 
            4.3T2   166  PASCAL/SB.OS/COMMENTS.P.001        1 LINE     91   16 PAGE UM   UNSP                OCT. 20, 1979  19:26:23
0          THIS IS THE STONY BROOK PASCAL COMPILER, RELEASE 3.1. SUBCOMPONENTS
           INCLUDE MODULES OF THE OS VERSION AS RECEIVED FROM STONY BROOK
           (SUBCOMPONENTS 782/1 - 782/35) AND THOSE MODIFIED FOR THE MTS
           VERSION (SUBCOMPONENTS 782/36 - 782/67).
            
           782/1 IS THE DESCRIPTION, FROM STONY BROOK, OF THE OS VERSION.  OTHER 
           SUBCOMPONENTS WHICH MAY BE HELPFUL TO THOSE INSTALLING PASCAL/SB ARE
           782/36 AND 782/37.  TO INSTALL THE SYSTEM AS RUN AT MICHIGAN, RESTORE
           SUBCOMPONENTS 782/52, 782/55, AND 782/58, ALONG WITH 782/38, 782/39
           (WRITEUPS) AND 782/61, 782/62 AND 782/63 (TEST PROGRAMS).
            
           THE XPL PROGRAMS MODIFIED BY MICHIGAN (COMPONENTS 782/36 AND BEYOND) USE
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          THE VERSION OF THE 495/13 VERSION OF THE XPL SUBMONITOR.
            
           COMPONENT 685/11 IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES
           TO ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM. 
00782/002A  PASCAL/SB                OS/OMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.OMONITOR.ASM             
            4.3T2   167  PASCAL/SB.OS/OMONITOR.SA.002       1 LINE     80   41 PAGE UM   UNSP                OCT. 20, 1979  19:26:26
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 
00782/003C  PASCAL/SB                OS/OMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASCAL2S.ASM             
            4.3T2   168  PASCAL/SB.OS/OMONITOR.SA.003       1 LINE     80   37 PAGE UM   UNSP                OCT. 20, 1979  19:28:22
0          A VERSION OF THE OVERLAY MONITOR (782/2) THAT USES COREFILES AND A "STEP LIB".
00782/004A  PASCAL/SB                OS/OMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PA$CAL.ASM               
            4.3T2   169  PASCAL/SB.OS/OMONITOR.SA.004       1 LINE     80   39 PAGE UM   UNSP                OCT. 20, 1979  19:26:39
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).
00782/005A  PASCAL/SB                OS/CORE FILE    SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.COREFILE.ASM             
            4.3T2   170  PASCAL/SB.OS/CORE_FILE.SA.005      1 LINE     72    5 PAGE UM   UNSP                OCT. 20, 1979  19:26:31
0          THIS FILE CONTAINS THE ASSEMBLER SOURCE ROUTINE THAT SIMULATES OS/360 QSAM
           FILES BY USING LINKED, IN-CORE STORAGE BLOCKS.
00782/006A  PASCAL/SB                OS/RMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONITOR.ASM             
            4.3T2   171  PASCAL/SB.OS/RMONITOR.SA.006       1 LINE     80   41 PAGE UM   UNSP                OCT. 20, 1979  19:26:33
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 
00782/007C  PASCAL/SB                OS/RMONITOR     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONR2.ASM               
            4.3T2   172  PASCAL/SB.OS/RMONITOR.SA.007       1 LINE     80   36 PAGE UM   UNSP                OCT. 20, 1979  19:28:29
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/008C  PASCAL/SB                OS/RMONITOR     U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONITOR.EDITXPL         
            4.3T2   173  PASCAL/SB.OS/RMONITOR.U.008        1 LINE     63    1 PAGE UM   UNSP                JAN. 22, 1980  14:49:27
0          AN EDIT XPL (782/32) UPDATE TO THE RUN MONITOR (782/6).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00782/009A  PASCAL/SB                OS/OBJECT       OL  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASCAL.LMODS             
            4.3T2   174  PASCAL/SB.OS/OBJECT.OL.009         1 LINE     80   17 PAGE UM   UNSP                OCT. 20, 1979  19:26:43
0          THIS FILE CONTAINS LOAD MODULES TO PROVIDE THE EXECUTION ENVIRONMENTS
           FOR THE STONY BROOK PASCAL COMPILER AND FOR COMPILED PASCAL PROGRAMS.
00782/010A  PASCAL/SB                OS/PASS1        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.XPL                
            4.3T2   175  PASCAL/SB.OS/PASS1.SX.010          1 LINE     80   68 PAGE UM   UNSP                OCT. 20, 1979  19:26:46
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/23 
00782/011C  PASCAL/SB                OS/PASS1        U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.EDITXPL            
            4.3T2   176  PASCAL/SB.OS/PASS1.U.011           1 LINE     80    1 PAGE UM   UNSP                OCT. 20, 1979  19:28:34
0          AN EDITXPL (782/32) UPDATE TO PASS 1 (782/10).
00782/012A  PASCAL/SB                OS/PASS1        O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.OBJ                
            4.3T2   177  PASCAL/SB.OS/PASS1.O.012           1 LINE   7200   32 PAGE UM   UNSP                OCT. 20, 1979  19:26:52
0          THIS IS THE OBJECT OF 782/10 WHICH CAN BE USED BY 782/2 AND OTHER 
           VERSIONS OF THE XPL SUBMONITOR.
00782/013A  PASCAL/SB                OS/PASS2        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.XPL                
            4.3T2   178  PASCAL/SB.OS/PASS2.SX.013          1 LINE     80   97 PAGE UM   UNSP                OCT. 20, 1979  19:26:55
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/25 
00782/014C  PASCAL/SB                OS/PASS2        U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.EDITXPL            
            4.3T2   179  PASCAL/SB.OS/PASS2.U.014           1 LINE     80    4 PAGE UM   UNSP                OCT. 20, 1979  19:28:27
0          AN EDITXPL (782/32) UPDATE TO PASS 2 (782/13).
00782/015A  PASCAL/SB                OS/PASS2        O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.OBJ                
            4.3T2   180  PASCAL/SB.OS/PASS2.O.015           1 LINE   7200   40 PAGE UM   UNSP                OCT. 20, 1979  19:27:07
0          THIS IS THE OBJECT OF 782/13, WHICH CAN BE USED BY 782/2 AND OTHER 
           VERSIONS OF THE XPL SUBMONITOR.
00782/016A  PASCAL/SB                OS/PASS3        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS3.XPL                
            4.3T2   181  PASCAL/SB.OS/PASS3.SX.016          1 LINE     80   55 PAGE UM   UNSP                OCT. 20, 1979  19:27:12
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00782/017A  PASCAL/SB                OS/PASS3        O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS3.OBJ                
            4.3T2   182  PASCAL/SB.OS/PASS3.O.017           1 LINE   7200   32 PAGE UM   UNSP                OCT. 20, 1979  19:27:18
0          THIS IS THE OBJECT OF 782/16, WHICH CAN BE USED BY 782/2 AND OTHER 
           VERSIONS OF THE XPL SUBMONITOR.
00782/018A  PASCAL/SB                OS/PMD          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PMD.XPL                  
            4.3T2   183  PASCAL/SB.OS/PMD.SX.018            1 LINE     80   15 PAGE UM   UNSP                OCT. 20, 1979  19:27:22
0          THIS FILE CONTAINS THE SOURCE CODE FOR THE POST-MORTEM ANALYSIS ROUTINES
           (PMD).
00782/019A  PASCAL/SB                OS/PMD          O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PMD.OBJ                  
            4.3T2   184  PASCAL/SB.OS/PMD.O.019             1 LINE   7200   12 PAGE UM   UNSP                OCT. 20, 1979  19:27:25
0          THIS IS THE OBJECT OF 782/18, WHICH CAN BE USED BY 782/2 AND OTHER 
           VERSIONS OF THE XPL SUBMONITOR.
00782/020A  PASCAL/SB                OS/LINKER       SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.LINKER.XPL               
            4.3T2   185  PASCAL/SB.OS/LINKER.SX.020         1 LINE     80   20 PAGE UM   UNSP                OCT. 20, 1979  19:27:28
0          THIS FILE CONTAINS THE SOURCE CODE FOR THE STONY BROOK PASCAL LINKER.
0          Referenced by comments of: 782/4 
00782/021A  PASCAL/SB                OS/LINKER       O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.LINKER.OBJ               
            4.3T2   186  PASCAL/SB.OS/LINKER.O.021          1 LINE   7200   21 PAGE UM   UNSP                OCT. 20, 1979  19:27:34
0          THIS IS THE OBJECT OF 782/20, WHICH CAN BE USED BY 782/2 AND OTHER 
           VERSIONS OF THE XPL SUBMONITOR.
00782/022A  PASCAL/SB                OS/PASS1S       U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1S.EDITXPL           
            4.3T2   187  PASCAL/SB.OS/PASS1S.U.022          1 LINE     80    3 PAGE UM   UNSP                OCT. 20, 1979  19:27:37
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).
00782/023A  PASCAL/SB                OS/PASS1S       O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1S.OBJ               
            4.3T2   188  PASCAL/SB.OS/PASS1S.O.023          1 LINE   7200   30 PAGE UM   UNSP                OCT. 20, 1979  19:27:39
0          THIS FILE CONTAINS THE XPL OBJECT OF PASS1 (782/10), AS UPDATED BY 782/22.
00782/024A  PASCAL/SB                OS/PASS2S       U   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2S.EDITXPL           
            4.3T2   189  PASCAL/SB.OS/PASS2S.U.024          1 LINE     80    3 PAGE UM   UNSP                OCT. 20, 1979  19:27:43
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).
00782/025A  PASCAL/SB                OS/PASS2S       O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2S.OBJ               
            4.3T2   190  PASCAL/SB.OS/PASS2S.O.025          1 LINE   7200   35 PAGE UM   UNSP                OCT. 20, 1979  19:27:45
0          THIS FILE CONTAINS THE XPL OBJECT OF PASS2 (782/13), AS UPDATED BY 782/24.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00782/026A  PASCAL/SB                OS/BNCHMARK     SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.BNCHMARK.PROGRAMS        
            4.3T2   191  PASCAL/SB.OS/BNCHMARK.SW.026       1 LINE     80   12 PAGE UM   UNSP                OCT. 20, 1979  19:27:49
0          A SET OF TEST PROGRAMS AND JCL TO TEST PASCAL/SB.
00782/027A  PASCAL/SB                OS/XPLSM        SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLSM.ASM                
            4.3T2   192  PASCAL/SB.OS/XPLSM.SA.027          1 LINE     80   38 PAGE UM   UNSP                OCT. 20, 1979  19:27:52
0          THIS FILE CONTAINS AN ASSEMBLY LANGUAGE VERSION OF THE XPL SUBMONITOR,
           XPLSM. FOR USE WITH 782/29.
00782/028A  PASCAL/SB                OS/XCOM4        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XCOM4.XPL                
            4.3T2   193  PASCAL/SB.OS/XCOM4.SX.028          1 LINE     80   51 PAGE UM   UNSP                OCT. 20, 1979  19:28:01
0          THIS FILE CONTAINS THE SOURCE FOR XCOM4 (SEE 782/29).
0          Referenced by comments of: 782/29 
00782/029A  PASCAL/SB                OS/XCOM4        O   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XCOM4.OBJ                
            4.3T2   194  PASCAL/SB.OS/XCOM4.O.029           1 LINE   7200   30 PAGE UM   UNSP                OCT. 20, 1979  19:27:58
0          THIS IS THE OBJECT OF XPL (782/28) THAT HAS BEEN USED TO COMPILE
           THE STONY BROOK PASCAL COMPILER.
00782/030A  PASCAL/SB                OS/XPLIB        SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLIB.XPL                
            4.3T2   195  PASCAL/SB.OS/XPLIB.SX.030          1 LINE     80    1 PAGE UM   UNSP                OCT. 20, 1979  19:28:07
0          THIS FILE CONTAINS THE SOURCE FOR COMPACTIFY, THE XPL PROCEDURE WHICH IS
           AUTOMATICALLY CONCATENATED ON TO THE FRONT OF EVERY XPL PROGRAM. 
00782/031A  PASCAL/SB                OS/XPLXREF      SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLXREF.XPL              
            4.3T2   196  PASCAL/SB.OS/XPLXREF.SX.031        1 LINE     80    9 PAGE UM   UNSP                OCT. 20, 1979  19:28:09
0          THIS FILE CONTAINS THE XPL SOURCE FOR A CROSS-REFERENCE LISTINGS PROGRAM FOR
           XPL SOURCE.
00782/032A  PASCAL/SB                OS/EDITXPL      SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.EDITXPL.XPL              
            4.3T2   197  PASCAL/SB.OS/EDITXPL.SX.032        1 LINE     80    3 PAGE UM   UNSP                OCT. 20, 1979  19:28:13
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/033A  PASCAL/SB                OS/EDITXPL      OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.EDITXPL.OBJ              
            4.3T2   198  PASCAL/SB.OS/EDITXPL.OC.033        1 LINE   7200    5 PAGE UM   UNSP                OCT. 20, 1979  19:28:15
00782/034A  PASCAL/SB                OS/REFORMAT     SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.REFORMAT.ASM             
            4.3T2   199  PASCAL/SB.OS/REFORMAT.SA.034       1 LINE     80   10 PAGE UM   UNSP                OCT. 20, 1979  19:28:17
0          THIS FILE CONTAINS THE SOURCE OF A UTILITY PROGRAM THAT CAN BE USED TO 
           REFORMAT XPL OBJECT MODULES ONTO A DISK.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00782/035A  PASCAL/SB                OS/PREFIX       SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PREFIX.XPL               
            4.3T2   200  PASCAL/SB.OS/PREFIX.SX.035         1 LINE     80   11 PAGE UM   UNSP                OCT. 20, 1979  19:28:20
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.
00782/036A  PASCAL/SB                COMMENTS        P   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.COMMENTS                   
            4.3T2   201  PASCAL/SB.COMMENTS.P.036           1 LINE     68    1 PAGE UM   UNSP                FEB. 10, 1980  17:44:03
0          INTERNAL DOCUMENTATION, WITH REFERENCES, FOR PASCAL/SB.
           NOT YET VERY COMPLETE.
00782/037A  PASCAL/SB                INSTALL         C   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.INSTALL                    
            4.3T2   202  PASCAL/SB.INSTALL.C.037            1 LINE    213    3 PAGE UM   UNSP                FEB. 10, 1980  17:10:59
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.
00782/038A  PASCAL/SB                NEWS            P   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.NEWS                       
            4.3T2   203  PASCAL/SB.NEWS.P.038               1 LINE     85    8 PAGE UM   UNSP                FEB. 10, 1980  17:12:14
0          A USER-LEVEL LIST OF CHANGES TO PASCAL/SB AS MADE.  CURENTLY HAS SOME
           THINGS IN IT WHICH NEED TO BE ADDED TO THE USERS MANUAL (782/39).
00782/039A  PASCAL/SB                USERS MANUAL    WF  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.USERS_MANUAL               
            4.3T2   204  PASCAL/SB.USERS_MANUAL.WF.039      1 LINE    127   35 PAGE UM   UNSP                NOV. 22, 1979  05:15:49
0          USER-LEVEL DOCUMENTATION FOR PASCAL/SB.  NOT YET MODIFIED FOR MTS.
0          Referenced by comments of: 782/38 
00782/040A  PASCAL/SB                PASS 1          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS1                      
            4.3T2   205  PASCAL/SB.PASS_1.SX.040            1 LINE    105   69 PAGE UM   UNSP                MAR. 03, 1980  19:16:47
0          THIS IS COMPONENT 782/10, AS MODIFIED FOR MTS.
00782/041A  PASCAL/SB                PASS 2          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS2                      
            4.3T2   206  PASCAL/SB.PASS_2.SX.041            1 LINE    113   98 PAGE UM   UNSP                MAR. 11, 1980  19:46:39
0          THIS IS COMPONENT 782/13, AS MODIFIED FOR MTS. MUST BE COMPILED WITH
           THE 495/14 VERSION OF XPL, SINCE IT IS VERY LARGE, AND PREVIOUS
           VERSIONS OF XPL WILL FAIL ON PROGRAMS SO BIG.
00782/042A  PASCAL/SB                PASS 3          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS3                      
            4.3T2   207  PASCAL/SB.PASS_3.SX.042            1 LINE     88   56 PAGE UM   UNSP                MAR. 20, 1980  13:51:53
0          THIS IS COMPONENT 782/16, AS MODIFIED FOR MTS.
00782/043A  PASCAL/SB                PMD             SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PMD                        
            4.3T2   208  PASCAL/SB.PMD.SX.043               1 LINE     80   13 PAGE UM   UNSP                MAR. 01, 1980  19:26:36
0          THIS IS COMPONENT 782/18, AS MODIFIED FOR MTS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00782/044A  PASCAL/SB                LINKER          SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINKER                     
            4.3T2   209  PASCAL/SB.LINKER.SX.044            1 LINE     80   22 PAGE UM   UNSP                MAR. 30, 1980  18:00:13
0          THIS IS COMPONENT 782/20, AS MODIFIED FOR MTS.
00782/045A  PASCAL/SB                XPL             SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.XPL                        
            4.3T2   210  PASCAL/SB.XPL.SX.045               1 LINE     68    5 PAGE UM   UNSP                MAR. 03, 1980  19:18:17
0          XPL SUBROUTINES USED BY PASCAL/SB INCLUDING MISCELLANEOUS SUBROUTINES
           USEFUL WHEN PROGRAMMING IN XPL. 
00782/046A  PASCAL/SB                ASM             SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.ASM                        
            4.3T2   211  PASCAL/SB.ASM.SA.046               1 LINE    102   10 PAGE UM   UNSP                FEB. 25, 1980  15:17:59
0          ASSEMBLY LANGUAGE SUBROUTINES USED BY PASCAL/SB.  USES THE 782/48 PASCAL
           MACRO LIBRARY.
0          Referenced by comments of: 782/48 
00782/047A  PASCAL/SB                PASTIME         SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASTIME                    
            4.3T2   212  PASCAL/SB.PASTIME.SA.047           1 LINE     86   20 PAGE UM   UNSP                MAR. 01, 1980  19:26:05
0          THE RUNTIME SUPPORT FOR PASCAL/SB PROGRAMS.  USES THE 782/48 PASCAL
           MACRO LIBRARY.
00782/048A  PASCAL/SB                MACRO LIB       SM  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.MACLIB                     
            4.3T2   213  PASCAL/SB.MACRO_LIB.SM.048         1 LINE     51    1 PAGE UM   UNSP                FEB. 10, 1980  17:18:30
0          A MACRO LIBRARY FOR USE BY THE ASSEMBLER ROUTINES (782/46). 
00782/049A  PASCAL/SB                LIBRARY         OL  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LIB                        
            4.3T2   214  PASCAL/SB.LIBRARY.OL.049           1 LINE  32767  116 PAGE UM   UNSP                MAR. 30, 1980  18:00:32
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                     
            4.3T2   215  PASCAL/SB.MAIN_PROGRAM.SX.050      1 LINE     91    3 PAGE UM   UNSP                MAR. 03, 1980  19:16:14
0          XPL MAIN PROGRAM FOR THE COMPILER.
00782/051A  PASCAL/SB                MAIN PROGRAM    OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_PASCAL                     
            4.3T2   216  PASCAL/SB.MAIN_PROGRAM.OC.051      1 LINE  32767   17 PAGE UM   UNSP                FEB. 10, 1980  17:20:56
0          OBJECT OF 782/50.
00782/052A  PASCAL/SB                PASCAL OBJECT   OE  O          UNSP:PAS.SB                                                     
            4.3T2   217  PASCAL/SB.PASCAL_OBJECT.OE.052     1 LINE  32767  121 PAGE UM   UNSP                APR. 06, 1980  13:54:00
                         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/64).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00782/053A  PASCAL/SB                RUN             SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.RUN                        
            4.3T2   218  PASCAL/SB.RUN.SX.053               1 LINE     60    1 PAGE UM   UNSP                FEB. 10, 1980  17:24:33
0          XPL MAIN PROGRAM FOR RUNTIME SUPPORT (PMD).
00782/054A  PASCAL/SB                RUN             OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_RUN                        
            4.3T2   219  PASCAL/SB.RUN.OC.054               1 LINE    444    1 PAGE UM   UNSP                FEB. 10, 1980  17:24:02
00782/055A  PASCAL/SB                RUN             OE  O          UNSP:PAS.SB.RUN                                                 
            4.3T2   220  PASCAL/SB.RUN.OE.055               1 LINE  32767   12 PAGE UM   UNSP                APR. 06, 1980  13:54:11
                         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, 784/3 
00782/056A  PASCAL/SB                LINK            SX  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINK                       
            4.3T2   221  PASCAL/SB.LINK.SX.056              1 LINE     63    1 PAGE UM   UNSP                FEB. 10, 1980  17:27:59
0          XPL MAIN PROGRAM FOR THE LINKER.
00782/057A  PASCAL/SB                LINK            OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LINK                       
            4.3T2   222  PASCAL/SB.LINK.OC.057              1 LINE    440    1 PAGE UM   UNSP                FEB. 10, 1980  17:27:25
00782/058A  PASCAL/SB                LINK            OE  O          UNSP:PAS.SB.LINK                                                
            4.3T2   223  PASCAL/SB.LINK.OE.058              1 LINE  32767   22 PAGE UM   UNSP                APR. 06, 1980  13:54:18
                         UNSP:PAS.SB.LINK     
0          LINKEDITED VERSION OF THE LINKER.  $RUN THIS TO COMBINE NON-STANDARD MODULES,
           FORMING STANDARD ONES.
00782/059C  PASCAL/SB                EDITXPL         UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.EDITXPL.CDU                
            4.3T2   224  PASCAL/SB.EDITXPL.UC.059           1 LINE     84    1 PAGE UM   UNSP                FEB. 25, 1980  09:57:47
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/060C  PASCAL/SB                EDITXPL         OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB_EDITXPL                    
            4.3T2   225  PASCAL/SB.EDITXPL.OC.060           1 LINE   2540    3 PAGE UM   UNSP                FEB. 25, 1980  09:55:17
0          HAS A $CONTINUE WITH *EXPLIB (495/4) RECORD.
00782/061A  PASCAL/SB                TEST            C   O          S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TEST                       
            4.3T2   226  PASCAL/SB.TEST.C.061               1 LINE     48    3 PAGE UM   UNSP                FEB. 10, 1980  17:29:45
0          SOURCE FILE TO TEST THE COMPILER.  $CONTINUES WITH 782/62 AND 782/63.
00782/062A  PASCAL/SB                TEST            SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.PROGRAMS               
            4.3T2   227  PASCAL/SB.TEST.SW.062              1 LINE     90   48 PAGE UM   UNSP                NOV. 22, 1979  05:40:15
0          SEVERAL PASCAL PROGRAMS TO TEST PASCAL/SB.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00782/063A  PASCAL/SB                TEST            D   O          S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.DATA                   
            4.3T2   228  PASCAL/SB.TEST.D.063               1 LINE     68    1 PAGE UM   UNSP                SEP. 13, 1979  01:58:42
0          DATA FOR USE WITH 782/62.
00782/064A  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 MUST BE CREATED WITH THE NAME UNSP:PAS.SB.LOG. TO CHANGE THIS,
           USERRLOG IN 782/46 MUST BE ALTERED.
0          Referenced by comments of: 782/52 
00782/065A  PASCAL/SB                TM1.1           WF             S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM1.1                      
            4.3T2   229  PASCAL/SB.TM1.1.WF.065             1 LINE     73    5 PAGE UM   UNSP                SEP. 13, 1979  01:59:59
0          THIS IS PASCAL TECHNICAL MEMO 1.1:  "THE STONY BROOK PASCAL/360 COMPILER,"
           A 7-PAGE OVERVIEW OF THE COMPILER.
00782/066A  PASCAL/SB                TM5.1           WF             S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM5.1                      
            4.3T2   230  PASCAL/SB.TM5.1.WF.066             1 LINE    136   12 PAGE UM   UNSP                SEP. 13, 1979  02:00:11
0          THIS IS PASCAL TECHNICAL MEMO 5.1: "DOCUMENTATION OF INTERNAL STRUCTURE,"
           A 16-PAGE DESCRIPTION OF PASS 1.
00782/067A  PASCAL/SB                TM5.2           WF             S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM5.2                      
            4.3T2   231  PASCAL/SB.TM5.2.WF.067             1 LINE     84   31 PAGE UM   UNSP                SEP. 13, 1979  02:00:26
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.
00783/001A  PASCAL/8000              OS/JCL              O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.JCL...                   
            4.3T2   232  PASCAL/8000.OS/JCL..001            1 LINE     80   10 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:12:25
0          THIS IS THE AUSTRIALIAN ATOMIC ENERGY COMMISSION PASCAL/8000 COMPILER,
           WHICH HAS BEEN MODIFIED TO RUN IN MTS.  SUBCOMPONENTS 783/1 THROUGH 783/10 
           ARE THE COMPONENTS OF THE OS VERSION; 783/11 THROUGH 783/21 ARE COMPONENTS 
           OF THE MTS VERSION.
            
           COMPONENT 685/11 IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES TO
           ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM.
            
           THIS SUBCOMPONENT CONTAINS OS JCL AND COMMENTS.
00783/002A  PASCAL/8000              OS/LINK         SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.LINK                     
            4.3T2   233  PASCAL/8000.OS/LINK.SW.002         1 LINE    111   85 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:17:04
0          OS OBJECT-MODULE-PRODUCING COMPILER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00783/003A  PASCAL/8000              OS/ASM          SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ASM                      
            4.3T2   234  PASCAL/8000.OS/ASM.SA.003          1 LINE     80  172 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:15:18
0          OS RUNTIME SUPPORT.
00783/004A  PASCAL/8000              OS/OBJECT       OL  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.OBJECT                   
            4.3T2   235  PASCAL/8000.OS/OBJECT.OL.004       1 LINE     80   52 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:13:01
0          OS LIBRARY WITH OBJECT FOR THE STANDARD COMPILER AND RUNTIME SUPPORT.
00783/005A  PASCAL/8000              OS/CMPGO        SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMPGO                    
            4.3T2   236  PASCAL/8000.OS/CMPGO.SW.005        1 LINE    111   80 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:15:56
0          OS COMPILE AND GO COMPILER AND NONSTANDARD OBJECT MODULE.
00783/006A  PASCAL/8000              OS/CMP1         OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP1                     
            4.3T2   237  PASCAL/8000.OS/CMP1.OC.006         1 LINE   1024   24 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:13:30
0          FILE 1 (NONSTANDARD OBJECT) FOR COMPILE AND GO COMPILER.
00783/007A  PASCAL/8000              OS/CMP2         OC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP2                     
            4.3T2   238  PASCAL/8000.OS/CMP2.OC.007         1 LINE     80    1 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:14:09
0          FILE 2 FOR COMPILE AND GO COMPILER.
00783/008A  PASCAL/8000              OS/ERRORS       M              S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ERRORS                   
            4.3T2   239  PASCAL/8000.OS/ERRORS.M.008        1 LINE     75    3 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:14:30
0          ERROR MESSAGE FILE USED BY BOTH PASCAL/8000 OS COMPILERS (783/2 AND 783/5).
00783/009A  PASCAL/8000              EDITOR          SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.EDITOR                   
            4.3T2   240  PASCAL/8000.EDITOR.SW.009          1 LINE     72    4 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:17:43
0          AN UPDATING PROGRAM.
00783/010A  PASCAL/8000              OS/MANUAL       P              S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.MANUAL                   
            4.3T2   241  PASCAL/8000.OS/MANUAL.P.010        1 LINE     74   44 PAGE RPI  ABDALI    UNSP      JUNE 08, 1979  00:18:01
0          A WRITEUP FOR THE OS VERSION OF PASCAL/8000.
00783/011A  PASCAL/8000              COMMENTS        P              S1210 PASDIS 'PASCAL DIST' FSNAME=8000.COMMENTS                 
            4.3T2   242  PASCAL/8000.COMMENTS.P.011         1 LINE     68    1 PAGE RPI  ABDALI    UNSP      FEB. 10, 1980  17:48:32
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.
00783/012A  PASCAL/8000              INSTALL.INFO    P              S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.INSTALL.INFO              
            4.3T2   243  PASCAL/8000.INSTALL.INFO.P.012     1 LINE     74    5 PAGE RPI  ABDALI    UNSP      AUG. 16, 1979  17:22:33
0          A DESCRIPTION AND INSTALLATION INSTRUCTIONS FOR THE MTS VERSION OF PASCAL/8000.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00783/013A  PASCAL/8000              COMPILER        SW  O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.PAS              
            4.3T2   244  PASCAL/8000.COMPILER.SW.013        1 LINE    111   93 PAGE RPI  ABDALI    UNSP      JAN. 13, 1980  22:42:34
0          MTS VERSION OF THE PASCAL/8000 COMPILER.
00783/014C  PASCAL/8000              COMPILER        UC  O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.CDU              
            4.3T2   245  PASCAL/8000.COMPILER.UC.014        1 LINE     79    3 PAGE RPI  ABDALI    UNSP      FEB. 25, 1980  09:54:06
0          AN UPDATE DECK FOR LOCAL CHANGES.  ADDS A CALL TO SNOOP IN UNSP:LIBRARY 
           (685/4) 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).
00783/015A  PASCAL/8000              COMPILER        OC  O          UNSP:PAS.8000                                                   
            4.3T2   246  PASCAL/8000.COMPILER.OC.015        1 LINE  32767   33 PAGE RPI  ABDALI    UNSP      APR. 06, 1980  13:57:03
                         UNSP:PAS.8000        
0          CONTAINS A $CONTINUE WITH UNSP:PAS.8000.RUN (783/18) RECORD.
00783/016A  PASCAL/8000              RUNMACLIB       SM  O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNMACLIB                 
            4.3T2   247  PASCAL/8000.RUNMACLIB.SM.016       1 LINE     73    3 PAGE RPI  ABDALI    UNSP      MAR. 09, 1979  22:10:53
00783/017A  PASCAL/8000              RUNTIME         SA  O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNTIME.ASM               
            4.3T2   248  PASCAL/8000.RUNTIME.SA.017         1 LINE     73   47 PAGE RPI  ABDALI    UNSP      SEP. 08, 1979  20:04:25
0          THE RUNTIME SUPPORT.  ASSEMBLE WITH PAR=BATCH.  USES THE 783/16 MACRO LIBRARY.
00783/018A  PASCAL/8000              RUNTIME         OC  O          UNSP:PAS.8000.RUN                                               
            4.3T2   249  PASCAL/8000.RUNTIME.OC.018         1 LINE   4484    6 PAGE RPI  ABDALI    UNSP      APR. 06, 1980  13:57:28
                         UNSP:PAS.8000.RUN    
0          Referenced by comments of: 783/15 
00783/019A  PASCAL/8000              ERROR MSGS      M   O          UNSP:PAS.8000.ERR                                               
            4.3T2   250  PASCAL/8000.ERROR_MSGS.M.019       1 LINE     75    3 PAGE RPI  ABDALI    UNSP      APR. 06, 1980  13:57:31
                         UNSP:PAS.8000.ERR    
0          ERROR MESSAGES USED BY THE 783/14 COMPILER.
            
00783/020A  PASCAL/8000              MANUAL          P   O          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.PASCALMANUAL              
            4.3T2   251  PASCAL/8000.MANUAL.P.020           1 LINE     78   52 PAGE RPI  ABDALI    UNSP      SEP. 08, 1979  19:57:36
0          USER LEVEL DESCRIPTION OF THE PASCAL/8000 SYSTEM AND HOW TO USE IT.
00783/021A  PASCAL/8000              TEST            SW  G          S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.TEST                      
            4.3T2   252  PASCAL/8000.TEST.SW.021            1 LINE     89    9 PAGE RPI  ABDALI    UNSP      SEP. 08, 1979  20:06:13
0          SOURCE FILE CONTAINING PASCAL PROGRAMS AND MTS COMMANDS TO TEST THE COMPILER.
00784/001C  CRLFASCEBC                               SW  G          S0684 UNSP FSNAME=CRLFASCEBC.PAS                                
            4.3T2   253  CRLFASCEBC..SW.001                 1 LINE     64    1 PAGE UM   UNSP                FEB. 14, 1980  16:04:59
0          THIS PROGRAM CONVERTS STREAM-ORIENTED ASCII FILES WITH EMBEDDED CARRIAGE
           CONTROL TO RECORD-ORIENTED EBCDIC FILES WITH CARRIAGE CONTROL CHARACTERS
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          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.
00784/002C  CRLFASCEBC               SUBROUTINE      SA  G          S0684 UNSP FSNAME=CRLFASCEBC.ASM                                
            4.3T2   254  CRLFASCEBC.SUBROUTINE.SA.002       1 LINE     62    1 PAGE UM   UNSP                FEB. 14, 1980  16:05:51
0          SUBROUTINE CALLED FROM 784/1 TO DO THE ACTUAL TRANSLATION.
00784/003C  CRLFASCEBC                               OC  G          UNSP:CRLFASCEBC                                                 
            4.3T2   255  CRLFASCEBC..OC.003                 1 LINE   1358    2 PAGE UM   UNSP                APR. 06, 1980  13:57:45
                         UNSP:CRLFASCEBC      
0          OBJECT OF 784/1 AND 784/2. CONTAINS A $CONTINUE WITH UNSP:LIBRARY (685/4) AND
           A $CONTINUE WITH UNSP:PAS.SB.RUN (782/55) RECORD.
00784/004C  CRLFASCEBC               WRITEUP         P              UNSP:CRLFASCEBC.W                                               
            4.3T2   256  CRLFASCEBC.WRITEUP.P.004           1 LINE     71    1 PAGE UM   UNSP                APR. 06, 1980  13:57:47
00785/001C  SOUNDEX                                  SF  G          S0684 UNSP FSNAME=SOUNDEX.FTN                                   
            4.3T2   257  SOUNDEX..SF.001                    1 LINE     68    1 PAGE UM   UNSP                FEB. 14, 1980  16:03:28
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.
00785/002C  SOUNDEX                                  OC  G          UNSP:SOUNDEX                                                    
            4.3T2   258  SOUNDEX..OC.002                    1 LINE    730    1 PAGE UM   UNSP                APR. 06, 1980  13:57:52
                         UNSP:SOUNDEX         
0          OBJECT OF 785/1. CONTAINS A $CONTINUE WITH UNSP:LIBRARY (685/4) RECORD.
00785/003C  SOUNDEX                  SUBROUTINE      SA  G          S0684 UNSP FSNAME=SOUNDEX.ASM                                   
            4.3T2   259  SOUNDEX.SUBROUTINE.SA.003          1 LINE     72    2 PAGE UM   UNSP                FEB. 14, 1980  16:02:39
0          SUBROUTINE TO ENCODE NAMES USING THE SOUNDEX ALGORITHM.  OBJECT IS IN
           UNSP:LIBRARY (685/4).
00785/004C  SOUNDEX                  WRITEUP         P              UNSP:SOUNDEX.W                                                  
            4.3T2   260  SOUNDEX.WRITEUP.P.004              1 LINE     70    1 PAGE UM   UNSP                APR. 06, 1980  13:57:56
00786    C  CONSTANTS                                D              UNSP:CONSTANTS                                                  
            4.3T2   261  CONSTANTS..D.                      1 LINE    126    2 PAGE UM   UNSP                APR. 06, 1980  13:57:59
0          A LIST OF COMMONLY SEEN CONSTANTS, EACH CONVERTED IN VARIOUS WAYS. 
00787/001A  UNIT CHECK ROUTINES      MACROS          SM  G          COPY:UC.MACROS                                                  
            4.3T2   262  UNIT_CHECK_ROUTINES.MACRO.SM.001   1 LINE     72    3 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:01
0          COMPONENT 787 IS A NEW COMPONENT, WHICH IS A COMBINATION OF COMPONENTS 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          WHICH WERE ALREADY A PART OF THE DRIVER FILE: COMPONENTS 603 AND 482/1 AND
           482/2. 
            
           THIS SUBCOMPONENT IS THE UNIT CHECK ROUTINES MACRO LIBRARY.
0          Referenced by comments of: 621/4, 655/2, 682/22, 724/1, 787/3, 787/5, 1058/4, 1058/7, 1058/9, 1058/10, 1058/11,
                 1058/13 
00787/002A  UNIT CHECK ROUTINES      DESIGN PAPER    WT             W170:PROTO.PAPER                                                
            4.3T2   263  UNIT_CHECK_ROUTINES.DESIG.WT.002   1 LINE    140    7 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:03
0          ARCHITECTURAL DESCRIPTION OF UNIT CHECK ROUTINE INTERFACE AND CHARACTERISTICS.
00787/003A  UNIT CHECK ROUTINES      3330 COMPAT     SA  G          FILE:UCDISK(1000)                                               
            4.3T2   264  UNIT_CHECK_ROUTINES.3330.SA.003    1 LINE     72   16 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:06
                         FILE:UCDISK          
0          SUBTASKING MONITOR (1058) COMPATIBLE UNIT CHECK ROUTINES FOR 3330, 3350, 2301,
           AND 2305 DEVICES.  COPIES COPY:UC.MACROS (787/1) AND COPY:CMDAREADSECT (531/18).
            
           *********************************************************************************
           D4.3 VERSION:
            
           THIS IS A COMPLETELY NEW VERSION OF UC3330.
           *********************************************************************************
00787/004A  UNIT CHECK ROUTINES      3330 COMPAT     OC  G        # RESIDENT SYSTEM (SEE COMP. 468/1)                               
                                                                                    UM   HELFFRICH                                  
00787/005A  UNIT CHECK ROUTINES      FRONT-END       SA  G          FILE:UC3330(1000)                                               
            4.3T2   265  UNIT_CHECK_ROUTINES.FRONT.SA.005   1 LINE     72    5 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:13
                         FILE:UC3330          
0          FRONT-END TO NEW UC3330 ROUTINES TO MAKE THEM COMPATIBLE WITH THE OLD
           VERSION. COPIES COPY:UC.MACROS (787/1).
00787/006A  UNIT CHECK ROUTINES      FRONT-END       OC  G        # RESIDENT SYSTEM (SEE COMP. 468/1)                               
                                                                                    UM   HELFFRICH                                  
00787/007A  UNIT CHECK ROUTINES      DASDUC          SA  G          FILE:DASDUC(1000)                                               
            4.3T2   266  UNIT_CHECK_ROUTINES.DASDU.SA.007   1 LINE     72    9 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:16
0          2311/2314/2321/2301 UNIT CHECK ROUTINES.
            
           *****************************************************************************
           D4.3 CHANGES:
            
           FIXED BUG WHICH WOULD CAUSE PROGRAM INTERRUPT IF A CSW LEFT-HALF OF ZERO
           WERE ENCOUNTERED.
           *****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00787/008A  UNIT CHECK ROUTINES      DASDUC          OC  G          FILE:DASDUC(1,999)                                              
            4.3T2   267  UNIT_CHECK_ROUTINES.DASDU.OC.008   1 LINE     80    3 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:18
                         FILE:DASDUC          
00787/009C  UNIT CHECK ROUTINES      3330 TESTER     SA  O          FILE:UCDISK.TEST(1000)                                          
            4.3T2   268  UNIT_CHECK_ROUTINES.3330.SA.009    1 LINE     72    3 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:21
0          TEST PROGRAM TO DEBUG NEW VERSIONS OF 3330 COMPATIBLE UNIT CHECK ROUTINES.
           ASSEMBLE USING COPY:CC.MACROS (1054/3).  COPIES COPY:CMDAREADSECT (531/18).
00787/010C  UNIT CHECK ROUTINES      3330 TESTER     OC  O          FILE:UCDISK.TEST(1,998)                                         
            4.3T2   269  UNIT_CHECK_ROUTINES.3330.OC.010    1 LINE     80    4 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:24
00787/011C  UNIT CHECK ROUTINES      UC3330 TESTER   SA  O          FILE:UC3330.TEST(1000)                                          
            4.3T2   270  UNIT_CHECK_ROUTINES.UC333.SA.011   1 LINE     72    3 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:26
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/18).
00787/012C  UNIT CHECK ROUTINES      UC3330 TESTER   OC  O          FILE:UC3330.TEST(1,998)                                         
            4.3T2   271  UNIT_CHECK_ROUTINES.UC333.OC.012   1 LINE     80    4 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:29
00788/001C  DUMMY CLS                SOURCE          SA  G          MTS:CLSDUMMY.S                                                  
            4.3T2   272  DUMMY_CLS.SOURCE.SA.001            1 LINE     55    1 PAGE UM   OGDEN               APR. 06, 1980  13:58:32
                         MTS:CLSDUMMY.S       
0          THIS IS A SIMPLE CLS TO PRINT THE FOLLOWING MESSAGE FOR UNIMPLEMENTED
           COMMANDS:
            
             "THIS COMMAND IS NOT YET IMPLEMENTED"
00788/002C  DUMMY CLS                *CLSNEW         OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSNEW              
0          FOR TESTING NEW CLS'S.
00788/003C  DUMMY CLS                *CLSNEW2        OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSNEW2             
0          FOR TESTING NEW CLS'S.
00788/004C  DUMMY CLS                *CLSNEW3        OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSNEW3             
0          FOR TESTING NEW CLS'S.
00788/005C  DUMMY CLS                *CLSLOG         OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSLOG              
0          THIS WILL BE THE $LOG COMMAND FOR FDNAME LOGGING.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
00788/006C  DUMMY CLS                *CLSMSG         OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSMSG              
0          THIS WILL BE THE MESSAGE CLS.
00788/007C  DUMMY CLS                *CLSPMF         OC  G        # MTS:TST.CLSDUMMY                                                
                                                                                    UM   OGDEN                                      
                         *CLSPMF              
0          THIS WILL BE THE $#PMF (PROGRAM MANAGEMENT FACILITY) CLS.  THE # IS JUST
           UNTIL WE THINK OF A BETTER NAME.
00789/001C  SHUTDOWN MESSAGE         *SDM            C              *SDM                                                            
            4.3T2   273  SHUTDOWN_MESSAGE.*SDM.C.001        1 LINE     63    1 PAGE UM   OGDEN               APR. 06, 1980  13:58:34
                         *SDM                 
0          OPERATOR FILE TO PUT IN SHUTDOWN MESSAGE FOR UM DATA CONCENTRATORS AND
           MERIT COMPUTER NETWORK.
00789/002C  SHUTDOWN MESSAGE         SYS:SDM         SG  G          S0683 OGDEN FSNAME=SDM.S                                        
            4.3T2   274  SHUTDOWN_MESSAGE.SYS:SDM.SG.002    1 LINE     77    1 PAGE UM   OGDEN               DEC. 21, 1979  01:39:48
0          PROGRAM TO READ A SHUTDOWN MESSAGE FROM THE OPERATORS' CONSOLE AND PLACE
           IT IN THE PDP-11 DATA CONCENTRATORS.
00789/003C  SHUTDOWN MESSAGE         SYS:SDM         OC  G          SYS:SDM(1,999)                                                  
            4.3T2   275  SHUTDOWN_MESSAGE.SYS:SDM.OC.003    1 LINE   1526    2 PAGE UM   OGDEN               APR. 06, 1980  13:58:39
                         SYS:SDM              
00789/004C  SHUTDOWN MESSAGE         SYS:MSDM        SG  G          S0683 OGDEN FSNAME=MSDM.S                                       
            4.3T2   276  SHUTDOWN_MESSAGE.SYS:MSDM.SG.004   1 LINE     77    1 PAGE UM   OGDEN               DEC. 21, 1979  01:39:51
0          PROGRAM TO READ A SHUTDOWN MESSAGE FROM THE OPERATORS' CONSOLE AND TO
           PLACE IT IN THE MERIT COMPUTER NETWORK PDP-11.
00789/005C  SHUTDOWN MESSAGE         SYS:MSDM        OC  G          SYS:MSDM(1,999)                                                 
            4.3T2   277  SHUTDOWN_MESSAGE.SYS:MSDM.OC.005   1 LINE     80    3 PAGE UM   OGDEN               APR. 06, 1980  13:58:47
00790/001C  VAMX CONVERSION          DESCRIPTION     WF             FILE:CONVERTING                                                 
            4.3T2   278  VAMX_CONVERSION.DESCRIPTI.WF.001   1 LINE     76    3 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:49
                         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.
00790/002C  VAMX CONVERSION          PAT/DSCB CONV   SA  O          FILE:CONVV2VX.AS                                                
            4.3T2   279  VAMX_CONVERSION.PAT/DSCB.SA.002    1 LINE     79    5 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:51
                         FILE:CONVV2VX.AS     
0          THIS IS THE SOURCE (ADAPTED FROM 790/4) TO CONVERT OLD-STYLE VAMX OR VAM2 TO
           NEW STYLE VAMX FORMAT. SEE 790/1 FOR FURTHER DETAILS.  ASSEMBLE USING
           COPY:FILE.MACROS (482/33) AND COPY:MISC.MACROS (728).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           WARNING:  THIS PROGRAM HAS NEVER BEEN USED TO COMPLETELY CONVERT AN OLD-STYLE
           VAMX PACK OR A VAM2 PACK TO A NEW-STYLE PACK.
00790/003C  VAMX CONVERSION          PAT/DSCB CONV   OC  O          FILE:CONVV2VX                                                   
            4.3T2   280  VAMX_CONVERSION.PAT/DSCB.OC.003    1 LINE     80    4 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:54
                         FILE:CONVV2VX        
00790/004C  VAMX CONVERSION          PAT/DSCB CONV   SA  G          FILE:CONVV2VX.ORI                                               
            4.3T2   281  VAMX_CONVERSION.PAT/DSCB.SA.004    1 LINE     79    5 PAGE UM   HELFFRICH           APR. 06, 1980  13:58:57
0          SOURCE FOR THE VERSION OF THE PROGRAM USED BY UM TO CONVERT FROM V2 TO VX 
           FORMAT.  790/2 WAS ADAPTED FROM THIS PROGRAM.  SEE 790/1 FOR DETAILS.
           ASSEMBLE USING COPY:FILE.MACROS (482/33) AND COPY:FILE.MISC.MACROS (728).
00790/005C  VAMX CONVERSION          CATALOG CONV    SA  O          FILE:CONV.CAT(1000)                                             
            4.3T2   282  VAMX_CONVERSION.CATALOG_C.SA.005   1 LINE     72   10 PAGE UM   HELFFRICH           APR. 06, 1980  13:59:00
                         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/33).
            
           WARNING:  THIS PROGRAM HAS NEVER BEEN USED TO COMPLETELY CONVERT AN OLD-STYLE
           VAMX PACK OR A VAM2 PACK TO A NEW-STYLE PACK.
00790/006C  VAMX CONVERSION          CATALOG CONV    OC  O          FILE:CONV.CAT(1,999)                                            
            4.3T2   283  VAMX_CONVERSION.CATALOG_C.OC.006   1 LINE     80    4 PAGE UM   HELFFRICH           APR. 06, 1980  13:59:02
00790/007C  VAMX CONVERSION          CATALOG CONV    SA  G          FILE:CONV.CAT.ORIG(1000)                                        
            4.3T2   284  VAMX_CONVERSION.CATALOG_C.SA.007   1 LINE     72   10 PAGE UM   HELFFRICH           APR. 06, 1980  13:59:05
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/33).
00791/001C  DEFAULT                                  SA  G          ALGW:DEFAULT.SA                                                 
            4.3T2   285  DEFAULT..SA.001                    1 LINE     96    3 PAGE UM   BODWIN              APR. 06, 1980  13:59:08
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, 528/36 
00791/002C  DEFAULT                                  OC  G          ALGW:DEFAULT.OA                                                 
            4.3T2   286  DEFAULT..OC.002                    1 LINE     80    1 PAGE UM   BODWIN              APR. 06, 1980  13:59:10
01000/001   INTERACTIVE_FORTRAN      INSTALL.PROC    WF  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INSTAL.WF.01(1)  447
            D4.2T2   83  INTERACTIVE_FORTRAN.INSTA.WF.001   1 LINE     80    2 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:31:37
0           DESCRIPTION OF THE PROCEDURE FOR INSTALLING INTERACTIVE FORTRAN.
            
           *************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          *     THIS VERSION OF IF INTERFACES WITH THE REAL MTS EDITOR            *
           *                                                                       *
           *     THE NEW VERSION FIXES MANY BUGS THAT HAVE BEEN REPORTED,          *
           *     PROVIDES A TOTALLY EXTERNAL INTERFACE TO THE SYSTEM EDITOR,       *
           *     AND PROVIDES THE FOLLOWING NEW FEATURES:                          *
           *                                                                       *
           *        -- A "/DISPLAY GRS" COMMAND TO DISPLAY GENERAL REGISTERS       *
           *           AFTER AN EXTERNAL INTERRUPT                                 *
           *        -- A "/DISPLAY /COMMON/" COMMAND TO DISPLAY THE STATUS         *
           *           OF A PARTICULAR COMMON BLOCK IN ALL ROUTINES                *
           *        -- MUCH BETTER MESSAGES IN THE CASES WHERE LOADING             *
           *           EXTERNAL ROUTINES FAILS                                     *
           *        -- ABBREVIATED KEYWORD LEFT HAND SIDES ARE ALLOWED             *
           *           (E. G.:" /RUN MAIN S=FILE")                                 *
           *        -- ERR= AND END= ARE IMPLEMENTED ON WRITE STATEMENTS           *
           *        -- CHARACTER VARIABLES ARE IMPLEMENTED, BUT UBC HAS            *
           *           CHOSEN NOT TO DOCUMENT THEM YET (AWAITING THE               *
           *           FORTRAN 77 STANDARD).                                       *
           *        -- THE VALUE OF THE LOGICAL CONSTANT THAT IF USES              *
           *           IS NOW THE SAME AS FORTRAN G                                *
           *        -- THE DCONJG PROBLEM HAS BEEN FIXED                           *
           *                                                                       *
           *                                                                       *
           *************************************************************************
0          Referenced by comments of: 1000/9 
01000/002   INTERACTIVE_FORTRAN      *IF             SA  G          W167:IF.S                                                       
            D4.2T2   84  INTERACTIVE_FORTRAN.*IF.SA.002     1 LINE     80    9 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:36:13
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/003   INTERACTIVE_FORTRAN      *IF             OC  G          *IF                                                             
            D4.2T2   85  INTERACTIVE_FORTRAN.*IF.OC.003     1 LINE     80    3 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:36:15
                         *IF                  
0          CORRESPONDING OBJECT DECK FOR IF CALLING ROUTINE;
           NOTE THAT THIS CONTAINS A LCS CARD AND A LDT CARD.
01000/004   INTERACTIVE_FORTRAN      MACLIB          SM  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.MACLIB.SM.04(1)  450
            D4.2T2   86  INTERACTIVE_FORTRAN.MACLI.SM.004   1 LINE     83   59 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:31:39
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01000/005   INTERACTIVE_FORTRAN      ELMQQSV         M   G          ETC:IF.ELMQQSV                                                  
            D4.2T2   87  INTERACTIVE_FORTRAN.ELMQQ.M.005    1 LINE    108   45 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:36:17
                         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.
01000/006   INTERACTIVE_FORTRAN      DUMPS           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          
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
                      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/36).
            
01000/007   INTERACTIVE_FORTRAN      EXPLAIN         M   G          ETC:IF.EXPLAIN                                                  
            D4.2T2   88  INTERACTIVE_FORTRAN.EXPLA.M.007    1 LINE     79   23 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:36:21
                         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/10) AS A DATABASE.
            
           NOTE THAT THE DESCRIPTION OF /SET ALIGN=ON,OFF HAS BEEN ADDED TO
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          THE EXPLANATION OF THE /SET COMMAND (DO A /EXPLAIN /SET).
01000/008   INTERACTIVE_FORTRAN      STATISTICS      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          
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.
01000/009   INTERACTIVE_FORTRAN      SEG2IF          OE  G          SEG2:IF                                                         
            D4.2T2   89  INTERACTIVE_FORTRAN.SEG2I.OE.009   1 LINE  32767   73 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:36:23
                         SEG2:IF              
0          SHARED VM PORTION OF IF; THIS IS SQUASHED AND COMBINED AND PURGED
           OBJECT CODE. SEE THE INSTALLATION NOTES (1000/1) FOR MORE DETAILS.
           THIS PROBABLY CAN BE INSTALLED DIRECTLY INTO SHARED VM DURING THE
           POST-IPL LOADING SEQUENCE. THIS FILE IS CREATED BY COMBINING AND
           PURGING THE OBJECT DECKS IN THE TEST VERSION USING THE LINKAGE 
           EDITOR.
0          Referenced by comments of: 1000/12 
01000/010   INTERACTIVE_FORTRAN      WRITEUP         WF  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.WRITEU.WF.10(1)  456
            D4.2T2   90  INTERACTIVE_FORTRAN.WRITE.WF.010   1 LINE     93   58 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:03
0          THIS IS THE FORMAT SOURCE FOR THE IF WRITEUP.
0          Referenced by comments of: 1000/7 
01000/011   INTERACTIVE_FORTRAN      WRITEUP         PF  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.WRITEU.PF.11(1)  457
            D4.2T2   91  INTERACTIVE_FORTRAN.WRITE.PF.011   1 LINE    117  101 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:08
0          THIS IS THE IF WRITEUP, SUITABLE FOR COPYING TO A PRINTER.
01000/012   INTERACTIVE_FORTRAN      TEST.VERSION    OC  G          W167:IF.TEST                                                    
            D4.2T2   92  INTERACTIVE_FORTRAN.TEST..OC.012   1 LINE  32767   73 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:36:33
0          TEST VERSION OF IF.  ALL OF THE OBJECT MODULES COMPRISING THE
           RE-ENTRANT PROCESSOR (SOURCE IN COMP 1000/13 THRU 1000/48 AND 
           1000/51) 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 (1000/9) IS CREATED BY
           COMBINING AND PURGING THE OBJECT DECKS IN THIS FILE USING THE
           LINKAGE EDITOR. 
01000/013   INTERACTIVE_FORTRAN      DIRECT          SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.DIRECT.SA.13(1)  459
            D4.2T2   93  INTERACTIVE_FORTRAN.DIREC.SA.013   1 LINE     72   35 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:20
0          MAIN COMMAND PROCESSOR; APPEARS IN |MAP AS DIR.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01000/014   INTERACTIVE_FORTRAN      EL              SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.EL.SA.14(1)      460
            D4.2T2   94  INTERACTIVE_FORTRAN.EL.SA.014      1 LINE     72   18 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:24
0          ERROR MESSAGE PRINTER; APPEARS IN |MAP AS EL.
01000/015   INTERACTIVE_FORTRAN      GSC             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.GSC.SA.15(1)     461
            D4.2T2   95  INTERACTIVE_FORTRAN.GSC.SA.015     1 LINE     72   36 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:26
0          SEMANTIC CODE GENERATOR; APPEARS IN |MAP AS GENCODE.
01000/016   INTERACTIVE_FORTRAN      IFRD            SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.IFRD.SA.16(1)    462
            D4.2T2   96  INTERACTIVE_FORTRAN.IFRD.SA.016    1 LINE     72   18 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:29
0          FREE FORMAT INPUT ROUTINE; APPEARS IN |MAP AS IFRDCODE.
01000/017   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.17(1)     463
            D4.2T2   97  INTERACTIVE_FORTRAN.INT.SA.017     1 LINE     83    1 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:31
0          A FILE CONTAINING $CONTINUE WITH'S FOR ASSEMBLING THE INTERPRETER.                                                                   99654
           THE INTERPRETER APPEARS IN |MAP AS INTE.
            
01000/018   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.18(1)     464
            D4.2T2   98  INTERACTIVE_FORTRAN.INT.SA.018     1 LINE     72   19 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:32
0                                                                                                                                               99653
01000/019   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.19(1)     465
            D4.2T2   99  INTERACTIVE_FORTRAN.INT.SA.019     1 LINE     72   21 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:34
0                                                                                                                                               99652
01000/020   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.20(1)     466
            D4.2T2  100  INTERACTIVE_FORTRAN.INT.SA.020     1 LINE     72   17 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:35
0                                                                                                                                               99651
01000/021   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.21(1)     467
            D4.2T2  101  INTERACTIVE_FORTRAN.INT.SA.021     1 LINE     70   16 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:37
0                                                                                                                                               99650
01000/022   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.22(1)     468
            D4.2T2  102  INTERACTIVE_FORTRAN.INT.SA.022     1 LINE     72   21 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:39
0                                                                                                                                               99649
01000/023   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.23(1)     469
            D4.2T2  103  INTERACTIVE_FORTRAN.INT.SA.023     1 LINE     72   19 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:41
0                                                                                                                                               99648
           CONTAINS REP CARD TO MAKE OBJECT AGREE WITH SOURCE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01000/024   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.24(1)     470
            D4.2T2  104  INTERACTIVE_FORTRAN.INT.SA.024     1 LINE     72   19 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:43
0                                                                                                                                               99647
01000/025   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.25(1)     471
            D4.2T2  105  INTERACTIVE_FORTRAN.INT.SA.025     1 LINE     72   18 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:45
0                                                                                                                                               99646
01000/026   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.26(1)     472
            D4.2T2  106  INTERACTIVE_FORTRAN.INT.SA.026     1 LINE     72   14 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:46
0                                                                                                                                               99645
01000/027   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.27(1)     473
            D4.2T2  107  INTERACTIVE_FORTRAN.INT.SA.027     1 LINE     72    8 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:48
0                                                                                                                                               99644
01000/028   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.28(1)     474
            D4.2T2  108  INTERACTIVE_FORTRAN.INT.SA.028     1 LINE     72   17 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:49
0                                                                                                                                               99643
01000/029   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.29(1)     475
            D4.2T2  109  INTERACTIVE_FORTRAN.INT.SA.029     1 LINE     72   15 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:50
0                                                                                                                                               99642
01000/030   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.30(1)     476
            D4.2T2  110  INTERACTIVE_FORTRAN.INT.SA.030     1 LINE     72   15 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:51
0                                                                                                                                               99641
01000/031   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.31(1)     477
            D4.2T2  111  INTERACTIVE_FORTRAN.INT.SA.031     1 LINE     72   17 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:53
0                                                                                                                                               99640
01000/032   INTERACTIVE_FORTRAN      INT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.32(1)     478
            D4.2T2  112  INTERACTIVE_FORTRAN.INT.SA.032     1 LINE     72    7 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:54
0          THE INTERPRETERS DSECTS. THESE DSECTS ARE ALSO COPIED BY MON AND OUT.
01000/033   INTERACTIVE_FORTRAN      IS              SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.IS.SA.33(1)      479
            D4.2T2  113  INTERACTIVE_FORTRAN.IS.SA.033      1 LINE     97   41 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:32:56
0          SEMANTIC CHECKING ROUTINE; APPEARS IN |MAP AS SIMLATOR.
01000/034   INTERACTIVE_FORTRAN      LEX             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.LEX.SA.34(1)     480
            D4.2T2  114  INTERACTIVE_FORTRAN.LEX.SA.034     1 LINE     73   28 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:02
0          LEXICAL SCANNER; APPEARS IN |MAP AS LEX.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01000/035   INTERACTIVE_FORTRAN      LIN             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.LIN.SA.35(1)     481
            D4.2T2  115  INTERACTIVE_FORTRAN.LIN.SA.035     1 LINE     73   26 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:06
0          LEXICAL SCANNER INPUT ROUTINE; APPEARS IN |MAP AS LIN.
01000/036   INTERACTIVE_FORTRAN      MDEBUG          SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.MDEBUG.SA.36(1)  482
            D4.2T2  116  INTERACTIVE_FORTRAN.MDEBU.SA.036   1 LINE     73   31 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:09
0          BUILT-IN SDS-LIKE DEBUGGING FACILITY; DOCUMENTATION IS A SEPARATE COMPONENT
           (1000/49).  HAS BREAKPOINTS, ATPOINTS, AND AN INSTRUCTION
           SIMULATOR MUCH LIKE SDS. APPEARS IN |MAP AS MDG.
0          Referenced by comments of: 1000/6, 1000/49 
01000/037   INTERACTIVE_FORTRAN      MON             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.MON.SA.37(1)     483
            D4.2T2  117  INTERACTIVE_FORTRAN.MON.SA.037     1 LINE     72   15 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:13
0          COMPILER MONITOR; CONTAINS ENTRY POINT NAMED "IF".
           APPEARS IN |MAP AS MON.
01000/038   INTERACTIVE_FORTRAN      OUT             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.OUT.SA.38(1)     484
            D4.2T2  118  INTERACTIVE_FORTRAN.OUT.SA.038     1 LINE     72   31 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:16
0          ANOTHER COMMAND PROCESSOR; APPEARS IN |MAP AS SUBOUT.
            
           NOTE: THIS MODULE COPIES THE INTERPRETER DSECTS.
01000/039   INTERACTIVE_FORTRAN      PARSE           SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.PARSE.SA.39(1)   485
            D4.2T2  119  INTERACTIVE_FORTRAN.PARSE.SA.039   1 LINE     73   49 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:19
0          THE PARSER;  APPEARS IN |MAP AS PARSER.
01000/040   INTERACTIVE_FORTRAN      SCOM            SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SCOM.SA.40(1)    486
            D4.2T2  120  INTERACTIVE_FORTRAN.SCOM.SA.040    1 LINE     72   23 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:26
0          COMMON ROUTINE; APPEARS IN |MAP AS SCOM#.
01000/041   INTERACTIVE_FORTRAN      SEQV            SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SEQV.SA.41(1)    487
            D4.2T2  121  INTERACTIVE_FORTRAN.SEQV.SA.041    1 LINE     72   18 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:28
0          EQUIVALENCE ROUTINE; APPEARS IN |MAP AS SEQV#.
01000/042   INTERACTIVE_FORTRAN      SIM             SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SIM.SA.42(1)     488
            D4.2T2  122  INTERACTIVE_FORTRAN.SIM.SA.042     1 LINE     97   19 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:35
0          COMPILATION MONITOR; APPEARS IN |MAP AS SIM.
01000/043   INTERACTIVE_FORTRAN      SLABEL          SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SLABEL.SA.43(1)  489
            D4.2T2  123  INTERACTIVE_FORTRAN.SLABE.SA.043   1 LINE     72   10 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:38
0          LABEL CHECKING ROUTINE; APPEARS IN |MAP AS SLABEL.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01000/044   INTERACTIVE_FORTRAN      SPACE           SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SPACE.SA.44(1)   490
            D4.2T2  124  INTERACTIVE_FORTRAN.SPACE.SA.044   1 LINE     73   19 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:39
0          VIRTUAL MEMORY MANAGEMENT; APPEARS IN |MAP AS CORE.
01000/045   INTERACTIVE_FORTRAN      SYMBOL          SA  G          W167:IF.SYMBOL                                                  
            D4.2T2  125  INTERACTIVE_FORTRAN.SYMBO.SA.045   1 LINE    104   32 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:37:03
0          SYMBOL TABLE ROUTINES; APPEARS IN |MAP AS SYMBOL.
01000/046   INTERACTIVE_FORTRAN      TPUT            SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.TPUT.SA.46(1)    492
            D4.2T2  126  INTERACTIVE_FORTRAN.TPUT.SA.046    1 LINE    101   22 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:44
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/047   INTERACTIVE_FORTRAN      XLOADER         SA  G          W167:IF.XLOADER                                                 
            D4.2T2  127  INTERACTIVE_FORTRAN.XLOAD.SA.047   1 LINE     86   95 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:37:07
0          IF'S EXTERNAL LOADER AND INTERFACE TO UMLOAD.
           APPEARS IN |MAP AS XLD.
01000/048   INTERACTIVE_FORTRAN      FUNCTIONS       SA  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.FUNCTI.SA.48(1)  494
            D4.2T2  128  INTERACTIVE_FORTRAN.FUNCT.SA.048   1 LINE     71    7 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:58
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 EFL AND FIX (1002).
01000/049   INTERACTIVE_FORTRAN      MDEBUG          WF  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.MDEBUG.WF.49(1)  495
            D4.2T2  129  INTERACTIVE_FORTRAN.MDEBU.WF.049   1 LINE     89    8 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:33:59
0          DOCUMENTATION FOR MDEBUG, THE IF SDS-LIKE DEBUGGING FACILITY (1000/36).
0          Referenced by comments of: 1000/36 
01000/050   INTERACTIVE_FORTRAN      CALLINGIF       WF  G          S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.CALLIN.WF.50(1)  496
            D4.2T2  130  INTERACTIVE_FORTRAN.CALLI.WF.050   1 LINE     87    4 PAGE UBC  O'REILLY  HANSEN    AUG. 30, 1978  22:34:00
0          WRITEUP DESCRIBING HOW TO CALL RESIDENT IF AS A SUBROUTINE.
01000/051   INTERACTIVE_FORTRAN      EDITOR          SA  O          W167:IF.EDITOR                                               497
            D4.2T2  131  INTERACTIVE_FORTRAN.EDITO.SA.051   1 LINE    162   30 PAGE UBC  O'REILLY  HANSEN    APR. 02, 1979  01:37:20
0          THIS IS THE INTERFACE TO THE NEW MTS EDITOR. IT USES SOME OF THE
           SAME MACROS THAT THE EDITOR USES (IF, THEN, ELSE, AND FRIENDS), AND 
           ALSO THE MSG MACROS IN *SYSMAC (225).
            
           **************************************************************************
            
           1) THERE IS CURRENTLY A BUG IN THE EDITOR INTERFACE:
            
                 WHEN RENUMBERING OF LINES IS UNDONE, IF MAY LOOSE TRACK OF, OR
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0                OTHERWISE GARBLE INTERPRETATION OF, BREAK POINTS SET AT LINE
                 NUMBERS WITHIN THAT RANGE.
            
           **************************************************************************
01002/001A  FIX                      USER_OBJECT     OC  G          NEW:FIO                                                         
            4.3T2   287  FIX.USER_OBJECT.OC.001             1 LINE  32767   21 PAGE UBC  TIFFANY             APR. 06, 1980  13:59:13
0              This is the unlinked object file containing SYM records.                                                                         96525
           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.
               Other components required include:
                  1) SIOC (C 526) number conversions
                  2) EFL/FIX interface routines (C 525/51 - 52)
                  3) PRDSCT (C 1006/4) LINKed to to symbolically dump FIX PSECT
            
           ------------------- MAY 1979 ( UBC COMMENTS) ---------------
            
              This is VERSION 1.9 of FIX.
            
              This distribution does NOT include WSU's extended precision
           updates. Unfortunately nobody brought this back from the
           Workshop (probably just as well as time to install and test
           might have delayed the whole thing.)
            
               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 and is
           scheduled to become permanent on Aug. 1, 1979.
            
           ****************************************************************************
           THIS IS THE UM VERSION OF 1002/1.  CONTAINS A REP CARD.
           ****************************************************************************
0          Referenced by comments of: 1000/48, 3023/9 
01002/002A  FIX                      SHARED_OBJECT   OE  G          SEG2:FIX                                                        
            4.3T2   288  FIX.SHARED_OBJECT.OE.002           1 LINE  32767   50 PAGE UBC  STEVENS   TIFFANY   APR. 06, 1980  13:59:15
                         SEG2:FIX             
0              This is the linkeditted version containing all necessary                                                                         96524
           items for inclusion as the resident version. 
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
            
           THIS IS THE UM VERSION OF 1002/2. CONTAINS A REP CARD.
           ****************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01002/003A  FIX                      MESSAGE         M   G          ETC:FIX.MESSAGES                                                
            4.3T2   289  FIX.MESSAGE.M.003                  1 LINE    190    6 PAGE UBC  STEVENS   TIFFANY   APR. 06, 1980  13:59:19
                         ETC:FIX.MESSAGES     
0              This is the message file for all FIX error messages. The                                                                         96523
           name of this file is 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 OF 1002/3.
           ****************************************************************************
01002/004A  FIX                      EXPLAIN         D   G          ETC:FIX.EXPLAIN                                                 
            4.3T2   290  FIX.EXPLAIN.D.004                  1 LINE     70    8 PAGE UBC  STEVENS   TIFFANY   APR. 06, 1980  13:59:21
                         ETC:FIX.EXPLAIN      
0                 This file contains the text for the EXPLAIN command.                                                                          96522
           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 OF 1002/4.
           ****************************************************************************
01002/005A  FIX                      FIX_PSECT       SA  G          ETC:FIX.FIODSCT                                                 
            4.3T2   291  FIX.FIX_PSECT.SA.005               1 LINE     72   11 PAGE UBC  STEVENS   TIFFANY   APR. 06, 1980  13:59:23
                         ETC:FIX.FIODSCT      
0               The main FIX PSECT. Required as a separate file for system                                                                      96521
           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 ---------------
01002/006A  FIX                      UNIT_PSECT      SA  G          ETC:FIX.UNITDSCT                                                
            4.3T2   292  FIX.UNIT_PSECT.SA.006              1 LINE     72    3 PAGE UBC  STEVENS   TIFFANY   APR. 06, 1980  13:59:26
                         ETC:FIX.UNITDSCT     
0               The FIX unit dsect. Required as a separate file for system                                                                      96520
           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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           ------------------- May 1979 ---------------
01002/007A  FIX                      NEWS            SA  G          S0701 RD16T1 VLO FSNAME=FIX.NEWS.SA.007(1)                   527
            4.3T2   293  FIX.NEWS.SA.007                    1 LINE     63    2 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:45:37
0               The UBC news file regarding changes in the FORTRAN status.                                                                      96519
            
           ------------------- May 1979 ---------------
01002/008A  FIX                      DOCUMENTATION   WF  B          S0701 RD16T1 VLO FSNAME=FIX.DOCUMENTATION.WF.008(1)          528
            4.3T2   294  FIX.DOCUMENTATION.WF.008           1 LINE    168   70 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:45:38
0               The UBC document describing FIX.                                                                                                96518
            
           ------------------- May 1979 ---------------
            
           *****************************************************************************
           Flash!!!!
            
           UBC (i.e., John Stevens) tells us that there is a problem with this source,
           which causes the output, 1002/9, to produce garbage.  Their fix is:
            
                 "add a !FTN macro (which just prints FORTRAN in upper case)
                  to this file."
            
           This fix was not successful at UM.
           *****************************************************************************
01002/009A  FIX                      DOCUMENTATION   PF  B          S0701 RD16T1 VLO FSNAME=FIX.DOCUMENTATION.PF.009(1)          529
            4.3T2   295  FIX.DOCUMENTATION.PF.009           1 LINE    132   99 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:45:46
0               The print ready version of the UBC documentation.                                                                               96517
            
           ------------------- May 1979 ---------------
            
           *****************************************************************************
           To obtain a reasonable print file (rather than this "garbage"), add
           the !FTN macro to 1002/8.
           *****************************************************************************
01002/010A  FIX                      INTERNAL_DOC    WF  G          S0701 RD16T1 VLO FSNAME=FIX.INTERNAL_DOC.WF.010(1)           530
            4.3T2   296  FIX.INTERNAL_DOC.WF.010            1 LINE     80   30 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:45:59
0               The *FMT source for the internal documentation describing                                                                       96516
           how FIX is put together.
            
           ------------------- May 1979 ---------------
01002/011A  FIX                      INTERNAL_DOC    PF  G          S0701 RD16T1 VLO FSNAME=FIX.INTERNAL_DOC.PF.011(1)           531
            4.3T2   297  FIX.INTERNAL_DOC.PF.011            1 LINE     69   41 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:04
0               The print ready version of the internal documentation.                                                                          96515
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          ------------------- May 1979 ---------------
01002/012A  FIX                      MACRO_LIBRARY   SM  G          W062:FIX.MACLIB                                                 
            4.3T2   298  FIX.MACRO_LIBRARY.SM.012           1 LINE     80   16 PAGE UBC  STEVENS   TIFFANY   APR. 06, 1980  14:00:50
0               The macro library to be used with all assemblies. Only two                                                                      96514
           copy sections are not included here - FIODSCT and UNITDSCT
           C1002/5, 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 OF 1002/12.
           ****************************************************************************
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/013A  FIX                      INIT            SA  G          S0701 RD16T1 VLO FSNAME=FIX.INIT.SA.013(1)                   533
            4.3T2   299  FIX.INIT.SA.013                    1 LINE     87    6 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:17
0               The PSECT initializer routine. This routine contains the                                                                        96513
           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.
                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 ---------------
1                                                                                               SUN SEP 08/96   19:03:19   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           
           ********************************************************************
           COPIES *CNFGINFODSECT (654).  ASSEMBLE WITH THE FIX MACRO LIBRARY
           (1002/12).
           ********************************************************************
01002/014A  FIX                      FTN_TRANSFER    SA  G          S0701 RD16T1 VLO FSNAME=FIX.FTN_TRANSFER.SA.014(1)           534
            4.3T2   300  FIX.FTN_TRANSFER.SA.014            1 LINE     81   17 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:18
0             This is the FIX version of IBM's IBCOM#. The initial transfer                                                                     96512
           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 (eg: 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 WITH THE FIX MACRO LIBRARY (1002/12).
           ********************************************************************
01002/015A  FIX                      UNIT_CONTROL    SA  G          S0701 RD16T1 VLO FSNAME=FIX.UNIT_CONTROL.SA.015(1)           535
            4.3T2   301  FIX.UNIT_CONTROL.SA.015            1 LINE     83   21 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:21
0             This is the source code for the FIX version of IBM's FIOCS# known                                                                 96511
           as the "UNIT CONTROL ROUTINES" (UCR). Calls to UCR are via direct
           calls rather than IBM's transfer vector method.
            
              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.
1                                                                                               SUN SEP 08/96   19:03:19   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             2) A check has been made for no error message returned by
           GDINFO on an error return from READ or WRITE (TAPE DSR returns no
           message for RC=4 on write).
            
           ****************************************************************************
           COPIES *CDINFODSECT (594). ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
0          Referenced by comments of: 1002/28 
01002/016A  FIX                      FORMAT_IO       SA  G          S0701 RD16T1 VLO FSNAME=FIX.FORMAT_IO.SA.016(1)              536
            4.3T2   302  FIX.FORMAT_IO.SA.016               1 LINE     72   32 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:46:23
0               The module for decoding compiled formats and performing the                                                                     96510
           necessary conversions.
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
01002/017A  FIX                      VARIABLE_FMT    SA  G          S0701 RD16T1 VLO FSNAME=FIX.VARIABLE_FMT.SA.017(1)           537
            4.3T2   303  FIX.VARIABLE_FMT.SA.017            1 LINE     72   16 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:46:28
0               The module for decoding variable formats. List-directed I/O                                                                     96509
           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 WITH THE FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
01002/018A  FIX                      MISCELLANEOUS   SA  G          S0701 RD16T1 VLO FSNAME=FIX.MISCELLANEOUS.SA.018(1)          538
            4.3T2   304  FIX.MISCELLANEOUS.SA.018           1 LINE     78   11 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:30
0             This source file contains a number of small miscellaneous                                                                         96508
           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 WITH THE FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
0          Referenced by comments of: 1002/28 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01002/019A  FIX                      LIST_DIRECTED   SA  G          S0701 RD16T1 VLO FSNAME=FIX.LIST_DIRECTED.SA.019(1)          539
            4.3T2   305  FIX.LIST_DIRECTED.SA.019           1 LINE     72   21 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:46:31
0               The module for implementing FTNH-X list-directed I/O. Control                                                                   96507
           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 WITH THE FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
0          Referenced by comments of: 3023/9 
01002/020A  FIX                      NAMELIST        SA  G          S0701 RD16T1 VLO FSNAME=FIX.NAMELIST.SA.020(1)               540
            4.3T2   306  FIX.NAMELIST.SA.020                1 LINE     91   27 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:37
0               The module for implementing NAMELIST read and NAMELIST write                                                                    96506
           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 ---------------
            
              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 WITH THE FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
01002/021A  FIX                      DEBUG           SA  G          S0701 RD16T1 VLO FSNAME=FIX.DEBUG.SA.021(1)                  541
            4.3T2   307  FIX.DEBUG.SA.021                   1 LINE     81   11 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:42
0               The module for the FORTRAN DEBUG package which has been                                                                         96505
           implemented in much the same manner as IBM. Exceptions are:
                1) When an output line must be saved then space is acquired
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          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 WITH THE FIX MACRO LIBRARY (1002/12).
           ****************************************************************************
01002/022A  FIX                      LLXU_FORTRAN    SA  G          S0701 RD16T1 VLO FSNAME=FIX.LLXU_FORTRAN.SA.022(1)           542
            4.3T2   308  FIX.LLXU_FORTRAN.SA.022            1 LINE     91   13 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:46:43
0               The module for dynamic linking in FORTRAN written by UM.                                                                        96504
                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.
            
           ASSEMBLE WITH THE FIX MACROS (1002/12).
            
           ***************************************************************************
           D4.3 CHANGES (FROM UM):
            
           LLXU (354) CHANGED.
           ***************************************************************************
0          Referenced by comments of: 1002/28 
01002/023A  FIX                      ERROR_MONITOR   SA  G          S0701 RD16T1 VLO FSNAME=FIX.ERROR_MONITOR.SA.023(1)          543
            4.3T2   309  FIX.ERROR_MONITOR.SA.023           1 LINE     85  102 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:46:45
0               The main part of the FORTRAN I/O error monitor. The error                                                                       96503
           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
1                                                                                               SUN SEP 08/96   19:03:19   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          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 (eg. 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 WITH
           THE FIX MACROS (1002/12).
           ********************************************************************
0          Referenced by comments of: 1002/28 
01002/024A  FIX                      UNIT_DEFAULTS   SA  G          S0701 RD16T1 VLO FSNAME=FIX.UNIT_DEFAULTS.SA.024(1)          544
            4.3T2   310  FIX.UNIT_DEFAULTS.SA.024           1 LINE     49    1 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:47:00
0               The subroutine to the error monitor to set unit defaults.                                                                       96502
           The current status of this is to set the following defaults:
                  unit 5 - *SOURCE*
                  unit 6 - *SINK*
            
           ------------------- May 1979 ---------------
01002/025A  FIX                      ERROR_TABLE     SA  G          S0701 RD16T1 VLO FSNAME=FIX.ERROR_TABLE.SA.025(1)            545
            4.3T2   311  FIX.ERROR_TABLE.SA.025             1 LINE     64    2 PAGE UBC  BUCKLAND  TIFFANY   JUNE 29, 1979  14:47:01
0               The external error table, to allow adding/changing of errors                                                                    96501
           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 WITH THE FIX MACROS (1002/12).
1                                                                                               SUN SEP 08/96   19:03:19   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          ****************************************************************************
01002/026A  FIX                      DUMP            SA  G          S0850 FIXUM 'FIX-UM' FSNAME=DUMP.S                              
            4.3T2   312  FIX.DUMP.SA.026                    1 LINE     72    7 PAGE UBC  O'REILLY  TIFFANY   DEC. 07, 1978  11:04:22
0          SOURCE TO IMPLEMENT FORTRAN DUMP/PDUMP.                                                                                              99984
           RESIDES IN THE GENERAL LIBRARY AS IT IS NOT USED VERY MUCH.
           ----------------
01002/027A  FIX                      LCS_SOURCE      SA  G          S0701 RD16T1 VLO FSNAME=FIX.LCS_SOURCE.SA.027(1)             546
            4.3T2   313  FIX.LCS_SOURCE.SA.027              1 LINE     84    1 PAGE UBC  STEVENS   TIFFANY   JUNE 29, 1979  14:47:02
0               The source for generating the low core symbol table for all                                                                     96499
           required FIX entry points. There is room at the end for an extra
           12 entry points if required (patching purposes).
            
           ------------------- May 1979 ---------------
            
           ****************************************************************************
           ASSEMBLE WITH THE FIX MACROS (1002/12).
           ****************************************************************************
01002/028A  FIX                      UM_UPDATES      UC  G          W062:FIX.UP                                                     
            4.3T2   314  FIX.UM_UPDATES.UC.028              1 LINE     68    4 PAGE UBC  STEVENS   TIFFANY   APR. 06, 1980  14:03:29
0          THIS FILE CONTAINS UM'S UPDATES TO THE VARIOUS SUBCOMPONENTS OF 
           UBC'S FIX AND THE FIX MACRO LIBRARY. CURRENT SUBCOMPONENTS THAT ARE
           UPDATED ARE:
            
             1) MISCELLANEOUS (1002/18)
             2) MACRO_LIBRARY (1002/12)
             3) ERROR_MONITOR (1002/23)
             4) UNIT_CONTROL  (1002/15)
             5) LLXU_FORTRAN  (1002/22)
01003       TAPEAID                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL
           UTILITY PROGRAM  FOR INTERACTIVE MANIPULATION OF TAPES.
01004       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          S0579 SAVE 'JWS-SAVE' FSNAME=FREAD#.S                           
            D4T3    389  FREAD_SUBR.FREAD#.SA.001           1 LINE     77   52 PAGE UBC  STEVENS   TIFFANY   JUNE 15, 1977  09:37:11
0          THIS IS THE REENTRANT PART OF FREAD, THE FREE FORMAT INPUT FACILITY.  COPIES
           THE FREAD.COPY COPY SECTION (1005/5).
0          Referenced by comments of: 1005/3 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01005/002   FREAD SUBR               FREAD#          OC  G          SEG2:FREAD                                                      
            D4T3    390  FREAD_SUBR.FREAD#.OC.002           1 LINE     80   11 PAGE UBC  STEVENS   TIFFANY   JULY 29, 1977  00:10:49
                         SEG2:FREAD           
0          THIS OBJECT IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE.
01005/003   FREAD SUBR               FREAD           SA  G          S0579 SAVE 'JWS-SAVE' FSNAME=FREAD.S                            
            D4T3    391  FREAD_SUBR.FREAD.SA.003            1 LINE     77    3 PAGE UBC  STEVENS   TIFFANY   MAY  12, 1977  16:17:34
0          THIS IS THE NON-REENTRANT PART OF FREAD WHICH INTERFACES TO THE REENTRANT PART
           (1005/1).  COPIES THE FREAD.COPY COPY SECTION (1005/5).
01005/004   FREAD SUBR               FREAD           OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UBC  STEVENS   TIFFANY                          
01005/005   FREAD SUBR               FREAD.COPY      SA  G          S0579 SAVE 'JWS-SAVE' FSNAME=FREAD.COPY                         
            D4T3    392  FREAD_SUBR.FREAD.COPY.SA.005       1 LINE     72    4 PAGE UBC  STEVENS   TIFFANY   JUNE 13, 1977  11:51:56
0          COPY SECTION USED BY 1005/1 AND 1005/3.
0          Referenced by comments of: 1005/1, 1005/3 
01006/001   PRDSCT                                   SA             W062:PRDSCT.S                                                   
            D4.1T1  650  PRDSCT..SA.001                     1 LINE     83   21 PAGE UBC  STEVENS   TIFFANY   MAY  13, 1978  18:28:15
0          ROUTINE TO PRINT A FORMATTED DUMP OF A DSECT.
01006/002   PRDSCT                                   OC             ETC:FIX.PRDSCT                                                  
            D4.1T1  651  PRDSCT..OC.002                     1 LINE   5843    3 PAGE UBC  STEVENS   TIFFANY   MAY  13, 1978  18:28:17
                         ETC:FIX.PRDSCT       
01007       ROBJ                                                  # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO
           REPLACE OBJECT MODULES BY NAME.
01008       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       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                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01011       ALIST                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN 
           ASSEMBLY/FORTRAN LIST PROGRAM.
01012/001A  UNITS                    JOB PROGRAM     SA  G          MTA:UNITS.S(1,1999)                                             
            4.3T2   315  UNITS.JOB_PROGRAM.SA.001           1 LINE     79   21 PAGE UBC  BERRYMAN  MTA       APR. 06, 1980  14:03:30
                         MTA.:UNITS.S         
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/12).
0          Referenced by comments of: 490/1, 1012/3 
01012/002A  UNITS                    JOB PROGRAM     OC  G        # RESIDENT SYSTEM (SEE 468/1)                                     
            D4T3    396  UNITS.JOB_PROGRAM.OC.002           1 LINE     80    6 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:11:35
01012/003   UNITS                    MTS PROGRAM     SA  G          MTA:UNITS.S(2000)                                               
            D4.2T2  546  UNITS.MTS_PROGRAM.SA.003           1 LINE     57    1 PAGE UBC  BERRYMAN  MTA       APR. 09, 1979  00:22:55
0          MTS PROGRAM TO FORMAT PARAMETERS AND CALL THE UNITS SUBROUTINE (1012/1).
0          Referenced by comments of: 1012/1 
01012/004   UNITS                    MTS PROGRAM     OE  G          MTA:UNITS.O                                                     
            D4.2T2  547  UNITS.MTS_PROGRAM.OE.004           1 LINE     80    1 PAGE UBC  BERRYMAN  MTA       APR. 09, 1979  00:22:57
                         MTA.:UNITS.O         
0          MUST BE RUN WITH PROT=OFF UNLESS A SET OF TABLES IS CONCATENATED WITH IT.
01014       MARKIV                                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A DATA
           MANAGEMENT REPORT GENERATION PROGRAM.
01015       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       STEVENS MACRO LIB                        SM             S1200 RD15T1 VLO FSNAME=STEVENS.MACRO.LIB..SM.01                
            D4T3    399  STEVENS_MACRO_LIB..SM.             1 LINE     73    6 PAGE UBC  STEVENS   DWB       JULY 29, 1977  00:11:42
0          MACROS NEEDED BY *APC (496).
01019/001   RAMROD                   SERVICE MODULE  SA  G          MTS:RAMROD.SR.S(1)                                              
            D4.2T2  158  RAMROD.SERVICE_MODULE.SA.001       1 LINE     75   53 PAGE UBC            MTA       APR. 02, 1979  01:39:48
                         MTS.:RAMROD.SR.S     
0          SERVICE ROUTINES FOR RAMROD.  ASSEMBLE USING RAMROD MACROS (1019/3).
1                                                                                               SUN SEP 08/96   19:03:19   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          Referenced by comments of: 1019/4 
01019/002   RAMROD                   INTER           SA  G          MTS:RAMROD.CS.S(1)                                              
            D4.2T2  159  RAMROD.INTER.SA.002                1 LINE     80   88 PAGE UBC  BERRYMAN  MTA       APR. 02, 1979  01:40:02
                         MTS.:RAMROD.CS.S     
0          SOURCE FOR THE RAMROD COMMAND LANGUAGE INTERPRETER.  REQUIRES THE MSG ROUTINES
           (1023).  REQUIRES THE EXISTENCE OF A FILE (PRESENTLY NAMED MTS:RAMRODLOG BY
           DEFAULT, BUT SETABLE) WHICH IS PERMITTED WRITE-EXTEND (AT LEAST) FOR ITS
           TRANSACTION LOG.  IT ALSO REQUIRES AN EXPLAIN FILE (1019/5).  ALL FILENAMES OF
           THIS SORT ARE ASSEMBLY PARAMETERS.  COPIES *GFINFODSECT (593).  ASSEMBLE USING
           RAMROD.MACROS (1019/3).
0          Referenced by comments of: 1019/4 
01019/003   RAMROD                   MACROS          SM  G          MTS:RAMROD.MACS                                                 
            D4T3    402  RAMROD.MACROS.SM.003               1 LINE     72    4 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:12:55
                         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/6 
01019/004   RAMROD                   OBJECT          OC  G          MTS:RAMROD                                                      
            D4.2T2  160  RAMROD.OBJECT.OC.004               1 LINE   3869   51 PAGE UBC            MTA       APR. 02, 1979  01:40:51
                         MTS.:RAMROD          
0          CONTAINS THE OBJECT FOR THE COMMAND LANGUAGE INTERPRETER (1019/2) AND THE
           SERVICE MODULE (1019/1).
01019/005   RAMROD                   EXPLAIN         M              MTS:RAMRODEXP                                                   
            D4T3    404  RAMROD.EXPLAIN.M.005               1 LINE     79    3 PAGE UBC  BERRYMAN  MTA       JULY 29, 1977  00:13:03
                         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/006   RAMROD                   DUMP            SA  G          MTS:RRDMP.S                                                     
            D4T3    405  RAMROD.DUMP.SA.006                 1 LINE     72    8 PAGE UBC            MTA       JULY 29, 1977  00:13:05
                         MTS.:RRDMP.S         
0          RAMROD FILE DIRECTORY DUMP PROGRAM.  ASSEMBLE USING RAMROD MACROS (1019/3).
01019/007   RAMROD                   DUMP            OC  G          MTS:RRDMP                                                       
            D4T3    406  RAMROD.DUMP.OC.007                 1 LINE     80    7 PAGE UBC            MTA       JULY 29, 1977  00:13:08
                         MTS.:RRDMP           
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01019/008   RAMROD                   INTRO           WF             S0031 UBC46 FSNAME=RAMROD.DOCUMENT.WF.13(1)                  52 
            D4T3    407  RAMROD.INTRO.WF.008                1 LINE     79    4 PAGE UBC  HOGG      MTA       MAR. 22, 1976  14:33:16
0          INTRODUCTION TO RAMROD AND IPL READER (1021).  RELEVANT MAINLY TO INSTALLATIONS
           CONVERTING FROM PRE-IPLREADER VERSIONS OF RAMROD.
01019/009   RAMROD                   WRITEUP         WF             MTS:RAMROD.W                                                    
            D4.1T1  654  RAMROD.WRITEUP.WF.009              1 LINE    115   11 PAGE UBC  BERRYMAN  MTA       MAY  13, 1978  18:28:38
                         MTS.:RAMROD.W        
0          WRITEUP DESCRIBING THE RAMROD UTILITY.
01019/010   RAMROD                   MTS:RAMRODLOG   D            # MTS:TST.RAMRLOG                                                 
                                                                                    UBC  BERRYMAN  MTA                              
                         MTS:RAMRODLOG        
0          RAMROD LOG FILE.
01020/001A  FILE MOVE                                SA  G          FILE:FM.S                                                       
            4.3T2   316  FILE_MOVE..SA.001                  1 LINE    106   11 PAGE UBC  HOGG      HELFFRICH APR. 06, 1980  14:03:34
                         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
           (482/33). COPIES *CNFGINFODSECT (654).
            
           ******************************************************************************
           D4.3 CHANGES:
            
           1)  CHANGED TO USE CNFGINFO TO LOCATE THE END OF SHARED VM RATHER THAN A
               CONSTANT.
           2)  CHANGED TO STRIP TRAILING QUESTION MARKS FROM THE SHARING INFORMATION
               RETURNED BY THE D4.3 VERSION OF GFINFO.
           ******************************************************************************
0          Referenced by comments of: 461/21, 509/1, 682/7, 3024/36, 3024/39 
01020/002A  FILE MOVE                                OC  G          FILE:FM                                                         
            4.3T2   317  FILE_MOVE..OC.002                  1 LINE     80    6 PAGE UBC  HOGG      HELFFRICH APR. 06, 1980  14:03:38
                         FILE:FM              
01021/001   IPL READER               4.2 IPLBOOT     SA  G          MTS:IPLBOOT.S(1)                                                
            D4.2T2  163  IPL_READER.IPLBOOT.SA.001          1 LINE     72   16 PAGE UBC  O'REILLY  MTA       APR. 02, 1979  01:40:59
                         MTS.:IPLBOOT.S       
0          SEE COMP 1019/8 FOR AN INTRODUCTORY WRITEUP ON RAMROD AND THE IPL READER.
            
           THIS IS A BOOTSTRAP PROGRAM FOR THE IPLREADER.  COPIES COPY:GLOBALS (1026/3),
           COPY:LLMPSEQU (087), AND COPY:PSA (162).  ASSEMBLE USING COPY:SETPARM (653) AND
           COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 4/4, 1019/8, 1021/7 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01021/002C  IPL READER               IPLBOOT UPD     UC  G          MTS:IPLBOOT.S(*F,0)                                             
            4.3T2   318  IPL_READER.IPLBOOT_UPD.UC.002      1 LINE     72    3 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:03:40
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                                                   
            4.3T2   319  IPL_READER.IPLBOOT.OC.003          1 LINE     80    3 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:03:43
                         MTS.:IPLBOOT.O       
01021/004   IPL READER               4.2 IPLREAD     SA  G          MTS:IPLREAD.S(1)                                                
            D4.2T2  165  IPL_READER.IPLREAD.SA.003          1 LINE     77   70 PAGE UBC  O'REILLY  MTA       APR. 02, 1979  01:41:03
                         MTS.:IPLREAD.S       
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/33).
0          Referenced by comments of: 1021/7 
01021/005C  IPL READER               IPLREAD UPD     UC  G          MTS:IPLREAD.S(*F,0)                                             
            4.3T2   320  IPL_READER.IPLREAD_UPD.UC.005      1 LINE     76    5 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:03:46
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                                                   
            4.3T2   321  IPL_READER.IPLREAD.OC.006          1 LINE     80    9 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:03:55
                         MTS.:IPLREAD.O       
01021/007   IPL READER               4.2 IPLINIT     SA  G          MTS:IPLINIT.S(1)                                                
            D4T3    415  IPL_READER.IPLINIT.SA.005          1 LINE     80   21 PAGE UBC  O'REILLY  MTA       SEP. 18, 1977  22:18:36
                         MTS.:IPLINIT.S       
0          PROGRAM TO WRITE IPLBOOT (1021/1), IPLREAD (1021/4), AND UMLOAD (001/1) ON
           A DISK IN SELF LOADING FORM.  COPIES *GDINFODSECT (594).  ASSEMBLE USING
           COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 1021/10 
01021/008C  IPL READER               IPLINIT UPD     UC  G          MTS:IPLINIT.S(*F,0)                                             
            4.3T2   322  IPL_READER.IPLINIT_UPD.UC.008      1 LINE     72    6 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:03:58
0          UPDATE TO PRODUCE THE CURRENT VERSION OF IPLINIT, BASED ON THE D4.2 SOURCE.
01021/009A  IPL READER               IPLINIT         OC  G          MTS:IPLINIT.O                                                   
            4.3T2   323  IPL_READER.IPLINIT.OC.009          1 LINE     80    4 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:04:01
                         MTS.:IPLINIT.O       
01021/010   IPL READER               IPLGTUM         SA  G          MTS:IPLGTUM.S                                                   
            D4T3    417  IPL_READER.IPLGTUM.SA.007          1 LINE     72    3 PAGE UBC  O'REILLY  MTA       JULY 29, 1977  00:14:25
                         MTS.:IPLGTUM.S       
0          SUBROUTINE TO LOAD UMLOAD (001/1) FOR IPLINIT (1021/7).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01021/011   IPL READER               IPLGTUM         OC  G          MTS:IPLGTUM.O                                                   
            D4T3    418  IPL_READER.IPLGTUM.OC.008          1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JULY 29, 1977  00:14:28
                         MTS.:IPLGTUM.O       
01021/012A  IPL READER               WRITEUP         WF             MTS:IPLREAD.W                                                   
            4.3T2   324  IPL_READER.WRITEUP.WF.012          1 LINE     71    6 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:04:04
                         MTS.:IPLREAD.W       
0          DESCRIPTION OF IPL READER.
01023/001A  MSG ROUTINE                              SA             W267:MSG.S                                                      
            4.3T2   325  MSG_ROUTINE..SA.001                1 LINE     80   59 PAGE UBC  SAYLE     EADIE     APR. 06, 1980  14:04:06
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 NEW:SYSMAC (225/2)
           AND COPY:CC.MACROS (1054/3). COPIES *LOADINFODSECT (001/4).
            
           **************************************************************************
           D4.3 CHANGES:
            
           THIS IS A TOTALLY NEW IMPLEMENTATION OF THE MSG FACILITY.  IT IS
           COMPATIBLE WITH THE OLD, AND CONTAINS MANY NEW FEATURES.
           **************************************************************************
0          Referenced by comments of: 1/5, 354/5, 400/1, 553/5, 559/2, 642/23, 721/1, 721/2, 721/3, 721/4, 721/5, 721/6,
                 721/7, 721/8, 721/9, 721/11, 721/12, 721/19, 1019/2 
01023/002A  MSG ROUTINE                              OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UBC  SAYLE     EADIE                            
01023/003C  MSG ROUTINE              PICTURE         SA  G          W267:PIC.S(1)                                                   
            4.3T2   326  MSG_ROUTINE.PICTURE.SA.003         1 LINE     72    7 PAGE UBC  SAYLE     EADIE     APR. 06, 1980  14:04:12
0          "PICTURE" PROCESSING CSECT FOR MSG ROUTINE.
           ASSEMBLE USING NEW:SYSMAC (225/2) AND COPY:CC.MACROS (1054/3).
01023/004C  MSG ROUTINE              MACROS          SM  G          W267:MSG.MACROS                                                 
            4.3T2   327  MSG_ROUTINE.MACROS.SM.004          1 LINE     72   25 PAGE UBC  SAYLE     EADIE     APR. 06, 1980  14:04:14
01023/005C  MSG ROUTINE              WRITEUP         P   G          W267:MSG.W                                                      
            4.3T2   328  MSG_ROUTINE.WRITEUP.P.005          1 LINE     70   17 PAGE UBC  SAYLE     EADIE     APR. 06, 1980  14:04:18
0          WRITEUP FOR THE MSG ROUTINES. $COPY TO A TN PRINTER.
01024       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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 506/3 
01025       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                                                 
            4.3T2   329  GLOBAL_SYSTEM_PARS.GLOBAL.SA.001   1 LINE     80    2 PAGE UM   MTA                 APR. 06, 1980  14:04:21
                         COPY:GLOBALDEFS      
0          CONTAINS GBL DEFINITIONS FOR:
            
                  &S370       SYSTEM/370
                  &OC3066     3066 CONSOLE PRESENT
                  &CRTY       ITEL 7830 COMMAND RETRY
                  &SIMPLEX    SINGLE PROCESSOR
                  &OPERJOB    OPERATOR JOB BEING USED
                  &PROT       PROTECTION
                  &AMD470     AMDAHL 470
                  &BLKMPX     BLOCK MULTIPLEXOR CHANNEL
                  &IO370      370 I/O INSTRUCTIONS
                  &NOSLT      NO SEARCH LIST INSTRUCTION
                  &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.
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, 3024/1 
01026/002A  GLOBAL SYSTEM PARS       GLOBALSETS      SA  G          COPY:GLOBALSETS                                                 
            4.3T2   330  GLOBAL_SYSTEM_PARS.GLOBAL.SA.002   1 LINE     80    1 PAGE UM   MTA                 APR. 06, 1980  14:04:23
                         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,
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
 
                 387/26, 387/29, 387/31, 387/34, 400/1, 545/3, 570/1, 3024/1 
01026/003   GLOBAL SYSTEM PARS       GLOBALS         SA  G          COPY:GLOBALS                                                    
            D4T3    425  GLOBAL_SYSTEM_PARS.GLOBAL.SA.004   1 LINE     37    1 PAGE UM   MTA                 JULY 29, 1977  00:14:46
                         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, 10/1, 19/1, 21/1, 24/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/4, 400/12, 400/18, 413/1, 464/1, 482/5, 482/7, 500/50, 507/2, 509/1,
                 513/1, 528/14, 528/36, 528/53, 531/1, 531/6, 531/13, 539/1, 540/1, 540/3, 540/8, 540/10, 540/18, 540/27,
                 545/16, 554/1, 554/3, 577/2, 577/4, 577/7, 578/1, 579/1, 600/1, 615/15, 615/17, 618/1, 621/2, 629/4, 634/1,
                 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/10, 682/22, 685/7, 693/1, 731/3, 732/1, 777/1,
                 1012/1, 1021/1, 1021/4, 1081/1, 1081/11, 1081/12, 1081/13, 1081/14, 1081/15, 4000/1 
01027/001   P11 JOB                                  SA  G          S0938 FSAVE2 VLO FSNAME=P11.S                                   
            D4.2T2  170  P11_JOB..SA.001                    1 LINE     61    2 PAGE UBC            MTA       FEB. 10, 1979  16:50:01
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 1/2 INCH PAPER.
01027/002   P11 JOB                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
            D4T3    427  P11_JOB..OC.002                    1 LINE     80    1 PAGE UBC            MTA       MAR. 15, 1975  16:00:44
01028/001   STAND-ALONE DUMP         IPL MODULE      SA             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.IPL_MODUL.SA.01(1)        20
            D4T3    429  STAND-ALONE_DUMP.IPL_MODU.SA.001   1 LINE     72    5 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:44:58
0          ASSEMBLER SOURCE FOR STAND-ALONE DUMP PROGRAM.  THIS VERSION (JAN '77)
           REPLACES THE PREVIOUS VERSION, WHICH WAS FROM IBM.  THE SOURCE INCLUDES
           INSTRUCTIONS FOR GENERATING AN IPL-ABLE STAND-ALONE DUMP TAPE FROM THE
           OBJECT.  THE DUMPS PRODUCED BY THIS PROGRAM ARE FORMATTED DIFFERENTLY
           FROM THOSE PRODUCED BY THE IBM STAND-ALONE DUMP PROGRAM.  A VERSION OF
           THE STAND-ALONE DUMP PRINT PROGRAM THAT SUPPORTS THIS NEW FORMAT IS INCLUDED
           IN 1028/3 THROUGH 1028/9.
            
           NOTE:  THIS PROGRAM HAS NEVER BEEN USED AT UM.
01028/002   STAND-ALONE DUMP         IPL MODULE      OC             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.IPL_MODUL.OC.02(1)        21
            D4T3    430  STAND-ALONE_DUMP.IPL_MODU.OC.002   1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:00
0          OBJECT FOR THE STAND-ALONE DUMP PROGRAM.  THIS IS THE ASSEMBLER OUTPUT,
           UN-DIDDLED FOR IPL'ING FROM.  SEE 1028/1 FOR DIDDLING INSTRUCTIONS.
01028/003   STAND-ALONE DUMP         MAIN            SP             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.MAIN_PROG.SP.03(1)        22
            D4T3    431  STAND-ALONE_DUMP.MAIN.SP.003       1 LINE     88    4 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:01
0          PL/1 SOURCE FOR MAIN PROGRAM OF STAND-ALONE DUMP PRINTER.  COMPLETE PROGRAM
           CONSISTS OF THE MAIN PROGRAM, THE PL/1-TO-PRTRACE INTERFACE PSD.PT, A
           VERSION OF PRTRACE (337) OF YOUR CHOICE, AND THE TIME-CONVERTING SUBROUTINE
           PSD.CT.  A COMPLETE LINKEDITED LOAD MODULE IS IN 1028/9.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01028/004   STAND-ALONE DUMP         MAIN            OC             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.MAIN_PROG.OC.06(1)        25
            D4T3    432  STAND-ALONE_DUMP.MAIN.OC.004       1 LINE     80    9 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:06
01028/005   STAND-ALONE DUMP         PSD.PT          SA             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.PT.SA.04(1)           23
            D4T3    433  STAND-ALONE_DUMP.PSD.PT.SA.005     1 LINE     61    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:03
0          SOURCE FOR THE PL/1-TO-PRTRACE INTERFACE FOR THE STAND-ALONE DUMP PRINT PROGRAM.
01028/006   STAND-ALONE DUMP         PSD.PT          OC             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.PT.OC.07(1)           26
            D4T3    434  STAND-ALONE_DUMP.PSD.PT.OC.006     1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:09
01028/007   STAND-ALONE DUMP         PSD.CT          SA             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.CT.SA.05(1)           24
            D4T3    435  STAND-ALONE_DUMP.PSD.CT.SA.007     1 LINE     72    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:04
0          SOURCE FOR THE TIME-CONVERTING SUBROUTINE USED BY THE STAND-ALONE DUMP PRINTER.
01028/008   STAND-ALONE DUMP         PSD.CT          OC             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.CT.OC.08(1)           27
            D4T3    436  STAND-ALONE_DUMP.PSD.CT.OC.008     1 LINE     80    1 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:12
01028/009   STAND-ALONE DUMP         COMPLETE PROG   OE             S0939 UBC53 FSNAME=STAND-ALONE_DUMP.COMPLETE.OE.09(1)         28
            D4T3    437  STAND-ALONE_DUMP.COMPLETE.OE.009   1 SEQ   10118    8 PAGE UBC  O'REILLY  MTA       JAN. 31, 1977  10:45:13
0          LINKEDITED VERSION OF THE STAND-ALONE-DUMP PRINT PROGRAM INCLUDING ALL THE
           REQUIRED JUNK AND A $CONTINUE WITH *PL1LIB.
01030/001A  PACK MAP                 MAIN PROGRAM    SA  G  PM      FILE:PM.S                                                       
            4.3T2   331  PACK_MAP.MAIN_PROGRAM.SA.001       1 LINE     80   26 PAGE UBC  O'REILLY  HELFFRICH APR. 06, 1980  14:04:26
                         FILE:PM.S            
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/4).
           ASSEMBLE USING COPY:FILE.MACROS (482/33).  SEE COMP 682/3 FOR A WRITEUP.
            
           *********************************************************************************
           D4.3 VERSION:
            
           1) UPDATED FOR VAMX SUPPORT.
            
           2) SUBSTITUTED USAGE OF SORT2 SUBROUTINE (303/6) FOR ISORT.
           *********************************************************************************
0          Referenced by comments of: 682/3 
01030/002A  PACK MAP                                 OC  G          FILE:PM                                                         
            4.3T2   332  PACK_MAP..OC.002                   1 LINE     80    7 PAGE UBC  O'REILLY  HELFFRICH APR. 06, 1980  14:04:29
                         FILE:PM              
0          OBJECT FOR PACKMAP, CONTAINS VTOCREAD OBJECT (067/3).
01031       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
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          USED BY A FILE.
01032/001A  BCPL                     INSTALL_GUIDE   P   O          S0651 UNE21 FSNAME=BCPL_UNE.INSTALL_GUIDE.W.001(1)              
            4.3T2   333  BCPL.INSTALL_GUIDE.P.001           1 LINE     79    1 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:38
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 (THIS SUBCOMPONENT) TELLS HOW TO INSTALL AND 
           RECOMPILE THE VARIOUS SUBCOMPONENTS OF THE SYSTEM.
01032/002A  BCPL                     CHANGELOG       P   O          S0651 UNE21 FSNAME=BCPL_UNE.CHANGELOG.P.018(1)                  
            4.3T2   334  BCPL.CHANGELOG.P.002               1 LINE     74    1 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:20
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/003C  BCPL                     COMMENTS        P              S0684 UNSP FSNAME=BCPL.COMMENTS                                 
            4.3T2   335  BCPL.COMMENTS.P.003                1 LINE     66    1 PAGE UM   UNSP                DEC. 08, 1979  20:00:45
0          A BRIEF DESCRIPTION OF THE CHANGES BETWEEN UNE AND UM (MOSTLY FILENAMES).
01032/004C  BCPL                     INSTALL         C              S0684 UNSP FSNAME=BCPL.INSTALL                                  
            4.3T2   336  BCPL.INSTALL.C.004                 1 LINE     94    3 PAGE UM   UNSP                DEC. 08, 1979  20:00:49
0          THE COMMANDS USED TO INSTALL BCPL AT UM.
01032/005A  BCPL                     COMPILER        S   O          S0651 UNE21 FSNAME=BCPL_UNE.COMPILER.S.004(1)                   
            4.3T2   337  BCPL.COMPILER.S.005                1 LINE    117   48 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:42
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 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01032/006A  BCPL                     COMPILER        OC  O          UNSP:BCPL.COMPILER                                              
            4.3T2   338  BCPL.COMPILER.OC.006               1 LINE   9496   20 PAGE UNE  HEAL      UNSP      APR. 06, 1980  14:07:45
                         UNSP:BCPL.COMPILER   
0          OBJECT OF THE COMPILER - $CONTINUES WITH USNP:BCPL.LIBRARY (1032/7).
01032/007A  BCPL                     LIBRARY         S   O          S0651 UNE21 FSNAME=BCPL_UNE.LIBRARY.S.011(1)                    
            4.3T2   339  BCPL.LIBRARY.S.007                 1 LINE    124   48 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:02
0          SOURCE OF LIBRARY AS A 'PDS'. WRITTEN IN BCPL.
0          Referenced by comments of: 1032/6, 1032/8, 1032/10 
01032/008C  BCPL                     LIBRARY         UC  O          S0684 UNSP FSNAME=BCPL.BCPLSYS                                  
            4.3T2   340  BCPL.LIBRARY.UC.008                1 LINE     62    1 PAGE UM   UNSP                DEC. 08, 1979  20:00:42
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).
01032/009A  BCPL                     LIBRARY         S   O          UNSP:BCPL.LIBHDR                                                
            4.3T2   341  BCPL.LIBRARY.S.009                 1 LINE     57    2 PAGE UNE  HEAL      UNSP      APR. 06, 1980  14:07:57
                         UNSP:BCPL.LIBHDR     
0          HEADER FILE FOR LIBRARY, WRITTEN IN BCPL.
01032/010A  BCPL                     LIBRARY         S   O          UNSP:BCPL.STREAMH                                               
            4.3T2   342  BCPL.LIBRARY.S.010                 1 LINE     90    2 PAGE UNE  HEAL      UNSP      APR. 06, 1980  14:07:58
                         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.
01032/011A  BCPL                     LIBRARY         OL  O          UNSP:BCPL.LIBRARY                                               
            4.3T2   343  BCPL.LIBRARY.OL.011                1 LINE  14056   12 PAGE UNE  HEAL      UNSP      APR. 06, 1980  14:08:00
                         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/012A  BCPL                     DEBUGGER        S   O          S0651 UNE21 FSNAME=BCPL_UNE.DEBUGGER.S.006(1)                   
            4.3T2   344  BCPL.DEBUGGER.S.012                1 LINE     91   19 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:51
0          SOURCE OF DEBUGGING SYSTEM, WRITTEN IN BCPL.
0          Referenced by comments of: 1032/1, 1032/11, 1032/14, 1032/21 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01032/013A  BCPL                     DEBUGGER        OE  O          UNSP:BCPL.DEBUG                                                 
            4.3T2   345  BCPL.DEBUGGER.OE.013               1 LINE  14328    9 PAGE UNE  HEAL      UNSP      APR. 06, 1980  14:08:07
                         UNSP:BCPL.DEBUG      
0          WORKING OBJECT OF THE DEBUGGER. $CONTINUES WITH UNSP:BCPL.LIBRARY (1032/11).
01032/014A  BCPL                     BCPLOPTS        S   O          S0651 UNE21 FSNAME=BCPL_UNE.BCPLOPTS.S.019(1)                   
            4.3T2   346  BCPL.BCPLOPTS.S.014                1 LINE     92    7 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:20
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/015A  BCPL                     MACROS          SM  O          S0651 UNE21 FSNAME=BCPL_UNE.MACROS.SM.010(1)                    
            4.3T2   347  BCPL.MACROS.SM.015                 1 LINE     80   13 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:00
0          MACRO LIBRARY FOR USE IN ASSEMBLING THE ASSEMBLER PARTS OF THE
           LIBRARY - I. E., BCPLSYS, BCPLFLIB, BCPLRLIB.
01032/016A  BCPL                     TIDY            S   O          S0651 UNE21 FSNAME=BCPL_UNE.TIDY.S.013(1)                       
            4.3T2   348  BCPL.TIDY.S.016                    1 LINE    100   21 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:12
0          SOURCE OF SOURCE RE-FORMATTER PROGRAM, TIDY.  WRITTEN IN BCPL.
0          Referenced by comments of: 1032/21 
01032/017A  BCPL                     TIDY            OE  O          UNSP:BCPL.TIDY                                                  
            4.3T2   349  BCPL.TIDY.OE.017                   1 LINE   6640    8 PAGE UNE  HEAL      UNSP      APR. 06, 1980  14:08:24
                         UNSP:BCPL.TIDY       
0          OBJECT OF 1032/16.  $CONTINUES WITH UNSP:BCPL.LIBRARY (1032/11).
01032/018A  BCPL                     XREFFER         S   O          S0651 UNE21 FSNAME=BCPL_UNE.XREFFER.S.017(1)                    
            4.3T2   350  BCPL.XREFFER.S.018                 1 LINE    101   16 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:02:17
0          SOURCE FOR THE BCPL CROSS-REFERENCER.  WRITTEN IN BCPL.
0          Referenced by comments of: 1032/1, 1032/21 
01032/019A  BCPL                     XREFFER         OE  O          UNSP:BCPL.XREF                                                  
            4.3T2   351  BCPL.XREFFER.OE.019                1 LINE   6488    6 PAGE UNE  HEAL      UNSP      APR. 06, 1980  14:08:28
                         UNSP:BCPL.XREF       
0          OBJECT OF THE BCPL CROSS-REFERENCER.  $CONTINUES WITH UNCP:BCPL.LIBRARY
           (1032/11).
01032/020A  BCPL                     MANUAL          P   O          S0651 UNE21 FSNAME=BCPL_UNE.MANUAL.P.008(1)                     
            4.3T2   352  BCPL.MANUAL.P.020                  1 LINE     74   25 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:55
0          THIS IS A PRINT FILE CONTAINING THE BCPL MANUAL WRITTEN AT CAMBRIDGE,
           WHICH DESCRIBES BCPL WITH OS DEPENDENCIES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01032/021A  BCPL                     USERGUIDE       WX  O          S0651 UNE21 FSNAME=BCPL_UNE.USERGUIDE.W.005(1)                  
            4.3T2   353  BCPL.USERGUIDE.WX.021              1 LINE    111   12 PAGE UNE  HEAL      UNSP      AUG. 02, 1979  19:01:49
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.
01032/022A  BCPL                     USERGUIDE       P   O          UNSP:BCPL.W                                                     
            4.3T2   354  BCPL.USERGUIDE.P.022               1 LINE     80   38 PAGE UNE  HEAL      UNSP      APR. 06, 1980  14:08:41
0          A PRINT FILE FOR 1032/21.
0          Referenced by comments of: 1032/21 
01033/001   COURSEWRITER             COURSES         M   S          S0684 UNSP FSNAME=COURSEWRITER.COURSES.M.01                     
            D4T3    458  COURSEWRITER.COURSES.M.001         1 LINE     74    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:04
0          THE MTS IMPLEMENTATION OF THIS VERSION OF COURSEWRITER WAS NOT DONE
           BY THE UBC COMPUTING CENTRE, BUT BY BILL WEBB OF THE UBC DEPARTMENT
           OF ANIMAL RESOURCE ECOLOGY.  THE SUBCOMPONENT NAMED "INSTRUCTIONS"
           (1033/54) TELLS ABOUT HOW TO GENERATE A COURSEWRITER SYSTEM; AND THE
           SUBCOMPONENT NAMED "DIRECTORY" (1033/18) TELLS ABOUT SOME OF THE FILES.
           AT UM, COURSEWRITER IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
            
           ***********************************************************************
           THERE ARE SEVERAL ROUTINES MISSING FROM COURSEWRITER (AS RECEIVED FROM
           UBC), AND HENCE, IT WILL NOT WORK AS CURRENTLY DISTRIBUTED.
           ***********************************************************************
01033/002   COURSEWRITER             WEBB.Q          OC  S          S0684 UNSP FSNAME=COURSEWRITER.WEBB.Q.O.02                      
            D4T3    459  COURSEWRITER.WEBB.Q.OC.002         1 LINE     25    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:05
01033/003   COURSEWRITER             HELP            M   S          S0684 UNSP FSNAME=COURSEWRITER.HELP.M.03                        
            D4T3    460  COURSEWRITER.HELP.M.003            1 LINE     74    4 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:06
01033/004   COURSEWRITER             SYSLIB          OE  S          S0684 UNSP FSNAME=COURSEWRITER.SYSLIB.OE.04                     
            D4T3    461  COURSEWRITER.SYSLIB.OE.004         1 SEQ    2826    5 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:07
01033/005   COURSEWRITER             CAL             OE  S          S0684 UNSP FSNAME=COURSEWRITER.CAL.OE.05                        
            D4T3    462  COURSEWRITER.CAL.OE.005            1 SEQ    7660    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:10
01033/006   COURSEWRITER             AUTHOR          OE  S          S0684 UNSP FSNAME=COURSEWRITER.AUTHOR.OE.06                     
            D4T3    463  COURSEWRITER.AUTHOR.OE.006         1 SEQWL 32767   11 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:11
01033/007   COURSEWRITER             STUDENT         OE  S          S0684 UNSP FSNAME=COURSEWRITER.STUDENT.OE.07                    
            D4T3    464  COURSEWRITER.STUDENT.OE.007        1 SEQWL 32094    9 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:14
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01033/008   COURSEWRITER             LABELS          OE  S          S0684 UNSP FSNAME=COURSEWRITER.LABELS.O.08                      
            D4T3    465  COURSEWRITER.LABELS.OE.008         1 LINE    255    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:16
01033/009   COURSEWRITER             AUTHOR.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.AUTHOR.S.SA.09                   
            D4T3    466  COURSEWRITER.AUTHOR.S.SA.009       1 LINE     72   14 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:18
01033/010   COURSEWRITER             CAILCS.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.CAILCS.S.SA.10                   
            D4T3    467  COURSEWRITER.CAILCS.S.SA.010       1 LINE     72    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:21
01033/011   COURSEWRITER             CAL.S           SA  S          S0684 UNSP FSNAME=COURSEWRITER.CAL.S.SA.11                      
            D4T3    468  COURSEWRITER.CAL.S.SA.011          1 LINE     72    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:22
01033/012   COURSEWRITER             CALC.S          SA  S          S0684 UNSP FSNAME=COURSEWRITER.CALC.S.SA.12                     
            D4T3    469  COURSEWRITER.CALC.S.SA.012         1 LINE     70    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:24
01033/013   COURSEWRITER             CAL.ASM         C   S          S0684 UNSP FSNAME=COURSEWRITER.CAL.ASM.C.13                     
            D4T3    470  COURSEWRITER.CAL.ASM.C.013         1 LINE     91    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:25
01033/014   COURSEWRITER             LINK.ASM        C   S          S0684 UNSP FSNAME=COURSEWRITER.LINK.ASM.C.14                    
            D4T3    471  COURSEWRITER.LINK.ASM.C.014        1 LINE     93    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:26
01033/015   COURSEWRITER             WEBB.ASM        C   S          S0684 UNSP FSNAME=COURSEWRITER.WEBB.ASM.C.15                    
            D4T3    472  COURSEWRITER.WEBB.ASM.C.015        1 LINE     82    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:27
01033/016   COURSEWRITER             SYSLIB.ASM      C   S          S0684 UNSP FSNAME=COURSEWRITER.SYSLIB.ASM.C.16                  
            D4T3    473  COURSEWRITER.SYSLIB.ASM.C.016      1 LINE     82    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:28
01033/017   COURSEWRITER             MACLIB          SM  S          S0684 UNSP FSNAME=COURSEWRITER.MACLIB.SM.17                     
            D4T3    474  COURSEWRITER.MACLIB.SM.017         1 LINE     61    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:29
01033/018   COURSEWRITER             DIRECTORY       P   S          S0684 UNSP FSNAME=COURSEWRITER.DIRECTORY.P.18                   
            D4T3    475  COURSEWRITER.DIRECTORY.P.018       1 LINE     81    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:30
0          Referenced by comments of: 1033/1 
01033/019   COURSEWRITER             CHAIN.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.CHAIN.S.SA.19                    
            D4T3    476  COURSEWRITER.CHAIN.S.SA.019        1 LINE     72    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:31
01033/020   COURSEWRITER             SYSGEN          C   S          S0684 UNSP FSNAME=COURSEWRITER.SYSGEN.C.20                      
            D4T3    477  COURSEWRITER.SYSGEN.C.020          1 LINE     60    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:33
01033/021   COURSEWRITER             CAL.BATCH       C   S          S0684 UNSP FSNAME=COURSEWRITER.CAL.BATCH.C.21                   
            D4T3    478  COURSEWRITER.CAL.BATCH.C.021       1 LINE     75    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:35
01033/022   COURSEWRITER             CHKSAVE.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.CHKSAVE.S.SA.22                  
            D4T3    479  COURSEWRITER.CHKSAVE.S.SA.022      1 LINE     93    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:53
01033/023   COURSEWRITER             CMDN.S          SA  S          S0684 UNSP FSNAME=COURSEWRITER.CMDN.S.SA.23                     
            D4T3    480  COURSEWRITER.CMDN.S.SA.023         1 LINE     47    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:54
01033/024   COURSEWRITER             CWRIT2          SA  S          S0684 UNSP FSNAME=COURSEWRITER.CWRIT2.SA.24                     
            D4T3    481  COURSEWRITER.CWRIT2.SA.024         1 LINE     73    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:55
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01033/025   COURSEWRITER             DEFLT.S         SF  S          S0684 UNSP FSNAME=COURSEWRITER.DEFLT.S.SF.25                    
            D4T3    482  COURSEWRITER.DEFLT.S.SF.025        1 LINE     67    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:56
01033/026   COURSEWRITER             DEFVAR.S        SF  S          S0684 UNSP FSNAME=COURSEWRITER.DEFVAR.S.SF.26                   
            D4T3    483  COURSEWRITER.DEFVAR.S.SF.026       1 LINE     63    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:57
01033/027   COURSEWRITER             DO.S            SA  S          S0684 UNSP FSNAME=COURSEWRITER.DO.S.SA.27                       
            D4T3    484  COURSEWRITER.DO.S.SA.027           1 LINE     67    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:58
01033/028   COURSEWRITER             DUMMIES.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.DUMMIES.S.SA.28                  
            D4T3    485  COURSEWRITER.DUMMIES.S.SA.028      1 LINE     67    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:38:59
01033/029   COURSEWRITER             DUMP.S          SF  S          S0684 UNSP FSNAME=COURSEWRITER.DUMP.S.SF.29                     
            D4T3    486  COURSEWRITER.DUMP.S.SF.029         1 LINE     61    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:00
01033/030   COURSEWRITER             ECB.DS          SA  S          S0684 UNSP FSNAME=COURSEWRITER.ECB.DS.SA.30                     
            D4T3    487  COURSEWRITER.ECB.DS.SA.030         1 LINE     68    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:01
01033/031   COURSEWRITER             ENDSTUD.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.ENDSTUD.S.SA.31                  
            D4T3    488  COURSEWRITER.ENDSTUD.S.SA.031      1 LINE     20    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:02
01033/032   COURSEWRITER             EQCLC.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.EQCLC.S.SA.32                    
            D4T3    489  COURSEWRITER.EQCLC.S.SA.032        1 SEQ      53    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:03
01033/033   COURSEWRITER             EVAL.S          SA  S          S0684 UNSP FSNAME=COURSEWRITER.EVAL.S.SA.33                     
            D4T3    490  COURSEWRITER.EVAL.S.SA.033         1 LINE     73    8 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:04
01033/034   COURSEWRITER             EVALDEF.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.EVALDEF.S.SA.34                  
            D4T3    491  COURSEWRITER.EVALDEF.S.SA.034      1 LINE     62    4 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:06
01033/035   COURSEWRITER             EVALGET.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.EVALGET.S.SA.35                  
            D4T3    492  COURSEWRITER.EVALGET.S.SA.035      1 LINE     57    4 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:07
01033/036   COURSEWRITER             EVALI.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.EVALI.S.SA.36                    
            D4T3    493  COURSEWRITER.EVALI.S.SA.036        1 LINE     71    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:09
01033/037   COURSEWRITER             EVALOPS.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.EVALOPS.S.SA.37                  
            D4T3    494  COURSEWRITER.EVALOPS.S.SA.037      1 LINE     68    8 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:10
01033/038   COURSEWRITER             EVALOPT.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.EVALOPT.S.SA.38                  
            D4T3    495  COURSEWRITER.EVALOPT.S.SA.038      1 LINE     69    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:12
01033/039   COURSEWRITER             EVALRAND.S      SA  S          S0684 UNSP FSNAME=COURSEWRITER.EVALRAND.S.SA.39                 
            D4T3    496  COURSEWRITER.EVALRAND.S.SA.039     1 LINE     63    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:13
01033/040   COURSEWRITER             EVALSTOP.S      SA  S          S0684 UNSP FSNAME=COURSEWRITER.EVALSTOP.S.SA.40                 
            D4T3    497  COURSEWRITER.EVALSTOP.S.SA.040     1 LINE     76    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:14
01033/041   COURSEWRITER             FAKGSP.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.FAKGSP.S.SA.41                   
            D4T3    498  COURSEWRITER.FAKGSP.S.SA.041       1 LINE     73    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:15
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01033/042   COURSEWRITER             FDGET.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.FDGET.S.SA.42                    
            D4T3    499  COURSEWRITER.FDGET.S.SA.042        1 LINE     25    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:16
01033/043   COURSEWRITER             FN.DS           SA  S          S0684 UNSP FSNAME=COURSEWRITER.FN.DS.SA.43                      
            D4T3    500  COURSEWRITER.FN.DS.SA.043          1 LINE     72    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:22
01033/044   COURSEWRITER             GCONVERT.S      SA  S          S0684 UNSP FSNAME=COURSEWRITER.GCONVERT.S.SA.44                 
            D4T3    501  COURSEWRITER.GCONVERT.S.SA.044     1 LINE     70    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:24
01033/045   COURSEWRITER             GETLABS.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.GETLABS.S.SA.45                  
            D4T3    502  COURSEWRITER.GETLABS.S.SA.045      1 LINE     67    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:25
01033/046   COURSEWRITER             GETSAVE.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.GETSAVE.S.SA.46                  
            D4T3    503  COURSEWRITER.GETSAVE.S.SA.046      1 LINE     64    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:27
01033/047   COURSEWRITER             GO.S            SA  S          S0684 UNSP FSNAME=COURSEWRITER.GO.S.SA.47                       
            D4T3    504  COURSEWRITER.GO.S.SA.047           1 LINE     67    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:28
01033/048   COURSEWRITER             HASH.S          SA  S          S0684 UNSP FSNAME=COURSEWRITER.HASH.S.SA.48                     
            D4T3    505  COURSEWRITER.HASH.S.SA.048         1 LINE     91   10 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:30
01033/049   COURSEWRITER             HCONVERT.S      SA  S          S0684 UNSP FSNAME=COURSEWRITER.HCONVERT.S.SA.49                 
            D4T3    506  COURSEWRITER.HCONVERT.S.SA.049     1 LINE     63    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:32
01033/050   COURSEWRITER             IHASHF.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.IHASHF.S.SA.50                   
            D4T3    507  COURSEWRITER.IHASHF.S.SA.050       1 SEQWL    67    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:34
01033/051   COURSEWRITER             INBITS.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.INBITS.S.SA.51                   
            D4T3    508  COURSEWRITER.INBITS.S.SA.051       1 LINE     72    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:35
01033/052   COURSEWRITER             INFREE.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.INFREE.S.SA.52                   
            D4T3    509  COURSEWRITER.INFREE.S.SA.052       1 SEQWL    17    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:37
01033/053   COURSEWRITER             INFREE#.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.INFREE#.S.SA.53                  
            D4T3    510  COURSEWRITER.INFREE#.S.SA.053      1 LINE     73   14 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:38
01033/054   COURSEWRITER             INSTRUCTIONS    P   S          S0684 UNSP FSNAME=COURSEWRITER.INSTRUCTIONS.P.54                
            D4T3    511  COURSEWRITER.INSTRUCTIONS.P.054    1 LINE     72    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:41
0          Referenced by comments of: 1033/1 
01033/055   COURSEWRITER             WEBB.MACLIB     SM  S          S0684 UNSP FSNAME=COURSEWRITER.WEBB.MACLIB.SM.55                
            D4T3    512  COURSEWRITER.WEBB.MACLIB.SM.055    1 LINE     79   23 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:42
01033/056   COURSEWRITER             IOT.S           SA  S          S0684 UNSP FSNAME=COURSEWRITER.IOT.S.SA.56                      
            D4T3    513  COURSEWRITER.IOT.S.SA.056          1 LINE     56    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:46
01033/057   COURSEWRITER             LCONVERT.S      SA  S          S0684 UNSP FSNAME=COURSEWRITER.LCONVERT.S.SA.57                 
            D4T3    514  COURSEWRITER.LCONVERT.S.SA.057     1 LINE     66    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:47
01033/058   COURSEWRITER             LD.S            SA  S          S0684 UNSP FSNAME=COURSEWRITER.LD.S.SA.58                       
            D4T3    515  COURSEWRITER.LD.S.SA.058           1 LINE     72    4 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:49
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01033/059   COURSEWRITER             LEN.S           SA  S          S0684 UNSP FSNAME=COURSEWRITER.LEN.S.SA.59                      
            D4T3    516  COURSEWRITER.LEN.S.SA.059          1 LINE     56    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:50
01033/060   COURSEWRITER             LINKF.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.LINKF.S.SA.60                    
            D4T3    517  COURSEWRITER.LINKF.S.SA.060        1 LINE     67    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:52
01033/061   COURSEWRITER             LKECB.DS        SA  S          S0684 UNSP FSNAME=COURSEWRITER.LKECB.DS.SA.61                   
            D4T3    518  COURSEWRITER.LKECB.DS.SA.061       1 LINE     68    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:53
01033/062   COURSEWRITER             LOADFN.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.LOADFN.S.SA.62                   
            D4T3    519  COURSEWRITER.LOADFN.S.SA.062       1 LINE     71    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:56
01033/063   COURSEWRITER             LOOKUP.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.LOOKUP.S.SA.63                   
            D4T3    520  COURSEWRITER.LOOKUP.S.SA.063       1 LINE     63    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:39:59
01033/064   COURSEWRITER             MAIL.S          SA  S          S0684 UNSP FSNAME=COURSEWRITER.MAIL.S.SA.64                     
            D4T3    521  COURSEWRITER.MAIL.S.SA.064         1 LINE     10    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:02
01033/065   COURSEWRITER             MASKMV.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.MASKMV.S.SA.65                   
            D4T3    522  COURSEWRITER.MASKMV.S.SA.065       1 LINE     92    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:03
01033/066   COURSEWRITER             MASKMV#.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.MASKMV#.S.SA.66                  
            D4T3    523  COURSEWRITER.MASKMV#.S.SA.066      1 LINE     93    5 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:05
01033/067   COURSEWRITER             MASKSP.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.MASKSP.S.SA.67                   
            D4T3    524  COURSEWRITER.MASKSP.S.SA.067       1 LINE     67    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:07
01033/068   COURSEWRITER             MPTR.S          SA  S          S0684 UNSP FSNAME=COURSEWRITER.MPTR.S.SA.68                     
            D4T3    525  COURSEWRITER.MPTR.S.SA.068         1 LINE     49    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:08
01033/069   COURSEWRITER             OPTEST.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.OPTEST.S.SA.69                   
            D4T3    526  COURSEWRITER.OPTEST.S.SA.069       1 LINE     72    9 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:10
01033/070   COURSEWRITER             PLIST.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.PLIST.S.SA.70                    
            D4T3    527  COURSEWRITER.PLIST.S.SA.070        1 LINE     58    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:13
01033/071   COURSEWRITER             PMSG.S          SA  S          S0684 UNSP FSNAME=COURSEWRITER.PMSG.S.SA.71                     
            D4T3    528  COURSEWRITER.PMSG.S.SA.071         1 LINE     72    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:14
01033/072   COURSEWRITER             PUTLABS.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.PUTLABS.S.SA.72                  
            D4T3    529  COURSEWRITER.PUTLABS.S.SA.072      1 LINE     58    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:15
01033/073   COURSEWRITER             PUTSAVE.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.PUTSAVE.S.SA.73                  
            D4T3    530  COURSEWRITER.PUTSAVE.S.SA.073      1 LINE     64    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:17
01033/074   COURSEWRITER             READPW.S        SF  S          S0684 UNSP FSNAME=COURSEWRITER.READPW.S.SF.74                   
            D4T3    531  COURSEWRITER.READPW.S.SF.074       1 LINE     73    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:19
01033/075   COURSEWRITER             RELFD.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.RELFD.S.SA.75                    
            D4T3    532  COURSEWRITER.RELFD.S.SA.075        1 LINE     64    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:21
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01033/076   COURSEWRITER             RESET.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.RESET.S.SA.76                    
            D4T3    533  COURSEWRITER.RESET.S.SA.076        1 LINE     72    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:22
01033/077   COURSEWRITER             RPERM.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.RPERM.S.SA.77                    
            D4T3    534  COURSEWRITER.RPERM.S.SA.077        1 SEQWL    65    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:23
01033/078   COURSEWRITER             SAVE.DS         SA  S          S0684 UNSP FSNAME=COURSEWRITER.SAVE.DS.SA.78                    
            D4T3    535  COURSEWRITER.SAVE.DS.SA.078        1 LINE     72    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:25
01033/079   COURSEWRITER             SETPW.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.SETPW.S.SA.79                    
            D4T3    536  COURSEWRITER.SETPW.S.SA.079        1 LINE     60    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:27
01033/080   COURSEWRITER             STUDENT.DS      SA  S          S0684 UNSP FSNAME=COURSEWRITER.STUDENT.DS.SA.80                 
            D4T3    537  COURSEWRITER.STUDENT.DS.SA.080     1 LINE     72    3 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:28
01033/081   COURSEWRITER             STUDENT.S       SA  S          S0684 UNSP FSNAME=COURSEWRITER.STUDENT.S.SA.81                  
            D4T3    538  COURSEWRITER.STUDENT.S.SA.081      1 LINE    113   24 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:30
01033/082   COURSEWRITER             TYPER.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.TYPER.S.SA.82                    
            D4T3    539  COURSEWRITER.TYPER.S.SA.082        1 LINE     71    5 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:34
01033/083   COURSEWRITER             VLOOK.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.VLOOK.S.SA.83                    
            D4T3    540  COURSEWRITER.VLOOK.S.SA.083        1 LINE     58    2 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:36
01033/084   COURSEWRITER             XCTLF.S         SA  S          S0684 UNSP FSNAME=COURSEWRITER.XCTLF.S.SA.84                    
            D4T3    541  COURSEWRITER.XCTLF.S.SA.084        1 LINE     72    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:38
01033/085   COURSEWRITER             WEBB.O          OC  S          S0684 UNSP FSNAME=COURSEWRITER.WEBB.O.O.85                      
            D4T3    542  COURSEWRITER.WEBB.O.OC.085         1 SEQ      80    8 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:41
01033/086   COURSEWRITER             WBLIB           OL  S          S0684 UNSP FSNAME=COURSEWRITER.WBLIB.OL.86                      
            D4T3    543  COURSEWRITER.WBLIB.OL.086          1 SEQ     252    9 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:43
01033/087   COURSEWRITER             LKLIB           OL  S          S0684 UNSP FSNAME=COURSEWRITER.LKLIB.OL.87                      
            D4T3    544  COURSEWRITER.LKLIB.OL.087          1 SEQ     528    8 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:45
01033/088   COURSEWRITER             MAIL.O          OC  S          S0684 UNSP FSNAME=COURSEWRITER.MAIL.O.O.88                      
            D4T3    545  COURSEWRITER.MAIL.O.OC.088         1 LINE     80    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:47
01033/089   COURSEWRITER             CAL.O           OC  S          S0684 UNSP FSNAME=COURSEWRITER.CAL.O.O.89                       
            D4T3    546  COURSEWRITER.CAL.O.OC.089          1 SEQ      80    7 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:49
01033/090   COURSEWRITER             LABELS.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.LABELS.S.SA.90                   
            D4T3    547  COURSEWRITER.LABELS.S.SA.090       1 LINE     73    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:51
01033/091   COURSEWRITER             SYSLIB.O        OE  S          S0684 UNSP FSNAME=COURSEWRITER.SYSLIB.O.O.91                    
            D4T3    548  COURSEWRITER.SYSLIB.O.OE.091       1 SEQ    1514   17 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:40:52
01033/092   COURSEWRITER             JOAN:ANOVA      D   S          S0684 UNSP FSNAME=COURSEWRITER.JOAN:ANOVA.D.92                  
            D4T3    549  COURSEWRITER.JOAN:ANOVA.D.092      1 LINE     75   92 PAGE UBC  OSTERLIN  UNSP      JUNE 18, 1976  14:36:52
0          A DEMONSTRATION COURSE ABOUT ANALYSIS OF VARIANCE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01033/093   COURSEWRITER             CAI:STOCK       D   S          S0684 UNSP FSNAME=COURSEWRITER.CAI:STOCK.D.93                   
            D4T3    550  COURSEWRITER.CAI:STOCK.D.093       1 LINE    100    4 PAGE UBC  OSTERLIN  UNSP      JUNE 18, 1976  14:37:38
0          A DEMONSTRATION COURSE ABOUT BUYING AND SELLING STOCKS.
01033/094   COURSEWRITER             FDINFO.S        SA  S          S0684 UNSP FSNAME=COURSEWRITER.FDINFO.S.SA.94                   
            D4T3    551  COURSEWRITER.FDINFO.S.SA.094       1 LINE     57    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:41:22
01033/095   COURSEWRITER             F3270.S         SF  S          S0684 UNSP FSNAME=COURSEWRITER.F3270.S.SA.95                    
            D4T3    552  COURSEWRITER.F3270.S.SF.095        1 LINE     39    1 PAGE UBC  OSTERLIN  UNSP      JUNE 04, 1976  10:41:24
01034       MACEDIT                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL
           PURPOSE ASSEMBLER UTILITY PROGRAM.
01035       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/001  *CDUPDATE                                 SS  G          MTS:UBCUPDATE.S                                                 
            D4.2T2  171  CDUPDATE..SS.001                   1 LINE    104   24 PAGE UBC  BALLARD   SHERRY    APR. 02, 1979  01:43:48
                         MTS.:UBCUPDATE.S     
0          SPITBOL SOURCE FOR THE CONTEXT-DIRECTED, MULTILEVEL UPDATE PROGRAM.
0          Referenced by comments of: 4200/1 
01036/002  *CDUPDATE                                 OE  G          *CDUPDATE                                                       
            D4.2T2  172  CDUPDATE..OE.002                   1 LINE  30268   13 PAGE UBC  BALLARD   SHERRY    APR. 02, 1979  01:43:51
                         *CDUPDATE            
0          HAS A "$CONTINUE WITH *SPITLIB" CARD.
0          Referenced by comments of: 737/15 
01036/003  *CDUPDATE                 WRITEUP #1      PF             MTS:UBCUPDATE.W                                                 
            D4.1T1  663  CDUPDATE.WRITEUP_#1.PF.003         1 LINE    133   10 PAGE UBC  BALLARD   SHERRY    MAY  13, 1978  18:29:07
                         MTS.:UBCUPDATE.W     
0          WRITEUP DESCRIBING CONTEXT-DIRECTED UPDATE PROGRAM.  COPY TO A TN PRINTER.
01036/004  *CDUPDATE                 WRITEUP #2      PF             MTS:UBCUPDATE.W2                                                
            D4.1T1  664  CDUPDATE.WRITEUP_#2.PF.004         1 LINE     65    3 PAGE UBC  BALLARD   SHERRY    MAY  13, 1978  18:29:09
                         MTS:UBCUPDATE.W2     
0          ANOTHER WRITEUP (FROM UBC60) DESCRIBING CONTEXT-DIRECTED UPDATE PROGRAM.  COPY
           TO A TN PRINTER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01036/005  *CDUPDATE                 WRITEUP #3      WF             MTS:UBCUPDATE.W3                                                
            D4.1T1  665  CDUPDATE.WRITEUP_#3.WF.005         1 LINE     88    2 PAGE UBC  BALLARD   SHERRY    MAY  13, 1978  18:29:10
                         MTS:UBCUPDATE.W3     
0          AND STILL ANOTHER WRITEUP DESCRIBING CONTEXT-DIRECTED UPDATE PROGRAM.
01037       FORTRAN MESSAGE ROUTINE                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A
           FORTRAN-CALLABLE MESSAGE ROUTINE.
01039       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       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    A  RESOURCE MANAGER         MACRO LIBRARY   SM  G          COPY:RM.MACROS                                                  
            4.3T2   355  RESOURCE_MANAGER.MACRO_LIBRA.SM.   1 LINE     73   22 PAGE UBC  BERRYMAN  MTA       APR. 06, 1980  14:08:45
                         COPY:RM.MACROS       
0          RESOURCE MANAGER AND SUBTASKING MONITOR MACRO LIBRARY.  THESE MACROS WERE
           FORMERLY A PART OF COPY:RMGRMACLIB.
0          Referenced by comments of: 724/1, 769/1, 769/2, 769/3, 769/4, 769/5, 769/6, 769/9, 1054/5, 1058/3, 1058/4, 1058/5,
                 1058/6, 1058/7, 1058/8, 1058/9, 1058/10, 1058/11, 1058/12, 1067/1 
01042/001A  PLUS_470                 COMPILER        OE  O          NEW:PLUS                                                        
            4.3T2   356  PLUS_470.COMPILER.OE.001           1 LINE  32767   76 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:08:48
                         NEW:PLUS             
0          *******************************************************************                                                                  99999
           *                         P L U S                                 *
           *           copyright 1979 Alan Ballard and Paul Whaley           *
           *******************************************************************
            
           This is the current, complete, linkeditted version of the compiler. 
            
           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. 
            
           **********************************************************************************
           D4.3 CHANGES:
            
1                                                                                               SUN SEP 08/96   19:03:19   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          THIS IS THE VERSION WHICH WAS REDISTRIBUTED ON RD4.2C.
           **********************************************************************************
0          Referenced by comments of: 3003/69, 3003/76, 3003/77, 3003/78 
01042/002A  PLUS_470                 COMPILER        OC  O          S0931 UBC74 VLO FSNAME=PLUS_470.COMPILER.OC.002(1)             3
            4.3T2   357  PLUS_470.COMPILER.OC.002           1 LINE  13440  109 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:00:32
0          This is the current, complete unlinkeditted version of the compiler.                                                                 99998
           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. 
01042/003A  PLUS_470                 MESSAGES        M              ETC:PLUSMESSAGES                                                
            4.3T2   358  PLUS_470.MESSAGES.M.003            1 LINE    112    5 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:10:49
                         ETC:PLUSMESSAGES     
0          Message file accessed by the compiler.                                                                                               99997
           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       S+  O          NEW:PLUS.SOURCEL                                                
            4.3T2   359  PLUS_470.SOURCELIB.S+.004          1 LINE     92   26 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:10:51
                         NEW:PLUS.SOURCEL     
0          This is a revised version of the source library assumed if unit                                                                      99996
           0 is not specified when running the compiler. 
            
           There are some minor changes since the RD16 version, to make 
           use of new compiler features.  This version of the library 
           will not work with the D4.2 compiler. 
            
           Note this version is substantially different from the D4.2 version. 
           The file PLUS:NEWS (1042/62) describes the major differences
           between this version of the library and the D4.2 version (which
           was called PLUS:MTSLIB, not PLUS:SOURCELIB).
            
           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 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. 
            
1                                                                                               SUN SEP 08/96   19:03:19   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          A preliminary writeup is included with this distribution. 
           (1042/59).
            
            
            
           **********************************************************************************
           D4.3 CHANGES:
            
           SOME BUGS IN THIS FILE HAVE BEEN FIXED AT MICHIGAN SINCE IT WAS REDISTRIBUTED
           ON RD4.2C.
           **********************************************************************************
0          Referenced by comments of: 1042/1, 1042/2, 1042/43, 1042/50, 1042/54, 1042/59, 1042/75, 1042/104, 1076/3, 3003/78 
01042/005A  PLUS_470                 LISTING         L              S0931 UBC74 VLO FSNAME=PLUS_470.LISTING.L.005(1)               6
            4.3T2   360  PLUS_470.LISTING.L.005             1 LINE    155  679 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:00:47
0          Complete source listing for current version of compiler.                                                                             99995
           $COPY to printer with PAGES=800. 
01042/006A  PLUS_470                 SOURCE          S   O          S0931 UBC74 VLO FSNAME=PLUS_470.SOURCE.S.006(1)                7
            4.3T2   361  PLUS_470.SOURCE.S.006              1 LINE     41    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:44
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).
           CONTAINS $CONTINUE WITH PLUS:PARSER.OL (1076/6) + NEW:PLUS.OBJLIB (1042/50) +
           PLUS:PSTAT.SQD (1042/106) RECORDS. DOCUMENTATION FOR STATSCAN IS IN 
           STATSCAN HELP (1042/85).
0          Referenced by comments of: 1042/82 
01042/007A  PLUS_470                 MAIN            S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.MAIN.S+.007(1)                 8
            4.3T2   362  PLUS_470.MAIN.S+.007               1 LINE     68    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:47
0          Compiler main program and initialization/termination.                                                                                99993
01042/008A  PLUS_470                 VERSION NUMBER  S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.VERSION_NUMBER.S+.008(1)       9
            4.3T2   363  PLUS_470.VERSION_NUMBER.S+.008     1 LINE     68    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:50
0          This routine just returns the current compiler version number.  It                                                                   99992
           is recompiled when the version number (in GLOBALLIB - comp. 1042/44) 
           is changed.
01042/009A  PLUS_470                 TRAP            S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.TRAP.S+.009(1)                10
            4.3T2   364  PLUS_470.TRAP.S+.009               1 LINE     81    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:53
0          Compiler program interrupt handler.                                                                                                  99991
01042/010A  PLUS_470                 TABLE RTNS      S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.TABLE_RTNS.S+.010(1)          11
            4.3T2   365  PLUS_470.TABLE_RTNS.S+.010         1 LINE     70    9 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:56
0          Routines used by compiler to allocate and maintain variable-size                                                                     99990
           arrays and tables. 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/011A  PLUS_470                 STRING          S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.STRING.S+.011(1)              12
            4.3T2   366  PLUS_470.STRING.S+.011             1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:01:59
0          Compiler string-table processing routines.                                                                                           99989
01042/012A  PLUS_470                 MESSAGE RTNS    S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.MESSAGE_RTNS.S+.012(1)        13
            4.3T2   367  PLUS_470.MESSAGE_RTNS.S+.012       1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:02
0          Routines which build and print compiler messages.                                                                                    99988
01042/013A  PLUS_470                 CONVERT         S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.CONVERT.S+.013(1)             14
            4.3T2   368  PLUS_470.CONVERT.S+.013            1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:05
0          Various routines which convert things to character strings, mostly                                                                   99987
           for printing in messages. 
01042/014A  PLUS_470                 CONST RTNS      S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.CONST_RTNS.S+.014(1)          15
            4.3T2   369  PLUS_470.CONST_RTNS.S+.014         1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:08
0          Constant processing routines.                                                                                                        99986
01042/015A  PLUS_470                 I/O RTNS        S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.I/O_RTNS.S+.015(1)            16
            4.3T2   370  PLUS_470.I/O_RTNS.S+.015           1 LINE     68    8 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:12
0          I/O interfacing routines.                                                                                                            99985
01042/016A  PLUS_470                 INCLUDE         S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.INCLUDE.S+.016(1)             17
            4.3T2   371  PLUS_470.INCLUDE.S+.016            1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:15
0          Routines for processing source libraries, %Include.                                                                                  99984
01042/017A  PLUS_470                 SCANNER         S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.SCANNER.S+.017(1)             18
            4.3T2   372  PLUS_470.SCANNER.S+.017            1 LINE     68   12 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:18
0          Input scanner.                                                                                                                       99983
01042/018A  PLUS_470                 PARAGRAPHER     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.PARAGRAPHER.S+.018(1)         19
            4.3T2   373  PLUS_470.PARAGRAPHER.S+.018        1 LINE     92    9 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:22
0          Source paragrapher.                                                                                                                  99982
01042/019A  PLUS_470                 PARSER          S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.PARSER.S+.019(1)              20
            4.3T2   374  PLUS_470.PARSER.S+.019             1 LINE     68    8 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:25
0          Input parser.  This is driven by tables (1042/48) generated 
           by the UBC LALR(1) analyzer (1042/102). 
0          Referenced by comments of: 1042/92 
01042/020A  PLUS_470                 SYMBOL_TABLE    S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.SYMBOL_TABLE.S+.020(1)        21
            4.3T2   375  PLUS_470.SYMBOL_TABLE.S+.020       1 LINE     95    6 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:29
0          Symbol table processing routines.                                                                                                    99980
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/021A  PLUS_470                 EXT NAME RTNS   S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.EXT_NAME_RTNS.S+.021(1)       22
            4.3T2   376  PLUS_470.EXT_NAME_RTNS.S+.021      1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:32
0          Routines which maintain a table of external names for cross-checking                                                                 99979
           if two routines/globals result in same ESDname.  Also, used to 
           print out index at end of compilation. 
01042/022A  PLUS_470                 EXTERNAL        S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.EXTERNAL.S+.022(1)            23
            4.3T2   377  PLUS_470.EXTERNAL.S+.022           1 LINE     68    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:35
0          Pass 1 semantics for compilation units (procedures, globals).                                                                        99978
01042/023A  PLUS_470                 MACROS          S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.MACROS.S+.023(1)              24
            4.3T2   378  PLUS_470.MACROS.S+.023             1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:38
0          Pass 1 semantics for macro definition and expansion.                                                                                 99977
01042/024A  PLUS_470                 TYPES           S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.TYPES.S+.024(1)               25
            4.3T2   379  PLUS_470.TYPES.S+.024              1 LINE     78   21 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:41
0          Pass 1 semantics for processing type definitions.                                                                                    99976
01042/025A  PLUS_470                 VARIABLES       S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.VARIABLES.S+.025(1)           26
            4.3T2   380  PLUS_470.VARIABLES.S+.025          1 LINE    137    9 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:46
0          Pass 1 semantics for processing variables.                                                                                           99975
01042/026A  PLUS_470                 DECLARATIONS    S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.DECLARATIONS.S+.026(1)        27
            4.3T2   381  PLUS_470.DECLARATIONS.S+.026       1 LINE     68    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:49
0          Pass 1 semantics for processing declarations.                                                                                        99974
01042/027A  PLUS_470                 STATEMENTS      S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.STATEMENTS.S+.027(1)          28
            4.3T2   382  PLUS_470.STATEMENTS.S+.027         1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:53
0          Pass 1 semantics for processing statements.                                                                                          99973
01042/028A  PLUS_470                 EXPRESSIONS     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.EXPRESSIONS.S+.028(1)         29
            4.3T2   383  PLUS_470.EXPRESSIONS.S+.028        1 LINE     68   36 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:02:56
0          Pass 1 semantics for processing expressions.                                                                                         99972
01042/029A  PLUS_470                 CONTROL_STRUCT  S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.CONTROL_STRUCT.S+.029(1)      30
            4.3T2   384  PLUS_470.CONTROL_STRUCT.S+.029     1 LINE     68    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:02
0          Pass 1 semantics for processing control structures.                                                                                  99971
01042/030A  PLUS_470                 TREE            S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.TREE.S+.030(1)                31
            4.3T2   385  PLUS_470.TREE.S+.030               1 LINE     68   12 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:06
0          Pass 1 routines used to build intermediate code tree.                                                                                99970
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/031A  PLUS_470                 ERRORS          S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.ERRORS.S+.031(1)              32
            4.3T2   386  PLUS_470.ERRORS.S+.031             1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:09
0          Pass 1 error recovery semantics.                                                                                                     99969
01042/032A  PLUS_470                 VIRTUAL         S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.VIRTUAL.S+.032(1)             33
            4.3T2   387  PLUS_470.VIRTUAL.S+.032            1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:12
0          Routines to process "virtual registers".                                                                                             99968
01042/033A  PLUS_470                 STREAM          S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.STREAM.S+.033(1)              34
            4.3T2   388  PLUS_470.STREAM.S+.033             1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:15
0          Routines for maintaining the "stream code" array.                                                                                    99967
01042/034A  PLUS_470                 TEMPORARIES     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.TEMPORARIES.S+.034(1)         35
            4.3T2   389  PLUS_470.TEMPORARIES.S+.034        1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:18
0          Temporary manangement routines.                                                                                                      99966
01042/035A  PLUS_470                 SDS SYMS        S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.SDS_SYMS.S+.035(1)            36
            4.3T2   390  PLUS_470.SDS_SYMS.S+.035           1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:21
0          Routines to generate SYM records from symbol and variable table 
           information. 
01042/036A  PLUS_470                 STREAM GEN      S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.STREAM_GEN.S+.036(1)          37
            4.3T2   391  PLUS_470.STREAM_GEN.S+.036         1 LINE     68   40 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:25
0          Pass which tours the tree and produces "stream code".                                                                                99965
01042/037A  PLUS_470                 STREAM UTIL     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.STREAM_UTIL.S+.037(1)         38
            4.3T2   392  PLUS_470.STREAM_UTIL.S+.037        1 LINE     68   19 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:31
0          Auxiliary routines used by stream code generation.                                                                                   99964
01042/038A  PLUS_470                 CONST TABLE     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.CONST_TABLE.S+.038(1)         39
            4.3T2   393  PLUS_470.CONST_TABLE.S+.038        1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:35
0          Routines which manage the constant table used for constants emitted                                                                  99963
           during code generation. 
01042/039A  PLUS_470                 STREAM OPT      S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.STREAM_OPT.S+.039(1)          40
            4.3T2   394  PLUS_470.STREAM_OPT.S+.039         1 LINE     68    8 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:39
0          Optimization performed on the stream code.                                                                                           99962
           (Currently, combination of "virtual registers", redundant branch removal,
           unreachable code removal) 
01042/040A  PLUS_470                 OBJECT GEN      S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_GEN.S+.040(1)          41
            4.3T2   395  PLUS_470.OBJECT_GEN.S+.040         1 LINE     68   18 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:42
0          Routines which tour stream code and produce object code.                                                                             99961
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/041A  PLUS_470                 OBJECT EMIT     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_EMIT.S+.041(1)         42
            4.3T2   396  PLUS_470.OBJECT_EMIT.S+.041        1 LINE     68    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:47
0          Routines which emit object code by calling object module                                                                             99960
           building routines (1042/55). 
01042/042A  PLUS_470                 OBJECT LIST     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_LIST.S+.042(1)         43
            4.3T2   397  PLUS_470.OBJECT_LIST.S+.042        1 LINE     68    6 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:50
0          Routines which produce the listing of emitted object code.                                                                           99959
01042/043A  PLUS_470                 PLUSLIB         S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.PLUSLIB.S+.043(1)             44
            4.3T2   398  PLUS_470.PLUSLIB.S+.043            1 LINE     39    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:54
0          Source library used to compile any of the PLUS compiler source                                                                       99957
           components.  This file simply contains $CONTINUE WITH's for 
           the actual libraries used, namely
            
              SUEN:PARSDECLLIB (1042/49)
              PLUS:LALRPARSE*SL (1042/88)
              PLUS:OBJRTNS*SL (1042/55)
              SUEN:GLOBALLIB (1042/44)
              SUEN:PROCDECLLIB(1042/45)
              PLUS:SOURCELIB (1042/4)
01042/044A  PLUS_470                 GLOBALLIB       S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.GLOBALLIB.S+.044(1)           45
            4.3T2   399  PLUS_470.GLOBALLIB.S+.044          1 LINE     92   27 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:03:57
0          PLUS library containing global blocks, types, etc. that are required by                                                              99956
           more than one of the source files. 
0          Referenced by comments of: 1042/43 
01042/045A  PLUS_470                 PROCDECLLIB     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.PROCDECLLIB.S+.045(1)         46
            4.3T2   400  PLUS_470.PROCDECLLIB.S+.045        1 LINE     68   28 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:04
0          Library containing procedure declarations for all procedures constituting                                                            99955
           the PLUS compiler. 
           (Except, currently, for a few that are in GLOBALLIB for historical 
           reasons.)
01042/046A  PLUS_470                 COMPILER INT    SA  O          S0931 UBC74 VLO FSNAME=PLUS_470.COMPILER_INT.SA.046(1)        47
            4.3T2   401  PLUS_470.COMPILER_INT.SA.046       1 LINE     68    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:10
0          Assembler interface routine for running the PLUS compiler.  Allocates                                                                99954
           and initializes the stack and pseudo-register vector
           and calls the main routine of the compiler. 
01042/047A  PLUS_470                 GRAMMAR         S              S0931 UBC74 VLO FSNAME=PLUS_470.GRAMMAR.S.047(1)              48
            4.3T2   402  PLUS_470.GRAMMAR.S.047             1 LINE    112    5 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:13
0          Grammar for PLUS used as input to the LALR analyzer (1042/102)
           to produce the distributed parser tables (1042/48).
            
1                                                                                               SUN SEP 08/96   19:03:19   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          The convention is used that non-terminals are surrounded by quotes.
0          Referenced by comments of: 1042/86 
01042/048A  PLUS_470                 PARSER TABLES   OC  G          S0931 UBC74 VLO FSNAME=PLUS_470.PARSER_TABLES.OC.048(1)       49
            4.3T2   403  PLUS_470.PARSER_TABLES.OC.048      1 LINE    254    7 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:16
0          Parser tables generated by UBC LALR (1042/102) from PLUS grammar. 
0          Referenced by comments of: 1042/19, 1042/47 
01042/049A  PLUS_470                 PARSER DECLS    S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.PARSER_DECLS.S+.049(1)        50
            4.3T2   404  PLUS_470.PARSER_DECLS.S+.049       1 LINE     98    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:19
0          PLUS source library generated by UBC LALR (1042/102) 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                                                 
            4.3T2   405  PLUS_470.LIBRARY.OL.050            1 LINE   3160    6 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:35:59
                         NEW:PLUS.OBJLIB      
0          Object library containing object code for various useful routines                                                                    99951
           (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, PLUS:SOURCELIB (1042/4).
            
           A first pass at documentation for these routines is now included as 
           1042/59.
            
0          Referenced by comments of: 1042/6, 1042/52, 1042/82, 1042/84, 1042/102, 1076/1, 3003/76 
01042/051A  PLUS_470                 LIBRARY         S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.LIBRARY.S+.051(1)             52
            4.3T2   406  PLUS_470.LIBRARY.S+.051            1 LINE     86   18 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:25
0          PLUS source for some useful routines.                                                                                                99950
0          Referenced by comments of: 1042/50 
01042/052A  PLUS_470                 LIBRARY         SA  O          S0931 UBC74 VLO FSNAME=PLUS_470.LIBRARY.SA.052(1)             53
            4.3T2   407  PLUS_470.LIBRARY.SA.052            1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:29
0          Assembler source for a few interfacing routines that are                                                                             99948
           included in PLUS:OBJLIB (1042/50). 
            
           Now sets up pseudo-register vector.
            
0          Referenced by comments of: 1042/50 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/053A  PLUS_470                 LIBRARY         L              S0931 UBC74 VLO FSNAME=PLUS_470.LIBRARY.L.053(1)              54
            4.3T2   408  PLUS_470.LIBRARY.L.053             1 LINE    133   62 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:32
0          Listing of PLUS library routines.                                                                                                    99949
           $COPY with PAGES=100.
01042/054A  PLUS_470                 OBJECT RTNS     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_RTNS.S+.054(1)         55
            4.3T2   409  PLUS_470.OBJECT_RTNS.S+.054        1 LINE     68   13 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:39
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/102) and by the "Spires" Analyzer (1076). 
            
           The routines require some storage management routines.  A set 
           are provided in PLUS:UTILITY*OL (1042/77), 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/76)
               PLUS:SOURCELIB   (1042/4)
            
0          Referenced by comments of: 1042/55, 1042/75 
01042/055A  PLUS_470                 OBJECT RTNS     S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_RTNS.S+.055(1)         56
            4.3T2   410  PLUS_470.OBJECT_RTNS.S+.055        1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:43
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/104, 1076/3 
01042/056A  PLUS_470                 OBJECT RTNS     OL  O          S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_RTNS.OL.056(1)         57
            4.3T2   411  PLUS_470.OBJECT_RTNS.OL.056        1 LINE    992    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:46
0          Object library containing the PLUS object module routines. 
0          Referenced by comments of: 1042/102, 1076/1 
01042/057A  PLUS_470                 WRITEUP         WF             S0931 UBC74 VLO FSNAME=PLUS_470.WRITEUP.WF.057(1)             58
            4.3T2   412  PLUS_470.WRITEUP.WF.057            1 LINE    146   52 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:04:50
0          FMT source for PLUS writeup.                                                                                                         99946
            
           Contains reference to JON:MACLIB at line 1, which will need
           changing elsewhere. 
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          (JON:MACLIB IS DISTRIBUTED BY MICHIGAN AS 308/19.)
0          Referenced by comments of: 1042/62 
01042/058A  PLUS_470                 WRITEUP         PF             S0931 UBC74 VLO FSNAME=PLUS_470.WRITEUP.PF.058(1)             59
            4.3T2   413  PLUS_470.WRITEUP.PF.058            1 LINE     77   66 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:09
0           $COPYable form of PLUS writeup.  Allow 100 pages, TN printer.                                                                       99944
01042/059A  PLUS_470                 LIB WRITEUP     WX             S0931 UBC74 VLO FSNAME=PLUS_470.LIB_WRITEUP.WX.059(1)         60
            4.3T2   414  PLUS_470.LIB_WRITEUP.WX.059        1 LINE     95   34 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:19
0          Textform source for preliminary version of writeup 
           describing PLUS:SOURCELIB (1042/4) contents. 
            
           Since RD16, this has been extended to include documentation 
           on system subroutines declarations from PLUS:SOURCELIB.
            
           Note it contains $CONTINUE WITH TXTF:TXTF.PROLOG
           which must be changed elsewhere. 
           (TXTF.PROLOG IS DISTRIBUTED BY MICHIGAN AS UNSP:JONMACLIBTXT (3018/177).
            
           Ignore the large number of error messages generated when 
           this is run through Textform. 
0          Referenced by comments of: 1042/4 
01042/060A  PLUS_470                 LIB WRITEUP     PX             S0931 UBC74 VLO FSNAME=PLUS_470.LIB_WRITEUP.PX.060(1)         61
            4.3T2   415  PLUS_470.LIB_WRITEUP.PX.060        1 LINE     69   15 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:26
0          $COPYable form of writeup for PLUS:SOURCELIB. 
           Allow 100 pages, TN printer. 
01042/061A  PLUS_470                 BUGLIST         P              S0931 UBC74 VLO FSNAME=PLUS_470.BUGLIST.P.061(1)              62
            4.3T2   416  PLUS_470.BUGLIST.P.061             1 LINE     68    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:31
0          Description of current known bugs in the compiler.                                                                                   99942
01042/062A  PLUS_470                 NEWS            P              S0931 UBC74 VLO FSNAME=PLUS_470.NEWS.P.062(1)                 63
            4.3T2   417  PLUS_470.NEWS.P.062                1 LINE     72    6 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:34
0          Current news file for PLUS.                                                                                                          99941
            
           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. 
            
0          Referenced by comments of: 1042/4 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/063A  PLUS_470                 WORKLIST        P              S0931 UBC74 VLO FSNAME=PLUS_470.WORKLIST.P.063(1)             64
            4.3T2   418  PLUS_470.WORKLIST.P.063            1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:37
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/064A  PLUS_470                 CHANGELOG       P              S0931 UBC74 VLO FSNAME=PLUS_470.CHANGELOG.P.064(1)            65
            4.3T2   419  PLUS_470.CHANGELOG.P.064           1 LINE     73    6 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:40
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/065A  PLUS_470                 DIST LETTER     PF             S0931 UBC74 VLO FSNAME=PLUS_470.DIST_LETTER.PF.065(1)         66
            4.3T2   420  PLUS_470.DIST_LETTER.PF.065        1 LINE     69    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:44
0          This is a covering letter to Jim Hansen which accompanies this                                                                       99940
           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/066A  PLUS_470                 INSTALL NOTES   P              S0931 UBC74 VLO FSNAME=PLUS_470.INSTALL_NOTES.P.066(1)        67
            4.3T2   421  PLUS_470.INSTALL_NOTES.P.066       1 LINE     76    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:47
0          Instructions for installing PLUS.                                                                                                    99939
           Slightly revised for second distribution. 
0          Referenced by comments of: 1042/1, 1042/2, 1042/3 
01042/067A  PLUS_470                 BOOTSTRAP       C              S0931 UBC74 VLO FSNAME=PLUS_470.BOOTSTRAP.C.067(1)            68
            4.3T2   422  PLUS_470.BOOTSTRAP.C.067           1 LINE    159    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:50
0          This file contains a complete sample batch job to compile the entire                                                                 99938
           PLUS compiler, then verify the compilation by using it to recompile 
           itself again. 
            
           This procedure is used at UBC when installing a new version. 
            
           See installation notes, and $COMMENT lines in the command file.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/068A  PLUS_470                 ROLLOVER        C              S0931 UBC74 VLO FSNAME=PLUS_470.ROLLOVER.C.068(1)             69
            4.3T2   423  PLUS_470.ROLLOVER.C.068            1 LINE     68    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:05:54
0          Batch job used after generating a new private version of the PLUS                                                                    99937
           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
            D4.2T2  236  PLUS_470.COMPARE.SS.064            1 LINE     62    1 PAGE UBC  BALLARD   HANSEN    JAN. 09, 1979  13:26:05
0          This is a SPITBOL GLP which we use in bootstrapping a new version of the                                                             99936
           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                 XREF            SS  G          S1222 UMPLUS FSNAME=PLUS.XREF.S                               71
            D4.2T2  237  PLUS_470.XREF.SS.065               1 LINE    101    4 PAGE UBC  BALLARD   HANSEN    FEB. 05, 1979  18:03:44
0          Another Spitbol program, which we use to produce a cross-reference                                                                   99935
           of the PLUS source files. 
            
           This is the same as the D4.2 version (as modified by Jim Hansen).
           Line 59 should be changed to set variable READ_TYPE to "UM"
           to use UNSP:SPITLIB routines instead of UBC routines. 
            
           Reads a list of "reserved words" from unit 0, and a list of files
           to XREF from SCARDS. 
01042/071A  PLUS_470                 XREF            D              S0931 UBC74 VLO FSNAME=PLUS_470.XREF.D.071(1)                 72
            4.3T2   424  PLUS_470.XREF.D.071                1 LINE     10    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:03
0          List of words that we don't want cross referenced when XREFing the PLUS                                                              99934
           compiler.  This consists of the reserved words, and a few builtin or 
           compiler procedures. 
            
01042/072A  PLUS_470                 XREF            L              S0931 UBC74 VLO FSNAME=PLUS_470.XREF.L.072(1)                 73
            4.3T2   425  PLUS_470.XREF.L.072                1 LINE    133  280 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:05
0          Cross reference of files constituting distributed PLUS compiler                                                                      99933
           as generated by XREF program.
            
           $COPY with PAGES=200.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/073A  PLUS_470                 LIBRARY GENERA  SS  O          S0931 UBC74 VLO FSNAME=PLUS_470.LIBRARY_GENERA.SS.073(1)      74
            4.3T2   426  PLUS_470.LIBRARY_GENERA.SS.073     1 LINE    157    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:22
0          Another Spitbol GLP, again requiring the UBC routine to get at                                                                       99932
           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/074A  PLUS_470                 HANOI           S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.HANOI.S+.074(1)               75
            4.3T2   427  PLUS_470.HANOI.S+.074              1 LINE     68    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:25
0          Simple example of PLUS program that performs Towers of Hanoi.                                                                        99931
01042/075A  PLUS_470                 UTILITY RTNS    S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.UTILITY_RTNS.S+.075(1)        76
            4.3T2   428  PLUS_470.UTILITY_RTNS.S+.075       1 LINE     68    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:28
0          This is source for a collection of auxiliary PLUS subroutines that                                                                   99930
           are getting used in various places, but which we don't think belong 
           in PLUS:OBJLIB. 
            
           The routines currently in this file are various procedures for 
           allocating arrays and linked lists. 
            
           Used in this distribution by the LALR analyzer (1042/102) 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+PLUS:SOURCELIB
                          (1042/76)    (1042/4)
01042/076A  PLUS_470                 UTILITY RTNS    S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.UTILITY_RTNS.S+.076(1)        77
            4.3T2   429  PLUS_470.UTILITY_RTNS.S+.076       1 LINE     68    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:31
0          PLUS Source library containing the declarations for the above routines.                                                              99929
            
           Used when compiling the routines, or by any program that uses the 
           routines.
            
0          Referenced by comments of: 1042/54, 1042/75, 1042/104, 1076/1, 1076/3 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/077A  PLUS_470                 UTILITY RTNS    OL  O          S0931 UBC74 VLO FSNAME=PLUS_470.UTILITY_RTNS.OL.077(1)        78
            4.3T2   430  PLUS_470.UTILITY_RTNS.OL.077       1 LINE    292    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:34
0          Object library containing the utility routines from 1042/75.
0          Referenced by comments of: 1042/54, 1042/102 
01042/078A  PLUS_470                 SUPERVISOR LIB  S+  O          S0931 UBC74 VLO FSNAME=PLUS_470.SUPERVISOR_LIB.S+.078(1)      79
            4.3T2   431  PLUS_470.SUPERVISOR_LIB.S+.078     1 LINE     72    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:06:37
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. 
            
           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/079A  PLUS_470                 DSP LIB         S+  S          S0931 UBC74 VLO FSNAME=PLUS_470.DSP_LIB.S+.079(1)             80
            4.3T2   432  PLUS_470.DSP_LIB.S+.079            1 LINE     68    3 PAGE UBC  O'REILLY  HANSEN    SEP. 27, 1979  22:06:40
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/080A  PLUS_470                 INTERTASK LIB   S+  S          S0931 UBC74 VLO FSNAME=PLUS_470.INTERTASK_LIB.S+.080(1)       81
            4.3T2   433  PLUS_470.INTERTASK_LIB.S+.080      1 LINE     68    3 PAGE UBC  O'REILLY  HANSEN    SEP. 27, 1979  22:06:44
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/081A  PLUS_470                 MONITOR LIB     S+  S          S0931 UBC74 VLO FSNAME=PLUS_470.MONITOR_LIB.S+.081(1)         82
            4.3T2   434  PLUS_470.MONITOR_LIB.S+.081        1 LINE     68    5 PAGE UBC  O'REILLY  HANSEN    SEP. 27, 1979  22:06:47
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. 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/082A  PLUS_470                 STATSCAN        S+  O          PLUS:STATSCAN(1000,9999)                                        
            4.3T2   435  PLUS_470.STATSCAN.S+.082           1 LINE    101   13 PAGE UM   HANSEN              APR. 06, 1980  14:37:17
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).
           CONTAINS $CONTINUE WITH PLUS:PARSER.OL (1042/6) + NEW:PLUS.OBJLIB (1042/50) +
           PLUS:PSTAT.SQD (1042/106). DOCUMENTATION FOR STATSCAN IS IN STATSCAN HELP (1042/85).
01042/083A  PLUS_470                 STATSCN GRAMMR  S   G          PLUS:STATSCAN(10000)                                            
            4.3T2   436  PLUS_470.STATSCN_GRAMMR.S.083      1 LINE     83    3 PAGE UM   HANSEN              APR. 06, 1980  14:37:30
0          GRAMMAR FOR THE UBC ANALYZER (1076/1) USED TO
           PRODUCE PARSER TABLES INCLUDED IN 1042/84.
0          Referenced by comments of: 1042/106 
01042/084A  PLUS_470                 STATSCAN        O   O          PLUS:STATSCAN(1,999)                                            
            4.3T2   437  PLUS_470.STATSCAN.O.084            1 LINE   3612   12 PAGE UM   HANSEN              APR. 06, 1980  14:37:40
0          OBJECT OF 1042/82 AND 1042/83.  MUST BE COMPILED WITH THE PLUS COMPILER
           VERSION 15 (OCTOBER 1979).
            
           $CONTINUES WITH PLUS:PARSER.OL (1076/6) AND PLUS:OBJLIB (1042/50).
           USES THE STATSCAN HELP FILE (1042/85) AND ETC:PLUSLOG (THE PLUS 
           COMPILER STATISTICS FILE, WHICH IS NOT DISTRIBUTED).
0          Referenced by comments of: 1042/85 
01042/085A  PLUS_470                 STATSCAN HELP   D              PLUS:PSTAT.HELP                                                 
            4.3T2   438  PLUS_470.STATSCAN_HELP.D.085       1 LINE     68    2 PAGE UM   HANSEN              APR. 06, 1980  14:37:47
0          HELP FILE FOR THE PLUS STATISTICS FILE SCANNER (1042/84).
            
           $CONTINUES WITH PLUS:PSTAT.HELP (1042/106).
0          Referenced by comments of: 1042/6, 1042/82, 1042/84 
01042/086A  PLUS_470                 LALR WRITEUP    WF             S0931 UBC74 VLO FSNAME=UBC_LALR.WRITEUP.WF.002(1)            110
            4.3T2   439  PLUS_470.LALR_WRITEUP.WF.086       1 LINE     66    3 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:05
0          LALR (subcomponents 1042/86 - 1042/105), 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), but they
           haven't had a chance yet.
            
           This subcomponent contains FMT source for brief notes describing
           input and output from LALR.  It assumes the reader is familiar with
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          similar programs. 
            
           Uses UNSP:JONMACLIBFMT (308/19).
            
           ********************************************************************************
           D4.3 CHANGES:
            
           SUBCOMPONENTS 1042/86 THROUGH 1042/105 COMPRISE UBC LALR, A PROGRAM
           MUCH LIKE *LALRGEN (745). THEY WERE RECEIVED FROM UBC AS SUBCOMPONENTS 
           1080/1 THROUGH 1080/20.  SINCE WE DO NOT FORSEE USING LALR FOR ANYTHING 
           NOT PLUS-RELATED, WE HAVE APPENDED IT TO THE END OF THE PLUS COMPONENT.
           ********************************************************************************
01042/087A  PLUS_470                 LALR WRITEUP    PF             S0931 UBC74 VLO FSNAME=UBC_LALR.WRITEUP.PF.003(1)            111
            4.3T2   440  PLUS_470.LALR_WRITEUP.PF.087       1 LINE     69    3 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:13
0          $COPYable writeup for LALR (5 pages)
01042/088A  PLUS_470                 LALR DECLAR     S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.DECLARATIONS.S+.004(1)       112
            4.3T2   441  PLUS_470.LALR_DECLAR.S+.088        1 LINE     68    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:16
0          PLUS source library containing the definition of the parser tables. 
0          Referenced by comments of: 1042/43, 1042/104 
01042/089A  PLUS_470                 LALR SOURCE     S   O          S0931 UBC74 VLO FSNAME=UBC_LALR.SOURCE.S.005(1)              113
            4.3T2   442  PLUS_470.LALR_SOURCE.S.089         1 LINE     35    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:20
0          Components 1042/90 to 1080/99 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/104 $CONTINUES WITH all the required libraries. 
01042/090A  PLUS_470                 LALR MAIN       S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.MAIN.S+.006(1)               114
            4.3T2   443  PLUS_470.LALR_MAIN.S+.090          1 LINE     68    4 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:26
0          LALR main program and initialization and some auxiliary procedures.
01042/091A  PLUS_470                 LALR INPUT      S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.INPUT.S+.007(1)              115
            4.3T2   444  PLUS_470.LALR_INPUT.S+.091         1 LINE     68    4 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:36
0          Input reading and scanning components. 
01042/092A  PLUS_470                 LALR PARSER     S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.PARSER.S+.008(1)             116
            4.3T2   445  PLUS_470.LALR_PARSER.S+.092        1 LINE     68    4 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:48
0          LALR analyzer input parser. 
            
           This file contains the procedures to parse and recover from syntax errors
1                                                                                               SUN SEP 08/96   19:03:19   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          in the input to LALR. 
            
           It serves as an example of the structure of the parser required 
           by the tables generated by LALR. 
            
           The PLUS compiler has its own version (1042/19). 
            
01042/093A  PLUS_470                 LALR PRINT      S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.PRINT.S+.009(1)              117
            4.3T2   446  PLUS_470.LALR_PRINT.S+.093         1 LINE     68    6 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:51
0          This component produces listing of the grammar, and other 
           printed output produced by LALR.
01042/094A  PLUS_470                 LALR LR0        S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.LR0.S+.010(1)                118
            4.3T2   447  PLUS_470.LALR_LR0.S+.094           1 LINE     68    5 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:55
0          Procedures to produce the LR(0) machine from the grammar.
01042/095A  PLUS_470                 LALR SLR1       S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.SLR1.S+.011(1)               119
            4.3T2   448  PLUS_470.LALR_SLR1.S+.095          1 LINE     68    3 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:09:58
0          Procedures to try SLR(1) lookahead. 
01042/096A  PLUS_470                 LALR LALR1      S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.LALR1.S+.012(1)              120
            4.3T2   449  PLUS_470.LALR_LALR1.S+.096         1 LINE     68    8 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:01
0          Procedures to try LALR(1) lookahead. 
01042/097A  PLUS_470                 LALR MATRX GEN  S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.MATRIX_GEN.S+.013(1)         121
            4.3T2   450  PLUS_470.LALR_MATRX_GEN.S+.097     1 LINE     68    7 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:15
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/098A  PLUS_470                 LALR PUNCH      S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.PUNCH.S+.014(1)              122
            4.3T2   451  PLUS_470.LALR_PUNCH.S+.098         1 LINE     68    7 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:18
0          Routines to generate object module from the matrix 
           representation.  The routines in component 1042/56
           are used. 
01042/099A  PLUS_470                 LALR MEMBER     S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.MEMBER.S+.015(1)             123
            4.3T2   452  PLUS_470.LALR_MEMBER.S+.099        1 LINE     67    2 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:22
0          These routines generate an output PLUS library containing 
           declarations for use when writing programs to use the 
           parser tables. 
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01042/100A  PLUS_470                 LALR GRAMMAR    S   O          S0931 UBC74 VLO FSNAME=UBC_LALR.GRAMMAR.S.016(1)             124
            4.3T2   453  PLUS_470.LALR_GRAMMAR.S.100        1 LINE     56    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:25
0          Simple grammar in the form required by LALR 
           defining the input to LALR.
01042/101A  PLUS_470                 LALR GRAMMAR    OC  O          S0931 UBC74 VLO FSNAME=UBC_LALR.GRAMMAR_OBJ.OC.017(1)        125
            4.3T2   454  PLUS_470.LALR_GRAMMAR.OC.101       1 LINE    136    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:28
0          Syntax tables generated by LALR for the grammar in 1080/16.  This 
           object deck is part of LALR. 
01042/102A  PLUS_470                 LALR OBJECT     OE  O          S0931 UBC74 VLO FSNAME=UBC_LALR.OBJECT.OE.001(1)             109
            4.3T2   455  PLUS_470.LALR_OBJECT.OE.102        1 LINE  32767   17 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:08:54
0          This is the complete, linkeditted object for the UBC LALR analyzer. 
            
           The complete program consists of:
              object from 1042/90 through 1042/99 
              object generated by LALR from grammar 1042/100
              object module routines (1042/56) (INCLUDE@SLI)
              Utility routines (1042/77) (INCLUDE@SLI)
              PLUS:OBJLIB      (1042/50) (INCLUDE@SLI)
0          Referenced by comments of: 1042/19, 1042/47, 1042/48, 1042/49, 1042/54, 1042/75 
01042/103A  PLUS_470                 LALR DECLS      S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.LALR_DECLS.S+.018(1)         126
            4.3T2   456  PLUS_470.LALR_DECLS.S+.103         1 LINE     71    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:31
0          PLUS source library generated by LALR from the grammar in 1080/16.
0          Referenced by comments of: 1042/104 
01042/104A  PLUS_470                 LALR SOU LIB    S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.SOURCE_LIB.S+.019(1)         127
            4.3T2   457  PLUS_470.LALR_SOU_LIB.S+.104       1 LINE     39    1 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:34
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/105)
              LALRDECL*SL (1042/103)
              PLUS:LALRPARSE*SL (1042/88)
              PLUS:UTILITY*SL (1042/76)
              PLUS:OBJRTNS*SL (1042/55)
              PLUS:SOURCELIB (1042/4)
01042/105A  PLUS_470                 LALR SOU LIB    S+  O          S0931 UBC74 VLO FSNAME=UBC_LALR.SOURCE_LIB.S+.020(1)         128
            4.3T2   458  PLUS_470.LALR_SOU_LIB.S+.105       1 LINE     68    7 PAGE UBC  WHALEY    HANSEN    SEP. 27, 1979  22:10:38
0          PLUS source library containing declarations required by more than 
           one of the files constituting LALR. 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 1042/104 
01042/106C  PLUS_470                 PSTAT                          PLUS:PSTAT.SQD                                                  
            4.3T2   459  PLUS_470.PSTAT..106                1 LINE     68    1 PAGE UM   HANSEN              APR. 06, 1980  14:38:40
0          PLUS DECLARATIONS EMITTED BY PLUS:ANALYZER (1076/1) WHEN GIVEN THE STATSCAN
           GRAMMAR (1042/83).
0          Referenced by comments of: 1042/6, 1042/82, 1042/85 
01043       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       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       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       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       PRINTER DSR                                           # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A NEW
           1403/1443 PRINTER DSR.
01048       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       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                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01051       VIRTUAL DEVICE SUPPORT                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
01052/001A  PASCAL/UBC               COMPILER        SW  O          S1367 UBC75 FSNAME=UBC_PASCAL.PASCAL*SW.SW.012              43  
            4.3T2   460  PASCAL/UBC.COMPILER.SW.001         1 LINE     94  198 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:25:53
0          THIS IS THE SOURCE FOR THE UBC PASCAL COMPILER.  SUBCOMPONENT 1052/2 IS AN
           UPDATE TO THIS SOURCE FOR THREE LOCAL CHANGES.
            
           SUBCOMPONENTS 1052/11 AND 1052/12 CONTAIN FURTHER INFORMATION ABOUT HOW
           TO INSTALL THE SYSTEM. 
            
           SUBCOMPONENT 685/11 IS A PRINT FILE CONTAINING INFORMATION ABOUT THE
           CHANGES TO ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM.
            
           *****************************************************************************
           THIS VERSION DIFFERS FROM THE PREVIOUS ONE IN AT LEAST THE FOLLOWING
           WAYS.
            
             * SOME BUGS HAVE BEEN FIXED AND AT LEAST ONE ADDED. SEE 
               UNSP:PASCAL.NEWS (685/11).
             * THE WRITEUP (1052/13) HAS BEEN UPDATED.
             * THE NEW SECTION "INITIAL" HAS BEEN ADDED AND APPEARS TO BE
               REPLACING "VALUE".
             * THE "LOOP" AND "EXIT" STATEMENTS HAVE BEEN ADDED.
             * THE COMPILER NOW KEEPS TRACK OF THE LAST FEW SYMBOLS SCANNED
               APPARENTLY TO IMPROVE ERROR RECOVERY.
             * THE CODE GENERATION FOR EXPRESSIONS HAS BEEN REWRITTEN.  THE
               "OUT OF REGISTERS" ERROR SEEMS TO HAVE BEEN ELIMINATED AND
               BETTER CODE GENERATED IN SOME CASES.
            
           THIS VERSION ALSO DIFFERS IN THE FOLLOWING WAYS, OF INTEREST TO
           INSTALLERS.
            
             * THE NAME OF THE ENTRY FOR THE DEBUGGER WAS CHANGED FROM 
               "PSCLPMD$" TO "PSC#PMD$".
             * THE SOURCE AND OBJECT FOR THE COMPILER DON'T AGREE, BUT
               ARE VERY CLOSE.
             * THE "CPU" ROUTINES ARE NOW INCLUDED WITH THE MONITOR (1052/4).
           *****************************************************************************
0          Referenced by comments of: 685/11, 1052/3 
01052/002C  PASCAL/UBC               COMPILER        UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.PASCAL.CDU                
            4.3T2   461  PASCAL/UBC.COMPILER.UC.002         1 LINE     68    1 PAGE UBC  JOLLIFFE  UNSP      FEB. 25, 1980  09:52:52
0          THE UM UPDATES TO THE COMPILER.
            
           *************************************************************************************
           D4.3 CHANGES INCLUDE:
            
           1. THE NAME OF THE RUNTIME LIBRARY (1052/8) IS CHANGED TO "UNSP:PAS.BC.LIB".
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          2. THE NAME OF THE ERROR STATISTICS FILE (1052/10) IS CHANGED TO "UNSP:PAS.BC.ERR".
           3. CALLS SNOOP IN UNSP:LIBRARY (685/4) TO RECORD USAGE IN THE FILE UNSP:STATS,
              IF IT EXISTS.
           4. TURNS ON THE LIST AND XREF SWITCHES.
           5. CHANGES THE DEFAULT FOR THE STANDARD OPTION FROM "$S-" TO "$S+".
           *************************************************************************************
01052/003A  PASCAL/UBC               COMPILER        OE  O          UNSP:PAS.BC                                                     
            4.3T2   462  PASCAL/UBC.COMPILER.OE.003         1 LINE  32767   73 PAGE UBC  JOLLIFFE  UNSP      APR. 06, 1980  14:41:13
                         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/7).
01052/004A  PASCAL/UBC               MONITOR SRC     SA  O          S1367 UBC75 FSNAME=UBC_PASCAL.MON*SA.SA.003                 34  
            4.3T2   463  PASCAL/UBC.MONITOR_SRC.SA.004      1 LINE     73   36 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:14:11
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/1 
01052/005C  PASCAL/UBC               MONITOR UPD     UC  G          S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.MONITOR.CDU               
            4.3T2   464  PASCAL/UBC.MONITOR_UPD.UC.005      1 LINE     61    1 PAGE UM   UNSP                FEB. 10, 1980  17:37:47
0          THIS IS AN UPDATE TO CHANGE THE FILE NAMES FOR 1052/8 TO "UNSP:PAS.BC.LIB"
           AND FOR 1052/9 TO "UNSP:PAS.BC.DEBUG".
01052/006A  PASCAL/UBC               LIB SRC         SW  O          S1367 UBC75  FSNAME=UBC_PASCAL.PASCALIBR.SW.005             36  
            4.3T2   465  PASCAL/UBC.LIB_SRC.SW.006          1 LINE     94   14 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:25:17
0          THIS FILE CONTAINS THE RUNTIME LIBRARY (1052/8) SOURCE MODULES, WRITTEN IN
           PASCAL.  MOST OF THE ROUTINES ARE HIGH LEVEL I/O ROUTINES.
01052/007A  PASCAL/UBC               DEBUG SRC       SW  O          S1367 UBC75  FSNAME=UBC_PASCAL.DEBUG*SW.SW.007              38  
            4.3T2   466  PASCAL/UBC.DEBUG_SRC.SW.007        1 LINE     82   58 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:25:24
0          THIS FILE CONTAINS THE SOURCE CODE, WRITTEN IN PASCAL, FOR THE PASCAL
           POST-MORTEM ANALYSIS (PMD) PACKAGE.
0          Referenced by comments of: 1052/3, 1052/9 
01052/008A  PASCAL/UBC               RUNTIME LIB     OL  O          UNSP:PAS.BC.LIB                                                 
            4.3T2   467  PASCAL/UBC.RUNTIME_LIB.OL.008      1 LINE   5846   45 PAGE UBC  JOLLIFFE  UNSP      APR. 06, 1980  14:41:48
                         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: 1052/2, 1052/6, 1052/9, 1052/12 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01052/009A  PASCAL/UBC               DEBUG.LOAD      OC  O          UNSP:PAS.BC.DEBUG                                               
            4.3T2   468  PASCAL/UBC.DEBUG.LOAD.OC.009       1 LINE     30    1 PAGE UBC  JOLLIFFE  UNSP      APR. 06, 1980  14:41:52
                         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/010A  PASCAL/UBC               ERRORLOG        D              S1367 UBC75 FSNAME=UBC_PASCAL.ERRCNT.S.013                  44  
            4.3T2   469  PASCAL/UBC.ERRORLOG.D.010          1 LINE     76    4 PAGE UBC  JOLLIFFE  UNSP      NOV. 19, 1979  15:26:49
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.
0          Referenced by comments of: 1052/2 
01052/011A  PASCAL/UBC               COMMENTS        P              S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.COMMENTS                  
            4.3T2   470  PASCAL/UBC.COMMENTS.P.011          1 LINE     68    3 PAGE UBC  JOLLIFFE  UNSP      FEB. 10, 1980  17:43:44
0          THIS FILE CONTAINS A DESCRIPTION OF SOME OF THE FILES ON THE PASCAL
           DISTRIBUTION TAPE RECEIVED FROM UBC.
01052/012C  PASCAL/UBC               INSTALL         C              S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.INSTALL                   
            4.3T2   471  PASCAL/UBC.INSTALL.C.012           1 LINE     79    3 PAGE UM   UNSP                DEC. 04, 1979  06:42:18
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.
01052/013A  PASCAL/UBC               MANUAL          P              UNSP:PAS.BC.W                                                   
            4.3T2   472  PASCAL/UBC.MANUAL.P.013            1 LINE     71   80 PAGE UBC  JOLLIFFE  UNSP      APR. 06, 1980  14:42:23
0          "PASCAL/UBC USER'S GUIDE" (SEPT. 1979 EDITION).
0          Referenced by comments of: 1052/1 
01053      *NUMLIB                                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          Referenced by comments of: 724/2, 724/3 
01054/001A  CODING CONVENTIONS       MACRO SOURCE    SA  G          S0466 MTSS42 'MTS D4.2 INTERMEDIATE' POSN=CC_MACROS             
            4.3T2   473  CODING_CONVENTIONS.MACRO.SA.001    1 SEQ      80  155 PAGE UBC  BERRYMAN  HELFFRICH APR. 06, 1980  14:43:44
0          BASE SOURCE FOR THE NEW MTS CODING CONVENTION MACRO LIBRARY.  THIS SOURCE
           DOES NOT MATCH THE SOURCE SENT OUT ON RD4.2A (RD16), BUT ALL FUTURE UPDATES
           TO THE CODING CONVENTION MACROS WILL BE BASED ON THIS SOURCE. 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01054/002A  CODING CONVENTIONS       MACRO UPDATES   C   G          MTS.:CCMACROSUPD                                                
            4.3T2   474  CODING_CONVENTIONS.MACRO.C.002     1 LINE    104   10 PAGE UBC  BERRYMAN  HELFFRICH APR. 06, 1980  14:43:49
0          UPDATE FILE TO BE APPLIED TO 1054/1 TO YIELD CURRENT MACRO LIBRARY (1054/3).
           ALL CHANGES TO THE CODING CONVENTION MACROS SHOULD BE MADE USING CDUPDATE
           AND JEFF BERRYMAN AT UBC SHOULD BE KEPT INFORMED.
01054/003A  CODING CONVENTIONS       CC MACRO LIB    SM  G          COPY:CC.MACROS                                                  
            4.3T2   475  CODING_CONVENTIONS.CC_MAC.SM.003   1 LINE     78   66 PAGE UBC  BERRYMAN  HELFFRICH APR. 06, 1980  14:43:50
                         COPY:CC.MACROS       
0          CURRENT VERSION OF THE NEW MTS CODING CONVENTION MACROS.
           THIS VERSION REPLACES COPY:RMGRMACLIB (1054/5) WHEN ASSEMBLING 
           MTS AND FRIENDS AND SHOULD EVENTUALLY REPLACE COPY:RMGRMACLIB
           COMPLETELY.  NOTE: IN THIS VERSION OF CC.MACROS THE
           REGISTER CONVENTIONS FOR R12 AND R13 HAVE BEEN REVERSED.
0          Referenced by comments of: 42/1, 198/1, 354/1, 400/4, 400/16, 458/89, 464/1, 513/1, 539/1, 540/27, 578/1, 635/1,
                 636/1, 637/1, 638/1, 639/1, 651/10, 677/1, 682/22, 721/18, 724/1, 732/1, 769/1, 769/2, 769/3, 769/4, 769/5,
                 769/6, 769/9, 787/9, 787/11, 1023/1, 1023/3, 1054/2, 1054/5, 1058/3, 1058/4, 1058/5, 1058/6, 1058/7, 1058/8,
                 1058/9, 1058/10, 1058/11, 1058/12, 1058/13, 4000/1 
01054/004   CODING CONVENTIONS       WRITEUP         PF             S1191 UBC63 FSNAME=CODING_CONVENTIONS.MTS_WRI.PF.05         212 
            D4.2T2  249  CODING_CONVENTIONS.WRITEU.PF.002   1 LINE     70   16 PAGE UBC  BERRYMAN  HELFFRICH AUG. 30, 1978  22:45:08
0          WRITEUP DESCRIBING CODING CONVENTIONS MACROS.
01054/005A  CODING CONVENTIONS       RMGR MACRO LIB  SM  G        # COPY:RMGRMACLIB (OBSOLETE)                                      
            RD16T1  290  CODING_CONVENTIONS.RMGR_M.SM.001   1 LINE     73  110 PAGE UBC  BERRYMAN  MTA       JULY 12, 1979  23:33:14
0          THIS IS THE OBSOLETE RESOURCE MANAGER MACRO LIBRARY.  IT HAS BEEN REPLACED
           BY COPY:RM.MACROS (1041/1) AND COPY:CC.MACROS (1054/3).
0          Referenced by comments of: 1054/3, 1067/2 
01055       UBC FEP (PDP-11)                                      # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE UBC FRONT-END
           PROCESSOR SOFTWARE.
01056       MM                                                    # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE MESSAGE MULTIPLEXOR.
01057       UBC FEPDSR                                            # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE UBC FRONT-ENDR.
           PROCESSOR DSR.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01058/001C  SUBTASKING MONITOR       WRITEUP         P              DMGR:MONITOR.W                                                  
            4.3T2   476  SUBTASKING_MONITOR.WRITEU.P.001    1 LINE     69   16 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:43:58
0          WRITEUP DESCRIBING THE SUBTASKING MONITOR ROUTINES.  THIS IS NOT UP-TO-DATE.
0          Referenced by comments of: 787/3 
01058/002C  SUBTASKING MONITOR       APPENDIX        P              DMGR:MNTNOTES                                                   
            4.3T2   477  SUBTASKING_MONITOR.APPEND.P.002    1 LINE     68    4 PAGE UM   HELFFRICH           APR. 06, 1980  14:44:01
0          INFORMAL DESCRIPTION OF DIFFERENCES BETWEEN UM AND UBC VERSIONS OF THE
           SUBTASKING MONITOR.
01058/003C  SUBTASKING MONITOR       KERNEL          SA  G          DMGR:MNTMNTR(1000)                                              
            4.3T2   478  SUBTASKING_MONITOR.KERNEL.SA.003   1 LINE     72   17 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:03
0          KERNEL SUBTASKING MONITOR ROUTINES WHICH HANDLE SUBTASK SCHEDULING.  ASSEMBLE
           USING COPY:CC.MACROS (1054/3) AND COPY:RM.MACROS (1041).
01058/004C  SUBTASKING MONITOR       GSFS            SA  G          DMGR:MNTGSFS(1000)                                              
            4.3T2   479  SUBTASKING_MONITOR.GSFS.SA.004     1 LINE     72   12 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:10
0          MONITOR GETSPACE/FREESPACE ROUTINES.  ASSEMBLE WITH COPY:CC.MACROS (1054/3), 
           COPY:RM.MACROS (1041), AND COPY:UC.MACROS (787/1).
01058/005C  SUBTASKING MONITOR       GFICB           SA  G          DMGR:MNTGFICB.S                                                 
            4.3T2   480  SUBTASKING_MONITOR.GFICB.SA.005    1 LINE    130    3 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:16
0          INTERRUPT CONTROL BLOCK GET/FREE ROUTINES.  ASSEMBLE WITH COPY:CC.MACROS (1054/3) AND
           COPY:RM.MACROS (1041).
01058/006C  SUBTASKING MONITOR       GFBUF           SA  G          DMGR:MNTGFBUF.S                                                 
            4.3T2   481  SUBTASKING_MONITOR.GFBUF.SA.006    1 LINE    130    4 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:18
0          BUFFER GET/FREE ROUTINES. ASSEMBLE WITH COPY:CC.MACROS (1054/3) AND 
           COPY:RM.MACROS (1041).
01058/007C  SUBTASKING MONITOR       PRV             SA  G          DMGR:MNTPRV(1000)                                               
            4.3T2   482  SUBTASKING_MONITOR.PRV.SA.007      1 LINE     71    4 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:21
0          PROTOTYPE MONITOR PSEUDOREGISTER VECTOR AND PSEUDOREGISTER VECTOR
           INITIALIZATION ROUTINES.  ASSEMBLE WITH COPY:CC.MACROS (1054/3), COPY:RM.MACROS
           (1041), AND COPY:UC.MACROS (787/1).
01058/008C  SUBTASKING MONITOR       ON UNIT         SA  G          DMGR:MNTONUNIT.S                                                
            4.3T2   483  SUBTASKING_MONITOR.ON_UNI.SA.008   1 LINE    131    4 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:24
0          MONITOR ROUTINES TO MANAGE THE PROGRAM INTERRUPT AND MESSAGE ON-UNIT
           STRUCTURES.  ASSEMBLE WITH COPY:CC.MACROS (1054/3) AND COPY:RM.MACROS (1041).
01058/009C  SUBTASKING MONITOR       ASYNCH WAIT     SA  G          DMGR:MNTWAIT(1000)                                              
            4.3T2   484  SUBTASKING_MONITOR.ASYNCH.SA.009   1 LINE     72   17 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:26
0          MONITOR SUBROUTINES WHICH CAN CAUSE SUBTASK WAITING.  THESE ROUTINES WILL
1                                                                                               SUN SEP 08/96   19:03:19   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          CAUSE DISPATCHING OF OTHER NONWAITING SUBTASKS, THUS EFFECTING THE "PARALLEL
           PROCESSING" OFFERED BY THE MONITOR.  ASSEMBLE WITH COPY:CC.MACROS (1054/3),
           COPY:RM.MACROS (1041), AND COPY:UC.MACROS (787/1).
0          Referenced by comments of: 1058/10 
01058/010C  SUBTASKING MONITOR       SYNCH WAIT      SA  G          DMGR:MNTSYNCWAIT(1000)                                          
            4.3T2   485  SUBTASKING_MONITOR.SYNCH.SA.010    1 LINE     71    5 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:35
0          MONITOR SUBROUTINES WHICH CAN REPLACE THE ASYNCHRONOUS WAIT ROUTINES (1058/9)
           IF SYNCHRONOUS OPERATION IS DESIRED.  DOING THIS MEANS THAT THE MONITOR NEED
           NOT BE RUNNING, THAT IS, THE MNTINIT OR MNTMTSI ENTRIES NEED NOT BE INVOKED.
           ASSEMBLE WITH COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041), AND COPY:UC.MACROS
           (787/1).
01058/011C  SUBTASKING MONITOR       SERVICE         SA  G          DMGR:MNTSERV(1000)                                              
            4.3T2   486  SUBTASKING_MONITOR.SERVIC.SA.011   1 LINE     72   11 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:37
0          BASIC MONITOR SERVICE ROUTINES TO PROVIDE I/O, INTERTASK MESSAGE, AND 
           INTRATASK MESSAGE-RELATED CAPABILITIES.  ASSEMBLE WITH COPY:CC.MACROS (1054/3),
           COPY:RM.MACROS (1041), AND COPY:UC.MACROS (787/1).
01058/012C  SUBTASKING MONITOR       DUMP            SA  G          DMGR:MNTDUMP(1000)                                              
            4.3T2   487  SUBTASKING_MONITOR.DUMP.SA.012     1 LINE     72    9 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:42
0          MONITOR ROUTINE TO PRODUCE A FORMATTED DUMP OF MONITOR SUBTASK STORAGE.
           ASSEMBLE WITH COPY:CC.MACROS (1054/3) AND COPY:RM.MACROS (1041).
01058/013C  SUBTASKING MONITOR       UNIT/NODE RTNS  SA  G          DMGR:MNTUNND(1000)                                              
            4.3T2   488  SUBTASKING_MONITOR.UNIT/N.SA.013   1 LINE     72   11 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:45
0          MONITOR I/O UNIT AND INTERTASK NETWORK NODE ALLOCATION AND DEALLOCATION
           ROUTINES.  ASSEMBLE USING COPY:CC.MACROS (1054/3), COPY:RM.MACROS(1041),
           AND COPY:UC.MACROS (787/1).
01058/014C  SUBTASKING MONITOR       OBJECT          OC  G          DMGR:MONITOR                                                    
            4.3T2   489  SUBTASKING_MONITOR.OBJECT.OC.014   1 LINE   4904   22 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:50
0          SUBTASKING MONITOR OBJECT. CONTAINS NCA CARDS FOR MSGRM, RMSTATS,
           RMACCTNG, AND AN LCS CARD FOR SYSDEFS.
0          Referenced by comments of: 724/2 
01058/015C  SUBTASKING MONITOR       TEST PROGRAM    SA  G          DMGR:MNTTEST(1000)                                              
            4.3T2   490  SUBTASKING_MONITOR.TEST_P.SA.015   1 LINE     71    3 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:54
0          DIDDLELY MONITOR TEST PROGRAM.
01058/016C  SUBTASKING MONITOR       TEST PROGRAM    OC  G          DMGR:MNTTEST(1,998)                                             
            4.3T2   491  SUBTASKING_MONITOR.TEST_P.OC.016   1 LINE     80    4 PAGE UBC  BOWLER    HELFFRICH APR. 06, 1980  14:44:56
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01059       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,
           AS WELL AS PROVIDING SOME NEW TRANSLATING FEATURES.
01060       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       PROFILE                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, ESTABLISHES DEFAULTS
           FROM A SIGFILE.
01062       UBC FEP INTERFACE                                     # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT INSTALLED AT MICHIGAN.
01064       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       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       SWAT                                                  # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE MTS
           DEBUGGING MONITOR.
01067/001   TAPESHARE                MAIN PGM        SA  G          S1237 TAPES 'TAPEFS' FSNAME=TAPESHARE                           
            D4.2T2  250  TAPESHARE.MAIN_PGM.SA.001          1 LINE     80    4 PAGE UBC  WHALEY    UNSP      DEC. 22, 1978  12:58:59
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
1                                                                                               SUN SEP 08/96   19:03:19   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          (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).  ASSEMBLE USING COPY:RM.MACROS
           (1041/1).  COPIES *GDINFODSECT (594).
0          Referenced by comments of: 1067/4 
01067/002A  TAPESHARE                TSHARESUB       SA  G          S1237 TAPES 'TAPEFS' FSNAME=TSHARESUB                           
            4.3T2   492  TAPESHARE.TSHARESUB.SA.002         1 LINE     73   44 PAGE UBC  WHALEY    UNSP      DEC. 17, 1979  12:30:20
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:RMGRMACLIB (1054/5).
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           ADDED P=W? PERMIT STATUS (INITIAL SUBSTRING PERMITTING) AND INCREASED THE
           NUMBER OF TAPES ONE USER CAN OWN.
           *****************************************************************************
0          Referenced by comments of: 1067/1, 1067/4 
01067/003   TAPESHARE                ATTNQ           SA  G          S1237 TAPES 'TAPEFS' FSNAME=TS.ATTNQ                            
            D4.2T2  252  TAPESHARE.ATTNQ.SA.003             1 LINE     80    2 PAGE UBC  WHALEY    UNSP      DEC. 22, 1978  13:26:17
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                                                  
            4.3T2   493  TAPESHARE..OE.004                  1 LINE  14788    5 PAGE UBC  WHALEY    UNSP      APR. 06, 1980  14:46:10
                         UNSP:TAPESHARE       
0          LINKEDITED OBJECT OF TAPESHARE (1067/1), TSHARESUB (1067/2), AND ATTNQ
           (1067/3).
01067/005A  TAPESHARE                CHECK SUBR      SA  G          S1237 TAPES 'TAPEFS' FSNAME=TSCHECK                             
            4.3T2   494  TAPESHARE.CHECK_SUBR.SA.005        1 LINE     80    6 PAGE UBC  WHALEY    UNSP      JULY 02, 1979  22:17:23
0          SUBROUTINE CALLED BY MOUNT (101/1) 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).
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           ADDED P=W? PERMIT STATUS (INITIAL SUBSTRING PERMITTING) AND INCREASED THE
           NUMBER OF TAPES ONE USER CAN OWN.
           *****************************************************************************
0          Referenced by comments of: 101/1, 101/2 
01067/006A  TAPESHARE                CHECK SUBR      OC  G        # *CLSMOUNT (SEE COMP 101/2)                                      
                                                                                    UBC  WHALEY    UNSP                             
01067/007   TAPESHARE                TSHELP          D              ETC:TSHELP                                                      
            D4.2T2  255  TAPESHARE.TSHELP.D.007             1 LINE     70    3 PAGE UBC  WHALEY    UNSP      APR. 02, 1979  01:56:56
                         ETC.:TSHELP          
0          TEXT FOR TAPESHARE'S HELP COMMAND.
01067/008   TAPESHARE                TSHAREID        D            # MTS:TST.TSHAREID                                                
                                                                                    UBC  WHALEY    UNSP                             
                         ETC.:TSHAREID        
0          DATA FILE USED BY UNSP:TAPESHARE 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                       
            D4.2T2  256  TAPESHARE.TSMANUAL.P.008           1 LINE     76    4 PAGE UBC  WHALEY    UNSP      DEC. 22, 1978  13:03:50
0          TAPESHARE MANUAL FOR TAPE LIBRARIAN. INCLUDES PRIVILEGED COMMANDS.
01067/010A  TAPESHARE                WRITEUP         WT             S1237 TAPES 'TAPEFS' FSNAME=TS.V2WRITEUP                        
            4.3T2   495  TAPESHARE.WRITEUP.WT.010           1 LINE     71    3 PAGE UBC  WHALEY    UNSP      JULY 02, 1979  22:14:34
0          VOLUME 2 STYLE USER WRITEUP.
            
           *****************************************************************************
           THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C):
            
           CHANGED TO REFLECT ADDITION OF INITIAL SUBSTRING PERMITTING.
           *****************************************************************************
01067/011   TAPESHARE                WRITEUP         PT             UNSP:TAPESHARE.W                                                
            D4.2T2  258  TAPESHARE.WRITEUP.PT.010           1 LINE     83    4 PAGE UBC  WHALEY    UNSP      APR. 02, 1979  01:56:59
                         UNSP:TAPESHARE.W     
01069       FAKE MM                                               # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS A UTILITY WRITTEN TO
           TEST THE UBC FEP PROTOCOL.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01071       3066_JOB                                              # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
01072       UBC TAPE CATALOGUE                                    # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT INSTALLED AT MICHIGAN.
01073       SENSE.DATA.INTERPRETER                                # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
01074       DYNAMIC_STORAGE                                       # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
01075       TAPE_REPORT                                           # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
01076/001A  MTS/SPIRES PARSER        ANALYZER        OE  O          PLUS:ANALYZER                                                   
            4.3T2   496  MTS/SPIRES_PARSER.ANALYZE.OE.001   1 LINE  32767   15 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:46:19
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/76)  (INCLUDE@SLI) 
               PLUS:OBJLIB  (1042/50)  (INCLUDE@SLI)
0          Referenced by comments of: 1042/54, 1042/75, 1042/83, 1042/106 
01076/002A  MTS/SPIRES PARSER        SYS TERMINALS   D              PLUS:ANAL.SYSTERM                                               
            4.3T2   497  MTS/SPIRES_PARSER.SYS_TER.D.002    1 LINE     33    1 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:46:21
0          This file is read by the Analyzer during initialization to define
           the names and corresponding numbers for the currently allowed
           system terminals. 
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          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 
01076/003A  MTS/SPIRES PARSER        ANALYZER SRC    S+  O          S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.ANALYZE.S+.003(1)    87
            4.3T2   498  MTS/SPIRES_PARSER.ANALYZE.S+.003   1 LINE     75   18 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:15
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/76)
              PLUS:SOURCELIB  (1042/4)
            
           See 1076/1 for description of all the pieces that make up the 
           Analyzer. 
0          Referenced by comments of: 1076/1 
01076/004A  MTS/SPIRES PARSER        GRAMMAR         S   O          S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.GRAMMAR.S.004(1)     88
            4.3T2   499  MTS/SPIRES_PARSER.GRAMMAR.S.004    1 LINE    107    3 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:19
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/005A  MTS/SPIRES PARSER        GRAMMAR OBJ     OC  O          S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.GRAMMAR.OC.005(1)    89
            4.3T2   500  MTS/SPIRES_PARSER.GRAMMAR.OC.005   1 LINE   1431    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:23
0          Object code generated by current version of the Analyzer from the 
           current Analyzer grammar. 
0          Referenced by comments of: 1076/1 
01076/006A  MTS/SPIRES PARSER        PARSER          OL  G          PLUS:PARSER.OL                                                  
            4.3T2   501  MTS/SPIRES_PARSER.PARSER.OL.006    1 LINE   3344   11 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:46:33
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: 1042/6, 1042/84, 1076/1 
01076/007A  MTS/SPIRES PARSER        PARSER HELP     D              PLUS:PARSE.HELP                                                 
            4.3T2   502  MTS/SPIRES_PARSER.PARSER.D.007     1 LINE     71    1 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:46:36
0          This is a help file used by the parser in responding
           to HELP requests during the built-in error correction 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          process. 
            
0          Referenced by comments of: 1076/8 
01076/008A  MTS/SPIRES PARSER        PARSER SRC      S+  G          PLUS:PARSER.SQ                                                  
            4.3T2   503  MTS/SPIRES_PARSER.PARSER.S+.008    1 LINE    101   23 PAGE UBC  BALLARD   HANSEN    APR. 06, 1980  14:46:39
0          A COPY OF UBC'S PARSER WITH A FEW BUGS FIXED.  REFERS TO PLUS:PARSE.HELP (1076/7).
01076/009A  MTS/SPIRES PARSER        PARSER LIB      S+  O          S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.PARSER.S+.009(1)     93
            4.3T2   504  MTS/SPIRES_PARSER.PARSER.S+.009    1 LINE     68    4 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:38
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: 1076/3 
01076/010A  MTS/SPIRES PARSER        SYS TERMINALS   S   O          S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.SYS_TER.S.010(1)     94
            4.3T2   505  MTS/SPIRES_PARSER.SYS_TER.S.010    1 LINE     92    2 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:42
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
           the system terminals to the Analyzer. 
            
0          Referenced by comments of: 1076/2, 1076/11 
01076/011A  MTS/SPIRES PARSER        SYS TERMINALS   OC  O          S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.SYS_TER.OC.011(1)    95
            4.3T2   506  MTS/SPIRES_PARSER.SYS_TER.OC.011   1 LINE    660    1 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:45
0          Object generated by Analyzer for the system terminals grammar (1076/10).
01076/012A  MTS/SPIRES PARSER        WRITEUP         WX             S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.WRITEUP.WX.012(1)    96
            4.3T2   507  MTS/SPIRES_PARSER.WRITEUP.WX.012   1 LINE    114   26 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:48
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/177).
            
           Ignore the large number of error messages generated when this is run 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          through Textform. 
01076/013A  MTS/SPIRES PARSER        WRITEUP         PX             S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.WRITEUP.PX.013(1)    97
            4.3T2   508  MTS/SPIRES_PARSER.WRITEUP.PX.013   1 LINE     79   35 PAGE UBC  BALLARD   HANSEN    SEP. 27, 1979  22:07:53
0          $COPYable form of parser writeup.  Allow 60 pages, TN printer. 
01077/001C  SETUP                    SOURCE          S+  G          W267:SETUP.SQ(0)                                                
            4.3T2   509  SETUP.SOURCE.S+.001                1 LINE    112   18 PAGE UM   EADIE               APR. 06, 1980  14:46:57
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
           SHOULD BE INSTALLED.
            
           NEEDS GRAMMAR (1077/3) AND THE PLUS SUPERVISOR LIBRARY (1042/78).
01077/002C  SETUP                    OBJECT          OE  G          UNSP:SIGSETUP                                                   
            4.3T2   510  SETUP.OBJECT.OE.002                1 LINE  32767   10 PAGE UM   EADIE     UNSP      APR. 06, 1980  14:47:01
01077/003C  SETUP                    GRAMMAR         D              W267:SETUP.GR                                                   
            4.3T2   511  SETUP.GRAMMAR.D.003                1 LINE    100    3 PAGE UM   EADIE               APR. 06, 1980  14:47:03
0          Referenced by comments of: 1077/1 
01077/004C  SETUP                    WRITEUP         P              UNSP:SIGSETUP.W                                                 
            4.3T2   512  SETUP.WRITEUP.P.004                1 LINE     69    6 PAGE UM   EADIE     UNSP      APR. 06, 1980  14:47:05
01078      *VSS                                                   # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
01079       UBC VIRTUAL MACHINE                                   # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
01081/001C  INTERTASK                                SA  G          MTA:IT.S                                                        
            4.3T2   513  INTERTASK..SA.001                  1 LINE     73   53 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:47:08
                         MTA:IT.S             
0          SUBROUTINE CALLED BY UMMPS (045/1) TO HANDLE THE INTERTASK SVC. 
           COPIES LLMPSEQU (087), COPY:GLOBALS (1026/3), COPY:IT.DSECTS (1081/3),
           AND COPY:IT.COPY_SECT (1081/4). ASSEMBLE WITH COPY:UMMPS.MACROS (1081/5)
           AND COPY:SETPARM (653/1).
            
           WARNING:  ALTHOUGH THIS HAS BEEN DEBUGGED USING *ITX (1081/16), IT IS
                     NOT USED AT UM AND MAY CONTAIN BUGS.
0          Referenced by comments of: 400/18, 1081/4 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
01081/002C  INTERTASK                                OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UBC  O'REILLY  MTA                              
01081/003C  INTERTASK                COPY SECTION 1  SA  G          COPY:IT.DSECTS                                                  
            4.3T2   514  INTERTASK.COPY_SECTION_1.SA.003    1 LINE     72    7 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:47:22
                         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/5) 
           REQUIRE THE EQUATES IN THIS COPY SECTION.
0          Referenced by comments of: 1081/1, 1081/8, 1081/11, 1081/12, 1081/13, 1081/14, 1081/15, 1081/21, 1081/23, 1081/25 
01081/004C  INTERTASK                COPY SECTION 2  SA  G          COPY:IT.COPY_SECT                                               
            4.3T2   515  INTERTASK.COPY_SECTION_2.SA.004    1 LINE     71    7 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:47:24
                         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 (400/18)
           FOR INTERTASK.  IT DEFINES DATA STRUCTURES INTERNAL TO INTERTASK.
0          Referenced by comments of: 400/18, 1081/1 
01081/005C  INTERTASK                MACROS          SA  G          COPY:IT.MACROS                                                  
            4.3T2   516  INTERTASK.MACROS.SA.005            1 LINE     72   19 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:47:27
0          MACROS TO CALL INTERTASK SVC.
0          Referenced by comments of: 45/1, 1081/1, 1081/3, 1081/12, 1081/13, 1081/14, 1081/15 
01081/006C  INTERTASK                WRITEUP         WF             S0261 UBC55 FSNAME=INTERTASK.DOCUMENTATION.WF.08            8   
            4.3T2   517  INTERTASK.WRITEUP.WF.006           1 LINE     96   19 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:42:24
0          A WRITEUP DESCRIBING HOW TO USE INTERTASK.
01081/007C  INTERTASK                WRITEUP         PF             S0261 UBC55 FSNAME=INTERTASK.DOCUMENTATION.W.09             9   
            4.3T2   518  INTERTASK.WRITEUP.PF.007           1 LINE     71   22 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:42:32
0          PRINT FILE FOR 1081/6.
01081/008C  INTERTASK                JOB PROGRAM     SA  G          MTA:IT.JOBPGM.S                                                 
            4.3T2   519  INTERTASK.JOB_PROGRAM.SA.008       1 LINE     76   11 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:50:53
                         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
           ARE ONLY 2 COMMANDS: LIST AND SENSE.
            
           LIST
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0             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/3).
01081/009C  INTERTASK                JOB PROGRAM     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UBC  O'REILLY  MTA                              
01081/010C  INTERTASK                JOB LIST ENTRY  SA  G          MTA:IT.JLE                                                      
            4.3T2   520  INTERTASK.JOB_LIST_ENTRY.SA.010    1 LINE     80    1 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:50:55
0          JOB LIST ENTRY.
01081/011C  INTERTASK                ITX             SA  G          S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.29(1)             29  
            4.3T2   521  INTERTASK.ITX.SA.011               1 LINE     69   13 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:29
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           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 NEW:SYSMAC (225/2), COPY:GLOBALS (1026/3),
           AND COPY:IT.DSECTS (1081/3).
0          Referenced by comments of: 1081/19 
01081/012C  INTERTASK                ITX #001        SA  G          S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.30(1)             30  
            4.3T2   522  INTERTASK.ITX_#001.SA.012          1 LINE     80    9 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:41
0          THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #001.  THIS ROUTINE
           ONLY USES SYNCHRONOUS INTERTASK OPERATIONS.
            
           REQUIRES THE MSG MACROS IN NEW:SYSMAC (225/2), COPY:IT.MACROS (1081/5),
           COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3).
01081/013C  INTERTASK                ITX #002        SA  G          S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.31(1)             31  
            4.3T2   523  INTERTASK.ITX_#002.SA.013          1 LINE     80    9 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:45
0          THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #002.  THIS ROUTINE
           ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS.
            
           REQUIRES THE MSG MACROS IN NEW:SYSMAC (225/2), COPY:IT.MACROS (1081/5),
           COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3).
01081/014C  INTERTASK                ITX #003        SA  G          S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.32(1)             32  
            4.3T2   524  INTERTASK.ITX_#003.SA.014          1 LINE     80   10 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:52
0          THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #003.  THIS ROUTINE
           ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS AND USES RANDOM MESSAGE 
           LENGTHS AND EXIT BUFFER LENGTHS.
            
           REQUIRES THE MSG MACROS IN NEW:SYSMAC (225/2), COPY:IT.MACROS (1081/5),
           COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3).
01081/015C  INTERTASK                ITX #004        SA  G          S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.33(1)             33  
            4.3T2   525  INTERTASK.ITX_#004.SA.015          1 LINE     80   11 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:56
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 NEW:SYSMAC (225/2), COPY:IT.MACROS (1081/5),
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3).
01081/016C  INTERTASK                ITX             OC  G          SYS:ITX                                                         
            4.3T2   526  INTERTASK.ITX.OC.016               1 LINE     80   17 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:51:20
                         SYS:ITX              
0          OBJECT FOR 1081/11 THROUGH 1081/15 AND 1081/20.
            
           NOTE:  THIS ALL CAME FROM UBC55 AND THE SOURCE AND OBJECT DO NOT AGREE,
                  BUT THIS FILE WORKS.
0          Referenced by comments of: 1081/1 
01081/017C  INTERTASK                ITX             C              *ITX                                                            
            4.3T2   527  INTERTASK.ITX.C.017                1 LINE     24    1 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:51:22
                         *ITX                 
0          COMMAND FILE TO START 5 TASKS RUNNING ITX FOR 5000 CALLS TO EACH
           #NNN ROUTINE.  USES SYS:ITXCMD (1081/18).
01081/018C  INTERTASK                ITX             C              SYS:ITXCMD                                                      
            4.3T2   528  INTERTASK.ITX.C.018                1 LINE     43    1 PAGE UBC  O'REILLY  MTA       APR. 06, 1980  14:51:24
                         SYS:ITXCMD           
0          Referenced by comments of: 1081/17 
01081/019C  INTERTASK                GETMSG          SA  G          S0261 UBC55 FSNAME=INTERTASK.UTILITY.SA.21(1)               21  
            4.3T2   529  INTERTASK.GETMSG.SA.019            1 LINE     68    4 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:14
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/11).
01081/020C  INTERTASK                GETMSG          OC  G          S0261 UBC55 FSNAME=INTERTASK.UTILITY.O.22(1)                22  
            4.3T2   530  INTERTASK.GETMSG.OC.020            1 LINE     80    3 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:15
01081/021C  INTERTASK                XITPTR          SA  G          S0261 UBC55 FSNAME=INTERTASK.UTILITY.SA.23(1)               23  
            4.3T2   531  INTERTASK.XITPTR.SA.021            1 LINE     71    4 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:17
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/3). 
           ASSEMBLE USING THE MSG MACROS IN NEW:SYSMAC (225/2).
01081/022C  INTERTASK                XITPTR          OC  G          S0261 UBC55 FSNAME=INTERTASK.UTILITY.O.24(1)                24  
            4.3T2   532  INTERTASK.XITPTR.OC.022            1 LINE     80    3 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:19
01081/023C  INTERTASK                SNSPTR          SA  G          S0261 UBC55 FSNAME=INTERTASK.UTILITY.SA.25(1)               25  
            4.3T2   533  INTERTASK.SNSPTR.SA.023            1 LINE     68    3 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:21
0          THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF A
1                                                                                               SUN SEP 08/96   19:03:19   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          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/3).  ASSEMBLE USING THE MSG MACROS
           IN NEW:SYSMAC (225/2).
01081/024C  INTERTASK                SNSPTR          OC  G          S0261 UBC55 FSNAME=INTERTASK.UTILITY.O.26(1)                26  
            4.3T2   534  INTERTASK.SNSPTR.OC.024            1 LINE     80    3 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:23
01081/025C  INTERTASK                LSTPTR          SA  G          S0261 UBC55 FSNAME=INTERTASK.UTILITY.SA.27(1)               27  
            4.3T2   535  INTERTASK.LSTPTR.SA.025            1 LINE     68    2 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:25
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/3).  ASSEMBLE USING THE MSG MACROS
           IN NEW:SYSMAC (225/2).
01081/026C  INTERTASK                LSTPTR          OC  G          S0261 UBC55 FSNAME=INTERTASK.UTILITY.O.28(1)                28  
            4.3T2   536  INTERTASK.LSTPTR.OC.026            1 LINE     80    1 PAGE UBC  O'REILLY  MTA       AUG. 31, 1977  13:43:27
01082       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.
01083       MESSAGE FACILITY                                      # (NOT DISTRIBUTED)                                               
                                                                                    UBC                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE 
           RESOURCE MANAGER MESSAGE FACILITY.
01084       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       UNEMAIL                                               # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A MAIL 
           SYSTEM WRITTEN FOR SIGFILE USE.
02002       DIABLO                                                # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           TO DRIVE A DIABLO PRINTER.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
02004       NUNET                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT IS NOT INSTALLED AT MICHIGAN.
02005       PRIVATE_DISKS                                         # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE UNE
           PRIVATE DISK SCHEME.
02006      *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       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       ASM.PREP                                              # (NOT DISTRIBUTED)                                               
                                                                                    UNE                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN
           ASSEMBLER PREPROCESSOR.
02015       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/001A *SPIRES                   DIST NOTES      WF             DBMS:DISTNOTES                                                  
            4.3T2   537  SPIRES.DIST_NOTES.WF.001           1 LINE    145   17 PAGE UM   BLOCK               APR. 06, 1980  14:51:50
0          SPIRES (the Stanford Public Information Retrieval System) is a proprietary
           information retrieval system from Stanford University, Stanford, California.
           The MTS distribution consists only of updates to the Stanford source (which
           must be obtained directly from Stanford) which modify SPIRES to run in MTS.
            
           3003/1 and the GENSYS $SOURCE (3003/2 - 3003/8) files, contain all the
           necessary instructions for installing SPIRES in MTS.
03003/002  *SPIRES                   GENSYS.1        C              DBMS:GENSYS.1                                                   
            D4.1T1  670  SPIRES.D4.GENSYS.1.C.002           1 LINE     69    6 PAGE UM   BLOCK               JAN. 11, 1978  08:26:58
0          MTS commands for setting up the SPIRES files on the ID DBMS. Copies files off
           the regular Stanford SPIRES distribution and restores files from the
           distribution tape containing MTS SPIRES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03003/003  *SPIRES                   GENSYS.2        C              DBMS:GENSYS.2                                                   
            D4.1T1  672  SPIRES.D4.GENSYS.2.C.004           1 LINE     83    3 PAGE UM   BLOCK               JAN. 11, 1978  08:27:03
0          MTS commands for compiling and assembling all the SPIRES source modules.
03003/004  *SPIRES                   GENSYS.3        C              DBMS:GENSYS.3                                                   
            D4.1T1  674  SPIRES.D4.GENSYS.3.C.006           1 LINE     76    1 PAGE UM   BLOCK               JAN. 11, 1978  08:27:08
0          MTS commands to set up a linkedited version of SPIRES.
03003/005  *SPIRES                   GENSYS.4        C              DBMS:GENSYS.4                                                   
            D4.1T1  676  SPIRES.D4.GENSYS.4.C.008           1 LINE     66    1 PAGE UM   BLOCK               JAN. 11, 1978  08:27:13
0          MTS commands to set up a non-resident public version of SPIRES.
            
           The following object files, which must be $CREATEd and $PERMITted
           before $SOURCing this command file, are constructed:
            
               *SPIRES         Linkedited object for modules common to all four SPIRES
                               processors.  Includes the MTS interface (3003/24), 
                               the parser (proprietary source distributed by Stanford),
                               and the build characteristics for the SPIRES system
                               databases (3003/84 - 3003/90).
            
               ETC:SPIR.LOAD   Linkedited object for the searching and updating
                               SPIRES processor (what you normally get when you
                               $run *SPIRES).  Dynamically loaded by SPIRES.
            
               ETC:SPIB.LOAD   Linkedited object for the "SPIBILD" SPIRES processor
                               (used by the file owner for data base manager sorts 
                               of things, i.e., incorporating queued up changes into
                               the data base, adding large amounts of data, etc.).
                               Dynamically loaded by SPIRES.
            
               ETC:FAST.LOAD   Linkedited object for the "FASTBILD" SPIRES processor
                               (used for adding large amounts of data to a data base,
                               more efficient than SPIBILD for this purpose).
                               Dynamically loaded by SPIRES.
            
               ETC:SPIC.LOAD   Linkedited object for the "SPICOMP" SPIRES processor
                               (the SPIRES "compiler," used for compiling the
                               various things that need compiling in SPIRES, i.e.,
                               data base definitions, SPIRES format definitions,
                               SPIRES protocols, etc.). Dynamically loaded by SPIRES.
03003/006  *SPIRES                   GENSYS.5        C              DBMS:GENSYS.5                                                   
            D4.1T1  678  SPIRES.D4.GENSYS.5.C.010           1 LINE     66    2 PAGE UM   BLOCK               JAN. 11, 1978  08:27:17
0          MTS commands to set up a shared VM version of SPIRES. Constructs the
           the same object files as described in the comments for 3003/5, with
           the addition of:
            
               SEG2:SPIRES     Linkedited object for SPIRES modules to be included
                               in shared VM.
1                                                                                               SUN SEP 08/96   19:03:19   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           
           NOTE:  The distributed version of this file places the object contained 
           (in the non-resident version) in the file *SPIRES and ETC:SPIR.LOAD in
           shared VM.  This file can be changed to include more (or less) of SPIRES
           in shared VM.
03003/007  *SPIRES                   GENSYS.6        C              DBMS:GENSYS.6                                                   
                                                                                    UM   BLOCK                                      
0          MTS commands to overlay a new version of SPIRES on top of an existing
           shared VM version.  *** Use with extreme care ***
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/008  *SPIRES                   GENSYS.7        C              DBMS:GENSYS.7                                                   
                                                                                    UM   BLOCK                                      
0          MTS commands to set up the MTS-Spires documentation files.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/009  *SPIRES                   GENDIST         C              DBMS:GENDIST                                                    
            D4.1T1  680  SPIRES.*FS_TAPE_GEN.C.012          1 LINE     69   12 PAGE UM   BLOCK               JAN. 11, 1978  08:27:22
0          MTS commands to generate an MTS-SPIRES distribution tape.  Included for
           informational purposes only.
03003/010A *SPIRES                   MODS.MTS        U              DBMS:MODS.MTS                                                   
            4.3T2   538  SPIRES.MODS.MTS.U.010              1 LINE    142   85 PAGE UM   BLOCK               APR. 06, 1980  14:51:57
0          MTS changes (in DBMS:UT.UPDATE, comp. 3003/69, form) to all of the SPIRES
           modules.
03003/011  *SPIRES                   MODS.790508     U              DBMS:MODS.790508                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 5/8/79.  Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
0          Referenced by comments of: 3003/68 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03003/012  *SPIRES                   MODS.790601     U              DBMS:MODS.790601                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 6/1/79. Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/013  *SPIRES                   MODS.790604     U              DBMS:MODS.790604                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 6/4/79. Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/014  *SPIRES                   MODS.790614     U              DBMS:MODS.790614                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 6/14/79. Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/015  *SPIRES                   MODS.790705     U              DBMS:MODS.790705                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 7/5/79. Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/016  *SPIRES                   MODS.790710     U              DBMS:MODS.790710                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 7/10/79. Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03003/017  *SPIRES                   MODS.790712     U              DBMS:MODS.790712                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 7/12/79. Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/018  *SPIRES                   MODS.790713     U              DBMS:MODS.790713                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 7/13/79. Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/019  *SPIRES                   MODS.790802     U              DBMS:MODS.790802                                                
                                                                                    UM   BLOCK                                      
0          Stanford updates of 8/2/79. Apply using UT.STANUPD (3003/67).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/020  *SPIRES                   ANALDRIVER.S    SA  O          DBMS:ANALDRIVER.S                                               
            D4.1T1  716  SPIRES.ANALDRIVER.S.SA.048         1 LINE     71    1 PAGE UM   BLOCK               JAN. 11, 1978  08:28:56
0          Driver routines to start up the BNF analyzer.  The procedure is similar to that
           used in MTSINTF (3003/24) to start up the other SPIRES processors.
03003/021  *SPIRES                   ANALINTF.S      S3  O          DBMS:ANALINTF.S                                                 
            D4.1T1  717  SPIRES.ANALINTF.S.S3.049           1 LINE     72    3 PAGE UM   BLOCK               JAN. 11, 1978  08:28:59
0          A set of MTS-interface routines to provide system services for the stand-alone
           BNF analyzer.  Their function is similar to that of MTSINTF (3003/24) in the
           other SPIRES processors.
03003/022  *SPIRES                   ANAL.BN.O       OC  O          DBMS:ANAL.BN.O                                                  
            D4.1T1  718  SPIRES.ANAL.BN.O.OC.050            1 LINE     80    1 PAGE UM   BLOCK               JAN. 11, 1978  08:29:01
0          Compiled BNF object -- parser tables for the SPIRES BNF analyzer.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03003/023  *SPIRES                   AVEC.S          SA  G          DBMS:AVEC.S                                                     
            D4.1T1  723  SPIRES.AVEC.S.SA.055               1 LINE     25    1 PAGE UM   BLOCK               JAN. 11, 1978  08:29:14
0          Short module used in linking the SPIRES modules together.
03003/024A *SPIRES                   MTSINTF.S       SA  G          DBMS:MTSINTF.S                                                  
            4.3T2   539  SPIRES.MTSINTF.S.SA.024            1 LINE    101  114 PAGE UM   BLOCK               APR. 06, 1980  14:52:12
0          MTS interface routines for SPIRES.  Copies *CNFGINFODSECT (654), *GDINFODSECT (594),
           and *GFINFODSECT (593).
0          Referenced by comments of: 3003/5, 3003/20, 3003/21 
03003/025A *SPIRES                   MTSPRODS.S      S3  G          DBMS:MTSPRODS.S                                                 
            4.3T2   540  SPIRES.MTSPRODS.S.S3.025           1 LINE     70    4 PAGE UM   BLOCK               APR. 06, 1980  14:52:28
0          General purpose semantic module used in implementing various MTS-specific features.
03003/026  *SPIRES                   SPIRLCS.S       SA  G          DBMS:SPIRLCS.S                                                  
            D4.1T1  726  SPIRES.SPIRLCS.S.SA.058            1 LINE     62    1 PAGE UM   BLOCK               JAN. 11, 1978  08:29:34
0          "SPIRLCS" lowcore symbol table used by the shared VM version of SPIRES.
03003/027  *SPIRES                   FILLER.S        SA  G          DBMS:FILLER.S                                                   
                                                                                    UM   BLOCK                                      
0          Defines a 2-page filler region, added at the end of the shared VM version
           of SPIRES to facilitate overlaying a new version.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/028  *SPIRES                   SPISORT.S       S3  O          DBMS:SPISORT.S                                                  
                                                                                    UM   BLOCK                                      
0          Module used by SPIRES for sorting (DEFINE/GENERATE SET commands).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/029  *SPIRES                   MSGDATA         S3  G          DBMS:MSGDATA                                                    
                                                                                    UM   BLOCK                                      
0          Error message table used by MSG module of SPIRES to print error messages.
           Constructed from data in the SYSTEM MESSAGES subfile (3003/35) by the GEN.MSG
           protocol in PUBLIC PROTOCOLS (3003/36).
            
           *********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/030  *SPIRES                   MSGDOC          S3  G          DBMS:MSGDOC                                                     
                                                                                    UM   BLOCK                                      
0          A list (in the form of PL360 comments) of all the SPIRES error messages.
           Constructed from data in the SYSTEM MESSAGES subfile (3003/35) by the GEN.MSG
           protocol in PUBLIC PROTOCOLS (3003/36).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/031  *SPIRES                   EXPLAIN.BI      D              S1225 SPIRES FSNAME=EXPLAIN.BI                                  
            D4.1T1  727  SPIRES.EXPLAIN.BI.D.059            1 LINE     73  115 PAGE UM   BLOCK               JAN. 11, 1978  08:32:17
0          Source input records for the EXPLAIN subfile.
03003/032  *SPIRES                   FILEDEF.BI      D              S1225 SPIRES FSNAME=FILEDEF.BI                                  
            D4.1T1  728  SPIRES.FILEDEF.BI.D.060            1 LINE     73   24 PAGE UM   BLOCK               JAN. 11, 1978  08:32:29
0          Source input records for the FILEDEF subfile.
03003/033  *SPIRES                   FORMATS.BI      D              S1225 SPIRES FSNAME=FORMATS.BI                                  
            D4.1T1  729  SPIRES.FORMATS.BI.D.061            1 LINE     73   16 PAGE UM   BLOCK               JAN. 11, 1978  08:32:34
0          Source input records for the FORMATS subfile.
03003/034  *SPIRES                   MACROS.BI       D              S1225 SPIRES FSNAME=MACROS.BI                                   
            D4.1T1  730  SPIRES.MACROS.BI.D.062             1 LINE     71    3 PAGE UM   BLOCK               JAN. 11, 1978  08:32:38
0          Source input records for the MACROS subfile.
03003/035  *SPIRES                   MESSAGES.BI     D              S1225 SPIRES FSNAME=MESSAGES.BI                                 
            D4.1T1  731  SPIRES.MESSAGES.BI.D.063           1 LINE     73   45 PAGE UM   BLOCK               JAN. 11, 1978  08:32:40
0          Source input records for the SYSTEM MESSAGES subfile.
0          Referenced by comments of: 3003/29, 3003/30 
03003/036A *SPIRES                   PROTOCOL.BI     D              S1225 SPIRES FSNAME=PROTOCOL.BI                                 
            4.3T2   541  SPIRES.PROTOCOL.BI.D.036           1 LINE    120   16 PAGE UM   BLOCK               AUG. 12, 1979  22:20:19
0          Source input records for the PROTOCOL subfile.
0          Referenced by comments of: 3003/29, 3003/30 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03003/037  *SPIRES                   SYSPROTO.BI     D              S1225 SPIRES FSNAME=SYSPROTO.BI                                 
            D4.1T1  733  SPIRES.SYSPROTO.BI.D.065           1 LINE     31    4 PAGE UM   BLOCK               JAN. 11, 1978  08:32:50
0          Source input records for the SYS PROTO subfile.
03003/038  *SPIRES                   TUTORIAL.BI     D              S1225 SPIRES FSNAME=TUTORIAL.BI                                 
            D4.1T1  734  SPIRES.TUTORIAL.BI.D.066           1 LINE     73    9 PAGE UM   BLOCK               JAN. 11, 1978  08:32:52
0          Source input records for the TUTORIALS subfile.
03003/039  *SPIRES                   VGROUPS.BI      D              S1225 SPIRES FSNAME=VGROUPS.BI                                  
            D4.1T1  735  SPIRES.VGROUPS.BI.D.067            1 LINE     31    1 PAGE UM   BLOCK               JAN. 11, 1978  08:32:54
0          Source input records for the VGROUPS subfile.
03003/040  *SPIRES                   COMMENTS.BI     D              S1225 SPIRES FSNAME=COMMENTS.BI                                 
                                                                                    UM   BLOCK                                      
0          Source input records for the COMMENTS subfile.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/041  *SPIRES                   M.FILEDEF.BI    D              S1225 SPIRES FSNAME=DBMD:M.FILEDEF.BI                           
                                                                                    UM   BLOCK                                      
0          Source input records for the FILEDEF MANUAL subfile.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/042  *SPIRES                   M.FORMATS.BI    D              S1225 SPIRES FSNAME=DBMD:M.FORMATS.BI                           
                                                                                    UM   BLOCK                                      
0          Source input records for the FORMATS MANUAL subfile.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/043  *SPIRES                   M.PROTO.BI      D              S1225 SPIRES FSNAME=DBMD:M.PROTO.BI                             
                                                                                    UM   BLOCK                                      
0          Source input records for the PROTOCOLS MANUAL subfile.
            
           *********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/044A *SPIRES                   M.USER.BI       D              S1225 SPIRES FSNAME=DBMD:M.USER.BI                              
            4.3T2   542  SPIRES.M.USER.BI.D.044             1 LINE    121  185 PAGE UM   BLOCK               AUG. 12, 1979  22:21:20
0          Source input records for the USER MANUAL subfile.
03003/045  *SPIRES                   M.PRIMER.BI     D              S1225 SPIRES FSNAME=DBMD:M.PRIMER.BI                            
                                                                                    UM   BLOCK                                      
0          Source input records for the PRIMER subfile.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/046  *SPIRES                   M.MANAGE.BI     D              S1225 SPIRES FSNAME=DBMD:M.MANAGE.BI                            
                                                                                    UM   BLOCK                                      
0          Source input records for the DATA BASE MANAGEMENT subfile.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/047  *SPIRES                   M.NOTES.BI      D              S1225 SPIRES FSNAME=DBMD:M.NOTES.BI                             
                                                                                    UM   BLOCK                                      
0          Source input records for the CLASS NOTES subfile.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/048  *SPIRES                   STANWORDS.BI    D              S1225 SPIRES FSNAME=DBMD:STANWORDS.BI                           
                                                                                    UM   BLOCK                                      
0          Source input records for the FILEDEF.SW subfile.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03003/049  *SPIRES                   MANUAL.BI       D              S1225 SPIRES FSNAME=DBMD:MANUAL.BI                              
                                                                                    UM   BLOCK                                      
0          Source input records for the MANUALS subfile.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/050  *SPIRES                   DOC.FILEDEF     P              DBMD:DOC.FILEDEF                                                
            D4.1T1  740  SPIRES.DOC.FILEDEF.PF.072          1 LINE    106  215 PAGE UM   BLOCK               JAN. 11, 1978  08:33:10
0          The Stanford SPIRES File Definition Manual.  (..PUBLISHed from the
           FILEDEF MANUAL subfile, comp. 3003/41)
0          Referenced by comments of: 3003/58 
03003/051  *SPIRES                   DOC.FORMATS     P              DBMD:DOC.FORMATS                                                
            D4.1T1  742  SPIRES.DOC.FORMATS.P.074           1 LINE     85   79 PAGE UM   BLOCK               JAN. 11, 1978  08:34:18
0          The Stanford FORMATS Manual, not complete, not revised for MTS.  It will
           be rewritten at Stanford - currently it's all there is.  (..PUBLISHed from
           the FORMATS MANUAL subfile, comp. 3003/42.)
03003/052  *SPIRES                   DOC.PROTOCOL    P              DBMD:DOC.PROTOCOL                                               
            D4.1T1  746  SPIRES.DOC.PROTOCOL.P.078          1 LINE     85   92 PAGE UM   BLOCK               JAN. 11, 1978  08:34:36
0          The Stanford PROTOCOLS Manual.  Not revised for MTS.  (..PUBLISHed from the
           PROTOCOLS MANUAL subfile, comp. 3003/43.)
03003/053A *SPIRES                   DOC.USER        PF             DBMD:DOC.USER                                                   
            4.3T2   543  SPIRES.DOC.USER.PF.053             1 LINE     78  142 PAGE UM   BLOCK               APR. 06, 1980  14:55:45
0          The Stanford SPIRES User Manual.  Not revised for MTS.  (..PUBLISHed from
           the USER MANUAL subfile, comp. 3003/44.)
03003/054  *SPIRES                   DOC.PRIMER      P              DBMD:DOC.PRIMER                                                 
                                                                                    UM   BLOCK                                      
0          The Stanford "Introduction to SPIRES" sort of manual.  Not revised for MTS.
           (..PUBLISHed from the PRIMER subfile, comp. 3003/45.)
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/055  *SPIRES                   DOC.MANAGE      P              DBMD:DOC.MANAGE                                                 
                                                                                    UM   BLOCK                                      
0          The unrevised Stanford Data Base Management manual.  Similar in content
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          to Ron Senda's Record Management Manual.  (..PUBLISHed from the DATA BASE
           MANAGEMENT subfile, comp. 3003/46.)
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/056  *SPIRES                   DOC.NOTES       P              DBMD:DOC.NOTES                                                  
            D4.1T1  743  SPIRES.DOC.INTRO.P.075             1 LINE     90   18 PAGE UM   BLOCK               JAN. 11, 1978  08:34:26
0          A set of notes used with an introductory class on SPIRES at Stanford.
           (..PUBLISHed from the CLASS NOTES subfile, comp. 3003/47.)
03003/057  *SPIRES                   DOC.NEWS        P              DBMD:DOC.NEWS                                                   
            D4.1T1  744  SPIRES.DOC.NEWS.P.076              1 LINE     81   11 PAGE UM   BLOCK               JAN. 11, 1978  08:34:30
0          A file of SPIRES news items describing changes to SPIRES over the past 
           several years.  For some features, the only documentation available is
           in this file.
03003/058  *SPIRES                   DOC.FASTBILD    PF             DBMD:DOC.FASTBILD                                               
            D4.1T1  738  SPIRES.DOC.FASTBILD.PF.070         1 LINE     75    3 PAGE UM   BLOCK               JAN. 11, 1978  08:33:05
0          Preliminary documentation for the FASTBILD processor.  Eventually will be
           incorporated into the File Definition manual (3003/50).
03003/059  *SPIRES                   FMT.FASTBILD    WF             DBMD:FMT.FASTBILD                                               
            D4.1T1  739  SPIRES.FMT.FASTBILD.WF.071         1 LINE    107    3 PAGE UM   BLOCK               JAN. 11, 1978  08:33:07
0          *FORMAT source for DOC.FASTBILD.
03003/060  *SPIRES                   DOC.PARTIAL     P              DBMD:DOC.PARTIAL                                                
            D4.1T1  745  SPIRES.DOC.PARTIAL.P.077           1 LINE     69    5 PAGE UM   BLOCK               JAN. 11, 1978  08:34:33
0          An old, partially obsolete, document on the Partial Record Processing
           commands.  Will be ditched when the Record Management Manual (being
           written at UQV by Ron Senda) is completed.
03003/061  *SPIRES                   DOC.SORTING     PF             DBMD:DOC.SORTING                                                
            D4.1T1  749  SPIRES.DOC.SORTING.P.081           1 LINE     79    5 PAGE UM   BLOCK               JAN. 11, 1978  08:34:53
0          A discussion, written at Stanford and revised for MTS, of the various 
           sorting techniques available in SPIRES.  Eventually will be incorporated
           in one of the other manuals.
03003/062  *SPIRES                   FMT.SORTING     WF             DBMD:FMT.SORTING                                                
                                                                                    UM   BLOCK                                      
0          *FORMAT source for DOC.SORTING.
            
           *********************************************************************************
            
1                                                                                               SUN SEP 08/96   19:03:19   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          THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/063  *SPIRES                   DOC.RECMANAG    P              DBMD:DOC.RECMAN                                                 
            D4.1T1  747  SPIRES.DOC.RECMANAG.PF.079         1 LINE     73   22 PAGE UM   BLOCK               JAN. 11, 1978  08:34:47
0          A preliminary draft of the Record Management Manual being written at UQV.
           A more recent version is available from Ron Senda at UQV.
03003/064  *SPIRES                   MEMO 337        PF             DBMD:DOC.MEMO337                                                
            D4T3    629  SPIRES.MEMO_337.PF.074             1 LINE     86  121 PAGE UM   BLOCK               JUNE 25, 1977  11:06:52
0          UM Computing Center Memo 337, "SPIRES Searching and Updating".
03003/065  *SPIRES                   MEMO 337        WF             DBMD:FMT.MEMO337                                                
            D4T3    628  SPIRES.MEMO_337.WF.073             1 LINE    147   89 PAGE UM   BLOCK               JULY 29, 1977  00:27:24
0          *FORMAT source for Memo 337.
03003/066  *SPIRES                   UT.STANUPD      OC             DBMS:UT.STANUPD                                                 
                                                                                    UM   BLOCK                                      
0          SPITBOL program to apply Stanford-produced update decks to the various
           PL360 source (and SPIRES BNF) source modules.
03003/067  *SPIRES                   UT.STANUPD.S    SS  G          DBMS:UT.STANUPD.S                                               
            D4.1T1  758  SPIRES.UT.STANUPD.SS.092           1 LINE    132   12 PAGE UM   BLOCK               JAN. 11, 1978  08:35:49
0          SPITBOL source for UT.STANUPD.
0          Referenced by comments of: 3003/11, 3003/12, 3003/13, 3003/14, 3003/15, 3003/16, 3003/17, 3003/18, 3003/19 
03003/068  *SPIRES                   UT.UPDATE       OC             DBMS:UT.UPDATE                                                  
                                                                                    UM   BLOCK                                      
0          PLUS program used to process the MTS SPIRES updates
           contained in the file MODS.MTS (3003/11). $CONTINUEs 
           WITH DBMS:PLUS.FCNS (3003/76).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
0          Referenced by comments of: 3003/69 
03003/069  *SPIRES                   UT.UPDATE.S     S+  G          DBMS:UT.UPDATE.S                                                
                                                                                    UM   BLOCK                                      
0          PLUS (1042) source for UT.UPDATE. Lines 0 to .999 contains commands for
           compilation into UT.UPDATE (3003/68).
            
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
0          Referenced by comments of: 3003/76 
03003/070  *SPIRES                   UT.UPDATELIB    S+             DBMS:UT.UPDATELIB                                               
                                                                                    UM   BLOCK                                      
0          PLUS source library to be used when compiling UT.UPDATE.S.
           $CONTINUEs WITH PLUS.SLIB (3003/78).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/071  *SPIRES                   UT.UPDATE.W     P              DBMS:UT.UPDATE.W                                                
                                                                                    UM   BLOCK                                      
0          Description of the UT.UPDATE program.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/072  *SPIRES                   UT.LOCKMOD      SG  G          DBMS:UT.LOCKMOD                                                 
            D4.1T1  757  SPIRES.UT.LOCKMOD.SG.091           1 LINE     80    2 PAGE UM   BLOCK               JAN. 11, 1978  08:35:47
0          GOM program (in negative line number range) to lock a file for MOD.  While
           waiting to lock, it lets through tasks which only need to lock for read.
03003/073  *SPIRES                   UT.BCFILES      C              DBMS:UT.BCFILES                                                 
                                                                                    UM   BLOCK                                      
0          A source file which can be used to construct the various BC.? files
           (3003/84 -3003/90) for a working version of SPIRES.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/074  *SPIRES                   UT.CHANGEID     C              DBMS:UT.CHANGEID                                                
            D4.1T1  752  SPIRES.UT.CHANGEID.C.086           1 LINE     55    1 PAGE UM   BLOCK               JAN. 11, 1978  08:35:33
0          A source file for use in scanning an object deck for "DBMS" and changing
           each occurence to some other ccid.  Useful for bringing up a test version
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          of SPIRES on an id other than DBMS.
03003/075  *SPIRES                   UT.DEBUG        C              DBMS:UT.DEBUG                                                   
                                                                                    UM   BLOCK                                      
0          An SDS command file useful when debugging SPIRES (the usual sequence is:
              $Debug TESTLOAD
              +set input=UT.DEBUG      ).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/076  *SPIRES                   PLUS.FCNS       OC             DBMS:PLUS.FCNS                                                  
                                                                                    UM   BLOCK                                      
0          A collection of general PLUS (1042) functions used by UT.UPDATE (3003/69).
           $CONTINUEs with NEW:PLUS.OBJLIB (1042/50), the PLUS object library.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
0          Referenced by comments of: 3003/68, 3003/77 
03003/077  *SPIRES                   PLUS.FCNS.S     S+  G          S1225 SPIRES FSNAME=PLUS.FCNS.S                                 
                                                                                    UM   BLOCK                                      
0          PLUS (1042) source for PLUS.FCNS (3003/76).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
0          Referenced by comments of: 3003/78 
03003/078  *SPIRES                   PLUS.SLIB       S+  G          DBMS:PLUS.SLIB                                                  
                                                                                    UM   BLOCK                                      
0          A general PLUS (1042) source library, containing definitions of the functions
           in PLUS.FCNS (3003/77) and some useful type declarations and system subroutine
           interfaces (for PLUS).
            
           $CONTINUEs WITH NEW:PLUS.SOURCEL (1042/4), the PLUS source library.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           *********************************************************************************
0          Referenced by comments of: 3003/70 
03003/079  *SPIRES                   *OVRFDEF        C              *OVRFDEF                                                        
            D4.1T1  759  SPIRES.*OVRFDEF.C.093              1 LINE     67    1 PAGE UM   BLOCK               JAN. 11, 1978  08:35:53
0          SPIRES "overnight" processor for the FILEDEF subfile.
03003/080  *SPIRES                   *OVRFMT         C              *OVRFMT                                                         
            D4.1T1  760  SPIRES.*OVRFMT.C.094               1 LINE     67    1 PAGE UM   BLOCK               JAN. 11, 1978  08:35:55
0          SPIRES "overnight" processor for the FORMATS subfile.
03003/081  *SPIRES                   *OVRPEOP        C              *OVRPEOP                                                        
            D4.1T1  761  SPIRES.*OVRPEOP.C.095              1 LINE     66    1 PAGE UM   BLOCK               JAN. 11, 1978  08:35:57
0          SPIRES "overnight" processor for the PEOPLE subfile.
03003/082  *SPIRES                   *OVRREST        C              *OVRREST                                                        
            D4.1T1  762  SPIRES.*OVRREST.C.096              1 LINE     70    1 PAGE UM   BLOCK               JAN. 11, 1978  08:36:00
0          SPIRES "overnight" processor for the RESTAURANTS subfile.
03003/083  *SPIRES                   ONCEAWEEK       C              DBMS:ONCEAWEEK                                                  
            D4.1T1  763  SPIRES.ONCEADAY.C.097              1 LINE     87    2 PAGE UM   BLOCK               JAN. 11, 1978  08:36:02
0          Command file used periodically to check the status of *SPIRES.
03003/084  *SPIRES                   BC.EXPS         D              S1225 SPIRES FSNAME=BC.EXPS                                     
            D4.1T1  765  SPIRES.BC.EXPS.D.099               1 LINE     80    1 PAGE UM   BLOCK               JAN. 11, 1978  08:36:07
0          Build characteristics for the EXPLAIN file.
03003/085  *SPIRES                   BC.FDEF         D              S1225 SPIRES FSNAME=BC.FDEF                                     
            D4.1T1  766  SPIRES.BC.FDEF.D.100               1 LINE     80    1 PAGE UM   BLOCK               JAN. 11, 1978  08:36:09
0          Build characteristics for the FILEDEF file.
03003/086  *SPIRES                   BC.FORM         D              S1225 SPIRES FSNAME=BC.FORM                                     
            D4.1T1  767  SPIRES.BC.FORM.D.101               1 LINE     80    1 PAGE UM   BLOCK               JAN. 11, 1978  08:36:12
0          Build characteristics for the FORMATS file.
03003/087  *SPIRES                   BC.FUNS         D              S1225 SPIRES FSNAME=BC.FUNS                                     
            D4.1T1  768  SPIRES.BC.FUNS.D.102               1 LINE     80    1 PAGE UM   BLOCK               JAN. 11, 1978  08:36:14
0          Build characteristics for the DATA file (record 1).
03003/088  *SPIRES                   BC.MAIL         D              S1225 SPIRES FSNAME=BC.MAIL                                     
            D4.1T1  769  SPIRES.BC.MAIL.D.103               1 LINE     80    1 PAGE UM   BLOCK               JAN. 11, 1978  08:36:17
0          Build characteristics for the MAIL file.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03003/089  *SPIRES                   BC.VARS         D              S1225 SPIRES FSNAME=BC.VARS                                     
            D4.1T1  770  SPIRES.BC.VARS.D.104               1 LINE     80    1 PAGE UM   BLOCK               JAN. 11, 1978  08:36:19
0          Build characteristics for the DATA file (record 2).
03003/090  *SPIRES                   BC.XEQS         D              S1225 SPIRES FSNAME=BC.XEQS                                     
            D4.1T1  771  SPIRES.BC.XEQS.D.105               1 LINE     80    1 PAGE UM   BLOCK               JAN. 11, 1978  08:36:21
0          Build characteristics for the XEQSFILE file.
03003/091  *SPIRES                   FILEDEF/A       D              S1225 SPIRES FSNAME=FILEDEF/A                                   
            D4.1T1  772  SPIRES.FILEDEF/A.D.106             1 LINE   2048   21 PAGE UM   BLOCK               JAN. 11, 1978  08:50:17
0          Part of the FILEDEF SPIRES-file.
03003/092  *SPIRES                   FILEDEF/Q       D              S1225 SPIRES FSNAME=FILEDEF/Q                                   
            D4.1T1  773  SPIRES.FILEDEF/Q.D.107             1 LINE   2048    3 PAGE UM   BLOCK               JAN. 11, 1978  08:50:20
0          Part of the FILEDEF SPIRES-file.
03003/093  *SPIRES                   DATA/A          D              S1225 SPIRES FSNAME=DATA/A                                      
            D4.1T1  778  SPIRES.DATA/A.D.112                1 LINE   2048    5 PAGE UM   BLOCK               JAN. 11, 1978  08:52:40
0          Part of the DATA SPIRES-file.
03003/094  *SPIRES                   DATA/Q          D              S1225 SPIRES FSNAME=DATA/Q                                      
            D4.1T1  779  SPIRES.DATA/Q.D.113                1 LINE   2048    3 PAGE UM   BLOCK               JAN. 11, 1978  08:52:44
0          Part of the DATA SPIRES-file.
03003/095  *SPIRES                   MAIL/A          D              S1225 SPIRES FSNAME=MAIL/A                                      
            D4.1T1  783  SPIRES.MAIL/A.D.117                1 LINE   2048   22 PAGE UM   BLOCK               JAN. 11, 1978  08:56:15
0          Part of the MAIL SPIRES-file.
03003/096  *SPIRES                   MAIL/Q          D              S1225 SPIRES FSNAME=MAIL/Q                                      
            D4.1T1  784  SPIRES.MAIL/Q.D.118                1 LINE   2048    3 PAGE UM   BLOCK               JAN. 11, 1978  08:56:19
0          Part of the MAIL SPIRES-file.
03003/097  *SPIRES                   EXPLAIN/A       D              S1225 SPIRES FSNAME=EXPLAIN/A                                   
            D4.1T1  789  SPIRES.EXPLAIN/A.D.123             1 LINE   2048  117 PAGE UM   BLOCK               JAN. 11, 1978  09:00:21
0          Part of the EXPLAIN SPIRES-file.
03003/098  *SPIRES                   EXPLAIN/Q       D              S1225 SPIRES FSNAME=EXPLAIN/Q                                   
            D4.1T1  790  SPIRES.EXPLAIN/Q.D.124             1 LINE   2048    3 PAGE UM   BLOCK               JAN. 11, 1978  09:00:30
0          Part of the EXPLAIN SPIRES-file.
03003/099  *SPIRES                   MACROS/A        D              S1225 SPIRES FSNAME=MACROS/A                                    
            D4.1T1  795  SPIRES.MACROS/A.D.129              1 LINE   2048    6 PAGE UM   BLOCK               JAN. 11, 1978  09:03:26
0          Part of the MACROS SPIRES-file.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03003/100  *SPIRES                   MACROS/Q        D              S1225 SPIRES FSNAME=MACROS/Q                                    
            D4.1T1  796  SPIRES.MACROS/Q.D.130              1 LINE   2048    3 PAGE UM   BLOCK               JAN. 11, 1978  09:03:28
0          Part of the MACROS SPIRES-file.
03003/101  *SPIRES                   FORMATS/A       D              S1225 SPIRES FSNAME=FORMATS/A                                   
            D4.1T1  801  SPIRES.FORMATS/A.D.135             1 LINE   2048   33 PAGE UM   BLOCK               JAN. 11, 1978  09:09:45
0          Part of the FORMATS SPIRES-file.
03003/102  *SPIRES                   FORMATS/Q       D              S1225 SPIRES FSNAME=FORMATS/Q                                   
            D4.1T1  802  SPIRES.FORMATS/Q.D.136             1 LINE   2048    3 PAGE UM   BLOCK               JAN. 11, 1978  09:09:49
0          Part of the FORMATS SPIRES-file.
03003/103  *SPIRES                   SYSLOG/A        D              S1225 SPIRES FSNAME=SYSLOG/A                                    
            D4.1T1  807  SPIRES.SYSLOG/A.D.141              1 LINE   2048    4 PAGE UM   BLOCK               JAN. 11, 1978  09:12:22
0          Part of the SYSLOG SPIRES-file.
03003/104  *SPIRES                   SYSLOG/Q        D              S1225 SPIRES FSNAME=SYSLOG/Q                                    
            D4.1T1  808  SPIRES.SYSLOG/Q.D.142              1 LINE   2048    3 PAGE UM   BLOCK               JAN. 11, 1978  09:12:24
0          Part of the SYSLOG SPIRES-file.
03003/105  *SPIRES                   XEQSFILE/A      D              S1225 SPIRES FSNAME=XEQSFILE/A                                  
            D4.1T1  812  SPIRES.XEQSFILE/A.D.146            1 LINE   2048    4 PAGE UM   BLOCK               JAN. 11, 1978  09:14:27
0          Part of the XEQSFILE SPIRES-file.
03003/106  *SPIRES                   XEQSFILE/Q      D              S1225 SPIRES FSNAME=XEQSFILE/Q                                  
            D4.1T1  813  SPIRES.XEQSFILE/Q.D.147            1 LINE   2048    3 PAGE UM   BLOCK               JAN. 11, 1978  09:14:29
0          Part of the XEQSFILE SPIRES-file.
03003/107  *SPIRES                   REPORT/A        D              S1225 SPIRES FSNAME=REPORT/A                                    
                                                                                    UM   BLOCK                                      
0          Part of the REPORT file (used by TRG - Table Report Generator).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/108  *SPIRES                   REPORT/Q        D              S1225 SPIRES FSNAME=REPORT/Q                                    
                                                                                    UM   BLOCK                                      
0          Part of the REPORT file.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0           
           *********************************************************************************
03003/109  *SPIRES                   LOG/A           D              S1225 SPIRES FSNAME=LOG/A                                       
                                                                                    UM   BLOCK                                      
0          Part of the LOG file (used by the *OVR-jobs and ONCEAWEEK).
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/110  *SPIRES                   LOG/Q           D              S1225 SPIRES FSNAME=LOG/Q                                       
                                                                                    UM   BLOCK                                      
0          Part of the LOG file.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/111  *SPIRES                   COMMENTS/A      D              S1225 SPIRES FSNAME=COMMENTS/A                                  
                                                                                    UM   BLOCK                                      
0          Part of the COMMENTS file.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/112  *SPIRES                   COMMENTS/Q      D              S1225 SPIRES FSNAME=COMMENTS/Q                                  
                                                                                    UM   BLOCK                                      
0          Part of the COMMENTS file.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/113  *SPIRES                   PROTO.FD        D              DBMS:PROTO.FD                                                   
                                                                                    UM   BLOCK                                      
0          The file definition of a general user PROTOCOL subfile.  Used by the
           BUILD.PROTOCOL.FILE protocol in PUBLIC PROTOCOLS.
            
           *********************************************************************************
1                                                                                               SUN SEP 08/96   19:03:19   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           
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/114  *SPIRES                   PROTO.F         D              DBMS:PROTO.F                                                    
                                                                                    UM   BLOCK                                      
0          The format for a general user PROTOCOL subfile.  Used by the
           BUILD.PROTOCOL.FILE protocol in PUBLIC PROTOCOLS.
            
           *********************************************************************************
            
           THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION.
            
           *********************************************************************************
03003/115  *SPIRES                   REST.FD         D              S1225 SPIRES FSNAME=REST.FD                                     
            D4.1T1  817  SPIRES.REST.FD.D.151               1 LINE     72    3 PAGE UM   BLOCK               JAN. 11, 1978  09:17:24
0          File definition for UM's RESTAURANTS subfile (for testing).
03003/116  *SPIRES                   REST.FMT        D              S1225 SPIRES FSNAME=REST.FMT                                    
            D4.1T1  818  SPIRES.REST.FMT.D.152              1 LINE     56    1 PAGE UM   BLOCK               JAN. 11, 1978  09:17:28
0          Output format for use with UM's RESTAURANTS subfile (for testing).
03003/117  *SPIRES                   REST.BI         D              S1225 SPIRES FSNAME=REST.BI                                     
            D4.1T1  819  SPIRES.REST.BI.D.153               1 LINE     72    4 PAGE UM   BLOCK               JAN. 11, 1978  09:17:30
0          Sample input records for the UM RESTAURANTS subfile (for testing).
03003/118  *SPIRES                   PEOPLE.FD       D              S1225 SPIRES FSNAME=PEOPLE.FD                                   
            D4.1T1  820  SPIRES.PEOPLE.FD.D.154             1 LINE     72    3 PAGE UM   BLOCK               JAN. 11, 1978  09:17:34
0          File definition for UM's PEOPLE subfile (for testing).
03003/119  *SPIRES                   PEOPLE.BI       D              S1225 SPIRES FSNAME=PEOPLE.BI                                   
            D4.1T1  821  SPIRES.PEOPLE.BI.D.155             1 LINE     73    4 PAGE UM   BLOCK               JAN. 11, 1978  09:17:36
0          Sample input records for the UM PEOPLE subfile (for testing).
03003/120  *SPIRES                   SPIRES/COMZ     D              S1225 SPIRES FSNAME=SPIRES/COMZ                                 
            D4.1T1  822  SPIRES.D4.COMZ.D.156               1 LINE    256    1 PAGE UM   BLOCK               JAN. 11, 1978  09:17:40
0          System file for storing message-of-the-day and the current master accounts.
03003/121  *SPIRES                   TESTLOAD        OC  G          DBMS:TESTLOAD                                                   
            D4.1T1  824  SPIRES.TESTLOAD.OC.158             1 LINE     85    1 PAGE UM   BLOCK               JAN. 11, 1978  09:17:47
0          File used in loading non-linkedited test versions of SPIRES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03006      *PL1SYN                                                # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
03007       APLUTIL                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
03011/001  *FLOWCHART                IBM SOURCE      SA  O          S0565 D4T3 VLO FSNAME=FLOWCHART.IBM_SOURCE.SA.001(1)         681
            D4T3    681  FLOWCHART.IBM_SOURCE.SA.001        1 SEQ      80  387 PAGE UQV  WARD      DWB       OCT. 10, 1974  12:28.56
0          THIS IS THE SOURCE FOR THE IBM FLOWCHARTING PROGRAM.  IT DOES NOT FLOWCHART ANYTHING
           AUTOMATICALLY; YOU HAVE TO TELL IT (VIA ITS INPUT LANGUAGE) WHAT KIND OF BOXES TO
           DRAW AND HOW THEY ARE TO BE CONNECTED.  SEE THE BRIEF DESCRIPTION IN MTS VOLUME 2.
           FOR MORE COMPLETE INFORMATION, SEE IBM FORM GH20-0293.
0          Referenced by comments of: 3011/2, 3011/3 
03011/002  *FLOWCHART                MTS UPDATE      UU  O          S1143 D4.1T1 VLO FSNAME=FLOWCHART.MTS_UPDATE.UU.002(1)       825
            D4.1T1  825  FLOWCHART.MTS_UPDATE.UU.002        1 LINE     72   42 PAGE UQV  WARD      DWB       APR. 03, 1978  20:17:23
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
            D4.1T1  826  FLOWCHART.MTS_SOURCE.SA.003        1 LINE     80  359 PAGE UQV  WARD      DWB       JAN. 09, 1978  18:10:51
0          RESULT OF APPLYING ABOVE UPDATE (3011/2) TO IBM SOURCE (3011/1). COPIES
           *GDINFODSECT (594).
0          Referenced by comments of: 3011/4 
03011/004  *FLOWCHART                OBJECT          OC  O          S1143 D4.1T1 VLO FSNAME=FLOWCHART.OBJECT.OC.004(1)           827
            D4.1T1  827  FLOWCHART.OBJECT.OC.004            1 LINE   2846   51 PAGE UQV  WARD      DWB       APR. 03, 1978  20:17:11
0          OBJECT FROM ASSEMBLY OF MTS SOURCE (3011/3).
0          Referenced by comments of: 3011/5 
03011/005  *FLOWCHART                MTS OBJECT      OE  O          *FLOWCHART                                                      
            D4.1T1  828  FLOWCHART.MTS_OBJECT.OE.005        1 LINE  25588   18 PAGE UQV  WARD      DWB       MAY  13, 1978  18:42:04
                         *FLOWCHART           
0          LINK-EDITED RESULT FROM ABOVE OBJECT (3011/4).
03011/006  *FLOWCHART                TEST 1          D              DWB:FLOWCHART.T1                                                
            D4T3    684  FLOWCHART.TEST_1.D.004             1 LINE     72    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:36
                         DWB.:FLOWCHART.T1    
0          THIS COMPONENT AND THE NEXT 5 ARE *FLOWCHART TEST PROGRAMS.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03011/007  *FLOWCHART                TEST 2          D              DWB:FLOWCHART.T2                                                
            D4T3    685  FLOWCHART.TEST_2.D.005             1 LINE     62    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:38
                         DWB.:FLOWCHART.T2    
03011/008  *FLOWCHART                TEST 3          D              DWB:FLOWCHART.T3                                                
            D4T3    686  FLOWCHART.TEST_3.D.006             1 LINE     75    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:40
                         DWB.:FLOWCHART.T3    
03011/009  *FLOWCHART                TEST 4          D              DWB:FLOWCHART.T4                                                
            D4T3    687  FLOWCHART.TEST_4.D.007             1 LINE     68    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:42
                         DWB.:FLOWCHART.T4    
03011/010  *FLOWCHART                TEST 5          D              DWB:FLOWCHART.T5                                                
            D4T3    688  FLOWCHART.TEST_5.D.008             1 LINE     62    1 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:45
                         DWB.:FLOWCHART.T5    
03011/011  *FLOWCHART                TEST 6          D              DWB:FLOWCHART.T6                                                
            D4T3    689  FLOWCHART.TEST_6.D.009             1 LINE     72    4 PAGE UQV  WARD      DWB       JULY 29, 1977  00:34:47
                         DWB.:FLOWCHART.T6    
03012       TYPESET                                               # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.Y
03013/001   ALGOL68C                 COMPILER        OE  O          S0684 UNSP FSNAME=ALGOL68C.COMPILER.OE.001                      
            D4T3    690  ALGOL68C.COMPILER.OE.001           1 SEQ   32767   45 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:56:32
0           THIS VERSION OF ALGOL68C WAS RECEIVED AT UM FROM UQV IN OCT/76 AND IS
           VERSION 242 OF THE ALGOL68C COMPILER, WHICH WAS OBTAINED FROM CAMBRIDGE, ENGLAND.
           IT HAS NOT BEEN MODIFIED, EXCEPT FOR BEING LINK-EDITED.
           THE COMPILER TRANSLATES FROM ALGOL68C TO Z-CODE - THE ASSEMBLY LANGUAGE FOR THE MYTHICAL MACHINE, Z.
           THIS VERSION USES THE UPPER CASE/LOWER CASE TRANSLATE TABLE (E.G.  INT I;).
           THIS COMPONENT NEEDS COMPONENTS 3013/2, 3013/7, AND 3013/27 TO RUN.
             TO TRANSLATE FROM Z-CODE TO /360-CODE, USE COMPONENT 3013/4.
             AT UM, ALGOL68C IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE.
            
           NOTE: THIS VERSION HAS NOT BEEN INSTALLED AT UM AS OF 20 FEB/79.
03013/002   ALGOL68C                 COMPILER        OE  O          S0684 UNSP FSNAME=ALGOL68C.COMPILER.OS.002                      
            D4T3    691  ALGOL68C.COMPILER.OE.002           1 LINE    255    1 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:56:36
0          THIS IS THE FILE THAT YOU $RUN TO JUST COMPILE.
           USAGE: $RUN AL68:COMPILER SCARDS=INPUT SPRINT=LISTING 1=ZCODE-OUTPUT -
                   2=XREFTABLES¬  7=ENVIRON-OUTPUT¬   PAR= PRELUDE=FDNAME¬ ;XREF¬ ¬
           IT CONTAINS A MODIFIED INITIALIZATION (3013/13) AND $CONTINUES WITH COMPONENTS 3013/1, 3013/7, AND 3013/29.
03013/003   ALGOL68C                 TRANSLATOR      OE  O          S0684 UNSP FSNAME=ALGOL68C.TRANSLATOR.OE.003                    
            D4T3    692  ALGOL68C.TRANSLATOR.OE.003         1 SEQ   32767   11 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:56:43
0             THIS IS VERSION 116 OF THE Z-CODE TO /360-CODE TRANSLATOR.
           IT IS MUCH IMPROVED OVER THE PREVIOUSLY DISTRIBUTED TRANSLATOR.
           IT PRODUCES RE-ENTRANT CODE.  SINCE THE RUN-TIME LIBRARY ROUTINES ARE ALSO RE-ENTRANT,
           THIS MEANS THAT ALL ALGOL68C PROGRAMS, INCLUDING THE COMPILER, TRANSLATOR, AND CROSS-REFERENCER, ARE RE-ENTRANT.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          THIS PROGRAM HAS BEEN MODIFIED TO CHANGE THE FILE ID'S USED.
03013/004   ALGOL68C                 TRANSLATOR      OE  O          S0684 UNSP FSNAME=ALGOL68C.TRANSLATOR.OS.004                    
            D4T3    693  ALGOL68C.TRANSLATOR.OE.004         1 LINE    255    2 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:56:50
0          THIS IS THE FILE THAT YOU $RUN TO JUST TRANSLATE.
           USAGE: $RUN AL68:TRANSLAT SCARDS=ZCODE-INPUT SPRINT=LISTING SPUNCH=OBJECT-OUTPUT 
           IT CONTAINS A MODIFIED INITIALIZATION (3013/13) AND $CONTINUES WITH COMPONENTS 3013/3, 3013/7, AND 3013/29.
03013/005   ALGOL68C                 CROSSREF        OE  S          S0684 UNSP FSNAME=ALGOL68C.CROSSREF.OE.005                      
            D4T3    694  ALGOL68C.CROSSREF.OE.005           1 SEQ    7690    3 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:56:57
0            A PROGRAM TO PRODUCE A CROSS-REFERENCE LISTING FOR AN ALGOL68C PROGRAM.
           THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE COMPILER.
           USAGE: $RUN AL68:XREF SCARDS=XREFTABLES SPRINT=LISTING
           THE FILE $CONTINUES WITH COMPONENT 3013/31.
03013/006   ALGOL68C                 COMPILER        O   O          S0684 UNSP FSNAME=ALGOL68C.COMPILER.OS.006                      
            D4T3    695  ALGOL68C.COMPILER.O.006            1 LINE    255    3 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:57:04
0            THIS IS A MONITOR WHICH:
           1) APPEARS AS THE COMPILER TO THE USER.
           USAGE: $RUN AL68:A68C SCARDS=INPUT SPRINT=LISTING SPUNCH=OUTPUT  7=ENVIRONMENT OUTPUT¬
             PARAMETERS:  LIST/NOLIST  NEWS/NONEWS  XREF/NOXREF
             DEFAULTS:  LIST, NEWS, NOXREF
           2) INVOKES THE COMPILER, TRANSLATOR, AND, OPTIONALLY, THE CROSS-REFERENCER.
           3) TRANSLATES SQUARE BRACKETS PRINTED BY THE COMPILER INTO EBCDIC
           4) OPTIONALLY LISTS THE SOURCE PROGRAM
           5) OPTIONALLY COPIES AL68:NEWS
             THE PROGRAM WRITES A MESSAGE TO AL68:USECNTR EACH TIME IT IS RUN.
           THE FILE $CONTINUES WITH COMPONENTS 3013/2, 3013/4, AND 3013/5.
03013/007   ALGOL68C                 RUN-TIME LIB    OL  O          S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.OL.007                  
            D4T3    696  ALGOL68C.RUN-TIME_LIB.OL.007       1 SEQ    2048   16 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:57:11
0          THE RUN-TIME LIBRARY.  THIS FILE IS NEEDED BY EVERY ALGOL68C OBJECT PROGRAM.
           THE SOURCE FILES ARE COMPONENTS 3013/8 AND 3013/9.
03013/008   ALGOL68C                 RUN-TIME LIB    SA  O          S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.SA.008                  
            D4T3    697  ALGOL68C.RUN-TIME_LIB.SA.008       1 LINE     71   35 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:57:18
0          THE SOURCE FOR ALGOL68C SUBROUTINES WRITTEN IN ASSEMBLER, BUT CALLABLE FROM ALGOL68C PROGRAMS.
           PROCEDURE NUMBER NN STARTS AT LINE NN*1000.
           THIS FILE NEEDS COMPONENTS  3013/10, 3013/11, AND 3013/12 TO BE ASSEMBLED; IT DOES NOT NEED *SYSMAC.
           THERE IS NO END LINE IN THIS FILE.
03013/009   ALGOL68C                 RUN-TIME LIB    SA  O          S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.SA.009                  
            D4T3    698  ALGOL68C.RUN-TIME_LIB.SA.009       1 LINE     72   25 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:57:25
0          THE SOURCE FOR ALGOL68C SUBROUTINES WRITTEN IN ASSEMBLER, BUT NOT CALLABLE FROM ALGOL68C PROGRAMS.
           EACH PROCEDURE STARTS ON LINE N*1000, WHERE -3 <= N <= 12.  THERE IS A DIRECTORY AT LINE 1.
           THESE ROUTINES ARE CALLED BY THE ROUTINES IN COMPONENT 3013/8.
           THIS FILE NEEDS COMPONENTS  3013/10, 3013/11, AND 3013/12 TO BE ASSEMBLED; IT DOES NOT NEED *SYSMAC.
           IT ALSO NEEDS ALL THE LINES IN THE NEGATIVE NUMBERS IN COMPONENT 3013/8.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          THERE IS NO END LINE IN THIS FILE.
03013/010   ALGOL68C                 RUN-TIME LIB    SM  O          S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.SM.010                  
            D4T3    699  ALGOL68C.RUN-TIME_LIB.SM.010       1 LINE     72   12 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:57:33
0          MTS-INDEPENDENT MACROS ESPECIALLY FOR ALGOL68C.
03013/011   ALGOL68C                 RUN-TIME LIB    SM  O          S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.SM.011                  
            D4T3    700  ALGOL68C.RUN-TIME_LIB.SM.011       1 LINE     71    5 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:57:40
0          MTS-DEPENDENT MACROS ESPECIALLY FOR ALGOL68C.
03013/012   ALGOL68C                 GENERAL MACROS  SM  O          S0684 UNSP FSNAME=ALGOL68C.GENERAL_MACROS.SM.012                
            D4T3    701  ALGOL68C.GENERAL_MACROS.SM.012     1 LINE     72    7 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:57:48
0          GENERAL-PURPOSE MACROS USED BY COMPONENTS 3013/8 AND 3013/9.
03013/013   ALGOL68C                 RUN-TIME LIB    OE  O          S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.OS.013                  
            D4T3    702  ALGOL68C.RUN-TIME_LIB.OE.013       1 LINE    255    1 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:57:55
0          THE INITIALIZATION SECTION FOR EVERY ALGOL68C OBJECT PROGRAM.
           IT PROCESSES PARAMETERS BEFORE THE FIRST ";" IN THE PAR= STRING, AND PASSES THE REST TO THE USER.
0          Referenced by comments of: 3013/2, 3013/4 
03013/014   ALGOL68C                 COMPILER INIT   D              S0684 UNSP FSNAME=ALGOL68C.COMPILER_INIT.D.014                  
            D4T3    703  ALGOL68C.COMPILER_INIT.D.014       1 LINE     96    1 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:58:03
0          THE COMPILER INITIALIZATION FILE.  IT CONTAINS ALL THE KEYWORDS RECOGNIZED BY THE COMPILER.
           THIS COMPENENT (AND STD ENV1, SAMPLE PROGS, AND STD ENV2) USES BOTH UPPER AND LOWER CASE.
           COMPONENT 3013/28 NEEDS COMPILER INIT AND STD ENV1 WITH ALL KEYWORDS AND IDENTIFIERS CHANGED
           TO MATCH ITS STROPPING CONVENTION.
03013/015   ALGOL68C                 STD ENV1        D              S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.D.015                       
            D4T3    704  ALGOL68C.STD_ENV1.D.015            1 LINE     73    3 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:58:10
0          AN ENVIRONMENT FILE DESCRIBING THE BARE Z MACHINE AND SOME OF THE ROUTINES PROVIDED IN COMPONENT 3013/7.
           THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION.
03013/016   ALGOL68C                 STD ENV1        D              S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.D.016                       
            D4T3    705  ALGOL68C.STD_ENV1.D.016            1 LINE     46    2 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:58:17
0          AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE.
           IT POINTS AT COMPONENT 3013/15.
           THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION.
03013/017   ALGOL68C                 STD ENV1        D              S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.D.017                       
            D4T3    706  ALGOL68C.STD_ENV1.D.017            1 LINE     46    2 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:58:24
0          AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE.
           IT POINTS AT COMPONENT 3013/16.
           THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03013/018   ALGOL68C                 STD ENV1        D              S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.D.018                       
            D4T3    707  ALGOL68C.STD_ENV1.D.018            1 LINE     46    2 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  08:58:31
0          AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE.
           IT POINTS AT COMPONENT 3013/17.
           THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION.
03013/019   ALGOL68C                 URM             PF  B          S0684 UNSP FSNAME=ALGOL68C.URM.PF.019                           
            D4T3    708  ALGOL68C.URM.PF.019                1 LINE     83   69 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:12:20
0          THIS IS THE REFERENCE MANUAL RECEIVED FROM CAMBRIDGE.  IT IS DATED JUNE 1975.
           IT DESCRIBES ALGOL68C AS IT WAS CONCEIVED, NOT AS IT REALLY IS.
           MANY OF THE DISCREPANCIES BETWEEN THIS MANUAL AND REALITY ARE NOTED BY THE COMPILER AS "NOT YET IMPLEMENTED."
           THIS MANUAL DESCRIBES THE TRANSPUT AS PROVIDED BY SUB-COMPONENT STD ENV1.
           THE MANUAL IS 8.2" WIDE, EXCLUDING THE RIGHT MARGIN.
03013/020   ALGOL68C                 SAMPLE PROGS    S6  S          S0684 UNSP FSNAME=ALGOL68C.SAMPLE_PROGS.S6.020                  
            D4T3    709  ALGOL68C.SAMPLE_PROGS.S6.020       1 LINE     94    7 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:12:27
0          THIS IS A PSEUDO-LIBRARY OF ALGOL68C PROGRAMS.
           THEY ARE MOSTLY TESTS OF THE COMPILER.
03013/021   ALGOL68C                 STD ENV2        S6  S          S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.S6.021                      
            D4T3    710  ALGOL68C.STD_ENV2.S6.021           1 LINE    108    8 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:12:33
0          A MORE COMPREHENSIVE STANDARD ENVIRONMENT THAN STD ENV1.  IT INCLUDES ALL THE
           ROUTINES IN COMPONENT 3013/7, AND (IN TWO PARTS) MOST OF THE UNFORMATTED TRANSPUT DESCRIBED IN THE REVISED REPORT.
           MAJOR ADDITIONS TO STD ENV1 INCLUDE 'READREAL', 'READSTRING', 'READBITS', AND THE OPERATORS FOR COMPL.
           STD ENV2 IS NOT YET DEBUGGED!!
             THIS PARTICULAR COMPONENT IS A MOST GLOBAL PROGAM SEGMENT.
03013/022   ALGOL68C                 STD ENV2        S6  S          S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.S6.022                      
            D4T3    711  ALGOL68C.STD_ENV2.S6.022           1 LINE     76    4 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:12:40
0          PART II OF A MORE COMPREHENSIVE STANDARD ENVIRONMENT.
           THIS PROGRAM IS CONCEPTUALLY A PART OF COMPONENT 3013/21; I.E. IT IS A SECOND-LEVEL PROGRAM SEGMENT.
03013/023   ALGOL68C                 STD ENV2        D              S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.D.023                       
            D4T3    712  ALGOL68C.STD_ENV2.D.023            1 LINE     45    3 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:12:47
0          THE ENVIRONMENT FILE OUTPUT OF COMPONENT 3013/21; IT POINTS AT COMPONENT 3013/27.
03013/024   ALGOL68C                 STD ENV2        D              S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.D.024                       
            D4T3    713  ALGOL68C.STD_ENV2.D.024            1 LINE     37    3 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:12:54
0          THE ENVIRONMENT FILE OUTPUT OF COMPONENT 3013/22; IT POINTS AT COMPONENT 3013/23.
03013/025   ALGOL68C                 STD ENV2        OC  S          S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.OC.025                      
            D4T3    714  ALGOL68C.STD_ENV2.OC.025           1 SEQ   11568    4 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:13:01
0          THE OBJECT FILE OUTPUT OF COMPONENT 3013/21.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03013/026   ALGOL68C                 STD ENV2        OC  S          S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.OC.026                      
            D4T3    715  ALGOL68C.STD_ENV2.OC.026           1 LINE     73    5 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:13:08
0          THE OBJECT FILE OUTPUT OF COMPONENT 3013/22.
03013/027   ALGOL68C                 STD ENV2        D              S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.D.027                       
            D4T3    716  ALGOL68C.STD_ENV2.D.027            1 LINE     95    4 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:13:15
0          THIS IS COMPONENT 3013/15 MODIFIED TO INCLUDE THE NAMES OF ALL THE ROUTINES IN
           3013/7 WHICH CAME FROM 3013/8 (I.E. ARE CALLABLE FROM ALGOL68C).
03013/028   ALGOL68C                 COMPILER        OE  O          S0684 UNSP FSNAME=ALGOL68C.COMPILER.OE.028                      
            D4T3    717  ALGOL68C.COMPILER.OE.028           1 SEQ   32767   45 PAGE UQV  MAILLOUX  UNSP      MAR. 20, 1976  08:46:50
0          THIS IS THE SAME AS COMPONENT 3013/1, BUT IT HAS A DIFFERENT TRANSLATE TABLE
           (STROPPING CONVENTION).  IT USES A SINGLE CASE WITH KEYWORDS PREFIXED BY AN
           APOSTROPHE; E.G.   'BEGIN 'INT I; READ(I); PRINT(I); 'SKIP  'END
03013/029   ALGOL68C                 RUN-TIME LIB    OL  O          S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.OL.029                  
            D4T3    718  ALGOL68C.RUN-TIME_LIB.OL.029       1 SEQ     255    2 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:16:30
0          SOME SUBROUTINES USED BY COMPONENT 3013/7 WHICH USE S-TYPE LINKAGE.
           THE ROUTINES INCLUDE:
           DTSTAMP: RETURNS A 16-CHARACTER DATE AND TIME-OF-DAY STRING IN THE FORMAT "YY-MM-DD @ HH:MM"
           ERRMSG:  LIKE SERCOM, BUT ALSO WRITES ON *SINK* AND *MSINK* IF DIFFERENT
           ZDREAL:  CONVERTS (ZONED DECIMAL(18),INTEGER) TO REAL(8)
           REALZD:  CONVERTS REAL(8) TO (ZONED DECIMAL(18),INTEGER)
03013/030   ALGOL68C                 STD ENV1        OE  O          S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.OE.030                      
            D4T3    719  ALGOL68C.STD_ENV1.OE.030           1 SEQ    3402    2 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:16:32
0          THE OBJECT FILE SUPPORTING FEATURES DESCRIBED IN COMPONENTS 3013/16, 3013/17, AND 3013/18.
           IT CONTAINS ROUTINES AVAILABLE TO ALGOL68C PROGRAMS.
           IT USE SOME ROUTINES FROM COMPONENT 3013/7.
03013/031   ALGOL68C                 STD ENV1        OC  G          S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.OC.031                      
            D4T3    720  ALGOL68C.STD_ENV1.OC.031           1 LINE     34    1 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:16:39
0          THIS IS JUST AN ABBREVIATION FOR "AL68:USER+AL68:ZLIB+AL68:LIBRARY."
           I.E.  COMPONENTS 3013/30, 3013/7, 3013/29.
03013/032   ALGOL68C                 COMPILER        D              S0684 UNSP FSNAME=ALGOL68C.COMPILER.D.032                       
            D4T3    721  ALGOL68C.COMPILER.D.032            1 LINE    120    1 PAGE UQV  MAILLOUX  UNSP      OCT. 11, 1976  09:16:46
0          THE NEWS FILE USED BY COMPONENT 3013/6.  THE OLD NEWS IS IN THE NEGATIVE LINE RANGE.
03014       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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03016       APLSV                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE SV
           VERSION OF APL.
03017      *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                                          
            UQVD06  246  TEXTFORM.DESIGN_SPECS.WF.1         1 LINE    172   20 PAGE UQV  TXTFGROUP LIFT      FEB. 17, 1976  10:56:30
0          This is the final version of the TEXTFORM design specifications.
            
           The members of the "TXTFGROUP" are:
                Grant Crawford
                Dave Holberton
                Earl Culham
                Debbie Reinhart
03018/002   TEXTFORM                 DESIGN SPECS    PF           # NOT DISTRIBUTED BY UQV                                          
            UQVD06  247  TEXTFORM.DESIGN_SPECS.PF.2         1 LINE    193   68 PAGE UQV  TXTFGROUP LIFT      FEB. 17, 1976  10:56:46
0          Printer copy of 3018/1.
03018/003   TEXTFORM                 RESTORE         C              TXTF:CREATES                                                    
            D4.2T2  259  TEXTFORM.RESTORE.C.003             1 LINE    143    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:57:00
0          For installations installing TEXTFORM for the first time: 
               Component 3018/5 (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 (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        
            D4.2T2  260  TEXTFORM.INTERNALS.WX.004          1 LINE    255  306 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:49:56
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/13, 3018/62, 3018/82, 3018/126, 3018/127, 3018/128, 3018/129, 3018/158, 3018/163,
                 3018/164, 3018/165, 3018/169 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/005   TEXTFORM                 INTERNALS       PX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTERNALS.PX.005        
            D4.2T2  261  TEXTFORM.INTERNALS.PX.005          1 LINE    108 1036 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:50:48
0           Print file for 3018/4 - about 1000 pages of TN.
            (The Table of Contents is at the end of the print file.) 
03018/006   TEXTFORM                 INTRODUCTION    WX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTRODUCTION.WX.006     
            D4.2T2  262  TEXTFORM.INTRODUCTION.WX.006       1 LINE    229   56 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:53:00
0          The INTRODUCTION manual - set up for the 1403.
03018/007   TEXTFORM                 USERS           WX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.USERS.WX.007            
            D4.2T2  263  TEXTFORM.USERS.WX.007              1 LINE    236   58 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:54:31
0          The USERS manual - set up for the 1403.
03018/008   TEXTFORM                 REFERENCE       WX             S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.REFERENCE.WX.008        
            D4.2T2  264  TEXTFORM.REFERENCE.WX.008          1 LINE    210   49 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:55:40
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.)
03018/009   TEXTFORM                 LAYOUT_DEF      WX           # (NOT AVAILABLE YET)                                             
                                                                                    UQV  TXTFGROUP LIFT                             
0          The layout definition manual will go here.
03018/010   TEXTFORM                 *TEXTFORM       OE  G          *TEXTFORM                                                       
            D4.2T2  265  TEXTFORM.*TEXTFORM.OE.010          1 LINE   4092    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:35
                         *TEXTFORM            
0          The user-loaded portion of Version 1.0 of TEXTFORM.
            
           OBJECT OF TEXTFORM (3018/56) AND NUCLEUS (3018/34).
0          Referenced by comments of: 3018/56, 3018/64, 3018/65 
03018/011   TEXTFORM                 SEG2TXTF        OC  G          SEG2:TEXTFORM                                                   
            D4.2T2  266  TEXTFORM.SEG2TXTF.OC.011           1 LINE  13324   56 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:35
                         SEG2:TEXTFORM        
0          The re-entrant part of the code - to live in shared vm.
0          Referenced by comments of: 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/22, 3018/24, 3018/28,
                 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/43, 3018/48, 3018/50, 3018/52, 3018/53, 3018/54, 3018/55,
                 3018/57, 3018/67, 3018/78, 3018/118, 3018/119, 3018/120 
03018/012   TEXTFORM                 TXTFMSGS        M              ETC:TXTFMSGS                                                    
            D4.2T2  267  TEXTFORM.TXTFMSGS.M.012            1 LINE     88    6 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:40
                         ETC:TXTFMSGS         
0          ERROR MESSAGES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/013   TEXTFORM                 AMWID           SA  G          TXTF:AMWID.S                                                    
            D4.2T2  268  TEXTFORM.AMWID.SA.013              1 LINE     80   16 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:41
0          PROGRAM FOR BUILDING AM748 PHOTOTYPESETTER WIDTH TABLES.  SEE THE INTERNALS
           MANUAL (3018/4) FOR A DESCRIPTION.
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/014   TEXTFORM                 AM748N          SA  G          TXTF:AM748N.S                                                   
            D4.2T2  269  TEXTFORM.AM748N.SA.014             1 LINE     80   55 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:42
0          AM748 PHOTOTYPESETTER OUTPUT DEVICE PROCESSOR (OD).  COPIES GBLC (3018/123),
           GBLS (3018/23), AND XODTGETM (3018/147).  OBJECT IN TXTFODS (3018/159).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/015   TEXTFORM                 ATPAC           SA  G          TXTF:ATPAC.S                                                    
            D4.2T2  270  TEXTFORM.ATPAC.SA.015              1 LINE     80   10 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:48
0          CONTAINS THE ATEXEC, ATERASE, ATINS, ATRAINS, ATRAERS, ECQSTRG, AND EXDG
           SUBROUTINES FOR AT-POINT PROCESSING.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/016   TEXTFORM                 CHPAC           SA  G          TXTF:CHPAC.S                                                    
            D4.2T2  271  TEXTFORM.CHPAC.SA.016              1 LINE     80   37 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:49
0          CONTAINS THE GETVAL, RETVAL, SETATTR, SETVAL, GETPV, SECHG, PSVTAB, ASSIGN,
           HCHANGE, AND ERSVTAB SUBROUTINES FOR SYMBOL TABLE PROCESSING.  OBJECT IN
           SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/017   TEXTFORM                 CONVPAC         SA  G          TXTF:CONVPAC.S                                                  
            D4.2T2  272  TEXTFORM.CONVPAC.SA.017            1 LINE     80   47 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:52
0          CONTAINS SUBROUTINES FOR CASE, LANGUAGE, STRING, AND NUMBER CONVERSION.
           OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/018   TEXTFORM                 CWKDAY          SA  G          TXTF:CWKDAY.S                                                   
            D4.2T2  273  TEXTFORM.CWKDAY.SA.018             1 LINE     80    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:58
0          CONTAINS DATA AND TIME SUBROUTINE.  OBJECT IN 3018/78 AND SEG2:TEXTFORM
           (3018/11).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/019   TEXTFORM                 DEVPAC          SA  G          TXTF:DEVPAC.S                                                   
            D4.2T2  274  TEXTFORM.DEVPAC.SA.019             1 LINE     80   16 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  01:59:58
0          COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
           OBJECT IN SEG2:TEXTFORM (3018/11).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/020   TEXTFORM                 EXPAC           SA  G          TXTF:EXPAC.S                                                    
            D4.2T2  275  TEXTFORM.EXPAC.SA.020              1 LINE     80   73 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:00
0          CONTAINS THE TXTFDRVR, GCI, PARSER, COMDEXEC SUBROUTINES AND FRIENDS. 
           OBJECT IN  SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS
           (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
0          Referenced by comments of: 3018/155 
03018/021   TEXTFORM                 EXPRPAC         SA  G          TXTF:EXPRPAC.S                                                  
            D4.2T2  276  TEXTFORM.EXPRPAC.SA.021            1 LINE     80   28 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:09
0          CONTAINS THE EVALUATE, EXPREV, AND EXEVAL SUBROUTINES FOR EXPRESSION
           EVALUATION.  OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123)
           AND GBLS (3018/23). 
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/022   TEXTFORM                 FUNPAC          SA  G          TXTF:FUNPAC.S                                                   
            D4.2T2  277  TEXTFORM.FUNPAC.SA.022             1 LINE     80   35 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:12
0          TEXTFORM FUNCTIONS.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/023   TEXTFORM                 GBLS            SA  G          TXTF:GBLS                                                       
            D4.2T2  278  TEXTFORM.GBLS.SA.023               1 LINE     80    6 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:16
0          COPY SECTION OF GLOBAL SYMBOLS INCLUDING INSTALLATION OPTIONS.  COPIES 
           GBLD (3018/122). COPIED BY MANY TEXTFORM SUBCOMPONENTS.
0          Referenced by comments of: 3018/14, 3018/15, 3018/16, 3018/17, 3018/19, 3018/20, 3018/21, 3018/22, 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/39, 3018/42, 3018/43, 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/57, 3018/118, 3018/119, 3018/120, 3018/139, 3018/140, 3018/150,
                 3018/152, 3018/154, 3018/155, 3018/161, 3018/174 
03018/024   TEXTFORM                 GFDSTAR         SA  G          TXTF:GFDSTAR.S                                                  
            D4.2T2  279  TEXTFORM.GFDSTAR.SA.024            1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:17
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/123) AND GBLS (3018/23).  OBJECT IN 3018/67 AND 
           SEG2:TEXTFORM (3018/11). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/025   TEXTFORM                 GFDN            SA  G          TXTF:GFDN.S                                                     
            D4.2T2  280  TEXTFORM.GFDN.SA.025               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:18
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/123) AND GBLS (3018/23).  OBJECT IN 3018/68.
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/026   TEXTFORM                 GFDO            SA  G          TXTF:GFDO.S                                                     
            D4.2T2  281  TEXTFORM.GFDO.SA.026               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:18
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/123) AND GBLS (3018/23).  OBJECT IN 3018/66.
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/027   TEXTFORM                 GFDT            SA  G          TXTF:GFDT.S                                                     
            D4.2T2  282  TEXTFORM.GFDT.SA.027               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:19
0          CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON 
           TEXTFORM REFERENCED/LOADED FILES.  THIS IS THE TXTF: VERSION.  COPIES 
           (3018/123) AND GBLS (3018/23).  OBJECT IN 3018/69.
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/028   TEXTFORM                 GOPAC           SA  G          TXTF:GOPAC.S                                                    
            D4.2T2  283  TEXTFORM.GOPAC.SA.028              1 LINE     80   21 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:20
0          CONTAINS THE TXTFINIT AND TXTFTERM SUBROUTINES TO INITIALIZE AND TERMINATE
           TEXTFORM. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND 
           GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/029   TEXTFORM                 HYPAC           SA  G          TXTF:HYPAC.S                                                    
            D4.2T2  284  TEXTFORM.HYPAC.SA.029              1 LINE     80   25 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:22
0          CONTAINS HYPHENATION SUBROUTINES.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/030   TEXTFORM                 INTRFACE        SA  G          TXTF:INTRFACE.S                                                 
            D4.2T2  285  TEXTFORM.INTRFACE.SA.030           1 LINE     80    8 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:24
0          CONTAINS THE INTERFACE TO SYSTEM SUBROUTINES.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES *CNFGINFODSECT (654), GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 
03018/031   TEXTFORM                 LISTPAC         SA  G          TXTF:LISTPAC.S                                                  
            D4.2T2  286  TEXTFORM.LISTPAC.SA.031            1 LINE     80   10 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:26
0          CONTAINS THE LISTER, ALTLIST, CHLIST, CR, AND XREFIT SUBROUTINES FOR SOURCE
           LISTING.  OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS 
           (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/032   TEXTFORM                 MACPAC          SA  G          TXTF:MACPAC.S                                                   
            D4.2T2  287  TEXTFORM.MACPAC.SA.032             1 LINE     80   50 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:27
0          CONTAINS THE TXTFINPT SUBROUTINE AND FRIENDS FOR INPUT GETTING, AND 
           THE ROUTINES FOR, IF, WHILE, EXECUTE PROCESSING, ETC.  OBJECT IN
           SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/033   TEXTFORM                 NPP             SA  G          TXTF:NPP.S                                                      
            D4.2T2  288  TEXTFORM.NPP.SA.033                1 LINE     80   57 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:31
0          CONTAINS THE PAGEPROC SUBROUTINE FOR PAGE PROCESSING.  OBJECT IN
           SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/034   TEXTFORM                 NUCLEUS CSECT   SA  G          TXTF:NUCLEUS.S                                                  
            D4.2T2  289  TEXTFORM.NUCLEUS_CSECT.SA.034      1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:37
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/121),
           GBLC (3018/123), AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND
           3=DSECTS (3018/61).
0          Referenced by comments of: 3018/10 
03018/035A  TEXTFORM                 OD.AJ832        SA  G          TXTF:OD.AJ832.S                                                 
            4.3T2   544  TEXTFORM.OD.AJ832.SA.035           1 LINE     80   31 PAGE UQV  TXTFGROUP LIFT      APR. 06, 1980  14:55:58
0          THE OUTPUT DEVICE PROCESSOR FOR THE ANDERSON-JACOBSON 832 TERMINAL.  OBJECT
           IN TXTFODS (3108/159). COPIES GBLC (3018/123), GBLS (3018/23), AND XODTGETM
           (3018/147). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
            
            
           _*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*
            
                THIS DISTRIBUTION, D4.3, REFLECTS THE CURRENTLY INSTALLED VERSION OF
                TEXTFORM AT UM, AND NOT THE MARCH 1980 TAPE DISTRIBUTED BY ALBERTA.
            
           _*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_* 
            
           *****************************************************************************
           D4.3 CHANGES:
            
           FIXED FONT-CHANGING BUG.
           *****************************************************************************
03018/036   TEXTFORM                 OD.DECWR        SA  G          TXTF:OD.DECWR.S                                                 
            D4.2T2  291  TEXTFORM.OD.DECWR.SA.036           1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:40
0          THE OUTPUT DEVICE PROCESSOR FOR THE DECWRITER TERMINAL.  OBJECT IN 
           TXTFODS (3018/159). COPIES GBLC (3018/123), GBLS (3018/23), OD.1403.M
           (3018/41), AND XODTGETM (3018/147).  ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/037   TEXTFORM                 OD.DOC          SA  G          TXTF:OD.DOC.S                                                   
            D4.2T2  292  TEXTFORM.OD.DOC.SA.037             1 LINE     80   23 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:41
0          CONTAINS THE ODDOC SUBROUTINE WHICH PRODUCES OUTPUT DEVICE AND FONT
           DESCRIPTIONS.  USES TXTF.ODW (3018/59) AS DATA.  OBJECT IN 3018/165.
           COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60)
           AND 3=DSECTS (3018/61).
0          Referenced by comments of: 3018/59 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/038   TEXTFORM                 OD.SKEL         SA  G          TXTF:OD.SKEL.S                                                  
            D4.2T2  293  TEXTFORM.OD.SKEL.SA.038            1 LINE     80   15 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:43
0          SKELETON FOR OUTPUT DEVICE PROCESSORS.  USEFUL AS A BASIS FOR WRITING AN OD.
           COPIES XODTGETM (3018/147), GBLC (3018/123), AND GBLS (3018/23).  ASSEMBLE
           WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/039   TEXTFORM                 OD.TBLGEN       SA  G          TXTF:OD.TBLGEN.S                                                
            D4.2T2  294  TEXTFORM.OD.TBLGEN.SA.039          1 LINE     80   32 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:45
0          CONTAINS THE GENTAB SUBROUTINE WHICH PRODUCES OUTPUT DEVICE PROCESSOR WIDTH
           TABLES.  COPIES GBLS (3018/23), AND GBLC (3018/123). ASSEMBLE WITH 2=MACROS
           (3018/60) AND 3=DSECTS (3018/61). OBJECT IN 3018/163.
0          Referenced by comments of: 3018/92, 3018/96, 3018/97, 3018/98, 3018/99, 3018/100, 3018/101, 3018/102, 3018/105,
                 3018/107, 3018/110, 3018/127, 3018/141, 3018/142, 3018/143, 3018/144, 3018/145, 3018/146, 3018/153, 3018/162 
03018/040   TEXTFORM                 OD.1403.D       SA  G          TXTF:OD.1403.D.S                                                
            D4.2T2  295  TEXTFORM.OD.1403.D.SA.040          1 LINE     80    7 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:48
0          DSECTS FOR OUTPUT DEVICE PROCESSORS FOR IBM 1403-COMPATIBLE PRINTERS.  COPIED 
           BY 3018/41 AND 3018/44.
            
           LINE NUMBERS IN THIS FILE ARE IMPORTANT.
03018/041   TEXTFORM                 OD.1403.M       SA  G          TXTF:OD.1403.M.S                                                
            D4.2T2  296  TEXTFORM.OD.1403.M.SA.041          1 LINE     80   57 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:49
0          CODE FOR OUTPUT DEVICE PROCESSORS FOR IBM 1403-COMPATIBLE PRINTERS.  COPIES 
           3018/40. COPIED BY 3018/36, 3018/42, 3018/45, 3018/46, AND 3018/47.
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
0          Referenced by comments of: 3018/36, 3018/42, 3018/45, 3018/46, 3018/47 
03018/042   TEXTFORM                 OD.1403         SA  G          TXTF:OD.1403.S                                                  
            D4.2T2  297  TEXTFORM.OD.1403.SA.042            1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:56
0          OUTPUT DEVICE PROCESSOR FOR IBM 1403.  OBJECT IN TXTFODS (3018/159).
           COPIES GBLC (3018/123), GBLS (3018/23), XODTGETM (3018/147), AND OD.1403.M
           (3018/41). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/043   TEXTFORM                 ODM             SA  G          TXTF:ODM.S                                                      
            D4.2T2  298  TEXTFORM.ODM.SA.043                1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:57
0          CONTAINS TXTFODCM, THE OUTPUT DEVICE LOADER.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLS (3018/23) AND ODPD.M (3018/44). ASSEMBLE WITH 2=MACROS (3018/60)
           AND 3=DSECTS (3018/61).
0          Referenced by comments of: 3018/44, 3018/150 
03018/044   TEXTFORM                 ODPD.M          SA  G          TXTF:ODPD.M.S                                                   
            D4.2T2  299  TEXTFORM.ODPD.M.SA.044             1 LINE     80   21 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:00:58
0          COPIES 3018/40. COPIED BY ODM (3018/43) AND PDM (3018/48).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
0          Referenced by comments of: 3018/43, 3018/48 
03018/045   TEXTFORM                 OSOD.1403       SA  G          TXTF:OSOD.1403.S                                                
            D4.2T2  300  TEXTFORM.OSOD.1403.SA.045          1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:00
0          IBM 1403 PRINTER OUTPUT DEVICE PROCESSOR FOR OS.  COPIES OD.1403.M (3018/41).
           OBJECT IN TXTFODS (3018/159). COPIES GBLC (3018/123), GBLS (3018/23), AND
           XODTGETM (3018/147). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/046   TEXTFORM                 OSPD.1403       SA  G          TXTF:OSPD.1403.S                                                
            D4.2T2  301  TEXTFORM.OSPD.1403.SA.046          1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:01
0          IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR OS.  COPIES OD.1403.M (3018/41),
           XODTGETM.S (3018/147), GBLS (3018/23), AND GBLC (3018/123).  OBJECT IN
           TXTFODS (3018/159). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/047   TEXTFORM                 PD.1403         SA  G          TXTF:PD.1403.S                                                  
            D4.2T2  302  TEXTFORM.PD.1403.SA.047            1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:02
0          IBM 1403 PRINTER PROOF DEVICE PROCESSOR. COPIES OD.1403.M (3018/41),
           XODTGETM.S (3018/147), GBLS (3018/23), AND GBLC (3018/123).  OBJECT IN
           TXTFODS (3018/159). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/048   TEXTFORM                 PDM             SA  G          TXTF:PDM.S                                                      
            D4.2T2  303  TEXTFORM.PDM.SA.048                1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:02
0          CONTAINS TXTFPDCM, THE PROOF DEVICE LOADER.  COPIES GBLS (3018/23),
           GBLC (3018/123), AND ODPD.M (3018/44).  OBJECT IN SEG2:TEXTFORM (3018/11).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
0          Referenced by comments of: 3018/44, 3018/150 
03018/049   TEXTFORM                 PPEXT           SA  G          TXTF:PPEXT.S                                                    
            D4.2T2  304  TEXTFORM.PPEXT.SA.049              1 LINE     80   17 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:03
0          CONTAINS THE CALLPUSH AND CALLPOP SUBROUTINES TO CALL PUSH AND POP, 
           AND PPUNDO, THE INTERNAL PAGE DUMPER. COPIES GBLC (3018/123) AND GBLS
           (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/050   TEXTFORM                 PPPAC           SA  G          TXTF:PPPAC.S                                                    
            D4.2T2  305  TEXTFORM.PPPAC.SA.050              1 LINE     82   85 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:05
0          CONTAINS THE PAGE AND TEXT PROCESSING SUBROUTINES.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/051   TEXTFORM                 PROOF           SA  G          TXTF:PROOF.S                                                    
            D4.2T2  306  TEXTFORM.PROOF.SA.051              1 LINE     82   49 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:13
0          IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR THE AM748 AND APS5 
           PHOTOTYPESETTERS. OBJECT IN TXTFODS (3018/159). COPIES GBLC (3018/123),
           GBLS (3018/23), AND XODTGETM (3018/147). ASSEMBLE WITH 2=MACROS (3018/60)
           AND 3=DSECTS (3018/61).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/052   TEXTFORM                 SCPAC           SA  G          TXTF:SCPAC.S                                                    
            D4.2T2  307  TEXTFORM.SCPAC.SA.052              1 LINE     81   68 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:18
0          CONTAINS MANY SUBROUTINES FOR COMMAND PROCESSING, ETC.  OBJECT IN 
           SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/053   TEXTFORM                 SSPAC           SA  G          TXTF:SSPAC.S                                                    
            D4.2T2  308  TEXTFORM.SSPAC.SA.053              1 LINE     80   12 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:26
0          CONTAINS THE REPACK, CRECHECK, DESCHECK, TSKIP, CONVMSG, FIXFDUBS, AND 
           SATRACE SUBROUTINES (MISCELLANEOUS UTILITIES).  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND
           3=DSECTS (3018/61).
03018/054   TEXTFORM                 STPAC           SA  G          TXTF:STPAC.S                                                    
            D4.2T2  309  TEXTFORM.STPAC.SA.054              1 LINE     80   49 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:28
0          CONTAINS THE ATXRSYMB AND READSYMB SUBROUTINES AND FRIENDS FOR SYMBOL TABLE
           AND LAYOUT PROCESSING.  OBJECT IN SEG2:TEXTFORM (3018/11).  COPIES GBLC
           (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/055   TEXTFORM                 SYSPAC          SA  G          TXTF:SYSPAC.S                                                   
            D4.2T2  310  TEXTFORM.SYSPAC.SA.055             1 LINE     80   22 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:34
0          CONTAINS THE ERROR, TIMER, ATTN, AND PGNT SUBROUTINES.  OBJECT IN 
           SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/056   TEXTFORM                 TEXTFORM        SA  G          TXTF:TEXTFORM.S                                                 
            D4.2T2  311  TEXTFORM.TEXTFORM.SA.056           1 LINE     80    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:36
0          CONTAINS TEXTFORM, THE MAIN CSECT.  OBJECT IN *TEXTFORM (3018/10).
           COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
0          Referenced by comments of: 3018/10 
03018/057   TEXTFORM                 TP              SA  G          TXTF:TP.S                                                       
            D4.2T2  312  TEXTFORM.TP.SA.057                 1 LINE     80   31 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:37
0          CONTAINS TEXTPROC, THE TEXT PROCESSOR.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/058   TEXTFORM                 ODT.TN.IWD      D   G          TXTF:ODT.TN.IWD                                                 
            D4.2T2  313  TEXTFORM.ODT.TN.IWD.D.058          1 LINE     65    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:40
0          CONTAINS WIDTH TABLES (INPUT TO GENTAB, 3018/39) FOR THE IBM 1403 PRINTER
           OUTPUT DEVICE PROCESSOR, TN PRINT TRAIN.
03018/059   TEXTFORM                 TXTF.ODW        D   G          TXTF:TXTF.ODW                                                   
            D4.2T2  314  TEXTFORM.TXTF.ODW.D.059            1 LINE    118    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:41
0          DESCRIPTIONS OF OUTPUT DEVICES AND FONTS.  USED BY OD.DOC (3018/37).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          Referenced by comments of: 3018/37 
03018/060   TEXTFORM                 MACROS          SM  G          TXTF:MACROS                                                     
            D4.2T2  315  TEXTFORM.MACROS.SM.060             1 LINE     81   96 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:41
0          MOST TEXTFORM SUBCOMPONENTS REQUIRE THIS MACRO LIBRARY FOR ASSEMBLY.
0          Referenced by comments of: 3018/13, 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/22,
                 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/39, 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/57, 3018/80, 3018/118, 3018/119,
                 3018/120, 3018/131, 3018/139, 3018/140, 3018/150, 3018/152, 3018/154, 3018/155, 3018/161 
03018/061   TEXTFORM                 DSECTS          SM  G          TXTF:DSECTS                                                     
            D4.2T2  316  TEXTFORM.DSECTS.SM.061             1 LINE     80   47 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:49
0          MOST TEXTFORM SUBCOMPONENTS REQUIRE THIS DSECT LIBRARY FOR ASSEMBLY.
0          Referenced by comments of: 3018/13, 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/22,
                 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/39, 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/57, 3018/80, 3018/118, 3018/119,
                 3018/120, 3018/131, 3018/139, 3018/140, 3018/150, 3018/152, 3018/154, 3018/155, 3018/161, 3018/174 
03018/062   TEXTFORM                 SYMBIN          D   G          TXTF:SYMBIN                                                     
            D4.2T2  317  TEXTFORM.SYMBIN.D.062              1 LINE    255   20 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:53
0          TEXTFORM INPUT TO BUILD THE SYMBOL TABLE ("ENVIRONMENT") IN 3018/64.  SEE THE
           INTERNALS MANUAL (3018/4) FOR INSTRUCTIONS.
03018/063   TEXTFORM                 BOOTSYMB        D   G          TXTF:BOOTSYMB                                                   
            D4.2T2  318  TEXTFORM.BOOTSYMB.D.063            1 LINE   4096    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:56
0          THE BOOTSTRAP SYMBOL TABLE (<BILDON>, <COMMAND>, <WNST>).
03018/064   TEXTFORM                 ENVIRONMENT     D   G          ETC:TXTFENVIR                                                   
            D4.2T2  319  TEXTFORM.ENVIRONMENT.D.064         1 LINE  32000   18 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:57
                         ETC:TXTFENVIR        
0          THE SYMBOL TABLE USED IN RUNNING *TEXTFORM (3018/10).
03018/065   TEXTFORM                 TXTFLAYOUTS     D   G          ETC:TXTFLAYOUTS                                                 
            D4.2T2  320  TEXTFORM.TXTFLAYOUTS.D.065         1 LINE    252   69 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:01:59
                         ETC:TXTFLAYOUTS      
0          THE LAYOUTS USED BY *TEXTFORM (3018/10).
03018/066   TEXTFORM                 GFDO            OC  G          TXTF:GFDO.O                                                     
            D4.2T2  321  TEXTFORM.GFDO.OC.066               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:05
0          OBJECT OF 3018/26.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/067   TEXTFORM                 GFDSTAR         OC  G          TXTF:GFDSTAR.O                                                  
            D4.2T2  322  TEXTFORM.GFDSTAR.OC.067            1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:06
0          OBJECT OF 3018/24.  THIS IS THE VERSION IN SEG2:TEXTFORM (3018/11).
03018/068   TEXTFORM                 GFDN            OC  G          TXTF:GFDN.O                                                     
            D4.2T2  323  TEXTFORM.GFDN.OC.068               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:07
0          OBJECT OF 3018/25.
03018/069   TEXTFORM                 GFDT            OC  G          TXTF:GFDT.O                                                     
            D4.2T2  324  TEXTFORM.GFDT.OC.069               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:07
0          OBJECT OF 3018/27.
03018/070   TEXTFORM                 NEWOLD          C              TXTF:NEWOLD                                                     
            D4.2T2  325  TEXTFORM.NEWOLD.C.070              1 LINE     83    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:08
0          COMMANDS TO CREATE A VERSION OF TEXTFORM UNDER OLD:, FROM THE PUBLIC
           FILE VERSION.
03018/071   TEXTFORM                 NEWPUB          C              TXTF:NEWPUB                                                     
            D4.2T2  326  TEXTFORM.NEWPUB.C.071              1 LINE     88    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:08
0          COMMANDS TO COPY THE FILE TXTF:TEXTFORM TO *TEXTFORM AND MAKE AN ENTRY TO
           THE FILE LINKLOG.
03018/072   TEXTFORM                 NEWSTAR         C              TXTF:NEWSTAR                                                    
            D4.2T2  327  TEXTFORM.NEWSTAR.C.072             1 LINE     83    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:09
0          COMMANDS TO CREATE THE PUBLIC FILE VERSION OF TEXTFORM FROM THE NEW: VERSION.
03018/073   TEXTFORM                 NEWNEW          C              TXTF:NEWNEW                                                     
            D4.2T2  328  TEXTFORM.NEWNEW.C.073              1 LINE     79    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:10
0          COMMANDS TO CREATE A VERSION OF TEXTFORM UNDER NEW: FROM FILES UNDER TXTF:.
03018/074   TEXTFORM                 PERCOLATE       C            # TXTF:PERCOLATE                                                  
            Z99491   71  TEXTFORM.PERCOLATE.C.074           1 LINE     64    1 PAGE UQV  TXTFGROUP LIFT      MAR. 31, 1978  09:08:49
0          This file is not distributed because it is full of $EXEC commands 
           which none of you have.
03018/075   TEXTFORM                 LIB             C   G          S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LIB.C.075               
            D4.2T2  329  TEXTFORM.LIB.C.075                 1 LINE     75    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:59:40
03018/076   TEXTFORM                 LINK            C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LINK.C.076              
            D4.2T2  330  TEXTFORM.LINK.C.076                1 LINE     40    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:59:41
03018/077   TEXTFORM                 XCSYMB          C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.XCSYMB.C.077            
            D4.2T2  331  TEXTFORM.XCSYMB.C.077              1 LINE     29    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:59:41
0          COMMANDS TO COPY ENVIR2 --> TXTFENVIR --> OLDENVIR (THE SYMBOL TABLE).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/078   TEXTFORM                 CWKDAY          OC  G          TXTF:CWKDAY.O                                                   
            D4.2T2  332  TEXTFORM.CWKDAY.OC.078             1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:28
0          OBJECT OF 3018/18. ALSO INCLUDED IN SEG2:TEXTFORM (3018/11). 
03018/079   TEXTFORM                 LOGJOB          C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LOGJOB.C.079            
            D4.2T2  333  TEXTFORM.LOGJOB.C.079              1 LINE    111    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  21:59:43
0          COMMANDS TO *FS TO SAVE ETC:TXTFLOG (3018/166).
0          Referenced by comments of: 3018/80, 3018/166 
03018/080   TEXTFORM                 LOG             SA  G          TXTF:LOG.S                                                      
            D4.2T2  334  TEXTFORM.LOG.SA.080                1 LINE     80    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:29
0          PROGRAM WHICH DECIDES WHEN TO START LOGJOB (3018/79).  READS 3018/79.
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/081   TEXTFORM                 LOG             OC  G          TXTF:LOG.O                                                      
            D4.2T2  335  TEXTFORM.LOG.OC.081                1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:30
0          OBJECT OF 3018/80.
03018/082   TEXTFORM                 LAY.SKEL        D   G          TXTF:LAY.SKEL                                                   
            D4.2T2  336  TEXTFORM.LAY.SKEL.D.082            1 LINE    229    6 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:30
0          A SKELETON, OR SAMPLE, FOR BUILDING LAYOUTS.  SEE "HOW TO BUILD A LAYOUT"
           IN THE INTERNALS MANUAL (3018/4).
03018/083   TEXTFORM                 LAY.THES        D   G          TXTF:LAY.THES                                                   
            D4.2T2  337  TEXTFORM.LAY.THES.D.083            1 LINE    202    6 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:31
0          THE THESIS LAYOUT.
03018/084   TEXTFORM                 LAY.TUT         D   G          TXTF:LAY.TUT                                                    
            D4.2T2  338  TEXTFORM.LAY.TUT.D.084             1 LINE    229    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:32
0          THE TUTORIAL LAYOUT.
03018/085   TEXTFORM                 LAY.NEWS        D   G          TXTF:LAY.NEWS                                                   
            D4.2T2  339  TEXTFORM.LAY.NEWS.D.085            1 LINE    140    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:32
0          THE NEWSLETTER LAYOUT.
03018/086   TEXTFORM                 LAY.OUT         D   G          TXTF:LAY.OUT                                                    
            D4.2T2  340  TEXTFORM.LAY.OUT.D.086             1 LINE    246    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:33
0          This used to be Layout REPORT, but it is now Layout OUTLINE.
03018/087   TEXTFORM                 LAY.REF         D   G          TXTF:LAY.REF                                                    
            D4.2T2  341  TEXTFORM.LAY.REF.D.087             1 LINE    229    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:34
0          THE REFERENCE LAYOUT.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/088   TEXTFORM                 LAY.TECH        D   G          TXTF:LAY.TECH                                                   
            D4.2T2  342  TEXTFORM.LAY.TECH.D.088            1 LINE    229    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:34
0          THE TECHNICAL LAYOUT.
03018/089   TEXTFORM                 LAY.UBC         D   G          TXTF:LAY.UBC                                                    
            D4.2T2  343  TEXTFORM.LAY.UBC.D.089             1 LINE    187    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:35
0          LAYOUT UBC.
03018/090   TEXTFORM                 LAY.UM          D   O          TXTF:LAY.UM                                                     
            D4.2T2  344  TEXTFORM.LAY.UM.D.090              1 LINE    158    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:36
0          LAYOUT UM. THIS NEEDS SOME CHANGES, BUT IT DOES WORK.
03018/091   TEXTFORM                 HYPHDICT        D   G          ETC:TXTFHYPHDICT                                                
            D4.2T2  345  TEXTFORM.HYPHDICT.D.091            1 LINE     22    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:36
                         ETC:TXTFHYPHDICT     
0          THE HYPHENATION DICTIONARY.
03018/092A  TEXTFORM                 WIDTHS          D   G          ETC:TXTFWIDS                                                    
            4.3T2   545  TEXTFORM.WIDTHS.D.092              1 LINE   1653  152 PAGE UQV  TXTFGROUP LIFT      APR. 06, 1980  14:56:02
                         ETC:TXTFWIDS         
0          WIDTH TABLES "LIBRARY" FOR OUTPUT PROCESSORS, AS CREATED BY TBLGEN (3018/39).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           WIDTH TABLES FOR SPINWRITER AND DIABLO 1620 ADDED.  THESE ARE IDENTICAL TO
           THE TABLES IN 3018/162, BUT ARE INCLUDED IN THIS DISTRIBUTION FOR THE SAKE
           OF COMPLETENESS.
           *****************************************************************************
03018/093   TEXTFORM                 FUNCDEFS        D   G          TXTF:SYSFUNCS                                                   
            D4.2T2  347  TEXTFORM.FUNCDEFS.D.093            1 LINE    137    8 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:45
03018/094   TEXTFORM                 NEWOBJ          OC  G          TXTF:NEWSYS                                                     
            D4.2T2  348  TEXTFORM.NEWOBJ.OC.094             1 LINE     32    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:46
0          CONTAINS A COM CARD, AND $CONTINUE WITHS FOR THE OBJECT MODULES IN 
           TEXTFORM.  USED BY BUILD (3018/112).
03018/095   TEXTFORM                 BUILD.SUPP      C              TXTF:BUILD.SUPP                                                 
            D4.2T2  349  TEXTFORM.BUILD.SUPP.C.095          1 LINE    127    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:47
0          REFERS TO "*FORTG".
03018/096   TEXTFORM                 ODT.AJ.IWD      D              TXTF:ODT.AJ.IWD                                                 
            D4.2T2  350  TEXTFORM.ODT.AJ.IWD.D.096          1 LINE     58    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:47
0          GENTAB (3018/39) INPUT FOR ANDERSON-JACOBSON 832 TERMINAL 
           WIDTH/INTERNAL TABLES.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/097   TEXTFORM                 ODT.ALA.IWD     D              TXTF:ODT.ALA.IWD                                                
            D4.2T2  351  TEXTFORM.ODT.ALA.IWD.D.097         1 LINE     65    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:48
0          GENTAB (3018/39) INPUT FOR IBM 1403 PRINTER ALA PRINT TRAIN WIDTH/INTERNAL
           TABLES.
03018/098   TEXTFORM                 ODT.AMM.IWD     D              TXTF:ODT.AMM.IWD                                                
            D4.2T2  352  TEXTFORM.ODT.AMM.IWD.D.098         1 LINE    107   22 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:49
0          GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER MATH DISK WIDTH/INTERNAL
           TABLES.
03018/099   TEXTFORM                 ODT.AMS.IWD     D              TXTF:ODT.AMS.IWD                                                
            D4.2T2  353  TEXTFORM.ODT.AMS.IWD.D.099         1 LINE     79   17 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:51
0          GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER SCHOOLBOOK DISK
           WIDTH/INTERNAL TABLES.
03018/100   TEXTFORM                 ODT.AMT.IWD     D              TXTF:ODT.AMT.IWD                                                
            D4.2T2  354  TEXTFORM.ODT.AMT.IWD.D.100         1 LINE     79   15 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:52
0          GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER TIMES-ROMAN DISK 
           WIDTH/INTERNAL TABLES.
03018/101   TEXTFORM                 ODT.AMU.IWD     D              TXTF:ODT.AMU.IWD                                                
            D4.2T2  355  TEXTFORM.ODT.AMU.IWD.D.101         1 LINE     79   17 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:54
0          GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER UNIVERS DISK 
           WIDTH/INTERNAL TABLES.
03018/102   TEXTFORM                 ODT.APL.IWD     D              TXTF:ODT.APL.IWD                                                
            D4.2T2  356  TEXTFORM.ODT.APL.IWD.D.102         1 LINE     67    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:55
0          GENTAB (3018/39) INPUT FOR IBM 1403 PRINTER APL PRINT TRAIN WIDTH/INTERNAL
           TABLES.
03018/103   TEXTFORM                 ODT.CHK         D              TXTF:ODT.CHK                                                    
            D4.2T2  357  TEXTFORM.ODT.CHK.D.103             1 LINE     84    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:56
03018/104   TEXTFORM                 ODT.CHSPCN      D            # TXTF:ODT.CHSPCN                                                 
            Z99491  101  TEXTFORM.ODT.CHSPCN.D.104          1 LINE     56    3 PAGE UQV  TXTFGROUP LIFT      MAR. 31, 1978  09:09:29
0          No longer required.
03018/105   TEXTFORM                 ODT.DECWR.IW    D              TXTF:ODT.DECWR.IW                                               
            D4.2T2  358  TEXTFORM.ODT.DECWR.IW.D.105        1 LINE     65    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:57
0          GENTAB (3018/39) INPUT FOR DECWRITER TERMINAL WIDTH/INTERNAL TABLES.
03018/106   TEXTFORM                 ODT.DSECT.CH    C              TXTF:ODT.DSECT.CH                                               
            D4.2T2  359  TEXTFORM.ODT.DSECT.CH.C.106        1 LINE     69    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:57
0          COMMANDS TO GENERATE WIDTH AND INTERNAL TABLES FOR OUTPUT DEVICE AND PROOF 
           PROCESSORS.  DTC302 TERMINAL SUPPORT IS NOT YET INCLUDED. CONTAINS MANY 
1                                                                                               SUN SEP 08/96   19:03:19   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          $CONTINUE WITH RECORDS FOR TEXTFORM SOURCE COMPONENTS (SOME OF WHICH HAVE 
           NOT BEEN DISTRIBUTED BY UQV).
03018/107   TEXTFORM                 ODT.P1403M.I    D              TXTF:ODT.P1403M.I                                               
            D4.2T2  360  TEXTFORM.ODT.P1403M.I.D.107        1 LINE     65   10 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:58
0          GENTAB (3018/39) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF DEVICE
           PROCESSOR FOR AM748 PHOTOTYPESETTER MATH DISK.
03018/108   TEXTFORM                 ODT.P1403S.I    D            # TXTF:ODT.P1403S.I                                               
            Z99491  105  TEXTFORM.ODT.P1403S.I.D.108        1 LINE     68    7 PAGE UQV  TXTFGROUP LIFT      MAR. 31, 1978  09:09:33
0          This information is now included in 3018/110
03018/109   TEXTFORM                 ODT.P1403T.I    D            # TXTF:ODT.P1403T.I                                               
            Z99491  106  TEXTFORM.ODT.P1403T.I.D.109        1 LINE     68    7 PAGE UQV  TXTFGROUP LIFT      MAR. 31, 1978  09:09:34
0          This information is now included in 3018/110
03018/110   TEXTFORM                 ODT.P1403U.I    D              TXTF:ODT.P1403U.I                                               
            D4.2T2  361  TEXTFORM.ODT.P1403U.I.D.110        1 LINE     68    7 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:02:59
0          GENTAB (3018/39) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF
           DEVICE PROCESSOR FOR AM748 PHOTOTYPESETTER DISKS.
03018/111   TEXTFORM                 PERMITS         C              TXTF:PERMITS                                                    
            D4.2T2  362  TEXTFORM.PERMITS.C.111             1 LINE     66    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:00
0          COMMANDS TO CREATE AND PERMIT FILES NEEDED FOR A NEW: VERSION OF TEXTFORM.
03018/112   TEXTFORM                 BUILD           C              TXTF:BUILD                                                      
            D4.2T2  363  TEXTFORM.BUILD.C.112               1 LINE    155    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:01
0          Command file to assemble all of TEXTFORM.
0          Referenced by comments of: 3018/94 
03018/113   TEXTFORM                 INTRO CRSE      WX             TXTF:I.OUT                                                      
            D4.2T2  364  TEXTFORM.INTRO_CRSE.WX.113         1 LINE     69    7 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:01
0          MATERIAL FOR INTRODUCTION TO TEXTFORM COURSE.
03018/114   TEXTFORM                 ADVANCED CRSE   WX             TXTF:A.OUT                                                      
            D4.2T2  365  TEXTFORM.ADVANCED_CRSE.WX.114      1 LINE    121    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:02
0          MATERIAL FOR ADVANCES TOPICS IN TEXTFORM COURSE.
03018/115   TEXTFORM                 PUBLISH CRSE    WX             TXTF:PUB.OUT                                                    
            D4.2T2  366  TEXTFORM.PUBLISH_CRSE.WX.115       1 LINE    121    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:03
0          MATERIAL FOR COMPUTER ASSISTED PUBLISHING WITH TEXTFORM COURSE.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/116   TEXTFORM                 AM CHAR TEST    WX             TXTF:AMCST                                                      
            D4.2T2  367  TEXTFORM.AM_CHAR_TEST.WX.116       1 LINE    124    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:03
0          AM748 PHOTOTYPESETTER DESCRIPTION.
03018/117   TEXTFORM                 APS CHAR TEST   WX             TXTF:APSCST                                                     
            D4.2T2  368  TEXTFORM.APS_CHAR_TEST.WX.117      1 LINE    100    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:04
0          APS5 PHOTOTYPESETTER DESCRIPTION.
03018/118   TEXTFORM                 CMDPAC          SA  G          TXTF:CMDPAC.S                                                   
            D4.2T2  369  TEXTFORM.CMDPAC.SA.118             1 LINE     80   23 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:05
0          INTERNAL PAGE COMMAND BUILDER SUBROUTINES.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/119   TEXTFORM                 PPDPAC          SA  G          TXTF:PPDPAC.S                                                   
            D4.2T2  370  TEXTFORM.PPDPAC.SA.119             1 LINE     72   10 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:07
0          LOGICAL BACKSPACE, TABLE PRINTER, AND OTHER SUBROUTINES.  OBJECT IN
           SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23).
           ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/120   TEXTFORM                 LPPAC           SA  G          TXTF:LPPAC.S                                                    
            D4.2T2  371  TEXTFORM.LPPAC.SA.120              1 LINE     80   49 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:08
0          TABLE AND LOGICAL PAGE SUBROUTINES.  OBJECT IN SEG2:TEXTFORM (3018/11).
           COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60)
           AND 3=DSECTS (3018/61).
03018/121   TEXTFORM                 NUCLEUS DSECT   SA  G          TXTF:NUCLEUS                                                    
            D4.2T2  372  TEXTFORM.NUCLEUS_DSECT.SA.121      1 LINE     80   35 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:11
0          CONTAINS THE NUCLEUS DSECT, WHICH IS COPIED BY MOST PARTS OF TEXTFORM
           VIA THE TENTER MACRO.
0          Referenced by comments of: 3018/34 
03018/122   TEXTFORM                 GBLD            SA  G          TXTF:GBLD                                                       
            D4.2T2  373  TEXTFORM.GBLD.SA.122               1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:13
0          CONTAINS GLOBAL SYMBOL DEFINITIONS, WHICH ARE COPIED BY MANY TEXTFORM
           SUBCOMPONENTS.
0          Referenced by comments of: 3018/23, 3018/123 
03018/123   TEXTFORM                 GBLC            SA  G          TXTF:GBLC                                                       
            D4.2T2  374  TEXTFORM.GBLC.SA.123               1 LINE     80    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:14
0          COMMENTS DESCRIBING SYMBOLS IN GBLD (3018/122).  THIS IS COPIED BY MANY
           TEXTFORM SUBCOMPONENTS.
0          Referenced by comments of: 3018/14, 3018/15, 3018/16, 3018/17, 3018/19, 3018/20, 3018/21, 3018/22, 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,
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
 
                 3018/38, 3018/39, 3018/42, 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/57, 3018/118, 3018/119, 3018/120, 3018/139, 3018/140, 3018/150, 3018/152,
                 3018/154, 3018/155, 3018/161 
03018/124   TEXTFORM                 FILES           C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.FILES.C.124             
            D4.2T2  375  TEXTFORM.FILES.C.124               1 LINE     70    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  22:01:19
0          PROTOTYPE FOR COMMAND FILE TO COPY FILES BETWEEN NEW:, OLD:, AND ETC:.  USE
           $EDIT TO PUT IN THE IDS.
03018/125   TEXTFORM                 XCWID           C              S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.XCWID.C.125             
            D4.2T2  376  TEXTFORM.XCWID.C.125               1 LINE     72    1 PAGE UQV  TXTFGROUP LIFT      FEB. 20, 1979  22:01:19
0          COMMANDS TO COPY TXTFWIDS --> TXTFWIDS --> OLDTWIDS (THE WIDTH TABLES).
03018/126   TEXTFORM                 APSWID          D              TXTF:APS.WID.D                                                  
            D4.2T2  377  TEXTFORM.APSWID.D.126              1 LINE    400   10 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:24
0          CHARACTER WIDTHS FOR THE APS5 PHOTOTYPESETTER.  SEE THE INTERNALS MANUAL
           (3018/4) FOR A DESCRIPTION.
03018/127   TEXTFORM                 APSWID          C              TXTF:APSWID.C                                                   
            D4.2T2  378  TEXTFORM.APSWID.C.127              1 LINE     94    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:25
0          COMMANDS TO CREATE GENTAB (3018/39) INPUT FOR THE APS5 PHOTOTYPESETTER.
           SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION.
03018/128   TEXTFORM                 APSCOM          D              TXTF:APSKOM.C                                                   
            D4.2T2  379  TEXTFORM.APSCOM.D.128              1 LINE     94    7 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:25
0          APS5 PHOTOTYPESETTER CHARACTER NAMES.  SEE THE INTERNALS MANUAL
           (3018/4) FOR A DESCRIPTION.
03018/129   TEXTFORM                 APSMERGE        SF  G          TXTF:APSMERG.FS                                                 
            D4.2T2  380  TEXTFORM.APSMERGE.SF.129           1 LINE     80   17 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:26
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/156 
03018/130   TEXTFORM                 APSDUMP         SF  G          TXTF:APSDMP.FS                                                  
            D4.2T2  381  TEXTFORM.APSDUMP.SF.130            1 LINE     70    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:27
03018/131   TEXTFORM                 APSDUMP         SA  G          TXTF:APSDMP.S                                                   
            D4.2T2  382  TEXTFORM.APSDUMP.SA.131            1 LINE     72    7 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:28
0          ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/132   TEXTFORM                 APSREPAGE       SF  G          TXTF:APSREPG.FS                                                 
            D4.2T2  383  TEXTFORM.APSREPAGE.SF.132          1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:29
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/133   TEXTFORM                 LAY.APA         D              TXTF:LAY.APA                                                    
            D4.2T2  384  TEXTFORM.LAY.APA.D.133             1 LINE    244    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:30
0          LAYOUT APA.
03018/134   TEXTFORM                 LAY.JPAL        D              TXTF:LAY.JPAL                                                   
            D4.2T2  385  TEXTFORM.LAY.JPAL.D.134            1 LINE    251    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:31
0          LAYOUT JPALEON.
03018/135   TEXTFORM                 LAY.NUM         D              TXTF:LAY.NUM                                                    
            D4.2T2  386  TEXTFORM.LAY.NUM.D.135             1 LINE    254    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:31
0          LAYOUT NUMERATE. (LOCATION OF DOCUMENTATION UNKNOWN.)
03018/136   TEXTFORM                 LAY.SPI         D              TXTF:LAY.SPI                                                    
            D4.2T2  387  TEXTFORM.LAY.SPI.D.136             1 LINE    229    5 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:32
0          LAYOUT SPIRES.
03018/137   TEXTFORM                 LAY.THENUM      D              TXTF:LAY.THENUM                                                 
            D4.2T2  388  TEXTFORM.LAY.THENUM.D.137          1 LINE    246    6 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:33
0          LAYOUT THESISNUMERATE.
03018/138   TEXTFORM                 LISTCALCHARS    SF  G          TXTF:LISTPLOT.FS                                                
            D4.2T2  389  TEXTFORM.LISTCALCHARS.SF.138       1 LINE     73    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:33
0          PROGRAM TO PRODUCE WIDTH/INTERNAL TABLES FOR THE CALCOMP OUPUT DEVICE
           PROCESSOR (3018/140).  READS ETC:PLOTALPHA (615/8).
0          Referenced by comments of: 3018/158 
03018/139   TEXTFORM                 OD.APS5         SA  G          TXTF:OD.APS5.S                                                  
            D4.2T2  390  TEXTFORM.OD.APS5.SA.139            1 LINE     80   56 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:34
0          OUTPUT DEVICE PROCESSOR FOR THE APS5 PHOTOTYPESETTER.  OBJECT IS IN 
           TXTFODS (3018/159). COPIES GBLC (3018/123), GBLS (3018/23), AND
           XODGETM (3018/147). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/140A  TEXTFORM                 OD.CALCOMP      SA  G          TXTF:OD.CALCOMP.S                                               
            4.3T2   546  TEXTFORM.OD.CALCOMP.SA.140         1 LINE     80   28 PAGE UQV  TXTFGROUP LIFT      APR. 06, 1980  14:56:10
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/147),
           GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
            
           *****************************************************************************
           D4.3 CHANGES:
            
           NOW USES UM'S PLOTSYS (605/9) RATHER THAN UQV'S PLOTLIB.
           *****************************************************************************
0          Referenced by comments of: 3018/138 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/141   TEXTFORM                 ODT.AMC.IWD     D              TXTF:ODT.AMC.IWD                                                
            D4.2T2  392  TEXTFORM.ODT.AMC.IWD.D.141         1 LINE     79   16 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:40
0          GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER CHELMSFORD DISK
           WIDTH/INTERNAL TABLES.
03018/142   TEXTFORM                 ODT.CALC.ID     D              TXTF:ODT.CALC.ID                                                
            D4.2T2  393  TEXTFORM.ODT.CALC.ID.D.142         1 LINE     91   37 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:41
0          GENTAB (3018/39) INPUT FOR CALCOMP OUTPUT DEVICE PROCESSOR INTERNAL TABLES.
03018/143   TEXTFORM                 ODT.SKEL.IWD    D              TXTF:ODT.SKEL.IWD                                               
            D4.2T2  394  TEXTFORM.ODT.SKEL.IWD.D.143        1 LINE     65    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:45
0          GENTAB (3018/39) INPUT FOR SKELETON OR SAMPLE WIDTH/INTERNAL TABLES.
           USEFUL WHEN WRITING A NEW OUTPUT DEVICE PROCESSOR.
03018/144   TEXTFORM                 ODT.APS.ID      D              TXTF:ODT.APS.ID                                                 
            D4.2T2  395  TEXTFORM.ODT.APS.ID.D.144          1 LINE     56  157 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:45
0          GENTAB (3018/39) INPUT FOR INTERNAL TABLES FOR APS5 PHOTOTYPESETTER
           OUTPUT DEVICE PROCESSOR.
03018/145   TEXTFORM                 ODT.APS.WD      D              TXTF:ODT.APS.WD                                                 
            D4.2T2  396  TEXTFORM.ODT.APS.WD.D.145          1 LINE     56  153 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:03:56
0          GENTAB (3018/39) INPUT FOR WIDTH TABLES FOR APS5 PHOTOTYPESETTER
           OUTPUT DEVICE PROCESSOR.
03018/146   TEXTFORM                 ODT.PAPS.IWD    D              TXTF:ODT.PAPS.IWD                                               
            D4.2T2  397  TEXTFORM.ODT.PAPS.IWD.D.146        1 LINE     73   17 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:06
0          GENTAB (3018/39) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF
           DEVICE FOR APS5 OUTPUT DEVICE PROCESSOR.
03018/147   TEXTFORM                 ODPDTESTMACS    SA  G          TXTF:XODTGETM.S                                                 
            D4.2T2  398  TEXTFORM.ODPDTESTMACS.SA.147       1 LINE     80    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:07
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/14, 3018/35, 3018/36, 3018/38, 3018/42, 3018/45, 3018/46, 3018/47, 3018/51, 3018/139,
                 3018/140 
03018/148   TEXTFORM                 AJDITTO         SF  G          TXTF:TDIT.FS                                                    
            D4.2T2  399  TEXTFORM.AJDITTO.SF.148            1 LINE     71    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:08
0          AN *DITTO-LIKE PROGRAM FOR TEXTFORM OUTPUT TO THE ANDERSON-JACOBSON
           832 TERMINAL.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/149   TEXTFORM                 AJDITTO         WX             TXTF:TDIT.TW                                                    
            D4.2T2  400  TEXTFORM.AJDITTO.WX.149            1 LINE    144    2 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:09
0          DOCUMENTATION FOR 3108/148.
03018/150   TEXTFORM                 WIDCONV         SA  G          TXTF:WIDCONV.S                                                  
            D4.2T2  401  TEXTFORM.WIDCONV.SA.150            1 LINE     80   20 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:09
0          FUNCTION WHICH TAKES WIDTH/INTERNAL TABLES AND ADDS DIRECTORY
           INFORMATION REQUIRED BY TXTFODCM (3018/43) AND TXTFPDCM (3018/48).
           COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60)
           AND 3=DSECTS (3018/61).
0          Referenced by comments of: 3018/151, 3018/152 
03018/151   TEXTFORM                 WIDCONV         D              TXTF:WCONV.D                                                    
            D4.2T2  402  TEXTFORM.WIDCONV.D.151             1 LINE    371    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:11
0          DATA FOR WIDCONV (3018/150).
03018/152   TEXTFORM                 WIDPAC          SA  O          TXTF:WIDPAC.S                                                   
            D4.2T2  403  TEXTFORM.WIDPAC.SA.152             1 LINE     80   22 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:12
0          CPRDNET (ETC.) USED BY WIDCONV (3018/150). COPIES GBLC (3018/123), AND 
           GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/153   TEXTFORM                 ODT.CALC.WD     D              TXTF:ODT.CALC.WD                                                
            D4.2T2  404  TEXTFORM.ODT.CALC.WD.D.153         1 LINE     95   37 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:14
0          GENTAB (3018/39) INPUT FOR CALCOMP OUTPUT DEVICE PROCESSOR WIDTH TABLES.
03018/154   TEXTFORM                 FNCHI           SA  G          TXTF:FNCHI.S                                                    
            D4.2T2  405  TEXTFORM.FNCHI.SA.154              1 LINE     80   16 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:17
0          CONTAINS THE FONTINFO AND CHARINFO SUBROUTINES TO GET FONT OR CHARACTER
           INFORMATION.  OBJECT IN TXTFFNS (3018/160). COPIES GBLC (3018/123) AND 
           GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/155   TEXTFORM                 GETDATA         SA  G          TXTF:GTXTDAT.S                                                  
            D4.2T2  406  TEXTFORM.GETDATA.SA.155            1 LINE     80    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:18
0          CONTAINS THE GTXTDAT SUBROUTINES TO READ TEXT FROM GUSER AND PASS IT TO
           TXTFDRVR (3018/20).  OBJECT IN TXTFFNS (3018/160). COPIES GBLC (3018/123)
           AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61).
03018/156   TEXTFORM                 APS.DCT.D       D              TXTF:APS.DCT.D                                                  
            D4.2T2  407  TEXTFORM.APS.DCT.D.D.156           1 LINE    279    4 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:19
0          DATA TO APSMERG (3018/129).
03018/157   TEXTFORM                 CALCWID         C              TXTF:CALCWID.C                                                  
            D4.2T2  408  TEXTFORM.CALCWID.C.157             1 LINE     65    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:20
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/158   TEXTFORM                 CALC.ID         D              TXTF:CALC.ID                                                    
            D4.2T2  409  TEXTFORM.CALC.ID.D.158             1 LINE     85   45 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:20
0          DATA TO LISTCALCHARS (3018/138).  SEE THE INTERNALS MANUAL (3018/4) FOR
           A DESCRIPTION.
03018/159A  TEXTFORM                 TXTFODS         OL  O          ETC:TXTFODS                                                     
            4.3T2   547  TEXTFORM.TXTFODS.OL.159            1 LINE   7828   34 PAGE UQV  TXTFGROUP LIFT      APR. 06, 1980  14:56:12
                         ETC:TXTFODS          
0          OBJECT OF ALL OUTPUT DEVICE PROCESSORS.
0          Referenced by comments of: 3018/14, 3018/36, 3018/42, 3018/45, 3018/46, 3018/47, 3018/51, 3018/139, 3018/161 
03018/160   TEXTFORM                 TXTFFNS         OL  G          ETC:TXTFFNS                                                     
            D4.2T2  411  TEXTFORM.TXTFFNS.OL.160            1 LINE   1805    3 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:25
                         ETC:TXTFFNS          
0          CONTAINS THE FONTINFO, CHARINFO AND TXTDAT SUBROUTINES. SOURCE IN 
           3018/154 AND 3018/155.
0          Referenced by comments of: 3018/154, 3018/155 
03018/161A  TEXTFORM                 OD.DTC302       SA  O          TXTF:OD.DTC302.S                                                
            4.3T2   548  TEXTFORM.OD.DTC302.SA.161          1 LINE     72   17 PAGE UM   LIFT                APR. 06, 1980  14:56:14
0          OUTPUT DEVICE PROCESSOR FOR A DTC302 AND DIABLO 1620 "DAISY-WHEEL" TERMINALS
           AND NEC SPINWRITER S520.  HAS 1/60 INCH HORIZONTAL.  THE FOLLOWING FEATURES
           ARE NOT YET IMPLEMENTED:  SUBSCRIPTS, SUPERSCRIPTS, 1/48 INCH VERTICAL UNIT,
           SPECIAL CHARACTERS, MID-PAGE WHEEL CHANGES, AND OTHERS.  SEE ASSEMBLY 
           PARAMETER &WHICH TO GET TERMINAL TYPE.
            
           OBJECT IN TXTFODS (3018/159).
            
           ASSEMBLE USING *ASMH WITH 2=MACROS (3018/60), 3=DSECTS (3018/61).
           COPIES GBLC (3018/123) AND GBLS (3018/23).
            
           ******************************************************************************
           D4.3 VERSION:
            
           CODE ADDED FOR DIABLO 1620 AND SPINWRITER.  SPINWRITER CODE IS NOT TOO WELL 
           TESTED YET, AND IS NOT INSTALLED IN TXTFODS (3018/159).
           ******************************************************************************
03018/162   TEXTFORM                 DTC302 TABLES   D              TXTF:WIDDTC302                                                  
            D4.2T2  413  TEXTFORM.DTC302_TABLES.D.162       1 LINE     64    1 PAGE UM   LIFT                APR. 02, 1979  02:04:32
0          WIDTH TABLES FOR DTC302. PROCESS WITH TBLGEN (3018/39).
           NEEDS IMPROVEMENTS, BUT USABLE AS IS.
03018/163   TEXTFORM                 OD.TBLGEN       OC  G          TXTF:OD.TBLGEN.O                                                
            D4.2T2  414  TEXTFORM.OD.TBLGEN.OC.163          1 LINE     80   11 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:33
0          OBJECT OF 3018/39.  EXECUTES AS A TEXTFORM FUNCTION.  SEE THE INTERNALS
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          MANUAL (3018/4) FOR A DESCRIPTION.
03018/164   TEXTFORM                 WIDCONV         OC  G          TXTF:WIDCONV.O                                                  
            D4.2T2  415  TEXTFORM.WIDCONV.OC.164            1 LINE     80    9 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:34
0          OBJECT OF 3018/150.  EXECUTES AS A TEXTFORM FUNCTION.  SEE THE INTERNALS
           MANUAL (3018/4) FOR A DESCRIPTION.
03018/165   TEXTFORM                 OD.DOC          OC  G          TXTF:OD.DOC.O                                                   
            D4.2T2  416  TEXTFORM.OD.DOC.OC.165             1 LINE     80   10 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:35
0          OBJECT OF 3018/37.  EXECUTES AS A TEXTFORM FUNCTION.  SEE THE INTERNALS
           MANUAL (3018/4) FOR A DESCRIPTION.
03018/166   TEXTFORM                 TXTFLOG         D            # MTS:TST.EMPTY                                                   
                                                                                    UQV  TXTFGROUP LIFT                             
                         ETC:TXTFLOG          
0          LOG FILE WRITTEN BY *TEXTFORM FOR EACH RUN OF *TEXTFORM BY A USER.  CONTENTS
           SAVED ON TAPE BY WEEKLY PROCEDURE.  SEE LOGJOB (3018/79). THIS SHOULD BE
           PERMITTED WE (PKEY=NEW:TEXTFORM,PKEY=*TEXTFORM,PKEY=OLD:TEXTFORM).
0          Referenced by comments of: 3018/79, 3018/167, 3018/169, 3018/170 
03018/167   TEXTFORM                 LOG             SA  G          TXTF:LOG(1,999)                                                 
            D4.2T2  417  TEXTFORM.LOG.SA.167                1 LINE     69    3 PAGE UM   LIFT      LIFT      APR. 02, 1979  02:04:36
0          THIS IS THE LOGSAVING PROGRAM DEVELOPED AND USED BY UM.  IT DETERMINES
           IF ETC:TXTFLOG (3018/166), 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/170, TO SAVE THE
           STATISTICS FILE ON TAPE.  IT ALSO REPORTS ERRORS WHICH OCCURRED WHILE
           SAVING ETC:TXTFLOG.
03018/168   TEXTFORM                 LOG             OC  G          TXTF:LOG(1000)                                                  
            D4.2T2  418  TEXTFORM.LOG.OC.168                1 LINE     80    2 PAGE UM   LIFT      LIFT      APR. 02, 1979  02:04:36
03018/169   TEXTFORM                 LOGJOB          C   G          TXTF:LOGSAVEJOB                                                 
            D4.2T2  419  TEXTFORM.LOGJOB.C.169              1 LINE     53    1 PAGE UM   LIFT      LIFT      APR. 02, 1979  02:04:37
0          BATCH JOB TO SAVE ETC:TXTFLOG (3018/166), THE TEXTFORM STATISTICS FILE,
           ON TAPE.  THESE COMMANDS RUN THE LOGSAVE PROGRAM (3018/4).  NEGATIVE LINE
           NUMBERS CONTAIN INFORMATION USED BY LOGSAVE (3018/170).  THE PASSWORD MUST
           BE SUPPLIED ON LINE 2 AND THE MOUNT COMMAND ON LINE -1 MUST BE MODIFIED
           BEFORE IT IS ACTUALLY USED.
03018/170   TEXTFORM                 LOGSAVE         SA  G          TXTF:LOGSAVE(1,999)                                             
            D4.2T2  420  TEXTFORM.LOGSAVE.SA.170            1 LINE     67    4 PAGE UM   LIFT      LIFT      APR. 02, 1979  02:04:37
0          PROGRAM TO SAVE ETC:TXTFLOG (3018/166), THE TEXTFORM STATISTICS FILE, ON
           TAPE.  THE PROGRAM IS RUN BY COMMANDS IN 3018/169.
0          Referenced by comments of: 3018/169 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03018/171   TEXTFORM                 LOGSAVE         OC  G          TXTF:LOGSAVE(1000)                                              
            D4.2T2  421  TEXTFORM.LOGSAVE.OC.171            1 LINE     80    3 PAGE UM   LIFT      LIFT      APR. 02, 1979  02:04:38
03018/172   TEXTFORM                 BUGS            P              TXTF:TEXTFORM.BUG                                               
            D4.2T2  422  TEXTFORM.BUGS.P.172                1 LINE     68    1 PAGE UQV  TXTFGROUP LIFT      APR. 02, 1979  02:04:39
0          LIST OF SOME VERSION 1 BUGS.
03018/173   TEXTFORM                 INSTNOTES       WX             TXTF:INSTNOTES                                                  
            D4.2T2  423  TEXTFORM.INSTNOTES.WX.173          1 LINE     69    4 PAGE UM   LIFT                APR. 02, 1979  02:04:40
0          NOTES COMPILED WHILE INSTALLING VERSION 1 OF TEXTFORM AT UM.
03018/174A  TEXTFORM                 WIDUTIL         SA  S          TXTF:WIDUTIL                                                    
            4.3T2   549  TEXTFORM.WIDUTIL.SA.174            1 LINE     72   14 PAGE UM   LIFT                APR. 06, 1980  14:56:17
0          OBJUTIL FOR OUTPUT PROCESSOR WIDTH TABLE LIBRARIES (E.G., ETC:TXTFWIDS, COMP.
           3018/92).  THIS IS A STAND-ALONE PROGRAM.  ASSEMBLE WITH 2=DSECTS (3018/61).
           COPIES GBLS (3018/23). THIS IS A PRELIMINARY VERSION.
03018/175A  TEXTFORM                 WIDUTIL         OC  S          TXTF:WIDUTILX                                                   
            4.3T2   550  TEXTFORM.WIDUTIL.OC.175            1 LINE     80    5 PAGE UM   LIFT                APR. 06, 1980  14:56:19
03018/176A  TEXTFORM                 WIDUTIL         WX             TXTF:WWIDUTIL                                                   
            4.3T2   551  TEXTFORM.WIDUTIL.WX.176            1 LINE     72    4 PAGE UM   LIFT                APR. 06, 1980  14:56:22
0          USAGE AND INTERNALS WRITEUP FOR THE PRELIMINARY VERSION OF WIDUTIL.
03018/177C  TEXTFORM                 MACROS          WX  S          UNSP:JONMACLIBTXT                                               
            4.3T2   552  TEXTFORM.MACROS.WX.177             1 LINE    143    7 PAGE UBC  DUKE      UNSP      APR. 06, 1980  14:56:24
0          THIS FILE CONTAINS A LARGE NUMBER OF TEXTFORM MACROS, ETC. (DEVELOPED BY 
           JON NIGHTINGALE AND TINA DUKE), TO CORRESPOND TO JON:MACLIB (DISTRIBUTED
           BY MICHIGAN AS 308/19) FOR PRODUCING DOCUMENTS IN UBC STYLE.
            
           THIS IS A PRELIMINARY VERSION.
0          Referenced by comments of: 1042/59, 1076/12 
03018/178C  TEXTFORM                 LAY.TYNE        D   O          S1055 UNE24 'ALGOLW' FSNAME=TXTF:LAY.TYNE                       
            4.3T2   553  TEXTFORM.LAY.TYNE.D.178            1 LINE    160    9 PAGE UNE  HUNTER    LIFT      FEB. 09, 1980  16:08:43
0          NUMAC documentation group standards layout.
0          Referenced by comments of: 528/34 
03018/179C  TEXTFORM                 LAY.DEE         D   O          S1055 UNE24 'ALGOLW' FSNAME=TXTF:LAY.DEE                        
            4.3T2   554  TEXTFORM.LAY.DEE.D.179             1 LINE    187    9 PAGE UNE  HUNTER    LIFT      FEB. 09, 1980  16:08:49
0          NUMAC general layout with numbered headings.
0          Referenced by comments of: 528/34 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03019       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       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       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          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE2                    
            D4T3    724  ASSIST.SERVICE_MODULE.SA.003       1 LINE     80  143 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:17
0          BASE SOURCE FOR ASSIST SERVICE MODULE (I.E., I/O, MAIN PROGRAM, INTERRUPTS, ETC.).
03023/002  *ASSIST                   SERVICE MODULE  UU  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASSIST2.U              62  
            D4.2T2  424  ASSIST.SERVICE_MODULE.UU.002       1 LINE     72   30 PAGE UQV            BODWIN    DEC. 17, 1978  15:40:57
0          UPDATE TO BE APPLIED TO 3023/1 TO YIELD SERVICE MODULE SOURCE.  ASSEMBLE
           UPDATED SOURCE USING ASSISTMACLIB (3023/10).
03023/003  *ASSIST                   ASSEMBLER       SA  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE3                    
            D4T3    726  ASSIST.ASSEMBLER.SA.005            1 LINE     80  185 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:35
0          BASE SOURCE FOR ASSEMBLER OF THE ASSIST PACKAGE.
03023/004  *ASSIST                   ASSEMBLER       UU  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASSIST3.U              63  
            D4.2T2  425  ASSIST.ASSEMBLER.UU.004            1 LINE     72    7 PAGE UQV            BODWIN    DEC. 17, 1978  15:41:04
0          UPDATE TO BE APPLIED TO 3023/3 TO YIELD ASSEMBLER SOURCE.  ASSEMBLE UPDATED
           SOURCE USING ASSISTMACLIB (3023/10).
03023/005  *ASSIST                   MACRO PHASE     SA  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE5                    
            D4T3    728  ASSIST.MACRO_PHASE.SA.007          1 LINE     80  139 PAGE UQV            BODWIN    JUNE 22, 1977  22:07:59
0          BASE SOURCE FOR MACRO PROCESSOR OF ASSIST PACKAGE.
03023/006  *ASSIST                   MACRO PHASE     UU  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASSIST5.U              64  
            D4.2T2  426  ASSIST.MACRO_PHASE.UU.006          1 LINE     72    1 PAGE UQV            BODWIN    DEC. 17, 1978  15:41:09
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 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03023/007  *ASSIST                   SIMULATOR       SA  G  SIM     S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.SIM.S                  
            D4.2T2  427  ASSIST.SIMULATOR.SA.007            1 LINE     80   74 PAGE UQV            BODWIN    FEB. 12, 1979  16:01:18
03023/008  *ASSIST                   SIMULATOR       UU  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SIMULATOR.U            65  
            D4.2T2  428  ASSIST.SIMULATOR.UU.008            1 LINE     72    5 PAGE UQV            BODWIN    DEC. 17, 1978  15:41:37
0          UPDATE TO BE APPLIED TO 3023/7 TO YIELD SIMULATOR SOURCE.
03023/009  *ASSIST                   INTERFACE       SA  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SIMINT.S                   
            D4.2T2  429  ASSIST.INTERFACE.SA.009            1 LINE     80    5 PAGE UQV            BODWIN    DEC. 17, 1978  15:50:37
0          INTERFACE TO FIX (1002) FOR ASSIST I/0. COPIES FIODSECT (1002/19).
03023/010  *ASSIST                   MACRO LIB       SM  G          S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASSISTMACLIB           70  
            D4.2T2  430  ASSIST.MACRO_LIB.SM.010            1 LINE     80  108 PAGE UQV            BODWIN    DEC. 18, 1978  15:22:02
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/2, 3023/4, 3023/6 
03023/011  *ASSIST                   *ASSIST         OE  G          *ASSIST                                                         
            D4.2T2  431  ASSIST.*ASSIST.OE.011              1 SEQ   28756   17 PAGE UQV            BODWIN    APR. 02, 1979  02:07:31
                         *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.
03023/012  *ASSIST                   *ASSISTMAC      SM             *ASSISTMAC                                                      
            D4T3    734  ASSIST.*ASSISTMAC.SM.013           1 LINE     72    5 PAGE UQV            BODWIN    JULY 29, 1977  00:39:31
                         *ASSISTMAC           
0          ASSIST "SYSTEM" MACRO LIBRARY, REFERENCED BY 3023/11.
0          Referenced by comments of: 3023/11 
03023/013  *ASSIST                   TEST PROGRAMS   SA             S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.PROGS                  
            D4T3    735  ASSIST.TEST_PROGRAMS.SA.014        1 LINE     73    9 PAGE UQV            BODWIN    JUNE 10, 1977  13:20:14
0          TEST PROGRAMS TO EXERCISE ALL FEATURES OF ASSIST.
03024/001A  BENCHMARK - TERMINAL     DSR             SA  G          BNCH:DSR.S                                                      
            4.3T2   571  BENCHMARK_-_TERMINAL.DSR.SA.001    1 LINE     72   30 PAGE UM   MTA                 MAY  22, 1980  02:06:35
                         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:GLOBALDEFS (1026/1), COPY:GLOBALSETS
           (1026/2), COPY:LLMPSEQU(100) (087), COPY:CDCADSECT (3024/25), *GDINFODSECT (594),
           AND *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728).
0          Referenced by comments of: 3024/23, 3024/30 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03024/002A  BENCHMARK - TERMINAL     DSR             OC  G          *BNCHRTN                                                        
            4.3T2   572  BENCHMARK_-_TERMINAL.DSR.OC.002    1 LINE   7356    3 PAGE UM   MTA                 MAY  22, 1980  02:06:43
                         *BNCHRTN             
03024/003   BENCHMARK - TERMINAL     MONITOR         SA  G          BNCH:MONITOR.S                                                  
            D4.2T2  434  BENCHMARK_-_TERMINAL.MONI.SA.003   1 LINE     71   10 PAGE UM   MTA                 APR. 02, 1979  02:07:38
                         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/004   BENCHMARK - TERMINAL     MONITOR         OC  G          BNCH:MONITOR                                                    
            D4.2T2  435  BENCHMARK_-_TERMINAL.MONI.OC.004   1 LINE   1668    7 PAGE UM   MTA                 APR. 02, 1979  02:07:40
                         BNCH:MONITOR         
03024/005   BENCHMARK - TERMINAL     ANALYSIS        SF  O          BNCH:ANALYSIS.S                                                 
            D4.2T2  436  BENCHMARK_-_TERMINAL.ANAL.SF.005   1 LINE     73    3 PAGE UM   MTA                 APR. 02, 1979  02:07:41
                         BNCH:ANALYSIS.S      
0          PROGRAM TO PRINT THE DATA COLLECTED BY 3024/1.
03024/006   BENCHMARK - TERMINAL     ANALYSIS        OC  O          BNCH:ANALYSIS                                                   
            D4.2T2  437  BENCHMARK_-_TERMINAL.ANAL.OC.006   1 LINE   1668    4 PAGE UM   MTA                 APR. 02, 1979  02:07:42
                         BNCH:ANALYSIS        
03024/007   BENCHMARK - TERMINAL     SCRIPT POINTER  D              *SCRIPTPTRFILE                                                  
            D4.2T2  438  BENCHMARK_-_TERMINAL.SCRI.D.007    1 LINE     24    1 PAGE UM   MTA                 APR. 02, 1979  02:07:42
                         *SCRIPTPTRFILE       
0          DATA FILE USED BY MTS TO MAP THE PSEUDO-DEVICE NAMES *SN* INTO SCRIPT FILE NAMES.
03024/008   BENCHMARK - TERMINAL     SCRIPT 1        C              *SCRIPT1                                                        
            D4.2T2  439  BENCHMARK_-_TERMINAL.SCRI.C.008    1 LINE     90    3 PAGE UM   MTA                 APR. 02, 1979  02:07:43
                         *SCRIPT1             
0          SCRIPT WHICH USES EDITOR FAST INSERT MODE.
03024/009   BENCHMARK - TERMINAL     SCRIPT 2        C              *SCRIPT2                                                        
            D4.2T2  440  BENCHMARK_-_TERMINAL.SCRI.C.009    1 LINE     40    1 PAGE UM   MTA                 APR. 02, 1979  02:07:44
                         *SCRIPT2             
0          SCRIPT WHICH USES THE EDITOR.
03024/010   BENCHMARK - TERMINAL     SCRIPT 3        C              *SCRIPT3                                                        
            D4.2T2  441  BENCHMARK_-_TERMINAL.SCRI.C.010    1 LINE     56    1 PAGE UM   MTA                 APR. 02, 1979  02:07:44
                         *SCRIPT3             
0          SCRIPT WHICH ENTERS, COMPILES, AND RUNS THE ETEST (COMPUTE E TO 2500 DECIMAL
           PLACES) PROGRAM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03024/011   BENCHMARK - TERMINAL     SCRIPT 4        C              *SCRIPT4                                                        
            D4.2T2  442  BENCHMARK_-_TERMINAL.SCRI.C.011    1 LINE     58    1 PAGE UM   MTA                 APR. 02, 1979  02:07:45
                         *SCRIPT4             
0          INTERACTIVE FORTRAN (IF) SCRIPT.
03024/012   BENCHMARK - TERMINAL     SCRIPT 5        C              *SCRIPT5                                                        
            D4.2T2  443  BENCHMARK_-_TERMINAL.SCRI.C.012    1 LINE     86    1 PAGE UM   MTA                 APR. 02, 1979  02:07:45
                         *SCRIPT5             
0          ASSEMBLER SCRIPT.
03024/013   BENCHMARK - TERMINAL     SCRIPT 5 DATA   SA             BNCH:WSG.TAPE                                                   
            D4T3    748  BENCHMARK.SCRIPT_5_DATA.SA.013     1 LINE     72   47 PAGE UM   MTA                 JULY 29, 1977  00:40:14
                         BNCH:WSG.TAPE        
0          ASSEMBLY SOURCE FOR PROGRAM ASSEMBLED BY SCRIPT 5.
03024/014   BENCHMARK - TERMINAL     SCRIPT 6        C              *SCRIPT6                                                        
            D4.2T2  444  BENCHMARK_-_TERMINAL.SCRI.C.014    1 LINE     40    1 PAGE UM   MTA                 APR. 02, 1979  02:07:46
                         *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
            D4T3    750  BENCHMARK.SCRIPT_6_PGM.SF.015      1 LINE     71    6 PAGE UM   MTA                 AUG. 28, 1975  17:00:57
0          DOUBLE PRECISION FFT PROGRAM IN FTN H WHICH IS RUN BY SCRIPT 6.
0          Referenced by comments of: 3024/17 
03024/016   BENCHMARK - TERMINAL     SCRIPT 6 PGM    OE  G          BNCH:FFT.HD                                                     
            D4T3    751  BENCHMARK.SCRIPT_6_PGM.OE.016      1 SEQ    1440    2 PAGE UM   MTA                 JULY 29, 1977  00:42:31
                         BNCH:FFT.HD          
03024/017   BENCHMARK - TERMINAL     SCRIPT 6 DATA   D              BNCH:FFT.DATA                                                   
            D4T3    752  BENCHMARK.SCRIPT_6_DATA.D.017      1 LINE     11    1 PAGE UM   MTA                 JULY 29, 1977  00:42:31
                         BNCH:FFT.DATA        
0          DATA FOR SCRIPT 6 FFT PROGRAM (3024/15).
03024/018   BENCHMARK - TERMINAL     SCRIPT 7        C              *SCRIPT7                                                        
            D4.2T2  445  BENCHMARK_-_TERMINAL.SCRI.C.018    1 LINE     51    1 PAGE UM   MTA                 APR. 02, 1979  02:07:47
                         *SCRIPT7             
0          BIG FORTRAN SCRIPT.
03024/019   BENCHMARK - TERMINAL     SCRIPT 7 PGM    SF  G          BNCH:SCRIPT7PGM                                                 
            D4.2T2  446  BENCHMARK_-_TERMINAL.SCRI.SF.019   1 LINE     72    4 PAGE UM   MTA                 APR. 02, 1979  02:07:47
                         BNCH:SCRIPT7PGM      
0          PROGRAM USED BY SCRIPT 7.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03024/020   BENCHMARK - TERMINAL     SCRIPT 8        C              *SCRIPT8                                                        
            D4.2T2  447  BENCHMARK_-_TERMINAL.SCRI.C.020    1 LINE     69    1 PAGE UM   MTA                 APR. 02, 1979  02:07:48
                         *SCRIPT8             
0          TAXIR SCRIPT.
03024/021   BENCHMARK - TERMINAL     SCRIPT 8 DATA   D              BNCH:USE.T                                                      
            D4.2T2  448  BENCHMARK_-_TERMINAL.SCRI.D.021    1 LINE  32764   92 PAGE UM   MTA                 APR. 02, 1979  02:07:49
                         BNCH:USE.T           
03024/022   BENCHMARK - TERMINAL     SCRIPT 9        C              *SCRIPT9                                                        
            D4.2T2  449  BENCHMARK_-_TERMINAL.SCRI.C.022    1 LINE     36    1 PAGE UM   MTA                 APR. 02, 1979  02:07:53
                         *SCRIPT9             
0          PAGELOAD SCRIPT.  NOT NORMALLY USED IN TERMINAL BENCHMARKS.
03024/023   BENCHMARK - TERMINAL     COMM AREA       SA  G          BNCH:SEG2.S                                                     
            D4.2T2  450  BENCHMARK_-_TERMINAL.COMM.SA.023   1 LINE     69    1 PAGE UM   MTA                 APR. 02, 1979  02:07:54
                         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                                                       
            D4.2T2  451  BENCHMARK_-_TERMINAL.COMM.OC.024   1 LINE     80    4 PAGE UM   MTA                 APR. 02, 1979  02:07:55
                         BNCH:SEG2            
03024/025   BENCHMARK - TERMINAL     CDCADSECT       SA  G          COPY:CDCADSECT                                                  
            D4T3    755  BENCHMARK.CDCADSECT.SA.020         1 LINE     60    1 PAGE UM   MTA                 JULY 29, 1977  00:42:39
                         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/026   BENCHMARK - TERMINAL     SOURCE FILE     C              BNCH:SCR                                                        
            D4.2T2  452  BENCHMARK_-_TERMINAL.SOUR.C.026    1 LINE     76    2 PAGE UM   MTA                 APR. 02, 1979  02:07:55
                         BNCH:SCR             
0          COMMAND FILE TO RUN A TERMINAL BENCHMARK.
0          Referenced by comments of: 3024/27 
03024/027   BENCHMARK - TERMINAL     START COMMANDS  D              BNCH:CMDS                                                       
            D4.2T2  453  BENCHMARK_-_TERMINAL.STAR.D.027    1 LINE      9    1 PAGE UM   MTA                 APR. 02, 1979  02:07:56
                         BNCH:CMDS            
0          BNCH:MONITOR (3024/3) START COMMANDS, USED BY BNCH:SCR (3024/26).
03024/028   BENCHMARK - TERMINAL     TEST SCRIPTS    C              BNCH:TEST                                                       
            D4.2T2  454  BENCHMARK_-_TERMINAL.TEST.C.028    1 LINE     62    1 PAGE UM   MTA                 APR. 02, 1979  02:07:57
                         BNCH:TEST            
0          COMMAND FILE TO PRODUCE A PRINTED COPY OF THE EXECUTION OF ONE OF THE SCRIPTS
1                                                                                               SUN SEP 08/96   19:03:19   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          TO CHECK THAT IT WORKS CORRECTLY.
03024/029   BENCHMARK - TERMINAL     MON WRITEUP     WF             BNCH:MONITOR.F                                                  
            D4.2T2  455  BENCHMARK_-_TERMINAL.MON.WF.029    1 LINE    129    5 PAGE UM   MTA                 APR. 02, 1979  02:07:57
                         BNCH:MONITOR.F       
0          WRITEUP DESCRIBING BNCH:MONITOR (3024/3).
03024/030   BENCHMARK - TERMINAL     DSR WRITEUP     WF             BNCH:DSR.F                                                      
            D4.2T2  456  BENCHMARK_-_TERMINAL.DSR.WF.030    1 LINE     97    6 PAGE UM   MTA                 APR. 02, 1979  02:07:58
                         BNCH:DSR.F           
0          WRITEUP DESCRIBING THE BENCHMARK DSR (3024/1).
03024/031   BENCHMARK - TERMINAL     STATSUM         SG  G          BNCH:STATSUM.S                                                  
            D4.2T2  457  BENCHMARK_-_TERMINAL.STAT.SG.031   1 LINE    104    3 PAGE UM   MTA                 APR. 02, 1979  02:07:59
                         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                                                    
            D4.2T2  458  BENCHMARK_-_TERMINAL.STAT.OE.032   1 LINE   3770    5 PAGE UM   MTA                 APR. 02, 1979  02:08:00
                         BNCH:STATSUM         
03024/033   BENCHMARK - TERMINAL     BNCH:STATS      D            # MTS:TST.EMPSEQWE                                                
                                                                                    UM   MTA                                        
                         BNCH:STATS           
0          FILE USED TO COLLECT DATA DURING BENCHMARK RUNS.
03024/034   BENCHMARK - TERMINAL     BNCH:OUTPUT     D            # MTS:TST.EMPSEQWE                                                
                                                                                    UM   MTA                                        
                         BNCH:OUTPUT          
0          FILE USED TO SAVE OUTPUT WHILE TESTING BENCHMARK SCRIPTS.
03024/035   BENCHMARK - TERMINAL     BNCH:TSTATS     D            # MTS:TST.EMPSEQWE                                                
                                                                                    UM   MTA                                        
                         BNCH:TSTATS          
0          FILE USED TO SAVE DSR STATISTICS WHILE TESTING BENCHMARK SCRIPTS.
03024/036   BENCHMARK - TERMINAL     CRE FM INPUT    C              BNCH:CREFMINPUT                                                 
            D4.2T2  459  BENCHMARK_-_TERMINAL.CRE.C.036     1 LINE     67    1 PAGE UM   MTA                 APR. 02, 1979  02:08:01
                         BNCH:CREFMINPUT      
0          COMMAND FILE THAT MAY BE $SOURCED TO TO CREATE FILEMOVE (1020/1) INPUT AS
           THE FIRST STEP IN MOVING FROM A ONE-PACK TO A MULTI-PACK SYSTEM.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03024/037   BENCHMARK - TERMINAL     LISTFILES       SA  G          BNCH:LISTFILES.S                                                
            D4.2T2  460  BENCHMARK_-_TERMINAL.LIST.SA.037   1 LINE     72    2 PAGE UM   MTA                 APR. 02, 1979  02:08:02
                         BNCH:LISTFILES.S     
0          PROGRAM TO PROCURE A LIST OF ALL FILES IN THE FILE SYSTEM ON SPUNCH.
           ASSEMBLE USING COPY:FILE.MACROS (482/33).
0          Referenced by comments of: 3024/39 
03024/038   BENCHMARK - TERMINAL     LISTFILES       OC  G          BNCH:LISTFILES                                                  
            D4.2T2  461  BENCHMARK_-_TERMINAL.LIST.OC.038   1 LINE     80    1 PAGE UM   MTA                 APR. 02, 1979  02:08:02
                         BNCH:LISTFILES       
03024/039   BENCHMARK - TERMINAL     ASSIGNVOL       SS  G          BNCH:ASSIGNVOL.S                                                
            D4.2T2  462  BENCHMARK_-_TERMINAL.ASSI.SS.039   1 LINE     66    1 PAGE UM   MTA                 APR. 02, 1979  02:08:03
                         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/1).
03024/040   BENCHMARK - TERMINAL     ASSIGNVOL       OC  G          BNCH:ASSIGNVOL                                                  
            D4.2T2  463  BENCHMARK_-_TERMINAL.ASSI.OC.040   1 LINE     80    4 PAGE UM   MTA                 APR. 02, 1979  02:08:04
                         BNCH:ASSIGNVOL       
0          HAS A $CONTINUE WITH *SPITLIB CARD.
03025    A *SENSEDSECT                               SA  G          *SENSEDSECT                                                     
            4.3T2   555  SENSEDSECT..SA.                    1 LINE     80    4 PAGE SFU  BENET     DWB       APR. 06, 1980  14:58:49
                         *SENSEDSECT          
0          UQV DSECT FOR MAG TAPE SNS DATA -- NOW EXTENDED (GROSSLY) BY UM TO ADD SNS DATA FOR *...*
           AND TERMINAL DSR'S.
0          Referenced by comments of: 116/1, 135/1, 314/1, 400/21, 489/1, 496/1, 513/1, 545/3, 553/1, 3024/1 
03028       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       VAMREC                                                # (SEE COMP 682)                                                  
                                                                                    UQV                                             
03031       LKED CONVERTER                                        # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           THAT WILL READ OS LINKAGE EDITOR INPUT OR THE COMBINED OBJECT AND 
           MEMBER-RECORD FILES OUTPUT BY *UNLINKER (562).  ONE WOULD USE THIS PROGRAM
           AS ONE OF FOUR PROGRAMS TO TAKE AN OS LOAD MODULE PDS FROM TAPE AND
           GENERATE AN MTS LINK LIBRARY (THE FOUR PROGRAMS BEING *UNLINKER (562), THIS
           PROGRAM, *LINKEDIT (297) AND *GENLIB (389)).
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03036       C+                                                    # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE C+
           SYSTEM PROGRAMMING LANGUAGE.
03037       METRIC                                                # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM
           FOR DISPLAYING INFORMATION ABOUT SYSTEM ACTIVITY.
03038       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       FILE RELOCATE                                         # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SMALL
           UTILITY TO MOVE FILES FROM ONE PACK TO ANOTHER, USED BY THE OPERATIONS
           STAFF AT UQV.
03045       SCB DOCUMENTOR                                        # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE SYSTEM
           CONTROL BLOCK DESCRIPTOR SYSTEM.
03046       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       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       XEROX 9700 FNT                                        # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE XEROX
           9700 FONTS.
03050       PAGE PRINTER SUBRTN                                   # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
03051       PAGE PRINTER TBLS                                     # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.
03053       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       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       AP SOFTWARE                                           # (NOT DISTRIBUTED)                                               
                                                                                    UQV                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS
           UPDATES TO FLOATING POINT SYSTEMS SOFTWARE.
04000/001   GATE                     D4 MASTER       SA  G  GATE    S0917 MTSSD4 'MTS MASTER D4.0' POSN=GATE                        
            D4T3    764  GATE.D4_MASTER.SA.001              1 SEQ      80   17 PAGE UM   MTS       HELFFRICH JULY 29, 1977  00:44:13
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: 509/2, 4000/6 
04000/002A  GATE                     UPDATE          UC  G          MTS:GATEUPD                                                     
            4.3T2   556  GATE.UPDATE.UC.002                 1 LINE     90    5 PAGE UM   MTS       HELFFRICH APR. 06, 1980  14:58:50
                         MTS.:GATEUPD         
0          UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW
           USE OF UPDATE WITH THE D4.2 SOURCE AS BASE.  THIS LINE SHOULD BE REMOVED
           WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=GATE.
04000/003A  GATE                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTS       HELFFRICH                        
04000/004A  GATE                                     L              S1088 MTSCL 'POST D4.0 LISTINGS' POSN=GATE.LIST             12  
            4.3T2   557  GATE..L.004                        1 SEQ     133  461 PAGE UM   MTS       HELFFRICH APR. 06, 1980  15:00:50
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
04000/005   GATE                     STAT FILES      P              S1200 RD15T1 VLO FSNAME=GATE.STAT_FILES.P.007(1)             161
            D4.2T2  465  GATE.STAT_FILES.P.005              1 LINE     73    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:43
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          S1200 RD15T1 VLO FSNAME=GATE.STAT_UPDATE.UC.008(1)           162
            D4.2T2  466  GATE.STAT_UPDATE.UC.006            1 LINE     68    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:45
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.
04000/007   GATE                     STATON          SA  G          S1200 RD15T1 VLO FSNAME=GATE.STATON.SA.009(1)                163
            D4.2T2  467  GATE.STATON.SA.007                 1 LINE     69    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:47
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          S1200 RD15T1 VLO FSNAME=GATE.STATON.OC.010(1)                164
            D4.2T2  468  GATE.STATON.OC.008                 1 LINE     80    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:49
0           
04000/009   GATE                     GATESTAT CSECT  SA  G          S1200 RD15T1 VLO FSNAME=GATE.GATESTAT_CSECT.SA.011(1)        165
            D4.2T2  469  GATE.GATESTAT_CSECT.SA.009         1 LINE     72    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:51
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          S1200 RD15T1 VLO FSNAME=GATE.GATESTAT_CSECT.OC.012(1)        166
            D4.2T2  470  GATE.GATESTAT_CSECT.OC.010         1 LINE     80    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:53
04000/011   GATE                     STATOFF         SA  G          S1200 RD15T1 VLO FSNAME=GATE.STATOFF.SA.013(1)               167
            D4.2T2  471  GATE.STATOFF.SA.011                1 LINE     68    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:55
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          S1200 RD15T1 VLO FSNAME=GATE.STATOFF.OC.014(1)               168
            D4.2T2  472  GATE.STATOFF.OC.012                1 LINE     80    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:57
04000/013   GATE                     STAT REC MAIN   SF  G          S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_MAIN.SF.015(1)         169
            D4.2T2  473  GATE.STAT_REC_MAIN.SF.013          1 LINE     63    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:00:59
0          FORTRAN SOURCE FOR THE MAIN PROGRAM OF THE GATE STATISTICS RECORDING
           SYSTEM. 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
04000/014   GATE                     STAT REC MAIN   OC  G          S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_MAIN.OC.016(1)         170
            D4.2T2  474  GATE.STAT_REC_MAIN.OC.014          1 LINE     90    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:01
04000/015   GATE                     GETUSR SUBR     SF  G          S1200 RD15T1 VLO FSNAME=GATE.GETUSR_SUBR.SF.017(1)           171
            D4.2T2  475  GATE.GETUSR_SUBR.SF.015            1 LINE     68    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:03
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          S1200 RD15T1 VLO FSNAME=GATE.GETUSR_SUBR.OE.018(1)           172
            D4.2T2  476  GATE.GETUSR_SUBR.OE.016            1 LINE    692    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:05
04000/017   GATE                     INIT SUBR       SF  G          S1200 RD15T1 VLO FSNAME=GATE.INIT_SUBR.SF.019(1)             173
            D4.2T2  477  GATE.INIT_SUBR.SF.017              1 LINE     67    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:07
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          S1200 RD15T1 VLO FSNAME=GATE.INIT_SUBR.OC.020(1)             174
            D4.2T2  478  GATE.INIT_SUBR.OC.018              1 LINE    166    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:09
04000/019   GATE                     PUTHDR SUBR     SF  G          S1200 RD15T1 VLO FSNAME=GATE.PUTHDR_SUBR.SF.021(1)           175
            D4.2T2  479  GATE.PUTHDR_SUBR.SF.019            1 LINE     61    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:11
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          S1200 RD15T1 VLO FSNAME=GATE.PUTHDR_SUBR.OE.022(1)           176
            D4.2T2  480  GATE.PUTHDR_SUBR.OE.020            1 LINE   1332    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:14
04000/021   GATE                     PUTMID SUBR     SF  G          S1200 RD15T1 VLO FSNAME=GATE.PUTMID_SUBR.SF.023(1)           177
            D4.2T2  481  GATE.PUTMID_SUBR.SF.021            1 LINE     60    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:16
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          S1200 RD15T1 VLO FSNAME=GATE.PUTMID_SUBR.OE.024(1)           178
            D4.2T2  482  GATE.PUTMID_SUBR.OE.022            1 LINE    340    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:18
04000/023   GATE                     PUTUSR SUBR     SF  G          S1200 RD15T1 VLO FSNAME=GATE.PUTUSR_SUBR.SF.025(1)           179
            D4.2T2  483  GATE.PUTUSR_SUBR.SF.023            1 LINE     63    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:20
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). 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
04000/024   GATE                     PUTUSR SUBR     OE  G          S1200 RD15T1 VLO FSNAME=GATE.PUTUSR_SUBR.OE.026(1)           180
            D4.2T2  484  GATE.PUTUSR_SUBR.OE.024            1 LINE    348    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:22
04000/025   GATE                     SAMPLE SUBR     SF  G          S1200 RD15T1 VLO FSNAME=GATE.SAMPLE_SUBR.SF.027(1)           181
            D4.2T2  485  GATE.SAMPLE_SUBR.SF.025            1 LINE     67    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:24
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          S1200 RD15T1 VLO FSNAME=GATE.SAMPLE_SUBR.OE.028(1)           182
            D4.2T2  486  GATE.SAMPLE_SUBR.OE.026            1 LINE    630    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:26
04000/027   GATE                     TBLDEF SUBR     SF  G          S1200 RD15T1 VLO FSNAME=GATE.TBLDEF_SUBR.SF.029(1)           183
            D4.2T2  487  GATE.TBLDEF_SUBR.SF.027            1 LINE     65    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:28
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          S1200 RD15T1 VLO FSNAME=GATE.TBLDEF_SUBR.OE.030(1)           184
            D4.2T2  488  GATE.TBLDEF_SUBR.OE.028            1 LINE    394    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:30
04000/029   GATE                     TBLUSR SUBR     SF  G          S1200 RD15T1 VLO FSNAME=GATE.TBLUSR_SUBR.SF.031(1)           185
            D4.2T2  489  GATE.TBLUSR_SUBR.SF.029            1 LINE     68    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:32
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          S1200 RD15T1 VLO FSNAME=GATE.TBLUSR_SUBR.OE.032(1)           186
            D4.2T2  490  GATE.TBLUSR_SUBR.OE.030            1 LINE    856    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:34
04000/031   GATE                     DBLMATH SUBR    SA  G          S1200 RD15T1 VLO FSNAME=GATE.DBLMATH_SUBR.SA.033(1)          187
            D4.2T2  491  GATE.DBLMATH_SUBR.SA.031           1 LINE     72    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:36
0          SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM DOUBLE-WORD MATH
           ROUTINES.
04000/032   GATE                     DBLMATH SUBR    OC  G          S1200 RD15T1 VLO FSNAME=GATE.DBLMATH_SUBR.OC.034(1)          188
            D4.2T2  492  GATE.DBLMATH_SUBR.OC.032           1 LINE     80    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:38
04000/033   GATE                     GETSTAT SUBR    SA  G          S1200 RD15T1 VLO FSNAME=GATE.GETSTAT_SUBR.SA.035(1)          189
            D4.2T2  493  GATE.GETSTAT_SUBR.SA.033           1 LINE     73    8 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:40
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          S1200 RD15T1 VLO FSNAME=GATE.GETSTAT_SUBR.OC.036(1)          190
            D4.2T2  494  GATE.GETSTAT_SUBR.OC.034           1 LINE     80    3 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:43
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
04000/035   GATE                     FTN COMMON      SF  G          S1200 RD15T1 VLO FSNAME=GATE.FTN_COMMON.SF.037(1)            191
            D4.2T2  495  GATE.FTN_COMMON.SF.035             1 LINE     66    2 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:45
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          S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_USER.SF.038(1)         192
            D4.2T2  496  GATE.STAT_REC_USER.SF.036          1 LINE     52    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:47
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). 
04000/037   GATE                     STAT REC USER   OC  G          S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_USER.OC.039(1)         193
            D4.2T2  497  GATE.STAT_REC_USER.OC.037          1 LINE     72    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:49
0          OBJECT FILE FOR THE GATE STATISTICS RECORDING SYSTEM (4000/13 - 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.
04000/038   GATE                     STAT REC OPER   SF  G          S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_OPER.SF.040(1)         194
            D4.2T2  498  GATE.STAT_REC_OPER.SF.038          1 LINE     52    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:51
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          S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_OPER.OC.041(1)         195
            D4.2T2  499  GATE.STAT_REC_OPER.OC.039          1 LINE     72    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:53
0          OBJECT FILE FOR THE GATE STATISTICS RECORDING SYSTEM (4000/13 - 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              S1200 RD15T1 VLO FSNAME=GATE.*GSA.C.042(1)                   196
            D4.2T2  500  GATE.*GSA.C.040                    1 LINE     77    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:55
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.
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
04000/043   GATE                     OLDSTAT         D            # SYS:GS.OLDSTAT                                                  
                                                                                    UM   HELFFRICH                                  
0          EMPTY FILE USED BY *GSA.
04000/044   GATE                     STAT PARAMS     D              S1200 RD15T1 VLO FSNAME=GATE.STAT_PARAMS.D.046(1)            197
            D4.2T2  501  GATE.STAT_PARAMS.D.044             1 LINE     56    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:58
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              S1200 RD15T1 VLO FSNAME=GATE.*GSD.C.047(1)                   198
            D4.2T2  502  GATE.*GSD.C.045                    1 LINE     55    1 PAGE UM   HELFFRICH           SEP. 27, 1978  00:01:59
0          COMMAND FILE TO DEACTIVATE THE GATE STATISTICS COLLECTION SYSTEM.
04000/046   GATE                     WRITEUP         WF             S1200 RD15T1 VLO FSNAME=GATE.WRITEUP.WF.048(1)               199
            D4.2T2  503  GATE.WRITEUP.WF.046                1 LINE     97    9 PAGE UM   HELFFRICH           SEP. 27, 1978  00:02:01
0          STRUCTURAL DESCRIPTION AND USER'S GUIDE TO THE GATESTAT GATE STATISTICS
           COLLECTION SYSTEM.
04001       NONPRIV KWIC                                          # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT IS NOT INSTALLED AT MICHIGAN.
04003       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       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       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 
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
04011       SVMTABLE                                              # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS THE 
           CONTROL BLOCK FOR SVMR (4010).
04014       WHIZBANG                                              # (NOT DISTRIBUTED)                                               
                                                                                    WSU                                             
0          THIS COMPONENT IS NOT INSTALLED AT MICHIGAN.
04200       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.
04201       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       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       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       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       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       PN3203 JOB                                            # (NOT DISTRIBUTED)                                               
                                                                                    SFU                                             
0          THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE JOB
1                                                                                               SUN SEP 08/96   19:03:19   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
+         ______________ _____________________
0          THAT LOADS THE UCSB AND FCB BUFFERS FOR THE 3203-4 PRINTER WITH A PN PRINT
           TRAIN.
04403       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.
