1                                                                                               FRI AUG 02/96   18:37:32   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/1     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/2     UMLOAD                   D3.1 UPDATE     UU  G          W009:UMLOAD.U                                                   
            D3.1T1    1  UMLOAD.D3.1_UPDATE.UU.2            1 LINE     72    3 PAGE UM   DE JONG             MAR. 06, 1974  03:15.01
0          UPDATE DECK TO PRODUCE D3.1 UMLOAD FROM D3.0 MASTER SOURCE (001/1).
00001/3     UMLOAD                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DE JONG                                    
00001/4     UMLOAD                   WRITEUP         WF  G          W098:KDEJONGUM                                                  
            D3.1T1    2  UMLOAD.WRITEUP.WF.4                1 LINE    101    1 PAGE UM   DE JONG             MAR. 06, 1974  03:15.02
0          WRITEUP DESCRIBING THE DIFFERENCES BETWEEN D3.0 AND D3.1 UMLOAD.
00003/1     JOBLIST                                  SA  G  JBLS    MTA:JOBLIST                                                     
            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/2     JOBLIST                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00004/1     TABLES                                   SA  G  TABL    WSG:TABLES(1,999)                                               
            D3.1T1    4  TABLES..SA.1                       1 LINE     80   18 PAGE UM   WSG                 MAR. 06, 1974  03:15.07
0          TABLES THAT DEFINE THE HARDWARE CONFIGURATION FOR THE UM DUPLEX 67, THE NUMBER OF LOW-CORE TERMINAL I/O BUFFERS,
           THE LIST OF PUBLIC DISK VOLUME NAMES AND CORRESPONDING DISK DRIVES.  (NOTE:  *DSK (073) CAN BE USED BY THE
           OPERATOR TO MAKE CHANGES IN THE LIST OF DISK VOLUMES.)
           COPIES COPY:LLMPSEQU (087) AND COPY:DSKDSCT (482/42).
           THIS DECK IS DISTRIBUTED AS AN EXAMPLE OF A COMPLICATED I/O CONFIGURATION.
           OBVIOUSLY, EACH INSTALLATION MUST SUPPLY ITS OWN TABLES.  THE DISTRIBUTED VERSION HAS 80 TERMINAL
           BUFFERS-- A NUMBER WHICH SHOULD BE REDUCED TO SAVE SPACE ON SMALLER SYSTEMS.
            
           FOR D3.1, TABLES HAS BEEN CHANGED TO ADD THE OPERDEVS AND OPERTBL ENTRIES OF INFORMATION
           USED BY THE 3270 OPERATOR JOB PROGRAM (634/1).
0          Referenced by comments of: 482/10 
00004/2     TABLES                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   WSG                                        
00004/3     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
1                                                                                               FRI AUG 02/96   18:37:32   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/4     TABLES                   DECKGEN         SA  G  DCKP    W047:DCKPCHR.S                                                  
            D3.1T1    5  TABLES.DECKGEN.SA.4                1 LINE     80   67 PAGE UM   HAMILTON            MAR. 06, 1974  03:15.16
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.
            
           FOR D3.1, THIS PROGRAM HAS BEEN MODIFIED TO FIX SEVERAL BUGS AND TO INCLUDE THE OPERDEVS
           AND OPERTBL ENTRIES.  SEE THE WRITEUP (004/6).
00004/5     TABLES                   DECKGEN         OC  G          W047:DCKPCHR.O                                                  
            D3.1T1    6  TABLES.DECKGEN.OC.5                1 LINE     80    7 PAGE UM   HAMILTON            MAR. 06, 1974  03:15.43
0          THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE.
00004/6     TABLES                   DECKGEN DESCR   WF             W047:DCKPCHR.W                                                  
            D3.1T1    7  TABLES.DECKGEN_DESCR.WF.6          1 LINE    108    6 PAGE UM   HAMILTON            MAR. 06, 1974  03:15.45
0          WRITEUP DESCRIBING HOW TO USE THE DECKGEN PROGRAM TO GENERATE A TABLES OBJECT DECK.  A COPY IS INCLUDED WITH
           THE PAPER DOCUMENTATION.
0          Referenced by comments of: 4/4 
00005/1     JBRP                                     SA  G  JBRP    MTA:JBRP                                                        
            D3.1T1    8  JBRP..SA.1                         1 LINE     80    8 PAGE UM   MTA                 MAR. 06, 1974  03:15.48
0          JOB REQUEST PROCESSOR (TASK INITIALIZATION).
           COPIES COPY:LLMPSEQU (087).
00005/2     JBRP                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00006/1     FNDJTL                                   SA  G  FNDJ    S0370 'D1T1' FMT=FB(6400,80)                                 22 
            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/2     FNDJTL                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00007/1     FBJTL                                    SA  G  FBJT    MTA:FBJTJL(1,999)                                               
            D3T1      8  FBJTL..SA.1                        1 LINE     80    4 PAGE UM   MTA                 JULY 30, 1973  23:00.56
0          FREE BUFFERS AND JOB TABLE.
           COPIES COPY:LLMPSEQU (087).
00007/2     FBJTL                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00008/1     FIDCQ                                    SA  G  FIDC    MTA:FIDCQ                                                       
            D3T1      9  FIDCQ..SA.1                        1 LINE     80    3 PAGE UM   MTA                 JULY 30, 1973  23:00.59
0          FREE I/O DEVICES AND CPU QUEUE.
           COPIES COPY:LLMPSEQU (087).  THIS COPY STATEMENT IS THE ONLY CHANGE SINCE DIST 1.0.
1                                                                                               FRI AUG 02/96   18:37:32   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/2     FIDCQ                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00009/1     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/2     BUFALLOC                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00010/1     EXIT                                     SA  G  EXIT    MTA:EXIT(1,999)                                                 
            D3.1T1    9  EXIT..SA.1                         1 LINE     80    3 PAGE UM   MTA                 MAR. 06, 1974  03:15.50
0          KILLS CALLING TASK.  COPIES COPY:LLMPSEQU (087).
00010/2     EXIT                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00011/1     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/2     CARDUC                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00012/1     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/2     TAPEUC                                   OC           # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   WSG                                        
00013/1     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.
00013/2     PTRUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00014/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00014/2     PCHUC                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00015       DASDUC                                                # (SEE COMP 482)                                                  
                                                                                    UM                                              
00016/1     CCTRANTB                                 SA  G  CCTR    S0370 'D1T1' FMT=FB(6400,80)                                 51 
            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/2     CCTRANTB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00017/1     PN XLATE TABLE                           SA  G  PNXL    S0370 'D1T1' FMT=FB(6400,80)                                 52 
            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/2     PN XLATE TABLE                           OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00018/1     STOP/BLAST/GOOSE JOBS                    SA  G  STOP    S0370 'D1T1' FMT=FB(6400,80)                                 27 
            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/2     STOP/BLAST/GOOSE JOBS                    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00019/1     TASKS JOB                                SA  G  TSKS    WSG:UTASKS(1,999)                                               
            D3.1T1   10  TASKS_JOB..SA.1                    1 LINE     80   10 PAGE UM   WSG                 MAR. 06, 1974  03:15.52
0          THE JOB PROGRAM VERSION OF *TASKS (145); CONTAINS THE TSKFMT SUBROUTINE CALLED BY *TASKS.
           COPIES COPY:LLMPSEQU (087).
            
           FOR D3.1, TASKS HAS BEEN CHANGED SO THAT THE OUTPUT IS SLIGHTLY REFORMATED TO ACCOMMODATE LONG RELOCATABLE
           JOB NAMES (E.G. HASPLING) WITHOUT OVERLAYING THE NAME WITH THE VM PAGE COUNT.  IT HAS ALSO BEEN CHANGED
           TO ALLOW "#" AS A FILL CHARACTER IN THE DEVICE COMMAND, E.G. "TASKS D D20#" WILL FIND ALL DEVICES WHOSE
           NAMES BEGIN WITH THE CHARACTERS "D20".
0          Referenced by comments of: 145/1 
00019/2     TASKS JOB                                OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   WSG                                        
00020/1     JOBDUMP JOB                              SA  G  JBDM    S0517 'D2T1' FMT=FB(4000,80)                                 38 
            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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00020/2     JOBDUMP JOB                              OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00021/1     BROADCST                                 SA  G  BDCS    WSG:BDCS(1,999)                                                 
            D3T1     21  BROADCST..SA.1                     1 LINE     80    8 PAGE UM   WSG                 JULY 30, 1973  23:03.32
0          JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR TO ALL USERS.
           COPIES COPY:LLMPSEQU (087).
00021/2     BROADCST                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   WSG                                        
00022       LOWCORE                                               # (OBSOLETE)                                                      
                                                                                    UM                                              
00023/1     REW ET AL                                SA  O  TPMV    S0370 'D1T1' FMT=FB(6400,80)                                 45 
            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/2     REW ET AL                                OC  O        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00024/1     ONLINE/OFFLINE                           SA  O  ONOF    S0720 'D3T1' FSNAME=ONLINE/OFFLINE..SA.1                      23
            D3T1     23  ONLINE/OFFLINE..SA.1               1 LINE     80    4 PAGE UM   MTA                 JULY 30, 1973  03:31.33
0          JOBS TO ONLINE OR OFFLINE A DEVICE OR CONTROL UNIT.
           PROBABLY UNCHANGED SINCE DIST 2.0.
00024/2     ONLINE/OFFLINE                           OC  O        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00025/1     QN/PN/TN JOBS                            SA  G  UCSI    S0517 'D2T1' FMT=FB(4000,80)                                 41 
            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.
00025/2     QN/PN/TN JOBS                            OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00026/1     CPCC JOB                                 SA  G  CPCC    S0370 'D1T1' FMT=FB(6400,80)                                 32 
            D3T1     25  CPCC_JOB..SA.1                     1 SEQ      80    7 PAGE UM   MTA                 JULY 30, 1973  23:04.05
0          CARD-TO-PRINT (CP) AND CARD-TO-CARD (CC) JOBS.  CP IS DESIGNED FOR LISTING 7090
           DECKS AND IS POOR FOR EBCDIC DECKS.
0          Referenced by comments of: 17/1 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00026/2     CPCC JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
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                                              
00037       GETDSK ETC                                            # (SEE COMP 482)                                                  
                                                                                    UM                                              
00038/1     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
1                                                                                               FRI AUG 02/96   18:37:32   Page    7
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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.
            
           FOR D3.1, THE USE OF PHYSICAL TAB STOPS ON OUTPUT HAS BEEN IMPLEMENTED.
           ALSO, SEVERAL NEW DEVICE COMMANDS HAVE BEEN ADDED.
           A FORTHCOMING UPDATE TO MTS VOLUME 4 WILL DETAIL THE USE OF THESE NEW FEATURES.
0          Referenced by comments of: 42/2 
00038/2     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/3     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.
00038/4     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/5     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.
            
1                                                                                               FRI AUG 02/96   18:37:32   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/6     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/7     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/8     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/9     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 
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/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   Page    9
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00039/2     CASECONV                                 OC           # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   EMERY                                      
00040/1     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), 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/2     KWIC                     D3.1 UPDATE     UU  G          MTS:KWICUPD                                                     
            D3.1T1   15  KWIC.D3.1_UPDATE.UU.2              1 LINE     72    1 PAGE UM   DWB                 MAR. 06, 1974  03:16.30
0          UPDATE TO D3 MASTER (040/1) TO PRODUCE D3.1 SOURCE.
           UPDATE DECK USES %POSN *IN* KWIC.
00040/3     KWIC                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00041/1     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), AND COPY:MTS.TV (640). 
           NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 41/2, 344/1 
00041/2     GETSPACE/FREESPAC        D3.1 UPDATE     UU  G          MTS:GSFSUPD                                                     
            D3.1T1   16  GETSPACE/FREESPAC.D3.1_UPD.UU.2    1 LINE     64    2 PAGE UM   DWB                 MAR. 06, 1974  03:16.32
0          UPDATE TO D3 MASTER (041/1) TO PRODUCE D3.1 SOURCE.
           UPDATE DECK USES %POSN *IN* GSFS.
00041/3     GETSPACE/FREESPAC                        OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00042/1     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:MTS.CONTAB (343),
           COPY:MTS.DSECT (346), COPY:MTS.RHTABLE (348), COPY:CLSPLAN (535/1), AND COPY:JOBSTA (413/13).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 42/2, 344/1, 348/1, 635/1, 635/2, 636/1, 636/2, 637/1, 637/2, 638/1, 638/2, 639/1,
                 639/2 
00042/2     MTS                      D3.1 UPDATE     UU  G          MTS:MTSUPD/D3.1                                                 
            D3.1T1   17  MTS.D3.1_UPDATE.UU.2               1 LINE     72    8 PAGE UM   DWB                 MAR. 06, 1974  03:16.34
0          UPDATE DECK TO PRODUCE D3.1 SOURCE FROM D3 MTS MASTER SOURCE (042/1).
1                                                                                               FRI AUG 02/96   18:37:32   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          NOTE:  D3.1 MTS HAS FIVE NEW SUBROUTINES, ALL OF WHICH WERE FORMERLY PART OF
                  THE MAIN MTS ASSEMBLY.  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 (NEW)
               CMDS                636 (NEW)
               DSRS                637 (NEW)
               USUB                638 (NEW)
               DSRI                639 (NEW)
            
           NOTE:  D3.1 MTS ISSUES THE CONTROL COMMAND "BLANK=12" TO THE MSOURCE TERMINAL DSR JUST BEFORE
                  IT READS THE RESPONSE TO "ENTER USER PASSWORD".  THE "BLANK" COMMAND CAUSES THE DSR TO PROVIDE
                  INPUT LINE BLANKING FOR THE NEXT INPUT LINE IN SOME APPROPRIATE WAY.  THIS COMMAND IS CURRENTLY
                  SUPPORTED IN TSFO (038), *PDP8RTN (116), AND *3270RTN (629).
00042/3     MTS                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00042/4     MTS                      ASM JOB         C              MTS:MTSASM                                                      
            D3.1T1   18  MTS.ASM_JOB.C.4                    1 LINE    105    1 PAGE UM   DWB                 MAR. 06, 1974  03:16.37
0          AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES.
           AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES.
            
              NOTE:  STANDARD DUMP (463) IS NO LONGER CONSIDERED TO BE AN MTS SUBROUTINE,
                     I.E. IT IS NOT ASSEMBLED BY THIS COMMAND FILE.
00043/1     LCSYMBOL                                 SA  G  LCSY    MTS:LCSYMBOL(1,999)                                             
            D3.1T1   19  LCSYMBOL..SA.1                     1 LINE     80    5 PAGE UM   DWB                 MAR. 06, 1974  03:16.39
0          LOW-CORE SYMBOL TABLE.  CONTAINS DEFINITIONS OF SYMBOLS IN SEGMENTS 0 AND 2 THAT USERS REFER TO.
0          Referenced by comments of: 579/1 
00043/2     LCSYMBOL                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00044/1     PDP                                      SA  G  PDP0    W047:PDP.S                                                      
            D3.1T1   20  PDP..SA.1                          1 LINE     80   53 PAGE UM   HAMILTON            MAR. 06, 1974  03:16.42
0          D3.0 VERSION OF THE PAGING DRUM PROCESSOR.  COPIES COPY:PCBDSECT (470).
0          Referenced by comments of: 604/1 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00044/2     PDP                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   HAMILTON                                   
00045/1     SUPERVISOR               D3 MASTER       SA  G          S0699 D3TAPE POSN=UMMPS.SOURCE                               1  
            D3T1     47  SUPERVISOR..SA.1                   1 SEQ      80  236 PAGE UM   MTA                 JULY 30, 1973  23:19.49
0          SUPERVISOR MASTER SOURCE FOR DIST 3.  ASSEMBLY PARAMETERS ARE SET TO USE THE SLT RPQ, INITIALLY CLEAR VM,
           ASSUME A DUPLEX 67, AND NOT TIME THINGS LIKE TS LOOPS.  THESE ARE THE ONLY CONFIGURATION DEPENDENT ASPECTS.
           COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), AND COPY:CPSCNPAR (609/3).  ASSEMBLE WITH *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 WHICH IS ESTABLISHED BY THE CONFIG PROGRAM (046) AT IPL,
                  BASED ON THE NUMBER OF CORE BOXES AVAILABLE.  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 JOBS IS MADE "NON-PRIVILEDGED" FOR A WHILE
                  AND NOT ALLOWED TO EXECUTE.  THE ANSWER IS BASED ON THE SECOND OF THE 3 PARAMETERS, WHICH SPECIFIES
                  HOW MANY REAL PAGES (MAXIMUM) ARE TO BE DEVOTED TO "BIG JOBS", I.E. PRIVILEDGED JOBS.  ACTUALLY,
                  WHEN THE TEST IS MADE FOR A JOB WHICH HAS ACHIEVED THE PARAMETER 1 (BIGJTH) THRESHOLD, THE GREATER
                  OF THE JOB'S ACTUAL REAL PAGES AND HIS ESTIMATED WORKING SET IS USED TO DETERMINE IF THIS JOB WILL
                  "BREAK THE CAMEL'S BACK", I.E. EXCEED THE PARAMETER 2 (ADDBIGJ) THRESHOLD.  FOR THIS REASON, THE
                  SECOND PARAMETER THRESHOLD MAY BE REACHED BEFORE THE CURRENT BIG JOBS COLLECTIVELY HAVE THAT MANY
                  REAL PAGES IF THE CURRENT WORKING SET ESTIMATE FOR ANY OF THE JOBS IS TOO HIGH.
0          Referenced by comments of: 45/2, 604/1, 609/1, 611/1 
00045/2     SUPERVISOR               D3.1 UPDATE     UU  G          MTA:UMMPSUPD                                                    
            D3.1T1   21  SUPERVISOR.D3.1_UPDATE.UU.2        1 LINE     71    9 PAGE UM   MTA                 MAR. 06, 1974  03:16.56
0          UPDATE TO D3 MASTER (045/1) TO PRODUCE D3.1 SOURCE.
00045/3     SUPERVISOR                               OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00045/4     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/5     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.
00046/1     CONFIG                   D3 MASTER       SA  G          S0699 D3TAPE POSN=CONFIG.SOURCE                              2  
            D3T1     54  CONFIG..SA.1                       1 SEQ      80   23 PAGE UM   MTA                 JULY 30, 1973  23:24.57
0          CONFIGURATION PROGRAM MASTER SOURCE FOR DIST 3.  COPIES COPY:LLMPSEQU (087), COPY:PSA (162),
           COPY:PCBDSECT (470), COPY:CHAERC (577/30), AND COPY:CHASYS.2 (577/35).
0          Referenced by comments of: 45/1, 46/2, 468/1 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00046/2     CONFIG                   D3.1 UPDATE     UU  G          MTA:CONFIGUPD                                                   
            D3.1T1   22  CONFIG.D3.1_UPDATE.UU.2            1 LINE     71    1 PAGE UM   MTA                 MAR. 06, 1974  03:17.02
0          UPDATE TO D3 MASTER (046/1) TO PRODUCE D3.1 SOURCE.
00046/3     CONFIG                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
0          ***** NOTE:  THIS OBJECT CONTAINS A REP CARD TO CHANGE THE VERSION DATE TO 01-01-74.
00047/1    *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).
00047/2    *CATALOG                                  OC  G          *CATALOG                                                        
            D3T1     57  CATALOG..OC.2                      1 LINE     80    3 PAGE UM   PIRKOLA             JULY 30, 1973  23:26.23
00049/1     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/2     SDUMP                                    OC           # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   EMERY                                      
00050/1     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 FULL).
00050/2     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 (600 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
1                                                                                               FRI AUG 02/96   18:37:32   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          MONTHLY TAPE AS A NEW FILE.  IF THE MONTHLY TAPE HAS NO FILES ON IT (FRESHLY LABELED), THE PROGRAM WILL ASK THE
           OPERATOR IF HE IS BEGINNING A NEW MONTHLY TAPE AND IF HE REPLIES "YES" THEN IT RESETS LINE 2 OF *STATISTICS.
           THERE IS NOTHING IN THE PROGRAM (OTHER THAN TERMINOLOGY) WHICH IS ORIENTED TO A MONTHLY CYCLE OF TAPES.  THE
           CYCLE IS CONTROLLED BY THE OPERATOR STARTING A NEW "MONTHLY" TAPE.
            
           COPIES COPY:LLMPSEQU.
00050/3     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
0          Referenced by comments of: 256/2 
00051/1    *WATFOR                   ARITH           S            # (OBSOLETE)                                                      
            D2T2    011                                                             UM                                              
00051/2    *WATFOR                   DODO            S            # (OBSOLETE)                                                      
            D2T2    012                                                             UM                                              
00051/3    *WATFOR                   DUMMY           S            # (OBSOLETE)                                                      
            D2T2    013                                                             UM                                              
00051/4    *WATFOR                   DUMMYFUN        S            # (OBSOLETE)                                                      
            D2T2    014                                                             UM                                              
00051/5    *WATFOR                   FIOCS           S            # (OBSOLETE)                                                      
            D2T2    015                                                             UM                                              
00051/6    *WATFOR                   FIOSTAB         S            # (OBSOLETE)                                                      
            D2T2    016                                                             UM                                              
00051/7    *WATFOR                   FORMAT          S            # (OBSOLETE)                                                      
            D2T2    017                                                             UM                                              
00051/8    *WATFOR                   FORMCONV        S            # (OBSOLETE)                                                      
            D2T2    018                                                             UM                                              
00051/9    *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                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00051/14   *WATFOR                   MESSAGE         S            # (OBSOLETE)                                                      
            D2T2    024                                                             UM                                              
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/1    *COINFLIP                                 SA     CNFL    S0370 'D1T1' FMT=FB(6400,80)                                 108
            D3T1     62  COINFLIP..SA.1                     1 SEQ      80    3 PAGE UM   HENRIKSEN           JULY 30, 1973  23:27.01
0          DEMONSTARTION PROGRAM.
00052/2    *COINFLIP                                 OE             *COINFLIP                                                       
            D3T1     63  COINFLIP..O.2                      1 LINE    255    1 PAGE UM   HENRIKSEN           JULY 30, 1973  23:27.02
00053/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00053/2     DISKDUMP                                 OC  G          MTS:DISKDUMP                                                    
            D3T1     65  DISKDUMP..OC.2                     1 LINE     80    3 PAGE UM   PIRKOLA             JULY 30, 1973  23:27.08
00054/1    *TPS                                      S            # (OBSOLETE)                                                      
            D2T1    145                                                             UM                                              
00054/2    *TPS                      LL PTR UC       S            # (OBSOLETE)                                                      
            D2T1    146                                                             UM                                              
00055/1    *BCDEBCD                                  SA  G  BCDE    S0370 'D1T1' FMT=FB(6400,80)                                 220
            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/2    *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    S0371 'D1T2' FMT=FB(6400,80)                                 6  
            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/1    *TABEDIT                                  SA  O  TBED    S0370 'D1T1' FMT=FB(6400,80)                                 164
            D3T1     69  TABEDIT..SA.1                      1 SEQ      80    3 PAGE UM   MTA                 JULY 30, 1973  23:30.09
00057/2    *TABEDIT                                  OC  O          *TABEDIT                                                        
            D3T1     70  TABEDIT..OC.2                      1 LINE     80    1 PAGE UM   MTA                 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    S0371 'D1T2' FMT=FB(6400,80)                                 3  
            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   18:37:32   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
+         ______________ _____________________
00064/1    *OBJSCAN                                  SA  G  OBJS    W062:SCAN                                                       
            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.
           FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO PRINT THE INFORMATION FROM THE "COML"
           RECORDS PRODUCED BY *LINKEDIT AND TO HANDLE THE NEW IBM "END" CARD FORMAT.
00064/2    *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/1    *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/59 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/60) WILL PRODUCE AN ASMG WHICH RUNS IN MTS.  COMPONENT
           66/61 CONTAINS COMMANDS TO UPDATE AND ASSEMBLE ASMG.
00066/2    *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/3    *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/4    *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/5    *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/6    *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/7    *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/8    *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/9    *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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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
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
1                                                                                               FRI AUG 02/96   18:37:32   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/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
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
1                                                                                               FRI AUG 02/96   18:37:32   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/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
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
0          Referenced by comments of: 66/1 
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.
1                                                                                               FRI AUG 02/96   18:37:32   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/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
00066/64   *ASMG                     ASMGUPD         UU  G          WATF:ASMGUPD                                                    
            D3.1T1   88  ASMG.ASMGUPD.UU.64                 1 LINE     83   35 PAGE UM   MTA                 MAR. 06, 1974  03:21.18
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/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 MACROS 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.
           NOTE:  THIS FILE REQUIRES THE USE OF THE D3.1 *LINKEDIT (297).
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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0                   ----           -----------    --------
                    *ASMG          ASMGASM        ASMGASM,ASMGBUFF,ASMGMOD
                    *ASMBLR        ASMGASM        (EXACTLY THE SAME CONTENTS AS *ASMG)
                    *ASMGFPP       ASMGFPP        ASMGFPP,ASMGFD,ASMGFEX
                    *ASMGF2        ASMGF1         ASMGF1,ASMGF2,ASMGF2A
                    *ASMGF3        ASMGF3         ASMGF3
                    *ASMGF7        ASMGF7         ASMGF7C,ASMGF7G,,ASMGF7L,ASMGF7S,ASMGFI,
                                                  ASMGF7D,ASMGF7E,ASMGF7I,ASMGF7N,ASMGF7V,ASMGF7X
                    *ASMGF8        ASMGF8         ASMGF8A,ASMGF8C,ASMGF8L,ASMGF8N,ASMGF8P,
                                                  ASMGF8S,ASMGF8V,ASMGF8D,ASMGF8I,ASMGF8M
                    *ASMGIS00                     ASMGIS00
                    *ASMGIS09                     ASMGIS09
                    *ASMGIS20                     ASMGIS20
                    *ASMGIS44                     ASMGIS44
                    *ASMGIS60                     ASMGIS60
                    *ASMGIS67                     ASMGIS67
                    *ASMGIS70                     ASMGIS70
                    *ASMGRTA       ASMGRTA        ASMGRTA
                    *ASMGUP        ASMGUP         ASMGUP
00066/70   *ASMG                     *ASMGFPP        OE  G          *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          *ASMGF2                                                         
            D3.1T1   95  ASMG.*ASMGF2.OE.71                 1 SEQ   23168    7 PAGE UM   MTA                 MAR. 06, 1974  03:21.46
00066/72   *ASMG                     *ASMGF3         OE  G          *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          *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          *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          *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          *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          *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          *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          *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          *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   18:37:32   Page   22
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/81   *ASMG                     *ASMGIS70       OE  G          *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          *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          *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/1     FILE SAVE                MAIN            SA  G  FSAV    RSTR:FILESAVE(1000)                                             
            D3.1T1  110  FILE_SAVE.MAIN.SA.1                1 LINE     80   28 PAGE UM   BERSTIS             MAR. 06, 1974  03:23.32
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.
            
           FOR D3.1, SMALL CHANGES IN BUFFERS ETC.
0          Referenced by comments of: 92/1, 502/11 
00067/2     FILE SAVE                SAVEFILE        SA  G  SFIL    RSTR:SAVEFILE(1000)                                             
            D3T1    153  FILE_SAVE.SAVEFILE.SA.2            1 LINE     80    9 PAGE UM   BERSTIS             JULY 30, 1973  23:37.44
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   18:37:32   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
+         ______________ _____________________
00067/3     FILE SAVE                TAPEOUT         SA  G  TOUT    RSTR:TAPEOUT(1000)                                              
            D3T1    154  FILE_SAVE.TAPEOUT.SA.3             1 LINE     80    6 PAGE UM   BERSTIS             JULY 30, 1973  23:37.49
0          ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 502/11 
00067/4     FILE SAVE                VTOCRD          SA  O  VTOC    RSTR:VTOCRD(1000)                                               
            D3T1    155  FILE_SAVE.VTOCRD.SA.4              1 LINE     80    7 PAGE UM   BERSTIS             JULY 30, 1973  23:37.51
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: 642/1 
00067/5     FILE SAVE                OBJECT          OE  G          RSTR:FILESAVEOBJ                                                
            D3.1T1  111  FILE_SAVE.OBJECT.OE.5              1 SEQ    8192    5 PAGE UM   BERSTIS             MAR. 06, 1974  03:23.41
00067/6     FILE SAVE                SVSTART         C   G          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/7     FILE SAVE                FSS             C   G          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, AND *SVB).
           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/8     FILE SAVE                WEEKLY START    C   G          *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/9     FILE SAVE                WKLY STREAM #1  C   G          *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   18:37:32   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/10    FILE SAVE                WKLY STREAM #2  C   G          *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   G          *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   G          *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   G          *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 1 MORE STREAM (*SVB) SO THAT
           THE PARTIAL SAVE IS DONE IN 2 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   G          *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   G          *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.
00068      *LINPG                                                 # (NOT DISTRIBUTED)                                               
                                                                                    UM   HARDING                                    
00069      *DRAW                                     SA  O  DRAW    S0371 'D1T2' FMT=FB(6400,80)                                 2  
            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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00071/1     LISTSTAT                                 SA  G  LSTA    WSG:LISTSTAT(1,999)                                             
            D3.1T1  112  LISTSTAT..SA.1                     1 LINE     80   14 PAGE UM   WSG                 MAR. 06, 1974  03:23.42
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.
           HAS RATE TABLES ASSEMBLED IN SO IT CAN PRINT VALUE OF EACH RUN IN MONEY.  FOR THIS
           REASON, IT WILL PROBABLY HAVE TO BE REASSEMBLED AT EACH INSTALLATION SINCE THE
           RATES WILL BE DIFFERENT.
           COPIES COPY:STATDSECT (620).
0          Referenced by comments of: 355/1 
00071/2     LISTSTAT                                 OC  G          WSG:LISTSTAT(1000)                                              
            D3.1T1  113  LISTSTAT..OC.2                     1 LINE     80    3 PAGE UM   WSG                 MAR. 06, 1974  03:23.48
00072/1    *FORTEDIT                                 SA     FTED    S0370 'D1T1' FMT=FB(6400,80)                                 112
            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/2    *FORTEDIT                                 OC             *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/1    *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.
0          Referenced by comments of: 4/1 
00073/2    *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).
00073/3    *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    S0371 'D1T2' FMT=FB(6400,80)                                 5  
            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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00075      *ROSSPRINT                                             # (OBSOLETE)                                                      
                                                                                    UM                                              
00076/1     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/2     RESERVE DISK             RESERVE PGM     SA  G  RSV0    MTA:RESERVE(1,999)                                           85 
            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/3     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/1     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/2     STATBUFF                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00078/1     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/2     STAT SUBROUTINE                          OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00079/1     STAT JOB                                 SA  G  STAT    MTA:STATSOU                                                     
            D3T1    181  STAT_JOB..SA.1                     1 LINE     80   15 PAGE UM   MTA                 JULY 30, 1973  23:40.09
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.
0          Referenced by comments of: 77/1, 140/1 
00079/2     STAT JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00080/1     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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00080/2     INIT JOB                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00082/1     DMOD                                     SA  G  DMOD    W045:PF.DMOD                                                    
            D3T1    183  DMOD..SA.1                         1 LINE     80    7 PAGE UM   PIRKOLA             JULY 30, 1973  23:40.15
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.
               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/2     DMOD                                     OC  G          W045:PF.DMOD.O                                                  
            D3T1    184  DMOD..OC.2                         1 LINE     80    2 PAGE UM   PIRKOLA             JULY 30, 1973  23:40.17
00083/1    *EBCDBCD                                  SA  O  EBCD    S0370 'D1T1' FMT=FB(6400,80)                                 65 
            D3T1    185  EBCDBCD..SA.1                      1 SEQ      80    2 PAGE UM   WSG                 JULY 30, 1973  23:41.00
0          TRANSLATE 029 CARDS TO 026.  UNCHANGED SINCE DIST 1.0.
00083/2    *EBCDBCD                                  OC  O          *EBCDBCD                                                        
            D3T1    186  EBCDBCD..OC.2                      1 LINE     80    1 PAGE UM   WSG                 JULY 30, 1973  23:41.00
00084/1     ARU                      *ARURTN         SA  G          S0001 'SMITH' FSNAME=ARURTN.S                                   
            D3T1    187  ARU.*ARURTN.SA.1                   1 LINE     72   23 DISK UM   BLINN               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).
0          Referenced by comments of: 84/3, 84/4 
00084/2     ARU                      *ARURTN         OC  G          *ARURTN                                                         
            D3T1    188  ARU.*ARURTN.OC.2                   1 SEQ      80    3 PAGE UM   BLINN               JULY 30, 1973  23:42.24
00084/3     ARU                      *SPEAK          D   G          *SPEAK                                                          
            D3T1    189  ARU.*SPEAK.D.3                     1 LINE    255   60 PAGE UM   BLINN               JULY 30, 1973  23:42.25
0          VOCABULARY FILE FOR *ARURTN (084/1).
0          Referenced by comments of: 84/1 
00084/4     ARU                      *ARUDEF         D   G          *ARUDEF                                                         
            D3T1    190  ARU.*ARUDEF.D.4                    1 LINE     10    1 PAGE UM   BLINN               JULY 30, 1973  23:42.34
0          PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1)
1                                                                                               FRI AUG 02/96   18:37:32   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: 84/1 
00084/5     ARU                      DCVD SUBR       SA  G        # (PART OF 084/1)                                                 
            D2T1    420                                                             UM   BLINN                                      
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/6     ARU                      DCVD SUBR       OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   BLINN                                      
00084/7     ARU                      DCVC SUBR       SA  G        # (PART OF 084/1)                                                 
            D2T1    419                                                             UM   BLINN                                      
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/8     ARU                      DCVC SUBR       OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   BLINN                                      
00084/9     ARU                      DCVG SUBR       SA  G        # (PART OF 084/1)                                                 
                                                                                    UM   BLINN                                      
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   BLINN                                      
00084/11    ARU                      *ARUVOC         D   G          *ARUVOC                                                         
            D3T1    191  ARU.*ARUVOC.D.11                   1 LINE    102   11 PAGE UM   BLINN               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   BLINN                                      
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   BLINN               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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00084/14    ARU                      *VLIST          SA  G        # (PART OF 084/1)                                                 
            D2T2    208                                                             UM   BLINN                                      
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   BLINN               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   BLINN               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   BLINN               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   BLINN               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   BLINN               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   BLINN               JULY 30, 1973  23:43.05
0          AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES.
00085       DRUM INIT                INIT:DINIT                   # (SEE COMP 97/8 AND 97/9)                                        
                                                                                    UM                                              
00086/1    *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/2    *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.1T1  115  LLMPSEQU..SA.                      1 LINE     74    6 PAGE UM   MTA                 MAR. 06, 1974  03:23.52
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
1                                                                                               FRI AUG 02/96   18:37:32   Page   30
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES).
           THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING
           AT LINE 100.
0          Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 40/1, 41/1, 42/1, 45/1, 46/1, 47/1, 63/1, 101/1,
                 102/1, 104/70, 111/1, 116/1, 121/1, 123/1, 135/1, 198/1, 343/1, 353/1, 354/1, 355/1, 387/1, 400/1, 413/1,
                 413/5, 441/1, 447/1, 447/3, 447/5, 447/7, 462/1, 464/1, 487/1, 531/1, 531/4, 531/8, 539/1, 554/1, 570/1,
                 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 578/1, 588/1, 589/1, 614/1, 617/1, 618/1, 634/1, 635/1, 636/1,
                 637/1, 638/1, 639/1 
00089       CLEAN <SCRATCH FILES>                                 # (SEE COMP 97/6 AND 97/7)                                        
                                                                                    UM                                              
00090/1    *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/2    *HEXLIST                                  OC  G          *HEXLIST                                                        
            D3T1    203  HEXLIST..O.2                       1 LINE     80    3 PAGE UM   PIRKOLA             JULY 30, 1973  23:43.31
00091/1    *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.
00091/2    *DOUBLE                                   OC  O          *DOUBLE                                                         
            D3T1    205  DOUBLE..OC.2                       1 LINE     80    3 PAGE UQV  BENET               JULY 30, 1973  23:43.35
00092/1     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.
            
           FOR D3.1, A BUG IN THIS PROGRAM (POINTED OUT BY UNE) HAS BEEN FIXED. THE
           BUG CAUSED IT TO IMPROPERLY RESTORE THE LAST FILE ON A TAPE IF IT HAD NO
           CATL RECORD.
0          Referenced by comments of: 502/1 
00092/2     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/3     FILE RESTORE                             OC  G          RSTR:RST                                                        
            D3.1T1  117  FILE_RESTORE..OC.3                 1 SEQE   8534    9 PAGE UM   BERSTIS             MAR. 06, 1974  03:24.08
00092/4     FILE RESTORE             *RST            C   G          *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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00094/1    *TIME                                     SA  G  TIME    S0370 'D1T1' FMT=FB(6400,80)                                 119
            D3T1    210  TIME..SA.1                         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 30, 1973  23:44.08
0          PRINT TIME AND DATE
00094/2    *TIME                                     OC  G          *TIME                                                           
            D3T1    211  TIME..OC.2                         1 SEQ      80    1 PAGE UM   TIFFANY             JULY 30, 1973  23:44.09
00096/1    *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/2    *SYMBOLS                                  OC  G          *SYMBOLS                                                        
            D3T1    213  SYMBOLS..OC.2                      1 LINE    255    3 PAGE UM   DE JONG             JULY 30, 1973  23:44.14
00097/1     INIT                     *INIT           C   G          *INIT                                                           
            D3T1    214  INIT.*INIT.C.1                     1 LINE     45    1 PAGE UM   ENGLE               JULY 30, 1973  23:44.15
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."
00097/2     INIT                     INIT:INITCMD    C              INIT:INITCMD                                                    
            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.
           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 ASSUMING A PAGING DISK PACK ON DRIVE D320, D321, D322, OR D323.
            (7)  THE SEGMENT 2 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 CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE
                 SYSTEM LAST WENT DOWN.
            (10) 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.
1                                                                                               FRI AUG 02/96   18:37:32   Page   32
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                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, 559/1 
00097/3     INIT                     INIT:INIT       OC  G          S0027 DISTRB FSNAME=INIT                                        
            D3.1T1  119  INIT.INIT:INIT.OC.3                1 LINE     80    6 PAGE UM   ENGLE               FEB. 22, 1974  18:27.57
0          PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN.
            
           OBJECT HAS REPS.
0          Referenced by comments of: 104/68 
00097/4     INIT                     INIT:INITCHK    SA  G  ICHK    S0720 'D3T1' FSNAME=INIT.INIT:INITCHK.SA.4                   217
            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/58).
00097/5     INIT                     INIT:INITCHK    OC  G          S0720 'D3T1' FSNAME=INIT.INIT:INITCHK.OC.5                   218
            D3T1    218  INIT.INIT:INITCHK.OC.5             1 LINE     80    2 DISK UM   ENGLE               JAN. 08, 1973  17:47.02
00097/6     INIT                     INIT:CLEAN      SA  G  SFDS    W045:PF.SFDESTRY                                                
            D3T1    219  INIT.INIT:CLEAN.SA.6               1 LINE     80    3 PAGE UM   PIRKOLA             JULY 30, 1973  23:46.30
0          PROGRAM TO DESTROY SCRATCH FILES.  COPIES COPY:CATEQU (482/28).
00097/7     INIT                     INIT:CLEAN      OC  G          INIT:CLEAN                                                      
            D3T1    220  INIT.INIT:CLEAN.OC.7               1 LINE     80    1 PAGE UM   PIRKOLA             JULY 30, 1973  23:46.33
00097/8     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.
00097/9     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
00097/10    INIT                     INIT:INITLOG    SA  G  INIL    MTA:INITLOG(1,999)                                              
            D3T1    223  INIT.INIT:INITLOG.SA.10            1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  00:54.11
0          PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD.
           COPIES COPY:PSA (162/1 OR 162/2). 
           ASSEMBLE WITH *SYSMAC.
00097/11    INIT                     INIT:INITLOG    OC  G          INIT:INITLOG                                                    
            D3T1    224  INIT.INIT:INITLOG.OC.11            1 LINE     80    2 PAGE UM   MTA                 AUG. 01, 1973  02:08.00
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00098      *SQUASH                                   SA           # (OBSOLETED BY *LINKEDIT)                                        
            D2T1    278                                                             UM                                              
00099      *IHC                                      M              *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/1    *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.
00100/2    *FILEDUMP                                 OC  G          *FILEDUMP                                                       
            D3T1    227  FILEDUMP..O.2                      1 LINE     80    2 PAGE UM   PIRKOLA             JULY 30, 1973  23:46.48
00101/1     MOUNT                                    SA  G  MNT0    WSG:MOUNT                                                       
            D3.1T1  120  MOUNT..SA.1                        1 LINE     80   63 PAGE UM   WSG                 MAR. 06, 1974  03:26.11
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 BY THE MTS $MOUNT COMMAND (SEE MTS VOLUME 1, JANUARY 1973 PP 269) 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 
           (SEPTEMBER 1972) 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 ON PAGE 4 OF THE ASSEMBLY LISTING.  MOUNT CALLS
           THE TAPESTAT SUBR (447/1), WHICH REALLY SHOULD BE NAMED MOUNTSTA, 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:CLSVECTOR (535/2), AND COPY:FDUBDSECT (623).
           NOTE:  THE $MOUNT COMMAND WAS IMPLEMENTED AS A COMMAND LANGUAGE SUBSYSTEM (CLS) AS A PROGRAMMING CONVENIENCE
                  EVEN THOUGH MOUNT IS NOT STRICTLY A CLS (IT HAS NO SUB-COMMANDS).
            
           FOR D3.1, MOUNT HAS BEEN CHANGED TO USE 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 BECAUSE OF OUR 3270 OPERATOR'S CONSOLE.  MOUNT HAS ALSO BEEN CHANGED TO FIX SEVERAL BUGS
           IN THE HANDLING OF INPUT (UPPER CASE CONVERSION AND CONTINUATION CHARACTERS), THE SIZE OF THE MTS PDN TABLE
           HAS BEEN EXPANDED TO ALLOW FOR THE RACK NUMBER, AND THE HANDLING OF PAPER TAPE PUNCH MOUNTS HAS BEEN CHANGED.
0          Referenced by comments of: 447/1 
00101/2     MOUNT                    *CLSMOUNT       OC  G          WSG:MNTOBJ.D3.1                                                 
            D3.1T1  121  MOUNT.*CLSMOUNT.OC.2               1 LINE     80    5 PAGE UM   WSG                 MAR. 06, 1974  03:26.20
0          OBJECT FOR MOUNT SUBROUTINE (MOUNT) AND CLS MOUNT (MOUNTCMD).  NORMALLY *CLSMOUNT IS LOADED INTO
           SEGMENT 2 AT IPL BY THE SEGMENT 2 LOADER.  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 (IT IS THE SECOND ENTRY POINT).  BECAUSE OF THIS LDT CARD,
           $RUN *CLSMOUNT DOESN'T WORK SINCE IT ENTERS AT THE CLS ENTRY POINT INSTEAD OF THE SUBR ENTRY.
           THIS FILE ALSO CONTAINS THE OBJECT FOR THE TAPESTAT SUBROUTINE (447/1) AND DISMOUNT (102/1).
           AT UM, WE HAVE DISMOUNT IN SEGMENT 2 BECAUSE THE MERIT COMPUTER NETWORK CLS (553) CALLS THE 
           DISMOUNT SUBROUTINE.
1                                                                                               FRI AUG 02/96   18:37:32   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          Referenced by comments of: 101/3 
00101/3     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 SEGMENT 2 MOUNT (101/2).
00102/1     DISMOUNT                                 SA  G  DMNT    WSG:DISMOUNT(1,999)                                             
            D3.1T1  122  DISMOUNT..SA.1                     1 LINE     80    5 PAGE UM   WSG                 MAR. 06, 1974  03:26.22
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 SEGMENT 2 (THE PRACTICE AT UM).
           COPIES COPY:LLMPSEQU (087).
            
           FOR D3.1, DISMOUNT HAS BEEN CHANGED BECAUSE OF THE EXPANDED SIZE OF THE MTS PDN TABLE.
0          Referenced by comments of: 101/2 
00102/2     DISMOUNT                                 OC  G        # (PART OF 101/2)                                                 
                                                                                    UM   WSG                                        
00102/3     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 SEGMENT 2 DISMOUNT (PART OF 101/2).
00104/1     ACCOUNTING               ACCFORMAT       SA  G  AFMT    S0027 DISTRB FSNAME=ACCFORMAT                                   
            D3.1T1  123  ACCOUNTING.ACCFORMAT.SA.1          1 SEQ      80    2 PAGE UM   ENGLE               JAN. 31, 1974  13:24.39
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
               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+FLSH+GTFL+RBTA
1                                                                                               FRI AUG 02/96   18:37:32   Page   35
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                                       +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:  FOR D3.1, THE ACCOUNTING FILE FORMAT HAS CHANGED AS A NEW RATE WAS ADDED
                         FOR THE MERIT COMPUTER NETWORK CONNECT-TIME CHARGE.  ALSO, A NUMBER OF
                         ACCOUNTING PROGRAMS HAVE A GBLB SYMBOL (&DC) TO ELIMINATE THE ASSEMBLY
                         OF INSTRUCTIONS FOR THE DATA CELL.  IF THE VALUE OF &DC IS 0, THE
                         INSTRUCTIONS WILL NOT BE ASSEMBLED.  IF THE VALUE IS 1, THE INSTRUCTIONS
                         WILL BE ASSEMBLED.  ALL DISTRIBUTION PROGRAMS HAVE THE VALUE SET TO 0,
                         AND THE RESULTS OF SETTING &DC TO 1 ARE NOT GUARANTEED.
0          Referenced by comments of: 104/1, 104/4, 104/6, 104/10, 104/12, 104/14, 104/15, 104/16, 104/24, 104/39, 104/41,
                 104/49, 104/51, 104/66, 104/68, 104/73, 104/75, 104/77, 104/83, 442/1, 502/1, 586/1, 631/6, 631/8, 632/3 
00104/2     ACCOUNTING               ACCRATE         SA  G  ARAT    S0027 DISTRB FSNAME=ACCRATE                                     
            D3.1T1  124  ACCOUNTING.ACCRATE.SA.2            1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  13:25.00
0          COPIED UNDER THE NAME "ACCRATE" TO GIVE THE CURRENT RATES.
0          Referenced by comments of: 104/14, 104/16, 586/1 
00104/3     ACCOUNTING               ACCPROJFMT      SA  G  APFT    S0027 DISTRB FSNAME=ACCPROJFMT                                  
            D3.1T1  125  ACCOUNTING.ACCPROJFMT.SA.3         1 SEQ      80    1 PAGE UM   ENGLE               JAN. 31, 1974  13:26.06
0          COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT.
0          Referenced by comments of: 104/16, 104/28, 104/33, 104/41, 500/18, 500/22, 631/6 
00104/4     ACCOUNTING               ACCERROR        SA  G  AERR    S0027 DISTRB FSNAME=ACCERROR                                    
            D3.1T1  126  ACCOUNTING.ACCERROR.SA.4           1 LINE     80    8 PAGE UM   ENGLE               JAN. 31, 1974  13:27.23
0          CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN.
           COPIES ACCFORMAT (104/1).
00104/5     ACCOUNTING               ACCERROR        OC  G          S0027 DISTRB FSNAME=AERR                                        
            D3.1T1  127  ACCOUNTING.ACCERROR.OC.5           1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  13:27.40
00104/6     ACCOUNTING               ACCPRINT        SA  G  APRT    S0027 DISTRB FSNAME=ACCPRINT                                    
            D3.1T1  128  ACCOUNTING.ACCPRINT.SA.6           1 LINE     80    9 PAGE UM   ENGLE               JAN. 31, 1974  13:28.59
0          FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS.
           COPIES ACCFORMAT (104/1).
00104/7     ACCOUNTING               ACCPRINT        OC  G          S0027 DISTRB FSNAME=APRT                                        
            D3.1T1  129  ACCOUNTING.ACCPRINT.OC.7           1 LINE     80    5 PAGE UM   ENGLE               JAN. 31, 1974  13:29.20
00104/8     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00104/9     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/10    ACCOUNTING               ACCINITL        SA  G  AINT    S0027 DISTRB FSNAME=ACCINITL                                    
            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/11    ACCOUNTING               ACCINITL        OC  G          S0027 DISTRB FSNAME=AINT                                        
            D3.1T1  131  ACCOUNTING.ACCINITL.OC.11          1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  13:31.49
00104/12    ACCOUNTING               STATUS          SA  G  STAT    S0027 DISTRB FSNAME=STATUS                                      
            D3.1T1  132  ACCOUNTING.STATUS.SA.12            1 LINE     80   11 PAGE UM   ENGLE               JAN. 31, 1974  13:33.09
0          MAIN PROGRAM FOR *STATUS.
           COPIES ACCFORMAT (104/1).
00104/13    ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STAT                                        
            D3.1T1  133  ACCOUNTING.STATUS.OC.13            1 LINE     80    4 PAGE UM   ENGLE               JAN. 31, 1974  13:33.15
0          Referenced by comments of: 129/2 
00104/14    ACCOUNTING               ACCRTUPD        SA  G  ARTU    S0720 'D3T1' FSNAME=ACCOUNTING.ACCRTUPD.SA.14                246
            D3T1    246  ACCOUNTING.ACCRTUPD.SA.14          1 LINE     80    2 PAGE UM   ENGLE               OCT. 03, 1972  15:49.38
0          PROGRAM TO UPDATE RATES. THIS IS TO BE USED WITH ARDW AND IT PROVIDES AN EXAMPLE OF HOW TO WRITE A SUBROUTINE
           TO BE USED WITH THAT PROGRAM. TO CHANGE RATES, PUT THE NEW RATES IN ACCRATE, ASSEMBLE ARTU, AND RUN ARDW
           WITH THE NEW ARTU.
           COPIES ACCFORMAT (104/1) AND ACCRATE (104/2).
00104/15    ACCOUNTING               ACCRTUPD        OC  G        #                                                                 
            D3T1    247  ACCOUNTING.ACCRTUPD.OC.15          1 LINE     80    1 DISK UM   ENGLE               OCT. 03, 1972  15:50.00
0          NO OBJECT AVAILABLE FOR CURRENT VERSION OF ACCFORMAT (104/1).
00104/16    ACCOUNTING               ACCMAINT        SA  G  AMAT    S0027 DISTRB FSNAME=ACCMAINT                                    
            D3.1T1  134  ACCOUNTING.ACCMAINT.SA.16          1 LINE     80   56 PAGE UM   ENGLE               JAN. 31, 1974  13:39.35
0          MAIN PROGRAM FOR ACCMAINT.
           COPIES ACCFORMAT (104/1), ACCRATE (104/2), AND ACCPROJFMT (104/3).
00104/17    ACCOUNTING               ACCMAINT        OC  G          S0027 DISTRB FSNAME=AMAT                                        
            D3.1T1  135  ACCOUNTING.ACCMAINT.OC.17          1 LINE     80    9 PAGE UM   ENGLE               JAN. 31, 1974  13:40.38
00104/18    ACCOUNTING               ACCIO           SA  G  AIO     S0720 'D3T1' FSNAME=ACCOUNTING.ACCIO.SA.18                   250
            D3T1    250  ACCOUNTING.ACCIO.SA.18             1 LINE     80   15 PAGE UM   ENGLE               OCT. 05, 1972  10:48.59
0          GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S).
0          Referenced by comments of: 104/32, 502/1 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00104/19    ACCOUNTING               ACCIO           OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCIO.OC.19                   251
            D3T1    251  ACCOUNTING.ACCIO.OC.19             1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  10:51.23
0          Referenced by comments of: 129/2, 484/1, 631/12 
00104/20    ACCOUNTING               ACCGFUPD        SA  G          W013:ACCGFUPD(100)                                              
            D3T5    253  ACCOUNTING.ACCGFUPD.SA.98          1 LINE     72    1 PAGE UM   ENGLE               AUG. 11, 1973  01:28.06
0          PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS.  RUN WITH ACCRDWRT (104/26).  THIS PROGRAM IS IN
           "MTS:FILEUPD" ON THE D3 RESTORE PACK SINCE IT IS USED IN THE PROCESS OF CONVERTING FROM DISTRIBUTION 2 TO
           DISTRIBUTION 3.
00104/21    ACCOUNTING               ACCGFUPD        OC  G          W013:ACCGFUPD(1,98)                                             
            D3.1T1  136  ACCOUNTING.ACCGFUPD.OC.21          1 LINE     80    1 PAGE UM   ENGLE               MAR. 06, 1974  03:27.22
00104/22    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/23    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/24    ACCOUNTING               ACCSTRUP        SA  G  ASTR    S0027 DISTRB FSNAME=ACCSTRUP                                    
            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/25    ACCOUNTING               ACCSTRUP        OC  G          S0027 DISTRB FSNAME=ASTR                                        
            D3.1T1  138  ACCOUNTING.ACCSTRUP.OC.25          1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  13:43.39
0          Referenced by comments of: 484/1 
00104/26    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/98) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE
           COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION.
0          Referenced by comments of: 104/20 
00104/27    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/51 
00104/28    ACCOUNTING               PCONVERT        SA  G  PCNV    S0027 DISTRB FSNAME=PCONVERT                                    
            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.
           TO USE, RUN PRJLIST (104/36) + PCONVERT + ACCLIB (104/32).  NEW PROJECT FILE IS PRODUCED ON SPUNCH.
           COPIES ACCPROJFMT (104/3).
1                                                                                               FRI AUG 02/96   18:37:32   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/29    ACCOUNTING               PCONVERT        OC  G          S0027 DISTRB FSNAME=PCNV                                        
            D3.1T1  140  ACCOUNTING.PCONVERT.OC.29          1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:33.42
00104/30    ACCOUNTING               ACCPRJMT        SA  G  APMT    S0027 DISTRB FSNAME=ACCPRJMT                                    
            D3.1T1  141  ACCOUNTING.ACCPRJMT.SA.30          1 LINE     80   26 PAGE UM   ENGLE               JAN. 31, 1974  13:46.03
0          MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT.
00104/31    ACCOUNTING               ACCPRJMT        OC  G          S0027 DISTRB FSNAME=APMT                                        
            D3.1T1  142  ACCOUNTING.ACCPRJMT.OC.31          1 LINE     80    5 PAGE UM   ENGLE               JAN. 31, 1974  13:46.29
00104/32    ACCOUNTING               ACCLIB          OL  G          S0027 DISTRB FSNAME=ACCLIB                                      
            D3.1T1  143  ACCOUNTING.ACCLIB.OL.32            1 LINE     80   14 PAGE UM   ENGLE               FEB. 22, 1974  18:26.20
0          THE RIP CARD FOR THE SYMBOL "LINCOUNT" SHOULD BE DELETED FROM ACCLIB AFTER IT IS GENERATED.
            
           THERE ARE SOME REP CARDS IN THIS LIBRARY.
           THE REP CARDS ARE TO CHANGE FILE NAMES IN ACCIO (104/18) TO PUBLIC FILES.
0          Referenced by comments of: 104/28, 632/1, 632/3, 632/5 
00104/33    ACCOUNTING               ACPRJPRT        SA  G  APPR    S0027 DISTRB FSNAME=ACPRJPRT                                    
            D3.1T1  144  ACCOUNTING.ACPRJPRT.SA.33          1 LINE     80    8 PAGE UM   ENGLE               JAN. 31, 1974  13:51.10
0          SUBROUTINE TO PRINT A RECORD FROM *PROJECT.
           COPIES ACCPROJFMT (104/3).
00104/34    ACCOUNTING               ACPRJPRT        OC  G          S0027 DISTRB FSNAME=APPR                                        
            D3.1T1  145  ACCOUNTING.ACPRJPRT.OC.34          1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  13:51.25
00104/35    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/36    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/28 
00104/37    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/38    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
00104/39    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
1                                                                                               FRI AUG 02/96   18:37:32   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          THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET.  COPIES ACCFORMAT (104/1).
00104/40    ACCOUNTING               ACCPASWD        OC  G          S0027 DISTRB FSNAME=APSW                                        
            D3.1T1  146  ACCOUNTING.ACCPASWD.OC.40          1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  13:54.15
00104/41    ACCOUNTING               ACONSIST        SA  G  ACNS    S0720 'D3T1' FSNAME=ACCOUNTING.ACONSIST.SA.41                273
            D3T1    273  ACCOUNTING.ACONSIST.SA.41          1 LINE     80   13 PAGE UM   ENGLE               JAN. 18, 1973  14:39.59
0          MAIN PROGRAM FOR ACCERRORSCAN.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/3).
00104/42    ACCOUNTING               ACONSIST        OC  G          S0027 DISTRB FSNAME=ACNS                                        
            D3.1T1  147  ACCOUNTING.ACONSIST.OC.42          1 LINE     80    4 PAGE UM   ENGLE               JAN. 31, 1974  13:55.14
00104/43    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/44    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/45    ACCOUNTING               DIRECTRY        SA  G  DIR     S0720 'D3T1' FSNAME=ACCOUNTING.DIRECTRY.SA.45                277
            D3T1    277  ACCOUNTING.DIRECTRY.SA.45          1 LINE     80   16 PAGE UM   ENGLE               JAN. 05, 1973  11:17.14
0          I/O SUBROUTINES FOR THE DIRECTORY FILE.
00104/46    ACCOUNTING               DIRECTRY        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.DIRECTRY.OC.46                278
            D3T1    278  ACCOUNTING.DIRECTRY.OC.46          1 LINE     80    2 DISK UM   ENGLE               JAN. 05, 1973  11:17.35
0          Referenced by comments of: 631/12 
00104/47    ACCOUNTING               DIRLIST         SA  G  DLST    S0720 'D3T1' FSNAME=ACCOUNTING.DIRLIST.SA.47                 279
            D3T1    279  ACCOUNTING.DIRLIST.SA.47           1 LINE     80    4 PAGE UM   ENGLE               JAN. 12, 1973  13:57.10
0          MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY.
00104/48    ACCOUNTING               DIRLIST         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.DIRLIST.OC.48                 280
            D3T1    280  ACCOUNTING.DIRLIST.OC.48           1 LINE     80    1 DISK UM   ENGLE               JAN. 12, 1973  13:57.20
00104/49    ACCOUNTING               FILUPDAT        SA  G  FLUP    S0027 DISTRB FSNAME=FILUPDAT                                    
            D3.1T1  148  ACCOUNTING.FILUPDAT.SA.49          1 LINE     80    5 PAGE UM   ENGLE               JAN. 31, 1974  14:04.39
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).
00104/50    ACCOUNTING               FILUPDAT        OC  G          S0027 DISTRB FSNAME=FLUP                                        
            D3.1T1  149  ACCOUNTING.FILUPDAT.OC.50          1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  14:06.19
1                                                                                               FRI AUG 02/96   18:37:32   Page   40
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00104/51    ACCOUNTING               ACONVERT        SA  G  ACNV    S0027 DISTRB FSNAME=ACONVERT                                    
            D3.1T1  150  ACCOUNTING.ACONVERT.SA.51          1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:31.42
0          ACCUPDAT SUBROUTINE TO CONVERT A DISTRIBUTION 3.0 ACCOUNTING FILE TO DISTRIBUTION 3.1 BY ADDING NETWORK FIELDS AND FLAG.
           USE WITH ACCRDWRT (104/27).
           COPIES ACCFORMAT (104/1).
0          Referenced by comments of: 104/52 
00104/52    ACCOUNTING               ACONVERT        OC  G          S0027 DISTRB FSNAME=ACNV                                        
            D3.1T1  151  ACCOUNTING.ACONVERT.OC.52          1 LINE     80    1 PAGE UM   ENGLE               FEB. 04, 1974  13:31.56
0          SEE COMMENTS FOR (104/51)
00104/53    ACCOUNTING               STAPRJPA        SA  G  SPPA    S0027 DISTRB FSNAME=STAPRJPA                                    
            D3.1T1  152  ACCOUNTING.STAPRJPA.SA.53          1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  14:13.54
0          TXT PATCH RECORDS FOR ACCMXMAT USED IN ACC:STATPROJECT (104/55).
00104/54    ACCOUNTING               STAPRJPA        OC  G          S0027 DISTRB FSNAME=SPPA                                        
            D3.1T1  153  ACCOUNTING.STAPRJPA.OC.54          1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  14:17.36
00104/55    ACCOUNTING               STAPRJCL        SA  G  SPCL    S0027 DISTRB FSNAME=STAPRJCL                                    
            D3.1T1  154  ACCOUNTING.STAPRJCL.SA.55          1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  14:18.43
0          MAIN PROGRAM FOR ACC:STAPROJECT.  CALLS ACCMXMAT WHICH HAS BEEN PATCHED WITH TXT RECORDS FROM STAPRJPA.
0          Referenced by comments of: 104/53 
00104/56    ACCOUNTING               STAPRJCL        OC  G          S0027 DISTRB FSNAME=STCL                                        
            D3.1T1  155  ACCOUNTING.STAPRJCL.OC.56          1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  14:19.54
00104/57    ACCOUNTING               STAPROJECT      OC  G          S0027 DISTRB FSNAME=STAPROJECT                                  
            D3.1T1  156  ACCOUNTING.STAPROJECT.OC.57        1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  14:21.07
0          PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT.
           CONTAINS A "$CONTINUE WITH ACC:ACCLIB" RECORD.
           OBJECT HAS REP CARDS.
00104/58    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/4, 104/66, 104/68, 104/70, 104/77, 104/81, 104/87, 586/1, 631/1, 631/4, 631/10,
                 632/3, 632/5 
00104/59    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/65).
1                                                                                               FRI AUG 02/96   18:37:32   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/60    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
00104/61    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/62    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/63    ACCOUNTING               DIRPRINT        SA  G  DPRT    S0720 'D3T1' FSNAME=ACCOUNTING.DIRPRINT.SA.63                295
            D3T1    295  ACCOUNTING.DIRPRINT.SA.63          1 LINE     80    6 PAGE UM   ENGLE               JAN. 12, 1973  13:57.59
0          SUBROUTINE TO FORMAT A DIRECTORY ENTRY FOR PRINTING.  USED IN ACC:ACCLIB.
00104/64    ACCOUNTING               DIRPRINT        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.DIRPRINT.OC.64                296
            D3T1    296  ACCOUNTING.DIRPRINT.OC.64          1 LINE     80    2 DISK UM   ENGLE               JAN. 12, 1973  13:58.08
00104/65    ACCOUNTING               INITCHK                      # (SEE COMP 097/4 AND 097/5)                                      
                                                                                    UM   ENGLE                                      
0          Referenced by comments of: 104/59 
00104/66    ACCOUNTING               ACCFLUPD        SA  G  AFLU    S0027 DISTRB FSNAME=ACCFLUPD                                    
            D3.1T1  157  ACCOUNTING.ACCFLUPD.SA.66          1 LINE     80    6 PAGE UM   ENGLE               JAN. 31, 1974  14:23.52
0          SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD.
           COPIES ACCFORMAT (104/1) AND GRDEF (104/58).
00104/67    ACCOUNTING               ACCFLUPD        OC  G          S0027 DISTRB FSNAME=AFLU                                        
            D3.1T1  158  ACCOUNTING.ACCFLUPD.OC.67          1 LINE     80    2 PAGE UM   ENGLE               JAN. 31, 1974  14:24.26
0          Referenced by comments of: 484/1 
00104/68    ACCOUNTING               ACCINSCN        SA  G  AINS    S0720 'D3T1' FSNAME=ACCOUNTING.ACCINSCN.SA.68                299
            D3T1    299  ACCOUNTING.ACCINSCN.SA.68          1 LINE     80    6 PAGE UM   ENGLE               JAN. 08, 1973  17:51.49
0          USED IN INIT:INIT (097/3).  COPIES ACCFORMAT (104/1) AND GRDEF (104/58).
00104/69    ACCOUNTING               ACCINSCN        OC  G          S0027 DISTRB FSNAME=AINS                                        
            D3.1T1  159  ACCOUNTING.ACCINSCN.OC.69          1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  14:27.48
00104/70    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/58) 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/71    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   18:37:32   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/72    ACCOUNTING               DEDFLFIX                     # (SEE COMP 502/13 AND 502/14)                                    
                                                                                    UM   ENGLE                                      
00104/73    ACCOUNTING               ACCLSTPR        SA  G  ALPR    S0027 DISTRB FSNAME=ACCLSTPR                                    
            D3.1T1  160  ACCOUNTING.ACCLSTPR.SA.73          1 LINE     80    8 PAGE UM   ENGLE               JAN. 31, 1974  14:29.20
0          SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT.  COPIES ACCFORMAT (104/1).
00104/74    ACCOUNTING               ACCLSTPR        OC  G          S0027 DISTRB FSNAME=ALPR                                        
            D3.1T1  161  ACCOUNTING.ACCLSTPR.OC.74          1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  14:30.11
00104/75    ACCOUNTING               ACCFLCHG        SA  G  AFLC    S0027 DISTRB FSNAME=ACCFLCHG                                    
            D3.1T1  162  ACCOUNTING.ACCFLCHG.SA.75          1 LINE     80    4 PAGE UM   ENGLE               JAN. 31, 1974  14:31.33
0          SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD.
           CALLED BY ACCDSPLA.  COPIES ACCFORMAT (104/1).
00104/76    ACCOUNTING               ACCFLCHG        OC  G          S0027 DISTRB FSNAME=AFLC                                        
            D3.1T1  163  ACCOUNTING.ACCFLCHG.OC.76          1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  14:33.35
00104/77    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/58).
00104/78    ACCOUNTING               APSWDISP        OC  G          S0027 DISTRB FSNAME=APWD                                        
            D3.1T1  164  ACCOUNTING.APSWDISP.OC.78          1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  14:59.18
00104/79    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/80    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/81    ACCOUNTING               TIMETRP         SA  G  TTRP    S0720 'D3T1' FSNAME=ACCOUNTING.TIMETRP.SA.81                 311
            D3T1    311  ACCOUNTING.TIMETRP.SA.81           1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1973  11:04.33
0          SUBROUTINE TO SET UP REAL TIME INTERRUPTS AND SET A FLAG AT THE INTERRUPT.  COPIES GRDEF (104/58).
00104/82    ACCOUNTING               TIMETRP         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.TIMETRP.OC.82                 312
            D3T1    312  ACCOUNTING.TIMETRP.OC.82           1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  11:04.41
0          Referenced by comments of: 631/12 
00104/83    ACCOUNTING               ACCSGATR        SA  G  ASAR    S0027 DISTRB FSNAME=ACCSGATR                                    
            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)
1                                                                                               FRI AUG 02/96   18:37:32   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/84    ACCOUNTING               ACCSGATR        OC  G  ASAR    S0027 DISTRB FSNAME=ASAR                                        
            D3.1T1  166  ACCOUNTING.ACCSGATR.OC.84          1 LINE     80    3 PAGE UM   ENGLE               JAN. 08, 1974  14:53.32
00104/85    ACCOUNTING               ACCSAVE         SA  G  ASAV    S0720 'D3T1' FSNAME=ACCOUNTING.ACCSAVE.SA.85                 315
            D3T1    315  ACCOUNTING.ACCSAVE.SA.85           1 LINE     80    7 PAGE UM   ENGLE               JAN. 09, 1973  11:21.16
0          MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE.
00104/86    ACCOUNTING               ACCSAVE         OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCSAVE.OC.86                 316
            D3T1    316  ACCOUNTING.ACCSAVE.OC.86           1 LINE     80    2 DISK UM   ENGLE               JAN. 09, 1973  11:21.35
00104/87    ACCOUNTING               ACCTAPRD        SA  G  ATRD    S0720 'D3T1' FSNAME=ACCOUNTING.ACCTAPRD.SA.87                317
            D3T1    317  ACCOUNTING.ACCTAPRD.SA.87          1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1973  11:28.29
0          VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES.
           COPIES GRDEF (104/58).
00104/88    ACCOUNTING               ACCTAPRD        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.ACCTAPRD.OC.88                318
            D3T1    318  ACCOUNTING.ACCTAPRD.OC.88          1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  11:28.51
00104/89    ACCOUNTING               GETFILE         SA  G  GTFL    S0027 DISTRB FSNAME=GETFILE                                     
            D3.1T1  167  ACCOUNTING.GETFILE.SA.89           1 LINE     80    3 PAGE UM   ENGLE               FEB. 22, 1974  18:30.09
0          SUBROUTINE TO GET A FDUB, ETC.
0          Referenced by comments of: 502/1 
00104/90    ACCOUNTING               GETFILE         OC  G          S0027 DISTRB FSNAME=GTFL                                        
            D3.1T1  168  ACCOUNTING.GETFILE.OC.90           1 LINE     80    1 PAGE UM   ENGLE               FEB. 22, 1974  18:30.14
0          Referenced by comments of: 129/2, 484/1, 631/12 
00104/91    ACCOUNTING               ACATALOG        SA  G  ACAT    W045:PF.ACATALOG                                                
            D3T1    321  ACCOUNTING.ACATALOG.SA.91          1 LINE     80    4 PAGE UM   PIRKOLA             JULY 31, 1973  00:07.37
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/92    ACCOUNTING               ACATALOG        OC  G          W045:PF.ACATALOG.O                                              
            D3T1    322  ACCOUNTING.ACATALOG.OC.92          1 LINE     80    1 PAGE UM   PIRKOLA             JULY 31, 1973  00:07.39
0          Referenced by comments of: 484/1 
00104/93    ACCOUNTING               ACATALOG        SA  G  ACAT    MTA:ACATALOG(1,999)                                             
            D3T1    323  ACCOUNTING.ACATALOG.SA.93          1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  00:07.41
0          THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION,
           BUT CALLS THE ACATSUB SUBROUTINE (104/95) 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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0          Referenced by comments of: 104/95 
00104/94    ACCOUNTING               ACATALOG        OC  G          MTA:ACATALOG(1000)                                              
            D3T1    324  ACCOUNTING.ACATALOG.OC.94          1 LINE     80    1 PAGE UM   MTA                 JULY 31, 1973  00:07.44
00104/95    ACCOUNTING               ACATSUB         SA  G  ACSB    MTA:ACATSUB(1,999)                                              
            D3T1    325  ACCOUNTING.ACATSUB.SA.95           1 LINE     80   10 PAGE UM   MTA                 JULY 31, 1973  00:07.46
0          SUBROUTINE CALLED BY SUPER ACATALOG (104/93).  COPIES COPY:CATEQU (482/28), COPY:FCBEQU (482/27), AND
           COPY:DSCBDSCT (482/41).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 104/93 
00104/96    ACCOUNTING               ACATSUB         OC  G          MTA:ACATSUB(1000)                                               
            D3T1    326  ACCOUNTING.ACATSUB.OC.96           1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  00:07.49
00104/97    ACCOUNTING               WRITEUP         WF  G          S0027 DISTRB FSNAME=ACCWRITEUP                                  
            D3.1T1  169  ACCOUNTING.WRITEUP.WF.97           1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  15:20.27
0          A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS.
00107       ACATALOG                                              # (SEE COMP 104)                                                  
                                                                                    UM                                              
00108/1     PL/360                   ASSEMBLER       S3             WATF:PL360.S                                                    
            D3T1    328  PL/360.ASSEMBLER.S3.1              1 LINE     73   38 PAGE UM   BLINN               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/2     PL/360                   MTS INTERFACE   SA             WATF:PL360SUP.S                                                 
            D3T1    329  PL/360.MTS_INTERFACE.SA.2          1 LINE     83    3 PAGE UM   BLINN               JULY 31, 1973  00:08.20
0          SOURCE IN ASMG FOR MTS INTERFACE OF PL/360.
00108/3     PL/360                   *PL360          OE             *PL360                                                          
            D3T1    330  PL/360.*PL360.OE.3                 1 SEQ   22059    9 PAGE UM   BLINN               JULY 31, 1973  00:08.22
00108/4     PL/360                   *PL360LIB       SA             WATF:PL360LIB.S                                                 
            D3T1    331  PL/360.*PL360LIB.SA.4              1 LINE     80    3 PAGE UM   BLINN               JULY 31, 1973  00:08.24
0          SOURCE FOR THE RUN TIME PL360 LIBRARY - *PL360LIB.
00108/5     PL/360                   *PL360LIB       OC             *PL360LIB                                                       
            D3T1    332  PL/360.*PL360LIB.OC.5              1 LINE     80    1 PAGE UM   BLINN               JULY 31, 1973  00:08.26
00108/6     PL/360                   *PL360SLIB      SA             WATF:PL360SLIB.S                                                
            D3T1    333  PL/360.*PL360SLIB.SA.6             1 LINE     80    3 PAGE UM   BLINN               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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00108/7     PL/360                   *PL360SLIB      OC             *PL360SLIB                                                      
            D3T1    334  PL/360.*PL360SLIB.OC.7             1 SEQ      80    1 PAGE UM   BLINN               JULY 31, 1973  00:08.31
00110/1     TNL                      *TNL            SA     *TNL    S0370 'D1T1' FMT=FB(6400,80)                                 180
            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/2     TNL                      *TNL            OC             *TNL                                                            
            D3T1    336  TNL.*TNL.O.2                       1 LINE     80    6 PAGE UM   DWB                 JULY 31, 1973  00:09.00
00110/3     TNL                      *TNLBUILD       SA           # (SEE COMP 110/1)                                                
                                                                                    UM   DWB                                        
0          PROGRAM TO ADD TNLS TO *MTSTNL.
00110/4     TNL                      *TNLBUILD       OC             *TNLBUILD                                                       
            D3T1    337  TNL.*TNLBUILD.O.4                  1 LINE     80    4 PAGE UM   DWB                 JULY 31, 1973  00:09.02
00111/1    *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.
           COPIES COPY:LLMPSEQU (087) AND REQUIRES *SYSMAC.
00111/2    *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.
00113       SCANFILES <DEADFILES>                                 # (SEE COMP 502)                                                  
                                                                                    UM                                              
00116/1    *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 AND PDP-8E DATA CONCENTRATORS. 
           COPIES COPY:LLMPSEQU (087) AND COPY:FDUBDSECT (623).
           REQUIRES D3.0 SUPERVISOR FOR NEW HIGH-ORDER SVC STIO BITS.
0          Referenced by comments of: 42/2 
00116/2    *PDP8RTN                                  OC  G          *PDP8RTN                                                        
            D3.1T1  171  PDP8RTN..OC.2                      1 LINE     80    4 PAGE UM   WSG                 MAR. 06, 1974  03:31.13
0          AT UM, THIS FILE IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00116/3    *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"
00116/4    *PDP8RTN                  MEMO M256       WF  G          W098:KDM256                                                     
            D3.1T1  173  PDP8RTN.MEMO_M256.WF.4             1 LINE    127    3 PAGE UM   JLD                 MAR. 06, 1974  03:31.16
0          THIS IS COMPUTING CENTER MEMO M256 -- "THE INTERRELATIONSHIP BETWEEN THE DATA CONCENTRATOR "SIZE" AND
           "OVERFLOW" OPTIONS AND THE THE MTS DSR "LEN" COMMAND"
00116/5    *PDP8RTN                  MEMO M257       WF  G          W098:KDM257                                                     
            D3.1T1  174  PDP8RTN.MEMO_M257.WF.5             1 LINE    110    3 PAGE UM   BLINN               MAR. 06, 1974  03:31.18
0          THIS IS COMPUTING CENTER MEMO M257 -- "TEKTRONIX 4010 USER'S GUIDE"
00117      *GRAPHMAC                                 SM  O  GRPM    S0518 'D2T2' FMT=FB(4000,80)                                 209
            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/1     SYN360                                   SS             S0370 'D1T1' FMT=FB(6400,80)                                 143
            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/2     SYN360                   TABLES DATA     D              S0370 'D1T1' FMT=FB(6400,80)                                 144
            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/1     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/2     REWIND SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00121/1    *USERS                    MAIN PGM        SA  G  USER    MTA:USERS(1,999)                                                
            D3T1    346  USERS.MAIN_PGM.SA.1                1 LINE     80    4 PAGE UM   MTA                 JULY 31, 1973  00:15.41
0          USER-LEVEL PROGRAM TO PRINT THE CURRENT NUMBER OF TERMINAL USERS AND BATCH JOBS, AS WELL AS THE CURRENT
           HARDWARE CONFIGURATION (PROCESSORS, CHANNEL CONTROLLERS, AND STORAGE).  COPIES COPY:LLMPSEQU (087).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00121/2    *USERS                    CONF SUBR       SA  G  CONF    MTA:USERSCONF(1,999)                                            
            D3T1    347  USERS.CONF_SUBR.SA.2               1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  00:15.43
0          COPIES COPY:CHACST (577/28).
00121/3    *USERS                                    OC  G          *USERS                                                          
            D3T1    348  USERS..OC.3                        1 LINE    255    1 PAGE UM   MTA                 JULY 31, 1973  00:15.46
00121/4    *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    S0371 'D1T2' FMT=FB(6400,80)                                 4  
            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/1     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 116 AND 56.
           ALSO USED BY OLTS (458)
00126/2     BLSTDEV                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00127       SAVEFILES <DEADFILES>                                 # (SEE COMP 502)                                                  
                                                                                    UM                                              
00128      *PTPPRTN                                  SA  S  PTPP    S0370 'D1T1' FMT=FB(6400,80)                                 127
            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!
00129/1    *STATUS                                   SA  G        # (SEE COMP 104)                                                  
                                                                                    UM   ENGLE                                      
0          PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD.
00129/2    *STATUS                                   OE  G          MTS:STATUS/D3.1                                                 
            D3.1T1  175  STATUS..OE.2                       1 LINE    255    4 PAGE UM   ENGLE               MAR. 06, 1974  03:31.21
0          CONSISTS OF:  STATUS (104/13) + ACCIO (104/19) + GETFILE (104/90).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00131       STRTPDP                                               # (OBSOLETE, SEE COMP 614)                                        
            D2T1    149                                                             UM                                              
00132/1    *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/2    *PERMIT                                   OE  G          *PERMIT                                                         
            D3T1    355  PERMIT..O.2                        1 LINE    255    1 PAGE UM   PIRKOLA             JULY 31, 1973  00:17.08
00133/1    *PLOT                                     SA     PLOT    S0371 'D1T2' FMT=FB(6400,80)                                 8  
            D3T1    356  PLOT..S.1                          1 SEQ      80   13 PAGE UM   LIFT                JULY 31, 1973  00:17.15
0          INTERFACE TO PRINTER PLOT SUBROUTINES.  NOT CHANGED SINCE DIST 1.
00133/2    *PLOT                                     OC             *PLOT                                                           
            D3T1    357  PLOT..O.2                          1 LINE     80    3 PAGE UM   LIFT                JULY 31, 1973  00:17.16
00135/1    *TAPERTN                                  SA  G  TAPE    WSG:TAPE                                                        
            D3.1T1  176  TAPERTN..SA.1                      1 LINE     80   85 PAGE UM   WSG                 MAR. 06, 1974  03:31.23
0          MTS DEVICE SUPPORT ROUTINES FOR MAGNETIC TAPES.  COPIES COPY:LLMPSEQU (087) 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.
           THE "MAG TAPE USER'S GUIDE" IN MTS VOLUME 4 CLOSELY CORRESPONDS WITH THIS VERSION OF TAPERTN.
           THERE IS AN ADDITIONAL 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
            
           FOR D3.1, THE TAPE ROUTINES HAVE BEEN EXTENDED AS FOLLOWS:
            
           (1)  THE @BKWD I/O MODIFIER IS FULLY SUPPORTED.
           (2)  THE EXPIRATION DATE (IN MM-DD-YY) HAS BEEN ADDED TO THE 'SNS' DATA IN BYTES 64-71.
           (3)  THE SVC STIO IMPLIED WAIT BIT IS USED.
           (4)  THE UBC SUGGESTED CHANGE FOR DEFAULT 9TP UNLABELED TAPE DENSITY IS INCLUDED.  THE DEFAULT DENSITY
                IS NOW THE DENSITY OF THE DATA CURRENTLY WRITTEN ON THE TAPE, RATHER THAN 1600 BPI.
0          Referenced by comments of: 487/4, 489/1 
00135/2    *TAPERTN                                  OC  G          WSG:XTAPERTN.D3.1                                               
            D3.1T1  177  TAPERTN..OC.2                      1 LINE     80    6 PAGE UM   WSG                 MAR. 06, 1974  03:31.43
0          AT UM, THIS FILE IS NORMALLY LOADED INTO SHARED VM BY THE SEGMENT 2 LOADER AT IPL.
           HOWEVER, FOR INSTALLATIONS WITH LOWER TAPE USAGE, MTS WILL DYNAMICALLY LOAD A PRIVATE
           COPY (AS REQUIRED) FROM THIS FILE.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00136/1    *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/2    *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/3    *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/1    *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/2    *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/3    *UPDATE                                   OE  G          *UPDATE                                                         
            D3T1    365  UPDATE..O.3                        1 LINE    255    4 PAGE UM   DE JONG             JULY 31, 1973  00:17.47
00138/1     TEXT/360                 *PRESCAN        SA     PRES    S0518 'D2T2' FMT=FB(4000,80)                                 185
            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.
00138/2     TEXT/360                 *PRESCAN        OC             *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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00138/3     TEXT/360                 *FMAINT         SP     FMAI    S0518 'D2T2' FMT=FB(4000,80)                                 186
            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/4     TEXT/360                 *FMAINT         OE             *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/5     TEXT/360                 *BLDLIN 1       SP     BLD1    S0518 'D2T2' FMT=FB(4000,80)                                 187
            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/6     TEXT/360                 *BLDLIN 2       SP     BLD2    S0518 'D2T2' FMT=FB(4000,80)                                 188
            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/7     TEXT/360                 *BLDLIN         OE             *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/8     TEXT/360                 *PLAOUT         SP     PLAO    S0518 'D2T2' FMT=FB(4000,80)                                 189
            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/9     TEXT/360                 *PLAOUT         OE             *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     PPR1    S0518 'D2T2' FMT=FB(4000,80)                                 190
            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     PPR2    S0518 'D2T2' FMT=FB(4000,80)                                 191
            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     PPR3    S0518 'D2T2' FMT=FB(4000,80)                                 192
            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.
00138/13    TEXT/360                 *POSTPR         OE             *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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00138/14    TEXT/360                 *PRINT          SA     PRNT    S0371 'D1T2' FMT=FB(6400,80)                                 39 
            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             *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     T90T    S0371 'D1T2' FMT=FB(6400,80)                                 36 
            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             *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     DICT    S0371 'D1T2' FMT=FB(6400,80)                                 37 
            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             *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              S0518 'D2T2' FMT=FB(4000,80)                                 194
            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     UCLC    S0518 'D2T2' FMT=FB(4000,80)                                 196
            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     LCUC    S0518 'D2T2' FMT=FB(4000,80)                                 197
            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     SPEC    S0518 'D2T2' FMT=FB(4000,80)                                 198
            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.
00139       COPYSAVE <DEADFILES>                                  # (SEE COMP 502/3 AND 502/4)                                      
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00140/1    *ANALYSIS                                 SA  G  ANAL    MTA:ANALYSIS(1,9999)                                            
            D3T1    389  ANALYSIS..SA.1                     1 LINE     80   52 PAGE UM   MTA                 JULY 31, 1973  00:22.57
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/2    *ANALYSIS                                 OC  G          *ANALYSIS                                                       
            D3T1    390  ANALYSIS..OC.2                     1 LINE     80   15 PAGE UM   MTA                 JULY 31, 1973  00:23.36
0          THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000.  SEE CCMEMO M200 (140/7).
00140/3    *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/5).
           COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC.
0          Referenced by comments of: 140/5 
00140/4    *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/5    *ANALYSIS                 HISTOGRAM       SA  G  HIST    MTA:HISTO(1,999)                                                
            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/7).
           CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/3). ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 140/3 
00140/6    *ANALYSIS                 HISTOGRAM       OC  G          MTA:HISTO(1000)                                                 
            D3T1    394  ANALYSIS.HISTOGRAM.OC.6            1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  00:24.01
00140/7    *ANALYSIS                 WRITEUP         WF             S0720 'D3T1' FSNAME=ANALYSIS.WRITEUP.WF.7                    395
            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 M200 -- "DATA COLLECTION FACILITY"
0          Referenced by comments of: 140/2, 140/5 
00141/1    *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/2    *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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00143/1     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/2     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/1    *ASA                                      SA     ASA0    S0370 'D1T1' FMT=FB(6400,80)                                 107
            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.
           UNCHANGED SINCE DIST 1.
00144/2    *ASA                                      OC             *ASA                                                            
            D3T1    400  ASA..OC.2                          1 LINE     80    1 PAGE UM   TIFFANY             JULY 31, 1973  00:25.26
0          OBJECT CONTAINS REP CARDS.
00145/1    *TASKS                                    SA  G  TSKS    WSG:MTASKS(1,999)                                               
            D3T1    401  TASKS..SA.1                        1 LINE     80    5 PAGE UM   WSG                 JULY 31, 1973  00:25.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/2    *TASKS                                    OC  G          *TASKS                                                          
            D3T1    402  TASKS..OC.2                        1 LINE     80    1 PAGE UM   WSG                 JULY 31, 1973  00:25.31
00146      *OLDED                                    SA           # (OBSOLETE)                                                      
            D2T1    325                                                             UM                                              
00147/1    *FILESCAN                                 SA  G  FSCN    S0720 'D3T1' FSNAME=FILESCAN..SA.1                           403
            D3T1    403  FILESCAN..SA.1                     1 LINE     80    8 PAGE UM   ENGLE               JAN. 05, 1973  12:33.28
0          MTS FILE SCANNING PROGRAM.  NEW VERSION SINCE DIST 2.
00147/2    *FILESCAN                                 OC  G          *FILESCAN                                                       
            D3T1    404  FILESCAN..O.2                      1 LINE     80    3 PAGE UM   ENGLE               JULY 31, 1973  00:28.03
00148      *WATLIB                                   SF             *WATLIB                                                         
            D3T1    405  WATLIB..SF.                        1 LINE     73    3 PAGE UM   BLINN               JULY 31, 1973  00:28.04
0          THIS IS SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES TO BE ATTACHED AS A SUBROUTINE LIBRARY TO *WATFIV.
00150      *T90T360                                               # (SEE COMP 138)                                                  
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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/1    *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/9, 621/1 
00154/2    *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 RUNS STRT:START (614) TO CRANK UP MTS TERMINAL LINES, 7772 LINES, 2260 JOBS, OR
           ANYTHING ELSE YOU WANT TO ENABLE WHEN MTS IS "BROUGHT UP" AFTER IPL.
           THIS FILE WILL HAVE TO BE MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION.
0          Referenced by comments of: 154/1 
00156/1     IPL PROGRAM                              SA  G  IPL0    MTS:IPL.S                                                       
            D3.1T1  178  IPL_PROGRAM..SA.1                  1 LINE     80   13 PAGE UM   MTA                 MAR. 06, 1974  03:31.45
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."
            
           FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO START WRITING AT DISK PAGE 7.
0          Referenced by comments of: 157/1, 468/1 
00156/2     IPL PROGRAM                              OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00157/1     IPL BOOTSTRAP                            SA  G  IPLB    S0370 'D1T1' FMT=FB(6400,80)                                 41 
            D3T1    411  IPL_BOOTSTRAP..SA.1                1 SEQ      80    3 PAGE UM   MTA                 JULY 31, 1973  00:28.44
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/2     IPL BOOTSTRAP                            OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
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/1     PSA DSECT                DUPLEX          SA  G          COPY:PSA                                                        
            D3.1T1  179  PSA_DSECT.DUPLEX.SA.1              1 LINE     72    4 PAGE UM   MTA                 MAR. 06, 1974  03:31.48
0          DEFINITION OF PREFIXED STORAGE AREA FOR A DUPLEX SYSTEM.  EITHER THIS OR 162/2 SHOULD BE PLACED IN THE FILE COPY:PSA. 
           COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS.
0          Referenced by comments of: 45/1, 46/1, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 588/1, 589/1, 611/1 
00162/2     PSA DSECT                SIMPLEX         SA  G  PSA0    MTA:PSAS                                                        
            D3.1T1  180  PSA_DSECT.SIMPLEX.SA.2             1 LINE     80    7 PAGE UM   MTA                 MAR. 06, 1974  03:31.50
0          DEFINITION OF THE PREFIXED STORAGE AREA FOR A SIMPLEX.  CONFIG SHOULD BE
           REASSEMBLED WITH THIS FOR A SIMPLEX.  THERE IS NO NEED TO REASSEMBLE THE
           SUPERVISOR FOR ONLY THIS REASON.
00163/1     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/2     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   18:37:32   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
+         ______________ _____________________
00163/3     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/4     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/5     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/6     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/7     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/8     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/9     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   18:37:32   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
+         ______________ _____________________
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     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     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             *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             *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             *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   18:37:32   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
+         ______________ _____________________
00170      *LISTVTOC                                 SA           # (OBSOLETE)                                                      
            D2T1    105                                                             UM                                              
00171      *BATCH                                    SA           # (OBSOLETED BY *BATCH*)                                          
            D2T1    327                                                             UM                                              
00172/1    *UMIST                    MACRO LIB       SM     ISTM    S0518 'D2T2' FMT=FB(4000,80)                                 125
            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/2    *UMIST                    /SYMBOLS        SA     ISC1    S0518 'D2T2' FMT=FB(4000,80)                                 126
            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/3    *UMIST                    /PSECT          SA     ISC2    S0518 'D2T2' FMT=FB(4000,80)                                 127
            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/4    *UMIST                    /ENTRY          SA     IST1    S0518 'D2T2' FMT=FB(4000,80)                                 128
            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/5    *UMIST                    /TABLES         SA     IST2    S0518 'D2T2' FMT=FB(4000,80)                                 129
            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/6    *UMIST                    /MISC           SA     IST3    S0518 'D2T2' FMT=FB(4000,80)                                 130
            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/7    *UMIST                    /UTILITIES      SA     IST4    S0518 'D2T2' FMT=FB(4000,80)                                 131
            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/8    *UMIST                    /FCNS/1         SA     IST5    S0518 'D2T2' FMT=FB(4000,80)                                 132
            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   18:37:32   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
+         ______________ _____________________
00172/9    *UMIST                    /FCNS/2         SA     IST6    S0518 'D2T2' FMT=FB(4000,80)                                 133
            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              S0518 'D2T2' FMT=FB(4000,80)                                 134
            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/1    *PIL                                      SA  S  PIL0    S0518 'D2T2' FMT=FB(4000,80)                                 122
            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/2    *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/1    *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   18:37:32   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
+         ______________ _____________________
00182/2    *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/3    *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/4    *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/5    *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/6    *SNOBOL4                  MACLEAN         SP  G          S0510 'D2.2' FMT=FB(4000,80)                                 35 
            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/7    *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/8    *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          S0371 'D1T2' FMT=FB(6400,80)                                 10 
            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   18:37:32   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
+         ______________ _____________________
00192      *DCS                                      C            # (NOT DISTRIBUTED)                                               
                                                                                    UM                                              
00193/1    *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/2    *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/3    *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.1T1  181  SMDS..M.                           1 LINE    118    3 PAGE UM   MTA                 MAR. 06, 1974  03:31.52
0          MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET).  USED IN CONJUNCTION WITH FMSG MACRO IN MTS.
00198/1     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), AND COPY:LLMPSEQU (087). 
           NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 198/2, 344/1 
00198/2     GUINFO/CUINFO            D3.1 UPDATE     UU  G          MTS:INFOUPD/D3.1                                                
            D3.1T1  182  GUINFO/CUINFO.D3.1_UPDATE.UU.2     1 LINE     61    1 PAGE UM   DWB                 MAR. 06, 1974  03:31.54
0          UPDATE TO D3 MASTER (198/1) TO PRODUCE D3.1 SOURCE.
1                                                                                               FRI AUG 02/96   18:37:32   Page   62
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          UPDATE DECK USES %POSN *IN* INFO.
00198/3     GUINFO/CUINFO                            OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00200/1    *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/2    *SDARTN                                   OC             *SDARTN                                                         
            D3T2      9  SDARTN..O.2                        1 LINE     80    7 PAGE UM   EMERY               JULY 31, 1973  21:02.27
00201/1     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   HENRIKSEN           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/2     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   HENRIKSEN           JULY 31, 1973  21:04.01
00201/3     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   HENRIKSEN           JULY 31, 1973  21:04.03
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00201/4     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   HENRIKSEN           JULY 31, 1973  21:04.11
00201/5     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   HENRIKSEN           JULY 31, 1973  21:04.28
00201/6     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   HENRIKSEN           JULY 31, 1973  21:04.44
00201/7     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   HENRIKSEN           JULY 31, 1973  21:04.55
00201/8     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   HENRIKSEN           JULY 31, 1973  21:05.20
00201/9     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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           DEC. 13, 1972  20:58.45
0          SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS.
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   HENRIKSEN           JAN. 16, 1974  16:26.40
0          SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           MAY  18, 1973  17:17.38
0          OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM.
00201/26    GPSS/360                 D3.1 NOTES      WF             W098:HEN                                                        
            D3.1T1  190  GPSS/360.D3.1_NOTES.WF.26          1 LINE    107    1 PAGE UM   HENRIKSEN           MAR. 06, 1974  03:34.46
0          WRITEUP DESCRIBING D3.1 GPSS/360.
00203      *TNLBUILD                                              # (SEE COMP 110)                                                  
                                                                                    UM                                              
00204/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00204/2     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/3     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/4     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/5     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/6     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/1    *LISP                     MTS MASTER      SA  G          WATF:NEWLISP.S                                                  
            D3T2     41  LISP.MTS_MASTER.SA.1               1 LINE     80  115 PAGE UM   MTA                 JULY 31, 1973  21:15.35
0          SOURCE FOR THE LISP/360 INTERPRETER AS MODIFIED TO RUN IN MTS.  IT IS BASED ON AN OS/360 VERSION OF LISP
           (210/2) 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 AS SUPPLEMENTED BY UM COMPUTING CENTER MEMO M135 (210/5).
0          Referenced by comments of: 210/3 
00210/2    *LISP                     OS MASTER       SA  G          WATF:LISP360                                                    
            D3T2     42  LISP.OS_MASTER.SA.2                1 SEQ    3200   96 PAGE UM   MTA                 JULY 31, 1973  21:16.33
0          THIS IS THE OS/360 SOURCE FOR LISP AS DISTRIBUTED WITH REDUCE2.  NOTE:  IT IS BLOCKED AT 40 CARDS/RECORD.
0          Referenced by comments of: 210/1, 210/3 
00210/3    *LISP                     MTS UPDATE      UU  G          S0721 'D3T2' FSNAME=LISP.MTS_UPDATE.UU.3                      43
            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 (210/2) TO MTS VERSION (210/1).
00210/4    *LISP                                     OC  G          WATF:LISP360.O                                                  
            D3T2     44  LISP..OC.4                         1 LINE     80   30 PAGE UM   MTA                 JULY 31, 1973  21:17.03
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00210/5    *LISP                     *LISPCOM        S   G          WATF:LAP                                                        
            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.
0          Referenced by comments of: 210/1 
00210/6    *LISP                     *LISPCOM        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.
00210/7    *LISP                     USER'S GUIDE    WF             S0721 'D3T2' FSNAME=LISP.USER'S_GUIDE.WF.7                    47
            D3T2     47  LISP.USER'S_GUIDE.WF.7             1 LINE    107    9 DISK UM   MTA                 MAR. 15, 1973  17:25.26
0          THIS IS COMPUTING CENTER MEMO M135 -- "LISP/360 USER'S GUIDE."
           NOTE:  NEEDS MANY LEFT AND RIGHT BRACKETS INSERTED BY HAND.
00210/8    *LISP                     DEBUG PACKAGE   S   O          WATF:BREAK                                                      
            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).
00212/1    *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).
00212/2    *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                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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/1     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/2     SIOERR SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00225      *SYSMAC                                   SM  G  SYSM    *SYSMAC                                                         
            D3.1T1  191  SYSMAC..SM.                        1 LINE     80   67 PAGE UM   MTA                 MAR. 06, 1974  03:34.47
0          MTS SYSTEM MACRO LIBRARY FOR GENERAL USE.
00229/1    *TIDY                                     SF  S  TIDY    S0371 'D1T2' FMT=FB(6400,80)                                 28 
            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/2    *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    S0371 'D1T2' FMT=FB(6400,80)                                 1  
            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/1     PL1 LIBRARY              MACLIB          SM           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/2     PL1 LIBRARY              SAMEQU          SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00233/3     PL1 LIBRARY              REPLACE         SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/4     PL1 LIBRARY              CKLIO           SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/5     PL1 LIBRARY              NONSENSE        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/6     PL1 LIBRARY              FREEDDEF        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/7     PL1 LIBRARY              FINDTIOT        SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/8     PL1 LIBRARY              DDEF            SA           # (SEE COMP 163)                                                  
                                                                                    UM   TIFFANY                                    
00233/9     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    S0410 MTSPL1 'PL1LIB' POSN=RAND                              16 
            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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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
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
1                                                                                               FRI AUG 02/96   18:37:32   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/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.
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          S0410 MTSPL1 'PL1LIB' POSN=ENDPL1LIB                         40 
            D3T2     80  PL1_LIBRARY.ENDPL1LIB.OC.37        1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:24.44
0          CONTAINS 6 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD, LDT).
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.
1                                                                                               FRI AUG 02/96   18:37:32   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/39    PL1 LIBRARY              SHAREDPL1LIB    OE  G          SEG2:SHAREDPL1LIB                                               
            D3T2     82  PL1_LIBRARY.SHAREDPL1LIB.OE.39     1 SEQ     256   60 PAGE UM   TIFFANY             JULY 31, 1973  21:24.48
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 REP CARDS. *********
00233/40    PL1 LIBRARY              *LINEPL1LIB     O            # (OBSOLETE)                                                      
                                                                                    UM                                              
00233/41    PL1 LIBRARY              *PL1LINKLIB     O            # (OBSOLETE)                                                      
                                                                                    UM                                              
00234/1     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/2     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/3     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/4     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/5     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/6     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/7     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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00234/8     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/9     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
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.
1                                                                                               FRI AUG 02/96   18:37:32   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/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).
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                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00238      *2250PLOT                                 SA  O  P225    S0371 'D1T2' FMT=FB(6400,80)                                 7  
            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    S0371 'D1T2' FMT=FB(6400,80)                                 43 
            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.
00243/1     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/2     BINEBCD                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00243/3     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/1    **CT                                      S            # (OBSOLETE)                                                      
            D2T1    138                                                             UM                                              
00244/2    **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/1    *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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00249/2    *COPY                                     OE  O          *COPY                                                           
            D3T2    116  COPY..O.2                          1 LINE    255    1 PAGE UM   PIRKOLA             JULY 31, 1973  21:30.02
00251/1    *IEBUPDAT                                 SA             S0370 'D1T1' FMT=FB(6400,80)                                 134
            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/2    *IEBUPDAT                                 OC             *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.
00253       LINE DIRECTORY SORT                      SA           # (OBSOLETED BY COMP 546)                                         
            D2T1    121                                                             UM                                              
00254/1     BSLOAD                                   SA  G  BSLD    W009:BSLOAD.S                                                   
            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).
            
           FOR D3.1, BSLOAD HAS BEEN CHANGED TO SAVE THE UMLOAD SYMBOL TABLES AT THE BEGINNING OF SHARED VM.
           THESE TABLES CAN THEN BE USED BY PISTLE (THE SEGMENT 2 LOADER) TO RESOLVE REFERENCES TO
           SHARED VM SYMBOLS MADE FROM SEGMENT 0 CSECTS.  TO AVOID LOADER ERRORS, SUCH SYMBOLS
           SHOULD BE "NCA"ED IN THE SEGMENT 0 DECK.
00254/2     BSLOAD                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DE JONG                                    
00255       UIDFIND                                  S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00256/1     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, 447/3 
00256/2     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/3) AND THE TAPESTAT SAVE PROGRAM (447/3).
           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 (OR *TAPESTAT) DATA, ARE ABLE TO DEBLOCK THESE TAPES.
0          Referenced by comments of: 256/1 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00256/3     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.
00258/1     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/2     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/3     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/1     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).  WE ARE TRYING TO GET A NEW VERSION READY WHICH WILL INCLUDE
           THE N20-1944 CHANGES.
            
           THE FILE *SSP CONTAINS ONE LINE WHICH IS "$CONTINUE WITH *SSPSTAT+*SSPMATH".
00260/2     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/3     SSP                      *SSPMATH        OL  G          *SSPMATH                                                        
            D3T2    129  SSP.*SSPMATH.OL.3                  1 LINE    255  129 PAGE UM   HARDING             JULY 31, 1973  21:32.27
00260/4     SSP                      SSP SOURCE 1    SF           # (NOT DISTRIBUTED)                                               
            D2T1    363                                                             UM   HARDING                                    
0          IN ACCORDANCE WITH THE DECISION TO DISTRIBUTE "APPLICATION" PROGRAMS SEPARATELY FROM THE REST OF THE SYSTEM,
           WE ARE NOT DISTRIBUTING THE SOURCE FOR SSP OR FOR THE SSP EXAMPLE PROGRAMS WITH DIST 3.
           HOWEVER, FOR THE CONVENIENCE OF NEW INSTALLATIONS, THE OBJECT (*SSPSTAT AND *SSPMATH)
           IS DISTRBUTED.  THIS IS THE CURRENT UM RUNNING OBJECT.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00260/5     SSP                      SSP SOURCE 2    SF           # (NOT DISTRIBUTED)                                               
            D2T1    364                                                             UM   HARDING                                    
00260/6     SSP                      EXAMPLE PGM 1   SF           # (NOT DISTRIBUTED)                                               
            D2T1    365                                                             UM   HARDING                                    
00260/7     SSP                      EXAMPLE PGM 2   SF           # (NOT DISTRIBUTED)                                               
            D2T1    366                                                             UM   HARDING                                    
00260/8     SSP                      EXAMPLE PGM 3   SF           # (NOT DISTRIBUTED)                                               
            D2T1    367                                                             UM   HARDING                                    
00260/9     SSP                      EXAMPLE PGM 4   SF           # (NOT DISTRIBUTED)                                               
            D2T1    368                                                             UM   HARDING                                    
00260/10    SSP                      EXAMPLE PGM 5   SF           # (NOT DISTRIBUTED)                                               
            D2T1    369                                                             UM   HARDING                                    
00260/11    SSP                      EXAMPLE PGM 6   SF           # (NOT DISTRIBUTED)                                               
            D2T1    370                                                             UM   HARDING                                    
00260/12    SSP                      EXAMPLE PGM 7   SF           # (NOT DISTRIBUTED)                                               
            D2T1    371                                                             UM   HARDING                                    
00260/13    SSP                      EXAMPLE PGM 8   SF           # (NOT DISTRIBUTED)                                               
            D2T1    372                                                             UM   HARDING                                    
00260/14    SSP                      EXAMPLE PGM 9   SF           # (NOT DISTRIBUTED)                                               
            D2T1    373                                                             UM   HARDING                                    
00260/15    SSP                      EXAMPLE PGM 10  SF           # (NOT DISTRIBUTED)                                               
            D2T1    374                                                             UM   HARDING                                    
00260/16    SSP                      EXAMPLE PGM 11  SF           # (NOT DISTRIBUTED)                                               
            D2T1    375                                                             UM   HARDING                                    
00260/17    SSP                      EXAMPLE PGM 12  SF           # (NOT DISTRIBUTED)                                               
            D2T1    376                                                             UM   HARDING                                    
00260/18    SSP                      EXAMPLE PGM 13  SF           # (NOT DISTRIBUTED)                                               
            D2T1    377                                                             UM   HARDING                                    
00260/19    SSP                      EXAMPLE PGM 14  SF           # (NOT DISTRIBUTED)                                               
            D2T1    378                                                             UM   HARDING                                    
00260/20    SSP                      EXAMPLE PGM 15  SF           # (NOT DISTRIBUTED)                                               
            D2T1    379                                                             UM   HARDING                                    
00261/1    *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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00261/2    *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/3    *SLIP                     *SLIP           OL  G          *SLIP                                                           
            D3.1T1  195  SLIP.*SLIP.OL.3                    1 SEQE    254   38 PAGE UM   GOODRICH            MAR. 06, 1974  03:35.15
00261/4    *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.
00261/5    *SLIP                     NEW INFO        PF  G          W081:3.1SLIPINFO                                                
            D3.1T1  197  SLIP.NEW_INFO.PF.5                 1 LINE     70    8 PAGE UM   GOODRICH            MAR. 06, 1974  03:35.22
0          THIS IS A TEMPORARY WRITEUP ON THE D3.1 SLIP.  OFFICIAL USER DOCUMENTATION IS NOT READY YET.
00261/6    *SLIP                     WRITEUP         WF           @                                                                 
            D3T2    132  SLIP.WRITEUP.WF.3                  1 LINE    115    3 DISK UM   GOODRICH            MAR. 15, 1973  18:35.38
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 PROCESSIGN IN ASSEMBLY LANGUAGE.  SIMILAR TO L6.
00267/1    *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.
00267/2    *DOWNDATE                                 OC  O          *DOWNDATE                                                       
            D3T2    135  DOWNDATE..OC.2                     1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  21:33.38
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/1     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/2     FPC                                      OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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/1     IHCLOGIC SUBR                            SA  G  IHCL    S0370 'D1T1' FMT=FB(6400,80)                                 100
            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/2     IHCLOGIC SUBR                            OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   TIFFANY                                    
00278/1     IOH                                      SA  O  IOH0    W016:IOH                                                        
            D3.1T1  198  IOH..SA.1                          1 LINE     80  157 PAGE UM   LEADER              MAR. 06, 1974  03:35.24
0          IOH/360. THIS CONVERSION PACKAGE USES SEVERAL RPQS, PARTICULARLY SWAP.
           HOWEVER, THESE WILL BE REMOVED IN FUTURE VERSIONS.  MANY BUGS HAVE BEEN FIXED IN THIS NEW VERSION,
           BUT SOME STILL REMAIN.  FORMAT TYPES E AND F HAVE BEEN CHANGED TO DEFAULT TO FULL-WORD
           CONVERSION INSTEAD OF DOUBLE-WORD.  WORK ON IMPROVING IOH CONTINUES WITH THE NEXT VERSION
           EXPECTED TO CALL SIOC.
           ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 400/1, 569/1 
00278/2     IOH                      IOPKG           SA  G          MTS:IOHPKG                                                      
            D3.1T1  199  IOH.IOPKG.SA.2                     1 LINE     80   14 PAGE UM   LEADER              MAR. 06, 1974  03:36.16
0          THIS IS THE IOH I/O PACKAGE WHICH IS UNCHANGED FROM D3 (WHICH WAS UNCHANGED SINCE D1).
           IT HAS BEEN SPLIT INTO A SEPARATE SUB-COMPONENT FOR CONVENIENCE.
00278/3     IOH                                      OC  O          W016:IOHOBJ                                                     
            D3.1T1  200  IOH..OC.3                          1 LINE     80   10 PAGE UM   LEADER              MAR. 06, 1974  03:36.20
0          THIS NEW VERSION HAS NOT YET BEEN INSTALLED IN *LIBRARY, BUT DEFINITELY IS BETTER
           THAN THE D3 *LIBRARY VERSION.  AS SOON AS OUR USERS CAN BE ADEQUATELY WARNED, THE NEW
           IOH WILL BE INSTALLED IN *LIBRARY.
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/1     PRINTER PLOT SUBR                        SA     PRPL    W030:PRPLOT                                                     
            D3T2    139  PRINTER_PLOT_SUBR..SA.1            1 LINE     80   31 PAGE UM   LIFT                JULY 31, 1973  21:35.23
0          PLOT SUBROUTINES FOR PRINTED OUTPUT. USED BY *PLOT AMONG OTHERS.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00282/2     PRINTER PLOT SUBR                        OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   LIFT                                       
00283/1     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/2     QSAM                                     OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00285/1     SKIP                                     SA  G  SKIP    W061:SKIP(1,999)                                                
            D3T2    141  SKIP..SA.1                         1 LINE     80    5 PAGE UM   HENRIKSEN           JULY 31, 1973  21:35.40
0          SUBR TO SPACE A FILE OR MAG TAPE FORWARD OR BACKWARD BY RECORDS AND/OR FILES.
00285/2     SKIP                                     OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HENRIKSEN                                  
00286/1     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.
00286/2     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/3     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/4     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/5     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00286/6     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/1     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/2     SPIE SUBR                                OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   MTA                                        
00289       LOADCALL                                 S            # (OBSOLETE)                                                      
                                                                                    UM                                              
00291/1    *IEHMOVE                                  SA     IEH1    S0370 'D1T1' FMT=FB(6400,80)                                 135
            D3T2    143  IEHMOVE..SA.1                      1 SEQ      80   16 PAGE UM   TIFFANY             JULY 31, 1973  21:35.54
0          PART OF A PACKAGE TO READ UNLOADED  OS/360 DATA SETS IN MTS. SEE ALSO *UNLINKER (562).
           UNCHANGED SINCE DIST 1.0.
00291/2    *IEHMOVE                                  SA     IEH2    S0370 'D1T1' FMT=FB(6400,80)                                 136
            D3T2    144  IEHMOVE..SA.2                      1 SEQ      80    5 PAGE UM   TIFFANY             JULY 31, 1973  21:35.56
00291/3    *IEHMOVE                                  SA     IEH3    S0370 'D1T1' FMT=FB(6400,80)                                 137
            D3T2    145  IEHMOVE..SA.3                      1 SEQ      80    1 PAGE UM   TIFFANY             JULY 31, 1973  21:35.57
00291/4    *IEHMOVE                                  SA     IEH4    S0370 'D1T1' FMT=FB(6400,80)                                 138
            D3T2    146  IEHMOVE..SA.4                      1 SEQ      80    3 PAGE UM   TIFFANY             JULY 31, 1973  21:35.59
00291/5    *IEHMOVE                                  OC             *IEHMOVE                                                        
            D3T2    147  IEHMOVE..OC.5                      1 LINE     80    7 PAGE UM   TIFFANY             JULY 31, 1973  21:36.05
0          ********* NOTE:  OBJECT CONTAINS MANY REP CARDS. *********
00292      *CPCORE                                                # (SEE COMP 615)                                                  
                                                                                    UM                                              
00293/1    *MACGEN                                   SA  G  MACG    WATF:MACGEN(1,999)                                              
            D3T2    148  MACGEN..SA.1                       1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  21:36.07
0          GENERATE THE DIRECTORY FOR A MACRO LIBRARY.
           ASSEMBLE WITH *SYSMAC.
00293/2    *MACGEN                                   OC  G          *MACGEN                                                         
            D3T2    149  MACGEN..OC.2                       1 LINE    255    1 PAGE UM   MTA                 JULY 31, 1973  21:36.08
00295      *PL360LIB                                              # (SEE COMP 108)                                                  
                                                                                    UM                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00296       CHECKDASD                                SA           # OBSOLETE                                                        
            D2T1    119                                                             UM                                              
00297/1    *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).
0          Referenced by comments of: 66/67 
00297/2    *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/3    *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/4    *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/5    *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.
00297/6    *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 
00297/7    *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/8    *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/9    *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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00297/10   *LINKEDIT                 USERS' GUIDE    WF             W099:M241                                                       
            D3T2    159  LINKEDIT.USERS'_GUIDE.WF.10        1 LINE    121    7 PAGE UM   DE JONG             JULY 31, 1973  10:12.07
0          THIS IS COMPUTING CENTER MEMO M241 -- "LINKAGE EDITOR USERS' GUIDE"
00297/11   *LINKEDIT                 D3.1 NOTES      WF             W098:HEN3                                                       
            D3.1T1  210  LINKEDIT.D3.1_NOTES.WF.11          1 LINE    114    3 PAGE UM   DE JONG             MAR. 06, 1974  03:36.58
0          NOTES ON D3.1 LINKAGE EDITOR ADDITIONS AND CHANGES.
00298/1    *FORTRANH                 OS SOURCE       SA  G          S0579 SAVE 'JWS - SAVE' FSNAME=FTNH.20.UDIN                     
            D3T2    160  FORTRANH.OS_SOURCE.SA.1            1 SEQ      80   47 DISK UM   JWS                 JUNE 23, 1972  12:55.28
0          SUBSET OF OS/360 FORTRAN H RELEASE 20.1
00298/2    *FORTRANH                 MTS UPDATE      UU  G          S0579 SAVE 'JWS - SAVE' FSNAME=FTNH.20.UDS                      
            D3T2    161  FORTRANH.MTS_UPDATE.UU.2           1 LINE     76    8 DISK UM   JWS                 OCT. 23, 1972  12:15.14
0          UPDATE DECK TO GET FORTRAN H INTO MTS.  MODULES NOT INCLUDED IN 298/1 ARE NOT CHANGED OR RECOMPILED IN MTS.
           *UNLINKER (562) WAS USED TO GET THESE MODULES OUT OF OS.
00298/3    *FORTRANH                 OS OBJECT       OE  O          S0579 SAVE 'JWS - SAVE' FSNAME=FTNH.20.OSM                      
            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 
           INCLUDED IN THIS FILE.
00298/4    *FORTRANH                 COMPILER        SA             S0579 SAVE 'JWS-SAVE' FSNAME=FSDSOURCE                          
            D3T2    165  FORTRANH.FTN_VERSION.SA.6          1 LINE     80   77 PAGE UM   JWS                 JULY 31, 1973  21:43.07
0          THIS COMPONENT CORRESPONDS TO 298/1 UPDATED BY 298/2, BUT WITH ADDITIONAL MODIFICATIONS SO AS TO MAKE
           IT COMPATIBLE WITH THE *FTN INTERFACE.  THIS IS THE CURRENT SOURCE FOR THOSE PARTS OF THE FTNH COMPILER
           WHICH ARE DIFFERENT IN MTS THAN IN OS.
00298/5    *FORTRANH                 COMPILER        OC             S0579 SAVE 'JWS-SAVE' FSNAME=FSDOBJ                             
            D3T2    166  FORTRANH.FTN_VERSION.OC.7          1 LINE    255    7 PAGE UM   JWS                 JULY 31, 1973  21:43.35
0          THIS OBJECT CORRESPONDS TO THE SOURCE IN 298/4 AND, AS SUCH, MUST BE COMBINED WITH 298/3 TO PRODUCE THE CURRENT
           FORTRAN H COMPILER.
00299      *LOVOC                                    S            # (OBSOLETE)                                                      
            D2T2    205                                                             UM                                              
00300      *LODEF                                    S            # (OBSOLETE)                                                      
            D2T2    206                                                             UM                                              
00302/1    *SSPSOURCE                                SF  G  SSPS    S0497 'GENERAL *FS TAPE' 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 SOURCE FOR SSP FOR USERS. EXPECTS AN INPUT TAPE CONTAINING 260/4 THRU 260/20 AS THE
           FIRST 17 FILES.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00302/2    *SSPSOURCE                                OC  G          *SSPSOURCE                                                      
            D3T2    168  SSPSOURCE..O.2                     1 SEQ    3334    2 PAGE UM   HARDING             JULY 31, 1973  22:37.40
00303/1     SORT                     *SORT           SA  G          S0001 'SMITH' FSNAME=SRT.S                                      
            D3T2    169  SORT.*SORT.SA.1                    1 LINE     70   20 DISK UM   ENGLE               APR. 13, 1973  16:10.26
0          GENERAL SORT PROGRAM.
           REQUIRES DBS:MAC MACRO LIB (455) AND REFERENCES DBS:LM1 (303/6) AND DBS:LM2 (303/9).
           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/2     SORT                     *SORT           OE  G          *SORT                                                           
            D3T2    170  SORT.*SORT.O.2                     1 SEQ    3228    2 PAGE UM   ENGLE               JULY 31, 1973  22:40.55
0          Referenced by comments of: 303/1 
00303/3     SORT                     SORT SUBR       OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
0          Referenced by comments of: 303/1 
00303/4     SORT                     SORT2/3 SUBRS   SA  G        # (PART OF 303/1)                                                 
                                                                                    UM   ENGLE                                      
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.
00303/5     SORT                     SORT2/3 SUBRS   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00303/6     SORT                     LM1 SUBROUTINE  SA  G        # (PART OF 303/1)                                                 
                                                                                    UM   ENGLE                                      
0          Referenced by comments of: 303/1 
00303/7     SORT                     LM1 SUBROUTINE  OE  G          DBS:LM1(1,99)                                                   
            D3T2    171  SORT.LM1_SUBROUTINE.O.7            1 LINE    255    1 PAGE UM   ENGLE               JULY 31, 1973  22:40.57
00303/8     SORT                     LM1 MESSAGES    M   G          DBS:LM1(100)                                                    
            D3T2    172  SORT.LM1_MESSAGES.M.8              1 LINE     81    1 PAGE UM   ENGLE               JULY 31, 1973  22:40.59
00303/9     SORT                     LM2 SUBROUTINE  SA  G        # (PART OF 303/1)                                                 
                                                                                    UM   ENGLE                                      
0          Referenced by comments of: 303/1 
00303/10    SORT                     LM2 SUBROUTINE  OE  G          DBS:LM2                                                         
            D3T2    173  SORT.LM2_SUBROUTINE.O.10           1 SEQ     782    1 PAGE UM   ENGLE               JULY 31, 1973  22:41.01
00303/11    SORT                     DOC (MASTER)    WT  G          S0001 'SMITH' FSNAME=SORTDES.M                                  
            D3T2    174  SORT.DOC_(MASTER).WT.11            1 SEQ     132   30 DISK UM   ENGLE               AUG. 14, 1972  17:45.47
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00303/12    SORT                     DOC (UPDATE)    WT  G          S0001 'SMITH' FSNAME=SORTDES.U                                  
            D3T2    175  SORT.DOC_(UPDATE).WT.12            1 LINE     80    3 DISK UM   ENGLE               AUG. 14, 1972  17:46.01
00303/13    SORT                     M223 PREFACE    WF  G          S0721 'D3T2' FSNAME=SORT.M223_PREFACE.WF.13                  176
            D3T2    176  SORT.M223_PREFACE.WF.13            1 LINE     96    1 DISK UM   ENGLE               MAR. 16, 1973  16:01.55
0          THIS IS THE PREFACE (FIRST PAGE) OF COMPUTING CENTER MEMO M223 -- "SORT, SORT2, SORT3 SUBROUTINES"
00304      *TPD                                      SA           # (NOT DISTRIBUTED)                                               
            D2T1    137                                                             UM   WSG                                        
00305/1    *FTNTOPL1                 SLCPF4          SP  O          S0517 'D2T1' FMT=FB(4000,80)                                 294
            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.
           THE ONLY PROGRAMS THAT ARE NOT PL/I ARE SCONVER, SPUTTBS, AND SLBLNK. THESE ARE ASSEMBLY.
           UNCHANGED SINCE DIST 2.
00305/2    *FTNTOPL1                 SCONVER         SA  O  SCON    S0517 'D2T1' FMT=FB(4000,80)                                 295
            D3T2    178  FTNTOPL1.SCONVER.SA.2              1 SEQ      80    4 PAGE UM   TIFFANY             JULY 31, 1973  22:47.14
00305/3    *FTNTOPL1                 SPUTTBS         SA  O  SPUT    S0517 'D2T1' FMT=FB(4000,80)                                 296
            D3T2    179  FTNTOPL1.SPUTTBS.SA.3              1 SEQ      80   24 PAGE UM   TIFFANY             JULY 31, 1973  22:47.18
00305/4    *FTNTOPL1                 SLTCOL          SP  O          S0517 'D2T1' FMT=FB(4000,80)                                 297
            D3T2    180  FTNTOPL1.SLTCOL.SP.4               1 SEQ      80   12 PAGE UM   TIFFANY             JULY 31, 1973  22:47.22
00305/5    *FTNTOPL1                 SIPPRS          SP  O          S0517 'D2T1' FMT=FB(4000,80)                                 298
            D3T2    181  FTNTOPL1.SIPPRS.SP.5               1 SEQ      80   27 PAGE UM   TIFFANY             JULY 31, 1973  22:47.25
00305/6    *FTNTOPL1                 SPH10           SP  O          S0517 'D2T1' FMT=FB(4000,80)                                 299
            D3T2    182  FTNTOPL1.SPH10.SP.6                1 SEQ      80   11 PAGE UM   TIFFANY             JULY 31, 1973  22:47.28
00305/7    *FTNTOPL1                 SFNPRO          SP  O          S0517 'D2T1' FMT=FB(4000,80)                                 300
            D3T2    183  FTNTOPL1.SFNPRO.SP.7               1 SEQ      80   10 PAGE UM   TIFFANY             JULY 31, 1973  22:47.30
00305/8    *FTNTOPL1                 SDMPRO          SP  O          S0517 'D2T1' FMT=FB(4000,80)                                 301
            D3T2    184  FTNTOPL1.SDMPRO.SP.8               1 SEQ      80   18 PAGE UM   TIFFANY             JULY 31, 1973  22:47.32
00305/9    *FTNTOPL1                 SNLPRO          SP  O          S0517 'D2T1' FMT=FB(4000,80)                                 302
            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          S0517 'D2T1' FMT=FB(4000,80)                                 303
            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          S0517 'D2T1' FMT=FB(4000,80)                                 304
            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          S0517 'D2T1' FMT=FB(4000,80)                                 305
            D3T2    188  FTNTOPL1.SIOPRO.SP.12              1 SEQ      80   25 PAGE UM   TIFFANY             JULY 31, 1973  22:47.43
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00305/13   *FTNTOPL1                 SARPRO          SP  O          S0517 'D2T1' FMT=FB(4000,80)                                 306
            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          S0517 'D2T1' FMT=FB(4000,80)                                 307
            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          S0517 'D2T1' FMT=FB(4000,80)                                 308
            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          S0517 'D2T1' FMT=FB(4000,80)                                 309
            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          S0517 'D2T1' FMT=FB(4000,80)                                 310
            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          S0517 'D2T1' FMT=FB(4000,80)                                 311
            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    S0517 'D2T1' FMT=FB(4000,80)                                 312
            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          S0517 'D2T1' FMT=FB(4000,80)                                 313
            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          S0517 'D2T1' FMT=FB(4000,80)                                 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.
0          Referenced by comments of: 305/1 
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/1     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 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00306/2     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/3     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/4     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/5     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/6     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/7     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 
00306/8     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/9     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00306/11    WIREWRAP                 SQGRD           OE  G          *WWSQGRD                                                        
            D3.1T1  221  WIREWRAP.SQGRD.OE.11               1 SEQE    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 SEQE    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 SEQE   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).
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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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 SEQE     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.
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/1    *OBJCONV                                  SA     FXOB    S0372 'D1.1' FMT=FB(4000,80)                                 146
            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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00307/2    *OBJCONV                                  OC             *OBJCONV                                                        
            D3T2    221  OBJCONV..O.2                       1 LINE     80    1 PAGE UM   DWB                 JULY 31, 1973  22:54.24
00308/1    *FORMAT                                   SA  G  FMT0    W114:FMT.S(1)                                                   
            D3T2    222  FORMAT..SA.1                       1 LINE     80   70 PAGE UM   BLINN               JULY 31, 1973  22:54.25
0          UBC ASMG VERSION OF 'FORMAT' TEXT PROCESSING LANGUAGE.  AT UM, THIS VERSION (ORIGINALLY
           KNOWN AS *FMT) HAS NOW TOTALLY REPLACED THE OLD *FORMAT, WHICH WAS AN IBM 
           FORTRAN PROGRAM.  THIS FILE CONTAINS 3 ASSEMBLIES, THE SECOND OF WHICH (FMTED) IS NOT NEEDED.
           REQUIRES WEBBMAC MACRO LIBRARY (308/2).
0          Referenced by comments of: 560/1 
00308/2    *FORMAT                   WEBBMACLIB      SM  G  WMAC    MTS:WEBBMACLIB                                                  
            D3T2    223  FORMAT.WEBBMACLIB.SM.2             1 LINE     80   26 PAGE UM   BLINN               JULY 31, 1973  22:54.40
0          MACRO LIBRARY.
0          Referenced by comments of: 308/1 
00308/3    *FORMAT                                   OE  G          *FORMAT                                                         
            D3T2    224  FORMAT..OE.3                       1 SEQ   15577    5 PAGE UM   BLINN               JULY 31, 1973  22:54.44
00309/1    *STASS360                 MONITOR         SA     MNTR    S0373 'STASS360' FMT=FB(3200,80)                             1  
            D3T2    225  STASS360.MONITOR.SA.1              1 SEQ      80   11 PAGE UM   BLINN               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/2    *STASS360                 ASSEMBLER       SA     ASSM    S0373 'STASS360' FMT=FB(3200,80)                             2  
            D3T2    226  STASS360.ASSEMBLER.SA.2            1 SEQ      80   85 PAGE UM   BLINN               JULY 31, 1973  22:56.10
00309/3    *STASS360                 SIMULATOR       SA     SIML    S0373 'STASS360' FMT=FB(3200,80)                             3  
            D3T2    227  STASS360.SIMULATOR.SA.3            1 SEQ      80   48 PAGE UM   BLINN               JULY 31, 1973  22:56.22
00309/4    *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   BLINN               JULY 31, 1973  22:56.28
00309/5    *STASS360                 IBCOM           SA     ICOM    S0373 'STASS360' FMT=FB(3200,80)                             5  
            D3T2    229  STASS360.IBCOM.SA.5                1 SEQ      80   18 PAGE UM   BLINN               JULY 31, 1973  22:56.32
00309/6    *STASS360                 FIOCS           SA     FIOC    S0373 'STASS360' FMT=FB(3200,80)                             6  
            D3T2    230  STASS360.FIOCS.SA.6                1 SEQ      80    5 PAGE UM   BLINN               JULY 31, 1973  22:56.34
00309/7    *STASS360                 UPDATE          UU             WATF:STAS.U                                                     
            D3T2    231  STASS360.UPDATE.UU.7               1 LINE     72    1 PAGE UM   BLINN               JULY 31, 1973  22:56.52
0          *UPDATE DECK TO PRODUCE THE UM VERSION OF STASS360 FROM COMPONENTS 309/1 THRU 309/6.
           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 ARE ALL VERY MINOR AND THE UBC VERSION WILL WORK FINE.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00309/8    *STASS360                                 OE             *STASS360                                                       
            D3T2    232  STASS360..OE.8                     1 SEQ   14248    9 PAGE UM   BLINN               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/1    *LABELSNIFF                               SA             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/2    *LABELSNIFF                               OE             W062:LBLSNIFF                                                   
            D3T2    234  LABELSNIFF..O.2                    1 SEQ    5320    3 PAGE UM   TIFFANY             JULY 31, 1973  22:57.00
00314/3    *LABELSNIFF               WRITEUP         WT             S0721 'D3T2' FSNAME=LABELSNIFF.WRITEUP.WT.3                  235
            D3T2    235  LABELSNIFF.WRITEUP.WT.3            1 LINE     80    2 DISK UM   TIFFANY             JUNE 08, 1973  11:15.06
0          WRITEUP WHICH WILL BE PRINTED IN NEXT REVISION OF MTS VOLUME 2.
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/1     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   HENRIKSEN           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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0          INTERFACE TO MTS.  SINCE THE COMPILER ITSELF IS ALSO AN XPL PROGRAM, IT MUST BE RUN IN THE
           SAME MANNER, I.E. IT MUST BE RUN UNDER CONTROL OF THE SUBMONITOR.  THE 2 FILES *XPL
           AND *XPLGO CONTAIN MTS OBJECT FOR A SET OF DEFAULT FILE NAMES FOR THE COMPILER
           AND COMPILED CODE EXECUTION RESPECTIVELY.  EACH ENDS WITH "$CONTINUE WITH *XMON" SO THAT
           BY $RUNNING *XPL OR *XPLGO, THE SUBMONITOR (*XMON), WITH APPROPRIATE DEFAULTS, IS INVOKED.
            
           MODIFIED UBC SOURCE FOR THE XPL SUBMONITOR (*XMON).
00318/2     XPL                      SUBMONITOR      OC  G          S0296 S296 'JOH XPL' POSN=XMON@O                             17 
            D3T2    238  XPL.SUBMONITOR.OC.2                1 SEQ      80    2 PAGE UM   HENRIKSEN           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/3     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   HENRIKSEN           JULY 31, 1973  23:01.54
0          UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON) AND *SPL (336).
00318/4     XPL                      TRACE           OC  G          S0296 S296 'JOH XPL' POSN=TRACE@O                            6  
            D3T2    240  XPL.TRACE.OC.4                     1 SEQ      80    2 PAGE UM   HENRIKSEN           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/5     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   HENRIKSEN           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/6     XPL                      DEFAULTS        OC  G          S0296 S296 'JOH XPL' POSN=DFLT@O                             3  
            D3T2    242  XPL.DEFAULTS.OC.6                  1 SEQ      80    1 PAGE UM   HENRIKSEN           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/7     XPL                      COMPILER        SX  G          S0296 S296 'JOH XPL' POSN=XCOM@S                             18 
            D3T2    243  XPL.COMPILER.SX.7                  1 SEQ      80   98 PAGE UM   HENRIKSEN           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   18:37:32   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
+         ______________ _____________________
00318/8     XPL                      COMPILER        O   G          S0296 S296 'JOH XPL' POSN=XCOM@O                             20 
            D3T2    244  XPL.COMPILER.O.8                   1 SEQ     240   29 PAGE UM   HENRIKSEN           JULY 31, 1973  23:02.40
0          XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER).
00318/9     XPL                      *XPLIBRARY      SX  G          S0296 S296 'JOH XPL' POSN=XLIB                               14 
            D3T2    245  XPL.*XPLIBRARY.SX.9                1 SEQ      80    3 PAGE UM   HENRIKSEN           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   HENRIKSEN           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.
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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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   HENRIKSEN           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                                              
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
1                                                                                               FRI AUG 02/96   18:37:32   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          PRODUCTION OF MOVIES, SLIDES, AND HARD COPY.  THE SOURCE IS NOT AVAILABLE.
0          Referenced by comments of: 319/1 
00322/1    *2260RTN                                  SA  G  D226    MTA:2260.S                                                      
            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/2    *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/1     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/2     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/3     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/4     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/5     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.
           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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00324/6     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/1     STAT MONTHLY SUMMARY     MAIN PGM        SP             W041:STATP16.S                                                  
            D3T2    261  STAT_MONTHLY_SUMMARY.MAIN.SP.1     1 LINE     99   17 PAGE UM   DWB                 JULY 31, 1973  23:08.28
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/12) 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.
            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/10), OR
                              'YES'   SAME AS 'CPU', OR
                              'NOT'   OMIT PROCESSING OF JOBS STATISTICS
            
                         6)   'WHOLE' NO RATE CHANGE DURING PERIOD OF COMPUTATION, OR
                              'MIXED' RATE CHANGE OCCURRED
            
                         7)   'DD'    FIRST DAY (OF MONTH) FOR NEW RATES.  GIVE ONLY IF 'MIXED' GIVEN.
            
                         8)   TESTCOUNT=N    NUMBER OF INPUT RECORDS TO ECHO ON SPRINT (DEBUG)
            
                         9)   DEBUG='1'B     PRODUCES GENERAL DEBUG OUTPUT.  PRINTS FOR ONLY N RECORDS IF TESTCOUNT GIVEN.
            
                      AT UM, THE NORMAL INPUT LINE USED IS:
1                                                                                               FRI AUG 02/96   18:37:32   Page   96
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
                           'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE';
0          Referenced by comments of: 413/10 
00326/2     STAT MONTHLY SUMMARY     PPAGES SUBR     SP             W041:STATP16.S(2000,2999)                                       
            D3T2    262  STAT_MONTHLY_SUMMARY.PPAGE.SP.2    1 LINE     82    4 PAGE UM   DWB                 JULY 31, 1973  23:08.31
0          SUBROUTINES CALLED BY MAIN PROGRAM.
00326/3     STAT MONTHLY SUMMARY     CPUSE SUBR      SP             W041:STATP16.S(3000)                                            
            D3T2    263  STAT_MONTHLY_SUMMARY.CPUSE.SP.3    1 LINE     91    4 PAGE UM   DWB                 JULY 31, 1973  23:08.34
0          SUBROUTINE WHICH READS JOBS STATISTICS DATA (SEE COMP 413/10) AND PRINTS THE RESULTS.  CALLED ONLY IF 'CPU'
           IS SPECIFIED FOR THE FIFTH PARAMETER.
00326/4     STAT MONTHLY SUMMARY     OBJECT          OC             W041:STATP16.O                                                  
            D3T2    264  STAT_MONTHLY_SUMMARY.OBJEC.OC.4    1 LINE     80   56 PAGE UM   DWB                 JULY 31, 1973  23:08.36
00327       XPLBNF                                   D            # (SEE COMP 318)                                                  
                                                                                    UM                                              
00328/1     ALLLINES                                 SA           # (OBSOLETE)                                                      
            D2T1    264                                                             UM                                              
00328/2     ALLLINES                                 O            # (OBSOLETE)                                                      
            D2T1    265                                                             UM                                              
00329      *SKELETON                                              # (SEE COMP 318)                                                  
                                                                                    UM                                              
00330/1     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/2     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/1    *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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00334/2    *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/3    *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/4    *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/5    *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/6    *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/7    *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/8    *SNOBOL4B                 MACLEAN                      # (SEE COMP 182)                                                  
                                                                                    UM   DE JONG                                    
00334/9    *SNOBOL4B                 WRITEUP         WF           # (SEE COMP 182)                                                  
                                                                                    UM   DE JONG                                    
00335/1    *DITTO                                    SA  G  DTTO    W114:DITTO.S(5)                                                 
            D3T2    274  DITTO..SA.1                        1 LINE     80    8 PAGE UM   BLINN               JULY 31, 1973  23:14.38
0          PROGRAM TO PRODUCE DITTO (OR OTHER DUPLICATING PROCESS) MASTERS ON A 2741 OR 1050. 
00335/2    *DITTO                                    OL  G          *DITTO                                                          
            D3T2    275  DITTO..OL.2                        1 SEQ    1874    1 PAGE UM   BLINN               JULY 31, 1973  23:14.40
00335/3    *DITTO                    WRITEUP         WF             W114:DITTO.W                                                    
            D3T2    276  DITTO.WRITEUP.WF.3                 1 LINE    105    2 PAGE UM   BLINN               JULY 31, 1973  23:14.42
00336/1     SPL                      SUBMONITOR      SA             S0518 'D2T2' FMT=FB(4000,80)                                 38 
            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 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00336/2     SPL                      TRACE           SA           # (SEE COMP 318)                                                  
                                                                                    UM   SALISBURY                                  
0          TRACE PROGRAM.
00336/3     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/4     SPL                      COMPILER        SX             S0518 'D2T2' FMT=FB(4000,80)                                 37 
            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/5     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/1     PRINT TRACE                              SA  G  PTTR    MTA:PRINTTRACE(1,999)                                           
            D3.1T1  240  PRINT_TRACE..SA.1                  1 LINE     80    6 PAGE UM   MTA                 MAR. 06, 1974  03:52.02
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 
00337/2     PRINT TRACE                              OC  G          MTA:PRINTTRACE(1000,1999)                                       
            D3.1T1  241  PRINT_TRACE..OC.2                  1 LINE     80    3 PAGE UM   MTA                 MAR. 06, 1974  03:52.04
00338/1     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/2     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/3     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 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00338/4     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/5     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/6     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/1     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/2     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/3     READRESTP                                O            # (NOT DISTRIBUTED)                                               
                                                                                    UM   MTA                                        
00341/1     RDRSTP                   UNLINK          SA           # (OBSOLETED BY *UNLINKER)                                        
            D2T1    168                                                             UM                                              
00341/2     RDRSTP                   BLKRTN          SA           # (OBSOLETED BY *UNLINKER)                                        
            D2T1    169                                                             UM                                              
00342       LIBPRINT                                 S            # (OBSOLETE)                                                      
            D2T1    171                                                             UM                                              
00343       MTS.CONTAB                               SA  G          MTS:CONTAB/D3.1                                                 
            D3.1T1  242  MTS.CONTAB..SA.                    1 LINE     80    4 PAGE UM   DWB                 MAR. 06, 1974  03:52.06
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 
00344       MTS.MACROS                               SM  G  MMAC    MTS:MACROS/D3.1                                                 
            D3.1T1  243  MTS.MACROS..SM.                    1 LINE     80    7 PAGE UM   DWB                 MAR. 06, 1974  03:52.08
0          THIS IS "COPY:MTS.MACROS" WHICH IS USED TO ASSEMBLE MTS (042) AND THE "MTS SUBROUTINES":  KWIC (040),
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0          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).
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.1T1  244  MTS.EQU..SA.                       1 LINE     80    4 PAGE UM   DWB                 MAR. 06, 1974  03:52.10
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 
00346       MTS.DSECT                                SA  G          MTS:DSECT/D3.1                                                  
            D3.1T1  245  MTS.DSECT..SA.                     1 LINE     80   21 PAGE UM   DWB                 MAR. 06, 1974  03:52.12
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:FCBDSECT RETURN          (622)
               $CONTINUE WITH COPY:FDUBDSECT RETURN         (623)
               $CONTINUE WITH COPY:WOPTRDSECT RETURN        (624)
               $CONTINUE WITH COPY:STATDSECT RETURN         (620)
               $CONTINUE WITH COPY:UBCDSECTS RETURN         (645)
           AND $CONTINUE WITH COPY:CLSAREA RETURN           (641) 
            
           NOTE:  THE ACCOUNTING DSECT HAS BEEN CHANGED SINCE D3 TO INCLUDE A NEW RATE FIELD FOR THE MERIT
                  COMPUTER NETWORK CONNECT-TIME CHARGE.  A NEW VARIABLE FIELD IS ALSO GENERATED
                  ON STATISTICS RECORDS FOR THE MERIT TIME.
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 
00347       MTS.EQU2                                 SA  G          COPY:MTS.EQU2                                                   
            D3.1T1  246  MTS.EQU2..SA.                      1 LINE     80    4 PAGE UM   DWB                 MAR. 06, 1974  03:52.15
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.1T1  247  MTS.RHTABLE..SA.                   1 LINE     80    3 PAGE UM   DWB                 MAR. 06, 1974  03:52.17
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                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00351       DCVD SUBROUTINE                                       # (SEE COMP 084)                                                  
                                                                                    UM                                              
00352       DCVC SUBROUTINE                                       # (SEE COMP 084)                                                  
                                                                                    UM                                              
00353/1     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).
00353/2     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/3     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/1     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), 
           AND COPY:MTS.TV (640).
           NEEDS MACROS IN COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1, 354/2 
00354/2     LLXU                     D3.1 UPDATE     UU  G          MTS:LLXUUPD                                                     
            D3.1T1  248  LLXU.D3.1_UPDATE.UU.2              1 LINE     70    3 PAGE UM   DWB                 MAR. 06, 1974  03:52.18
0          UPDATE TO D3 MASTER (354/1) TO PRODUCE D3.1 SOURCE.
           UPDATE DECK USES %POSN *IN* LLXU.
00354/3     LLXU                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00354/4     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/5     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/6     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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00355/1     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) AND COPY:STATDSECT (620).
00355/2     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/1     RCALL                                    SA  G  RCAL    S0517 'D2T1' FMT=FB(4000,80)                                 415
            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.
           UNCHANGED FROM DIST 2.0.
00357/2     RCALL                                    OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00358/1    *TAPECOPY                                 SA  G  TPCP    WSG:TAPECOPY(1,999)                                             
            D3.1T1  251  TAPECOPY..SA.1                     1 LINE     80   14 PAGE UM   WSG                 MAR. 06, 1974  03:52.25
0          MULTIPLE FILE TAPE COPY PROGRAM.  COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK.
            
           FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO COPY THE EXPIRATION DATE FOR LABELED TAPES.
00358/2    *TAPECOPY                                 OC  G          *TAPECOPY                                                       
            D3.1T1  252  TAPECOPY..OC.2                     1 LINE     80    3 PAGE UM   WSG                 MAR. 06, 1974  03:52.29
00359       SORT SUBROUTINE                                       # (SEE COMP 303)                                                  
                                                                                    UM                                              
00360/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00360/2     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.
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          SINGLE PRECISION MATRIX INVERSION SUBR.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00369       SINV1                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    405                                                             UM   HARDING                                    
0          SUBR TO INVERT A LOWER TRIANGULAR MATRIX IN SINGLE PRECISION.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00370       SLRD                                     S            # (NOT DISTRIBUTED)                                               
            D2T1    406                                                             UM   HARDING                                    
0          SUBR FOR SINGLE PRECISION 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.
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.
1                                                                                               FRI AUG 02/96   18:37:32   Page  105
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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/1     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/13), COPY:LLMPSEQU (087), COPY:WOPTRDSECT (624), COPY:FCBDSECT (622),
           AND COPY:FDUBDSECT (623).
0          Referenced by comments of: 243/1, 387/2 
00387/2     HASP                     D3.1 UPDATE     UU  G          MTS:HASPUPDATES                                                 
            D3.1T1  253  HASP.D3.1_UPDATE.UU.2              1 LINE     72   15 PAGE UM   DWB                 MAR. 06, 1974  03:52.30
0          UPDATE DECK TO PRODUCE D3.1 SOURCE FROM D3 HASP MASTER SOURCE (387/1).
            
           FOR D3.1, HASP HAS BEEN CHANGED AS FOLLOWS:
             (1)  SUPPORT HAS BEEN ADDED TO ALLOW ITEL 7330 DISKS TO BE USED.
             (2)  HASP HAS BEEN CHANGED TO RUN IN SHARED VM (SEGMENT 1).  THIS INVOLVES CHANGES IN THE BUFFER
                  ALLOCATION, COMMAND PROCESSING INTERFACE WITH THE SUPERVISOR, AND THE INTERFACE TO MTS.
             (3)  A GENERAL CLEANUP OF ALL OF HASP.
             (4)  NEW $STIMER AND $TTIMER.
            
           THE MOVING OF HASP TO SHARED VM REQUIRES MANY SMALL CHANGES THROUGHOUT THE SYSTEM.
           THE FOLLOWING MODULES ARE AFFECTED:
             (1)  MTS        - HASP INTERFACE CHANGED.
             (2)  SUPERVISOR - SEGMENT 2 MOVED TO SEGMENTS 1 AND 2, HASP COMMAND INTERFACE CHANGED,
                               REMOVED $STIMER AND $TTIMER.
             (3)  PISTLE     - NEW NAME FOR SEGMENT 2 LOADER.  REQUIRED TO LOAD HASP INTO SHARED VM AFTER IPL.
             (4)  BSLOAD     - CHANGED TO LEAVE LOADER SYMBOL TABLE AT THE BEGINNING OF SHARED VM SO THAT
                               PISTLE CAN RESOLVE SEGMENT 0 REFERENCES TO SHARED VM SYMBOLS.
                               BSLOAD CONTROL CARD CHANGED TO ALLOW ENOUGH ROOM FOR NEW SHARED VM MODULES (E.G. HASP).
             (5)  JBRP       - CHANGED TO TEST FOR ZERO ADDRESS IN JOB LIST ENTRY AND COMPLAIN IF FOUND.
             (6)  EXIT       - CHANGED TO NOT CALL HASP IF IT HASN'T BEEN LOADED.
             (7)  JOB LIST   - MAKE ABOUT 15 MORE JOBS RELOCATABLE.
             (8)  CONFIG     - CHANGED FOR SEGMENTS 1 AND 2 PAGED.
             (9)  UNIT CHECK - ROUTINES MOVED TO SEGMENT 1.
             (10) TABLES     - CHANGED NAMES OF BSC LINES TO SAXX INSTEAD OF SDAX.
             (11) STRT:HSP   - CHANGED SDAX TO SAXX.
             (12) SYSDEFS    - ADDED NAMES FOR IPL UMLOAD TABLES AND LSW.
             (13) SEGMENT2   - SEGMENT2 CARD IN SYSTEM OBJECT DECK NOW CALLED SEGMENT1 CARD.
             (14) IPL PGM    - DISK WRITE PROGRAM CHANGED TO START AT DISK PAGE 7.
             (15) NCA        - MANY NCA CARDS ADDED TO SYSTEM OBJECT DECK FOR HASP SYSBOLS.
             (16) LNGSEG2    - CHANGED TO INCLUDE BOTH SEGMENTS 1 AND 2.
             (17) ZAP        - CHANGED FOR SEGMENT 1.
             (18) TASKS      - CHANGED SO NUMBER OF VM PAGES DOESN'T OVERPRINT JOB NAME.
1                                                                                               FRI AUG 02/96   18:37:32   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            (19) LOADMTS    - CHANGED FOR SEGMENT 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
               MAX2314      0
               MAX7330      1
               MAXXEQS      25
               MAXJOBS      600
               NUMBUF       100
               TIMER        YES
               NUMTPBUF     50
               BSC2780      YES
               BSCCPU       YES
               UM           YES
               OMR          YES
               NOSLT        0
            
           THERE ARE TWO PROBLEMS IN HASP WHICH SHOULD BE FIXED, BUT HAVEN'T BEEN TO DATE:
            
             (1) IF HASP GETS A CSW STORED AT THE END OF AN I/O OPERATION WHICH THE SUPERVISOR
                 CAN'T UNTRANSLATE, IT GETS A PGNT IN THE LINE MANAGER BECAUSE OF
                 A BAD REGISTER "WA". THE FIX FOR THIS IS EASY.
             (2) THE REMOTE CONSOLE PROCESSOR CAN HANG UP THE CONSOLE SERVICE PROCESSOR
                 IF IT PROCESSES A COMMAND FROM A REMOTE WHICH ISN'T SIGNED ON (WHICH CAN HAPPEN).
00387/3     HASP                                     OC  G          SEG2:HASP                                                       
            D3.1T1  254  HASP..OC.3                         1 LINE     80   39 PAGE UM   DWB                 MAR. 06, 1974  03:52.38
0          THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL.
           THIS FILE ALSO CONTAINS THE HASPLING OBJECT.
00387/4     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/5     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00387/6     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/7     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/8     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.  THIS IS SIX BINARY CARDS THAT THE HASP
           MANUAL TELLS YOU TO HAND PUNCH.
           THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN AND PLACED AT THE BEGINNING OF THE 1130 REMOTE PROGRAM DECK.
           NO SOURCE AVAILABLE.
00387/9     HASP                     LETRRIP         SA  G  LETI    MTA:LETRRIPI                                                    
            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          MTA:LETRRIP                                                     
            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 RUNS STRT:START (614) TO CRANK UP HASP, I.E. IT 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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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 RUNS STRT:START (614) TO DRAIN ALL THE HASP REMOTE LINES, I.E. IT 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.
00388/1     HASPLING                                 SA  G  HSPL    MTS:HASPLING(1,999)                                             
            D3.1T1  257  HASPLING..SA.1                     1 LINE     80   16 PAGE UM   MTA                 MAR. 06, 1974  03:52.47
0          NEW MASTER SOURCE FOR THE HASPLING.
00388/2     HASPLING                                 OC  G        # (PART OF 387/3)                                                 
                                                                                    UM   MTA                                        
00389/1    *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/2    *GENLIB                                   OE  G          *GENLIB                                                         
            D3T2    333  GENLIB..O.2                        1 LINE    255    4 PAGE UM   TIFFANY             AUG. 02, 1973  02:32.15
00390/1    *QUE                                      SA  G  HSPQ    S0517 'D2T1' FMT=FB(4000,80)                                 178
            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/2    *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.
1                                                                                               FRI AUG 02/96   18:37:32   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          APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00394       UBC TAPE ROUTINES                        S            # (OBSOLETE)                                                      
            D2T1    102                                                             UBC                                             
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/1     SYSTEM DUMP                              SA  G  DUMP    MTA:DUMP                                                        
            D3.1T1  258  SYSTEM_DUMP..SA.1                  1 LINE     80   13 PAGE UM   MTA                 MAR. 06, 1974  03:52.57
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.  THIS PROGRAM HAS BEEN MODIFIED FROM THE ORIGINAL UBC VERSION.
0          Referenced by comments of: 400/1, 468/1 
00399/2     SYSTEM DUMP                              OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
0          ***** NOTE:  THIS OBJECT CONTAINS A REP CARD.
00400/1     PRINT DUMP                               SA  G  DMPL    MTA:DMPLST(1,1999)                                              
            D3.1T1  259  PRINT_DUMP..SA.1                   1 LINE     80   24 PAGE UM   MTA                 MAR. 06, 1974  03:52.59
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. THIS MAY NOT WORK WITHOUT 
           THE "SWPR" RPQ. IF THIS IS THE CASE, REMOVING THE UNNECESSARY FLOATING POINT FIELD FROM THE FORMATS
           IN PRINTTRACE MAY CURE IT.
           COPIES COPY:LLMPSEQU (087) AND COPY:PCBDSECT (470).  ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 399/1 
00400/2     PRINT DUMP                               OC  G          MTA:PRINTDUMP                                                   
            D3.1T1  260  PRINT_DUMP..OC.2                   1 LINE     80    7 PAGE UM   MTA                 MAR. 06, 1974  03:53.06
0          NOTE:  THIS FILE ALSO CONTAINS THE OBJECT FOR PRINT TRACE (337).
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   18:37:32   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
+         ______________ _____________________
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/1    *ASMTIDY                                  SA  S  ASMT    DWB:UD19.ATIDY.S                                                
            D3T2    339  ASMTIDY..SA.1                      1 LINE     80   15 PAGE UBC  DWB                 AUG. 02, 1973  02:35.29
0          MODIFIED VERSION (TO FIX BUGS) 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.
00410/2    *ASMTIDY                                  OC  S          *ASMTIDY                                                        
            D3T2    340  ASMTIDY..O.2                       1 SEQ    2385    4 PAGE UBC  DWB                 AUG. 02, 1973  02:35.32
00410/3    *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.
00411       STAT4                                    S            # (NOT AVAILABLE)                                                 
            D2T1    157                                                             UBC  HOGG                                       
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00413/1     SYSTEM STATUS <JOBS>     SSRTN           SA  G  SRTN    WSG:SSRTN(1,2999)                                               
            D3.1T1  261  SYSTEM_STATUS_<JOBS>.SSRTN.SA.1    1 LINE     80   51 PAGE UM   WSG                 MAR. 06, 1974  03:53.07
0          SYSTEM STATUS ROUTINE (SSRTN) COMPUTES SYSTEM LOAD (CPU, PAGING, DISK, AND CHANNEL ACTIVITY).
           CALLED BY THE "JOBS" JOB (413/3) AND THE MTS $SYSTEMSTATUS CLS (413/5) TO COMPUTE AND FORMAT PRINTED OUTPUT. 
           COPIES COPY:JOBSTA (413/13) AND COPY:LLMPSEQU (087).  ASSEMBLE WITH *SYSMAC.
           HAS OPTION FOR USE OF THE SEARCH LIST (SLT) INSTRUCTION:
            
           &SLT     SETB  0                  NO SLT
           &SLT     SETB  1                  USE SLT
            
           FOR D3.1, THE FOLLOWING CHANGES HAVE BEEN MADE:
            
           (1) THE COMMAND PREFIX (/) IS NOW OPTIONAL ON ALL COMMANDS.  THE /O(PERATOR) COMMAND
               WILL NOW TAKE A PARAMETER WHICH IS PASSED TO THE SUPERVISOR VIA SVC STRTJOB
               (FOR PRIVILEGED USERS).
           (2) THE /A(LTER), /M(ODIFY), AND /D(ISPLAY) COMMANDS WILL NOW TAKE AN ADDRESS WHICH 
               BEGINS WITH "R" TO BE A REAL ADDRESS RATHER THAN VM.  ALTERNATIVELY, /AR, /MR,
               AND /DR COMMANDS HAVE BEEN ADDED TO ALTER (MODIFY) AND DISPLAY REAL MEMORY.
           (3) THE /DE(VICE) COMMAND NOW ADDITIONALLY PRINTS THE ENTIRE DEVICE TABLE IN HEX.
           (4) THE /L(OAD) COMMAND WITH NO PARAMETER NOW PRINTS A "BPH" (BATCH PER HOUR) FIGURE.
               THIS IS A MEASURE OF THE APPROXIMATE BATCH THROUGHPUT OVER THE LAST FEW MINUTES.
           (5) THE BATCH SCHEDULING ALGORITHM HAS BEEN IMPROVED, AS HAS THE LSS CONTROL.  TWO FLAGS
               (SAT AND LLF) ARE MAINTAINED BY THE SCHEDULING ALGORITHM.  SAT INDICATES WHETHER THE
               SYSTEM IS CONSIDERED TO BE OVERLOADED.  LLF INDICATES THAT THE SYSTEM IS NOT ONLY
               OVERLOADED, BUT THAT IN ADDITION, ONLY THE MINIMUM NUMBER OF BATCH JOBS (MIB) IS BEING
               RUN OR THAT THE BATCH THROUGHPUT (BPH) IS BELOW A MINIMUM THRESHOLD (MBH).
               IF LIMITED SERVICE STATE (LSS) IS BEING USED BY THE INSTALLATION (/MODIFY LSS 1),
               THEN MTS WILL ENFORCE LSS FOR SIGNING-ON USERS WHENEVER LLF IS ON.  SAT,
               LLF, AND LSS MAY BE DISPLAYED OR ALTERED (0 OR 1) IF NECESSARY.
           (6) AN EXTERNAL ENTRY POINT (SSFMT) HAS BEEN ADDED 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.
0          Referenced by comments of: 413/3, 413/5, 413/7 
00413/2     SYSTEM STATUS <JOBS>     SSRTN           OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   WSG                                        
00413/3     SYSTEM STATUS <JOBS>     JOBS JOB        SA  G  JOBS    WSG:JOBS.JOB(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.
0          Referenced by comments of: 413/1, 413/7 
00413/4     SYSTEM STATUS <JOBS>     JOBS JOB        OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   WSG                                        
0          COPIES COPY:JOBSTA (413/13).  ASSEMBLE WITH *SYSMAC.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00413/5     SYSTEM STATUS <JOBS>     SYS STAT CLS    SA  G  SCLS    WSG:SSTA.CLS(1,999)                                             
            D3.1T1  263  SYSTEM_STATUS_<JOBS>.SYS_S.SA.5    1 LINE     80    9 PAGE UM   WSG                 MAR. 06, 1974  03:53.27
0          $SYSTEMSTATUS CLS FOR INTERFACING WITH SSRTN (413/1) FROM MTS COMMAND LEVEL.
           COPIES COPY:LLMPSEQU (087) AND COPY:CLSVECTOR (535/2).  ASSEMBLE WITH *SYSMAC.
            
           ****** NOTE:  AT UM, ALTHOUGH THIS CLS IS AVAILABLE, IT HAS NOT BEEN PUBLICLY ANNOUNCED
                         SINCE COMMAND EXTENSIONS AND CHANGES ARE CURRENTLY BEING PLANNED.
                         IT IS WIDELY USED BY THE COMPUTING CENTER STAFF.
0          Referenced by comments of: 413/1, 413/7 
00413/6     SYSTEM STATUS <JOBS>     SYS STAT CLS    OC  G          *CLSSSTA                                                        
            D3.1T1  264  SYSTEM_STATUS_<JOBS>.SYS_S.OC.6    1 LINE     80    1 PAGE UM   WSG                 MAR. 06, 1974  03:53.34
0          AT UM, THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY THE SEGMENT 2 LOADER.  IF THIS IS NOT
           DONE MTS WILL DYNAMICALLY LOAD A PRIVATE COPY FOR EACH $SY COMMAND.
00413/7     SYSTEM STATUS <JOBS>     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/3) AND THE $SYSTEMSTATUS CLS (413/5).  COPIES COPY:JOBSTA (413/13).
00413/8     SYSTEM STATUS <JOBS>     SYS STA VECTOR  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   WSG                                        
0          THIS OBJECT DECK SHOULD BE KEPT IN SEGMENT 0 TO REDUCE THE OVERHEAD OF THE SVC WAYT.
00413/9     SYSTEM STATUS <JOBS>     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/10    SYSTEM STATUS <JOBS>     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/11) WHICH ACCUMLATES SYSTEM LOAD INFORMATION
           IN A FILE (SYS:STAT), ONE LINE EVERY 20 SECONDS.  THIS FILE IS AUTOMATICALLY DUMPED ONTO A
           TAPE PERIODICALLY.  THIS INFORMATION (ON TAPE) CAN BE PROCESSED
           BY THE STAT MONTHLY SUMMARY PROGRAM (326).
00413/11    SYSTEM STATUS <JOBS>     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/10).  ASSEMBLE WITH DBS:MAC (455).
0          Referenced by comments of: 413/10 
00413/12    SYSTEM STATUS <JOBS>     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 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00413/13    SYSTEM STATUS <JOBS>     JOBSTA          SA  G  JSTV    COPY:JOBSTA                                                     
            D3.1T1  270  SYSTEM_STATUS_<JOBS>.JOBST.SA.13   1 LINE     80    3 PAGE UM   WSG                 MAR. 06, 1974  03:58.30
0          THIS IS THE "COPY:JOBSTA" DSECT DESCRIBING THE SYSTEM STATUS VECTOR.
0          Referenced by comments of: 42/1, 387/1, 413/1, 413/4, 413/7 
00414/1    *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.  MUCH BETTER THAN *FILEDUMP.
00414/2    *TAPEDUMP                                 OC  G          *TAPEDUMP                                                       
            D3T2    349  TAPEDUMP..OC.2                     1 LINE     80    3 PAGE UM   WSG                 AUG. 02, 1973  02:49.53
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/1     FORTRAN LIBRARY          IBCOM#          SA  G  IBCM    W019: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/2     FORTRAN LIBRARY          FIOCS#          SA  G  FIOC    W019: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/3     FORTRAN LIBRARY          ADCON#          SA  O  ADCN    S0517 'D2T1' FMT=FB(4000,80)                                 353
            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/4     FORTRAN LIBRARY          IHCNAMEL        SA  G  NAML    S0517 'D2T1' FMT=FB(4000,80)                                 354
            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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00422/5     FORTRAN LIBRARY          IHCDBUG         SA  G  DBUG    S0517 'D2T1' FMT=FB(4000,80)                                 355
            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/6     FORTRAN LIBRARY          IHCFDUMP        SA  G  FDMP    S0517 'D2T1' FMT=FB(4000,80)                                 356
            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/7     FORTRAN LIBRARY          SETSTA          SA  G  SSTA    S0517 'D2T1' FMT=FB(4000,80)                                 357
            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.
00422/8     FORTRAN LIBRARY          SETGRE          SA  G  SGRE    S0517 'D2T1' FMT=FB(4000,80)                                 358
            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/9     FORTRAN LIBRARY          SETDSR          SA  G  SDSR    S0517 'D2T1' FMT=FB(4000,80)                                 359
            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    S0517 'D2T1' FMT=FB(4000,80)                                 360
            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    S0517 'D2T1' FMT=FB(4000,80)                                 361
            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    S0517 'D2T1' FMT=FB(4000,80)                                 362
            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"
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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                                              
00435      *CCI                                                   # (OBSOLETE)                                                      
                                                                                    UM                                              
00436/1     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/2     GTDJMSR                                  OC           # *LIBRARY (SEE COMP 524)                                         
            D2T1    432                                                             UM   DWB                                        
00436/3     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/4     GTDJMSR                  GTDJMS          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00437/1     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/2     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/3     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/4     JMSGTDR/JTUGTDR          JMSGTD          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00437/5     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/6     JMSGTDR/JTUGTDR          JTUGTD          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   DWB                                        
00439       UCATDES <DEADFILES>                                   # (SEE COMP 502)                                                  
                                                                                    UM                                              
00440       CATEQU                                                # (SEE COMP 482)                                                  
                                                                                    UM                                              
00441/1    *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).
00441/2    *FILEUSE                                  OE  G          *FILEUSE                                                        
            D3T2    370  FILEUSE..O.2                       1 LINE    255    1 PAGE UM   PIRKOLA             AUG. 02, 1973  02:54.08
00442/1     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/2     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/1     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/2     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/3     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00446       TEXT/360 SUBRS                                        # (SEE COMP 138)                                                  
                                                                                    UM                                              
00447/1     TAPESTAT                 TAPESTAT SUBR   SA  G  TPST    WSG:TAPESTAT(1,999)                                             
            D3.1T1  274  TAPESTAT.TAPESTAT_SUBR.SA.1        1 LINE     80    5 PAGE UM   WSG                 MAR. 06, 1974  04:06.01
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) AND COPY:CLSVECTOR (535/2).
            
           FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO ACCOMODATE THE LARGER MTS PDN TABLE SIZE.
0          Referenced by comments of: 101/1, 101/2 
00447/2     TAPESTAT                 TAPESTAT SUBR   OC  G        # (PART OF COMP 101)                                              
                                                                                    UM   WSG                                        
0          OBJECT IS PART OF *CLSMOUNT.
00447/3     TAPESTAT                 SAVTS           SA  G  SVTS    WSG:SAVTS(1,999)                                                
            D3T3      5  TAPESTAT.SAVTS.SA.3                1 LINE     80    8 PAGE UM   WSG                 AUG. 01, 1973  18:14.38
0          PROGRAM TO SAVE *TAPESTAT MOUNT STATISTICS ON TAPE (RUN MONTHLY AT UM WHERE *TAPESTAT IS ABOUT
           120 PAGES).  IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A SAVE TAPE (VOLUME=STAT), EMPTIES
           *TAPESTAT, AND RESTORES THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH RACK NUMBER.
           AT UM, THIS RESTORES ABOUT 40 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 LABELED SAVE TAPE PRODUCED IS BLOCKED VB(16379,255).
           WE USE *CMB (256) TO COMBINE EACH MONTH'S TAPE ONTO A LARGER TAPE SINCE THE TAPESTAT RECORD
           FORMAT IS COMPATIBLE WITH THE *STATISTICS RECORD FORMAT.
           COPIES COPY:LLMPSEQU (087)
0          Referenced by comments of: 256/2, 447/7 
00447/4     TAPESTAT                 SAVTS           OC  G          WSG:SAVTS(1000)                                                 
            D3T3      6  TAPESTAT.SAVTS.OC.4                1 LINE     80    8 PAGE UM   WSG                 AUG. 01, 1973  18:14.44
00447/5     TAPESTAT                 TSSCN           SA  G  TSSN    WSG:TSSCN(1,999)                                                
            D3T3      7  TAPESTAT.TSSCN.SA.5                1 LINE     80    9 PAGE UM   WSG                 AUG. 01, 1973  18:14.52
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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0          COPIES COPY:LLMPSEQU (087).
0          Referenced by comments of: 447/3 
00447/6     TAPESTAT                 TSSCN           OC  G          WSG:TSSCN(1000)                                                 
            D3T3      8  TAPESTAT.TSSCN.OC.6                1 LINE     80    3 PAGE UM   WSG                 AUG. 01, 1973  18:15.02
00447/7     TAPESTAT                 TSDEL           SA  G  TSDL    WSG:TSDEL(1,999)                                                
            D3T3      9  TAPESTAT.TSDEL.SA.7                1 LINE     80    5 PAGE UM   WSG                 AUG. 01, 1973  18:15.05
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
           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).  ASSEMBLE WITH *SYSMAC.
00447/8     TAPESTAT                 TSDEL           OC  G          WSG:TSDEL(1000)                                                 
            D3T3     10  TAPESTAT.TSDEL.OC.8                1 LINE     80    1 PAGE UM   WSG                 AUG. 01, 1973  18:15.08
00448      *RSERIES                                               # (SEE COMP 306)                                                  
                                                                                    UM                                              
00449      *DEB                                      S            # (OBSOLETED BY *SORT)                                            
            D2T1    341                                                             UM                                              
00451/1     CATALOG VERIFY - VNTD                    SA  G  VNTD    W045:PF.VNTD                                                    
            D3T3     11  CATALOG_VERIFY_-_VNTD..SA.1        1 LINE     80   25 PAGE UM   PIRKOLA             AUG. 01, 1973  18:15.10
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
1                                                                                               FRI AUG 02/96   18:37:32   Page  119
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                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,
                 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) PRESENTLY, VERIFYING A FILE DOES NOTHING.
            
            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/2     CATALOG VERIFY - VNTD                    OC  G          W045:PF.VNTD.O                                                  
            D3T3     12  CATALOG_VERIFY_-_VNTD..OC.2        1 LINE     80    6 PAGE UM   PIRKOLA             AUG. 01, 1973  18:15.38
00452/1     PLCALL                                   SA  G  PLCL    S0722 'D3T3' FSNAME=PLCALL..SA.1                              13
            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/2     PLCALL                                   OC  G          S0722 'D3T3' FSNAME=PLCALL..O.2                               14
            D3T3     14  PLCALL..O.2                        1 LINE     80    1 PAGE UM   ENGLE               JULY 24, 1973  11:52.05
0          THIS SUBROUTINE IS IN *PL1LIB.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00453/1     DRUM INIT <STAND-ALONE>                  SA     DNIT    S0517 'D2T1' FMT=FB(4000,80)                                 186
            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/2     DRUM INIT <STAND-ALONE>                  OC             S0517 'D2T1' FMT=FB(4000,80)                                 187
            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             DBS:MAC                                                         
            D3T3     17  DBS:MAC..SM.                       1 LINE     66    3 PAGE UM   WSG                 AUG. 01, 1973  18:21.38
0          MACRO LIBRARY USED BY MANY OF DOUG SMITH'S PROGRAMS (ARU, SORT, AND JOBS).
0          Referenced by comments of: 84/1, 84/5, 84/7, 84/12, 84/14, 303/1, 413/11 
00456      *CONFIG                                   SA           # (OBSOLETE)                                                      
            D2T1    318                                                             UM                                              
00457       TPSBUFFER                                SA           # (OBSOLETE)                                                      
            D2T1    147                                                             UM                                              
00458/1     OLTS                     MONITOR         SA  G  OLTS    S0722 'D3T3' FSNAME=OLTS.MONITOR.SA.1                         18
            D3T3     18  OLTS.MONITOR.SA.1                  1 LINE     80   73 PAGE UM   MTA                 JULY 30, 1973  03:33.02
0          MAIN ASSEMBLY FOR ON-LINE TEST SYSTEM EXECUTIVE PROGRAM.  WILL SUPPORT ANY TEST EXCEPT 2702/3.
           THIS VERSION OF THE OLTS SUPERVISOR ALLOWS THE OS TEST SECTIONS TO BE RUN UNMODIFIED IN MTS.
           THIS IS OS RELEASE 18 VERSION.
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 126/1, 338/1 
00458/2     OLTS                     MONITOR         OC  G          MTA:OLTS                                                        
            D3T3     19  OLTS.MONITOR.OC.2                  1 LINE     80   11 PAGE UM   MTA                 AUG. 01, 1973  18:23.30
00458/3     OLTS                     SCAN OLTS       SA  G  SCAN    MTA:SCANOLTS(1,999)                                             
            D3T3     20  OLTS.SCAN_OLTS.SA.3                1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  18:23.33
0          PROGRAM TO READ A FILE CONTAINING OBJECT DECKS FOR THE OLTS TEST SECTIONS (458/7) ON SCARDS AND PUNCH ASMG SOURCE
           FOR TWO TABLES (ON UNITS 0 AND 2) WHICH FORM THE BULK OF THE SOURCE FOR THE DIRECTORY ASSEMBLY (458/5).
           ASSEMBLE USING *SYSMAC.
0          Referenced by comments of: 458/5, 458/7 
00458/4     OLTS                     SCAN OLTS       OC  G          MTA:SCANOLTS(1000)                                              
            D3T3     21  OLTS.SCAN_OLTS.OC.4                1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  18:23.35
00458/5     OLTS                     DIRECTORY       SA  G  OLTT    MTA:OLTSTESTDIR                                                 
            D3T3     22  OLTS.DIRECTORY.SA.5                1 LINE     80    7 PAGE UM   MTA                 AUG. 01, 1973  18:23.37
0          ASSEMBLY THAT DEFINES WHICH TESTS ARE AVAILABLE AND THE FILE (WITH LINE NUMBER RANGE) FROM WHICH TO LOAD THEM.
1                                                                                               FRI AUG 02/96   18:37:32   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          THE TWO TABLES (TEST SECTION NAMES AND CORRESPONDING FILE NAMES) IN THIS ASSEMBLY ARE GENERATED BY THE SCAN OLTS
           PROGRAM (458/3).
0          Referenced by comments of: 458/3 
00458/6     OLTS                     DIRECTORY       OC  G          MTA:OLTSSUB                                                     
            D3T3     23  OLTS.DIRECTORY.OC.6                1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  18:23.41
00458/7     OLTS                     TEST SECTIONS   OC  G          MTA:OLTSSECT                                                    
            D3T3     24  OLTS.TEST_SECTIONS.OC.7            1 LINE     95  186 PAGE UM   MTA                 AUG. 01, 1973  18:23.43
0          THESE ARE THE IBM (AND BRAND X) OBJECT FOR THE VARIOUS TEST SECTIONS.  SOURCE IS NOT AVAILABLE FROM IBM.
           THIS FILE WAS GENERATED BY IPLING THE IBM OLTS DISTRIBUTION TAPE IN THE VIRTUAL MACHINE AND LETTING IT PUNCH THE
           CARDS (WHICH WOULD BE LINK-EDITTED IN OS) INTO THIS FILE.  THIS FILE THEN SERVES AS THE FILE CONTAINING ALL OF
           THE TEST SECTION OBJECT DECKS.  THE SCAN OLTS PROGRAM (458/3) WILL READ THIS FILE AND PRODUCE THE DIRECTORY
           WHICH TELLS WHICH TEST SECTION HAS WHAT LINE NUMBER RANGE IN THIS FILE.
           NOTE:  THE ISS TESTS FOR THE 400 CYLINDER "2314" ARE REALLY IBM 2314 TESTS WHICH HAVE BEEN WORKED OVER BY THE EDITOR
                  AND PATCHED WITH REP CARDS.
0          Referenced by comments of: 458/3 
00459      *ICSERIES                                 S            # (OBSOLETE)                                                      
            D2T2    155                                                             UM                                              
00460       WIREWRAP TEST                                         # (OBSOLETE)                                                      
            D2T2    156                                                             UM                                              
00461/1     DISTRIBUTION             *FS             SA  G  DIST    UBC:DIST.S                                                      
            D3.1T1  275  DISTRIBUTION.*FS.SA.1              1 LINE     80   96 PAGE UM   MTA                 MAR. 06, 1974  04:06.02
0          D3.1 VERSION OF FILE SAVE AND RESTORE PROGRAM ORIGINALLY FROM UBC.  SAVES DISK FILES ON MAG TAPE,
           MAINTAINING A DIRECTORY AND PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION.
           COPIES COPY:DRDSECT (461/16). ASSEMBLE USING *SYSMAC. CALLS SNIFF SUBROUTINE (461/2).
           SEVERAL BUGS FIXED SINCE D3.
0          Referenced by comments of: 461/3 
00461/2     DISTRIBUTION             SNIFF SUBR      SA  G  SNIF    MTS:FS.SNIFF(1,999)                                             
            D3.1T1  276  DISTRIBUTION.SNIFF_SUBR.SA.2       1 LINE     80    4 PAGE UM   MTA                 MAR. 06, 1974  04:06.26
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: 461/1, 461/3 
00461/3     DISTRIBUTION             *FS             OE  G          *FS                                                             
            D3.1T1  277  DISTRIBUTION.*FS.OE.3              1 SEQE  23132    9 PAGE UBC  MTA                 MAR. 06, 1974  04:06.28
0          OBJECT FOR *FS (461/1) AND SNIFF SUBROUTINE (461/2).
00461/4     DISTRIBUTION             *FS WRITEUP     WF             MTS:FS.WRUP                                                     
            D3T3     28  DISTRIBUTION.DIST_WRITEUP.WF.4     1 LINE    117    6 PAGE UBC  MTA                 AUG. 01, 1973  18:26.14
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00461/5     DISTRIBUTION             *DEDIT          SA  G  DED0    WSG:DEDIT                                                       
            D3.1T1  278  DISTRIBUTION.*DEDIT.SA.5           1 LINE     80   32 PAGE UM   WSG                 MAR. 06, 1974  04:06.30
0          DISTRIBUTION DRIVER/COMMENT FILE EDITOR PROGRAM.
           THIS PROGRAM IS USED TO CONSTRUCT AND EDIT A DISTRIBUTION DRIVER FILE SUCH AS 461/11.
           IT ALSO ALLOWS COMMENTS TO BE ENTERED IN THE DRIVER FILE (OR ANOTHER FILE) FOR EACH COMPONENT.
           COPIES COPY:DRDSECT (461/16).
            
           FOR D3.1, THIS PROGRAM HAS BEEN EXPANDED AND CHANGED AS FOLLOWS:
            (1) THE "DELETE" COMMAND NOW ALSO DELETES ANY ASSOCIATED COMMENTS.
            (2) IMPROVED END-OF-FILE AND BEGINNING-OF-FILE HANDLING.
            (3) ADDITION OF THE "LINE" COMMAND, WHICH IS SIMILIAR TO THE EDITOR'S LINE COMMAND IN THAT IT ACCEPTS
                *F (OR FIRST), *L (OR LAST), OR A LINE NUMBER (IN THE DRIVER FILE) AS PARAMETERS.
                IT PRINTS THE CURRENT LINE NUMBER IF NO PARAMETER IS GIVEN.
            (4) THE "SAVE" COMMAND WRITES THE CURRENT DRIVER LINE INTO AN AUXILIARY FILE AT THE SAME LINE NUMBER.
                THIS COMMAND IS USEFUL FOR PRODUCING A SETSET OF A LARGER DRIVER FILE, E.G. PRODUCING THE D3.1
                DRIVER FILE FROM THE COMPLETE FILE.
            (5) THE "LIST" AND "PLIST" COMMANDS HAVE BEEN CHANGED TO REQUIRE THE WORD "ON" BEFORE THE OPTIONAL
                OUTPUT FDNAME. A LIST OF PEOPLE NAMES (SEPARATED BY COMMAS) MAY FOLLOW TO SPECIFY A SUBSET TO BE PRINTED.
            (6) A "STOP" COMMAND HAS BEEN ADDED.
            (7) AN "ASSIGN" COMMAND HAS BEEN ADDED WHICH ALLOWS A CHARACTER STRING (THE SECOND PARAMETER) TO BE
                ASSOCIATED WITH AN OUTPUT TAPE NAME (THE FIRST PARAMETER), E.G. "ASSIGN D3T1 S1234 'DIST 3 TAPE 1'".
                THIS COMMAND IS USED IN CONJUNCTION WITH THE "REDISTRIBUTE" COMMAND.
            (8) THE "REDISTRIBUTE" COMMAND HAS BEEN ADDED (IN CONJUCTION WITH "ASSIGN") WHICH CAUSES THE FDNAME
                FIELD FOR THE CURRENT COMPONENT TO BE REPLACED BY THE CHARACTER STRING ASSIGNED TO THE COMPONENT'S
                OUTPUT TAPE NAME, FOLLOWED BY "FSNAME=" AND THE OUTPUT FSNAME FOR THE COMPONENT.
                THE INPUT FILE NUMBER IS ALSO REPLACED BY THE OUTPUT FILE NUMBER.  THIS COMMAND IS USED WHEN A COMPONENT
                HAS NOT CHANGED SINCE THE LAST DISTRIBUTION AND THE CURRENT LOCATION IS ON THAT DISTRIBUTION TAPE.
00461/6     DISTRIBUTION             *DEDIT          OE  G          *DEDIT                                                          
            D3.1T1  279  DISTRIBUTION.*DEDIT.OE.6           1 SEQE   7182    4 PAGE UM   WSG                 MAR. 06, 1974  04:06.35
00461/7     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/8     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/9     DISTRIBUTION             CLEAN COMMENTS  SA  G  CCOM    WSG:CLEANCOMM(1,999)                                            
            D3T3     33  DISTRIBUTION.CLEAN_COMMENT.SA.9    1 LINE     80    3 PAGE UM   WSG                 AUG. 01, 1973  18:28.16
0          PROGRAM TO GENERATE A NEW DISTRIBUTION COMMENT FILE FROM EXISTING DRIVER AND COMMENT FILES.
           I/O ASSIGNMENTS:    0 -- DRIVER FILE
                               1 -- OLD COMMENT FILE
                               2 -- NEW COMMENT FILE (SHOULD HAVE NOTHING AT NEG LINE NUMBERS)
           THIS PROGRAM MAKES ONE PASS THROUGH THE DRIVER FILE (UNIT 0) AND FOR EACH COMP WHICH HAS ANY
           COMMENTS, IT COPIES THEM FROM THE OLD COMMENT FILE (UNIT 1) TO THE NEW COMMENT FILE (UNIT 2)
           AND CHANGES THE LINE NUMBERS TO COMPACT THEM WITHIN THE NEGATIVE LINE NUMBER RANGE.  IT THEN
           REPLACES THE COMMENT LINE NUMBER FIELD IN EACH SUCH DRIVER FILE LINE SO THAT IT POINTS TO THE
           LINE NUMBER OF THE COMMENTS IN THE NEW FILE.  NO CHANGES ARE MADE TO THE OLD COMMENT FILE,
           BUT CHANGES IN THE COMMENT LINE NUMBER FIELD (DRDECLN) ARE MADE IN THE DRIVER FILE.  A SIDE
           EFFECT OF THIS PROCESS IS TO ELIMINATE (I.E. NOT COPY) ANY UNREFERENCED COMMENTS.
1                                                                                               FRI AUG 02/96   18:37:32   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          COPIES COPY:DRDSECT (461/16).
00461/10    DISTRIBUTION             CLEAN COMMENTS  OC  G          WSG:CLEANCOMM(1000)                                             
            D3T3     34  DISTRIBUTION.CLEAN_COMMENT.OC.10   1 LINE     80    1 PAGE UM   WSG                 AUG. 01, 1973  18:28.18
00461/11    DISTRIBUTION             CURRENT DRIVER  D              MTS:DRIVER                                                      
            D3.1T1  562  DISTRIBUTION.CURRENT_DRIVE.D.11    1 LINE    235  131 PAGE UM   WSG                 MAR. 08, 1974  15:20.14
0          THIS IS THE CURRENT COMPLETE UM DRIVER FILE (FOR ALL COMPONENTS, NOT JUST D3.1).
0          Referenced by comments of: 461/17 
00461/12    DISTRIBUTION             CURRENT COMM    D              MTS:COMM                                                        
            D3.1T1  563  DISTRIBUTION.CURRENT_COMM.D.12     1 LINE    124   60 PAGE UM   WSG                 MAR. 08, 1974  15:21.49
0          THIS IS THE CURRENT COMPLETE UM DIST COMMENT FILE (IT IS ALSO THE D3.1 COMMENT FILE).
00461/13    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.
00461/14    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/15    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/16    DISTRIBUTION             DRIVER DSECT    SA  G  DRVD    COPY:DRDSECT                                                    
            D3T3     26  DISTRIBUTION.DRIVER_DSECT.SA.2     1 LINE     80    1 PAGE UM   WSG                 AUG. 01, 1973  18:26.08
0          COPY SECTION FOR DRIVER FILE DSECT (USED BY *FS, *DEDIT, CLEANCOMM, ETC.).
           IT DEFINES THE STRUCTURE OF A DIST DRIVER FILE RECORD.
0          Referenced by comments of: 461/1, 461/5, 461/9 
00461/17    DISTRIBUTION             D3.1 DRIVER     D              MTS:D3.1DRIVER                                                  
            D3.1T1  564  DISTRIBUTION.D3.1_DRIVER.D.17      1 LINE    235   38 PAGE UM   WSG                 MAR. 08, 1974  15:22.39
0          THIS IS THE D3.1 1600 BPI DRIVER FILE.  THIS FILE, A SUBSET OF THE CURRENT COMPLETE DRIVER (461/11),
           WAS USED TO MAKE THE D3.1 1600 BPI TAPE.
00461/18    DISTRIBUTION             DRIV INDEX GEN  C              WSG:D3.1INDEX                                                   
            D3.1T1  280  DISTRIBUTION.DRIV_INDEX_GE.C.18    1 LINE    133    1 PAGE UM   WSG                 MAR. 06, 1974  17:40.31
0          COMMAND FILE TO PRODUCE AN INDEX FROM A DRIVER FILE.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00461/19    DISTRIBUTION             D3.1 DRIVE 800  D              MTS:D3.1DRIVE800                                                
            D3.1T1  565  DISTRIBUTION.D3.1_DRIVE_80.D.19    1 LINE    235   38 PAGE UM   WSG                 MAR. 08, 1974  15:23.11
0          THIS IS THE D3.1 800 BPI DRIVER FILE.  IT HAS THE FILE NUMBERS FOR THE 2 800 BPI D3.1 TAPES.
00462/1     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), AND COPY:MTS.TV (640). 
           NEEDS MACROS IN COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1, 462/2 
00462/2     CHECKSUM                 D3.1 UPDATE     UU  G          MTS:CHKSUPD                                                     
            D3.1T1  281  CHECKSUM.D3.1_UPDATE.UU.2          1 LINE     35    1 PAGE UM   DWB                 MAR. 06, 1974  17:40.32
0          UPDATE TO D3 MASTER (462/1) TO PRODUCE D3.1 SOURCE.
           UPDATE DECK USES %POSN *IN* CHKS.
00462/3     CHECKSUM                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00463/1     STANDARD DUMP                            SA  G          S0722 'D3T3' FSNAME=STANDARD_DUMP..SA.1                       37
            D3T3     37  STANDARD_DUMP..SA.1                1 SEQ      80    7 PAGE UM   DWB                 AUG. 01, 1973  18:30.34
0          PRODUCES STANDARD FORMAT DUMPS.  SEE ALSO SDUMP (049).
0          Referenced by comments of: 42/4 
00463/2     STANDARD DUMP                            OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00464/1     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), AND COPY:MTS.TV (640). 
           NEEDS MACROS IN COPY:MTS.MACROS (344).
0          Referenced by comments of: 344/1, 464/2 
00464/2     PLIMIT                   D3.1 UPDATE     UU  G          MTS:PLIMUPD                                                     
            D3.1T1  282  PLIMIT.D3.1_UPDATE.UU.2            1 LINE     55    1 PAGE UM   DWB                 MAR. 06, 1974  17:40.35
0          UPDATE TO D3 MASTER (464/1) TO PRODUCE D3.1 SOURCE.
           UPDATE DECK USES %POSN *IN* PLIM.
00464/3     PLIMIT                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00465/1    *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/2    *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/3    *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/4    *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 
00465/5    *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/6    *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/7    *APL                      COMPIL/INTERPR  S            # (NOT AVAILABLE)                                                 
                                                                                    UM   DWB                                        
0          APL COMPILER/INTERPRETER.  NO SOURCE AVAILABLE.
00465/8    *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/9    *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"
1                                                                                               FRI AUG 02/96   18:37:32   Page  126
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY.
00466/1     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/2     ACTIVCNT/ASTATSUB                        OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00467/1     ENDSEG2                                  SA  G  ENDS    S0517 'D2T1' FMT=FB(4000,80)                                 103
            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.
00467/2     ENDSEG2                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00468/1     SYSTEM OBJECT DECK       UM D3.1 DUPLEX  OC  G          MTS:SYSOBJ/D3.1                                                 
            D3.1T1  283  SYSTEM_OBJECT_DECK.UM_D3.1.OC.1    1 LINE     80  155 PAGE UM   MTA                 MAR. 06, 1974  17:40.37
0          ENTIRE RESIDENT SYSTEM OBJECT DECK FOR THE UM DUPLEX 360/67.
           ACTUALLY, THIS DECK IS IN 3 PARTS:  THE FIRST IS THE REAL CORE RESIDENT OBJECT (THE SUPERVISOR, PDP, ETC.),
           THE SECOND IS THE SHARED VM INITIAL OBJECT (MTS, THE FILE SYSTEM, ETC.), AND THIRD, AFTER A LOAD TERMINATE (LDT)
           CARD, A DECK WHICH CAN BE IPLED AFTER THE FIRST IPL (OF PARTS 1 AND 2) TO WRITE THE CONTENTS OF MEMORY AS AN IPL
           RECORD ONTO A DISK.
            
           NOTE:  THERE ARE REP CARDS IN THIS DECK AS FOLLOWS:
            
               DUMP      (399)
               CONFIG    (046)      SET DATE TO 1974
               CATL      (482/23)
               READL     (482/15)
               IPL       (156)      SET SIZE OF REAL AND VM
0          Referenced by comments of: 156/1, 634/4 
00468/2     SYSTEM OBJECT DECK       D3 SIMPLEX      OC  G          S0724 'D3T5' FSNAME=SYSTEM_OBJECT_DECK.SIMPLEX.OC.2          261
            D3T5    261  SYSTEM_OBJECT_DECK.SIMPLEX.OC.2    1 LINE     80  157 PAGE UM   MTA                 AUG. 11, 1973  01:30.03
00468/3     SYSTEM OBJECT DECK       WRITEUP         WF             MTS:D3.OBJDECK                                                  
            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 DECK.
00469       360/20 RJE SUPPORT PGM                   S            # (OBSOLETE)                                                      
            D2T1    094                                                             UM                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00470       PCB DSECT                COPY:PCBDSECT   SA  G          COPY:PCBDSECT                                                   
            D3T3     51  PCB_DSECT.COPY:PCBDSECT.SA.        1 SEQ      80    2 PAGE UM   MTA                 AUG. 01, 1973  18:36.08
0          DSECT FOR THE PAGE CONTROL BLOCK.  COPIED BY THE SUPERVISOR, PDP, CONFIG.
0          Referenced by comments of: 44/1, 45/1, 46/1, 400/1, 577/25 
00471/1     REX                      MONITOR         SA  G  REX0    MTA:REXS                                                        
            D3T3     52  REX.MONITOR.SA.1                   1 SEQ      80   75 PAGE UM   MTA                 AUG. 01, 1973  18:36.10
0          CUSTOMER ENGINEER I/O EXERCISOR PROGRAM WRITEN BY IBM C.E. ROLF WITZSCHE AT UBC.  PAPER DOCUMENTATION INCLUDED IN
           DISTRIBUTION.
            
           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.
00471/2     REX                      MONITOR         OC  G          MTA:REX                                                         
            D3T3     53  REX.MONITOR.OC.2                   1 SEQ      80    7 PAGE UM   MTA                 AUG. 01, 1973  18:37.21
00471/3     REX                      UDT TABLE       S   G  REXU    MTA:REXUDT                                                      
            D3T3     54  REX.UDT_TABLE.S.3                  1 LINE     80    2 PAGE UM   MTA                 AUG. 01, 1973  18:37.27
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/4     REX                      PGM SECTIONS    S   G  REXC    MTA:REXCS                                                       
            D3T3     55  REX.PGM_SECTIONS.S.4               1 SEQ      80  123 PAGE UM   MTA                 AUG. 01, 1973  18:37.32
0          PROGRAM SECTIONS WHICH MUST BE ASSEMBLED BY REX, NOT *ASMG (SEE 471/6 AND 471/7).
00471/5     REX                      REXC            O   G          MTA:REXC                                                        
            D3T3     56  REX.REXC.O.5                       1 LINE     80   16 PAGE UM   MTA                 AUG. 01, 1973  18:39.48
0          OBJECT FOR UDT TABLE AND PROGRAM SECTIONS (471/3 AND 471/4).
           NOTE:  THIS IS NOT ASMG OBJECT FORMAT.
00471/6     REX                      REXGEN          C              MTA:REXGEN                                                      
            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/7     REX                      REXGEN1         C              MTA:REXGEN1                                                     
            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).
00472/1    *ST360                    MAIN PGM        SA  G  STMN    MTA:SVMNSOU                                                     
            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
1                                                                                               FRI AUG 02/96   18:37:32   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             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
00472/2    *ST360                    CCWTRANS SUBR   SA  G  CCWT    S0518 'D2T2' FMT=FB(4000,80)                                 158
            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
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                                              
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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/1     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/2     FILE SYSTEM              DASDUC          OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
00482/3     FILE SYSTEM              MOVIT           SA  G  MOVE    W045:PF.MOVE                                                    
            D3T3     69  FILE_SYSTEM.MOVIT.SA.3             1 LINE     80    4 PAGE UM   PIRKOLA             AUG. 01, 1973  18:54.25
0          SUBROUTINE TO MOVE CORE AROUND.
00482/4     FILE SYSTEM              MOVIT           OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
00482/5     FILE SYSTEM              VOLGET          SA  G  VGET    W045:PF.VOLGET                                                  
            D3T3     70  FILE_SYSTEM.VOLGET.SA.5            1 LINE     80   20 PAGE UM   PIRKOLA             AUG. 01, 1973  18:54.27
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/6     FILE SYSTEM              VOLGET          OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
00482/7     FILE SYSTEM              TRAK            SA  G  TRAK    W045:PF.TRAK                                                    
            D3.1T1  284  FILE_SYSTEM.TRAK.SA.7              1 LINE     80   16 PAGE UM   PIRKOLA             MAR. 06, 1974  17:41.38
0          BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE
           PHYSICAL RECORDS.  COPIES COPY:FCBEQU (482/27) AND COPY:DSKDSCT (482/42).
            
           FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO USE SOFTWARE COMMAND CHAINING FOR 2314'S
           AND 2311'S.  NOTE:  THE D3.1 SUPERVISOR IS REQUIRED FOR THIS CHANGE.
00482/8     FILE SYSTEM              TRAK            OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
00482/9     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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                                                    
            D3T3     74  FILE_SYSTEM.READI.SA.11            1 LINE     80   14 PAGE UM   PIRKOLA             AUG. 01, 1973  18:54.48
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)                                  
                                                                                    UM   PIRKOLA                                    
00482/13    FILE SYSTEM              WRITEI          SA  G  WRIT    W045:PF.WRITEI                                                  
            D3T3     75  FILE_SYSTEM.WRITEI.SA.13           1 LINE     80   30 PAGE UM   PIRKOLA             AUG. 01, 1973  18:54.52
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)                                  
                                                                                    UM   PIRKOLA                                    
00482/15    FILE SYSTEM              READL           SA  G  REDL    W045:PF.READL                                                   
            D3T3     76  FILE_SYSTEM.READL.SA.15            1 LINE     80   11 PAGE UM   PIRKOLA             AUG. 01, 1973  18:55.06
0          SUBROUTINE TO FIND THE FIRST OR LAST LINE NUMBER IN A FILE.
           ALSO CONTAINS A SUBROUTINE TO RENUMBER A LINE FILE.  COPIES COPY:FCBEQU (482/27).
0          Referenced by comments of: 468/1 
00482/16    FILE SYSTEM              READL           OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
0          ***** NOTE:  THIS OBJECT CONTAINS A REP CARD.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00482/17    FILE SYSTEM              OPEN ETC        SA  G  OPEN    W045:PF.OPEN                                                    
            D3T3     77  FILE_SYSTEM.OPEN_ETC.SA.17         1 LINE     80   62 PAGE UM   PIRKOLA             AUG. 01, 1973  18:55.09
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)                                  
                                                                                    UM   PIRKOLA                                    
00482/19    FILE SYSTEM              GETDSK ETC      SA  G  GDSK    W045:PF.GETDSK                                                  
            D3T3     78  FILE_SYSTEM.GETDSK_ETC.SA.19       1 LINE     80   27 PAGE UM   PIRKOLA             AUG. 01, 1973  18:55.43
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)                                  
                                                                                    UM   PIRKOLA                                    
00482/21    FILE SYSTEM              FLINE           SA  G  FLIN    W045:PF.FLIN                                                    
            D3T3     79  FILE_SYSTEM.FLINE.SA.21            1 LINE     80    9 PAGE UM   PIRKOLA             AUG. 01, 1973  18:55.48
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)                                  
                                                                                    UM   PIRKOLA                                    
00482/23    FILE SYSTEM              CATALOG SUBR    SA  G  CSBR    W045:PF.CATL                                                    
            D3T3     80  FILE_SYSTEM.CATALOG_SUBR.SA.23     1 LINE     80   68 PAGE UM   PIRKOLA             AUG. 01, 1973  18:55.51
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).
0          Referenced by comments of: 468/1 
00482/24    FILE SYSTEM              CATALOG SUBR    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
0          ***** NOTE: THIS OBJECT CONTAINS A REP CARD.
00482/25    FILE SYSTEM              READ/WRITE SEQ  SA  G  RWSE    W045:PF.RWSEQ                                                   
            D3T3     81  FILE_SYSTEM.READ/WRITE_SEQ.SA.25   1 LINE     80   27 PAGE UM   PIRKOLA             AUG. 01, 1973  18:56.08
0          SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES.
           COPIES COPY:FCBEQU (482/27)
00482/26    FILE SYSTEM              READ/WRITE SEQ  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
00482/27    FILE SYSTEM              FCBEQU          SA  G  FCBE    COPY:FCBEQU                                                     
            D3T3     82  FILE_SYSTEM.FCBEQU.SA.27           1 LINE     80    4 PAGE UM   PIRKOLA             AUG. 01, 1973  18:56.19
0          DEFINITION OF A FILE CONTROL BLOCK. COPIED BY MOST FILE ROUTINES, BUT NOT MTS.
1                                                                                               FRI AUG 02/96   18:37:32   Page  132
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 67/2, 67/4, 92/2, 104/93, 104/95, 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, 597/1 
00482/28    FILE SYSTEM              CATEQU          SA  G  CATE    COPY:CATEQU                                                     
            D3T3     83  FILE_SYSTEM.CATEQU.SA.28           1 LINE     80    4 PAGE UM   PIRKOLA             AUG. 01, 1973  18:56.21
0          DEFINITION OF THE CATALOG FORMAT. COPIED BY MOST FILE ROUTINES.
0          Referenced by comments of: 67/1, 67/2, 92/2, 97/6, 104/91, 104/93, 104/95, 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.1T1  285  FILE_SYSTEM.ICEQU.SA.29            1 LINE     80    3 PAGE UM   PIRKOLA             MAR. 06, 1974  17:41.43
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.1T1  286  FILE_SYSTEM.TABLRTN.SA.30          1 LINE     80   48 PAGE UM   PIRKOLA             MAR. 06, 1974  17:41.44
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)                                  
                                                                                    UM   PIRKOLA                                    
00482/32    FILE SYSTEM              GETFINF         SA  G  GETF    W045:PF.GETFINF                                                 
            D3T3     86  FILE_SYSTEM.GETFINF.SA.32          1 LINE     80   11 PAGE UM   PIRKOLA             AUG. 01, 1973  18:56.58
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)                                  
                                                                                    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"
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"
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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                                                   
            D3T3     94  FILE_SYSTEM.DSCBDSCT.SA.41         1 LINE     80    1 PAGE UM   PIRKOLA             AUG. 01, 1973  18:58.05
0          DSECT FOR DSCB USED BY FILE ROUTINES.
0          Referenced by comments of: 67/1, 67/2, 67/4, 104/95, 482/17, 482/19, 482/23, 502/13, 597/1, 598/1, 642/1 
00482/42    FILE SYSTEM              DSKDSCT         SA  G  DSKD    COPY:DSKDSCT                                                    
            D3T3     95  FILE_SYSTEM.DSKDSCT.SA.42          1 LINE     80    2 PAGE UM   PIRKOLA             AUG. 01, 1973  18:58.08
0          DSECT FOR DISK TABLE DSECT USED BY FILE ROUTINES.
0          Referenced by comments of: 4/1, 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                                                     
            D3T3     96  FILE_SYSTEM.PATEQU.SA.43           1 LINE     80    1 PAGE UM   PIRKOLA             AUG. 01, 1973  18:58.10
0          EQU'S FOR PAGE ASSIGNMENT TABLE USED BY RESTORE AND OTHERS.
0          Referenced by comments of: 67/1, 67/4, 482/19, 597/1 
00482/44    FILE SYSTEM              FSMAC           SA  G          W045:FSMAC                                                      
            D3T3     97  FILE_SYSTEM.FSMAC.SA.44            1 LINE     72    3 PAGE UM   PIRKOLA             AUG. 01, 1973  18:58.12
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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00482/45    FILE SYSTEM              FSTEST          SA  G  FSTS    W047:FSTEST.S                                                   
            D3T3     98  FILE_SYSTEM.FSTEST.SA.45           1 LINE     80   18 PAGE UM   HAMILTON            AUG. 01, 1973  18:58.16
0          NEW FILE SYSTEM TEST PROGRAM.  SEE WRITEUP (482/47).  COPIES COPY:FCBEQU (482/27).  ASSEMBLE WITH *SYSMAC AND PAR=B.
           USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES.
0          Referenced by comments of: 482/47 
00482/46    FILE SYSTEM              FSTEST          OC  G          W047:FSTEST                                                     
            D3T3     99  FILE_SYSTEM.FSTEST.OC.46           1 LINE     80    6 PAGE UM   HAMILTON            AUG. 01, 1973  18:58.27
00482/47    FILE SYSTEM              FSTEST WRITEUP  PF             W047:FSTEST.W                                                   
            D3T3    100  FILE_SYSTEM.FSTEST_WRITEUP.P.47    1 LINE     69    3 PAGE UM   HAMILTON            AUG. 01, 1973  18:58.32
0          WRITEUP DESCRIBING THE FILE SYSTEM TEST PROGRAM (482/45).  COPY TO A TN PRINTER.
0          Referenced by comments of: 482/45 
00483/1    *WATFIV                   UPDATE          UU  G          WATF:WAT5.SGEN                                                  
            D3T3    101  WATFIV.UPDATE.UU.1                 1 LINE     80   21 PAGE UM   BLINN               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).
            
           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
1                                                                                               FRI AUG 02/96   18:37:32   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              (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/2    *WATFIV                   FIOCS           SA     FIOC    WATF:WAT5.FIOCS.S                                               
            D3T3    102  WATFIV.FIOCS.SA.2                  1 LINE     80   20 PAGE UM   BLINN               AUG. 01, 1973  18:58.44
0          ASSEMBLE WITH *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/1 
00483/3    *WATFIV                   DIOCS           SA     DIOC    WATF:WAT5.DIOCS.S                                               
            D3T3    103  WATFIV.DIOCS.SA.3                  1 LINE     80    3 PAGE UM   BLINN               AUG. 01, 1973  18:58.49
0          ASSEMBLE WITH *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO.
0          Referenced by comments of: 483/1 
00483/4    *WATFIV                   DEFAULT         SA     DFLT    WATF:WAT5.DFALT.S                                               
            D3T3    104  WATFIV.DEFAULT.SA.4                1 LINE     80    4 PAGE UM   BLINN               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).
0          Referenced by comments of: 483/1 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00483/5    *WATFIV                   OBJECT          OE           # *WATFIV                                                         
                                                                                    UM   BLINN                                      
0          NOTE:  BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED.
00483/6    *WATFIV                   TEST DECKS      SF             WATF:WAT5.TEST                                                  
            D3T3    105  WATFIV.TEST_DECKS.SF.6             1 LINE     97    6 PAGE UM   BLINN               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/7    *WATFIV                   USER'S GUIDE    WF             S0722 'D3T3' FSNAME=WATFIV.USER'S_GUIDE.WF.7                 106
            D3T3    106  WATFIV.USER'S_GUIDE.WF.7           1 LINE    130    5 DISK UM   BLINN               MAR. 15, 1973  18:03.51
0          THIS IS COMPUTING CENTER MEMO M161 -- "WATFIV USER'S GUIDE"
           NOTE THAT ONLY PART OF CCMEMO M161 IS INCLUDED HERE SINCE MUCH OF IT IS SIMPLY 
           REPRODUCED FROM OTHER SOURCES (WATERLOO OR UBC).
00484      *ACCRESTORE                               OE  G          MTS:ACCREST/D3.1                                                
            D3.1T1  288  ACCRESTORE..OE.                    1 LINE    255    3 PAGE UM   ENGLE               MAR. 06, 1974  17:42.07
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/25), THE MAIN PROGRAM, PLUS CURSIG (104/71), ACATALOG (104/92),
           GETFILE (104/90), ACCIO (104/19), AND ACCFLUPD (104/67).
0          Referenced by comments of: 136/2 
00485/1    *PLC                      UPDATE          UU  G          W061:PLCUPDATE                                                  
            D3.1T1  289  PLC.UPDATE.UU.1                    1 LINE     73   10 PAGE UM   GOODRICH            MAR. 06, 1974  17:42.10
0          D3.1 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.
            
           FOR D3.1, AN ERROR IN ZZSR BASE REGISTER SPECIFICATION HAS BEEN FIXED.
00485/2    *PLC                      INSTALLATION    P              W061:PLC.INSTALL                                                
            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/3    *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"
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00486/1    *HBQ                                      SA  G  HBQ0    W092: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/2    *HBQ                                      OE  G          *HBQ                                                            
            D3T3    112  HBQ..O.2                           1 LINE    255    3 PAGE UM   JWS                 AUG. 03, 1973  21:26.19
00487/1     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 LABEL MAGNETIC TAPES.
           AS DISTRIBUTED, IT PRODUCES THE MTS VERSION (*LABEL).  IF "&OPER SETB 1" IS ADDED AFTER LINE 10,
           THE OPERATOR'S VERSION (*LBL) IS PRODUCED WHICH WILL ALLOW A COMPLETELY BLANK TAPE TO BE LABELED.
           THE PROGRAM PROMPTS FOR:  THE TAPE PSEUDO-DEVICE NAME, DENSITY, VOLUME NAME, AND OWNER ID.
           ENTERING JUST THE PDN AND DENSITY, BUT NO VOLUME NAME, CAUSES 6 TAPE-MARKS TO BE WRITTEN ON THE TAPE.
           COPIES COPY:LLMPSEQU (087).
0          Referenced by comments of: 487/4 
00487/2     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/3     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/4     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 
           LABELING 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 
00488       CONTROL                                  SA           # (OBSOLETE)                                                      
            D2.3    035                                                             UM                                              
00489/1     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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0              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*
            
           FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO ADD THE "RB" (READ BACKWARD) COMMAND AND TO PRINT
           EXPIRATION DATE AS PART OF THE SNS DATA.
00489/2     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/1    *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/2    *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.
00490/3    *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/1    *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.
1                                                                                               FRI AUG 02/96   18:37:32   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           
           THERE IS A "$CONTINUE WITH *DUMMY*" RECORD AT THE END OF THIS FILE.
00491/2    *SCRAMBLE                 WRITEUP         WT  O          S0027 DISTRB FSNAME=SCRMBLWRITUP                                
            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/1    *DCALC                                    SP  G          MTA:DCALCS                                                      
            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/2    *DCALC                                    OE  G          *DCALC                                                          
            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/1    *TALLY                                    SA  G  TALY    W044:TALLYSOU                                                   
            D3T3    125  TALLY..SA.1                        1 LINE     80    8 PAGE UM   SALISBURY           AUG. 03, 1973  21:27.17
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/2    *TALLY                    SIM SUBR        SA  G  TSIM    W044:TALLYSIMSOU                                                
            D3T3    126  TALLY.SIM_SUBR.SA.2                1 LINE     80   25 PAGE UM   SALISBURY           AUG. 03, 1973  21:27.22
00493/3    *TALLY                                    OC  G          *TALLY                                                          
            D3T3    127  TALLY..OC.3                        1 LINE     80    4 PAGE UM   SALISBURY           AUG. 03, 1973  21:27.34
00494/1     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).
            
           *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS.
00494/2     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/3     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/4     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00494/5     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/6     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/7     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/8     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/9     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.)
00495/1    *EXPL                     SUBMONITOR      SA     XMON    W034:XMON.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/2    *EXPL                     SUBMONITOR      OC             W034:XMON.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/3    *EXPL                     COMPILER        SX             W034:XCOM                                                       
            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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00495/4    *EXPL                     COMPILER        OE             W034:XPL.V4                                                     
            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/5    *EXPL                     XPLBNF          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/6    *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/1    *APC                                      SA     APC0    DWB:UD19.APC.S                                                  
            D3T3    144  APC..SA.1                          1 LINE     80   17 PAGE UBC  DWB                 AUG. 03, 1973  21:34.38
0          UBC ALL PURPOSE FILE COMPARE PROGRAM.
00496/2    *APC                                      OE             *APC                                                            
            D3T3    145  APC..O.2                           1 SEQ    1720    1 PAGE UBC  DWB                 AUG. 03, 1973  21:34.51
00497/1    *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/2    *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/3    *SNAP                                     OE  G          *SNAP                                                           
            D3T3    148  SNAP..OE.3                         1 SEQ    5212   27 PAGE UM   FLANIGAN            AUG. 03, 1973  21:36.24
00498/1    *IG                       IG.EQUS         SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.EQUS                         
            D3T3    149  IG.IG.EQUS.SA.1                    1 LINE     71    2 DISK UM   BLINN               APR. 23, 1973  15:25.43
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.  MANY OF THE 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 SOMETIMES COPIED AS "W114:IG.EQUS" BY
           OTHER SUB-COMPONENTS.
00498/2    *IG                       IG.DI           SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.DI.S                         
            D3T3    150  IG.IG.DI.SA.2                      1 LINE     87   14 DISK UM   BLINN               JUNE 28, 1973  23:28.15
0          COMPS 498/2 THROUGH 498/7 ARE THE SOURCE FOR *IG (498/9).
            
           COMP 498/2 IS DEVICE INTERFACE ROUTINES IGINIT, IGDRON, IGXYIN, IGPICK, IGCTRL, AND IGSENS.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00498/3    *IG                       IG.DSM          SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.DSM.S                        
            D3T3    151  IG.IG.DSM.SA.3                     1 LINE     80    8 DISK UM   BLINN               JUNE 28, 1973  23:29.20
0          DATA STRUCTURE MODIFICATION ROUTINES.
00498/4    *IG                       IG.ETDD         SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.ETDD.S                       
            D3T3    152  IG.IG.ETDD.SA.4                    1 LINE     82    5 DISK UM   BLINN               APR. 23, 1973  15:27.28
0          DEVICE PARAMETER DECODER AND DEVICE ID ROUTINE.
00498/5    *IG                       IG.MISC         SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.MISC.S                       
            D3T3    153  IG.IG.MISC.SA.5                    1 LINE     95    6 DISK UM   BLINN               APR. 23, 1973  15:27.52
0          ROUTINES IGFMT, IGTXT, AND ERRCOM#.
00498/6    *IG                       IG.PWRIT        SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.PWRIT.S                      
            D3T3    154  IG.IG.PWRIT.SA.6                   1 LINE     88    5 DISK UM   BLINN               APR. 23, 1973  15:28.15
0          INTERFACE TO CALCOMP PLOTTER ROUTINES (PDS).  CONTAINS A REPLACEMENT FOR THE ROUTINE #PWRIT.
00498/7    *IG                       IG.VEC          SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.VEC.S                        
            D3T3    155  IG.IG.VEC.SA.7                     1 LINE     79    5 DISK UM   BLINN               MAY  14, 1973  21:06.46
0          ROUTINES WHICH ADD DATA TO NIBBLE BUFFERS WITHIN LEAVES.
           CONTAINS IGVEC, IGMA, IGDA, IGMR, IGDR, AND AN INTERFACE TO IGTXT AND IGFMT.
00498/8    *IG                       IG.RELINK       C              S0596 BLAH 'IG ROUTINES' FSNAME=IG.RELINK                       
            D3T3    156  IG.IG.RELINK.C.8                   1 LINE     61    1 DISK UM   BLINN               APR. 23, 1973  15:30.38
0          SOURCE FILE TO LINKEDIT OBJECT FILES FOR *IG.
00498/9    *IG                       OBJECT          OL             *IG                                                             
            D3T3    157  IG.OBJECT.OL.9                     1 SEQ   13541    6 PAGE UM   BLINN               AUG. 03, 1973  21:39.34
0          Referenced by comments of: 498/2 
00498/10   *IG                       IG.DD           SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.DD                           
            D3T3    158  IG.IG.DD.SA.10                     1 LINE     73    1 DISK UM   BLINN               APR. 23, 1973  15:28.53
0          COPY SECTION FOR DEVICE DEPENDENT ROUTINES (DDR'S).  IT IS SOMETIMES COPIED AS "W114:IG.DD" BY OTHER SUB-COMPONENTS.
00498/11   *IG                       *IG.CCMP        SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.CCMP.S                       
            D3T3    159  IG.*IG.CCMP.SA.11                  1 LINE     81    2 DISK UM   BLINN               APR. 23, 1973  15:28.59
0          DDR FOR CALCOMP PLOTTER.
00498/12   *IG                       *IG.CCMP        OE             *IG.CCMP                                                        
            D3T3    160  IG.*IG.CCMP.OE.12                  1 SEQ     708    1 PAGE UM   BLINN               AUG. 03, 1973  21:39.50
0          ENDS WITH A "$CONTINUE WITH *PLOTSYS" CARD.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00498/13   *IG                       *IG.CK400       SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.CK400.S                      
            D3T3    161  IG.*IG.CK400.SA.13                 1 LINE     83    4 DISK UM   BLINN               MAY  25, 1973  01:00.15
0          DDR FOR COMPUTEK 400 STORAGE TUBE TERMINAL.
00498/14   *IG                       *IG.CK400       OE             *IG.CK400                                                       
            D3T3    162  IG.*IG.CK400.OE.14                 1 SEQ    1788    1 PAGE UM   BLINN               AUG. 03, 1973  21:40.05
00498/15   *IG                       *IG.PEP         SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.PEP.S                        
            D3T3    163  IG.*IG.PEP.SA.15                   1 LINE     81    6 DISK UM   BLINN               MAY  25, 1973  00:59.59
0          DDR FOR PRINCETON ELECTRONICS PRODUCTS 801 LITHICON TUBE DISPLAY TERMINAL.
00498/16   *IG                       *IG.PEP         OE             *IG.PEP                                                         
            D3T3    164  IG.*IG.PEP.OE.16                   1 SEQ    2276    1 PAGE UM   BLINN               AUG. 03, 1973  21:40.15
00498/17   *IG                       *IG.TTY         SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.TTY.S                        
            D3T3    165  IG.*IG.TTY.SA.17                   1 LINE     83    5 DISK UM   BLINN               JUNE 28, 1973  23:29.39
0          DDR FOR TELETYPES.  USED TO GET HARD COPY WHILE DEBUGGING PROGRAMS.
00498/18   *IG                       *IG.TTY         OE             *IG.TTY                                                         
            D3T3    166  IG.*IG.TTY.OE.18                   1 SEQ    3233    1 PAGE UM   BLINN               AUG. 03, 1973  21:40.28
00498/19   *IG                       *IG.TX4002      SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.TX4002.S                     
            D3T3    167  IG.*IG.TX4002.SA.19                1 LINE     76    5 DISK UM   BLINN               APR. 23, 1973  15:29.42
0          DDR FOR TEKTRONIX 4002 STORAGE TUBE DISPLAY.
00498/20   *IG                       *IG.TX4002      OE             *IG.TX4002                                                      
            D3T3    168  IG.*IG.TX4002.OE.20                1 SEQ    1980    1 PAGE UM   BLINN               AUG. 03, 1973  21:40.48
00498/21   *IG                       *IG.TX4010      SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.TX4010.S                     
            D3T3    169  IG.*IG.TX4010.SA.21                1 LINE     85    5 DISK UM   BLINN               APR. 23, 1973  15:29.50
0          DDR FOR TEKTRONIX 401X STORAGE TUBE DISPLAY.
00498/22   *IG                       *IG.TX4010      OE             *IG.TX4010                                                      
            D3T3    170  IG.*IG.TX4010.OE.22                1 SEQ    2072    1 PAGE UM   BLINN               AUG. 03, 1973  21:40.58
00498/23   *IG                       *IG.338         SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.338.S                        
            D3T3    171  IG.*IG.338.SA.23                   1 LINE     82    5 DISK UM   BLINN               APR. 23, 1973  15:30.10
0          DDR FOR DEC 338 DISPLAY RUNNING RAMP 69 OPERATING SYSTEM.
00498/24   *IG                       *IG.338         OE             *IG.338                                                         
            D3T3    172  IG.*IG.338.OE.24                   1 SEQ    1572    1 PAGE UM   BLINN               AUG. 03, 1973  21:41.08
00498/25   *IG                       *IG.339         SA             S0596 BLAH 'IG ROUTINES' FSNAME=IG.339.S                        
            D3T3    173  IG.*IG.339.SA.25                   1 LINE     86    4 DISK UM   BLINN               APR. 23, 1973  15:30.22
0          DDR FOR DEC 339 DISPLAY RUNNING IGRI PROGRAM UNDER SEL EXEC SYSTEM.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00498/26   *IG                       *IG.339         OE             *IG.339                                                         
            D3T3    174  IG.*IG.339.OE.26                   1 SEQ    1102    1 PAGE UM   BLINN               AUG. 03, 1973  21:41.17
00498/27   *IG                       IGRI            S              S0596 BLAH 'IG ROUTINES' FSNAME=IGRI.S                          
            D3T3    175  IG.IGRI.S.27                       1 LINE     82    8 DISK UM   BLINN               APR. 23, 1973  15:30.53
0          PDP-9 ASSEMBLY LANGUAGE SOURCE FOR IG INTERPRETER FOR DEC 339 DISPLAY.
           OBJECT NOT DISTRIBUTED.
00498/28   *IG                       IG.TEST         SF             S0596 BLAH 'IG ROUTINES' FSNAME=IG.TEST.S                       
            D3T3    176  IG.IG.TEST.SF.28                   1 LINE     71    4 DISK UM   BLINN               MAY  14, 1973  21:08.12
0          IG TEST PROGRAM.  OBJECT NOT DISTRIBUTED.
00498/29   *IG                       USER'S GUIDE    WF             S0596 BLAH 'IG ROUTINES' FSNAME=IG.W                            
            D3T3    177  IG.USER'S_GUIDE.WF.29              1 LINE    117   14 DISK UM   BLINN               APR. 23, 1973  20:23.21
00498/30   *IG                       INSTALLATION    WF             S0596 BLAH 'IG ROUTINES' FSNAME=IGIG.W                          
            D3T3    178  IG.INSTALLATION.WF.30              1 LINE    125    8 DISK UM   BLINN               APR. 23, 1973  15:25.02
0          IMPLEMENTATION GUIDE.
00500/1     BILLING                  BILLRFT         SP  G  BLRF    S0027 DISTRB FSNAME=BILLRFT                                     
            D3.1T1  294  BILLING.BILLRFT.SP.1               1 LINE     80   16 PAGE UM   ENGLE               JAN. 31, 1974  17:15.27
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/2     BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=BLRF                                        
            D3.1T1  295  BILLING.BILLRFT.OC.2               1 LINE     80   14 PAGE UM   ENGLE               JAN. 31, 1974  17:15.59
0          REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';).
00500/3     BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=NETBLRF                                     
            D3.1T1  296  BILLING.BILLRFT.OC.3               1 LINE     80   10 PAGE UM   ENGLE               JAN. 31, 1974  17:16.10
0          REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/4     BILLING                  BILLING         SP  G  BILL    S0027 DISTRB FSNAME=BILLING                                     
            D3.1T1  297  BILLING.BILLING.SP.4               1 LINE     80   24 PAGE UM   ENGLE               JAN. 31, 1974  17:18.35
0          PROGRAM TO DO MAIN PART OF BILLING AFTER SORT.
0          Referenced by comments of: 500/11, 500/13, 500/26 
00500/5     BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=BILL                                        
            D3.1T1  298  BILLING.BILLING.OC.5               1 LINE     80   18 PAGE UM   ENGLE               NOV. 12, 1973  11:27.20
0          REGULAR BILLING (COMPILED WITH %NET='';).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00500/6     BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=NETBILL                                     
            D3.1T1  299  BILLING.BILLING.OC.6               1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  17:19.33
0          NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/7     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.
0          Referenced by comments of: 500/12 
00500/8     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/9     BILLING                  BILLWRITEUP     WF  G          S0027 DISTRB FSNAME=BILLWRITEUP                                 
            D3.1T1  300  BILLING.BILLWRITEUP.WF.9           1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  17:21.56
0          WRITEUP FOR RUNNING BILLING.
00500/10    BILLING                  BILLSOURCE      C   G          S0027 DISTRB FSNAME=BILLSOURCE                                  
            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.1T1  302  BILLING.BILLTABLES.D.11            1 LINE     80    6 PAGE UM   ENGLE               JAN. 31, 1974  17:28.38
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                                                   
            D3T3    193  BILLING.DIVISION.D.13              1 LINE    104   12 DISK UM   ENGLE               JAN. 05, 1973  16:41.08
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.1T1  303  BILLING.COVER.D.13                 1 LINE     66    1 PAGE UM   ENGLE               JAN. 31, 1974  17:29.04
0          MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS.  READ BY BILLING (500/4).
00500/14    BILLING                  RESTART         C   G          S0027 DISTRB FSNAME=RESTART                                     
            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.1T1  305  BILLING.BILLLIB.OL.15              1 LINE     80    4 PAGE UM   ENGLE               FEB. 22, 1974  18:27.30
0          LIBRARY FOR BILLING PROGRAMS.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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    S0027 DISTRB FSNAME=FLSH                                        
            D3.1T1  306  BILLING.FLUSH.OC.17                1 LINE     80    1 PAGE UM   ENGLE               JAN. 08, 1974  15:46.26
00500/18    BILLING                  BLPRJFL         SA  G  BPFL    S0722 'D3T3' FSNAME=BILLING.BLPRJFL.SA.18                    198
            D3T3    198  BILLING.BLPRJFL.SA.18              1 LINE     80    4 PAGE UM   ENGLE               JAN. 05, 1973  18:05.37
0          SUBROUTINE TO READ THE NEXT PROJECT RECORD FROM *PROJECT.  CALLED BY BILLRFT (500/1).
           COPIES ACCPROJFMT (104/3).
00500/19    BILLING                  BLPRJFL         OC  G          S0027 DISTRB FSNAME=BPFL                                        
            D3.1T1  307  BILLING.BLPRJFL.OC.19              1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  17:39.09
00500/20    BILLING                  PNLIST          SP  G  PNLS    S0027 DISTRB FSNAME=PNLIST                                      
            D3.1T1  308  BILLING.PNLIST.SP.20               1 LINE     80    5 PAGE UM   ENGLE               NOV. 12, 1973  12:04.33
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.1T1  309  BILLING.PNLIST.OC.21               1 LINE     80    6 PAGE UM   ENGLE               NOV. 12, 1973  12:05.10
00500/22    BILLING                  PNLSEXTR        SA  G  PEXT    S0027 DISTRB FSNAME=PNLSEXTR                                    
            D3.1T1  310  BILLING.PNLSEXTR.SA.22             1 LINE     80    3 PAGE UM   ENGLE               NOV. 12, 1973  12:08.33
0          SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/20).  CALLED BY PRJLIST (104/35) WHICH IS CALLED BY PNLIST.
           COPIES ACCPROJFMT (104/3).
00500/23    BILLING                  PNLSEXTR        OC  G          S0027 DISTRB FSNAME=PEXT                                        
            D3.1T1  311  BILLING.PNLSEXTR.OC.23             1 LINE     80    1 PAGE UM   ENGLE               JAN. 31, 1974  17:49.46
00500/24    BILLING                  BLRECPR         SP  G  BLRP    S0722 'D3T3' FSNAME=BILLING.BLRECPR.SP.24                    204
            D3T3    204  BILLING.BLRECPR.SP.24              1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1973  13:51.34
0          PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/1).
00500/25    BILLING                  BLRECPR         OC  G          S0722 'D3T3' FSNAME=BILLING.BLRECPR.OC.25                    205
            D3T3    205  BILLING.BLRECPR.OC.25              1 LINE     80    2 DISK UM   ENGLE               JAN. 09, 1973  13:51.51
00500/26    BILLING                  POSIFIL         SP  G  POSF    S0027 DISTRB FSNAME=POSIFIL                                     
            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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00500/27    BILLING                  POSIFIL         OC  G  POSF    S0027 DISTRB FSNAME=POSF                                        
            D3.1T1  313  BILLING.POSIFIL.OC.27              1 LINE     80    2 PAGE UM   ENGLE               JAN. 08, 1974  15:49.29
00501/1     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.
00501/2     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/1     DEADFILES                SCANFILES       SA  G  SCNF    RSTR:DEADSCANFILE(1000)                                         
            D3.1T1  314  DEADFILES.SCANFILES.SA.1           1 LINE     80    8 PAGE UM   BERSTIS             MAR. 06, 1974  17:49.48
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* 1=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.
            
1                                                                                               FRI AUG 02/96   18:37:32   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            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).
            
             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) AND W013:ACCFORMAT (104/1).  ASSEMBLE WITH *SYSMAC.
           NOTE:  THIS PROGRAM CALLS THE ACCOUNTING SUBROUTINES ACCIO (104/18) AND GETFILE (104/89), OBJECT DECKS FOR WHICH
                  MUST BE INCLUDED WITH THE OBJECT FOR THIS PROGRAM.
            
           FOR D3.1, THE ONLY CHANGE IS IN ACCFORMAT (104/1) WHICH THIS COPIES.
0          Referenced by comments of: 92/1 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00502/2     DEADFILES                SCANFILES       OC  G          RSTR:DEADSCANFILE(1,998)                                        
            D3.1T1  315  DEADFILES.SCANFILES.OC.2           1 LINE    255    4 PAGE UM   BERSTIS             MAR. 06, 1974  17:49.51
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/3     DEADFILES                COPYSAVE        SA  G  CPSV    RSTR:DEADCOPYSAVE(1000)                                         
            D3T3    210  DEADFILES.COPYSAVE.SA.3            1 LINE     80    2 PAGE UM   BERSTIS             AUG. 03, 1973  22:01.57
0          PROGRAM TO COPY A FILE SAVE TAPE COUNTING THE NUMBER OF FILES ON IT.
           ASSEMBLE WITH *SYSMAC.
00502/4     DEADFILES                COPYSAVE        OC  G          RSTR:DEADCOPYSAVE(1,998)                                        
            D3T3    211  DEADFILES.COPYSAVE.OC.4            1 LINE     80    1 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.03
00502/5     DEADFILES                PRINTSAVE       SA  G  PRSV    RSTR:DEADPRNTSAVE(1000)                                         
            D3.1T1  316  DEADFILES.PRINTSAVE.SA.5           1 LINE     80    3 PAGE UM   BERSTIS             MAR. 06, 1974  17:49.53
0          PROGRAM TO PRINT A SORTED LIST OF FILES ON A SAVE TAPE SEPARATED BY USERID.
           ASSEMBLE WITH *SYSMAC.
            
           FOR D3.1, THIS HAS BEEN CHANGED TO USE A LARGER BUFFER.
00502/6     DEADFILES                PRINTSAVE       OC  G          RSTR:DEADPRNTSAVE(1,998)                                        
            D3.1T1  317  DEADFILES.PRINTSAVE.OC.6           1 LINE    255    3 PAGE UM   BERSTIS             MAR. 06, 1974  17:49.55
00502/7     DEADFILES                DESTROY         SA  G  DSTR    RSTR:DEADFILEDES(1000)                                          
            D3T3    214  DEADFILES.DESTROY.SA.7             1 LINE     80    3 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.17
0          PROGRAM TO DESTROY A LIST OF FILES.  CALLS DESTROY DIRECTLY, NOT THE MTS INTERFACE TO IT.
           ASSEMBLE WITH *SYSMAC AND PAR=B.
00502/8     DEADFILES                DESTROY         OC  G          RSTR:DEADFILEDES(1,998)                                         
            D3T3    215  DEADFILES.DESTROY.OC.8             1 LINE     80    1 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.23
00502/9     DEADFILES                CATDES          SA  G  CDES    RSTR:DEADUCATDES(1000)                                          
            D3T3    216  DEADFILES.CATDES.SA.9              1 LINE     80    2 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.28
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)                                         
            D3T3    217  DEADFILES.CATDES.OC.10             1 LINE     80    1 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.33
00502/11    DEADFILES                SAVEFILES       SA  G  SVFL    RSTR:DEADSAVE(1000)                                             
            D3T3    218  DEADFILES.SAVEFILES.SA.11          1 LINE     80    6 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.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 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00502/12    DEADFILES                SAVEFILES       OC  G          RSTR:DEADSAVEOBJ                                                
            D3T3    219  DEADFILES.SAVEFILES.OC.12          1 SEQ    2634    3 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.43
00502/13    DEADFILES                FILEDSCB SUBR   SA  G  DSCB    RSTR:FILEDSCB(1000)                                             
            D3T3    220  DEADFILES.FILEDSCB_SUBR.SA.13      1 LINE     80    5 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.48
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 
00502/14    DEADFILES                FILEDSCB SUBR   OC  G          RSTR:FILEDSCB(1,998)                                            
            D3T3    221  DEADFILES.FILEDSCB_SUBR.OC.14      1 LINE     80    2 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.54
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/1     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/2     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/3     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/1     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/2     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.
1                                                                                               FRI AUG 02/96   18:37:32   Page  151
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 505/19 
00505/3     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.
00505/4     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/5     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/6     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/7     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/8     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/9     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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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.
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
1                                                                                               FRI AUG 02/96   18:37:32   Page  153
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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.
00505/26    ALGOL                    KDFLIBTEST      S   G          MTA:KDFLIBTEST                                                  
            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/1     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/2     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/3     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/4     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/5     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/6     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/7     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00506/8     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/9     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).
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    S0410 MTSPL1 'PL1LIB' POSN=PATCHER                           52 
            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/1    *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/2    *LIM                      TLIMIT PGM      SA  O  TLIM    WSG:TLIMIT(1,999)                                               
            D3T4     17  LIM.TLIMIT_PGM.SA.2                1 LINE     80    3 PAGE UM   WSG                 AUG. 01, 1973  21:58.47
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.
           ASSEMBLE USING *SYSMAC.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00507/3    *LIM                      TLIMIT PGM      OC  O          WSG:TLIMIT(1000)                                                
            D3T4     18  LIM.TLIMIT_PGM.OC.3                1 LINE     80    1 PAGE UM   WSG                 AUG. 01, 1973  21:58.51
00508/1    *BASIC                    STRT1           C              W070:BASIC.STRT1                                                
            D3T4     19  BASIC.STRT1.C.1                    1 LINE     70    1 PAGE UM   LUBBERS             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/2    *BASIC                    STRT2           C              W070:BASIC.STRT2                                                
            D3T4     20  BASIC.STRT2.C.2                    1 LINE    126    1 PAGE UM   LUBBERS             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/3    *BASIC                    BIFDSECT        SA  G          W070:BIFDSECT                                                   
            D3T4     21  BASIC.BIFDSECT.SA.3                1 LINE     66    1 PAGE UM   LUBBERS             AUG. 01, 1973  21:59.05
0          THE DSECT USED BY "BUILT-IN" FUNCTIONS.
00508/4    *BASIC                    CLIDSECT        SA  G          W070:CLIDSECT                                                   
            D3T4     22  BASIC.CLIDSECT.SA.4                1 LINE     72    3 PAGE UM   LUBBERS             AUG. 01, 1973  21:59.10
0          THE DSECT USED BY COMMAND AND CMNDINIT.
00508/5    *BASIC                    DS6A            SA  G          W070:DS6A                                                       
            D3T4     23  BASIC.DS6A.SA.5                    1 LINE     72    1 PAGE UM   LUBBERS             AUG. 01, 1973  21:59.15
0          THE DSECT USED BY LOADER.
00508/6    *BASIC                    DSECTCOMM       SA  G          W070:DSECTCOMM                                                  
            D3T4     24  BASIC.DSECTCOMM.SA.6               1 LINE     70    3 PAGE UM   LUBBERS             AUG. 01, 1973  21:59.20
0          THE BASIC COMMON DSECT.
00508/7    *BASIC                    DSECT9A         SA  G          W070:DSECT9A                                                    
            D3T4     25  BASIC.DSECT9A.SA.7                 1 LINE     71    1 PAGE UM   LUBBERS             AUG. 01, 1973  21:59.24
0          THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH.
00508/8    *BASIC                    FHDRDSECT       SA  G          W070:FHDRDSECT                                                  
            D3T4     26  BASIC.FHDRDSECT.SA.8               1 LINE     72    1 PAGE UM   LUBBERS             AUG. 01, 1973  21:59.29
0          THE "FILE HEADER" DSECT.
00508/9    *BASIC                    GLOBALSYM       SA  G          W070:GLOBALSYM                                                  
            D3T4     27  BASIC.GLOBALSYM.SA.9               1 LINE     62    1 PAGE UM   LUBBERS             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   LUBBERS             AUG. 01, 1973  21:59.39
0          BASIC MACRO LIBRARY.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00508/11   *BASIC                    LDICDSCT        SA  G          W070:LDICDSCT                                                   
            D3T4     29  BASIC.LDICDSCT.SA.11               1 LINE     72    1 PAGE UM   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             AUG. 01, 1973  22:00.19
0          THE "WORKING STORAGE LAYOUT" DSECT.
00508/19   *BASIC                    CLI             SA  G          S0358 BSCSEF POSN=*BASIC.CLI                                 1  
            D3T4     37  BASIC.CLI.SA.19                    1 SEQ      80  118 PAGE UM   LUBBERS             AUG. 01, 1973  22:01.38
00508/20   *BASIC                    LEX             SA  G          S0358 BSCSEF POSN=*BASIC.LEX                                 2  
            D3T4     38  BASIC.LEX.SA.20                    1 SEQ      80  111 PAGE UM   LUBBERS             AUG. 01, 1973  22:02.21
00508/21   *BASIC                    CMP             SA  G          S0358 BSCSEF POSN=*BASIC.CMP                                 3  
            D3T4     39  BASIC.CMP.SA.21                    1 SEQ      80   99 PAGE UM   LUBBERS             AUG. 01, 1973  22:03.05
00508/22   *BASIC                    CPS             SA  G          S0358 BSCSEF POSN=*BASIC.CPS                                 4  
            D3T4     40  BASIC.CPS.SA.22                    1 SEQ      80   79 PAGE UM   LUBBERS             AUG. 01, 1973  22:03.48
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00508/23   *BASIC                    NUM             SA  G          S0358 BSCSEF POSN=*BASIC.NUM                                 5  
            D3T4     41  BASIC.NUM.SA.23                    1 SEQ      80   60 PAGE UM   LUBBERS             AUG. 01, 1973  22:04.43
00508/24   *BASIC                    VFL             SA  G          S0358 BSCSEF POSN=*BASIC.VFL                                 6  
            D3T4     42  BASIC.VFL.SA.24                    1 SEQ      80   25 PAGE UM   LUBBERS             AUG. 01, 1973  22:05.36
00508/25   *BASIC                    BIO             SA  G          S0358 BSCSEF POSN=*BASIC.BIO                                 7  
            D3T4     43  BASIC.BIO.SA.25                    1 SEQ      80   47 PAGE UM   LUBBERS             AUG. 01, 1973  22:06.10
00508/26   *BASIC                    INF             SA  G          S0358 BSCSEF POSN=*BASIC.INF                                 8  
            D3T4     44  BASIC.INF.SA.26                    1 SEQ      80   42 PAGE UM   LUBBERS             AUG. 01, 1973  22:06.44
00508/27   *BASIC                    BSI             SA  G          S0358 BSCSEF POSN=*BASIC.BSI                                 9  
            D3T4     45  BASIC.BSI.SA.27                    1 SEQ      80    5 PAGE UM   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             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   LUBBERS             AUG. 01, 1973  22:08.51
0          NOTES ON THE INSTALLATION OF BASIC.  COPY TO A TN PRINTER @MCC.
00508/34   *BASIC                    *DEAL           D   G          W054:BSC.S*DEAL                                                 
            D3T4     52  BASIC.*DEAL.D.34                   1 SEQ    4032    2 PAGE UM   LUBBERS             AUG. 01, 1973  22:08.58
0          COMPONENTS 508/34 THROUGH 508/40 ARE TEST PROGRAMS FOR *BASIC.  THESE ARE IN THE BASIC INTERNAL FILE STRUCTURE.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00508/35   *BASIC                    *PLOT           D   G          W054:BSC.S*PLOT                                                 
            D3T4     53  BASIC.*PLOT.D.35                   1 SEQ    4032    2 PAGE UM   LUBBERS             AUG. 01, 1973  22:09.04
00508/36   *BASIC                    *RKDEQ          D   G          W054:BSC.S*RKDEQ                                                
            D3T4     54  BASIC.*RKDEQ.D.36                  1 SEQ    4032    2 PAGE UM   LUBBERS             AUG. 01, 1973  22:09.10
00508/37   *BASIC                    *RKMAIN         D   G          W054:BSC.S*RKMAIN                                               
            D3T4     55  BASIC.*RKMAIN.D.37                 1 SEQ    4032    2 PAGE UM   LUBBERS             AUG. 01, 1973  22:09.14
00508/38   *BASIC                    *SORT           D   G          W054:BSC.S*SORT                                                 
            D3T4     56  BASIC.*SORT.D.38                   1 SEQ    4032    2 PAGE UM   LUBBERS             AUG. 01, 1973  22:09.22
00508/39   *BASIC                    *CONCRD         D   G          W054:BSC.S*CONCRD                                               
            D3T4     57  BASIC.*CONCRD.D.39                 1 SEQ    4032    2 PAGE UM   LUBBERS             AUG. 01, 1973  22:09.26
00508/40   *BASIC                    *GUNNER         D   G          W054:BSC.S*GUNNER                                               
            D3T4     58  BASIC.*GUNNER.D.40                 1 SEQ    8128    3 PAGE UM   LUBBERS             AUG. 01, 1973  22:09.30
00509/1     PERMIT                   CMMD/SUBR       SA  G          DWB:PF.PERSUB                                                   
            D3.1T1  318  PERMIT.CMMD/SUBR.SA.1              1 LINE     72   13 PAGE UM   DWB                 MAR. 06, 1974  17:49.57
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
           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/2     PERMIT                   CMMD/SUBR       OC  G          *CLSPERMIT                                                      
            D3.1T1  319  PERMIT.CMMD/SUBR.OC.2              1 LINE     80    6 PAGE UM   DWB                 MAR. 06, 1974  17:50.01
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/3     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/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00510/2     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/1    *OBJLIST                                  SA  G  OBJL    W062:OBJLIST.S                                                  
            D3.1T1  320  OBJLIST..SA.1                      1 SEQE     80   17 PAGE UM   TIFFANY             MAR. 06, 1974  17:50.03
0          PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT.
           FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO PRINT THE INFORMATION FROM THE "COML"
           RECORDS PRODUCED BY *LINKEDIT AND TO HANDLE THE NEW IBM "END" CARD FORMAT.
00511/2    *OBJLIST                                  OC  G          *OBJLIST                                                        
            D3.1T1  321  OBJLIST..OC.2                      1 LINE     80    4 PAGE UM   TIFFANY             MAR. 06, 1974  17:50.07
00512/1     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.
00512/2     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/3     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   BLINN               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.
0          Referenced by comments of: 615/1 
00512/4     MTS VOLUME 11            FIGURES         D              W038:V11FIGS.P                                                  
            D3.1T1  323  MTS_VOLUME_11.FIGURES.D.4          1 SEQ     254   88 PAGE UM   BLINN               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)                                  
                                                                                    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/1    *PL1TIDY                                  SP             W062:NEATER                                                     
            D3T4     68  PL1TIDY..SP.1                      1 LINE     80   16 PAGE UM   TIFFANY             AUG. 01, 1973  22:16.49
0          THIS IS IBM'S NEATER.  KANSAS STATE UNIV'S NEATER2 (CACM V.13 N.11 PG 664) IS BETTER (NEATER?).
           ANY VOLUNTEERS?
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00514/2    *PL1TIDY                                  OE             *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/1    *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/2    *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/3    *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          Referenced by comments of: 515/11 
00515/4    *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/5    *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/6    *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/7    *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/8    *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/9    *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"
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00516/1    *LINK11                                   SA  G          S0658 W051SV FSNAME=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).
00516/2    *LINK11                                   OE  G          *LINK11                                                         
            D3T4     83  LINK11..O.2                        1 SEQ    9916    3 PAGE UM   LUBBERS             AUG. 01, 1973  22:24.31
00516/3    *LINK11                   USER'S GUIDE    WT           # (SEE COMP 515/12)                                               
                                                                                    UM   LUBBERS                                    
00517/1     LOGICAL OPERATORS                        SA  G          W056: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.
00517/2     LOGICAL OPERATORS                        OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HARDING                                    
00518/1     GRGJUL SUBRS                             SA  G  GRJL    S0723 'D3T4' FSNAME=GRGJUL_SUBRS..SA.1                        85
            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/2     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/1     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/2     GRJLDT/GRJLTM SUBRS      GRJLDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00519/3     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/4     GRJLDT/GRJLTM SUBRS      GRJLTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00520/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00520/2     GROSDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/1     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/2     JLGRDT/JLGRTM            JLGRDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/3     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/4     JLGRDT/JLGRTM            JLGRTM          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00522/1     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/2     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/1     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/2     OSGRDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00524/1    *LIBRARY                                  OL             *LIBRARY                                                        
            D3.1T1  325  LIBRARY..OL.1                      1 SEQ   13704   33 PAGE UM   SALISBURY           MAR. 06, 1974  17:50.51
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/2    *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 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00524/3    *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/1     ELEM FUNC LIB            SQRT            SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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).
0          Referenced by comments of: 527/1 
00525/2     ELEM FUNC LIB            EXP             SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=EXP                  
            D3T4     97  ELEM_FUNC_LIB.EXP.SA.2             1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:02.07
00525/3     ELEM FUNC LIB            ALOG10/ALOG     SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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/4     ELEM FUNC LIB            COS/SIN         SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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/5     ELEM FUNC LIB            COTAN/TAN       SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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/6     ELEM FUNC LIB            ARCOS/ARSIN     SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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/7     ELEM FUNC LIB            ATAN2/ATAN      SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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/8     ELEM FUNC LIB            COSH/SINH       SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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/9     ELEM FUNC LIB            TANH            SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DSQRT                
            D3T4    107  ELEM_FUNC_LIB.DSQRT.SA.12          1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:02.56
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00525/13    ELEM FUNC LIB            DEXP            SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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
00525/19    ELEM FUNC LIB            DCOSH/DSINH     SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CCOS.CSIN(1)         
            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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDSQRT               
            D3T4    124  ELEM_FUNC_LIB.CDSQRT.SA.29         1 LINE     71    2 DISK UM   HARDING             JUNE 27, 1972  12:04.08
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00525/30    ELEM FUNC LIB            CDEXP           SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=FDXPI                
            D3T4    130  ELEM_FUNC_LIB.FDXPI#.SA.35         1 LINE     68    1 DISK UM   HARDING             JUNE 27, 1972  12:04.28
00525/36    ELEM FUNC LIB            FCXPI#          SA  G          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=MINMAX               
            D3T4    141  ELEM_FUNC_LIB.MINMAX.SA.46         1 LINE     65    2 DISK UM   HARDING             JUNE 27, 1972  12:05.05
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00525/47    ELEM FUNC LIB            EFL.MACLIB      SM  G          W060: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          S0595 UMEFL 'EFL DISTRIBUTION TAPE' 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          W060: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.
00525/50    ELEM FUNC LIB            OBJECT          OC  G          SEG2:EFL                                                        
            D3T4    145  ELEM_FUNC_LIB.OBJECT.O.50          1 LINE     80   18 PAGE UM   HARDING             AUG. 01, 1973  22:38.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#, AND <EFL>
            
           THE SYMBOL <EFL> DEFINES A SEPARATE SYMBOL TABLE WHICH CONTAINS THE ADDRESSES OF ALL OF
           THE EFL ENTRY POINTS.
00525/51    ELEM FUNC LIB            WRITEUP         WF             W060:DOC.EFL                                                    
            D3T4    146  ELEM_FUNC_LIB.WRITEUP.WF.51        1 LINE    126   13 PAGE UM   HARDING             AUG. 01, 1973  22:38.09
0          THIS IS COMPUTING CENTER MEMO M214 -- "THE ELEMENTARY FUNCTION LIBRARY"
00526/1     SIOC                                     SA  G  SIOC    W060:ASM.SIOC                                                   
            D3T4    147  SIOC..SA.1                         1 LINE     80   35 PAGE UM   HARDING             AUG. 01, 1973  22:38.14
0          AN I/O CONVERSION PROGRAM TO PERFOR 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 (SEGMENT 2).
00526/2     SIOC                                     OC  G        # (PART OF COMP 525)                                              
                                                                                    UM   HARDING                                    
0          OBJECT IS PART OF FILE "SEG2:EFL".
00526/3     SIOC                     WRITEUP         WF             W060:DOC.SIOC                                                   
            D3T4    148  SIOC.WRITEUP.WF.3                  1 LINE    112   11 PAGE UM   HARDING             AUG. 01, 1973  22:38.20
0          THIS IS COMPUTING CENTER MEMO M202 -- "THE I/O CONVERSION PROGRAM"
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00527/1     TRACER                                   SA  G  TRAC    W060:ASM.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/2     TRACER                                   OC  G        # (PART OF COMM 525)                                              
                                                                                    UM   HARDING                                    
0          OBJECT IS PART OF FILE "SEG2:EFL".
00527/3     TRACER                   WRITEUP         WF             W060: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"
00528/1     ALGOLW                   *ALGOLW         SA             S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80)                67 
            D3T4    151  ALGOLW.*ALGOLW.SA.1                1 SEQ      80    9 PAGE UNE  BLINN               AUG. 01, 1973  22:40.39
0          SOURCE FOR MTSCOMP, THE MTS ALGOL W COMPILER INTERFACE.
0          Referenced by comments of: 483/4 
00528/2     ALGOLW                   *ALGOLW         OE             *ALGOLW                                                         
            D3T4    152  ALGOLW.*ALGOLW.OE.2                1 SEQ    1833    1 PAGE UNE  BLINN               AUG. 01, 1973  22:40.40
00528/3     ALGOLW                   *XALGOLW        SA             WATF:ALGW.XMAIN.S(5)                                            
            D3T4    153  ALGOLW.*XALGOLW.SA.3               1 LINE     73   11 PAGE UNE  BLINN               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/4     ALGOLW                   *XALGOLW        S3             S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80)                66 
            D3T4    154  ALGOLW.*XALGOLW.S3.4               1 SEQ      80    5 PAGE UNE  BLINN               AUG. 01, 1973  22:40.53
0          PL360 SOURCE FOR LOADER, PART OF THE MTS ALGOL W COMPILE-AND-GO INTERFACE.
00528/5     ALGOLW                   *XALGOLW        SA           # (SEE COMP 483)                                                  
                                                                                    UM   BLINN                                      
0          SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES.
00528/6     ALGOLW                   *XALGOLW        OE             *XALGOLW                                                        
            D3T4    155  ALGOLW.*XALGOLW.OE.6               1 SEQ    3432    2 PAGE UNE  BLINN               AUG. 01, 1973  22:40.57
00528/7     ALGOLW                   *AWXCMPA2       S3             WATF:ALGW.P12.S                                                 
            D3T4    156  ALGOLW.*AWXCMPA2.S3.7              1 SEQ      80  103 PAGE UNE  BLINN               AUG. 01, 1973  22:41.22
0          PL360 SOURCE FOR PHASE A OF THE ALGOL W COMPILER.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00528/8     ALGOLW                   *AWXCMPA2       S3             WATF:ALGW.P12.U(1000)                                           
                                                                                    UNE  BLINN                                      
0          PL360 UPDATES FOR PHASE A OF ALGOL W COMPILER
00528/9     ALGOLW                   *AWXCMPA2       OE             *AWXCMPA2                                                       
            D3T4    157  ALGOLW.*AWXCMPA2.OE.8              1 SEQ    7801   13 PAGE UNE  BLINN               AUG. 01, 1973  22:41.33
00528/10    ALGOLW                   *AWXCMPB2       S3             WATF:ALGW.P3.S                                                  
            D3T4    158  ALGOLW.*AWXCMPB2.S3.9              1 SEQ      80  107 PAGE UNE  BLINN               AUG. 01, 1973  22:41.54
0          PL360 SOURCE FOR PHASE B OF THE ALGOL W COMPILER.
00528/11    ALGOLW                   *AWXCMPB2       S3             WATF:ALGW.P3.U(1000)                                            
                                                                                    UNE  BLINN                                      
0          PL360 UPDATES FOR PHASE B OF THE ALGOL W COMPILER.
00528/12    ALGOLW                   *AWXCMPB2       OE             *AWXCMPB2                                                       
            D3T4    159  ALGOLW.*AWXCMPB2.OE.10             1 SEQ    3776   14 PAGE UNE  BLINN               AUG. 01, 1973  22:42.04
00528/13    ALGOLW                   *AWXLIBR2       S3             WATF:ALGW.XLIB.S(6)                                             
            D3T4    160  ALGOLW.*AWXLIBR2.S3.11             1 SEQ      80   69 PAGE UNE  BLINN               AUG. 01, 1973  22:42.20
0          PL360 SOURCE FOR PHASEC, THE ALGOL W LIBRARY WITH DEBUGGING ROUTINES.
00528/14    ALGOLW                   *AWXLIBR2       SA             S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80)                73 
            D3T4    161  ALGOLW.*AWXLIBR2.SA.12             1 SEQ      80    1 PAGE UNE  BLINN               AUG. 01, 1973  22:42.28
0          SOURCE FOR LIBDIR, THE ALGOL W LIBRARY DIRECTORY.
00528/15    ALGOLW                   *AWXLIBR2       OE             *AWXLIBR2                                                       
            D3T4    162  ALGOLW.*AWXLIBR2.OE.13             1 SEQ    4032    8 PAGE UNE  BLINN               AUG. 01, 1973  22:42.31
00528/16    ALGOLW                   *ALGOLWLIB      SA             S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80)                68 
            D3T4    163  ALGOLW.*ALGOLWLIB.SA.14            1 SEQ      80   10 PAGE UNE  BLINN               AUG. 01, 1973  22:42.55
0          SOURCE FOR MTSEXEC, THE MTS ALGOL W OBJECT PROGRAM INTERFACE.
00528/17    ALGOLW                   *ALGOLWLIB      S3             S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80)                72 
            D3T4    164  ALGOLW.*ALGOLWLIB.S3.15            1 SEQ      80   40 PAGE UNE  BLINN               AUG. 01, 1973  22:43.18
0          PL360 SOURCE FOR LIBRC, THE ALGOL W LIBRARY WITHOUT DEBUGGING ROUTINES.
00528/18    ALGOLW                   *ALGOLWLIB      OE             *ALGOLWLIB                                                      
            D3T4    165  ALGOLW.*ALGOLWLIB.OE.16            1 SEQ    2048    6 PAGE UNE  BLINN               AUG. 01, 1973  22:43.26
00528/19    ALGOLW                   WRITEUP         WF             WATF:ALGW.W                                                     
            D3T4    166  ALGOLW.WRITEUP.WF.17               1 LINE     99   11 PAGE UM   BLINN               AUG. 01, 1973  22:43.28
0          THIS IS COMPUTING CENTER MEMO M199 -- "ALGOL W IN MTS"
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00529/1     FILESTATUS COMMAND                       SA             DWB:FSTATCMD3(1)                                                
            D3.1T1  328  FILESTATUS_COMMAND..SA.1           1 LINE     75   23 PAGE UM   DWB                 MAR. 06, 1974  17:50.58
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).
            
           COPIES *GFINFODSECT (593) AND COPY:CLSVECTOR (535/2).
           REQUIRES SHARED (SEG 2) SUBROUTINES JULGRGDT (522) AND GRGJULDT (518).
00529/2     FILESTATUS COMMAND                       OC             *CLSFILESTATUS                                                  
            D3.1T1  329  FILESTATUS_COMMAND..OC.2           1 LINE     80    9 PAGE UM   DWB                 MAR. 06, 1974  17:51.16
0          THIS FILE (*CLSFILESTATUS) IS NORMALLY LOADED INTO SHARED VM AT IPL BY THE SEG 2 LOADER.  HOWEVER, IF IT HAS NOT
           BEEN LOADED INTO SEG 2 (I.E., IF "FSTATCMD" IS UNDEFINED IN LCSYMBOL), MTS WILL LOAD A PRVATE (SEG 4) COPY WHEN
           A $FILESTATUS COMMAND IS ISSUED.
00530/1    *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/2    *AMENDS                                   OC             *AMENDS                                                         
            D3T4    170  AMENDS..OC.2                       1 LINE     80    1 PAGE UM   DWB                 AUG. 01, 1973  22:43.55
00531/1     COMMAND STATISTICS       CMDSTAT         SA  G  CMDS    DWB:CMDSTAT.D3(1)                                               
            D3.1T1  330  COMMAND_STATISTICS.CMDSTAT.SA.1    1 LINE     80    6 PAGE UM   DWB                 MAR. 06, 1974  17:51.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: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. 
            
           FOR D3.1, THE S-TYPE CALLING SEQUENCE ENTRY IS CALLED BY HASP TO RECORD THE HASP LOG.
00531/2     COMMAND STATISTICS       CMDSTAT         OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00531/3     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 ENTERING "MTS *CMD" ON THE OPERATORS CONSOLE.  AFTER SIGNON,
           IT RUNS CMDPIKUP (531/4).  AN ERROR FILE (CMDERRORS) MUST EXIST UNDER THE USER ID USED FOR *CMD.
           AT UM, WE ARE ROUTINELY COLLECTING COMMAND STATISTICS AND 3330 UNIT CHECK MESSAGES ALL OF THE TIME; THEREFORE PART
           OF OUR INIT:INITCMD (97/2) PROCEDURE INVOKES "MTS *CMD" AUTOMATICALLY WHENEVER THE SYSTEM IS STARTED UP.
           THESE STATISTICS PLUS THE HASP LOG FILL UP A 384 PAGE FILE ABOUT 3 TIMES PER DAY UNDER BUSY CONDITIONS.
           TWO SUCH FILES ARE USED ALTERNATELY.  THE TAPES ONTO WHICH THEY ARE DUMPED FILL UP IN ABOUT 2 WEEKS.
0          Referenced by comments of: 97/2 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00531/4     COMMAND STATISTICS       CMDPIKUP        SA  G  CMDP    DWB:CMDPIKUP.D3(1)                                              
            D3T4    173  COMMAND_STATISTICS.CMDPIKU.SA.4    1 LINE     80    8 PAGE UM   DWB                 AUG. 01, 1973  22:44.09
0          PROGRAM TO PICKUP MTS COMMAND STATISTICS (FROM CMDSTAT) AND SAVE THEM IN FILES; FILENAMES ARE
           SPECIFIED BY THE CMDDIR FILE (531/6).  WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC STRTJB
           TO START "MTS *DWB" (531/7) WHICH DUMPS THE FILLED FILE ONTO TAPE ACCORDING 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:MTS.EQU (345), AND CMDSTAT.D (531/13).
0          Referenced by comments of: 531/3, 603/1 
00531/5     COMMAND STATISTICS       CMDPIKUP        OC  G          SYS:CMDPIKUP.O                                                  
            D3T4    174  COMMAND_STATISTICS.CMDPIKU.OC.5    1 LINE     80    2 PAGE UM   DWB                 AUG. 01, 1973  22:44.16
00531/6     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/7     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/8     COMMAND STATISTICS       FILE-TO-TAPE    SA  G  CMDT    DWB:CMDTAPE.S(1)                                                
            D3T4    177  COMMAND_STATISTICS.FILE-TO.SA.8    1 LINE     80    8 PAGE UM   DWB                 AUG. 01, 1973  22:44.33
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), AND COPY:MTS.EQU (345).
00531/9     COMMAND STATISTICS       FILE-TO-TAPE    OC  G          SYS:CMDTAPE.O                                                   
            D3T4    178  COMMAND_STATISTICS.FILE-TO.OC.9    1 LINE     80    3 PAGE UM   DWB                 AUG. 01, 1973  22:44.38
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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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.1T1  333  COMMAND_STATISTICS.CMDAREA.SA.12   1 LINE     80    2 PAGE UM   DWB                 MAR. 06, 1974  17:51.26
0          COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD.
0          Referenced by comments of: 531/1, 531/4, 531/8, 531/10, 603/1, 621/2, 621/4 
00531/13    COMMAND STATISTICS       CMDSTATDATA     SA  G  CMDD    DWB:CMDSTAT.D                                                   
            D3T4    182  COMMAND_STATISTICS.CMDSTAT.SA.13   1 LINE     80    1 PAGE UM   DWB                 AUG. 01, 1973  22:45.02
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   18:37:32   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
+         ______________ _____________________
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
00532/1    *PLOTSEE                                  SA  G          W114:PLOTSEE.S(6)                                               
            D3T4    185  PLOTSEE..SA.1                      1 LINE     74    9 PAGE UM   BLINN               AUG. 01, 1973  22:45.19
0          PLOT PREVIEWING PROGRAM.
           USER OF TEKTRONIX 4010 DISPLAY CONNECTED TO MTS VIA UM DATA CONCENTRATOR CAN
           VIEW PDS PLOT FILES PRODUCED VIA *PLOTSYS.  HAS "WINDOWING" FACILITY.
           DEPENDS ON SPECIAL DATA CONCENTRATOR DEVICE COMMANDS, SO WOULD HAVE TO BE
           MODIFIED FOR OTHER INSTALLATIONS.
00532/2    *PLOTSEE                                  OE  G          *PLOTSEE                                                        
            D3T4    186  PLOTSEE..OE.2                      1 SEQ    2788    2 PAGE UM   BLINN               AUG. 01, 1973  22:45.24
00533/1    *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/2    *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/1     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 
00534/2     TMTS                     JOB LIST ENTRY  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00534/3     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).
1                                                                                               FRI AUG 02/96   18:37:32   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: 534/1 
00534/4     TMTS                     FAKE JOB-PGM    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00534/5     TMTS                     LOADMTS         SA  G  LMTS    MTS:LOADMTS(1,999)                                              
            D3.1T1  340  TMTS.LOADMTS.SA.5                  1 LINE     80   16 PAGE UM   MTA                 MAR. 06, 1974  17:51.47
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, AND DSRI), COST, CFDUB, LCSYMBOL, AND SYSDEFS.
            
           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/6     TMTS                     LOADMTS         OC  G          MTS:LOADMTS(1000)                                               
            D3.1T1  341  TMTS.LOADMTS.OC.6                  1 LINE     80    4 PAGE UM   MTA                 MAR. 06, 1974  17:51.52
00534/7     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
00535/1     CLS INTERFACE            PLAN COPY SECT  SA  G  CLSP    COPY:CLSPLAN                                                    
            D3.1T1  343  CLS_INTERFACE.PLAN_COPY_SE.SA.1    1 LINE     80    3 PAGE UM   DWB                 MAR. 06, 1974  17:52.00
0          COPY SECTION DEFINING COMMAND LANGUAGE SUBSYSTEM (CLS) CALLING CONVENTIONS.
0          Referenced by comments of: 42/1, 324/1, 354/1, 535/4, 539/1, 585/1, 600/1, 600/4, 600/6, 600/8, 600/10, 635/1,
                 636/1, 637/1, 638/1, 639/1 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00535/2     CLS INTERFACE            T/V DSECT       SA  G  CLSV    COPY:CLSVECTOR                                                  
            D3.1T1  344  CLS_INTERFACE.T/V_DSECT.SA.2       1 LINE     80    3 PAGE UM   DWB                 MAR. 06, 1974  17:52.01
0          DSECT COPY SECTION FOR TRANSFER VECTOR PASSED BY MTS TO COMMAND LANGUAGE SUBSYSTEMS.
0          Referenced by comments of: 101/1, 413/5, 447/1, 509/1, 529/1, 535/4, 553/1, 585/1, 600/1, 600/4, 600/6, 600/8,
                 600/10, 631/1 
00535/3     CLS INTERFACE            T/V STD ADCONS  SA  G  STDV    COPY:STANDARDTV                                                 
            D3T4    196  CLS_INTERFACE.T/V_STD_ADCO.SA.3    1 LINE     80    3 PAGE UM   DWB                 AUG. 01, 1973  22:53.14
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 
00535/4     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/5     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/1    *BRAILLE                                  SA  S          S0723 'D3T4' FSNAME=BRAILLE..SA.1                            199
            D3T4    199  BRAILLE..SA.1                      1 LINE     73   21 PAGE UM   TIFFANY             JULY 30, 1973  03:34.19
0          EXPERIMENTAL PROGRAM TO PRINT BRAILLE (GRADE 2) ON A 1403 PRINTER.
00536/2    *BRAILLE                                  OC  S          *BRAILLE                                                        
            D3T4    200  BRAILLE..OC.2                      1 SEQ      94    8 PAGE UM   TIFFANY             AUG. 01, 1973  22:53.52
0          OBJECT HAS MANY REP CARDS.
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/1     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/2     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   18:37:32   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
+         ______________ _____________________
00538/3     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/4     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: 538/5 
00538/5     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/6     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/7     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/8     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/9     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   18:37:32   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
+         ______________ _____________________
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/1     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/2     TIMNTRP                  D3.1 UPDATE     UU  G          MTS:TIMTUPD                                                     
            D3.1T1  366  TIMNTRP.D3.1_UPDATE.UU.2           1 LINE     72    1 PAGE UM   HAMILTON            MAR. 06, 1974  17:52.58
0          UPDATE TO D3 MASTER (539/1) TO PRODUCE D3.1 SOURCE.
           UPDATE DECK USES %POSN *IN* TIMT.
00539/3     TIMNTRP                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   HAMILTON                                   
00540/1     PDPBUG                                   SA  G  PDPB    W047:PDPBUG(1000)                                               
            D3T4    218  PDPBUG..SA.1                       1 LINE     80    9 PAGE UM   HAMILTON            AUG. 01, 1973  22:56.41
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.
00540/2     PDPBUG                                   OC  G          W047:PDPBUG(1,999)                                              
            D3T4    219  PDPBUG..OC.2                       1 LINE     80    3 PAGE UM   HAMILTON            AUG. 01, 1973  22:56.45
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00541/1    *DECODE                                   SA  G  DECD    MTS:DECODE(1,999)                                               
            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/2    *DECODE                                   OC  G          *DECODE                                                         
            D3T4    221  DECODE..O.2                        1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  22:56.54
00542/1    *DF                                       SA             338:DF.S                                                        
            D3T4    222  DF..SA.1                           1 LINE     72   93 PAGE UM   BLINN               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/2    *DF                       PSECT           SA             338:PSECT                                                       
            D3T4    223  DF.PSECT.SA.2                      1 LINE     72    3 PAGE UM   BLINN               AUG. 01, 1973  22:57.15
0          Referenced by comments of: 542/1 
00542/3    *DF                                       OL             *DF                                                             
            D3T4    224  DF..OL.3                           1 SEQ    3536    6 PAGE UM   BLINN               AUG. 01, 1973  22:57.19
00543/1    *ENCODE                                   SA  G  ENCD    MTS:ENCODE(1,999)                                               
            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.
00543/2    *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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00545/1    *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/2    *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/3    *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/4    *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/5    *FAKEOS                   FAKEOS          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/6    *FAKEOS                   FAKEOS          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/7    *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).
00545/8    *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/9    *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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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 
00545/16   *FAKEOS                   FAKEOS.MSG      M              W071:FAKEOS.MSG                                                 
            D3.1T1  380  FAKEOS.FAKEOS.MSG.M.16             1 LINE     62    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.15
0          MESSAGE FILE.
00545/17   *FAKEOS                   VOSDDEF.S       SA             W071:VOSDDEF.S                                                  
            D3.1T1  381  FAKEOS.VOSDDEF.S.SA.17             1 LINE     80    9 PAGE UM   YOUNG               MAR. 06, 1974  17:54.17
0          SOURCE FOR DDNAME SCANNER.  COPIES SAMEQU (545/19).  ASSEMBLE WITH *SYSMAC AND *OSMAC.
0          Referenced by comments of: 545/19 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00545/18   *FAKEOS                   VOSDDEF         OE             W071:VOSDDEF                                                    
            D3.1T1  382  FAKEOS.VOSDDEF.OE.18               1 SEQ    2586    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.20
00545/19   *FAKEOS                   SAMEQU          SA             W071:SAMEQU                                                     
            D3.1T1  383  FAKEOS.SAMEQU.SA.19                1 LINE     80    4 PAGE UM   YOUNG               MAR. 06, 1974  17:54.22
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.1T1  384  FAKEOS.FAKEEXCP.S.SA.20            1 LINE     69    5 PAGE UM   YOUNG               MAR. 06, 1974  17:54.24
0          EXCP FAKER.  COPIES DSDSECT (545/15) AND EXCPXT (545/22).
           ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 545/22 
00545/21   *FAKEOS                   FAKEOS.EXCP     OE             W071:FAKEOS.EXCP                                                
            D3.1T1  385  FAKEOS.FAKEOS.EXCP.OE.21           1 SEQ    1576    1 PAGE UM   YOUNG               MAR. 06, 1974  17:54.27
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 
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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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
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
00546/1    *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).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00546/2    *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      *FS                                                    # (SEE COMP 461)                                                  
                                                                                    UM                                              
0          Referenced by comments of: 549/1, 550/1 
00549/1    *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.
00549/2    *FSCON                                    OE  G          *FSCON                                                          
            D3T4    269  FSCON..OE.2                        1 SEQ    8116    3 PAGE UM   MTA                 AUG. 01, 1973  23:05.27
00550/1    *FSCOPY                                   SA  G  FSCY    MTS:FSCOPY.S                                                    
            D3T4    270  FSCOPY..SA.1                       1 LINE     80   30 PAGE UM   MTA                 AUG. 01, 1973  23:05.32
0          PROGRAM TO COPY SELECTED PORTIONS OF *FS (548) FORMAT TAPES.
00550/2    *FSCOPY                                   OE  G          *FSCOPY                                                         
            D3T4    271  FSCOPY..OE.2                       1 SEQ    7732    3 PAGE UM   MTA                 AUG. 01, 1973  23:05.38
00551/1    *FTN                                      SA  G  FTN0    S0579 SAVE 'JWS-SAVE' FSNAME=SOURCE.FTN                         
            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/6).
           THERE ARE 4 REFERENCES TO PUBLIC FILES IN THIS VERSION:  AT X'0008A6' (ESID 01), THERE IS A REFERENCE TO
           THE FILE CONTAINING THE 'TEST' VERSION OF FORTRAN G (*FTNGTEST), AT X'002DA4' (ESID 02) TO THE FILE
           CONTAINING FORTRAN H (*FORTRANH), AND AT X'002D94' AND X'002DB4' (ESID 02) ARE REFERENCES TO FORTRAN G (*FORTRANG).
00551/2    *FTN                                      OC  G          *FTN                                                            
            D3T4    277  FTN.FTNH_VERSION.OC.6              1 LINE     80    6 PAGE UM   JWS                 AUG. 01, 1973  23:06.36
00551/3    *FTN                      USER'S GUIDE    WF           @                                                                 
                                                                                    UM   JWS                                        
0          NEW *FTN USER'S GUIDE-- NOT OUT YET.
00552/1     GASP                     *GASP           S   G  GASP  = W020:GASPSOURCE(1,13070)                                        
            D3T4    279  GASP.*GASP.S.1                     1 LINE     80   29 PAGE UM   FLANIGAN            AUG. 01, 1973  23:06.58
0          GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION.
            
           W020:GASPSOURCE CONTAINS THE FORTRAN SOURCE
           ASM SOURCE IS IN UPDATE DECK IN FLANIGANS FILE CABINET AND IN W020:GASPCOMPILE(9,22)
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0          CONTAINS "$CONTINUE WITH *GASPCOM" THROUGHOUT.
00552/2     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          OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN 552/1.
00552/3     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/4     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/5     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/1     MERIT NETWORK CLS                        SA  G  NETC    K1Y2:NETCLS(500)                                                
            D3T4    284  MERIT_NETWORK_CLS..SA.1            1 LINE     80   24 PAGE UM   LANDWEHR            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).
0          Referenced by comments of: 101/2 
00553/2     MERIT NETWORK CLS                        OC  G          *CLSNET                                                         
            D3T4    285  MERIT_NETWORK_CLS..OC.2            1 LINE     80    3 PAGE UM   LANDWEHR            AUG. 01, 1973  23:07.40
0          DYNAMICALLY LOADED BY MTS FOR $NET COMMAND.
00554/1     TABLMOD                  TABLMOD JOB     SA  G  TBJP    W045:TABLMODJP                                                  
            D3.1T1  409  TABLMOD.TABLMOD_JOB.SA.1           1 LINE     80   16 PAGE UM   PIRKOLA             MAR. 06, 1974  22:01.04
0          UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE IN-CORE OPEN FILE TABLE.
           INVOKED BY ENTERING "TABLMOD" ON THE OPERATOR'S CONSOLE.  THE FOLLOWING COMMANDS ARE AVAILABLE:
            
             DUMP     PRINTS OUT THE ENTIRE OPEN-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
                      ("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").
            
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0            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 TERMINATES WHEN AN END-OF-FILE IS ENTERED.
            
           COPIES COPY:ICEQU (482/29) AND COPY:LLMPSEQU (087).
0          Referenced by comments of: 554/3 
00554/2     TABLMOD                  TABLMOD JOB     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
00554/3     TABLMOD                  MTS PROGRAM     SA  G  TBMD    W045:TABLMOD                                                    
            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).
           COPIES COPY:ICEQU (482/29).
00554/4     TABLMOD                  MTS PROGRAM     OC  G          W045:TABLMOD.O                                                  
            D3.1T1  411  TABLMOD.MTS_PROGRAM.OC.4           1 LINE     80    3 PAGE UM   PIRKOLA             MAR. 06, 1974  22:01.10
00555/1     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/2     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.
1                                                                                               FRI AUG 02/96   18:37:32   Page  185
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
                  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.
00556/1    *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: 556/3 
00556/2    *REDUCE2                  OS SOURCE       S   G          WATF:RDC2EP152                                                  
            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 SEPT 15, 1972).
0          Referenced by comments of: 556/3 
00556/3    *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/4    *REDUCE2                  CHKPOINT        O   G          WATF:RDC2CHKPT                                                  
            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 *REDUCE.
00556/5    *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 LISP (CURRENTLY NEW:LISP) AND THEN
           LOADS THE REDUCE2 CHECKPOINT (FROM WATF:RDC2CHKPT).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00556/6    *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.
0          Referenced by comments of: 556/7 
00556/7    *REDUCE2                  EXAMPLE         P              *REDUCE2EXAMP                                                   
            D3T4    297  REDUCE2.EXAMPLE.P.7                1 LINE    119    6 PAGE UM   MTA                 AUG. 01, 1973  23:09.24
0          REDUCE2 PRINTED OUTPUT FOR EXAMPLE INPUT (556/6).
00556/8    *REDUCE2                  WRITEUP         WF             S0723 'D3T4' FSNAME=REDUCE2.WRITEUP.WF.8                     298
            D3T4    298  REDUCE2.WRITEUP.WF.8               1 LINE    107    2 DISK UM   MTA                 MAR. 15, 1973  18:04.41
0          THIS IS COMPUTING CENTER MEMO M182 -- "REDUCE 2"
           ONLY PART OF MEMO M182 IS INCLUDED HERE SINCE THE BULK OF IT IS SIMPLY REPRODUCED FROM
           THE MANUAL FOR REDUCE 2 FROM THE STANFORD ARTIFICIAL INTELLIGENCE PROJECT.
00557/1     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/2     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/1     VIRTUAL 67               MAIN PGM        SA  G  V67S    MTA:V67.S                                                       
            D3.1T1  412  VIRTUAL_67.MAIN_PGM.SA.1           1 LINE     80  108 PAGE UM   MTA                 MAR. 06, 1974  22:01.12
0          PROGRAM TO PROVIDE A SYSTEM/360 MODEL 67 VIRTUAL MACHINE.
           COPIES S2301 (558/3).  ASSEMBLE WITH *SYSMAC.
00558/2     VIRTUAL 67               DEVICE 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          ASSEMBLY WHICH DEFINES THE VIRTUAL MACHINE I/O CONFIGURATION, I.E. A TABLE OF PRE-DEFINED ATTACH COMMANDS.
00558/3     VIRTUAL 67               S2301           SA  G  DRUM    MTA:S2301                                                       
            D3T4    303  VIRTUAL_67.S2301.SA.3              1 LINE     80    9 PAGE UM   MTA                 AUG. 01, 1973  23:10.05
0          COPIED CODE WHICH PROVIDES VIRTUAL DRUM SUPPORT.
0          Referenced by comments of: 558/1 
00558/4     VIRTUAL 67               OBJECT          OC  G          MTA:V67                                                         
            D3.1T1  413  VIRTUAL_67.OBJECT.OC.4             1 LINE     80   14 PAGE UM   MTA                 MAR. 06, 1974  22:01.30
00558/5     VIRTUAL 67               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   18:37:32   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
+         ______________ _____________________
00559/1     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) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN
           SEG2:S2FILES (559/4).
00559/2     PISTLE <SEG 2 LOADER>                    SA  G  PIST    W009:PISTLE.S                                                   
            D3.1T1  415  PISTLE_<SEG_2_LOADER>..SA.2        1 LINE     80   20 PAGE UM   DE JONG             MAR. 06, 1974  22:01.36
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 HAS BEEN MODIFIED FOR D3.1 TO LOAD INTO SEGMENTS 1 AND 2.
           IT NOW 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/3     PISTLE <SEG 2 LOADER>                    OC  G          SEG2:S2L                                                        
            D3.1T1  416  PISTLE_<SEG_2_LOADER>..OC.3        1 SEQ      80    3 PAGE UM   DE JONG             MAR. 06, 1974  22:01.47
00559/4     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. 
            
           NOTE:  THIS LIST INCLUDES A REFERENCE TO *RATENBR WHICH IS PART OF THE MTS DIFFERENTIAL RATES IMPLEMENTATION
                  RECENTLY MADE AT UM.  SINCE DIFFERENTIAL RATES IS NOT A PART OF D3.1, REFERENCE TO THIS FILE SHOULD
                  BE IGNORED.
0          Referenced by comments of: 559/1 
00559/5     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   BLINN               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   18:37:32   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
+         ______________ _____________________
00561/1    *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.
00561/2    *UNEDIT                                   OE  G          *UNEDIT                                                         
            D3T4    313  UNEDIT..OE.2                       1 SEQ    2124    1 PAGE UM   MTA                 AUG. 01, 1973  23:11.03
00562/1    *UNLINKER                                 SA  G          W062:UNLOAD.S                                                   
            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.
           ASSEMBLE WITH PAR=BATCH.
0          Referenced by comments of: 291/1, 298/2, 340/1 
00562/2    *UNLINKER                                 OE  G          *UNLINKER                                                       
            D3T4    315  UNLINKER..OE.2                     1 SEQ    5664    2 PAGE UM   TIFFANY             AUG. 01, 1973  23:11.14
0          PROBABLY LINKEDITED FROM A FILE WHICH INCLUDED A REP CARD.
00563/1     CHAR MANIP SUBRS         BTD             SA     BTD0    W081:UBCCHAR(1,60)                                              
            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/2     CHAR MANIP SUBRS         LCOMC/COMC      SA     COMC    W081:UBCCHAR(61,130)                                            
            D3.1T1  419  CHAR_MANIP_SUBRS.LCOMC/COM.SA.2    1 LINE     80    3 PAGE UBC  GOODRICH            MAR. 06, 1974  22:01.54
0          D3.1 CHANGE:  RETURN CODE NOT ZEROED ON SUCCESSFUL RETURN; FIXED IN THIS VERSION.
00563/3     CHAR MANIP SUBRS         DTB             SA     DTB0    W081:UBCCHAR(131,218)                                           
            D3T4    318  CHAR_MANIP_SUBRS.DTB.SA.3          1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.29
00563/4     CHAR MANIP SUBRS         FINDC           SA     FINC    W081:UBCCHAR(219,298)                                           
            D3T4    319  CHAR_MANIP_SUBRS.FINDC.SA.4        1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.35
00563/5     CHAR MANIP SUBRS         FINDST          SA     FINS    W081:UBCCHAR(299,403)                                           
            D3T4    320  CHAR_MANIP_SUBRS.FINDST.SA.5       1 LINE     80    4 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.40
00563/6     CHAR MANIP SUBRS         IGC             SA     IGC0    W081:UBCCHAR(404,478)                                           
            D3T4    321  CHAR_MANIP_SUBRS.IGC.SA.6          1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.45
00563/7     CHAR MANIP SUBRS         MOVEC           SA     MOVC    W081:UBCCHAR(479,510)                                           
            D3T4    322  CHAR_MANIP_SUBRS.MOVEC.SA.7        1 LINE     80    1 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.51
00563/8     CHAR MANIP SUBRS         SETC            SA     SETC    W081:UBCCHAR(511,544)                                           
            D3T4    323  CHAR_MANIP_SUBRS.SETC.SA.8         1 LINE     80    1 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.58
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00563/9     CHAR MANIP SUBRS         TRNC            SA     TRNC    W081:UBCCHAR(545,603)                                           
            D3T4    324  CHAR_MANIP_SUBRS.TRNC.SA.9         1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:12.02
00563/10    CHAR MANIP SUBRS         TRNST           SA     TRNS    W081:UBCCHAR(604,717)                                           
            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    W081:UBCCHAR(1173)                                              
            D3.1T1  420  CHAR_MANIP_SUBRS.EQUC.SA.11        1 LINE     80    1 PAGE UBC  GOODRICH            MAR. 06, 1974  22:01.57
0          D3.1 CHANGE:  VALUE RETURNED FOR TRUE WOULD NOT WORK PROPERLY IN CERTAIN FTN EXPRESSIONS;
                         FIXED IN THIS VERSION.
00563/12    CHAR MANIP SUBRS         OBJECT          OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   GOODRICH                                   
00564/1     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/2     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/1     STOR PROTECT DIAGNOSTIC                  SA  G  PROT    MTS:TESTPROTECT(1,999)                                          
            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/2     STOR PROTECT DIAGNOSTIC                  OC  G          MTS:TESTPROTECT(1000)                                           
            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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00566/1    *PIL/2                    MACLIB          SM             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 
00566/2    *PIL/2                    DSECT           SA             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/3    *PIL/2                    EQUS            SA             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/4    *PIL/2                    EVOUTPUT        SA             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/5    *PIL/2                    FORMDS          SA             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/6    *PIL/2                    KEYCODES        SA             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/7    *PIL/2                    PARTDS          SA             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/8    *PIL/2                    SCRDS           SA             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/9    *PIL/2                    STACKDS         SA             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             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             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             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             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             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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00566/15   *PIL/2                    CANIT           SA             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             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             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
00566/18   *PIL/2                    BKDOWN          SA             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             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             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             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             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             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             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             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             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             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             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             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             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             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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00566/32   *PIL/2                    STEPMESS        SA             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             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             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
00566/35   *PIL/2                    DELVALS         SA             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             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             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             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             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             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             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             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             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             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             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             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             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             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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00566/49   *PIL/2                    *PIL/2          OC             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             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.
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/1    *1052RTN                                  SA  O  TFTS    MTA:TFTS.S                                                      
            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/2    *1052RTN                                  OC  O          *1052RTN                                                        
            D3T4    384  1052RTN..OC.2                      1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:21.04
00568/1    *TIMETALLY                                SA  G  TTLY    S0297 S297 'UTIL III' FSNAME=TT.S                               
            D3.1T1  421  TIMETALLY..SA.1                    1 LINE     80   31 PAGE UM   HENRIKSEN           NOV. 23, 1973  16:03.47
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.
00568/2    *TIMETALLY                                OE  G          *TIMETALLY                                                      
            D3.1T1  422  TIMETALLY..OE.2                    1 SEQ    8940    6 PAGE UM   HENRIKSEN           MAR. 06, 1974  22:04.15
00568/3    *TIMETALLY                D3.1 NOTES      WF             W098:HEN1                                                       
            D3.1T1  423  TIMETALLY.D3.1_NOTES.WF.3          1 LINE    105    1 PAGE UM   HENRIKSEN           MAR. 06, 1974  22:04.16
0          WRITEUP DESCRIBING D3.1 *TIMETALLY.
00569/1     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
1                                                                                               FRI AUG 02/96   18:37:32   Page  194
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
           WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S,
                 N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION,
                 N3 IS THE NUMBER OF *PRINT* PCE'S,
                 N4 IS THE NUMBER OF *PUNCH* PCE'S,
                 AND N5 IS THE NUMBER OF *BATCH* PCE'S.
            
           IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS
           FROM THE PREVIOUS LINE PRINTED.
           IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE
           USER THEY THINK THEY ARE.  IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS
           FROM THE JCT ID, IT PRINTS:
            
             PCE: AAAAA   JCTID: IIII    JOB TABLE: PPPPPPPP   JOB N
            
           WHERE AAAAA IS THE HEX LOCN OF THE PCE,
                 IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL),
                 PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER),
                 AND N IS THE JOB NUMBER.
            
           USES IOH (278) FOR OUTPUT FORMATTING AND HAS ABSOLUTE DEFINITIONS FOR DISPLACEMENTS OF SOME ITEMS IN
           PCE AND WORK AREA OF EXECUTION PCE.
00569/2     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/1    *MNETRTN                                  SA  G  MNET    K1Y2:MNETDSR                                                    
            D3T4    389  MNETRTN..SA.1                      1 LINE     80   64 PAGE UM   LANDWEHR            AUG. 01, 1973  23:21.33
0          MTS DEVICE SUPPORT ROUTINES FOR THE MERIT COMPUTER NETWORK INTERACTIVE SERVICE.
           COPIES COPY:LLMPSEQU (087).
00570/2    *MNETRTN                                  OC  G          *MNETRTN                                                        
            D3T4    390  MNETRTN..O.2                       1 LINE     80    5 PAGE UM   LANDWEHR            AUG. 01, 1973  23:21.58
0          OBJECT CONTAINS REP CARDS.
00571/1     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/2     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/3     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/4     APL LIBRARY WS           EIGENVALU       D            # (NOT AVAILABLE)                                                 
                                                                                    UM   DWB                                        
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00571/5     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/6     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/7     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/8     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/9     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
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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
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
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/1     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/2     BLOKLETR                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00573/1     MTS VOLUME 5             MASTER          WT  G          S0451 MTSV5 'MTS MANUALS' POSN=NEWM1.V5                      5  
            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" OF THE UM MTS MANUAL.
00573/2     MTS VOLUME 5             PRINT           PT  G          S0451 MTSV5 'MTS MANUALS' POSN=PRINT1.V5                     6  
            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.
00574/1     MTS VOLUME 10            MASTER          WT  G          S0546 MTSV10 'MTS MANUALS' POSN=NEWM1.V10                    2  
            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/2     MTS VOLUME 10            PRINT           PT  G          S0546 MTSV10 'MTS MANUALS' POSN=PRINT1.V10                   3  
            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.
00574/3     MTS VOLUME 10            INDEX           P   G          S0546 MTSV10 'MTS MANUALS' POSN=VOL10END                     4  
            D3T4    423  MTS_VOLUME_10.INDEX.P.3            1 SEQ     100    9 PAGE UM   SALISBURY           AUG. 01, 1973  23:38.03
0          VOLUME 10 INDEX.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00575/1     MTS VOLUME 4             MASTER          WT  G          S0616 MTSV4 'MTS MANUALS' POSN=NEWM2.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.
00575/2     MTS VOLUME 4             PRINT           PT  G          S0616 MTSV4 'MTS MANUALS' POSN=PRINT2.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/3     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/4     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).
            
           MODIFIED TO WORK WITH D3.1 PLOT ROUTINES.
00575/5     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/1     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/2     OMR CONVERT                              OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
0          Referenced by comments of: 86/2 
00576/3     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/1     MACHINE CHECK REC'Y      CEAIR           SA  G  EAIR    MTA:CEAIR.S                                                     
            D3.1T1  428  MACHINE_CHECK_REC'Y.CEAIR.SA.1     1 LINE     80   18 PAGE UM   MTA                 MAR. 06, 1974  22:04.40
0          THE MTS 360/67 MACHINE CHECK ERROR RECOVERY.  MODIFIED (AND DEBUGGED) FROM TSS/360 BY UBC AND UM.
            
1                                                                                               FRI AUG 02/96   18:37:32   Page  198
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          CEAIR IS THE RECOVERY NUCLEUS.  COPIES COPY:CHAERC (577/30), COPY:LLMPSEQU (087), COPY:PSA (162),
           AND COPY:CHADMR (577/29).
00577/2     MACHINE CHECK REC'Y      CEAIR           OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00577/3     MACHINE CHECK REC'Y      CMASA           SA  G  MASA    MTA:CMASA.S                                                     
            D3.1T1  429  MACHINE_CHECK_REC'Y.CMASA.SA.3     1 LINE     80   14 PAGE UM   MTA                 MAR. 06, 1974  22:04.43
0          BOOTSTRAP.  COPIES COPY:CHAERC (577/30), COPY:CHASYS.2 (577/35), COPY:LLMPSEQU (087), AND COPY:PSA (162).
00577/4     MACHINE CHECK REC'Y      CMASA           OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00577/5     MACHINE CHECK REC'Y      CEABE           SA  G  EABE    MTA:CEABE.S                                                     
            D3.1T1  430  MACHINE_CHECK_REC'Y.CEABE.SA.5     1 LINE     80   20 PAGE UM   MTA                 MAR. 06, 1974  22:04.47
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/6     MACHINE CHECK REC'Y      CEABE           OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00577/7     MACHINE CHECK REC'Y      CMASB           SA  G  MASB    MTA:CMASB.S                                                     
            D3T4    434  MACHINE_CHECK_REC'Y.CMASB.SA.7     1 LINE     80   15 PAGE UM   MTA                 AUG. 01, 1973  23:42.16
0          ERROR RECORDING.  COPIES COPY:LLMPSEQU (087), COPY:PSA (162), AND COPY:CHAOER (577/33).
00577/8     MACHINE CHECK REC'Y      CMASB           OC  G          INIT:CMASB                                                      
            D3T4    435  MACHINE_CHECK_REC'Y.CMASB.O.8      1 LINE     80    2 PAGE UM   MTA                 AUG. 01, 1973  23:45.44
00577/9     MACHINE CHECK REC'Y      CMASC           SA  G  MASC    MTA:CMASC.S                                                     
            D3.1T1  431  MACHINE_CHECK_REC'Y.CMASC.SA.9     1 LINE     80   13 PAGE UM   MTA                 MAR. 06, 1974  22:04.51
0          IMMEDIATE PRINT.  COPIES COPY:CHAERC (577/30).
00577/10    MACHINE CHECK REC'Y      CMASC           OC  G          INIT:CMASC                                                      
            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 REC'Y      CMASD           SA  G  MASD    MTA:CMASD.S                                                     
            D3.1T1  433  MACHINE_CHECK_REC'Y.CMASD.SA.11    1 LINE     80   28 PAGE UM   MTA                 MAR. 06, 1974  22:04.57
0          CHECKER (CHECKS PARITY ETC.).  COPIES COPY:CHAPSA (577/34) AND COPY:CHACST (577/28).
00577/12    MACHINE CHECK REC'Y      CMASD           OC  G          INIT:CMASD                                                      
            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 REC'Y      CMASE           SA  G  MASE    MTA:CMASE.S                                                     
            D3T4    440  MACHINE_CHECK_REC'Y.CMASE.SA.13    1 LINE     80   30 PAGE UM   MTA                 AUG. 01, 1973  23:46.07
0          POINTER (FIND FAILING INSTRUCTION).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00577/14    MACHINE CHECK REC'Y      CMASE           OC  G          INIT:CMASE                                                      
            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 REC'Y      CMASF           SA  G  MASF    MTA:CMASF.S                                                     
            D3T4    442  MACHINE_CHECK_REC'Y.CMASF.SA.15    1 LINE     80   23 PAGE UM   MTA                 AUG. 01, 1973  23:46.20
0          RESTORE AND VALIDATE.
00577/16    MACHINE CHECK REC'Y      CMASF           OC  G          INIT:CMASF                                                      
            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 REC'Y      CMASG           SA  G  MASG    MTA:CMASG.S                                                     
            D3.1T1  435  MACHINE_CHECK_REC'Y.CMASG.SA.17    1 LINE     80   26 PAGE UM   MTA                 MAR. 06, 1974  22:05.07
0          INSTRUCTION RETRY.  COPIES COPY:LLMPSEQU (087) AND COPY:PSA (162).
00577/18    MACHINE CHECK REC'Y      CMASG           OC  G          INIT:CMASG                                                      
            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 REC'Y      CMASH           SA  G  MASH    MTA:CMASH.S                                                     
            D3T4    446  MACHINE_CHECK_REC'Y.CMASH.SA.19    1 LINE     80   35 PAGE UM   MTA                 AUG. 01, 1973  23:46.42
0          FIRST DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/20    MACHINE CHECK REC'Y      CMASH           OC  G          INIT:CMASH                                                      
            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 REC'Y      CMASI           SA  G  MASI    MTA:CMASI.S                                                     
            D3.1T1  437  MACHINE_CHECK_REC'Y.CMASI.SA.21    1 LINE     80   29 PAGE UM   MTA                 MAR. 06, 1974  22:05.15
0          SECOND DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/22    MACHINE CHECK REC'Y      CMASI           OC  G          INIT:CMASI                                                      
            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 REC'Y      CMASJ           SA  G  MASJ    MTA:CMASJ.S                                                     
            D3T4    450  MACHINE_CHECK_REC'Y.CMASJ.SA.23    1 LINE     80   16 PAGE UM   MTA                 AUG. 01, 1973  23:47.05
0          THIRD DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/24    MACHINE CHECK REC'Y      CMASJ           OC  G          INIT:CMASJ                                                      
            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 REC'Y      CGCMA           SA  G  GCMA    MTA:CGCMA.S                                                     
            D3.1T1  439  MACHINE_CHECK_REC'Y.CGCMA.SA.25    1 LINE     80   22 PAGE UM   MTA                 MAR. 06, 1974  22:05.28
0          RECONFIGURATION.  COPIES COPY:PCBDSECT (470), COPY:CHADMR (577/29), COPY:PSA (162), AND COPY:LLMPSEQU (087).
00577/26    MACHINE CHECK REC'Y      CGCMA           OC  G          INIT:CGCMA                                                      
            D3.1T1  440  MACHINE_CHECK_REC'Y.CGCMA.OC.26    1 LINE     80    3 PAGE UM   MTA                 MAR. 06, 1974  22:05.33
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00577/27    MACHINE CHECK REC'Y      CHACHL          SA  G  CHL0    COPY:CHACHL                                                     
            D3T4    454  MACHINE_CHECK_REC'Y.CHACHL.SA.27   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:47.28
0          COPY SECTION FOR TSS FLAVOR CHANNEL TABLE.
0          Referenced by comments of: 577/5 
00577/28    MACHINE CHECK REC'Y      CHACST          SA  G  CST0    COPY:CHACST                                                     
            D3T4    455  MACHINE_CHECK_REC'Y.CHACST.SA.28   1 LINE     80    2 PAGE UM   MTA                 AUG. 01, 1973  23:47.33
0          COPY SECTION FOR CPU STATUS TABLE.
0          Referenced by comments of: 121/2, 577/11, 577/19, 577/21, 577/23, 611/1 
00577/29    MACHINE CHECK REC'Y      CHADMR          SA  G  DMR0    COPY:CHADMR                                                     
            D3T4    456  MACHINE_CHECK_REC'Y.CHADMR.SA.29   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:47.39
0          COPY SECTION FOR DAMAGE REPORT.
0          Referenced by comments of: 577/1, 577/5, 577/25 
00577/30    MACHINE CHECK REC'Y      CHAERC          SA  G  ERC0    COPY:CHAERC                                                     
            D3T4    457  MACHINE_CHECK_REC'Y.CHAERC.SA.30   1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  23:47.45
0          COPY SECTION FOR ERROR RECOVERY CONTROL TABLE (X'C00' IN PSA).
0          Referenced by comments of: 46/1, 577/1, 577/3, 577/9, 589/1 
00577/31    MACHINE CHECK REC'Y      CHAERE          SA  G  ERE0    COPY:CHAERE                                                     
            D3T4    458  MACHINE_CHECK_REC'Y.CHAERE.SA.31   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:47.51
0          COPY SECTION FOR EXTERNAL MACHINE CHECK ERROR RECORD FORMAT.
0          Referenced by comments of: 577/5, 577/37 
00577/32    MACHINE CHECK REC'Y      CHAIER          SA  G  IER0    COPY:CHAIER                                                     
            D3T4    459  MACHINE_CHECK_REC'Y.CHAIER.SA.32   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:47.57
0          COPY SECTION FOR INBOARD I/O ERROR RECORD FORMAT.
0          Referenced by comments of: 577/37, 589/1 
00577/33    MACHINE CHECK REC'Y      CHAOER          SA  G  OER0    COPY:CHAOER                                                     
            D3T4    460  MACHINE_CHECK_REC'Y.CHAOER.SA.33   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:48.02
0          COPY SECTION FOR OUTBOARD I/O ERROR RECORD FORMAT.
0          Referenced by comments of: 577/7, 577/37 
00577/34    MACHINE CHECK REC'Y      CHAPSA          SA  G  PSA0    COPY:CHAPSA                                                     
            D3T4    461  MACHINE_CHECK_REC'Y.CHAPSA.SA.34   1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:48.08
0          COPY SECTION FOR TSS FLAVOR PSA.
1                                                                                               FRI AUG 02/96   18:37:32   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          Referenced by comments of: 577/5, 577/11, 577/19, 577/21, 577/23, 588/1 
00577/35    MACHINE CHECK REC'Y      CHASYS.2        SA  G  SYS2    COPY:CHASYS.2                                                   
            D3.1T1  441  MACHINE_CHECK_REC'Y.CHASYS.SA.35   1 LINE     80    1 PAGE UM   MTA                 MAR. 06, 1974  22:05.36
0          COPY SECTION FOR THE 'SYSTEM TABLE'.
0          Referenced by comments of: 46/1, 577/3 
00577/36    MACHINE CHECK REC'Y      CHASDT          SA  G  SDT0    COPY:CHASDT                                                     
            D3T4    463  MACHINE_CHECK_REC'Y.CHASDT.SA.36   1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:48.20
0          COPY SECTION FOR STATISTICAL DATA TABLE.  NOT USED BY MTS.
0          Referenced by comments of: 577/37 
00577/37    MACHINE CHECK REC'Y      CZASE           SA  G  ZASE    MTA:CZASE.S                                                     
            D3.1T1  442  MACHINE_CHECK_REC'Y.CZASE.SA.37    1 LINE     80  132 PAGE UM   MTA                 MAR. 06, 1974  22:05.38
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.
            
           FOR D3.1, CZASE HAS BEEN CHANGED TO 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 REC'Y      CZASE           OE  G          INIT:CZASE                                                      
            D3.1T1  443  MACHINE_CHECK_REC'Y.CZASE.OE.38    1 SEQ     176   20 PAGE UM   MTA                 MAR. 06, 1974  22:06.14
0          CONTAINS SEVERAL PROGRAMS IN ADDITION TO CZASE.
0          Referenced by comments of: 577/49 
00577/39    MACHINE CHECK REC'Y      MTA:MACLIB      SM  G  MAC0    MTA:MACLIB                                                      
            D3T4    466  MACHINE_CHECK_REC'Y.MTA:MA.SM.39   1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  23:48.51
0          MACROS, MOST OF WHICH ARE NOT USED.
0          Referenced by comments of: 577/37 
00577/40    MACHINE CHECK REC'Y      DRMINIT         SA  G  DRMI    MTA:DRMINIT.S                                                   
            D3T4    467  MACHINE_CHECK_REC'Y.DRMINI.SA.40   1 LINE     80    6 PAGE UM   MTA                 AUG. 01, 1973  23:48.57
0          WRITE MACHINE CHECK MODULES ON DRUMS.  ASSEMBLE WITH *SYSMAC.
00577/41    MACHINE CHECK REC'Y      DRMINIT         OC  G          INIT:DRMINIT                                                    
            D3T4    468  MACHINE_CHECK_REC'Y.DRMINI.O.41    1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:49.03
00577/42    MACHINE CHECK REC'Y      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?
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00577/43    MACHINE CHECK REC'Y      LOGPRINT        OC  G          MTA:LOGPRINT                                                    
            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 REC'Y      SHORTPRINT      SA  G  SHRT    MTA:SHORT.S(1,999)                                              
            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.
00577/45    MACHINE CHECK REC'Y      SHORTPRINT      OC  G          MTA:SHORT.S(1000)                                               
            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 REC'Y      WRITEUP         P              MTA: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 REC'Y      MCHDEFS         SA  G  MCHD    MTA:MCHDEFS(1,999)                                              
            D3T4    474  MACHINE_CHECK_REC'Y.MCHDEF.SA.47   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:52.16
0          LOW-CORE SYMBOL TABLE (LIKE LCSYMBOL) FOR SYMBOLS REFERENCED BY DRMINIT.
00577/48    MACHINE CHECK REC'Y      MCHDEFS         OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00577/49    MACHINE CHECK REC'Y      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 REC'Y      COMMANDS        C              INIT:COM                                                        
            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 REC'Y      MCFILES         D              INIT:MCFILES                                                    
            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.
00578/1     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), AND COPY:MTS.TV (640).  ASSEMBLE WITH COPY:MTS.MACROS (344) AND *SYSMAC.
0          Referenced by comments of: 344/1, 578/2 
00578/2     RSF                      D3.1 UPDATE     UU  G          MTS:RSFUPD/D3.1                                                 
            D3.1T1  444  RSF.D3.1_UPDATE.UU.2               1 LINE     72    5 PAGE UM   PIRKOLA             MAR. 06, 1974  22:06.17
0          UPDATE TO D3 MASTER (578/1) TO PRODUCE D3.1 SOURCE.
           UPDATE DECK USES %POSN *IN* RSF.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00578/3     RSF                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
00579/1     SYSDEFS                                  SA  G  SYSD    MTS:SYSDEFS(1,999)                                              
            D3.1T1  445  SYSDEFS..SA.1                      1 LINE     80    5 PAGE UM   MTA                 MAR. 06, 1974  22:06.19
0          THIS IS A LOW-CORE SYMBOL TABLE FOR THE DEFINITION OF SYMBOLS USED FOR SYSTEMS WORK, I.E. NOT REQUIRED BY USER PROGRAMS.
           THESE DEFINITIONS WERE FORMERLY PART OF THE LCSYMBOL SYMBOL TABLE (043), BUT WERE REMOVED TO REDUCE ITS SIZE AND
           TO SPEED UP THE SEARCH.  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
00579/2     SYSDEFS                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00580/1    *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/2    *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/1     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/2     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/1     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 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00582/2     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/3     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/4     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/1     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.
00583/2     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/3     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/4     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/5     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/6     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/7     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/8     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00583/9     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
00584/1     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/2     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/3     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/4     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/5     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/1     CALC CLS                                 SA  G  CALC    S0579 SAVE 'JWS - SAVE' FSNAME=CALC.S.UM                        
            D3.1T1  446  CALC_CLS..SA.1                     1 LINE     80   31 PAGE UM   JWS                 JULY 19, 1973  13:48.49
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).
           MODIFIED FROM WSU.
00585/2     CALC CLS                                 OE  G          *CLSCALC                                                        
            D3.1T1  447  CALC_CLS..OE.2                     1 LINE     80    3 PAGE UM   JWS                 MAR. 06, 1974  22:11.14
0          NORMALLY LOADED BY SEG 2 LOADER AT IPL.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00585/3     CALC CLS                 WRITEUP         WF             S0724 'D3T5' FSNAME=CALC_CLS.WRITEUP.WF.3                     29
            D3T5     29  CALC_CLS.WRITEUP.WF.3              1 LINE    108    2 PAGE UM   JWS                 JULY 20, 1973  16:49.03
0          THIS IS COMPUTING CENTER MEMO M244 -- "CHANGES TO THE MTS $CALC COMMAND"
00586/1     COST SUBR                                SA  G  COST    S0027 DISTRB FSNAME=COST                                        
            D3.1T1  448  COST_SUBR..SA.1                    1 LINE     80    7 PAGE UM   ENGLE               JAN. 31, 1974  17:51.40
0          SUBROUTINE TO COMPUTE CURRENT COST OF RUN.  (E.G. CALLED BY MTS FOR $DISPLAY $).
           COPIES ACCFORMAT (104/1), ACCRATE (104/2), AND GRDEF (104/58).
00586/2     COST SUBR                                OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   ENGLE                                      
00587/1     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/2     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/1     INTERCOM                                 SA  G  EAIC    MTA:CEAIC.S                                                     
            D3.1T1  449  INTERCOM..SA.1                     1 LINE     80   11 PAGE UM   MTA                 MAR. 06, 1974  22:29.28
0          INTER-CPU COMMUNICATION PROGRAM USED 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/2     INTERCOM                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00589/1     I/O INBOARD ERROR REC                    SA  G  EAI7    MTA:CEAI7.S                                                     
            D3.1T1  450  I/O_INBOARD_ERROR_REC..SA.1        1 LINE     80    9 PAGE UM   MTA                 MAR. 06, 1974  22:29.35
0          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/2     I/O INBOARD ERROR REC                    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00590/1     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.
            
1                                                                                               FRI AUG 02/96   18:37:32   Page  207
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6.
00590/2     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/3     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/4     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/1     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/2     CFDUB                                    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    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.1T1  454  GFINFODSECT..SA.                   1 LINE     80    3 PAGE UM   PIRKOLA             MAR. 06, 1974  22:30.55
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, 461/2, 465/1, 529/1, 578/1, 630/1 
00594      *GDINFODSECT                              SA  G  GDID    *GDINFODSECT                                                    
            D3T5     42  GDINFODSECT..SA.                   1 LINE     80    2 PAGE UM   DWB                 AUG. 02, 1973  00:24.42
0          COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE.
0          Referenced by comments of: 531/8 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00595/1     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
           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/2     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/3     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/4     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/5     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/6     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/7     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/8     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/9     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.
1                                                                                               FRI AUG 02/96   18:37:32   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          Referenced by comments of: 595/92 
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   18:37:32   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
+         ______________ _____________________
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   18:37:32   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
+         ______________ _____________________
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   18:37:32   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
+         ______________ _____________________
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   18:37:32   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
+         ______________ _____________________
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   18:37:32   Page  214
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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/1     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   18:37:32   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
+         ______________ _____________________
00596/2     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/1     CHKVTOC                                  SA  G  CHKV    W047:CHKVTOC.S                                                  
            D3T5    138  CHKVTOC..SA.1                      1 LINE     80   17 PAGE UM   HAMILTON            AUG. 02, 1973  00:30.11
0          PROGRAM AND VTOCRD SUBROUTINE 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 AND PAR=B.
           THE VTOCRD SUBROUTINE COPIES COPY:DSKDSCT (482/42), COPY:DSCBDSCT (482/41), COPY:PATEQU (482/43),
           AND COPY:FCBEQU (482/27).
00597/2     CHKVTOC                                  OC  G          W047:CHKVTOC                                                    
            D3T5    139  CHKVTOC..OC.2                      1 LINE     80    5 PAGE UM   HAMILTON            AUG. 02, 1973  00:30.15
00598/1     DASDI 7330                               SA  G  DASD    W047:DASDI.S                                                    
            D3.1T1  457  DASDI_7330..SA.1                   1 LINE     80   11 PAGE UM   HAMILTON            MAR. 06, 1974  22:31.04
0          PROGRAM TO PAGE FORMAT DASDI ITEL 7330 (IBM 3330) DISKS.  INPUT DESCRIBED IN SOURCE COMMENTS.
           COPIES COPY:DSCBDSCT (482/41).  ASSEMBLE WITH *SYSMAC.
00598/2     DASDI 7330                               OC  G          W047:DASDI                                                      
            D3.1T1  458  DASDI_7330..OC.2                   1 LINE     80    4 PAGE UM   HAMILTON            MAR. 06, 1974  22:31.08
00599/1     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/2     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/1     SDS                      CLSSOU          SA  G          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSCLSSOU          1  
            D3.1T1  459  SDS.CLSSOU.SA.1                    1 SEQ      80  141 PAGE UM   SALISBURY           MAR. 06, 1974  22:32.36
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), AND SDSPSECT (600/13).  ASSEMBLE USING *SYSMAC AND SDSMACROS (600/12).
00600/2     SDS                      UTSDSSOU        SA  G          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSUTILSOU         2  
            D3.1T1  460  SDS.UTSDSSOU.SA.2                  1 SEQ      80   31 PAGE UM   SALISBURY           MAR. 06, 1974  22:33.01
0          COPIES SDSCONSTANT (600/15).
00600/3     SDS                      CLS             OC  G          W059:SDSCLS                                                     
            D3.1T1  461  SDS.CLS.OC.3                       1 LINE     80   26 PAGE UM   SALISBURY           MAR. 06, 1974  22:33.06
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00600/4     SDS                      CLI             SA  G          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSCLISOU          3  
            D3.1T1  462  SDS.CLI.SA.4                       1 SEQ      80   88 PAGE UM   SALISBURY           MAR. 06, 1974  22:33.34
0          THE SDS COMMAND LANGUAGE INTERPRETER.  COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13),
           COPY:CLSPLAN (535/1), COPY:CLSAREA (641), AND COPY:CLSVECTOR (535/2).  ASSEMBLE WITH SDSMACROS (600/12).
00600/5     SDS                      CLI             OC  G          W059:SDSCLI                                                     
            D3.1T1  463  SDS.CLI.OC.5                       1 LINE     80   19 PAGE UM   SALISBURY           MAR. 06, 1974  22:33.47
00600/6     SDS                      IOC             SA  G          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSIOCSOU          4  
            D3.1T1  464  SDS.IOC.SA.6                       1 SEQ      80   27 PAGE UM   SALISBURY           MAR. 06, 1974  22:33.53
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), AND SDSBT (600/14).
           ASSEMBLE WITH *SYSMAC AND SDSMACROS (600/12).
00600/7     SDS                      IOC             OC  G          W059:SDSIOC                                                     
            D3.1T1  465  SDS.IOC.OC.7                       1 LINE     80    8 PAGE UM   SALISBURY           MAR. 06, 1974  22:33.55
00600/8     SDS                      SIMULATOR       SA  G          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSSIMLSOU         5  
            D3.1T1  466  SDS.SIMULATOR.SA.8                 1 SEQ      80   26 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.01
0          THE SDS INSTRUCTION SIMULATOR.  COPIES SDSPSECT (600/13), COPY:CLSPLAN (535/1), COPY:CLSAREA (641),
           AND COPY:CLSVECTOR (535/2).  ASSEMBLE WITH SDSMACROS (600/12).
00600/9     SDS                      SIMULATOR       OC  G          W059:SDSSIML                                                    
            D3.1T1  467  SDS.SIMULATOR.OC.9                 1 LINE     80    8 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.03
00600/10    SDS                      EDITOR          SA  G          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSEDTRSOU         6  
            D3.1T1  468  SDS.EDITOR.SA.10                   1 SEQ      80   31 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.09
0          THE SDS EDITOR.  COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13),
           COPY:CLSPLAN (535/1), COPY:CLSAREA (641), AND COPY:CLSVECTOR (535/2).  ASSEMBLE WITH SDSMACROS (600/12).
00600/11    SDS                      EDITOR          OC  G          W059:SDSEDTR                                                    
            D3.1T1  469  SDS.EDITOR.OC.11                   1 LINE     80    8 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.12
00600/12    SDS                      SDSMACROS       SM  G  SDSM    S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSMACROS          10 
            D3.1T1  470  SDS.SDSMACROS.SM.12                1 SEQ      80   10 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.18
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          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSPSECT           7  
            D3.1T1  471  SDS.SDSPSECT.SA.13                 1 SEQ      80   39 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.27
0          COPY SECTION FOR SDS DSECTS.
0          Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00600/14    SDS                      SDSBT           SA  G          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSBT              8  
            D3.1T1  472  SDS.SDSBT.SA.14                    1 SEQ      80    3 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.32
0          COPY SECTION FOR BRANCH TABLES.
0          Referenced by comments of: 600/4, 600/6, 600/10 
00600/15    SDS                      SDSCONSTANT     SA  G          S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSCONSTANT        9  
            D3.1T1  473  SDS.SDSCONSTANT.SA.15              1 SEQ      80    1 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.34
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.1T1  474  SDS.OBJECT.OE.16                   1 LINE    255   19 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.37
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.1T1  475  SDS.TEST_PROGRAM.C.17              1 LINE     80    1 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.40
0          SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAM (600/18).
00600/18    SDS                      TEST PROGRAM    SA             W044:SDSTESTSOU                                                 
            D3.1T1  476  SDS.TEST_PROGRAM.SA.18             1 LINE     63    4 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.42
0          Referenced by comments of: 600/17 
00600/19    SDS                      TEST PROGRAM    OC             W044:SDSTEST                                                    
            D3.1T1  477  SDS.TEST_PROGRAM.OC.19             1 LINE     80    7 PAGE UM   SALISBURY           MAR. 06, 1974  22:34.44
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.
            
           IF THIS PROGRAM CAN'T FIT THE CARDS TO BE INSERTED BETWEEN TWO EXISTING ID'S, IT WILL PRINT AN ERROR COMMENT
1                                                                                               FRI AUG 02/96   18:37:32   Page  218
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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/1     UC3330                                   SA  G  UC33    MTA:UC3330(1,999)                                               
            D3.1T1  479  UC3330..SA.1                       1 LINE     80   21 PAGE UM   MTA                 MAR. 06, 1974  22:34.48
0          UNIT CHECK ROUTINES FOR ITEL 7330 (IBM 3330) DISKS ON EITHER A 2860 OR 2880 CHANNEL.  DOES NOT YET SUPPORT OTHER DASD DEVICE
           TYPES.  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/2     UC3330                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00604/1     PRNTCNTS                                 SA  G  PCNT    MTA:PRNTCNTS(1000)                                              
            D3T5    166  PRNTCNTS..SA.1                     1 LINE     80   14 PAGE UM   MTA                 AUG. 02, 1973  00:33.17
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.
0          Referenced by comments of: 531/1 
00604/2     PRNTCNTS                                 OC  G          MTA:PRNTCNTS(1,999)                                             
            D3T5    167  PRNTCNTS..OC.2                     1 LINE     80    4 PAGE UM   MTA                 AUG. 02, 1973  00:33.21
00605/1     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 
00605/2     TWAIT SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HAMILTON                                   
00606/1     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/2     TICALL SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HAMILTON                                   
00607/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   Page  219
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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/2     STIMER SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   HAMILTON                                   
00608/1    *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.
            
           BUG FIXED FOR D3.1.
00608/2    *MVC                                      OC  G          *MVC                                                            
            D3.1T1  481  MVC..OC.2                          1 LINE     80    4 PAGE UM   EMERY               MAR. 06, 1974  22:35.05
00609/1     7330 CCW SCANNER                         SA  G  CPSC    MTA:CPSCN(1,999)                                                
            D3.1T1  482  7330_CCW_SCANNER..SA.1             1 LINE     80    5 PAGE UM   MTA                 MAR. 06, 1974  22:35.07
0          PROGRAM TO SCAN ITEL 7330 DISK CHANNEL PROGRAMS TO FIND RESTART ADDRESS.  CALLED BY THE SUPERVISOR (045).
           COPIES COPY:CPSCNPAR (609/3).  ASSEMBLE WITH *SYSMAC.
00609/2     7330 CCW SCANNER                         OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00609/3     7330 CCW SCANNER         COPY:CPSCNPAR   SA  G  CPSP    S0699 D3TAPE POSN=CPSCNPAR                                   6  
            D3T5    174  7330_CCW_SCANNER.COPY:CPSC.SA.3    1 SEQ      80    1 PAGE UM   MTA                 AUG. 02, 1973  00:35.01
0          COPY SECTION FOR ITEL 7330 (IBM 3330) CCW SCANNER PARAMETER AND SCRATCH AREAS.
0          Referenced by comments of: 45/1, 609/1 
00610/1     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).
           SEE NOTES IN PAPER DOCUMENTATION.
00610/2     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/3     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/4     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/1     LOCKSTAT                                 SA  G  LKST    MTA:LOCKSTAT(1,999)                                             
            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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00611/2     LOCKSTAT                                 OC  G          MTA:LOCKSTAT(1000)                                              
            D3T5    180  LOCKSTAT..OC.2                     1 LINE     80    3 PAGE UM   MTA                 AUG. 02, 1973  00:36.15
00612/1     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/2     LETGO                                    OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   WSG                                        
00613/1     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/2     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/1     START JOB                                SA  G  STRT    WSG:START(1,999)                                                
            D3T5    184  START_JOB..SA.1                    1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:36.23
0          PROGRAM TO START UMMPS JOBS.
           CHECKS THE MTS SWITCHES TO MAKE SURE USER HAS EITHER "PRIV" OR "LIB CHANGE" BITS IN ACCOUNTING
           RECORD.  THEN READS COMMAND LINES FROM SCARDS AND FEEDS THEM TO SUPERVISOR VIA SVC STRTJB.
           COPIES COPY:LLMPSEQU (087).
0          Referenced by comments of: 154/2, 387/12, 387/14 
00614/2     START JOB                                OC  G          STRT:START                                                      
            D3T5    185  START_JOB..OC.2                    1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:36.25
00615/1     PLOT SYSTEM              INSTALLATION    C              W038:PSYSGEN                                                    
            D3.1T1  483  PLOT_SYSTEM.INSTALLATION.C.1       1 LINE    106    3 PAGE UM   BLINN               MAR. 06, 1974  22:35.08
0          THE UM MTS CALCOMP PLOT ROUTINES.  FOR D3.1, THIS VERSION HAS BEEN CHANGED TO COMPLETELY
           CORRESPOND TO MTS VOLUME 11 (WITH UPDATE 1 (512/3) APPLIED).
            
           SEVERAL OF THE SOURCE SUB-COMPONENTS OF THE PLOT SYSTEM CONSIST OF MORE THAN ONE ASSEMBLY, SO USE PAR=B
            
           615/1 CONTAINS COMMANDS TO ASSEMBLE AND COMPILE THE VARIOUS SUB-COMPONENTS OF THE PLOT SYSTEM AND
           COMPOSE THE PUBLIC FILE IMAGES.
00615/2     PLOT SYSTEM              MACROS          SM             S0686 PDSBAK POSN=PDSCC.MACROS                               1  
            D3.1T1  484  PLOT_SYSTEM.MACROS.SM.2            1 SEQ      80    2 PAGE UM   BLINN               MAR. 06, 1974  22:36.11
0          CALCOMP SYSTEM MACROS.  MUST BE RUN THROUGH *MACGEN BEFORE USING.
0          Referenced by comments of: 615/3, 615/4, 615/5, 615/6, 615/7, 615/8, 615/9, 615/10 
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00615/3     PLOT SYSTEM              GETSETPLTS8     SA  G          S0686 PDSBAK POSN=CC.GETSETPLTS8                             2  
            D3.1T1  485  PLOT_SYSTEM.GETSETPLTS8.SA.3       1 SEQ      80    4 PAGE UM   BLINN               MAR. 06, 1974  22:36.12
0          SUBROUTINE USED IN *CCQUEUE (615/13) AND SYS:CCP (615/14).  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/4     PLOT SYSTEM              CCQUEUE         SA  G          S0686 PDSBAK POSN=CC.CCQUEUE                                 3  
            D3.1T1  486  PLOT_SYSTEM.CCQUEUE.SA.4           1 SEQ      80   34 PAGE UM   BLINN               MAR. 06, 1974  22:36.17
0          MAIN PROGRAM FOR *CCQUEUE.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/5     PLOT SYSTEM              CCP             SA  G          S0686 PDSBAK POSN=CC.CCP                                     4  
            D3.1T1  487  PLOT_SYSTEM.CCP.SA.5               1 SEQ      80   18 PAGE UM   BLINN               MAR. 06, 1974  22:36.21
0          MAIN PROGRAM FOR SYS:CCP (615/14).  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/6     PLOT SYSTEM              CCPOST          SA  G          S0686 PDSBAK POSN=CC.CCPOST                                  5  
            D3.1T1  488  PLOT_SYSTEM.CCPOST.SA.6            1 SEQ      80    6 PAGE UM   BLINN               MAR. 06, 1974  22:36.23
0          SOURCE FOR *CCPOST.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/7     PLOT SYSTEM              CPCORE          SA  G          S0686 PDSBAK POSN=CC.CPCORE                                  6  
            D3.1T1  489  PLOT_SYSTEM.CPCORE.SA.7            1 SEQ      80   35 PAGE UM   BLINN               MAR. 06, 1974  22:36.28
0          MAIN PROGRAM FOR *CPCORE.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/8     PLOT SYSTEM              PWRIT           SA  G          S0686 PDSBAK POSN=PDS.PWRIT                                  7  
            D3.1T1  490  PLOT_SYSTEM.PWRIT.SA.8             1 SEQ      80   16 PAGE UM   BLINN               MAR. 06, 1974  22:36.32
0          SUBROUTINE IN *PLOTSYS.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/9     PLOT SYSTEM              PSYMB           SA  G          S0686 PDSBAK POSN=PDS.PSYMB                                  8  
            D3.1T1  491  PLOT_SYSTEM.PSYMB.SA.9             1 SEQ      80   13 PAGE UM   BLINN               MAR. 06, 1974  22:36.34
0          SUBROUTINES IN *PLOTSYS.  ALSO USED IN *CPCORE.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/10    PLOT SYSTEM              ASM             SA  G          S0686 PDSBAK POSN=PDS.ASM                                    9  
            D3.1T1  492  PLOT_SYSTEM.ASM.SA.10              1 SEQ      80   31 PAGE UM   BLINN               MAR. 06, 1974  22:36.39
0          SUBROUTINES IN *PLOTSYS.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/11    PLOT SYSTEM              FORT            SF  G          S0686 PDSBAK POSN=PDS.FORT                                   10 
            D3.1T1  493  PLOT_SYSTEM.FORT.SF.11             1 SEQ      80   27 PAGE UM   BLINN               MAR. 06, 1974  22:36.44
0          SUBROUTINES IN *PLOTSYS.
00615/12    PLOT SYSTEM              PSYMCHK         SF  G          S0686 PDSBAK POSN=CC.PSYMCHK                                 11 
            D3.1T1  494  PLOT_SYSTEM.PSYMCHK.SF.12          1 SEQ      80    2 PAGE UM   BLINN               MAR. 06, 1974  22:36.46
0          SYMBOL STRING CHECK FOR PSYM LINE PROCESSING AND GENERATION.
00615/13    PLOT SYSTEM              *CCQUEUE        OC  G          *CCQUEUE                                                        
            D3.1T1  495  PLOT_SYSTEM.*CCQUEUE.OC.13         1 LINE     80    9 PAGE UM   BLINN               MAR. 06, 1974  22:36.49
0          PROGRAM TO QUEUE USERS PLOTS FOR POST-PROCESSING BY *CCP.  ADDS A LINE TO *CCPFILE (NOT DISTRIBUTED) INDICATING
1                                                                                               FRI AUG 02/96   18:37:32   Page  222
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          THE PLOT TO BE PROCESSED.  OBJECT FROM 615/4 + 615/3 + 615/12.
0          Referenced by comments of: 615/3 
00615/14    PLOT SYSTEM              SYS:CCP         OC  G          SYS:CCP                                                         
            D3.1T1  496  PLOT_SYSTEM.SYS:CCP.OC.14          1 LINE     80    5 PAGE UM   BLINN               MAR. 06, 1974  22:36.51
0          POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/15) USED BY THE SYSTEM OPERATORS TO GENERATE OFFLINE PLOT TAPES.
           OBJECT CONSISTS OF 615/5 + 615/3 + A "$CONTINUE WITH *CPCORE" CARD.
0          Referenced by comments of: 615/3, 615/5, 615/15, 615/17 
00615/15    PLOT SYSTEM              *CCP            C              *CCP                                                            
            D3.1T1  497  PLOT_SYSTEM.*CCP.C.15              1 LINE     23    1 PAGE UM   BLINN               MAR. 06, 1974  22:36.53
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/14).
0          Referenced by comments of: 615/14 
00615/16    PLOT SYSTEM              *CCPOST         OC  G          *CCPOST                                                         
            D3.1T1  498  PLOT_SYSTEM.*CCPOST.OC.16          1 LINE     80    3 PAGE UM   BLINN               MAR. 06, 1974  22:36.56
0          PROGRAM TO ALLOW USERS TO POST-PROCESS THEIR OWN PLOTS.  OBJECT FROM 615/6 + A "$CONTINUE WITH *CPCORE" CARD.
0          Referenced by comments of: 615/17 
00615/17    PLOT SYSTEM              *CPCORE         OC  G          *CPCORE                                                         
            D3.1T1  499  PLOT_SYSTEM.*CPCORE.OC.17          1 LINE     80    9 PAGE UM   BLINN               MAR. 06, 1974  22:36.58
0          BASIC PROGRAMS IN CALCOMP POST-PROCESSOR.  USED WITH BOTH *CCPOST (615/16) AND SYS:CCP (615/14).
           *CPCORE DUPLICATES NAMES IN *PLOTSYS (615/18), BUT WRITES A CALCOMP PLOTTER TAPE, NOT A PLOT FILE.
           OBJECT CONSISTS OF OBJECT FROM 615/7 + 615/9 + 615/12.
00615/18    PLOT SYSTEM              *PLOTSYS        OL  G          *PLOTSYS                                                        
            D3.1T1  500  PLOT_SYSTEM.*PLOTSYS.OL.18         1 SEQ    4290   14 PAGE UM   BLINN               MAR. 06, 1974  22:37.00
0          OBJECT LIBRARY GENERATED FROM 615/8 + 615/9 + 615/10 + 615/11 + 615/12.
0          Referenced by comments of: 615/17 
00615/19    PLOT SYSTEM              *PFILESCAN      OC  G          *PFILESCAN                                                      
            D3T5    203  PLOT_SYSTEM.*PFILESCAN.OC.18       1 SEQ      23    1 PAGE UM   BLINN               AUG. 02, 1973  00:38.31
0          CONTAINS A "$CONTINUE WITH *OBJSCAN" CARD.
00616/1     TERM USAGE STATISTICS                    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 (OLD DATA CONCENTRATOR, NEW DATA CONCENTRATOR, MEMOREX 1270 (2703), 7772, 2260, ETC).  THE FILE
           CONTAINING THE STATISTICS DATA MAY BE SPECIFIED IN THE PAR= FIELD OR A TAPE MAY BE SPECIFIED BY GIVING
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0          "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).  ASSEMBLE WITH *SYSMAC.
00616/2     TERM USAGE STATISTICS                    OC  G          W108:DCSTAT                                                     
            D3T5    205  TERM_USAGE_STATISTICS..OC.2        1 LINE     80    3 PAGE UM   WSG                 AUG. 02, 1973  00:38.35
00617/1     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" (2703) 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) AND COPY:LLMPSEQU (087).  ASSEMBLE WITH *SYSMAC.
00617/2     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/1     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:LLMPWEQU (087).
0          Referenced by comments of: 9/1 
00618/2     BUFSTAT                                  OC  G          WSG:BUFSTAT(1000)                                               
            D3T5    209  BUFSTAT..OC.2                      1 LINE     80    1 PAGE UM   WSG                 AUG. 02, 1973  00:38.48
00619/1    *ASMT                     *ASMTSYSMAC     SM  O  SYSM    S0653 'ASMT' FSNAME=*ASMTSYSMAC                                 
            D3T5    210  ASMT.*ASMTSYSMAC.SM.1              1 LINE     80   70 PAGE UM   BERSTIS             JULY 29, 1973  16:04.30
0          THE IBM TSS/360 ASSEMBLER MODIFIED TO RUN IN MTS.
            
           *ASMTSYSMAC IS THE TSS VERSION OF *SYSMAC.
00619/2    *ASMT                     MACROS          SM  G  MAC0    S0653 'ASMT' FSNAME=ASMTMACROS                                  
            D3T5    211  ASMT.MACROS.SM.2                   1 LINE     80   67 PAGE UM   BERSTIS             JULY 23, 1973  18:02.28
0          MACRO LIBRARY USED TO ASSEMBLE COMPS 619/3 THROUGH 619/23.  CONTAINS DSECTS, PSECTS, AND OTHER TID BITS.
1                                                                                               FRI AUG 02/96   18:37:32   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          Referenced by comments of: 619/3 
00619/3    *ASMT                     PHASE 1.1       SA  S  A100    S0653 'ASMT' FSNAME=CEVA1.S                                     
            D3T5    212  ASMT.PHASE_1.1.SA.3                1 LINE     80   43 PAGE UM   BERSTIS             JULY 23, 1973  19:48.37
0          COMPS 619/3 THROUGH 619/23 SHOULD ALL BE ASSEMBLED USING THE ASMTMACROS MACRO LIBRARY (619/2) AND *SYSMAC.
00619/4    *ASMT                     PHASE 1.2       SA  S  A200    S0653 'ASMT' FSNAME=CEVA2.S                                     
            D3T5    213  ASMT.PHASE_1.2.SA.4                1 LINE     80   50 PAGE UM   BERSTIS             FEB. 12, 1973  22:00.06
00619/5    *ASMT                     PHASE 1.3       SA  S  A300    S0653 'ASMT' FSNAME=CEVA3.S                                     
            D3T5    214  ASMT.PHASE_1.3.SA.5                1 LINE     80   48 PAGE UM   BERSTIS             JUNE 04, 1973  01:55.14
00619/6    *ASMT                     PHASE 1.4       SA  S  A400    S0653 'ASMT' FSNAME=CEVA4.S                                     
            D3T5    215  ASMT.PHASE_1.4.SA.6                1 LINE     80   40 PAGE UM   BERSTIS             JULY 23, 1973  18:38.45
00619/7    *ASMT                     PHASE 1.5       SA  S  A500    S0653 'ASMT' FSNAME=CEVA5.S                                     
            D3T5    216  ASMT.PHASE_1.5.SA.7                1 LINE     80   53 PAGE UM   BERSTIS             JULY 23, 1973  18:38.34
00619/8    *ASMT                     PHASE 1.6       SA  S  A600    S0653 'ASMT' FSNAME=CEVA6.S                                     
            D3T5    217  ASMT.PHASE_1.6.SA.8                1 LINE     80   47 PAGE UM   BERSTIS             JULY 28, 1973  21:31.34
00619/9    *ASMT                     PHASE 1.7       SA  S  A700    S0653 'ASMT' FSNAME=CEVA7.S                                     
            D3T5    218  ASMT.PHASE_1.7.SA.9                1 LINE     80   39 PAGE UM   BERSTIS             JULY 28, 1973  21:31.27
00619/10   *ASMT                     PHASE 1.8       SA  S  A800    S0653 'ASMT' FSNAME=CEVA8.S                                     
            D3T5    219  ASMT.PHASE_1.8.SA.10               1 LINE     80   18 PAGE UM   BERSTIS             JULY 13, 1973  03:07.03
00619/11   *ASMT                     PHASE 1.9       SA  S  A900    S0653 'ASMT' FSNAME=CEVA9.S                                     
            D3T5    220  ASMT.PHASE_1.9.SA.11               1 LINE     80   10 PAGE UM   BERSTIS             FEB. 11, 1973  18:48.12
00619/12   *ASMT                     PHASE 2.1       SA  S  B100    S0653 'ASMT' FSNAME=CEVB1.S                                     
            D3T5    221  ASMT.PHASE_2.1.SA.12               1 LINE     80   29 PAGE UM   BERSTIS             JULY 23, 1973  19:48.45
00619/13   *ASMT                     PHASE 2.2       SA  S  C100    S0653 'ASMT' FSNAME=CEVC1.S                                     
            D3.1T1  501  ASMT.PHASE_2.2.SA.13               1 LINE     80   41 PAGE UM   BERSTIS             MAR. 02, 1974  01:14.21
00619/14   *ASMT                     PHASE 2.3       SA  S  D100    S0653 'ASMT' FSNAME=CEVD1.S                                     
            D3T5    223  ASMT.PHASE_2.3.SA.14               1 LINE     80   19 PAGE UM   BERSTIS             JUNE 04, 1973  01:57.46
00619/15   *ASMT                     PHAS1 3.1       SA  S  E100    S0653 'ASMT' FSNAME=CEVE1.S                                     
            D3T5    224  ASMT.PHAS1_3.1.SA.15               1 LINE     80   61 PAGE UM   BERSTIS             JULY 23, 1973  18:38.52
00619/16   *ASMT                     PHASE 3.2       SA  S  E200    S0653 'ASMT' FSNAME=CEVE2.S                                     
            D3T5    225  ASMT.PHASE_3.2.SA.16               1 LINE     80   63 PAGE UM   BERSTIS             JULY 16, 1973  02:01.35
00619/17   *ASMT                     PHASE 4         SA  S  F100    S0653 'ASMT' FSNAME=CEVF1.S                                     
            D3.1T1  502  ASMT.PHASE_4.SA.17                 1 LINE     80   57 PAGE UM   BERSTIS             MAR. 02, 1974  01:14.28
00619/18   *ASMT                     ASMTGO          SA  G  GO00    S0653 'ASMT' FSNAME=ASMTGO.S                                    
            D3.1T1  503  ASMT.ASMTGO.SA.18                  1 LINE     80    4 PAGE UM   BERSTIS             MAR. 02, 1974  01:14.54
0          THIS ROUTINE CALLS THE ASSEMBLER WITH TSS CALLING CONVENTIONS.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00619/19   *ASMT                     ASMTDEFS        SA     DEFS    S0653 'ASMT' FSNAME=ASMTDEFS.S                                  
            D3T5    228  ASMT.ASMTDEFS.SA.19                1 LINE     80    4 PAGE UM   BERSTIS             JULY 23, 1973  18:06.18
0          ASMT LOW-CORE SYMBOL TABLE.
00619/20   *ASMT                     CEVAR           SA  S  AR00    S0653 'ASMT' FSNAME=CEVAR.S                                     
            D3T5    229  ASMT.CEVAR.SA.20                   1 LINE     80    8 PAGE UM   BERSTIS             JULY 23, 1973  18:06.40
0          ASMT PSECTS.  ASSEMBLE WITH PAR=BATCH.
00619/21   *ASMT                     LPC             SA  O  LPC0    S0653 'ASMT' FSNAME=ASMTLPC.S                                   
            D3.1T1  504  ASMT.LPC.SA.21                     1 LINE     80   19 PAGE UM   BERSTIS             MAR. 02, 1974  01:14.17
0          ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT).
00619/22   *ASMT                     OBJ PRODUCER    SA  O  DECK    S0653 'ASMT' FSNAME=DECK.S                                      
            D3T5    231  ASMT.OBJ_PRODUCER.SA.22            1 LINE     80   23 PAGE UM   BERSTIS             JULY 23, 1973  18:06.57
0          PROGRAM TO CONVERT TSS OBJECT TO MTS FORMAT OBJECT DECK.
00619/23   *ASMT                     CEVML           SA  O  ML00    S0653 'ASMT' FSNAME=CEVML.S                                     
            D3T5    232  ASMT.CEVML.SA.23                   1 LINE     80    6 PAGE UM   BERSTIS             JULY 28, 1973  21:31.21
0          MACRO AND COPY LIBRARY RETRIEVAL.
00619/24   *ASMT                     SHARED OBJECT   OE             S0653 'ASMT' FSNAME=ASMTLCOBJ                                   
            D3.1T1  505  ASMT.SHARED_OBJECT.OE.24           1 SEQ   10151   84 PAGE UM   BERSTIS             MAR. 02, 1974  01:14.09
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.1T1  506  ASMT.*ASMT.OE.25                   1 SEQ    4096    9 PAGE UM   BERSTIS             MAR. 02, 1974  01:14.51
0          NON-SHARED OBJECT.
00619/26   *ASMT                     DOCUMENTATION   WF             S0653 'ASMT' FSNAME=ASMTDOC                                     
            D3.1T1  507  ASMT.DOCUMENTATION.WF.26           1 LINE    153    5 PAGE UM   BERSTIS             MAR. 02, 1974  01:14.02
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    MTS:STATDCT/D3.1                                                
            D3.1T1  508  STATDSECT..SA.                     1 LINE     80    3 PAGE UM   MTA                 MAR. 06, 1974  22:40.27
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, 617/1 
00621/1     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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00621/2     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/3     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/4     DISK ERROR LOG           PRINT UC 3330   SA  G  PRUC    MTA:PRINTUC3330(1,999)                                          
            D3T5    240  DISK_ERROR_LOG.PRINT_UC_33.SA.4    1 LINE     80    4 PAGE UM   MTA                 AUG. 02, 1973  00:53.42
0          PROGRAM TO READ ITEL 7330 UNIT CHECK LOG RECORDS, AS SAVED BY READ3330LOG (621/2) OR UC3330 (603), ON SCARDS AND
           FORMAT THEM FOR PRINTING ON SPRINT.  IT IGNORES ALL RECORDS THAT ARE NOT OF TYPE 4, THE TYPE USED FOR UC3330 RECORDS.
           COPIES COPY:CMDAREADSECT (531/12).  ASSEMBLE WITH *SYSMAC.
00621/5     DISK ERROR LOG           PRINT UC 3330   OC  G          MTA:PRINTUC3330(1000)                                           
            D3T5    241  DISK_ERROR_LOG.PRINT_UC_33.OC.5    1 LINE     80    3 PAGE UM   MTA                 AUG. 02, 1973  00:53.45
00621/6     DISK ERROR LOG           CONSOLE WATCH   SA  O  LOGD    MTA:LOGDISKERRS(1,999)                                          
            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.
           ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 621/1 
00621/7     DISK ERROR LOG           CONSOLE WATCH   OC  O          MTA:LOGDISKERRS(1000)                                           
            D3T5    243  DISK_ERROR_LOG.CONSOLE_WAT.OC.7    1 LINE     80    1 PAGE UM   MTA                 AUG. 02, 1973  00:53.50
00621/8     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/9     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
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00622       FCBDSECT                                 SA  G          COPY:FCBDSECT                                                   
            D3.1T1  509  FCBDSECT..SA.                      1 LINE     80    4 PAGE UM   DWB                 MAR. 06, 1974  22:40.28
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.1T1  510  FDUBDSECT..SA.                     1 LINE     80    3 PAGE UM   DWB                 MAR. 06, 1974  22:40.30
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 
00624       WOPTRDSECT                               SA  G          COPY:WOPTRDSECT                                                 
            D3.1T1  511  WOPTRDSECT..SA.                    1 LINE     80    1 PAGE UM   DWB                 MAR. 06, 1974  22:40.32
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       SIMSCRIPT2                                            @                                                                 
                                                                                    WSU  HENRIKSEN                                  
00626/1     ATNTRP SUBR                              SA  G  ATRP    W034: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/2     ATNTRP SUBR                              OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   JWS                                        
00627/1     GDINF SUBR                               SA  G  GDIN    W034: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/2     GDINF SUBR                               OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   JWS                                        
00628/1     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/2     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/1    *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.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
0           
           NOTE:  THIS VERSION OF *3270RTN IS A UM MODIFIED VERSION OF THE UBC OFFICIAL VERSION LAST RECEIVED.
                  UBC EXPECTS TO HAVE A NEW VERSION WITH SEVERAL NEW FEATURES AND OLD BUGS FIXED SOON.  THE OFFICIAL
                  UBC VERSION WILL BE DISTRIBUTED IN THE FUTURE WHEN AVAILABLE.
0          Referenced by comments of: 42/2 
00629/2    *3270RTN                                  OC  G          *3270RTN                                                        
            D3.1T1  517  3270RTN..OC.2                      1 LINE     80    6 PAGE UM   HAMILTON            MAR. 06, 1974  22:41.01
00629/3    *3270RTN                  USER'S GUIDE    WF  G          W047:3270.W                                                     
            D3.1T1  518  3270RTN.USER'S_GUIDE.WF.3          1 LINE    175   14 PAGE UM   HAMILTON            MAR. 06, 1974  22:41.03
0          UBC WRITEUP "USING MTS FROM THE IBM 3270 DISPLAY STATION".
00630/1     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
           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/2     TRUNCATE                                 OE             W078:TRUNCATE                                                   
            D3.1T1  520  TRUNCATE..OE.2                     1 SEQ    2655    2 PAGE UM   BERSTIS             MAR. 06, 1974  22:41.09
00631/1     ACCOUNTING CLS           CLSTV           SA  G  CLST    S0027 DISTRB FSNAME=CLSTV                                       
            D3.1T1  521  ACCOUNTING_CLS.CLSTV.SA.1          1 LINE     80    3 PAGE UM   ENGLE               FEB. 23, 1974  10:29.34
0          PROGRAM TO PRODUCE CLSTRANSVEC WHICH IS A COPY SECTION FOR ACCCLS. 
           COPIES GRDEF (104/58) AND COPY:CLSVECTOR (535/2).
00631/2     ACCOUNTING CLS           CLSTV           OC  G  CLST    S0027 DISTRB FSNAME=CLST                                        
            D3.1T1  522  ACCOUNTING_CLS.CLSTV.OC.2          1 LINE     80    2 PAGE UM   ENGLE               FEB. 23, 1974  10:29.37
0          Referenced by comments of: 631/3 
00631/3     ACCOUNTING CLS           CLSTRANSVEC     SA  G          S0027 DISTRB FSNAME=CLSTRANSVEC                                 
            D3.1T1  523  ACCOUNTING_CLS.CLSTRANSVEC.SA.3    1 LINE     19    1 PAGE UM   ENGLE               FEB. 23, 1974  10:29.41
0          COPY SECTION FOR ACCCLS PRODUCED BY RUNNING CLSTV (631/2).
0          Referenced by comments of: 631/4 
00631/4     ACCOUNTING CLS           ACCCLS          SA  G  ACLS    S0027 DISTRB FSNAME=ACCCLS                                      
            D3.1T1  524  ACCOUNTING_CLS.ACCCLS.SA.4         1 LINE     80    5 PAGE UM   ENGLE               FEB. 23, 1974  10:29.44
0          INTERFACE BETWEEN ACCOUNTING CLS CALL AND ACCMXMAT.
           COPIES GRDEF (104/58) AND CLSTRANSVEC (631/3).
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00631/5     ACCOUNTING CLS           ACCCLS          OC  G  ACLS    S0027 DISTRB FSNAME=ACLS                                        
            D3.1T1  525  ACCOUNTING_CLS.ACCCLS.OC.5         1 LINE     80    3 PAGE UM   ENGLE               FEB. 23, 1974  10:29.48
0          Referenced by comments of: 631/12 
00631/6     ACCOUNTING CLS           ACCMXMAT        SA  G  AMXM    S0027 DISTRB FSNAME=ACCMXMAT                                    
            D3.1T1  526  ACCOUNTING_CLS.ACCMXMAT.SA.6       1 LINE     80   47 PAGE UM   ENGLE               NOV. 30, 1973  12:39.47
0          ACCOUNTING MAXIMUM MAINTENANCE (MAIN PROGRAM FOR ACCOUNTING CLS). 
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/3).
00631/7     ACCOUNTING CLS           ACCMXMAT        OC  G          S0027 DISTRB FSNAME=AMXM                                        
            D3.1T1  527  ACCOUNTING_CLS.ACCMXMAT.OC.7       1 LINE     80    9 PAGE UM   ENGLE               JAN. 31, 1974  15:46.02
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 
00631/8     ACCOUNTING CLS           ACUSPRNT        SA  G  AUPR    S0027 DISTRB FSNAME=ACUSPRNT                                    
            D3.1T1  528  ACCOUNTING_CLS.ACUSPRNT.SA.8       1 LINE     80    6 PAGE UM   ENGLE               NOV. 09, 1973  15:23.25
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/9     ACCOUNTING CLS           ACUSPRNT        OC  G          S0027 DISTRB FSNAME=AUPR                                        
            D3.1T1  529  ACCOUNTING_CLS.ACUSPRNT.OC.9       1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  15:47.01
0          Referenced by comments of: 631/12 
00631/10    ACCOUNTING CLS           FASTIOCK        SA  G  FIOC    S0720 'D3T1' FSNAME=ACCOUNTING.FASTIOCK.SA.83                313
            D3T1    313  ACCOUNTING.FASTIOCK.SA.83          1 LINE     80    3 PAGE UM   ENGLE               JAN. 09, 1973  11:07.38
0          SUBROUTINE TO DETERMINE IF AN I/O UNIT IS "FAST."  USED IN ACCOUNTING CLS.  COPIES GRDEF (104/58).
00631/11    ACCOUNTING CLS           FASTIOCK        OC  G          S0720 'D3T1' FSNAME=ACCOUNTING.FASTIOCK.OC.84                314
            D3T1    314  ACCOUNTING.FASTIOCK.OC.84          1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  11:07.52
0          Referenced by comments of: 104/1, 631/12 
00631/12    ACCOUNTING CLS           *CLSACC         OE  G          S0027 DISTRB FSNAME=*CLSACC                                     
            D3.1T1  530  ACCOUNTING_CLS.*CLSACC.OE.12       1 SEQ    9840    6 PAGE UM   ENGLE               FEB. 24, 1974  15:21.16
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/90) + DIRECTRY (104/46) + ACCIO (104/19) + FILENAME
           (104/44) +ACUSPRNT (631/9) + FASTIOCK (631/11) + TIMETRP (104/82) + *LCS.
           *PROJECTACCOUNT, WHICH IS IN A STATE OF DECLINE, IS THE SAME WITHOUT ACCCLS.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00631/13    ACCOUNTING CLS           WRITEUP         WT             S0027 DISTRB FSNAME=PRJACCWRITUP                                
            D3.1T1  531  ACCOUNTING_CLS.WRITEUP.WT.13       1 LINE     80   19 PAGE UM   ENGLE               FEB. 12, 1974  17:48.26
0          TEXT/360 MASTER FOR USER-LEVEL DOCUMENTATION.
00632/1     REBATE                   REBATE          SP  G  RBAT    S0027 DISTRB FSNAME=REBATE                                      
            D3.1T1  532  REBATE.REBATE.SP.1                 1 LINE     80   21 PAGE UM   ENGLE               JAN. 31, 1974  17:57.23
0          REBATES MTS SIGNONS.
           THE REBATE PROGRAM IS CONSTRUCTED BY COMBINING REBATE (632/2) AND ACCLIB (104/32).
00632/2     REBATE                   REBATE          OC  G  RBAT    S0027 DISTRB FSNAME=RBAT                                        
            D3.1T1  533  REBATE.REBATE.OC.2                 1 LINE     80   20 PAGE UM   ENGLE               JAN. 31, 1974  17:57.38
0          Referenced by comments of: 632/1 
00632/3     REBATE                   RBATACC         SA  G  RBTA    S0027 DISTRB FSNAME=RBATACC                                     
            D3.1T1  534  REBATE.RBATACC.SA.3                1 LINE     80    5 PAGE UM   ENGLE               DEC. 21, 1973  12:10.11
0          SUBROUTINE CALLED BY REBATE TO COMPUTE COST OF REBATE AND TO UPDATE USERS 
           ACCOUNTING RECORD. USED IN ACCLIB (104/32).
           COPIES GRDEF (104/58) AND ACCFORMAT (104/1).
00632/4     REBATE                   RBATACC         OC  G  RBTA    S0027 DISTRB FSNAME=RBTA                                        
            D3.1T1  535  REBATE.RBATACC.OC.4                1 LINE     80    3 PAGE UM   ENGLE               JAN. 31, 1974  18:01.36
0          Referenced by comments of: 104/1 
00632/5     REBATE                   STAREAD         SA  G  STRD    S0027 DISTRB FSNAME=STAREAD                                     
            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/32).
           COPIES GRDEF (104/58).
00632/6     REBATE                   STAREAD         OC  G  STRD    S0027 DISTRB FSNAME=STRD                                        
            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/7     REBATE                   WRITEUP         WF             S0027 DISTRB FSNAME=REBATEWRITUP                                
            D3.1T1  538  REBATE.WRITEUP.WF.7                1 LINE     80    5 PAGE UM   ENGLE               JAN. 31, 1974  18:02.54
0          WRITEUP FOR REBATE.
00632/8     REBATE                   REQUEST FORM    WF             S0027 DISTRB FSNAME=REBATREQUEST                                
            D3.1T1  539  REBATE.REQUEST_FORM.WF.8           1 LINE    112    2 PAGE UM   ENGLE               JAN. 08, 1974  15:05.05
0          COMMANDS AND *FORMAT INPUT FOR REBATE REQUEST FORM.
00633/1    *PL1SCAN                                  S            # (SOURCE NOT AVAILABLE FOR DISTRIBUTION AT THIS TIME)            
                                                                                    UM   TIFFANY                                    
0          PL/I SYNTAX SCANNING PROGRAM.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00633/2    *PL1SCAN                                  OE             SEG2:PL1SCAN                                                    
            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/3 
00633/3    *PL1SCAN                  *PL1SCAN        OC             *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/2).
00633/4    *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/1     OPERATOR JOB                             SA  G  OPER    W047:OP.S                                                       
            D3.1T1  543  OPERATOR_JOB..SA.1                 1 LINE     80   51 PAGE UM   HAMILTON            MAR. 06, 1974  22:45.47
0          JOB PROGRAM TO SUPPORT IBM 3270 AS OPERATOR'S CONSOLE.
           COPIES COPY:LLMPSEQU (087).
0          Referenced by comments of: 4/1, 413/1 
00634/2     OPERATOR JOB                             OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   HAMILTON                                   
00634/3     OPERATOR JOB             CONSIO          SA  G  CONS    W047:CONSIO                                                     
            D3.1T1  544  OPERATOR_JOB.CONSIO.SA.3           1 LINE     80    3 PAGE UM   HAMILTON            MAR. 06, 1974  22:46.14
0          SUBROUTINE TO DO STAND-ALONE I/O TO 1052.  THIS IS A REPLACEMENT FOR THE OPERATOR
           JOB PROGRAM FOR INSTALLATIONS WHICH ARE NOT USING THE 3270 OPERATOR'S CONSOLE SUPPORT.
00634/4     OPERATOR JOB             CONSIO          OC  G          W047:CONSIO.O                                                   
            D3.1T1  545  OPERATOR_JOB.CONSIO.OC.4           1 LINE     80    1 PAGE UM   HAMILTON            MAR. 06, 1974  22:46.16
0          INSTALLATIONS NOT USING THE 3270 OPERATOR'S CONSOLE SUPPORT SHOULD REPLACE THE OPERATOR
           JOB IN THE RESIDENT SYSTEM OBJECT DECK (468) WITH THIS DECK.
00634/5     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/1     FSUB                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          COMPOSED OF FDGET, HOPENIT, GIVEBACK, FILE LOCKING AND UNLOCKING, ETC. SECTIONS WHICH PRIOR TO D3.1
           WERE PART OF THE MAIN MTS ASSEMBLY (042/1).  FSUB CONSISTS OF THE FOLLOWING RANGES OF D3 MTS SEQ ID:
            
               M0318000 - M0506500
               M0544900 - M0574200
               M0582500 - M0585200
1                                                                                               FRI AUG 02/96   18:37:32   Page  232
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0              M0589500 - M0611900
               M0666800 - M0682100
               M0686800 - M0702500
            
           COPIES COPY:LLMPSEQU (087), 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/2     FSUB                     D3.1 UPDATE     UU  G          MTS:FSUBUPD                                                     
            D3.1T1  547  FSUB.D3.1_UPDATE.UU.2              1 LINE     63    3 PAGE UM   DWB                 MAR. 06, 1974  22:46.20
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO D3.1 FSUB.
           UPDATE DECK USES %POSN *IN* MTS.
00635/3     FSUB                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00636/1     CMDS                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          COMPOSED OF ALL COMMAND PROCESSORS WHICH PRIOR TO D3.1 WERE PART OF THE MAIN MTS ASSEMBLY (042/1).
           CMDS CONSISTS OF THE FOLLOWING RANGE OF D3 MTS SEQ ID:
            
               M0805100 - M1329000
            
           COPIES COPY:LLMPSEQU (087), 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/2     CMDS                     D3.1 UPDATE     UU  G          MTS:CMDSUPD/D3.1                                                
            D3.1T1  548  CMDS.D3.1_UPDATE.UU.2              1 LINE     72    5 PAGE UM   DWB                 MAR. 06, 1974  22:46.23
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO D3.1 CMDS.
           UPDATE DECK USES %POSN *IN* MTS.
00636/3     CMDS                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00637/1     DSRS                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          COMPOSED OF THE INTERNAL DSR'S AND HASP INTERFACE WHICH PRIOR TO D3.1 WERE PART OF THE MAIN
           MTS ASSEMBLY (042/1).  CONSISTS OF THE FOLLOWING RANGE OF D3 MTS SEQ ID:
            
               M1329100 - M1536700
            
           COPIES COPY:LLMPSEQU (087), 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.
1                                                                                               FRI AUG 02/96   18:37:32   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: 344/1 
00637/2     DSRS                     D3.1 UPDATE     UU  G          MTS:DSRSUPD                                                     
            D3.1T1  549  DSRS.D3.1_UPDATE.UU.2              1 LINE     68    3 PAGE UM   DWB                 MAR. 06, 1974  22:46.25
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO D3.1 DSRS.
           UPDATE DECK USES %POSN *IN* MTS.
00637/3     DSRS                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00638/1     USUB                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          COMPOSED OF THE USER SUBROUTINES WHICH PRIOR TO D3.1 WERE PART OF THE MAIN MTS ASSEMBLY (042/1).
           USUB CONSISTS OF THE FOLLOWING RANGE OF D3 MTS SEQ ID:
            
               M1536800 - M1650700
            
           COPIES COPY:LLMPSEQU (087), 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/2     USUB                     D3.1 UPDATE     UU  G          MTS:USUBUPD                                                     
            D3.1T1  550  USUB.D3.1_UPDATE.UU.2              1 LINE     62    1 PAGE UM   DWB                 MAR. 06, 1974  22:46.27
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO D3.1 USUB.
           UPDATE DECK USES %POSN *IN* MTS.
00638/3     USUB                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00639/1     DSRI                     D3 MASTER       SA  G        # (SEE COMP 042/1)                                                
                                                                                    UM   DWB                                        
0          COMPOSED OF THE DSR INTERFACE WHICH PRIOR TO D3.1 WAS PART OF THE MAIN MTS ASSEMBLY (042/1).
           DSRI CONSISTS OF THE FOLLOWING RANGE OF D3 MTS SEQ ID:
            
               M1650800 - M1761900
            
           PLUS A FEW CONSTANTS FROM AFTER M1761900.
           COPIES COPY:LLMPSEQU (087), 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/2     DSRI                     D3.1 UPDATE     UU  G          MTS:DSRIUPD                                                     
            D3.1T1  551  DSRI.D3.1_UPDATE.UU.2              1 LINE     72    3 PAGE UM   DWB                 MAR. 06, 1974  22:46.29
0          UPDATE DECK TO CONVERT D3 MTS MASTER SOURCE (042/1) INTO D3.1 DSRI.
           UPDATE DECK USES %POSN *IN* MTS.
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00639/3     DSRI                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00640       MTS.TV                                   SA  G          MTS:MTS.TV/D3.1                                                 
            D3.1T1  552  MTS.TV..SA.                        1 LINE     56    1 PAGE UM   DWB                 MAR. 06, 1974  22:46.32
0          THIS IS "COPY:MTS.TV", ADDED IN D3.1, 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.1T1  553  CLSAREA..SA.                       1 LINE     80    2 PAGE UM   DWB                 MAR. 06, 1974  22:46.34
0          COPY SECTION ADDED FOR D3.1 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/1     PACK MAP                                 SA  G  PCKM    MTS:PACKMAP                                                     
            D3.1T1  554  PACK_MAP..SA.1                     1 LINE     80   22 PAGE UBC  PIRKOLA             MAR. 06, 1974  22:46.36
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).
00642/2     PACK MAP                                 SA  G          MTS:PMAP.ISORT                                                  
            D3.1T1  555  PACK_MAP..SA.2                     1 LINE     72    8 PAGE UBC  PIRKOLA             MAR. 06, 1974  22:46.39
0          IN CORE SORT ROUTINE USED BY PACKMAP.
0          Referenced by comments of: 642/1 
00642/3     PACK MAP                                 OC  G          MTS:PACKMAP.O                                                   
            D3.1T1  556  PACK_MAP..OC.3                     1 LINE     80    7 PAGE UBC  PIRKOLA             MAR. 06, 1974  22:46.41
0          OBJECT FOR PACKMAP, CONTAINS ISORT OBJECT AND VTOCREAD OBJECT.
00643/1     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/2     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/1     DISK SPACE                               SA  G          MTS:DS                                                          
            D3.1T1  559  DISK_SPACE..SA.1                   1 LINE     72    3 PAGE UBC  PIRKOLA             MAR. 06, 1974  22:46.48
0          UBC PROGRAM TO PRINT AVAILABLE DISK SPACE.
           COPIES COPY:DSKDSCT (482/42)
1                                                                                               FRI AUG 02/96   18:37:32   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
+         ______________ _____________________
00644/2     DISK SPACE                               OC  G          MTS:DS.O                                                        
            D3.1T1  560  DISK_SPACE..OC.2                   1 LINE     80    1 PAGE UBC  PIRKOLA             MAR. 06, 1974  22:46.50
00645       UBCDSECTS                                SA  G          COPY:UBCDSECTS                                                  
            D3.1T1  561  UBCDSECTS..SA.                     1 LINE     71    1 PAGE UBC  DWB                 MAR. 06, 1974  22:46.52
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 
