1                                                                                               FRI AUG 02/96   19:04:25   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/01    UMLOAD                   D3 MASTER       SA  G  UMLD    S0720 'D3T1' FSNAME=UMLOAD..SA.1                               1
            D3T1      1  UMLOAD..SA.1                       1 LINE     80   91 PAGE UM   DE JONG             JULY 30, 1973  22:55.46
0          D3.0 VERSION OF MTS RELOCATABLE LOADER.
0          Referenced by comments of: 1/2, 254/1 
00001/02    UMLOAD                                   UU  G          W009:UMLDNEW.U                                                  
            D3.2T1    1  UMLOAD..UU.02                      1 LINE     72   12 PAGE UM   DE JONG             MAR. 21, 1975  00:50:22
0          UPDATE DECK TO PRODUCE CURRENT UMLOAD FROM D3.0 MASTER SOURCE (001/1).
00001/03    UMLOAD                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DE JONG                                    
00003/01    JOBLIST                                  SA  G  JBLS  = ????                                                            
            D3.1T1    3  JOBLIST..SA.1                      1 LINE     80    8 PAGE UM   MTA                 MAR. 06, 1974  03:15.04
0          MANY ASSEMBLIES WHICH TOGETHER FORM THE LIST OF AVAILABLE JOBS IN UMMPS.
           ASSEMBLE WITH PAR=B.
00003/02    JOBLIST                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00004/01    TABLES                                   SA  G  TABL    WSG:TABLES(1,999)                                               
            D3.2T1    2  TABLES..SA.01                      1 LINE     80   25 PAGE UM   WSG                 MAR. 21, 1975  00:50:39
0          TABLES THAT DEFINE THE HARDWARE CONFIGURATION FOR THE UM 370/168, THE NUMBER OF LOW-CORE TERMINAL I/O BUFFERS,
           THE LIST OF PUBLIC DISK VOLUME NAMES AND CORRESPONDING DISK DRIVES.  NOTE:  THE FORMAT OF THE LOGICAL CHANNEL
           TABLE HAS BEEN CHANGED FOR THE NEW SUPERVISOR.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:DSKDSCT (482/42),
           AND *CNFGINFODSECT(2) (654).
           THIS DECK IS DISTRIBUTED AS AN EXAMPLE OF AN I/O CONFIGURATION; OBVIOUSLY, EACH INSTALLATION MUST SUPPLY
           TABLES FOR THE LOCAL CONFIGURATION.
0          Referenced by comments of: 482/10 
00004/02    TABLES                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00004/03    TABLES                   WRITEUP         WF             S0720 'D3T1' FSNAME=TABLES.WRITEUP.WF.3                      5  
            D3T1      5  TABLES.WRITEUP.WF.3                1 LINE    133   13 PAGE UM   WSG                 JULY 30, 1973  22:59.04
0          WRITEUP IS OUT-OF-DATE.
00004/004   TABLES                   DECKGEN         SA  G  DCKP    W047:DCKPCHR.S                                                  
            D3.2T1    3  TABLES.DECKGEN.SA.05               1 LINE     80   70 PAGE UM   HAMILTON            MAR. 21, 1975  00:50:41
0          STAND-ALONE PROGRAM WRITTEN AT UBC AND MODIFIED AT UM WHICH GENERATES AN MTS OBJECT DECK FOR TABLES BASED
           ON INPUT ENTERED FROM THE OPERATOR'S CONSOLE.  IT WILL ALSO COPY A COMPLETE OBJECT DECK FROM ONE TAPE
           TO ANOTHER, INSERTING THE NEW TABLES DECK AS IT DOES.
           COPIES COPY:DSKDSCT (482/42) AND *CNFGINFODSECT (654).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00004/005   TABLES                   DECKGEN         OC  G          W047:DCKPCHR.O                                                  
            D3.2T1    4  TABLES.DECKGEN.OC.06               1 LINE     80    7 PAGE UM   HAMILTON            MAR. 21, 1975  00:50:49
0          THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE.
00004/006   TABLES                   DECKGEN DESCR   WF             W047:DCKPCHR.W                                                  
            D3.2T1    5  TABLES.DECKGEN_DESCR.WF.07         1 LINE    108    6 PAGE UM   HAMILTON            MAR. 21, 1975  00:50:50
0          WRITEUP DESCRIBING HOW TO USE THE DECKGEN PROGRAM TO GENERATE A TABLES OBJECT DECK.  A COPY IS INCLUDED WITH
           THE PAPER DOCUMENTATION.
00005/01    JBRP                                     SA  G  JBRP    MTA:JBRP                                                        
            D3.2T1    6  JBRP..SA.01                        1 LINE     80    8 PAGE UM   MTA                 MAR. 21, 1975  00:50:53
0          JOB REQUEST PROCESSOR (TASK INITIALIZATION).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:SETPARM (653).
00005/02    JBRP                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00005/03    JBRP                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00006/01    FNDJTL                                   SA  G  FNDJ    S0720 'D3T1' FSNAME=FNDJTL..SA.1                               7
            D3T1      7  FNDJTL..SA.1                       1 SEQ      80    2 PAGE UM   MTA                 JULY 30, 1973  23:00.56
0          FIND JOB TABLE.  UNCHANGED SINCE DIST 1.0.
00006/02    FNDJTL                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00007/01    FBJTJL                                   SA  G  FBJT    MTA:FBJTJL(1,999)                                               
            D3.2T1    7  FBJTJL..SA.01                      1 LINE     80    5 PAGE UM   MTA                 MAR. 21, 1975  00:50:55
0          FREE BUFFERS AND JOB TABLE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           NOTE:  &S370 CAUSES THE 360 AND 370 OBJECT TO BE DIFFERENT.
           ASSEMBLE USING COPY:SETPARM (653).
00007/02    FBJTJL                   370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00007/03    FBJTJL                   360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00008/01    FIDCQ                                    SA  G  FIDC    MTA:FIDCQ                                                       
            D3.2T1    8  FIDCQ..SA.01                       1 LINE     80    3 PAGE UM   MTA                 MAR. 21, 1975  00:50:57
0          FREE I/O DEVICES AND CPU QUEUE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           ASSEMBLE USING COPY:SETPARM (653).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00008/02    FIDCQ                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00009/01    BUFALLOC                                 SA  G  BUFA    MTA:BUFALLOC(1,999)                                             
            D3T1     10  BUFALLOC..SA.1                     1 LINE     80    3 PAGE UM   MTA                 JULY 30, 1973  23:01.01
0          SUBROUTINE TO ALLOCATE AND RELEASE 128-BYTE, LOW-CORE, TERMINAL, I/O BUFFERS.
           THIS ROUTINE IS CALLED BY SEVERAL TERMINAL DEVICE SUPPORT ROUTINES (TSFO, PDP8RTN, MNETRTN, ETC).
           IT ALLOCATES BUFFERS FROM A POOL OF BUFFERS WHICH ARE PART OF TABLES AND WHICH BUFALLOC REFERENCES
           WITH THE TABLES EXTERNAL SYMBOL 'TERMBFRS'.
           THE PURPOSE OF THESE BUFFERS IS TO HAVE THE TERMINAL ROUTINES DOING I/O INTO REAL-CORE BUFFERS,
           THUS AVOIDING THE OVERHEAD OF HAVING MANY VM PAGES LOCKED IN CORE DURING TERMINAL I/O.
            
           THE BUFSTAT PROGRAM (618) PRINTS WHICH JOB IS USING WHICH BUFFER(S).
00009/02    BUFALLOC                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00010/01    EXIT                                     SA  G  EXIT    MTA:EXIT(1,999)                                                 
            D3.2T1    9  EXIT..SA.01                        1 LINE     80    4 PAGE UM   MTA                 MAR. 21, 1975  00:50:59
0          KILLS CALLING TASK.  COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           NOTE:  &S370 CAUSES THE 360 AND 370 OBJECT TO BE DIFFERENT.
           ASSEMBLE USING COPY:SETPARM (653).
00010/02    EXIT                     370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00010/03    EXIT                     360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00011/01    CARDUC                                   SA  G  CDUC    S0720 'D3T1' FSNAME=CARDUC..SA.1                              12
            D3T1     12  CARDUC..SA.1                       1 LINE     80    9 PAGE UM   MTA                 JULY 30, 1973  03:30.59
0          2501 AND 2540 READER UNIT CHECK ROUTINES.
00011/02    CARDUC                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00012/01    TAPEUC                                   SA     TPUC    WSG:TAPEUC(1,999)                                               
            D3T1     13  TAPEUC..SA.1                       1 LINE     80   15 PAGE UM   WSG                 JULY 30, 1973  23:01.16
0          MAGNETIC TAPE UNIT CHECK ROUTINES.
00012/02    TAPEUC                                   OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00013/01    PTRUC                                    SA  G  PTUC    MTA:PTRUC                                                       
            D3T1     14  PTRUC..SA.1                        1 LINE     80    9 PAGE UM   MTA                 JULY 30, 1973  23:01.23
0          1403 AND 1443 PRINTER UNIT CHECK ROUTINES.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00013/02    PTRUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00014/01    PCHUC                                    SA  G  PCUC    S0720 'D3T1' FSNAME=PCHUC..SA.1                               15
            D3T1     15  PCHUC..SA.1                        1 LINE     80    6 PAGE UM   MTA                 JULY 30, 1973  03:31.18
0          2540 PUNCH UNIT CHECK ROUTINES.
00014/02    PCHUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00015       DASDUC                                                # (SEE COMP 482)                                                  
                                                                                    UM                                              
00016/01    CCTRANTB                                 SA  G  CCTR    S0720 'D3T1' FSNAME=CCTRANTB..SA.1                            16
            D3T1     16  CCTRANTB..SA.1                     1 SEQ      80    2 PAGE UM   MTA                 JULY 30, 1973  23:01.33
0          USED BY MTS TO TRANSLATE LOGICAL CARRIAGE CONTROL TO PRINTER COMMANDS.
           UNCHANGED SINCE DIST 1.0.
00016/02    CCTRANTB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00017/01    PN XLATE TABLE                           SA  G  PNXL    S0720 'D3T1' FSNAME=PN_XLATE_TABLE..SA.1                      17
            D3T1     17  PN_XLATE_TABLE..SA.1               1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:01.33
0          USED TO TRANSLATE 7090 EXTENDED BCD FOR THE PN TRAIN.  USED BY CPCC (026) AND
           OTHERWISE COMPLETELY WORTHLESS.
           UNCHANGED SINCE DIST 1.0.
00017/02    PN XLATE TABLE                           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00018/01    STOP/BLAST/GOOSE JOBS                    SA  G  STOP    S0720 'D3T1' FSNAME=STOP/BLAST/GOOSE_JOBS..SA.1               18
            D3T1     18  STOP/BLAST/GOOSE_JOBS..SA.1        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/02    STOP/BLAST/GOOSE JOBS                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00019/01    TASKS JOB                                SA  G  TSKS    WSG:UTASKS(1,999)                                               
            D3.2T1   10  TASKS_JOB..SA.01                   1 LINE     80   11 PAGE UM   WSG                 MAR. 21, 1975  00:51:01
0          THE JOB PROGRAM VERSION OF *TASKS (145); CONTAINS THE TSKFMT SUBROUTINE CALLED BY *TASKS (145) AND SSRTN (413/1).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           NOTE: THE TSKFMT CALLING SEQUENCE HAS BEEN CHANGED.
0          Referenced by comments of: 145/1, 647/1 
00019/02    TASKS JOB                370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00019/03    TASKS JOB                360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   WSG                                        
00020/01    JOBDUMP JOB                              SA  G  JBDM    S0720 'D3T1' FSNAME=JOBDUMP_JOB..SA.1                         20
            D3T1     20  JOBDUMP_JOB..SA.1                  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 2.0.
00020/02    JOBDUMP JOB                              OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00021/01    BROADCST                                 SA  G  BDCS    WSG:BDCS(1,999)                                                 
            D3.2T1   11  BROADCST..SA.01                    1 LINE     80    9 PAGE UM   WSG                 MAR. 21, 1975  00:51:03
0          JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR TO ALL USERS.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
           HAS A SETB SYMBOL (&DC) WHICH CONTROLS CONDITIONAL ASSEMBLY OF
           EXTRA BROADCAST CODE FOR THE UM DATA CONCENTRATORS.
00021/02    BROADCST                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
0          OBJECT ASSEMBLED WITH &DC SETB 1.
00022       LOWCORE                                               # (OBSOLETE)                                                      
                                                                                    UM                                              
00023/01    REW ET AL                                SA  O  TPMV    S0720 'D3T1' FSNAME=REW_ET_AL..SA.1                           22
            D3T1     22  REW_ET_AL..SA.1                    1 SEQ      80    4 PAGE UM   MTA                 JULY 30, 1973  23:03.39
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 CONTROLS.
           UNCHANGED SINCE DIST 1.0.
00023/02    REW ET AL                                OC  O        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00024/01    ONLINE/OFFLINE                           SA  G  ONOF    MTS:ON/OFFLINE(1,999)                                           
            D3.2T1   12  ONLINE/OFFLINE..SA.01              1 LINE     80   18 PAGE UM   MTA                 MAR. 21, 1975  00:51:05
0          JOB TO ONLINE OR OFFLINE A DEVICE, CONTROL UNIT, CHANNEL, OR CHANNEL-CONTROL UNIT PATH.
           COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU (087).
            
           (1) TO ONLINE/OFFLINE ONE OR MORE DEVICES:
                ONLINE|OFFLINE DEVNAME1 DEVNAME2 ...
            
           (2) TO ONLINE/OFFLINE A CONTROL UNIT:
                ONLINE|OFFLINE CU|ALL DEVNAME1|CU#1 DEVNAME2|CU#2 ...
               WHERE THE DEVNAMES MUST BE NAMES OF DEVICES THAT ARE ATTACHED TO ONLY ONE CONTROL UNIT,
               AND THE CU#S ARE CONTROL UNIT NUMBERS AS ASSIGNED IN TABLES.
            
           (3) TO ONLINE/OFFLINE A CONNECTION BETWEEN A CHANNEL AND A CONTROL UNIT:
                ONLINE|OFFLINE CHAN|CH|CHANNEL CHANAD DEVNAME1|CU#1 DEVNAME2|CU#2 ...
               WHERE CHANAD IS EITHER A CHANNEL NUMBER IN HEX (E.G. 0, 1, 2, ETC.) OR A CHANNEL ADDRESS
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0              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/02    ONLINE/OFFLINE                           OC  O        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00025/01    QN/PN/TN JOBS                            SA  G  UCSI    S0720 'D3T1' FSNAME=QN/PN/TN_JOBS..SA.1                       24
            D3T1     24  QN/PN/TN_JOBS..SA.1                1 SEQ      80    5 PAGE UM   MTA                 JULY 30, 1973  23:03.42
0          THREE ASSEMBLIES THAT LOAD THE 1403 UCS BUFFER FOR QN, PN, OR TN CHARACTER SETS.
           THE QN JOB CONTAINS A SUBROUTINE USED BY ALL THE REST OF THEM.
           FOR EXAMPLE, ENTERING "PN PTR1 ECHO" ON THE OPERATOR'S CONSOLE WILL LOAD THE UCS BUFFER FOR PTR1 WITH THE PN
           CHARACTER SET AND ECHO THE CHARACTERS TO THE PRINTER FOR VERIFICATION.
           UNCHANGED SINCE DIST 2.0.
0          Referenced by comments of: 1027/1 
00025/02    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
0          Referenced by comments of: 17/1 
00027       MOVIT                                                 # (SEE COMP 482)                                                  
                                                                                    UM                                              
00029       VTOC                                                  # (SEE COMP 482)                                                  
                                                                                    UM                                              
00030       READT <TRAK>                                          # (SEE COMP 482)                                                  
                                                                                    UM                                              
00031       GTZ                                                   # OBSOLETE                                                        
            D2.1    036                                                             UM                                              
00032       READI                                                 # (SEE COMP 482)                                                  
                                                                                    UM                                              
00033       WRITEI                                                # (SEE COMP 482)                                                  
                                                                                    UM                                              
00034       READL                                                 # (SEE COMP 482)                                                  
                                                                                    UM                                              
00036       OPEN SCRTCH<EMPTY> ETC                                # (SEE COMP 482)                                                  
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00037       GETDSK ETC                                            # (SEE COMP 482)                                                  
                                                                                    UM                                              
00038/01    TSFO                                     SA  G  TSFO    W032:TSFOSOU3.1                                                 
            D3.1T1   11  TSFO..SA.1                         1 LINE     80  166 PAGE UM   EMERY               MAR. 06, 1974  03:15.55
0          SOURCE FOR DIST 3.0 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).
            
           AFTER TSFO ANSWERS THE PHONE FOR TYPE 2741, IT ASKS THE USER TO TYPE "GO" SO THAT IS CAN 
           IDENTIFY THE KEYBOARD TYPE.  THE RESPONSE "GONNN" WHERE NNN IS A DEFINED GOLF BALL TYPE (LAST 3 DIGITS)
           CAUSES TSFO TO SET UP FOR THAT GOLFBALL TYPE. THE %GOLF=NNN DEVICE COMMAND CAN ALSO BE USED.
           WHEN IT ANSWERS THE PHONE FOR TYPE MRXA, NOTHING HAPPENS UNTIL THE USER TYPES "GO" AT WHICH POINT
           THE 1270 DETERMINES THE BAUD RATE (110, 135, 150, OR 300) AND FRAME SIZE.  USING A 1270 WITH
           AUTO-SPEED MEANS THAT (FOR DIAL-UP TERMINALS) IT IS NOT NECESSARY TO SEGREGATE THE TELEPHONE LINES
           INTO TWO GROUPS (TTY AND 2741) AS IS NECESSARY FOR A 2703 OR 1270 WITHOUT AUTO-SPEED.
           IN ADDITION, ASCII TERMINALS AT 150 AND 300 BAUD ARE SUPPORTED FOR TYPE MRXA.
            
           TSFO INCLUDES AN ASSEMBLY PARAMETER FOR THE AUTO-SPEED MRXA OPTION.
            
           WHEN YOU CHANGE THE GOLF BALL TYPE YOU ALSO CHANGE THE CHARACTERS USED FOR LINE DELETE, ETC.
           CHARACTERS USED FOR APL ARE: 
             DEVICE COMMAND   UP ARROW
             LITERAL NEXT     RIGHT ARROW
             END OF FILE      DOWN ARROW
             DELETE LINE      UNDERSCORE
             DELETE CHARACTER BACKSPACE
           OF COURSE, WHEN APL ITSELF IS RUNNING THE CHARACTERS ARE AS DEFINED BY APL. THIS SET IS
           USED ONLY WHEN USING THE APL GOLFBALL WITH PROGRAMS OTHER THAN APL.
00038/02    TSFO                     *2741RTN        OC  G          *2741RTN                                                        
            D3.1T1   12  TSFO.*2741RTN.OC.2                 1 LINE     80   11 PAGE UM   EMERY               MAR. 06, 1974  03:16.23
0          THIS IS THE TSFO OBJECT FILE WHICH IS NORMALLY LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL.
           THE "COM" CARD AT THE BEGINNING TELLS THE SEG 2 LOADER 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
            
           IF THIS FILE IS NOT LOADED BY THE SEG 2 LOADER (I.E. MTS FINDS THAT THE SYMBOL TSFO IS NOT DEFINED
           IN LCSYMBOL), THEN *2741RTN IS DYNAMICALLY LOADED INTO SEG 4 (PRIVATE SYSTEM STORAGE) WHEN A DEVICE
           OF TYPE 2741 IS USED.
00038/03    TSFO                     *TTYRTN         OC  G          *TTYRTN                                                         
            D3T1     28  TSFO.*TTYRTN.OC.3                  1 LINE     30    1 PAGE UM   EMERY               JULY 30, 1973  23:04.34
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 TH1 SEG 2 LOADER AT IPL.
1                                                                                               FRI AUG 02/96   19:04:25   Page    8
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00038/04    TSFO                     *MRXARTN        OC  G          *MRXARTN                                                        
            D3T1     29  TSFO.*MRXARTN.OC.4                 1 LINE     30    1 PAGE UM   EMERY               JULY 30, 1973  23:04.36
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 THE SEG 2 LOADER AT IPL.
00038/05    TSFO                     TRTBLGEN        SA     TGEN    W032:TRTBLGEN(1,500)                                            
            D3T1     30  TSFO.TRTBLGEN.SA.5                 1 LINE     80   11 PAGE UM   EMERY               JULY 30, 1973  23:04.38
0          PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE ALL NON-ASCII
           TABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY
           ARBITRARY TRANSLATE TABLES.  LOGICAL I/O UNITS USED ARE:
             1         DEFINITION OF NAMES OF CHARACTERS (038/9).
             2         DEFINITION OF CHARACTER SET ON THE GOLFBALL.  038/10 AND 038/11 ARE EXAMPLES.
             3         DEFINITION OF THE CODE SET BEING USED (EITHER 038/7 OR 038/8).
             SPRINT    PRINTED OUTPUT  AND ERROR COMMENTS.
             SPUNCH    NEW TRANSLATE TABLES.
            
           THE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK.
            
00038/06    TSFO                     TRTBLGEN        OC             W032:TRTBLGEN(2000)                                             
            D3T1     31  TSFO.TRTBLGEN.OC.6                 1 LINE     80    3 PAGE UM   EMERY               JULY 30, 1973  23:04.41
00038/07    TSFO                     KBD2741PTTC     D              W032:KBD2741PTTC                                                
            D3T1     32  TSFO.KBD2741PTTC.D.7               1 LINE     41    1 PAGE UM   EMERY               JULY 30, 1973  23:04.43
0          SEE 038/5.  THIS IS THE 2741 PTTC KEYBOARD DEFINITION.
00038/08    TSFO                     KBD2741CORR     D              W032:KBD2741CORR                                                
            D3T1     33  TSFO.KBD2741CORR.D.8               1 LINE     41    1 PAGE UM   EMERY               JULY 30, 1973  23:04.45
0          SEE 038/5.  THIS IS THE 2741 CORRESPONDENCE KEYBOARD DEFINITION.
00038/09    TSFO                     EBCDDEFN        D              W032:EBCDDEFN                                                   
            D3T1     34  TSFO.EBCDDEFN.D.9                  1 LINE     32    3 PAGE UM   EMERY               JULY 30, 1973  23:04.47
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/10    TSFO                     GOLFPTTC        D              W032:GOLFPTTC                                                   
            D3T1     35  TSFO.GOLFPTTC.D.10                 1 LINE     72    3 PAGE UM   EMERY               JULY 30, 1973  23:04.50
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 
1                                                                                               FRI AUG 02/96   19:04:25   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/11    TSFO                     GOLFCORR        D              W032:GOLFCORR                                                   
            D3T1     36  TSFO.GOLFCORR.D.11                 1 LINE     72    8 PAGE UM   EMERY               JULY 30, 1973  23:04.52
0          SEE 038/5.  THIS FILE CONTAINS DEFINITIONS OF CORRESPONDENCE GOLF BALLS.
           THE DEFINITIONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER.
           CONTAINS "$CONTINUE WITH W032:GOLFCORR" LINES.
0          Referenced by comments of: 575/3 
00038/12    TSFO                     MEMO M248       WF             WSG:M248                                                        
            D3.1T1   13  TSFO.MEMO_M248.WF.12               1 LINE    115    1 PAGE UM   EMERY               MAR. 06, 1974  03:16.26
0          THIS IS COMPUTING CENTER MEMO M248 -- "MEMOREX 1270: 2 MINOR CHANGES"
00038/13    TSFO                     MEMO M253       WF             W098:KDM253                                                     
            D3.1T1   14  TSFO.MEMO_M253.WF.13               1 LINE    127    5 PAGE UM   EMERY               MAR. 06, 1974  03:16.28
0          THIS IS COMPUTING CENTER MEMO M253 -- "BASIC USE OF THE MODEL 35 TELETYPE WITH THE MEMOREX 1270"
00039/01    CASECONV                                 SA     CASE    W032:CASECONV                                                   
            D3T1     37  CASECONV..SA.1                     1 LINE     80    1 PAGE UM   EMERY               JULY 30, 1973  23:04.54
0          TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE.
           ALL OTHER CHARACTERS ARE UNCHANGED.
00039/02    CASECONV                                 OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   EMERY                                      
00040/01    KWIC                     D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=KWIC                  2  
            D3T1     38  KWIC..SA.1                         1 SEQ      80   14 PAGE UM   DWB                 JULY 30, 1973  23:08.27
0          KEY WORD SCANNER FOR MTS AND OTHERS.
           COPIES COPY:MTS.EQU (345), COPY:MTS.RHTABLE (348), COPY:MTS.DSECT (346), COPY:MTS.CONTAB (343),
           COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 40/2, 344/1, 348/1 
00040/02    KWIC                     UPDATE          UU  G          MTS:KWICUPD                                                     
            D3.2T1   13  KWIC.UPDATE.UU.02                  1 LINE     72    1 PAGE UM   DWB                 MAR. 21, 1975  00:51:09
0          UPDATE TO D3 MASTER (040/1) TO PRODUCE CURRENT SOURCE.
           UPDATE DECK USES %POSN *IN* KWIC.
00040/03    KWIC                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00041/01    GETSPACE/FREESPAC        D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=GSFS                  3  
            D3T1     39  GETSPACE/FREESPAC..SA.1            1 SEQ      80   20 PAGE UM   DWB                 JULY 30, 1973  23:08.31
0          MTS STORAGE (VM) ALLOCATION SUBROUTINES.
           COPIES COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), 
           AND COPY:MTS.TV (640).
           NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
1                                                                                               FRI AUG 02/96   19:04:25   Page   10
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 41/2, 344/1 
00041/02    GETSPACE/FREESPAC        UPDATE          UU  G          MTS:GSFSUPD                                                     
            D3.2T1   14  GETSPACE/FREESPAC.UPDATE.UU.02     1 LINE     64    2 PAGE UM   DWB                 MAR. 21, 1975  00:51:11
0          UPDATE TO D3 MASTER (041/1) TO PRODUCE CURRENT SOURCE.
           UPDATE DECK USES %POSN *IN* GSFS.
00041/03    GETSPACE/FREESPAC                        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00042/01    MTS                      D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=MTS                   1  
            D3T1     40  MTS..SA.1                          1 SEQ      80  373 PAGE UM   DWB                 JULY 30, 1973  23:09.19
0          MASTER SOURCE FOR DIST 3.0 MTS.  COPIES COPY:MTS.EQU (345), COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/2), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:MTS.RHTABLE (348), COPY:CLSPLAN (535/1),
           AND COPY:JOBSTA (413/14).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 42/2, 344/1, 348/1, 635/2, 636/2, 637/2, 638/2, 639/2 
00042/02    MTS                      UPDATE          UU  G          MTS:MTSUPD                                                      
            D3.2T1   15  MTS.UPDATE.UU.02                   1 LINE     72   10 PAGE UM   DWB                 MAR. 21, 1975  00:51:13
0          UPDATE DECK TO PRODUCE CURRENT SOURCE FROM D3 MTS MASTER SOURCE (042/1).
           NOTE:  UPDATE DECK USES %POSN *IN* MTS.
            
           THE FOLLOWING IS A COMPLETE LIST OF THE MTS SUBROUTINES: 
            
               KWIC                040
               GETSPACE/FREESPAC   041
               GUINFO/CUINFO       198
               LLXU                354
               CHECKSUM            462
               PLIMIT              464
               TIMNTRP             539
               RSF                 578
               FSUB                635
               CMDS                636
               DSRS                637
               USUB                638
               DSRI                639
00042/03    MTS                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00042/04    MTS                      ASM JOB         C              MTS:MTSASM                                                      
            D3.2T1   16  MTS.ASM_JOB.C.04                   1 LINE    105    2 PAGE UM   DWB                 MAR. 21, 1975  00:51:19
0          AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES FOR A 360.
           AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES FOR A 360.
           AT LINE 2000, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES FOR A 370.
           AT LINE 3000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES FOR A 370.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00043/01    LCSYMBOL                                 SA  G  LCSY    MTS:LCSYMBOL(1,999)                                             
            D3.2T1   17  LCSYMBOL..SA.01                    1 LINE     80    7 PAGE UM   DWB                 MAR. 21, 1975  00:51:20
0          LOW-CORE SYMBOL TABLE.  CONTAINS DEFINITIONS OF SYMBOLS IN SEGMENTS 0 AND 2 THAT USERS REFER TO.
           COPIES COPY:GLOBALS (1026/4).
00043/02    LCSYMBOL                 370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00043/03    LCSYMBOL                 360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   DWB                                        
00044/01    PDP                                      SA  G  PDP0    W047:PDP.S                                                      
            D3.2T1   18  PDP..SA.01                         1 LINE     80   58 PAGE UM   HAMILTON            MAR. 21, 1975  00:51:24
0          THE PAGING DRUM PROCESSOR.
           COPIES COPY:PCBDSECT (470), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 604/1 
00044/02    PDP                      37O OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HAMILTON                                   
00044/03    PDP                      36O OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   HAMILTON                                   
0          360 OBJECT ALSO AVAILABLE IN W047:PDP.360.O.
00045/01    SUPERVISOR               UMMPS.360       UU  G          S0699 D3TAPE POSN=UMMPS.360.UPD                              12 
            D3.2T1   19  SUPERVISOR.UMMPS.360.UU.01         1 SEQ      80   32 PAGE UM   MTA                 MAR. 21, 1975  00:52:56
0          UPDATE DECK TO APPLY TO D3.0 SUPERVISOR SOURCE TO PRODUCE THE
           LAST VERSION WHICH SUPPORTED THE 360/67 ONLY (45/2).
0          Referenced by comments of: 604/1, 609/1, 611/1 
00045/02    SUPERVISOR               UMMPS.360       SA  G          S0699 D3TAPE POSN=UMMPS.360                                  13 
            D3.2T1   20  SUPERVISOR.UMMPS.360.SA.02         1 SEQ      80  252 PAGE UM   MTA                 MAR. 21, 1975  00:53:09
0          MASTER SOURCE FOR LAST 360/67 VERSION.  ASSEMBLY PARAMETERS ARE SET TO USE THE SLT RPQ, INITIALLY CLEAR VM,
           AND NOT TIME THINGS LIKE TS LOOPS.  THESE ARE THE ONLY CONFIGURATION DEPENDENT ASPECTS.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:PSA (162), COPY:PCBDSECT (470), AND COPY:CPSCNPAR (609/3).
           ASSEMBLE USING *SYSMAC.
            
           NOTE:  THE SUPERVISOR HAS 3 PARAMETERS WHICH CONTROL THE OPERATION OF THE PRIVILEDGED JOB MECHANISM.
                  THIS MECHANISM ATTEMPTS TO CONTROL THRASHING BY DETECTING JOBS WHICH REQUIRE A SIZEABLE AMOUNT
                  OF REAL CORE AND ONLY LETTING SUCH JOBS RUN IF THE ESTIMATED WORKING SET SIZE OF ALL SUCH JOBS
                  DOES NOT EXCEED A CERTAIN GLOBAL VALUE.  ONE OF THE 3 PARAMETERS DETERMINES THE THRESHOLD
                  (IN REAL PAGES) AT WHICH THE SUPERVISOR DECIDES (FOR ANY JOB WHICH MANAGES TO ACQUIRE THAT MANY 
                  REAL PAGES) WHETHER OR NOT THE JOB MAY GO FROM "NEUTRAL" TO "PRIVILEDED" AND CONTINUE TO EXECUTE
                  (WITH A LARGER TIME SLICE).  IF THE ANSWER IS NO, THE JOB IS MADE "NON-PRIVILEDGED" FOR A WHILE
                  AND NOT ALLOWED TO EXECUTE.  THE ANSWER IS BASED ON THE SECOND OF THE 3 PARAMETERS, WHICH SPECIFIES
                  HOW MANY REAL PAGES (MAXIMUM) ARE TO BE DEVOTED TO "BIG JOBS", I.E. PRIVILEDGED JOBS.  ACTUALLY,
                  WHEN THE TEST IS MADE FOR A JOB WHICH HAS ACHIEVED THE PARAMETER 1 (BIGJTH) THRESHOLD, THE GREATER
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0                 OF THE JOB'S ACTUAL REAL PAGES AND HIS ESTIMATED WORKING SET IS USED TO DETERMINE IF THIS JOB WILL
                  "BREAK THE CAMEL'S BACK", I.E. EXCEED THE PARAMETER 2 (ADDBIGJ) THRESHOLD.  FOR THIS REASON, THE
                  SECOND PARAMETER THRESHOLD MAY BE REACHED BEFORE THE CURRENT BIG JOBS COLLECTIVELY HAVE THAT MANY
                  REAL PAGES IF THE CURRENT WORKING SET ESTIMATE FOR ANY OF THE JOBS IS TOO HIGH.  THESE 3
                  PARAMETERS ARE ADJUSTED DYNAMICALLY BY BJPMOD (650/1) IN RESPONSE TO THE SYSTEM LOAD.
0          Referenced by comments of: 45/1, 45/3 
00045/03    SUPERVISOR               UMMPS.370       UU  G          MTA:UMMPS.U-370                                                 
            D3.2T1   21  SUPERVISOR.UMMPS.370.UU.03         1 LINE     71   33 PAGE UM   MTA                 MAR. 21, 1975  00:53:21
0          UPDATE TO UMMPS.360 MASTER (45/2) TO PRODUCE THE CURRENT 370 SUPERVISOR.
           COPIES COPY:CMDAREADSECT (631/12) IN ADDITION TO ITEMS LISTED FOR 45/2.
           NOTE:  THIS VERSION OF THE SUPERVISOR HAS NOT BEEN TESTED WITH &S370 SET TO 0.
00045/04    SUPERVISOR               370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00045/05    SUPERVISOR               360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00045/06    SUPERVISOR               SVC WRITEUP     WT             MTS:SVCDESCR                                                    
            D3T1     52  SUPERVISOR.SVC_WRITEUP.WT.7        1 LINE     80   31 PAGE UM   HAMILTON            JULY 30, 1973  23:24.13
0          TEXT/360 MASTER FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS.
00045/07    SUPERVISOR               SVC WRITEUP     PT             MTS:SVCPRINT                                                    
            D3T1     53  SUPERVISOR.SVC_WRITEUP.PT.8        1 SEQ     132   91 PAGE UM   HAMILTON            JULY 30, 1973  23:24.22
0          TEXT/360 PRINT FILE.
00045/08    SUPERVISOR               TEST SVC STIO   SA  G  TSIO    MTA:TESTSTIO(1,999)                                             
            D3.2T1   22  SUPERVISOR.TEST_SVC_STIO.SA.08     1 LINE     80    3 PAGE UM   MTA                 MAR. 21, 1975  00:53:38
0          TEST PROGRAM FOR SVC STIO TO BE USED IN THE VIRTUAL MACHINE.
00045/09    SUPERVISOR               TEST SVC STIO   OC  G          MTA:TESTSTIO(1000)                                              
            D3.2T1   23  SUPERVISOR.TEST_SVC_STIO.OC.09     1 LINE     80    2 PAGE UM   MTA                 MAR. 21, 1975  00:53:40
00046/01    CONFIG                   360 UPDATE      UU  G          S0699 D3TAPE POSN=CONFIG.360.UPD                             10 
            D3.2T1   24  CONFIG.360_UPDATE.UU.01            1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  00:53:53
0          UPDATE TO D3.0 SOURCE TO PRODUCE 46/2.
00046/02    CONFIG                   360 MASTER      SA  G          S0699 D3TAPE POSN=CONFIG.360                                 11 
            D3.2T1   25  CONFIG.360_MASTER.SA.02            1 SEQ      80   23 PAGE UM   MTA                 MAR. 21, 1975  00:53:55
0          CONFIGURATION PROGRAM MASTER SOURCE FOR "360 ONLY" VERSION.  COPIES COPY:LLMPSEQU (087), COPY:PSA (162),
           COPY:GLOBALS (1026/4), COPY:PCBDSECT (470), COPY:CHAERC (577/30), AND COPY:CHASYS.2 (577/35).
00046/03    CONFIG                   370 UPDATE      UU  G          MTA:CONFIG.U-370                                                
            D3.2T1   26  CONFIG.370_UPDATE.UU.03            1 LINE     72    8 PAGE UM   MTA                 MAR. 21, 1975  00:53:58
0          UPDATE TO 046/2 TO PRODUCE CURRENT 370 CONFIG.  COPIES *CNFGINFOSECT (654)
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          IN ADDITION TO FILES LISTED FOR 046/2.
00046/04    CONFIG                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
0          ***** NOTE:  THIS OBJECT CONTAINS A REP CARD TO CHANGE THE VERSION DATE TO 01-01-75.
00047/01   *CATALOG                                  SA  G  CATL    W045:PF.LCATALOG                                                
            D3T1     56  CATALOG..SA.1                      1 LINE     80    8 PAGE UM   PIRKOLA             JULY 30, 1973  23:26.21
0          PROGRAM TO PRINT NAMES OF USERS FILES (CALLED *FILES AT UBC).  COPIES *GFINFODSECT (593).
           ALSO COPIES COPY:LLMPSEQU (087).
           MAINTAINED FOR HISTORICAL REASONS ONLY. USE $FILES
00047/02   *CATALOG                                  OC  G          *CATALOG                                                        
            D3T1     57  CATALOG..OC.2                      1 LINE     80    3 PAGE UM   PIRKOLA             JULY 30, 1973  23:26.23
00049/01    SDUMP                                    SA     SDMP    W032:SDUMP(1,700)                                               
            D3T1     58  SDUMP..SA.1                        1 LINE     80   16 PAGE UM   EMERY               JULY 30, 1973  23:26.25
0          MTS SUBROUTINE TO PRODUCE DUMPS.
           REQUIRES *SYSMAC.
0          Referenced by comments of: 463/1 
00049/02    SDUMP                                    OC           # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   EMERY                                      
00050/01    STATISTICS               *STA            C              *STA                                                            
            D3T1     59  STATISTICS.*STA.C.1                1 LINE     29    1 PAGE UM   WSG                 JULY 30, 1973  23:26.29
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
           AUTOMATICALLY WARNS THE OPERATOR WHEN *STATISTICS IS NEARLY FULL BY PRINTING "*** *STATISTICS IS FULL ***"
           ON THE CONSOLE.  WHEN THIS HAPPENS, THE OPERATOR SHOULD IMMEDIATELY ENTER "MTS *STA" TO BEGIN THE SAVE PROGRAM
           BEFORE IT IS REALLY FULL (JOBS WILL BEGIN TO "SNARK" WHEN IT IS REALLY FULL).
00050/02    STATISTICS               SAVE PROGRAM    SA  G  SSAV    WSG:SSAV(1,999)                                                 
            D3T1     60  STATISTICS.SAVE_PROGRAM.SA.2       1 LINE     80    8 PAGE UM   WSG                 JULY 30, 1973  23:26.31
0          PROGRAM TO SAVE *STATISTICS ON TAPE.  THIS PROGRAM IS RUN BY ENTERING "MTS *STA" ON THE OPERATOR'S CONSOLE.
           IT FIRST ASKS THE OPERATOR FOR THE NAME OF THE 9-TRACK TAPE DRIVE ON WHICH HE HAS MOUNTED AN "INDIVIDUAL" STAT
           TAPE (WITH THE RING IN).  THE INDIVIDUAL TAPE (300 FEET IS LONG ENOUGH) SHOULD BE LABELED WITH "STAT  " AS THE
           VOLUME NAME.  THIS PROGRAM WILL THEN COPY *STATISTICS(3,LAST) TO THIS TAPE WHICH IS BLOCKED VB(16379,255).
           THE CURRENT TIME AND DATE WILL BE USED AS THE DATA SET NAME.  THE DATA READ FROM *STATISTICS IS ALSO SAVED IN
           VM AND THE TAPE IS REWOUND AND COMPARED WITH THE VM COPY.  IF THE COMPARE IS SUCCESSFUL, LINE 2 OF *STATISTICS
           (USED TO FIND THE CURRENT FILE ON THE MONTHLY TAPE) IS SAVED AND THE FILE IS EMPTIED.  LINE 1 (USED BY MTS
           FOR HISTORICAL REASONS TO INDICATE THE LAST LINE NUMBER CURRENTLY IN THE FILE) IS SET TO "00002" AND LINE 2
           IS RESTORED AFTER BEING UPDATED BY 1.  THE FILE IS THEN UNLOCKED WHICH ALLOWS ANY WAITING USERS TO SIGNOFF.
           THE INDIVIDUAL TAPE IS UNLOADED AND THE OPERATOR IS ASKED TO ENTER THE NAME OF THE TAPE DRIVE WHERE THE MONTHLY
           TAPE IS MOUNTED (RING IN).  THE MONTHLY TAPE SHOULD HAVE "STATM " AS THE VOLUME NAME.  THE TAPE WILL BE SPACED
           OUT TO THE FILE NUMBER SPECIFIED BY LINE 2 OF *STATISTICS AND THE VM COPY OF THE DATA WILL BE ADDED TO THE
           MONTHLY TAPE AS A NEW FILE.  IF THE MONTHLY TAPE HAS NO FILES ON IT (FRESHLY LABELED), THE PROGRAM WILL ASK THE
           OPERATOR IF HE IS BEGINNING A NEW MONTHLY TAPE AND IF HE REPLIES "YES" THEN IT RESETS LINE 2 OF *STATISTICS.
1                                                                                               FRI AUG 02/96   19:04:25   Page   14
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          THERE IS NOTHING IN THE PROGRAM (OTHER THAN TERMINOLOGY) WHICH IS ORIENTED TO A MONTHLY CYCLE OF TAPES.  THE
           CYCLE IS CONTROLLED BY THE OPERATOR STARTING A NEW "MONTHLY" TAPE.
            
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 256/2 
00050/03    STATISTICS               SAVE PROGRAM    OC  G          SYS:STA                                                         
            D3T1     61  STATISTICS.SAVE_PROGRAM.OC.3       1 LINE     80    3 PAGE UM   WSG                 JULY 30, 1973  23:26.33
00051/01   *WATFOR                   ARITH           S            # (OBSOLETE)                                                      
            D2T2    011                                                             UM                                              
00051/02   *WATFOR                   DODO            S            # (OBSOLETE)                                                      
            D2T2    012                                                             UM                                              
00051/03   *WATFOR                   DUMMY           S            # (OBSOLETE)                                                      
            D2T2    013                                                             UM                                              
00051/04   *WATFOR                   DUMMYFUN        S            # (OBSOLETE)                                                      
            D2T2    014                                                             UM                                              
00051/05   *WATFOR                   FIOCS           S            # (OBSOLETE)                                                      
            D2T2    015                                                             UM                                              
00051/06   *WATFOR                   FIOSTAB         S            # (OBSOLETE)                                                      
            D2T2    016                                                             UM                                              
00051/07   *WATFOR                   FORMAT          S            # (OBSOLETE)                                                      
            D2T2    017                                                             UM                                              
00051/08   *WATFOR                   FORMCONV        S            # (OBSOLETE)                                                      
            D2T2    018                                                             UM                                              
00051/09   *WATFOR                   FRIOSCAN        S            # (OBSOLETE)                                                      
            D2T2    019                                                             UM                                              
00051/10   *WATFOR                   FUNCTION        S            # (OBSOLETE)                                                      
            D2T2    020                                                             UM                                              
00051/11   *WATFOR                   INOUT           S            # (OBSOLETE)                                                      
            D2T2    021                                                             UM                                              
00051/12   *WATFOR                   LINKR           S            # (OBSOLETE)                                                      
            D2T2    022                                                             UM                                              
00051/13   *WATFOR                   MAIN            S            # (OBSOLETE)                                                      
            D2T2    023                                                             UM                                              
00051/14   *WATFOR                   MESSAGE         S            # (OBSOLETE)                                                      
            D2T2    024                                                             UM                                              
1                                                                                               FRI AUG 02/96   19:04:25   Page   15
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00051/15   *WATFOR                   RELOC           S            # (OBSOLETE)                                                      
            D2T2    025                                                             UM                                              
00051/16   *WATFOR                   SCAN            S            # (OBSOLETE)                                                      
            D2T2    026                                                             UM                                              
00051/17   *WATFOR                   SPECS           S            # (OBSOLETE)                                                      
            D2T2    027                                                             UM                                              
00051/18   *WATFOR                   OPTIONS         S            # (OBSOLETE)                                                      
            D2T2    028                                                             UM                                              
00051/19   *WATFOR                   CDEFN           S            # (OBSOLETE)                                                      
            D2T2    029                                                             UM                                              
00051/20   *WATFOR                   COMMR           S            # (OBSOLETE)                                                      
            D2T2    030                                                             UM                                              
00051/21   *WATFOR                   STARTA          S            # (OBSOLETE)                                                      
            D2T2    031                                                             UM                                              
00051/22   *WATFOR                   WATMAC          S            # (OBSOLETE)                                                      
            D2T2    032                                                             UM                                              
00051/23   *WATFOR                   UAT             O            # (OBSOLETE)                                                      
            D2T2    033                                                             UM                                              
00051/24   *WATFOR                   UPDATE          U            # (OBSOLETE)                                                      
            D2.2    091                                                             UM                                              
00051/25   *WATFOR                   DIAGS           S            # (OBSOLETE)                                                      
            D2T2    035                                                             UM                                              
00051/26   *WATFOR                   DIAGS           O            # (OBSOLETE)                                                      
            D2T2    036                                                             UM                                              
00052/01   *COINFLIP                                 SA     CNFL    S0720 'D3T1' FSNAME=COINFLIP..SA.1                            62
            D3T1     62  COINFLIP..SA.1                     1 SEQ      80    3 PAGE UM   HENRIKSEN           JULY 30, 1973  23:27.01
0          DEMONSTARTION PROGRAM.
00052/02   *COINFLIP                                 OE             *COINFLIP                                                       
            D3T1     63  COINFLIP..O.2                      1 LINE    255    1 PAGE UM   HENRIKSEN           JULY 30, 1973  23:27.02
00053/01    DISKDUMP                                 SA  G  DSKD    MTS:DISKDUMP.S                                                  
            D3T1     64  DISKDUMP..SA.1                     1 LINE     80   11 PAGE UM   PIRKOLA             JULY 30, 1973  23:27.03
0          PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS.  DOESN'T CALL MTS FILE ROUTINES.
00053/02    DISKDUMP                                 OC  G          MTS:DISKDUMP                                                    
            D3T1     65  DISKDUMP..OC.2                     1 LINE     80    3 PAGE UM   PIRKOLA             JULY 30, 1973  23:27.08
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00054/01   *TPS                                      S            # (OBSOLETE)                                                      
            D2T1    145                                                             UM                                              
00054/02   *TPS                      LL PTR UC       S            # (OBSOLETE)                                                      
            D2T1    146                                                             UM                                              
00055/01   *BCDEBCD                                  SA  G  BCDE    S0720 'D3T1' FSNAME=BCDEBCD..SA.1                             66
            D3T1     66  BCDEBCD..SA.1                      1 SEQ      80    2 PAGE UM   ENGLE               JULY 30, 1973  23:27.43
0          TRANSLATE SCIENTIFIC 026 CODE TO EBCD.
00055/02   *BCDEBCD                                  OC  G          *BCDEBCD                                                        
            D3T1     67  BCDEBCD..O.2                       1 LINE     80    1 PAGE UM   ENGLE               JULY 30, 1973  23:27.44
00056      *2250RTN                                  SA  O  R225    S0720 'D3T1' FSNAME=2250RTN..SA.                              68
            D3T1     68  2250RTN..SA.                       1 SEQ      80   26 PAGE UM   PIRKOLA             JULY 30, 1973  23:28.54
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 2250 DISPLAY.  HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
00057/01   *TABEDIT                                  SA  O  TBED    W045:NEWTABEDIT                                               69
            D3T1     69  TABEDIT..SA.1                      1 SEQ      80    3 PAGE UM   PIRKOLA             JULY 30, 1973  23:30.09
00057/02   *TABEDIT                                  OC  O          *TABEDIT                                                        
            D3T1     70  TABEDIT..OC.2                      1 LINE     80    1 PAGE UM   PIRKOLA             JULY 30, 1973  23:30.09
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                                              
00062       FLINE                                                 # (SEE COMP 482)                                                  
                                                                                    UM                                              
00063      *PTSKRTN                                  SA  O  PTSK    S0720 'D3T1' FSNAME=PTSKRTN..SA.                              71
            D3T1     71  PTSKRTN..SA.                       1 SEQ      80   14 PAGE UM   PIRKOLA             JULY 30, 1973  23:30.18
0          PROGRAM TO DISPLAY TASK STATUS ON A 2250. HASN'T BEEN TRIED IN YEARS AND MAY NOT WORK ANYMORE.
           THIS IS A SUBROUTINE CALLED BY 123.
           OBJECT NOT DISTRIBUTED.
           COPIES *LLMPSEQU (WHICH SHOULD BE COPY:LLMPSEQU (087)) TWICE.
0          Referenced by comments of: 123/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00064/01   *OBJSCAN                                  SA  G  OBJS    W062:SCN                                                        
            D3.1T1   23  OBJSCAN..SA.1                      1 SEQ      80   20 PAGE UM   TIFFANY             MAR. 06, 1974  03:17.04
0          SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER
           RANGES FOR EACH MODULE ENCOUNTERED.
           PROGRAM CHANGED FOR STANDARDIZATION.
00064/02   *OBJSCAN                                  OE  G          *OBJSCAN                                                        
            D3.1T1   24  OBJSCAN..OE.2                      1 SEQ    4940    2 PAGE UM   TIFFANY             MAR. 06, 1974  03:17.09
00065      *ASMERR                                   S            # (OBSOLETE)                                                      
            D2T1    323                                                             UM                                              
00066/01   *ASMG                     ASMGASM         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGASM                        1  
            D3.1T1   25  ASMG.ASMGASM.SA.1                  1 SEQ      80   19 PAGE UM   MTA                 MAR. 06, 1974  03:17.55
0          COMPONENTS 066/1 THROUGH 066/61 ARE THE MASTER OS/360 SOURCE FOR THE G LEVEL ASSEMBLER (ASMG) VERSION 2, LEVEL 5,
           FROM THE UNIVERSITY OF WATERLOO.  THE UPDATE DECK (066/64) WILL PRODUCE AN ASMG WHICH RUNS IN MTS.  COMPONENT
           66/65 CONTAINS COMMANDS TO UPDATE AND ASSEMBLE ASMG.
00066/02   *ASMG                     ASMGBUFF        SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGBUFF                       2  
            D3.1T1   26  ASMG.ASMGBUFF.SA.2                 1 SEQ      80   51 PAGE UM   MTA                 MAR. 06, 1974  03:18.01
00066/03   *ASMG                     ASMGFD          SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGFD                         3  
            D3.1T1   27  ASMG.ASMGFD.SA.3                   1 SEQ      80   22 PAGE UM   MTA                 MAR. 06, 1974  03:18.07
00066/04   *ASMG                     ASMGFEX         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGFEX                        4  
            D3.1T1   28  ASMG.ASMGFEX.SA.4                  1 SEQ      80   19 PAGE UM   MTA                 MAR. 06, 1974  03:18.11
00066/05   *ASMG                     ASMGFI          SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGFI                         5  
            D3.1T1   29  ASMG.ASMGFI.SA.5                   1 SEQ      80   12 PAGE UM   MTA                 MAR. 06, 1974  03:18.14
00066/06   *ASMG                     ASMGFPP         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGFPP                        6  
            D3.1T1   30  ASMG.ASMGFPP.SA.6                  1 SEQ      80   31 PAGE UM   MTA                 MAR. 06, 1974  03:18.18
00066/07   *ASMG                     ASMGF1          SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF1                         7  
            D3.1T1   31  ASMG.ASMGF1.SA.7                   1 SEQ      80   32 PAGE UM   MTA                 MAR. 06, 1974  03:18.23
00066/08   *ASMG                     ASMGF2          SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF2                         8  
            D3.1T1   32  ASMG.ASMGF2.SA.8                   1 SEQ      80   85 PAGE UM   MTA                 MAR. 06, 1974  03:18.34
00066/09   *ASMG                     ASMGF2A         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF2A                        9  
            D3.1T1   33  ASMG.ASMGF2A.SA.9                  1 SEQ      80   59 PAGE UM   MTA                 MAR. 06, 1974  03:18.45
00066/10   *ASMG                     ASMGF3          SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF3                         10 
            D3.1T1   34  ASMG.ASMGF3.SA.10                  1 SEQ      80   60 PAGE UM   MTA                 MAR. 06, 1974  03:18.55
00066/11   *ASMG                     ASMGF7C         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7C                        11 
            D3.1T1   35  ASMG.ASMGF7C.SA.11                 1 SEQ      80   25 PAGE UM   MTA                 MAR. 06, 1974  03:19.02
00066/12   *ASMG                     ASMGF7D         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7D                        12 
            D3.1T1   36  ASMG.ASMGF7D.SA.12                 1 SEQ      80   25 PAGE UM   MTA                 MAR. 06, 1974  03:19.06
1                                                                                               FRI AUG 02/96   19:04:25   Page   18
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/13   *ASMG                     ASMGF7E         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7E                        13 
            D3.1T1   37  ASMG.ASMGF7E.SA.13                 1 SEQ      80   26 PAGE UM   MTA                 MAR. 06, 1974  03:19.10
00066/14   *ASMG                     ASMGF7G         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7G                        14 
            D3.1T1   38  ASMG.ASMGF7G.SA.14                 1 SEQ      80    3 PAGE UM   MTA                 MAR. 06, 1974  03:19.13
00066/15   *ASMG                     ASMGF7I         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7I                        15 
            D3.1T1   39  ASMG.ASMGF7I.SA.15                 1 SEQ      80   15 PAGE UM   MTA                 MAR. 06, 1974  03:19.16
00066/16   *ASMG                     ASMGF7L         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7L                        16 
            D3.1T1   40  ASMG.ASMGF7L.SA.16                 1 SEQ      80    2 PAGE UM   MTA                 MAR. 06, 1974  03:19.18
00066/17   *ASMG                     ASMGF7N         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7N                        17 
            D3.1T1   41  ASMG.ASMGF7N.SA.17                 1 SEQ      80   13 PAGE UM   MTA                 MAR. 06, 1974  03:19.20
00066/18   *ASMG                     ASMGF7S         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7S                        18 
            D3.1T1   42  ASMG.ASMGF7S.SA.18                 1 SEQ      80    8 PAGE UM   MTA                 MAR. 06, 1974  03:19.23
00066/19   *ASMG                     ASMGF7V         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7V                        19 
            D3.1T1   43  ASMG.ASMGF7V.SA.19                 1 SEQ      80   19 PAGE UM   MTA                 MAR. 06, 1974  03:19.25
00066/20   *ASMG                     ASMGF7X         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7X                        20 
            D3.1T1   44  ASMG.ASMGF7X.SA.20                 1 SEQ      80   28 PAGE UM   MTA                 MAR. 06, 1974  03:19.30
00066/21   *ASMG                     ASMGF8A         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8A                        21 
            D3.1T1   45  ASMG.ASMGF8A.SA.21                 1 SEQ      80   22 PAGE UM   MTA                 MAR. 06, 1974  03:19.34
00066/22   *ASMG                     ASMGF8C         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8C                        22 
            D3.1T1   46  ASMG.ASMGF8C.SA.22                 1 SEQ      80    6 PAGE UM   MTA                 MAR. 06, 1974  03:19.37
00066/23   *ASMG                     ASMGF8D         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8D                        23 
            D3.1T1   47  ASMG.ASMGF8D.SA.23                 1 SEQ      80   23 PAGE UM   MTA                 MAR. 06, 1974  03:19.40
00066/24   *ASMG                     ASMGF8I         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8I                        24 
            D3.1T1   48  ASMG.ASMGF8I.SA.24                 1 SEQ      80   15 PAGE UM   MTA                 MAR. 06, 1974  03:19.44
00066/25   *ASMG                     ASMGF8L         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8L                        25 
            D3.1T1   49  ASMG.ASMGF8L.SA.25                 1 SEQ      80    3 PAGE UM   MTA                 MAR. 06, 1974  03:19.45
00066/26   *ASMG                     ASMGF8M         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8M                        26 
            D3.1T1   50  ASMG.ASMGF8M.SA.26                 1 SEQ      80   26 PAGE UM   MTA                 MAR. 06, 1974  03:19.49
00066/27   *ASMG                     ASMGF8N         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8N                        27 
            D3.1T1   51  ASMG.ASMGF8N.SA.27                 1 SEQ      80   13 PAGE UM   MTA                 MAR. 06, 1974  03:19.53
00066/28   *ASMG                     ASMGF8P         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8P                        28 
            D3.1T1   52  ASMG.ASMGF8P.SA.28                 1 SEQ      80   20 PAGE UM   MTA                 MAR. 06, 1974  03:19.56
00066/29   *ASMG                     ASMGF8S         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8S                        29 
            D3.1T1   53  ASMG.ASMGF8S.SA.29                 1 SEQ      80    3 PAGE UM   MTA                 MAR. 06, 1974  03:19.58
1                                                                                               FRI AUG 02/96   19:04:25   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/30   *ASMG                     ASMGF8V         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8V                        30 
            D3.1T1   54  ASMG.ASMGF8V.SA.30                 1 SEQ      80   19 PAGE UM   MTA                 MAR. 06, 1974  03:20.01
00066/31   *ASMG                     ASMGIS00        SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS00                       31 
            D3.1T1   55  ASMG.ASMGIS00.SA.31                1 SEQ      80   11 PAGE UM   MTA                 MAR. 06, 1974  03:20.04
00066/32   *ASMG                     ASMGIS09        SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS09                       33 
            D3.1T1   56  ASMG.ASMGIS09.SA.32                1 SEQ      80    9 PAGE UM   MTA                 MAR. 06, 1974  03:20.07
00066/33   *ASMG                     ASMGIS20        SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS20                       34 
            D3.1T1   57  ASMG.ASMGIS20.SA.33                1 SEQ      80    5 PAGE UM   MTA                 MAR. 06, 1974  03:20.08
00066/34   *ASMG                     ASMGIS44        SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS44                       35 
            D3.1T1   58  ASMG.ASMGIS44.SA.34                1 SEQ      80    9 PAGE UM   MTA                 MAR. 06, 1974  03:20.11
00066/35   *ASMG                     ASMGIS60        SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS60                       36 
            D3.1T1   59  ASMG.ASMGIS60.SA.35                1 SEQ      80   10 PAGE UM   MTA                 MAR. 06, 1974  03:20.13
00066/36   *ASMG                     ASMGIS67        SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS67                       37 
            D3.1T1   60  ASMG.ASMGIS67.SA.36                1 SEQ      80   11 PAGE UM   MTA                 MAR. 06, 1974  03:20.15
00066/37   *ASMG                     ASMGIS70        SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS70                       38 
            D3.1T1   61  ASMG.ASMGIS70.SA.37                1 SEQ      80   11 PAGE UM   MTA                 MAR. 06, 1974  03:20.18
00066/38   *ASMG                     ASMGRTA         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGRTA                        39 
            D3.1T1   62  ASMG.ASMGRTA.SA.38                 1 SEQ      80    5 PAGE UM   MTA                 MAR. 06, 1974  03:20.19
00066/39   *ASMG                     ASMGUP          SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGUP                         40 
            D3.1T1   63  ASMG.ASMGUP.SA.39                  1 SEQ      80   20 PAGE UM   MTA                 MAR. 06, 1974  03:20.23
00066/40   *ASMG                     ASMGSET         SA  G          S0714 ASMGOS 'ASMGOS 26' POSN=ASMGSET                        41 
            D3.1T1   64  ASMG.ASMGSET.SA.40                 1 SEQ      80    2 PAGE UM   MTA                 MAR. 06, 1974  03:20.25
00066/41   *ASMG                     COMMENCE        SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=COMMENCE                       42 
            D3.1T1   65  ASMG.COMMENCE.SM.41                1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.27
00066/42   *ASMG                     COMMON          SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=COMMON                         43 
            D3.1T1   66  ASMG.COMMON.SM.42                  1 SEQ      80   21 PAGE UM   MTA                 MAR. 06, 1974  03:20.31
00066/43   *ASMG                     DCBOUT          SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=DCBOUT                         44 
            D3.1T1   67  ASMG.DCBOUT.SM.43                  1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.33
00066/44   *ASMG                     DEFCHAR         SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=DEFCHAR                        45 
            D3.1T1   68  ASMG.DEFCHAR.SM.44                 1 SEQ      80    3 PAGE UM   MTA                 MAR. 06, 1974  03:20.35
00066/45   *ASMG                     ENTRYOUT        SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=ENTRYOUT                       46 
            D3.1T1   69  ASMG.ENTRYOUT.SM.45                1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.37
00066/46   *ASMG                     FDIMEN          SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=FDIMEN                         47 
            D3.1T1   70  ASMG.FDIMEN.SM.46                  1 SEQ      80    9 PAGE UM   MTA                 MAR. 06, 1974  03:20.39
1                                                                                               FRI AUG 02/96   19:04:25   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/47   *ASMG                     FINISH          SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=FINISH                         48 
            D3.1T1   71  ASMG.FINISH.SM.47                  1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.41
00066/48   *ASMG                     GETT            SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=GETT                           49 
            D3.1T1   72  ASMG.GETT.SM.48                    1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.43
00066/49   *ASMG                     INST            SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=INST                           50 
            D3.1T1   73  ASMG.INST.SM.49                    1 SEQ      80    2 PAGE UM   MTA                 MAR. 06, 1974  03:20.45
00066/50   *ASMG                     INSTSET         SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=INSTSET                        51 
            D3.1T1   74  ASMG.INSTSET.SM.50                 1 SEQ      80    2 PAGE UM   MTA                 MAR. 06, 1974  03:20.47
00066/51   *ASMG                     LIST1EQU        SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=LIST1EQU                       52 
            D3.1T1   75  ASMG.LIST1EQU.SM.51                1 SEQ      80    2 PAGE UM   MTA                 MAR. 06, 1974  03:20.49
00066/52   *ASMG                     MESSAGE         SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=MESSAGE                        53 
            D3.1T1   76  ASMG.MESSAGE.SM.52                 1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.51
00066/53   *ASMG                     PRINTOUT        SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=PRINTOUT                       54 
            D3.1T1   77  ASMG.PRINTOUT.SM.53                1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.53
00066/54   *ASMG                     PRNT            SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=PRNT                           55 
            D3.1T1   78  ASMG.PRNT.SM.54                    1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.55
00066/55   *ASMG                     PUTT            SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=PUTT                           56 
            D3.1T1   79  ASMG.PUTT.SM.55                    1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.57
00066/56   *ASMG                     RD              SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=RD                             57 
            D3.1T1   80  ASMG.RD.SM.56                      1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:20.59
00066/57   *ASMG                     SETR            SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=SETR                           58 
            D3.1T1   81  ASMG.SETR.SM.57                    1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.02
00066/58   *ASMG                     SNAPDATA        SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=SNAPDATA                       59 
            D3.1T1   82  ASMG.SNAPDATA.SM.58                1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.03
00066/59   *ASMG                     SNAPOUT         SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=SNAPOUT                        60 
            D3.1T1   83  ASMG.SNAPOUT.SM.59                 1 SEQ      80    2 PAGE UM   MTA                 MAR. 06, 1974  03:21.05
00066/60   *ASMG                     TIMEOUT         SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=TIMEOUT                        61 
            D3.1T1   84  ASMG.TIMEOUT.SM.60                 1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.07
00066/61   *ASMG                     TRANSLAT        SM  G          S0714 ASMGOS 'ASMGOS 26' POSN=TRANSLAT                       62 
            D3.1T1   85  ASMG.TRANSLAT.SM.61                1 SEQ      80    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.09
00066/62   *ASMG                     ASMGMOD         SA  G  MOD0    WATF:ASMGMOD(1,999)                                             
            D3.1T1   86  ASMG.ASMGMOD.SA.62                 1 LINE     80    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.13
0          SOURCE FOR THE MODULE LIST INDICATING FROM WHICH FILE TO LOAD EACH PART OF ASMG.
00066/63   *ASMG                     ASMGMOD         OC  G          WATF:ASMGMOD(1000)                                              
            D3.1T1   87  ASMG.ASMGMOD.OC.63                 1 LINE     80    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.15
1                                                                                               FRI AUG 02/96   19:04:25   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/64   *ASMG                     ASMGUPD         UU  G          WATF:ASMGUPD                                                    
            D3.2T1   27  ASMG.ASMGUPD.UU.64                 1 LINE     83   35 PAGE UM   MTA                 MAR. 21, 1975  00:54:00
0          UPDATE DECK TO CONVERT ALL OF THE OS VERSION OF ASMG (066/1 THROUGH 066/61) TO RUN IN MTS.
0          Referenced by comments of: 66/1, 66/65 
00066/65   *ASMG                     ASMGJOB         C              WATF:ASMGJOB                                                    
            D3.1T1   89  ASMG.ASMGJOB.C.65                  1 LINE    110    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.33
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/64) 
                      ASMGSET - EMPTIED AND WRITTEN WITH A COPY SECTION 
                      ASMGMACROS - EMPTIED AND WRITTEN WITH A MACRO LIBRARY 
                      S714 VOL=ASMGOS - MASTER TAPE, CONTAINS CURRENT OS VERSION OF ASMG (066/1 THROUGH 066/61) 
                        ***NOTE*** DATA SET NAMES ON THIS TAPE MUST NOT BE CHANGED SINCE ASMGUPD CONTAINS 
                                   %POSN COMMANDS TO POSITION THE TAPE. 
                      S416 VOL=UPDATE - WRITTEN WITH NEW SOURCE FOR ASMG (MTS VERSION) 
                      S111 VOL=ASMGL - WRITTEN WITH LISTINGS FOR ASMG (MTS VERSION) 
                      NEWASMG - 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/67 
00066/66   *ASMG                     ASMGJOB2        C              WATF:ASMGJOB2                                                   
            D3.1T1   90  ASMG.ASMGJOB2.C.66                 1 LINE    115    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.35
0          COMMAND FILE TO ASSEMBLE SELECTED PARTS OF ASMG.
00066/67   *ASMG                     ASMGLINK        C              WATF:ASMGLINK                                                   
            D3.1T1   91  ASMG.ASMGLINK.C.67                 1 LINE    112    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.37
0          COMMAND FILE TO PUT OUTPUT OF ASMGJOB (066/65) INTO PRIVATE FILES FOR TESTING.
0          Referenced by comments of: 66/68 
00066/68   *ASMG                     ASMGCOPY        C              WATF:ASMGCOPY                                                   
            D3.1T1   92  ASMG.ASMGCOPY.C.68                 1 LINE     22    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.40
0          COMMAND FILE TO MOVE THE OUTPUT OF ASMGLINK (066/67) INTO THE PUBLIC FILES.
00066/69   *ASMG                     *ASMG           OE  G          *ASMG                                                           
            D3.1T1   93  ASMG.*ASMG.OE.69                   1 SEQ    8660    3 PAGE UM   MTA                 MAR. 06, 1974  03:21.42
0          THE OBJECT FOR ASMG IS STORED IN 15 SEQUENTIAL, PUBLIC FILES IN MTS (066/69 THROUGH 066/83).  THE FILES AND
           THEIR CONTENTS BY MODULE NAME ARE:
            
                    FILE           ENTRY POINT    CONTENTS
                    ----           -----------    --------
                    *ASMG          ASMGASM        ASMGASM,ASMGBUFF,ASMGMOD
                    *ASMBLR        ASMGASM        (EXACTLY THE SAME CONTENTS AS *ASMG)
                    ETC:ASMGFPP    ASMGFPP        ASMGFPP,ASMGFD,ASMGFEX
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0                   ETC:ASMGF2     ASMGF1         ASMGF1,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:ASMGRTA    ASMGRTA        ASMGRTA
                    ETC:ASMGUP     ASMGUP         ASMGUP
00066/70   *ASMG                     ASMGFPP         OE  G          ETC:ASMGFPP                                                     
            D3.1T1   94  ASMG.*ASMGFPP.OE.70                1 SEQ   12232    5 PAGE UM   MTA                 MAR. 06, 1974  03:21.44
00066/71   *ASMG                     ASMGF2          OE  G          ETC:ASMGF2                                                      
            D3.2T1   28  ASMG.ASMGF2.OE.71                  1 SEQ   23168    7 PAGE UM   MTA                 MAR. 21, 1975  00:54:24
0          OBJECT IS PATCHED TO DEFAULT IS=70 AS FOLLOWS:
            REP  0017EC  0B00000046   IN MODULE ASMGF1
00066/72   *ASMG                     ASMGF3          OE  G          ETC:ASMGF3                                                      
            D3.1T1   96  ASMG.*ASMGF3.OE.72                 1 SEQ    8052    3 PAGE UM   MTA                 MAR. 06, 1974  03:21.49
00066/73   *ASMG                     ASMGF7          OE  G          ETC:ASMGF7                                                      
            D3.1T1   97  ASMG.*ASMGF7.OE.73                 1 SEQ   12888    6 PAGE UM   MTA                 MAR. 06, 1974  03:21.51
00066/74   *ASMG                     ASMGF8          OE  G          ETC:ASMGF8                                                      
            D3.1T1   98  ASMG.*ASMGF8.OE.74                 1 SEQ    9280    6 PAGE UM   MTA                 MAR. 06, 1974  03:21.53
00066/75   *ASMG                     ASMGIS00        OE  G          ETC:ASMGIS00                                                    
            D3.1T1   99  ASMG.*ASMGIS00.OE.75               1 SEQ    2137    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.55
00066/76   *ASMG                     ASMGIS09        OE  G          ETC:ASMGIS09                                                    
            D3.1T1  100  ASMG.*ASMGIS09.OE.76               1 SEQ    1834    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.57
00066/77   *ASMG                     ASMGIS20        OE  G          ETC:ASMGIS20                                                    
            D3.1T1  101  ASMG.*ASMGIS20.OE.77               1 SEQ    1180    1 PAGE UM   MTA                 MAR. 06, 1974  03:21.59
00066/78   *ASMG                     ASMGIS44        OE  G          ETC:ASMGIS44                                                    
            D3.1T1  102  ASMG.*ASMGIS44.OE.78               1 SEQ    1847    1 PAGE UM   MTA                 MAR. 06, 1974  03:22.02
00066/79   *ASMG                     ASMGIS60        OE  G          ETC:ASMGIS60                                                    
            D3.1T1  103  ASMG.*ASMGIS60.OE.79               1 SEQ    2055    1 PAGE UM   MTA                 MAR. 06, 1974  03:22.04
00066/80   *ASMG                     ASMGIS67        OE  G          ETC:ASMGIS67                                                    
            D3.1T1  104  ASMG.*ASMGIS67.OE.80               1 SEQ    2141    1 PAGE UM   MTA                 MAR. 06, 1974  03:22.06
1                                                                                               FRI AUG 02/96   19:04:25   Page   23
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/81   *ASMG                     ASMGIS70        OE  G          ETC:ASMGIS70                                                    
            D3.1T1  105  ASMG.*ASMGIS70.OE.81               1 SEQ    2270    1 PAGE UM   MTA                 MAR. 06, 1974  03:22.08
00066/82   *ASMG                     ASMGRTA         OE  G          ETC:ASMGRTA                                                     
            D3.1T1  106  ASMG.*ASMGRTA.OE.82                1 SEQ    1280    1 PAGE UM   MTA                 MAR. 06, 1974  03:22.10
00066/83   *ASMG                     ASMGUP          OE  G          ETC:ASMGUP                                                      
            D3.1T1  107  ASMG.*ASMGUP.OE.83                 1 SEQ    3626    1 PAGE UM   MTA                 MAR. 06, 1974  03:22.12
00066/84   *ASMG                     USER'S GUIDE    P              S0631 ASMG26 POSN=ASMG.GUIDE.USERS                           3  
            D3.1T1  108  ASMG.USER'S_GUIDE.P.84             1 SEQ     132  103 PAGE UM   MTA                 MAR. 06, 1974  03:23.18
0          WATERLOO USER'S GUIDE FOR OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
00066/85   *ASMG                     MODS WRITEUP    WF             S0720 'D3T1' FSNAME=ASMG.MODS_WRITEUP.WF.78                  150
            D3T1    150  ASMG.MODS_WRITEUP.WF.78            1 LINE    105    1 DISK UM   MTA                 MAR. 15, 1973  18:04.14
0          THIS IS COMPUTING CENTER MEMO M171 -- "CHANGES TO *ASMG AND *ASMBLR."
           THIS WRITEUP IS OUT OF DATE.
00066/86   *ASMG                     IMPLEMENTATION  P              S0631 ASMG26 POSN=ASMG.GUIDE.IMPL                            4  
            D3.1T1  109  ASMG.IMPLEMENTATION.P.86           1 SEQ     132   39 PAGE UM   MTA                 MAR. 06, 1974  03:23.28
0          IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
00067/01    FILE SAVE                MAIN            SA  G  FSAV    RSTR:FILESAVE(1000)                                             
            D3.2T1   29  FILE_SAVE.MAIN.SA.01               1 LINE     80   31 PAGE UM   BERSTIS             MAR. 21, 1975  00:54:26
0          MTS FILESAVE (BACKUP) PROGRAM.
           THIS PROGRAM IS RUN 6 TIMES PER WEEK AT UM TO BACKUP DISK FILES IN CASE OF HARDWARE (OR
           SOFTWARE) PROBLEMS.  A "FULL SAVE" IS RUN ONCE PER WEEK, A "PARTIAL SAVE" 5 TIMES PER
           WEEK.  THE PARTIAL SAVE SAVES ONLY THOSE FILES WHICH HAVE BEEN REFERENCED
           SINCE THE PREVIOUS FILE SAVE.  THE TAPES GENERATED BY THE PARTIAL SAVE ARE RE-CYCLED
           ON A WEEKLY BASIS.  THE TAPES GENERATED BY THE FULL SAVE ARE COPIED (SEE 610) AND SAVED FOR
           SEVERAL MONTHS.  SIX WEEK INTERVALS OF THESE FULL TAPES ARE SAVED FOR SEVERAL YEARS.
           WE HAVE FOUND THAT THIS PROCEDURE (WHICH INCLUDES STORING THE FULL TAPES IN ANOTHER
           BUILDING) SEEMS TO PROVIDE A REASONABLE BACKUP.
            
           SOURCE FOR THE FILESAVE MAIN PROGRAM.  COPIES COPY:CATEQU (482/28), COPY:DSCBDSCT (482/41),
           COPY:PATEQU (482/43), AND COPY:DSKDSCT (482/42).  ASSEMBLE WITH *SYSMAC.
            
           CHANGED TO ALLOW MORE THAN 10 TAPES AND TO WORK WITH THE NEW
           VTOCREAD (067/4).
0          Referenced by comments of: 92/1, 502/11 
00067/02    FILE SAVE                SAVEFILE        SA  G  SFIL    RSTR:SAVEFILE(1000)                                             
            D3.2T1   30  FILE_SAVE.SAVEFILE.SA.02           1 LINE     80   11 PAGE UM   BERSTIS             MAR. 21, 1975  00:54:31
0          SUBROUTINE WHICH COPIES COPY:FCBEQU (482/27), COPY:CATEQU (482/28), COPY:DSKDSCT (482/42), AND
           COPY:DSCBDSCT (482/41).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 502/11 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00067/03    FILE SAVE                TAPEOUT         SA  G  TOUT    RSTR:TAPEOUT(1000)                                              
            D3.2T1   31  FILE_SAVE.TAPEOUT.SA.03            1 LINE     80    8 PAGE UM   BERSTIS             MAR. 21, 1975  00:54:34
0          ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 502/11 
00067/04    FILE SAVE                VTOCRD          SA  G  VTOC    RSTR:VTOCREAD(1000)                                             
            D3.2T1   32  FILE_SAVE.VTOCRD.SA.04             1 LINE     80   11 PAGE UM   BERSTIS             MAR. 21, 1975  00:54:36
0          SUBROUTINE WHICH COPIES COPY:DSKDSCT (482/42), COPY:DSCBDSCT (482/41), COPY:PATEQU (482/43), AND
           COPY:FCBEQU (482/27).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 67/1, 104/94, 597/1, 642/1 
00067/05    FILE SAVE                OBJECT          OE  G          RSTR:FILESAVEOBJ                                                
            D3.2T1   33  FILE_SAVE.OBJECT.OE.05             1 SEQ    8192    5 PAGE UM   BERSTIS             MAR. 21, 1975  00:54:41
00067/06    FILE SAVE                SVSTART         C              RSTR:SVSTART                                                    
            D3T1    157  FILE_SAVE.SVSTART.C.6              1 LINE     42    1 PAGE UM   BERSTIS             JULY 30, 1973  23:37.56
0          COMMAND AND DATA FILE WHICH IS SOURCED TO BY *SVW (067/8) AND *SVD (067/13).
           THIS FILE STARTS UP THE SEVERAL (2 OR 4) STREAMS WHICH ARE USED FOR THE SHORT (PARTIAL)
           OR LONG (FULL) SAVE.
00067/07    FILE SAVE                FSS             C              RSTR:FSS                                                        
            D3T1    158  FILE_SAVE.FSS.C.7                  1 LINE    100    1 PAGE UM   BERSTIS             JULY 30, 1973  23:37.57
0          COMMAND AND DATA FILE SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4, *SVA, *SVB, *SVC,
           AND *SVE).  THIS FILE CONTAINS THE VOLUME SERIAL NUMBERS OF THE VOLUMES TO BE SAVED BY EACH STREAM.
           IN ADDITION, 2 CODE LETTERS FOLLOW THE VOLUME SERIAL NUMBERS TO INDICATE WHETHER THE LABEL FOR
           EACH TAPE IS TO BE CHECKED (C) AND WHETHER ALL FILES (A FULL SAVE) ARE TO BE SAVED (A), OR
           JUST THOSE WHICH HAVE BEEN REFERENCED SINCE THE LAST FILE SAVE (A PARTIAL SAVE).
           THIS FILE WILL HAVE TO BE CHANGED BY EACH INSTALLATION TO REFLECT THE NUMBER OF DISK PACKS
           IN USE AND THEIR VOLUME SERIAL NUMBERS.
00067/08    FILE SAVE                WEEKLY START    C              *SVW                                                            
            D3T1    159  FILE_SAVE.WEEKLY_START.C.8         1 LINE     24    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.00
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE WEEKLY (FULL) FILESAVE PROCESS.
           ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN.
           THIS FILE WILL SOURCE TO RSTR:SVSTART WHICH WILL START UP 3 MORE STREAMS (*SV2, *SV3,
           AND *SV4) AUTOMATICALLY SO THAT THE FULL SAVE IS DONE IN 4 STREAMS.
           EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED, DEPENDING ON THE NUMBER
           OF DISK DRIVES AND CONTROLS, AND TAPE DRIVES AND CONTROLS WHICH ARE AVAILABLE.
           INVOKED BY ENTERING "MTS *SVW" ON THE OPERATORS CONSOLE.
0          Referenced by comments of: 67/6 
00067/09    FILE SAVE                WKLY STREAM #1  C              *SV1                                                            
            D3T1    160  FILE_SAVE.WKLY_STREAM_#1.C.9       1 LINE     19    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.02
0          THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART
           WEEKLY (FULL) STREAM #1.
1                                                                                               FRI AUG 02/96   19:04:25   Page   25
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00067/10    FILE SAVE                WKLY STREAM #2  C              *SV2                                                            
            D3T1    161  FILE_SAVE.WKLY_STREAM_#2.C.10      1 LINE     19    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.04
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/11    FILE SAVE                WKLY STREAM #3  C              *SV3                                                            
            D3T1    162  FILE_SAVE.WKLY_STREAM_#3.C.11      1 LINE     19    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.07
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/12    FILE SAVE                WKLY STREAM #4  C              *SV4                                                            
            D3T1    163  FILE_SAVE.WKLY_STREAM_#4.C.12      1 LINE     19    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.09
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/13    FILE SAVE                DAILY START     C              *SVD                                                            
            D3T1    164  FILE_SAVE.DAILY_START.C.13         1 LINE     23    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.12
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE DAILY (PARTIAL) FILESAVE PROCESS.
           ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN.
           THIS FILE WILL SOURCE TO RSTR:SVSTART WHICH WILL START UP 3 MORE STREAMS (*SVB, *SVC,
           AND *SVE) AUTOMATICALLY SO THAT THE PARTIAL SAVE IS DONE IN 4 STREAMS.
           EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED.
           INVOKED BY ENTERING "MTS *SVD" ON THE OPERATORS CONSOLE.
0          Referenced by comments of: 67/6 
00067/14    FILE SAVE                DAILY STREAM 1  C              *SVA                                                            
            D3T1    165  FILE_SAVE.DAILY_STREAM_1.C.14      1 LINE     20    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.14
0          THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART
           DAILY (PARTIAL) STREAM #1.
00067/15    FILE SAVE                DAILY STREAM 2  C              *SVB                                                            
            D3T1    166  FILE_SAVE.DAILY_STREAM_2.C.15      1 LINE     20    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.16
0          COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #2.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #2.
00067/16    FILE SAVE                DAILY STREAM 3  C              *SVC                                                            
                                                                                    UM   BERSTIS                                    
0          COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #3.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #3.
00067/17    FILE SAVE                DAILY STREAM 4  C              *SVE                                                            
                                                                                    UM   BERSTIS                                    
0          COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #4.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #4.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00068      *LINPG                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UM   HARDING                                    
00069      *DRAW                                     SA  O  DRAW    S0720 'D3T1' FSNAME=DRAW..SA.                                167
            D3T1    167  DRAW..SA.                          1 SEQ      80   13 PAGE UM   PIRKOLA             JULY 30, 1973  23:38.23
0          PROGRAM TO DO SIMPLE DRAWING ON A 2250.  HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
00071/01    LISTSTAT                                 SA  G  LSTA    WSG:LISTSTAT(1,999)                                             
            D3.2T1   34  LISTSTAT..SA.01                    1 LINE     80   16 PAGE UM   WSG                 MAR. 21, 1975  00:54:43
0          PROGRAM TO PRINT *STATISTICS RECORDS.  WILL READ RECORDS (ON SCARDS) FROM A FILE OR
           BLOCKED TAPE (SUCH AS PRODUCED BY *CMB).  WRITES PRINTED OUTPUT ON SPRINT.
           IF A RATE NUMBER APPEARS IN THE *STATISTICS RECORD AND THE JOB WAS RUN AFTER
           THE BEGINNING OF 1974, THE MTS GETRATES SUBROUTINE (651/8) IS CALLED TO OBTAIN A SET
           OF RATES USED TO PRINT THE COST OF THE JOB.  OTHERWISE, RATES ARE OBTAINED
           FROM ASSEMBLED-IN TABLES. FOR THIS REASON, THE PROGRAM WILL HAVE TO BE
           REASSEMBLED AT EACH INSTALLATION SINCE THE RATE TABLES WILL BE WRONG.
           COPIES COPY:STATDSECT (620) AND COPY:RATEVEC(5) (651/2).
0          Referenced by comments of: 355/1 
00071/02    LISTSTAT                                 OC  G          WSG:LISTSTAT(1000)                                              
            D3.2T1   35  LISTSTAT..OC.02                    1 LINE     80    9 PAGE UM   WSG                 MAR. 21, 1975  00:54:46
00072/01   *FORTEDIT                                 SA  O  FTED    S0720 'D3T1' FSNAME=FORTEDIT..SA.1                           170
            D3T1    170  FORTEDIT..SA.1                     1 SEQ      80   20 PAGE UM   TIFFANY             JULY 30, 1973  23:39.26
0          CONVERSATIONAL PROGRAM TO EDIT FORTRAN SOURCE FILES.
00072/02   *FORTEDIT                                 OC  O          *FORTEDIT                                                       
            D3T1    171  FORTEDIT..OC.2                     1 LINE     80    3 PAGE UM   TIFFANY             JULY 30, 1973  23:39.27
0          OBJECT DECK CONTAINS REP CARDS.
00073/01   *DSK                                      C              *DSK                                                            
            D3T1    172  DSK..C.1                           1 LINE     30    1 PAGE UM   PIRKOLA             JULY 30, 1973  23:39.29
0          COMMAND FILE TO RUN DSKMAM (073/3).  INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE.
00073/02   *DSK                      DSKMAN          SA  G  DMAN    W047:DSKMAN(1,999)                                              
            D3T1    173  DSK.DSKMAN.SA.2                    1 LINE     80    6 PAGE UM   PIRKOLA             JULY 30, 1973  23:39.31
0          PROGRAM USED BY OPERATORS TO MANIPULATE THE LIST OF MTS DISK VOLUMES.
           PROGRAM ALLOWS VOLUMES TO BE ADDED AND REMOVED FROM THE SYSTEM DYNAMICALLY AS WELL
           AS ALLOWING THE DRIVE ADDRESS FOR A VOLUME TO BE FORGOTTEN, THUS CAUSING MTS TO
           SEARCH THROUGH ALL DRIVE ADDRESSES LOOKING FOR THAT VOLUME ON THE NEXT REFERENCE.
           THIS IS PARTICULARLY USEFUL WHEN THE OPERATOR WISHES TO MOVE A VOLUME TO A DRIVE
           WITH A DIFFERENT ADDRESS.
            
           COPIES COPY:DSKDSCT (482/42).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00073/03   *DSK                      DSKMAN          OC  G          SYS:DSK                                                         
            D3T1    174  DSK.DSKMAN.OC.3                    1 LINE     80    2 PAGE UM   PIRKOLA             JULY 30, 1973  23:39.34
0          Referenced by comments of: 73/1 
00074      *2250EDIT                                 SA  O  E225    S0720 'D3T1' FSNAME=2250EDIT..SA.                            175
            D3T1    175  2250EDIT..SA.                      1 SEQ      80   29 PAGE UM   PIRKOLA             JULY 30, 1973  23:39.56
0          PROGRAM TO EDIT FILES USING 2250 DISPLAY.  HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
00075      *ROSSPRINT                                             # (OBSOLETE)                                                      
                                                                                    UM                                              
00076/01    RESERVE DISK             *RSV            C              *RSV                                                            
            D3T1    176  RESERVE_DISK.*RSV.C.1              1 LINE     42    1 PAGE UM   MTA                 JULY 30, 1973  23:39.59
0          COMMAND FILE TO RUN THE DISK RESERVE PROGRAM (076/3).  INVOKED BY ENTERING "MTS *RSV"
           ON OPERATOR'S CONSOLE.
00076/02    RESERVE DISK             RESERVE PGM     SA  G  RSV0    S0720 'D3T1' FSNAME=RESERVE_DISK.RESERVE_PGM.SA.2            177
            D3T1    177  RESERVE_DISK.RESERVE_PGM.SA.2      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/03    RESERVE DISK             RESERVE PGM     OC  G          W000:RSV                                                        
            D3T1    178  RESERVE_DISK.RESERVE_PGM.OC.3      1 LINE     80    1 PAGE UM   MTA                 JULY 30, 1973  23:40.02
0          Referenced by comments of: 76/1 
00077/01    STATBUFF                                 SA  G  STBF    MTA:STATBUFF                                                    
            D3T1    179  STATBUFF..SA.1                     1 LINE     80    1 PAGE UM   MTA                 JULY 30, 1973  23:40.05
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/02    STATBUFF                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00078/01    STAT SUBROUTINE                          SA  G  STSB    MTA:STATSUB                                                     
            D3T1    180  STAT_SUBROUTINE..SA.1              1 LINE     80    4 PAGE UM   MTA                 JULY 30, 1973  23:40.07
0          SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O.
00078/02    STAT SUBROUTINE                          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00079/01    STAT JOB                                 SA  G  STAT    MTA:STATSOU                                                     
            D3.2T1   36  STAT_JOB..SA.01                    1 LINE     80   17 PAGE UM   MTA                 MAR. 21, 1975  00:54:47
0          THE "STAT" JOB WILL SAVE STATISTICS ABOUT HARDWARE INTERRUPTS, MTS I/O OPERATIONS, AND INTERNAL SUPERVISOR
           FUNCTIONS (SUCH AS THE EXECUTION OF SIO) ON TAPE.  CAN PRODUCE LARGE AMOUNTS OF DATA QUICKLY.
           *ANALYSIS (140) CAN HELP ANALYZE THE DATA.
           COPIES COPY:GLOBALS (1026/4) AND COPY:LLMPSEQU (087).
           ASSEMBLE USING COPY:SETPARM (653).
1                                                                                               FRI AUG 02/96   19:04:25   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          Referenced by comments of: 77/1, 140/1 
00079/02    STAT JOB                 370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00079/03    STAT JOB                 360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00080/01    INIT JOB                                 SA  G  INIT    MTA:INITJOB(1,999)                                           78 
            D3.1T1  114  INIT_JOB..SA.1                     1 LINE     80    2 PAGE UM   MTA                 MAR. 06, 1974  03:23.50
0          AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST).  AFTER FINDING THE MTS DISK
           CATALOGS, THIS JOB TURNS OVER THE REMAINING WORK OF INITIALIZING THE SYSTEM TO MTS BY USING THE SVC STRTJB TO START
           "MTS *INIT" (SEE COMP 097).
00080/02    INIT JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00082/01    DMOD                                     SA  G  DMOD    W045:PF.DMOD                                                    
            D3.2T1   37  DMOD..SA.01                        1 LINE     80    7 PAGE UM   PIRKOLA             MAR. 21, 1975  00:54:50
0          PROGRAM TO PATCH A DISK PAGE.  USE WITH EXTREME CAUTION.
           AVAILABLE COMMANDS ARE:
            
               RNNNNPPPP                READ RELATIVE PAGE PPPP ON PUBLIC VOLUME NUMBER NNNN.
               RHNNNNPPPP               SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. (H MEANS HOLD)
               R                        READ PAGE USING THE LAST NNNNPPPP SPECIFIED.
               RH                       SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME.
               WNNNNPPPP                WRITE RELATIVE PAGE PPPP ON PUBLIC VOLUME NUMBER NNNN.
               WHNNNNPPPP               SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME.
               W                        WRITE PAGE USING THE LAST NNNNPPPP SPECIFIED.
               WH                       SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME.
               D                        DUMP PAGE ON SPRINT.
               I                        INTERRUPT (CALL ERROR).  USED TO RETURN TO MTS SO THAT $MOD CAN BE
                                        USED TO PATCH THE PAGE, THEN $RESTART AND WRITE IT OUT.
00082/02    DMOD                                     OC  G          W045:PF.DMOD.O                                                  
            D3.2T1   38  DMOD..OC.02                        1 LINE     80    2 PAGE UM   PIRKOLA             MAR. 21, 1975  00:54:52
00083/01   *EBCDBCD                                  SA  G  EBCD    WSG:EBCDBCD(1,999)                                              
            D3T1    185  EBCDBCD..SA.1                      1 SEQ      80    2 PAGE UM   WSG                 JULY 30, 1973  23:41.00
0          PROGRAM TO TRANSLATE 029 KEYPUNCH RECORDS TO 026.
           NEW VERSION ACCEPTS LONG RECORDS.
00083/02   *EBCDBCD                                  OC  O          *EBCDBCD                                                        
            D3T1    186  EBCDBCD..OC.2                      1 LINE     80    1 PAGE UM   WSG                 JULY 30, 1973  23:41.00
00084/01    ARU                      *ARURTN         SA  G          S0001 'SMITH' FSNAME=ARURTN.S                                   
            D3T1    187  ARU.*ARURTN.SA.1                   1 LINE     72   23 DISK UM   FRONCZAK            NOV. 21, 1972  16:31.23
0          DEVICE SUPPORT ROUTINES FOR THE IBM 7772 AUDIO RESPONSE UNIT.
           REQUIRES DBS:MAC MACRO LIB (455) AND REFERENCES *ARUDEF (084/4) AND *SPEAK (084/3).
1                                                                                               FRI AUG 02/96   19:04:25   Page   29
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 84/3, 84/4, 455/1 
00084/02    ARU                      *ARURTN         OC  G          *ARURTN                                                         
            D3T1    188  ARU.*ARURTN.OC.2                   1 SEQ      80    3 PAGE UM   FRONCZAK            JULY 30, 1973  23:42.24
00084/03    ARU                      *SPEAK          D   G          *SPEAK                                                          
            D3T1    189  ARU.*SPEAK.D.3                     1 LINE    255   60 PAGE UM   FRONCZAK            JULY 30, 1973  23:42.25
0          VOCABULARY FILE FOR *ARURTN (084/1).
0          Referenced by comments of: 84/1 
00084/04    ARU                      *ARUDEF         D   G          *ARUDEF                                                         
            D3T1    190  ARU.*ARUDEF.D.4                    1 LINE     10    1 PAGE UM   FRONCZAK            JULY 30, 1973  23:42.34
0          PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1)
0          Referenced by comments of: 84/1 
00084/05    ARU                      DCVD SUBR       SA  G        # (PART OF 084/1)                                                 
            D2T1    420                                                             UM   FRONCZAK                                   
0          SUBROUTINE TO CONVERT DIGITALLY CODED VOICE FROM THE FORMAT EXPECTED BY THE 7772 TO A MORE REASONABLE FORMAT.
           REQUIRES DBS:MAC MACRO LIB (455).
0          Referenced by comments of: 84/13, 84/14, 84/16 
00084/06    ARU                      DCVD SUBR       OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   FRONCZAK                                   
00084/07    ARU                      DCVC SUBR       SA  G        # (PART OF 084/1)                                                 
            D2T1    419                                                             UM   FRONCZAK                                   
0          SUBROUTINE TO CONVERT DIGITALLY CODED VOICE TO THE FORMAT EXPECTED BY THE 7772.
           REQUIRES DBS:MAC MACRO LIB (455).
0          Referenced by comments of: 84/13, 84/14, 84/16 
00084/08    ARU                      DCVC SUBR       OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   FRONCZAK                                   
00084/09    ARU                      DCVG SUBR       SA  G        # (PART OF 084/1)                                                 
                                                                                    UM   FRONCZAK                                   
0          SUBROUTINE TO RETRIEVE THE DIGITALLY CODED VOICE USED BY THE 7772.
0          Referenced by comments of: 84/13, 84/14, 84/16 
00084/10    ARU                      DCVG SUBR       OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   FRONCZAK                                   
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00084/11    ARU                      *ARUVOC         D   G          *ARUVOC                                                         
            D3T1    191  ARU.*ARUVOC.D.11                   1 LINE    102   11 PAGE UM   FRONCZAK            JULY 30, 1973  23:42.36
0          LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING.
00084/12    ARU                      *CREVOC         SA  G        # (PART OF 084/1)                                                 
            D2T2    207                                                             UM   FRONCZAK                                   
0          PROGRAM TO CREATE AN ARU VOCABULARY FILE.
           REQUIRES DBS:MAC MACRO LIB (455).
00084/13    ARU                      *CREVOC         OC  G          *CREVOC                                                         
            D3T1    192  ARU.*CREVOC.OC.13                  1 LINE     80    3 PAGE UM   FRONCZAK            JULY 30, 1973  23:42.39
0          CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
           ENDS WITH A "$CONTINUE WITH DBS:LM1" WHICH PRINTS MESSAGES (SEE 303/6).
00084/14    ARU                      *VLIST          SA  G        # (PART OF 084/1)                                                 
            D2T2    208                                                             UM   FRONCZAK                                   
0          PROGRAM TO EITHER SPEAK OR PRINT AN AUDIO RESPONSE UNIT VOCABULARY FILE.
           REQUIRES DBS:MAC MACRO LIB (455).
           CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
00084/15    ARU                      *VLIST          OC  G          *VLIST                                                          
            D3T1    193  ARU.*VLIST.OC.15                   1 LINE     80    1 PAGE UM   FRONCZAK            JULY 30, 1973  23:42.41
00084/16    ARU                      *DCVDEC         SF  G          S0001 'SMITH' FSNAME=DCVDEC.S                                   
            D3T1    194  ARU.*DCVDEC.SF.16                  1 LINE     67    1 DISK UM   FRONCZAK            AUG. 14, 1972  17:42.40
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/17    ARU                      *DCVDEC         OC  G          *DCVDEC                                                         
            D3T1    195  ARU.*DCVDEC.O.17                   1 LINE     72    1 PAGE UM   FRONCZAK            JULY 30, 1973  23:43.00
00084/18    ARU                      *FSK            D   G          *FSK                                                            
            D3T1    196  ARU.*FSK.D.18                      1 LINE     31    1 PAGE UM   FRONCZAK            JULY 30, 1973  23:43.01
0          AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO 11-BIT (FRAME SIZE) ASCII CODE.
00084/19    ARU                      *IM             D   G          *IM                                                             
            D3T1    197  ARU.*IM.D.19                       1 LINE     87    1 PAGE UM   FRONCZAK            JULY 30, 1973  23:43.03
0          AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO INTERNATIONAL MORSE CODE.
00084/20    ARU                      *NOTES          D   G          *NOTES                                                          
            D3T1    198  ARU.*NOTES.D.20                    1 LINE     91    2 PAGE UM   FRONCZAK            JULY 30, 1973  23:43.05
0          AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES.
1                                                                                               FRI AUG 02/96   19:04:25   Page   31
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00084/21    ARU                                                   @                                                                 
                                                                                    UM   FRONCZAK                                   
0          I/O SUPPORT USED IN CONJUNCTION WITH PDP8RTN (116) TO DRIVE THE "VOTRAX" AUDIO
           RESPONSE UNITS.
00085       DRUM INIT                INIT:DINIT                   # (SEE COMP 97/8 AND 97/9)                                        
                                                                                    UM                                              
00086/01   *2501RTN                                  SA  G  TFZO    DWB:UBCTFZO.S                                                   
            D3T1    199  2501RTN..SA.1                      1 LINE     80   16 PAGE UM   DWB                 JULY 30, 1973  23:43.07
0          MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2501 CARD READER.  CALLS BINEBCD (243).
0          Referenced by comments of: 243/1 
00086/02   *2501RTN                                  OC  G          *2501RTN                                                        
            D3T1    200  2501RTN..OC.2                      1 LINE     80    3 PAGE UM   DWB                 JULY 30, 1973  23:43.10
0          OBJECT FOR 2501 ROUTINES AND OMR CONVERT SUBR (576/2).
00087       LLMPSEQU                                 SA  G          COPY:LLMPSEQU                                                   
            D3.2T1   39  LLMPSEQU..SA.                      1 LINE     72    8 PAGE UM   MTA                 MAR. 21, 1975  00:54:54
0          COPY SECTION FOR DEFINITIONS OF JOB TABLE, DEVICE LIST, DEVICE TABLE, ETC. WHICH
           IS COPIED BY MANY PROGRAMS.  ITS NAME COMES STRAIGHT FROM ANCIENT HISTORY (LINCOLN
           LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES).
           THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING
           AT LINE 100.
           NOTE:  PROGRAMS COPYING THIS FILE MUST FIRST COPY COPY:GLOBALS (1026/4).
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 24/1, 40/1, 41/1, 42/1, 44/1, 45/2, 46/2, 47/1,
                 50/2, 63/1, 79/1, 101/1, 102/1, 104/69, 116/1, 123/1, 135/1, 198/1, 343/1, 353/1, 354/1, 355/1, 387/1, 400/1,
                 413/1, 413/6, 441/1, 447/1, 447/3, 447/5, 447/7, 462/1, 464/1, 487/1, 507/2, 531/1, 531/4, 531/8, 539/1,
                 540/1, 545/45, 554/1, 554/3, 570/1, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 577/53, 577/55, 578/1, 588/1,
                 589/1, 616/1, 616/3, 617/1, 618/1, 634/1, 635/1, 636/1, 637/1, 638/1, 639/1, 647/1, 651/10 
00089       CLEAN <SCRATCH FILES>                                 # (SEE COMP 97/6 AND 97/7)                                        
                                                                                    UM                                              
00090/01   *HEXLIST                                  SA  G  HEXL    W045:NEWHEXLIST                                                 
            D3T1    202  HEXLIST..SA.1                      1 LINE     80    6 PAGE UM   PIRKOLA             JULY 30, 1973  23:43.29
0          PRINTS OBJECT DECKS IN HEX.
00090/02   *HEXLIST                                  OC  G          *HEXLIST                                                        
            D3T1    203  HEXLIST..O.2                       1 LINE     80    3 PAGE UM   PIRKOLA             JULY 30, 1973  23:43.31
00091/01   *DOUBLE                                   SA  O  DBLE    S0720 'D3T1' FSNAME=DOUBLE..SA.1                             204
            D3T1    204  DOUBLE..SA.1                       1 LINE     80   16 PAGE UQV  BENET               JULY 27, 1973  22:03.05
0          CONVERTS DOUBLE (NOT LONG) PRECISION CONSTANTS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00091/02   *DOUBLE                                   OC  O          *DOUBLE                                                         
            D3T1    205  DOUBLE..OC.2                       1 LINE     80    3 PAGE UQV  BENET               JULY 30, 1973  23:43.35
00092/01    FILE RESTORE             RSTFMT0         SA  G  FMT0    RSTR:RSTFMT0                                                    
            D3.1T1  116  FILE_RESTORE.RSTFMT0.SA.1          1 LINE     80   42 PAGE UM   BERSTIS             MAR. 06, 1974  03:23.54
0          MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502).
           ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 502/1 
00092/02    FILE RESTORE             RSTFMT1         SA  G  FMT1    RSTR:RSTFMT1                                                    
            D3T1    207  FILE_RESTORE.RSTFMT1.SA.2          1 LINE     80   23 PAGE UM   BERSTIS             JULY 30, 1973  23:43.48
0          SUBROUTINE CALLED BY 092/1.  COPIES COPY:CATEQU (482/28) AND COPY:FCBEQU (482/27).  ASSEMBLE WITH *SYSMAC.
00092/03    FILE RESTORE                             OC  G          RSTR:RST                                                        
            D3.1T1  117  FILE_RESTORE..OC.3                 1 SEQ    8534    9 PAGE UM   BERSTIS             MAR. 06, 1974  03:24.08
00092/04    FILE RESTORE             *RST            C              *RST                                                            
            D3T1    209  FILE_RESTORE.*RST.C.4              1 LINE     35    1 PAGE UM   BERSTIS             JULY 30, 1973  23:43.55
0          COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST).  INVOKED BY ENTERING "MTS *RST"
           ON OPERATOR'S CONSOLE.
00094/01   *TIME                                     SA  G  TIME    W062:TIME                                                       
            D3T1    210  TIME..SA.1                         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 30, 1973  23:44.08
0          PROGRAM TO PRINT TIME AND DATE.  CHANGED FOR STANDARDIZATION.
00094/02   *TIME                                     OC  G          *TIME                                                           
            D3T1    211  TIME..OC.2                         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 30, 1973  23:44.09
00096/01   *SYMBOLS                                  SA  G  SYMB    W009:SYMBOL.S                                                   
            D3T1    212  SYMBOLS..SA.1                      1 LINE     80   12 PAGE UM   DE JONG             JULY 30, 1973  23:44.10
0          PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL.
00096/02   *SYMBOLS                                  OC  G          *SYMBOLS                                                        
            D3T1    213  SYMBOLS..OC.2                      1 LINE    255    3 PAGE UM   DE JONG             JULY 30, 1973  23:44.14
00097/01    INIT                     *INIT           C              *INIT                                                           
            D3.2T1   40  INIT.*INIT.C.01                    1 LINE     45    1 PAGE UM   ENGLE               MAR. 21, 1975  00:54:56
0          THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL.  NO OPERATOR ACTION
           IS REQUIRED.  THIS COMMAND FILE SIGNS ON UNDER USER ID INIT AND SOURCES TO INIT:INITCMD.
            
           *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."
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00097/02    INIT                     INIT:INITCMD    C              INIT:INITCMD                                                    
            D3.2T1   41  INIT.INIT:INITCMD.C.02             1 LINE     59    1 PAGE UM   MTA                 MAR. 21, 1975  00:54:57
0          THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RE-LOAD ON A 370.
           THE FOLLOWING FUNCTIONS ARE PERFORMED BY INITCMD:
            
            (1)  THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF
                 IN *STATISTICS TO VERIFY (AT LEAST PARTIALLY) THAT THE OPERATOR HASN'T SCREWED UP.
            (2)  THE PROGRAM INITLOG IS RUN.  IT PRINTS THE CURRENT HARDWARE CONFIGURATION AND THE
                 REASON FOR RELOADING (AS OBTAINED FROM THE OPERATOR) AT THE END OF THE FILE INIT:LOG.
            (3)  FMT2305 (1025) 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 ONLY FHF0.
            (4)  THE PDP IS STARTED.
            (5)  THE POST-IPL LOADER (MTS *S2L) IS STARTED.
            (6)  MTS *CMD (531/3) IS STARTED TO BEGIN COLLECTING COMMAND STATISTICS, DASD ERRORS, AND THE HASP LOG.
            (7)  THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED.
            (8)  THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE
                 SYSTEM LAST WENT DOWN.
            (9)  THE INIT PROGRAM IS RUN.  IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10),
                 MTS *INIT(20), ETC.) TO MAKE A LIST (IN 5 FILES) OF ALL OF THE USER IDS WHICH WERE IN USE (SIGNED-ON) WHEN THE
                 SYSTEM LAST WENT DOWN.  WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS
                 AVAILABLE" ON THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS.  WHEN FINISHED, THE TOTAL
                 NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE.  NO BATCH JOBS SHOULD BE ALLOWED TO RUN
                 (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE IT IS POSSIBLE
                 THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH ARE STILL BEING FIXED.
                 IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING FILE AVAILABLE" MESSAGE PRINTS
                 AND AFTER THE "SEGMENT 2 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: 531/3 
00097/03    INIT                     INIT:INITCMD    C            = ???                                                             
            D3.1T1  118  INIT.INIT:INITCMD.C.2              1 LINE     82    1 PAGE UM   MTA                 MAR. 06, 1974  03:24.11
0          THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RE-LOAD ON A 360/67.
           THE FOLLOWING FUNCTIONS ARE PERFORMED BY INITCMD:
            
            (1)  THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF
                 IN *STATISTICS TO VERIFY (AT LEAST PARTIALLY) THAT THE OPERATOR HASN'T SCREWED UP.
            (2)  THE PROGRAM CZASE IS RUN.  IT TAKES ANY MACHINE CHECK LOGOUTS (FOUND IN THE DRUM CRACKS),
                 FORMATS THEM, AND WRITES THEM AT THE END OF THE FILE INIT:LOGOUT.  IT ALSO WRITES THEM
                 IN INIT:DRUMCRACKS UNFORMATTED.
            (3)  THE PROGRAM INITLOG IS RUN.  IT PRINTS THE CURRENT HARDWARE CONFIGURATION AND THE
                 REASON FOR RELOADING (AS OBTAINED FROM THE OPERATOR) AT THE END OF THE FILE INIT:LOG.
            (4)  DINIT IS RUN TO INITIALIZE THE DRUMS (ASSUMES DRM1 AND DRM2).
            (5)  DRMINIT IS RUN TO WRITE THE MACHINE CHECK RECOVERY CODE ONTO THE DRUMS.
                 INIT:MCFILES HAS A LIST OF FILES CONTAINING THE CODE.  A MAP IS WRITTEN ON INIT:MCMAP.
            (6)  THE PDP IS STARTED.
            (7)  THE POST-IPL LOADER (MTS *S2L) IS STARTED.
            (8)  MTS *CMD (531/3) IS STARTED TO BEGIN COLLECTING COMMAND STATISTICS, DASD ERRORS, AND THE HASP LOG.
            (9)  THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED.
            (10) THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE
                 SYSTEM LAST WENT DOWN.
1                                                                                               FRI AUG 02/96   19:04:25   Page   34
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           (11) THE INIT PROGRAM IS RUN.  IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10),
                 MTS *INIT(20), ETC.) TO MAKE A LIST (IN 5 FILES) OF ALL OF THE USER IDS WHICH WERE IN USE (SIGNED-ON) WHEN THE
                 SYSTEM LAST WENT DOWN.  WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS
                 AVAILABLE" ON THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS.  WHEN FINISHED, THE TOTAL
                 NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE.  NO BATCH JOBS SHOULD BE ALLOWED TO RUN
                 (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE IT IS POSSIBLE
                 THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH ARE STILL BEING FIXED.
                 IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING FILE AVAILABLE" MESSAGE PRINTS
                 AND AFTER THE "SEGMENT 2 LOADED OK" MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE
                 ABLE TO SIGNON UNTIL THEIR USER IDS HAVE BEEN FIXED.  THESE USERS WILL GET A MESSAGE WHICH
                 INDICATES THAT THEIR IDS ARE TEMPORARILY UNAVAILABLE.
0          Referenced by comments of: 97/13 
00097/04    INIT                     INIT:INIT       OC  G          S0027 DISTRB FSNAME=INIT                                        
            D3.2T1   42  INIT.INIT:INIT.OC.04               1 LINE     80    6 PAGE UM   ENGLE               MAR. 12, 1975  11:58:10
0          PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN.
           PATCHED TO CHANGE THE NAMES IN ACCIO TO PUBLIC FILES AND TO CORRECT ACCINSCN.
           HAS "$CONTINUE WITH *RATENBR" LINE.
0          Referenced by comments of: 104/67 
00097/05    INIT                     INIT:INITCHK    SA  G  ICHK    S0027 DISTRB FSNAME=INITCHK                                     
            D3T1    217  INIT.INIT:INITCHK.SA.4             1 LINE     80    4 PAGE UM   ENGLE               JAN. 08, 1973  17:46.49
0          PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "RESONABLE" TIME AND DATE.
           COPIES GRDEF (104/57).
00097/06    INIT                     INIT:INITCHK    OC  G          S0027 DISTRB FSNAME=ICHK                                        
            D3T1    218  INIT.INIT:INITCHK.OC.5             1 LINE     80    2 DISK UM   ENGLE               JAN. 08, 1973  17:47.02
00097/07    INIT                     INIT:CLEAN      SA  G  SFDS    W045:PF.SFDESTRY                                                
            D3.2T1   43  INIT.INIT:CLEAN.SA.07              1 LINE     80    3 PAGE UM   PIRKOLA             MAR. 21, 1975  00:58:10
0          PROGRAM TO DESTROY SCRATCH FILES.  COPIES COPY:CATEQU (482/28).
00097/08    INIT                     INIT:CLEAN      OC  G          INIT:CLEAN                                                      
            D3.2T1   44  INIT.INIT:CLEAN.OC.08              1 LINE     80    1 PAGE UM   PIRKOLA             MAR. 21, 1975  00:58:12
00097/09    INIT                     INIT:DINIT      SA  O  DNIT    DWB:DRUMINIT-S(1)                                               
            D3T1    221  INIT.INIT:DINIT.SA.8               1 LINE     80    7 PAGE UM   DWB                 AUG. 01, 1973  00:54.09
0          DRUM INITIALIZATION PROGRAM.  HAS TABLE OF DRUM NAMES TO USE ASSEMBLED IN.  AS DISTRIBUTED, THE TABLE
           CONTAINS TWO NAMES:  DRM1 AND DRM2.  IF THE PROGRAM CAN'T ACQUIRE ANY OF THE SPECIFIED DRUMS FROM THE
           SUPERVISOR, IT PRINTS "NNNN NOT AVAILABLE" AND GOES ON TO THE NEXT DRUM.
           THIS PROGRAM IS ONLY USED IN 360 VERSION ON MTS.
00097/10    INIT                     INIT:DINIT      OC             INIT:DINIT                                                      
            D3T1    222  INIT.INIT:DINIT.O.9                1 LINE     80    4 PAGE UM   DWB                 JULY 30, 1973  23:46.37
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00097/11    INIT                     INIT:INITLOG    SA  G  INIL    MTA:INITLOG(1,999)                                              
            D3.2T1   45  INIT.INIT:INITLOG.SA.11            1 LINE     80    4 PAGE UM   MTA                 MAR. 21, 1975  00:58:14
0          PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD.
           COPIES COPY:CHACST (577/28) AND *CNFGINFODSECT (654).
           ASSEMBLE WITH *SYSMAC.
00097/12    INIT                     INIT:INITLOG    OC  G          INIT:INITLOG                                                    
            D3.2T1   46  INIT.INIT:INITLOG.OC.12            1 LINE     80    2 PAGE UM   MTA                 MAR. 21, 1975  00:58:16
0          NOTE:  THIS OBJECT FILE CONTAINS AN NCA CARD FOR CNFIGTBL, SINCE THERE IS
                  NO CNFIGTBL ON A 370.
00097/13    INIT                     FMT2305         SA  G  PFMT    W047:FMT2305.S                                                  
            D3.2T1   47  INIT.FMT2305.SA.13                 1 LINE     80    8 PAGE UBC  HAMILTON            MAR. 21, 1975  00:58:19
0          MTS PROGRAM TO INITIALIZE (I.E. FORMAT) A 2305 OR ITS UNDERSTUDY.
           THIS PROGRAM IS RUN FROM INIT:INITCMD (097/3) ON 370 SYSTEM STARTUP TO FORMAT A 2305
           BEFORE STARTING THE PDP.
00097/14    INIT                     FMT2305         OC  G          INIT:FMT2305                                                    
            D3.2T1   48  INIT.FMT2305.OC.14                 1 SEQ    1373    1 PAGE UBC  HAMILTON            MAR. 21, 1975  00:58:21
00098      *SQUASH                                   SA           # (OBSOLETED BY *LINKEDIT)                                        
            D2T1    278                                                             UM                                              
00099      *IHC                                      M   O          *IHC                                                            
            D3T1    225  IHC..M.                            1 LINE     68    1 PAGE UM   TIFFANY             JULY 30, 1973  23:46.44
0          LINE N CONTAINS ERROR COMMENT FOR ERROR COMMENT IHCNI
00100/01   *FILEDUMP                                 SA  G  FILD    W045:NEWFILEDUMP                                                
            D3T1    226  FILEDUMP..SA.1                     1 LINE     80    7 PAGE UM   PIRKOLA             JULY 30, 1973  23:46.46
0          USE *TAPEDUMP INSTEAD. (THIS HAS BEEN REMOVED FORM UM DOCUMENTATION)
00100/02   *FILEDUMP                                 OC  G          *FILEDUMP                                                       
            D3T1    227  FILEDUMP..O.2                      1 LINE     80    2 PAGE UM   PIRKOLA             JULY 30, 1973  23:46.48
00101/01    MOUNT                                    SA  G  MNT0    WSG:MOUNT                                                       
            D3.2T1   49  MOUNT..SA.01                       1 LINE     80   63 PAGE UM   WSG                 MAR. 21, 1975  00:58:23
0          PROGRAM TO MOUNT PRIVATE DEVICES.  SUPPORT MAGNETIC TAPES, 2671 PAPER TAPE READER, PAPER TAPE PUNCHES ON THE
           UM DATA CONCENTRATOR, 7772 AUDIO RESPONSE UNIT, AND THE MERIT COMPUTER NETWORK.
           THIS PROGRAM IS INVOKED AS A CLS BY THE MTS $MOUNT COMMAND OR BY A CALL ON THE MOUNT
           SUBROUTINE (OR RUNNING *MOUNT).  THERE ARE TWO ENTRY POINTS:  (1) "MOUNT" (SUBR AND *MOUNT) SETS
           UP A FAKE CLS TRANSFER VECTOR AND CALLS (2) "MOUNTCMD" (CLS ENTRY) WHICH DOES THE WORK.  MTS VOLUME 4 
           DESCRIBES EACH OF THE DEVICE TYPES WHICH CAN BE MOUNTED.  MOUNT CONTAINS GLOBAL ASSEMBLY PARAMETERS
           FOR THE MAXIMUM NUMBER OF DEVICES OF EACH TYPE (IF ZERO, IT DELETES THE CODE AND TABLES NECESSARY
           FOR MOUNTING THAT DEVICE TYPE AND MAKES THE TYPE ILLEGAL).  THE DISTRIBUTED VERSION HAS 10 9-TRACK TAPES, 
           2 7-TRACK TAPES, AND NOTHING ELSE-- SEE THE COMMENTS IN THE ASSEMBLY LISTING.
           MOUNT USES A SET SYMBOL FOR THE SUPERVISOR LOCK NUMBER TO BE USED FOR INTERLOCKING
           OPERATOR CONSOLE COMMUNICATION.  IF &LOCKNR IS SET TO ZERO, NO CONSOLE INTERLOCKING IS DONE.
           AT UM, WE USE NO INTERLOCKING WITH OUR 3270 OPERATOR'S CONSOLE.  MOUNT CALLS THE TAPESTAT
1                                                                                               FRI AUG 02/96   19:04:25   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          SUBR (447/1) TO ACCUMULATE MOUNT STATISTICS (NOT FOR BILLING).
           IT ALSO CALLS CUINFO FOR EACH SUCCESSFUL MOUNT TO INCREMENT THE MOUNT COUNT (FOR BILLING).
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:CLSVECTOR (535/2),
           AND COPY:FDUBDSECT (623).
0          Referenced by comments of: 447/1 
00101/02    MOUNT                    *CLSMOUNT       OC  G          WSG:MNTOBJ.D                                                    
            D3.2T1   50  MOUNT.*CLSMOUNT.OC.02              1 LINE     80    5 PAGE UM   WSG                 MAR. 21, 1975  00:58:32
0          OBJECT FOR MOUNT SUBROUTINE (MOUNT) AND CLS MOUNT (MOUNTCMD).  NORMALLY *CLSMOUNT IS LOADED INTO
           SHARED VM AT IPL BY PISTLE.  HOWEVER, IF IT IS NOT, THE MTS $MOUNT COMMAND WILL
           DYNAMICALLY LOAD A PRIVATE COPY, BUT THE MOUNT SUBROUTINE WILL BE UNDEFINED IN LCS.
           NOTE THAT THE LDT CARD AT THE END OF THIS DECK CAUSES THE ENTRY POINT TO BE SET TO MOUNTCMD,
           SINCE THIS IS THE CLS ENTRY.
           THIS FILE ALSO CONTAINS THE OBJECT FOR THE TAPESTAT SUBROUTINE (447/1) AND DISMOUNT (102/1).
0          Referenced by comments of: 101/3, 447/2 
00101/03    MOUNT                    *MOUNT          OC  G          *MOUNT                                                          
            D3T1    230  MOUNT.*MOUNT.OC.3                  1 LINE     24    1 PAGE UM   WSG                 JULY 30, 1973  23:47.04
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM MOUNT (101/2).
00102/01    DISMOUNT                                 SA  G  DMNT    WSG:DISMOUNT(1,999)                                             
            D3.2T1   51  DISMOUNT..SA.01                    1 LINE     80    6 PAGE UM   WSG                 MAR. 21, 1975  00:58:34
0          PROGRAM TO DISMOUNT THINGS MOUNTED BY MOUNT.  SINCE THIS CAN NOW BE DONE VIA THE 
           $RELEASE COMMAND, THE PROGRAM IS PRIMARILY USEFUL AS A SUBROUTINE.
           THE PROGRAM IS RE-ENTRANT SO IT CAN BE LOADED INTO SHARED VM (THE PRACTICE AT UM).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 101/2 
00102/02    DISMOUNT                                 OC  G        # (PART OF 101/2)                                                 
                                                                                    UM   WSG                                        
00102/03    DISMOUNT                 *DISMOUNT       OC  G          *DISMOUNT                                                       
            D3T1    232  DISMOUNT.*DISMOUNT.OC.3            1 LINE     24    1 PAGE UM   WSG                 JULY 30, 1973  23:47.08
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM DISMOUNT (PART OF 101/2).
00104/01    ACCOUNTING               ACCFORMAT       SA  G  AFMT    S0027 DISTRB FSNAME=ACCFORMAT                                   
            D3.2T1   52  ACCOUNTING.ACCFORMAT.SA.01         1 SEQ      80    2 PAGE UM   ENGLE               MAY  03, 1974  11:48.47
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:
            
               *STATUS                  STAT+AIO+GTFL
               ACC:ACCMAINT             AMAT+ACCLIB
               INIT:INIT(1,999)         (PROGRAM TO SET CWPF BIT)+AINT+AFLU+AIO+ACAT+CSIG+GTFL+SYSDEFS
               INIT:INIT(1000)          (PROGRAM TO SET CWPF BIT)+AINS+FLNM+GTFL
               *ACCRESTORE              ASTR+AFLU+AIO+GTFL+ACAT+CSIG+SYSDEFS
               ACC:PROJECTMAINT         APMT+ACCLIB
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0              ACC:PROJECTLIST          APLS+ACCLIB
               ACC:PROJECTDISP          APDS+ACCLIB
               ACC:DIRLIST              DLST+ACCLIB
               ACCUPDAT                 ARDW+PRINT+AIO+TTRP+GTFL+OLDPRINT+ACCPRINT+ACCUPDAT
               ACC:ACCLISTING           ALST+ACCLIB
               ACC:ACCDISPLAY           ADSP+ACCLIB
               ACC:ACCERRORSCAN         ACNS+ACCLIB
               ACC:ACCHEXDISP           ADSP+AXPR+ACCLIB
               ACC:ACCFILCHARGE         ADSP+AFLC+ACCLIB
               ACC:ACCSAVE              ASAV+ACCLIB
               ACC:DIRDISPLAY           DDSP+ACCLIB
               ACC:STAPROJECT           SPCL+(AMXM PATCHED FROM SPPA)+AUPR+ACCLIB
               ACC:ACCPASWD             APSW+GTFL+AIO+FLNM
               ACC:GETFILECHG           FLUP+AIO+TTRP+GTFL
               ACC:ACCLIB               ACAT+AERR+AFLU+AIO+ALPR+ALST+APLS+APPR+APRT+CSIG+DIR+DPRT+FIOC+FLNM+FLRT+FLSH+GTFL
                                        +IOLC+RBTA+STRD+TTRP+SYSDEFS
                                        (SEE ACCOUNTING CLS FOR FIOC (631/11) AND REBATE FOR RBTA (632/4) AND STRD (632/6)).
            
           ACCFORMAT (104/1) IS THE COPY SECTION THAT DESCRIBES THE ACCOUNTING FILE RECORD FORMAT.
           IT IS COPIED UNDER THE NAME "ACCFORMAT" BY COMPONENTS OF THE ACCOUNTING SYSTEM.
            
           ****** NOTE:  ACCOUNTING PROGRAMS HAVE A GBLB SYMBOL (&DC) TO ELIMINATE THE ASSEMBLY
                         OF INSTRUCTIONS FOR THE DATA CELL.  IF THE VALUE OF &DC IS 0, THE
                         INSTRUCTIONS WILL NOT BE ASSEMBLED.  IF THE VALUE IS 1, THE INSTRUCTIONS
                         WILL BE ASSEMBLED.  ALL DISTRIBUTION PROGRAMS HAVE THE VALUE SET TO 0,
                         AND THE RESULTS OF SETTING &DC TO 1 ARE NOT GUARANTEED.
0          Referenced by comments of: 104/1, 104/3, 104/5, 104/9, 104/11, 104/15, 104/23, 104/38, 104/40, 104/48, 104/50,
                 104/65, 104/67, 104/72, 104/74, 104/76, 104/82, 442/1, 502/1, 586/1, 631/6, 631/8, 632/3 
00104/02    ACCOUNTING               ACCPROJFMT      SA  G  APFT    S0027 DISTRB FSNAME=ACCPROJFMT                                  
            D3.2T1   53  ACCOUNTING.ACCPROJFMT.SA.02        1 SEQ      80    1 PAGE UM   ENGLE               MAY  03, 1974  11:49.29
0          COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT.
0          Referenced by comments of: 104/15, 104/27, 104/32, 104/40, 500/18, 500/22, 631/6 
00104/03    ACCOUNTING               ACCERROR        SA  G  AERR    S0027 DISTRB FSNAME=ACCERROR                                    
            D3.2T1   54  ACCOUNTING.ACCERROR.SA.03          1 LINE     80    8 PAGE UM   ENGLE               MAR. 11, 1975  15:47:24
0          CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN.
           COPIES ACCFORMAT (104/1).
00104/04    ACCOUNTING               ACCERROR        OC  G          S0027 DISTRB FSNAME=AERR                                        
            D3.2T1   55  ACCOUNTING.ACCERROR.OC.04          1 LINE     80    2 PAGE UM   ENGLE               MAR. 11, 1975  15:47:32
00104/05    ACCOUNTING               ACCPRINT        SA  G  APRT    S0027 DISTRB FSNAME=ACCPRINT                                    
            D3.2T1   56  ACCOUNTING.ACCPRINT.SA.05          1 LINE     80    9 PAGE UM   ENGLE               MAY  03, 1974  12:07.43
0          FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS.
           COPIES ACCFORMAT (104/1).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00104/06    ACCOUNTING               ACCPRINT        OC  G          S0027 DISTRB FSNAME=APRT                                        
            D3.2T1   57  ACCOUNTING.ACCPRINT.OC.06          1 LINE     80    5 PAGE UM   ENGLE               MAY  03, 1974  12:07.52
00104/07    ACCOUNTING               ACCLIST         SA  G  ALST    S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.SA.8                  240
            D3T1    240  ACCOUNTING.ACCLIST.SA.8            1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  16:22.45
0          READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD.
00104/08    ACCOUNTING               ACCLIST         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.OC.9                  241
            D3T1    241  ACCOUNTING.ACCLIST.OC.9            1 LINE     80    1 DISK UM   ENGLE               OCT. 03, 1972  15:12.04
00104/09    ACCOUNTING               ACCINITL        SA  G  AINT    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCINITL.SA.10              130
            D3.1T1  130  ACCOUNTING.ACCINITL.SA.10          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/10    ACCOUNTING               ACCINITL        OC  G          S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCINITL.OC.11              131
            D3.1T1  131  ACCOUNTING.ACCINITL.OC.11          1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  13:31.49
00104/11    ACCOUNTING               STATUS          SA  G  STAT    S0027 DISTRB FSNAME=STATUS                                      
            D3.2T1   58  ACCOUNTING.STATUS.SA.11            1 LINE     80   13 PAGE UM   ENGLE               DEC. 06, 1974  11:22.15
0          MAIN PROGRAM FOR *STATUS.
           COPIES ACCFORMAT (104/1) AND COPY:RATEVEC (651/2).
00104/12    ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STAT                                        
            D3.2T1   59  ACCOUNTING.STATUS.OC.12            1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  11:23.11
0          Referenced by comments of: 129/2 
00104/13    ACCOUNTING               FILERATE        SA  G  FLRT    S0027 DISTRB FSNAME=FILERATE                                    
            D3.2T1   60  ACCOUNTING.FILERATE.SA.13          1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  11:24.55
0          SUBROUTINE TO RETURN A CURRENT RATE NUMBER AND THE FILE RATES FOR A SIGNON ID.
           COPIES GRDEF (104/57) AND COPY:RATEVEC (651/2).
00104/14    ACCOUNTING               FILERATE        OC  G          S0027 DISTRB FSNAME=FLRT                                        
            D3.2T1   61  ACCOUNTING.FILERATE.OC.14          1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  11:25.34
00104/15    ACCOUNTING               ACCMAINT        SA  G  AMAT    S0027 DISTRB FSNAME=ACCMAINT                                    
            D3.2T1   62  ACCOUNTING.ACCMAINT.SA.15          1 LINE     80   57 PAGE UM   ENGLE               DEC. 06, 1974  11:26.44
0          MAIN PROGRAM FOR ACCMAINT.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
00104/16    ACCOUNTING               ACCMAINT        OC  G          S0027 DISTRB FSNAME=AMAT                                        
            D3.2T1   63  ACCOUNTING.ACCMAINT.OC.16          1 LINE     80    9 PAGE UM   ENGLE               DEC. 06, 1974  11:27.45
00104/17    ACCOUNTING               ACCIO           SA  G  AIO     S0027 DISTRB FSNAME=ACCIO                                       
            D3.2T1   64  ACCOUNTING.ACCIO.SA.17             1 LINE     80   15 PAGE UM   ENGLE               DEC. 06, 1974  11:29.08
0          GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S).
1                                                                                               FRI AUG 02/96   19:04:25   Page   39
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 104/31, 502/1 
00104/18    ACCOUNTING               ACCIO           OC  G          S0027 DISTRB FSNAME=AIO                                         
            D3.2T1   65  ACCOUNTING.ACCIO.OC.18             1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  11:29.40
0          Referenced by comments of: 129/2, 484/1, 631/12 
00104/19    ACCOUNTING               ACCGFUPD        SA  G          W013:ACCGFUPD(100)                                              
            D3.2T1   66  ACCOUNTING.ACCGFUPD.SA.19          1 LINE     80    1 PAGE UM   ENGLE               MAR. 21, 1975  01:02:18
0          PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS.  RUN WITH ACCRDWRT (104/25).
0          Referenced by comments of: 104/25 
00104/20    ACCOUNTING               ACCGFUPD        OC  G          W013:ACCGFUPD(1,98)                                             
            D3.2T1   67  ACCOUNTING.ACCGFUPD.OC.20          1 LINE     80    1 PAGE UM   ENGLE               MAR. 21, 1975  01:02:21
00104/21    ACCOUNTING               ACCDSPLA        SA  G  ADSP    S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.SA.22                254
            D3T1    254  ACCOUNTING.ACCDSPLA.SA.22          1 LINE     80    3 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/22    ACCOUNTING               ACCDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.OC.23                255
            D3T1    255  ACCOUNTING.ACCDSPLA.OC.23          1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  12:08.26
00104/23    ACCOUNTING               ACCSTRUP        SA  G  ASTR    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSTRUP.SA.24              137
            D3.1T1  137  ACCOUNTING.ACCSTRUP.SA.24          1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  13:43.30
0          MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS.
           COPIES ACCFORMAT (104/1).
00104/24    ACCOUNTING               ACCSTRUP        OC  G          S0027 DISTRB FSNAME=ASTR                                        
            D3.2T1   68  ACCOUNTING.ACCSTRUP.OC.24          1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  12:19.25
0          Referenced by comments of: 484/1 
00104/25    ACCOUNTING               ACCRDWRT        SA  G  ARDW    S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.SA.26                258
            D3T1    258  ACCOUNTING.ACCRDWRT.SA.26          1 LINE     80    6 PAGE UM   ENGLE               OCT. 05, 1972  12:20.15
0          PROGRAM TO PERFORM GENERAL REFORMATTING OPERATION ON THE ACCOUNTING FILE. IT CALLS A USER PROVIDED
           SUBROUTINE CALLED ACCUPDAT TO DO THE ACTUAL REFORMATTING. ACCGFUPD (104/19) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE
           COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION.
0          Referenced by comments of: 104/19 
00104/26    ACCOUNTING               ACCRDWRT        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.OC.27                259
            D3T1    259  ACCOUNTING.ACCRDWRT.OC.27          1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  12:20.35
0          Referenced by comments of: 104/50 
00104/27    ACCOUNTING               PCONVERT        SA  G  PCNV    S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.SA.28              139
            D3.1T1  139  ACCOUNTING.PCONVERT.SA.28          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 DISTRIBUTION 3.1 BY ADDING NETWORK FIELDS AND FLAG.
1                                                                                               FRI AUG 02/96   19:04:25   Page   40
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          TO USE, RUN PRJLIST (104/35) + PCONVERT + ACCLIB (104/31).  NEW PROJECT FILE IS PRODUCED ON SPUNCH.
           COPIES ACCPROJFMT (104/2).
00104/28    ACCOUNTING               PCONVERT        OC  G          S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.OC.29              140
            D3.1T1  140  ACCOUNTING.PCONVERT.OC.29          1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:33.42
00104/29    ACCOUNTING               ACCPRJMT        SA  G  APMT    S0027 DISTRB FSNAME=ACCPRJMT                                    
            D3.2T1   69  ACCOUNTING.ACCPRJMT.SA.29          1 LINE     80   27 PAGE UM   ENGLE               MAY  03, 1974  12:21.05
0          MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT.
00104/30    ACCOUNTING               ACCPRJMT        OC  G          S0027 DISTRB FSNAME=APMT                                        
            D3.2T1   70  ACCOUNTING.ACCPRJMT.OC.30          1 LINE     80    5 PAGE UM   ENGLE               MAY  03, 1974  12:21.14
00104/31    ACCOUNTING               ACCLIB          OL  G          S0027 DISTRB FSNAME=ACCLIB                                      
            D3.2T1   71  ACCOUNTING.ACCLIB.OL.31            1 LINE     80   15 PAGE UM   ENGLE               DEC. 06, 1974  11:33.09
0          THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/17) TO PUBLIC
           FILES AND TO CORRECT ACCLSTPR (104/72).
0          Referenced by comments of: 104/27, 632/1, 632/3, 632/5 
00104/32    ACCOUNTING               ACPRJPRT        SA  G  APPR    S0027 DISTRB FSNAME=ACPRJPRT                                    
            D3.2T1   72  ACCOUNTING.ACPRJPRT.SA.32          1 LINE     80    9 PAGE UM   ENGLE               MAY  03, 1974  12:28.30
0          SUBROUTINE TO PRINT A RECORD FROM *PROJECT.
           COPIES ACCPROJFMT (104/2).
00104/33    ACCOUNTING               ACPRJPRT        OC  G          S0027 DISTRB FSNAME=APPR                                        
            D3.2T1   73  ACCOUNTING.ACPRJPRT.OC.33          1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  12:28.42
00104/34    ACCOUNTING               PRJLIST         SA  G  APLS    S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.SA.35                 267
            D3T1    267  ACCOUNTING.PRJLIST.SA.35           1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  15:13.34
0          PROGRAM TO READ EACH RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT.
0          Referenced by comments of: 500/22 
00104/35    ACCOUNTING               PRJLIST         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.OC.36                 268
            D3T1    268  ACCOUNTING.PRJLIST.OC.36           1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:13.55
0          Referenced by comments of: 104/27 
00104/36    ACCOUNTING               PRJDSPLA        SA  G  APDS    S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.SA.37                269
            D3T1    269  ACCOUNTING.PRJDSPLA.SA.37          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/37    ACCOUNTING               PRJDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.OC.38                270
            D3T1    270  ACCOUNTING.PRJDSPLA.OC.38          1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:17.49
1                                                                                               FRI AUG 02/96   19:04:25   Page   41
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/38    ACCOUNTING               ACCPASWD        SA  G  APSW    S0720 'D3T1' FSNAME=ACCOUNTING.ACCPASWD.SA.39                271
            D3T1    271  ACCOUNTING.ACCPASWD.SA.39          1 LINE     80    5 PAGE UM   ENGLE               OCT. 05, 1972  15:22.09
0          PROGRAM TO GENERATE A RANDOM PASSWORD FOR AN ACCOUNTING RECORD AND PRINT THE NEW PASSWORD PLUS
           THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET.  COPIES ACCFORMAT (104/1).
00104/39    ACCOUNTING               ACCPASWD        OC  G          S0027 DISTRB FSNAME=APSW                                        
            D3.2T1   74  ACCOUNTING.ACCPASWD.OC.39          1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  12:29.54
00104/40    ACCOUNTING               ACONSIST        SA  G  ACNS    S0027 DISTRB FSNAME=ACONSIST                                    
            D3.2T1   75  ACCOUNTING.ACONSIST.SA.40          1 LINE     80   13 PAGE UM   ENGLE               DEC. 06, 1974  11:33.54
0          MAIN PROGRAM FOR ACCERRORSCAN.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2).
00104/41    ACCOUNTING               ACONSIST        OC  G          S0027 DISTRB FSNAME=ACNS                                        
            D3.2T1   76  ACCOUNTING.ACONSIST.OC.41          1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  11:34.22
00104/42    ACCOUNTING               FILENAME        SA  G  FLNM    S0720 'D3T1' FSNAME=ACCOUNTING.FILENAME.SA.43                275
            D3T1    275  ACCOUNTING.FILENAME.SA.43          1 LINE     80    1 PAGE UM   ENGLE               OCT. 05, 1972  15:37.25
0          CONTAINS THE NAMES OF THE FILES *ACCOUNTING, *PWSTAT, *PROJECT, *PROJDIRECTORY, AND *STATISTICS.
00104/43    ACCOUNTING               FILENAME        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.FILENAME.OC.44                276
            D3T1    276  ACCOUNTING.FILENAME.OC.44          1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:37.58
0          Referenced by comments of: 631/12 
00104/44    ACCOUNTING               DIRECTRY        SA  G  DIR     S0027 DISTRB FSNAME=DIRECTRY                                    
            D3.2T1   77  ACCOUNTING.DIRECTRY.SA.44          1 LINE     80   17 PAGE UM   ENGLE               DEC. 06, 1974  11:35.19
0          I/O SUBROUTINES FOR THE DIRECTORY FILE.  COPIES *CNFGINFODSECT (654).
00104/45    ACCOUNTING               DIRECTRY        OC  G          S0027 DISTRB FSNAME=DIR                                         
            D3.2T1   78  ACCOUNTING.DIRECTRY.OC.45          1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  11:35.55
0          Referenced by comments of: 631/12 
00104/46    ACCOUNTING               DIRLIST         SA  G  DLST    S0027 DISTRB FSNAME=DIRLIST                                     
            D3.2T1   79  ACCOUNTING.DIRLIST.SA.46           1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  11:36.26
0          MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY.
00104/47    ACCOUNTING               DIRLIST         OC  G          S0027 DISTRB FSNAME=DLST                                        
            D3.2T1   80  ACCOUNTING.DIRLIST.OC.47           1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  11:36.55
00104/48    ACCOUNTING               FILUPDAT        SA  G  FLUP    S0027 DISTRB FSNAME=FILUPDAT                                    
            D3.2T1   81  ACCOUNTING.FILUPDAT.SA.48          1 LINE     80    5 PAGE UM   ENGLE               MAY  03, 1974  12:33.34
0          PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE MONTH OR EXPIRATION TIME.
           IT BOTH UPDATES THE ACCOUNTING RECORD AND WRITES A STATISTICS RECORD FOR BILLING.
           COPIES ACCFORMAT (104/1).
1                                                                                               FRI AUG 02/96   19:04:25   Page   42
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/49    ACCOUNTING               FILUPDAT        OC  G          S0027 DISTRB FSNAME=FLUP                                        
            D3.2T1   82  ACCOUNTING.FILUPDAT.OC.49          1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  12:33.46
00104/50    ACCOUNTING               ACONVERT        SA  G  ACNV    S0027 DISTRB FSNAME=ACONVERT                                    
            D3.2T1   83  ACCOUNTING.ACONVERT.SA.50          1 LINE     80    1 PAGE UM   ENGLE               MAR. 12, 1975  10:34:06
0          ACCUPDAT SUBROUTINE TO CONVERT A DISTRIBUTION 3.1 ACCOUNTING FILE TO THE NEW FORMAT FOR DIFFERENTIAL RATES
           BY DELETING RATE FIELDS.  USE WITH ACCRDWRT (104/26).  COPIES ACCFORMAT (104/1).
00104/51    ACCOUNTING               ACONVERT        OC  G          S0027 DISTRB FSNAME=ACNV                                        
            D3.2T1   84  ACCOUNTING.ACONVERT.OC.51          1 LINE     80    1 PAGE UM   ENGLE               MAR. 12, 1975  10:34:18
00104/52    ACCOUNTING               STAPRJPA        SA  G  SPPA    S0027 DISTRB FSNAME=STAPRJPA                                    
            D3.2T1   85  ACCOUNTING.STAPRJPA.SA.52          1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  11:38.52
0          TXT PATCH RECORDS FOR ACCMXMAT USED IN ACC:STAPROJECT (104/54).
00104/53    ACCOUNTING               STAPRJPA        OC  G          S0027 DISTRB FSNAME=SPPA                                        
            D3.2T1   86  ACCOUNTING.STAPRJPA.OC.53          1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  11:41.20
00104/54    ACCOUNTING               STAPRJCL        SA  G  SPCL    S0027 DISTRB FSNAME=STAPRJCL                                    
            D3.2T1   87  ACCOUNTING.STAPRJCL.SA.54          1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  11:42.30
0          MAIN PROGRAM FOR ACC:STAPROJECT.  CALLS ACCMXMAT WHICH HAS BEEN PATCHED WITH TXT RECORDS FROM STAPRJPA.
0          Referenced by comments of: 104/52 
00104/55    ACCOUNTING               STAPRJCL        OC  G          S0027 DISTRB FSNAME=STCL                                        
            D3.2T1   88  ACCOUNTING.STAPRJCL.OC.55          1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  11:43.39
00104/56    ACCOUNTING               STAPROJECT      OC  G          S0027 DISTRB FSNAME=STAPROJECT                                  
            D3.2T1   89  ACCOUNTING.STAPROJECT.OC.56        1 LINE     80    7 PAGE UM   ENGLE               DEC. 06, 1974  11:59.29
0          PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT.
           CONTAINS A "$CONTINUE WITH ACC:ACCLIB" RECORD.
00104/57    ACCOUNTING               GRDEF           SA  G  GRDF    S0720 'D3T1' FSNAME=ACCOUNTING.GRDEF.SA.58                   290
            D3T1    290  ACCOUNTING.GRDEF.SA.58             1 SEQ      80    1 PAGE UM   ENGLE               JAN. 10, 1973  17:16.39
0          COPY SECTION.
0          Referenced by comments of: 97/5, 104/13, 104/65, 104/67, 104/69, 104/76, 104/80, 104/86, 104/97, 586/1, 631/1,
                 631/4, 631/10, 632/3, 632/5 
00104/58    ACCOUNTING               WKDAY           SA  G  WKDA    S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.SA.59                   291
            D3T1    291  ACCOUNTING.WKDAY.SA.59             1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1973  12:14.08
0          SUBROUTINE TO PRODUCE THE DAY OF THE WEEK FOR A GIVEN DATE.  USED IN INITCHK (104/64).
00104/59    ACCOUNTING               WKDAY           OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.OC.60                   292
            D3T1    292  ACCOUNTING.WKDAY.OC.60             1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  12:14.29
1                                                                                               FRI AUG 02/96   19:04:25   Page   43
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/60    ACCOUNTING               DIRDSPLA        SA  G  DDSP    S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.SA.61                293
            D3T1    293  ACCOUNTING.DIRDSPLA.SA.61          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/61    ACCOUNTING               DIRDSPLA        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.OC.62                294
            D3T1    294  ACCOUNTING.DIRDSPLA.OC.62          1 LINE     80    1 DISK UM   ENGLE               JAN. 12, 1973  13:57.46
00104/62    ACCOUNTING               DIRPRINT        SA  G  DPRT    S0027 DISTRB FSNAME=DIRPRINT                                    
            D3.2T1   90  ACCOUNTING.DIRPRINT.SA.62          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/63    ACCOUNTING               DIRPRINT        OC  G          S0027 DISTRB FSNAME=DPRT                                        
            D3.2T1   91  ACCOUNTING.DIRPRINT.OC.63          1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  12:00.34
00104/64    ACCOUNTING               INITCHK                      # (SEE COMP 097/5 AND 097/6)                                      
                                                                                    UM   ENGLE                                      
0          Referenced by comments of: 104/58 
00104/65    ACCOUNTING               ACCFLUPD        SA  G  AFLU    S0027 DISTRB FSNAME=ACCFLUPD                                    
            D3.2T1   92  ACCOUNTING.ACCFLUPD.SA.65          1 LINE     80    6 PAGE UM   ENGLE               DEC. 06, 1974  12:01.51
0          SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD.
           COPIES ACCFORMAT (104/1) AND GRDEF (104/57).
00104/66    ACCOUNTING               ACCFLUPD        OC  G          S0027 DISTRB FSNAME=AFLU                                        
            D3.2T1   93  ACCOUNTING.ACCFLUPD.OC.66          1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  12:02.12
0          Referenced by comments of: 484/1 
00104/67    ACCOUNTING               ACCINSCN        SA  G  AINS    S0027 DISTRB FSNAME=ACCINSCN                                    
            D3.2T1   94  ACCOUNTING.ACCINSCN.SA.67          1 LINE     80    6 PAGE UM   ENGLE               MAR. 12, 1975  10:38:47
0          USED IN INIT:INIT (097/4).  COPIES ACCFORMAT (104/1) AND GRDEF (104/57).
00104/68    ACCOUNTING               ACCINSCN        OC  G          S0027 DISTRB FSNAME=AINS                                        
            D3.2T1   95  ACCOUNTING.ACCINSCN.OC.68          1 LINE     80    3 PAGE UM   ENGLE               MAR. 12, 1975  10:39:06
0          PATCHED TO AGREE WITH SOURCE.
00104/69    ACCOUNTING               CURSIG          SA  G  CSIG    S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.SA.70                  301
            D3T1    301  ACCOUNTING.CURSIG.SA.70            1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1973  17:55.52
0          SUBROUTINE TO DETERMINE NUMBER OF CURRENT SIGNONS.  COPIES GRDEF (104/57) AND *LLMPSEQU.  NOTE THAT THE
           SOURCE SHOULD BE CHANGED (IF RE-ASSEMBLED) SO THAT IT COPIES COPY:LLMPSEQU (087) INSTEAD OF *LLMPSEQU
           WHICH NO LONGER EXISTS.
00104/70    ACCOUNTING               CURSIG          OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.OC.71                  302
            D3T1    302  ACCOUNTING.CURSIG.OC.71            1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:56.03
0          Referenced by comments of: 484/1 
1                                                                                               FRI AUG 02/96   19:04:25   Page   44
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/71    ACCOUNTING               DEDFLFIX                     # (SEE COMP 502/13 AND 502/14)                                    
                                                                                    UM   ENGLE                                      
00104/72    ACCOUNTING               ACCLSTPR        SA  G  ALPR    S0027 DISTRB FSNAME=ACCLSTPR                                    
            D3.2T1   96  ACCOUNTING.ACCLSTPR.SA.72          1 LINE     80    8 PAGE UM   ENGLE               MAR. 12, 1975  10:45:36
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT.  COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/31 
00104/73    ACCOUNTING               ACCLSTPR        OC  G          S0027 DISTRB FSNAME=ALPR                                        
            D3.2T1   97  ACCOUNTING.ACCLSTPR.OC.73          1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  13:13.17
0          PATCHED TO AGREE WITH SOURCE.
00104/74    ACCOUNTING               ACCFLCHG        SA  G  AFLC    S0027 DISTRB FSNAME=ACCFLCHG                                    
            D3.2T1   98  ACCOUNTING.ACCFLCHG.SA.74          1 LINE     80    4 PAGE UM   ENGLE               MAY  03, 1974  13:14.32
0          SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD.
           CALLED BY ACCDSPLA.  COPIES ACCFORMAT (104/1).
00104/75    ACCOUNTING               ACCFLCHG        OC  G          S0027 DISTRB FSNAME=AFLC                                        
            D3.2T1   99  ACCOUNTING.ACCFLCHG.OC.75          1 LINE     80    1 PAGE UM   ENGLE               MAY  03, 1974  13:14.38
00104/76    ACCOUNTING               APSWDISP        SA  G  APWD    S0720 'D3T1' FSNAME=ACCOUNTING.APSWDISP.SA.77                307
            D3T1    307  ACCOUNTING.APSWDISP.SA.77          1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1973  18:07.38
0          SUBROUTINE TO PRINT INTERNAL PASSWORD REPRESENTATION AND LAST DATE AND TIME SET FOR AN ACCOUNTING RECORD.
           CALLED BY ACCDSPLA.  COPIES ACCFORMAT (104/1) AND GRDEF (104/57).
00104/77    ACCOUNTING               APSWDISP        OC  G          S0027 DISTRB FSNAME=APWD                                        
            D3.2T1  100  ACCOUNTING.APSWDISP.OC.77          1 LINE     80    1 PAGE UM   ENGLE               MAY  03, 1974  13:15.32
00104/78    ACCOUNTING               ACCHEXPR        SA  O  AXPR    S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.SA.79                309
            D3T1    309  ACCOUNTING.ACCHEXPR.SA.79          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/79    ACCOUNTING               ACCHEXPR        OC  O          S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.OC.80                310
            D3T1    310  ACCOUNTING.ACCHEXPR.OC.80          1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  10:55.43
00104/80    ACCOUNTING               TIMETRP         SA  G  TTRP    S0027 DISTRB FSNAME=TIMETRP                                     
            D3.2T1  101  ACCOUNTING.TIMETRP.SA.80           1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:04.25
0          SUBROUTINE TO SET UP REAL TIME INTERRUPTS AND SET A FLAG AT THE INTERRUPT.  COPIES GRDEF (104/57).
00104/81    ACCOUNTING               TIMETRP         OC  G          S0027 DISTRB FSNAME=TTRP                                        
            D3.2T1  102  ACCOUNTING.TIMETRP.OC.81           1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:04.41
0          Referenced by comments of: 631/12 
1                                                                                               FRI AUG 02/96   19:04:25   Page   45
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/82    ACCOUNTING               ACCSGATR        SA  G  ASAR    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.SA.83              165
            D3.1T1  165  ACCOUNTING.ACCSGATR.SA.83          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.
           COPIES ACCFORMAT (104/1)
00104/83    ACCOUNTING               ACCSGATR        OC  G  ASAR    S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.OC.84              166
            D3.1T1  166  ACCOUNTING.ACCSGATR.OC.84          1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  14:53.32
00104/84    ACCOUNTING               ACCSAVE         SA  G  ASAV    S0027 DISTRB FSNAME=ACCSAVE                                     
            D3.2T1  103  ACCOUNTING.ACCSAVE.SA.84           1 LINE     80    7 PAGE UM   ENGLE               DEC. 06, 1974  12:05.23
0          MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE.
00104/85    ACCOUNTING               ACCSAVE         OC  G          S0027 DISTRB FSNAME=ASAV                                        
            D3.2T1  104  ACCOUNTING.ACCSAVE.OC.85           1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:05.43
00104/86    ACCOUNTING               ACCTAPRD        SA  G  ATRD    S0027 DISTRB FSNAME=ACCTAPRD                                    
            D3.2T1  105  ACCOUNTING.ACCTAPRD.SA.86          1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:06.26
0          VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES.
           COPIES GRDEF (104/57).
00104/87    ACCOUNTING               ACCTAPRD        OC  G          S0027 DISTRB FSNAME=ATRD                                        
            D3.2T1  106  ACCOUNTING.ACCTAPRD.OC.87          1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:06.35
00104/88    ACCOUNTING               GETFILE         SA  G  GTFL    S0027 DISTRB FSNAME=GETFILE                                     
            D3.2T1  107  ACCOUNTING.GETFILE.SA.88           1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:07.09
0          SUBROUTINE TO GET A FDUB, ETC.
0          Referenced by comments of: 502/1 
00104/89    ACCOUNTING               GETFILE         OC  G          S0027 DISTRB FSNAME=GTFL                                        
            D3.2T1  108  ACCOUNTING.GETFILE.OC.89           1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:07.15
0          Referenced by comments of: 129/2, 484/1, 631/12 
00104/90    ACCOUNTING               ACATALOG        SA  G  ACAT    W045:PF.ACATALOG                                                
            D3.2T1  109  ACCOUNTING.ACATALOG.SA.90          1 LINE     80    4 PAGE UM   PIRKOLA             MAR. 21, 1975  01:08:57
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.
           COPIES COPY:CATEQU (482/28).
00104/91    ACCOUNTING               ACATALOG        OC  G          W045:PF.ACATALOG.O                                              
            D3.2T1  110  ACCOUNTING.ACATALOG.OC.91          1 LINE     80    1 PAGE UM   PIRKOLA             MAR. 21, 1975  01:09:00
0          Referenced by comments of: 484/1 
00104/92    ACCOUNTING               ACATALOG        SA  G  ACAT    MTA:ACATALOG(1,999)                                             
            D3.2T1  111  ACCOUNTING.ACATALOG.SA.92          1 LINE     80    3 PAGE UM   MTA                 MAR. 21, 1975  01:09:02
0          THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION,
1                                                                                               FRI AUG 02/96   19:04:25   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          BUT CALLS THE ACATSUB SUBROUTINE (104/94) TO BUILD A TABLE OF USER ID VERSUS FILE SPACE FOR ALL USERS ON THE
           FIRST CALL TO ACATALOG.  FROM THEN ON, IT JUST DOES A TABLE LOOKUP TO GET THE SIZE-- THE RESULT BEING A VERY
           FAST ACATALOG.  THIS VERSION IS ONLY USED WHEN EVERY USER'S FILE SPACE IS TO BE RECALCULATED.  AT UM, IT HAS
           ONLY BEEN USED WHEN NEW FILE SYSTEMS ARE INSTALLED, I.E. WHEN A COMPLETE FILE SAVE AND RESTORE HAVE BEEN DONE.
           COPIES COPY:CATEQU (482/28) AND COPY:FCBEQU (482/27).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 104/94 
00104/93    ACCOUNTING               ACATALOG        OC  G          MTA:ACATALOG(1000)                                              
            D3.2T1  112  ACCOUNTING.ACATALOG.OC.93          1 LINE     80    1 PAGE UM   MTA                 MAR. 21, 1975  01:09:05
00104/94    ACCOUNTING               ACATSUB         SA  G  ACSB    MTA:ACATSUB(1,999)                                              
            D3.2T1  113  ACCOUNTING.ACATSUB.SA.94           1 LINE     80   13 PAGE UM   MTA                 MAR. 21, 1975  01:09:07
0          SUBROUTINE CALLED BY SUPER ACATALOG (104/92).  COPIES COPY:CATEQU (482/28), COPY:FCBEQU (482/27), AND
           COPY:DSCBDSCT (482/41).  ASSEMBLE USING *SYSMAC.  CALLS VTOCREAD (067/4).
0          Referenced by comments of: 104/92 
00104/95    ACCOUNTING               ACATSUB         OC  G          MTA:ACATSUB(1000)                                               
            D3.2T1  114  ACCOUNTING.ACATSUB.OC.95           1 LINE     80    8 PAGE UM   MTA                 MAR. 21, 1975  01:09:09
00104/96    ACCOUNTING               WRITEUP         WF  G          S0027 DISTRB FSNAME=ACCWRITEUP                                  
            D3.2T1  115  ACCOUNTING.WRITEUP.WF.96           1 LINE     80    7 PAGE UM   ENGLE               MAY  03, 1974  13:17.55
0          A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS.
00104/97    ACCOUNTING               IOLOKCK         SA  G  IOLC    S0027 DISTRB FSNAME=IOLOKCK                                     
            D3.2T1  116  ACCOUNTING.IOLOKCK.SA.97           1 LINE     80    5 PAGE UM   ENGLE               DEC. 06, 1974  13:38.21
0          SUBROUTINE TO INTERCEPT I/O ERRORS AND NON-ZERO RETURN CODES FROM SETLCK IN ORDER
           TO PREVENT INTERRUPTION OF FILE LOCK WAITS.  SETIOERR MUST BE CALLED WITH IOLOKCK AS
           THE I/O ERROR SUBROUTINE IN ORDER TO ACTIVATE THE I/O ERROR INTERCEPT.
           COPIES GRDEF (104/57).
0          Referenced by comments of: 129/2, 631/12 
00104/98    ACCOUNTING               IOLOKCK         OC  G          S0027 DISTRB FSNAME=IOLC                                        
            D3.2T1  117  ACCOUNTING.IOLOKCK.OC.98           1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:39.01
00107       ACATALOG                                              # (SEE COMP 104)                                                  
                                                                                    UM                                              
00108/01    PL/360                   ASSEMBLER       S3             W016:PL360.S                                                    
            D3T1    328  PL/360.ASSEMBLER.S3.1              1 LINE     73   38 PAGE UM   LEADER              JULY 31, 1973  00:08.12
0          MAY 1971 VERSION OF PL/360 FROM UNE.  MODIFIED BY UM TO PRODUCE SYM CARDS.
           THIS FILE REQUIRES THE OBJECT IN *PL360 TO ASSEMBLE ITSELF.
00108/02    PL/360                   MTS INTERFACE   SA             W016:PL360SUP.S                                                 
            D3T1    329  PL/360.MTS_INTERFACE.SA.2          1 LINE     83    3 PAGE UM   LEADER              JULY 31, 1973  00:08.20
0          SOURCE IN ASMG FOR MTS INTERFACE OF PL/360.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00108/03    PL/360                   *PL360          OE             *PL360                                                          
            D3T1    330  PL/360.*PL360.OE.3                 1 SEQ   22059    9 PAGE UM   LEADER              JULY 31, 1973  00:08.22
00108/04    PL/360                   *PL360LIB       SA             W016:PL360LIB.S                                                 
            D3T1    331  PL/360.*PL360LIB.SA.4              1 LINE     80    3 PAGE UM   LEADER              JULY 31, 1973  00:08.24
0          SOURCE FOR THE RUN TIME PL360 LIBRARY - *PL360LIB.
00108/05    PL/360                   *PL360LIB       OC             *PL360LIB                                                       
            D3T1    332  PL/360.*PL360LIB.OC.5              1 LINE     80    1 PAGE UM   LEADER              JULY 31, 1973  00:08.26
00108/06    PL/360                   *PL360SLIB      SA             W016:PL360SLIB.S                                                
            D3T1    333  PL/360.*PL360SLIB.SA.6             1 LINE     80    3 PAGE UM   LEADER              JULY 31, 1973  00:08.28
0          SOURCE FOR ANOTHER RUN TIME PL360 LIBRARY - *PL360SLIB.
           THE ONLY DIFFERENCE BETWEEN THIS AND *PL360LIB IS THAT THIS ONE WRITES LINES @CC (WITHOUT CARRIAGE CONTROL).
00108/07    PL/360                   *PL360SLIB      OC             *PL360SLIB                                                      
            D3T1    334  PL/360.*PL360SLIB.OC.7             1 SEQ      80    1 PAGE UM   LEADER              JULY 31, 1973  00:08.31
00110/01    TNL                      *TNL            SA     *TNL    S0720 'D3T1' FSNAME=TNL.*TNL.S.1                             335
            D3T1    335  TNL.*TNL.S.1                       1 SEQ      80   30 PAGE UM   DWB                 JULY 31, 1973  00:08.57
0          PROGRAM TO PRINT TNLS FOR USERS.  REQUIRES DATA FILE *MTSTNL.
           THIS PROGRAM HAS NEVER BEEN USED, BUT MIGHT BE (SOMEDAY) IF THE PEOPLE HERE (UM) EVER CARE ABOUT DOCUMENTATION.
00110/02    TNL                      *TNL            OC             *TNL                                                            
            D3T1    336  TNL.*TNL.O.2                       1 LINE     80    6 PAGE UM   DWB                 JULY 31, 1973  00:09.00
00110/03    TNL                      *TNLBUILD       SA           # (SEE COMP 110/1)                                                
                                                                                    UM   DWB                                        
0          PROGRAM TO ADD TNLS TO *MTSTNL.
00110/04    TNL                      *TNLBUILD       OC             *TNLBUILD                                                       
            D3T1    337  TNL.*TNLBUILD.O.4                  1 LINE     80    4 PAGE UM   DWB                 JULY 31, 1973  00:09.02
00111/01   *PTPRRTN                                  SA  G  PTPR    WSG:PTAPE                                                       
            D3T1    338  PTPRRTN..SA.1                      1 LINE     80   18 PAGE UM   WSG                 JULY 31, 1973  00:09.04
0          DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER.
           ASSEMBLE USING *SYSMAC.
00111/02   *PTPRRTN                                  OC  G          *PTPRRTN                                                        
            D3T1    339  PTPRRTN..OC.2                      1 LINE     80    2 PAGE UM   WSG                 JULY 31, 1973  00:09.08
00112       MAD1                                                  # (NOT DISTRIBUTED)                                               
                                                                                    UM   GALLER                                     
0          OBJECT (AND PROBABLY SOURCE) FOR THE MAD1 COMPILER ARE AVAILABLE ON REQUEST.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00113       SCANFILES <DEADFILES>                                 # (SEE COMP 502)                                                  
                                                                                    UM                                              
00116/01   *PDP8RTN                                  SA  G  PDP8    WSG:PDP8                                                        
            D3.1T1  170  PDP8RTN..SA.1                      1 LINE     80   46 PAGE UM   WSG                 MAR. 06, 1974  03:31.03
0          MTS DEVICE SUPPORT ROUTINES FOR THE UM PDP-8, PDP-8E, AND PDP-11 DATA CONCENTRATORS. 
           INCLUDES SUPPORT FOR "VOTRAX" AUDIO RESPONSE UNITS BY CALLING SPECIAL SUBROUTINES
           TO PERFORM I/O CONVERSION (SEE COMP 084).
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND COPY:FDUBDSECT (623).
0          Referenced by comments of: 84/21 
00116/02   *PDP8RTN                                  OC  G          *PDP8RTN                                                        
            D3.1T1  171  PDP8RTN..OC.2                      1 LINE     80    4 PAGE UM   WSG                 MAR. 06, 1974  03:31.13
00116/03   *PDP8RTN                  MEMO M254       WF  G          W098:KDM254                                                     
            D3.1T1  172  PDP8RTN.MEMO_M254.WF.3             1 LINE    125    5 PAGE UM   JLD                 MAR. 06, 1974  03:31.14
0          THIS IS COMPUTING CENTER MEMO M254 -- "BASIC USE OF THE MODEL 35 TELETYPE WITH THE DATA CONCENTRATOR"
00117      *GRAPHMAC                                 SM  O  GRPM    S0720 'D3T1' FSNAME=GRAPHMAC..SM.                            342
            D3T1    342  GRAPHMAC..SM.                      1 SEQ      80   63 PAGE UM   PIRKOLA             JULY 31, 1973  00:14.26
0          MACROS TO SUPPORT AN EXTENSION OF EXPRESS GRAPHICS ON 2250'S IN MTS.
           CALLS SUBROUTINES IN *GRAPHLIB (231).
0          Referenced by comments of: 231/1 
00119/01    SYN360                                   SS             S0720 'D3T1' FSNAME=SYN360..SS.1                             343
            D3T1    343  SYN360..SS.1                       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/02    SYN360                   TABLES DATA     D              S0720 'D3T1' FSNAME=SYN360.TABLES_DATA.D.2                   344
            D3T1    344  SYN360.TABLES_DATA.D.2             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/01    REWIND SUBR                              SA  G  REW0    MTA:REWIND(1,999)                                               
            D3T1    345  REWIND_SUBR..SA.1                  1 LINE     80    1 PAGE UM   MTA                 JULY 31, 1973  00:15.39
0          FORTRAN CALLABLE REWIND SUBROUTINE.  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 143/1 
00120/02    REWIND SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00121/01   *USERS                    MAIN PGM        SA  G  USER    MTA:USERS(1,999)                                                
            D3.2T1  118  USERS.MAIN_PGM.SA.01               1 LINE     80    4 PAGE UM   MTA                 MAR. 21, 1975  01:10:23
0          USER-LEVEL PROGRAM TO PRINT THE CURRENT NUMBER OF TERMINAL USERS AND BATCH JOBS.  IN ADDITION, FOR A 360/67
1                                                                                               FRI AUG 02/96   19:04:25   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          IT PRINTS THE CURRENT HARDWARE CONFIGURATION (PROCESSORS, CHANNEL CONTROLLERS, AND STORAGE).
           NOTE:  USERSCON (121/2) IS REFERENCED BY A WEAK EXTERN AND WILL BE
                  CALLED ONLY IF PRESENT.
           COPIES COPY:JOBSTA (413/14).
00121/02   *USERS                    67 CONF SUBR    SA  G  CONF    S0938 FSAVE2 FSNAME=USERSCONF.S                                 
            D3.2T1  119  USERS.67_CONF_SUBR.SA.02           1 LINE     80    3 PAGE UM   MTA                 FEB. 14, 1975  00:54:01
0          SUBR TO PRINT 360/67 HARDWARE CONFIGURATION.  COPIES COPY:CHACST (577/28).
0          Referenced by comments of: 121/1 
00121/03   *USERS                    67 CONF SUBR    OC  G          S0938 FSAVE2 FSNAME=USERSCONF.O                                 
            D3.2T1  120  USERS.67_CONF_SUBR.OC.03           1 LINE     80    1 PAGE UM   MTA                 FEB. 14, 1975  00:54:57
00121/04   *USERS                    370 OBJECT      OC  G          *USERS                                                          
            D3.2T1  121  USERS.370_OBJECT.OC.04             1 LINE    255    1 PAGE UM   MTA                 MAR. 21, 1975  01:12:47
0          *USERS SHOULD CONTAIN THE OBJECT FROM 121/1 FOR A 370 SYSTEM OR
           THE OBJECT FROM BOTH 121/1 AND 121/3 FOR A 360/67 SYSTEM.
00121/05   *USERS                    *USE            C              *USE                                                            
            D3T1    349  USERS.*USE.C.4                     1 LINE     35    1 PAGE UM   MTA                 JULY 31, 1973  00:15.48
0          COMMAND FILE INVOKED BY ENTERING "MTS *USE" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "OPER" AND
           RUNS *USERS WITH OUTPUT ON THE OPERATOR'S CONSOLE.
00122      *STA                                      C            # (SEE COMP 050)                                                  
                                                                                    UM                                              
00123      *PTASKS                                   SA  O  PTSK    S0720 'D3T1' FSNAME=PTASKS..SA.                              350
            D3T1    350  PTASKS..SA.                        1 SEQ      80   17 PAGE UM   PIRKOLA             JULY 31, 1973  00:15.58
0          PROGRAM TO DISPLAY TASK STATUS ON A 2250 DISPLAY.  CALLS *PTSKRTN (063).
           COPIES *LLMPSEQU, WHICH SHOULD BE CHANGED TO COPY COPY:LLMPSEQU (087).
           OBJECT NOT DISTRIBUTED.
00126/01    BLSTDEV                                  SA  G  BLDV    S0720 'D3T1' FSNAME=BLSTDEV..SA.1                            351
            D3T1    351  BLSTDEV..SA.1                      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/02    BLSTDEV                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00127       SAVEFILES <DEADFILES>                                 # (SEE COMP 502)                                                  
                                                                                    UM                                              
00128      *PTPPRTN                                  SA  S  PTPP    S0720 'D3T1' FSNAME=PTPPRTN..SA.                             352
            D3T1    352  PTPPRTN..SA.                       1 SEQ      80   19 PAGE UM   WSG                 JULY 31, 1973  00:17.03
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 1018 PAPER TAPE PUNCH.  HAS BUGS AND HAS NOT BEEN USED AT UM FOR MANY YEARS.
           OBJECT NOT DISTRIBUTED; WASTE YOUR OWN MONEY ASSEMBLING IT!
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00129/01   *STATUS                                   SA  G        # (SEE COMP 104)                                                  
                                                                                    UM   ENGLE                                      
0          PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD.
00129/02   *STATUS                                   OE  G          *STATUS                                                         
            D3.2T1  122  STATUS..OE.02                      1 LINE    255    4 PAGE UM   ENGLE               MAR. 21, 1975  01:12:50
0          CONSISTS OF:  STATUS (104/12) + ACCIO (104/18) + IOLOKCK (104/97) + GETFILE (104/89).
00131       STRTPDP                                               # (OBSOLETE, SEE COMP 614)                                        
            D2T1    149                                                             UM                                              
00132/01   *PERMIT                                   SA  G  PMIT    W045:OLDPERMITANU                                               
            D3T1    354  PERMIT..SA.1                       1 LINE     80    6 PAGE UM   PIRKOLA             JULY 31, 1973  00:17.06
0          ACTUALLY *PERMIT IS NO LONGER NEEDED SINCE THE ADVENT OF THE $PERMIT COMMAND.  HOWEVER,
           THIS VERSION WORKS WITH THE NEW FILE ROUTINES SO THAT STUBBORN USERS CAN STILL HAVE *PERMIT.
           CALLS PERMIT SUBROUTINE.
00132/02   *PERMIT                                   OE  G          *PERMIT                                                         
            D3T1    355  PERMIT..O.2                        1 LINE    255    1 PAGE UM   PIRKOLA             JULY 31, 1973  00:17.08
00133/01   *PLOT                                     SA     PLOT    W030:CPLOT                                                      
            D3.2T1  123  PLOT..SA.01                        1 LINE     80   14 PAGE UM   LIFT                MAR. 21, 1975  01:12:52
0          CONVERSATIONAL INTERFACE TO PRINTER PLOT SUBROUTINES (282).
00133/02   *PLOT                                     OC             *PLOT                                                           
            D3.2T1  124  PLOT..OC.02                        1 LINE     80    3 PAGE UM   LIFT                MAR. 21, 1975  01:12:55
00135/01   *TAPERTN                                  SA  G  TAPE    WSG:TAPE                                                        
            D3.2T1  125  TAPERTN..SA.01                     1 LINE     80   86 PAGE UM   WSG                 MAR. 21, 1975  01:12:56
0          MTS DEVICE SUPPORT ROUTINES FOR MAGNETIC TAPES.  COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1),
           COPY:GLOBALSETS (1026/2), *CNFGINFODSECT (654), AND COPY:FDUBDSECT (623).
           SPECIAL GLITCH:  THE LABEL PROGRAMS (SEE COMP 487) RELY ON THE LOCATION OF THE "CHKLABEL" BIT IN THE
           TAPERTN DSECT, SO THEY WILL HAVE TO BE REASSEMBLED IF CHKLABEL IS MOVED.
           THERE IS A CONTROL COMMAND (NOT IN THE MANUAL) WHICH ONLY WORKS IF ISSUED BY
           USER ID MTS.  THE "NLC" (NO LABEL CHECK) COMMAND CAN BE USED TO DETERMINE WHAT A TAPE'S
           VOLUME LABEL IS AS FOLLOWS:
            
               $SIG MTS
               $GET >T900
               $CONTROL >T900 NLC
               $LIST
               $RELEASE
            
           CURRENT VERSION USES MVCL IF EXECUTING ON A 370 AND CHECKS EXPIRATION DATE
           BEFORE ALLOWING INIT COMMAND.
0          Referenced by comments of: 487/4, 489/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00135/02   *TAPERTN                                  OC  G          WSG:TAPERTN.D                                                   
            D3.2T1  126  TAPERTN..OC.02                     1 LINE     80    6 PAGE UM   WSG                 MAR. 21, 1975  01:13:06
0          *TAPERTN IS NORMALLY LOADED INTO SHARED VM BY PISTLE.
00136/01   *FIX                                      C   G          *FIX                                                            
            D3T1    360  FIX..C.1                           1 LINE      7    1 PAGE UM   ENGLE               JULY 31, 1973  00:17.34
0          COMMAND FILE USED BY OPERATORS TO CLEAN UP A USERID (E.G. AFTER A SNARK).  THIS WILL SET THE
           CORRECT NUMBER OF CURRENT SIGNONS IN THE USER'S ACCOUNTING RECORD AND UPDATE HIS FILE SPACE
           INFORMATION.  THIS FILE SOURCES TO FIX:FIX (136/2).
           INVOKED BY ENTERING "MTS *FIX" ON OPERATORS CONSOLE.
00136/02   *FIX                      FIX:FIX         C   G          FIX:FIX                                                         
            D3T1    361  FIX.FIX:FIX.C.2                    1 LINE     49    1 PAGE UM   ENGLE               JULY 31, 1973  00:17.35
0          COMMAND FILE TO SET LIBRARY FILE CHANGE BIT (CWPF) IN MTS DSECT AND THEN RUN *ACCRESTORE (484).
0          Referenced by comments of: 136/1 
00136/03   *FIX                      FIX:Q           OC  G          FIX:Q                                                           
            D3T1    362  FIX.FIX:Q.OC.3                     1 LINE     80    1 PAGE UM   ENGLE               JULY 31, 1973  00:17.37
0          PROGRAM TO SET LIBRARY FILE CHANGE BIT (CWPF) IN MTS DSECT.
           NO SOURCE AVAILABLE.
00137/01   *UPDATE                                   SA  G  UPDT    W086:UPDATE.S                                                   
            D3T1    363  UPDATE..SA.1                       1 LINE     80   29 PAGE UM   DE JONG             JULY 31, 1973  00:17.39
0          D3.0 SOURCE FOR *UPDATE.
           REQUIRES D3.0 QSAM ROUTINES (283).
00137/02   *UPDATE                                   UU  G          W086:UPDATE.U                                                   
            D3T1    364  UPDATE..UU.2                       1 LINE     72    9 PAGE UM   DE JONG             JULY 31, 1973  00:17.45
0          UPDATE DECK TO PRODUCE D3.0 *UPDATE FROM D2.0.
00137/03   *UPDATE                                   OE  G          *UPDATE                                                         
            D3T1    365  UPDATE..O.3                        1 LINE    255    4 PAGE UM   DE JONG             JULY 31, 1973  00:17.47
00138/01    TEXT/360                 *PRESCAN        SA  O  PRES    S0720 'D3T1' FSNAME=TEXT/360.*PRESCAN.SA.1                   366
            D3T1    366  TEXT/360.*PRESCAN.SA.1             1 SEQ      80   35 PAGE UM   TIFFANY             JULY 31, 1973  00:21.04
0          SINCE ALMOST ALL OF THE TEXT/360 PROGRAMS WERE COMPILED BY THE PL/I(F) VERSION 4 COMPILER,
           THERE ARE SEVERAL INCOMPATIBILITIES IN COMPILING THESE IN PL/I(F) VERSION 5 (THE CURRENT
           VERSION), ESPECIALLY SINCE VERSION 5 REALLY IMPLEMENTS HALFWORDS.  FOR THIS REASON, THE OBJECT
           FOR *FMAINT, *BLDLIN, *PLAOUT, AND *POSTPR IS VERSION 4 OBJECT WHICH HAS BEEN PATCHED SINCE THE
           VERSION 4 COMPILER'S OBJECT CODE DOESN'T WORK WHEN LOADED INTO SEGMENT 5.
            
           *PRESCAN IS THE TEXT/360 PRESCAN PROGRAM.  MODIFIED FROM OS/360.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00138/02    TEXT/360                 *PRESCAN        OC  O          *PRESCAN                                                        
            D3T1    367  TEXT/360.*PRESCAN.OC.2             1 LINE     80    5 PAGE UM   TIFFANY             JULY 31, 1973  00:21.07
0          OBJECT HAS A REP
00138/03    TEXT/360                 *FMAINT         SP  O  FMAI    S0720 'D3T1' FSNAME=TEXT/360.*FMAINT.SP.3                    368
            D3T1    368  TEXT/360.*FMAINT.SP.3              1 SEQ      80   35 PAGE UM   TIFFANY             JULY 31, 1973  00:21.12
0          TEXT/360 PHASE 1 -- FILE MAINTENANCE.  PL/I VERSION 4.
00138/04    TEXT/360                 *FMAINT         OE  O          *FMAINT                                                         
            D3T1    369  TEXT/360.*FMAINT.OE.4              1 SEQ   23106    9 PAGE UM   TIFFANY             JULY 31, 1973  00:21.15
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/05    TEXT/360                 *BLDLIN 1       SP  O  BLD1    S0720 'D3T1' FSNAME=TEXT/360.*BLDLIN_1.SP.5                  370
            D3T1    370  TEXT/360.*BLDLIN_1.SP.5            1 SEQ      80   64 PAGE UM   TIFFANY             JULY 31, 1973  00:21.23
0          TEXT/360 PHASE 2 -- BUILD LINES.  PL/I VERSION 4.
00138/06    TEXT/360                 *BLDLIN 2       SP  O  BLD2    S0720 'D3T1' FSNAME=TEXT/360.*BLDLIN_2.SP.6                  371
            D3T1    371  TEXT/360.*BLDLIN_2.SP.6            1 SEQ      80    6 PAGE UM   TIFFANY             JULY 31, 1973  00:21.28
0          TEXT/360 PHASE 2 SUBROUTINE TO HYPHENATE WORDS.  PL/I VERSION 4.
00138/07    TEXT/360                 *BLDLIN         OE  O          *BLDLIN                                                         
            D3T1    372  TEXT/360.*BLDLIN.OE.7              1 SEQ   32751   14 PAGE UM   TIFFANY             JULY 31, 1973  00:21.29
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/08    TEXT/360                 *PLAOUT         SP  O  PLAO    S0720 'D3T1' FSNAME=TEXT/360.*PLAOUT.SP.8                    373
            D3T1    373  TEXT/360.*PLAOUT.SP.8              1 SEQ      80   46 PAGE UM   TIFFANY             JULY 31, 1973  00:21.36
0          TEXT/360 PHASE 3 -- PAGE LAY OUT.  PL/I VERSION 4.
00138/09    TEXT/360                 *PLAOUT         OE  O          *PLAOUT                                                         
            D3T1    374  TEXT/360.*PLAOUT.OE.9              1 SEQ   28222    9 PAGE UM   TIFFANY             JULY 31, 1973  00:21.39
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/10    TEXT/360                 *POSTPR 1       SP  O  PPR1    S0720 'D3T1' FSNAME=TEXT/360.*POSTPR_1.SP.10                 375
            D3T1    375  TEXT/360.*POSTPR_1.SP.10           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:21.41
0          TEXT/360 PHASE 4 -- POST PROCESSOR.  PL/I VERSION 4.
00138/11    TEXT/360                 *POSTPR 2       SP  O  PPR2    S0720 'D3T1' FSNAME=TEXT/360.*POSTPR_2.SP.11                 376
            D3T1    376  TEXT/360.*POSTPR_2.SP.11           1 SEQ      80   28 PAGE UM   TIFFANY             JULY 31, 1973  00:21.47
0          TEXT/360 PHASE 4 SUBROUTINE.  PL/I VERSION 4.
00138/12    TEXT/360                 *POSTPR 3       SP  O  PPR3    S0720 'D3T1' FSNAME=TEXT/360.*POSTPR_3.SP.12                 377
            D3T1    377  TEXT/360.*POSTPR_3.SP.12           1 SEQ      80    6 PAGE UM   TIFFANY             JULY 31, 1973  00:21.50
0          TEXT/360 PHASE 4 SUBROUTINE.  PL/I VERSION 4.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00138/13    TEXT/360                 *POSTPR         OE  O          *POSTPR                                                         
            D3T1    378  TEXT/360.*POSTPR.OE.13             1 SEQ   15558   10 PAGE UM   TIFFANY             JULY 31, 1973  00:21.52
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/14    TEXT/360                 *PRINT          SA  O  PRNT    S0720 'D3T1' FSNAME=TEXT/360.*PRINT.SA.14                    379
            D3T1    379  TEXT/360.*PRINT.SA.14              1 SEQ      80    7 PAGE UM   TIFFANY             JULY 31, 1973  00:22.33
0          TEXT/360 OUTPUT PRINTING PROGRAM.
00138/15    TEXT/360                 *PRINT          OC  O          *PRINT                                                          
            D3T1    380  TEXT/360.*PRINT.OC.15              1 LINE     80    3 PAGE UM   TIFFANY             JULY 31, 1973  00:22.34
00138/16    TEXT/360                 *T90T360        SP  O  T90T    S0720 'D3T1' FSNAME=TEXT/360.*T90T360.SP.16                  381
            D3T1    381  TEXT/360.*T90T360.SP.16            1 SEQ      80    5 PAGE UM   TIFFANY             JULY 31, 1973  00:22.40
0          CONVERT TEXT/90 MASTER TAPES TO TEXT/360. THIS IS IBM'S PROGRAM.
           PL/I VERSION 4.
00138/17    TEXT/360                 *T90T360        OC  O          *T90T360                                                        
            D3T1    382  TEXT/360.*T90T360.OC.17            1 LINE     80    5 PAGE UM   TIFFANY             JULY 31, 1973  00:22.41
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/18    TEXT/360                 *DICTUPD        SP  O  DICT    S0720 'D3T1' FSNAME=TEXT/360.*DICTUPD.SP.18                  383
            D3T1    383  TEXT/360.*DICTUPD.SP.18            1 SEQ      80    5 PAGE UM   TIFFANY             JULY 31, 1973  00:22.44
0          PROGRAM TO MAINTAIN TEXT/360 SPELLING DICTIONARY.
00138/19    TEXT/360                 *DICTUPD        OC  O          *DICTUPD                                                        
            D3T1    384  TEXT/360.*DICTUPD.OC.19            1 LINE     80    6 PAGE UM   TIFFANY             JULY 31, 1973  00:22.46
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00138/20    TEXT/360                 *DICT           D              S0720 'D3T1' FSNAME=TEXT/360.*DICT.D.20                      385
            D3T1    385  TEXT/360.*DICT.D.20                1 SEQ      80    8 PAGE UM   TIFFANY             JULY 31, 1973  00:22.49
0          TEXT/360 SPELLING DICTIONARY.
           THIS FILE IS APPARENTLY NOT COMPATIBLE WITH *DICTUPD.
00138/21    TEXT/360                 CONVERT SUBR    SA  O  UCLC    S0720 'D3T1' FSNAME=TEXT/360.CONVERT_SUBR.SA.21              386
            D3T1    386  TEXT/360.CONVERT_SUBR.SA.21        1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  00:22.51
0          UPPER CASE - LOWER CASE CONVERSION SUBROUTINE USED BY *FMAINT AND *BLDLIN.
00138/22    TEXT/360                 CVTUPC SUBR     SA  O  LCUC    S0720 'D3T1' FSNAME=TEXT/360.CVTUPC_SUBR.SA.22               387
            D3T1    387  TEXT/360.CVTUPC_SUBR.SA.22         1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  00:22.53
0          LOWER CASE - UPPER CASE CONVERSION SUBROUTINE USED BY *BLDLIN.
00138/23    TEXT/360                 CVSPEL SUBR     SA  O  SPEC    S0720 'D3T1' FSNAME=TEXT/360.CVSPEL_SUBR.SA.23               388
            D3T1    388  TEXT/360.CVSPEL_SUBR.SA.23         1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  00:22.55
0          SPELLING CONVERION SUBROUTINE USED BY *POSTPR.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00139       COPYSAVE <DEADFILES>                                  # (SEE COMP 502/3 AND 502/4)                                      
                                                                                    UM                                              
00140/01   *ANALYSIS                                 SA  G  ANAL    MTA:ANALYSIS(1,9999)                                            
            D3.2T1  127  ANALYSIS..SA.01                    1 LINE     80   64 PAGE UM   MTA                 MAR. 21, 1975  01:13:08
0          PROGRAM USED IN ANALYZING THE STATISTICS PRODUCED ON MAGNETIC TAPE BY THE STAT JOB (079).
           ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 79/1 
00140/02   *ANALYSIS                                 OC  G          *ANALYSIS(1)                                                    
            D3.2T1  128  ANALYSIS..OC.02                    1 LINE    255   15 PAGE UM   MTA                 MAR. 21, 1975  01:13:25
0          THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000.  SEE CCMEMO M294 (140/9).
00140/03   *ANALYSIS                 PL/1 MAIN PGM   SP             S0219 FSTAPE FSNAME=PL1STAT                                     
                                                                                    UM   MTA                                        
0          PL/1 MAIN PROGRAM FOR USE WITH *ANALSIS.
00140/04   *ANALYSIS                 PL/1 MAIN PGM   OC             *ANALYSIS(0,.999)                                               
                                                                                    UM   MTA                                        
00140/05   *ANALYSIS                 EXAMPLE STP2    SA  G  STP2    MTA:KIPSSTP2(1,9999)                                            
            D3T1    391  ANALYSIS.EXAMPLE_STP2.SA.3         1 LINE     80   40 PAGE UM   MTA                 JULY 31, 1973  00:23.40
0          EXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS.  CALLS THE HISTOGRAM SUBROUTINE (140/7).
           COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC.
0          Referenced by comments of: 140/7 
00140/06   *ANALYSIS                 EXAMPLE STP2    OC  G          MTA:KIPSSTP2(10000)                                             
            D3T1    392  ANALYSIS.EXAMPLE_STP2.OC.4         1 LINE     80   25 PAGE UM   MTA                 JULY 31, 1973  00:23.52
00140/07   *ANALYSIS                 HISTOGRAM       SA  G  HIST    *ANALYSIS(-400,-1)                                              
            D3T1    393  ANALYSIS.HISTOGRAM.SA.5            1 LINE     80   11 PAGE UM   MTA                 JULY 31, 1973  00:23.58
0          SUBROUTINE TO PLOT HISTOGRAMS, VAGUELY RELATED TO *ANALYSIS AND BRIEFLY DESCRIBED IN THE *ANALYSIS WRITEUP (140/9).
           CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/5). ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 140/5 
00140/08   *ANALYSIS                 HISTOGRAM       OC  G          *ANALYSIS(-600,-401)                                            
            D3T1    394  ANALYSIS.HISTOGRAM.OC.6            1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  00:24.01
00140/09   *ANALYSIS                 WRITEUP         WF           = (BEING REVISED)                                                 
            D3T1    395  ANALYSIS.WRITEUP.WF.7              1 LINE    128   15 DISK UM   MTA                 MAR. 15, 1973  18:35.48
0          THIS IS COMPUTING CENTER MEMO M294 -- "DATA COLLECTION FACILITY"
0          Referenced by comments of: 140/2, 140/7 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00141/01   *GPAKDRAW                                 S            # (NO SOURCE AVAILABLE)                                           
                                                                                    UM   PIRKOLA                                    
0          PROGRAM TO DO DRAWING ON A 2250 DISPLAY.  REQUIRES *GPAKLIB (175) AND *GRAPHLIB (231).
           THIS PROGRAM HASN'T BEEN TRIED IN YEARS.
00141/02   *GPAKDRAW                                 OC  O          S0720 'D3T1' FSNAME=GPAKDRAW..OC.2                           396
            D3T1    396  GPAKDRAW..OC.2                     1 LINE     80    2 DISK UM   PIRKOLA             JAN. 22, 1973  22:09.16
00143/01    REWIND# SUBR                             SA  G  REW#    W045:PF.REWIND#                                                 
            D3T1    397  REWIND#_SUBR..SA.1                 1 LINE     80    3 PAGE UM   PIRKOLA             JULY 31, 1973  00:24.31
0          INTERNAL SUBROUTINE TO REWIND THINGS. CALLED BY REWIND (120) AND FORTRAN LIBRARY.
           LOADED INTO SHARED VM BY SEG 2 LOADER AT IPL.
           COPIES COPY:FCBEQU (482/27) AND COPY:FDUBDSECT (623).
00143/02    REWIND# SUBR                             OC  G          SEG2:REWIND#&CFE                                                
            D3T1    398  REWIND#_SUBR..OC.2                 1 LINE     80    2 PAGE UM   PIRKOLA             JULY 31, 1973  00:24.34
0          CONTAINS OBJECT FOR REWIND#, GRGJUL SUBRS (518), AND JULGRG SUBRS (522).
00144/01   *ASA                                      SA  O  ASA0    LBT:ASA(1,999)                                                  
            D3T1    399  ASA..SA.1                          1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  00:25.26
0          PRINTS OUTPUT WITH ASA STANDARD CARRIAGE CONTROL.
00144/02   *ASA                                      OC  O          *ASA                                                            
            D3T1    400  ASA..OC.2                          1 LINE     80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:25.26
00145/01   *TASKS                                    SA  G  TSKS    WSG:MTASKS(1,999)                                               
            D3.2T1  129  TASKS..SA.01                       1 LINE     80    5 PAGE UM   WSG                 MAR. 21, 1975  01:13:28
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/02   *TASKS                                    OC  G          *TASKS                                                          
            D3.2T1  130  TASKS..OC.02                       1 LINE     80    1 PAGE UM   WSG                 MAR. 21, 1975  01:13:30
00146      *OLDED                                    SA           # (OBSOLETE)                                                      
            D2T1    325                                                             UM                                              
00147/01   *FILESCAN                                 SA  G  FSCN    S0027 DISTRB FSNAME=FILESCAN                                    
            D3T1    403  FILESCAN..SA.1                     1 LINE     80    8 PAGE UM   ENGLE               JAN. 05, 1973  12:33.28
0          MTS FILE SCANNING PROGRAM.
00147/02   *FILESCAN                                 OE  G          S0027 DISTRB FSNAME=FSCN                                        
            D3T1    404  FILESCAN..O.2                      1 LINE     80    3 PAGE UM   ENGLE               JULY 31, 1973  00:28.03
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00148      *WATLIB                                   SF             *WATLIB                                                         
            D3T1    405  WATLIB..SF.                        1 LINE     73    3 PAGE UM   SHERRY              JULY 31, 1973  00:28.04
0          THIS IS THE SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES WHICH *WATFIV ASSUMES AS THE DEFAULT LIBRARY
           WHEN ATTEMPTING TO RESOLVE UNDEFINED SYMBOLS IN WATFIV PROGRAMS.
00150      *T90T360                                               # (SEE COMP 138)                                                  
                                                                                    UM                                              
00151      *CONVSNOBOL                               SS  G          *CONVSNOBOL                                                     
            D3T1    406  CONVSNOBOL..SS.                    1 LINE     69    1 PAGE UM   DE JONG             JULY 31, 1973  00:28.06
0          $SOURCE FILE WHICH RUNS A SNOBOL PROGRAM TO ENHANCE CONVERSATIONAL USE OF SNOBOL.
00152      *COPIES                                                # (OBSOLETE)                                                      
                                                                                    UM                                              
00153      *MADTOPL1                                 SS     MPL1    *MADTOPL1                                                       
            D3T1    407  MADTOPL1..SS.                      1 LINE     80   20 PAGE UM   GALLER              JULY 31, 1973  00:28.08
0          CONVERT MAD 7090 TO PL/I
00154/01   *LAS                                      C              *LAS                                                            
            D3T1    408  LAS..C.1                           1 LINE      9    1 PAGE UM   WSG                 JULY 31, 1973  00:28.11
0          COMMAND FILE FOR STARTING MTS TERMINAL LINES.  INVOKED BY ENTERING "MTS *LAS" ON OPERATORS CONSOLE.
           SIGNS ON AND SOURCES TO STRT:LAS (154/2).
0          Referenced by comments of: 413/10, 621/1 
00154/02   *LAS                      STRT:LAS        C              STRT:LAS                                                        
            D3T1    409  LAS.STRT:LAS.C.2                   1 LINE     74    1 PAGE UM   WSG                 JULY 31, 1973  00:28.13
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/01    IPL PROGRAM                              SA  G  IPL0    MTS:IPL.S                                                       
            D3.2T1  131  IPL_PROGRAM..SA.01                 1 LINE     80   13 PAGE UM   MTA                 MAR. 21, 1975  01:13:31
0          PROGRAM TO WRITE A SELF LOADING RECORD ON A DISK.  MUST BE PATCHED WITH THE ADDRESS OF THE
           DISK DRIVE ON WHICH PACK MTS001 HAS BEEN MOUNTED.
           THIS PROGRAM IS LOADED BY THE IPL BOOTSTRAP (157) AFTER "MTS" HAS BEEN LOADED INTO CORE FROM
           CARDS OR TAPE.  THIS PROGRAM THEN WRITES A SELF LOADING RECORD ONTO MTS001 WHICH CAN
           THEN BE IPLED FROM.  THE "MTS" DECK REFERRED TO IS THE ENTIRE SYSTEM OBJECT DECK (468).
           THIS PROCESS (LOADING "MTS" FROM CARDS OR TAPE, THEN LOADING 157+156) IS COMMONLY REFERRED
           TO AS "WRITING THE DISK."  THE DECK COMBINATION 157+156+REP CARDS IS REFERRED TO AS THE
           "DISK WRITE DECK."
           COPIES COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:SETPARM (653).
0          Referenced by comments of: 157/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00156/02    IPL PROGRAM              370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
0          THIS OBJECT DECK (ALONG WITH 157 AND SOME REP CARDS) IS LOCATED AT THE END (AFTER
           THE LDT CARD) OF THE RESIDENT SYSTEM DECK.
00156/03    IPL PROGRAM              360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00157/01    IPL BOOTSTRAP                            SA  G  IPLB    W047:ABSLDR(1,999)                                              
            D3.2T1  132  IPL_BOOTSTRAP..SA.01               1 LINE     80    4 PAGE UM   HAMILTON            MAR. 21, 1975  01:13:33
0          ABSOLUTE LOADER FOR THE DISK WRITE PROGRAM (156).  SEE COMMENT FOR COMP 156/1.
           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.
0          Referenced by comments of: 156/1 
00157/02    IPL BOOTSTRAP                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HAMILTON                                   
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.
00159      *CCQUEUE                                               # (SEE COMP 615)                                                  
                                                                                    UM                                              
00160       FRONCOPY                                 S            # OBSOLETE                                                        
            D2T1    387                                                             UM                                              
00162       PSA DSECT                                SA  G          COPY:PSA                                                        
            D3.2T1  133  PSA_DSECT..SA.                     1 LINE     72    6 PAGE UM   MTA                 MAR. 21, 1975  01:13:36
0          DEFINITION OF PREFIXED STORAGE AREA (PSA).
           COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS.
           REQUIRES THAT COPY:GLOBALS (1026/4) BE COPIED FIRST.
0          Referenced by comments of: 45/2, 46/2, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 577/53, 577/55, 588/1, 589/1,
                 611/1 
00163/01    PL1 COMPILER             MACLIB          SM  G  MAC0    S0410 MTSPL1 'PL1LIB' POSN=MACLIB                            1  
            D3T1    414  PL1_COMPILER.MACLIB.SM.1           1 SEQ      80   51 PAGE UM   TIFFANY             JULY 31, 1973  00:31.15
0          PL/I(F) VERSION 5 COMPILER (RELEASE 20.1).
            
           MACLIB IS A MACRO LIBRARY FOR THE SIMULATION OF OS/360 STUFF IN MTS.
00163/02    PL1 COMPILER             SAMEQU          SA  G  SAMQ    S0410 MTSPL1 'PL1LIB' POSN=SAMEQU                            2  
            D3T1    415  PL1_COMPILER.SAMEQU.SA.2           1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  00:31.20
0          COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE
0          Referenced by comments of: 163/3, 163/4, 163/5, 163/6, 163/7, 163/8, 163/9, 163/10, 163/11, 163/14, 233/32 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00163/03    PL1 COMPILER             REPLACE         SA  G  RPLC    S0410 MTSPL1 'PL1LIB' POSN=REPLACE                           3  
            D3T1    416  PL1_COMPILER.REPLACE.SA.3          1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  00:31.21
0          ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE.
           COPIES SAMEQU (163/2).
00163/04    PL1 COMPILER             CKLIO           SA  G  CKL0    S0410 MTSPL1 'PL1LIB' POSN=CKLIO                             4  
            D3T1    417  PL1_COMPILER.CKLIO.SA.4            1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:31.24
0          ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT.  COPIES SAMEQU (163/2).
00163/05    PL1 COMPILER             NONSENSE        SA  G  NONE    S0410 MTSPL1 'PL1LIB' POSN=NONSENSE                          5  
            D3T1    418  PL1_COMPILER.NONSENSE.SA.5         1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  00:31.26
0          ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE.  COPIES SAMEQU (163/2).
00163/06    PL1 COMPILER             FREEDDEF        SA  G  FREE    S0410 MTSPL1 'PL1LIB' POSN=FREEDDEF                          6  
            D3T1    419  PL1_COMPILER.FREEDDEF.SA.6         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:31.28
0          ROUTINE TO FREE ALL DDEF'S.  COPIES SAMEQU (163/2).
00163/07    PL1 COMPILER             FINDTIOT        SA  G  FIND    S0410 MTSPL1 'PL1LIB' POSN=FINDTIOT                          7  
            D3T1    420  PL1_COMPILER.FINDTIOT.SA.7         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:31.31
0          ROUTINE TO FIND A TIOT GIVEN A "DDNAME."  COPIES SAMEQU (163/2).
00163/08    PL1 COMPILER             DDEF            SA  G  DDEF    S0410 MTSPL1 'PL1LIB' POSN=DDEF                              8  
            D3T1    421  PL1_COMPILER.DDEF.SA.8             1 SEQ      80    8 PAGE UM   TIFFANY             JULY 31, 1973  00:31.34
0          ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH.  COPIES SAMEQU (163/2).
00163/09    PL1 COMPILER             OPEN            SA  G  OPEN    S0410 MTSPL1 'PL1LIB' POSN=OPEN                              9  
            D3T1    422  PL1_COMPILER.OPEN.SA.9             1 SEQ      80   17 PAGE UM   TIFFANY             JULY 31, 1973  00:31.37
0          SIMULATE OS/360 OPEN.  COPIES SAMEQU (163/2).
00163/10    PL1 COMPILER             ROUT            SA  G  RUTE    S0410 MTSPL1 'PL1LIB' POSN=DMTROUTE                          10 
            D3T1    423  PL1_COMPILER.ROUT.SA.10            1 SEQ      80   26 PAGE UM   TIFFANY             JULY 31, 1973  00:31.41
0          LIST OF VARIOUS ROUTINES.  COPIES SAMEQU (163/2).
00163/11    PL1 COMPILER             CLOSE           SA  G  CLOS    S0410 MTSPL1 'PL1LIB' POSN=CLOSE                             11 
            D3T1    424  PL1_COMPILER.CLOSE.SA.11           1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  00:31.44
0          SIMULATE OS/360 CLOSE.  COPIES SAMEQU (163/2).
00163/12    PL1 COMPILER             QUIT            SA  G  QUIT    S0410 MTSPL1 'PL1LIB' POSN=QUIT                              12 
            D3T1    425  PL1_COMPILER.QUIT.SA.12            1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:31.46
0          QUIT ONLY IN BATCH
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00163/13    PL1 COMPILER             UPDATE          UI             S0720 'D3T1' FSNAME=PL1_COMPILER.UPDATE.UI.13                426
            D3T1    426  PL1_COMPILER.UPDATE.UI.13          1 LINE     73   17 PAGE UM   TIFFANY             JULY 30, 1973  03:32.05
0          *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL/I COMPILER FROM OS/360 RELEASE 20.1 SOURCE.
00163/14    PL1 COMPILER             TIOT            SA  G  TIOT    S0410 MTSPL1 'PL1LIB' POSN=PL1TIOT                           54 
            D3T1    427  PL1_COMPILER.TIOT.SA.14            1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:32.26
0          YES IT REALLY IS A TIOT.  COPIES SAMEQU (163/2).
00163/15    PL1 COMPILER             ESDLIST         SA  G  ESDL    S0410 MTSPL1 'PL1LIB' POSN=INESD                             55 
            D3T1    428  PL1_COMPILER.ESDLIST.SA.15         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:32.27
0          TABLE OF SOMETHING OR OTHER
00163/16    PL1 COMPILER             *PL1            OE  G          *PL1                                                            
            D3T1    429  PL1_COMPILER.*PL1.OE.16            1 SEQ    4796    7 PAGE UM   TIFFANY             JULY 31, 1973  00:32.28
00163/17    PL1 COMPILER             *PL1DIRECTOR    D              *PL1DIRECTOR                                                    
            D3T1    430  PL1_COMPILER.*PL1DIRECTOR.D.17     1 SEQ    4096    2 PAGE UM   TIFFANY             JULY 31, 1973  00:32.31
00163/18    PL1 COMPILER             *PLI            OL  G          *PLI                                                            
            D3T1    431  PL1_COMPILER.*PLI.OL.18            1 SEQ    7340   18 PAGE UM   TIFFANY             JULY 31, 1973  00:32.33
0          THERE IS A REP CARD IN THIS FILE
00163/19    PL1 COMPILER             *PL1LINKLIB1    OE  G          *PL1LINKLIB1                                                    
            D3T1    432  PL1_COMPILER.*PL1LINKLIB1.OE.19    1 SEQ    7340  231 PAGE UM   TIFFANY             JULY 31, 1973  00:32.36
0          THERE ARE SEVERAL REP CARDS IN THIS FILE
00163/20    PL1 COMPILER             PL/I ADDENDUM   WF             S0720 'D3T1' FSNAME=PL1_COMPILER.PL/I_ADDENDUM.WF.20         433
            D3T1    433  PL1_COMPILER.PL/I_ADDENDUM.WF.20   1 LINE    123    2 DISK UM   TIFFANY             MAR. 15, 1973  18:35.28
0          THIS IS COMPUTING CENTER MEMO M195 -- "ADDENDUM TO PL/I USER'S GUIDE"
00164      *LCS                                      OC  G          *LCS                                                            
            D3T1    434  LCS..OC.                           1 LINE     24    1 PAGE UM   MTA                 JULY 31, 1973  00:33.12
0          CONTAINS THE SINGLE LOADER CARD:
            LCS            LCSYMBOL
00166      *WATERR                                                # (OBSOLETE)                                                      
                                                                                    UM                                              
00168      *DICTUPD                                               # (SEE COMP 138)                                                  
                                                                                    UM                                              
00169      *DICT                                                  # (SEE COMP 138)                                                  
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00170      *LISTVTOC                                 SA           # (OBSOLETE)                                                      
            D2T1    105                                                             UM                                              
00171      *BATCH                                    SA           # (OBSOLETED BY *BATCH*)                                          
            D2T1    327                                                             UM                                              
00172/01   *UMIST                    MACRO LIB       SM     ISTM    S0720 'D3T1' FSNAME=UMIST.MACRO_LIB.SM.1                     435
            D3T1    435  UMIST.MACRO_LIB.SM.1               1 SEQ      80   14 PAGE UM   SALISBURY           JULY 31, 1973  00:35.25
0          172/1 THRU 172/9 REPRESENT THE CURRENT SOURCE FOR *UMIST. IT CONSISTS OF 1 MACRO LIBRARY, 2 COPY SECTIONS, AND
           6 ASSEMBLIES. TO ASSEMBLE UMIST CREATE AND FILL /SYMBOLS AND /PSECT (THE COPY SECTIONS), CREATE THE MACRO LIBRARY,
           AND ASSEMBLE ANY OR ALL OF THE ASSEMBLIES USING BOTH *SYSMAC AND THE SPECIAL MACRO LIBRARY.
           COMPONENT 172/1 IS THE MACRO LIBRARY READY FOR COPYING INTO A FILE.
           UMIST IS THE UM VERSION OF THE TRAC STRING PROCESSING LANGUAGE AND IS UNCHANGED SINCE 2.0.
00172/02   *UMIST                    /SYMBOLS        SA     ISC1    S0720 'D3T1' FSNAME=UMIST./SYMBOLS.SA.2                      436
            D3T1    436  UMIST./SYMBOLS.SA.2                1 SEQ      80    4 PAGE UM   SALISBURY           JULY 31, 1973  00:35.27
0          THIS IS THE "/SYMBOLS" COPY SECTION
00172/03   *UMIST                    /PSECT          SA     ISC2    S0720 'D3T1' FSNAME=UMIST./PSECT.SA.3                        437
            D3T1    437  UMIST./PSECT.SA.3                  1 SEQ      80    7 PAGE UM   SALISBURY           JULY 31, 1973  00:35.29
0          THIS IS THE "/PSECT" COPY SECTION
00172/04   *UMIST                    /ENTRY          SA     IST1    S0720 'D3T1' FSNAME=UMIST./ENTRY.SA.4                        438
            D3T1    438  UMIST./ENTRY.SA.4                  1 SEQ      80    7 PAGE UM   SALISBURY           JULY 31, 1973  00:35.31
0          "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH AS POSSIBLE.
00172/05   *UMIST                    /TABLES         SA     IST2    S0720 'D3T1' FSNAME=UMIST./TABLES.SA.5                       439
            D3T1    439  UMIST./TABLES.SA.5                 1 SEQ      80    9 PAGE UM   SALISBURY           JULY 31, 1973  00:35.33
0          MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS.
           CALLED "/TABLES"
00172/06   *UMIST                    /MISC           SA     IST3    S0720 'D3T1' FSNAME=UMIST./MISC.SA.6                         440
            D3T1    440  UMIST./MISC.SA.6                   1 SEQ      80    2 PAGE UM   SALISBURY           JULY 31, 1973  00:35.35
0          "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK,
           INPUT BUFFER, AND FREE STORAGE.
00172/07   *UMIST                    /UTILITIES      SA     IST4    S0720 'D3T1' FSNAME=UMIST./UTILITIES.SA.7                    441
            D3T1    441  UMIST./UTILITIES.SA.7              1 SEQ      80   32 PAGE UM   SALISBURY           JULY 31, 1973  00:35.40
0          "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH SUPPORT PRIMITIVE FUNCTIONS.
           THIS ASSEMBLY USES THE "SWPR" RPQ'ED INSTRUCTION.
00172/08   *UMIST                    /FCNS/1         SA     IST5    S0720 'D3T1' FSNAME=UMIST./FCNS/1.SA.8                       442
            D3T1    442  UMIST./FCNS/1.SA.8                 1 SEQ      80   37 PAGE UM   SALISBURY           JULY 31, 1973  00:35.46
0          "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00172/09   *UMIST                    /FCNS/2         SA     IST6    S0720 'D3T1' FSNAME=UMIST./FCNS/2.SA.9                       443
            D3T1    443  UMIST./FCNS/2.SA.9                 1 SEQ      80   30 PAGE UM   SALISBURY           JULY 31, 1973  00:35.51
0          "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS.
00172/10   *UMIST                    TEST DECK       D              S0720 'D3T1' FSNAME=UMIST.TEST_DECK.D.10                     444
            D3T1    444  UMIST.TEST_DECK.D.10               1 SEQ      80    3 PAGE UM   SALISBURY           JULY 31, 1973  00:35.54
0          "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF.
00172/11   *UMIST                    OBJECT          OC             *UMIST                                                          
            D3T1    445  UMIST.OBJECT.O.11                  1 LINE     80   16 PAGE UM   SALISBURY           JULY 31, 1973  00:35.55
00173       PRINTSAVE                                             # (SEE COMP 502)                                                  
                                                                                    UM                                              
00175      *GPAKLIB                                  OL             S0720 'D3T1' FSNAME=GPAKLIB..OL.                             446
            D3T1    446  GPAKLIB..OL.                       1 SEQ    3888   40 DISK UM   PIRKOLA             JAN. 22, 1973  18:22.11
0          GRAPHIC LIBRARY FROM OS CONVERTED FOR MTS. REQUIRES *GRAPHLIB (231). THIS IS AN ANCIENT VERSION
           AND DOES NOT CORRESPOND TO ANYTHING CURRENTLY IN OS.
           SOURCE IS NOT AVAILABLE.
            
           THERE ARE MANY (!!) REP CARDS IN THIS.
0          Referenced by comments of: 141/1, 179/1 
00178/01   *PIL                                      SA  S  PIL0    S0720 'D3T1' FSNAME=PIL..SA.1                                447
            D3T1    447  PIL..SA.1                          1 SEQ      80  215 PAGE UM   TIFFANY             JULY 31, 1973  00:38.27
0          SOURCE FOR *PIL (PITTSBURGH INTERPRETIVE LANGUAGE).  UNCHANGED FROM DIST 2.
           AT UM, *PIL WILL BE REPLACED BY *PIL/2 (566) LATER IN 1973.
00178/02   *PIL                                      OC  S          *PIL                                                            
            D3T1    448  PIL..OC.2                          1 LINE    100   21 PAGE UM   TIFFANY             JULY 31, 1973  00:38.47
0          CONTAINS REP CARDS IN OBJECT WHICH ARE NOT REFLECTED IN SOURCE.
00179      *GPAKGRID                                 OC  O          S0720 'D3T1' FSNAME=GPAKGRID..OC.                            449
            D3T1    449  GPAKGRID..OC.                      1 LINE     80    7 DISK UM   PIRKOLA             JAN. 22, 1973  22:06.14
0          PROGRAM TO PLOT ON A 2250 DISPLAY.  REQUIRES *GPAKLIB (175) AND *GRAPHLIB (231).
           NO SOURCE AVAILABLE.
00180       SCANDASD                                 SA           # OBSOLETE                                                        
            D2T1    117                                                             UM                                              
00182/01   *SNOBOL4                  S4              SA  G          S0099 S4V3 'SNOBOL4 VERSION 3' POSN=MAIN1                    3  
            D3T1    450  SNOBOL4.S4.SA.1                    1 SEQ      80  138 PAGE UM   DE JONG             JULY 31, 1973  00:40.21
0          BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4.
0          Referenced by comments of: 182/4 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00182/02   *SNOBOL4                  SUBR            SA  G          S0099 S4V3 'SNOBOL4 VERSION 3' POSN=SUBR                     5  
            D3T1    451  SNOBOL4.SUBR.SA.2                  1 SEQ      80   46 PAGE UM   DE JONG             JULY 31, 1973  00:41.01
0          BELL LABS SOURCE FOR SUBROUTINES.
00182/03   *SNOBOL4                  MACROS          SA  G          S0099 S4V3 'SNOBOL4 VERSION 3' POSN=SNOMAC                   6  
            D3T1    452  SNOBOL4.MACROS.SA.3                1 SEQ      80   41 PAGE UM   DE JONG             JULY 31, 1973  00:44.08
0          BELL LABS SOURCE FOR MACROS.
00182/04   *SNOBOL4                  UPDATE          UU  G          S0101 'SNOBOL4 SCRATCH' FMT=FB(3200,80)                      1  
            D3T1    453  SNOBOL4.UPDATE.UU.4                1 SEQ      80   35 PAGE UM   DE JONG             JULY 31, 1973  00:45.31
0          *UPDATE DECK TO MODIFIY BELL LABS SOURCE (182/1) TO BRING IT UP TO VERSION 3.6 SNOBOL 4 AND TO ADD
           THE CHANGES NECESSARY TO RUN IT IN MTS.
00182/05   *SNOBOL4                  OBJECT          OE  G          *SNOBOL4                                                        
            D3T1    454  SNOBOL4.OBJECT.O.5                 1 SEQ   32767   27 PAGE UM   DE JONG             JULY 31, 1973  00:45.35
00182/06   *SNOBOL4                  MACLEAN         SP  G          S0720 'D3T1' FSNAME=SNOBOL4.MACLEAN.SP.6                     455
            D3T1    455  SNOBOL4.MACLEAN.SP.6               1 SEQ      80    1 PAGE UM   DE JONG             JULY 31, 1973  00:47.21
0          SOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSEMBLY.
           UNCHANGED SINCE DIST 2.2.
00182/07   *SNOBOL4                  MACLEAN         OC  G          W086:MACLEAN                                                    
            D3T1    456  SNOBOL4.MACLEAN.OC.7               1 SEQ      80    2 PAGE UM   DE JONG             JULY 31, 1973  00:47.23
0          REQUIRES *PL1LIB.
00182/08   *SNOBOL4                  WRITEUP         WF             S0720 'D3T1' FSNAME=SNOBOL4.WRITEUP.WF.8                     457
            D3T1    457  SNOBOL4.WRITEUP.WF.8               1 LINE    113    1 DISK UM   DE JONG             MAR. 15, 1973  18:04.35
0          THIS IS COMPUTING CENTER MEMO M179 -- "*SNOBOL4 AND *SNOBOL4B"
00183      *FMAINT                                                # (SEE COMP 138)                                                  
                                                                                    UM                                              
00185      *PRESCAN                                               # (SEE COMP 138)                                                  
                                                                                    UM                                              
00186      *BLDLIN                                                # (SEE COMP 138)                                                  
                                                                                    UM                                              
00187      *POSTPR                                                # (SEE COMP 138)                                                  
                                                                                    UM                                              
00188      *PLAOUT                                                # (SEE COMP 138)                                                  
                                                                                    UM                                              
00191      *TRANSNOBOL                               SS  G          S0720 'D3T1' FSNAME=TRANSNOBOL..SS.                          458
            D3T1    458  TRANSNOBOL..SS.                    1 SEQ      80    7 PAGE UM   DE JONG             JULY 31, 1973  00:48.59
0          CONVERT SNOBOL3 TO SNOBOL4. UNCHANGED SINCE DIST 1.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00192      *DCS                                      C            # (NOT DISTRIBUTED)                                               
                                                                                    UM                                              
00193/01   *OSMAC                                    SM             *OSMAC                                                          
            D3T2      1  OSMAC..SM.1                        1 LINE     72  129 PAGE UM   YOUNG               JULY 31, 1973  20:57.35
0          MACRO LIBRARY FOR OS/360 RELEASE 21.0
00193/02   *OSMAC                    BUILD PROGRAM   SA     MACB    S0652 SOURCE POSN=MACBLD                                     1  
            D3T2      2  OSMAC.BUILD_PROGRAM.SA.2           1 SEQ      80   11 PAGE UM   YOUNG               JULY 31, 1973  20:59.15
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/03   *OSMAC                    BUILD PROGRAM   OC             W116:BUILDMAC                                                   
            D3T2      3  OSMAC.BUILD_PROGRAM.O.3            1 LINE     80    3 PAGE UM   YOUNG               JULY 31, 1973  20:59.22
00195      *EDHELP                                   OC           # (OBSOLETE)                                                      
                                                                                    UM                                              
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      *SMDS                                     M   G          *SMDS                                                           
            D3.2T1  134  SMDS..M.                           1 LINE    118    3 PAGE UM   MTA                 MAR. 21, 1975  01:13:38
0          MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET).  USED IN CONJUNCTION WITH FMSG MACRO IN MTS.
00198/01    GUINFO/CUINFO            D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=INFO                  4  
            D3T2      7  GUINFO/CUINFO..SA.1                1 SEQ      80    9 PAGE UM   DWB                 JULY 31, 1973  21:01.35
0          SUBROUTINES TO ALLOW USERS TO ACCESS (OR CHANGE) CERTAIN INFORMATION IN THE MTS DSECT.
           COPIES COPY:MTS.DSECT (346), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:LLMPSEQU (087), 
           AND COPY:GLOBALS (1026/4).
           NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 198/2, 344/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00198/02    GUINFO/CUINFO            UPDATE          UU  G          MTS:INFOUPD                                                     
            D3.2T1  135  GUINFO/CUINFO.UPDATE.UU.02         1 LINE     61    1 PAGE UM   DWB                 MAR. 21, 1975  01:13:40
0          UPDATE TO D3 MASTER (198/1) TO PRODUCE CURRENT SOURCE.
           UPDATE DECK USES %POSN *IN* INFO.
00198/03    GUINFO/CUINFO                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00200/01   *SDARTN                                   SA     SDA0    W032:SDASOU092970                                               
            D3T2      8  SDARTN..SA.1                       1 LINE     80   94 PAGE UM   EMERY               JULY 31, 1973  21:01.58
0          DEVICE SUPPORT ROUTINES FOR RJE FROM A REMOTE COMPUTER OR 2780 THROUGH A 2701
           OR 2703 SDA TYPE II.
           THIS IS MTS DIRECT RJE (NOT HASP), I.E. IT IS NOT SPOOLED.
           HAS NOT BEEN USED AT UM FOR MANY YEARS, ALTHOUGH SHOULD STILL WORK.
           FORMAT OF DEVICE DESCRIPTION RECORD AVAILABLE ON REQUEST (INCLUDED WITH DIST 2.0).
           REQUIRES *SYSMAC.
00200/02   *SDARTN                                   OC             *SDARTN                                                         
            D3T2      9  SDARTN..O.2                        1 LINE     80    7 PAGE UM   EMERY               JULY 31, 1973  21:02.27
00201/01    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                14 
            D3T2     10  GPSS/360.OS_SOURCE.SA.1            1 SEQ      80   20 PAGE UM   FLANIGAN            JULY 31, 1973  21:03.57
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.
00201/02    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                15 
            D3T2     11  GPSS/360.OS_SOURCE.SA.2            1 SEQ      80   11 PAGE UM   FLANIGAN            JULY 31, 1973  21:04.01
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00201/03    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                16 
            D3T2     12  GPSS/360.OS_SOURCE.SA.3            1 SEQ      80    8 PAGE UM   FLANIGAN            JULY 31, 1973  21:04.03
00201/04    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                17 
            D3T2     13  GPSS/360.OS_SOURCE.SA.4            1 SEQ      80   62 PAGE UM   FLANIGAN            JULY 31, 1973  21:04.11
00201/05    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                18 
            D3T2     14  GPSS/360.OS_SOURCE.SA.5            1 SEQ      80  102 PAGE UM   FLANIGAN            JULY 31, 1973  21:04.28
00201/06    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                19 
            D3T2     15  GPSS/360.OS_SOURCE.SA.6            1 SEQ      80   22 PAGE UM   FLANIGAN            JULY 31, 1973  21:04.44
00201/07    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                20 
            D3T2     16  GPSS/360.OS_SOURCE.SA.7            1 SEQ      80   88 PAGE UM   FLANIGAN            JULY 31, 1973  21:04.55
00201/08    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                21 
            D3T2     17  GPSS/360.OS_SOURCE.SA.8            1 SEQ      80  112 PAGE UM   FLANIGAN            JULY 31, 1973  21:05.20
00201/09    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                22 
            D3T2     18  GPSS/360.OS_SOURCE.SA.9            1 SEQ      80  152 PAGE UM   FLANIGAN            JULY 31, 1973  21:05.46
00201/10    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                23 
            D3T2     19  GPSS/360.OS_SOURCE.SA.10           1 SEQ      80  109 PAGE UM   FLANIGAN            JULY 31, 1973  21:06.10
00201/11    GPSS/360                 OS SOURCE       SA  G          S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80)                24 
            D3T2     20  GPSS/360.OS_SOURCE.SA.11           1 SEQ      80   57 PAGE UM   FLANIGAN            JULY 31, 1973  21:06.25
00201/12    GPSS/360                 GPSSUPDATE      UU  G          S0289 S289 'GPSS/360' FSNAME=GPSSUPDATE                         
            D3.1T1  183  GPSS/360.GPSSUPDATE.UU.12          1 LINE     80    7 PAGE UM   FLANIGAN            FEB. 24, 1974  19:32.29
0          UPDATE DECK TO BE APPLIED TO 11 OS SOURCE FILES.  A TAPE-TO-TAPE UPDATE
           VIA *UPDATE USING *IBM* TO *MTS* IS ASSUMED.
00201/13    GPSS/360                 GPSS.OS.O       OE  G          S0289 S289 'GPSS/360' FSNAME=GPSS.OS.O                          
            D3.1T1  184  GPSS/360.GPSS.OS.O.OE.13           1 LINE    255   36 PAGE UM   FLANIGAN            JAN. 16, 1974  16:26.50
0          OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES.
00201/14    GPSS/360                 GPSSMAC         SA  G  GMAC    S0289 S289 'GPSS/360' FSNAME=GPSSMAC                            
            D3T2     23  GPSS/360.GPSSMAC.SA.14             1 LINE     80    7 PAGE UM   FLANIGAN            DEC. 13, 1972  20:57.52
0          MACRO LIBRARY NEEDED FOR ALL ASSEMBLIES.
00201/15    GPSS/360                 GPSS.S          SA  G  GPSS    S0289 S289 'GPSS/360' FSNAME=GPSS.S                             
            D3T2     24  GPSS/360.GPSS.S.SA.15              1 LINE     80    6 PAGE UM   FLANIGAN            DEC. 13, 1972  20:58.07
0          SOURCE FOR MTS DRIVER PROGRAM.
00201/16    GPSS/360                 GPSSPKG.S       SA  G  GPKG    S0289 S289 'GPSS/360' FSNAME=GPSSPKG.S                          
            D3T2     25  GPSS/360.GPSSPKG.S.SA.16           1 LINE     80    7 PAGE UM   FLANIGAN            DEC. 13, 1972  20:58.45
0          SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00201/17    GPSS/360                 HOOKSECT.S      SA  G  GHOK    S0289 S289 'GPSS/360' FSNAME=HOOKSECT.S                         
            D3.1T1  185  GPSS/360.HOOKSECT.S.SA.17          1 LINE     80   15 PAGE UM   FLANIGAN            JAN. 16, 1974  16:26.40
0          SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE.
00201/18    GPSS/360                 JUNK.S          SA  G  GJNK    S0289 S289 'GPSS/360' FSNAME=JUNK.S                             
            D3T2     27  GPSS/360.JUNK.S.SA.18              1 LINE     80    3 PAGE UM   FLANIGAN            DEC. 13, 1972  20:59.09
0          SOURCE FOR SEVERAL SUBROUTINES.
00201/19    GPSS/360                 GPSS.MTS.O      OE  G          S0289 S289 'GPSS/360' FSNAME=GPSS.MTS.O                         
            D3.1T1  186  GPSS/360.GPSS.MTS.O.OE.19          1 LINE    255    5 PAGE UM   FLANIGAN            JAN. 16, 1974  16:26.47
0          OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S.
00201/20    GPSS/360                 *GPSS           OL  G          *GPSS                                                           
            D3.1T1  187  GPSS/360.*GPSS.OL.20               1 SEQ   32767   34 PAGE UM   FLANIGAN            MAR. 06, 1974  03:34.15
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/21    GPSS/360                 *GPSSLIB        SA  G  GHLP    S0289 S289 'GPSS/360' FSNAME=HELPLIB.S                          
            D3T2     30  GPSS/360.*GPSSLIB.SA.21            1 LINE     80    8 PAGE UM   FLANIGAN            DEC. 13, 1972  20:59.21
0          SOURCE FOR SUBROUTINES WHICH ALLOW THE MANIPULATION OF GPSS DATA FROM FORTRAN SUBROUTINES.
00201/22    GPSS/360                 *GPSSLIB        OC  G          *GPSSLIB                                                        
            D3T2     31  GPSS/360.*GPSSLIB.O.22             1 SEQ      80    1 PAGE UM   FLANIGAN            JULY 31, 1973  21:11.46
00201/23    GPSS/360                 *GPSSERR        M   G          *GPSSERR                                                        
            D3.1T1  188  GPSS/360.*GPSSERR.M.23             1 LINE     73    9 PAGE UM   FLANIGAN            MAR. 06, 1974  03:34.18
0          ERROR MESSAGE FILE.
00201/24    GPSS/360                 TESTPROG        S   G  TEST    S0289 S289 'GPSS/360' FSNAME=TESTPROG                           
            D3T2     33  GPSS/360.TESTPROG.S.24             1 LINE     80    1 PAGE UM   FLANIGAN            DEC. 13, 1972  20:59.42
0          SOURCE FOR TEST PROGRAM.
00201/25    GPSS/360                 TESTOUTPUT      D   G          S0289 S289 'GPSS/360' FSNAME=TESTOUTPUT                         
            D3.1T1  189  GPSS/360.TESTOUTPUT.D.25           1 SEQ     129    1 DISK UM   FLANIGAN            MAY  18, 1973  17:17.38
0          OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM.
00201/26    GPSS/360                 NOTES           WF             W098:HEN                                                        
            D3.1T1  190  GPSS/360.D3.1_NOTES.WF.26          1 LINE    107    1 PAGE UM   FLANIGAN            MAR. 06, 1974  03:34.46
0          WRITEUP DESCRIBING GPSS/360.
00203      *TNLBUILD                                              # (SEE COMP 110)                                                  
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00204/01    FORTRANG                 IEYFORT         SA  G  IEYF    S0579 SAVE 'JWS-SAVE' FSNAME=SOURCE.FORT                        
            D3T2     35  FORTRANG.IEYFORT.SA.1              1 LINE     80   20 PAGE UM   JWS                 JULY 31, 1973  21:12.20
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.
00204/02    FORTRANG                 *FORTRANG       OE  G          *FORTRANG                                                       
            D3T2     36  FORTRANG.*FORTRANG.O.2             1 SEQ   18732   17 PAGE UM   JWS                 JULY 31, 1973  21:12.25
00204/03    FORTRANG                 IEYFORT W/ SYM  SA  G  IEYF    S0579 SAVE 'JWS-SAVE' FSNAME=SOURCE.FORTD                       
            D3T2     37  FORTRANG.IEYFORT_W/_SYM.SA.3       1 LINE     80   20 PAGE UM   JWS                 JULY 31, 1973  21:12.28
0          THIS VERSION OF THE FORTRAN G CONTROL MODULE CALLS IEYSYM AT THE APPROPRIATE TIMES TO PRODUCE
           SYM RECORDS IN THE OBJECT DECK.
00204/04    FORTRANG                 IEYSYM          SA  G  IEYS    S0579 SAVE 'JWS-SAVE' FSNAME=SOURCE.SDS                         
            D3T2     38  FORTRANG.IEYSYM.SA.4               1 LINE     80   24 PAGE UM   JWS                 JULY 31, 1973  21:12.33
0          THIS MODULE PRODUCES "SYM" RECORDS FOR THE FORTRAN G COMPILER.
00204/05    FORTRANG                 SYM CARD VERS   OE  G          *FTNGTEST                                                       
            D3T2     39  FORTRANG.SYM_CARD_VERS.O.5         1 SEQ   32767   17 PAGE UM   JWS                 JULY 31, 1973  21:12.39
00204/06    FORTRANG                 WRITEUP         WF             S0721 'D3T2' FSNAME=FORTRANG.WRITEUP.WF.6                     40
            D3T2     40  FORTRANG.WRITEUP.WF.6              1 LINE    113    8 DISK UM   JWS                 MAR. 15, 1973  17:26.11
0          THIS IS COMPUTING CENTER MEMO M137 -- "*FORTRANG"
00207      *GPSSGRAPH                                             # (OBSOLETE)                                                      
                                                                                    UM                                              
00208      *SWAT                                                  # (OBSOLETE, SEE COMP 051)                                        
                                                                                    UM                                              
00210/01   *LISP                                     SA  G          C1945 LISP 'WR2' POSN=LISP.SOURCE.ASMG                          
                                                                                    UM   HAMILTON                                   
0          NEW LISP COMPILER WRITTEN BY UM MENTAL HEALTH RESEARCH INSTITUTE.
           THE OLD OS/360 LISP IS NOW USED ONLY IN CONJUNCTION WITH REDUCE2 (556).
00210/02   *LISP                                     OE  G          *LISP                                                           
                                                                                    UM   HAMILTON                                   
00210/03   *LISP                     TRANSIT         SA  G          C1945 LISP 'WR2' POSN=TRANSIT.ASMG.LISP                         
                                                                                    UM   HAMILTON                                   
0          THIS COMPONENT CONTAINS THE "HYPOTHETICAL WORLDS" FUNCTIONS, RPLACA2, RPLACD2,
           SETA2, NEWWORLD, REALWORLD, GETWORLD.
00210/04   *LISP                     EDITOR          S   G          C1945 LISP 'WR2' POSN=EDIT.SOURCE.LISP                          
                                                                                    UM   HAMILTON                                   
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.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00210/05   *LISP                     BREAK           S   G          C1945 LISP 'WR2' POSN=BREAK.SOURCE.LISP                         
                                                                                    UM   HAMILTON                                   
0          THIS COMPONENT CONTAINS THE LISP SOURCE FOR A LISP DEBUGGING PACKAGE.
           IT WAS WRITTEN AT UBC AND MAY BE DOCUMENTED IN MTS VOLUME 8.
00210/06   *LISP                     COMPILER        S   O        = ?????                                                           
                                                                                    UM   HAMILTON                                   
0          THIS IS THE LISP SOURCE FOR THE LISP COMPILER.
00210/07   *LISP                     *LISPLIB        O   G          *LISPLIB                                                        
                                                                                    UM   HAMILTON                                   
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/01   *FILESNIFF                                SA  G  FSNF    W045:NEWFILESNIF                                                
            D3T2     49  FILESNIFF..SA.1                    1 LINE     80    6 PAGE UM   PIRKOLA             JULY 31, 1973  21:17.52
0          PROGRAM TO PRINT INFO ABOUT LOCATION, SIZE, NUMBER OF EXTENTS, TYPE, AND PERMIT STATUS OF FILES.
           CALLS GFINFO SUBROUTINE AND COPIES *GFINFODSECT (593).
           MAINTAINED FOR HISTORICAL REANSONS ONLY. USE $FILESTATUS INSTEAD.
00212/02   *FILESNIFF                                OE  G          *FILESNIFF                                                      
            D3T2     50  FILESNIFF..O.2                     1 LINE    255    1 PAGE UM   PIRKOLA             JULY 31, 1973  21:17.59
00214      *CCPOST                                                # (SEE COMP 615)                                                  
                                                                                    UM                                              
00217      *LIBTOFASTLIB                             S            # (OBSOLETE)                                                      
            D2T1    289                                                             UM                                              
00220      *GOMAD                                    S            # (OBSOLETE)                                                      
            D2T1    293                                                             UM                                              
00221      **TP                                      S            # (OBSOLETE)                                                      
            D2T1    140                                                             UM                                              
00222      *CCP                                                   # (SEE COMP 615)                                                  
                                                                                    UM                                              
00223/01    SIOERR SUBR                              SA  G  SERR    MTA:SIOERR(1,999)                                               
            D3T2     51  SIOERR_SUBR..SA.1                  1 LINE     80    1 PAGE UM   MTA                 JULY 31, 1973  21:18.00
0          FORTRAN INTERFACE TO SETIOERR.
00223/02    SIOERR SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00225/01   *SYSMAC                                   SM  G  SYSM    *SYSMAC                                                         
            D3.2T1  136  SYSMAC..SM.01                      1 LINE     80   68 PAGE UM   MTA                 MAR. 21, 1975  01:13:42
0          MTS SYSTEM MACRO LIBRARY FOR GENERAL USE.
           NOTE:  SOME MACROS (E.G. DFAD ET AL) REFERENCE &S370.  ALL OTHERS WILL WORK
                  ON EITHER A 360 OR 370.
00225/02   *SYSMAC                   TEST PGM        SA  G  TMAC    MTA:TESTIOMAC                                                   
                                                                                    UM   MTA                                        
0          TEST PROGRAM FOR MANY MACROS IN *SYSMAC.
00229/01   *TIDY                                     SF  S  TIDY    S0721 'D3T2' FSNAME=TIDY..SF.1                                53
            D3T2     53  TIDY..SF.1                         1 SEQ      80   60 PAGE UM   LIN                 JULY 31, 1973  21:20.10
0          WILL "TIDY" UP FORTRAN SOURCE FILES.  UNCHANGED SINCE DIST 1.
00229/02   *TIDY                                     OC  S          *TIDY                                                           
            D3T2     54  TIDY..O.2                          1 LINE     80   29 PAGE UM   LIN                 JULY 31, 1973  21:20.16
00231      *GRAPHLIB                                 SA  O  GLIB    S0721 'D3T2' FSNAME=GRAPHLIB..S.                              55
            D3T2     55  GRAPHLIB..S.                       1 SEQ      80  211 PAGE UM   PIRKOLA             JULY 31, 1973  21:21.10
0          SUBROUTINE TO SUPPORT AN EXTENSION OF EXPRESS GRAPHICS ON A 2250 IN MTS. CALLED BY MACROS IN *GRAPHMAC (117).
           THIS IS AN ANCIENT VERSION AND HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
0          Referenced by comments of: 117/1, 141/1, 175/1, 179/1 
00232       FCBEQU                                                # (SEE COMP 482)                                                  
                                                                                    UM                                              
00233/01    PL1 LIBRARY              MACLIB          SM           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/02    PL1 LIBRARY              SAMEQU          SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/03    PL1 LIBRARY              REPLACE         SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/04    PL1 LIBRARY              CKLIO           SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/05    PL1 LIBRARY              NONSENSE        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/06    PL1 LIBRARY              FREEDDEF        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/07    PL1 LIBRARY              FINDTIOT        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00233/08    PL1 LIBRARY              DDEF            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/09    PL1 LIBRARY              OPEN            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/10    PL1 LIBRARY              ROUT            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/11    PL1 LIBRARY              CLOSE           SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/12    PL1 LIBRARY              QUIT            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/13    PL1 LIBRARY              PL1MACLIB       SM  G  PL1M    S0410 MTSPL1 'PL1LIB' POSN=PL1MACLIB                         13 
            D3T2     56  PL1_LIBRARY.PL1MACLIB.SM.13        1 SEQ      80   14 PAGE UM   TIFFANY             JULY 31, 1973  21:23.47
0          MACRO LIBRARY FOR PL/I LIBRARY ROUTINES.
00233/14    PL1 LIBRARY              SNAP            SA  G  SNAP    S0410 MTSPL1 'PL1LIB' POSN=SNAP                              14 
            D3T2     57  PL1_LIBRARY.SNAP.SA.14             1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  21:23.49
0          EACH INSTALLATION MAY WANT TO GENERATE ITS OWN VERSION OF THIS BECAUSE OF FILE NAMES.
00233/15    PL1 LIBRARY              CNTL            SA  G  CNTL    S0410 MTSPL1 'PL1LIB' POSN=CNTL                              15 
            D3T2     58  PL1_LIBRARY.CNTL.SA.15             1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  21:23.51
0          SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND MTS 'CONTROL' SUBROUTINE.
00233/16    PL1 LIBRARY              RAND            SA  G  RAND    W062:RAND(1,999)                                                
            D3T2     59  PL1_LIBRARY.RAND.SA.16             1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:23.53
0          RANDOM NUMBER GENERATOR
00233/17    PL1 LIBRARY              USERID          SA  G  USER    S0410 MTSPL1 'PL1LIB' POSN=USERID                            17 
            D3T2     60  PL1_LIBRARY.USERID.SA.17           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:23.56
0          RUN TIME SUBR
00233/18    PL1 LIBRARY              BATCH           SA  G  BTCH    S0410 MTSPL1 'PL1LIB' POSN=BATCH                             18 
            D3T2     61  PL1_LIBRARY.BATCH.SA.18            1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:23.58
0          RUN TIME SUBROUTINE TO CALL CANREPLY
00233/19    PL1 LIBRARY              ELAPSED         SA  G  ELPS    S0410 MTSPL1 'PL1LIB' POSN=ELAPSED                           19 
            D3T2     62  PL1_LIBRARY.ELAPSED.SA.19          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.00
0          RUN TIME SUBROUTINE
00233/20    PL1 LIBRARY              CPUTIME         SA  G  CPUT    S0410 MTSPL1 'PL1LIB' POSN=CPUTIME                           20 
            D3T2     63  PL1_LIBRARY.CPUTIME.SA.20          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.02
0          RUN TIME SUBROUTINE
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00233/21    PL1 LIBRARY              UN-QSAM         SA  G  ITBA    S0410 MTSPL1 'PL1LIB' POSN=IHEITB                            21 
            D3T2     64  PL1_LIBRARY.UN-QSAM.SA.21          1 SEQ      80   16 PAGE UM   TIFFANY             JULY 31, 1973  21:24.06
0          I/O ROUTINES FOR NON-STANDARD PL/I FILES -- IHEITB
00233/22    PL1 LIBRARY              KEY             SA  G  NKEY    S0410 MTSPL1 'PL1LIB' POSN=NEXTKEY                           22 
            D3T2     65  PL1_LIBRARY.KEY.SA.22              1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  21:24.08
0          NEXTKEY AND LASTKEY
00233/23    PL1 LIBRARY              ATTACH          SA  G  ATCH    S0410 MTSPL1 'PL1LIB' POSN=ATTACH                            23 
            D3T2     66  PL1_LIBRARY.ATTACH.SA.23           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.10
0          PROGRAM TO CALL DDEF AT RUN TIME
00233/24    PL1 LIBRARY              DISPLAY         SA  G  DSPA    S0410 MTSPL1 'PL1LIB' POSN=IHEDSP                            24 
            D3T2     67  PL1_LIBRARY.DISPLAY.SA.24          1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  21:24.12
0          REPLACEMENT FOR AN IBM SUBROUTINE.  OUTPUT ON SERCOM, INPUT FROM GUSER.
00233/25    PL1 LIBRARY              IHEMAIN         SA  G  MAIN    S0410 MTSPL1 'PL1LIB' POSN=IHEMAIN                           25 
            D3T2     68  PL1_LIBRARY.IHEMAIN.SA.25          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.14
0          MAIN PROGRAM IF USER DOES NOT GIVE ONE
00233/26    PL1 LIBRARY              IHEOST          SA  G  OSTA    S0410 MTSPL1 'PL1LIB' POSN=IHEOST                            26 
            D3T2     69  PL1_LIBRARY.IHEOST.SA.26           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.17
0          GIVES TIME AND DATE.
00233/27    PL1 LIBRARY              SIGNOFF         SA  G  SIGN    S0410 MTSPL1 'PL1LIB' POSN=SIGNOFF                           27 
            D3T2     70  PL1_LIBRARY.SIGNOFF.SA.27          1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.19
0          RUN TIME SUBR
00233/28    PL1 LIBRARY              SYSERR          SA  G  SERR    S0410 MTSPL1 'PL1LIB' POSN=SYSERR                            28 
            D3T2     71  PL1_LIBRARY.SYSERR.SA.28           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.21
0          SYSTEM AND ERROR
00233/29    PL1 LIBRARY              IHELTT          SA  G  LTTA    S0410 MTSPL1 'PL1LIB' POSN=IHELTT                            29 
            D3T2     72  PL1_LIBRARY.IHELTT.SA.29           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.24
0          TRANSFER VECTOR TABLE IN *PL1LIB.
00233/30    PL1 LIBRARY              IHELTV          SA  G  LTVA    S0410 MTSPL1 'PL1LIB' POSN=IHELTV                            30 
            D3T2     73  PL1_LIBRARY.IHELTV.SA.30           1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.26
0          TRANSFER VECTOR TABLE IN SHAREDPL1LIB.
00233/31    PL1 LIBRARY              IHESAP          SA  G  SAPA    S0410 MTSPL1 'PL1LIB' POSN=IHESAP                            31 
            D3T2     74  PL1_LIBRARY.IHESAP.SA.31           1 SEQ      80    7 PAGE UM   TIFFANY             JULY 31, 1973  21:24.29
0          PL/I PROGRAM INITIALIZER.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00233/32    PL1 LIBRARY              FINFO           SA  G  FINF    S0410 MTSPL1 'PL1LIB' POSN=FINFO                             32 
            D3T2     75  PL1_LIBRARY.FINFO.SA.32            1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  21:24.31
0          ROUTINE TO GET INFORMATION FOR A PL/I FILE.  COPIES SAMEQU (163/2).
00233/33    PL1 LIBRARY              READ/WRITE      SA  G  READ    S0410 MTSPL1 'PL1LIB' POSN=IHEREAD                           33 
            D3T2     76  PL1_LIBRARY.READ/WRITE.SA.33       1 SEQ      80    5 PAGE UM   TIFFANY             JULY 31, 1973  21:24.33
0          ROUTINES IHEREAD AND IHERITE.
00233/34    PL1 LIBRARY              NOTE/POINT      SA  G  PNTS    S0410 MTSPL1 'PL1LIB' POSN=IHENOTE                           34 
            D3T2     77  PL1_LIBRARY.NOTE/POINT.SA.34       1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  21:24.35
0          SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND THE MTS SUBROUTINES 'NOTE' AND 'POINT'.
00233/35    PL1 LIBRARY              UPDATE          UI  G          S0410 MTSPL1 'PL1LIB' POSN=PL1LIB.UPDATE                     35 
            D3T2     78  PL1_LIBRARY.UPDATE.UI.35           1 SEQ      80    7 PAGE UM   TIFFANY             JULY 31, 1973  21:24.38
0          *IEBUPDAT INPUT TO PRODUCE CURRENT PL1 LIBRARY.
           UM RECEIVED ONLY PART OF THE NEW PL/I LIBRARY FROM IBM.
00233/36    PL1 LIBRARY              18.0 UPDATE     UI             S0410 MTSPL1 'PL1LIB' POSN=OLD.UPDATE                        36 
            D3T2     79  PL1_LIBRARY.18.0_UPDATE.UI.36      1 SEQ      80   12 PAGE UM   TIFFANY             JULY 31, 1973  21:24.41
0          *IEBUPDAT INPUT TO PRODUCE OS RELEASE 18.0 PL1 LIBRARY.  REQUIRES RELEASE 18.0 OS PL1 SOURCE.
00233/37    PL1 LIBRARY              ENDPL1LIB       OC  G          W062:ENDPL1LIB                                               40 
            D3T2     80  PL1_LIBRARY.ENDPL1LIB.OC.37        1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.44
0          CONTAINS 5 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD).
00233/38    PL1 LIBRARY              *PL1LIB         OL  G          *PL1LIB                                                         
            D3T2     81  PL1_LIBRARY.*PL1LIB.O.38           1 SEQ     256    3 PAGE UM   TIFFANY             JULY 31, 1973  21:24.47
0          NON-REENTRANT PART OF RUN-TIME LIBRARY; THE REMAINDER IS IN SHAREDPL1LIB.
00233/39    PL1 LIBRARY              SHAREDPL1LIB    OE  G          SEG2:SHAREDPL1LIB                                               
            D3.2T1  137  PL1_LIBRARY.SHAREDPL1LIB.OE.39     1 SEQ     256   60 PAGE UM   TIFFANY             MAR. 21, 1975  01:13:47
0          REENTRANT PART OF RUN-TIME LIBRARY; LOADED INTO SHARED VM AT IPL BY SEG 2 LOADER.
           CONTAINS IHEPRD WHICH IS SET UP CORRECTLY BY CRELCSPR (506/2).
           >>> NOTE:  CONTAINS SEVERAL REP CARDS INCLUDING CHANGES NECESSARY FOR THE
                      MTS @NOTIFY CHANGE.  INSTALL THIS IF AND ONLY IF THE MTS @NOTIFY
                      CHANGE IS ALSO INSTALLED.
00233/40    PL1 LIBRARY              *LINEPL1LIB     O            # (OBSOLETE)                                                      
                                                                                    UM                                              
00233/41    PL1 LIBRARY              *PL1LINKLIB     O            # (OBSOLETE)                                                      
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00234/01    8ASR                     MACLIB          SM  G  MAC8    S0676 PDP-8 FSNAME=8ASRMAC                                   4  
            D3T2     83  8ASR.MACLIB.SM.1                   1 LINE     80   15 PAGE UM   JLD                 JUNE 29, 1973  21:30.56
0          MACRO LIBRARY FOR DEC ASSEMBLERS.
0          Referenced by comments of: 234/4, 234/6 
00234/02    8ASR                     8ASREQU         SA  G  DEF8    S0676 PDP-8 FSNAME=8ASREQU                                   5  
            D3T2     84  8ASR.8ASREQU.SA.2                  1 LINE     80    4 PAGE UM   JLD                 JUNE 29, 1973  21:31.59
0          COPY SECTION.
0          Referenced by comments of: 234/4, 234/6 
00234/03    8ASR                     8ASRST          SA  G  COP8    S0676 PDP-8 FSNAME=8ASRST                                    6  
            D3T2     85  8ASR.8ASRST.SA.3                   1 LINE     80    6 PAGE UM   JLD                 JUNE 29, 1973  21:32.23
0          COPY SECTION.
0          Referenced by comments of: 234/4, 234/6 
00234/04    8ASR                     MAIN PROGRAM    SA  G  ASR8    S0676 PDP-8 FSNAME=8ASRM                                     7  
            D3T2     86  8ASR.MAIN_PROGRAM.SA.4             1 LINE     80   42 PAGE UM   JLD                 JUNE 29, 1973  21:33.03
0          MAIN PROGRAM FOR *8ASR, *9ASR, AND *1ASR.
           COPIES 8ASREQU (234/2) AND 8ASRST (234/3) AND REQUIRES MACLIB (234/1).
00234/05    8ASR                     MAIN PROGRAM    OC  G          S0676 PDP-8 FSNAME=8ASRMOBJ                                  17 
            D3T2     87  8ASR.MAIN_PROGRAM.OC.5             1 LINE     80    4 DISK UM   JLD                 JUNE 29, 1973  21:44.03
00234/06    8ASR                     SUBROUTINES     SA  G  COM8    S0676 PDP-8 FSNAME=8ASRCOM                                   8  
            D3T2     88  8ASR.SUBROUTINES.SA.6              1 LINE     80   16 PAGE UM   JLD                 JUNE 29, 1973  21:34.39
0          SUBROUTINES USED BY 234/4.
           COPIES 8ASREQU (234/2) AND 8ASRST (234/3) AND REQUIRES MACLIB (234/1).
00234/07    8ASR                     SUBROUTINES     OC  G          S0676 PDP-8 FSNAME=8ASRCOMOBJ                                18 
            D3T2     89  8ASR.SUBROUTINES.OC.7              1 LINE     80    2 DISK UM   JLD                 JUNE 29, 1973  21:44.23
00234/08    8ASR                     PDP-8 OP TBLS   SA  G  OPS8    S0676 PDP-8 FSNAME=8OPS                                      9  
            D3T2     90  8ASR.PDP-8_OP_TBLS.SA.8            1 LINE     80    8 PAGE UM   JLD                 JUNE 29, 1973  21:35.56
0          ASSEMBLY TO DEFINE PDP-8 OPERATION CODES FOR *8ASR.
00234/09    8ASR                     PDP-8 OP TBLS   OC  G          S0676 PDP-8 FSNAME=8OPSOBJ                                   19 
            D3T2     91  8ASR.PDP-8_OP_TBLS.OC.9            1 LINE     80    2 DISK UM   JLD                 JUNE 29, 1973  21:44.52
00234/10    8ASR                     *8ASR           OE  G          *8ASR                                                           
            D3T2     92  8ASR.*8ASR.OE.10                   1 SEQ    8095    6 PAGE UM   JLD                 JULY 31, 1973  21:26.46
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/9
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00234/11    8ASR                     PDP-9 OP TBLS   SA  G  OPS9    S0676 PDP-8 FSNAME=9OPS                                      20 
            D3T2     93  8ASR.PDP-9_OP_TBLS.SA.11           1 LINE     80    7 PAGE UM   JLD                 JUNE 29, 1973  21:45.09
0          ASSEMBLY TO DEFINE PDP-9 OPERATION CODES FOR *9ASR.
00234/12    8ASR                     PDP-9 OP TBLS   OC  G          S0676 PDP-8 FSNAME=9OPSOBJ                                   21 
            D3T2     94  8ASR.PDP-9_OP_TBLS.OC.12           1 LINE     80    2 DISK UM   JLD                 JUNE 29, 1973  21:45.44
00234/13    8ASR                     *9ASR           OE  G          *9ASR                                                           
            D3T2     95  8ASR.*9ASR.OE.13                   1 SEQ    8095    6 PAGE UM   JLD                 JULY 31, 1973  21:26.53
0          OBJECT CONSISTING OF 234/5 + 234/7 +234/12
00234/14    8ASR                     PDP-1 OP TBLS   SA  G  OPS1    S0676 PDP-8 FSNAME=1OPS                                      11 
            D3T2     96  8ASR.PDP-1_OP_TBLS.SA.14           1 LINE     80    9 PAGE UM   JLD                 JUNE 29, 1973  21:37.18
0          ASSEMBLY TO DEFINE PDP-1 OPERATION CODES FOR *1ASR.
00234/15    8ASR                     PDP-1 OP TBLS   OC  G          S0676 PDP-8 FSNAME=1OPSOBJ                                   22 
            D3T2     97  8ASR.PDP-1_OP_TBLS.OC.15           1 LINE     80    2 DISK UM   JLD                 JUNE 29, 1973  21:46.03
00234/16    8ASR                     FRIDEN TR TBL   SA     TDEC    S0676 PDP-8 FSNAME=TDEC                                      12 
            D3T2     98  8ASR.FRIDEN_TR_TBL.SA.16           1 LINE     80    5 PAGE UM   JLD                 JUNE 29, 1973  21:37.53
0          ASSEMBLY TO DEFINE TRANSLATE TABLE FOR FRIDEN TERMINAL USED IN CONNECTION WITH *1ASR.
00234/17    8ASR                     FRIDEN TR TBL   OC             S0676 PDP-8 FSNAME=TDECOBJ                                   23 
            D3T2     99  8ASR.FRIDEN_TR_TBL.OC.17           1 LINE     80    2 DISK UM   JLD                 JUNE 29, 1973  21:46.33
00234/18    8ASR                     *1ASR           OE  G          *1ASR                                                           
            D3T2    100  8ASR.*1ASR.OE.18                   1 SEQ    8095    6 PAGE UM   JLD                 JULY 31, 1973  21:27.14
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/15 + 234/17
00234/19    8ASR                     OS INTERFACE    SA     BARF    S0676 PDP-8 FSNAME=BIGOS                                     13 
            D3T2    101  8ASR.OS_INTERFACE.SA.19            1 LINE     80    8 PAGE UM   JLD                 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 WITH *OSMAC OR USE OS/360.
00234/20    8ASR                     LINK EDITOR     SA  G  LNK8    S0676 PDP-8 FSNAME=8LINK                                     37 
            D3T2    102  8ASR.LINK_EDITOR.SA.20             1 LINE     80   75 PAGE UM   JLD                 JUNE 29, 1973  21:41.06
0          PROGRAM TO LINK-EDIT RELOCATIBLE PDP-8 OBJECT TO PRODUCE LOADABLE FILE OR TAPE.
           COPIES PANEL (234/24).
00234/21    8ASR                     LINK EDITOR     OC  G          S0676 PDP-8 FSNAME=8LINKOBJ                                  39 
            D3T2    103  8ASR.LINK_EDITOR.OC.21             1 LINE     80    5 DISK UM   JLD                 JUNE 29, 1973  21:46.59
00234/22    8ASR                     PDP8 SIMULATOR  SA  G  SIM8    S0676 PDP-8 FSNAME=8SIM                                      15 
            D3T2    104  8ASR.PDP8_SIMULATOR.SA.22          1 LINE     80   27 PAGE UM   JLD                 JUNE 29, 1973  21:42.44
0          PDP-8 SIMULATOR SECTION OF *8LINK.  COPIES PANEL (234/24).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00234/23    8ASR                     PDP8 SIMULATOR  OC  G          S0676 PDP-8 FSNAME=8SIMOBJ                                   25 
            D3T2    105  8ASR.PDP8_SIMULATOR.OC.23          1 LINE     80    2 DISK UM   JLD                 JUNE 29, 1973  21:47.24
00234/24    8ASR                     PANEL           SA  G  PANL    S0676 PDP-8 FSNAME=8PANEL                                    16 
            D3T2    106  8ASR.PANEL.SA.24                   1 LINE     80    3 PAGE UM   JLD                 JUNE 29, 1973  21:43.27
0          COPY SECTION.
0          Referenced by comments of: 234/20, 234/22 
00234/25    8ASR                     *8LINK          OE  G          *8LINK                                                          
            D3T2    107  8ASR.*8LINK.OE.25                  1 SEQ    7776    5 PAGE UM   JLD                 JULY 31, 1973  21:28.37
0          LINK EDIT OF 234/21 + 234/23.
00234/26    8ASR                     *8LINK WRITEUP  WF             S0721 'D3T2' FSNAME=8ASR.*8LINK_WRITEUP.WF.26                108
            D3T2    108  8ASR.*8LINK_WRITEUP.WF.26          1 LINE    110    8 DISK UM   JLD                 MAR. 15, 1973  17:02.58
0          THIS IS COMPUTING CENTER MEMO M133 -- "*8LINK"
00234/27    8ASR                     *8ASR WRITEUP   WF             S0721 'D3T2' FSNAME=8ASR.*8ASR_WRITEUP.WF.27                 109
            D3T2    109  8ASR.*8ASR_WRITEUP.WF.27           1 LINE    153   13 DISK UM   JLD                 MAR. 16, 1973  21:15.47
0          THIS IS COMPUTING CENTER MEMO M165 -- "*8ASR, PDP-8 ASSEMBLER"
00234/28    8ASR                     *8LINK/*8ASR    WF             S0721 'D3T2' FSNAME=8ASR.*8LINK/*8ASR.WF.28                  110
            D3T2    110  8ASR.*8LINK/*8ASR.WF.28            1 LINE    108    2 DISK UM   JLD                 MAR. 16, 1973  16:01.45
0          THIS IS COMPUTING CENTER MEMO M220 -- "CHANGES TO *8LINK AND *8ASR"
00234/29    8ASR                     TAPE-CARD UTIL  SA           # (OBSOLETE)                                                      
            D2T2    108                                                             UM                                              
00234/30    8ASR                     8ASR-PAL CNVRT  SA           # (OBSOLETE)                                                      
            D2T2    109                                                             UM                                              
00235      *9ASR                                                  # (SEE COMP 234)                                                  
                                                                                    UM                                              
00238      *2250PLOT                                 SA  O  P225    S0721 'D3T2' FSNAME=2250PLOT..SA.                            111
            D3T2    111  2250PLOT..SA.                      1 SEQ      80    4 PAGE UM   PIRKOLA             JULY 31, 1973  21:29.07
0          PROGRAM TO PLOT ON A 2250 DISPLAY.  HASN'T BEEN TRIED IN YEARS.
           OBJECT NOT DISTRIBUTED.
00239      *8LINK                                                 # (SEE COMP 234)                                                  
                                                                                    UM                                              
00241      *TRACK                                    SA  O  *TRK    S0721 'D3T2' FSNAME=TRACK..SA.                               112
            D3T2    112  TRACK..SA.                         1 SEQ      80    8 PAGE UM   PIRKOLA             JULY 31, 1973  21:29.51
0          EXPERIMENTAL PROGRAM TO DO LIGHT PEN TRACKING ON A MOD 3 2250.
           HASN'T BEEN TRIED IN YEARS, PROBABLY WON'T WORK ANYMORE.
           OBJECT NOT DISTRIBUTED.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00243/01    BINEBCD                                  SA  G  BBCD    MTA:BINEBCD(1,999)                                              
            D3T2    113  BINEBCD..SA.1                      1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  21:29.54
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/02    BINEBCD                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00243/03    BINEBCD                                  SA  G  BBCD    MTA:BINEBCD(2000)                                               
            D3T2    114  BINEBCD..SA.3                      1 LINE     80    4 PAGE UM   MTA                 JULY 31, 1973  21:29.56
0          SAME SUBROUTINE, BUT WITH ERROR CHECKING.  OBJECT NOT DISTRIBUTED.
00244/01   **CT                                      S            # (OBSOLETE)                                                      
            D2T1    138                                                             UM                                              
00244/02   **CT                      TAPE SUBR       S            # (OBSOLETE)                                                      
            D2T1    139                                                             UM                                              
00245       DESTROY <DEADFILES>                                   # (SEE COMP 502)                                                  
                                                                                    UM                                              
00246      *8EDIT                                    SF           # (OBSOLETE)                                                      
                                                                                    UM                                              
00247      *SPEAK                                    D            # (SEE COMP 084)                                                  
                                                                                    UM                                              
00249/01   *COPY                                     SA  O  COPY    W045:NEWFILECOPY                                                
            D3T2    115  COPY..SA.1                         1 LINE     80    4 PAGE UM   PIRKOLA             JULY 31, 1973  21:29.58
0          PROGRAM TO COPY A FILE FROM ANOTHER USER.  IT IS MAINTAINED ONLY FOR
           HISTORICAL REASONS (SOME USER'S NEVER GIVE UP) AND SHOULD NOT BE USED.  TRY $COPY, YOU'LL LIKE IT.
00249/02   *COPY                                     OE  O          *COPY                                                           
            D3T2    116  COPY..O.2                          1 LINE    255    1 PAGE UM   PIRKOLA             JULY 31, 1973  21:30.02
00251/01   *IEBUPDAT                                 SA  O          S0721 'D3T2' FSNAME=IEBUPDAT..SA.1                           117
            D3T2    117  IEBUPDAT..SA.1                     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/02   *IEBUPDAT                                 OC  O          *IEBUPDAT                                                       
            D3T2    118  IEBUPDAT..OC.2                     1 LINE     80    5 PAGE UM   TIFFANY             JULY 31, 1973  21:31.46
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00253       LINE DIRECTORY SORT                      SA           # (OBSOLETED BY COMP 546)                                         
            D2T1    121                                                             UM                                              
00254/01    BSLOAD                   D3.1 MASTER     SA  G  BSLD    S0780 'D3.1T1' FSNAME=BSLOAD..SA.1                           192
            D3.1T1  192  BSLOAD..SA.1                       1 LINE     80   26 PAGE UM   DE JONG             MAR. 06, 1974  03:34.57
0          ABSOLUTE LOADER THAT LOADS UMLOAD (001) TO LOAD THE SYSTEM FROM CARDS OR TAPE.
           ONCE THE SYSTEM HAS BEEN LOADED FROM CARDS OR TAPE, A SELF-LOADING DISK RECORD IS WRITTEN
           ON MTS001 (SEE COMP 156 AND 157).
0          Referenced by comments of: 254/2 
00254/02    BSLOAD                                   UU  G          W009:BSLDNEW.U                                                  
            D3.2T1  138  BSLOAD..UU.02                      1 LINE     71    4 PAGE UM   DE JONG             MAR. 21, 1975  01:13:53
0          UPDATE TO D3.1 MASTER (254/1) TO PRODUCE CURRENT SOURCE.
00254/03    BSLOAD                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DE JONG                                    
00255       UIDFIND                                  S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00256/01    STATISTICS COMBINE       *CMB            C              *CMB                                                            
            D3T2    120  STATISTICS_COMBINE.*CMB.C.1        1 LINE     29    1 PAGE UM   WSG                 JULY 31, 1973  21:31.54
0          COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2).
           INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE.
0          Referenced by comments of: 326/1 
00256/02    STATISTICS COMBINE       COMBINE PGM     SA  G  CMB0    WSG:CMB(1,999)                                                  
            D3T2    121  STATISTICS_COMBINE.COMBINE.SA.2    1 LINE     80    5 PAGE UM   WSG                 JULY 31, 1973  21:31.55
0          PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/2).
           PROGRAM WILL ASK FOR TAPE DRIVE WHERE OUTPUT TAPE IS MOUNTED, THEN ASK FOR INPUT TAPE
           DRIVE NAMES.  COMBINE PROCESS IS ENDED BY ENTERING "DONE" FOR AN INPUT DRIVE NAME.
           THIS PROGRAM PRODUCES TAPES WHICH ARE BLOCKED IN A RATHER NON-STANDARD MANNER.
           HOWEVER, ALL SYSTEM PROGRAMS WHICH READ *STATISTICS DATA, ARE ABLE TO DEBLOCK THESE TAPES.
0          Referenced by comments of: 256/1 
00256/03    STATISTICS COMBINE       COMBINE PGM     OC  G          SYS:CMB                                                         
            D3T2    122  STATISTICS_COMBINE.COMBINE.OC.3    1 LINE     80    2 PAGE UM   WSG                 JULY 31, 1973  21:31.57
00257      *MOMS                                     OC             S0721 'D3T2' FSNAME=MOMS..OC.                                123
            D3T2    123  MOMS..OC.                          1 LINE    255   12 DISK UM   GALLER              FEB. 22, 1973  17:18.51
0          2250 MATHEMATICAL ANALYSIS PROGRAM. 
           SOURCE NOT DISTRIBUTED, BUT WE MIGHT BE ABLE TO FIND IT ON REQUEST.
           OBJECT HAS MANY REP CARDS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00258/01    RECEIPT CARDS            *RCP            C              *RCP                                                            
            D3T2    124  RECEIPT_CARDS.*RCP.C.1             1 LINE     29    1 PAGE UM   EMERY               JULY 31, 1973  21:32.11
0          COMMAND FILE TO RUN BATCH RECEIPT (S-8) CARD GENERATOR PROGRAM (258/3).
           INVOKED BY ENTERING "MTS *RCP" FROM OPERATORS CONSOLE.
00258/02    RECEIPT CARDS            RECEIPT PGM     SA     RECP    W032:RCP                                                        
            D3T2    125  RECEIPT_CARDS.RECEIPT_PGM.SA.2     1 LINE     80    5 PAGE UM   EMERY               JULY 31, 1973  21:32.12
0          PROGRAM TO GENERATE MTS BATCH RECEIPT CARDS.
00258/03    RECEIPT CARDS            RECEIPT PGM     OC             SYS:RCP                                                         
            D3T2    126  RECEIPT_CARDS.RECEIPT_PGM.OC.3     1 LINE     80    2 PAGE UM   EMERY               JULY 31, 1973  21:32.15
0          Referenced by comments of: 258/1 
00259      *LIST                                     SA           # (OBSOLETE)                                                      
            D2T1    332                                                             UM                                              
00260/01    SSP                      *SSP            OC  G          *SSP                                                            
            D3T2    127  SSP.*SSP.O.1                       1 LINE     32    1 PAGE UM   HARDING             JULY 31, 1973  21:32.18
0          IBM'S SCIENTIFIC SUBROUTINE PACKAGE AS DESCRIBED IN FORM H20-0205-3.
           THE CHANGES DESCRIBED IN TNL N20-1944 HAVE NOT YET BEEN MADE.  FOR CONSISTENT DOCUMENTATION, THIS TNL SHOULD
           NOT BE INSTALLED IN THE SSP MANUAL (H20-0205-3).  NO FUTURE CHANGES WILL BE MADE TO THIS COMPONENT.
           SOURCE FOR SSP IS NOT NORMALLY DISTRIBUTED, BUT IS AVAILABLE ON REQUEST.
            
           THE FILE *SSP CONTAINS ONE LINE WHICH IS "$CONTINUE WITH *SSPSTAT+*SSPMATH".
00260/02    SSP                      *SSPSTAT        OL  G          *SSPSTAT                                                        
            D3T2    128  SSP.*SSPSTAT.OL.2                  1 LINE    255   30 PAGE UM   HARDING             JULY 31, 1973  21:32.20
00260/03    SSP                      *SSPMATH        OL  G          *SSPMATH                                                        
            D3T2    129  SSP.*SSPMATH.OL.3                  1 LINE    255  129 PAGE UM   HARDING             JULY 31, 1973  21:32.27
00261/01   *SLIP                     PRIMITIVES      SA  G  PRIM    W081:SLIPPRIM.S                                                 
            D3.1T1  193  SLIP.PRIMITIVES.SA.1               1 LINE     80   11 PAGE UM   GOODRICH            MAR. 06, 1974  03:35.01
0          FORTRAN CALLABLE LIST PROCESSING PACKAGE.
            
           NEW VERSION FOR DISTRIBUTION 3.1.
00261/02   *SLIP                     LIBRARY         SF  G          W081:SLIPLIB.S                                                  
            D3.1T1  194  SLIP.LIBRARY.SF.2                  1 LINE    104   26 PAGE UM   GOODRICH            MAR. 06, 1974  03:35.04
00261/03   *SLIP                     *SLIP           OL  G          *SLIP                                                           
            D3.1T1  195  SLIP.*SLIP.OL.3                    1 SEQ     254   38 PAGE UM   GOODRICH            MAR. 06, 1974  03:35.15
00261/04   *SLIP                     *SLIPDEC        SF  G  SDEC    *SLIPDEC                                                        
            D3.1T1  196  SLIP.*SLIPDEC.SF.4                 1 LINE     80    3 PAGE UM   GOODRICH            MAR. 06, 1974  03:35.20
0          THIS IS A SET OF FORTRAN DECLARATIONS FOR ALL SLIP FUNCTIONS.  FOR USE BY USERS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00261/05   *SLIP                     WRITEUP         WF           = W098:SLIPGUIDE                                                  
            D3T2    132  SLIP.WRITEUP.WF.3                  1 LINE    115    3 DISK UM   GOODRICH            MAR. 15, 1973  18:35.38
0          THIS IS COMPUTING CENTER MEMO M273 -- "SLIP IN MTS ??????????????"
           ****** NOT RELEASED YET ***********
00262      *PLOTSYS                                               # (SEE COMP 615)                                                  
                                                                                    UM                                              
00265      *1                                        SM             *1                                                              
            D3T2    133  1..SM.                             1 LINE     80   30 PAGE UM   SALISBURY           JULY 31, 1973  21:33.27
0          MACRO LIBRARY FOR LIST PROCESSING IN ASSEMBLY LANGUAGE.  SIMILAR TO L6.
00267/01   *DOWNDATE                                 SA  O  DNDT    WATF:DOWNDATE(1,999)                                            
            D3T2    134  DOWNDATE..SA.1                     1 LINE     80    7 PAGE UM   MTA                 JULY 31, 1973  21:33.36
0          THE INVERSE OF *UPDATE. WILL PRODUCE AN UPDATE DECK FROM TWO SOURCE TAPES.
           CALLS SCANPAR SUBROUTINE (267/3).
0          Referenced by comments of: 267/3 
00267/02   *DOWNDATE                                 OC  O          *DOWNDATE                                                       
            D3T2    135  DOWNDATE..OC.2                     1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  21:33.38
00267/03   *DOWNDATE                 SCANPAR         SA     SCNP    WATF:SCANPAR(1,999)                                             
                                                                                    UM   MTA                                        
0          SUBROUTINE CALLED BY DOWNDATE (267/1) AND UNEDIT (561/1) TO SCAN PARAMETERS.
0          Referenced by comments of: 267/1, 561/1 
00267/04   *DOWNDATE                 SCANPAR         OC             WATF:SCANPAR(1000)                                              
                                                                                    UM   MTA                                        
00268       @TESTITP                                 S            # (OBSOLETE)                                                      
            D2T1    421                                                             UM                                              
00270       DISMOUNT SUBR                            SA           # (SEE COMP 102)                                                  
            D2T1    426                                                             UM                                              
00271       MOUNT SUBR                               SA           # (SEE COMP 101)                                                  
            D2T1    427                                                             UM                                              
00273/01    FPC                                      SA  G  FPC0    WSG:FPC                                                         
            D3T2    136  FPC..SA.1                          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/02    FPC                                      OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00274       GLINT                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    395                                                             UM   HARDING                                    
0          GAUSS-LEGENDRE INTEGRATION SUBR.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00275/01    IHCLOGIC SUBR                            SA  G  IHCL    S0721 'D3T2' FSNAME=IHCLOGIC_SUBR..SA.1                      137
            D3T2    137  IHCLOGIC_SUBR..SA.1                1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  21:34.32
0          SUBROUTINES AND, LAND, OR, LOR, XOR, LXOR, COMPL, LCOMPL, SHFTL, AND SHFTR USED FOR LOGICAL 
           OPERATIONS IN FORTRAN.
           UNCHANGED SINCE DIST 1.
00275/02    IHCLOGIC SUBR                            OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   TIFFANY                                    
00278/01    IOH                                      SA  G  IOH0    W016:IOH                                                        
            D3.2T1  139  IOH..SA.01                         1 LINE     80  157 PAGE UM   LEADER              MAR. 21, 1975  01:13:56
0          I/O CONVERSION PACKAGE.  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 400/1, 569/1 
00278/02    IOH                                      OC  G          W016:IOH370                                                     
            D3.2T1  140  IOH..OC.02                         1 LINE     80   16 PAGE UM   LEADER              MAR. 21, 1975  01:14:40
00278/03    IOH                      IOPKG           SA  G          W016:IOHPKG.NEW                                                 
            D3.2T1  141  IOH.IOPKG.SA.03                    1 LINE     80   14 PAGE UM   LEADER              MAR. 21, 1975  01:14:42
00278/04    IOH                      IOPKG           OC  G          W016:IOHPKG.NEWO                                                
            D3.2T1  142  IOH.IOPKG.OC.04                    1 LINE     80    3 PAGE UM   LEADER              MAR. 21, 1975  01:14:44
00278/05    IOH                      TEST PGM        SA  G  IOHT    MTA:TESTIOH.S                                                   
            D3.2T1  143  IOH.TEST_PGM.SA.05                 1 LINE     80   10 PAGE UM   MTA                 MAR. 21, 1975  01:14:46
0          PROGRAM TO TEST IOH.
00278/06    IOH                      TEST PGM        OC  G          MTA:TESTIOH.O                                                   
            D3.2T1  144  IOH.TEST_PGM.OC.06                 1 LINE     80   13 PAGE UM   MTA                 MAR. 21, 1975  01:14:53
00278/07    IOH                      IOHDBLIN        SA           = ?????                                                           
                                                                                    UM   LEADER                                     
00278/08    IOH                      IOHDBLIN        OC           = ETC:IOHDBLIN                                                    
                                                                                    UM   LEADER                                     
00278/09    IOH                      IOHDBLOUT       SA           = ???????                                                         
                                                                                    UM   LEADER                                     
00278/10    IOH                      IOHDBLOUT       OC           = ETC:IOHDBLOUT                                                   
                                                                                    UM   LEADER                                     
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00278/11    IOH                      IOHEVAL         SA           = ?????????                                                       
                                                                                    UM   LEADER                                     
00278/12    IOH                      IOHEVAL         OC           = ETC:IOHEVAL                                                     
                                                                                    UM   LEADER                                     
00279       LINPG SUBR                               S            # (NOT DISTRIBUTED)                                               
            D2T1    396                                                             UM   HARDING                                    
0          SOLVE LINEAR PROGRAMMING PROBLEMS.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00282/01    PRINTER PLOT SUBR                        SA  G          W030:PRPLOT                                                     
            D3.2T1  145  PRINTER_PLOT_SUBR..SA.01           1 LINE     69   21 PAGE UM   LIFT                MAR. 21, 1975  01:14:55
0          PRINTER PLOT HAS BEEN REWRITTEN IN ORDER TO FIX SOME BUGS.
           COPIES "PLOTDS" (282/2).  ASSEMBLE WITH PAR=B.
0          Referenced by comments of: 133/1 
00282/02    PRINTER PLOT SUBR        COPY SECTION    SA  G          W030:PLOTDS                                                     
            D3.2T1  146  PRINTER_PLOT_SUBR.COPY_SEC.SA.02   1 LINE     69    3 PAGE UM   LIFT                MAR. 21, 1975  01:15:06
0          "PLOTDS" COPY SECTION COPIED BY 282/1.
0          Referenced by comments of: 282/1 
00282/03    PRINTER PLOT SUBR                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   LIFT                                       
00283/01    QSAM                                     SA  G  QSAM    MTA:QSAM(1,999)                                                 
            D3T2    140  QSAM..SA.1                         1 LINE     80   19 PAGE UM   MTA                 JULY 31, 1973  21:35.33
0          LIBRARY SUBROUTINES TO PERFORM FIXED BLOCKING (FORMAT FB) ON FILES, TAPES, ETC.
           ENTRY POINTS:  QGETUCB (QGTUCB), QOPEN, QGET, QPUT, QCLOSE, QCNTRL, AND QFREEUCB (QFRUCB).
0          Referenced by comments of: 137/1 
00283/02    QSAM                                     OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00285/01    SKIP                                     SA  G  SKIP    WSG:SKIP(1,999)                                                 
            D3T2    141  SKIP..SA.1                         1 LINE     80    5 PAGE UM   WSG                 JULY 31, 1973  21:35.40
0          SUBR TO SPACE A FILE OR MAG TAPE FORWARD OR BACKWARD BY RECORDS AND/OR FILES.
00285/02    SKIP                                     OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
00286/01    MATH SUBRS               SLE             S            # (NOT DISTRIBUTED)                                               
            D2T1    389                                                             UM   HARDING                                    
0          SIMULTANEOUS LINEAR EQUATIONS LIBRARY SUBR.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00286/02    MATH SUBRS               INV             S            # (NOT DISTRIBUTED)                                               
            D2T1    390                                                             UM   HARDING                                    
0          MATRIX INVERSION SUBR.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00286/03    MATH SUBRS               INV1            S            # (NOT DISTRIBUTED)                                               
            D2T1    391                                                             UM   HARDING                                    
0          MATRIX INVERSION SUBR WHICH ASSUMES PREVIOUS CALL ON LRD (286/4).
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00286/04    MATH SUBRS               LRD             S            # (NOT DISTRIBUTED)                                               
            D2T1    392                                                             UM   HARDING                                    
0          MATRIX DECOMPOSITION SUBR.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
0          Referenced by comments of: 286/3 
00286/05    MATH SUBRS               DBS             S            # (NOT DISTRIBUTED)                                               
            D2T1    393                                                             UM   HARDING                                    
0          DOUBLE BACK SUBSTITUTION SUBR.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00286/06    MATH SUBRS               DBST            S            # (NOT DISTRIBUTED)                                               
            D2T1    394                                                             UM   HARDING                                    
0          DOUBLE BACK SUBSTITUTION SUBR FOR TRANSFORMED SYSTEM.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00287/01    SPIE SUBR                                SA  G  SPIE    MTA:SPIE(1,999)                                                 
            D3T2    142  SPIE_SUBR..SA.1                    1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  21:35.41
0          SUBROUTINE TO INTERFACE OS/360 'SPIE' MACRO WITH MTS 'PGNTTRP' SUBROUTINE.
00287/02    SPIE SUBR                                OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00289       LOADCALL                                 S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00291/01   *IEHMOVE                                  SA  G  IEH0    W062:IEHMOVE.S                                                  
            D3T2    143  IEHMOVE..SA.1                      1 SEQ      80   16 PAGE UM   TIFFANY             JULY 31, 1973  21:35.54
0          PROGRAM TO READ UNLOADED OS/360 DATA SETS IN MTS. SEE ALSO *UNLINKER (562).
           PROGRAM CHANGED FOR STANDARDIZATION.
           NOTE:  THE BLKRTN SUBROUTINE TO EXTRACT INFORMATION FROM IEHMOVE TAPES IS PART OF THIS FILE.
00291/02   *IEHMOVE                                  OC  G          *IEHMOVE                                                        
            D3T2    147  IEHMOVE..OC.5                      1 LINE     80    7 PAGE UM   TIFFANY             JULY 31, 1973  21:36.05
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00291/03   *IEHMOVE                  VS/2 BLKRTN     SA  G  BLKR    MTA:IEBCOPY.BLK(1,999)                                          
            D3.2T1  147  IEHMOVE.VS/2_BLKRTN.SA.03          1 LINE     80   14 PAGE UM   MTA                 MAR. 21, 1975  01:15:08
0          SPECIAL VERSION OF BLKRTN SUBROUTINE USED BY *IEHMOVE AND *UNLINKER (562)
           WHICH READS VS/2 IEBCOPY UNLOADED DATA SETS.  THIS SUBROUTINE READS A LIST
           OF MEMBERS TO PROCESS FROM UNIT 19 IF IT IS ASSIGNED.
00291/04   *IEHMOVE                  VS/2 BLKRTN     OC  G          MTA:IEBCOPY.BLK(1000)                                           
            D3.2T1  148  IEHMOVE.VS/2_BLKRTN.OC.04          1 LINE     80    9 PAGE UM   MTA                 MAR. 21, 1975  01:15:12
00292      *CPCORE                                                # (SEE COMP 615)                                                  
                                                                                    UM                                              
00293/01   *MACGEN                                   SA  G  MACG  = WATF:MACGEN(1,999)                                              
            D3T2    148  MACGEN..SA.1                       1 LINE     80    3 PAGE UM   ???                 JULY 31, 1973  21:36.07
0          GENERATE THE DIRECTORY FOR A MACRO LIBRARY.
           ASSEMBLE WITH *SYSMAC.
00293/02   *MACGEN                                   OC  G        = *MACGEN                                                         
            D3T2    149  MACGEN..OC.2                       1 LINE    255    1 PAGE UM   ???                 JULY 31, 1973  21:36.08
00295      *PL360LIB                                              # (SEE COMP 108)                                                  
                                                                                    UM                                              
00296       CHECKDASD                                SA           # OBSOLETE                                                        
            D2T1    119                                                             UM                                              
00297/01   *LINKEDIT                 LKEDCMD         SP  G          W052:LINK.CMD.S                                                 
            D3.1T1  201  LINKEDIT.LKEDCMD.SP.1              1 LINE     98   19 PAGE UM   DE JONG             MAR. 06, 1974  03:36.22
0          MTS LINKAGE EDITOR
           REQUIRES COPY SECTION LINK.COM (297/6).
00297/02   *LINKEDIT                 INCLUDE         SP  G          W052:LINK.INCL.S                                                
            D3.1T1  202  LINKEDIT.INCLUDE.SP.2              1 LINE    100   15 PAGE UM   DE JONG             MAR. 06, 1974  03:36.38
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
00297/03   *LINKEDIT                 PUNCH           SP  G          W052:LINK.PUNCH.S                                               
            D3.1T1  203  LINKEDIT.PUNCH.SP.3                1 LINE    100    6 PAGE UM   DE JONG             MAR. 06, 1974  03:36.42
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
00297/04   *LINKEDIT                 COMBINE         SP  G          W052:LINK.COMB.S                                                
            D3.1T1  204  LINKEDIT.COMBINE.SP.4              1 LINE     99    9 PAGE UM   DE JONG             MAR. 06, 1974  03:36.44
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
00297/05   *LINKEDIT                 SUBR            SP  G          W052:LINK.SUBR.S                                                
            D3.1T1  205  LINKEDIT.SUBR.SP.5                 1 LINE     91    3 PAGE UM   DE JONG             MAR. 06, 1974  03:36.47
0          CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00297/06   *LINKEDIT                 LINK.COM        SP  G          W052:LINK.COM                                                   
            D3.1T1  206  LINKEDIT.LINK.COM.SP.6             1 LINE    100    5 PAGE UM   DE JONG             MAR. 06, 1974  03:36.49
0          COPY SECTION REQUIRED TO COMPILE THE INDIVUAL ROUTINES.
0          Referenced by comments of: 297/1, 297/2, 297/3, 297/4, 297/5, 297/8, 297/9, 297/10 
00297/07   *LINKEDIT                 ASMSUBR         SA  G          W052:LINK.ALIB.S                                                
            D3.1T1  207  LINKEDIT.ASMSUBR.SA.7              1 LINE     72    2 PAGE UM   DE JONG             MAR. 06, 1974  03:36.51
0          ASMG SUBROUTINES.
00297/08   *LINKEDIT                 DUMP            SP  G          W052:LINK.DUMP.S                                                
            D3.1T1  208  LINKEDIT.DUMP.SP.8                 1 LINE     91    4 PAGE UM   DE JONG             MAR. 06, 1974  03:36.53
0          SUBROUTINE TO PRODUCE ERROR DUMPS.
           CONTAINS "$CONTINUE WITH LINK.COM"  (297/6)
00297/09   *LINKEDIT                 UTIL            SP  G          W052:LINK.UTIL.S                                                
                                                                                    UM   DE JONG                                    
0          MISCELLANEOUS UTILITY SUBROUTINES.
           CONTAINS "$CONTINUE WITH LINK.COM"  (297/6)
00297/10   *LINKEDIT                 UNLK            SP  G          W052:LINK.UNLK.S                                                
                                                                                    UM   DE JONG                                    
0          SUBROUTINE TO UNLINK MULTIPLE-CSECT MODULES.
           CONTAINS "$CONTINUE WITH LINK.COM"  (297/6)
00297/11   *LINKEDIT                 OBJECT          OE  G          *LINKEDIT                                                       
            D3.1T1  209  LINKEDIT.OBJECT.OE.9               1 SEQ   32767   39 PAGE UM   DE JONG             MAR. 06, 1974  03:36.55
0          THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT.
00298/01   *FORTRANH                 COMPILER        SA             S0579 SAVE 'JWS-SAVE' FSNAME=FSDSOURCE                          
            D3.2T1  149  FORTRANH.COMPILER.SA.01            1 LINE     80   77 PAGE UM   JWS                 MAR. 15, 1975  17:54:28
0          THIS COMPONENT IS THE SOURCE FOR ALL MODULES WHICH HAVE BEEN CHANGED FROM THE OS VERSION.
           IT HAS BEEN MODIFIED TO USE ESSENTIALLY THE SAME CALLING SEQUENCES AS IEYFORT
           (*FORTRANG) AND CAN BE CALLED BY *FTN (551) OR RUN DIRECTLY.
0          Referenced by comments of: 551/1 
00298/02   *FORTRANH                 COMPILER        OC             S0579 SAVE 'JWS-SAVE' FSNAME=FSDOBJ                             
            D3.2T1  150  FORTRANH.COMPILER.OC.02            1 LINE     80    9 PAGE UM   JWS                 MAR. 15, 1975  18:02:38
0          THIS OBJECT CORRESPONDS TO THE SOURCE IN 298/1 AND, AS SUCH, MUST BE COMBINED WITH 298/3 TO PRODUCE THE CURRENT
           FORTRAN H COMPILER, *FORTRANH (298/4).
00298/03   *FORTRANH                 OS OBJECT       OE  O          S0721 'D3T2' FSNAME=FORTRANH.OS_OBJECT.O.4                   163
            D3T2    163  FORTRANH.OS_OBJECT.O.4             1 SEQ    1024   63 DISK UM   JWS                 JUNE 23, 1972  12:54.06
0          OBJECT MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS.  NO PTF'S ARE 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          INCLUDED IN THIS FILE.
00298/04   *FORTRANH                 *FORTRANH       OC             S0579 SAVE 'JWS - SAVE' FSNAME=FORTRANH                         
            D3.2T1  151  FORTRANH.*FORTRANH.OC.04           1 SEQ   22004  113 PAGE UM   JWS                 MAR. 15, 1975  18:03:44
0          COMPLETE, UN-LINKEDITED FORTRANH COMPILER.
0          Referenced by comments of: 298/2 
00299      *LOVOC                                    S            # (OBSOLETE)                                                      
            D2T2    205                                                             UM                                              
00300      *LODEF                                    S            # (OBSOLETE)                                                      
            D2T2    206                                                             UM                                              
00302/01   *SSPSOURCE                                SF  G  SSPS    S0190 LJH.FS FSNAME=SNATCH.SSP                                  
            D3T2    167  SSPSOURCE..SF.1                    1 LINE     80    5 PAGE UM   HARDING             FEB. 17, 1972  13:31.13
0          PROGRAM TO RETRIEVE SSP SOURCE FOR USERS.  EXPECTS THE IBM SSP DISTRIBUTION TAPE
           (2 SOURCE FILES AND 15 EXAMPLE FILES) AS INPUT.
00302/02   *SSPSOURCE                                OC  G          *SSPSOURCE                                                      
            D3T2    168  SSPSOURCE..O.2                     1 SEQ    3334    2 PAGE UM   HARDING             JULY 31, 1973  22:37.40
00303/01    SORT                     *SORT           SA  G  SORT    S0027 DISTRB FSNAME=SORT                                        
            D3.2T1  152  SORT.*SORT.SA.01                   1 LINE     80   60 PAGE UM   ENGLE               MAR. 11, 1975  16:05:50
0          GENERAL SORT PROGRAM.  COPIES *CNFGINFODSECT (654).
           ASSEMBLE AS FOLLOWS FOR THE TWO VERSIONS:
               &SUB     SETB  0             FOR *SORT VERSION (303/2)
               &SUB     SETB  1             FOR SORT SUBROUTINE VERSION (303/3)
00303/02    SORT                     *SORT           OC  G          S0027 DISTRB FSNAME=SRT                                         
            D3.2T1  153  SORT.*SORT.OC.02                   1 LINE     80    7 PAGE UM   ENGLE               MAR. 11, 1975  16:06:03
0          Referenced by comments of: 303/1 
00303/03    SORT                     SORT SUBR       OC  G          S0027 DISTRB FSNAME=SRT1                                        
            D3.2T1  154  SORT.SORT_SUBR.OC.03               1 LINE     80    7 PAGE UM   ENGLE               MAR. 11, 1975  16:06:13
0          Referenced by comments of: 303/1 
00303/04    SORT                     SORT2/3 SUBRS   SA  G  SRT2    S0027 DISTRB FSNAME=SORT2                                       
            D3.2T1  155  SORT.SORT2/3_SUBRS.SA.04           1 LINE     80   24 PAGE UM   ENGLE               MAR. 11, 1975  16:06:57
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.
           COPIES *CNFGINFODSECT (654).
00303/05    SORT                     SORT2/3 SUBRS   OC  G          S0027 DISTRB FSNAME=SRT2                                        
            D3.2T1  156  SORT.SORT2/3_SUBRS.OC.05           1 LINE     80    4 PAGE UM   ENGLE               MAR. 11, 1975  16:07:07
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00303/06    SORT                     MESSAGE         SA  G  MSG     S0027 DISTRB FSNAME=MESSAGE                                     
            D3.2T1  157  SORT.MESSAGE.SA.06                 1 LINE     80    3 PAGE UM   ENGLE               DEC. 05, 1974  13:28.10
0          MODULE TO PRINT SORT ERROR MESSAGES (303/8).  ASSEMBLE WITH SORTMAC (303/13).
0          Referenced by comments of: 303/12 
00303/07    SORT                     MESSAGE         OE  G          S0027 DISTRB FSNAME=MSG                                         
            D3.2T1  158  SORT.MESSAGE.OE.07                 1 LINE    255    1 PAGE UM   ENGLE               DEC. 05, 1974  13:29.43
00303/08    SORT                     MESSAGES        M              S0027 DISTRB FSNAME=SORTMESSAGES                                
            D3.2T1  159  SORT.MESSAGES.M.08                 1 LINE     81    2 PAGE UM   ENGLE               MAR. 11, 1975  16:11:30
0          SORT ERROR MESSAGES.
           NOTE:  LINE NUMBERS ARE IMPORTANT IN THIS FILE.
0          Referenced by comments of: 303/6, 303/12 
00303/09    SORT                     CHECK           SA  G  CHK0    S0027 DISTRB FSNAME=CHECK                                       
            D3.2T1  160  SORT.CHECK.SA.09                   1 LINE     80    7 PAGE UM   ENGLE               MAR. 11, 1975  16:18:24
0          MODULE TO IMPLEMENT THE SORT "CHK" PARAMETER.
0          Referenced by comments of: 303/12 
00303/10    SORT                     CHECK           OE  G          S0027 DISTRB FSNAME=CHK                                         
            D3.2T1  161  SORT.CHECK.OE.10                   1 LINE    255    1 PAGE UM   ENGLE               MAR. 11, 1975  16:18:37
00303/11    SORT                     DOC             WT  G          S0027 DISTRB FSNAME=SORTWRITEUP                                 
            D3.2T1  162  SORT.DOC.WT.11                     1 SEQ      80   47 PAGE UM   ENGLE               MAR. 11, 1975  16:20:57
00303/12    SORT                     *SORTLM             G          S0027 DISTRB FSNAME=*SORTLM                                     
            D3.2T1  163  SORT.*SORTLM..12                   1 LINE    255    3 PAGE UM   ENGLE               MAR. 11, 1975  16:21:34
0          FILE CONTAINING ERROR MESSAGE PROGRAM (303/6), MESSAGES (303/8), AND CHECK ROUTINE (303/9).
           NOTE:  LINE NUMBERS ARE IMPORTANT IN THIS FILE.
00303/13    SORT                     SORTMAC         SM  G          S0027 DISTRB FSNAME=SORTMAC                                     
            D3.2T1  164  SORT.SORTMAC.SM.13                 1 LINE     66    3 PAGE UM   ENGLE               DEC. 05, 1974  13:39.47
0          MACROS USED IN ASSEMBLING COMPONENTS OF SORT.  IN THE FUTURE, WE HOPE TO ELIMINATE THIS COMPONENT.
0          Referenced by comments of: 303/6 
00303/14    SORT                     SRTTMTST        SA  G  SRTT    S0027 DISTRB FSNAME=SRTTMTST                                    
            D3.2T1  165  SORT.SRTTMTST.SA.14                1 LINE     80    3 PAGE UM   ENGLE               MAR. 11, 1975  16:23:09
0          MAIN PROGRAM TO PRODUCE CPU AND VMI TIMING RESULTS WHEN LOADED WITH *SORT.
00303/15    SORT                     SRTTMTST        OC  G          S0027 DISTRB FSNAME=SRTT                                        
            D3.2T1  166  SORT.SRTTMTST.OC.15                1 LINE     80    1 PAGE UM   ENGLE               MAR. 11, 1975  16:24:59
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00303/16    SORT                     SORTPLOT        SF  G  SRTP    S0027 DISTRB FSNAME=SORTPLOT                                    
            D3.2T1  167  SORT.SORTPLOT.SF.16                1 LINE     80    6 PAGE UM   ENGLE               MAR. 11, 1975  16:27:52
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 NUMBERS 69-71 SHOULD BE SKIPPED TO ELIMINATE THE
           PLOTTING OF DATA POINTS.
00303/17    SORT                     SORTPLOT        OC  G          S0027 DISTRB FSNAME=SRTP                                        
            D3.2T1  168  SORT.SORTPLOT.OC.17                1 LINE    244    4 PAGE UM   ENGLE               MAR. 11, 1975  16:28:10
00303/18    SORT                     SORTPLOT        D   G          S0027 DISTRB FSNAME=SRTPDATA                                    
            D3.2T1  169  SORT.SORTPLOT.D.18                 1 LINE     28    3 PAGE UM   ENGLE               MAR. 11, 1975  17:05:32
0          DATA FOR SORT TIMING PLOTS, MEASURED ON 370/168.
00303/19    SORT                     SORTPLOT        D   G          S0027 DISTRB FSNAME=SRTPPLOT                                    
            D3.2T1  170  SORT.SORTPLOT.D.19                 1 LINE    254   25 PAGE UM   ENGLE               MAR. 12, 1975  17:20:32
0          CALCOMP PLOT FILE FOR SORT TIMING PLOTS IN SORT WRITEUP.  CONTAINS PPEN RECORDS
           FOR MULTICOLOR PLOTTING.
00304      *TPD                                      SA           # (NOT DISTRIBUTED)                                               
            D2T1    137                                                             UM   WSG                                        
00305/01   *FTNTOPL1                 SLCPF4          SP  O  LCP0    S0721 'D3T2' FSNAME=FTNTOPL1.SLCPF4.SP.1                     177
            D3T2    177  FTNTOPL1.SLCPF4.SP.1               1 SEQ      80    2 PAGE UM   TIFFANY             JULY 31, 1973  22:47.13
0          IBM PROGRAM 360-CV-710: LCP FORTRAN-IV TO PL/I, VERSION 1 LEVEL 0. THE SOURCE DECKS (305/1 THRU 305/20)
           SHOULD BE STORED IN FILES NAMED AS INDICATED.  THE UPDATE DECK (305/21) WILL CONVERT THESE FILES, WHICH 
           ARE UNMODIFIED IBM SOURCE, INTO A VERSION THAT WILL RUN IN MTS.  MOST OF THESE PROGRAMS ARE WRITTEN IN PL/I
           VERSION 4 WITH SORGMIN=(2,41).  THE ONLY PROGRAMS WHICH ARE NOT PL/I ARE SCONVER, SPUTTBS, AND SLBLNK, WHICH ARE
           ASSEMBLY LANGUAGE.  UNCHANGED SINCE DIST 2.
00305/02   *FTNTOPL1                 SCONVER         SA  O  CON0    S0721 'D3T2' FSNAME=FTNTOPL1.SCONVER.SA.2                    178
            D3T2    178  FTNTOPL1.SCONVER.SA.2              1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.14
00305/03   *FTNTOPL1                 SPUTTBS         SA  O  PUT0    S0721 'D3T2' FSNAME=FTNTOPL1.SPUTTBS.SA.3                    179
            D3T2    179  FTNTOPL1.SPUTTBS.SA.3              1 SEQ      80   24 PAGE UM   TIFFANY             JULY 31, 1973  22:47.18
0          Referenced by comments of: 305/21 
00305/04   *FTNTOPL1                 SLTCOL          SP  O  LTC0    S0721 'D3T2' FSNAME=FTNTOPL1.SLTCOL.SP.4                     180
            D3T2    180  FTNTOPL1.SLTCOL.SP.4               1 SEQ      80   12 PAGE UM   TIFFANY             JULY 31, 1973  22:47.22
00305/05   *FTNTOPL1                 SIPPRS          SP  O  IPP0    S0721 'D3T2' FSNAME=FTNTOPL1.SIPPRS.SP.5                     181
            D3T2    181  FTNTOPL1.SIPPRS.SP.5               1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.25
00305/06   *FTNTOPL1                 SPH10           SP  O  PH10    S0721 'D3T2' FSNAME=FTNTOPL1.SPH10.SP.6                      182
            D3T2    182  FTNTOPL1.SPH10.SP.6                1 SEQ      80   11 PAGE UM   TIFFANY             JULY 31, 1973  22:47.28
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00305/07   *FTNTOPL1                 SFNPRO          SP  O  FNP0    S0721 'D3T2' FSNAME=FTNTOPL1.SFNPRO.SP.7                     183
            D3T2    183  FTNTOPL1.SFNPRO.SP.7               1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.30
00305/08   *FTNTOPL1                 SDMPRO          SP  O  DMP0    S0721 'D3T2' FSNAME=FTNTOPL1.SDMPRO.SP.8                     184
            D3T2    184  FTNTOPL1.SDMPRO.SP.8               1 SEQ      80   18 PAGE UM   TIFFANY             JULY 31, 1973  22:47.32
00305/09   *FTNTOPL1                 SNLPRO          SP  O  NLP0    S0721 'D3T2' FSNAME=FTNTOPL1.SNLPRO.SP.9                     185
            D3T2    185  FTNTOPL1.SNLPRO.SP.9               1 SEQ      80    9 PAGE UM   TIFFANY             JULY 31, 1973  22:47.34
00305/10   *FTNTOPL1                 SFTPRO          SP  O  FTP0    S0721 'D3T2' FSNAME=FTNTOPL1.SFTPRO.SP.10                    186
            D3T2    186  FTNTOPL1.SFTPRO.SP.10              1 SEQ      80   21 PAGE UM   TIFFANY             JULY 31, 1973  22:47.38
00305/11   *FTNTOPL1                 SRTPRO          SP  O  RTP0    S0721 'D3T2' FSNAME=FTNTOPL1.SRTPRO.SP.11                    187
            D3T2    187  FTNTOPL1.SRTPRO.SP.11              1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.40
00305/12   *FTNTOPL1                 SIOPRO          SP  O  IOP0    S0721 'D3T2' FSNAME=FTNTOPL1.SIOPRO.SP.12                    188
            D3T2    188  FTNTOPL1.SIOPRO.SP.12              1 SEQ      80   25 PAGE UM   TIFFANY             JULY 31, 1973  22:47.43
00305/13   *FTNTOPL1                 SARPRO          SP  O  ARP0    S0721 'D3T2' FSNAME=FTNTOPL1.SARPRO.SP.13                    189
            D3T2    189  FTNTOPL1.SARPRO.SP.13              1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.47
00305/14   *FTNTOPL1                 SCAPRO          SP  O  CAP0    S0721 'D3T2' FSNAME=FTNTOPL1.SCAPRO.SP.14                    190
            D3T2    190  FTNTOPL1.SCAPRO.SP.14              1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.49
00305/15   *FTNTOPL1                 SIFPRO          SP  O  IFP0    S0721 'D3T2' FSNAME=FTNTOPL1.SIFPRO.SP.15                    191
            D3T2    191  FTNTOPL1.SIFPRO.SP.15              1 SEQ      80    6 PAGE UM   TIFFANY             JULY 31, 1973  22:47.52
00305/16   *FTNTOPL1                 SALPRO          SP  O  ALP0    S0721 'D3T2' FSNAME=FTNTOPL1.SALPRO.SP.16                    192
            D3T2    192  FTNTOPL1.SALPRO.SP.16              1 SEQ      80    7 PAGE UM   TIFFANY             JULY 31, 1973  22:47.54
00305/17   *FTNTOPL1                 SPH20           SP  O  PH20    S0721 'D3T2' FSNAME=FTNTOPL1.SPH20.SP.17                     193
            D3T2    193  FTNTOPL1.SPH20.SP.17               1 SEQ      80   16 PAGE UM   TIFFANY             JULY 31, 1973  22:47.58
00305/18   *FTNTOPL1                 SPH30           SP  O  PH30    S0721 'D3T2' FSNAME=FTNTOPL1.SPH30.SP.18                     194
            D3T2    194  FTNTOPL1.SPH30.SP.18               1 SEQ      80   41 PAGE UM   TIFFANY             JULY 31, 1973  22:48.03
00305/19   *FTNTOPL1                 SLBLNK          SA  O  SLBL    S0721 'D3T2' FSNAME=FTNTOPL1.SLBLNK.SA.19                    195
            D3T2    195  FTNTOPL1.SLBLNK.SA.19              1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:48.07
00305/20   *FTNTOPL1                 SUT1            SP  O          S0721 'D3T2' FSNAME=FTNTOPL1.SUT1.SP.20                      196
            D3T2    196  FTNTOPL1.SUT1.SP.20                1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  22:48.08
00305/21   *FTNTOPL1                 UPDATE          UU  O          W062:UP                                                      314
            D3T2    197  FTNTOPL1.UPDATE.UU.21              1 SEQ      80    8 PAGE UM   TIFFANY             JULY 31, 1973  22:48.11
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 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00305/22   *FTNTOPL1                                 OC  O          *FTNTOPL1                                                       
            D3T2    198  FTNTOPL1..OC.22                    1 LINE     80   75 PAGE UM   TIFFANY             JULY 31, 1973  22:48.12
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00306/01    WIREWRAP                 WW.S.MAIN       SA  G  WWMN    S0767 'SAVETAPE' FSNAME=WW.S.MAIN                               
            D3.1T1  211  WIREWRAP.WW.S.MAIN.SA.1            1 LINE     80   52 PAGE UM   GERSCH              JAN. 16, 1974  13:11.37
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 CHARACTERSITICS OF THE IC MOUNTING TECHNIQUE.  SOURCE FILE
           WWJOB (306/8) WILL ASSEMBLE *WIREWRAP.
0          Referenced by comments of: 306/1 
00306/02    WIREWRAP                 WW.S.AUX        SA  G  WWAU    S0767 'SAVETAPE' FSNAME=WW.S.AUX                                
            D3.1T1  212  WIREWRAP.WW.S.AUX.SA.2             1 LINE     80   37 PAGE UM   GERSCH              JAN. 16, 1974  13:11.57
0          Referenced by comments of: 306/1 
00306/03    WIREWRAP                 WW.S.MACR       SA  G  WWMC    S0767 'SAVETAPE' FSNAME=WW.S.MACR                               
            D3.1T1  213  WIREWRAP.WW.S.MACR.SA.3            1 LINE     80   28 PAGE UM   GERSCH              JAN. 16, 1974  13:12.15
0          Referenced by comments of: 306/1 
00306/04    WIREWRAP                 *WIREWRAP       OE  G          *WIREWRAP                                                       
            D3.1T1  214  WIREWRAP.*WIREWRAP.OE.4            1 SEQ   11776    9 PAGE UM   GERSCH              MAR. 06, 1974  03:49.39
00306/05    WIREWRAP                 WWCOPY          SA  G  WWCO    S0767 'SAVETAPE' FSNAME=WWCOPY                                  
            D3.1T1  215  WIREWRAP.WWCOPY.SA.5               1 LINE     80    4 PAGE UM   GERSCH              JAN. 16, 1974  16:32.18
0          COPY SECTION USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
00306/06    WIREWRAP                 WWDATA          SA  G  WWDA    S0767 'SAVETAPE' FSNAME=WWDATA                                  
            D3.1T1  216  WIREWRAP.WWDATA.SA.6               1 LINE     80    8 PAGE UM   GERSCH              JAN. 16, 1974  16:32.00
0          COPY SECTION USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
00306/07    WIREWRAP                 WWMAC           SM  G          S0767 'SAVETAPE' FSNAME=WWMAC                                   
            D3.1T1  217  WIREWRAP.WWMAC.SM.7                1 LINE     73    3 PAGE UM   GERSCH              JAN. 16, 1974  16:31.52
0          MACRO LIB USED BY 306/1, 306/2, AND 306/3
0          Referenced by comments of: 306/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00306/08    WIREWRAP                 WWJOB           C   G          S0767 'SAVETAPE' FSNAME=WWJOB                                   
            D3.1T1  218  WIREWRAP.WWJOB.C.8                 1 LINE     92    1 PAGE UM   GERSCH              JAN. 16, 1974  13:12.32
0          Referenced by comments of: 306/1 
00306/09    WIREWRAP                 *WWLIB          OL  G          *WWLIB                                                          
            D3.1T1  219  WIREWRAP.*WWLIB.OL.9               1 LINE    255   24 PAGE UM   GERSCH              MAR. 06, 1974  03:49.49
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:  MSERIES,
           RSERIES, IC, MIC, LAB, AUGATPG1, AUGATPG3, AUGATPG5, AUGATPG13, AND AUGATUG1.  THE
           *WIREWRAP USER'S GUIDE (306/29) DESCRIBES THESE BAY TYPES.  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 
00306/10    WIREWRAP                 SQGRD           SA  G  SQGR    S0767 'SAVETAPE' FSNAME=SQGRD.S                                 
            D3.1T1  220  WIREWRAP.SQGRD.SA.10               1 LINE     80    6 PAGE UM   GERSCH              DEC. 13, 1973  12:57.39
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/11    WIREWRAP                 SQGRD           OE  G          *WWSQGRD                                                        
            D3.1T1  221  WIREWRAP.SQGRD.OE.11               1 SEQ     606    1 PAGE UM   GERSCH              MAR. 06, 1974  03:50.22
0          Referenced by comments of: 306/9 
00306/12    WIREWRAP                 STGRD1          SA  G  STG1    S0767 'SAVETAPE' FSNAME=STGRD1.S                                
            D3.1T1  222  WIREWRAP.STGRD1.SA.12              1 LINE     80    8 PAGE UM   GERSCH              DEC. 13, 1973  12:57.57
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/13    WIREWRAP                 STGRD1          OE  G          *WWSTGRD1                                                       
            D3.1T1  223  WIREWRAP.STGRD1.OE.13              1 SEQ     726    1 PAGE UM   GERSCH              MAR. 06, 1974  03:50.26
0          Referenced by comments of: 306/9 
00306/14    WIREWRAP                 STGRD2          SA  G  STG2    S0767 'SAVETAPE' FSNAME=STGRD2.S                                
            D3.1T1  224  WIREWRAP.STGRD2.SA.14              1 LINE     80    8 PAGE UM   GERSCH              DEC. 13, 1973  12:58.13
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/15    WIREWRAP                 STGRD2          OE  G          *WWSTGRD2                                                       
            D3.1T1  225  WIREWRAP.STGRD2.OE.15              1 SEQ    5718    2 PAGE UM   GERSCH              MAR. 06, 1974  03:50.31
0          Referenced by comments of: 306/9 
00306/16    WIREWRAP                 LAB             SF  G  LAB0    S0767 'SAVETAPE' FSNAME=LAB.S                                   
            D3.1T1  226  WIREWRAP.LAB.SF.16                 1 LINE     80    4 PAGE UM   GERSCH              DEC. 13, 1973  12:49.54
0          SUBROUTINE PACKAGE FOR BAY TYPE 'LAB'.  OBJECT MODULE IN *WWLIB (306/9).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00306/17    WIREWRAP                 MSERIES         SF  G  MSER    S0767 'SAVETAPE' FSNAME=MSERIES.S                               
            D3.1T1  227  WIREWRAP.MSERIES.SF.17             1 LINE     80    5 PAGE UM   GERSCH              DEC. 13, 1973  12:56.06
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MSERIES'. OBJECT MODULE IN *WWLIB (306/9).
00306/18    WIREWRAP                 RSERIES         SF  G  RSER    S0767 'SAVETAPE' FSNAME=RSERIES.S                               
            D3.1T1  228  WIREWRAP.RSERIES.SF.18             1 LINE     80    5 PAGE UM   GERSCH              DEC. 13, 1973  12:56.35
0          SUBROUTINE PACKAGE FOR BAY TYPE 'RSERIES'.  OBJECT MODULE IN *WWLIB (306/9).
00306/19    WIREWRAP                 IC              SF  G  IC00    S0767 'SAVETAPE' FSNAME=IC.S                                    
            D3.1T1  229  WIREWRAP.IC.SF.19                  1 LINE     80    5 PAGE UM   GERSCH              DEC. 13, 1973  12:55.30
0          SUBROUTINE PACKAGE FOR BAY TYPE 'IC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/20    WIREWRAP                 MIC             SF  G  MIC0    S0767 'SAVETAPE' FSNAME=MIC.S                                   
            D3.1T1  230  WIREWRAP.MIC.SF.20                 1 LINE     80    5 PAGE UM   GERSCH              JAN. 16, 1974  13:12.44
0          SUBROUTINE PACKAGE FOR BAY TYPE 'MIC'.  OBJECT MODULE IN *WWLIB (306/9).
00306/21    WIREWRAP                 PG1             SF  G  PG10    S0767 'SAVETAPE' FSNAME=79.PG1SOU                               
            D3.1T1  231  WIREWRAP.PG1.SF.21                 1 LINE     80    6 PAGE UM   GERSCH              DEC. 13, 1973  13:35.38
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/22    WIREWRAP                 PG3             SF  G  PG30    S0767 'SAVETAPE' FSNAME=79.PG3SOU                               
            D3.1T1  232  WIREWRAP.PG3.SF.22                 1 LINE     80    6 PAGE UM   GERSCH              DEC. 13, 1973  13:36.09
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG3'.  OBJECT MODULE IN *WWLIB (306/9).
00306/23    WIREWRAP                 PG5             SF  G  PG50    S0767 'SAVETAPE' FSNAME=79.PG5SOU                               
            D3.1T1  233  WIREWRAP.PG5.SF.23                 1 LINE     80    6 PAGE UM   GERSCH              DEC. 13, 1973  13:36.26
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG5'.  OBJECT MODULE IN *WWLIB (306/9).
00306/24    WIREWRAP                 PG13            SF  G  PG13    S0767 'SAVETAPE' FSNAME=79.PG13SOU                              
            D3.1T1  234  WIREWRAP.PG13.SF.24                1 LINE     80    6 PAGE UM   GERSCH              DEC. 13, 1973  13:35.53
0          SUBROUTINE PACKAGE FOR BAY TYPE 'PG13'.  OBJECT MODULE IN *WWLIB (306/9).
00306/25    WIREWRAP                 UG1             SA  G  UG10    S0767 'SAVETAPE' FSNAME=AUGATUG1.S                              
            D3.1T1  235  WIREWRAP.UG1.SA.25                 1 LINE     80   19 PAGE UM   GERSCH              JAN. 16, 1974  13:13.19
0          SUBROUTINE PACKAGE FOR BAY TYPE 'UG1'.  OBJECT MODULE IN *WWLIB (306/9).
00306/26    WIREWRAP                 *WWICMAC        D   G          *WWICMAC                                                        
            D3.1T1  236  WIREWRAP.*WWICMAC.D.26             1 SEQ      65    4 PAGE UM   GERSCH              MAR. 06, 1974  03:51.28
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.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00306/27    WIREWRAP                 *WWLABMAC       D   G          *WWLABMAC                                                       
            D3.1T1  237  WIREWRAP.*WWLABMAC.D.27            1 LINE     56    1 PAGE UM   GERSCH              MAR. 06, 1974  03:51.30
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/28    WIREWRAP                 TTLMAC          D   G          S0767 'SAVETAPE' FSNAME=TTLMAC                                  
            D3.1T1  238  WIREWRAP.TTLMAC.D.28               1 LINE     91    4 PAGE UM   GERSCH              DEC. 13, 1973  13:22.40
0          ANOTHER "WIREWRAP MACRO" DICTIONARY.
00306/29    WIREWRAP                 USER'S GUIDE    PT  G          S0767 'SAVETAPE' FSNAME=TEXT360PRINT                            
            D3.1T1  239  WIREWRAP.USER'S_GUIDE.PT.29        1 LINE     79   65 PAGE UM   GERSCH              FEB. 05, 1974  09:26.06
0          THIS IS COMPUTING CENTER MEMO M267 -- "*WIREWRAP USER'S GUIDE"
0          Referenced by comments of: 306/9 
00307/01   *OBJCONV                                  SA     FXOB    S0721 'D3T2' FSNAME=OBJCONV..SA.1                            220
            D3T2    220  OBJCONV..SA.1                      1 SEQ      80    1 PAGE UM   DWB                 JULY 31, 1973  22:54.21
0          PROGRAM TO CONVERT AN OS/360 OBJECT DECK WHICH HAS THE CSECT LENGTH ON THE END CARD TO AN MTS COMPATIBLE
           DECK, I.E. TO A DECK WITH THE CSECT LENGTH ON THE FIRST ESD CARD.  USED WITH *COBOL.  UNCHANGED SINCE DIST 2.
00307/02   *OBJCONV                                  OC             *OBJCONV                                                        
            D3T2    221  OBJCONV..O.2                       1 LINE     80    1 PAGE UM   DWB                 JULY 31, 1973  22:54.24
00308/01   *FORMAT                   MAIN            SA  G          W030:FMT                                                        
            D3T2    222  FORMAT..SA.1                       1 LINE     80   70 PAGE UM   LIFT                JULY 31, 1973  22:54.25
0          Referenced by comments of: 560/1 
00308/02   *FORMAT                   SUBROUTINES     SA  G          W030:FMTRTNS                                                    
                                                                                    UM   LIFT                                       
0          SUBROUTINES TO BE ASSEMBLED WITH PAR=B.
00308/03   *FORMAT                   SUBROUTINES     SA  G          W030:FMTSUB                                                     
                                                                                    UM   LIFT                                       
0          MORE SUBROUTINES TO BE ASSEMBLED WITH PAR=B.
00308/04   *FORMAT                   SUBROUTINES     SA  G          W030:MTSTIME.S                                                  
                                                                                    UM   LIFT                                       
0          MORE SUBROUTINES TO BE ASSEMBLED WITH PAR=B.
00308/05   *FORMAT                   PLIST           SA  G          W030:PLIST.S                                                    
                                                                                    UM   LIFT                                       
0          ANOTHER SUBROUTINE.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00308/06   *FORMAT                   INFREE          SA  G          W030:INFREE#.S                                                  
                                                                                    UM   LIFT                                       
0          Referenced by comments of: 410/2 
00308/07   *FORMAT                   HASH            SA  G          W030:HASH.S                                                     
                                                                                    UM   LIFT                                       
00308/08   *FORMAT                   EXT FUNC LOAD   SA  G          W030:LOADFN.S                                                   
                                                                                    UM   LIFT                                       
0          EXTERNAL FUNCTION LOADER.
00308/09   *FORMAT                   FUNCTIONS       SA  G          W030:GCONVERT.S                                                 
                                                                                    UM   LIFT                                       
00308/10   *FORMAT                   MACLIB #1       SA  G          W030:FMTMACLIB                                                  
                                                                                    UM   LIFT                                       
0          MACRO LIBRARY NEEDED TO ASSEMBLE ALL FORMAT SOURCE.
00308/11   *FORMAT                   MACLIB #2       SA  G          W030:MACLIB                                                     
                                                                                    UM   LIFT                                       
0          ANOTHER MACRO LIBRARY NEEDED TO ASSEMBLE ALL FORMAT SOURCE.
00308/12   *FORMAT                                   OE  G          *FORMAT                                                         
            D3T2    224  FORMAT..OE.3                       1 SEQ   15577    5 PAGE UM   LIFT                JULY 31, 1973  22:54.44
00309/01   *STASS360                 MONITOR         SA     MNTR    S0373 'STASS360' FMT=FB(3200,80)                             1  
            D3T2    225  STASS360.MONITOR.SA.1              1 SEQ      80   11 PAGE UM   SALISBURY           JULY 31, 1973  22:55.58
0          COMPONENTS 309/1 THRU 309/6 ARE THE SOURCE FILES FOR STASS360.
           THEY ARE THE SAME AS THE UBC DISTRIBUTION OF STASS360 EXCEPT FOR RE-SEQUENCING.
00309/02   *STASS360                 ASSEMBLER       SA     ASSM    S0373 'STASS360' FMT=FB(3200,80)                             2  
            D3T2    226  STASS360.ASSEMBLER.SA.2            1 SEQ      80   85 PAGE UM   SALISBURY           JULY 31, 1973  22:56.10
00309/03   *STASS360                 SIMULATOR       SA     SIML    S0373 'STASS360' FMT=FB(3200,80)                             3  
            D3T2    227  STASS360.SIMULATOR.SA.3            1 SEQ      80   48 PAGE UM   SALISBURY           JULY 31, 1973  22:56.22
00309/04   *STASS360                 I/O CONVERSION  SA     CVTH    S0373 'STASS360' FMT=FB(3200,80)                             4  
            D3T2    228  STASS360.I/O_CONVERSION.SA.4       1 SEQ      80   25 PAGE UM   SALISBURY           JULY 31, 1973  22:56.28
00309/05   *STASS360                 IBCOM           SA     ICOM    S0373 'STASS360' FMT=FB(3200,80)                             5  
            D3T2    229  STASS360.IBCOM.SA.5                1 SEQ      80   18 PAGE UM   SALISBURY           JULY 31, 1973  22:56.32
00309/06   *STASS360                 FIOCS           SA     FIOC    S0373 'STASS360' FMT=FB(3200,80)                             6  
            D3T2    230  STASS360.FIOCS.SA.6                1 SEQ      80    5 PAGE UM   SALISBURY           JULY 31, 1973  22:56.34
00309/07   *STASS360                 UPDATE          UU             S0721 'D3T2' FSNAME=STASS360.UPDATE.UU.7                     231
            D3T2    231  STASS360.UPDATE.UU.7               1 LINE     72    1 PAGE UM   SALISBURY           JULY 31, 1973  22:56.52
0          *UPDATE DECK TO PRODUCE THE UM VERSION OF STASS360 FROM COMPONENTS 309/1 THRU 309/6.
1                                                                                               FRI AUG 02/96   19:04:25   Page   94
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          UPDATES FOR COMPONENTS BEGIN AT LINES 1000, 2000, 3000, 4000, 5000, AND 6000.
           THE UPDATES ASSUME THAT THE SOURCE COMPONENTS ARE ON TAPE *STASS* AT FILE 1, 2, ETC.
           THE CHANGES MADE BY THIS UPDATE FIX SOME OBSCURE BUGS IN THE UBC VERSION.
00309/08   *STASS360                                 OE             *STASS360                                                       
            D3T2    232  STASS360..OE.8                     1 SEQ   14248    9 PAGE UM   SALISBURY           JULY 31, 1973  22:56.54
00310      *1ASR                                                  # (SEE COMP 234)                                                  
                                                                                    UM                                              
00311      *VARRLIST                                 S            # (OBSOLETE)                                                      
            D2T1    333                                                             UM                                              
00312      *ARUVOC                                   D            # (SEE COMP 084)                                                  
                                                                                    UM                                              
00313       1130 RJE SUPPORT PROGRAM                 S            # (OBSOLETE)                                                      
            D2T1    096                                                             UM                                              
00314/01   *LABELSNIFF                               SA  G          W062:SNIFF                                                      
            D3T2    233  LABELSNIFF..SA.1                   1 SEQ      80   31 PAGE UM   TIFFANY             JULY 31, 1973  22:56.56
0          PROGRAM TO FORMAT AND PRINT LABEL INFORMATION FROM LABELED TAPES.  COUNTS RECORDS AND BLOCKS
           AND RECOVERS FROM TAPE ERRORS.  ALSO COMPUTES NUMBER OF FEET IN EACH FILE AND ON TOTAL TAPE.
           PROGRAM NOW ACCEPTS ADDITIONAL PARAMETERS (IN PAR OR FROM GUSER):
            
             REW         CONTROLS THE POSITIONING OF THE TAPE AFTER SNIFFING.  THE DEFAULT IS TO
             NOREW       REWIND THE TAPE (REW), BUT NOREW CAUSES THE TAPE TO BE LEFT POSITIONED
                         AFTER THE LAST FILE SNIFFED.
            
             FILES=N     IF SPECIFIED, CAUSES ONLY N FILES TO BE SNIFFED (RATHER THAN ENTIRE TAPE).
            
             POSN=       IF POSN IS NOT SPECIFIED, THE TAPE IS REWOUND BEFORE SNIFFING, OTHERWISE
                         A "POSN" CONTROL COMMAND IS ISSUED PRIOR TO SNIFFING.
00314/02   *LABELSNIFF                               OE  G          W062:LBLSNIFF                                                   
            D3T2    234  LABELSNIFF..O.2                    1 SEQ    5320    3 PAGE UM   TIFFANY             JULY 31, 1973  22:57.00
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
00317      *8CARD                                    S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00318/01    XPL                      SUBMONITOR      SA  G  XMON    S0296 S296 'JOH XPL' POSN=XMON@S                             15 
            D3T2    237  XPL.SUBMONITOR.SA.1                1 SEQ      80   24 PAGE UM   JWS                 JULY 31, 1973  23:01.38
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                                                                                               FRI AUG 02/96   19:04:25   Page   95
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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/02    XPL                      SUBMONITOR      OC  G          S0296 S296 'JOH XPL' POSN=XMON@O                             17 
            D3T2    238  XPL.SUBMONITOR.OC.2                1 SEQ      80    2 PAGE UM   JWS                 JULY 31, 1973  23:01.42
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              <<<<<<<<----- BOO HISS BOO HISS ...
0          Referenced by comments of: 318/4 
00318/03    XPL                      TRACE           SA  G  TRAC    S0296 S296 'JOH XPL' POSN=TRACE@S                            4  
            D3T2    239  XPL.TRACE.SA.3                     1 SEQ      80   33 PAGE UM   JWS                 JULY 31, 1973  23:01.54
0          UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON) AND *SPL (336).
00318/04    XPL                      TRACE           OC  G          S0296 S296 'JOH XPL' POSN=TRACE@O                            6  
            D3T2    240  XPL.TRACE.OC.4                     1 SEQ      80    2 PAGE UM   JWS                 JULY 31, 1973  23:01.59
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/05    XPL                      DEFAULTS        SA  G  DFLT    S0296 S296 'JOH XPL' POSN=DFLT@S                             1  
            D3T2    241  XPL.DEFAULTS.SA.5                  1 SEQ      80    1 PAGE UM   JWS                 JULY 31, 1973  23:02.03
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/06    XPL                      DEFAULTS        OC  G          S0296 S296 'JOH XPL' POSN=DFLT@O                             3  
            D3T2    242  XPL.DEFAULTS.OC.6                  1 SEQ      80    1 PAGE UM   JWS                 JULY 31, 1973  23:02.04
0          THE FIRST 4 LINES OF THIS FILE ARE THE OBJECT FOR THE FIRST DEFAULTS PROGRAM AND SHOULD BE PLACED
           IS THE FILE *XPL FOLLOWED BY A "$CONTINUE WITH *XMON" LINE.  LINES 5 THROUGH 8 ARE THE OBJECT FOR 
           THE SECOND DEFAULTS PROGRAM AND SHOULD BE PLACED IN THE FILE *XPLGO ALSO FOLLOWED BY A 
           "$CONTINUE WITH *XMON" LINE.
00318/07    XPL                      COMPILER        SX  G          S0296 S296 'JOH XPL' POSN=XCOM@S                             18 
            D3T2    243  XPL.COMPILER.SX.7                  1 SEQ      80   98 PAGE UM   JWS                 JULY 31, 1973  23:02.26
0          XPL SOURCE FOR THE XPL COMPILER (*XCOM).  THIS VERSION IS MODIFIED FROM AN EARLY STANFORD
           RELEASE; IT IS NOT THE SHARE RELEASE.  IT IS USED QUITE HEAVILY AT UM AND IS RELATIVELY BUG-FREE.
           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.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00318/08    XPL                      COMPILER        O   G          S0296 S296 'JOH XPL' POSN=XCOM@O                             20 
            D3T2    244  XPL.COMPILER.O.8                   1 SEQ     240   29 PAGE UM   JWS                 JULY 31, 1973  23:02.40
0          XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER).
00318/09    XPL                      *XPLIBRARY      SX  G          S0296 S296 'JOH XPL' POSN=XLIB                               14 
            D3T2    245  XPL.*XPLIBRARY.SX.9                1 SEQ      80    3 PAGE UM   JWS                 JULY 31, 1973  23:02.54
0          SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL.
00318/10    XPL                      *SKELETON       SX  G          S0296 S296 'JOH XPL' POSN=SKTN@S                             10 
            D3T2    246  XPL.*SKELETON.SX.10                1 SEQ      80   18 PAGE UM   JWS                 JULY 31, 1973  23:02.59
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/6 
00318/11    XPL                      *ANALYZER       SX  G          S0296 S296 'JOH XPL' POSN=ANAL@S                             7  
            D3T2    247  XPL.*ANALYZER.SX.11                1 SEQ      80   33 PAGE UM   JWS                 JULY 31, 1973  23:03.08
0          XPL PROGRAM TO ANALYZE A BNF DESCRIPTION OF A LANGUAGE AND PRODUCE TABLES FOR COMPILING IT.
00318/12    XPL                      *ANALYZER       O   G          S0296 S296 'JOH XPL' POSN=ANAL@O                             9  
            D3T2    248  XPL.*ANALYZER.O.12                 1 SEQ     240   24 PAGE UM   JWS                 JULY 31, 1973  23:03.14
0          XPL FORMAT OBJECT FILE.
0          Referenced by comments of: 495/5 
00318/13    XPL                      XPLBNF          D   G          S0296 S296 'JOH XPL' POSN=XPLBNF                             13 
            D3T2    249  XPL.XPLBNF.D.13                    1 SEQ      80    3 PAGE UM   JWS                 JULY 31, 1973  23:03.18
0          BNF DESCRIPTION OF XPL SUITABLE FOR INPUT TO *ANALYZER.
00318/14    XPL                      USER'S GUIDE    WF             S0721 'D3T2' FSNAME=XPL.USER'S_GUIDE.WF.14                   250
            D3T2    250  XPL.USER'S_GUIDE.WF.14             1 LINE    109    4 PAGE UM   JWS                 JULY 27, 1973  21:35.19
0          THIS IS COMPUTING CENTER MEMO M230 -- "XPL USER'S GUIDE"
00319      *FLIKPLT                                  OC             *FLIKPLT                                                        
            D3T2    251  FLIKPLT..OC.                       1 LINE     80   15 PAGE UM   ?                   JULY 31, 1973  23:03.29
0          PROGRAM TO PRODUCE CALCOMP OR PRINTER PLOT HARD COPY OF SC4020 FRAMES AS GENERATED BY *PIB (321).
           THE SOURCE IS NOT AVAILABLE.
            
           THIS FILE HAS 2 "$CONTINUE WITH *LIBRARY" RECORDS AND 1 "$CONTINUE WITH *PLOTSYS" RECORDS.
00320      *CREVOC                                                # (SEE COMP 084/12 AND 084/13)                                    
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00321      *PIB                                      OC             *PIB                                                            
            D3T2    252  PIB..OC.                           1 LINE     80  122 PAGE UM   ?                   JULY 31, 1973  23:03.31
0          THE POLYTECHNIC INSTITUTE OF BROOKLYN POLYGRAPHICS SUBROUTINES TO GENERATE SC4020 PLOTTING COMMANDS FOR THE
           PRODUCTION OF MOVIES, SLIDES, AND HARD COPY.  THE SOURCE IS NOT AVAILABLE.
0          Referenced by comments of: 319/1 
00322/01   *2260RTN                                  SA  G  D226    S0721 'D3T2' FSNAME=2260RTN..SA.1                            253
            D3T2    253  2260RTN..SA.1                      1 LINE     80   54 PAGE UM   MTA                 JULY 31, 1973  23:03.55
0          MTS DEVICE SUPPORT ROUTINES FOR IBM 2260 DISPLAY.
           FROM UBC.
00322/02   *2260RTN                                  OC  G          *2260RTN                                                        
            D3T2    254  2260RTN..OC.2                      1 LINE     80    4 PAGE UM   MTA                 JULY 31, 1973  23:04.03
00323      *VLIST                                                 # (SEE COMP 084/14 AND 084/15)                                    
                                                                                    UM                                              
00324/01    EDITOR                                   SA  G  EDIT    S0422 ARCHIV 'DWBARCHIVE' FSNAME=EDITOR.D3.SA                   
            D3T2    255  EDITOR..SA.1                       1 LINE     80   97 PAGE UM   DWB                 FEB. 02, 1973  21:38.36
0          THIS IS THE SOURCE FOR THE COMMAND LANGUAGE SUBSYSTEM (CLS) EDITOR.
           A SHARED COPY IS NORMALLY LOADED IN SEGMENT 2 AFTER IPL BY THE SEG 2 LOADER AND IS THEN EXECUTED BY THE $EDIT COMMAND.
           HOWEVER, IF THE SEG 2 LOADER HAS NOT BEEN RUN (I.E. THE SYMBOL 'EDITOR' IS NOT DEFINED IN LCSYMBOL),
           THEN MTS DYNAMICALLY LOADS A PRIVATE COPY OF THE EDITOR FROM THE FILE *CLSED INTO SEGMENT 4.
           NOTE:  THIS PROGRAM COPIES "MTS:CLSPLAN" WHICH NO LONGER EXISTS.  IF IT IS RE-ASSEMBLED, THE SOURCE SHOULD
                  BE CHANGED TO COPY "COPY:CLSPLAN" (535/1) INSTEAD.
00324/02    EDITOR                                   OC  G          SEG2:EDITOR                                                     
            D3T2    256  EDITOR..O.2                        1 LINE     80    9 PAGE UM   DWB                 JULY 31, 1973  23:08.18
0          THE SEG 2 LOADER LOADS THE CLS EDITOR INTO SEGMENT 2 FROM THIS FILE.
           THE SEG 2 LOADER FILE LIST (SEG2:S2FILES) COULD BE CHANGED TO LOAD THE EDITOR FROM *CLSED.
00324/03    EDITOR                                   OC  G          *CLSED                                                          
            D3T2    257  EDITOR..O.3                        1 LINE     80    9 PAGE UM   DWB                 JULY 31, 1973  23:08.19
0          MTS WILL DYNAMICALLY LOAD A PRIVATE COPY (SEGMENT 4) OF THE CLS EDITOR IF THE LCS SYMBOL 'EDITOR' IS UNDEFINED
           WHEN A $EDIT COMMAND IS ISSUED.  THE PRIVATE COPY IS LOADED FROM THIS FILE.
           THIS FILE IS (OR SHOULD BE) EXACTLY THE SAME AS 324/2.
00324/04    EDITOR                   MESSAGES        M              *EDEXPLAIN                                                      
            D3T2    258  EDITOR.MESSAGES.M.4                1 LINE     70    8 PAGE UM   DWB                 JULY 31, 1973  23:08.21
0          EDITOR EXPLANATION FILE, REFERENCED BY THE EDITOR "EXPLAIN" COMMAND.
00324/05    EDITOR                   *ED             SA  G  EDCL    DWB:EDCALLER.S                                                  
            D3T2    259  EDITOR.*ED.SA.5                    1 LINE     80    3 PAGE UM   DWB                 JULY 31, 1973  23:08.24
0          THIS IS A PROGRAM TO INTERFACE TO THE CLS EDITOR FROM THE $RUN LEVEL.
           IT REFERENCES ALL MANNER OF LOW-CORE STUFF IN PROVIDING A FAKE CLS T/V FOR THE EDITOR.
           THEREFORE, THE OBJECT (IN *ED) CONTAINS A RIP CARD AND EXTRA LCS CARD FOR THE 'SYSDEFS' LOW-CORE SYMBOL TABLE.
1                                                                                               FRI AUG 02/96   19:04:25   Page   98
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          NOTE:  THIS PROGRAM COPIES "MTS:STANDARDTV" WHICH NO LONGER EXISTS.  IF IT IS RE-ASSEMBLED, THE SOURCE SHOULD
                  BE CHANGED TO COPY "COPY:STANDARDTV" (535/3) INSTEAD.
00324/06    EDITOR                   *ED             OC  G          *ED                                                             
            D3T2    260  EDITOR.*ED.OC.6                    1 SEQ      80    2 PAGE UM   DWB                 JULY 31, 1973  23:08.26
00325      *ANALYZER                                              # (SEE COMP 318/11 AND 318/12)                                    
                                                                                    UM                                              
00326/01    STAT MONTHLY SUMMARY     MAIN PGM        SP             W041:STATP17.S(1,1999)                                          
            D3.2T1  171  STAT_MONTHLY_SUMMARY.MAIN.SP.01    1 LINE     99   26 PAGE UM   DWB                 MAR. 21, 1975  01:24:12
0          READS STATISTICS (*STATISTICS) TAPES WHICH HAVE BEEN COMBINED BY *CMB (256) AND PRINTS MANY PAGES OF
           INTERESTING (HOPEFULLY) INFORMATION ABOUT A MONTHS RUNNING OF THE SYSTEM.  IT ALSO READS STATISTICS
           FROM THE JOBS PROGRAM (413/13) AND PRINTS THAT INFORMATION. 
            
           THE FOLLOWING PL/I FILE NAMES ARE USED:
            
            STAT      INPUT TAPE(S).  IF NOT LABELED, SET @U(8192).
            SPRINT    OUTPUT.  SET @U(133).
            ERROR     LOG OF SKIPPED INPUT RECORDS AND LIST OF MINUTES WITH MORE THAN 90 USERS SIGNED ON.
            SYSTAT    INPUT FROM JOBS PROGRAM.  TAPE MUST BE FB(32400,108).
            SAVE      SAVE OR RESTORE INTERMEDIATE INFORMATION (SEE BELOW).
            SCARDS    USES GET LIST FOR 6 OR 7 ITEMS, FOLLOWED BY GET DATA FOR 2 VARIABLES:
            
                         1)   'MM'    MONTH TO ANALYZE, OR
                              '00'    LOOK AT ALL INPUT (REQUIRES 'FULL', 'CPU', AND 'MIXED')
            
                         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/11), 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)
            
1                                                                                               FRI AUG 02/96   19:04:25   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                        9)   DEBUG='1'B     PRODUCES GENERAL DEBUG OUTPUT.  PRINTS FOR ONLY N RECORDS IF TESTCOUNT GIVEN.
            
                      AT UM, THE NORMAL INPUT LINE USED IS:
            
                           'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE';
0          Referenced by comments of: 413/11 
00326/02    STAT MONTHLY SUMMARY     PPAGES SUBR     SP             W041:STATP17.S(2000,2999)                                       
            D3.2T1  172  STAT_MONTHLY_SUMMARY.PPAGE.SP.02   1 LINE     99   26 PAGE UM   DWB                 MAR. 21, 1975  01:24:18
0          SUBROUTINES CALLED BY MAIN PROGRAM.
00326/03    STAT MONTHLY SUMMARY     CPUSE SUBR      SP             W041:STATP17.S(3000,3999)                                       
            D3.2T1  173  STAT_MONTHLY_SUMMARY.CPUSE.SP.03   1 LINE     99   26 PAGE UM   DWB                 MAR. 21, 1975  01:24:20
0          SUBROUTINE WHICH READS JOBS STATISTICS DATA (SEE COMP 413/11) AND PRINTS THE RESULTS.  CALLED ONLY IF 'CPU'
           IS SPECIFIED FOR THE FIFTH PARAMETER.
00326/04    STAT MONTHLY SUMMARY     SETRATE         SP             W041:STATP17.S(4000,4999)                                       
            D3.2T1  174  STAT_MONTHLY_SUMMARY.SETRA.SP.04   1 LINE     99   26 PAGE UM   DWB                 MAR. 21, 1975  01:24:32
0          SUBROUTINE THAT FILLS IN A RATE STRUCTURE BY CALLING GETRATES.
           HAS BUILT-IN ASSUMPTION OF HOW RATE NUMBER IS COMPUTED.
           LINE 4034 IS THE FORMULA.  326/1 USES THE BUILT-IN OLD RATES,
           BUT CALLS SETRATE TO DYNAMICALLY CONSTRUCT THE CURRENT RATES.
00326/05    STAT MONTHLY SUMMARY     GETRATE         SA             W041:GETRATE(1,999)                                             
            D3.2T1  175  STAT_MONTHLY_SUMMARY.GETRA.SA.05   1 LINE     80    1 PAGE UM   DWB                 MAR. 21, 1975  01:24:35
0          SINCE PL1 IS UNABLE TO CALL AN EXTERNAL NAME OF 8 CHARACTERS (IT MODIFIES
           THE 8 CHARACTER NAME GETRATES INTO A 7 CHARACTER NAME), THIS 3 LINE ROUTINE
           DEFINES AN EXTERNAL NAME WHICH IS THAT 7 CHARACTER FORM FOR GETRATES AND THEN
           CALLS GETRATES.
00326/06    STAT MONTHLY SUMMARY     GETRATE         OC             W041:GETRATE(1000)                                              
            D3.2T1  176  STAT_MONTHLY_SUMMARY.GETRA.OC.06   1 LINE     80    1 PAGE UM   DWB                 MAR. 21, 1975  01:24:38
00326/07    STAT MONTHLY SUMMARY     OBJECT          OC             W041:STATP17.O                                                  
            D3.2T1  177  STAT_MONTHLY_SUMMARY.OBJEC.OC.07   1 LINE     80   65 PAGE UM   DWB                 MAR. 21, 1975  01:24:40
00327       XPLBNF                                   D            # (SEE COMP 318)                                                  
                                                                                    UM                                              
00328/01    ALLLINES                                 SA           # (OBSOLETE)                                                      
            D2T1    264                                                             UM                                              
00328/02    ALLLINES                                 O            # (OBSOLETE)                                                      
            D2T1    265                                                             UM                                              
00329      *SKELETON                                              # (SEE COMP 318)                                                  
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00330/01    ABKGET                                   SP  O          W041:ABKGET.S4                                                  
            D3T2    265  ABKGET..SP.1                       1 LINE     80    3 PAGE UM   DWB                 JULY 31, 1973  23:08.45
0          PROGRAM TO SORT AND TABULATE TERMINAL ANSWERBACK STATISTICS FROM *STATISTICS DATA.
00330/02    ABKGET                                   OC  O          W041:ABKGET.O4                                                  
            D3T2    266  ABKGET..OC.2                       1 LINE     80    5 PAGE UM   DWB                 JULY 31, 1973  23:08.47
00331       INITLOG                                               # (SEE COMP 097)                                                  
                                                                                    UM                                              
00332       UPGEN                                    S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00333       5LINE                                    S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00334/01   *SNOBOL4B                 S4              SA  G          S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80)                  1  
            D3T2    267  SNOBOL4B.S4.SA.1                   1 SEQ      80  107 PAGE UM   DE JONG             JULY 31, 1973  23:13.39
0          BELL LABS SOURCE FOR VERSION 3.6 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.6).
00334/02   *SNOBOL4B                 SUBR            SA  G          S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80)                  6  
            D3T2    268  SNOBOL4B.SUBR.SA.2                 1 SEQ      80   49 PAGE UM   DE JONG             JULY 31, 1973  23:14.01
0          BELL LABS SOURCE FOR SUBROUTINES.
00334/03   *SNOBOL4B                 BASIC MACROS    SA  G          S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80)                  4  
            D3T2    269  SNOBOL4B.BASIC_MACROS.SA.3         1 SEQ      80   41 PAGE UM   DE JONG             JULY 31, 1973  23:14.15
0          BELL LABS SOURCE FOR BASIC MACROS.
00334/04   *SNOBOL4B                 NEW MACROS      SA  G          S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80)                  3  
            D3T2    270  SNOBOL4B.NEW_MACROS.SA.4           1 SEQ      80    5 PAGE UM   DE JONG             JULY 31, 1973  23:14.21
0          BELL LABS SOURCE FOR NEW MACROS.
00334/05   *SNOBOL4B                 CLEANIO         SA  G          S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80)                  5  
            D3T2    271  SNOBOL4B.CLEANIO.SA.5              1 SEQ      80    8 PAGE UM   DE JONG             JULY 31, 1973  23:14.24
0          BELL LABS SOURCE FOR CLEANIO.
00334/06   *SNOBOL4B                 UPDATE          UU             S0721 'D3T2' FSNAME=SNOBOL4B.UPDATE.UU.6                     272
            D3T2    272  SNOBOL4B.UPDATE.UU.6               1 LINE     80   21 PAGE UM   DE JONG             JULY 30, 1973  03:32.45
0          *UPDATE DECK TO MODIFY BELL LABS SOURCE TO MAKE THE NECESSARY CHANGES TO RUN IT IN MTS.
00334/07   *SNOBOL4B                 OBJECT          OE             *SNOBOL4B                                                       
            D3T2    273  SNOBOL4B.OBJECT.O.7                1 SEQ   32767   37 PAGE UM   DE JONG             JULY 31, 1973  23:14.34
00334/08   *SNOBOL4B                 MACLEAN                      # (SEE COMP 182)                                                  
                                                                                    UM   DE JONG                                    
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00334/09   *SNOBOL4B                 WRITEUP         WF           # (SEE COMP 182)                                                  
                                                                                    UM   DE JONG                                    
00335/01   *DITTO                                    SA  G  DTTO    S0721 'D3T2' FSNAME=DITTO..SA.1                              274
            D3T2    274  DITTO..SA.1                        1 LINE     80    8 PAGE UM   LIFT                JULY 31, 1973  23:14.38
0          PROGRAM TO PRODUCE DITTO (OR OTHER DUPLICATING PROCESS) MASTERS ON A 2741 OR 1050. 
00335/02   *DITTO                                    OL  G          *DITTO                                                          
            D3T2    275  DITTO..OL.2                        1 SEQ    1874    1 PAGE UM   LIFT                JULY 31, 1973  23:14.40
00336/01    SPL                      SUBMONITOR      SA             S0721 'D3T2' FSNAME=SPL.SUBMONITOR.SA.1                      277
            D3T2    277  SPL.SUBMONITOR.SA.1                1 SEQ      80   21 PAGE UM   SALISBURY           JULY 31, 1973  23:16.06
0          UNMODIFIED UBC PROGRAM TO INTERFACE SPL TO MTS (UNCHANGED SINCE DIST 2.0).  PROGRAM LOADS SPL COMPILER
           FROM *SPLCOMPILER WHICH IS AN XPL OBJECT FILE. 
0          Referenced by comments of: 318/3 
00336/02    SPL                      TRACE           SA           # (SEE COMP 318)                                                  
                                                                                    UM   SALISBURY                                  
0          TRACE PROGRAM.
00336/03    SPL                      OBJECT          OC             *SPL                                                            
            D3T2    278  SPL.OBJECT.OC.3                    1 LINE     80    6 PAGE UM   SALISBURY           JULY 31, 1973  23:16.08
0          OBJECT FOR INTERFACE (WITH PATCH FOR VM SIZE) AND TRACE.
00336/04    SPL                      COMPILER        SX             S0721 'D3T2' FSNAME=SPL.COMPILER.SX.4                        279
            D3T2    279  SPL.COMPILER.SX.4                  1 SEQ      80  160 PAGE UM   SALISBURY           JULY 31, 1973  23:16.33
0          THE STUDENT PROGRAMMING LANGUAGE COMPILER FROM STANFORD BY WAY OF UNIV OF BRITISH COLUMBIA. THIS IS NOT THE SHARE
           DISTRIBUTION OF SPL, BUT RATHER AN EARLIER ONE BY SOME OTHER ROUTE. IT HAS HOWEVER BEEN WORKED ON BY UNIV OF MICH
           AND SOME OF THE MORE IMPORTANT BUGS IN THE EARLY VERSION WERE FIXED. THIS FILE CONTAINS THE CURRENT UM XPL SOURCE.
           UNCHANGED SINCE DIST 2.
00336/05    SPL                      COMPILER        O              *SPLCOMPILER                                                    
            D3T2    280  SPL.COMPILER.O.5                   1 SEQ     240   49 PAGE UM   SALISBURY           JULY 31, 1973  23:16.49
0          XPL FORMAT OBJECT FILE FOR SPL COMPILER.
00337/01    PRINT TRACE                              SA  G  PTTR    MTA:PRINTTRACE(1,999)                                           
            D3.2T1  178  PRINT_TRACE..SA.01                 1 LINE     80    9 PAGE UM   MTA                 MAR. 21, 1975  01:24:52
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/2 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00337/02    PRINT TRACE                              OC  G          MTA:PRINTTRACE(1000,1999)                                       
            D3.2T1  179  PRINT_TRACE..OC.02                 1 LINE     80    6 PAGE UM   MTA                 MAR. 21, 1975  01:24:55
00338/01    RIPPLE                   PN/QN           SA  O  RPLE    MTA:RIPPLE(1,999)                                               
            D3T2    283  RIPPLE.PN/QN.SA.1                  1 LINE     80    1 PAGE UM   MTA                 JULY 31, 1973  23:16.59
0          PROGRAM TO RIPPLE PRINT ON A PN OR QN PRINTER.  USEFUL FOR CLEANING A TRAIN OR CHECKING OUT A PRINTER.
           OLTS (458) DOES A BETTER JOB.
00338/02    RIPPLE                   PN/QN           OC  O          MTA:RIPPLE(1000)                                                
            D3T2    284  RIPPLE.PN/QN.OC.2                  1 LINE     80    1 PAGE UM   MTA                 JULY 31, 1973  23:17.00
00338/03    RIPPLE                   *RIP            C              *RIP                                                            
            D3T2    285  RIPPLE.*RIP.C.3                    1 LINE     36    1 PAGE UM   MTA                 JULY 31, 1973  23:17.03
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/04    RIPPLE                   TN              SA  O  TNRP    MTA:TNRIP(1,999)                                                
            D3T2    286  RIPPLE.TN.SA.4                     1 LINE     80    1 PAGE UM   MTA                 JULY 31, 1973  23:17.05
0          SAME AS 338/1 EXCEPT FOR TN PRINTERS.
00338/05    RIPPLE                   TN              OC  O          MTA:TNRIP(1000)                                                 
            D3T2    287  RIPPLE.TN.OC.5                     1 LINE     80    1 PAGE UM   MTA                 JULY 31, 1973  23:17.07
00338/06    RIPPLE                   *TNR            C              *TNR                                                            
            D3T2    288  RIPPLE.*TNR.C.6                    1 LINE     18    1 PAGE UM   MTA                 JULY 31, 1973  23:17.09
0          SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000).
00339       WRITE80                                  S            # (OBSOLETE)                                                      
            D2T1    165                                                             UM                                              
00340/01    READRESTP                                SA  O  RDRS    MTA:READRESTP(1,94)                                             
            D3T2    289  READRESTP..SA.1                    1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  23:17.11
0          PROGRAM WHICH WILL READ A 2311 OR 2314 DUMP/RESTORE TAPE AND EXTRACT THINGS FROM AN OS PDS.
           IT PRODUCES OUTPUT THAT CAN BE USED AS INPUT TO *UNLINKER (562).  IT SHOULD BE RUN WITH SDS AS IT READS NO
           PARAMETERS BUT EXPECTS THEM TO BE MODIFIED IN CORE.  IT WILL READ EITHER A LOAD MODULE OR A CARD IMAGE
           MEMBER.
00340/02    READRESTP                SUBROUTINE      SA  O  SUBR    MTA:READRESTP(95)                                               
            D3T2    290  READRESTP.SUBROUTINE.SA.2          1 LINE     80    5 PAGE UM   MTA                 JULY 31, 1973  23:17.13
0          SUBROUTINE CALLED BY 340/1.
00340/03    READRESTP                                O            # (NOT DISTRIBUTED)                                               
                                                                                    UM   MTA                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00341/01    RDRSTP                   UNLINK          SA           # (OBSOLETED BY *UNLINKER)                                        
            D2T1    168                                                             UM                                              
00341/02    RDRSTP                   BLKRTN          SA           # (OBSOLETED BY *UNLINKER)                                        
            D2T1    169                                                             UM                                              
00342       LIBPRINT                                 S            # (OBSOLETE)                                                      
            D2T1    171                                                             UM                                              
00343       MTS.CONTAB                               SA  G          COPY:MTS.CONTAB                                                 
            D3.2T1  180  MTS.CONTAB..SA.                    1 LINE     80    4 PAGE UM   DWB                 MAR. 21, 1975  01:24:57
0          THIS IS "COPY:MTS.CONTAB" WHICH IS COPIED BY ALL PROGRAMS THAT USE THE MTS DSECT.
           COPY:LLMPSEQU (087) AND COPY:MTS.EQU (345) MUST BE COPIED BEFORE THIS FILE CAN BE COPIED.
0          Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 354/1, 462/1, 464/1, 531/1, 539/1, 578/1, 635/1, 636/1, 637/1,
                 638/1, 639/1, 651/10 
00344       MTS.MACROS                               SM  G  MMAC    COPY:MTS.MACROS                                                 
            D3.2T1  181  MTS.MACROS..SM.                    1 LINE     80    7 PAGE UM   DWB                 MAR. 21, 1975  01:24:59
0          THIS IS "COPY:MTS.MACROS" WHICH IS USED TO ASSEMBLE MTS (042) AND THE "MTS SUBROUTINES":  KWIC (040),
           GETSPACE/FREESPAC (041), GUINFO/CUINFO (198), LLXU (354), CHECKSUM (462), PLIMIT (464), TIMNTRP (539),
           AND RSF (578), FSUB (635), CMDS (636), DSRS (637), USUB (638), AND DSRI (639).
           IN ADDITION, THESE MACROS ARE USED BY CMDSTAT (531/1), CMDPIKUP (531/4), AND CMDTAPE (531/8).
0          Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 354/1, 462/1, 464/1, 539/1, 578/1, 635/1, 636/1, 637/1, 638/1,
                 639/1 
00345       MTS.EQU                                  SA  G          COPY:MTS.EQU                                                    
            D3.2T1  182  MTS.EQU..SA.                       1 LINE     80    4 PAGE UM   DWB                 MAR. 21, 1975  01:25:01
0          THIS IS "COPY:MTS.EQU" WHICH IS COPIED BY ALL PROGRAMS WHICH USE THE MTS DSECT.
           IT ENDS WITH A "$CONTINUE WITH COPY:MTS.EQU2" (347).
0          Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 343/1, 354/1, 462/1, 464/1, 531/1, 531/4, 531/8, 539/1, 578/1,
                 635/1, 636/1, 637/1, 638/1, 639/1, 651/10 
00346       MTS.DSECT                                SA  G          COPY:MTS.DSECT                                                  
            D3.2T1  183  MTS.DSECT..SA.                     1 LINE     80   20 PAGE UM   DWB                 MAR. 21, 1975  01:25:03
0          THIS IS "COPY:MTS.DSECT" WHICH IS A COPY SECTION FOR THE MAIN MTS DSECTS.  CONTAINS THE FOLLOWING CONTINUE WITH'S:
               $CONTINUE WITH COPY:UBCDSECTS RETURN         (645)
               $CONTINUE WITH COPY:WOPTRDSECT RETURN        (624)
               $CONTINUE WITH COPY:FCBDSECT RETURN          (622)
               $CONTINUE WITH COPY:FDUBDSECT RETURN         (623)
               $CONTINUE WITH COPY:CLSAREA RETURN           (641)
           AND $CONTINUE WITH COPY:STATDSECT RETURN         (620)
0          Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 354/1, 462/1, 464/1, 531/1, 539/1, 578/1, 635/1, 636/1, 637/1,
                 638/1, 639/1, 641/1, 645/1, 651/10 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00347       MTS.EQU2                                 SA  G          COPY:MTS.EQU2                                                   
            D3.2T1  184  MTS.EQU2..SA.                      1 LINE     81    4 PAGE UM   DWB                 MAR. 21, 1975  01:25:08
0          THIS IS "COPY:MTS.EQU2" WHICH IS THE SECOND SECTION OF THE MTS EQUALITIES.  THIS IS THE ONLY SECTION COPIED BY HASP.
0          Referenced by comments of: 345/1, 482/44 
00348       MTS.RHTABLE                              SA  G          COPY:MTS.RHTABLE                                                
            D3.2T1  185  MTS.RHTABLE..SA.                   1 LINE     80    3 PAGE UM   DWB                 MAR. 21, 1975  01:25:10
0          "COPY:MTS.RHTABLE" DEFINES THE RIGHT HAND TABLE FOR THE KWIC CALLS BY MTS.  COPIED BY MTS (042) AND KWIC (040).
0          Referenced by comments of: 40/1, 42/1 
00349       OPEROPEROPER                                          # (OBSOLETE)                                                      
                                                                                    UM                                              
00350       BLOCKLETTER                              SA           # (OBSOLETE)                                                      
            D2T1    252                                                             UM                                              
00351       DCVD SUBROUTINE                                       # (SEE COMP 084)                                                  
                                                                                    UM                                              
00352       DCVC SUBROUTINE                                       # (SEE COMP 084)                                                  
                                                                                    UM                                              
00353/01    BABYSIT                                  SA  O  BBST    WSG:BBSIT(1,999)                                                
            D3T2    297  BABYSIT..SA.1                      1 LINE     80    4 PAGE UM   WSG                 JULY 31, 1973  23:17.28
0          PROGRAM TO WATCH FOR SPECIFIED USERS TO SIGNON OR SIGNOFF. USEFUL FOR CATCHING A PIRATE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
00353/02    BABYSIT                                  OC  O          WSG:BBSIT(1000)                                                 
            D3T2    298  BABYSIT..OC.2                      1 LINE     80    1 PAGE UM   WSG                 JULY 31, 1973  23:17.30
00353/03    BABYSIT                  *BBS            C              *BBS                                                            
            D3T2    299  BABYSIT.*BBS.C.3                   1 LINE     67    1 PAGE UM   WSG                 JULY 31, 1973  23:17.32
0          COMMAND FILE INVOKED BY ENTERING "MTS *BBS" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "OPER" AND
           RUNS WSG:BBSIT(1000) WITH I/O ON THE OPERATOR'S CONSOLE.
00354/01    LLXU                     D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=LLXU                  7  
            D3T2    300  LLXU..SA.1                         1 SEQ      80   31 PAGE UM   DWB                 JULY 31, 1973  23:19.10
0          LOAD/LINK/XCTL/UNLOAD SUBROUTINES, THE INTERFACE BETWEEN MTS AND UMLOAD.
           COPIES COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:CLSPLAN (535/1), COPY:MTS.DSECT (346), COPY:LLMPSEQU (087), 
           COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640).
           NEEDS MACROS IN COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1, 354/2 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00354/02    LLXU                     UPDATE          UU  G          MTS:LLXUUPD                                                     
            D3.2T1  186  LLXU.UPDATE.UU.02                  1 LINE     71   10 PAGE UM   DWB                 MAR. 21, 1975  01:25:11
0          UPDATE TO D3 MASTER (354/1) TO PRODUCE CURRENT SOURCE.
           UPDATE DECK USES %POSN *IN* LLXU.
00354/03    LLXU                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00354/04    LLXU                     LLXUTEST        SA             W009:LLXUTEST.S                                                 
            D3.1T1  249  LLXU.LLXUTEST.SA.4                 1 LINE     60    5 PAGE UM   DE JONG             MAR. 06, 1974  03:52.20
0          PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD.  ASSEMBLE USING THE 354/6 MACRO LIBRARY.
0          Referenced by comments of: 354/6 
00354/05    LLXU                     LLXUTEST        OC             W009:LLXUTEST.O                                                 
            D3.1T1  250  LLXU.LLXUTEST.OC.5                 1 LINE     80    4 PAGE UM   DE JONG             MAR. 06, 1974  03:52.23
00354/06    LLXU                     MACROS          SM             W009:MACROS                                                     
            D3T2    303  LLXU.MACROS.SM.5                   1 LINE     44    1 PAGE UM   DE JONG             JULY 31, 1973  23:19.18
0          MACROS USED TO ASSEMBLE LLXUTEST (354/4).
00355/01    STATSCN                                  SA  G  STSC    WSG:STATSCN(1,999)                                              
            D3T2    304  STATSCN..SA.1                      1 LINE     80    7 PAGE UM   WSG                 JULY 31, 1973  23:19.20
0          PROGRAM TO READ THROUGH *STATISTICS DATA (FROM FILE OR TAPE) LOOKING FOR SPECIFIED USER ID-DATE
           COMBINATIONS.  RECORDS FOR ANY OF THE SPECIFIED USERS ON THE SPECIFIED DATES ARE WRITTEN ON SPUNCH.
           FOR EXAMPLE:
                         $RUN STATSCN(1000) SPUNCH=-F
                         WSG. 05-08-73
                         STRT 04-XX-73
                         DONE
                         *TAPE*
                         *STATISTICS
                         DONE
            
           WILL SCAN THROUGH THE TAPE *TAPE* AND THE FILE *STATISTICS LOOKING FOR ALL STATISTICS RECORDS FOR USER
           "WSG." ON 8 MAY 1973 AND USER "STRT" ON ANY DAY IN APRIL 1973 (NOTE THAT XX'S MAY BE USED IN ANY FIELD(S)
           OF THE DATE OR "XXXX" GIVEN TO ACCEPT ANY USER ID).  THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE).
           THE LISTSTAT PROGRAM (071) CAN BE USED TO PRINT THE STATISTICS RECORDS.  FOR EXAMPLE:
            
                         $RUN LISTSTAT(1000) SCARDS=-F
            
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:STATDSECT (620).
00355/02    STATSCN                                  OC  G          WSG:STATSCN(1000)                                               
            D3T2    305  STATSCN..OC.2                      1 LINE     80    2 PAGE UM   WSG                 JULY 31, 1973  23:19.25
00357/01    RCALL                                    SA  G  RCAL    S0721 'D3T2' FSNAME=RCALL..SA.1                              306
            D3T2    306  RCALL..SA.1                        1 SEQ      80    2 PAGE UM   ENGLE               JULY 31, 1973  23:20.43
0          SUBR TO ALLOW FORTRAN PROGRAMS TO CALL SUBROUTINES WITH R TYPE CALLING SEQUENCES, E.G. GETFD.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          UNCHANGED FROM DIST 2.0.
00357/02    RCALL                                    OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00358/01   *TAPECOPY                                 SA  G  TPCP    WSG:TAPECOPY(1,999)                                             
            D3.2T1  187  TAPECOPY..SA.01                    1 LINE     80   17 PAGE UM   WSG                 MAR. 21, 1975  01:25:14
0          MULTIPLE FILE TAPE COPY PROGRAM.  COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK.
00358/02   *TAPECOPY                                 OC  G          *TAPECOPY                                                       
            D3.2T1  188  TAPECOPY..OC.02                    1 LINE     80    3 PAGE UM   WSG                 MAR. 21, 1975  01:25:19
00359       SORT SUBROUTINE                                       # (SEE COMP 303)                                                  
                                                                                    UM                                              
00360/01    TIME SUBROUTINE                          SA  G  TIME    S0721 'D3T2' FSNAME=TIME_SUBROUTINE..SA.1                    309
            D3T2    309  TIME_SUBROUTINE..SA.1              1 LINE     80    6 PAGE UM   ENGLE               JAN. 05, 1973  12:33.55
0          SUBROUTINE TO DO THINGS WITH THE TIME, BOTH CPU AND ELAPSED.
00360/02    TIME SUBROUTINE                          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00361       BAIR                                     S            # (NOT DISTRIBUTED)                                               
            D2T1    397                                                             UM   HARDING                                    
0          SUBR TO USE BAIRSTOWS ITERATION METHOD TO REFINE THE COEFFICIENTS OF A QUADRATIC FACTOR OF
           AN N DEGREE POLYNOMIAL.  APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00362       DAINT                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    398                                                             UM   HARDING                                    
0          INTERPOLATION SUBR IN LONG PRECISION.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00363       GRAND                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    399                                                             UM   HARDING                                    
0          SUBR TO GENERATE NORMALLY DISTRIBUTED RANDOM NUMBERS.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00364       JESS                                     S            # (NOT DISTRIBUTED)                                               
            D2T1    400                                                             UM   HARDING                                    
0          SUBR IMPLENTING THE JACOBI METHOD FOR THE EIGENVALUE PROBLEM.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00365       LINC                                     S            # (NOT DISTRIBUTED)                                               
            D2T1    401                                                             UM   HARDING                                    
0          SUBR TO COMPUTE THE LAGUERRE INCREMENT.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00366       QDIV                                     S            # (NOT DISTRIBUTED)                                               
            D2T1    402                                                             UM   HARDING                                    
0          SUBROUTINE TO DIVIDE A POLYNOMIAL BY A QUADRATIC FACTOR.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00367       SAINT                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    403                                                             UM   HARDING                                    
0          SHORT PRECISION INTERPOLATION.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00368       SINV                                     S            # (NOT DISTRIBUTED)                                               
            D2T1    404                                                             UM   HARDING                                    
0          MATRIX INVERSION SUBR.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00369       SINV1                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    405                                                             UM   HARDING                                    
0          SUBR TO INVERT A LOWER TRIANGULAR MATRIX.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00370       SLRD                                     S            # (NOT DISTRIBUTED)                                               
            D2T1    406                                                             UM   HARDING                                    
0          SUBR FOR DECOMPOSITION OF A SQUARE SYMMETRIC MATRIX.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00371       TSEP                                     S            # (NOT DISTRIBUTED)                                               
            D2T1    407                                                             UM   HARDING                                    
0          SUBR FOR TAYLOR SERIES EXPANSION OF A POLYNOMIAL.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00372       URAND                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    408                                                             UM   HARDING                                    
0          SUBR TO GENERATE UNIFORMALLY DISTRIBUTED RANDOM NUMBERS.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00373       ZLOOK                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    409                                                             UM   HARDING                                    
0          SUBR TO SEARCH THE UPPER PLANE FOR A ROOT OF AN N DEGREE POLYNOMIAL.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00374       ZPOLY                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    410                                                             UM   HARDING                                    
0          SCRATCH STORAGE FOR ZPOLY2 (375)
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00375       ZPOLY2                                   S            # (NOT DISTRIBUTED)                                               
            D2T1    411                                                             UM   HARDING                                    
0          SUBR TO FIND ALL ZEROS OF A POLYNOMIAL.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
0          Referenced by comments of: 374/1 
00376       ZPR                                      S            # (NOT DISTRIBUTED)                                               
            D2T1    412                                                             UM   HARDING                                    
0          SUBR TO FIND A ZERO OF A POLYNOMIAL.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00377       ZQUAD                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    413                                                             UM   HARDING                                    
0          SUBR TO FIND ROOTS OF A QUADRATIC.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00385       CATALOG SUBR                                          # (SEE COMP 482)                                                  
                                                                                    UM                                              
00386       READ/WRITE SEQUENTIAL                                 # (SEE COMP 482)                                                  
                                                                                    UM                                              
00387/01    HASP                     D3 MASTER       SA  G          S0644 HASP3S 'HASP DISTR 3.0 SOURCE'                         1  
            D3T2    310  HASP.MASTER_SOURCE.SA.1            1 SEQ      80  383 PAGE UM   DWB                 AUG. 02, 1973  02:25.09
0          HASP MASTER SOURCE FOR DIST 3.  THIS IS THE COMPLETE SOURCE FOR MTS HASP VERSION D3, WHICH IS DERIVED FROM
           IBM HASP II VERSION 2.3.  THIS VERSION OF HASP DOES NOT REQUIRE *OSMAC FOR ASSEMBLY.
           THIS VERSION NOW USES THE SLT (SEARCH LIST) INSTRUCTION, OPTIONALLY (&NOSLT), TO SEARCH PCE'S, DCT'S, AND
           MESSAGE BLOCKS.  COPIES COPY:JOBSTA (413/14), COPY:LLMPSEQU (087), COPY:WOPTRDSECT (624), COPY:FCBDSECT (622),
           AND COPY:FDUBDSECT (623).
0          Referenced by comments of: 243/1, 387/2 
00387/02    HASP                     UPDATE          UU  G          MTS:HASPUPDATES                                                 
            D3.2T1  189  HASP.UPDATE.UU.02                  1 LINE     77   17 PAGE UM   DWB                 MAR. 21, 1975  01:25:21
0          UPDATE DECK TO PRODUCE CURRENT SOURCE FROM D3 HASP MASTER SOURCE (387/1).
            
           HASP NOW USES THE SYSPARM PARAMETER TO SET CERTAIN ASSEMBLY PARAMETERS.  THIS IS USED BY SPECIFYING
            
              $RUN *ASMG  . . .  PAR=SYSPARMS='P1,P2,...', . . .
            
           WHERE P1, P2, ETC. ARE THE VALUES FOR THE PARAMETERS (IN ORDER). OMITTED PARAMETERS ASSUME DEFAULT VALUES.
            
               PARAMETER DEFAULT
               NUMRDRS      2
               NUMPRTS      4
               NUMPUNS      1
               NUMRJE       21
               NUMCONS      3
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0              MAX2314      0
               MAX7330      1
               MAXXEQS      25
               MAXJOBS      600
               NUMBUF       100
               TIMER        YES
               NUMTPBUF     50
               BSC2780      YES
               BSCCPU       YES
               UM           YES
               OMR          YES
               NOSLT        0
            
           NOTE:  THIS UPDATE CAUSES COPY:GLOBALDEFS (1026/1) AND COPY:GLOBALSETS (1026/2)
                  TO BE COPIED IN ADDITION TO THE ITEMS LISTED FOR 387/1.
00387/03    HASP                                     OC  G          SEG2:HASP                                                       
            D3.2T1  190  HASP..OC.03                        1 LINE     80   39 PAGE UM   DWB                 MAR. 21, 1975  01:25:29
0          THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL.
           THIS FILE ALSO CONTAINS THE HASPLING OBJECT.
            
           CONTAINS REPS TO CHANGE SEVERAL REMOTE STATION PARAMETERS AND TO ADD A 'BPI'
           TO THE LINE MANAGER TO RECOVER AFTER SDA ERRORS.
00387/04    HASP                     HRTP1130        SA  G  1130    MTS:HRTP1130.U                                                  
            D3T2    318  HASP.HRTP1130.SA.10                1 LINE     80  169 PAGE UM   JWS                 AUG. 02, 1973  02:30.40
0          REMOTE TERMINAL PROGRAM FOR 1130.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/05    HASP                     HRTPLOAD        SA  G  LOAD    MTS:HRTPLOAD.U                                                  
            D3T2    319  HASP.HRTPLOAD.SA.11                1 LINE     80   37 PAGE UM   JWS                 AUG. 02, 1973  02:31.04
0          LOADER FOR REMOTE 1130 PROGRAM.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/06    HASP                     HRPTB360        SA  G  B360    MTS:HRTPB360.U                                                  
            D3T2    320  HASP.HRPTB360.SA.12                1 LINE     80  105 PAGE UM   JWS                 AUG. 02, 1973  02:31.10
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 D3.0 (WHICH
                  WAS DERIVED PRINCIPALLY FROM HASP II VERSION 2.3).
00387/07    HASP                     HRTPSYS3        SA  G  SYS3    MTS:HRTPSYS3.U                                                  
            D3T2    321  HASP.HRTPSYS3.SA.13                1 LINE     80   98 PAGE UM   JWS                 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/08    HASP                     RTPBOOT         B   G          W092:RTPBOOT                                                    
            D3T2    322  HASP.RTPBOOT.B.14                  1 LINE    160    1 PAGE UM   JWS                 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.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00387/09    HASP                     LETRRIP         SA  G  LETI    S0721 'D3T2' FSNAME=HASP.LETRRIP.SA.15                       323
            D3T2    323  HASP.LETRRIP.SA.15                 1 LINE     80    2 PAGE UM   MTA                 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/10    HASP                     LETRRIP         OC  G          S0721 'D3T2' FSNAME=HASP.LETRRIP.OC.16                       324
            D3T2    324  HASP.LETRRIP.OC.16                 1 LINE     80    6 PAGE UM   MTA                 AUG. 02, 1973  02:31.44
0          OBJECT IS IN 3 PARTS:  (1) THE OS/360 OBJECT FOR LETRRIP FROM HASP WITH REP CARDS TO PATCH ALL OS SVC'S INTO
           INVALID OP-CODES (TO PRODUCE PROGRAM INTERRUPTS WHICH CAN BE FIELDED), (2) THE OBJECT FROM 387/9, AND (3) THE
           OBJECT FOR THE ALGOL COMPILER (OR LIBRARY) MTS INTERFACE (COMP 505/2 OR 505/22).
00387/11    HASP                     *HSP            C              *HSP                                                            
            D3T2    325  HASP.*HSP.C.17                     1 LINE      9    1 PAGE UM   WSG                 AUG. 02, 1973  02:31.47
0          COMMAND FILE WHICH SIGNS ON AND SOURCES TO STRT:HSP (387/12).
           INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE.
00387/12    HASP                     STRT:HSP        C              STRT:HSP                                                        
            D3.1T1  255  HASP.STRT:HSP.C.12                 1 LINE     23    1 PAGE UM   WSG                 MAR. 06, 1974  03:52.44
0          THIS FILE ISSUES BUNCHES OF HASP COMMANDS ($START ET AL).
           THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE I/O GEAR IN USE AT EACH INSTALLATION.
0          Referenced by comments of: 387/11 
00387/13    HASP                     *DRN            C              *DRN                                                            
            D3T2    327  HASP.*DRN.C.19                     1 LINE      9    1 PAGE UM   WSG                 AUG. 02, 1973  02:31.51
0          COMMAND FILE WHICH SIGNS ON AND SOURCES TO STRT:DRN (387/14).
           INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE.
00387/14    HASP                     STRT:DRN        C              STRT:DRN                                                        
            D3.1T1  256  HASP.STRT:DRN.C.14                 1 LINE     13    1 PAGE UM   WSG                 MAR. 06, 1974  03:52.45
0          THIS FILE ISSUES "$DRAIN SAXX" HASP COMMANDS.
           THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE SDA LINES AVAILABLE (IF ANY) AT EACH INSTALLATION.
0          Referenced by comments of: 387/13 
00387/15    HASP                     OPER MANUAL     WF             MTS:HASPMANUAL                                                  
            D3T2    329  HASP.OPER_MANUAL.WF.21             1 LINE    152   24 PAGE UM   DWB                 AUG. 02, 1973  02:31.55
0          MTS HASP OPERATOR'S MANUAL.  NOTE:  SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592).
00387/16    HASP                     INSTALLATION    WF             MTS:HASPCHANGES                                                 
            D3T2    330  HASP.INSTALLATION.WF.22            1 LINE    126    6 PAGE UM   DWB                 AUG. 02, 1973  02:32.01
0          NOTES DESCRIBING MTS IMPLEMENTATION AND INSTALLATION OF HASP.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00387/17    HASP                     ASM JOB         C              MTS:HASPASM                                                     
                                                                                    UM   DWB                                        
0          BATCH JOB TO ASSEMBLE HASP -- START AT LINE 1 FOR 360; LINE 1000 FOR 370.
00388/01    HASPLING                                 SA  G  HSPL    MTS:HASPLING.370(1,999)                                         
            D3.2T1  191  HASPLING..SA.01                    1 LINE     80   18 PAGE UM   MTA                 MAR. 21, 1975  01:25:32
0          NEW MASTER SOURCE FOR THE HASPLING.
           COPIES COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:SETPARM (653).
           NOTE:  &S370 CAUSES THE 360 AND 370 OBJECT TO BE DIFFERENT.
00388/02    HASPLING                 370 OBJECT      OC  G        # (PART OF 387/3)                                                 
                                                                                    UM   MTA                                        
00388/03    HASPLING                 360 OBJECT      OC  G        = ???                                                             
                                                                                    UM   MTA                                        
00389/01   *GENLIB                                   SA  G  GENL    W062:GENLIB.S                                                   
            D3T2    332  GENLIB..SA.1                       1 SEQ      80   32 PAGE UM   TIFFANY             AUG. 02, 1973  02:32.09
0          OBJECT LIBRARY GENERATOR PROGRAM.
00389/02   *GENLIB                                   OE  G          *GENLIB                                                         
            D3T2    333  GENLIB..O.2                        1 LINE    255    4 PAGE UM   TIFFANY             AUG. 02, 1973  02:32.15
00390/01   *QUE                                      SA  G  HSPQ    S0721 'D3T2' FSNAME=QUE..SA.1                                334
            D3T2    334  QUE..SA.1                          1 SEQ      80    2 PAGE UM   PIRKOLA             AUG. 02, 1973  02:35.17
0          PROGRAM TO PRINT OUT HASP QUEUE.
00390/02   *QUE                                      OC  G          *QUE(3,26)                                                      
            D3T2    335  QUE..OC.2                          1 LINE     80    1 PAGE UM   PIRKOLA             AUG. 02, 1973  02:35.17
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 
00393       TRIP                                     S            # (NOT DISTRIBUTED)                                               
            D2T2    199                                                             UBC  HOGG                                       
0          TRIANGLULAR REGRESSION PROGRAM FROM UBC.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00394       UBC TAPE ROUTINES                        S            # (OBSOLETE)                                                      
            D2T1    102                                                             UBC                                             
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00395       UBC MOUNT                                S            # (OBSOLETE)                                                      
            D2T1    256                                                             UBC                                             
00396       UBC DISMOUNT                             S            # (OBSOLETE)                                                      
                                                                                    UBC                                             
00397       UBC LABEL FULL TAPE                      S            # (OBSOLETE)                                                      
            D2T1    179                                                             UBC                                             
00398       UBC LABEL EMPTY TAPE                     S            # (OBSOLETE)                                                      
            D2T1    181                                                             UBC                                             
00399/01    SYSTEM DUMP                              SA  G  DUMP    MTA:DUMP(1,999)                                                 
            D3.2T1  192  SYSTEM_DUMP..SA.01                 1 LINE     80   13 PAGE UM   MTA                 MAR. 21, 1975  01:25:33
0          THIS IS THE UMMPS SYSTEM DUMP PROGRAM.  IT TAKES A DUMP OF ALL OF REAL MEMORY PLUS, OPTIONALLY,
           THE VM FOR A SPECIFIED JOB.  IT WRITES THE DUMP UNFORMATED ONTO A 9-TRACK LABELED TAPE FOR
           WHICH THE VOLUME LABEL MUST BE 'DUMP'.  THE PRINT DUMP PROGRAM (400) WILL PRINT SELECTED
           PARTS OF A DUMP TAPE.
           COPIES COPY:GLOBALS (1026/4).  ASSEMBLE WITH COPY:SETPARM (653).
0          Referenced by comments of: 400/1 
00399/02    SYSTEM DUMP              370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00399/03    SYSTEM DUMP              360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00400/01    PRINT DUMP                               SA  G  DMPL    MTA:DMPLST(1,1999)                                              
            D3.2T1  193  PRINT_DUMP..SA.01                  1 LINE     80   39 PAGE UM   MTA                 MAR. 21, 1975  01:25:36
0          PRINTS DUMP TAPES PRODUCED BY SYSTEM DUMP (399). IN MTS:PRINTDUMP ON RESTORE PACK.
           REQUIRES PRINTTRACE (337) AND IOH/360 (278) FOR THE "TRACE" COMMAND ONLY. 
           COPIES COPY:LLMPSEQU (087), COPY:PCBDSECT (470), COPY:GLOBALDEFS (1026/1), AND COPY:GLOBALSETS (1026/2).
           ASSEMBLE USING *SYSMAC AND COPY:SETPARM (653).
0          Referenced by comments of: 399/1 
00400/02    PRINT DUMP               370 OBJECT      OC  G          MTA:PRINTDUMP                                                   
            D3.2T1  194  PRINT_DUMP.370_OBJECT.OC.02        1 LINE     80    9 PAGE UM   MTA                 MAR. 21, 1975  01:25:44
0          NOTE:  THIS FILE ALSO CONTAINS THE OBJECT FOR PRINT TRACE (337).
00400/03    PRINT DUMP               360 OBJECT      OC  G        = ????                                                            
                                                                                    UM   MTA                                        
00401       MVTAB                                    S            # (NOT DISTRIBUTED)                                               
            D2T2    200                                                             UBC  HOGG                                       
0          MULTI-VARIATE TABULATION PROGRAM FROM UBC.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00402       MFAV                                     S            # (NOT DISTRIBUTED)                                               
            D2T2    201                                                             UBC  HOGG                                       
0          MULTI-FACTOR ANALYSIS OF VARIANCE FROM UBC.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00403       MFACO                                    S            # (OBSOLETE)                                                      
            D2T2    202                                                             UM                                              
00404       COLBIN                                   S            # (NOT AVAILABLE)                                                 
            D2T1    435                                                             UBC  HOGG                                       
0          SUBROUTINE TO READ BINARY CARDS IN FORTRAN (BARF-- BINARY ARRAY READER FOR FORTRAN).
00405       CJDATE                                   S            # (NOT AVAILABLE)                                                 
            D2T1    436                                                             UBC  HOGG                                       
0          SUBR TO CONVERT A CALENDER DATE TO A JULIAN DATE (YES STILL ANOTHER ONE).
00406       SLANCO                                   S            # (OBSOLETE)                                                      
            D2T1    437                                                             UM                                              
00407       POLY                                     S            # (OBSOLETE)                                                      
            D2T1    438                                                             UM                                              
00408       RANDLN                                   S            # (OBSOLETE)                                                      
            D2T1    439                                                             UM                                              
00409       FACTO                                    S            # (NOT DISTRIBUTED)                                               
            D2T2    203                                                             UBC  HOGG                                       
0          FACTOR ANALYSIS FROM UBC.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00410/01   *ASMTIDY                                  SA  S  ASMT    DWB:UD19.ATIDY.S                                                
            D3.2T1  195  ASMTIDY..SA.01                     1 LINE     80   15 PAGE UBC  DWB                 MAR. 21, 1975  01:25:45
0          MODIFIED VERSION OF UBC PROGRAM TO CLEAN UP AND ENTER ASSEMBLY PROGRAMS INTO FILES.
           REQUIRES THAT USER "$SET SEQFCHK=OFF" IF OUTPUT IS INTO A SEQUENTIAL FILE.
           NOTE:  THIS VERSION SHOULD BE USED IF AND ONLY IF THE MTS @NOTIFY CHANGE IS INSTALLED.
00410/02   *ASMTIDY                                  OC  S          *ASMTIDY                                                        
            D3.2T1  196  ASMTIDY..OC.02                     1 SEQ    2385    4 PAGE UBC  DWB                 MAR. 21, 1975  01:25:50
0          CONTAINS OBJECT FOR ASMTIDY AND INFREE (308/6).
           >>> OBJECT PATCHED TO FIX ANOTHER BUG. <<<
00410/03   *ASMTIDY                  WRITEUP         WF             S0630 UDST1S 'UBC -> UM #20' FSNAME=ASMTIDY..WF              15 
            D3T2    341  ASMTIDY.WRITEUP.WF.3               1 LINE    155    2 DISK UBC  DWB                 OCT. 26, 1972  15:28:06
0          UBC WRITEUP FOR *ASMTIDY.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00411       STAT4                                    S            # (NOT AVAILABLE)                                                 
            D2T1    157                                                             UBC  HOGG                                       
00413/01    SYSTEM STATUS ROUTINE    SSRTN           SA  G  SRTN    WSG:SSRTN                                                       
            D3.2T1  197  SYSTEM_STATUS_ROUTINE.SSRT.SA.01   1 LINE     80   65 PAGE UM   WSG                 MAR. 21, 1975  01:25:52
0          SYSTEM STATUS ROUTINE (SSRTN) COMPUTES SYSTEM LOAD (CPU, PAGING, DISK, AND CHANNEL ACTIVITY).
           CALLED BY THE "JOBS" JOB (413/4) AND THE MTS $SYSTEMSTATUS CLS (413/6) TO COMPUTE AND FORMAT PRINTED OUTPUT. 
           ALSO HAS AN EXTERNAL ENTRY POINT (SSFMT) WHICH PRODUCES THE FORMATED
           OUTPUT VECTOR PRINTED BY THE L(OAD) COMMAND.  THIS ENTRY IS CURRENTLY
           CALLED BY THE 3270 OPERATOR JOB (634/1) TO PRODUCE THE TOP LINE ON THE SCREEN.
           CALLS BJPMOD (650) AND TASKSTAT (647).
           COPIES COPY:JOBSTA (413/14), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:BJPDSCT (650/3).
0          Referenced by comments of: 19/1, 413/4, 413/6, 413/8, 647/1, 650/1 
00413/02    SYSTEM STATUS ROUTINE    370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00413/03    SYSTEM STATUS ROUTINE    360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   WSG                                        
00413/04    SYSTEM STATUS ROUTINE    JOBS JOB        SA  G  JOBS    WSG:JOBS(1,999)                                                 
            D3.1T1  262  SYSTEM_STATUS_<JOBS>.JOBS.SA.3     1 LINE     80    4 PAGE UM   WSG                 MAR. 06, 1974  03:53.24
0          UMMPS JOB PROGRAM (NAMED "JOBS") TO INTERFACE TO SSRTN (413/1) FROM THE JOB PROGRAM LEVEL.
           ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 413/1, 413/8 
00413/05    SYSTEM STATUS ROUTINE    JOBS JOB        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   WSG                                        
00413/06    SYSTEM STATUS ROUTINE    SYS STAT CLS    SA  G  SCLS    WSG:SSTA.CLS(1,999)                                             
            D3.2T1  198  SYSTEM_STATUS_ROUTINE.SYS.SA.06    1 LINE     80   10 PAGE UM   WSG                 MAR. 21, 1975  01:25:57
0          $SYSTEMSTATUS CLS FOR INTERFACING WITH SSRTN (413/1) FROM MTS COMMAND LEVEL.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:CLSVECTOR (535/2),
           AND COPY:CLSPLAN (535/1).
           ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 413/1, 413/8 
00413/07    SYSTEM STATUS ROUTINE    SYS STAT CLS    OC  G          *CLSSSTA                                                        
            D3.2T1  199  SYSTEM_STATUS_ROUTINE.SYS.OC.07    1 LINE     80    1 PAGE UM   WSG                 MAR. 21, 1975  01:26:01
0          THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE.  IF THIS IS NOT
           DONE MTS WILL DYNAMICALLY LOAD A PRIVATE COPY FOR EACH $SY COMMAND.
00413/08    SYSTEM STATUS ROUTINE    SYS STA VECTOR  SA  G  SVEC    WSG:SSTA.VEC(1,999)                                             
            D3.1T1  265  SYSTEM_STATUS_<JOBS>.SYS_S.SA.7    1 LINE     80    1 PAGE UM   WSG                 MAR. 06, 1974  03:53.36
0          SYSTEM STATUS INFORMATION VECTOR MAINTAINED BY SSRTN (413/1) AND USED BY IT TO COMMUNICATE WITH
           THE JOBS JOB (413/4) AND THE $SYSTEMSTATUS CLS (413/6).  COPIES COPY:JOBSTA (413/14).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00413/09    SYSTEM STATUS ROUTINE    SYS STA 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/10    SYSTEM STATUS ROUTINE    SYS STAT SAVE   C   G          *SSS                                                            
            D3.1T1  266  SYSTEM_STATUS_<JOBS>.SYS_S.C.9     1 LINE     26    1 PAGE UM   WSG                 MAR. 06, 1974  03:53.38
0          COMMANDS TO SIGNON AND SOURCE TO SYS:SSS.  INVOKED BY *LAS (154) OR BY ENTERING "MTS *SSS"
           ON OPERATORS CONSOLE.
00413/11    SYSTEM STATUS ROUTINE    SYS STAT SAVE   C              SYS:SSS(1,99)                                                   
            D3.1T1  267  SYSTEM_STATUS_<JOBS>.SYS_S.C.10    1 LINE     86    1 PAGE UM   WSG                 MAR. 06, 1974  03:53.41
0          COMMANDS TO RUN THE SYSTEM STATUS SAVE PROGRAM (413/12) WHICH ACCUMLATES SYSTEM LOAD INFORMATION
           IN A FILE (SYS:STAT), ONE LINE EVERY 20 SECONDS.  THIS FILE IS AUTOMATICALLY DUMPED ONTO A
           TAPE PERIODICALLY.  THIS INFORMATION (ON TAPE) CAN BE PROCESSED
           BY THE STAT MONTHLY SUMMARY PROGRAM (326).
00413/12    SYSTEM STATUS ROUTINE    SAVE PGM        SA  G  SSSV    WSG:SSTA.SAVE(1,999)                                            
            D3.1T1  268  SYSTEM_STATUS_<JOBS>.SAVE.SA.11    1 LINE     80    3 PAGE UM   WSG                 MAR. 06, 1974  03:58.25
0          SYSTEM STATUS SAVE PROGRAM (SEE COMMENTS FOR 413/11).  ASSEMBLE WITH DBS:MAC (455).
0          Referenced by comments of: 413/11 
00413/13    SYSTEM STATUS ROUTINE    SAVE PGM        OC  G          SYS:SSS(100)                                                    
            D3.1T1  269  SYSTEM_STATUS_<JOBS>.SAVE.OC.12    1 LINE     80    1 PAGE UM   WSG                 MAR. 06, 1974  03:58.27
0          Referenced by comments of: 326/1 
00413/14    SYSTEM STATUS ROUTINE    JOBSTA          SA  G  JSTV    COPY:JOBSTA                                                     
            D3.2T1  200  SYSTEM_STATUS_ROUTINE.JOBS.SA.14   1 LINE     80    3 PAGE UM   WSG                 MAR. 21, 1975  01:26:03
0          THIS IS THE "COPY:JOBSTA" DSECT DESCRIBING THE SYSTEM STATUS VECTOR.
0          Referenced by comments of: 42/1, 121/1, 387/1, 413/1, 413/8, 650/1 
00413/15    SYSTEM STATUS ROUTINE    DOCUMENTATION   WF             WSG:SSRTN.DOC                                                   
            D3.2T1  201  SYSTEM_STATUS_ROUTINE.DOCU.WF.15   1 LINE    105    2 PAGE UM   WSG                 MAR. 21, 1975  01:26:06
0          OUT-OF-DATE WRITEUP DESCRIBING THE SYSTEM JOB SCHEDULING MECHANISM.
00414/01   *TAPEDUMP                                 SA  G  TDMP    WSG:TAPEDUMP(1,999)                                             
            D3T2    348  TAPEDUMP..SA.1                     1 LINE     80   16 PAGE UM   WSG                 AUG. 02, 1973  02:49.49
0          PROGRAM TO DUMP 7- OR 9-TRACK TAPES OR FILES.
00414/02   *TAPEDUMP                                 OC  G          *TAPEDUMP                                                       
            D3T2    349  TAPEDUMP..OC.2                     1 LINE     80    3 PAGE UM   WSG                 AUG. 02, 1973  02:49.53
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00416      *EDEXPLAIN                                             # (SEE COMP 324)                                                  
                                                                                    UM                                              
00417      *MSERIES                                               # (SEE COMP 306)                                                  
                                                                                    UM                                              
00418      *HBT                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    183                                                             UM                                              
00419       LOVOC SUBR                               S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00420       LODEF SUBR                               S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00421      *SCN                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    199                                                             UM                                              
00422/01    FORTRAN LIBRARY          IBCOM#          SA  G  IBCM    S0190 LJH.FS FSNAME=SOURCE.IBCOM                                
            D3T2    350  FORTRAN_LIBRARY.IBCOM#.SA.1        1 LINE     80   29 PAGE UM   HARDING             AUG. 02, 1973  02:49.57
0          MAIN COMMUNICATIONS MODULE OF FORTRAN LIBRARY.
00422/02    FORTRAN LIBRARY          FIOCS#          SA  G  FIOC    S0190 LJH.FS FSNAME=SOURCE.FIOCS                                
            D3T2    351  FORTRAN_LIBRARY.FIOCS#.SA.2        1 LINE     80   18 PAGE UM   HARDING             AUG. 02, 1973  02:50.02
0          MORE I/O LIBRARY FOR FORTRAN.
00422/03    FORTRAN LIBRARY          ADCON#          SA  O  ADCN    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.ADCON#.SA.3              352
            D3T2    352  FORTRAN_LIBRARY.ADCON#.SA.3        1 SEQ      80   29 PAGE UM   HARDING             AUG. 02, 1973  02:51.10
0          REST OF I/O LIBRARY.
00422/04    FORTRAN LIBRARY          IHCNAMEL        SA  G  NAML    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.IHCNAMEL.SA.4            353
            D3T2    353  FORTRAN_LIBRARY.IHCNAMEL.SA.4      1 SEQ      80   17 PAGE UM   HARDING             AUG. 02, 1973  02:51.13
0          NAME LIST I/O
00422/05    FORTRAN LIBRARY          IHCDBUG         SA  G  DBUG    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.IHCDBUG.SA.5             354
            D3T2    354  FORTRAN_LIBRARY.IHCDBUG.SA.5       1 SEQ      80   17 PAGE UM   HARDING             AUG. 02, 1973  02:51.16
0          DEBUG STATEMENTS CALL THIS.
           THIS MODULE IS SLIGHTLY CHANGED FROM OS RELEASE 9.5 TO FIX A FEW BUGS.
00422/06    FORTRAN LIBRARY          IHCFDUMP        SA  G  FDMP    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.IHCFDUMP.SA.6            355
            D3T2    355  FORTRAN_LIBRARY.IHCFDUMP.SA.6      1 SEQ      80    6 PAGE UM   HARDING             AUG. 02, 1973  02:51.17
0          DUMP AND PDUMP.
           THIS MODULE IS OS RELEASE 9.5
00422/07    FORTRAN LIBRARY          SETSTA          SA  G  SSTA    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.SETSTA.SA.7              356
            D3T2    356  FORTRAN_LIBRARY.SETSTA.SA.7        1 SEQ      80    1 PAGE UM   HARDING             AUG. 02, 1973  02:51.19
0          SET STARE COUNT. ALLOWS REREADING INPUT LINES SEVERAL TIMES.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00422/08    FORTRAN LIBRARY          SETGRE          SA  G  SGRE    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.SETGRE.SA.8              357
            D3T2    357  FORTRAN_LIBRARY.SETGRE.SA.8        1 SEQ      80    1 PAGE UM   HARDING             AUG. 02, 1973  02:51.22
0          SET GREEN WORD FLAG. ALLOWS PROCESSING OLD TAPES WITH GREEN WORDS.
00422/09    FORTRAN LIBRARY          SETDSR          SA  G  SDSR    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.SETDSR.SA.9              358
            D3T2    358  FORTRAN_LIBRARY.SETDSR.SA.9        1 SEQ      80    1 PAGE UM   HARDING             AUG. 02, 1973  02:51.24
0          SET RECORD LENGTHS FOR A DATA SET REFERENCE NBR.
00422/10    FORTRAN LIBRARY          SETDSN          SA  G  SDSN    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.SETDSN.SA.10             359
            D3T2    359  FORTRAN_LIBRARY.SETDSN.SA.10       1 SEQ      80    2 PAGE UM   HARDING             AUG. 02, 1973  02:51.27
0          ATTACHES A FILE OR DEVICE TO A DATA SET REFERENCE NUMBER. FORTRAN INTERFACE TO GETFD.
00422/11    FORTRAN LIBRARY          DIOCS#          SA  G  DIOC    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.DIOCS#.SA.11             360
            D3T2    360  FORTRAN_LIBRARY.DIOCS#.SA.11       1 SEQ      80    1 PAGE UM   HARDING             AUG. 02, 1973  02:51.29
0          DIRECT ACESS STATEMENTS.
00422/12    FORTRAN LIBRARY          GETIHC/PUTIHC   SA  G  IHC0    S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.GETIHC/PUT.SA.12         361
            D3T2    361  FORTRAN_LIBRARY.GETIHC/PUT.SA.12   1 SEQ      80    2 PAGE UM   HARDING             AUG. 02, 1973  02:51.32
0          ALLOWS FORTRAN PROGRAM TO INTERCEPT ERRORS.
           WITH NEW EFL, THESE ROUTINES NOW INTERCEPT ONLY I/O RELATED ERRORS.
00422/13    FORTRAN LIBRARY          OBJECT          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HARDING                                    
00422/14    FORTRAN LIBRARY          USER'S GUIDE    WF             S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.USER'S_GUI.WF.14         362
            D3T2    362  FORTRAN_LIBRARY.USER'S_GUI.WF.14   1 LINE    104    4 DISK UM   HARDING             MAR. 15, 1973  18:04.21
0          THIS IS COMPUTING CENTER MEMO M175 -- "MTS FORTRAN USER'S GUIDE"
00422/15    FORTRAN LIBRARY          CALLING SEQ     WF             S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.CALLING_SE.WF.15         363
            D3T2    363  FORTRAN_LIBRARY.CALLING_SE.WF.15   1 LINE    102    3 DISK UM   HARDING             MAR. 15, 1973  18:36.37
0          THIS IS COMPUTING CENTER MEMO M210 -- "FORTRAN LIBRARY CALLING SEQUENCES"
00434      *HSP                                                   # (SEE COMP 387)                                                  
                                                                                    UM                                              
00436/01    GTDJMSR                                  SA             DWB:GRJTM(1,124)                                                
            D3T2    364  GTDJMSR..SA.1                      1 LINE     77    3 PAGE UM   DWB                 AUG. 02, 1973  02:53.55
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/02    GTDJMSR                                  OC           # *LIBRARY (SEE COMP 524)                                         
            D2T1    432                                                             UM   DWB                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00436/03    GTDJMSR                  GTDJMS          SA             DWB:GTDJMS(1,999)                                               
            D3T2    365  GTDJMSR.GTDJMS.SA.3                1 LINE     77    1 PAGE UM   DWB                 AUG. 02, 1973  02:53.57
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/04    GTDJMSR                  GTDJMS          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00437/01    JMSGTDR/JTUGTDR                          SA             DWB:GRJTM(125,264)                                              
            D3T2    366  JMSGTDR/JTUGTDR..SA.1              1 LINE     77    4 PAGE UM   DWB                 AUG. 02, 1973  02:53.59
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.
0          Referenced by comments of: 531/10 
00437/02    JMSGTDR/JTUGTDR                          OC           # *LIBRARY (SEE COMP 524)                                         
            D2T1    434                                                             UM   DWB                                        
0          NOTE:  *ANALYSIS CALLS A SUBROUTINE (JULGRGTM/JULGRGTU) WHICH IS ESSENTIALLY THE SAME AS THIS,
                  BUT WITH DIFFERENT NAMES.  THE OBJECT FOR THAT SUBROUTINE IS PART OF *ANALYSIS.
                  *ANALYSIS COULD (SHOULD) BE CHANGED TO USE THIS SUBR OUT OF *LIBRARY.
00437/03    JMSGTDR/JTUGTDR          JMSGTD          SA             DWB:JMSGTD(1,999)                                               
            D3T2    367  JMSGTDR/JTUGTDR.JMSGTD.SA.3        1 LINE     77    1 PAGE UM   DWB                 AUG. 02, 1973  02:54.01
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JMSGTDR.
00437/04    JMSGTDR/JTUGTDR          JMSGTD          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00437/05    JMSGTDR/JTUGTDR          JTUGTD          SA             DWB:JTUGTD(1,999)                                               
            D3T2    368  JMSGTDR/JTUGTDR.JTUGTD.SA.5        1 LINE     77    1 PAGE UM   DWB                 AUG. 02, 1973  02:54.03
0          SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JTUGTDR.
00437/06    JMSGTDR/JTUGTDR          JTUGTD          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00439       UCATDES <DEADFILES>                                   # (SEE COMP 502)                                                  
                                                                                    UM                                              
00440       CATEQU                                                # (SEE COMP 482)                                                  
                                                                                    UM                                              
00441/01   *FILEUSE                                  SA  G  FUSE    W045:NEWFILEUSE                                                 
            D3T2    369  FILEUSE..SA.1                      1 LINE     80    5 PAGE UM   PIRKOLA             AUG. 02, 1973  02:54.05
0          PROGRAM TO PRINT USE COUNTS, LAST REFERENCED DATE, AND CREATION DATE FOR FILES.
           CALLS GFINFO SUBROUTINE.  COPIES COPY:LLMPSEQU (087) AND *GFINFODSECT (593).
           MAINTAINED FOR HISTORICAL REASONS ONLY. USE $FILESTATUS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00441/02   *FILEUSE                                  OE  G          *FILEUSE                                                        
            D3T2    370  FILEUSE..O.2                       1 LINE    255    1 PAGE UM   PIRKOLA             AUG. 02, 1973  02:54.08
00442/01    CCATL                                    SA  O  CCAT    W045:PF.CCATL                                                   
            D3T2    371  CCATL..SA.1                        1 LINE     80   23 PAGE UM   PIRKOLA             AUG. 02, 1973  02:54.10
0          PROGRAM TO CONSTRUCT A CATALOG FROM SCRATCH IF THAT SHOULD EVER BECOME
           NECESSARY. COMMENTS IN LISTING EXPLAIN HOW TO DO THIS.
           THE SECTION TO RECATALOG FILES HAS NOT BEEN MODIFIED FOR THE PAGE FORMATTED FILE SYSTEM.
           THAT SECTION REQUIRES AIO AND ALST FROM THE ACCOUNTING ROUTINES (104) TO SCAN THE ACCOUNTING FILE.
           COPIES COPY:CATEQU (482/28), COPY:DSKDSCT (482/42) AND COPY:FCBEQU (482/27).
00442/02    CCATL                                    OC  O          W045:PF.CCATL.O                                                 
            D3T2    372  CCATL..OC.2                        1 LINE     80    3 PAGE UM   PIRKOLA             AUG. 02, 1973  02:54.13
00443       FORMAT-TEXT360 CONVERTER                 SS  O  FOT3    S0721 'D3T2' FSNAME=FORMAT-TEXT360_CONVERTER..SS.            373
            D3T2    373  FORMAT-TEXT360_CONVERTER..SS.      1 LINE     80    9 PAGE UM   ENGLE               JAN. 05, 1973  12:36.21
0          SNOBOL PROGRAM TO CONVERT INPUT FOR THE IBM TYPE III FORMAT PROGRAM TO INPUT FOR TEXT/360.
00444/01    MTS VOLUME 2             MASTER          WT  G          S0485 MTSV2 'MTS MANUALS' POSN=NEWM5.V2                         
            D3.1T1  271  MTS_VOLUME_2.MASTER.WT.1           1 SEQ     132  205 PAGE UM   SALISBURY           MAR. 06, 1974  04:01.56
0          TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUAL.
00444/02    MTS VOLUME 2             PRINT           PT  G        > S0485 MTSV2 'MTS MANUALS' POSN=PRINT5.V2                        
            D3.1T1  272  MTS_VOLUME_2.PRINT.PT.2            1 SEQ     132   90 PAGE UM   SALISBURY           MAR. 06, 1974  04:03.38
0          TEXT/360 PRINT FILE.
00444/03    MTS VOLUME 2             TABLE CONTENTS  P   G          S0485 MTSV2 'MTS MANUALS' POSN=TABCONT4.V2                   10 
            D3.1T1  273  MTS_VOLUME_2.TABLE_CONTENT.P.3     1 SEQ     108    3 PAGE UM   SALISBURY           MAR. 06, 1974  04:05.58
0          TABLE OF CONTENTS WITH ".XX" PAGE NUMBERS ADDED.
00444/04    MTS VOLUME 2             FLOWCHART       P   G          S0485 MTSV2 'MTS MANUALS' POSN=FLOWCHART                        
                                                                                    UM   SALISBURY                                  
0          *FLOWCHART EXAMPLE -- MUST BE PRINTED AT 8 LINES/INCH.
00446       TEXT/360 SUBRS                                        # (SEE COMP 138)                                                  
                                                                                    UM                                              
00447/01    TAPESTAT                 TAPESTAT SUBR   SA  G  TPST    WSG:TAPESTAT(1,999)                                             
            D3.2T1  202  TAPESTAT.TAPESTAT_SUBR.SA.01       1 LINE     80    5 PAGE UM   WSG                 MAR. 21, 1975  01:26:08
0          CALLED BY MOUNT (101/1) AFTER EACH SUCCESSFUL MOUNT TO COLLECT STATISTICS IN *TAPESTAT.  IF *TAPESTAT
           DOES NOT EXIST OR ISN'T A SEQUENTIAL FILE, IT RETURNS QUIETLY.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:CLSVECTOR (535/2).
0          Referenced by comments of: 101/1, 101/2 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00447/02    TAPESTAT                 TAPESTAT SUBR   OC  G        # (PART OF COMP 101)                                              
                                                                                    UM   WSG                                        
0          OBJECT IS PART OF *CLSMOUNT (101/2).
00447/03    TAPESTAT                 SAVTS           SA  G  SVTS    WSG:SAVTS(1,999)                                                
            D3.2T1  203  TAPESTAT.SAVTS.SA.03               1 LINE     80   16 PAGE UM   WSG                 MAR. 21, 1975  01:26:11
0          PROGRAM TO SAVE *TAPESTAT MOUNT STATISTICS ON TAPE (RUN MONTHLY AT UM WHERE *TAPESTAT IS
           ABOUT 150 PAGES).  IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A TAPE, EMPTIES *TAPESTAT,
           AND RESTORES THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH RACK NUMBER.
           AT UM, THIS RESTORES ABOUT 80 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 TSSCN PROGRAM (447/5).  THE TAPE PRODUCED 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.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 447/7 
00447/04    TAPESTAT                 SAVTS           OC  G          WSG:SAVTS(1000)                                                 
            D3.2T1  204  TAPESTAT.SAVTS.OC.04               1 LINE     80   12 PAGE UM   WSG                 MAR. 21, 1975  01:26:13
00447/05    TAPESTAT                 TSSCN           SA  G  TSSN    WSG:TSSCN(1,999)                                                
            D3.2T1  205  TAPESTAT.TSSCN.SA.05               1 LINE     80   11 PAGE UM   WSG                 MAR. 21, 1975  01:26:16
0          PROGRAM TO SCAN *TAPESTAT RECORDS (FROM FILE OR TAPE) LOOKING FOR SPECIFIED RACK NUMBER-DATE COMBINATIONS.
           IT CALLS SORT AND THEN PRINTS THE RECORDS ON SPRINT.
           FOR EXAMPLE:
                          $RUN TSSCN(1000)
                          S0622 03-25-73
                          S0500 01-XX-73
                          DONE
                          *TAPESTAT
                          *T*
                          DONE
            
           WILL SCAN *TAPESTAT AND TAPE *T* FOR ALL MOUNTS OF TAPE S0622 ON 25 MARCH 1973 AND S0500 ON ANY DAY IN JANUARY 1973.
           NOTE:  "XX" MAY BE USED IN ANY DATE FIELD(S) AND "XXXXXX" MAY BE USED TO DENOTE THAT ALL MOUNTS ON THE SPECIFIED
           DATE ARE TO BE PRINTED (XXXXXX XX-XX-XX MEANS EVERYTHING).  THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE).
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 447/3 
00447/06    TAPESTAT                 TSSCN           OC  G          WSG:TSSCN(1000)                                                 
            D3.2T1  206  TAPESTAT.TSSCN.OC.06               1 LINE     80    7 PAGE UM   WSG                 MAR. 21, 1975  01:26:18
00447/07    TAPESTAT                 TSDEL           SA  G  TSDL    WSG:TSDEL(1,999)                                                
            D3.2T1  207  TAPESTAT.TSDEL.SA.07               1 LINE     80    5 PAGE UM   WSG                 MAR. 21, 1975  01:26:20
0          PROGRAM USED TO DELETE UNWANTED RECORDS FROM THE MOUNT STATISTICS FILE (*TAPESTAT).  ASKS FOR RACK NUMBERS TO BE
           DELETED WHICH MUST BE ENTERED ONE PER LINE.  AFTER "DONE" IS ENTERED, IT MAKES ONE PASS THROUGH *TAPESTAT (WITH IT
           LOCKED FOR MODIFICATION) AND REPLACES ANY RECORD WHICH HAS ONE OF THE SPECIFIED RACK NUMBERS WITH AN ALL-ZERO RECORD
           (IT CAN'T ACTUALLY DELETE RECORDS SINCE *TAPESTAT IS A SEQUENTIAL FILE).  WHEN SAVTS (447/3) IS RUN, IT WILL
1                                                                                               FRI AUG 02/96   19:04:25   Page  121
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          DELETE THE ALL-ZERO RECORDS.  AT UM, THIS PROGRAM IS RUN PERIODICALLY TO CLEAN OUT OLD SERIES OF RACK NUMBERS
           TO KEEP *TAPESTAT AT A REASONABLE SIZE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).  ASSEMBLE WITH *SYSMAC.
00447/08    TAPESTAT                 TSDEL           OC  G          WSG:TSDEL(1000)                                                 
            D3.2T1  208  TAPESTAT.TSDEL.OC.08               1 LINE     80    3 PAGE UM   WSG                 MAR. 21, 1975  01:26:23
00448      *RSERIES                                               # (SEE COMP 306)                                                  
                                                                                    UM                                              
00449      *DEB                                      S            # (OBSOLETED BY *SORT)                                            
            D2T1    341                                                             UM                                              
00451/01    CATALOG VERIFY - VNTD                    SA  G  VNTD    W045:PF.VNTD                                                    
            D3.2T1  209  CATALOG_VERIFY_-_VNTD..SA.01       1 LINE     80   32 PAGE UM   PIRKOLA             MAR. 21, 1975  01:26:25
0          PROGRAM TO VERIFY, TRACE, AND/OR DUMP THE FILE SYSTEM CATALOG.  COPIES COPY:CATEQU (482/28) AND COPY:FCBEQU (482/27).
           IT WILL VERIFY, TRACE AND/OR DUMP THE ENTIRE CATALOG, A PARTICULAR USER CATALOG, OR A PARTICULAR USER FILE.
            
           LOGICAL I/O UNITS:
            
               SCARDS              PARAMETERS IF NO PAR= IS GIVEN.  END-OF-FILE STOPS PROGRAM.
               SPRINT              PRINTED OUTPUT
               SERCOM              ERROR COMMENTS
            
           PARAMETERS MUST BE SEPARATED BY BLANKS OR COMMAS AND MUST BE GIVEN IN THE FOLLOWING ORDER:
            
             (1) ANY, ALL OR NONE OR THE FOLLOWING:
                 (A) "V" - VERIFY
                 (B) "T" - TRACE
                 (C) "D" - DUMP
                 IF NONE OF THESE IS GIVEN, ONLY STATISTICS ABOUT THE WHOLE CATALOG OR THE USER CATALOG WILL BE PRINTED.
            
             (2) AT MOST, ONE OF THE FOLLOWING:
                 (A) "C" - THE ENTIRE CATALOG (THE DEFAULT)
                 (B) "U" - A PARTICULAR USER CATALOG
                 (C) "F" - A PARTICULAR FILE
                 IF "U" IS GIVEN, THEN A LEGAL MTS USERID MUST BE THE NEXT PARAMETER, OR "*ALL" IF ALL USER CATALOGS
                 ARE DESIRED.  IF "F" IS GIVEN, THEN AN 'INTERNAL' MTS FILE NAME (USERID AND FILENAME WITHOUT COLON) MUST
                 BE THE NEXT PARAMETER, OR "*ALL" AND A LEGAL MTS USERID IF ALL FILES BELONGING TO A PARTICULAR USER
                 ARE DESIRED.
            
           EXAMPLES:
            
                    $RUN VNTD PAR=T,C
                    $RUN VNTD PAR=V,T,D,U,W045
                    $RUN VNTD PAR=D,F,WO45VNTD
            
           OUTPUT:
            
            VERIFY
            
             (A) VERIFYING THE CATALOG WILL VALIDATE SEGMENT ALLOCATION AS WELL AS ERROR CHECKING RECORD AND SEGMENT HEADERS.
                 PRESENTLY, THE CATALOG CAN ONLY BE VERIFIED WHEN SEGMENTS ARE NOT BEING ALLOCATED OR DEALLOCATED,
1                                                                                               FRI AUG 02/96   19:04:25   Page  122
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                I.E., WHEN NO ONE IS USING THE SYSTEM.
             (B) VERIFYING A USER CATALOG WILL ERROR CHECK RECORD AND SEGMENT HEADERS AS WELL AS FILE DESCRIPTORS.
                 IN ADDITION, IT WILL CHECK THAT FILE DESCRIPTORS POINT TO SHARING DESCRIPTORS IN THE SAME CATALOG
                 AND THAT ALL SHARING DESCRIPTORS ARE ACCOUNTED FOR.
             (C) VERIFYING A FILE CHECKS FILE DESCRIPTORS AND SHARING DESCRIPTORS FOR REASONABLENESS.
            
            TRACE
            
             (A) TRACING THE CATALOG WILL PRINT OUT THE FILE HEADER LOCATIONS AND THE NUMBER OF PAGES IN EACH FILE.
             (B) TRACING A USER CATALOG WILL PRINT OUT THE SEGMENT LOCATIONS FOR EACH SEGMENT ASSIGNED TO THE USER CATALOG.
             (C) TRACING A FILE WILL PRINT OUT FILE AND SHARING DESCRIPTOR LOCATIONS.
            
            DUMP
            
             (A) DUMPING THE CATALOG WILL DUMP (VIA SDUMP) EACH FILE HEADER.
             (B) DUMPING A USER CATALOG WILL DUMP EACH SEGMENT ASSIGNED TO THE USER CATALOG.
             (C) DUMPING A FILE WILL DUMP THE FILE AND SHARING DESCRIPTORS ASSOCIATED WITH THE FILE IN THE CATALOG.
            
            STATISTICS (ALWAYS PRINTED)
            
             (A) FOR THE WHOLE CATALOG, THE NUMBER OF AVAILABLE INITIAL SEGMENTS (0, 1, AND 2) AND THE NUMBER OF AVAILABLE OVERFLOW
                 SEGMENTS (3, 4, AND 5) ARE PRINTED.
             (B) FOR A USER CATALOG, THE NUMBER OF FILE AND SHARING DESCRIPTORS AS WELL AS THE NUMBER OF SEGMENTS, RECORDS,
                 AND CYLINDERS OCCUPIED BY THIS USER CATALOG ARE PRINTED.
00451/02    CATALOG VERIFY - VNTD                    OC  G          W045:PF.VNTD.O                                                  
            D3.2T1  210  CATALOG_VERIFY_-_VNTD..OC.02       1 LINE     80    8 PAGE UM   PIRKOLA             MAR. 21, 1975  01:26:40
00452/01    PLCALL                                   SA  G  PLCL    S0027 DISTRB FSNAME=PLCALL                                      
            D3T3     13  PLCALL..SA.1                       1 LINE     80    5 PAGE UM   ENGLE               JULY 24, 1973  11:51.52
0          SUBROUTINES PLCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL/I PROGRAM TO CALL SUBROUTINES
           WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE.
00452/02    PLCALL                                   OC  G        # *PL1LIB (SEE COMP 233)                                          
            D3T3     14  PLCALL..O.2                        1 LINE     80    1 PAGE UM   ENGLE               JULY 24, 1973  11:52.05
00453/01    DRUM INIT <STAND-ALONE>                  SA     DNIT    S0722 'D3T3' FSNAME=DRUM_INIT_<STAND-ALONE>..SA.1             15
            D3T3     15  DRUM_INIT_<STAND-ALONE>..SA.1      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/02    DRUM INIT <STAND-ALONE>                  OC             S0722 'D3T3' FSNAME=DRUM_INIT_<STAND-ALONE>..OC.2             16
            D3T3     16  DRUM_INIT_<STAND-ALONE>..OC.2      1 SEQ      80    6 PAGE UM   DWB                 AUG. 01, 1973  18:21.37
00454       ARU COPY SECTION                         SA           # (OBSOLETE)                                                      
            D2T1    084                                                             UM                                              
00455       DBS:MAC                                  SM             S0722 'D3T3' FSNAME=DBS:MAC..SM.                              17
            D3T3     17  DBS:MAC..SM.                       1 LINE     66    3 PAGE UM   FRONCZAK            AUG. 01, 1973  18:21.38
0          MACRO LIBRARY NOW USED ONLY BY THE IBM 7772 ARU DSR (084), WE HOPE.
1                                                                                               FRI AUG 02/96   19:04:25   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          Referenced by comments of: 84/1, 84/5, 84/7, 84/12, 84/14, 413/12 
00456      *CONFIG                                   SA           # (OBSOLETE)                                                      
            D2T1    318                                                             UM                                              
00457       TPSBUFFER                                SA           # (OBSOLETE)                                                      
            D2T1    147                                                             UM                                              
00458/01    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  1  
            D3.2T1  211  OLTS.21.7_SOURCE.SA.01             1 SEQ      80    1 PAGE UM   MTA                 MAR. 21, 1975  01:27:39
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 A SPECIAL VERSION OF FAKEOS (SEE COMP 545).
0          Referenced by comments of: 338/1, 545/44 
00458/02    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  2  
            D3.2T1  212  OLTS.21.7_SOURCE.SA.02             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:27:39
00458/03    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  3  
            D3.2T1  213  OLTS.21.7_SOURCE.SA.03             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:27:41
00458/04    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  4  
            D3.2T1  214  OLTS.21.7_SOURCE.SA.04             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:27:44
00458/05    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  5  
            D3.2T1  215  OLTS.21.7_SOURCE.SA.05             1 SEQ      80    1 PAGE UM   MTA                 MAR. 21, 1975  01:27:46
00458/06    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  6  
            D3.2T1  216  OLTS.21.7_SOURCE.SA.06             1 SEQ      80    1 PAGE UM   MTA                 MAR. 21, 1975  01:27:48
00458/07    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  7  
            D3.2T1  217  OLTS.21.7_SOURCE.SA.07             1 SEQ      80    1 PAGE UM   MTA                 MAR. 21, 1975  01:27:51
00458/08    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  8  
            D3.2T1  218  OLTS.21.7_SOURCE.SA.08             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:27:53
00458/09    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  9  
            D3.2T1  219  OLTS.21.7_SOURCE.SA.09             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:27:55
00458/10    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  10 
            D3.2T1  220  OLTS.21.7_SOURCE.SA.10             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:27:57
00458/11    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  11 
            D3.2T1  221  OLTS.21.7_SOURCE.SA.11             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:00
00458/12    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  12 
            D3.2T1  222  OLTS.21.7_SOURCE.SA.12             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:02
00458/13    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  13 
            D3.2T1  223  OLTS.21.7_SOURCE.SA.13             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:04
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00458/14    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  14 
            D3.2T1  224  OLTS.21.7_SOURCE.SA.14             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:07
00458/15    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  15 
            D3.2T1  225  OLTS.21.7_SOURCE.SA.15             1 SEQ      80    1 PAGE UM   MTA                 MAR. 21, 1975  01:28:09
00458/16    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  16 
            D3.2T1  226  OLTS.21.7_SOURCE.SA.16             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:11
00458/17    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  17 
            D3.2T1  227  OLTS.21.7_SOURCE.SA.17             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:14
00458/18    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  18 
            D3.2T1  228  OLTS.21.7_SOURCE.SA.18             1 SEQ      80    1 PAGE UM   MTA                 MAR. 21, 1975  01:28:16
00458/19    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  19 
            D3.2T1  229  OLTS.21.7_SOURCE.SA.19             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:18
00458/20    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  20 
            D3.2T1  230  OLTS.21.7_SOURCE.SA.20             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:20
00458/21    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  21 
            D3.2T1  231  OLTS.21.7_SOURCE.SA.21             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:23
00458/22    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  22 
            D3.2T1  232  OLTS.21.7_SOURCE.SA.22             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:25
00458/23    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  23 
            D3.2T1  233  OLTS.21.7_SOURCE.SA.23             1 SEQ      80    1 PAGE UM   MTA                 MAR. 21, 1975  01:28:27
00458/24    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  24 
            D3.2T1  234  OLTS.21.7_SOURCE.SA.24             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:28:30
00458/25    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  25 
            D3.2T1  235  OLTS.21.7_SOURCE.SA.25             1 SEQ      80   11 PAGE UM   MTA                 MAR. 21, 1975  01:28:32
00458/26    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  26 
            D3.2T1  236  OLTS.21.7_SOURCE.SA.26             1 SEQ      80   12 PAGE UM   MTA                 MAR. 21, 1975  01:28:35
00458/27    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  27 
            D3.2T1  237  OLTS.21.7_SOURCE.SA.27             1 SEQ      80   35 PAGE UM   MTA                 MAR. 21, 1975  01:28:38
00458/28    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  28 
            D3.2T1  238  OLTS.21.7_SOURCE.SA.28             1 SEQ      80   19 PAGE UM   MTA                 MAR. 21, 1975  01:28:40
00458/29    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  29 
            D3.2T1  239  OLTS.21.7_SOURCE.SA.29             1 SEQ      80   24 PAGE UM   MTA                 MAR. 21, 1975  01:28:42
00458/30    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  30 
            D3.2T1  240  OLTS.21.7_SOURCE.SA.30             1 SEQ      80   12 PAGE UM   MTA                 MAR. 21, 1975  01:28:44
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00458/31    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  31 
            D3.2T1  241  OLTS.21.7_SOURCE.SA.31             1 SEQ      80   26 PAGE UM   MTA                 MAR. 21, 1975  01:28:47
00458/32    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  32 
            D3.2T1  242  OLTS.21.7_SOURCE.SA.32             1 SEQ      80   11 PAGE UM   MTA                 MAR. 21, 1975  01:28:49
00458/33    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  33 
            D3.2T1  243  OLTS.21.7_SOURCE.SA.33             1 SEQ      80   23 PAGE UM   MTA                 MAR. 21, 1975  01:28:52
00458/34    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  34 
            D3.2T1  244  OLTS.21.7_SOURCE.SA.34             1 SEQ      80   21 PAGE UM   MTA                 MAR. 21, 1975  01:28:54
00458/35    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  35 
            D3.2T1  245  OLTS.21.7_SOURCE.SA.35             1 SEQ      80    8 PAGE UM   MTA                 MAR. 21, 1975  01:28:56
00458/36    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  36 
            D3.2T1  246  OLTS.21.7_SOURCE.SA.36             1 SEQ      80    7 PAGE UM   MTA                 MAR. 21, 1975  01:28:58
00458/37    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  37 
            D3.2T1  247  OLTS.21.7_SOURCE.SA.37             1 SEQ      80    3 PAGE UM   MTA                 MAR. 21, 1975  01:29:00
00458/38    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  38 
            D3.2T1  248  OLTS.21.7_SOURCE.SA.38             1 SEQ      80    9 PAGE UM   MTA                 MAR. 21, 1975  01:29:02
00458/39    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  39 
            D3.2T1  249  OLTS.21.7_SOURCE.SA.39             1 SEQ      80   11 PAGE UM   MTA                 MAR. 21, 1975  01:29:05
00458/40    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  40 
            D3.2T1  250  OLTS.21.7_SOURCE.SA.40             1 SEQ      80   16 PAGE UM   MTA                 MAR. 21, 1975  01:29:07
00458/41    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  41 
            D3.2T1  251  OLTS.21.7_SOURCE.SA.41             1 SEQ      80    8 PAGE UM   MTA                 MAR. 21, 1975  01:29:09
00458/42    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  42 
            D3.2T1  252  OLTS.21.7_SOURCE.SA.42             1 SEQ      80    3 PAGE UM   MTA                 MAR. 21, 1975  01:29:12
00458/43    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  43 
            D3.2T1  253  OLTS.21.7_SOURCE.SA.43             1 SEQ      80   37 PAGE UM   MTA                 MAR. 21, 1975  01:29:15
00458/44    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  44 
            D3.2T1  254  OLTS.21.7_SOURCE.SA.44             1 SEQ      80   17 PAGE UM   MTA                 MAR. 21, 1975  01:29:18
00458/45    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  45 
            D3.2T1  255  OLTS.21.7_SOURCE.SA.45             1 SEQ      80   15 PAGE UM   MTA                 MAR. 21, 1975  01:29:19
00458/46    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  46 
            D3.2T1  256  OLTS.21.7_SOURCE.SA.46             1 SEQ      80   31 PAGE UM   MTA                 MAR. 21, 1975  01:29:22
00458/47    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  47 
            D3.2T1  257  OLTS.21.7_SOURCE.SA.47             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:29:24
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00458/48    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  48 
            D3.2T1  258  OLTS.21.7_SOURCE.SA.48             1 SEQ      80   12 PAGE UM   MTA                 MAR. 21, 1975  01:29:26
00458/49    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  49 
            D3.2T1  259  OLTS.21.7_SOURCE.SA.49             1 SEQ      80   15 PAGE UM   MTA                 MAR. 21, 1975  01:29:29
00458/50    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  50 
            D3.2T1  260  OLTS.21.7_SOURCE.SA.50             1 SEQ      80   10 PAGE UM   MTA                 MAR. 21, 1975  01:29:31
00458/51    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  51 
            D3.2T1  261  OLTS.21.7_SOURCE.SA.51             1 SEQ      80    5 PAGE UM   MTA                 MAR. 21, 1975  01:29:33
00458/52    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  52 
            D3.2T1  262  OLTS.21.7_SOURCE.SA.52             1 SEQ      80   24 PAGE UM   MTA                 MAR. 21, 1975  01:29:36
00458/53    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  53 
            D3.2T1  263  OLTS.21.7_SOURCE.SA.53             1 SEQ      80   27 PAGE UM   MTA                 MAR. 21, 1975  01:29:38
00458/54    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  54 
            D3.2T1  264  OLTS.21.7_SOURCE.SA.54             1 SEQ      80   24 PAGE UM   MTA                 MAR. 21, 1975  01:29:41
00458/55    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  55 
            D3.2T1  265  OLTS.21.7_SOURCE.SA.55             1 SEQ      80   33 PAGE UM   MTA                 MAR. 21, 1975  01:29:43
00458/56    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  56 
            D3.2T1  266  OLTS.21.7_SOURCE.SA.56             1 SEQ      80   11 PAGE UM   MTA                 MAR. 21, 1975  01:29:45
00458/57    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  57 
            D3.2T1  267  OLTS.21.7_SOURCE.SA.57             1 SEQ      80   39 PAGE UM   MTA                 MAR. 21, 1975  01:29:48
00458/58    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  58 
            D3.2T1  268  OLTS.21.7_SOURCE.SA.58             1 SEQ      80   32 PAGE UM   MTA                 MAR. 21, 1975  01:29:51
00458/59    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  59 
            D3.2T1  269  OLTS.21.7_SOURCE.SA.59             1 SEQ      80   21 PAGE UM   MTA                 MAR. 21, 1975  01:29:54
00458/60    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  60 
            D3.2T1  270  OLTS.21.7_SOURCE.SA.60             1 SEQ      80   20 PAGE UM   MTA                 MAR. 21, 1975  01:29:56
00458/61    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  61 
            D3.2T1  271  OLTS.21.7_SOURCE.SA.61             1 SEQ      80   18 PAGE UM   MTA                 MAR. 21, 1975  01:29:58
00458/62    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  62 
            D3.2T1  272  OLTS.21.7_SOURCE.SA.62             1 SEQ      80    8 PAGE UM   MTA                 MAR. 21, 1975  01:30:00
00458/63    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  63 
            D3.2T1  273  OLTS.21.7_SOURCE.SA.63             1 SEQ      80   10 PAGE UM   MTA                 MAR. 21, 1975  01:30:02
00458/64    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  64 
            D3.2T1  274  OLTS.21.7_SOURCE.SA.64             1 SEQ      80   12 PAGE UM   MTA                 MAR. 21, 1975  01:30:05
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00458/65    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  65 
            D3.2T1  275  OLTS.21.7_SOURCE.SA.65             1 SEQ      80   38 PAGE UM   MTA                 MAR. 21, 1975  01:30:08
00458/66    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  66 
            D3.2T1  276  OLTS.21.7_SOURCE.SA.66             1 SEQ      80    7 PAGE UM   MTA                 MAR. 21, 1975  01:30:10
00458/67    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  67 
            D3.2T1  277  OLTS.21.7_SOURCE.SA.67             1 SEQ      80    3 PAGE UM   MTA                 MAR. 21, 1975  01:30:12
00458/68    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  68 
            D3.2T1  278  OLTS.21.7_SOURCE.SA.68             1 SEQ      80   19 PAGE UM   MTA                 MAR. 21, 1975  01:30:15
00458/69    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  69 
            D3.2T1  279  OLTS.21.7_SOURCE.SA.69             1 SEQ      80   13 PAGE UM   MTA                 MAR. 21, 1975  01:30:17
00458/70    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  70 
            D3.2T1  280  OLTS.21.7_SOURCE.SA.70             1 SEQ      80   15 PAGE UM   MTA                 MAR. 21, 1975  01:30:19
00458/71    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  71 
            D3.2T1  281  OLTS.21.7_SOURCE.SA.71             1 SEQ      80   24 PAGE UM   MTA                 MAR. 21, 1975  01:30:22
00458/72    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  72 
            D3.2T1  282  OLTS.21.7_SOURCE.SA.72             1 SEQ      80   11 PAGE UM   MTA                 MAR. 21, 1975  01:30:24
00458/73    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  73 
            D3.2T1  283  OLTS.21.7_SOURCE.SA.73             1 SEQ      80    2 PAGE UM   MTA                 MAR. 21, 1975  01:30:26
00458/74    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  74 
            D3.2T1  284  OLTS.21.7_SOURCE.SA.74             1 SEQ      80   21 PAGE UM   MTA                 MAR. 21, 1975  01:30:29
00458/75    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  75 
            D3.2T1  285  OLTS.21.7_SOURCE.SA.75             1 SEQ      80   26 PAGE UM   MTA                 MAR. 21, 1975  01:30:31
00458/76    OLTS                     21.7 SOURCE     SA  G          S0710 OLTEP                                                  76 
            D3.2T1  286  OLTS.21.7_SOURCE.SA.76             1 SEQ      80    9 PAGE UM   MTA                 MAR. 21, 1975  01:30:33
00458/77    OLTS                     OLTEPMACLIB     SM  G          MTA:OLTEPMACLIB                                                 
            D3.2T1  287  OLTS.OLTEPMACLIB.SM.77             1 LINE     72   56 PAGE UM   MTA                 MAR. 21, 1975  01:30:37
0          MACROS, SOME OF WHICH ARE USED BY OLTEP -- NOT SURE WHICH MACROS ARE NOT NEEDED.
0          Referenced by comments of: 458/1 
00458/78    OLTS                     OBJECT          OC  G          MTA:OLTEP                                                       
            D3.2T1  288  OLTS.OBJECT.OC.78                  1 SEQ     920    2 PAGE UM   MTA                 MAR. 21, 1975  01:30:42
0          OBJECT FOR OLTEP MAIN PROGRAM AND IFDOLT59, WHICH IS INCLUDED TO GET THE RIGHT
           DEFINITION OF SOME MULTIPLY DEFINED SYMBOLS.
00458/79    OLTS                     OLTEPLIB        OL  G          MTA:OLTEPLIB                                                    
            D3.2T1  289  OLTS.OLTEPLIB.OL.79                1 SEQ    2572   62 PAGE UM   MTA                 MAR. 21, 1975  01:30:44
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:
1                                                                                               FRI AUG 02/96   19:04:25   Page  128
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          TO IFDOLT20:   REP  000000  0141F00020,07FE
           TO IFDOLT22:   REP  000386  0147000000
00458/80    OLTS                     OLTEPBLDLIN     D   G          MTA:OLTEPBLDLIN                                                 
            D3.2T1  290  OLTS.OLTEPBLDLIN.D.80              1 LINE     60    4 PAGE UM   MTA                 MAR. 21, 1975  01:30:47
0          INPUT TO CREBLDL (538/4) FOR OLTEP INCLUDING ITEL 7330'S.
0          Referenced by comments of: 458/82 
00458/81    OLTS                     OLTEPBLDL       D   G          S0938 FSAVE2 FSNAME=OLTEPBLDL.D                                 
            D3.2T1  291  OLTS.OLTEPBLDL.D.81                1 SEQ     242    1 PAGE UM   MTA                 FEB. 14, 1975  02:18:51
0          BLDL INFO FOR OLTEP.  CREATED BY CREBLDL (538/4) USING 458/80 AS INPUT.
           NOTE:  ITEL 7330 STUFF NOT INCLUDED.
00458/82    OLTS                     OLTEPTSTLIB     OL  G          S0938 FSAVE2 FSNAME=OLTEPTSTLIB.D                               
            D3.2T1  292  OLTS.OLTEPTSTLIB.OL.82             1 SEQ    3970   46 PAGE UM   MTA                 FEB. 14, 1975  02:12:22
0          OBJECT LIBRARY FOR TEST SECTIONS AND CDS (CONFIGURATION DATA SET) MODULES.
           INCLUDES TESTS FOR 2400, 2301, 2540, 2541, 2501, AND 1403.
           TO ADD NEW TEST SECTIONS, SIMPLY PUT THEM IN THIS LIBRARY AND ADD A LINE FOR
           EACH TO OLTEPBLDLIN (458/80) (AND RUN IT THROUGH CREBLDL).
           EACH TEST SECTION MUST HAVE AN ENTRY WITH THE SAME NAME AS THE SECTION (E.G. T2400A).
            
           NOTE:  ITEL 7330 TESTS NOT INCLUDED BECAUSE OF ISS COPYRIGHTS.
00458/83    OLTS                     OLTEPCDSGEN     OC  G        # MTA:OLTEPCDSGEN                                                 
                                                                                    UM   MTA                                        
0          ITEL OS PROGRAM TO PRODUCE CDS MODULES FOR 7330 DISKS.  RUN IT UNDER *FAKEOS
           WITH SYSIN, SYSPRINT, AND SYSPUNCH.
            
           NOTE:  NOT DISTRIBUTED BECAUSE OF ISS COPYRIGHTS.
0          Referenced by comments of: 458/84 
00458/84    OLTS                     OLTEPCDSIN      D   G        # MTA:OLTEPCDSIN                                                  
                                                                                    UM   MTA                                        
0          INPUT TO OLTEPCDSGEN (458/83) TO PRODUCE CDS MODULES FOR UM 7330 CONFIGURATION.
00458/85    OLTS                     OLTEPCMD        C              MTA:OLTEPCMD                                                    
            D3.2T1  293  OLTS.OLTEPCMD.C.85                 1 LINE     90    1 PAGE UM   MTA                 MAR. 21, 1975  01:31:05
0          THE FOLLOWING PROCEDURES SHOULD BE USED FOR RELEASE 21.7 OLTS.
           TO RUN OLTS, ISSUE THE FOLLOWING COMMAND:
            
             $SOURCE OLTEPCMD
            
           WHERE OLTEPCMD IS 458/85 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 OLTS 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                                                                                               FRI AUG 02/96   19:04:25   Page  129
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          (1)  PAGES 1-40 DESCRIBE HOW TO INSTALL AND INVOKE OLTEP IN OS AND ARE IRRELEVANT.
           (2)  THE PROCEDURE REQUIRED TO STOP RUNNING A TEST IS TO PRESS THE ATTENTION KEY.
           (3)  ALL COMMUNICATION IS VIA THE TERMINAL, NOT THE OPERATOR'S CONSOLE.
           (4)  IT IS NOT NECESSARY TO TYPE "R 00,'XXX'", SINCE "XXX" IS TREATED IN EXACTLY THE SAME WAY.
           (5)  THE PRINTED OUTPUT FROM OLTEP (REFERED TO AS THE DIAGMSG DD IN THE MANUAL) WILL BE PUT
                IN THE TEMPORARY FILE -DIAG WHICH MAY BE COPIED TO *PRINT* AFTER OLTEP TERMINATES.
00459      *ICSERIES                                 S            # (OBSOLETE)                                                      
            D2T2    155                                                             UM                                              
00460       WIREWRAP TEST                                         # (OBSOLETE)                                                      
            D2T2    156                                                             UM                                              
00461/01    DISTRIBUTION             *FS                          # (SEE COMP 548)                                                  
                                                                                    UBC                                             
00461/02    DISTRIBUTION             *DEDIT          SA  G  DED0    WSG:DEDIT                                                       
            D3.2T1  294  DISTRIBUTION.*DEDIT.SA.02          1 LINE     80   39 PAGE UM   WSG                 MAR. 21, 1975  01:31:07
0          DISTRIBUTION DRIVER/COMMENT FILE EDITOR PROGRAM.
           THIS PROGRAM IS USED TO CONSTRUCT AND EDIT A DISTRIBUTION DRIVER FILE SUCH AS 461/7.
           IT ALSO ALLOWS COMMENTS TO BE ENTERED IN THE DRIVER FILE (OR ANOTHER FILE) FOR EACH COMPONENT.
           COPIES COPY:DRDSECT (461/12).
00461/03    DISTRIBUTION             *DEDIT          OE  G          *DEDIT                                                          
            D3.2T1  295  DISTRIBUTION.*DEDIT.OE.03          1 SEQ    8938    4 PAGE UM   WSG                 MAR. 21, 1975  01:31:13
00461/04    DISTRIBUTION             5-LINE          SA  G  5LIN    S0675 UBCUM 'UBC -> UM #23' FSNAME=FS5L.S                       
            D3T3     31  DISTRIBUTION.5-LINE.SA.7           1 LINE     80    7 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/05    DISTRIBUTION             5-LINE          OC  G          MTS:FS5L                                                        
            D3T3     32  DISTRIBUTION.5-LINE.OC.8           1 LINE     80    3 PAGE UBC  HOGG                AUG. 01, 1973  18:28.14
00461/06    DISTRIBUTION             CLEAN COMMENTS               # (OBSOLETED BY *DEDIT)                                           
            D3T3     33  DISTRIBUTION.CLEAN_COMMENT.SA.9    1 LINE     80    3 PAGE UM                       AUG. 01, 1973  18:28.16
00461/07    DISTRIBUTION             CURRENT DRIVER  D              MTS:DRIVER                                                      
            D3.2T2  128  DISTRIBUTION.CURRENT_DRIVE.D.07    1 LINE    235  149 PAGE UM   WSG                 MAR. 21, 1975  13:20:21
0          THIS IS THE CURRENT COMPLETE DRIVER FILE FOR ALL COMPONENTS.
00461/08    DISTRIBUTION             CURRENT COMM    D              MTS:COMM                                                        
            D3.2T2  129  DISTRIBUTION.CURRENT_COMM.D.08     1 LINE    122   65 PAGE UM   WSG                 MAR. 21, 1975  13:20:51
0          THIS IS THE CURRENT COMPLETE DISTRIBUTION COMMENT FILE.
00461/09    DISTRIBUTION             NEW SYSTEMS     WF             MTS:D3.INSTALL                                                  
            D3T3     35  DISTRIBUTION.NEW_SYSTEMS.WF.13     1 LINE    189    3 PAGE UM   MTA                 AUG. 01, 1973  18:29.08
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 3.0 AT NEW INSTALLATIONS, I.E. INSTALLATIONS WHICH ARE
           NOT CURRENTLY RUNNING MTS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00461/10    DISTRIBUTION             OLD SYSTEMS     WF             MTS:D3CONVERSION                                                
            D3T5    257  DISTRIBUTION.OLD_SYSTEMS.WF.14     1 LINE     77    3 PAGE UM   MTA                 AUG. 11, 1973  01:29.07
0          A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 3.0 AT OLD INSTALLATIONS, I.E. INSTALLATIONS WHICH ARE
           CURRENTLY RUNNING MTS.
00461/11    DISTRIBUTION             GENERAL NOTES   WF             MTS:D3GENERAL                                                   
            D3T5    258  DISTRIBUTION.GENERAL_NOTES.WF.15   1 LINE    129    6 PAGE UM   DWB                 AUG. 11, 1973  01:29.09
0          GENERAL NOTES ON DISTRIBUTION 3.0.
00461/12    DISTRIBUTION             DRIVER DSECT    SA  G  DRVD    COPY:DRDSECT                                                    
            D3.2T1  296  DISTRIBUTION.DRIVER_DSECT.SA.12    1 LINE     80    3 PAGE UM   WSG                 MAR. 21, 1975  01:32:10
0          COPY SECTION FOR DRIVER FILE DSECT (USED BY *FS, *DEDIT, CLEANCOMM, ETC.).
           IT DEFINES THE STRUCTURE OF A DIST DRIVER FILE RECORD.
            
           THIS DSECT HAS BEEN CHANGED TO EXPLICITLY SHOW THE UNUSED COLUMNS
           (BETWEEN SOME OF THE FIELDS) WHICH WERE PREVIOUSLY ONLY IMPLIED BY FIELD LENGTHS
           WHICH WERE ONE GREATER THAN ACTUALLY USED.  ALL FIELD LENGTHS ARE NOW EXACT.
           *DEDIT AND *FS HAVE BOTH BEEN CHANGED TO ACCEPT THIS NEW FORMAT.
0          Referenced by comments of: 461/2, 548/1 
00461/13    DISTRIBUTION             DRIV INDEX GEN  C              MTS:DISTINDEX                                                   
            D3.2T1  297  DISTRIBUTION.DRIV_INDEX_GE.C.13    1 LINE    133    1 PAGE UM   WSG                 MAR. 21, 1975  01:32:11
0          COMMAND FILE TO PRODUCE AN INDEX FROM A DRIVER FILE.
00461/14    DISTRIBUTION             D3.2 DRIVER     D              MTS:D3.2DRIVER                                                  
            D3.2T2  130  DISTRIBUTION.D3.2_DRIVER.D.14      1 LINE    235   50 PAGE UM   WSG                 MAR. 21, 1975  13:21:28
0          THIS DRIVER IS A SUBSET OF 461/7 AND WAS USED TO PRODUCE THE 1600 BPI D3.2 DISTRIBUTION TAPE.
00461/15    DISTRIBUTION             D3.2DRIVER 800  D              MTS:D3.2DRIVE800                                                
            D3.2T2  131  DISTRIBUTION.D3.2DRIVER_80.D.15    1 LINE    235   50 PAGE UM   WSG                 MAR. 21, 1975  13:21:33
0          SAME AS 461/14 EXCEPT THE OUTPUT TAPE NUMBERS REFLECT THE 800 BPI D3.2 DISTRIBUTION.
00462/01    CHECKSUM                 D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=CHKS                  8  
            D3T3     36  CHECKSUM..SA.1                     1 SEQ      80    3 PAGE UM   DWB                 AUG. 01, 1973  18:30.28
0          SUBROUTINE TO DETERMINE IF THE MTS DSECT IS STILL VALID. CAN FORCE A SNARK OR CALL SIGNOFF IF NOT.
           COPIES COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), 
           AND COPY:MTS.TV (640).  NEEDS MACROS IN COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1, 462/2 
00462/02    CHECKSUM                 UPDATE          UU  G          MTS:CHKSUPD                                                     
            D3.2T1  298  CHECKSUM.UPDATE.UU.02              1 LINE     35    1 PAGE UM   DWB                 MAR. 21, 1975  01:32:27
0          UPDATE TO D3 MASTER (462/1) TO PRODUCE CURRENT SOURCE.
           UPDATE DECK USES %POSN *IN* CHKS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00462/03    CHECKSUM                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00463/01    STANDARD DUMP                            SA  G          S0722 'D3T3' FSNAME=STANDARD_DUMP..SA.1                       37
            D3T3     37  STANDARD_DUMP..SA.1                1 SEQ      80    7 PAGE UM   MTA                 AUG. 01, 1973  18:30.34
0          PRODUCES STANDARD FORMAT DUMPS.  SEE ALSO SDUMP (049).
00463/02    STANDARD DUMP                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00464/01    PLIMIT                   D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=PLIM                  5  
            D3T3     38  PLIMIT..SA.1                       1 SEQ      80    3 PAGE UM   DWB                 AUG. 01, 1973  18:30.37
0          CHECKS PAGE AND PUNCH LIMITS.
           COPIES COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), 
           AND COPY:MTS.TV (640).
           NEEDS MACROS IN COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1, 464/2 
00464/02    PLIMIT                   UPDATE          UU  G          MTS:PLIMUPD                                                     
            D3.2T1  299  PLIMIT.UPDATE.UU.02                1 LINE     55    1 PAGE UM   DWB                 MAR. 21, 1975  01:32:28
0          UPDATE TO D3 MASTER (464/1) TO PRODUCE CURRENT SOURCE.
           UPDATE DECK USES %POSN *IN* PLIM.
00464/03    PLIMIT                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00465/01   *APL                      MONITOR         SA     APLM    DWB:PF.APLMTS.S                                                 
            D3T3     39  APL.MONITOR.SA.1                   1 LINE     80   54 PAGE UM   DWB                 AUG. 01, 1973  18:30.48
0          APL MONITOR.  COPIES APLDEFN (465/2), DIRSECT (465/3), ZSYMBOLS (465/4), PERTERM (465/5), AND *GFINFODSECT (593).
           THIS IS UBC'S UD18 SOURCE (REC'D 2 DEC 71) WITH CHANGES TO ADD PAR=CORR, CHANGES FOR RSF, AND CHANGES TO CALL
           GFINFO INSTEAD OF THE LOW-LEVEL FILE ROUTINES.  NO LONGER REQUIRES TSNIF.
00465/02   *APL                      APLDEFN         SA     APLD    DWB:APLDEFN                                                     
            D3T3     40  APL.APLDEFN.SA.2                   1 LINE     80    6 PAGE UM   DWB                 AUG. 01, 1973  18:31.12
0          Referenced by comments of: 465/1 
00465/03   *APL                      DIRSECT         SA     DIRS    DWB:DIRSECT                                                     
            D3T3     41  APL.DIRSECT.SA.3                   1 LINE     80    2 PAGE UM   DWB                 AUG. 01, 1973  18:31.13
0          Referenced by comments of: 465/1 
00465/04   *APL                      ZSYMBOLS        SA     ZSYM    DWB:ZSYMBOLS                                                    
            D3T3     42  APL.ZSYMBOLS.SA.4                  1 LINE     80    5 PAGE UM   DWB                 AUG. 01, 1973  18:31.18
0          Referenced by comments of: 465/1, 465/6 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00465/05   *APL                      PERTERM         SA     PERT    DWB:PERTERM                                                     
            D3T3     43  APL.PERTERM.SA.5                   1 LINE     80    4 PAGE UM   DWB                 AUG. 01, 1973  18:31.20
0          Referenced by comments of: 465/1 
00465/06   *APL                      TRTAB           SA     TRTA    DWB:UD18.TRTA.S                                                 
            D3T3     44  APL.TRTAB.SA.6                     1 LINE     80   24 PAGE UM   DWB                 AUG. 01, 1973  18:31.22
0          THIS IS UBC'S UD18 SOURCE FOR TRANSLATE TABLES WITH ERROR CORRECTED.
           COPIES ZSYMBOLS (465/4).
00465/07   *APL                      COMPIL/INTERPR  S            # (NOT AVAILABLE)                                                 
                                                                                    UM   DWB                                        
0          APL COMPILER/INTERPRETER.  NO SOURCE AVAILABLE.
00465/08   *APL                      SHARED OBJECT   OC             SEG2:S2APL                                                      
            D3T3     45  APL.SHARED_OBJECT.O.8              1 LINE    255   48 PAGE UM   DWB                 AUG. 01, 1973  18:31.28
0          APL OBJECT LOADED INTO SHARED VM BY SEG 2 LOADER AT IPL.
00465/09   *APL                      *APL            OC             *APL                                                            
            D3T3     46  APL.*APL.OC.9                      1 LINE     24    1 PAGE UM   DWB                 AUG. 01, 1973  18:31.37
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SEGMENT 2 APL (465/9).
0          Referenced by comments of: 465/9 
00465/10   *APL                      USERS' GUIDE    WF             S0722 'D3T3' FSNAME=APL.USERS'_GUIDE.WF.10                    47
            D3T3     47  APL.USERS'_GUIDE.WF.10             1 LINE     80    6 DISK UM   DWB                 MAR. 16, 1973  16:01.32
0          THIS IS COMPUTING CENTER MEMO M203 -- "MTS APL USERS' GUIDE"
           NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY.
00466/01    ACTIVCNT/ASTATSUB                        SA  G  ACAS    MTS:ACTIVCNT(1,99)                                              
            D3T3     48  ACTIVCNT/ASTATSUB..SA.1            1 LINE     80    1 PAGE UM   DWB                 AUG. 01, 1973  18:32.00
0          ACTIVCNT CONTAINS THE NUMBER OF USERS SIGNED ON AND ASTATSUB IS USED
           TO COMMUNICATE BETWEEN MTS AND THE STAT JOB.
           ACTIVCNT HAS BEEN EXPANDED SINCE DIST 2.0 FROM ONE TO THREE WORDS.  THE EXTRA TWO WORDS (ONE FOR BATCH,
           ONE FOR TERMINAL) ARE INCREMENTED WHENEVER ANYONE SIGNS OFF.  THIS PERMITS PROGRAMS TO MEASURE JOB
           THROUGHPUT CONVENIENTLY.  ASTATSUB IS UNCHANGED SINCE DIST 2.0.
00466/02    ACTIVCNT/ASTATSUB                        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00467/01    ENDSEG2                                  SA  G  ENDS    S0722 'D3T3' FSNAME=ENDSEG2..SA.1                             49
            D3T3     49  ENDSEG2..SA.1                      1 SEQ      80    1 PAGE UM   MTA                 AUG. 01, 1973  18:33.38
0          ASSEMBLY WHOSE ONLY PURPOSE IS TO MARK THE END OF THE IPLED PART OF SEGMENT 2.
           UNCHANGED SINCE DIST 2.0.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00467/02    ENDSEG2                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00468/01    RESIDENT SYSTEM          370 OBJECT      OC             XXX 'CURRENT SYSTEM OBJECT TAPE' FMT=F(80,80)                1  
            D3.2T1  300  RESIDENT_SYSTEM.370_OBJECT.OC.01   1 SEQ      80  141 PAGE UM   MTA                 MAR. 21, 1975  01:34:00
0          CURRENT UM 370/168 RESIDENT SYSTEM OBJECT.
0          Referenced by comments of: 156/1, 468/3, 634/5 
00468/02    RESIDENT SYSTEM          360 OBJECT      D            = ???                                                             
                                                                                    UM   MTA                                        
0          Referenced by comments of: 634/6 
00468/03    RESIDENT SYSTEM          UM RAMROD       D              MTS:ROD                                                         
            D3.2T1  301  RESIDENT_SYSTEM.UM_RAMROD.D.03     1 SEQ   32767  249 PAGE UM   MTA                 MAR. 21, 1975  01:34:08
0          CURRENT UM RAMROD FILE INCLUDING SYSTEM "AR205" (468/1).
            
           THE FOLLOWING PROCEDURES ARE USED IN MAINTAINING THIS FILE.
           WHENEVER A NEW SYSTEM IS INSTALLED (I.E. WRITTEN ON MTS001), THREE
           THINGS ARE DONE:
            
             (1)  AN IPLABLE DECK IS WRITTEN ON A TAPE USING THE RAMROD "COPY"
                  COMMAND AND THIS TAPE IS PUT ON THE TOP OF A THREE TAPE PUSH
                  DOWN STACK OF SYSTEM OBJECT TAPES KEPT IN THE MACHINE ROOM.
            
             (2)  THE NAME OF THE SYSTEM INSTALLED IS CHANGED TO THE "MODEL NUMBER"
                  OF THE DATE IT IS INSTALLED, E.G. "AR135" FOR TODAY.
            
             (3)  THE SYSTEM INSTALLED IS MADE THE CURRENT SYSTEM.
            
             (4)  THE OLDEST SYSTEM IS DELETED SO THAT THERE ARE THREE SYSTEMS--
                  THE CURRENT ONE AND THE TWO PRECEDING.
            
           WHEN SOMEONE WISHES TO INSTALL A NEW COMPONENT, BUT NOT WRITE THE DISK,
           A NEW SYSTEM CALLED "NEWSYS" SHOULD BE CREATED FROM THE CURRENT SYSTEM
           (IF IT DOESN'T ALREADY EXIST) AND THE DESIRED CHANGES MADE AND NOTED
           USING THE "ANNOTATE" COMMAND.  THEN WHEN THE DISK IS WRITTEN, THE SYSTEM
           "NEWSYS" IS THE ONE USED ACCORDING TO THE PROCEDURE ABOVE.
            
           A TEST SYSTEM CAN BE CREATED AT ANY TIME WITH ANY NAME, BUT WHEN THE
           NEW COMPONENTS ARE READY TO BE INSTALLED, THEY SHOULD BE PUT IN "NEWSYS"
           AND THE TEST SYSTEM DESTROYED.
00468/04    RESIDENT SYSTEM          WRITEUP         WF           = ????                                                            
            D3T3     50  SYSTEM_OBJECT_DECK.WRITEUP.WF.3    1 LINE    142    4 PAGE UM   MTA                 AUG. 01, 1973  18:34.23
0          A WRITEUP DESCRIBING THE STRUCTURE OF THE SYSTEM OBJECT DECKS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00469       360/20 RJE SUPPORT PGM                   S            # (OBSOLETE)                                                      
            D2T1    094                                                             UM                                              
00470       PCB DSECT                COPY:PCBDSECT   SA  G          COPY:PCBDSECT                                                   
            D3.2T1  302  PCB_DSECT.COPY:PCBDSECT.SA.        1 LINE     72    2 PAGE UM   MTA                 MAR. 21, 1975  01:34:25
0          DSECT FOR THE PAGE CONTROL BLOCK.  COPIED BY THE SUPERVISOR, PDP, AND CONFIG AMONG OTHERS.
0          Referenced by comments of: 44/1, 45/2, 46/2, 400/1, 577/25, 577/53 
00471/01    REX                      MONITOR         SA  G  REX0    S0871 REX370 FSNAME=REXS2                                    1  
            D3.2T1  303  REX.MONITOR.SA.01                  1 LINE     80   78 PAGE UM   MTA                 JULY 16, 1974  13:04:27
0          CUSTOMER ENGINEER I/O EXERCISOR PROGRAM WRITEN BY IBM C.E. ROLF WITZSCHE AT UBC.
            
           THIS IS THE REX SUPERVISOR-MONITOR WHICH LOADS THE PROGRAM SECTIONS FROM THE SECTION FILE (REXC).  THIS FILE ALSO
           CONTAINS A SPECIAL ASSEMBLER FOR ASSEMBLING THE UDT TABLES AND PROGRAM SECTIONS.
            
           >>>> NOTE:  THE IBM EREP PROGRAM (655) IS ALSO AVAILABLE FOR USE UNDER *FAKEOS. <<<
00471/02    REX                      MONITOR         OC  G          MTA:REX                                                         
            D3.2T1  304  REX.MONITOR.OC.02                  1 LINE     80   15 PAGE UM   MTA                 MAR. 21, 1975  01:36:14
00471/03    REX                      UDT TABLE       S   G  REXU    MTA:REXUDT                                                      
            D3.2T1  305  REX.UDT_TABLE.S.03                 1 LINE     80    2 PAGE UM   MTA                 MAR. 21, 1975  01:36:16
0          REX UDT TABLE FOR THE UM CONFIGURATION.  WILL HAVE TO BE MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION.
           MUST BE ASSEMBLED BY REX, NOT *ASMG (SEE 471/6 AND 471/7).
00471/04    REX                      PGM SECTIONS    S   G  REXC    S0722 'D3T3' FSNAME=REX.PGM_SECTIONS.S.4                      55
            D3T3     55  REX.PGM_SECTIONS.S.4               1 SEQ      80  123 PAGE UM   MTA                 AUG. 01, 1973  18:37.32
0          PROGRAM SECTIONS (EXCEPT EREP) WHICH MUST BE ASSEMBLED BY REX, NOT *ASMG (SEE 471/6 AND 471/7).
00471/05    REX                      REXC            O   G          MTA:REXC                                                        
            D3.2T1  306  REX.REXC.O.05                      1 LINE     80   20 PAGE UM   MTA                 MAR. 21, 1975  01:36:18
0          OBJECT FOR UDT TABLE AND PROGRAM SECTIONS EREP, PRIN, CARD, FRND, COMP, AND TAPE (471/3, 471/4, AND 471/8).
           NOTE:  THIS IS NOT ASMG OBJECT FORMAT.
00471/06    REX                      REXGEN          C              S0722 'D3T3' FSNAME=REX.REXGEN.C.6                            57
            D3T3     57  REX.REXGEN.C.6                     1 LINE     57    1 PAGE UM   MTA                 AUG. 01, 1973  18:39.57
0          COMMAND FILE TO ASSEMBLE REX (USING *ASMG) AND TO ASSEMBLE THE UDT TABLE AND PROGRAM SECTIONS (USING REX).
00471/07    REX                      REXGEN1         C              S0722 'D3T3' FSNAME=REX.REXGEN1.C.7                           58
            D3T3     58  REX.REXGEN1.C.7                    1 LINE     24    1 PAGE UM   MTA                 AUG. 01, 1973  18:39.59
0          COMMAND FILE TO ASSEMBLE CERTAIN PROGRAM SECTIONS (USING REX).
00471/08    REX                      370 EREP        S              MTA:REX.EREP                                                    
            D3.2T1  307  REX.370_EREP.S.08                  1 LINE    101   11 PAGE UM   MTA                 MAR. 21, 1975  01:36:23
0          SOURCE FOR REX EREP, SLIGHTLY MODIFIED FROM UBC VERSION.
1                                                                                               FRI AUG 02/96   19:04:25   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           
           INPUT TO REX/EREP IS GIVEN AS "LNN" WHERE IS L IS A SINGLE LETTER CODE AND NN IS A 2-DIGIT NUMBER CODE AS FOLLOWS:
            
           LETTER CODES:
              A, B, C, AND D ALL GENERATE TEST PATTERNS INSTEAD OF READING DATA.
                  A = 0000000200040006 ...
                  B = FFFFFFFFFFFFFFFF ...
                  C = 0000000000000000 ...
                  D - WHATEVER IS IN THE INPUT AREA
              E READS FROM A TAPE ATTACHED BY THE "S06" REX COMMAND.
              F, G, H, AND I READ FROM A LOGOUT FILE ON UNIT 2.
                  F - READ AND UPDATE THE LINE POINTER IN FILE.
                  G - READ AND DON'T UPDATE THE LINE POINTER.
                  H - DON'T UPDATE LINE POINTER AND PRINT ONLY ONE LINE PER ERROR.
                  I - IGNORE LINE POINTER.
                  NOTE:  THE LINE POINTER IS USED TO DETERMINE WHERE TO START READING.  IT IS AT LOCATION
                         X'20' IN LINE 1 OF THE FILE REXC, WHICH MUST BE ON UNIT 3.
                         IT IS A HALFWORD GIVING THE NUMBER OF RECORDS TO INITIALLY SKIP ON UNIT 2.
            
           NUMBER CODES:
              00 - FIGURE OUT LOGOUT TYPE BY INSPECTION.
              01 - ASSUME A 2870 LOGOUT.
              02 - ASSUME A 2880 LOGOUT.
              03 - ASSUME A CPU LOGOUT.
              04 - RESET THE LINE POINTER.
              05 - PRINT THE LINE POINTER.
              06 - ASSUME A 2860 LOGOUT.
            
           THE FIRST TIME IT IS ENTERED AFTER BEING ASSEMBLED, EREP READS A BUNCH OF STUFF FROM UNIT 2 (EREP1)
           AND STORES IT AT THE END OF ITSELF.  IT THEN PROCEEDS TO FIND ITSELF IN REXC ON UNIT 3 AND
           WRITE ITSELF BACK OUT STARTING AT LOCATION X'200' AND SKIPPING 8 LINES IN REXC.
0          Referenced by comments of: 471/9 
00471/09    REX                      EREP DATA       D              MTA:REX.EREP1                                                   
            D3.2T1  308  REX.EREP_DATA.D.09                 1 LINE     94   21 PAGE UM   MTA                 MAR. 21, 1975  01:36:27
0          DATA FOR EREP SECTION (471/8), SLIGHTLY MODIFIED FROM UBC VERSION.
00471/10    REX                      XREF            SS             MTA:REX.XREF                                                    
            D3.2T1  309  REX.XREF.SS.10                     1 LINE     67    1 PAGE UM   MTA                 MAR. 21, 1975  01:36:30
0          SNOBOL PROGRAM TO PRODUCE A CROSS REFERENCE FOR A REX SECTION (!"#@!).
00471/11    REX                      UPDATE                         S0871 REX370 FSNAME=UPDATE                                   4  
            D3.2T1  310  REX.UPDATE..11                     1 LINE     83    2 PAGE UM   MTA                 JULY 16, 1974  13:05:17
0          MTS AND REX COMMANDS AND INCOMPLETE PROSE DESCRIPTION FOR
           INSTALLING AND USING THE 370 EREP SECTION IN REX.
           A BETTER PROSE DESCRIPTION IS INCLUDED IN THE DISTRIBUTION
           PAPER MATERIAL.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00472/01   *ST360                    MAIN PGM        SA  G  STMN    S0722 'D3T3' FSNAME=ST360.MAIN_PGM.SA.1                       59
            D3T3     59  ST360.MAIN_PGM.SA.1                1 SEQ      80   41 PAGE UM   MTA                 AUG. 01, 1973  18:40.02
0          THE STUDENT VIRTUAL MACHINE SIMULATOR.  THE SIMULATED MACHINE HAS THE FOLLOWING CHARACTERISTICS:
            
              1.  THE SYSTEM/360 UNIVERSAL INSTRUCTION SET
              2.  NO INTERVAL TIMER
              3.  NO MEMORY PROTECTION
              4.  32K BYTES OF STORAGE
              5.  AN I/O COMPLEMENT CONSISTING OF:
            
                      A. 1052 OPERATOR'S CONSOLE            ADDRESS 0009
                      B. 2540 CARD READER                   ADDRESS 000C
                      C. 2540 CARD PUNCH                    ADDRESS 000D
                      D. 1403 LINE PRINTER                  ADDRESS 000E
                      E. 2 2401 9-TRACK TAPE DRIVES         ADDRESSES 0180-0181
            
              6.  EXCEPT AT IPL, SELF-MODIFYING CCW'S ARE NOT ALLOWED
              7.  INSTANTANEOUS I/O
            
           NOTE:  THE STANDARD VIRTUAL MACHINE (558) NOW HAS AN ASSEMBLY PARAMETER
                  TO PRODUCE A STUDENT VERSION.
00472/02   *ST360                    CCWTRANS SUBR   SA  G  CCWT    S0722 'D3T3' FSNAME=ST360.CCWTRANS_SUBR.SA.2                  60
            D3T3     60  ST360.CCWTRANS_SUBR.SA.2           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.
00473/001  *1130ASM                  CCD             SA     CCD0    S0059 '*1130ASM' FMT=FB(4000,80)                             1  
            D3T3     62  1130ASM.CCD.SA.1                   1 SEQ      80   48 PAGE UM   ?                   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     M000    S0059 '*1130ASM' FMT=FB(4000,80)                             2  
            D3T3     63  1130ASM.M0.SA.2                    1 SEQ      80    2 PAGE UM   ?                   AUG. 01, 1973  18:51.57
00473/003  *ST360                    OBJECT          OE  G          *ST360                                                          
            D3T3     61  ST360.OBJECT.OE.3                  1 SEQ    8776    3 PAGE UM   MTA                 AUG. 01, 1973  18:49.56
00473/004  *1130ASM                  M12             SA     M120    S0059 '*1130ASM' FMT=FB(4000,80)                             3  
            D3T3     64  1130ASM.M12.SA.3                   1 SEQ      80   74 PAGE UM   ?                   AUG. 01, 1973  18:52.43
00473/005  *1130ASM                  M3              SA     M030    S0059 '*1130ASM' FMT=FB(4000,80)                             4  
            D3T3     65  1130ASM.M3.SA.4                    1 SEQ      80   89 PAGE UM   ?                   AUG. 01, 1973  18:53.47
00473/006  *1130ASM                  M4              SA     M040    S0059 '*1130ASM' FMT=FB(4000,80)                             5  
            D3T3     66  1130ASM.M4.SA.5                    1 SEQ      80   25 PAGE UM   ?                   AUG. 01, 1973  18:54.12
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00473/007  *1130ASM                  OBJECT          OC             *1130ASM                                                        
            D3T3     67  1130ASM.OBJECT.OC.6                1 SEQ      80   18 PAGE UM   ?                   AUG. 01, 1973  18:54.16
00474       FILETEST                                              # (SEE COMP 482)                                                  
                                                                                    UM                                              
00475       OS SIMULATION PACKAGE                    S            # (OBSOLETE)                                                      
            D2T1    284                                                             UM                                              
00476       DBS:MSG                                  S            # (OBSOLETE)                                                      
            D2T1    441                                                             UM                                              
00477       SIMPLEX OBJECT DECK                      OC           # (SEE COMP 468)                                                  
                                                                                    UM                                              
00480       APF                                      SA           # (OBSOLETE)                                                      
            D2T1    329                                                             UM                                              
00481       FILE SAVE - OLD VERSION                  O            # (OBSOLETE)                                                      
            D2T1    001                                                             UM                                              
00482/01    FILE SYSTEM              DASDUC          SA  G  DAUC    W045:DASDUC                                                     
            D3T3     68  FILE_SYSTEM.DASDUC.SA.1            1 LINE     80   18 PAGE UM   PIRKOLA             AUG. 01, 1973  18:54.20
0          2311/2314/2321/2301 UNIT CHECK ROUTINES.
00482/02    FILE SYSTEM              DASDUC          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/03    FILE SYSTEM              MOVIT           SA  G  MOVE    W045:PF.MOVE                                                    
            D3.2T1  311  FILE_SYSTEM.MOVIT.SA.03            1 LINE     80    4 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:36
0          SUBROUTINE TO MOVE CORE AROUND.  COPIES *CNFGINFODSECT (654).
00482/04    FILE SYSTEM              MOVIT           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/05    FILE SYSTEM              VOLGET          SA  G  VGET    W045:PF.VOLGET                                                  
            D3.2T1  312  FILE_SYSTEM.VOLGET.SA.05           1 LINE     80   22 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:37
0          BASIC LOW LEVEL DISK SUBROUTINES TO EXECUTE CHANNEL PROGRAMS, ETC.  COPIES COPY:DSKDSCT (482/42) AND COPY:FCBEQU (482/27).
0          Referenced by comments of: 534/5 
00482/06    FILE SYSTEM              VOLGET          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/07    FILE SYSTEM              TRAK            SA  G  TRAK    W045:PF.TRAK                                                    
            D3.2T1  313  FILE_SYSTEM.TRAK.SA.07             1 LINE     80   17 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:40
0          BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE PHYSICAL RECORDS.
           COPIES COPY:FCBEQU (482/27), COPY:DSKDSCT (482/42), AND *CNFGINFODSECT (654).
            
           NOTE:  THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00482/08    FILE SYSTEM              TRAK            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/09    FILE SYSTEM              FILETEST        SA  O  FTST    W045:PF.FILETEST                                                
            D3T3     72  FILE_SYSTEM.FILETEST.SA.9          1 LINE     80   23 PAGE UM   PIRKOLA             AUG. 01, 1973  18:54.35
0          FILE ROUTINES PRIMATIVE TEST PROGRAM.  SEE COMMENTS IN SOURCE FOR USAGE.
           THIS PROGRAM ACTS AS A MAIN PROGRAM TO CALL PRIVATE COPIES OF ALL OF THE FILE ROUTINES.
00482/10    FILE SYSTEM              FILETEST        OC  O          W045:PF.FILETEST.O                                              
            D3T3     73  FILE_SYSTEM.FILETEST.OC.10         1 LINE     80    5 PAGE UM   PIRKOLA             AUG. 01, 1973  18:54.46
0          PRIVATE COPIES OF THE FOLLOWING FILE ROUTINES SHOULD BE LOADED WITH FILETEST:
            
               VOLGET, TRAK, READI, WRITEI, READL, OPEN ETC, GETDSK, FLINE, CATALOG, RWSEQ, TABLRTN, TABLES, AND DSACC.
            
           THESE SHOULD BE THE REGULAR VERSIONS EXCEPT AS FOLLOWS:
            
             TABLRTN          THIS SHOULD BE A SPECIAL VERSION OF TABLRTN (482/30) WHICH DOES NOT EXECUTE ANY SVC'S.
                              A CHANGE IN THE MYSVC MACRO TO ASSEMBLE A NOP WILL ACCOMPLISH THIS.
            
             DSACC            THIS SHOULD BE THE SPECIAL VERSION OF DSACC (482/40), THE DISK ACCOUNTING ROUTINES,
                              WHICH JUST GIVE RETURN CODE ZERO.  IF THIS IS NOT PROVIDED THE REGULAR DISK ACCOUNTING 
                              ROUTINES WOULD BE CALLED THEREBY ACCOUNTING FOR FILES CREATED OR DESTROYED ON THE TEST PACK.
            
             TABLES           YOU SHOULD MAKE A SPECIAL VERSION OF TABLES (004) WHICH HAS ONLY VOLUME "MTSTST"
                              (THE TEST PACK) AND PERHAPS HAS ONLY A LIMITED SET OF DRIVE ADDRESSES.  IF THE
                              FULL SET OF VOLUMES WERE INCLUDED, THE FILE TESTING PROCEDURE COULD EASILY LATCH
                              ONTO A "LIVE" (I.E. NON-TEST) DISK PACK AND SCREW-UP REGULAR USER FILES.
            
           THIS FILE HAS A "$CONTINUE WITH W045:DSACC(1000) RETURN" RECORD IN IT.
00482/11    FILE SYSTEM              READI           SA  G  READ    W045:PF.READ                                                    
            D3.2T1  314  FILE_SYSTEM.READI.SA.11            1 LINE     80   14 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:42
0          SUBROUTINE TO READ FROM A LINE FILE.
           COPIES COPY:FCBEQU (482/27)
00482/12    FILE SYSTEM              READI           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/13    FILE SYSTEM              WRITEI          SA  G  WRIT    W045:PF.WRITEI                                                  
            D3.2T1  315  FILE_SYSTEM.WRITEI.SA.13           1 LINE     80   30 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:44
0          SUBROUTINE TO WRITE INTO A LINE FILE.
           COPIES COPY:FCBEQU (482/27)
00482/14    FILE SYSTEM              WRITEI          OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/15    FILE SYSTEM              READL           SA  G  REDL    W045:PF.READL                                                   
            D3.2T1  316  FILE_SYSTEM.READL.SA.15            1 LINE     80   11 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:47
0          SUBROUTINE TO FIND THE FIRST OR LAST LINE NUMBER IN A FILE.
1                                                                                               FRI AUG 02/96   19:04:25   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          ALSO CONTAINS A SUBROUTINE TO RENUMBER A LINE FILE.  COPIES COPY:FCBEQU (482/27).
00482/16    FILE SYSTEM              READL           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
0          ***** NOTE:  THIS OBJECT CONTAINS A REP CARD.
00482/17    FILE SYSTEM              OPEN ETC        SA  G  OPEN    W045:PF.OPEN                                                    
            D3.2T1  317  FILE_SYSTEM.OPEN_ETC.SA.17         1 LINE     80   62 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:49
0          SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES.
           COPIES COPY:FCBEQU (482/27), COPY:CATEQU (482/28), COPY:DSKDSCT (482/42), AND COPY:DSCBDSCT (482/41).
00482/18    FILE SYSTEM              OPEN ETC        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/19    FILE SYSTEM              GETDSK ETC      SA  G  GDSK    W045:PF.GETDSK                                                  
            D3.2T1  318  FILE_SYSTEM.GETDSK_ETC.SA.19       1 LINE     80   28 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:53
0          ALLOCATE AND RELEASE DISK SPACE.  COPIES COPY:FCBEQU (482/27), COPY:DSCBDSCT (482/41), COPY:DSKDSCT (482/42),
           AND COPY:PATEQU (482/43).
00482/20    FILE SYSTEM              GETDSK ETC      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/21    FILE SYSTEM              FLINE           SA  G  FLIN    W045:PF.FLIN                                                    
            D3.2T1  319  FILE_SYSTEM.FLINE.SA.21            1 LINE     80    9 PAGE UM   PIRKOLA             MAR. 21, 1975  01:36:58
0          SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE.
           COPIES COPY:FCBEQU (482/27)
00482/22    FILE SYSTEM              FLINE           OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/23    FILE SYSTEM              CATALOG SUBR    SA  G  CSBR    W045:PF.CATL                                                    
            D3.2T1  320  FILE_SYSTEM.CATALOG_SUBR.SA.23     1 LINE     80   69 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:00
0          SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES.
           COPIES COPY:CATEQU (482/28), COPY:FCBEQU (482/27), COPY:DSKDSCT (482/42), AND COPY:DSCBDSCT (482/41).
00482/24    FILE SYSTEM              CATALOG SUBR    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
0          ***** NOTE: THIS OBJECT CONTAINS A REP CARD.
00482/25    FILE SYSTEM              READ/WRITE SEQ  SA  G  RWSE    W045:PF.RWSEQ                                                   
            D3.2T1  321  FILE_SYSTEM.READ/WRITE_SEQ.SA.25   1 LINE     80   27 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:07
0          SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES.
           COPIES COPY:FCBEQU (482/27)
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00482/26    FILE SYSTEM              READ/WRITE SEQ  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/27    FILE SYSTEM              FCBEQU          SA  G  FCBE    COPY:FCBEQU                                                     
            D3.2T1  322  FILE_SYSTEM.FCBEQU.SA.27           1 LINE     80    4 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:09
0          DEFINITION OF A FILE CONTROL BLOCK. COPIED BY MOST FILE ROUTINES, BUT NOT MTS.
0          Referenced by comments of: 67/2, 67/4, 92/2, 104/92, 104/94, 143/1, 442/1, 451/1, 482/5, 482/7, 482/11, 482/13,
                 482/15, 482/17, 482/19, 482/21, 482/23, 482/25, 482/32, 482/45, 502/13, 509/1, 546/1 
00482/28    FILE SYSTEM              CATEQU          SA  G  CATE    COPY:CATEQU                                                     
            D3.2T1  323  FILE_SYSTEM.CATEQU.SA.28           1 LINE     80    4 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:12
0          DEFINITION OF THE CATALOG FORMAT. COPIED BY MOST FILE ROUTINES.
0          Referenced by comments of: 67/1, 67/2, 92/2, 97/7, 104/90, 104/92, 104/94, 442/1, 451/1, 482/17, 482/23, 502/1,
                 502/11, 509/1, 578/1, 599/1 
00482/29    FILE SYSTEM              ICEQU           SA  G  ICEQ    COPY:ICEQU                                                      
            D3.2T1  324  FILE_SYSTEM.ICEQU.SA.29            1 LINE     80    3 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:14
0          COPY SECTION FOR DEFINITION OF SYSTEM-WIDE SHARED FILE TABLE FORMAT.
0          Referenced by comments of: 482/30, 554/1, 554/3 
00482/30    FILE SYSTEM              TABLRTN         SA  G  TABL    W045:PF.TABLRTN                                                 
            D3.2T1  325  FILE_SYSTEM.TABLRTN.SA.30          1 LINE     80   52 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:16
0          SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE.
           COPIES COPY:ICEQU (482/29).
0          Referenced by comments of: 482/10, 534/5 
00482/31    FILE SYSTEM              TABLRTN         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/32    FILE SYSTEM              GETFINF         SA  G  GETF    W045:PF.GETFINF                                                 
            D3.2T1  326  FILE_SYSTEM.GETFINF.SA.32          1 LINE     80   11 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:26
0          SUBROUTINE TO RETURN INFORMATION ABOUT A FILE.  CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF).
           MANY PROGRAMS SHOULD BE CHANGED TO USE GFINFO TO DO THEIR DIRTY WORK.
           COPIES COPY:FCBEQU (482/27).
00482/33    FILE SYSTEM              GETFINF         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00482/34    FILE SYSTEM              CATALOG DESC    WF  G          S0722 'D3T3' FSNAME=FILE_SYSTEM.CATALOG_DESC.WF.34            87
            D3T3     87  FILE_SYSTEM.CATALOG_DESC.WF.34     1 LINE    115    6 PAGE UM   PIRKOLA             JULY 24, 1973  22:12.35
0          THIS IS A WRITEUP ON THE "INTERNAL STRUCTURE OF THE CATALOG IN MTS"
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00482/35    FILE SYSTEM              LINE FILE DESC  WF  G          S0722 'D3T3' FSNAME=FILE_SYSTEM.LINE_FILE_DESC.WF.35          88
            D3T3     88  FILE_SYSTEM.LINE_FILE_DESC.WF.35   1 LINE    120    3 PAGE UM   PIRKOLA             JULY 24, 1973  22:12.49
0          THIS IS A WRITEUP ON "THE INTERNAL STRUCTURE OF LINE FILES IN MTS"
00482/36    FILE SYSTEM              SEQ FILE DESC   WF  G          S0722 'D3T3' FSNAME=FILE_SYSTEM.SEQ_FILE_DESC.WF.36           89
            D3T3     89  FILE_SYSTEM.SEQ_FILE_DESC.WF.36    1 LINE    119    3 PAGE UM   PIRKOLA             JULY 24, 1973  22:13.06
0          THIS IS A WRITEUP ON THE "INTERNAL STRUCTURE OF SEQUENTIAL FILES IN MTS"
00482/37    FILE SYSTEM              SHAR INTERNALS  WF  G          W098:INTERNSHARED                                            6  
            D3.1T1  287  FILE_SYSTEM.SHAR_INTERNALS.WF.37   1 LINE    131    5 PAGE UM   PIRKOLA             MAR. 06, 1974  17:42.05
0          THIS IS A WRITEUP ON "THE INTERNAL STRUCTURE OF THE SYSTEM WIDE SHARED FILE TABLE IN MTS"
00482/38    FILE SYSTEM              NEW MTS SUBRS   WF  G          S0722 'D3T3' FSNAME=FILE_SYSTEM.NEW_MTS_SUBRS.WF.38           91
            D3T3     91  FILE_SYSTEM.NEW_MTS_SUBRS.WF.38    1 LINE    114    4 DISK UM   PIRKOLA             MAR. 16, 1973  16:02.02
0          THIS IS COMPUTING CENTER MEMO M229 -- "NEW SUBROUTINES IN MTS"
           IT DESCRIBES THE FOLLOWING NEW USER SUBROUTINES, ADDED WITH "RSF" -- REALLY SHARED FILES:
           LOCK, UNLK, GETFST, GETLST, TRUNC, RENUMB, RENAME, FSRF, BSRF, AND PERMIT.
00482/39    FILE SYSTEM              TEST DSACC      SA  G  DSAC    W045:DSACC(1,999)                                               
            D3T3     92  FILE_SYSTEM.TEST_DSACC.SA.39       1 LINE     80    1 PAGE UM   PIRKOLA             AUG. 01, 1973  18:58.01
0          SPECIAL NOP VERSION OF DSACC.
00482/40    FILE SYSTEM              TEST DSACC      OC  G          W045:DSACC(1000)                                                
            D3T3     93  FILE_SYSTEM.TEST_DSACC.OC.40       1 LINE     80    1 PAGE UM   PIRKOLA             AUG. 01, 1973  18:58.03
0          Referenced by comments of: 482/10 
00482/41    FILE SYSTEM              DSCBDSCT        SA  G  DSCB    COPY:DSCBDSCT                                                   
            D3.2T1  327  FILE_SYSTEM.DSCBDSCT.SA.41         1 LINE     80    1 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:28
0          DSECT FOR DSCB USED BY FILE ROUTINES.
0          Referenced by comments of: 67/1, 67/2, 67/4, 104/94, 482/17, 482/19, 482/23, 502/13, 597/1, 598/1, 642/1 
00482/42    FILE SYSTEM              DSKDSCT         SA  G  DSKD    COPY:DSKDSCT                                                    
            D3.2T1  328  FILE_SYSTEM.DSKDSCT.SA.42          1 LINE     80    2 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:30
0          DSECT FOR DISK TABLE DSECT USED BY FILE ROUTINES.
0          Referenced by comments of: 4/1, 4/4, 67/1, 67/2, 67/4, 73/2, 442/1, 482/5, 482/7, 482/17, 482/19, 482/23, 502/13,
                 597/1, 621/2, 642/1, 644/1 
00482/43    FILE SYSTEM              PATEQU          SA  G  PATE    COPY:PATEQU                                                     
            D3.2T1  329  FILE_SYSTEM.PATEQU.SA.43           1 LINE     80    1 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:32
0          EQU'S FOR PAGE ASSIGNMENT TABLE USED BY RESTORE AND OTHERS.
0          Referenced by comments of: 67/1, 67/4, 482/19 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00482/44    FILE SYSTEM              FSMAC           SA  G          W045:FSMAC                                                      
            D3.2T1  330  FILE_SYSTEM.FSMAC.SA.44            1 LINE     72    3 PAGE UM   PIRKOLA             MAR. 21, 1975  01:37:35
0          A PROGRAM WHICH ONLY CONSISTS OF A MACRO AND MACRO CALLS USED TO CALCULATE THE FILE SYSTEM SCRATCH AREA SIZES.
           IT PRODUCES NO OBJECT CODE, BUT THE ASSEMBLY LISTING IS USEFUL IN DETERMINING THE VALUES TO USE IN SETTING UP
           COPY:MTS.EQU2 (347).
00482/45    FILE SYSTEM              FSTEST          SA  G  FSTS    W047:FSTEST.S                                                   
            D3.2T1  331  FILE_SYSTEM.FSTEST.SA.45           1 LINE     80   25 PAGE UM   HAMILTON            MAR. 21, 1975  01:37:37
0          FILE SYSTEM TEST PROGRAM.  COPIES COPY:FCBEQU (482/27).  ASSEMBLE WITH *SYSMAC AND PAR=B.
           USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES.
            
           SOME NEW COMMANDS AND OPTIONS HAVE BEEN ADDED.  SEE THE WRITEUP (482/47).
0          Referenced by comments of: 482/47 
00482/46    FILE SYSTEM              FSTEST          OC  G          W047:FSTEST                                                     
            D3.2T1  332  FILE_SYSTEM.FSTEST.OC.46           1 LINE     80    6 PAGE UM   HAMILTON            MAR. 21, 1975  01:37:40
0          >>>>>>>>>> CONTAINS A REP CARD <<<<<<<<<<<<<<
00482/47    FILE SYSTEM              FSTEST WRITEUP  PF             W047:FSTEST.W                                                   
            D3.2T1  333  FILE_SYSTEM.FSTEST_WRITEUP.PF.47   1 LINE     69    4 PAGE UM   HAMILTON            MAR. 21, 1975  01:37:42
0          WRITEUP DESCRIBING THE FILE SYSTEM TEST PROGRAM (482/45).  COPY TO A TN PRINTER.
0          Referenced by comments of: 482/45 
00483/01   *WATFIV                   UPDATE          UU  G          WATF:WAT5.SGEN                                                  
            D3T3    101  WATFIV.UPDATE.UU.1                 1 LINE     80   21 PAGE UM   SHERRY              AUG. 01, 1973  18:58.35
0                      WATFIV GENERATION PROCEDURE
            
           1) OBTAIN WATFIV (V1L3) DISTRIBUTION TAPE FROM THE UNIVERSITY OF WATERLOO.
            
           2) $RUN *IEHMOVE ON FILE WATFIV.SOURCE (OF ABOVE TAPE), PLACING OUTPUT ON ANOTHER TAPE.  YOU SHOULD
              GET 83 FILES BLOCKED FB(3440,80).
            
           3) SEVERAL OF THESE 83 FILES ARE COPY SECTIONS.  USING THE WATFIV UPDATE (483/1), $RUN *UPDATE ON THE
              THE FOLLOWING FILES TO PRODUCE UPDATED DISK FILES BY THE SAME NAME:  2 (ACCT), 11 (CDEFN),
              17 (COMMR), 42 (ERRTEXTS), 44 (EXTRN), 66 (OPTIONS), 74 (STARTA), 75 (STARTB), AND 77 (SYS).
            
           4) FILES 1, 3-8, 10, 12-16, 18-28, 30, 31, 33-38, 41, 43, 46, 50, 52, 54, 55, 57, 60, 62, 63, 67, 68,
              70-72, 76, AND 78 ARE MACROS.  ALL CAN BE COPIED INTACT TO A MACRO LIBRARY EXCEPT FOR 76 (STOP#)
              WHICH MUST BE UPDATED.  THIS MACRO LIBRARY GENERATES CODE FOR THE ELEMENTARY FUNCTIONS.
            
           5) ANOTHER MACRO LIBRARY COMES FROM THE WATERLOO DIST TAPE.  $RUN *IEHMOVE ON FILE WATFIV.MACLIB TO GET THIS.
            
           6) NEXT, 16 OF THE 83 FILES CONTAIN ASSEMBLY SOURCE.  EACH OF THESE MUST BE UPDATED BY *UPDATE TO PRODUCE
              THE MTS VERSION.  THEN ASSEMBLE THESE USING THE 3 MACRO LIBRARIES:  *SYSMAC, AND THE ONES PRODUCED
              IN STEPS 4 AND 5.  SEVERAL OF THESE ASSEMBLIES COPY FILES GENERATED IN STEP 3.  THE 16 FILES ARE:
              9 (ARITH), 32 (DODO), 40 (ERROR), 47 (FORMAT), 48 (FORMCONV), 49 (FRIOSCAN), 51 (FUNCTION), 53 (IBCOM#),
              56 (INOUT), 58 (LANDR), 59 (MAIN), 64 (NAMELIST), 69 (SCAN), 73 (SPEX), 82 (WATIO), AND 83 (WATLOAD).
1                                                                                               FRI AUG 02/96   19:04:25   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           
           7) ASSEMBLE THE 3 CSECTS FIOCS (483/2), DIOCS (483/3) AND DEFAULT (483/4).
            
           8) THE 19 CSECTS FROM STEPS 6 AND 7 CONSTITUTE *WATFIV.  THE ENTRY POINT IS AT MAINP IN THE MODULE MAIN.
            
           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
               (32000,32999)        *32*     DODO
               (40000,40999)        *40*     ERROR
               (42000,42999)        *42*     ERRTEXTS
               (44000,44999)        *44*     EXTRN
               (47000,47999)        *47*     FORMAT
               (48000,48999)        *48*     FORMCONV
               (49000,49999)        *49*     FRIOSCAN
               (51000,51999)        *51*     FUNCTION
               (53000,53999)        *53*     IBCOM#
               (56000,56999)        *56*     INOUT
               (58000,58999)        *58*     LANDR
               (59000,59999)        *59*     MAIN
               (64000,64999)        *64*     NAMELIST
               (66000,66999)        *66*     OPTIONS
               (69000,69999)        *69*     SCAN
               (73000,73999)        *73*     SPEX
               (74000,74999)        *74*     STARTA
               (75000,75999)        *75*     STARTB
               (76000,76999)        *76*     STOP#
               (77000,77999)        *77*     SYS
               (82000,82999)        *82*     WATIO
               (83000,83999)        *83*     WATLOAD
            
           NOTE:  THIS FILE CONTAINS MANY "$CONTINUE WITH WAT5.SGEN(---)" CARDS, SO IT IS SUGGESTED THAT THIS COMPONENT
                  BE RESTORED TO A FILE NAMED WAT5.SGEN.
0          Referenced by comments of: 483/1 
00483/02   *WATFIV                   FIOCS           SA     FIOC    WATF:WAT5.FIOCS.S                                               
            D3T3    102  WATFIV.FIOCS.SA.2                  1 LINE     80   20 PAGE UM   SHERRY              AUG. 01, 1973  18:58.44
0          ASSEMBLE WITH *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/1 
00483/03   *WATFIV                   DIOCS           SA     DIOC    WATF:WAT5.DIOCS.S                                               
            D3T3    103  WATFIV.DIOCS.SA.3                  1 LINE     80    3 PAGE UM   SHERRY              AUG. 01, 1973  18:58.49
0          ASSEMBLE WITH *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00483/04   *WATFIV                   DEFAULT         SA     DFLT    WATF:WAT5.DFALT.S                                               
            D3T3    104  WATFIV.DEFAULT.SA.4                1 LINE     80    4 PAGE UM   SHERRY              AUG. 01, 1973  18:58.52
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER.
           ASSEMBLE WITH *SYSMAC.
           NOTE:  THIS ROUTINE IS ALSO USED BY ALGOLW (528) AND PLC (485).
0          Referenced by comments of: 483/1 
00483/05   *WATFIV                   OBJECT          OE           # *WATFIV                                                         
                                                                                    UM   SHERRY                                     
0          NOTE:  BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED.
00483/06   *WATFIV                   TEST DECKS      SF             WATF:WAT5.TEST                                                  
            D3T3    105  WATFIV.TEST_DECKS.SF.6             1 LINE     97    6 PAGE UM   SHERRY              AUG. 03, 1973  21:22.13
0          STARTING AT LINE 1000 IS A WHOLE BATCH OF TEST PROGRAMS.  THEY MUST BE RUN WITH THE FOLLOWING
           I/O ASSIGNMENTS (TEMPORARY FILES):
            
                1   A SEQUENTIAL FILE
                2   A LINE FILE
                3   ANOTHER LINE FILE
00483/07   *WATFIV                   USER'S GUIDE    WF             W098:KDM249                                                     
            D3T3    106  WATFIV.USER'S_GUIDE.WF.7           1 LINE    130    5 DISK UM   SHERRY              MAR. 15, 1973  18:03.51
0          THIS IS COMPUTING CENTER MEMO M249 -- "WATFIV USER'S GUIDE"
00484      *ACCRESTORE                               OE  G          *ACCRESTORE                                                     
            D3.2T1  334  ACCRESTORE..OE.                    1 LINE    255    3 PAGE UM   ENGLE               MAR. 21, 1975  01:37:44
0          PROGRAM TO COMPUTE NUMBER OF CURRENT SIGNONS AND CURRENT DISK SPACE FOR A USERID AND THEN
           UPDATE THE ACCOUNTING RECORD.
           FILE IS LINKEDIT OF ACCSTRUP (104/24), THE MAIN PROGRAM, PLUS CURSIG (104/70), ACATALOG (104/91),
           GETFILE (104/89), ACCIO (104/18), AND ACCFLUPD (104/66).
0          Referenced by comments of: 136/2 
00485/01   *PLC                      UPDATE          UU  G          W081:PLCUPDATE                                                  
            D3.1T1  289  PLC.UPDATE.UU.1                    1 LINE     73   10 PAGE UM   GOODRICH            MAR. 06, 1974  17:42.10
0          UPDATE TO CONVERT CORNELL'S OS/360 PLC (VERSION 6.5) COMPILER/OPERATING SYSTEM INTERFACE TO RUN IN MTS.
           NOTE:  PLC CANNOT BE DISTRIBUTED; YOU MUST OBTAIN IT DIRECTLY FROM CORNELL UNIVERSITY.
0          Referenced by comments of: 483/4 
00485/02   *PLC                      DEFAULT         SA           # (SEE COMP 483)                                                  
                                                                                    UM   GOODRICH                                   
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00485/03   *PLC                      INSTALLATION    P              W081:PLCINSTALL.W                                               
            D3T3    109  PLC.INSTALLATION.P.2               1 LINE     81    1 PAGE UM   GOODRICH            AUG. 03, 1973  21:25.58
0          NOTES ON THE INSTALLATION OF PLC IN MTS, WHICH INCLUDES UPDATING AND RE-ASSEMBLING THE PLC/OPERATING SYSTEM
           INTERFACE (ZZOS) USING 485/1 AND EDITTING THE NON-ZZOS PLC OBJECT, FOR WHICH CORNELL REFUSES TO SUPPLY THE
           SOURCE, THEREBY MAKING IT NECESSARY TO APPLY PATCHES TO FIX THEIR BUGS.
           COPY THIS WRITEUP TO A TN PRINTER.
00485/04   *PLC                      USER'S GUIDE    WF             W098:KDM262                                                     
            D3.1T1  290  PLC.USER'S_GUIDE.WF.3              1 LINE    110   45 PAGE UM   GOODRICH            MAR. 06, 1974  17:42.13
0          THIS IS COMPUTING CENTER MEMO M262 -- "USER'S GUIDE TO PL/C - THE CORNELL COMPILER FOR PL/I"
00486/01   *HBQ                                      SA  G  HBQ0    S0579 SAVE 'JWS-SAVE' FSNAME=HBQ.S                              
            D3T3    111  HBQ..SA.1                          1 LINE     80   18 PAGE UM   JWS                 AUG. 03, 1973  21:26.14
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.
00486/02   *HBQ                                      OE  G          *HBQ                                                            
            D3T3    112  HBQ..O.2                           1 LINE    255    3 PAGE UM   JWS                 AUG. 03, 1973  21:26.19
00487/01    LABEL                                    SA  G  LABL    WSG:LABEL(1,999)                                                
            D3T3    113  LABEL..SA.1                        1 LINE     80    7 PAGE UM   WSG                 AUG. 03, 1973  21:26.23
0          PROGRAM TO INITIALIZE LABELED OR UNLABELED MAGNETIC TAPES.
           AS DISTRIBUTED, IT PRODUCES THE MTS VERSION (*LABEL).  IF "&OPER SETB 1" IS ADDED AFTER LINE 12,
           THE OPERATOR'S VERSION (*LBL) IS PRODUCED WHICH WILL ALLOW A COMPLETELY BLANK TAPE TO BE LABELED.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 487/4 
00487/02    LABEL                    *LABEL          OC  G          *LABEL                                                          
            D3T3    114  LABEL.*LABEL.OC.2                  1 LINE     80    2 PAGE UM   WSG                 AUG. 03, 1973  21:26.27
0          MTS USER PROGRAM FOR LABELING MAGNETIC TAPES WHICH ARE ALREADY MOUNTED.
00487/03    LABEL                    *LBL            C   G          *LBL                                                            
            D3T3    115  LABEL.*LBL.C.3                     1 LINE     29    1 PAGE UM   WSG                 AUG. 03, 1973  21:26.31
0          COMMAND FILE TO RUN THE SYSTEM OPERATOR'S TAPE LABELING PROGRAM (487/4).
           INVOKED BY ENTERING "MTS *LBL" ON THE OPERATOR'S CONSOLE.
00487/04    LABEL                    OPERATOR VERS   OC  G          SYS:LBL                                                         
            D3T3    116  LABEL.OPERATOR_VERS.OC.4           1 LINE     80    2 PAGE UM   WSG                 AUG. 03, 1973  21:26.36
0          SPECIAL VERSION OF LABEL (487/1) WHICH CLEARS THE CHKLABEL BIT IN THE MAG TAPE DSR (135) DSECT SO THAT 
           LABEL CHECKING IS NOT PERFORMED.  THIS ALLOWS COMPLETELY BLANK TAPES, FOR EXAMPLE, TO BE
           LABELED BY THE SYSTEM OPERATOR.
0          Referenced by comments of: 487/3 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00488       CONTROL                                  SA           # (OBSOLETE)                                                      
            D2.3    035                                                             UM                                              
00489/01    TAPETEST                                 SA  G  TT00    WSG:TT(1,999)                                                   
            D3.1T1  291  TAPETEST..SA.1                     1 LINE     80   11 PAGE UM   WSG                 MAR. 06, 1974  17:43.07
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 MANIPULATING TAPES.  IT FIELDS ATTENTION INTERRUPTS AND
           DSR ERRORS.  TT 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.
               MTS STRING          CALL "MTSCMD" (WITH STRING) OR "MTS" (IF STRING OMITTED).
               READ N              READ THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA.
               RBKWD N             READ BACKWARD THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA.
               SNS                 ISSUE A "SNS" CONTROL COMMAND AND PRINT THE "SENSE DATA" IN A READABLE FORMAT.
               STA                 IDENTICAL TO "SNS" EXCEPT FOR LABELED TAPES, IN WHICH CASE IT DOES NOT CAUSE THE NEXT
                                   FILE TO BE OPENED.
               WRITE FDNAME        WRITE RECORDS READ FROM FDNAME (OR *MSOURCE* IF OMITTED) ON THE ATTACHED UNIT.
            
           (NOTE:  COMMANDS MAY BE ABBREVIATED BY THEIR FIRST LETTER EXCEPT FOR "RBKWD" AND "STA" WHICH REQUIRES 2 LETTERS.)
            
           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 REW
                         SNS
                         MTS $RUN *TAPEDUMP 0=*T* SPRINT=*PRINT*
00489/02    TAPETEST                                 OC  G          WSG:TT(1000)                                                    
            D3.1T1  292  TAPETEST..OC.2                     1 LINE     80    3 PAGE UM   WSG                 MAR. 06, 1974  17:43.10
00490/01   *LAR                                      C              *LAR                                                            
            D3T3    119  LAR..C.1                           1 LINE     29    1 PAGE UM   MTA                 AUG. 03, 1973  21:26.50
0          COMMAND FILE TO RUN BLAST2703.  INVOKED BY ENTERING "MTS *LAR"
           ON OPERATOR'S CONSOLE.  SHOULD ONLY BE USED WHEN 2703 HAS DROPPED ITS
           LINES SINCE BLAST2703 FAKES A UNIT CHECK ON EACH 2703 ADDRESS.
00490/02   *LAR                      BLAST2703       SA  O  BLST    MTA:BLAST2703(1,998)                                            
            D3T3    120  LAR.BLAST2703.SA.2                 1 LINE     80    1 PAGE UM   MTA                 AUG. 03, 1973  21:26.55
0          PROGRAM WHICH GIVES A FAKE UNIT EXCEPTION TO EACH 2703 ADDRESS.
           MAY BE USED TO CLEAN UP 2703 LINES AFTER A CHANNEL RESET.
           ***** NOTE:  MUST BE RE-ASSEMBLED FOR EACH INSTALLATION'S 2703 ADDRESSES. ***
           ASSEMBLE WITH *SYSMAC.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00490/03   *LAR                      BLAST2703       OC  O          MTA:BLAST2703(1000)                                             
            D3T3    121  LAR.BLAST2703.OC.3                 1 LINE     80    1 PAGE UM   MTA                 AUG. 03, 1973  21:26.59
00491/01   *SCRAMBLE                                 OC  G          *SCRAMBLE                                                       
            D3T3    122  SCRAMBLE..OC.                      1 LINE    175    3 PAGE UM   ENGLE               AUG. 03, 1973  21:27.03
0          PROGRAM TO SCRAMBLE AND UNSCRAMBLE DATA IN MTS LINE FILES.  UNFORTUNATELY, WE THINK THAT THE ONLY COPY OF
           THE SOURCE FOR THIS STARTS AT LINE 10000 IN THE OBJECT FILE AND IS SCRAMBLED.  ANYBODY KNOW WHAT KEY WAS USED
           TO SCRAMBLE IT?  MAYBE FRANK WESTERVELT AT WSU MIGHT.
            
           THERE IS A "$CONTINUE WITH *DUMMY*" RECORD AT THE END OF THIS FILE.
00491/02   *SCRAMBLE                 WRITEUP         WT  O          S0780 'D3.1T1' FSNAME=SCRAMBLE.WRITEUP.WT.2                  293
            D3.1T1  293  SCRAMBLE.WRITEUP.WT.2              1 LINE    132    4 PAGE UM   ENGLE               JAN. 08, 1974  16:05.57
0          GENERAL WRITEUP ON SCRAMBLE ALGORITHMNS.
00492/01   *DCALC                                    SP  G          S0722 'D3T3' FSNAME=DCALC..SP.1                              123
            D3T3    123  DCALC..SP.1                        1 LINE     80   13 PAGE UM   MTA                 AUG. 03, 1973  21:27.08
0          PL/I DESK CALCULATOR PROGRAM.
00492/02   *DCALC                                    OE  G          S0722 'D3T3' FSNAME=DCALC..OE.2                              124
            D3T3    124  DCALC..OE.2                        1 SEQ   21678    8 PAGE UM   MTA                 AUG. 03, 1973  21:27.13
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00493/01   *TALLY                    370 MAIN        SA  G  TALY    W044:TALLYSOU                                                   
            D3.2T1  335  TALLY.370_MAIN.SA.01               1 LINE     80    8 PAGE UM   SALISBURY           MAR. 21, 1975  01:37:47
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/02   *TALLY                    370 SIM SUBR    SA  G  TSIM    W044:TALLYSIMSOU                                                
            D3.2T1  336  TALLY.370_SIM_SUBR.SA.02           1 LINE     80   35 PAGE UM   SALISBURY           MAR. 21, 1975  01:37:49
00493/03   *TALLY                    370 OBJECT      OC  G          *TALLY                                                          
            D3.2T1  337  TALLY.370_OBJECT.OC.03             1 LINE    255    4 PAGE UM   SALISBURY           MAR. 21, 1975  01:37:52
00493/04   *TALLY                    360 MAIN        SA  G  TALY    W044:OLDTALLYSOU                                                
            D3T3    125  TALLY..SA.1                        1 LINE     80    8 PAGE UM   SALISBURY           AUG. 03, 1973  21:27.17
00493/05   *TALLY                    360 SIM SUBR    SA  G  TSIM    W044:OLDTALLYSIMS                                               
            D3T3    126  TALLY.SIM_SUBR.SA.2                1 LINE     80   25 PAGE UM   SALISBURY           AUG. 03, 1973  21:27.22
00493/06   *TALLY                    360 OBJECT      OC  G          W044:OLDTALLY                                                   
            D3T3    127  TALLY..OC.3                        1 LINE     80    4 PAGE UM   SALISBURY           AUG. 03, 1973  21:27.34
0          CONTENTS OF *TALLY FOR 360 SYSTEMS.
00494/01    CSMP                     *CSMP           SA  G  CSMP    W020:CSMPDISTR(1,341)                                           
            D3T3    128  CSMP.*CSMP.SA.1                    1 LINE     80    8 PAGE UM   FLANIGAN            AUG. 03, 1973  21:27.38
0          CONTINUOUS SYSTEM MODELING PROGRAM (MODIFIED FROM IBM).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0           
           *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS.
00494/02    CSMP                     *CSMP           OE  G          *CSMP                                                           
            D3T3    129  CSMP.*CSMP.O.2                     1 SEQ    3232    2 PAGE UM   FLANIGAN            AUG. 03, 1973  21:27.47
00494/03    CSMP                     *CSMPTRAN       SA  G  CPTR    W020:CSMPDISTR(500,720)                                         
            D3T3    130  CSMP.*CSMPTRAN.SA.3                1 LINE     80    6 PAGE UM   FLANIGAN            AUG. 03, 1973  21:27.52
0          TRANSLATION CONTROL.  ASSEMBLE WITH *SYSMAC AND PUT IN *CSMPTRAN. 
           ADD "$CONTINUE WITH *CSMPLIB" AT END.
00494/04    CSMP                     *CSMPTRAN       OE  G          *CSMPTRAN                                                       
            D3T3    131  CSMP.*CSMPTRAN.OE.4                1 SEQ    1672    1 PAGE UM   FLANIGAN            AUG. 03, 1973  21:27.58
0          ENDS WITH A "$CONTINUE WITH *CSMPLIB" CARD.
00494/05    CSMP                     *CSMPEXEC       SA  G  CPEX    W020:CSMPDISTR(1000,1107)                                       
            D3T3    132  CSMP.*CSMPEXEC.SA.5                1 LINE     80    4 PAGE UM   FLANIGAN            AUG. 03, 1973  21:28.04
0          EXECUTION CONTROL
00494/06    CSMP                     *CSMPEXEC       OE  G          *CSMPEXEC                                                       
            D3T3    133  CSMP.*CSMPEXEC.O.6                 1 SEQ     712    1 PAGE UM   FLANIGAN            AUG. 03, 1973  21:28.10
00494/07    CSMP                     *CSMPLIB        S   G          S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80)           2  
            D3T3    134  CSMP.*CSMPLIB.S.7                  1 SEQ      80  155 PAGE UM   FLANIGAN            AUG. 03, 1973  21:29.55
0          ORIGINAL IBM SOURCE (FORTRAN AND ASM).
00494/08    CSMP                     *CSMPLIB        UU  G          W020:CSMPDISTR(2000,2175)                                       
            D3T3    135  CSMP.*CSMPLIB.UU.8                 1 LINE     80    3 PAGE UM   FLANIGAN            AUG. 03, 1973  21:30.18
0          THIS UPDATE DECK APPLIES ALL KNOWN IBM APARS PLUS LOCAL CHANGES. IT ASSUMES THE FOLLOWING:
              (1) IBM SOURCE IS ON TAPE *S*
              (2) A POOL (SCRATCH) TAPE HAS BEEN MOUNTED AS *P*
              (3) AN EMPTY SEQUENTIAL FILE -A EXISTS
           THIS UPDATE PUTS THE UPDATED CSMP FORTRAN ROUTINES ON *P* (BLOCKING FACTOR 100), REWINDS IT,
           PUTS THE UPDATED CSMP ASSEMBLER ROUTINES IN -A, AND REWINDS AND UNLOADS *S*.
00494/09    CSMP                     *CSMPLIB        SA  G          W020:CSMPDISTR(1500,1531)                                       
            D3T3    136  CSMP.*CSMPLIB.SA.9                 1 LINE     70    1 PAGE UM   FLANIGAN            AUG. 03, 1973  21:30.23
0          TWO ASM ROUTINES USED DURING DYNAMIC LINKING.
00494/10    CSMP                     *CSMPLIB        OL  G          *CSMPLIB                                                        
            D3T3    137  CSMP.*CSMPLIB.OL.10                1 SEQ    6924   32 PAGE UM   FLANIGAN            AUG. 03, 1973  21:30.27
0          OBJECT LIBRARY (DIR FORMAT) MADE FROM ASM AND FTN ROUTINES UPDATED BY 494/8 AND
           ASM ROUTINES FROM COMPONENT 494/9.  (NOTE:  FORTRANH HAS BEEN USED.)
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00495/01   *EXPL                     SUBMONITOR      SA     XMON    S0579 SAVE 'JWS-SAVE' FSNAME=EXMON.S                            
            D3T3    138  EXPL.SUBMONITOR.SA.1               1 LINE     80   31 PAGE UM   JWS                 AUG. 03, 1973  21:30.32
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.
            
           THIS SUB-COMPONENT CONSISTS OF 4 CSECTS:  XMON, XPLDFLTS, COMPACT#, AND SORTIT.  ASSEMBLE USING *SYSMAC.
00495/02   *EXPL                     SUBMONITOR      OC             S0579 SAVE 'JWS-SAVE' FSNAME=EXMON.O                            
            D3T3    139  EXPL.SUBMONITOR.OC.2               1 LINE     80    4 PAGE UM   JWS                 AUG. 03, 1973  21:30.46
0          *EXPLIB SHOULD BE A LINKEDIT OF XMON, COMPACT#, AND SORTIT, PLUS THE XPLDFLTS CSECT WHICH SPECIFIES A FREE
           STRING AREA SIZE (FSASIZE) OF 5 PAGES.  ALL SYMBOLS SHOULD BE PURGED EXCEPT XPLSM, XPLSM@SP, COMPACTI,
           AND TIMEXOFX.  IN ADDITION, TIMEXOFX SHOULD BE CHANGED TO TIME_OF_ AND AN ENT CARD SPECIFYING XPLSM
           AS THE ENTRY POINT SHOULD BE INSERTED INTO THE OBJECT MODULE.
00495/03   *EXPL                     COMPILER        SX             S0579 SAVE 'JWS-SAVE' FSNAME=EXCOM                              
            D3T3    140  EXPL.COMPILER.SX.3                 1 LINE     80   59 PAGE UM   JWS                 AUG. 03, 1973  21:30.50
0          EXPL SOURCE FOR THE EXTENDED XPL COMPILER.  THE RESULTING OBJECT MUST BE RUN UNDER *EXPLIB.
00495/04   *EXPL                     COMPILER        OE             S0579 SAVE 'JWS-SAVE' FSNAME=EXPL.V5                            
            D3T3    141  EXPL.COMPILER.O.4                  1 LINE    240   38 PAGE UM   JWS                 AUG. 03, 1973  21:31.03
0          IT IS MOST CONVENIENT TO LINKEDIT THE COMPILER AND SUBMONITOR TOGETHER TO MAKE *EXPL.  NOTE THAT THE
           ENTRY POINT MUST BE EXPLIB.  WHEN LINKEDITING, THE XPLDFLTS CSECT WHICH SETS THE FREE STRING AREA SIZE
           (FSASIZE) TO 15 PAGES SHOULD BE USED.
00495/05   *EXPL                     EXPLBNF         D              S0579 SAVE 'JWS - SAVE' FSNAME=XPLBNF                           
            D3T3    142  EXPL.XPLBNF.D.5                    1 LINE     73    2 DISK UM   JWS                 JUNE 08, 1973  12:58.56
0          SUITABLE INPUT TO *ANALYZER (318/12) TO PRODUCE THE NECESSARY DECLARATIONS FOR DRIVING THE PARSING
           ALGORITHM FOR *EXPL.
00495/06   *EXPL                     SKELETON        SX  G          *EXSKELETON                                                     
                                                                                    UM   JWS                                        
0          THIS IS A VERSION OF SKELETON (318/10), 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/07   *EXPL                     WRITEUP         WF             S0722 'D3T3' FSNAME=EXPL.WRITEUP.WF.6                        143
            D3T3    143  EXPL.WRITEUP.WF.6                  1 LINE    114    3 DISK UM   JWS                 JUNE 29, 1973  13:54.15
0          THIS IS COMPUTING CENTER MEMO M240 -- "EXPL - EXTENDED XPL"
00496/01   *APC                                      SA     APC0    DWB:APC.S                                                       
            D3.2T1  338  APC..SA.01                         1 LINE     80   15 PAGE UBC  DWB                 MAR. 21, 1975  01:37:54
0          UBC ALL PURPOSE FILE COMPARE PROGRAM.
           NOTE:  THIS VERSION SHOULD BE USED IF AND ONLY IF THE MTS @NOTIFY CHANGE IS INSTALLED.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00496/02   *APC                                      OE             *APC                                                            
            D3.2T1  339  APC..OE.02                         1 SEQ      80    5 PAGE UBC  DWB                 MAR. 21, 1975  01:37:59
0          CONTAINS OBJECT FOR APC AND MSG ROUTINE (1023).
00497/01   *SNAP                                     SF  G          S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80)           1  
            D3T3    146  SNAP..SF.1                         1 SEQ      80  132 PAGE UM   FLANIGAN            AUG. 03, 1973  21:35.51
00497/02   *SNAP                                     UU  G          S0722 'D3T3' FSNAME=SNAP..UU.2                               147
            D3T3    147  SNAP..UU.2                         1 LINE     73    1 PAGE UM   FLANIGAN            JULY 30, 1973  20:45.57
00497/03   *SNAP                                     OE  G          *SNAP                                                           
            D3T3    148  SNAP..OE.3                         1 SEQ    5212   27 PAGE UM   FLANIGAN            AUG. 03, 1973  21:36.24
00498/01   *IG                       IG.EQUS.C       SA             S0933 IG 'IG.DIST' FSNAME=IG.EQUS.C                             
            D3.2T1  340  IG.IG.EQUS.C.SA.01                 1 LINE     71    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:13:32
0          THE INTEGRATED GRAPHICS (IG) SYSTEM IS A LIBRARY OF FORTRAN CALLABLE SUBROUTINES FOR PERFORMING GRAPHICS
           OPERATIONS ON A VARIETY OF GRAPHIC TERMINALS.  IT CONSISTS OF *IG AND ROUTINES FOR DEVICE DEPENDENT
           I/O SUPPORT.  ALL SOURCE MODULES FOR THIS COMPONENT ALSO CONTAIN MTS COMMMANDS FOR ASSEMBLING THEM.
            
           498/1 IS A COPY SECTION DEFINING ALL DATA STRUCTURE BLOCKS.  IT IS GENERALLY COPIED AS "W114:IG.EQUS.C" BY
           OTHER SUB-COMPONENTS.
00498/02   *IG                       IG.DI           SA             S0933 IG 'IG.DIST' FSNAME=IG.DI.S                               
            D3.2T1  341  IG.IG.DI.SA.02                     1 LINE     85   28 PAGE UM   GOODRICH            FEB. 21, 1975  16:12:30
0          COMPS 498/2 THROUGH 498/7 ARE THE SOURCE FOR *IG (498/9).
           EACH FILE BEGINS WITH COMMANDS TO ASSEMBLE.  THE ACTUAL SOURCE STARTS ON LINE 7 OF EACH FILE.
            
           COMP 498/2 IS DEVICE INTERFACE ROUTINES IGINIT, IGDRON, IGXYIN, IGPICK, IGCTRL, AND IGSENS.
00498/03   *IG                       IG.DSM          SA             S0933 IG 'IG.DIST' FSNAME=IG.DSM.S                              
            D3.2T1  342  IG.IG.DSM.SA.03                    1 LINE     80   18 PAGE UM   GOODRICH            FEB. 21, 1975  16:12:43
0          DATA STRUCTURE MODIFICATION ROUTINES.
00498/04   *IG                       IG.GETDD        SA             S0933 IG 'IG.DIST' FSNAME=IG.GETDD.S                            
            D3.2T1  343  IG.IG.GETDD.SA.04                  1 LINE     94    9 PAGE UM   GOODRICH            FEB. 21, 1975  16:13:57
0          DEVICE PARAMETER DECODER AND DEVICE ID ROUTINE.
           REQUIRES A FILE CALLED IG.STAT TO WRITE INTO.
00498/05   *IG                       IG.PD           SA             S0933 IG 'IG.DIST' FSNAME=IG.PD.S                               
            D3.2T1  344  IG.IG.PD.SA.05                     1 LINE     85   13 PAGE UM   GOODRICH            MAR. 16, 1975  13:35:32
0          PICTURE DESCRIPTION ROUTINES.
00498/06   *IG                       IG.ERRCOM       SA             S0933 IG 'IG.DIST' FSNAME=IG.ERRCOM.S                           
            D3.2T1  345  IG.IG.ERRCOM.SA.06                 1 LINE     95    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:13:36
0          ERROR PROCESSING ROUTINE.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00498/07   *IG                       IG.PWRIT        SA             S0933 IG 'IG.DIST' FSNAME=IG.PWRIT.S                            
            D3.2T1  346  IG.IG.PWRIT.SA.07                  1 LINE     99    7 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:23
0          INTERFACE TO CALCOMP PLOTTER ROUTINES (PDS).  CONTAINS A REPLACEMENT FOR THE ROUTINE #PWRIT.
00498/08   *IG                       IG.RELINK       C              S0933 IG 'IG.DIST' FSNAME=IG.RELINK                             
            D3.2T1  347  IG.IG.RELINK.C.08                  1 LINE     61    1 PAGE UM   GOODRICH            FEB. 21, 1975  16:11:30
0          COMMAND FILE TO LINKEDIT OBJECT FILES FOR *IG.
00498/09   *IG                       OBJECT          OL             S0933 IG 'IG.DIST' FSNAME=IG                                    
            D3.2T1  348  IG.OBJECT.OL.09                    1 SEQ   17975    7 PAGE UM   GOODRICH            MAR. 16, 1975  13:35:43
0          Referenced by comments of: 498/2 
00498/10   *IG                       IG.DD.C         SA             S0933 IG 'IG.DIST' FSNAME=IG.DD.C                               
            D3.2T1  349  IG.IG.DD.C.SA.10                   1 LINE     73    1 PAGE UM   GOODRICH            FEB. 21, 1975  16:12:26
0          COPY SECTION FOR DEVICE DEPENDENT ROUTINES (DDR'S).  IT IS SOMETIMES COPIED AS "W114:IG.DD.C" BY OTHER SUB-COMPONENTS.
00498/11   *IG                       *IG.CCMP        SA             S0933 IG 'IG.DIST' FSNAME=IG.CCMP.S                             
            D3.2T1  350  IG.*IG.CCMP.SA.11                  1 LINE     83    7 PAGE UM   GOODRICH            FEB. 21, 1975  16:12:03
0          DDR FOR CALCOMP PLOTTER.  SOURCE STARTS ON LINE 9.
00498/12   *IG                       *IG.CCMP        OE             S0933 IG 'IG.DIST' FSNAME=IG.CCMP.O                             
            D3.2T1  351  IG.*IG.CCMP.OE.12                  1 LINE    255    2 PAGE UM   GOODRICH            FEB. 21, 1975  16:12:10
0          ENDS WITH A "$CONTINUE WITH *PLOTSYS" CARD.
00498/13   *IG                       *IG.CK400       SA             S0933 IG 'IG.DIST' FSNAME=IG.CK400.S                            
            D3.2T1  352  IG.*IG.CK400.SA.13                 1 LINE     82    7 PAGE UM   GOODRICH            FEB. 21, 1975  16:12:14
0          DDR FOR COMPUTEK 400 STORAGE TUBE TERMINAL.  SOURCE STARTS ON LINE 7.
00498/14   *IG                       *IG.CK400       OE             S0933 IG 'IG.DIST' FSNAME=IG.CK400.O                            
            D3.2T1  353  IG.*IG.CK400.OE.14                 1 LINE    255    2 PAGE UM   GOODRICH            FEB. 21, 1975  16:12:23
00498/15   *IG                       *IG.DTC300      SA             S0933 IG 'IG.DIST' FSNAME=IG.DTC300.S                           
            D3.2T1  354  IG.*IG.DTC300.SA.15                1 LINE     84    7 PAGE UM   GOODRICH            FEB. 21, 1975  16:13:02
0          DDR FOR DATA TERMINAL CORPORATION 300 TERMINAL WITH DIABLO PRINTER.
           SOURCE STARTS ON LINE 7.
00498/16   *IG                       *IG.DTC300      OE             S0933 IG 'IG.DIST' FSNAME=IG.DTC300.O                           
            D3.2T1  355  IG.*IG.DTC300.OE.16                1 LINE    255    2 PAGE UM   GOODRICH            FEB. 21, 1975  16:13:19
00498/17   *IG                       *IG.GT40        SA             S0933 IG 'IG.DIST' FSNAME=IG.GT40.S                             
            D3.2T1  356  IG.*IG.GT40.SA.17                  1 LINE     81    7 PAGE UM   GOODRICH            FEB. 21, 1975  16:14:06
0          DDR FOR DEC GT40 DISPLAY RUNNING GT40 GRAPHICS SYSTEM (656).
           SOURCE STARTS ON LINE 7.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00498/18   *IG                       *IG.GT40        OE             S0933 IG 'IG.DIST' FSNAME=IG.GT40.O                             
            D3.2T1  357  IG.*IG.GT40.OE.18                  1 LINE    255    2 PAGE UM   GOODRICH            FEB. 21, 1975  16:14:23
00498/19   *IG                       *IG.PEP         SA             S0933 IG 'IG.DIST' FSNAME=IG.PEP.S                              
            D3.2T1  358  IG.*IG.PEP.SA.19                   1 LINE     89   11 PAGE UM   GOODRICH            FEB. 21, 1975  16:14:54
0          DDR FOR PRINCETON ELECTRONICS PRODUCTS 801 LITHICON TUBE DISPLAY TERMINAL.
           SOURCE STARTS ON LINE 7.
00498/20   *IG                       *IG.PEP         OE             S0933 IG 'IG.DIST' FSNAME=IG.PEP.O                              
            D3.2T1  359  IG.*IG.PEP.OE.20                   1 LINE     80    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:14:58
00498/21   *IG                       *IG.PRNT        SA             S0933 IG 'IG.DIST' FSNAME=IG.PRNT.S                             
            D3.2T1  360  IG.*IG.PRNT.SA.21                  1 LINE     78    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:12
0          DDR FOR IBM 1403 LINE PRINTER.  SOURCE STARTS ON LINE 7.
00498/22   *IG                       *IG.PRNT        OE             S0933 IG 'IG.DIST' FSNAME=IG.PRNT.O                             
            D3.2T1  361  IG.*IG.PRNT.OE.22                  1 LINE    255    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:18
00498/23   *IG                       *IG.TTY         SA             S0933 IG 'IG.DIST' FSNAME=IG.TTY.S                              
            D3.2T1  362  IG.*IG.TTY.SA.23                   1 LINE     91    8 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:50
0          DDR FOR TELETYPES.  USED TO GET HARD COPY WHILE DEBUGGING PROGRAMS.
           SOURCE STARTS ON LINE 7.
00498/24   *IG                       *IG.TTY         OE             S0933 IG 'IG.DIST' FSNAME=IG.TTY.O                              
            D3.2T1  363  IG.*IG.TTY.OE.24                   1 LINE    255    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:55
00498/25   *IG                       *IG.TX4002      SA             S0933 IG 'IG.DIST' FSNAME=IG.TX4002.S                           
            D3.2T1  364  IG.*IG.TX4002.SA.25                1 LINE     85    9 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:58
0          DDR FOR TEKTRONIX 4002 STORAGE TUBE DISPLAY.
           SOURCE STARTS ON LINE 7.
00498/26   *IG                       *IG.TX4002      OE             S0933 IG 'IG.DIST' FSNAME=IG.TX4002.O                           
            D3.2T1  365  IG.*IG.TX4002.OE.26                1 LINE    255    2 PAGE UM   GOODRICH            FEB. 21, 1975  16:16:04
00498/27   *IG                       *IG.TX4010      SA             S0933 IG 'IG.DIST' FSNAME=IG.TX4010.S                           
            D3.2T1  366  IG.*IG.TX4010.SA.27                1 LINE     97    8 PAGE UM   GOODRICH            FEB. 21, 1975  16:16:07
0          DDR FOR TEKTRONIX 4010/4012 STORAGE TUBE DISPLAYS.
           SOURCE STARTS ON LINE 7.
00498/28   *IG                       *IG.TX4010      OE             S0933 IG 'IG.DIST' FSNAME=IG.TX4010.O                           
            D3.2T1  367  IG.*IG.TX4010.OE.28                1 LINE    255    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:16:16
00498/29   *IG                       *IG.TX4014      SA             S0933 IG 'IG.DIST' FSNAME=IG.TX4014.S                           
            D3.2T1  368  IG.*IG.TX4014.SA.29                1 LINE     97    9 PAGE UM   GOODRICH            FEB. 21, 1975  16:16:19
0          DDR FOR TEKTRONIX 4014 STORAGE TUBE DISPLAY.
           SOURCE STARTS ON LINE 7.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00498/30   *IG                       *IG.TX4014      OE             S0933 IG 'IG.DIST' FSNAME=IG.TX4014.O                           
            D3.2T1  369  IG.*IG.TX4014.OE.30                1 LINE    255    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:16:31
00498/31   *IG                       *IG.338         SA             S0933 IG 'IG.DIST' FSNAME=IG.338.S                              
            D3.2T1  370  IG.*IG.338.SA.31                   1 LINE     81   13 PAGE UM   GOODRICH            FEB. 21, 1975  16:16:44
0          DDR FOR DEC 338 DISPLAY RUNNING RAMP 69 OPERATING SYSTEM.
           SOURCE STARTS ON LINE 7.
00498/32   *IG                       *IG.338         OE             S0933 IG 'IG.DIST' FSNAME=IG.338.O                              
            D3.2T1  371  IG.*IG.338.OE.32                   1 LINE    255    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:17:05
00498/33   *IG                       *IG.339         SA             S0933 IG 'IG.DIST' FSNAME=IG.339.S                              
            D3.2T1  372  IG.*IG.339.SA.33                   1 LINE     99    5 PAGE UM   GOODRICH            FEB. 21, 1975  16:17:09
0          DDR FOR DEC 339 DISPLAY RUNNING IGRI PROGRAM UNDER SEL EXEC SYSTEM.
           SOURCE STARTS ON LINE 7.
00498/34   *IG                       *IG.339         OE             S0933 IG 'IG.DIST' FSNAME=IG.339.O                              
            D3.2T1  373  IG.*IG.339.OE.34                   1 LINE     80    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:17:16
00498/35   *IG                       IGRI.339        S              S0933 IG 'IG.DIST' FSNAME=IGRI.339.S                            
            D3.2T1  374  IG.IGRI.339.S.35                   1 LINE     79   13 PAGE UM   GOODRICH            FEB. 21, 1975  16:18:26
0          PDP-9 ASSEMBLY LANGUAGE SOURCE FOR IG INTERPRETER FOR DEC 339 DISPLAY.
           SOURCE STARTS ON LINE 5.  OBJECT NOT DISTRIBUTED.
00498/36   *IG                       *IG.3270        SA  O          S0933 IG 'IG.DIST' FSNAME=IG.3270.S                             
            D3.2T1  375  IG.*IG.3270.SA.36                  1 LINE     78    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:16:35
0          DDR FOR IBM 3270 DISPLAY TERMINAL.  SOURCE STARTS ON LINE 7.
00498/37   *IG                       *IG.3270        OE  O          S0933 IG 'IG.DIST' FSNAME=IG.3270.O                             
            D3.2T1  376  IG.*IG.3270.OE.37                  1 LINE    255    3 PAGE UM   GOODRICH            FEB. 21, 1975  16:16:39
00498/38   *IG                       IG.TEST         SF             S0933 IG 'IG.DIST' FSNAME=IG.TEST.S                             
            D3.2T1  377  IG.IG.TEST.SF.38                   1 LINE     71    8 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:31
0          IG TEST PROGRAM.  SOURCE STARTS ON LINE 7.  OBJECT NOT DISTRIBUTED.
00498/39   *IG                       BMON            SA             S0933 IG 'IG.DIST' FSNAME=BMON.S                                
            D3.2T1  378  IG.BMON.SA.39                      1 LINE     69    4 PAGE UM   GOODRICH            FEB. 21, 1975  16:18:39
0          BRANCH MONITOR PROGRAM USED FOR DEBUGGING IG ROUTINES.
           SOURCE STARTS ON LINE 4.
00498/40   *IG                       BMON            OE             S0933 IG 'IG.DIST' FSNAME=BMON.O                                
            D3.2T1  379  IG.BMON.OE.40                      1 LINE    255    1 PAGE UM   GOODRICH            FEB. 21, 1975  16:18:44
0          >>>>>>>>> CONTAINS REP CARDS <<<<<<<<<<<
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00498/41   *IG                       USER'S GUIDE    WF             S0933 IG 'IG.DIST' FSNAME=IG.WF                                 
            D3.2T1  380  IG.USER'S_GUIDE.WF.41              1 LINE    139   39 PAGE UM   GOODRICH            FEB. 21, 1975  16:11:10
0          CONTAINS MANY "$CONTINUE WITH W114:IG.EXAMP.S" LINES.  SEE COMP 498/42.
00498/42   *IG                       EXAMPLE PGM     SF             W114:IG.EXAMP.S                                                 
            D3.2T1  381  IG.EXAMPLE_PGM.SF.42               1 LINE     64    6 PAGE UM   GOODRICH            MAR. 21, 1975  01:43:46
00498/43   *IG                       INSTALLATION    WF             S0933 IG 'IG.DIST' FSNAME=IGIG.W                                
            D3.2T1  382  IG.INSTALLATION.WF.43              1 LINE    125   13 PAGE UM   GOODRICH            FEB. 21, 1975  16:11:03
0          IMPLEMENTATION GUIDE.
00500/01    BILLING                  BILLRFT         SP  G  BLRF    S0027 DISTRB FSNAME=BILLRFT                                     
            D3.2T1  383  BILLING.BILLRFT.SP.01              1 LINE     80   19 PAGE UM   ENGLE               MAY  03, 1974  14:04.51
0          PROGRAM TO REFORMAT STATISTICS RECORDS, HAND BILLING RECORDS, OS/360 BILLING RECORDS, AND NETWORK
           RECORDS FOR BILLING SORT.
0          Referenced by comments of: 500/11, 500/18, 500/24 
00500/02    BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=BLRF                                        
            D3.2T1  384  BILLING.BILLRFT.OC.02              1 LINE     80   15 PAGE UM   ENGLE               MAY  03, 1974  14:04.59
0          REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';).
00500/03    BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=NETBLRF                                     
            D3.2T1  385  BILLING.BILLRFT.OC.03              1 LINE     80   11 PAGE UM   ENGLE               MAY  03, 1974  14:05.09
0          REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/04    BILLING                  BILLING         SP  G  BILL    S0027 DISTRB FSNAME=BILLING                                     
            D3.2T1  386  BILLING.BILLING.SP.04              1 LINE     80   29 PAGE UM   ENGLE               MAR. 12, 1975  10:53:18
0          PROGRAM TO DO MAIN PART OF BILLING AFTER SORT.
0          Referenced by comments of: 500/11, 500/13, 500/26 
00500/05    BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=BILL                                        
            D3.2T1  387  BILLING.BILLING.OC.05              1 LINE     80   20 PAGE UM   ENGLE               DEC. 06, 1974  13:11.03
0          REGULAR BILLING (COMPILED WITH %NET='';).
           PATCHED TO LOGICALLY AGREE WITH SOURCE.
00500/06    BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=NETBILL                                     
            D3.2T1  388  BILLING.BILLING.OC.06              1 LINE     80   10 PAGE UM   ENGLE               DEC. 06, 1974  13:11.23
0          NETWORK BILLING (COMPILED WITH %NET='YES';).
           PATCHED TO LOGICALLY AGREE WITH SOURCE.
00500/07    BILLING                  BILPRNT         SP  G  BLPR    S0722 'D3T3' FSNAME=BILLING.BILPRNT.SP.7                     187
            D3T3    187  BILLING.BILPRNT.SP.7               1 LINE     80   11 PAGE UM   ENGLE               JAN. 05, 1973  16:08.48
0          PROGRAM TO PRINT BILLING REPORTS.
1                                                                                               FRI AUG 02/96   19:04:25   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          Referenced by comments of: 500/12 
00500/08    BILLING                  BILPRNT         OC  G          S0722 'D3T3' FSNAME=BILLING.BILPRNT.OC.8                     188
            D3T3    188  BILLING.BILPRNT.OC.8               1 LINE     80    7 DISK UM   ENGLE               JAN. 05, 1973  16:09.29
00500/09    BILLING                  BILLWRITEUP     WF  O          S0027 DISTRB FSNAME=BILLWRITEUP                                 
            D3.2T1  389  BILLING.BILLWRITEUP.WF.09          1 LINE     80    8 PAGE UM   ENGLE               MAY  03, 1974  14:11.04
0          WRITEUP FOR RUNNING BILLING.
00500/10    BILLING                  BILLSOURCE      C   G          S0780 'D3.1T1' FSNAME=BILLING.BILLSOURCE.C.10                301
            D3.1T1  301  BILLING.BILLSOURCE.C.10            1 LINE    121    1 PAGE UM   ENGLE               JAN. 31, 1974  17:27.49
0          COMMAND FILE FOR RUNNING BILLING.
0          Referenced by comments of: 500/14 
00500/11    BILLING                  BILLTABLES      D   G          S0027 DISTRB FSNAME=BILLTABLES                                  
            D3.2T1  390  BILLING.BILLTABLES.D.11            1 LINE     76    4 PAGE UM   ENGLE               MAY  03, 1974  14:12.24
0          MACHINE READABLE TABLE OF EFFECTIVE DATES AND RATES FOR BILLING.  READ DURING EXECUTION OF BILLRFT (500/1) AND 
           BILLING (500/4).
00500/12    BILLING                  DIVISION        D   G          BILL:DIVISION                                                   
            D3.2T1  391  BILLING.DIVISION.D.12              1 LINE    104   21 PAGE UM   ENGLE               MAR. 21, 1975  01:46:32
0          MACHINE READABLE TABLE OF UNIVERSITY UNITS ACCORDING TO UNIT CODE.  READ AND WRITTEN BY BILPRNT (500/7).
00500/13    BILLING                  COVER           D   G          S0027 DISTRB FSNAME=COVER                                       
            D3.2T1  392  BILLING.COVER.D.13                 1 LINE     66    1 PAGE UM   ENGLE               MAY  03, 1974  14:13.44
0          MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS.  READ BY BILLING (500/4).
00500/14    BILLING                  RESTART         C   G          S0780 'D3.1T1' FSNAME=BILLING.RESTART.C.14                   304
            D3.1T1  304  BILLING.RESTART.C.14               1 LINE     51    1 PAGE UM   ENGLE               JAN. 31, 1974  17:38.24
0          COMMAND FILE TO RESTART IN THE MIDDLE OF THE BILLING PROCESS AFTER SOME PARTS HAVE BEEN COMPLETED.
           HAS $CONTINUE WITH'S TO BILLSOURCE (500/10).
00500/15    BILLING                  BILLLIB         OL  G          S0027 DISTRB FSNAME=BILLLIB                                     
            D3.2T1  393  BILLING.BILLLIB.OL.15              1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  13:12.31
0          LIBRARY FOR BILLING PROGRAMS.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00500/16    BILLING                  FLUSH           SP  G  FLSH    S0722 'D3T3' FSNAME=BILLING.FLUSH.SP.17                      197
            D3T3    197  BILLING.FLUSH.SP.17                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/17    BILLING                  FLUSH           OC  G  FLSH    S0780 'D3.1T1' FSNAME=BILLING.FLUSH.OC.17                    306
            D3.1T1  306  BILLING.FLUSH.OC.17                1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1974  15:46.26
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00500/18    BILLING                  BLPRJFL         SA  G  BPFL    S0027 DISTRB FSNAME=BLPRJFL                                     
            D3.2T1  394  BILLING.BLPRJFL.SA.18              1 LINE     80    4 PAGE UM   ENGLE               DEC. 06, 1974  13:12.59
0          SUBROUTINE TO READ THE NEXT PROJECT RECORD FROM *PROJECT.  CALLED BY BILLRFT (500/1).
           COPIES ACCPROJFMT (104/2).
00500/19    BILLING                  BLPRJFL         OC  G          S0027 DISTRB FSNAME=BPFL                                        
            D3.2T1  395  BILLING.BLPRJFL.OC.19              1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:13.11
00500/20    BILLING                  PNLIST          SP  G  PNLS    S0027 DISTRB FSNAME=PNLIST                                      
            D3.2T1  396  BILLING.PNLIST.SP.20               1 LINE     80    5 PAGE UM   ENGLE               MAR. 12, 1975  11:07:36
0          PROGRAM TO PRODUCE LISTINGS OF PROJECT NUMBERS IN *PROJECT SORTED BY UNIVERSITY ACCOUNT NUMBER, INTER-DEPARTMENTAL
           REQUISITION NUMBER, UNIT CODE, AND NAME.
0          Referenced by comments of: 500/22 
00500/21    BILLING                  PNLIST          OC  G          S0027 DISTRB FSNAME=PNLS                                        
            D3.2T1  397  BILLING.PNLIST.OC.21               1 LINE     80    6 PAGE UM   ENGLE               MAR. 12, 1975  11:07:48
0          PATCHED TO LOGICALLY AGREE WITH SOURCE.
00500/22    BILLING                  PNLSEXTR        SA  G  PEXT    S0027 DISTRB FSNAME=PNLSEXTR                                    
            D3.2T1  398  BILLING.PNLSEXTR.SA.22             1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  13:16.12
0          SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/20).  CALLED BY PRJLIST (104/34) WHICH IS CALLED BY PNLIST.
           COPIES ACCPROJFMT (104/2).
00500/23    BILLING                  PNLSEXTR        OC  G          S0027 DISTRB FSNAME=PEXT                                        
            D3.2T1  399  BILLING.PNLSEXTR.OC.23             1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  13:16.32
00500/24    BILLING                  BLRECPR         SP  G  BLRP    S0027 DISTRB FSNAME=BLRECPR                                     
            D3.2T1  400  BILLING.BLRECPR.SP.24              1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  14:16.05
0          PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/1).
00500/25    BILLING                  BLRECPR         OC  G          S0027 DISTRB FSNAME=BLRP                                        
            D3.2T1  401  BILLING.BLRECPR.OC.25              1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  14:16.20
00500/26    BILLING                  POSIFIL         SP  G  POSF    S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.SP.26                  312
            D3.1T1  312  BILLING.POSIFIL.SP.26              1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  15:49.10
0          SUBROUTINE CALLED BY BILLING (500/4) TO POSITION PL/1 FILES FOR RESTART.
00500/27    BILLING                  POSIFIL         OC  G  POSF    S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.OC.27                  313
            D3.1T1  313  BILLING.POSIFIL.OC.27              1 LINE     80    2 PAGE UM   ENGLE               JAN. 08, 1974  15:49.29
00501/01    MTS VOLUME 3             MASTER          WT  G          S0486 MTSV3 'MTS MANUALS' POSN=NEWM7.V3                         
            D3T3    206  MTS_VOLUME_3.MASTER.WT.1           1 SEQ     132  344 PAGE UM   SALISBURY           AUG. 03, 1973  21:52.05
0          TEXT/360 MASTER FOR VOLUME 3 "SUBROUTINE AND MACRO DESCRIPTIONS" OF THE UM MTS MANUAL.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00501/02    MTS VOLUME 3             PRINT           PT  G        > S0486 MTSV3 'MTS MANUALS' POSN=PRINT7.V3                        
            D3T3    207  MTS_VOLUME_3.PRINT.PT.2            1 SEQ     132  454 PAGE UM   SALISBURY           AUG. 03, 1973  21:56.56
0          TEXT/360 PRINT FILE.
00502/01    DEADFILES                SCANFILES       SA  G  SCNF    RSTR:DEADSCANFILE(1000)                                         
            D3.2T1  402  DEADFILES.SCANFILES.SA.01          1 LINE     80   10 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:15
0          DEADFILES IS A SERIES OF PROGRAMS USED TO REMOVE FILES WHICH BELONG TO EXPIRED USER ID'S.  AT UM,
           THE PROCEDURE, OUTLINED BELOW, IS DONE ONCE PER MONTH AND THE TAPE(S) GENERATED ARE SAVED INDEFINITELY
           (AS LEAST SO FAR).
            
                         PROCEDURE FOR REMOVING FILES BELONGING
                          TO EXPIRED SIGNON ID'S (DEADFILES)
            
             1.   DEADFILES SHOULD BE RUN FROM A TERMINAL (NOT BATCH) AND MAY BE RUN DURING NORMAL SYSTEM
                  OPERATION.  DEPENDING ON HOW MANY FILES ARE TO BE REMOVED, THIS PROCEDURE MAY EASILY
                  TAKE SEVERAL HOURS (ELAPSED) TO COMPLETE.
            
             2.   AFTER SIGNING ON, ENTER THE FOLLOWING COMMANDS:
            
                      $CREATE DEADFILES SIZE=10P
                      $CREATE CATLIST SIZE=10P
                      $CREATE ACCLIST SIZE=10P
                      $REL
                      $RUN SCANFILES SPRINT=*PRINT* 0=DEADFILES 1=CATLIST 2=ACCLIST
            
                  NOTE:  A PERMANENT FILE MAY BE USED IN PLACE OF *PRINT* IF DESIRED; HOWEVER, THE OUTPUT
                  MUST BE PRINTED AND INSPECTED.
            
             3.   CHECK THE OUTPUT FROM STEP 2 TO SEE IF THERE ARE ENOUGH FILES FLAGGED 'EXP' OR 'MISSING'
                  TO BE WORTH CONTINUING.  NOTHING HAS BEEN DONE TO ANY OF THE FILES AT THIS POINT.
            
             4.   MAKE A LISTING OF THE FILE "DEADFILES" FOR LATER USE.
            
             5.   ENTER THE COMMAND:
            
                      $RUN SAVEFILES 0=*SOURCE* SCARDS=DEADFILES SPRINT=*PRINT*
            
                  WHEN ASKED, ENTER THE NAME OF A 9-TRACK TAPE DRIVE.
                  SAVE THE TAPE WHICH IS PRODUCED.  FILES FROM IT CAN BE RESTORED AT A LATER TIME USING
                  *RST (092).  AT UM, WE MAKE A $5.00 SERVICE CHARGE FOR RESTORING FILES.
            
             6.   COMPARE THE OUTPUT FROM STEP 5 WITH THE LISTING OF "DEADFILES" TO MAKE SURE THAT
                  ALL FILES WERE PROPERLY SAVED.
            
             7.   ENTER THE COMMAND:
            
                      $RUN COPYSAVE 0=>T9XX 1=>T9YY
            
                  WHERE T9XX IS THE TAPE DRIVE ON WHICH THE SAVE TAPE PRODUCED IN STEP 5 IS MOUNTED (RING OUT)
                  AND T9YY IS THE TAPE DRIVE ON WHICH THE TAPE WHICH WILL BE WRITTEN AS A COPY OF THE SAVE TAPE
                  IS MOUNTED (RING IN).
            
1                                                                                               FRI AUG 02/96   19:04:25   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            8.   COMPARE THE COUNT PRINTED IN STEP 7 WITH THE NUMBER OF THE LAST LINE IN DEADFILES.  IF THEY DO
                  NOT AGREE, STOP!!!!!
            
             9.   ENTER THE COMMAND:
            
                      $RUN PRINTSAVE SPRINT=*PRINT* 0=>T9XX 1=*DUMMY*
            
                  WHERE T9XX IS A TAPE DRIVE ON WHICH IS MOUNTED ONE THE TAPES FROM STEP 7.
                  THE OUTPUT, WHICH IS A LISTING OF ALL FILES ON THE TAPE SORTED BY SIGNON ID, SHOULD
                  BE SAVED WITH THE TWO TAPES FROM STEP 7.
            
             10.  IF THERE HAS BEEN ANY TROUBLE UP TO THIS POINT, DO NOT CONTINUE; OTHERWISE, ENTER:
            
                      $RUN DESTROY SCARDS=DEADFILES SPRINT=*PRINT*
            
                  THIS IS THE STEP WHICH ACTUALLY DESTROYS THE FILES.
            
             11.  ENTER THE COMMAND:
            
                      $RUN CATDES SCARDS=CATLIST SPRINT=*PRINT*
            
                  THIS STEP DESTROYS THE CATALOG ENTRIES FOR THE EXPIRED SIGNON ID'S.
            
             12.  ENTER THE COMMAND:
            
                      $RUN FIX SCARDS=ACCLIST SPRINT=*PRINT*
            
                  THIS RESETS THE ACCOUNTING FILE RECORDS FOR THE SIGNON ID'S WHICH HAD FILES DESTROYED
                  AND BILLS FOR THE FILE STORAGE UP TO THE EXPIRATION TIME OF THE USER ID.
            
             13.  ENTER THE COMMANDS:
            
                      $DESTROY DEADFILES
                      $DESTROY CATLIST
                      $DESTROY ACCLIST
            
            
           SCANFILES MAKES A LIST OF WHAT FILES ARE TO BE REMOVED.
           COPIES COPY:CATEQU (482/28), *GFINFODSECT (593), AND W013:ACCFORMAT (104/1).  ASSEMBLE WITH *SYSMAC.
           NOTE:  THIS PROGRAM CALLS THE ACCOUNTING SUBROUTINES ACCIO (104/17) AND GETFILE (104/88), OBJECT DECKS FOR WHICH
                  MUST BE INCLUDED WITH THE OBJECT FOR THIS PROGRAM.
0          Referenced by comments of: 92/1 
00502/02    DEADFILES                SCANFILES       OC  G          RSTR:DEADSCANFILE(1,998)                                        
            D3.2T1  403  DEADFILES.SCANFILES.OC.02          1 LINE    255    7 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:17
0          THE ACCIO SUBROUTINE IN THIS OBJECT DECK HAS SEVERAL REP CARDS TO CHANGE THE NAMES OF THE "ACCOUNTING" FILES
           FROM "$-----" (AS ASSEMBLED FOR TESTING) TO "*------" FOR ACTUAL USE.
00502/03    DEADFILES                COPYSAVE        SA  G  CPSV    RSTR:DEADCOPYSAVE(1000)                                         
            D3.2T1  404  DEADFILES.COPYSAVE.SA.03           1 LINE     80    3 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:20
0          PROGRAM TO COPY A FILE SAVE TAPE COUNTING THE NUMBER OF FILES ON IT.
1                                                                                               FRI AUG 02/96   19:04:25   Page  159
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          ASSEMBLE WITH *SYSMAC.
00502/04    DEADFILES                COPYSAVE        OC  G          RSTR:DEADCOPYSAVE(1,998)                                        
            D3.2T1  405  DEADFILES.COPYSAVE.OC.04           1 LINE    255    3 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:22
00502/05    DEADFILES                PRINTSAVE       SA  G  PRSV    RSTR:DEADPRNTSAVE(1000)                                         
            D3.2T1  406  DEADFILES.PRINTSAVE.SA.05          1 LINE     80    4 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:24
0          PROGRAM TO PRINT A SORTED LIST OF FILES ON A SAVE TAPE SEPARATED BY USERID.
           ASSEMBLE WITH *SYSMAC.
00502/06    DEADFILES                PRINTSAVE       OC  G          RSTR:DEADPRNTSAVE(1,998)                                        
            D3.2T1  407  DEADFILES.PRINTSAVE.OC.06          1 LINE    255    3 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:27
00502/07    DEADFILES                DESTROY         SA  G  DSTR    RSTR:DEADFILEDES(1000)                                          
            D3.2T1  408  DEADFILES.DESTROY.SA.07            1 LINE     80    3 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:29
0          PROGRAM TO DESTROY A LIST OF FILES.  CALLS DESTROY DIRECTLY, NOT THE MTS INTERFACE TO IT.
           ASSEMBLE WITH *SYSMAC AND PAR=B.
00502/08    DEADFILES                DESTROY         OC  G          RSTR:DEADFILEDES(1,998)                                         
            D3.2T1  409  DEADFILES.DESTROY.OC.08            1 LINE     80    3 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:32
00502/09    DEADFILES                CATDES          SA  G  CDES    RSTR:DEADUCATDES(1000)                                          
            D3.2T1  410  DEADFILES.CATDES.SA.09             1 LINE     80    3 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:34
0          PROGRAM TO DESTROY USER CATALOGS.  IT DOES NOT CHECK TO SEE IF THERE ARE ANY FILES IN THE CATALOG
           BEFORE DESTROYING IT (WHICH IT SHOULD).  THIS IS THE ONLY WAY THAT CATALOG SPACE IS EVER RECLAIMED
           AND IF THIS PROGRAM IS NOT RUN, THE CATALOG WILL ONLY GET BIGGER.
           ASSEMBLE WITH *SYSMAC.
00502/10    DEADFILES                CATDES          OC  G          RSTR:DEADUCATDES(1,998)                                         
            D3.2T1  411  DEADFILES.CATDES.OC.10             1 LINE     80    1 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:36
00502/11    DEADFILES                SAVEFILES       SA  G  SVFL    RSTR:DEADSAVE(1000)                                             
            D3.2T1  412  DEADFILES.SAVEFILES.SA.11          1 LINE     80    7 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:38
0          PROGRAM TO SAVE A SPECIFIC SET OF FILES IN THE SAME FORMAT AS FILESAVE (067).
           COPIES COPY:CATEQU (482/28).  ASSEMBLE WITH *SYSMAC.  CALLS THE FOLLOWING SUBROUTINES:  SAVEFILE (067/2),
           TAPEOUT (067/3), AND FILEDSCB (502/13).
0          Referenced by comments of: 502/13 
00502/12    DEADFILES                SAVEFILES       OE  G          RSTR:DEADSAVEOBJ                                                
            D3.2T1  413  DEADFILES.SAVEFILES.OE.12          1 SEQ    3146    3 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:41
00502/13    DEADFILES                FILEDSCB SUBR   SA  G  DSCB    RSTR:FILEDSCB(1000)                                             
            D3.2T1  414  DEADFILES.FILEDSCB_SUBR.SA.13      1 LINE     80    6 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:43
0          SUBROUTINE CALLED BY SAVEFILES (502/11) TO GET DSCB'S FOR A FILE.  COPIES COPY:DSCBDSCT (482/41),
           COPY:DSKDSCT (482/42), AND COPY:FCBEQU (482/27).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 502/11 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00502/14    DEADFILES                FILEDSCB SUBR   OC  G          RSTR:FILEDSCB(1,998)                                            
            D3.2T1  415  DEADFILES.FILEDSCB_SUBR.OC.14      1 LINE     80    4 PAGE UM   BERSTIS             MAR. 21, 1975  01:48:46
00502/15    DEADFILES                FIX             SA  G  DFFX    S0722 'D3T3' FSNAME=DEADFILES.FIX.SA.15                      222
            D3T3    222  DEADFILES.FIX.SA.15                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.
00502/16    DEADFILES                FIX             OC  G          S0722 'D3T3' FSNAME=DEADFILES.FIX.OC.16                      223
            D3T3    223  DEADFILES.FIX.OC.16                1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:59.15
00503       FUTIL                                                 # (OBSOLETED BY $FILESTATUS COMMAND)                              
                                                                                    UM                                              
00504/01    MTS VOLUME 1             MASTER          WT  G          S0488 MTSV1 'MTS MANUALS' POSN=NEWM4.V1                         
            D3T3    224  MTS_VOLUME_1.MASTER.WT.1           1 SEQ     132  336 PAGE UM   SALISBURY           AUG. 03, 1973  22:07.51
0          TEXT/360 MASTER FOR VOLUME 1 "MTS AND THE COMPUTING CENTER" OF THE UM MTS MANUAL (JANUARY 1973)
           INCLUDING UPDATE NUMBER 1 (JULY 1973) WHICH WAS ISSUED AS CCMEMO M243 (120 PP).
00504/02    MTS VOLUME 1             PRINT           PT  G        > S0488 MTSV1 'MTS MANUALS' POSN=PRINT4.V1                        
            D3T3    225  MTS_VOLUME_1.PRINT.PT.2            1 SEQ     132  275 PAGE UM   SALISBURY           AUG. 03, 1973  22:11.43
0          TEXT/360 PRINT FILE.
00504/03    MTS VOLUME 1             ERROR DUMP      P   G          S0488 MTSV1 'MTS MANUALS' POSN=ERRORDUMP2                       
            D3T3    226  MTS_VOLUME_1.ERROR_DUMP.P.3        1 SEQ     133    3 PAGE UM   SALISBURY           AUG. 03, 1973  22:18.57
0          PRINTED OUTPUT FOR EXAMPLE ON PAGES 419 AND 420.
00505/01    ALGOL                    DUMPRESTORE     C              S0504 'UBC -> UM #6' FMT=U(255)                              1  
            D3T3    227  ALGOL.DUMPRESTORE.C.1              1 SEQ      44    2 PAGE UNE  SALISBURY           AUG. 03, 1973  22:20.29
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/02    ALGOL                    CINTSORC        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         4  
            D3T3    228  ALGOL.CINTSORC.SA.2                1 SEQ      80   30 PAGE UNE  SALISBURY           AUG. 03, 1973  22:20.35
0          COMPILER/MTS INTERFACE MODULE.  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 505/19 
00505/03    ALGOL                    FSACONV         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         5  
            D3T3    229  ALGOL.FSACONV.SA.3                 1 SEQ      80    2 PAGE UNE  SALISBURY           AUG. 03, 1973  22:20.37
0          COPY SECTION COPIED BY COMPILER.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00505/04    ALGOL                    FSAREA          SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         6  
            D3T3    230  ALGOL.FSAREA.SA.4                  1 SEQ      80    3 PAGE UNE  SALISBURY           AUG. 03, 1973  22:20.43
0          COPY SECTION COPIED BY COMPILER.
00505/05    ALGOL                    IEX50T          SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         7  
            D3T3    231  ALGOL.IEX50T.SA.5                  1 SEQ      80   95 PAGE UNE  SALISBURY           AUG. 03, 1973  22:20.57
0          COPY SECTION COPIED BY COMPILER.
00505/06    ALGOL                    IEX60000        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         8  
            D3T3    232  ALGOL.IEX60000.SA.6                1 SEQ      80   15 PAGE UNE  SALISBURY           AUG. 03, 1973  22:21.06
0          COPY SECTION COPIED BY COMPILER.
00505/07    ALGOL                    OSALG00         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         14 
            D3T3    233  ALGOL.OSALG00.SA.7                 1 SEQ      80   10 PAGE UNE  SALISBURY           AUG. 03, 1973  22:21.22
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/08    ALGOL                    OSALG01         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         15 
            D3T3    234  ALGOL.OSALG01.SA.8                 1 SEQ      80    4 PAGE UNE  SALISBURY           AUG. 03, 1973  22:21.23
00505/09    ALGOL                    OSALG10         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         16 
            D3T3    235  ALGOL.OSALG10.SA.9                 1 SEQ      80   22 PAGE UNE  SALISBURY           AUG. 03, 1973  22:21.29
00505/10    ALGOL                    OSALG11         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         17 
            D3T3    236  ALGOL.OSALG11.SA.10                1 SEQ      80   88 PAGE UNE  SALISBURY           AUG. 03, 1973  22:21.44
00505/11    ALGOL                    OSALG20         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         18 
            D3T3    237  ALGOL.OSALG20.SA.11                1 SEQ      80   16 PAGE UNE  SALISBURY           AUG. 03, 1973  22:21.54
00505/12    ALGOL                    OSALG30         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         19 
            D3T3    238  ALGOL.OSALG30.SA.12                1 SEQ      80   62 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.03
00505/13    ALGOL                    OSALG40         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         20 
            D3T3    239  ALGOL.OSALG40.SA.13                1 SEQ      80   17 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.10
00505/14    ALGOL                    OSALG50         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         21 
            D3T3    240  ALGOL.OSALG50.SA.14                1 SEQ      80   96 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.22
00505/15    ALGOL                    OSALG51         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         22 
            D3T3    241  ALGOL.OSALG51.SA.15                1 SEQ      80   24 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.32
00505/16    ALGOL                    OSALG51M        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         23 
            D3T3    242  ALGOL.OSALG51M.SA.16               1 SEQ      80    9 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.36
00505/17    ALGOL                    OSMAC           SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         24 
            D3T3    243  ALGOL.OSMAC.SA.17                  1 SEQ      80  103 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.49
0          SPECIAL OS INTERFACE MACRO LIBRARY.  MUST BE USED TO ASSEMBLE COMPS 505/7
           THROUGH 505/16.
1                                                                                               FRI AUG 02/96   19:04:25   Page  162
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 505/7, 505/20, 505/21 
00505/18    ALGOL                    WORKAREA        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         25 
            D3T3    244  ALGOL.WORKAREA.SA.18               1 SEQ      80    4 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.57
0          COPY SECTION COPIED BY COMPILER AND LIBRARY.
00505/19    ALGOL                    *ALGOL          OC  G          *ALGOL                                                          
            D3T3    245  ALGOL.*ALGOL.O.19                  1 SEQ      80   31 PAGE UM   SALISBURY           AUG. 03, 1973  22:23.02
0          COMPLETE COMPILER OBJECT FILE.  CONSISTS OF OBJECT OF COMPS 505/7 THROUGH
           505/16 (THE OS/360 SOURCE) PLUS THE COMPILER/MTS INTERFACE MODULE
           (505/2) AND AN " ENT            COMENTRY" LOADER CARD TO SPECIFY THE COMPILER
           ENTRY POINT.
00505/20    ALGOL                    LIBSORC         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         11 
            D3T3    246  ALGOL.LIBSORC.SA.20                1 SEQ      80  181 PAGE UNE  SALISBURY           AUG. 03, 1973  22:23.48
0          OS/360 LIBRARY SOURCE.  ASSEMBLE WITH OSMAC (505/17).
00505/21    ALGOL                    LIBSORC1        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         12 
            D3T3    247  ALGOL.LIBSORC1.SA.21               1 SEQ      80   37 PAGE UNE  SALISBURY           AUG. 03, 1973  22:24.06
0          MORE OS/360 LIBRARY SOURCE.  ASSEMBLE WITH OSMAC (505/17).
00505/22    ALGOL                    LINTSORC        SA  G          MTA:ALGLIBINT                                                   
            D3T3    248  ALGOL.LINTSORC.SA.22               1 LINE     80   28 PAGE UM   SALISBURY           AUG. 03, 1973  22:24.23
0          LIBRARY/MTS INTERFACE MODULE.  ASSEMBLE WITH *SYSMAC.
           MODIFIED BY UM.
0          Referenced by comments of: 505/23 
00505/23    ALGOL                    *ALGOLLIB       OL  G          *ALGOLLIB                                                       
            D3T3    249  ALGOL.*ALGOLLIB.OL.23              1 SEQ    3963   11 PAGE UM   SALISBURY           AUG. 03, 1973  22:24.45
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/24    ALGOL                    KDFSORC         S   G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         10 
            D3T3    250  ALGOL.KDFSORC.S.24                 1 SEQ      80   45 PAGE UNE  SALISBURY           AUG. 03, 1973  22:25.02
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/25    ALGOL                    *KDFLIB         OL  G          *KDFLIB                                                         
            D3T3    251  ALGOL.*KDFLIB.OL.25                1 SEQ     348   56 PAGE UM   SALISBURY           AUG. 03, 1973  22:25.11
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.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00505/26    ALGOL                    KDFLIBTEST      S   G          S0722 'D3T3' FSNAME=ALGOL.KDFLIBTEST.S.26                    252
            D3T3    252  ALGOL.KDFLIBTEST.S.26              1 LINE     67    1 PAGE UM   MTA                 AUG. 03, 1973  22:25.28
0          ALGOL PROGRAM TO TEST *KDFLIB.
00506/01    PL1 MAINTENANCE          CRELCS          SA  G  CLCS    S0410 MTSPL1 'PL1LIB' POSN=CRELCS                            37 
            D3T4      1  PL1_MAINTENANCE.CRELCS.SA.1        1 SEQ      80    5 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.11
0          CREATE LOW-CORE SYMBOL TABLES, ESPECIALLY PL1SYM AND INTSUBS.
0          Referenced by comments of: 506/9, 506/10 
00506/02    PL1 MAINTENANCE          CRELCSPR        SA  G  LCSP    W062:CRELCSPR(1,999)                                            
            D3T4      2  PL1_MAINTENANCE.CRELCSPR.SA.2      1 LINE     80    5 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.14
0          SAME AS 506/1 EXCEPT FOR PSEUDO-REGISTERS.  IHEPRD IS GENERATED.
0          Referenced by comments of: 233/39 
00506/03    PL1 MAINTENANCE          FIXSEQ2         SA  G  FXS2    S0410 MTSPL1 'PL1LIB' POSN=FIXSEQ2                           41 
            D3T4      3  PL1_MAINTENANCE.FIXSEQ2.SA.3       1 SEQ      80    2 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.21
0          PROGRAM TO CONVERT ALL LONG RECORDS (>256 BYTES) TO RECORDS NOT LONGER THAN 256 SO THAT
           THEY CAN BE LOADED BY THE SEGMENT 2 LOADER.
00506/04    PL1 MAINTENANCE          PICKUP          SA  G  PKUP    S0410 MTSPL1 'PL1LIB' POSN=PICKUP                            42 
            D3T4      4  PL1_MAINTENANCE.PICKUP.SA.4        1 SEQ      80    4 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.27
0          PROGRAM TO PICK UP A MODULE FROM A LOADER LIBRARY.
00506/05    PL1 MAINTENANCE          PL1LOADR        SA  G  PL1L    S0410 MTSPL1 'PL1LIB' POSN=PL1LOADR                          43 
            D3T4      5  PL1_MAINTENANCE.PL1LOADR.SA.5      1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.31
0          SIMULATE LOADING PROCESS WITH PL/I LIBRARY IN SEGMENT 5 INSTEAD OF SEGMENT 2 (FOR CHECKOUT).
00506/06    PL1 MAINTENANCE          SYMBOLS         SA  G  SYMB    S0410 MTSPL1 'PL1LIB' POSN=SYMBOLS                           44 
            D3T4      6  PL1_MAINTENANCE.SYMBOLS.SA.6       1 SEQ      80    5 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.40
0          PRINT PL1LIB SYMBOLS AND THEIR CURRENT ADDRESSES.
00506/07    PL1 MAINTENANCE          REMOVELIBS      SA  G  RMVL    S0410 MTSPL1 'PL1LIB' POSN=REMOVELIBS                        45 
            D3T4      7  PL1_MAINTENANCE.REMOVELIBS.SA.7    1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.42
0          REMOVE LOADER CARDS LIKE RIP, LIB, ETC.
00506/08    PL1 MAINTENANCE          GENSPL1LIB      C              S0410 MTSPL1 'PL1LIB' POSN=GENSPL1LIB                        46 
            D3T4      8  PL1_MAINTENANCE.GENSPL1LIB.C.8     1 SEQ     122    1 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.49
0          COMMANDS TO GENERATE SHAREDPL1LIB.
00506/09    PL1 MAINTENANCE          PL1SYMBOLS      D              S0410 MTSPL1 'PL1LIB' POSN=PL1SYMBOLS                        47 
            D3T4      9  PL1_MAINTENANCE.PL1SYMBOLS.D.9     1 SEQ     117    2 PAGE UM   TIFFANY             AUG. 01, 1973  21:55.55
0          LIST OF PL/I SYMBOL NAMES.  USED BY CRELCS (506/1).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00506/10    PL1 MAINTENANCE          INTSUBS         D              S0410 MTSPL1 'PL1LIB' POSN=INTSUBS                           48 
            D3T4     10  PL1_MAINTENANCE.INTSUBS.D.10       1 SEQ      56    1 PAGE UM   TIFFANY             AUG. 01, 1973  21:56.00
0          LIST OF INTERNAL SUBROUTINES.  USED BY CRELCS (506/1).
00506/11    PL1 MAINTENANCE          PATCHER         SA  G  PAT0    W062:PATCH                                                      
            D3T4     11  PL1_MAINTENANCE.PATCHER.SA.11      1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  21:56.10
0          MODULE TO INSERT PATCHES INTO PL1 COMPILER AS IT IS LOADED
00506/12    PL1 MAINTENANCE          LLXU            SA  G  LLXU    S0723 'D3T4' FSNAME=PL1_MAINTENANCE.LLXU.SA.12                12
            D3T4     12  PL1_MAINTENANCE.LLXU.SA.12         1 LINE     80   18 PAGE UM   TIFFANY             JULY 30, 1973  03:34.02
0          SIMULATE OS LINK/LOAD/XCTL WITH GOODIES.
           THIS PROGRAM CALLS UMLOAD DIRECTLY AND HAS RECENTLY BEEN MODIFIED FOR NEW UMLOAD.
00506/13    PL1 MAINTENANCE          SETUP DIRECTRY  SA  G  SETP    S0410 MTSPL1 'PL1LIB' POSN=SETUP                             56 
            D3T4     13  PL1_MAINTENANCE.SETUP_DIRE.SA.13   1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  21:58.17
0          PROGRAM TO SET UP *PL1DIRECTOR FOR PL/I COMPILER.
00506/14    PL1 MAINTENANCE          SQUEEZE         SA  G  SQIZ    S0410 MTSPL1 'PL1LIB' POSN=SQUEEZE                           57 
            D3T4     14  PL1_MAINTENANCE.SQUEEZE.SA.14      1 SEQ      80    4 PAGE UM   TIFFANY             AUG. 01, 1973  21:58.23
0          PROGRAM TO REMOVE PL/I COMPILER MODULES WHICH ARE NO LONGER IN USE TO SAVE FILE SPACE.
00506/15    PL1 MAINTENANCE          INSTALLATION    WF             W062:INSTALL                                                    
            D3T4     15  PL1_MAINTENANCE.INSTALLATI.WF.15   1 LINE    128   18 PAGE UM   TIFFANY             AUG. 01, 1973  21:58.34
0          INSTRUCTIONS FOR INSTALLATION OF PL/I IN MTS.
00507/01   *LIM                                      C              *LIM                                                            
            D3T4     16  LIM..C.1                           1 LINE     66    1 PAGE UM   WSG                 AUG. 01, 1973  21:58.41
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/02   *LIM                      TLIMIT          SA  G  TLIM    WSG:TLIMIT(1,999)                                               
            D3.2T1  416  LIM.TLIMIT.SA.02                   1 LINE     80    4 PAGE UM   WSG                 MAR. 21, 1975  01:48:48
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 FOR WHICH
           THE REMAINING TIME IS TO BE CALCULATED.  END-OF-FILE TERMINATES PROGRAM.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).  ASSEMBLE USING *SYSMAC.
00507/03   *LIM                      370 OBJECT      OC  G          SYS:TLIMIT                                                      
            D3.2T1  417  LIM.370_OBJECT.OC.03               1 LINE     80    1 PAGE UM   WSG                 MAR. 21, 1975  01:48:51
0          OBJECT FOR 370 VERSION.
00507/04   *LIM                      360 OBJECT      OC  G          WSG:TLIMIT.O.360                                                
            D3T4     18  LIM.TLIMIT_PGM.OC.3                1 LINE     80    1 PAGE UM   WSG                 AUG. 01, 1973  21:58.51
0          OBJECT FOR 360 VERSION.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00508/01   *BASIC                    STRT1           C              W070:BASIC.STRT1                                                
            D3T4     19  BASIC.STRT1.C.1                    1 LINE     70    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:58.56
0          MTS COMMANDS TO CREATE AND RESTORE FILES NEEDED TO GENERATE BASIC.  ASSUMES THAT BASIC (BY ITSELF) IS
           ON A *FS TAPE AND RESTORES FILES FROM IT.
00508/02   *BASIC                    STRT2           C              W070:BASIC.STRT2                                                
            D3T4     20  BASIC.STRT2.C.2                    1 LINE    126    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.00
0          MTS COMMANDS TO ASSEMBLE AND LINK-EDIT BASIC.  ASSUMES THE ASSEMBLER IS ON A REGULAR BLOCKED TAPE.
00508/03   *BASIC                    BIFDSECT        SA  G          W070:BIFDSECT                                                   
            D3T4     21  BASIC.BIFDSECT.SA.3                1 LINE     66    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.05
0          THE DSECT USED BY "BUILT-IN" FUNCTIONS.
00508/04   *BASIC                    CLIDSECT        SA  G          W070:CLIDSECT                                                   
            D3T4     22  BASIC.CLIDSECT.SA.4                1 LINE     72    3 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.10
0          THE DSECT USED BY COMMAND AND CMNDINIT.
00508/05   *BASIC                    DS6A            SA  G          W070:DS6A                                                       
            D3T4     23  BASIC.DS6A.SA.5                    1 LINE     72    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.15
0          THE DSECT USED BY LOADER.
00508/06   *BASIC                    DSECTCOMM       SA  G          W070:DSECTCOMM                                                  
            D3T4     24  BASIC.DSECTCOMM.SA.6               1 LINE     70    3 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.20
0          THE BASIC COMMON DSECT.
00508/07   *BASIC                    DSECT9A         SA  G          W070:DSECT9A                                                    
            D3T4     25  BASIC.DSECT9A.SA.7                 1 LINE     71    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.24
0          THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH.
00508/08   *BASIC                    FHDRDSECT       SA  G          W070:FHDRDSECT                                                  
            D3T4     26  BASIC.FHDRDSECT.SA.8               1 LINE     72    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.29
0          THE "FILE HEADER" DSECT.
00508/09   *BASIC                    GLOBALSYM       SA  G          W070:GLOBALSYM                                                  
            D3T4     27  BASIC.GLOBALSYM.SA.9               1 LINE     62    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.34
0          CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE
           INSTALLATION NAME.
00508/10   *BASIC                    INTFACMAC       SM  G          W070:INTFACMAC                                                  
            D3T4     28  BASIC.INTFACMAC.SM.10              1 LINE     58    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.39
0          BASIC MACRO LIBRARY.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00508/11   *BASIC                    LDICDSCT        SA  G          W070:LDICDSCT                                                   
            D3T4     29  BASIC.LDICDSCT.SA.11               1 LINE     72    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.45
0          THE "LOADING DIRECTORY" DSECT.
00508/12   *BASIC                    MAPDSECT        SA  G          W070:MAPDSECT                                                   
            D3T4     30  BASIC.MAPDSECT.SA.12               1 LINE     68    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.51
0          THE "MAP ENTRY DESCRIPTION" DSECT.
00508/13   *BASIC                    OPDEFEQUS       SA  G          W070:OPDEFEQUS                                                  
            D3T4     31  BASIC.OPDEFEQUS.SA.13              1 LINE     70    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.54
0          "EQUS" USED IN OPERATOR DEFINITIONS.
00508/14   *BASIC                    OPDEFMACROS     SM  G          W070:OPDEFMACROS                                                
            D3T4     32  BASIC.OPDEFMACROS.SM.14            1 LINE     72    3 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.59
0          MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS.
00508/15   *BASIC                    PDSECT          SA  G          W070:PDSECT                                                     
            D3T4     33  BASIC.PDSECT.SA.15                 1 LINE     72    3 PAGE UM   FRONCZAK            AUG. 01, 1973  22:00.06
0          THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----).
00508/16   *BASIC                    SYMTABDEF       SA  G          W070:SYMTABDEF                                                  
            D3T4     34  BASIC.SYMTABDEF.SA.16              1 LINE     33    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:00.10
0          THE SYMBOL TABLE DSECT (UNDOCUMENTED).
00508/17   *BASIC                    SYMTABSECT      SA  G          W070:SYMTABSECT                                                 
            D3T4     35  BASIC.SYMTABSECT.SA.17             1 LINE     70    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:00.15
0          THE SYMBOL TABLE DSECT (DOCUMENTED).
00508/18   *BASIC                    WSLAYOUT        SA  G          W070:WSLAYOUT                                                   
            D3T4     36  BASIC.WSLAYOUT.SA.18               1 LINE     68    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:00.19
0          THE "WORKING STORAGE LAYOUT" DSECT.
00508/19   *BASIC                    CLI             SA  G          S0076 BSCSET POSN=*BASIC.CLI                                 1  
            D3T4     37  BASIC.CLI.SA.19                    1 SEQ      80  118 PAGE UM   FRONCZAK            AUG. 01, 1973  22:01.38
00508/20   *BASIC                    LEX             SA  G          S0076 BSCSET POSN=*BASIC.LEX                                 2  
            D3T4     38  BASIC.LEX.SA.20                    1 SEQ      80  111 PAGE UM   FRONCZAK            AUG. 01, 1973  22:02.21
00508/21   *BASIC                    CMP             SA  G          S0076 BSCSET POSN=*BASIC.CMP                                 3  
            D3T4     39  BASIC.CMP.SA.21                    1 SEQ      80   99 PAGE UM   FRONCZAK            AUG. 01, 1973  22:03.05
00508/22   *BASIC                    CPS             SA  G          S0076 BSCSET POSN=*BASIC.CPS                                 4  
            D3T4     40  BASIC.CPS.SA.22                    1 SEQ      80   79 PAGE UM   FRONCZAK            AUG. 01, 1973  22:03.48
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00508/23   *BASIC                    NUM             SA  G          S0076 BSCSET POSN=*BASIC.NUM                                 5  
            D3T4     41  BASIC.NUM.SA.23                    1 SEQ      80   60 PAGE UM   FRONCZAK            AUG. 01, 1973  22:04.43
00508/24   *BASIC                    VFL             SA  G          S0076 BSCSET POSN=*BASIC.VFL                                 6  
            D3T4     42  BASIC.VFL.SA.24                    1 SEQ      80   25 PAGE UM   FRONCZAK            AUG. 01, 1973  22:05.36
00508/25   *BASIC                    BIO             SA  G          S0076 BSCSET POSN=*BASIC.BIO                                 7  
            D3T4     43  BASIC.BIO.SA.25                    1 SEQ      80   47 PAGE UM   FRONCZAK            AUG. 01, 1973  22:06.10
00508/26   *BASIC                    INF             SA  G          S0076 BSCSET POSN=*BASIC.INF                                 8  
            D3T4     44  BASIC.INF.SA.26                    1 SEQ      80   42 PAGE UM   FRONCZAK            AUG. 01, 1973  22:06.44
00508/27   *BASIC                    BSI             SA  G          S0076 BSCSET POSN=*BASIC.BSI                                 9  
            D3T4     45  BASIC.BSI.SA.27                    1 SEQ      80    5 PAGE UM   FRONCZAK            AUG. 01, 1973  22:06.57
00508/28   *BASIC                    LIBSYM          SA  G          W070:LIBSYM                                                     
            D3T4     46  BASIC.LIBSYM.SA.28                 1 LINE     66    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:07.05
0          PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER.
00508/29   *BASIC                    SPECIALRATES    SA  G          W070:SPECIALRATES                                               
            D3T4     47  BASIC.SPECIALRATES.SA.29           1 LINE     70    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:07.07
0          THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR:  %PRINT BALANCE AND STATISTICS PRINTING.
00508/30   *BASIC                    OBJECT          OC  G          SEG2:BASIC                                                      
            D3T4     48  BASIC.OBJECT.OC.30                 1 LINE     80  106 PAGE UM   FRONCZAK            AUG. 01, 1973  22:07.15
0          OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY THE SEG 2 LOADER.
0          Referenced by comments of: 508/31 
00508/31   *BASIC                    *BASIC          OC  G          *BASIC                                                          
            D3T4     49  BASIC.*BASIC.OC.31                 1 SEQ      24    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:08.11
0          CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SEGMENT 2 (SHARED)
           BASIC (508/30).
00508/32   *BASIC                    *BASICHELPC     M              *BASICHELPC                                                     
            D3T4     50  BASIC.*BASICHELPC.M.32             1 LINE     66    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:08.16
0          BASIC HELP COMMAND FILE.
00508/33   *BASIC                    INSTALLATION    PT             W070:T360SYSGENPRT                                              
            D3T4     51  BASIC.INSTALLATION.PT.33           1 SEQ     132    4 PAGE UM   FRONCZAK            AUG. 01, 1973  22:08.51
0          NOTES ON THE INSTALLATION OF BASIC.  COPY TO A TN PRINTER @MCC.
00509/01    PERMIT                   CMMD/SUBR       SA  G          DWB:PF.PERSUB                                                   
            D3.2T1  418  PERMIT.CMMD/SUBR.SA.01             1 LINE     72   13 PAGE UM   DWB                 MAR. 21, 1975  01:48:53
0          THIS IS THE SOURCE FOR THE MTS $PERMIT COMMAND AND PERMIT SUBROUTINE.  THE PERMIT COMMAND IS IMPLEMENTED
           AS A COMMAND LANGUAGE SUB-SYSTEM (CLS) ALTHOUGH IT REALLY ISN'T A CLS (IT HAS NO SUB-COMMANDS).  THIS WAS
           DONE SOLELY FOR EASE OF ISOLATION, CHECKOUT, AND MODIFICATION AND TO KEEP THE MTS ASSEMBLY FROM BURSTING
1                                                                                               FRI AUG 02/96   19:04:25   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          AT MORE SEAMS.
            
           NORMALLY, *CLSPERMIT IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL.
           COPIES COPY:CLSVECTOR (535/2), COPY:FDUBDSECT (623), COPY:FCBEQU (482/27), COPY:CATEQU (482/28), AND
           COPY:STANDARDTV (535/3).  HAS ENTRY POINTS PERCMD (FOR $PERMIT CLS CALL) AND PERMIT (NORMAL SUBROUTINE CALL).
           CALLS THE FILE ROUTINES (GETCINF, SDMOD, AND SDWRITE) DIRECTLY.
00509/02    PERMIT                   CMMD/SUBR       OC  G          *CLSPERMIT                                                      
            D3.2T1  419  PERMIT.CMMD/SUBR.OC.02             1 LINE     80    6 PAGE UM   DWB                 MAR. 21, 1975  01:48:55
0          THIS FILE (*CLSPERMIT) IS NORMALLY LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL.  THE FIRST LINE IS
           A LOADER "COM" CARD SO THAT THE SEG 2 LOADER WILL DEFINE THE SYMBOLS PERCMD AND PERMIT IN LCSYMBOL.
00509/03    PERMIT                   SUBR TEST PGM   SF             DWB:PERSTEST                                                    
            D3T4     61  PERMIT.SUBR_TEST_PGM.SF.3          1 LINE     62    1 PAGE UM   DWB                 AUG. 01, 1973  22:10.06
0          PROGRAM TO TEST THE PERMIT SUBROUTINE.  THIS PROGRAM PROVIDES A FAKE SDMOD SUBROUTINE FOR
           PERMIT TO CALL.  THE FAKE SDMOD JUST PRINTS OUT THE CALLING PARAMETERS.
           THIS PROGRAM WILL CALL PERMIT SEVERAL TIMES WITH AN ASSORTMENT OF PARAMETERS.
           IN ORDER TO USE THIS TEST PROGRAM, YOU WILL HAVE TO SUPPLY, IN ADDITION, A FAKE
           SDWRITE SUBROUTINE FOR PERMIT TO CALL.  THIS FAKE SDWRITE CAN BE A NOP.
00510/01    MTS VOLUME 13                            WF             W098:W55                                                        
            D3T4     62  MTS_VOLUME_13..WF.1                1 LINE    159   61 PAGE UM   SALISBURY           AUG. 01, 1973  22:10.11
0          FORMAT INPUT FOR VOLUME 13 "DATA CONCENTRATOR USER'S GUIDE" OF THE UM MTS MANUAL (AUGUST 1973).
           HARD COPIES OF THIS MANUAL ARE NOT BEING DISTRIBUTED WITH DIST 3.0 BECAUSE OF THE LIMITED
           APPLICATION OF THE INFORMATION IN THIS MANUAL AT OTHER INSTALLATIONS.  HOWEVER, COPIES ARE
           CERTAINLY AVAILABLE ON REQUEST.
00510/02    MTS VOLUME 13                            PF             W073:VOL13                                                      
            D3T4     63  MTS_VOLUME_13..PF.2                1 LINE     80   81 PAGE UM   SALISBURY           AUG. 01, 1973  22:11.01
0          PRINT FILE FOR VOLUME 13.  COPY TO A TN PRINTER.
00511/01   *OBJLIST                                  SA  G  OBJL    W062:OBJLIST                                                    
            D3.2T1  420  OBJLIST..SA.01                     1 LINE     80   18 PAGE UM   TIFFANY             MAR. 21, 1975  01:48:57
0          PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT.
           NEW VERSION AFTER MTS @NOTIFY CHANGE.
           NOTE:  THIS VERSION SHOULD BE INSTALLED IF AND ONLY IF THE MTS @NOTIFY CHANGE IS INSTALLED.
00511/02   *OBJLIST                                  OC  G          *OBJLIST                                                        
            D3.2T1  421  OBJLIST..OC.02                     1 LINE     80    4 PAGE UM   TIFFANY             MAR. 21, 1975  01:49:00
0          >>> CONTAINS REP CARD TO MAKE OBJECT CORRESPOND TO DISTRIBUTED SOURCE <<<
00512/01    MTS VOLUME 11            MASTER          WT  G          S0549 MTSV11 'MTS MANUALS' POSN=NEWM1.V11                    4  
            D3T4     66  MTS_VOLUME_11.MASTER.WT.1          1 SEQ      80  106 PAGE UM   SALISBURY           AUG. 01, 1973  22:14.35
0          TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUAL.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00512/02    MTS VOLUME 11            PRINT           PT  G          S0549 MTSV11 'MTS MANUALS' POSN=PRINT1.V11                   5  
            D3T4     67  MTS_VOLUME_11.PRINT.PT.2           1 SEQ     132  108 PAGE UM   SALISBURY           AUG. 01, 1973  22:15.55
0          TEXT/360 PRINT FILE.
00512/03    MTS VOLUME 11            UPDATE 1        PT  G          W038:V11UDPRT                                                   
            D3.1T1  322  MTS_VOLUME_11.UPDATE_1.PT.3        1 SEQ     132   51 PAGE UM   SALISBURY           MAR. 06, 1974  17:50.09
0          TEXT/360 PRINT FILE FOR MTS VOLUME 11, UPDATE 1.  NOTE, THIS UPDATE HAS NOT BEEN RELEASED
           BY THE UM COMP CNTR PUBLICATIONS OFFICE YET.  THERE MAY BE SOME CHANGES BEFORE IT IS PRINTED.
           ALSO NOTE THAT IT CLAIMS TO BE COMPUTING CENTER MEMO M271 WHICH IS WRONG.  WHEN ISSUED,
           IT WILL BE MEMO M270.
00512/04    MTS VOLUME 11            FIGURES         D              W038:V11FIGS.P                                                  
            D3.1T1  323  MTS_VOLUME_11.FIGURES.D.4          1 SEQ     254   88 PAGE UM   SALISBURY           MAR. 06, 1974  17:50.19
0          PLOT FILE FOR FIGURES APPEARING IN MTS VOLUME 11.
00513       DYSSUB                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
0          THIS IS A SUBROUTINE CALLED BY THE MTS $DISPLAY COMMAND WHICH WILL EVENTUALLY DO NEAT THINGS.
           CURRENTLY, IT CONSISTS OF:
                     LA    15,4
                     BR    14
           THE SOURCE IS NOT DISTRIBUTED (OBVIOUSLY).
00514/01   *PL1TIDY                                  SP  G          W062:NEATENED                                                   
            D3T4     68  PL1TIDY..SP.1                      1 LINE     80   16 PAGE UM   TIFFANY             AUG. 01, 1973  22:16.49
0          THIS IS A REVISED VERSION OF THE IBM "NEATER" PROGRAM.
00514/02   *PL1TIDY                                  OC  G          NEW:PL1TIDY                                                     
            D3T4     69  PL1TIDY..OE.2                      1 SEQ   20974    7 PAGE UM   TIFFANY             AUG. 01, 1973  22:16.58
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00515/01   *11ASR                    11ASMJOB        C              W051:11ASMJOB                                                   
            D3T4     70  11ASR.11ASMJOB.C.1                 1 LINE     94    1 PAGE UM   LUBBERS             AUG. 01, 1973  22:17.03
0          MTS COMMANDS TO ASSEMBLE AND LINK EDIT ALL THE CSECTS FOR THE PDP-11 ASSEMBLER ORIGINALLY WRITTEN
           BY THE MERIT COMPUTER NETWORK PROJECT.  THE REQUIRED MACRO LIBRARY IS ALSO GENERATED.
0          Referenced by comments of: 516/1 
00515/02   *11ASR                    MACRO           SM  G          W051:MACRO                                                      
            D3T4     71  11ASR.MACRO.SA.2                   1 LINE     68    4 PAGE UM   LUBBERS             AUG. 01, 1973  22:17.07
0          MACRO LIBRARY USED TO ASSEMBLE COMPS 515/3 THROUGH 515/7.
00515/03   *11ASR                    UATS/MAL        SA  G          W051:UATS/MAL                                                   
            D3T4     72  11ASR.UATS/MAL.SA.3                1 LINE     86   93 PAGE UM   LUBBERS             AUG. 01, 1973  22:17.14
0          CAPABILTIES FOR EXPRESSION EVALUATION IN LENGTH AND REPLICATION FACTORS
1                                                                                               FRI AUG 02/96   19:04:25   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          IN DC AND DS STATEMENT HAVE BEEN ADDED.  LOGICAL OPERATORS IN ADDRESS
           CALCULATIONS HAVE BEEN ADDED, AS HAS THE SPLITTING OF LONG SOURCE
           STATEMENTS INTO SEVERAL OUTPUT LINES.
0          Referenced by comments of: 515/11 
00515/04   *11ASR                    DCEVAL.SOU      SA  G          W051:DCEVAL.SOU                                                 
            D3T4     73  11ASR.DCEVAL.SOU.SA.4              1 LINE     74   15 PAGE UM   LUBBERS             AUG. 01, 1973  22:19.08
00515/05   *11ASR                    REPSCAN         SA  O          S0658 W051SV FSNAME=REPSCAN                                     
            D3T4     74  11ASR.REPSCAN.SA.5                 1 LINE     63    3 DISK UM   LUBBERS             FEB. 22, 1973  16:48.41
00515/06   *11ASR                    MAC             SA  O          S0658 W051SV FSNAME=MAC                                         
            D3T4     75  11ASR.MAC.SA.6                     1 LINE     70   23 DISK UM   LUBBERS             FEB. 22, 1973  16:47.34
00515/07   *11ASR                    EXTF11.SOU      SA  G          W051:EXTF11.SOU                                                 
            D3T4     76  11ASR.EXTF11.SOU.SA.7              1 LINE     72    7 PAGE UM   LUBBERS             AUG. 01, 1973  22:23.11
00515/08   *11ASR                    OPCODES11       SA  G          W051:OPCODES11                                                  
            D3T4     77  11ASR.OPCODES11.SA.8               1 LINE     72   11 PAGE UM   LUBBERS             AUG. 01, 1973  22:23.15
00515/09   *11ASR                    MICROP          SA  G          W051:MICROP                                                     
            D3T4     78  11ASR.MICROP.SA.9                  1 LINE     72    3 PAGE UM   LUBBERS             AUG. 01, 1973  22:23.21
00515/10   *11ASR                    OBJECT          OE  G          *11ASR                                                          
            D3T4     79  11ASR.OBJECT.O.10                  1 SEQ   28468   16 PAGE UM   LUBBERS             AUG. 01, 1973  22:23.26
00515/11   *11ASR                    ERROR           D   G          W051:ERROR                                                      
            D3T4     80  11ASR.ERROR.D.11                   1 LINE     70    4 PAGE UM   LUBBERS             AUG. 01, 1973  22:23.31
0          ERROR COMMENT FILE REFERENCED BY UATS/MAL (515/3) AS "W051:ERROR" ON LINE 2349.
00515/12   *11ASR                    USER'S GUIDE    WT  G          W016:11MANUAL.SOU                                               
            D3.1T1  324  11ASR.USER'S_GUIDE.WT.12           1 LINE     79   46 PAGE UM   LUBBERS             MAR. 06, 1974  17:50.27
0          "A USER'S GUIDE TO *11ASR AND *LINK11"
00516/01   *LINK11                                   SA  G          W051:LINKSOU                                                    
            D3T4     82  LINK11..SA.1                       1 LINE     79   39 PAGE UM   LUBBERS             JULY 20, 1973  15:39.38
0          LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515).
           NEW VERSION ALLOWS UP TO 1024 EXTERNAL SYMBOLS (INSTEAD OF 256).
00516/02   *LINK11                                   OE  G          *LINK11                                                         
            D3T4     83  LINK11..O.2                        1 SEQ    9916    3 PAGE UM   LUBBERS             AUG. 01, 1973  22:24.31
00516/03   *LINK11                   USER'S GUIDE    WT           # (SEE COMP 515/12)                                               
                                                                                    UM   LUBBERS                                    
00517/01    LOGICAL OPERATORS                        SA  G          S0190 LJH.FS FSNAME=ASM.LOGOPS                                  
            D3T4     84  LOGICAL_OPERATORS..SA.1            1 LINE     70    4 PAGE UM   HARDING             AUG. 01, 1973  22:24.34
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                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00517/02    LOGICAL OPERATORS                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HARDING                                    
00518/01    GRGJUL SUBRS                             SA  G  GRJL    S0027 DISTRB FSNAME=GRGJULTM                                    
            D3T4     85  GRGJUL_SUBRS..SA.1                 1 LINE     80    4 PAGE UM   ENGLE               MAY  03, 1973  09:59.47
0          GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC).
0          Referenced by comments of: 143/2, 436/1, 529/1 
00518/02    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 THE SEG 2 LOADER AT IPL.
00519/01    GRJLDT/GRJLTM SUBRS      GRJLDT          SA  G  GJDT    S0723 'D3T4' FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLDT.SA.1           86
            D3T4     86  GRJLDT/GRJLTM_SUBRS.GRJLDT.SA.1    1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:46.03
0          GREGORIAN-TO-JULIAN CONVERSION SUBROUTINES (TWO OF MANY -- TOO MANY).
00519/02    GRJLDT/GRJLTM SUBRS      GRJLDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00519/03    GRJLDT/GRJLTM SUBRS      GRJLTM          SA  G  GJTM    S0723 'D3T4' FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLTM.SA.3           87
            D3T4     87  GRJLDT/GRJLTM_SUBRS.GRJLTM.SA.3    1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:47.21
00519/04    GRJLDT/GRJLTM SUBRS      GRJLTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00520/01    GROSDT                                   SA  G  GODT    S0723 'D3T4' FSNAME=GROSDT..SA.1                              88
            D3T4     88  GROSDT..SA.1                       1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:52.15
0          GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE.
00520/02    GROSDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/01    JLGRDT/JLGRTM            JLGRDT          SA  G  JGDT    S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRDT.SA.1                 89
            D3T4     89  JLGRDT/JLGRTM.JLGRDT.SA.1          1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:55.50
0          JULIAN-TO-GREGORIAN CONVERSION SUBROUTINES.
00521/02    JLGRDT/JLGRTM            JLGRDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/03    JLGRDT/JLGRTM            JLGRTM          SA  G  JGTM    S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRTM.SA.3                 90
            D3T4     90  JLGRDT/JLGRTM.JLGRTM.SA.3          1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:57.15
00521/04    JLGRDT/JLGRTM            JLGRTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00522/01    JULGRG SUBRS                             SA  G  JLGR    S0723 'D3T4' FSNAME=JULGRG_SUBRS..SA.1                        91
            D3T4     91  JULGRG_SUBRS..SA.1                 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: 143/2, 437/1, 529/1 
00522/02    JULGRG SUBRS                             OC  G        # (PART OF COMP 143/2)                                            
                                                                                    UM   ENGLE                                      
0          THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE"
           BY THE SEG 2 LOADER AT IPL.
00523/01    OSGRDT                                   SA  G  OGDT    S0723 'D3T4' FSNAME=OSGRDT..SA.1                              92
            D3T4     92  OSGRDT..SA.1                       1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  12:10.55
0          OS/360 (YYDDD) TO GREGORIAN DATE CONVERSION SUBROUTINE.
00523/02    OSGRDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00524/01   *LIBRARY                                  OL             *LIBRARY                                                        
            D3.2T1  422  LIBRARY..OL.01                     1 SEQ   14184   38 PAGE UM   SALISBURY           MAR. 21, 1975  01:49:02
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.
00524/02   *LIBRARY                  CREATELIB       C              LIB:CREATELIB                                                   
            D3.1T1  326  LIBRARY.CREATELIB.C.2              1 LINE     75    1 PAGE UM   SALISBURY           MAR. 06, 1974  17:50.54
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/03   *LIBRARY                  ENTERLIB        C              LIB:ENTERLIB                                                    
            D3.1T1  327  LIBRARY.ENTERLIB.C.3               1 LINE     37    1 PAGE UM   SALISBURY           MAR. 06, 1974  17:50.56
0          MTS COMMAND FILE TO ENTER THE NEW LIBRARY FILE CONSTRUCTED BY CREATELIB (524/2)
           INTO *LIBRARY.  WITH RSF, THIS CAN BE DONE DURING NORMAL SYSTEM OPERATION.
00525/01    ELEM FUNC LIB            SQRT            SA  G          S0496 EFL74 FSNAME=SQRT                                         
            D3T4     96  ELEM_FUNC_LIB.SQRT.SA.1            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 (SEGMENT 2).
            
           COMPS 525/1 THROUGH 525/46 SHOULD ALL BE ASSEMBLED WITH THE EFL.MACLIB MACRO LIBRARY (525/47).
1                                                                                               FRI AUG 02/96   19:04:25   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: 527/1 
00525/02    ELEM FUNC LIB            EXP             SA  G          S0496 EFL74 FSNAME=EXP                                          
            D3T4     97  ELEM_FUNC_LIB.EXP.SA.2             1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.07
00525/03    ELEM FUNC LIB            ALOG10/ALOG     SA  G          S0496 EFL74 FSNAME=ALOG10.ALOG                                  
            D3T4     98  ELEM_FUNC_LIB.ALOG10/ALOG.SA.3     1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.13
00525/04    ELEM FUNC LIB            COS/SIN         SA  G          S0496 EFL74 FSNAME=COS.SIN                                      
            D3T4     99  ELEM_FUNC_LIB.COS/SIN.SA.4         1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.18
00525/05    ELEM FUNC LIB            COTAN/TAN       SA  G          S0496 EFL74 FSNAME=COTAN.TAN                                    
            D3T4    100  ELEM_FUNC_LIB.COTAN/TAN.SA.5       1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.23
00525/06    ELEM FUNC LIB            ARCOS/ARSIN     SA  G          S0496 EFL74 FSNAME=ARCOS.ARSIN                                  
            D3T4    101  ELEM_FUNC_LIB.ARCOS/ARSIN.SA.6     1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:02.28
00525/07    ELEM FUNC LIB            ATAN2/ATAN      SA  G          S0496 EFL74 FSNAME=ATAN2.ATAN                                   
            D3T4    102  ELEM_FUNC_LIB.ATAN2/ATAN.SA.7      1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:02.33
00525/08    ELEM FUNC LIB            COSH/SINH       SA  G          S0496 EFL74 FSNAME=COSH.SINH                                    
            D3T4    103  ELEM_FUNC_LIB.COSH/SINH.SA.8       1 LINE     71    1 DISK UM   HARDING             JUNE 27, 1972  12:02.38
00525/09    ELEM FUNC LIB            TANH            SA  G          S0496 EFL74 FSNAME=TANH                                         
            D3T4    104  ELEM_FUNC_LIB.TANH.SA.9            1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.42
00525/10    ELEM FUNC LIB            ERFC/ERF        SA  G          S0496 EFL74 FSNAME=ERFC.ERF                                     
            D3T4    105  ELEM_FUNC_LIB.ERFC/ERF.SA.10       1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.46
00525/11    ELEM FUNC LIB            ALGAMA/GAMMA    SA  G          S0496 EFL74 FSNAME=ALGAMA.GAMMA                                 
            D3T4    106  ELEM_FUNC_LIB.ALGAMA/GAMMA.SA.11   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:02.51
00525/12    ELEM FUNC LIB            DSQRT           SA  G          S0496 EFL74 FSNAME=DSQRT                                        
            D3T4    107  ELEM_FUNC_LIB.DSQRT.SA.12          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.56
00525/13    ELEM FUNC LIB            DEXP            SA  G          S0496 EFL74 FSNAME=DEXP                                         
            D3T4    108  ELEM_FUNC_LIB.DEXP.SA.13           1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.00
00525/14    ELEM FUNC LIB            DLOG10/DLOG     SA  G          S0496 EFL74 FSNAME=DLOG10.DLOG                                  
            D3T4    109  ELEM_FUNC_LIB.DLOG10/DLOG.SA.14    1 LINE     67    2 DISK UM   HARDING             JUNE 27, 1972  12:03.05
00525/15    ELEM FUNC LIB            DCOS/DSIN       SA  G          S0496 EFL74 FSNAME=DCOS.DSIN                                    
            D3T4    110  ELEM_FUNC_LIB.DCOS/DSIN.SA.15      1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.11
00525/16    ELEM FUNC LIB            DCOTAN/DTAN     SA  G          S0496 EFL74 FSNAME=DCOTAN.DTAN                                  
            D3T4    111  ELEM_FUNC_LIB.DCOTAN/DTAN.SA.16    1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:03.15
00525/17    ELEM FUNC LIB            DARCOS/DARSIN   SA  G          S0496 EFL74 FSNAME=DARCOS.DARSI                                 
            D3T4    112  ELEM_FUNC_LIB.DARCOS/DARSI.SA.17   1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.20
00525/18    ELEM FUNC LIB            DATAN2/DATAN    SA  G          S0496 EFL74 FSNAME=DATAN2.DATAN                                 
            D3T4    113  ELEM_FUNC_LIB.DATAN2/DATAN.SA.18   1 LINE     70    2 DISK UM   HARDING             FEB. 16, 1973  09:37.48
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00525/19    ELEM FUNC LIB            DCOSH/DSINH     SA  G          S0496 EFL74 FSNAME=DCOSH.DSINH                                  
            D3T4    114  ELEM_FUNC_LIB.DCOSH/DSINH.SA.19    1 LINE     68    2 DISK UM   HARDING             JUNE 27, 1972  12:03.32
00525/20    ELEM FUNC LIB            DTANH           SA  G          S0496 EFL74 FSNAME=DTANH                                        
            D3T4    115  ELEM_FUNC_LIB.DTANH.SA.20          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:03.36
00525/21    ELEM FUNC LIB            DERFC/DERF      SA  G          S0496 EFL74 FSNAME=DERFC.DERF                                   
            D3T4    116  ELEM_FUNC_LIB.DERFC/DERF.SA.21     1 LINE     72    2 DISK UM   HARDING             JUNE 27, 1972  12:03.39
00525/22    ELEM FUNC LIB            DLGAMA/DGAMMA   SA  G          S0496 EFL74 FSNAME=DLGAMA.DGAMM                                 
            D3T4    117  ELEM_FUNC_LIB.DLGAMA/DGAMM.SA.22   1 LINE     70    2 DISK UM   HARDING             JUNE 27, 1972  12:03.42
00525/23    ELEM FUNC LIB            CABS            SA  G          S0496 EFL74 FSNAME=CABS                                         
            D3T4    118  ELEM_FUNC_LIB.CABS.SA.23           1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:03.46
00525/24    ELEM FUNC LIB            CSQRT           SA  G          S0496 EFL74 FSNAME=CSQRT                                        
            D3T4    119  ELEM_FUNC_LIB.CSQRT.SA.24          1 LINE     67    2 DISK UM   HARDING             JUNE 27, 1972  12:03.50
00525/25    ELEM FUNC LIB            CEXP            SA  G          S0496 EFL74 FSNAME=CEXP                                         
            D3T4    120  ELEM_FUNC_LIB.CEXP.SA.25           1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:03.54
00525/26    ELEM FUNC LIB            CLOG            SA  G          S0496 EFL74 FSNAME=CLOG                                         
            D3T4    121  ELEM_FUNC_LIB.CLOG.SA.26           1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:03.57
00525/27    ELEM FUNC LIB            CCOS/CSIN       SA  G          S0496 EFL74 FSNAME=CCOS.CSIN                                    
            D3T4    122  ELEM_FUNC_LIB.CCOS/CSIN.SA.27      1 LINE     69    1 DISK UM   HARDING             JUNE 27, 1972  12:04.00
00525/28    ELEM FUNC LIB            CDABS           SA  G          S0496 EFL74 FSNAME=CDABS                                        
            D3T4    123  ELEM_FUNC_LIB.CDABS.SA.28          1 LINE     69    1 DISK UM   HARDING             JUNE 27, 1972  12:04.04
00525/29    ELEM FUNC LIB            CDSQRT          SA  G          S0496 EFL74 FSNAME=CDSQRT                                       
            D3T4    124  ELEM_FUNC_LIB.CDSQRT.SA.29         1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:04.08
00525/30    ELEM FUNC LIB            CDEXP           SA  G          S0496 EFL74 FSNAME=CDEXP                                        
            D3T4    125  ELEM_FUNC_LIB.CDEXP.SA.30          1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:04.12
00525/31    ELEM FUNC LIB            CDLOG           SA  G          S0496 EFL74 FSNAME=CDLOG                                        
            D3T4    126  ELEM_FUNC_LIB.CDLOG.SA.31          1 LINE     69    2 DISK UM   HARDING             JUNE 27, 1972  12:04.16
00525/32    ELEM FUNC LIB            CDCOS/CDSIN     SA  G          S0496 EFL74 FSNAME=CDCOS.CDSIN                                  
            D3T4    127  ELEM_FUNC_LIB.CDCOS/CDSIN.SA.32    1 LINE     63    2 DISK UM   HARDING             JUNE 27, 1972  12:04.19
00525/33    ELEM FUNC LIB            FIXPI#          SA  G          S0496 EFL74 FSNAME=FIXPI                                        
            D3T4    128  ELEM_FUNC_LIB.FIXPI#.SA.33         1 LINE     70    1 DISK UM   HARDING             JUNE 27, 1972  12:04.23
00525/34    ELEM FUNC LIB            FRXPI#          SA  G          S0496 EFL74 FSNAME=FRXPI                                        
            D3T4    129  ELEM_FUNC_LIB.FRXPI#.SA.34         1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:04.25
00525/35    ELEM FUNC LIB            FDXPI#          SA  G          S0496 EFL74 FSNAME=FDXPI                                        
            D3T4    130  ELEM_FUNC_LIB.FDXPI#.SA.35         1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:04.28
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00525/36    ELEM FUNC LIB            FCXPI#          SA  G          S0496 EFL74 FSNAME=FCXPI                                        
            D3T4    131  ELEM_FUNC_LIB.FCXPI#.SA.36         1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.31
00525/37    ELEM FUNC LIB            FCDXI#          SA  G          S0496 EFL74 FSNAME=FCDXI                                        
            D3T4    132  ELEM_FUNC_LIB.FCDXI#.SA.37         1 LINE     71    1 DISK UM   HARDING             JUNE 27, 1972  12:04.34
00525/38    ELEM FUNC LIB            FRXPR#          SA  G          S0496 EFL74 FSNAME=FRXPR                                        
            D3T4    133  ELEM_FUNC_LIB.FRXPR#.SA.38         1 LINE     66    1 DISK UM   HARDING             JUNE 27, 1972  12:04.37
00525/39    ELEM FUNC LIB            FDXPD#          SA  G          S0496 EFL74 FSNAME=FDXPD                                        
            D3T4    134  ELEM_FUNC_LIB.FDXPD#.SA.39         1 LINE     67    1 DISK UM   HARDING             JUNE 27, 1972  12:04.43
00525/40    ELEM FUNC LIB            CMPY#           SA  G          S0496 EFL74 FSNAME=CMPY                                         
            D3T4    135  ELEM_FUNC_LIB.CMPY#.SA.40          1 LINE     61    1 DISK UM   HARDING             JUNE 27, 1972  12:04.46
00525/41    ELEM FUNC LIB            CDVD#           SA  G          S0496 EFL74 FSNAME=CDVD                                         
            D3T4    136  ELEM_FUNC_LIB.CDVD#.SA.41          1 LINE     55    1 DISK UM   HARDING             JUNE 27, 1972  12:04.50
00525/42    ELEM FUNC LIB            CDMPY#          SA  G          S0496 EFL74 FSNAME=CDMPY                                        
            D3T4    137  ELEM_FUNC_LIB.CDMPY#.SA.42         1 LINE     61    1 DISK UM   HARDING             JUNE 27, 1972  12:04.54
00525/43    ELEM FUNC LIB            CDDVD#          SA  G          S0496 EFL74 FSNAME=CDDVD                                        
            D3T4    138  ELEM_FUNC_LIB.CDDVD#.SA.43         1 LINE     55    1 DISK UM   HARDING             JUNE 27, 1972  12:04.56
00525/44    ELEM FUNC LIB            DREAL           SA  G          S0496 EFL74 FSNAME=DREAL                                        
            D3T4    139  ELEM_FUNC_LIB.DREAL.SA.44          1 LINE     58    1 DISK UM   HARDING             JUNE 27, 1972  12:05.00
00525/45    ELEM FUNC LIB            DIMAG           SA  G          S0496 EFL74 FSNAME=DIMAG                                        
            D3T4    140  ELEM_FUNC_LIB.DIMAG.SA.45          1 LINE     58    1 DISK UM   HARDING             JUNE 27, 1972  12:05.02
00525/46    ELEM FUNC LIB            MINMAX          SA  G          S0496 EFL74 FSNAME=MINMAX                                       
            D3T4    141  ELEM_FUNC_LIB.MINMAX.SA.46         1 LINE     65    2 DISK UM   HARDING             JUNE 27, 1972  12:05.05
00525/47    ELEM FUNC LIB            EFL.MACLIB      SM  G          S0496 EFL74 FSNAME=EFL.MACLIB                                   
            D3T4    142  ELEM_FUNC_LIB.EFL.MACLIB.SM.47     1 LINE     65    1 PAGE UM   HARDING             AUG. 01, 1973  22:37.35
0          EFL MACRO LIBRARY REQUIRED FOR ASSEMBLING COMPS 525/1 THROUGH 525/46.
0          Referenced by comments of: 525/1 
00525/48    ELEM FUNC LIB            ERRMON#         SA  G          S0496 EFL74 FSNAME=ERRMON                                       
            D3T4    143  ELEM_FUNC_LIB.ERRMON#.SA.48        1 LINE     70    4 DISK UM   HARDING             APR. 25, 1973  11:37.48
0          EFL ERROR MONITOR.
00525/49    ELEM FUNC LIB            <EFL>           SA  G          S0496 EFL74 FSNAME=ASM.EFL                                      
            D3T4    144  ELEM_FUNC_LIB.<EFL>.SA.49          1 LINE     57    3 PAGE UM   HARDING             AUG. 01, 1973  22:38.02
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.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00525/50    ELEM FUNC LIB            OBJECT          OC  G          SEG2:EFL                                                        
            D3.2T1  423  ELEM_FUNC_LIB.OBJECT.OC.50         1 LINE     80   18 PAGE UM   HARDING             MAR. 21, 1975  01:49:04
0          OBJECT LOADED INTO SHARED VM AT IPL BY SEG 2 LOADER.
           THE FOLLOWING SYMBOLS ARE ADDED TO LCSYMBOL BY THE SEG 2 LOADER:
            
             TRACER, TRACER#, SIOC, SIOC#, SIOCP, AND <EFL>
            
           THE SYMBOL <EFL> DEFINES A SEPARATE SYMBOL TABLE WHICH CONTAINS THE ADDRESSES OF ALL OF
           THE EFL ENTRY POINTS.
           NOTE:  THIS OBJECT IS INSTALLATION DEPENDENT IN THAT IT CONTAINS AN SIOC
                  WHICH USES THE 370 EXTENDED PRECISION FLOATING POINT INSTRUCTIONS.
00526/01    SIOC                                     SA  G  SIOC    W060:ASM.SIOC370                                                
            D3.2T1  424  SIOC..SA.01                        1 LINE     80   40 PAGE UM   HARDING             MAR. 21, 1975  01:49:06
0          AN I/O CONVERSION PROGRAM TO PERFORM FLOATING POINT, INTEGER, LOGICAL, AND HEX CONVERSIONS.  THE CONVERSIONS
           AVAILABLE CORRESPOND TO THOSE USUALLY ASSOCIATED WITH THE D, E, F, G, I, L, AND Z FORTRAN FORMAT SPECIFICATIONS.
           THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, IS NORMALLY LOADED INTO SHARED VM.
           USES AN ASSEMBLY PARAMETER TO CONTROL WHETHER THE CODE SHOULD BE GENERATED FOR
           A STANDARD 360 OR FOR A 370 WITH THE EXTENDED PRECISION FEATURE.
00526/02    SIOC                                     OC  G        # (PART OF COMP 525)                                              
                                                                                    UM   HARDING                                    
0          OBJECT IS PART OF FILE "SEG2:EFL".
00526/03    SIOC                     SIOCP           SA  G  SIOP    W060:ASM.SIOCP                                                  
            D3.2T1  425  SIOC.SIOCP.SA.03                   1 LINE     80    6 PAGE UM   HARDING             MAR. 21, 1975  01:49:10
0          SUBROUTINE TO TRANSLATE FORTRAN FORMAT-LIKE CHARACTER STRINGS INTO THE DATA
           BLOCK REQUIRED FOR CALLLING SIOC.
00526/04    SIOC                     SIOCP           OC  G        # (PART OF COMP 525)                                              
                                                                                    UM   HARDING                                    
00527/01    TRACER                                   SA  G  TRAC    S0496 EFL74 FSNAME=TRACER                                       
            D3T4    149  TRACER..SA.1                       1 LINE     80   50 PAGE UM   HARDING             AUG. 01, 1973  22:38.24
0          THE TRACEBACK PROGRAM PROVIDES 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, IS
           NORMALLY LOADED INTO SHARED VM (SEGMENT 2).
00527/02    TRACER                                   OC  G        # (PART OF COMM 525)                                              
                                                                                    UM   HARDING                                    
0          OBJECT IS PART OF FILE "SEG2:EFL".
00527/03    TRACER                   WRITEUP         WF             S0496 EFL74 FSNAME=DOC.TRACER                                   
            D3T4    150  TRACER.WRITEUP.WF.3                1 LINE    147   10 PAGE UM   HARDING             AUG. 01, 1973  22:38.33
0          THIS IS COMPUTING CENTER MEMO M218 -- "THE TRACEBACK PROGRAM"
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00528/01    ALGOLW                   *ALGOLW         SA     ALG0    WATF:ALGW.MAIN.S(4)                                             
            D3T4    151  ALGOLW.*ALGOLW.SA.1                1 SEQ      80    9 PAGE UNE  STAVELY             AUG. 01, 1973  22:40.39
0          SOURCE FOR MTSCOMP, THE MTS ALGOL W COMPILER INTERFACE.
0          Referenced by comments of: 483/4 
00528/02    ALGOLW                   *ALGOLW         OE             *ALGOLW                                                         
            D3T4    152  ALGOLW.*ALGOLW.OE.2                1 SEQ    1833    1 PAGE UNE  STAVELY             AUG. 01, 1973  22:40.40
0          THE OBJECT FOR THE ALGOL W COMPILER INTERFACE, PLUS P3DSECT FROM PHASE B OF THE COMPILER (SEE 528/11).
0          Referenced by comments of: 528/11 
00528/03    ALGOLW                   *XALGOLW        SA     XALG    WATF:ALGW.XMAIN.S(5)                                            
            D3T4    153  ALGOLW.*XALGOLW.SA.3               1 LINE     73   11 PAGE UNE  STAVELY             AUG. 01, 1973  22:40.45
0          SOURCE FOR MONITOR, PART OF THE MTS ALGOL W COMPILE-AND-GO INTERFACE.
           FROM UNE, BUT MODIFIED AT UM TO CHANGE CONTROL CARDS AND DEFAULT ESTIMATES.
00528/04    ALGOLW                   *XALGOLW        S3     XLOD    WATF:ALGW.XLOAD.S(5)                                            
            D3T4    154  ALGOLW.*XALGOLW.S3.4               1 SEQ      80    5 PAGE UNE  STAVELY             AUG. 01, 1973  22:40.53
0          PL360 SOURCE FOR LOADER, PART OF THE MTS ALGOL W COMPILE-AND-GO INTERFACE.
00528/05    ALGOLW                   *XALGOLW        SA           # (SEE COMP 483)                                                  
                                                                                    UM   STAVELY                                    
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER.
           THE OBJECT OF THE SUBROUTINE IS ALSO PART OF *ALGOLWLIB.
00528/06    ALGOLW                   *XALGOLW        OE             *XALGOLW                                                        
            D3T4    155  ALGOLW.*XALGOLW.OE.6               1 SEQ    3432    2 PAGE UNE  STAVELY             AUG. 01, 1973  22:40.57
0          THE OBJECT FOR THE ALGOL W COMPILE-AND-GO INTERFACE, PLUS P3DSECT FROM PHASE B OF THE COMPILER (SEE 528/11).
0          Referenced by comments of: 528/11 
00528/07    ALGOLW                   PHASE A         S3     PHSA    WATF:ALGW.P12.S                                                 
            D3T4    156  ALGOLW.*AWXCMPA2.S3.7              1 SEQ      80  103 PAGE UNE  STAVELY             AUG. 01, 1973  22:41.22
0          PL360 SOURCE FOR PHASE A OF THE ALGOL W COMPILER.
00528/08    ALGOLW                   PHASE A         UU             WATF:ALGW.P12.U(1000)                                           
                                                                                    UNE  STAVELY                                    
0          PL360 UPDATES FOR PHASE A OF ALGOL W COMPILER.
00528/09    ALGOLW                   PHASE B         S3     PHSB    WATF:ALGW.P3.S                                                  
            D3T4    158  ALGOLW.*AWXCMPB2.S3.9              1 SEQ      80  107 PAGE UNE  STAVELY             AUG. 01, 1973  22:41.54
0          PL360 SOURCE FOR PHASE B OF THE ALGOL W COMPILER.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00528/10    ALGOLW                   PHASE B         UU             WATF:ALGW.P3.U(1000)                                            
                                                                                    UNE  STAVELY                                    
0          PL360 UPDATES FOR PHASE B OF THE ALGOL W COMPILER.
00528/11    ALGOLW                   PHASES A&B      OE             SEG2:ALGW                                                       
            D3T4    157  ALGOLW.*AWXCMPA2.OE.8              1 SEQ    7801   13 PAGE UNE  STAVELY             AUG. 01, 1973  22:41.33
0          THIS FILE CONTAINS THE OBJECT OF PHASES A AND B WHICH ARE NORMALLY LOADED INTO SHARED VM BY PISTLE.
           TWO ENTRY POINTS (AWXCMPA2 AND AWXCMPB2) ARE DEFINED IN LCSYMBOL FOR REFERENCE BY *ALGOLW AND *XALGOLW.
           THE PHASE B OBJECT CONTAINS A CSECT (P3DSECT) WHICH IS INCLUDED IN BOTH *ALGOLW (528/2) AND *XALGOLW
           (528/6) RATHER THAN IN THIS FILE.  THE ENTIRE CONTENTS OF THIS FILE MUST BE INCLUDED IN BOTH *ALGOLW
           AND *XALGOLW IF NOT LOADED INTO SHARED VM.
00528/12    ALGOLW                   *ALGWXLIB       S3     PHSC    WATF:ALGW.XLIB.SP(6)                                            
            D3T4    160  ALGOLW.*AWXLIBR2.S3.11             1 SEQ      80   69 PAGE UNE  STAVELY             AUG. 01, 1973  22:42.20
0          PL360 SOURCE FOR PHASEC, THE ALGOL W LIBRARY WITH DEBUGGING ROUTINES.
00528/13    ALGOLW                   *ALGWXLIB       SA     XLIB    WATF:ALGW.XLIB.SA                                               
            D3T4    161  ALGOLW.*AWXLIBR2.SA.12             1 SEQ      80    1 PAGE UNE  STAVELY             AUG. 01, 1973  22:42.28
0          SOURCE FOR LIBDIR, THE ALGOL W LIBRARY DIRECTORY.
00528/14    ALGOLW                   *ALGWXLIB       OE             *ALGWXLIB                                                       
            D3T4    162  ALGOLW.*AWXLIBR2.OE.13             1 SEQ    4032    8 PAGE UNE  STAVELY             AUG. 01, 1973  22:42.31
00528/15    ALGOLW                   *ALGOLWLIB      SA     LIB0    WATF:ALGW.LIB.SA(5)                                             
            D3T4    163  ALGOLW.*ALGOLWLIB.SA.14            1 SEQ      80   10 PAGE UNE  STAVELY             AUG. 01, 1973  22:42.55
0          SOURCE FOR MTSEXEC, THE MTS ALGOL W OBJECT PROGRAM INTERFACE.
00528/16    ALGOLW                   *ALGOLWLIB      S3     LIB0    WATF:ALGW.LIB.SP(4)                                             
            D3T4    164  ALGOLW.*ALGOLWLIB.S3.15            1 SEQ      80   40 PAGE UNE  STAVELY             AUG. 01, 1973  22:43.18
0          PL360 SOURCE FOR LIBRC, THE ALGOL W LIBRARY WITHOUT DEBUGGING ROUTINES.
00528/17    ALGOLW                   *ALGOLWLIB      OE             *ALGOLWLIB                                                      
            D3T4    165  ALGOLW.*ALGOLWLIB.OE.16            1 SEQ    2048    6 PAGE UNE  STAVELY             AUG. 01, 1973  22:43.26
0          OBJECT FROM 528/15, 528/16, AND 528/5.
00528/18    ALGOLW                   WRITEUP         WF             WATF:ALGW.W                                                     
            D3T4    166  ALGOLW.WRITEUP.WF.17               1 LINE     99   11 PAGE UM   STAVELY             AUG. 01, 1973  22:43.28
0          THIS IS COMPUTING CENTER MEMO M199 -- "ALGOL W IN MTS"
00529/01    FILESTATUS COMMAND                       SA             DWB:FSTATCMD3(1)                                                
            D3.2T1  426  FILESTATUS_COMMAND..SA.01          1 LINE     80   24 PAGE UM   DWB                 MAR. 21, 1975  01:49:11
0          SOURCE FOR FILESTATUS COMMAND WHICH IS NORMALLY LOADED BY THE SEG 2 LOADER 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).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0           
           COPIES *GFINFODSECT (593) AND COPY:CLSVECTOR (535/2).
           REQUIRES SHARED (SEG 2) SUBROUTINES JULGRGDT (522) AND GRGJULDT (518).
00529/02    FILESTATUS COMMAND                       OC             *CLSFILESTATUS                                                  
            D3.2T1  427  FILESTATUS_COMMAND..OC.02          1 LINE     80    9 PAGE UM   DWB                 MAR. 21, 1975  01:49:16
0          >>> PATCHED OBJECT CORRESPONDS TO DISTRIBUTED SOURCE <<<
00530/01   *AMENDS                                   SA     AMEN    DWB:UNEPA.S                                                     
            D3T4    169  AMENDS..SA.1                       1 LINE     80    5 PAGE UM   DWB                 AUG. 01, 1973  22:43.50
0          ORIGINAL UNE PROGRAM, UNCHANGED SINCE AUG 1970 EXCEPT TO REVERSE HANDLING OF UNITS 0 AND 1 TO
           AGREE WITH WRITEUP.
00530/02   *AMENDS                                   OC             *AMENDS                                                         
            D3T4    170  AMENDS..OC.2                       1 LINE     80    1 PAGE UM   DWB                 AUG. 01, 1973  22:43.55
00531/01    COMMAND STATISTICS       CMDSTAT         SA  G  CMDS    DWB:CMDSTAT.370(1)                                              
            D3.2T1  428  COMMAND_STATISTICS.CMDSTAT.SA.01   1 LINE     80   10 PAGE UM   DWB                 MAR. 21, 1975  01:49:18
0          SUBROUTINE IN RESIDENT SYSTEM WHICH MTS CALLS (IF ENABLED BY CMDPIKUP JOB) TO SAVE STATISTICS
           ABOUT ALL MTS COMMANDS ISSUED.  COPIES COPY:CMDAREADSECT (531/12), CMDSTAT.D (531/13), COPY:LLMPSEQU (087),
           COPY:GLOBALS (1026/4), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), AND COPY:MTS.DSECT (346).
           NOTE:  THE DROP AREA IS ALSO USED BY THE 3330 UNIT CHECK ROUTINES (603) AND THE READ 3330 LOG PROGRAM (604)
                  FOR RECORDING 3330 DISK UNIT CHECK MESSAGES FOR LATER RETRIEVAL. 
           THE S-TYPE CALLING SEQUENCE ENTRY IS CALLED BY HASP TO RECORD THE HASP LOG (TYPE 7),
           SYSTEM STATUS ROUTINE (TYPE 8), AND THE OPERATOR JOB CONSOLE LOG (TYPE 11).
           FOR MTS/370, MACHINE CHECK LOGOUT RECORDS ARE PUT IN SEPARATE LARGE DROP AREAS (TYPE 10).
           ASSEMBLE WITH COPY:SETPARM (653).
0          Referenced by comments of: 344/1 
00531/02    COMMAND STATISTICS       CMDSTAT         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00531/03    COMMAND STATISTICS       *CMD            C   G          *CMD                                                            
            D3.1T1  331  COMMAND_STATISTICS.*CMD.C.3        1 LINE     42    1 PAGE UM   DWB                 MAR. 06, 1974  17:51.21
0          THIS COMMAND FILE IS INVOKED BY INIT:INTCMD (097/2) WHENEVER THE SYSTEM IS IPLED.  AFTER SIGNON,
           *CMD RUNS CMDPIKUP (531/4).  AN ERROR FILE (CMDERRORS) MUST EXIST UNDER THE USER ID USED FOR *CMD.
           THE SYSTEM ROUTINELY COLLECTS COMMAND STATISTICS, 7330 UNIT CHECK RECORDS, MACHINE AND CHANNEL CHECK LOGOUTS,
           SSRTN STATISTICS, THE HASP AND OPERATOR CONSOLE LOGS, ETC.
           THESE VARIOUS 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, 97/3 
00531/04    COMMAND STATISTICS       CMDPIKUP        SA  G  CMDP    DWB:CMDPIKUP.370(1)                                             
            D3.2T1  429  COMMAND_STATISTICS.CMDPIKU.SA.04   1 LINE     80   16 PAGE UM   DWB                 MAR. 21, 1975  01:49:20
0          PROGRAM TO PICKUP MTS COMMAND STATISTICS (FROM CMDSTAT) AND SAVE THEM IN FILES; FILENAMES ARE SPECIFIED
           BY THE CMDDIR FILE (531/6).  IN ADDITION, MACHINE AND CHANNEL CHECK RECORDS ARE ALSO WRITTEN ON
           UNIT 10 WHICH IS ATTACHED TO INIT:MCFILE.  WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC STRTJB
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          TO START "MTS *DWB" (531/7) WHICH DUMPS THE FILLED FILE ONTO TAPE ACCORDING INFO IN CMDDIR.
           REQUIRES AN EMPTY FILE NAMED CMDSTATLOCK WHICH IS USED TO MAKE SURE THAT ONLY ONE COPY
           OF THIS PROGRAM IS RUNNING AT A TIME.
           NOTE:  THE FILE "CMDDIR" (531/6) IS REFERENCED DIRECTLY BY THIS PROGRAM.
           COPIES COPY:CMDAREADSECT (531/12), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:MTS.EQU (345),
           CMDSTAT.D (531/13), AND *GDINFODSECT (594).
0          Referenced by comments of: 344/1, 531/3, 603/1 
00531/05    COMMAND STATISTICS       CMDPIKUP        OC  G          SYS:CMDPIKUP.O                                                  
            D3.2T1  430  COMMAND_STATISTICS.CMDPIKU.OC.05   1 LINE     80    4 PAGE UM   DWB                 MAR. 21, 1975  01:49:25
00531/06    COMMAND STATISTICS       CMDDIR          D   G          SYS:CMDDIR                                                      
            D3T4    175  COMMAND_STATISTICS.CMDDIR.D.6      1 LINE     75    1 PAGE UM   DWB                 AUG. 01, 1973  22:44.21
0          THIS FILE SPECIFIES THE NAMES OF THE DATA FILES USED FOR DUMPING THE STATISTICS.
           IT ALSO SPECIFIES THE TAPE PARAMETERS USED FOR DUMPING EACH FILE TO TAPE WHEN FULL.
0          Referenced by comments of: 531/4, 531/8 
00531/07    COMMAND STATISTICS       *DWB            C   G          *DWB                                                            
            D3.1T1  332  COMMAND_STATISTICS.*DWB.C.7        1 LINE     63    1 PAGE UM   DWB                 MAR. 06, 1974  17:51.23
0          COMMAND FILE INVOKED BY CMDPIKUP TO DUMP A FULL FILE ONTO TAPE.
           REQUIRES FILE "CMDERRORS" FOR LOGGING PURPOSES.  IT ALSO WRITES ANY 3330 UNIT CHECK MESSAGES IT FINDS
           ONTO UNIT 4, WHICH IN THIS COMMAND FILE, IS ATTACHED TO INIT:UC3330LOG.
           IT WOULD SEEM THAT DON COULD OF THOUGHT OF SOME NAME MORE ORIGINAL THAN HIS INITIALS.
           DON'S RESPONSE:  "SINCE NO ONE WOULD NAME AN SVC AFTER ME, I WAS FORCED ... "
0          Referenced by comments of: 531/4 
00531/08    COMMAND STATISTICS       FILE-TO-TAPE    SA  G  CMDT    DWB:CMDTAPE.370(1)                                              
            D3.2T1  431  COMMAND_STATISTICS.FILE-TO.SA.08   1 LINE     80   11 PAGE UM   DWB                 MAR. 21, 1975  01:49:27
0          PROGRAM TO COPY COMMAND STATISTICS FILES TO TAPE.  RUN BY *DWB.
           NOTE:  THE FILE "CMDDIR" (531/6) IS REFERENCED DIRECTLY BY THIS PROGRAM.
           COPIES COPY:CMDAREADSECT (531/12), *GDINFODSECT (594), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4),
           AND COPY:MTS.EQU (345).
0          Referenced by comments of: 344/1 
00531/09    COMMAND STATISTICS       FILE-TO-TAPE    OC  G          SYS:CMDTAPE.O                                                   
            D3.2T1  432  COMMAND_STATISTICS.FILE-TO.OC.09   1 LINE     80    3 PAGE UM   DWB                 MAR. 21, 1975  01:49:30
00531/10    COMMAND STATISTICS       PRINT PROGRAM   SA  G  CMDP    DWB:CMDAREAPRINT(1,999)                                         
            D3T4    179  COMMAND_STATISTICS.PRINT_P.SA.10   1 LINE     80    5 PAGE UM   DWB                 AUG. 01, 1973  22:44.44
0          PROGRAM TO PRINT COMMAND STATISTICS FROM TAPES GENERATED BY 531/8.
           COPIES COPY:CMDAREADSECT (531/12) AND CALLS JMSGTDR (437).
0          Referenced by comments of: 531/28 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00531/11    COMMAND STATISTICS       PRINT PROGRAM   OC  G          DWB:CMDAREAPRINT(1000)                                          
            D3T4    180  COMMAND_STATISTICS.PRINT_P.O.11    1 LINE     80    2 PAGE UM   DWB                 AUG. 01, 1973  22:44.50
00531/12    COMMAND STATISTICS       CMDAREADSECT    SA  G  CMDA    COPY:CMDAREADSECT                                               
            D3.2T1  433  COMMAND_STATISTICS.CMDAREA.SA.12   1 LINE     80    2 PAGE UM   DWB                 MAR. 21, 1975  01:49:32
0          COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD.
0          Referenced by comments of: 531/1, 531/4, 531/8, 531/10, 531/22, 531/26, 531/28, 577/53, 603/1, 621/2, 621/4, 621/12,
                 655/2 
00531/13    COMMAND STATISTICS       CMDSTATDATA     SA  G  CMDD    DWB:CMDSTAT.D                                                   
            D3.2T1  434  COMMAND_STATISTICS.CMDSTAT.SA.13   1 LINE     80    1 PAGE UM   DWB                 MAR. 21, 1975  01:49:35
0          COPY SECTION FOR CMDSTAT DATA.
0          Referenced by comments of: 531/1, 531/4 
00531/14    COMMAND STATISTICS       CHECKTIME       SA  G  CHKT    DWB:CMDCHECKTIME(1,999)                                         
            D3T4    183  COMMAND_STATISTICS.CHECKTI.SA.14   1 LINE     80    5 PAGE UM   DWB                 AUG. 01, 1973  22:45.07
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/15    COMMAND STATISTICS       CHECKTIME       OC  G          DWB:CMDCHECKTIME(1000)                                          
            D3T4    184  COMMAND_STATISTICS.CHECKTI.OC.15   1 LINE     80    2 PAGE UM   DWB                 AUG. 01, 1973  22:45.13
00531/16    COMMAND STATISTICS       CMDXTRACT       SF             DWB:CMDXTRACT(1,999)                                            
            D3.1T1  334  COMMAND_STATISTICS.CMDXTRA.SF.16   1 LINE     71    1 PAGE UM   DWB                 MAR. 06, 1974  17:51.28
0          PROGRAM TO EXTRACT COMMAND LINES FOR A GIVEN USERID AND TIME RANGE
           TAKES STATISTICS INPUT ON SCARDS,PRINTS LINES (WITH TIME,DATE,ID
           PROJ NO,AND TASK NUMBER) ON 6. 5 (INPUT) AND SPRINT (OUTPUT)
           SHOULD BE ATTACHED TO TERMINAL. IT WILL ASK QUESTIONS FOR ITS
           PARAMETERS.
00531/17    COMMAND STATISTICS       CMDXTRACT       OC             DWB:CMDXTRACT(1000)                                             
            D3.1T1  335  COMMAND_STATISTICS.CMDXTRA.OC.17   1 LINE    240    2 PAGE UM   DWB                 MAR. 06, 1974  17:51.31
00531/18    COMMAND STATISTICS       CMDXTRACT3      SF             DWB:CMDXTRACT3(1,999)                                           
            D3.1T1  336  COMMAND_STATISTICS.CMDXTRA.SF.18   1 LINE     65    1 PAGE UM   DWB                 MAR. 06, 1974  17:51.34
0          PROGRAM TO EXTRACT HASP LOG ITEMS.  ASKS FOR A "THING" (USUALLY A S8 NUMBER)
           TO SEARCH FOR.  RUN IT SAME AS 531/16.
00531/19    COMMAND STATISTICS       CMDXTRACT3      OC             DWB:CMDXTRACT3(1000)                                            
            D3.1T1  337  COMMAND_STATISTICS.CMDXTRA.OC.19   1 LINE    253    1 PAGE UM   DWB                 MAR. 06, 1974  17:51.36
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00531/20    COMMAND STATISTICS       PROCESSING      SF             DWB:CMDPROC                                                     
            D3.1T1  338  COMMAND_STATISTICS.PROCESS.SF.20   1 LINE     75    8 PAGE UM   DWB                 MAR. 06, 1974  17:51.39
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/21    COMMAND STATISTICS       PROCESSING      OC             DWB:CMDPROCO                                                    
            D3.1T1  339  COMMAND_STATISTICS.PROCESS.OC.21   1 LINE    248   11 PAGE UM   DWB                 MAR. 06, 1974  17:51.44
00531/22    COMMAND STATISTICS       SCANCMD         SA  G  SCNC    MTS:SCANCMD(1,999)                                              
            D3.2T1  435  COMMAND_STATISTICS.SCANCMD.SA.22   1 LINE     80    7 PAGE UM   MTA                 MAR. 21, 1975  01:49:37
0          PROGRAM TO BUILD A DIRECTORY OF CMDSTAT TAPES.
           CALLS READBFR ROUTINE (531/24).  COPIES COPY:CMDAREADSECT (531/12).
0          Referenced by comments of: 531/24, 531/26 
00531/23    COMMAND STATISTICS       SCANCMD         OC  G          MTS:SCANCMD(1000)                                               
            D3.2T1  436  COMMAND_STATISTICS.SCANCMD.OC.23   1 LINE     80    4 PAGE UM   MTA                 MAR. 21, 1975  01:49:40
0          HAS A "$CONTINUE WITH MTA:READBFR(1000) RETURN" LINE.
00531/24    COMMAND STATISTICS       READBFR         SA  G  RBFR    MTA:READBFR(1,999)                                              
            D3.2T1  437  COMMAND_STATISTICS.READBFR.SA.24   1 LINE     80    3 PAGE UM   MTA                 MAR. 21, 1975  01:49:43
0          SUBROUTINE TO PROVIDE "LOCATE MODE" INPUT WHEN INPUT RECORD LENGTH
           IS NOT KNOWN.  USES GDINFO AND @NOTIFY TO ALLOCATE INPUT BUFFER.
           CALLED BY SCANCMD (531/22) AND SELECTCMD (531/26).
           COPIES *GDINFODSECT (594).
0          Referenced by comments of: 531/22, 531/26, 621/4 
00531/25    COMMAND STATISTICS       READBFR         OC  G          MTA:READBFR(1000)                                               
            D3.2T1  438  COMMAND_STATISTICS.READBFR.OC.25   1 LINE     80    1 PAGE UM   MTA                 MAR. 21, 1975  01:49:45
00531/26    COMMAND STATISTICS       SELECTCMD       SA  G  SELC    MTS:SELECTCMD(1,999)                                            
            D3.2T1  439  COMMAND_STATISTICS.SELECTC.SA.26   1 LINE     80    8 PAGE UM   MTA                 MAR. 21, 1975  01:49:48
0          PROGRAM TO RETRIEVE DATA FROM CMDSTAT TAPES USING DIRECTORY BUILT BY SCANCMD (531/22).
           COPIES COPY:CMDAREADSECT (531/12).
           CALLS READBFR ROUTINE (531/24).
0          Referenced by comments of: 531/24 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00531/27    COMMAND STATISTICS       SELECTCMD       OC  G          MTS:SELECTCMD(1000)                                             
            D3.2T1  440  COMMAND_STATISTICS.SELECTC.OC.27   1 LINE     80    5 PAGE UM   MTA                 MAR. 21, 1975  01:49:51
0          HAS A "$CONTINUE WITH MTA:READBFR(1000) RETURN" LINE.
00531/28    COMMAND STATISTICS       CMDUTIL         SA  G  CMDU    DWB:CMDUTIL(1,999)                                              
            D3.2T1  441  COMMAND_STATISTICS.CMDUTIL.SA.28   1 LINE     80   10 PAGE UM   DWB                 MAR. 21, 1975  01:49:53
0          PROGRAM TO PRINT OR COPY (OR BOTH) COMMAND STATISTICS RECORDS BASED ON RECORD TYPES.
           THIS PROGRAM REPLACES AND EXTENDS CMDAREAPRINT (531/10).  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.
           COPIES COPY:CMDAREADSECT (531/12).
00531/29    COMMAND STATISTICS       CMDUTIL         OC  G          DWB:CMDUTIL(1000)                                               
            D3.2T1  442  COMMAND_STATISTICS.CMDUTIL.OC.29   1 LINE     84    6 PAGE UM   DWB                 MAR. 21, 1975  01:49:56
00532/01   *PLOTSEE                                  SA  G          S0933 IG 'IG.DIST' FSNAME=IG.PLOTSEE.S                          
            D3.2T1  443  PLOTSEE..SA.01                     1 LINE     78    7 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:03
0          PLOT PREVIEWING PROGRAM.
           USER OF ANY IG-SUPPORTED DISPLAY CONNECTED TO MTS VIA UM DATA CONCENTRATOR CAN
           VIEW PDS PLOT FILES PRODUCED VIA *PLOTSYS.  HAS "WINDOWING" FACILITY.
           SOURCE START ON LINE 7.
00532/02   *PLOTSEE                                  OE  G          S0933 IG 'IG.DIST' FSNAME=IG.PLOTSEE.O                          
            D3.2T1  444  PLOTSEE..OE.02                     1 LINE    255    4 PAGE UM   GOODRICH            FEB. 21, 1975  16:15:09
0          CONTAINS "$CONTINUE WITH *IG+*PLOTSYS" LINE.
00533/01   *FRISK                                    SA             S0664 UBC22 'UBC -> UM #22' FSNAME=FRISK..SA                 9  
            D3T4    187  FRISK..SA.1                        1 LINE     72   11 DISK UBC  HALL                FEB. 09, 1973  14:25:43
0          PROGRAM TO PRODUCE CROSS-REFERENCES OF SUBROUTINE, VARIABLE, LABEL, AND I/O UNIT REFERENCES IN FORTRAN PROGRAMS.
           OBJECT NOT DISTRIBUTED.
00533/02   *FRISK                    WRITEUP         WF             S0723 'D3T4' FSNAME=FRISK.WRITEUP.WF.2                       188
            D3T4    188  FRISK.WRITEUP.WF.2                 1 LINE    110    2 DISK UBC  HALL                MAR. 23, 1973  18:19.40
00534/01    TMTS                     JOB LIST ENTRY  SA  G        # (PART OF COMP 003)                                              
                                                                                    UM   MTA                                        
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 SEGMENT 2 AND PLUGS THE MTS ENTRY POINT INTO THIS JOB LIST ENTRY.
           THIS PROVIDES A WAY OF CHECKING OUT NEW VERSIONS OF MTS WITHOUT USING THE VIRTUAL MACHINE.
0          Referenced by comments of: 534/3 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00534/02    TMTS                     JOB LIST ENTRY  OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00534/03    TMTS                     FAKE JOB-PGM    SA  G  TMFK    MTS:TMTSFAKE(1,999)                                             
            D3T4    189  TMTS.FAKE_JOB-PGM.SA.3             1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  22:52.38
0          DUMMY JOB PROGRAM POINTED TO BY TMTS JOB LIST ENTRY (534/1).
0          Referenced by comments of: 534/1 
00534/04    TMTS                     FAKE JOB-PGM    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00534/05    TMTS                     LOADMTS         SA  G  LMTS    MTS:LOADMTS(1,999)                                              
            D3.2T1  445  TMTS.LOADMTS.SA.05                 1 LINE     80   19 PAGE UM   MTA                 MAR. 21, 1975  01:50:14
0          PROGRAM TO LOAD A TEST VERSION OF MTS AND FRIENDS INTO SEGMENT 2 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 (SEGMENT 5) AND
                                         DON'T CHANGE THE ENTRY POINT IN THE TMTS JOB LIST,
                                         PAR=NOTEST MEANS LOAD THE TEST SYSTEM INTO SHARED VM (SEGMENT 2) AND CHANGE THE TMTS
                                         JOB LIST ENTRY POINT.
            
           THE PROGRAM FINDS THE FIRST UNREFERENCED PAGE IN SEGMENT 2 AND ASKS IF IT IS OK TO START LOADING THERE.
           REPLY "OK" OR WITH A NEW ADDRESS IN THE RANGE 200000 TO 2FF000.
            
           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 (KWIC, GETSPACE/FREESPAC, GUINFO/CUINFO, PLIMIT, LLXU, CHECKSUM, TIMER, CMDS,
             USUB, FSUB, DSRS, DSRI), COST, CFDUB, LCSYMBOL, SYSDEFS, GETRATES, AND RATEVEC, AND RATENBR.
            
           OTHER COMPONENTS MAY ALSO BE INCLUDED, BUT NEITHER VOLGET (482/5) NOR TABLRTN (482/30) SHOULD BE INCLUDED.
0          Referenced by comments of: 534/1 
00534/06    TMTS                     LOADMTS         OC  G          MTS:LOADMTS(1000)                                               
            D3.2T1  446  TMTS.LOADMTS.OC.06                 1 LINE     80   11 PAGE UM   MTA                 MAR. 21, 1975  01:50:17
00534/07    TMTS                     TMTSLIB         OL  O          MTS:TMTSLIB                                                     
            D3.1T1  342  TMTS.TMTSLIB.OL.7                  1 SEQ   13704   50 PAGE UM   MTA                 MAR. 06, 1974  17:51.53
0          THIS IS A SPECIAL (AND SLIGHTLY OBSOLETE) VERSION OF *LIBRARY WHICH INCLUDES ADDITIONAL SUBROUTINES
           WHICH NORMALLY ARE IN SHARED VM AND NOT PART OF *LIBRARY.  THE TEST SYSTEM SHOULD REFERENCE
           THIS FILE AND NOT *LIBRARY.  THE FOLLOWING COMMAND WILL CAUSE THIS TO BE DONE:
            
              $SET LIBSRCH=MTS:TMTSLIB *LIBRARY=OFF
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00535/01    CLS INTERFACE            PLAN COPY SECT  SA  G  CLSP    COPY:CLSPLAN                                                    
            D3.2T1  447  CLS_INTERFACE.PLAN_COPY_SE.SA.01   1 LINE     80    3 PAGE UM   DWB                 MAR. 21, 1975  01:50:18
0          COPY SECTION DEFINING COMMAND LANGUAGE SUBSYSTEM (CLS) CALLING CONVENTIONS.
0          Referenced by comments of: 42/1, 324/1, 354/1, 413/6, 535/4, 539/1, 553/1, 585/1, 585/4, 600/1, 600/4, 600/6,
                 600/8, 600/10, 635/1, 636/1, 637/1, 638/1, 639/1, 648/1, 651/10 
00535/02    CLS INTERFACE            T/V DSECT       SA  G  CLSV    COPY:CLSVECTOR                                                  
            D3.2T1  448  CLS_INTERFACE.T/V_DSECT.SA.02      1 LINE     80    3 PAGE UM   DWB                 MAR. 21, 1975  01:50:21
0          DSECT COPY SECTION FOR TRANSFER VECTOR PASSED BY MTS TO COMMAND LANGUAGE SUBSYSTEMS.
0          Referenced by comments of: 101/1, 413/6, 447/1, 509/1, 529/1, 535/4, 553/1, 585/1, 600/1, 600/4, 600/6, 600/8,
                 600/10, 631/1, 648/1 
00535/03    CLS INTERFACE            T/V STD ADCONS  SA  G  STDV    COPY:STANDARDTV                                                 
            D3.2T1  449  CLS_INTERFACE.T/V_STD_ADCO.SA.03   1 LINE     80    3 PAGE UM   DWB                 MAR. 21, 1975  01:50:23
0          COPY SECTION WHICH WILL DEFINE A CLS T/V FOR SUBROUTINES OR EXECUTION-LEVEL PROGRAMS TO USE, I.E.
           V(GETSPACE) FOR GETSPACE, V(SCARDS) FOR SOURCE, ETC.
0          Referenced by comments of: 324/5, 509/1, 648/4 
00535/04    CLS INTERFACE            CLS DRIVER PGM  SA  O  DRIV    W044:MTSSOU                                                     
            D3.1T1  345  CLS_INTERFACE.CLS_DRIVER_P.SA.4    1 LINE     80   41 PAGE UM   SALISBURY           MAR. 06, 1974  17:52.04
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.
           COPIES COPY:CLSPLAN (535/1) AND COPY:CLSVECTOR (535/2).
00535/05    CLS INTERFACE            CLS DRIVER PGM  OC  O          W044:MTS                                                        
            D3.1T1  346  CLS_INTERFACE.CLS_DRIVER_P.OC.5    1 LINE     80    8 PAGE UM   SALISBURY           MAR. 06, 1974  17:52.14
00536      *BRAILLE                                               # OBSOLETE                                                        
            D3T4    199  BRAILLE..SA.1                      1 LINE     73   21 PAGE UM                       JULY 30, 1973  03:34.19
00537       360/20 TAB SHOP PGM                                   # (NOT DISTRIBUTED)                                               
                                                                                    UM   EMERY                                      
0          UTILITY PROGRAM RUN ON 360/20 AT UM WHICH PERFORMS CARD LISTINGS, INTERPRETING, REPRODUCING, ETC.
           NOT DISTRIBUTED, BUT AVAILABLE UPON REQUEST.
00538/01    COBOL                    *COBOLU         SA  G  COBU    W071:COBU.S                                                     
            D3.1T1  347  COBOL.*COBOLU.SA.1                 1 LINE     80    3 PAGE UM   YOUNG               MAR. 06, 1974  17:52.16
0          THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM.
           COPIES FAKEOS.GBLS (545/10).  ASSEMBLE WITH *SYSMAC.
00538/02    COBOL                    *COBOLU         OC  G          *COBOLU                                                         
            D3.1T1  348  COBOL.*COBOLU.OC.2                 1 LINE     80    1 PAGE UM   YOUNG               MAR. 06, 1974  17:52.18
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00538/03    COBOL                    CREBLDL.S       SA             W071:CREBLDL.S                                                  
            D3.1T1  349  COBOL.CREBLDL.S.SA.3               1 LINE     68    3 PAGE UM   YOUNG               MAR. 06, 1974  17:52.20
0          PROGRAM TO CREATE A DIRECTORY THAT FAKEOS WILL USE WHEN DOING A BLDL ON LINKLIB.
           ASSEMBLE WITH *SYSMAC.
00538/04    COBOL                    CREBLDL.O       OC             W071:CREBLDL.O                                                  
            D3.1T1  350  COBOL.CREBLDL.O.OC.4               1 LINE     80    3 PAGE UM   YOUNG               MAR. 06, 1974  17:52.22
0          RUNNING THIS PROGRAM WITH SCARDS ASSIGNED TO BLDLNAMES (538/5) WILL PRODUCE 
           COBOL.BLDL (538/6) ON UNIT 0.
0          Referenced by comments of: 458/80, 458/81, 538/5 
00538/05    COBOL                    BLDLNAMES       D              W071:BLDLNAMES                                                  
            D3.1T1  351  COBOL.BLDLNAMES.D.5                1 LINE     44    1 PAGE UM   YOUNG               MAR. 06, 1974  17:52.24
0          SCARDS INPUT TO CREBLDL.O (538/4) TO BUILD COBOL.BLDL (538/6).
0          Referenced by comments of: 538/4 
00538/06    COBOL                    COBOL.BLDL      D              W071:COBOL.BLDL                                                 
            D3.1T1  352  COBOL.COBOL.BLDL.D.6               1 SEQ     238    2 PAGE UM   YOUNG               MAR. 06, 1974  17:52.27
0          Referenced by comments of: 538/4, 538/5 
00538/07    COBOL                    *IKFCBL00       OE  O          W071:IKFCBL00                                                   
            D3.1T1  353  COBOL.*IKFCBL00.OE.7               1 SEQ    1024    4 PAGE UM   YOUNG               MAR. 06, 1974  17:52.29
0          COMPONENTS 538/7 THROUGH 538/18 ARE THE UNMODIFIED OS/360 OBJECT FOR THE ANSI COBOL
           COMPILER (RELEASE 21.6, VERSION 2).
00538/08    COBOL                    *IKFCBL01       OE  O          W071:IKFCBL01                                                   
            D3.1T1  354  COBOL.*IKFCBL01.OE.8               1 SEQ    6144    5 PAGE UM   YOUNG               MAR. 06, 1974  17:52.31
0          OBJECT HAS REP CARD TO CHANGE DEFAULT PAR FIELD.
00538/09    COBOL                    *IKFCBL10       OE  O          W071:IKFCBL10                                                   
            D3.1T1  355  COBOL.*IKFCBL10.OE.9               1 SEQ    1024   12 PAGE UM   YOUNG               MAR. 06, 1974  17:52.33
00538/10    COBOL                    *IKFCBL1B       OE  O          W071:IKFCBL1B                                                   
            D3.1T1  356  COBOL.*IKFCBL1B.OE.10              1 SEQ    1024    7 PAGE UM   YOUNG               MAR. 06, 1974  17:52.35
00538/11    COBOL                    *IKFCBL20       OE  O          W071:IKFCBL20                                                   
            D3.1T1  357  COBOL.*IKFCBL20.OE.11              1 SEQ    1024   13 PAGE UM   YOUNG               MAR. 06, 1974  17:52.38
00538/12    COBOL                    *IKFCBL30       OE  O          W071:IKFCBL30                                                   
            D3.1T1  358  COBOL.*IKFCBL30.OE.12              1 SEQ    1024    4 PAGE UM   YOUNG               MAR. 06, 1974  17:52.40
00538/13    COBOL                    *IKFCBL40       OE  O          W071:IKFCBL40                                                   
            D3.1T1  359  COBOL.*IKFCBL40.OE.13              1 SEQ    1024   11 PAGE UM   YOUNG               MAR. 06, 1974  17:52.42
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00538/14    COBOL                    *IKFCBL50       OE  O          W071:IKFCBL50                                                   
            D3.1T1  360  COBOL.*IKFCBL50.OE.14              1 SEQ    1024    9 PAGE UM   YOUNG               MAR. 06, 1974  17:52.44
00538/15    COBOL                    *IKFCBL51       OE  O          W071:IKFCBL51                                                   
            D3.1T1  361  COBOL.*IKFCBL51.OE.15              1 SEQ    1024   10 PAGE UM   YOUNG               MAR. 06, 1974  17:52.46
00538/16    COBOL                    *IKFCBL60       OE  O          W071:IKFCBL60                                                   
            D3.1T1  362  COBOL.*IKFCBL60.OE.16              1 SEQ    1024    8 PAGE UM   YOUNG               MAR. 06, 1974  17:52.49
00538/17    COBOL                    *IKFCBL6A       OE  O          W071:IKFCBL6A                                                   
            D3.1T1  363  COBOL.*IKFCBL6A.OE.17              1 SEQ    1024    1 PAGE UM   YOUNG               MAR. 06, 1974  17:52.51
00538/18    COBOL                    *IKFCBL70       OE  O          W071:IKFCBL70                                                   
            D3.1T1  364  COBOL.*IKFCBL70.OE.18              1 SEQ    1024   13 PAGE UM   YOUNG               MAR. 06, 1974  17:52.53
00538/19    COBOL                    *COBLIB         OL  O          *COBLIB                                                         
            D3.1T1  365  COBOL.*COBLIB.OL.19                1 SEQ    1024    7 PAGE UM   YOUNG               MAR. 06, 1974  17:52.55
0          OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY.
00538/20    COBOL                    USER'S GUIDE    WF             S0723 'D3T4' FSNAME=COBOL.USER'S_GUIDE.WF.16                 216
            D3T4    216  COBOL.USER'S_GUIDE.WF.16           1 LINE    112    5 DISK UM   YOUNG               MAR. 15, 1973  18:36.23
0          THIS IS COMPUTING CENTER MEMO M209 -- "MTS COBOL USER'S GUIDE"
00539/01    TIMNTRP                  D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=TIMT                  9  
            D3T4    217  TIMNTRP..SA.1                      1 SEQ      80   18 PAGE UM   HAMILTON            AUG. 01, 1973  22:56.40
0          MTS TIMER INTERRUPT ROUTINES (USER CALLABLE):  SETIME, RSTIME, GETIME, AND TIMNTRP.
           ASSEMBLE WITH *SYSMAC AND COPY:MTS.MACROS (344); USE SIZE=16.  COPIES COPY:MTS.DSECT (346), COPY:MTS.EQU (345),
           COPY:MTS.CONTAB (343), COPY:CLSPLAN (535/1), COPY:LLMPSEQU (087), AND COPY:MTS.TV (640).
0          Referenced by comments of: 344/1, 539/2 
00539/02    TIMNTRP                  UPDATE          UU  G          MTS:TIMTUPD                                                     
            D3.2T1  450  TIMNTRP.UPDATE.UU.02               1 LINE     72    2 PAGE UM   HAMILTON            MAR. 21, 1975  01:50:26
0          UPDATE TO D3 MASTER (539/1) TO PRODUCE CURRENT SOURCE.
           UPDATE DECK USES %POSN *IN* TIMT.
           COPIES COPY:GLOBALS (1026/4) IN ADDITION TO ITEMS LISTED FOR 539/1.
           ASSEMBLE USING COPY:SETPARM (653).
00539/03    TIMNTRP                  370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HAMILTON                                   
00539/04    TIMNTRP                  360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   HAMILTON                                   
00540/01    PDPBUG                                   SA  G  PDPB    W047:PDPBUG(1000)                                               
            D3.2T1  451  PDPBUG..SA.01                      1 LINE     80   11 PAGE UM   HAMILTON            MAR. 21, 1975  01:50:28
0          PROGRAM TO PRINT STATISTICS ABOUT SYSTEM PAGING.  COMMENTS IN THE SOURCE CODE
           DESCRIBE THE OUTPUT.  MUST BE RE-ASSEMBLED IF EITHER THE SUPERVISOR OR THE PDP
           IS RE-ASSEMBLED.  THE ITEMS TO BE CHANGED ARE DOCUMENTED IN SOURCE COMMENTS.
1                                                                                               FRI AUG 02/96   19:04:25   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          COPIES COPY:LLMPSEQU(100) (087) AND COPY:GLOBALS (1026/4).
00540/02    PDPBUG                   370 OBJECT      OC  G          W047:PDPBUG(1,999)                                              
            D3.2T1  452  PDPBUG.370_OBJECT.OC.02            1 LINE     80    5 PAGE UM   HAMILTON            MAR. 21, 1975  01:50:31
0          >>>>>>>>> CONTAINS REP CARDS <<<<<<<<<<
00540/03    PDPBUG                   360 OBJECT      OC  G          W047:PDPBUG.360                                                 
                                                                                    UM   HAMILTON                                   
00541/01   *DECODE                                   SA  G  DECD    S0723 'D3T4' FSNAME=DECODE..SA.1                             220
            D3T4    220  DECODE..SA.1                       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/02   *DECODE                                   OC  G          *DECODE                                                         
            D3T4    221  DECODE..O.2                        1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  22:56.54
00542/01   *DF                                       SA             338:DF.S                                                        
            D3T4    222  DF..SA.1                           1 LINE     72   93 PAGE UM   GOODRICH            AUG. 01, 1973  22:56.58
0          DISPLAY FILE SUBROUTINE LIBRARY.
           FORTRAN CALLABLE SUBROUTINES TO ALLOW USERS TO CONSTRUCT, DISPLAY, AND INTERACT WITH
           DISPLAY FILES FOR THE DEC 338 AND DEC 339 DISPLAY CONTROLLERS ATTACHED TO MTS VIA
           UM DATA CONCENTRATOR.
            
           TO IMPLEMENT DFCONV, A SPECIAL VERSION OF FIOCS# IS NEEDED (SAME AS SYSTEM VERSION, PLUS A CHECK IN THE DSRN OPEN
           SECTION FOR DSRN #9).  THE DSRN #9 MUST HAVE LABWRITE FOR ITS OUTPUT ROUTINE.  THIS INVOLVES THE ADDITION OF
           ABOUT 6 EXTRA INSTRUCTIONS.  ALSO, SETDSRN SHOULD BE REWRITTEN TO PREVENT TAMPERING WITH DSRN #9.
            
           FOR LINK EDITING PURPOSES, THE MODULES DF201, DFXYV, DFINI, AND PSECT1 (WHICH SHOULD BE LAST) SHOULD BE
           COMBINED, AS MUST DFCONV AND FIOCS#; OTHERWISE THINGS WON'T LOAD PROPERLY.
            
           THE LIBRARY SHOULD THEN BE BUILT AS FOLLOWS:
              1.   COPY THE FIRST COMBINED MODULES (DF201 ET AL) INTO A TEMPORARY SEQUENTIAL FILE.
              2.   RUN *GENLIB ON THE REST OF THE MODULES, SPECIFYING THE TEMP FILE FROM STEP 1 AS SPUNCH AND PAR=DIR.
                   *GENLIB WILL WARN THAT SPUNCH IS NOT EMPTY, BUT THAT'S OK.  NOTE:  ALL MODULES SHOULD BE SQUASHED,
                   BUT NO OTHERS SHOULD BE COMBINED.
            
           COPIES 338:PSECT (542/2).
00542/02   *DF                       PSECT           SA             338:PSECT                                                       
            D3T4    223  DF.PSECT.SA.2                      1 LINE     72    3 PAGE UM   GOODRICH            AUG. 01, 1973  22:57.15
0          Referenced by comments of: 542/1 
00542/03   *DF                                       OL             *DF                                                             
            D3T4    224  DF..OL.3                           1 SEQ    3536    6 PAGE UM   GOODRICH            AUG. 01, 1973  22:57.19
00543/01   *ENCODE                                   SA  G  ENCD    S0723 'D3T4' FSNAME=ENCODE..SA.1                             225
            D3T4    225  ENCODE..SA.1                       1 LINE     80    9 PAGE UM   MTA                 AUG. 01, 1973  22:57.23
0          PROGRAM TO PROVIDE HASP-TYPE COMPRESSION/BLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00543/02   *ENCODE                                   OC  G          *ENCODE                                                         
            D3T4    226  ENCODE..O.2                        1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  22:57.27
00544      *ENDJUNK                                  OC  G          *ENDJUNK                                                        
            D3T4    227  ENDJUNK..OC.                       1 LINE     24    1 PAGE UM   MTA                 AUG. 01, 1973  22:57.32
0          CONTAINS THE TWO LOADER CARDS:
            LCS            LCSYMBOL
            LDT
00545/01   *FAKEOS                   INSTALLATION    P              S0723 'D3T4' FSNAME=FAKEOS.INSTALLATION.P.1                  228
            D3T4    228  FAKEOS.INSTALLATION.P.1            1 LINE     73    7 PAGE UM   YOUNG               AUG. 01, 1973  02:25.53
0          WRITEUP DESCRIBING THE ORGANIZATION AND INSTALLATION OF *FAKEOS.
           COPY IT TO A TN PRINTER.
00545/02   *FAKEOS                   WRITEUP         P              S0723 'D3T4' FSNAME=FAKEOS.WRITEUP.P.2                       229
            D3T4    229  FAKEOS.WRITEUP.P.2                 1 LINE     77    6 PAGE UM   YOUNG               AUG. 01, 1973  02:25.59
0          WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS.  COPY TO A TN PRINTER.
00545/03   *FAKEOS                   PREFIX          SA             W071:FAKEOS.P.S                                                 
            D3.1T1  367  FAKEOS.PREFIX.SA.3                 1 LINE     73   13 PAGE UM   YOUNG               MAR. 06, 1974  17:53.00
0          SOURCE FOR FAKEOS PREFIX.  COPIES FAKEOS.GBLS (545/10), CVT (545/11), TCB (545/12),
           COMDSECT (545/13), AND COMMON (545/14).  ASSEMBLE WITH *SYSMAC.
00545/04   *FAKEOS                   PREFIX          OC             W071:FAKEOS.P.O                                                 
            D3.1T1  368  FAKEOS.PREFIX.OC.4                 1 LINE     80    5 PAGE UM   YOUNG               MAR. 06, 1974  17:53.04
0          Referenced by comments of: 545/9 
00545/05   *FAKEOS                   MAIN            SA             W071:FAKEOS.V2.S                                                
            D3.1T1  369  FAKEOS.FAKEOS.SA.5                 1 LINE     77   59 PAGE UM   YOUNG               MAR. 06, 1974  17:53.06
0          SOURCE FOR THE MAIN FAKEOS PROGRAM.  COPIES FAKEOS.GBLS (545/10), CVT (545/11), 
           TCB (545/12), COMDSECT (545/13), COMMON (545/14), DSDSECT (545/15), AND EXCPXT (545/22).
           ASSEMBLE WITH *SYSMAC AND *OSMAC (FOR DCBD MACRO).
0          Referenced by comments of: 545/22 
00545/06   *FAKEOS                   MAIN            OC             W071:FAKEOS.V2.O                                                
            D3.1T1  370  FAKEOS.FAKEOS.OC.6                 1 LINE     80    8 PAGE UM   YOUNG               MAR. 06, 1974  17:53.54
0          Referenced by comments of: 545/9 
00545/07   *FAKEOS                   JFCB BUILDER    SA             W071:FAKEJFCB.S                                                 
            D3.1T1  371  FAKEOS.JFCB_BUILDER.SA.7           1 LINE     71    1 PAGE UM   YOUNG               MAR. 06, 1974  17:53.55
0          SOURCE FOR JFCB BUILDER.  COPIES JFCBD (545/25).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00545/08   *FAKEOS                   JFCB BUILDER    OC             W071:FAKEJFCB.O                                                 
            D3.1T1  372  FAKEOS.JFCB_BUILDER.OC.8           1 LINE     80    2 PAGE UM   YOUNG               MAR. 06, 1974  17:53.57
0          Referenced by comments of: 545/9 
00545/09   *FAKEOS                   *FAKEOS         OE             *FAKEOS                                                         
            D3.1T1  373  FAKEOS.*FAKEOS.OE.9                1 SEQ   18416    7 PAGE UM   YOUNG               MAR. 06, 1974  17:54.00
0          LINKEDIT OF PREFIX (545/4) + FAKEOS (545/6) + JFCB BUILDER (545/8).
00545/10   *FAKEOS                   FAKEOS.GBLS     SA             W071:FAKEOS.GBLS                                                
            D3.1T1  374  FAKEOS.FAKEOS.GBLS.SA.10           1 LINE     66    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.02
0          GLOBAL PARAMETERS COPY SECTION.  EACH INSTALLATION SHOULD RE-DEFINE &OWNER,
           &VOSID, &QSAMID, &COBUID, AND &MPSID.
0          Referenced by comments of: 538/1, 545/3, 545/5 
00545/11   *FAKEOS                   CVT             SA             W071:CVT                                                        
            D3.1T1  375  FAKEOS.CVT.SA.11                   1 LINE     57    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.04
0          CVT COPY SECTION.
0          Referenced by comments of: 545/3, 545/5 
00545/12   *FAKEOS                   TCB             SA             W071:TCB                                                        
            D3.1T1  376  FAKEOS.TCB.SA.12                   1 LINE     62    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.06
0          TCB COPY SECTION.
0          Referenced by comments of: 545/3, 545/5 
00545/13   *FAKEOS                   COMDSECT        SA             W071:COMDSECT                                                   
            D3.1T1  377  FAKEOS.COMDSECT.SA.13              1 LINE     71    3 PAGE UM   YOUNG               MAR. 06, 1974  17:54.08
0          COPY SECTION FOR COMMON AREA FOR PREFIX AND FAKEOS.
0          Referenced by comments of: 545/3, 545/5 
00545/14   *FAKEOS                   COMMON          SA             W071:COMMON                                                     
            D3.1T1  378  FAKEOS.COMMON.SA.14                1 LINE     69    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.10
0          EQUS COPY SECTION.
0          Referenced by comments of: 545/3, 545/5 
00545/15   *FAKEOS                   DSDSECT         SA             W071:DSDSECT                                                    
            D3.1T1  379  FAKEOS.DSDSECT.SA.15               1 LINE     72    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.13
0          COPY SECTION FOR DSECT TO ASSOCIATE DCB AND FDUB.
0          Referenced by comments of: 545/5, 545/20 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00545/16   *FAKEOS                   FAKEOS.MSG      M              W071:FAKEOS.MSG                                                 
            D3.2T1  453  FAKEOS.FAKEOS.MSG.M.16             1 LINE     62    1 PAGE UM   YOUNG               MAR. 21, 1975  01:50:33
0          MESSAGE FILE.
00545/17   *FAKEOS                   VOSDDEF.S       SA             W071:VOSDDEF.S                                                  
            D3.2T1  454  FAKEOS.VOSDDEF.S.SA.17             1 LINE     80    9 PAGE UM   YOUNG               MAR. 21, 1975  01:50:35
0          SOURCE FOR DDNAME SCANNER.  COPIES SAMEQU (545/19).  ASSEMBLE WITH *SYSMAC AND *OSMAC.
0          Referenced by comments of: 545/19 
00545/18   *FAKEOS                   VOSDDEF         OE             W071:VOSDDEF                                                    
            D3.2T1  455  FAKEOS.VOSDDEF.OE.18               1 SEQ    2586    1 PAGE UM   YOUNG               MAR. 21, 1975  01:50:37
00545/19   *FAKEOS                   SAMEQU          SA             W071:SAMEQU                                                     
            D3.2T1  456  FAKEOS.SAMEQU.SA.19                1 LINE     80    4 PAGE UM   YOUNG               MAR. 21, 1975  01:50:40
0          COPY SECTION FOR VOSDDEF.S (545/17).
0          Referenced by comments of: 545/17 
00545/20   *FAKEOS                   FAKEEXCP.S      SA             W071:FAKEEXCP.S                                                 
            D3.2T1  457  FAKEOS.FAKEEXCP.S.SA.20            1 LINE     76    5 PAGE UM   YOUNG               MAR. 21, 1975  01:50:42
0          EXCP FAKER.  COPIES DSDSECT (545/15) AND EXCPXT (545/22).
           ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 545/22, 545/47 
00545/21   *FAKEOS                   FAKEOS.EXCP     OE             W071:FAKEOS.EXCP                                                
            D3.2T1  458  FAKEOS.FAKEOS.EXCP.OE.21           1 SEQ    1576    1 PAGE UM   YOUNG               MAR. 21, 1975  01:50:44
00545/22   *FAKEOS                   EXCPXT          SA             W071:EXCPXT                                                     
            D3.1T1  386  FAKEOS.EXCPXT.SA.22                1 LINE     59    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.29
0          COPY SECTION USED BY FAKEEXCP.S (545/20) AND FAKEOS (545/5).
0          Referenced by comments of: 545/5, 545/20 
00545/23   *FAKEOS                   *FAKEOSTRACE    SA             W071:TRACER.S                                                   
            D3.1T1  387  FAKEOS.*FAKEOSTRACE.SA.23          1 LINE     65    2 PAGE UM   YOUNG               MAR. 06, 1974  17:54.31
0          SOURCE FOR PROGRAM TO PRINT FAKEOS TRACE FILE.  ASSEMBLE WITH *SYSMAC.
00545/24   *FAKEOS                   *FAKEOSTRACE    OC             *FAKEOSTRACE                                                    
            D3.1T1  388  FAKEOS.*FAKEOSTRACE.OC.24          1 LINE     80    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.33
00545/25   *FAKEOS                   JFCBD           SA             W071:JFCBD                                                      
            D3.1T1  389  FAKEOS.JFCBD.SA.25                 1 LINE     70    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.35
0          COPY SECTION FOR JFCB DSECT.
0          Referenced by comments of: 545/7 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00545/26   *FAKEOS                   *IGG019AA       OE             *IGG019AA                                                       
            D3.1T1  390  FAKEOS.*IGG019AA.OE.26             1 SEQ     168    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.38
00545/27   *FAKEOS                   *IGG019AB       OE             *IGG019AB                                                       
            D3.1T1  391  FAKEOS.*IGG019AB.OE.27             1 SEQ     176    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.40
00545/28   *FAKEOS                   *IGG019AC       OE             *IGG019AC                                                       
            D3.1T1  392  FAKEOS.*IGG019AC.OE.28             1 SEQ     280    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.42
00545/29   *FAKEOS                   *IGG019AD       OE             *IGG019AD                                                       
            D3.1T1  393  FAKEOS.*IGG019AD.OE.29             1 SEQ     248    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.44
00545/30   *FAKEOS                   *IGG019AE       OE             *IGG019AE                                                       
            D3.1T1  394  FAKEOS.*IGG019AE.OE.30             1 SEQ     400    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.46
00545/31   *FAKEOS                   *IGG019AI       OE             *IGG019AI                                                       
            D3.1T1  395  FAKEOS.*IGG019AI.OE.31             1 SEQ     144    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.49
00545/32   *FAKEOS                   *IGG019AJ       OE             *IGG019AJ                                                       
            D3.1T1  396  FAKEOS.*IGG019AJ.OE.32             1 SEQ     312    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.51
00545/33   *FAKEOS                   *IGG019AK       OE             *IGG019AK                                                       
            D3.1T1  397  FAKEOS.*IGG019AK.OE.33             1 SEQ     240    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.53
00545/34   *FAKEOS                   *IGG019BN       OE             *IGG019BN                                                       
            D3.1T1  398  FAKEOS.*IGG019BN.OE.34             1 SEQ    1952    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.55
00545/35   *FAKEOS                   *IGG019BO       OE             *IGG019BO                                                       
            D3.1T1  399  FAKEOS.*IGG019BO.OE.35             1 SEQ     608    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.58
00545/36   *FAKEOS                   *IGG019FB       OE             *IGG019FB                                                       
            D3.1T1  400  FAKEOS.*IGG019FB.OE.36             1 SEQ     248    1 PAGE UM   YOUNG               MAR. 06, 1974  17:55.00
00545/37   *FAKEOS                   *IGG019FD       OE             *IGG019FD                                                       
            D3.1T1  401  FAKEOS.*IGG019FD.OE.37             1 SEQ     448    1 PAGE UM   YOUNG               MAR. 06, 1974  17:55.02
00545/38   *FAKEOS                   *IGG019FF       OE             *IGG019FF                                                       
            D3.1T1  402  FAKEOS.*IGG019FF.OE.38             1 SEQ     414    1 PAGE UM   YOUNG               MAR. 06, 1974  17:55.04
00545/39   *FAKEOS                   *IGG019FJ       OE             *IGG019FJ                                                       
            D3.1T1  403  FAKEOS.*IGG019FJ.OE.39             1 SEQ     296    1 PAGE UM   YOUNG               MAR. 06, 1974  17:55.07
00545/40   *FAKEOS                   *IGG019FG       OE             *IGG019FG                                                       
            D3.1T1  404  FAKEOS.*IGG019FG.OE.40             1 SEQ     504    1 PAGE UM   YOUNG               MAR. 06, 1974  17:55.09
00545/41   *FAKEOS                   *IGG019FL       OE             *IGG019FL                                                       
            D3.1T1  405  FAKEOS.*IGG019FL.OE.41             1 SEQ     560    1 PAGE UM   YOUNG               MAR. 06, 1974  17:55.11
00545/42   *FAKEOS                   *IGG019AL       OE             *IGG019AL                                                       
            D3.1T1  406  FAKEOS.*IGG019AL.OE.42             1 SEQ     344    1 PAGE UM   YOUNG               MAR. 06, 1974  17:55.13
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00545/43   *FAKEOS                   *IECQBFG1       OE             *IECQBFG1                                                       
            D3.1T1  407  FAKEOS.*IECQBFG1.OE.43             1 SEQ     232    1 PAGE UM   YOUNG               MAR. 06, 1974  17:55.16
00545/44   *FAKEOS                   OLT.FOS.PFX     SA  G          MTA:FAKEOS.PFX                                                  
            D3.2T1  459  FAKEOS.OLT.FOS.PFX.SA.44           1 LINE     73   13 PAGE UM   MTA                 MAR. 21, 1975  01:50:46
0          THE FOLLOWING 5 COMPONENTS ARE THE SOURCE FOR A SPECIAL VERSION OF FAKEOS FOR
           USE WITH OLTS (458).  IN ADDITION, THE FOLLOWING PARTS OF THE REGULAR *FAKEOS
           ARE USED:  545/17 - 545/21 AND 545/26 - 545/43.  ALSO, 545/23 AND 545/24 ARE
           COMPATIBLE WITH THIS SPECIAL VERSION.
           COPIES FOS.GBLS (545/51), FOS.CVT (545/52), FOS.TCB (545/53), FOS.COMDSECT (545/54),
           AND FOS.COMMON (545/55).
00545/45   *FAKEOS                   OLT.FOS.MAIN    SA  G          MTA:FAKEOS.MAIN                                                 
            D3.2T1  460  FAKEOS.OLT.FOS.MAIN.SA.45          1 LINE     77   61 PAGE UM   MTA                 MAR. 21, 1975  01:50:49
0          COPIES COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), FOS.GBLS (545/51),
           COPY:LLMPSEQU (087), FOS.COMMON (545/55), FOS.COMDSECT (545/54), FOS.CVT (545/52),
           FOS.TCB (545/53), FOS.DSDSECT (545/56), FOS.EXCPXT (545/57), AND FOS.IOBD (545/60).
           ASSEMBLE WITH *SYSMAC AND *OSMAC.
            
           ***** NOTE:  THIS COMPONENT MUST BE REASSEMBLED WHENEVER COPY:GLOBALSETS CHANGES.
           *****        IF NOT, IT WILL CAUSE SUPERDUMPS!!!!
00545/46   *FAKEOS                   OLT.FOS.JFCB    SA  G          MTA:FAKEOS.JFCB                                                 
            D3.2T1  461  FAKEOS.OLT.FOS.JFCB.SA.46          1 LINE     71    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:03
0          COPIES FOS.JFCBD (545/58).
00545/47   *FAKEOS                   OLT.FOS.EXCP    SA  G          MTA:FOS.EXCPOLTS                                                
            D3.2T1  462  FAKEOS.OLT.FOS.EXCP.SA.47          1 LINE     69    4 PAGE UM   MTA                 MAR. 21, 1975  01:51:05
0          COPIES FOS.DEBD (545/59), FOS.UCBD (545/62), FOS.IOBD (545/60), FOS.OCBD (545/61),
           FOS.COMMON (545/55), AND FOS.COMDSECT (545/54).
           NOTE:  THIS IS NOT A REPLACEMENT FOR THE OTHER EXCP ROUTINE (545/20).
                  THIS ROUTINE PERFORMS ON UNRELATED FUNCTION.
00545/48   *FAKEOS                   OLT.FOS.SVC59   SA  G          MTA:FOS.SVC59                                                   
            D3.2T1  463  FAKEOS.OLT.FOS.SVC59.SA.48         1 LINE     70    5 PAGE UM   MTA                 MAR. 21, 1975  01:51:08
0          COPIES *CNFGINFODSECT (654), FOS.COMMON (545/55), FOS.UCBD (545/62), AND FOS.COMDSECT (545/54).
00545/49   *FAKEOS                   OLT.FOS.OBJECT  OC  G          MTA:FAKEOS                                                      
            D3.2T1  464  FAKEOS.OLT.FOS.OBJECT.OC.49        1 LINE     80   27 PAGE UM   MTA                 MAR. 21, 1975  01:51:10
0          370 OBJECT FOR SPECIAL OLTS VERSION OF FAKEOS.
           ***** NOTE:  DO NOT USE THIS OBJECT ON A 360/67.  SEE 545/45 COMMENTS. *****
00545/50   *FAKEOS                   OLT.FOS.MSG     M              MTA:FAKEOS.MSG                                                  
            D3.2T1  465  FAKEOS.OLT.FOS.MSG.M.50            1 LINE     62    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:12
0          MESSAGE FILE FOR OLTS VERSION OF FAKEOS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00545/51   *FAKEOS                   OLT.FOS.GBLS    SA  G          MTA:FOS.GBLS                                                    
            D3.2T1  466  FAKEOS.OLT.FOS.GBLS.SA.51          1 LINE     67    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:15
0          THE FOLLOWING 12 COMPONENTS ARE COPY SECTIONS FOR THE SPECIAL OLTS VERSION
           OF FAKEOS.
0          Referenced by comments of: 545/44, 545/45 
00545/52   *FAKEOS                   OLT.FOS.CVT     SA  G          MTA:FOS.CVT                                                     
            D3.2T1  467  FAKEOS.OLT.FOS.CVT.SA.52           1 LINE     57    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:17
0          Referenced by comments of: 545/44, 545/45 
00545/53   *FAKEOS                   OLT.FOS.TCB     SA  G          MTA:FOS.TCB                                                     
            D3.2T1  468  FAKEOS.OLT.FOS.TCB.SA.53           1 LINE     62    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:20
0          Referenced by comments of: 545/44, 545/45 
00545/54   *FAKEOS                   OLT.FOS.COMDCT  SA  G          MTA:FOS.COMDSECT                                                
            D3.2T1  469  FAKEOS.OLT.FOS.COMDCT.SA.54        1 LINE     71    3 PAGE UM   MTA                 MAR. 21, 1975  01:51:22
0          Referenced by comments of: 545/44, 545/45, 545/47, 545/48 
00545/55   *FAKEOS                   OLT.FOS.COMMON  SA  G          MTA:FOS.COMMON                                                  
            D3.2T1  470  FAKEOS.OLT.FOS.COMMON.SA.55        1 LINE     69    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:24
0          Referenced by comments of: 545/44, 545/45, 545/47, 545/48 
00545/56   *FAKEOS                   OLT.FOS.DSDSCT  SA  G          MTA:FOS.DSDSECT                                                 
            D3.2T1  471  FAKEOS.OLT.FOS.DSDSCT.SA.56        1 LINE     72    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:27
0          Referenced by comments of: 545/45 
00545/57   *FAKEOS                   OLT.FOS.EXCPXT  SA  G          MTA:FOS.EXCPXT                                                  
            D3.2T1  472  FAKEOS.OLT.FOS.EXCPXT.SA.57        1 LINE     59    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:29
0          Referenced by comments of: 545/45 
00545/58   *FAKEOS                   OLT.FOS.JFCBD   SA  G          MTA:FOS.JFCBD                                                   
            D3.2T1  473  FAKEOS.OLT.FOS.JFCBD.SA.58         1 LINE     70    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:32
0          Referenced by comments of: 545/46 
00545/59   *FAKEOS                   OLT.FOS.DEBD    SA  G          MTA:FOS.DEBD                                                    
            D3.2T1  474  FAKEOS.OLT.FOS.DEBD.SA.59          1 LINE     62    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:34
0          Referenced by comments of: 545/47 
00545/60   *FAKEOS                   OLT.FOS.IOBD    SA  G          MTA:FOS.IOBD                                                    
            D3.2T1  475  FAKEOS.OLT.FOS.IOBD.SA.60          1 LINE     71    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:37
0          Referenced by comments of: 545/45, 545/47 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00545/61   *FAKEOS                   OLT.FOS.OCBD    SA  G          MTA:FOS.OCBD                                                    
            D3.2T1  476  FAKEOS.OLT.FOS.OCBD.SA.61          1 LINE     72    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:39
0          Referenced by comments of: 545/47 
00545/62   *FAKEOS                   OLT.FOS.UCBD    SA  G          MTA:FOS.UCBD                                                    
            D3.2T1  477  FAKEOS.OLT.FOS.UCBD.SA.62          1 LINE     66    1 PAGE UM   MTA                 MAR. 21, 1975  01:51:41
0          Referenced by comments of: 545/47, 545/48 
00546/01   *VALIDATEFILE                             SA  G  VALD    RSTR:VALIDATEFILE(1000)                                         
            D3T4    262  VALIDATEFILE..SA.1                 1 LINE     80   14 PAGE UM   BERSTIS             AUG. 01, 1973  23:04.41
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.
           COPIES COPY:FCBEQU (482/27).
00546/02   *VALIDATEFILE                             OE  G          *VALIDATEFILE                                                   
            D3T4    263  VALIDATEFILE..OC.2                 1 SEQ    8192    3 PAGE UM   BERSTIS             AUG. 01, 1973  23:04.47
00547      *FOREVER                                  D              *FOREVER                                                        
            D3T4    264  FOREVER..D.                        1 LINE     51    3 PAGE UM   MTA                 AUG. 01, 1973  23:04.52
0          A FILE CONTAINING ABOUT 300 LINES OF JUNK, ENDING WITH "$CONTINUE WITH *FOREVER" SO THAT
           IT APPEARS TO CONTAIN EVEN MORE.
00548/01   *FS                                       SA  G  FS00    MTS:FS.S                                                        
            D3.2T1  478  FS..SA.01                          1 LINE     80  128 PAGE UBC  MTA                 MAR. 21, 1975  01:51:44
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.
           COPIES COPY:DRDSECT (461/12). ASSEMBLE USING *SYSMAC. CALLS SNIFF SUBROUTINE (548/2).
           SEVERAL BUGS FIXED SINCE D3.
0          Referenced by comments of: 549/1 
00548/02   *FS                       SNIFF SUBR      SA  G  SNIF    MTS:FS.SNIFF(1,999)                                             
            D3.2T1  479  FS.SNIFF_SUBR.SA.02                1 LINE     80    5 PAGE UBC  MTA                 MAR. 21, 1975  01:52:08
0          SUBROUTINE TO DETERMINE THE AMOUNT OF SPACE REQUIRED BY A FILE. CALLED BY *FS.
           COPIES *GFINFODSECT (593). ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 548/1 
00548/03   *FS                                       OE  G          *FS                                                             
            D3.2T1  480  FS..OE.03                          1 SEQ   32480   11 PAGE UBC  MTA                 MAR. 21, 1975  01:52:09
00549/01   *FSCON                                    SA  G  FSCN    MTS:FSCON.S(1,1449)                                             
            D3T4    268  FSCON..SA.1                        1 LINE     80   32 PAGE UM   MTA                 AUG. 01, 1973  23:05.15
0          PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT.
           NO LONGER REQUIRES THE FSZ SUBROUTINE.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00549/02   *FSCON                                    OE  G          *FSCON                                                          
            D3T4    269  FSCON..OE.2                        1 SEQ    8116    3 PAGE UM   MTA                 AUG. 01, 1973  23:05.27
00550      *FSCOPY                                                # (OBSOLETED BY 548)                                              
            D3T4    270  FSCOPY..SA.1                       1 LINE     80   30 PAGE UBC                      AUG. 01, 1973  23:05.32
00551/01   *FTN                                      SA  G  FTN0    S0579 SAVE 'JWS-SAVE' FSNAME=FTN.S                              
            D3T4    276  FTN.FTNH_VERSION.SA.5              1 LINE     80   64 PAGE UM   JWS                 AUG. 01, 1973  23:06.26
0          THIS VERSION OF *FTN INCLUDES SUPPORT FOR INTERFACING TO FORTRAN H (298).
           THERE ARE 3 REFERENCES TO PUBLIC FILES IN THIS VERSION:  AT X'000F38' (ESID 01), THERE IS A REFERENCE TO
           THE FILE CONTAINING THE 'TEST' VERSION OF FORTRAN G (*FTNGTEST), AT X'000F18' (ESID 01) TO THE FILE
           CONTAINING FORTRAN H (*FORTRANH), AND AT X'000F28 (ESID 01) TO THE FILE CONTAINING FORTRAN G (*FORTRANG).
0          Referenced by comments of: 298/1 
00551/02   *FTN                                      OC  G          *FTN                                                            
            D3T4    277  FTN.FTNH_VERSION.OC.6              1 LINE     80    6 PAGE UM   JWS                 AUG. 01, 1973  23:06.36
00552/01    GASP                     *GASP           SF  G  GASP    W020:GASPSOURCE                                                 
            D3T4    279  GASP.*GASP.S.1                     1 LINE     80   29 PAGE UM   FLANIGAN            AUG. 01, 1973  23:06.58
0          FTN SOURCE FOR GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION.
           NOTE:  SOURCE CONTAINS MANY "$CONTINUE WITH *GASPCOM RETURN" LINES.
00552/02    GASP                     *GASP           SA  G  GASP    W020:GASP.ASMB(1,14)                                            
                                                                                    UM   FLANIGAN                                   
0          ASMG SOURCE FOR GASP ERROR EXIT ROUTINE.
00552/03    GASP                     *GASP           OL  G          *GASP                                                           
            D3T4    280  GASP.*GASP.OL.2                    1 SEQ    6930   15 PAGE UM   FLANIGAN            AUG. 01, 1973  23:07.04
0          DIR FORMAT OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN 552/1.
00552/04    GASP                     *GASPCOM        SF  G  GPCM    *GASPCOM(0,7)                                                   
            D3T4    281  GASP.*GASPCOM.SF.3                 1 LINE     80    1 PAGE UM   FLANIGAN            AUG. 01, 1973  23:07.09
00552/05    GASP                     WRITEUP         WF  G          W098:KDM246                                                  24 
            D3.1T1  408  GASP.WRITEUP.WF.4                  1 LINE    127   11 PAGE UM   FLANIGAN            MAR. 06, 1974  22:00.56
0          THIS IS COMPUTING CENTER MEMO M246 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM"
00552/06    GASP                     INTERNAL DESC   P   G          W020:GASPINFO(1,1488)                                           
            D3T4    283  GASP.INTERNAL_DESC.P.5             1 LINE     80   27 PAGE UM   FLANIGAN            AUG. 01, 1973  23:07.29
0          DESCRIPTION OF THE INTERNALS OF GASP.
00553/01    NETWORK CLS                              SA  G  NETC    WSG:NET                                                         
            D3T4    284  MERIT_NETWORK_CLS..SA.1            1 LINE     80   24 PAGE UM   WSG                 AUG. 01, 1973  23:07.34
0          COMMAND LANGUAGE SUB-SYSTEM FOR MERIT COMPUTER NETWORK ($NET COMMAND).
           DESCRIBED IN "MERIT NETWORK USER'S GUIDE" IN MTS VOLUME 4.
           COPIES COPY:CLSVECTOR (535/2) AND COPY:CLSPLAN (535/1).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00553/02    NETWORK CLS                              OC  G          *CLSNET                                                         
            D3T4    285  MERIT_NETWORK_CLS..OC.2            1 LINE     80    3 PAGE UM   WSG                 AUG. 01, 1973  23:07.40
0          THIS FILE IS LOADED INTO SHARED VM BY PISTLE (559) AFTER IPL.
00554/01    TABLMOD                  JOB PROGRAM     SA  G  TBJP    W045:TABLMOD                                                    
            D3.2T1  481  TABLMOD.JOB_PROGRAM.SA.01          1 LINE     80   27 PAGE UM   PIRKOLA             MAR. 21, 1975  01:52:11
0          UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE SHARED OPEN FILE TABLE.
           INVOKED BY ENTERING "TABLMOD" ON THE OPERATOR'S CONSOLE.  THE FOLLOWING COMMANDS ARE AVAILABLE:
            
             VERIFY   VERIFYS (ENTRY AND ELEMENT) ALLOCATIONS ARE CONSISTANT BY CHASING THROUGH VARIOUS CHAINS IN SHARED FILE TABLE.
                      ALSO PRINTS # OPEN FILES,#MATRIX COMPUTATIONS,#DEADLOCK DETECTIONS.
            
             TRACE    PRINTS OUT THE ENTIRE SHARED FILE TABLE.  EACH ENTRY CONSISTS OF A FILE NAME, JOB NUMBER,
                      OPEN STATUS ("OPEN" OR "NOTO"), LOCK STATUS ("LOCKR", "LOCKM", OR "LOCKD"), AND WAIT STATUS
                      ("WAITO", "WAITR", "WAITM", OR "WAITD").
            
             LSTAT    PRINTS THE INFORMATION ASSOCIATED WITH A SINGLE FILE ("LSTAT FILE FNAME") OR A SINGLE
                      JOB ("LSTAT JOB N") IN THE SAME FORMAT AS THE DUMP COMMAND.
            
             LOCATE   PRINTS THE HALF-WORD OFFSET INTO THE IN-CORE TABLE FOR THE ENTRY ASSOCIATED WITH A 
                      PARTICULAR FILE ("LOCATE FILE FNAME").
            
             CLEAN    TAKES THE SPECIFIED JOB ("CLEAN JOB N") OFF ALL OPEN OR LOCKED AND WAITING LISTS.
            
             CLEANF   SAME AS "CLEAN" EXCEPT FOR ONE FILE ONLY ("CLEANF JOB N FILE FNAME").
            
             DEQ      TAKES THE SPECIFIED JOB ("DEQ JOB N") OFF ALL WAITING LISTS.
            
             DEQF     SAME AS "DEQ" EXCEPT FOR ONE FILE ONLY ("DEQF JOB N FILE FNAME").
            
           THE TABLMOD PROGRAM TERMINATES WHEN AN END-OF-FILE IS ENTERED.
            
           COPIES COPY:ICEQU (482/29), COPY:GLOBALS (1026/4), AND COPY:LLMPSEQU (087).
           ASSEMBLE THIS STARTING AT LINE 1.
0          Referenced by comments of: 554/3 
00554/02    TABLMOD                  TABLMOD JOB     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00554/03    TABLMOD                  MTS PROGRAM     SA  G        # (SAME AS COMP 554/1)                                            
            D3.1T1  410  TABLMOD.MTS_PROGRAM.SA.3           1 LINE     80   14 PAGE UM   PIRKOLA             MAR. 06, 1974  22:01.08
0          MTS PROGRAM TO ALLOW SYSTEM PROGRAMMERS TO INTERROGATE AND ALTER SYSTEM-WIDE SHARED FILE TABLE.
           TAKES SAME COMMANDS AS TABLMOD JOB (554/1)
           AS WELL AS A "DUMP" COMMAND TO DUMP THE WHOLE SHARED FILE TABLE. IT CALL SDUMP TO ACCOMPLISH THIS.
           COPIES COPY:ICEQU (482/29), COPY:GLOBALS (1026/4), AND COPY:LLMPSEQU (087).
           ASSEMBLE THIS STARTING AT LINE 0.  IT HAS A "$CONTINUE WITH TABLMOD(2)" TO INCLUDE
           THOSE THINGS NECESSARY FOR THE MTS PROGRAM.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00554/04    TABLMOD                  MTS PROGRAM     OC  G          W045:TABLMODMP.O                                                
            D3.2T1  482  TABLMOD.MTS_PROGRAM.OC.04          1 LINE     80    4 PAGE UM   PIRKOLA             MAR. 21, 1975  01:52:19
00555/01    MESSAGE MANUAL           PGM             SS             MTS:MESSAGEPGM                                                  
            D3T4    289  MESSAGE_MANUAL.PGM.SS.1            1 LINE     63    2 PAGE UM   DWB                 AUG. 01, 1973  23:08.01
0          SNOBOL PROGRAM TO PRODUCE MESSAGE MANUAL FROM DATA IN 555/2.  RUN AS FOLLOWS:
            
                 $RUN *SPITBOL SCARDS=MESSAGEPGM 5=MESSAGEDATA SPUNCH=PRINTOUT
            OR   $RUN *SNOBOL4 5=MESSAGEPGM+MESSAGEDATA 7=PRINTOUT
            
           THE PRINTOUT CONSISTS OF USER MESSAGES (ALPHABETICAL) AND OPERATOR MESSAGES (ALPHABETICAL).
0          Referenced by comments of: 592/1 
00555/02    MESSAGE MANUAL           DATA            M              MTS:MESSAGEDATA                                                 
            D3T4    290  MESSAGE_MANUAL.DATA.M.2            1 LINE    107   13 PAGE UM   DWB                 AUG. 01, 1973  23:08.06
0          A DATA FILE DESCRIBING THE VARIOUS SYSTEM MESSAGES.  THE FORMAT OF THE FILE IS AS FOLLOWS:
            
             1. LOCATION OF MESSAGES
                  A) MTS "FMSG" MESSAGES ARE FOUND STARTING AT THE LINE NUMBER WHICH IS THE FMSG NUMBER.
                  B) MTS "CMSG" MESSAGES START AT LINE 2000.
                  C) OTHER MESSAGES START AT LINE 3000.
            
             2. FORMAT OF LINES
                  A GROUP OF CONSECTIVE LINES IN THE FILE HAS INFORMATION ABOUT A GIVEN MESSAGE.  THE FIRST LINE SPECIFIES
                  THE MESSAGE TEXT, WHILE SUCCEEDING LINES IN THE GROUP INDENTIFY THE DESTINATION, SOURCE, AND MEANING.
                  EACH LINE IS IDENTIFIED BY ITS LEADING CHARACTERS, WHICH MUST BE UPPERCASE; THE TEXT OF MESSAGES MAY
                  BE OF MIXED CASE.  THE FOLLOWING LINE FORMATS ARE SPECIFIED:
            
                  A) MESSAGE LINE
                     BEGINS WITH "## "; MESSAGE, STARTING IN COLUMN 4, IN UPPER CASE EXCEPT FOR GENERIC QUANTITIES WHICH
                     ARE LOWER CASE.
            
                  B) DESTINATION OF MESSAGE
                     BEGINS WITH " DEST OPER" IF OPERATOR MESSAGE; NO DESTINATION LINE IF NORMAL MESSAGE.
            
                  C) LOCATION OF MESSAGE TEXT
                     BEGINS WITH " ERROR "; ERROR NAME STARTING IN COLUMN 8, SUCH AS FSMG 21.
            
                  D) 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 MTS,42,LINNBR,M0212800
            
                  E) EXPLANATION OF MESSAGE (AS MANY LINES AS NEEDED)
                     BEGINS WITH 3 BLANKS; TEXT STARTING IN COLUMN 4.
                     SINCE THIS MESSAGE MANUAL WAS DEVELOPED SPECIFICALLY FOR THIS MTS DISTRIBUTION, IT IS CURRENTLY SOMEWHAT
                     THIN AND OFTEN NON-EXISTENT.
            
           SO FAR, THE MESSAGE MANUAL INCLUDES MESSAGES FROM MTS, MTS SUBR, PERMIT COMMAND, AND FILESTATUS COMMAND.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00556/01   *REDUCE2                  MTS MASTER      S   G          WATF:RDC2SOU                                                    
            D3T4    291  REDUCE2.MTS_MASTER.S.1             1 LINE     80  124 PAGE UM   MTA                 AUG. 01, 1973  23:08.11
0          REDUCE 2 IS A LISP 1.5 PROGRAM DESIGNED FOR GENERAL ALGEBRAIC COMPUTATIONS.
            
           THIS IS THE OS/360 VERSION OF REDUCE2 MODIFIED TO RUN IN MTS.
           THE LISP COMPILER IS EXPECTED TO BE IN THE FILE "COMPILE" UNDER THE USER ID COMPILING REDUCE2.
0          Referenced by comments of: 210/1, 556/3 
00556/02   *REDUCE2                  OS SOURCE       S   G          WATF:RDC2OV303                                                  
            D3T4    292  REDUCE2.OS_SOURCE.S.2              1 LINE     80  124 PAGE UM   MTA                 AUG. 01, 1973  23:08.31
0          OS/360 SOURCE FOR REDUCE2 (VERSION NOV 30, 1973).
0          Referenced by comments of: 556/3 
00556/03   *REDUCE2                  UPDATE          UU  G          WATF:RDC2UPD                                                    
            D3T4    293  REDUCE2.UPDATE.UU.3                1 LINE     79    3 PAGE UM   MTA                 AUG. 01, 1973  23:08.57
0          UPDATE DECK TO CONVERT OS/360 SOURCE (556/2) TO MTS VERSION (556/1).
00556/04   *REDUCE2                  CHKPOINT        O   G          ETC:RDC2.CKPT                                                   
            D3T4    294  REDUCE2.CHKPOINT.O.4               1 LINE     80   83 PAGE UM   MTA                 AUG. 01, 1973  23:09.02
0          FILE IN LISP OBJECT FORMAT CONTAINING CHECKPOINT OF REDUCE2.  THIS FILE IS REFERENCED BY *REDUCE2.
00556/05   *REDUCE2                  *REDUCE2        C              *REDUCE2                                                        
            D3T4    295  REDUCE2.*REDUCE2.C.5               1 LINE     40    1 PAGE UM   MTA                 AUG. 01, 1973  23:09.15
0          FILE TO WHICH USERS $SOURCE TO INVOKE REDUCE2.  IT RUNS THE REDUCE VERSION OF LISP AND THEN
           LOADS THE REDUCE2 CHECKPOINT.
00556/06   *REDUCE2                  UPDCOMP         C              WATF:RDC2JOB                                                    
                                                                                    UM   MTA                                        
0          COMMANDS TO UPDATE AND COMPILE REDUCE2.
00556/07   *REDUCE2                  EXAMPLE         S              WATF:RDC2TEST                                                   
            D3T4    296  REDUCE2.EXAMPLE.S.6                1 LINE     82    6 PAGE UM   MTA                 AUG. 01, 1973  23:09.19
0          EXAMPLE OF REDUCE2 INPUT.
00556/08   *REDUCE2                  LISP OS/MAS     SA  G          S0736 REDUCE                                                 2  
            D3T2     42  LISP.OS_MASTER.SA.2                1 SEQ    3200   96 PAGE UM   MTA                 JULY 31, 1973  21:16.33
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/9 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00556/09   *REDUCE2                  LISP UPDATE     UU  G          WATF:LISPUPD                                                    
            D3T2     43  LISP.MTS_UPDATE.UU.3               1 LINE     72   20 PAGE UM   MTA                 JULY 30, 1973  03:32.24
0          UPDATE TO GO FROM OS/360 SOURCE (556/8) TO MTS VERSION.
00556/10   *REDUCE2                  LISP OBJECT     OE  G          ETC:RDC2.LISP                                                   
            D3T2     44  LISP..OC.4                         1 LINE     80   30 PAGE UM   MTA                 JULY 31, 1973  21:17.03
00556/11   *REDUCE2                  LISP COMPILER   S   G          S0736 REDUCE                                                 3  
            D3T2     45  LISP.*LISPCOM.S.5                  1 SEQ      80   52 PAGE UM   MTA                 JULY 31, 1973  21:17.08
0          LISP/360 COMPILER AND ASSEMBLY PROGRAM.  FEED THIS FILE TO LISP AND CHECKPOINT THE RESULT.
00556/12   *REDUCE2                  LISP COMPILER   O   G          WATF:COMPILE                                                    
            D3T2     46  LISP.*LISPCOM.O.6                  1 LINE     80   29 PAGE UM   MTA                 JULY 31, 1973  21:17.18
0          CHECKPOINTED LISP/360 COMPILER AND ASSEMBLY PROGRAM.  LISP OBJECT FORMAT.
00556/13   *REDUCE2                  LISP DEBUG      S   O          WATF:LISPBREAK                                                  
            D3T2     48  LISP.DEBUG_PACKAGE.S.8             1 LINE     97    3 PAGE UM   MTA                 JULY 31, 1973  21:17.50
0          THIS PROGRAM (WRITTEN IN LISP) DEFINES TWO FUNCTIONS:  BREAK AND UNBREAK.
            
           BREAK TAKES A LIST OF FUNCTION NAMES AND SETS A BREAKPOINT AT THE ENTRY AND EXIT TO EACH OF THEM.  UNBREAK TAKES
           A LIST OF FUNCTION NAMES AND RESETS THE BREAKPOINT AT EACH.  ALL FUNCTIONS MUST BE PREVIOUSLY DEFINED.
            
           BOTH BREAK AND UNBREAK ARE DEFINED AS FEXPR'S SO THAT THEIR ARGUMENTS ARE NOT EVALUATED.
            
           WHEN A FUNCTION WHICH HAS A BREAKPOINT SET IS CALLED, THE MESSAGE ">>> ENTERING NAME TYPE ARGS" IS TYPED,
           WHERE "NAME" IS THE NAME OF THE FUNCTION, "TYPE" IS SUBR, FSUBR, EXPR, OR FEXPR, AND "ARGS" ARE THE NAMES
           OF THE ARGUMENTS.  WHEN THE FUNCTION EXITS, THE MESSAGE ">>> EXITING NAME" IS TYPED.  BOTH MESSAGES ARE
           FOLLOWED BY THE MESSAGE "LISTENING" AND LINES ARE READ AND PASSED TO EVAL UNTIL "T" IS ENTERED.  THE ATOM
           "VALUE" WILL BE BOUND TO THE RESULT OF THE FUNCTION ON EXIT, AND THE ARGUMENTS WILL BE BOUND BOTH TIMES.
            
           CONDITIONAL BREAKPOINTS MAY BE SET BY MAKING ONE OF THE ARGUMENTS OF BREAK A LIST.  CAR OF THE LIST IS THE
           NAME OF THE FUNCTION AND CADR OF THE LIST IS A CONDITION WHICH MUST BE TRUE FOR THE BREAKPOINT TO OCCUR.
           THE CONDITION IS TESTED WHEN THE FUNCTION IS CALLED.
            
           EXAMPLE:  BREAK (FN (FN2 (EQ ARG1 1)))   WILL ALWAYS BREAK AT FUNCTION FN AND BREAK AT FN2 IF ARG1 IS 1
                                                    (ASSUMING ARG1 IS THE FIRST ARGUMENT OF FN2).
00557/01    FLOATEST                                 SA  O  FLOT    MTS:FLOATEST                                                    
            D3T4    299  FLOATEST..SA.1                     1 LINE     80    4 PAGE UM   DWB                 AUG. 01, 1973  23:09.34
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/02    FLOATEST                                 OC  O          MTS:FLOATEST.O                                                  
            D3T4    300  FLOATEST..OC.2                     1 LINE     80    3 PAGE UM   DWB                 AUG. 01, 1973  23:09.39
00558/01    VIRTUAL MACHINE          MAIN PGM        SA  G  VMNS    MTA:VMN.S                                                       
            D3.2T1  483  VIRTUAL_MACHINE.MAIN_PGM.SA.01     1 LINE     80  124 PAGE UM   MTA                 MAR. 21, 1975  01:52:21
0          PROGRAM TO PROVIDE A SYSTEM/360 OR SYSTEM/370 VIRTUAL MACHINE.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          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 WITH *SYSMAC.
0          Referenced by comments of: 472/1 
00558/02    VIRTUAL MACHINE          V370 SUPPORT    SA  G  V370    MTA:V370.S                                                      
            D3.2T1  484  VIRTUAL_MACHINE.V370_SUPPO.SA.02   1 LINE     80   16 PAGE UM   MTA                 MAR. 21, 1975  01:52:44
0          COPY SECTION CONTAINING THE 370 INSTRUCTION SIMULATION CODE.
0          Referenced by comments of: 558/1 
00558/03    VIRTUAL MACHINE          3066 SUPPORT    SA  G  3066    MTA:OC.S                                                        
            D3.2T1  485  VIRTUAL_MACHINE.3066_SUPPO.SA.03   1 LINE     80    9 PAGE UM   MTA                 MAR. 21, 1975  01:52:46
0          COPY SECTION CONTAINING THE 3066 SIMULATION CODE.
0          Referenced by comments of: 558/1 
00558/04    VIRTUAL MACHINE          2301 SUPPORT    SA  G  2301    MTA:S2301                                                       
            D3.2T1  486  VIRTUAL_MACHINE.2301_SUPPO.SA.04   1 LINE     80    9 PAGE UM   MTA                 MAR. 21, 1975  01:52:48
0          COPY SECTION CONTAINING VIRTUAL 2301 DRUM SUPPORT.  THE DRUM
           IS SIMULATED USING VIRTUAL MEMORY.
0          Referenced by comments of: 558/1 
00558/05    VIRTUAL MACHINE          168 DEV LIST    SA  G  168D    MTA:V370DEV.UM(1,999)                                           
            D3.2T1  487  VIRTUAL_MACHINE.168_DEV_LI.SA.05   1 LINE     80    3 PAGE UM   MTA                 MAR. 21, 1975  01:52:51
0          SOURCE FOR UM 370/168 DEVICE LIST.
00558/06    VIRTUAL MACHINE          67 DEV LIST     SA  G  V67D    MTA:V67DEV.S                                                    
            D3T4    302  VIRTUAL_67.DEVICE_LIST.SA.2        1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:10.01
0          SOURCE FOR UM 360/67 DEVICE LIST.
00558/07    VIRTUAL MACHINE          370 OBJECT      OC  G          MTA:V370                                                        
            D3.2T1  488  VIRTUAL_MACHINE.370_OBJECT.OC.07   1 LINE     80   17 PAGE UM   MTA                 MAR. 21, 1975  01:52:54
0          OBJECT FOR UM VIRTUAL 370/168, I.E. 558/1 WITH &DUPLEX, &M67, &ST, AND &S370.
00558/08    VIRTUAL MACHINE          67 OBJECT       OC  G          MTA:V67                                                         
            D3.2T1  489  VIRTUAL_MACHINE.67_OBJECT.OC.08    1 LINE     80   15 PAGE UM   MTA                 MAR. 21, 1975  01:52:56
0          OBJECT FOR UM VIRTUAL 360/67, I.E. 558/1 WITH &DUPLEX, &M67, &ST, AND &S370.
00558/09    VIRTUAL MACHINE          WRITEUP         P              MTA:V67WRUP                                                     
            D3.1T1  414  VIRTUAL_67.WRITEUP.P.5             1 LINE     75   11 PAGE UM   MTA                 MAR. 06, 1974  22:01.32
0          WRITEUP TO BE COPIED TO A TN PRINTER.
1                                                                                               FRI AUG 02/96   19:04:25   Page  202
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          NOTE:  WRITEUP IS NOT UP TO DATE.
00559/01    PISTLE <SEG 2 LOADER>    *S2L            C   G          *S2L                                                            
            D3T4    306  SEGMENT_2_LOADER.*S2L.C.1          1 LINE     60    1 PAGE UM   DWB                 AUG. 01, 1973  23:10.21
0          COMMAND FILE TO RUN SEGMENT 2 LOADER, WHICH IS NOW KNOWN AS PISTLE (POST-IPL SYSTEM LOADER).
           NOTE: THE "SEGMENT 2 LOADER" NOW LOADS INTO SEGMENTS 1 AND 2 (SHARED VM).
           INVOKED BY INIT:INITCMD (097/2 OR 097/3) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN
           SEG2:S2FILES (559/4).
0          Referenced by comments of: 553/2 
00559/02    PISTLE <SEG 2 LOADER>                    SA  G  PIST    W009:PISTLE.S                                                   
            D3.2T1  490  PISTLE_<SEG_2_LOADER>..SA.02       1 LINE     80   21 PAGE UM   DE JONG             MAR. 21, 1975  01:52:59
0          PROGRAM TO LOAD THINGS INTO UNUSED AREA AT THE END OF SHARED VM.
           READS A LIST OF FILE NAMES (NORMALLY SEG2:S2FILES) FROM SCARDS WHICH CONTAIN THE OBJECT DECKS
           TO BE LOADED.  EACH FILE MUST BEGIN WITH A LOADER "COM" CARD ON WHICH ENTRY POINT(S) TO THE
           MODULES IN THAT FILE ARE GIVEN.  THESE NAMES WILL BE ADDED TO LCSYMBOL WHEN THE LOADER FINISHES.
           IF PAR=NOTEST IS NOT GIVEN, THE LOADER LOADS INTO PRIVATE VM AND DOES NOT CHANGE LCSYMBOL.
           ORIGINALLY FROM UBC, THIS PROGRAM HAS BEEN MODIFIED FOR NEW LOADER INTERFACE AND TO NOT
           DIE ON THE FIRST ERROR.
            
           THIS PROGRAM ALLOWS PARAMETERS TO BE GIVEN AFTER THE FILE NAME ON INPUT LINES
           FROM SCARDS.  ALLOWABLE PARAMETERS ARE:
            
            IPL          USE LOADER TABLES GENERATED BY BSLOAD.
            NOMAP        SUPPRESS PRINTING OF MAP FOR THE LOADING OF THIS COMPONENT.
            NN           SPECIFY STORAGE INDEX NUMBER TO BE USED FOR LOADING THIS COMPONENT.
            
           THESE PARAMETERS ARE FULLY DESCRIBED IN THE PISTLE WRITEUP (559/5).
00559/03    PISTLE <SEG 2 LOADER>                    OC  G          SEG2:S2L                                                        
            D3.2T1  491  PISTLE_<SEG_2_LOADER>..OC.03       1 SEQ      80    2 PAGE UM   DE JONG             MAR. 21, 1975  01:53:07
00559/04    PISTLE <SEG 2 LOADER>    FILE LIST       D   G          SEG2:S2FILES                                                    
            D3.1T1  417  PISTLE_<SEG_2_LOADER>.FILE.D.4     1 LINE     15    1 PAGE UM   DWB                 MAR. 06, 1974  22:01.49
0          A LIST OF FILES FROM WHICH THE SEGMENT 2 LOADER WILL LOAD PROGRAMS AT IPL, I.E. WHEN INVOKED BY *S2L. 
0          Referenced by comments of: 559/1 
00559/05    PISTLE <SEG 2 LOADER>    WRITEUP         WF             W009:PISTLE.W                                                   
            D3.1T1  418  PISTLE_<SEG_2_LOADER>.WRIT.WF.5    1 LINE     93    3 PAGE UM   DE JONG             MAR. 06, 1974  22:01.52
0          Referenced by comments of: 559/2 
00560      *TYPEIT                                   C              *TYPEIT                                                         
            D3T4    311  TYPEIT..C.                         1 LINE     64    1 PAGE UM   LIFT                AUG. 01, 1973  23:10.49
0          A FILE WHICH CAN BE $SOURCED TO WHICH AIDS THE UM SECRETARIAL STAFF IN THE PREPARATION OF MATERIAL
           PRODUCED IN *FORMAT (308).  WE HAVE ATTEMPTED TO DISTRIBUTE ALL *FORMAT MACHINE-READABLE DOCUMENTATION
           IN THE FORM OF DIRECT INPUT TO *FORMAT AND NOT IN THE FORM USED WITH *TYPEIT.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00561/01   *UNEDIT                                   SA  G  UNED    WATF:UNEDIT(1,999)                                              
            D3T4    312  UNEDIT..SA.1                       1 LINE     80   10 PAGE UM   MTA                 AUG. 01, 1973  23:10.55
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/02   *UNEDIT                                   OE  G          *UNEDIT                                                         
            D3T4    313  UNEDIT..OE.2                       1 SEQ    2124    1 PAGE UM   MTA                 AUG. 01, 1973  23:11.03
00562/01   *UNLINKER                                 SA  G          W062:NEW.UNLINK                                                 
            D3T4    314  UNLINKER..SA.1                     1 LINE     80   28 PAGE UM   TIFFANY             AUG. 01, 1973  23:11.08
0          PROGRAM TO CHANGE OS/360 LOAD MODULES INTO MTS OBJECT DECKS.
           CALLS BLKRTN SUBROUTINE (SEE 291) FOR INPUT.
0          Referenced by comments of: 291/1, 291/3, 340/1 
00562/02   *UNLINKER                                 OC  G          W062:UNLINK                                                     
            D3T4    315  UNLINKER..OE.2                     1 SEQ    5664    2 PAGE UM   TIFFANY             AUG. 01, 1973  23:11.14
00563/01    CHAR MANIP SUBRS         BTD             SA     BTD0    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.BTD.SA.1                316
            D3T4    316  CHAR_MANIP_SUBRS.BTD.SA.1          1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.19
0          THESE ARE THE UBC CHARACTER MANIPULATION SUBROUTINES.
00563/02    CHAR MANIP SUBRS         LCOMC/COMC      SA     COMC    S0780 'D3.1T1' FSNAME=CHAR_MANIP_SUBRS.LCOMC/COM.SA.2        419
            D3.1T1  419  CHAR_MANIP_SUBRS.LCOMC/COM.SA.2    1 LINE     80    3 PAGE UBC  GOODRICH            MAR. 06, 1974  22:01.54
00563/03    CHAR MANIP SUBRS         DTB             SA     DTB0    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.DTB.SA.3                318
            D3T4    318  CHAR_MANIP_SUBRS.DTB.SA.3          1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.29
00563/04    CHAR MANIP SUBRS         FINDC           SA     FINC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDC.SA.4              319
            D3T4    319  CHAR_MANIP_SUBRS.FINDC.SA.4        1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.35
00563/05    CHAR MANIP SUBRS         FINDST          SA     FINS    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDST.SA.5             320
            D3T4    320  CHAR_MANIP_SUBRS.FINDST.SA.5       1 LINE     80    4 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.40
00563/06    CHAR MANIP SUBRS         IGC             SA     IGC0    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.IGC.SA.6                321
            D3T4    321  CHAR_MANIP_SUBRS.IGC.SA.6          1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.45
00563/07    CHAR MANIP SUBRS         MOVEC           SA     MOVC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.MOVEC.SA.7              322
            D3T4    322  CHAR_MANIP_SUBRS.MOVEC.SA.7        1 LINE     80    1 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.51
00563/08    CHAR MANIP SUBRS         SETC            SA     SETC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.SETC.SA.8               323
            D3T4    323  CHAR_MANIP_SUBRS.SETC.SA.8         1 LINE     80    1 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.58
00563/09    CHAR MANIP SUBRS         TRNC            SA     TRNC    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNC.SA.9               324
            D3T4    324  CHAR_MANIP_SUBRS.TRNC.SA.9         1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:12.02
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00563/10    CHAR MANIP SUBRS         TRNST           SA     TRNS    S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNST.SA.10             325
            D3T4    325  CHAR_MANIP_SUBRS.TRNST.SA.10       1 LINE     80    4 PAGE UBC  GOODRICH            AUG. 01, 1973  23:12.07
00563/11    CHAR MANIP SUBRS         EQUC            SA     EQUC    S0780 'D3.1T1' FSNAME=CHAR_MANIP_SUBRS.EQUC.SA.11            420
            D3.1T1  420  CHAR_MANIP_SUBRS.EQUC.SA.11        1 LINE     80    1 PAGE UBC  GOODRICH            MAR. 06, 1974  22:01.57
00563/12    CHAR MANIP SUBRS         OBJECT          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   GOODRICH                                   
00564/01    SYMBOL XREF PROGRAM                      SA  G  SSXR    MTA:SSXREF(1,999)                                               
            D3T4    327  SYMBOL_XREF_PROGRAM..SA.1          1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:12.18
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 WITH *SYSMAC.
00564/02    SYMBOL XREF PROGRAM                      OC  G          MTA:SSXREF(1000)                                                
            D3T4    328  SYMBOL_XREF_PROGRAM..OC.2          1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:12.23
00565/01    STOR PROTECT DIAGNOSTIC                  SA  G  PROT    S0723 'D3T4' FSNAME=STOR_PROTECT_DIAGNOSTIC..SA.1            329
            D3T4    329  STOR_PROTECT_DIAGNOSTIC..SA.1      1 LINE     80    5 PAGE UM   MTA                 AUG. 01, 1973  23:12.29
0          HARDWARE STORAGE PROTECT DIAGNOSTIC TO TEST ALL OF CORE ABOVE X'1000'.  PSW RESTART WILL RERUN
           THE TEST.  ASSUMES A 1052 TYPEWRITER AT ADDRESS 009.  IBM DOESN'T SEEM TO PROVIDE A DIAGNOSTIC
           TO PERFORM THE FUNCTIONS PROVIDED BY THIS PROGRAM.  THE FOLLOWING ERRORS ARE REPORTED BY NUMBER
           ALONG WITH THE FAILING ADDRESS:
            
             1.  INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 10.
             2.  KEY NOT EQUAL TO 14 AFTER TEST 1.
             3.  NO INTERRUPT ON STORE WITH PSW KEY 2 AND STORAGE KEY 10.
             4.  KEY NOT EQUAL TO 16 AFTER TEST 3.
             5.  STORAGE CHANGED AFTER TEST 3 OR INTERRUPT LOOKING.
             6.  NO INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 18.
             7.  KEY NOT EQUAL TO 1C AFTER TEST 6.
             8.  INTERRUPT ON LOAD WITH PSW KEY 1 AND STORAGE KEY 18.
             9.  KEY NOT EQUAL TO 1C AFTER TEST 8.
             10. INTERRUPT ON STORE WITH PSW KEY 1 AND STORAGE KEY 18.
             11. STORAGE NOT CHANGED CORRECTLY AFTER TEST 10 OR INTERRUPT LOOKING.
             12. KEY NOT EQUAL TO 1E AFTER TEST 10.
00565/02    STOR PROTECT DIAGNOSTIC                  OC  G          S0723 'D3T4' FSNAME=STOR_PROTECT_DIAGNOSTIC..OC.2            330
            D3T4    330  STOR_PROTECT_DIAGNOSTIC..OC.2      1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:12.34
0          NEEDS AN ABSOLUTE LOADER.  IPL ON A REAL OR VIRTUAL MACHINE.
00566/01   *PIL/2                    MACLIB          SM  G          S0543 MTSPIL 'MTSPIL2' POSN=MACLIB                           1  
            D3T4    331  PIL/2.MACLIB.SM.1                  1 SEQ      80   14 PAGE UM   TIFFANY             AUG. 01, 1973  23:13.57
0          *PIL/2 IS A NEWER (AND MUCH BETTER) VERSION OF *PIL (COMP 178) THE PITTSBURGH INTERPRETIVE LANGUAGE.
            
           MACLIB IS THE ONLY MACRO LIBRARY USED IN ASSEMBLING *PIL/2.
0          Referenced by comments of: 178/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00566/02   *PIL/2                    DSECT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DSECT                            2  
            D3T4    332  PIL/2.DSECT.SA.2                   1 SEQ      80    4 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.00
0          COMPS 566/2 THROUGH 566/10 ARE COPY SECTIONS.
00566/03   *PIL/2                    EQUS            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EQUS                             3  
            D3T4    333  PIL/2.EQUS.SA.3                    1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.04
00566/04   *PIL/2                    EVOUTPUT        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EVOUTPUT                         4  
            D3T4    334  PIL/2.EVOUTPUT.SA.4                1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.09
00566/05   *PIL/2                    FORMDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORMDS                           5  
            D3T4    335  PIL/2.FORMDS.SA.5                  1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.13
00566/06   *PIL/2                    KEYCODES        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=KEYCODES                         6  
            D3T4    336  PIL/2.KEYCODES.SA.6                1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.18
00566/07   *PIL/2                    PARTDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PARTDS                           7  
            D3T4    337  PIL/2.PARTDS.SA.7                  1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.23
00566/08   *PIL/2                    SCRDS           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SCRDS                            8  
            D3T4    338  PIL/2.SCRDS.SA.8                   1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.28
00566/09   *PIL/2                    STACKDS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STACKDS                          9  
            D3T4    339  PIL/2.STACKDS.SA.9                 1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.33
00566/10   *PIL/2                    STEPDS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STEPDS                           10 
            D3T4    340  PIL/2.STEPDS.SA.10                 1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.37
00566/11   *PIL/2                    PILL            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILL                             11 
            D3T4    341  PIL/2.PILL.SA.11                   1 SEQ      80    5 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.42
0          COMPS 566/11 THROUGH 566/48 ARE THE ASMG SOURCE FOR *PIL/2.
00566/12   *PIL/2                    READIT          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=READIT                           12 
            D3T4    342  PIL/2.READIT.SA.12                 1 SEQ      80    6 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.47
00566/13   *PIL/2                    TYPEIT          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPEIT                           13 
            D3T4    343  PIL/2.TYPEIT.SA.13                 1 SEQ      80    6 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.52
00566/14   *PIL/2                    PAGEMSG         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PAGEMSG                          14 
            D3T4    344  PIL/2.PAGEMSG.SA.14                1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:14.57
00566/15   *PIL/2                    CANIT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=CANIT                            15 
            D3T4    345  PIL/2.CANIT.SA.15                  1 SEQ      80    2 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.01
00566/16   *PIL/2                    PIL2            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PIL2                             16 
            D3T4    346  PIL/2.PIL2.SA.16                   1 SEQ      80   11 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.07
00566/17   *PIL/2                    DSBRK           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DSBRK                            17 
            D3T4    347  PIL/2.DSBRK.SA.17                  1 SEQ      80    8 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.11
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00566/18   *PIL/2                    BKDOWN          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=BKDOWN                           18 
            D3T4    348  PIL/2.BKDOWN.SA.18                 1 SEQ      80   21 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.17
00566/19   *PIL/2                    FORMPROC        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORMPROC                         19 
            D3T4    349  PIL/2.FORMPROC.SA.19               1 SEQ      80   44 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.24
00566/20   *PIL/2                    PILSQRT         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILSQRT                          20 
            D3T4    350  PIL/2.PILSQRT.SA.20                1 SEQ      80    2 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.28
00566/21   *PIL/2                    PILATAN         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILATAN                          21 
            D3T4    351  PIL/2.PILATAN.SA.21                1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.33
00566/22   *PIL/2                    PILSINE         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILSINE                          22 
            D3T4    352  PIL/2.PILSINE.SA.22                1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.38
00566/23   *PIL/2                    PILLOGE         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILLOGE                          23 
            D3T4    353  PIL/2.PILLOGE.SA.23                1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.43
00566/24   *PIL/2                    PILETX          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PILETX                           24 
            D3T4    354  PIL/2.PILETX.SA.24                 1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.48
00566/25   *PIL/2                    LOOKPS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=LOOKPS                           25 
            D3T4    355  PIL/2.LOOKPS.SA.25                 1 SEQ      80    6 PAGE UM   TIFFANY             AUG. 01, 1973  23:15.53
00566/26   *PIL/2                    WANT16          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=WANT16                           26 
            D3T4    356  PIL/2.WANT16.SA.26                 1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.00
00566/27   *PIL/2                    MOVPOL          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=MOVPOL                           27 
            D3T4    357  PIL/2.MOVPOL.SA.27                 1 SEQ      80    4 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.02
00566/28   *PIL/2                    FORTROL         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORTROL                          28 
            D3T4    358  PIL/2.FORTROL.SA.28                1 SEQ      80    6 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.07
00566/29   *PIL/2                    RETHEAD         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=RETHEAD                          29 
            D3T4    359  PIL/2.RETHEAD.SA.29                1 SEQ      80    5 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.12
00566/30   *PIL/2                    TALPL           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TALPL                            30 
            D3T4    360  PIL/2.TALPL.SA.30                  1 SEQ      80    2 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.17
00566/31   *PIL/2                    CONVERT         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=CONVERT                          31 
            D3T4    361  PIL/2.CONVERT.SA.31                1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.22
00566/32   *PIL/2                    STEPMESS        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STEPMESS                         32 
            D3T4    362  PIL/2.STEPMESS.SA.32               1 SEQ      80    2 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.27
00566/33   *PIL/2                    FUNCS           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FUNCS                            33 
            D3T4    363  PIL/2.FUNCS.SA.33                  1 SEQ      80   30 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.34
00566/34   *PIL/2                    LOPL            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=LOPL                             34 
            D3T4    364  PIL/2.LOPL.SA.34                   1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.37
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00566/35   *PIL/2                    DELVALS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=DELVALS                          35 
            D3T4    365  PIL/2.DELVALS.SA.35                1 SEQ      80   25 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.45
00566/36   *PIL/2                    XFORMX          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=XFORMX                           36 
            D3T4    366  PIL/2.XFORMX.SA.36                 1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.48
00566/37   *PIL/2                    EXTRANS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EXTRANS                          37 
            D3T4    367  PIL/2.EXTRANS.SA.37                1 SEQ      80    3 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.53
00566/38   *PIL/2                    TYPEPS          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPEPS                           38 
            D3T4    368  PIL/2.TYPEPS.SA.38                 1 SEQ      80   15 PAGE UM   TIFFANY             AUG. 01, 1973  23:16.59
00566/39   *PIL/2                    XPRES           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=XPRES                            39 
            D3T4    369  PIL/2.XPRES.SA.39                  1 SEQ      80   19 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.05
00566/40   *PIL/2                    MINDIR          SA  G          S0543 MTSPIL 'MTSPIL2' POSN=MINDIR                           40 
            D3T4    370  PIL/2.MINDIR.SA.40                 1 SEQ      80    5 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.08
00566/41   *PIL/2                    HEADINS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=HEADINS                          41 
            D3T4    371  PIL/2.HEADINS.SA.41                1 SEQ      80    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.12
00566/42   *PIL/2                    STROP           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=STROP                            42 
            D3T4    372  PIL/2.STROP.SA.42                  1 SEQ      80   15 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.18
00566/43   *PIL/2                    SETUP           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SETUP                            43 
            D3T4    373  PIL/2.SETUP.SA.43                  1 SEQ      80    6 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.22
00566/44   *PIL/2                    SPLIT           SA  G          S0543 MTSPIL 'MTSPIL2' POSN=SPLIT                            44 
            D3T4    374  PIL/2.SPLIT.SA.44                  1 SEQ      80    2 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.26
00566/45   *PIL/2                    FORBREAK        SA  G          S0543 MTSPIL 'MTSPIL2' POSN=FORBREAK                         45 
            D3T4    375  PIL/2.FORBREAK.SA.45               1 SEQ      80   10 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.34
00566/46   *PIL/2                    EVAL            SA  G          S0543 MTSPIL 'MTSPIL2' POSN=EVAL                             46 
            D3T4    376  PIL/2.EVAL.SA.46                   1 SEQ      80   28 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.40
00566/47   *PIL/2                    TYPARRY         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=TYPARRY                          47 
            D3T4    377  PIL/2.TYPARRY.SA.47                1 SEQ      80   12 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.44
00566/48   *PIL/2                    PROCESS         SA  G          S0543 MTSPIL 'MTSPIL2' POSN=PROCESS                          48 
            D3T4    378  PIL/2.PROCESS.SA.48                1 SEQ      80   51 PAGE UM   TIFFANY             AUG. 01, 1973  23:17.54
00566/49   *PIL/2                    *PIL/2          OC  G          LBT:PILL                                                        
            D3T4    379  PIL/2.*PIL/2.OC.49                 1 LINE     24    1 PAGE UM   TIFFANY             AUG. 01, 1973  23:20.04
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SEGMENT 2 PIL/2 (566/51).
           WHEN PIL/2 IS MADE OFFICIALLY AVAILABLE (VERY SOON), THIS WILL BE IN THE FILE "*PIL/2".
00566/50   *PIL/2                    OBJECT          OE  G          SEG2:PIL                                                        
            D3T4    380  PIL/2.OBJECT.OE.50                 1 SEQ     256   20 PAGE UM   TIFFANY             AUG. 01, 1973  23:20.04
0          PIL/2 IS RE-ENTRANT AND IS LOADED IN TO SHARED VM AT IPL BY THE SEG 2 LOADER.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00566/51   *PIL/2                    USER'S GUIDE    WT             W062:M                                                          
            D3T4    381  PIL/2.USER'S_GUIDE.WT.51           1 SEQ     256   82 PAGE UM   TIFFANY             AUG. 01, 1973  23:20.09
0          TEXT/360 MASTER FOR PIL/2 USER'S GUIDE (MTS VOLUME 12).
0          Referenced by comments of: 566/49 
00566/52   *PIL/2                    USER'S GUIDE    PT             W062:P                                                          
            D3T4    382  PIL/2.USER'S_GUIDE.PT.52           1 SEQ     132  294 PAGE UM   TIFFANY             AUG. 01, 1973  23:20.18
0          TEXT/360 PRINT FILE FOR THE PIL/2 USER'S GUIDE (MTS VOLUME 12).  NOTE:  THIS IS NOT QUITE READY TO BE PRINTED
           YET, AND THEREFORE WE ARE NOT SENDING HARD COPY.
00567/01   *1052RTN                                  SA  O  TFTS    S0723 'D3T4' FSNAME=1052RTN..SA.1                            383
            D3T4    383  1052RTN..SA.1                      1 LINE     80   37 PAGE UM   MTA                 AUG. 01, 1973  23:20.54
0          MTS DEVICE SUPPORT ROUTINES FOR 1052 OPERATOR'S CONSOLE.  ALLOWS USE OF ALTERNATE
           CONSOLE ON DUPLEX 67 AS MTS TERMINAL.
00567/02   *1052RTN                                  OC  O          *1052RTN                                                        
            D3T4    384  1052RTN..OC.2                      1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:21.04
00568/01   *TIMETALLY                                SA  G  TTLY    W047:TIMETALLY.S                                                
            D3.2T1  492  TIMETALLY..SA.01                   1 LINE     80   45 PAGE UM   HAMILTON            MAR. 21, 1975  01:53:09
0          TIMETALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO PRODUCE A HISTOGRAM
           DEPICTING THE DISTRIBUTION OF CPU ACTIVITY WITHIN THE PROGRAM.
           COPIES *CNFGINFODSECT (654).
00568/02   *TIMETALLY                                OE  G          *TIMETALLY                                                      
            D3.2T1  493  TIMETALLY..OE.02                   1 SEQ   32670   12 PAGE UM   HAMILTON            MAR. 21, 1975  01:53:14
00569/01    PCE SNIFFER                              SA     PCE0    DWB:PCE(1,999)                                                  
            D3T4    387  PCE_SNIFFER..SA.1                  1 LINE     80    4 PAGE UM   DWB                 AUG. 01, 1973  23:21.23
0          PCE SNIFFER UTILITY PROGRAM.
           EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE:
            
             F:N1   B:N2   T: N3P  N4U  N5B
            
           WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S,
                 N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION,
                 N3 IS THE NUMBER OF *PRINT* PCE'S,
                 N4 IS THE NUMBER OF *PUNCH* PCE'S,
                 AND N5 IS THE NUMBER OF *BATCH* PCE'S.
            
           IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS
           FROM THE PREVIOUS LINE PRINTED.
           IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE
           USER THEY THINK THEY ARE.  IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS
           FROM THE JCT ID, IT PRINTS:
            
             PCE: AAAAA   JCTID: IIII    JOB TABLE: PPPPPPPP   JOB N
            
1                                                                                               FRI AUG 02/96   19:04:25   Page  209
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          WHERE AAAAA IS THE HEX LOCN OF THE PCE,
                 IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL),
                 PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER),
                 AND N IS THE JOB NUMBER.
            
           USES IOH (278) FOR OUTPUT FORMATTING AND HAS ABSOLUTE DEFINITIONS FOR DISPLACEMENTS OF SOME ITEMS IN
           PCE AND WORK AREA OF EXECUTION PCE.
00569/02    PCE SNIFFER                              OC             DWB:PCE(1000)                                                   
            D3T4    388  PCE_SNIFFER..OC.2                  1 LINE     80    1 PAGE UM   DWB                 AUG. 01, 1973  23:21.28
00570/01   *MNETRTN                                  SA  G  MNET    WSG:MNET                                                        
            D3T4    389  MNETRTN..SA.1                      1 LINE     80   64 PAGE UM   WSG                 AUG. 01, 1973  23:21.33
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).
00570/02   *MNETRTN                                  OC  G          *MNETRTN                                                        
            D3T4    390  MNETRTN..O.2                       1 LINE     80    5 PAGE UM   WSG                 AUG. 01, 1973  23:21.58
00571/01    APL LIBRARY WS           ADVANCEDE       D              APL:001ADVANCEDE                                                
            D3T4    391  APL_LIBRARY_WS.ADVANCEDE.D.1       1 LINE    255    6 PAGE UM   DWB                 AUG. 01, 1973  23:22.03
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/02    APL LIBRARY WS           APLCOURSE       D              APL:001APLCOURSE                                                
            D3T4    392  APL_LIBRARY_WS.APLCOURSE.D.2       1 LINE    255    6 PAGE UM   DWB                 AUG. 01, 1973  23:22.07
00571/03    APL LIBRARY WS           CLASS           D              APL:001CLASS                                                    
            D3T4    393  APL_LIBRARY_WS.CLASS.D.3           1 LINE    255    7 PAGE UM   DWB                 AUG. 01, 1973  23:22.12
00571/04    APL LIBRARY WS           EIGENVALU       D            # (NOT AVAILABLE)                                                 
                                                                                    UM   DWB                                        
00571/05    APL LIBRARY WS           NEWS            D              APL:001NEWS                                                     
            D3T4    394  APL_LIBRARY_WS.NEWS.D.5            1 SEQ   26040    8 PAGE UM   DWB                 AUG. 01, 1973  23:22.18
00571/06    APL LIBRARY WS           PLOTFORMA       D              APL:001PLOTFORMA                                                
            D3T4    395  APL_LIBRARY_WS.PLOTFORMA.D.6       1 LINE    255    6 PAGE UM   DWB                 AUG. 01, 1973  23:22.23
00571/07    APL LIBRARY WS           TYPEDRILL       D              APL:001TYPEDRILL                                                
            D3T4    396  APL_LIBRARY_WS.TYPEDRILL.D.7       1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:22.30
00571/08    APL LIBRARY WS           WSFNS           D              APL:001WSFNS                                                    
            D3T4    397  APL_LIBRARY_WS.WSFNS.D.8           1 LINE    255    3 PAGE UM   DWB                 AUG. 01, 1973  23:22.34
00571/09    APL LIBRARY WS           CATALOG         D              APL:002CATALOG                                                  
            D3T4    398  APL_LIBRARY_WS.CATALOG.D.9         1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:22.39
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00571/10    APL LIBRARY WS           STP1            D              APL:002STP1                                                     
            D3T4    399  APL_LIBRARY_WS.STP1.D.10           1 LINE    255    9 PAGE UM   DWB                 AUG. 01, 1973  23:22.45
00571/11    APL LIBRARY WS           STP2            D              APL:002STP2                                                     
            D3T4    400  APL_LIBRARY_WS.STP2.D.11           1 LINE    255    6 PAGE UM   DWB                 AUG. 01, 1973  23:22.52
00571/12    APL LIBRARY WS           STP3            D              APL:002STP3                                                     
            D3T4    401  APL_LIBRARY_WS.STP3.D.12           1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:22.55
00571/13    APL LIBRARY WS           STP4            D              APL:002STP4                                                     
            D3T4    402  APL_LIBRARY_WS.STP4.D.13           1 LINE    255    9 PAGE UM   DWB                 AUG. 01, 1973  23:23.01
00571/14    APL LIBRARY WS           STP5            D              APL:002STP5                                                     
            D3T4    403  APL_LIBRARY_WS.STP5.D.14           1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:23.06
00571/15    APL LIBRARY WS           STP6            D              APL:002STP6                                                     
            D3T4    404  APL_LIBRARY_WS.STP6.D.15           1 LINE    255    5 PAGE UM   DWB                 AUG. 01, 1973  23:23.11
00571/16    APL LIBRARY WS           STP7            D              APL:002STP7                                                     
            D3T4    405  APL_LIBRARY_WS.STP7.D.16           1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:23.16
00571/17    APL LIBRARY WS           STP8            D              APL:002STP8                                                     
            D3T4    406  APL_LIBRARY_WS.STP8.D.17           1 LINE    255    5 PAGE UM   DWB                 AUG. 01, 1973  23:23.23
00571/18    APL LIBRARY WS           COMPLEX         D              APL:003COMPLEX                                                  
            D3T4    407  APL_LIBRARY_WS.COMPLEX.D.18        1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:23.27
00571/19    APL LIBRARY WS           INDEX           D              APL:003INDEX                                                    
            D3T4    408  APL_LIBRARY_WS.INDEX.D.19          1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:23.32
00571/20    APL LIBRARY WS           UTIL            D              APL:003UTIL                                                     
            D3T4    409  APL_LIBRARY_WS.UTIL.D.20           1 LINE    255    3 PAGE UM   DWB                 AUG. 01, 1973  23:23.37
00571/21    APL LIBRARY WS           ALGFORM         D              APL:005ALGFORM                                                  
            D3T4    410  APL_LIBRARY_WS.ALGFORM.D.21        1 LINE    255    6 PAGE UM   DWB                 AUG. 01, 1973  23:23.43
00571/22    APL LIBRARY WS           COGO            D              APL:005COGO                                                     
            D3T4    411  APL_LIBRARY_WS.COGO.D.22           1 LINE    255    9 PAGE UM   DWB                 AUG. 01, 1973  23:23.48
00571/23    APL LIBRARY WS           COMPCENT        D              APL:005COMPCENT                                                 
            D3T4    412  APL_LIBRARY_WS.COMPCENT.D.23       1 LINE    255    3 PAGE UM   DWB                 AUG. 01, 1973  23:23.53
00571/24    APL LIBRARY WS           CW              D              APL:005CW                                                       
            D3T4    413  APL_LIBRARY_WS.CW.D.24             1 LINE    255    7 PAGE UM   DWB                 AUG. 01, 1973  23:23.59
00571/25    APL LIBRARY WS           EDIT            D              APL:005EDIT                                                     
            D3T4    414  APL_LIBRARY_WS.EDIT.D.25           1 LINE    255    7 PAGE UM   DWB                 AUG. 01, 1973  23:24.05
00571/26    APL LIBRARY WS           MATRIXALG       D              APL:005MATRIXALG                                                
            D3T4    415  APL_LIBRARY_WS.MATRIXALG.D.26      1 LINE    255    8 PAGE UM   DWB                 AUG. 01, 1973  23:24.10
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00571/27    APL LIBRARY WS           SNOBOL          D              APL:005SNOBOL                                                   
            D3T4    416  APL_LIBRARY_WS.SNOBOL.D.27         1 LINE    255    6 PAGE UM   DWB                 AUG. 01, 1973  23:24.15
00571/28    APL LIBRARY WS           SRADEMO         D              APL:005SRADEMO                                                  
            D3T4    417  APL_LIBRARY_WS.SRADEMO.D.28        1 LINE    255    9 PAGE UM   DWB                 AUG. 01, 1973  23:24.20
00572/01    BLOKLETR                                 SA  G  BKLT    DWB:BLOKLETR.S                                                  
            D3T4    418  BLOKLETR..SA.1                     1 LINE     80    7 PAGE UM   DWB                 AUG. 01, 1973  23:24.26
0          SUBROUTINE CALLLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS.
00572/02    BLOKLETR                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00573/01    MTS VOLUME 5             MASTER          WT             S0451 MTSV5 'MTS MANUALS' POSN=NEWM2.V5                      11 
            D3T4    419  MTS_VOLUME_5.MASTER.WT.1           1 SEQ     132  242 PAGE UM   SALISBURY           AUG. 01, 1973  23:30.30
0          TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" (REVISED MARCH 1974) OF THE UM MTS MANUAL.
00573/02    MTS VOLUME 5             PRINT           PT             S0451 MTSV5 'MTS MANUALS' POSN=PRINT2.V5                     12 
            D3T4    420  MTS_VOLUME_5.PRINT.PT.2            1 SEQ     132  570 PAGE UM   SALISBURY           AUG. 01, 1973  23:31.54
0          TEXT/360 PRINT FILE.
00573/03    MTS VOLUME 5             FORMAT EXAMP    PF             S0451 MTSV5 'MTS MANUALS' POSN=V5FORMATEXA                   7  
                                                                                    UM   SALISBURY                                  
00573/04    MTS VOLUME 5             TEXT360 EXAMP   PT             S0451 MTSV5 'MTS MANUALS' POSN=V5TEXT360EXA                  8  
                                                                                    UM   SALISBURY                                  
00573/05    MTS VOLUME 5             LOADER MAP      P              S0451 MTSV5 'MTS MANUALS' POSN=V5LOADERMAP                   9  
                                                                                    UM   SALISBURY                                  
00573/06    MTS VOLUME 5             INDEX SOURCE    D              S0451 MTSV5 'MTS MANUALS' POSN=V5INDEXSOU                    10 
                                                                                    UM   SALISBURY                                  
00574/01    MTS VOLUME 10            MASTER          WT  G          S0546 MTSV10 'MTS MANUALS' POSN=NEWM2.V10                       
            D3T4    421  MTS_VOLUME_10.MASTER.WT.1          1 SEQ     133  236 PAGE UM   SALISBURY           AUG. 01, 1973  23:34.08
0          TEXT/360 MASTER FOR VOLUME 10 "BASIC IN MTS" OF THE UM MTS MANUAL.
00574/02    MTS VOLUME 10            PRINT           PT  G          S0546 MTSV10 'MTS MANUALS' POSN=VOL10SEPT74                     
            D3T4    422  MTS_VOLUME_10.PRINT.PT.2           1 SEQ     132  839 PAGE UM   SALISBURY           AUG. 01, 1973  23:35.37
0          TEXT/360 PRINT FILE.
00575/01    MTS VOLUME 4             MASTER          WT  G          S0616 MTSV4 'MTS MANUALS' POSN=NEWM3.V4                         
            D3T4    424  MTS_VOLUME_4.MASTER.WT.1           1 SEQ     132  157 PAGE UM   SALISBURY           AUG. 01, 1973  23:39.38
0          TEXT/360 MASTER FOR VOLUME 4 "TERMINALS AND TAPES" OF THE UM MTS MANUALS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00575/02    MTS VOLUME 4             PRINT           PT  G          S0616 MTSV4 'MTS MANUALS' POSN=PRINT3.V4                        
            D3T4    425  MTS_VOLUME_4.PRINT.PT.2            1 SEQ     132  596 PAGE UM   SALISBURY           AUG. 01, 1973  23:40.43
0          TEXT/360 PRINT FILE.
00575/03    MTS VOLUME 4             KEYBOARD PLOT   SF             W032:KBDPLOTSOU                                                 
            D3T4    426  MTS_VOLUME_4.KEYBOARD_PLOT.SF.3    1 LINE     80   10 PAGE UM   EMERY               AUG. 01, 1973  23:41.35
0          FORTRAN PROGRAM TO PRODUCE THE CALCOMP KEYBOARD PLOTS USED IN THE MEMOREX 1270 (IBM 2703)
           USER'S GUIDE IN VOLUME 4.  REQUIRES A SPECIAL VERSION OF THE CALCOMP 'SYMBOL' ROUTINE (575/4 AND 575/5).
           USES EBCDDEFN (038/9) AND GOLFPTTC (038/10) (OR GOLFCORR (038/11)) AS INPUT DURING EXECUTION.
           OBJECT NOT DISTRIBUTED.
0          Referenced by comments of: 575/4 
00575/04    MTS VOLUME 4             SYMBOL SUBR     SA  S          W032:PSYMBSOU3.1                                                
            D3.1T1  424  MTS_VOLUME_4.SYMBOL_SUBR.SA.4      1 LINE     80   16 PAGE UM   EMERY               MAR. 06, 1974  22:04.18
0          THIS IS A SPECIAL VERSION OF THE CALCOMP 'SYMBOL' ROUTINES INTENDED FOR USE WITH THE KEYBOARD
           PLOT PROGRAM (575/3).
00575/05    MTS VOLUME 4             SYMBOL SUBR     OC  S          W032:PSYMBOBJ3.1                                                
            D3.1T1  425  MTS_VOLUME_4.SYMBOL_SUBR.OC.5      1 LINE     80    3 PAGE UM   EMERY               MAR. 06, 1974  22:04.21
00576/01    OMR CONVERT                              SA  G  COMR    DWB:CVTOMR.D3(1,999)                                            
            D3.1T1  426  OMR_CONVERT..SA.1                  1 LINE     80   14 PAGE UM   DWB                 MAR. 06, 1974  22:04.23
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/02    OMR CONVERT                              OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
0          Referenced by comments of: 86/2 
00576/03    OMR CONVERT              WRITEUP         WF             W098:KDM250                                                     
            D3.1T1  427  OMR_CONVERT.WRITEUP.WF.3           1 LINE    136    7 PAGE UM   EMERY               MAR. 06, 1974  22:04.34
0          THIS IS COMPUTING CENTER MEMO M250 -- "OPTICAL MARK READING AND THE OPTICAL MTS AND FORTRAN CARD"
00577/01    MACHINE CHECK RECOVERY   67 CEAIR        SA  G  EAIR    S0938 FSAVE2 FSNAME=CEAIR.S                                     
            D3.2T1  494  MACHINE_CHECK_RECOVERY.67.SA.01    1 LINE     80   18 PAGE UM   MTA                 FEB. 13, 1975  23:51:55
0          THE MTS 360/67 MACHINE CHECK ERROR RECOVERY.  MODIFIED (AND DEBUGGED) FROM TSS/360 BY UBC AND UM.
            
           CEAIR IS THE RECOVERY NUCLEUS.  COPIES COPY:CHAERC (577/30), COPY:LLMPSEQU (087), COPY:PSA (162),
           AND COPY:CHADMR (577/29).
00577/02    MACHINE CHECK RECOVERY   67 CEAIR        OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00577/03    MACHINE CHECK RECOVERY   67 CMASA        SA  G  MASA    S0938 FSAVE2 FSNAME=CMASA.S                                     
            D3.2T1  495  MACHINE_CHECK_RECOVERY.67.SA.03    1 LINE     80   14 PAGE UM   MTA                 FEB. 13, 1975  23:52:02
0          BOOTSTRAP.  COPIES COPY:CHAERC (577/30), COPY:CHASYS.2 (577/35), COPY:LLMPSEQU (087), AND COPY:PSA (162).
00577/04    MACHINE CHECK RECOVERY   67 CMASA        OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00577/05    MACHINE CHECK RECOVERY   67 CEABE        SA  G  EABE    S0938 FSAVE2 FSNAME=CEABE.S                                     
            D3.2T1  496  MACHINE_CHECK_RECOVERY.67.SA.05    1 LINE     80   20 PAGE UM   MTA                 FEB. 13, 1975  23:51:48
0          EXTERNAL MACHINE CHECK HANDLER.  COPIES COPY:CHACHL(11,27) (577/27), COPY:CHADMR (577/29), COPY:CHAERE (577/31),
           COPY:LLMPSEQU (087), COPY:CHAPSA(1,51) (577/34), AND COPY:PSA (162).
00577/06    MACHINE CHECK RECOVERY   67 CEABE        OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00577/07    MACHINE CHECK RECOVERY   67 CMASB        SA  G  MASB    S0938 FSAVE2 FSNAME=CMASB.S                                     
            D3.2T1  497  MACHINE_CHECK_RECOVERY.67.SA.07    1 LINE     80   15 PAGE UM   MTA                 FEB. 13, 1975  23:52:06
0          ERROR RECORDING.  COPIES COPY:LLMPSEQU (087), COPY:PSA (162), AND COPY:CHAOER (577/33).
00577/08    MACHINE CHECK RECOVERY   67 CMASB        OC  G        # (PART OF 577/52)                                                
            D3T4    435  MACHINE_CHECK_REC'Y.CMASB.O.8      1 LINE     80    2 PAGE UM   MTA                 AUG. 01, 1973  23:45.44
00577/09    MACHINE CHECK RECOVERY   67 CMASC        SA  G  MASC    S0938 FSAVE2 FSNAME=CMASC.S                                     
            D3.2T1  498  MACHINE_CHECK_RECOVERY.67.SA.09    1 LINE     80   13 PAGE UM   MTA                 FEB. 13, 1975  23:52:10
0          IMMEDIATE PRINT.  COPIES COPY:CHAERC (577/30).
00577/10    MACHINE CHECK RECOVERY   67 CMASC        OC  G        # (PART OF 577/52)                                                
            D3.1T1  432  MACHINE_CHECK_REC'Y.CMASC.OC.10    1 LINE     80    2 PAGE UM   MTA                 MAR. 06, 1974  22:04.55
00577/11    MACHINE CHECK RECOVERY   67 CMASD        SA  G  MASD    S0938 FSAVE2 FSNAME=CMASD.S                                     
            D3.2T1  499  MACHINE_CHECK_RECOVERY.67.SA.11    1 LINE     80   28 PAGE UM   MTA                 FEB. 13, 1975  23:52:13
0          CHECKER (CHECKS PARITY ETC.).  COPIES COPY:CHAPSA (577/34) AND COPY:CHACST (577/28).
00577/12    MACHINE CHECK RECOVERY   67 CMASD        OC  G        # (PART OF 577/52)                                                
            D3.1T1  434  MACHINE_CHECK_REC'Y.CMASD.OC.12    1 LINE     80    3 PAGE UM   MTA                 MAR. 06, 1974  22:05.05
00577/13    MACHINE CHECK RECOVERY   67 CMASE        SA  G  MASE    S0938 FSAVE2 FSNAME=CMASE.S                                     
            D3.2T1  500  MACHINE_CHECK_RECOVERY.67.SA.13    1 LINE     80   30 PAGE UM   MTA                 FEB. 13, 1975  23:52:17
0          POINTER (FIND FAILING INSTRUCTION).
00577/14    MACHINE CHECK RECOVERY   67 CMASE        OC  G        # (PART OF 577/52)                                                
            D3T4    441  MACHINE_CHECK_REC'Y.CMASE.O.14     1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:46.13
00577/15    MACHINE CHECK RECOVERY   67 CMASF        SA  G  MASF    S0938 FSAVE2 FSNAME=CMASF.S                                     
            D3.2T1  501  MACHINE_CHECK_RECOVERY.67.SA.15    1 LINE     80   23 PAGE UM   MTA                 FEB. 13, 1975  23:52:22
0          RESTORE AND VALIDATE.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00577/16    MACHINE CHECK RECOVERY   67 CMASF        OC  G        # (PART OF 577/52)                                                
            D3T4    443  MACHINE_CHECK_REC'Y.CMASF.O.16     1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:46.24
00577/17    MACHINE CHECK RECOVERY   67 CMASG        SA  G  MASG    S0938 FSAVE2 FSNAME=CMASG.S                                     
            D3.2T1  502  MACHINE_CHECK_RECOVERY.67.SA.17    1 LINE     80   26 PAGE UM   MTA                 FEB. 13, 1975  23:52:26
0          INSTRUCTION RETRY.  COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:PSA (162).
00577/18    MACHINE CHECK RECOVERY   67 CMASG        OC  G        # (PART OF 577/52)                                                
            D3.1T1  436  MACHINE_CHECK_REC'Y.CMASG.OC.18    1 LINE     80    3 PAGE UM   MTA                 MAR. 06, 1974  22:05.13
00577/19    MACHINE CHECK RECOVERY   67 CMASH        SA  G  MASH    S0938 FSAVE2 FSNAME=CMASH.S                                     
            D3.2T1  503  MACHINE_CHECK_RECOVERY.67.SA.19    1 LINE     80   35 PAGE UM   MTA                 FEB. 13, 1975  23:52:30
0          FIRST DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/20    MACHINE CHECK RECOVERY   67 CMASH        OC  G        # (PART OF 577/52)                                                
            D3T4    447  MACHINE_CHECK_REC'Y.CMASH.O.20     1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:46.47
00577/21    MACHINE CHECK RECOVERY   67 CMASI        SA  G  MASI    S0938 FSAVE2 FSNAME=CMASI.S                                     
            D3.2T1  504  MACHINE_CHECK_RECOVERY.67.SA.21    1 LINE     80   30 PAGE UM   MTA                 FEB. 13, 1975  23:52:36
0          SECOND DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/22    MACHINE CHECK RECOVERY   67 CMASI        OC  G        # (PART OF 577/52)                                                
            D3.1T1  438  MACHINE_CHECK_REC'Y.CMASI.OC.22    1 LINE     80    3 PAGE UM   MTA                 MAR. 06, 1974  22:05.27
00577/23    MACHINE CHECK RECOVERY   67 CMASJ        SA  G  MASJ    S0938 FSAVE2 FSNAME=CMASJ.S                                     
            D3.2T1  505  MACHINE_CHECK_RECOVERY.67.SA.23    1 LINE     80   17 PAGE UM   MTA                 FEB. 13, 1975  23:52:41
0          THIRD DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/24    MACHINE CHECK RECOVERY   67 CMASJ        OC  G        # (PART OF 577/52)                                                
            D3T4    451  MACHINE_CHECK_REC'Y.CMASJ.O.24     1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:47.10
00577/25    MACHINE CHECK RECOVERY   67 CGCMA        SA  G  GCMA    S0938 FSAVE2 FSNAME=CGCMA.S                                     
            D3.2T1  506  MACHINE_CHECK_RECOVERY.67.SA.25    1 LINE     80   22 PAGE UM   MTA                 FEB. 13, 1975  23:51:58
0          RECONFIGURATION.  COPIES COPY:PCBDSECT (470), COPY:CHADMR (577/29), COPY:PSA (162), AND COPY:LLMPSEQU (087).
00577/26    MACHINE CHECK RECOVERY   67 CGCMA        OC  G        # (PART OF 577/52)                                                
            D3.1T1  440  MACHINE_CHECK_REC'Y.CGCMA.OC.26    1 LINE     80    3 PAGE UM   MTA                 MAR. 06, 1974  22:05.33
00577/27    MACHINE CHECK RECOVERY   67 CHACHL       SA  G  CHL0    S0938 FSAVE2 FSNAME=COPY:CHACHL                                 
            D3.2T1  507  MACHINE_CHECK_RECOVERY.67.SA.27    1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:52:48
0          COPY SECTION FOR TSS FLAVOR CHANNEL TABLE.
0          Referenced by comments of: 577/5 
00577/28    MACHINE CHECK RECOVERY   67 CHACST       SA  G  CST0    S0938 FSAVE2 FSNAME=COPY:CHACST                                 
            D3.2T1  508  MACHINE_CHECK_RECOVERY.67.SA.28    1 LINE     80    2 PAGE UM   MTA                 FEB. 13, 1975  23:52:51
0          COPY SECTION FOR CPU STATUS TABLE.
1                                                                                               FRI AUG 02/96   19:04:25   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          Referenced by comments of: 97/11, 121/2, 577/11, 577/19, 577/21, 577/23, 611/1, 654/1 
00577/29    MACHINE CHECK RECOVERY   67 CHADMR       SA  G  DMR0    S0938 FSAVE2 FSNAME=COPY:CHADMR                                 
            D3.2T1  509  MACHINE_CHECK_RECOVERY.67.SA.29    1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:52:53
0          COPY SECTION FOR DAMAGE REPORT.
0          Referenced by comments of: 577/1, 577/5, 577/25 
00577/30    MACHINE CHECK RECOVERY   67 CHAERC       SA  G  ERC0    COPY:CHAERC                                                     
            D3.2T1  510  MACHINE_CHECK_RECOVERY.67.SA.30    1 LINE     80    4 PAGE UM   MTA                 MAR. 21, 1975  01:54:50
0          COPY SECTION FOR ERROR RECOVERY CONTROL TABLE (X'C00' IN PSA).
0          Referenced by comments of: 46/2, 577/1, 577/3, 577/9, 589/1 
00577/31    MACHINE CHECK RECOVERY   67 CHAERE       SA  G  ERE0    S0938 FSAVE2 FSNAME=COPY:CHAERE                                 
            D3.2T1  511  MACHINE_CHECK_RECOVERY.67.SA.31    1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:52:58
0          COPY SECTION FOR EXTERNAL MACHINE CHECK ERROR RECORD FORMAT.
0          Referenced by comments of: 577/5, 577/37 
00577/32    MACHINE CHECK RECOVERY   67 CHAIER       SA  G  IER0    S0938 FSAVE2 FSNAME=COPY:CHAIER                                 
            D3.2T1  512  MACHINE_CHECK_RECOVERY.67.SA.32    1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:53:01
0          COPY SECTION FOR INBOARD I/O ERROR RECORD FORMAT.
0          Referenced by comments of: 577/37, 589/1 
00577/33    MACHINE CHECK RECOVERY   67 CHAOER       SA  G  OER0    S0938 FSAVE2 FSNAME=COPY:CHAOER                                 
            D3.2T1  513  MACHINE_CHECK_RECOVERY.67.SA.33    1 LINE     80    1 PAGE UM   MTA                 FEB. 13, 1975  23:53:03
0          COPY SECTION FOR OUTBOARD I/O ERROR RECORD FORMAT.
0          Referenced by comments of: 577/7, 577/37 
00577/34    MACHINE CHECK RECOVERY   67 CHAPSA       SA  G  PSA0    S0938 FSAVE2 FSNAME=COPY:CHAPSA                                 
            D3.2T1  514  MACHINE_CHECK_RECOVERY.67.SA.34    1 LINE     80    3 PAGE UM   MTA                 FEB. 13, 1975  23:53:06
0          COPY SECTION FOR TSS FLAVOR PSA.
0          Referenced by comments of: 577/5, 577/11, 577/19, 577/21, 577/23, 588/1 
00577/35    MACHINE CHECK RECOVERY   67 CHASYS.2     SA  G  SYS2    COPY:CHASYS.2                                                   
            D3.2T1  515  MACHINE_CHECK_RECOVERY.67.SA.35    1 LINE     80    1 PAGE UM   MTA                 MAR. 21, 1975  01:55:03
0          COPY SECTION FOR THE 'SYSTEM TABLE'.
0          Referenced by comments of: 46/2, 577/3 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00577/36    MACHINE CHECK RECOVERY   67 CHASDT       SA  G  SDT0    S0938 FSAVE2 FSNAME=COPY:CHASDT                                 
            D3.2T1  516  MACHINE_CHECK_RECOVERY.67.SA.36    1 LINE     80    3 PAGE UM   MTA                 FEB. 13, 1975  23:53:08
0          COPY SECTION FOR STATISTICAL DATA TABLE.  NOT USED BY MTS.
0          Referenced by comments of: 577/37 
00577/37    MACHINE CHECK RECOVERY   67 CZASE        SA  G  ZASE    S0938 FSAVE2 FSNAME=CZASE.S                                     
            D3.2T1  517  MACHINE_CHECK_RECOVERY.67.SA.37    1 LINE     80  132 PAGE UM   MTA                 FEB. 13, 1975  23:53:17
0          VMEREP.  COPIES COPY:CHAOER (577/33), COPY:CHASDT (577/36), COPY:CHAERE (577/31), AND COPY:CHAIER (577/32).
           ASSEMBLE WITH MTA:MACLIB (577/39) AND *SYSMAC.
            
           CZASE WILL ACCEPT INPUT FROM THE FILE IT WRITES.  ENTER "FILE" WHEN
           IT ASKS FOR A DRUM AND IT WILL READ FROM A SEQUENTIAL FILE ON UNIT 1.  THIS ALLOWS USE OF ALL THE
           SELECTIVE PRINT COMMANDS IN MTS.
00577/38    MACHINE CHECK RECOVERY   67 CZASE        OC  G          S0938 FSAVE2 FSNAME=CZASE                                       
            D3.2T1  518  MACHINE_CHECK_RECOVERY.67.OC.38    1 LINE    176   21 PAGE UM   MTA                 FEB. 13, 1975  23:53:13
0          CONTAINS SEVERAL PROGRAMS IN ADDITION TO CZASE.
0          Referenced by comments of: 577/49 
00577/39    MACHINE CHECK RECOVERY   67 MACROS       SM  G  MAC0    S0938 FSAVE2 FSNAME=MACLIB                                      
            D3.2T1  519  MACHINE_CHECK_RECOVERY.67.SM.39    1 LINE     80    4 PAGE UM   MTA                 FEB. 13, 1975  23:53:34
0          MACROS, MOST OF WHICH ARE NOT USED.
0          Referenced by comments of: 577/37 
00577/40    MACHINE CHECK RECOVERY   67 DRMINIT      SA  G  DRMI    S0938 FSAVE2 FSNAME=DRMINIT.S                                   
            D3.2T1  520  MACHINE_CHECK_RECOVERY.67.SA.40    1 LINE     80    6 PAGE UM   MTA                 FEB. 13, 1975  23:53:32
0          WRITE MACHINE CHECK MODULES ON DRUMS.  ASSEMBLE WITH *SYSMAC.
00577/41    MACHINE CHECK RECOVERY   67 DRMINIT      OC  G          S0938 FSAVE2 FSNAME=DRMINIT.O                                   
            D3.2T1  521  MACHINE_CHECK_RECOVERY.67.OC.41    1 LINE     80    3 PAGE UM   MTA                 FEB. 13, 1975  23:53:29
00577/42    MACHINE CHECK RECOVERY   67 LOGPRINT     SA  G  LOGP    S0421 'UBC -> UM #16' FSNAME=LOGPRINT.S                      14 
            D3T4    469  MACHINE_CHECK_REC'Y.LOGPRI.SA.42   1 LINE     80    3 PAGE UBC  MTA                 SEP. 27, 1971  11:03:35
0          PROGRAM TO PRINT CZASE OUTPUT.  ASSEMBLE WITH *SYSMAC?
00577/43    MACHINE CHECK RECOVERY   67 LOGPRINT     OC  G          S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.LOGPRI.O.43          470
            D3T4    470  MACHINE_CHECK_REC'Y.LOGPRI.O.43    1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:51.53
00577/44    MACHINE CHECK RECOVERY   67 SHORTPRINT   SA  G  SHRT    S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.SHORTP.SA.44         471
            D3T4    471  MACHINE_CHECK_REC'Y.SHORTP.SA.44   1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  23:51.59
0          ONE LINE SUMMARY (POOR) FROM CZASE OUTPUT.  ASSEMBLE WITH *SYSMAC.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00577/45    MACHINE CHECK RECOVERY   67 SHORTPRINT   OC  G          S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.SHORTP.O.45          472
            D3T4    472  MACHINE_CHECK_REC'Y.SHORTP.O.45    1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:52.05
00577/46    MACHINE CHECK RECOVERY   67 WRITEUP      P              S0938 FSAVE2 FSNAME=MCHDESCR                                    
            D3T4    473  MACHINE_CHECK_REC'Y.WRITEU.P.46    1 LINE     67    4 PAGE UM   MTA                 AUG. 01, 1973  23:52.11
0          WRITE-UP FOR MACHINE CHECK STUFF.
00577/47    MACHINE CHECK RECOVERY   67 MCHDEFS      SA  G  MCHD    S0938 FSAVE2 FSNAME=MCHDEFS                                     
            D3.2T1  522  MACHINE_CHECK_RECOVERY.67.SA.47    1 LINE     80    2 PAGE UM   MTA                 FEB. 13, 1975  23:53:37
0          LOW-CORE SYMBOL TABLE (LIKE LCSYMBOL) FOR SYMBOLS REFERENCED BY DRMINIT.
           NOTE:  SOURCE IS IN MCHDEFS(1,999).
00577/48    MACHINE CHECK RECOVERY   67 MCHDEFS      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00577/49    MACHINE CHECK RECOVERY   67 CZASY1       SA  G  ZASY    S0421 'UBC -> UM #16' FSNAME=CZASY1.S                        13 
            D3T4    475  MACHINE_CHECK_REC'Y.CZASY1.SA.49   1 LINE     80    2 PAGE UBC  MTA                 SEP. 27, 1971  11:03:07
0          SUBROUTINE TO EXECUTE DRUM I/O FOR CZASE.  OBJECT IS PART OF INIT:CZASE (577/38).
00577/50    MACHINE CHECK RECOVERY   67 COMMANDS     C              S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.COMMAN.C.50          476
            D3T4    476  MACHINE_CHECK_REC'Y.COMMAN.C.50    1 LINE      9    1 PAGE UM   MTA                 AUG. 01, 1973  23:52.34
0          COMMANDS TO CZASE.
00577/51    MACHINE CHECK RECOVERY   67 MCFILES      D              S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.MCFILE.D.51          477
            D3T4    477  MACHINE_CHECK_REC'Y.MCFILE.D.51    1 LINE      5    1 PAGE UM   MTA                 AUG. 01, 1973  23:52.36
0          LIST OF FILES FOR DRMINIT.
00577/52    MACHINE CHECK RECOVERY   67 OBJECT       OC  G          S0938 FSAVE2 FSNAME=MCHOBJ                                      
            D3.2T1  523  MACHINE_CHECK_RECOVERY.67.OC.52    1 LINE     80   16 PAGE UM   MTA                 FEB. 13, 1975  23:53:45
0          OBJECT FOR MOST OF THE 360/67 MACHINE CHECK RECOVERY.
00577/53    MACHINE CHECK RECOVERY   370 MCHCCH      SA  G  MCHC    MTA:MCHCCH.S                                                    
            D3.2T1  524  MACHINE_CHECK_RECOVERY.370.SA.53   1 LINE     80   20 PAGE UM   MTA                 MAR. 21, 1975  01:55:43
0          370 MODEL-INDEPENDENT MACHINE AND CHANNEL CHECK HANDLER.
           ASSEMBLE WITH COPY:SETPARM (653), *SYSMAC, AND VS2 MACROS (655/8).
           COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470),
           COPY:CMDAREADSECT (531/12), AND COPY:GLOBALS (1026/4).
           IGNORE THE ASSEMBLY ERRORS!!!!!!
0          Referenced by comments of: 655/2 
00577/54    MACHINE CHECK RECOVERY   370 MCHCCH      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00577/55    MACHINE CHECK RECOVERY   370 LOGGER      SA  G  STLG    MTA:STLOG(1,999)                                                
            D3.2T1  525  MACHINE_CHECK_RECOVERY.370.SA.55   1 LINE     80    4 PAGE UM   MTA                 MAR. 21, 1975  01:55:46
0          THIS IS A PROGRAM THAT PRODUCES ON SPUNCH A STANDALONE PROGRAM TO BE WRITTEN
           TO A TAPE AND IPL'D AFTER A HARD MACHINE CHECK. THE STANDALONE PROGRAM COPIES
           THE 370 MACHINE CHECK RECORD (I.E. PSA PLUS EXTENDED LOGOUT AREA) TO THE
           SECOND FILE OF THE TAPE FROM WHICH IT WAS IPL'D. THE RECORD IN ON TAPE HAS THE
           SAME FORMAT AS NORMAL MTS MACHINE CHECK LOGOUTS.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:PSA (162).
00577/56    MACHINE CHECK RECOVERY   370 LOGGER      OC  G          MTA:STLOG(1000)                                                 
            D3.2T1  526  MACHINE_CHECK_RECOVERY.370.OC.56   1 LINE     80    3 PAGE UM   MTA                 MAR. 21, 1975  01:55:49
00578/01    RSF                      D3 MASTER       SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=RSF                   10 
            D3T5      1  RSF..SA.1                          1 SEQ      80   60 PAGE UM   PIRKOLA             AUG. 02, 1973  00:14.51
0          REALLY SHARED FILES (RSF) PORTION OF MTS.
           COPIES *GFINFODSECT (593), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346),
           COPY:CATEQU (482/28), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640).
           ASSEMBLE WITH COPY:MTS.MACROS (344), COPY:SETPARM (653), AND *SYSMAC.
0          Referenced by comments of: 344/1, 578/2 
00578/02    RSF                                      UU  G          MTS:RSFUPD                                                      
            D3.2T1  527  RSF..UU.02                         1 LINE     72    7 PAGE UM   PIRKOLA             MAR. 21, 1975  01:55:51
0          UPDATE TO D3 MASTER (578/1) TO PRODUCE CURRENT SOURCE.
           UPDATE DECK USES %POSN *IN* RSF.
00578/03    RSF                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   PIRKOLA                                    
00579/01    SYSDEFS                                  SA  G  SYSD    MTS:SYSDEFS(1,999)                                              
            D3.2T1  528  SYSDEFS..SA.01                     1 LINE     80    9 PAGE UM   MTA                 MAR. 21, 1975  01:55:54
0          THIS IS A LOW-CORE SYMBOL TABLE FOR THE DEFINITION OF SYMBOLS USED FOR SYSTEMS WORK, I.E. NOT REQUIRED
           BY USER PROGRAMS.  TO REFERENCE THIS SYMBOL TABLE, THE FOLLOWING 3 LOADER CARDS ARE REQUIRED AT THE
           END OF AN OBJECT DECK:
            
            RIP  SYSDEFS
            LCS            LCSYMBOL
            LCS            SYSDEFS
            
           COPIES COPY:GLOBALS (1026/4).  ASSEMBLE WITH COPY:SETPARM (653).
00579/02    SYSDEFS                  370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00579/03    SYSDEFS                  360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00580/01   *INDEX                                    SP             W016:RAWINDEX                                                   
            D3T5      3  INDEX..SP.1                        1 LINE     71    8 PAGE UM   LEADER              AUG. 02, 1973  00:14.59
0          PROGRAM TO PRODUCE MANUAL INDICES.
           WILL PRODUCE INDEX AS TEXT/360 INPUT, FORMAT INPUT, OR REGULAR PRINTED OUTPUT.
00580/02   *INDEX                                    OC             W016:INDEX                                                      
            D3T5      4  INDEX..OC.2                        1 LINE     80   17 PAGE UM   LEADER              AUG. 02, 1973  00:15.02
0          END WITH A "$CONTINUE WITH *PL1LIB" CARD.
00581/01    INDEXGT                                  SA  G  INDX    W010:GTSOURCE                                                   
            D3T5      5  INDEXGT..SA.1                      1 LINE     80    3 PAGE UM   GALLER              AUG. 02, 1973  00:15.05
0          INDEXGT IS AN OBJECT-CODE FUNCTION TO BE USED BY A SNOBOL PROGRAM (VIA THE SNOBOL4 'LOAD' FUNCTION).
           IT PROVIDES A COMPARISON OPERATOR FOR THE COLLATING SEQUENCE WHICH IS THE SAME AS THE 360 COLLATING
           SEQUENCE EXCEPT THAT THE LOWERCASE LETTERS APPEAR RIGHT AFTER THEIR UPPERCASE EQUIVALENTS.
           THIS IS SO THAT THE INDEX PRODUCED BY THE INDEX PROGRAM SORTS PROPERLY.
00581/02    INDEXGT                                  OC  G          W010:INDEXGT                                                    
            D3T5      6  INDEXGT..OC.2                      1 LINE     80    1 PAGE UM   GALLER              AUG. 02, 1973  00:15.06
0          OBJECT CONTAINS A REP CARD.
00582/01    LIBRARY INDEX PROGRAM                    C              DWB:LIBRARY                                                     
            D3T5      7  LIBRARY_INDEX_PROGRAM..C.1         1 LINE    138    1 PAGE UM   DWB                 AUG. 02, 1973  00:15.08
0          COMMAND FILE TO RUN LIBRARY INDEX PROGRAM.  THIS PROGRAM IS USED AT UM TO MAINTAIN AN INDEX
           AND BIBLIOGRAPHY FOR THE COMPUTING CENTER LIBRARY.  COMMAND FILE REFERS TO *SORT,
           QUIC1 AND QUIC2 (SEE COMP 584), DWB:KWSCARDS (582/4), AND REQUIRES THE FILE "LIBCARDS"
           FOR ITS OUTPUT.
0          Referenced by comments of: 584/1 
00582/02    LIBRARY INDEX PROGRAM                    SP             DWB:LIBRARY.S                                                   
            D3T5      8  LIBRARY_INDEX_PROGRAM..SP.2        1 LINE     68    3 PAGE UM   DWB                 AUG. 02, 1973  00:15.10
00582/03    LIBRARY INDEX PROGRAM                    OC             DWB:LIBRARY.O                                                   
            D3T5      9  LIBRARY_INDEX_PROGRAM..OC.3        1 LINE     80    5 PAGE UM   DWB                 AUG. 02, 1973  00:15.13
00582/04    LIBRARY INDEX PROGRAM    QUIC1 INPUT     D              DWB:KWSCARDS                                                    
            D3T5     10  LIBRARY_INDEX_PROGRAM.QUIC.D.4     1 LINE     36    1 PAGE UM   DWB                 AUG. 02, 1973  00:15.15
0          INPUT LINES FOR QUIC1 (SEE COMP 584).
0          Referenced by comments of: 582/1 
00583/01    KWIC/360                 PHASE A         SP             DWB:KWIC/360(1,319)                                             
            D3T5     11  KWIC/360.PHASE_A.SP.1              1 LINE     80    8 PAGE UM   DWB                 AUG. 02, 1973  00:15.18
0          MODIFIED VERSION OF IBM PROGRAM 360D-06.7.014.  PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION.
            
           SOURCE FOR PHASE A.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00583/02    KWIC/360                 PHASE A         OC             DWB:KWICA                                                       
            D3T5     12  KWIC/360.PHASE_A.OC.2              1 SEQ      80    7 PAGE UM   DWB                 AUG. 02, 1973  00:15.20
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/03    KWIC/360                 PHASE B         SP             DWB:KWIC/360(321,476)                                           
            D3T5     13  KWIC/360.PHASE_B.SP.3              1 LINE     80    5 PAGE UM   DWB                 AUG. 02, 1973  00:15.22
0          SOURCE FOR PHASE B.
00583/04    KWIC/360                 PHASE B         OC             DWB:KWICB                                                       
            D3T5     14  KWIC/360.PHASE_B.OC.4              1 SEQ      80    3 PAGE UM   DWB                 AUG. 02, 1973  00:15.24
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/05    KWIC/360                 PHASE C         SP             DWB:KWIC/360(478,751)                                           
            D3T5     15  KWIC/360.PHASE_C.SP.5              1 LINE     80    7 PAGE UM   DWB                 AUG. 02, 1973  00:15.27
0          SOURCE FOR PHASE C.
00583/06    KWIC/360                 PHASE C         OC             DWB:KWICC                                                       
            D3T5     16  KWIC/360.PHASE_C.OC.6              1 SEQ      80    4 PAGE UM   DWB                 AUG. 02, 1973  00:15.29
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/07    KWIC/360                 PHASE D         SP             DWB:KWIC/360(753,987)                                           
            D3T5     17  KWIC/360.PHASE_D.SP.7              1 LINE     80    6 PAGE UM   DWB                 AUG. 02, 1973  00:15.31
0          SOURCE FOR PHASE D.
00583/08    KWIC/360                 PHASE D         OC             DWB:KWICD                                                       
            D3T5     18  KWIC/360.PHASE_D.OC.8              1 SEQ      80    4 PAGE UM   DWB                 AUG. 02, 1973  00:15.33
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00583/09    KWIC/360                 SCAN2 SUBR      SA             DWB:KWIC/360(989,1029)                                          
            D3T5     19  KWIC/360.SCAN2_SUBR.SA.9           1 LINE     80    2 PAGE UM   DWB                 AUG. 02, 1973  00:15.36
0          SUBROUTINE CALLED BY PHASE A.  OBJECT IS IN 583/2.
00583/10    KWIC/360                 TRANS SUBR      SA             DWB:KWIC/360(1031,1066)                                         
            D3T5     20  KWIC/360.TRANS_SUBR.SA.10          1 LINE     80    1 PAGE UM   DWB                 AUG. 02, 1973  00:15.38
0          SUBROUTINE CALLED BY BOTH PHASE A AND PHASE B.  OBJECT IS IN 583/2 AND 583/4.
00583/11    KWIC/360                 TEST DATA       D              DWB:KWIC/360(1068)                                              
            D3T5     21  KWIC/360.TEST_DATA.D.11            1 LINE     80    7 PAGE UM   DWB                 AUG. 02, 1973  00:15.40
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
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00584/01    QUIC                     PHASE 1         SP             DWB:QUIC.S(252,1249)                                            
            D3T5     22  QUIC.PHASE_1.SP.1                  1 LINE     81   22 PAGE UM   DWB                 AUG. 02, 1973  00:15.43
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).
           THE LIBRARY INDEX PROGRAM (582/1) SHOWS AN EXAMPLE RUN.
           PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION.
00584/02    QUIC                     PHASE 1         OC             DWB:QUIC1                                                       
            D3T5     23  QUIC.PHASE_1.OC.2                  1 LINE     80   20 PAGE UM   DWB                 AUG. 02, 1973  00:15.50
00584/03    QUIC                     PHASE 2         SP             DWB:QUIC.S(1347,1496)                                           
            D3T5     24  QUIC.PHASE_2.SP.3                  1 LINE     80    4 PAGE UM   DWB                 AUG. 02, 1973  00:15.54
00584/04    QUIC                     PHASE 2         OC             DWB:QUIC2                                                       
            D3T5     25  QUIC.PHASE_2.OC.4                  1 LINE     80    4 PAGE UM   DWB                 AUG. 02, 1973  00:15.56
00584/05    QUIC                     TEST DATA       D              DWB:QUIC.S(1269,1320)                                           
            D3T5     26  QUIC.TEST_DATA.D.5                 1 LINE     80    2 PAGE UM   DWB                 AUG. 02, 1973  00:15.57
00585/01    CALC                     CLS             SA  G  CALC    S0579 SAVE 'JWS - SAVE' FSNAME=CALC.S                           
            D3.2T1  529  CALC.CLS.SA.01                     1 LINE     80   46 PAGE UM   JWS                 MAR. 15, 1975  18:25:22
0          THIS IS THE SOURCE FOR THE MTS $CALC COMMAND.  THE CALC COMMAND IS IMPLEMENTED AS A COMMAND LANGUAGE
           SUB-SYSTEM (CLS).  IT COPIES COPY:CLSPLAN (535/1) AND COPY:CLSVECTOR (535/2).
00585/02    CALC                     CLS             OE  G          *CLSCALC                                                        
            D3.2T1  530  CALC.CLS.OE.02                     1 LINE     80    7 PAGE UM   JWS                 MAR. 21, 1975  01:55:59
0          NORMALLY LOADED BY SEG 2 LOADER AT IPL.
00585/03    CALC                     $CALC WRITEUP   WF             W098:SMM279                                                     
            D3.2T1  531  CALC.$CALC_WRITEUP.WF.03           1 LINE     96    3 PAGE UM   JWS                 MAR. 21, 1975  01:56:00
0          THIS IS COMPUTING CENTER MEMO M279 -- "CHANGES TO THE MTS $CALC COMMAND"
00585/04    CALC                     SUBROUTINE      SA  G  CLCS    S0579 SAVE 'JWS - SAVE' FSNAME=CALC.SUB.S                       
            D3.2T1  532  CALC.SUBROUTINE.SA.04              1 LINE     80    8 PAGE UM   JWS                 OCT. 09, 1974  11:43.10
0          USER CALLABLE SUBROUTINE INTERFACE TO CALC CLS.
           COPIES SPECIFIC LINE NUMBER RANGES FROM COPY:CLSPLAN (0535/1).
           ASSEMBLE USING *SYSMAC.
00585/05    CALC                     SUBROUTINE      OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   JWS                                        
00585/06    CALC                     SUBR WRITEUP    WF             W098:SMM280                                                     
            D3.2T1  533  CALC.SUBR_WRITEUP.WF.06            1 LINE    128    3 PAGE UM   JWS                 MAR. 21, 1975  01:56:38
0          THIS IS COMPUTING CENTER MEMO M280 -- "A SUBROUTINE INTERFACE TO THE CALC COMMAND ROUTINES"
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00586/01    COST SUBR                                SA  G  COST    S0027 DISTRB FSNAME=COST                                        
            D3.2T1  534  COST_SUBR..SA.01                   1 LINE     80    7 PAGE UM   ENGLE               MAR. 12, 1975  11:10:35
0          SUBROUTINE TO COMPUTE CURRENT COST OF RUN.  (E.G. CALLED BY MTS FOR $DISPLAY $).
           COPIES ACCFORMAT (104/1), COPY:RATEVEC (651/2), AND GRDEF (104/57).
00586/02    COST SUBR                                OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   ENGLE                                      
0          PATCHED TO AGREE WITH SOURCE.
00587/01    RESEQUENCING PGM                         SA     RSEQ    UBC:RSEQ.S                                                      
            D3T5     31  RESEQUENCING_PGM..SA.1             1 LINE     80    4 PAGE UBC  HOGG                AUG. 02, 1973  00:23.52
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.
00587/02    RESEQUENCING PGM                         OC             UBC:RSEQ                                                        
            D3T5     32  RESEQUENCING_PGM..OC.2             1 LINE     80    2 PAGE UBC  HOGG                AUG. 02, 1973  00:23.54
00588/01    INTERCOM                                 SA  G  EAIC    S0938 FSAVE2 FSNAME=CEAIC.S                                     
            D3.2T1  535  INTERCOM..SA.01                    1 LINE     80   12 PAGE UM   MTA                 FEB. 13, 1975  23:51:52
0          INTER-CPU COMMUNICATION PROGRAM USED ON 360/67 BY SUPERVISOR AND MACHINE CHECK ERROR RECOVERY.  MODIFIED FROM TSS/360.
           COPIES COPY:CHAPSA(1,50) (577/34), COPY:PSA (162), AND COPY:LLMPSEQU (087).
00588/02    INTERCOM                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
00589/01    I/O INBOARD ERROR REC                    SA  G  EAI7    S0938 FSAVE2 FSNAME=CEAI7.S                                     
            D3.2T1  536  I/O_INBOARD_ERROR_REC..SA.01       1 LINE     80    8 PAGE UM   MTA                 FEB. 13, 1975  23:53:49
0          360/67 I/O INBOARD ERROR RECORDING.  MODIFIED FROM TSS/360.
           COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:CHAIER (577/32), AND COPY:CHAERC (577/30).
00589/02    I/O INBOARD ERROR REC                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
0          NOT USED ON 370.
00590/01    SPITBOL                  SYS INTERFACE   UU  G          W086:SPIT.OSI.U                                                 
            D3.1T1  451  SPITBOL.SYS_INTERFACE.UU.1         1 LINE     72   18 PAGE UM   DE JONG             MAR. 06, 1974  22:29.42
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 FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00590/02    SPITBOL                  ZAP CONVERT     SS  G          W086:ZAPCNV                                                     
            D3T5     36  SPITBOL.ZAP_CONVERT.SS.2           1 LINE     72    1 PAGE UM   DE JONG             AUG. 02, 1973  00:24.06
0          SNOBOL PROGRAM TO CONVERT SPITBOL SUPERZAP DECKS INTO MTS COM AND REP LOADER CARDS.
00590/03    SPITBOL                  UPDATE          UU  G          W086:SPIT.MAIN.U                                                
            D3.1T1  452  SPITBOL.UPDATE.UU.3                1 LINE     67    6 PAGE UM   DE JONG             MAR. 06, 1974  22:30.03
0          UPDATE DECK TO BRING THE SPITBOL COMPILER AND LIBRARY FROM VERSION 2.2.0 TO 2.2.6.
00590/04    SPITBOL                  USERS GUIDE     WF             W098:M252                                                       
            D3.1T1  453  SPITBOL.USERS_GUIDE.WF.4           1 LINE    114   31 PAGE UM   DE JONG             MAR. 06, 1974  22:30.13
0          THIS IS COMPUTING CENTER MEMO M252 -- "SPITBOL USER'S GUIDE V2.2"
00591/01    CFDUB                                    SA  G  CFDB    MTS:CFDUB(1,999)                                                
            D3T5     39  CFDUB..SA.1                        1 LINE     80    1 PAGE UM   MTA                 AUG. 02, 1973  00:24.12
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).
           COPIES COPY:FDUBDSECT (623).
00591/02    CFDUB                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00592       OPERATORS MANUAL                         WF             MTS:OPERMANUAL                                                  
            D3T5     40  OPERATORS_MANUAL..WF.              1 LINE    179   40 PAGE UM   DWB                 AUG. 02, 1973  00:24.14
0          MTS OPERATOR'S MANUAL.  IT IS DESIGNED TO HAVE THE OPERATOR MESSAGES FROM THE MESSAGE MANUAL (555) INSERTED AFTER
           THE LAST PAGE.
0          Referenced by comments of: 387/15 
00593      *GFINFODSECT                              SA  G  GFID    *GFINFODSECT                                                    
            D3.2T1  537  GFINFODSECT..SA.                   1 LINE     80    3 PAGE UM   PIRKOLA             MAR. 21, 1975  01:58:03
0          COPY SECTION FOR DSECTS DEFINING INFORMATION REGIONS USED IN CONJUNCTION WITH THE
           GFINFO SUBROUTINE (PART OF 578/1).
0          Referenced by comments of: 47/1, 212/1, 441/1, 465/1, 502/1, 529/1, 548/2, 578/1, 630/1, 1019/27 
00594      *GDINFODSECT                              SA  G  GDID    *GDINFODSECT                                                    
            D3.2T1  538  GDINFODSECT..SA.                   1 LINE     80    2 PAGE UM   DWB                 MAR. 21, 1975  01:58:05
0          COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE.
0          Referenced by comments of: 531/4, 531/8, 531/24, 621/4 
00595/01    APL - GMRL               INSTALLATION    P              S0625 GMAPL 'APL SOURCE' FSNAME=DESCRIPTION                  1  
            D3T5     43  APL_-_GMRL.INSTALLATION.P.1        1 LINE     73    1 PAGE UM   HAMILTON            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
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          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/02    APL - GMRL               *APLGM          OE  G          S0625 GMAPL 'APL SOURCE' FSNAME=*APLGM                       2  
            D3T5     44  APL_-_GMRL.*APLGM.OL.2             1 SEQ    1812    1 PAGE UM   HAMILTON            JULY 16, 1973  01:43.06
0          COMPONENTS 595/2 THROUGH 595/5 ARE THE FOUR APL OBJECT FILES AS DESCRIBED IN CCMEMO M236 (SEE 595/93).
00595/03    APL - GMRL               *APLTRAN        OE  G          S0625 GMAPL 'APL SOURCE' FSNAME=*APLTRAN                     3  
            D3T5     45  APL_-_GMRL.*APLTRAN.OL.3           1 SEQ   32767   47 PAGE UM   HAMILTON            JULY 16, 1973  01:43.19
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/04    APL - GMRL               *APLLIB         OL  G          S0625 GMAPL 'APL SOURCE' FSNAME=*APLLIB                      4  
            D3T5     46  APL_-_GMRL.*APLLIB.OL.4            1 SEQ    4222   21 PAGE UM   HAMILTON            JULY 16, 1973  01:43.32
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/05    APL - GMRL               *APLEDCL        OE  G          S0625 GMAPL 'APL SOURCE' FSNAME=*APLEDCL                     5  
            D3T5     47  APL_-_GMRL.*APLEDCL.OL.5           1 SEQ   10704    7 PAGE UM   HAMILTON            JULY 16, 1973  01:43.44
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00595/06    APL - GMRL               APLLL0          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLLL0                       6  
            D3T5     48  APL_-_GMRL.APLLL0.SA.6             1 LINE     68    4 PAGE UM   HAMILTON            JULY 16, 1973  01:43.54
0          THE SOURCE FOR *APLGM.  ASSEMBLE WITH *SYSMAC.
00595/07    APL - GMRL               XAPL            SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XAPL                         7  
            D3T5     49  APL_-_GMRL.XAPL.SP.7               1 LINE     72    6 PAGE UM   HAMILTON            JULY 16, 1973  01:45.18
0          COMPONENTS 595/7 THROUGH 595/48 ARE THE SOURCE FOR *APLTRAN.
00595/08    APL - GMRL               MINITERM        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MINITERM                     8  
            D3T5     50  APL_-_GMRL.MINITERM.SP.8           1 LINE     73    4 PAGE UM   HAMILTON            JULY 16, 1973  01:45.20
00595/09    APL - GMRL               MAPLGET         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGET                      9  
            D3T5     51  APL_-_GMRL.MAPLGET.SP.9            1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:45.23
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/10    APL - GMRL               MCARDGET        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCARDGET                     10 
            D3T5     52  APL_-_GMRL.MCARDGET.SP.10          1 LINE     71    1 PAGE UM   HAMILTON            JULY 16, 1973  01:45.26
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00595/11    APL - GMRL               MCHMOVE         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHMOVE                      11 
            D3T5     53  APL_-_GMRL.MCHMOVE.SP.11           1 LINE     71    1 PAGE UM   HAMILTON            JULY 16, 1973  01:45.30
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/12    APL - GMRL               MCHSCAN         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHSCAN                      12 
            D3T5     54  APL_-_GMRL.MCHSCAN.SP.12           1 LINE     71    1 PAGE UM   HAMILTON            JULY 16, 1973  01:45.33
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/13    APL - GMRL               MAPLGOOF        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGOOF                     13 
            D3T5     55  APL_-_GMRL.MAPLGOOF.SP.13          1 LINE     71    1 PAGE UM   HAMILTON            JULY 16, 1973  01:45.36
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL.
0          Referenced by comments of: 595/92 
00595/14    APL - GMRL               MAPLPUT         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLPUT                      14 
            D3T5     56  APL_-_GMRL.MAPLPUT.SP.14           1 LINE     71    3 PAGE UM   HAMILTON            JULY 16, 1973  01:45.39
00595/15    APL - GMRL               MCARDPUT        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCARDPUT                     15 
            D3T5     57  APL_-_GMRL.MCARDPUT.SP.15          1 LINE     71    1 PAGE UM   HAMILTON            JULY 16, 1973  01:45.42
00595/16    APL - GMRL               MAPLNAME        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLNAME                     16 
            D3T5     58  APL_-_GMRL.MAPLNAME.SP.16          1 LINE     71    1 PAGE UM   HAMILTON            JULY 16, 1973  01:45.46
00595/17    APL - GMRL               MCHNAM1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM1                      17 
            D3T5     59  APL_-_GMRL.MCHNAM1.SP.17           1 LINE     71    2 PAGE UM   HAMILTON            JULY 16, 1973  01:45.49
00595/18    APL - GMRL               MCHNAM2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM2                      18 
            D3T5     60  APL_-_GMRL.MCHNAM2.SP.18           1 LINE     71    1 PAGE UM   HAMILTON            JULY 16, 1973  01:45.52
00595/19    APL - GMRL               MCHNAM3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM3                      19 
            D3T5     61  APL_-_GMRL.MCHNAM3.SP.19           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:45.55
00595/20    APL - GMRL               MBEGPRC         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MBEGPRC                      20 
            D3T5     62  APL_-_GMRL.MBEGPRC.SP.20           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:45.59
00595/21    APL - GMRL               MDIAGNS         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MDIAGNS                      21 
            D3T5     63  APL_-_GMRL.MDIAGNS.SP.21           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:46.02
00595/22    APL - GMRL               MENTDCL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MENTDCL                      22 
            D3T5     64  APL_-_GMRL.MENTDCL.SP.22           1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:46.05
00595/23    APL - GMRL               MSCOPE01        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE01                     23 
            D3T5     65  APL_-_GMRL.MSCOPE01.SP.23          1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:46.08
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00595/24    APL - GMRL               MSCOPE02        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE02                     24 
            D3T5     66  APL_-_GMRL.MSCOPE02.SP.24          1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:46.11
00595/25    APL - GMRL               MSCOPE03        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE03                     25 
            D3T5     67  APL_-_GMRL.MSCOPE03.SP.25          1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:46.15
00595/26    APL - GMRL               MSCOPE04        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE04                     26 
            D3T5     68  APL_-_GMRL.MSCOPE04.SP.26          1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:46.18
00595/27    APL - GMRL               MSCOPE05        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE05                     27 
            D3T5     69  APL_-_GMRL.MSCOPE05.SP.27          1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:46.21
00595/28    APL - GMRL               MSCOPE06        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE06                     28 
            D3T5     70  APL_-_GMRL.MSCOPE06.SP.28          1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:46.25
00595/29    APL - GMRL               MSUBDCL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MSUBDCL                      29 
            D3T5     71  APL_-_GMRL.MSUBDCL.SP.29           1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:46.28
00595/30    APL - GMRL               MXCREATE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXCREATE                     30 
            D3T5     72  APL_-_GMRL.MXCREATE.SP.30          1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:46.31
00595/31    APL - GMRL               MXDCL           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL                        31 
            D3T5     73  APL_-_GMRL.MXDCL.SP.31             1 LINE     72    8 PAGE UM   HAMILTON            JULY 16, 1973  01:46.35
00595/32    APL - GMRL               MXDCL1          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL1                       32 
            D3T5     74  APL_-_GMRL.MXDCL1.SP.32            1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:46.38
00595/33    APL - GMRL               MXDCL2          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL2                       33 
            D3T5     75  APL_-_GMRL.MXDCL2.SP.33            1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:46.41
00595/34    APL - GMRL               MXDELETE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXDELETE                     34 
            D3T5     76  APL_-_GMRL.MXDELETE.SP.34          1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:46.44
00595/35    APL - GMRL               MXEND           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXEND                        35 
            D3T5     77  APL_-_GMRL.MXEND.SP.35             1 LINE     71    3 PAGE UM   HAMILTON            JULY 16, 1973  01:46.47
00595/36    APL - GMRL               MXFIND          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND                       36 
            D3T5     78  APL_-_GMRL.MXFIND.SP.36            1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:46.51
00595/37    APL - GMRL               MXFIND1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND1                      37 
            D3T5     79  APL_-_GMRL.MXFIND1.SP.37           1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:46.54
00595/38    APL - GMRL               MXINSERT        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXINSERT                     38 
            D3T5     80  APL_-_GMRL.MXINSERT.SP.38          1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:46.57
00595/39    APL - GMRL               MXLET           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXLET                        39 
            D3T5     81  APL_-_GMRL.MXLET.SP.39             1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:47.00
00595/40    APL - GMRL               MXON            SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXON                         40 
            D3T5     82  APL_-_GMRL.MXON.SP.40              1 LINE     71    2 PAGE UM   HAMILTON            JULY 16, 1973  01:47.03
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00595/41    APL - GMRL               MXPLI           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXPLI                        41 
            D3T5     83  APL_-_GMRL.MXPLI.SP.41             1 LINE     72    5 PAGE UM   HAMILTON            JULY 16, 1973  01:47.06
00595/42    APL - GMRL               MXQUEST         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXQUEST                      42 
            D3T5     84  APL_-_GMRL.MXQUEST.SP.42           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:47.09
00595/43    APL - GMRL               MXREMOVE        SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXREMOVE                     43 
            D3T5     85  APL_-_GMRL.MXREMOVE.SP.43          1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:47.12
00595/44    APL - GMRL               MX4EACH         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MX4EACH                      44 
            D3T5     86  APL_-_GMRL.MX4EACH.SP.44           1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:47.15
00595/45    APL - GMRL               MAPLGO          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGO                       45 
            D3T5     87  APL_-_GMRL.MAPLGO.SP.45            1 LINE     68    1 PAGE UM   HAMILTON            JULY 16, 1973  01:47.18
00595/46    APL - GMRL               XPLEMES         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEMES(1)                   46 
            D3T5     88  APL_-_GMRL.XPLEMES.SP.46           1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:47.22
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB.
00595/47    APL - GMRL               MXXLOCSET       SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=MXXLOCSET                    47 
            D3T5     89  APL_-_GMRL.MXXLOCSET.SA.47         1 LINE     67    1 PAGE UM   HAMILTON            JULY 16, 1973  01:47.25
0          ASSEMBLE WITH *SYSMAC AND PL1MACLIB (595/88).
00595/48    APL - GMRL               XPLFORM         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFORM(1)                   48 
            D3T5     90  APL_-_GMRL.XPLFORM.SA.48           1 LINE     71    4 PAGE UM   HAMILTON            JULY 16, 1973  01:47.28
0          THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB.  ASSEMBLE WITH *SYSMAC AND PL1MACLIB (595/88).
00595/49    APL - GMRL               XPLCONA         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCONA                      49 
            D3T5     91  APL_-_GMRL.XPLCONA.SP.49           1 LINE     72    1 PAGE UM   HAMILTON            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/50    APL - GMRL               XPLCON          SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCON                       50 
            D3T5     92  APL_-_GMRL.XPLCON.SP.50            1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:47.34
00595/51    APL - GMRL               XPLCRT1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT1                      51 
            D3T5     93  APL_-_GMRL.XPLCRT1.SP.51           1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:47.38
00595/52    APL - GMRL               XPLCRT2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT2                      52 
            D3T5     94  APL_-_GMRL.XPLCRT2.SP.52           1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:47.41
00595/53    APL - GMRL               XPLDEL1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL1                      53 
            D3T5     95  APL_-_GMRL.XPLDEL1.SP.53           1 LINE     70    1 PAGE UM   HAMILTON            JULY 16, 1973  01:47.44
00595/54    APL - GMRL               XPLDEL2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL2                      54 
            D3T5     96  APL_-_GMRL.XPLDEL2.SP.54           1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:47.47
00595/55    APL - GMRL               XPLDEL3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL3                      55 
            D3T5     97  APL_-_GMRL.XPLDEL3.SP.55           1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:47.51
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00595/56    APL - GMRL               XPLESET         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLESET                      56 
            D3T5     98  APL_-_GMRL.XPLESET.SP.56           1 LINE     63    1 PAGE UM   HAMILTON            JULY 16, 1973  01:47.54
00595/57    APL - GMRL               XPLEVAR         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEVAR                      58 
            D3T5     99  APL_-_GMRL.XPLEVAR.SP.57           1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.00
00595/58    APL - GMRL               XPLFND1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND1                      59 
            D3T5    100  APL_-_GMRL.XPLFND1.SP.58           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:48.03
00595/59    APL - GMRL               XPLFND2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND2                      60 
            D3T5    101  APL_-_GMRL.XPLFND2.SP.59           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:48.07
00595/60    APL - GMRL               XPLFND3         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND3                      61 
            D3T5    102  APL_-_GMRL.XPLFND3.SP.60           1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.10
00595/61    APL - GMRL               XPLGO           SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLGO                        62 
            D3T5    103  APL_-_GMRL.XPLGO.SP.61             1 LINE     68    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.13
00595/62    APL - GMRL               XPLGARB         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLGARB                      63 
            D3T5    104  APL_-_GMRL.XPLGARB.SP.62           1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:48.16
00595/63    APL - GMRL               XPLNUMB         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNUMB                      64 
            D3T5    105  APL_-_GMRL.XPLNUMB.SP.63           1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:48.19
00595/64    APL - GMRL               XPLINDX         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLINDX                      65 
            D3T5    106  APL_-_GMRL.XPLINDX.SP.64           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:48.23
00595/65    APL - GMRL               XPLNOBL         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNOBL                      66 
            D3T5    107  APL_-_GMRL.XPLNOBL.SP.65           1 LINE     71    3 PAGE UM   HAMILTON            JULY 16, 1973  01:48.26
00595/66    APL - GMRL               XPLNSRT         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLNSRT                      67 
            D3T5    108  APL_-_GMRL.XPLNSRT.SP.66           1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:48.29
00595/67    APL - GMRL               XPLOWNI         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWNI                      68 
            D3T5    109  APL_-_GMRL.XPLOWNI.SP.67           1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.32
00595/68    APL - GMRL               XPLOWRS         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWRS                      69 
            D3T5    110  APL_-_GMRL.XPLOWRS.SP.68           1 LINE     70    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.35
00595/69    APL - GMRL               XPLREL0         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL0                      70 
            D3T5    111  APL_-_GMRL.XPLREL0.SP.69           1 LINE     70    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.38
00595/70    APL - GMRL               XPLREL1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL1                      71 
            D3T5    112  APL_-_GMRL.XPLREL1.SP.70           1 LINE     70    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.42
00595/71    APL - GMRL               XPLSNAM         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLSNAM                      72 
            D3T5    113  APL_-_GMRL.XPLSNAM.SP.71           1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.45
00595/72    APL - GMRL               XPLRMV1         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV1                      73 
            D3T5    114  APL_-_GMRL.XPLRMV1.SP.72           1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:48.48
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00595/73    APL - GMRL               XPLRMV2         SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV2                      74 
            D3T5    115  APL_-_GMRL.XPLRMV2.SP.73           1 LINE     72    2 PAGE UM   HAMILTON            JULY 16, 1973  01:48.51
00595/74    APL - GMRL               XPLTYPE         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLTYPE                      75 
            D3T5    116  APL_-_GMRL.XPLTYPE.SA.74           1 LINE     59    1 PAGE UM   HAMILTON            JULY 16, 1973  01:48.55
0          COMPONENTS 595/74 THROUGH 595/86 SHOULD BE ASSEMBLED WITH *SYSMAC AND PL1MACLIB (595/88).
00595/75    APL - GMRL               XPLUDAT         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLUDAT                      76 
            D3T5    117  APL_-_GMRL.XPLUDAT.SA.75           1 LINE     72    7 PAGE UM   HAMILTON            JULY 16, 1973  01:48.58
00595/76    APL - GMRL               XPLADDR         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLADDR                      77 
            D3T5    118  APL_-_GMRL.XPLADDR.SA.76           1 LINE     40    1 PAGE UM   HAMILTON            JULY 16, 1973  01:49.01
00595/77    APL - GMRL               XPLALOC         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLALOC                      78 
            D3T5    119  APL_-_GMRL.XPLALOC.SA.77           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:49.04
00595/78    APL - GMRL               XPLDREC         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLDREC                      79 
            D3T5    120  APL_-_GMRL.XPLDREC.SA.78           1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:49.07
00595/79    APL - GMRL               XPLEV           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLEV                        80 
            D3T5    121  APL_-_GMRL.XPLEV.SA.79             1 LINE     56    1 PAGE UM   HAMILTON            JULY 16, 1973  01:49.11
00595/80    APL - GMRL               XPLFREE         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLFREE                      81 
            D3T5    122  APL_-_GMRL.XPLFREE.SA.80           1 LINE     72    1 PAGE UM   HAMILTON            JULY 16, 1973  01:49.14
00595/81    APL - GMRL               XPLOC           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XPLOC                        83 
            D3T5    123  APL_-_GMRL.XPLOC.SA.81             1 LINE     72    3 PAGE UM   HAMILTON            JULY 16, 1973  01:49.20
00595/82    APL - GMRL               XIRMIN          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XIRMIN                       84 
            D3T5    124  APL_-_GMRL.XIRMIN.SA.82            1 LINE     72    9 PAGE UM   HAMILTON            JULY 16, 1973  01:49.23
00595/83    APL - GMRL               XIRMOUT         SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=XIRMOUT                      85 
            D3T5    125  APL_-_GMRL.XIRMOUT.SA.83           1 LINE     72    9 PAGE UM   HAMILTON            JULY 16, 1973  01:49.26
00595/84    APL - GMRL               RRIN            SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=RRIN                         86 
            D3T5    126  APL_-_GMRL.RRIN.SA.84              1 LINE     72    5 PAGE UM   HAMILTON            JULY 16, 1973  01:49.29
00595/85    APL - GMRL               RROUT           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=RROUT                        87 
            D3T5    127  APL_-_GMRL.RROUT.SA.85             1 LINE     72    5 PAGE UM   HAMILTON            JULY 16, 1973  01:49.32
00595/86    APL - GMRL               SYSVM           SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=SYSVM                        88 
            D3T5    128  APL_-_GMRL.SYSVM.SA.86             1 LINE     69    7 PAGE UM   HAMILTON            JULY 16, 1973  01:49.35
00595/87    APL - GMRL               CHGSCR          SA  G          S0625 GMAPL 'APL SOURCE' FSNAME=CHGSCR                       89 
            D3T5    129  APL_-_GMRL.CHGSCR.SA.87            1 LINE     71    1 PAGE UM   HAMILTON            JULY 16, 1973  01:49.38
0          COPY SECTION USED BY SEVERAL MODULES IN *APLLIB.
00595/88    APL - GMRL               PL1MACLIB       SM  G          S0625 GMAPL 'APL SOURCE' FSNAME=PL1MACLIB                    90 
            D3T5    130  APL_-_GMRL.PL1MACLIB.SM.88         1 LINE     80   15 PAGE UM   HAMILTON            JULY 16, 1973  01:49.58
0          MACRO LIBRARY REQUIRED BY ASSEMBLY LANGUAGE MODULES IN *APLTRAN AND *APLLIB.
1                                                                                               FRI AUG 02/96   19:04:25   Page  230
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 595/47, 595/48, 595/74 
00595/89    APL - GMRL               BLDTRAN         C              S0625 GMAPL 'APL SOURCE' FSNAME=BLDTRAN                      91 
            D3T5    131  APL_-_GMRL.BLDTRAN.C.89            1 LINE     82    1 PAGE UM   HAMILTON            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/90    APL - GMRL               BLDLIB          C              S0625 GMAPL 'APL SOURCE' FSNAME=BLDLIB                       92 
            D3T5    132  APL_-_GMRL.BLDLIB.C.90             1 LINE     74    1 PAGE UM   HAMILTON            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/91    APL - GMRL               APLTRAN.SEP     OE  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLTRAN.SEP                  93 
            D3T5    133  APL_-_GMRL.APLTRAN.SEP.OL.91       1 SEQ   11606   54 PAGE UM   HAMILTON            JULY 16, 1973  01:51.03
0          OBJECT MODULES FOR *APLTRAN, LINK-EDITTED, BUT NOT COMBINED, SO THAT INDIVIDUAL MODULES CAN BE REPLACED.
00595/92    APL - GMRL               APLEDCL.S       SP  G          S0625 GMAPL 'APL SOURCE' FSNAME=APLEDCL.S                    94 
            D3T5    134  APL_-_GMRL.APLEDCL.S.SP.92         1 LINE     72    4 PAGE UM   HAMILTON            JULY 16, 1973  01:51.23
0          THE SOURCE FOR *APLEDCL CONSISTS OF THIS COMPONENT, PLUS MAPLGET (595/9), MCARDGET (595/10), MCHSCAN (595/12),
           MCHMOVE (595/11), AND MAPLGOOF (595/13).
00595/93    APL - GMRL               USER'S GUIDE    WF             S0724 'D3T5' FSNAME=APL_-_GMRL.USER'S_GUIDE.WF.93            135
            D3T5    135  APL_-_GMRL.USER'S_GUIDE.WF.93      1 LINE    114    8 PAGE UM   HAMILTON            JULY 17, 1973  17:39.33
0          THIS IS COMPUTING CENTER MEMO M236 -- "GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE"
           ONLY PART OF MEMO M236 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).
           NOTE:  BECAUSE OF A MISTAKE AT THE UM COPY SERVICE, THE PAPER COPY INCLUDED WITH THE DISTRIBUTION
                  MAY NOT BE COLLATED CORRECTLY.
00596/01    ZAP                                      SA  G  ZAP0    MTS:ZAPSOU                                                      
            D3.1T1  455  ZAP..SA.1                          1 LINE     80   13 PAGE UM   MTA                 MAR. 06, 1974  22:30.58
0          PROGRAM TO PATCH THE IPL RECORD ON DISK "MTS001" WITHOUT GOING THROUGH THE "DISK WRITE" PROCEDURE (SEE 156).
           THERE ARE THREE COMMANDS FOR THIS PROGRAM:
            
               DIS ADDR+DISP N        DISPLAYS N WORDS (FROM THE DISK) AT ADDRESS ADDR (WITH OPTIONAL DISPLACEMENT DISP).
                                      THE ADDRESS IS A REAL CORE ADDRESS (FOR SEGMENTS 0 AND 1) OR A VM ADDRESS (FOR SEGMENT 2).
            
               MOD ADDR+DISP VALUE    MODIFIES DISK RECORD TO NEW VALUE (IN HEX).  WILL PRINT OLD DISK VALUE, CURRENT CORE VALUE,
                                      AND NEW DISK VALUE.  IF CORE AND NEW DISK DIFFER, IT PRINTS A WARNING MESSAGE.
                                      CONFIRMATION IS ALWAYS REQUIRED BEFORE THE CHANGE IS MADE ON THE DISK.
            
               CC ADDR+DISP N         MODIFIES THE DISK RECORD TO BE THE SAME AS THE CURRENT CORE VALUE FOR N WORDS STARTING
                                      AT THE GIVEN LOCATION (COPY CORE).
            
           THE PROGRAM PRODUCES A RECORD OF ALL CHANGES BY WRITING MESSAGES AT THE END OF THE "ZAPLOG" FILE WHICH MUST
           EXIST UNDER THE ID BEING USED.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00596/02    ZAP                                      OC  G          MTS:ZAP                                                         
            D3.1T1  456  ZAP..OC.2                          1 LINE     80    4 PAGE UM   MTA                 MAR. 06, 1974  22:31.02
00597/01    CHKVTOC                                  SA  G  CHKV    W047:CHKVTOC.S                                                  
            D3.2T1  539  CHKVTOC..SA.01                     1 LINE     80   16 PAGE UM   HAMILTON            MAR. 21, 1975  01:58:07
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.  COPIES COPY:DSKDSCT (482/42) AND COPY:DSCBDSCT (482/41).
           ASSEMBLE WITH *SYSMAC.  CALLS VTOCREAD SUBROUTINE (067/4).
            
           SEVERAL NEW FEATURES ARE OFFERED (DESCRIBED IN THE LISTING).
00597/02    CHKVTOC                                  OC  G          W047:CHKVTOC                                                    
            D3.2T1  540  CHKVTOC..OC.02                     1 LINE     80    4 PAGE UM   HAMILTON            MAR. 21, 1975  01:58:13
0          CONTAINS A "$CONTINUE WITH RSTR:VTOCREAD RETURN" LINE.
00598/01    DASDI 7330                               SA  G  DASD    W047:DASDI.S                                                    
            D3.2T1  541  DASDI_7330..SA.01                  1 LINE     80   13 PAGE UM   HAMILTON            MAR. 21, 1975  01:58:15
0          PROGRAM TO PAGE FORMAT DASDI ITEL 7330 (IBM 3330) DISKS.  INPUT DESCRIBED IN SOURCE COMMENTS.
           COPIES COPY:DSCBDSCT (482/41) AND COPY:GLOBALS (1026/4).  ASSEMBLE WITH *SYSMAC.
00598/02    DASDI 7330               370 OBJECT      OC  G          W047:DASDI                                                      
            D3.2T1  542  DASDI_7330.370_OBJECT.OC.02        1 LINE     80    4 PAGE UM   HAMILTON            MAR. 21, 1975  01:58:17
00598/03    DASDI 7330               360 OBJECT      OC  G          W047:DASDI.360                                                  
                                                                                    UM   HAMILTON                                   
00599/01    CHONID                                   SA  G  CHON    W045:PF.CHONID(1,999)                                           
            D3T5    142  CHONID..SA.1                       1 LINE     80    4 PAGE UM   PIRKOLA             AUG. 02, 1973  00:30.27
0          PROGRAM (NOT FOR GENERAL USE) TO CHANGE THE OWNERID (IN CATALOG) OF A LIBRARY 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.
           COPIES COPY:CATEQU (482/28).  ASSEMBLE WITH *SYSMAC.
00599/02    CHONID                                   OC  G          W045:PF.CHONID(1000)                                            
            D3T5    143  CHONID..OC.2                       1 LINE     80    1 PAGE UM   PIRKOLA             AUG. 02, 1973  00:30.29
00600/01    SDS                      CLSSOU          SA  G          W059:SDSCLSSOU                                                  
            D3.2T1  543  SDS.CLSSOU.SA.01                   1 LINE     72   92 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:19
0          SDS, THE SYMBOLIC DEBUGGING SYSTEM.
            
           600/1 AND 600/2 ARE THE SOURCE FOR THE CLS INTERFACE TO SDS.  600/1 COPIES COPY:CLSPLAN (535/1), COPY:CLSAREA (641),
           COPY:CLSVECTOR (535/2), COPY:GLOBALS (1026/4), AND SDSPSECT (600/13).  ASSEMBLE USING *SYSMAC AND SDSMACROS (600/12).
00600/02    SDS                      UTSDSSOU        SA  G          W059:SDSUTILSOU                                                 
            D3.2T1  544  SDS.UTSDSSOU.SA.02                 1 LINE     72   18 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:28
0          COPIES SDSCONSTANT (600/15).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00600/03    SDS                      CLS             OC  G          W059:SDSCLS                                                     
            D3.2T1  545  SDS.CLS.OC.03                      1 LINE     80   30 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:30
00600/04    SDS                      CLI             SA  G          W059:SDSCLISOU                                                  
            D3.2T1  546  SDS.CLI.SA.04                      1 LINE     72   60 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:32
0          THE SDS COMMAND LANGUAGE INTERPRETER.  COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13),
           COPY:CLSPLAN (535/1), COPY:CLSAREA (641), COPY:GLOBALS (1026/4), AND COPY:CLSVECTOR (535/2).
           ASSEMBLE WITH SDSMACROS (600/12).
00600/05    SDS                      CLI             OC  G          W059:SDSCLI                                                     
            D3.2T1  547  SDS.CLI.OC.05                      1 LINE     80   22 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:38
00600/06    SDS                      IOC             SA  G          W059:SDSIOCSOU                                                  
            D3.2T1  548  SDS.IOC.SA.06                      1 LINE     80   17 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:39
0          THE SDS I/O CONTROL MODULE.  COPIES SDSPSECT (600/13), COPY:CLSPLAN (535/1), COPY:CLSAREA (641), COPY:CLSVECTOR (535/2),
           SDSCONSTANT (600/15), COPY:GLOBALS (1026/4), AND SDSBT (600/14).
           ASSEMBLE WITH *SYSMAC AND SDSMACROS (600/12).
00600/07    SDS                      IOC             OC  G          W059:SDSIOC                                                     
            D3.2T1  549  SDS.IOC.OC.07                      1 LINE     80    9 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:41
00600/08    SDS                      SIMULATOR       SA  G          W059:SDSSIMLSOU                                                 
            D3.2T1  550  SDS.SIMULATOR.SA.08                1 LINE     71   24 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:43
0          THE SDS INSTRUCTION SIMULATOR.  COPIES SDSPSECT (600/13), COPY:CLSPLAN (535/1), COPY:CLSAREA (641),
           COPY:GLOBALS (1026/4), AND COPY:CLSVECTOR (535/2).  ASSEMBLE WITH SDSMACROS (600/12).
00600/09    SDS                      SIMULATOR       OC  G          W059:SDSSIML                                                    
            D3.2T1  551  SDS.SIMULATOR.OC.09                1 LINE     80   13 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:46
00600/10    SDS                      EDITOR          SA  G          W059:SDSEDTRSOU                                                 
            D3.2T1  552  SDS.EDITOR.SA.10                   1 LINE     72   20 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:48
0          THE SDS EDITOR.  COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13),
           COPY:CLSPLAN (535/1), COPY:CLSAREA (641), COPY:GLOBALS (1026/4), AND COPY:CLSVECTOR (535/2).
           ASSEMBLE WITH SDSMACROS (600/12).
00600/11    SDS                      EDITOR          OC  G          W059:SDSEDTR                                                    
            D3.2T1  553  SDS.EDITOR.OC.11                   1 LINE     80    9 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:50
00600/12    SDS                      SDSMACROS       SM  G  SDSM    W059:SDSMACROS                                                  
            D3.2T1  554  SDS.SDSMACROS.SM.12                1 LINE     80   11 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:52
0          SDS MACRO LIBRARY.
0          Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 
00600/13    SDS                      SDSPSECT        SA  G          W059:SDSPSECT                                                   
            D3.2T1  555  SDS.SDSPSECT.SA.13                 1 LINE     72   25 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:54
0          COPY SECTION FOR SDS DSECTS.
1                                                                                               FRI AUG 02/96   19:04:25   Page  233
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 
00600/14    SDS                      SDSBT           SA  G          W059:SDSBT                                                      
            D3.2T1  556  SDS.SDSBT.SA.14                    1 LINE     71    3 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:57
0          COPY SECTION FOR BRANCH TABLES.
0          Referenced by comments of: 600/4, 600/6, 600/10 
00600/15    SDS                      SDSCONSTANT     SA  G          W059:SDSCONSTANT                                                
            D3.2T1  557  SDS.SDSCONSTANT.SA.15              1 LINE     70    1 PAGE UM   SALISBURY           MAR. 21, 1975  01:58:59
0          COPY SECTION FOR CONSTANTS.
0          Referenced by comments of: 600/2, 600/4, 600/6, 600/10 
00600/16    SDS                      OBJECT          OE  G          *CLSSDS                                                         
            D3.2T1  558  SDS.OBJECT.OE.16                   1 LINE    255   23 PAGE UM   SALISBURY           MAR. 21, 1975  01:59:01
0          THE SDS OBJECT IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL.
00600/17    SDS                      TEST PROGRAM    C              W044:ASMSDSTEST                                                 
            D3.2T1  559  SDS.TEST_PROGRAM.C.17              1 LINE     80    1 PAGE UM   SALISBURY           MAR. 21, 1975  01:59:03
0          SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAM (600/18).
00600/18    SDS                      TEST PROGRAM    SA             W044:SDSTESTSOU                                                 
            D3.2T1  560  SDS.TEST_PROGRAM.SA.18             1 LINE     63    6 PAGE UM   SALISBURY           MAR. 21, 1975  01:59:05
0          Referenced by comments of: 600/17 
00600/19    SDS                      TEST PROGRAM    OC             W044:SDSTEST                                                    
            D3.2T1  561  SDS.TEST_PROGRAM.OC.19             1 LINE     80    8 PAGE UM   SALISBURY           MAR. 21, 1975  01:59:07
00600/20    SDS                      MEMO M266       PT             W098:KDM266                                                     
            D3.1T1  478  SDS.MEMO_M266.PT.20                1 LINE    133    7 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.46
0          THIS IS COMPUTING CENTER MEMO M266 -- "RECENT CHANGES TO SDS"
00601       SLT INSTRUCTION DIAGRAM                  P              MTS:SLTDIAGRAM                                                  
            D3T5    163  SLT_INSTRUCTION_DIAGRAM..P.        1 LINE     75    1 PAGE UM   BERSTIS             AUG. 02, 1973  00:33.08
0          PRINTER DIAGRAM SHOWING OPERATION OF SYSTEM/360 SLT (SEARCH LIST) INSTRUCTION.
00602       NOT-RESEQUENCER                          SS             DWB:NONRESEQ                                                    
            D3T5    164  NOT-RESEQUENCER..SS.               1 LINE     63    2 PAGE UM   DWB                 AUG. 02, 1973  00:33.10
0          PROGRAM TO PUT SEQUENCE ID ON MTS (OR ANYTHING ELSE) FOR A NEW MASTER WITHOUT CHANGING THE ID'S ON EXISTING
           CARDS.  UNLIKE EARLIER VERSIONS, THE SEQUENCE ID DOES NOT HAVE TO BE ALL NUMERIC.
            
           USAGE:  RUN UPDATE DECK AGAINST MASTER TO PRODUCE UPDATED SOURCE.  THEN RUN THIS PROGRAM FEEDING
                   THE UPDATE DECK IN ON UNIT 3 AND THE UPDATED SOURCE ON UNIT 4.
           OUTPUT:  ON UNIT 8, THE NEW SOURCE TAPE WITH NEW ID'S INSERTED, AND
                    ON UNIT 7 (SPUNCH IF *SPITBOL), THE NEW UPDATE DECK WITH THE NEW ID'S ON THE CARDS TO BE INSERTED.
1                                                                                               FRI AUG 02/96   19:04:25   Page  234
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
           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/01    UC3330                                   SA  G  UC33    MTA:UC3330(1,999)                                               
            D3.2T1  562  UC3330..SA.01                      1 LINE     80   24 PAGE UM   MTA                 MAR. 21, 1975  01:59:10
0          UNIT CHECK ROUTINES FOR ITEL 7330 OR IBM 3330 DISKS ON EITHER A 2860 OR 2880 CHANNEL, IBM 2305 FHF, AND IBM 2301 DRUM.
           DOES NOT SUPPORT OTHER DASD DEVICES SUCH AS 2314 AND 2311.
           LOGS UNIT CHECK MESSAGES IN SUCH A WAY THAT THE COMMAND STAT PICK-UP PROGRAM (531/4) WILL WRITE THEM INTO A FILE.
           COPIES COPY:CMDAREADSECT (531/12).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 531/1, 621/4 
00603/02    UC3330                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00603/03    UC3330                   TEST PGM        SA  G  TSUC    S0219 FSAVE FSNAME=TESTUC                                       
                                                                                    UM   MTA                                        
0          TEST PROGRAM TO 3330 UNIT CHECK ROUTINES.
00603/04    UC3330                   TEST PGM        OC  G        # (PART OF 603/3)                                                 
                                                                                    UM   MTA                                        
00604/01    PRNTCNTS                                 SA  G  PCNT    MTA:PRNTCNTS(1000)                                              
            D3.2T1  563  PRNTCNTS..SA.01                    1 LINE     80   24 PAGE UM   MTA                 MAR. 21, 1975  01:59:14
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 WITH *SYSMAC.
           COPIES COPY:GLOBALS (1026/4).
0          Referenced by comments of: 531/1 
00604/02    PRNTCNTS                 370 OBJECT      OC  G          MTA:PRNTCNTS(1,999)                                             
            D3.2T1  564  PRNTCNTS.370_OBJECT.OC.02          1 LINE     80   12 PAGE UM   MTA                 MAR. 21, 1975  01:59:20
00604/03    PRNTCNTS                 360 OBJECT      OC  G        = ?????                                                           
                                                                                    UM   MTA                                        
00605/01    TWAIT SUBR                               SA  G  TWAT    W047:TIMESUBRS(1,199)                                           
            D3T5    168  TWAIT_SUBR..SA.1                   1 LINE     80    4 PAGE UM   HAMILTON            AUG. 02, 1973  00:33.23
0          USER CALLABLE SUBROUTINE TO WAIT FOR A SPECIFIED REAL TIME INTERVAL AND THEN RETURN.
0          Referenced by comments of: 606/1, 607/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00605/02    TWAIT SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HAMILTON                                   
00606/01    TICALL SUBR                              SA  G  TICL    W047:TIMESUBRS(200,299)                                         
            D3T5    169  TICALL_SUBR..SA.1                  1 LINE     80    3 PAGE UM   HAMILTON            AUG. 02, 1973  00:33.25
0          SUBROUTINE TO PROVIDE AN INTERFACE TO THE MTS TIMER INTERRUPT SUBROUTINES (605) FROM FORTRAN PROGRAMS.
           HAS A "$CONTINUE WITH TIMESUBRS(13,34) RETURN" LINE IN THE SOURCE TO PICKUP SOME REGISTERS EQUALITIES FROM
           THE SOURCE FOR THE TWAIT SUBR (605/1).
00606/02    TICALL SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HAMILTON                                   
00607/01    STIMER SUBR                              SA  G  STIM    W047:TIMESUBRS(300)                                             
            D3T5    170  STIMER_SUBR..SA.1                  1 LINE     80    4 PAGE UM   HAMILTON            AUG. 02, 1973  00:33.27
0          SUBROUTINE TO PROVIDE MTS SUPPORT FOR THE OS/360 STIMER AND TTIMER MACROS WHICH ARE AVAILABLE IN *SYSMAC.
           HAS A "$CONTINUE WITH TIMESUBRS(11,34) RETURN" LINE IN THE SOURCE TO PICKUP SOME SVC AND REGISTER
           EQUALITIES FROM THE SOURCE FOR THE TWAIT SUBR (605/1).
00607/02    STIMER SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HAMILTON                                   
00608/01   *MVC                                      SA  G  MVC0    W032:MVCSOU3.1                                                  
            D3.1T1  480  MVC..SA.1                          1 LINE     80   36 PAGE UM   EMERY               MAR. 06, 1974  22:34.58
0          RECORD REFORMATTING PROGRAM.
00608/02   *MVC                                      OC  G          *MVC                                                            
            D3.1T1  481  MVC..OC.2                          1 LINE     80    4 PAGE UM   EMERY               MAR. 06, 1974  22:35.05
00609/01    7330 CCW SCANNER                         SA  G  CPSC    S0938 FSAVE2 FSNAME=CPSCN.S                                     
            D3.2T1  565  7330_CCW_SCANNER..SA.01            1 LINE     80    5 PAGE UM   MTA                 FEB. 14, 1975  00:29:06
0          360/67 PROGRAM TO SCAN ITEL 7330 DISK CHANNEL PROGRAMS TO FIND RESTART ADDRESS FOR SOFTWARE COMMAND RETRY.
           CALLED ONLY IF THE SUPERVISOR (045) IS ASSEMBLED WITH &CRTY SET TO 1.
           COPIES COPY:CPSCNPAR (609/3).  ASSEMBLE WITH *SYSMAC.
00609/02    7330 CCW SCANNER                         OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   MTA                                        
0          360/67 ONLY -- I.E. NOT REQUIRED IF HARDWARE COMMAND RETRY IS AVAILABLE.
00609/03    7330 CCW SCANNER         COPY:CPSCNPAR   SA  G  CPSP    COPY:CPSCNPAR                                                   
            D3.2T1  566  7330_CCW_SCANNER.COPY:CPSC.SA.03   1 LINE     80    1 PAGE UM   MTA                 MAR. 21, 1975  01:59:24
0          COPY SECTION FOR ITEL 7330 (IBM 3330) CCW SCANNER PARAMETER AND SCRATCH AREAS.
0          Referenced by comments of: 45/2, 609/1 
00610/01    FILE SAVE TAPE COPY      MAIN            SA             S0652 SOURCE POSN=FCOPYA                                     2  
            D3T5    175  FILE_SAVE_TAPE_COPY.MAIN.SA.1      1 SEQ      80   19 PAGE UM   YOUNG               AUG. 02, 1973  00:36.02
0          PROGRAM TO MAKE BACKUP COPIES OF SYSTEM FILESAVE TAPES (AS PRODUCED BY 067).
1                                                                                               FRI AUG 02/96   19:04:25   Page  236
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          SEE NOTES IN PAPER DOCUMENTATION.
00610/02    FILE SAVE TAPE COPY      MAIN            OC             RSTR:FSAVECOPY                                                  
            D3T5    176  FILE_SAVE_TAPE_COPY.MAIN.OC.2      1 LINE     80    4 PAGE UM   YOUNG               AUG. 02, 1973  00:36.05
00610/03    FILE SAVE TAPE COPY      AUX             SA             S0652 SOURCE POSN=FCOPYB                                     3  
            D3T5    177  FILE_SAVE_TAPE_COPY.AUX.SA.3       1 SEQ      80    4 PAGE UM   YOUNG               AUG. 02, 1973  00:36.08
00610/04    FILE SAVE TAPE COPY      AUX             OC             RSTR:FSAVAUXOBJ                                                 
            D3T5    178  FILE_SAVE_TAPE_COPY.AUX.OC.4       1 LINE     80    1 PAGE UM   YOUNG               AUG. 02, 1973  00:36.12
00611/01    LOCKSTAT                                 SA  G  LKST    S0724 'D3T5' FSNAME=LOCKSTAT..SA.1                           179
            D3T5    179  LOCKSTAT..SA.1                     1 LINE     80    6 PAGE UM   MTA                 AUG. 02, 1973  00:36.13
0          PROGRAM TO PRINT LOCK BYTE COUNTS AND TIMES FROM THE SUPERVISOR (045).  THE SUPERVISOR MUST BE REASSEMBLED WITH
           &NOLOKC SET TO 0.  COPIES COPY:PSA (162) AND COPY:CHACST (577/28).  ASSEMBLE WITH *SYSMAC.
           NOTE:  THIS PROGRAM HAS EQUS FOR THE LOCATION OF THE LOCK BYTE COUNTS IN THE PSA.
00611/02    LOCKSTAT                                 OC  G          S0724 'D3T5' FSNAME=LOCKSTAT..OC.2                           180
            D3T5    180  LOCKSTAT..OC.2                     1 LINE     80    3 PAGE UM   MTA                 AUG. 02, 1973  00:36.15
00612/01    LETGO                                    SA  G  LETG    WSG:LETGO(1,999)                                                
            D3T5    181  LETGO..SA.1                        1 LINE     80    4 PAGE UM   WSG                 AUG. 02, 1973  00:36.17
0          FORTRAN CALLABLE SUBROUTINE TO UNLOCK AND RELOCK FILES AT SPECIFIED INTERVALS OF REAL TIME.
           ASSEMBLE USING *SYSMAC.
00612/02    LETGO                                    OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
00613/01    LONGREAD                                 SA  S  LNGR    WSG:LONGREAD(1,999)                                             
            D3T5    182  LONGREAD..SA.1                     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.
           ASSEMBLE WITH *SYSMAC.
00613/02    LONGREAD                                 OC  S          WSG:LONGREAD(1000)                                              
            D3T5    183  LONGREAD..OC.2                     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/01    PLOT SYSTEM              MACROS          SM             S0686 PDSBAK POSN=PDSCC.MACROS                               1  
            D3.2T1  567  PLOT_SYSTEM.MACROS.SM.01           1 SEQ      80    2 PAGE UM   LIFT                MAR. 21, 1975  02:01:00
0          THE UM MTS CALCOMP PLOT ROUTINES.
            
           SEVERAL OF THE SOURCE SUB-COMPONENTS OF THE PLOT SYSTEM CONSIST OF MORE THAN ONE ASSEMBLY, SO USE PAR=B
            
           615/1 CONTAINS CALCOMP SYSTEM MACROS.  MUST BE RUN THROUGH *MACGEN BEFORE USING.
0          Referenced by comments of: 615/2, 615/3, 615/4, 615/5, 615/6, 615/7, 615/8, 615/9 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00615/02    PLOT SYSTEM              GETSETPLTS8     SA  G          S0686 PDSBAK POSN=CC.GETSETPLTS8                             2  
            D3.2T1  568  PLOT_SYSTEM.GETSETPLTS8.SA.02      1 SEQ      80    4 PAGE UM   LIFT                MAR. 21, 1975  02:01:01
0          SUBROUTINE USED IN *CCQUEUE (615/12) AND SYS:CCP (615/13).  ASSEMBLE WITH PLOT MACROS (615/1) AND *SYSMAC.
00615/03    PLOT SYSTEM              CCQUEUE         SA  G          S0686 PDSBAK POSN=CC.CCQUEUE                                 3  
            D3.2T1  569  PLOT_SYSTEM.CCQUEUE.SA.03          1 SEQ      80   34 PAGE UM   LIFT                MAR. 21, 1975  02:01:04
0          MAIN PROGRAM FOR *CCQUEUE.  ASSEMBLE WITH PLOT MACROS (615/1) AND *SYSMAC.
00615/04    PLOT SYSTEM              CCP             SA  G          S0686 PDSBAK POSN=CC.CCP                                     4  
            D3.2T1  570  PLOT_SYSTEM.CCP.SA.04              1 SEQ      80   18 PAGE UM   LIFT                MAR. 21, 1975  02:01:07
0          MAIN PROGRAM FOR SYS:CCP (615/13).  ASSEMBLE WITH PLOT MACROS (615/1) AND *SYSMAC.
00615/05    PLOT SYSTEM              CCPOST          SA  G          S0686 PDSBAK POSN=CC.CCPOST                                  5  
            D3.2T1  571  PLOT_SYSTEM.CCPOST.SA.05           1 SEQ      80    6 PAGE UM   LIFT                MAR. 21, 1975  02:01:09
0          SOURCE FOR *CCPOST.  ASSEMBLE WITH PLOT MACROS (615/1) AND *SYSMAC.
00615/06    PLOT SYSTEM              CPCORE          SA  G          S0686 PDSBAK POSN=CC.CPCORE                                  6  
            D3.2T1  572  PLOT_SYSTEM.CPCORE.SA.06           1 SEQ      80   36 PAGE UM   LIFT                MAR. 21, 1975  02:01:12
0          MAIN PROGRAM FOR *CPCORE.  ASSEMBLE WITH PLOT MACROS (615/1) AND *SYSMAC.
00615/07    PLOT SYSTEM              PWRIT           SA  G          W030:PWRIT                                                      
            D3.2T1  573  PLOT_SYSTEM.PWRIT.SA.07            1 LINE     80   17 PAGE UM   LIFT                MAR. 21, 1975  02:01:16
0          SUBROUTINE IN *PLOTSYS.  ASSEMBLE WITH PLOT MACROS (615/1) AND *SYSMAC.
00615/08    PLOT SYSTEM              PSYMB           SA  G          W030:PSYMB                                                      
            D3.2T1  574  PLOT_SYSTEM.PSYMB.SA.08            1 LINE     80   14 PAGE UM   LIFT                MAR. 21, 1975  02:01:17
0          SUBROUTINES IN *PLOTSYS.  ALSO USED IN *CPCORE.  ASSEMBLE WITH PLOT MACROS (615/1) AND *SYSMAC.
00615/09    PLOT SYSTEM              ASM             SA  G          W030:CCASM                                                      
            D3.2T1  575  PLOT_SYSTEM.ASM.SA.09              1 LINE     80   32 PAGE UM   LIFT                MAR. 21, 1975  02:01:19
0          SUBROUTINES IN *PLOTSYS.  ASSEMBLE WITH PLOT MACROS (615/1) AND *SYSMAC.
00615/10    PLOT SYSTEM              FORT            SF  G          W030:CCFORT                                                     
            D3.2T1  576  PLOT_SYSTEM.FORT.SF.10             1 LINE     80   29 PAGE UM   LIFT                MAR. 21, 1975  02:01:23
0          SUBROUTINES IN *PLOTSYS.
00615/11    PLOT SYSTEM              PSYMCHK         SF  G          W030:PSYMBCHK                                                   
            D3.2T1  577  PLOT_SYSTEM.PSYMCHK.SF.11          1 LINE     80    3 PAGE UM   LIFT                MAR. 21, 1975  02:01:25
0          SYMBOL STRING CHECK FOR PSYM LINE PROCESSING AND GENERATION.
00615/12    PLOT SYSTEM              *CCQUEUE        OE  G          *CCQUEUE                                                        
            D3.2T1  578  PLOT_SYSTEM.*CCQUEUE.OE.12         1 SEQ    3498    4 PAGE UM   LIFT                MAR. 21, 1975  02:01:27
0          PROGRAM TO QUEUE USERS PLOTS FOR POST-PROCESSING BY *CCP.  ADDS A LINE TO *CCPFILE (NOT DISTRIBUTED) INDICATING
1                                                                                               FRI AUG 02/96   19:04:25   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          THE PLOT TO BE PROCESSED.  OBJECT FROM 615/3 + 615/2 + 615/11.
           >>>>>>>>> CONTAINS A REP CARD <<<<<<<<<<<<
0          Referenced by comments of: 615/2 
00615/13    PLOT SYSTEM              SYS:CCP         OE  G          SYS:CCP                                                         
            D3.2T1  579  PLOT_SYSTEM.SYS:CCP.OE.13          1 SEQ      85   10 PAGE UM   LIFT                MAR. 21, 1975  02:01:30
0          POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/14) USED BY THE SYSTEM OPERATORS TO GENERATE OFFLINE PLOT TAPES.
           OBJECT CONSISTS OF 615/4 + 615/2 + A "$CONTINUE WITH *CPCORE" CARD.
0          Referenced by comments of: 615/2, 615/4, 615/14, 615/16 
00615/14    PLOT SYSTEM              *CCP            C              *CCP                                                            
            D3.2T1  580  PLOT_SYSTEM.*CCP.C.14              1 LINE     26    1 PAGE UM   LIFT                MAR. 21, 1975  02:01:32
0          COMMAND FILE INVOKED BY ENTERING "MTS *CCP" ON OPERATOR'S CONSOLE.  USED BY THE SYSTEM OPERATOR TO GENERATE THE
           SYSTEM PLOT TAPES.  RUNS THE SYS:CCP PROGRAM (615/13).
0          Referenced by comments of: 615/13 
00615/15    PLOT SYSTEM              *CCPOST         OC  G          *CCPOST                                                         
            D3.2T1  581  PLOT_SYSTEM.*CCPOST.OC.15          1 LINE     80    1 PAGE UM   LIFT                MAR. 21, 1975  02:01:35
0          PROGRAM TO ALLOW USERS TO POST-PROCESS THEIR OWN PLOTS.  OBJECT FROM 615/5 + A "$CONTINUE WITH *CPCORE" CARD.
0          Referenced by comments of: 615/16 
00615/16    PLOT SYSTEM              *CPCORE         OE  G          *CPCORE                                                         
            D3.2T1  582  PLOT_SYSTEM.*CPCORE.OE.16          1 SEQ    3516    4 PAGE UM   LIFT                MAR. 21, 1975  02:01:37
0          BASIC PROGRAMS IN CALCOMP POST-PROCESSOR.  USED WITH BOTH *CCPOST (615/15) AND SYS:CCP (615/13).
           *CPCORE DUPLICATES NAMES IN *PLOTSYS (615/17), BUT WRITES A CALCOMP PLOTTER TAPE, NOT A PLOT FILE.
           OBJECT CONSISTS OF OBJECT FROM 615/6 + 615/8 + 615/11.
00615/17    PLOT SYSTEM              *PLOTSYS        OL  G          *PLOTSYS                                                        
            D3.2T1  583  PLOT_SYSTEM.*PLOTSYS.OL.17         1 SEQ    4298   15 PAGE UM   LIFT                MAR. 21, 1975  02:01:39
0          OBJECT LIBRARY GENERATED FROM 615/7 + 615/8 + 615/9 + 615/10 + 615/11.
0          Referenced by comments of: 615/16 
00616/01    TERM USAGE STATISTICS    DCSTAT          SA  G  DCST    W108:DCSTATSOU                                                  
            D3T5    204  TERM_USAGE_STATISTICS..SA.1        1 LINE     80   11 PAGE UM   WSG                 AUG. 02, 1973  00:38.33
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), 7772, 3272, ETC).  THE FILE
           CONTAINING THE STATISTICS DATA MAY BE SPECIFIED IN THE PAR= FIELD OR A TAPE MAY BE SPECIFIED BY GIVING
           "PAR=TAPE-VOL" WHERE VOL IS THE VOLUME NAME OF THE TAPE TO BE MOUNTED ("PAR=TAPE" MEANS THE TAPE IS UNLABELED).
           IF NO PAR= IS GIVEN, THE DATA IS READ FROM *STATISTICS.
           COPIES COPY:STATDSECT (620), COPY:GLOBALS (1026/4), AND COPY:LLMPSEQU (087).  ASSEMBLE WITH *SYSMAC.
1                                                                                               FRI AUG 02/96   19:04:25   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          Referenced by comments of: 616/3 
00616/02    TERM USAGE STATISTICS    DCSTAT          OC  G          W108:DCSTAT                                                     
            D3T5    205  TERM_USAGE_STATISTICS..OC.2        1 LINE     80    3 PAGE UM   WSG                 AUG. 02, 1973  00:38.35
00616/03    TERM USAGE STATISTICS    TERMSTAT        SA  G  TERM    WSG:TERMSTAT(1,999)                                             
                                                                                    UM   WSG                                        
0          PROGRAM TO COMPUTE SYSTEM USAGE (NUMBER OF JOBS, ELAPSED TIME, CPU TIME, CPU VMI,
           AND WAIT VMI) SORTED BY DEVICE NAME, I.E. FIRST 4 CHARACTERS OF ANSWERBACK.
           THIS PROGRAM IS RUN IN EXACTLY THE SAME WAY AS DCSTAT (616/1).
           COPIES COPY:STATDSECT (620), COPY:GLOBALS (1026/4), AND COPY:LLMPSEQU (087).  ASSEMBLE WITH *SYSMAC.
00616/04    TERM USAGE STATISTICS    TERMSTAT        OC  G          WSG:TERMSTAT(1000)                                              
                                                                                    UM   WSG                                        
00617/01    USAGE STATISTICS                         SA  G  STAT    W108:STATSOU                                                    
            D3T5    206  USAGE_STATISTICS..SA.1             1 LINE     80    8 PAGE UM   WSG                 AUG. 02, 1973  00:38.38
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, AND ELAPSED
           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.
            
           NOTE:  THE CHARACTER "#" IS USED AS A FILL CHARACTER FOR THE MATCHING DONE BY THE "D" COMMAND.  FOR EXAMPLE,
           "D LA##:TTYUM##########" WILL FIND ALL JOBS ON ANY "LA" (1270) LINE WITH ANSWERBACKS STARTING WITH UM.
           THE FILE FROM WHICH THE INPUT "*STATISTICS" DATA IS READ MAY BE SPECIFIED IN THE PAR= FIELD OR A TAPE MAY
           BE SPECIFIED BY GIVING "PAR=TAPE-VOL" WHERE VOL IS THE VOLUME NAME OF THE TAPE TO BE MOUNTED ("PAR=TAPE"
           MEANS THE TAPE IS UNLABELED).  IF NO PAR= IS GIVEN, THE DATA IS READ FROM *STATISTICS.
           COPIES COPY:STATDSECT (620), COPY:GLOBALS (1026/4), AND COPY:LLMPSEQU (087).  ASSEMBLE WITH *SYSMAC.
00617/02    USAGE STATISTICS                         OC  G          W108:STAT                                                       
            D3T5    207  USAGE_STATISTICS..OC.2             1 LINE     80    3 PAGE UM   WSG                 AUG. 02, 1973  00:38.40
00618/01    BUFSTAT                                  SA  G  BUFS    WSG:BUFSTAT(1,999)                                              
            D3T5    208  BUFSTAT..SA.1                      1 LINE     80    4 PAGE UM   WSG                 AUG. 02, 1973  00:38.46
0          PROGRAM TO PRINT WHICH JOBS ARE USING WHICH LOW-CORE TERMINAL BUFFERS, HOW MANY ARE NOT
           BEING USED, AND APPROXIMATELY HOW MANY MORE ARE REQUIRED WHEN THEY ARE ALL IN USE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 9/1 
00618/02    BUFSTAT                                  OC  G          WSG:BUFSTAT(1000)                                               
            D3T5    209  BUFSTAT..OC.2                      1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:38.48
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00619/01   *ASMT                     *ASMTSYSMAC     SM  O  SYSM    S0653 'ASMT' FSNAME=*ASMTSYSMAC                                 
            D3.2T1  584  ASMT.*ASMTSYSMAC.SM.01             1 LINE     80   67 PAGE UM   BERSTIS             JAN. 15, 1975  22:02:03
0          THE IBM TSS/360 ASSEMBLER MODIFIED TO RUN IN MTS.
            
           *ASMTSYSMAC IS THE TSS VERSION OF *SYSMAC.
00619/02   *ASMT                     MACROS          SM  G  MAC0    S0653 'ASMT' FSNAME=ASMTMACROS                                  
            D3.2T1  585  ASMT.MACROS.SM.02                  1 LINE     80   73 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:29
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/03   *ASMT                     PHASE 1.1       SA  S  A100    S0653 'ASMT' FSNAME=CEVA1.S                                     
            D3.2T1  586  ASMT.PHASE_1.1.SA.03               1 LINE     80   43 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:36
0          COMPS 619/3 THROUGH 619/23 SHOULD ALL BE ASSEMBLED USING THE ASMTMACROS MACRO LIBRARY (619/2) AND *SYSMAC.
00619/04   *ASMT                     PHASE 1.2       SA  S  A200    S0653 'ASMT' FSNAME=CEVA2.S                                     
            D3.2T1  587  ASMT.PHASE_1.2.SA.04               1 LINE     80   50 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:40
00619/05   *ASMT                     PHASE 1.3       SA  S  A300    S0653 'ASMT' FSNAME=CEVA3.S                                     
            D3.2T1  588  ASMT.PHASE_1.3.SA.05               1 LINE     80   48 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:45
00619/06   *ASMT                     PHASE 1.4       SA  S  A400    S0653 'ASMT' FSNAME=CEVA4.S                                     
            D3.2T1  589  ASMT.PHASE_1.4.SA.06               1 LINE     80   40 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:50
00619/07   *ASMT                     PHASE 1.5       SA  S  A500    S0653 'ASMT' FSNAME=CEVA5.S                                     
            D3.2T1  590  ASMT.PHASE_1.5.SA.07               1 LINE     80   49 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:53
00619/08   *ASMT                     PHASE 1.6       SA  S  A600    S0653 'ASMT' FSNAME=CEVA6.S                                     
            D3.2T1  591  ASMT.PHASE_1.6.SA.08               1 LINE     80   47 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:59
00619/09   *ASMT                     PHASE 1.7       SA  S  A700    S0653 'ASMT' FSNAME=CEVA7.S                                     
            D3.2T1  592  ASMT.PHASE_1.7.SA.09               1 LINE     80   40 PAGE UM   BERSTIS             JAN. 15, 1975  21:42:03
00619/10   *ASMT                     PHASE 1.8       SA  S  A800    S0653 'ASMT' FSNAME=CEVA8.S                                     
            D3.2T1  593  ASMT.PHASE_1.8.SA.10               1 LINE     80   18 PAGE UM   BERSTIS             JAN. 15, 1975  21:42:07
00619/11   *ASMT                     PHASE 1.9       SA  S  A900    S0653 'ASMT' FSNAME=CEVA9.S                                     
            D3.2T1  594  ASMT.PHASE_1.9.SA.11               1 LINE     80   10 PAGE UM   BERSTIS             JAN. 15, 1975  21:42:09
00619/12   *ASMT                     PHASE 2.1       SA  S  B100    S0653 'ASMT' FSNAME=CEVB1.S                                     
            D3.2T1  595  ASMT.PHASE_2.1.SA.12               1 LINE     80   29 PAGE UM   BERSTIS             JAN. 15, 1975  21:42:11
00619/13   *ASMT                     PHASE 2.2       SA  S  C100    S0653 'ASMT' FSNAME=CEVC1.S                                     
            D3.2T1  596  ASMT.PHASE_2.2.SA.13               1 LINE     80   41 PAGE UM   BERSTIS             JAN. 15, 1975  21:42:14
00619/14   *ASMT                     PHASE 2.3       SA  S  D100    S0653 'ASMT' FSNAME=CEVD1.S                                     
            D3.2T1  597  ASMT.PHASE_2.3.SA.14               1 LINE     80   19 PAGE UM   BERSTIS             FEB. 11, 1975  01:57:51
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00619/15   *ASMT                     PHAS1 3.1       SA  S  E100    S0653 'ASMT' FSNAME=CEVE1.S                                     
            D3.2T1  598  ASMT.PHAS1_3.1.SA.15               1 LINE     80   63 PAGE UM   BERSTIS             FEB. 05, 1975  15:52:12
00619/16   *ASMT                     PHASE 3.2       SA  S  E200    S0653 'ASMT' FSNAME=CEVE2.S                                     
            D3.2T1  599  ASMT.PHASE_3.2.SA.16               1 LINE     80   63 PAGE UM   BERSTIS             JAN. 15, 1975  21:42:28
0          CHANGED TO PRINT LOCATION COUNTER ON MACRO CALLS.  REMOVE BAS.
00619/17   *ASMT                     PHASE 4         SA  S  F100    S0653 'ASMT' FSNAME=CEVF1.S                                     
            D3.2T1  600  ASMT.PHASE_4.SA.17                 1 LINE     80   57 PAGE UM   BERSTIS             JAN. 15, 1975  21:42:34
00619/18   *ASMT                     ASMTGO          SA  G  GO00    S0653 'ASMT' FSNAME=ASMTGO.S                                    
            D3.2T1  601  ASMT.ASMTGO.SA.18                  1 LINE     80    4 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:15
0          THIS ROUTINE CALLS THE ASSEMBLER WITH TSS CALLING CONVENTIONS.
00619/19   *ASMT                     ASMTDEFS        SA     DEFS    S0653 'ASMT' FSNAME=ASMTDEFS.S                                  
            D3.2T1  602  ASMT.ASMTDEFS.SA.19                1 LINE     80    4 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:12
0          ASMT LOW-CORE SYMBOL TABLE.
00619/20   *ASMT                     CEVAR           SA  S  AR00    S0653 'ASMT' FSNAME=CEVAR.S                                     
            D3.2T1  603  ASMT.CEVAR.SA.20                   1 LINE     80    8 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:34
0          ASMT PSECTS.  ASSEMBLE WITH PAR=BATCH.
00619/21   *ASMT                     LPC             SA  O  LPC0    S0653 'ASMT' FSNAME=ASMTLPC.S                                   
            D3.2T1  604  ASMT.LPC.SA.21                     1 LINE     80   19 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:25
0          ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT).
            
           CHANGED TO USE 'GDDEFLT' BIT IN GDINFO, REMOVE BAS, BUGS FIXED.
00619/22   *ASMT                     OBJ PRODUCER    SA  O  DECK    S0653 'ASMT' FSNAME=DECK.S                                      
            D3.2T1  605  ASMT.OBJ_PRODUCER.SA.22            1 LINE     80   27 PAGE UM   BERSTIS             JAN. 15, 1975  21:48:34
0          PROGRAM TO CONVERT TSS OBJECT TO MTS FORMAT OBJECT DECK.
00619/23   *ASMT                     CEVML           SA  O  ML00    S0653 'ASMT' FSNAME=CEVML.S                                     
            D3.2T1  606  ASMT.CEVML.SA.23                   1 LINE     80    6 PAGE UM   BERSTIS             JAN. 15, 1975  21:42:41
0          MACRO AND COPY LIBRARY RETRIEVAL.
00619/24   *ASMT                     SHARED OBJECT   OE             S0653 'ASMT' FSNAME=ASMTLCOBJ                                   
            D3.2T1  607  ASMT.SHARED_OBJECT.OE.24           1 LINE    255   93 PAGE UM   BERSTIS             FEB. 11, 1975  01:57:55
0          SHARED (RE-ENTRANT) PART OF ASSEMBLER.  LOADED INTO SEGMENT 2 BY SEG 2 LOADER.
00619/25   *ASMT                     *ASMT           OE             S0653 'ASMT' FSNAME=*ASMT                                       
            D3.2T1  608  ASMT.*ASMT.OE.25                   1 SEQ    4096    9 PAGE UM   BERSTIS             FEB. 05, 1975  16:26:30
0          NON-SHARED OBJECT.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00619/26   *ASMT                     DOCUMENTATION   WF             S0653 'ASMT' FSNAME=ASMTDOC                                     
            D3.2T1  609  ASMT.DOCUMENTATION.WF.26           1 LINE    153    5 PAGE UM   BERSTIS             JAN. 15, 1975  21:41:13
0          *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION.  FILE HAS A "$CONTINUE WITH *DUMMY*" LINE.
           NOTE:  THIS FILE HAS COMMANDS AT NEGATIVE LINE NUMBERS.
00620       STATDSECT                                SA  G  STAD    COPY:STATDSECT                                                  
            D3.2T2    1  STATDSECT..SA.                     1 LINE     80    3 PAGE UM   MTA                 MAR. 21, 1975  02:15:22
0          THIS IS "COPY:STATDSECT" WHICH IS A COPY SECTION FOR THE *STATISTICS RECORD FORMAT DSECT.
0          Referenced by comments of: 71/1, 346/1, 355/1, 616/1, 616/3, 617/1 
00621/01    DISK ERROR LOG           *DLG            C              *DLG                                                            
            D3T5    237  DISK_ERROR_LOG.*DLG.C.1            1 LINE     26    1 PAGE UM   MTA                 AUG. 02, 1973  00:53.34
0          COMMAND FILE, INVOKED AT UM AS PART OF *LAS (154), WHICH RUNS THE READ3330LOG PROGRAM (621/2) TO LOG ALL 3330 DISK ERRORS.
           THIS FILE COULD ALTERNATIVELY BE SETUP TO RUN THE CONSOLE WATCH PROGRAM (621/6) IF 2314 DISKS ARE BEING USED.
00621/02    DISK ERROR LOG           READ3330LOG     SA  G  RD33    MTA:READ3330LOG(1,999)                                          
            D3T5    238  DISK_ERROR_LOG.READ3330LOG.SA.2    1 LINE     80    3 PAGE UM   MTA                 AUG. 02, 1973  00:53.36
0          WHEN FIRST RUN AND EVERY HOUR THEREAFTER, THIS PROGRAM READS THE BUFFERED HARDWARE ERROR LOG FROM EVERY PUBLIC
           DISK VOLUME AND LOGS THE RESULTS IN THE FORM OF UC ERROR MESSAGES.
           COPIES COPY:CMDAREADSECT (531/12) AND COPY:DSKDSCT (482/42).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 621/1, 621/4, 621/6 
00621/03    DISK ERROR LOG           READ3330LOG     OC  G          MTA:READ3330LOG(1000)                                           
            D3T5    239  DISK_ERROR_LOG.READ3330LOG.OC.3    1 LINE     80    1 PAGE UM   MTA                 AUG. 02, 1973  00:53.39
00621/04    DISK ERROR LOG           PRINT UC 3330   SA  G  PRUC    MTA:PRINTUC3330(1,999)                                          
            D3.2T2    2  DISK_ERROR_LOG.PRINT_UC_33.SA.04   1 LINE     80    7 PAGE UM   MTA                 MAR. 21, 1975  02:15:22
0          PROGRAM TO READ UNIT CHECK LOG RECORDS, AS SAVED BY READ3330LOG (621/2), UC3330 (603), OR ANY OTHER UNIT CHECK
           ROUTINE ON SCARDS AND FORMAT THEM FOR PRINTING 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 (531/24).
           COPIES COPY:CMDAREADSECT (531/12) AND *GDINFODSECT (594).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 639/7, 639/8 
00621/05    DISK ERROR LOG           PRINT UC 3330   OC  G          MTA:PRINTUC3330(1000)                                           
            D3.2T2    3  DISK_ERROR_LOG.PRINT_UC_33.OC.05   1 LINE     80    4 PAGE UM   MTA                 MAR. 21, 1975  02:15:24
0          HAS A "$CONTINUE WITH MTA:READBFR(1000) RETURN" LINE.
0          Referenced by comments of: 621/11 
00621/06    DISK ERROR LOG           CONSOLE WATCH   SA  O  LOGD    S0724 'D3T5' FSNAME=DISK_ERROR_LOG.CONSOLE_WAT.SA.6          242
            D3T5    242  DISK_ERROR_LOG.CONSOLE_WAT.SA.6    1 LINE     80    1 PAGE UM   MTA                 AUG. 02, 1973  00:53.48
0          PROGRAM TO KEEP WATCHING OUTPUT PRINTED ON OPERATORS CONSOLE LOOKING FOR DIRECT ACCESS UNIT CHECK
           MESSAGES AND WRITES THEM IN A FILE.  READ3330LOG (621/2) IS A REPLACEMENT FOR THIS PROGRAM WHEN 3330 DISKS ARE BEING USED.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 621/1 
00621/07    DISK ERROR LOG           CONSOLE WATCH   OC  O          S0724 'D3T5' FSNAME=DISK_ERROR_LOG.CONSOLE_WAT.OC.7          243
            D3T5    243  DISK_ERROR_LOG.CONSOLE_WAT.OC.7    1 LINE     80    1 PAGE UM   MTA                 AUG. 02, 1973  00:53.50
00621/08    DISK ERROR LOG           SCAN LOG        C              W032:DISKERRS                                                   
            D3T5    244  DISK_ERROR_LOG.SCAN_LOG.C.8        1 LINE     56    1 PAGE UM   EMERY               AUG. 02, 1973  00:53.53
0          COMMAND FILE TO FORMAT, SORT, AND PRINT DISK ERRORS ACCUMULATED BY THE CONSOLE WATCHING PROGRAM.
           ASSUMES UNIT CHECK MESSAGES ARE IN INIT:DISKLOG AND USES W032:DISKERR (621/9).
00621/09    DISK ERROR LOG           SCAN PROGRAM    SA     DERR    W032:DISKERR(1,999)                                             
            D3T5    245  DISK_ERROR_LOG.SCAN_PROGRA.SA.9    1 LINE     80    7 PAGE UM   EMERY               AUG. 02, 1973  00:53.55
0          PROGRAM TO REFORMAT DIRECT ACCESS UNIT CHECK MESSAGES SO THAT THEY CAN BE SORTED BY DEVICE NAME,
           TIME, AND DATE.
0          Referenced by comments of: 621/8 
00621/10    DISK ERROR LOG           SCAN PROGRAM    OC             W032:DISKERR(2000)                                              
            D3T5    246  DISK_ERROR_LOG.SCAN_PROGRA.OC.10   1 LINE     80    2 PAGE UM   EMERY               AUG. 02, 1973  00:53.58
00621/11    DISK ERROR LOG           SORT AND PRINT  C              MTA:SORTUC                                                      
            D3.2T2    4  DISK_ERROR_LOG.SORT_AND_PR.C.11    1 LINE     95    1 PAGE UM   MTA                 MAR. 21, 1975  02:15:26
0          COMMAND FILE TO SORT AND PRINT UNIT CHECK LOG RECORDS.
           RUNS *SORT WITH SORT EXIT (621/13) AND ALSO PRINTUC3330 (621/5).
00621/12    DISK ERROR LOG           SORT EXIT       SA  G  UCSE    MTA:SORTUC.E5(1,999)                                            
            D3.2T2    5  DISK_ERROR_LOG.SORT_EXIT.SA.12     1 LINE     80    2 PAGE UM   MTA                 MAR. 21, 1975  02:15:29
0          SORTE5 EXIT PROGRAM USED BY 621/11 COMMAND FILE.  COPIES COPY:CMDAREADSECT (531/12).
00621/13    DISK ERROR LOG           SORT EXIT       OC  G          MTA:SORTUC.E5(1000)                                             
            D3.2T2    6  DISK_ERROR_LOG.SORT_EXIT.OC.13     1 LINE     80    1 PAGE UM   MTA                 MAR. 21, 1975  02:15:32
0          Referenced by comments of: 621/11 
00622       FCBDSECT                                 SA  G          COPY:FCBDSECT                                                   
            D3.2T2    7  FCBDSECT..SA.                      1 LINE     80    4 PAGE UM   DWB                 MAR. 21, 1975  02:15:34
0          THIS IS "COPY:FCBDSECT" WHICH IS THE COPY SECTION FOR THE FILE CONTROL BLOCK (FCB) DSECT.
0          Referenced by comments of: 346/1, 387/1 
00623       FDUBDSECT                                SA  G          COPY:FDUBDSECT                                                  
            D3.2T2    8  FDUBDSECT..SA.                     1 LINE     80    3 PAGE UM   DWB                 MAR. 21, 1975  02:15:37
0          THIS IS "COPY:FDUBDSECT" WHICH IS THE COPY SECTION FOR FILE OR DEVICE USAGE BLOCK (FDUB) DSECT.
0          Referenced by comments of: 101/1, 116/1, 135/1, 143/1, 346/1, 387/1, 509/1, 591/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00624       WOPTRDSECT                               SA  G          COPY:WOPTRDSECT                                                 
            D3.2T2    9  WOPTRDSECT..SA.                    1 LINE     80    1 PAGE UM   DWB                 MAR. 21, 1975  02:15:39
0          THIS IS "COPY:WOPTRDSECT" WHICH IS THE COPY SECTION FOR THE WRITEON PRINTER DSECT.
0          Referenced by comments of: 346/1, 387/1 
00625/01   *TAPEFIXER                                SA  O          WSG:TAPEFIXER                                                   
                                                                                    UM   WSG                                        
0          PROGRAM TO RECOVER DATA FROM A 9-TRACK LABLELED TAPE WHICH HAS BEEN PARTIALLY
           DESTROYED OR CONTAINS UNREADABLE BLOCKS.
00625/02   *TAPEFIXER                                OC  O          WSG:TAPEFIXER.O                                                 
                                                                                    UM   WSG                                        
00626/01    ATNTRP SUBR                              SA  G  ATRP    S0579 SAVE 'JWS - SAVE' FSNAME=ATNTRP.S                         
            D3.1T1  512  ATNTRP_SUBR..SA.1                  1 LINE     80    1 PAGE UM   JWS                 MAR. 06, 1974  22:40.34
0          SUBROUTINE TO ALLOW FORTRAN USERS TO CALL ATTNTRP.
           MISSED IN DIST 3.0.
00626/02    ATNTRP SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   JWS                                        
00627/01    GDINF SUBR                               SA  G  GDIN    S0579 SAVE 'JWS - SAVE' FSNAME=GDINF.S                          
            D3.1T1  513  GDINF_SUBR..SA.1                   1 LINE     80    1 PAGE UM   JWS                 MAR. 06, 1974  22:40.36
0          SUBROUTINE TO ALLOW FORTRAN USERS TO CALL GDINFO.
           MISSED IN DIST 3.0.
00627/02    GDINF SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   JWS                                        
00628/01    UC3284                                   SA  G          MTS:UC3284(1,999)                                               
            D3.1T1  514  UC3284..SA.1                       1 LINE     72    3 PAGE UM   HAMILTON            MAR. 06, 1974  22:40.38
0          UNIT CHECK ROUTINES FOR IBM 3284 PRINTER.
00628/02    UC3284                                   OC  G          MTS:UC3284(1000)                                                
            D3.1T1  515  UC3284..OC.2                       1 LINE     80    1 PAGE UM   HAMILTON            MAR. 06, 1974  22:40.40
00629/01   *3270RTN                                  SA  G  3270    W047:3270.S                                                     
            D3.1T1  516  3270RTN..SA.1                      1 LINE     80   86 PAGE UM   HAMILTON            MAR. 06, 1974  22:40.42
0          UBC DSR FOR IBM 3277-1 AND 3277-2 DISPLAY TERMINALS.
00629/02   *3270RTN                                  OC  G          *3270RTN                                                        
            D3.1T1  517  3270RTN..OC.2                      1 LINE     80    6 PAGE UM   HAMILTON            MAR. 06, 1974  22:41.01
00630/01    TRUNCATE                                 SA             W078:TRUNCATE.S                                                 
            D3.1T1  519  TRUNCATE..SA.1                     1 LINE     72    3 PAGE UM   BERSTIS             MAR. 06, 1974  22:41.07
0          SCANS FILES ON USERS ACCOUNT AND TRUNCATES THOSE THAT NEED IT
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          IF USER RESPONDS Y/N.
           ALSO TEMPORARILY PERMITS TRUNCATE ACCESS TO FILE IF IT DOESN'T 
           HAVE SUCH ACCESS AND THE USER SO DESIRES.
           PRINTS TOTAL FILE SPACE ALLOWED ON ACCOUNT AND TOTAL
           OF USED SPACE BEFORE AND AFTER TRUNCATION.
           PAR=ALL MEANS TRUNCATE ALL FILES THAT NEED IT WITHOUT Y/N RESPONSE.
           COPIES *GFINFODSECT (593).
00630/02    TRUNCATE                                 OE             W078:TRUNCATE                                                   
            D3.1T1  520  TRUNCATE..OE.2                     1 SEQ    2655    2 PAGE UM   BERSTIS             MAR. 06, 1974  22:41.09
00631/01    ACCOUNTING CLS           CLSTV           SA  G  CLST    S0027 DISTRB FSNAME=CLSTV                                       
            D3.2T2   10  ACCOUNTING_CLS.CLSTV.SA.01         1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:08.14
0          PROGRAM TO PRODUCE CLSTRANSVEC WHICH IS A COPY SECTION FOR ACCCLS. 
           COPIES GRDEF (104/57) AND COPY:CLSVECTOR (535/2).
00631/02    ACCOUNTING CLS           CLSTV           OC  G  CLST    S0027 DISTRB FSNAME=CLST                                        
            D3.2T2   11  ACCOUNTING_CLS.CLSTV.OC.02         1 LINE     80    2 PAGE UM   ENGLE               DEC. 06, 1974  12:08.22
0          Referenced by comments of: 631/3 
00631/03    ACCOUNTING CLS           CLSTRANSVEC     SA  G          S0027 DISTRB FSNAME=CLSTRANSVEC                                 
            D3.2T2   12  ACCOUNTING_CLS.CLSTRANSVEC.SA.03   1 LINE     19    1 PAGE UM   ENGLE               DEC. 06, 1974  12:08.29
0          COPY SECTION FOR ACCCLS PRODUCED BY RUNNING CLSTV (631/2).
0          Referenced by comments of: 631/4 
00631/04    ACCOUNTING CLS           ACCCLS          SA  G  ACLS    S0027 DISTRB FSNAME=ACCCLS                                      
            D3.2T2   13  ACCOUNTING_CLS.ACCCLS.SA.04        1 LINE     80    6 PAGE UM   ENGLE               DEC. 06, 1974  12:08.43
0          INTERFACE BETWEEN ACCOUNTING CLS CALL AND ACCMXMAT.
           COPIES GRDEF (104/57) AND CLSTRANSVEC (631/3).
00631/05    ACCOUNTING CLS           ACCCLS          OC  G  ACLS    S0027 DISTRB FSNAME=ACLS                                        
            D3.2T2   14  ACCOUNTING_CLS.ACCCLS.OC.05        1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:09.03
0          Referenced by comments of: 631/12 
00631/06    ACCOUNTING CLS           ACCMXMAT        SA  G  AMXM    S0027 DISTRB FSNAME=ACCMXMAT                                    
            D3.2T2   15  ACCOUNTING_CLS.ACCMXMAT.SA.06      1 LINE     80   49 PAGE UM   ENGLE               DEC. 06, 1974  12:45.02
0          ACCOUNTING MAXIMUM MAINTENANCE (MAIN PROGRAM FOR ACCOUNTING CLS). 
           COPIES ACCFORMAT (104/1), ACCPROJFMT (104/2), AND COPY:RATEVEC (651/2).
00631/07    ACCOUNTING CLS           ACCMXMAT        OC  G          S0027 DISTRB FSNAME=AMXM                                        
            D3.2T2   16  ACCOUNTING_CLS.ACCMXMAT.OC.07      1 LINE     80   10 PAGE UM   ENGLE               DEC. 06, 1974  12:46.54
0          THIS PROGRAM HAS A GBLB SYMBOL &PW WHICH, IF SET TO 1, WILL CAUSE THE INSTRUCTIONS
           FOR THE PASSWORD COMMAND TO BE ASSEMBLED.  NO GUARANTEES ON WHETHER THIS WORKS.
0          Referenced by comments of: 631/12 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00631/08    ACCOUNTING CLS           ACUSPRNT        SA  G  AUPR    S0027 DISTRB FSNAME=ACUSPRNT                                    
            D3.2T2   17  ACCOUNTING_CLS.ACUSPRNT.SA.08      1 LINE     80    7 PAGE UM   ENGLE               MAY  03, 1974  13:40.39
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/09    ACCOUNTING CLS           ACUSPRNT        OC  G          S0027 DISTRB FSNAME=AUPR                                        
            D3.2T2   18  ACCOUNTING_CLS.ACUSPRNT.OC.09      1 LINE     80    3 PAGE UM   ENGLE               MAY  03, 1974  13:44.16
0          >>>>> CONTAINS A REP CARD TO DELETE THE CHECK FOR HIGH PRIORITY INHIBITED FLAGS (NOT USED AT UM). <<<<<<<<<
0          Referenced by comments of: 631/12 
00631/10    ACCOUNTING CLS           FASTIOCK        SA  G  FIOC    S0027 DISTRB FSNAME=FASTIOCK                                    
            D3.2T2   19  ACCOUNTING_CLS.FASTIOCK.SA.10      1 LINE     80    3 PAGE UM   ENGLE               DEC. 06, 1974  12:48.35
0          SUBROUTINE TO DETERMINE IF AN I/O UNIT IS "FAST."  USED IN ACCOUNTING CLS.  COPIES GRDEF (104/57).
00631/11    ACCOUNTING CLS           FASTIOCK        OC  G          S0027 DISTRB FSNAME=FIOC                                        
            D3.2T2   20  ACCOUNTING_CLS.FASTIOCK.OC.11      1 LINE     80    1 PAGE UM   ENGLE               DEC. 06, 1974  12:48.53
0          Referenced by comments of: 104/1, 631/12 
00631/12    ACCOUNTING CLS           *CLSACC         OE  G          S0027 DISTRB FSNAME=*CLSACC                                     
            D3.2T2   21  ACCOUNTING_CLS.*CLSACC.OE.12       1 SEQ   10552    6 PAGE UM   ENGLE               DEC. 06, 1974  13:09.29
0          ACCOUNTING CLS OBJECT. ALLOWS PROJECT DIRECTORS AND INSTRUCTORS TO DISTRIBUTE
           MONEY, DISK SPACE, AND TERMINAL AND PLOT TIME TO THEIR USER ID'S AND TO CHANGE
           EXPIRATION DATES. IT CONSISTS OF ACCCLS (631/5) + ACCMXMAT (631/7)
            + GETFILE (104/89) + DIRECTRY (104/45) + ACCIO (104/18) + FILENAME
           (104/43) +ACUSPRNT (631/9) + FASTIOCK (631/11) + IOLOKCK (104/97) + TIMETRP (104/81) + *LCS.
           *PROJECTACCOUNT, WHICH IS IN A STATE OF DECLINE, IS THE SAME WITHOUT ACCCLS.
0          Referenced by comments of: 45/3 
00632/01    REBATE                   REBATE          SP  G  RBAT    S0027 DISTRB FSNAME=REBATE                                      
            D3.2T2   22  REBATE.REBATE.SP.01                1 LINE     80   24 PAGE UM   ENGLE               DEC. 06, 1974  13:30.24
0          REBATES MTS SIGNONS.
           THE REBATE PROGRAM IS CONSTRUCTED BY COMBINING REBATE (632/2) AND ACCLIB (104/31).
00632/02    REBATE                   REBATE          OC  G  RBAT    S0027 DISTRB FSNAME=RBAT                                        
            D3.2T2   23  REBATE.REBATE.OC.02                1 LINE     80   22 PAGE UM   ENGLE               DEC. 06, 1974  13:31.24
0          Referenced by comments of: 632/1 
00632/03    REBATE                   RBATACC         SA  G  RBTA    S0027 DISTRB FSNAME=RBATACC                                     
            D3.2T2   24  REBATE.RBATACC.SA.03               1 LINE     80    5 PAGE UM   ENGLE               MAR. 11, 1975  16:00:39
0          SUBROUTINE CALLED BY REBATE TO COMPUTE COST OF REBATE AND TO UPDATE USERS 
           ACCOUNTING RECORD. USED IN ACCLIB (104/31).
1                                                                                               FRI AUG 02/96   19:04:25   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          COPIES GRDEF (104/57), COPY:RATEVEC (651/2), AND ACCFORMAT (104/1).
00632/04    REBATE                   RBATACC         OC  G  RBTA    S0027 DISTRB FSNAME=RBTA                                        
            D3.2T2   25  REBATE.RBATACC.OC.04               1 LINE     80    3 PAGE UM   ENGLE               MAR. 11, 1975  16:01:01
0          Referenced by comments of: 104/1 
00632/05    REBATE                   STAREAD         SA  G  STRD    S0780 'D3.1T1' FSNAME=REBATE.STAREAD.SA.5                    536
            D3.1T1  536  REBATE.STAREAD.SA.5                1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  18:01.45
0          SUBROUTINE CALLED BY REBATE TO READ A RECORD FROM *STATISTICS.
           USED IN ACCLIB (104/31).
           COPIES GRDEF (104/57).
00632/06    REBATE                   STAREAD         OC  G  STRD    S0780 'D3.1T1' FSNAME=REBATE.STAREAD.OC.6                    537
            D3.1T1  537  REBATE.STAREAD.OC.6                1 LINE     80    2 PAGE UM   ENGLE               JAN. 31, 1974  18:02.00
0          Referenced by comments of: 104/1 
00632/07    REBATE                   WRITEUP         WF             S0027 DISTRB FSNAME=REBATEWRITUP                                
            D3.2T2   26  REBATE.WRITEUP.WF.07               1 LINE     80    6 PAGE UM   ENGLE               DEC. 06, 1974  13:33.21
0          WRITEUP FOR REBATE.
00632/08    REBATE                   REQUEST FORM    WF             S0027 DISTRB FSNAME=REBATREQUEST                                
            D3.2T2   27  REBATE.REQUEST_FORM.WF.08          1 LINE    112    2 PAGE UM   ENGLE               DEC. 06, 1974  13:36.40
0          COMMANDS AND *FORMAT INPUT FOR REBATE REQUEST FORM.
00633/01   *PL1SCAN                  IBM SOURCE      SA  G          S0696 OSSRC6 POSN=PL552                                         
                                                                                    UM   TIFFANY                                    
0          IBM OS/360 (RELEASE 21.7) SOURCE FOR PL/I SYNTAX SCANNING PROGRAM.
00633/02   *PL1SCAN                  MTS UPDATE      UI  G          W062:PL1SCAN.UP                                                 
                                                                                    UM   TIFFANY                                    
0          *IEBUPDATE DECK FOR MTS CHANGES.  ASSEMBLE OUTPUT OF UPDATE USING IKM (633/3).
           COPIES IKMBASE (633/4).
00633/03   *PL1SCAN                  IKM             SM  G          W062:IKM                                                        
                                                                                    UM   TIFFANY                                    
0          Referenced by comments of: 633/2 
00633/04   *PL1SCAN                  IKMBASE         SA  G          W062:IKMBASE                                                    
                                                                                    UM   TIFFANY                                    
0          A SECTION COPIED BY THE IKM002 MODULE.
0          Referenced by comments of: 633/2 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00633/05   *PL1SCAN                  INTERFACE       SA  G          W062:PL1SCAN.S                                                  
                                                                                    UM   TIFFANY                                    
0          MTS INTERFACE MODULE.  ASSEMBLE USING MACROLIB (633/6).
00633/06   *PL1SCAN                  MACROLIB        SM  G          W062:MACROLIB                                                   
                                                                                    UM   TIFFANY                                    
0          Referenced by comments of: 633/5 
00633/07   *PL1SCAN                                  OC  G          W062:PL1SCAN.O                                                  
            D3.1T1  540  PL1SCAN..OE.2                      1 SEQ     256   10 PAGE UM   TIFFANY             MAR. 06, 1974  22:45.42
0          THIS OBJECT IS LOADED INTO SHARED VM AFTER IPL BY PISTLE.
0          Referenced by comments of: 633/8 
00633/08   *PL1SCAN                  *PL1SCAN        OC  G          *PL1SCAN                                                        
            D3.1T1  541  PL1SCAN.*PL1SCAN.OC.3              1 LINE     24    1 PAGE UM   TIFFANY             MAR. 06, 1974  22:45.44
0          CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM PL1SCAN (633/7).
00633/09   *PL1SCAN                  WRITEUP         WF             W098:KDM265                                                     
            D3.1T1  542  PL1SCAN.WRITEUP.WF.4               1 LINE    104    1 PAGE UM   TIFFANY             MAR. 06, 1974  22:45.45
0          THIS IS COMPUTING CENTER MEMO M265 -- "*PL1SCAN"
00634/01    OPERATOR JOB                             SA  G  OPER    W047:OP.S                                                       
            D3.2T2   28  OPERATOR_JOB..SA.01                1 LINE     80   54 PAGE UM   HAMILTON            MAR. 21, 1975  02:20:02
0          JOB PROGRAM TO SUPPORT IBM 3270 AS OPERATOR'S CONSOLE.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 413/1, 1026/1 
00634/02    OPERATOR JOB             370 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HAMILTON                                   
00634/03    OPERATOR JOB             360 OBJECT      OC  G        # RESIDENT SYSTEM (SEE COMP 468/2)                                
                                                                                    UM   HAMILTON                                   
0          OBJECT ALSO IN FILE W047:OP.360.O.
00634/04    OPERATOR JOB             CONSIO          SA  G  CONS    W047:CONSIO                                                     
            D3.2T2   29  OPERATOR_JOB.CONSIO.SA.04          1 LINE     80    5 PAGE UM   HAMILTON            MAR. 21, 1975  02:20:25
0          SUBROUTINE TO DO STAND-ALONE I/O TO 1052 OR 3066.  THIS IS A REPLACEMENT FOR THE OPERATOR
           JOB PROGRAM FOR INSTALLATIONS WHICH ARE NOT USING THE 3270 OPERATOR'S CONSOLE SUPPORT.
           COPIES COPY:GLOBALS (1026/4).  ASSEMBLE USING COPY:SETPARM (653).
00634/05    OPERATOR JOB             CONSIO 370 OBJ  OC  G          W047:CONSIO.370.O                                               
            D3.2T2   30  OPERATOR_JOB.CONSIO_370_OB.OC.05   1 LINE     80    1 PAGE UM   HAMILTON            MAR. 21, 1975  02:20:26
0          370 INSTALLATIONS NOT USING THE 3270 OPERATOR'S CONSOLE SUPPORT SHOULD REPLACE THE OPERATOR
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
0          JOB IN THE RESIDENT SYSTEM OBJECT DECK (468/1) WITH THIS DECK.
00634/06    OPERATOR JOB             CONSIO 360 OBJ  OC  G          W047:CONSIO.360.O                                               
                                                                                    UM   HAMILTON                                   
0          360/67 INSTALLATIONS NOT USING THE 3270 OPERATOR'S CONSOLE SUPPORT SHOULD REPLACE THE OPERATOR
           JOB IN THE RESIDENT SYSTEM OBJECT DECK (468/2) WITH THIS DECK.
00634/07    OPERATOR JOB             WRITEUP         WF  G          W047:OP.W                                                       
            D3.1T1  546  OPERATOR_JOB.WRITEUP.WF.5          1 LINE    126    4 PAGE UM   HAMILTON            MAR. 06, 1974  22:46.18
0          OPERATOR'S GUIDE TO USING THE IBM 3270 OPERATOR'S CONSOLE.
00635/01    FSUB                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          COMPOSED OF FDGET, HOPENIT, GIVEBACK, FILE LOCKING AND UNLOCKING, ETC. SECTIONS.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:MTS.EQU (345), COPY:MTS.TV (640),
           COPY:MTS.CONTAB (343), COPY:CLSPLAN (535/1), AND COPY:MTS.DSECT (346).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1 
00635/02    FSUB                     UPDATE          UU  G          MTS:FSUBUPD                                                     
            D3.2T2   31  FSUB.UPDATE.UU.02                  1 LINE     65    4 PAGE UM   DWB                 MAR. 21, 1975  02:20:29
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO CURRENT FSUB.
           UPDATE DECK USES %POSN *IN* MTS.
00635/03    FSUB                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00636/01    CMDS                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          MTS COMMAND PROCESSORS.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:MTS.EQU (345), COPY:MTS.TV (640), COPY:MTS.CONTAB (343),
           COPY:CLSPLAN (535/1), AND COPY:MTS.DSECT (346).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1 
00636/02    CMDS                     UPDATE          UU  G          MTS:CMDSUPD                                                     
            D3.2T2   32  CMDS.UPDATE.UU.02                  1 LINE     72    8 PAGE UM   DWB                 MAR. 21, 1975  02:20:31
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO CURRENT CMDS.
           UPDATE DECK USES %POSN *IN* MTS.
00636/03    CMDS                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00637/01    DSRS                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          MTS INTERNAL DSR'S AND HASP INTERFACE.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:MTS.EQU (345), COPY:MTS.TV (640),
           COPY:MTS.CONTAB (343), COPY:CLSPLAN (535/1), AND COPY:MTS.DSECT (346).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1 
00637/02    DSRS                     UPDATE          UU  G          MTS:DSRSUPD                                                     
            D3.2T2   33  DSRS.UPDATE.UU.02                  1 LINE     68    3 PAGE UM   DWB                 MAR. 21, 1975  02:20:34
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO CURRENT DSRS.
           UPDATE DECK USES %POSN *IN* MTS.
00637/03    DSRS                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00638/01    USUB                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          MTS USER SUBROUTINES.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:MTS.EQU (345), COPY:MTS.TV (640), COPY:MTS.CONTAB (343),
           COPY:CLSPLAN (535/1), AND COPY:MTS.DSECT (346).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1 
00638/02    USUB                     UPDATE          UU  G          MTS:USUBUPD                                                     
            D3.2T2   34  USUB.UPDATE.UU.02                  1 LINE     70    2 PAGE UM   DWB                 MAR. 21, 1975  02:20:36
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO CURRENT USUB.
           UPDATE DECK USES %POSN *IN* MTS.
00638/03    USUB                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00639/01    DSRI                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          MTS DSR INTERFACE.
           COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:MTS.EQU (345), COPY:MTS.TV (640),
           COPY:MTS.CONTAB (343), COPY:CLSPLAN (535/1), AND COPY:MTS.DSECT (346).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1 
00639/02    DSRI                     UPDATE          UU  G          MTS:DSRIUPD                                                     
            D3.2T2   35  DSRI.UPDATE.UU.02                  1 LINE     72    5 PAGE UM   DWB                 MAR. 21, 1975  02:20:38
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO CURRENT DSRI.
           UPDATE DECK USES %POSN *IN* MTS.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00639/03    DSRI                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   DWB                                        
00639/04    DSRI                     TESTIO          SA  G  TSIO    MTS:TESTIO(1,999)                                               
            D3.2T2   36  DSRI.TESTIO.SA.04                  1 LINE     80    9 PAGE UM   MTA                 MAR. 21, 1975  02:20:40
0          TEST PROGRAM FOR DSR INTERFACE.
0          Referenced by comments of: 639/6 
00639/05    DSRI                     TESTIO          OC  G          MTS:TESTIO(1000)                                                
            D3.2T2   37  DSRI.TESTIO.OC.05                  1 LINE     80    5 PAGE UM   MTA                 MAR. 21, 1975  02:20:42
00639/06    DSRI                     TESTIO DATA     D              MTS:TESTIODATA                                                  
            D3.2T2   38  DSRI.TESTIO_DATA.D.06              1 LINE     39    1 PAGE UM   MTA                 MAR. 21, 1975  02:20:44
0          COMMANDS TO TESTIO PROGRAM (639/4), READ ON SCARDS.
00639/07    DSRI                     TESTIO FILE 1   D              MTS:TESTIOFILE                                                  
            D3.2T2   39  DSRI.TESTIO_FILE_1.D.07            1 LINE      5    1 PAGE UM   MTA                 MAR. 21, 1975  02:20:46
0          TESTIO (621/4) TEST FILE NUMBER 1.
00639/08    DSRI                     TESTIO FILE 2   D              MTS:TESTIOFILE2                                                 
            D3.2T2   40  DSRI.TESTIO_FILE_2.D.08            1 LINE      5    1 PAGE UM   MTA                 MAR. 21, 1975  02:20:49
0          TESTIO (621/4) TEST FILE NUMBER 2.
00640       MTS.TV                                   SA  G          COPY:MTS.TV                                                     
            D3.2T2   41  MTS.TV..SA.                        1 LINE     56    1 PAGE UM   DWB                 MAR. 21, 1975  02:20:51
0          THIS IS "COPY:MTS.TV" WHICH CONSISTS OF A TRANSFER VECTOR DSECT USED BY THE MTS SUBROUTINES
           TO CALL SUBROUTINES COVERED BY REGISTERS 11 AND 12.
0          Referenced by comments of: 40/1, 41/1, 354/1, 462/1, 464/1, 539/1, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1 
00641       CLSAREA                                  SA  G          COPY:CLSAREA                                                    
            D3.2T2   42  CLSAREA..SA.                       1 LINE     80    2 PAGE UM   DWB                 MAR. 21, 1975  02:20:53
0          COPY SECTION WHICH CONSISTS OF THE CLS AREA PLUS THE $RUN COMMAND
           DSECT FOR SDS.  COPY:CLSAREA IS CONTINUED WITH BY COPY:MTS.DSECT (346).
0          Referenced by comments of: 346/1, 600/1, 600/4, 600/6, 600/8, 600/10 
00642/01    PACK MAP                                 SA  G  PCKM    MTS:PACKMAP                                                     
            D3.2T2   43  PACK_MAP..SA.01                    1 LINE     80   22 PAGE UBC  PIRKOLA             MAR. 21, 1975  02:20:55
0          UBC PROGRAM TO PRINT COMPLETE MAP OF A PAGE-FORMATTED DISK PACK.
           FOR INSTRUCTIONS ON USE SEE COMMENTS AT BEGINNING OF SOURCE FILE
           CALLS ISORT (642/2) AND VTOCREAD (067/4).
           COPIES COPY:DSKDSCT (482/42) AND COPY:DSCBDSCT (482/41).
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00642/02    PACK MAP                                 SA  G          MTS:PMAP.ISORT                                                  
            D3.2T2   44  PACK_MAP..SA.02                    1 LINE     72    8 PAGE UBC  PIRKOLA             MAR. 21, 1975  02:20:57
0          IN CORE SORT ROUTINE USED BY PACKMAP.
0          Referenced by comments of: 642/1 
00642/03    PACK MAP                                 OC  G          MTS:PACKMAP.O                                                   
            D3.2T2   45  PACK_MAP..OC.03                    1 LINE     80    7 PAGE UBC  PIRKOLA             MAR. 21, 1975  02:20:59
0          OBJECT FOR PACKMAP, CONTAINS ISORT OBJECT AND VTOCREAD OBJECT.
00643/01    PAGLOAD                                  SA  G  PGLD    W047:PAGLOAD(1000)                                              
            D3.1T1  557  PAGLOAD..SA.1                      1 LINE     80    8 PAGE UM   HAMILTON            MAR. 06, 1974  22:46.43
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 WITH *SYSMAC.
00643/02    PAGLOAD                                  OC  G          W047:PAGLOAD(1,999)                                             
            D3.1T1  558  PAGLOAD..OC.2                      1 LINE     80    2 PAGE UM   HAMILTON            MAR. 06, 1974  22:46.46
00644/01    DISK SPACE                               SA  G          MTS:DS                                                          
            D3.2T2   46  DISK_SPACE..SA.01                  1 LINE     72    3 PAGE UBC  PIRKOLA             MAR. 21, 1975  02:21:01
0          UBC PROGRAM TO PRINT AVAILABLE DISK SPACE.
           COPIES COPY:DSKDSCT (482/42).
00644/02    DISK SPACE                               OC  G          MTS:DS.O                                                        
            D3.2T2   47  DISK_SPACE..OC.02                  1 LINE     80    1 PAGE UBC  PIRKOLA             MAR. 21, 1975  02:21:03
00645       UBCDSECTS                                SA  G          COPY:UBCDSECTS                                                  
            D3.2T2   48  UBCDSECTS..SA.                     1 LINE     71    1 PAGE UBC  DWB                 MAR. 21, 1975  02:21:05
0          THIS IS "COPY:UBCDSECTS" WHICH IS A COPY SECTION FOR UBC STUFF IN THE MTS DSECT.  COPY:MTS.DSECT (346)
           $CONTINUE WITH'S TO THIS.
0          Referenced by comments of: 346/1 
00646/01    SYSTEM DOCUMENTATION     LECTURE 1       WF             MTS:LECTURE1                                                    
                                                                                    UM   DWB                                        
0          FORMAT SOURCE FOR LECTURE 1 OF THE MTS SYSTEMS LECTURES.
00647/01    TASKSTAT SUBR                            SA  G  TKST    W047:TASKSTAT(1,999)                                            
            D3.2T2   49  TASKSTAT_SUBR..SA.01               1 LINE     80    5 PAGE UM   HAMILTON            MAR. 21, 1975  02:21:08
0          RE-ENTRANT SUBROUTINE TO RETURN STATE OF AN ACTIVE TASK AS FOLLOWS:
                CALL TASKSTAT,(JOBTABLE,CODE,INFO,PSW,DESC)
             JOBTABLE CONTAINS A POINTER TO GUESS WHAT.
             CODE WILL CONTAIN A FULLWORD INTEGER DESCRIBING THE STATE OF THE TASK:
                   0 = READY                  5 = SVC LOCK WAIT
                   1 = PAGE WAIT              6 = GTUNIT WAIT
                   2 = DISK I/O WAIT          7 = FILE WAIT
1                                                                                               FRI AUG 02/96   19:04:25   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                  3 = OTHER I/O WAIT         8 = UNKNOWN WAYT
                   4 = TIME WAIT              9 = IDLE
             INFO WILL CONTAIN A FULLWORD VALUE DEPENDING ON CODE.
                FOR CODES 0 AND 1:  INFO = 0 -> NEUTRAL, 1 -> PRIV, 2 -> NON-PRIV
                FOR CODES 2, 3, 6:  INFO = DEVICE LIST POINTER
                FOR CODE 5:         INFO = LOCK NUMBER
                FOR CODE 8:         INFO = WAYT FLAG
                FOR OTHER CODES:    INFO = 0
             PSW WILL CONTAIN THE RIGHT HALF OF THE PSW IF THERE IS ONE, OTHERWISE ZERO.
             DESC WILL CONTAIN A 12-BYTE READY-TO-PRINT DESCRIPTION OF THE CURRENT STATE.
            
           CALLED BY TASKS JOB (019) AND SSRTN (413/1) TO DETERMINE THE STATE OF A JOB.
           COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4).
0          Referenced by comments of: 413/1 
00647/02    TASKSTAT SUBR                            OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HAMILTON                                   
00648/01    EDITOR (NEW)                             SA  S  EDIT    W078:NE                                                         
                                                                                    UM   BERSTIS                                    
0          CLS SOURCE FOR NEW EDITOR.  COPIES COPY:CLSPLAN (535/1) AND COPY:CLSVECTOR (535/2).
00648/02    EDITOR (NEW)             EST SUBR        SA  S          W078:EST(2000)                                                  
                                                                                    UM   BERSTIS                                    
0          SUBROUTINE TO CALCULATE INSERTION LINE NUMBER SPACING.
00648/03    EDITOR (NEW)             CLS OBJECT      OC  S          NEW:EDCLS                                                       
                                                                                    UM   BERSTIS                                    
0          OBJECT FOR NEW EDITOR CLS SUITABLE FOR LOADING BY PISTLE.
00648/04    EDITOR (NEW)             *ED             SA  G          W078:EC                                                         
                                                                                    UM   BERSTIS                                    
0          INTERFACE TO EDITOR CLS.
           COPIES COPY:STANDARDTV (535/3).
00648/05    EDITOR (NEW)             *ED             OC  G          NEW:ED                                                          
                                                                                    UM   BERSTIS                                    
00648/06    EDITOR (NEW)             WRITEUP         WF  B          W078:EDWRUP                                                     
                                                                                    UM   BERSTIS                                    
00649/01    SNOBOL TIDY                              SA  O  STID    W078:SNOBOLTIDY(1000)                                           
                                                                                    UM   BERSTIS                                    
0          PROGRAM TO RENUMBER LINE FILE CONTAINING SNOBOL SOURCE PROGRAM IN SUCH
           A WAY AS TO MAKE STATEMENT NUMBERS CORRESPOND TO LINE NUMBERS IN THE
           FILE, PROVIDED NO LINE CONTAINS MORE THAN ONE STATEMENT.  ENCOURAGES
           COMMENTS IN SNOBOL PROGRAMS.
            
1                                                                                               FRI AUG 02/96   19:04:25   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          ASSEMBLE WITH PAR=B.
00649/02    SNOBOL TIDY                              OC  O          W078:SNOBOLTIDY(1,999)                                          
                                                                                    UM   BERSTIS                                    
00650/01    BJPMOD                                   SA  G  BJPM    W047:BJPMOD                                                     
            D3.2T2   50  BJPMOD..SA.01                      1 LINE     80    4 PAGE UM   HAMILTON            MAR. 21, 1975  02:21:10
0          SUBROUTINE CALLED BY SSRTN (413/1) TO DYNAMICALLY ADJUST THE SUPERVISOR PAGING
           PARAMETERS BASED ON THE SYSTEM LOAD.
           COPIES COPY:GLOBALS (1026/4), COPY:JOBSTA (413/14), AND COPY:BJPDSCT (650/3).
0          Referenced by comments of: 45/2, 413/1 
00650/02    BJPMOD                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   HAMILTON                                   
00650/03    BJPMOD                   BJP DSECT       SA  G  BJPD    COPY:BJPDSCT                                                    
            D3.2T2   51  BJPMOD.BJP_DSECT.SA.03             1 LINE     80    1 PAGE UM   HAMILTON            MAR. 21, 1975  02:21:12
0          DSECT FOR SUPERVISOR'S BIG JOB PARAMETER VECTOR.
0          Referenced by comments of: 413/1, 650/1 
00651/01    RATES                    RATEFILEFMT     SA  G  RTFL    S0027 DISTRB FSNAME=RATEFILEFMT                                 
            D3.2T2   52  RATES.RATEFILEFMT.SA.01            1 LINE     80    1 PAGE UM   ENGLE               MAY  03, 1974  14:34.58
0          DESCRIBES MTS RATE LINES IN *RATEFILE.
0          Referenced by comments of: 651/3 
00651/02    RATES                    COPY:RATEVEC    SA  G  RATE    COPY:RATEVEC                                                    
            D3.2T2   53  RATES.COPY:RATEVEC.SA.02           1 LINE     80    1 PAGE UM   ENGLE               MAR. 21, 1975  02:21:42
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: 71/1, 104/11, 104/13, 586/1, 631/6, 632/3, 651/8, 651/10, 651/12 
00651/03    RATES                    RATEGEN         SA  G  RGEN    S0027 DISTRB FSNAME=RATEGEN                                     
            D3.2T2   54  RATES.RATEGEN.SA.03                1 LINE     80    6 PAGE UM   ENGLE               DEC. 06, 1974  13:29.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/04    RATES                    RATEGEN         OC  G          S0027 DISTRB FSNAME=RGEN                                        
            D3.2T2   55  RATES.RATEGEN.OC.04                1 LINE     80    5 PAGE UM   ENGLE               DEC. 06, 1974  13:29.36
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00651/05    RATES                    RATEPRNT        SA  G  RPRT    S0027 DISTRB FSNAME=RATEPRNT                                    
            D3.2T2   56  RATES.RATEPRNT.SA.05               1 LINE     80    4 PAGE UM   ENGLE               MAY  03, 1974  14:42.03
0          PROGRAM TO PRINT THE CONTENTS OF *RATEFILE.  RATE LINES ARE PRINTED AS IF THEY FORMED
           A COLUMN MAJOR MATRIX CONTAINING 3 ROWS.
00651/06    RATES                    RATEPRNT        OC  G          S0027 DISTRB FSNAME=RPRT                                        
            D3.2T2   57  RATES.RATEPRNT.OC.06               1 LINE     80    1 PAGE UM   ENGLE               MAY  03, 1974  14:42.23
00651/07    RATES                    *RATEFILE       D   G          *RATEFILE                                                       
            D3.2T2   58  RATES.*RATEFILE.D.07               1 LINE    127    5 PAGE UM   ENGLE               MAR. 21, 1975  02:22:41
0          FILE USED BY MTS AND BILLING FOR CHARGE RATES.
           DOES NOT NECESSARILY AGREE WITH DISTRIBUTED VERSION OF RATEGEN (651/3).
00651/08    RATES                    GETRATES        SA  G  GETR    MTS:GETRATES(1,999)                                             
            D3.2T2   59  RATES.GETRATES.SA.08               1 LINE     80    6 PAGE UM   MTA                 MAR. 21, 1975  02:22:43
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/09    RATES                    GETRATES        OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00651/10    RATES                    RATENBR         SA  G  RNBR    MTS:RATENBR                                                     
            D3.2T2   60  RATES.RATENBR.SA.10                1 LINE     80    6 PAGE UM   MTA                 MAR. 21, 1975  02:22:45
0          SUBROUTINE (LOADED INTO SHARED VM BY PISTLE) TO COMPUTE THE APPROPRIATE
           RATE NUMBER FOR THE CURRENT JOB.  COPIES COPY:GLOBALS (1026/4), COPY:LLMPSEQU (087),
           COPY:MTS.EQU (345), COPY:RATEVEC (651/2), COPY:MTS.CONTAB (343), COPY:CLSPLAN (535/1),
           AND COPY:MTS.DSECT (346).
00651/11    RATES                    RATENBR         OC  G          *RATENBR                                                        
            D3.2T2   61  RATES.RATENBR.OC.11                1 LINE     80    1 PAGE UM   MTA                 MAR. 21, 1975  02:22:47
00651/12    RATES                    RATEVEC         SA  G  RVEC    MTS:RATEVEC(1,999)                                              
            D3.2T2   62  RATES.RATEVEC.SA.12                1 LINE     80    1 PAGE UM   MTA                 MAR. 21, 1975  02:22:49
0          INITIAL VALUES FOR RATE VECTOR.  COPIES COPY:RATEVEC (651/2).
00651/13    RATES                    RATEVEC         OC  G        # RESIDENT SYSTEM (SEE COMP 468/1)                                
                                                                                    UM   MTA                                        
00651/14    RATES                    DOCUMENTATION   WF  G          MTA:VBLRATEDOC                                                  
            D3.2T2   63  RATES.DOCUMENTATION.WF.14          1 LINE    126    5 PAGE UM   MTA                 MAR. 21, 1975  02:22:51
0          A WRITEUP DESCRIBING THE MTS VARIABLE RATES IMPLEMENTATION.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00652/01    MTS VOLUME 12            MASTER          WT  G          S0909 MTSV12 'MTS MANUALS' POSN=NEWM1.V12                       
                                                                                    UM   SALISBURY                                  
0          TEXT/360 MASTER FOR VOLUME 12 "PIL/2 IN MTS" OF THE UM MTS MANUAL.
00652/02    MTS VOLUME 12            PRINT           PT  G          S0909 MTSV12 'MTS MANUALS' POSN=PRINT1.V12                      
                                                                                    UM   SALISBURY                                  
0          TEXT/360 PRINT FILE.
00653       SETPARM                                  SM  G          COPY:SETPARM                                                    
            D3.2T2   64  SETPARM..SM.                       1 LINE     52    1 PAGE UM   MTA                 MAR. 21, 1975  02:22:53
0          MACRO LIBRARY CONTAINING ONLY THE SETPARM MACRO WHICH GENERATES
           SETB STATEMENTS FOR THE COPY:GLOBALDEFS (1026/1) SYMBOLS BASED ON THE
           SYSPARM FIELD GIVEN TO *ASMG.
           FOR EXAMPLE, IF A PROGRAM HAS A SETPARM MACRO (AFTER COPYING COPY:GLOBALS)
           AND IS ASSEMBLED WITH PAR=SYSPARM=10101 THEN ADDITIONAL SETB
           STATEMENTS WILL BE GENERATED AS FOLLOWS:
               &S370    SETB  1
               &OC3066  SETB  0
               &CRTY    SETB  1
               &SIMPLEX SETB  0
               &OPERJOB SETB  1
0          Referenced by comments of: 5/1, 7/1, 8/1, 10/1, 79/1, 156/1, 388/1, 399/1, 400/1, 531/1, 539/2, 577/53, 578/1,
                 579/1, 634/4 
00654      *CNFGINFODSECT                            SA  G          *CNFGINFODSECT                                                  
            D3.2T2   65  CNFGINFODSECT..SA.                 1 LINE     71    2 PAGE UM   MTA                 MAR. 21, 1975  02:22:56
0          DSECT FOR TABLE DESCRIBING SYSTEM CONFIGURATION (E.G. CPU TYPE AND FEATURES).
           THIS TABLE IS NOT RELATED TO CHACST (577/28).
0          Referenced by comments of: 4/1, 4/4, 46/3, 97/11, 104/44, 135/1, 303/1, 303/4, 482/3, 482/7, 545/48, 558/1, 568/1 
00655/01    EREP/370                 COMMANDS        C              MTA:EREPCMD                                                     
            D3.2T2   66  EREP/370.COMMANDS.C.01             1 LINE     81    1 PAGE UM   MTA                 MAR. 21, 1975  02:22:58
0          IBM VS2 EREP PROGRAM (IFCEREP0) TO PRINT CPU AND CHANNEL LOGOUTS.
            
           TO USE EREP IN MTS, ENTER THE FOLLOWING COMMANDS:
            
             $SINK <OUTPUT>
             $SOURCE EREPCMD
             <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).
0          Referenced by comments of: 471/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00655/02    EREP/370                 CNVTEREP        SA  O          MTA:CNVTEREP(1,999)                                             
            D3.2T2   67  EREP/370.CNVTEREP.SA.02            1 LINE     80    5 PAGE UM   MTA                 MAR. 21, 1975  02:23:00
0          PROGRAM TO CONVERT LOG RECORDS GENERATED BY MCHCCH (577/53) TO A FORMAT ACCEPTABLE TO THE IBM EREP PROGRAM
           WHICH IS RUN UNDER *FAKEOS IN MTS.  COPIES COPY:CMDAREADSECT (531/12).
0          Referenced by comments of: 655/4, 655/5, 655/6 
00655/03    EREP/370                 CNVTEREP        OC  O          MTA:CNVTEREP(1000)                                              
            D3.2T2   68  EREP/370.CNVTEREP.OC.03            1 LINE     80    5 PAGE UM   MTA                 MAR. 21, 1975  02:23:02
00655/04    EREP/370                 IGFC60          SA             MTA:VS2CCH(1,525)                                               
            D3.2T2   69  EREP/370.IGFC60.SA.04              1 LINE     80   26 PAGE UM   MTA                 MAR. 21, 1975  02:23:04
0          VS2 SUBROUTINE TO CONVERT 2860 LOGOUT INTO A LIMITED CHANNEL LOGOUT.
           CALLED BY CNVTEREP (655/2).
00655/05    EREP/370                 IGFC70          SA             MTA:VS2CCH(526,1074)                                            
            D3.2T2   70  EREP/370.IGFC70.SA.05              1 LINE     80   26 PAGE UM   MTA                 MAR. 21, 1975  02:23:07
0          VS2 SUBROUTINE TO CONVERT 2870 LOGOUT INTO A LIMITED CHANNEL LOGOUT.
           CALLED BY CNVTEREP (655/2).
00655/06    EREP/370                 IGFC80          SA             MTA:VS2CCH(1075,1999)                                           
            D3.2T2   71  EREP/370.IGFC80.SA.06              1 LINE     80   26 PAGE UM   MTA                 MAR. 21, 1975  02:23:09
0          VS2 SUBROUTINE TO CONVERT 2880 LOGOUT INTO A LIMITED CHANNEL LOGOUT.
           CALLED BY CNVTEREP (655/2).
00655/07    EREP/370                 VS2CCH          OC             MTA:VS2CCH(2000)                                                
            D3.2T2   72  EREP/370.VS2CCH.OC.07              1 LINE     80   26 PAGE UM   MTA                 MAR. 21, 1975  02:23:11
0          OBJECT FOR 655/4, 655/5, AND 655/6.
00655/08    EREP/370                 VS2 MACROS      SM             S0938 FSAVE2 FSNAME=VS2MACROS                                   
            D3.2T2   73  EREP/370.VS2_MACROS.SM.08          1 LINE     72  239 PAGE UM   MTA                 FEB. 14, 1975  01:02:34
0          MACRO LIBRARY FOR VS2CCH AND CNVTEREP.
0          Referenced by comments of: 577/53 
00655/09    EREP/370                 ALIASES         SA  O  ALIA    MTA:ALIASES(1,999)                                              
            D3.2T2   74  EREP/370.ALIASES.SA.09             1 LINE     80    3 PAGE UM   MTA                 MAR. 21, 1975  02:25:31
0          ALIASES PROGRAM WHICH ADDS ENTRY POINTS TO EREP MODULES.
           NOTE:  UQV HAS A BETTER WAY TO DO THIS, BUT WE HAVEN'T RECEIVED IT YET.
00655/10    EREP/370                 ALIASES         OC  O          MTA:ALIASES(1000)                                               
            D3.2T2   75  EREP/370.ALIASES.OC.10             1 LINE     80    2 PAGE UM   MTA                 MAR. 21, 1975  02:25:33
00655/11    EREP/370                 ALIASES         D   O          MTA:EREPALIASES                                                 
            D3.2T2   76  EREP/370.ALIASES.D.11              1 LINE     16    1 PAGE UM   MTA                 MAR. 21, 1975  02:25:35
0          INPUT TO ALIASES PROGRAM.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
00655/12    EREP/370                 BLDL IN         D   O          MTA:EREPBLDLIN                                                  
            D3.2T2   77  EREP/370.BLDL_IN.D.12              1 LINE     60    5 PAGE UM   MTA                 MAR. 21, 1975  02:25:38
0          INPUT TO CREBLDL FOR EREP.
00655/13    EREP/370                 BLDL OUT        D   O          MTA:EREPBLDL                                                    
            D3.2T2   78  EREP/370.BLDL_OUT.D.13             1 SEQ     242    3 PAGE UM   MTA                 MAR. 21, 1975  02:25:40
0          OUTPUT FROM CREBLDL FOR EREP.
00655/14    EREP/370                 LIBRARY         OL  O          MTA:EREPLIB                                                     
            D3.2T2   79  EREP/370.LIBRARY.OL.14             1 SEQ    6144  110 PAGE UM   MTA                 MAR. 21, 1975  02:25:42
0          LIBRARY CONTAINING ALL OF EREP FOR ALL MODELS OF 370.
00655/15    EREP/370                 OBJECT          OE  O          MTA:EREPOBJ                                                     
            D3.2T2   80  EREP/370.OBJECT.OE.15              1 SEQ    6144  109 PAGE UM   MTA                 MAR. 21, 1975  02:25:52
0          EREP OBJECT MUCH AS IT CAME FROM VS2. THE ONLY CHANGE IS TO ADD "MTS "
           TO THE TABLE OF SYSTEM NAMES IN EACH MODULE THAT INCLUDED IT.
00655/16    EREP/370                 MAIN PROGRAM    OC  O          MTA:EREP                                                        
            D3.2T2   81  EREP/370.MAIN_PROGRAM.OC.16        1 LINE     14    1 PAGE UM   MTA                 MAR. 21, 1975  02:26:01
0          LOADER CONTROL CARDS TO FORCE LOADING OF THE EREP MAIN PROGRAM FROM THE LIBRARY.
00656/01    GT40 GRAPHICS SYSTEM     SYST            S   O          S0933 IG 'IG.DIST' FSNAME=GT40.SYST.S                           
                                                                                    UM   GOODRICH                                   
0          GRAPHICS OPERATING SYSTEM FOR DEC GT40 DISPLAY.
0          Referenced by comments of: 498/17 
00656/02    GT40 GRAPHICS SYSTEM     SYST            O   O          S0933 IG 'IG.DIST' FSNAME=GT40.SYST                             
                                                                                    UM   GOODRICH                                   
00656/03    GT40 GRAPHICS SYSTEM     LOAD            S   G          S0933 IG 'IG.DIST' FSNAME=GT40.LOAD.S                           
                                                                                    UM   GOODRICH                                   
0          PROGRAM TO LOAD A DEC GT40 DISPLAY VIA TELEPHONE LINE.
00656/04    GT40 GRAPHICS SYSTEM     LOAD            O   G          S0933 IG 'IG.DIST' FSNAME=GT40.LOAD                             
                                                                                    UM   GOODRICH                                   
00657/01    FIX                      UCR             SA             S0786 FIXUM 'FIX-UM' FSNAME=FIX.UCR.S                           
            D3.2T2   82  FIX.UCR.SA.01                      1 LINE     75   17 PAGE UM   JWS                 MAR. 12, 1975  11:18:17
0          THIS VERSION OF THE UCR ROUTINE IS THE ONLY REQUIRED CHANGE TO THE FEB 27, 1975
           UBC FIX DISTRIBUTION IF THE NEW MTS @NOTIFY CHANGE IS INSTALLED.
           THIS ROUTINE SHOULD NOT BE INSTALLED UNLESS THE @NOTIFY CHANGE IS ALSO INSTALLED.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
01019/01    RAMROD                   COMMENTS        SA  O          S0829 UBCRD5 FSNAME=RAMROD.COMMENTS.M.1                      220
            D3.2T2   83  RAMROD.COMMENTS.SA.01              1 LINE     80    1 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:35
0          THIS FILE AND THOSE FOLLOWING ARE SOURCE FILES FOR THE RAMROD UTILITY EXCEPT
           FOR THE COMMAND SCANNER AND MSG ROUTINES (1023).
01019/02    RAMROD                   ALLOC           SA  O          S0829 UBCRD5 FSNAME=RAMROD.ALLOC.SA.2                        221
            D3.2T2   84  RAMROD.ALLOC.SA.02                 1 LINE     80    3 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:36
0          COMPONENTS 1019/2 THROUGH 1019/18 ALL COPY RAMROD.EQUS (1019/21) AND
           RAMROD.DSECTS (1019/22).
01019/03    RAMROD                   BUILD           SA  O          S0829 UBCRD5 FSNAME=RAMROD.BUILD.SA.3                        222
            D3.2T2   85  RAMROD.BUILD.SA.03                 1 LINE     72    3 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:37
01019/04    RAMROD                   COPY            SA  O          S0829 UBCRD5 FSNAME=RAMROD.COPY.SA.4                         223
            D3.2T2   86  RAMROD.COPY.SA.04                  1 LINE     80    6 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:37
01019/05    RAMROD                   DELETE          SA  O          S0829 UBCRD5 FSNAME=RAMROD.DELETE.SA.5                       224
            D3.2T2   87  RAMROD.DELETE.SA.05                1 LINE     80    5 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:38
01019/06    RAMROD                   FIND            SA  O          S0829 UBCRD5 FSNAME=RAMROD.FIND.SA.6                         225
            D3.2T2   88  RAMROD.FIND.SA.06                  1 LINE     80    4 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:40
01019/07    RAMROD                   GETSTUFF        SA  O          S0829 UBCRD5 FSNAME=RAMROD.GETSTUFF.SA.7                     226
            D3.2T2   89  RAMROD.GETSTUFF.SA.07              1 LINE     80    6 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:40
01019/08    RAMROD                   INIT            SA  O          S0829 UBCRD5 FSNAME=RAMROD.INIT.SA.8                         227
            D3.2T2   90  RAMROD.INIT.SA.08                  1 LINE     80    4 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:42
01019/09    RAMROD                   LIST            SA  O          S0829 UBCRD5 FSNAME=RAMROD.LIST.SA.9                         228
            D3.2T2   91  RAMROD.LIST.SA.09                  1 LINE     89    9 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:43
01019/10    RAMROD                   MOVE            SA  O          S0829 UBCRD5 FSNAME=RAMROD.MOVE.SA.10                        229
            D3.2T2   92  RAMROD.MOVE.SA.10                  1 LINE     80    3 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:46
01019/11    RAMROD                   NEWSYS          SA  O          S0829 UBCRD5 FSNAME=RAMROD.NEWSYS.SA.11                      230
            D3.2T2   93  RAMROD.NEWSYS.SA.11                1 LINE     80    4 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:47
01019/12    RAMROD                   OPTIM           SA  O          S0829 UBCRD5 FSNAME=RAMROD.OPTIM.SA.12                       231
            D3.2T2   94  RAMROD.OPTIM.SA.12                 1 LINE     80    5 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:48
01019/13    RAMROD                   PUTSTUFF        SA  O          S0829 UBCRD5 FSNAME=RAMROD.PUTSTUFF.SA.13                    232
            D3.2T2   95  RAMROD.PUTSTUFF.SA.13              1 LINE     88    4 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:49
01019/14    RAMROD                   SWAP            SA  O          S0829 UBCRD5 FSNAME=RAMROD.SWAP.SA.14                        233
            D3.2T2   96  RAMROD.SWAP.SA.14                  1 LINE     80    4 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:50
01019/15    RAMROD                   TEST            SA  O          S0829 UBCRD5 FSNAME=RAMROD.TEST.SA.15                        234
            D3.2T2   97  RAMROD.TEST.SA.15                  1 LINE     80    8 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:51
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
01019/16    RAMROD                   UPDATE          SA  O          S0829 UBCRD5 FSNAME=RAMROD.UPDATE.SA.16                      235
            D3.2T2   98  RAMROD.UPDATE.SA.16                1 LINE     80    5 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:52
01019/17    RAMROD                   WRITED          SA  O          S0829 UBCRD5 FSNAME=RAMROD.WRITED.SA.17                      236
            D3.2T2   99  RAMROD.WRITED.SA.17                1 LINE     80    3 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:53
01019/18    RAMROD                   ZAP             SA  O          S0829 UBCRD5 FSNAME=RAMROD.ZAP.SA.18                         237
            D3.2T2  100  RAMROD.ZAP.SA.18                   1 LINE     80    5 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:54
01019/19    RAMROD                   UMLOAD          SA  O          S0829 UBCRD5 FSNAME=RAMROD.UMLOAD.SA.19                      238
            D3.2T2  101  RAMROD.UMLOAD.SA.19                1 LINE     80   92 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:46:55
0          THIS IS THE D3.0 UNIVERSITY OF MICHIGAN LOADER MODIFIED
           TO LOAD WITH A RELOCATION FACTOR FOR RAMROD
01019/20    RAMROD                   MACROS          SM  O          S0829 UBCRD5 FSNAME=RAMROD.MACRO.SM.20                       239
            D3.2T2  102  RAMROD.MACROS.SM.20                1 LINE     73    2 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:47:02
0          CONTAINS A MACRO LIBRARY NEEDED FOR ASSEMBLING THE ABOVE ROUTINES.
           THESE MACROS ARE USED FOR BOTH THE COMMAND LANGUAGE INTERPRETER
           AND FOR THE SERVICE MODULES.
0          Referenced by comments of: 1019/27 
01019/21    RAMROD                   EQUS            SA  O          S0829 UBCRD5 FSNAME=RAMROD.EQUS.SA.21                        240
            D3.2T2  103  RAMROD.EQUS.SA.21                  1 LINE     80    1 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:47:03
0          CONTAINS A COPY SECTION FOR THE ABOVE ROUTINES.
0          Referenced by comments of: 1019/2, 1019/27 
01019/22    RAMROD                   DSECTS          SA  O          S0829 UBCRD5 FSNAME=RAMROD.DSECT.SA.22                       241
            D3.2T2  104  RAMROD.DSECTS.SA.22                1 LINE     80    3 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:47:05
0          CONTAINS A COPY SECTION FOR THE ABOVE ROUTINES.
0          Referenced by comments of: 1019/2, 1019/27, 1019/29 
01019/23    RAMROD                   WRITEUP         WF  O          S0829 UBCRD5 FSNAME=RAMROD..WF.23                            242
            D3.2T2  105  RAMROD.WRITEUP.WF.23               1 LINE    114    9 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:47:05
0          WRITEUP DESCRIBING THE RAMROD UTILITY.
01019/24    RAMROD                   CONTINUE WITHS  SA  O          S0829 UBCRD5 FSNAME=RAMROD..SA.24                            243
            D3.2T2  106  RAMROD.CONTINUE_WITHS.SA.24        1 LINE     34    1 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:47:10
0          CONTAINS $CONTINUE WITH'S FOR THE ABOVE SOURCE MODULES TO MAKE ASSEMBLING EASIER.
01019/25    RAMROD                   ASM JOB         C   O          S0829 UBCRD5 FSNAME=RAMROD..C.25                             244
            D3.2T2  107  RAMROD.ASM_JOB.C.25                1 LINE     84    1 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:47:11
0          CONTAINS A COMMAND FILE TO SUBMIT A BATCH JOB TO ASSEMBLE THE RAMROD MODULES.
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
01019/26    RAMROD                   OBJECT          OC  O          S0829 UBCRD5 FSNAME=RAMROD..OC.26                            245
            D3.2T2  108  RAMROD.OBJECT.OC.26                1 LINE     80   57 PAGE UBC  MCWILLIAM           JUNE 25, 1974  15:47:11
0          CONTAINS THE OBJECT FOR THE RAMROD COMMAND LANGUAGE INTERPRETER,
           THE RAMROD SERVICE MODULES, AND THE MODIFIED UMLOAD.
           THE OBJECT FOR MSG ROUTINE (1023) IS NOT INCLUDED.
01019/27    RAMROD                   INTER           SA  O          S0829 UBCRD5 FSNAME=RAMROD.INTER.SA.28                       247
            D3.2T2  109  RAMROD.INTER.SA.27                 1 LINE     73   61 PAGE UBC  BERRYMAN            JUNE 25, 1974  15:47:43
0          SOURCE FOR THE RAMROD COMMAND LANGUAGE INTERPRETER.  REQUIRES THE MESSAGE ROUTINE (1023).
           NOTE:  THIS PROGRAM REQUIRES THE EXISTENCE OF A FILE (PRESENTLY NAMED
           MTS:RAMRODLOG) WHICH IS PERMITTED WRITE-EXTEND (AT LEAST) FOR ITS TRANSACTION LOG.
           IT ALSO REQUIRES AN EXPLAIN FILE (1019/28).  ALL FILENAMES OF THIS SORT ARE,
           OF COURSE, ASSEMBLY PARAMETERS.
           COPIES RAMROD.EQUS (1019/21), RAMROD.DSECTS (1019/22), MSG.EQU (1023/4),
           AND *GFINFODSECT (593).  ASSEMBLE USING COPY:MSG.MACROS (1023/5),
           RAMROD.MACROS (1019/20), AND *SYSMAC.
           THE ORDER OF MACRO LIB SEARCHES SHOULDN'T MATTER, AS LONG AS *SYSMAC IS LAST.
01019/28    RAMROD                   EXPLAIN         D   O          S0829 UBCRD5 FSNAME=RAMROD.EXPLAIN..29                       248
            D3.2T2  110  RAMROD.EXPLAIN.D.28                1 LINE     77    3 PAGE UBC  BERRYMAN            JUNE 25, 1974  15:47:52
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/27 
01019/29    RAMROD                   DUMP            SA  O          S0829 UBCRD5 FSNAME=RAMROD.DUMP.SA.30                        249
            D3.2T2  111  RAMROD.DUMP.SA.29                  1 LINE     72    4 PAGE UBC  BERRYMAN            JUNE 25, 1974  15:47:53
0          RAMROD FILE DIRECTORY DUMP PROGRAM.  COPIES RAMROD.DSECTS (1019/22).
           ASSEMBLE WITH COPY:MSG.MACROS (1023/5).
01019/30    RAMROD                   DUMP            OC  O          S0829 UBCRD5 FSNAME=RAMROD.DUMP.OC.31                        250
            D3.2T2  112  RAMROD.DUMP.OC.30                  1 LINE     80    4 PAGE UBC  BERRYMAN            JUNE 25, 1974  15:47:55
0          HAS A "$CONTINUE WITH MTX:NMSG" LINE TO INCLUDE THE MSG ROUTINE (1023).
01019/31    RAMROD                   SPECIAL GETFD   SA  O          MTS:RAMROD.GETFD                                                
            D3.2T2  113  RAMROD.SPECIAL_GETFD.SA.31         1 LINE     80    1 PAGE UM   MTA                 MAR. 21, 1975  02:34:38
0          SPECIAL GETFD ADDED TO UBC RAMROD TO SOLVE LOCK PROBLEMS.
01019/32    RAMROD                   UM OBJECT       OE  O          MTS:RAMROD                                                      
            D3.2T2  114  RAMROD.UM_OBJECT.OE.32             1 SEQ   32767   18 PAGE UM   MTA                 MAR. 21, 1975  02:34:39
0          UM RAMROD OBJECT DECK (SAME AS 1019/26 PLUS OBJECT FROM 1019/31).
01023/01    MSG ROUTINE                              SA             S0860 UBC34 'UBC 370' FSNAME=MSG.SOURCE.SA.1                    
            D3.2T2  115  MSG_ROUTINE..SA.01                 1 LINE     71   17 PAGE UBC  BERRYMAN            OCT. 02, 1974  13:24:53
0          SOURCE FOR MSG ROUTINE.  THIS IS A REENTRANT
1                                                                                               FRI AUG 02/96   19:04:25   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          GENERAL-PURPOSE MESSAGE ROUTINE WITH A VARIETY OF FEATURES.
           MSG.W (1023/3) IS AN INTRODUCTORY BLURB.
           A DETAILED DESCRIPTION OF THE ROUTINE IS INCLUDED IN THE SOURCE LISTING.
           THE ROUTINE IS MAINLY DESIGNED TO BE USED WITH MACROS.
           THE MACRO LIBRARY IS INCLUDED (1023/5).
           THIS PROGRAM COPIES MSG.EQU (1023/4).
           NOTE MSG IS DESIGNED TO BE RESIDENT.  CONSEQUENTLY,
           IT REFERENCES CMDSUB RATHER THAN CMD AND WRITEE
           RATHER THAN WRITE.  FOR NON-RESIDENT USE, ALL THAT
           MUST BE DONE IS TO CHANGE THESE REFERENCES TO THEIR
           EXTERNAL COUNTERPARTS.
0          Referenced by comments of: 496/2, 1019/1, 1019/26, 1019/27, 1019/30 
01023/02    MSG ROUTINE                              OC             MTS:MSG.O                                                       
            D3.2T2  116  MSG_ROUTINE..OC.02                 1 LINE     80    4 PAGE UBC  BERRYMAN            MAR. 21, 1975  02:37:47
01023/03    MSG ROUTINE              WRITEUP         P              MTS:MSG.W                                                       
            D3.2T2  117  MSG_ROUTINE.WRITEUP.P.03           1 LINE    121    4 PAGE UBC  BERRYMAN            MAR. 21, 1975  02:37:49
0          INTRODUCTORY WRITEUP FOR MESSAGE ROUTINE. $COPY IT.
0          Referenced by comments of: 1023/1 
01023/04    MSG ROUTINE              EQU             SA             COPY:MSG.EQU                                                    
            D3.2T2  118  MSG_ROUTINE.EQU.SA.04              1 LINE     59    1 PAGE UBC  BERRYMAN            MAR. 21, 1975  02:37:51
0          COPY SECTION REQUIRED TO ASSEMBLE MSG. ALSO 
           REQUIRED TO USE THE MSG MACROS (1023/5).
0          Referenced by comments of: 1019/27, 1023/1 
01023/05    MSG ROUTINE              MACROS          SM             COPY:MSG.MACROS                                                 
            D3.2T2  119  MSG_ROUTINE.MACROS.SM.05           1 LINE     73    6 PAGE UBC  BERRYMAN            MAR. 21, 1975  02:37:53
0          MACRO LIBRARY FOR THE MSG MACROS.
           COMPLETE DIRECTIONS FOR THE USE OF THE MACROS ARE
           INCLUDED IN A MACRO IN THIS LIBRARY CALLED MSGNOTES.
           MSGNOTES CONSISTS OF NOTHING BUT COMMENTS.
0          Referenced by comments of: 1019/27, 1019/29, 1023/1, 1023/4 
01026/01    GLOBAL SYSTEM PARS       GLOBALDEFS      SA  G          COPY:GLOBALDEFS                                                 
            D3.2T2  120  GLOBAL_SYSTEM_PARS.GLOBALD.SA.01   1 LINE     65    1 PAGE UM   MTA                 MAR. 21, 1975  02:37:56
0          CONTAINS GBLB DEFINITIONS FOR &S370 (SYSTEM/370), &OC3066 (3066
           CONSOLE PRESENT), &CRTY (ITEL 7830 COMMAND RETRY), &SIMPLEX (SINGLE
           PROCESSOR), AND &OPERJOB (OPERATOR JOB (634) BEING USED).
0          Referenced by comments of: 4/1, 42/1, 101/1, 116/1, 135/1, 387/2, 400/1, 413/6, 545/45, 570/1, 653/1 
1                                                                                               FRI AUG 02/96   19:04:25   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
+         ______________ _____________________
01026/02    GLOBAL SYSTEM PARS       GLOBALSETS/360  SA  G        = ?????                                                           
                                                                                    UM   MTA                                        
0          CONTAINS SETB DECLARATIONS FOR THE 5 SYMBOLS AS APPROPRIATE FOR THE UM
           360/67 DUPLEX MACHINE.
           NOTE:  THIS WAS COPY:GLOBALSETS WHILE THE 360/67 WAS INSTALLED,
                  1026/3 CONTAINS THE CURRENT CONTENTS OF COPY:GLOBALSETS.
0          Referenced by comments of: 4/1, 42/1, 101/1, 116/1, 135/1, 387/2, 400/1, 413/6, 545/45, 570/1 
01026/03    GLOBAL SYSTEM PARS       GLOBALSETS/370  SA  G          COPY:GLOBALSETS                                                 
            D3.2T2  121  GLOBAL_SYSTEM_PARS.GLOBALS.SA.03   1 LINE     16    1 PAGE UM   MTA                 MAR. 21, 1975  02:37:58
0          CONTAINS SETB DECLARATIONS FOR THE 5 SYMBOLS AS APPROPRIATE FOR THE UM
           370/168 MACHINE.
01026/04    GLOBAL SYSTEM PARS       GLOBALS         SA  G          COPY:GLOBALS                                                    
            D3.2T2  122  GLOBAL_SYSTEM_PARS.GLOBALS.SA.04   1 LINE     37    1 PAGE UM   MTA                 MAR. 21, 1975  02:38:01
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, 40/1, 41/1, 43/1, 44/1, 45/2, 46/2, 50/2, 79/1,
                 87/1, 102/1, 156/1, 162/1, 198/1, 353/1, 354/1, 355/1, 388/1, 399/1, 413/1, 447/1, 447/3, 447/5, 447/7,
                 462/1, 464/1, 487/1, 507/2, 531/1, 531/4, 531/8, 539/2, 540/1, 554/1, 554/3, 577/17, 577/53, 577/55, 578/1,
                 579/1, 598/1, 600/1, 600/4, 600/6, 600/8, 600/10, 604/1, 616/1, 616/3, 617/1, 618/1, 634/1, 634/4, 635/1,
                 636/1, 637/1, 638/1, 639/1, 647/1, 650/1, 651/10 
01027/1     P11 JOB                                  SA  G          S0938 FSAVE2 FSNAME=P11.S                                       
            D3.2T2  123  P11_JOB..SA.1                      1 LINE     61    1 PAGE UM   MTA                 FEB. 14, 1975  00:39:28
0          PROGRAM TO LOAD THE CHARACTER AND CARRIAGE CONTROL BUFFERS OF A 
           3211 PRINTER A LA QN/PN/TN JOBS (025).
01027/2     P11 JOB                                  OC  G          S0938 FSAVE2 FSNAME=P11.O                                       
            D3.2T2  124  P11_JOB..OC.2                      1 LINE     80    1 PAGE UM   MTA                 MAR. 15, 1975  16:00:44
01028/1     STAND-ALONE DUMP         IPL MODULE      OC             S0860 UBC34 'UBC370' FSNAME=STAND-ALONE_DUMP.IPL_MODUL.OC.1     
            D3.2T2  125  STAND-ALONE_DUMP.IPL_MODUL.OC.1    1 LINE     80    1 PAGE UBC  BERRYMAN            OCT. 02, 1974  13:25:14
0          IBM IMDSADMP STAND-ALONE DUMP PROGRAM.  COPY THIS FILE TO THE FRONT OF A TAPE.  IPL THE TAPE WITH
           RING IN, AND REAL MEMORY WILL BE DUMPED ONTO THE TAPE (AFTER THE OBJECT PROGRAM) IN 2K BLOCKS.
0          Referenced by comments of: 1028/2 
01028/2     STAND-ALONE DUMP         PRINTER         SP             S0860 UBC34 'UBC370' FSNAME=STAND-ALONE_DUMP.PRINTER.SP.2       
            D3.2T2  126  STAND-ALONE_DUMP.PRINTER.SP.2      1 LINE     86    3 PAGE UBC  BERRYMAN            OCT. 02, 1974  13:25:15
0          PL/1 SOURCE FOR PROGRAM TO PRINT STAND-ALONE DUMPS PRODUCED BY IMDSADMP (1028/1).
           INSTRUCTIONS FOR USE:
            
               $RUN PSD 1=(DUMP TAPE PDN) <SPRINT=OUTPUT> <SCARDS=COMMANDS>
            
           COMMANDS:
1                                                                                               FRI AUG 02/96   19:04:25   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           
               (NOTE:  "X" AND "Y" ARE HEX PAGE ADDRESSES, E.G. 2A = PAGE 2A,
               OR ADDRESSES 2A000 THROUGH 2AFFF.)
            
               X         DUMPS PAGE X
               X-Y       DUMPS PAGE X THROUGH PAGE Y
               <X        DUMPS PAGES 0 THROUGH X (I.E. THIS IS REALLY ">X")
               >X        DUMPS PAGES X THROUGH THE END
               E         ("EVERYTHING") DUMPS THE WHOLE TAPE.  NOTE THAT TO DUMP
                              PAGE 'E' , YOU SHOULD SPECIFY X AS '0E'.
01028/3     STAND-ALONE DUMP         PRINTER         OC             S0860 UBC34 'UBC370' FSNAME=STAND-ALONE_DUMP.PRINTER.OC.3       
            D3.2T2  127  STAND-ALONE_DUMP.PRINTER.OC.3      1 SEQ      80    6 PAGE UBC  BERRYMAN            OCT. 02, 1974  13:25:15
0          HAS A "$CONTINUE WITH *PL1LIB" LINE.
