1                                                                                               WED JUL 24/96   18:21:34   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                                   SA  G  UMLD    W009:UMLOAD.S                                                   
            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.
           SOME INSTALLATIONS HAVE RECENTLY RECEIVED AN INTERIM VERSION OF UMLOAD WHICH WAS LABELED VERSION 3.0.
           HOWEVER, BECAUSE OF THE DELAY IN DISTRIBUTION 3.0, UMLOAD HAS SINCE BEEN CHANGED.
           THIS IS THE REAL VERSION 3.0 (DON'T STAND UP).
0          Referenced by comments of: 254/1 
00001/2     UMLOAD                                   UU           # (NOT AVAILABLE)                                                 
                                                                                    UM   DE JONG                                    
0          BECAUSE OF VERY EXTENSIVE CHANGES TO UMLOAD, WE DO NOT HAVE AN UPDATE DECK
           TO PRODUCE D3.0 FROM D2.0.  RUN *DOWNDATE AND YOU'LL GET A MESS!
00001/3     UMLOAD                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DE JONG                                    
00001/4     UMLOAD                   WRITEUP         WF  G          W098:KDJLDRDOC                                                  
            D3T1      2  UMLOAD.WRITEUP.WF.4                1 LINE    114    9 PAGE UM   DE JONG             JULY 30, 1973  22:56.05
00003/1     JOBLIST                                  SA  G  JBLS    S0622 D3MISC FSNAME=JOBLST.S                                 58 
            D3T1      3  JOBLIST..SA.1                      1 LINE     80    8 PAGE UM   MTA                 JULY 30, 1973  20:46.02
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)                                               
            D3T1      4  TABLES..SA.1                       1 LINE     80   18 PAGE UM   WSG                 JULY 30, 1973  22:58.59
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.
0          Referenced by comments of: 482/10 
00004/2     TABLES                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   WSG                                        
00004/3     TABLES                   WRITEUP         WF             MTS:TABLESDESCR                                                 
            D3T1      5  TABLES.WRITEUP.WF.3                1 LINE    133   13 PAGE UM   WSG                 JULY 30, 1973  22:59.04
00004/4     TABLES                   DECKGEN         SA  G  DCKP    W047:DCKPCHR.S                                                  
            D3T5    250  TABLES.DECKGEN.SA.4                1 LINE     80   64 PAGE UBC  MADDEROM            AUG. 11, 1973  01:27.27
0          STAND-ALONE PROGRAM WRITTEN AT UBC AND MODIFIED AT UM WHICH GENERATES AN MTS OBJECT DECK FOR TABLES BASED
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
0          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.
           A WRITEUP (004/6) IS INCLUDED IN THE PAPER DOCUMENTATION.
00004/5     TABLES                   DECKGEN         OC  G          W047:DCKPCHR.O                                                  
            D3T5    251  TABLES.DECKGEN.OC.5                1 LINE     80    6 PAGE UBC  MADDEROM            AUG. 11, 1973  01:27.45
0          THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE.
0          Referenced by comments of: 468/2 
00004/6     TABLES                   DECKGEN DESCR   WF             W047:DCKPCHR.W                                                  
            D3T5    252  TABLES.DECKGEN_DESCR.WF.6          1 LINE    108    4 PAGE UM   HAMILTON            AUG. 11, 1973  01:27.47
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                                                        
            D3T1      6  JBRP..SA.1                         1 LINE     80    7 PAGE UM   MTA                 JULY 30, 1973  22:59.27
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                                                                                               WED JUL 24/96   18:21:34   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)                                                 
            D3T1     11  EXIT..SA.1                         1 LINE     80    3 PAGE UM   MTA                 JULY 30, 1973  23:01.03
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    S0622 D3MISC FSNAME=CARDUC.S                                 47 
            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    S0622 D3MISC FSNAME=PCHUC.S                                  48 
            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                                                                                               WED JUL 24/96   18:21:34   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/1 AND 482/2)                                      
                                                                                    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)                                               
            D3T1     19  TASKS_JOB..SA.1                    1 LINE     80    9 PAGE UM   WSG                 JULY 30, 1973  23:01.54
0          THE JOB PROGRAM VERSION OF *TASKS.
           CONTAINS TSKFMT SUBROUTINE CALLED BY *TASKS (145)
           COPIES COPY:LLMPSEQU (087).
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.
00020/2     JOBDUMP JOB                              OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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    S0622 D3MISC FSNAME=ONLINE.OFFLINE.S                         49 
            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                                                                                               WED JUL 24/96   18:21:34   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/3 AND 482/4)                                      
                                                                                    UM                                              
00029       VTOC                                                  # (SEE COMP 482/5 AND 482/6)                                      
                                                                                    UM                                              
00030       READT <TRAK>                                          # (SEE COMP 482/7 AND 482/8)                                      
                                                                                    UM                                              
00031       GTZ                                                   # OBSOLETE                                                        
            D2.1    036                                                             UM                                              
00032       READI                                                 # (SEE COMP 482/11 AND 482/12)                                    
                                                                                    UM                                              
00033       WRITEI                                                # (SEE COMP 482/13 AND 482/14)                                    
                                                                                    UM                                              
00034       READL                                                 # (SEE COMP 482/15 AND 482/16)                                    
                                                                                    UM                                              
00036       OPEN SCRTCH<EMPTY> ETC                                # (SEE COMP 482/17 AND 482/18)                                    
                                                                                    UM                                              
00037       GETDSK ETC                                            # (SEE COMP 482/19 AND 482/20)                                    
                                                                                    UM                                              
00038/1     TSFO                                     SA  G  TSFO    W032:TSFOSOU3.0                                                 
            D3T1     26  TSFO..SA.1                         1 LINE     80  140 PAGE UM   EMERY               AUG. 01, 1973  00:53.44
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                                                                                               WED JUL 24/96   18:21:34   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.
00038/2     TSFO                     *2741RTN        OC  G          *2741RTN                                                        
            D3T1     27  TSFO.*2741RTN.OC.2                 1 LINE     80   10 PAGE UM   EMERY               AUG. 01, 1973  00:54.07
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.
            
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
1                                                                                               WED JUL 24/96   18:21:34   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/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 
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.
00039/2     CASECONV                                 OC           # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   EMERY                                      
00040/1     KWIC                                     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),
           AND COPY:LLMPSEQU (087).
           REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00040/2     KWIC                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00041/1     GETSPACE/FREESPAC                        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), AND COPY:LLMPSEQU (087). 
           NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC.
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1, 468/2 
00041/2     GETSPACE/FREESPAC                        OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00042/1     MTS                                      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).
0          Referenced by comments of: 42/3, 42/4, 42/5, 468/1 
00042/2     MTS                      UPDATE #1       UU  G          S0602 MTSSAV 'MTS BACKUP' FSNAME=MTSUPDATES.D3                  
            D3T1     41  MTS.UPDATE_#1.UU.2                 1 LINE     73   82 DISK UM   DWB                 JUNE 07, 1973  20:46.58
0          UPDATE DECK TO PRODUCE PRE-PF (PAGE FORMATTED FILE SYSTEM) DIST 3 SOURCE FROM DIST 2 SOURCE.  THIS UPDATE
           RESEQUENCES THE SOURCE, CONTAINS A %REW CARD, AND ASSUMES THAT THE MASTER IS ON THE FIRST FILE OF A TAPE.
00042/3     MTS                      UPDATE #2       UU  G          MTS:MTSUPD.D3#2                                                 
            D3T1     42  MTS.UPDATE_#2.UU.3                 1 LINE     80    6 PAGE UM   DWB                 JULY 30, 1973  23:12.30
0          THIS SECOND UPDATE DECK WAS REQUIRED WHEN IT WAS DECIDED TO INCLUDE THE PAGE-FORMATTED FILE SYSTEM AS PART OF DIST 3.0.
           IT PRODUCES THE REAL DIST 3.0 MASTER FOR MTS (042/1) FROM THE OUTPUT OF THE FIRST UPDATE.  IT DOES NOT RESEQUENCE
           THE SOURCE; ALL INSERTED CARDS HAVE ID'S GENERATED BY THE NOT-RESEQUENCER PROGRAM (602).
00042/4     MTS                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
0          NOTE: THE MTS OBJECT IN BOTH SYSTEM OBJECT DECKS (468/1 AND 468/2) CONTAINS A REP CARD WHICH PROVIDES FOR MORE SCRATCH
                 SPACE FOR THE $LSTAT COMMAND.  THIS CHANGE HAS ALREADY BEEN MADE IN THE MTS SOURCE (042/1), BUT
                 WE DID NOT BOTHER TO REASSEMBLE.
00042/5     MTS                      MTS LISTING     P              S0703 MTSD4L 'MTS LISTING'                                   1  
            D3T1     43  MTS.MTS_LISTING.P.5                1 SEQ     133  965 PAGE UM   DWB                 JULY 30, 1973  23:14.25
0          *ASMG LISTING OF DIST 3 MTS (042/1) ASSEMBLY.
           COPY TO A PRINTER USING @MCC I/O MODIFIER, E.G. $COPY *T* *PRINT*@MCC.
00042/6     MTS                      SUBR LISTING    P              S0704 MTSS4L 'MTS SUBR LISTING'                              1  
            D3T1     44  MTS.SUBR_LISTING.P.6               1 SEQ     133  761 PAGE UM   DWB                 JULY 30, 1973  23:17.22
0          *ASMG LISTING OF THE "MTS SUBROUTINES":  KWIC (040), GETSPACE/FREESPAC (041), GUINFO/CUINFO (198),
1                                                                                               WED JUL 24/96   18:21:34   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          LLXU (354), CHECKSUM (462), STANDARD DUMP (463), PLIMIT (464), TIMNTRP (539), AND RSF (578).
           COPY TO A PRINTER USING @MCC I/O MODIFIER.
00043/1     LCSYMBOL                                 SA  G  LCSY    MTS:LCSYMBOL(1,999)                                             
            D3T1     45  LCSYMBOL..SA.1                     1 LINE     80    5 PAGE UM   DWB                 JULY 30, 1973  23:18.23
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                                                      
            D3T1     46  PDP..SA.1                          1 LINE     80   51 PAGE UM   HAMILTON            JULY 30, 1973  23:18.26
0          D3.0 VERSION OF THE PAGING DRUM PROCESSOR.  COPIES COPY:PCBDSECT (470).
0          Referenced by comments of: 604/1 
00044/2     PDP                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   HAMILTON                                   
00045/1     SUPERVISOR                               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.
            
                  ALL OF THIS IS LEADING UP TO AN EXPLANATION OF 8 REP CARDS IN THE RESIDENT SYSTEM OBJECT FOR CONFIG.
                  SINCE THE 3 PARAMETERS ARE SET AT IPL BY CONFIG, THEY MUST BE PATCHED IN CONFIG, NOT IN THE SUPERVISOR
                  IF THE PATCHED VALUES ARE TO HAVE ANY AFFECT AT THE NEXT IPL.  CONFIG HAS AN 8 ENTRY TABLE (1 TO 8
                  CORE BOXES) WHICH CONTAINS VALUES FOR THE 3 PARAMETERS (BIGJTH, ADDBIGJ, AND MAXRDPGS).  AT UM, WE
                  HAVE DECIDED THAT THE ASSEMBLED VALUES IN CONFIG ARE TOO LARGE FOR THE SECOND PARAMETER, I.E. THE SYSTEM
                  ALLOWS BIG JOBS TO MONOPOLIZE TOO MUCH OF REAL CORE.  THUS, YOU WILL FIND 8 REP CARDS IN THE SYSTEM
                  OBJECT DECKS (468/1 AND 468/2) FOR CONFIG TO REDUCE THE VALUES OF THE SECOND PARAMETER.  THERE
                  ARE NO HARD AND FAST RULES ABOUT ADJUSTING THESE PARAMETERS.  IT IS USEFUL TO WATCH THE 3 HALFWORDS
1                                                                                               WED JUL 24/96   18:21:34   Page   11
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                 WHICH FOLLOW THE PARAMETERS (BIGJPGS, PRIVJBC, AND NPRIVJBC) IN THE SUPERVISOR TO TRY A GET SOME
                  IDEA OF WHETHER THE VALUES ARE REASONABLE.  THE PARAMETERS (BUT NOT THE NEXT 3 HALFWORDS) MAY BE
                  PATCHED ON THE FLY FROM THE OPERATOR'S CONSOLE OR BY USING THE JOBS PROGRAM (413).
0          Referenced by comments of: 46/1, 468/1, 468/2, 604/1, 609/1, 611/1 
00045/2     SUPERVISOR               UPDATE 1        UU  G          S0699 D3TAPE POSN=UMMPS.UPD                                  7  
            D3T1     48  SUPERVISOR.UPDATE_1.UU.2           1 SEQ      80  102 PAGE UM   MTA                 JULY 30, 1973  23:20.19
0          MAIN UMMPS UPDATE DECK WHICH PRODUCES 2 FILES OF OUTPUT (THE SUPERVISOR AND CONFIG) WHEN APPLIED
           TO THE DIST 2 SOURCE.  NEW INSTALLATIONS WILL ONLY BE INTERESTED IN 45/1 AND 46/1.
00045/3     SUPERVISOR               UPDATE 2        UU  G          S0699 D3TAPE POSN=UMMPS.UPD2                                 8  
            D3T1     49  SUPERVISOR.UPDATE_2.UU.3           1 SEQ      80   12 PAGE UM   MTA                 JULY 30, 1973  23:20.26
0          SECONDARY UMMPS UPDATE DECK (APPLIED TO OUTPUT OF UPDATE 1) WHICH MAKES NO SUBSTANTIVE CHANGES,
           ONLY REPLACES ABSOLUTE NUMBERS BY SYMBOLS.
00045/4     SUPERVISOR               UPDATE 3        UU  G          S0699 D3TAPE POSN=UMMPS.UPD3                                 9  
            D3T1     50  SUPERVISOR.UPDATE_3.UU.4           1 SEQ      80   17 PAGE UM   MTA                 JULY 30, 1973  23:20.29
0          THIRD UPDATE TO BE APPLIED TO OUTPUT OF SECOND UPDATE TO PRODUCE 45/1 (FINALLY).  THE CHANGES MADE IN THIS UPDATE
           ARE RELATED TO THE SUPPORT OF ITEL 7330 (IBM 3330) DISKS.
00045/5     SUPERVISOR                               OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00045/6     SUPERVISOR               LISTING         P              S0035 UMMPS 'SUPERVISOR LISTING' POSN=UMMPS.LISTING.SPX      6  
            D3T1     51  SUPERVISOR.LISTING.P.6             1 SEQ     133  498 PAGE UM   MTA                 JULY 30, 1973  23:23.38
0          *ASMG LISTING OF ASSEMBLY OF 045/1 WITH ASSEMBLER UPDATE TO CHANGE SOURCE FOR NO SLT AND SIMPLEX.
           THIS LISTING CORRESPONDS TO THE SIMPLEX OBJECT DECK (468/2).  COPY TO A PRINTER @MCC.
00045/7     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/8     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                                   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).
            
           SEE ALSO THE NOTE IN THE SUPERVISOR (045/1) COMMENTS ABOUT THE PATCHES IN THE PRIVILEDGED JOB PARAMETERS TABLE.
0          Referenced by comments of: 45/1, 468/1, 468/2 
1                                                                                               WED JUL 24/96   18:21:34   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                                   UU  G        # SEE COMP 045/2                                                  
                                                                                    UM   MTA                                        
00046/3     CONFIG                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00046/4     CONFIG                   LISTING         P              S0035 UMMPS 'SUPERVISOR LISTING TAPE' POSN=CONFIG.LISTING    2  
            D3T1     55  CONFIG.LISTING.P.4                 1 SEQ     133  100 PAGE UM   MTA                 JULY 30, 1973  23:26.10
0          *ASMG LISTING OF ASSEMBLY OF 46/1.  COPY TO PRINTER @MCC, E.G. $COPY *T* *PRINT*@MCC.
           THIS IS A LISTING OF THE DUPLEX VERSION OF CONFIG. THE CHANGES ARE EXTREMELY MINOR AND ONLY IN THE PSA.
0          Referenced by comments of: 468/2 
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
1                                                                                               WED JUL 24/96   18:21:34   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          IS RESTORED AFTER BEING UPDATED BY 1.  THE FILE IS THEN UNLOCKED WHICH ALLOWS ANY WAITING USERS TO SIGNOFF.
           THE INDIVIDUAL TAPE IS UNLOADED AND THE OPERATOR IS ASKED TO ENTER THE NAME OF THE TAPE DRIVE WHERE THE MONTHLY
           TAPE IS MOUNTED (RING IN).  THE MONTHLY TAPE SHOULD HAVE "STATM " AS THE VOLUME NAME.  THE TAPE WILL BE SPACED
           OUT TO THE FILE NUMBER SPECIFIED BY LINE 2 OF *STATISTICS AND THE VM COPY OF THE DATA WILL BE ADDED TO THE
           MONTHLY TAPE AS A NEW FILE.  IF THE MONTHLY TAPE HAS NO FILES ON IT (FRESHLY LABELED), THE PROGRAM WILL ASK THE
           OPERATOR IF HE IS BEGINNING A NEW MONTHLY TAPE AND IF HE REPLIES "YES" THEN IT RESETS LINE 2 OF *STATISTICS.
           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                                              
1                                                                                               WED JUL 24/96   18:21:34   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/13   *WATFOR                   MAIN            S            # (OBSOLETE)                                                      
            D2T2    023                                                             UM                                              
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                                                                                               WED JUL 24/96   18:21:34   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/21 AND 482/22)                                    
                                                                                    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                                                                                               WED JUL 24/96   18:21:34   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                                                       
            D3T1     72  OBJSCAN..SA.1                      1 SEQ      80   19 PAGE UM   TIFFANY             JULY 30, 1973  23:30.19
0          SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER
           RANGES FOR EACH MODULE ENCOUNTERED.
00064/2    *OBJSCAN                                  OE  G          *OBJSCAN                                                        
            D3T1     73  OBJSCAN..OE.2                      1 SEQ    4604    2 PAGE UM   TIFFANY             JULY 30, 1973  23:30.24
00065      *ASMERR                                   S            # (OBSOLETE)                                                      
            D2T1    323                                                             UM                                              
00066/1    *ASMG                     ASMGASM         SA  G          S0603 ASMGOS POSN=ASMGASM                                    1  
            D3T1     74  ASMG.ASMGASM.SA.1                  1 SEQ      80   13 PAGE UM   MTA                 JULY 30, 1973  23:31.18
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          S0603 ASMGOS POSN=ASMGBUFF                                   2  
            D3T1     75  ASMG.ASMGBUFF.SA.2                 1 SEQ      80   50 PAGE UM   MTA                 JULY 30, 1973  23:31.24
00066/3    *ASMG                     ASMGFD          SA  G          S0603 ASMGOS POSN=ASMGFD                                     3  
            D3T1     76  ASMG.ASMGFD.SA.3                   1 SEQ      80   20 PAGE UM   MTA                 JULY 30, 1973  23:31.31
00066/4    *ASMG                     ASMGFEX         SA  G          S0603 ASMGOS POSN=ASMGFEX                                    4  
            D3T1     77  ASMG.ASMGFEX.SA.4                  1 SEQ      80   19 PAGE UM   MTA                 JULY 30, 1973  23:31.36
00066/5    *ASMG                     ASMGFI          SA  G          S0603 ASMGOS POSN=ASMGFI                                     5  
            D3T1     78  ASMG.ASMGFI.SA.5                   1 SEQ      80   13 PAGE UM   MTA                 JULY 30, 1973  23:31.39
00066/6    *ASMG                     ASMGFPP         SA  G          S0603 ASMGOS POSN=ASMGFPP                                    6  
            D3T1     79  ASMG.ASMGFPP.SA.6                  1 SEQ      80   27 PAGE UM   MTA                 JULY 30, 1973  23:31.44
00066/7    *ASMG                     ASMGF1          SA  G          S0603 ASMGOS POSN=ASMGF1                                     7  
            D3T1     80  ASMG.ASMGF1.SA.7                   1 SEQ      80   36 PAGE UM   MTA                 JULY 30, 1973  23:31.50
00066/8    *ASMG                     ASMGF2          SA  G          S0603 ASMGOS POSN=ASMGF2                                     8  
            D3T1     81  ASMG.ASMGF2.SA.8                   1 SEQ      80   84 PAGE UM   MTA                 JULY 30, 1973  23:32.00
00066/9    *ASMG                     ASMGF2A         SA  G          S0603 ASMGOS POSN=ASMGF2A                                    9  
            D3T1     82  ASMG.ASMGF2A.SA.9                  1 SEQ      80   59 PAGE UM   MTA                 JULY 30, 1973  23:32.12
00066/10   *ASMG                     ASMGF3          SA  G          S0603 ASMGOS POSN=ASMGF3                                     10 
            D3T1     83  ASMG.ASMGF3.SA.10                  1 SEQ      80   61 PAGE UM   MTA                 JULY 30, 1973  23:32.22
00066/11   *ASMG                     ASMGF7C         SA  G          S0603 ASMGOS POSN=ASMGF7C                                    11 
            D3T1     84  ASMG.ASMGF7C.SA.11                 1 SEQ      80   25 PAGE UM   MTA                 JULY 30, 1973  23:32.28
00066/12   *ASMG                     ASMGF7D         SA  G          S0603 ASMGOS POSN=ASMGF7D                                    12 
            D3T1     85  ASMG.ASMGF7D.SA.12                 1 SEQ      80   25 PAGE UM   MTA                 JULY 30, 1973  23:32.33
1                                                                                               WED JUL 24/96   18:21:34   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/13   *ASMG                     ASMGF7E         SA  G          S0603 ASMGOS POSN=ASMGF7E                                    13 
            D3T1     86  ASMG.ASMGF7E.SA.13                 1 SEQ      80   26 PAGE UM   MTA                 JULY 30, 1973  23:32.37
00066/14   *ASMG                     ASMGF7G         SA  G          S0603 ASMGOS POSN=ASMGF7G                                    14 
            D3T1     87  ASMG.ASMGF7G.SA.14                 1 SEQ      80    3 PAGE UM   MTA                 JULY 30, 1973  23:32.40
00066/15   *ASMG                     ASMGF7I         SA  G          S0603 ASMGOS POSN=ASMGF7I                                    15 
            D3T1     88  ASMG.ASMGF7I.SA.15                 1 SEQ      80   15 PAGE UM   MTA                 JULY 30, 1973  23:32.43
00066/16   *ASMG                     ASMGF7L         SA  G          S0603 ASMGOS POSN=ASMGF7L                                    16 
            D3T1     89  ASMG.ASMGF7L.SA.16                 1 SEQ      80    2 PAGE UM   MTA                 JULY 30, 1973  23:32.45
00066/17   *ASMG                     ASMGF7N         SA  G          S0603 ASMGOS POSN=ASMGF7N                                    17 
            D3T1     90  ASMG.ASMGF7N.SA.17                 1 SEQ      80   13 PAGE UM   MTA                 JULY 30, 1973  23:32.48
00066/18   *ASMG                     ASMGF7S         SA  G          S0603 ASMGOS POSN=ASMGF7S                                    18 
            D3T1     91  ASMG.ASMGF7S.SA.18                 1 SEQ      80    8 PAGE UM   MTA                 JULY 30, 1973  23:32.50
00066/19   *ASMG                     ASMGF7V         SA  G          S0603 ASMGOS POSN=ASMGF7V                                    19 
            D3T1     92  ASMG.ASMGF7V.SA.19                 1 SEQ      80   19 PAGE UM   MTA                 JULY 30, 1973  23:32.53
00066/20   *ASMG                     ASMGF7X         SA  G          S0603 ASMGOS POSN=ASMGF7X                                    20 
            D3T1     93  ASMG.ASMGF7X.SA.20                 1 SEQ      80   28 PAGE UM   MTA                 JULY 30, 1973  23:32.57
00066/21   *ASMG                     ASMGF8A         SA  G          S0603 ASMGOS POSN=ASMGF8A                                    21 
            D3T1     94  ASMG.ASMGF8A.SA.21                 1 SEQ      80   21 PAGE UM   MTA                 JULY 30, 1973  23:33.01
00066/22   *ASMG                     ASMGF8C         SA  G          S0603 ASMGOS POSN=ASMGF8C                                    22 
            D3T1     95  ASMG.ASMGF8C.SA.22                 1 SEQ      80    6 PAGE UM   MTA                 JULY 30, 1973  23:33.03
00066/23   *ASMG                     ASMGF8D         SA  G          S0603 ASMGOS POSN=ASMGF8D                                    23 
            D3T1     96  ASMG.ASMGF8D.SA.23                 1 SEQ      80   23 PAGE UM   MTA                 JULY 30, 1973  23:33.07
00066/24   *ASMG                     ASMGF8I         SA  G          S0603 ASMGOS POSN=ASMGF8I                                    24 
            D3T1     97  ASMG.ASMGF8I.SA.24                 1 SEQ      80   16 PAGE UM   MTA                 JULY 30, 1973  23:33.10
00066/25   *ASMG                     ASMGF8L         SA  G          S0603 ASMGOS POSN=ASMGF8L                                    25 
            D3T1     98  ASMG.ASMGF8L.SA.25                 1 SEQ      80    3 PAGE UM   MTA                 JULY 30, 1973  23:33.12
00066/26   *ASMG                     ASMGF8M         SA  G          S0603 ASMGOS POSN=ASMGF8M                                    26 
            D3T1     99  ASMG.ASMGF8M.SA.26                 1 SEQ      80   26 PAGE UM   MTA                 JULY 30, 1973  23:33.16
00066/27   *ASMG                     ASMGF8N         SA  G          S0603 ASMGOS POSN=ASMGF8N                                    27 
            D3T1    100  ASMG.ASMGF8N.SA.27                 1 SEQ      80   13 PAGE UM   MTA                 JULY 30, 1973  23:33.19
00066/28   *ASMG                     ASMGF8P         SA  G          S0603 ASMGOS POSN=ASMGF8P                                    28 
            D3T1    101  ASMG.ASMGF8P.SA.28                 1 SEQ      80   20 PAGE UM   MTA                 JULY 30, 1973  23:33.23
00066/29   *ASMG                     ASMGF8S         SA  G          S0603 ASMGOS POSN=ASMGF8S                                    29 
            D3T1    102  ASMG.ASMGF8S.SA.29                 1 SEQ      80    3 PAGE UM   MTA                 JULY 30, 1973  23:33.25
1                                                                                               WED JUL 24/96   18:21:34   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/30   *ASMG                     ASMGF8V         SA  G          S0603 ASMGOS POSN=ASMGF8V                                    30 
            D3T1    103  ASMG.ASMGF8V.SA.30                 1 SEQ      80   19 PAGE UM   MTA                 JULY 30, 1973  23:33.28
00066/31   *ASMG                     ASMGIS00        SA  G          S0603 ASMGOS POSN=ASMGIS00                                   31 
            D3T1    104  ASMG.ASMGIS00.SA.31                1 SEQ      80   10 PAGE UM   MTA                 JULY 30, 1973  23:33.30
00066/32   *ASMG                     ASMGIS01        SA  G          S0603 ASMGOS POSN=ASMGIS01                                   32 
            D3T1    105  ASMG.ASMGIS01.SA.32                1 SEQ      80   11 PAGE UM   MTA                 JULY 30, 1973  23:33.33
00066/33   *ASMG                     ASMGIS09        SA  G          S0603 ASMGOS POSN=ASMGIS09                                   33 
            D3T1    106  ASMG.ASMGIS09.SA.33                1 SEQ      80    9 PAGE UM   MTA                 JULY 30, 1973  23:33.35
00066/34   *ASMG                     ASMGIS20        SA  G          S0603 ASMGOS POSN=ASMGIS20                                   34 
            D3T1    107  ASMG.ASMGIS20.SA.34                1 SEQ      80    5 PAGE UM   MTA                 JULY 30, 1973  23:33.37
00066/35   *ASMG                     ASMGIS44        SA  G          S0603 ASMGOS POSN=ASMGIS44                                   35 
            D3T1    108  ASMG.ASMGIS44.SA.35                1 SEQ      80    9 PAGE UM   MTA                 JULY 30, 1973  23:33.40
00066/36   *ASMG                     ASMGIS67        SA  G          S0603 ASMGOS POSN=ASMGIS67                                   36 
            D3T1    109  ASMG.ASMGIS67.SA.36                1 SEQ      80   11 PAGE UM   MTA                 JULY 30, 1973  23:33.42
00066/37   *ASMG                     ASMGIS85        SA  G          S0603 ASMGOS POSN=ASMGIS85                                   37 
            D3T1    110  ASMG.ASMGIS85.SA.37                1 SEQ      80   10 PAGE UM   MTA                 JULY 30, 1973  23:33.44
00066/38   *ASMG                     ASMGMAC         SA  G          S0603 ASMGOS POSN=ASMGMAC                                    38 
            D3T1    111  ASMG.ASMGMAC.SA.38                 1 SEQ      80    8 PAGE UM   MTA                 JULY 30, 1973  23:33.46
00066/39   *ASMG                     ASMGRTA         SA  G          S0603 ASMGOS POSN=ASMGRTA                                    39 
            D3T1    112  ASMG.ASMGRTA.SA.39                 1 SEQ      80    5 PAGE UM   MTA                 JULY 30, 1973  23:33.48
00066/40   *ASMG                     ASMGUP          SA  G          S0603 ASMGOS POSN=ASMGUP                                     40 
            D3T1    113  ASMG.ASMGUP.SA.40                  1 SEQ      80   18 PAGE UM   MTA                 JULY 30, 1973  23:33.51
00066/41   *ASMG                     ASMGSET         SA  G          S0603 ASMGOS POSN=ASMGSET                                    41 
            D3T1    114  ASMG.ASMGSET.SA.41                 1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:33.53
00066/42   *ASMG                     COMMENCE        SM  G          S0603 ASMGOS POSN=COMMENCE                                   42 
            D3T1    115  ASMG.COMMENCE.SM.42                1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:33.55
00066/43   *ASMG                     COMMON          SM  G          S0603 ASMGOS POSN=COMMON                                     43 
            D3T1    116  ASMG.COMMON.SM.43                  1 SEQ      80   14 PAGE UM   MTA                 JULY 30, 1973  23:33.58
00066/44   *ASMG                     DCBOUT          SM  G          S0603 ASMGOS POSN=DCBOUT                                     44 
            D3T1    117  ASMG.DCBOUT.SM.44                  1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.00
00066/45   *ASMG                     DEFCHAR         SM  G          S0603 ASMGOS POSN=DEFCHAR                                    45 
            D3T1    118  ASMG.DEFCHAR.SM.45                 1 SEQ      80    3 PAGE UM   MTA                 JULY 30, 1973  23:34.02
00066/46   *ASMG                     ENTRYOUT        SM  G          S0603 ASMGOS POSN=ENTRYOUT                                   46 
            D3T1    119  ASMG.ENTRYOUT.SM.46                1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.03
1                                                                                               WED JUL 24/96   18:21:34   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/47   *ASMG                     FDIMEN          SM  G          S0603 ASMGOS POSN=FDIMEN                                     47 
            D3T1    120  ASMG.FDIMEN.SM.47                  1 SEQ      80    9 PAGE UM   MTA                 JULY 30, 1973  23:34.06
00066/48   *ASMG                     FINISH          SM  G          S0603 ASMGOS POSN=FINISH                                     48 
            D3T1    121  ASMG.FINISH.SM.48                  1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.08
00066/49   *ASMG                     INST            SM  G          S0603 ASMGOS POSN=INST                                       49 
            D3T1    122  ASMG.INST.SM.49                    1 SEQ      80    2 PAGE UM   MTA                 JULY 30, 1973  23:34.10
00066/50   *ASMG                     INSTSET         SM  G          S0603 ASMGOS POSN=INSTSET                                    50 
            D3T1    123  ASMG.INSTSET.SM.50                 1 SEQ      80    2 PAGE UM   MTA                 JULY 30, 1973  23:34.12
00066/51   *ASMG                     LIST1EQU        SM  G          S0603 ASMGOS POSN=LIST1EQU                                   51 
            D3T1    124  ASMG.LIST1EQU.SM.51                1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.14
00066/52   *ASMG                     MESSAGE         SM  G          S0603 ASMGOS POSN=MESSAGE                                    52 
            D3T1    125  ASMG.MESSAGE.SM.52                 1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.16
00066/53   *ASMG                     PRINTOUT        SM  G          S0603 ASMGOS POSN=PRINTOUT                                   53 
            D3T1    126  ASMG.PRINTOUT.SM.53                1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.18
00066/54   *ASMG                     PRNT            SM  G          S0603 ASMGOS POSN=PRNT                                       54 
            D3T1    127  ASMG.PRNT.SM.54                    1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.20
00066/55   *ASMG                     RD              SM  G          S0603 ASMGOS POSN=RD                                         55 
            D3T1    128  ASMG.RD.SM.55                      1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.22
00066/56   *ASMG                     SETR            SM  G          S0603 ASMGOS POSN=SETR                                       56 
            D3T1    129  ASMG.SETR.SM.56                    1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.24
00066/57   *ASMG                     SNAPOUT         SM  G          S0603 ASMGOS POSN=SNAPOUT                                    57 
            D3T1    130  ASMG.SNAPOUT.SM.57                 1 SEQ      80    2 PAGE UM   MTA                 JULY 30, 1973  23:34.26
00066/58   *ASMG                     TIMEOUT         SM  G          S0603 ASMGOS POSN=TIMEOUT                                    58 
            D3T1    131  ASMG.TIMEOUT.SM.58                 1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.28
00066/59   *ASMG                     TRANSLAT        SM  G          S0603 ASMGOS POSN=TRANSLAT                                   59 
            D3T1    132  ASMG.TRANSLAT.SM.59                1 SEQ      80    1 PAGE UM   MTA                 JULY 30, 1973  23:34.30
00066/60   *ASMG                     ASMGUPD         UU  G          S0603 ASMGOS POSN=ASMGUPD                                    60 
            D3T1    133  ASMG.ASMGUPD.UU.60                 1 SEQ      80   50 PAGE UM   MTA                 JULY 30, 1973  23:34.37
0          UPDATE DECK TO CONVERT ALL OF THE OS VERSION OF ASMG (066/1 THROUGH 066/59) TO RUN IN MTS.
0          Referenced by comments of: 66/1, 66/61 
00066/61   *ASMG                     ASMGJOB         C              S0603 ASMGOS POSN=ASMGJOB                                    61 
            D3T1    134  ASMG.ASMGJOB.C.61                  1 SEQ     112    1 PAGE UM   MTA                 JULY 30, 1973  23:34.41
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/60) 
                      ASMGSET - EMPTIED AND WRITTEN WITH A COPY SECTION 
                      ASMGMACROS - EMPTIED AND WRITTEN WITH A MACROS LIBRARY 
1                                                                                               WED JUL 24/96   18:21:34   Page   20
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                     S603 VOL=ASMGOS - MASTER TAPE, CONTAINS CURRENT OS VERSION OF ASMG (066/1 THROUGH 066/59) 
                        ***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. 
00066/62   *ASMG                     *ASMG           OE  G          *ASMG                                                           
            D3T1    135  ASMG.*ASMG.OE.62                   1 SEQ    6873    3 PAGE UM   MTA                 JULY 30, 1973  23:35.09
0          THE OBJECT FOR ASMG IS STORED IN 15 SEQUENTIAL, PUBLIC FILES IN MTS (066/62 THROUGH 066/76).  THE FILES AND
           THEIR CONTENTS BY MODULE NAME ARE:
            
                    FILE           ENTRY POINT    CONTENTS
                    ----           -----------    --------
                    *ASMG          ASMGASM        ASMGASM,ASMGBUFF
                    *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
                    *ASMGIS01                     ASMGIS01
                    *ASMGIS09                     ASMGIS09
                    *ASMGIS20                     ASMGIS20
                    *ASMGIS44                     ASMGIS44
                    *ASMGIS67                     ASMGIS67
                    *ASMGRTA       ASMGRTA        ASMGRTA
                    *ASMGUP        ASMGUP         ASMGUP
00066/63   *ASMG                     *ASMBLR         OE  G        # (SAME AS *ASMG)                                                 
                                                                                    UM   MTA                                        
00066/64   *ASMG                     *ASMGFPP        OE  G          *ASMGFPP                                                        
            D3T1    136  ASMG.*ASMGFPP.OE.64                1 SEQ   12096    5 PAGE UM   MTA                 JULY 30, 1973  23:35.10
00066/65   *ASMG                     *ASMGF2         OE  G          *ASMGF2                                                         
            D3T1    137  ASMG.*ASMGF2.OE.65                 1 SEQ   17095    6 PAGE UM   MTA                 JULY 30, 1973  23:35.12
00066/66   *ASMG                     *ASMGF3         OE  G          *ASMGF3                                                         
            D3T1    138  ASMG.*ASMGF3.OE.66                 1 SEQ    8028    3 PAGE UM   MTA                 JULY 30, 1973  23:35.14
00066/67   *ASMG                     *ASMGF7         OE  G          *ASMGF7                                                         
            D3T1    139  ASMG.*ASMGF7.OE.67                 1 SEQ   14976    6 PAGE UM   MTA                 JULY 30, 1973  23:35.16
00066/68   *ASMG                     *ASMGF8         OE  G          *ASMGF8                                                         
            D3T1    140  ASMG.*ASMGF8.OE.68                 1 SEQ    9176    6 PAGE UM   MTA                 JULY 30, 1973  23:35.19
1                                                                                               WED JUL 24/96   18:21:34   Page   21
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
00066/69   *ASMG                     *ASMGIS00       OE  G          *ASMGIS00                                                       
            D3T1    141  ASMG.*ASMGIS00.OE.69               1 SEQ    1015    1 PAGE UM   MTA                 JULY 30, 1973  23:35.21
00066/70   *ASMG                     *ASMGIS01       OE  G          *ASMGIS01                                                       
            D3T1    142  ASMG.*ASMGIS01.OE.70               1 SEQ    1407    1 PAGE UM   MTA                 JULY 30, 1973  23:35.23
00066/71   *ASMG                     *ASMGIS09       OE  G          *ASMGIS09                                                       
            D3T1    143  ASMG.*ASMGIS09.OE.71               1 SEQ     792    1 PAGE UM   MTA                 JULY 30, 1973  23:35.25
00066/72   *ASMG                     *ASMGIS20       OE  G          *ASMGIS20                                                       
            D3T1    144  ASMG.*ASMGIS20.OE.72               1 SEQ     394    1 PAGE UM   MTA                 JULY 30, 1973  23:35.27
00066/73   *ASMG                     *ASMGIS44       OE  G          *ASMGIS44                                                       
            D3T1    145  ASMG.*ASMGIS44.OE.73               1 SEQ     550    1 PAGE UM   MTA                 JULY 30, 1973  23:35.29
00066/74   *ASMG                     *ASMGIS67       OE  G          *ASMGIS67                                                       
            D3T1    146  ASMG.*ASMGIS67.OE.74               1 SEQ    2141    1 PAGE UM   MTA                 JULY 30, 1973  23:35.32
00066/75   *ASMG                     *ASMGRTA        OE  G          *ASMGRTA                                                        
            D3T1    147  ASMG.*ASMGRTA.OE.75                1 SEQ    1288    1 PAGE UM   MTA                 JULY 30, 1973  23:35.34
00066/76   *ASMG                     *ASMGUP         OE  G          *ASMGUP                                                         
            D3T1    148  ASMG.*ASMGUP.OE.76                 1 SEQ    3618    1 PAGE UM   MTA                 JULY 30, 1973  23:35.36
00066/77   *ASMG                     USER'S GUIDE    P              S0426 ASMG25 POSN=ASMG.GUIDE.USERS                           3  
            D3T1    149  ASMG.USER'S_GUIDE.P.77             1 SEQ     133   96 PAGE UM   MTA                 JULY 30, 1973  23:37.05
0          WATERLOO USER'S GUIDE FOR OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
00066/78   *ASMG                     MODS WRITEUP    WF             S0622 D3MISC FSNAME=M171                                     14 
            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/79   *ASMG                     IMPLEMENTATION  P              S0426 ASMG25 POSN=ASMG.GUIDE.IMPL                            4  
            D3T1    151  ASMG.IMPLEMENTATION.P.79           1 SEQ     133   33 PAGE UM   MTA                 JULY 30, 1973  23:37.32
0          IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG.  COPY TO A TN PRINTER @MCC.
00067/1     FILE SAVE                MAIN            SA     FSAV    RSTR:FILESAVE(1000)                                             
            D3T1    152  FILE_SAVE.MAIN.SA.1                1 LINE     80   28 PAGE UM   BERSTIS             JULY 30, 1973  23:37.36
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),
1                                                                                               WED JUL 24/96   18:21:34   Page   22
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          COPY:PATEQU (482/43), AND COPY:DSKDSCT (482/42).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 92/1, 502/11 
00067/2     FILE SAVE                SAVEFILE        SA     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 
00067/3     FILE SAVE                TAPEOUT         SA     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     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.
00067/5     FILE SAVE                OBJECT          OE             RSTR:FILESAVEOBJ                                                
            D3T1    156  FILE_SAVE.OBJECT.O.5               1 SEQ    7254    4 PAGE UM   BERSTIS             JULY 30, 1973  23:37.53
00067/6     FILE SAVE                SVSTART         C              RSTR:SVSTART                                                    
            D3T1    157  FILE_SAVE.SVSTART.C.6              1 LINE     42    1 PAGE UM   BERSTIS             JULY 30, 1973  23:37.56
0          COMMAND AND DATA FILE WHICH IS SOURCED TO BY *SVW (067/8) AND *SVD (067/13).
           THIS FILE STARTS UP THE SEVERAL (2 OR 4) STREAMS WHICH ARE USED FOR THE SHORT (PARTIAL)
           OR LONG (FULL) SAVE.
00067/7     FILE SAVE                FSS             C              RSTR:FSS                                                        
            D3T1    158  FILE_SAVE.FSS.C.7                  1 LINE    100    1 PAGE UM   BERSTIS             JULY 30, 1973  23:37.57
0          COMMAND AND DATA FILE SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4, *SVA, 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              *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
1                                                                                               WED JUL 24/96   18:21:34   Page   23
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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              *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.
00067/10    FILE SAVE                WKLY STREAM #2  C              *SV2                                                            
            D3T1    161  FILE_SAVE.WKLY_STREAM_#2.C.10      1 LINE     19    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.04
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #2.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #2.
00067/11    FILE SAVE                WKLY STREAM #3  C              *SV3                                                            
            D3T1    162  FILE_SAVE.WKLY_STREAM_#3.C.11      1 LINE     19    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.07
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #3.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #3.
00067/12    FILE SAVE                WKLY STREAM #4  C              *SV4                                                            
            D3T1    163  FILE_SAVE.WKLY_STREAM_#4.C.12      1 LINE     19    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.09
0          COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #4.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #4.
00067/13    FILE SAVE                DAILY START     C              *SVD                                                            
            D3T1    164  FILE_SAVE.DAILY_START.C.13         1 LINE     23    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.12
0          COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE DAILY (PARTIAL) FILESAVE PROCESS.
           ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN.
           THIS FILE WILL SOURCE TO RSTR:SVSTART WHICH WILL START UP 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              *SVA                                                            
            D3T1    165  FILE_SAVE.DAILY_STREAM_1.C.14      1 LINE     20    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.14
0          THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART
           DAILY (PARTIAL) STREAM #1.
00067/15    FILE SAVE                DAILY STREAM 2  C              *SVB                                                            
            D3T1    166  FILE_SAVE.DAILY_STREAM_2.C.15      1 LINE     20    1 PAGE UM   BERSTIS             JULY 30, 1973  23:38.16
0          COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #2.  THIS FILE IS AUTOMATICALLY
           INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #2.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
00071/1     LISTSTAT                                 SA  G  LSTA    WSG:LISTSTAT(1,999)                                             
            D3T1    168  LISTSTAT..SA.1                     1 LINE     80   13 PAGE UM   WSG                 JULY 30, 1973  23:38.24
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)                                              
            D3T1    169  LISTSTAT..OC.2                     1 LINE     80    3 PAGE UM   WSG                 JULY 30, 1973  23:38.29
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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 
            D3T1    182  INIT_JOB..SA.1                     1 LINE     80    2 PAGE UM   MTA                 JULY 30, 1973  23:40.13
0          AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST).  AFTER FINDING THE MTS DISK
           CATALOGS, THIS JOB TURNS OVER THE REMAINING WORK OF INITIALIZING THE SYSTEM TO MTS BY USING THE SVC STRTJB TO START
           "MTS *INIT" (SEE COMP 097).
00080/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   SMITH               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   SMITH               JULY 30, 1973  23:42.24
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00084/3     ARU                      *SPEAK          D   G          *SPEAK                                                          
            D3T1    189  ARU.*SPEAK.D.3                     1 LINE    255   60 PAGE UM   SMITH               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   SMITH               JULY 30, 1973  23:42.34
0          PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1)
0          Referenced by comments of: 84/1 
00084/5     ARU                      DCVD SUBR       SA  G        # (PART OF 084/1)                                                 
            D2T1    420                                                             UM   SMITH                                      
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   SMITH                                      
00084/7     ARU                      DCVC SUBR       SA  G        # (PART OF 084/1)                                                 
            D2T1    419                                                             UM   SMITH                                      
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   SMITH                                      
00084/9     ARU                      DCVG SUBR       SA  G        # (PART OF 084/1)                                                 
                                                                                    UM   SMITH                                      
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   SMITH                                      
00084/11    ARU                      *ARUVOC         D   G          *ARUVOC                                                         
            D3T1    191  ARU.*ARUVOC.D.11                   1 LINE    102   11 PAGE UM   SMITH               JULY 30, 1973  23:42.36
0          LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00084/12    ARU                      *CREVOC         SA  G        # (PART OF 084/1)                                                 
            D2T2    207                                                             UM   SMITH                                      
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   SMITH               JULY 30, 1973  23:42.39
0          CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9).
           ENDS WITH A "$CONTINUE WITH DBS:LM1" WHICH PRINTS MESSAGES (SEE 303/6).
00084/14    ARU                      *VLIST          SA  G        # (PART OF 084/1)                                                 
            D2T2    208                                                             UM   SMITH                                      
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   SMITH               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   SMITH               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   SMITH               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   SMITH               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   SMITH               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   SMITH               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   DWB                                        
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).
1                                                                                               WED JUL 24/96   18:21:34   Page   29
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 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                 COPY:LLMPSEQU   SA  G          S0622 D3MISC FSNAME=LLMPSEQU                                 43 
            D3T1    201  LLMPSEQU.COPY:LLMPSEQU.SA.         1 LINE     80   11 PAGE UM   MTA                 JULY 27, 1973  21:15.33
0          COPY SECTION FOR DEFINITIONS OF JOB TABLE, DEVICE LIST, DEVICE TABLE, ETC. WHICH
           IS COPIED BY MANY PROGRAMS.  ITS NAME COMES STRAIGHT FROM ANCIENT HISTORY (LINCOLN
           LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES).
           THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING
           AT LINE 100.
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, 441/1,
                 447/1, 447/3, 447/5, 447/7, 462/1, 464/1, 487/1, 531/1, 531/4, 531/8, 539/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 
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    S0622 D3MISC FSNAME=DOUBLE.S                                 46 
            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     FMT0    RSTR:RSTFMT0                                                    
            D3T1    206  FILE_RESTORE.RSTFMT0.SA.1          1 LINE     80   42 PAGE UM   BERSTIS             JULY 30, 1973  23:43.37
0          MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502).
           ASSEMBLE WITH *SYSMAC.
            
           NOTE:  NORMALLY RESTORE TRIES TO RESTORE FILES TO THE SAME VOLUME THEY WERE ON WHEN SAVED.  HOWEVER,
                  SOMETIMES IT IS DESIRABLE TO "SPREAD" FILES AROUND, E.G. ALL OF THE FILES ON THE DISTRIBUTION
                  RESTORE PACK (TSS DUMP/RESTORE TAPE) ARE ON VOLUME MTS001 SINCE THE DISTRIBUTED "STARTER" SYSTEM
                  HAS ONLY ONE PACK.  HOWEVER, ON A MULTI-PACK SYSTEM IT IS OBVIOUSLY UNDESIRABLE TO HAVE
                  ALL OF THE IMPORTANT FILES ON THE SAME PACK.  ONE WAY TO CORRECT THIS PROBLEM IS TO RUN A FULL
                  FILESAVE AND RESTORE, HAVING FIRST PATCHED RESTORE (OR MODIFIED THE SOURCE) SO THAT IT DOES
                  NOT ATTEMPT TO PUT FILES BACK WHERE THEY CAME FROM.  THE FOLLOWING CHANGES TO THE 2 SOURCE
                  COMPONENTS FOR RESTORE WILL DO THIS: 
1                                                                                               WED JUL 24/96   18:21:34   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           
                    IN RSTFMT0 (092/1) CHANGE LINE 578.000 AS FOLLOWS:
            
                                        MVC   TMPVOL,OLDVOL      <----AS DISTRIBUTED
                                        XC    TMPVOL,TMPVOL      <----MODIFICATION
            
                    THE EQUIVALENT REP CARD IS       REP  0008F8  01D705BAE1BAE1
            
                    IN RSTFMT1 (092/2) CHANGE LINE 188.000 AS FOLLOWS:
            
                                        MVC   TMPVOL,OLDVOL      <----AS DISTRIBUTED
                                        XC    TMPVOL,TMPVOL      <----MODIFICATION
            
                    THE EQUIVALENT REP CARD IS       REP  000206  01D705B0C5B0C5
0          Referenced by comments of: 92/1, 502/1 
00092/2     FILE RESTORE             RSTFMT1         SA     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.
0          Referenced by comments of: 92/1 
00092/3     FILE RESTORE                             OC             RSTR:RST                                                        
            D3T1    208  FILE_RESTORE..OC.3                 1 LINE     80   14 PAGE UM   BERSTIS             JULY 30, 1973  23:43.52
00092/4     FILE RESTORE             *RST            C              *RST                                                            
            D3T1    209  FILE_RESTORE.*RST.C.4              1 LINE     35    1 PAGE UM   BERSTIS             JULY 30, 1973  23:43.55
0          COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST).  INVOKED BY ENTERING "MTS *RST"
           ON OPERATOR'S CONSOLE.
00094/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              *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.
1                                                                                               WED JUL 24/96   18:21:34   Page   31
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
           *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                                                    
            D3T1    215  INIT.INIT:INITCMD.C.2              1 LINE     82    1 PAGE UM   MTA                 JULY 30, 1973  23:44.17
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)  THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE
                 SYSTEM LAST WENT DOWN.
            (9)  THE INIT PROGRAM IS RUN.  IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10),
                 MTS *INIT(20), ETC.) TO MAKE A LIST (IN 5 FILES) OF ALL OF THE USER IDS WHICH WERE IN USE (SIGNED-ON) WHEN THE
                 SYSTEM LAST WENT DOWN.  WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS
                 AVAILABLE" ON THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS.  WHEN FINISHED, THE TOTAL
                 NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE.  NO BATCH JOBS SHOULD BE ALLOWED TO RUN
                 (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE IT IS POSSIBLE
                 THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH ARE STILL BEING FIXED.
                 IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING FILE AVAILABLE" MESSAGE PRINTS
                 AND AFTER THE "SEGMENT 2 LOADED OK" MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE
                 ABLE TO SIGNON UNTIL THEIR USER IDS HAVE BEEN FIXED.  THESE USERS WILL GET A MESSAGE WHICH
                 INDICATES THAT THEIR IDS ARE TEMPORARILY UNAVAILABLE.
0          Referenced by comments of: 559/1 
00097/3     INIT                     INIT:INIT       OC  G          S0027 DISTRB FSNAME=INIT                                        
            D3T1    216  INIT.INIT:INIT.OC.3                1 LINE     80    6 PAGE UM   ENGLE               JULY 24, 1973  11:51.32
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    S0027 DISTRB FSNAME=INITCHK                                     
            D3T1    217  INIT.INIT:INITCHK.SA.4             1 LINE     80    4 PAGE UM   ENGLE               JAN. 08, 1973  17:46.49
0          PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "RESONABLE" TIME AND DATE.
           COPIES GRDEF (104/58).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00097/5     INIT                     INIT:INITCHK    OC  G          S0027 DISTRB FSNAME=ICHK                                        
            D3T1    218  INIT.INIT:INITCHK.OC.5             1 LINE     80    2 DISK UM   ENGLE               JAN. 08, 1973  17:47.02
00097/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
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                                                       
            D3T1    228  MOUNT..SA.1                        1 LINE     80   62 PAGE UM   WSG                 JULY 30, 1973  23:46.50
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
1                                                                                               WED JUL 24/96   18:21:34   Page   33
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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).
           MOUNT USES A SUPERVISOR LOCK (CURRENTLY 13) TO INTERLOCK OPERATOR CONSOLE COMMUNICATION.
           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).
0          Referenced by comments of: 447/1 
00101/2     MOUNT                    *CLSMOUNT       OC  G          WSG:MNTOBJ.D3                                                   
            D3T1    229  MOUNT.*CLSMOUNT.OC.2               1 LINE     80    5 PAGE UM   WSG                 JULY 30, 1973  23:47.02
0          OBJECT FOR MOUNT SUBROUTINE (MOUNT) AND CLS MOUNT (MOUNTCMD).  NORMALLY THIS FILE 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.
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)                                             
            D3T1    231  DISMOUNT..SA.1                     1 LINE     80    5 PAGE UM   WSG                 JULY 30, 1973  23:47.06
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).
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00104/1     ACCOUNTING               ACCFORMAT       SA  G  AFMT    S0027 DISTRB FSNAME=ACCFORMAT                                   
            D3T1    233  ACCOUNTING.ACCFORMAT.SA.1          1 SEQ      80    2 PAGE UM   ENGLE               FEB. 14, 1973  16:33.08
0          COMPONENT 104 CONTAINS THE SOURCE AND OBJECT FOR ALL OF 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
               *PROJECTACCOUNT          AMXM+GTFL+DIR+AIO+FLNM+AUPR+FIOC+TTRP
               *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+GTFL+TTRP+SYSDEFS
            
           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.
0          Referenced by comments of: 104/1, 104/4, 104/6, 104/10, 104/12, 104/14, 104/16, 104/20, 104/24, 104/28, 104/39,
                 104/41, 104/49, 104/51, 104/66, 104/68, 104/73, 104/75, 104/77, 442/1, 502/1, 586/1 
00104/2     ACCOUNTING               ACCRATE         SA  G  ARAT    S0027 DISTRB FSNAME=ACCRATE                                     
            D3T1    234  ACCOUNTING.ACCRATE.SA.2            1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  12:24.02
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                                  
            D3T1    235  ACCOUNTING.ACCPROJFMT.SA.3         1 SEQ      80    1 PAGE UM   ENGLE               OCT. 03, 1972  12:24.41
0          COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT.
0          Referenced by comments of: 104/16, 104/20, 104/33, 104/41, 104/51, 500/18, 500/22 
00104/4     ACCOUNTING               ACCERROR        SA  G  AERR    S0027 DISTRB FSNAME=ACCERROR                                    
            D3T1    236  ACCOUNTING.ACCERROR.SA.4           1 LINE     80    7 PAGE UM   ENGLE               OCT. 03, 1972  15:06.02
0          CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN.
           COPIES ACCFORMAT (104/1).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00104/5     ACCOUNTING               ACCERROR        OC  G          S0027 DISTRB FSNAME=AERR                                        
            D3T1    237  ACCOUNTING.ACCERROR.OC.5           1 LINE     80    2 DISK UM   ENGLE               OCT. 03, 1972  15:06.19
00104/6     ACCOUNTING               ACCPRINT        SA  G  APRT    S0027 DISTRB FSNAME=ACCPRINT                                    
            D3T1    238  ACCOUNTING.ACCPRINT.SA.6           1 LINE     80    9 PAGE UM   ENGLE               FEB. 14, 1973  16:47.35
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                                        
            D3T1    239  ACCOUNTING.ACCPRINT.OC.7           1 LINE     80    3 DISK UM   ENGLE               FEB. 14, 1973  16:47.56
00104/8     ACCOUNTING               ACCLIST         SA  G  ALST    S0027 DISTRB FSNAME=ACCLIST                                     
            D3T1    240  ACCOUNTING.ACCLIST.SA.8            1 LINE     80    4 PAGE UM   ENGLE               OCT. 05, 1972  16:22.45
0          READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD.
00104/9     ACCOUNTING               ACCLIST         OC  G          S0027 DISTRB FSNAME=ALST                                        
            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                                    
            D3T1    242  ACCOUNTING.ACCINITL.SA.10          1 LINE     80    6 PAGE UM   ENGLE               OCT. 03, 1972  15:19.12
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                                        
            D3T1    243  ACCOUNTING.ACCINITL.OC.11          1 LINE     80    2 DISK UM   ENGLE               OCT. 03, 1972  15:19.28
00104/12    ACCOUNTING               STATUS          SA  G  STAT    S0027 DISTRB FSNAME=STATUS                                      
            D3T1    244  ACCOUNTING.STATUS.SA.12            1 LINE     80   10 PAGE UM   ENGLE               OCT. 03, 1972  15:27.01
0          MAIN PROGRAM FOR *STATUS
           COPIES ACCFORMAT (104/1).
00104/13    ACCOUNTING               STATUS          OC  G          S0027 DISTRB FSNAME=STAT                                        
            D3T1    245  ACCOUNTING.STATUS.OC.13            1 LINE     80    2 DISK UM   ENGLE               OCT. 03, 1972  15:28.39
0          Referenced by comments of: 129/2 
00104/14    ACCOUNTING               ACCRTUPD        SA  G  ARTU    S0027 DISTRB FSNAME=ACCRTUPD                                    
            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          S0027 DISTRB FSNAME=ARTU                                        
            D3T1    247  ACCOUNTING.ACCRTUPD.OC.15          1 LINE     80    1 DISK UM   ENGLE               OCT. 03, 1972  15:50.00
1                                                                                               WED JUL 24/96   18:21:34   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/16    ACCOUNTING               ACCMAINT        SA  G  AMAT    S0027 DISTRB FSNAME=ACCMAINT                                    
            D3T1    248  ACCOUNTING.ACCMAINT.SA.16          1 LINE     80   52 PAGE UM   ENGLE               FEB. 14, 1973  16:46.11
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                                        
            D3T1    249  ACCOUNTING.ACCMAINT.OC.17          1 LINE     80    5 DISK UM   ENGLE               FEB. 14, 1973  16:47.12
00104/18    ACCOUNTING               ACCIO           SA  G  AIO     S0027 DISTRB FSNAME=ACCIO                                       
            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 
00104/19    ACCOUNTING               ACCIO           OC  G          S0027 DISTRB FSNAME=AIO                                         
            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, 499/1 
00104/20    ACCOUNTING               ACCMXMAT        SA  G  AMXM    S0027 DISTRB FSNAME=ACCMXMAT                                    
            D3T1    252  ACCOUNTING.ACCMXMAT.SA.20          1 LINE     80   39 PAGE UM   ENGLE               MAY  09, 1973  13:51.12
0          ACCOUNTING MAXIMUM MAINTENANCE (MAIN PROGRAM FOR *PROJECTACCOUNT).
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/3).
00104/21    ACCOUNTING               ACCMXMAT        OC  G          S0027 DISTRB FSNAME=AMXM                                        
            D3T1    253  ACCOUNTING.ACCMXMAT.OC.21          1 LINE     80    5 DISK UM   ENGLE               MAY  09, 1973  14:07.35
0          Referenced by comments of: 499/1 
00104/22    ACCOUNTING               ACCDSPLA        SA  G  ADSP    S0027 DISTRB FSNAME=ACCDSPLA                                    
            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          S0027 DISTRB FSNAME=ADSP                                        
            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                                    
            D3T1    256  ACCOUNTING.ACCSTRUP.SA.24          1 LINE     80    6 PAGE UM   ENGLE               OCT. 05, 1972  12:15.33
0          MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS.
           COPIES ACCFORMAT (104/1).
00104/25    ACCOUNTING               ACCSTRUP        OC  G          S0027 DISTRB FSNAME=ASTR                                        
            D3T1    257  ACCOUNTING.ACCSTRUP.OC.25          1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  12:15.44
0          OBJECT HAS REPS TO REMOVE DATA CELL FIELDS.
0          Referenced by comments of: 484/1 
1                                                                                               WED JUL 24/96   18:21:34   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/26    ACCOUNTING               ACCRDWRT        SA  G  ARDW    S0027 DISTRB FSNAME=ACCRDWRT                                    
            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/98 
00104/27    ACCOUNTING               ACCRDWRT        OC  G          S0027 DISTRB FSNAME=ARDW                                        
            D3T1    259  ACCOUNTING.ACCRDWRT.OC.27          1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  12:20.35
00104/28    ACCOUNTING               ACUSPRNT        SA  G  AUPR    S0027 DISTRB FSNAME=ACUSPRNT                                    
            D3T1    260  ACCOUNTING.ACUSPRNT.SA.28          1 LINE     80    6 PAGE UM   ENGLE               OCT. 05, 1972  12:25.47
0          PRINT SUBROUTINE FOR *PROJECTACCOUNT
           COPIES ACCFORMAT (104/1).
00104/29    ACCOUNTING               ACUSPRNT        OC  G          S0027 DISTRB FSNAME=AUPR                                        
            D3T1    261  ACCOUNTING.ACUSPRNT.OC.29          1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  12:25.57
0          Referenced by comments of: 499/1 
00104/30    ACCOUNTING               ACCPRJMT        SA  G  APMT    S0027 DISTRB FSNAME=ACCPRJMT                                    
            D3T1    262  ACCOUNTING.ACCPRJMT.SA.30          1 LINE     80   26 PAGE UM   ENGLE               OCT. 05, 1972  14:20.51
0          MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT.
00104/31    ACCOUNTING               ACCPRJMT        OC  G          S0027 DISTRB FSNAME=APMT                                        
            D3T1    263  ACCOUNTING.ACCPRJMT.OC.31          1 LINE     80    3 DISK UM   ENGLE               OCT. 05, 1972  14:22.10
00104/32    ACCOUNTING               ACCLIB          OL             S0027 DISTRB FSNAME=ACCLIB                                      
            D3T1    264  ACCOUNTING.ACCLIB.OL.32            1 LINE     80   12 PAGE UM   ENGLE               JULY 24, 1973  11:51.07
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, AND TO FIX A BUG IN ACPRJPRT
           (104/33) WHICH ARE NOT (!!) FIXED IN THE SOURCE (SORRY).
0          Referenced by comments of: 104/33, 104/34 
00104/33    ACCOUNTING               ACPRJPRT        SA  G  APPR    S0027 DISTRB FSNAME=ACPRJPRT                                    
            D3T1    265  ACCOUNTING.ACPRJPRT.SA.33          1 LINE     80    8 PAGE UM   ENGLE               OCT. 05, 1972  15:06.36
0          SUBROUTINE TO PRINT A RECORD FROM *PROJECT.
           COPIES ACCPROJFMT (104/3).
            
           THIS SOURCE FILE IS NOT QUITE CORRECT. THERE IS A PATCH IN ACCLIB (104/32) TO FIX IT.
0          Referenced by comments of: 104/32 
1                                                                                               WED JUL 24/96   18:21:34   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/34    ACCOUNTING               ACPRJPRT        OC  G          S0027 DISTRB FSNAME=APPR                                        
            D3T1    266  ACCOUNTING.ACPRJPRT.OC.34          1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  15:06.52
0          THIS OBJECT DECK NEEDS A PATCH CARD WHICH IS IN ACCLIB (104/32).
00104/35    ACCOUNTING               PRJLIST         SA  G  APLS    S0027 DISTRB FSNAME=PRJLIST                                     
            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.
00104/36    ACCOUNTING               PRJLIST         OC  G          S0027 DISTRB FSNAME=APLS                                        
            D3T1    268  ACCOUNTING.PRJLIST.OC.36           1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:13.55
00104/37    ACCOUNTING               PRJDSPLA        SA  G  APDS    S0027 DISTRB FSNAME=PRJDSPLA                                    
            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          S0027 DISTRB FSNAME=APDS                                        
            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    S0027 DISTRB FSNAME=ACCPASWD                                    
            D3T1    271  ACCOUNTING.ACCPASWD.SA.39          1 LINE     80    5 PAGE UM   ENGLE               OCT. 05, 1972  15:22.09
0          PROGRAM TO GENERATE A RANDOM PASSWORD FOR AN ACCOUNTING RECORD AND PRINT THE NEW PASSWORD PLUS
           THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET.  COPIES ACCFORMAT (104/1).
00104/40    ACCOUNTING               ACCPASWD        OC  G          S0027 DISTRB FSNAME=APSW                                        
            D3T1    272  ACCOUNTING.ACCPASWD.OC.40          1 LINE     80    2 DISK UM   ENGLE               OCT. 05, 1972  15:22.23
00104/41    ACCOUNTING               ACONSIST        SA  G  ACNS    S0027 DISTRB FSNAME=ACONSIST                                    
            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                                        
            D3T1    274  ACCOUNTING.ACONSIST.OC.42          1 LINE     80    2 DISK UM   ENGLE               JAN. 18, 1973  14:40.19
00104/43    ACCOUNTING               FILENAME        SA  G  FLNM    S0027 DISTRB FSNAME=FILENAME                                    
            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          S0027 DISTRB FSNAME=FLNM                                        
            D3T1    276  ACCOUNTING.FILENAME.OC.44          1 LINE     80    1 DISK UM   ENGLE               OCT. 05, 1972  15:37.58
0          Referenced by comments of: 499/1 
00104/45    ACCOUNTING               DIRECTRY        SA  G  DIR     S0027 DISTRB FSNAME=DIRECTRY                                    
            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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00104/46    ACCOUNTING               DIRECTRY        OC  G          S0027 DISTRB FSNAME=DIR                                         
            D3T1    278  ACCOUNTING.DIRECTRY.OC.46          1 LINE     80    2 DISK UM   ENGLE               JAN. 05, 1973  11:17.35
0          Referenced by comments of: 499/1 
00104/47    ACCOUNTING               DIRLIST         SA  G  DLST    S0027 DISTRB FSNAME=DIRLIST                                     
            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          S0027 DISTRB FSNAME=DLST                                        
            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                                    
            D3T1    281  ACCOUNTING.FILUPDAT.SA.49          1 LINE     80    5 PAGE UM   ENGLE               MAY  09, 1973  13:52.15
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                                        
            D3T1    282  ACCOUNTING.FILUPDAT.OC.50          1 LINE     80    2 DISK UM   ENGLE               MAY  09, 1973  13:52.25
00104/51    ACCOUNTING               ACONVERT        SA  O  ACON    S0027 DISTRB FSNAME=ACONVERT                                    
            D3T1    283  ACCOUNTING.ACONVERT.SA.51          1 LINE     80    5 PAGE UM   ENGLE               JAN. 05, 1973  11:29.05
0          PROGRAM TO CONVERT A DISTRIBUTION 2 ACCOUNTING FILE TO DISTRIBUTION 3.
           THIS PROGRAM (OR AN EQUIVALENT) MUST BE RUN SINCE DIST 3 MTS DEPENDS ON THE NEW FORMAT.
           SEE THE COMMENTS IN THE ASSEMBLY LISTING.
           COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/3).
00104/52    ACCOUNTING               ACONVERT        OC  O          S0027 DISTRB FSNAME=ACNV                                        
            D3T1    284  ACCOUNTING.ACONVERT.OC.52          1 LINE     80    2 DISK UM   ENGLE               JAN. 05, 1973  11:29.18
00104/53    ACCOUNTING               STAPRJPA        SA  O  SPPA    S0027 DISTRB FSNAME=STAPRJPA                                    
            D3T1    285  ACCOUNTING.STAPRJPA.SA.53          1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1973  17:04.58
0          PATCHED TXT RECORDS FOR ACCMXMAT USED IN ACC:STATPROJECT (104/55).
00104/54    ACCOUNTING               STAPRJPA        OC  O          S0027 DISTRB FSNAME=SPPA                                        
            D3T1    286  ACCOUNTING.STAPRJPA.OC.54          1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  17:05.24
00104/55    ACCOUNTING               STAPRJCL        SA  G  SPCL    S0027 DISTRB FSNAME=STAPRJCL                                    
            D3T1    287  ACCOUNTING.STAPRJCL.SA.55          1 LINE     80    1 PAGE UM   ENGLE               JAN. 09, 1973  17:00.59
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                                        
            D3T1    288  ACCOUNTING.STAPRJCL.OC.56          1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  17:01.11
1                                                                                               WED JUL 24/96   18:21:34   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/57    ACCOUNTING               STAPROJECT      OC  G          S0027 DISTRB FSNAME=STAPROJECT                                  
            D3T1    289  ACCOUNTING.STAPROJECT.OC.57        1 LINE     80    4 DISK UM   ENGLE               JAN. 09, 1973  17:05.42
0          PROGRAM TO PRINT "STATUS PROJECT" (AS IN *PROJECTACCOUNT) FOR ANY GIVEN PROJECT.
           CONTAINS A "$CONTINUE WITH ACC:ACCLIB" RECORD
00104/58    ACCOUNTING               GRDEF           SA  G  GRDF    S0027 DISTRB FSNAME=GRDEF                                       
            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/83, 104/87, 586/1 
00104/59    ACCOUNTING               WKDAY           SA  G  WKDA    S0027 DISTRB FSNAME=WKDAY                                       
            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).
00104/60    ACCOUNTING               WKDAY           OC  G          S0027 DISTRB FSNAME=WKDA                                        
            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    S0027 DISTRB FSNAME=DIRDSPLA                                    
            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          S0027 DISTRB FSNAME=DDSP                                        
            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    S0027 DISTRB FSNAME=DIRPRINT                                    
            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          S0027 DISTRB FSNAME=DPRT                                        
            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                                    
            D3T1    297  ACCOUNTING.ACCFLUPD.SA.66          1 LINE     80    6 PAGE UM   ENGLE               JAN. 08, 1973  17:49.07
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                                        
            D3T1    298  ACCOUNTING.ACCFLUPD.OC.67          1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  17:49.16
0          Referenced by comments of: 484/1 
1                                                                                               WED JUL 24/96   18:21:34   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/68    ACCOUNTING               ACCINSCN        SA  G  AINS    S0027 DISTRB FSNAME=ACCINSCN                                    
            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                                        
            D3T1    300  ACCOUNTING.ACCINSCN.OC.69          1 LINE     80    2 DISK UM   ENGLE               JAN. 08, 1973  17:52.03
00104/70    ACCOUNTING               CURSIG          SA  G  CSIG    S0027 DISTRB FSNAME=CURSIG                                      
            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          S0027 DISTRB FSNAME=CSIG                                        
            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 
00104/72    ACCOUNTING               DEDFLFIX                     # (SEE COMP 502/13 AND 502/14)                                    
                                                                                    UM   ENGLE                                      
00104/73    ACCOUNTING               ACCLSTPR        SA  G  ALPR    S0027 DISTRB FSNAME=ACCLSTPR                                    
            D3T1    303  ACCOUNTING.ACCLSTPR.SA.73          1 LINE     80    7 PAGE UM   ENGLE               FEB. 14, 1973  16:49.46
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                                        
            D3T1    304  ACCOUNTING.ACCLSTPR.OC.74          1 LINE     80    2 DISK UM   ENGLE               FEB. 14, 1973  16:50.10
00104/75    ACCOUNTING               ACCFLCHG        SA  G  AFLC    S0027 DISTRB FSNAME=ACCFLCHG                                    
            D3T1    305  ACCOUNTING.ACCFLCHG.SA.75          1 LINE     80    4 PAGE UM   ENGLE               JAN. 08, 1973  18:05.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                                        
            D3T1    306  ACCOUNTING.ACCFLCHG.OC.76          1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  18:05.45
00104/77    ACCOUNTING               APSWDISP        SA  G  APWD    S0027 DISTRB FSNAME=APSWDISP                                    
            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                                        
            D3T1    308  ACCOUNTING.APSWDISP.OC.78          1 LINE     80    1 DISK UM   ENGLE               JAN. 08, 1973  18:07.57
00104/79    ACCOUNTING               ACCHEXPR        SA  O  AXPR    S0027 DISTRB FSNAME=ACCHEXPR                                    
            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.
1                                                                                               WED JUL 24/96   18:21:34   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/80    ACCOUNTING               ACCHEXPR        OC  O          S0027 DISTRB FSNAME=AXPR                                        
            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    S0027 DISTRB FSNAME=TIMETRP                                     
            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          S0027 DISTRB FSNAME=TTRP                                        
            D3T1    312  ACCOUNTING.TIMETRP.OC.82           1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  11:04.41
00104/83    ACCOUNTING               FASTIOCK        SA  G  FIOC    S0027 DISTRB FSNAME=FASTIOCK                                    
            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 *PROJECTACCOUNT.  COPIES GRDEF (104/58).
00104/84    ACCOUNTING               FASTIOCK        OC  G          S0027 DISTRB FSNAME=FIOC                                        
            D3T1    314  ACCOUNTING.FASTIOCK.OC.84          1 LINE     80    1 DISK UM   ENGLE               JAN. 09, 1973  11:07.52
0          Referenced by comments of: 499/1 
00104/85    ACCOUNTING               ACCSAVE         SA  G  ASAV    S0027 DISTRB FSNAME=ACCSAVE                                     
            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          S0027 DISTRB FSNAME=ASAV                                        
            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    S0027 DISTRB FSNAME=ACCTAPRD                                    
            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          S0027 DISTRB FSNAME=ATRD                                        
            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                                     
            D3T1    319  ACCOUNTING.GETFILE.SA.89           1 LINE     80    3 PAGE UM   ENGLE               JAN. 05, 1973  17:28.40
0          SUBROUTINE TO GET A FDUB, ETC.
0          Referenced by comments of: 502/1 
00104/90    ACCOUNTING               GETFILE         OC  G          S0027 DISTRB FSNAME=GTFL                                        
            D3T1    320  ACCOUNTING.GETFILE.OC.90           1 LINE     80    1 DISK UM   ENGLE               JAN. 05, 1973  17:28.51
0          Referenced by comments of: 129/2, 484/1, 499/1 
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
1                                                                                               WED JUL 24/96   18:21:34   Page   43
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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.
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             S0027 DISTRB FSNAME=ACCWRITEUP                                  
            D3T1    327  ACCOUNTING.WRITEUP.WF.97           1 LINE     81    7 PAGE UM   ENGLE               JULY 20, 1973  20:28.16
0          A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS.
00104/98    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 RESTORE PACK SINCE IT IS USED IN THE PROCESS OF CONVERTING FROM DISTRIBUTION 2 TO
           DISTRIBUTION 3.
0          Referenced by comments of: 104/26 
00104/99    ACCOUNTING               ACCGFUPD        OC  G          W013:ACCGFUPD(1,98)                                             
            D3T5    254  ACCOUNTING.ACCGFUPD.OC.99          1 LINE     80    1 PAGE UM   ENGLE               AUG. 11, 1973  01:28.07
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00107       ACATALOG                                              # (SEE COMP 104/91)                                               
                                                                                    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).
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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/1 AND 502/2)                                      
                                                                                    UM                                              
00116/1    *PDP8RTN                                  SA  G  PDP8    WSG:PDP8                                                        
            D3T1    340  PDP8RTN..SA.1                      1 LINE     80   45 PAGE UM   WSG                 JULY 31, 1973  00:09.10
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.
00116/2    *PDP8RTN                                  OC  G          *PDP8RTN                                                        
            D3T1    341  PDP8RTN..OC.2                      1 LINE     80    4 PAGE UM   WSG                 JULY 31, 1973  00:09.21
0          AT UM, THIS FILE IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL.
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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).
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  50/1)                                                
                                                                                    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    S0622 D3MISC FSNAME=BLSTDEV.S                                50 
            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/11 AND 502/12)                                    
                                                                                    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!
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00129/1    *STATUS                                   SA  G        # (SEE COMP 104/12)                                               
                                                                                    UM   ENGLE                                      
0          PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD.
00129/2    *STATUS                                   OE  G          *STATUS                                                         
            D3T1    353  STATUS..O.2                        1 LINE    255    4 PAGE UM   ENGLE               JULY 31, 1973  00:17.04
0          CONSISTS OF:  STATUS (104/13) + ACCIO (104/19) + GETFILE (104/90).
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   FRONCZAK            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   FRONCZAK            JULY 31, 1973  00:17.16
00135/1    *TAPERTN                                  SA  G  TAPE    WSG:TAPE                                                        
            D3T1    358  TAPERTN..SA.1                      1 LINE     80   82 PAGE UM   WSG                 JULY 31, 1973  00:17.18
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
0          Referenced by comments of: 487/4, 489/1 
00135/2    *TAPERTN                                  OC  G          WSG:XTAPERTN.D3                                                 
            D3T1    359  TAPERTN..OC.2                      1 LINE     80    6 PAGE UM   WSG                 JULY 31, 1973  00:17.32
0          AT UM, THIS FILE IS NORMALLY LOADED INTO SHARED VM BY THE SEGMENT 2 LOADER AT IPL.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
0          HOWEVER, FOR INSTALLATIONS WITH LOWER TAPE USAGE, MTS WILL DYNAMICALLY LOAD A PRIVATE
           COPY (AS REQUIRED) FROM THIS FILE.
00136/1    *FIX                                      C              *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              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             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                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                                                                               WED JUL 24/96   18:21:34   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/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                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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             S0622 D3MISC FSNAME=M200                                     20 
            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          S0622 D3MISC FSNAME=GPAKDRAW                                 3  
            D3T1    396  GPAKDRAW..OC.2                     1 LINE     80    2 DISK UM   PIRKOLA             JAN. 22, 1973  22:09.16
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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    S0027 DISTRB FSNAME=FILESCAN                                    
            D3T1    403  FILESCAN..SA.1                     1 LINE     80    8 PAGE UM   ENGLE               JAN. 05, 1973  12:33.28
0          MTS FILE SCANNING PROGRAM.  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                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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, 531/3, 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                                                       
            D3T1    410  IPL_PROGRAM..SA.1                  1 LINE     80   12 PAGE UM   MTA                 AUG. 01, 1973  00:54.14
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."
0          Referenced by comments of: 157/1 
00156/2     IPL PROGRAM                              OC  G        # RESIDENT SYSTEM (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.
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.
1                                                                                               WED JUL 24/96   18:21:34   Page   54
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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          S0699 D3TAPE POSN=PSA                                        3  
            D3T1    412  PSA_DSECT.DUPLEX.SA.1              1 SEQ      80    6 PAGE UM   MTA                 JULY 31, 1973  00:29.57
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, 468/2, 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                                                        
            D3T1    413  PSA_DSECT.SIMPLEX.SA.2             1 LINE     80    7 PAGE UM   MTA                 JULY 31, 1973  00:30.00
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.
0          Referenced by comments of: 468/2 
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 
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
00163/13    PL1 COMPILER             UPDATE          UI             S0622 D3MISC FSNAME=PL1.COMPILER.UPD                         51 
            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).
1                                                                                               WED JUL 24/96   18:21:34   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/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             S0622 D3MISC FSNAME=M195                                     18 
            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                                              
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
0          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.
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00173       PRINTSAVE                                             # (SEE COMP 502/5 AND 502/6)                                      
                                                                                    UM                                              
00175      *GPAKLIB                                  OL             S0622 D3MISC FSNAME=GPAKLIB                                  1  
            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 ACIENT 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          S0622 D3MISC FSNAME=GPAKGRID                                 2  
            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 
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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             S0622 D3MISC FSNAME=M179                                     16 
            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.
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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/1     PAGEIT                                   SA  G  PGIT    W047:PAGEIT(1,999)                                              
            D3T2      4  PAGEIT..SA.1                       1 LINE     80    3 PAGE UM   HAMILTON            JULY 31, 1973  20:59.23
0          NOTHING PROGRAM THAT PAGES A LOT TO TEST PAGING.
           REQUIRES *SYSMAC.
00196/2     PAGEIT                                   OC  G          W047:PAGEIT(1000)                                               
            D3T2      5  PAGEIT..O.2                        1 LINE     80    1 PAGE UM   HAMILTON            JULY 31, 1973  20:59.25
00197      *SMDS                                     M   G          *SMDS                                                           
            D3T2      6  SMDS..M.                           1 LINE    118    3 PAGE UM   MTA                 JULY 31, 1973  20:59.27
0          MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET).  USED IN CONJUNCTION WITH FMSG MACRO IN MTS.
00198/1     GUINFO/CUINFO                            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.
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1 
00198/2     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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
0          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
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                         
            D3T2     21  GPSS/360.GPSSUPDATE.UU.12          1 LINE     80    6 PAGE UM   HENRIKSEN           JULY 03, 1973  17:20.25
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                          
            D3T2     22  GPSS/360.GPSS.OS.O.O.13            1 LINE    255   36 PAGE UM   HENRIKSEN           JULY 03, 1973  17:20.04
0          OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES.
           ******** NOTE:  THIS OBJECT CONTAINS A REP CARD. *******
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                         
            D3T2     26  GPSS/360.HOOKSECT.S.SA.17          1 LINE     80   13 PAGE UM   HENRIKSEN           MAY  22, 1973  15:22.07
0          SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE.
00201/18    GPSS/360                 JUNK.S          SA  G  GJNK    S0289 S289 'GPSS/360' FSNAME=JUNK.S                             
            D3T2     27  GPSS/360.JUNK.S.SA.18              1 LINE     80    3 PAGE UM   HENRIKSEN           DEC. 13, 1972  20:59.09
0          SOURCE FOR SEVERAL SUBROUTINES.
1                                                                                               WED JUL 24/96   18:21:34   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/19    GPSS/360                 GPSS.MTS.O      OE  G          S0289 S289 'GPSS/360' FSNAME=GPSS.MTS.O                         
            D3T2     28  GPSS/360.GPSS.MTS.O.O.19           1 LINE    255    3 DISK UM   HENRIKSEN           MAY  31, 1973  15:32.25
0          OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S.
00201/20    GPSS/360                 *GPSS           OL  G          *GPSS                                                           
            D3T2     29  GPSS/360.*GPSS.OL.20               1 SEQ   32767   34 PAGE UM   HENRIKSEN           JULY 31, 1973  21:11.09
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                                                        
            D3T2     32  GPSS/360.*GPSSERR.M.23             1 LINE     73    9 PAGE UM   HENRIKSEN           JULY 31, 1973  21:11.48
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                         
            D3T2     34  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.
00203      *TNLBUILD                                              # (SEE COMP 110)                                                  
                                                                                    UM                                              
00204/1     FORTRANG                 IEYFORT         SA  G  IEYF    W019:SOURCE.FORT                                                
            D3T2     35  FORTRANG.IEYFORT.SA.1              1 LINE     80   20 PAGE UM   JWS                 JULY 31, 1973  21:12.20
0          THIS IS THE MTS VERSION OF THE CONTROL MODULE OF THE FORTRAN G COMPILER. IT INCORPORATES THE FUNCTIONS
           OF THE OS MODULES IEYFORT AND IEYFORT2.
00204/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    W034: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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00204/4     FORTRANG                 IEYSYM          SA  G  IEYS    W034: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          W019: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             S0622 D3MISC FSNAME=M137                                     11 
            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          S0622 D3MISC FSNAME=LISP.UPDATE                              52 
            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
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00210/7    *LISP                     USER'S GUIDE    WF             S0622 D3MISC FSNAME=M135                                     10 
            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                                              
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                                              
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                                         
            D3T2     52  SYSMAC..SM.                        1 LINE     80   67 PAGE UM   MTA                 JULY 31, 1973  21:18.02
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/27)                                               
                                                                                    UM                                              
00233/1     PL1 LIBRARY              MACLIB          SM           # (SEE COMP 163/1)                                                
                                                                                    UM   TIFFANY                                    
00233/2     PL1 LIBRARY              SAMEQU          SA           # (SEE COMP 163/2)                                                
                                                                                    UM   TIFFANY                                    
00233/3     PL1 LIBRARY              REPLACE         SA           # (SEE COMP 163/3)                                                
                                                                                    UM   TIFFANY                                    
00233/4     PL1 LIBRARY              CKLIO           SA           # (SEE COMP 163/4)                                                
                                                                                    UM   TIFFANY                                    
00233/5     PL1 LIBRARY              NONSENSE        SA           # (SEE COMP 163/5)                                                
                                                                                    UM   TIFFANY                                    
00233/6     PL1 LIBRARY              FREEDDEF        SA           # (SEE COMP 163/6)                                                
                                                                                    UM   TIFFANY                                    
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00233/7     PL1 LIBRARY              FINDTIOT        SA           # (SEE COMP 163/7)                                                
                                                                                    UM   TIFFANY                                    
00233/8     PL1 LIBRARY              DDEF            SA           # (SEE COMP 163/8)                                                
                                                                                    UM   TIFFANY                                    
00233/9     PL1 LIBRARY              OPEN            SA           # (SEE COMP 163/9)                                                
                                                                                    UM   TIFFANY                                    
00233/10    PL1 LIBRARY              ROUT            SA           # (SEE COMP 163/10)                                               
                                                                                    UM   TIFFANY                                    
00233/11    PL1 LIBRARY              CLOSE           SA           # (SEE COMP 163/11)                                               
                                                                                    UM   TIFFANY                                    
00233/12    PL1 LIBRARY              QUIT            SA           # (SEE COMP 163/12)                                               
                                                                                    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
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
1                                                                                               WED JUL 24/96   18:21:34   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/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
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.
1                                                                                               WED JUL 24/96   18:21:34   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/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.
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                                              
1                                                                                               WED JUL 24/96   18:21:34   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/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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            JUNE 29, 1973  21:44.23
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   LAURANCE            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   LAURANCE            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   LAURANCE            JULY 31, 1973  21:26.46
0          OBJECT CONSISTING OF 234/5 + 234/7 + 234/9
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            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   LAURANCE            JUNE 29, 1973  21:38.49
0          SUBROUTINES TO PROVIDE MTS ENVIRONMENT FOR 8ASR IN OS/360.  NOT COMPLETELY CHECKED OUT.
           OBJECT NOT DISTRIBUTED.  ASSEMBLE WITH *OSMAC OR USE OS/360.
00234/20    8ASR                     LINK EDITOR     SA  G  LNK8    S0676 PDP-8 FSNAME=8LINK                                     14 
            D3T2    102  8ASR.LINK_EDITOR.SA.20             1 LINE     80   75 PAGE UM   LAURANCE            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                                  24 
            D3T2    103  8ASR.LINK_EDITOR.OC.21             1 LINE     80    5 DISK UM   LAURANCE            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   LAURANCE            JUNE 29, 1973  21:42.44
0          PDP-8 SIMULATOR SECTION OF *8LINK.  COPIES PANEL (234/24).
1                                                                                               WED JUL 24/96   18:21:34   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/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   LAURANCE            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   LAURANCE            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   LAURANCE            JULY 31, 1973  21:28.37
0          LINK EDIT OF 234/21 + 234/23.
00234/26    8ASR                     *8LINK WRITEUP  WF             S0622 D3MISC FSNAME=M133                                     9  
            D3T2    108  8ASR.*8LINK_WRITEUP.WF.26          1 LINE    110    8 DISK UM   LAURANCE            MAR. 15, 1973  17:02.58
0          THIS IS COMPUTING CENTER MEMO M133 -- "*8LINK"
00234/27    8ASR                     *8ASR WRITEUP   WF             S0622 D3MISC FSNAME=M165                                     31 
            D3T2    109  8ASR.*8ASR_WRITEUP.WF.27           1 LINE    153   13 DISK UM   LAURANCE            MAR. 16, 1973  21:15.47
0          THIS IS COMPUTING CENTER MEMO M165 -- "*8ASR, PDP-8 ASSEMBLER"
00234/28    8ASR                     *8LINK/*8ASR    WF             S0622 D3MISC FSNAME=M220                                     26 
            D3T2    110  8ASR.*8LINK/*8ASR.WF.28            1 LINE    108    2 DISK UM   LAURANCE            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/13)                                               
                                                                                    UM                                              
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/25)                                               
                                                                                    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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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/7 AND 502/8)                                      
                                                                                    UM                                              
00246      *8EDIT                                    SF           # (OBSOLETE)                                                      
                                                                                    UM                                              
00247      *SPEAK                                    D            # (SEE COMP 084/3)                                                
                                                                                    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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00253       LINE DIRECTORY SORT                      SA           # (OBSOLETED BY COMP 546)                                         
            D2T1    121                                                             UM                                              
00254/1     BSLOAD                                   SA  G  BSLD    W009:BSLOAD.S                                                   
            D3T2    119  BSLOAD..SA.1                       1 LINE     80   24 PAGE UM   DE JONG             JULY 31, 1973  21:31.48
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).
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 
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             S0622 D3MISC FSNAME=*MOMS                                       
            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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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                                    
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                     SA  O          S0371 'D1T2' FMT=FB(6400,80)                                 44 
            D3T2    130  SLIP..S.1                          1 SEQ      80   55 PAGE UM   SALISBURY           JULY 31, 1973  21:33.04
0          FORTRAN CALLABLE LIST PROCESSING PACKAGE. NOT CHANGED SINCE DIST 1.0.
00261/2    *SLIP                                     OL  O          *SLIP                                                           
            D3T2    131  SLIP..O.2                          1 LINE    248   44 PAGE UM   SALISBURY           JULY 31, 1973  21:33.09
00261/3    *SLIP                     WRITEUP         WF             S0622 D3MISC FSNAME=M197                                     19 
            D3T2    132  SLIP.WRITEUP.WF.3                  1 LINE    115    3 DISK UM   SALISBURY           MAR. 15, 1973  18:35.38
0          THIS IS COMPUTING CENTER MEMO M197 -- "360 SLIP"
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                        
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             S0371 'D1T2' FMT=FB(6400,80)                                 45 
            D3T2    138  IOH..SA.1                          1 SEQ      80  153 PAGE UM   LEADER              JULY 31, 1973  21:35.00
0          IOH/360. THIS CONVERSION PACKAGE USES SEVERAL RPQS, PARTICULARLY SWAP.
           UNFORTUNATELY, THIS PROGRAM IS STILL UNCHANGED SINCE DIST 1 AND DOES NOT STRICTLY CORRESPOND TO
           THE IOH/360 DOCUMENTATION IN VOLUME 5 OF THE UM MTS MANUAL.  SIGH!
           NOW FOR THE GOOD NEWS:  IT LOOKS LIKE SOMEONE WILL BE FIXING IT SOON.
0          Referenced by comments of: 400/1, 569/1 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00278/2     IOH                                      OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   LEADER                                     
00279       LINPG SUBR                               S            # (NOT DISTRIBUTED)                                               
            D2T1    396                                                             UM   HARDING                                    
0          SOLVE LINEAR PROGRAMMING PROBLEMS.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00282/1     PRINTER PLOT SUBR                        SA     PRPL    W038:PLOT1TO4                                                   
            D3T2    139  PRINTER_PLOT_SUBR..SA.1            1 LINE     80   31 PAGE UM   FRONCZAK            JULY 31, 1973  21:35.23
0          PLOT SUBROUTINES FOR PRINTED OUTPUT. USED BY *PLOT AMONG OTHERS.
00282/2     PRINTER PLOT SUBR                        OC           # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   FRONCZAK                                   
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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. *********
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                              
00296       CHECKDASD                                SA           # OBSOLETE                                                        
            D2T1    119                                                             UM                                              
00297/1    *LINKEDIT                 LKEDCMD         SP  G          W052:LINK.CMD.S                                                 
            D3T2    150  LINKEDIT.LKEDCMD.SP.1              1 LINE     98   16 PAGE UM   DE JONG             JULY 31, 1973  21:36.10
0          FANCY NEW VERSION OF THE MTS LINKAGE EDITOR WRITTEN IN PL/I.
           REQUIRES COPY SECTION LINK.COM (297/6).
00297/2    *LINKEDIT                 INCLUDE         SP  G          W052:LINK.INCL.S                                                
            D3T2    151  LINKEDIT.INCLUDE.SP.2              1 LINE    100   15 PAGE UM   DE JONG             JULY 31, 1973  21:36.18
0          COPIES LINK.COM (297/6).
00297/3    *LINKEDIT                 PUNCH           SP  G          W052:LINK.PUNCH.S                                               
            D3T2    152  LINKEDIT.PUNCH.SP.3                1 LINE    100    5 PAGE UM   DE JONG             JULY 31, 1973  21:36.21
0          COPIES LINK.COM (297/6).
00297/4    *LINKEDIT                 COMBINE         SP  G          W052:LINK.COMB.S                                                
            D3T2    153  LINKEDIT.COMBINE.SP.4              1 LINE    100    9 PAGE UM   DE JONG             JULY 31, 1973  21:36.23
0          COPIES LINK.COM (297/6).
00297/5    *LINKEDIT                 SUBR            SP  G          W052:LINK.SUBR.S                                                
            D3T2    154  LINKEDIT.SUBR.SP.5                 1 LINE     91    3 PAGE UM   DE JONG             JULY 31, 1973  21:36.26
0          COPIES LINK.COM (297/6).
00297/6    *LINKEDIT                 LINK.COM        SP  G          W052:LINK.COM                                                   
            D3T2    155  LINKEDIT.LINK.COM.SP.6             1 LINE    100    5 PAGE UM   DE JONG             JULY 31, 1973  21:36.28
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00297/7    *LINKEDIT                 ASMSUBR         SA  G          W052:LINK.ALIB.S                                                
            D3T2    156  LINKEDIT.ASMSUBR.SA.7              1 LINE     72    1 PAGE UM   DE JONG             JULY 31, 1973  21:36.30
0          ASMG SUBROUTINES.
00297/8    *LINKEDIT                 DUMP            SP  G          W052:LINK.DUMP.S                                                
            D3T2    157  LINKEDIT.DUMP.SP.8                 1 LINE     91    4 PAGE UM   DE JONG             JULY 31, 1973  21:36.32
0          SUBROUTINE TO PRODUCE ERROR DUMPS.
           CONTAINS "$CONTINUE WITH LINK.COM"  (297/6)
00297/9    *LINKEDIT                 OBJECT          OE  G          *LINKEDIT                                                       
            D3T2    158  LINKEDIT.OBJECT.O.9                1 SEQ   32767   33 PAGE UM   DE JONG             JULY 31, 1973  21:36.34
0          THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT.
00297/10   *LINKEDIT                 USERS' GUIDE    WF             S0622 D3MISC FSNAME=M241                                     59 
            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"
           NOTE:  THIS HAS NOT BEEN COMPLETELY FINISHED, BUT IS VERY CLOSE.
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
0          Referenced by comments of: 298/3 
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.
0          Referenced by comments of: 298/3 
00298/3    *FORTRANH                 MTS OBJECT      OC  G          S0579 SAVE 'JWS - SAVE' FSNAME=FSDOBJ                           
            D3T2    162  FORTRANH.MTS_OBJECT.O.3            1 LINE     80    8 DISK UM   JWS                 JUNE 23, 1972  12:58.13
0          OBJECT RESULTING FROM ASSEMBLY OF SOURCE (298/1) AFTER UPDATE (298/2).
00298/4    *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/5    *FORTRANH                 OBJECT          OE  G          W034:OLDFORTRANH                                                
            D3T2    164  FORTRANH.OBJECT.OE.5               1 SEQ   32767  102 PAGE UM   JWS                 JULY 31, 1973  21:42.58
0          LINK EDITED OBJECT FROM 298/4 + 298/3.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00298/6    *FORTRANH                 FTN VERSION     SA             W034: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.  IN THIS WAY, A USER WILL BE ABLE TO RUN *FTN AND THEN SELECT EITHER FORTRAN G OR H.
           THIS VERSION IS CURRENTLY UNDER PRELIMINARY USER TESTING AT UM.
0          Referenced by comments of: 551/5 
00298/7    *FORTRANH                 FTN VERSION     OC             W034: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 298/3 AND, AS SUCH, MUST BE COMBINED WITH 298/4 TO PRODUCE A 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.
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   SMITH               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   SMITH               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   SMITH                                      
0          Referenced by comments of: 303/1 
00303/4     SORT                     SORT2/3 SUBRS   SA  G        # (PART OF 303/1)                                                 
                                                                                    UM   SMITH                                      
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00303/5     SORT                     SORT2/3 SUBRS   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   SMITH                                      
00303/6     SORT                     LM1 SUBROUTINE  SA  G        # (PART OF 303/1)                                                 
                                                                                    UM   SMITH                                      
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   SMITH               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   SMITH               JULY 31, 1973  22:40.59
00303/9     SORT                     LM2 SUBROUTINE  SA  G        # (PART OF 303/1)                                                 
                                                                                    UM   SMITH                                      
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   SMITH               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   SMITH               AUG. 14, 1972  17:45.47
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   SMITH               AUG. 14, 1972  17:46.01
00303/13    SORT                     M223 PREFACE    WF  G          S0622 D3MISC FSNAME=M223                                     27 
            D3T2    176  SORT.M223_PREFACE.WF.13            1 LINE     96    1 DISK UM   SMITH               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                                              
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   SALISBURY           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   SALISBURY           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   SALISBURY           JULY 31, 1973  22:47.18
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           JULY 31, 1973  22:47.43
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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           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   SALISBURY           JULY 31, 1973  22:48.08
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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   SALISBURY           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   SALISBURY           JULY 31, 1973  22:48.12
0          ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00306/1     WIREWRAP                 *WIREWRAP       SA  G  WIRE    W064:WW.S                                                       
            D3T2    199  WIREWRAP.*WIREWRAP.SA.1            1 LINE     80  108 PAGE UM   SMITH               JULY 31, 1973  22:48.24
0          PROGRAM TO PRODUCE ALL SORTS OF NEAT OUTPUT ABOUT WIRING BACKPANELS FOR SOME HARDWARE DEVICES.
           MUST BE CONCATENATED WITH *MSERIES, *RSERIES, OR *IC TO DEFINE THE CHARACTERISTICS OF THE MODULES
           USED IN THE DESIGN.  THE M OR R REFER TO DEC SERIES.
           REQUIRES COPY SECTIONS WWCOPY(306/3) AND WWDATA (306/4) AND MACRO LIBRARIES WWMAC (306/5) AND *SYSMAC.
00306/2     WIREWRAP                 *WIREWRAP       OE  G          *WIREWRAP                                                       
            D3T2    200  WIREWRAP.*WIREWRAP.O.2             1 SEQ   10200    8 PAGE UM   SMITH               JULY 31, 1973  22:48.42
00306/3     WIREWRAP                 WWCOPY          SA  G          W064:WWCOPY                                                     
            D3T2    201  WIREWRAP.WWCOPY.SA.3               1 LINE     71    3 PAGE UM   SMITH               JULY 31, 1973  22:48.44
0          COPY SECTION USED BY 306/1
00306/4     WIREWRAP                 WWDATA          SA  G          W064:WWDATA                                                     
            D3T2    202  WIREWRAP.WWDATA.SA.4               1 LINE     72    5 PAGE UM   SMITH               JULY 31, 1973  22:48.46
0          COPY SECTION USED BY 306/1
0          Referenced by comments of: 306/1 
00306/5     WIREWRAP                 WWMAC           SM  G          W064:WWMAC                                                      
            D3T2    203  WIREWRAP.WWMAC.SM.5                1 LINE     73    3 PAGE UM   SMITH               JULY 31, 1973  22:48.48
0          MACRO LIB USED BY 306/1/
0          Referenced by comments of: 306/1 
00306/6     WIREWRAP                 *MSERIES        SF  G  MSER    W064:MSERIES.S                                                  
            D3T2    204  WIREWRAP.*MSERIES.SF.6             1 LINE     80    5 PAGE UM   SMITH               JULY 31, 1973  22:48.50
0          DIGITAL EQUIPMENT CORP M-SERIES LOGIC DESCRIPTION SUBROUTINES.
           COMPILED OBJECT SHOULD BE COMBINED WITH STGRD1 OBJECT (306/15).
0          Referenced by comments of: 306/14 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00306/7     WIREWRAP                 *MSERIES        OE  G          *MSERIES                                                        
            D3T2    205  WIREWRAP.*MSERIES.O.7              1 LINE    255    3 PAGE UM   SMITH               JULY 31, 1973  22:48.52
00306/8     WIREWRAP                 *RSERIES        SF  G  RSER    W064:RSERIES.S                                                  
            D3T2    206  WIREWRAP.*RSERIES.SF.8             1 LINE     80    5 PAGE UM   SMITH               JULY 31, 1973  22:48.55
0          DIGITAL EQUIPMENT CORP R-SERIES LOGIC DESCRIPTION SUBROUTINES.
           COMPILED OBJECT SHOULD BE COMBINED WITH STGRD2 OBJECT (306/17).
0          Referenced by comments of: 306/16 
00306/9     WIREWRAP                 *RSERIES        OE  G          *RSERIES                                                        
            D3T2    207  WIREWRAP.*RSERIES.O.9              1 LINE    255    3 PAGE UM   SMITH               JULY 31, 1973  22:48.57
00306/10    WIREWRAP                 *IC             SF     IC00    W064:IC.S                                                       
            D3T2    208  WIREWRAP.*IC.SF.10                 1 LINE     80    5 PAGE UM   SMITH               JULY 31, 1973  22:48.59
0          INTEGRATED CIRCUITS DESCRIPTION SUBROUTINES.
           COMPILED OBJECT SHOULD BE COMBINED WITH STGRD1 OBJECT (306/15).
0          Referenced by comments of: 306/14 
00306/11    WIREWRAP                 *IC             OE  G          *IC                                                             
            D3T2    209  WIREWRAP.*IC.O.11                  1 LINE    255    3 PAGE UM   SMITH               JULY 31, 1973  22:49.01
00306/12    WIREWRAP                 *LAB            SF  G          W064:LAB.S                                                      
            D3T2    210  WIREWRAP.*LAB.SF.12                1 LINE     70    3 PAGE UM   SMITH               JULY 31, 1973  22:49.04
0          LOGIC LAB DESCRIPTION SUBROUTINES.
00306/13    WIREWRAP                 *LAB            OE  G          *LAB                                                            
            D3T2    211  WIREWRAP.*LAB.O.13                 1 LINE    255    3 PAGE UM   SMITH               JULY 31, 1973  22:49.06
00306/14    WIREWRAP                 STGRD1          SA  G  STG1    W064:STGRD1.S                                                   
            D3T2    212  WIREWRAP.STGRD1.SA.14              1 LINE     80    8 PAGE UM   SMITH               JULY 31, 1973  22:49.08
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.  CALLED BY *MSERIES (306/6) AND *IC (306/10).
00306/15    WIREWRAP                 STGRD1          OC  G          W064:STGRD1                                                     
            D3T2    213  WIREWRAP.STGRD1.OC.15              1 LINE     80    1 PAGE UM   SMITH               JULY 31, 1973  22:49.10
0          Referenced by comments of: 306/6, 306/10 
00306/16    WIREWRAP                 STGRD2          SA  G  STG2    W064:STGRD2.S                                                   
            D3T2    214  WIREWRAP.STGRD2.SA.16              1 LINE     80    8 PAGE UM   SMITH               JULY 31, 1973  22:49.12
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.  CALLED BY *RSERIES (306/8).
00306/17    WIREWRAP                 STGRD2          OC  G          W064:STGRD2                                                     
            D3T2    215  WIREWRAP.STGRD2.OC.17              1 LINE    255    3 PAGE UM   SMITH               JULY 31, 1973  22:49.14
0          Referenced by comments of: 306/8 
1                                                                                               WED JUL 24/96   18:21:34   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/18    WIREWRAP                 SQGRD           SA  G          W064:SQGRD.S                                                    
            D3T2    216  WIREWRAP.SQGRD.SA.18               1 LINE     72    4 PAGE UM   SMITH               JULY 31, 1973  22:49.17
0          SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE.
00306/19    WIREWRAP                 SQGRD           OC  G          W064:SQGRD                                                      
            D3T2    217  WIREWRAP.SQGRD.OC.19               1 LINE     80    1 PAGE UM   SMITH               JULY 31, 1973  22:49.19
00306/20    WIREWRAP                 ICMAC           D   G          W064:ICMAC                                                      
            D3T2    218  WIREWRAP.ICMAC.D.20                1 LINE     65    4 PAGE UM   SMITH               JULY 31, 1973  22:49.21
0          CONTAINS "WIREWRAP MACROS" FOR MOST OF THE IC'S USED FOR LOGIC DESIGN AT THE UM COMPUTING CENTER.
00306/21    WIREWRAP                 USER'S GUIDE    WT  G          W064:WWDES                                                      
            D3T2    219  WIREWRAP.USER'S_GUIDE.WT.21        1 LINE     80   22 PAGE UM   SMITH               JULY 31, 1973  22:49.23
0          THIS IS COMPUTING CENTER MEMO M181 -- "*WIREWRAP USER'S GUIDE"
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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.SGEN                                                  
            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.
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/16)                                               
                                                                                    UM                                              
00311      *VARRLIST                                 S            # (OBSOLETE)                                                      
            D2T1    333                                                             UM                                              
00312      *ARUVOC                                   D            # (SEE COMP 084/11)                                               
                                                                                    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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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             S0622 D3MISC FSNAME=LABELSNIFF.WT                            34 
            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     GENL    S0517 'D2T1' FMT=FB(4000,80)                                 282
            D3T2    236  GENLIB..SA.                        1 SEQ      80    6 PAGE UNE  BARNETT             JULY 31, 1973  22:59.46
0          NEWCASTLE'S VERSION OF LIBRARY GENERATOR PROGRAM *GENLIB (SEE ALSO COMP 389).
           REQUIRES A LINE FILE AS OUTPUT (SPUNCH).  OBJECT NOT DISTRIBUTED.
           THIS IS THE DIST 2 VERSION AND MAY WELL BE OBSOLETE BY NOW.
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
           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:
1                                                                                               WED JUL 24/96   18:21:34   Page   90
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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             S0622 D3MISC FSNAME=M230                                     44 
            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
           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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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:STATP15.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
            
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
0                        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:
            
                           'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE';
0          Referenced by comments of: 413/10 
00326/2     STAT MONTHLY SUMMARY     PPAGES SUBR     SP             W041:STATP14.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:STATP14.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:STATP15.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/13)                                               
                                                                                    UM                                              
00328/1     ALLLINES                                 SA           # (OBSOLETE)                                                      
            D2T1    264                                                             UM                                              
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00328/2     ALLLINES                                 O            # (OBSOLETE)                                                      
            D2T1    265                                                             UM                                              
00329      *SKELETON                                              # (SEE COMP 318/10 AND 318/11)                                    
                                                                                    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 97/10 AND 97/11)                                      
                                                                                    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).
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             S0622 D3MISC FSNAME=SNOBOL4B.UPD                             53 
            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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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/6 AND 182/7)                                      
                                                                                    UM   DE JONG                                    
00334/9    *SNOBOL4B                 WRITEUP         WF           # (SEE COMP 182/8)                                                
                                                                                    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 
00336/2     SPL                      TRACE           SA           # (SEE COMP 318/3)                                                
                                                                                    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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00337/1     PRINT TRACE                              SA  G  PTTR    MTA:PRINTTRACE(1,999)                                           
            D3T2    281  PRINT_TRACE..SA.1                  1 LINE     80    6 PAGE UM   MTA                 JULY 31, 1973  23:16.54
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)                                       
            D3T2    282  PRINT_TRACE..OC.2                  1 LINE     80    3 PAGE UM   MTA                 JULY 31, 1973  23:16.57
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 
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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          COPY:MTS.CONTAB                                                 
            D3T2    291  MTS.CONTAB..SA.                    1 LINE     80    3 PAGE UM   DWB                 JULY 31, 1973  23:17.15
0          THIS IS "COPY:MTS.CONTAB" WHICH IS COPIED BY ALL PROGRAMS THAT USE THE MTS DSECT.
           COPY:LLMPSEQU (087) AND EITHER COPY:MTS.EQU (345) OR COPY:MTS.EQU2 (347)
           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 
00344       MTS.MACROS                               SM  G  MMAC    COPY:MTS.MACROS                                                 
            D3T2    292  MTS.MACROS..SM.                    1 LINE     80    3 PAGE UM   DWB                 JULY 31, 1973  23:17.17
0          THIS IS "COPY:MTS.MACROS" WHICH IS USED TO ASSEMBLE THE "MTS SUBROUTINES":  KWIC (040), GETSPACE/FREESPAC (041),
           GUINFO/CUINFO (198), LLXU (354), CHECKSUM (462), STANDARD DUMP (463), PLIMIT (464), TIMNTRP (539), AND RSF (578).
0          Referenced by comments of: 40/1, 41/1, 198/1, 354/1, 462/1, 464/1, 539/1, 578/1 
00345       MTS.EQU                                  SA  G          COPY:MTS.EQU                                                    
            D3T2    293  MTS.EQU..SA.                       1 LINE     80    4 PAGE UM   DWB                 JULY 31, 1973  23:17.19
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 
00346       MTS.DSECT                                SA  G          COPY:MTS.DSECT                                                  
            D3T2    294  MTS.DSECT..SA.                     1 LINE     80   21 PAGE UM   DWB                 JULY 31, 1973  23:17.21
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)
           AND $CONTINUE WITH COPY:STATDSECT RETURN         (620)
0          Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 354/1, 462/1, 464/1, 531/1, 539/1, 578/1 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00347       MTS.EQU2                                 SA  G          COPY:MTS.EQU2                                                   
            D3T2    295  MTS.EQU2..SA.                      1 LINE     80    4 PAGE UM   DWB                 JULY 31, 1973  23:17.24
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: 343/1, 345/1, 482/44 
00348       MTS.RHTABLE                              SA  G          COPY:MTS.RHTABLE                                                
            D3T2    296  MTS.RHTABLE..SA.                   1 LINE     80    3 PAGE UM   DWB                 JULY 31, 1973  23:17.26
0          THIS IS "COPY:MTS.RHTABLE" WHICH DEFINES THE RIGHT HAND TABLE FOR THE KWIC CALLS BY MTS.  COPIED BY MTS AND KWIC.
0          Referenced by comments of: 40/1, 42/1 
00349       OPEROPEROPER                                          # (OBSOLETE)                                                      
                                                                                    UM                                              
00350       BLOCKLETTER                              SA           # (OBSOLETE)                                                      
            D2T1    252                                                             UM                                              
00351       DCVD SUBROUTINE                                       # (SEE COMP 084/5 AND 084/6)                                      
                                                                                    UM                                              
00352       DCVC SUBROUTINE                                       # (SEE COMP 084/7 AND 084/8)                                      
                                                                                    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                                     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), AND COPY:LLMPSEQU (087). 
           NEEDS MACROS IN COPY:MTS.MACROS (344).
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00354/2     LLXU                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00354/3     LLXU                     LLXUTEST        SA             W009:LLXUTEST.S                                                 
            D3T2    301  LLXU.LLXUTEST.SA.3                 1 LINE     60    5 PAGE UM   DE JONG             JULY 31, 1973  23:19.14
0          PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD.  ASSEMBLE USING THE 354/5 MACRO LIBRARY.
0          Referenced by comments of: 354/5 
00354/4     LLXU                     LLXUTEST        OC             W009:LLXUTEST.O                                                 
            D3T2    302  LLXU.LLXUTEST.OC.4                 1 LINE     80    4 PAGE UM   DE JONG             JULY 31, 1973  23:19.16
00354/5     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/3).
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   ?                   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   ?                                          
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00358/1    *TAPECOPY                                 SA  G  TPCP    WSG:TAPECOPY(1,999)                                             
            D3T2    307  TAPECOPY..SA.1                     1 LINE     80   14 PAGE UM   WSG                 JULY 31, 1973  23:20.43
0          MULTIPLE FILE TAPE COPY PROGRAM.  COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK.
00358/2    *TAPECOPY                                 OC  G          *TAPECOPY                                                       
            D3T2    308  TAPECOPY..OC.2                     1 LINE     80    3 PAGE UM   WSG                 JULY 31, 1973  23:20.46
00359       SORT SUBROUTINE                                       # (SEE COMP 303/1 AND 303/3)                                      
                                                                                    UM                                              
00360/1     TIME SUBROUTINE                          SA  G  TIME    S0027 DISTRB FSNAME=TIME                                        
            D3T2    309  TIME_SUBROUTINE..SA.1              1 LINE     80    6 PAGE UM   ENGLE               JAN. 05, 1973  12:33.55
0          SUBROUTINE TO DO THINGS WITH THE TIME, BOTH CPU AND ELAPSED.
00360/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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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.
1                                                                                               WED JUL 24/96   18:21:34   Page  102
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 374/1 
00376       ZPR                                      S            # (NOT DISTRIBUTED)                                               
            D2T1    412                                                             UM   HARDING                                    
0          SUBR TO FIND A ZERO OF A POLYNOMIAL.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00377       ZQUAD                                    S            # (NOT DISTRIBUTED)                                               
            D2T1    413                                                             UM   HARDING                                    
0          SUBR TO FIND ROOTS OF A QUADRATIC.
           APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3.
00385       CATALOG SUBR                                          # (SEE COMP 482/23 AND 482/24)                                    
                                                                                    UM                                              
00386       READ/WRITE SEQUENTIAL                                 # (SEE COMP 482/25 AND 482/26)                                    
                                                                                    UM                                              
00387/1     HASP                     MASTER SOURCE   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, 468/2 
00387/2     HASP                     UPDATE          UU  G          MTS:HASP2.U                                                     
            D3T2    311  HASP.UPDATE.UU.2                   1 LINE    104   33 PAGE UM   DWB                 AUG. 02, 1973  02:26.05
0          THIS UPDATE CONVERTS MTS HASP DIST 2.2 TO 387/1.  THIS FILE ACTUALLY CONTAINS COMPLETE COMMANDS FOR UPDATING
           AND ASSEMBLING AND HAS "$CONTINUE WITH" CARDS FOR:  HRTPCONP.U (387/3), HRTPRTAM.U (387/4), HRTPMLLM.U (387/5),
           AND HRTPEXTP.U (387/6).  NEW INSTALLATIONS WILL NOT BE INTERESTED IN 387/2 THROUGH 387/6, ONLY 387/1.
00387/3     HASP                     HRTPCONP        SA  G          MTS:HRTPCONP.U                                                  
            D3T2    312  HASP.HRTPCONP.SA.3                 1 LINE     80   10 PAGE UM   SMITH               AUG. 02, 1973  02:26.24
0          REMOTE TERMINAL CONSOLE PROCESSOR.  COPIED AS "HRTPCONP.U".  THIS IS THE MTS VERSION.
0          Referenced by comments of: 387/2 
00387/4     HASP                     HRTPRTAM        SA  G          MTS:HRTPRTAM.U                                                  
            D3T2    313  HASP.HRTPRTAM.SA.4                 1 LINE     80   53 PAGE UM   SMITH               AUG. 02, 1973  02:26.26
0          REMOTE TERMINAL ACCESS METHOD.  COPIED AS "HRTPRTAM.U".  THIS IS THE MTS VERSION.
0          Referenced by comments of: 387/2 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00387/5     HASP                     HRTPMLLM        SA  G          MTS:HRTPMLLM.U                                                  
            D3T2    314  HASP.HRTPMLLM.SA.5                 1 LINE     80   21 PAGE UM   SMITH               AUG. 02, 1973  02:26.40
0          MULTI-LEAVING LINE MANAGER.  COPIED AS "HRTPMLLM.U".  THIS IS THE MTS VERSION.
0          Referenced by comments of: 387/2 
00387/6     HASP                     HRTPEXTP        SA  G          MTS:HRTPEXTP.U                                                  
            D3T2    315  HASP.HRTPEXTP.SA.6                 1 LINE     80    3 PAGE UM   SMITH               AUG. 02, 1973  02:26.47
0          INTERFACE TO RTAM.  COPIED AS "HRTPEXTP.U".  THIS IS THE MTS VERSION.
0          Referenced by comments of: 387/2 
00387/7     HASP                     UPDATE 2        UU  G          MTS:HASP2.U2                                                    
            D3T2    316  HASP.UPDATE_2.UU.7                 1 LINE     80    1 PAGE UM   DWB                 AUG. 02, 1973  02:26.53
0          THIS IS A SMALL UPDATE DECK TO BE APPLIED TO THE OUTPUT OF 387/2. IT CORRECTS A FEW MINOR BUGS
           FOUND IN HASP AT THE LAST MINUTE.  387/1 IS THE RESULT OF APPLYING BOTH UPDATES.
00387/8     HASP                                     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00387/9     HASP                     LISTING         P              S0035 UMMPS 'SUPERVISOR LISTING TAPE' POSN=HASP.LISTING.SPX  9  
            D3T2    317  HASP.LISTING.P.9                   1 SEQ     133  664 PAGE UM   DWB                 AUG. 02, 1973  02:29.55
0          *ASMG LISTING OF ASSEMBLY OF 387/1 WITH ASSEMBLER UPDATE TO CHANGE SOURCE FOR NO RJE, NO SLT, NO &UM,
           AND &NUMCYL SETA 200.  THIS LISTING CORRESPONDS TO THE SIMPLEX OBJECT DECK (468/2).
           COPY TO A PRINTER @MCC.
00387/10    HASP                     HRTP1130        SA  G  1130    MTS:HRTP1130.U                                                  
            D3T2    318  HASP.HRTP1130.SA.10                1 LINE     80  169 PAGE UM   SMITH               AUG. 02, 1973  02:30.40
0          REMOTE TERMINAL PROGRAM FOR 1130.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/11    HASP                     HRTPLOAD        SA  G  LOAD    MTS:HRTPLOAD.U                                                  
            D3T2    319  HASP.HRTPLOAD.SA.11                1 LINE     80   37 PAGE UM   SMITH               AUG. 02, 1973  02:31.04
0          LOADER FOR REMOTE 1130 PROGRAM.  THIS IS THE OS VERSION WITH A FEW BUGS FIXED.
00387/12    HASP                     HRPTB360        SA  G  B360    MTS:HRTPB360.U                                                  
            D3T2    320  HASP.HRPTB360.SA.12                1 LINE     80  105 PAGE UM   SMITH               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/13    HASP                     HRTPSYS3        SA  G  SYS3    MTS:HRTPSYS3.U                                                  
            D3T2    321  HASP.HRTPSYS3.SA.13                1 LINE     80   98 PAGE UM   SMITH               AUG. 02, 1973  02:31.26
0          REMOTE PROGRAM FOR IBM SYSTEM/3.  HERE AGAIN, THIS VERSION IS FROM HASP II VERSION 3.1.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00387/14    HASP                     RTPBOOT         B   G          W092:RTPBOOT                                                    
            D3T2    322  HASP.RTPBOOT.B.14                  1 LINE    160    1 PAGE UM   SMITH               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/15    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/16    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/15, AND (3) THE
           OBJECT FOR THE ALGOL COMPILER (OR LIBRARY) MTS INTERFACE (COMP 505/2 OR 505/22).
00387/17    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/18).
           INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE.
00387/18    HASP                     STRT:HSP        C              STRT:HSP                                                        
            D3T2    326  HASP.STRT:HSP.C.18                 1 LINE     24    1 PAGE UM   WSG                 AUG. 02, 1973  02:31.49
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/17 
00387/19    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/20).
           INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE.
00387/20    HASP                     STRT:DRN        C              STRT:DRN                                                        
            D3T2    328  HASP.STRT:DRN.C.20                 1 LINE     13    1 PAGE UM   WSG                 AUG. 02, 1973  02:31.53
0          THIS FILE RUNS STRT:START (614) TO DRAIN ALL THE HASP REMOTE LINES, I.E. IT ISSUES "$DRAIN SDAX" 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/19 
00387/21    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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00387/22    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)                                             
            D3T2    331  HASPLING..SA.1                     1 LINE     80   15 PAGE UM   MTA                 AUG. 02, 1973  02:32.04
0          NEW MASTER SOURCE FOR THE HASPLING.
0          Referenced by comments of: 468/2 
00388/2     HASPLING                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    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.
           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                                             
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                                        
            D3T2    336  SYSTEM_DUMP..SA.1                  1 LINE     80   13 PAGE UM   MTA                 AUG. 02, 1973  02:35.19
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 
00399/2     SYSTEM DUMP                              OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   MTA                                        
00400/1     PRINT DUMP                               SA  G  DMPL    MTA:DMPLST(1,1999)                                              
            D3T2    337  PRINT_DUMP..SA.1                   1 LINE     80   24 PAGE UM   MTA                 AUG. 02, 1973  02:35.21
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                                                   
            D3T2    338  PRINT_DUMP..OC.2                   1 LINE     80    7 PAGE UM   MTA                 AUG. 02, 1973  02:35.27
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.
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                                              
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00404       COLBIN                                   S            # (UBC WILL DISTRIBUTE THIS AFTER D3.0)                           
            D2T1    435                                                             UBC  HOGG                                       
0          SUBROUTINE TO READ BINARY CARDS IN FORTRAN (BARF-- BINARY ARRAY READER FOR FORTRAN).
00405       CJDATE                                   S            # (UBC WILL DISTRIBUTE THIS AFTER 3.0)                            
            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            # (UBC WILL DISTRIBUTE THIS AFTER 3.0)                            
            D2T1    157                                                             UBC  HOGG                                       
00413/1     JOBS                     TASK STAT ROUT  SA  G          WSG:JOBS                                                        
            D3T2    342  JOBS.TASK_STAT_ROUT.SA.1           1 LINE     70   32 PAGE UM   SMITH               AUG. 02, 1973  02:40.49
0          TASKS STAT ROUTINES (TSR) COMPUTE SYSTEM LOAD (CPU, PAGING, DISK, AND CHANNEL ACTIVITY).
           CALLED BY THE "JOBS" JOB (413/3) AND THE MTS JOBS (MJ) PROGRAM (413/5) TO COMPUTE AND FORMAT PRINTED OUTPUT. 
           A SET OF NOTES ("NOTES ON JOBS") IS INCLUDED WITH THE PAPER DOCUMENTATION.
           COPIES COPY:JOBSTA (413/13) AND REQUIRES DBS:MAC MACRO LIBRARY (455).
           HAS OPTION FOR USE OF THE SEARCH LIST (SLT) INSTRUCTION:
            
           &SLT     SETB  0                  NO SLT
           &SLT     SETB  1                  USE SLT
            
1                                                                                               WED JUL 24/96   18:21:34   Page  108
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          *****NOTE:  AT THE LAST MINUTE A BUG WAS DISCOVERED IN THIS PROGRAM WHICH ONLY BECOMES APPARENT WHEN THE &SLT
                       OPTION IS SET TO ZERO.  THIS SOURCE HAS NOT BEEN CORRECTED, ALTHOUGH THE DISTRIBUTED OBJECT HAS
                       BEEN CORRECTED BY RE-ASSEMBLY.  THE SOURCE SHOULD BE CHANGED AT LINE 2298.000 AS FOLLOWS:
            
               OLD-->         C     R3,4(0,R2)
               NEW-->         CL    R3,4(0,R2)
0          Referenced by comments of: 45/1, 468/2 
00413/2     JOBS                     TASK STAT ROUT  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   SMITH                                      
00413/3     JOBS                     JOB PROGRAM     SA  G        # (PART OF 413/1)                                                 
                                                                                    UM   SMITH                                      
0          UMMPS JOB PROGRAM (NAMED "JOBS") TO INTERFACE TO THE TASKS STAT ROUTINES FROM THE JOB PROGRAM LEVEL.
           "JOBS" CAN USE THE OPERATORS CONSOLE, A 2260 DISPLAY, OR A TTY OR HAZELTINE 2000 DISPLAY (CONNECTED VIA UM
           DATA CONCENTRATOR).  AT UM, THE LATTER IS USED WITH THE /H COMMAND TO DRIVE A TV MONITOR IN THE USER'S
           WORK AREA WHICH DISPLAYS THE CURRENT STATUS OF EACH BATCH JOB IN THE SYSTEM.
           COPIES COPY:JOBSTA (413/13) AND REQUIRES DBS:MAC MACRO LIBRARY (455).
0          Referenced by comments of: 413/1 
00413/4     JOBS                     JOB PROGRAM     OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   SMITH                                      
00413/5     JOBS                     MTS JOBS PGM    SA  G        # (PART OF 413/1)                                                 
                                                                                    UM   SMITH                                      
0          MTS JOBS PROGRAM (MJ) TO INTERFACE TO THE TASKS STAT ROUTINES FROM THE MTS EXECUTION LEVEL.
           COPIES COPY:JOBSTA (413/13) AND REQUIRES DBS:MAC MACRO LIBRARY (455).
0          Referenced by comments of: 413/1 
00413/6     JOBS                     MTS JOBS PGM    OC  G          DBS:MJ                                                          
            D3T2    343  JOBS.MTS_JOBS_PGM.OC.6             1 SEQ     500    1 PAGE UM   SMITH               AUG. 02, 1973  02:41.11
00413/7     JOBS                     HAZELTINE I/O   SA  G        # (PART OF 413/1)                                                 
                                                                                    UM   SMITH                                      
0          I/O ROUTINES WHICH MTS JOBS PGM USES IF OUTPUT IS ON A HAZELTINE 2000 DISPLAY CONNECTED TO UM
           DATA CONCENTRATOR.
           REQUIRES DBS:MAC MACRO LIBRARY (455).
00413/8     JOBS                     HAZELTINE I/O   OC  G        # (PART OF 413/6)                                                 
                                                                                    UM   SMITH                                      
00413/9     JOBS                     TASKS STAT SAV  C   G          *BST                                                            
            D3T2    344  JOBS.TASKS_STAT_SAV.C.9            1 LINE     26    1 PAGE UM   SMITH               AUG. 02, 1973  02:41.19
0          COMMANDS TO SIGNON AND SOURCE TO OPER:BST.  INVOKED BY *LAS (154) OR BY ENTERING "MTS *BST"
           ON OPERATORS CONSOLE.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00413/10    JOBS                     TASKS STAT SAV  C   G          OPER:BST(1,99)                                                  
            D3T2    345  JOBS.TASKS_STAT_SAV.C.10           1 LINE    108    1 PAGE UM   SMITH               AUG. 02, 1973  02:41.25
0          COMMANDS TO RUN THE TASKS STAT SAVE PROGRAM (413/11) WHICH ACCUMLATES SYSTEM LOAD INFORMATION
           IN A FILE (OPER:STAT), ONE LINE EVERY 20 SECONDS.  THIS FILE IS AUTOMATICALLY DUMPED ONTO A
           TAPE PERIODICALLY AND, BECAUSE OF THIS, WILL HAVE TO BE REASSEMBLED SO THAT THE CORRECT
           TAPE RACK NUMBER IS USED FOR EACH INSTALLATION.  THIS INFORMATION (ON TAPE) CAN BE PROCESSED
           BY THE STAT MONTHLY SUMMARY PROGRAM (326).
00413/11    JOBS                     TASKS STAT SAV  SA  G        # (PART OF 413/1)                                                 
                                                                                    UM   SMITH                                      
0          SOURCE FOR TASKS STAT SAVE PROGRAM (SEE COMMENTS FOR 413/10).
0          Referenced by comments of: 413/10 
00413/12    JOBS                     TASKS STAT SAV  OC  G          OPER:BST(100)                                                   
            D3T2    346  JOBS.TASKS_STAT_SAV.OC.12          1 LINE    187    1 PAGE UM   SMITH               AUG. 02, 1973  02:49.45
0          Referenced by comments of: 326/1 
00413/13    JOBS                     JOBSTA          SA  G  JSTV    COPY:JOBSTA                                                     
            D3T2    347  JOBS.JOBSTA.SA.13                  1 LINE     80    3 PAGE UM   SMITH               AUG. 02, 1973  02:49.47
0          THIS IS A DSECT COPY SECTION FOR THE JOBS PROGRAM DROP AREA.
           IT IS ALSO ASSEMBLED (CHANGING THE DSECT TO CSECT) SEPARATELY AND USED IN THE
           SYSTEM OBJECT DECK (468).
0          Referenced by comments of: 42/1, 387/1, 413/1, 413/3, 413/5 
00413/14    JOBS                     JOBSTA          OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   SMITH                                      
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/5)                                                
                                                                                    UM                                              
00417      *MSERIES                                               # (SEE COMPS 306/6 AND 306/7)                                     
                                                                                    UM                                              
00418      *HBT                                      S            # (OBSOLETED BY *...*)                                            
            D2T1    183                                                             UM                                              
00419       LOVOC SUBR                               S            # (OBSOLETE)                                                      
                                                                                    UM                                              
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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             S0622 D3MISC FSNAME=M175                                     15 
            D3T2    362  FORTRAN_LIBRARY.USER'S_GUI.WF.14   1 LINE    104    4 DISK UM   HARDING             MAR. 15, 1973  18:04.21
0          THIS IS COMPUTING CENTER MEMO M175 -- "MTS FORTRAN USER'S GUIDE"
00422/15    FORTRAN LIBRARY          CALLING SEQ     WF             S0622 D3MISC FSNAME=M210                                     23 
            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/15)                                               
                                                                                    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                                        
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                        
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/9 AND 502/10)                                     
                                                                                    UM                                              
00440       CATEQU                                                # (SEE COMP 482/28)                                               
                                                                                    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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
0          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    S0027 DISTRB FSNAME=FMTTOTEXT360                                
            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=NEWM4.V2                      8  
            D3T3      1  MTS_VOLUME_2.MASTER.WT.1           1 SEQ     132  176 PAGE UM   SALISBURY           AUG. 01, 1973  18:07.49
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=PRINT4.V2                     9  
            D3T3      2  MTS_VOLUME_2.PRINT.PT.2            1 SEQ     132  971 PAGE UM   SALISBURY           AUG. 01, 1973  18:12.26
0          TEXT/360 PRINT FILE.
00444/3     MTS VOLUME 2             TABLE CONTENTS  P   G          S0485 MTSV2 'MTS MANUALS' POSN=TABCONT4.V2                   10 
            D3T3      3  MTS_VOLUME_2.TABLE_CONTENT.P.3     1 SEQ     108    3 PAGE UM   SALISBURY           AUG. 01, 1973  18:14.29
0          TABLE OF CONTENTS WITH ".XX" PAGE NUMBERS ADDED.
00446       TEXT/360 SUBRS                                        # (SEE COMPS 138/21 THRU 138/23)                                  
                                                                                    UM                                              
00447/1     TAPESTAT                 TAPESTAT SUBR   SA  G  TPST    WSG:TAPESTAT(1,999)                                             
            D3T3      4  TAPESTAT.TAPESTAT_SUBR.SA.1        1 LINE     80    5 PAGE UM   WSG                 AUG. 01, 1973  18:14.35
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).
0          Referenced by comments of: 101/1, 101/2 
00447/2     TAPESTAT                 TAPESTAT SUBR   OC  G        # (PART OF 101/2)                                                 
                                                                                    UM   WSG                                        
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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).
           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/8 AND 306/9)                                      
                                                                                    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:
1                                                                                               WED JUL 24/96   18:21:34   Page  115
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0           
               SCARDS              PARAMETERS IF NO PAR= IS GIVEN.  END-OF-FILE STOPS PROGRAM.
               SPRINT              PRINTED OUTPUT
               SERCOM              ERROR COMMENTS
            
           PARAMETERS MUST BE SEPARATED BY BLANKS OR COMMAS AND MUST BE GIVEN IN THE FOLLOWING ORDER:
            
             (1) ANY, ALL OR NONE OR THE FOLLOWING:
                 (A) "V" - VERIFY
                 (B) "T" - TRACE
                 (C) "D" - DUMP
                 IF NONE OF THESE IS GIVEN, ONLY STATISTICS ABOUT THE WHOLE CATALOG OR THE USER CATALOG WILL BE PRINTED.
            
             (2) AT MOST, ONE OF THE FOLLOWING:
                 (A) "C" - THE ENTIRE CATALOG (THE DEFAULT)
                 (B) "U" - A PARTICULAR USER CATALOG
                 (C) "F" - A PARTICULAR FILE
                 IF "U" IS GIVEN, THEN A LEGAL MTS USERID MUST BE THE NEXT PARAMETER, OR "*ALL" IF ALL USER CATALOGS
                 ARE DESIRED.  IF "F" IS GIVEN, THEN AN 'INTERNAL' MTS FILE NAME (USERID AND FILENAME WITHOUT COLON) MUST
                 BE THE NEXT PARAMETER, OR "*ALL" AND A LEGAL MTS USERID IF ALL FILES BELONGING TO A PARTICULAR USER
                 ARE DESIRED.
            
           EXAMPLES:
            
                    $RUN VNTD PAR=T,C
                    $RUN VNTD PAR=V,T,D,U,W045
                    $RUN VNTD PAR=D,F,WO45VNTD
            
           OUTPUT:
            
            VERIFY
            
             (A) VERIFYING THE CATALOG WILL VALIDATE SEGMENT ALLOCATION AS WELL AS ERROR CHECKING RECORD AND SEGMENT HEADERS.
                 PRESENTLY, THE CATALOG CAN ONLY BE VERIFIED WHEN SEGMENTS ARE NOT BEING ALLOCATED OR DEALLOCATED,
                 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)
            
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
0            (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    S0027 DISTRB FSNAME=PLCALL                                      
            D3T3     13  PLCALL..SA.1                       1 LINE     80    5 PAGE UM   ENGLE               JULY 24, 1973  11:51.52
0          SUBROUTINES PLCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL/I PROGRAM TO CALL SUBROUTINES
           WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE.
00452/2     PLCALL                                   OC  G          S0027 DISTRB FSNAME=PLCL                                        
            D3T3     14  PLCALL..O.2                        1 LINE     80    1 PAGE UM   ENGLE               JULY 24, 1973  11:52.05
0          THIS SUBROUTINE IS IN *PL1LIB.
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   SMITH               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/1, 413/3, 413/5, 413/7 
00456      *CONFIG                                   SA           # (OBSOLETE)                                                      
            D2T1    318                                                             UM                                              
00457       TPSBUFFER                                SA           # (OBSOLETE)                                                      
            D2T1    147                                                             UM                                              
00458/1     OLTS                     MONITOR         SA  G  OLTS    S0622 D3MISC FSNAME=OLTS.S                                   54 
            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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
           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             DIST PROGRAM    SA  G  DIST    UBC:DIST.S                                                      
            D3T3     25  DISTRIBUTION.DIST_PROGRAM.SA.1     1 LINE     80   95 PAGE UM   MTA                 AUG. 01, 1973  18:24.51
0          BUILDS DISTRIBUTION TAPE FROM THE DISTRIBUTION DRIVER FILE (461/11).
           MODIFIED VERSION OF *FS (548) WITH ADDITION OF 'DRIVE' COMMAND; SEE THE WRITEUP (461/4).
           CALLS SNIFF SUBROUTINE (548/2) AND FSIZE, AN ENTRY TO GETFINF (482/3).
           THIS PROGRAM WILL NOT RUN IN PREVIOUS VERSIONS OF MTS BECAUSE OF CALLS ON LOCK, GFINFO, FSIZE, ...
           COPIES COPY:DRDSECT (461/2) AND *GFINFODSECT (593).  ASSEMBLE WITH *SYSMAC.
1                                                                                               WED JUL 24/96   18:21:34   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           
           NOTE:  THE DISTRIBUTION PROGRAM IS INTENDED AS A REPLACEMENT FOR *FS, I.E. IT PERFORMS A SUPERSET OF THE
                  FUNCTIONS PERFORMED BY *FS.  AT UM, THE REPLACEMENT HAS NOT YET BEEN MADE BECAUSE OF THE LIMITED
                  EXPERIENCE WITH THE DISTRIBUTION PROGRAM.  HOWEVER, INASMUCH AS THERE ARE NO KNOWN BUGS IN THE
                  DISTRIBUTION PROGRAM, IT WILL PROBABLY BE MOVED INTO *FS SHORTLY.
0          Referenced by comments of: 461/3, 461/11, 548/1, 548/2 
00461/2     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 DISTRIBUTION UTILITIES.
           DEFINES STRUCTURE OF EACH RECORD IN DIST DRIVER FILE (461/11).
0          Referenced by comments of: 461/1, 461/5, 461/9 
00461/3     DISTRIBUTION             DIST PROGRAM    OC  G          UBC:DIST                                                        
            D3T3     27  DISTRIBUTION.DIST_PROGRAM.OC.3     1 LINE     80   20 PAGE UBC  MTA                 AUG. 01, 1973  18:26.09
0          OBJECT FOR DIST PROGRAM (461/1).  REQUIRES SNIFF SUBROUTINE (548/2) OBJECT TO RUN.
00461/4     DISTRIBUTION             DIST 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
0          THIS IS A WRITEUP FOR THE DISTRIBUTION PROGRAM.  HOWEVER, SINCE THE DISTRIBUTION PROGRAM WILL REPLACE *FS,
           THE WRITEUP IS REALLY A COMPLETE *FS WRITEUP, NOT JUST THE CHANGES FOR THE DISTRIBUTION FUNCTIONS.
0          Referenced by comments of: 461/1 
00461/5     DISTRIBUTION             DEDIT           SA  G  DED0    WSG:DEDIT(1,1999)                                               
            D3T3     29  DISTRIBUTION.DEDIT.SA.5            1 LINE     80   24 PAGE UM   WSG                 AUG. 01, 1973  18:26.19
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.
           REQUIRES THE NEW (D3.0) FILE ROUTINES AND MTS SINCE IT USES THE @BKWD I/O MODIFIER.
           ALSO PROVIDES COMMANDS FOR LINE-PRINTING ALL FIELDS AND COMMENTS IN THE DRIVER/COMMENT
           FILE(S) AND PRINTING MAJOR FIELDS AND COMMENTS SORTED BY "PERSON" APPROPRIATE FOR PROOFREADING.
           A WRITEUP FOR THIS PROGRAM IS INCLUDED IN THE PAPER DOCUMENTATION.
           COPIES COPY:DRDSECT (461/2).
0          Referenced by comments of: 461/12 
00461/6     DISTRIBUTION             DEDIT           OC  G          WSG:DEDIT(2000)                                                 
            D3T3     30  DISTRIBUTION.DEDIT.OC.6            1 LINE     80    7 PAGE UM   WSG                 AUG. 01, 1973  18:26.28
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
           COPIES COPY:DRDSECT (461/2).
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             D3 DRIVER FILE  D              MTS:D3DESCR                                                     
            D3T5    255  DISTRIBUTION.D3_DRIVER_FIL.D.11    1 LINE    235  125 PAGE UM   WSG                 AUG. 11, 1973  01:28.30
0          THIS IS THE DRIVER FILE USED FOR MTS DIST 3.0.  IT WAS READ BY THE DIST PROGRAM (461/1) IN
           RESPONSE TO THE "DRIVE D3DESCR" COMMAND CAUSING THE D3 TAPES TO BE GENERATED.  THIS FILE
           IS WHAT TOOK US SO LONG TO GENERATE.
           ***NOTE:  THE OUTPUT TAPE NAMES AND FILE NUMBERS IN THIS FILE ARE FOR THE 1600 BPI DISTRIBUTION TAPES.
                     COMPONENT 461/16 IS THE CORRESPONDING FILE FOR 800 BPI.
0          Referenced by comments of: 461/1, 461/2 
00461/12    DISTRIBUTION             D3 COMM FILE    D              MTS:D3COMM                                                      
            D3T5    256  DISTRIBUTION.D3_COMM_FILE.D.12     1 LINE    124   56 PAGE UM   WSG                 AUG. 11, 1973  01:28.41
0          THIS FILE CONTAINS THE DIST 3.0 COMMENTS (SUCH AS YOU ARE NOW READING) AT NEGATIVE LINE NUMBERS.
           THE DIST EDITOR PROGRAM (461/5) ALLOWS THE COMMENTS TO BE IN THE DRIVER FILE OR IN A SEPARATE
           FILE.  WE USED A SEPARATE FILE FOR DIST 3.0 SINCE THE DRIVER FILE WAS ALREADY QUITE LARGE.  THE
           COMMENTS ARE POINTED TO (BY LINE NUMBER) IN EACH RECORD OF THE DRIVER FILE.
00461/13    DISTRIBUTION             NEW SYSTEMS     WF             MTS:NEWINSTALL                                                  
            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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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             D3 800 DRIVER   D              MTS:D3DESCR.800                                                 
            D3T5    259  DISTRIBUTION.D3_800_DRIVER.D.16    1 LINE    235  125 PAGE UM   WSG                 AUG. 11, 1973  01:29.13
0          THIS IS THE DRIVER FILE FOR 800 BPI OUTPUT TAPES.  IT IS EXACTLY THE SAME AS 461/11 EXCEPT THAT THE OUTPUT
           TAPE NAMES AND FILE NUMBERS CORRESPOND TO THE 800 BPI VERSION OF DISTRIBUTION 3.0.
00462/1     CHECKSUM                                 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), AND COPY:LLMPSEQU (087). 
           NEEDS MACROS IN COPY:MTS.MACROS (344).
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1 
00462/2     CHECKSUM                                 OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00463/1     STANDARD DUMP                            SA  G          S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=STDD                  6  
            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).
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1 
00463/2     STANDARD DUMP                            OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00464/1     PLIMIT                                   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), AND COPY:LLMPSEQU (087). 
           NEEDS MACROS IN COPY:MTS.MACROS (344).
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1 
00464/2     PLIMIT                                   OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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             S0622 D3MISC FSNAME=M203                                     25 
            D3T3     47  APL.USERS'_GUIDE.WF.10             1 LINE     80    6 DISK UM   DWB                 MAR. 16, 1973  16:01.32
0          THIS IS COMPUTING CENTER MEMO M203 -- "MTS APL USERS' GUIDE"
           NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY.
00466/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.
1                                                                                               WED JUL 24/96   18:21:34   Page  122
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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 DUPLEX       OC  G          MTS:SYSOBJ                                                      
            D3T5    260  SYSTEM_OBJECT_DECK.UM_DUPL.OC.1    1 LINE     80  172 PAGE UM   MTA                 AUG. 11, 1973  01:29.38
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, HASP, 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:  BOTH THIS DECK AND THE SIMPLEX DECK (468/2) HAVE 2 SETS OF PATCHES (REP CARDS).  THE FIRST SET (8 CARDS)
                        IS IN CONFIG (046).  THE DISTRIBUTION COMMENTS FOR THE SUPERVISOR COMPONENT (045/1) DESCRIBE THIS SET
                        OF PATCHES WHICH ADJUST THE TABLE VALUES FOR THE PRIVILEDGED JOB MECHANISM.  THE SECOND PATCH IS TO
                        MTS (042) AND MAKES A MINOR PATCH WHICH HAS ALREADY BEEN CHANGED IN THE DISTRIBUTED SOURCE (SEE THE
                        COMMENTS FOR COMPONENT 042/4).
0          Referenced by comments of: 156/1, 413/13, 468/2 
00468/2     SYSTEM OBJECT DECK       SIMPLEX         OC  G          MTS:SIMPLEX.OBJ                                                 
            D3T5    261  SYSTEM_OBJECT_DECK.SIMPLEX.OC.2    1 LINE     80  157 PAGE UM   MTA                 AUG. 11, 1973  01:30.03
0          THIS IS THE SIMPLEX RESIDENT SYSTEM OBJECT DECK WHICH IS THE SAME AS THE DUPLEX DECK (468/1) EXCEPT FOR THE
           FOLLOWING COMPONENTS:
            
           SUPERVISOR    THIS VERSION OF UMMPS (045) HAS BEEN ASSEMBLED WITH THE NOSLT AND SIMPLEX PARAMETERS, I.E.,
                         IT DOES NOT USE THE SLT INSTRUCTION AND ASSUMES A SIMPLEX SYSTEM.  AN ASSEMBLY LISTING FOR
                         THIS VERSION OF UMMPS IS INCLUDED AS COMPONENT 045/6.
           HASP          THIS VERSION OF HASP (387) HAS BEEN ASSEMBLED WITH ZERO RJE STATIONS (INSTEAD OF 21), 10
                         EXECUTION PROCESSORS (INSTEAD OF 25), MAXIMUM JOB QUEUE OF 200 (INSTEAD OF 600), THE
                         UM PARAMETER SET TO NO, AND NOSLT.  AN ASSEMBLY LISTING IS INCLUDED AS COMPONENT 387/9.
           HASPLING      THIS VERSION OF THE HASPLING (388) HAS BEEN ASSEMBLED WITH THE UM AND RJE PARAMETERS
                         SET TO NO.  THE HASPLING IS SMALL ENOUGH SO THAT NO LISTING IS DISTRIBUTED.
           CONFIG        THIS VERSION OF THE CONFIG PROGRAM (046) IS ASSEMBLED TO COPY THE SIMPLEX PSA (162/2)
                         INSTEAD OF THE DUPLEX PSA (162/1).  THE DISTRIBUTED LISTING (046/4) IS FOR THE DUPLEX
                         VERSION IN 468/1, NOT THE SIMPLEX VERSION IN THIS OBJECT DECK.
           GSFS          THIS VERSION OF GETSPACE/FREESPAC (041) IS ASSEMBLED WITH THE NOSLT OPTION.  NO LISTING
                         IS DISTRIBUTED.
           JOBS          THIS VERSION OF TSRTN (413/1) IS ASSEMBLED WITH THE SLT OPTION OFF.  NO LISTING IS DISTRIBUTED.
                         ***NOTE:  THE DISTRIBUTED SOURCE, NOT OBJECT, HAS A BUG WHICH WAS DISCOVERED TOO LATE FOR
1                                                                                               WED JUL 24/96   18:21:34   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                                  CORRECTION OF THE SOURCE.  THE COMPARE INSTRUCTION AT LINE 2298 (IN 413/1) SHOULD
                                   BE CHANGED TO A COMPARE LOGICAL.  THIS AFFECTS ONLY THE NON-SLT VERSION, BUT THE
                                   NON-SLT OBJECT INCLUDED IN THIS SIMPLEX OBJECT DECK DOES INCLUDE THE CORRECTION;
                                   ONLY THE DISTRIBUTED SOURCE IS WRONG.
            
           NOTE THAT THE TABLES DECK IN THIS COMPONENT IS FOR THE UM SYSTEM, I.E., IT IS THE SAME AS THE TABLES
           DECK IN THE DUPLEX OBJECT (468/1).  THIS SIMPLEX OBJECT IS ALSO ON THE DISTRIBUTED RESTORE TAPE.
           THE DECKGEN PROGRAM (004/5), WHICH IS ALSO ON THE RESTORE TAPE, IS A STAND-ALONE PROGRAM WHICH IS TO
           BE USED DURING SYSTEM INSTALLATION TO GENERATE A TABLES OBJECT DECK IN RESPONSE TO INPUT
           FROM THE CONSOLE WHICH DESCRIBES THE LOCAL CONFIGURATION.  IT WILL ALSO COPY THE SIMPLEX OBJECT DECK
           FROM THE RESTORE TAPE TO A SCRATCH TAPE AND INSERT THE NEW TABLES DECK AS IT DOES SO.  THIS SCRATCH
           TAPE CAN THEN BE IPLED TWICE:  FIRST TO LOAD THE SYSTEM OBJECT DECK AND PRODUCE A MAP, AND SECOND
           TO WRITE THE DISK IPL RECORD FOR FUTURE LOADING OF THE SYSTEM FROM DISK.
            
           THIS DECK HAS THE SAME 2 SETS OF PATCHES AS THE DUPLEX DECK (468/1).
0          Referenced by comments of: 45/6, 387/9, 468/1 
00468/3     SYSTEM OBJECT DECK       WRITEUP         WF             MTS: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                                              
00470       PCB DSECT                COPY:PCBDSECT   SA  G          S0699 D3TAPE POSN=PCBDSECT                                   4  
            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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
              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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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/39 AND 482/40)                                    
                                                                                    UM                                              
00475       OS SIMULATION PACKAGE                    S            # (OBSOLETE)                                                      
            D2T1    284                                                             UM                                              
00476       DBS:MSG                                  S            # (OBSOLETE)                                                      
            D2T1    441                                                             UM                                              
00477       SIMPLEX OBJECT DECK                      OC           # (SEE COMP 468/2)                                                
            D2T1    442                                                             UM   MTA                                        
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.
0          Referenced by comments of: 461/1 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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/7 
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                                                    
            D3T3     71  FILE_SYSTEM.TRAK.SA.7              1 LINE     80   17 PAGE UM   PIRKOLA             AUG. 01, 1973  18:54.32
0          BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE
           PHYSICAL RECORDS.  COPIES COPY:FCBEQU (482/27) AND COPY:DSKDSCT (482/42).
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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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).
00482/16    FILE SYSTEM              READL           OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
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)
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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).
00482/24    FILE SYSTEM              CATALOG SUBR    OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
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.
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                                                      
            D3T3     84  FILE_SYSTEM.ICEQU.SA.29            1 LINE     80    3 PAGE UM   PIRKOLA             AUG. 01, 1973  18:56.26
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                                                 
            D3T3     85  FILE_SYSTEM.TABLRTN.SA.30          1 LINE     80   45 PAGE UM   PIRKOLA             AUG. 01, 1973  18:56.27
0          SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE.
           COPIES COPY:ICEQU (482/29).
0          Referenced by comments of: 482/10, 534/7 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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          S0622 D3MISC FSNAME=CATALOG.INTERNALS                        39 
            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          S0622 D3MISC FSNAME=LINEFILES.INTERNALS                      40 
            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          S0622 D3MISC FSNAME=SEQFILES.INTERNALS                       41 
            D3T3     89  FILE_SYSTEM.SEQ_FILE_DESC.WF.36    1 LINE    119    3 PAGE UM   PIRKOLA             JULY 24, 1973  22:13.06
0          THIS IS A WRITEUP ON THE "INTERNAL STRUCTURE OF SEQUENTIAL FILES IN MTS"
00482/37    FILE SYSTEM              SHAR INTERNALS  WF  G          S0622 D3MISC FSNAME=SHARING.INTERNALS                        6  
            D3T3     90  FILE_SYSTEM.SHAR_INTERNALS.WF.37   1 LINE    114    3 DISK UM   PIRKOLA             FEB. 09, 1973  16:50.32
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          S0622 D3MISC FSNAME=M229                                     28 
            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.
1                                                                                               WED JUL 24/96   18:21:34   Page  130
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 67/1, 67/2, 67/4, 104/95, 482/17, 482/19, 482/23, 502/13, 597/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 
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).
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),
1                                                                                               WED JUL 24/96   18:21:34   Page  131
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0             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
               (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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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 
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             S0622 D3MISC FSNAME=M161                                     12 
            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             *ACCRESTORE                                                     
            D3T3    107  ACCRESTORE..O.                     1 LINE    255    3 PAGE UM   ENGLE               AUG. 03, 1973  21:25.47
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00485/1    *PLC                      UPDATE          UU  G          W061:PLCUPDATE                                                  
            D3T3    108  PLC.UPDATE.UU.1                    1 LINE     73   10 PAGE UM   HENRIKSEN           AUG. 03, 1973  21:25.53
0          UPDATE TO CONVERT CORNELL'S OS/360 PLC (VERSION 6.5) COMPILER/OPERATING SYSTEM INTERFACE TO RUN IN MTS.
           NOTE:  PLC CANNOT BE DISTRIBUTED; YOU MUST OBTAIN IT DIRECTLY FROM CORNELL UNIVERSITY.
00485/2    *PLC                      INSTALLATION    P              W061:PLC.INSTALL                                                
            D3T3    109  PLC.INSTALLATION.P.2               1 LINE     81    1 PAGE UM   HENRIKSEN           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             W061:PLCUSE.S                                                   
            D3T3    110  PLC.USER'S_GUIDE.WF.3              1 LINE     92   45 PAGE UM   HENRIKSEN           AUG. 03, 1973  21:26.02
0          THIS IS COMPUTING CENTER MEMO M178 -- "USER'S GUIDE TO PL/C - THE CORNELL COMPILER FOR PL/I"
           NOTE:  THE FINAL EDITING OF THIS MAY NOT BE QUITE COMPLETE.
00486/1    *HBQ                                      SA  G  HBQ0    W092:HBQ.S                                                      
            D3T3    111  HBQ..SA.1                          1 LINE     80   18 PAGE UM   PIRKOLA             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   PIRKOLA             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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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)                                                   
            D3T3    117  TAPETEST..SA.1                     1 LINE     80   10 PAGE UM   WSG                 AUG. 03, 1973  21:26.41
0          THE TAPETEST (TT) PROGRAM WAS DESIGNED TO CHECK OUT THE MTS MAG TAPE ROUTINES (135).  HOWEVER, IT SEEMS
           TO BE A RATHER MORE GENERALLY USEFUL UTILITY FOR MANIPULATING TAPES.  IT FIELDS ATTENTION INTERRUPTS AND
           DSR ERRORS.  TT WILL ACCEPT THE FOLLOWING COMMANDS (ON GUSER):
            
               ATTACH FDNAME       ATTACH A FILE OR DEVICE (CALL "GETFD").
               CONTROL STRING      CALL "CONTROL" WITH STRING AS THE ARGUMENT.
               MTS STRING          CALL "MTSCMD" (WITH STRING) OR "MTS" (IF STRING OMITTED).
               READ N              READ THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA.
               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 "STA" WHICH REQUIRES 2 LETTERS.)
            
           EXAMPLE:      $MOUNT POOL 9TP *T*
                         $RUN TT(1000)
                         A *T*
                         C DSN TEST1
                         C FMT FB(8000,80)
                         W TESTFILE
                         C WTM
                         C DSN TWO
                         W
                         HELLO
                         $ENDFILE
                         C REW
                         SNS
                         MTS $RUN *TAPEDUMP 0=*T* SPRINT=*PRINT*
00489/2     TAPETEST                                 OC  G          WSG:TT(1000)                                                    
            D3T3    118  TAPETEST..OC.2                     1 LINE     80    3 PAGE UM   WSG                 AUG. 03, 1973  21:26.46
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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      *SCRAMBLE                                 OC  G          *SCRAMBLE                                                       
            D3T3    122  SCRAMBLE..OC.                      1 LINE    175    3 PAGE UM   ?                   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 A LINE 10000 IN THE OBJECT FILE AND IS SCRAMBLED.  ANYBODY KNOW WHAT KEY WAS USED
           TO SCRAMBLE IT?  MAYBE FRANK WESTERVELT AT WSU MIGHT.
            
           THERE IS A "$CONTINUE WITH *DUMMY*" RECORD AT THE END OF THIS FILE.
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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 IS *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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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             S0622 D3MISC FSNAME=M240                                     36 
            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          S0622 D3MISC FSNAME=SNAP.UPD                                 57 
            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.
1                                                                                               WED JUL 24/96   18:21:34   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           
           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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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.
00499/1    *PROJECTACCOUNT           OBJECT          OE             *PROJECTACCOUNT                                                 
            D3T3    179  PROJECTACCOUNT.OBJECT.OE.1         1 LINE    255    7 PAGE UM   ENGLE               AUG. 03, 1973  21:42.16
0          MTS PROJECT ACCOUNTING ALLOCATION PROGRAM.  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.
           FILE IS LINKEDIT OF ACCMXMAT (104/21), THE MAIN PROGRAM, PLUS ACCIO (104/19), DIRECTRY (104/46),
           FILENAME (104/44), ACUSPRNT (104/29), GETFILE (104/90), AND FASTIOCK (104/84).
00499/2    *PROJECTACCOUNT           WRITEUP         WT             S0027 DISTRB FSNAME=PRJACCWRITUP                                
            D3T3    180  PROJECTACCOUNT.WRITEUP.WT.2        1 LINE     80   13 DISK UM   ENGLE               APR. 24, 1973  16:46.10
0          TEXT/360 MASTER FOR USER-LEVEL DOCUMENTATION.
00500/1     BILLING                  BILLRFT         SP  G  BLRF    S0027 DISTRB FSNAME=BILLRFT                                     
            D3T3    181  BILLING.BILLRFT.SP.1               1 LINE     80   16 PAGE UM   ENGLE               OCT. 13, 1972  12:12.00
0          PROGRAM TO REFORMAT STATISTICS RECORDS, HAND BILLING RECORDS, OS/360 BILLING RECORDS, AND MERIT NETWORK
           RECORDS FOR BILLING SORT.
00500/2     BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=BLRF                                        
            D3T3    182  BILLING.BILLRFT.OC.2               1 LINE     80    8 DISK UM   ENGLE               OCT. 13, 1972  12:13.24
0          REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00500/3     BILLING                  BILLRFT         OC  G          S0027 DISTRB FSNAME=NETBLRF                                     
            D3T3    183  BILLING.BILLRFT.OC.3               1 LINE     80    5 DISK UM   ENGLE               OCT. 13, 1972  12:16.55
0          REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/4     BILLING                  BILLING         SP  G  BILL    S0027 DISTRB FSNAME=BILLING                                     
            D3T3    184  BILLING.BILLING.SP.4               1 LINE     80   19 PAGE UM   ENGLE               JAN. 05, 1973  16:03.34
0          PROGRAM TO DO MAIN PART OF BILLING AFTER SORT.
00500/5     BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=BILL                                        
            D3T3    185  BILLING.BILLING.OC.5               1 LINE     80    9 DISK UM   ENGLE               JAN. 05, 1973  16:04.31
0          REGULAR BILLING (COMPILER WITH %NET='';).
00500/6     BILLING                  BILLING         OC  G          S0027 DISTRB FSNAME=NETBILL                                     
            D3T3    186  BILLING.BILLING.OC.6               1 LINE     80    4 DISK UM   ENGLE               JAN. 05, 1973  16:06.09
0          NETWORK BILLING (COMPILED WITH %NET='YES';).
00500/7     BILLING                  BILPRNT         SP  G  BLPR    S0027 DISTRB FSNAME=BILPRNT                                     
            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.
00500/8     BILLING                  BILPRNT         OC  G          S0027 DISTRB FSNAME=BLPR                                        
            D3T3    188  BILLING.BILPRNT.OC.8               1 LINE     80    7 DISK UM   ENGLE               JAN. 05, 1973  16:09.29
00500/9     BILLING                  BILLWRITEUP     WF  S          S0027 DISTRB FSNAME=BILLWRITEUP                                 
            D3T3    189  BILLING.BILLWRITEUP.WF.9           1 LINE     80    4 DISK UM   ENGLE               JAN. 05, 1973  16:26.02
0          WRITEUP FOR RUNNING BILLING.
00500/10    BILLING                  BILLWRITEUP     PF  S          S0027 DISTRB FSNAME=BLWRITEUPOUT                                
            D3T3    190  BILLING.BILLWRITEUP.PF.10          1 LINE    133    7 DISK UM   ENGLE               JAN. 05, 1973  16:26.21
00500/11    BILLING                  BILLSOURCE      C              S0027 DISTRB FSNAME=BILLSOURCE                                  
            D3T3    191  BILLING.BILLSOURCE.C.11            1 LINE    122    1 DISK UM   ENGLE               JAN. 05, 1973  16:28.08
0          COMMAND FILE FOR RUNNING BILLING.
00500/12    BILLING                  BILLTABLES      D              S0027 DISTRB FSNAME=BILLTABLES                                  
            D3T3    192  BILLING.BILLTABLES.D.12            1 LINE     80    3 DISK UM   ENGLE               OCT. 13, 1972  13:10.24
0          MACHINE READABLE TABLE OF EFFECTIVE DATES AND RATES FOR BILLING.  READ DURING EXECUTION OF BILLRFT AND BILLING.
00500/13    BILLING                  DIVISION        D              S0027 DISTRB FSNAME=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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00500/14    BILLING                  COVER           D              S0027 DISTRB FSNAME=COVER                                       
            D3T3    194  BILLING.COVER.D.14                 1 LINE     66    1 DISK UM   ENGLE               OCT. 13, 1972  13:10.48
0          MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS.  READ BY BILLING.
00500/15    BILLING                  RESTART         C              S0027 DISTRB FSNAME=RESTART                                     
            D3T3    195  BILLING.RESTART.C.15               1 LINE     43    1 DISK UM   ENGLE               JAN. 05, 1973  16:43.34
0          COMMAND FILE TO RESTART IN THE MIDDLE OF THE BILLING PROCESS AFTER SOME PARTS HAVE BEEN COMPLETED.
00500/16    BILLING                  BILLLIB         OL             S0027 DISTRB FSNAME=BILLLIB                                     
            D3T3    196  BILLING.BILLLIB.OL.16              1 LINE     80    2 DISK UM   ENGLE               JAN. 05, 1973  16:45.53
0          LIBRARY FOR BILLING PROGRAMS.  ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD.
00500/17    BILLING                  FLUSH           SP  G  FLSH    S0622 D3MISC FSNAME=FLUSH                                    33 
            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/18    BILLING                  BLPRJFL         SA  G  BPFL    S0027 DISTRB FSNAME=BLPRJFL                                     
            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.
           COPIES ACCPROJFMT (104/3).
00500/19    BILLING                  BLPRJFL         OC  G          S0027 DISTRB FSNAME=BPFL                                        
            D3T3    199  BILLING.BLPRJFL.OC.19              1 LINE     80    1 DISK UM   ENGLE               JAN. 05, 1973  18:07.08
00500/20    BILLING                  PNLIST          SP  G  PNLS    S0027 DISTRB FSNAME=PNLIST                                      
            D3T3    200  BILLING.PNLIST.SP.20               1 LINE     80    4 PAGE UM   ENGLE               JAN. 05, 1973  18:07.49
0          PROGRAM TO PRODUCE LISTINGS OF PROJECT NUMBERS IN *PROJECT SORTED BY UNIVERSITY ACCOUNT NUMBER, INTER-DEPARTMENTAL
           REQUISITION NUMBER, AND UNIT CODE.
00500/21    BILLING                  PNLIST          OC  G          S0027 DISTRB FSNAME=PNLS                                        
            D3T3    201  BILLING.PNLIST.OC.21               1 LINE     80    3 DISK UM   ENGLE               JAN. 05, 1973  18:07.57
00500/22    BILLING                  PNLSEXTR        SA  G  PEXT    S0027 DISTRB FSNAME=PNLSEXTR                                    
            D3T3    202  BILLING.PNLSEXTR.SA.22             1 LINE     80    3 PAGE UM   ENGLE               JAN. 05, 1973  18:10.24
0          SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST.  CALLED BY PRJLIST WHICH IS CALLED BY PNLIST.
           COPIES ACCPROJFMT (104/3).
00500/23    BILLING                  PNLSEXTR        OC  G          S0027 DISTRB FSNAME=PEXT                                        
            D3T3    203  BILLING.PNLSEXTR.OC.23             1 LINE     80    1 DISK UM   ENGLE               JAN. 05, 1973  18:10.43
00500/24    BILLING                  BLRECPR         SP  G  BLRP    S0027 DISTRB FSNAME=BLRECPR                                     
            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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00500/25    BILLING                  BLRECPR         OC  G          S0027 DISTRB FSNAME=BLRP                                        
            D3T3    205  BILLING.BLRECPR.OC.25              1 LINE     80    2 DISK UM   ENGLE               JAN. 09, 1973  13:51.51
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)                                         
            D3T3    208  DEADFILES.SCANFILES.SA.1           1 LINE     80    8 PAGE UM   BERSTIS             AUG. 03, 1973  22:01.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                                                                                               WED JUL 24/96   18:21:34   Page  144
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0            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.
0          Referenced by comments of: 92/1 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00502/2     DEADFILES                SCANFILES       OC  G          RSTR:DEADSCANFILE(1,998)                                        
            D3T3    209  DEADFILES.SCANFILES.OC.2           1 LINE    255    5 PAGE UM   BERSTIS             AUG. 03, 1973  22:01.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)                                         
            D3T3    212  DEADFILES.PRINTSAVE.SA.5           1 LINE     80    3 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.07
0          PROGRAM TO PRINT A SORTED LIST OF FILES ON A SAVE TAPE SEPARATED BY USERID.
           ASSEMBLE WITH *SYSMAC.
00502/6     DEADFILES                PRINTSAVE       OC  G          RSTR:DEADPRNTSAVE(1,998)                                        
            D3T3    213  DEADFILES.PRINTSAVE.OC.6           1 LINE     80    1 PAGE UM   BERSTIS             AUG. 03, 1973  22:02.12
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     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                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00502/12    DEADFILES                SAVEFILES       OC             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     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             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    S0027 DISTRB FSNAME=DEDFLFIX                                    
            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          S0027 DISTRB FSNAME=DFFX                                        
            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.
00504/004   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.
00504/005   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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00505/12    ALGOL                    OSALG30         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         19 
            D3T3    238  ALGOL.OSALG30.SA.12                1 SEQ      80   62 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.03
00505/13    ALGOL                    OSALG40         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         20 
            D3T3    239  ALGOL.OSALG40.SA.13                1 SEQ      80   17 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.10
00505/14    ALGOL                    OSALG50         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         21 
            D3T3    240  ALGOL.OSALG50.SA.14                1 SEQ      80   96 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.22
00505/15    ALGOL                    OSALG51         SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         22 
            D3T3    241  ALGOL.OSALG51.SA.15                1 SEQ      80   24 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.32
00505/16    ALGOL                    OSALG51M        SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         23 
            D3T3    242  ALGOL.OSALG51M.SA.16               1 SEQ      80    9 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.36
00505/17    ALGOL                    OSMAC           SA  G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         24 
            D3T3    243  ALGOL.OSMAC.SA.17                  1 SEQ      80  103 PAGE UNE  SALISBURY           AUG. 03, 1973  22:22.49
0          SPECIAL OS INTERFACE MACRO LIBRARY.  MUST BE USED TO ASSEMBLE COMPS 505/7
           THROUGH 505/16.
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00505/23    ALGOL                    *ALGOLLIB       OL  G          *ALGOLLIB                                                       
            D3T3    249  ALGOL.*ALGOLLIB.OL.23              1 SEQ    3963   11 PAGE UM   SALISBURY           AUG. 03, 1973  22:24.45
0          COMPLETE LIBRARY OBJECT FILE.  CONSISTS OF OBJECT OF COMPS 505/20 AND 505/21
           (THE OS/360 LIBRARY SOURCE) PLUS THE LIBRARY/MTS INTERFACE MODULE (505/22)
           AND AN " ENT            LIBENTRY" LOADER CARD TO SPECIFY THE LIBRARY ENTRY POINT.
00505/24    ALGOL                    KDFSORC         S   G          S0504 'UBC -> UM #6' FMT=FB(3200,80)                         10 
            D3T3    250  ALGOL.KDFSORC.S.24                 1 SEQ      80   45 PAGE UNE  SALISBURY           AUG. 03, 1973  22:25.02
0          SOURCE FOR THE "KDF9" I/O LIBRARY.  MAY BE USED BY USERS WHO ARE ACCUSTOMED TO
           RUNNING ALGOL PROGRAMS ON THE KDF9 COMPUTER.  THE SOURCE IS ENTIRELY IN ALGOL
           EXCEPT FOR "FORMAT" WHICH IS ASSEMBLE LANGUAGE.
00505/25    ALGOL                    *KDFLIB         OL  G          *KDFLIB                                                         
            D3T3    251  ALGOL.*KDFLIB.OL.25                1 SEQ     348   56 PAGE UM   SALISBURY           AUG. 03, 1973  22:25.11
0          KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB.  NOTE:  THIS VERSION OF KDFLIB USES SHORT
           FLOATING POINT ARITHMETIC.  PAR=LONG,PROCEDURE SHOULD BE USED TO RECOMPILE THE LIBRARY
           IF LONG FLOATING POINT ARITHMETIC IS DESIRED.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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    S0622 D3MISC FSNAME=PL1.LLXU.S                               55 
            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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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   FRONCZAK            AUG. 01, 1973  21:58.56
0          MTS COMMANDS TO CREATE AND RESTORE FILES NEEDED TO GENERATE BASIC.  ASSUMES THAT BASIC (BY ITSELF) IS
           ON A *FS TAPE AND RESTORES FILES FROM IT.
00508/2    *BASIC                    STRT2           C              W070:BASIC.STRT2                                                
            D3T4     20  BASIC.STRT2.C.2                    1 LINE    126    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.00
0          MTS COMMANDS TO ASSEMBLE AND LINK-EDIT BASIC.  ASSUMES THE ASSEMBLER IS ON A REGULAR BLOCKED TAPE.
00508/3    *BASIC                    BIFDSECT        SA  G          W070:BIFDSECT                                                   
            D3T4     21  BASIC.BIFDSECT.SA.3                1 LINE     66    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.05
0          THE DSECT USED BY "BUILT-IN" FUNCTIONS.
00508/4    *BASIC                    CLIDSECT        SA  G          W070:CLIDSECT                                                   
            D3T4     22  BASIC.CLIDSECT.SA.4                1 LINE     72    3 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.10
0          THE DSECT USED BY COMMAND AND CMNDINIT.
00508/5    *BASIC                    DS6A            SA  G          W070:DS6A                                                       
            D3T4     23  BASIC.DS6A.SA.5                    1 LINE     72    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.15
0          THE DSECT USED BY LOADER.
00508/6    *BASIC                    DSECTCOMM       SA  G          W070:DSECTCOMM                                                  
            D3T4     24  BASIC.DSECTCOMM.SA.6               1 LINE     70    3 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.20
0          THE BASIC COMMON DSECT.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00508/7    *BASIC                    DSECT9A         SA  G          W070:DSECT9A                                                    
            D3T4     25  BASIC.DSECT9A.SA.7                 1 LINE     71    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.24
0          THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH.
00508/8    *BASIC                    FHDRDSECT       SA  G          W070:FHDRDSECT                                                  
            D3T4     26  BASIC.FHDRDSECT.SA.8               1 LINE     72    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.29
0          THE "FILE HEADER" DSECT.
00508/9    *BASIC                    GLOBALSYM       SA  G          W070:GLOBALSYM                                                  
            D3T4     27  BASIC.GLOBALSYM.SA.9               1 LINE     62    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.34
0          CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE
           INSTALLATION NAME.
00508/10   *BASIC                    INTFACMAC       SM  G          W070:INTFACMAC                                                  
            D3T4     28  BASIC.INTFACMAC.SM.10              1 LINE     58    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.39
0          BASIC MACRO LIBRARY.
00508/11   *BASIC                    LDICDSCT        SA  G          W070:LDICDSCT                                                   
            D3T4     29  BASIC.LDICDSCT.SA.11               1 LINE     72    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.45
0          THE "LOADING DIRECTORY" DSECT.
00508/12   *BASIC                    MAPDSECT        SA  G          W070:MAPDSECT                                                   
            D3T4     30  BASIC.MAPDSECT.SA.12               1 LINE     68    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.51
0          THE "MAP ENTRY DESCRIPTION" DSECT.
00508/13   *BASIC                    OPDEFEQUS       SA  G          W070:OPDEFEQUS                                                  
            D3T4     31  BASIC.OPDEFEQUS.SA.13              1 LINE     70    1 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.54
0          "EQUS" USED IN OPERATOR DEFINITIONS.
00508/14   *BASIC                    OPDEFMACROS     SM  G          W070:OPDEFMACROS                                                
            D3T4     32  BASIC.OPDEFMACROS.SM.14            1 LINE     72    3 PAGE UM   FRONCZAK            AUG. 01, 1973  21:59.59
0          MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS.
00508/15   *BASIC                    PDSECT          SA  G          W070:PDSECT                                                     
            D3T4     33  BASIC.PDSECT.SA.15                 1 LINE     72    3 PAGE UM   FRONCZAK            AUG. 01, 1973  22:00.06
0          THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----).
00508/16   *BASIC                    SYMTABDEF       SA  G          W070:SYMTABDEF                                                  
            D3T4     34  BASIC.SYMTABDEF.SA.16              1 LINE     33    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:00.10
0          THE SYMBOL TABLE DSECT (UNDOCUMENTED).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00508/17   *BASIC                    SYMTABSECT      SA  G          W070:SYMTABSECT                                                 
            D3T4     35  BASIC.SYMTABSECT.SA.17             1 LINE     70    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:00.15
0          THE SYMBOL TABLE DSECT (DOCUMENTED).
00508/18   *BASIC                    WSLAYOUT        SA  G          W070:WSLAYOUT                                                   
            D3T4     36  BASIC.WSLAYOUT.SA.18               1 LINE     68    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:00.19
0          THE "WORKING STORAGE LAYOUT" DSECT.
00508/19   *BASIC                    CLI             SA  G          S0358 BSCSEF POSN=*BASIC.CLI                                 1  
            D3T4     37  BASIC.CLI.SA.19                    1 SEQ      80  118 PAGE UM   FRONCZAK            AUG. 01, 1973  22:01.38
00508/20   *BASIC                    LEX             SA  G          S0358 BSCSEF POSN=*BASIC.LEX                                 2  
            D3T4     38  BASIC.LEX.SA.20                    1 SEQ      80  111 PAGE UM   FRONCZAK            AUG. 01, 1973  22:02.21
00508/21   *BASIC                    CMP             SA  G          S0358 BSCSEF POSN=*BASIC.CMP                                 3  
            D3T4     39  BASIC.CMP.SA.21                    1 SEQ      80   99 PAGE UM   FRONCZAK            AUG. 01, 1973  22:03.05
00508/22   *BASIC                    CPS             SA  G          S0358 BSCSEF POSN=*BASIC.CPS                                 4  
            D3T4     40  BASIC.CPS.SA.22                    1 SEQ      80   79 PAGE UM   FRONCZAK            AUG. 01, 1973  22:03.48
00508/23   *BASIC                    NUM             SA  G          S0358 BSCSEF POSN=*BASIC.NUM                                 5  
            D3T4     41  BASIC.NUM.SA.23                    1 SEQ      80   60 PAGE UM   FRONCZAK            AUG. 01, 1973  22:04.43
00508/24   *BASIC                    VFL             SA  G          S0358 BSCSEF POSN=*BASIC.VFL                                 6  
            D3T4     42  BASIC.VFL.SA.24                    1 SEQ      80   25 PAGE UM   FRONCZAK            AUG. 01, 1973  22:05.36
00508/25   *BASIC                    BIO             SA  G          S0358 BSCSEF POSN=*BASIC.BIO                                 7  
            D3T4     43  BASIC.BIO.SA.25                    1 SEQ      80   47 PAGE UM   FRONCZAK            AUG. 01, 1973  22:06.10
00508/26   *BASIC                    INF             SA  G          S0358 BSCSEF POSN=*BASIC.INF                                 8  
            D3T4     44  BASIC.INF.SA.26                    1 SEQ      80   42 PAGE UM   FRONCZAK            AUG. 01, 1973  22:06.44
00508/27   *BASIC                    BSI             SA  G          S0358 BSCSEF POSN=*BASIC.BSI                                 9  
            D3T4     45  BASIC.BSI.SA.27                    1 SEQ      80    5 PAGE UM   FRONCZAK            AUG. 01, 1973  22:06.57
00508/28   *BASIC                    LIBSYM          SA  G          W070:LIBSYM                                                     
            D3T4     46  BASIC.LIBSYM.SA.28                 1 LINE     66    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:07.05
0          PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER.
00508/29   *BASIC                    SPECIALRATES    SA  G          W070:SPECIALRATES                                               
            D3T4     47  BASIC.SPECIALRATES.SA.29           1 LINE     70    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:07.07
0          THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR:  %PRINT BALANCE AND STATISTICS PRINTING.
00508/30   *BASIC                    OBJECT          OC  G          SEG2:BASIC                                                      
            D3T4     48  BASIC.OBJECT.OC.30                 1 LINE     80  106 PAGE UM   FRONCZAK            AUG. 01, 1973  22:07.15
0          OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY THE SEG 2 LOADER.
0          Referenced by comments of: 508/31 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00508/31   *BASIC                    *BASIC          OC  G          *BASIC                                                          
            D3T4     49  BASIC.*BASIC.OC.31                 1 SEQ      24    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:08.11
0          CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SEGMENT 2 (SHARED)
           BASIC (508/30).
00508/32   *BASIC                    *BASICHELPC     M              *BASICHELPC                                                     
            D3T4     50  BASIC.*BASICHELPC.M.32             1 LINE     66    1 PAGE UM   FRONCZAK            AUG. 01, 1973  22:08.16
0          BASIC HELP COMMAND FILE.
00508/33   *BASIC                    INSTALLATION    PT             W070:T360SYSGENPRT                                              
            D3T4     51  BASIC.INSTALLATION.PT.33           1 SEQ     132    4 PAGE UM   FRONCZAK            AUG. 01, 1973  22:08.51
0          NOTES ON THE INSTALLATION OF BASIC.  COPY TO A TN PRINTER @MCC.
00508/34   *BASIC                    *DEAL           D   G          W054:BSC.S*DEAL                                                 
            D3T4     52  BASIC.*DEAL.D.34                   1 SEQ    4032    2 PAGE UM   FRONCZAK            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.
00508/35   *BASIC                    *PLOT           D   G          W054:BSC.S*PLOT                                                 
            D3T4     53  BASIC.*PLOT.D.35                   1 SEQ    4032    2 PAGE UM   FRONCZAK            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   FRONCZAK            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   FRONCZAK            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   FRONCZAK            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   FRONCZAK            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   FRONCZAK            AUG. 01, 1973  22:09.30
00509/1     PERMIT                   CMMD/SUBR       SA  G          DWB:PF.PERSUB                                                   
            D3T4     59  PERMIT.CMMD/SUBR.SA.1              1 LINE     72   13 PAGE UM   DWB                 AUG. 01, 1973  22:09.37
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), AND COPY:CATEQU (482/28).
           HAS ENTRY POINTS PERCMD (FOR $PERMIT CLS CALL) AND PERMIT (NORMAL SUBROUTINE CALL).
           CALLS THE FILE ROUTINES (GETCINF, SDMOD, AND SDWRITE) DIRECTLY.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00509/2     PERMIT                   CMMD/SUBR       OC  G          *CLSPERMIT                                                      
            D3T4     60  PERMIT.CMMD/SUBR.OC.2              1 LINE     80    6 PAGE UM   DWB                 AUG. 01, 1973  22:09.59
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.
00511/1    *OBJLIST                                  SA  G          W062:OBJLIST                                                    
            D3T4     64  OBJLIST..SA.1                      1 LINE     68    6 PAGE UM   TIFFANY             AUG. 01, 1973  22:12.27
0          PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT.
00511/2    *OBJLIST                                  OC  G          *OBJLIST                                                        
            D3T4     65  OBJLIST..O.2                       1 LINE     80    3 PAGE UM   TIFFANY             AUG. 01, 1973  22:12.40
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.
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?
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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          S0658 W051SV FSNAME=11MANUAL.SOU                                
            D3T4     81  11ASR.USER'S_GUIDE.WT.12           1 LINE     79   46 PAGE UM   LUBBERS             JULY 17, 1973  02:23.58
0          THIS IS COMPUTING CENTER MEMO M208 -- "A USER'S GUIDE TO *11ASR AND *LINK11"
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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    S0027 DISTRB FSNAME=GRGJULTM                                    
            D3T4     85  GRGJUL_SUBRS..SA.1                 1 LINE     80    4 PAGE UM   ENGLE               MAY  03, 1973  09:59.47
0          GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC).
0          Referenced by comments of: 143/2, 436/1, 529/1 
00518/2     GRGJUL 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.
00519/1     GRJLDT/GRJLTM SUBRS      GRJLDT          SA  G  GJDT    S0027 DISTRB FSNAME=GRJLDT                                      
            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    S0027 DISTRB FSNAME=GRJLTM                                      
            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    S0027 DISTRB FSNAME=GROSDT                                      
            D3T4     88  GROSDT..SA.1                       1 LINE     80    1 PAGE UM   ENGLE               OCT. 03, 1972  11:52.15
0          GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE.
00520/2     GROSDT                                   OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/1     JLGRDT/JLGRTM            JLGRDT          SA  G  JGDT    S0027 DISTRB FSNAME=JLGRDT                                      
            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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00521/2     JLGRDT/JLGRTM            JLGRDT          OC  G        # *LIBRARY (SEE COMP 524)                                         
                                                                                    UM   ENGLE                                      
00521/3     JLGRDT/JLGRTM            JLGRTM          SA  G  JGTM    S0027 DISTRB FSNAME=JLGRTM                                      
            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    S0027 DISTRB FSNAME=JULGRGTM                                    
            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    S0027 DISTRB FSNAME=OSGRDT                                      
            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                                                        
            D3T4     93  LIBRARY..OL.1                      1 SEQ   13704   33 PAGE UM   SALISBURY           AUG. 01, 1973  22:30.15
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                                                   
            D3T4     94  LIBRARY.CREATELIB.C.2              1 LINE     75    1 PAGE UM   SALISBURY           AUG. 01, 1973  22:30.19
0          MTS COMMAND FILE TO CONSTRUCT A NEW LIBRARY FILE; IT COPIES THE INDIVIDUAL MODULES INTO A FILE,
           LINK EDITS THE FILE, AND THEN RUN *GENLIB.
           NOTE:  THIS COMMAND FILE HAS MANY "$CONTINUE WITH" LINES FOR PRIVATE FILES (NOT DISTRIBUTED) WHICH
                  CONSTITUTE THE COMPONENTS OF *LIBRARY.
0          Referenced by comments of: 524/3 
00524/3    *LIBRARY                  ENTERLIB        C              LIB:ENTERLIB                                                    
            D3T4     95  LIBRARY.ENTERLIB.C.3               1 LINE     37    1 PAGE UM   SALISBURY           AUG. 01, 1973  22:30.24
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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:SOURCE.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:EFL.DOC                                                    
            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:SOURCE.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/50)                                           
                                                                                    UM   HARDING                                    
00526/3     SIOC                     WRITEUP         WF             W060:SIOC.DOC                                                   
            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"
00527/1     TRACER                                   SA  G  TRAC    W060:SOURCE.TRACE                                               
            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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00527/2     TRACER                                   OC  G        # (PART OF COMP 525/50)                                           
                                                                                    UM   HARDING                                    
00527/3     TRACER                   WRITEUP         WF             W060:TRACER.DOC                                                 
            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.
           FROM UNE, BUT MODIFIED AT UM TO CHANGE CONTROL CARDS AND DEFAULT ESTIMATES.
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.XMON.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.
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/4)                                                
                                                                                    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             S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80)                69 
            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.
00528/8     ALGOLW                   *AWXCMPA2       OE             *AWXCMPA2                                                       
            D3T4    157  ALGOLW.*AWXCMPA2.OE.8              1 SEQ    7801   13 PAGE UNE  BLINN               AUG. 01, 1973  22:41.33
00528/9     ALGOLW                   *AWXCMPB2       S3             S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80)                70 
            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/10    ALGOLW                   *AWXCMPB2       OE             *AWXCMPB2                                                       
            D3T4    159  ALGOLW.*AWXCMPB2.OE.10             1 SEQ    3776   14 PAGE UNE  BLINN               AUG. 01, 1973  22:42.04
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00528/11    ALGOLW                   *AWXLIBR2       S3             S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80)                71 
            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/12    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/13    ALGOLW                   *AWXLIBR2       OE             *AWXLIBR2                                                       
            D3T4    162  ALGOLW.*AWXLIBR2.OE.13             1 SEQ    4032    8 PAGE UNE  BLINN               AUG. 01, 1973  22:42.31
00528/14    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/15    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/16    ALGOLW                   *ALGOLWLIB      OE             *ALGOLWLIB                                                      
            D3T4    165  ALGOLW.*ALGOLWLIB.OE.16            1 SEQ    2048    6 PAGE UNE  BLINN               AUG. 01, 1973  22:43.26
00528/17    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"
00529/1     FILESTATUS COMMAND                       SA             DWB:FSTATCMD3(1)                                                
            D3T4    167  FILESTATUS_COMMAND..SA.1           1 LINE     75   23 PAGE UM   DWB                 AUG. 01, 1973  22:43.32
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                                                  
            D3T4    168  FILESTATUS_COMMAND..OC.2           1 LINE     80    9 PAGE UM   DWB                 AUG. 01, 1973  22:43.45
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.S(1)                                                
            D3T4    171  COMMAND_STATISTICS.CMDSTAT.SA.1    1 LINE     80    5 PAGE UM   DWB                 AUG. 01, 1973  22:44.00
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. 
00531/2     COMMAND STATISTICS       CMDSTAT         OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
00531/3     COMMAND STATISTICS       *CMD            C   G          *CMD                                                            
            D3T4    172  COMMAND_STATISTICS.*CMD.C.3        1 LINE     42    1 PAGE UM   DWB                 AUG. 01, 1973  22:44.04
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
           "*LAS" (154) PROCEDURE INVOKES "MTS *CMD" AUTOMATICALLY WHENEVER THE TERMINAL LINES ARE STARTED UP.
           THESE STATISTICS FILL UP A 256 PAGE FILE ABOUT ONCE PER DAY UNDER BUSY CONDITIONS AT UM.
           TWO SUCH FILES ARE USED ALTERNATELY.  THE TAPES ONTO WHICH THEY ARE DUMPED FILL UP IN ABOUT A MONTH.
00531/4     COMMAND STATISTICS       CMDPIKUP        SA  G  CMDP    DWB:CMDPIKUP.S(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 "DWB: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          DWB: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          DWB: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                                                            
            D3T4    176  COMMAND_STATISTICS.*DWB.C.7        1 LINE     63    1 PAGE UM   DWB                 AUG. 01, 1973  22:44.27
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
1                                                                                               WED JUL 24/96   18:21:34   Page  166
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          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 "DWB: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          DWB: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.
           PROGRAMS TO ACTUALLY ANALYZE (RATHER THAN PRINT) ALL OF THIS DATA HAVE YET TO BE WRITTEN.
           COPIES COPY:CMDAREADSECT (531/12) AND CALLS JMSGTDR (437).
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                                               
            D3T4    181  COMMAND_STATISTICS.CMDAREA.SA.12   1 LINE     80    2 PAGE UM   DWB                 AUG. 01, 1973  22:44.56
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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             S0622 D3MISC FSNAME=FRISK.WRITEUP                            32 
            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 003/1)                                                 
                                                                                    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).
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)                                              
            D3T4    190  TMTS.LOADMTS.SA.5                  1 LINE     80   15 PAGE UM   MTA                 AUG. 01, 1973  22:52.43
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
1                                                                                               WED JUL 24/96   18:21:34   Page  168
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0                              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 280000 TO 2FF000.
            
           THE PROGRAM PROMPTS FOR THE NAME OF A FILE TO LOAD FROM, FOR EXAMPLE MTS:TESTMTS (534/7).
0          Referenced by comments of: 534/1, 534/7 
00534/6     TMTS                     LOADMTS         OC  G          MTS:LOADMTS(1000)                                               
            D3T4    191  TMTS.LOADMTS.OC.6                  1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  22:52.48
00534/7     TMTS                     TESTMTS         OC  G          MTS:TESTMTS                                                     
            D3T4    192  TMTS.TESTMTS.OC.7                  1 LINE     79    1 PAGE UM   MTA                 AUG. 01, 1973  22:52.53
0          LOADER CARDS AND "$CONTINUE WITH TSYSOBJ(1000)" WHICH SERVE AS INPUT TO LOADMTS (534/5).  THE FILE TSYSOBJ
           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, AND RSF),
             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/5 
00534/8     TMTS                     TMTSLIB         OL  O          MTS:TMTSLIB                                                     
            D3T4    193  TMTS.TMTSLIB.OL.8                  1 SEQ   13704   51 PAGE UM   MTA                 AUG. 01, 1973  22:52.58
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                                                    
            D3T4    194  CLS_INTERFACE.PLAN_COPY_SE.SA.1    1 LINE     80    3 PAGE UM   DWB                 AUG. 01, 1973  22:53.03
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 
00535/2     CLS INTERFACE            T/V DSECT       SA  G  CLSV    COPY:CLSVECTOR                                                  
            D3T4    195  CLS_INTERFACE.T/V_DSECT.SA.2       1 LINE     80    3 PAGE UM   DWB                 AUG. 01, 1973  22:53.08
0          DSECT COPY SECTION FOR TRANSFER VECTOR PASSED BY MTS TO COMMAND LANGUAGE SUBSYSTEMS.
0          Referenced by comments of: 101/1, 447/1, 509/1, 529/1, 535/4, 553/1, 585/1, 600/1, 600/4, 600/6, 600/8, 600/10 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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 
00535/4     CLS INTERFACE            CLS DRIVER PGM  SA  O  DRIV    W044:MTSSOU                                                     
            D3T4    197  CLS_INTERFACE.CLS_DRIVER_P.SA.4    1 LINE     80   37 PAGE UM   SALISBURY           AUG. 01, 1973  22:53.19
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                                                        
            D3T4    198  CLS_INTERFACE.CLS_DRIVER_P.OC.5    1 LINE     80    7 PAGE UM   SALISBURY           AUG. 01, 1973  22:53.25
00536/1    *BRAILLE                                  SA  S          S0622 D3MISC FSNAME=BRAILLE.S                                56 
            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  COBL    W071:GOCOBOL                                                    
            D3T4    201  COBOL.*COBOLU.SA.1                 1 LINE     80    3 PAGE UM   FRANK               AUG. 01, 1973  22:53.57
0          THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM.
           EACH INSTALLATION MAY WANT TO CHANGE THIS BECAUSE OF THE FILE NAMES USED.
00538/2     COBOL                    *COBOLU         OC  G          W071:COBOLU                                                     
            D3T4    202  COBOL.*COBOLU.OC.2                 1 LINE     80    1 PAGE UM   FRANK               AUG. 01, 1973  22:54.01
0          COMPONENTS 538/2 THROUGH 538/14 ARE THE UNMODIFIED OS/360 OBJECT FOR THE COBOL COMPILER (RELEASE 21.6).
00538/3     COBOL                    *IKFCBL00       OE  O          W071:IKFCBL00                                                   
            D3T4    203  COBOL.*IKFCBL00.OE.3               1 SEQ    1024    4 PAGE UM   FRANK               AUG. 01, 1973  22:54.06
00538/4     COBOL                    *IKFCBL01       OE  O          W071:IKFCBL01                                                   
            D3T4    204  COBOL.*IKFCBL01.OE.4               1 SEQ    6144    5 PAGE UM   FRANK               AUG. 01, 1973  22:54.11
0          OBJECT HAS REP CARD TO CHANGE DEFAULT PAR FIELD.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00538/5     COBOL                    *IKFCBL10       OE  O          W071:IKFCBL10                                                   
            D3T4    205  COBOL.*IKFCBL10.OE.5               1 SEQ    1024   12 PAGE UM   FRANK               AUG. 01, 1973  22:54.15
00538/6     COBOL                    *IKFCBL1B       OE  O          W071:IKFCBL1B                                                   
            D3T4    206  COBOL.*IKFCBL1B.OE.6               1 SEQ    1024    7 PAGE UM   FRANK               AUG. 01, 1973  22:54.22
00538/7     COBOL                    *IKFCBL20       OE  O          W071:IKFCBL20                                                   
            D3T4    207  COBOL.*IKFCBL20.OE.7               1 SEQ    1024   13 PAGE UM   FRANK               AUG. 01, 1973  22:54.25
00538/8     COBOL                    *IKFCBL30       OE  O          W071:IKFCBL30                                                   
            D3T4    208  COBOL.*IKFCBL30.OE.8               1 SEQ    1024    4 PAGE UM   FRANK               AUG. 01, 1973  22:54.31
00538/9     COBOL                    *IKFCBL40       OE  O          W071:IKFCBL40                                                   
            D3T4    209  COBOL.*IKFCBL40.OE.9               1 SEQ    1024   11 PAGE UM   FRANK               AUG. 01, 1973  22:54.35
00538/10    COBOL                    *IKFCBL50       OE  O          W071:IKFCBL50                                                   
            D3T4    210  COBOL.*IKFCBL50.OE.10              1 SEQ    1024    9 PAGE UM   FRANK               AUG. 01, 1973  22:54.40
00538/11    COBOL                    *IKFCBL51       OE  O          W071:IKFCBL51                                                   
            D3T4    211  COBOL.*IKFCBL51.OE.11              1 SEQ    1024   10 PAGE UM   FRANK               AUG. 01, 1973  22:54.45
00538/12    COBOL                    *IKFCBL60       OE  O          W071:IKFCBL60                                                   
            D3T4    212  COBOL.*IKFCBL60.OE.12              1 SEQ    1024    8 PAGE UM   FRANK               AUG. 01, 1973  22:54.50
00538/13    COBOL                    *IKFCBL6A       OE  O          W071:IKFCBL6A                                                   
            D3T4    213  COBOL.*IKFCBL6A.OE.13              1 SEQ    1024    1 PAGE UM   FRANK               AUG. 01, 1973  22:54.55
00538/14    COBOL                    *IKFCBL70       OE  O          W071:IKFCBL70                                                   
            D3T4    214  COBOL.*IKFCBL70.OE.14              1 SEQ    1024   13 PAGE UM   FRANK               AUG. 01, 1973  22:55.00
00538/15    COBOL                    *COBLIB         OL  O          W071:COBLIB                                                     
            D3T4    215  COBOL.*COBLIB.OL.15                1 SEQ    1024    7 PAGE UM   FRANK               AUG. 01, 1973  22:55.06
0          OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY.
00538/16    COBOL                    USER'S GUIDE    WF             S0622 D3MISC FSNAME=M209                                     22 
            D3T4    216  COBOL.USER'S_GUIDE.WF.16           1 LINE    112    5 DISK UM   FRANK               MAR. 15, 1973  18:36.23
0          THIS IS COMPUTING CENTER MEMO M209 -- "MTS COBOL USER'S GUIDE"
00539/1     TIMNTRP                                  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), AND COPY:LLMPSEQU (087).
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1 
00539/2     TIMNTRP                                  OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   HAMILTON                                   
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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   WAGMAN              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   WAGMAN              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   WAGMAN              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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
00545/1     FAKEOS                   INSTALLATION    P              S0622 D3MISC FSNAME=FAKEOS.INSTALL                           60 
            D3T4    228  FAKEOS.INSTALLATION.P.1            1 LINE     73    7 PAGE UQV  BENET               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              S0622 D3MISC FSNAME=FAKEOS.WRITEUP                           61 
            D3T4    229  FAKEOS.WRITEUP.P.2                 1 LINE     77    6 PAGE UQV  BENET               AUG. 01, 1973  02:25.59
0          WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS.  COPY TO A TN PRINTER.
00545/3     FAKEOS                   FAKEOSPFX.S     SA             S0591 UQVD01 FSNAME=FAKEOSPFX.S                                 
            D3T4    230  FAKEOS.FAKEOSPFX.S.SA.3            1 LINE     73    8 DISK UQV  BENET               MAR. 16, 1972  13:48.44
00545/4     FAKEOS                   FAKEOSB.S       SA             S0591 UQVD01 FSNAME=FAKEOSB.S                                   
            D3T4    231  FAKEOS.FAKEOSB.S.SA.4              1 LINE     77   35 DISK UQV  BENET               MAR. 16, 1972  13:49.18
00545/5     FAKEOS                   FAKEOS.GBLS     SA             S0591 UQVD01 FSNAME=FAKEOS.GBLS                                 
            D3T4    232  FAKEOS.FAKEOS.GBLS.SA.5            1 LINE     55    1 DISK UQV  BENET               MAR. 16, 1972  13:51.08
00545/6     FAKEOS                   CVT             SA             S0591 UQVD01 FSNAME=CVT                                         
            D3T4    233  FAKEOS.CVT.SA.6                    1 LINE     57    1 DISK UQV  BENET               MAR. 16, 1972  13:51.19
00545/7     FAKEOS                   TCB             SA             S0591 UQVD01 FSNAME=TCB                                         
            D3T4    234  FAKEOS.TCB.SA.7                    1 LINE     62    1 DISK UQV  BENET               MAR. 16, 1972  13:51.27
00545/8     FAKEOS                   COMDSECT        SA             S0591 UQVD01 FSNAME=COMDSECT                                    
            D3T4    235  FAKEOS.COMDSECT.SA.8               1 LINE     71    2 DISK UQV  BENET               MAR. 16, 1972  13:51.38
00545/9     FAKEOS                   COMMON          SA             S0591 UQVD01 FSNAME=COMMON                                      
            D3T4    236  FAKEOS.COMMON.SA.9                 1 LINE     69    1 DISK UQV  BENET               MAR. 16, 1972  13:51.48
00545/10    FAKEOS                   DSDSECT         SA             S0591 UQVD01 FSNAME=DSDSECT                                     
            D3T4    237  FAKEOS.DSDSECT.SA.10               1 LINE     72    1 DISK UQV  BENET               MAR. 16, 1972  13:51.59
00545/11    FAKEOS                   FAKEOS.MSG      M              S0591 UQVD01 FSNAME=FAKEOS.MSG                                  
            D3T4    238  FAKEOS.FAKEOS.MSG.M.11             1 LINE     62    1 DISK UQV  BENET               MAR. 16, 1972  13:52.11
00545/12    FAKEOS                   VOSDDEF.S       SA             S0591 UQVD01 FSNAME=VOSDDEF.S                                   
            D3T4    239  FAKEOS.VOSDDEF.S.SA.12             1 LINE     80    6 DISK UQV  BENET               MAR. 16, 1972  13:52.29
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00545/13    FAKEOS                   SAMEQU          SA             S0591 UQVD01 FSNAME=SAMEQU                                      
            D3T4    240  FAKEOS.SAMEQU.SA.13                1 LINE     80    3 DISK UQV  BENET               MAR. 16, 1972  13:52.46
00545/14    FAKEOS                   FAKEEXCP.S      SA             S0591 UQVD01 FSNAME=FAKEEXCP.S                                  
            D3T4    241  FAKEOS.FAKEEXCP.S.SA.14            1 LINE     69    4 DISK UQV  BENET               MAR. 16, 1972  13:53.05
00545/15    FAKEOS                   EXCPXT          SA             S0591 UQVD01 FSNAME=EXCPXT                                      
            D3T4    242  FAKEOS.EXCPXT.SA.15                1 LINE     59    1 DISK UQV  BENET               MAR. 16, 1972  13:53.19
00545/16    FAKEOS                   TRACER.S        SA             S0591 UQVD01 FSNAME=TRACER.S                                    
            D3T4    243  FAKEOS.TRACER.S.SA.16              1 LINE     65    2 DISK UQV  BENET               FEB. 16, 1972  13:11.55
00545/17    FAKEOS                   *IGG019AA       OE             S0591 UQVD01 FSNAME=*IGG019AA                                   
            D3T4    244  FAKEOS.*IGG019AA.OE.17             1 SEQ     168    1 DISK UQV  BENET               FEB. 16, 1972  13:11.59
00545/18    FAKEOS                   *IGG019AB       OE             S0591 UQVD01 FSNAME=*IGG019AB                                   
            D3T4    245  FAKEOS.*IGG019AB.OE.18             1 SEQ     176    1 DISK UQV  BENET               FEB. 16, 1972  13:12.03
00545/19    FAKEOS                   *IGG019AC       OE             S0591 UQVD01 FSNAME=*IGG019AC                                   
            D3T4    246  FAKEOS.*IGG019AC.OE.19             1 SEQ     280    1 DISK UQV  BENET               FEB. 16, 1972  13:12.07
00545/20    FAKEOS                   *IGG019AD       OE             S0591 UQVD01 FSNAME=*IGG019AD                                   
            D3T4    247  FAKEOS.*IGG019AD.OE.20             1 SEQ     248    1 DISK UQV  BENET               FEB. 16, 1972  13:12.11
00545/21    FAKEOS                   *IGG019AE       OE             S0591 UQVD01 FSNAME=*IGG019AE                                   
            D3T4    248  FAKEOS.*IGG019AE.OE.21             1 SEQ     400    1 DISK UQV  BENET               FEB. 16, 1972  13:12.15
00545/22    FAKEOS                   *IGG019AI       OE             S0591 UQVD01 FSNAME=*IGG019AI                                   
            D3T4    249  FAKEOS.*IGG019AI.OE.22             1 SEQ     144    1 DISK UQV  BENET               FEB. 16, 1972  13:12.18
00545/23    FAKEOS                   *IGG019AJ       OE             S0591 UQVD01 FSNAME=*IGG019AJ                                   
            D3T4    250  FAKEOS.*IGG019AJ.OE.23             1 SEQ     312    1 DISK UQV  BENET               FEB. 16, 1972  13:12.22
00545/24    FAKEOS                   *IGG019AK       OE             S0591 UQVD01 FSNAME=*IGG019AK                                   
            D3T4    251  FAKEOS.*IGG019AK.OE.24             1 SEQ     240    1 DISK UQV  BENET               FEB. 16, 1972  13:12.27
00545/25    FAKEOS                   *IGG019BN       OE             S0591 UQVD01 FSNAME=*IGG019BN                                   
            D3T4    252  FAKEOS.*IGG019BN.OE.25             1 SEQ    1952    1 DISK UQV  BENET               FEB. 16, 1972  13:12.30
00545/26    FAKEOS                   *IGG019BO       OE             S0591 UQVD01 FSNAME=*IGG019BO                                   
            D3T4    253  FAKEOS.*IGG019BO.OE.26             1 SEQ     608    1 DISK UQV  BENET               FEB. 16, 1972  13:12.34
00545/27    FAKEOS                   *IGG019FB       OE             S0591 UQVD01 FSNAME=*IGG019FB                                   
            D3T4    254  FAKEOS.*IGG019FB.OE.27             1 SEQ     248    1 DISK UQV  BENET               FEB. 16, 1972  13:12.37
00545/28    FAKEOS                   *IGG019FD       OE             S0591 UQVD01 FSNAME=*IGG019FD                                   
            D3T4    255  FAKEOS.*IGG019FD.OE.28             1 SEQ     448    1 DISK UQV  BENET               FEB. 16, 1972  13:12.41
00545/29    FAKEOS                   *IGG019FF       OE             S0591 UQVD01 FSNAME=*IGG019FF                                   
            D3T4    256  FAKEOS.*IGG019FF.OE.29             1 SEQ     414    1 DISK UQV  BENET               FEB. 16, 1972  13:12.46
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00545/30    FAKEOS                   *IGG019FJ       OE             S0591 UQVD01 FSNAME=*IGG019FJ                                   
            D3T4    257  FAKEOS.*IGG019FJ.OE.30             1 SEQ     296    1 DISK UQV  BENET               FEB. 16, 1972  13:12.49
00545/31    FAKEOS                   *IGG019FG       OE             S0591 UQVD01 FSNAME=*IGG019FG                                   
            D3T4    258  FAKEOS.*IGG019FG.OE.31             1 SEQ     504    1 DISK UQV  BENET               FEB. 16, 1972  13:12.53
00545/32    FAKEOS                   *IGG019FL       OE             S0591 UQVD01 FSNAME=*IGG019FL                                   
            D3T4    259  FAKEOS.*IGG019FL.OE.32             1 SEQ     560    1 DISK UQV  BENET               FEB. 16, 1972  13:12.56
00545/33    FAKEOS                   *IGG019AL       OE             S0591 UQVD01 FSNAME=*IGG019AL                                   
            D3T4    260  FAKEOS.*IGG019AL.OE.33             1 SEQ     344    1 DISK UQV  BENET               FEB. 16, 1972  13:13.00
00545/34    FAKEOS                   *IECQBFG1       OE             S0591 UQVD01 FSNAME=*IECQBFG1                                   
            D3T4    261  FAKEOS.*IECQBFG1.OE.34             1 SEQ     232    1 DISK UQV  BENET               FEB. 16, 1972  13:13.05
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).
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/1    *FS                       MAIN PGM        SA  G  FS00    MTS:FS.S                                                        
            D3T4    265  FS.MAIN_PGM.SA.1                   1 LINE     80   47 PAGE UM   MTA                 AUG. 01, 1973  23:04.56
0          FILE SAVE AND RESTORE PROGRAM.  SAVES DISK FILES ON MAG TAPE, MAINTAINING A DIRECTORY AND
           PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION.
           NOTE:  THIS PROGRAM AND THE DISTRIBUTION PROGRAM (461/1) BOTH REFERENCE THE NEW FSIZE SUBROUTINE.  HOWEVER,
                  FSIZE IS NOT CALLED BY *FS.
           COPIES *GFINFODSECT (593).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 461/1, 549/1, 550/1 
00548/2    *FS                       SNIFF SUBR      SA  G  SNIF    MTS:FS.SNIFF(1,999)                                             
            D3T4    266  FS.SNIFF_SUBR.SA.2                 1 LINE     80    4 PAGE UM   MTA                 AUG. 01, 1973  23:05.05
0          SUBROUTINE TO DETERMINE THE AMOUNT OF SPACE REQUIRED BY A FILE.  THIS IS A NEW VERSION OF SNIFF WHICH CALLS
           THE MTS SUBROUTINE 'GFINFO' TO DO THE BULK OF THE WORK.  SNIFF RETURNS THE FILE SIZE IN PAGES.
           THIS SUBROUTINE IS ALSO USED BY THE DISTRIBUTION PROGRAM (461/1).
           COPIES *GFINFODSECT (593).  ASSEMBLE WITH *SYSMAC.
0          Referenced by comments of: 461/1, 461/3 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00548/3    *FS                       OBJECT          OE  G          *FS                                                             
            D3T4    267  FS.OBJECT.OE.3                     1 SEQ   11252    5 PAGE UM   MTA                 AUG. 01, 1973  23:05.09
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    W034:SOURCE.FTN                                                 
            D3T4    272  FTN..SA.1                          1 LINE     80   60 PAGE UM   JWS                 AUG. 01, 1973  23:05.43
0          MTS INTERFACE WITH THE FORTRAN G COMPILER.
            
           SOURCE CONTAINS A USER ID WHICH IS USED AS THE PREFIX FOR THE FILE WHICH CONTAINS THE 'TEST' VERSION OF
           THE COMPILER (THE ONE WHICH PRODUCES THE SYM RECORDS).  THIS ID IS AT LOCATION X'0007F6' IN THE FIRST CSECT
           (ESID 01).  INSTALLATIONS WILL WANT TO REP THIS TO THE DESIRED USER ID, OR REP THE ENTIRE NAME TO USE
           A LIBRARY FILE.  THE ASSEMBLED VERSION USES USER ID 'W019'.
00551/2    *FTN                                      OC  G          *FTN                                                            
            D3T4    273  FTN..OC.2                          1 SEQ      80    5 PAGE UM   JWS                 AUG. 01, 1973  23:05.52
00551/3    *FTN                      *FTN WRITEUP    WF             S0622 D3MISC FSNAME=M232                                     30 
            D3T4    274  FTN.*FTN_WRITEUP.WF.3              1 LINE    136   10 DISK UM   JWS                 MAR. 16, 1973  16:14.18
0          THIS IS COMPUTING CENTER MEMO M232 -- "*FTN"
00551/4    *FTN                      FTN ADDENDUM 1  WF             S0622 D3MISC FSNAME=M164                                     13 
            D3T4    275  FTN.FTN_ADDENDUM_1.WF.4            1 LINE    140    2 DISK UM   JWS                 MAR. 15, 1973  18:04.07
0          THIS IS COMPUTING CENTER MEMO M164 -- "*FTN ADDENDUM I"
00551/5    *FTN                      FTNH VERSION    SA     FTN0    W034:NEWFTN.S                                                   
            D3T4    276  FTN.FTNH_VERSION.SA.5              1 LINE     80   64 PAGE UM   JWS                 AUG. 01, 1973  23:06.26
0          THIS IS A NEW VERSION OF *FTN WHICH INCLUDES SUPPORT FOR INTERFACING TO A NEW VERSION OF FORTRAN H (298/6).
           THIS VERSION IS CURRENTLY UNDER PRELIMINARY USER TESTING AT UM.
           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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00551/6    *FTN                      FTNH VERSION    OC             W034:NEWFTN                                                     
            D3T4    277  FTN.FTNH_VERSION.OC.6              1 LINE     80    6 PAGE UM   JWS                 AUG. 01, 1973  23:06.36
00551/7    *FTN                      FTNH WRITEUP    WF             S0622 D3MISC FSNAME=M245                                     45 
            D3T4    278  FTN.FTNH_WRITEUP.WF.7              1 LINE    107    3 PAGE UM   JWS                 JULY 27, 1973  21:35.25
0          THIS IS COMPUTING CENTER MEMO M245 -- "USING FORTRAN H WITH *FTN"
00552/1     GASP                     *GASP           S   G  GASP    W020:GASPDISTR                                                  
            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.
            
           CONTAINS ASM SOURCE AT LINES (-100,-87) AND FTN SOURCE AT LINES (1,1308).
           CONTAINS "$CONTINUE WITH *GASPCOM" THROUGHOUT.
00552/2     GASP                     *GASP           OL  G          NEW: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                                                        
            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          S0622 D3MISC FSNAME=M215                                     24 
            D3T4    282  GASP.WRITEUP.WF.4                  1 LINE     84    6 DISK UM   FLANIGAN            MAR. 15, 1973  18:36.49
0          THIS IS COMPUTING CENTER MEMO M215 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM"
00552/5     GASP                     INTERNAL DESC   P   G          W020:GASPINFO                                                   
            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                                                  
            D3T4    286  TABLMOD.TABLMOD_JOB.SA.1           1 LINE     80   14 PAGE UM   PIRKOLA             AUG. 01, 1973  23:07.45
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:
            
1                                                                                               WED JUL 24/96   18:21:34   Page  177
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0            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").
            
             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).
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                                                    
            D3T4    287  TABLMOD.MTS_PROGRAM.SA.3           1 LINE     80   14 PAGE UM   PIRKOLA             AUG. 01, 1973  23:07.51
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:OTABLMOD                                                   
            D3T4    288  TABLMOD.MTS_PROGRAM.OC.4           1 LINE     80    3 PAGE UM   PIRKOLA             AUG. 01, 1973  23:07.55
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                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
0            1. LOCATION OF MESSAGES
                  A) MTS "FMSG" MESSAGES ARE FOUND STARTING AT THE LINE NUMBER WHICH IS THE FMSG NUMBER.
                  B) MTS "CMSG" MESSAGES START AT LINE 2000.
                  C) OTHER MESSAGES START AT LINE 3000.
            
             2. FORMAT OF LINES
                  A GROUP OF CONSECTIVE LINES IN THE FILE HAS INFORMATION ABOUT A GIVEN MESSAGE.  THE FIRST LINE SPECIFIES
                  THE MESSAGE TEXT, WHILE SUCCEEDING LINES IN THE GROUP INDENTIFY THE DESTINATION, SOURCE, AND MEANING.
                  EACH LINE IS IDENTIFIED BY ITS LEADING CHARACTERS, WHICH MUST BE UPPERCASE; THE TEXT OF MESSAGES MAY
                  BE OF MIXED CASE.  THE FOLLOWING LINE FORMATS ARE SPECIFIED:
            
                  A) MESSAGE LINE
                     BEGINS WITH "## "; MESSAGE, STARTING IN COLUMN 4, IN UPPER CASE EXCEPT FOR GENERIC QUANTITIES WHICH
                     ARE LOWER CASE.
            
                  B) DESTINATION OF MESSAGE
                     BEGINS WITH " DEST OPER" IF OPERATOR MESSAGE; NO DESTINATION LINE IF NORMAL MESSAGE.
            
                  C) LOCATION OF MESSAGE TEXT
                     BEGINS WITH " ERROR "; ERROR NAME STARTING IN COLUMN 8, SUCH AS FSMG 21.
            
                  D) WHO ISSUED MESSAGE (MAY BE SEVERAL OF THESE IN A GROUP)
                     BEGINS WITH " SOURCE "; INFORMATION STARTING IN COLUMN 9:  COMPONENT NAME, COMPONENT NUMBER,
                     LABEL, SEQUENCE ID.  FOR EXAMPLE,  SOURCE MTS,42,LINNBR,M0212800
            
                  E) EXPLANATION OF MESSAGE (AS MANY LINES AS NEEDED)
                     BEGINS WITH 3 BLANKS; TEXT STARTING IN COLUMN 4.
            
           SO FAR, THE MESSAGE MANUAL INCLUDES MESSAGES FROM MTS, MTS SUBR, PERMIT COMMAND, AND FILESTATUS COMMAND.
           SINCE THIS MESSAGE MANUAL WAS DEVELOPED SPECIFICALLY FOR THIS MTS DISTRIBUTION, IT IS CURRENTLY SOMEWHAT
           THIN AND OFTEN NON-EXISTENT.
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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).
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             S0622 D3MISC FSNAME=M182                                     17 
            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                                                       
            D3T4    301  VIRTUAL_67.MAIN_PGM.SA.1           1 LINE     80  107 PAGE UM   MTA                 AUG. 01, 1973  23:09.44
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.
1                                                                                               WED JUL 24/96   18:21:34   Page  180
0  Num   R       Component Name         Subname     Type G Seq ID S                          Location                           File
+_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____
          6250 tape-file             FS Name              Ver FType LRECL Size DevT Inst  Person   Local Per      Date        Time
+         ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________
          1600 tape-file       Disk Name
+         ______________ _____________________
0          Referenced by comments of: 558/1 
00558/4     VIRTUAL 67               OBJECT          OC  G          MTA:V67                                                         
            D3T4    304  VIRTUAL_67.OBJECT.OC.4             1 LINE     80   14 PAGE UM   MTA                 AUG. 01, 1973  23:10.11
00558/5     VIRTUAL 67               WRITEUP         P              MTA:V67WRUP                                                     
            D3T4    305  VIRTUAL_67.WRITEUP.P.5             1 LINE     75    9 PAGE UM   MTA                 AUG. 01, 1973  23:10.16
0          WRITEUP TO BE COPIED TO A TN PRINTER.
00559/1     SEGMENT 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.
           INVOKED BY INIT:INITCMD (097/2) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN
           SEG2:S2FILES (559/4).
00559/2     SEGMENT 2 LOADER         LOADER PGM      SA  G  S2L     MTS:S2L.S                                                       
            D3T4    307  SEGMENT_2_LOADER.LOADER_PG.SA.2    1 LINE     80   16 PAGE UM   DWB                 AUG. 01, 1973  23:10.26
0          PROGRAM TO LOAD THINGS INTO UNUSED AREA AT THE END OF SHARED VM (SEGMENT 2).
           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.
00559/3     SEGMENT 2 LOADER         LOADER PGM      OC  G          SEG2:S2L                                                        
            D3T4    308  SEGMENT_2_LOADER.LOADER_PG.OC.3    1 SEQ      80    3 PAGE UM   DWB                 AUG. 01, 1973  23:10.32
00559/4     SEGMENT 2 LOADER         FILE LIST       D   G          SEG2:S2FILES                                                    
            D3T4    309  SEGMENT_2_LOADER.FILE_LIST.D.4     1 LINE     15    1 PAGE UM   DWB                 AUG. 01, 1973  23:10.38
0          A LIST OF FILES FROM WHICH THE SEGMENT 2 LOADER WILL LOAD PROGRAMS AT IPL, I.E. WHEN INVOKED BY *S2L. 
0          Referenced by comments of: 559/1 
00559/5     SEGMENT 2 LOADER         WRITEUP         WF             SEG2:S2LWRUP                                                    
            D3T4    310  SEGMENT_2_LOADER.WRITEUP.WF.5      1 LINE     84    1 PAGE UM   DWB                 AUG. 01, 1973  23:10.44
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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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    W045:CHAR(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    W045:CHAR(61,130)                                               
            D3T4    317  CHAR_MANIP_SUBRS.LCOMC/COM.SA.2    1 LINE     80    3 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.23
00563/3     CHAR MANIP SUBRS         DTB             SA     DTB0    W045:CHAR(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    W045:CHAR(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    W045:CHAR(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    W045:CHAR(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    W045:CHAR(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    W045:CHAR(511,544)                                              
            D3T4    323  CHAR_MANIP_SUBRS.SETC.SA.8         1 LINE     80    1 PAGE UBC  GOODRICH            AUG. 01, 1973  23:11.58
00563/9     CHAR MANIP SUBRS         TRNC            SA     TRNC    W045:CHAR(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    W045:CHAR(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    W045:CHAR(1173)                                                 
            D3T4    326  CHAR_MANIP_SUBRS.EQUC.SA.11        1 LINE     80    1 PAGE UBC  GOODRICH            AUG. 01, 1973  23:12.13
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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    W061:TT.S                                                       
            D3T4    385  TIMETALLY..SA.1                    1 LINE     80   31 PAGE UM   HENRIKSEN           AUG. 01, 1973  23:21.08
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                                                      
            D3T4    386  TIMETALLY..OE.2                    1 SEQ    6532    6 PAGE UM   HENRIKSEN           AUG. 01, 1973  23:21.18
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
            
           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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                        
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00571/12    APL LIBRARY WS           STP3            D              APL:002STP3                                                     
            D3T4    401  APL_LIBRARY_WS.STP3.D.12           1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:22.55
00571/13    APL LIBRARY WS           STP4            D              APL:002STP4                                                     
            D3T4    402  APL_LIBRARY_WS.STP4.D.13           1 LINE    255    9 PAGE UM   DWB                 AUG. 01, 1973  23:23.01
00571/14    APL LIBRARY WS           STP5            D              APL:002STP5                                                     
            D3T4    403  APL_LIBRARY_WS.STP5.D.14           1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:23.06
00571/15    APL LIBRARY WS           STP6            D              APL:002STP6                                                     
            D3T4    404  APL_LIBRARY_WS.STP6.D.15           1 LINE    255    5 PAGE UM   DWB                 AUG. 01, 1973  23:23.11
00571/16    APL LIBRARY WS           STP7            D              APL:002STP7                                                     
            D3T4    405  APL_LIBRARY_WS.STP7.D.16           1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:23.16
00571/17    APL LIBRARY WS           STP8            D              APL:002STP8                                                     
            D3T4    406  APL_LIBRARY_WS.STP8.D.17           1 LINE    255    5 PAGE UM   DWB                 AUG. 01, 1973  23:23.23
00571/18    APL LIBRARY WS           COMPLEX         D              APL:003COMPLEX                                                  
            D3T4    407  APL_LIBRARY_WS.COMPLEX.D.18        1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:23.27
00571/19    APL LIBRARY WS           INDEX           D              APL:003INDEX                                                    
            D3T4    408  APL_LIBRARY_WS.INDEX.D.19          1 LINE    255    4 PAGE UM   DWB                 AUG. 01, 1973  23:23.32
00571/20    APL LIBRARY WS           UTIL            D              APL:003UTIL                                                     
            D3T4    409  APL_LIBRARY_WS.UTIL.D.20           1 LINE    255    3 PAGE UM   DWB                 AUG. 01, 1973  23:23.37
00571/21    APL LIBRARY WS           ALGFORM         D              APL:005ALGFORM                                                  
            D3T4    410  APL_LIBRARY_WS.ALGFORM.D.21        1 LINE    255    6 PAGE UM   DWB                 AUG. 01, 1973  23:23.43
00571/22    APL LIBRARY WS           COGO            D              APL:005COGO                                                     
            D3T4    411  APL_LIBRARY_WS.COGO.D.22           1 LINE    255    9 PAGE UM   DWB                 AUG. 01, 1973  23:23.48
00571/23    APL LIBRARY WS           COMPCENT        D              APL:005COMPCENT                                                 
            D3T4    412  APL_LIBRARY_WS.COMPCENT.D.23       1 LINE    255    3 PAGE UM   DWB                 AUG. 01, 1973  23:23.53
00571/24    APL LIBRARY WS           CW              D              APL:005CW                                                       
            D3T4    413  APL_LIBRARY_WS.CW.D.24             1 LINE    255    7 PAGE UM   DWB                 AUG. 01, 1973  23:23.59
00571/25    APL LIBRARY WS           EDIT            D              APL:005EDIT                                                     
            D3T4    414  APL_LIBRARY_WS.EDIT.D.25           1 LINE    255    7 PAGE UM   DWB                 AUG. 01, 1973  23:24.05
00571/26    APL LIBRARY WS           MATRIXALG       D              APL:005MATRIXALG                                                
            D3T4    415  APL_LIBRARY_WS.MATRIXALG.D.26      1 LINE    255    8 PAGE UM   DWB                 AUG. 01, 1973  23:24.10
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00575/4     MTS VOLUME 4             SYMBOL SUBR     SA  S          W032:SYMBOL                                                     
            D3T4    427  MTS_VOLUME_4.SYMBOL_SUBR.SA.4      1 LINE     81   11 PAGE UM   EMERY               AUG. 01, 1973  23:41.37
0          THIS IS A SPECIAL VERSION OF THE CALCOMP 'SYMBOL' ROUTINES INTENDED FOR USE WITH THE KEYBOARD
           PLOT PROGRAM (575/3).
00575/5     MTS VOLUME 4             SYMBOL SUBR     OC  S          W032:SYMOBJ                                                     
            D3T4    428  MTS_VOLUME_4.SYMBOL_SUBR.OC.5      1 LINE     80    3 PAGE UM   EMERY               AUG. 01, 1973  23:41.43
00576/1     OMR CONVERT                              SA     COMR    DWB:CVTOMR                                                      
            D3T4    429  OMR_CONVERT..SA.1                  1 LINE     80    9 PAGE UM   DWB                 AUG. 01, 1973  23:41.49
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 ONLY THE WATERLOO OMR CARD FORMAT (2-4-6 MARK IN COLUMN 1).
                  IT WILL BE CHANGED SHORTLY TO ALSO HANDLE THE NEW UM OMR CARD.
00576/2     OMR CONVERT                              OC           # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   DWB                                        
0          Referenced by comments of: 86/2 
00576/3     OMR CONVERT              WRITEUP         WF             S0622 D3MISC FSNAME=M201                                     21 
            D3T4    430  OMR_CONVERT.WRITEUP.WF.3           1 LINE    108    2 DISK UM   DWB                 MAR. 15, 1973  18:36.15
0          THIS IS COMPUTING CENTER MEMO M201 -- "OMR FEATURE"
00577/1     MACHINE CHECK REC'Y      CEAIR           SA  G  EAIR    MTA:CEAIR.S                                                     
            D3T4    431  MACHINE_CHECK_REC'Y.CEAIR.SA.1     1 LINE     80   18 PAGE UM   MTA                 AUG. 01, 1973  23:41.59
0          THE MTS 360/67 MACHINE CHECK ERROR RECOVERY.  MODIFIED (AND DEBUGGED) FROM TSS/360 BY UBC AND UM.
            
           CEAIR IS THE RECOVERY NUCLEUS.  COPIES COPY:CHAERC (577/30), COPY:LLMPSEQU (087), COPY:PSA (162),
           AND COPY:CHADMR (577/29).
00577/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                                                     
            D3T4    432  MACHINE_CHECK_REC'Y.CMASA.SA.3     1 LINE     80   14 PAGE UM   MTA                 AUG. 01, 1973  23:42.04
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                                                     
            D3T4    433  MACHINE_CHECK_REC'Y.CEABE.SA.5     1 LINE     80   20 PAGE UM   MTA                 AUG. 01, 1973  23:42.10
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                                     
            D3T4    436  MACHINE_CHECK_REC'Y.CMASC.SA.9     1 LINE     80   13 PAGE UM   MTA                 AUG. 01, 1973  23:45.45
0          IMMEDIATE PRINT.
00577/10    MACHINE CHECK REC'Y      CMASC           OC  G          INIT:CMASC                                                      
            D3T4    437  MACHINE_CHECK_REC'Y.CMASC.O.10     1 LINE     80    2 PAGE UM   MTA                 AUG. 01, 1973  23:45.50
00577/11    MACHINE CHECK REC'Y      CMASD           SA  G  MASD    MTA:CMASD.S                                                     
            D3T4    438  MACHINE_CHECK_REC'Y.CMASD.SA.11    1 LINE     80   28 PAGE UM   MTA                 AUG. 01, 1973  23:45.56
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                                                      
            D3T4    439  MACHINE_CHECK_REC'Y.CMASD.O.12     1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:46.02
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).
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                                                     
            D3T4    444  MACHINE_CHECK_REC'Y.CMASG.SA.17    1 LINE     80   26 PAGE UM   MTA                 AUG. 01, 1973  23:46.30
0          INSTRUCTION RETRY.  COPIES COPY:LLMPSEQU (087) AND COPY:PSA (162).
00577/18    MACHINE CHECK REC'Y      CMASG           OC  G          INIT:CMASG                                                      
            D3T4    445  MACHINE_CHECK_REC'Y.CMASG.O.18     1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:46.36
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                                     
            D3T4    448  MACHINE_CHECK_REC'Y.CMASI.SA.21    1 LINE     80   29 PAGE UM   MTA                 AUG. 01, 1973  23:46.53
0          SECOND DIAGNOSTIC.  COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34).
00577/22    MACHINE CHECK REC'Y      CMASI           OC  G          INIT:CMASI                                                      
            D3T4    449  MACHINE_CHECK_REC'Y.CMASI.O.22     1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:46.59
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                                                     
            D3T4    452  MACHINE_CHECK_REC'Y.CGCMA.SA.25    1 LINE     80   24 PAGE UM   MTA                 AUG. 01, 1973  23:47.16
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                                                      
            D3T4    453  MACHINE_CHECK_REC'Y.CGCMA.O.26     1 LINE     80    3 PAGE UM   MTA                 AUG. 01, 1973  23:47.22
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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, 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.
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                                                   
            D3T4    462  MACHINE_CHECK_REC'Y.CHASYS.SA.35   1 LINE     80    1 PAGE UM   MTA                 AUG. 01, 1973  23:48.14
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                                                     
            D3T4    464  MACHINE_CHECK_REC'Y.CZASE.SA.37    1 LINE     80  130 PAGE UM   MTA                 AUG. 01, 1973  23:48.26
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00577/38    MACHINE CHECK REC'Y      CZASE           OC  G          INIT:CZASE                                                      
            D3T4    465  MACHINE_CHECK_REC'Y.CZASE.O.38     1 SEQ     176   19 PAGE UM   MTA                 AUG. 01, 1973  23:48.46
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?
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                                        
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                      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          EXTERNAL PORTION (SEPARATE ASSEMBLY) OF MTS WHICH SUPPORTS THE IMPLEMENTATION OF "REALLY SHARED FILES" (RSF).
           THIS PORTION OF MTS WAS REMOVED FROM THE MAIN ASSEMBLY SO THAT MTS WAS SMALL ENOUGH TO ASSEMBLE.
           COPIES *GFINFODSECT (593), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:CATEQU (482/28),
           AND COPY:LLMPSEQU (087).  ASSEMBLE WITH COPY:MTS.MACROS (344) AND *SYSMAC.
           FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5.
0          Referenced by comments of: 42/6, 344/1 
00578/2     RSF                                      OC  G        # RESIDENT SYSTEM (SEE COMP 468)                                  
                                                                                    UM   PIRKOLA                                    
00579/1     SYSDEFS                                  SA  G  SYSD    MTS:SYSDEFS(1,999)                                              
            D3T5      2  SYSDEFS..SA.1                      1 LINE     80    5 PAGE UM   MTA                 AUG. 02, 1973  00:14.56
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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 
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                        
            D3T5     27  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) ALTHOUGH IT REALLY ISN'T A CLS (IT HAS NO SUB-COMMANDS).  THIS WAS DONE SOLELY AS A
           PROGRAMMING CONVENIENCE.  IT COPIES COPY:CLSPLAN (535/1) AND COPY:CLSVECTOR (535/2).
           MODIFIED FROM WSU.
00585/2     CALC CLS                                 OE  G          NEW:CALC                                                        
            D3T5     28  CALC_CLS..OE.2                     1 LINE    255    3 PAGE UM   JWS                 AUG. 02, 1973  00:19.38
0          NORMALLY LOADED BY SEG 2 LOADER AT IPL.
00585/3     CALC CLS                 WRITEUP         WF             S0622 D3MISC FSNAME=M244                                     38 
            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$                                       
            D3T5     30  COST_SUBR..SA.1                    1 LINE     80    7 PAGE UM   ENGLE               OCT. 03, 1972  11:21.30
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                                     
            D3T5     33  INTERCOM..SA.1                     1 LINE     80   11 PAGE UM   MTA                 AUG. 02, 1973  00:23.56
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                                                     
            D3T5     34  I/O_INBOARD_ERROR_REC..SA.1        1 LINE     80    9 PAGE UM   MTA                 AUG. 02, 1973  00:23.58
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                                  UU  G          W086:SPIT.OSI.U                                                 
            D3T5     35  SPITBOL..UU.1                      1 LINE     72   15 PAGE UM   DE JONG             AUG. 02, 1973  00:24.01
0          BY CONTRACT, THE SOURCE AND OBJECT FOR SPITBOL CANNOT BE DISTRIBUTED.  CONTACT ROBERT DE WAR AT THE
           ILLINOIS INSTITUTE OF TECHNOLOGY, CHICAGO, IL, USA.
            
           UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6.
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                  COMP REPS       OC  G          W086:SPIT.MAIN.REPS                                             
            D3T5     37  SPITBOL.COMP_REPS.OC.3             1 LINE     89    5 PAGE UM   DE JONG             AUG. 02, 1973  00:24.07
0          REP CARDS TO BRING THE SPITBOL COMPILER FROM VERSION 2.2.0 TO 2.2.6.
00590/4     SPITBOL                  LIB REPS        OC  G          W086:SPIT.LIB.REPS                                              
            D3T5     38  SPITBOL.LIB_REPS.OC.4              1 LINE     85    4 PAGE UM   DE JONG             AUG. 02, 1973  00:24.10
0          REP CARDS TO BRING THE SPITBOL LIBRARY FROM VERSION 2.2.0 TO 2.2.6.
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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/21 
00593      *GFINFODSECT                              SA  G  GFID    *GFINFODSECT                                                    
            D3T5     41  GFINFODSECT..SA.                   1 LINE     80    3 PAGE UM   PIRKOLA             AUG. 02, 1973  00:24.40
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/1, 465/1, 529/1, 548/1, 548/2, 578/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 
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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00595/93    APL - GMRL               USER'S GUIDE    WF             S0622 D3MISC FSNAME=M236                                     37 
            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                                                      
            D3T5    136  ZAP..SA.1                          1 LINE     80   13 PAGE UM   MTA                 AUG. 02, 1973  00:30.07
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.
00596/2     ZAP                                      OC  G          MTS:ZAP                                                         
            D3T5    137  ZAP..OC.2                          1 LINE     80    4 PAGE UM   MTA                 AUG. 02, 1973  00:30.09
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                                                    
            D3T5    140  DASDI_7330..SA.1                   1 LINE     80    9 PAGE UM   HAMILTON            AUG. 02, 1973  00:30.22
0          PROGRAM TO PAGE FORMAT DASDI ITEL 7330 (IBM 3330) DISKS.  INPUT DESCRIBED IN SOURCE COMMENTS.  ASSEMBLE WITH *SYSMAC.
00598/2     DASDI 7330                               OC  G          W047:DASDI                                                      
            D3T5    141  DASDI_7330..OC.2                   1 LINE     80    3 PAGE UM   HAMILTON            AUG. 02, 1973  00:30.24
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSCLSSOU          1  
            D3T5    144  SDS.CLSSOU.SA.1                    1 SEQ      80  110 PAGE UM   SALISBURY           AUG. 02, 1973  00:31.47
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:CLSVECTOR(1,60)
           (535/2), AND SDSPSECT (600/13).  ASSEMBLE USING *SYSMAC AND SDSMACROS (600/12).
00600/2     SDS                      UTSDSSOU        SA  G          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSUTILSOU         2  
            D3T5    145  SDS.UTSDSSOU.SA.2                  1 SEQ      80   31 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.01
0          COPIES SDSCONSTANT (600/15).
00600/3     SDS                      CLS             OC  G          W044:SDSCLS                                                     
            D3T5    146  SDS.CLS.OC.3                       1 LINE     80   22 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.03
00600/4     SDS                      CLI             SA  G          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSCLISOU          3  
            D3T5    147  SDS.CLI.SA.4                       1 SEQ      80   64 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.13
0          THE SDS COMMAND LANGUAGE INTERPRETER.  COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13),
           COPY:CLSPLAN (535/1), AND COPY:CLSVECTOR(1,60) (535/2).  ASSEMBLE WITH SDSMACROS (600/12).
00600/5     SDS                      CLI             OC  G          W044:SDSCLI                                                     
            D3T5    148  SDS.CLI.OC.5                       1 LINE     80   15 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.18
00600/6     SDS                      IOC             SA  G          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSIOCSOU          4  
            D3T5    149  SDS.IOC.SA.6                       1 SEQ      80   27 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.25
0          THE SDS I/O CONTROL MODULE.  COPIES SDSPSECT (600/13), COPY:CLSPLAN (535/1), AND COPY:CLSVECTOR(1,60) (535/2).
           ASSEMBLE WITH *SYSMAC AND SDSMACROS (600/12).
00600/7     SDS                      IOC             OC  G          W044:SDSIOC                                                     
            D3T5    150  SDS.IOC.OC.7                       1 LINE     80    8 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.27
00600/8     SDS                      SIMULATOR       SA  G          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSSIMLSOU         5  
            D3T5    151  SDS.SIMULATOR.SA.8                 1 SEQ      80   22 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.31
0          THE SDS INSTRUCTION SIMULATOR.  COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13),
           COPY:CLSPLAN (535/1), AND COPY:CLSVECTOR(1,60) (535/2).  ASSEMBLE WITH SDSMACROS (600/12).
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00600/9     SDS                      SIMULATOR       OC  G          W044:SDSSIML                                                    
            D3T5    152  SDS.SIMULATOR.OC.9                 1 LINE     80    7 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.32
00600/10    SDS                      EDITOR          SA  G          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSEDTRSOU         6  
            D3T5    153  SDS.EDITOR.SA.10                   1 SEQ      80   29 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.38
0          THE SDS EDITOR.  COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13),
           COPY:CLSPLAN (535/1), AND COPY:CLSVECTOR(1,60) (535/2).  ASSEMBLE WITH SDSMACROS (600/12).
00600/11    SDS                      EDITOR          OC  G          W044:SDSEDTR                                                    
            D3T5    154  SDS.EDITOR.OC.11                   1 LINE     80    7 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.39
00600/12    SDS                      SDSMACROS       SM  G  SDSM    S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSMACROS          10 
            D3T5    155  SDS.SDSMACROS.SM.12                1 SEQ      80   10 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.45
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          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSPSECT           7  
            D3T5    156  SDS.SDSPSECT.SA.13                 1 SEQ      80   33 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.51
0          COPY SECTION FOR SDS DSECTS.
0          Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 
00600/14    SDS                      SDSBT           SA  G          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSBT              8  
            D3T5    157  SDS.SDSBT.SA.14                    1 SEQ      80    3 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.54
0          COPY SECTION FOR BRANCH TABLES.
0          Referenced by comments of: 600/4, 600/8, 600/10 
00600/15    SDS                      SDSCONSTANT     SA  G          S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSCONSTANT        9  
            D3T5    158  SDS.SDSCONSTANT.SA.15              1 SEQ      80    1 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.56
0          COPY SECTION FOR CONSTANTS.
0          Referenced by comments of: 600/2, 600/4, 600/8, 600/10 
00600/16    SDS                      OBJECT          OC  G          *CLSSDS                                                         
            D3T5    159  SDS.OBJECT.OE.16                   1 LINE    255   16 PAGE UM   SALISBURY           AUG. 02, 1973  00:32.59
0          THE SDS OBJECT IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL.
00600/17    SDS                      TEST PROGRAM    C              W044:ASMSDSTEST                                                 
            D3T5    160  SDS.TEST_PROGRAM.C.17              1 LINE     80    1 PAGE UM   SALISBURY           AUG. 02, 1973  00:33.01
0          SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAM (600/18).
00600/18    SDS                      TEST PROGRAM    SA             W044:SDSTESTSOU                                                 
            D3T5    161  SDS.TEST_PROGRAM.SA.18             1 LINE     59    4 PAGE UM   SALISBURY           AUG. 02, 1973  00:33.03
0          Referenced by comments of: 600/17 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00600/19    SDS                      TEST PROGRAM    OC             W044:SDSTEST                                                    
            D3T5    162  SDS.TEST_PROGRAM.O.19              1 LINE     80    5 PAGE UM   SALISBURY           AUG. 02, 1973  00:33.06
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
           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.
0          Referenced by comments of: 42/3 
00603/1     UC3330                                   SA  G  UC33    MTA:UC3330(1,999)                                               
            D3T5    165  UC3330..SA.1                       1 LINE     80   18 PAGE UM   MTA                 AUG. 02, 1973  00:33.12
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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
           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:FORMAT(1,1999)                                             
            D3T5    171  MVC..SA.1                          1 LINE     80   36 PAGE UM   EMERY               AUG. 02, 1973  00:33.29
0          RECORD REFORMATTING PROGRAM.
00608/2    *MVC                                      OC  G          *MVC                                                            
            D3T5    172  MVC..O.2                           1 LINE     80    4 PAGE UM   EMERY               AUG. 02, 1973  00:33.39
00609/1     7330 CCW SCANNER                         SA  G  CPSC    MTA:CPSCN(1,999)                                                
            D3T5    173  7330_CCW_SCANNER..SA.1             1 LINE     80    5 PAGE UM   MTA                 AUG. 02, 1973  00:33.41
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 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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.
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/18, 387/20 
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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                                                    
            D3T5    186  PLOT_SYSTEM.INSTALLATION.C.1       1 LINE    108    2 PAGE UM   FRONCZAK            AUG. 02, 1973  00:36.27
0          THE MTS CALCOMP PLOT SYSTEM ROUTINES.  THIS IS A NEW VERSION WHICH WAS INSTALLED FOR USERS JUST PRIOR TO DISTRIBUTION
           AT UM AND IS, THEREFORE, NOT FULLY TESTED.  ALTHOUGH THIS VERSION OF THE PLOT SYSTEM COMES CLOSER TO THE MTS
           VOLUME 11 DESCRIPTION, IT STILL DOES NOT FULLY SUPPORT ALL ADVERTISED FEATURES, E.G. TAPE QUEUING.
            
           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.
00615/2     PLOT SYSTEM              MACROS          SM             S0682 PDSFNL POSN=PDSCC.MACROS                               1  
            D3T5    187  PLOT_SYSTEM.MACROS.SM.2            1 SEQ      80    2 PAGE UM   FRONCZAK            AUG. 02, 1973  00:37.33
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 
00615/3     PLOT SYSTEM              GETSETPLTS8     SA             S0682 PDSFNL POSN=CC.GETSETPLTS8                             2  
            D3T5    188  PLOT_SYSTEM.GETSETPLTS8.SA.3       1 SEQ      80    4 PAGE UM   FRONCZAK            AUG. 02, 1973  00:37.35
0          SUBROUTINE USED IN *CCQUEUE AND SYS:CCP (615/13).  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/4     PLOT SYSTEM              CCQUEUE         SA             S0682 PDSFNL POSN=CC.CCQUEUE                                 3  
            D3T5    189  PLOT_SYSTEM.CCQUEUE.SA.4           1 SEQ      80   13 PAGE UM   FRONCZAK            AUG. 02, 1973  00:37.37
0          MAIN PROGRAM FOR *CCQUEUE.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/5     PLOT SYSTEM              CCP             SA             S0682 PDSFNL POSN=CC.CCP                                     4  
            D3T5    190  PLOT_SYSTEM.CCP.SA.5               1 SEQ      80   14 PAGE UM   FRONCZAK            AUG. 02, 1973  00:37.40
0          MAIN PROGRAM FOR SYS:CCP (615/13).  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/6     PLOT SYSTEM              CCPOST          SA             S0682 PDSFNL POSN=CC.CCPOST                                  5  
            D3T5    191  PLOT_SYSTEM.CCPOST.SA.6            1 SEQ      80    5 PAGE UM   FRONCZAK            AUG. 02, 1973  00:37.42
0          SOURCE FOR *CCPOST.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/7     PLOT SYSTEM              CPCORE          SA             S0682 PDSFNL POSN=CC.CPCORE                                  6  
            D3T5    192  PLOT_SYSTEM.CPCORE.SA.7            1 SEQ      80   33 PAGE UM   FRONCZAK            AUG. 02, 1973  00:37.47
0          MAIN PROGRAM FOR *CPCORE.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/8     PLOT SYSTEM              PWRIT           SA             S0682 PDSFNL POSN=PDS.PWRIT                                  7  
            D3T5    193  PLOT_SYSTEM.PWRIT.SA.8             1 SEQ      80   14 PAGE UM   FRONCZAK            AUG. 02, 1973  00:37.52
0          SUBROUTINE IN *PLOTSYS.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00615/9     PLOT SYSTEM              PSYMB           SA             S0682 PDSFNL POSN=PDS.PSYMB                                  8  
            D3T5    194  PLOT_SYSTEM.PSYMB.SA.9             1 SEQ      80   13 PAGE UM   FRONCZAK            AUG. 02, 1973  00:37.58
0          SUBROUTINES IN *PLOTSYS.  ALSO USED IN *CPCORE.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/10    PLOT SYSTEM              ASM             SA             S0682 PDSFNL POSN=PDS.ASM                                    9  
            D3T5    195  PLOT_SYSTEM.ASM.SA.10              1 SEQ      80   30 PAGE UM   FRONCZAK            AUG. 02, 1973  00:38.06
0          SUBROUTINES IN *PLOTSYS.  ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC.
00615/11    PLOT SYSTEM              FORT            SF             S0682 PDSFNL POSN=PDS.FORT                                   10 
            D3T5    196  PLOT_SYSTEM.FORT.SF.11             1 SEQ      80   25 PAGE UM   FRONCZAK            AUG. 02, 1973  00:38.12
0          SUBROUTINES IN *PLOTSYS.
00615/12    PLOT SYSTEM              *CCQUEUE        OC             *CCQUEUE                                                        
            D3T5    197  PLOT_SYSTEM.*CCQUEUE.OC.12         1 LINE     80    4 PAGE UM   FRONCZAK            AUG. 02, 1973  00:38.16
0          PROGRAM TO QUEUE USERS PLOTS FOR POST-PROCESSING BY *CCP.  ADDS A LINE TO *CCPFILE (NOT DISTRIBUTED) INDICATING
           THE PLOT TO BE PROCESSED.  OBJECT FROM 615/4 + 615/3.
00615/13    PLOT SYSTEM              SYS:CCP         OC             SYS:CCP                                                         
            D3T5    198  PLOT_SYSTEM.SYS:CCP.OC.13          1 LINE     80    5 PAGE UM   FRONCZAK            AUG. 02, 1973  00:38.17
0          POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/14) USED BY THE SYSTEM OPERATORS TO GENERATE OFFLINE PLOT TAPES.
           OBJECT CONSISTS OF 615/5 + 615/3 + A "$CONTINUE WITH *CPCORE" CARD.
0          Referenced by comments of: 615/3, 615/5, 615/14, 615/16 
00615/14    PLOT SYSTEM              *CCP            C              *CCP                                                            
            D3T5    199  PLOT_SYSTEM.*CCP.C.14              1 LINE     23    1 PAGE UM   FRONCZAK            AUG. 02, 1973  00:38.20
0          COMMAND FILE INVOKED BY ENTERING "MTS *CCP" ON OPERATOR'S CONSOLE.  USED BY THE SYSTEM OPERATOR TO GENERATE THE
           SYSTEM PLOT TAPES.  RUNS THE SYS:CCP PROGRAM (615/13).
0          Referenced by comments of: 615/13 
00615/15    PLOT SYSTEM              *CCPOST         OC             *CCPOST                                                         
            D3T5    200  PLOT_SYSTEM.*CCPOST.OC.15          1 LINE     80    2 PAGE UM   FRONCZAK            AUG. 02, 1973  00:38.22
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/16 
00615/16    PLOT SYSTEM              *CPCORE         OC             *CPCORE                                                         
            D3T5    201  PLOT_SYSTEM.*CPCORE.OC.16          1 LINE     80    8 PAGE UM   FRONCZAK            AUG. 02, 1973  00:38.24
0          BASIC PROGRAMS IN CALCOMP POST-PROCESSOR.  USED WITH BOTH *CCPOST (615/15) AND SYS:CCP (615/13).
           *CPCORE DUPLICATES NAMES IN *PLOTSYS (615/17), BUT WRITES A CALCOMP PLOTTER TAPE, NOT A PLOT FILE.
           OBJECT CONSISTS OF OBJECT FROM 615/7 + 615/9.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00615/17    PLOT SYSTEM              *PLOTSYS        OL             *PLOTSYS                                                        
            D3T5    202  PLOT_SYSTEM.*PLOTSYS.OL.17         1 SEQ    1404   22 PAGE UM   FRONCZAK            AUG. 02, 1973  00:38.26
0          OBJECT LIBRARY GENERATED FROM 615/8 + 615/9 + 615/10 + 615/11.
0          Referenced by comments of: 615/16 
00615/18    PLOT SYSTEM              *PFILESCAN      OC             *PFILESCAN                                                      
            D3T5    203  PLOT_SYSTEM.*PFILESCAN.OC.18       1 SEQ      23    1 PAGE UM   FRONCZAK            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
           "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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
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     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     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.
0          Referenced by comments of: 619/3 
00619/3    *ASMT                     PHASE 1.1       SA     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     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     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     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     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     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     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     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
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00619/11   *ASMT                     PHASE 1.9       SA     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     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     C100    S0653 'ASMT' FSNAME=CEVC1.S                                     
            D3T5    222  ASMT.PHASE_2.2.SA.13               1 LINE     80   41 PAGE UM   BERSTIS             JULY 09, 1973  02:15.18
00619/14   *ASMT                     PHASE 2.3       SA     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     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     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     F100    S0653 'ASMT' FSNAME=CEVF1.S                                     
            D3T5    226  ASMT.PHASE_4.SA.17                 1 LINE     80   57 PAGE UM   BERSTIS             JULY 23, 1973  19:48.27
00619/18   *ASMT                     ASMTGO          SA     GO00    S0653 'ASMT' FSNAME=ASMTGO.S                                    
            D3T5    227  ASMT.ASMTGO.SA.18                  1 LINE     80    1 PAGE UM   BERSTIS             JULY 23, 1973  21:24.29
0          THIS ROUTINE CALLS THE ASSEMBLER WITH TSS CALLING CONVENTIONS.
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     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     LPC0    S0653 'ASMT' FSNAME=ASMTLPC.S                                   
            D3T5    230  ASMT.LPC.SA.21                     1 LINE     80   18 PAGE UM   BERSTIS             JULY 28, 1973  21:31.24
0          ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT).
00619/22   *ASMT                     OBJ PRODUCER    SA     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     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.
1                                                                                               WED JUL 24/96   18:21:34   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
+         ______________ _____________________
00619/24   *ASMT                     SHARED OBJECT   OC             S0653 'ASMT' FSNAME=ASMTLCOBJ                                   
            D3T5    233  ASMT.SHARED_OBJECT.O.24            1 SEQ   10151   84 PAGE UM   BERSTIS             JULY 28, 1973  21:31.13
0          SHARED (RE-ENTRANT) PART OF ASSEMBLER.  LOADED INTO SEGMENT 2 BY SEG 2 LOADER.
00619/25   *ASMT                     *ASMT           OC             S0653 'ASMT' FSNAME=*ASMT                                       
            D3T5    234  ASMT.*ASMT.O.25                    1 SEQ    4096    9 PAGE UM   BERSTIS             JULY 28, 1973  21:31.10
0          NON-SHARED OBJECT.
00619/26   *ASMT                     DOCUMENTATION   WF             S0653 'ASMT' FSNAME=ASMTDOC                                     
            D3T5    235  ASMT.DOCUMENTATION.WF.26           1 LINE    153    5 PAGE UM   BERSTIS             JULY 28, 1973  20:53.06
0          *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION.  FILE HAS A "$CONTINUE WITH *DUMMY*" LINE.
00620       STATDSECT                                SA  G  STAD    COPY:STATDSECT                                                  
            D3T5    236  STATDSECT..SA.                     1 LINE     80    3 PAGE UM   MTA                 AUG. 02, 1973  00:53.32
0          COPY SECTION FOR *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.
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
1                                                                                               WED JUL 24/96   18:21:34   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          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
00622       FCBDSECT                                 SA  G          COPY:FCBDSECT                                                   
            D3T5    247  FCBDSECT..SA.                      1 LINE     80    4 PAGE UM   DWB                 AUG. 02, 1973  00:54.03
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                                                  
            D3T5    248  FDUBDSECT..SA.                     1 LINE     80    3 PAGE UM   DWB                 AUG. 02, 1973  00:54.04
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                                                 
            D3T5    249  WOPTRDSECT..SA.                    1 LINE     80    1 PAGE UM   DWB                 AUG. 02, 1973  00:54.06
0          THIS IS "COPY:WOPTRDSECT" WHICH IS THE COPY SECTION FOR THE WRITEON PRINTER DSECT.
0          Referenced by comments of: 346/1, 387/1 
