1 MON AUG 05/96 18:37:45 Page 1 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00001/001A UMLOAD D5.0 MASTER SA G W009:UMLOAD.S 5.0T1 1 UMLOAD.D5.0_MASTER.SA.001 1 LINE 80 88 PAGE UM SHERRY JULY 03, 1981 11:55:32 5.0T1 1 W009:UMLOAD.S 0 The MTS relocatable loader. ******************************************************************* D5.0 version: New master generated for this version by applying the update decks in (001/2) to the D4.3 version. These updates include the RPI one to implement the OPT card option BTCRPL=ON and the UBC one to change UMLOAD's error messages to mixed case. ******************************************************************* 0 Referenced by comments of: 1/2, 1021/7, 1021/10 00001/002A UMLOAD UPDATE UC G W009:UMLOAD.U 5.0T1 2 UMLOAD.UPDATE.UC.002 1 LINE 72 4 PAGE UM SHERRY JULY 03, 1981 11:55:42 5.0T1 2 W009:UMLOAD.U 0 UPDATE DECK TO PRODUCE CURRENT UMLOAD SOURCE (001/1) FROM D4.3 UMLOAD. 0 Referenced by comments of: 1/1 00001/003 UMLOAD OBJECT OC G # (PART OF RESIDENT SYSTEM) UM SHERRY 0 Object part of Resident System (468) 00001/004 UMLOAD LOADINFO DSECT SA G *LOADINFODSECT 5.0T1 3 UMLOAD.LOADINFO_DSECT.SA.004 1 LINE 67 1 PAGE UM SHERRY JULY 03, 1981 11:55:43 5.0T1 3 *LOADINFODSECT 0 COPY SECTION FOR INFORMATION RETURNED BY LOADINFO SUBR, PART OF (354/1). 0 Referenced by comments of: 495/1, 506/3, 545/3, 721/1, 738/1, 804/1, 1023/1 00001/005A UMLOAD INFO CLS SA O W009:CLSINFO.S 5.0T1 4 UMLOAD.INFO_CLS.SA.005 1 LINE 85 30 PAGE UM SHERRY JULY 03, 1981 11:55:44 5.0T1 4 W009:CLSINFO.S 0 A CLS-CODED PROGRAM (I.E. USE VIA THE MTS #CLS COMMAND) TO ALLOW THE USER TO EXAMINE LOADER TABLES (INCLUDING THE RESIDENT IPL LOADER PSECT) AND LOW CORE SYMBOL TALES (LCSYMBOL, SYSDEFS, , ETC.). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND THE *OBJUTIL MISCELLANEOUS MACROS (721/15). COPIES *CNFGINFODSECT (654). REQUIRES THE MSG ROUTINES (1023/1). 00001/006A UMLOAD INFO CLS OE O W009:I 5.0T1 5 UMLOAD.INFO_CLS.OE.006 1 LINE 12100 11 PAGE UM SHERRY AUG. 28, 1981 02:05:50 5.0T1 5 W009:I 1 MON AUG 05/96 18:37:45 Page 2 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00001/007A UMLOAD INFO CLS M W009:CLSINFO.X 5.0T1 6 UMLOAD.INFO_CLS.M.007 1 LINE 74 3 PAGE UM SHERRY JULY 03, 1981 11:56:07 5.0T1 6 W009:CLSINFO.X 0 MESSAGE FILE USED BY THE INFO CLS. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00001/008A UMLOAD INFO CLS WF W009:CLSINFO.W 5.0T1 7 UMLOAD.INFO_CLS.WF.008 1 LINE 91 4 PAGE UM SHERRY JULY 03, 1981 11:56:08 5.0T1 7 W009:CLSINFO.W 0 WRITEUP DESCRIBING THE INFO CLS PROGRAM. 00001/009 UMLOAD CLSDRV SA O W009:CLSDRV.S 5.0T1 8 UMLOAD.CLSDRV.SA.009 1 LINE 109 1 PAGE UM SHERRY JULY 03, 1981 11:56:09 5.0T1 8 W009:CLSDRV.S 0 THIS IS AN INTERFACE PROGRAM WHICH PERMITS THE INFO CLS TO BE RUN AS A NORMAL PROGRAM. ASSEMBLE WITH COPY:MTS.MACROS (344/3) AND THE *OBJUTIL MACROS (721/14). 00001/010 UMLOAD CLSDRV OC O W009:CLSDRV.O 5.0T1 9 UMLOAD.CLSDRV.OC.010 1 LINE 604 1 PAGE UM SHERRY JULY 03, 1981 11:56:09 5.0T1 9 W009:CLSDRV.O 00003/001A JOBLIST SA G DMGR:JOBLIST 5.0T1 10 JOBLIST..SA.001 1 LINE 71 5 PAGE UM HELFFRICH AUG. 05, 1981 01:57:33 5.0T1 10 0 MANY ASSEMBLIES WHICH TOGETHER FORM THE LIST OF AVAILABLE JOBS IN UMMPS. ASSEMBLE WITH PAR=B. ************************************************************************* D5.0 version: Added entries for T11 (819), Intertask (1081) and the Disk Manager (769). ************************************************************************* 0 Referenced by comments of: 534/1 00003/002A JOBLIST OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00004/001A TABLES SA G WSG:TABLES 5.0T1 11 TABLES..SA.001 1 LINE 109 13 PAGE UM WSG AUG. 21, 1981 04:29:35 5.0T1 11 WSG.:TABLES 0 Tables that define the hardware configuration for the UM amdahl 470, the number of low-core terminal I/O buffers, the list of public disk volume names and corresponding disk drives, etc. This deck is distributed as an example of an I/O configuration; obviously, each installation will supply TABLES for its local configuration or use DECKGEN (004/4). This deck contains several macro definitions useful for defining the tables. Copies COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), and *CNFGINFODSECT(2) 1 MON AUG 05/96 18:37:45 Page 3 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (654). Assemble using COPY:FILE.MACROS (482/45) and COPY:SETPARM (653). Assemble using *ASMH with PAR=REL2 to suppress halfword relocatable Y-CON warning messages. Contains commands to assemble starting at line 0. 0 Referenced by comments of: 482/47 00004/002A TABLES OC G # (PART OF RESIDENT SYSTEM) UM WSG 0 Object part of Resident System (468) 00004/003A TABLES WRITEUP WF WSG:TABLES.WF 5.0T1 12 TABLES.WRITEUP.WF.003 1 LINE 189 12 PAGE UM WSG AUG. 21, 1981 04:31:04 5.0T1 12 00004/004A TABLES DECKGEN SA O MTS:DCKPCHR(1000) 5.0T1 13 TABLES.DECKGEN.SA.004 1 LINE 72 45 PAGE UBC HELFFRICH AUG. 28, 1981 02:07:55 5.0T1 13 0 STAND-ALONE PROGRAM TO GENERATE AN ASSEMBLER OBJECT DECK FOR THE SYSTEM TABLES CSECT BASED ON INPUT ENTERED FROM THE OPERATOR'S CONSOLE. IT WILL ALSO WRITE THE GENERATED OBJECT DECK ONTO A TAPE, FOR SUBSEQUENT USE WITH THE IPLREADER PROGRAM (1021), WHICH CAN REPLACE THE TABLES CSECT IN A SYSTEM WITH THE ONE FROM THE TAPE. USES THE IPLREADER ROUTINES FOR CONSOLE I/O, WHICH MEANS THAT A 3270 MAY BE USED. COPIES *CNFGINFODSECT (654). ASSEMBLE WITH *ASMH USING COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), AND *SYSMAC. 0 Referenced by comments of: 4/1, 9/1 00004/005A TABLES DECKGEN OC O MTS:DCKPCHR(1,999) 5.0T1 14 TABLES.DECKGEN.OC.005 1 LINE 80 9 PAGE UBC HELFFRICH AUG. 28, 1981 02:08:25 5.0T1 14 MTS.:DCKPCHR 0 THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE. 00004/006A TABLES *IPL.DECKGEN D MTS:IPL.DECKGEN 5.0T1 15 TABLES.?IPL.DECKGEN.D.006 1 SEQ 4100 30 PAGE UBC HELFFRICH AUG. 28, 1981 02:08:34 5.0T1 15 *IPL.DECKGEN 0 OBJECT FOR DECKGEN SUITABLE FOR LOADING BY THE IPL READER. 00004/007A TABLES DECKGEN DESCR WF MTS:DCKPCHR.W 5.0T1 16 TABLES.DECKGEN_DESCR.WF.007 1 LINE 126 9 PAGE UBC HELFFRICH JULY 03, 1981 11:57:39 5.0T1 16 MTS.:DCKPCHR.W 0 WRITEUP DESCRIBING HOW TO USE THE DECKGEN PROGRAM TO GENERATE A TABLES OBJECT DECK. A COPY IS INCLUDED WITH THE PAPER DOCUMENTATION. 00005/001A JBRP D5.0 SOURCE SA G S0699 D3TAPE POSN=JBRP.D5 5.0T4 268 JBRP.D5.0_SOURCE.SA.001 1 LINE 80 7 PAGE UM MTA AUG. 09, 1981 22:30:26 5.0T10 172 0 JOB REQUEST PROCESSOR (TASK INITIALIZATION). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). 1 MON AUG 05/96 18:37:45 Page 4 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ASSEMBLE USING COPY:SETPARM (653). 00005/002A JBRP UPDATE UC G MTA:JBRP.U 5.0T4 269 JBRP.UPDATE.UC.002 1 LINE 76 1 PAGE UM MTA AUG. 09, 1981 22:30:27 5.0T10 173 0 UPDATE TO PRODUCE CURRENT SOURCE FROM D4.3 SOURCE. 00005/003A JBRP OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 ********************************************************************************* D5.0 CHANGES (ALREADY DISTRIBUTED ON D4.3A): Changed for device table vector addition to job table format. Install if and only if D4.3A or D5.0 UMMPS is installed. ********************************************************************************* Object part of Resident System (468) 00006/001 FNDJTL SA G S0563 D4T1 VLO FSNAME=FNDJTL..SA.001(1) 17 5.0T1 17 FNDJTL..SA.001 1 LINE 80 2 PAGE UM MTA JULY 27, 1977 21:23:58 5.0T1 17 0 FIND JOB TABLE. 00006/002 FNDJTL OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00007/001A FBJTJL D5.0 SOURCE SA G S0699 D3TAPE POSN=FBJTJL.D5 5.0T4 270 FBJTJL.D5.0_SOURCE.SA.001 1 LINE 80 4 PAGE UM MTA AUG. 09, 1981 22:31:05 5.0T10 174 0 FREE BUFFERS AND JOB TABLE, CALLED BY EXIT (010). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 00007/002A FBJTJL UPDATE UC G MTA:FBJTJL.U 5.0T4 271 FBJTJL.UPDATE.UC.002 1 LINE 68 1 PAGE UM MTA AUG. 09, 1981 22:31:06 5.0T10 175 0 UPDATE TO PRODUCE THE CURRENT SOURCE USING THE D4.3 SOURCE AS BASE. 00007/003 FBJTJL OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00008/001A FIDCQ SA G MTA:FIDCQ 5.0T1 18 FIDCQ..SA.001 1 LINE 72 1 PAGE UM MTA JULY 03, 1981 11:58:50 5.0T1 18 0 FREE I/O DEVICES AND CPU QUEUE. 1 MON AUG 05/96 18:37:45 Page 5 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). *********************************************************************************** D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT. INSTALL IF AND ONLY IF D4.3A or D5.0 UMMPS IS INSTALLED. *********************************************************************************** 0 Referenced by comments of: 45/2 00008/002A FIDCQ OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00009/001A BUFALLOC SA G S0683 OGDEN FSNAME=BUFALLOC.S 5.0T1 19 BUFALLOC..SA.001 1 LINE 68 4 PAGE UM OGDEN MAR. 28, 1981 00:29:46 5.0T1 19 0 SUBROUTINE TO ALLOCATE AND RELEASE 128-BYTE, LOW-CORE, TERMINAL, I/O BUFFERS. THIS ROUTINE IS CALLED BY SEVERAL TERMINAL DEVICE SUPPORT ROUTINES (TSFO, PDP8RTN, MNETRTN, ETC). IT ALLOCATES BUFFERS FROM A POOL OF BUFFERS WHICH ARE PART OF TABLES AND WHICH BUFALLOC REFERENCES WITH THE TABLES EXTERNAL SYMBOL 'TERMBFRS'. THE PURPOSE OF THESE BUFFERS IS TO HAVE THE TERMINAL ROUTINES DOING I/O INTO REAL-CORE BUFFERS, THUS AVOIDING THE OVERHEAD OF HAVING MANY VM PAGES LOCKED IN CORE DURING TERMINAL I/O. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND *CNFGINFODSECT (654). THE BUFSTAT PROGRAM (009/3) PRINTS WHICH JOB IS USING WHICH BUFFER(S). **************************************************************************** D5.0 CHANGES: TERMINAL BUFFERS MOVED OUT OF TABLES AND INTO SHARED VM. BUFALLOC NOW DYNAMICALLY ALLOCATES TERMINAL BUFFERS AS NEEDED AND REQUIRES A GR13 SAVE AREA. IT NO LONGER SETS THE BUFALLOC SVC LOCK, BUT IT DOES UPDATE ENDSEG2 AND SO MUST SET THE UMLOAD/ENDSEG2 LOCK. IT IS IMPORTANT THAT ALL PROGRAMS THAT UPDATE ENDSEG2 OR USE SHARED VM PAST ENDSEG2 SET THIS LOCK. PRINTDUMP (400) AND BUFSTAT (009/3) HAVE BEEN CHANGED TO SUPPORT THE NEW FORMAT. DECKGEN (004/4) NO LONGER INCLUDES TERMINAL BUFFERS IN THE TABLES IT GENERATES. EXIT (010), HASP (387), TSFO (038) AND THE MERIT DSR (570) WERE CHANGED TO SUPPLY A GR13 SAVE AREA. **************************************************************************** 0 Referenced by comments of: 9/3 00009/002 BUFALLOC OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 6 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00009/003A BUFALLOC BUFSTAT SA G MTS:BUFSTAT(1000) 5.0T1 20 BUFALLOC.BUFSTAT.SA.003 1 LINE 72 3 PAGE UM OGDEN JULY 03, 1981 12:03:11 5.0T1 20 MTS.:BUFSTAT 0 PROGRAM TO PRINT WHICH JOBS ARE USING WHICH LOW-CORE TERMINAL BUFFERS, HOW MANY ARE NOT BEING USED, AND APPROXIMATELY HOW MANY MORE ARE REQUIRED WHEN THEY ARE ALL IN USE. RUN WITH PROT=OFF. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ************************************************************ D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: THIS VERSION IMPLEMENTS THE DEVICE LIST VECTOR AND SHOULD BE USED IF AND ONLY IF THE D4.3A OR D5.0 VERSION OF UMMPS IS INSTALLED. NEW D5.0 CHANGES: UPDATED TO WORK WITH THE NEW VERSION OF BUFALLOC (009). ************************************************************ 0 Referenced by comments of: 9/1, 618/1 00009/004A BUFALLOC BUFSTAT OC G MTS:BUFSTAT(1,999) 5.0T1 21 BUFALLOC.BUFSTAT.OC.004 1 LINE 80 3 PAGE UM OGDEN JULY 03, 1981 12:03:12 5.0T1 21 0 Contains a $CONTINUE WITH COPY:SYSDEFS (579/3) record. 00010/001A EXIT SA G MTA:EXIT(1,999) 5.0T1 22 EXIT..SA.001 1 LINE 72 3 PAGE UM MTA JULY 03, 1981 12:03:12 5.0T1 22 MTA.:EXIT 0 KILLS CALLING TASK. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653) AND COPY:DM.MACROS (769/19). ********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONTAINS DISK MANAGER CHANGES. ********************************************************************************** 0 Referenced by comments of: 7/1, 9/1 00010/002A EXIT OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00011/001 CARDUC SA G S0563 D4T1 VLO FSNAME=CARDUC..SA.001(1) 22 5.0T1 23 CARDUC..SA.001 1 LINE 80 9 PAGE UM MTA JULY 30, 1973 03:30.59 5.0T1 23 0 2501 AND 2540 READER UNIT CHECK ROUTINES. 1 MON AUG 05/96 18:37:45 Page 7 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00011/002 CARDUC OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00012/001 TAPEUC # (OBSOLETE) D4T1 23 TAPEUC..SA.001 1 LINE 80 18 PAGE SFU JULY 27, 1977 21:25:13 D4T1 23 0 Magnetic tape unit check routines, obsoleted by (787/15). 0 Referenced by comments of: 787/1 00013/001A PTRUC 5.0 SOURCE SA G S0699 D3TAPE POSN=PTRUC.D5 5.0T4 272 PTRUC.5.0_SOURCE.SA.001 1 LINE 80 14 PAGE UM MTA AUG. 09, 1981 22:31:11 5.0T10 176 0 1403, 1443, 3211, AND 3203 PRINTER UNIT CHECK ROUTINES. 00013/002C PTRUC UPDATE UC G MTA:PTRUC.U 5.0T4 273 PTRUC.UPDATE.UC.002 1 LINE 82 11 PAGE UM MTA AUG. 09, 1981 22:31:12 5.0T10 177 0 Update to bring the D4.0 PTRUC to D5.0 version. Adds 3211 and 3203 support. 00013/003 PTRUC OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00014/001 PUNUC SA G S1143 D4.1T1 VLO FSNAME=PUNUC..SA.001(1) 8 5.0T1 24 PUNUC..SA.001 1 LINE 80 6 PAGE UM DWB MAY 13, 1978 16:52:09 5.0T1 24 0 2540 AND 1442 PUNCH UNIT CHECK ROUTINES. 00014/002 PUNUC OC G # (PART OF RESIDENT SYSTEM) UM DWB 0 Object part of Resident System (468) 00016/001 CCTB SA G S0683 OGDEN FSNAME=CCTB.S 5.0T1 25 CCTB..SA.001 1 LINE 80 3 PAGE UM OGDEN SEP. 25, 1979 03:33:30 5.0T1 25 0 USED BY MTS TO TRANSLATE LOGICAL CARRIAGE CONTROL TO PRINTER COMMANDS. RECENTLY CHANGED TO DEFINE "8" AS BOTTOM OF LOGICAL PAGE. SEE THE DSR UPDATE (637/2) FOR DETAILS. 00016/002 CCTB OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 8 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00017/001 PN XLATE TABLE SA # (OBSOLETE) D3T1 17 PN_XLATE_TABLE..SA.1 1 SEQ 80 1 PAGE UM JULY 30, 1973 23:01.33 00018/001 STOP/BLAST/GOOSE JOBS SA G S0563 D4T1 VLO FSNAME=STOP/BLAST/GOOSE_JOBS..SA.001(1) 27 5.0T1 26 STOP/BLAST/GOOSE_JOBS..SA.001 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:01.54 5.0T1 26 0 THE STOP, BLAST, AND GOOSE UMMPS JOB PROGRAMS. UNCHANGED SINCE DIST 1.0. 00018/002 STOP/BLAST/GOOSE JOBS OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00019/001A TASKS JOB SA G WSG:TASKS 5.0T1 27 TASKS_JOB..SA.001 1 LINE 80 9 PAGE UM WSG JULY 03, 1981 12:04:22 5.0T1 27 0 The job program version of *TASKS (145); contains the TSKFMT subroutine called by *TASKS (145) and SSRTN (413/1). Copies COPY:LLMPSEQU (087) and COPY:GLOBALS (1026/3). Assemble using COPY:SETPART (653). Source in lines 1,999. ************************************************************ D5.0 version, same as D4.3A: Changed for the device list vector addition to job table format. Install if and only if D5.0 or D4.3A UMMPS is installed. ************************************************************ 0 Referenced by comments of: 45/2, 145/1, 413/1, 647/1 00019/002A TASKS JOB OC G # (PART OF RESIDENT SYSTEM) UM WSG 0 Object part of Resident System (468) 00020/001 JOBDUMP SA G S0563 D4T1 VLO FSNAME=JOBDUMP..SA.001(1) 29 5.0T1 28 JOBDUMP..SA.001 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:03.31 5.0T1 28 0 UMMPS "JOBDUMP" JOB. USES SVC XJOBDUMP TO DUMP THE SPECIFIED JOB. UNCHANGED SINCE DIST 1.0. 00020/002 JOBDUMP OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00021/001A BROADCST SA G MTS:BROADCST(1000) 5.0T1 29 BROADCST..SA.001 1 LINE 72 8 PAGE UM OGDEN JULY 03, 1981 12:04:24 5.0T1 29 MTS.:BROADCST 0 JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR TO ALL USERS. HAS A SETA SYMBOL (&DC) WHICH CONTROLS CONDITIONAL ASSEMBLY 1 MON AUG 05/96 18:37:45 Page 9 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 OF CODE WHICH SENDS BROADCAST MESSAGES TO THE UM DATA CONCENTRATORS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MISC.MACROS (728). *********************************************************************************** D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT. IF THIS VERSION IS ASSEMBLED WITH &DC=1, INSTALL IF AND ONLY IF THE D4.3A OR D5.0 UMMPS IS INSTALLED. *********************************************************************************** 0 Referenced by comments of: 45/2 00021/002A BROADCST OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00021/003A BROADCST PGM OC G MTS:BROADCST(1,499) 5.0T1 30 BROADCST.PGM.OC.003 1 LINE 25 1 PAGE UM OGDEN JULY 03, 1981 12:04:33 5.0T1 30 0 A PROGRAM THAT CAN BE $RUN TO DO WHAT THE BROADCST JOB PROGRAM DOES. 00023/001A TPMOVE JOBS SA O TAPE:TPMOVE(1000) 5.0T1 31 TPMOVE_JOBS..SA.001 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 12:04:35 5.0T1 31 0 JOBS TO MOVE A TAPE (REW, WTM, BSF, BSR, FSF, FSR, ERG) THE WTM JOB DOESN'T USE A MODESET, SO THE DENSITY WILL BE UNPREDICTABLE ON DUAL-DENSITY TAPE DRIVES. ***************************************************************************** D5.0 changes: Changed to use the new tape unit check routines (787/15). Assemble with COPY:UC.MACROS (787/1). ***************************************************************************** 0 Referenced by comments of: 787/16 00023/002A TPMOVE JOBS OC O # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00024/001 ONLINE/OFFLINE SA G MTS:ON/OFFLINE(1,999) 5.0T1 32 ONLINE/OFFLINE..SA.001 1 LINE 80 8 PAGE UM MTA JULY 03, 1981 12:04:36 5.0T1 32 MTS.:ON/OFFLINE 0 JOB TO ONLINE OR OFFLINE A DEVICE, CONTROL UNIT, CHANNEL, OR CHANNEL-CONTROL UNIT PATH. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 1 MON AUG 05/96 18:37:45 Page 10 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 1. TO ONLINE/OFFLINE ONE OR MORE DEVICES: ONLINE|OFFLINE DEVNAME1 DEVNAME2 ... 2. TO ONLINE/OFFLINE A CONTROL UNIT: ONLINE|OFFLINE CU|ALL DEVNAME1|CU#1 DEVNAME2|CU#2 ... WHERE THE DEVNAMES MUST BE NAMES OF DEVICES THAT ARE ATTACHED TO ONLY ONE CONTROL UNIT, AND THE CU#S ARE CONTROL UNIT NUMBERS AS ASSIGNED IN TABLES. 3. TO ONLINE/OFFLINE A CONNECTION BETWEEN A CHANNEL AND A CONTROL UNIT: ONLINE|OFFLINE CHAN|CH|CHANNEL CHANAD DEVNAME1|CU#1 DEVNAME2|CU#2 ... WHERE CHANAD IS EITHER A CHANNEL NUMBER IN HEX (E.G. 0, 1, 2, ETC.) OR A CHANNEL ADDRESS IN HEX (E.G. 080, 1D0, ETC.). THE DEVNAMES MUST BE DEVICES ATTACHED TO THE SPECIFIED CHANNEL IN ONLY ONE WAY. 4. TO ONLINE/OFFLINE A CHANNEL: ONLINE|OFFLINE CHAN|CH|CHANNEL CHANAD WHERE CHANAD IS THE SAME AS IN 3. ABOVE. ONLY ONE CHANAD MAY BE GIVEN. 00024/002 ONLINE/OFFLINE OC O # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00025/001A QN/PN/TN JOBS SA G MTS.:PNQNTN(1,900) 5.0T1 33 QN/PN/TN_JOBS..SA.001 1 LINE 67 3 PAGE UM MTA AUG. 05, 1981 01:57:53 5.0T1 33 0 THREE ASSEMBLIES THAT LOAD THE 1403 UCS BUFFER FOR QN, PN, OR TN CHARACTER SETS. THE QN JOB CONTAINS A SUBROUTINE USED BY ALL THE REST OF THEM. FOR EXAMPLE, ENTERING "PN PTR1 ECHO" ON THE OPERATOR'S CONSOLE WILL LOAD THE UCS BUFFER FOR PTR1 WITH THE PN CHARACTER SET AND ECHO THE CHARACTERS TO THE PRINTER FOR VERIFICATION. UNCHANGED SINCE DIST 2.0. 00025/002 QN/PN/TN JOBS OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00026/001 CPCC JOB SA # (OBSOLETE) D3T1 25 CPCC_JOB..SA.1 1 SEQ 80 7 PAGE UM JULY 30, 1973 23:04.05 00031/001 GTZ # (OBSOLETE) D2.1 036 UM 00038/001A TSFO SA G TSF W032:TSFOSOU5.0 5.0T1 34 TSFO..SA.001 1 LINE 80 244 PAGE UM COWAN EMERY JULY 03, 1981 12:04:39 5.0T1 34 0 SOURCE FOR TSFO (TWENTY-SEVEN-FORTY-ONE), THE MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2703 (DEVICE TYPES TTY AND 2741) OR THE MEMOREX 1270 WITH AUTO-SPEED (DEVICE TYPE MRXA). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 9/1 1 MON AUG 05/96 18:37:45 Page 11 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00038/002A TSFO *2741RTN OC G *2741RTN 5.0T1 35 TSFO.*2741RTN.OC.002 1 LINE 80 17 PAGE UM COWAN EMERY JULY 03, 1981 12:04:55 5.0T1 35 *2741RTN 0 THIS IS THE TSFO OBJECT FILE WHICH IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL. THE "COM" CARD AT THE BEGINNING TELLS PISTLE TO DEFINE THE FOLLOWING SYMBOLS IN LCSYMBOL: TSFO ENTRY POINT FOR DEVICE TYPE 2741 TEL2 ENTRY POINT FOR DEVICE TYPE TTY MRXA ENTRY POINT FOR DEVICE TYPE MRXA 00038/003 TSFO *TTYRTN OC G *TTYRTN 5.0T1 36 TSFO.*TTYRTN.OC.003 1 LINE 30 1 PAGE UM COWAN EMERY JULY 03, 1981 12:04:57 5.0T1 36 *TTYRTN 0 THIS FILE CONSISTS OF: $CONTINUE WITH *2741RTN RETURN LDT TEL2 IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL TEL2 IS UNDEFINED IN LCSYMBOL. NORMALLY TEL2 IS DEFINED BY PISTLE AT IPL. 00038/004 TSFO *MRXARTN OC G *MRXARTN 5.0T1 37 TSFO.*MRXARTN.OC.004 1 LINE 30 1 PAGE UM COWAN EMERY JULY 03, 1981 12:04:58 5.0T1 37 *MRXARTN 0 THIS FILE CONSISTS OF: $CONTINUE WITH *2741RTN RETURN LDT MRXA IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL MRXA IS UNDEFINED IN LCSYMBOL. NORMALLY MRXA IS DEFINED BY PISTLE AT IPL. 00038/005 TSFO TRTBLGEN SA S0563 D4T1 VLO FSNAME=TSFO.TRTBLGEN.SA.005(1) 38 5.0T1 38 TSFO.TRTBLGEN.SA.005 1 LINE 80 11 PAGE UM COWAN EMERY JULY 27, 1977 21:28:26 5.0T1 38 0 PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE ALL NON-ASCII TABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY ARBITRARY TRANSLATE TABLES. LOGICAL I/O UNITS USED ARE: 1 DEFINITION OF NAMES OF CHARACTERS (038/9). 2 DEFINITION OF CHARACTER SET ON THE GOLFBALL, (038/10) AND (038/11) ARE EXAMPLES. 3 DEFINITION OF THE CODE SET BEING USED, EITHER (038/7) OR (038/8). SPRINT PRINTED OUTPUT AND ERROR COMMENTS. SPUNCH NEW TRANSLATE TABLES. THE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK. 0 Referenced by comments of: 38/7, 38/8, 38/9, 38/10, 38/11 1 MON AUG 05/96 18:37:45 Page 12 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00038/006 TSFO TRTBLGEN OC S0563 D4T1 VLO FSNAME=TSFO.TRTBLGEN.OC.006(1) 39 5.0T1 39 TSFO.TRTBLGEN.OC.006 1 LINE 80 3 PAGE UM COWAN EMERY JULY 27, 1977 21:28:28 5.0T1 39 00038/007 TSFO KBD2741PTTC D S0563 D4T1 VLO FSNAME=TSFO.KBD2741PTTC.D.007(1) 40 5.0T1 40 TSFO.KBD2741PTTC.D.007 1 LINE 41 1 PAGE UM COWAN EMERY JULY 27, 1977 21:28:30 5.0T1 40 0 SEE (038/5). THIS IS THE 2741 PTTC KEYBOARD DEFINITION. 0 Referenced by comments of: 38/5 00038/008 TSFO KBD2741CORR D S0563 D4T1 VLO FSNAME=TSFO.KBD2741CORR.D.008(1) 41 5.0T1 41 TSFO.KBD2741CORR.D.008 1 LINE 41 1 PAGE UM COWAN EMERY JULY 27, 1977 21:28:33 5.0T1 41 0 SEE (038/5). THIS IS THE 2741 CORRESPONDENCE KEYBOARD DEFINITION. 0 Referenced by comments of: 38/5 00038/009 TSFO EBCDDEFN D S0563 D4T1 VLO FSNAME=TSFO.EBCDDEFN.D.009(1) 42 5.0T1 42 TSFO.EBCDDEFN.D.009 1 LINE 32 3 PAGE UM COWAN EMERY JULY 27, 1977 21:28:35 5.0T1 42 0 SEE (038/5). THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT. 0 Referenced by comments of: 38/5 00038/010 TSFO GOLFPTTC D S0563 D4T1 VLO FSNAME=TSFO.GOLFPTTC.D.010(1) 43 5.0T1 43 TSFO.GOLFPTTC.D.010 1 LINE 72 3 PAGE UM COWAN EMERY JULY 27, 1977 21:28:37 5.0T1 43 0 SEE (038/5). THIS FILE CONTAINS DEFINITIONS OF PTTC GOLF BALLS. THE DEFINITONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER. CONTAINS "$CONTINUE WITH W032:GOLFPTTC" LINES. 0 Referenced by comments of: 38/5 00038/011 TSFO GOLFCORR D S0563 D4T1 VLO FSNAME=TSFO.GOLFCORR.D.011(1) 44 5.0T1 44 TSFO.GOLFCORR.D.011 1 LINE 72 8 PAGE UM COWAN EMERY JULY 27, 1977 21:28:39 5.0T1 44 0 SEE (038/5). THIS FILE CONTAINS DEFINITIONS OF CORRESPONDENCE GOLF BALLS. THE DEFINITIONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER. CONTAINS "$CONTINUE WITH W032:GOLFCORR" LINES. 0 Referenced by comments of: 38/5 00039/001 CASECONV SA S1430 4.3T1 VLO FSNAME=CASECONV..SA.001(1) 22 5.0T1 45 CASECONV..SA.001 1 LINE 80 1 PAGE UM MTS OGDEN APR. 05, 1980 13:40:36 5.0T1 45 0 TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE. ALL OTHER CHARACTERS ARE UNCHANGED. 1 MON AUG 05/96 18:37:45 Page 13 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00039/002 CASECONV OC # (PART OF RESIDENT SYSTEM) UM MTS OGDEN 0 Object part of Resident System (468) 00040/001A KEYWRD SCANNER SA G W164:KWIC(MIN,-1) 5.0T1 46 KEYWRD_SCANNER..SA.001 1 LINE 73 58 PAGE UM STERKEN JULY 03, 1981 12:05:25 5.0T1 46 0 BASE SOURCE FOR KEYWORD SCANNER. COPIES COPY:GLOBALS (1026/3). 0 Referenced by comments of: 40/5, 712/1, 798/31, 798/65, 798/79 00040/002A KEYWRD SCANNER UPDATE UC G W164:KWIC-4.2UPDS 5.0T1 47 KEYWRD_SCANNER.UPDATE.UC.002 1 LINE 85 31 PAGE UM STERKEN JULY 03, 1981 12:05:37 5.0T1 47 0 ******************************************************************************** D5.0 version: Update deck to yield the D5.0 source from the D4.2 base source. ******************************************************************************** 00040/003A KEYWRD SCANNER OBJECT OC G # (PART OF RESIDENT SYSTEM) UM STERKEN 0 Object part of Resident System (468) 00040/004A KEYWRD SCANNER CHANGES WF W164:FMT.KWSCAN 5.0T1 48 KEYWRD_SCANNER.CHANGES.WF.004 1 LINE 81 4 PAGE UM STERKEN JULY 03, 1981 12:05:40 5.0T1 48 0 ******************************************************************************** D5.0 version: Log of all KWSCAN changes since Distribution 4.3. ******************************************************************************** 00040/005A KEYWRD SCANNER SPELLING CORR SA G W164:KWIC.SPELL(1000) 5.0T1 49 KEYWRD_SCANNER.SPELLING_C.SA.005 1 LINE 70 3 PAGE UM STERKEN JULY 03, 1981 12:05:41 5.0T1 49 0 SPELLING CORRECTION SUBROUTINE USED BY MTS AND THE KEYWORD SCANNER (40/1). ALSO USER-CALLABLE. 00040/006A KEYWRD SCANNER SPELLING CORR OC G # (PART OF RESIDENT SYSTEM) UM STERKEN 0 Object part of Resident System (468) 00041/001 GETSPACE/FREESPAC SA # (OBSOLETE) D4T1 51 GETSPACE/FREESPAC.D4_MAST.SA.001 1 SEQ 80 28 PAGE UM JULY 27, 1977 21:31:43 0 Obsoleted by (732). 1 MON AUG 05/96 18:37:45 Page 14 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00042/001A MTS D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=MTS 5.0T4 274 MTS.D5.0_MASTER.SA.001 1 LINE 80 175 PAGE UM MTS HELFFRICH AUG. 21, 1981 06:03:51 5.0T10 178 0 MASTER SOURCE FOR MTS. COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND COPY:JOBSTA (413/9). ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND *SYSMAC. 0 Referenced by comments of: 42/2, 45/2, 344/1 00042/002A MTS UPDATE UC G MTS:MTSUPD 5.0T4 275 MTS.UPDATE.UC.002 1 LINE 77 65 PAGE UM MTS HELFFRICH AUG. 21, 1981 06:03:54 5.0T10 179 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=MTS. THE FOLLOWING IS A COMPLETE LIST OF THE MTS PIECES. THESE ARE THE PIECES WHICH REQUIRE THE DSECT, I.E. USE THE THEDSECT MACRO, AND ITS DEPENDENCIES TO ASSEMBLE. THE OBJECT FOR ALL THESE PIECES IS IN RAMROD. MTS (042) FSUB (635) CMDS (636) USUB (638) DSRS (637) DSRI (639) INFO (198) PLIM (464) LLXU (354) TIMT (539) RSF (578) GATE (4000) RNBR (651/11) CMDSTAT (531) DYS (513) IN ADDITION, PRINTDUMP SSCN (400/5) IS REASSEMBLED WHENEVER MTS IS REASSEMBLED. THE OBJECT SHOULD BE PLACED IN PRINTDUMP. ***************************************************************************** D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT. INSTALL IF AND ONLY IF D4.3A OR D5.0 UMMPS IS INSTALLED. ***************************************************************************** 0 Referenced by comments of: 344/1 00042/003A MTS OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 15 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00042/004A MTS ASM JOB C MTS:MTSASM 5.0T4 276 MTS.ASM_JOB.C.004 1 LINE 120 5 PAGE UM MTS HELFFRICH AUG. 09, 1981 22:32:28 5.0T10 180 0 USING THE D5.0 SOURCE AS BASE: AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES OF MTS 00042/005A MTS L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=MTS.LIST 5.0T4 277 MTS..L.005 1 LINE 133 619 PAGE UM MTS HELFFRICH AUG. 21, 1981 06:05:44 5.0T10 181 00042/006 MTS FILETYPE WORDS WF S0938 FSAVE2 VLO FSNAME=ADDNEWFILE(1) 5.0T4 278 MTS.FILETYPE_WORDS.WF.006 1 LINE 134 3 PAGE UM MTA MAY 28, 1975 22:49:52 5.0T10 182 0 WRITEUP DESCRIBING HOW TO ADD A NEW TYPE OF FILE TO MTS. 00042/007A MTS TSATBL WORDS WF MTS:TSATBL.W 5.0T4 279 MTS.TSATBL_WORDS.WF.007 1 LINE 113 2 PAGE UM MTA AUG. 21, 1981 06:06:29 5.0T10 183 0 WRITEUP DESCRIBING HOW TO USE THE TSATBL MACRO (IN COPY:MTS.MACROS). 00042/008A MTS CHANGES WF MTS:MTSCHANGES 5.0T4 280 MTS.CHANGES.WF.008 1 LINE 129 27 PAGE UM MTS AUG. 09, 1981 22:38:01 5.0T10 184 0 LIST OF CHANGES TO MTS SINCE D4.2. 00043/001 LCSYMBOL SA # (PART OF GATE) UM 0 Part of GATE (4000). 0 Referenced by comments of: 4000/1 00044/001A PDP SA G W034:PDP.S 5.0T1 50 PDP..SA.001 1 LINE 72 43 PAGE UM JWS JULY 03, 1981 12:08:02 5.0T1 50 MTS.:PDP.S 0 THE PAGING DRUM PROCESSOR. ASSEMBLY PARAMETERS ALLOW VERSION TO BE ASSEMBLED FOR EITHER 2305 FIXED HEAD FILE AND 3330 MIGRATION DISK, OR 2301 DRUM AND 3330 MIGRATION DISK AND/OR 3805 FIXED BLOCK PAGING DEVICE. DISTRIBUTED OBJECT IS FOR 2305/3330/3805 COMBINATION NORMALLY USED ON UM SYSTEM. COPIES COPY:PCBDSECT (470), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3). *********************************************************************************** D5.0 CHANGES, SOME ALREADY DISTRIBUTED ON D4.3A: CONTAINS DISK MANAGER CHANGES AND 3805 SUPPORT. *********************************************************************************** 1 MON AUG 05/96 18:37:45 Page 16 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 540/3, 769/1 00044/002A PDP 2305/3330 OBJ OC G # (PART OF RESIDENT SYSTEM) UM JWS 0 VERSION ASSEMBLED FOR USE WITH AN IBM 2305 MOD 1 OR MOD 2 FHF, 3805 FBA DEVICE, AND IBM 3330 (OR EQUIVALENT) PAGING DISK. Object part of Resident System (468) 00045/001A SUPERVISOR D5.0 MASTER SA G S0699 D3TAPE POSN=UMMPS.D5 5.0T4 281 SUPERVISOR.D5.0_MASTER.SA.001 1 LINE 80 356 PAGE UM MTA SEP. 04, 1981 02:51:26 5.0T10 185 0 MASTER SOURCE FOR D5.0 SUPERVISOR. COPIES COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), AND COPY:CMDAREADSECT (531/19). ASSEMBLE WITH COPY:SETPARM (653), COPY:MISC.MACROS (728), COPY:UMMPS.MACROS (045/14), AND COPY:DM.MACROS (769/19). 0 Referenced by comments of: 45/2, 540/3, 611/1, 769/1, 769/3, 769/11, 769/21, 799/1, 806/1, 1070/1, 1070/2, 1081/1 00045/002A SUPERVISOR UPDATE UC G MTA:UMMPS.U 5.0T4 282 SUPERVISOR.UPDATE.UC.002 1 LINE 117 159 PAGE UM MTA SEP. 04, 1981 02:51:33 5.0T10 186 MTA:UMMPS.U 0 UPDATE TO D4.0 UMMPS TO PRODUCE D5.0 UMMPS (45/1). *********************************************************************************** D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): 1. CHANGED TO ALLOW MORE THAN 11 DEVICES/JOB THROUGH THE ADDITION OF A DEVICE TABLE POINTER VECTOR WHICH IS DYNAMICALLY ALLOCATED IN SUPERVISOR STORAGE AND POINTED TO BY THE JOB TABLE. THIS WAS AN INCOMPATIBLE CHANGE. IF THE D4.3A OR D5.0 SUPERVISOR IS INSTALLED, THE FOLLOWING D4.3A (AND D5.0) COMPONENTS, WHICH REFER TO THE JOB TABLE, SHOULD ALSO BE INSTALLED: BROADCST (021) CONFIG (046) FESNIFF (731) FIDCQ (008) MOUNT (101) MTS (042) PRINTDUMP (400) SSRTN (413) TASKS (019) TASKSTAT (647) 2. CONTAINS DISK MANAGER CHANGES. 3. MUCH MORE! *********************************************************************************** 1 MON AUG 05/96 18:37:45 Page 17 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00045/003A SUPERVISOR OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00045/004A SUPERVISOR L S0707 UMMPSL POSN=UMMPS.LISTING.370 5.0T4 283 SUPERVISOR..L.004 1 LINE 133 837 PAGE UM MTA SEP. 04, 1981 02:53:11 5.0T10 187 00045/005A SUPERVISOR SVC WRITEUP WT S0683 OGDEN FSNAME=SVCDESCR 5.0T4 284 SUPERVISOR.SVC_WRITEUP.WT.005 1 LINE 122 41 PAGE UM OGDEN AUG. 05, 1981 01:30:38 5.0T10 188 0 TEXT/360 INPUT FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS. 00045/006A SUPERVISOR SVC WRITEUP PT MTS:SVC.W 5.0T4 285 SUPERVISOR.SVC_WRITEUP.PT.006 1 LINE 83 80 PAGE UM OGDEN AUG. 21, 1981 06:39:45 5.0T10 189 MTS.:SVC.W 0 COPY THIS TO A TN PRINTER @CC (NOT @MCC). 00045/007A SUPERVISOR TEST SVC STIO SA G MTA:TESTSTIO(1,999) 5.0T1 51 SUPERVISOR.TEST_SVC_STIO.SA.007 1 LINE 67 3 PAGE UM MTA JULY 03, 1981 12:08:19 5.0T1 51 0 TEST PROGRAM FOR SVC STIO TO BE USED IN THE VIRTUAL MACHINE. 00045/008A SUPERVISOR TEST SVC STIO OC G MTA:TESTSTIO(1000) 5.0T1 52 SUPERVISOR.TEST_SVC_STIO.OC.008 1 LINE 80 2 PAGE UM MTA JULY 03, 1981 12:08:20 5.0T1 52 00045/009 SUPERVISOR TEST PROT SVC SA O S0563 D4T1 VLO FSNAME=SUPERVISOR.TEST_PROT_SVC.SA.013(1) 73 5.0T1 53 SUPERVISOR.TEST_PROT_SVC.SA.009 1 LINE 80 5 PAGE UM MTA JULY 27, 1977 21:46:22 5.0T1 53 0 PROGRAM TO TEST THE SVCS RELATED TO PROTECTION. INTENDED TO BE USED WHILE RUNNING MTS IN THE VIRTUAL MACHINE. HALTS IF AN ERROR OCCURS. 00045/010 SUPERVISOR TEST PROT SVC OC O S0563 D4T1 VLO FSNAME=SUPERVISOR.TEST_PROT_SVC.OC.014(1) 74 5.0T1 54 SUPERVISOR.TEST_PROT_SVC.OC.010 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:46:25 5.0T1 54 00045/011 SUPERVISOR TEST SETSTK SA G S1143 D4.1T1 VLO FSNAME=SUPERVISOR.TEST_SETSTK.SA.013(1) 21 5.0T1 55 SUPERVISOR.TEST_SETSTK.SA.011 1 LINE 59 1 PAGE UM MTA MAY 13, 1978 17:01:22 5.0T1 55 0 PROGRAM TO TEST THE CHANGES TO THE SETSTK SVC. 00045/012 SUPERVISOR TEST SETSTK OC G S1143 D4.1T1 VLO FSNAME=SUPERVISOR.TEST_SETSTK.OC.014(1) 22 5.0T1 56 SUPERVISOR.TEST_SETSTK.OC.012 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 17:01:23 5.0T1 56 1 MON AUG 05/96 18:37:45 Page 18 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00045/013 SUPERVISOR DOCUMENTATION WF S1319 D4.2T1 VLO FSNAME=SUPERVISOR.DOCUMENTATION.WF.013(1) 14 5.0T1 57 SUPERVISOR.DOCUMENTATION.WF.013 1 LINE 94 6 PAGE UM MTA MAR. 26, 1979 02:15:12 5.0T1 57 0 SUMMARY OF SECTIONS OF UMMPS AND WHAT THEY DO. PREPARED FOR A LECTURE TO A GRADUATE PROGRAMMING CLASS. ************************************************************************************ D5.0 version: This is out-of-date. ************************************************************************************ 00045/014A SUPERVISOR MACROS SM G COPY:UMMPS.MACROS 5.0T4 286 SUPERVISOR.MACROS.SM.014 1 LINE 73 8 PAGE UM MTA AUG. 09, 1981 22:48:12 5.0T10 190 COPY:UMMPS.MACROS 0 *********************************************************************************** D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): CONTAINS DISK MANAGER CHANGES AND OTHER STUFF. *********************************************************************************** 0 Referenced by comments of: 45/1, 1070/3, 1081/1 00045/015A SUPERVISOR SCHEDULING DES WX W163:CPUSCHED 5.0T4 287 SUPERVISOR.SCHEDULING_DES.WX.015 1 LINE 89 6 PAGE UM OGDEN AUG. 21, 1981 06:41:53 5.0T10 191 0 Description of CPU Scheduling, the Big Job Mechanism, and the BJPMOD subroutine (650). 0 Referenced by comments of: 650/4 00046/001A CONFIG D5.0 MASTER SA G S0699 D3TAPE POSN=CONFIG.D5 5.0T4 288 CONFIG.D5.0_MASTER.SA.001 1 LINE 80 35 PAGE UM MTA AUG. 09, 1981 22:48:50 5.0T10 192 0 D5.0 MASTER SOURCE FOR CONFIGURATION PROGRAM. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CMDAREADSECT (531/19), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MISC.MACROS (728), AND COPY:SETPARM (653). 0 Referenced by comments of: 45/2, 1070/1, 1070/2 00046/002A CONFIG UPDATE UC G MTA:CONFIG.U 5.0T4 289 CONFIG.UPDATE.UC.002 1 LINE 76 18 PAGE UM MTA AUG. 09, 1981 22:48:50 5.0T10 193 MTA.:CONFIG.U 0 UPDATE TO D4.0 CONFIG TO PRODUCE CURRENT CONFIG. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: 1 MON AUG 05/96 18:37:45 Page 19 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 1) CONTAINS DISK MANAGER CHANGES. 2) JOB TABLE LENGTH CHANGED. INSTALL IF AND ONLY IF D4.3A (OR D5.0) UMMPS IS INSTALLED. MANY OTHER CHANGES WERE MADE, AS WELL. *********************************************************************************** 00046/003A CONFIG OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00046/004A CONFIG L S0707 UMMPSL POSN=CNFG.LISTING.370 5.0T4 290 CONFIG..L.004 1 LINE 133 172 PAGE UM MTA AUG. 09, 1981 22:49:01 5.0T10 194 00047/001 *CATALOG SA G # (OBSOLETE) D3T1 56 CATALOG..SA.1 1 LINE 80 8 PAGE UM JULY 30, 1973 23:26.21 0 Obsoleted by FILESTATUS (529). 00049/001 SDUMP SUBR SA S1319 D4.2T1 VLO FSNAME=SDUMP_SUBR..SA.001(1) 17 5.0T1 58 SDUMP_SUBR..SA.001 1 LINE 80 18 PAGE UM MTS HELFFRICH MAR. 26, 1979 02:16:17 5.0T1 58 0 MTS SUBROUTINE TO DUMP STORAGE AREAS. ALSO USED BY $DISPLAY COMMAND. COPIES *CNFGINFODSECT (654). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 463/1 00049/002 SDUMP SUBR OC # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00050/001A STATISTICS SAVE *STA C *STA 5.0T1 59 STATISTICS_SAVE.?STA.C.001 1 LINE 36 1 PAGE UM SALISBURY AUG. 05, 1981 01:58:16 5.0T1 59 *STA 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO RUN THE STATISTICS SAVE PROGRAM. INVOKED BY ENTERING "MTS *STA" ON THE OPERATOR'S CONSOLE. THE SAVE PROGRAM DUMPS THE MTS JOB STATISTICS FILE (*STATISTICS) TO TAPE. MTS WARNS THE OPERATOR WHEN *STATISTICS HAS REACHED 7500 RECORDS BY PRINTING "*** *STATISTICS IS FULL ***" ON THE CONSOLE. WHEN THIS HAPPENS, THE OPERATOR SHOULD IMMEDIATELY ENTER "MTS *STA" TO BEGIN THE SAVE PROGRAM BEFORE THE FILE IS REALLY FULL (JOBS WILL BEGIN TO "SNARK" IF THIS HAPPENS). 0 Referenced by comments of: 256/2 00050/002A STATISTICS SAVE *STI C *STI 5.0T1 60 STATISTICS_SAVE.?STI.C.002 1 LINE 59 1 PAGE UM SALISBURY AUG. 05, 1981 01:58:17 5.0T1 60 *STI 0 COMMAND FILE WHICH IS RUN AUTOMATICALLY AT SYSTEM INITIALIZATION BY INIT:INITCMD 1 MON AUG 05/96 18:37:45 Page 20 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (97/2). THIS CAUSES THE STATISTICS SAVE PROGRAM (50/3) TO CHECK FOR A SYSTEM CRASH DURING THE LAST STATISTICS SAVE. IF THERE WAS A CRASH, THE DIRECTORY (50/6) IS REPAIRED AND *STATISTICS (50/5) IS RESAVED. 0 Referenced by comments of: 97/2 00050/003A STATISTICS SAVE SAVE PGM SG G W044:NEWSTA.S 5.0T1 61 STATISTICS_SAVE.SAVE_PGM.SG.003 1 LINE 114 8 PAGE UM SALISBURY JULY 03, 1981 12:19:15 5.0T1 61 0 PROGRAM TO SAVE *STATISTICS (50/5) ON TAPE. THE USE OF THIS PROGRAM IS DESCRIBED IN THE MTS OPERATORS MANUAL (592). IN GENERAL, THIS PROGRAM SAVES *STATISTICS ON BOTH A MONTHLY AND A DAILY TAPE AND ENTERS THE SIGNON/SIGNOFF TIME RANGES INTO THE FILE SYS:DIRECTORY (50/6). 0 Referenced by comments of: 50/2, 50/6 00050/004A STATISTICS SAVE SAVE PGM OC G SYS:NEWSTA 5.0T1 62 STATISTICS_SAVE.SAVE_PGM.OC.004 1 LINE 80 10 PAGE UM SALISBURY AUG. 05, 1981 01:58:20 5.0T1 62 SYS.:NEWSTA 0 Contains a $CONTINUE WITH SYS:DIRLIB (742/5). 00050/005 STATISTICS SAVE *STATISTICS D # MTS:TST.STAT UM SALISBURY *STATISTICS 0 DATA FILE USED TO ACCUMULATE MTS SIGNOFF STATISTICS TO BE USED FOR BILLING AND JOB STATISTICS. MUST BE PERMITTED AS FOLLOWS: P/N, RW (PKEY=*SYS.STAT, PKEY=SYS.:STA, MTS.&PKEY=*SYS.STAT, ACC.&PKEY=ACC.:ACCMAINT), R (PKEY=INIT:INITCHK, ACC.) 0 Referenced by comments of: 50/2, 50/3, 97/2 00050/006 STATISTICS SAVE DIRECTORY D # MTS:TST.DIR UM SALISBURY SYS.:DIRECTORY 0 DIRECTORY OF STATISTICS FILES (*STATISTICS) THAT HAVE BEEN SAVED ON DAILY AND MONTHLY STATISTICS TAPES BY SYS:NEWSTA (50/3). THIS DIRECTORY MAY BE INTERROGATED BY THE TAPE DIRECTORY PROGRAM (742). 0 Referenced by comments of: 50/2, 50/3, 617/1 00050/007C STATISTICS SAVE WORK FILE D G # SYS.:STATISTICS UM SALISBURY SYS.:STATISTICS@E 00051/001 *WATFOR # (OBSOLETE) D2T2 011 UM 1 MON AUG 05/96 18:37:45 Page 21 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00052/001 *COINFLIP SA S0563 D4T1 VLO FSNAME=COINFLIP..SA.001(1) 85 5.0T1 63 COINFLIP..SA.001 1 SEQ 80 3 PAGE UM STERKEN JULY 30, 1973 23:27.01 5.0T1 63 0 DEMONSTRATION PROGRAM. 00052/002 *COINFLIP OE *COINFLIP 5.0T1 64 COINFLIP..OE.002 1 LINE 255 1 PAGE UM STERKEN JULY 03, 1981 12:19:24 5.0T1 64 *COINFLIP 00053/001A DISKDUMP SA G FILE:DISKDUMP(1000) 5.0T1 65 DISKDUMP..SA.001 1 LINE 72 6 PAGE UM HELFFRICH AUG. 05, 1981 01:58:25 5.0T1 65 0 PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS. DOESN'T CALL MTS FILE ROUTINES. ******************************************************************************** D5.0 CHANGES: UPDATED FOR 3350 SUPPORT. ******************************************************************************** 00053/002A DISKDUMP OC G FILE:DISKDUMP(1,900) 5.0T1 66 DISKDUMP..OC.002 1 LINE 80 3 PAGE UM HELFFRICH AUG. 05, 1981 01:58:28 5.0T1 66 FILE:DISKDUMP 00054/001 *TPS S # (OBSOLETE) D2T1 145 UM 00054/002 *TPS LL PTR UC S # (OBSOLETE) D2T1 146 UM 00055/001 *BCDEBCD SA G S0563 D4T1 VLO FSNAME=BCDEBCD..SA.001(1) 89 5.0T1 67 BCDEBCD..SA.001 1 SEQ 80 2 PAGE UM ENGLE JULY 30, 1973 23:27.43 5.0T1 67 0 TRANSLATE SCIENTIFIC 026 CODE TO EBCD. 00055/002 *BCDEBCD OC G *BCDEBCD 5.0T1 68 BCDEBCD..OC.002 1 LINE 80 1 PAGE UM ENGLE JULY 03, 1981 12:19:29 5.0T1 68 *BCDEBCD 00056/001 *2250RTN SA # (OBSOLETE) D4T1 91 2250RTN..SA. 1 SEQ 80 26 PAGE UM JULY 30, 1973 23:28.54 00057/001 *TABEDIT SA O S0563 D4T1 VLO FSNAME=TABEDIT..SA.001(1) 92 5.0T1 69 TABEDIT..SA.001 1 LINE 80 5 PAGE UM PIRKOLA JULY 27, 1977 21:50:27 5.0T1 69 0 PROGRAM TO REFORMAT RECORDS USING A SPECIFIED TAB CHARACTER AND TAB STOPS. COPIES *GDINFODSECT (594). ASSEMBLE USING *SYSMAC. 1 MON AUG 05/96 18:37:45 Page 22 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00057/002 *TABEDIT OC O *TABEDIT 5.0T1 70 TABEDIT..OC.002 1 LINE 80 2 PAGE UM PIRKOLA JULY 03, 1981 12:19:31 5.0T1 70 *TABEDIT 00058/001 *T7D S # (OBSOLETE) D2T1 142 UM 00059/001 *TCP S # (OBSOLETE) D2T1 141 UM 00060/001 JBRP S # (OBSOLETE) D2T1 144 UM 00061/001 *T9D S # (OBSOLETE) D2T1 143 UM 00063/001 *PTSKRTN SA # (OBSOLETE) D4T1 94 PTSKRTN..SA. 1 SEQ 80 14 PAGE UM JULY 30, 1973 23:30.18 00064/001A *OBJSCAN SA G SCAN W062:OBJSCAN.S(1) 5.0T1 71 OBJSCAN..SA.001 1 LINE 80 21 PAGE UM TIFFANY JULY 03, 1981 12:19:31 5.0T1 71 0 SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER RANGES FOR EACH MODULE ENCOUNTERED. COPIES *GDINFODSECT (594). *************************************************************************** D5.0 CHANGES: A NEW PARAMETER HAS BEEN ADDED: PRINT_CONTROLS=ON|OFF *************************************************************************** 00064/002A *OBJSCAN OE G *OBJSCAN 5.0T1 72 OBJSCAN..OE.002 1 SEQ 5162 4 PAGE UM TIFFANY JULY 03, 1981 12:19:35 5.0T1 72 *OBJSCAN 00065/001 *ASMERR S # (OBSOLETE) D2T1 323 UM 00066/001 *ASMG ASMGASM SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGASM 1 5.0T1 73 ASMG.ASMGASM.SA.001 1 SEQ 80 20 PAGE UM MTA JULY 03, 1981 12:20:47 5.0T1 73 0 COMPONENTS (066/1) THROUGH (066/67) ARE THE MASTER OS/360 SOURCE FOR THE G LEVEL ASSEMBLER (ASMG) VERSION 2, LEVEL 7 FROM THE UNIVERSITY OF WATERLOO. THE UPDATE DECK (066/71) WILL PRODUCE AN ASMG WHICH RUNS IN MTS. COMPONENT (066/72) CONTAINS COMMANDS TO UPDATE AND ASSEMBLE ASMG. ***************************************************************************** D5.0 version: Unless we hear any major complaints, this will be the final distribution of Assembler G. ***************************************************************************** 1 MON AUG 05/96 18:37:45 Page 23 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 66/1, 66/71, 66/72, 210/1, 1038/8 00066/002 *ASMG ASMGBUFF SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGBUFF 2 5.0T1 74 ASMG.ASMGBUFF.SA.002 1 SEQ 80 51 PAGE UM MTA JULY 03, 1981 12:20:50 5.0T1 74 00066/003 *ASMG ASMGFD SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFD 3 5.0T1 75 ASMG.ASMGFD.SA.003 1 SEQ 80 21 PAGE UM MTA JULY 03, 1981 12:20:52 5.0T1 75 00066/004 *ASMG ASMGFEX SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFEX 4 5.0T1 76 ASMG.ASMGFEX.SA.004 1 SEQ 80 19 PAGE UM MTA JULY 03, 1981 12:20:53 5.0T1 76 00066/005 *ASMG ASMGFI SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFI 5 5.0T1 77 ASMG.ASMGFI.SA.005 1 SEQ 80 13 PAGE UM MTA JULY 03, 1981 12:20:55 5.0T1 77 00066/006 *ASMG ASMGFPP SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFPP 6 5.0T1 78 ASMG.ASMGFPP.SA.006 1 SEQ 80 33 PAGE UM MTA JULY 03, 1981 12:20:57 5.0T1 78 00066/007 *ASMG ASMGF1 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF1 7 5.0T1 79 ASMG.ASMGF1.SA.007 1 SEQ 80 46 PAGE UM MTA JULY 03, 1981 12:21:00 5.0T1 79 00066/008 *ASMG ASMGF2 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2 8 5.0T1 80 ASMG.ASMGF2.SA.008 1 SEQ 80 89 PAGE UM MTA JULY 03, 1981 12:21:04 5.0T1 80 00066/009 *ASMG ASMGF2A SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2A 9 5.0T1 81 ASMG.ASMGF2A.SA.009 1 SEQ 80 60 PAGE UM MTA JULY 03, 1981 12:21:09 5.0T1 81 00066/010 *ASMG ASMGF3 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF3 10 5.0T1 82 ASMG.ASMGF3.SA.010 1 SEQ 80 62 PAGE UM MTA JULY 03, 1981 12:21:13 5.0T1 82 00066/011 *ASMG ASMGF7C SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7C 11 5.0T1 83 ASMG.ASMGF7C.SA.011 1 SEQ 80 26 PAGE UM MTA JULY 03, 1981 12:21:15 5.0T1 83 00066/012 *ASMG ASMGF7D SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7D 12 5.0T1 84 ASMG.ASMGF7D.SA.012 1 SEQ 80 25 PAGE UM MTA JULY 03, 1981 12:21:17 5.0T1 84 00066/013 *ASMG ASMGF7E SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7E 13 5.0T1 85 ASMG.ASMGF7E.SA.013 1 SEQ 80 26 PAGE UM MTA JULY 03, 1981 12:21:19 5.0T1 85 1 MON AUG 05/96 18:37:45 Page 24 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/014 *ASMG ASMGF7G SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7G 14 5.0T1 86 ASMG.ASMGF7G.SA.014 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 12:21:21 5.0T1 86 00066/015 *ASMG ASMGF7I SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7I 15 5.0T1 87 ASMG.ASMGF7I.SA.015 1 SEQ 80 15 PAGE UM MTA JULY 03, 1981 12:21:22 5.0T1 87 00066/016 *ASMG ASMGF7L SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7L 16 5.0T1 88 ASMG.ASMGF7L.SA.016 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 12:21:23 5.0T1 88 00066/017 *ASMG ASMGF7N SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7N 17 5.0T1 89 ASMG.ASMGF7N.SA.017 1 SEQ 80 13 PAGE UM MTA JULY 03, 1981 12:21:25 5.0T1 89 00066/018 *ASMG ASMGF7S SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7S 18 5.0T1 90 ASMG.ASMGF7S.SA.018 1 SEQ 80 8 PAGE UM MTA JULY 03, 1981 12:21:26 5.0T1 90 00066/019 *ASMG ASMGF7V SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7V 19 5.0T1 91 ASMG.ASMGF7V.SA.019 1 SEQ 80 21 PAGE UM MTA JULY 03, 1981 12:21:28 5.0T1 91 00066/020 *ASMG ASMGF7X SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7X 20 5.0T1 92 ASMG.ASMGF7X.SA.020 1 SEQ 80 36 PAGE UM MTA JULY 03, 1981 12:21:30 5.0T1 92 00066/021 *ASMG ASMGF8A SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8A 21 5.0T1 93 ASMG.ASMGF8A.SA.021 1 SEQ 80 27 PAGE UM MTA JULY 03, 1981 12:21:32 5.0T1 93 00066/022 *ASMG ASMGF8C SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8C 22 5.0T1 94 ASMG.ASMGF8C.SA.022 1 SEQ 80 6 PAGE UM MTA JULY 03, 1981 12:21:34 5.0T1 94 00066/023 *ASMG ASMGF8D SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8D 23 5.0T1 95 ASMG.ASMGF8D.SA.023 1 SEQ 80 23 PAGE UM MTA JULY 03, 1981 12:21:36 5.0T1 95 00066/024 *ASMG ASMGF8I SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8I 24 5.0T1 96 ASMG.ASMGF8I.SA.024 1 SEQ 80 15 PAGE UM MTA JULY 03, 1981 12:21:38 5.0T1 96 00066/025 *ASMG ASMGF8L SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8L 25 5.0T1 97 ASMG.ASMGF8L.SA.025 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 12:21:39 5.0T1 97 00066/026 *ASMG ASMGF8M SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8M 26 5.0T1 98 ASMG.ASMGF8M.SA.026 1 SEQ 80 27 PAGE UM MTA JULY 03, 1981 12:21:41 5.0T1 98 1 MON AUG 05/96 18:37:45 Page 25 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/027 *ASMG ASMGF8N SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8N 27 5.0T1 99 ASMG.ASMGF8N.SA.027 1 SEQ 80 13 PAGE UM MTA JULY 03, 1981 12:21:42 5.0T1 99 00066/028 *ASMG ASMGF8P SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8P 28 5.0T1 100 ASMG.ASMGF8P.SA.028 1 SEQ 80 22 PAGE UM MTA JULY 03, 1981 12:21:44 5.0T1 100 00066/029 *ASMG ASMGF8S SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8S 29 5.0T1 101 ASMG.ASMGF8S.SA.029 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 12:21:45 5.0T1 101 00066/030 *ASMG ASMGF8V SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8V 30 5.0T1 102 ASMG.ASMGF8V.SA.030 1 SEQ 80 21 PAGE UM MTA JULY 03, 1981 12:21:47 5.0T1 102 00066/031 *ASMG ASMGIS00 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS00 31 5.0T1 103 ASMG.ASMGIS00.SA.031 1 SEQ 80 11 PAGE UM MTA JULY 03, 1981 12:21:49 5.0T1 103 00066/032 *ASMG ASMGIS09 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS09 33 5.0T1 104 ASMG.ASMGIS09.SA.032 1 SEQ 80 9 PAGE UM MTA JULY 03, 1981 12:21:51 5.0T1 104 00066/033 *ASMG ASMGIS20 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS20 35 5.0T1 105 ASMG.ASMGIS20.SA.033 1 SEQ 80 6 PAGE UM MTA JULY 03, 1981 12:21:52 5.0T1 105 00066/034 *ASMG ASMGIS44 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS44 36 5.0T1 106 ASMG.ASMGIS44.SA.034 1 SEQ 80 9 PAGE UM MTA JULY 03, 1981 12:21:54 5.0T1 106 00066/035 *ASMG ASMGIS60 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS60 37 5.0T1 107 ASMG.ASMGIS60.SA.035 1 SEQ 80 10 PAGE UM MTA JULY 03, 1981 12:21:55 5.0T1 107 00066/036 *ASMG ASMGIS67 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS67 38 5.0T1 108 ASMG.ASMGIS67.SA.036 1 SEQ 80 11 PAGE UM MTA JULY 03, 1981 12:21:56 5.0T1 108 00066/037 *ASMG ASMGIS70 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS70 39 5.0T1 109 ASMG.ASMGIS70.SA.037 1 SEQ 80 12 PAGE UM MTA JULY 03, 1981 12:21:58 5.0T1 109 00066/038 *ASMG ASMGIS71 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS71 40 5.0T1 110 ASMG.ASMGIS71.SA.038 1 SEQ 80 12 PAGE UM MTA JULY 03, 1981 12:21:59 5.0T1 110 00066/039 *ASMG ASMGRTA SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGRTA 41 5.0T1 111 ASMG.ASMGRTA.SA.039 1 SEQ 80 5 PAGE UM MTA JULY 03, 1981 12:22:01 5.0T1 111 1 MON AUG 05/96 18:37:45 Page 26 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/040 *ASMG ASMGUP SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGUP 42 5.0T1 112 ASMG.ASMGUP.SA.040 1 SEQ 80 20 PAGE UM MTA JULY 03, 1981 12:22:02 5.0T1 112 00066/041 *ASMG APARM SA G S0032 ASMGOS 'ASMGOS 27' POSN=APARM 43 5.0T1 113 ASMG.APARM.SA.041 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 12:22:03 5.0T1 113 00066/042 *ASMG ASMGSET SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGSET 44 5.0T1 114 ASMG.ASMGSET.SA.042 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 12:22:04 5.0T1 114 00066/043 *ASMG COMMENCE SM G S0032 ASMGOS 'ASMGOS 27' POSN=COMMENCE 45 5.0T1 115 ASMG.COMMENCE.SM.043 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:05 5.0T1 115 00066/044 *ASMG COMMON SM G S0032 ASMGOS 'ASMGOS 27' POSN=COMMON 46 5.0T1 116 ASMG.COMMON.SM.044 1 SEQ 80 18 PAGE UM MTA JULY 03, 1981 12:22:07 5.0T1 116 00066/045 *ASMG DCBOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=DCBOUT 47 5.0T1 117 ASMG.DCBOUT.SM.045 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:08 5.0T1 117 00066/046 *ASMG DEFCHAR SM G S0032 ASMGOS 'ASMGOS 27' POSN=DEFCHAR 48 5.0T1 118 ASMG.DEFCHAR.SM.046 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 12:22:09 5.0T1 118 00066/047 *ASMG ELZERO SM G S0032 ASMGOS 'ASMGOS 27' POSN=ELZERO 49 5.0T1 119 ASMG.ELZERO.SM.047 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:10 5.0T1 119 00066/048 *ASMG EMSG SM G S0032 ASMGOS 'ASMGOS 27' POSN=EMSG 50 5.0T1 120 ASMG.EMSG.SM.048 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:11 5.0T1 120 00066/049 *ASMG ENTRYOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=ENTRYOUT 51 5.0T1 121 ASMG.ENTRYOUT.SM.049 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:12 5.0T1 121 00066/050 *ASMG EPTR SM G S0032 ASMGOS 'ASMGOS 27' POSN=EPTR 52 5.0T1 122 ASMG.EPTR.SM.050 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:12 5.0T1 122 00066/051 *ASMG FDIMEN SM G S0032 ASMGOS 'ASMGOS 27' POSN=FDIMEN 53 5.0T1 123 ASMG.FDIMEN.SM.051 1 SEQ 80 9 PAGE UM MTA JULY 03, 1981 12:22:14 5.0T1 123 00066/052 *ASMG FINISH SM G S0032 ASMGOS 'ASMGOS 27' POSN=FINISH 54 5.0T1 124 ASMG.FINISH.SM.052 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:15 5.0T1 124 1 MON AUG 05/96 18:37:45 Page 27 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/053 *ASMG GETT SM G S0032 ASMGOS 'ASMGOS 27' POSN=GETT 55 5.0T1 125 ASMG.GETT.SM.053 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:16 5.0T1 125 00066/054 *ASMG INST SM G S0032 ASMGOS 'ASMGOS 27' POSN=INST 56 5.0T1 126 ASMG.INST.SM.054 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 12:22:17 5.0T1 126 00066/055 *ASMG INSTSET SM G S0032 ASMGOS 'ASMGOS 27' POSN=INSTSET 57 5.0T1 127 ASMG.INSTSET.SM.055 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 12:22:18 5.0T1 127 00066/056 *ASMG LIST1EQU SM G S0032 ASMGOS 'ASMGOS 27' POSN=LIST1EQU 58 5.0T1 128 ASMG.LIST1EQU.SM.056 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 12:22:20 5.0T1 128 00066/057 *ASMG MESSAGE SM G S0032 ASMGOS 'ASMGOS 27' POSN=MESSAGE 59 5.0T1 129 ASMG.MESSAGE.SM.057 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:20 5.0T1 129 00066/058 *ASMG PRINTOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=PRINTOUT 60 5.0T1 130 ASMG.PRINTOUT.SM.058 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:21 5.0T1 130 00066/059 *ASMG PRNT SM G S0032 ASMGOS 'ASMGOS 27' POSN=PRNT 61 5.0T1 131 ASMG.PRNT.SM.059 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:22 5.0T1 131 00066/060 *ASMG PUTT SM G S0032 ASMGOS 'ASMGOS 27' POSN=PUTT 62 5.0T1 132 ASMG.PUTT.SM.060 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:23 5.0T1 132 00066/061 *ASMG RD SM G S0032 ASMGOS 'ASMGOS 27' POSN=RD 63 5.0T1 133 ASMG.RD.SM.061 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:24 5.0T1 133 00066/062 *ASMG SETR SM G S0032 ASMGOS 'ASMGOS 27' POSN=SETR 64 5.0T1 134 ASMG.SETR.SM.062 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:25 5.0T1 134 00066/063 *ASMG SNAPDATA SM G S0032 ASMGOS 'ASMGOS 27' POSN=SNAPDATA 65 5.0T1 135 ASMG.SNAPDATA.SM.063 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:26 5.0T1 135 00066/064 *ASMG SNAPOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=SNAPOUT 66 5.0T1 136 ASMG.SNAPOUT.SM.064 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 12:22:27 5.0T1 136 00066/065 *ASMG TIMEOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=TIMEOUT 67 5.0T1 137 ASMG.TIMEOUT.SM.065 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:28 5.0T1 137 1 MON AUG 05/96 18:37:45 Page 28 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/066 *ASMG TRANSLAT SM G S0032 ASMGOS 'ASMGOS 27' POSN=TRANSLAT 68 5.0T1 138 ASMG.TRANSLAT.SM.066 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:29 5.0T1 138 00066/067 *ASMG UPEMSG SM G S0032 ASMGOS 'ASMGOS 27' POSN=UPEMSG 69 5.0T1 139 ASMG.UPEMSG.SM.067 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 12:22:30 5.0T1 139 0 Referenced by comments of: 66/1, 66/71, 66/72 00066/068 *ASMG ASMGMOD SA G S0003 FSWATF FSNAME=ASMGMOD 5.0T1 140 ASMG.ASMGMOD.SA.068 1 LINE 80 1 PAGE UM MTA SEP. 22, 1978 00:38:16 5.0T1 140 0 SOURCE FOR THE MODULE LIST INDICATING FROM WHICH FILE TO LOAD EACH PART OF ASMG. 0 Referenced by comments of: 66/69 00066/069 *ASMG ASMGMOD OC G # (PART OF ASMGMOD) D4T1 165 ASMG.ASMGMOD.OC.069 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:53:37 0 Part of ASMGMOD (66/68). 00066/070 *ASMG GTIMEST OC G S0563 D4T1 VLO FSNAME=ASMG.GTIMEST.OC.070(1) 166 5.0T1 141 ASMG.GTIMEST.OC.070 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:53:39 5.0T1 141 0 OBJECT FOR A SUBROUTINE TO GET THE USER'S REMAINING EXECUTION TIME. SOURCE FOR THIS SUBROUTINE HAS BEEN LOST, BUT COULD BE REGENERATED IF REALLY NECESSARY. 00066/071 *ASMG ASMGUPD UU G S0003 FSWATF FSNAME=ASMGUPD 5.0T1 142 ASMG.ASMGUPD.UU.071 1 LINE 83 40 PAGE UM MTA SEP. 22, 1978 00:33:53 5.0T1 142 0 UPDATE DECK TO CONVERT ALL OF THE OS VERSION OF ASMG, (066/1) THROUGH (066/67), TO RUN IN MTS. 0 Referenced by comments of: 66/1, 66/72 00066/072 *ASMG ASMGJOB C S0003 FSWATF FSNAME=ASMGJOB 5.0T1 143 ASMG.ASMGJOB.C.072 1 LINE 124 1 PAGE UM MTA SEP. 22, 1978 00:39:08 5.0T1 143 0 THIS JOB UPDATES AND ASSEMBLES THE G ASSEMBLER FOR MTS. THE FOLLOWING FILES AND TAPES ARE USED: ASMGUPD - UPDATE DECK FOR ALL OF ASMG (066/71) ASMGSET - EMPTIED AND WRITTEN WITH A COPY SECTION ASMGMACROS - EMPTIED AND WRITTEN WITH A MACRO LIBRARY ASMGERRORS - EMPTIES AND WRITTEN WITT SERCOM OUTPUT OF THE ASSEMBLY S0032 VOL=ASMGOS - MASTER TAPE, CONTAINS CURRENT OS VERSION OF ASMG, (066/1) THROUGH (066/67) ***NOTE*** DATA SET NAMES ON THIS TAPE MUST NOT BE CHANGED SINCE ASMGUPD CONTAINS %POSN COMMANDS TO POSITION THE TAPE. S0416 VOL=UPDATE - WRITTEN WITH NEW SOURCE FOR ASMG (MTS VERSION) S0111 VOL=ASMGL - WRITTEN WITH LISTINGS FOR ASMG (MTS VERSION) ASMG - EMPTIED AND WRITTEN WITH OBJECT FOR ASMG (MTS VERSION) 1 MON AUG 05/96 18:37:45 Page 29 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE LISTINGS ARE NOT PRINTED. A SEPARATE JOB IS REQUIRED. 0 Referenced by comments of: 66/1, 66/74 00066/073 *ASMG ASMGJOB2 C S0003 FSWATF FSNAME=ASMGJOB2 5.0T1 144 ASMG.ASMGJOB2.C.073 1 LINE 112 1 PAGE UM MTA SEP. 22, 1978 00:39:29 5.0T1 144 0 COMMAND FILE TO ASSEMBLE SELECTED PARTS OF ASMG. 00066/074 *ASMG ASMGLINK C S0003 FSWATF FSNAME=ASMGLINK 5.0T1 145 ASMG.ASMGLINK.C.074 1 LINE 112 1 PAGE UM MTA SEP. 22, 1978 00:40:31 5.0T1 145 0 COMMAND FILE TO PUT OUTPUT OF ASMGJOB (066/72) INTO PRIVATE FILES FOR TESTING. 0 Referenced by comments of: 66/75 00066/075 *ASMG ASMGCOPY C S0003 FSWATF FSNAME=ASMGCOPY 5.0T1 146 ASMG.ASMGCOPY.C.075 1 LINE 26 2 PAGE UM MTA SEP. 22, 1978 00:41:07 5.0T1 146 0 COMMAND FILE TO MOVE THE OUTPUT OF ASMGLINK (066/74) INTO THE PUBLIC FILES. 00066/076 *ASMG *ASMG OE G *ASMG 5.0T1 147 ASMG.*ASMG.OE.076 1 SEQ 8849 3 PAGE UM MTA JULY 03, 1981 12:29:17 5.0T1 147 *ASMG 0 THE OBJECT FOR ASMG IS STORED IN 18 SEQUENTIAL, PUBLIC FILES IN MTS (066/76) THROUGH (066/92). THE FILES AND THEIR CONTENTS BY MODULE NAME ARE: FILE ENTRY POINT CONTENTS ---- ----------- -------- *ASMG ASMGASM ASMGASM,ASMGBUFF,ASMGMOD *ASMBLR ASMGASM (EXACTLY THE SAME CONTENTS AS *ASMG) ETC:ASMGFPP ASMGFPP ASMGFPP,ASMGFD,ASMGFEX ETC:ASMGF1 ASMGF1 ASMGF1 ETC:ASMGF2 ASMGF2 ASMGF2,ASMGF2A ETC:ASMGF3 ASMGF3 ASMGF3 ETC:ASMGF7 ASMGF7 ASMGF7C,ASMGF7G,,ASMGF7L,ASMGF7S,ASMGFI, ASMGF7D,ASMGF7E,ASMGF7I,ASMGF7N,ASMGF7V,ASMGF7X ETC:ASMGF8 ASMGF8 ASMGF8A,ASMGF8C,ASMGF8L,ASMGF8N,ASMGF8P, ASMGF8S,ASMGF8V,ASMGF8D,ASMGF8I,ASMGF8M ETC:ASMGIS00 ASMGIS00 ETC:ASMGIS09 ASMGIS09 ETC:ASMGIS20 ASMGIS20 ETC:ASMGIS44 ASMGIS44 ETC:ASMGIS60 ASMGIS60 ETC:ASMGIS67 ASMGIS67 ETC:ASMGIS70 ASMGIS70 ETC:ASMGIS71 ASMGIS71 ETC:ASMGRTA ASMGRTA ASMGRTA ETC:ASMGUP ASMGUP ASMGUP 1 MON AUG 05/96 18:37:45 Page 30 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 66/76 00066/077 *ASMG ASMGFPP OE G ETC:ASMGFPP 5.0T1 148 ASMG.ASMGFPP.OE.077 1 SEQ 12064 5 PAGE UM MTA JULY 03, 1981 12:29:18 5.0T1 148 ETC.:ASMGFPP 00066/078A *ASMG ASMGF1 OE G ETC:ASMGF1 5.0T1 149 ASMG.ASMGF1.OE.078 1 SEQ 9088 3 PAGE UM MTA JULY 03, 1981 12:29:19 5.0T1 149 ETC.:ASMGF1 0 Contains a patch to change the default macro library to *ASMGSYSMAC (066/95). 00066/079 *ASMG ASMGF2 OE G ETC:ASMGF2 5.0T1 150 ASMG.ASMGF2.OE.079 1 SEQ 20784 6 PAGE UM MTA JULY 03, 1981 12:29:20 5.0T1 150 ETC.:ASMGF2 00066/080 *ASMG ASMGF3 OE G ETC:ASMGF3 5.0T1 151 ASMG.ASMGF3.OE.080 1 SEQ 8286 3 PAGE UM MTA JULY 03, 1981 12:29:22 5.0T1 151 ETC.:ASMGF3 00066/081 *ASMG ASMGF7 OE G ETC:ASMGF7 5.0T1 152 ASMG.ASMGF7.OE.081 1 SEQ 12904 6 PAGE UM MTA JULY 03, 1981 12:29:23 5.0T1 152 ETC.:ASMGF7 00066/082 *ASMG ASMGF8 OE G ETC:ASMGF8 5.0T1 153 ASMG.ASMGF8.OE.082 1 SEQ 9552 6 PAGE UM MTA JULY 03, 1981 12:29:24 5.0T1 153 ETC.:ASMGF8 00066/083 *ASMG ASMGIS00 OE G ETC:ASMGIS00 5.0T1 154 ASMG.ASMGIS00.OE.083 1 SEQ 2220 1 PAGE UM MTA JULY 03, 1981 12:29:25 5.0T1 154 ETC.:ASMGIS00 00066/084 *ASMG ASMGIS09 OE G ETC:ASMGIS09 5.0T1 155 ASMG.ASMGIS09.OE.084 1 SEQ 1834 1 PAGE UM MTA JULY 03, 1981 12:29:26 5.0T1 155 ETC.:ASMGIS09 00066/085 *ASMG ASMGIS20 OE G ETC:ASMGIS20 5.0T1 156 ASMG.ASMGIS20.OE.085 1 SEQ 1199 1 PAGE UM MTA JULY 03, 1981 12:29:27 5.0T1 156 ETC.:ASMGIS20 00066/086 *ASMG ASMGIS44 OE G ETC:ASMGIS44 5.0T1 157 ASMG.ASMGIS44.OE.086 1 SEQ 1866 1 PAGE UM MTA JULY 03, 1981 12:29:27 5.0T1 157 ETC.:ASMGIS44 00066/087 *ASMG ASMGIS60 OE G ETC:ASMGIS60 5.0T1 158 ASMG.ASMGIS60.OE.087 1 SEQ 2074 1 PAGE UM MTA JULY 03, 1981 12:29:28 5.0T1 158 ETC.:ASMGIS60 00066/088 *ASMG ASMGIS67 OE G ETC:ASMGIS67 5.0T1 159 ASMG.ASMGIS67.OE.088 1 SEQ 2160 1 PAGE UM MTA JULY 03, 1981 12:29:29 5.0T1 159 ETC.:ASMGIS67 1 MON AUG 05/96 18:37:45 Page 31 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/089 *ASMG ASMGIS70 OE G ETC:ASMGIS70 5.0T1 160 ASMG.ASMGIS70.OE.089 1 SEQ 2372 1 PAGE UM MTA JULY 03, 1981 12:29:30 5.0T1 160 ETC.:ASMGIS70 00066/090 *ASMG ASMGIS71 OE G ETC:ASMGIS71 5.0T1 161 ASMG.ASMGIS71.OE.090 1 SEQ 2380 1 PAGE UM MTA JULY 03, 1981 12:29:30 5.0T1 161 ETC.:ASMGIS71 00066/091 *ASMG ASMGRTA OE G ETC:ASMGRTA 5.0T1 162 ASMG.ASMGRTA.OE.091 1 SEQ 1280 1 PAGE UM MTA JULY 03, 1981 12:29:31 5.0T1 162 ETC.:ASMGRTA 00066/092 *ASMG ASMGUP OE G ETC:ASMGUP 5.0T1 163 ASMG.ASMGUP.OE.092 1 SEQ 3538 1 PAGE UM MTA JULY 03, 1981 12:29:32 5.0T1 163 ETC.:ASMGUP 0 Referenced by comments of: 66/76 00066/093 *ASMG USER'S GUIDE P S0881 ASMG27 POSN=ASMG.GUIDE.USERS 3 5.0T1 164 ASMG.USER'S_GUIDE.P.093 1 SEQ 80 41 PAGE UM MTA JULY 03, 1981 12:30:00 5.0T1 164 0 WATERLOO USER'S GUIDE FOR OS/360 ASMG. COPY TO A TN PRINTER @MCC. SEE MTS VOLUME 14 (665) FOR MTS ASMG USER'S GUIDE. 00066/094 *ASMG IMPLEMENTATION P S0881 ASMG27 POSN=ASMG.GUIDE.IMPL 4 5.0T1 165 ASMG.IMPLEMENTATION.P.094 1 SEQ 78 27 PAGE UM MTA JULY 03, 1981 12:30:03 5.0T1 165 0 IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG. COPY TO A TN PRINTER @MCC. 00066/095 *ASMG *ASMGSYSMAC SM G *ASMGSYSMAC 5.0T1 166 ASMG.*ASMGSYSMAC.SM.095 1 LINE 80 81 PAGE UM MTA JULY 03, 1981 12:30:04 5.0T1 166 *ASMGSYSMAC 0 *ASMGSYSMAC IS THE ASMG VERSION OF *SYSMAC. 0 Referenced by comments of: 66/78, 225/1 00067/001A FILE SAVE MAIN SA G FSAV RSTR:FILESAVE(1000) 5.0T1 167 FILE_SAVE.MAIN.SA.001 1 LINE 80 34 PAGE UM HELFFRICH AUG. 05, 1981 02:00:54 5.0T1 167 RSTR:FILESAVE 0 THIS COMPONENT IS A COMBINATION OF WHAT WERE PREVIOUSLY TWO COMPONENTS, FILE SAVE (067) AND FILE SAVE - ONLINE (716). (067/1) IS THE MTS FILESAVE, I.E., DISK BACKUP, PROGRAM. THIS PROGRAM IS RUN ONCE PER WEEK AT UM TO PRODUCE A BACKUP OF ALL DISK FILES IN CASE OF HARDWARE OR SOFTWARE PROBLEMS. ON OTHER DAYS, A PARTIAL FILESAVE IS PRODUCED USING THE ONLINE FILE SAVE PROGRAM (067/19) OF THOSE FILES WHICH HAVE CHANGED SINCE THE PREVIOUS FILE SAVE WAS RUN. THE TAPES GENERATED BY THE FULL SAVE ARE COPIED, SEE (610) AND SAVED FOR SEVERAL MONTHS. SIX WEEK INTERVALS OF THESE FULL TAPES ARE SAVED FOR SEVERAL YEARS. WE HAVE FOUND THAT THIS PROCEDURE, WHICH INCLUDES STORING THE FULL TAPES IN ANOTHER BUILDING, SEEMS TO PROVIDE A REASONABLE BACKUP. 1 MON AUG 05/96 18:37:45 Page 32 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS IS THE SOURCE FOR THE FILESAVE MAIN PROGRAM WHICH ACCEPTS THE FOLLOWING PARAMETERS SEPARATED BY BLANKS: ALL -- MEANS ALL FILES WILL BE SAVED CHG -- MEANS ONLY CHANGED FILES WILL BE SAVED DIR -- MEANS THAT *RESTORE (712) DIRECTORY ENTRIES ARE TO BE GENERATED ASSEMBLE USING COPY:FILE.MACROS (482/45) AND THE FILESAVE MACROS (067/31). ******************************************************************************** D5.0 CHANGES: ALREADY DISTRIBUTED ON D4.3A: 1. USES NEW SAVEFILE SUBROUTINE (067/2). 2. WRITES ON SPRINT RATHER THAN FDNAME READ FROM UNIT 0. 3. PRODUCES ERROR MESSAGES ON SERCOM AS WELL AS SPRINT. 4. FORMAT OF SOME MESSAGES HAS BEEN CHANGED. 5. NUMBER OF FILES PER STREAM WHICH CAN BE SAVED WAS DECREASED TO 35000 DUE TO EXHAUSTION OF VM AT PREVIOUS 40000 VALUE. 6. VTOCREAD ERROR RETURN WILL CAUSE THE PROPER VOLUME TO BE REPORTED IN ERROR. NEW FOR D5.0: UDPATED FOR USE WITH THE DISK MANAGER (769). ******************************************************************************** 0 Referenced by comments of: 67/1, 67/4, 92/1, 610/1, 712/1, 716/1 00067/002A FILE SAVE SAVEFILE SA G SFIL RSTR:SAVEFILE(1000) 5.0T1 168 FILE_SAVE.SAVEFILE.SA.002 1 LINE 80 11 PAGE UM HELFFRICH AUG. 05, 1981 02:00:59 5.0T1 168 RSTR:SAVEFILE 0 ASSEMBLE USING COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728) AND *SYSMAC. ******************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: THIS VERSION TAKES A TYPE E DSCB ADDRESS AND CALLS THE RESIDENT BUILDPM ROUTINE TO BUILD THE PAGE MAP BUFFER FOR THE FILE. ******************************************************************************** 0 Referenced by comments of: 67/1, 67/4, 67/19, 67/20, 67/40, 502/8 00067/003A FILE SAVE VTOCRD SA G VTOC RSTR:VTOCREAD(1000) 5.0T1 169 FILE_SAVE.VTOCRD.SA.003 1 LINE 80 14 PAGE UM HELFFRICH AUG. 05, 1981 02:01:02 5.0T1 169 RSTR:VTOCREAD 0 SUBROUTINE TO READ ENTIRE VTOC OF DISK VOLUME. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/45). *************************************************************************** 1 MON AUG 05/96 18:37:45 Page 33 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 D5.0 changes: Revised calling sequence for the Disk Manager (769). *************************************************************************** 0 Referenced by comments of: 67/4, 67/40, 104/116, 682/20, 682/36, 682/44, 682/45, 1021/9, 1030/1, 1030/3 00067/004A FILE SAVE OBJECT OC G RSTR:FILESAVEOBJ 5.0T1 170 FILE_SAVE.OBJECT.OC.004 1 LINE 7428 14 PAGE UM HELFFRICH AUG. 05, 1981 02:01:04 5.0T1 170 RSTR:FILESAVEOBJ 0 OBJECT FROM (067/1), (067/2), (067/3), AND (067/21). 00067/005A FILE SAVE RESTART SA G RSTR:LFS.RESTART(1000) 5.0T1 171 FILE_SAVE.RESTART.SA.005 1 LINE 72 3 PAGE UM HELFFRICH AUG. 05, 1981 02:01:06 5.0T1 171 RSTR:LFS.RESTART 0 PROGRAM USED BY WEEKLY SAVE (067/10) TO CAUSE THE WEEKLY TAPES TO BE RE-USED AFTER THEIR CYCLE PERIOD HAS EXPIRED. THIS PERIOD IS CURRENTLY 6 WEEKS. THIS HAS TO BE DONE BECAUSE IF FILESAVE CRASHES WITH PART OF A SET OF TAPES WRITTEN, IT WOULD NOT REUSE THE PARTIALLY WRITTEN TAPES OF THE SET WHEN RESTARTED. THIS PROGRAM IS A KLUDGE. ASSEMBLE WITH THE FILE SAVE MACROS (067/31). ********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: IF RUN WITH PAR=NNNN, THE PROGRAM WILL MARK THE TAPES IN THE SERIES NNNN, E.G. 1200, TO BE USED FOR FILESAVE. THIS IS TO ALLOW A FULL FILE SAVE TO BE RUN AT A NON-STANDARD TIME AND STILL USE THE PROPER SET OF TAPES. THIS PROGRAM WILL ALSO WARN OF AN ATTEMPT TO RUN THE WEEKLY FILE SAVE BEFORE THE STANDARD TIME. ********************************************************************************** 0 Referenced by comments of: 67/7, 67/8, 67/21, 67/23 00067/006A FILE SAVE RESTART OC G RSTR:LFS.RESTART(1,999) 5.0T1 172 FILE_SAVE.RESTART.OC.006 1 LINE 80 3 PAGE UM HELFFRICH AUG. 05, 1981 02:01:06 5.0T1 172 00067/007A FILE SAVE SPECIAL START C *SVS 5.0T1 173 FILE_SAVE.SPECIAL_START.C.007 1 LINE 25 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:08 5.0T1 173 RSTR:*SVS 0 OPERATOR FILE WHICH USES FEATURES OF LFS.RESTART (067/5) TO RUN A SPECIAL FULL FILE SAVE AT A NON-STANDARD TIME OF THE WEEK. CONTAINS $SOURCE RSTR:SVSTART (067/8). 0 Referenced by comments of: 67/8, 67/21, 67/23 00067/008A FILE SAVE SVSTART C RSTR:SVSTART 5.0T1 174 FILE_SAVE.SVSTART.C.008 1 LINE 68 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:09 5.0T1 174 RSTR:SVSTART 0 COMMAND AND DATA FILE WHICH IS $SOURCED TO BY *SVW (067/10) AND *SVS (067/7). 1 MON AUG 05/96 18:37:45 Page 34 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS FILE STARTS UP THE SEVERAL -- CURRENTLY 7 -- STREAMS WHICH ARE USED FOR THE FULL FILE SAVE. IT USES LFS.RESTART (067/5) TO CAUSE THE WEEKLY TAPES TO BE REUSED AFTER THEIR CYCLE PERIOD HAS EXPIRED. 0 Referenced by comments of: 67/7, 67/10 00067/009A FILE SAVE FSS C MTS:TST.FSS 5.0T1 175 FILE_SAVE.FSS.C.009 1 LINE 98 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:10 5.0T1 175 RSTR:FSS 0 COMMAND AND DATA FILE $SOURCED TO BY THE VARIOUS STREAMS: *SV1, *SV2, *SV3, *SV4, *SV5, *SV6, AND *SV7. THIS FILE CONTAINS THE DISK VOLUME SERIAL NUMBERS OF THE VOLUMES TO BE SAVED BY EACH STREAM. IN ADDITION, THE LETTER "C" MAY FOLLOW EACH VOLUME SERIAL NUMBER TO INDICATE WHETHER THE LABEL FOR EACH TAPE IS TO BE CHECKED. THIS FILE WILL HAVE TO BE CHANGED BY EACH INSTALLATION TO REFLECT THE NUMBER OF DISK PACKS IN USE AND THEIR VOLUME SERIAL NUMBERS. THE FILE "FSLOG" IS USED TO LOG THE FILESAVE START/STOP TIMES. 00067/010A FILE SAVE WEEKLY START C *SVW 5.0T1 176 FILE_SAVE.WEEKLY_START.C.010 1 LINE 23 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:11 5.0T1 176 RSTR:*SVW 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE WEEKLY FULL FILESAVE PROCESS. ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN. THIS FILE WILL $SOURCE TO RSTR:SVSTART (067/8) WHICH WILL START UP 6 MORE STREAMS -- *SV2, *SV3, *SV4, *SV5, *SV6, AND *SV7 -- AUTOMATICALLY SO THAT THE FULL SAVE IS DONE IN 7 STREAMS. EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED, DEPENDING ON THE NUMBER OF DISK DRIVES AND CONTROLS, AND TAPE DRIVES AND CONTROLS WHICH ARE AVAILABLE. INVOKED BY ENTERING "MTS *SVW" ON THE OPERATORS CONSOLE. 0 Referenced by comments of: 67/5, 67/8 00067/011 FILE SAVE WKLY STREAM #1 C *SV1 5.0T1 177 FILE_SAVE.WKLY_STREAM_#1.C.011 1 LINE 19 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:11 5.0T1 177 RSTR:*SV1 0 THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART WEEKLY FULL STREAM #1. 00067/012 FILE SAVE WKLY STREAM #2 C *SV2 5.0T1 178 FILE_SAVE.WKLY_STREAM_#2.C.012 1 LINE 19 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:12 5.0T1 178 RSTR:*SV2 0 COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #2. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #2. 00067/013 FILE SAVE WKLY STREAM #3 C *SV3 5.0T1 179 FILE_SAVE.WKLY_STREAM_#3.C.013 1 LINE 19 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:13 5.0T1 179 RSTR:*SV3 0 COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #3. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #3. 1 MON AUG 05/96 18:37:45 Page 35 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00067/014 FILE SAVE WKLY STREAM #4 C *SV4 5.0T1 180 FILE_SAVE.WKLY_STREAM_#4.C.014 1 LINE 19 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:14 5.0T1 180 RSTR:*SV4 0 COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #4. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #4. 00067/015 FILE SAVE WKLY STREAM #5 C *SV5 5.0T1 181 FILE_SAVE.WKLY_STREAM_#5.C.015 1 LINE 19 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:15 5.0T1 181 RSTR:*SV5 0 COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #5. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #5. 00067/016 FILE SAVE WKLY STREAM #6 C *SV6 5.0T1 182 FILE_SAVE.WKLY_STREAM_#6.C.016 1 LINE 19 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:15 5.0T1 182 RSTR:*SV6 0 COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #6. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #6. 00067/017C FILE SAVE WKLY STREAM #7 C *SV7 5.0T1 183 FILE_SAVE.WKLY_STREAM_#7.C.017 1 LINE 19 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:16 5.0T1 183 RSTR:*SV7 0 COMMAND FILE FOR WEEKLY FULL FILESAVE STREAM #7. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #7. 00067/018A FILE SAVE *SAV C *SAV 5.0T1 184 FILE_SAVE.?SAV.C.018 1 LINE 89 1 PAGE UM HELFFRICH AUG. 05, 1981 02:01:17 5.0T1 184 RSTR:*SAV 0 COMMAND FILE TO START THE ONLINE FILESAVE AND MERGE OPERATIONS. INVOKED BY ENTERING "MTS *SAV" ON THE OPERATOR'S CONSOLE. This file also contains commands to purge the journal log file. It may need to be changed according to local installation preference. 0 Referenced by comments of: 67/42 00067/019A FILE SAVE SAVE PGM SA G OLFS RSTR:DSF(1000) 5.0T1 185 FILE_SAVE.SAVE_PGM.SA.019 1 LINE 80 22 PAGE UM HELFFRICH AUG. 05, 1981 02:01:18 5.0T1 185 RSTR:DSF 0 SOURCE FOR THE ONLINE FILESAVE. THIS PROGRAM SAVES THE CHANGED FILES IN THE SYSTEM AND CREATES FILES WITH NAMES OF THE FORM "FILEDIRNN", WHERE NN=01,02,..., WHICH CONSTITUTE THE INPUT TO THE MERGE PROGRAM (067/23). THE MERGE PROGRAM ULTIMATELY MAKES THE SAVE TIMES FOR THE FILES SAVED BY THE ONLINE FILE SAVE AVAILABLE TO *RESTORE (712). CALLS SAVEFILE (067/2) AND TAPEOUT (067/21). ASSEMBLE USING COPY:FILE.MACROS (482/45) AND THE FILESAVE MACROS (067/31). NOTE: THE DIRECTORY FILES RSTR:FILEDIR.MAS, RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR MUST BE PERMITTED READ TO PKEY=*RESTORE, UNLIM TO RSTR, AND RW TO PKEY=DEADUCATDES. 1 MON AUG 05/96 18:37:45 Page 36 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ******************************************************************************* D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: THE DAILY SAVE PROGRAM TIMESTAMPS ITS OUTPUT AND SENDS IT TO ANY OF THREE LOCATIONS: THE OPERATOR, A JOURNAL LOG FILE, OR A PERMANENT LOG FILE. EITHER OF THE LOG FILES MAY BE PURGED BASED ON THE MESSAGE TIME STAMP. TO HELP GUARD AGAINST CORRUPTED FDS IN THE CATALOG, THE SAVE PROGRAM ATTEMPTS TO LOCK THE "SPECIAL FILES" IT RECOGNIZES. IF THE ATTEMPT FAILS, THE FILE IS SAVED ANYWAY. WHEN A PGNT OCCURS IN THE SAVE PROGRAM, AN SVC READ IS DONE FROM THE CONSOLE TO ALLOW THE OPERATORS TO DUMP THE JOB. PREVIOUSLY, AN UNSOLICITED JOB DUMP WAS ISSUED. ******************************************************************************* 0 Referenced by comments of: 67/1, 67/20, 67/21, 67/40, 671/1 00067/020A FILE SAVE SAVE PGM OC G RSTR:OLFSOBJ 5.0T1 186 FILE_SAVE.SAVE_PGM.OC.020 1 LINE 80 17 PAGE UM HELFFRICH AUG. 05, 1981 02:01:23 5.0T1 186 RSTR:OLFSOBJ 0 CONTAINS OBJECT OF (67/2), (067/19), AND (067/21). 00067/021A FILE SAVE TAPEOUT SA G TPDO RSTR:TAPEOUT(1000) 5.0T1 187 FILE_SAVE.TAPEOUT.SA.021 1 LINE 80 25 PAGE UM HELFFRICH AUG. 05, 1981 02:01:25 5.0T1 187 RSTR:TAPEOUT 0 SUBROUTINE CALLED BY THE SAVE PROGRAM (067/19) TO WRITE A FILESAVE TAPE WHICH MAINTAINS A TAPE DIRECTORY FILE NAMED "TAPEDIR". IT WILL ALSO CREATE AND PERMIT A TAPE DIRECTORY IF ONE DOES NOT EXIST. THE TAPES HAVE RACK NUMBERS OF THE FORM FSNNNN, WHERE NNNN=0001-0999 FOR DAILY -- CHANGE ONLY -- SAVES =1000-1999 FOR WEEKLY FULL SAVES =2000- FOR DEADFILE SAVES -- NOT CURRENTLY USED AT UM HAS ASSEMBLY EQU'S FOR SETTING THE SAVE CYCLE PERIOD -- CURRENTLY 42 DAYS. ASSEMBLE USING THE FILE SAVE MACROS (067/31). ******************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CHANGED TO IMPLEMENT NEW TAPE DIRECTORY FORMAT REQUIRED BY SPECIAL FULL FILE SAVES, SEE (067/5) AND (067/7). ALSO FIXES MISCELLANEOUS BUGS RELATING TO TAPES WITH READ AND WRITE ERROR HISTORIES. ******************************************************************************** 0 Referenced by comments of: 67/4, 67/19, 67/20, 67/23, 502/8 1 MON AUG 05/96 18:37:45 Page 37 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00067/022A FILE SAVE TAPEOUT OC G RSTR:TAPEOUT(1,999) 5.0T1 188 FILE_SAVE.TAPEOUT.OC.022 1 LINE 80 9 PAGE UM HELFFRICH AUG. 05, 1981 02:01:44 5.0T1 188 00067/023A FILE SAVE MERGE PGM SA G MERG RSTR:MERGE(1000) 5.0T1 189 FILE_SAVE.MERGE_PGM.SA.023 1 LINE 80 17 PAGE UM HELFFRICH AUG. 05, 1981 02:01:52 5.0T1 189 RSTR:MERGE 0 PROGRAM TO MERGE FILEDIRNN FILES WITH THE CURRENT FILEDIR.MAS MAKING NOTE OF FILES WHICH NO LONGER EXIST AND REMOVING ENTRIES WHICH ARE NO LONGER AVAILABLE, ACCORDING TO TAPEDIR, BECAUSE THE TAPE HAS BEEN REUSED. IT ALSO DESTROYS FILEDIRNN FILES. FILEDIR.NEW IS USED SO THAT THE MERGE PROCESS IS "CRASH- PROOF" -- IT MAY BE STOPPED AND RESTARTED. CALLS NON-RESIDENT COPIES (IN CASE PISTLE HAS NOT BEEN RUN) OF THE TIME (360) AND JULGRG (522) SUBROUTINES AND THE CHKFILE SUBROUTINE (682/39). PROGRAM WILL CREATE AND PERMIT THE APPROPRIATE FILESAVE DIRECTORY FILES -- RSTR:FILEDIR.MAS AND RSTR:FILEDIR.NEW -- IF THEY DON'T ALREADY EXIST. COPIES *CNFGINFODSECT (654) AND *GFINFODSECT (593). ASSEMBLE USING THE FILESAVE MACROS (067/31). ***************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: 1) CHANGED TO RECOGNIZE NEW TAPE DIRECTORY FORMAT, SEE (067/5), (067/7), AND (067/21). 2) CHANGED TO DELETE DUPLICATE FILE ENTRIES. 3) CHANGED TO CREATE DIRECTORY OF EQUAL SIZE TO ANY OTHER DIRECTORY WHICH MAY EXIST. ***************************************************************************** 0 Referenced by comments of: 67/19, 682/39 00067/024A FILE SAVE MERGE PGM OC G RSTR:MERGE(1,999) 5.0T1 190 FILE_SAVE.MERGE_PGM.OC.024 1 LINE 80 5 PAGE UM HELFFRICH AUG. 05, 1981 02:01:55 5.0T1 190 0 CONTAINS TWO "ALI" RECORDS AND "$CONTINUE WITH SEG2:CFE+SEG2:TIME+FILE:CHKFILE+COPY:SYSDEFS+*LIBRARY". 00067/025A FILE SAVE TAPEDIRLIST SA G TPDL RSTR:TAPEDIRLIST(1000) 5.0T1 191 FILE_SAVE.TAPEDIRLIST.SA.025 1 LINE 80 4 PAGE UM HELFFRICH AUG. 05, 1981 02:01:57 5.0T1 191 RSTR:TAPEDIRLIST 0 PROGRAM TO LIST THE "TAPEDIR" FILE IN READABLE FORM. ASSEMBLE USING THE FILESAVE MACROS (067/31). 00067/026A FILE SAVE TAPEDIRLIST OC G RSTR:TAPEDIRLIST(1,999) 5.0T1 192 FILE_SAVE.TAPEDIRLIST.OC.026 1 LINE 80 2 PAGE UM HELFFRICH AUG. 05, 1981 02:01:58 5.0T1 192 00067/027A FILE SAVE REGENERATE SA G RSTR:REGENERATE(1000) 5.0T1 193 FILE_SAVE.REGENERATE.SA.027 1 LINE 72 4 PAGE UM HELFFRICH AUG. 05, 1981 02:01:59 5.0T1 193 RSTR:REGENERATE 0 PROGRAM TO REGENERATE LOST PORTIONS OF THE MASTER FILE AND TAPE DIRECTORY FILES IF A DISK DISASTER, OR SOMETHING ELSE, DESTROYS THEM. ASSEMBLE USING THE FILESAVE 1 MON AUG 05/96 18:37:45 Page 38 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 MACRO LIBRARY (067/31). **************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CHANGED TO UNLOCK THE DIRECTORY FILES IT IS BUILDING PERIODICALLY SO AS TO ALLOW MULTIPLE STREAMS TO BE RUN SIMULTANEOUSLY. **************************************************************************** 00067/028A FILE SAVE REGENERATE OC G RSTR:REGENERATE(1,998) 5.0T1 194 FILE_SAVE.REGENERATE.OC.028 1 LINE 80 3 PAGE UM HELFFRICH AUG. 05, 1981 02:02:00 5.0T1 194 0 CONTAINS A "$CONTINUE WITH *ENDJUNK" CARD. 00067/029A FILE SAVE *FSM C *FSM 5.0T1 195 FILE_SAVE.?FSM.C.029 1 LINE 28 1 PAGE UM HELFFRICH AUG. 05, 1981 02:02:00 5.0T1 195 RSTR:*FSM 0 COMMAND FILE TO START THE ONLINE FILESAVE MERGE OPERATION ONLY. INVOKED BY ENTERING "MTS *FSM" ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 97/2 00067/030 FILE SAVE WRITEUP WF RSTR:OLFS.W 5.0T1 196 FILE_SAVE.WRITEUP.WF.030 1 LINE 102 5 PAGE UM HELFFRICH AUG. 05, 1981 02:02:01 5.0T1 196 RSTR:OLFS.W 0 INFORMAL DOCUMENTATION FOR THE ONLINE FILE SAVE. 00067/031A FILE SAVE MACROS SM G RSTR:FS.MACROS 5.0T1 197 FILE_SAVE.MACROS.SM.031 1 LINE 72 3 PAGE UM HELFFRICH AUG. 05, 1981 02:02:02 5.0T1 197 RSTR:FS.MACROS 0 FILESAVE MACRO LIBRARY. 0 Referenced by comments of: 67/1, 67/5, 67/19, 67/21, 67/23, 67/25, 67/27, 67/42, 610/1, 671/1, 671/3, 682/37, 712/1, 712/2 00067/032 FILE SAVE RECOVER SA G RSTR:RECOVER(1001) 5.0T1 198 FILE_SAVE.RECOVER.SA.032 1 LINE 72 1 PAGE UM HELFFRICH AUG. 05, 1981 02:02:03 5.0T1 198 RSTR:RECOVER 0 SMALL PROGRAM TO COPY AND RE-LABEL A SET OF WEEKLY FILESAVE TAPES ERRONEOUSLY WRITTEN BY FILESAVE. 00067/033 FILE SAVE RECOVER OC G RSTR:RECOVER(1,999) 5.0T1 199 FILE_SAVE.RECOVER.OC.033 1 LINE 80 2 PAGE UM HELFFRICH AUG. 05, 1981 02:02:04 5.0T1 199 1 MON AUG 05/96 18:37:45 Page 39 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00067/034 FILE SAVE FILEDIR.MAS D # RSTR:FILEDIR.MAS UM HELFFRICH RSTR:FILEDIR.MAS@E 0 ONLINE FILESAVE FILE DIRECTORY FILE. 00067/035 FILE SAVE FILEDIR.NEW D # RSTR:FILEDIR.NEW UM HELFFRICH RSTR:FILEDIR.NEW@E 0 ONLINE FILESAVE FILE DIRECTORY FILE. 00067/036 FILE SAVE TAPEDIR D # RSTR:TAPEDIR UM HELFFRICH RSTR:TAPEDIR@E 0 ONLINE FILESAVE TAPE DIRECTORY FILE. 00067/037 FILE SAVE FSLOG D # RSTR:FSLOG UM HELFFRICH RSTR:FSLOG@E 0 FILESAVE PERMANENT LOG FILE. 00067/038A FILE SAVE FSJOURNAL D # RSTR:FSJOURNAL UM HELFFRICH RSTR:FSJOURNAL@E 0 FILESAVE JOURNAL LOG FILE. 00067/039 FILE SAVE RECOVERING WF RSTR:RECOVERING 5.0T1 200 FILE_SAVE.RECOVERING.WF.039 1 LINE 106 3 PAGE UM HELFFRICH AUG. 05, 1981 02:02:45 5.0T1 200 RSTR:RECOVERING 0 WRITEUP DESCRIBING HOW TO REGENERATE THE FILE SAVE DIRECTORIES IF THEY ARE DAMAGED AS A RESULT OF A DISK DISASTER. 00067/040 FILE SAVE TESTER SA O RSTR:FSTEST(1000) 5.0T1 201 FILE_SAVE.TESTER.SA.040 1 LINE 46 1 PAGE UM HELFFRICH AUG. 05, 1981 02:02:46 5.0T1 201 0 SERIES OF OBJECT MODULES TO BE CONCATENATED TO ONLINE FILESAVE (067/19) TO DEBUG IT. $CONTINUES WITH SAVEFILE (067/2) + VTOCREAD (067/3) + COPY:SYSDEFS (579/3). 00067/041 FILE SAVE TESTER OC O RSTR:FSTEST(1,999) 5.0T1 202 FILE_SAVE.TESTER.OC.041 1 LINE 80 1 PAGE UM HELFFRICH AUG. 05, 1981 02:02:47 5.0T1 202 RSTR:FSTEST 00067/042 FILE SAVE TAPE PREVIEW SA O RSTR:TAPEPREVIEW(1000) 5.0T1 203 FILE_SAVE.TAPE_PREVIEW.SA.042 1 LINE 72 5 PAGE UM HELFFRICH AUG. 05, 1981 02:02:47 5.0T1 203 0 PROGRAM INVOKED BY *SAV (067/18) TO PRINT OUT THE NEXT "N" ONLINE FILESAVE TAPES TO BE USED. TAKES THE NUMBER "N" IN THE PARAMETER FIELD, WHERE "N" 1 MON AUG 05/96 18:37:45 Page 40 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 IS THE NUMBER OF TAPES TO PRINT OUT. ASSEMBLE USING THE FILE SAVE MACROS (067/31). 00067/043 FILE SAVE TAPE PREVIEW OC O RSTR:TAPEPREVIEW(1,999) 5.0T1 204 FILE_SAVE.TAPE_PREVIEW.OC.043 1 LINE 80 3 PAGE UM HELFFRICH AUG. 05, 1981 02:02:50 5.0T1 204 RSTR:TAPEPREVIEW 00069/001 *DRAW SA # (OBSOLETE) D4T1 210 DRAW..SA. 1 SEQ 80 13 PAGE UM JULY 30, 1973 23:38.23 00071/001 LISTSTAT SA G W030:LISTSTAT(1,999) 5.0T1 205 LISTSTAT..SA.001 1 LINE 73 8 PAGE UM LIFT JULY 03, 1981 12:35:11 5.0T1 205 0 PROGRAM TO PRINT *STATISTICS RECORDS. WILL READ RECORDS ON SCARDS FROM A FILE OR BLOCKED TAPE, SUCH AS PRODUCED BY *CMB. PRINTS OUTPUT ON SPRINT. ALTERNATE SUBROUTINE ENTRY LIST#, USED BY RSCAN (707), LETS CALLER SPECIFY I/O FDUBS INSTEAD OF SCARDS/SPRINT. PROGRAM MUST BE RUN WITH PROT=OFF. IF A RATE NUMBER APPEARS IN THE *STATISTICS RECORD AND THE JOB WAS RUN AFTER THE BEGINNING OF 1974, THE MTS GETRATES SUBROUTINE (651/9) IS CALLED TO OBTAIN A SET OF RATES USED TO PRINT THE COST OF THE JOB. OTHERWISE, RATES ARE OBTAINED FROM ASSEMBLED-IN TABLES. FOR THIS REASON, THE PROGRAM WILL HAVE TO BE REASSEMBLED AT EACH INSTALLATION SINCE THE RATE TABLES WILL BE WRONG. ASSEMBLE USING COPY:MTS.MACROS (344/3). COPIES COPY:RATEVEC (651/3). SOURCE IN LINES 1,999. 0 Referenced by comments of: 355/1, 707/3, 753/4 00071/002 LISTSTAT OC G W035:LISTSTAT 5.0T1 206 LISTSTAT..OC.002 1 SEQ 80 3 PAGE UM LIFT JULY 03, 1981 12:35:13 5.0T1 206 00072/001 *FORTEDIT SA O # (OBSOLETE) D3T1 170 FORTEDIT..SA.1 1 SEQ 80 20 PAGE UM JULY 30, 1973 23:39.26 00073/001 *DSK C *DSK 5.0T1 207 DSK..C.001 1 LINE 32 1 PAGE UM HELFFRICH JULY 03, 1981 12:35:13 5.0T1 207 FILE:*DSK 0 COMMAND FILE TO RUN SYS:DSK (073/5). INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE. 0 Referenced by comments of: 644/1, 682/4 00073/002 *DSK *DSO C *DSO 5.0T1 208 DSK.*DSO.C.002 1 LINE 21 1 PAGE UBC HOGG HELFFRICH JULY 03, 1981 12:35:14 5.0T1 208 *DSO 0 COMMAND FILE INVOKED BY ENTERING "MTS *DSO" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "SYS" AND RUNS SYS:DSK (073/5) WITH OUTPUT TO A TEMPORARY FILE, THE END OF WHICH (SHOWING THE TOTAL DISK SPACE USED AND AVAILABLE) IS THEN COPIED TO THE OPERATOR'S CONSOLE. 1 MON AUG 05/96 18:37:45 Page 41 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00073/003A *DSK BASE SOURCE SA G FILE:DSKMAN(-10000,-1) 5.0T1 209 DSK.BASE_SOURCE.SA.003 1 LINE 80 6 PAGE UM HELFFRICH JULY 03, 1981 12:35:15 5.0T1 209 FILE:DSKMAN 0 THIS PROGRAM IS A FRONT-END TO THE VOLREL SUBROUTINE, IN (482/4). IT ALLOWS THE OPERATORS TO MANIPULATE INFORMATION IN THE SYSTEM'S DSKTAB ENTRIES, WHICH AFFECT THE AVAILABILITY AND CERTAIN ATTRIBUTES OF THE MTS PUBLIC VOLUMES. VOLUMES CAN BE ADDED TO, REMOVED FROM, OR TEMPORARILY "FORGOTTEN" BY THE SYSTEM. ADDITIONALLY, THEY CAN ALSO BE DESIGNATED TO HAVE THE FOLLOWING CHARACTERISTICS: NO CATALOG PERMITTED; NO FILES CREATED ON THEM UNLESS EXPLICITLY REQUESTED; OR NO FILES CREATED ON THEM UNLESS SPACE IS UNAVAILABLE ELSEWHERE. THE PROGRAM WILL ALSO DISPLAY INFORMATION IN THE DSKTAB ENTRIES WHICH ARE OF OPERATOR INTEREST, E.G., THE NUMBER OF FREE PAGES ON EACH DISK. ASSEMBLE USING COPY:FILE.MACROS (482/45). SEE (682/4) FOR A WRITEUP. 0 Referenced by comments of: 73/4 00073/004A *DSK UPDATE UC G FILE:DSKMAN(1000) 5.0T1 210 DSK.UPDATE.UC.004 1 LINE 68 3 PAGE UM HELFFRICH JULY 03, 1981 12:35:16 5.0T1 210 0 UPDATE DECK TO BE APPLIED TO (073/3) TO YIELD CURRENT SOURCE. 00073/005A *DSK DSKMAN OC G SYS:DSK 5.0T1 211 DSK.DSKMAN.OC.005 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 12:35:18 5.0T1 211 SYS.:DSK 0 Referenced by comments of: 73/1, 73/2 00074/001 *2250EDIT SA # (OBSOLETE) D4T1 216 2250EDIT..SA. 1 SEQ 80 29 PAGE UM JULY 30, 1973 23:39.56 00076/001 RESERVE DISK *RSV C *RSV 5.0T1 212 RESERVE_DISK.*RSV.C.001 1 LINE 45 1 PAGE UM MTA JULY 03, 1981 12:35:19 5.0T1 212 *RSV 0 COMMAND FILE TO RUN THE DISK RESERVE PROGRAM (076/3). INVOKED BY ENTERING "MTS *RSV" ON OPERATOR'S CONSOLE. 00076/002 RESERVE DISK RESERVE PGM SA G S0563 D4T1 VLO FSNAME=RESERVE_DISK.RESERVE_PGM.SA.002(1) 218 5.0T1 213 RESERVE_DISK.RESERVE_PGM.SA.002 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:40.00 5.0T1 213 0 PROGRAM TO EXECUTE A RESERVE COMMAND FOR A DISK PACK. USED ONLY WITH 2844 OR 2 TAIL SWITCH. 00076/003 RESERVE DISK RESERVE PGM OC G SYS:RSV 5.0T1 214 RESERVE_DISK.RESERVE_PGM.OC.003 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 12:35:24 5.0T1 214 SYS.:RSV 0 Referenced by comments of: 76/1 1 MON AUG 05/96 18:37:45 Page 42 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00077/001 STATBUFF SA G S0563 D4T1 VLO FSNAME=STATBUFF..SA.001(1) 220 5.0T1 215 STATBUFF..SA.001 1 LINE 80 1 PAGE UM HELFFRICH JULY 27, 1977 21:56:41 5.0T1 215 0 POINTS TO THE BUFFER USED BY THE STAT JOB (079) IF IT IS ACTIVE. THE SECOND WORD POINTS TO THE STAT JOB'S JOB TABLE. 00077/002 STATBUFF OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00078/001 STAT SUBROUTINE SA G S0563 D4T1 VLO FSNAME=STAT_SUBROUTINE..SA.001(1) 221 5.0T1 216 STAT_SUBROUTINE..SA.001 1 LINE 80 4 PAGE UM HELFFRICH JULY 27, 1977 21:56:44 5.0T1 216 0 SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O. 00078/002 STAT SUBROUTINE OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00079/001A STAT JOB SA G STAT W170:STAT.JOB(1000) 5.0T1 217 STAT_JOB..SA.001 1 LINE 80 21 PAGE UM HELFFRICH JULY 03, 1981 12:35:26 5.0T1 217 W170:STAT.JOB 0 THE "STAT" JOB WILL SAVE STATISTICS ABOUT HARDWARE INTERRUPTS, MTS I/O OPERATIONS, AND INTERNAL SUPERVISOR FUNCTIONS (SUCH AS THE EXECUTION OF SIO) ON TAPE. CAN PRODUCE LARGE AMOUNTS OF DATA QUICKLY. *ANALYSIS (140) CAN HELP ANALYZE THE DATA. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:SETPARM (653), COPY:MISC.MACROS (728), COPY:UC.MACROS (787/1), AND COPY:CC.MACROS (1054/3). ********************************************************************************* D5.0 CHANGES: CHANGED TO CALL NEW TAPE UNIT CHECK ROUTINES (787/15). ********************************************************************************* 0 Referenced by comments of: 77/1, 79/3, 140/1, 787/16 00079/002A STAT JOB OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00079/003A STAT JOB STATSW SA G W170:STAT.PROG(1000) 5.0T1 218 STAT_JOB.STATSW.SA.003 1 LINE 72 5 PAGE UM HELFFRICH JULY 03, 1981 12:35:38 5.0T1 218 W170:STAT.PROG 0 THE STATSW JOB PROGRAM (WHICH IS ALSO A MTS-CALLABLE ROUTINE) PARSES AN INPUT LINE FROM OPER (OR SCARDS, IF MTS CALLED) AND CALLS THE STATSSUB SUBROUTINE IN THE STAT JOB ASSEMBLY (079/1) TO DO THE DIRTY WORK RELATING TO DATA COLLECTION RECORDING SWITCHING. SEE THE COMMENTS IN THE SOURCE LISTING. 1 MON AUG 05/96 18:37:45 Page 43 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 79/5 00079/004A STAT JOB STATSW JOB OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00079/005 STAT JOB MTS STATSW OC G MTS:STATSW 5.0T1 219 STAT_JOB.MTS_STATSW.OC.005 1 LINE 24 1 PAGE UM HELFFRICH JULY 03, 1981 12:35:40 5.0T1 219 MTS.:STATSW 0 CONTAINS RIP AND LCS CARDS TO FORCE REFERENCE TO THE MTS ENTRY POINT TO STATSW (079/3) TO ENABLE THE STATSW JOB TO BE RUN AS AN MTS PROGRAM. 00079/006 STAT JOB MEMO 393 WF S1143 D4.1T1 VLO FSNAME=STAT_JOB.WRITEUP.WF.007(1) 36 5.0T1 220 STAT_JOB.MEMO_393.WF.006 1 LINE 97 2 PAGE UM HELFFRICH MAY 13, 1978 17:03:09 5.0T1 220 0 THIS IS COMPUTING CENTER MEMO 393 -- "DATA-COLLECTION FACILITY". REQUIRES HAND-INSERTED CHARACTERS. 0 Referenced by comments of: 140/2, 140/7 00080/001A INIT JOB SA G MTA:INITJOB(1,999) 5.0T1 221 INIT_JOB..SA.001 1 LINE 70 1 PAGE UM MTA JULY 03, 1981 12:35:44 5.0T1 221 MTA.:INITJOB 0 AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST). IF &OPERJOB (IN COPY:GLOBALS) IS SET, THE INIT JOB WILL START THE OPERATOR JOB AND WAIT UP TO 20 SECONDS FOR IT TO START. THEN IT STARTS THE DISK MANAGER (769). AFTER FINDING THE DISK LOCATIONS OF THE MTS FILE CATALOGS, IT TURNS OVER THE REMAINING WORK OF INITIALIZING THE SYSTEM TO MTS BY USING THE SVC STRTJB TO START "MTS *INIT", SEE (097/1). INSTALLATIONS NOT USING THE OPERATOR JOB WILL WANT TO CHANGE THE VALUE OF &OPERJOB AND REASSEMBLE THE INIT JOB TO REMOVE THE 20 SECOND DELAY. COPIES COPY:GLOBALS (1026/3). 00080/002 INIT JOB OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00082/001 DMOD SA # (OBSOLETE) D4T1 224 DMOD..SA.001 1 LINE 80 7 PAGE UM JULY 27, 1977 21:56:50 00083/001 *EBCDBCD SA G S1430 4.3T1 VLO FSNAME=EBCDBCD..SA.001(1) 63 5.0T1 222 EBCDBCD..SA.001 1 LINE 80 3 PAGE UM WSG JAN. 11, 1980 17:33:39 5.0T1 222 0 PROGRAM TO TRANSLATE ARBITRARY LENGTH 029 KEYPUNCH RECORDS TO 026. SOURCE IN LINES 1,999. 1 MON AUG 05/96 18:37:45 Page 44 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00083/002 *EBCDBCD OC G *EBCDBCD 5.0T1 223 EBCDBCD..OC.002 1 LINE 80 1 PAGE UM WSG JULY 03, 1981 12:36:03 5.0T1 223 *EBCDBCD 00084/001 AUDIO RESP UNIT - 7772 ARURTN SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.SA.001(1) 228 5.0T1 224 AUDIO_RESP_UNIT_-_7772.AR.SA.001 1 LINE 80 56 PAGE UM WSG JULY 28, 1976 00:35:37 5.0T1 224 0 DEVICE SUPPORT ROUTINES FOR THE IBM 7772 AUDIO RESPONSE UNIT. NO LONGER IN USE AT UM. REFERENCES *ARUDEF (084/4) AND *SPEAK (084/3). USES BAS AND BASR INSTRUCTIONS LIKE CRAZY. ASSEMBLE WITH PAR=IS=67. 0 Referenced by comments of: 84/3, 84/4 00084/002 AUDIO RESP UNIT - 7772 *ARURTN OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.OC.002(1) 229 5.0T1 225 AUDIO_RESP_UNIT_-_7772.*A.OC.002 1 LINE 80 4 PAGE UM WSG JULY 28, 1976 00:35:45 5.0T1 225 0 OBJECT SUITABLE FOR LOADING INTO SHARED VM. 00084/003 AUDIO RESP UNIT - 7772 *SPEAK D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*S.D.003(1) 230 5.0T1 226 AUDIO_RESP_UNIT_-_7772.*S.D.003 1 LINE 255 60 PAGE UM WSG JULY 30, 1973 23:42.25 5.0T1 226 0 VOCABULARY FILE FOR *ARURTN (084/1). 0 Referenced by comments of: 84/1 00084/004 AUDIO RESP UNIT - 7772 *ARUDEF D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.004(1) 231 5.0T1 227 AUDIO_RESP_UNIT_-_7772.*A.D.004 1 LINE 10 1 PAGE UM WSG JULY 30, 1973 23:42.34 5.0T1 227 0 PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1) 0 Referenced by comments of: 84/1 00084/005 AUDIO RESP UNIT - 7772 DCVD SUBR SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.005(1) 232 5.0T1 228 AUDIO_RESP_UNIT_-_7772.DC.SA.005 1 LINE 80 5 PAGE UM WSG FEB. 13, 1976 17:36:01 5.0T1 228 0 SUBROUTINE TO CONVERT DIGITALLY CODED VOICE FROM THE FORMAT EXPECTED BY THE 7772 TO A MORE REASONABLE FORMAT. 0 Referenced by comments of: 84/12, 84/15, 84/17 00084/006 AUDIO RESP UNIT - 7772 DCVD SUBR OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.006(1) 233 5.0T1 229 AUDIO_RESP_UNIT_-_7772.DC.OC.006 1 LINE 80 1 PAGE UM WSG FEB. 13, 1976 17:36:06 5.0T1 229 0 PUT THIS IN *LIBRARY. 1 MON AUG 05/96 18:37:45 Page 45 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00084/007 AUDIO RESP UNIT - 7772 DCVC SUBR SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.007(1) 234 5.0T1 230 AUDIO_RESP_UNIT_-_7772.DC.SA.007 1 LINE 80 4 PAGE UM WSG FEB. 13, 1976 17:36:17 5.0T1 230 0 SUBROUTINE TO CONVERT DIGITALLY CODED VOICE TO THE FORMAT EXPECTED BY THE 7772. 0 Referenced by comments of: 84/12, 84/15, 84/17 00084/008 AUDIO RESP UNIT - 7772 DCVC SUBR OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.008(1) 235 5.0T1 231 AUDIO_RESP_UNIT_-_7772.DC.OC.008 1 LINE 80 1 PAGE UM WSG FEB. 13, 1976 17:36:26 5.0T1 231 0 PUT THIS IN *LIBRARY. 00084/009 AUDIO RESP UNIT - 7772 DCVG SUBR SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.009(1) 236 5.0T1 232 AUDIO_RESP_UNIT_-_7772.DC.SA.009 1 LINE 80 3 PAGE UM WSG FEB. 13, 1976 17:36:52 5.0T1 232 0 SUBROUTINE TO RETRIEVE THE DIGITALLY CODED VOICE USED BY THE 7772. 0 Referenced by comments of: 84/12, 84/15, 84/17 00084/010 AUDIO RESP UNIT - 7772 DCVG SUBR OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.010(1) 237 5.0T1 233 AUDIO_RESP_UNIT_-_7772.DC.OC.010 1 LINE 80 1 PAGE UM WSG FEB. 13, 1976 17:36:55 5.0T1 233 0 PUT THIS IN *LIBRARY. 00084/011 AUDIO RESP UNIT - 7772 *ARUVOC D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.011(1) 238 5.0T1 234 AUDIO_RESP_UNIT_-_7772.*A.D.011 1 LINE 102 11 PAGE UM WSG JULY 30, 1973 23:42.36 5.0T1 234 0 LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING. 00084/012 AUDIO RESP UNIT - 7772 CREVOC SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.012(1) 239 5.0T1 235 AUDIO_RESP_UNIT_-_7772.CR.SA.012 1 LINE 80 19 PAGE UM WSG FEB. 13, 1976 17:38:37 5.0T1 235 0 PROGRAM TO CREATE AN ARU VOCABULARY FILE. CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9) AS WELL AS THE MSG SUBR (084/13). 0 Referenced by comments of: 84/13, 84/14 00084/013 AUDIO RESP UNIT - 7772 CREVOC MSG SUB SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.013(1) 240 5.0T1 236 AUDIO_RESP_UNIT_-_7772.CR.SA.013 1 LINE 80 5 PAGE UM WSG FEB. 25, 1976 12:52:33 5.0T1 236 0 MSG SUBR CALLED BY CREVOC (084/12). 0 Referenced by comments of: 84/12, 84/14 1 MON AUG 05/96 18:37:45 Page 46 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00084/014 AUDIO RESP UNIT - 7772 *CREVOC OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.OC.014(1) 241 5.0T1 237 AUDIO_RESP_UNIT_-_7772.*C.OC.014 1 LINE 80 3 PAGE UM WSG FEB. 25, 1976 12:51:48 5.0T1 237 0 OBJECT FOR CREVOC (084/12) AND THE MSG SUBR (084/13). ALSO CONTAINS ERROR MESSAGES STARTING AT LINE 800. LINE NUMBERS ARE IMPORTANT IN THIS FILE. 00084/015 AUDIO RESP UNIT - 7772 VLIST SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.SA.015(1) 242 5.0T1 238 AUDIO_RESP_UNIT_-_7772.VL.SA.015 1 LINE 80 4 PAGE UM WSG FEB. 13, 1976 17:39:10 5.0T1 238 0 PROGRAM TO EITHER SPEAK OR PRINT AN AUDIO RESPONSE UNIT VOCABULARY FILE. CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9). 00084/016 AUDIO RESP UNIT - 7772 *VLIST OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.OC.016(1) 243 5.0T1 239 AUDIO_RESP_UNIT_-_7772.*V.OC.016 1 LINE 80 1 PAGE UM WSG FEB. 13, 1976 17:39:14 5.0T1 239 00084/017 AUDIO RESP UNIT - 7772 DCVDEC SF G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.SF.017(1) 244 5.0T1 240 AUDIO_RESP_UNIT_-_7772.DC.SF.017 1 LINE 67 1 PAGE UM WSG FEB. 13, 1976 17:39:56 5.0T1 240 0 PROGRAM TO FORM AND LIST THE INFO WHICH WOULD BE TRANSMITTED TO THE ARU FOR A TEXT LINE. CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9). 00084/018 AUDIO RESP UNIT - 7772 *DCVDEC OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.OC.018(1) 245 5.0T1 241 AUDIO_RESP_UNIT_-_7772.*D.OC.018 1 LINE 454 1 PAGE UM WSG FEB. 13, 1976 17:40:05 5.0T1 241 00084/019 AUDIO RESP UNIT - 7772 *FSK D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*F.D.019(1) 246 5.0T1 242 AUDIO_RESP_UNIT_-_7772.*F.D.019 1 LINE 31 1 PAGE UM WSG JULY 30, 1973 23:43.01 5.0T1 242 0 AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO 11-BIT (FRAME SIZE) ASCII CODE. 00084/020 AUDIO RESP UNIT - 7772 *IM D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*I.D.020(1) 247 5.0T1 243 AUDIO_RESP_UNIT_-_7772.*I.D.020 1 LINE 87 1 PAGE UM WSG JULY 30, 1973 23:43.03 5.0T1 243 0 AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO INTERNATIONAL MORSE CODE. 00084/021 AUDIO RESP UNIT - 7772 *NOTES D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*N.D.021(1) 248 5.0T1 244 AUDIO_RESP_UNIT_-_7772.*N.D.021 1 LINE 91 2 PAGE UM WSG JULY 30, 1973 23:43.05 5.0T1 244 0 AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES. 00086/001 *2501RTN SA G S0563 D4T1 VLO FSNAME=2501RTN..SA.001(1) 249 5.0T1 245 2501RTN..SA.001 1 LINE 80 16 PAGE UM DWB JULY 27, 1977 21:58:36 5.0T1 245 0 MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2501 CARD READER. CALLS BINEBCD (243). 1 MON AUG 05/96 18:37:45 Page 47 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 243/1 00086/002 *2501RTN OC G *2501RTN 5.0T1 246 2501RTN..OC.002 1 LINE 80 2 PAGE UM DWB JULY 03, 1981 12:36:20 5.0T1 246 *2501RTN 0 OBJECT FOR 2501 ROUTINES. 00087/001A LLMPSEQU SA G COPY:LLMPSEQU 5.0T4 291 LLMPSEQU..SA.001 1 LINE 80 14 PAGE UM MTA AUG. 09, 1981 22:49:04 5.0T10 195 COPY:LLMPSEQU 0 COPY SECTION FOR DEFINITIONS OF JOB TABLE, DEVICE LIST, DEVICE TABLE, ETC. WHICH IS COPIED BY MANY PROGRAMS. ITS NAME COMES STRAIGHT FROM ANCIENT HISTORY (LINCOLN LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES). THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING AT LINE 100. NOTE: PROGRAMS COPYING THIS FILE MUST FIRST COPY COPY:GLOBALS (1026/3). *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONTAINS DISK MANAGER CHANGES AND MUCH ELSE. *********************************************************************************** 0 Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 9/1, 9/3, 10/1, 19/1, 21/1, 24/1, 42/1, 44/1, 45/1, 46/1, 79/1, 101/1, 104/87, 116/1, 135/1, 198/1, 353/2, 354/1, 354/5, 387/1, 387/2, 387/7, 387/26, 388/1, 400/1, 400/5, 400/16, 413/1, 464/1, 482/4, 482/7, 500/50, 507/2, 509/1, 513/1, 531/1, 531/7, 531/14, 539/1, 540/1, 540/3, 540/6, 540/8, 540/12, 540/18, 540/27, 545/3, 545/16, 554/1, 554/3, 570/1, 577/1, 577/3, 577/6, 578/1, 615/15, 621/2, 629/4, 634/1, 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/11, 682/22, 693/1, 731/3, 732/1, 770/1, 777/1, 798/67, 806/1, 818/1, 1012/1, 1021/1, 1021/4, 1079/10, 1081/1, 3024/1, 4000/1 00090/001 *HEXLIST SA # (OBSOLETE) D3T1 202 HEXLIST..SA.1 1 LINE 80 6 PAGE UM JULY 30, 1973 23:43.29 00091/001 *DOUBLE SA # (OBSOLETE) D3T1 204 DOUBLE..SA.1 1 LINE 80 16 PAGE UM JULY 27, 1973 22:03.05 00092/001A FILE RESTORE RSTFMT0 SA G RSTR:RSTFMT0(1000) 5.0T1 247 FILE_RESTORE.RSTFMT0.SA.001 1 LINE 71 28 PAGE UM HELFFRICH JULY 03, 1981 12:36:21 5.0T1 247 RSTR:RSTFMT0 0 MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 92/2, 92/3, 92/4 00092/002A FILE RESTORE RSTFMT1 SA G RSTR:RSTFMT1(1000) 5.0T1 248 FILE_RESTORE.RSTFMT1.SA.002 1 LINE 71 17 PAGE UM HELFFRICH JULY 03, 1981 12:36:28 5.0T1 248 RSTR:RSTFMT1 0 SUBROUTINE CALLED BY (092/1). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 92/4 1 MON AUG 05/96 18:37:45 Page 48 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00092/003A FILE RESTORE RSTFMT2 SA G RSTR:RSTFMT2(1000) 5.0T1 249 FILE_RESTORE.RSTFMT2.SA.003 1 LINE 72 23 PAGE UM HELFFRICH JULY 03, 1981 12:36:32 5.0T1 249 RSTR:RSTFMT2 0 SUBROUTINE CALLED BY (092/1) AND *RESTORE (712). ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 92/4, 712/1, 712/2, 712/3 00092/004A FILE RESTORE OC G RSTR:RST 5.0T1 250 FILE_RESTORE..OC.004 1 LINE 2256 25 PAGE UM HELFFRICH JULY 03, 1981 12:36:44 5.0T1 250 RSTR:RST 0 OBJECT FROM (092/1), (092/2), AND (092/3). ALSO CONTAINS OBJECT FOR OLD TAPE UNIT CHECK ROUTINES, THE SOURCE FOR WHICH IS NOT DISTRIBUTED SINCE THEY ARE OBSOLETE. 00092/005A FILE RESTORE *RST C *RST 5.0T1 251 FILE_RESTORE.*RST.C.005 1 LINE 66 1 PAGE UM HELFFRICH JULY 03, 1981 12:36:47 5.0T1 251 RSTR:*RST 0 COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST). INVOKED BY ENTERING "MTS *RST" ON OPERATOR'S CONSOLE. 00094/001 *TIME SA G S0563 D4T1 VLO FSNAME=TIME..SA.001(1) 257 5.0T1 252 TIME..SA.001 1 LINE 80 2 PAGE UM TIFFANY JULY 27, 1977 21:59:07 5.0T1 252 0 PROGRAM TO PRINT TIME AND DATE. 00094/002 *TIME OC G *TIME 5.0T1 253 TIME..OC.002 1 SEQ 247 1 PAGE UM TIFFANY JULY 03, 1981 12:36:49 5.0T1 253 *TIME 00096/001 *SYMBOLS SA G S1319 D4.2T1 VLO FSNAME=SYMBOLS..SA.001(1) 39 5.0T1 254 SYMBOLS..SA.001 1 LINE 80 13 PAGE UM SHERRY MAR. 26, 1979 02:20:51 5.0T1 254 0 PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL. 00096/002 *SYMBOLS OC G *SYMBOLS 5.0T1 255 SYMBOLS..OC.002 1 LINE 1628 3 PAGE UM SHERRY JULY 03, 1981 12:36:53 5.0T1 255 *SYMBOLS 00097/001 INIT *INIT C *INIT 5.0T1 256 INIT.*INIT.C.001 1 LINE 47 1 PAGE UM ENGLE JULY 03, 1981 12:36:54 5.0T1 256 INIT:*INIT 0 THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL. NO OPERATOR ACTION IS REQUIRED. THIS COMMAND FILE SIGNS ON UNDER THE ID INIT AND SOURCES TO INIT:INITCMD. *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY 1 MON AUG 05/96 18:37:45 Page 49 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ACCINITL IN INIT:INIT TO PRODUCE LISTS OF THE USER IDS WHICH WERE NOT PROPERLY SIGNED OFF WHEN THE SYSTEM LAST WENT DOWN (IF ANY) SO THAT THEY MAY BE "FIXED". 0 Referenced by comments of: 80/1 00097/002A INIT INIT:INITCMD C INIT:INITCMD 5.0T4 292 INIT.INIT:INITCMD.C.002 1 LINE 77 1 PAGE UM MTA AUG. 09, 1981 22:49:09 5.0T10 196 INIT:INITCMD 0 THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RELOAD. THE FOLLOWING FUNCTIONS ARE PERFORMED: 1. INIT:REASON (097/20) IS CREATED AND EMPTIED. 2. THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF IN *STATISTICS (050/5) TO VERIFY, AT LEAST PARTIALLY, THAT THEY ARE CORRECT. 3. THE PROGRAM INITLOG (097/10) IS RUN TO OBTAIN THE REASON FOR RELOADING FROM THE OPERATOR AND WRITE IT AT THE END OF THE FILE INIT:LOG (097/19) AND INTO INIT:REASON. 4. FMT2305 IS RUN TO FORMAT THE 2305 FIXED HEAD FILE(S). IT READS A LIST OF FHF NAMES FROM THIS FILE. AS DISTRIBUTED, THE LIST CONSISTS OF FF00, FF08, FF10 AND FF18. 5. THE PDP IS STARTED. 6. INIT:REASON IS COPIED TO THE END OF INIT:RELOADLOG (097/21). 7. RAMROD IS RUN TO WRITE THE COMMENTS FOR THE CURRENT SYSTEM TO INIT:REASON(2000), WHICH IS THEN COPIED TO OPER. 8. THE POST-IPL LOADER, MTS *S2L (559/1), IS STARTED. 9. MTS *CLN (531/5) IS STARTED TO BEGIN THE CMDSTAT DATA COLLECTION. 10. MTS *FSM (067/29) IS STARTED TO CLEAN UP THE ONLINE FILE SAVE DIRECTORIES. 11. MTS *STI (050/2) IS STARTED TO CHECK FOR A SYSTEM CRASH DURING THE LAST STATISTICS SAVE. 12. THE SYSTEM STATUS MASTER JOB, JOBS MAS, IS STARTED. 13. THE CLEAN PROGRAM (097/6) IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE SYSTEM LAST WENT DOWN. 14. THE INIT PROGRAM (097/3) IS RUN. IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE 5 LISTS (IN THE FILES INIT1, INIT2, ETC.) OF THE USER IDS WHICH WERE SIGNED-ON WHEN THE SYSTEM LAST WENT DOWN. WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS AVAILABLE" ON THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS. WHEN FINISHED, THE TOTAL NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE. NO BATCH JOBS SHOULD BE ALLOWED TO RUN (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE IT IS POSSIBLE THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH ARE STILL BEING FIXED. IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING FILE IS AVAILABLE" MESSAGE PRINTS AND AFTER THE "POST-IPL SYSTEM LOADED OK" MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE ABLE TO SIGNON UNTIL THEIR USER IDS HAVE BEEN FIXED. THESE USERS WILL GET A MESSAGE WHICH INDICATES THAT THEIR IDS ARE TEMPORARILY UNAVAILABLE. 0 Referenced by comments of: 50/2, 97/12, 531/5, 531/6, 559/1 00097/003A INIT INIT:INIT OE G INIT:INIT 5.0T1 257 INIT.INIT:INIT.OE.003 1 LINE 1298 4 PAGE UM ENGLE JULY 03, 1981 12:36:54 5.0T1 257 INIT:INIT 0 PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN. THIS FILE MUST BE GIVEN THE PROGRAM KEY INIT. THIS PROGRAM REFERENCES INIT1, INIT2, ETC. TO GET THE USER IDS TO BE FIXED. THESE LISTS ARE BUILT BY THE PROGRAM 1 MON AUG 05/96 18:37:45 Page 50 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 AT INIT(1000). 0 Referenced by comments of: 97/2, 104/84 00097/004 INIT INITCHK SA G S0563 D4T1 VLO FSNAME=INIT.INIT:INITCHK.SA.004(1) 266 5.0T1 258 INIT.INITCHK.SA.004 1 LINE 80 4 PAGE UM ENGLE DEC. 08, 1975 10:08:45 5.0T1 258 0 PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "REASONABLE" TIME AND DATE. COPIES GRDEF (104/72). 0 Referenced by comments of: 104/80 00097/005A INIT INIT:INITCHK OC G INIT:INITCHK 5.0T1 259 INIT.INIT:INITCHK.OC.005 1 LINE 1224 2 PAGE UM ENGLE AUG. 05, 1981 02:03:34 5.0T1 259 INIT:INITCHK 0 Referenced by comments of: 104/80 00097/006A INIT CLEAN SA G FILE:SFDESTRY 5.0T1 260 INIT.CLEAN.SA.006 1 LINE 70 2 PAGE UM HELFFRICH JULY 03, 1981 12:36:57 5.0T1 260 FILE:SFDESTRY 0 PROGRAM TO DESTROY SCRATCH FILES. ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 97/2 00097/007A INIT CLEAN OC G INIT:CLEAN 5.0T1 261 INIT.CLEAN.OC.007 1 LINE 80 1 PAGE UM HELFFRICH JULY 03, 1981 12:36:57 5.0T1 261 INIT:CLEAN 00097/008 INIT DINIT SA O S0563 D4T1 VLO FSNAME=INIT.INIT:DINIT.SA.008(1) 270 5.0T1 262 INIT.DINIT.SA.008 1 LINE 80 7 PAGE UM DWB AUG. 01, 1973 00:54.09 5.0T1 262 0 DRUM INITIALIZATION PROGRAM. HAS TABLE OF DRUM NAMES TO USE ASSEMBLED IN. AS DISTRIBUTED, THE TABLE CONTAINS TWO NAMES: DRM1 AND DRM2. IF THE PROGRAM CAN'T ACQUIRE ANY OF THE SPECIFIED DRUMS FROM THE SUPERVISOR, IT PRINTS "NNNN NOT AVAILABLE" AND GOES ON TO THE NEXT DRUM. 00097/009 INIT DINIT OC INIT:DINIT 5.0T1 263 INIT.DINIT.OC.009 1 LINE 80 4 PAGE UM DWB JULY 03, 1981 12:36:59 5.0T1 263 INIT:DINIT 00097/010 INIT INITLOG SA G MTA:INITLOG(1,999) 5.0T1 264 INIT.INITLOG.SA.010 1 LINE 72 1 PAGE UM MTA JULY 03, 1981 12:36:59 5.0T1 264 0 PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD. COPIES *CNFGINFODSECT (654). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 97/2 1 MON AUG 05/96 18:37:45 Page 51 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00097/011 INIT INITLOG OC G INIT:INITLOG 5.0T1 265 INIT.INITLOG.OC.011 1 LINE 525 1 PAGE UM MTA JULY 03, 1981 12:37:01 5.0T1 265 INIT:INITLOG 0 NOTE: THIS OBJECT FILE CONTAINS AN NCA CARD FOR CNFIGTBL, SINCE THERE IS NO CNFIGTBL ON A 370. 00097/012 INIT FMT2305 SA G MTA:FMT2305.S 5.0T1 266 INIT.FMT2305.SA.012 1 LINE 68 4 PAGE UBC MTA JULY 03, 1981 12:37:01 5.0T1 266 MTA.:FMT2305.S 0 MTS PROGRAM TO INITIALIZE (I.E. FORMAT) A 2305 OR ITS UNDERSTUDY. THIS PROGRAM IS RUN FROM INIT:INITCMD (097/2) AT STARTUP TO FORMAT A 2305 BEFORE STARTING THE PDP. 00097/013 INIT FMT2305 OC G INIT:FMT2305 5.0T1 267 INIT.FMT2305.OC.013 1 SEQ 80 2 PAGE UBC MTA JULY 03, 1981 12:37:02 5.0T1 267 INIT:FMT2305 00097/014 INIT INIT:INIT1 D # INIT:INIT1 UM ENGLE INIT:INIT1@E 0 LIST OF USER IDS IN *ACCOUNTING1 WHICH NEED TO BE FIXED AFTER IPL. 00097/015 INIT INIT:INIT2 D # INIT:INIT2 UM ENGLE INIT:INIT2@E 0 LIST OF USER IDS IN *ACCOUNTING2 WHICH NEED TO BE FIXED AFTER IPL. 00097/016 INIT INIT:INIT3 D # INIT:INIT3 UM ENGLE INIT:INIT3@E 0 LIST OF USER IDS IN *ACCOUNTING3 WHICH NEED TO BE FIXED AFTER IPL. 00097/017 INIT INIT:INIT4 D # INIT:INIT4 UM ENGLE INIT:INIT4@E 0 LIST OF USER IDS IN *ACCOUNTING4 WHICH NEED TO BE FIXED AFTER IPL. 00097/018 INIT INIT:INIT5 D # INIT:INIT5 UM ENGLE INIT:INIT5@E 0 LIST OF USER IDS IN *ACCOUNTING5 WHICH NEED TO BE FIXED AFTER IPL. 00097/019 INIT INIT:LOG D # INIT:LOG UM MTA INIT:LOG@E 0 LOG OF SYSTEM RELOADS. CONTAINS THE TIME AND DATE OF EACH RELOAD, THE NAME 1 MON AUG 05/96 18:37:45 Page 52 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 OF THE SYSTEM IPLED FROM, THE REASON FOR THE RELOAD (AS ENTERED BY THE OPERATOR), THE LIST OF SCRATCH FILES DESTROYED, AND THE LIST OF USER IDS FIXED. 0 Referenced by comments of: 97/2 00097/020 INIT INIT:REASON D # INIT:REASON UM MTA INIT:REASON@E 0 FILE TO CONTAIN REASON FOR RELOADING AND CURRENT SYSTEM NAME AND COMMENTS AFTER EACH RELOAD. 0 Referenced by comments of: 97/2 00097/021 INIT INIT:RELOADLOG D # INIT:RELOADLOG UM MTA INIT:RELOADLOG@E 0 LOG OF SYSTEM RELOADS. SAME AS INIT:LOG EXCEPT DOES NOT CONTAIN THE LISTS OF SCRATCH FILES OR USER IDS. 0 Referenced by comments of: 97/2 00098/001 *SQUASH SA # (OBSOLETE) D2T1 278 UM 0 Obsoleted by *LINKEDIT (297) and *OBJUTIL (721). 00099/001 *IHC M # (OBSOLETE) D3T1 225 IHC..M. 1 LINE 68 1 PAGE UM JULY 30, 1973 23:46.44 00100/001 *FILEDUMP SA G S0563 D4T1 VLO FSNAME=FILEDUMP..SA.001(1) 276 5.0T1 268 FILEDUMP..SA.001 1 LINE 80 8 PAGE UM PIRKOLA JULY 27, 1977 22:03:25 5.0T1 268 0 USE *TAPEDUMP INSTEAD. 00100/002 *FILEDUMP OC G *FILEDUMP 5.0T1 269 FILEDUMP..OC.002 1 LINE 80 3 PAGE UM PIRKOLA JULY 03, 1981 12:37:04 5.0T1 269 *FILEDUMP 00101/001A MOUNT COMMAND SA G TAPE:MOUNT.S 5.0T1 270 MOUNT_COMMAND..SA.001 1 LINE 133 63 PAGE UM SHERRY JULY 03, 1981 12:37:05 5.0T1 270 0 THIS IS NEW MOUNT CLS/SUBROUTINE WHICH IS BASED ON THE UBC REWRITE OF THE UM VERSION, BY KEN BOWLER. THE COMMENTS ON THE SOURCE FILE DOCUMENT THE DIFFERENCES BETWEEN THE TWO VERSIONS. THIS VERSION OF MOUNT REQUIRES SEVERAL CHANGES TO MTS, VIZ., 1) THE INTERNAL TABLES ADDRESSES RSVNMTBA AND FYTPTBLA IN MTS MUST BE MADE AVAILABLE TO MOUNT THROUGH LCSYMBOL 2) MSGCC IS REQUIRED 3) THE CLS TRANSFER VECTOR ROUTINE PKEY IS REQUIRED TO PUSH, SET, AND 1 MON AUG 05/96 18:37:45 Page 53 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 POP PROGRAM KEYS 4) A PORT IN THE GATE FOR THE MOUNT SUBROUTINE IS REQUIRED 5) HALTIO ENTRY IS NEEDED FOR THE OPERATOR DSR. THIS VERSION OF THE MOUNT SUBROUTINE SUPPORTS THE EXTENDED CALLING SEQUENCE DESCRIBED IN (101/4). SUPPORTS MAGNETIC TAPES, 2671 PAPER TAPE READER, PAPER TAPE PUNCHES ON THE UM DATA CONCENTRATOR, 7772 AUDIO RESPONSE UNIT, FLOPPY DISKS, AND THE MERIT THE MAXIMUM NUMBER OF DEVICES OF EACH TYPE (IF ZERO, THE CODE AND TABLES TO SUPPORT THAT TYPE ARE DELETED). ANOTHER ASSEMBLY PARAMETER SPECIFIES THE RACK NUMBER FOR SCRATCH TAPES (DISTRIBUTED AS 'POOL'). OTHER PARAMETERS SPECIFY THE DEFAULT DENSITY FOR SCRATCH TAPES (DISTRIBUTED AS 8EN FOR 7-TRACK AND 1600 FOR 9-TRACK). ANOTHER PARAMETER SPECIFIES WHETHER THE TAPE ID IS REQUIRED (AS DISTRIBUTED, IT IS). ANOTHER PARAMETER SPECIFIES THE SUPERVISOR LOCK NUMBER, IF ANY, TO BE USED FOR INTERLOCKING THE OPERATOR COMMUNICATION, I.E. TO PREVENT MULTIPLE MOUNT REQUESTS FROM BEING PRESENTED TO THE OPERATOR SIMULTANEOUSLY. THIS IS DISTRIBUTED AS ZERO, I.E. NO INTERLOCKING). MOUNT CALLS THE MNTSTAT SUBROUTINE (447/1) TO RECORD A MOUNT STATISTICS RECORD FOR EVERY MOUNT REQUEST. IT ALSO CALLS CUINFO FOR EACH MOUNT DONE BY THE OPERATOR TO INCREMENT THE MOUNT COUNT (FOR BILLING). MOUNT WILL REFUSE ANY MOUNT REQUIRING OPERATOR INTERVENTION IF THE SYSTEM IS IN UNATTENDED MODE OR IF NTM IS ON (BATCH JOBS ARE RERUN). INTERFACES WITH THE TAPESHARE CHECK SUBROUTINE (1067/5). COPIES COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9), COPY:LLMPSEQU (087), *GDINFODSECT (594), *CNFGINFODSECT (654), *SENSEDSECT (3025), AND COPY:MNTQINFDSECT (806/3). ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND *SYSMAC WITH PAR=PEXIT=*PEXIT. *********************************************************************************** D5.0 VERSION: SUPPORTS TAPE QUEUEING USING THE TAPE QUEUE ROUTINES (806). IT ALSO PROVIDES A WAY TO ISSUE A SPECIAL MESSAGE VIA MSGRACK# (101/3) WHENEVER CERTAIN RACK NUMBERS ARE MOUNTED. *********************************************************************************** 0 Referenced by comments of: 45/2, 101/2, 101/4, 271/1, 447/1, 712/2, 806/1, 806/3, 1067/5 00101/002A MOUNT COMMAND OC G *CLSMOUNT 5.0T1 271 MOUNT_COMMAND..OC.002 1 LINE 24847 26 PAGE UM SHERRY JULY 03, 1981 12:37:18 5.0T1 271 *CLSMOUNT 0 OBJECT FOR THE MOUNT COMMAND CLS (101/1), THE MNTSTAT SUBROUTINE (447/1), THE MSGRACK# MESSAGE (101/3) AND THE TAPESHARE CHECK SUBROUTINE (1067/5). THIS FILE IS LOADED INTO SHARED VM AFTER IPL BY PISTLE. *************************************************************************** D5.0 VERSION: NOTE: *CLSMOUNT NO LONGER NEEDS TO BE LOADED WITH THE IPLCS OPTION, SINCE THE "MOUNT" SUBROUTINE IS NOW DEFINED AS AN ENTRY POINT IN USUB (638). 1 MON AUG 05/96 18:37:45 Page 54 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *************************************************************************** 0 Referenced by comments of: 270/2, 447/2, 1067/6 00101/003C MOUNT COMMAND MSG RACK # SA G TAPE:MSGRACK#.S 5.0T1 272 MOUNT_COMMAND.MSG_RACK_#.SA.003 1 LINE 66 1 PAGE UM SHERRY JULY 03, 1981 12:37:22 5.0T1 272 0 This subcomponent is just a MSG routine (1023) message that is printed by the MOUNT CLS whenever certain rack numbers are mounted. The TAPESHARE routine CHECK (1067/5) gives a special return code to mount whenever certain rack numbers are referenced (they have a special field in their directory entries). This mechanism can be disabled by removing the object for MSGRACK# from *CLSMOUNT. 0 Referenced by comments of: 101/1, 101/2 00101/004A MOUNT COMMAND SUBRTN DOC WX TAPE:MOUNT.W 5.0T1 273 MOUNT_COMMAND.SUBRTN_DOC.WX.004 1 LINE 82 5 PAGE UM SHERRY JULY 03, 1981 12:37:23 5.0T1 273 0 TEXTFORM SOURCE FOR VOLUME 3 TYPE WRITEUP DESCRIBING THE MOUNT SUBROUTINE, PART OF (101/1). 0 Referenced by comments of: 101/1 00101/005C MOUNT COMMAND *MOUNTSUB OC G *MOUNTSUB 5.0T1 274 MOUNT_COMMAND.*MOUNTSUB.OC.005 1 LINE 25 1 PAGE UM MTS OGDEN JULY 03, 1981 12:37:24 5.0T1 274 *MOUNTSUB 0 This file contains an ENT card for the symbol "MOUNTSUB" followed by a "$CONTINUE WITH *CLSMOUNT" card. It is used as the file name in the LOADT table in MTS, and is loaded from if the MOUNTSUB subroutine is not defined in LCSYMBOL. 00101/006 MOUNT COMMAND *MOUNT # (OBSOLETED BY $MOUNT) D3T1 230 MOUNT.*MOUNT.OC.3 1 LINE 24 1 PAGE UM JULY 30, 1973 23:47.04 00102/001 *DISMOUNT # (OBSOLETED BY $RELEASE) D3T1 232 DISMOUNT.*DISMOUNT.OC.3 1 LINE 24 1 PAGE UM JULY 30, 1973 23:47.08 00104/001 ACCOUNTING ACCFORMAT SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCFORMAT.SA.001(1) 49 5.0T1 275 ACCOUNTING.ACCFORMAT.SA.001 1 SEQ 80 2 PAGE UM ENGLE JAN. 09, 1979 15:58:55 5.0T1 275 0 COMPONENT (104) CONTAINS THE SOURCE AND OBJECT FOR THE MTS ACCOUNTING ROUTINES. THE FOLLOWING PROGRAMS CAN BE CONSTRUCTED BY COMBINING THE OBJECT FILES AS INDICATED BELOW: *ACCRESTORE ASTR+AFLU+AIO+GTFL+ACAT+FLRT+CSIG+SYSDEFS *STATUS STAT ACC:ACCDISPLAY ADSP+ACCLIB ACC:ACCERRORSCAN ACNS+ACCLIB ACC:ACCFILCHARGE ADSP+AFLC+ACCLIB ACC:ACCHEXDISP ADSP+AXPR+ACCLIB ACC:ACCLISTING ALST+ACCLIB 1 MON AUG 05/96 18:37:45 Page 55 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ACC:ACCMAINT AMAT+ACCLIB ACC:ACCPASWD APSW+GTFL+AIO+FLNM ACC:ACCRETRIEVE ARTV+ATRD ACC:ACCSAVE ASAV+ACCLIB ACC:DIRDISPLAY DDSP+ACCLIB ACC:DIRLIST DLST+ACCLIB ACC:GETFILECHG FLUP+AIO+FLRT+TTRP+GTFL+SYSDEFS ACC:PROJECTDISP APDS+ACCLIB ACC:PROJECTIDS APID+ACCLIB ACC:PROJECTLIST APLS+ACCLIB ACC:PROJECTMAINT APMT+ACCLIB ACC:STAPROJECT AMXM(&STAPRJ=1)+AUPR+ACCLIB ACCUPDAT ARDW+PRINT+AIO+TTRP+GTFL+OLDPRINT+ ACCPRINT+ACCUPDAT INIT:INIT(1,999) AINT INIT:INIT(1000) AINS+GTFL+FLNM+AFLU+ACAT+AIO+FLRT+CSIG+ SYSDEFS ACC:ACCLIB ACAT+AERR+AFIN+AFKF+AFLA+AFIO+AFLU+AIO+ ALPR+ALST+APLS+APPR+APRT+CSIG+DIR+DPRT+ FIOC+FLNM+FLRT+FLSH+GPID+GTFL+IOLC+LCNT+ LOG+RBTA+STRD+TMCL+TTRP+SYSDEFS (SEE ACCOUNTING CLS FOR FIOC (631/13) AND REBATE FOR RBTA (632/4) AND STRD (632/6)). ACCFORMAT (104/1) IS THE COPY SECTION THAT DESCRIBES THE ACCOUNTING FILE RECORD FORMAT. IT IS COPIED UNDER THE NAME "ACCFORMAT" BY COMPONENTS OF THE ACCOUNTING SYSTEM. *** NOTE: ACCOUNTING PROGRAMS HAVE A GBLB SYMBOL (&DC) TO ELIMINATE THE ASSEMBLY OF INSTRUCTIONS FOR THE DATA CELL. IF THE VALUE OF &DC IS 0, THE INSTRUCTIONS WILL NOT BE ASSEMBLED. IF THE VALUE IS 1, THE INSTRUCTIONS WILL BE ASSEMBLED. ALL DISTRIBUTION PROGRAMS HAVE THE VALUE SET TO 0, AND THE RESULTS OF SETTING &DC TO 1 ARE NOT GUARANTEED. 0 Referenced by comments of: 104/1, 104/4, 104/6, 104/12, 104/15, 104/21, 104/27, 104/32, 104/51, 104/54, 104/66, 104/68, 104/81, 104/84, 104/90, 104/92, 104/96, 104/102, 502/1, 586/1, 631/8, 631/11, 632/3 00104/002 ACCOUNTING ACCPROJFMT SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPROJFMT.SA.002(1) 50 5.0T1 276 ACCOUNTING.ACCPROJFMT.SA.002 1 LINE 80 1 PAGE UM ENGLE JAN. 25, 1979 16:25:29 5.0T1 276 0 COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT. 0 Referenced by comments of: 104/21, 104/36, 104/43, 104/54, 104/141, 500/36, 500/40, 631/8 00104/003 ACCOUNTING ACCPROJFMT UC G # S0027 DISTRB FSNAME=ACCPROJFMT D4.2T1 51 ACCOUNTING.ACCPROJFMT.UC.003 1 LINE 67 1 PAGE UM ENGLE JAN. 25, 1979 16:25:32 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 1 MON AUG 05/96 18:37:45 Page 56 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/004 ACCOUNTING ACCERROR SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCERROR.SA.004(1) 52 5.0T1 277 ACCOUNTING.ACCERROR.SA.004 1 LINE 80 8 PAGE UM ENGLE JAN. 10, 1979 16:30:18 5.0T1 277 0 CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN (104/57). COPIES ACCFORMAT (104/1). 00104/005 ACCOUNTING ACCERROR OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCERROR.OC.005(1) 53 5.0T1 278 ACCOUNTING.ACCERROR.OC.005 1 LINE 80 2 PAGE UM ENGLE JAN. 11, 1979 11:04:50 5.0T1 278 00104/006 ACCOUNTING ACCPRINT SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPRINT.SA.006(1) 54 5.0T1 279 ACCOUNTING.ACCPRINT.SA.006 1 LINE 80 10 PAGE UM ENGLE JAN. 09, 1979 15:31:15 5.0T1 279 0 FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/133 00104/007 ACCOUNTING ACCPRINT OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPRINT.OC.007(1) 55 5.0T1 280 ACCOUNTING.ACCPRINT.OC.007 1 LINE 80 5 PAGE UM ENGLE JAN. 09, 1979 15:31:21 5.0T1 280 00104/008 ACCOUNTING ACCLIST SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCLIST.SA.007(1) 286 5.0T1 281 ACCOUNTING.ACCLIST.SA.008 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 16:22.45 5.0T1 281 0 READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD. 00104/009 ACCOUNTING ACCLIST OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCLIST.OC.008(1) 287 5.0T1 282 ACCOUNTING.ACCLIST.OC.009 1 LINE 80 1 DISK UM ENGLE OCT. 03, 1972 15:12.04 5.0T1 282 00104/010 ACCOUNTING ACCLIST OC G # ACC:ACCLISTING UM ENGLE ACC:ACCLISTING 00104/011 ACCOUNTING ACCLIST OC G # MTS:TST.ACCLIST UM ENGLE ACC:ACCLIST 0 PROGRAM TO PRINT EVERY FIELD OF EACH ACCOUNTING RECORD. ACCLIST+ACCPRINT. 00104/012A ACCOUNTING ACCINITL SA G AINT S0027 DISTRB FSNAME=ACCINITL 5.0T1 283 ACCOUNTING.ACCINITL.SA.012 1 LINE 80 6 PAGE UM ENGLE AUG. 13, 1980 10:36:53 5.0T1 283 0 RESTORES LOCK BITS AND FILE SPACE FIELDS FOR ALL RECORDS WITH CURRENT NUMBER OF SIGNONS > 0. COPIES ACCFORMAT (104/1). 1 MON AUG 05/96 18:37:45 Page 57 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/013A ACCOUNTING ACCINITL UC G S0027 DISTRB FSNAME=ACCINITLUPD 5.0T1 284 ACCOUNTING.ACCINITL.UC.013 1 LINE 72 3 PAGE UM ENGLE AUG. 13, 1980 10:37:01 5.0T1 284 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/014A ACCOUNTING ACCINITL OC G S0027 DISTRB FSNAME=AINT 5.0T1 285 ACCOUNTING.ACCINITL.OC.014 1 LINE 80 2 PAGE UM ENGLE AUG. 13, 1980 10:37:08 5.0T1 285 00104/015A ACCOUNTING STATUS SA G STAT S0027 DISTRB FSNAME=STATUS 5.0T1 286 ACCOUNTING.STATUS.SA.015 1 LINE 80 26 PAGE UM ENGLE MAY 01, 1981 12:57:31 5.0T1 286 0 MAIN PROGRAM FOR *STATUS. COPIES ACCFORMAT (104/1). THIS PROGRAM HAS A GLOBAL SYMBOL &CLS. IF &CLS IS 0, THE OBJECT FOR *STATUS IS PRODUCED. IF &CLS IS 1, A SUBROUTINE TO BE CALLED BY THE ACCOUNTING CLS IS PRODUCED. THIS LATTER ASSEMBLY USES COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 129/1, 129/2 00104/016A ACCOUNTING STATUS UC G S0027 DISTRB FSNAME=STATUSUPD 5.0T1 287 ACCOUNTING.STATUS.UC.016 1 LINE 71 1 PAGE UM ENGLE FEB. 12, 1981 16:45:55 5.0T1 287 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/017A ACCOUNTING STATUS OC G S0027 DISTRB FSNAME=STAT 5.0T1 288 ACCOUNTING.STATUS.OC.017 1 LINE 80 6 PAGE UM ENGLE FEB. 12, 1981 16:46:00 5.0T1 288 0 OBJECT FOR *STATUS. 00104/018A ACCOUNTING STATUS OC G S0027 DISTRB FSNAME=STATCLS 5.0T1 289 ACCOUNTING.STATUS.OC.018 1 LINE 80 6 PAGE UM ENGLE FEB. 12, 1981 16:46:04 5.0T1 289 0 OBJECT FOR ACCOUNTING CLS SUBROUTINE. 0 Referenced by comments of: 631/15, 631/23 00104/019 ACCOUNTING FILERATE SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.FILERATE.SA.013(1) 292 5.0T1 290 ACCOUNTING.FILERATE.SA.019 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 10:10:41 5.0T1 290 0 SUBROUTINE TO RETURN A CURRENT RATE NUMBER AND THE FILE RATES FOR A SIGNON ID. COPIES GRDEF (104/72) AND COPY:RATEVEC (651/3). 0 Referenced by comments of: 484/1 1 MON AUG 05/96 18:37:45 Page 58 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/020 ACCOUNTING FILERATE OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.FILERATE.OC.014(1) 293 5.0T1 291 ACCOUNTING.FILERATE.OC.020 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 10:11:04 5.0T1 291 00104/021A ACCOUNTING ACCMAINT SA G AMAT S0027 DISTRB FSNAME=ACCMAINT 5.0T1 292 ACCOUNTING.ACCMAINT.SA.021 1 LINE 80 58 PAGE UM ENGLE SEP. 18, 1980 13:01:16 5.0T1 292 0 MAIN PROGRAM FOR ACCMAINT. RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2). THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO WHICH A LOG IS WRITTEN. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: REQUIRES MSG MACROS IN *SYSMAC. *********************************************************************************** 0 Referenced by comments of: 104/133 00104/022A ACCOUNTING ACCMAINT UC G S0027 DISTRB FSNAME=ACCMAINTUPD 5.0T1 293 ACCOUNTING.ACCMAINT.UC.022 1 LINE 72 1 PAGE UM ENGLE SEP. 18, 1980 13:01:23 5.0T1 293 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/023A ACCOUNTING ACCMAINT OC G S0027 DISTRB FSNAME=AMAT 5.0T1 294 ACCOUNTING.ACCMAINT.OC.023 1 LINE 80 10 PAGE UM ENGLE SEP. 18, 1980 13:01:25 5.0T1 294 00104/024A ACCOUNTING ACCMAINT OE G # DIST:ACC.ACCMAINT UM ENGLE ACC:ACCMAINT 00104/025 ACCOUNTING ACCIO SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCIO.SA.017(1) 296 5.0T1 295 ACCOUNTING.ACCIO.SA.025 1 LINE 80 15 PAGE UM ENGLE JUNE 04, 1976 14:22:22 5.0T1 295 0 GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S). 0 Referenced by comments of: 104/42, 104/131, 484/1 00104/026 ACCOUNTING ACCIO OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCIO.OC.018(1) 297 5.0T1 296 ACCOUNTING.ACCIO.OC.026 1 LINE 80 3 PAGE UM ENGLE JUNE 04, 1976 14:22:35 5.0T1 296 0 THERE ARE REP CARDS IN THIS FILE TO CHANGE FILE NAMES TO PUBLIC FILES. 0 Referenced by comments of: 631/15, 631/23 1 MON AUG 05/96 18:37:45 Page 59 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/027 ACCOUNTING ACCGFUPD SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCGFUPD.SA.019(1) 298 5.0T1 297 ACCOUNTING.ACCGFUPD.SA.027 1 LINE 72 1 PAGE UM ENGLE MAR. 21, 1975 01:02:18 5.0T1 297 0 PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS. RUN WITH ACCRDWRT (104/34). COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/34 00104/028 ACCOUNTING ACCGFUPD OC G W013:ACCGFUPD(1,98) 299 5.0T1 298 ACCOUNTING.ACCGFUPD.OC.028 1 LINE 80 1 PAGE UM ENGLE JULY 03, 1981 12:41:21 5.0T1 298 0 Referenced by comments of: 682/36 00104/029 ACCOUNTING ACCDSPLA SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCDSPLA.SA.021(1) 300 5.0T1 299 ACCOUNTING.ACCDSPLA.SA.029 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 12:08.13 5.0T1 299 0 PROGRAM TO READ A SPECIFIC RECORD OF THE ACCOUNTING FILE AND CALL ACCPRINT FOR IT. 00104/030 ACCOUNTING ACCDSPLA OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCDSPLA.OC.022(1) 301 5.0T1 300 ACCOUNTING.ACCDSPLA.OC.030 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 12:08.26 5.0T1 300 00104/031 ACCOUNTING ACCDSPLA OC G # ACC:ACCDISPLAY UM ENGLE ACC:ACCDISPLAY 00104/032 ACCOUNTING ACCSTRUP SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCSTRUP.SA.023(1) 302 5.0T1 301 ACCOUNTING.ACCSTRUP.SA.032 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 13:43.30 5.0T1 301 0 MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS. RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 484/1 00104/033 ACCOUNTING ACCSTRUP OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCSTRUP.OC.024(1) 303 5.0T1 302 ACCOUNTING.ACCSTRUP.OC.033 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 10:19:52 5.0T1 302 00104/034 ACCOUNTING ACCRDWRT SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCRDWRT.SA.025(1) 304 5.0T1 303 ACCOUNTING.ACCRDWRT.SA.034 1 LINE 80 6 PAGE UM ENGLE OCT. 05, 1972 12:20.15 5.0T1 303 0 PROGRAM TO PERFORM GENERAL REFORMATTING OPERATION ON THE ACCOUNTING FILE. IT CALLS A USER PROVIDED SUBROUTINE CALLED ACCUPDAT TO DO THE ACTUAL REFORMATTING. ACCGFUPD (104/27) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE COMMENTS AT THE FRONT OF THIS SUBCOMPONENT GIVE MORE INFORMATION. 0 Referenced by comments of: 104/27, 104/68 1 MON AUG 05/96 18:37:45 Page 60 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/035 ACCOUNTING ACCRDWRT OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCRDWRT.OC.026(1) 305 5.0T1 304 ACCOUNTING.ACCRDWRT.OC.035 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 12:20.35 5.0T1 304 0 Referenced by comments of: 682/36 00104/036 ACCOUNTING PCONVERT SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.PCONVERT.SA.027(1) 306 5.0T1 305 ACCOUNTING.PCONVERT.SA.036 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:33.24 5.0T1 305 0 PRJPRINT SUBROUTINE TO CONVERT A DISTRIBUTION 3.0 PROJECT FILE TO DISTRIBUTIONS 3.1, 3.2, 4.0, 4.1, 4.2, 4.3, OR 5.0 (WHICH ARE ALL THE SAME) BY ADDING NETWORK FIELDS AND FLAG. TO USE, RUN PRJLIST (104/45) + PCONVERT + ACCLIB (104/42). NEW PROJECT FILE IS PRODUCED ON SPUNCH. COPIES ACCPROJFMT (104/2). 00104/037 ACCOUNTING PCONVERT OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.PCONVERT.OC.028(1) 307 5.0T1 306 ACCOUNTING.PCONVERT.OC.037 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:33.42 5.0T1 306 00104/038A ACCOUNTING ACCPRJMT SA G APMT S0027 DISTRB FSNAME=ACCPRJMT 5.0T1 307 ACCOUNTING.ACCPRJMT.SA.038 1 LINE 80 29 PAGE UM ENGLE FEB. 04, 1981 13:35:59 5.0T1 307 0 MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT. RUN WITH PROT=OFF. THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO WHICH A LOG IS WRITTEN. 0 Referenced by comments of: 104/133 00104/039A ACCOUNTING ACCPRJMT UC G S0027 DISTRB FSNAME=ACCPRJMTUPD 5.0T1 308 ACCOUNTING.ACCPRJMT.UC.039 1 LINE 48 1 PAGE UM ENGLE FEB. 04, 1981 13:36:13 5.0T1 308 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/040A ACCOUNTING ACCPRJMT OC G S0027 DISTRB FSNAME=APMT 5.0T1 309 ACCOUNTING.ACCPRJMT.OC.040 1 LINE 80 5 PAGE UM ENGLE FEB. 04, 1981 13:36:17 5.0T1 309 00104/041A ACCOUNTING ACCPRJMT OE G # DIST:ACC.PRJMAINT UM ENGLE ACC:PROJECTMAINT 00104/042A ACCOUNTING ACCLIB OL G S0027 DISTRB FSNAME=ACCLIB 5.0T1 310 ACCOUNTING.ACCLIB.OL.042 1 LINE 792 24 PAGE UM ENGLE FEB. 12, 1981 16:17:43 5.0T1 310 ACC:ACCLIB 0 THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/25) TO PUBLIC FILES. THIS FILE MUST BE PERMITTED AS FOLLOWS: R PKEY=FILEINFO. 0 Referenced by comments of: 104/36, 632/3, 632/6, 682/36 1 MON AUG 05/96 18:37:45 Page 61 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/043 ACCOUNTING ACPRJPRT SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACPRJPRT.SA.040(1) 63 5.0T1 311 ACCOUNTING.ACPRJPRT.SA.043 1 LINE 80 9 PAGE UM ENGLE JAN. 25, 1979 16:30:30 5.0T1 311 0 SUBROUTINE TO PRINT A RECORD FROM *PROJECT. COPIES ACCPROJFMT (104/2). 0 Referenced by comments of: 104/133 00104/044 ACCOUNTING ACPRJPRT OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACPRJPRT.OC.041(1) 64 5.0T1 312 ACCOUNTING.ACPRJPRT.OC.044 1 LINE 80 4 PAGE UM ENGLE JAN. 25, 1979 16:30:35 5.0T1 312 00104/045 ACCOUNTING PRJLIST SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.PRJLIST.SA.034(1) 313 5.0T1 313 ACCOUNTING.PRJLIST.SA.045 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 15:13.34 5.0T1 313 0 PROGRAM TO READ EACH RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT. 0 Referenced by comments of: 104/36, 500/40 00104/046 ACCOUNTING PRJLIST OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.PRJLIST.OC.035(1) 314 5.0T1 314 ACCOUNTING.PRJLIST.OC.046 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:13.55 5.0T1 314 00104/047 ACCOUNTING PRJLIST OC G # ACC:PROJECTLIST UM ENGLE ACC:PROJECTLIST 00104/048 ACCOUNTING PRJDSPLA SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.PRJDSPLA.SA.036(1) 315 5.0T1 315 ACCOUNTING.PRJDSPLA.SA.048 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 15:17.03 5.0T1 315 0 PROGRAM TO READ A SPECIFIC RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT. 00104/049 ACCOUNTING PRJDSPLA OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.PRJDSPLA.OC.037(1) 316 5.0T1 316 ACCOUNTING.PRJDSPLA.OC.049 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:17.49 5.0T1 316 00104/050 ACCOUNTING PRJDSPLA OC G # ACC:PROJECTDISP UM ENGLE ACC:PROJECTDISP 00104/051 ACCOUNTING ACCPASWD SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPASWD.SA.048(1) 65 5.0T1 317 ACCOUNTING.ACCPASWD.SA.051 1 LINE 80 5 PAGE UM ENGLE JAN. 09, 1979 15:29:57 5.0T1 317 0 PROGRAM TO GENERATE A RANDOM PASSWORD FOR AN ACCOUNTING RECORD AND PRINT THE NEW PASSWORD PLUS THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET. THIS PROGRAM WRITES AN AUDIT TRAIL IN THE FILE *PWSTAT, WHICH MUST EXIST AS A LINE FILE WITH AT LEAST ONE LINE (WHICH MAY BE ANYTHING). RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/159, 104/160, 104/167 1 MON AUG 05/96 18:37:45 Page 62 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/052 ACCOUNTING ACCPASWD OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPASWD.OC.049(1) 66 5.0T1 318 ACCOUNTING.ACCPASWD.OC.052 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1979 15:30:04 5.0T1 318 00104/053 ACCOUNTING ACCPASWD OE G # WPSW:PROGRAM1 UM ENGLE ACC:ACCPASWD 00104/054A ACCOUNTING ACONSIST SA G ACNS S0027 DISTRB FSNAME=ACONSIST 5.0T1 319 ACCOUNTING.ACONSIST.SA.054 1 LINE 80 13 PAGE UM ENGLE AUG. 13, 1980 10:39:10 5.0T1 319 0 MAIN PROGRAM FOR ACCERRORSCAN. RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2). 0 Referenced by comments of: 104/133 00104/055A ACCOUNTING ACONSIST UC G S0027 DISTRB FSNAME=ACONSISTUPD 5.0T1 320 ACCOUNTING.ACONSIST.UC.055 1 LINE 54 1 PAGE UM ENGLE AUG. 13, 1980 10:39:17 5.0T1 320 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/056A ACCOUNTING ACONSIST OC G S0027 DISTRB FSNAME=ACNS 5.0T1 321 ACCOUNTING.ACONSIST.OC.056 1 LINE 80 4 PAGE UM ENGLE AUG. 13, 1980 10:39:22 5.0T1 321 00104/057A ACCOUNTING ACONSIST OC G # ACC:ACCERRORSCAN UM ENGLE ACC:ACCERRORSCAN 0 Referenced by comments of: 104/4 00104/058 ACCOUNTING FILENAME SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.FILENAME.SA.054(1) 69 5.0T1 322 ACCOUNTING.FILENAME.SA.058 1 LINE 80 1 PAGE UM ENGLE JAN. 25, 1979 16:39:44 5.0T1 322 0 CONTAINS THE NAMES OF THE FILES *ACCOUNTING, *PWSTAT, *PROJECT, *PROJDIRECTORY, AND *STATISTICS. 0 Referenced by comments of: 104/149 00104/059 ACCOUNTING FILENAME UC G # S0027 DISTRB FSNAME=FILENAMEUPD D4.2T1 70 ACCOUNTING.FILENAME.UC.055 1 LINE 39 1 PAGE UM ENGLE JAN. 25, 1979 16:39:54 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/060 ACCOUNTING FILENAME OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.FILENAME.OC.056(1) 71 5.0T1 323 ACCOUNTING.FILENAME.OC.060 1 SEQ 80 1 PAGE UM ENGLE JAN. 25, 1979 16:40:00 5.0T1 323 0 Referenced by comments of: 631/15, 631/23 1 MON AUG 05/96 18:37:45 Page 63 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/061 ACCOUNTING DIRECTRY SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.DIRECTRY.SA.057(1) 72 5.0T1 324 ACCOUNTING.DIRECTRY.SA.061 1 LINE 80 17 PAGE UM ENGLE JAN. 10, 1979 15:27:14 5.0T1 324 0 I/O SUBROUTINES FOR THE DIRECTORY FILE. COPIES *CNFGINFODSECT (654). 00104/062 ACCOUNTING DIRECTRY OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.DIRECTRY.OC.058(1) 73 5.0T1 325 ACCOUNTING.DIRECTRY.OC.062 1 LINE 80 4 PAGE UM ENGLE JAN. 10, 1979 15:27:27 5.0T1 325 0 Referenced by comments of: 631/15, 631/23 00104/063 ACCOUNTING DIRLIST SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRLIST.SA.046(1) 325 5.0T1 326 ACCOUNTING.DIRLIST.SA.063 1 LINE 80 4 PAGE UM ENGLE DEC. 06, 1974 11:36.26 5.0T1 326 0 MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY. 00104/064 ACCOUNTING DIRLIST OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRLIST.OC.047(1) 326 5.0T1 327 ACCOUNTING.DIRLIST.OC.064 1 LINE 80 2 PAGE UM ENGLE DEC. 06, 1974 11:36.55 5.0T1 327 00104/065 ACCOUNTING DIRLIST OC G # ACC:DIRLIST UM ENGLE ACC:DIRLIST 00104/066 ACCOUNTING FILUPDAT SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.FILUPDAT.SA.062(1) 74 5.0T1 328 ACCOUNTING.FILUPDAT.SA.066 1 LINE 80 7 PAGE UM ENGLE MAR. 07, 1979 12:02:47 5.0T1 328 0 PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE CURRENT MONTH (IF NO PAR= IS GIVEN) OR EXPIRATION TIME. IF PAR=MM/DD/YY IS GIVEN, UPDATE IS TO 24:00:00 OF MM/DD/YY OR EXPIRATION TIME. IF PAR= MM/DD/YY HH:MM:SS IS GIVEN, UPDATE IS TO SPECIFIED TIME OR EXPIRATION TIME. PROGRAM UPDATES THE ACCOUNTING RECORD AND WRITES A STATISTICS RECORD FOR BILLING. RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/159, 104/160 00104/067 ACCOUNTING FILUPDAT OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.FILUPDAT.OC.063(1) 75 5.0T1 329 ACCOUNTING.FILUPDAT.OC.067 1 LINE 80 3 PAGE UM ENGLE MAR. 07, 1979 12:02:58 5.0T1 329 00104/068 ACCOUNTING ACONVERT SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACONVERT.SA.050(1) 329 5.0T1 330 ACCOUNTING.ACONVERT.SA.068 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 10:41:10 5.0T1 330 0 ACCUPDAT SUBROUTINE TO CONVERT A DISTRIBUTION 3.2 ACCOUNTING FILE TO THE NEW FORMAT WHICH INCLUDES PLOTTER PAPER AND PEN FIELDS. USE WITH ACCRDWRT (104/34). COPIES ACCFORMAT (104/1). 1 MON AUG 05/96 18:37:45 Page 64 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/069 ACCOUNTING ACONVERT OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACONVERT.OC.051(1) 330 5.0T1 331 ACCOUNTING.ACONVERT.OC.069 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 10:41:16 5.0T1 331 00104/070A ACCOUNTING STAPROJECT OC G S0027 DISTRB FSNAME=STAPROJECT 5.0T1 332 ACCOUNTING.STAPROJECT.OC.070 1 LINE 80 7 PAGE UM ENGLE FEB. 12, 1981 16:44:10 5.0T1 332 0 PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT. PRODUCED BY ASSEMBLING NEW ACCMXMAT (631/17) WITH &STAPRJ SET TO ONE. RUN WITH PROT=OFF. 0 Referenced by comments of: 104/71, 631/8 00104/071A ACCOUNTING STAPROJECT OE G # ACC:STAPROJECT UM ENGLE ACC:STAPROJECT 0 LINKEDITED VERSION OF (104/70) + AUPR (631/22) + "$CONTINUE WITH ACC:ACCLIB". 00104/072 ACCOUNTING GRDEF SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.GRDEF.SA.057(1) 336 5.0T1 333 ACCOUNTING.GRDEF.SA.072 1 SEQ 80 1 PAGE UM ENGLE JAN. 10, 1973 17:16.39 5.0T1 333 0 COPY SECTION. 0 Referenced by comments of: 97/4, 104/19, 104/81, 104/84, 104/87, 104/96, 104/100, 104/107, 104/120, 104/141, 360/1, 500/46, 586/1, 631/1, 631/5, 631/13, 632/3, 708/1 00104/073 ACCOUNTING WKDAY SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.WKDAY.SA.058(1) 337 5.0T1 334 ACCOUNTING.WKDAY.SA.073 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1973 12:14.08 5.0T1 334 0 SUBROUTINE TO PRODUCE THE DAY OF THE WEEK FOR A GIVEN DATE. USED IN INITCHK (104/80). 00104/074 ACCOUNTING WKDAY OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.WKDAY.OC.059(1) 338 5.0T1 335 ACCOUNTING.WKDAY.OC.074 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 12:14.29 5.0T1 335 00104/075 ACCOUNTING DIRDSPLA SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRDSPLA.SA.060(1) 339 5.0T1 336 ACCOUNTING.DIRDSPLA.SA.075 1 LINE 80 3 PAGE UM ENGLE JAN. 12, 1973 13:57.36 5.0T1 336 0 PROGRAM TO READ A SPECIFIC RECORD FROM *PRJDIRECTORY AND CALL DIRPRINT FOR IT. 00104/076 ACCOUNTING DIRDSPLA OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRDSPLA.OC.061(1) 340 5.0T1 337 ACCOUNTING.DIRDSPLA.OC.076 1 LINE 80 1 DISK UM ENGLE JAN. 12, 1973 13:57.46 5.0T1 337 00104/077 ACCOUNTING DIRDSPLA OC G # ACC:DIRDISPLAY UM ENGLE ACC:DIRDISPLAY 1 MON AUG 05/96 18:37:45 Page 65 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/078 ACCOUNTING DIRPRINT SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRPRINT.SA.062(1) 341 5.0T1 338 ACCOUNTING.DIRPRINT.SA.078 1 LINE 80 6 PAGE UM ENGLE DEC. 06, 1974 12:00.11 5.0T1 338 0 SUBROUTINE TO FORMAT A DIRECTORY ENTRY FOR PRINTING. USED IN ACC:ACCLIB. 00104/079 ACCOUNTING DIRPRINT OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.DIRPRINT.OC.063(1) 342 5.0T1 339 ACCOUNTING.DIRPRINT.OC.079 1 LINE 80 2 PAGE UM ENGLE DEC. 06, 1974 12:00.34 5.0T1 339 00104/080 ACCOUNTING INITCHK # (PART OF INIT) UM ENGLE 0 DISTRIBUTED AS (97/4) AND (97/5) 0 Referenced by comments of: 104/73 00104/081A ACCOUNTING ACCFLUPD SA G AFLU S0027 DISTRB FSNAME=ACCFLUPD 5.0T1 340 ACCOUNTING.ACCFLUPD.SA.081 1 LINE 80 7 PAGE UM ENGLE SEP. 09, 1980 16:28:50 5.0T1 340 0 SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD. COPIES ACCFORMAT (104/1) AND GRDEF (104/72). 0 Referenced by comments of: 484/1 00104/082A ACCOUNTING ACCFLUPD UC G S0027 DISTRB FSNAME=ACCFLUPDUPD 5.0T1 341 ACCOUNTING.ACCFLUPD.UC.082 1 LINE 68 1 PAGE UM ENGLE SEP. 09, 1980 16:28:56 5.0T1 341 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/083A ACCOUNTING ACCFLUPD OC G S0027 DISTRB FSNAME=AFLU 5.0T1 342 ACCOUNTING.ACCFLUPD.OC.083 1 LINE 80 2 PAGE UM ENGLE SEP. 09, 1980 16:29:00 5.0T1 342 00104/084A ACCOUNTING ACCINSCN SA G AINS S0027 DISTRB FSNAME=ACCINSCN 5.0T1 343 ACCOUNTING.ACCINSCN.SA.084 1 LINE 80 8 PAGE UM ENGLE AUG. 13, 1980 11:02:54 5.0T1 343 0 USED IN INIT:INIT (097/3). COPIES ACCFORMAT (104/1) AND GRDEF (104/72). 00104/085A ACCOUNTING ACCINSCN UC G S0027 DISTRB FSNAME=ACCINSCNUPD 5.0T1 344 ACCOUNTING.ACCINSCN.UC.085 1 LINE 69 3 PAGE UM ENGLE AUG. 13, 1980 11:03:22 5.0T1 344 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/086A ACCOUNTING ACCINSCN OC G S0027 DISTRB FSNAME=AINS 5.0T1 345 ACCOUNTING.ACCINSCN.OC.086 1 LINE 80 3 PAGE UM ENGLE AUG. 13, 1980 11:03:29 5.0T1 345 1 MON AUG 05/96 18:37:45 Page 66 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/087 ACCOUNTING CURSIG SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.CURSIG.SA.069(1) 347 5.0T1 346 ACCOUNTING.CURSIG.SA.087 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1973 17:55.52 5.0T1 346 0 SUBROUTINE TO DETERMINE NUMBER OF CURRENT SIGNONS. COPIES GRDEF (104/72) AND *LLMPSEQU. NOTE THAT THE SOURCE SHOULD BE CHANGED (IF RE-ASSEMBLED) SO THAT IT COPIES COPY:LLMPSEQU (087) INSTEAD OF *LLMPSEQU WHICH NO LONGER EXISTS. 0 Referenced by comments of: 484/1 00104/088 ACCOUNTING CURSIG OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.CURSIG.OC.070(1) 348 5.0T1 347 ACCOUNTING.CURSIG.OC.088 1 LINE 80 1 DISK UM ENGLE JAN. 08, 1973 17:56.03 5.0T1 347 00104/089 ACCOUNTING DEDFLFIX # (PART OF DEADFILES) UM ENGLE 0 Distributed as (502/10) and (502/11) 00104/090 ACCOUNTING ACCLSTPR SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCLSTPR.SA.084(1) 77 5.0T1 348 ACCOUNTING.ACCLSTPR.SA.090 1 LINE 80 9 PAGE UM ENGLE JAN. 09, 1979 15:32:09 5.0T1 348 0 SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/133 00104/091 ACCOUNTING ACCLSTPR OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCLSTPR.OC.085(1) 78 5.0T1 349 ACCOUNTING.ACCLSTPR.OC.091 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1979 15:32:23 5.0T1 349 00104/092A ACCOUNTING ACCFLCHG SA G AFLC S0027 DISTRB FSNAME=ACCFLCHG 5.0T1 350 ACCOUNTING.ACCFLCHG.SA.092 1 LINE 80 4 PAGE UM ENGLE SEP. 02, 1980 16:59:14 5.0T1 350 0 SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD. CALLED BY ACCDSPLA. COPIES ACCFORMAT (104/1). 00104/093A ACCOUNTING ACCFLCHG UC G S0027 DISTRB FSNAME=ACCFLCHGUPD 5.0T1 351 ACCOUNTING.ACCFLCHG.UC.093 1 LINE 72 1 PAGE UM ENGLE SEP. 02, 1980 16:59:17 5.0T1 351 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/094A ACCOUNTING ACCFLCHG OC G S0027 DISTRB FSNAME=AFLC 5.0T1 352 ACCOUNTING.ACCFLCHG.OC.094 1 LINE 80 1 PAGE UM ENGLE AUG. 13, 1980 11:05:30 5.0T1 352 00104/095A ACCOUNTING ACCFLCHG OE G # ACC:ACCFILCHARGE UM ENGLE ACC:ACCFILCHARGE 0 ACCDSPLA+ACCFLCHG 1 MON AUG 05/96 18:37:45 Page 67 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/096 ACCOUNTING APSWDISP SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.APSWDISP.SA.076(1) 353 5.0T1 353 ACCOUNTING.APSWDISP.SA.096 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1973 18:07.38 5.0T1 353 0 SUBROUTINE TO PRINT INTERNAL PASSWORD REPRESENTATION AND LAST DATE AND TIME SET FOR AN ACCOUNTING RECORD. CALLED BY ACCDSPLA. COPIES ACCFORMAT (104/1) AND GRDEF (104/72). 00104/097 ACCOUNTING APSWDISP OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.APSWDISP.OC.077(1) 354 5.0T1 354 ACCOUNTING.APSWDISP.OC.097 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 12:20:25 5.0T1 354 00104/098 ACCOUNTING ACCHEXPR SA O S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCHEXPR.SA.078(1) 355 5.0T1 355 ACCOUNTING.ACCHEXPR.SA.098 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1973 10:55.07 5.0T1 355 0 SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN HEX. CALLED BY ACCDSPLA. 00104/099 ACCOUNTING ACCHEXPR OC O S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCHEXPR.OC.079(1) 356 5.0T1 356 ACCOUNTING.ACCHEXPR.OC.099 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 10:55.43 5.0T1 356 00104/100 ACCOUNTING TIMETRP SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.TIMETRP.SA.080(1) 357 5.0T1 357 ACCOUNTING.TIMETRP.SA.100 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 12:04.25 5.0T1 357 0 SUBROUTINE TO SET UP REAL TIME INTERRUPTS AND SET A FLAG AT THE INTERRUPT. COPIES GRDEF (104/72). 00104/101 ACCOUNTING TIMETRP OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.TIMETRP.OC.081(1) 358 5.0T1 358 ACCOUNTING.TIMETRP.OC.101 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 12:04.41 5.0T1 358 0 Referenced by comments of: 631/15, 631/23 00104/102 ACCOUNTING ACCSGATR SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCSGATR.SA.082(1) 359 5.0T1 359 ACCOUNTING.ACCSGATR.SA.102 1 LINE 80 5 PAGE UM ENGLE JAN. 08, 1974 14:50.39 5.0T1 359 0 PROGRAM TO RESET SIGNON ATTENTION FLAG IN A USERS ACCOUNTING RECORD. THIS PROGRAM WRITES AN AUDIT TRAIL IN THE FILE *PWSTAT, WHICH MUST EXIST AS A LINE FILE WITH AT LEAST ONE LINE (WHICH MAY BE ANYTHING). RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/159, 104/160, 104/167 00104/103 ACCOUNTING ACCSGATR OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCSGATR.OC.083(1) 360 5.0T1 360 ACCOUNTING.ACCSGATR.OC.103 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1974 14:53.32 5.0T1 360 00104/104A ACCOUNTING ACCSAVE SA G ASAV S0027 DISTRB FSNAME=ACCSAVE 5.0T1 361 ACCOUNTING.ACCSAVE.SA.104 1 LINE 80 8 PAGE UM ENGLE FEB. 16, 1981 14:20:43 5.0T1 361 0 MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE. 0 Referenced by comments of: 104/135 1 MON AUG 05/96 18:37:45 Page 68 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/105A ACCOUNTING ACCSAVE OC G S0027 DISTRB FSNAME=ASAV 5.0T1 362 ACCOUNTING.ACCSAVE.OC.105 1 LINE 80 3 PAGE UM ENGLE FEB. 16, 1981 14:21:18 5.0T1 362 00104/106 ACCOUNTING ACCSAVE OE G # ACC:ACCSAVE UM ENGLE ACC:ACCSAVE 00104/107 ACCOUNTING ACCTAPRD SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCTAPRD.SA.086(1) 363 5.0T1 363 ACCOUNTING.ACCTAPRD.SA.107 1 LINE 80 4 PAGE UM ENGLE DEC. 05, 1975 12:24:14 5.0T1 363 0 VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES. COPIES GRDEF (104/72). 00104/108 ACCOUNTING ACCTAPRD OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCTAPRD.OC.087(1) 364 5.0T1 364 ACCOUNTING.ACCTAPRD.OC.108 1 LINE 80 2 PAGE UM ENGLE DEC. 05, 1975 12:24:24 5.0T1 364 00104/109A ACCOUNTING GETFILE SA G GTFL S0027 DISTRB FSNAME=GETFILE 5.0T1 365 ACCOUNTING.GETFILE.SA.109 1 LINE 80 4 PAGE UM ENGLE OCT. 07, 1980 16:58:00 5.0T1 365 0 SUBROUTINE TO GET A FDUB, ETC. 00104/110C ACCOUNTING GETFILE UC G S0027 DISTRB FSNAME=GETFILEUPD 5.0T1 366 ACCOUNTING.GETFILE.UC.110 1 LINE 71 1 PAGE UM ENGLE OCT. 07, 1980 16:58:03 5.0T1 366 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/111A ACCOUNTING GETFILE OC G S0027 DISTRB FSNAME=GTFL 5.0T1 367 ACCOUNTING.GETFILE.OC.111 1 LINE 80 2 PAGE UM ENGLE OCT. 07, 1980 16:58:05 5.0T1 367 0 Referenced by comments of: 484/1, 631/15, 631/23 00104/112A ACCOUNTING ACATALOG SA G ACAT FILE:ACATALOG(1000) 5.0T1 368 ACCOUNTING.ACATALOG.SA.112 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 12:44:21 5.0T1 368 0 SUBROUTINE THAT GETS THE CURRENT DISK AND DATA CELL SPACE FOR A USER FROM THE CATALOG AND DSCB. USED BY ACC:ACCMAINT, INIT:INIT, AND *ACCRESTORE. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00104/113A ACCOUNTING ACATALOG OC G FILE:ACATALOG(1,998) 5.0T1 369 ACCOUNTING.ACATALOG.OC.113 1 LINE 80 2 PAGE UM HELFFRICH JULY 03, 1981 12:44:22 5.0T1 369 FILE:ACATALOG 0 Referenced by comments of: 484/1 1 MON AUG 05/96 18:37:45 Page 69 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/114 ACCOUNTING ACATALOG SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACATALOG.SA.092(1) 369 5.0T1 370 ACCOUNTING.ACATALOG.SA.114 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 22:18:36 5.0T1 370 0 THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION, BUT CALLS THE ACATSUB SUBROUTINE (104/116) TO BUILD A TABLE OF USER ID VERSUS FILE SPACE FOR ALL USERS ON THE FIRST CALL TO ACATALOG. FROM THEN ON, IT JUST DOES A TABLE LOOKUP TO GET THE SIZE -- THE RESULT BEING A VERY FAST ACATALOG. THIS VERSION IS ONLY USED WHEN EVERY USER'S FILE SPACE IS TO BE RECALCULATED. AT UM, IT HAS ONLY BEEN USED WHEN NEW FILE SYSTEMS ARE INSTALLED, I.E. WHEN A COMPLETE FILE SAVE AND RESTORE HAVE BEEN DONE. 0 Referenced by comments of: 104/116 00104/115 ACCOUNTING ACATALOG OC G FILE:ACATALOG.FAST 5.0T1 371 ACCOUNTING.ACATALOG.OC.115 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 12:44:23 5.0T1 371 FILE:ACATALOG.FAST 0 Referenced by comments of: 682/36 00104/116A ACCOUNTING ACATALOG.FAST SA G FILE:REALACATSUB(1,999) 5.0T1 372 ACCOUNTING.ACATALOG.FAST.SA.116 1 LINE 71 7 PAGE UM MTA JULY 03, 1981 12:44:24 5.0T1 372 FILE:REALACATSUB 0 SUBROUTINE CALLED BY SUPER ACATALOG (104/114). IT BUILDS A TABLE OF THE AMOUNT OF SPACE USED BY EACH USERID WHICH HAS FILES. THIS VERSION IS DIFFERENT FROM THE PROGRAM USED IN DISK DISASTER RECOVERY, SEE COMP (682/44) TO VERIFY CATALOG/DSCB CONSISTENCY. CALLS VTOCREAD (067/3). ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 104/114, 682/36 00104/117A ACCOUNTING ACATALOG.FAST OC G FILE:REALACATSUB(1000) 5.0T1 373 ACCOUNTING.ACATALOG.FAST.OC.117 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 12:44:25 5.0T1 373 00104/118A ACCOUNTING WRITEUP WF S0027 DISTRB FSNAME=ACCWRITEUP 5.0T1 374 ACCOUNTING.WRITEUP.WF.118 1 LINE 80 8 PAGE UM ENGLE FEB. 13, 1981 17:41:44 5.0T1 374 0 A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS. 00104/119A ACCOUNTING WRITEUP UC S0027 DISTRB FSNAME=ACCWRITEUPUP 5.0T1 375 ACCOUNTING.WRITEUP.UC.119 1 LINE 66 1 PAGE UM ENGLE FEB. 13, 1981 17:42:26 5.0T1 375 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/120 ACCOUNTING IOLOKCK SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.IOLOKCK.SA.097(1) 374 5.0T1 376 ACCOUNTING.IOLOKCK.SA.120 1 LINE 80 5 PAGE UM ENGLE DEC. 05, 1975 12:27:08 5.0T1 376 0 SUBROUTINE TO INTERCEPT I/O ERRORS AND NON-ZERO RETURN CODES FROM SETLCK IN ORDER TO PREVENT INTERRUPTION OF FILE LOCK WAITS. SETIOERR MUST BE CALLED WITH IOLOKCK AS THE I/O ERROR SUBROUTINE IN ORDER TO ACTIVATE THE I/O ERROR INTERCEPT. 1 MON AUG 05/96 18:37:45 Page 70 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COPIES GRDEF (104/72). 00104/121 ACCOUNTING IOLOKCK OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.IOLOKCK.OC.098(1) 375 5.0T1 377 ACCOUNTING.IOLOKCK.OC.121 1 LINE 80 2 PAGE UM ENGLE DEC. 05, 1975 12:27:18 5.0T1 377 0 Referenced by comments of: 631/15, 631/23 00104/122 ACCOUNTING FLINFCL SG G S1143 D4.1T1 VLO FSNAME=ACCOUNTING.FLINFCL.SG.113(1) 52 5.0T1 378 ACCOUNTING.FLINFCL.SG.122 1 LINE 59 1 PAGE UM ENGLE FEB. 27, 1978 13:45:51 5.0T1 378 0 PROGRAM TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE BROKEN DOWN BY THE FIRST LETTER OF THE PROJECT NUMBER FOR ACTIVE (UNEXPIRED) SIGNON ID'S AND SUMMARIZED FOR ALL DEAD (EXPIRED) ID'S. IF PAR=DEAD IS GIVEN, THE REVERSE IS DONE, I.E., THE USAGE INFORMATION IS BROKEN DOWN BY THE FIRST LETTER OF THE PROJECT NUMBER FOR DEAD ID'S AND SUMMARIZED FOR ALL ACTIVE ID'S. THE PARAMETER MM/DD/YY (OR DATE=MM/DD/YY) MAY ALSO BE GIVEN TO SPECIFY A DATE; FILES BELONGING TO ID'S EXPIRING AT OR BEFORE MIDNIGHT OF THAT DATE ARE CONSIDERED DEAD. IF NO DATE IS SPECIFIED, THEN THE PREVIOUS MIDNIGHT IS USED AS THE TIME. IN ADDITION, IF PAR=STAFF IS GIVEN, ADDITIONAL INFORMATION FOR EACH SIGNON ID BELONGING TO A PROJECT BEGINNING WITH THE LETTER W IS PRINTED. THIS SECTION LOADS THE MAIN FUNCTION (104/124) FROM ACC:ACCLIB+NEW:GOMLIB. 00104/123A ACCOUNTING FLINFCL OC G S0027 DISTRB FSNAME=FICL 5.0T1 379 ACCOUNTING.FLINFCL.OC.123 1 LINE 80 1 PAGE UM ENGLE FEB. 24, 1981 15:43:56 5.0T1 379 ACC:FILEINFO 0 THIS FILE HAS THE PROGRAM KEY ACC.:FILEINFO. *************************************************************************** D5.0 VERSION: Contains a REP line to cause loading only from ACC:ACCLIB instead of from ACC:ACCLIB+NEW:GOMLIB. *************************************************************************** 00104/124 ACCOUNTING ACCFLINF SG G S1430 4.3T1 VLO FSNAME=ACCOUNTING.ACCFLINF.SG.118(1) 84 5.0T1 380 ACCOUNTING.ACCFLINF.SG.124 1 LINE 100 3 PAGE UM ENGLE FEB. 20, 1980 10:33:58 5.0T1 380 0 MAIN FUNCTION TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE. 0 Referenced by comments of: 104/122, 104/127, 104/129, 104/131 00104/125 ACCOUNTING ACCFLINF UC G # S0027 DISTRB FSNAME=ACCFLINFUPD 4.3T1 85 ACCOUNTING.ACCFLINF.UC.119 1 LINE 81 1 PAGE UM ENGLE FEB. 20, 1980 10:34:06 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 1 MON AUG 05/96 18:37:45 Page 71 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/126 ACCOUNTING ACCFLINF OC G S1430 4.3T1 VLO FSNAME=ACCOUNTING.ACCFLINF.OC.120(1) 86 5.0T1 381 ACCOUNTING.ACCFLINF.OC.126 1 LINE 80 7 PAGE UM ENGLE FEB. 20, 1980 10:34:12 5.0T1 381 00104/127 ACCOUNTING ACCFLKWF SG G S1143 D4.1T1 VLO FSNAME=ACCOUNTING.ACCFLKWF.SG.117(1) 56 5.0T1 382 ACCOUNTING.ACCFLKWF.SG.127 1 LINE 70 1 PAGE UM ENGLE FEB. 27, 1978 14:01:40 5.0T1 382 0 KWSCAN EXECUTE SUBROUTINE FOR ACCFLINF (104/124). 00104/128 ACCOUNTING ACCFLKWF OC G S1143 D4.1T1 VLO FSNAME=ACCOUNTING.ACCFLKWF.OC.118(1) 57 5.0T1 383 ACCOUNTING.ACCFLKWF.OC.128 1 LINE 80 1 PAGE UM ENGLE FEB. 27, 1978 14:02:24 5.0T1 383 00104/129 ACCOUNTING ACCFLATN SG G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCFLATN.SG.120(1) 85 5.0T1 384 ACCOUNTING.ACCFLATN.SG.129 1 LINE 55 1 PAGE UM ENGLE JAN. 09, 1979 15:35:45 5.0T1 384 0 GOM ATTENTION INTERRUPT EXIT FOR ACCFLINF (104/124). 00104/130 ACCOUNTING ACCFLATN OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCFLATN.OC.121(1) 86 5.0T1 385 ACCOUNTING.ACCFLATN.OC.130 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 15:38:12 5.0T1 385 00104/131 ACCOUNTING ACCFLAIO SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCFLAIO.SA.105(1) 382 5.0T1 386 ACCOUNTING.ACCFLAIO.SA.131 1 LINE 80 1 PAGE UM ENGLE MAR. 02, 1977 11:42:53 5.0T1 386 0 SUBROUTINES ACCSCN AND ACCCLS WHICH ARE INTERFACES BETWEEN ACCFLINF (104/124) AND ACCSCAN AND ACCCLOSE (104/25). 00104/132 ACCOUNTING ACCFLAIO OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACCFLAIO.OC.106(1) 383 5.0T1 387 ACCOUNTING.ACCFLAIO.OC.132 1 LINE 80 1 PAGE UM ENGLE MAR. 02, 1977 11:42:57 5.0T1 387 00104/133 ACCOUNTING LINCOUNT SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.LINCOUNT.SA.124(1) 87 5.0T1 388 ACCOUNTING.LINCOUNT.SA.133 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 13:00:46 5.0T1 388 0 DEFINITION OF THE VARIABLE LINCOUNT. REFERENCED BY ACCPRINT (104/6), ACCLSTPR (104/90), ACPRJPRT (104/43), ACCMAINT (104/21), ACCPRJMT (104/38), AND ACONSIST (104/54). 00104/134 ACCOUNTING LINCOUNT OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.LINCOUNT.OC.125(1) 88 5.0T1 389 ACCOUNTING.LINCOUNT.OC.134 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 13:01:15 5.0T1 389 00104/135A ACCOUNTING ACCRETRV SG G S0027 DISTRB FSNAME=ACCRETRV 5.0T1 390 ACCOUNTING.ACCRETRV.SG.135 1 LINE 128 6 PAGE UM ENGLE MAR. 04, 1981 11:21:21 5.0T1 390 0 PROGRAM TO MOUNT A MONTHLY ACCSAVE TAPE (104/104) OR AN ANNUAL TAPE AND DISPLAY OR LIST ACCOUNTING OR PROJECT RECORDS. ASSUMES THAT THE ANNUAL TAPES ARE IN RACK NUMBERS ACCNN WHERE NN STARTS WITH TPBASE AND IS INCREMENTED 1 MON AUG 05/96 18:37:45 Page 72 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 BY 2. ASSUMES THAT THE FIRST YEAR IS 19YY WHERE YY IS BASEYR. (TPBASE=29, BASEYR=78 IN DISTRIBUTED VERSION.) ALSO ASSUMES THE EXISTENCE OF PROGRAMS IN ACC:ACCDISPLAY, ACC:PROJECTDISP, ACC:ACCLISTING, AND ACC:PROJECTLIST. 0 Referenced by comments of: 104/139 00104/136C ACCOUNTING ACCRETRV UC G S0027 DISTRB FSNAME=ACCRETRVUPD 5.0T1 391 ACCOUNTING.ACCRETRV.UC.136 1 LINE 128 4 PAGE UM ENGLE MAR. 04, 1981 11:21:36 5.0T1 391 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/137A ACCOUNTING ACCRETRV OC G S0027 DISTRB FSNAME=ARTV 5.0T1 392 ACCOUNTING.ACCRETRV.OC.137 1 LINE 80 12 PAGE UM ENGLE MAR. 04, 1981 11:22:13 5.0T1 392 00104/138A ACCOUNTING ACCRETRV OE G # ACC:ACCRETRIEVE UM ENGLE ACC.:ACCRETRIEVE 0 ACCRETRV+ACCTAPRD 00104/139 ACCOUNTING TIMECALL SA G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.TIMECALL.SA.129(1) 91 5.0T1 393 ACCOUNTING.TIMECALL.SA.139 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 13:05:36 5.0T1 393 0 INTERFACE TO DYNAMICALLY LINK TO THE TIME SUBROUTINE. CALLED BY ACCRETRV (104/135). 00104/140 ACCOUNTING TIMECALL OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.TIMECALL.OC.130(1) 92 5.0T1 394 ACCOUNTING.TIMECALL.OC.140 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 13:06:23 5.0T1 394 00104/141A ACCOUNTING GTPRJIDS SA G GPID S0027 DISTRB FSNAME=GTPRJIDS 5.0T1 395 ACCOUNTING.GTPRJIDS.SA.141 1 LINE 80 14 PAGE UM ENGLE FEB. 04, 1981 14:25:28 5.0T1 395 0 SUBROUTINE TO OBTAIN THE SIGNON IDS BELONGING TO A PROJECT. COPIES GRDEF (104/72), ACCPROJFMT (104/2) AND *CNFGINFODSECT (654). 00104/142C ACCOUNTING GTPRJIDS UC G S0027 DISTRB FSNAME=GTPRJIDSUPD 5.0T1 396 ACCOUNTING.GTPRJIDS.UC.142 1 LINE 71 1 PAGE UM ENGLE FEB. 04, 1981 14:26:13 5.0T1 396 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/143A ACCOUNTING GTPRJIDS OC G SEG2:GPID 5.0T1 397 ACCOUNTING.GTPRJIDS.OC.143 1 LINE 2752 2 PAGE UM ENGLE JULY 03, 1981 12:45:09 5.0T1 397 SEG2:GPID 1 MON AUG 05/96 18:37:45 Page 73 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/144 ACCOUNTING ACCPRJID SG G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPRJID.SG.133(1) 95 5.0T1 398 ACCOUNTING.ACCPRJID.SG.144 1 LINE 112 1 PAGE UM ENGLE JAN. 09, 1979 13:08:32 5.0T1 398 0 PROGRAM TO LIST THE SIGNON ID'S FOR A SPECIFIED PROJECT. 00104/145 ACCOUNTING ACCPRJID OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.ACCPRJID.OC.134(1) 96 5.0T1 399 ACCOUNTING.ACCPRJID.OC.145 1 LINE 80 4 PAGE UM ENGLE JAN. 09, 1979 13:08:55 5.0T1 399 00104/146 ACCOUNTING ACCPRJID OE G # ACC:PROJECTIDS UM ENGLE ACC.:PROJECTIDS 00104/147 ACCOUNTING IDRANGE SG G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.IDRANGE.SG.136(1) 97 5.0T1 400 ACCOUNTING.IDRANGE.SG.147 1 LINE 84 3 PAGE UM ENGLE JAN. 09, 1979 14:35:56 5.0T1 400 0 PROGRAM TO PRINT THE LAST ID IN A RANGE GIVEN THE FIRST ID AND NUMBER OF ID'S OR THE NUMBER OF ID'S GIVEN THE FIRST AND LAST ID'S WITH OPTION TO LIST ALL ID'S IN THE RANGE. COLLATING SEQUENCE IS A-H, J-N, P-Z, 0-9. 00104/148 ACCOUNTING IDRANGE OC G S1319 D4.2T1 VLO FSNAME=ACCOUNTING.IDRANGE.OC.137(1) 98 5.0T1 401 ACCOUNTING.IDRANGE.OC.148 1 LINE 80 4 PAGE UM ENGLE JAN. 09, 1979 14:36:14 5.0T1 401 00104/149A ACCOUNTING ACCKILL SG O S0027 DISTRB FSNAME=ACCKILL 5.0T1 402 ACCOUNTING.ACCKILL.SG.149 1 LINE 110 3 PAGE UM ENGLE AUG. 13, 1980 11:27:11 5.0T1 402 0 PROGRAM TO BE RUN BY THE OPERATORS TO CHANGE A PASSWORD TO AN UNKNOWN VALUE. PROGRAM PROMPTS FOR OPERATOR'S NAME, NAME OF PERSON REQUESTING THE CHANGE, THE SIGNON ID, AND THE SIGNON ID A SECOND TIME FOR VERIFICATION. INFORMATION ABOUT THE CHANGE IS WRITTEN IN PASWRDFL. SEE FILENAME (104/58). 00104/150A ACCOUNTING ACCKILL UC G S0027 DISTRB FSNAME=ACCKILLUPD 5.0T1 403 ACCOUNTING.ACCKILL.UC.150 1 LINE 72 1 PAGE UM ENGLE AUG. 13, 1980 11:27:23 5.0T1 403 0 UPDATES SOURCE FROM THE PREVIOUS REGULAR DISTRIBUTION TO THE CURRENT DISTRIBUTION. 00104/151A ACCOUNTING ACCKILL OC O SYS.:ACCKILL 5.0T1 404 ACCOUNTING.ACCKILL.OC.151 1 LINE 3488 5 PAGE UM ENGLE AUG. 05, 1981 02:05:26 5.0T1 404 SYS:ACCKILL 0 Referenced by comments of: 104/152, 104/153 00104/152A ACCOUNTING ACCKILL C SYS:CPW 5.0T1 405 ACCOUNTING.ACCKILL.C.152 1 LINE 51 1 PAGE UM MTA AUG. 05, 1981 02:05:27 5.0T1 405 SYS:CPW 0 File $SOURCEd to by (104/153) to run ACCKILL (104/151). 1 MON AUG 05/96 18:37:45 Page 74 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 104/153 00104/153A ACCOUNTING ACCKILL C *CPW 5.0T1 406 ACCOUNTING.ACCKILL.C.153 1 LINE 11 1 PAGE UM MTA AUG. 05, 1981 02:05:28 5.0T1 406 *CPW 0 Operator file which $SOURCEs to (104/152) to $RUN (104/151). 0 Referenced by comments of: 104/152 00104/154A ACCOUNTING AIOIF SA G AIOI S0027 DISTRB FSNAME=AIOIF 5.0T1 407 ACCOUNTING.AIOIF.SA.152 1 LINE 80 1 PAGE UM ENGLE AUG. 15, 1980 11:23:00 5.0T1 407 0 THIS IS AN INTERFACE TO THE ACCOUNTING I/O SUBROUTINES FOR PROGRAMS WRITTEN IN LANGUAGES WHICH CANNOT ACCESS GENERAL REGISTERS 0 OR 13. 00104/155A ACCOUNTING AIOIF OC G S0027 DISTRB FSNAME=AIOI 5.0T1 408 ACCOUNTING.AIOIF.OC.153 1 LINE 80 1 PAGE UM ENGLE AUG. 15, 1980 11:23:05 5.0T1 408 00104/156 ACCOUNTING LOG SG G S1430 4.3T1 VLO FSNAME=ACCOUNTING.LOG.SG.144(1) 89 5.0T1 409 ACCOUNTING.LOG.SG.154 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 10:41:31 5.0T1 409 0 SUBROUTINE TO WRITE AN AUDIT TRAIL IN A LOG FILE. 0 Referenced by comments of: 631/15, 631/23 00104/157 ACCOUNTING LOG UC G # S0027 DISTRB FSNAME=LOGUPD 4.3T1 90 ACCOUNTING.LOG.UC.145 1 LINE 67 1 PAGE UM ENGLE FEB. 20, 1980 10:41:38 00104/158 ACCOUNTING LOG OC G S1430 4.3T1 VLO FSNAME=ACCOUNTING.LOG.OC.146(1) 91 5.0T1 410 ACCOUNTING.LOG.OC.156 1 LINE 80 4 PAGE UM ENGLE FEB. 20, 1980 10:41:45 5.0T1 410 00104/159 ACCOUNTING *ACCOUNTING D # MTS:$ACCOUNTING UM ENGLE *ACCOUNTING 0 THIS FILE CONTAINS THE SUFFIXS FOR THE NAME OF THE AUXILIARY ACCOUNTING FILE CONTAINING THE ACCOUNTING RECORD FOR EACH USER ID. THIS FILE MUST BE PERMITTED AS FOLLOWS: R/N,R (PKEY=*SYS.ACC,PKEY=*SYS.ACCOUNT, PKEY=INIT:INIT,PKEY=(ACCPASWD (104/51)),PKEY=(ACCSGATR (104/102)), PKEY=(FIX (502/10)),PKEY=*ACRESTORE,PKEY=(SCANFILES (502/1)), PKEY=(ACCKILL(104/149))),WE PKEY=INIT:INITCHK,RW ACC.,RWE PKEY=(FILUPDAT (104/66)) THE DISTRIBUTED SYSTEM HAS THE FOLLOWING USERIDS: ACC., APL., BB00 ... BB99, BNCH, B001 ... B500, COPY, DIST, DWB., ETC., FILE, FIX., INIT, MAIL, MTA., MTS., NEW., NPRV, RSTR, SEG2, STRT, SYS., TAPE, TMTS, UNSP, WSG., W009, AND W170. 1 MON AUG 05/96 18:37:45 Page 75 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/160 ACCOUNTING *ACCOUNTING1 D # MTS:$ACCOUNTING1 UM ENGLE *ACCOUNTING1 0 THE AUXILIARY ACCOUNTING FILES (*ACCOUNTING1, *ACCOUNTING2, ETC.) CONTAIN THE ACTUAL ACCOUNTING RECORDS, ONE FOR EACH USER ID. THE FILES MUST BE PERMITTED AS FOLLOWS: R/N,RWC (PKEY=*SYS.ACC,PKEY=*SYS.ACCOUNT,PKEY=INIT:INIT,PKEY=(FIX (502/10)),PKEY=*ACRESTORE, PKEY=(FILUPDAT (104/66)),PKEY=(SCANFILES (502/1)),PKEY=(ACCPASWD (104/51)), PKEY=(ACCSGATR (104/102)),PKEY=(ACCKILL(104/149))),R PKEY=ACC.:FILEINFO,RW ACC. 00104/161 ACCOUNTING *ACCOUNTING2 D # MTS:$ACCOUNTING2 UM ENGLE *ACCOUNTING2 00104/162 ACCOUNTING *ACCOUNTING3 D # MTS:$ACCOUNTING3 UM ENGLE *ACCOUNTING3 00104/163 ACCOUNTING *ACCOUNTING4 D # MTS:$ACCOUNTING4 UM ENGLE *ACCOUNTING4 00104/164 ACCOUNTING *ACCOUNTING5 D # MTS:$ACCOUNTING5 UM ENGLE *ACCOUNTING5 00104/165 ACCOUNTING *PROJECT D # MTS:$PROJECT UM ENGLE *PROJECT 0 THE PROJECT FILE CONTAINS A RECORD FOR EACH PROJECT. THE FILE MUST BE PERMITTED AS FOLLOWS: P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=(*SYS.ACCOUNT,PKEY=*SYS.MESSAGE) THIS FILE MUST ALSO BE PERMITTED READ TO THE USER ID WHICH RUNS THE BILLING PROGRAMS. 00104/166 ACCOUNTING *PRJDIRECTORY D # MTS:$PRJDIRECTOR UM ENGLE *PRJDIRECTORY 0 THE PROJECT DIRECTORY FILE CONTAINS LISTS OF THE USER ID'S BELONGING TO EACH PROJECT. THE FILE MUST BE PERMITTED AS FOLLOWS: P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=(*SYS.ACCOUNT,PKEY=*SYS.MESSAGE) 00104/167 ACCOUNTING *PWSTAT D # *PWSTAT UM ENGLE *PWSTAT@E 0 LOG FILE USED TO RECORD THE TIME AND DATE OF PASSWORD SETTINGS BY THE ACCOUNTING PROGRAMS. MUST BE PERMITTED AS FOLLOWS: P/N, (RWC,TRUNC) ACC.&PKEY=NEW.:LOGPURGE SOME INSTALLATIONS MAY CHOOSE TO PERMIT THIS FILE WE TO ALL SO THAT ANY USER WHO MANAGES TO RUN ACCPASWD (104/51) OR ACCSGATR (104/102) WILL LEAVE SOME EVIDENCE. IN THEORY, THESE PROGAMS ARE NOT AVAILABLE TO USERS. 1 MON AUG 05/96 18:37:45 Page 76 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/168 ACCOUNTING LOG FILE D # ACC.:ACCLOG UM ENGLE ACC.:ACCLOG@E 0 THIS FILE WILL ACCUMULATE ACCOUNTING MAINTENANCE AND PROJECT MAINTENANCE DATA. IT SHOULD BE PURGED REGULARLY TO PREVENT IT BECOMING TOO LARGE. NEW:LOGPURGE (739) MAY BE USED FOR THIS PURPOSE. 00108/001A *PL360 COMPILER S3 DBMS:PL360COMP.S 5.0T1 411 PL360.COMPILER.S3.001 1 LINE 81 81 PAGE UM STERKEN JULY 03, 1981 12:45:36 5.0T1 411 0 THIS VERSION OF PL360 IS BASED ON ONE RECEIVED FROM STANFORD IN LATE 1977 AND INSTALLED AT UM IN JANUARY, 1978. A SET OF UPDATES FROM STANFORD HAS BEEN APPLIED, AS HAVE SOME LOCAL CHANGES TO THE SYM RECORDS OUTPUT UNDER THE TEST OPTION. THE UNSP SNOOP SUBROUTINE, SEE (685/2), IS CALLED TO KEEP STATISTICS OF PL360 USAGE ON THE FILE ETC:PL360.SNOOP, WHICH SHOULD BE PERMITTED WRITEXP TO PKEY=*PL360. THE PL360 COMPILER CONSISTS OF TWO PARTS. PL360COMP IS WRITTEN IN PL360 AND CONTAINS ALL SYSTEM INDEPENDENT PORTIONS OF THE COMPILER. PL360INTF IS WRITTEN IN ASSEMBLY AND IS THE MTS INTERFACE TO PL360. THE ENTRY POINT IS IN PL360COMP. ONCE *PL360 IS BOOTSTRAPPED, THE OBJECT MODULES ARE OBTAINED AS FOLLOWS: $RUN *PL360 SCARDS=PL360COMP.S SPUNCH=PL360COMP.O SPRINT=*PRINT* PAR=SIZE=100 $RUN *ASMH SCARDS=PL360INTF.S SPUNCH=PL360INTF.O SPRINT=*PRINT* *PL360 IS THEN LINKEDITED AS FOLLOWS: $RUN *LINKEDIT INCLUDE UNSP:LIBRARY ONLY SNOOP RENAME WRITE WRITE# INCLUDE PL360COMP.O+PL360INTF.O COMBINE@NAME=PL360 PUNCH ON *PL360 STOP $CONTROL *PL360 PKEY=*PL360 *PL360 CREATES AND DESTROYS A TEMPORARY FILE (-PL360#01) IN WHICH IT KEEPS AN INTERMEDIATE VERSION OF THE OBJECT MODULES IT PRODUCES. THE MTS VERSION OF PL360 IS DESCRIBED FURTHER IN CCMEMO 75. THE BEST REFERENCE MANUAL FOR PL360 IS "INTRODUCTION TO PL360 PROGRAMMING" BY RICHARD L. GUERTIN (WADSWORTH PUBLISHING CO., BELMONT, CALIFORNIA). 00108/002A *PL360 MTS INTERFACE SA DBMS:PL360INTF.S 5.0T1 412 PL360.MTS_INTERFACE.SA.002 1 LINE 80 14 PAGE UM STERKEN JULY 03, 1981 12:45:41 5.0T1 412 0 SOURCE FOR MTS INTERFACE OF PL/360. 1 MON AUG 05/96 18:37:45 Page 77 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00108/003A *PL360 *PL360 OE *PL360 5.0T1 413 PL360.*PL360.OE.003 1 SEQ 27756 11 PAGE UM STERKEN JULY 03, 1981 12:45:43 5.0T1 413 *PL360 00108/004A *PL360 LIBRARY SA DBMS:PL360LIB.S 5.0T1 414 PL360.LIBRARY.SA.004 1 LINE 80 3 PAGE UM STERKEN JULY 03, 1981 12:45:44 5.0T1 414 0 *PL360LIB CONTAINS VARIOUS UTILITY SUBROUTINES (READ, WRITE, PAGE, PUNCH, ETC.) WHICH CAN BE REFERENCED FROM PL360 PROGRAMS AS PRE-DECLARED PROCEDURES. THE CALLING SEQUENCE IS NOT OS-STANDARD. SEE "INTRODUCTION TO PL360 PROGRAMMING" OR CCMEMO 75 FOR DETAILS. THESE ROUTINES ARE NOT USED BY PL360COMP. PL360LIB.S CONTAINS THE ASSEMBLY SOURCE FOR *PL360LIB. 00108/005A *PL360 *PL360LIB OE *PL360LIB 5.0T1 415 PL360.*PL360LIB.OE.005 1 LINE 572 1 PAGE UM STERKEN JULY 03, 1981 12:45:45 5.0T1 415 *PL360LIB 00110/001 TNL SA # (ABANDONED) D3T1 335 TNL.*TNL.S.1 1 SEQ 80 30 PAGE UM JULY 31, 1973 00:08.57 00111/001 *PTPRRTN SA G PTPR W116:PTPR.S 5.0T1 416 PTPRRTN..SA.001 1 LINE 80 24 PAGE UM H YOUNG JULY 03, 1981 12:45:46 5.0T1 416 0 DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER. ASKS THE OPERATOR FOR THE CAUSE OF ANY EQUIPMENT CHECKS AND THEN TRANSMITS THAT INFORMATION TO THE USER. MAXIMUM LENGTH OF THE OPERATOR'S RESPONSE IS GOVERNED BY THE LENGTH OF THE PAD WHICH IS FOUND IN THE PSECT (LENGTH IS COMPUTED BY &LENRESP). MINIMUM LENGTH OF THE OPERATOR'S RESPONSE IS SET BY &MINRESP AND IS CURRENTLY SET TO 10 CHARACTERS. COPIES COPY:MTS.MACROS. 00111/002 *PTPRRTN OC G *PTPRRTN 5.0T1 417 PTPRRTN..OC.002 1 LINE 80 3 PAGE UM H YOUNG JULY 03, 1981 12:45:48 5.0T1 417 *PTPRRTN 00116/001A *PDP8RTN SA G WSG:PDP8 5.0T1 418 PDP8RTN..SA.001 1 LINE 73 50 PAGE UM WSG AUG. 05, 1981 02:05:41 5.0T1 418 WSG.:PDP8 0 MTS DEVICE SUPPORT ROUTINES FOR THE UM FRONT END MACHINES (DATA CONCENTRATORS). INCLUDES SUPPORT FOR "VOTRAX" AUDIO RESPONSE UNITS BY CALLING SPECIAL SUBROUTINES TO PERFORM I/O CONVERSION. SEE COMPONENT (681). THIS DSR IS ALSO USED FOR DEVICE TYPE FDSK AT UM, WHERE FLOPPY DISKS ARE ATTACHED THROUGH A FRONT END PROCESSOR. COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 681/1, 681/2, 681/15 1 MON AUG 05/96 18:37:45 Page 78 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00116/002A *PDP8RTN OC G *PDP8RTN 5.0T1 419 PDP8RTN..OC.002 1 LINE 8976 29 PAGE UM WSG AUG. 05, 1981 02:05:50 5.0T1 419 *PDP8RTN 0 Referenced by comments of: 681/2, 681/3, 681/4, 681/10, 681/12, 681/14 00116/003A *PDP8RTN *FDSKRTN OC G *FDSKRTN 5.0T1 420 PDP8RTN.*FDSKRTN.OC.003 1 LINE 23 1 PAGE UM WSG JULY 03, 1981 12:46:00 5.0T1 420 *FDSKRTN 0 OBJECT FOR THE FLOPPY DISK DSR. CONTAINS A "$CONTINUE WITH *PDP8RTN" LINE. 00116/004 *PDP8RTN MEMO 370 WF S1143 D4.1T1 VLO FSNAME=PDP8RTN.MEMO_370.WF.005(1) 63 5.0T1 421 PDP8RTN.MEMO_370.WF.004 1 LINE 119 4 PAGE UM FLOWER MAY 13, 1978 17:05:03 5.0T1 421 0 THIS IS COMPUTING CENTER MEMO 370 -- "USE OF THE TEXAS INSTRUMENTS MODEL 733 ASR TERMINAL WITH THE DATA CONCENTRATOR." 00116/005 *PDP8RTN MEMO 375 WF S1319 D4.2T1 VLO FSNAME=PDP8RTN.MEMO_375.WF.006(1) 106 5.0T1 422 PDP8RTN.MEMO_375.WF.005 1 LINE 104 10 PAGE UM WOLFSON SEP. 07, 1978 15:03:42 5.0T1 422 0 THIS IS COMPUTING CENTER MEMO 375 -- "THE DECWRITER TERMINAL AND MTS." 00116/006 *PDP8RTN MEMO 413 WF S1430 4.3T1 VLO FSNAME=PDP8RTN.MEMO_413.WF.005(1) 99 5.0T1 423 PDP8RTN.MEMO_413.WF.006 1 LINE 68 3 PAGE UM LUBBERS FEB. 29, 1980 10:17:22 5.0T1 423 0 THIS IS COMPUTING CENTER MEMO 413 -- "GUIDE FOR USING DECWRITER TERMINALS WITH VARIOUS TERMINAL CONTROLLERS." 00117/001 *GRAPHMAC SM # (OBSOLETE) D4T1 396 GRAPHMAC..SM. 1 SEQ 80 63 PAGE UM JULY 31, 1973 00:14.26 00119/001 SYN360 SS S0563 D4T1 VLO FSNAME=SYN360..SS.001(1) 397 5.0T1 424 SYN360..SS.001 1 SEQ 80 5 PAGE UM DWB JULY 31, 1973 00:15.37 5.0T1 424 0 PROGRAM (IN SNOBOL) TO PRODUCE THE SYNTAX TABLES THAT SNOBOL USES TO PARSE ITS INPUT. USED AS "CPU BURNER" AND "PAGER" FOR SYSTEM TESTING. 0 Referenced by comments of: 119/2 00119/002 SYN360 TABLES DATA D S0563 D4T1 VLO FSNAME=SYN360.TABLES_DATA.D.002(1) 398 5.0T1 425 SYN360.TABLES_DATA.D.002 1 SEQ 80 3 PAGE UM DWB JULY 31, 1973 00:15.38 5.0T1 425 0 INPUT TO (119/1). ENDS WITH A "$CONTINUE WITH SYNTBL" CARD. 1 MON AUG 05/96 18:37:45 Page 79 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00120/001 REWIND SUBR SA G S1143 D4.1T1 VLO FSNAME=REWIND_SUBR..SA.001(1) 64 5.0T1 426 REWIND_SUBR..SA.001 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 17:05:05 5.0T1 426 0 FORTRAN CALLABLE REWIND SUBROUTINE. ASSEMBLE USING *SYSMAC. 00120/002 REWIND SUBR OC G # (PART OF *LIBRARY) UM MTA 0 Object is in *LIBRARY (524/1). 00121/001 *USERS SG G S1430 4.3T1 VLO FSNAME=USERS..SG.001(1) 100 5.0T1 427 USERS..SG.001 1 LINE 75 1 PAGE UM MTA APR. 05, 1980 14:06:21 5.0T1 427 0 GOM PROGRAM TO ISSUE A "$SYSTEMSTATUS USERS" COMMAND (GRUDGINGLY). IT IS SUGGESTED THAT THIS PROGRAM NOT BE INSTALLED AT NEW INSTALLATIONS. 00121/002 *USERS OC G *USERS 5.0T1 428 USERS..OC.002 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 12:46:12 5.0T1 428 00123/001 *PTASKS SA # (OBSOLETE) D4T1 405 PTASKS..SA. 1 SEQ 80 17 PAGE UM JULY 31, 1973 00:15.58 00126/001 BLSTDEV SA G S0563 D4T1 VLO FSNAME=BLSTDEV..SA.001(1) 406 5.0T1 429 BLSTDEV..SA.001 1 LINE 80 3 PAGE UM MTA JULY 30, 1973 03:31.46 5.0T1 429 0 SUBROUTINE TO RESET A DEVICE FOR A NEW OPERATION. USED BY SEVERAL DSR'S. 00126/002 BLSTDEV OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00128/001 *PTPPRTN SA S S0563 D4T1 VLO FSNAME=PTPPRTN..SA.(1) 407 5.0T1 430 PTPPRTN..SA.001 1 SEQ 80 19 PAGE UM WSG JULY 31, 1973 00:17.03 5.0T1 430 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 1018 PAPER TAPE PUNCH. HAS BUGS AND HAS NOT BEEN USED AT UM FOR MANY YEARS. OBJECT NOT DISTRIBUTED; WASTE YOUR OWN MONEY ASSEMBLING IT! 00129/001 *STATUS SA G # (PART OF ACCOUNTING) UM ENGLE 0 PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD. RUN WITH PROT=OFF. Distributed as part of ACCOUNTING (104/15). 1 MON AUG 05/96 18:37:45 Page 80 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00129/002A *STATUS OE G *STATUS 5.0T1 431 STATUS..OE.002 1 LINE 6156 3 PAGE UM ENGLE JULY 03, 1981 12:46:15 5.0T1 431 *STATUS 0 CONSISTS OF: STATUS (104/15) + *LCS (164). THIS FILE MUST BE PERMITTED AS FOLLOWS: U/N,R PKEY=*MTS.RUN THIS FILE MUST BE GIVEN THE PROGRAM KEY *STATUS. 00131/001 STRTPDP # (OBSOLETE) D2T1 149 UM 0 Obsoleted by the $SYSTEMSTATUS command. 00132/001 *PERMIT SA # (OBSOLETE) D4T1 409 PERMIT..SA.001 1 LINE 80 6 PAGE UM JULY 27, 1977 22:26:58 00133/001 *PLOT SA S1011 ETC 'MISC' FSNAME=PTRCONVPLOT 5.0T1 432 PLOT..SA.001 1 LINE 72 8 PAGE UM LIFT DEC. 07, 1978 15:44:47 5.0T1 432 0 CONVERSATIONAL INTERFACE TO PRINTER PLOT SUBROUTINES (282). 00133/002 *PLOT OC *PLOT 5.0T1 433 PLOT..OC.002 1 LINE 80 3 PAGE UM LIFT JULY 03, 1981 12:46:48 5.0T1 433 *PLOT 00135/001A *TAPERTN SA G TAPE:TAPE 5.0T1 434 TAPERTN..SA.001 1 LINE 80 84 PAGE UM SHERRY JULY 03, 1981 12:46:49 5.0T1 434 TAPE:TAPE 0 MTS device support routines for magnetic tapes. NOTE: The "NLC" control command (which only works if issued by a user ID which is authorized to $SET PROT=OFF or by user ID "SYS." with program key "*LABEL") overrides the normal checking for volume labels. It is used by *LABEL (487) to label virgin tapes and FIND LABEL (729) to print unknown labels. Copies COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), *CNFGINFODSECT (654), and *SENSEDSECT (3025). Assemble using COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), COPY:UC.MACROS (787/1), and COPY:SETPARM (653) with PAR=PEXIT=*PEXIT (775). ********************************************************************************* D5.0 changes: 1) Changed to use the new Tape Unit Check Routines (787/15). 2) RELEASE entry changed to call tape queue routine MNTQREL (806/1) to release queued mount requests. 3) Support for ANSI labeled tapes added. A tape with an ANSI volume label will automatically be recognized and not mounted unless the proper VOLUME command is given. See the article in the Computing Center Newsletter, Vol. 11, No. 6, for details. 4) "CC" control command added to set control character in HDR2 labels for use on MVS systems. These changes require the D5.0 versions of the Tape Unit Check Routines (787/15), *SENSEDSECT (3025), Translate Tables (779), and 1 MON AUG 05/96 18:37:45 Page 81 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Tape Queue (806). ********************************************************************************* 0 Referenced by comments of: 314/1, 489/1, 787/16, 806/1, 3025/1 00135/002C *TAPERTN UPDATE UC G TAPE:TAPE.U 5.0T1 435 TAPERTN.UPDATE.UC.002 1 LINE 150 29 PAGE UM SHERRY JULY 03, 1981 12:46:55 5.0T1 435 0 ******************************************************************************** D5.0 version: *CDUPDATE (Version 2.2) update decks to produce current version of TAPERTN from the D4.3 base source. ******************************************************************************** 00135/003A *TAPERTN OC G *TAPERTN 5.0T1 436 TAPERTN..OC.003 1 LINE 18568 6 PAGE UM SHERRY JULY 03, 1981 12:46:59 5.0T1 436 *TAPERTN 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE. 00136/001 *FIX C G *FIX 5.0T1 437 FIX..C.001 1 LINE 7 1 PAGE UM ENGLE JULY 03, 1981 12:47:00 5.0T1 437 *FIX 0 COMMAND FILE USED BY OPERATORS TO CLEAN UP A USERID (E.G. AFTER A SNARK). THIS WILL SET THE CORRECT NUMBER OF CURRENT SIGNONS IN THE USER'S ACCOUNTING RECORD AND UPDATE HIS FILE SPACE INFORMATION. THIS FILE SOURCES TO FIX:FIX (136/2). INVOKED BY ENTERING "MTS *FIX" ON OPERATORS CONSOLE. 00136/002A *FIX FIX:FIX C G FIX:FIX 5.0T1 438 FIX.FIX:FIX.C.002 1 LINE 52 1 PAGE UM ENGLE JULY 03, 1981 12:47:01 5.0T1 438 FIX.:FIX 0 COMMAND FILE TO RUN *ACCRESTORE (484). 0 Referenced by comments of: 136/1 00137/001 *UPDATE D5.0 MASTER SA G W009:UPDATE.S 5.0T1 439 UPDATE.D5.0_MASTER.SA.001 1 LINE 80 29 PAGE UM SHERRY JULY 03, 1981 12:47:03 5.0T1 439 W009:UPDATE.S 0 D5.0 MASTER SOURCE FOR THE MTS SOURCE UPDATE PROGRAM. REQUIRES BLOCKED I/O ROUTINES (283). 0 Referenced by comments of: 746/1 00137/002 *UPDATE OE G *UPDATE 5.0T1 440 UPDATE..OE.002 1 LINE 7560 4 PAGE UM SHERRY JULY 03, 1981 12:47:05 5.0T1 440 *UPDATE 1 MON AUG 05/96 18:37:45 Page 82 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00138/001 *TEXT360 MONITOR SA G S0563 D4T1 VLO FSNAME=TEXT360.MONITOR.SA.001(1) 420 5.0T1 441 TEXT360.MONITOR.SA.001 1 LINE 80 18 PAGE UM TIFFANY JULY 27, 1977 22:49:43 5.0T1 441 0 NEW VERSION 7 OF TEXT/360 TEXT PROCESSING PROGRAM. THE SEPARATE PROGRAMS *FMAINT, *BLDLIN, *PLAOUT, AND *POSTPR ARE NO LONGER USED. INSTEAD, *TEXT360 CONTAINS ALL THESE PROGRAMS. IN ADDITION, MOST PARTS OF TEXT/360 HAVE BEEN RE-WRITTEN BECOMING BOTH SMALLER AND FASTER. 0 Referenced by comments of: 138/8 00138/002A *TEXT360 FMAINT SA G S0990 TXT370 'TEXT370' POSN=FM.CT130 5.0T1 442 TEXT360.FMAINT.SA.002 1 SEQ 80 51 PAGE UM TIFFANY JULY 03, 1981 12:48:30 5.0T1 442 0 TEXT/360 FILE MAINTENANCE. ***************************************************************************** D5.0 changes: Characters added for the Xerox 9700. ***************************************************************************** 00138/003 *TEXT360 BLDLIN SA G S0563 D4T1 VLO FSNAME=TEXT360.BLDLIN.SA.003(1) 422 5.0T1 443 TEXT360.BLDLIN.SA.003 1 LINE 80 94 PAGE UM TIFFANY JULY 27, 1977 22:49:54 5.0T1 443 0 TEXT/360 BUILD LINES. 00138/004 *TEXT360 HYPHEN SA G S1319 D4.2T1 VLO FSNAME=TEXT360.HYPHEN.SA.004(1) 113 5.0T1 444 TEXT360.HYPHEN.SA.004 1 LINE 80 10 PAGE UM TIFFANY MAR. 26, 1979 02:31:56 5.0T1 444 0 TEXT/360 SUBROUTINE TO HYPHENATE WORDS. 00138/005 *TEXT360 PLAOUT SA G S1319 D4.2T1 VLO FSNAME=TEXT360.PLAOUT.SA.005(1) 114 5.0T1 445 TEXT360.PLAOUT.SA.005 1 LINE 80 70 PAGE UM TIFFANY MAR. 26, 1979 02:31:56 5.0T1 445 0 TEXT/360 PAGE LAYOUT. 00138/006 *TEXT360 PPR1 SP O S1319 D4.2T1 VLO FSNAME=TEXT360.PPR1.SP.006(1) 115 5.0T1 446 TEXT360.PPR1.SP.006 1 LINE 80 28 PAGE UM TIFFANY MAR. 26, 1979 02:32:05 5.0T1 446 0 TEXT/360 POST PROCESSOR. 00138/007 *TEXT360 PPR2 SA G S0563 D4T1 VLO FSNAME=TEXT360.PPR2.SA.007(1) 426 5.0T1 447 TEXT360.PPR2.SA.007 1 LINE 80 11 PAGE UM TIFFANY JULY 27, 1977 22:50:26 5.0T1 447 0 TEXT/360 SPELLING POSTPROCESSOR. 0 Referenced by comments of: 138/8 1 MON AUG 05/96 18:37:45 Page 83 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00138/008A *TEXT360 OBJECT OE G *TEXT360 5.0T1 448 TEXT360.OBJECT.OE.008 1 LINE 14896 28 PAGE UM TIFFANY JULY 03, 1981 12:48:41 5.0T1 448 *TEXT360 0 OBJECT FROM (138/1) THROUGH (138/7). ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/009 *TEXT360 *PRESCAN SA O S0563 D4T1 VLO FSNAME=TEXT360.*PRESCAN.SA.009(1) 428 5.0T1 449 TEXT360.*PRESCAN.SA.009 1 LINE 80 40 PAGE UM TIFFANY JULY 27, 1977 22:50:30 5.0T1 449 0 TEXT/360 PRESCAN PROGRAM. 00138/010 *TEXT360 *PRESCAN OE O *PRESCAN 5.0T1 450 TEXT360.*PRESCAN.OE.010 1 LINE 8994 5 PAGE UM TIFFANY JULY 03, 1981 12:48:44 5.0T1 450 *PRESCAN 00138/011A *TEXT360 *PRINT SA G S0990 TXT370 'TEXT370' POSN=PRINT.EC120 5.0T1 451 TEXT360.*PRINT.SA.011 1 SEQ 80 14 PAGE UM TIFFANY JULY 03, 1981 12:48:47 5.0T1 451 0 TEXT/360 OUTPUT PRINTING PROGRAM. ***************************************************************************** D5.0 changes: The output is no longer @MCC. Can now produce Xerox 9700 output if PORTRAIT is specified. ***************************************************************************** 00138/012A *TEXT360 *PRINT OC G *PRINT 5.0T1 452 TEXT360.*PRINT.OC.012 1 LINE 2464 4 PAGE UM TIFFANY JULY 03, 1981 12:48:48 5.0T1 452 *PRINT 00138/013 *TEXT360 *DICTUPD SP G S0563 D4T1 VLO FSNAME=TEXT360.*DICTUPD.SP.013(1) 432 5.0T1 453 TEXT360.*DICTUPD.SP.013 1 LINE 80 7 PAGE UM TIFFANY JULY 27, 1977 22:50:41 5.0T1 453 0 PROGRAM TO MAINTAIN TEXT/360 SPELLING DICTIONARY. 00138/014 *TEXT360 *DICTUPD OE O *DICTUPD 5.0T1 454 TEXT360.*DICTUPD.OE.014 1 LINE 10746 5 PAGE UM TIFFANY JULY 03, 1981 12:48:50 5.0T1 454 *DICTUPD 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/015 *TEXT360 *DICT D *DICT 5.0T1 455 TEXT360.*DICT.D.015 1 SEQ 4096 22 PAGE UM TIFFANY JULY 03, 1981 12:48:51 5.0T1 455 *DICT 0 TEXT/360 SPELLING DICTIONARY CONTAINING ABOUT 12000 WORDS. 1 MON AUG 05/96 18:37:45 Page 84 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00138/016A *TEXT360 *HYPHDICT D *HYPHDICT 5.0T1 456 TEXT360.?HYPHDICT.D.016 1 LINE 64 6 PAGE UM MANUAL AUG. 05, 1981 02:06:26 5.0T1 456 *HYPHDICT 0 A HYPHENATION OVERRIDE DICTIONARY FOR WORDS THAT MTS TEXT PROCESSING LANGUAGES CANNOT HYPHENATE CORRECTLY. 00138/017 *TEXT360 *T360MASTCONV SP G S1430 4.3T1 VLO FSNAME=TEXT360.*T360MASTCONV.SP.017(1) 105 5.0T1 457 TEXT360.*T360MASTCONV.SP.017 1 LINE 70 3 PAGE UM TIFFANY JULY 12, 1979 22:25:52 5.0T1 457 0 PROGRAM TO CONVERT A TEXT/360 MASTER FILE INTO A TEXT/360 INPUT STREAM. 00138/018 *TEXT360 *T360MASTCONV SA G S1430 4.3T1 VLO FSNAME=TEXT360.*T360MASTCONV.SA.018(1) 106 5.0T1 458 TEXT360.*T360MASTCONV.SA.018 1 LINE 72 1 PAGE UM TIFFANY JULY 12, 1979 22:25:54 5.0T1 458 0 A SUBROUTINE TO REPLACE "NONPRINTABLE" CHARACTERS WITH SPECIAL CHARACTERS PRECEDED BY EITHER A "/" OR "//". 00138/019 *TEXT360 *T360MASTCONV OE G *T360MASTCONV 5.0T1 459 TEXT360.*T360MASTCONV.OE.019 1 LINE 5598 5 PAGE UM TIFFANY JULY 03, 1981 12:48:55 5.0T1 459 *T360MASTCONV 0 EXTERNAL SYMBOL IHESAPC SHOULD BE RENAMED IHESAPE. ENDS WITH A "$CONTINUE WITH *PL1LIB" RECORD. 00140/001 *ANALYSIS SA G S0563 D4T1 VLO FSNAME=ANALYSIS..SA.001(1) 438 5.0T1 460 ANALYSIS..SA.001 1 LINE 80 60 PAGE UM MTA JULY 27, 1977 22:50:55 5.0T1 460 0 PROGRAM USED IN ANALYZING THE STATISTICS PRODUCED ON MAGNETIC TAPE BY THE STAT JOB (079). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 79/1 00140/002 *ANALYSIS OC G *ANALYSIS(1) 5.0T1 461 ANALYSIS..OC.002 1 LINE 11972 7 PAGE UM MTA JULY 03, 1981 12:48:58 5.0T1 461 *ANALYSIS 0 THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000. SEE CCMEMO 393 (079/6). 00140/003 *ANALYSIS PL/1 MAIN PGM SP S0563 D4T1 VLO FSNAME=ANALYSIS.PL/1_MAIN_PGM.SP.003(1) 440 5.0T1 462 ANALYSIS.PL/1_MAIN_PGM.SP.003 1 LINE 80 1 PAGE UM MTA JUNE 28, 1974 16:12.14 5.0T1 462 0 PL/1 MAIN PROGRAM FOR USE WITH *ANALYSIS. 00140/004 *ANALYSIS PL/1 MAIN PGM OC *ANALYSIS(0,.999) 5.0T1 463 ANALYSIS.PL/1_MAIN_PGM.OC.004 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 12:48:59 5.0T1 463 1 MON AUG 05/96 18:37:45 Page 85 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00140/005 *ANALYSIS EXAMPLE STP2 SA G S0938 FSAVE2 VLO FSNAME=KIPSSTP2(2) 124 5.0T1 464 ANALYSIS.EXAMPLE_STP2.SA.005 1 LINE 73 24 PAGE UM MTA NOV. 08, 1975 00:29:03 5.0T1 464 0 EXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS. CALLS THE HISTOGRAM SUBROUTINE (140/7). COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC. 0 Referenced by comments of: 140/7 00140/006 *ANALYSIS EXAMPLE STP2 OC G S0938 FSAVE2 VLO FSNAME=KIPSSTP2(3) 177 5.0T1 465 ANALYSIS.EXAMPLE_STP2.OC.006 1 LINE 80 29 PAGE UM MTA OCT. 25, 1976 22:22:14 5.0T1 465 00140/007 *ANALYSIS HISTOGRAM SA G *ANALYSIS(-400,-1) 5.0T1 466 ANALYSIS.HISTOGRAM.SA.007 1 LINE 72 6 PAGE UM MTA JULY 03, 1981 12:50:00 5.0T1 466 0 SUBROUTINE TO PLOT HISTOGRAMS, VAGUELY RELATED TO *ANALYSIS AND BRIEFLY DESCRIBED IN CCMEMO 393 (079/6). CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/5). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 140/5, 718/2, 799/1 00140/008 *ANALYSIS HISTOGRAM OC G *ANALYSIS(-600,-401) 5.0T1 467 ANALYSIS.HISTOGRAM.OC.008 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 12:50:01 5.0T1 467 00140/009 *ANALYSIS CALLSTP2 SA G MTA:CALLSTP2(1,999) 5.0T1 468 ANALYSIS.CALLSTP2.SA.009 1 LINE 70 3 PAGE UM MTA JULY 03, 1981 12:50:02 5.0T1 468 MTA.:CALLSTP2 0 PROGRAM TO REPLACE *ANALYSIS FOR THE CASE WHERE ONLY STP2A, STP2D, AND/OR STP2E ARE SUPPLIED AND THE JOB AREA IS NOT NEEDED. MUCH FASTER THAN *ANALYSIS FOR THIS CASE. 00140/010 *ANALYSIS CALLSTP2 OC G MTA:CALLSTP2(1000) 5.0T1 469 ANALYSIS.CALLSTP2.OC.010 1 LINE 80 2 PAGE UM MTA JULY 03, 1981 12:50:03 5.0T1 469 00141/001 *GPAKDRAW S # (OBSOLETE) UM 00143/001 REWIND# SUBR SA # (PART OF RSF) UM 0 Now part of RSF (578) 00144/001 *ASA SA O S0563 D4T1 VLO FSNAME=ASA..SA.001(1) 450 5.0T1 470 ASA..SA.001 1 LINE 80 4 PAGE UM TIFFANY JULY 27, 1977 23:16:57 5.0T1 470 0 PRINTS OUTPUT WITH ASA STANDARD CARRIAGE CONTROL. ASSEMBLE WITH PAR=BATCH. 1 MON AUG 05/96 18:37:45 Page 86 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00144/002 *ASA OC O *ASA 5.0T1 471 ASA..OC.002 1 LINE 80 1 PAGE UM TIFFANY JULY 03, 1981 12:50:05 5.0T1 471 *ASA 00145/001A *TASKS SA G S0792 WSGFS FSNAME=MTASKS.SA 5.0T1 472 TASKS..SA.001 1 LINE 60 3 PAGE UM WSG NOV. 17, 1980 15:53:50 5.0T1 472 0 MTS program to print task status in same format as TASKS job (019). Calls TSKFMT subroutine which is part of TASKS job (019). 0 Referenced by comments of: 19/1 00145/002A *TASKS OC G *TASKS 5.0T1 473 TASKS..OC.002 1 LINE 80 1 PAGE UM WSG JULY 03, 1981 12:51:49 5.0T1 473 *TASKS 00146/001 *OLDED SA # (OBSOLETE) D2T1 325 UM 00147/001 *FILESCAN SA G S0563 D4T1 VLO FSNAME=FILESCAN..SA.001(1) 454 5.0T1 474 FILESCAN..SA.001 1 LINE 80 9 PAGE UM ENGLE DEC. 05, 1975 16:09:05 5.0T1 474 0 MTS FILE SCANNING PROGRAM. 00147/002 *FILESCAN OE G *FILESCAN 5.0T1 475 FILESCAN..OE.002 1 LINE 255 2 PAGE UM ENGLE JULY 03, 1981 12:51:50 5.0T1 475 *FILESCAN 00148/001 *WATLIB *WATLIB 5.0T1 476 WATLIB...001 1 SEQ 384 4 PAGE UM SHERRY JULY 03, 1981 12:51:51 5.0T1 476 *WATLIB 0 THIS FILE HAS SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES AND ASSEMBLER SUBROUTINE OBJECT DECKS WHICH *WATFIV ASSUMES AS THE DEFAULT LIBRARY WHEN ATTEMPTING TO RESOLVE UNDEFINED SYMBOLS IN WATFIV PROGRAMS. 0 Referenced by comments of: 148/2, 148/3 00148/002 *WATLIB WATSUB SUBR SA G S0563 D4T1 VLO FSNAME=WATLIB.WATSUB_SUBR.SA.002(1) 457 5.0T1 477 WATLIB.WATSUB_SUBR.SA.002 1 LINE 66 3 PAGE UM SHERRY AUG. 14, 1977 19:11:25 5.0T1 477 0 SOURCE FOR THE WATSUB SUBROUTINE. OBJECT IS IN *WATLIB (148/1). 00148/003 *WATLIB TRACER SUBR SA G S0563 D4T1 VLO FSNAME=WATLIB.TRACER_SUBR.SA.003(1) 458 5.0T1 478 WATLIB.TRACER_SUBR.SA.003 1 LINE 57 1 PAGE UM SHERRY AUG. 14, 1977 19:11:26 5.0T1 478 0 SOURCE FOR THE TRACER SUBROUTINE. OBJECT IS IN *WATLIB (148/1). 1 MON AUG 05/96 18:37:45 Page 87 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00148/004 *WATLIB WATGENLIB SA G S0563 D4T1 VLO FSNAME=WATLIB.*WATGENLIB.SA.004(1) 459 5.0T1 479 WATLIB.WATGENLIB.SA.004 1 LINE 80 23 PAGE UM SHERRY JULY 27, 1977 23:22:29 5.0T1 479 0 WATFIV LIBRARY GENERATOR. THE WATFIV CONTROL CARD CHARACTER IS "/" (ALTERNATIVELY "$"), SO THE SET SYMBOLS &CC AND &CCA SHOULD BE CHANGED APPROPRIATELY IF A DIFFERENT CONVENTION IS FOLLOWED. ASSEMBLE USING *SYSMAC. 00148/005 *WATLIB *WATGENLIB OE G *WATGENLIB 5.0T1 480 WATLIB.*WATGENLIB.OE.005 1 SEQ 3151 2 PAGE UM SHERRY JULY 03, 1981 12:51:54 5.0T1 480 *WATGENLIB 00151/001 *CONVSNOBOL SS G *CONVSNOBOL 5.0T1 481 CONVSNOBOL..SS.001 1 LINE 69 1 PAGE UM SWARTZ JULY 03, 1981 12:51:55 5.0T1 481 *CONVSNOBOL 0 $SOURCE FILE WHICH RUNS A SNOBOL PROGRAM TO ENHANCE CONVERSATIONAL USE OF SNOBOL. 00153/001 *MADTOPL1 SS MPL1 *MADTOPL1 5.0T1 482 MADTOPL1..SS.001 1 LINE 80 21 PAGE UM ? JULY 03, 1981 12:51:56 5.0T1 482 *MADTOPL1 0 CONVERT MAD 7090 TO PL/I 00154/001 *LAS C *LAS 5.0T1 483 LAS..C.001 1 LINE 9 1 PAGE UM WSG JULY 03, 1981 12:51:59 5.0T1 483 STRT:*LAS 0 COMMAND FILE FOR STARTING MTS TERMINAL LINES. INVOKED BY ENTERING "MTS *LAS" ON THE OPERATORS CONSOLE. SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:LAS (154/2). 0 Referenced by comments of: 621/1 00154/002 *LAS LAS C MTS:TST.LAS 5.0T1 484 LAS.LAS.C.002 1 LINE 67 1 PAGE UM WSG JULY 03, 1981 12:52:00 5.0T1 484 STRT:LAS 0 COMMAND FILE WHICH STARTS UP MTS TERMINAL LINES. THIS FILE WILL HAVE TO BE MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION. 0 Referenced by comments of: 154/1 00156/001 IPL PROGRAM # (OBSOLETE) D3.2T1 131 IPL_PROGRAM..SA.01 1 LINE 80 13 PAGE UM MAR. 21, 1975 01:13:31 00157/001 IPL BOOTSTRAP SA G # (OBSOLETE) D4T1 465 IPL_BOOTSTRAP..SA.001 1 LINE 80 4 PAGE UM JULY 27, 1977 23:22:41 D4T1 465 00160/001 FRONCOPY S # (OBSOLETE) D2T1 387 UM 1 MON AUG 05/96 18:37:45 Page 88 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00162/001A PSA DSECT SA G COPY:PSA 5.0T4 293 PSA_DSECT..SA.001 1 LINE 72 5 PAGE UM MTA AUG. 09, 1981 22:49:10 5.0T10 197 COPY:PSA 0 DEFINITION OF PREFIXED STORAGE AREA (PSA). COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS. REQUIRES THAT COPY:GLOBALS (1026/3) BE COPIED FIRST. *********************************************************************************** D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): CONTAINS DISK MANAGER CHANGES AND OTHERS. *********************************************************************************** 0 Referenced by comments of: 45/1, 46/1, 540/3, 577/1, 577/3, 577/6, 634/4, 1021/1, 1021/4, 1081/1 00163/001 PL1 COMPILER MACLIB SM G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.MACLIB.SM.001(1) 109 5.0T1 485 PL1_COMPILER.MACLIB.SM.001 1 LINE 80 27 PAGE UM TIFFANY APR. 05, 1980 14:08:31 5.0T1 485 0 PL/I(F) VERSION 5.5 COMPILER (RELEASE 21.8). THIS VERSION OF THE PL/I(F) COMPILER DIFFERS FROM PREVIOUS VERSIONS IN THE FOLLOWING WAYS: 1) COMPILATION IS FASTER AND CHEAPER. 2) INPUT RECORDS OVER 100 BYTES ARE TRUNCATED WITH A WARNING. 3) COMPILER OPTIONS ARE NO LONGER SET TO DEFAULT AT THE SECOND (AND SUBSEQUENT) COMPILATION. THEY WILL BE THE SAME AS AT THE FIRST COMPILATION UNLESS OVERRIDDEN BY THE %PROCESS RECORD. 4) OPTION DIAG IS THE DEFAULT IF SERCOM IS DIFFERENT THAN SPRINT OR IF SPRINT IS NOT USED. 5) IF SPRINT IS SET TO A TERMINAL BY DEFAULT, THEN OPTIONS NOOPLIST, NOSOURCE2, NOSOURCE, NOXREF, NOATR, NOEXTREF, AND NOLIST ARE ASSUMED. 6) TWO NEW OPTIONS HAVE BEEN ADDED: A) THE MTS/OS OPTION PRODUCES OBJECT MODULES THAT ARE INTENDED FOR MTS OR OS, RESPECTIVELY. THE DEFAULT IS MTS. B) NUM/NONUM CONTROLS THE PRINTING OF MTS LINE NUMBERS IN THE SOURCE LISTING. THE DEFAULT IS NUM. 7) THE WORK FILE -SYSUT4 IS NOW A VIRTUAL MEMORY FILE. THIS SUBCOMPONENT, MACLIB, IS A MACRO LIBRARY FOR THE SIMULATION OF OS/360 STUFF IN MTS. 0 Referenced by comments of: 163/3, 163/5, 163/6, 163/7, 163/8, 163/9, 163/10, 163/11, 163/13, 233/1, 506/11 00163/002 PL1 COMPILER MACLIB SM G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.MACLIB.SM.002(1) 110 5.0T1 486 PL1_COMPILER.MACLIB.SM.002 1 LINE 73 8 PAGE UM TIFFANY APR. 05, 1980 14:08:33 5.0T1 486 0 ANOTHER MACRO LIBRARY. 1 MON AUG 05/96 18:37:45 Page 89 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00163/003 PL1 COMPILER REPLACE SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.REPLACE.SA.003(1) 111 5.0T1 487 PL1_COMPILER.REPLACE.SA.003 1 LINE 80 3 PAGE UM TIFFANY APR. 05, 1980 14:08:35 5.0T1 487 0 ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE. ASSEMBLE USING THE (163/1) MACRO LIBRARY. 00163/004 PL1 COMPILER CHKLIO SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.CHKLIO.SA.004(1) 112 5.0T1 488 PL1_COMPILER.CHKLIO.SA.004 1 LINE 80 3 PAGE UM TIFFANY APR. 05, 1980 14:09:00 5.0T1 488 0 ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT. 00163/005 PL1 COMPILER NONSENSE SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.NONSENSE.SA.005(1) 113 5.0T1 489 PL1_COMPILER.NONSENSE.SA.005 1 LINE 80 3 PAGE UM TIFFANY APR. 05, 1980 14:09:27 5.0T1 489 0 ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE. ASSEMBLE USING THE (163/1) MACRO LIBRARY. 00163/006 PL1 COMPILER FREEDDEF SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.FREEDDEF.SA.006(1) 114 5.0T1 490 PL1_COMPILER.FREEDDEF.SA.006 1 LINE 80 2 PAGE UM TIFFANY APR. 05, 1980 14:09:53 5.0T1 490 0 ROUTINE TO FREE ALL DDEF'S. ASSEMBLE USING THE (163/1) MACRO LIBRARY. 00163/007 PL1 COMPILER FINDTIOT SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.FINDTIOT.SA.007(1) 115 5.0T1 491 PL1_COMPILER.FINDTIOT.SA.007 1 LINE 80 2 PAGE UM TIFFANY APR. 05, 1980 14:10:19 5.0T1 491 0 ROUTINE TO FIND A TIOT GIVEN A "DDNAME." ASSEMBLE USING THE (163/1) MACRO LIBRARY. 00163/008 PL1 COMPILER DDEF SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.DDEF.SA.008(1) 116 5.0T1 492 PL1_COMPILER.DDEF.SA.008 1 LINE 80 10 PAGE UM TIFFANY APR. 05, 1980 14:10:46 5.0T1 492 0 ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH. ASSEMBLE USING THE (163/1) MACRO LIBRARY. 00163/009 PL1 COMPILER OPEN SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.OPEN.SA.009(1) 117 5.0T1 493 PL1_COMPILER.OPEN.SA.009 1 LINE 80 16 PAGE UM TIFFANY APR. 05, 1980 14:11:16 5.0T1 493 0 SIMULATE OS/360 OPEN. CURRENTLY ONLY BSAM AND QSAM ARE SUPPORTED. ASSEMBLE USING THE (163/1) MACRO LIBRARY. 1 MON AUG 05/96 18:37:45 Page 90 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00163/010A PL1 COMPILER ROUT SA G RUTE W062:IOPACK(8000,8999) 5.0T1 494 PL1_COMPILER.ROUT.SA.010 1 LINE 80 32 PAGE UM TIFFANY JULY 03, 1981 12:52:08 5.0T1 494 0 LIST OF VARIOUS ROUTINES. ASSEMBLE USING THE (163/1) MACRO LIBRARY. ************************************************************************ D5.0 VERSION: MODIFIED TO FIX SEVERAL MACRO PROBLEMS IN *PL1. ************************************************************************ 00163/011 PL1 COMPILER CLOSE SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.CLOSE.SA.011(1) 119 5.0T1 495 PL1_COMPILER.CLOSE.SA.011 1 LINE 80 5 PAGE UM TIFFANY APR. 05, 1980 14:13:12 5.0T1 495 0 SIMULATE OS/360 CLOSE. ASSEMBLE USING THE (163/1) MACRO LIBRARY. 00163/012 PL1 COMPILER SETPFX SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.SETPFX.SA.012(1) 120 5.0T1 496 PL1_COMPILER.SETPFX.SA.012 1 LINE 80 7 PAGE UM TIFFANY APR. 05, 1980 14:13:46 5.0T1 496 0 ALTERNATE ROUTINES: SETPFX, GETPFX WITH MULTICHARACTER PREFIX FEATURES. 0 Referenced by comments of: 233/1 00163/013A PL1 COMPILER UPDATE UC W062:PL1.UP 5.0T1 497 PL1_COMPILER.UPDATE.UC.013 1 LINE 73 40 PAGE UM TIFFANY JULY 03, 1981 12:52:57 5.0T1 497 0 OLD *CDUPDATE INPUT TO PRODUCE CURRENT MTS PL/I COMPILER FROM OS/360 RELEASE 21.8 SOURCE. THE COMPILER MAY BE PRODUCED IN THE FOLLOWING WAY: 1) USE PL/1 MAINTENANCE HENPECKER (506/8) TO PICK UP THE SPECIFIC MODULE SOURCES FROM IEBUPDT OS RELEASE 21.8 SOURCE. 2) APPLY UPDATE (THIS SUBCOMPONENT). 3) RUN *ASMH (737/30) WITH MACRO LIBRARY OSMACLIB (163/1). SEE (506/11) FOR INFORMATION REGARDING THE INSTALLATION AND MAINTENANCE OF VERSION 5.5 OF THE PL/I-F COMPILER. ********************************************************************************** D5.0 CHANGES: (ALREADY DISTRIBUTED ON D4.3A): MODULE IEMCI UPDATED. (NEW CHANGES): AB UPDATED TO FIX A MESSAGE FOR A BAD SORMGIM PARM. ********************************************************************************** 1 MON AUG 05/96 18:37:45 Page 91 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00163/014 PL1 COMPILER ESDLIST SA G S1430 4.3T1 VLO FSNAME=PL1_COMPILER.ESDLIST.SA.014(1) 122 5.0T1 498 PL1_COMPILER.ESDLIST.SA.014 1 LINE 80 2 PAGE UM TIFFANY APR. 05, 1980 14:14:37 5.0T1 498 0 TABLE OF SOMETHING OR OTHER USED BY PL/1 MAINTENANCE LLXU (506/7). SOURCE GENERATED BY PL/1 MAINTENANCE CRELCS (506/1). 00163/015A PL1 COMPILER IEMTM SA G W062:IEMTM 5.0T1 499 PL1_COMPILER.IEMTM.SA.015 1 LINE 72 23 PAGE UM TIFFANY JULY 03, 1981 12:53:20 5.0T1 499 0 COMPILER PHASE "TM" WHICH PRODUCES THE SYMPL1 RECORDS IF THE "TEST" OPTION IS USED. 00163/016 PL1 COMPILER *PL1 OE G *PL1 5.0T1 500 PL1_COMPILER.*PL1.OE.016 1 LINE 5204 9 PAGE UM TIFFANY JULY 03, 1981 12:53:27 5.0T1 500 *PL1 0 Referenced by comments of: 163/17 00163/017A PL1 COMPILER PL1LINKLIB OE G ETC:PL1LINKLIB 5.0T1 501 PL1_COMPILER.PL1LINKLIB.OE.017 1 LINE 17779 238 PAGE UM TIFFANY JULY 03, 1981 12:53:28 5.0T1 501 ETC:PL1LINKLIB 0 A DIR-TYPE LIBRARY LINE FILE FROM WHICH *PL1 (163/16) LOADS PHASES DURING COMPILATION. 00164/001 *LCS OC G *LCS 5.0T1 502 LCS..OC.001 1 LINE 24 1 PAGE UM MTA JULY 03, 1981 12:53:41 5.0T1 502 *LCS 0 CONTAINS THE SINGLE LOADER CARD: LCS LCSYMBOL 0 Referenced by comments of: 129/2, 303/4, 631/15, 631/23, 739/4, 740/4 00170/001 *LISTVTOC SA # (OBSOLETE) D2T1 105 UM 00171/001 *BATCH SA # (OBSOLETED BY *BATCH*) D2T1 327 UM 00172/001 *UMIST MACRO LIB SM S1430 4.3T1 VLO FSNAME=UMIST.MACRO_LIB.SM.001(1) 126 5.0T1 503 UMIST.MACRO_LIB.SM.001 1 LINE 72 8 PAGE UM SALISBURY SEP. 07, 1979 09:14:41 5.0T1 503 0 (172/1) THRU (172/9) REPRESENT THE CURRENT SOURCE FOR *UMIST. IT CONSISTS OF 1 MACRO LIBRARY, 2 COPY SECTIONS, AND 6 ASSEMBLIES. TO ASSEMBLE UMIST CREATE AND FILL UMIST.SYMS (172/2) AND UMIST.PSECT (172/3) (THE COPY SECTIONS), CREATE THE MACRO LIBRARY, AND ASSEMBLE ANY OR ALL OF THE ASSEMBLIES USING BOTH *SYSMAC AND THE SPECIAL MACRO LIBRARY. COMPONENT (172/1) IS THE MACRO LIBRARY READY FOR COPYING INTO A FILE. 0 Referenced by comments of: 172/1 1 MON AUG 05/96 18:37:45 Page 92 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00172/002 *UMIST /SYMBOLS SA S1430 4.3T1 VLO FSNAME=UMIST./SYMBOLS.SA.002(1) 127 5.0T1 504 UMIST./SYMBOLS.SA.002 1 LINE 72 3 PAGE UM SALISBURY SEP. 07, 1979 09:16:28 5.0T1 504 0 THIS IS THE UMIST.SYMS COPY SECTION 0 Referenced by comments of: 172/1, 172/4, 172/5, 172/7, 172/8, 172/9 00172/003 *UMIST /PSECT SA S1430 4.3T1 VLO FSNAME=UMIST./PSECT.SA.003(1) 128 5.0T1 505 UMIST./PSECT.SA.003 1 LINE 72 4 PAGE UM SALISBURY SEP. 07, 1979 09:16:38 5.0T1 505 0 THIS IS THE UMIST.PSECT COPY SECTION. 0 Referenced by comments of: 172/1, 172/5, 172/7, 172/8, 172/9 00172/004 *UMIST /ENTRY SA S1430 4.3T1 VLO FSNAME=UMIST./ENTRY.SA.004(1) 129 5.0T1 506 UMIST./ENTRY.SA.004 1 LINE 71 5 PAGE UM SALISBURY SEP. 07, 1979 09:17:28 5.0T1 506 0 "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH AS POSSIBLE. COPIES UMIST.SYMS (172/2). 0 Referenced by comments of: 172/11 00172/005 *UMIST /TABLES SA S1430 4.3T1 VLO FSNAME=UMIST./TABLES.SA.005(1) 130 5.0T1 507 UMIST./TABLES.SA.005 1 LINE 73 5 PAGE UM SALISBURY SEP. 07, 1979 09:17:51 5.0T1 507 0 MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS. CALLED "/TABLES". COPIES UMIST.SYMS (172/2) AND UMIST.PSECT (172/3). 00172/006 *UMIST /MISC SA S1430 4.3T1 VLO FSNAME=UMIST./MISC.SA.006(1) 131 5.0T1 508 UMIST./MISC.SA.006 1 LINE 72 1 PAGE UM SALISBURY SEP. 07, 1979 09:18:10 5.0T1 508 0 "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK, INPUT BUFFER, AND FREE STORAGE. 00172/007 *UMIST /UTILITIES SA S1430 4.3T1 VLO FSNAME=UMIST./UTILITIES.SA.007(1) 132 5.0T1 509 UMIST./UTILITIES.SA.007 1 LINE 77 24 PAGE UM SALISBURY SEP. 07, 1979 09:18:57 5.0T1 509 0 "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH SUPPORT PRIMITIVE FUNCTIONS. THIS ASSEMBLY USES THE "SWPR" RPQ'ED INSTRUCTION. COPIES UMIST.SYMS (172/2) AND UMIST.PSECT (172/3). 00172/008 *UMIST /FCNS/1 SA S1430 4.3T1 VLO FSNAME=UMIST./FCNS/1.SA.008(1) 133 5.0T1 510 UMIST./FCNS/1.SA.008 1 LINE 71 27 PAGE UM SALISBURY SEP. 07, 1979 09:19:10 5.0T1 510 0 "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS. COPIES UMIST.SYMS (172/2) AND UMIST.PSECT (172/3). 1 MON AUG 05/96 18:37:45 Page 93 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00172/009 *UMIST /FCNS/2 SA S1430 4.3T1 VLO FSNAME=UMIST./FCNS/2.SA.009(1) 134 5.0T1 511 UMIST./FCNS/2.SA.009 1 LINE 71 19 PAGE UM SALISBURY SEP. 07, 1979 09:19:24 5.0T1 511 0 "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS. COPIES UMIST.SYMS (172/2) AND UMIST.PSECT (172/3). 0 Referenced by comments of: 172/1, 172/11 00172/010 *UMIST TEST DECK D S1430 4.3T1 VLO FSNAME=UMIST.TEST_DECK.D.010(1) 135 5.0T1 512 UMIST.TEST_DECK.D.010 1 LINE 80 3 PAGE UM SALISBURY SEP. 07, 1979 09:20:43 5.0T1 512 0 "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF. 00172/011 *UMIST OBJECT OE G *UMIST 5.0T1 513 UMIST.OBJECT.OE.011 1 LINE 15736 8 PAGE UM SALISBURY JULY 03, 1981 12:53:50 5.0T1 513 *UMIST 0 LINKEDITED OBJECT OF (172/4) THROUGH (172/9). 00175/001 *GPAKLIB OL # (OBSOLETE) D4T1 500 GPAKLIB..OL. 1 SEQ 3888 40 DISK UM JAN. 22, 1973 18:22.11 00178/001 *PIL - OLD VERSION SA S # (OBSOLETE) D3T1 447 PIL..SA.1 1 SEQ 80 215 PAGE UM JULY 31, 1973 00:38.27 0 Obsoleted by the new *PIL (566). 00179/001 *GPAKGRID OC # (OBSOLETE) D4T1 501 GPAKGRID..OC. 1 LINE 80 7 DISK UM JAN. 22, 1973 22:06.14 00180/001 SCANDASD SA # (OBSOLETE) D2T1 117 UM 00182/001 *SNOBOL4 MAIN SA G S0563 D4T1 VLO FSNAME=SNOBOL4.MAIN.SA.001(1) 502 5.0T1 514 SNOBOL4.MAIN.SA.001 1 SEQ 80 138 PAGE UM SWARTZ JULY 31, 1973 00:40.21 5.0T1 514 0 BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4. COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13). 0 Referenced by comments of: 182/6 00182/002 *SNOBOL4 SUBR SA G S0563 D4T1 VLO FSNAME=SNOBOL4.SUBR.SA.002(1) 503 5.0T1 515 SNOBOL4.SUBR.SA.002 1 SEQ 80 46 PAGE UM SWARTZ JULY 31, 1973 00:41.01 5.0T1 515 0 BELL LABS SOURCE FOR SUBROUTINES. 1 MON AUG 05/96 18:37:45 Page 94 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00182/003 *SNOBOL4 MACROS SA G S0563 D4T1 VLO FSNAME=SNOBOL4.MACROS.SA.003(1) 504 5.0T1 516 SNOBOL4.MACROS.SA.003 1 SEQ 80 41 PAGE UM SWARTZ JULY 31, 1973 00:44.08 5.0T1 516 0 BELL LABS SOURCE FOR MACROS. 00182/004 *SNOBOL4 GENERATE C S0563 D4T1 VLO FSNAME=SNOBOL4.GENERATE.C.004(1) 505 5.0T1 517 SNOBOL4.GENERATE.C.004 1 LINE 128 1 PAGE UM SWARTZ MAY 06, 1975 19:57:08 5.0T1 517 0 MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4. 00182/005 *SNOBOL4 LINKEDIT C S0563 D4T1 VLO FSNAME=SNOBOL4.LINKEDIT.C.005(1) 506 5.0T1 518 SNOBOL4.LINKEDIT.C.005 1 LINE 54 1 PAGE UM SWARTZ MAY 06, 1975 19:57:10 5.0T1 518 0 MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4. 00182/006 *SNOBOL4 UPDATE UU G S0563 D4T1 VLO FSNAME=SNOBOL4.UPDATE.UU.006(1) 507 5.0T1 519 SNOBOL4.UPDATE.UU.006 1 LINE 80 23 PAGE UM SWARTZ APR. 30, 1975 22:36:24 5.0T1 519 0 *UPDATE DECK TO MODIFIY BELL LABS SOURCE (182/1) TO BRING IT UP TO VERSION 3.10 SNOBOL 4 AND TO ADD THE CHANGES NECESSARY TO RUN IT IN MTS. 00182/007 *SNOBOL4 OBJECT OE G *SNOBOL4 5.0T1 520 SNOBOL4.OBJECT.OE.007 1 SEQ 32767 27 PAGE UM SWARTZ JULY 03, 1981 12:54:07 5.0T1 520 *SNOBOL4 0 OBJECT FROM ASSEMBLY OF MAIN AND SUBR, WHICH HAS BEEN COMBINED AND PURGED BY *LINKEDIT. 00182/008 *SNOBOL4 MACLEAN SP G S0563 D4T1 VLO FSNAME=SNOBOL4.MACLEAN.SP.008(1) 509 5.0T1 521 SNOBOL4.MACLEAN.SP.008 1 SEQ 80 1 PAGE UM SWARTZ JULY 31, 1973 00:47.21 5.0T1 521 0 SOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSEMBLY. 0 Referenced by comments of: 334/11 00182/009 *SNOBOL4 MACLEAN OC G S0563 D4T1 VLO FSNAME=SNOBOL4.MACLEAN.OC.009(1) 510 5.0T1 522 SNOBOL4.MACLEAN.OC.009 1 SEQ 80 2 PAGE UM SWARTZ JULY 31, 1973 00:47.23 5.0T1 522 0 RUN THIS PLUS *PL1LIB. 00182/010 *SNOBOL4 TEST PGMS SS G S0563 D4T1 VLO FSNAME=SNOBOL4.TEST_PGMS.SS.010(1) 511 5.0T1 523 SNOBOL4.TEST_PGMS.SS.010 1 LINE 72 3 PAGE UM SWARTZ APR. 30, 1975 22:36:43 5.0T1 523 0 PROGRAMS FOR TESTING SNOBOL4. 1 MON AUG 05/96 18:37:45 Page 95 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00182/011 *SNOBOL4 MLINK SA G S0563 D4T1 VLO FSNAME=SNOBOL4.MLINK.SA.011(1) 512 5.0T1 524 SNOBOL4.MLINK.SA.011 1 LINE 28 1 PAGE UM SWARTZ APR. 30, 1975 22:36:16 5.0T1 524 0 COPY SECTION. 0 Referenced by comments of: 182/1, 334/1 00182/012 *SNOBOL4 PARMS SA G S0563 D4T1 VLO FSNAME=SNOBOL4.PARMS.SA.012(1) 513 5.0T1 525 SNOBOL4.PARMS.SA.012 1 LINE 68 1 PAGE UM SWARTZ APR. 30, 1975 22:36:18 5.0T1 525 0 COPY SECTION. 0 Referenced by comments of: 182/1, 334/1 00182/013 *SNOBOL4 MDATA SA G S0563 D4T1 VLO FSNAME=SNOBOL4.MDATA.SA.013(1) 514 5.0T1 526 SNOBOL4.MDATA.SA.013 1 LINE 39 1 PAGE UM SWARTZ APR. 30, 1975 22:36:14 5.0T1 526 0 COPY SECTION. 0 Referenced by comments of: 182/1, 334/1 00191/001 *TRANSNOBOL SS G *TRANSNOBOL 5.0T1 527 TRANSNOBOL..SS.001 1 LINE 76 4 PAGE UM SWARTZ JULY 03, 1981 12:54:12 5.0T1 527 *TRANSNOBOL 0 CONVERT SNOBOL3 TO SNOBOL4. UNCHANGED SINCE DIST 1. 00193/001 *OSMAC SM *OSMAC 5.0T1 528 OSMAC..SM.001 1 LINE 72 159 PAGE UM H YOUNG JULY 03, 1981 12:54:13 5.0T1 528 *OSMAC 0 MACRO LIBRARY FOR OS/360 RELEASE 21.0 0 Referenced by comments of: 193/2, 234/19, 458/1, 458/79, 545/3, 545/4, 545/9, 545/11, 545/13, 545/15, 545/16, 545/24, 545/26, 545/28, 545/30, 545/32, 545/34, 545/36, 545/38 00193/002 *OSMAC BUILD PROGRAM SA MACB W116:BUILDMAC.S 5.0T1 529 OSMAC.BUILD_PROGRAM.SA.002 1 SEQ 80 11 PAGE UM H YOUNG JULY 03, 1981 12:54:35 5.0T1 529 0 THIS IS A PROGRAM TO BUILD *OSMAC (193/1). IT READS NAMES OF MACROS (UP TO 255 CHARS PER LINE) FROM SCARDS, DELETING ANY NAMES WHICH ARE DUPLICATES OR WHICH ARE LONGER THAN 8 CHARS. THE LIST OF MACRO NAMES IS TERMINATED BY AN END-OF-FILE FROM SCARDS. THE NAMES ARE SORTED INTO ALPHABETICAL ORDER AND THE MACRO TAPE IS THEN READ FROM LOGICAL I/O UNIT 0. THE SPECIFIED MACROS ARE WRITTEN IN THE MACRO LIBRARY FILE (LOGICAL I/O UNIT 1) BEGINNING AT LINE 3000. THE READING IS TERMINATED WHEN ALL SPECIFIED MACROS HAVE BEEN FOUND OR WHEN 2 CONSEQUTIVE END-OF-FILES HAVE BEEN READ. A DIRECTORY SHOWING THE STARTING LINE NUMBER FOR EACH MACRO IS PRINTED ON SPRINT. NORMALLY, THIS PROGRAM DELETES SEQUENCE ID FROM THE MACROS TO SAVE FILE SPACE (A LOT). STATEMENTS 201 AND 202 SHOULD BE DELETED IF SEQUENCE ID IS TO BE PRESERVED: 1 MON AUG 05/96 18:37:45 Page 96 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LA 1,72 STH 1,LEN 00193/003 *OSMAC BUILD PROGRAM OC W116:BUILDMAC 5.0T1 530 OSMAC.BUILD_PROGRAM.OC.003 1 LINE 80 3 PAGE UM H YOUNG JULY 03, 1981 12:54:36 5.0T1 530 00196/001 PAGEIT SA # (OBSOLETE) D3T2 4 PAGEIT..SA.1 1 LINE 80 3 PAGE UM JULY 31, 1973 20:59.23 0 Obsoleted by PAGLOAD (643). 00197/001A *SMDS M *SMDS 5.0T1 531 SMDS..M.001 1 LINE 168 6 PAGE UM MTS AUG. 05, 1981 02:08:09 5.0T1 531 *SMDS 0 MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET). USED IN CONJUNCTION WITH FMSG MACRO IN MTS. 00198/001A GUINFO/CUINFO SUBRS D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=INFO 5.0T4 294 GUINFO/CUINFO_SUBRS.D5.0.SA.001 1 LINE 80 19 PAGE UM MTS HELFFRICH AUG. 09, 1981 22:49:16 5.0T10 198 0 SUBROUTINES TO ALLOW USERS TO ACCESS (OR CHANGE) CERTAIN INFORMATION IN THE MTS DSECT. COPIES COPY:LLMPSEQU (087), COPY:JOBSTA (413/9), AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2 00198/002A GUINFO/CUINFO SUBRS UPDATE UC G MTS:INFOUPD 5.0T4 295 GUINFO/CUINFO_SUBRS.UPDAT.UC.002 1 LINE 79 10 PAGE UM MTS HELFFRICH AUG. 09, 1981 22:49:17 5.0T10 199 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=INFO. 00198/003A GUINFO/CUINFO SUBRS OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00198/004A GUINFO/CUINFO SUBRS L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=INFO.LIST 5.0T4 296 GUINFO/CUINFO_SUBRS..L.004 1 LINE 133 58 PAGE UM MTS HELFFRICH AUG. 09, 1981 22:49:29 5.0T10 200 00200/001 *SDARTN SA # (OBSOLETE) D3T2 8 SDARTN..SA.1 1 LINE 80 94 PAGE UM JULY 31, 1973 21:01.58 00201/001 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.001(1) 524 5.0T1 532 GPSS.OS_SOURCE.SA.001 1 SEQ 80 20 PAGE UM FLANIGAN JULY 27, 1977 23:35:43 5.0T1 532 0 THE MTS IMPLEMENTATION OF GPSS OFFERS SEVERAL FEATURES NOT PROVIDED BY THE IBM VERSION: 1. IMPROVED LISTING CONTROL WITH BATCH AND TERMINAL DEFAULTS. 1 MON AUG 05/96 18:37:45 Page 97 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 2. LINE NUMBERS IN THE LISTING. 3. SENSIBLE CARRIAGE CONTROL (FAR FEWER PAGE SKIPS). 4. CAPABILITY OF DIRECTLY INTERFACING WITH SUBROUTINES THAT USE OS/I CALLING SEQUENCES. 5. SUBROUTINES TO ALLOW MANIPULATION OF GPSS DATA FROM FORTRAN PROGRAMS. 6. TIME ESTIMATES TO ALLOW ERROR OUTPUT TO BE PRINTED BEFORE MTS TERMINATES A JOB. 7. ATTENTION INTERRUPT CONTROL TO TELL THE USER WHERE HIS PROGRAM IS AND HOW MUCH HAS BEEN SPENT. 8. PADDING AND TRUNCATION OF JOBTAPES FOR DISK SPACE ECONOMY. 9. ERROR MESSAGE SUMMARY. THREE PRINCIPLE APPENDAGES ARE TACKED ONTO THE IBM MODULES TO MAKE THESE IMPROVEMENTS. FIRST, A DRIVER PROGRAM IS PROVIDED TO SCAN THE PAR= FIELD AND SET-UP DEFAULTS; AND, AT THE CONCLUSION OF A RUN, TO PRINT AN ERROR SUMMARY WHERE APPROPRIATE. SECOND, A SET OF INTERFACE SUBROUTINES PROVIDE A SIMULATED OS/360 ENVIRONMENT. ONE NOTABLE FEATURE OF THIS INTERFACE IS THAT SCRATCH FILE I/O IS IMPLEMENTED BY USE OF VIRTUAL MEMORY FILES. THIRD, A SET OF SMALL "HOOK" SUBROUTINES IS PROVIDED. BECAUSE OF THE VOLATILITY OF THE RATHER POOR IBM CODE, SUCH FUNCTIONS AS IMPROVED LISTING CONTROL WERE IMPLEMENTED BY ASSEMBLING "HOOKS" INTO THE IBM CODE, EACH "HOOK" RESULTING IN A CALL TO A "HOOK" SUBROUTINE. WHILE THE "HOOK" SUBROUTINES EXHIBIT WHAT WOULD APPEAR TO BE BAD PROGRAMMING PRACTICES (E.G. ABSOLUTE DISPLACEMENTS IN INSTRUCTIONS), THEY HAVE BEEN CODED IN SUCH A WAY AS TO BE INSENSITIVE TO REASSEMBLY OF THE IBM MODULES. COMPONENTS (201/1) THROUGH (201/11) ARE THE OS/360 SOURCE FOR GPSS VERSION 1 MODIFICATION LEVEL 3. 0 Referenced by comments of: 201/1 00201/002 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.002(1) 525 5.0T1 533 GPSS.OS_SOURCE.SA.002 1 SEQ 80 11 PAGE UM FLANIGAN JULY 27, 1977 23:35:44 5.0T1 533 00201/003 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.003(1) 526 5.0T1 534 GPSS.OS_SOURCE.SA.003 1 SEQ 80 8 PAGE UM FLANIGAN JULY 27, 1977 23:35:46 5.0T1 534 00201/004 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.004(1) 527 5.0T1 535 GPSS.OS_SOURCE.SA.004 1 SEQ 80 62 PAGE UM FLANIGAN JULY 27, 1977 23:35:50 5.0T1 535 00201/005 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.005(1) 528 5.0T1 536 GPSS.OS_SOURCE.SA.005 1 SEQ 80 102 PAGE UM FLANIGAN JULY 27, 1977 23:35:55 5.0T1 536 00201/006 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.006(1) 529 5.0T1 537 GPSS.OS_SOURCE.SA.006 1 SEQ 80 22 PAGE UM FLANIGAN JULY 27, 1977 23:35:57 5.0T1 537 00201/007 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.007(1) 530 5.0T1 538 GPSS.OS_SOURCE.SA.007 1 SEQ 80 88 PAGE UM FLANIGAN JULY 27, 1977 23:36:02 5.0T1 538 00201/008 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.008(1) 531 5.0T1 539 GPSS.OS_SOURCE.SA.008 1 SEQ 80 112 PAGE UM FLANIGAN JULY 27, 1977 23:36:08 5.0T1 539 1 MON AUG 05/96 18:37:45 Page 98 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00201/009 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.009(1) 532 5.0T1 540 GPSS.OS_SOURCE.SA.009 1 SEQ 80 152 PAGE UM FLANIGAN JULY 27, 1977 23:36:16 5.0T1 540 00201/010 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.010(1) 533 5.0T1 541 GPSS.OS_SOURCE.SA.010 1 SEQ 80 109 PAGE UM FLANIGAN JULY 27, 1977 23:36:23 5.0T1 541 00201/011 *GPSS OS SOURCE SA G S0563 D4T1 VLO FSNAME=GPSS.OS_SOURCE.SA.011(1) 534 5.0T1 542 GPSS.OS_SOURCE.SA.011 1 SEQ 80 57 PAGE UM FLANIGAN JULY 27, 1977 23:36:28 5.0T1 542 0 Referenced by comments of: 201/1 00201/012 *GPSS GPSSUPDATE UU G S0563 D4T1 VLO FSNAME=GPSS.GPSSUPDATE.UU.012(1) 535 5.0T1 543 GPSS.GPSSUPDATE.UU.012 1 LINE 80 7 PAGE UM FLANIGAN AUG. 13, 1974 15:30.13 5.0T1 543 0 UPDATE DECK TO BE APPLIED TO 11 OS SOURCE FILES. A TAPE-TO-TAPE UPDATE VIA *UPDATE USING *IBM* TO *MTS* IS ASSUMED. THIS UPDATE PRODUCES VERSION 1, MOD 4 GPSS. 00201/013 *GPSS GPSS.OS.O OE G S0563 D4T1 VLO FSNAME=GPSS.GPSS.OS.O.OE.013(1) 536 5.0T1 544 GPSS.GPSS.OS.O.OE.013 1 LINE 255 43 PAGE UM FLANIGAN AUG. 13, 1974 15:28.34 5.0T1 544 0 OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES. 00201/014 *GPSS GPSSMAC SM G S0563 D4T1 VLO FSNAME=GPSS.GPSSMAC.SM.014(1) 537 5.0T1 545 GPSS.GPSSMAC.SM.014 1 LINE 80 8 PAGE UM FLANIGAN APR. 06, 1974 14:48.29 5.0T1 545 0 MACRO LIBRARY NEEDED FOR ALL ASSEMBLIES. 00201/015 *GPSS GPSS.S SA G S0563 D4T1 VLO FSNAME=GPSS.GPSS.S.SA.015(1) 538 5.0T1 546 GPSS.GPSS.S.SA.015 1 LINE 80 7 PAGE UM FLANIGAN APR. 06, 1974 14:48.33 5.0T1 546 0 SOURCE FOR MTS DRIVER PROGRAM. 00201/016 *GPSS GPSSPKG.S SA G S0563 D4T1 VLO FSNAME=GPSS.GPSSPKG.S.SA.016(1) 539 5.0T1 547 GPSS.GPSSPKG.S.SA.016 1 LINE 80 7 PAGE UM FLANIGAN APR. 06, 1974 14:48.38 5.0T1 547 0 SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS. 00201/017 *GPSS HOOKSECT.S SA G S0563 D4T1 VLO FSNAME=GPSS.HOOKSECT.S.SA.017(1) 540 5.0T1 548 GPSS.HOOKSECT.S.SA.017 1 LINE 80 15 PAGE UM FLANIGAN APR. 06, 1974 14:48.50 5.0T1 548 0 SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE. 1 MON AUG 05/96 18:37:45 Page 99 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00201/018 *GPSS JUNK.S SA G S0563 D4T1 VLO FSNAME=GPSS.JUNK.S.SA.018(1) 541 5.0T1 549 GPSS.JUNK.S.SA.018 1 LINE 80 3 PAGE UM FLANIGAN APR. 06, 1974 14:48.42 5.0T1 549 0 SOURCE FOR SEVERAL SUBROUTINES. 00201/019 *GPSS GPSS.MTS.O OE G S0563 D4T1 VLO FSNAME=GPSS.GPSS.MTS.O.OE.019(1) 542 5.0T1 550 GPSS.GPSS.MTS.O.OE.019 1 LINE 255 7 PAGE UM FLANIGAN APR. 06, 1974 14:49.02 5.0T1 550 0 OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S. 00201/020 *GPSS *GPSS OE G *GPSS 543 5.0T1 551 GPSS.*GPSS.OE.020 1 SEQ 32767 34 PAGE UM FLANIGAN JULY 03, 1981 12:55:10 5.0T1 551 *GPSS 0 LINKEDIT OF GPSS.OS.O AND GPSS.MTS.O WITH ENTRY POINT ESD ITEMS PURGED. NOTE: GPSS CALL THE FOLLOWING LIBRARY SUBROUTINES: COST, SETIME, AND TIMNTRP. 00201/021 *GPSS GPSSLIB SA G S0563 D4T1 VLO FSNAME=GPSS.*GPSSLIB.SA.021(1) 544 5.0T1 552 GPSS.GPSSLIB.SA.021 1 LINE 80 8 PAGE UM FLANIGAN APR. 06, 1974 14:48.45 5.0T1 552 0 SOURCE FOR SUBROUTINES WHICH ALLOW THE MANIPULATION OF GPSS DATA FROM FORTRAN SUBROUTINES. 00201/022 *GPSS *GPSSLIB OC G *GPSSLIB 5.0T1 553 GPSS.*GPSSLIB.OC.022 1 SEQ 80 1 PAGE UM FLANIGAN JULY 03, 1981 12:55:13 5.0T1 553 *GPSSLIB 00201/023 *GPSS *GPSSERR M G *GPSSERR 5.0T1 554 GPSS.*GPSSERR.M.023 1 LINE 73 9 PAGE UM FLANIGAN JULY 03, 1981 12:55:13 5.0T1 554 *GPSSERR 0 ERROR MESSAGE FILE. 00201/024 *GPSS TESTPROG S G S0563 D4T1 VLO FSNAME=GPSS.TESTPROG.S.024(1) 547 5.0T1 555 GPSS.TESTPROG.S.024 1 LINE 80 1 PAGE UM FLANIGAN APR. 06, 1974 14:49.23 5.0T1 555 0 SOURCE FOR TEST PROGRAM. 00201/025 *GPSS TESTOUTPUT D G S0563 D4T1 VLO FSNAME=GPSS.TESTOUTPUT.D.025(1) 548 5.0T1 556 GPSS.TESTOUTPUT.D.025 1 LINE 129 3 PAGE UM FLANIGAN NOV. 02, 1974 13:57.22 5.0T1 556 0 OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM. 00201/026 *GPSS NOTES WF S0563 D4T1 VLO FSNAME=GPSS.NOTES.WF.026(1) 549 5.0T1 557 GPSS.NOTES.WF.026 1 LINE 107 1 PAGE UM FLANIGAN MAR. 06, 1974 03:34.46 5.0T1 557 0 WRITEUP DESCRIBING GPSS/360. 1 MON AUG 05/96 18:37:45 Page 100 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00204/001 FORTRANG IEYFORT SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYFORT.SA.001(1) 550 5.0T1 558 FORTRANG.IEYFORT.SA.001 1 LINE 72 11 PAGE UM HANSEN JUNE 01, 1976 10:43:12 5.0T1 558 0 THIS IS THE MTS VERSION OF THE CONTROL MODULE OF THE FORTRAN G COMPILER. IT INCORPORATES THE FUNCTIONS OF THE OS MODULES IEYFORT AND IEYFORT2. THIS MODULE IS THE ENTRY POINT TO THE COMPILER. 0 Referenced by comments of: 551/1, 666/1 00204/002 FORTRANG IEYFORT OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYFORT.OC.002(1) 551 5.0T1 559 FORTRANG.IEYFORT.OC.002 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 10:43:23 5.0T1 559 00204/003 FORTRANG IEYFORTD SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYFORTD.SA.003(1) 552 5.0T1 560 FORTRANG.IEYFORTD.SA.003 1 LINE 72 12 PAGE UM HANSEN JUNE 01, 1976 10:43:18 5.0T1 560 0 THIS IS THE CONTROL MODULE OF THE COMPILER VERSION WHICH PRODUCES SYM RECORDS. IT OBTAINS SYMBOL STORAGE IN SEGMENT 6 AND COMPILER STORAGE IN SEGMENTS 7 AND ABOVE, GREATLY REDUCING THE CHANCE OF A COMPILER PROGRAM INTERRUPT. 0 Referenced by comments of: 204/21 00204/004 FORTRANG IEYFORTD OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYFORTD.OC.004(1) 553 5.0T1 561 FORTRANG.IEYFORTD.OC.004 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 10:43:37 5.0T1 561 00204/005 FORTRANG IEYALL SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYALL.SA.005(1) 554 5.0T1 562 FORTRANG.IEYALL.SA.005 1 LINE 80 87 PAGE UM HANSEN OCT. 06, 1975 14:36:02 5.0T1 562 0 FORTRAN G ALLOCATE MODULE. COPIES IEYPSCT (204/27). ASSEMBLE USING IEYMACROS (204/23). 00204/006 FORTRANG IEYALL OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYALL.OC.006(1) 555 5.0T1 563 FORTRANG.IEYALL.OC.006 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 11:26:38 5.0T1 563 00204/007 FORTRANG IEYEXT SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYEXT.SA.007(1) 556 5.0T1 564 FORTRANG.IEYEXT.SA.007 1 LINE 80 60 PAGE UM HANSEN OCT. 06, 1975 14:36:23 5.0T1 564 0 FORTRAN G EXIT MODULE. COPIES IEYPSCT (204/27). ASSEMBLE USING IEYMACROS (204/23). 00204/008 FORTRANG IEYEXT OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYEXT.OC.008(1) 557 5.0T1 565 FORTRANG.IEYEXT.OC.008 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 11:26:43 5.0T1 565 00204/009 FORTRANG IEYGEN SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYGEN.SA.009(1) 558 5.0T1 566 FORTRANG.IEYGEN.SA.009 1 LINE 80 171 PAGE UM HANSEN OCT. 06, 1975 14:37:56 5.0T1 566 0 FORTRAN G CODE GENERATION MODULE. COPIES IEYPSCT (204/27). ASSEMBLE USING IEYMACROS (204/23). 1 MON AUG 05/96 18:37:45 Page 101 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00204/010 FORTRANG IEYGEN OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYGEN.OC.010(1) 559 5.0T1 567 FORTRANG.IEYGEN.OC.010 1 LINE 80 8 PAGE UM HANSEN JUNE 01, 1976 11:26:47 5.0T1 567 00204/011 FORTRANG IEYINT SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYINT.SA.011(1) 560 5.0T1 568 FORTRANG.IEYINT.SA.011 1 LINE 80 3 PAGE UM HANSEN OCT. 06, 1975 14:38:23 5.0T1 568 0 FORTRAN G POP INTERPRETER. COPIES IEYDINT (204/24). ASSEMBLE USING IEYMACROS (204/23). 00204/012 FORTRANG IEYINT OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYINT.OC.012(1) 561 5.0T1 569 FORTRANG.IEYINT.OC.012 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 11:26:51 5.0T1 569 00204/013 FORTRANG IEYPAR SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYPAR.SA.013(1) 562 5.0T1 570 FORTRANG.IEYPAR.SA.013 1 LINE 80 188 PAGE UM HANSEN NOV. 13, 1975 09:23:17 5.0T1 570 0 FORTRAN G PARSER MODIFIED TO ALLOW AN ARBITRARY NUMBER OF COMMENTS BETWEEN ANY TWO STATEMENTS. COPIES IEYDINT (204/24). ASSEMBLE USING IEYMACROS (204/23). 00204/014 FORTRANG IEYPAR OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYPAR.OC.014(1) 563 5.0T1 571 FORTRANG.IEYPAR.OC.014 1 LINE 80 9 PAGE UM HANSEN JUNE 01, 1976 11:26:55 5.0T1 571 0 Contains REP cards which have been incorporated into the source. 00204/015 FORTRANG IEYROL SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYROL.SA.015(1) 564 5.0T1 572 FORTRANG.IEYROL.SA.015 1 LINE 80 11 PAGE UM HANSEN OCT. 06, 1975 14:39:13 5.0T1 572 0 FORTRAN G ROLL CONTROL MODULE FOR COMPILER WORKSPACE. ASSEMBLE USING IEYMACROS (204/23). 00204/016 FORTRANG IEYROL OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYROL.OC.016(1) 565 5.0T1 573 FORTRANG.IEYROL.OC.016 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 11:27:00 5.0T1 573 00204/017 FORTRANG IEYOPT SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYOPT.SA.017(1) 566 5.0T1 574 FORTRANG.IEYOPT.SA.017 1 LINE 68 3 PAGE UM HANSEN OCT. 08, 1975 16:28:22 5.0T1 574 0 THIS IS AN OPTION SCANNER CALLED BY IEYFORT TO PARSE THE PAR FIELD. 00204/018 FORTRANG IEYOPT OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYOPT.OC.018(1) 567 5.0T1 575 FORTRANG.IEYOPT.OC.018 1 LINE 255 1 PAGE UM HANSEN OCT. 08, 1975 16:31:46 5.0T1 575 00204/019 FORTRANG IEYUNF SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYUNF.SA.019(1) 568 5.0T1 576 FORTRANG.IEYUNF.SA.019 1 LINE 80 35 PAGE UM HANSEN OCT. 06, 1975 14:39:38 5.0T1 576 0 FORTRAN G "UNIFY" MODULE. COPIES IEYPSCT (204/27). ASSEMBLE USING IEYMACROS 1 MON AUG 05/96 18:37:45 Page 102 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (204/23). 00204/020 FORTRANG IEYUNF OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYUNF.OC.020(1) 569 5.0T1 577 FORTRANG.IEYUNF.OC.020 1 LINE 80 8 PAGE UM HANSEN JUNE 01, 1976 11:27:04 5.0T1 577 00204/021 FORTRANG IEYSYM SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYSYM.SA.021(1) 570 5.0T1 578 FORTRANG.IEYSYM.SA.021 1 LINE 72 15 PAGE UM HANSEN DEC. 15, 1975 12:43:24 5.0T1 578 0 THIS IS THE SYM CARD PRODUCING MODULE. IT IS CALLED BY IEYFORTD (204/3). 00204/022 FORTRANG IEYSYM OC G S0563 D4T1 VLO FSNAME=FORTRANG.IEYSYM.OC.022(1) 571 5.0T1 579 FORTRANG.IEYSYM.OC.022 1 LINE 80 4 PAGE UM HANSEN DEC. 15, 1975 12:43:35 5.0T1 579 00204/023 FORTRANG IEYMACROS SM G S0563 D4T1 VLO FSNAME=FORTRANG.IEYMACROS.SM.023(1) 572 5.0T1 580 FORTRANG.IEYMACROS.SM.023 1 LINE 80 62 PAGE UM HANSEN OCT. 08, 1975 16:29:23 5.0T1 580 0 THE MACRO LIBRARY NEEDED TO ASSEMBLE ALL OS MODULES OF FORTRAN G, I.E. EVERYTHING EXCEPT IEYFORT, IEYFORTD, IEYOPT, AND IEYSYM. 0 Referenced by comments of: 204/5, 204/7, 204/9, 204/11, 204/13, 204/15, 204/19 00204/024 FORTRANG IEYDINT SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYDINT.SA.024(1) 573 5.0T1 581 FORTRANG.IEYDINT.SA.024 1 LINE 80 34 PAGE UM HANSEN OCT. 08, 1975 16:30:07 5.0T1 581 0 A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G. 0 Referenced by comments of: 204/11, 204/13 00204/025 FORTRANG IEYMID SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYMID.SA.025(1) 574 5.0T1 582 FORTRANG.IEYMID.SA.025 1 LINE 80 1 PAGE UM HANSEN OCT. 08, 1975 16:29:36 5.0T1 582 0 A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G. 00204/026 FORTRANG IEYPRF SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYPRF.SA.026(1) 575 5.0T1 583 FORTRANG.IEYPRF.SA.026 1 LINE 80 1 PAGE UM HANSEN OCT. 08, 1975 16:29:45 5.0T1 583 0 A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G. 00204/027 FORTRANG IEYPSCT SA G S0563 D4T1 VLO FSNAME=FORTRANG.IEYPSCT.SA.027(1) 576 5.0T1 584 FORTRANG.IEYPSCT.SA.027 1 LINE 80 5 PAGE UM HANSEN OCT. 08, 1975 16:30:00 5.0T1 584 0 A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G. 0 Referenced by comments of: 204/5, 204/7, 204/9, 204/19 1 MON AUG 05/96 18:37:45 Page 103 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00204/028 FORTRANG REG OBJECT OE G *FORTRANG 5.0T1 585 FORTRANG.REG_OBJECT.OE.028 1 SEQ 32766 16 PAGE UM HANSEN JULY 03, 1981 12:55:39 5.0T1 585 *FORTRANG 0 THE LINKEDITED OBJECT OF THE REGULAR (NON-TEST) FORTRAN G COMPILER. IT INCLUDES IEYFORT, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, AND IEYUNF. 00204/029 FORTRANG TEST OBJECT OE G *FTNGTEST 5.0T1 586 FORTRANG.TEST_OBJECT.OE.029 1 SEQ 32767 17 PAGE UM HANSEN JULY 03, 1981 12:55:40 5.0T1 586 *FTNGTEST 0 THE LINKEDITED OBJECT OF THE SYM CARD PRODUCING VERSION OF THE FORTRAN G COMPILER. IT INCLUDES IEYFORTD, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, IEYSYM, AND IEYUNF. 00210/001 *LISP SA G C4541C GO FSNAME=LISPSOURCE.ASMG(2) 5.0T1 587 LISP..SA.001 1 LINE 71 105 PAGE UM MTA DEC. 07, 1979 09:47:53 5.0T1 587 0 NEW LISP INTERPRETER WRITTEN BY UM MENTAL HEALTH RESEARCH INSTITUTE. THE OLD OS/360 LISP IS NOW USED ONLY IN CONJUNCTION WITH REDUCE2 (556). ASSEMBLE USING *ASMG (066) RATHER THAN *ASMH (737). 00210/002 *LISP OE G *LISP 5.0T1 588 LISP..OE.002 1 SEQ 80 41 PAGE UM MTA JULY 03, 1981 12:56:28 5.0T1 588 *LISP 00210/003 *LISP TRANSIT SA G C4541C GO FSNAME=TRANSIT.ASMG 5.0T1 589 LISP.TRANSIT.SA.003 1 LINE 93 7 PAGE UM MTA JAN. 06, 1979 12:43:54 5.0T1 589 0 THIS COMPONENT CONTAINS THE "HYPOTHETICAL WORLDS" FUNCTIONS, RPLACA2, RPLACD2, SETA2, NEWWORLD, REALWORLD, GETWORLD. 00210/004 *LISP EDITOR S G C4541C GO FSNAME=EDIT.LISP 5.0T1 590 LISP.EDITOR.S.004 1 LINE 152 6 PAGE UM MTA JAN. 06, 1979 12:43:25 5.0T1 590 0 THIS COMPONENT CONTAINS THE LISP SOURCE FOR A LISP DATA STRUCTURE EDITOR. IT WAS WRITTEN AT UBC AND IS DOCUMENTED IN MTS VOLUME 8. 00210/005 *LISP BREAK S G C4541C GO FSNAME=DEBUG.LISP 5.0T1 591 LISP.BREAK.S.005 1 LINE 126 5 PAGE UM MTA JAN. 06, 1979 12:42:46 5.0T1 591 0 THIS COMPONENT CONTAINS THE LISP SOURCE FOR A LISP DEBUGGING PACKAGE. IT WAS WRITTEN AT UBC AND IS DOCUMENTED IN MTS VOLUME 8. 00210/006 *LISP COMPILER S G C4541C GO FSNAME=COMPILER.LISP 5.0T1 592 LISP.COMPILER.S.006 1 LINE 116 29 PAGE UM MTA DEC. 07, 1979 09:48:26 5.0T1 592 0 THIS IS THE LISP SOURCE FOR THE LISP COMPILER. 1 MON AUG 05/96 18:37:45 Page 104 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00210/007 *LISP *LISPLIB O G *LISPLIB 5.0T1 593 LISP.*LISPLIB.O.007 1 LINE 32517 74 PAGE UM MTA JULY 03, 1981 12:57:00 5.0T1 593 *LISPLIB 0 THIS IS A SEQ FILE WHICH CONTAINS CHECKPOINTED VERSIONS OF LESS FREQUENTLY USED FUNCTIONS IN A FORMAT UNDERSTOOD ONLY BY THE LISP INTERPRETER. IT CURRENTLY CONTAINS THE SUBCOMPONENTS TRANSIT, EDITOR, BREAK, AND COMPILER. 00212/001 *FILESNIFF SA G # (OBSOLETE) D3T2 49 FILESNIFF..SA.1 1 LINE 80 6 PAGE UM JULY 31, 1973 21:17.52 0 Obsoleted by the FILESTATUS command (529). 00217/001 *LIBTOFASTLIB S # (OBSOLETE) D2T1 289 UM 00220/001 *GOMAD S # (OBSOLETE) D2T1 293 UM 00221/001 **TP S # (OBSOLETE) D2T1 140 UM 00223/001 SIOERR SUBR SA G S0563 D4T1 VLO FSNAME=SIOERR_SUBR..SA.001(1) 586 5.0T1 594 SIOERR_SUBR..SA.001 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 23:54:04 5.0T1 594 0 FORTRAN INTERFACE TO SETIOERR. 00223/002 SIOERR SUBR OC G # (PART OF *LIBRARY) UM MTA 0 Object part of *LIBRARY (524/1) 00225/001A *SYSMAC SM G MTA:SYSMAC 5.0T1 595 SYSMAC..SM.001 1 LINE 73 152 PAGE UM MTA AUG. 21, 1981 04:41:44 5.0T1 595 0 MTS GENERAL SYSTEM MACRO LIBRARY FOR *ASMH. THIS VERSION IS THE SAME AS *SYSMAC ON THE TEST PACK (225/2) EXCEPT THAT THE COMMENTS HAVE NOT BEEN REMOVED. SEE ALSO *ASMGSYSMAC (066/95) FOR *ASMG MACRO LIBRARY AND *ASMTSYSMAC (619/1) FOR THE *ASMT MACRO LIBRARY. 00225/002A *SYSMAC SM G *SYSMAC 5.0T1 596 SYSMAC..SM.002 1 LINE 73 112 PAGE UM MTA AUG. 21, 1981 04:42:25 5.0T1 596 *SYSMAC 0 Referenced by comments of: 225/1 00225/003A *SYSMAC TEST PGM 1 SA G MTA:TESTIOMAC 5.0T1 597 SYSMAC.TEST_PGM_1.SA.003 1 LINE 72 11 PAGE UM MTA JULY 03, 1981 12:57:56 5.0T1 597 MTA.:TESTIOMAC 0 TEST PROGRAM FOR MANY MACROS IN *SYSMAC. 1 MON AUG 05/96 18:37:45 Page 105 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00225/004 *SYSMAC TEST PGM 2 SA G MTA:TESTMINMAX 5.0T1 598 SYSMAC.TEST_PGM_2.SA.004 1 LINE 45 3 PAGE UM MTA JULY 03, 1981 12:58:00 5.0T1 598 MTA:TESTMINMAX 0 TESTS MIN AND MAX MACROS. 00229/001 *TIDY SF # (OBSOLETE) D4T1 589 TIDY..SF.001 1 SEQ 80 60 PAGE UM JULY 31, 1973 21:20.10 0 Obsoleted by *FTNTIDY (727). 0 Referenced by comments of: 727/1 00231/001 *GRAPHLIB SA # (OBSOLETE) D4T1 591 GRAPHLIB..SA. 1 SEQ 80 211 PAGE UM JULY 31, 1973 21:21.10 00233/001 PL1 LIBRARY MACLIB SM G S0563 D4T1 VLO FSNAME=PL1_COMPILER.MACLIB.SM.001(1) 468 5.0T1 599 PL1_LIBRARY.MACLIB.SM.001 1 LINE 80 66 PAGE UM TIFFANY JULY 27, 1977 23:22:48 5.0T1 599 0 Subcomponents (233/1) through (233/12) are older versions of the I/O routines also distributed in the PL1 compiler, components (163/1) through (163/12). They are being distributed as a part of the PL1 library since they will not be added to the library, work upon which has been frozen due to the arrival of the PL1 Optimizing Compiler (813). MACLIB is a macro library for the simulation of OS/360 stuff in MTS. 0 Referenced by comments of: 233/1, 233/41 00233/002 PL1 LIBRARY SAMEQU SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.SAMEQU.SA.002(1) 469 5.0T1 600 PL1_LIBRARY.SAMEQU.SA.002 1 SEQ 80 4 PAGE UM TIFFANY JULY 27, 1977 23:23:35 5.0T1 600 0 COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE 0 Referenced by comments of: 233/3, 233/4, 233/5, 233/6, 233/7, 233/8, 233/9, 233/10, 233/11, 233/32 00233/003 PL1 LIBRARY REPLACE SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.REPLACE.SA.003(1) 470 5.0T1 601 PL1_LIBRARY.REPLACE.SA.003 1 SEQ 80 3 PAGE UM TIFFANY JULY 27, 1977 23:23:36 5.0T1 601 0 ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE. COPIES SAMEQU (233/2). 00233/004 PL1 LIBRARY CKLIO SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.CKLIO.SA.004(1) 471 5.0T1 602 PL1_LIBRARY.CKLIO.SA.004 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:23:38 5.0T1 602 0 ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT. COPIES SAMEQU (233/2). 1 MON AUG 05/96 18:37:45 Page 106 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/005 PL1 LIBRARY NONSENSE SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.NONSENSE.SA.005(1) 472 5.0T1 603 PL1_LIBRARY.NONSENSE.SA.005 1 SEQ 80 3 PAGE UM TIFFANY JULY 27, 1977 23:23:40 5.0T1 603 0 ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE. COPIES SAMEQU (233/2). 00233/006 PL1 LIBRARY FREEDDEF SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.FREEDDEF.SA.006(1) 473 5.0T1 604 PL1_LIBRARY.FREEDDEF.SA.006 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:23:43 5.0T1 604 0 ROUTINE TO FREE ALL DDEF'S. COPIES SAMEQU (233/2). 00233/007 PL1 LIBRARY FINDTIOT SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.FINDTIOT.SA.007(1) 474 5.0T1 605 PL1_LIBRARY.FINDTIOT.SA.007 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:23:45 5.0T1 605 0 ROUTINE TO FIND A TIOT GIVEN A "DDNAME." COPIES SAMEQU (233/2). 00233/008 PL1 LIBRARY DDEF SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.DDEF.SA.008(1) 475 5.0T1 606 PL1_LIBRARY.DDEF.SA.008 1 SEQ 80 8 PAGE UM TIFFANY JULY 27, 1977 23:23:48 5.0T1 606 0 ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH. COPIES SAMEQU (233/2). 00233/009 PL1 LIBRARY OPEN SA G S1143 D4.1T1 VLO FSNAME=PL1_COMPILER.OPEN.SA.009(1) 73 5.0T1 607 PL1_LIBRARY.OPEN.SA.009 1 SEQ 80 16 PAGE UM TIFFANY MAY 13, 1978 17:06:25 5.0T1 607 0 SIMULATE OS/360 OPEN. CURRENTLY ONLY BSAM AND QSAM ARE SUPPORTED. COPIES SAMEQU (233/2). 00233/010 PL1 LIBRARY ROUT SA G S1143 D4.1T1 VLO FSNAME=PL1_COMPILER.ROUT.SA.010(1) 74 5.0T1 608 PL1_LIBRARY.ROUT.SA.010 1 SEQ 80 26 PAGE UM TIFFANY MAY 13, 1978 17:06:27 5.0T1 608 0 LIST OF VARIOUS ROUTINES. COPIES SAMEQU (233/2). 00233/011 PL1 LIBRARY CLOSE SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.CLOSE.SA.011(1) 478 5.0T1 609 PL1_LIBRARY.CLOSE.SA.011 1 SEQ 80 4 PAGE UM TIFFANY JULY 27, 1977 23:23:56 5.0T1 609 0 SIMULATE OS/360 CLOSE. COPIES SAMEQU (233/2). 00233/012 PL1 LIBRARY QUIT SA G S0563 D4T1 VLO FSNAME=PL1_COMPILER.QUIT.SA.012(1) 479 5.0T1 610 PL1_LIBRARY.QUIT.SA.012 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:23:57 5.0T1 610 0 QUIT ONLY IN BATCH 0 Referenced by comments of: 233/1 1 MON AUG 05/96 18:37:45 Page 107 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/013 PL1 LIBRARY PL1MACLIB SM G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.PL1MACLIB.SM.013(1) 592 5.0T1 611 PL1_LIBRARY.PL1MACLIB.SM.013 1 LINE 80 13 PAGE UM TIFFANY JULY 27, 1977 23:56:02 5.0T1 611 0 MACRO LIBRARY FOR PL/I LIBRARY ROUTINES. 0 Referenced by comments of: 233/41 00233/014 PL1 LIBRARY SNAP SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.SNAP.SA.014(1) 593 5.0T1 612 PL1_LIBRARY.SNAP.SA.014 1 SEQ 80 3 PAGE UM TIFFANY JULY 27, 1977 23:56:16 5.0T1 612 0 SUBROUTINES TO DUMP. USED BY IHEDUMP. 00233/015 PL1 LIBRARY CNTL SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.CNTL.SA.015(1) 594 5.0T1 613 PL1_LIBRARY.CNTL.SA.015 1 SEQ 80 2 PAGE UM TIFFANY JULY 27, 1977 23:56:17 5.0T1 613 0 SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND MTS 'CONTROL' SUBROUTINE. 00233/016 PL1 LIBRARY RAND SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.RAND.SA.016(1) 595 5.0T1 614 PL1_LIBRARY.RAND.SA.016 1 LINE 80 2 PAGE UM TIFFANY JULY 28, 1977 00:03:58 5.0T1 614 0 RANDOM NUMBER GENERATOR 00233/017 PL1 LIBRARY USERID SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.USERID.SA.017(1) 596 5.0T1 615 PL1_LIBRARY.USERID.SA.017 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:00 5.0T1 615 0 RUN TIME SUBR 00233/018 PL1 LIBRARY BATCH SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.BATCH.SA.018(1) 597 5.0T1 616 PL1_LIBRARY.BATCH.SA.018 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:02 5.0T1 616 0 RUN TIME SUBROUTINE TO CALL CANREPLY 00233/019 PL1 LIBRARY ELAPSED SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.ELAPSED.SA.019(1) 598 5.0T1 617 PL1_LIBRARY.ELAPSED.SA.019 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:05 5.0T1 617 0 RUN TIME SUBROUTINE 00233/020 PL1 LIBRARY CPUTIME SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.CPUTIME.SA.020(1) 599 5.0T1 618 PL1_LIBRARY.CPUTIME.SA.020 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:07 5.0T1 618 0 RUN TIME SUBROUTINE 1 MON AUG 05/96 18:37:45 Page 108 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/021 PL1 LIBRARY UN-QSAM SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.UN-QSAM.SA.021(1) 600 5.0T1 619 PL1_LIBRARY.UN-QSAM.SA.021 1 LINE 80 18 PAGE UM TIFFANY JULY 27, 1977 01:52:09 5.0T1 619 0 I/O ROUTINES FOR NON-STANDARD PL/I FILES -- IHEITB 00233/022 PL1 LIBRARY KEY SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.KEY.SA.022(1) 601 5.0T1 620 PL1_LIBRARY.KEY.SA.022 1 SEQ 80 2 PAGE UM TIFFANY JULY 27, 1977 01:52:12 5.0T1 620 0 NEXTKEY AND LASTKEY 00233/023 PL1 LIBRARY ATTACH SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.ATTACH.SA.023(1) 602 5.0T1 621 PL1_LIBRARY.ATTACH.SA.023 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:14 5.0T1 621 0 PROGRAM TO CALL DDEF AT RUN TIME 00233/024 PL1 LIBRARY DISPLAY SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.DISPLAY.SA.024(1) 603 5.0T1 622 PL1_LIBRARY.DISPLAY.SA.024 1 SEQ 80 2 PAGE UM TIFFANY JULY 27, 1977 01:52:16 5.0T1 622 0 REPLACEMENT FOR AN IBM SUBROUTINE. OUTPUT ON SERCOM, INPUT FROM GUSER. 00233/025 PL1 LIBRARY IHEMAIN SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHEMAIN.SA.025(1) 604 5.0T1 623 PL1_LIBRARY.IHEMAIN.SA.025 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:19 5.0T1 623 0 MAIN PROGRAM IF USER DOES NOT GIVE ONE 0 Referenced by comments of: 233/43 00233/026 PL1 LIBRARY IHEOST SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHEOST.SA.026(1) 605 5.0T1 624 PL1_LIBRARY.IHEOST.SA.026 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:21 5.0T1 624 0 GIVES TIME AND DATE. 00233/027 PL1 LIBRARY SIGNOFF SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.SIGNOFF.SA.027(1) 606 5.0T1 625 PL1_LIBRARY.SIGNOFF.SA.027 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:23 5.0T1 625 0 RUN TIME SUBR 00233/028 PL1 LIBRARY SYSERR SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.SYSERR.SA.028(1) 607 5.0T1 626 PL1_LIBRARY.SYSERR.SA.028 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:26 5.0T1 626 0 SYSTEM AND ERROR 1 MON AUG 05/96 18:37:45 Page 109 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/029 PL1 LIBRARY IHELTT SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHELTT.SA.029(1) 608 5.0T1 627 PL1_LIBRARY.IHELTT.SA.029 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:28 5.0T1 627 0 TRANSFER VECTOR TABLE IN *PL1LIB. 00233/030 PL1 LIBRARY IHELTV SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHELTV.SA.030(1) 609 5.0T1 628 PL1_LIBRARY.IHELTV.SA.030 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:30 5.0T1 628 0 TRANSFER VECTOR TABLE IN SHAREDPL1LIB. 00233/031 PL1 LIBRARY IHESAP SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHESAP.SA.031(1) 610 5.0T1 629 PL1_LIBRARY.IHESAP.SA.031 1 LINE 80 8 PAGE UM TIFFANY JULY 27, 1977 01:52:32 5.0T1 629 0 PL/I PROGRAM INITIALIZER. 0 Referenced by comments of: 233/43 00233/032 PL1 LIBRARY FINFO SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.FINFO.SA.032(1) 611 5.0T1 630 PL1_LIBRARY.FINFO.SA.032 1 SEQ 80 4 PAGE UM TIFFANY JULY 27, 1977 01:52:35 5.0T1 630 0 ROUTINE TO GET INFORMATION FOR A PL/I FILE. COPIES SAMEQU (233/2). 00233/033 PL1 LIBRARY READ/WRITE SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.READ/WRITE.SA.033(1) 612 5.0T1 631 PL1_LIBRARY.READ/WRITE.SA.033 1 SEQ 80 5 PAGE UM TIFFANY JULY 27, 1977 01:52:38 5.0T1 631 0 ROUTINES IHEREAD AND IHERITE. 00233/034 PL1 LIBRARY NOTE/POINT SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.NOTE/POINT.SA.034(1) 613 5.0T1 632 PL1_LIBRARY.NOTE/POINT.SA.034 1 SEQ 80 2 PAGE UM TIFFANY JULY 27, 1977 01:52:40 5.0T1 632 0 SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND THE MTS SUBROUTINES 'NOTE' AND 'POINT'. 00233/035 PL1 LIBRARY PLCALL ET AL SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.PLCALL_ET_AL.SA.035(1) 614 5.0T1 633 PL1_LIBRARY.PLCALL_ET_AL.SA.035 1 LINE 80 6 PAGE UM ENGLE MAY 17, 1976 14:28:46 5.0T1 633 0 SUBROUTINES PCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL1 PROGRAM TO CALL SUBROUTINES WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE. THE SUBROUTINES PL1ADR AND PL1RC ARE ALSO ENTRY POINTS TO THIS PROGRAM. 00233/036 PL1 LIBRARY IHEATTN SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHEATTN.SA.036(1) 615 5.0T1 634 PL1_LIBRARY.IHEATTN.SA.036 1 LINE 80 9 PAGE UM TIFFANY JULY 27, 1977 01:52:50 5.0T1 634 0 ASSEMBLE USING *SYSMAC. 1 MON AUG 05/96 18:37:45 Page 110 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/037 PL1 LIBRARY IHEZZZZZ SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.IHEZZZZZ.SA.037(1) 616 5.0T1 635 PL1_LIBRARY.IHEZZZZZ.SA.037 1 LINE 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:52 5.0T1 635 0 A NULL-LENGTH CONTROL SECTION TO BE PLACED AT THE END OF SHAREDPL1LIB FOR THE BENEFIT OF SDS. 00233/038 PL1 LIBRARY CALLPL1 SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.CALLPL1.SA.038(1) 617 5.0T1 636 PL1_LIBRARY.CALLPL1.SA.038 1 LINE 72 10 PAGE UM TIFFANY JULY 27, 1977 01:52:55 5.0T1 636 0 SUBROUTINES PL1SUB, PL1FCN, IPLFCN, PLDFCN, I2FCN, CPXFCN, CDFCN, LGLFCN, LG1FCN, PL1BEG, PL1END, AND IPL1RC WHICH CAN BE USED BY NON-PL1 PROGRAMS TO CALL PL1 PROCEDURES. 0 Referenced by comments of: 233/43 00233/039 PL1 LIBRARY MAXLEN SA G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.MAXLEN.SA.040(1) 619 5.0T1 637 PL1_LIBRARY.MAXLEN.SA.039 1 LINE 80 1 PAGE UM TIFFANY JULY 27, 1977 01:54:07 5.0T1 637 0 MAXLEN OBTAINS THE MAXIMUM LENGTH FOR A GIVEN PL/1 CHARACTER VARYING STRING. 00233/040 PL1 LIBRARY IHEDBNA SA G S1143 D4.1T1 VLO FSNAME=PL1_LIBRARY.IHEDBNA.SA.040(1) 83 5.0T1 638 PL1_LIBRARY.IHEDBNA.SA.040 1 SEQ 80 4 PAGE UM TIFFANY MAY 13, 1978 17:07:38 5.0T1 638 0 THIS REPLACES THE IBM VERSION OF IHEDBNA WHICH CAUSED ADDRESSABILITY INTERRUPTS, ESPECIALLY IN *LINKEDIT WHILE CONVERTING BIT STRINGS TO ARITHMETIC VALUES. 00233/041 PL1 LIBRARY UPDATE UI G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.UPDATE.UI.041(1) 620 5.0T1 639 PL1_LIBRARY.UPDATE.UI.041 1 LINE 73 9 PAGE UM TIFFANY JULY 27, 1977 01:54:11 5.0T1 639 0 *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL1 LIBRARY FROM IBM RELEASE 21.8. THE RESULT OF THIS ASSEMBLY SHOULD BE ASSEMBLED USING THE FOLLOWING MACRO LIBRARIES (IN THE ORDER GIVEN): PL1MACLIB (233/13), MACLIB (233/1), AND *SYSMAC. 00233/042 PL1 LIBRARY ENDPL1LIB OC G S0563 D4T1 VLO FSNAME=PL1_LIBRARY.ENDPL1LIB.OC.042(1) 621 5.0T1 640 PL1_LIBRARY.ENDPL1LIB.OC.042 1 LINE 24 1 PAGE UM TIFFANY JULY 27, 1977 01:54:14 5.0T1 640 0 CONTAINS 5 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD). 00233/043 PL1 LIBRARY *PL1LIB OL G *PL1LIB 5.0T1 641 PL1_LIBRARY.*PL1LIB.OL.043 1 SEQ 2642 3 PAGE UM TIFFANY JULY 03, 1981 12:59:29 5.0T1 641 *PL1LIB 0 NON-REENTRANT PART OF RUN-TIME LIBRARY; THE REMAINDER IS IN SHAREDPL1LIB. NOTE: IHEMAIN (233/25) MUST COME AFTER BOTH IHESAP (233/31) AND CALLPL1 (233/38) IN THE DIR RECORD FOR THIS LIBRARY. 1 MON AUG 05/96 18:37:45 Page 111 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/044 PL1 LIBRARY SHAREDPL1LIB OE G SEG2:SHAREDPL1LIB 5.0T1 642 PL1_LIBRARY.SHAREDPL1LIB.OE.044 1 LINE 256 58 PAGE UM TIFFANY JULY 03, 1981 12:59:30 5.0T1 642 SEG2:SHAREDPL1LIB 0 REENTRANT PART OF RUN-TIME LIBRARY; LOADED INTO SHARED VM AT IPL BY PISTLE. CONTAINS IHEPRD WHICH IS SET UP CORRECTLY BY CRELCSPR (506/2). 00233/045 PL1 LIBRARY UNSP PREAD SA G PREA S1153 UNSP VLO FSNAME=PREAD.S 5.0T1 643 PL1_LIBRARY.UNSP_PREAD.SA.045 1 LINE 80 3 PAGE UM UNSP NOV. 09, 1975 19:29:47 5.0T1 643 0 THE FOLLOWING PROCEDURES CONSTITUTE THE UM "UNSUPPORTED" PL/1 LIBRARY. PREAD ALLOWS THE MTS READ SUBROUTINE TO BE CALLED FROM A PL/1 PROGRAM WITHOUT USING PLCALL. 00233/046 PL1 LIBRARY UNSP PWRITE SA G PWRI S1153 UNSP VLO FSNAME=PWRITE.S 5.0T1 644 PL1_LIBRARY.UNSP_PWRITE.SA.046 1 LINE 80 3 PAGE UM UNSP NOV. 09, 1975 19:29:40 5.0T1 644 0 PWRITE ALLOWS THE MTS WRITE SUBROUTINE TO BE CALLED FROM A PL/1 PROGRAM WITHOUT USING PLCALL. 00233/047 PL1 LIBRARY UNSP SETLEN SA O SETL S1153 UNSP VLO FSNAME=SETLEN.S 5.0T1 645 PL1_LIBRARY.UNSP_SETLEN.SA.047 1 LINE 80 1 PAGE UM UNSP NOV. 09, 1975 19:30:07 5.0T1 645 0 SETLEN RESETS THE LENGTH OF A PL/1 CHARACTER VARYING STRING. 00233/048 PL1 LIBRARY UNSP LIBRARY OL O UNSP:PL1LIB 5.0T1 646 PL1_LIBRARY.UNSP_LIBRARY.OL.048 1 LINE 105 1 PAGE UM UNSP JULY 03, 1981 13:00:51 5.0T1 646 UNSP:PL1LIB 00233/049A PL1 LIBRARY UNSP LIBRARY WF S1153 UNSP VLO FSNAME=PL1LIB.FMT 5.0T1 647 PL1_LIBRARY.UNSP_LIBRARY.WF.049 1 LINE 81 4 PAGE UM UNSP SEP. 15, 1980 16:43:35 5.0T1 647 00234/001 8ASR 8ASRMAC SM G S0563 D4T1 VLO FSNAME=8ASR.8ASRMAC.SM.001(1) 628 5.0T1 648 8ASR.8ASRMAC.SM.001 1 LINE 80 16 PAGE UM LUBBERS JUNE 02, 1976 20:37:42 5.0T1 648 0 MACRO LIBRARY FOR DEC ASSEMBLERS. 0 Referenced by comments of: 234/4, 234/6 00234/002 8ASR 8ASREQU.C SA G S0563 D4T1 VLO FSNAME=8ASR.8ASREQU.C.SA.002(1) 629 5.0T1 649 8ASR.8ASREQU.C.SA.002 1 LINE 80 4 PAGE UM LUBBERS JULY 19, 1977 11:33:37 5.0T1 649 0 COPY SECTION. 0 Referenced by comments of: 234/4, 234/6 1 MON AUG 05/96 18:37:45 Page 112 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00234/003 8ASR 8ASRST.C SA G S0563 D4T1 VLO FSNAME=8ASR.8ASRST.C.SA.003(1) 630 5.0T1 650 8ASR.8ASRST.C.SA.003 1 LINE 80 7 PAGE UM LUBBERS JULY 19, 1977 11:34:01 5.0T1 650 0 COPY SECTION. 0 Referenced by comments of: 234/4, 234/6 00234/004 8ASR MAIN PROGRAM SA G S0563 D4T1 VLO FSNAME=8ASR.MAIN_PROGRAM.SA.004(1) 631 5.0T1 651 8ASR.MAIN_PROGRAM.SA.004 1 LINE 99 33 PAGE UM LUBBERS JULY 19, 1977 11:34:21 5.0T1 651 0 MAIN PROGRAM FOR *8ASR, *9ASR, AND *1ASR. COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1). 0 Referenced by comments of: 234/6 00234/005 8ASR MAIN PROGRAM OC G S0563 D4T1 VLO FSNAME=8ASR.MAIN_PROGRAM.OC.005(1) 632 5.0T1 652 8ASR.MAIN_PROGRAM.OC.005 1 LINE 80 10 PAGE UM LUBBERS JULY 19, 1977 11:34:41 5.0T1 652 0 Referenced by comments of: 234/10, 234/13, 234/18 00234/006 8ASR SUBROUTINES SA G S0563 D4T1 VLO FSNAME=8ASR.SUBROUTINES.SA.006(1) 633 5.0T1 653 8ASR.SUBROUTINES.SA.006 1 LINE 105 10 PAGE UM LUBBERS JUNE 02, 1976 20:41:06 5.0T1 653 0 SUBROUTINES USED BY (234/4). COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1). 00234/007 8ASR SUBROUTINES OC G S0563 D4T1 VLO FSNAME=8ASR.SUBROUTINES.OC.007(1) 634 5.0T1 654 8ASR.SUBROUTINES.OC.007 1 LINE 80 5 PAGE UM LUBBERS JUNE 02, 1976 20:41:13 5.0T1 654 0 Referenced by comments of: 234/10, 234/13, 234/18 00234/008 8ASR PDP-8 OP TBLS SA G S0563 D4T1 VLO FSNAME=8ASR.PDP-8_OP_TBLS.SA.008(1) 635 5.0T1 655 8ASR.PDP-8_OP_TBLS.SA.008 1 LINE 99 4 PAGE UM LUBBERS JUNE 02, 1976 20:41:53 5.0T1 655 0 ASSEMBLY TO DEFINE PDP-8 OPERATION CODES FOR *8ASR. 00234/009 8ASR PDP-8 OP TBLS OC G S0563 D4T1 VLO FSNAME=8ASR.PDP-8_OP_TBLS.OC.009(1) 636 5.0T1 656 8ASR.PDP-8_OP_TBLS.OC.009 1 LINE 80 5 PAGE UM LUBBERS JUNE 02, 1976 20:42:06 5.0T1 656 0 Referenced by comments of: 234/10 00234/010 8ASR *8ASR OE G *8ASR 5.0T1 657 8ASR.*8ASR.OE.010 1 SEQ 11502 7 PAGE UM LUBBERS JULY 03, 1981 13:01:24 5.0T1 657 *8ASR 0 OBJECT CONSISTING OF (234/5) + (234/7) + (234/9). 1 MON AUG 05/96 18:37:45 Page 113 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00234/011 8ASR PDP-9 OP TBLS SA G S0563 D4T1 VLO FSNAME=8ASR.PDP-9_OP_TBLS.SA.011(1) 638 5.0T1 658 8ASR.PDP-9_OP_TBLS.SA.011 1 LINE 99 4 PAGE UM LUBBERS JUNE 02, 1976 20:42:18 5.0T1 658 0 ASSEMBLY TO DEFINE PDP-9 OPERATION CODES FOR *9ASR. 00234/012 8ASR PDP-9 OP TBLS OC G S0563 D4T1 VLO FSNAME=8ASR.PDP-9_OP_TBLS.OC.012(1) 639 5.0T1 659 8ASR.PDP-9_OP_TBLS.OC.012 1 LINE 80 5 PAGE UM LUBBERS JUNE 02, 1976 20:42:26 5.0T1 659 0 Referenced by comments of: 234/13 00234/013 8ASR *9ASR OE G *9ASR 5.0T1 660 8ASR.*9ASR.OE.013 1 SEQ 11502 7 PAGE UM LUBBERS JULY 03, 1981 13:01:26 5.0T1 660 *9ASR 0 OBJECT CONSISTING OF (234/5) + (234/7) + (234/12). 00234/014 8ASR PDP-1 OP TBLS SA G S0563 D4T1 VLO FSNAME=8ASR.PDP-1_OP_TBLS.SA.014(1) 641 5.0T1 661 8ASR.PDP-1_OP_TBLS.SA.014 1 LINE 99 5 PAGE UM LUBBERS JUNE 02, 1976 20:42:35 5.0T1 661 0 ASSEMBLY TO DEFINE PDP-1 OPERATION CODES FOR *1ASR. 00234/015 8ASR PDP-1 OP TBLS OC G S0563 D4T1 VLO FSNAME=8ASR.PDP-1_OP_TBLS.OC.015(1) 642 5.0T1 662 8ASR.PDP-1_OP_TBLS.OC.015 1 LINE 80 6 PAGE UM LUBBERS JUNE 02, 1976 20:42:43 5.0T1 662 0 Referenced by comments of: 234/18 00234/016 8ASR FRIDEN TR TBL SA S0563 D4T1 VLO FSNAME=8ASR.FRIDEN_TR_TBL.SA.016(1) 643 5.0T1 663 8ASR.FRIDEN_TR_TBL.SA.016 1 LINE 99 3 PAGE UM LUBBERS JUNE 02, 1976 20:42:57 5.0T1 663 0 ASSEMBLY TO DEFINE TRANSLATE TABLE FOR FRIDEN TERMINAL USED IN CONNECTION WITH *1ASR. 00234/017 8ASR FRIDEN TR TBL OC S0563 D4T1 VLO FSNAME=8ASR.FRIDEN_TR_TBL.OC.017(1) 644 5.0T1 664 8ASR.FRIDEN_TR_TBL.OC.017 1 LINE 80 3 PAGE UM LUBBERS JUNE 02, 1976 20:43:05 5.0T1 664 0 Referenced by comments of: 234/18 00234/018 8ASR *1ASR OE G *1ASR 5.0T1 665 8ASR.*1ASR.OE.018 1 SEQ 11986 7 PAGE UM LUBBERS JULY 03, 1981 13:01:29 5.0T1 665 *1ASR 0 OBJECT CONSISTING OF (234/5) + (234/7) + (234/15) + (234/17). 00234/019 8ASR OS INTERFACE SA S0563 D4T1 VLO FSNAME=8ASR.OS_INTERFACE.SA.019(1) 646 5.0T1 666 8ASR.OS_INTERFACE.SA.019 1 LINE 80 8 PAGE UM LUBBERS JUNE 29, 1973 21:38.49 5.0T1 666 0 SUBROUTINES TO PROVIDE MTS ENVIRONMENT FOR 8ASR IN OS/360. NOT COMPLETELY CHECKED OUT. OBJECT NOT DISTRIBUTED. ASSEMBLE USING *OSMAC (193) OR USE OS/360. 1 MON AUG 05/96 18:37:45 Page 114 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00234/020 8ASR LINK EDITOR SA G S0563 D4T1 VLO FSNAME=8ASR.LINK_EDITOR.SA.020(1) 647 5.0T1 667 8ASR.LINK_EDITOR.SA.020 1 LINE 80 77 PAGE UM LUBBERS JAN. 07, 1974 16:41.59 5.0T1 667 0 PROGRAM TO LINK-EDIT RELOCATIBLE PDP-8 OBJECT TO PRODUCE LOADABLE FILE OR TAPE. COPIES 8PANEL (234/24). 00234/021 8ASR LINK EDITOR OC G S0563 D4T1 VLO FSNAME=8ASR.LINK_EDITOR.OC.021(1) 648 5.0T1 668 8ASR.LINK_EDITOR.OC.021 1 LINE 80 8 PAGE UM LUBBERS JAN. 07, 1974 16:42.37 5.0T1 668 0 Referenced by comments of: 234/25 00234/022 8ASR PDP8 SIMULATOR SA G S0563 D4T1 VLO FSNAME=8ASR.PDP8_SIMULATOR.SA.022(1) 649 5.0T1 669 8ASR.PDP8_SIMULATOR.SA.022 1 LINE 80 28 PAGE UM LUBBERS JUNE 29, 1973 21:42.44 5.0T1 669 0 PDP-8 SIMULATOR SECTION OF *8LINK. COPIES 8PANEL (234/24). 00234/023 8ASR PDP8 SIMULATOR OC G S0563 D4T1 VLO FSNAME=8ASR.PDP8_SIMULATOR.OC.023(1) 650 5.0T1 670 8ASR.PDP8_SIMULATOR.OC.023 1 LINE 80 2 DISK UM LUBBERS JUNE 29, 1973 21:47.24 5.0T1 670 0 Referenced by comments of: 234/25 00234/024 8ASR 8PANEL SA G S0563 D4T1 VLO FSNAME=8ASR.8PANEL.SA.024(1) 651 5.0T1 671 8ASR.8PANEL.SA.024 1 LINE 80 3 PAGE UM LUBBERS JUNE 29, 1973 21:43.27 5.0T1 671 0 COPY SECTION. 0 Referenced by comments of: 234/20, 234/22 00234/025 8ASR *8LINK OE G *8LINK 5.0T1 672 8ASR.*8LINK.OE.025 1 SEQ 7776 11 PAGE UM LUBBERS JULY 03, 1981 13:01:35 5.0T1 672 *8LINK 0 LINK EDIT OF (234/21) + (234/23). 00234/026 8ASR MEMO 329 WF S0563 D4T1 VLO FSNAME=8ASR.MEMO_329.WF.026(1) 653 5.0T1 673 8ASR.MEMO_329.WF.026 1 LINE 234 32 PAGE UM LUBBERS JAN. 24, 1977 21:23:27 5.0T1 673 0 THIS IS COMPUTING CENTER MEMO 329 -- "*8ASR PDP-8 ASSEMBLER AND *8LINK LINK EDITOR AND LOADER" 00238/001 *2250PLOT SA # (OBSOLETE) D4T1 654 2250PLOT..SA. 1 SEQ 80 4 PAGE UM JULY 31, 1973 21:29.07 00241/001 *TRACK SA # (OBSOLETE) D4T1 655 TRACK..SA. 1 SEQ 80 8 PAGE UM JULY 31, 1973 21:29.51 1 MON AUG 05/96 18:37:45 Page 115 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00243/001 BINEBCD SA G S0563 D4T1 VLO FSNAME=BINEBCD..SA.001(1) 656 5.0T1 674 BINEBCD..SA.001 1 LINE 80 4 PAGE UM MTA JULY 27, 1977 02:04:19 5.0T1 674 0 SUBROUTINE TO CONVERT AN EBCDIC CARD WHICH WAS READ IN COLUMN BINARY BACK TO EBCDIC. CALLED BY *2501RTN (086) AND BY HASP (387). THIS VERSION DOES NO ERROR CHECKING. 0 Referenced by comments of: 86/1 00243/002 BINEBCD OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00243/003 BINEBCD SA G S0563 D4T1 VLO FSNAME=BINEBCD..SA.003(1) 657 5.0T1 675 BINEBCD..SA.003 1 LINE 80 4 PAGE UM MTA JULY 27, 1977 02:04:21 5.0T1 675 0 SAME SUBROUTINE, BUT WITH ERROR CHECKING. OBJECT NOT DISTRIBUTED. 00244/001 **CT # (OBSOLETE) D2T1 138 UM 00249/001 *COPY SA # (OBSOLETE) D4T1 658 COPY..SA.001 1 LINE 80 4 PAGE UM JULY 27, 1977 02:04:23 00251/001 *IEBUPDAT SP O S0563 D4T1 VLO FSNAME=IEBUPDAT..SP.001(1) 660 5.0T1 676 IEBUPDAT..SP.001 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 21:31.45 5.0T1 676 0 A PROGRAM TO COPY TAPES CONTAINING CARD IMAGES CONFORMING TO THE IBM IEBUPDAT OR IEBUPDTE PROGRAMS. THIS PROGRAM WILL MAKE INSERTIONS AND DELETIONS. 00251/002 *IEBUPDAT OC O *IEBUPDAT 5.0T1 677 IEBUPDAT..OC.002 1 LINE 80 5 PAGE UM TIFFANY JULY 03, 1981 13:01:39 5.0T1 677 *IEBUPDAT 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00253/001 LINE DIRECTORY SORT SA # (OBSOLETE) D2T1 121 UM 0 Obsoleted by *VALIDATEFILE (546). 00254/001 BSLOAD SA G # (OBSOLETE) D3.1T1 192 BSLOAD..SA.1 1 LINE 80 26 PAGE UM MAR. 06, 1974 03:34.57 00256/001A STATISTICS COMBINE *CMB C *CMB 5.0T1 678 STATISTICS_COMBINE.*CMB.C.001 1 LINE 31 1 PAGE UM WSG JULY 03, 1981 13:01:40 5.0T1 678 *CMB 0 COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2). INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE. 1 MON AUG 05/96 18:37:45 Page 116 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00256/002 STATISTICS COMBINE COMBINE PGM SA G S1319 D4.2T1 VLO FSNAME=STATISTICS_COMBINE.COMBIN.SA.002(1) 129 5.0T1 679 STATISTICS_COMBINE.COMBIN.SA.002 1 LINE 80 7 PAGE UM WSG OCT. 02, 1978 11:48:07 5.0T1 679 0 PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/1). PROGRAM WILL ASK FOR TAPE DRIVE WHERE OUTPUT TAPE IS MOUNTED, THEN ASK FOR INPUT TAPE DRIVE NAMES. COMBINE PROCESS IS ENDED BY ENTERING "DONE" FOR AN INPUT DRIVE NAME. THIS PROGRAM PRODUCES TAPES WHICH ARE BLOCKED IN A RATHER NON-STANDARD MANNER. HOWEVER, MOST SYSTEM PROGRAMS WHICH READ *STATISTICS DATA, ARE CAPABLE OF DEBLOCKING THESE TAPES. SOURCE IN LINES 1,999. 0 Referenced by comments of: 256/1 00256/003 STATISTICS COMBINE COMBINE PGM OC G SYS:CMB 5.0T1 680 STATISTICS_COMBINE.COMBIN.OC.003 1 LINE 80 2 PAGE UM WSG JULY 03, 1981 13:01:45 5.0T1 680 SYS.:CMB 00257/001 *MOMS OC # (NOT DISTRIBUTED) D3T2 123 MOMS..OC. 1 LINE 255 12 DISK UM FEB. 22, 1973 17:18.51 00258/001 RECEIPT CARDS *RCP C *RCP 5.0T1 681 RECEIPT_CARDS.*RCP.C.001 1 LINE 31 1 PAGE UM DONNELLY JULY 03, 1981 13:01:46 5.0T1 681 *RCP 0 COMMAND FILE TO RUN BATCH RECEIPT (S-8) CARD GENERATOR PROGRAM (258/3). INVOKED BY ENTERING "MTS *RCP" FROM OPERATORS CONSOLE. 00258/002 RECEIPT CARDS RECEIPT PGM SA RECP W035:RCP 5.0T1 682 RECEIPT_CARDS.RECEIPT_PGM.SA.002 1 LINE 80 5 PAGE UM DONNELLY JULY 03, 1981 13:01:46 5.0T1 682 0 PROGRAM TO GENERATE MTS BATCH RECEIPT CARDS. 00258/003 RECEIPT CARDS RECEIPT PGM OC SYS:RCP 5.0T1 683 RECEIPT_CARDS.RECEIPT_PGM.OC.003 1 LINE 80 2 PAGE UM DONNELLY JULY 03, 1981 13:01:47 5.0T1 683 SYS.:RCP 0 Referenced by comments of: 258/1 00259/001 *LIST SA # (OBSOLETE) D2T1 332 UM 00260/001 SSP # (NOT DISTRIBUTED) D3T2 127 UM 00261/001 SLIP SLIP FTN SF G S0563 D4T1 VLO FSNAME=SLIP.*SLIP_FTN.SF.001(1) 668 5.0T1 684 SLIP.SLIP_FTN.SF.001 1 LINE 84 25 PAGE UM MTA DEC. 21, 1975 20:30:52 5.0T1 684 0 SLIP IS A LIBRARY OF FORTRAN-CALLABLE SUBROUTINES FOR LIST PROCESSING. SEE THE DESCRIPTION IN THE CACM V.6, N.9, SEPT/63, PP 524-544. THERE ARE TWO SEPARATE IMPLEMENTATIONS IN MTS: *SLIP IS THE NORMAL DOUBLE-WORD VERSION, "LITTLE SLIP" (UNSP:LSLIPLIB) IS A SINGLE-PRECISION VERSION. 1 MON AUG 05/96 18:37:45 Page 117 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR *SLIP. 00261/002 SLIP SLIP PRIM SA G S0563 D4T1 VLO FSNAME=SLIP.*SLIP_PRIM.SA.002(1) 669 5.0T1 685 SLIP.SLIP_PRIM.SA.002 1 LINE 79 4 PAGE UM MTA MAY 03, 1977 15:46:19 5.0T1 685 0 THIS IS THE ASSEMBLY SOURCE FOR *SLIP PRIMITIVES. CONTAINS MTS COMMANDS AT THE FRONT OF THE FILE FOR ASSEMBLY. 00261/003 SLIP *SLIP OL G *SLIP 5.0T1 686 SLIP.*SLIP.OL.003 1 SEQ 2040 37 PAGE UM MTA JULY 03, 1981 13:01:50 5.0T1 686 *SLIP 00261/004 SLIP *SLIPDEC SF G SDEC *SLIPDEC 5.0T1 687 SLIP.*SLIPDEC.SF.004 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 13:01:52 5.0T1 687 *SLIPDEC 0 THIS IS A SET OF FORTRAN DECLARATIONS FOR ALL SLIP FUNCTIONS. IT IS TO BE USED BY PROGRAMS WHICH CALL THE *SLIP PACKAGE. 00261/005 SLIP LSLIP FTN SF O S1153 UNSP VLO FSNAME=LSLIP.S 5.0T1 688 SLIP.LSLIP_FTN.SF.005 1 LINE 84 30 PAGE UM UNSP JUNE 22, 1976 16:35:26 5.0T1 688 0 THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR THE "LITTLE SLIP" PACKAGE. 0 Referenced by comments of: 261/7 00261/006 SLIP LSLIP LIBRARY OL O UNSP:LSLIPLIB 5.0T1 689 SLIP.LSLIP_LIBRARY.OL.006 1 LINE 946 36 PAGE UM UNSP JULY 03, 1981 13:02:06 5.0T1 689 UNSP:LSLIPLIB 00261/007A SLIP LSLIP LIBRARY P UNSP:LSLIPLIB.W 5.0T1 690 SLIP.LSLIP_LIBRARY.P.007 1 LINE 69 1 PAGE UM UNSP JULY 03, 1981 13:02:09 5.0T1 690 0 A WRITEUP FOR (261/5). 00265/001 *1 SM *1 5.0T1 691 1..SM.001 1 LINE 80 31 PAGE UM SALISBURY JULY 03, 1981 13:02:10 5.0T1 691 *1 0 MACRO LIBRARY FOR LIST PROCESSING IN ASSEMBLY LANGUAGE. SIMILAR TO L6. 00267/001 *DOWNDATE SA O S0563 D4T1 VLO FSNAME=DOWNDATE..SA.001(1) 675 5.0T1 692 DOWNDATE..SA.001 1 LINE 80 9 PAGE UM MTA JULY 27, 1977 02:09:53 5.0T1 692 0 THE INVERSE OF *UPDATE. WILL PRODUCE AN UPDATE DECK FROM TWO SOURCE TAPES. CALLS SCANPAR SUBROUTINE (267/3). 0 Referenced by comments of: 267/3 1 MON AUG 05/96 18:37:45 Page 118 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00267/002 *DOWNDATE OE O *DOWNDATE 5.0T1 693 DOWNDATE..OE.002 1 LINE 2626 2 PAGE UM MTA JULY 03, 1981 13:02:15 5.0T1 693 *DOWNDATE 0 INCLUDES SCANPAR (267/3) OBJECT. 0 Referenced by comments of: 267/4 00267/003 *DOWNDATE SCANPAR SA S0563 D4T1 VLO FSNAME=DOWNDATE.SCANPAR.SA.003(1) 677 5.0T1 694 DOWNDATE.SCANPAR.SA.003 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 02:09:57 5.0T1 694 0 SUBROUTINE CALLED BY DOWNDATE (267/1) AND UNEDIT (561/1) TO SCAN PARAMETERS. 0 Referenced by comments of: 267/1, 267/2, 561/1 00267/004 *DOWNDATE SCANPAR OC # (PART OF *DOWNDATE) D4T1 678 DOWNDATE.SCANPAR.OC.004 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 02:09:59 D4T2 191 0 Part of *DOWNDATE (267/2). 00268/001 @TESTITP S # (OBSOLETE) D2T1 421 UM 00270/001A DISMOUNT SUBR SA G TAPE:DISMOUNT.S 5.0T1 695 DISMOUNT_SUBR..SA.001 1 LINE 70 3 PAGE UM SHERRY JULY 03, 1981 13:02:16 5.0T1 695 0 This subroutine produces $RELEASE commands which are passed to CMDNOE for processing. 00270/002A DISMOUNT SUBR OC G SEG2:DISMOUNT 5.0T1 696 DISMOUNT_SUBR..OC.002 1 LINE 741 1 PAGE UM SHERRY JULY 03, 1981 13:02:17 5.0T1 696 SEG2:DISMOUNT 0 ***************************************************************************** D5.0 version: The object for the DISMOUNT subroutine, which formerly resided in *CLSMOUNT (101/2), has been moved to the file SEG2:DISMOUNT because it cannot be loaded with the IPLCS option. ***************************************************************************** 00271/001 MOUNT SUBR # (OBSOLETE) 680 D4T1 680 MOUNT_SUBR..SA.001 1 LINE 80 3 PAGE UM DEC. 01, 1976 12:50:44 0 Now part of the MOUNT command (101). 1 MON AUG 05/96 18:37:45 Page 119 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00273/001 FPC SA G S0563 D4T1 VLO FSNAME=FPC..SA.001(1) 681 5.0T1 697 FPC..SA.001 1 LINE 80 6 PAGE UM WSG JULY 31, 1973 21:33.40 5.0T1 697 0 SUBROUTINES E7090, D7090, E7090P, D7090P TO CONVERT IBM 7090 SERIES FLOATING POINT NUMBERS TO SYSTEM/360 LONG AND SHORT FORM. 00273/002 FPC OC G # (PART OF *LIBRARY) UM WSG 0 Object part of *LIBRARY (524/1) 00274/001 GLINT S # (NOT DISTRIBUTED) D2T1 395 UM 00275/001 BITWISE LOGIC - IHCLOGIC SA G S0563 D4T1 VLO FSNAME=BITWISE_LOGIC_-_IHCLOGIC..SA.001(1) 682 5.0T1 698 BITWISE_LOGIC_-_IHCLOGIC..SA.001 1 LINE 80 4 PAGE UM TIFFANY SEP. 15, 1977 18:53:12 5.0T1 698 0 SUBROUTINES AND, LAND, OR, LOR, XOR, LXOR, COMPL, LCOMPL, SHFTL, AND SHFTR USED FOR LOGICAL OPERATIONS IN FORTRAN. 00275/002 BITWISE LOGIC - IHCLOGIC OC G # (PART OF *LIBRARY) UM TIFFANY 0 Object part of *LIBRARY (524/1) 00278/001 IOH SA G S1143 D4.1T1 VLO FSNAME=IOH..SA.001(1) 85 5.0T1 699 IOH..SA.001 1 LINE 80 153 PAGE UM SWARTZ MAY 13, 1978 17:07:43 5.0T1 699 0 I/O CONVERSION PACKAGE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 387/23, 400/1 00278/002 IOH OC G S1143 D4.1T1 VLO FSNAME=IOH..OC.002(1) 86 5.0T1 700 IOH..OC.002 1 LINE 80 21 PAGE UM SWARTZ MAY 13, 1978 17:08:15 5.0T1 700 0 OBJECT IS ALSO IN *LIBRARY (524) -- MAY NOT BE EXACTLY THE SAME VERSION. 00278/003 IOH IOPKG SA G S1143 D4.1T1 VLO FSNAME=IOH.IOPKG.SA.003(1) 87 5.0T1 701 IOH.IOPKG.SA.003 1 LINE 68 5 PAGE UM SWARTZ MAY 13, 1978 17:08:19 5.0T1 701 0 COPIES *GDINFODSECT (594). 00278/004 IOH IOPKG OC G S1143 D4.1T1 VLO FSNAME=IOH.IOPKG.OC.004(1) 88 5.0T1 702 IOH.IOPKG.OC.004 1 LINE 80 3 PAGE UM SWARTZ MAY 13, 1978 17:08:22 5.0T1 702 0 OBJECT IS ALSO IN *LIBRARY (524). 1 MON AUG 05/96 18:37:45 Page 120 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00278/005 IOH TEST PGM SA G S0563 D4T1 VLO FSNAME=IOH.TEST_PGM.SA.005(1) 687 5.0T1 703 IOH.TEST_PGM.SA.005 1 LINE 80 11 PAGE UM SWARTZ JULY 27, 1977 02:10:39 5.0T1 703 0 PROGRAM TO TEST IOH. 00278/006 IOH TEST PGM OC G S0563 D4T1 VLO FSNAME=IOH.TEST_PGM.OC.006(1) 688 5.0T1 704 IOH.TEST_PGM.OC.006 1 LINE 80 10 PAGE UM SWARTZ JULY 27, 1977 02:10:41 5.0T1 704 00278/007 IOH IOHDBLIN SA S0563 D4T1 VLO FSNAME=IOH.IOHDBLIN.SA.007(1) 689 5.0T1 705 IOH.IOHDBLIN.SA.007 1 LINE 74 7 PAGE UM SWARTZ JULY 27, 1977 02:10:43 5.0T1 705 00278/008 IOH IOHDBLIN OE ETC:IOHDBLIN 5.0T1 706 IOH.IOHDBLIN.OE.008 1 SEQ 2530 1 PAGE UM SWARTZ JULY 03, 1981 13:02:28 5.0T1 706 ETC.:IOHDBLIN 00278/009 IOH IOHDBLOUT SA S0563 D4T1 VLO FSNAME=IOH.IOHDBLOUT.SA.009(1) 691 5.0T1 707 IOH.IOHDBLOUT.SA.009 1 LINE 73 5 PAGE UM SWARTZ JULY 27, 1977 02:10:48 5.0T1 707 00278/010 IOH IOHDBLOUT OE ETC:IOHDBLOUT 5.0T1 708 IOH.IOHDBLOUT.OE.010 1 SEQ 1363 1 PAGE UM SWARTZ JULY 03, 1981 13:02:30 5.0T1 708 ETC.:IOHDBLOUT 00278/011 IOH IOHEVAL SA S1143 D4.1T1 VLO FSNAME=IOH.IOHEVAL.SA.011(1) 89 5.0T1 709 IOH.IOHEVAL.SA.011 1 LINE 65 2 PAGE UM SWARTZ MAY 13, 1978 17:08:24 5.0T1 709 00278/012 IOH IOHEVAL OC ETC:IOHEVAL 5.0T1 710 IOH.IOHEVAL.OC.012 1 SEQ 80 1 PAGE UM SWARTZ JULY 03, 1981 13:02:32 5.0T1 710 ETC.:IOHEVAL 00279/001 LINPG SUBR # (NOT DISTRIBUTED) D2T1 396 UM 00282/001 PRINTER PLOT SUBR SA G S1011 ETC 'MISC' FSNAME=PTRPLOT 5.0T1 711 PRINTER_PLOT_SUBR..SA.001 1 LINE 69 21 PAGE UM LIFT FEB. 23, 1979 11:28:04 5.0T1 711 0 COPIES "PLOTDS" (282/2). ASSEMBLE WITH PAR=BATCH. 0 Referenced by comments of: 133/1, 282/2 00282/002 PRINTER PLOT SUBR COPY SECTION SA G S1011 ETC 'MISC' FSNAME=PTRPLOTD4DS 5.0T1 712 PRINTER_PLOT_SUBR.COPY_SE.SA.002 1 LINE 69 3 PAGE UM LIFT APR. 06, 1977 18:45:48 5.0T1 712 0 "PLOTDS" COPY SECTION COPIED BY (282/1). 0 Referenced by comments of: 282/1 1 MON AUG 05/96 18:37:45 Page 121 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00282/003 PRINTER PLOT SUBR OC G # (PART OF *LIBRARY) UM LIFT 0 Object part of *LIBRARY (524/1) 00283/001A BLOCKED I/O - QSAM SA G W116:QSAM.S 697 5.0T1 713 BLOCKED_I/O_-_QSAM..SA.001 1 LINE 80 20 PAGE UM H YOUNG JULY 03, 1981 13:02:42 5.0T1 713 0 LIBRARY SUBROUTINES TO PERFORM FIXED BLOCKING (FORMAT FB) ON FILES, TAPES, ETC. ENTRY POINTS: QGETUCB (QGTUCB), QOPEN, QGET, QPUT, QCLOSE, QCNTRL, AND QFREEUCB (QFRUCB). COPIES *GDINFODSECT (594). 0 Referenced by comments of: 137/1 00283/002A BLOCKED I/O - QSAM OC G # (PART OF *LIBRARY) UM H YOUNG 0 Object part of *LIBRARY (524/1) 00285/001 SKIP SUBR SA G S1143 D4.1T1 VLO FSNAME=SKIP_SUBR..SA.001(1) 91 5.0T1 714 SKIP_SUBR..SA.001 1 LINE 80 5 PAGE UM WSG MAY 02, 1978 23:41:03 5.0T1 714 0 SUBR TO SPACE A FILE OR MAG TAPE FORWARD OR BACKWARD BY RECORDS AND/OR FILES. SOURCE IN LINES 1,999. 00285/002 SKIP SUBR OC G # (PART OF *LIBRARY) UM WSG 0 Object part of *LIBRARY (524/1) 00286/001 MATH SUBRS # (NOT DISTRIBUTED) D2T1 389 UM 00287/001 SPIE SUBR SA G S0563 D4T1 VLO FSNAME=SPIE_SUBR..SA.001(1) 699 5.0T1 715 SPIE_SUBR..SA.001 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 02:12:55 5.0T1 715 0 SUBROUTINE TO INTERFACE OS/360 'SPIE' MACRO WITH MTS 'PGNTTRP' SUBROUTINE. 00287/002 SPIE SUBR OC G # (PART OF *LIBRARY) UM MTA 0 Object part of *LIBRARY (524/1) 00291/001A *IEHMOVE SA G SCAN W062:IEHMOVE.S 5.0T1 716 IEHMOVE..SA.001 1 LINE 80 32 PAGE UM TIFFANY JULY 03, 1981 13:02:50 5.0T1 716 0 PROGRAM TO READ UNLOADED OS/360 DATA SETS IN MTS. SEE ALSO *UNLINKER (562). CALLS THE BLKRTN SUBROUTINE (562/2) TO READ OS/VS IEBCOPY OR IEHMOVE TAPES. ASSEMBLE WITH PEXIT=*PEXIT (775). COPIES *GDINFODSECT (594) and *SENSEDSECT (3025). 1 MON AUG 05/96 18:37:45 Page 122 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ********************************************************************************* D5.0 CHANGES: 1) Supports VSS (1078) parameter to build VSS-type libraries. 2) Bad blocks are quickly detected (e.g., FB-formatted blocks with VB-record format specified). ********************************************************************************* 0 Referenced by comments of: 823/9, 824/3, 824/6 00291/002A *IEHMOVE OE G NEW:IEHMOVE 5.0T1 717 IEHMOVE..OE.002 1 LINE 7960 11 PAGE UM TIFFANY JULY 03, 1981 13:02:58 5.0T1 717 *IEHMOVE 00293/001 *MACGEN SA G S0563 D4T1 VLO FSNAME=MACGEN..SA.001(1) 702 5.0T1 718 MACGEN..SA.001 1 LINE 80 3 PAGE UM HELFFRICH JULY 27, 1977 02:13:02 5.0T1 718 0 GENERATE THE DIRECTORY FOR A MACRO LIBRARY. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 648/16 00293/002 *MACGEN OE G *MACGEN 5.0T1 719 MACGEN..OE.002 1 SEQ 658 1 PAGE UM HELFFRICH JULY 03, 1981 13:03:00 5.0T1 719 *MACGEN 00296/001 CHECKDASD SA # (OBSOLETE) D2T1 119 UM 00297/001 *LINKEDIT LKEDCMD SP G W052:LINK.CMD.S 5.0T1 720 LINKEDIT.LKEDCMD.SP.001 1 LINE 99 33 PAGE UM SHERRY JULY 03, 1981 13:03:01 5.0T2 1 0 MTS LINKAGE EDITOR MAIN PROGRAM - COMMAND PROCESSOR. CONTAINS A "$CONTINUE WITH W052:LINK.COM" (297/6) RECORD. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 0 Referenced by comments of: 98/1, 297/15, 706/13, 813/15, 1000/11 00297/002 *LINKEDIT INCLUDE SP G S1430 4.3T1 VLO FSNAME=LINKEDIT.INCLUDE.SP.002(1) 151 5.0T1 721 LINKEDIT.INCLUDE.SP.002 1 LINE 100 17 PAGE UM SHERRY APR. 05, 1980 14:21:51 5.0T2 2 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/003 *LINKEDIT PUNCH SP G S0563 D4T1 VLO FSNAME=LINKEDIT.PUNCH.SP.003(1) 706 5.0T1 722 LINKEDIT.PUNCH.SP.003 1 LINE 100 7 PAGE UM SHERRY JULY 27, 1977 02:13:20 5.0T2 3 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 1 MON AUG 05/96 18:37:45 Page 123 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00297/004 *LINKEDIT COMBINE SP G S0563 D4T1 VLO FSNAME=LINKEDIT.COMBINE.SP.004(1) 707 5.0T1 723 LINKEDIT.COMBINE.SP.004 1 LINE 100 10 PAGE UM SHERRY JULY 27, 1977 02:13:22 5.0T2 4 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/005 *LINKEDIT SUBR SP G S0563 D4T1 VLO FSNAME=LINKEDIT.SUBR.SP.005(1) 708 5.0T1 724 LINKEDIT.SUBR.SP.005 1 LINE 99 5 PAGE UM SHERRY JULY 27, 1977 02:13:25 5.0T2 5 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/006 *LINKEDIT LINK.COM SP G S1430 4.3T1 VLO FSNAME=LINKEDIT.LINK.COM.SP.006(1) 152 5.0T1 725 LINKEDIT.LINK.COM.SP.006 1 LINE 100 6 PAGE UM SHERRY APR. 05, 1980 14:21:54 5.0T2 6 0 COPY SECTION REQUIRED TO COMPILE THE INDIVIDUAL ROUTINES. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 0 Referenced by comments of: 297/1, 297/2, 297/3, 297/4, 297/5, 297/8, 297/9, 297/10, 297/11, 297/12, 297/14, 297/15 00297/007 *LINKEDIT ASMSUBR SA G S0563 D4T1 VLO FSNAME=LINKEDIT.ASMSUBR.SA.007(1) 710 5.0T1 726 LINKEDIT.ASMSUBR.SA.007 1 LINE 71 3 PAGE UM SHERRY JULY 27, 1977 02:13:29 5.0T2 7 0 ASMG SUBROUTINES. 00297/008 *LINKEDIT DUMP SP G S0563 D4T1 VLO FSNAME=LINKEDIT.DUMP.SP.008(1) 711 5.0T1 727 LINKEDIT.DUMP.SP.008 1 LINE 92 4 PAGE UM SHERRY JULY 27, 1977 02:13:31 5.0T2 8 0 SUBROUTINE TO PRODUCE ERROR DUMPS. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/009 *LINKEDIT UTIL SP G S1430 4.3T1 VLO FSNAME=LINKEDIT.UTIL.SP.009(1) 153 5.0T1 728 LINKEDIT.UTIL.SP.009 1 LINE 88 3 PAGE UM SHERRY APR. 05, 1980 14:21:56 5.0T2 9 0 MISCELLANEOUS UTILITY SUBROUTINES. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/010 *LINKEDIT UNLK SP G S0563 D4T1 VLO FSNAME=LINKEDIT.UNLK.SP.010(1) 713 5.0T1 729 LINKEDIT.UNLK.SP.010 1 LINE 100 6 PAGE UM SHERRY JULY 27, 1977 02:13:36 5.0T2 10 0 SUBROUTINE TO UNLINK MULTIPLE-CSECT MODULES. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 1 MON AUG 05/96 18:37:45 Page 124 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00297/011 *LINKEDIT PURGE SP G S0563 D4T1 VLO FSNAME=LINKEDIT.PURGE.SP.012(1) 715 5.0T1 730 LINKEDIT.PURGE.SP.011 1 LINE 91 3 PAGE UM SHERRY JULY 27, 1977 02:13:40 5.0T2 11 0 SUBROUTINE TO IMPLEMENT PURGE AND REPLACE (UPDATE) COMMANDS. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/012 *LINKEDIT XMAL SP G S0563 D4T1 VLO FSNAME=LINKEDIT.XMAL.SP.013(1) 716 5.0T1 731 LINKEDIT.XMAL.SP.012 1 LINE 96 8 PAGE UM SHERRY JULY 27, 1977 02:13:42 5.0T2 12 0 SUBROUTINE TO IMPLEMENT XREF, MAP, ATTRIBUTE, AND LIST COMMANDS. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/013 *LINKEDIT IOCVT SA G W052:LINK.IOCVT.S 5.0T1 732 LINKEDIT.IOCVT.SA.013 1 LINE 72 18 PAGE UM SHERRY JULY 03, 1981 13:03:22 5.0T2 13 0 ROUTINES TO DO I/O CONVERSIONS, TEXT MODIFICATION, AND SCANNING; USED BY DISPLAY, SCAN, AND MODIFY COMMANDS. ASSEMBLE USING *SYSMAC. 00297/014 *LINKEDIT IOSUB SP G W052:LINK.IOSUB.S 5.0T1 733 LINKEDIT.IOSUB.SP.014 1 LINE 91 3 PAGE UM SHERRY JULY 03, 1981 13:03:26 5.0T2 14 0 SUBROUTINE USED BY DISPLAY, SCAN, AND MODIFY COMMANDS. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/015 *LINKEDIT LINK.CMD.GEN C W052:LINK.CMD.G 5.0T1 734 LINKEDIT.LINK.CMD.GEN.C.015 1 LINE 106 1 PAGE UM SHERRY JULY 03, 1981 13:03:27 5.0T2 15 0 THIS IS AN MTS COMMAND SOURCE FILE TO RECOMPILE LINK.CMD.S (297/1). LINE NUMBERS IN THIS FILE ARE IMPORTANT. THIS FILE CONTAINS SOME $EDIT COMMANDS TO SET THE VERSION DATE IN W052:LINK.COM (297/6) BEFORE COMPILING. 00297/016 *LINKEDIT LINKLOAD OC G S1430 4.3T1 VLO FSNAME=LINKEDIT.LINKLOAD.OC.017(1) 154 5.0T1 735 LINKEDIT.LINKLOAD.OC.016 1 LINE 32767 121 PAGE UM SHERRY APR. 05, 1980 14:21:59 5.0T2 16 0 UNLINKEDITED OBJECT FOR LINKAGE EDITOR. THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT. 00297/017 *LINKEDIT LINKEDIT.G C S0563 D4T1 VLO FSNAME=LINKEDIT.LINKEDIT.G.C.018(1) 721 5.0T1 736 LINKEDIT.LINKEDIT.G.C.017 1 LINE 34 1 PAGE UM SHERRY JULY 27, 1977 02:13:54 5.0T2 17 0 THIS FILE CONTAINS ALL THE MTS AND *LINKEDIT COMMANDS NECESSARY TO LINKEDIT THE UNLINKEDITED VERSION OF THE LINKAGE EDITOR (297/17). THE *LINKEDIT COMMAND "RENAME IHESAPC IHESAPE" IS IMPORTANT SO THAT THE PAR= FIELD ON A 1 MON AUG 05/96 18:37:45 Page 125 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 $RUN *LINKEDIT COMMAND WON'T BE INTERCEPTED BY THE PL1 ENVIRONMENT. 0 Referenced by comments of: 297/17 00297/018 *LINKEDIT OBJECT OE G *LINKEDIT 5.0T1 737 LINKEDIT.OBJECT.OE.018 1 SEQ 32767 71 PAGE UM SHERRY JULY 03, 1981 13:03:31 5.0T2 18 *LINKEDIT 0 THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT. 00298/001 *FORTRANH ASM SOU SA G S1319 D4.2T1 VLO FSNAME=FORTRANH.ASM_SOU.SA.001(1) 140 5.0T1 738 FORTRANH.ASM_SOU.SA.001 1 LINE 80 282 PAGE UM HANSEN FEB. 04, 1979 13:57:59 5.0T2 19 0 SOURCE FOR ASSEMBLER MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND UNIVERSITY OF ROCHESTER VERSIONS. ASSEMBLE USING (298/7) MACRO LIBRARY. 0 Referenced by comments of: 298/5, 298/7, 551/1, 666/1, 668/1 00298/002 *FORTRANH FORTRAN SOU SF G S1319 D4.2T1 VLO FSNAME=FORTRANH.FORTRAN_SOU.SF.002(1) 141 5.0T1 739 FORTRANH.FORTRAN_SOU.SF.002 1 LINE 80 129 PAGE UM HANSEN NOV. 14, 1978 17:50:31 5.0T2 20 0 SOURCE FOR FORTRAN MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND UNIVERSITY OF ROCHESTER VERSIONS. 0 Referenced by comments of: 298/5 00298/003 *FORTRANH ROCHESTER SOU S G S1319 D4.2T1 VLO FSNAME=FORTRANH.ROCHESTER_SOU.S.003(1) 142 5.0T1 740 FORTRANH.ROCHESTER_SOU.S.003 1 LINE 80 93 PAGE UM HANSEN DEC. 01, 1978 12:43:27 5.0T2 21 0 SOURCE (ASSEMBLER AND FORTRAN) FOR THE MODULES FROM THE UNIVERSITY OF ROCHESTER. 0 Referenced by comments of: 298/5 00298/004 *FORTRANH OS SOURCE S O S1319 D4.2T1 VLO FSNAME=FORTRANH.OS_SOURCE.S.004(1) 143 5.0T1 741 FORTRANH.OS_SOURCE.S.004 1 SEQ 80 1263 PAGE UM HANSEN MAR. 26, 1979 02:37:25 5.0T2 22 0 SOURCE MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS (RELEASE 20.1). NO PTF'S ARE INCLUDED IN THIS FILE. 0 Referenced by comments of: 298/5 00298/005 *FORTRANH OBJECT OC G S1319 D4.2T1 VLO FSNAME=FORTRANH.OBJECT.OC.005(1) 144 5.0T1 742 FORTRANH.OBJECT.OC.005 1 LINE 22909 139 PAGE UM HANSEN MAR. 02, 1979 12:04:06 5.0T2 23 0 COMPLETE, UN-LINKEDITED FORTRAN H COMPILER, CONSISTING OF OBJECT FOR (298/1), (298/2), (298/3), AND (298/4). 1 MON AUG 05/96 18:37:45 Page 126 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 298/6 00298/006 *FORTRANH *FORTRANH OE G *FORTRANH 5.0T1 743 FORTRANH.*FORTRANH.OE.006 1 LINE 32767 102 PAGE UM HANSEN JULY 03, 1981 13:04:21 5.0T2 24 *FORTRANH 0 LINKEDITED VERSION OF (298/5). 00298/007 *FORTRANH MACLIB SM G S1319 D4.2T1 VLO FSNAME=FORTRANH.MACLIB.SM.007(1) 146 5.0T1 744 FORTRANH.MACLIB.SM.007 1 LINE 72 3 PAGE UM HANSEN NOV. 14, 1978 18:00:46 5.0T2 25 0 MACRO LIBRARY USED BY (298/1). 0 Referenced by comments of: 298/1 00299/001 *LOVOC S # (OBSOLETE) D2T2 205 UM 00300/001 *LODEF S # (OBSOLETE) D2T2 206 UM 00302/001 *SSPSOURCE SF G # (NOT DISTRIBUTED) D3T2 167 SSPSOURCE..SF.1 1 LINE 80 5 PAGE UM FEB. 17, 1972 13:31.13 00303/001A SORT SORT PGM SA G SORT S0027 DISTRB FSNAME=SORT 5.0T1 745 SORT.SORT_PGM.SA.001 1 LINE 80 91 PAGE UM ENGLE AUG. 25, 1981 13:02:30 5.0T2 26 0 GENERAL SORT PROGRAM. COPIES *CNFGINFODSECT (654). ASSEMBLE AS FOLLOWS FOR THE TWO VERSIONS: &SUB SETB 0 FOR *SORT VERSION (303/4). &SUB SETB 1 FOR SORT SUBROUTINE VERSION (303/5). NOTE: OTHER VALUES FOR MBYI AND MBYT MAY BE MORE APPROPRIATE FOR MACHINES OTHER THAN THE AMDAHL 470V/7 OR WITH A RATE STRUCTURE OTHER THAN ONE FOR WHICH THE COST OF 1 CPU SECOND EQUALS THE COST OF 200 VMI PAGE-SECONDS (AS AT UM). 0 Referenced by comments of: 584/1 00303/002A SORT SORT PGM UC G S0027 DISTRB FSNAME=SORTUPDATE 5.0T1 746 SORT.SORT_PGM.UC.002 1 LINE 72 7 PAGE UM ENGLE AUG. 25, 1981 13:02:44 5.0T2 27 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 1 MON AUG 05/96 18:37:45 Page 127 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00303/003A SORT *SORT OC G S0027 DISTRB FSNAME=SRT 5.0T1 747 SORT.?SORT.OC.003 1 LINE 80 11 PAGE UM ENGLE AUG. 25, 1981 13:02:37 5.0T2 28 0 Referenced by comments of: 303/4 00303/004A SORT *SORT OE G DIST:D5.0SORT 5.0T1 748 SORT.?SORT.OE.004 1 LINE 7652 5 PAGE UM ENGLE AUG. 28, 1981 02:25:41 5.0T2 29 *SORT 0 LINKEDITED COMBINATION OF (303/3) AND *LCS (164). 0 Referenced by comments of: 303/1, 449/1 00303/005A SORT SORT SUBR OC G S0027 DISTRB FSNAME=SRT1 5.0T1 749 SORT.SORT_SUBR.OC.005 1 LINE 80 11 PAGE UM ENGLE AUG. 25, 1981 13:02:40 5.0T2 30 0 Referenced by comments of: 303/1, 1030/1 00303/006A SORT SORT2/3/4 SUBR SA G SRT2 S0027 DISTRB FSNAME=SORT2 5.0T1 750 SORT.SORT2/3/4_SUBR.SA.006 1 LINE 80 38 PAGE UM ENGLE APR. 17, 1981 17:56:51 5.0T2 31 0 SORT2 IS A SUBROUTINE TO SORT AN ARRAY IN VM. SORT3 IS A SUBROUTINE TO SORT AN ARRAY IN VM INCLUDING A "TAGGED" ARRAY. SORT4 IS A SUBROUTINE TO SORT AN ARRAY OF ADDRESSES BASED ON THE DATA TO WHICH THE ADDRESSES REFER. COPIES *CNFGINFODSECT (654). 00303/007A SORT SORT2/3/4 SUBR UC G S0027 DISTRB FSNAME=SORT2UPDATE 5.0T1 751 SORT.SORT2/3/4_SUBR.UC.007 1 LINE 72 3 PAGE UM ENGLE APR. 17, 1981 17:57:07 5.0T2 32 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00303/008A SORT SORT2/3/4 SUBR OC G S0027 DISTRB FSNAME=SRT2 5.0T1 752 SORT.SORT2/3/4_SUBR.OC.008 1 LINE 80 5 PAGE UM ENGLE APR. 17, 1981 17:57:12 5.0T2 33 00303/009A SORT MESSAGE SA G MSG S0027 DISTRB FSNAME=MESSAGE 5.0T1 753 SORT.MESSAGE.SA.009 1 LINE 80 4 PAGE UM ENGLE MAR. 06, 1981 16:37:04 5.0T2 34 0 MODULE TO PRINT SORT ERROR MESSAGES (303/12). 0 Referenced by comments of: 303/16 00303/010C SORT MESSAGE UC G S0027 DISTRB FSNAME=MESSAGEUPDATE 5.0T1 754 SORT.MESSAGE.UC.010 1 LINE 72 1 PAGE UM ENGLE MAR. 06, 1981 16:37:32 5.0T2 35 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 1 MON AUG 05/96 18:37:45 Page 128 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00303/011A SORT MESSAGE OE G S0027 DISTRB FSNAME=MSG 5.0T1 755 SORT.MESSAGE.OE.011 1 LINE 80 1 PAGE UM ENGLE MAR. 06, 1981 16:37:45 5.0T2 36 00303/012A SORT MESSAGES M S0027 DISTRB FSNAME=SORTMESSAGES 5.0T1 756 SORT.MESSAGES.M.012 1 LINE 81 3 PAGE UM ENGLE MAR. 07, 1981 14:45:40 5.0T2 37 0 SORT ERROR MESSAGES. NOTE: LINE NUMBERS ARE IMPORTANT IN THIS FILE. 0 Referenced by comments of: 303/9, 303/16 00303/013 SORT CHECK SA G S0563 D4T1 VLO FSNAME=SORT.CHECK.SA.009(1) 741 5.0T1 757 SORT.CHECK.SA.013 1 LINE 80 8 PAGE UM ENGLE JULY 08, 1976 14:36:37 5.0T2 38 0 MODULE TO IMPLEMENT THE SORT "CHK" PARAMETER. 0 Referenced by comments of: 303/16 00303/014 SORT CHECK OE G S0563 D4T1 VLO FSNAME=SORT.CHECK.OE.010(1) 742 5.0T1 758 SORT.CHECK.OE.014 1 LINE 80 2 PAGE UM ENGLE JULY 08, 1976 14:36:44 5.0T2 39 00303/015A SORT DOC WT S0027 DISTRB FSNAME=SORTWRITEUP 5.0T1 759 SORT.DOC.WT.015 1 LINE 256 52 PAGE UM ENGLE AUG. 13, 1980 13:49:41 5.0T2 40 0 TEXT/360 MASTER FOR MTS VOLUME 5 SORT WRITEUP. 00303/016A SORT *SORTLM OE G *SORTLM 5.0T1 760 SORT.*SORTLM.OE.016 1 LINE 2753 4 PAGE UM ENGLE JULY 03, 1981 13:05:53 5.0T2 41 *SORTLM 0 FILE CONTAINING ERROR MESSAGE PROGRAM (303/9), MESSAGES (303/12), CHECK ROUTINE (303/13), AND TAPESORT (303/23). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00303/017 SORT SRTTMTST SA G S0563 D4T1 VLO FSNAME=SORT.SRTTMTST.SA.013(1) 745 5.0T1 761 SORT.SRTTMTST.SA.017 1 LINE 80 4 PAGE UM ENGLE JAN. 24, 1977 16:01:14 5.0T2 42 0 MAIN PROGRAM TO PRODUCE CPU AND VMI TIMING RESULTS WHEN LOADED WITH *SORT. 00303/018 SORT SRTTMTST OC G S0563 D4T1 VLO FSNAME=SORT.SRTTMTST.OC.014(1) 746 5.0T1 762 SORT.SRTTMTST.OC.018 1 LINE 80 1 PAGE UM ENGLE JAN. 24, 1977 16:02:11 5.0T2 43 00303/019 SORT SORTPLOT SF G S0563 D4T1 VLO FSNAME=SORT.SORTPLOT.SF.015(1) 747 5.0T1 763 SORT.SORTPLOT.SF.019 1 LINE 80 7 PAGE UM ENGLE MAY 18, 1976 11:19:41 5.0T2 44 0 PROGRAM TO GENERATE CALCOMP TIMING PLOTS FOR THE SORT WRITEUP. INTERNAL STATEMENT NUMBER 87 SHOULD BE SKIPPED TO ELIMINATE THE 1 MON AUG 05/96 18:37:45 Page 129 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PLOTTING OF DATA POINTS. 00303/020 SORT SORTPLOT OC G S0563 D4T1 VLO FSNAME=SORT.SORTPLOT.OC.016(1) 748 5.0T1 764 SORT.SORTPLOT.OC.020 1 LINE 3500 4 PAGE UM ENGLE MAY 18, 1976 11:23:17 5.0T2 45 00303/021 SORT SORTPLOT D G S1430 4.3T1 VLO FSNAME=SORT.SORTPLOT.D.020(1) 167 5.0T1 765 SORT.SORTPLOT.D.021 1 LINE 28 3 PAGE UM ENGLE FEB. 20, 1980 12:55:36 5.0T2 46 0 DATA FOR SORT TIMING PLOTS, MEASURED ON AMDAHL 470V/7. 00303/022 SORT SORTPLOT D G S1430 4.3T1 VLO FSNAME=SORT.SORTPLOT.D.021(1) 168 5.0T1 766 SORT.SORTPLOT.D.022 1 LINE 3670 35 PAGE UM ENGLE FEB. 20, 1980 12:55:45 5.0T2 47 0 CALCOMP PLOT FILE FOR SORT TIMING PLOTS IN SORT WRITEUP. CONTAINS PPEN RECORDS FOR MULTICOLOR PLOTTING. 00303/023 SORT TAPESORT SA G S1430 4.3T1 VLO FSNAME=SORT.TAPESORT.SA.022(1) 169 5.0T1 767 SORT.TAPESORT.SA.023 1 LINE 80 18 PAGE UM ENGLE OCT. 24, 1979 16:41:35 5.0T2 48 0 MODULE TO IMPLEMENT THE TAPE MERGE OPTION IN SORT. CONTAINS A GBLC SYMBOL &MODE WITH VALUE '6250' WHICH SPECIFIES THE MODE (DENSITY) FOR THE POOL TAPES MOUNTED BY THIS PROGRAM. 0 Referenced by comments of: 303/16 00303/024 SORT TAPESORT UC G # S0027 DISTRB FSNAME=TAPESORTUPD 4.3T1 170 SORT.TAPESORT.UC.023 1 LINE 72 3 PAGE UM ENGLE OCT. 24, 1979 16:42:42 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00303/025 SORT TAPESORT OC G S1430 4.3T1 VLO FSNAME=SORT.TAPESORT.OC.024(1) 171 5.0T1 768 SORT.TAPESORT.OC.025 1 LINE 80 3 PAGE UM ENGLE OCT. 24, 1979 16:43:40 5.0T2 49 00303/026 SORT SRT2TIME SG G S0563 D4T1 VLO FSNAME=SORT.SRT2TIME.SG.021(1) 753 5.0T1 769 SORT.SRT2TIME.SG.026 1 LINE 72 4 PAGE UM ENGLE SEP. 09, 1977 16:42:55 5.0T2 50 0 PROGRAM TO PRODUCE CPU TIMING RESULTS FOR SORT2, SORT3, AND SORT4. MAY BE USED TO TIME ONE OR MORE VERSIONS OF THESE SUBROUTINES. INFORMATION REQUESTED BY PROMPTING INCLUDES LOCATIONS (FILE NAMES ENTERED ONE/LINE TERMINATED BY EOF) OF ADDITIONAL VERSIONS (BESIDES THE ONE LOADED WITH THE PROGRAM), WHETHER THE RESULTS OF EACH INDIVIDUAL REPETITION ARE TO BE PRINTED, THE NUMBER OF REPETITIONS (0 OR MORE) FOR EACH TEST (RANDOM NUMBERS, ALREADY ORDERED, REVERSE ORDER, AND ALL EQUAL), ELEMENTS/ARRAY, ELEMENT LENGTH (LENGTH IS SAME FOR TAG ELEMENTS FOR SORT3), AND STARTING RANDOM NUMBER. IF ELEMENTS/ARRAY OR ELEMENT LENGTH IS ZERO, A NEW SET OF NUMBER OF REPETITIONS WILL BE REQUESTED. 1 MON AUG 05/96 18:37:45 Page 130 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00303/027 SORT SRT2TIME OC G S0563 D4T1 VLO FSNAME=SORT.SRT2TIME.OC.022(1) 754 5.0T1 770 SORT.SRT2TIME.OC.027 1 LINE 80 8 PAGE UM ENGLE SEP. 09, 1977 16:44:10 5.0T2 51 0 >>>>>>>> NOTE: REP CARD IN THIS OBJECT CAUSES THE TIMES TO BE PRINTED AS TIME/N RATHER THAN TIME/(N*LOG2(N)). 00303/028 SORT SORT4F SA G S1430 4.3T1 VLO FSNAME=SORT.SORT4F.SA.027(1) 172 5.0T1 771 SORT.SORT4F.SA.028 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 13:49:43 5.0T2 52 0 SORT4F IS A SUBROUTINE TO SORT AN ARRAY OF FORTRAN INDEXES BASED ON THE DATA TO WHICH THE INDEXES REFER. 00303/029 SORT SORT4F OC G S1430 4.3T1 VLO FSNAME=SORT.SORT4F.OC.028(1) 173 5.0T1 772 SORT.SORT4F.OC.029 1 LINE 80 1 PAGE UM ENGLE FEB. 20, 1980 13:49:51 5.0T2 53 00304/001 TAPE DIAGNOSTIC *TPD C *TPD 5.0T1 773 TAPE_DIAGNOSTIC.*TPD.C.001 1 LINE 61 1 PAGE UM WSG JULY 03, 1981 13:06:05 5.0T2 54 *TPD 0 COMMAND FILE TO RUN THE SYSTEM TAPE DIAGNOSTIC PROGRAM (304/2). INVOKED BY ENTERING "MTS *TPD" ON THE OPERATOR'S CONSOLE. 00304/002 TAPE DIAGNOSTIC SA G WSG:TAPEDIAG(1,999) 5.0T1 774 TAPE_DIAGNOSTIC..SA.002 1 LINE 66 4 PAGE UM WSG JULY 03, 1981 13:06:06 5.0T2 55 WSG.:TAPEDIAG 0 SIMPLE TAPE DIAGNOSTIC PROGRAM. READS AND WRITES RANDOM LENGTH, RANDOM DATA RECORDS. WORKS ON BOTH 7- AND 9-TRACK. WHEN IT ASKS FOR A TAPE DRIVE, PARAMETERS MAY BE GIVEN AFTER THE DRIVE NAME AS FOLLOWS: 800 - FOR 9-TRACK, TEST 800 BPI. 1600 - FOR 9-TRACK, TEST 1600 BPI. 6250 - FOR 9-TRACK, TEST 6250 BPI. ALL - TEST THE ENTIRE TAPE RATHER THAN THE DEFAULT 300 READ/WRITE ATTEMPTS. IF NONE OF THE FIRST THREE PARAMETERS IS GIVEN, ALL 9-TRACK DENSITIES WILL BE TESTED IN SUCCESSION (800, 1600, AND 6250). IF ANY OF THESE DENSITIES IS NOT SUPPORTED BY THE DRIVE BEING TESTED, A WARNING MESSAGE WILL BE PRODUCED AND THAT DENSITY IS SKIPPED. ALL THREE 7-TRACK DENSITIES ARE ALWAYS TESTED ON AN INTERLEAVED RECORD-BY-RECORD BASIS. 0 Referenced by comments of: 304/1 00304/003 TAPE DIAGNOSTIC OC G WSG:TAPEDIAG(1000) 5.0T1 775 TAPE_DIAGNOSTIC..OC.003 1 LINE 80 3 PAGE UM WSG JULY 03, 1981 13:06:07 5.0T2 56 00305/001 *FTNTOPL1 SLCPF4 SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SLCPF4.SP.001(1) 758 5.0T1 776 FTNTOPL1.SLCPF4.SP.001 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 22:47.13 5.0T2 57 0 IBM PROGRAM 360-CV-710: LCP FORTRAN-IV TO PL/I, VERSION 1 LEVEL 0. THE SOURCE DECKS, (305/1) THROUGH (305/20), SHOULD BE STORED IN FILES NAMED AS 1 MON AUG 05/96 18:37:45 Page 131 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 INDICATED. THE UPDATE DECK (305/21) WILL CONVERT THESE FILES, WHICH ARE UNMODIFIED IBM SOURCE, INTO A VERSION THAT WILL RUN IN MTS. MOST OF THESE PROGRAMS ARE WRITTEN IN PL/I VERSION 4 WITH SORGMIN=(2,41). THE ONLY PROGRAMS WHICH ARE NOT PL/I ARE SCONVER, SPUTTBS, AND SLBLNK, WHICH ARE ASSEMBLY LANGUAGE. UNCHANGED SINCE DIST 2. 0 Referenced by comments of: 305/1 00305/002 *FTNTOPL1 SCONVER SA O S0563 D4T1 VLO FSNAME=FTNTOPL1.SCONVER.SA.002(1) 759 5.0T1 777 FTNTOPL1.SCONVER.SA.002 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:47.14 5.0T2 58 00305/003 *FTNTOPL1 SPUTTBS SA O S0563 D4T1 VLO FSNAME=FTNTOPL1.SPUTTBS.SA.003(1) 760 5.0T1 778 FTNTOPL1.SPUTTBS.SA.003 1 SEQ 80 24 PAGE UM TIFFANY JULY 31, 1973 22:47.18 5.0T2 59 0 Referenced by comments of: 305/21 00305/004 *FTNTOPL1 SLTCOL SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SLTCOL.SP.004(1) 761 5.0T1 779 FTNTOPL1.SLTCOL.SP.004 1 SEQ 80 12 PAGE UM TIFFANY JULY 31, 1973 22:47.22 5.0T2 60 00305/005 *FTNTOPL1 SIPPRS SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SIPPRS.SP.005(1) 762 5.0T1 780 FTNTOPL1.SIPPRS.SP.005 1 SEQ 80 27 PAGE UM TIFFANY JULY 31, 1973 22:47.25 5.0T2 61 00305/006 *FTNTOPL1 SPH10 SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SPH10.SP.006(1) 763 5.0T1 781 FTNTOPL1.SPH10.SP.006 1 SEQ 80 11 PAGE UM TIFFANY JULY 31, 1973 22:47.28 5.0T2 62 00305/007 *FTNTOPL1 SFNPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SFNPRO.SP.007(1) 764 5.0T1 782 FTNTOPL1.SFNPRO.SP.007 1 SEQ 80 10 PAGE UM TIFFANY JULY 31, 1973 22:47.30 5.0T2 63 00305/008 *FTNTOPL1 SDMPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SDMPRO.SP.008(1) 765 5.0T1 783 FTNTOPL1.SDMPRO.SP.008 1 SEQ 80 18 PAGE UM TIFFANY JULY 31, 1973 22:47.32 5.0T2 64 00305/009 *FTNTOPL1 SNLPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SNLPRO.SP.009(1) 766 5.0T1 784 FTNTOPL1.SNLPRO.SP.009 1 SEQ 80 9 PAGE UM TIFFANY JULY 31, 1973 22:47.34 5.0T2 65 00305/010 *FTNTOPL1 SFTPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SFTPRO.SP.010(1) 767 5.0T1 785 FTNTOPL1.SFTPRO.SP.010 1 SEQ 80 21 PAGE UM TIFFANY JULY 31, 1973 22:47.38 5.0T2 66 00305/011 *FTNTOPL1 SRTPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SRTPRO.SP.011(1) 768 5.0T1 786 FTNTOPL1.SRTPRO.SP.011 1 SEQ 80 10 PAGE UM TIFFANY JULY 31, 1973 22:47.40 5.0T2 67 1 MON AUG 05/96 18:37:45 Page 132 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00305/012 *FTNTOPL1 SIOPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SIOPRO.SP.012(1) 769 5.0T1 787 FTNTOPL1.SIOPRO.SP.012 1 SEQ 80 25 PAGE UM TIFFANY JULY 31, 1973 22:47.43 5.0T2 68 00305/013 *FTNTOPL1 SARPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SARPRO.SP.013(1) 770 5.0T1 788 FTNTOPL1.SARPRO.SP.013 1 SEQ 80 27 PAGE UM TIFFANY JULY 31, 1973 22:47.47 5.0T2 69 00305/014 *FTNTOPL1 SCAPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SCAPRO.SP.014(1) 771 5.0T1 789 FTNTOPL1.SCAPRO.SP.014 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:47.49 5.0T2 70 00305/015 *FTNTOPL1 SIFPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SIFPRO.SP.015(1) 772 5.0T1 790 FTNTOPL1.SIFPRO.SP.015 1 SEQ 80 6 PAGE UM TIFFANY JULY 31, 1973 22:47.52 5.0T2 71 00305/016 *FTNTOPL1 SALPRO SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SALPRO.SP.016(1) 773 5.0T1 791 FTNTOPL1.SALPRO.SP.016 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 22:47.54 5.0T2 72 00305/017 *FTNTOPL1 SPH20 SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SPH20.SP.017(1) 774 5.0T1 792 FTNTOPL1.SPH20.SP.017 1 SEQ 80 16 PAGE UM TIFFANY JULY 31, 1973 22:47.58 5.0T2 73 00305/018 *FTNTOPL1 SPH30 SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SPH30.SP.018(1) 775 5.0T1 793 FTNTOPL1.SPH30.SP.018 1 SEQ 80 41 PAGE UM TIFFANY JULY 31, 1973 22:48.03 5.0T2 74 00305/019 *FTNTOPL1 SLBLNK SA O S0563 D4T1 VLO FSNAME=FTNTOPL1.SLBLNK.SA.019(1) 776 5.0T1 794 FTNTOPL1.SLBLNK.SA.019 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:48.07 5.0T2 75 00305/020 *FTNTOPL1 SUT1 SP O S0563 D4T1 VLO FSNAME=FTNTOPL1.SUT1.SP.020(1) 777 5.0T1 795 FTNTOPL1.SUT1.SP.020 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 22:48.08 5.0T2 76 0 Referenced by comments of: 305/1 00305/021 *FTNTOPL1 UPDATE UU O S0563 D4T1 VLO FSNAME=FTNTOPL1.UPDATE.UU.021(1) 778 5.0T1 796 FTNTOPL1.UPDATE.UU.021 1 LINE 80 4 PAGE UM TIFFANY JULY 27, 1977 02:25:15 5.0T2 77 0 UPDATE DECK, INCLUDING MTS COMMANDS, TO PRODUCE IN A FILE "NEWLCP" A VERSION OF *FTNTOPL1 THAT WILL RUN IN MTS. THIS DECK WILL HAVE TO BE CHANGED TO MEET LOCAL CONDITIONS - IT CURRENTLY USES THE DATA CELL. LATEST VERSION CORRECTS SPUTTBS (305/3) SO THAT THERE CAN BE MORE THAN 200 INPUT CARDS. 0 Referenced by comments of: 305/1 00305/022 *FTNTOPL1 OC O *FTNTOPL1 5.0T1 797 FTNTOPL1..OC.022 1 SEQ 22330 46 PAGE UM TIFFANY JULY 03, 1981 13:06:28 5.0T2 78 *FTNTOPL1 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 1 MON AUG 05/96 18:37:45 Page 133 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/001 *WIREWRAP WW.S.MAIN SA G WWMN S0767 'SAVETAPE' FSNAME=WW.S.MAIN 5.0T1 798 WIREWRAP.WW.S.MAIN.SA.001 1 LINE 80 55 PAGE UM CASHMAN AUG. 21, 1975 11:54:24 5.0T2 79 0 PROGRAM TO PRODUCE ALL SORTS OF NEAT OUTPUT ABOUT WIRING BACKPANELS FOR HARDWARE DEVICES. INPUT TO THE PROGRAM IS A MACRO-ORIENTED LANGUAGE FOR DESCRIBING HARDWARE DEVICES FROM LOGIC DIAGRAMS. OUTPUT INCLUDES LISTS OF SIGNALS, WIRE-CHAINS, IC'S USED, COST AND POWER TOTALS, AND A PUNCHED CARD DECK FOR AUTOMATICALLY DRIVING ANY GARDNER-DENVER WIREWRAP MACHINE. THE WIREWRAP PROGRAM CONSISTS OF THREE CSECTS: WW.S.MAIN (306/1), WW.S.AUX (306/2), AND WW.S.MACR (306/3). EACH REQUIRES COPY SECTIONS WWCOPY (306/5) AND WWDATA (306/6) AND MACRO LIBRARIES WWMAC (306/7) AND *SYSMAC. THE OBJECT MODULE (*WIREWRAP) MUST BE RUN IN CONJUNCTION WITH THE *WWLIB (306/9) LIBRARY FILE OR MUST BE CONCATENATED WITH A PRIVATE SUBROUTINE PACKAGE USED TO DEFINE THE CHARACTERISTICS OF THE IC MOUNTING TECHNIQUE. SOURCE FILE WWJOB (306/8) WILL ASSEMBLE *WIREWRAP. 0 Referenced by comments of: 306/1, 306/5, 306/6, 306/7 00306/002 *WIREWRAP WW.S.AUX SA G WWAU S0767 'SAVETAPE' FSNAME=WW.S.AUX 5.0T1 799 WIREWRAP.WW.S.AUX.SA.002 1 LINE 80 42 PAGE UM CASHMAN AUG. 21, 1975 11:54:30 5.0T2 80 0 Referenced by comments of: 306/1, 306/5, 306/6, 306/7 00306/003 *WIREWRAP WW.S.MACR SA G WWMC S0767 'SAVETAPE' FSNAME=WW.S.MACR 5.0T1 800 WIREWRAP.WW.S.MACR.SA.003 1 LINE 80 29 PAGE UM CASHMAN AUG. 21, 1975 11:54:38 5.0T2 81 0 Referenced by comments of: 306/1, 306/5, 306/6, 306/7 00306/004 *WIREWRAP *WIREWRAP OE G *WIREWRAP 5.0T1 801 WIREWRAP.*WIREWRAP.OE.004 1 SEQ 12724 15 PAGE UM CASHMAN JULY 03, 1981 13:12:00 5.0T2 82 *WIREWRAP 00306/005 *WIREWRAP WWCOPY SA G WWCO S0767 'SAVETAPE' FSNAME=WWCOPY 5.0T1 802 WIREWRAP.WWCOPY.SA.005 1 LINE 80 4 PAGE UM CASHMAN AUG. 21, 1975 11:55:07 5.0T2 83 0 COPY SECTION USED BY (306/1), (306/2), AND (306/3) 0 Referenced by comments of: 306/1 00306/006 *WIREWRAP WWDATA SA G WWDA S0767 'SAVETAPE' FSNAME=WWDATA 5.0T1 803 WIREWRAP.WWDATA.SA.006 1 LINE 80 8 PAGE UM CASHMAN AUG. 21, 1975 11:55:02 5.0T2 84 0 COPY SECTION USED BY (306/1), (306/2), AND (306/3). 0 Referenced by comments of: 306/1 00306/007 *WIREWRAP WWMAC SM G S0767 'SAVETAPE' FSNAME=WWMAC 5.0T1 804 WIREWRAP.WWMAC.SM.007 1 LINE 73 3 PAGE UM CASHMAN AUG. 21, 1975 11:54:50 5.0T2 85 0 MACRO LIB USED BY (306/1), (306/2), AND (306/3). 1 MON AUG 05/96 18:37:45 Page 134 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 306/1 00306/008 *WIREWRAP WWJOB C G S0767 'SAVETAPE' FSNAME=WWJOB 5.0T1 805 WIREWRAP.WWJOB.C.008 1 LINE 92 1 PAGE UM CASHMAN AUG. 21, 1975 11:54:55 5.0T2 86 0 Referenced by comments of: 306/1 00306/009 *WIREWRAP *WWLIB OL G *WWLIB 5.0T1 806 WIREWRAP.*WWLIB.OL.009 1 LINE 2948 37 PAGE UM CASHMAN JULY 03, 1981 13:12:05 5.0T2 87 *WWLIB 0 NON-STANDARD LIBRARY FILE USED BY *WIREWRAP TO OBTAIN CHARACTERISTICS OF THE IC MOUNTING TECHNIQUE. CONSISTS OF A DIRECTORY FOLLOWED BY THE LINK-EDITED OBJECT MODULES FOR BAY TYPES: LAB, LAB16, IC, MSERIES, PG1, PG3, PG5, PG13, UG1, MIC, RSERIES, 8SERIES, CHIP, AND DOUGLAS. THE *WIREWRAP USER'S GUIDE (306/33) DESCRIBES MOST OF THESE BAY TYPES. 8SERIES IS USED FOR CLASSIC PDP-8 MINCOMPUTERS. CHIP AND DOUGLAS ARE DESCRIBED IN THEIR RESPECTIVE FORTRAN SOURCE CODES. THIS LIBRARY ALSO MAKES USE OF OBJECT FILES *WWSQGRD (306/11), *WWSTGRD1 (306/13), AND *WWSTGRD2 (306/15). 0 Referenced by comments of: 306/1, 306/16, 306/17, 306/18, 306/19, 306/20, 306/21, 306/22, 306/23, 306/24, 306/25, 306/26, 306/27, 306/28, 306/29 00306/010 *WIREWRAP SQGRD SA G SQGR S0767 'SAVETAPE' FSNAME=SQGRD.S 5.0T1 807 WIREWRAP.SQGRD.SA.010 1 LINE 80 7 PAGE UM CASHMAN DEC. 13, 1973 12:57.39 5.0T2 88 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/011 *WIREWRAP SQGRD OE G *WWSQGRD 5.0T1 808 WIREWRAP.SQGRD.OE.011 1 SEQ 606 1 PAGE UM CASHMAN JULY 03, 1981 13:12:32 5.0T2 89 *WWSQGRD 0 Referenced by comments of: 306/9 00306/012 *WIREWRAP STGRD1 SA G STG1 S0767 'SAVETAPE' FSNAME=STGRD1.S 5.0T1 809 WIREWRAP.STGRD1.SA.012 1 LINE 80 8 PAGE UM CASHMAN DEC. 13, 1973 12:57.57 5.0T2 90 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/013 *WIREWRAP STGRD1 OE G *WWSTGRD1 5.0T1 810 WIREWRAP.STGRD1.OE.013 1 SEQ 726 1 PAGE UM CASHMAN JULY 03, 1981 13:12:34 5.0T2 91 *WWSTGRD1 0 Referenced by comments of: 306/9 00306/014 *WIREWRAP STGRD2 SA G STG2 S0767 'SAVETAPE' FSNAME=STGRD2.S 5.0T1 811 WIREWRAP.STGRD2.SA.014 1 LINE 80 8 PAGE UM CASHMAN DEC. 13, 1973 12:58.13 5.0T2 92 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 1 MON AUG 05/96 18:37:45 Page 135 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/015 *WIREWRAP STGRD2 OE G *WWSTGRD2 5.0T1 812 WIREWRAP.STGRD2.OE.015 1 SEQ 5718 2 PAGE UM CASHMAN JULY 03, 1981 13:12:36 5.0T2 93 *WWSTGRD2 0 Referenced by comments of: 306/9 00306/016 *WIREWRAP LAB SF G LAB S0767 'SAVETAPE' FSNAME=LAB.S 5.0T1 813 WIREWRAP.LAB.SF.016 1 LINE 80 5 PAGE UM CASHMAN FEB. 20, 1976 14:55:25 5.0T2 94 0 SUBROUTINE PACKAGE FOR BAY TYPE 'LAB'. OBJECT MODULE IN *WWLIB (306/9). 00306/017 *WIREWRAP LAB16 SF G S0767 'SAVETAPE' FSNAME=LAB16.S 5.0T1 814 WIREWRAP.LAB16.SF.017 1 LINE 70 3 PAGE UM CASHMAN MAR. 13, 1978 15:48:56 5.0T2 95 0 SUBROUTINE PACKAGE FOR BAY TYPE 'LAB16', WHICH IS THE SAME AS 'LAB' EXCEPT IT ALLOWS FOR 14- OR 16-PIN CHIPS. OBJECT MODULE IN *WWLIB (306/9). 00306/018 *WIREWRAP MSERIES SF G MSER S0767 'SAVETAPE' FSNAME=MSERIES.S 5.0T1 815 WIREWRAP.MSERIES.SF.018 1 LINE 80 5 PAGE UM CASHMAN DEC. 13, 1973 12:56.06 5.0T2 96 0 SUBROUTINE PACKAGE FOR BAY TYPE 'MSERIES'. OBJECT MODULE IN *WWLIB (306/9). 00306/019 *WIREWRAP RSERIES SF G RSER S0767 'SAVETAPE' FSNAME=RSERIES.S 5.0T1 816 WIREWRAP.RSERIES.SF.019 1 LINE 80 5 PAGE UM CASHMAN DEC. 13, 1973 12:56.35 5.0T2 97 0 SUBROUTINE PACKAGE FOR BAY TYPE 'RSERIES'. OBJECT MODULE IN *WWLIB (306/9). 00306/020 *WIREWRAP IC SF G IC S0767 'SAVETAPE' FSNAME=IC.S 5.0T1 817 WIREWRAP.IC.SF.020 1 LINE 80 5 PAGE UM CASHMAN DEC. 13, 1973 12:55.30 5.0T2 98 0 SUBROUTINE PACKAGE FOR BAY TYPE 'IC'. OBJECT MODULE IN *WWLIB (306/9). 00306/021 *WIREWRAP MIC SF G MIC S0767 'SAVETAPE' FSNAME=MIC.S 5.0T1 818 WIREWRAP.MIC.SF.021 1 LINE 80 6 PAGE UM CASHMAN JAN. 16, 1974 13:12.44 5.0T2 99 0 SUBROUTINE PACKAGE FOR BAY TYPE 'MIC'. OBJECT MODULE IN *WWLIB (306/9). 00306/022 *WIREWRAP PG1 SF G PG1 S0767 'SAVETAPE' FSNAME=79.PG1SOU 5.0T1 819 WIREWRAP.PG1.SF.022 1 LINE 80 6 PAGE UM CASHMAN DEC. 13, 1973 13:35.38 5.0T2 100 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG1'. OBJECT MODULE IN *WWLIB (306/9). 00306/023 *WIREWRAP PG3 SF G PG3 S0767 'SAVETAPE' FSNAME=79.PG3SOU 5.0T1 820 WIREWRAP.PG3.SF.023 1 LINE 80 7 PAGE UM CASHMAN DEC. 13, 1973 13:36.09 5.0T2 101 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG3'. OBJECT MODULE IN *WWLIB (306/9). 1 MON AUG 05/96 18:37:45 Page 136 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/024 *WIREWRAP PG5 SF G PG5 S0767 'SAVETAPE' FSNAME=79.PG5SOU 5.0T1 821 WIREWRAP.PG5.SF.024 1 LINE 80 6 PAGE UM CASHMAN DEC. 13, 1973 13:36.26 5.0T2 102 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG5'. OBJECT MODULE IN *WWLIB (306/9). 00306/025 *WIREWRAP PG13 SF G PG13 S0767 'SAVETAPE' FSNAME=79.PG13SOU 5.0T1 822 WIREWRAP.PG13.SF.025 1 LINE 80 7 PAGE UM CASHMAN DEC. 13, 1973 13:35.53 5.0T2 103 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG13'. OBJECT MODULE IN *WWLIB (306/9). 00306/026 *WIREWRAP UG1 SA G UG1 S0767 'SAVETAPE' FSNAME=AUGATUG1.S 5.0T1 823 WIREWRAP.UG1.SA.026 1 LINE 80 20 PAGE UM CASHMAN JAN. 16, 1974 13:13.19 5.0T2 104 0 SUBROUTINE PACKAGE FOR BAY TYPE 'UG1'. OBJECT MODULE IN *WWLIB (306/9). 00306/027 *WIREWRAP CHIP SF G S0767 'SAVETAPE' FSNAME=CHIP.S 5.0T1 824 WIREWRAP.CHIP.SF.027 1 LINE 69 3 PAGE UM CASHMAN MAR. 01, 1978 10:29:04 5.0T2 105 0 SUBROUTINE PACKAGE FOR BAY TYPE 'CHIP'. USEFUL FOR "BREADBOARDING" APPLICATIONS; I.E. STICKING WIREWRAP SOCKETS INTO VECTOR BOARD. COMPLETE DOCUMENTATION IS IN THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE. OBJECT MODULE IN *WWLIB (306/9). 00306/028 *WIREWRAP DOUGLAS SF G S0767 'SAVETAPE' FSNAME=DOUGLAS.S 5.0T1 825 WIREWRAP.DOUGLAS.SF.028 1 LINE 69 4 PAGE UM CASHMAN FEB. 20, 1976 14:58:54 5.0T2 106 0 SUBROUTINE PACKAGE FOR BAY TYPE 'DOUGLAS' -- THE DEC-BAY-COMPATIBLE '10-DE-77' SOCKET BOARD. DOCUMENTATION IS IN THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE. OBJECT MODULE IN *WWLIB (306/9). 00306/029 *WIREWRAP 8SERIES SF G S0767 'SAVETAPE' FSNAME=8SERIES.S 5.0T1 826 WIREWRAP.8SERIES.SF.029 1 LINE 73 3 PAGE UM CASHMAN DEC. 13, 1973 12:57.00 5.0T2 107 0 SUBROUTINE PACKAGE FOR BAY TYPE '8SERIES' -- FOR DEC'S PDP-8 CLASSIC MINI-COMPUTER. OBJECT MODULE IN *WWLIB (306/9). 00306/030 *WIREWRAP *WWICMAC D *WWICMAC 5.0T1 827 WIREWRAP.*WWICMAC.D.030 1 LINE 65 4 PAGE UM CASHMAN JULY 03, 1981 13:19:03 5.0T2 108 *WWICMAC 0 THIS FILE CONTAINS "WIREWRAP MACROS" FOR MOST OF THE IC'S USED FOR LOGIC DESIGN AT THE UM COMPUTING CENTER. THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES "PAR=TYPE=IC" FOR THE MOUNTING TECHNIQUE. 00306/031 *WIREWRAP *WWLABMAC D *WWLABMAC 5.0T1 828 WIREWRAP.*WWLABMAC.D.031 1 LINE 55 3 PAGE UM CASHMAN JULY 03, 1981 13:19:04 5.0T2 109 *WWLABMAC 0 THIS FILE CONTAINS A "WIREWRAP MACRO" DICTIONARY FOR IC'S USED IN THE LOGIC LAB "SUITCASE" USED IN ECE DEPARTMENT CLASSES AT UM. THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES 1 MON AUG 05/96 18:37:45 Page 137 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 "PAR=TYPE=LAB" FOR THE MOUNTING TECHNIQUE. 00306/032 *WIREWRAP TTLMAC D G S0767 'SAVETAPE' FSNAME=TTLMAC 5.0T1 829 WIREWRAP.TTLMAC.D.032 1 LINE 91 4 PAGE UM CASHMAN JUNE 18, 1976 13:38:55 5.0T2 110 0 ANOTHER "WIREWRAP MACRO" DICTIONARY. 00306/033 *WIREWRAP MEMO 267 WT S0563 D4T1 VLO FSNAME=WIREWRAP.MEMO_267.WT.032(1) 811 5.0T1 830 WIREWRAP.MEMO_267.WT.033 1 LINE 81 49 PAGE UM CASHMAN FEB. 03, 1977 16:58:19 5.0T2 111 0 THIS IS COMPUTING CENTER MEMO 267 -- "*WIREWRAP USER'S GUIDE" 0 Referenced by comments of: 306/9 00307/001 *OBJCONV SA # (OBSOLETE) D3T2 220 OBJCONV..SA.1 1 SEQ 80 1 PAGE UM JULY 31, 1973 22:54.21 00308/001A *FMT MAIN SA O S0791 FMTJNK 'FORMAT' FSNAME=MAIN 5.0T1 831 FMT.MAIN.SA.001 1 LINE 75 91 PAGE UBC NIGHTINGA PICKELMAN AUG. 25, 1980 19:14:04 5.0T2 112 0 FORMAT TEXT PROCESSING LANGUAGE, KNOWN AS *FMT THROUGHOUT MTS-LAND EXCEPT AT UM WHERE IT IS CALLED *FORMAT. THIS IS THE MAIN PROGRAM AND "MAIN LINE" SUBROUTINES. ALL ROUTINES USING THE FMT#DS COPY SECTION IN (308/4) ARE INCLUDED HERE, NAMELY FMT, FMTCC, FMTOUT, AND CONCARD. THIS VERSION HAS MULTIPLE COLUMN SUPPORT AND SUPERFMT. ASSEMBLE WITH PAR=B USING UBCMACLIB (308/4) AND *SYSMAC. 0 Referenced by comments of: 308/5, 560/1, 769/17, 798/95, 798/96, 810/2, 1036/4, 1036/8, 1079/12, 1079/13 00308/002A *FMT SUBROUTINES SA O S0791 FMTJNK 'FORMAT' FSNAME=SUB0 5.0T1 832 FMT.SUBROUTINES.SA.002 1 LINE 75 58 PAGE UBC NIGHTINGA PICKELMAN AUG. 12, 1980 17:28:24 5.0T2 113 0 SUBROUTINES WHICH DO NOT COPY FMT#DS. THE ROUTINE FMTOPTS SHOULD BE REASSEMBLED TO CHANGE THE NAME OF THE FUNCTION LIBRARY ETC:FMTLIB (308/16), IF NECESSARY. ASSEMBLE WITH PAR=B USING UBCMACLIB (308/4) AND *SYSMAC. 0 Referenced by comments of: 308/5 00308/003A *FMT MORE SUBRS SA O S0791 FMTJNK 'FORMAT' FSNAME=SUB1 5.0T1 833 FMT.MORE_SUBRS.SA.003 1 LINE 77 29 PAGE UBC NIGHTINGA PICKELMAN AUG. 12, 1980 17:28:37 5.0T2 114 0 ADDITIONAL SUBROUTINES WHICH ARE ALSO USED BY THE FUNCTIONS (308/6) ET SEQ. ASSEMBLE WITH PAR=B USING UBCMACLIB (308/4) AND *SYSMAC. 0 Referenced by comments of: 308/5 1 MON AUG 05/96 18:37:45 Page 138 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00308/004A *FMT UBCMACLIB SM G S0791 FMTJNK 'FORMAT' FSNAME=MACLIB 5.0T1 834 FMT.UBCMACLIB.SM.004 1 LINE 73 14 PAGE UBC NIGHTINGA PICKELMAN AUG. 25, 1980 19:13:53 5.0T2 115 0 Referenced by comments of: 308/1, 308/2, 308/3, 308/7, 308/9 00308/005 *FMT OBJECT OE O *FORMAT 5.0T1 835 FMT.OBJECT.OE.005 1 SEQ 32167 13 PAGE UBC NIGHTINGA PICKELMAN JULY 03, 1981 13:22:26 5.0T2 116 *FORMAT 0 OBJECT FROM (308/1), (308/2), AND (308/3). 00308/006 *FMT HYPHEN S3 O S0791 FMTJNK 'FORMAT' FSNAME=FMTHYPHEN 5.0T1 836 FMT.HYPHEN.S3.006 1 LINE 80 3 PAGE UBC NIGHTINGA PICKELMAN JUNE 30, 1980 20:14:28 5.0T2 117 0 THIS COMPONENT AND THOSE FOLLOWING ARE THE SOURCE FOR THE FMT DYNAMICALLY LOADED FUNCTION LIBRARY (ETC:FMTLIB). THIS IS THE HYPHEN FUNCTION AND ITS SUBROUTINES. IT HAS $CONTINUE WITHS WHICH ARE SELF-REFERENCING. AFTER COMPILATION, REFERENCES IN THE OBJECT TO INFREE1 SHOULD BE CHANGED TO INFREE#. THIS FUNCTION REFERENCES THE DATA FILE ETC:FMTDICT (308/17). 0 Referenced by comments of: 308/3, 308/7, 308/16 00308/007 *FMT GSPFRSP SA O S0791 FMTJNK 'FORMAT' FSNAME=FMTHYPHEN1 5.0T1 837 FMT.GSPFRSP.SA.007 1 LINE 71 3 PAGE UBC NIGHTINGA PICKELMAN JUNE 30, 1980 20:14:34 5.0T2 118 0 SUBROUTINE CALLED BY HYPHEN (308/6). ASSEMBLE USING UBCMACLIB (308/4) AND *SYSMAC. 0 Referenced by comments of: 308/17 00308/008 *FMT INDEX SF O S0791 FMTJNK 'FORMAT' FSNAME=FMTINDEX 5.0T1 838 FMT.INDEX.SF.008 1 LINE 80 10 PAGE UBC NIGHTINGA PICKELMAN AUG. 01, 1979 20:25:37 5.0T2 119 0 INDEX FUNCTION AND SEVERAL SUBROUTINES. 00308/009 *FMT ASMFNS SA O S0791 FMTJNK 'FORMAT' FSNAME=FMTASMFNS 5.0T1 839 FMT.ASMFNS.SA.009 1 LINE 68 5 PAGE UBC NIGHTINGA PICKELMAN AUG. 14, 1978 11:37:32 5.0T2 120 0 FUNCTIONS UCTRAN, IFDEF, IFNUL, BLOCK, CAPIT, DOUBLE, GETPAR, FMTCHAR, MOST, AND ALL. ASSEMBLE WITH PAR=B USING UBCMACLIB (308/4) AND *SYSMAC. 00308/010 *FMT CONTENTS SF O S0791 FMTJNK 'FORMAT' FSNAME=FMTCONTENTS 5.0T1 840 FMT.CONTENTS.SF.010 1 LINE 73 4 PAGE UBC NIGHTINGA PICKELMAN AUG. 14, 1978 11:37:48 5.0T2 121 0 AFTER COMPILATION, CHANGE THE NAME "CONTNS " TO "CONTENTS" IN THE OBJECT. 1 MON AUG 05/96 18:37:45 Page 139 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00308/011 *FMT COUNT SF G S0791 FMTJNK 'FORMAT' FSNAME=FMTCOUNT 5.0T1 841 FMT.COUNT.SF.011 1 LINE 72 3 PAGE UBC NIGHTINGA PICKELMAN AUG. 14, 1978 11:38:03 5.0T2 122 00308/012A *FMT DATE S3 O S0791 FMTJNK 'FORMAT' FSNAME=FMTDATE 5.0T1 842 FMT.DATE.S3.012 1 LINE 71 4 PAGE UBC NIGHTINGA PICKELMAN AUG. 12, 1980 17:19:33 5.0T2 123 00308/013A *FMT FTNFNS SF O S0791 FMTJNK 'FORMAT' FSNAME=FMTFTNFNS 5.0T1 843 FMT.FTNFNS.SF.013 1 LINE 72 6 PAGE UBC NIGHTINGA PICKELMAN MAR. 03, 1981 11:00:19 5.0T2 124 0 FUNCTIONS STACK, NULL, CENTER, TEST, INPUT, MYSORT, PAD, FOR, SPREAD, EXIST, JUST, AND FMTCNTRL. AFTER COMPILATION, CHANGE THE NAME "FMTCTL " TO "FMTCNTRL" IN THE OBJECT. ******************************************************************************** D5.0 changes: Fixed a bug in the MYSORT subroutine. ******************************************************************************** 00308/014 *FMT SORT SF O S0791 FMTJNK 'FORMAT' FSNAME=FMTSORT 5.0T1 844 FMT.SORT.SF.014 1 LINE 64 1 PAGE UBC NIGHTINGA PICKELMAN AUG. 01, 1979 20:25:24 5.0T2 125 0 AFTER COMPILATION, CHANGE THE NAME "FMTSRT " TO FMTSORT" IN THE OBJECT. 00308/015 *FMT PAGE SF O S0791 FMTJNK 'FORMAT' FSNAME=FMTPAGE 5.0T1 845 FMT.PAGE.SF.015 1 LINE 72 3 PAGE UBC NIGHTINGA PICKELMAN AUG. 14, 1978 11:40:07 5.0T2 126 0 PAGE FUNCTION AND FMTPAG SUBROUTINE. 0 Referenced by comments of: 308/16 00308/016A *FMT FMTLIB OL O ETC:FMTLIB 5.0T1 846 FMT.FMTLIB.OL.016 1 LINE 6322 26 PAGE UBC NIGHTINGA PICKELMAN JULY 03, 1981 13:23:48 5.0T2 127 ETC.:FMTLIB 0 FUNCTION LIBRARY CONSISTING OF OBJECT FROM (308/6) THROUGH (308/15). 0 Referenced by comments of: 308/2 00308/017 *FMT DICT D ETC:FMTDICT 5.0T1 847 FMT.DICT.D.017 1 LINE 80 3 PAGE UBC NIGHTINGA PICKELMAN JULY 03, 1981 13:23:53 5.0T2 128 ETC.:FMTDICT 0 HYPHENATION DICTIONARY DATA FILE USED BY (308/7). 0 Referenced by comments of: 308/6 1 MON AUG 05/96 18:37:45 Page 140 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00308/018A *FMT JONMACLIB SM O COPY:JONMACLIBFMT 5.0T1 848 FMT.JONMACLIB.SM.018 1 LINE 110 8 PAGE UBC NIGHTINGA PICKELMAN JULY 03, 1981 13:23:54 5.0T2 129 COPY:JONMACLIBFMT 0 UBC'S JON:MACLIB -- FMT MACROS USED IN UBC DOCUMENTATION. DOCUMENTATION FOR JON:MACLIB IS IN (308/21). THERE MAY BE SOME PROBLEM USING UM'S *FORMAT WITH THESE MACROS, BUT NOT NECESSARILY. AT UM, THIS FILE IS PERMITTED ONLY TO P=W?. 0 Referenced by comments of: 308/19, 774/7, 1036/4, 1036/8, 1038/12, 1042/57, 1042/83, 1058/15, 1077/4, 3018/174 00308/019A *FMT JONMACLIB SF O S0791 FMTJNK 'FORMAT' FSNAME=JONMACLIB.FTN 5.0T1 849 FMT.JONMACLIB.SF.019 1 LINE 68 3 PAGE UBC NIGHTINGA PICKELMAN AUG. 12, 1980 17:23:16 5.0T2 130 0 FUNCTIONS DYNAMICALLY LOADED BY (308/18). 0 Referenced by comments of: 308/20 00308/020A *FMT JONMACLIB OL O COPY:JONFMT.FNLIB 5.0T1 850 FMT.JONMACLIB.OL.020 1 LINE 1120 4 PAGE UBC NIGHTINGA PICKELMAN JULY 03, 1981 13:24:11 5.0T2 131 COPY:JONFMT.FNLIB 0 OBJECT OF (308/19). 00308/021C *FMT JONMACLIB WF COPY:JONMACLIB.F 5.0T1 851 FMT.JONMACLIB.WF.021 1 LINE 149 8 PAGE UBC NIGHTINGA PICKELMAN JULY 03, 1981 13:24:11 5.0T2 132 0 This is the UBC's writeup describing JONMACLIB. Lines -99,-1 of the file contain CDUPDATE (1036) commands to make source compatible with UM's *FORMAT. 0 Referenced by comments of: 308/18 00308/022A *FMT FMTAPA WF S1153 UNSP VLO FSNAME=FMTAPA.FMT 5.0T1 852 FMT.FMTAPA.WF.022 1 LINE 81 6 PAGE UM NIGHTINGA SEP. 15, 1980 16:42:59 5.0T2 133 0 WRITEUP DESCRIBING A SET OF *FORMAT MACROS (308/24) WHICH PRODUCES HEADINGS IN AMERICAN PSYCHIATRIC ASSOCIATION FORMAT AND A FEW OTHER THINGS. 00308/023A *FMT FMTAPA WF UNSP:FMTAPA 5.0T1 853 FMT.FMTAPA.WF.023 1 LINE 51 1 PAGE UM NIGHTINGA JULY 03, 1981 13:24:37 5.0T2 134 0 THIS FILE CONTAINS *FMT CONTROL COMMANDS. IT IS TO BE "|INCLUD"ED BY *FMT FOR FILES WHICH USE FMTAPA (308/24). 00308/024A *FMT FMTAPA WF UNSP:FMTMACLIB 5.0T1 854 FMT.FMTAPA.WF.024 1 LINE 94 3 PAGE UM NIGHTINGA JULY 03, 1981 13:24:38 5.0T2 135 0 THESE ARE THE FORMAT APA MACROS. 1 MON AUG 05/96 18:37:45 Page 141 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 308/22, 308/23, 308/25 00308/025A *FMT FMTAPA OE UNSP:FMTLIB 5.0T1 855 FMT.FMTAPA.OE.025 1 LINE 520 1 PAGE UM NIGHTINGA JULY 03, 1981 13:24:39 5.0T2 136 0 OBJECT (WE DO NOT HAVE THE SOURCE) OF FUNCTIONS USED BY FMTAPA (308/24). 00309/001 *STASS360 SA # (OBSOLETE) D3T2 225 STASS360.MONITOR.SA.1 1 SEQ 80 11 PAGE UM JULY 31, 1973 22:55.58 0 Obsoleted by *ASSIST (3023). 00311/001 *VARRLIST S # (OBSOLETE) D2T1 333 UM 00313/001 1130 RJE SUPPORT PROGRAM S # (OBSOLETE) D2T1 096 UM 00314/001A *LABELSNIFF SA G W062:LBLSNIFF.S 5.0T1 856 LABELSNIFF..SA.001 1 LINE 73 37 PAGE UM TIFFANY JULY 03, 1981 13:24:40 5.0T2 137 0 Program to print information about what's on a tape. Copies *SENSEDSECT (3025) and *GDINFODSECT (594). Requires the (314/3) macro library and *SYSMAC. Assemble with PEXIT=*PEXIT (775). ***************************************************************************** D5.0 version: This version of *LABELSNIFF, which requires the D5.0 version of the tape routines (135), allows the use of ANSI labeled tapes. ***************************************************************************** 00314/002A *LABELSNIFF OE G *LABELSNIFF 5.0T1 857 LABELSNIFF..OE.002 1 LINE 15788 14 PAGE UM TIFFANY JULY 03, 1981 13:24:44 5.0T2 138 *LABELSNIFF 00314/003C *LABELSNIFF MACLIB SM G W062:LBLSNIFF.MAC 5.0T1 858 LABELSNIFF.MACLIB.SM.003 1 LINE 72 4 PAGE UM TIFFANY JULY 03, 1981 13:24:45 5.0T2 139 0 Referenced by comments of: 314/1 00315/001 *ANS SA # (OBSOLETE) D2T1 155 UM 00316/001 GENLIB SA # (OBSOLETE) D3T2 236 GENLIB..SA. 1 SEQ 80 6 PAGE UNE JULY 31, 1973 22:59.46 0 Obsoleted by *OBJUTIL (721). 1 MON AUG 05/96 18:37:45 Page 142 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00318/001 *XPL SUBMONITOR SA G S0563 D4T1 VLO FSNAME=XPL.SUBMONITOR.SA.001(1) 832 5.0T1 859 XPL.SUBMONITOR.SA.001 1 SEQ 80 24 PAGE UM SHERRY JULY 27, 1977 02:39:23 5.0T2 140 0 XPL COMPILER AND EXECUTION CONTROL (SEE 1968 FJCC PROC, PP 617-636). ONE NEVER $RUNS AN XPL OBJECT DECK SINCE THE OBJECT CODE IS STORED IN A FORMAT UNIQUE TO XPL. RATHER, ONE RUNS THE XPL SUBMONITOR, WHICH IN TURN LOADS THE XPL PROGRAM AND PROVIDES A RUN-TIME INTERFACE TO MTS. SINCE THE COMPILER ITSELF IS ALSO AN XPL PROGRAM, IT MUST BE RUN IN THE SAME MANNER, I.E. IT MUST BE RUN UNDER CONTROL OF THE SUBMONITOR. THE 2 FILES *XPL AND *XPLGO CONTAIN MTS OBJECT FOR A SET OF DEFAULT FILE NAMES FOR THE COMPILER AND COMPILED CODE EXECUTION RESPECTIVELY. EACH ENDS WITH "$CONTINUE WITH *XMON" SO THAT BY $RUNNING *XPL OR *XPLGO, THE SUBMONITOR (*XMON), WITH APPROPRIATE DEFAULTS, IS INVOKED. MODIFIED UBC SOURCE FOR THE XPL SUBMONITOR (*XMON). 00318/002 *XPL SUBMONITOR OC G S0563 D4T1 VLO FSNAME=XPL.SUBMONITOR.OC.002(1) 833 5.0T1 860 XPL.SUBMONITOR.OC.002 1 SEQ 80 2 PAGE UM SHERRY JULY 27, 1977 02:39:26 5.0T2 141 0 THIS FILE PLUS THE OBJECT FOR TRACE (318/4) CONSTITUTE *XMON. THE FOLLOWING PATCH SHOULD BE INSERTED INTO THIS OBJECT FILE: REP 0008C6 01,0700,0700 TRACE DIES IF LEFT IN 0 Referenced by comments of: 318/4 00318/003 *XPL TRACE SA G S0563 D4T1 VLO FSNAME=XPL.TRACE.SA.003(1) 834 5.0T1 861 XPL.TRACE.SA.003 1 SEQ 80 33 PAGE UM SHERRY JULY 27, 1977 02:39:35 5.0T2 142 0 UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON). 00318/004 *XPL TRACE OC G S0563 D4T1 VLO FSNAME=XPL.TRACE.OC.004(1) 835 5.0T1 862 XPL.TRACE.OC.004 1 SEQ 80 2 PAGE UM SHERRY JULY 27, 1977 02:39:38 5.0T2 143 0 THE SUBMONITOR OBJECT (318/2) PLUS THIS FILE CONSTITUTE *XMON. THE FOLLOWING 2 LOADER CARDS SHOULD ALSO BE ADDED AT THE END OF *XMON: LCS LCSYMBOL LDT XPLSM 0 Referenced by comments of: 318/2 00318/005 *XPL *XMON OE G *XMON 5.0T1 863 XPL.*XMON.OE.005 1 SEQ 4384 2 PAGE UM SHERRY JULY 03, 1981 13:24:54 5.0T2 144 *XMON 00318/006 *XPL DEFAULTS SA G S0563 D4T1 VLO FSNAME=XPL.DEFAULTS.SA.006(1) 837 5.0T1 864 XPL.DEFAULTS.SA.006 1 SEQ 80 1 PAGE UM SHERRY JULY 27, 1977 02:39:44 5.0T2 145 0 SOURCE FOR THE 2 SETS OF SUBMONITOR DEFAULTS, THE FIRST FOR THE EXECUTION OF THE COMPILER (*XPL) AND THE SECOND FOR THE EXECUTION OF COMPILED CODE (*XPLGO). 1 MON AUG 05/96 18:37:45 Page 143 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00318/007 *XPL *XPL OC G *XPL 5.0T1 865 XPL.*XPL.OC.007 1 LINE 80 1 PAGE UM SHERRY JULY 03, 1981 13:24:55 5.0T2 146 *XPL 0 OBJECT FOR THE FIRST DEFAULTS PROGRAM. CONTAINS A "$CONTINUE WITH *XMON" LINE. 00318/008 *XPL *XPLGO OC G *XPLGO 5.0T1 866 XPL.*XPLGO.OC.008 1 LINE 80 1 PAGE UM SHERRY JULY 03, 1981 13:24:56 5.0T2 147 *XPLGO 0 OBJECT FOR THE SECOND DEFAULTS PROGRAM. CONTAINS A "$CONTINUE WITH *XMON" LINE. 00318/009 *XPL COMPILER SX G *XCOM 5.0T1 867 XPL.COMPILER.SX.009 1 LINE 80 54 PAGE UM SHERRY JULY 03, 1981 13:24:56 5.0T2 148 *XCOM 0 XPL SOURCE FOR THE XPL COMPILER (*XCOM). THIS VERSION IS MODIFIED FROM AN EARLY STANFORD RELEASE; IT IS NOT THE SHARE RELEASE. IT WAS USED QUITE HEAVILY AT UM AND IS RELATIVELY BUG-FREE. MOST XPL USERS NOW USE *EXPL (495) BECAUSE INDEPENDENTLY COMPILABLE PROCEDURES REDUCE THE COST OF COMPILER DEVELOPMENT. THE COMPILER SOURCE IS KEPT IN A PUBLIC FILE (*XCOM) SO THAT PARTS OF IT ARE AVAILABLE FOR EXTRACTION BY STUDENTS IN COMPILER WRITING COURSES. 00318/010 *XPL COMPILER O G *XPLCOMPILER 5.0T1 868 XPL.COMPILER.O.010 1 SEQ 240 29 PAGE UM SHERRY JULY 03, 1981 13:25:00 5.0T2 149 *XPLCOMPILER 0 XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER). 00318/011 *XPL *XPLIBRARY SX G *XPLIBRARY 5.0T1 869 XPL.*XPLIBRARY.SX.011 1 SEQ 80 1 PAGE UM SHERRY JULY 03, 1981 13:25:02 5.0T2 150 *XPLIBRARY 0 SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL. 00318/012 *XPL *SKELETON SX G *SKELETON 5.0T1 870 XPL.*SKELETON.SX.012 1 LINE 80 10 PAGE UM SHERRY JULY 03, 1981 13:25:03 5.0T2 151 *SKELETON 0 THIS IS THE MINIMAL FRAMEWORK FOR A TABLE-DRIVEN COMPILER. USER IS EXPECTED TO REPLACE THE SYNTAX TABLES WITH APPROPRIATE TABLES PRODUCED BY *ANALYZER AND COMPLETE THE COMPILER BY WRITING THE CODE SYNTHESIZER SECTION. 0 Referenced by comments of: 495/7 00318/013 *XPL ANALYZER SX G S0563 D4T1 VLO FSNAME=XPL.*ANALYZER.SX.013(1) 844 5.0T1 871 XPL.ANALYZER.SX.013 1 SEQ 80 33 PAGE UM SHERRY JULY 27, 1977 02:40:20 5.0T2 152 0 XPL PROGRAM TO ANALYZE A BNF DESCRIPTION OF A LANGUAGE AND PRODUCE TABLES FOR COMPILING IT. 0 Referenced by comments of: 495/6 1 MON AUG 05/96 18:37:45 Page 144 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00318/014 *XPL *ANALYZER O G *ANALYZER 5.0T1 872 XPL.*ANALYZER.O.014 1 SEQ 240 24 PAGE UM SHERRY JULY 03, 1981 13:25:07 5.0T2 153 *ANALYZER 0 XPL FORMAT OBJECT FILE. 00318/015 *XPL XPLBNF D G S0563 D4T1 VLO FSNAME=XPL.XPLBNF.D.015(1) 846 5.0T1 873 XPL.XPLBNF.D.015 1 SEQ 80 3 PAGE UM SHERRY JULY 27, 1977 02:40:28 5.0T2 154 0 BNF DESCRIPTION OF XPL SUITABLE FOR INPUT TO *ANALYZER. 00318/016 *XPL MEMO 230 WF S0563 D4T1 VLO FSNAME=XPL.MEMO_230.WF.016(1) 847 5.0T1 874 XPL.MEMO_230.WF.016 1 LINE 127 4 PAGE UM SHERRY JAN. 25, 1977 18:03:50 5.0T2 155 0 THIS IS COMPUTING CENTER MEMO 230 -- "XPL USER'S GUIDE" 00319/001 *FLIKPLT OC # (OBSOLETE) D3T2 251 FLIKPLT..OC. 1 LINE 80 15 PAGE UM JULY 31, 1973 23:03.29 00321/001 *PIB OC # (OBSOLETE) D3T2 252 PIB..OC. 1 LINE 80 122 PAGE UM JULY 31, 1973 23:03.31 00322/001A *2260RTN SA G MTA:2260RTN 5.0T4 297 2260RTN..SA.001 1 LINE 72 32 PAGE UM MTA AUG. 09, 1981 22:49:31 5.0T10 201 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 2260 DISPLAY. SUPPORT FOR THE @MAXLEN MODIFIER HAS BEEN ADDED, BUT NOT TESTED DUE TO LACK OF HARDWARE AT UM. ASSEMBLE USING COPY:MTS.MACROS (344/3). 00322/002A *2260RTN OC G *2260RTN 5.0T4 298 2260RTN..OC.002 1 LINE 80 4 PAGE UM MTA AUG. 09, 1981 22:49:34 5.0T10 202 *2260RTN 00324/001 EDITOR - OLD # (OBSOLETE) D3T2 255 UM FEB. 02, 1973 21:38.36 00326/001A STAT MONTHLY SUMMARY MAIN PGM SP G S0027 DISTRB FSNAME=SYSSTAT 5.0T1 875 STAT_MONTHLY_SUMMARY.MAIN.SP.001 1 LINE 99 17 PAGE UM ENGLE APR. 06, 1981 16:20:19 5.0T2 156 0 READS STATISTICS (*STATISTICS) TAPES OR FILES AND PRINTS MANY PAGES OF INTERESTING (HOPEFULLY) INFORMATION ABOUT A MONTHS RUNNING OF THE SYSTEM. IT ALSO READS CPU UTILIZATION AND HASP BATCH QUEUE STATISTICS FROM SSRTN (413/1), NORMALLY IN SYS:SSRTNSUMM, AND PRINTS THAT INFORMATION. THE FOLLOWING LOGICAL I/O UNITS ARE USED: 0 INPUT OF SSRTN (413/1) SUMMARY DATA. SPRINT OUTPUT. 1 MON AUG 05/96 18:37:45 Page 145 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE FOLLOWING PL/I FILE NAMES ARE USED: ERROR LOG OF SKIPPED INPUT RECORDS, LIST OF WEEKDAY MINUTES DURING WHICH THE MOST USERS WERE SIGNED ON, AND LIST OF WEEKEND MINUTES DURING WHICH THE MOST USERS WERE SIGNED ON. THE NUMBER OF MINUTES FOR EACH CATEGORY IS APPROXIMATELY 1% OF THE TOTAL MINUTES FOR THE COMBINED CATEGORIES. SAVE SAVE OR RESTORE INTERMEDIATE INFORMATION (SEE BELOW). SCARDS USES GET LIST FOR 6 OR 7 ITEMS, FOLLOWED BY GET DATA FOR 2 VARIABLES: 1) 'MM' MONTH TO ANALYZE, OR '00' LOOK AT ALL INPUT (REQUIRES 'FULL', Â'CPU', AND Â'MIXED') 2) 'YYYY' YEAR 3) 'PART' USE DATA FROM WHATEVER PART OF MONTH IS PRESENT, OR 'FULL' EXPECT DATA FROM ENTIRE MONTH, OR '9TO5' FILTERS ALL DATA EXCEPT 9AM TO 5PM, OR '5TOM' FILTERS ALL DATA EXCEPT 5PM TO MIDNIGHT, OR 'COUR' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS BEGINNING WITH "1", "2", OR "3", OR 'UGRD' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS 1AWA, 1BF4, 1AAA, 1AGA, 1APA, 1AVA, 1CXA, OR 1HGA. 4) 'REST' RESTORE DATA (CHECKPOINT) FROM SAVE, OR 'SAVE' SAVE (CHECKPOINT) DATA ON SAVE, OR 'USER' SAVE NUM OF USERS VERSUS TIME DATA ONLY ON SAVE, OR 'CPU.' SKIP EVERYTHING EXCEPT JOBS PROGRAM STATISTICS, OR 'NONE' NONE OF ABOVE 5) 'CPU' PROCESS JOBS STATISTICS DATA, SEE (413/10), OR 'YES' SAME AS 'CPU', OR 'NOT' OMIT PROCESSING OF JOBS STATISTICS 6) 'WHOLE' NO RATE CHANGE DURING PERIOD OF COMPUTATION, OR 'MIXED' RATE CHANGE OCCURRED 7) 'DD' FIRST DAY (OF MONTH) FOR NEW RATES. GIVE ONLY IF 'MIXED' GIVEN. 8) TESTCOUNT=N NUMBER OF INPUT RECORDS TO ECHO ON SPRINT (DEBUG) 9) DEBUG='1'B PRODUCES GENERAL DEBUG OUTPUT. PRINTS FOR ONLY N RECORDS IF TESTCOUNT GIVEN. THIS IS FOLLOWED BY ONE OR MORE LINES EACH CONTAINING A MOUNT REQUEST OR FILE NAME FOR STATISTICS RECORDS. THE LIST OF INPUT FILES IS TERMINATED BY "DONE" OR AN END-OF-FILE. AT UM, THE NORMAL INPUT USED IS: 'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE' ; STATM 9TP *T* VOL=STATM 'MMM 19YY MONTHLY STATISTICS' STAT 9TP *T* VOL=STAT 'MMM+1 1, 19YY, 1 A.M. DAILY STATISTICS' BILL 9TP *T* VOL=STAT 'MMM 19YY DAILY MTS STATISTICS FILE CHARGES' 1 MON AUG 05/96 18:37:45 Page 146 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 DONE THIS PROGRAM ALSO READS TWO FILES AUTOMATICALLY, *RATEFILE (651/8) AND BATCHID (326/7). 0 Referenced by comments of: 326/5, 326/6 00326/002A STAT MONTHLY SUMMARY MAIN PGM UC G S0027 DISTRB FSNAME=SYSSTATUPD 5.0T1 876 STAT_MONTHLY_SUMMARY.MAIN.UC.002 1 LINE 70 1 PAGE UM ENGLE APR. 06, 1981 16:20:39 5.0T2 157 00326/003 STAT MONTHLY SUMMARY PPAGES SUBR SP G S1319 D4.2T1 VLO FSNAME=STAT_MONTHLY_SUMMARY.PPAG.SP.002(1) 168 5.0T1 877 STAT_MONTHLY_SUMMARY.PPAG.SP.003 1 LINE 99 7 PAGE UM ENGLE JAN. 10, 1979 16:59:12 5.0T2 158 0 SUBROUTINE CALLED BY MAIN PROGRAM. 0 Referenced by comments of: 326/6 00326/004 STAT MONTHLY SUMMARY CPUSE SUBR SG G S1143 D4.1T1 VLO FSNAME=STAT_MONTHLY_SUMMARY.CPUS.SG.003(1) 104 5.0T1 878 STAT_MONTHLY_SUMMARY.CPUS.SG.004 1 LINE 179 4 PAGE UM ENGLE DEC. 13, 1977 16:12:06 5.0T2 159 0 SUBROUTINE WHICH READS SSRTN SUMMARY DATA, SEE (413/1), AND PRINTS THE RESULTS. CALLED ONLY IF 'CPU' IS SPECIFIED FOR THE FIFTH PARAMETER OR 'CPU.' IS SPECIFIED FOR THE FOURTH PARAMETER. 0 Referenced by comments of: 326/6, 413/1 00326/005 STAT MONTHLY SUMMARY SETRATE SP G S1319 D4.2T1 VLO FSNAME=STAT_MONTHLY_SUMMARY.SETR.SP.004(1) 169 5.0T1 879 STAT_MONTHLY_SUMMARY.SETR.SP.005 1 LINE 80 6 PAGE UM ENGLE JAN. 10, 1979 17:03:02 5.0T2 160 0 SUBROUTINES WHICH FILL IN A RATE STRUCTURE BY CALLING GETRATES AND DECOMPOSE A RATE NUMBER INTO SUBSCRIPTS. ASSUMPTION OF HOW RATE NUMBER IS COMPUTED IS BUILT-IN, SEE LINE 68 FF. (326/1) CALLS SETRATE TO DYNAMICALLY CONSTRUCT THE CURRENT AND OLD RATES. EXTERNAL REFERENCE TO GETRATE ON ESD CARD IN OBJECT DECK MUST BE CHANGED TO GETRATES. RUN WITH PROT=OFF. 0 Referenced by comments of: 326/6 00326/006A STAT MONTHLY SUMMARY OBJECT OE G S0027 DISTRB FSNAME=SYST 5.0T1 880 STAT_MONTHLY_SUMMARY.OBJE.OE.006 1 LINE 32767 81 PAGE UM ENGLE APR. 06, 1981 16:20:45 5.0T2 161 0 OBJECT MODULES FOR (326/1), (326/3), (326/4), AND (326/5). CONTAINS A SYSDEFS RIP CARD AND A $CONTINUE WITH *PL1LIB CARD. RUN WITH PROT=OFF. TO RUN, ISSUE SOMETHING LIKE: $RUN SYST 0=SYS:SSRTNSUMM SPRINT=OUT PAR=ERROR=-ERROR 1 MON AUG 05/96 18:37:45 Page 147 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00326/007 STAT MONTHLY SUMMARY BATCHID D S1430 4.3T1 VLO FSNAME=STAT_MONTHLY_SUMMARY.BATC.D.007(1) 183 5.0T1 881 STAT_MONTHLY_SUMMARY.BATC.D.007 1 LINE 4 1 PAGE UM ENGLE FEB. 20, 1980 14:02:26 5.0T2 162 0 100-LINE DATA FILE REFERENCED TO DEFINE THE MAPPING BETWEEN THE FIRST TWO DIGITS OF THE S-8 NUMBER AND THE REMOTE BATCH STATION ID'S. 0 Referenced by comments of: 326/1 00328/001 ALLLINES SA # (OBSOLETE) D2T1 264 UM 00330/001 ABKGET SP O S1430 4.3T1 VLO FSNAME=ABKGET..SP.001(1) 184 5.0T1 882 ABKGET..SP.001 1 LINE 80 5 PAGE UM DWB APR. 05, 1980 14:27:12 5.0T2 163 0 PROGRAM TO SORT AND TABULATE TERMINAL ANSWERBACK STATISTICS FROM *STATISTICS DATA. WILL READ INPUT FROM EITHER AN INDIVIDUAL OR MONTHLY STATISTICS TAPE. FIRST LINE OF INPUT MUST BE MONTH AND YEAR, SECOND AND SUCCEEDING LINES MUST BE FILE OR TAPE NAMES, OR MOUNT REQUESTS, TERMINATED BY AN END-OF-FILE OR "DONE" -- FOR EXAMPLE '01' '1977' (LINE MUST HAVE TRAILING BLANK) STATM 9TP *T* VOL=STATM 'JAN 1977' STAT 9TP *T* VOL=STAT '1 FEB 1977 01:00' DONE 00330/002 ABKGET OC O S1430 4.3T1 VLO FSNAME=ABKGET..OC.002(1) 185 5.0T1 883 ABKGET..OC.002 1 LINE 80 9 PAGE UM DWB APR. 05, 1980 14:27:14 5.0T2 164 00334/001 *SNOBOL4B MAIN SA G S0563 D4T1 VLO FSNAME=SNOBOL4B.MAIN.SA.001(1) 858 5.0T1 884 SNOBOL4B.MAIN.SA.001 1 SEQ 80 107 PAGE UM SWARTZ JULY 31, 1973 23:13.39 5.0T2 165 0 BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.0). THIS FILE IS ASSUMED TO BE FILE 1 ON THE INPUT TAPE FOR THE UPDATE. COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13). 0 Referenced by comments of: 334/8 00334/002 *SNOBOL4B SUBR SA G S0563 D4T1 VLO FSNAME=SNOBOL4B.SUBR.SA.002(1) 859 5.0T1 885 SNOBOL4B.SUBR.SA.002 1 SEQ 80 49 PAGE UM SWARTZ JULY 31, 1973 23:14.01 5.0T2 166 0 BELL LABS SOURCE FOR SUBROUTINES. THIS FILE IS ASSUMED TO BE FILE 6 ON THE INPUT TAPE FOR THE UPDATE. 00334/003 *SNOBOL4B CLEANIO SA G S0563 D4T1 VLO FSNAME=SNOBOL4B.CLEANIO.SA.003(1) 860 5.0T1 886 SNOBOL4B.CLEANIO.SA.003 1 SEQ 80 8 PAGE UM SWARTZ JULY 31, 1973 23:14.24 5.0T2 167 0 BELL LABS SOURCE FOR CLEANIO. THIS FILE IS ASSUMED TO BE FILE 5 ON THE INPUT TAPE FOR THE UPDATE. 1 MON AUG 05/96 18:37:45 Page 148 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00334/004 *SNOBOL4B BASIC MACROS SA G S0563 D4T1 VLO FSNAME=SNOBOL4B.BASIC_MACROS.SA.004(1) 861 5.0T1 887 SNOBOL4B.BASIC_MACROS.SA.004 1 SEQ 80 41 PAGE UM SWARTZ JULY 31, 1973 23:14.15 5.0T2 168 0 BELL LABS SOURCE FOR BASIC MACROS. THIS FILE IS ASSUMED TO BE FILE 4 ON THE INPUT TAPE FOR THE UPDATE. 00334/005 *SNOBOL4B NEW MACROS SA G S0563 D4T1 VLO FSNAME=SNOBOL4B.NEW_MACROS.SA.005(1) 862 5.0T1 888 SNOBOL4B.NEW_MACROS.SA.005 1 SEQ 80 5 PAGE UM SWARTZ JULY 31, 1973 23:14.21 5.0T2 169 0 BELL LABS SOURCE FOR NEW MACROS. THIS FILE IS ASSUMED TO BE FILE 3 ON THE INPUT TAPE FOR THE UPDATE. 00334/006 *SNOBOL4B GENERATE C S0563 D4T1 VLO FSNAME=SNOBOL4B.GENERATE.C.006(1) 863 5.0T1 889 SNOBOL4B.GENERATE.C.006 1 LINE 128 1 PAGE UM SWARTZ MAY 08, 1975 14:44:26 5.0T2 170 0 MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4B. 00334/007 *SNOBOL4B LINKEDIT C S0563 D4T1 VLO FSNAME=SNOBOL4B.LINKEDIT.C.007(1) 864 5.0T1 890 SNOBOL4B.LINKEDIT.C.007 1 LINE 56 1 PAGE UM SWARTZ MAY 08, 1975 14:44:28 5.0T2 171 0 MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4B. 00334/008 *SNOBOL4B UPDATE UU G S0563 D4T1 VLO FSNAME=SNOBOL4B.UPDATE.UU.008(1) 865 5.0T1 891 SNOBOL4B.UPDATE.UU.008 1 LINE 80 22 PAGE UM SWARTZ MAY 08, 1975 14:44:18 5.0T2 172 0 *UPDATE DECK TO MODIFIY BELL LABS SOURCE (334/1) TO BRING IT UP TO VERSION 3.10 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.10) AND TO ADD THE CHANGES NECESSARY TO RUN IT IN MTS. 00334/009 *SNOBOL4B OBJECT OE G *SNOBOL4B 5.0T1 892 SNOBOL4B.OBJECT.OE.009 1 SEQ 32767 41 PAGE UM SWARTZ JULY 03, 1981 13:35:44 5.0T2 173 *SNOBOL4B 0 OBJECT FROM ASSEMBLY OF MAIN, SUBR, AND CLEANIO PLUS FTN.O WHICH HAS BEEN COMBINED AND PURGED BY *LINKEDIT. 00334/010 *SNOBOL4B FTN.O OE G S0563 D4T1 VLO FSNAME=SNOBOL4B.FTN.O.OE.010(1) 867 5.0T1 893 SNOBOL4B.FTN.O.OE.010 1 LINE 255 5 PAGE UM SWARTZ MAY 08, 1975 14:44:42 5.0T2 174 0 FORTRAN I/O ROUTINES FOR USE BY SNOBOL4B. 00334/011 *SNOBOL4B MACLEAN # (SEE *SNOBOL4) UM SWARTZ 0 Same as MACLEAN under *SNOBOL4 (182/8). 1 MON AUG 05/96 18:37:45 Page 149 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00334/012 *SNOBOL4B TEST PGMS SS G S0563 D4T1 VLO FSNAME=SNOBOL4B.TEST_PGMS.SS.012(1) 868 5.0T1 894 SNOBOL4B.TEST_PGMS.SS.012 1 LINE 74 5 PAGE UM SWARTZ MAY 08, 1975 14:44:44 5.0T2 175 0 PROGRAMS FOR TESTING SNOBOL4B. 00335/001 *DITTO SA G S0791 FMTJNK 'FORMAT' FSNAME=DITTO 5.0T1 895 DITTO..SA.001 1 LINE 71 4 PAGE UM LIFT NOV. 28, 1977 21:13:32 5.0T2 176 0 PROGRAM TO PRODUCE DITTO (OR OTHER DUPLICATING PROCESS) MASTERS ON A 2741 OR 1050 FROM PRINTED OUTPUT (SUCH AS FROM *FORMAT) WHICH MAY INCLUDE OVERPRINTING. 00335/002 *DITTO OE G *DITTO 5.0T1 896 DITTO..OE.002 1 LINE 2070 2 PAGE UM LIFT JULY 03, 1981 13:36:10 5.0T2 177 *DITTO 00336/001 *SPL # (NOT DISTRIBUTED) D3T2 277 UM JULY 31, 1973 23:16.06 00337/001A PRINTTRACE SA G MTA:PRINTTRACE(1,999) 5.0T4 299 PRINTTRACE..SA.001 1 LINE 71 4 PAGE UM MTA AUG. 09, 1981 22:49:35 5.0T10 203 MTA.:PRINTTRACE 0 SUBROUTINE TO PRINT TRACE TABLE ENTRIES FROM DUMP TAPE OR STAT JOB TAPE. TO GET TRACE TABLE ON STAT JOB TAPE TYPE "TRCTP" ON OPERATORS CONSOLE. ASSEMBLE USING *SYSMAC. ********************************************************************************* D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONTAINS DISK MANAGER CHANGES AND OTHERS. ********************************************************************************* 0 Referenced by comments of: 400/1, 400/19, 1028/3 00337/002A PRINTTRACE OC G MTA:PRINTTRACE(1000,1999) 5.0T4 300 PRINTTRACE..OC.002 1 LINE 3016 3 PAGE UM MTA AUG. 09, 1981 22:49:37 5.0T10 204 00338/001 RIPPLE PN/QN SA O MTA:RIPPLE(1,999) 5.0T1 897 RIPPLE.PN/QN.SA.001 1 LINE 56 1 PAGE UM MTA JULY 03, 1981 13:36:11 5.0T2 178 MTA.:RIPPLE 0 PROGRAM TO RIPPLE PRINT ON A PN OR QN PRINTER. USEFUL FOR CLEANING A TRAIN OR CHECKING OUT A PRINTER. OLTEP (458) DOES A BETTER JOB. 0 Referenced by comments of: 338/4 00338/002 RIPPLE PN/QN OC O MTA:RIPPLE(1000) 5.0T1 898 RIPPLE.PN/QN.OC.002 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 13:36:11 5.0T2 179 1 MON AUG 05/96 18:37:45 Page 150 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00338/003 RIPPLE *RIP C *RIP 5.0T1 899 RIPPLE.*RIP.C.003 1 LINE 36 1 PAGE UM MTA JULY 03, 1981 13:36:12 5.0T2 180 *RIP 0 COMMAND FILE TO RUN MTA:RIPPLE(1000). INVOKED BY ENTERING "MTS *RIP , PTRX" ON THE OPERATOR'S CONSOLE, WHERE PTRX IS THE PRINTER TO BE RIPPLED. 0 Referenced by comments of: 338/6 00338/004 RIPPLE TN SA O MTA:TNRIP(1,999) 5.0T1 900 RIPPLE.TN.SA.004 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 13:36:13 5.0T2 181 MTA.:TNRIP 0 SAME AS (338/1) EXCEPT FOR TN PRINTERS. 00338/005 RIPPLE TN OC O MTA:TNRIP(1000) 5.0T1 901 RIPPLE.TN.OC.005 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 13:36:13 5.0T2 182 00338/006 RIPPLE *TNR C *TNR 5.0T1 902 RIPPLE.*TNR.C.006 1 LINE 18 1 PAGE UM MTA JULY 03, 1981 13:36:14 5.0T2 183 *TNR 0 SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000). 00339/001 WRITE80 S # (OBSOLETE) D2T1 165 UM 00340/001 READRESTP SA O MTA:READRESTP(1,999) 5.0T1 903 READRESTP..SA.001 1 LINE 72 9 PAGE UM MTA JULY 03, 1981 13:36:15 5.0T2 184 MTA:READRESTP 0 PROGRAM WHICH WILL READ A DUMP/RESTORE TAPE AND EXTRACT THINGS FROM AN OS, DOS, OR VS DATA SET. IT PRODUCES OUTPUT THAT CAN BE USED AS INPUT TO *UNLINKER (562). IT WILL PROCESS ANY OS DATA SET WHICH HAS NO MORE THAN 3 EXTENTS AND NO NOTE LISTS. IT PROMPTS FOR DATA SET NAMES USING GUSER AND SERCOM, READS FROM UNIT 0, AND WRITES ON UNIT 1. "LIST NAMES" ON GUSER WILL GET A LIST OF DSNAMES IN THE VTOC. COPIES *SENSEDSECT (3025). 0 Referenced by comments of: 340/2 00340/002 READRESTP SUBROUTINE SA O # (PART OF MTA:READRESTP) UM MTA 0 SUBROUTINE CALLED BY (340/1). 00340/003 READRESTP OC O MTA:READRESTP(1000) 5.0T1 904 READRESTP..OC.003 1 LINE 80 5 PAGE UM MTA JULY 03, 1981 13:36:18 5.0T2 185 00341/001 RDRSTP # (OBSOLETE) D2T1 168 UM 0 Obsoleted by *UNLINKER (562). 1 MON AUG 05/96 18:37:45 Page 151 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00342/001 LIBPRINT S # (OBSOLETE) D2T1 171 UM 00343/001 MTS.CONTAB SA # (OBSOLETE) D3.2T1 180 MTS.CONTAB..SA. 1 LINE 80 4 PAGE UM MAR. 21, 1975 01:24:57 0 Now part of COPY:MTS.MACROS (344/3). 00344/001A MTS.MACROS D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=MTS_MACROS 5.0T1 905 MTS.MACROS.D5.0_MASTER.SA.001 1 LINE 80 104 PAGE UM MTS HELFFRICH AUG. 05, 1981 02:18:08 5.0T2 186 0 D5.0 MASTER SOURCE FOR THE MTS MACRO LIBRARY WHICH IS USED TO ASSEMBLE MTS (042) AND THE "MTS SUBROUTINES" AS LISTED UNDER THE COMMENTS FOR (042/2) IN ADDITION TO MANY OTHER PROGRAMS. COPIES COPY:RATEVEC (651/3). 0 Referenced by comments of: 344/2 00344/002A MTS.MACROS UPDATE UC G MTS:MTSMACROSUPD 5.0T1 906 MTS.MACROS.UPDATE.UC.002 1 LINE 96 50 PAGE UM MTS HELFFRICH AUG. 05, 1981 02:18:11 5.0T2 187 0 MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE D5.0 (344/1) SOURCE FROM THE D4.1 SOURCE. 0 Referenced by comments of: 344/3 00344/003A MTS.MACROS MACRO LIBRARY SM G COPY:MTS.MACROS 5.0T1 907 MTS.MACROS.MACRO_LIBRARY.SM.003 1 LINE 72 62 PAGE UM MTS HELFFRICH AUG. 05, 1981 02:18:22 5.0T2 188 COPY:MTS.MACROS 0 THIS IS "COPY:MTS.MACROS" WHICH IS PRODUCED BY *MACUTIL (738), USING AS INPUT THE OUTPUT FROM THE *CDUPDATE RUN OF (344/2) AGAINST THE APPROPRIATE BASE SOURCE. 0 Referenced by comments of: 1/5, 1/9, 38/1, 42/1, 71/1, 101/1, 104/15, 116/1, 135/1, 198/1, 322/1, 343/1, 345/1, 346/1, 347/1, 348/1, 354/1, 354/5, 355/1, 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 388/1, 388/2, 400/5, 413/5, 447/1, 464/1, 482/60, 500/50, 509/1, 513/1, 529/1, 531/1, 531/7, 531/14, 535/1, 535/3, 539/1, 553/1, 553/2, 553/5, 559/2, 567/1, 570/1, 578/1, 585/1, 600/1, 600/3, 600/5, 600/7, 600/9, 615/15, 616/1, 617/1, 620/1, 622/1, 623/1, 624/1, 629/1, 631/1, 635/1, 636/1, 637/1, 638/1, 639/1, 640/1, 645/1, 648/1, 651/11, 677/1, 680/1, 707/1, 725/1, 732/1, 753/1, 753/3, 761/1, 761/3, 770/1, 777/1, 798/31, 798/33, 798/65, 798/67, 798/73, 798/79, 798/81, 806/1, 809/3, 809/4, 809/6, 811/3, 1067/5, 1070/3, 3024/1, 4000/1 00345/001 MTS.EQU SA # (OBSOLETE) D3.2T1 182 MTS.EQU..SA. 1 LINE 80 4 PAGE UM MAR. 21, 1975 01:25:01 0 Now part of COPY:MTS.MACROS (344/3). 00346/001 MTS.DSECT SA # (OBSOLETE) D3.2T1 183 MTS.DSECT..SA. 1 LINE 80 20 PAGE UM MAR. 21, 1975 01:25:03 0 Now part of COPY:MTS.MACROS (344/3). 1 MON AUG 05/96 18:37:45 Page 152 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00347/001 MTS.EQU2 SA # (OBSOLETE) D3.2T1 184 MTS.EQU2..SA. 1 LINE 81 4 PAGE UM MAR. 21, 1975 01:25:08 0 Now part of COPY:MTS.MACROS (344/3). 00348/001 MTS.RHTABLE SA # (OBSOLETE) D3.2T1 185 MTS.RHTABLE..SA. 1 LINE 80 3 PAGE UM MAR. 21, 1975 01:25:10 0 Now part of COPY:MTS.MACROS (344/3). 00350/001 BLOCKLETTER SA # (OBSOLETE) D2T1 252 UM 00353/001A BABYSIT *BBS C *BBS 5.0T1 908 BABYSIT.*BBS.C.001 1 LINE 37 1 PAGE UM WSG JULY 03, 1981 13:37:13 5.0T2 189 *BBS 0 Command file invoked by entering "MTS *BBS" from operator's console which signs on under user id "SYS." and runs (353/3) with i/o on the operator's console. 00353/002A BABYSIT SA O WSG:BBSIT 5.0T1 909 BABYSIT..SA.002 1 LINE 66 2 PAGE UM WSG JULY 03, 1981 13:37:14 5.0T2 190 0 Program to watch for specified users to signon or signoff. Useful for catching a pirate. Run with PROT=OFF. Copies COPY:LLMPSEQU (087) and COPY:GLOBALS (1026/3). 00353/003A BABYSIT OC O SYS:BABYSIT 5.0T1 910 BABYSIT..OC.003 1 LINE 80 1 PAGE UM WSG JULY 03, 1981 13:37:15 5.0T2 191 SYS:BABYSIT 0 Referenced by comments of: 353/1 00354/001A LLXU D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=LLXU 5.0T4 301 LLXU.D5.0_MASTER.SA.001 1 LINE 80 59 PAGE UM MTS SHERRY AUG. 09, 1981 22:49:39 5.0T10 205 0 LOAD/LINK/XCTL/UNLOAD SUBROUTINES, THE INTERFACE BETWEEN MTS AND UMLOAD. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 1/4, 42/2 00354/002A LLXU UPDATE UC G MTS:LLXUUPD 5.0T4 302 LLXU.UPDATE.UC.002 1 LINE 97 15 PAGE UM MTS SHERRY AUG. 09, 1981 22:49:40 5.0T10 206 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=LLXU. 1 MON AUG 05/96 18:37:45 Page 153 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00354/003A LLXU OC G # (PART OF RESIDENT SYSTEM) UM MTS SHERRY 0 Object part of Resident System (468) 00354/004A LLXU L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=LLXU.LIST 5.0T4 303 LLXU..L.004 1 LINE 133 151 PAGE UM MTS SHERRY AUG. 09, 1981 22:49:46 5.0T10 207 00354/005A LLXU LLXUTEST SA G W009:LLXUTEST.S 5.0T1 911 LLXU.LLXUTEST.SA.005 1 LINE 157 47 PAGE UM SHERRY JULY 03, 1981 13:37:16 5.0T2 192 0 PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD. ASSEMBLE USING *SYSMAC, COPY:CC.MACROS (1054/3), COPY:MTS.MACROS (344/3), COPY:MISC.MACROS (728) AND THE *OBJUTIL MISCELLANEOUS MACROS (721/15). COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND *CNFGINFODSECT (654). CONTAINS REFERENCE TO W009:LLXUTEST.XTL (354/9). DOCUMENTATION ON THE USE OF THIS PROGRAM IS CONTAINED IN THE WRITEUP (354/11). 0 Referenced by comments of: 354/7, 354/9, 354/11 00354/006A LLXU LLXUTEST OC G W009:LLXUTEST.O 5.0T1 912 LLXU.LLXUTEST.OC.006 1 LINE 9964 17 PAGE UM SHERRY JULY 03, 1981 13:37:36 5.0T2 193 00354/007A LLXU FAKEGATE SA G W009:FAKEGATE.S 5.0T1 913 LLXU.FAKEGATE.SA.007 1 LINE 68 1 PAGE UM SHERRY JULY 03, 1981 13:37:39 5.0T2 194 0 DUMMY VERSIONS OF ROUTINES IN GATE (4000) WHICH LLXU CALLS -- REQUIRED FOR LLXUTEST (354/5). 00354/008A LLXU FAKEGATE OC G W009:FAKEGATE.O 5.0T1 914 LLXU.FAKEGATE.OC.008 1 LINE 204 1 PAGE UM SHERRY JULY 03, 1981 13:37:40 5.0T2 195 00354/009A LLXU TOXCTL SA G W009:LLXUTEST.XTL(1000) 5.0T1 915 LLXU.TOXCTL.SA.009 1 LINE 50 1 PAGE UM SHERRY JULY 03, 1981 13:37:41 5.0T2 196 0 INTERFACE TO XCTL WHICH PERMITS XCTL TO BE TESTED BY LLXUTEST (354/5) WITHOUT UNLOADING THE TEST PROGRAM. 0 Referenced by comments of: 354/5 00354/010A LLXU TOXCTL OC G W009:LLXUTEST.XTL(1,999) 5.0T1 916 LLXU.TOXCTL.OC.010 1 LINE 80 1 PAGE UM SHERRY JULY 03, 1981 13:37:42 5.0T2 197 00354/011A LLXU TEST WRITEUP WF W009:LLXUTEST.W 5.0T1 917 LLXU.TEST_WRITEUP.WF.011 1 LINE 119 14 PAGE UM SHERRY JULY 03, 1981 13:37:43 5.0T2 198 0 WRITEUP DESCRIBING LLXUTEST (354/5). 1 MON AUG 05/96 18:37:45 Page 154 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 354/5 00355/001 STATSCN SA G STSC WSG:STATSCN(1,999) 5.0T1 918 STATSCN..SA.001 1 LINE 80 7 PAGE UM WSG JULY 03, 1981 13:37:50 5.0T2 199 WSG.:STATSCN 0 PROGRAM TO READ THROUGH *STATISTICS DATA (FROM FILE OR TAPE) LOOKING FOR SPECIFIED USERID-DATE COMBINATIONS. RECORDS FOR ANY OF THE SPECIFIED USERS ON THE SPECIFIED DATES ARE WRITTEN ON SPUNCH. FOR EXAMPLE: $RUN STATSCN(1000) SPUNCH=-F WSG. 05-08-73 STRT 04-XX-73 2A?? 06-XX-XX DONE *TAPE* *STATISTICS DONE WILL SCAN THROUGH THE TAPE *TAPE* AND THE FILE *STATISTICS LOOKING FOR ALL STATISTICS RECORDS FOR USER "WSG." ON 8 MAY 1973, USER "STRT" ON ANY DAY IN APRIL 1973, OR ANY USER ID BEGINNING WITH "2A" ON ANY DAY IN JUNE OF ANY YEAR. NOTE THAT XX'S MAY BE USED IN ANY FIELD(S) OF THE DATE. USER IDS MAY BE SPECIFIED AS "XXXX" (TO ACCEPT ANY USER ID) OR MAY CONTAIN A QUESTION MARK IN THE SECOND, THIRD, AND/OR FOURTH CHARACTER (TO ACCEPT ANY CHARACTER IN THE CORRESPONDING POSITION(S)). THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE). THE LISTSTAT PROGRAM (071) CAN THEN BE USED TO PRINT THE STATISTICS RECORDS. ASSEMBLE USING COPY:MTS.MACROS (344/3). 00355/002 STATSCN OC G WSG:STATSCN(1000) 5.0T1 919 STATSCN..OC.002 1 LINE 80 3 PAGE UM WSG JULY 03, 1981 13:37:52 5.0T2 200 00357/001A RCALL/ADROF SUBRS SA G RCAL S0027 DISTRB FSNAME=RCALL 5.0T1 920 RCALL/ADROF_SUBRS..SA.001 1 LINE 80 4 PAGE UM ENGLE AUG. 13, 1980 13:34:26 5.0T2 201 0 RCALL ALLOWS FORTRAN PROGRAMS TO CALL SUBROUTINES WITH R TYPE CALLING SEQUENCES, E.G. GETFD. ADROF ALLOWS FORTRAN PROGRAMS TO GET THE ADDRESS OF A VARIABLE, E.G. ADROF('ABC'). 00357/002A RCALL/ADROF SUBRS UC G S0027 DISTRB FSNAME=RCALLUPD 5.0T1 921 RCALL/ADROF_SUBRS..UC.002 1 LINE 72 2 PAGE UM ENGLE AUG. 13, 1980 13:34:31 5.0T2 202 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00357/003A RCALL/ADROF SUBRS OC G # (PART OF *LIBRARY) UM ENGLE 0 Object part of *LIBRARY (524/1) 1 MON AUG 05/96 18:37:45 Page 155 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00358/001A *TAPECOPY SA G S0792 WSGFS FSNAME=TAPECOPY 5.0T1 922 TAPECOPY..SA.001 1 LINE 72 9 PAGE UM WSG JUNE 10, 1981 16:51:23 5.0T2 203 0 Multiple file tape copy program. Copies labeled or unlabeled tapes, 7- or 9-track. 00358/002A *TAPECOPY OC G *TAPECOPY 5.0T1 923 TAPECOPY..OC.002 1 LINE 5127 3 PAGE UM WSG JULY 03, 1981 13:38:17 5.0T2 204 *TAPECOPY 00360/001A TIME SUBR SA G TIME S0027 DISTRB FSNAME=TIME 5.0T1 924 TIME_SUBR..SA.001 1 LINE 80 17 PAGE UM ENGLE FEB. 04, 1981 15:12:50 5.0T2 205 0 SUBROUTINE TO DO THINGS WITH THE TIME (DATE/TIME, CPU, AND ELAPSED). COPIES GRDEF (104/72) AND *CNFGINFODSECT (654). 0 Referenced by comments of: 67/23, 534/6, 798/3 00360/002C TIME SUBR UC G S0027 DISTRB FSNAME=TIMEUPD 5.0T1 925 TIME_SUBR..UC.002 1 LINE 71 1 PAGE UM ENGLE FEB. 04, 1981 15:13:04 5.0T2 206 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00360/003A TIME SUBR OC G SEG2:TIME 5.0T1 926 TIME_SUBR..OC.003 1 LINE 80 4 PAGE UM ENGLE JULY 03, 1981 13:38:36 5.0T2 207 SEG2:TIME 0 LOADED INTO SHARED VM BY PISTLE. 00387/001A HASP MAIN SA G HSP S0996 HASP 'MODULAR HASP' FSNAME=HASP.MAIN 5.0T1 927 HASP.MAIN.SA.001 1 LINE 80 216 PAGE UM HANSEN APR. 23, 1981 13:09:58 5.0T2 208 0 SOURCE FOR MAIN ASSEMBLY OF MTS HASP, WHICH IS DERIVED FROM IBM HASP II VERSION 2.3. THIS VERSION USES THE SLT (SEARCH LIST) INSTRUCTION, OPTIONALLY (&NOSLT), TO SEARCH PCE'S, DCT'S, AND MESSAGE BLOCKS. COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9), AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 0 Referenced by comments of: 9/1, 243/1, 400/1, 570/3 00387/002A HASP EXEC SA G EXEC S0996 HASP 'MODULAR HASP' FSNAME=HASP.EXEC 5.0T1 928 HASP.EXEC.SA.002 1 LINE 80 56 PAGE UM HANSEN APR. 23, 1981 13:10:18 5.0T2 209 0 COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9), AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 1 MON AUG 05/96 18:37:45 Page 156 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00387/003A HASP RDR SA G RDR S0996 HASP 'MODULAR HASP' FSNAME=HASP.RDR 5.0T1 929 HASP.RDR.SA.003 1 LINE 80 77 PAGE UM HANSEN JULY 22, 1981 17:46:01 5.0T2 210 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/004A HASP PPR SA G PPR S0996 HASP 'MODULAR HASP' FSNAME=HASP.PPR 5.0T1 930 HASP.PPR.SA.004 1 LINE 80 27 PAGE UM HANSEN APR. 23, 1981 13:10:38 5.0T2 211 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/005A HASP DATA SA G DATA S0996 HASP 'MODULAR HASP' FSNAME=HASP.DATA 5.0T1 931 HASP.DATA.SA.005 1 LINE 80 10 PAGE UM HANSEN APR. 23, 1981 13:10:47 5.0T2 212 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/006A HASP MACROS SM G MACS S0996 HASP 'MODULAR HASP' FSNAME=HASP.MACLIB 5.0T1 932 HASP.MACROS.SM.006 1 LINE 80 133 PAGE UM HANSEN APR. 23, 1981 13:10:51 5.0T2 213 0 HASP MACRO LIBRARY. 0 Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 387/26, 387/29, 387/30, 387/31, 387/34, 387/35 00387/007A HASP OPER SA G OPER S0996 HASP 'MODULAR HASP' FSNAME=HASP.OPER 5.0T1 933 HASP.OPER.SA.007 1 LINE 80 98 PAGE UM HANSEN APR. 23, 1981 13:11:30 5.0T2 214 0 COPIES COPY:GLOBALSETS (1026/2) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/008A HASP MXMTR SA G MXMT S0996 HASP 'MODULAR HASP' FSNAME=HASP.MXMTR 5.0T1 934 HASP.MXMTR.SA.008 1 LINE 80 18 PAGE UM HANSEN APR. 23, 1981 13:11:11 5.0T2 215 0 MERIT BATCH TRANSMITTER PROCESSOR. ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). COPIES COPY:GLOBALSETS (1026/2). 00387/009A HASP SEG2:HASP OC G S0996 HASP 'MODULAR HASP' FSNAME=HASP.D.SEG2 5.0T1 935 HASP.SEG2:HASP.OC.009 1 LINE 80 40 PAGE UM HANSEN JULY 31, 1981 02:37:17 5.0T2 216 SEG2:HASP 0 THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL. THIS FILE ALSO CONTAINS THE HASPLING (388) OBJECT. IF MERIT SUPPORT IS INCLUDED, THE MERIT ASCII/EBCDIC TRANSLATION TABLE (570/3) OBJECT MUST BE ADDED TO THIS FILE, A "COM MASCEBC EBCMASC" CARD MUST BE PLACED AT THE BEGINNING OF THIS FILE, AND THE SEG2:S2FILES (559/4) ENTRIES FOR HASP MUST BE CHANGED TO USE THE IPLCS OPTION (INSTEAD OF THE IPL OPTION). 1 MON AUG 05/96 18:37:45 Page 157 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 388/3, 570/4 00387/010A HASP LISTING L S1019 HASPLS POSN=HASP.LIST 5.0T1 936 HASP.LISTING.L.010 1 LINE 132 1260 PAGE UM HANSEN AUG. 05, 1981 02:25:26 5.0T2 217 00387/011 HASP HRTP1130 SA G 1130 W092:HRTP1130.U 5.0T1 937 HASP.HRTP1130.SA.011 1 LINE 80 176 PAGE UM HANSEN JULY 03, 1981 13:41:28 5.0T2 218 0 REMOTE TERMINAL PROGRAM FOR 1130. THIS IS THE OS VERSION WITH A FEW BUGS FIXED. 00387/012 HASP HRTPLOAD SA G LOAD W092:HRTPLOAD.U 5.0T1 938 HASP.HRTPLOAD.SA.012 1 LINE 80 38 PAGE UM HANSEN JULY 03, 1981 13:41:45 5.0T2 219 0 LOADER FOR REMOTE 1130 PROGRAM. THIS IS THE OS VERSION WITH A FEW BUGS FIXED. 00387/013A HASP HRTPB360 SA G B360 W092:HRTP360.ASM 5.0T1 939 HASP.HRTPB360.SA.013 1 LINE 80 104 PAGE UM HANSEN JULY 03, 1981 13:41:48 5.0T2 220 0 REMOTE PROGRAM FOR 360'S (BOTH MODEL 20 AND OTHER). THIS IS THE OS VERSION WITH BUGS FIXED. NOTE: THIS REMOTE PROGRAM IS FROM HASP II VERSION 3.1, ALTHOUGH IT WORKS OK WITH MTS HASP (WHICH WAS DERIVED PRINCIPALLY FROM HASP II VERSION 2.3). INCLUDES TN PRINTER SUPPORT. 00387/014 HASP HRTPSYS3 SA G S0563 D4T1 VLO FSNAME=HASP.HRTPSYS3.SA.018(1) 919 5.0T1 940 HASP.HRTPSYS3.SA.014 1 LINE 80 102 PAGE UM HANSEN AUG. 02, 1973 02:31.26 5.0T2 221 0 REMOTE PROGRAM FOR IBM SYSTEM/3. HERE AGAIN, THIS VERSION IS FROM HASP II VERSION 3.1. 00387/015 HASP RTPBOOT B G S0563 D4T1 VLO FSNAME=HASP.RTPBOOT.B.019(1) 920 5.0T1 941 HASP.RTPBOOT.B.015 1 LINE 160 1 PAGE UM HANSEN AUG. 02, 1973 02:31.40 5.0T2 222 0 BOOTSTRAP LOADER FOR 1130 REMOTE PROGRAM. THESE ARE THE SIX BINARY CARDS THAT THE HASP MANUAL TELLS YOU TO HAND PUNCH. THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN AND PLACED AT THE BEGINNING OF THE 1130 REMOTE PROGRAM DECK. NO SOURCE AVAILABLE. 00387/016 HASP LETRRIP SA G S0563 D4T1 VLO FSNAME=HASP.LETRRIP.SA.020(1) 921 5.0T1 942 HASP.LETRRIP.SA.016 1 LINE 80 2 PAGE UM HANSEN AUG. 02, 1973 02:31.42 5.0T2 223 0 PARTIAL SOURCE FOR AN MTS PROGRAM TO CONVERT 1130 OBJECT PROGRAMS ASSEMBLED BY *ASMG FROM ASMG OBJECT FORMAT TO 1130 BINARY OBJECT CARD FORMAT. READS FROM SCARDS, WRITES ON SPUNCH. 0 Referenced by comments of: 387/17 1 MON AUG 05/96 18:37:45 Page 158 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00387/017 HASP LETRRIP OC G S0563 D4T1 VLO FSNAME=HASP.LETRRIP.OC.021(1) 922 5.0T1 943 HASP.LETRRIP.OC.017 1 LINE 80 6 PAGE UM HANSEN AUG. 02, 1973 02:31.44 5.0T2 224 0 The object is in three parts: 1. The OS/360 object for LETRRIP from HASP with REP cards to patch all OS SVC's into invalid op-codes which produce program interrupts which can be fielded; 2. The object from (387/16); and 3. The object for the ALGOL compiler (or library) MTS interface, (505/2) or (505/22). 00387/018 HASP *HSP C *HSP 5.0T1 944 HASP.*HSP.C.018 1 LINE 9 1 PAGE UM WSG JULY 03, 1981 13:42:22 5.0T2 225 STRT:*HSP 0 COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:HSP (387/19). INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE. 00387/019 HASP HSP C MTS:TST.HSP 5.0T1 945 HASP.HSP.C.019 1 LINE 23 1 PAGE UM WSG JULY 03, 1981 13:42:23 5.0T2 226 STRT:HSP 0 THIS FILE ISSUES BUNCHES OF HASP COMMANDS ($START ET AL.). THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE I/O DEVICES IN USE AT EACH INSTALLATION. THE UM LOCAL VERSION (NOT THE DISTRIBUTED VERSION) STARTS *HLG (752). 0 Referenced by comments of: 387/18 00387/020 HASP *DRN C *DRN 5.0T1 946 HASP.*DRN.C.020 1 LINE 9 1 PAGE UM WSG JULY 03, 1981 13:42:23 5.0T2 227 STRT:*DRN 0 COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:DRN (387/21). INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE. 00387/021 HASP STRT:DRN C STRT:DRN 5.0T1 947 HASP.STRT:DRN.C.021 1 LINE 16 1 PAGE UM WSG JULY 03, 1981 13:42:24 5.0T2 228 STRT:DRN 0 THIS FILE ISSUES "$DRAIN SAXX" HASP COMMANDS USED TO DRAIN HASP PRIOR TO SHUTDOWN. THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE RJE LINES AVAILABLE (IF ANY) AT EACH INSTALLATION. 0 Referenced by comments of: 387/20 00387/022 HASP OPER MANUAL WF W225:HSPM.FMT 5.0T1 948 HASP.OPER_MANUAL.WF.022 1 LINE 225 29 PAGE UM DONNELLY JULY 03, 1981 13:42:25 5.0T2 229 0 MTS HASP OPERATOR'S MANUAL. NOTE: SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592). 1 MON AUG 05/96 18:37:45 Page 159 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00387/023 HASP PCE SNIFFER SA PCE HASP:PCE(1,999) 5.0T1 949 HASP.PCE_SNIFFER.SA.023 1 LINE 80 4 PAGE UM HANSEN JULY 03, 1981 13:42:34 5.0T2 230 MTS.:PCE 0 PCE SNIFFER UTILITY PROGRAM. EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE: F:N1 B:N2 T: N3P N4U N5B WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S, N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION, N3 IS THE NUMBER OF *PRINT* PCE'S, N4 IS THE NUMBER OF *PUNCH* PCE'S, AND N5 IS THE NUMBER OF *BATCH* PCE'S. IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS FROM THE PREVIOUS LINE PRINTED. IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE USER THEY THINK THEY ARE. IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS FROM THE JCT ID, IT PRINTS: PCE: AAAAA JCTID: IIII JOB TABLE: PPPPPPPP JOB N WHERE AAAAA IS THE HEX LOCN OF THE PCE, IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL), PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER), AND N IS THE JOB NUMBER. USES IOH (278) FOR OUTPUT FORMATTING AND REQUIRES THE HASP COPY SECTIONS. 0 Referenced by comments of: 569/1 00387/024 HASP PCE SNIFFER OC HASP:PCE(1000) 5.0T1 950 HASP.PCE_SNIFFER.OC.024 1 LINE 80 1 PAGE UM HANSEN JULY 03, 1981 13:42:35 5.0T2 231 0 Referenced by comments of: 569/1 00387/025A HASP WRITEUP WF S0996 HASP 'MODULAR HASP' FSNAME=HASP.WRUP 5.0T1 951 HASP.WRITEUP.WF.025 1 LINE 116 18 PAGE UM HANSEN APR. 23, 1981 14:18:33 5.0T2 232 0 A DISCUSSION OF THE D5.0 HASP COMPONENTS AND CHANGES WITH A DESCRIPTION OF HOW TO ASSEMBLE IT. 00387/026A HASP DUMP/ANAL SA S0996 HASP 'MODULAR HASP' FSNAME=D/A.ASM 5.0T1 952 HASP.DUMP/ANAL.SA.026 1 LINE 72 53 PAGE UM HANSEN APR. 23, 1981 14:05:07 5.0T2 233 0 THIS PROGRAM PERMITS A SYSTEM PROGRAMMER TO LOOK AT MEMORY OR A DUMP TAPE VIA A TAPE OPTIONALLY ASSIGNED TO UNIT 1 AND PRINT IT IN AN EASILY READABLE FORM. FORMS PERMITTED ARE PRIMARILY HASP DSECT FORMATS, E.G. PCE AND DCT, AND JOBTABLE OR DUMP FORMATS. A HELP COMMAND PROVIDES COMPREHENSIVE DESCRIPTIONS AS OBTAINED FROM (387/28). COPIES COPY:GLOBALSETS (1026/2) AND COPY:LLMPSEQU 1 MON AUG 05/96 18:37:45 Page 160 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (087). REQUIRES ASSEMBLY WITH THE HASP MACROS (387/6). CONTAINS MTS COMMANDS AT THE BEGINNING OF THE FILE TO ASSEMBLE IT. IT ALSO CONTAINS A SPECIAL VERSION OF THE SYSADR SUBROUTINE (400/10) WHICH READS FROM THE DUMP TAPE. IT REQUIRES THE VMFIND SUBROUTINE (400/3). 0 Referenced by comments of: 387/28 00387/027A HASP DUMP/ANAL OC S0996 HASP 'MODULAR HASP' FSNAME=D/A.D 5.0T1 953 HASP.DUMP/ANAL.OC.027 1 LINE 25000 22 PAGE UM HANSEN APR. 23, 1981 14:06:10 5.0T2 234 HASP:D/A 00387/028 HASP DUMP/ANAL HELP M S0996 HASP 'MODULAR HASP' FSNAME=D/A.HELP 5.0T1 954 HASP.DUMP/ANAL_HELP.M.028 1 LINE 68 5 PAGE UM HANSEN APR. 23, 1981 14:06:26 5.0T2 235 0 HELP MESSAGE FILE FOR USE BY DUMP/ANAL (387/26). THIS FILE IS IN THE FORM OF AN ASSEMBLER MACRO LIBRARY. 0 Referenced by comments of: 387/26 00387/029 HASP HASPTRACKS SA O S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.S 5.0T1 955 HASP.HASPTRACKS.SA.029 1 LINE 68 4 PAGE UM HANSEN APR. 23, 1981 14:06:43 5.0T2 236 0 PROGRAM TO CHECK FOR DUPLICATE OR MISSING TRACKS ON A HASP SPOOL PACK AND TO REPAIR (VERIFICATION REQUIRED) THE CYLINDER MAP IN MEMORY. THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM. REQUIRES THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY. COPIES COPY:GLOBALSETS (1026/2). CALLS THE SYSADR (400/10) SUBROUTINE. 0 Referenced by comments of: 387/30 00387/030A HASP HASPTRACKS OC O S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.D 5.0T1 956 HASP.HASPTRACKS.OC.030 1 LINE 256 6 PAGE UM HANSEN MAY 05, 1981 12:44:36 5.0T2 237 0 Object for HASPTRACKS (387/29) plus the object for SYSADR (400/10). ************************************************************************* D5.0 version: Reassembled with new version of (387/6). ************************************************************************* 00387/031 HASP QUESCAN SA O S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.S 5.0T1 957 HASP.QUESCAN.SA.031 1 LINE 71 5 PAGE UM HANSEN APR. 23, 1981 14:07:01 5.0T2 238 0 PROGRAM TO SCAN THE HASP QUEUE, VERIFYING THAT ALL ENTRIES ARE PROPERLY LINKED, LOCATING UNATTACHED SEGMENTS, AND MAKING OTHER TESTS. THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM. COPIES THE HASP COPY SECTIONS AND REQUIRES THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY. CALLS THE SYSADR (400/10) SUBR. COPIES COPY:GLOBALSETS (1026/2). 1 MON AUG 05/96 18:37:45 Page 161 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 387/32 00387/032A HASP QUESCAN OC O S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.D 5.0T1 958 HASP.QUESCAN.OC.032 1 LINE 256 6 PAGE UM HANSEN APR. 27, 1981 12:03:53 5.0T2 239 0 OBJECT FOR QUESCAN (387/31) PLUS THE OBJECT FOR SYSADR (400/10). 00387/033 HASP HASPSTAT CMDS C *HPS 5.0T1 959 HASP.HASPSTAT_CMDS.C.033 1 LINE 44 1 PAGE UM HANSEN AUG. 05, 1981 02:26:19 5.0T2 240 *HPS 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE HASPSTAT PROGRAM (387/34) TO CHECK FOR POSSIBLE HASP PROBLEMS. 00387/034 HASP HASPSTAT SA O S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.S 5.0T1 960 HASP.HASPSTAT.SA.034 1 LINE 68 3 PAGE UM HANSEN APR. 23, 1981 14:07:09 5.0T2 241 0 PROGRAM TO LOOK AT HASP WHILE IT'S RUNNING AND CHECK FOR POSSIBLE PROBLEMS. IF FOUND, THEY ARE PRINTED ON SERCOM. THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM. COPIES COPY:GLOBALSETS (1026/2). REQUIRES THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY. CALLS THE SYSADR (400/10) SUBR. 0 Referenced by comments of: 387/33, 387/35 00387/035A HASP HASPSTAT OC O S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.D 5.0T1 961 HASP.HASPSTAT.OC.035 1 LINE 256 5 PAGE UM HANSEN MAY 05, 1981 12:41:35 5.0T2 242 HASP:HASPSTAT 0 Object for HASPSTAT (387/34) plus the object for SYSADR (400/10). ************************************************************************* D5.0 version: Reassembled with new version of (387/6). ************************************************************************* 00387/036C HASP PMF PROJECT D G S0996 HASP 'MODULAR HASP' FSNAME=HASP.D.PMF 5.0T1 962 HASP.PMF_PROJECT.D.036 1 LINE 170 6 PAGE UM HANSEN MAY 05, 1981 12:44:47 5.0T2 243 0 This is a PMF project file for handling HASP and friends. It is used by the #PMF CLS (810). 00388/001A HASPLING MAIN SA G S0996 HASP 'MODULAR HASP' FSNAME=HASPLING 5.0T1 963 HASPLING.MAIN.SA.001 1 LINE 82 15 PAGE UM HANSEN JULY 31, 1981 02:37:05 5.0T2 244 0 COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3). ******************************************************************************* D5.0 VERSION: 1 MON AUG 05/96 18:37:45 Page 162 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Requires the Tape Unit Check Routines (787/15). ******************************************************************************* 0 Referenced by comments of: 387/9, 787/16 00388/002A HASPLING MNET SA G S0996 HASP 'MODULAR HASP' FSNAME=HSPLNG.MNET 5.0T1 964 HASPLING.MNET.SA.002 1 LINE 82 11 PAGE UM HANSEN APR. 23, 1981 14:07:55 5.0T2 245 0 ASSEMBLE USING COPY:MTS.MACROS (344/3). 00388/003A HASPLING OBJECT OC G # (PART OF SEG2:HASP) UM HANSEN 0 Part of SEG2:HASP (387/9). 00389/001 *GENLIB SA G S0563 D4T1 VLO FSNAME=GENLIB..SA.001(1) 938 5.0T1 965 GENLIB..SA.001 1 LINE 80 143 PAGE UM TIFFANY JULY 27, 1977 03:05:47 5.0T2 246 0 THIS IS THE SOURCE FOR *GENLIB. NOTE: *GENLIB IS STILL SUPPORTED BY UM, BUT *OBJUTIL (721) IS PREFERRED. 0 Referenced by comments of: 505/25 00389/002 *GENLIB OE G *GENLIB 5.0T1 966 GENLIB..OE.002 1 LINE 12279 14 PAGE UM TIFFANY JULY 03, 1981 13:43:28 5.0T2 247 *GENLIB 0 Contains a $CONTINUE WITH *LIBRARY (524/1) record. 00389/003 *GENLIB MESSAGES M ETC:GENLIBHELP 5.0T1 967 GENLIB.MESSAGES.M.003 1 LINE 66 10 PAGE UM TIFFANY JULY 03, 1981 13:43:30 5.0T2 248 ETC.:GENLIBHELP 0 MESSAGE FILE REFERENCED FOR THE EXPLAIN COMMAND. 00390/001 *QUE C *QUE(1,999) 5.0T1 968 QUE..C.001 1 LINE 30 1 PAGE UM WSG JULY 03, 1981 13:43:32 5.0T2 249 *QUE 0 COMMAND FILE TO PRINT A LISTING (ON *PRINT*) OF THE HASP QUEUE. INVOKED BY ENTERING "MTS *QUE" ON THE OPERATOR'S CONSOLE. 00390/002 *QUE PGM SA G S0563 D4T1 VLO FSNAME=QUE.PGM.SA.002(1) 942 5.0T1 969 QUE.PGM.SA.002 1 SEQ 80 2 PAGE UM WSG AUG. 02, 1973 02:35.17 5.0T2 250 0 PROGRAM TO PRINT OUT HASP QUEUE. 1 MON AUG 05/96 18:37:45 Page 163 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00390/003 *QUE PGM OC G *QUE(1000) 5.0T1 970 QUE.PGM.OC.003 1 LINE 80 1 PAGE UM WSG JULY 03, 1981 13:43:34 5.0T2 251 00391/001 FILE STATISTICS SP # (OBSOLETE) D2T1 123 UM 00392/001 *FSAVE SA # (OBSOLETE) D2.2 116 UM 0 Obsoleted by *FS (548). 0 Referenced by comments of: 549/1 00399/001A DUMP SA G S0699 D3TAPE POSN=DUMP.D5 5.0T4 304 DUMP..SA.001 1 LINE 80 12 PAGE UM MTA AUG. 09, 1981 22:49:53 5.0T10 208 0 THIS IS THE UMMPS SYSTEM DUMP PROGRAM. IT TAKES A DUMP OF ALL OF REAL MEMORY PLUS, OPTIONALLY, THE VM FOR A SPECIFIED JOB. IT WRITES THE DUMP UNFORMATED ONTO A 9-TRACK LABELED TAPE FOR WHICH THE VOLUME LABEL MUST BE 'DUMPXX'. THE PRINTDUMP PROGRAM (400) WILL PRINT SELECTED PARTS OF A DUMP TAPE. COPIES COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 399/2, 400/1 00399/002A DUMP UPDATE UC G MTA:DUMP.U 5.0T1 971 DUMP.UPDATE.UC.002 1 LINE 65 1 PAGE UM MTA JULY 03, 1981 13:43:35 5.0T2 252 0 UPDATES D4.0 TO PRODUCE (399/1). 00399/003A DUMP OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00400/001A PRINTDUMP D5.0 MAIN SA G S0699 D3TAPE POSN=DMPLST.D5 5.0T4 305 PRINTDUMP.D5.0_MAIN.SA.001 1 LINE 80 89 PAGE UM MTA AUG. 09, 1981 22:50:32 5.0T10 209 0 PRINTS DUMP TAPES PRODUCED BY SYSTEM DUMP (399). A SEPARATE DUMP PROGRAM IS ALSO AVAILABLE FOR HASP, SEE (387). PRINTDUMP REQUIRES PRINTTRACE (337), IOH (278) FOR THE "TRACE" COMMAND ONLY, TASKSTAT (647), AND LOADCLAS (540/8). COPIES COPY:LLMPSEQU (087), COPY:PCBDSECT (470), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:SETPARM (653) AND (400/18) AND COPY:MISC.MACROS (728). MOST SUBCOMPONENTS OF PRINTDUMP REQUIRE THE (400/18) MACROS. 0 Referenced by comments of: 9/1, 45/2, 399/1, 4003/1 1 MON AUG 05/96 18:37:45 Page 164 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00400/002A PRINTDUMP MAIN UPDATE UC G MTA:DMPLST.U(1) 5.0T4 306 PRINTDUMP.MAIN_UPDATE.UC.002 1 LINE 102 60 PAGE UM MTA AUG. 09, 1981 22:50:33 5.0T10 210 0 UPDATE TO PRODUCE THE CURRENT SOURCE FOR THE MAIN PROGRAM FROM THE D4.0 SOURCE. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: Changed for device table vector addition to job table format. Install if and only if D4.3A or D5.0 UMMPS is installed. Many other changes were also made. *********************************************************************************** 00400/003A PRINTDUMP 5.0 VMFIND SUB SA G S0699 D3TAPE POSN=DMPLST.VMFIND.D5 5.0T4 307 PRINTDUMP.5.0_VMFIND_SUB.SA.003 1 LINE 80 7 PAGE UM MTA AUG. 09, 1981 22:50:44 5.0T10 211 0 SUBROUTINE TO FIND A VM PAGE ON A DUMP TAPE. 0 Referenced by comments of: 387/26 00400/004A PRINTDUMP VMFIND SUB UPD UC G MTA:DMPLST.VMF.U(1) 5.0T4 308 PRINTDUMP.VMFIND_SUB_UPD.UC.004 1 LINE 51 1 PAGE UM MTA AUG. 09, 1981 22:50:45 5.0T10 212 00400/005A PRINTDUMP D5 SSCN SUBR SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=SSCN 5.0T4 309 PRINTDUMP.D5_SSCN_SUBR.SA.005 1 LINE 80 17 PAGE UM MTS MTA AUG. 09, 1981 22:50:48 5.0T10 213 0 D4.0 MASTER SOURCE FOR SUBROUTINE TO DUMP THE VM OF AN MTS TASK, FORMATTING IT APPROPRIATELY. MUST BE REASSEMBLED WHENEVER THE MTS DSECT IS CHANGED. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2, 400/8 00400/006A PRINTDUMP SSCN SUBR UPD UC G MTS:SSCNUPD 5.0T4 310 PRINTDUMP.SSCN_SUBR_UPD.UC.006 1 LINE 79 10 PAGE UM MTS MTA AUG. 09, 1981 22:50:49 5.0T10 214 0 MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=SSCN. 00400/007A PRINTDUMP SSCN SUBR LIST L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=SSCN.LIST 5.0T4 311 PRINTDUMP.SSCN_SUBR_LIST.L.007 1 LINE 133 50 PAGE UM MTS MTA AUG. 09, 1981 22:50:57 5.0T10 215 00400/008A PRINTDUMP 5.0 DUMP SUBR SA G S0699 D3TAPE POSN=DMPLST.DUMP.D5 5.0T4 312 PRINTDUMP.5.0_DUMP_SUBR.SA.008 1 LINE 80 4 PAGE UM MTA AUG. 09, 1981 22:50:58 5.0T10 216 0 SUBROUTINE TO FORMAT DUMP OUTPUT. CALLED BY SSCN (400/5). 1 MON AUG 05/96 18:37:45 Page 165 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00400/009A PRINTDUMP DUMP SUBR UC G MTA:DMPLST.DMP.U(1) 5.0T4 313 PRINTDUMP.DUMP_SUBR.UC.009 1 LINE 80 2 PAGE UM MTA AUG. 09, 1981 22:50:59 5.0T10 217 00400/010A PRINTDUMP 5.0 SYSADR SUB SA G S0699 D3TAPE POSN=DMPLST.SYSADR.D5 5.0T4 314 PRINTDUMP.5.0_SYSADR_SUB.SA.010 1 LINE 80 3 PAGE UM MTA AUG. 09, 1981 22:51:38 5.0T10 218 0 SUBROUTINE TO RESOLVE A NAME FROM THE UMLOAD SYMBOL TABLE FOR THE RESIDENT SYSTEM ON A DUMP TAPE. 0 Referenced by comments of: 387/26, 387/29, 387/30, 387/31, 387/32, 387/34, 387/35 00400/011A PRINTDUMP SYSADR UPDATE UC G MTA:DMPLST.ADR.U(1) 5.0T4 315 PRINTDUMP.SYSADR_UPDATE.UC.011 1 LINE 69 1 PAGE UM MTA AUG. 09, 1981 22:51:38 5.0T10 219 0 UPDATE TO PRODUCE CURRENT SOURCE FROM THE PREVIOUS SOURCE. 00400/012 PRINTDUMP 5.0 ICTAB SUBR SA G S0563 D4T1 VLO FSNAME=PRINTDUMP.ICTAB_SUBR.SA.008(1) 952 5.0T4 316 PRINTDUMP.5.0_ICTAB_SUBR.SA.012 1 LINE 80 21 PAGE UM MTA JULY 27, 1977 03:06:43 5.0T10 220 0 SUBROUTINE WHICH IMPLEMENTS THE ICTAB COMMAND FOR PRINTDUMP. THIS IS A MODIFIED VERSION OF TABLMOD (554). ASSEMBLE USING COPY:FILE.MACROS (482/45). 00400/013 PRINTDUMP 5.0 ICSTAT SUB SA G S0563 D4T1 VLO FSNAME=PRINTDUMP.ICSTAT_SUBR.SA.009(1) 953 5.0T4 317 PRINTDUMP.5.0_ICSTAT_SUB.SA.013 1 LINE 80 6 PAGE UM MTA JULY 27, 1977 03:06:45 5.0T10 221 0 VERSION OF THE ICSTAT SUBROUTINE, PART OF (482/34), THAT WORKS FROM A DUMP TAPE. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00400/014 PRINTDUMP CMDREAD SUBR SA G S1430 4.3T1 VLO FSNAME=PRINTDUMP.CMDREAD_SUBR.SA.016(1) 230 5.0T4 318 PRINTDUMP.CMDREAD_SUBR.SA.014 1 LINE 72 7 PAGE UM MTA APR. 05, 1980 14:40:26 5.0T10 222 0 SUBROUTINE TO READ COMMANDS. ASSEMBLE WITH COPY:CC.MACROS (1054/3). COPIES *GDINFODSECT (594). 00400/015 PRINTDUMP IOSETUP SUBR SA G S1430 4.3T1 VLO FSNAME=PRINTDUMP.IOSETUP_SUBR.SA.017(1) 231 5.0T4 319 PRINTDUMP.IOSETUP_SUBR.SA.015 1 LINE 72 4 PAGE UM MTA APR. 05, 1980 14:40:29 5.0T10 223 0 SUBROUTINE TO FIND A DUMP TAPE. COPIES *GDINFODSECT (594). 00400/016A PRINTDUMP ITDUMP SUBR SA G S0699 D3TAPE POSN=DMPLST.ITD.D5 5.0T4 320 PRINTDUMP.ITDUMP_SUBR.SA.016 1 LINE 80 19 PAGE UM MTA AUG. 09, 1981 23:04:03 5.0T10 224 0 DUMPS UBC INTERTASK STUFF (1081). ASSEMBLE WITH THE PRINTDUMP MACROS (400/18). COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:IT.COPY_SECT (1081/5). 1 MON AUG 05/96 18:37:45 Page 166 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1081/5 00400/017A PRINTDUMP ITDUMP SUB UPD UC G MTA:DMPLST.IT.U(1) 5.0T4 321 PRINTDUMP.ITDUMP_SUB_UPD.UC.017 1 LINE 70 3 PAGE UM MTA AUG. 09, 1981 23:04:04 5.0T10 225 00400/018A PRINTDUMP MACROS SM G MTA:DMPLST.MACROS 5.0T4 322 PRINTDUMP.MACROS.SM.018 1 LINE 75 3 PAGE UM MTA AUG. 09, 1981 23:04:05 5.0T10 226 MTA:DMPLST.MACROS 0 MACRO LIBRARY REQUIRED FOR ASSEMBLY BY MOST PARTS OF PRINTDUMP. 0 Referenced by comments of: 400/1, 400/16, 729/2, 814/4, 1012/1 00400/019A PRINTDUMP OC G MTS:PRINTDUMP 5.0T4 323 PRINTDUMP..OC.019 1 LINE 14698 27 PAGE UM MTA SEP. 04, 1981 02:55:56 5.0T10 227 MTS.:PRINTDUMP 0 THIS FILE CONTAINS THE OBJECT FOR ALL OF PRINTDUMP PLUS PRINTTRACE (337). 0 Referenced by comments of: 732/6, 814/2, 814/9, 814/11 00410/001A *ASMTIDY SA G LBT:ASMTIDY.S 5.0T1 972 ASMTIDY..SA.001 1 LINE 73 39 PAGE UM TIFFANY JULY 03, 1981 13:43:36 5.0T2 253 0 PROGRAM TO CLEAN UP AND ENTER ASSEMBLY PROGRAMS INTO FILES. USES ASMTIDY MACLIB (410/3) AND *SYSMAC. COPIES *GDINFODSECT (594). ****************************************************************************** D4.3A VERSION: THIS IS A NEW VERSION OF *ASMTIDY. THERE ARE SOME INCOMPATIBILITIES BETWEEN THIS VERSION AND THE OLD VERSION (LAST DISTRIBUTED ON D4.0). INDEXED WRITES ON SPUNCH ARE NO LONGER USED; USERS ARE ADVISED NOT TO ASSIGN SCARDS AND SPUNCH TO THE SAME FILE. THE ORIGINAL PARAMETER SEQ SHOULD BE CHANGED TO CARD FOR SEQ=ON AND FREE FOR SEQ=OFF. ASMTIDY'S SEQ PARAMETER SPECIFIES THAT IT IS TO PRODUCE SEQUENCE IDS IN COLUMNS 73-80 OF SPUNCH OUTPUT. ANOTHER PARAMETER, RE#, IS NO LONGER USED, AS THE OUTPUT CAN BE RENUMBERED BY SPECIFYING APPROPRIATE LINE NUMBERS AND INCREMENTS ON THE SPUNCH FILE. ASMTIDY CAN NOW PROCESS THE ICTL ASSEMBLER INSTRUCTION, TIDY CONTINUATIONS USING THE ALTERNATE FORMAT WHENEVER POSSIBLE, INDENT STRUCTURED PROGRAMMING MACROS, AND EDIT MACHINE INSTRUCTIONS (SUCH AS CHANGING NUMERICAL VALUES TO REGISTER EQUATES, OR REPLACING BC AND BCR INSTRUCTIONS WITH EXTENDED BRANCH INSTRUCTIONS). D5.0 Changes: 1. Two new parameters added: TERSE/VERBOSE 2. Message "***TIDYING COMPLETE***" has been changed to "n ASSEMBLY SOURCES TIDIED" to tell the user how many assembly sources were tidied. 3. The default has been changed from NOBATCH to BATCH. 1 MON AUG 05/96 18:37:45 Page 167 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ****************************************************************************** 0 Referenced by comments of: 410/3 00410/002A *ASMTIDY OC G *ASMTIDY 5.0T1 973 ASMTIDY..OC.002 1 LINE 15540 20 PAGE UM TIFFANY JULY 03, 1981 13:43:42 5.0T2 254 *ASMTIDY 00410/003A *ASMTIDY MACLIB SM G LBT:ASMTIDY.MAC 5.0T1 974 ASMTIDY.MACLIB.SM.003 1 LINE 73 4 PAGE UM TIFFANY JULY 03, 1981 13:43:45 5.0T2 255 0 Macro library used for assembling (410/1). 0 Referenced by comments of: 410/1 00413/001A SYSTEM STATUS SSRTN SA G WSG:SSRTN 5.0T1 975 SYSTEM_STATUS.SSRTN.SA.001 1 LINE 72 46 PAGE UM WSG JULY 03, 1981 13:43:46 5.0T2 256 WSG.:SSRTN 0 The System Status Routine, SSRTN, computes system load (CPU, paging, disk, channel, and drum space) during every 20 seconds of system operation. It is a subroutine called by the OPERATOR job (634), the JOBS job (413/3) and the MTS $SYSTEMSTATUS CLS (413/5). It also has a separate entry point, SSFMT, which only produces the formatted output vector as printed by the LOAD command. This entry is called by the OPERATOR job (to produce the top line on the console screen) and by the 3270 %ACTIVITY command (629/4). The MASTER command can only be activated by one task at a time. When issued, it causes that task to perform the load calculation every 20 seconds updating the information in the JOBSTA vector (413/7) for use by other tasks and also logging the data via CMDSTAT as record type 8. SSRTN calls BJPMOD (650), CHECKFE (731), TASKSTAT (647), TSKFMT (019), CMDSTATS (531), and PATHDEV (818). Copies COPY:BJPDSCT (650/3), COPY:JOBSTA (413/9), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), *CNFGINFODSECT (654), and COPY:MNTQINFDSECT (806/3). Changed as follows since D4.0: 1. SSFMT expanded to also return the header line for LOAD command. 2. DISPLAY command changed to allow optional JOB=n parameter immediately before the display address if issued by OPERATOR job, JOBS job, or $SY with user id MTS. When JOB=n is given, the private VM for job n is displayed, rather than the current job. 3. DISPLAY command changed to allow DISPLAY LOCK n for displaying which job, if any, currently has Supervisor lock n set. 4. The length of the HASP $ROUTAB table entries has been parameterized since the UM HASP now supports RJE passwords (requiring 32-byte $ROUTAB entries instead of 16). 5. The MASTER command now produces a summary record every 10 minutes (via a new CMDSTAT call -- type 19) which currently contains only 10 bytes of data, all halfwords: summary period length in seconds, average cpu utilization over summary period as percent * 100, average HASP exec queue length over summary period, max HASP exec queue length during period, and min HASP exec queue length during period. The SVEC command has been removed. The summary data is placed in the file SYS:SSRTNSUMM by *DWB (531/13) and may be printed by SUMMPRT (413/10) or summarized by 1 MON AUG 05/96 18:37:45 Page 168 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 the CPUSE subroutine (326/4) on a monthly basis. 6. If the external symbol CHECKFE is defined, the new "check front end" subroutine (731) is called every several minutes to check on the status (up, down, offline, etc.) of front end processors. It will inform the operator of any abnormal conditions it notices. Symbols in JOBSTA (413/9) are used to control the checking of the front ends and to report their status. At UM, the symbols JSCAS, JSCBS, JSCCS, and JSMNS are used for the status of the three data concentrators and the Merit front end respectively. 7. Allows for more than 999 real pages in various output formats. 8. Changed to maintain a count of the number of free job tables as well as a count of the number of additional grabs which can be done by 3270 jobs. 9. Messages now appear in upper/lower case. 10. Minor changes for CHECKFE, including calling it every interval and adding JSCDS for the fourth data concentrator. 11. Additional JOBSTA items added for use by BJPMOD. 12. Changed for device table vector addition to job table format. Install if and only if D4.3A or D5.0 UMMPS is installed. 13. A bug related to the mask used for finding the remote station routing in HASP queue entries has been fixed. 14. Several changes were made to the LOAD command to make it work more reliably when a job number is given as a parameter. 15. Use of DRUMTBL removed. 16. LOAD and JOB commands now print the disk I/O activity for the job. 17. DIS and MOD of non-user and non-system storage is now allowed even if a run-only program is loaded. 18. MOD of user storage now allowed for non-privileged users. 0 Referenced by comments of: 19/1, 45/2, 326/1, 326/4, 413/3, 413/5, 413/7, 413/10, 540/10, 647/1, 650/1, 731/1, 806/1, 806/2, 806/3, 818/1 00413/002A SYSTEM STATUS SSRTN OC G # (PART OF RESIDENT SYSTEM) UM WSG 0 Object part of Resident System (468) 00413/003 SYSTEM STATUS JOBS JOB SA G S0563 D4T1 VLO FSNAME=SYSTEM_STATUS.JOBS_JOB.SA.003(1) 963 5.0T1 976 SYSTEM_STATUS.JOBS_JOB.SA.003 1 LINE 80 3 PAGE UM WSG JULY 27, 1977 03:07:17 5.0T2 257 0 UMMPS job program named "JOBS" to interface to SSRTN (413/1) from the job program level. 0 Referenced by comments of: 413/1 00413/004 SYSTEM STATUS JOBS JOB OC G # (PART OF RESIDENT SYSTEM) UM WSG 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 169 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00413/005A SYSTEM STATUS SYS STAT CLS SA G WSG:SSTA.CLS(1,999) 5.0T1 977 SYSTEM_STATUS.SYS_STAT_CL.SA.005 1 LINE 71 8 PAGE UM WSG JULY 03, 1981 13:43:54 5.0T2 258 0 $SYSTEMSTATUS CLS for interfacing with SSRTN (413/1) from MTS command level. Assemble using COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 413/1, 806/1 00413/006A SYSTEM STATUS SYS STAT CLS OC G *CLSSSTA 5.0T1 978 SYSTEM_STATUS.SYS_STAT_CL.OC.006 1 LINE 2076 1 PAGE UM WSG JULY 03, 1981 13:43:57 5.0T2 259 *CLSSSTA 0 This file is normally loaded into shared VM at IPL by pistle. 00413/007 SYSTEM STATUS JOBSTA VECTOR SA G WSG:SSTA.VEC(1,999) 5.0T1 979 SYSTEM_STATUS.JOBSTA_VECT.SA.007 1 LINE 51 1 PAGE UM WSG JULY 03, 1981 13:43:57 5.0T2 260 0 System status information vector maintained by SSRTN (413/1). Copies COPY:JOBSTA (413/9). 0 Referenced by comments of: 413/1, 540/10 00413/008A SYSTEM STATUS JOBSTA VECTOR OC G # (PART OF RESIDENT SYSTEM) UM WSG 0 This object deck should be kept in segment 0 to reduce the overhead of the SVC WAYT in SSRTN. Object part of Resident System (468) 00413/009A SYSTEM STATUS JOBSTA DSECT SA G COPY:JOBSTA 5.0T1 980 SYSTEM_STATUS.JOBSTA_DSEC.SA.009 1 LINE 71 3 PAGE UM WSG AUG. 05, 1981 02:27:50 5.0T2 261 COPY:JOBSTA 0 This is the DSECT for the system status vector. 0 Referenced by comments of: 42/1, 101/1, 198/1, 387/1, 387/2, 413/1, 413/7, 540/10, 634/1, 647/1, 650/1, 731/1, 806/1, 3024/3, 4000/33 00413/010 SYSTEM STATUS SUMMPRT SG G WSG:SUMMPRT(1,999) 5.0T1 981 SYSTEM_STATUS.SUMMPRT.SG.010 1 LINE 121 1 PAGE UM WSG JULY 03, 1981 13:43:59 5.0T2 262 WSG.:SUMMPRT 0 GOM program to print summary data collected by SSRTN (413/1). 0 Referenced by comments of: 326/1, 413/1 00413/011 SYSTEM STATUS SUMMPRT OC G WSG:SUMMPRT(1000) 5.0T1 982 SYSTEM_STATUS.SUMMPRT.OC.011 1 LINE 80 2 PAGE UM WSG JULY 03, 1981 13:44:00 5.0T2 263 1 MON AUG 05/96 18:37:45 Page 170 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00413/012 SYSTEM STATUS DOCUMENTATION WF WSG:SSRTN.DOC 5.0T4 324 SYSTEM_STATUS.DOCUMENTATI.WF.012 1 LINE 106 3 PAGE UM WSG AUG. 09, 1981 23:04:10 5.0T10 228 0 Writeup describing the system load computation algorithm and job scheduling mechanism. (Note: this writeup is slightly out-of-date.) 00414/001 *TAPEDUMP SA G S0792 WSGFS FSNAME=TAPEDUMP 5.0T1 983 TAPEDUMP..SA.001 1 LINE 73 10 PAGE UM WSG AUG. 29, 1980 17:33:28 5.0T2 264 0 Program to dump 7- or 9-track tapes or files. 00414/002 *TAPEDUMP OE G *TAPEDUMP 5.0T1 984 TAPEDUMP..OE.002 1 LINE 3883 3 PAGE UM WSG JULY 03, 1981 13:44:05 5.0T2 265 *TAPEDUMP 00418/001 *HBT S # (OBSOLETED BY *...*) D2T1 183 UM 00421/001 *SCN S # (OBSOLETED BY *...*) D2T1 199 UM 00422/001 FORTRAN LIBRARY SA # (OBSOLETE) D3T2 350 FORTRAN_LIBRARY.IBCOM#.SA.1 1 LINE 80 29 PAGE UM AUG. 02, 1973 02:49.57 0 Obsoleted by FIX (1002). 00436/001 GTDJMSR SA DWB:GRJTM(1,124) 5.0T1 985 GTDJMSR..SA.001 1 LINE 77 3 PAGE UM DWB JULY 03, 1981 13:44:05 5.0T2 266 DWB.:GRJTM 0 SUBROUTINE TO CONVERT GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900. SIMILAR TO GRGJULTM (518), BUT TAKES DIFFERENT ARGUMENTS. 00436/002 GTDJMSR OC # (PART OF *LIBRARY) UM DWB 0 Object part of *LIBRARY (524/1) 00436/003 GTDJMSR GTDJMS SA DWB:GTDJMS(1,999) 5.0T1 986 GTDJMSR.GTDJMS.SA.003 1 LINE 77 1 PAGE UM DWB JULY 03, 1981 13:44:06 5.0T2 267 DWB.:GTDJMS 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO GTDJMSR. CONVERTS GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900. 00436/004 GTDJMSR GTDJMS OC # (PART OF *LIBRARY) UM DWB 0 Object part of *LIBRARY (524/1) 1 MON AUG 05/96 18:37:45 Page 171 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00437/001 JMSGTDR/JTUGTDR SA DWB:JMSGTDR(125,999) 5.0T1 987 JMSGTDR/JTUGTDR..SA.001 1 LINE 77 4 PAGE UM DWB JULY 03, 1981 13:44:07 5.0T2 268 DWB.:JMSGTDR 0 SUBROUTINE TO CONVERT JULIAN MICRO-SECONDS TO GREGORIAN TIME AND DATE. SIMILAR TO JULGRGTM (522), BUT TAKES DIFFERENT ARGUMENTS. HAS ALTERNATE ENTRY POINT (JTUGTDR) WHICH CONVERTS JULIAN TIMER-UNITS TO GREGORIAN TIME AND DATE. THIS IS THE UBC-CORRECTED VERSION OF FEB/77 WITH A FEW ADDITIONAL UM CORRECTIONS ADDED. 00437/002 JMSGTDR/JTUGTDR OC # (PART OF *LIBRARY) UM DWB 0 Object part of *LIBRARY (524/1) 00437/003 JMSGTDR/JTUGTDR JMSGTD SA DWB:JMSGTD(1,999) 5.0T1 988 JMSGTDR/JTUGTDR.JMSGTD.SA.003 1 LINE 77 1 PAGE UM DWB JULY 03, 1981 13:44:08 5.0T2 269 DWB.:JMSGTD 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JMSGTDR. 00437/004 JMSGTDR/JTUGTDR JMSGTD OC # (PART OF *LIBRARY) UM DWB 0 Object part of *LIBRARY (524/1) 00437/005 JMSGTDR/JTUGTDR JTUGTD SA DWB:JTUGTD(1,999) 5.0T1 989 JMSGTDR/JTUGTDR.JTUGTD.SA.005 1 LINE 77 1 PAGE UM DWB JULY 03, 1981 13:44:08 5.0T2 270 DWB.:JTUGTD 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JTUGTDR. 00437/006 JMSGTDR/JTUGTDR JTUGTD OC # (PART OF *LIBRARY) UM DWB 0 Object part of *LIBRARY (524/1) 00441/001 *FILEUSE SA G # (OBSOLETE) D3T2 369 FILEUSE..SA.1 1 LINE 80 5 PAGE UM AUG. 02, 1973 02:54.05 0 Obsoleted by the FILESTATUS command (529). 00442/001A CCATL SA O CCAT FILE:CCATL(1000) 5.0T1 990 CCATL..SA.001 1 LINE 80 18 PAGE UM HELFFRICH JULY 03, 1981 13:44:09 5.0T2 271 FILE:CCATL 0 THE GENERAL OPERATION OF THIS PROGRAM IS TO ALLOCATE AN *MASTER.CATALOG0 OF THE REQUESTED SIZE AND THEN SUBALLOCATE TO THE MICAT, SYSCAT, SFCAT, AND USER CATALOG AS REQUESTED, ALLOCATING ADDITIONAL *MASTER.CATALOGN'S AS NECESSARY. AS A RESULT THE FOUR "LOGICAL PIECES" OF THE CATALOG MAY BE MADE TO ALL FALL WITHIN THE SAME EXTENT OR IN FOUR SEPARATE EXTENTS (AND VOLUMES) OR SOMEWHERE IN BETWEEN DEPENDING ON HOW THE EXTENT SIZES AND CATALOG SIZES ARE SPECIFIED. (AT UM, PUT THE MICAT, SYSCAT, AND SFCAT ON THREE SEPARATE VOLUMES TO MINIMIZE CONTENTION.) ASSEMBLE USING COPY:FILE.MACROS (482/45). SEE COMP 1 MON AUG 05/96 18:37:45 Page 172 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (682/2) FOR A WRITEUP. 0 Referenced by comments of: 682/2 00442/002A CCATL OC O FILE:CCATL(1,999) 5.0T1 991 CCATL..OC.002 1 LINE 80 5 PAGE UM HELFFRICH JULY 03, 1981 13:44:13 5.0T2 272 00443/001 FORMAT-TEXT360 CONVERTER SS S W073:FORMAT2T360 5.0T1 992 FORMAT-TEXT360_CONVERTER..SS.001 1 LINE 90 9 PAGE UM SALISBURY JULY 03, 1981 13:44:15 5.0T2 273 0 SNOBOL PROGRAM TO CONVERT INPUT FOR *FORMAT TO INPUT FOR TEXT/360. THIS PROGRAM HAS MANY LIMITATIONS AND SOME KNOWN BUGS, BUT IS USUALLY BETTER THAN RETYPING. 00444/001A MTS VOLUME 2 MASTER WT S0485 MTSV2 'MTS MANUALS' POSN=NEWM13.V2 5.0T1 993 MTS_VOLUME_2.MASTER.WT.001 1 SEQ 132 283 PAGE UM MANUAL JULY 03, 1981 13:45:49 5.0T2 274 0 TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUALS, ISSUED DECEMBER 1978, UPDATED OCTOBER 1979, APRIL 1980, AND MAY 1981. EDITOR: RICHARD A. SALISBURY 00444/002A MTS VOLUME 2 PRINT PT S0485 MTSV2 'MTS MANUALS' POSN=PRINT13.V2 5.0T1 994 MTS_VOLUME_2.PRINT.PT.002 1 SEQ 132 525 PAGE UM MANUAL JULY 03, 1981 13:46:02 5.0T2 275 0 TEXT/360 PRINT FILE. 00444/003 MTS VOLUME 2 FLOWCHART P S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_2.FLOWCHART.P.003(1) 219 5.0T1 995 MTS_VOLUME_2.FLOWCHART.P.003 1 SEQ 133 6 PAGE UM MANUAL MAR. 26, 1979 02:54:14 5.0T2 276 0 *FLOWCHART EXAMPLE -- MUST BE PRINTED AT 8 LINES/INCH. 00444/004 MTS VOLUME 2 UPDATE 1 PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_2.UPDATE_1.PT.004(1) 242 5.0T1 996 MTS_VOLUME_2.UPDATE_1.PT.004 1 LINE 152 99 PAGE UM MANUAL APR. 05, 1980 14:43:20 5.0T2 277 0 THIS IS COMPUTING CENTER MEMO 410 -- "UPDATE 1 TO MTS VOLUME 2," OCTOBER 1979. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00444/005 MTS VOLUME 2 UPDATE 2 PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_2.UPDATE_2.PT.005(1) 243 5.0T1 997 MTS_VOLUME_2.UPDATE_2.PT.005 1 LINE 105 41 PAGE UM MANUAL APR. 05, 1980 14:43:28 5.0T2 278 0 THIS IS "UPDATE 2 TO MTS VOLUME 2," APRIL 1980. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 1 MON AUG 05/96 18:37:45 Page 173 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00444/006C MTS VOLUME 2 UPDATE 2 PT W073:TNLV2.MAY81 5.0T1 998 MTS_VOLUME_2.UPDATE_2.PT.006 1 LINE 78 70 PAGE UM MANUAL JULY 03, 1981 13:47:06 5.0T2 279 0 This is "Update 3 to MTS Volume 2," May 1981. 00447/001 MOUNT STATISTICS MNTSTAT SUBR SA G S0563 D4T1 VLO FSNAME=MOUNT_STATISTICS.MNTSTAT.SA.001(1) 986 5.0T1 999 MOUNT_STATISTICS.MNTSTAT.SA.001 1 LINE 80 3 PAGE UM WSG JAN. 14, 1977 15:13:26 5.0T2 280 0 THE MOUNT STATISTICS FACILITY IS USED TO SAVE INFORMATION ABOUT MOUNTS AND ATTEMPTED MOUNTS WHICH FAIL. THIS INFORMATION IS COLLECTED VIA THE CMDSTAT FACILITY (531) AS RECORD TYPE 16. THE CMDSTAT FACILITY PERIODICALLY PLACES THE MNTSTAT RECORDS IN THE FILE SYS:MOUNTSTAT. THE SAVMS PROGRAM (447/3) SHOULD BE RUN ABOUT MONTHLY TO DUMP THE DATA FROM THIS FILE ONTO TAPE. THE SAVMS PROGRAM WILL LEAVE THE RECORD FOR THE LAST REFERENCE TO EACH RACK NUMBER IN THE FILE FOR ACCESS BY THE MSSCN PROGRAM (447/5) AND DELETE OLDER RECORDS. THE MSDEL PROGRAM (447/8) CAN BE USED TO DELETE ANY ADDITIONAL UNWANTED RECORDS AFTER SAVMS HAS BEEN RUN. MNTSTAT IS A SUBROUTINE CALLED BY THE MOUNT COMMAND (101) TO LOG STATISTICS RECORDS ABOUT EACH MOUNT REQUEST. ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 101/1, 101/2, 447/3, 447/8 00447/002 MOUNT STATISTICS MNTSTAT SUBR OC G # (PART OF *CLSMOUNT) UM WSG 0 Part of *CLSMOUNT (101/2). 00447/003 MOUNT STATISTICS SAVMS PGM SA G SVMS WSG:SAVMS(1,999) 5.0T1 1000 MOUNT_STATISTICS.SAVMS_PG.SA.003 1 LINE 80 7 PAGE UM WSG JULY 03, 1981 13:47:19 5.0T2 281 WSG.:SAVMS 0 PROGRAM TO DUMP THE MOUNT STATISTICS FROM SYS:MOUNTSTAT TO TAPE. THIS PROGRAM IS RUN MONTHLY AT UM. IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A TAPE AND THEN DELETES ALL BUT THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH RACK NUMBER. AT UM, THIS LEAVES ABOUT 100 PAGES WORTH OF MOUNT STATISTICS. THIS IS DONE SO THAT AN ONLINE FILE CONTAINING THE LAST REFERENCE (AND LAST POTENTIAL CHANGE) FOR EACH TAPE IS AVAILABLE FOR THE MSSCN PROGRAM (447/5). THE FILE SYS:MOUNTSTAT MUST BE A LINE FILE. THE TAPE IS BLOCKED VB(16379,255). AT UM, WE COPY EACH MONTH'S TAPE ONTO THE END OF A LARGER TAPE, SAVING THE MOUNT STATISTICS INDEFINITELY. IT IS ADVISABLE TO OCCASIONALLY OPTIMIZE SYS:MOUNTSTAT BY COPYING IT TO ANOTHER FILE AND BACK SINCE THE PROCESS OF DELETING THE OLD RECORDS (BY SAVMS) CAUSES THE FILE TO BECOME UNOPTIMIZED. THIS PROGRAM WILL HANDLE A MIXTURE OF BOTH THE RECORDS PRODUCED BY MNTSTAT (447/1) VIA CMDSTAT AND THE OLDER RECORDS PRODUCED BY THE D3.0 TAPESTAT PROGRAM. 0 Referenced by comments of: 447/1 1 MON AUG 05/96 18:37:45 Page 174 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00447/004 MOUNT STATISTICS SAVMS PGM OC G WSG:SAVMS(1000) 5.0T1 1001 MOUNT_STATISTICS.SAVMS_PG.OC.004 1 LINE 80 2 PAGE UM WSG JULY 03, 1981 13:47:20 5.0T2 282 00447/005 MOUNT STATISTICS MSSCN PGM SA G MSSN WSG:MSSCN(1,999) 5.0T1 1002 MOUNT_STATISTICS.MSSCN_PG.SA.005 1 LINE 80 13 PAGE UM WSG JULY 03, 1981 13:47:21 5.0T2 283 WSG.:MSSCN 0 PROGRAM TO SCAN MOUNT STATISTICS RECORDS (FROM FILE OR TAPE) LOOKING FOR SPECIFIED RACK NUMBERS OR USERS FOR SPECIFIED DATE RANGES. IT PRINTS THE RECORDS ON SPRINT SORTED BY RACK NUMBER AND DATE/TIME. FOR EXAMPLE, $RUN MSSCN(1000) SCARDS=SYS:MOUNTSTAT R S0622 03-25-76 05-22-76 U WSG. 01-14-77 P ABCD R S08## $ENDFILE WILL SCAN SYS:MOUNTSTAT FOR ALL MOUNTS OF TAPE S0622 FROM 25 MAR 76 TO 22 MAY 76, FOR ALL MOUNTS BY USER WSG ON 14 JAN 77, FOR ALL MOUNTS BY PROJECT ABCD, AND FOR ALL MOUNTS OF TAPES WITH RACK NUMBERS BEGINNING WITH S08 FOLLOWED BY ANY TWO CHARACTERS. IF SCARDS IS NOT ASSIGNED, MSSCN WILL PROMPT FOR FDNAMES TO BE SCANNED. IF MORE THAN 500 RECORDS ARE LIKELY TO BE OUTPUT, THE PROGRAM SHOULD BE RUN WITH PAR=N, WHERE N IS AN UPPER BOUND (USED FOR SORTING). THIS PROGRAM WILL ALSO ACCEPT THE OLDER RECORDS PRODUCED BY THE D3.0 TAPESTAT PROGRAM (NOW OBSOLETE). 0 Referenced by comments of: 447/1, 447/3, 447/7 00447/006 MOUNT STATISTICS MSSCN PGM OC G SYS:MSSCN 5.0T1 1003 MOUNT_STATISTICS.MSSCN_PG.OC.006 1 LINE 80 3 PAGE UM WSG JULY 03, 1981 13:47:23 5.0T2 284 SYS.:MSSCN 00447/007 MOUNT STATISTICS *MSS C *MSS 5.0T1 1004 MOUNT_STATISTICS.*MSS.C.007 1 LINE 54 1 PAGE UM WSG JULY 03, 1981 13:47:24 5.0T2 285 *MSS 0 COMMAND FILE USED BY THE OPERATORS TO RUN MSSCN (447/5). INVOKED BY ENTERING "MTS *MSS" ON THE OPERATOR'S CONSOLE. 00447/008 MOUNT STATISTICS MSDEL PGM SA G WSG:MSDEL(1,999) 5.0T1 1005 MOUNT_STATISTICS.MSDEL_PG.SA.008 1 LINE 64 2 PAGE UM WSG JULY 03, 1981 13:47:25 5.0T2 286 WSG.:MSDEL 0 PROGRAM USED TO DELETE UNWANTED RECORDS FROM THE MOUNT STATISTICS FILE SYS:MOUNTSTAT. IT ASKS FOR RACK NUMBERS TO BE DELETED, WHICH MUST BE ENTERED ONE PER LINE, FOLLOWED BY AN END-OF-FILE. IT MAKES ONE PASS THROUGH SYS:MOUNTSTAT, WHICH IS LOCKED FOR MODIFICATION, AND DELETES ANY RECORD WHICH HAS ONE OF THE SPECIFIED RACK NUMBERS. AT UM, THIS PROGRAM IS RUN PERIODICALLY TO CLEAN OUT OLD SERIES OF RACK NUMBERS TO KEEP SYS:MOUNTSTAT AT A REASONABLE SIZE. THIS PROGRAM WILL NEVER DELETE ANY RECORD WHICH HAS NOT BEEN PREVIOUSLY SAVED ON TAPE AND WILL HANDLE A FILE WHICH IS A MIXTURE OF RECORDS PRODUCED BY MNTSTAT (447/1) AND THE D3.0 TAPESTAT PROGRAM (NOW OBSOLETE). 1 MON AUG 05/96 18:37:45 Page 175 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 447/1 00447/009 MOUNT STATISTICS MSDEL PGM OC G WSG:MSDEL(1000) 5.0T1 1006 MOUNT_STATISTICS.MSDEL_PG.OC.009 1 LINE 80 2 PAGE UM WSG JULY 03, 1981 13:47:26 5.0T2 287 00447/010 MOUNT STATISTICS SYS:MOUNTSTAT D # SYS:MOUNTSTAT UM WSG SYS:MOUNTSTAT@E 00449/001 *DEB S # (OBSOLETE) D2T1 341 UM 0 Obsoleted by *SORT (303/4). 00451/001 CATALOG VERIFY - VNTD # (PART OF FILE SYSTEM RECOVERY) UM 0 Part of File System Recovery (682/18). 00453/001 DRUM INIT SA # (OBSOLETE) D4T1 994 UM 0 STAND ALONE PROGRAM TO FORMAT DRUMS. 00455/001 DBS:MAC SM # (OBSOLETE) D3T3 17 DBS:MAC..SM. 1 LINE 66 3 PAGE UM AUG. 01, 1973 18:21.38 00456/001 *CONFIG SA # (OBSOLETE) D2T1 318 UM 00457/001 TPSBUFFER SA # (OBSOLETE) D2T1 147 UM 00458/001 OLTEP 21.7 SOURCE SA G S0710 OLTEP 1 5.0T1 1007 OLTEP.21.7_SOURCE.SA.001 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 13:47:54 5.0T3 1 0 (458/1) THROUGH (458/76) CONTAIN THE SOURCE FOR OS/360 RELEASE 21.7 OLTEP. THIS IS ASSEMBLED WITH *OSMAC (193) AND OLTEPMACLIB (458/77). OLTEP IS RUN UNDER FAKEOS. SEE (545). 0 Referenced by comments of: 338/1, 458/1 00458/002 OLTEP 21.7 SOURCE SA G S0710 OLTEP 2 5.0T1 1008 OLTEP.21.7_SOURCE.SA.002 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:47:55 5.0T3 2 00458/003 OLTEP 21.7 SOURCE SA G S0710 OLTEP 3 5.0T1 1009 OLTEP.21.7_SOURCE.SA.003 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:47:56 5.0T3 3 1 MON AUG 05/96 18:37:45 Page 176 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/004 OLTEP 21.7 SOURCE SA G S0710 OLTEP 4 5.0T1 1010 OLTEP.21.7_SOURCE.SA.004 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:47:57 5.0T3 4 00458/005 OLTEP 21.7 SOURCE SA G S0710 OLTEP 5 5.0T1 1011 OLTEP.21.7_SOURCE.SA.005 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 13:47:58 5.0T3 5 00458/006 OLTEP 21.7 SOURCE SA G S0710 OLTEP 6 5.0T1 1012 OLTEP.21.7_SOURCE.SA.006 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 13:47:59 5.0T3 6 00458/007 OLTEP 21.7 SOURCE SA G S0710 OLTEP 7 5.0T1 1013 OLTEP.21.7_SOURCE.SA.007 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 13:48:00 5.0T3 7 00458/008 OLTEP 21.7 SOURCE SA G S0710 OLTEP 8 5.0T1 1014 OLTEP.21.7_SOURCE.SA.008 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:01 5.0T3 8 00458/009 OLTEP 21.7 SOURCE SA G S0710 OLTEP 9 5.0T1 1015 OLTEP.21.7_SOURCE.SA.009 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:02 5.0T3 9 00458/010 OLTEP 21.7 SOURCE SA G S0710 OLTEP 10 5.0T1 1016 OLTEP.21.7_SOURCE.SA.010 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:03 5.0T3 10 00458/011 OLTEP 21.7 SOURCE SA G S0710 OLTEP 11 5.0T1 1017 OLTEP.21.7_SOURCE.SA.011 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:04 5.0T3 11 00458/012 OLTEP 21.7 SOURCE SA G S0710 OLTEP 12 5.0T1 1018 OLTEP.21.7_SOURCE.SA.012 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:05 5.0T3 12 00458/013 OLTEP 21.7 SOURCE SA G S0710 OLTEP 13 5.0T1 1019 OLTEP.21.7_SOURCE.SA.013 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:06 5.0T3 13 00458/014 OLTEP 21.7 SOURCE SA G S0710 OLTEP 14 5.0T1 1020 OLTEP.21.7_SOURCE.SA.014 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:07 5.0T3 14 00458/015 OLTEP 21.7 SOURCE SA G S0710 OLTEP 15 5.0T1 1021 OLTEP.21.7_SOURCE.SA.015 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 13:48:08 5.0T3 15 00458/016 OLTEP 21.7 SOURCE SA G S0710 OLTEP 16 5.0T1 1022 OLTEP.21.7_SOURCE.SA.016 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:09 5.0T3 16 1 MON AUG 05/96 18:37:45 Page 177 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/017 OLTEP 21.7 SOURCE SA G S0710 OLTEP 17 5.0T1 1023 OLTEP.21.7_SOURCE.SA.017 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:10 5.0T3 17 00458/018 OLTEP 21.7 SOURCE SA G S0710 OLTEP 18 5.0T1 1024 OLTEP.21.7_SOURCE.SA.018 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 13:48:11 5.0T3 18 00458/019 OLTEP 21.7 SOURCE SA G S0710 OLTEP 19 5.0T1 1025 OLTEP.21.7_SOURCE.SA.019 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:12 5.0T3 19 00458/020 OLTEP 21.7 SOURCE SA G S0710 OLTEP 20 5.0T1 1026 OLTEP.21.7_SOURCE.SA.020 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:14 5.0T3 20 00458/021 OLTEP 21.7 SOURCE SA G S0710 OLTEP 21 5.0T1 1027 OLTEP.21.7_SOURCE.SA.021 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:15 5.0T3 21 00458/022 OLTEP 21.7 SOURCE SA G S0710 OLTEP 22 5.0T1 1028 OLTEP.21.7_SOURCE.SA.022 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:16 5.0T3 22 00458/023 OLTEP 21.7 SOURCE SA G S0710 OLTEP 23 5.0T1 1029 OLTEP.21.7_SOURCE.SA.023 1 SEQ 80 1 PAGE UM MTA JULY 03, 1981 13:48:17 5.0T3 23 00458/024 OLTEP 21.7 SOURCE SA G S0710 OLTEP 24 5.0T1 1030 OLTEP.21.7_SOURCE.SA.024 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:18 5.0T3 24 00458/025 OLTEP 21.7 SOURCE SA G S0710 OLTEP 25 5.0T1 1031 OLTEP.21.7_SOURCE.SA.025 1 SEQ 80 11 PAGE UM MTA JULY 03, 1981 13:48:19 5.0T3 25 00458/026 OLTEP 21.7 SOURCE SA G S0710 OLTEP 26 5.0T1 1032 OLTEP.21.7_SOURCE.SA.026 1 SEQ 80 12 PAGE UM MTA JULY 03, 1981 13:48:21 5.0T3 26 00458/027 OLTEP 21.7 SOURCE SA G S0710 OLTEP 27 5.0T1 1033 OLTEP.21.7_SOURCE.SA.027 1 SEQ 80 35 PAGE UM MTA JULY 03, 1981 13:48:23 5.0T3 27 00458/028 OLTEP 21.7 SOURCE SA G S0710 OLTEP 28 5.0T1 1034 OLTEP.21.7_SOURCE.SA.028 1 SEQ 80 19 PAGE UM MTA JULY 03, 1981 13:48:25 5.0T3 28 00458/029 OLTEP 21.7 SOURCE SA G S0710 OLTEP 29 5.0T1 1035 OLTEP.21.7_SOURCE.SA.029 1 SEQ 80 24 PAGE UM MTA JULY 03, 1981 13:48:27 5.0T3 29 1 MON AUG 05/96 18:37:45 Page 178 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/030 OLTEP 21.7 SOURCE SA G S0710 OLTEP 30 5.0T1 1036 OLTEP.21.7_SOURCE.SA.030 1 SEQ 80 12 PAGE UM MTA JULY 03, 1981 13:48:29 5.0T3 30 00458/031 OLTEP 21.7 SOURCE SA G S0710 OLTEP 31 5.0T1 1037 OLTEP.21.7_SOURCE.SA.031 1 SEQ 80 26 PAGE UM MTA JULY 03, 1981 13:48:31 5.0T3 31 00458/032 OLTEP 21.7 SOURCE SA G S0710 OLTEP 32 5.0T1 1038 OLTEP.21.7_SOURCE.SA.032 1 SEQ 80 11 PAGE UM MTA JULY 03, 1981 13:48:33 5.0T3 32 00458/033 OLTEP 21.7 SOURCE SA G S0710 OLTEP 33 5.0T1 1039 OLTEP.21.7_SOURCE.SA.033 1 SEQ 80 23 PAGE UM MTA JULY 03, 1981 13:48:35 5.0T3 33 00458/034 OLTEP 21.7 SOURCE SA G S0710 OLTEP 34 5.0T1 1040 OLTEP.21.7_SOURCE.SA.034 1 SEQ 80 21 PAGE UM MTA JULY 03, 1981 13:48:37 5.0T3 34 00458/035 OLTEP 21.7 SOURCE SA G S0710 OLTEP 35 5.0T1 1041 OLTEP.21.7_SOURCE.SA.035 1 SEQ 80 8 PAGE UM MTA JULY 03, 1981 13:48:38 5.0T3 35 00458/036 OLTEP 21.7 SOURCE SA G S0710 OLTEP 36 5.0T1 1042 OLTEP.21.7_SOURCE.SA.036 1 SEQ 80 7 PAGE UM MTA JULY 03, 1981 13:48:39 5.0T3 36 00458/037 OLTEP 21.7 SOURCE SA G S0710 OLTEP 37 5.0T1 1043 OLTEP.21.7_SOURCE.SA.037 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 13:48:40 5.0T3 37 00458/038 OLTEP 21.7 SOURCE SA G S0710 OLTEP 38 5.0T1 1044 OLTEP.21.7_SOURCE.SA.038 1 SEQ 80 9 PAGE UM MTA JULY 03, 1981 13:48:42 5.0T3 38 00458/039 OLTEP 21.7 SOURCE SA G S0710 OLTEP 39 5.0T1 1045 OLTEP.21.7_SOURCE.SA.039 1 SEQ 80 11 PAGE UM MTA JULY 03, 1981 13:48:43 5.0T3 39 00458/040 OLTEP 21.7 SOURCE SA G S0710 OLTEP 40 5.0T1 1046 OLTEP.21.7_SOURCE.SA.040 1 SEQ 80 16 PAGE UM MTA JULY 03, 1981 13:48:45 5.0T3 40 00458/041 OLTEP 21.7 SOURCE SA G S0710 OLTEP 41 5.0T1 1047 OLTEP.21.7_SOURCE.SA.041 1 SEQ 80 8 PAGE UM MTA JULY 03, 1981 13:48:46 5.0T3 41 00458/042 OLTEP 21.7 SOURCE SA G S0710 OLTEP 42 5.0T1 1048 OLTEP.21.7_SOURCE.SA.042 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 13:48:47 5.0T3 42 1 MON AUG 05/96 18:37:45 Page 179 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/043 OLTEP 21.7 SOURCE SA G S0710 OLTEP 43 5.0T1 1049 OLTEP.21.7_SOURCE.SA.043 1 SEQ 80 37 PAGE UM MTA JULY 03, 1981 13:48:49 5.0T3 43 00458/044 OLTEP 21.7 SOURCE SA G S0710 OLTEP 44 5.0T1 1050 OLTEP.21.7_SOURCE.SA.044 1 SEQ 80 17 PAGE UM MTA JULY 03, 1981 13:48:51 5.0T3 44 00458/045 OLTEP 21.7 SOURCE SA G S0710 OLTEP 45 5.0T1 1051 OLTEP.21.7_SOURCE.SA.045 1 SEQ 80 15 PAGE UM MTA JULY 03, 1981 13:48:53 5.0T3 45 00458/046 OLTEP 21.7 SOURCE SA G S0710 OLTEP 46 5.0T1 1052 OLTEP.21.7_SOURCE.SA.046 1 SEQ 80 31 PAGE UM MTA JULY 03, 1981 13:48:55 5.0T3 46 00458/047 OLTEP 21.7 SOURCE SA G S0710 OLTEP 47 5.0T1 1053 OLTEP.21.7_SOURCE.SA.047 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:48:56 5.0T3 47 00458/048 OLTEP 21.7 SOURCE SA G S0710 OLTEP 48 5.0T1 1054 OLTEP.21.7_SOURCE.SA.048 1 SEQ 80 12 PAGE UM MTA JULY 03, 1981 13:48:58 5.0T3 48 00458/049 OLTEP 21.7 SOURCE SA G S0710 OLTEP 49 5.0T1 1055 OLTEP.21.7_SOURCE.SA.049 1 SEQ 80 15 PAGE UM MTA JULY 03, 1981 13:48:59 5.0T3 49 00458/050 OLTEP 21.7 SOURCE SA G S0710 OLTEP 50 5.0T1 1056 OLTEP.21.7_SOURCE.SA.050 1 SEQ 80 10 PAGE UM MTA JULY 03, 1981 13:49:01 5.0T3 50 00458/051 OLTEP 21.7 SOURCE SA G S0710 OLTEP 51 5.0T1 1057 OLTEP.21.7_SOURCE.SA.051 1 SEQ 80 5 PAGE UM MTA JULY 03, 1981 13:49:02 5.0T3 51 00458/052 OLTEP 21.7 SOURCE SA G S0710 OLTEP 52 5.0T1 1058 OLTEP.21.7_SOURCE.SA.052 1 SEQ 80 24 PAGE UM MTA JULY 03, 1981 13:49:04 5.0T3 52 00458/053 OLTEP 21.7 SOURCE SA G S0710 OLTEP 53 5.0T1 1059 OLTEP.21.7_SOURCE.SA.053 1 SEQ 80 27 PAGE UM MTA JULY 03, 1981 13:49:06 5.0T3 53 00458/054 OLTEP 21.7 SOURCE SA G S0710 OLTEP 54 5.0T1 1060 OLTEP.21.7_SOURCE.SA.054 1 SEQ 80 24 PAGE UM MTA JULY 03, 1981 13:49:08 5.0T3 54 00458/055 OLTEP 21.7 SOURCE SA G S0710 OLTEP 55 5.0T1 1061 OLTEP.21.7_SOURCE.SA.055 1 SEQ 80 33 PAGE UM MTA JULY 03, 1981 13:49:10 5.0T3 55 1 MON AUG 05/96 18:37:45 Page 180 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/056 OLTEP 21.7 SOURCE SA G S0710 OLTEP 56 5.0T1 1062 OLTEP.21.7_SOURCE.SA.056 1 SEQ 80 11 PAGE UM MTA JULY 03, 1981 13:49:12 5.0T3 56 00458/057 OLTEP 21.7 SOURCE SA G S0710 OLTEP 57 5.0T1 1063 OLTEP.21.7_SOURCE.SA.057 1 SEQ 80 39 PAGE UM MTA JULY 03, 1981 13:49:15 5.0T3 57 00458/058 OLTEP 21.7 SOURCE SA G S0710 OLTEP 58 5.0T1 1064 OLTEP.21.7_SOURCE.SA.058 1 SEQ 80 32 PAGE UM MTA JULY 03, 1981 13:49:17 5.0T3 58 00458/059 OLTEP 21.7 SOURCE SA G S0710 OLTEP 59 5.0T1 1065 OLTEP.21.7_SOURCE.SA.059 1 SEQ 80 21 PAGE UM MTA JULY 03, 1981 13:49:19 5.0T3 59 00458/060 OLTEP 21.7 SOURCE SA G S0710 OLTEP 60 5.0T1 1066 OLTEP.21.7_SOURCE.SA.060 1 SEQ 80 20 PAGE UM MTA JULY 03, 1981 13:49:21 5.0T3 60 00458/061 OLTEP 21.7 SOURCE SA G S0710 OLTEP 61 5.0T1 1067 OLTEP.21.7_SOURCE.SA.061 1 SEQ 80 18 PAGE UM MTA JULY 03, 1981 13:49:23 5.0T3 61 00458/062 OLTEP 21.7 SOURCE SA G S0710 OLTEP 62 5.0T1 1068 OLTEP.21.7_SOURCE.SA.062 1 SEQ 80 8 PAGE UM MTA JULY 03, 1981 13:49:24 5.0T3 62 00458/063 OLTEP 21.7 SOURCE SA G S0710 OLTEP 63 5.0T1 1069 OLTEP.21.7_SOURCE.SA.063 1 SEQ 80 10 PAGE UM MTA JULY 03, 1981 13:49:26 5.0T3 63 00458/064 OLTEP 21.7 SOURCE SA G S0710 OLTEP 64 5.0T1 1070 OLTEP.21.7_SOURCE.SA.064 1 SEQ 80 12 PAGE UM MTA JULY 03, 1981 13:49:27 5.0T3 64 00458/065 OLTEP 21.7 SOURCE SA G S0710 OLTEP 65 5.0T1 1071 OLTEP.21.7_SOURCE.SA.065 1 SEQ 80 38 PAGE UM MTA JULY 03, 1981 13:49:30 5.0T3 65 00458/066 OLTEP 21.7 SOURCE SA G S0710 OLTEP 66 5.0T1 1072 OLTEP.21.7_SOURCE.SA.066 1 SEQ 80 7 PAGE UM MTA JULY 03, 1981 13:49:32 5.0T3 66 00458/067 OLTEP 21.7 SOURCE SA G S0710 OLTEP 67 5.0T1 1073 OLTEP.21.7_SOURCE.SA.067 1 SEQ 80 3 PAGE UM MTA JULY 03, 1981 13:49:33 5.0T3 67 00458/068 OLTEP 21.7 SOURCE SA G S0710 OLTEP 68 5.0T1 1074 OLTEP.21.7_SOURCE.SA.068 1 SEQ 80 19 PAGE UM MTA JULY 03, 1981 13:49:34 5.0T3 68 1 MON AUG 05/96 18:37:45 Page 181 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/069 OLTEP 21.7 SOURCE SA G S0710 OLTEP 69 5.0T1 1075 OLTEP.21.7_SOURCE.SA.069 1 SEQ 80 13 PAGE UM MTA JULY 03, 1981 13:49:36 5.0T3 69 00458/070 OLTEP 21.7 SOURCE SA G S0710 OLTEP 70 5.0T1 1076 OLTEP.21.7_SOURCE.SA.070 1 SEQ 80 15 PAGE UM MTA JULY 03, 1981 13:49:37 5.0T3 70 00458/071 OLTEP 21.7 SOURCE SA G S0710 OLTEP 71 5.0T1 1077 OLTEP.21.7_SOURCE.SA.071 1 SEQ 80 24 PAGE UM MTA JULY 03, 1981 13:49:39 5.0T3 71 00458/072 OLTEP 21.7 SOURCE SA G S0710 OLTEP 72 5.0T1 1078 OLTEP.21.7_SOURCE.SA.072 1 SEQ 80 11 PAGE UM MTA JULY 03, 1981 13:49:41 5.0T3 72 00458/073 OLTEP 21.7 SOURCE SA G S0710 OLTEP 73 5.0T1 1079 OLTEP.21.7_SOURCE.SA.073 1 SEQ 80 2 PAGE UM MTA JULY 03, 1981 13:49:42 5.0T3 73 00458/074 OLTEP 21.7 SOURCE SA G S0710 OLTEP 74 5.0T1 1080 OLTEP.21.7_SOURCE.SA.074 1 SEQ 80 21 PAGE UM MTA JULY 03, 1981 13:49:44 5.0T3 74 00458/075 OLTEP 21.7 SOURCE SA G S0710 OLTEP 75 5.0T1 1081 OLTEP.21.7_SOURCE.SA.075 1 SEQ 80 26 PAGE UM MTA JULY 03, 1981 13:49:46 5.0T3 75 00458/076 OLTEP 21.7 SOURCE SA G S0710 OLTEP 76 5.0T1 1082 OLTEP.21.7_SOURCE.SA.076 1 SEQ 80 9 PAGE UM MTA JULY 03, 1981 13:49:48 5.0T3 76 0 Referenced by comments of: 458/1 00458/077 OLTEP OLTEPMACLIB SM G S0938 FSAVE2 VLO FSNAME=OLTEPMACLIB(1) 5.0T1 1083 OLTEP.OLTEPMACLIB.SM.077 1 LINE 72 56 PAGE UM MTA SEP. 23, 1975 00:49:30 5.0T3 77 0 MACROS, SOME OF WHICH ARE USED BY OLTEP -- NOT SURE WHICH MACROS ARE NOT NEEDED. 0 Referenced by comments of: 458/1 00458/078 OLTEP OBJECT OC G ETC:OLTEP 5.0T1 1084 OLTEP.OBJECT.OC.078 1 SEQ 920 2 PAGE UM MTA JULY 03, 1981 13:50:10 5.0T3 78 ETC.:OLTEP 0 OBJECT FOR OLTEP MAIN PROGRAM AND IFDOLT59, WHICH IS INCLUDED TO GET THE RIGHT DEFINITION OF SOME MULTIPLY DEFINED SYMBOLS. 00458/079A OLTEP OLTEPLIB OL G ETC:OLTEPLIB 5.0T1 1085 OLTEP.OLTEPLIB.OL.079 1 LINE 2572 64 PAGE UM MTA JULY 03, 1981 13:50:11 5.0T3 79 ETC.:OLTEPLIB 0 OBJECT LIBRARY FOR THE REST OF OLTEP. SOME MODULES WHICH ARE NOT USED IN MTS ARE INCLUDED. 1 MON AUG 05/96 18:37:45 Page 182 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE FOLLOWING PATCHES ARE INCLUDED BECAUSE THESE MODULES USE MACROS WHICH ARE NOT IN *OSMAC (193): TO IFDOLT20: REP 000000 0141F00020,07FE TO IFDOLT22: REP 000386 014700 HAS OTHER PATCHES AS WELL. 0 Referenced by comments of: 458/80 00458/080 OLTEP OLTEPBLDLIN D G MTA:OLTEPBLDLIN 5.0T1 1086 OLTEP.OLTEPBLDLIN.D.080 1 LINE 60 1 PAGE UM MTA JULY 03, 1981 13:50:16 5.0T3 80 MTA.:OLTEPBLDLIN 0 INPUT TO CREBLDL (545/42) FOR OLTEP. CONTAINS ENTRIES FOR THINGS IN OLTEPLIB (458/79), BUT NOT OLTEPCDSLIB (458/86) OR OLTEPTSTLIB (458/82). 0 Referenced by comments of: 458/81 00458/081A OLTEP OLTEPBLDL D G ETC:OLTEPBLDL 5.0T1 1087 OLTEP.OLTEPBLDL.D.081 1 SEQ 242 11 PAGE UM MTA JULY 03, 1981 13:50:17 5.0T3 81 ETC.:OLTEPBLDL 0 BLDL INFO FOR OLTEP. CREATED BY CREBLDL (545/42) USING (458/80), (458/83), AND (458/85) AS INPUT. 00458/082A OLTEP OLTEPTSTLIB OL G MTS.:TST.OLTEPTST 5.0T1 1088 OLTEP.OLTEPTSTLIB.OL.082 1 LINE 26386 249 PAGE UM MTA JULY 03, 1981 13:50:18 5.0T3 82 ETC.:OLTEPTSTLIB 0 OBJECT LIBRARY FOR TEST SECTIONS AND CDS (CONFIGURATION DATA SET) MODULES. INCLUDES TESTS FOR: 2400, 2301, 2540, 2541, 2501, 1403, 2305, 2671, 2835, 3270, AND 3274. ALSO INCLUDES SOSP FOR USE IN BUILDING CDS ENTRIES AND RETRIEVING TEST SECTIONS FROM THE OLTSEP TAPE. SOSP IS VERSION 8.0. TO ADD NEW TEST SECTIONS, SIMPLY PUT THEM IN THIS LIBRARY AND ADD A LINE FOR EACH TO OLTEPTSTBLDL (458/83) (AND RUN IT THROUGH CREBLDL). EACH TEST SECTION MUST HAVE AN ENTRY WITH THE SAME NAME AS THE SECTION (E.G. T2400A). ***************************************************************** Contains REP cards. ***************************************************************** 0 Referenced by comments of: 458/80, 458/83 00458/083A OLTEP OLTEPTSTBLDL D MTA:OLTEPTSTBLDL 5.0T1 1089 OLTEP.OLTEPTSTBLDL.D.083 1 LINE 60 7 PAGE UM MTA JULY 03, 1981 13:50:37 5.0T3 83 MTA:OLTEPTSTBLDL 0 INPUT TO CREBLDL (545/42) FOR (458/82). 0 Referenced by comments of: 458/81, 458/82 1 MON AUG 05/96 18:37:45 Page 183 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/084A OLTEP OLTEPCDS D MTA:OLTEPCDS 5.0T1 1090 OLTEP.OLTEPCDS.D.084 1 LINE 81 10 PAGE UM MTA JULY 03, 1981 13:50:39 5.0T3 84 MTA.:OLTEPCDS 0 Input to CDS create program (458/90) to produce a CDS for the UM hardware configuration. 0 Referenced by comments of: 458/86, 458/89 00458/085A OLTEP OLTEPCDSBLDL D MTA:OLTEPCDSBLDL 5.0T1 1091 OLTEP.OLTEPCDSBLDL.D.085 1 LINE 60 16 PAGE UM MTA AUG. 05, 1981 02:30:37 5.0T3 85 MTA.:OLTEPCDSBLDL 0 Input to CREBLDL (545/42) for the UM configuration cds. This file was created by OLTEPOBJCVT (458/88) reading the output of OLTEPCRECDS (458/90). 0 Referenced by comments of: 458/81 00458/086A OLTEP OLTEPCDSLIB OL G ETC:OLTEPCDSLIB 5.0T1 1092 OLTEP.OLTEPCDSLIB.OL.086 1 LINE 10404 31 PAGE UM MTA JULY 03, 1981 13:50:44 5.0T3 86 ETC.:OLTEPCDSLIB 0 Library of CDS entries for the UM configuration produced by OLTEPCRECDS (458/90) reading OLTEPCDS (458/84). 0 Referenced by comments of: 458/80 00458/087A OLTEP OLTEPOBJCVT SA O MTA:OLTEPOBJCVT(1,999) 5.0T1 1093 OLTEP.OLTEPOBJCVT.SA.087 1 LINE 72 3 PAGE UM MTA JULY 03, 1981 13:50:48 5.0T3 87 MTA.:OLTEPOBJCVT 0 PROGRAM TO CONVERT OLTSEP, OLTEP, OR CDS DECKS WITH OR WITHOUT OS LINKEDIT CONTROL CARDS TO MTS FORMAT AND PRODUCE INPUT TO CREBLDL FOR THEM. THE INPUT IS READ FROM SCARDS; THE MTS OBJECT DECKS ARE WRITTEN ON SPUNCH; A PROTOTYPE BLDL RECORD IS READ FROM UNIT 0; AND BLDL OUTPUT RECORDS WITH CORRECT NAME AND LENGTH ARE WRITTEN ON UNIT 1. 00458/088A OLTEP OLTEPOBJCVT OC O MTA:OLTEPOBJCVT(1000) 5.0T1 1094 OLTEP.OLTEPOBJCVT.OC.088 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 13:50:49 5.0T3 88 0 Referenced by comments of: 458/85 00458/089 OLTEP CDS CREATE PGM SA G MTA:OLTEPCRECDS(1,999) 5.0T1 1095 OLTEP.CDS_CREATE_PGM.SA.089 1 LINE 72 4 PAGE UM MTA JULY 03, 1981 13:50:51 5.0T3 89 MTA:OLTEPCRECDS 0 PROGRAM TO READ CDS DEFINITION CARDS, E.G. (458/84), AND PRODUCE DECKS FOR THE CDS MODULES ON SPUNCH. ASSEMBLE USING COPY:CC.MACROS (1054/3) AND *SYSMAC. 1 MON AUG 05/96 18:37:45 Page 184 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/090 OLTEP CDS CREATE PGM OC G MTA:OLTEPCRECDS(1000) 5.0T1 1096 OLTEP.CDS_CREATE_PGM.OC.090 1 LINE 80 4 PAGE UM MTA JULY 03, 1981 13:50:54 5.0T3 90 0 Referenced by comments of: 458/84, 458/85, 458/86 00458/091A OLTEP OLTEPCMD C MTA:OLTEPCMD 5.0T1 1097 OLTEP.OLTEPCMD.C.091 1 LINE 124 1 PAGE UM MTA JULY 03, 1981 13:50:55 5.0T3 91 MTA.:OLTEPCMD 0 THE FOLLOWING PROCEDURES SHOULD BE USED FOR RELEASE 21.7 OLTEP. TO RUN OLTEP, ISSUE THE FOLLOWING COMMAND: $SOURCE OLTEPCMD WHERE OLTEPCMD IS (458/91) MODIFIED FOR LOCAL FILE NAMES. THIS WILL LOAD THE SPECIAL VERSION OF FAKEOS AND START OLTEP WITH THE COMMENT "IFD102I OLTS RUNNING" BEING PRINTED. FURTHER OPERATOR COMMUNICATION WITH OLTEP IS DESCRIBED IN THE IBM MANUAL (FORM GC28-6650-6) ON PAGES 41-47. THE OPERATION OF OLTEP IN MTS IS AS DESCRIBED IN THIS MANUAL EXCEPT FOR THE FOLLOWING: 1. PAGES 1-40 DESCRIBE HOW TO INSTALL AND INVOKE OLTEP IN OS AND ARE IRRELEVANT. 2. THE PROCEDURE REQUIRED TO INTERRUPT A TEST IS TO PRESS THE ATTENTION KEY. 3. ALL COMMUNICATION IS VIA THE TERMINAL, NOT THE OPERATOR'S CONSOLE. 4. IT IS NOT NECESSARY TO TYPE "R 00,'XXX'", SINCE "XXX" IS TREATED IN EXACTLY THE SAME WAY. 5. THE PRINTED OUTPUT FROM OLTEP (REFERED TO AS THE DIAGMSG DD IN THE MANUAL) WILL BE PUT IN THE TEMPORARY FILE -DIAG WHICH MAY BE COPIED TO *PRINT* AFTER OLTEP TERMINATES. 0 Referenced by comments of: 458/91 00459/001 *ICSERIES S # (OBSOLETE) D2T2 155 UM 00460/001 WIREWRAP TEST # (OBSOLETE) D2T2 156 UM 00461/001A DISTRIBUTION *DEDIT SA G WSG:DEDIT 5.0T4 650 DISTRIBUTION.?DEDIT.SA.001 1 LINE 72 67 PAGE UM WSG SEP. 04, 1981 03:10:31 5.0T11 224 WSG.:DEDIT 0 Distribution driver file editor used to construct and edit driver files. Copies COPY:DRDSECT (461/4) and *CNFGINFODSECT (654). Assemble with PAR=PEXIT=*PEXIT. ***************************************************************************** D5.0 version: Extensive changes have been made in *DEDIT. A new writeup is available in MTS Volume 2 and is also distributed separately as (461/3). It is ABSOLUTELY ESSENTIAL that the D5.0 driver file not be edited using any previous version of *DEDIT since the format 1 MON AUG 05/96 18:37:45 Page 185 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 of the driver file has been changed. This new version of *DEDIT can be used with old driver files, but the program will recognize such an old file and convert it to the new format after asking for permission to do so. The following is a list of the major changes: 1. Components are now stored at the line number corresponding to the component number. Gaps in subcomponent number ranges are now impossible in theory. 2. The driver file and comment file are now tightly coupled, i.e., the driver file contains the name of the comment file. 3. A comment cross reference directory is now maintained in the driver file. This allows *DEDIT to automatically update the comments of all subcomponents whose comments reference a component which is being renumbered. This makes it very easy to rearrange the order of subcomponents since the comments will automatically be adjusted to reflect the change. The listings produced by *DEDIT also now show the references. The DELETE command prevents referenced components from being deleted until the references have been removed. 4. It is now essential that all comment references to other components be in the form " (compnum/subcompnum)" or " (compnum)" in order for *DEDIT to be able to identify them. *DEDIT currently produces a warning message whenever comments are edited which contain strings of the form " (junk)" where junk is not a valid component number. Also, *DEDIT requires that the cnum or cnum/scnum string be at least three characters long in order to be considered as a valid reference. Also the blank before the left paren is not required if the reference is at the beginning of a comment line. 5. The APPENDFILE command is now the MERGE command and differs in that subcomponents are now added as new subcomponents after the currently last subcomponent of each component. Also any references within the comments of the subcomponents being merged are updated as necessary if any subcomponents have their subcomponent numbers changed by the merge. Lines from pre-D5.0 driver files can be merged without problem. It is essential that the driver lines being merged have their comment cross references in the form described in item 4 above so that the cross reference directory will be accurate and so that such references can be updated automatically if any subcomponent numbers are changed during the merge. 6. The parameter to the ASSIGN command has been changed slightly since there are now two output tape_name/file_number pairs, one (the old one) for 6250 distribution tapes, and a new pair for 1600 distribution tapes. In this way, it is no longer necessary to have different driver files for each density as has been the case in the past. 7. The COMMENT command now assumes EDIT as the default parameter. 8. The COMPONENT command is now very fast and assumes /1 as the subcomponent if none is given. 9. The DELETE command now allows more than one subcomponent to be deleted. 1 MON AUG 05/96 18:37:45 Page 186 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 10. The FOR command now requires that at least one item be given. I.e., it no longer assumes ALL as the default. 11. The FULL and PARTIAL commands are gone. 12. The INSERT command now allows the point of insertion to be specified instead of assuming that the insertion is to be after the current component. 13. The LINE command is gone. 14. The LIST and PLIST commands can now be given with the @PARTIAL, @FULL, @COMMENTS, @NOCOMMENTS, @REFERENCES, and @NOREFERENCES modifiers to control the form of the output. 15. There is now a MOVE command which will move one or more subcomponents to a new place in the driver file. This command can be used to rearrange subcomponents easily. 16. The RENUMBER command is gone since renumbering is done whenever necessary (as a result of deleting, duplicating, inserting, moving or merging). 17. The SAVE command is gone. 18. A SET command has been added to allow the defaults for the modifiers noted above in item 14 to be changed, as in the MTS editor. In addition the CMDSCAN SET option can be used like the MTS $SET option of the same name. Its right hand side values are MTS, AMBIGUOUS, and UNAMBIGUOUS. The default is MTS which means it follows the MTS option. 19. The /C#, /CSUB#, and /CLNR commands are gone. The /OTAPE and /OFILE# commands have been changed to /OT62 and /OF62. The /OT16 and /OF16 commands have been added. ***************************************************************************** 0 Referenced by comments of: 461/4, 461/14, 528/10 00461/002A DISTRIBUTION *DEDIT OE G NEW:DEDIT 5.0T4 651 DISTRIBUTION.?DEDIT.OE.002 1 LINE 17650 10 PAGE UM WSG SEP. 04, 1981 03:10:55 5.0T11 225 *DEDIT 00461/003C DISTRIBUTION *DEDIT PT WSG:DEDITWRITEUP 5.0T1 1098 DISTRIBUTION.*DEDIT.PT.003 1 LINE 76 13 PAGE UM WSG JULY 03, 1981 13:50:56 5.0T3 92 0 New MTS Volume 2 writeup for *DEDIT. 0 Referenced by comments of: 461/1 00461/004A DISTRIBUTION DRIVER DSECT SA G COPY:DRDSECT 5.0T1 1099 DISTRIBUTION.DRIVER_DSECT.SA.004 1 LINE 72 1 PAGE UM WSG JULY 03, 1981 13:50:57 5.0T3 93 COPY:DRDSECT 0 Copy section for the driver file DSECT used by *FS (548) and *DEDIT (461/1). It defines the structure of a distribution driver file record. ******************************************************************************* D5.0 version: Four new fields have been added: 1. DROTAP16 is the tape name of the 1600 bpi tape on which this 1 MON AUG 05/96 18:37:45 Page 187 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 component was last distributed. (Note that DROTAPE is the name of the 6250 bpi tape on which the component was last distributed.) 2. DROFIL16 is the file number on the 1600 bpi tape on which this component was last distributed. (Note that DROFILE# is the file number on the 6250 bpi tape on which the component was last distributed.) 3. DRCFREF is a hex char field for the offset into the comment cross reference directory for the list of subcomponents which are referenced by the comments of this component. 4. DRCBREF is a hex char field for the offset into the comment cross reference directory for the list of subcomponents whose comments refer to this component. ******************************************************************************* 0 Referenced by comments of: 461/1, 548/1 00461/005A DISTRIBUTION DVEDIT SQ O # CRT.:DVEDIT.SQ 4.3AT1 125 DISTRIBUTION.DVEDIT.S+.026 1 LINE 220 14 PAGE UBC HALL EADIE OCT. 12, 1980 15:43:31 4.3AT1 125 0 Contains a $CONTINUE WITH PLUS:PARSER.OL+NEW:PLUS.OBJLIB cards which refers to (1076/6) and (1042/50). ********************************************************************************* D5.0 comments: Not distributed, as it will not work with driver files having the new format. ********************************************************************************* 00461/006A DISTRIBUTION DVEDIT D O # CRT.:DVEDIT.SR 4.3AT1 126 DISTRIBUTION.DVEDIT.D.027 1 LINE 64 1 PAGE UBC HALL EADIE OCT. 12, 1980 15:43:36 4.3AT1 126 0 THIS IS A TIDIED VERSION OF DVEDIT GRAMMAR. ONLY MINOR CHANGES HAVE BEEN MADE. 00461/007A DISTRIBUTION DVEDIT OC O # W267:DVEDIT 4.3AT1 127 DISTRIBUTION.DVEDIT.OC.028 1 LINE 3892 14 PAGE UBC HALL EADIE OCT. 12, 1980 15:43:37 4.3AT1 127 0 CONTAINS A $CONTINUE WITH NEW:PLUS.OBJLIB (1042/50) AND PLUS:PARSER.OL (1076/6). 00461/008A DISTRIBUTION DRIVERSCAN SS G DIST:DRIVERSCN.SS 5.0T1 1100 DISTRIBUTION.DRIVERSCAN.SS.008 1 LINE 71 5 PAGE UBC BERRYMAN WSG JULY 03, 1981 13:50:58 5.0T3 94 0 Source for a Spitbol program that scans a distribution driver file and prints a list of component numbers that aren't in it. The program also performs a number of simple checks on component names, subcomponent names, component numbers, and subcomponent numbers. Unless it is run with PAR=NOCHECK, it also verifies that all of the files referenced exist and can be read. It uses the ACCESS function (461/10) to check for read access. The object for ACCESS is 1 MON AUG 05/96 18:37:45 Page 188 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 loaded from the file DIST:SPITLIB. 0 Referenced by comments of: 461/10 00461/009A DISTRIBUTION DRIVERSCAN OC G DIST:DRIVERSCAN 5.0T1 1101 DISTRIBUTION.DRIVERSCAN.OC.009 1 LINE 9464 5 PAGE UBC BERRYMAN WSG JULY 03, 1981 13:51:00 5.0T3 95 DIST:DRIVERSCAN 0 Contains a $CONTINUE WITH *SPITLIB record. 00461/010C DISTRIBUTION DRVSCAN ACCESS SA G DIST:DRIVERSCN.SA 5.0T1 1102 DISTRIBUTION.DRVSCAN_ACCE.SA.010 1 LINE 72 3 PAGE UBC BERRYMAN WSG JULY 03, 1981 13:51:01 5.0T3 96 0 Spitbol interface to CHKFILE. Used by DRIVERSCAN (461/8). 0 Referenced by comments of: 461/8 00461/011C DISTRIBUTION DRVSCAN ACCESS OC G DIST:SPITLIB 5.0T1 1103 DISTRIBUTION.DRVSCAN_ACCE.OC.011 1 LINE 80 1 PAGE UBC BERRYMAN WSG JULY 03, 1981 13:51:02 5.0T3 97 DIST:SPITLIB 00461/012 DISTRIBUTION 5-LINE SA G S0563 D4T1 VLO FSNAME=DISTRIBUTION.5-LINE.SA.003(1) 1086 5.0T1 1104 DISTRIBUTION.5-LINE.SA.012 1 LINE 80 8 PAGE UBC HOGG MAR. 01, 1973 19:33:27 5.0T3 98 0 PROGRAM TO PRINT THE FIRST 5 AND LAST 5 LINES OF EACH FILE ON A *FS TAPE. USED TO VERIFY DIST TAPE CONTENTS. 00461/013 DISTRIBUTION 5-LINE OC G MTS:FS5L 1087 5.0T1 1105 DISTRIBUTION.5-LINE.OC.013 1 LINE 80 3 PAGE UBC HOGG JULY 03, 1981 13:51:17 5.0T3 99 MTS.:FS5L 00461/014A DISTRIBUTION DRIVER D DIST:DRIVER 5.0T4 660 DISTRIBUTION.DRIVER.D.014 1 LINE 32767 402 PAGE UM SWEET SEP. 04, 1981 03:14:32 5.0T11 234 DIST:DRIVER 0 THIS IS THE COMPLETE DRIVER FILE FOR UM D5.0. ITEMS INCLUDED IN D5.0 MAY BE MARKED WITH REVISION LEVELS AS FOLLOWS: REVL=A COMPONENTS WHICH HAVE CHANGED SINCE D4.3. THESE MAY HAVE BEEN SENT ON D4.3A. REVL=C NEW SUBCOMPONENTS WHICH HAVE BEEN ADDED TO THE PRODUCTION SYSTEM AT UM SINCE D4.3A. LINE NUMBERS IN THIS FILE ARE IMPORTANT. ******************************************************************************* D5.0 version: This is the driver file for both the 6250 and 1600 versions of D5.0. (The driver file now contains fields for both the 6250 and 1600 output tape names and output file names and numbers. This version of the driver file should be used with the D5.0 version of *DEDIT (461/1). ******************************************************************************* 1 MON AUG 05/96 18:37:45 Page 189 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 461/15, 461/17, 461/18 00461/015A DISTRIBUTION DRIVER COMMENT D DIST:COMM 5.0T4 659 DISTRIBUTION.DRIVER_COMME.D.015 1 LINE 120 201 PAGE UM SWEET SEP. 04, 1981 06:28:39 5.0T11 233 DIST:COMM 0 THIS IS THE COMMENT FILE FOR THE D5.0 DRIVER FILE (461/14). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00461/016A DISTRIBUTION DRIV INDEX GEN C DIST:DISTINDEX 5.0T4 652 DISTRIBUTION.DRIV_INDEX_G.C.016 1 LINE 133 1 PAGE UM SWEET AUG. 21, 1981 06:51:21 5.0T11 226 DIST:DISTINDEX 0 COMMAND FILE TO PRODUCE A DRIVER FILE ALPHABETIZED INDEX. 00461/017A DISTRIBUTION 6250 INDEX P DIST:INDEX6250 5.0T4 657 DISTRIBUTION.6250_INDEX.P.017 1 LINE 133 204 PAGE UM SWEET SEP. 04, 1981 06:28:10 5.0T11 231 DIST:INDEX6250 0 6250 VERSION OF THE INDEX FOR THE UM DRIVER FILE (461/14). COPY TO A TN PRINTER. 00461/018A DISTRIBUTION 1600 INDEX P DIST:INDEX1600 5.0T4 658 DISTRIBUTION.1600_INDEX.P.018 1 LINE 133 204 PAGE UM SWEET SEP. 04, 1981 06:28:24 5.0T11 232 DIST:INDEX1600 0 1600 VERSION OF THE INDEX FOR THE UM DRIVER FILE (461/14). COPY TO A TN PRINTER. 00461/019A DISTRIBUTION GENERAL NOTES WF DIST:GENNOTES.WF 5.0T4 654 DISTRIBUTION.GENERAL_NOTE.WF.019 1 LINE 149 12 PAGE UM WSG SEP. 04, 1981 03:13:34 5.0T11 228 DIST:GENNOTES.WF 0 GENERAL NOTES ON DISTRIBUTION 5.0. 00461/020A DISTRIBUTION NEW SYSTEMS WF DIST:NEWSYS.WF 5.0T4 655 DISTRIBUTION.NEW_SYSTEMS.WF.020 1 LINE 146 9 PAGE UM WSG SEP. 04, 1981 03:13:46 5.0T11 229 DIST:NEWSYS.WF 0 A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 5.0 AT NEW INSTALLATIONS, I.E. INSTALLATIONS WHICH HAVE NOT PREVIOUSLY USED MTS. 00461/021A DISTRIBUTION OLD SYSTEMS WF DIST:OLDSYS.WF 5.0T4 656 DISTRIBUTION.OLD_SYSTEMS.WF.021 1 LINE 118 15 PAGE UM WSG SEP. 04, 1981 03:13:48 5.0T11 230 DIST:OLDSYS.WF 0 A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 5.0 AT OLD INSTALLATIONS, I.E. INSTALLATIONS WHICH HAVE PREVIOUSLY USED MTS. 1 MON AUG 05/96 18:37:45 Page 190 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00461/022A DISTRIBUTION D5.0 MEMO LIST WF DIST:MEMOLIST 5.0T1 1106 DISTRIBUTION.D5.0_MEMO_LI.WF.022 1 LINE 110 3 PAGE UM SWEET JULY 03, 1981 13:51:18 5.0T3 100 0 WRITEUP SHOWING THE STATUS OF ALL COMPUTING CENTER MEMOS AT THE TIME OF D5.0. DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6). 00461/023A DISTRIBUTION MTS BIB WF DIST:MTS.BIB 5.0T1 1107 DISTRIBUTION.MTS_BIB.WF.023 1 LINE 69 3 PAGE UM SWEET JULY 03, 1981 13:51:19 5.0T3 101 0 BIBLIOGRAPHY OF PUBLISHED PAPERS ABOUT MTS AND RELATED TOPICS. 00461/024A DISTRIBUTION FM.GEN SS G WSG:FM.GEN 5.0T1 1108 DISTRIBUTION.FM.GEN.SS.024 1 LINE 93 9 PAGE UM WSG AUG. 05, 1981 02:30:40 5.0T3 102 WSG:FM.GEN 0 MTS commands and a Spitbol program to generate input for FILE MOVE (1020) which can be used to build a test pack based on a driver file. The program will ask for the following: 1. The name of a file which contains a complete list of the files currently on the test pack (possibly null), 2. The name of the driver file, 3. The driver file revision level to be used (enter a null line for a full distribution), and 4. If you want the FILE MOVE input to contain LASTCHG= parameter which will cause FILE MOVE to check to see if files being moved have been changed since the date they were written on the distribution tape. The program will read through the driver file and, for lines which have a non-blank disk name field (see *DEDIT) and the appropriate revision level, it will output (on SPUNCH) records which can be used as input to FILE MOVE. This input will contain three kinds of data: 1. Files to be destroyed on the test pack (ones no longer listed in the disk name of any component), 2. Files to be moved to the test pack (ones with the appropriate revision level), and 3. Files to be created on the test pack and which will be permitted the same as the corresponding file on the regular system, but which will be left empty (ones which have disk names ending with "@E"). The program will print an error message (on unit 1) for any component (at the specified revision level) which has a bad save control field or which is located on tape (since FILE MOVE doesn't have the capability of getting files from tapes). It will also output (on unit 0) a new file list for the pack, i.e., a list of what files will be on the pack after FILE MOVE is run. 1 MON AUG 05/96 18:37:45 Page 191 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00461/025C DISTRIBUTION MTS501 FILES D DIST:MTS501.FILES 4.3T2 561 DISTRIBUTION.MTS431_FILES.D.022 1 LINE 17 7 PAGE UM WSG MAY 22, 1980 01:48:35 4.3T5 70 DIST:MTS501.FILES 0 A list of all the files on the D5.0 dump/restore pack. 00461/026 DISTRIBUTION MEMO 378 WF S1143 D4.1T1 VLO FSNAME=DISTRIBUTION.MEMO_378.WF.018(1) 170 5.0T1 1109 DISTRIBUTION.MEMO_378.WF.026 1 LINE 92 11 PAGE UM PIRKOLA MAY 13, 1978 17:22:07 5.0T3 103 0 THIS IS COMPUTING CENTER MEMO 378 -- "SUPPORT CATEGORIES FOR COMPUTING CENTER SOFTWARE." 00461/027 DISTRIBUTION CHG FORMS CMDS C MTS:CHANGEFORMS 5.0T1 1110 DISTRIBUTION.CHG_FORMS_CM.C.027 1 LINE 66 1 PAGE UM DWB JULY 03, 1981 13:51:49 5.0T3 104 MTS.:CHANGEFORMS 0 COMMAND FILE TO RUN THE DISTRIBUTION CHANGE FORM GENERATION PROGRAM (461/28) WHICH READS THE CHANGE FORM DATA FILE (461/29) TO PRODUCE CHANGE FORMS IN THE FILE -FORMS. 00461/028 DISTRIBUTION CHG FORMS PGM SS G MTS:CHGFORMPGM 5.0T1 1111 DISTRIBUTION.CHG_FORMS_PG.SS.028 1 LINE 78 3 PAGE UM DWB JULY 03, 1981 13:51:50 5.0T3 105 MTS.:CHGFORMPGM 0 SPITBOL PROGRAM TO PROCESS THE CHANGE FORM DATA FILE (461/29) AND PRODUCE CHANGE FORMS. 0 Referenced by comments of: 461/27, 461/29 00461/029A DISTRIBUTION CHG FORMS DATA D MTS:CHGFORMDATA 5.0T1 1112 DISTRIBUTION.CHG_FORMS_DA.D.029 1 LINE 94 93 PAGE UM DWB JULY 03, 1981 13:51:52 5.0T3 106 MTS.:CHGFORMDATA 0 DATA FILE OF CHANGE FORMS RELEVANT TO THE D4 DISTRIBUTION. TO BE USED AS INPUT TO THE CHANGE FORM PROGRAM (461/28) TO PRODUCE THE ACTUAL PRINTED FORMS. THE CONSTRUCTION OF THIS DATA FILE IS DESCRIBED IN (461/30). 0 Referenced by comments of: 461/27, 461/28, 461/30 00461/030 DISTRIBUTION CHG FORMS DESC WF S1143 D4.1T1 VLO FSNAME=DISTRIBUTION.CHG_FORMS_DE.WF.017(1) 169 5.0T1 1113 DISTRIBUTION.CHG_FORMS_DE.WF.030 1 LINE 68 3 PAGE UM DWB MAY 13, 1978 17:22:07 5.0T3 107 0 MEMO TO UM COMPUTING CENTER STAFF ABOUT HOW TO CONSTRUCT THE CHANGE FORMS DATA FILE (461/29). 0 Referenced by comments of: 461/29 00462/001 CHECKSUM SA # (OBSOLETE) D3T3 36 CHECKSUM..SA.1 1 SEQ 80 3 PAGE UM AUG. 01, 1973 18:30.28 0 Obsoleted by MTS protection mechanisms. 1 MON AUG 05/96 18:37:45 Page 192 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00463/001A STDDMP SUBR SA G MTS:STDDMP(1000) 5.0T1 1114 STDDMP_SUBR..SA.001 1 LINE 72 5 PAGE UM MTA JULY 03, 1981 13:52:00 5.0T3 108 MTS:STDDMP 0 PRODUCES STANDARD FORMAT DUMPS. SEE ALSO SDUMP (049). 00463/002A STDDMP SUBR OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00464/001A PLIMIT D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=PLIM 5.0T4 325 PLIMIT.D5.0_MASTER.SA.001 1 LINE 80 3 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:04:25 5.0T10 229 0 CHECKS PAGE AND PUNCH LIMITS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2 00464/002A PLIMIT UPDATE UC G MTS:PLIMUPD 5.0T4 326 PLIMIT.UPDATE.UC.002 1 LINE 80 2 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:04:26 5.0T10 230 MTS:PLIMUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=PLIM. 00464/003A PLIMIT OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00464/004A PLIMIT L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=PLIM.LIST 5.0T4 327 PLIMIT..L.004 1 LINE 133 18 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:04:50 5.0T10 231 00465/001A *APL MTS INTERFACE SA G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.MTS 5.0T1 1115 APL.MTS_INTERFACE.SA.001 1 LINE 101 42 PAGE UM HELFFRICH FEB. 16, 1981 16:27:12 5.0T3 109 0 THE APL-MTS INTERFACE. ASSEMBLE USING THE APL MACRO LIBRARY (465/3). CONTAINS THE OBJECT AT LINE 1 AND THE SOURCE AT LINE 1000. COPIES APLDEFN, DIRSECT, ZSYMBOLS, AND PERTERM FROM THE APL MACRO LIBRARY (465/3), AND *GFINFODSECT (593). IMPLEMENTS THE ")TIME" COMMAND. 0 Referenced by comments of: 595/1 00465/002 *APL TRTABS SA G TRTA S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TRTA.S 5.0T1 1116 APL.TRTABS.SA.002 1 LINE 80 43 PAGE UM HELFFRICH MAR. 04, 1977 19:14:31 5.0T3 110 0 SOURCE FOR THE APL TRANSLATE TABLES TO CONVERT APL INTERNAL CHARACTERS TO EXTERNAL CHARACTERS. INCLUDES TABLES FOR: 1052, 1050, 2741, CORRESPONDENCE 2741, TTY 38 APL ASSIGNMENT #3, GSI300/DTC300/DTC302, APL2 DEVICES (DDI265), LA36, AND ASCII 1 MON AUG 05/96 18:37:45 Page 193 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 DEVICES. ASSEMBLE USING THE APL MACRO LIBRARY (465/3). 00465/003A *APL MACRO LIBRARY SM G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.MACROS 5.0T1 1117 APL.MACRO_LIBRARY.SM.003 1 LINE 80 18 PAGE UM HELFFRICH FEB. 16, 1981 13:03:23 5.0T3 111 0 MACRO LIBRARY CONTAINING MACROS AND COPY SECTIONS REQUIRED FOR ASSEMBLING ALL THE APL SOURCE COMPONENTS. 0 Referenced by comments of: 465/1, 465/2, 465/4, 465/5, 465/6, 465/7, 465/8, 465/9, 465/10, 465/11, 465/12, 465/13, 465/14, 465/15, 465/16 00465/004 *APL ARTH UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.ARTH.U 5.0T1 1118 APL.ARTH_UPDATE.UU.004 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:17:46 5.0T3 112 0 UPDATE TO BE APPLIED TO ORIGINAL SOURCE TO YIELD CURRENT UM SOURCE FOR ARTH MODULE. THE SUCCEEDING SUBCOMPONENTS (465/5) THROUGH (465/15) ARE SIMILAR. ARTH CHANGES: MACRO FIXUP AND RECOGNITION OF "REVERSAL ALONG FIRST DIMENSION" OPERATOR. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 0 Referenced by comments of: 465/5, 465/6, 465/7, 465/8, 465/9, 465/10, 465/11, 465/12, 465/13, 465/14, 465/15 00465/005 *APL DEXP UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DEXP.U 5.0T1 1119 APL.DEXP_UPDATE.UU.005 1 LINE 61 1 PAGE UM HELFFRICH MAR. 04, 1977 19:18:21 5.0T3 113 0 SEE COMMENTS FOR (465/4). DEXP CHANGES: FIX OF BUG CAUSING OCCASIONAL WRONG SIGN OF VALUE RETURNED BY SQUARE ROOT. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 0 Referenced by comments of: 465/4 00465/006 *APL DYIB UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DYIB.U 5.0T1 1120 APL.DYIB_UPDATE.UU.006 1 LINE 65 1 PAGE UM HELFFRICH MAR. 04, 1977 19:18:55 5.0T3 114 0 SEE COMMENTS FOR (465/4). DYIB CHANGES: IMPLEMENTATION OF PRIVILEGED DYADIC OPERATIONS. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/007 *APL IBAR UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.IBAR.U 5.0T1 1121 APL.IBAR_UPDATE.UU.007 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:19:29 5.0T3 115 0 SEE COMMENTS FOR (465/4). IBAR CHANGES: CHANGE TO RETRIEVAL METHOD FOR TIME OF DAY IBEAM. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/008A *APL OCTL UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.OCTL.U 5.0T1 1122 APL.OCTL_UPDATE.UU.008 1 LINE 72 1 PAGE UM HELFFRICH FEB. 16, 1981 16:27:57 5.0T3 116 0 SEE COMMENTS FOR (465/4). OCTL CHANGES: CHANGES FOR CATN. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 1 MON AUG 05/96 18:37:45 Page 194 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00465/009 *APL REDU UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.REDU.U 5.0T1 1123 APL.REDU_UPDATE.UU.009 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:20:30 5.0T3 117 0 SEE COMMENTS FOR (465/4). REDU CHANGES: YIELDS NONCE ERROR IF "SCAN" OPERATION IS ATTEMPTED. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/010 *APL SLCT UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.SLCT.U 5.0T1 1124 APL.SLCT_UPDATE.UU.010 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:21:01 5.0T3 118 0 SEE COMMENTS FOR (465/4). SLCT CHANGES: RECOGNITION OF EXPANSION AND COMPRESSION ALONG FIRST DIMENSION SYMBOLS. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/011A *APL TPIN UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TPIN.U 5.0T1 1125 APL.TPIN_UPDATE.UU.011 1 LINE 72 13 PAGE UM HELFFRICH FEB. 16, 1981 16:28:41 5.0T3 119 0 SEE COMMENTS FOR (465/4). TPIN CHANGES: )SYMBOLS COMMAND IMPLEMENTED; BUG RELATING TO IGNORING OF INPUT AFTER ATTN INTERRUPT FIXED; CHANGES TO OBTAIN DATE DIFFERENTLY; )COPY AND )PCOPY ERROR REPORTING ADDED; )TIME COMMAND IMPLEMENTED. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/012 *APL VECT UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.VECT.U 5.0T1 1126 APL.VECT_UPDATE.UU.012 1 LINE 65 1 PAGE UM HELFFRICH MAR. 04, 1977 19:22:13 5.0T3 120 0 SEE COMMENTS FOR (465/4). VECT CHANGES: CALLS ERROR$ RATHER THAN ERROR. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/013C *APL AGOR UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.AGOR.U 5.0T1 1127 APL.AGOR_UPDATE.UU.013 1 LINE 72 1 PAGE UM HELFFRICH FEB. 16, 1981 16:26:42 5.0T3 121 0 SEE COMMENTS FOR (465/4). AGOR CHANGES: IMPLEMENTS ")TIME" COMMAND. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/014C *APL DPY UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DPY.U 5.0T1 1128 APL.DPY_UPDATE.UU.014 1 LINE 72 1 PAGE UM HELFFRICH AUG. 08, 1979 22:04:56 5.0T3 122 0 SEE COMMENTS FOR (465/4). DPY CHANGES: LABELED STATEMENTS IN FUNCTION ARE DISPLAYED ONE COLUMN TO THE LEFT. ASSEMBLE USING THE APL MACRO LIBRARY (465/3). 00465/015C *APL ERR UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.ERR.U 5.0T1 1129 APL.ERR_UPDATE.UU.015 1 LINE 72 1 PAGE UM HELFFRICH FEB. 16, 1981 16:27:02 5.0T3 123 0 SEE COMMENTS FOR (465/4). ERR CHANGES: IMPLEMENTS ")TIME" COMMAND. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 0 Referenced by comments of: 465/4 1 MON AUG 05/96 18:37:45 Page 195 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00465/016A *APL CATN SA G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.CATN 5.0T1 1130 APL.CATN.SA.016 1 LINE 92 10 PAGE UM HELFFRICH FEB. 16, 1981 13:06:10 5.0T3 124 0 REWRITE OF CATENATION PROCESSOR TO PROVIDE FULL CATENATION CAPABILITIES IN APL/MTS. COPIES OPSECT AND APLDEFN FROM THE APL MACRO LIBRARY (465/3). *************************************************************************** D5.0 VERSION: THIS VERSION FIXES A BUG CAUSING A 'SYSTEM ERROR' IF A USER HIT ATTN AT THE WRONG MOMENT. *************************************************************************** 00465/017A *APL OBJECT OC G SEG2:S2APL 5.0T1 1131 APL.OBJECT.OC.017 1 LINE 11465 39 PAGE UM HELFFRICH JULY 03, 1981 13:54:39 5.0T3 125 SEG2:S2APL 0 APL OBJECT LOADED INTO SHARED VM BY PISTLE AT IPL. 0 Referenced by comments of: 465/18 00465/018 *APL *APL OC G *APL 5.0T1 1132 APL.*APL.OC.018 1 LINE 24 1 PAGE UM HELFFRICH JULY 03, 1981 13:54:45 5.0T3 126 *APL 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM APL (465/17). 00465/019 *APL MEMO 382 WF S1319 D4.2T1 VLO FSNAME=APL.MEMO_382.WF.016(1) 244 5.0T1 1133 APL.MEMO_382.WF.019 1 LINE 130 12 PAGE UM HELFFRICH SEP. 07, 1978 17:00:42 5.0T3 127 0 THIS IS COMPUTING CENTER MEMO 382 -- "MTS APL USERS' GUIDE". NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY. 00466/001 ACTIVCNT/ASTATSUB SA G MTS:ACTIVCNT(1,99) 5.0T1 1134 ACTIVCNT/ASTATSUB..SA.001 1 LINE 80 1 PAGE UM DWB JULY 03, 1981 13:54:52 5.0T3 128 MTS.:ACTIVCNT 0 ACTIVCNT CONTAINS THE NUMBER OF USERS SIGNED ON AND ASTATSUB IS USED TO COMMUNICATE BETWEEN MTS AND THE STAT JOB. 00466/002 ACTIVCNT/ASTATSUB OC G # (PART OF RESIDENT SYSTEM) UM DWB 0 Object part of Resident System (468) 00467/001 ENDSEG2 SA G MTS:ENDSEG2.S 5.0T1 1135 ENDSEG2..SA.001 1 LINE 65 1 PAGE UM MTA JULY 03, 1981 13:54:53 5.0T3 129 0 ASSEMBLY TO MARK THE END OF THE IPLED PART OF SHARED VM. 1 MON AUG 05/96 18:37:45 Page 196 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00467/002 ENDSEG2 OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00468/001A RESIDENT SYSTEM D5.0 SYS D MTS:TST.IPL.D5.0 5.0T4 645 RESIDENT_SYSTEM.D5.0_SYS.D.001 1 SEQ 4100 210 PAGE UM WSG SEP. 04, 1981 03:06:11 5.0T11 219 *IPL.D5.0 0 RAMROD IPL FILE FOR D5.0 SYSTEM (WITH DUMMY TABLES) ON DUMP/RESTORE PACK. 0 Referenced by comments of: 1/3, 3/2, 4/2, 5/3, 6/2, 7/3, 8/2, 9/2, 10/2, 11/2, 13/3, 14/2, 16/2, 18/2, 19/2, 20/2, 21/2, 23/2, 24/2, 25/2, 39/2, 40/3, 40/6, 42/3, 44/2, 45/3, 46/3, 49/2, 77/2, 78/2, 79/2, 79/4, 80/2, 126/2, 198/3, 243/2, 354/3, 399/3, 413/2, 413/4, 413/8, 463/2, 464/3, 466/2, 467/2, 482/3, 482/6, 482/9, 482/12, 482/15, 482/18, 482/21, 482/24, 482/27, 482/30, 482/33, 482/35, 482/38, 513/3, 531/3, 534/2, 539/3, 554/2, 572/2, 576/2, 577/2, 577/7, 578/3, 579/2, 579/5, 579/8, 586/2, 589/3, 589/7, 589/9, 591/2, 628/4, 634/3, 634/5, 635/3, 636/3, 637/4, 638/3, 639/3, 647/2, 650/2, 651/10, 651/13, 651/15, 708/2, 723/2, 731/2, 731/4, 732/2, 758/2, 759/2, 769/2, 769/4, 769/6, 769/8, 769/10, 769/12, 769/14, 769/16, 769/26, 777/2, 778/2, 787/4, 787/6, 787/14, 787/16, 803/2, 818/2, 819/2, 1012/3, 1023/2, 1027/2, 1058/9, 1070/2, 1081/3, 1081/10, 4000/3 00468/002A RESIDENT SYSTEM D5.0 UM SYS D MTS:TST.IPL.0 5.0T4 646 RESIDENT_SYSTEM.D5.0_UM_S.D.002 1 SEQ 4100 203 PAGE UM WSG SEP. 04, 1981 03:06:16 5.0T11 220 *IPL.0 0 RAMROD IPL FILE FOR D5.0 SYSTEM WITH UM I/O CONFIGURATION, BUT ONLY MTS501. THIS IS THE "CURRENT" SYSTEM ON THE D5.0 DUMP/RESTORE PACK. 00468/003A RESIDENT SYSTEM UM RAMROD D MTS.:TST.ROD 5.0T4 647 RESIDENT_SYSTEM.UM_RAMROD.D.003 1 SEQ 32767 489 PAGE UM WSG SEP. 04, 1981 03:06:22 5.0T11 221 MTS.:ROD 0 CURRENT UM RAMROD FILE. THE FOLLOWING PROCEDURES ARE USED IN MAINTAINING THIS FILE. WHENEVER A NEW SYSTEM IS INSTALLED (I.E. WRITTEN TO *IPL.0), THREE THINGS ARE DONE: 1. THE NAME OF THE SYSTEM INSTALLED IS CHANGED TO THE "MODEL NUMBER" OF THE DATE IT IS INSTALLED, E.G. "AY108" FOR MAY 10, 1978. 2. THE SYSTEM INSTALLED IS MADE THE CURRENT SYSTEM. 3. THE OLDEST SYSTEM IS DELETED SO THAT THERE ARE ABOUT FIVE SYSTEMS-- THE CURRENT ONE AND THE FOUR PRECEDING. WHEN SOMEONE WISHES TO CHANGE A COMPONENT, BUT NOT INSTALL A NEW SYSTEM, A NEW SYSTEM CALLED "NEWSYS" IS CREATED FROM THE CURRENT SYSTEM (IF IT DOESN'T ALREADY EXIST) AND THE DESIRED CHANGES MADE AND NOTED USING THE "ANNOTATE" COMMAND. THEN WHEN THE NEWSYS SYSTEM IS ACTUALLY TO BE INSTALLED AS THE RUNNING SYSTEM, THE PROCEDURE ABOVE IS FOLLOWED. A TEST SYSTEM CAN BE CREATED AT ANY TIME WITH ANY NAME, BUT WHEN THE NEW COMPONENTS ARE READY TO BE INSTALLED, THEY SHOULD BE PUT IN "NEWSYS" AND THE TEST SYSTEM DESTROYED. 1 MON AUG 05/96 18:37:45 Page 197 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00468/004A RESIDENT SYSTEM *IPL.1 D # *IPL.1 UM WSG *IPL.1 0 UM FIRST BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER. NOTE: THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE. 00468/005A RESIDENT SYSTEM *IPL.2 D # *IPL.2 UM WSG *IPL.2 0 UM SECOND BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER. NOTE: THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE. 00468/006A RESIDENT SYSTEM *IPL.3 D # *IPL.3 UM WSG *IPL.3 0 UM THIRD BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER. NOTE: THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE. 00468/007A RESIDENT SYSTEM WRITEUP WF DIST:RESSYS.WF 5.0T4 328 RESIDENT_SYSTEM.WRITEUP.WF.007 1 LINE 154 5 PAGE UM WSG AUG. 09, 1981 23:04:51 5.0T10 232 DIST:RESSYS.WF 0 A WRITEUP DESCRIBING THE STRUCTURE OF THE SYSTEM OBJECT DECKS. 00469/001 360/20 RJE SUPPORT PGM S # (OBSOLETE) D2T1 094 UM 00470/001A PCB DSECT COPY:PCBDSECT SA G COPY:PCBDSECT 5.0T1 1136 PCB_DSECT.COPY:PCBDSECT.SA.001 1 LINE 72 3 PAGE UM MTA JULY 03, 1981 13:54:54 5.0T3 130 COPY:PCBDSECT 0 DSECT FOR THE PAGE CONTROL BLOCK. COPIED BY THE SUPERVISOR, PDP, AND CONFIG AMONG OTHERS. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONTAINS DISK MANAGER CHANGES. *********************************************************************************** 0 Referenced by comments of: 44/1, 45/1, 46/1, 400/1, 577/1 00471/001 REX SA # (OBSOLETE) D3.2T1 303 REX.MONITOR.SA.01 1 LINE 80 78 PAGE UM JULY 16, 1974 13:04:27 00472/001 *ST360 MAIN PGM SA G S0563 D4T1 VLO FSNAME=ST360.MAIN_PGM.SA.001(1) 1118 5.0T1 1137 ST360.MAIN_PGM.SA.001 1 SEQ 80 41 PAGE UM MTA AUG. 01, 1973 18:40.02 5.0T3 131 0 THE STUDENT VIRTUAL MACHINE SIMULATOR. THE SIMULATED MACHINE HAS THE FOLLOWING CHARACTERISTICS: 1. THE SYSTEM/360 UNIVERSAL INSTRUCTION SET 1 MON AUG 05/96 18:37:45 Page 198 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 2. NO INTERVAL TIMER 3. NO MEMORY PROTECTION 4. 32K BYTES OF STORAGE 5. AN I/O COMPLEMENT CONSISTING OF: A. 1052 OPERATOR'S CONSOLE ADDRESS 0009 B. 2540 CARD READER ADDRESS 000C C. 2540 CARD PUNCH ADDRESS 000D D. 1403 LINE PRINTER ADDRESS 000E E. 2 2401 9-TRACK TAPE DRIVES ADDRESSES 0180-0181 6. EXCEPT AT IPL, SELF-MODIFYING CCW'S ARE NOT ALLOWED 7. INSTANTANEOUS I/O NOTE: THE STANDARD VIRTUAL MACHINE (558) NOW HAS AN ASSEMBLY PARAMETER TO PRODUCE A STUDENT VERSION. 0 Referenced by comments of: 472/2, 4240/1 00472/002 *ST360 CCWTRANS SUBR SA G S0563 D4T1 VLO FSNAME=ST360.CCWTRANS_SUBR.SA.002(1) 1119 5.0T1 1138 ST360.CCWTRANS_SUBR.SA.002 1 SEQ 80 12 PAGE UM MTA AUG. 01, 1973 18:49.51 5.0T3 132 0 SUBROUTINE CALLED BY (472/1) TO TRANSLATE CCW LISTS. UNCHANGED SINCE DIST 2.0. 00472/003 *ST360 OBJECT OE G *ST360 5.0T1 1139 ST360.OBJECT.OE.003 1 SEQ 8720 5 PAGE UM MTA JULY 03, 1981 13:55:01 5.0T3 133 *ST360 00473/001 *1130ASM CCD SA S0563 D4T1 VLO FSNAME=1130ASM.CCD.SA.001(1) 1121 5.0T1 1140 1130ASM.CCD.SA.001 1 SEQ 80 48 PAGE UM LUBBERS AUG. 01, 1973 18:51.47 5.0T3 134 0 IBM ASSEMBLER FOR THE IBM 1130 AND IBM 1800 COMPUTERS. THIS VERSION HAS BEEN MODIFIED TO RUN IN MTS. THIS THING APPEARS TO CONSIST OF 4 ASSEMBLIES AND 1 COPY SECTION. THE QUESTION IS WHICH IS WHICH. WE SUGGEST THAT THE FIRST MAY BE THE COPY SECTION, BUT WE'RE NOT SURE. 00473/002 *1130ASM M0 SA S0563 D4T1 VLO FSNAME=1130ASM.M0.SA.002(1) 1122 5.0T1 1141 1130ASM.M0.SA.002 1 SEQ 80 2 PAGE UM LUBBERS AUG. 01, 1973 18:51.57 5.0T3 135 00473/003 *1130ASM M12 SA S0563 D4T1 VLO FSNAME=1130ASM.M12.SA.003(1) 1123 5.0T1 1142 1130ASM.M12.SA.003 1 SEQ 80 74 PAGE UM LUBBERS AUG. 01, 1973 18:52.43 5.0T3 136 00473/004 *1130ASM M3 SA S0563 D4T1 VLO FSNAME=1130ASM.M3.SA.004(1) 1124 5.0T1 1143 1130ASM.M3.SA.004 1 SEQ 80 89 PAGE UM LUBBERS AUG. 01, 1973 18:53.47 5.0T3 137 1 MON AUG 05/96 18:37:45 Page 199 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00473/005 *1130ASM M4 SA S0563 D4T1 VLO FSNAME=1130ASM.M4.SA.005(1) 1125 5.0T1 1144 1130ASM.M4.SA.005 1 SEQ 80 25 PAGE UM LUBBERS AUG. 01, 1973 18:54.12 5.0T3 138 00473/006 *1130ASM OBJECT OC *1130ASM 5.0T1 1145 1130ASM.OBJECT.OC.006 1 SEQ 80 18 PAGE UM LUBBERS JULY 03, 1981 13:55:09 5.0T3 139 *1130ASM 00475/001 OS SIMULATION PACKAGE S # (OBSOLETE) D2T1 284 UM 00476/001 DBS:MSG S # (OBSOLETE) D2T1 441 UM 00480/001 APF SA # (OBSOLETE) D2T1 329 UM 00481/001 FILE SAVE - OLD VERSION O # (OBSOLETE) D2T1 001 UM 00482/001A FILE SYSTEM MOVE SA G FILE:MOVE(-10000,-1) 5.0T1 1146 FILE_SYSTEM.MOVE.SA.001 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 13:55:11 5.0T3 140 FILE:MOVE 0 SUBROUTINE TO MOVE CORE AROUND. COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 787/1 00482/002A FILE SYSTEM MOVE UC G FILE:MOVE(1000) 5.0T1 1147 FILE_SYSTEM.MOVE.UC.002 1 LINE 68 1 PAGE UM HELFFRICH JULY 03, 1981 13:55:12 5.0T3 141 00482/003A FILE SYSTEM MOVE OC G # (PART OF RESIDENT SYSTEM) 4.3AT1 133 FILE_SYSTEM.MOVE.OC.003 1 LINE 80 1 PAGE UM HELFFRICH OCT. 12, 1980 15:44:10 0 Object part of Resident System (468) 0 Referenced by comments of: 482/49 00482/004A FILE SYSTEM VOLGET SA G FILE:VOLGET(-10000,-1) 5.0T1 1148 FILE_SYSTEM.VOLGET.SA.004 1 LINE 80 23 PAGE UM HELFFRICH JULY 03, 1981 13:55:13 5.0T3 142 FILE:VOLGET 0 Subroutine to acquire disk drive before doing I/O. Assemble with COPY:FILE.MACROS (482/45) and COPY:DM.MACROS (769/19). Copies COPY:GLOBALS (1026/3) and COPY:LLMPSEQU (087). 0 Referenced by comments of: 73/3, 534/3 00482/005A FILE SYSTEM VOLGET UC G FILE:VOLGET(1000) 5.0T1 1149 FILE_SYSTEM.VOLGET.UC.005 1 LINE 72 8 PAGE UM HELFFRICH JULY 03, 1981 13:55:20 5.0T3 143 1 MON AUG 05/96 18:37:45 Page 200 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/006A FILE SYSTEM VOLGET OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/007A FILE SYSTEM TRAK SA G FILE:TRAK(-10000,-1) 5.0T1 1150 FILE_SYSTEM.TRAK.SA.007 1 LINE 80 25 PAGE UM HELFFRICH JULY 03, 1981 13:55:24 5.0T3 144 FILE:TRAK 0 BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND WRITE THE DISK, OR TALK TO THE DISK MANAGER (769) COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE WITH COPY:FILE.MACROS(482/45), COPY:SETPARM (653), AND COPY:DM.MACROS (769/19). NOTE: THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S. 0 Referenced by comments of: 482/60 00482/008A FILE SYSTEM TRAK UC G FILE:TRAK(1000) 5.0T1 1151 FILE_SYSTEM.TRAK.UC.008 1 LINE 100 11 PAGE UM HELFFRICH JULY 03, 1981 13:55:31 5.0T3 145 00482/009A FILE SYSTEM TRAK OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/010A FILE SYSTEM READI SA G FILE:READI(-10000,-1) 5.0T1 1152 FILE_SYSTEM.READI.SA.010 1 LINE 80 6 PAGE UM HELFFRICH JULY 03, 1981 13:55:35 5.0T3 146 FILE:READI 0 SUBROUTINE TO READ FROM A LINE FILE. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/011A FILE SYSTEM READI UC G FILE:READI(1000) 5.0T1 1153 FILE_SYSTEM.READI.UC.011 1 LINE 76 1 PAGE UM HELFFRICH JULY 03, 1981 13:55:36 5.0T3 147 00482/012A FILE SYSTEM READI OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/013A FILE SYSTEM WRITEI SA G FILE:WRITEI(-10000,-1) 5.0T1 1154 FILE_SYSTEM.WRITEI.SA.013 1 LINE 79 34 PAGE UM HELFFRICH JULY 03, 1981 13:55:37 5.0T3 148 FILE:WRITEI 0 SUBROUTINE TO WRITE LINE FILES. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/014A FILE SYSTEM WRITEI UC G FILE:WRITEI(1000) 5.0T1 1155 FILE_SYSTEM.WRITEI.UC.014 1 LINE 68 1 PAGE UM HELFFRICH JULY 03, 1981 13:55:50 5.0T3 149 1 MON AUG 05/96 18:37:45 Page 201 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/015A FILE SYSTEM WRITEI OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/016A FILE SYSTEM READL SA G FILE:READL(-10000,-1) 5.0T1 1156 FILE_SYSTEM.READL.SA.016 1 LINE 78 10 PAGE UM HELFFRICH JULY 03, 1981 13:55:53 5.0T3 150 FILE:READL 0 BASE SOURCE FOR SUBROUTINE TO FIND THE FIRST OR LAST LINE NUMBER IN A FILE. ALSO CONTAINS SUBROUTINES TO RENUMBER, COUNT, RETURN, AND SET LINES IN A LINE FILE. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/017A FILE SYSTEM READL UC G FILE:READL(1000) 5.0T1 1157 FILE_SYSTEM.READL.UC.017 1 LINE 72 1 PAGE UM HELFFRICH JULY 03, 1981 13:55:56 5.0T3 151 00482/018A FILE SYSTEM READL OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/019A FILE SYSTEM OPEN SA G FILE:OPEN(-10000,-1) 5.0T1 1158 FILE_SYSTEM.OPEN.SA.019 1 LINE 80 52 PAGE UM HELFFRICH AUG. 05, 1981 02:34:27 5.0T3 152 FILE:OPEN 0 SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/020A FILE SYSTEM OPEN UC G FILE:OPEN(1000) 5.0T1 1159 FILE_SYSTEM.OPEN.UC.020 1 LINE 106 13 PAGE UM HELFFRICH AUG. 05, 1981 02:34:36 5.0T3 153 00482/021A FILE SYSTEM OPEN OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/022A FILE SYSTEM GETDSK SA G FILE:GETDSK(-10000,-1) 5.0T1 1160 FILE_SYSTEM.GETDSK.SA.022 1 LINE 80 22 PAGE UM HELFFRICH JULY 03, 1981 13:56:12 5.0T3 154 FILE:GETDSK 0 SUBROUTINES TO ALLOCATE AND RELEASE DISK SPACE. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/023A FILE SYSTEM GETDSK UC G FILE:GETDSK(1000) 5.0T1 1161 FILE_SYSTEM.GETDSK.UC.023 1 LINE 82 4 PAGE UM HELFFRICH JULY 03, 1981 13:56:17 5.0T3 155 00482/024A FILE SYSTEM GETDSK OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 202 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/025A FILE SYSTEM FLINE SA G FILE:FLINE(-10000,-1) 5.0T1 1162 FILE_SYSTEM.FLINE.SA.025 1 LINE 80 6 PAGE UM HELFFRICH JULY 03, 1981 13:56:19 5.0T3 156 FILE:FLINE 0 SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/026A FILE SYSTEM FLINE UC G FILE:FLINE(1000) 5.0T1 1163 FILE_SYSTEM.FLINE.UC.026 1 LINE 70 1 PAGE UM HELFFRICH JULY 03, 1981 13:56:20 5.0T3 157 00482/027A FILE SYSTEM FLINE OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/028A FILE SYSTEM CATALOG SA G FILE:CATALOG(-10000,-1) 5.0T1 1164 FILE_SYSTEM.CATALOG.SA.028 1 LINE 80 65 PAGE UM HELFFRICH JULY 03, 1981 13:56:21 5.0T3 158 FILE:CATALOG 0 SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/029A FILE SYSTEM CATALOG UC G FILE:CATALOG(1000) 5.0T1 1165 FILE_SYSTEM.CATALOG.UC.029 1 LINE 99 34 PAGE UM HELFFRICH JULY 03, 1981 13:56:39 5.0T3 159 00482/030A FILE SYSTEM CATALOG OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/031A FILE SYSTEM RWSEQ SA G FILE:RWSEQ(-10000,-1) 5.0T1 1166 FILE_SYSTEM.RWSEQ.SA.031 1 LINE 72 15 PAGE UM HELFFRICH JULY 03, 1981 13:56:52 5.0T3 160 FILE:RWSEQ 0 SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/032A FILE SYSTEM RWSEQ UC G FILE:RWSEQ(1000) 5.0T1 1167 FILE_SYSTEM.RWSEQ.UC.032 1 LINE 68 1 PAGE UM HELFFRICH JULY 03, 1981 13:56:54 5.0T3 161 00482/033A FILE SYSTEM RWSEQ OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/034 FILE SYSTEM TABLRTN SA G FILE:TABLRTN 5.0T1 1168 FILE_SYSTEM.TABLRTN.SA.034 1 LINE 78 31 PAGE UM HELFFRICH JULY 03, 1981 13:56:55 5.0T3 162 FILE:TABLRTN 0 SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE. ASSEMBLE USING COPY:FILE.MACROS (482/45). 1 MON AUG 05/96 18:37:45 Page 203 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ASSEMBLE STARTING AT LINE 1. 0 Referenced by comments of: 400/13, 482/49, 534/3 00482/035 FILE SYSTEM TABLRTN OC G FILE:TABLRTN.O 5.0T1 1169 FILE_SYSTEM.TABLRTN.OC.035 1 LINE 80 24 PAGE UM HELFFRICH JULY 03, 1981 13:57:13 5.0T3 163 FILE:TABLRTN.O 0 OBJECT ALSO PART OF THE RESIDENT SYSTEM (468). 00482/036A FILE SYSTEM GETFINF SA G FILE:GETFINF(-10000,-1) 5.0T1 1170 FILE_SYSTEM.GETFINF.SA.036 1 LINE 80 8 PAGE UM HELFFRICH JULY 03, 1981 13:57:15 5.0T3 164 FILE:GETFINF 0 SUBROUTINE TO RETURN INFORMATION ABOUT A FILE. CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF). ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/037A FILE SYSTEM GETFINF UC G FILE:GETFINF(1000) 5.0T1 1171 FILE_SYSTEM.GETFINF.UC.037 1 LINE 68 1 PAGE UM HELFFRICH JULY 03, 1981 13:57:17 5.0T3 165 00482/038A FILE SYSTEM GETFINF OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00482/039 FILE SYSTEM TEST DSACC SA G FILE:DSACC(1,999) 5.0T1 1172 FILE_SYSTEM.TEST_DSACC.SA.039 1 LINE 41 1 PAGE UM HELFFRICH JULY 03, 1981 13:57:18 5.0T3 166 FILE:DSACC 0 SPECIAL NOP VERSION OF DSACC FOR USE IN TESTING FILE ROUTINES. 0 Referenced by comments of: 482/46, 682/36 00482/040 FILE SYSTEM TEST DSACC OC G FILE:DSACC(1000) 5.0T1 1173 FILE_SYSTEM.TEST_DSACC.OC.040 1 LINE 80 1 PAGE UM HELFFRICH JULY 03, 1981 13:57:18 5.0T3 167 00482/041A FILE SYSTEM FSTEST SA G FILE:FSTEST(1005) 5.0T1 1174 FILE_SYSTEM.FSTEST.SA.041 1 LINE 68 13 PAGE UM HELFFRICH JULY 03, 1981 13:57:19 5.0T3 168 FILE:FSTEST 0 FILE SYSTEM TEST PROGRAM. ASSEMBLE USING COPY:FILE.MACROS (482/45) AND *SYSMAC. USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES. 0 Referenced by comments of: 682/11 00482/042A FILE SYSTEM FSTEST OC G FILE:FSTEST(1,1004.999) 5.0T1 1175 FILE_SYSTEM.FSTEST.OC.042 1 LINE 80 6 PAGE UM HELFFRICH JULY 03, 1981 13:57:23 5.0T3 169 1 MON AUG 05/96 18:37:45 Page 204 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/043A FILE SYSTEM FILE.MACROS SM G FILE:MACROS(-10000,0) 5.0T1 1176 FILE_SYSTEM.FILE.MACROS.SM.043 1 LINE 80 10 PAGE UM HELFFRICH JULY 03, 1981 13:57:26 5.0T3 170 FILE:MACROS 0 BASE SOURCE FOR THE FILE SYSTEM MACRO LIBRARY. 0 Referenced by comments of: 482/44 00482/044A FILE SYSTEM FILE.MACROS UC G FILE:MACROS(1000) 5.0T1 1177 FILE_SYSTEM.FILE.MACROS.UC.044 1 LINE 75 2 PAGE UM HELFFRICH JULY 03, 1981 13:57:27 5.0T3 171 0 UPDATE TO BE APPLIED TO (482/43) TO YIELD CURRENT MACRO SOURCE. 00482/045A FILE SYSTEM FILE.MACROS SM G COPY:FILE.MACROS 5.0T1 1178 FILE_SYSTEM.FILE.MACROS.SM.045 1 LINE 72 10 PAGE UM HELFFRICH JULY 03, 1981 13:57:28 5.0T3 172 COPY:FILE.MACROS 0 MACRO LIBRARY USED TO ASSEMBLE THE FILE SYSTEM AND RELATED ROUTINES. 0 Referenced by comments of: 4/1, 4/4, 67/1, 67/2, 67/3, 67/19, 73/3, 92/3, 97/6, 104/112, 104/116, 400/12, 400/13, 442/1, 482/4, 482/10, 482/13, 482/16, 482/19, 482/22, 482/25, 482/28, 482/31, 482/34, 482/36, 482/41, 482/49, 482/51, 482/60, 502/1, 502/8, 509/1, 539/1, 540/18, 546/1, 554/1, 554/3, 578/1, 598/1, 599/1, 621/2, 629/4, 671/3, 682/18, 682/20, 682/22, 682/24, 682/26, 682/28, 682/30, 682/39, 682/41, 682/44, 724/1, 769/1, 769/3, 769/5, 769/7, 769/9, 769/11, 769/13, 769/15, 769/20, 769/25, 790/2, 790/4, 790/5, 790/7, 1020/1, 1021/1, 1021/4, 1021/7, 1030/1, 1041/5, 1041/12, 1079/10, 3024/37 00482/046 FILE SYSTEM TEST FILERTNS OC G FILE:FILERTNS 5.0T1 1179 FILE_SYSTEM.TEST_FILERTNS.OC.046 1 LINE 38 1 PAGE UM HELFFRICH JULY 03, 1981 13:57:30 5.0T3 173 FILE:FILERTNS 0 A SERIES OF $CONTINUE WITHS TO PICK UP THE VARIOUS FILE SYSTEM OBJECT DECKS, A TEST VERSION OF TABLES (482/47), AND A TEST VERSION OF DSACC (482/39). 0 Referenced by comments of: 482/47 00482/047 FILE SYSTEM TEST TABLES SA G FILE:TABLES.TEST(1000) 5.0T1 1180 FILE_SYSTEM.TEST_TABLES.SA.047 1 LINE 56 1 PAGE UM HELFFRICH JULY 03, 1981 13:57:31 5.0T3 174 0 A CUT-DOWN VERSION OF TABLES (004) CONTAINING ONLY A DEVICE LIST WITH TWO DISKS, D340 AND D350, A DSKTAB WITH ONLY ONE PACK, AND CATALOG ROOT ENTRIES. USED WITH THE TEST VERSION OF THE FILE ROUTINES (482/46). 0 Referenced by comments of: 482/46 00482/048 FILE SYSTEM TEST TABLES OC G FILE:TABLES.TEST(1,998) 5.0T1 1181 FILE_SYSTEM.TEST_TABLES.OC.048 1 LINE 80 2 PAGE UM HELFFRICH JULY 03, 1981 13:57:32 5.0T3 175 FILE:TABLES.TEST 1 MON AUG 05/96 18:37:45 Page 205 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/049A FILE SYSTEM TABLRTN TEST SA G FILE:TABLTST 5.0T1 1182 FILE_SYSTEM.TABLRTN_TEST.SA.049 1 LINE 72 14 PAGE UM HELFFRICH JULY 03, 1981 13:57:33 5.0T3 176 FILE:TABLTST 0 PROGRAM TO TEST THE SHARED FILE TABLE ROUTINES TABLRTN (482/34). TO USE THIS, THE SHARED FILE TABLE ROUTINES MUST BE RE-ASSEMBLED STARTING AT LINE 0, SO THAT ALL SVC'S ARE REPLACED WITH SUBROUTINE CALLS TO ENTRY POINTS IN THIS TABLE TEST PROGRAM. THE COMMANDS ACCEPTED BY THIS PROGRAM ARE DOCUMENTED IN THE SOURCE. THIS PROGRAM SHOULD BE ASSEMBLED USING *SYSMAC AND COPY:FILE.MACROS (482/45). THIS PROGRAM REQUIRES A COPY OF MOVE (482/3) IN ORDER TO LOAD PROPERLY. 00482/050 FILE SYSTEM TABLRTN TEST OC G FILE:TABLTST.O 5.0T1 1183 FILE_SYSTEM.TABLRTN_TEST.OC.050 1 LINE 80 5 PAGE UM HELFFRICH JULY 03, 1981 13:57:35 5.0T3 177 FILE:TABLTST.O 00482/051A FILE SYSTEM CATALOG SCAN SA G FILE:CATSCAN(1000) 5.0T1 1184 FILE_SYSTEM.CATALOG_SCAN.SA.051 1 LINE 70 9 PAGE UM HELFFRICH JULY 03, 1981 13:57:36 5.0T3 178 FILE:CATSCAN 0 A PROGRAM WHICH GOES THROUGH THE CATALOG BY USER ID AND GATHERS INFORMATION OF INTEREST, E.G., THE NUMBER OF FILES WITH SPECIFIC SHARING DESCRIPTORS, ETC. IT TAKES A LONG TIME TO RUN. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00482/052A FILE SYSTEM CATALOG SCAN OC G FILE:CATSCAN(1,999) 5.0T1 1185 FILE_SYSTEM.CATALOG_SCAN.OC.052 1 LINE 80 7 PAGE UM HELFFRICH JULY 03, 1981 13:57:39 5.0T3 179 00482/053 FILE SYSTEM DOCUMENTATION WF S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOCUMENTATION.WF.052(1) 1165 5.0T1 1186 FILE_SYSTEM.DOCUMENTATION.WF.053 1 LINE 190 63 PAGE UM HELFFRICH DEC. 10, 1976 17:23:53 5.0T3 180 0 FORMAT INPUT FOR THE MTS FILE SYSTEM INTERNAL DOCUMENTATION. THE FORMAT OUTPUT SHOULD BE RUN THROUGH THE INDEX PROGRAM (482/54) TO PRODUCE AN INDEX FOR THE FRONT OF THIS WRITEUP. COMPONENT (482/55) CONTAINS COMMANDS TO DO THIS. SEE ALSO COMP (682/1) FOR ADDITIONAL DOCUMENTATION RELATED TO THE FILE SYSTEM. 0 Referenced by comments of: 482/55, 482/58 00482/054 FILE SYSTEM INDEX SS G S0563 D4T1 VLO FSNAME=FILE_SYSTEM.INDEX.SS.053(1) 1166 5.0T1 1187 FILE_SYSTEM.INDEX.SS.054 1 LINE 68 1 PAGE UM HELFFRICH DEC. 10, 1976 17:24:07 5.0T3 181 0 SNOBOL PROGRAM TO PRODUCE A TABLE OF CONTENTS FOR THE FILE SYSTEM INTERNAL DOCUMENTATION. 0 Referenced by comments of: 482/53, 482/55 00482/055 FILE SYSTEM DOC CMDS C S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOC_CMDS.C.054(1) 1167 5.0T1 1188 FILE_SYSTEM.DOC_CMDS.C.055 1 LINE 65 1 PAGE UM HELFFRICH DEC. 10, 1976 17:24:15 5.0T3 182 0 A COMMAND FILE TO PRODUCE THE COMPLETE FILE SYSTEM INTERNAL DOCUMENTATION. IT REFERENCES THE FORMAT INPUT (482/53) AND THE INDEX PROGRAM (482/54). 1 MON AUG 05/96 18:37:45 Page 206 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 482/53 00482/056 FILE SYSTEM DSECTLIST1 SS G S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DSECTLIST1.SS.055(1) 1168 5.0T1 1189 FILE_SYSTEM.DSECTLIST1.SS.056 1 LINE 53 1 PAGE UM HELFFRICH JULY 27, 1977 03:56:53 5.0T3 183 0 This SNOBOL program and DSECTLIST2 (482/57) are used to convert an assembly language DSECT into format input which includes symbol values for inclusion in a writeup. 0 Referenced by comments of: 482/57, 482/58 00482/057 FILE SYSTEM DSECTLIST2 SS G S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DSECTLIST2.SS.056(1) 1169 5.0T1 1190 FILE_SYSTEM.DSECTLIST2.SS.057 1 LINE 63 1 PAGE UM HELFFRICH JULY 27, 1977 03:56:55 5.0T3 184 0 The SPUNCH output from (482/56) should be run through this program, the SPUNCH output from this program then being *FORMAT input. 0 Referenced by comments of: 482/56, 482/58 00482/058 FILE SYSTEM DSECTLIST CMDS C S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DSECTLIST_CMD.C.057(1) 1170 5.0T1 1191 FILE_SYSTEM.DSECTLIST_CMD.C.058 1 LINE 71 1 PAGE UM HELFFRICH JULY 27, 1977 03:56:57 5.0T3 185 0 This command file will run the DSECTLIST programs (482/56) and (482/57) and slightly edit the output for each of the file system DSECTS: FCBEQU, BCBEQU, CATEQU, DSKDSCT, DSCBDSCT, PATEQU, ICEQU, and FDUBDSECT. The resulting output is included as part of (482/53). 00482/059A FILE SYSTEM SCRATCH SIZES C FILE:SCRATCHSIZES(1) 5.0T1 1192 FILE_SYSTEM.SCRATCH_SIZES.C.059 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 13:57:53 5.0T3 186 FILE:SCRATCHSIZES 0 A SOURCE FILE TO GENERATE A LIST OF HOW MUCH SCRATCH AREA SPACE EACH FILE ROUTINE SUBROUTINE NEEDS. THE FILE CONTAINS THE NECESSARY COMMANDS TO INVOKE THE ASSEMBLER, THE ASSEMBLER MACROS WHICH DO THE DIRTY WORK, AND THE DATA UPON WHICH THE MACROS WORK. THE COMMANDS ARE DEPENDENT UPON THE FILE NAME WHICH CONTAINS THEM. 00482/060 FILE SYSTEM TRAKSTAT SA O FILE:TRAKSTAT(1000) 5.0T1 1193 FILE_SYSTEM.TRAKSTAT.SA.060 1 LINE 72 7 PAGE UM HELFFRICH JULY 03, 1981 13:57:54 5.0T3 187 FILE:TRAKSTAT 0 PROGRAM TO DISPLAY HISTOGRAMS, PREFERABLY ON A 3270 DEVICE, OF CURRENT DISK ACTIVITY IN VARIOUS CATEGORIES: LINE DIRECTORY, DATA, CATALOG, PAT, AND DSCB. TAKES THE FOLLOWING PAR FIELD PARAMETERS: NOHIST TO SUPPRESS HISTOGRAMS NOCLEAR TO SUPPRESS CLEARING OF CUMULATIVE I/O COUNTS DT= NS|NM|NH¬ TO DEFINE SAMPLE INTERVAL RESET= NO|YES¬ TO RESET SWITCH IN TRAK (482/7) WHICH TRIGGERS STATISTICS COLLECTION 1 MON AUG 05/96 18:37:45 Page 207 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 DEFAULT PARAMETERS ARE DT=15S, RESET=YES. COPIES COPY:FILE.MACROS (482/45) AND COPY:MTS.MACROS (344/3). 00482/061 FILE SYSTEM TRAKSTAT OC O FILE:TRAKSTAT(1,999) 5.0T1 1194 FILE_SYSTEM.TRAKSTAT.OC.061 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 13:58:01 5.0T3 188 0 Contains a $CONTINUE WITH COPY:SYSDEFS (579/3) record. 00482/062 FILE SYSTEM TRAKSTATAREA SA O FILE:TRAKSTATAREA(1000) 5.0T1 1195 FILE_SYSTEM.TRAKSTATAREA.SA.062 1 LINE 62 1 PAGE UM HELFFRICH JULY 03, 1981 13:58:04 5.0T3 189 FILE:TRAKSTATAREA 0 THIS REGION MUST BE PISTLED WITH THE "ALIGN" OPTION BEFORE FILE SYSTEM STATISTICS MAY BE GENERATED. THE FIRST WORD OF THIS REGION IS A COUNT RELATING TO HOW MANY PUBLIC VOLUMES THERE ARE FOR WHICH STATISTICS MAY BE ACCUMULATED. 00482/063 FILE SYSTEM TRAKSTATAREA OC O FILE:TRAKSTATAREA(1,999) 5.0T1 1196 FILE_SYSTEM.TRAKSTATAREA.OC.063 1 LINE 80 2 PAGE UM HELFFRICH JULY 03, 1981 13:58:05 5.0T3 190 00483/001A *WATFIV UPDATE UU G W159:WAT5.SGEN 5.0T1 1197 WATFIV.UPDATE.UU.001 1 LINE 80 31 PAGE UM SHERRY JULY 03, 1981 13:58:06 5.0T3 191 0 THE WATFIV UPDATE DECK (483/1) IS ORGANIZED (BY LINE NUMBER) AS FOLLOWS: LINE NUMBERS FILE # NAME 2000,2999 *2* ACCT 9000,9999 *9* ARITH 11000,11999 *11* CDEFN 17000,17999 *17* COMMR 34000,34999 *34* DODO 42000,42999 *42* ERROR 44000,44999 *44* ERRTEXTS 46000,46999 *46* EXTRN 49000,49999 *49* FORMAT 50000,50999 *50* FORMCONV 51000,51999 *51* FRIOSCAN 53000,53999 *53* FUNCTION 55000,55999 *55* IBCOM# 58000,58999 *58* INOUT 60000,60999 *60* LANDR 61000,61999 *61* MAIN 66000,66999 *66* NAMELIST 68000,68999 *68* OPTIONS 71000,71999 *71* SCAN 75000,75999 *75* SPEX 76000,76999 *76* STARTA 77000,77999 *77* STARTB 78000,78999 *78* STOP# 79000,79999 *79* SYS 1 MON AUG 05/96 18:37:45 Page 208 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 84000,84999 *84* WATIO 85000,85999 *85* WATLOAD 86000,86999 *86* ZMONTH LINE NUMBERS IN THIS FILE ARE IMPORTANT. THIS COMPONENT SHOULD BE RESTORED TO A FILE NAMED WAT5.SGEN SINCE THE COMMAND FILE (483/7) HAS NUMEROUS REFERENCES TO THIS FILE. ********************************************************************************* D5.0 version: Some minor bugs have been fixed. ********************************************************************************* 0 Referenced by comments of: 483/1, 483/7 00483/002A *WATFIV FIOCS SA G W159:WAT5.FIOCS.S 5.0T1 1198 WATFIV.FIOCS.SA.002 1 LINE 80 15 PAGE UM SHERRY JULY 03, 1981 13:58:10 5.0T3 192 0 ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO. 0 Referenced by comments of: 483/8 00483/003 *WATFIV DIOCS SA G S0563 D4T1 VLO FSNAME=WATFIV.DIOCS.SA.003(1) 1174 5.0T1 1199 WATFIV.DIOCS.SA.003 1 LINE 80 3 PAGE UM SHERRY JULY 27, 1977 03:57:08 5.0T3 193 0 ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO. 0 Referenced by comments of: 483/8 00483/004A *WATFIV DEFAULT SA G W159:WAT5.DFALT.S 5.0T1 1200 WATFIV.DEFAULT.SA.004 1 LINE 71 2 PAGE UM SHERRY JULY 03, 1981 13:58:14 5.0T3 194 0 SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER. ASSEMBLE USING *SYSMAC. NOTE: THIS ROUTINE IS ALSO USED BY ALGOLW (528) AND PLC (485). 0 Referenced by comments of: 483/8 00483/005 *WATFIV OBJECT OE G # *WATFIV UM SHERRY 0 NOTE: BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED. 00483/006A *WATFIV TEST DECKS SF G W159:WAT5.TEST 5.0T1 1201 WATFIV.TEST_DECKS.SF.006 1 LINE 80 8 PAGE UM SHERRY JULY 03, 1981 13:58:16 5.0T3 195 0 THE FIRST FEW LINES ON THIS FILE CONTAIN THE MTS COMMANDS NEEDED TO COMPILE THE TEST DECKS WHICH START AT LINE 1000. THEY MUST BE RUN WITH THE FOLLOWING I/O ASSIGNMENTS (TEMPORARY FILES): 1 MON AUG 05/96 18:37:45 Page 209 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 1 A SEQUENTIAL FILE 2 A LINE FILE 3 ANOTHER LINE FILE LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00483/007A *WATFIV REASS C W159:WAT5.REASS 5.0T1 1202 WATFIV.REASS.C.007 1 LINE 116 6 PAGE UM SHERRY JULY 03, 1981 13:58:18 5.0T3 196 0 THIS FILE CONTAINS ALL THE MTS COMMANDS NECESSARY TO GENERATE THE VARIOUS COMPONENTS OF WATFIV. THE MTS COMMANDS ARE ORGANIZED (BY LINE NUMBER) IDENTICALLY TO (483/1), E.G. THE SOURCE COMMANDS NECESSARY TO ASSEMBLE WATIO (TAPE FILE #84) ARE LOCATED IN THE LINE RANGE 84000,84999 AS ARE THE CORRESPONDING UPDATE CONTROL CARDS IN WAT5.SGEN (483/1). LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE (483/8) CONTAINS REFERENCES BY LINE NUMBER. THIS FIRST HUNDRED LINES OF THIS FILE CONTAIN DESCRIPTIONS OF THE VARIOUS SOURCE COMMANDS. THIS FILE CONTAINS TWO $MOUNT COMMANDS-- ONE TO MOUNT THE WATERLOO DISTRIBUTION TAPE AND ANOTHER TO MOUNT A TAPE WHICH RECEIVES THE UNLOADED WATFIV SOURCE FILES. THE MOUNT COMMANDS ARE AT LINE NUMBERS 101 AND 201, RESPECTIVELY, AND SHOULD BE REPLACED APPROPRIATELY. 0 Referenced by comments of: 483/1, 483/8 00483/008A *WATFIV $SOU C W159:WAT5.$SOU 5.0T1 1203 WATFIV.$SOU.C.008 1 LINE 55 1 PAGE UM SHERRY JULY 03, 1981 13:58:19 5.0T3 197 0 THIS FILE CONTAINS ALL THE "$SOURCE WAT5.REASS(---)" (483/7) COMMANDS NECESSARY TO GENERATE THE MTS VERSION OF WATFIV. THIS IS A FIVE STEP PROCEDURE: 1. THE SOURCE CODE FOR WATFIV IS UNLOADED FROM THE WATERLOO DISTRIBUTION TAPE (WATFIV V1L4) ONTO ANOTHER TAPE; A MACRO LIBRARY IS UNLOADED; AND THE FUNCTION OBJECT DECK LIBRARY IS UNLOADED AND UPDATED. 2. THE COPY SECTIONS ACCT, CDEFN, COMMR, ERRTEXTS, EXTRN, OPTIONS, STARTA, STARTB, AND SYS ARE GENERATED (A DISK FILE WITH THE SAME NAME IS PRODUCED FOR EACH COPY SECTION). 3. THE WATFIV CSECTS ARE ASSEMBLED. 4. THE LOCAL MTS ORIGINATED ROUTINES FIOCS (483/2), DIOCS (483/3), DFLT (483/4), TIME (483/9), AND MTSFUN (483/10) ARE ASSEMBLED. 5. THE RESULTING OBJECT DECKS ARE LINKEDITED VIA THE PROCEDURE (483/11) AND THE OUTPUT IS PLACED IN A FILE NAMED WAT5, WHICH MAY BE COPIED TO THE PUBLIC FILE *WATFIV. THUS, WATFIV WILL BE GENERATED IF THIS FILE IS $SOURCED TO. 0 Referenced by comments of: 483/7 00483/009 *WATFIV TIME SA O S0563 D4T1 VLO FSNAME=WATFIV.TIME.SA.009(1) 1179 5.0T1 1204 WATFIV.TIME.SA.009 1 LINE 80 7 PAGE UM SHERRY JULY 27, 1977 03:57:19 5.0T3 198 0 VERSION OF THE MTS TIME SUBROUTINE RECODED TO CONFORM TO WATFIV CALLING CONVENTIONS. 1 MON AUG 05/96 18:37:45 Page 210 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PROGRAM WRITTEN AT UBC. ASSEMBLE USING *SYSMAC AND THE TWO WATERLOO MACRO LIBRARIES. 0 Referenced by comments of: 483/8 00483/010 *WATFIV MTSFUN SA G S0563 D4T1 VLO FSNAME=WATFIV.MTSFUN.SA.010(1) 1180 5.0T1 1205 WATFIV.MTSFUN.SA.010 1 LINE 80 4 PAGE UM SHERRY JULY 27, 1977 03:57:21 5.0T3 199 0 CODE FOR BUILTIN SUBROUTINES RAND, SCLOCK, CLOCK, IEOR, IOR, IAND, AND ICOMPL. ASSEMBLE USING *SYSMAC AND THE TWO WATERLOO MACRO LIBRARIES. 0 Referenced by comments of: 483/8 00483/011A *WATFIV RELINK C W159:WAT5.RELINK 5.0T1 1206 WATFIV.RELINK.C.011 1 LINE 20 1 PAGE UM SHERRY JULY 03, 1981 13:58:21 5.0T3 200 0 LINKEDITOR COMMANDS REQUIRED TO LINKEDIT WATFIV. "INCLUDES" WAT5.O (483/12). 0 Referenced by comments of: 483/8, 483/12 00483/012A *WATFIV WAT5.O OC G W159:WAT5.O 5.0T1 1207 WATFIV.WAT5.O.OC.012 1 LINE 80 1 PAGE UM SHERRY JULY 03, 1981 13:58:22 5.0T3 201 0 THIS FILE CONTAINS A SERIES OF "$CONTINUE WITH" RECORDS, THE OBJECT FOR SPIE, AND SOME LOADER CONTROL RECORDS TO CAUSE THE VARIOUS WATFIV SUB-COMPONENTS TO BE LOADED WHEN THIS FILE IS $RUN. ALSO REFERENCED BY (483/11) TO LINKEDIT WATFIV. 0 Referenced by comments of: 483/11 00484/001A *ACCRESTORE OE G *ACCRESTORE 5.0T1 1208 ACCRESTORE..OE.001 1 LINE 3584 3 PAGE UM ENGLE JULY 03, 1981 13:58:23 5.0T3 202 *ACCRESTORE 0 PROGRAM TO COMPUTE NUMBER OF CURRENT SIGNONS AND CURRENT DISK SPACE FOR A USERID AND THEN UPDATE THE ACCOUNTING RECORD. FILE IS LINKEDIT OF ACCSTRUP (104/32), THE MAIN PROGRAM, PLUS CURSIG (104/87), ACATALOG (104/113), GETFILE (104/111), ACCIO (104/25), ACCFLUPD (104/81), FILERATE (104/19), AND SYSDEFS. THIS FILE MUST BE PERMITTED AS FOLLOWS: U/N,R (P=W&PKEY=*MTS.RUN,USERID&PKEY=*MTS.ETC.RUN) WHERE "USERID" SHOULD BE REPLACED BY THE USER ID USED TO RUN DEADFILES (502). THIS FILE MUST BE GIVEN THE PROGRAM KEY *ACRESTORE. 0 Referenced by comments of: 136/2, 502/11 00485/001A *PLC INSTALLATION WF PL1:PLCINSTALL.W 5.0T1 1209 PLC.INSTALLATION.WF.001 1 LINE 132 6 PAGE UM TIFFANY JULY 03, 1981 13:58:23 5.0T3 203 0 Due to copyright restrictions, the master source, macro library, and object for PL/C cannot be distributed. It must be obtained directly from Cornell University. 1 MON AUG 05/96 18:37:45 Page 211 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (485/1) consists of instructions for installing PL/C release 7.6 in MTS. 0 Referenced by comments of: 483/4, 485/1, 485/21, 485/23 00485/002C *PLC OSPLCGEN C G S0548 PLCARC 'PLC ARCHIVE' FSNAME=OSPLCGEN 5.0T1 1210 PLC.OSPLCGEN.C.002 1 LINE 67 2 PAGE UM TIFFANY APR. 10, 1981 15:16:29 5.0T3 204 0 MTS command file to generate OS PL/C in file OSPLC. 00485/003A *PLC MTSPLCGEN C G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MTSPLCGEN 5.0T1 1211 PLC.MTSPLCGEN.C.003 1 LINE 110 3 PAGE UM TIFFANY APR. 10, 1981 15:16:47 5.0T3 205 0 MTS command file to generate initial MTS PL/C in file MTSPLC. 00485/004C *PLC INITPLCGEN C O S0548 PLCARC 'PL/C ARCHIVE' FSNAME=INITPLCGEN 5.0T1 1212 PLC.INITPLCGEN.C.004 1 LINE 110 2 PAGE UM TIFFANY APR. 10, 1981 15:16:59 5.0T3 206 0 MTS command file to generate the copy section PLCLXRWT to be replaced in PLCMACLIB (485/36), and the object modules PLCMAIN, PLCRVT, and PLCRTT to be replaced in MTSPLC. 00485/005C *PLC MESGPLCGEN C G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MESGPLCGEN 5.0T1 1213 PLC.MESGPLCGEN.C.005 1 LINE 106 1 PAGE UM TIFFANY APR. 10, 1981 15:17:10 5.0T3 207 0 MTS command file to generate error messages with corrections. 00485/006C *PLC CLEANPLCGEN C G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CLEANPLCGEN 5.0T1 1214 PLC.CLEANPLCGEN.C.006 1 LINE 106 3 PAGE UM TIFFANY APR. 10, 1981 15:17:19 5.0T3 208 0 Final generation -- the result is an unpatched PLC object deck. 00485/007C *PLC CGDR.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CGDR.U 5.0T1 1215 PLC.CGDR.U.UC.007 1 LINE 71 3 PAGE UM TIFFANY APR. 10, 1981 15:24:47 5.0T3 209 0 MTS update for the code-generation driver module. 00485/008C *PLC CGIG.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CGIG.U 5.0T1 1216 PLC.CGIG.U.UC.008 1 LINE 58 1 PAGE UM TIFFANY APR. 10, 1981 15:25:00 5.0T3 210 0 MTS update for the code-generation interpretive coder. 00485/009C *PLC CGXG.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CGXG.U 5.0T1 1217 PLC.CGXG.U.UC.009 1 LINE 63 1 PAGE UM TIFFANY APR. 10, 1981 15:25:14 5.0T3 211 0 MTS update for the expression code-generator. 1 MON AUG 05/96 18:37:45 Page 212 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00485/010A *PLC CONT.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.U 5.0T1 1218 PLC.CONT.U.UC.010 1 LINE 100 9 PAGE UM TIFFANY APR. 10, 1981 15:25:28 5.0T3 212 0 MTS update for the collection of CSECTS which control the sequencing of the compiler phases and provide interfacing between PL/C and the low level routines. 00485/011C *PLC CVNM.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CVNM.U 5.0T1 1219 PLC.CVNM.U.UC.011 1 LINE 67 1 PAGE UM TIFFANY APR. 10, 1981 15:25:45 5.0T3 213 0 MTS update for number conversion routine. 00485/012A *PLC DGIO.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DGIO.U 5.0T1 1220 PLC.DGIO.U.UC.012 1 LINE 95 1 PAGE UM TIFFANY APR. 10, 1981 15:25:55 5.0T3 214 0 MTS update for the I/O-statement code generator. 00485/013A *PLC ERMW.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=ERMW.U 5.0T1 1221 PLC.ERMW.U.UC.013 1 LINE 92 3 PAGE UM TIFFANY APR. 10, 1981 15:26:15 5.0T3 215 0 MTS update for the module which produces the error messages. 00485/014C *PLC EXEC.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXEC.U 5.0T1 1222 PLC.EXEC.U.UC.014 1 LINE 71 1 PAGE UM TIFFANY APR. 10, 1981 15:26:39 5.0T3 216 0 MTS update for the module which contains run-time utility routines. 00485/015C *PLC EXIO.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXIO.U 5.0T1 1223 PLC.EXIO.U.UC.015 1 LINE 51 1 PAGE UM TIFFANY APR. 10, 1981 15:26:51 5.0T3 217 0 MTS update for the module which contains common run-time I/O routines. 00485/016C *PLC EXON.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXON.U 5.0T1 1224 PLC.EXON.U.UC.016 1 LINE 44 1 PAGE UM TIFFANY APR. 10, 1981 15:27:00 5.0T3 218 0 MTS update for the module containing the ON-unit manager. 00485/017A *PLC EXRI.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXRI.U 5.0T1 1225 PLC.EXRI.U.UC.017 1 LINE 99 1 PAGE UM TIFFANY MAY 15, 1981 11:32:25 5.0T3 219 0 MTS update for the module which performs record I/O. 00485/018C *PLC EXUD.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXUD.U 5.0T1 1226 PLC.EXUD.U.UC.018 1 LINE 67 1 PAGE UM TIFFANY APR. 10, 1981 15:27:25 5.0T3 220 0 MTS update for the module that processes undefined variables. 1 MON AUG 05/96 18:37:45 Page 213 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00485/019A *PLC GPCR.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=GPCR.U 5.0T1 1227 PLC.GPCR.U.UC.019 1 LINE 87 1 PAGE UM TIFFANY APR. 10, 1981 15:27:35 5.0T3 221 0 MTS update for the module which performs conversions at run-time. 00485/020A *PLC IM.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=IM.U 5.0T1 1228 PLC.IM.U.UC.020 1 LINE 98 5 PAGE UM TIFFANY APR. 10, 1981 15:27:47 5.0T3 222 0 MTS update for the installation-dependent module. 00485/021C *PLC INIT.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=INIT.U 5.0T1 1229 PLC.INIT.U.UC.021 1 LINE 68 3 PAGE UM TIFFANY APR. 10, 1981 15:27:58 5.0T3 223 0 See installation writeup (485/1) for details. 00485/022C *PLC LEXI.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=LEXI.U 5.0T1 1230 PLC.LEXI.U.UC.022 1 LINE 66 1 PAGE UM TIFFANY APR. 10, 1981 15:28:08 5.0T3 224 0 Update applies to PLCMACLIB (485/36), which contains several copy sections for the Lexical Analyzer. If you are changing PLCLEXI, PLCSYNA and PLCPICT must also be reassembled since they copy part of PLCLEXI. 00485/023C *PLC MESG.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MESG.U 5.0T1 1231 PLC.MESG.U.UC.023 1 LINE 59 1 PAGE UM TIFFANY APR. 10, 1981 15:28:22 5.0T3 225 0 See installation writeup (485/1) for details. 00485/024A *PLC MIMO.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.U 5.0T1 1232 PLC.MIMO.U.UC.024 1 LINE 97 8 PAGE UM TIFFANY APR. 10, 1981 15:28:32 5.0T3 226 0 MTS update for the module which gains initial control in PL/C (mini-monitor). 00485/025A *PLC OPTB.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTB.U 5.0T1 1233 PLC.OPTB.U.UC.025 1 LINE 72 1 PAGE UM TIFFANY APR. 10, 1981 15:28:43 5.0T3 227 0 MTS update for the module which defines the default options for PL/C. 00485/026A *PLC OPTN.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTN.U 5.0T1 1234 PLC.OPTN.U.UC.026 1 LINE 99 4 PAGE UM TIFFANY APR. 10, 1981 15:28:52 5.0T3 228 0 MTS update for the module which performs the compiler options scanning. 1 MON AUG 05/96 18:37:45 Page 214 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00485/027C *PLC PICT.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PICT.U 5.0T1 1235 PLC.PICT.U.UC.027 1 LINE 62 1 PAGE UM TIFFANY APR. 10, 1981 15:29:01 5.0T3 229 0 MTS update for the module that processes pictures. 00485/028C *PLC RVRS.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=RVRS.U 5.0T1 1236 PLC.RVRS.U.UC.028 1 LINE 36 1 PAGE UM TIFFANY APR. 10, 1981 15:29:11 5.0T3 230 0 MTS update for the reverse-translation generator. 00485/029C *PLC SYNA.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYNA.U 5.0T1 1237 PLC.SYNA.U.UC.029 1 LINE 68 3 PAGE UM TIFFANY APR. 11, 1981 16:19:06 5.0T3 231 0 Update applies only to PLCMACLIB (485/36), which contains several copy sections for the Syntactic-Analysis Routine. 00485/030A *PLC SYSO.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.U 5.0T1 1238 PLC.SYSO.U.UC.030 1 LINE 100 18 PAGE UM TIFFANY APR. 10, 1981 15:29:47 5.0T3 232 0 MTS update for the module which interfaces with the operating system. 00485/031C *PLC XREF.U UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=XREF.U 5.0T1 1239 PLC.XREF.U.UC.031 1 LINE 69 1 PAGE UM TIFFANY APR. 10, 1981 15:30:06 5.0T3 233 0 MTS update for the cross-reference generator. 00485/032A *PLC DEFAULT SA G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.S 5.0T1 1240 PLC.DEFAULT.SA.032 1 LINE 71 3 PAGE UM TIFFANY APR. 19, 1978 17:48:53 5.0T3 234 0 Subroutine to handle default page and time estimates in MTS -- not part of the Cornell source. 00485/033A *PLC DEFAULT OC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.O 5.0T1 1241 PLC.DEFAULT.OC.033 1 LINE 80 1 PAGE UM TIFFANY APR. 19, 1978 17:48:00 5.0T3 235 00485/034C *PLC PLCMSGS SA G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCMSGS 5.0T1 1242 PLC.PLCMSGS.SA.034 1 LINE 72 4 PAGE UM TIFFANY APR. 10, 1981 15:30:20 5.0T3 236 0 Source for a routine to print all PL/C error messages. Use this for verification of error messages. (Not a part of the Cornell source.) Copies *GDINFODSECT (594). 1 MON AUG 05/96 18:37:45 Page 215 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00485/035C *PLC PLCMSGS OC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCMSGS.O 5.0T1 1243 PLC.PLCMSGS.OC.035 1 LINE 80 3 PAGE UM TIFFANY APR. 10, 1981 15:30:37 5.0T3 237 0 Refers to PLCMSGA...PLCMSGF. 00485/036C *PLC PLCMACLIB SM G # PL1:PLCMACLIB UM TIFFANY 0 PL/C macro library. Cannot be distributed due to copyright restriction. 0 Referenced by comments of: 485/4, 485/22, 485/29, 485/37 00485/037C *PLC PLCMACLIB UC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCMAC.UP 5.0T1 1244 PLC.PLCMACLIB.UC.037 1 LINE 71 2 PAGE UM TIFFANY APR. 10, 1981 15:23:36 5.0T3 238 0 Update for PLCMACLIB (485/36). 00485/038A *PLC OBJECT OC G # SEG2:PLC UM TIFFANY 0 PL/C segment 2 object. Cannot be distributed due to copyright restrictions. 00485/039A *PLC *PLC OC G *PLC 5.0T1 1245 PLC.*PLC.OC.039 1 SEQ 24 1 PAGE UM TIFFANY JULY 03, 1981 14:06:01 5.0T3 239 0 These cards refer to the actual object loaded by PISTLE (559). 00486/001 *HBQ SA # (OBSOLETE) D4T1 1196 HBQ..SA.001 1 LINE 80 18 PAGE UM FEB. 25, 1975 16:41:55 0 Obsoleted by the $SYSTEMSTATUS command. 00487/001A *LABEL MAIN PGM SA G TAPE:LABEL(1,999) 5.0T1 1246 LABEL.MAIN_PGM.SA.001 1 LINE 68 5 PAGE UM LIFT JULY 03, 1981 14:06:02 5.0T3 240 0 PROGRAM TO INITIALIZE LABELED OR UNLABELED MAGNETIC TAPES. CALLS TPINIT SUBROUTINE (487/4). SOURCE IN LINES 1,999. ***************************************************************************** D5.0 version: Accepts keyword "LBLTYPE=ANSI" as last parameter on input line to request that the tape be ANSI labeled. ***************************************************************************** 0 Referenced by comments of: 135/1, 487/3 1 MON AUG 05/96 18:37:45 Page 216 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00487/002A *LABEL MAIN PGM OE G *LABEL 5.0T1 1247 LABEL.MAIN_PGM.OE.002 1 LINE 2068 1 PAGE UM LIFT JULY 03, 1981 14:06:03 5.0T3 241 *LABEL 00487/003A *LABEL *LBL C *LBL 5.0T1 1248 LABEL.*LBL.C.003 1 LINE 34 1 PAGE UM LIFT JULY 03, 1981 14:06:04 5.0T3 242 *LBL 0 COMMAND FILE TO RUN *LABEL (487/1) FOR THE OPERATORS. INVOKED BY ENTERING "MTS *LBL" ON THE OPERATOR'S CONSOLE. 00487/004A *LABEL TPINIT SUBR SA G TAPE:TAPEINIT(1,999) 5.0T1 1249 LABEL.TPINIT_SUBR.SA.004 1 LINE 72 4 PAGE UM LIFT JULY 03, 1981 14:06:05 5.0T3 243 0 SUBROUTINE, WITH ALTERNATE ENTRY TAPEINIT, WHICH INITIALIZES TAPES (LABELED OR UNLABELED). SOURCE IN LINES 1,999. ***************************************************************************** D5.0 version: A fifth parameter has been added to specify what kind of labels are generated. It is "LBLTYP", which may be "OS/VS", "VLO", or "ANSI". ***************************************************************************** 0 Referenced by comments of: 487/1 00487/005A *LABEL TPINIT SUBR OC G # (PART OF *LIBRARY) UM LIFT 0 Object part of *LIBRARY (524/1) 00488/001 CONTROL SA # (OBSOLETE) D2.3 035 UM 00489/001 TAPETEST SA G TT S1153 UNSP VLO FSNAME=TT.S 5.0T1 1250 TAPETEST..SA.001 1 LINE 80 16 PAGE UM UNSP JUNE 24, 1980 14:38:28 5.0T3 244 0 THE TAPETEST (TT) PROGRAM WAS DESIGNED TO CHECK OUT THE MTS MAG TAPE ROUTINES (135). HOWEVER, IT SEEMS TO BE A RATHER MORE GENERALLY USEFUL UTILITY FOR PERFORMING I/O. IT FIELDS ATTENTION INTERRUPTS AND DSR ERRORS. COPIES *SENSEDSECT (3025). 00489/002 TAPETEST OE G UNSP:TESTIO 5.0T1 1251 TAPETEST..OE.002 1 LINE 3148 3 PAGE UM UNSP JULY 03, 1981 14:06:11 5.0T3 245 UNSP:TESTIO 00489/003A TAPETEST P UNSP:TESTIO.W 5.0T1 1252 TAPETEST..P.003 1 LINE 73 1 PAGE UM UNSP JULY 03, 1981 14:06:12 5.0T3 246 1 MON AUG 05/96 18:37:45 Page 217 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00490/001 *LAR C *LAR 5.0T1 1253 LAR..C.001 1 LINE 29 1 PAGE UM MTA JULY 03, 1981 14:06:13 5.0T3 247 STRT:*LAR 0 COMMAND FILE TO RUN UNITS (1012) TO RESET ALL 2703 (AND SIMILAR) LINES. IT RESETS EVERYTHING WITH DEVICE TYPE MRXA, SDA, TTY, OR 2741. INVOKED BY ENTERING "MTS *LAR" ON THE OPERATOR'S CONSOLE. IT SHOULD ONLY BE USED WHEN A 2703 OR MEMOREX 1270 HAS DROPPED ITS LINES SINCE IT FAKES A UNIT CHECK ON EACH 2703 ADDRESS. 00491/001 *SCRAMBLE # (OBSOLETE) D4T1 1204 SCRAMBLE..SF.001 1 LINE 50 1 PAGE UM JUNE 06, 1976 22:11:25 D4T3 303 0 Obsoleted by *ENCRYPT (677) 00492/001 *DCALC SP G S0563 D4T1 VLO FSNAME=DCALC..SP.001(1) 1207 5.0T1 1254 DCALC..SP.001 1 LINE 80 13 PAGE UM MTA AUG. 03, 1973 21:27.08 5.0T3 248 0 PL/I DESK CALCULATOR PROGRAM. 00492/002A *DCALC OE G *DCALC 5.0T1 1255 DCALC..OE.002 1 SEQ 21678 9 PAGE UM MTA JULY 03, 1981 14:06:17 5.0T3 249 *DCALC 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. ******************************************************************************* D5.0 version: MSG cards removed. ******************************************************************************* 00493/001 *TALLY MAIN SA O S0563 D4T1 VLO FSNAME=TALLY.370_MAIN.SA.001(1) 1209 5.0T1 1256 TALLY.MAIN.SA.001 1 LINE 80 9 PAGE UM VALERIO JULY 27, 1977 04:12:45 5.0T3 250 0 TALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO COUNT THE NUMBER OF TIMES EACH MACHINE INSTRUCTION IS EXECUTED. 00493/002 *TALLY SIM SUBR SA O S0563 D4T1 VLO FSNAME=TALLY.370_SIM_SUBR.SA.002(1) 1210 5.0T1 1257 TALLY.SIM_SUBR.SA.002 1 LINE 80 36 PAGE UM VALERIO JULY 27, 1977 04:12:47 5.0T3 251 00493/003 *TALLY OBJECT OC O *TALLY 5.0T1 1258 TALLY.OBJECT.OC.003 1 LINE 255 4 PAGE UM VALERIO JULY 03, 1981 14:06:20 5.0T3 252 *TALLY 00494/001 *CSMP SA G CSMP W020:CSMPDISTR(1,341) 5.0T1 1259 CSMP..SA.001 1 LINE 80 8 PAGE UM FLANIGAN JULY 03, 1981 14:06:21 5.0T3 253 0 CONTINUOUS SYSTEM MODELING PROGRAM (MODIFIED FROM IBM). 1 MON AUG 05/96 18:37:45 Page 218 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS. 00494/002 *CSMP OE G *CSMP 5.0T1 1260 CSMP..OE.002 1 SEQ 80 2 PAGE UM FLANIGAN JULY 03, 1981 14:06:22 5.0T3 254 *CSMP 00494/003 *CSMP CSMPTRAN SA G CPTR W020:CSMPDISTR(500,720) 5.0T1 1261 CSMP.CSMPTRAN.SA.003 1 LINE 80 6 PAGE UM FLANIGAN JULY 03, 1981 14:06:24 5.0T3 255 0 TRANSLATION CONTROL. ASSEMBLE USING *SYSMAC AND PUT IN *CSMPTRAN. ADD "$CONTINUE WITH *CSMPLIB" AT END. 00494/004 *CSMP *CSMPTRAN OE G *CSMPTRAN 5.0T1 1262 CSMP.*CSMPTRAN.OE.004 1 SEQ 80 1 PAGE UM FLANIGAN JULY 03, 1981 14:06:25 5.0T3 256 *CSMPTRAN 0 ENDS WITH A "$CONTINUE WITH *CSMPLIB" CARD. 00494/005 *CSMP CSMPEXEC SA G CPEX W020:CSMPDISTR(1000,1107) 5.0T1 1263 CSMP.CSMPEXEC.SA.005 1 LINE 80 4 PAGE UM FLANIGAN JULY 03, 1981 14:06:25 5.0T3 257 0 EXECUTION CONTROL 00494/006 *CSMP *CSMPEXEC OE G *CSMPEXEC 5.0T1 1264 CSMP.*CSMPEXEC.OE.006 1 SEQ 80 1 PAGE UM FLANIGAN JULY 03, 1981 14:06:26 5.0T3 258 *CSMPEXEC 00494/007 *CSMP CSMPLIB IBM S G S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80) 2 5.0T1 1265 CSMP.CSMPLIB_IBM.S.007 1 SEQ 80 155 PAGE UM FLANIGAN JULY 03, 1981 14:07:13 5.0T3 259 0 ORIGINAL IBM SOURCE (FORTRAN AND ASM). 00494/008 *CSMP CSMPLIB UPD UU G W020:CSMPDISTR(2000,2175) 5.0T1 1266 CSMP.CSMPLIB_UPD.UU.008 1 LINE 80 4 PAGE UM FLANIGAN JULY 03, 1981 14:07:15 5.0T3 260 0 THIS UPDATE DECK APPLIES ALL KNOWN IBM APARS PLUS LOCAL CHANGES. IT ASSUMES THE FOLLOWING: 1. IBM SOURCE IS ON TAPE *S* 2. A POOL TAPE HAS BEEN MOUNTED AS *P* 3. AN EMPTY SEQUENTIAL FILE -A EXISTS THIS UPDATE PUTS THE UPDATED CSMP FORTRAN ROUTINES ON *P* WITH BLOCKING FACTOR 100, REWINDS IT, PUTS THE UPDATED CSMP ASSEMBLER ROUTINES IN -A, AND REWINDS AND UNLOADS *S*. 0 Referenced by comments of: 494/10 1 MON AUG 05/96 18:37:45 Page 219 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00494/009 *CSMP CSMPLIB ASM SA G W020:CSMPDISTR(1500,1531) 5.0T1 1267 CSMP.CSMPLIB_ASM.SA.009 1 LINE 70 1 PAGE UM FLANIGAN JULY 03, 1981 14:07:16 5.0T3 261 0 TWO ASM ROUTINES USED DURING DYNAMIC LINKING. 0 Referenced by comments of: 494/10 00494/010 *CSMP *CSMPLIB OL G *CSMPLIB 5.0T1 1268 CSMP.*CSMPLIB.OL.010 1 SEQ 6924 32 PAGE UM FLANIGAN JULY 03, 1981 14:07:17 5.0T3 262 *CSMPLIB 0 LIBRARY MADE FROM ASM AND FTN ROUTINES UPDATED BY (494/8) AND ASM ROUTINES FROM COMPONENT (494/9). (NOTE: FORTRANH HAS BEEN USED.) 00495/001A EXPL SUBMONITOR SA G W052:EXMON.S 5.0T1 1269 EXPL.SUBMONITOR.SA.001 1 LINE 80 33 PAGE UM SHERRY JULY 03, 1981 14:07:19 5.0T3 263 0 EXTENDED VERSION OF XPL. USING THIS VERSION, AN XPL PROGRAM CAN CONSIST OF A COLLECTION OF INDEPENDENTLY COMPILED PROCEDURES. THIS VERSION PRODUCES NORMAL MTS OBJECT DECKS, RATHER THAN SPECIAL OBJECT MODULES. THE SUBMONITOR CONSISTS OF 4 CSECTS: XMON, XPLDFLTS, COMPACT#, AND SORTIT. ALSO INCLUDED ARE THE RUNTIME LIBRARY ROUTINES INDEX, TIMEX, EXCALL, AND MAIN (WHICH IS A DUMMY ROUTINE TO PRINT AN ERROR MESSAGE IF NO MAIN PROCEDURE EXISTS). ASSEMBLE USING *SYSMAC WITH PAR=BATCH. COPIES *GDINFODSECT (594) AND *LOADINFODSECT (001/4). ***************************************************************************** D5.0 VERSION: THIS VERSION OF EXPL IS DESCRIBED IN CCMEMO 416 (495/09) AND INCLUDES THE FOLLOWING CHANGES, PREVIOUSLY DISTRIBUTED WITH THE D4.3A VERSION: 1) SEVERAL BUG FIXES 2) LOWER CASE INPUT ACCEPTED 3) NEW PRODUCTION ADDED TO ALLOW MAIN PROCEDURES TO ACCESS $RUN PAR STRING 4) SOME COMPILER LIMITS WERE INCREASED 5) BUILTIN FUNCTIONS DESCR AND CORE ADDED 6) ALL MTS LOGICAL I/O UNITS NOW ACCESSABLE THROUGH INPUT/OUTPUT FUNCTIONS 7) SEVERAL NEW MONITOR CALLS ADDED 8) LIBRARY ROUTINES INDEX, TIMEX, EXCALL, EXADDR AND EXRC INCLUDED. ***************************************************************************** 0 Referenced by comments of: 318/9, 495/2 00495/002A EXPL *EXPLIB OE G *EXPLIB 5.0T1 1270 EXPL.*EXPLIB.OE.002 1 LINE 5914 6 PAGE UM SHERRY JULY 03, 1981 14:07:21 5.0T3 264 *EXPLIB 0 EXPL RUNTIME LIBRARY. THIS LIBRARY IS GENERATED BY *OBJUTIL (721) AND CONSISTS OF THE OBJECT MODULES PRODUCED BY ASSEMBLING (495/1). 1 MON AUG 05/96 18:37:45 Page 220 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 782/45, 782/60 00495/003A EXPL *EXCOM SX G *EXCOM 5.0T1 1271 EXPL.*EXCOM.SX.003 1 LINE 100 70 PAGE UM SHERRY JULY 03, 1981 14:07:22 5.0T3 265 *EXCOM 0 EXPL SOURCE FOR THE EXTENDED XPL COMPILER. THE RESULTING OBJECT MUST BE RUN CONCATENATED WITH *EXPLIB. 0 Referenced by comments of: 495/4 00495/004A EXPL EXPL OBJ OE G S1482 4.3AT1 VLO FSNAME=EXPL.EXPL_OBJ.OC.006(1) 165 5.0T1 1272 EXPL.EXPL_OBJ.OE.004 1 LINE 32767 41 PAGE UM SHERRY OCT. 12, 1980 15:46:22 5.0T3 266 0 OBJECT PRODUCED BY COMPILING *ECXOM (495/3). 00495/005A EXPL *EXPL OE G *EXPL 5.0T1 1273 EXPL.*EXPL.OE.005 1 SEQ 32767 42 PAGE UM SHERRY JULY 03, 1981 14:08:29 5.0T3 267 *EXPL 0 IT IS MOST CONVENIENT TO LINKEDIT THE COMPILER AND SUBMONITOR TOGETHER TO MAKE *EXPL. NOTE THAT THE ENTRY POINT MUST BE XPLSM. WHEN LINKEDITING, THE XPLDFLTS CSECT WHICH SETS THE FREE STRING AREA SIZE (FSASIZE) TO 15 PAGES SHOULD BE USED. $SOURCE EXPL.LINK (495/08) TO GENERATE THE LINKEDITED VERSION OF EXPL. 00495/006A EXPL *EXPLBNF D G *EXPLBNF 5.0T1 1274 EXPL.*EXPLBNF.D.006 1 LINE 73 3 PAGE UM SHERRY JULY 03, 1981 14:08:32 5.0T3 268 *EXPLBNF 0 SUITABLE INPUT TO *ANALYZER (318/13) TO PRODUCE THE NECESSARY DECLARATIONS FOR DRIVING THE PARSING ALGORITHM FOR *EXPL. 00495/007A EXPL *EXSKELETON SX G *EXSKELETON 5.0T1 1275 EXPL.*EXSKELETON.SX.007 1 LINE 80 12 PAGE UM SHERRY JULY 03, 1981 14:08:32 5.0T3 269 *EXSKELETON 0 THIS IS A VERSION OF SKELETON (318/12), A PROTO-COMPILER FOR USE WITH *EXPL. IT CONSISTS OF SEVERAL INDEPENDENTLY COMPILABLE EXTERNAL PROCEDURES WHICH FORM THE FRAMEWORK FOR A TABLE-DRIVEN COMPILER. 00495/008A EXPL LINK C G S1482 4.3AT1 VLO FSNAME=EXPL.LINK.C.010(1) 169 5.0T1 1276 EXPL.LINK.C.008 1 LINE 22 1 PAGE UM SHERRY OCT. 12, 1980 15:46:30 5.0T3 270 0 SOURCE FILE WHICH LINKEDITS THE APPROPRIATE PIECES OF THE SUBMONITOR AND EXCOM INTO AN EXPL COMPILER. 0 Referenced by comments of: 495/5 1 MON AUG 05/96 18:37:45 Page 221 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00495/009A EXPL MEMO 416 WX S1482 4.3AT1 VLO FSNAME=EXPL.MEMO_416.WX.011(1) 170 5.0T1 1277 EXPL.MEMO_416.WX.009 1 LINE 199 14 PAGE UM SHERRY OCT. 12, 1980 15:46:30 5.0T3 271 0 THIS IS COMPUTING CENTER MEMO 416 -- "EXPL - EXTENDED XPL." THIS MEMO OBSOLETES MEMOS 343 AND 390. 0 Referenced by comments of: 495/1 00496/001 *APC SA G S1430 4.3T1 VLO FSNAME=APC..SA.001(1) 294 5.0T1 1278 APC..SA.001 1 LINE 90 67 PAGE UM TIFFANY APR. 05, 1980 15:16:35 5.0T3 272 0 THIS IS THE ALL-PURPOSE COMPARE PROGRAM WHICH IS USED PRIMARILY TO TEST FOR EQUALITY BETWEEN RECORDS OF TWO FILES OR DEVICES. COPIES *GDINFODSECT (594) AND *SENSEDSECT (3025). 0 Referenced by comments of: 629/12, 1016/1 00496/002 *APC OE G *APC 5.0T1 1279 APC..OE.002 1 LINE 21255 15 PAGE UM TIFFANY JULY 03, 1981 14:08:44 5.0T3 273 *APC 00496/003 *APC EXPLAIN MSG M ETC:APCEXP 5.0T1 1280 APC.EXPLAIN_MSG.M.003 1 LINE 66 10 PAGE UM TIFFANY JULY 03, 1981 14:08:46 5.0T3 274 ETC.:APCEXP 0 EXPLAIN MESSAGE FILE FOR *APC. 00497/001 *SNAP SF G S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80) 1 5.0T1 1281 SNAP..SF.001 1 SEQ 80 132 PAGE UM FLANIGAN JULY 03, 1981 14:08:57 5.0T3 275 00497/002 *SNAP UU G S0563 D4T1 VLO FSNAME=SNAP..UU.002(1) 1241 5.0T1 1282 SNAP..UU.002 1 LINE 73 1 PAGE UM FLANIGAN JULY 30, 1973 20:45.57 5.0T3 276 00497/003 *SNAP OE G *SNAP 5.0T1 1283 SNAP..OE.003 1 SEQ 5212 27 PAGE UM FLANIGAN JULY 03, 1981 14:09:05 5.0T3 277 *SNAP 00498/001A *IG *IG OL G *IG 5.0T1 1284 IG.*IG.OL.001 1 LINE 5372 31 PAGE UM BURLING JULY 03, 1981 14:09:06 5.0T3 278 *IG 0 This is the coding conventions version of the Integrated Graphics, or IG, system. IG is a library of FORTRAN-callable subroutines for performing graphics operations on a large variety of devices. It consists of *IG and routines for device-dependent I/O support. Each source module for this component contains the MTS commands for assembling it. Each should be assembled using COPY:IG.COPY.M (498/16). Many modules use the Version Labeler (812). The following is a directory of the subcomponents of IG: 1 MON AUG 05/96 18:37:45 Page 222 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Subcomponent # Contents (498/2) - (498/13) Device-independent portion of IG (498/14) - (498/15) Dsects for use when debugging (498/16) Macros and copy sections (498/17) - (498/18) Test programs (498/19) - (498/21) Statistics utilities (498/22) Source for PDP-9 op sys for use with IG (498/23) The character font library (498/24) - (498/45) Source for the character fonts (498/46) - (498/47) The new-IG-to-old-DDR adaptor routine (498/48) The skeleton new-style DDR (498/49) - (498/115) DDRs (498/116) - (498/123) A new version, in PLUS, of Interactive IG (498/124) Implementation guide (498/125) EGP writeup (498/126) Usage statistics file This subcomponent is the object library IG users concatenate to their programs. Contains the modules #PWRIT (498/12) IAIG (498/123) plus loader cards to reference the resident IG. NOTE: This assumes that SEG2:IG (498/02) has been installed in shared VM. If this is not the case, this module should be combined with all modules from SEG2:IG except LCS (498/10) and run through *OBJUTIL with PAR=LIB. This subcomponent requires the following other files: *SYSMAC COPY:CC.MACROS (1054/3) *PEXIT (775) ALWB:SIDELABEL (747/3) ********************************************************************************** D5.0 changes: The device-independent portion of IG has essentially been entirely recoded. It is now reentrant and uses the coding conventions. Some new picture attributes have been added (TPLANE, PFILL, PEDGE). Primitive picture attributes have been added (same attributes as basic attributes, but only in effect from when set until end of subpicture, and not inherited). Many new text fonts have been added. As a result, and to make things more consistent, none of the font tables are assembled as part of the DI module (498/04). The standard font (498/45) is loaded during initialization. ********************************************************************************** 0 Referenced by comments of: 498/12, 812/1 1 MON AUG 05/96 18:37:45 Page 223 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/002A *IG SEG2:IG OL G SEG2:IG 5.0T1 1285 IG.SEG2:IG.OL.002 1 LINE 12344 52 PAGE UM BURLING JULY 03, 1981 14:09:09 5.0T3 279 SEG2:IG 0 This is the portion of IG that gets loaded into shared VM. Contains the following IG modules: LCS (498/10) DIUSERXF (498/03) DIRTNS (498/04) DSM (498/05) DUMP (498/06) EGP (498/07) #IGETDD (498/08) LOAD (498/09) PD (498/11) #SS (498/13) and some loader control records (LCS, RIP, etc.) at the end. 0 Referenced by comments of: 498/1, 498/3, 498/4, 498/5, 498/6, 498/7, 498/8, 498/9, 498/11, 498/13 00498/003A *IG DI USERXF SA G GRAF:IG.DIUSER.S 5.0T1 1286 IG.DI_USERXF.SA.003 1 LINE 136 13 PAGE UM BURLING JULY 03, 1981 14:09:18 5.0T3 280 0 This is the user-callable routines module for *IG's Device Interface to its device-dependent routines. Object is in SEG2:IG (498/02). 0 Referenced by comments of: 498/2 00498/004A *IG DI RTNS SA G GRAF:IG.DIRTNS.S 5.0T1 1287 IG.DI_RTNS.SA.004 1 LINE 139 53 PAGE UM BURLING JULY 03, 1981 14:09:27 5.0T3 281 0 This is the internal routines module for *IG's Device Interface to its device-dependent routines. Object is in SEG2:IG (498/02). 0 Referenced by comments of: 498/1, 498/2, 498/45 00498/005A *IG DSM SA G GRAF:IG.DSM.S 5.0T1 1288 IG.DSM.SA.005 1 LINE 133 42 PAGE UM BURLING JULY 03, 1981 14:10:08 5.0T3 282 0 Source for Data Structure Modification csect (DSM). Object is in SEG2:IG (498/02). 0 Referenced by comments of: 498/2 1 MON AUG 05/96 18:37:45 Page 224 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/006A *IG DUMP SA G GRAF:IG.DUMP.S 5.0T1 1289 IG.DUMP.SA.006 1 LINE 134 9 PAGE UM BURLING JULY 03, 1981 14:11:07 5.0T3 283 0 Source for IG Data Structure Dumping routine (IGDUMP). Object is in SEG2:IG (498/02). 0 Referenced by comments of: 498/2 00498/007A *IG EGP SA G GRAF:IG.EGP.S 5.0T1 1290 IG.EGP.SA.007 1 LINE 133 10 PAGE UM BURLING JULY 03, 1981 14:11:12 5.0T3 284 0 Source for External Graphics Procedure csect (EGP). Object is in SEG2:IG (498/02). 0 Referenced by comments of: 498/2 00498/008A *IG GETDD SA G GRAF:IG.GETDD.S 5.0T1 1291 IG.GETDD.SA.008 1 LINE 135 21 PAGE UM BURLING JULY 03, 1981 14:11:14 5.0T3 285 0 Source for Get Device Dependent Routine csect (#IGETDD). Object is in SEG2:IG (498/02). This module has conditional assembly parts for UNE. To use, change the SETC symbol &INSTALL (in IGGBLS) to UNE 0 Referenced by comments of: 498/2 00498/009A *IG LOAD SA G GRAF:IG.LOAD.S 5.0T1 1292 IG.LOAD.SA.009 1 LINE 134 11 PAGE UM BURLING JULY 03, 1981 14:11:30 5.0T3 286 0 Source for Object Loading facility (IGLOAD#). Object is in SEG2:IG (498/02). 0 Referenced by comments of: 498/2 00498/010C *IG LCS SA G GRAF:IG.LCS.S 5.0T1 1293 IG.LCS.SA.010 1 LINE 68 2 PAGE UM BURLING JULY 03, 1981 14:11:32 5.0T3 287 0 Source for the module that defines the IG low core symbol table when IG is installed in shared VM. 0 Referenced by comments of: 498/1, 498/2 1 MON AUG 05/96 18:37:45 Page 225 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/011A *IG PD SA G GRAF:IG.PD.S 5.0T1 1294 IG.PD.SA.011 1 LINE 132 19 PAGE UM BURLING JULY 03, 1981 14:11:32 5.0T3 288 0 Source for Picture Description csect (PD). Object is in SEG2:IG (498/02). 0 Referenced by comments of: 498/2 00498/012A *IG PWRIT SA G GRAF:IG.PWRIT.S 5.0T1 1295 IG.PWRIT.SA.012 1 LINE 113 10 PAGE UM BURLING JULY 03, 1981 14:11:45 5.0T3 289 0 Source for the *PLOTSYS (615/9) interface which allows CalComp plotting programs to run with IG instead. Object is in *IG (498/01). 0 Referenced by comments of: 498/1 00498/013C *IG SYSTEM SERVICE SA G GRAF:IG.SS.S 5.0T1 1296 IG.SYSTEM_SERVICE.SA.013 1 LINE 132 12 PAGE UM BURLING JULY 03, 1981 14:11:46 5.0T3 290 0 Source code for the System Services csect (#SS). Contains system-dependent code (GETSPACE, READ, WRITE, etc). This module has conditional assembly sections for UNE and Wayne State. The UNE code is untested by UM. To use the conditional assembly, change the SETC symbol &INSTALL in IGGBLS (located in COPY:IG.COPY.M (498/16)) to either UNE or WSU. Object is in SEG2:IG (498/02). 0 Referenced by comments of: 498/1, 498/2 00498/014C *IG DSECTS SA G GRAF:IG.XFRM.S 5.0T1 1297 IG.DSECTS.SA.014 1 LINE 93 1 PAGE UM BURLING JULY 03, 1981 14:11:48 5.0T3 291 0 This is a series of dsects defining many of the IG data structures. Useful when debugging IG. 0 Referenced by comments of: 498/1 00498/015C *IG DSECTS OC G GRAF:IG.XFRM 5.0T1 1298 IG.DSECTS.OC.015 1 LINE 80 1 PAGE UM BURLING JULY 03, 1981 14:11:49 5.0T3 292 0 A file that can be INCLUDED in SDS. Contains definitions for the following dsects: XFRM -- The transformation block BRANCH -- The branch block 1 MON AUG 05/96 18:37:45 Page 226 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LEAF -- The leaf block NODE -- The node block BUD -- The bud block 0 Referenced by comments of: 498/1 00498/016A *IG IG MACROS SM G COPY:IG.COPY.M 5.0T1 1299 IG.IG_MACROS.SM.016 1 LINE 73 29 PAGE UM BURLING JULY 03, 1981 14:11:50 5.0T3 293 0 Library of copy sections and macros used by the various components of IG. 0 Referenced by comments of: 498/1, 498/13 00498/017A *IG TEST SF G GRAF:IG.TEST.S 5.0T1 1300 IG.TEST.SF.017 1 LINE 85 22 PAGE UM BURLING JULY 03, 1981 14:11:55 5.0T3 294 0 FORTRAN source for the program to test out new versions of IG. 0 Referenced by comments of: 498/1 00498/018A *IG BRANCH MONITOR SA G GRAF:BMON.S 5.0T1 1301 IG.BRANCH_MONITOR.SA.018 1 LINE 80 5 PAGE UM BURLING JULY 03, 1981 14:12:06 5.0T3 295 0 Source for a program which monitors all the branches in a specified routine. 0 Referenced by comments of: 498/1 00498/019A *IG STATS SAVE C GRAF:IG.SHUFFLE 5.0T1 1302 IG.STATS_SAVE.C.019 1 LINE 56 1 PAGE UM BURLING JULY 03, 1981 14:12:08 5.0T3 296 0 Commands to save the contents of the statistics file (498/126) maintained by IG. The tape mount command in this file must be changed for each installation before it is of use. 0 Referenced by comments of: 498/1 00498/020 *IG STATS CALC SF G S0563 D4T1 VLO FSNAME=IG.STATS_CALC.SF.019 1261 5.0T1 1303 IG.STATS_CALC.SF.020 1 LINE 67 2 PAGE UM BURLING JUNE 16, 1976 19:12:11 5.0T3 297 0 FORTRAN source for a program which calculates and groups information on IG usage from the statistics gathered by IG. 00498/021 *IG STATS SCAN SA G S0563 D4T1 VLO FSNAME=IG.STATS_SCAN.SA.020 1262 5.0T1 1304 IG.STATS_SCAN.SA.021 1 LINE 87 3 PAGE UM BURLING JUNE 16, 1976 19:12:16 5.0T3 298 0 Assembler source for a program to scan selectively for certain records in the statistics file maintained by IG. 1 MON AUG 05/96 18:37:45 Page 227 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 498/1 00498/022A *IG IGRI.339 S S0596 BLAH 'IG ROUTINES' FSNAME=W114:IGRI.339.S 5.0T1 1305 IG.IGRI.339.S.022 1 LINE 79 13 PAGE UM BURLING DEC. 21, 1974 16:04.29 5.0T3 299 0 Source for an operating system for the DEC 339 / PDP-9 which allows the running of IG. 0 Referenced by comments of: 498/1 00498/023A *IG FONTS OE G ETC:IG.FONTS 5.0T1 1306 IG.FONTS.OE.023 1 LINE 8604 26 PAGE UM BURLING JULY 03, 1981 14:16:51 5.0T3 300 ETC:IG.FONTS 0 This file contains the object for the IG character fonts. Each font starts on a multiple of line 100. 0 Referenced by comments of: 498/1 00498/024A *IG ASCII7 SA G S0933 IGDIST FSNAME=IG.ASCII7 5.0T1 1307 IG.ASCII7.SA.024 1 LINE 71 4 PAGE UM BURLING MAR. 02, 1981 10:54:05 5.0T3 301 0 Source for the ASCII7 font used by IG. 0 Referenced by comments of: 498/1 00498/025C *IG CYRILLIC2 SA G S0933 IGDIST FSNAME=IG.CYRILLIC2 5.0T1 1308 IG.CYRILLIC2.SA.025 1 LINE 72 6 PAGE UM BURLING MAR. 02, 1981 10:54:14 5.0T3 302 0 Source for the Cyrillic font used by IG. 00498/026C *IG GOTHIC.ENGLIS SA G S0933 IGDIST FSNAME=IG.GOTHIC.EN 5.0T1 1309 IG.GOTHIC.ENGLIS.SA.026 1 LINE 72 8 PAGE UM BURLING MAR. 02, 1981 10:54:25 5.0T3 303 0 Source for the Gothic English font used by IG. 00498/027C *IG GOTHIC.FRAKTU SA G S0933 IGDIST FSNAME=IG.GOTHIC.FR 5.0T1 1310 IG.GOTHIC.FRAKTU.SA.027 1 LINE 72 9 PAGE UM BURLING MAR. 02, 1981 10:54:35 5.0T3 304 0 Source for the Gothic Fraktur font used by IG. 00498/028C *IG GOTHIC.ITALIA SA G S0933 IGDIST FSNAME=IG.GOTHIC.IT 5.0T1 1311 IG.GOTHIC.ITALIA.SA.028 1 LINE 72 8 PAGE UM BURLING MAR. 02, 1981 10:54:43 5.0T3 305 0 Source for the Gothic Italian font used by IG. 1 MON AUG 05/96 18:37:45 Page 228 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/029A *IG GREEK SA G S0933 IGDIST FSNAME=IG.GREEK 5.0T1 1312 IG.GREEK.SA.029 1 LINE 71 4 PAGE UM BURLING MAR. 02, 1981 10:54:50 5.0T3 306 0 Source for the (obsolete) Greek font used by IG. This font is obsolete because it uses a "funny" (i.e. different than *PLOTSYS) character mapping. One of the other Greek fonts should be used instead. 00498/030C *IG GREEK.CARTOGR SA G S0933 IGDIST FSNAME=IG.GREEK.CAR 5.0T1 1313 IG.GREEK.CARTOGR.SA.030 1 LINE 70 3 PAGE UM BURLING MAR. 02, 1981 10:54:57 5.0T3 307 0 Source for the Greek Cartographic font used by IG. 00498/031C *IG GREEK.1 SA G S0933 IGDIST FSNAME=IG.GREEK1 5.0T1 1314 IG.GREEK.1.SA.031 1 LINE 72 5 PAGE UM BURLING MAR. 02, 1981 10:55:02 5.0T3 308 0 Source for the Greek.1 font used by IG. 00498/032C *IG GREEK.2 SA G S0933 IGDIST FSNAME=IG.GREEK2 5.0T1 1315 IG.GREEK.2.SA.032 1 LINE 72 6 PAGE UM BURLING MAR. 02, 1981 10:55:08 5.0T3 309 0 Source for the Greek.2 font used by IG. 00498/033C *IG GREEK.2A SA G S0933 IGDIST FSNAME=IG.GREEK2A 5.0T1 1316 IG.GREEK.2A.SA.033 1 LINE 72 6 PAGE UM BURLING MAR. 02, 1981 10:55:13 5.0T3 310 0 Source for the Greek.2a font used by IG. 00498/034C *IG ITALIC.2 SA G S0933 IGDIST FSNAME=IG.ITALIC2 5.0T1 1317 IG.ITALIC.2.SA.034 1 LINE 72 6 PAGE UM BURLING MAR. 02, 1981 10:55:20 5.0T3 311 0 Source for the Italic.2 font used by IG. 00498/035C *IG ITALIC.2A SA G S0933 IGDIST FSNAME=IG.ITALIC2A 5.0T1 1318 IG.ITALIC.2A.SA.035 1 LINE 72 5 PAGE UM BURLING MAR. 02, 1981 10:55:25 5.0T3 312 0 Source for the Italic.2a font used by IG. 00498/036C *IG ITALIC.3 SA G S0933 IGDIST FSNAME=IG.ITALIC3 5.0T1 1319 IG.ITALIC.3.SA.036 1 LINE 72 8 PAGE UM BURLING MAR. 02, 1981 10:55:30 5.0T3 313 0 Source for the Italic.3 font used by IG. 1 MON AUG 05/96 18:37:45 Page 229 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/037C *IG ROMAN.2 SA G S0933 IGDIST FSNAME=IG.ROMAN2 5.0T1 1320 IG.ROMAN.2.SA.037 1 LINE 72 6 PAGE UM BURLING MAR. 02, 1981 10:55:37 5.0T3 314 0 Source for the Roman.2 font used by IG. 00498/038C *IG ROMAN.2A SA G S0933 IGDIST FSNAME=IG.ROMAN2A 5.0T1 1321 IG.ROMAN.2A.SA.038 1 LINE 72 6 PAGE UM BURLING MAR. 02, 1981 10:55:42 5.0T3 315 0 Source for the Roman.2a font used by IG. 00498/039C *IG ROMAN.3 SA G S0933 IGDIST FSNAME=IG.ROMAN3 5.0T1 1322 IG.ROMAN.3.SA.039 1 LINE 72 8 PAGE UM BURLING MAR. 02, 1981 10:55:48 5.0T3 316 0 Source for the Roman.3 font used by IG. 00498/040C *IG SANSERIF.CART SA G S0933 IGDIST FSNAME=IG.SANSERIFC 5.0T1 1323 IG.SANSERIF.CART.SA.040 1 LINE 70 3 PAGE UM BURLING MAR. 02, 1981 10:55:54 5.0T3 317 0 Source for the Sanserif.cart font used by IG. 00498/041C *IG SANSERIF.1 SA G S0933 IGDIST FSNAME=IG.SANSERIF1 5.0T1 1324 IG.SANSERIF.1.SA.041 1 LINE 72 5 PAGE UM BURLING MAR. 02, 1981 10:55:59 5.0T3 318 0 Source for the Sanserif.1 font used by IG. 00498/042C *IG SANSERIF.2 SA G S0933 IGDIST FSNAME=IG.SANSERIF2 5.0T1 1325 IG.SANSERIF.2.SA.042 1 LINE 72 6 PAGE UM BURLING MAR. 02, 1981 10:56:03 5.0T3 319 0 Source for the Sanserif.2 font used by IG. 00498/043C *IG SCRIPT.1 SA G S0933 IGDIST FSNAME=IG.SCRIPT1 5.0T1 1326 IG.SCRIPT.1.SA.043 1 LINE 72 5 PAGE UM BURLING MAR. 02, 1981 10:56:10 5.0T3 320 0 Source for the Script.1 font used by IG. 00498/044C *IG SCRIPT.2 SA G S0933 IGDIST FSNAME=IG.SCRIPT2 5.0T1 1327 IG.SCRIPT.2.SA.044 1 LINE 72 7 PAGE UM BURLING MAR. 02, 1981 10:56:15 5.0T3 321 0 Source for the Script.2 font used by IG. 00498/045C *IG STANDARD SA G S0933 IGDIST FSNAME=IG.STANDARD 5.0T1 1328 IG.STANDARD.SA.045 1 LINE 71 3 PAGE UM BURLING MAR. 02, 1981 10:56:20 5.0T3 322 0 Source for the Standard font used by IG. This was formerly a part of the DI assembly (498/04). 1 MON AUG 05/96 18:37:45 Page 230 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 498/1 00498/046A *IG OLD DDR ADAPT SA G GRAF:IG.DDRXF.S 5.0T1 1329 IG.OLD_DDR_ADAPT.SA.046 1 LINE 130 13 PAGE UM BURLING JULY 03, 1981 14:21:04 5.0T3 323 0 This is an adaptor routine which provides the new coding convention DDR interface to *IG and at the same time provides the old DI interface to old- style device-dependent routines. All that is needed to provide a new-style DDR from an old one is to place the object module for the old-style DDR after the object module for this subcomponent in a file. This must be done for all existing DDRs to use the new version of *IG. The new DDR external symbol is #IGDDR. 0 Referenced by comments of: 498/1 00498/047C *IG OLD DDR ADAPT OC G *IG.DDRXF 5.0T1 1330 IG.OLD_DDR_ADAPT.OC.047 1 LINE 2740 4 PAGE UM BURLING JULY 03, 1981 14:21:15 5.0T3 324 *IG.DDRXF 0 Object for the new IG to old-style DDR adaptor routine. This must be inserted in the front of each old-style DDR file. 0 Referenced by comments of: 498/1, 498/52, 498/56, 498/62, 498/64, 498/66, 498/68, 498/70, 498/72, 498/74, 498/76, 498/78, 498/80, 498/86, 498/90, 498/92, 498/94, 498/100, 498/104, 498/110, 498/113, 498/115 00498/048C *IG SKELETON DDR SA GRAF:SKELETON.DDR 5.0T1 1331 IG.SKELETON_DDR.SA.048 1 LINE 132 9 PAGE UM BURLING JULY 03, 1981 14:21:16 5.0T3 325 0 Source code for a skeleton DDR. This may be filled in to produce new-style DDRs. 0 Referenced by comments of: 498/1 00498/049 *IG *IG.AGT SA G S0563 D4T1 VLO FSNAME=IG.*IG.AGT.SA.029 1271 5.0T1 1332 IG.*IG.AGT.SA.049 1 LINE 89 8 PAGE UM BURLING FEB. 26, 1977 20:24:08 5.0T3 326 0 Source for the DDR for the Adage 10 refresh display. 0 Referenced by comments of: 498/1 00498/050 *IG *IG.AGT OC G S0563 D4T1 VLO FSNAME=IG.*IG.AGT.OC.030 1272 5.0T1 1333 IG.*IG.AGT.OC.050 1 LINE 80 3 PAGE UM BURLING MAY 11, 1977 18:47:58 5.0T3 327 0 Object for the Adage Graphics Terminal DDR. 00498/051 *IG *IG.AJ830 SA G S0563 D4T1 VLO FSNAME=IG.*IG.AJ830.SA.031 1273 5.0T1 1334 IG.*IG.AJ830.SA.051 1 LINE 93 10 PAGE UM BURLING JULY 09, 1977 14:04:41 5.0T3 328 0 Source for the DDR for the Anderson-Jacobson 830 terminal with diablo printer 1 MON AUG 05/96 18:37:45 Page 231 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 and plot option. 00498/052A *IG *IG.AJ830 OC G *IG.AJ830 5.0T1 1335 IG.*IG.AJ830.OC.052 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:21:24 5.0T3 329 *IG.AJ830 0 Object for the Anderson-Jacobson 830 DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/053A *IG *IG.CCMP SA G GRAF:IG.CCMP.S 5.0T1 1336 IG.*IG.CCMP.SA.053 1 LINE 129 13 PAGE UM BURLING JULY 03, 1981 14:21:25 5.0T3 330 0 Source for the DDR for the CalComp plotter via *PLOTSYS. ************************************************************************* D5.0 changes: *** This is a new-style DDR. *** ************************************************************************* 00498/054A *IG *IG.CCMP OC G *IG.CCMP 5.0T1 1337 IG.*IG.CCMP.OC.054 1 SEQ 2784 4 PAGE UM BURLING JULY 03, 1981 14:21:28 5.0T3 331 *IG.CCMP 0 Object for the CalComp plotter DDR. Has a $CONTINUE WITH *PLOTSYS (615/9) card. 00498/055A *IG *IG.CK400 SA G S0933 IGDIST FSNAME=IG.CK400.S 5.0T1 1338 IG.*IG.CK400.SA.055 1 LINE 90 11 PAGE UM BURLING AUG. 06, 1979 12:36:50 5.0T3 332 0 Source for the DDR for the Computek 400 storage tube display. 00498/056A *IG *IG.CK400 OC G *IG.CK400 5.0T1 1339 IG.*IG.CK400.OC.056 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:21:48 5.0T3 333 *IG.CK400 0 Object for the Computek 400 DDR. ************************************************************************** D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************** 1 MON AUG 05/96 18:37:45 Page 232 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/057C *IG *IG.CRT SA G GRAF:IG.CRT.S 5.0T1 1340 IG.*IG.CRT.SA.057 1 LINE 128 17 PAGE UM BURLING JULY 03, 1981 14:21:49 5.0T3 334 0 Source for the generic CRT DDR. Produces 21 line by 70 column printer- plots. ************************************************************************* D5.0 version: *** This is a new-style DDR. *** ************************************************************************* 00498/058C *IG *IG.CRT OC G *IG.CRT 5.0T1 1341 IG.*IG.CRT.OC.058 1 LINE 4600 6 PAGE UM BURLING JULY 03, 1981 14:21:59 5.0T3 335 *IG.CRT 0 Object for the generic CRT DDR. 00498/059A *IG *IG.DEBUG SA G GRAF:IG.DEBUG.S 5.0T1 1342 IG.*IG.DEBUG.SA.059 1 LINE 130 15 PAGE UM BURLING JULY 03, 1981 14:22:00 5.0T3 336 0 Source for the DDR for the debugging routines DDR. ************************************************************************* D5.0 version: *** This is a new-style DDR. *** (This was formerly called IG.TTY.) ************************************************************************* 00498/060A *IG *IG.DEBUG OC G *IG.DEBUG 5.0T1 1343 IG.*IG.DEBUG.OC.060 1 LINE 4708 5 PAGE UM BURLING JULY 03, 1981 14:22:02 5.0T3 337 *IG.DEBUG 0 Object for the Debugging DDR. 00498/061 *IG *IG.DTC300 SA G S0563 D4T1 VLO FSNAME=IG.*IG.DTC300.SA.037 1279 5.0T1 1344 IG.*IG.DTC300.SA.061 1 LINE 95 9 PAGE UM BURLING JULY 09, 1977 14:04:56 5.0T3 338 0 Source for the DDR for the Data Terminals Corporation 300 terminal with diablo printer and plot option. 00498/062A *IG *IG.DTC300 OC G *IG.DTC300 5.0T1 1345 IG.*IG.DTC300.OC.062 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:22:03 5.0T3 339 *IG.DTC300 0 Object for the Data Terminals Corporation 300 DDR. ************************************************************************* D5.0 changes: 1 MON AUG 05/96 18:37:45 Page 233 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/063 *IG *IG.DTC302 SA G S0563 D4T1 VLO FSNAME=IG.*IG.DTC302.SA.039 1281 5.0T1 1346 IG.*IG.DTC302.SA.063 1 LINE 95 9 PAGE UM BURLING JULY 09, 1977 14:05:02 5.0T3 340 0 Source for the DDR for the Data Terminals Corporation 302 terminal with diablo printer and plot option. 00498/064A *IG *IG.DTC302 OC G *IG.DTC302 5.0T1 1347 IG.*IG.DTC302.OC.064 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:22:05 5.0T3 341 *IG.DTC302 0 Object for the Data Terminals Corporation 302 DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/065 *IG *IG.GT40 SA G S0563 D4T1 VLO FSNAME=IG.*IG.GT40.SA.041 1283 5.0T1 1348 IG.*IG.GT40.SA.065 1 LINE 91 10 PAGE UM BURLING MAY 01, 1977 16:06:13 5.0T3 342 0 Source for the DDR for the Digital Equipment Corporation GT40 refresh display. 00498/066A *IG *IG.GT40 OC G *IG.GT40 5.0T1 1349 IG.*IG.GT40.OC.066 1 LINE 80 4 PAGE UM BURLING JULY 03, 1981 14:22:07 5.0T3 343 *IG.GT40 0 Object for the Digital Equipment Corporation GT40 refresh display DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/067C *IG *IG.HIDP11 SA GRAF:IG.HIDP11.S 5.0T1 1350 IG.*IG.HIDP11.SA.067 1 LINE 101 12 PAGE UM BURLING JULY 03, 1981 14:22:08 5.0T3 344 0 Source code for the Houston Instruments DP-11 plotter DDR. 00498/068C *IG *IG.HIDP11 OC *IG.HIDP11 5.0T1 1351 IG.*IG.HIDP11.OC.068 1 LINE 3348 4 PAGE UM BURLING JULY 03, 1981 14:22:11 5.0T3 345 *IG.HIDP11 0 Object for the Houston Instruments DP-11 plotter DDR. ************************************************************************* 1 MON AUG 05/96 18:37:45 Page 234 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 D5.0 version: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/069C *IG *IG.HP2648A SA G GRAF:IG.HP2648A.S 5.0T1 1352 IG.*IG.HP2648A.SA.069 1 LINE 102 11 PAGE UM BURLING JULY 03, 1981 14:22:12 5.0T3 346 0 Source for the DDR for the Hewlitt-Packard 2648a video-graphics terminal. This code is a modified version of what was sent from UBC. 00498/070C *IG *IG.HP2648A OC G *IG.HP2648A 5.0T1 1353 IG.*IG.HP2648A.OC.070 1 LINE 2524 3 PAGE UM BURLING JULY 03, 1981 14:22:17 5.0T3 347 *IG.HP2648A 0 Object for the Hewlitt-Packard video-graphics terminal DDR. Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. 00498/071 *IG *IG.HP7203 SA G S0563 D4T1 VLO FSNAME=IG.*IG.HP7203.SA.043 1285 5.0T1 1354 IG.*IG.HP7203.SA.071 1 LINE 95 9 PAGE UM BURLING MAY 01, 1977 16:06:18 5.0T3 348 0 Source for the DDR for the Hewlitt-Packard 7203a plotter with EIA interface. 00498/072A *IG *IG.HP7203 OC G *IG.HP7203 5.0T1 1355 IG.*IG.HP7203.OC.072 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:22:19 5.0T3 349 *IG.HP7203 0 Object for the Hewlitt-Packard 7203 plotter DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/073 *IG *IG.HP7221 SA G S1430 4.3T1 VLO FSNAME=IG.*IG.HP7221.SA.047 296 5.0T1 1356 IG.*IG.HP7221.SA.073 1 LINE 102 17 PAGE UM BURLING AUG. 29, 1978 01:25:18 5.0T3 350 0 Source for the DDR for the Hewlitt-Packard 7221a 4-pen plotter with EIA interface. 00498/074A *IG *IG.HP7221 OC G *IG.HP7221 5.0T1 1357 IG.*IG.HP7221.OC.074 1 LINE 80 5 PAGE UM BURLING JULY 03, 1981 14:22:21 5.0T3 351 *IG.HP7221 0 Object for the Hewlitt-Packard 7221 plotter DDR. ************************************************************************* D5.0 changes: 1 MON AUG 05/96 18:37:45 Page 235 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/075A *IG *IG.HUGHES SA G GRAF:IG.HUGHES.S 5.0T1 1358 IG.*IG.HUGHES.SA.075 1 LINE 101 19 PAGE UM BURLING JULY 03, 1981 14:22:21 5.0T3 352 0 Source for the DDR for the Hughes graphics terminal. 00498/076A *IG *IG.HUGHES OC G *IG.HUGHES 5.0T1 1359 IG.*IG.HUGHES.OC.076 1 LINE 2900 4 PAGE UM BURLING JULY 03, 1981 14:22:23 5.0T3 353 *IG.HUGHES 0 Object for the Hughes Graphics terminal DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/077A *IG *IG.MX12000 SA G S0933 IGDIST FSNAME=IG.MX12000.S 5.0T1 1360 IG.*IG.MX12000.SA.077 1 LINE 94 13 PAGE UM BURLING JAN. 04, 1979 18:39:08 5.0T3 354 0 Source for the DDR for the Magnavox 12000 plasma terminal. 00498/078A *IG *IG.MX12000 OC G *IG.MX12000 5.0T1 1361 IG.*IG.MX12000.OC.078 1 LINE 80 4 PAGE UM BURLING JULY 03, 1981 14:23:00 5.0T3 355 *IG.MX12000 0 Object for the Magnavox 12000 terminal DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/079 *IG *IG.PEP SA G S0563 D4T1 VLO FSNAME=IG.*IG.PEP.SA.047 1289 5.0T1 1362 IG.*IG.PEP.SA.079 1 LINE 96 11 PAGE UM BURLING JULY 09, 1977 14:06:57 5.0T3 356 0 Source for the DDR for the Princeton Electronic Products 801 lithicon display. 00498/080A *IG *IG.PEP OC G *IG.PEP 5.0T1 1363 IG.*IG.PEP.OC.080 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:23:02 5.0T3 357 *IG.PEP 0 Object for the Princeton Electronic Products 801 DDR. ************************************************************************* D5.0 changes: 1 MON AUG 05/96 18:37:45 Page 236 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/081C *IG *IG.PICK SA G GRAF:IG.PICK.S 5.0T1 1364 IG.*IG.PICK.SA.081 1 LINE 129 8 PAGE UM BURLING JULY 03, 1981 14:23:03 5.0T3 358 0 Source for the Pick Simulator DDR. ************************************************************************* D5.0 version: *** This is a new-style DDR. *** ************************************************************************* 00498/082C *IG *IG.PICK OC G *IG.PICK 5.0T1 1365 IG.*IG.PICK.OC.082 1 LINE 1284 4 PAGE UM BURLING JULY 03, 1981 14:23:09 5.0T3 359 *IG.PICK 0 Object for the Pick Simulator DDR. 00498/083C *IG *IG.PRINTER SA G GRAF:IG.PRINTER.S 5.0T1 1366 IG.*IG.PRINTER.SA.083 1 LINE 132 17 PAGE UM BURLING JULY 03, 1981 14:23:10 5.0T3 360 0 Source for the generalized DDR for printer plots. (This is a complete rewrite of the old IG.PRNT routine.) Copies *GDINFODSECT (594). This DDR adapts itself to the maximum output width of the device it's used on. ************************************************************************* D5.0 version: *** This is a new-style DDR. *** ************************************************************************* 00498/084C *IG *IG.PRINTER OC G *IG.PRINTER 5.0T1 1367 IG.*IG.PRINTER.OC.084 1 LINE 4752 6 PAGE UM BURLING JULY 03, 1981 14:23:12 5.0T3 361 *IG.PRINTER 0 Object for the general printer-plot DDR. 00498/085 *IG *IG.QUMES5 SA G S1319 D4.2T1 VLO FSNAME=IG.*IG.QUMES5.SA.057 298 5.0T1 1368 IG.*IG.QUMES5.SA.085 1 LINE 92 10 PAGE UM BURLING JAN. 04, 1979 18:38:55 5.0T3 362 0 Source for the DDR for the Qume Sprint5 terminal with diablo-style printer. 00498/086A *IG *IG.QUMES5 OC G *IG.QUMES5 5.0T1 1369 IG.*IG.QUMES5.OC.086 1 LINE 80 4 PAGE UM BURLING JULY 03, 1981 14:23:22 5.0T3 363 *IG.QUMES5 0 Object for the Qumes5 DDR. 1 MON AUG 05/96 18:37:45 Page 237 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/087A *IG *IG.SAVE SA G GRAF:IG.SAVE.S 5.0T1 1370 IG.*IG.SAVE.SA.087 1 LINE 129 14 PAGE UM BURLING JULY 03, 1981 14:23:23 5.0T3 364 0 Source for the fake DDR which does saving of objects. ************************************************************************* D5.0 changes: *** This is a new-style DDR *** ************************************************************************* 00498/088A *IG *IG.SAVE OC G *IG.SAVE 5.0T1 1371 IG.*IG.SAVE.OC.088 1 LINE 3038 5 PAGE UM BURLING JULY 03, 1981 14:23:25 5.0T3 365 *IG.SAVE 0 Object for the Object-Save fake DDR. 00498/089 *IG *IG.TD4000 SA G S0563 D4T1 VLO FSNAME=IG.*IG.TD4000.SA.053 1295 5.0T1 1372 IG.*IG.TD4000.SA.089 1 LINE 92 9 PAGE UM BURLING JULY 09, 1977 14:07:12 5.0T3 366 0 Source for the DDR for the Trend Data 4000 terminal with diablo printer and plot option. 00498/090A *IG *IG.TD4000 OC G *IG.TD4000 5.0T1 1373 IG.*IG.TD4000.OC.090 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:23:27 5.0T3 367 *IG.TD4000 0 Object for the Trend Data 4000 DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/091 *IG *IG.TX4002 SA G S0563 D4T1 VLO FSNAME=IG.*IG.TX4002.SA.057 1299 5.0T1 1374 IG.*IG.TX4002.SA.091 1 LINE 96 10 PAGE UM BURLING JULY 09, 1977 14:07:23 5.0T3 368 0 Source for the DDR for the Tektronix 4002 storage tube display. 1 MON AUG 05/96 18:37:45 Page 238 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/092A *IG *IG.TX4002 OC G *IG.TX4002 5.0T1 1375 IG.*IG.TX4002.OC.092 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:23:28 5.0T3 369 *IG.TX4002 0 Object for the Tektronix 4002 DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/093 *IG *IG.TX4006 SA G S0563 D4T1 VLO FSNAME=IG.*IG.TX4006.SA.059 1301 5.0T1 1376 IG.*IG.TX4006.SA.093 1 LINE 95 11 PAGE UM BURLING JULY 09, 1977 14:07:28 5.0T3 370 0 Source for the DDR for the Tektronix 4006 storage tube display. 00498/094A *IG *IG.TX4006 OC G *IG.TX4006 5.0T1 1377 IG.*IG.TX4006.OC.094 1 LINE 80 4 PAGE UM BURLING JULY 03, 1981 14:23:30 5.0T3 371 *IG.TX4006 0 Object for the Tektronix 4006 DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/095A *IG *IG.TX4010 SA G GRAF:IG.TX4010.S 5.0T1 1378 IG.*IG.TX4010.SA.095 1 LINE 131 16 PAGE UM BURLING JULY 03, 1981 14:23:30 5.0T3 372 0 Source for the DDR for the Tektronix 4010 storage tube display. ************************************************************************* D5.0 changes: *** This is a new-style DDR. *** ************************************************************************* 00498/096A *IG *IG.TX4010 OC G *IG.TX4010 5.0T1 1379 IG.*IG.TX4010.OC.096 1 SEQ 3776 4 PAGE UM BURLING JULY 03, 1981 14:23:36 5.0T3 373 *IG.TX4010 0 Object for the Tektronix 4010 DDR. 00498/097 *IG *IG.TX4014 SA G S1143 D4.1T1 VLO FSNAME=IG.*IG.TX4014.SA.065 247 5.0T1 1380 IG.*IG.TX4014.SA.097 1 LINE 105 12 PAGE UM BURLING OCT. 11, 1977 19:01:55 5.0T3 374 0 Source for the DDR for the Tektronix 4014 storage tube display. 1 MON AUG 05/96 18:37:45 Page 239 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ************************************************************************ D5.0 version: *** This is a new-style DDR. *** ************************************************************************ 00498/098A *IG *IG.TX4014 OC G *IG.TX4014 5.0T1 1381 IG.*IG.TX4014.OC.098 1 LINE 3902 5 PAGE UM BURLING JULY 03, 1981 14:23:57 5.0T3 375 *IG.TX4014 0 Object for the Tektronix 4014 DDR. 00498/099 *IG *IG.TX4025 SA G S1143 D4.1T1 VLO FSNAME=IG.*IG.TX4025.SA.067 249 5.0T1 1382 IG.*IG.TX4025.SA.099 1 LINE 95 11 PAGE UM BURLING APR. 08, 1978 16:57:48 5.0T3 376 0 Source for the DDR for the Tektronix 4025 storage tube display. 00498/100A *IG *IG.TX4025 OC G *IG.TX4025 5.0T1 1383 IG.*IG.TX4025.OC.100 1 LINE 80 4 PAGE UM BURLING JULY 03, 1981 14:23:58 5.0T3 377 *IG.TX4025 0 Object for the Tektronix 4025 DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/101C *IG *IG.TX4027 SA G GRAF:IG.TX4027.S 5.0T1 1384 IG.*IG.TX4027.SA.101 1 LINE 131 17 PAGE UM BURLING JULY 03, 1981 14:23:59 5.0T3 378 0 Source for the DDR for the Tektronix 4027 raster display. ************************************************************************* D5.0 version: *** This is a new-style DDR *** ************************************************************************* 00498/102C *IG *IG.TX4027 OC G *IG.TX4027 5.0T1 1385 IG.*IG.TX4027.OC.102 1 LINE 4140 5 PAGE UM BURLING JULY 03, 1981 14:24:02 5.0T3 379 *IG.TX4027 0 Object for the Tektronix 4027 DDR. 00498/103 *IG *IG.TX4662 SA G S1319 D4.2T1 VLO FSNAME=IG.*IG.TX4662.SA.075 300 5.0T1 1386 IG.*IG.TX4662.SA.103 1 LINE 102 12 PAGE UM BURLING JAN. 04, 1979 18:39:03 5.0T3 380 0 Source for the DDR for the Tektronix 4662 digital plotter. 1 MON AUG 05/96 18:37:45 Page 240 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/104A *IG *IG.TX4662 OC G *IG.TX4662 5.0T1 1387 IG.*IG.TX4662.OC.104 1 LINE 80 4 PAGE UM BURLING JULY 03, 1981 14:24:04 5.0T3 381 *IG.TX4662 0 Object for the Tektronix 4662 plotter DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/105C *IG *IG.TX4663 SA O GRAF:IG.TX4663.S 5.0T1 1388 IG.*IG.TX4663.SA.105 1 LINE 131 17 PAGE UM BURLING JULY 03, 1981 14:24:05 5.0T3 382 0 Source for the Tektronix 4663 plotter DDR. ************************************************************************* D5.0 version: *** This is a new-style DDR *** ************************************************************************* 00498/106C *IG *IG.TX4663 OC O *IG.TX4663 5.0T1 1389 IG.*IG.TX4663.OC.106 1 LINE 4372 6 PAGE UM BURLING JULY 03, 1981 14:24:11 5.0T3 383 *IG.TX4663 0 Object for the Tektronix 4663 plotter DDR. 00498/107 *IG *IG.VUCOM SA G S0563 D4T1 VLO FSNAME=IG.*IG.VUCOM.SA.067 1309 5.0T1 1390 IG.*IG.VUCOM.SA.107 1 LINE 93 6 PAGE UM BURLING FEB. 26, 1977 20:28:30 5.0T3 384 0 Source for the DDR for the Vucom terminal. 00498/108A *IG *IG.VUCOM OC G S0933 IGDIST FSNAME=IG.VUCOM.O 5.0T1 1391 IG.*IG.VUCOM.OC.108 1 LINE 80 3 PAGE UM BURLING JUNE 16, 1976 19:09:45 5.0T3 385 0 Object for the Vucom terminal DDR. 00498/109 *IG *IG.XX1620 SA G S0563 D4T1 VLO FSNAME=IG.*IG.XX1620.SA.069 1311 5.0T1 1392 IG.*IG.XX1620.SA.109 1 LINE 95 9 PAGE UM BURLING JULY 09, 1977 21:46:28 5.0T3 386 0 Source for the DDR for the Xerox 1620 terminal with diablo printer. 00498/110A *IG *IG.XX1620 OC G *IG.XX1620 5.0T1 1393 IG.*IG.XX1620.OC.110 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:24:23 5.0T3 387 *IG.XX1620 0 Object for the Xerox 1620 terminal DDR. 1 MON AUG 05/96 18:37:45 Page 241 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/111 *IG *IG.ZETA SA G S0933 IGDIST FSNAME=IG.ZETA.S 5.0T1 1394 IG.*IG.ZETA.SA.111 1 LINE 101 12 PAGE UM BURLING AUG. 06, 1979 12:38:34 5.0T3 388 0 Source for the DDR for the Zeta plotter developed by NCSS. ************************************************************************* D5.0 version: Needs some changes to run in MTS. Object not distributed. ************************************************************************* 00498/112A *IG *IG.3270 SA G GRAF:IG.3278.S 5.0T1 1395 IG.*IG.3270.SA.112 1 LINE 93 9 PAGE UM BURLING JULY 03, 1981 14:25:18 5.0T3 389 0 Source for the DDR for the IBM 3278 terminals. This is a slightly modified version of the DDR received from UBC. Changes were to fix a bug in graphic input. 00498/113A *IG *IG.3270 OC G *IG.3270 5.0T1 1396 IG.*IG.3270.OC.113 1 LINE 2859 4 PAGE UM BURLING JULY 03, 1981 14:25:20 5.0T3 390 *IG.3270 0 Object for the IBM 3278 terminal DDR. ************************************************************************* D5.0 changes: Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 00498/114 *IG *IG.339 SA G S1143 D4.1T1 VLO FSNAME=IG.*IG.339.SA.080 256 5.0T1 1397 IG.*IG.339.SA.114 1 LINE 96 6 PAGE UM BURLING APR. 08, 1978 16:58:02 5.0T3 391 0 Source for the DDR for the Digital Equipment Corporation 339 refresh display. 00498/115A *IG *IG.339 OC G *IG.339 5.0T1 1398 IG.*IG.339.OC.115 1 LINE 80 3 PAGE UM BURLING JULY 03, 1981 14:25:22 5.0T3 392 *IG.339 0 Object for the Digital Equipment Corporation 339 DDR. ************************************************************************* D5.0 changes: 1 MON AUG 05/96 18:37:45 Page 242 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Contains a $CONTINUE WITH *IG.DDRXF RETURN (498/47) record. ************************************************************************* 0 Referenced by comments of: 498/1 00498/116A *IG INTERACTIVE IG SQ G GRAF:IAIG.S 5.0T1 1399 IG.INTERACTIVE_IG.SQ.116 1 LINE 128 14 PAGE UM BURLING JULY 03, 1981 14:25:23 5.0T3 393 0 Source for an interactive version of IG requiring no programming on part of user. Written in PLUS (1042), using the UBC parser (1076). May be used as a graphics monitor by calling the entry IAIG. 0 Referenced by comments of: 498/1, 498/120, 498/121 00498/117A *IG INTERACTIVE IG SA G GRAF:IAIG.ASM.S 5.0T1 1400 IG.INTERACTIVE_IG.SA.117 1 LINE 91 3 PAGE UM BURLING JULY 03, 1981 14:25:27 5.0T3 394 0 Source for the assembler interface to Interactive IG. This is a slight modification of what is normally PLUSMAIN in (1042/50). 00498/118A *IG INTERACTIVE IG SQ G GRAF:IG.PLUSLIB 5.0T1 1401 IG.INTERACTIVE_IG.SQ.118 1 LINE 67 11 PAGE UM BURLING JULY 03, 1981 14:25:29 5.0T3 395 0 Library containing PLUS declarations and dummy declarations for the IG routines. 00498/119C *IG INTERACTIVE IG D G GRAF:IAIG.GR 5.0T1 1402 IG.INTERACTIVE_IG.D.119 1 LINE 108 5 PAGE UM BURLING JULY 03, 1981 14:25:33 5.0T3 396 0 This the PLUS grammar for Interactive IG. 00498/120C *IG IAIG MISC FNS SQ G GRAF:PLUSFNS.S 5.0T1 1403 IG.IAIG_MISC_FNS.SQ.120 1 LINE 107 3 PAGE UM BURLING JULY 03, 1981 14:25:35 5.0T3 397 0 Source for miscellaneous functions used by IAIG.S (498/116). Mostly have to do with converting real numbers to and from strings. 0 Referenced by comments of: 498/123 00498/121C *IG IAIG MISC FNS SQ G GRAF:PLUSFNS.SQL 5.0T1 1404 IG.IAIG_MISC_FNS.SQ.121 1 LINE 61 2 PAGE UM BURLING JULY 03, 1981 14:25:36 5.0T3 398 0 Library of PLUS declarations for the miscellaneous functions used by IAIG.S (498/116). 1 MON AUG 05/96 18:37:45 Page 243 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/122A *IG INTERACTIVE IG M G GRAF:IAIG.HELP 5.0T1 1405 IG.INTERACTIVE_IG.M.122 1 LINE 79 5 PAGE UM BURLING JULY 03, 1981 14:25:36 5.0T3 399 0 This is the help file for Interactive IG. ************************************************************************* D5.0 changes: This file is grossly incomplete. ************************************************************************* 00498/123A *IG INTERACTIVE IG OC G GRAF:IAIG.O 5.0T1 1406 IG.INTERACTIVE_IG.OC.123 1 LINE 5372 27 PAGE UM BURLING JULY 03, 1981 14:25:38 5.0T3 400 0 Object code for Interactive IG. Contains all necessary parts of NEW:PLUS.OBJLIB (1042/50), PLUS:PARSER.OL (1076/6), and GRAF:PLUSFNS.S (498/120). Contains a "$CONTINUE WITH GRAF:NEWIG" card, which should by changed to "$CONTINUE WITH *IG" at other installations. 0 Referenced by comments of: 498/1 00498/124 *IG IMPLEMENTATION WF S1319 D4.2T1 VLO FSNAME=IG.IMPLEMENTATION.WF.018 297 5.0T1 1407 IG.IMPLEMENTATION.WF.124 1 LINE 145 25 PAGE UM BURLING AUG. 29, 1978 01:29:16 5.0T3 401 0 The Integrated Graphics internal guts and implementation guide. ************************************************************************* D5.0 version: Currently obsolete. ************************************************************************* 0 Referenced by comments of: 498/1 00498/125C *IG EGP WRITEUP WX GRAF:IG.EGP.WX 5.0T1 1408 IG.EGP_WRITEUP.WX.125 1 LINE 78 5 PAGE UM BURLING JULY 03, 1981 14:25:44 5.0T3 402 0 A writeup for External Graphics Procedures. ************************************************************************** D5.0 version: Note: This is a first cut. Comments and suggestions would be welcome. ************************************************************************** 0 Referenced by comments of: 498/1 1 MON AUG 05/96 18:37:45 Page 244 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/126A *IG ETC:IG.STAT D # ETC:IG.STAT UM BURLING ETC:IG.STAT@E 0 File for accumulating usage statistics. 0 Referenced by comments of: 498/1, 498/19 00500/001 BILLING BLSIGCK SG G S1319 D4.2T1 VLO FSNAME=BILLING.BLSIGCK.SG.001(1) 302 5.0T1 1409 BILLING.BLSIGCK.SG.001 1 LINE 94 3 PAGE UM ENGLE JAN. 09, 1979 13:10:41 5.0T3 403 0 PROGRAM TO LIST ALL SIGNONS WHICH WERE MADE DURING THE BILLING PERIOD AND ARE STILL SIGNED ON OR WHICH STILL HAVE A STATISTICS RECORD IN THE STATISTICS FILE. IF SIGONSCN (500/50) DETECTS AN INCONSISTENCY, THIS PROGRAM ATTEMPTS TO CORRECT THE SITUATION BY REASSEMBLING THE SUBROUTINE ON THE ASSUMPTION THAT THE MTS DSECT HAS BEEN CHANGED. PKEY=BILL:BLSIGCK. RUN WITH PROT=OFF. 0 Referenced by comments of: 500/50 00500/002 BILLING BLSIGCK OC G S1319 D4.2T1 VLO FSNAME=BILLING.BLSIGCK.OC.002(1) 303 5.0T1 1410 BILLING.BLSIGCK.OC.002 1 LINE 80 4 PAGE UM ENGLE JAN. 09, 1979 13:10:44 5.0T3 404 00500/003A BILLING BILLRFT SP G BLRF S0027 DISTRB FSNAME=BILLRFT 5.0T1 1411 BILLING.BILLRFT.SP.003 1 LINE 80 21 PAGE UM ENGLE FEB. 04, 1981 13:46:27 5.0T3 405 0 PROGRAM TO REFORMAT STATISTICS RECORDS, HAND BILLING RECORDS, OS/360 BILLING RECORDS, AND NETWORK RECORDS FOR BILLING SORT. 0 Referenced by comments of: 500/28, 500/36, 500/42 00500/004A BILLING BILLRFT UC G S0027 DISTRB FSNAME=BILLRFTUPD 5.0T1 1412 BILLING.BILLRFT.UC.004 1 LINE 68 1 PAGE UM ENGLE FEB. 04, 1981 13:46:58 5.0T3 406 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/005A BILLING BILLRFT OC G S0027 DISTRB FSNAME=BLRF 5.0T1 1413 BILLING.BILLRFT.OC.005 1 LINE 80 21 PAGE UM ENGLE FEB. 04, 1981 13:47:05 5.0T3 407 0 REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';). 00500/006A BILLING BILLRFT OC G S0027 DISTRB FSNAME=NETBLRF 5.0T1 1414 BILLING.BILLRFT.OC.006 1 LINE 80 18 PAGE UM ENGLE FEB. 04, 1981 13:47:39 5.0T3 408 0 REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';). 1 MON AUG 05/96 18:37:45 Page 245 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/007A BILLING BILLING SP G BILL S0027 DISTRB FSNAME=BILLING 5.0T1 1415 BILLING.BILLING.SP.007 1 LINE 80 32 PAGE UM ENGLE FEB. 04, 1981 13:50:47 5.0T3 409 0 PROGRAM TO DO MAIN PART OF BILLING AFTER SORT. 0 Referenced by comments of: 500/28, 500/30, 500/44 00500/008A BILLING BILLING UC G S0027 DISTRB FSNAME=BILLINGUPD 5.0T1 1416 BILLING.BILLING.UC.008 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1981 13:51:01 5.0T3 410 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/009A BILLING BILLING OC G S0027 DISTRB FSNAME=BILL 5.0T1 1417 BILLING.BILLING.OC.009 1 LINE 80 27 PAGE UM ENGLE FEB. 04, 1981 13:51:05 5.0T3 411 0 REGULAR BILLING (COMPILED WITH %NET='';). 00500/010 BILLING BILLING OC G S1430 4.3T1 VLO FSNAME=BILLING.BILLING.OC.010(1) 305 5.0T1 1418 BILLING.BILLING.OC.010 1 LINE 80 16 PAGE UM ENGLE FEB. 20, 1980 11:24:19 5.0T3 412 0 NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/011 BILLING BILPRNT SP G S1319 D4.2T1 VLO FSNAME=BILLING.BILPRNT.SP.009(1) 307 5.0T1 1419 BILLING.BILPRNT.SP.011 1 LINE 80 13 PAGE UM ENGLE JAN. 10, 1979 14:41:29 5.0T3 413 0 PROGRAM TO PRINT BILLING REPORTS. 0 Referenced by comments of: 500/29, 500/46 00500/012 BILLING BILPRNT OC G S1319 D4.2T1 VLO FSNAME=BILLING.BILPRNT.OC.010(1) 308 5.0T1 1420 BILLING.BILPRNT.OC.012 1 LINE 80 15 PAGE UM ENGLE JAN. 10, 1979 14:42:54 5.0T3 414 00500/013A BILLING BILLUTIL SG G S0027 DISTRB FSNAME=BILLUTIL 5.0T1 1421 BILLING.BILLUTIL.SG.013 1 LINE 131 2 PAGE UM ENGLE AUG. 13, 1980 13:26:02 5.0T3 415 0 PROGRAM TO EXTRACT MONTHLY INFORMATION FROM THE FILE DIVISION (500/29) AND ENTER IT INTO THE UTILIZATION DATA BANK (500/31). 0 Referenced by comments of: 500/54 00500/014A BILLING BILLUTIL UC G S0027 DISTRB FSNAME=BILLUTILUPD 5.0T1 1422 BILLING.BILLUTIL.UC.014 1 LINE 131 1 PAGE UM ENGLE AUG. 13, 1980 13:26:07 5.0T3 416 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 0 Referenced by comments of: 500/31 1 MON AUG 05/96 18:37:45 Page 246 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/015A BILLING BILLUTIL OC G S0027 DISTRB FSNAME=BLUT 5.0T1 1423 BILLING.BILLUTIL.OC.015 1 LINE 80 4 PAGE UM ENGLE AUG. 13, 1980 13:26:11 5.0T3 417 00500/016A BILLING BLPRVUTL SG G S0027 DISTRB FSNAME=BLPRVUTL 5.0T1 1424 BILLING.BLPRVUTL.SG.016 1 LINE 71 1 PAGE UM ENGLE AUG. 13, 1980 13:28:51 5.0T3 418 0 PROGRAM TO PRODUCE INPUT FOR TAXIR (668) SPECIFYING THE HEADING, MONTH, AND YEAR FOR A REPORT FOR THE PREVIOUS MONTH. 00500/017A BILLING BLPRVUTL UC G S0027 DISTRB FSNAME=BLPRVUTLUPD 5.0T1 1425 BILLING.BLPRVUTL.UC.017 1 LINE 70 1 PAGE UM ENGLE AUG. 13, 1980 13:28:57 5.0T3 419 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/018A BILLING BLPRVUTL OC G S0027 DISTRB FSNAME=BPRU 5.0T1 1426 BILLING.BLPRVUTL.OC.018 1 LINE 80 1 PAGE UM ENGLE AUG. 13, 1980 13:29:05 5.0T3 420 00500/019 BILLING UTILSORT SG G S1430 4.3T1 VLO FSNAME=BILLING.UTILSORT.SG.019(1) 310 5.0T1 1427 BILLING.UTILSORT.SG.019 1 LINE 71 1 PAGE UM ENGLE FEB. 20, 1980 11:30:16 5.0T3 421 0 PROGRAM TO SORT TAXIR (668) OUTPUT FROM THE UTILIZATION DATA BANK (500/31). SEE CMPUTLSOURCE (500/27) FOR SOURCE COMMANDS UTILIZING THIS PROGRAM. 00500/020 BILLING UTILSORT UC G # S0027 DISTRB FSNAME=UTILSORTUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/021 BILLING UTILSORT OC G S1430 4.3T1 VLO FSNAME=BILLING.UTILSORT.OC.021(1) 311 5.0T1 1428 BILLING.UTILSORT.OC.021 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 11:30:19 5.0T3 422 00500/022 BILLING STATEMNT SG G S1430 4.3T1 VLO FSNAME=BILLING.STATEMNT.SG.022(1) 312 5.0T1 1429 BILLING.STATEMNT.SG.022 1 LINE 149 6 PAGE UM ENGLE FEB. 20, 1980 11:31:55 5.0T3 423 0 PROGRAM TO PRODUCE COMPARATIVE STATEMENTS SHOWING FIGURES FOR "CURRENT" MONTH AND YEAR-TO-DATE FOR BOTH THE "CURRENT" YEAR AND THE PREVIOUS YEAR. AN INDICATION OF THE VALUES FOR THE PAR= FIELD IS GIVEN AT THE BEGINNING OF THE PROGRAM. SEE CMPUTLSOURCE (500/27) FOR SOURCE COMMANDS UTILIZING THIS PROGRAM. FIRST LINE OF REPORT IS "THE UNIVERSITY OF MICHIGAN COMPUTING CENTER." 00500/023 BILLING STATEMNT UC G # S0027 DISTRB FSNAME=STATEMNTUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 1 MON AUG 05/96 18:37:45 Page 247 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/024 BILLING STATEMNT OC G S1430 4.3T1 VLO FSNAME=BILLING.STATEMNT.OC.024(1) 313 5.0T1 1430 BILLING.STATEMNT.OC.024 1 LINE 80 10 PAGE UM ENGLE FEB. 20, 1980 11:32:02 5.0T3 424 00500/025A BILLING BILLWRITEUP WF G S0027 DISTRB FSNAME=BILLWRITEUP 5.0T1 1431 BILLING.BILLWRITEUP.WF.025 1 LINE 159 9 PAGE UM ENGLE FEB. 13, 1981 12:09:28 5.0T3 425 0 WRITEUP FOR RUNNING BILLING. 0 Referenced by comments of: 632/2 00500/026A BILLING BILLSOURCE C S0027 DISTRB FSNAME=BILLSOURCE 5.0T1 1432 BILLING.BILLSOURCE.C.026 1 LINE 533 2 PAGE UM ENGLE FEB. 13, 1981 11:24:12 5.0T3 426 0 COMMAND FILE FOR RUNNING BILLING. LINE NUMBERS IN THIS FILE ARE IMPORTANT TO THE RESTART FILE (500/32). 0 Referenced by comments of: 500/32 00500/027A BILLING CMPUTLSOURCE C S0027 DISTRB FSNAME=CMPUTLSOURCE 5.0T1 1433 BILLING.CMPUTLSOURCE.C.027 1 LINE 294 3 PAGE UM ENGLE FEB. 04, 1981 14:05:48 5.0T3 427 0 COMMAND FILE FOR PRODUCING COMPARATIVE REPORTS UTILIZING THE INFORMATION IN THE UTILIZATION DATA BANK (500/31). THE THREE-CHARACTER ABBREVIATION FOR THE CURRENT MONTH AND THE CURRENT AND PREVIOUS FISCAL YEARS MUST BE SET APPROPRIATELY, E.G., A@A /F 'JAN'FEB' A@A /F '79-80'80-81' A@A /F '78-79'79-80' 0 Referenced by comments of: 500/19, 500/22 00500/028A BILLING BILLTABLES D S0027 DISTRB FSNAME=BILLTABLES 5.0T1 1434 BILLING.BILLTABLES.D.028 1 LINE 76 4 PAGE UM ENGLE FEB. 13, 1981 11:39:57 5.0T3 428 0 MACHINE READABLE TABLE OF INFORMATION USED BY BILLING. READ DURING EXECUTION OF BILLRFT (500/3) AND BILLING (500/7). 00500/029 BILLING DIVISION D BILL:DIVISION 5.0T1 1435 BILLING.DIVISION.D.029 1 LINE 104 27 PAGE UM ENGLE JULY 03, 1981 14:26:59 5.0T3 429 0 MACHINE READABLE TABLE OF UNIVERSITY UNITS ACCORDING TO UNIT CODE. READ AND WRITTEN BY BILPRNT (500/11). 0 Referenced by comments of: 500/13, 500/54 1 MON AUG 05/96 18:37:45 Page 248 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/030A BILLING COVER D S0027 DISTRB FSNAME=COVER 5.0T1 1436 BILLING.COVER.D.030 1 LINE 66 1 PAGE UM ENGLE FEB. 13, 1981 11:25:12 5.0T3 430 0 MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS. READ BY BILLING (500/7). 00500/031 BILLING UTILIZATION D G S1430 4.3T1 VLO FSNAME=BILLING.UTILIZATION..031(1) 317 5.0T1 1437 BILLING.UTILIZATION.D.031 1 LINE 420 1 PAGE UM ENGLE FEB. 20, 1980 11:48:38 5.0T3 431 0 SKELETON TAXIR (668) UTILIZATION DATA BANK (I.E., THE DATA BANK WITHOUT THE DATA). CALENDAR YEAR RANGE IS 1979 THROUGH 1985. FISCAL YEAR RANGE IS 79-80 THROUGH 85-86. THIS DATA BANK IS UPDATED USING BILLUTIL (500/14). 0 Referenced by comments of: 500/13, 500/19, 500/27 00500/032A BILLING RESTART C S0027 DISTRB FSNAME=RESTART 5.0T1 1438 BILLING.RESTART.C.032 1 LINE 51 1 PAGE UM ENGLE FEB. 13, 1981 11:26:50 5.0T3 432 0 COMMAND FILE TO RESTART IN THE MIDDLE OF THE BILLING PROCESS AFTER SOME PARTS HAVE BEEN COMPLETED. HAS $CONTINUE WITH'S TO BILLSOURCE (500/26). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 0 Referenced by comments of: 500/26 00500/033A BILLING BILLLIB OL G S0027 DISTRB FSNAME=BILLLIB 5.0T1 1439 BILLING.BILLLIB.OL.033 1 LINE 288 9 PAGE UM ENGLE FEB. 13, 1981 10:59:23 5.0T3 433 0 LIBRARY FOR BILLING PROGRAMS. ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00500/034 BILLING FLUSH SP G S0564 D4T2 VLO FSNAME=BILLING.FLUSH.SP.016(1) 16 5.0T1 1440 BILLING.FLUSH.SP.034 1 LINE 80 1 PAGE UM ENGLE JUNE 07, 1973 10:28.44 5.0T3 434 0 SUBROUTINE TO FORCE A LINE OF OUTPUT TO A PL/I STREAM FILE (PUT STATEMENTS) TO BE PRINTED NOW (DAMNIT), E.G., ON A TERMINAL FOR PROMPTING FOR INPUT. 00500/035 BILLING FLUSH OC G S0564 D4T2 VLO FSNAME=BILLING.FLUSH.OC.017(1) 17 5.0T1 1441 BILLING.FLUSH.OC.035 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1974 15:46.26 5.0T3 435 00500/036 BILLING BLPRJFL SA G S0564 D4T2 VLO FSNAME=BILLING.BLPRJFL.SA.018(1) 18 5.0T1 1442 BILLING.BLPRJFL.SA.036 1 LINE 80 4 PAGE UM ENGLE DEC. 06, 1974 13:12.59 5.0T3 436 0 SUBROUTINE TO READ THE NEXT PROJECT RECORD FROM *PROJECT. CALLED BY BILLRFT (500/3). COPIES ACCPROJFMT (104/2). 00500/037 BILLING BLPRJFL OC G S0564 D4T2 VLO FSNAME=BILLING.BLPRJFL.OC.019(1) 19 5.0T1 1443 BILLING.BLPRJFL.OC.037 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 13:13.11 5.0T3 437 1 MON AUG 05/96 18:37:45 Page 249 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/038 BILLING PNLIST SP G S1319 D4.2T1 VLO FSNAME=BILLING.PNLIST.SP.022(1) 313 5.0T1 1444 BILLING.PNLIST.SP.038 1 LINE 80 5 PAGE UM ENGLE JAN. 10, 1979 16:34:56 5.0T3 438 0 PROGRAM TO PRODUCE LISTINGS OF PROJECT NUMBERS IN *PROJECT SORTED BY UNIVERSITY ACCOUNT NUMBER, INTER-DEPARTMENTAL REQUISITION NUMBER, UNIT CODE, AND NAME. 0 Referenced by comments of: 500/40 00500/039 BILLING PNLIST OC G S1319 D4.2T1 VLO FSNAME=BILLING.PNLIST.OC.023(1) 314 5.0T1 1445 BILLING.PNLIST.OC.039 1 LINE 80 6 PAGE UM ENGLE FEB. 12, 1979 11:52:37 5.0T3 439 00500/040 BILLING PNLSEXTR SA G S0564 D4T2 VLO FSNAME=BILLING.PNLSEXTR.SA.022(1) 22 5.0T1 1446 BILLING.PNLSEXTR.SA.040 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 13:16.12 5.0T3 440 0 SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/38). CALLED BY PRJLIST (104/45) WHICH IS CALLED BY PNLIST. COPIES ACCPROJFMT (104/2). 00500/041 BILLING PNLSEXTR OC G S0564 D4T2 VLO FSNAME=BILLING.PNLSEXTR.OC.023(1) 23 5.0T1 1447 BILLING.PNLSEXTR.OC.041 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 13:16.32 5.0T3 441 00500/042 BILLING BLRECPR SP G S0564 D4T2 VLO FSNAME=BILLING.BLRECPR.SP.024(1) 24 5.0T1 1448 BILLING.BLRECPR.SP.042 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 14:16.05 5.0T3 442 0 PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/3). 00500/043 BILLING BLRECPR OC G S0564 D4T2 VLO FSNAME=BILLING.BLRECPR.OC.025(1) 25 5.0T1 1449 BILLING.BLRECPR.OC.043 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 14:16.20 5.0T3 443 00500/044 BILLING POSIFIL SP G S0564 D4T2 VLO FSNAME=BILLING.POSIFIL.SP.026(1) 26 5.0T1 1450 BILLING.POSIFIL.SP.044 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1974 15:49.10 5.0T3 444 0 SUBROUTINE CALLED BY BILLING (500/7) TO POSITION PL/1 FILES FOR RESTART. 00500/045 BILLING POSIFIL OC G S0564 D4T2 VLO FSNAME=BILLING.POSIFIL.OC.027(1) 27 5.0T1 1451 BILLING.POSIFIL.OC.045 1 LINE 80 2 PAGE UM ENGLE JAN. 08, 1974 15:49.29 5.0T3 445 00500/046 BILLING BLDVSRTE SA G S1319 D4.2T1 VLO FSNAME=BILLING.BLDVSRTE.SA.030(1) 315 5.0T1 1452 BILLING.BLDVSRTE.SA.046 1 LINE 80 4 PAGE UM ENGLE JAN. 10, 1979 14:53:17 5.0T3 446 0 SORT EXIT SUBROUTINES TO DO DIVISION SORT FOR BILPRNT (500/11). COPIES GRDEF (104/72). 1 MON AUG 05/96 18:37:45 Page 250 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/047 BILLING BLDVSRTE OC G S1319 D4.2T1 VLO FSNAME=BILLING.BLDVSRTE.OC.031(1) 316 5.0T1 1453 BILLING.BLDVSRTE.OC.047 1 LINE 80 2 PAGE UM ENGLE FEB. 12, 1979 11:52:41 5.0T3 447 00500/048 BILLING BILLMNT SG G S0564 D4T2 VLO FSNAME=BILLING.BILLMNT.SG.030(1) 30 5.0T1 1454 BILLING.BILLMNT.SG.048 1 LINE 73 1 PAGE UM ENGLE MAR. 01, 1977 17:10:37 5.0T3 448 0 GOM PROGRAM TO MOUNT THE BILLING REPORT TAPE. 00500/049 BILLING BILLMNT OC G S0564 D4T2 VLO FSNAME=BILLING.BILLMNT.OC.031(1) 31 5.0T1 1455 BILLING.BILLMNT.OC.049 1 LINE 80 3 PAGE UM ENGLE MAR. 01, 1977 17:10:40 5.0T3 449 00500/050 BILLING SIGONSCN SA G S1319 D4.2T1 VLO FSNAME=BILLING.SIGONSCN.SA.034(1) 317 5.0T1 1456 BILLING.SIGONSCN.SA.050 1 LINE 80 4 PAGE UM ENGLE JAN. 09, 1979 13:13:20 5.0T3 450 0 SUBROUTINE TO SCAN THE JOB TABLE FOR SIGNONS MADE DURING THE BILLING PERIOD. CALLED BY BLSIGCK (500/1). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 500/1 00500/051 BILLING SIGONSCN OC G S1319 D4.2T1 VLO FSNAME=BILLING.SIGONSCN.OC.035(1) 318 5.0T1 1457 BILLING.SIGONSCN.OC.051 1 LINE 80 5 PAGE UM ENGLE JAN. 09, 1979 13:13:26 5.0T3 451 00500/052 BILLING TAPMNT SG G S1319 D4.2T1 VLO FSNAME=BILLING.TAPMNT.SG.036(1) 319 5.0T1 1458 BILLING.TAPMNT.SG.052 1 LINE 72 3 PAGE UM ENGLE JAN. 09, 1979 13:48:40 5.0T3 452 0 SUBROUTINE TO ACQUIRE SUCCESSIVE FILES FOR A SPECIFIED RANGE FROM TAPE DIRECTORY TAPES. 00500/053 BILLING TAPMNT OC G S1319 D4.2T1 VLO FSNAME=BILLING.TAPMNT.OC.037(1) 320 5.0T1 1459 BILLING.TAPMNT.OC.053 1 LINE 80 5 PAGE UM ENGLE JAN. 09, 1979 13:50:32 5.0T3 453 00500/054 BILLING DIVTOTXR SG G S1430 4.3T1 VLO FSNAME=BILLING.DIVTOTXR.SG.054(1) 320 5.0T1 1460 BILLING.DIVTOTXR.SG.054 1 LINE 99 3 PAGE UM ENGLE FEB. 20, 1980 11:51:13 5.0T3 454 0 PROGRAM TO PRODUCE TAXIR INPUT DATA FROM THE MONTHLY INFORMATION IN THE FILE DIVISION (500/29). THIS CAN BE RUN SEPARATELY WITH OUTPUT ON SPUNCH OR CALLED AS A SUBROUTINE BY BILLUTIL (500/13). 00500/055 BILLING DIVTOTXR UC G # S0027 DISTRB FSNAME=DIVTOTXRUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 1 MON AUG 05/96 18:37:45 Page 251 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/056 BILLING DIVTOTXR OC G S1430 4.3T1 VLO FSNAME=BILLING.DIVTOTXR.OC.056(1) 321 5.0T1 1461 BILLING.DIVTOTXR.OC.056 1 LINE 80 4 PAGE UM ENGLE FEB. 20, 1980 11:51:16 5.0T3 455 00501/001A MTS VOLUME 3 MASTER WT S0486 MTSV3 'MTS MANUALS' POSN=NEWM16.V3 5.0T1 1462 MTS_VOLUME_3.MASTER.WT.001 1 SEQ 132 366 PAGE UM MANUAL JULY 03, 1981 14:30:03 5.0T3 456 0 TEXT/360 MASTER FOR VOLUME 3 "SYSTEM SUBROUTINE DESCRIPTIONS" OF THE UM MTS MANUALS, APRIL 1981. EDITOR: RICHARD A. SALISBURY 00501/002A MTS VOLUME 3 PRINT PT S0486 MTSV3 'MTS MANUALS' POSN=PRINT16.V3 5.0T1 1463 MTS_VOLUME_3.PRINT.PT.002 1 SEQ 132 657 PAGE UM MANUAL JULY 03, 1981 14:30:19 5.0T3 457 0 TEXT/360 PRINT FILE. 00502/001A DEADFILES SCANFILES SA G SCFL S0027 DISTRB FSNAME=SCANFILE 5.0T2 1 DEADFILES.SCANFILES.SA.001 1 LINE 80 9 PAGE UM ENGLE MAY 07, 1981 17:42:20 5.0T3 458 0 DEADFILES IS A SERIES OF PROGRAMS USED TO REMOVE FILES WHICH BELONG TO EXPIRED USER ID'S. AT UM, THIS IS DONE ONCE PER MONTH AND THE TAPE(S) GENERATED ARE SAVED INDEFINITELY. THE OPERATOR'S MANUAL (592) DESCRIBES THE PROCEDURE. SCANFILES COPIES ACCFORMAT (104/1) AND *GFINFODSECT (593). ASSEMBLE USING COPY:FILE.MACROS (482/45). RUN WITH PROT=OFF. ***************************************************************************** D5.0 version: Corrects a possible error in not passing a large enough scratch area to GETCINF. ***************************************************************************** 0 Referenced by comments of: 92/1, 104/159, 104/160, 484/1 00502/002A DEADFILES SCANFILES UC G S0027 DISTRB FSNAME=SCANFILEUPD 5.0T2 2 DEADFILES.SCANFILES.UC.002 1 LINE 72 1 PAGE UM ENGLE MAY 07, 1981 17:42:25 5.0T3 459 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00502/003A DEADFILES SCANFILES OE G RSTR:SCANFILES 5.0T2 3 DEADFILES.SCANFILES.OE.003 1 LINE 3340 3 PAGE UM ENGLE JULY 03, 1981 14:46:39 5.0T3 460 RSTR:SCANFILES 1 MON AUG 05/96 18:37:45 Page 252 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00502/004A DEADFILES DESTROY SA G RSTR:DEADFILEDES(1000) 5.0T2 4 DEADFILES.DESTROY.SA.004 1 LINE 71 1 PAGE UM HELFFRICH JULY 03, 1981 14:46:40 5.0T3 461 RSTR:DEADFILEDES 0 PROGRAM TO DESTROY A LIST OF FILES. CALLS THE FILE ROUTINES' DESTROY ENTRY POINT DIRECTLY TO CIRCUMVENT DENIAL OF DESTROY ACCESS. ASSEMBLE USING *SYSMAC. ******************************************************************************** D5.0 CHANGES: CHANGED FOR DISK MANAGER (769). ******************************************************************************** 00502/005A DEADFILES DESTROY OC G RSTR:DEADFILEDES(1,998) 5.0T2 5 DEADFILES.DESTROY.OC.005 1 LINE 80 1 PAGE UM HELFFRICH JULY 03, 1981 14:46:41 5.0T3 462 00502/006A DEADFILES CATDES SA G RSTR:DEADUCATDES(1000) 5.0T2 6 DEADFILES.CATDES.SA.006 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 14:46:41 5.0T3 463 RSTR:DEADUCATDES 0 PROGRAM TO DESTROY USER CATALOGS. RUNNING THIS PROGRAM IS THE ONLY WAY THAT CATALOG SPACE IS EVER RECLAIMED AND IF THIS PROGRAM IS NOT RUN, THE CATALOG WILL ONLY GET BIGGER. THIS PROGRAM ALSO DELETES FILE ENTRIES FOR EXPIRED USER IDS FROM THE FILESAVE MASTER FILE DIRECTORY SO THAT THE FILES MAY NOT BE RESTORED USING *RESTORE. ASSEMBLE USING *SYSMAC. ******************************************************************************** D5.0 CHANGES: CHANGED FOR DISK MANAGER (769). ******************************************************************************** 00502/007A DEADFILES CATDES OC G RSTR:DEADUCATDES(1,998) 5.0T2 7 DEADFILES.CATDES.OC.007 1 LINE 80 3 PAGE UM HELFFRICH JULY 03, 1981 14:46:42 5.0T3 464 0 THIS FILE SHOULD HAVE THE PROGRAM KEY RSTR:DEADUCATDES 00502/008A DEADFILES SAVEFILES SA G RSTR:DEADSAVE(1000) 5.0T2 8 DEADFILES.SAVEFILES.SA.008 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 14:46:43 5.0T3 465 0 PROGRAM TO SAVE A SPECIFIC SET OF FILES - USUALLY THE LIST OF DEAD FILES, BUT IT READS AN ARBITRARY LIST. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/45). CALLS THE FOLLOWING SUBROUTINES: SAVEFILE (067/2) AND TAPEOUT (067/21). 1 MON AUG 05/96 18:37:45 Page 253 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00502/009A DEADFILES SAVEFILES OC G RSTR:DEADSAVE(1,998) 5.0T2 9 DEADFILES.SAVEFILES.OC.009 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 14:46:44 5.0T3 466 RSTR:DEADSAVE 00502/010 DEADFILES FIX SA G S0564 D4T2 VLO FSNAME=DEADFILES.FIX.SA.011(1) 44 5.0T2 10 DEADFILES.FIX.SA.010 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1973 17:58.20 5.0T3 467 0 PROGRAM TO UPDATE THE FILE INFORMATION IN AN ACCOUNTING RECORD TO ADJUST FOR THE FILES DESTROYED. CALLS *ACCRESTORE. RUN WITH PROT=OFF. 0 Referenced by comments of: 104/89, 104/159, 104/160 00502/011 DEADFILES FIX OC G MTS:TST.FIX 5.0T2 11 DEADFILES.FIX.OC.011 1 LINE 80 1 PAGE UM ENGLE JULY 03, 1981 14:46:45 5.0T3 468 RSTR:FIX 0 Contains a $CONTINUE WITH *ACCRESTORE (484/1) record. 0 Referenced by comments of: 104/89 00504/001A MTS VOLUME 1 MASTER WT S0488 MTSV1 'MTS MANUALS' POSN=NEWM9.V1 5.0T2 12 MTS_VOLUME_1.MASTER.WT.001 1 SEQ 132 342 PAGE UM MANUAL JULY 03, 1981 14:48:26 5.0T3 469 0 TEXT/360 MASTER FOR VOLUME 1, "MICHIGAN TERMINAL SYSTEM," OF THE UM MTS MANUALS, DECEMBER 1979, UPDATED NOV. 1980. EDITOR: RICHARD A. SALISBURY 00504/002A MTS VOLUME 1 PRINT PT S0488 MTSV1 'MTS MANUALS' POSN=PRINT9.V1 5.0T2 13 MTS_VOLUME_1.PRINT.PT.002 1 SEQ 132 623 PAGE UM MANUAL JULY 03, 1981 14:48:41 5.0T3 470 0 TEXT/360 PRINT FILE. 00504/003 MTS VOLUME 1 ERROR DUMP P S1430 4.3T1 VLO FSNAME=MTS_VOLUME_1.ERROR_DUMP.P.003(1) 336 5.0T2 14 MTS_VOLUME_1.ERROR_DUMP.P.003 1 SEQ 133 3 PAGE UM MANUAL APR. 05, 1980 15:27:21 5.0T3 471 0 PRINTED OUTPUT FOR EXAMPLE OF USING ERROR DUMPS AND LOAD MAPS. 00504/004 MTS VOLUME 1 DEBUG DUMP P S1430 4.3T1 VLO FSNAME=MTS_VOLUME_1.DEBUG_DUMP.P.004(1) 337 5.0T2 15 MTS_VOLUME_1.DEBUG_DUMP.P.004 1 SEQ 105 3 PAGE UM MANUAL APR. 05, 1980 15:27:23 5.0T3 472 0 PRINTED OUTPUT FOR EXAMPLE IN DEBUG MODE SECTION. 00504/005 MTS VOLUME 1 INDEX SOURCE D S1430 4.3T1 VLO FSNAME=MTS_VOLUME_1.INDEX_SOURCE.D.005(1) 338 5.0T2 16 MTS_VOLUME_1.INDEX_SOURCE.D.005 1 SEQ 121 8 PAGE UM MANUAL APR. 05, 1980 15:27:26 5.0T3 473 1 MON AUG 05/96 18:37:45 Page 254 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00504/006 MTS VOLUME 1 VISUAL MODE WT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_1.VISUAL_MODE.WT.006(1) 339 5.0T2 17 MTS_VOLUME_1.VISUAL_MODE.WT.006 1 SEQ 88 4 PAGE UM MANUAL APR. 05, 1980 15:28:57 5.0T3 474 0 TEXT360 SOURCE FOR VISUAL MODE DIAGRAMS IN "EDIT MODE" SECTION OF MTS VOLUME 1. 00504/007C MTS VOLUME 1 UPDATE 1 PT W073:TNLV1.NOV80 5.0T2 18 MTS_VOLUME_1.UPDATE_1.PT.007 1 LINE 76 154 PAGE UM MANUAL JULY 03, 1981 14:49:08 5.0T3 475 0 THIS IS "UPDATE 1 TO MTS VOLUME 1," NOV. 1980. 00505/001 *ALGOL DUMPRESTORE C S0504 'UBC -> UM #6' FMT=U(255) 1 5.0T2 19 ALGOL.DUMPRESTORE.C.001 1 SEQ 44 2 PAGE UNE SALISBURY JULY 03, 1981 14:50:11 5.0T3 476 0 MTS COMMANDS USED TO GENERATE OR RESTORE THE ALGOL FILES ON THE UNE ALGOL DISTRIBUTION TAPE. ALTHOUGH THESE COMMANDS ARE NOT APPROPRIATE FOR RESTORING THE ALGOL FILES FROM THE DISTRIBUTION TAPE, THEY ARE INCLUDED BECAUSE THEY SHOW THE ORGANIZATION OF THE UNE ALGOL. 00505/002 *ALGOL CINTSORC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 4 5.0T2 20 ALGOL.CINTSORC.SA.002 1 SEQ 80 30 PAGE UNE SALISBURY JULY 03, 1981 14:50:16 5.0T3 477 0 COMPILER/MTS INTERFACE MODULE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 387/17, 505/19 00505/003 *ALGOL FSACONV SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 5 5.0T2 21 ALGOL.FSACONV.SA.003 1 SEQ 80 2 PAGE UNE SALISBURY JULY 03, 1981 14:50:17 5.0T3 478 0 COPY SECTION COPIED BY COMPILER. 0 Referenced by comments of: 505/14, 505/20 00505/004 *ALGOL FSAREA SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 6 5.0T2 22 ALGOL.FSAREA.SA.004 1 SEQ 80 3 PAGE UNE SALISBURY JULY 03, 1981 14:50:17 5.0T3 479 0 COPY SECTION COPIED BY COMPILER. 0 Referenced by comments of: 505/14, 505/20, 505/21 00505/005 *ALGOL IEX50T SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 7 5.0T2 23 ALGOL.IEX50T.SA.005 1 SEQ 80 95 PAGE UNE SALISBURY JULY 03, 1981 14:50:22 5.0T3 480 0 COPY SECTION COPIED BY COMPILER. 0 Referenced by comments of: 505/14 1 MON AUG 05/96 18:37:45 Page 255 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00505/006 *ALGOL IEX60000 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 8 5.0T2 24 ALGOL.IEX60000.SA.006 1 SEQ 80 15 PAGE UNE SALISBURY JULY 03, 1981 14:50:24 5.0T3 481 0 COPY SECTION COPIED BY COMPILER. 0 Referenced by comments of: 505/15 00505/007 *ALGOL OSALG00 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 14 5.0T2 25 ALGOL.OSALG00.SA.007 1 SEQ 80 10 PAGE UNE SALISBURY JULY 03, 1981 14:50:36 5.0T3 482 0 COMPS (505/7) THROUGH (505/16) ARE OS/360 ALGOL COMPILER SOURCE. EACH MUST BE ASSEMBLED USING THE SPECIAL OS MACRO LIBRARY (505/17). THIS SUBCOMPONENT COPIES WORKAREA (505/18). 0 Referenced by comments of: 505/7, 505/17, 505/19 00505/008 *ALGOL OSALG01 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 15 5.0T2 26 ALGOL.OSALG01.SA.008 1 SEQ 80 4 PAGE UNE SALISBURY JULY 03, 1981 14:50:37 5.0T3 483 00505/009 *ALGOL OSALG10 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 16 5.0T2 27 ALGOL.OSALG10.SA.009 1 SEQ 80 22 PAGE UNE SALISBURY JULY 03, 1981 14:50:38 5.0T3 484 0 COPIES WORKAREA (505/18). 00505/010 *ALGOL OSALG11 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 17 5.0T2 28 ALGOL.OSALG11.SA.010 1 SEQ 80 88 PAGE UNE SALISBURY JULY 03, 1981 14:50:42 5.0T3 485 0 COPIES WORKAREA (505/18). 00505/011 *ALGOL OSALG20 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 18 5.0T2 29 ALGOL.OSALG20.SA.011 1 SEQ 80 16 PAGE UNE SALISBURY JULY 03, 1981 14:50:45 5.0T3 486 0 COPIES WORKAREA (505/18). 00505/012 *ALGOL OSALG30 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 19 5.0T2 30 ALGOL.OSALG30.SA.012 1 SEQ 80 62 PAGE UNE SALISBURY JULY 03, 1981 14:50:48 5.0T3 487 0 COPIES WORKAREA (505/18). 00505/013 *ALGOL OSALG40 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 20 5.0T2 31 ALGOL.OSALG40.SA.013 1 SEQ 80 17 PAGE UNE SALISBURY JULY 03, 1981 14:50:50 5.0T3 488 0 COPIES WORKAREA (505/18). 1 MON AUG 05/96 18:37:45 Page 256 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00505/014 *ALGOL OSALG50 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 21 5.0T2 32 ALGOL.OSALG50.SA.014 1 SEQ 80 96 PAGE UNE SALISBURY JULY 03, 1981 14:50:55 5.0T3 489 0 COPIES FSACONV (505/3), FSAREA (505/4), AND IEX50T (505/5). 00505/015 *ALGOL OSALG51 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 22 5.0T2 33 ALGOL.OSALG51.SA.015 1 SEQ 80 24 PAGE UNE SALISBURY JULY 03, 1981 14:50:57 5.0T3 490 0 COPIES IEX60000 (505/6) AND WORKAREA (505/18). 00505/016 *ALGOL OSALG51M SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 23 5.0T2 34 ALGOL.OSALG51M.SA.016 1 SEQ 80 9 PAGE UNE SALISBURY JULY 03, 1981 14:50:58 5.0T3 491 0 Referenced by comments of: 505/7, 505/17, 505/19 00505/017 *ALGOL OSMAC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 24 5.0T2 35 ALGOL.OSMAC.SA.017 1 SEQ 80 103 PAGE UNE SALISBURY JULY 03, 1981 14:51:03 5.0T3 492 0 SPECIAL OS INTERFACE MACROS. MUST BE USED TO ASSEMBLE COMPS (505/7) THROUGH (505/16). 0 Referenced by comments of: 505/7, 505/20, 505/21 00505/018 *ALGOL WORKAREA SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 25 5.0T2 36 ALGOL.WORKAREA.SA.018 1 SEQ 80 4 PAGE UNE SALISBURY JULY 03, 1981 14:51:05 5.0T3 493 0 COPY SECTION COPIED BY COMPILER AND LIBRARY. 0 Referenced by comments of: 505/7, 505/9, 505/10, 505/11, 505/12, 505/13, 505/15 00505/019 *ALGOL *ALGOL OC G *ALGOL 5.0T2 37 ALGOL.*ALGOL.OC.019 1 SEQ 80 31 PAGE UM SALISBURY JULY 03, 1981 14:51:05 5.0T3 494 *ALGOL 0 COMPLETE COMPILER OBJECT FILE. CONSISTS OF OBJECT OF COMPS (505/7) THROUGH (505/16), THE OS/360 SOURCE, PLUS THE COMPILER/MTS INTERFACE MODULE (505/2) AND AN " ENT COMENTRY" LOADER CARD TO SPECIFY THE COMPILER ENTRY POINT. 00505/020 *ALGOL LIBSORC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 11 5.0T2 38 ALGOL.LIBSORC.SA.020 1 SEQ 80 181 PAGE UNE SALISBURY JULY 03, 1981 14:51:38 5.0T3 495 0 OS/360 LIBRARY SOURCE. ASSEMBLE USING OSMAC (505/17). COPIES FSACONV (505/3) AND FSAREA (505/4). 0 Referenced by comments of: 505/23 1 MON AUG 05/96 18:37:45 Page 257 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00505/021 *ALGOL LIBSORC1 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 12 5.0T2 39 ALGOL.LIBSORC1.SA.021 1 SEQ 80 37 PAGE UNE SALISBURY JULY 03, 1981 14:51:42 5.0T3 496 0 MORE OS/360 LIBRARY SOURCE. ASSEMBLE USING OSMAC (505/17). COPIES FSAREA (505/4). 0 Referenced by comments of: 505/23 00505/022 *ALGOL LINTSORC SA G S0564 D4T2 VLO FSNAME=ALGOL.LINTSORC.SA.022(1) 72 5.0T2 40 ALGOL.LINTSORC.SA.022 1 LINE 80 28 PAGE UM SALISBURY AUG. 03, 1973 22:24.23 5.0T3 497 0 LIBRARY/MTS INTERFACE MODULE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 387/17, 505/23 00505/023 *ALGOL *ALGOLLIB OL G *ALGOLLIB 5.0T2 41 ALGOL.*ALGOLLIB.OL.023 1 SEQ 3963 11 PAGE UM SALISBURY JULY 03, 1981 14:51:58 5.0T3 498 *ALGOLLIB 0 COMPLETE LIBRARY OBJECT FILE. CONSISTS OF OBJECT OF COMPS (505/20) AND (505/21) ,THE OS/360 LIBRARY SOURCE, PLUS THE LIBRARY/MTS INTERFACE MODULE (505/22) AND AN " ENT LIBENTRY" LOADER CARD TO SPECIFY THE LIBRARY ENTRY POINT. 00505/024 *ALGOL KDFSORC S G S0504 'UBC -> UM #6' FMT=FB(3200,80) 10 5.0T2 42 ALGOL.KDFSORC.S.024 1 SEQ 80 45 PAGE UNE SALISBURY JULY 03, 1981 14:52:10 5.0T3 499 0 SOURCE FOR THE "KDF9" I/O LIBRARY. MAY BE USED BY USERS WHO ARE ACCUSTOMED TO RUNNING ALGOL PROGRAMS ON THE KDF9 COMPUTER. THE SOURCE IS ENTIRELY IN ALGOL EXCEPT FOR "FORMAT" WHICH IS ASSEMBLE LANGUAGE. 00505/025 *ALGOL *KDFLIB OL G *KDFLIB 5.0T2 43 ALGOL.*KDFLIB.OL.025 1 SEQ 348 56 PAGE UM SALISBURY JULY 03, 1981 14:52:11 5.0T3 500 *KDFLIB 0 KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB (389). NOTE: THIS VERSION OF KDFLIB USES SHORT FLOATING POINT ARITHMETIC. PAR=LONG,PROCEDURE SHOULD BE USED TO RECOMPILE THE LIBRARY IF LONG FLOATING POINT ARITHMETIC IS DESIRED. 00505/026 *ALGOL KDFLIBTEST S G S0564 D4T2 VLO FSNAME=ALGOL.KDFLIBTEST.S.026(1) 76 5.0T2 44 ALGOL.KDFLIBTEST.S.026 1 LINE 67 1 PAGE UM SALISBURY AUG. 03, 1973 22:25.28 5.0T3 501 0 ALGOL PROGRAM TO TEST *KDFLIB. 00506/001 PL1 MAINTENANCE CRELCS SA G S1430 4.3T1 VLO FSNAME=PL1_MAINTENANCE.CRELCS.SA.001(1) 340 5.0T2 45 PL1_MAINTENANCE.CRELCS.SA.001 1 SEQ 80 5 PAGE UM TIFFANY APR. 05, 1980 15:30:20 5.0T3 502 0 CREATES LOW-CORE SYMBOL TABLES, ESPECIALLY PL1SYM, INTSUBS, AND INESD. REQUESTS ON GUSER THE NAME OF LCS TABLE, SUCH AS INESD. THEN REQUESTS, ON 1 MON AUG 05/96 18:37:45 Page 258 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 SCARDS, THE COMPLETE LIST OF LOW-CORE SYMBOLS. 0 Referenced by comments of: 163/14, 506/2, 506/5, 506/6 00506/002 PL1 MAINTENANCE CRELCSPR SA G S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.CRELCSPR.SA.002(1) 78 5.0T2 46 PL1_MAINTENANCE.CRELCSPR.SA.002 1 LINE 80 6 PAGE UM TIFFANY JULY 28, 1977 01:46:04 5.0T3 503 0 SAME AS (506/1) EXCEPT FOR PSEUDO-REGISTERS. IHEPRD IS GENERATED. 0 Referenced by comments of: 233/44 00506/003 PL1 MAINTENANCE RUN SA G S1143 D4.1T1 VLO FSNAME=PL1_MAINTENANCE.RUN.SA.003(1) 269 5.0T2 47 PL1_MAINTENANCE.RUN.SA.003 1 SEQ 80 25 PAGE UM TIFFANY MAY 13, 1978 17:34:55 5.0T3 504 0 PROGRAM USED TO SIMULATE THE LOADING PROCESS WITH THE PL/I LIBRARY IN USER VM, RATHER THAN SHARED VM (FOR CHECKOUT). SIMILAR TO UBC'S *RUN PROGRAM (NOT DISTRIBUTED), BUT WITH EXTRA FEATURE (SPECIFIED BY "S2L=" KEYWORD) FOR LOADING LIBRARIES (SUCH AS FIX, SHAREDPL1LIB, ETC.) INTO SEGMENT 12 INSTEAD OF SHARED VM. KEYWORDS "PGM=" (OR "PROGRAM=") HAVE ALSO BEEN ADDED. SEE THE SOURCE FOR USAGE INSTRUCTIONS. COPIES *LOADINFODSECT (001/4). ASSEMBLE WITH PAR=BATCH. ***************************************************************************** D5.0 version: Should be assembled using the UBC Macros, which are no longer distributed by UM. The version found on D4.0 tape D4T3, file 421 is the correct version to use. Contact Elizabeth Sweet, UM Computing Center, if you do not have the correct version. ***************************************************************************** 00506/004 PL1 MAINTENANCE SYMBOLS SA G S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.SYMBOLS.SA.005(1) 81 5.0T2 48 PL1_MAINTENANCE.SYMBOLS.SA.004 1 SEQ 80 5 PAGE UM TIFFANY JULY 28, 1977 01:46:12 5.0T3 505 0 PRINT PL1LIB SYMBOLS AND THEIR CURRENT ADDRESSES. 00506/005 PL1 MAINTENANCE PL1SYMBOLS D S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.PL1SYMBOL.D.007(1) 83 5.0T2 49 PL1_MAINTENANCE.PL1SYMBOL.D.005 1 LINE 117 2 PAGE UM TIFFANY JULY 28, 1977 01:46:16 5.0T3 506 0 LIST OF PL/I SYMBOL NAMES. USED BY CRELCS (506/1). 00506/006 PL1 MAINTENANCE INTSUBS D S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.INTSUBS.D.008(1) 84 5.0T2 50 PL1_MAINTENANCE.INTSUBS.D.006 1 SEQ 56 1 PAGE UM TIFFANY JULY 28, 1977 01:46:20 5.0T3 507 0 LIST OF INTERNAL SUBROUTINES. USED BY CRELCS (506/1). 1 MON AUG 05/96 18:37:45 Page 259 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00506/007 PL1 MAINTENANCE LLXU SA G LLXU W062:LOAD.S 5.0T2 51 PL1_MAINTENANCE.LLXU.SA.007 1 LINE 80 20 PAGE UM TIFFANY JULY 03, 1981 14:57:15 5.0T3 508 0 SIMULATE OS LINK/LOAD/XCTL WITH GOODIES. THIS ROUTINE DOESN'T CALL UMLOAD, LLXU, AND FRIENDS; IT HAS A SIMPLE LOADER TO SPEED UP THE COMPILER. COPIES *GDINFODSECT (594). 0 Referenced by comments of: 163/14 00506/008A PL1 MAINTENANCE HENPECKER SA G PL1:PECKER.S 5.0T2 52 PL1_MAINTENANCE.HENPECKER.SA.008 1 LINE 126 10 PAGE UM TIFFANY JULY 03, 1981 14:57:17 5.0T3 509 0 PROGRAM TO PICK UP THE SOURCE MODULES FROM IEHUPDTE INPUT TAPE SUCH AS THE PL/1 COMPILER. COPIES *GDINFODSECT (594) AND *CNFGINFODSECT (654). ASSEMBLE WITH PL1:SUBR.MAC (506/9) AND *SYSMAC. *********************************************************************** D5.0 VERSION: CAN GENERATE MACRO LIBRARY. *********************************************************************** 0 Referenced by comments of: 163/13, 813/7 00506/009C PL1 MAINTENANCE MACRO LIB SM G PL1:SUBR.MAC 5.0T2 53 PL1_MAINTENANCE.HENPECKER.SM.009 1 LINE 72 3 PAGE UM TIFFANY JULY 03, 1981 14:57:21 5.0T3 510 0 Macro library containing various subroutine macros. 0 Referenced by comments of: 506/8 00506/010 PL1 MAINTENANCE INSTALLATION WF S0564 D4T2 VLO FSNAME=PL1_MAINTENANCE.INSTALLAT.WF.013(1) 89 5.0T2 54 PL1_MAINTENANCE.INSTALLAT.WF.010 1 LINE 140 18 PAGE UM TIFFANY JULY 28, 1977 01:46:32 5.0T3 511 0 INSTRUCTIONS FOR INSTALLATION OF PL/I IN MTS AND DOCUMENTATION ON OS SIMULATION PACKAGE. 00506/011 PL1 MAINTENANCE INSTALLATION WF W062:PL1INSTALL.W 5.0T2 55 PL1_MAINTENANCE.INSTALLAT.WF.011 1 LINE 134 5 PAGE UM TIFFANY JULY 03, 1981 14:57:23 5.0T3 512 0 WRITEUP INDICATING HOW TO INSTALL AND MAINTAIN THE PL/I-F COMPILER (163). 0 Referenced by comments of: 163/13 1 MON AUG 05/96 18:37:45 Page 260 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00507/001 TIMELIMIT *LIM C *LIM 5.0T2 56 TIMELIMIT.*LIM.C.001 1 LINE 60 1 PAGE UM WSG JULY 03, 1981 14:57:24 5.0T4 1 *LIM 0 COMMAND FILE USED BY OPERATORS TO FIND OUT HOW MUCH CPU TIME IS REMAINING FOR AN EXECUTING BATCH JOB. INVOKED BY ENTERING "MTS *LIM" ON OPERATOR'S CONSOLE. 00507/002 TIMELIMIT TLIMIT PGM SA G S0564 D4T2 VLO FSNAME=TIMELIMIT.TLIMIT_PGM.SA.002(1) 91 5.0T2 57 TIMELIMIT.TLIMIT_PGM.SA.002 1 LINE 80 5 PAGE UM WSG JAN. 13, 1977 16:30:08 5.0T4 2 0 PROGRAM TO COMPUTE HOW MUCH TIME IS LEFT BEFORE A JOB EXCEEDS ITS GLOBAL TIME LIMIT. OPERATOR ENTERS EITHER AN UMMPS JOB NUMBER OR USER ID TO SPECIFY THE JOB(S) FOR WHICH THE REMAINING TIME IS TO BE CALCULATED. END-OF-FILE TERMINATES PROGRAM. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654). 1.04 SOURCE IN LINES 1,999. 00507/003 TIMELIMIT TLIMIT PGM OC G SYS:TLIMIT 5.0T2 58 TIMELIMIT.TLIMIT_PGM.OC.003 1 LINE 80 1 PAGE UM WSG JULY 03, 1981 14:57:25 5.0T4 3 SYS.:TLIMIT 00508/001 *BASIC STRT1 C S0564 D4T2 VLO FSNAME=BASIC.STRT1.C.001(1) 93 5.0T2 59 BASIC.STRT1.C.001 1 LINE 70 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:22 5.0T4 4 0 MTS COMMANDS TO RESTORE FILES NEEDED TO GENERATE BASIC, (508/2) THROUGH (508/18) AND (508/28) THROUGH (508/30), WHICH IT ASSUMES ARE ON AN *FS TAPE BY THEMSELVES. 00508/002 *BASIC STRT2 C S1430 4.3T1 VLO FSNAME=BASIC.STRT2.C.002(1) 344 5.0T2 60 BASIC.STRT2.C.002 1 LINE 128 1 PAGE UM FRONCZAK APR. 05, 1980 15:30:30 5.0T4 5 0 MTS COMMANDS TO ASSEMBLE AND LINK-EDIT THE BASIC SOURCE, (508/19) THROUGH (508/27), WHICH IT ASSUMES ARE ON A REGULAR (NON-*FS) BLOCKED, LABELED TAPE. 0 Referenced by comments of: 508/1 00508/003 *BASIC BIFDSECT SA G S0564 D4T2 VLO FSNAME=BASIC.BIFDSECT.SA.003(1) 95 5.0T2 61 BASIC.BIFDSECT.SA.003 1 LINE 66 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:26 5.0T4 6 0 THE DSECT USED BY "BUILT-IN" FUNCTIONS. 0 Referenced by comments of: 508/23 00508/004A *BASIC CLIDSECT SA G W070:CLIDSECT 5.0T2 62 BASIC.CLIDSECT.SA.004 1 LINE 72 3 PAGE UM FRONCZAK JULY 03, 1981 14:57:28 5.0T4 7 0 THE DSECT USED BY COMMAND AND CMNDINIT. 0 Referenced by comments of: 508/19, 508/22, 508/25, 508/26 1 MON AUG 05/96 18:37:45 Page 261 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/005 *BASIC DS6A SA G S0564 D4T2 VLO FSNAME=BASIC.DS6A.SA.005(1) 97 5.0T2 63 BASIC.DS6A.SA.005 1 LINE 72 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:30 5.0T4 8 0 THE DSECT USED BY LOADER. 0 Referenced by comments of: 508/22 00508/006 *BASIC DSECTCOMM SA G S0564 D4T2 VLO FSNAME=BASIC.DSECTCOMM.SA.006(1) 98 5.0T2 64 BASIC.DSECTCOMM.SA.006 1 LINE 70 3 PAGE UM FRONCZAK JULY 28, 1977 01:48:33 5.0T4 9 0 THE BASIC COMMON DSECT. 0 Referenced by comments of: 508/19, 508/20, 508/21, 508/22, 508/23, 508/24, 508/25, 508/26, 508/27 00508/007 *BASIC DSECT9A SA G S1319 D4.2T1 VLO FSNAME=BASIC.DSECT9A.SA.007(1) 337 5.0T2 65 BASIC.DSECT9A.SA.007 1 LINE 69 2 PAGE UM FRONCZAK APR. 01, 1979 22:26:50 5.0T4 10 0 THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH. 0 Referenced by comments of: 508/22 00508/008 *BASIC FHDRDSECT SA G S0564 D4T2 VLO FSNAME=BASIC.FHDRDSECT.SA.008(1) 100 5.0T2 66 BASIC.FHDRDSECT.SA.008 1 LINE 72 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:37 5.0T4 11 0 THE "FILE HEADER" DSECT. 0 Referenced by comments of: 508/24, 508/26 00508/009 *BASIC GLOBALSYM SA G S0564 D4T2 VLO FSNAME=BASIC.GLOBALSYM.SA.009(1) 101 5.0T2 67 BASIC.GLOBALSYM.SA.009 1 LINE 66 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:39 5.0T4 12 0 CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE INSTALLATION NAME. 0 Referenced by comments of: 508/19, 508/20, 508/22, 508/23, 508/25 00508/010 *BASIC INTFACMAC SM G S0564 D4T2 VLO FSNAME=BASIC.INTFACMAC.SM.010(1) 102 5.0T2 68 BASIC.INTFACMAC.SM.010 1 LINE 58 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:41 5.0T4 13 0 BASIC MACRO LIBRARY. 00508/011 *BASIC LDICDSCT SA G S0564 D4T2 VLO FSNAME=BASIC.LDICDSCT.SA.011(1) 103 5.0T2 69 BASIC.LDICDSCT.SA.011 1 LINE 72 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:44 5.0T4 14 0 THE "LOADING DIRECTORY" DSECT. 0 Referenced by comments of: 508/19, 508/21 1 MON AUG 05/96 18:37:45 Page 262 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/012 *BASIC MAPDSECT SA G S0564 D4T2 VLO FSNAME=BASIC.MAPDSECT.SA.012(1) 104 5.0T2 70 BASIC.MAPDSECT.SA.012 1 LINE 68 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:46 5.0T4 15 0 THE "MAP ENTRY DESCRIPTION" DSECT. 0 Referenced by comments of: 508/19, 508/21 00508/013 *BASIC OPDEFEQUS SA G S0564 D4T2 VLO FSNAME=BASIC.OPDEFEQUS.SA.013(1) 105 5.0T2 71 BASIC.OPDEFEQUS.SA.013 1 LINE 70 2 PAGE UM FRONCZAK JULY 28, 1977 01:48:48 5.0T4 16 0 "EQUS" USED IN OPERATOR DEFINITIONS. 0 Referenced by comments of: 508/21 00508/014 *BASIC OPDEFMACROS SM G S0564 D4T2 VLO FSNAME=BASIC.OPDEFMACROS.SM.014(1) 106 5.0T2 72 BASIC.OPDEFMACROS.SM.014 1 LINE 72 3 PAGE UM FRONCZAK JULY 28, 1977 01:48:50 5.0T4 17 0 MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS. 00508/015 *BASIC PDSECT SA G S0564 D4T2 VLO FSNAME=BASIC.PDSECT.SA.015(1) 107 5.0T2 73 BASIC.PDSECT.SA.015 1 LINE 72 3 PAGE UM FRONCZAK JULY 28, 1977 01:48:52 5.0T4 18 0 THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----). 0 Referenced by comments of: 508/20 00508/016 *BASIC SYMTABDEF SA G S0564 D4T2 VLO FSNAME=BASIC.SYMTABDEF.SA.016(1) 108 5.0T2 74 BASIC.SYMTABDEF.SA.016 1 LINE 33 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:55 5.0T4 19 0 THE SYMBOL TABLE DSECT (UNDOCUMENTED). 00508/017 *BASIC SYMTABSECT SA G S0564 D4T2 VLO FSNAME=BASIC.SYMTABSECT.SA.017(1) 109 5.0T2 75 BASIC.SYMTABSECT.SA.017 1 LINE 70 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:57 5.0T4 20 0 THE SYMBOL TABLE DSECT (DOCUMENTED). 0 Referenced by comments of: 508/20, 508/21 00508/018 *BASIC WSLAYOUT SA G S0564 D4T2 VLO FSNAME=BASIC.WSLAYOUT.SA.018(1) 110 5.0T2 76 BASIC.WSLAYOUT.SA.018 1 LINE 68 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:59 5.0T4 21 0 THE "WORKING STORAGE LAYOUT" DSECT. 0 Referenced by comments of: 508/1, 508/19, 508/22 1 MON AUG 05/96 18:37:45 Page 263 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/019A *BASIC CLI SA G S0358 BSCSEF POSN=*BASIC.CLI 5.0T2 77 BASIC.CLI.SA.019 1 SEQ 80 125 PAGE UM FRONCZAK JULY 03, 1981 14:58:50 5.0T4 22 0 Copies (508/4), (508/6), (508/9), (508/11), (508/12), (508/18), and (508/28). 0 Referenced by comments of: 508/2 00508/020A *BASIC LEX SA G S0358 BSCSEF POSN=*BASIC.LEX 5.0T2 78 BASIC.LEX.SA.020 1 SEQ 80 108 PAGE UM FRONCZAK JULY 03, 1981 14:58:56 5.0T4 23 0 Copies (508/6), (508/9), (508/15), and (508/17). 00508/021A *BASIC CMP SA G S0358 BSCSEF POSN=*BASIC.CMP 5.0T2 79 BASIC.CMP.SA.021 1 SEQ 80 107 PAGE UM FRONCZAK JULY 03, 1981 14:59:02 5.0T4 24 0 Copies (508/6), (508/11), (508/12), (508/13), and (508/17). 00508/022A *BASIC CPS SA G S0358 BSCSEF POSN=*BASIC.CPS 5.0T2 80 BASIC.CPS.SA.022 1 SEQ 80 80 PAGE UM FRONCZAK JULY 03, 1981 14:59:07 5.0T4 25 0 Copies (508/4), (508/5), (508/6), (508/7), (508/9), and (508/18). 00508/023A *BASIC NUM SA G S0358 BSCSEF POSN=*BASIC.NUM 5.0T2 81 BASIC.NUM.SA.023 1 SEQ 80 62 PAGE UM FRONCZAK JULY 03, 1981 14:59:11 5.0T4 26 0 Copies (508/3), (508/6), and (508/9). 00508/024A *BASIC VFL SA G S0358 BSCSEF POSN=*BASIC.VFL 5.0T2 82 BASIC.VFL.SA.024 1 SEQ 80 41 PAGE UM FRONCZAK JULY 03, 1981 14:59:14 5.0T4 27 0 Copies (508/6) and (508/8). 00508/025A *BASIC BIO SA G S0358 BSCSEF POSN=*BASIC.BIO 5.0T2 83 BASIC.BIO.SA.025 1 SEQ 80 50 PAGE UM FRONCZAK JULY 03, 1981 14:59:18 5.0T4 28 0 Copies (508/4), (508/6), (508/9), and (508/28). 00508/026A *BASIC INF SA G S0358 BSCSEF POSN=*BASIC.INF 5.0T2 84 BASIC.INF.SA.026 1 SEQ 80 52 PAGE UM FRONCZAK JULY 03, 1981 14:59:21 5.0T4 29 0 Copies (508/4), (508/6), (508/8), and (508/29). 1 MON AUG 05/96 18:37:45 Page 264 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/027A *BASIC BSI SA G S0358 BSCSEF POSN=*BASIC.BSI 5.0T2 85 BASIC.BSI.SA.027 1 SEQ 80 5 PAGE UM FRONCZAK JULY 03, 1981 14:59:23 5.0T4 30 0 Copies (508/6). 0 Referenced by comments of: 508/2 00508/028 *BASIC LIBSYM SA G S0564 D4T2 VLO FSNAME=BASIC.LIBSYM.SA.028(1) 120 5.0T2 86 BASIC.LIBSYM.SA.028 1 LINE 66 1 PAGE UM FRONCZAK JULY 28, 1977 01:50:32 5.0T4 31 0 PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER. 0 Referenced by comments of: 508/1, 508/19, 508/25 00508/029 *BASIC SPECIALRATES SA G S0564 D4T2 VLO FSNAME=BASIC.SPECIALRATES.SA.029(1) 121 5.0T2 87 BASIC.SPECIALRATES.SA.029 1 LINE 70 1 PAGE UM FRONCZAK JULY 28, 1977 01:50:33 5.0T4 32 0 THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR: %PRINT BALANCE AND STATISTICS PRINTING. 0 Referenced by comments of: 508/26 00508/030A *BASIC OBJECT OC G SEG2:BASIC 5.0T2 88 BASIC.OBJECT.OC.030 1 LINE 14824 33 PAGE UM FRONCZAK JULY 03, 1981 14:59:30 5.0T4 33 SEG2:BASIC 0 OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY PISTLE. 0 Referenced by comments of: 508/1, 508/31 00508/031 *BASIC *BASIC OC G *BASIC 5.0T2 89 BASIC.*BASIC.OC.031 1 SEQ 24 1 PAGE UM FRONCZAK JULY 03, 1981 14:59:33 5.0T4 34 *BASIC 0 CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SHARED VM BASIC (508/30). 00508/032A *BASIC BASICHELPC M ETC:BASICHELPC 5.0T2 90 BASIC.BASICHELPC.M.032 1 LINE 68 1 PAGE UM FRONCZAK JULY 03, 1981 14:59:34 5.0T4 35 ETC.:BASICHELPC 0 BASIC HELP COMMAND FILE. 00508/033A *BASIC INSTALLATION P W070:BASICSYSGENP 5.0T2 91 BASIC.INSTALLATION.P.033 1 LINE 102 18 PAGE UM FRONCZAK JULY 03, 1981 14:59:35 5.0T4 36 0 NOTES ON THE INSTALLATION OF BASIC. COPY TO A TN PRINTER. **************************************************************************** D5.0 version: 1 MON AUG 05/96 18:37:45 Page 265 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Updated for Distribution 5.0. **************************************************************************** 00508/034A *BASIC SIGNONM FILE D ETC:BASICSIGNONM 5.0T2 92 BASIC.SIGNONM_FILE.D.034 1 LINE 59 1 PAGE UM FRONCZAK JULY 03, 1981 14:59:37 5.0T4 37 ETC:BASICSIGNONM 0 FILE CONTAINING BASIC "SIGNON" MESSAGE. 00509/001A PERMIT COMMAND D5.0 MASTER SA G MTS:PERMIT.S 5.0T2 93 PERMIT_COMMAND..SA.001 1 LINE 80 27 PAGE UM MTS OGDEN JULY 03, 1981 14:59:38 5.0T4 38 0 THIS IS THE SOURCE FOR THE MTS $PERMIT COMMAND AND THE PERMIT, SETKEY, SETFPRIV, AND SETFSAVE SUBROUTINES. THE PERMIT COMMAND IS IMPLEMENTED AS A CLS ALTHOUGH IT REALLY ISN'T SINCE IT HAS NO SUB-COMMANDS. THIS WAS DONE SOLELY FOR EASE OF ISOLATION, CHECKOUT, AND MODIFICATION. HAS $PERMIT CLS ENTRY POINT PERCMD AND SUBROUTINE ENTRY POINTS PERMIT, SETKEY, SETFPRIV, AND SETFSAVE. CALLS MANY OF THE FILE ROUTINES DIRECTLY. COPIES COPY:GLOBALS (1026/3), *CNFGINFODSECT (654), AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:FILE.MACROS (482/45), COPY:SETPARM (653) AND COPY:MISC.MACROS (728). 0 Referenced by comments of: 529/1 00509/002A PERMIT COMMAND UPDATE UC G MTS:PERMITUPD 5.0T2 94 PERMIT_COMMAND..UC.002 1 LINE 171 4 PAGE UM MTS OGDEN JULY 03, 1981 14:59:40 5.0T4 39 0 UPDATE TO PRODUCE CURRENT SOURCE, USING THE D4.3 SOURCE AS BASE. 00509/003A PERMIT COMMAND *CLSPERMIT OC G *CLSPERMIT 5.0T2 95 PERMIT_COMMAND..OC.003 1 LINE 80 9 PAGE UM MTS OGDEN JULY 03, 1981 14:59:41 5.0T4 40 *CLSPERMIT 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE, USING THE IPL OPTION. THE LOADER COM CARD DEFINES THE SYMBOLS PERCMD AND SETFPRIV IN LCSYMBOL. THE OTHER SUBROUTINES ARE NAMED IN THE GATE (4000) (LCSYMBOL) AND SO CAN NOT BE INCLUDED IN THE COM CARD. 00509/004A PERMIT COMMAND *PERSUB OC G *PERSUB 5.0T2 96 PERMIT_COMMAND.*PERSUB.OC.004 1 LINE 26 1 PAGE UM MTS OGDEN JULY 03, 1981 14:59:42 5.0T4 41 *PERSUB 0 This file contains an ENT card for the symbol "PERSUB" followed by a "$CONTINUE WITH *CLSPERMIT" card. It is used as the file name in the LOADT table in MTS, and is loaded from if the PERSUB subroutine is not defined in LCSYMBOL. 00509/005A PERMIT COMMAND *SKEYSUB OC G *SKEYSUB 5.0T2 97 PERMIT_COMMAND.*SKEYSUB.OC.005 1 LINE 26 1 PAGE UM MTS OGDEN JULY 03, 1981 14:59:43 5.0T4 42 *SKEYSUB 0 This file contains an ENT card for the symbol "SKEYSUB" followed by a 1 MON AUG 05/96 18:37:45 Page 266 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 "$CONTINUE WITH *CLSPERMIT" card. It is used as the file name in the LOADT table in MTS, and is loaded from if the SKEYSUB subroutine is not defined in LCSYMBOL. 00509/006A PERMIT COMMAND *SFSAVSUB OC G *SFSAVSUB 5.0T2 98 PERMIT_COMMAND.*SFSAVSUB.OC.006 1 LINE 26 1 PAGE UM MTS OGDEN JULY 03, 1981 14:59:44 5.0T4 43 *SFSAVSUB 0 This file contains an ENT card for the symbol "SFSSUB" followed by a "$CONTINUE WITH *CLSPERMIT" card. It is used as the file name in the LOADT table in MTS, and is loaded from if the SFSSUB subroutine is not defined in LCSYMBOL. 00509/007A PERMIT COMMAND *SPRIVSUB OC G *SPRIVSUB 5.0T2 99 PERMIT_COMMAND.*SPRIVSUB.OC.007 1 LINE 25 1 PAGE UM MTS OGDEN JULY 03, 1981 14:59:45 5.0T4 44 *SPRIVSUB 0 This file contains an ENT card for the symbol "SETFPSUB" followed by a "$CONTINUE WITH *CLSPERMIT" card. It is used as the file name in the LOADT table in MTS, and is loaded from if the SETFPSUB subroutine is not defined in LCSYMBOL. 00509/008A PERMIT COMMAND SUBR TEST PGM SF MTS:TESTPERSUB(1,999) 5.0T2 100 PERMIT_COMMAND.SUBR_TEST.SF.008 1 LINE 72 3 PAGE UM MTS OGDEN JULY 03, 1981 14:59:46 5.0T4 45 0 PROGRAM TO TEST THE PERMIT SUBROUTINE. 00509/009A PERMIT COMMAND SUBR TEST PGM SF MTS:TESTPERSUB2(1,999) 5.0T2 101 PERMIT_COMMAND.SUBR_TEST.SF.009 1 LINE 71 2 PAGE UM MTS OGDEN JULY 03, 1981 14:59:47 5.0T4 46 0 ANOTHER PROGRAM TO TEST THE PERMIT SUBROUTINE. 00510/001 MTS VOLUME 13 WF S0564 D4T2 VLO FSNAME=MTS_VOLUME_13..WF.001(1) 134 5.0T2 102 MTS_VOLUME_13..WF.001 1 LINE 159 61 PAGE UM MANUAL AUG. 01, 1973 22:10.11 5.0T4 47 0 FORMAT INPUT FOR VOLUME 13 "DATA CONCENTRATOR USER'S GUIDE" OF THE UM MTS MANUAL, AUGUST 1973. EDITOR: RICHARD A. SALISBURY NOTE: THIS MANUAL IS OBSOLETE AND WILL NOT BE REISSUED. 00510/002 MTS VOLUME 13 PF S0564 D4T2 VLO FSNAME=MTS_VOLUME_13..PF.002(1) 135 5.0T2 103 MTS_VOLUME_13..PF.002 1 LINE 80 81 PAGE UM MANUAL AUG. 01, 1973 22:11.01 5.0T4 48 0 PRINT FILE FOR VOLUME 13. COPY TO A TN PRINTER. 1 MON AUG 05/96 18:37:45 Page 267 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00511/001 *OBJLIST SA G S1143 D4.1T1 VLO FSNAME=OBJLIST..SA.001(1) 273 5.0T2 104 OBJLIST..SA.001 1 LINE 80 55 PAGE UM TIFFANY MAY 13, 1978 17:35:44 5.0T4 49 0 PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT. READS *ASMH (737) SYM RECORDS. 00511/002 *OBJLIST OE G *OBJLIST 5.0T2 105 OBJLIST..OE.002 1 SEQ 7253 4 PAGE UM TIFFANY JULY 03, 1981 14:59:58 5.0T4 50 *OBJLIST 00512/001 MTS VOLUME 11 MASTER WT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.MASTER.WT.001(1) 360 5.0T2 106 MTS_VOLUME_11.MASTER.WT.001 1 SEQ 132 85 PAGE UM MANUAL APR. 05, 1980 15:34:11 5.0T4 51 0 TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUALS, AUGUST 1978, UPDATED APRIL 1980. EDITOR: GAIL H. LIFT 00512/002 MTS VOLUME 11 PRINT PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.PRINT.PT.002(1) 361 5.0T2 107 MTS_VOLUME_11.PRINT.PT.002 1 SEQ 132 174 PAGE UM MANUAL APR. 05, 1980 15:34:21 5.0T4 52 0 TEXT/360 PRINT FILE. 00512/003 MTS VOLUME 11 FIGURES SG G S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.FIGURES.SG.003(1) 362 5.0T2 108 MTS_VOLUME_11.FIGURES.SG.003 1 LINE 55 1 PAGE UM MANUAL APR. 05, 1980 15:34:27 5.0T4 53 0 GOM SOURCE FOR MAIN PROGRAM TO CALL SUBROUTINES WHICH GENERATE FIGURES FOR VOLUME 11. 00512/004 MTS VOLUME 11 FIGURES SF G S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.FIGURES.SF.004(1) 363 5.0T2 109 MTS_VOLUME_11.FIGURES.SF.004 1 LINE 1534 47 PAGE UM MANUAL APR. 05, 1980 15:34:28 5.0T4 54 0 FORTRAN SOURCE FOR SUBROUTINES WHICH GENERATE FIGURES FOR VOLUME 11. 00512/005 MTS VOLUME 11 INDEX SOURCE D S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_11.INDEX_SOURC.D.005(1) 345 5.0T2 110 MTS_VOLUME_11.INDEX_SOURC.D.005 1 SEQ 37 3 PAGE UM MANUAL APR. 01, 1979 22:30:35 5.0T4 55 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 11. 00512/006 MTS VOLUME 11 UPDATE 1 PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_11.UPDATE_1.PT.006(1) 364 5.0T2 111 MTS_VOLUME_11.UPDATE_1.PT.006 1 LINE 103 19 PAGE UM MANUAL APR. 05, 1980 15:34:35 5.0T4 56 0 THIS IS "UPDATE 1 TO MTS VOLUME 11," APRIL 1980. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 1 MON AUG 05/96 18:37:45 Page 268 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00513/001A DYSSUB D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=DYS 5.0T4 329 DYSSUB.D5.0_MASTER.SA.001 1 LINE 80 21 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:04:54 5.0T10 233 0 SUBROUTINE TO PROCESS SOME $DISPLAY PARAMETERS. COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), *GDINFODSECT (594), *SENSEDSECT (3025), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2 00513/002A DYSSUB UPDATE UC G MTS:DYSUPD 5.0T4 330 DYSSUB.UPDATE.UC.002 1 LINE 78 12 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:04:55 5.0T10 234 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=DYS. 00513/003A DYSSUB OC G # (PART OF RESIDENT SYSTEM) 4.2CT1 117 DYSSUB..OC.003 1 LINE 80 3 PAGE UM MTS HELFFRICH NOV. 27, 1979 23:12:48 0 NEW VERSIONS CAN BE LOADED INTO SHARED VM USING PISTLE (559), EVEN THOUGH DYSSUB IS INITIALLY LOADED AS PART OF THE RESIDENT SYSTEM. Object part of Resident System (468) 00513/004A DYSSUB L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=DYS.LIST 5.0T4 331 DYSSUB..L.004 1 LINE 133 66 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:05:06 5.0T10 235 00514/001 *PL1TIDY SP G W062:NEATENED 5.0T2 112 PL1TIDY..SP.001 1 LINE 72 18 PAGE UM TIFFANY JULY 03, 1981 15:00:19 5.0T4 57 0 THIS IS A REVISED VERSION OF THE IBM "NEATER" PROGRAM. NOTE: AFTER COMPILATION, THE SYMBOL IHESAPC IN THE OBJECT MUST BE CHANGED TO IHESAPE. 00514/002 *PL1TIDY OE G *PL1TIDY 5.0T2 113 PL1TIDY..OE.002 1 SEQ 25530 9 PAGE UM TIFFANY JULY 03, 1981 15:00:21 5.0T4 58 *PL1TIDY 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00515/001 *11ASR INSTAL C W267:11ASR.INSTAL 367 5.0T2 114 11ASR.INSTAL.C.001 1 LINE 125 1 PAGE UM EADIE JULY 03, 1981 15:00:22 5.0T4 59 0 MTS COMMANDS TO ASSEMBLE AND LINK EDIT ALL THE CSECTS FOR THE PDP-11 ASSEMBLER. ASSEMBLE USING *SYSMAC AND COPY:MISC.MACROS (728). 0 Referenced by comments of: 516/1, 660/1, 660/15, 755/1, 755/3 1 MON AUG 05/96 18:37:45 Page 269 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00515/002 *11ASR MACLIB SM G S1430 4.3T1 VLO FSNAME=11ASR.MACLIB.SM.002(1) 368 5.0T2 115 11ASR.MACLIB.SM.002 1 LINE 64 4 PAGE UM EADIE APR. 05, 1980 15:34:51 5.0T4 60 0 MACRO LIBRARY USED TO ASSEMBLE COMPS (515/3) THROUGH (515/7). 0 Referenced by comments of: 515/3 00515/003 *11ASR KERNEL SA G W267:11ASR.KERNEL 369 5.0T2 116 11ASR.KERNEL.SA.003 1 LINE 86 105 PAGE UM EADIE JULY 03, 1981 15:00:26 5.0T4 61 0 Copies SITECODE from the 11ASR macro library (515/2). 0 Referenced by comments of: 515/2, 515/11 00515/004 *11ASR DCEVAL SA G S1430 4.3T1 VLO FSNAME=11ASR.DCEVAL.SA.004(1) 370 5.0T2 117 11ASR.DCEVAL.SA.004 1 LINE 80 18 PAGE UM EADIE APR. 05, 1980 15:35:07 5.0T4 62 00515/005 *11ASR REPSCN SA G S1430 4.3T1 VLO FSNAME=11ASR.REPSCN.SA.005(1) 371 5.0T2 118 11ASR.REPSCN.SA.005 1 LINE 80 5 PAGE UM EADIE APR. 05, 1980 15:35:10 5.0T4 63 00515/006 *11ASR MACPRO SA G S1430 4.3T1 VLO FSNAME=11ASR.MACPRO.SA.006(1) 372 5.0T2 119 11ASR.MACPRO.SA.006 1 LINE 70 38 PAGE UM EADIE APR. 05, 1980 15:35:12 5.0T4 64 00515/007 *11ASR EXTF11 SA G S1430 4.3T1 VLO FSNAME=11ASR.EXTF11.SA.007(1) 373 5.0T2 120 11ASR.EXTF11.SA.007 1 LINE 72 7 PAGE UM EADIE APR. 05, 1980 15:35:23 5.0T4 65 0 Referenced by comments of: 515/2 00515/008 *11ASR OPCODE SA G S1430 4.3T1 VLO FSNAME=11ASR.OPCODE.SA.008(1) 374 5.0T2 121 11ASR.OPCODE.SA.008 1 LINE 72 15 PAGE UM EADIE APR. 05, 1980 15:35:26 5.0T4 66 00515/009 *11ASR MICROP SA G S1430 4.3T1 VLO FSNAME=11ASR.MICROP.SA.009(1) 375 5.0T2 122 11ASR.MICROP.SA.009 1 LINE 72 6 PAGE UM EADIE APR. 05, 1980 15:35:28 5.0T4 67 00515/010 *11ASR OBJECT OE G *11ASR 5.0T2 123 11ASR.OBJECT.OE.010 1 SEQ 13512 39 PAGE UM EADIE JULY 03, 1981 15:00:43 5.0T4 68 *11ASR 00515/011 *11ASR 11ASRERROR M G ETC:11ASRERROR 5.0T2 124 11ASR.11ASRERROR.M.011 1 LINE 70 4 PAGE UM EADIE JULY 03, 1981 15:00:44 5.0T4 69 ETC.:11ASRERROR 0 ERROR COMMENT FILE REFERENCED BY 11ASR KERNAL (515/3) ON LINE 7455. 1 MON AUG 05/96 18:37:45 Page 270 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00515/012 *11ASR MEMO 286 WT S0564 D4T2 VLO FSNAME=11ASR.MEMO_286.WT.017(1) 162 5.0T2 125 11ASR.MEMO_286.WT.012 1 LINE 80 49 PAGE UM EADIE JAN. 26, 1977 20:17:02 5.0T4 70 0 THIS IS COMPUTING CENTER MEMO 286 -- "THE PDP-11 ASSEMBLER AND LINK EDITOR: A USER'S GUIDE TO *11ASR AND *LINK11" 0 Referenced by comments of: 516/3 00516/001A *LINK11 SA G W267:LINK11.SA 5.0T2 126 LINK11..SA.001 1 LINE 96 46 PAGE UM EADIE JULY 03, 1981 15:00:55 5.0T4 71 0 LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515). 0 Referenced by comments of: 660/1 00516/002 *LINK11 OE G *LINK11 5.0T2 127 LINK11..OE.002 1 SEQ 13152 6 PAGE UM EADIE JULY 03, 1981 15:00:59 5.0T4 72 *LINK11 00516/003 *LINK11 USER'S GUIDE WT # (PART OF *11ASR) UM EADIE 0 See Memo 286 (515/12) 00517/001 LOGICAL OPERATORS SA G S0564 D4T2 VLO FSNAME=LOGICAL_OPERATORS..SA.001(1) 165 5.0T2 128 LOGICAL_OPERATORS..SA.001 1 LINE 70 4 PAGE UM HARDING JULY 28, 1977 01:59:54 5.0T4 73 0 SUBROUTINES TO PROVIDE THE FOLLOWING SYSTEM/360 MACHINE OPERATIONS: MVC, CLC, NC, OC, XC, TR, TRT, ED, AND EDMK. 00517/002 LOGICAL OPERATORS OC G # (PART OF *LIBRARY) UM HARDING 0 Object part of *LIBRARY (524/1) 00518/001 GRGJUL SUBRS SA G S0564 D4T2 VLO FSNAME=GRGJUL_SUBRS..SA.001(1) 166 5.0T2 129 GRGJUL_SUBRS..SA.001 1 LINE 80 5 PAGE UM ENGLE DEC. 05, 1975 16:10:51 5.0T4 74 0 GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC). 0 Referenced by comments of: 436/1, 529/1 00518/002 GRGJUL SUBRS OC G # (PART OF JULGRG SUBRS) UM ENGLE 0 Part of JULGRG subroutines object (522/2). 1 MON AUG 05/96 18:37:45 Page 271 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00519/001 GRJLDT/GRJLTM SUBRS GRJLDT SA G S1143 D4.1T1 VLO FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLD.SA.001(1) 277 5.0T2 130 GRJLDT/GRJLTM_SUBRS.GRJLD.SA.001 1 LINE 80 1 PAGE UM ENGLE JAN. 20, 1978 13:32:33 5.0T4 75 0 GREGORIAN-TO-JULIAN CONVERSION SUBROUTINES (TWO OF MANY -- TOO MANY). 00519/002 GRJLDT/GRJLTM SUBRS GRJLDT OC G # (PART OF *LIBRARY) UM ENGLE 0 Object part of *LIBRARY (524/1) 00519/003 GRJLDT/GRJLTM SUBRS GRJLTM SA G S1143 D4.1T1 VLO FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLT.SA.003(1) 278 5.0T2 131 GRJLDT/GRJLTM_SUBRS.GRJLT.SA.003 1 LINE 80 1 PAGE UM ENGLE JAN. 20, 1978 13:33:56 5.0T4 76 00519/004 GRJLDT/GRJLTM SUBRS GRJLTM OC G # (PART OF *LIBRARY) UM ENGLE 0 Object part of *LIBRARY (524/1) 00520/001 GROSDT SA G S1143 D4.1T1 VLO FSNAME=GROSDT..SA.001(1) 279 5.0T2 132 GROSDT..SA.001 1 LINE 80 2 PAGE UM ENGLE JAN. 20, 1978 13:36:51 5.0T4 77 0 GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE. 00520/002 GROSDT OC G # (PART OF *LIBRARY) UM ENGLE 0 Object part of *LIBRARY (524/1) 00521/001 JLGRDT/JLGRTM JLGRDT SA G S0564 D4T2 VLO FSNAME=JLGRDT/JLGRTM.JLGRDT.SA.001(1) 170 5.0T2 133 JLGRDT/JLGRTM.JLGRDT.SA.001 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:55.50 5.0T4 78 0 JULIAN-TO-GREGORIAN CONVERSION SUBROUTINES. 00521/002 JLGRDT/JLGRTM JLGRDT OC G # (PART OF *LIBRARY) UM ENGLE 0 Object part of *LIBRARY (524/1) 00521/003 JLGRDT/JLGRTM JLGRTM SA G S0564 D4T2 VLO FSNAME=JLGRDT/JLGRTM.JLGRTM.SA.003(1) 171 5.0T2 134 JLGRDT/JLGRTM.JLGRTM.SA.003 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:57.15 5.0T4 79 00521/004 JLGRDT/JLGRTM JLGRTM OC G # (PART OF *LIBRARY) UM ENGLE 0 Object part of *LIBRARY (524/1) 1 MON AUG 05/96 18:37:45 Page 272 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00522/001 JULGRG SUBRS SA G S0564 D4T2 VLO FSNAME=JULGRG_SUBRS..SA.001(1) 172 5.0T2 135 JULGRG_SUBRS..SA.001 1 LINE 80 5 PAGE UM ENGLE MAY 03, 1973 10:00.10 5.0T4 80 0 JULIAN TO GREGORIAN DATE/TIME CONVERSION SUBROUTINES (JULGRGDT, JULGRGTM, AND JLGRSEC). 0 Referenced by comments of: 67/23, 437/1, 529/1 00522/002 JULGRG SUBRS OC G SEG2:CFE 5.0T2 136 JULGRG_SUBRS..OC.002 1 LINE 80 1 PAGE UM ENGLE JULY 03, 1981 15:01:05 5.0T4 81 SEG2:CFE 0 THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE" BY PISTLE AT IPL. 0 Referenced by comments of: 518/2 00523/001 OSGRDT SA G S1143 D4.1T1 VLO FSNAME=OSGRDT..SA.001(1) 280 5.0T2 137 OSGRDT..SA.001 1 LINE 80 2 PAGE UM ENGLE JAN. 20, 1978 13:38:52 5.0T4 82 0 OS/360 (YYDDD) TO GREGORIAN DATE CONVERSION SUBROUTINE. 00523/002 OSGRDT OC G # (PART OF *LIBRARY) UM ENGLE 0 Object part of *LIBRARY (524/1) 00524/001A *LIBRARY OL *LIBRARY 5.0T2 138 LIBRARY..OL.001 1 LINE 32767 83 PAGE UM SALISBURY JULY 03, 1981 15:01:06 5.0T4 83 *LIBRARY 0 OBJECT LIBRARY FOR SYSTEM NON-RESIDENT SUBROUTINES. THE SOURCE FILES FOR THE PROGRAMS CONTAINED IN THIS LIBRARY ARE GIVEN ELSEWHERE IN THIS DISTRIBUTION UNDER THE SPECIFIC SUBROUTINE NAME. THIS LIBRARY IS AUTOMATICALLY SEARCHED WHEN PROGRAMS ARE LOADED IF THERE ARE UNRESOLVED SYMBOLS. 0 Referenced by comments of: 120/2, 223/2, 273/2, 275/2, 278/2, 278/4, 282/3, 283/2, 285/2, 287/2, 357/3, 389/2, 436/2, 436/4, 437/2, 437/4, 437/6, 487/5, 517/2, 519/2, 519/4, 520/2, 521/2, 521/4, 523/2, 528/60, 563/12, 606/2, 607/2, 612/2, 626/2, 627/2, 659/19, 659/28, 659/30, 659/32, 666/2, 687/2, 709/2, 744/1, 744/6, 773/1, 798/4, 800/2, 800/4, 801/2, 1005/4 00524/002A *LIBRARY CREATELIB C LIB:CREATELIB 5.0T2 139 LIBRARY.CREATELIB.C.002 1 LINE 55 1 PAGE UM SALISBURY JULY 03, 1981 15:01:10 5.0T4 84 0 MTS COMMAND FILE TO CONSTRUCT A NEW LIBRARY FILE; IT COPIES THE INDIVIDUAL MODULES INTO A FILE, LINK EDITS THE FILE, AND THEN RUN *GENLIB. NOTE: THIS COMMAND FILE HAS MANY "$CONTINUE WITH" LINES FOR PRIVATE FILES (NOT DISTRIBUTED) WHICH CONSTITUTE THE COMPONENTS OF *LIBRARY. 0 Referenced by comments of: 524/3 1 MON AUG 05/96 18:37:45 Page 273 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00524/003 *LIBRARY ENTERLIB C LIB:ENTERLIB 5.0T2 140 LIBRARY.ENTERLIB.C.003 1 LINE 37 1 PAGE UM SALISBURY JULY 03, 1981 15:01:11 5.0T4 85 0 MTS COMMAND FILE TO ENTER THE NEW LIBRARY FILE CONSTRUCTED BY CREATELIB (524/2) INTO *LIBRARY. WITH RSF, THIS CAN BE DONE DURING NORMAL SYSTEM OPERATION. 00524/004 *LIBRARY WF S0592 SFILES FSNAME=MOD.LIB 5.0T2 141 LIBRARY..WF.004 1 LINE 68 3 PAGE UM SALISBURY DEC. 03, 1980 16:01:50 5.0T4 86 00525/001 ELEM FUNC LIB SQRT SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.SQRT.SA.001(1) 178 5.0T2 142 ELEM_FUNC_LIB.SQRT.SA.001 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:02.02 5.0T4 87 0 THE ELEMENTARY FUNCTION LIBRARY CONTAINS THE MATHEMATICAL AND IMPLICITLY CALLED SUBROUTINES USUALLY ASSOCIATED WITH THE FORTRAN IV LANGUAGE AS WELL AS A FEW ADDITIONAL FUNCTIONS WHICH, INEXPLICABLY, ARE NOT PART OF THE IBM FORTRAN LIBRARY. THESE FUNCTIONS ARE ALL RE-ENTRANT AND, THEREFORE, ARE NORMALLY LOADED INTO SHARED VM. COMPS (525/1) THROUGH (525/46) SHOULD BE ASSEMBLED USING EFL.MACLIB (525/47). 0 Referenced by comments of: 525/1, 525/47, 527/1, 528/53, 1000/32 00525/002 ELEM FUNC LIB EXP SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EXP.SA.002(1) 179 5.0T2 143 ELEM_FUNC_LIB.EXP.SA.002 1 LINE 71 3 PAGE UM HARDING SEP. 24, 1974 09:04.04 5.0T4 88 00525/003 ELEM FUNC LIB ALOG10/ALOG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALOG10/ALOG.SA.003(1) 180 5.0T2 144 ELEM_FUNC_LIB.ALOG10/ALOG.SA.003 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.13 5.0T4 89 00525/004 ELEM FUNC LIB COS/SIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COS/SIN.SA.004(1) 181 5.0T2 145 ELEM_FUNC_LIB.COS/SIN.SA.004 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.18 5.0T4 90 00525/005 ELEM FUNC LIB COTAN/TAN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COTAN/TAN.SA.005(1) 182 5.0T2 146 ELEM_FUNC_LIB.COTAN/TAN.SA.005 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.23 5.0T4 91 00525/006 ELEM FUNC LIB ARCOS/ARSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006(1) 183 5.0T2 147 ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:02.28 5.0T4 92 00525/007 ELEM FUNC LIB ATAN2/ATAN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ATAN2/ATAN.SA.007(1) 184 5.0T2 148 ELEM_FUNC_LIB.ATAN2/ATAN.SA.007 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:02.33 5.0T4 93 00525/008 ELEM FUNC LIB COSH/SINH SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COSH/SINH.SA.008(1) 185 5.0T2 149 ELEM_FUNC_LIB.COSH/SINH.SA.008 1 LINE 71 1 DISK UM HARDING JUNE 27, 1972 12:02.38 5.0T4 94 1 MON AUG 05/96 18:37:45 Page 274 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00525/009 ELEM FUNC LIB TANH SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.TANH.SA.009(1) 186 5.0T2 150 ELEM_FUNC_LIB.TANH.SA.009 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:02.42 5.0T4 95 00525/010 ELEM FUNC LIB ERFC/ERF SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERFC/ERF.SA.010(1) 187 5.0T2 151 ELEM_FUNC_LIB.ERFC/ERF.SA.010 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.46 5.0T4 96 00525/011 ELEM FUNC LIB ALGAMA/GAMMA SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011(1) 188 5.0T2 152 ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:02.51 5.0T4 97 00525/012 ELEM FUNC LIB DSQRT SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DSQRT.SA.012(1) 189 5.0T2 153 ELEM_FUNC_LIB.DSQRT.SA.012 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:02.56 5.0T4 98 00525/013 ELEM FUNC LIB DEXP SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DEXP.SA.013(1) 190 5.0T2 154 ELEM_FUNC_LIB.DEXP.SA.013 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:03.00 5.0T4 99 00525/014 ELEM FUNC LIB DLOG10/DLOG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLOG10/DLOG.SA.014(1) 191 5.0T2 155 ELEM_FUNC_LIB.DLOG10/DLOG.SA.014 1 LINE 67 2 DISK UM HARDING JUNE 27, 1972 12:03.05 5.0T4 100 00525/015 ELEM FUNC LIB DCOS/DSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOS/DSIN.SA.015(1) 192 5.0T2 156 ELEM_FUNC_LIB.DCOS/DSIN.SA.015 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.11 5.0T4 101 00525/016 ELEM FUNC LIB DCOTAN/DTAN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016(1) 193 5.0T2 157 ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:03.15 5.0T4 102 00525/017 ELEM FUNC LIB DARCOS/DARSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DARCOS/DARS.SA.017(1) 194 5.0T2 158 ELEM_FUNC_LIB.DARCOS/DARS.SA.017 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.20 5.0T4 103 00525/018 ELEM FUNC LIB DATAN2/DATAN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DATAN2/DATA.SA.018(1) 195 5.0T2 159 ELEM_FUNC_LIB.DATAN2/DATA.SA.018 1 LINE 70 2 DISK UM HARDING FEB. 16, 1973 09:37.48 5.0T4 104 00525/019 ELEM FUNC LIB DCOSH/DSINH SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOSH/DSINH.SA.019(1) 196 5.0T2 160 ELEM_FUNC_LIB.DCOSH/DSINH.SA.019 1 LINE 68 2 DISK UM HARDING JUNE 27, 1972 12:03.32 5.0T4 105 00525/020 ELEM FUNC LIB DTANH SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DTANH.SA.020(1) 197 5.0T2 161 ELEM_FUNC_LIB.DTANH.SA.020 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:03.36 5.0T4 106 00525/021 ELEM FUNC LIB DERFC/DERF SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DERFC/DERF.SA.021(1) 198 5.0T2 162 ELEM_FUNC_LIB.DERFC/DERF.SA.021 1 LINE 72 2 DISK UM HARDING JUNE 27, 1972 12:03.39 5.0T4 107 1 MON AUG 05/96 18:37:45 Page 275 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00525/022 ELEM FUNC LIB DLGAMA/DGAMMA SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022(1) 199 5.0T2 163 ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:03.42 5.0T4 108 00525/023 ELEM FUNC LIB CABS SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CABS.SA.023(1) 200 5.0T2 164 ELEM_FUNC_LIB.CABS.SA.023 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:03.46 5.0T4 109 00525/024 ELEM FUNC LIB CSQRT SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CSQRT.SA.024(1) 201 5.0T2 165 ELEM_FUNC_LIB.CSQRT.SA.024 1 LINE 67 2 DISK UM HARDING JUNE 27, 1972 12:03.50 5.0T4 110 00525/025 ELEM FUNC LIB CEXP SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CEXP.SA.025(1) 202 5.0T2 166 ELEM_FUNC_LIB.CEXP.SA.025 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:03.54 5.0T4 111 00525/026 ELEM FUNC LIB CLOG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CLOG.SA.026(1) 203 5.0T2 167 ELEM_FUNC_LIB.CLOG.SA.026 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.57 5.0T4 112 00525/027 ELEM FUNC LIB CCOS/CSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CCOS/CSIN.SA.027(1) 204 5.0T2 168 ELEM_FUNC_LIB.CCOS/CSIN.SA.027 1 LINE 69 2 PAGE UM HARDING JULY 27, 1973 12:18.03 5.0T4 113 00525/028 ELEM FUNC LIB CDABS SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDABS.SA.028(1) 205 5.0T2 169 ELEM_FUNC_LIB.CDABS.SA.028 1 LINE 69 1 DISK UM HARDING JUNE 27, 1972 12:04.04 5.0T4 114 00525/029 ELEM FUNC LIB CDSQRT SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDSQRT.SA.029(1) 206 5.0T2 170 ELEM_FUNC_LIB.CDSQRT.SA.029 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:04.08 5.0T4 115 00525/030 ELEM FUNC LIB CDEXP SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDEXP.SA.030(1) 207 5.0T2 171 ELEM_FUNC_LIB.CDEXP.SA.030 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:04.12 5.0T4 116 00525/031 ELEM FUNC LIB CDLOG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDLOG.SA.031(1) 208 5.0T2 172 ELEM_FUNC_LIB.CDLOG.SA.031 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:04.16 5.0T4 117 00525/032 ELEM FUNC LIB CDCOS/CDSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032(1) 209 5.0T2 173 ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032 1 LINE 63 2 DISK UM HARDING JUNE 27, 1972 12:04.19 5.0T4 118 00525/033 ELEM FUNC LIB FIXPI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FIXPI#.SA.033(1) 210 5.0T2 174 ELEM_FUNC_LIB.FIXPI#.SA.033 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:04.23 5.0T4 119 00525/034 ELEM FUNC LIB FRXPI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPI#.SA.034(1) 211 5.0T2 175 ELEM_FUNC_LIB.FRXPI#.SA.034 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:04.25 5.0T4 120 1 MON AUG 05/96 18:37:45 Page 276 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00525/035 ELEM FUNC LIB FDXPI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPI#.SA.035(1) 212 5.0T2 176 ELEM_FUNC_LIB.FDXPI#.SA.035 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:04.28 5.0T4 121 00525/036 ELEM FUNC LIB FCXPI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCXPI#.SA.036(1) 213 5.0T2 177 ELEM_FUNC_LIB.FCXPI#.SA.036 1 LINE 67 1 DISK UM HARDING JUNE 27, 1972 12:04.31 5.0T4 122 00525/037 ELEM FUNC LIB FCDXI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCDXI#.SA.037(1) 214 5.0T2 178 ELEM_FUNC_LIB.FCDXI#.SA.037 1 LINE 71 1 DISK UM HARDING JUNE 27, 1972 12:04.34 5.0T4 123 00525/038 ELEM FUNC LIB FRXPR# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPR#.SA.038(1) 215 5.0T2 179 ELEM_FUNC_LIB.FRXPR#.SA.038 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:04.37 5.0T4 124 00525/039 ELEM FUNC LIB FDXPD# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPD#.SA.039(1) 216 5.0T2 180 ELEM_FUNC_LIB.FDXPD#.SA.039 1 LINE 67 1 DISK UM HARDING JUNE 27, 1972 12:04.43 5.0T4 125 00525/040 ELEM FUNC LIB CMPY# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CMPY#.SA.040(1) 217 5.0T2 181 ELEM_FUNC_LIB.CMPY#.SA.040 1 LINE 61 1 DISK UM HARDING JUNE 27, 1972 12:04.46 5.0T4 126 00525/041 ELEM FUNC LIB CDVD# SA G S1430 4.3T1 VLO FSNAME=ELEM_FUNC_LIB.CDVD#.SA.041(1) 382 5.0T2 182 ELEM_FUNC_LIB.CDVD#.SA.041 1 LINE 67 1 PAGE UM HARDING APR. 05, 1980 15:35:49 5.0T4 127 00525/042 ELEM FUNC LIB CDMPY# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDMPY#.SA.042(1) 219 5.0T2 183 ELEM_FUNC_LIB.CDMPY#.SA.042 1 LINE 61 1 DISK UM HARDING JUNE 27, 1972 12:04.54 5.0T4 128 00525/043 ELEM FUNC LIB CDDVD# SA G S1430 4.3T1 VLO FSNAME=ELEM_FUNC_LIB.CDDVD#.SA.043(1) 383 5.0T2 184 ELEM_FUNC_LIB.CDDVD#.SA.043 1 LINE 67 1 PAGE UM HARDING APR. 05, 1980 15:35:51 5.0T4 129 00525/044 ELEM FUNC LIB DREAL SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DREAL.SA.044(1) 221 5.0T2 185 ELEM_FUNC_LIB.DREAL.SA.044 1 LINE 58 1 DISK UM HARDING JUNE 27, 1972 12:05.00 5.0T4 130 00525/045 ELEM FUNC LIB DIMAG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DIMAG.SA.045(1) 222 5.0T2 186 ELEM_FUNC_LIB.DIMAG.SA.045 1 LINE 58 1 DISK UM HARDING JUNE 27, 1972 12:05.02 5.0T4 131 00525/046 ELEM FUNC LIB MINMAX SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.MINMAX.SA.046(1) 223 5.0T2 187 ELEM_FUNC_LIB.MINMAX.SA.046 1 LINE 65 2 DISK UM HARDING JUNE 27, 1972 12:05.05 5.0T4 132 0 Referenced by comments of: 525/1, 525/47 1 MON AUG 05/96 18:37:45 Page 277 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00525/047 ELEM FUNC LIB EFL.MACLIB SM G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EFL.MACLIB.SM.047(1) 224 5.0T2 188 ELEM_FUNC_LIB.EFL.MACLIB.SM.047 1 LINE 65 1 DISK UM HARDING JUNE 27, 1972 12:05.10 5.0T4 133 0 EFL MACRO LIBRARY REQUIRED FOR ASSEMBLING COMPS (525/1) THROUGH (525/46). 0 Referenced by comments of: 525/1 00525/048 ELEM FUNC LIB ERRMON# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERRMON#.SA.048(1) 225 5.0T2 189 ELEM_FUNC_LIB.ERRMON#.SA.048 1 LINE 70 9 PAGE UM HARDING JULY 28, 1977 02:09:29 5.0T4 134 0 EFL ERROR MONITOR. 0 Referenced by comments of: 527/1 00525/049 ELEM FUNC LIB SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB..SA.049(1) 226 5.0T2 190 ELEM_FUNC_LIB..SA.049 1 LINE 57 3 PAGE UM HARDING SEP. 24, 1974 09:03.35 5.0T4 135 0 SOURCE FOR LOW-CORE SYMBOL TABLE "" WHICH DEFINES EACH OF THE ENTRY POINTS FOR THE EFL ROUTINES. THE SYMBOL TABLE IS POINTED TO BY LCSYMBOL. THE ASSEMBLED NAME OF THIS PROGRAM IS "EFL" SINCE "" IS AN ILLEGAL CSECT NAME. THE OBJECT DECK MUST BE CHANGED (BY THE EDITOR) TO CHANGE THE NAME TO "" IF IT IS RE-ASSEMBLED. 00525/050 ELEM FUNC LIB OBJECT OC G SEG2:EFL 5.0T2 191 ELEM_FUNC_LIB.OBJECT.OC.050 1 LINE 80 17 PAGE UM HARDING JULY 03, 1981 15:03:58 5.0T4 136 SEG2:EFL 0 OBJECT LOADED INTO SHARED VM AT IPL BY PISTLE. THE FOLLOWING SYMBOLS ARE ADDED TO LCSYMBOL BY PISTLE: TRACER, TRACER#, SIOC, SIOC#, SIOCP, AND THE SYMBOL DEFINES A SEPARATE SYMBOL TABLE WHICH CONTAINS THE ADDRESSES OF OF ALL THE EFL ENTRY POINTS. 0 Referenced by comments of: 526/4, 527/2 00526/001 SIOC SUBR SA G S0564 D4T2 VLO FSNAME=SIOC_SUBR..SA.001(1) 228 5.0T2 192 SIOC_SUBR..SA.001 1 LINE 80 42 PAGE UM HARDING JULY 28, 1977 02:09:37 5.0T4 137 0 AN I/O CONVERSION PROGRAM TO PERFORM FLOATING POINT, INTEGER, LOGICAL, AND HEX CONVERSIONS. THE CONVERSIONS AVAILABLE CORRESPOND TO THOSE USUALLY ASSOCIATED WITH THE D, E, F, G, I, L, AND Z FORTRAN FORMAT SPECIFICATIONS. THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, IS NORMALLY LOADED INTO SHARED VM. 00526/002 SIOC SUBR OC G SEG2:SIOC 5.0T2 193 SIOC_SUBR..OC.002 1 LINE 80 3 PAGE UM HARDING JULY 03, 1981 15:04:01 5.0T4 138 SEG2:SIOC 1 MON AUG 05/96 18:37:45 Page 278 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00526/003 SIOC SUBR SIOCP SA G S1430 4.3T1 VLO FSNAME=SIOC_SUBR.SIOCP.SA.003(1) 385 5.0T2 194 SIOC_SUBR.SIOCP.SA.003 1 LINE 80 6 PAGE UM HARDING APR. 05, 1980 15:35:56 5.0T4 139 0 SUBROUTINE TO TRANSLATE FORTRAN FORMAT-LIKE CHARACTER STRINGS INTO THE DATA BLOCK REQUIRED FOR CALLING SIOC. 00526/004 SIOC SUBR SIOCP OC G # (PART OF ELEM FUNC LIB OBJECT) UM HARDING 0 Part of SEG2:EFL (525/50). 00527/001 TRACER SUBR SA G S0564 D4T2 VLO FSNAME=TRACER_SUBR..SA.001(1) 232 5.0T2 195 TRACER_SUBR..SA.001 1 LINE 80 52 PAGE UM HARDING SEP. 24, 1974 09:04.21 5.0T4 140 0 THE TRACEBACK PROGRAM FORMERLY PROVIDED CONVERSATIONAL ERROR PROCESSING FOR ERROR CONDITIONS DETECTED BY THE ELEMENTARY FUNCTION LIBRARY (525) AS WELL AS PROGRAM AND ATTENTION INTERRUPT PROCESSING. COMMANDS ARE AVAILABLE FOR DISPLAYING AND ALTERING FLOATING POINT, INTEGER, CHARACTER, AND HEX DATA. THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, CAN BE LOADED INTO SHARED VM. NOTE: AT UM, THIS COMPONENT IS CONSIDERED TO BE OBSOLETE AND WILL PROBABLY BE REMOVED FROM THE SYSTEM IN THE NEAR FUTURE SINCE THE CURRENT VERSION OF THE EFL ERROR MONITOR (525/48) NO LONGER CALLS IT. 00527/002 TRACER SUBR OC G # (PART OF ELEM FUNC LIB OBJECT) UM HARDING 0 Part of SEG2:EFL (525/50). 00528/001A ALGOLW ALGOLW OC G *ALGOLW 5.0T2 196 ALGOLW.ALGOLW.OC.001 1 LINE 24 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:04 5.0T4 141 *ALGOLW 0 ALW ********************************************************* ALW ALW * * ALW ALW * U N E A L G O L W * ALW ALW * * ALW ALW ********************************************************* ALW ALW ========================================================= ALW Contact people: Alan Hunter NUMAC Computing Service Computing Laboratory The University of Newcastle upon Tyne NEWCASTLE NE1 7RU England 1 MON AUG 05/96 18:37:45 Page 279 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Jim Bodwin Computing Center The University of Michigan 1075 Beal Avenue Ann Arbor MICHIGAN 48109 U.S.A. ALW ========================================================= ALW Installation of the Algol W system from this distribution is described in subcomponent (528/24). This and all other writeups included with this component should be $COPied to a TN printer @MCC. The ALGOLW user manual, MTS Volume 16, is distributed as component (741). ALW ========================================================= ALW All subcomponents should be restored to filenames formed from: . except (528/36), which should be restored to "MACLIB". ALW ========================================================= ALW This subcomponent: This is the public file *ALGOLW. It is now the only public file in the Algol W system, but contains only the loader records required to link into the post IPL loaded system. The compiler/monitor entry point name is AWDRIVER, in the post IPL Algol W system - subcomponent (528/2). To install without re-assembly only (528/1) and (528/2) are required. 0 Referenced by comments of: 483/4, 528/1 00528/002A ALGOLW ALGOLW OE G SEG2:ALGOLW 5.0T2 197 ALGOLW.ALGOLW.OE.002 1 LINE 80 235 PAGE UNE HUNTER BODWIN AUG. 06, 1981 03:49:43 5.0T4 142 SEG2:ALGOLW 0 Contains the re-entrant Algol W system, which may run in either post-IPL loaded shared storage or in user segments. It is built from the individual object decks by the set of MTS commands in subcomponent (528/40). To use in user segments this subcomponent should be restored and $RUN. A source file, subcomponent (528/39), may be used to transfer the contents of this file to the file SEG2:ALGOLW, which is normally the production Algol W system. The COM card defining LCSYMBOL entries is: COM ALGOLW01 1 MON AUG 05/96 18:37:45 Page 280 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 This subcomponent contains the assembled object decks from the following source decks: DRIVER.SA (528/14) -- Compiler system control routine SERVICES.SA (528/51) -- Compiler service routines LOADER.SA (528/33) -- Loader for CLG / Monitor SCAN.S3 (528/49) -- Compiler phase A : scan PARSE.S3 (528/42) -- Compiler phase A : parse AWB.S3 (528/07) -- Compiler phase B : code generate RENTALIB.SA (528/47) -- Run time initialisation and interrupt exits GETENV.SA (528/20) -- ALGOL W environment getter IOPACK.SA (528/27) -- I/O system entries SYSPACK.SA (528/55) -- I/O system unit control FMTPACK.SA (528/16) -- I/O system format routines BADGUYS.SA (528/09) -- Run time error processor GOODGUYS.SA (528/23) -- Run time debug processor FUNRTNS.SA (528/18) -- Function entries SHORTFNS.SA (528/53) -- Short real and complex analytic functions LONGFNS.SA (528/35) -- Long real and complex analytic functions RECORDS.S3 (528/45) -- Record allocation WOLFPACK.SA (528/58) -- Keyword / expression scanner MTSSIM.SA (528/38) -- MTS system interface module LCS.SA (528/31) -- ALGOL W low core symbol table DEFAULT.SA (791/01) -- MTS time and page limit defaults The file is terminated by the following loader cards: LCS LCSYMBOL LDT 0 Referenced by comments of: 528/1, 528/12, 528/39, 528/40 00528/003A ALGOLW ASM C G ALWB:ASM.C 3 5.0T2 198 ALGOLW.ASM.C.003 1 LINE 114 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:20 5.0T4 143 0 MTS skeleton command deck to assemble a mythical Algol W component "XYZ". Copy it to a scratch file, say "-ASM", and edit/source: $EDIT -ASM :CHANGE@ALL /FILE ;XYZ;; $SOURCE -ASM to assemble the subcomponent called . 00528/004A ALGOLW AWA C G ALWB:AWA.C 4 5.0T2 199 ALGOLW.AWA.C.004 1 LINE 84 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:21 5.0T4 144 0 MTS commands to compile the compiler, Phase A. The scanner is in (528/49), and its object is in (528/48). The parser is in (528/42), and its object is in (528/41). 0 Referenced by comments of: 528/41, 528/48 1 MON AUG 05/96 18:37:45 Page 281 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/005A ALGOLW AWB C G ALWB:AWB.C 5 5.0T2 200 ALGOLW.AWB.C.005 1 LINE 70 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:22 5.0T4 145 0 MTS commands to compiler the compiler, Phase B. The source is in (528/7), and the object is in (528/6). 0 Referenced by comments of: 528/6 00528/006A ALGOLW AWB OC G ALWB:AWB.O3 5.0T2 201 ALGOLW.AWB.OC.006 1 LINE 80 52 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:22 5.0T4 146 0 Compiler scan and parse phase object produced by (528/5) from (528/7). 0 Referenced by comments of: 528/5 00528/007A ALGOLW AWB S3 G ALWB:AWB.S3 5.0T2 202 ALGOLW.AWB.S3.007 1 LINE 72 81 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:26 5.0T4 147 0 Source (PL360) for the Algol W compiler, phase B. 0 Referenced by comments of: 528/2, 528/5, 528/6 00528/008A ALGOLW BADGUYS OC G ALWB:BADGUYS.OA 5.0T2 203 ALGOLW.BADGUYS.OC.008 1 LINE 80 22 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:32 5.0T4 148 0 Object deck assembled from subcomponent (528/9). 00528/009A ALGOLW BADGUYS SA G ALWB:BADGUYS.SA 5.0T2 204 ALGOLW.BADGUYS.SA.009 1 LINE 72 51 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:34 5.0T4 149 0 Assembler source for the Algol W run time error and exception processor. SD: AWXERROR LD: ** None ** 0 Referenced by comments of: 528/2, 528/8, 528/59 00528/010A ALGOLW BUILD C G ALWB:BUILD.C 10 5.0T2 205 ALGOLW.BUILD.C.010 1 LINE 68 9 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:38 5.0T4 150 0 Contains an MTS command deck to build the driver file for this distribution, from scratch, in a file called "_DRIVER". It runs *DEDIT (461/1) - comments are stored in the driver file negative line range. 1 MON AUG 05/96 18:37:45 Page 282 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/011A ALGOLW COMMON S3 G ALWB:COMMON.S3 5.0T2 206 ALGOLW.COMMON.S3.011 1 LINE 72 4 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:39 5.0T4 151 0 Compiler scan and parse phase : source for data segments and procedures common to both (528/49) and (528/42). 0 Referenced by comments of: 528/42, 528/49 00528/012A ALGOLW DECKGEN C G ALWB:DECKGEN.C 12 5.0T2 207 ALGOLW.DECKGEN.C.012 1 LINE 113 3 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:40 5.0T4 152 0 A command deck to assemble/compile all of the object decks for the ALGOL W system, assuming nothing. If *ALL* of the assemblies and compilations are successful then (528/40) is invoked to regenerate (528/2). 0 Referenced by comments of: 528/40 00528/013A ALGOLW DRIVER OC G ALWB:DRIVER.OA 5.0T2 208 ALGOLW.DRIVER.OC.013 1 LINE 80 13 PAGE UNE HUNTER BODWIN AUG. 06, 1981 03:50:19 5.0T4 153 0 Object deck assembled from subcomponent (528/14). 00528/014A ALGOLW DRIVER SA G ALWB:DRIVER.SA 5.0T2 209 ALGOLW.DRIVER.SA.014 1 LINE 72 38 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:42 5.0T4 154 0 Assembler source for the Algol W compiler system driver routine. All scheduling of source programs through the compiler, and in CLG/Monitor mode, loading and execution of compiled programs, is performed by this control section. This includes processing of compiler parameters and those given on control cards. Copies GLOBALS (528/21). SD: AWDRIVER Compiler system (*ALW) entry point LD: ** None ** 0 Referenced by comments of: 528/2, 528/13, 528/21, 528/51 00528/015A ALGOLW FMTPACK OC G ALWB:FMTPACK.OA 5.0T2 210 ALGOLW.FMTPACK.OC.015 1 LINE 80 13 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:45 5.0T4 155 0 Object deck assembled from subcomponent (528/16). 00528/016A ALGOLW FMTPACK SA G ALWB:FMTPACK.SA 5.0T2 211 ALGOLW.FMTPACK.SA.016 1 LINE 72 50 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:47 5.0T4 156 0 Assembler source for the Algol W I/O format conversion routines. Processes input and output data conversion. These are stack 1 MON AUG 05/96 18:37:45 Page 283 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 linked "Q-routines". SD: AWFMTPAK Q-routine transfer vector LD: ** None ** 0 Referenced by comments of: 528/2, 528/15 00528/017A ALGOLW FUNRTNS OC G ALWB:FUNRTNS.OA 5.0T2 212 ALGOLW.FUNRTNS.OC.017 1 LINE 80 5 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:52 5.0T4 157 0 Object deck assembled from subcomponent (528/18). 00528/018A ALGOLW FUNRTNS SA G ALWB:FUNRTNS.SA 5.0T2 213 ALGOLW.FUNRTNS.SA.018 1 LINE 72 14 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:53 5.0T4 158 0 Assembler source for the Algol W standard function entries control section. Provides entries to implicit functions (powers, complex arithmetic, etc.) and the link through to standard functions of analysis provided by (528/53) and (528/35). SD: AWFUNLIB LD: AWCHKASR Assertion check AWTIMEFN Clock function - TIME AWTRACER Debug trace - TRACE AWFMCALL Formal call AWFPARCV Formal parameter conversion AWREFCHK Reference check AWEXPNFN Exponent function - EXPONENT AWSANALF Real analytic functions - (528/53) AWLANALF Long real analytic functions - (528/35) AWSCANLF Complex analytic functions - (528/53) AWLCANLF Long complex analytic functions - (528/35) AWPOWERS Powers evaluation AWRICVFN Real to integer conversion functions - ENTIER, ROUND, TRUNCATE AWCARITH Complex arithmetic 0 Referenced by comments of: 528/2, 528/17 00528/019A ALGOLW GETENV OC G ALWB:GETENV.OA 5.0T2 214 ALGOLW.GETENV.OC.019 1 LINE 80 6 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:55 5.0T4 159 0 Object deck assembled from subcomponent (528/20). 00528/020A ALGOLW GETENV SA G ALWB:GETENV.SA 5.0T2 215 ALGOLW.GETENV.SA.020 1 LINE 68 10 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:56 5.0T4 160 0 Assembler source for the Algol W environment acquisition routines. SD: AWGETENV Non Algol W entry to Algol W 1 MON AUG 05/96 18:37:45 Page 284 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LD: ALWBEG Explicit initialization ALWEND Explicit shutdown AWLINKST Link function environment switch 0 Referenced by comments of: 528/2, 528/19 00528/021A ALGOLW GLOBALS SA G ALWB:GLOBALS.SA 5.0T2 216 ALGOLW.GLOBALS.SA.021 1 LINE 68 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:57 5.0T4 161 0 This file defines three assembler variables: &INSTALL -- set to your installation code (e.g. 'UNE') &VERSION -- set to the version identifier (normally a five-character date) &LIBNAME -- the current Algol W entry in LCSYMBOL This file is copied by (528/14) and (528/38). Conditional assembly *MUST* be confined to the system interface module (528/38) *ONLY*. (528/14) assembles two of the variables into an 8-byte descriptor: CL5'&VERSION',CL3'&INSTALL'. This appears on the END card of any object program generated. It also generates the COM card for PISTLE using &LIBNAME. 0 Referenced by comments of: 528/14, 528/31, 528/33, 528/38 00528/022A ALGOLW GOODGUYS OC G ALWB:GOODGUYS.OA 5.0T2 217 ALGOLW.GOODGUYS.OC.022 1 LINE 80 4 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:58 5.0T4 162 0 Object deck assembled from subcomponent (528/23). 00528/023A ALGOLW GOODGUYS SA G ALWB:GOODGUYS.SA 5.0T2 218 ALGOLW.GOODGUYS.SA.023 1 LINE 68 2 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:04:59 5.0T4 163 0 Assembler source for the Algol W run time debug processor routines processor. (Implementation held pending MTS community decisions.) SD: AWXDEBUG LD: not yet finalized 0 Referenced by comments of: 528/2, 528/22 00528/024A ALGOLW INSTALL P G ALWB:INSTALL.P 21 5.0T2 219 ALGOLW.INSTALL.P.024 1 LINE 76 3 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:00 5.0T4 164 0 Print file from subcomponent (528/25). Copy to a TN printer. 0 Referenced by comments of: 528/1, 528/25 1 MON AUG 05/96 18:37:45 Page 285 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/025A ALGOLW INSTALL WX G ALWB:INSTALL.WX 22 5.0T2 220 ALGOLW.INSTALL.WX.025 1 LINE 74 3 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:01 5.0T4 165 0 TEXTFORM source for: ========================================================== = Algol W Installation Guide = = by - Alan Hunter = = April 1970 = ========================================================== This short document describes how to install Algol W in the MTS operating system. It is intended for the "keeper" of Algol W at each particular installation. The print file is subcomponent (528/24). 0 Referenced by comments of: 528/24 00528/026A ALGOLW IOPACK OC G ALWB:IOPACK.OA 5.0T2 221 ALGOLW.IOPACK.OC.026 1 LINE 80 7 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:02 5.0T4 166 0 Object deck assembled from subcomponent (528/27). 00528/027A ALGOLW IOPACK SA G ALWB:IOPACK.SA 5.0T2 222 ALGOLW.IOPACK.SA.027 1 LINE 72 19 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:03 5.0T4 167 0 Assembler source for the Algol W I/O system entries control section. Provides initial entries for all I/O entry standard procedures, and for string conversion functions. SD: AWIOPACK LD: AWRDEDIT Basic input - READ, READON, READCARD AWWREDIT Basic output - WRITE, WRITEON, WRITECARD AWGTEDIT Unit input - GET, GETON AWPTEDIT Unit output - PUT, PUTON AWGTCONV Read internal string - GETSTRING AWPTCONV Write internal string - PUTSTRING AWGETSTR Unit string input - GETCARD, XGETCARD AWPUTSTR Unit string output - PUTCARD, XPUTCARD AWDELETE Unit indexed delete - XDELETE AWIOSYSP Control procedures - READER, WRITER, IOCONTROL, NEWLINE, RELEASE, PROTECT, REWIND, EMPTY, FLUSH, ATTNTRAP, OBEY, STOP AWASSIGN Unit allocation - ASSIGN AWQUACON Unit control - CONTROL, QUALIFY AWSENSIO Unit information - SENSE AWSTRCVF String conversion functions - INTBASE10, INTBASE16, BASE10, LONGBASE10, BASE16, LONGBASE16, DATE 0 Referenced by comments of: 528/2, 528/26 1 MON AUG 05/96 18:37:45 Page 286 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/028A ALGOLW KXSCAN P G ALWB:KXSCAN.P 25 5.0T2 223 ALGOLW.KXSCAN.P.028 1 LINE 88 6 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:05 5.0T4 168 0 Print file from subcomponent (528/29). Copy to a TN printer. 0 Referenced by comments of: 528/29 00528/029A ALGOLW KXSCAN WX G ALWB:KXSCAN.WX 26 5.0T2 224 ALGOLW.KXSCAN.WX.029 1 LINE 102 3 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:07 5.0T4 169 0 TEXTFORM source for: ========================================================== = Newcastle University Computing Laboratory = = NUMAC Document S21 = = KXSCAN - A Keyword and Expression Scanner = = by - Alan Hunter = = December 1979 (incomplete) = ========================================================== This document describes the KXSCAN subroutine used for all keyword and expression decoding within Algol W. It is completely independent of both Algol W and any operating system, and has been used in the OS/MVT and OS/VS2 3.7 systems at NUMAC. The print file is subcomponent (528/28). Copyright: The University of Newcastle upon Tyne 0 Referenced by comments of: 528/28 00528/030A ALGOLW LCS OC G ALWB:LCS.OA 5.0T2 225 ALGOLW.LCS.OC.030 1 LINE 80 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:07 5.0T4 170 0 Object deck assembled from subcomponent (528/31). 00528/031A ALGOLW LCS SA G ALWB:LCS.SA 5.0T2 226 ALGOLW.LCS.SA.031 1 LINE 68 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:08 5.0T4 171 0 Assembler source for the ALGOL W system low core symbol table. SD: &libname from (528/21) Low core symbol table LD: ** None ** 0 Referenced by comments of: 528/2, 528/30 00528/032A ALGOLW LOADER OC G ALWB:LOADER.OA 5.0T2 227 ALGOLW.LOADER.OC.032 1 LINE 80 5 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:09 5.0T4 172 0 Object deck assembled from subcomponent (528/33). 1 MON AUG 05/96 18:37:45 Page 287 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/033A ALGOLW LOADER SA S ALWB:LOADER.SA 5.0T2 228 ALGOLW.LOADER.SA.033 1 LINE 72 18 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:10 5.0T4 173 0 Assembler source for the Algol W system loader. Used by the compiler driver to load programs compiled in CLG or Monitor mode. Copies ALWB:GLOBALS (528/21). SD: AWLOADER Algol W loader LD: ** None ** 0 Referenced by comments of: 528/2, 528/32 00528/034A ALGOLW LONGFNS OC S ALWB:LONGFNS.OA 5.0T2 229 ALGOLW.LONGFNS.OC.034 1 LINE 80 6 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:12 5.0T4 174 0 Object deck assembled from subcomponent (528/35). 00528/035A ALGOLW LONGFNS SA G ALWB:LONGFNS.SA 5.0T2 230 ALGOLW.LONGFNS.SA.035 1 LINE 72 23 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:13 5.0T4 175 0 Assembler source for the Algol W short precision analytic functions. Code adapted from the University of Michigan Elementary Function Library, which was in turn adapted from the Chicago routines. SD: AWLRLFNS Long real function transfer vector - LONGSQRT, LONGEXP, LONGLN, LONGLOG, LONGSIN, LONGCOS, LONGARCTAN, LONGCOT, LONGARCSIN, LONGARCCOS, LONGSINH, LONGCOSH, LONGTANH, LONGERF, LONGERFC, LONGGAMMA, LONGLNGAMMA LD: AWLCXFNS Long complex function transfer vector - LONGCXSIN, LONGCXCOS, LONGCXSQRT, LONGCXLN, LONGCXEXP 0 Referenced by comments of: 528/2, 528/18, 528/34 00528/036A ALGOLW MACLIB SM G ALWB:MACLIB.SM 31 5.0T2 231 ALGOLW.MACLIB.SM.036 1 LINE 72 39 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:15 5.0T4 176 0 Contains the Algol W system macro library. 0 Referenced by comments of: 528/1 00528/037A ALGOLW MTSSIM OC G ALWB:MTSSIM.OA 5.0T2 232 ALGOLW.MTSSIM.OC.037 1 LINE 80 5 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:19 5.0T4 177 0 Object deck assembled from subcomponent (528/38). 1 MON AUG 05/96 18:37:45 Page 288 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/038A ALGOLW MTSSIM SA G ALWB:MTSSIM.SA 5.0T2 233 ALGOLW.MTSSIM.SA.038 1 LINE 72 31 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:20 5.0T4 178 0 Assembler source for the Algol W <--> MTS system interface module. All communication between Algol W and the operating system is performed by calls to these entries. Copies ALWB:GLOBALS (528/21). SD: AWMTSSIM LD: AWSIMBGN SIM initialisation AWSIMEND SIM close down AWGTMAIN Get main storage AWFRMAIN Return main storage AWGTROOT Get root dsect storage AWFDROOT Find root dsect storage AWFRROOT Free root dsect storage AWERRRTN Escape route for GETENV routines AWXCLOCK System clock AWRDRECD Read in a record AWWRRECD Write out a record AWWRDECK Punch out a loader record AWDSOPEN Open a dataset AWDSCLOS Close a dataset AWDSFREE Free (release) a dataset AWDSRWND Rewind a dataset AWDSUNIT Assign a dataset to DDname AWDSCTRL Control operation on dataset AWDSSENS Return dataset information AWDSCLEA Reset or empty a dataset AWCNRPLY Query conversational AWDDNAME Get Device Definition names AWPREFIX Set terminal prefix character AWATTNTR Set attention interrupt exit AWPGNTTR Set program interrupt exit AWTIMNTR Set timer interrupt exit AWSIMXIT Escape route for compiler system AWSYSCMD Issue system command AWGETLCS Return A(system LCS table) AWIDVLOG Monitor ID verify and log AWEDITOR Invoke system editor AWLIBOBJ Supply library file inclusion directive AWEXLOAD Load external object modules AWCCLOOP Supply information for page limit check AWDEFALT Supply installation defaults 0 Referenced by comments of: 528/2, 528/21, 528/37 00528/039A ALGOLW NEWSYS C G ALWB:NEWSYS.C 37 5.0T2 234 ALGOLW.NEWSYS.C.039 1 LINE 66 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:23 5.0T4 179 0 This contains a set of MTS commands to change the current post-IPL 1 MON AUG 05/96 18:37:45 Page 289 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (production) Algol W system. It should be sourced from the id "SEG2". Be sure that you are aware of the consequences of using this, and that you have the permission of your local Senior Systems Programmer to change files on "SEG2". The new system is built using *OBJUTIL (721) using the file SEG2:ALGOLW (528/2) as a basis. 0 Referenced by comments of: 528/2 00528/040A ALGOLW OBJBUILD C G ALWB:OBJBUILD.C 38 5.0T2 235 ALGOLW.OBJBUILD.C.040 1 LINE 66 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:24 5.0T4 180 0 Contains an MTS command deck to set up (528/2) from the individual object decks. During the conversion, SYM loader cards are deleted. This file is copied by (528/12). 0 Referenced by comments of: 528/2, 528/12 00528/041A ALGOLW PARSE OC G ALWB:PARSE.O3 5.0T2 236 ALGOLW.PARSE.OC.041 1 LINE 80 43 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:25 5.0T4 181 0 Compiler scan and parse phase object produced by (528/4) from (528/42). 0 Referenced by comments of: 528/4 00528/042A ALGOLW PARSE S3 G ALWB:PARSE.S3 5.0T2 237 ALGOLW.PARSE.S3.042 1 LINE 72 73 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:28 5.0T4 182 0 PL360 source for the Algol W compiler, phase A, recursive descent parser. Has a $CONTINUE WITH COMMON.S3 (528/11) record. 0 Referenced by comments of: 528/2, 528/4, 528/11, 528/41 00528/043A ALGOLW RECORDS C G ALWB:RECORDS.C 46 5.0T2 238 ALGOLW.RECORDS.C.043 1 LINE 66 1 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:33 5.0T4 183 0 Contains an MTS command deck to compile the record allocation library routine (528/45). 00528/044A ALGOLW RECORDS OC G ALWB:RECORDS.O3 5.0T2 239 ALGOLW.RECORDS.OC.044 1 LINE 80 3 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:34 5.0T4 184 0 Object deck compiled from subcomponent (528/45). 00528/045A ALGOLW RECORDS S3 G ALWB:RECORDS.S3 5.0T2 240 ALGOLW.RECORDS.S3.045 1 LINE 72 5 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:35 5.0T4 185 0 PL360 source for the Algol W record allocation routine. 1 MON AUG 05/96 18:37:45 Page 290 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 SD: AWRCALOC Record allocator LD: ** None ** 0 Referenced by comments of: 528/2, 528/43, 528/44 00528/046A ALGOLW RENTALIB OC G ALWB:RENTALIB.OA 5.0T2 241 ALGOLW.RENTALIB.OC.046 1 LINE 80 9 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:36 5.0T4 186 0 Object deck assembled from subcomponent (528/47). 00528/047A ALGOLW RENTALIB SA G ALWB:RENTALIB.SA 5.0T2 242 ALGOLW.RENTALIB.SA.047 1 LINE 68 18 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:37 5.0T4 187 0 Assembler source for the Algol W library root control section. Provides the initialization entry for the run time stytem, with dummy section initialization code, and also the interrupt exits. SD: AWSYSTEM Initial run time entry LD: AWSYINIT root dummy section initialisation AWCLOSE system close down 0 Referenced by comments of: 528/2, 528/46 00528/048A ALGOLW SCAN OC G ALWB:SCAN.O3 5.0T2 243 ALGOLW.SCAN.OC.048 1 LINE 80 19 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:39 5.0T4 188 0 Compiler scan and parse phase object produced by (528/4) from (528/49). 0 Referenced by comments of: 528/4 00528/049A ALGOLW SCAN S3 G ALWB:SCAN.S3 5.0T2 244 ALGOLW.SCAN.S3.049 1 LINE 72 27 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:41 5.0T4 189 0 Source (PL360) for the Algol W compiler, phase A, scanner. Has a $CONTINUE WITH COMMON.S3 (528/11) record. 0 Referenced by comments of: 528/2, 528/4, 528/11, 528/48 00528/050A ALGOLW SERVICES OC G ALWB:SERVICES.OA 5.0T2 245 ALGOLW.SERVICES.OC.050 1 LINE 80 8 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:43 5.0T4 190 0 Object deck assembled from subcomponent (528/51). 00528/051A ALGOLW SERVICES SA G ALWB:SERVICES.SA 5.0T2 246 ALGOLW.SERVICES.SA.051 1 LINE 70 32 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:44 5.0T4 191 0 Assembler source for the Algol W compiler service routines. 1 MON AUG 05/96 18:37:45 Page 291 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 These supply I/O and other facilities to the compiler phases. Their addresses are contained in a transfer vector in (528/14). SD: AWCSRTNS LD: AWGETCRD Source cards input AWPUTLNE Listing/Diagnostics output AWVFLIST Virtual file listing routines AWXRFRTN Cross reference AWPUTCRD Object card output AWGTSTOR Nested storage allocation AWFRSTOR Nested storage release AWGTTIME Processor time clock AWPUTMSG Messages, AWCSRTNS + AWDRIVER 0 Referenced by comments of: 528/2, 528/50 00528/052A ALGOLW SHORTFNS OC G ALWB:SHORTFNS.OA 5.0T2 247 ALGOLW.SHORTFNS.OC.052 1 LINE 80 6 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:47 5.0T4 192 0 Object deck assembled from subcomponent (528/53). 00528/053A ALGOLW SHORTFNS SA G ALWB:SHORTFNS.SA 5.0T2 248 ALGOLW.SHORTFNS.SA.053 1 LINE 72 20 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:49 5.0T4 193 0 Assembler source for the Algol W short precision analytic functions. Code adapted from the University of Michigan Elementary Function Library (525), which was in turn adapted from the Chicago routines. SD: AWSRLFNS Short real function transfer vector - SQRT, EXP,LN, LOG, SIN, COS, ARCTAN, TAN, COT, ARCSIN, ARCCOS, SINH, COSH, TANH, ERF, ERFC, GAMMA, LNGAMMA LD: AWSCXFNS Short complex function transfer vector - CXSIN, CXCOS, CXSQRT, CXLN, CXEXP 0 Referenced by comments of: 528/2, 528/18, 528/52 00528/054A ALGOLW SYSPACK OC G ALWB:SYSPACK.OA 5.0T2 249 ALGOLW.SYSPACK.OC.054 1 LINE 80 14 PAGE UNE HUNTER BODWIN AUG. 06, 1981 03:51:55 5.0T4 194 0 Object deck assembled from subcomponent (528/55). 00528/055A ALGOLW SYSPACK SA G ALWB:SYSPACK.SA 5.0T2 250 ALGOLW.SYSPACK.SA.055 1 LINE 72 33 PAGE UNE HUNTER BODWIN AUG. 06, 1981 03:51:57 5.0T4 195 0 Assembler source for the Algol W I/O system record and device control routines. These are stack linked "Q-routines". SD: AWSYSPAK Q-routine transfer vector LD: AWFMSCAN Format string decoder (O/S type I rtn) 1 MON AUG 05/96 18:37:45 Page 292 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 528/2, 528/54 00528/056A ALGOLW TESTPGMS SW G ALWB:TESTPGMS.SW 5.0T2 251 ALGOLW.TESTPGMS.SW.056 1 LINE 81 7 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:57 5.0T4 196 0 Contains a set of small Algol W programs to test *ALGOLW as a compiler (source to object deck). To use: $RUN *ALGOLW SCARDS=TESTPGMS.SW 00528/057A ALGOLW WOLFPACK OC G ALWB:WOLFPACK.OA 5.0T2 252 ALGOLW.WOLFPACK.OC.057 1 LINE 80 11 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:05:58 5.0T4 197 0 Object deck assembled from subcomponent (528/58). 00528/058A ALGOLW WOLFPACK SA G ALWB:WOLFPACK.SA 5.0T2 253 ALGOLW.WOLFPACK.SA.058 1 LINE 72 49 PAGE UNE HUNTER BODWIN JULY 03, 1981 15:06:00 5.0T4 198 0 Assembler source for the Algol W system independent subroutines. Provides a keyword/expression scanner and a block letter routine. SD: AWINDRTN LD: AWKXSCAN Keyword and expression processing AWCVREAL Convert real routine AWBLKLTR Block letter generation AWSPACES Stop on space table AWSPACOM Stop on space or comma table AWNSPACE Stop on not space table AWNSPACM Stop on not space or comma table AWUCTOLC Translate UC alpha to LC alpha table AWATSIGN Stop on an "@" table KXSCAN Tourist synonym for AWKXSCAN 0 Referenced by comments of: 528/2, 528/57 00528/059C ALGOLW AWSNAP SA G ALWB:SNAP.S 5.0T2 254 ALGOLW.AWSNAP.SA.059 1 LINE 68 3 PAGE UM BODWIN JULY 03, 1981 15:06:08 5.0T4 199 0 This subcomponent is not a part of ALGOLW, but an interface to the ALGOLW SNAPSHOT routine, which is part of BADGUYS (528/9). Documentation may be found in the source. 00528/060C ALGOLW AWSNAP OC G # (PART OF *LIBRARY) UM BODWIN 0 Object part of *LIBRARY (524/1) 00528/061 ALGOLW *XALGOLW OE G # (OBSOLETE) D4T2 238 ALGOLW.*XALGOLW.OE.006 1 SEQ 3402 2 PAGE UM BODWIN JULY 28, 1977 02:13:51 0 *XALGOLW IS NO LONGER SUPPORTED AT UM. 1 MON AUG 05/96 18:37:45 Page 293 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/062 ALGOLW UNSP I/O SA G ALIO S1153 UNSP VLO FSNAME=ALGOLIO.S 5.0T2 255 ALGOLW.UNSP_I/O.SA.062 1 LINE 80 5 PAGE UM UNSP FEB. 23, 1979 04:51:31 5.0T4 200 0 THE OBJECT OF THIS IS IN UNSP:LIBRARY (685/2). THIS MODULE IS USABLE, BUT IT HAS BEEN OUTDATED BY NEW FEATURES OF *ALGOLW. 00529/001A FILESTATUS COMMAND D5.0 MASTER SA MTS:FSTA.S 5.0T2 256 FILESTATUS_COMMAND..SA.001 1 LINE 79 46 PAGE UM MTS OGDEN JULY 03, 1981 15:06:14 5.0T4 201 0 SOURCE FOR FILESTATUS COMMAND WHICH IS NORMALLY LOADED BY PISTLE AT IPL AND EXECUTED WHENEVER A $FILESTATUS COMMAND IS ISSUED. THIS COMMAND PRINTS INFO ABOUT FILES. THE FILESTATUS COMMAND, LIKE THE PERMIT COMMAND, WAS IMPLEMENTED AS A COMMAND LANGUAGE SUBSYSTEM EVEN THOUGH IT REALLY ISN'T A CLS. SEE THE COMMENTS FOR (509/1). COPIES *GFINFODSECT (593) AND *GDINFODSECT (594). ASSEMBLE WITH COPY:MTS.MACROS (344/3). REQUIRES SHARED VM SUBROUTINES JULGRGDT (522) AND GRGJULDT (518). 0 Referenced by comments of: 47/1, 212/1, 441/1 00529/002C FILESTATUS COMMAND UPDATE UC G MTS:FSTAUPD 5.0T2 257 FILESTATUS_COMMAND..UC.002 1 LINE 114 4 PAGE UM MTS OGDEN JULY 03, 1981 15:06:19 5.0T4 202 0 USES D4.3 SOURCE AS BASE. 00529/003A FILESTATUS COMMAND OC *CLSFILESTATUS 5.0T2 258 FILESTATUS_COMMAND..OC.003 1 LINE 80 17 PAGE UM MTS OGDEN JULY 03, 1981 15:06:20 5.0T4 203 *CLSFILESTATUS 00530/001 *AMENDS SA S0564 D4T2 VLO FSNAME=AMENDS..SA.001(1) 256 5.0T2 259 AMENDS..SA.001 1 LINE 80 6 PAGE UM DWB JULY 28, 1977 02:17:36 5.0T4 204 0 CHANGED TO PROMPT FOR OLD AND NEW COPIES IF UNITS 0 AND/OR 1 ARE NOT ASSIGNED. 00530/002 *AMENDS OC *AMENDS 5.0T2 260 AMENDS..OC.002 1 LINE 80 3 PAGE UM DWB JULY 03, 1981 15:06:29 5.0T4 205 *AMENDS 00531/001A COMMAND STATISTICS CMDSTAT D5.0 SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=CMDSTAT 5.0T4 332 COMMAND_STATISTICS.CMDSTA.SA.001 1 LINE 80 6 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:05:08 5.0T10 236 0 GENERAL SYSTEM LOGGING FACILITY TO LOG ALL MTS COMMANDS, THE HASP LOG, THE OPERATOR'S CONSOLE LOG, UNIT AND MACHINE CHECK RECORDS, ETC. COPIES COPY:CMDAREADSECT (531/19), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3). CURRENTLY THE FOLLOWING RECORD TYPES ARE ASSIGNED: TYPE 1 = MTS COMMANDS 1 MON AUG 05/96 18:37:45 Page 294 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 2 = OVERFLOW 3 = RELOAD 4 = UNIT-CHECK DATA (OLD STYLE) 5 = END-OF-USER (HAS BEEN SIGNED-OFF) 6 = 3270 DSR STATISTICS 7 = HASP LOG 8 = SSRTN JOBSTA DATA 9 = TSFO DSR STATISTICS 10 = MACHINE-CHECK RECORDS 11 = OPERATOR CONSOLE LOG 12 = EDITOR STATISTICS (UNUSED) 13 = LOADER STATISTICS 14 = PLOTTER USER STATISTICS 15 = SPIRES STATISTICS (UNUSED) 16 = MOUNT STATISTICS 17 = MERIT STATISTICS 18 = PLOTTER LOAD STATISTICS 19 = SSRTN SUMMARY DATA 20 = DISK MANAGER STATISTICS (TRAK TO START) 21 = HASP DEVICE STATISTICS (E.G., OMR CARDS) 22 = RESERVED FOR PW FAILURE STATISTICS (WORK BEING DONE AT RPI) 23 = *STATISTICS RECORDS 24 = SYSTEM SOFTWARE ERROR RECORDS (UNUSED) 25 = UNIT CHECK RECORDS ARE LOGGED BY CALLING THE S-TYPE ENTRY TO CMDSTAT AS FOLLOWS: CALL CMDSTATS,(LOC,LEN,TYPE) WHERE LOC IS THE LOCATION OF THE RECORD LEN IS THE HALFWORD LENGTH OF THE RECORD TYPE IS THE FULLWORD RECORD TYPE AND RC=0 IS NORMAL RC=4 MEAN ALL DROP AREAS ARE FULL; THE RECORD HAS NOT BEEN LOGGED. 0 Referenced by comments of: 42/2, 413/1, 447/1, 752/1 00531/002A COMMAND STATISTICS CMDSTAT UPDATE UC G MTS:CMDSTATUPD(1,99999) 5.0T4 333 COMMAND_STATISTICS.CMDSTA.UC.002 1 LINE 95 4 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:05:09 5.0T10 237 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=CMDSTAT. 0 Referenced by comments of: 531/19 00531/003A COMMAND STATISTICS CMDSTAT OBJECT OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 0 Referenced by comments of: 769/24 1 MON AUG 05/96 18:37:45 Page 295 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/004A COMMAND STATISTICS CMDSTAT LIST L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=CMDSTAT.LIST 5.0T4 334 COMMAND_STATISTICS.CMDSTA.L.004 1 LINE 133 39 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:05:12 5.0T10 238 00531/005A COMMAND STATISTICS *CLN C *CLN 5.0T2 261 COMMAND_STATISTICS.*CLN.C.005 1 LINE 81 1 PAGE UM MTS LIFT JULY 03, 1981 15:06:30 5.0T4 206 *CLN 0 COMMAND FILE TO DELETE VARIOUS OLD DATA LINES FROM INIT:UC3330LOG (621/12) AND INIT:MCFILE (577/10) BEFORE STARTING *CMD (531/6). RUNS SYS:PURGE (739/5). THIS FILE IS STARTED BY INIT:INITCMD (097/2). 0 Referenced by comments of: 97/2, 531/6, 739/5 00531/006A COMMAND STATISTICS *CMD C G *CMD 5.0T2 262 COMMAND_STATISTICS.*CMD.C.006 1 LINE 81 1 PAGE UM MTS LIFT JULY 03, 1981 15:06:31 5.0T4 207 *CMD 0 WHEN THE SYSTEM IS IPLED, INIT:INITCMD (097/2) INVOKES *CLN (531/5), WHICH IN TURN INVOKES *CMD. AFTER SIGNON, *CMD RUNS CMDPIKUP (531/7). AN ERROR FILE (CMDERRORS) MUST EXIST UNDER THE USER ID USED FOR *CMD. THE LOGGED RECORDS FILL UP A 384 PAGE FILE ABOUT 3 TIMES PER DAY UNDER BUSY CONDITIONS. TWO SUCH FILES ARE USED ALTERNATELY. THE TAPES ONTO WHICH THEY ARE DUMPED FILL UP IN ABOUT 2 WEEKS. 0 Referenced by comments of: 531/5, 531/9, 621/12 00531/007A COMMAND STATISTICS CMDPIKUP SA G CMDP SYS:CMDPIKUP(1000) 5.0T2 263 COMMAND_STATISTICS.CMDPIK.SA.007 1 LINE 80 20 PAGE UM MTS LIFT JULY 03, 1981 15:06:31 5.0T4 208 SYS:CMDPIKUP 0 PROGRAM TO PICKUP LOG RECORDS FROM CMDSTAT AND SAVE THEM IN FILES; FILENAMES ARE SPECIFIED BY THE CMDDIR FILE (531/10). WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC STRTJB TO START "MTS *DWB" (531/13) WHICH DUMPS THE FILLED FILE ONTO TAPE ACCORDING TO DIRECTORY INFORMATION IN CMDDIR. IN ADDITION, MACHINE AND CHANNEL CHECK RECORDS, TYPE 10, ARE ALSO WRITTEN ON UNIT 10 WHICH IS ASSIGNED TO THE FILE INIT:MCFILE. UNIT CHECK RECORDS, TYPES 4 AND 25, ARE ALSO WRITTEN ON UNIT 4 WHICH IS ASSIGNED TO THE FILE INIT:UC3330LOG(*L+1). CMDPIKUP REQUIRES AN EMPTY FILE NAMED CMDSTATLOCK WHICH IS USED TO MAKE SURE THAT ONLY ONE COPY OF THIS PROGRAM IS RUNNING AT A TIME. WHEN CMDPIKUP IS STARTED, IT FIRST SCANS THE DIRECTORY FILE LOOKING FOR BUSY ENTRIES. IF IT FINDS ANY, IT CHANGES FILE BUSY TO FILE FULL AND TAPE BUSY TO TAPE ACTIVE, SEE (531/40), AND THEN SETS THINGS UP SO A FILE-TO-TAPE TASK (531/13) WILL BE STARTED UP ABOUT 4 MINUTES AFTER CMDPIKUP STARTED (THIS DELAY IS TO ALLOW PISTLE TO FINISH LOADING MOUNT IF THE SYSTEM HAS JUST BEEN IPLED). THIS PROGRAM ALSO CREATES AND FILLS FILES FOR USE BY *HLG (752/3). NOTE: THE FILE "CMDDIR" (531/10) IS REFERENCED DIRECTLY BY THIS PROGRAM. CMDPIKUP COPIES COPY:CMDAREADSECT (531/19), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), *GFINFODSECT (593), AND *GDINFODSECT (594). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND MTA:MCHMAC (577/5). 0 Referenced by comments of: 531/6, 531/40 1 MON AUG 05/96 18:37:45 Page 296 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/008A COMMAND STATISTICS CMDPIKUP OC G SYS:CMDPIKUP(1,999) 5.0T2 264 COMMAND_STATISTICS.CMDPIK.OC.008 1 LINE 80 7 PAGE UM MTS LIFT JULY 03, 1981 15:06:35 5.0T4 209 00531/009 COMMAND STATISTICS CMDSTATLOCK D # SYS:CMDSTATLOCK UM MTS LIFT SYS:CMDSTATLOCK@E 0 FILE USED BY *CMD (531/6) TO MAKE SURE ONLY ONE COPY AT A TIME IS RUNNING. 00531/010 COMMAND STATISTICS SYS:CMDDIR D MTS:TST.CMDDIR 5.0T2 265 COMMAND_STATISTICS.SYS:CM.D.010 1 LINE 70 1 PAGE UM MTS LIFT JULY 03, 1981 15:06:39 5.0T4 210 SYS.:CMDDIR 0 THIS FILE SPECIFIES THE NAMES OF THE DATA FILES USED FOR DUMPING THE LOGGED RECORDS. IT ALSO SPECIFIES THE TAPE PARAMETERS USED FOR DUMPING EACH FILE TO TAPE WHEN FULL. *** WARNING *** WHEN EDITTING THIS FILE WITH THE EDITOR, NEVER USE VISUAL MODE OR THE REPLACE COMMAND SINCE THE LINES CONTAINING TAPE INFORMATION HAVE HEX FIELDS WHICH WILL BE CLOBBERED. 0 Referenced by comments of: 531/7, 531/14 00531/011 COMMAND STATISTICS SYS:CMDSTAT1 D # SYS:CMDSTAT1 UM MTS LIFT SYS:CMDSTAT1@E 00531/012 COMMAND STATISTICS SYS:CMDSTAT2 D # SYS:CMDSTAT2 UM MTS LIFT SYS:CMDSTAT2@E 00531/013A COMMAND STATISTICS *DWB C G MTS:TST.DWB 5.0T2 266 COMMAND_STATISTICS.*DWB.C.013 1 LINE 138 1 PAGE UM MTS LIFT JULY 03, 1981 15:06:40 5.0T4 211 *DWB 0 COMMAND FILE INVOKED BY CMDPIKUP TO RUN THE CMDTAPE PROGRAM (531/14) WHICH DUMPS A FULL LOG FILE TO TAPE AND UPDATES THE CMDFDIR DIRECTORY TO ADD A LINE OF INFORMATION FOR EACH FILE WRITTEN. THE CMDTAPE PROGRAM ALSO WRITES ALL MOUNT STATISTICS RECORDS, TYPE 16, ON UNIT 16 WHICH IS ASSIGNED TO THE FILE SYS:MOUNTSTAT(*L+1); ALL MERIT NETWORK USAGE STATISTICS RECORDS, TYPE 17, ON UNIT 17 WHICH IS ASSIGNED TO THE FILE MNET:STAT(*L+1); AND ALL HASP STATISTICS RECORDS, TYPE 21, ON UNIT 18, WHICH IS ASSIGNED TO THE FILE SYS:HASPCOUNTS(*L+1). THE FILE CMDERRORS IS REQUIRED FOR LOGGING. IT WOULD SEEM THAT DON COULD HAVE THOUGHT OF SOME NAME MORE ORIGINAL THAN HIS INITIALS. DON'S RESPONSE: "SINCE NO ONE WOULD NAME AN SVC AFTER ME, I WAS FORCED ... " 0 Referenced by comments of: 413/1, 531/7 00531/014 COMMAND STATISTICS CMDTAPE SA G S1430 4.3T1 VLO FSNAME=COMMAND_STATISTICS.CMDTAP.SA.013(1) 451 5.0T2 267 COMMAND_STATISTICS.CMDTAP.SA.014 1 LINE 72 8 PAGE UM MTS LIFT APR. 05, 1980 18:06:28 5.0T4 212 0 PROGRAM TO COPY CMDSTAT LOG FILES TO TAPE. RUN BY *DWB. NOTE: THE FILES CMDDIR (531/10) AND CMDFDIR (531/16) ARE REFERENCED DIRECTLY BY 1 MON AUG 05/96 18:37:45 Page 297 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS PROGRAM. IT ALSO WRITES *PRINT* RECEIPT NUMBERS IN THE FILE SYS:HASPRECEIPTS (531/18) FOR THE PRINTED HASP LOG IT PRODUCES. COPIES COPY:CMDAREADSECT (531/19), *GDINFODSECT (594), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 531/13, 531/15, 531/16, 531/17, 531/18, 531/34 00531/015 COMMAND STATISTICS CMDTAPE OC G SYS:CMDTAPE.O 5.0T2 268 COMMAND_STATISTICS.CMDTAP.OC.015 1 LINE 1660 7 PAGE UM MTS LIFT JULY 03, 1981 15:06:55 5.0T4 213 SYS.:CMDTAPE.O 0 OBJECT OF (531/14) AND (722/1). 00531/016 COMMAND STATISTICS SYS:CMDFDIR D # SYS.:CMDFDIR D4T2 266 COMMAND_STATISTICS.SYS:CM.D.010 1 LINE ? 1 PAGE UM MTS LIFT JULY 28, 1977 02:18:13 SYS.:CMDFDIR@E 0 DATA FILE, MAINTAINED BY THE CMDTAPE PROGRAM (531/14), WHICH HAS ONE LINE FOR EACH FILE ON A COMMAND STATISTICS TAPE. IT HAS THE EARLIEST AND LATEST TIMES FOR THAT FILE, THE FILE NUMBER, AND THE MOUNT INFORMATION. IT IS ORDERED BY THE EARLIEST TIME. SOME PROGRAMS USE THIS FILE TO DETERMINE WHAT TAPE TO USE, GIVEN A TIME RANGE. 0 Referenced by comments of: 531/14 00531/017 COMMAND STATISTICS CMDERRORS D # SYS:CMDERRORS UM MTS LIFT SYS:CMDERRORS@E 0 LOG FILE FOR CMDTAPE (531/14). 00531/018 COMMAND STATISTICS HASP RECEIPTS D # SYS:HASPRECEIPTS UM MTS LIFT SYS:HASPRECEIPTS@E 0 LOG FILE, USED BY THE CMDTAPE PROGRAM (531/14), WHICH LOGS THE *PRINT* RECEIPT NUMBERS FOR THE PRINTED HASP LOGS PRODUCED BY IT. 0 Referenced by comments of: 531/14 00531/019A COMMAND STATISTICS CMDAREADSECT SA G CMDA COPY:CMDAREADSECT 5.0T2 269 COMMAND_STATISTICS.CMDARE.SA.019 1 LINE 80 4 PAGE UM MTS LIFT JULY 03, 1981 15:06:57 5.0T4 214 COPY:CMDAREADSECT 0 COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD. UPDATED USING THE (531/2) CDUPDATE DECK. 0 Referenced by comments of: 45/1, 46/1, 531/1, 531/7, 531/14, 531/34, 531/36, 540/10, 577/1, 621/2, 621/4, 621/8, 621/10, 655/4, 707/1, 707/2, 718/1, 753/1, 753/3, 787/3, 787/9, 787/11, 787/15, 787/17 1 MON AUG 05/96 18:37:45 Page 298 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/020C COMMAND STATISTICS CMDAREADSECT UC G MTS:CMDSTATUPD(100000) 5.0T2 270 COMMAND_STATISTICS.CMDARE.UC.020 1 LINE 72 4 PAGE UM MTS LIFT AUG. 06, 1981 03:52:22 5.0T4 215 00531/021 COMMAND STATISTICS CHECKTIME SA G S0564 D4T2 VLO FSNAME=COMMAND_STATISTICS.CHECKT.SA.014(1) 269 5.0T2 271 COMMAND_STATISTICS.CHECKT.SA.020 1 LINE 80 5 PAGE UM MTS LIFT JULY 28, 1977 02:20:53 5.0T4 216 0 PROGRAM TO CHECK COMMAND STATISTICS OUTPUT TIMES TO SEE IF SOMETHING IS MISSING OR WHATEVER. IT PRINTS THE TIME/DATE OF THE FIRST AND LAST RECORDS AND OTHER RECORDS IF THE DIFFERENCE FROM THE PREVIOUS RECORD IS AT LEAST 1 SECOND AND IS GREATER THAN 128 TIMES THE AVERAGE OF THE LAST 8 DIFFERENCES, OR IF THE DIFFERENCE IS GREATER THAN 10 MINUTES. IF THE DIFFERENCE IS NEGATIVE, IT DOES THE SAME THING EXCEPT THAT IT USES 16 TIMES THE AVERAGE OF THE LAST 8. IF PAR=M IS GIVEN, IT GOES THROUGH MULTIPLE FILES. IF PAR=S IS GIVEN, IT PRINTS EVERY 128TH RECORD INSTEAD OF MAKING THE ABOVE CHECKS. 00531/022 COMMAND STATISTICS CHECKTIME OC G S0564 D4T2 VLO FSNAME=COMMAND_STATISTICS.CHECKT.OC.015(1) 270 5.0T2 272 COMMAND_STATISTICS.CHECKT.OC.021 1 LINE 80 3 PAGE UM MTS LIFT JULY 28, 1977 02:20:56 5.0T4 217 00531/023 COMMAND STATISTICS CMDXTRACT SF S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.SF.022(1) 357 5.0T2 273 COMMAND_STATISTICS.CMDXTR.SF.022 1 LINE 71 1 PAGE UM MTS LIFT APR. 01, 1979 22:38:18 5.0T4 218 0 PROGRAM TO EXTRACT COMMAND LINES FOR A GIVEN USERID AND TIME RANGE. TAKES STATISTICS INPUT ON SCARDS, PRINTS LINES (WITH TIME,DATE,ID PROJ NO,AND TASK NUMBER) ON 6. 5 (INPUT) AND SPRINT (OUTPUT) SHOULD BE ATTACHED TO TERMINAL. IT WILL ASK QUESTIONS FOR ITS PARAMETERS. 0 Referenced by comments of: 531/25, 531/27 00531/024 COMMAND STATISTICS CMDXTRACT OC S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.OC.023(1) 358 5.0T2 274 COMMAND_STATISTICS.CMDXTR.OC.023 1 LINE 914 2 PAGE UM MTS LIFT APR. 01, 1979 22:38:19 5.0T4 219 00531/025 COMMAND STATISTICS CMDXTRACT3 SF S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.SF.024(1) 359 5.0T2 275 COMMAND_STATISTICS.CMDXTR.SF.024 1 LINE 65 1 PAGE UM MTS LIFT APR. 01, 1979 22:38:19 5.0T4 220 0 PROGRAM TO EXTRACT HASP LOG ITEMS AND OTHER THINGS. ASKS FOR A RECORD TYPE AND A "THING", E.G. AN S8 NUMBER, TO SEARCH FOR. RUN IT LIKE (531/23). 00531/026 COMMAND STATISTICS CMDXTRACT3 OC S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.OC.025(1) 360 5.0T2 276 COMMAND_STATISTICS.CMDXTR.OC.025 1 LINE 778 2 PAGE UM MTS LIFT APR. 01, 1979 22:38:20 5.0T4 221 00531/027 COMMAND STATISTICS CMDXTRACT4 SF S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.SF.026(1) 361 5.0T2 277 COMMAND_STATISTICS.CMDXTR.SF.026 1 LINE 71 2 PAGE UM MTS LIFT APR. 01, 1979 22:38:21 5.0T4 222 0 EXTRACTS TYPES 1 THROUGH 4 FOR A GIVEN TIME INTERVAL AND OPTIONALLY FOR A GIVEN USERID. RUN LIKE (531/23). 1 MON AUG 05/96 18:37:45 Page 299 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/028 COMMAND STATISTICS CMDXTRACT4 OC S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.CMDXTR.OC.027(1) 362 5.0T2 278 COMMAND_STATISTICS.CMDXTR.OC.027 1 LINE 954 2 PAGE UM MTS LIFT APR. 01, 1979 22:38:21 5.0T4 223 00531/029 COMMAND STATISTICS PROCESSING SF S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.PROCES.SF.028(1) 363 5.0T2 279 COMMAND_STATISTICS.PROCES.SF.028 1 LINE 75 9 PAGE UM MTS LIFT APR. 01, 1979 22:38:22 5.0T4 224 0 PROGRAM TO READ AND GENERATE VARIOUS STATISTICS ON COMMAND DATA (USAGE OF VARIOUS COMMANDS FOR VARIOUS CATEGORIES OF USERS, AVERAGE LENGTH OF COMMANDS AND COMMAND NAMES,USAGE OF ABBREVIATIONS,...) SCARDS-DATA IN 6 -PRINT OUT 5 -PROMPT INPUT SPRINT-PROMPT OUTPUT (ASKS FOR NUMBER OF FILES TO PROCESS) 0 Referenced by comments of: 531/31 00531/030 COMMAND STATISTICS PROCESSING OC S1319 D4.2T1 VLO FSNAME=COMMAND_STATISTICS.PROCES.OC.029(1) 364 5.0T2 280 COMMAND_STATISTICS.PROCES.OC.029 1 LINE 20186 11 PAGE UM MTS LIFT APR. 01, 1979 22:38:23 5.0T4 225 00531/031C COMMAND STATISTICS PROCESSING SF DWB:CMDPROC2(1,999) 5.0T2 281 COMMAND_STATISTICS.PROCES.SF.030 1 LINE 106 9 PAGE UM MTS LIFT JULY 03, 1981 15:07:05 5.0T4 226 0 THIS IS A MODIFIED VERSION OF (531/29), MODIFIED TO ACCUMULATE SET OPTIONS BY CLS AND TO ALLOW CHECKPOINTING AND RESTORING OF DATA WITH REMOVAL OF SOME OTHER STUFF. 0 Referenced by comments of: 531/38 00531/032C COMMAND STATISTICS PROCESSING OC DWB:CMDPROC2(1000) 5.0T2 282 COMMAND_STATISTICS.PROCES.OC.031 1 LINE 20398 18 PAGE UM MTS LIFT JULY 03, 1981 15:07:11 5.0T4 227 00531/033 COMMAND STATISTICS SCANCMD SA # (OBSOLETE) D3.2T1 435 COMMAND_STATISTICS.SCANCMD.SA.22 1 LINE 80 7 PAGE UM MTS LIFT MAR. 21, 1975 01:49:37 00531/034A COMMAND STATISTICS SELECTCMD SA G SELC MTS:SELECTCMD(1,999) 5.0T2 283 COMMAND_STATISTICS.SELECT.SA.033 1 LINE 80 6 PAGE UM MTS LIFT JULY 03, 1981 15:07:16 5.0T4 228 MTS.:SELECTCMD 0 PROGRAM TO RETRIEVE DATA FROM CMDSTAT TAPES USING DIRECTORY BUILT BY CMDTAPE (531/14). CALLS READBFR ROUTINE (709). COPIES COPY:CMDAREADSECT (531/19). 0 Referenced by comments of: 709/1 1 MON AUG 05/96 18:37:45 Page 300 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/035A COMMAND STATISTICS SELECTCMD OC G MTS:SELECTCMD(1000) 5.0T2 284 COMMAND_STATISTICS.SELECT.OC.034 1 LINE 1450 3 PAGE UM MTS LIFT JULY 03, 1981 15:07:17 5.0T4 229 00531/036 COMMAND STATISTICS CMDUTIL SA G S1430 4.3T1 VLO FSNAME=COMMAND_STATISTICS.CMDUTI.SA.033(1) 454 5.0T2 285 COMMAND_STATISTICS.CMDUTI.SA.035 1 LINE 80 9 PAGE UM MTS LIFT APR. 05, 1980 18:06:37 5.0T4 230 0 PROGRAM TO PRINT OR COPY (OR BOTH) COMMAND STATISTICS RECORDS BASED ON RECORD TYPES. THIS PROGRAM REPLACES AND EXTENDS CMDAREAPRINT. IF NO PARAMETER IS GIVEN, IT WILL PROMPT FOR PRINT|COPY|BOTH AND FOR THE RECORD TYPES. CURRENTLY, RECORDS WHICH ARE NOT COMMAND STATISTICS (I.E. NOT TYPES 1, 2, 3, OR 5) ARE JUST PRINTED AS BCD. THIS IS FINE FOR THE HASP AND CONSOLE LOGS, BUT NOT FOR OTHERS. ROUTINES TO FORMAT OTHER RECORD TYPES FOR PRINTING CAN BE INCLUDED WHEN WRITTEN. IF PAR=COUNT IS GIVEN, THEN IT WILL NEITHER COPY NOR PRINT, BUT INSTEAD SIMPLY REPORT THE NUMBER OF RECORDS OF EACH TYPE FOUND. IT READS CMDSTAT DATA FROM SCARDS AND PRINTS OUTPUT ON SPRINT. IF THE COPY FUNCTION IS SPECIFIED, THEN RECORD TYPE N IS WRITTEN ON MTS I/O UNIT N. COPIES COPY:CMDAREADSECT (531/19). 00531/037 COMMAND STATISTICS CMDUTIL OC G S1430 4.3T1 VLO FSNAME=COMMAND_STATISTICS.CMDUTI.OC.034(1) 455 5.0T2 286 COMMAND_STATISTICS.CMDUTI.OC.036 1 LINE 80 4 PAGE UM MTS LIFT APR. 05, 1980 18:06:40 5.0T4 231 00531/038C COMMAND STATISTICS CMDUTIL P S0683 OGDEN FSNAME=SYS:CMD1980PRINT 5.0T2 287 COMMAND_STATISTICS.CMDUTI.P.037 1 LINE 139 348 PAGE UM MTS LIFT APR. 03, 1981 16:12:20 5.0T4 232 0 THIS IS THE OUTPUT OF (531/31) FOR ALL OF JANUARY 1980. (JAN. 1980 WAS 8052208 RECORDS.) 00531/039C COMMAND STATISTICS CMDUTIL D S0683 OGDEN FSNAME=SYS:CMD1980CHKP 5.0T2 288 COMMAND_STATISTICS.CMDUTI.D.038 1 LINE 32764 781 PAGE UM MTS LIFT APR. 03, 1981 16:10:13 5.0T4 233 0 THIS IS THE CHECKPOINT FILE FOR ALL OF JANUARY 1980. 00531/040 COMMAND STATISTICS CARE & FEEDING WF DIST:CS.CF 5.0T2 289 COMMAND_STATISTICS.CARE_&.WF.039 1 LINE 112 3 PAGE UM MTS LIFT JULY 03, 1981 15:14:59 5.0T4 234 0 WRITEUP DESCRIBING NORMAL BEHAVIOR OF COMMAND STATISTICS PICKUP AND WHAT TO DO WHEN ABNORMALITIES OCCUR. THE CMDPIKUP PROGRAM (531/7) HAS BEEN CHANGED TO ATTEMPT TO REPAIR ANY PROBLEMS (BUSY ENTRIES) FOUND WHEN IT FIRST STARTS UP. THUS SIMPLE CAUSES OF CONSTIPATION SUCH AS DESCRIBED IN THE THIS WRITEUP SHOULD NO LONGER OCCUR. HOWEVER, MORE COMPLEX CASES, SUCH AS A FILE BEING LEFT UNREADABLE DUE TO A DISK ERROR, WILL STILL REQUIRE THE CORRECTIVE ACTIONS DESCRIBED HEREIN. 0 Referenced by comments of: 531/7 1 MON AUG 05/96 18:37:45 Page 301 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00532/001A *PLOTSEE SA G GRAF:PLOTSEE.S 5.0T2 290 PLOTSEE..SA.001 1 LINE 95 16 PAGE UM BURLING JULY 03, 1981 15:14:59 5.0T4 235 0 PLOT PREVIEWING PROGRAM. USER OF ANY *IG-SUPPORTED DISPLAY CAN VIEW PDS PLOT FILES PRODUCED VIA *PLOTSYS. HAS "WINDOWING" FACILITY. USES PLOT SYSTEM ROUTINE PSYM (615/5) ASSEMBLED WITH THE &WHAT SETC SYMBOL SET TO 'IG'. 00532/002A *PLOTSEE OE G *PLOTSEE 5.0T2 291 PLOTSEE..OE.002 1 LINE 7512 10 PAGE UM BURLING JULY 03, 1981 15:15:10 5.0T4 236 *PLOTSEE 0 CONTAINS A "$CONTINUE WITH *IG" LINE. 00533/001 *FRISK SA # (OBSOLETE) D4T2 284 FRISK.MAIN.SA.001 1 LINE 72 44 PAGE UBC JULY 18, 1977 15:53:27 0 Obsoleted by *FTNTIDY (727). 0 Referenced by comments of: 727/1 00534/001 TMTS FAKE JOB-PGM SA G MTS:TMTSFAKE(1,999) 5.0T2 292 TMTS.FAKE_JOB-PGM.SA.001 1 LINE 59 1 PAGE UM MTA JULY 03, 1981 15:15:11 5.0T4 237 MTS.:TMTSFAKE 0 DUMMY JOB PROGRAM POINTED TO BY TMTS JOB LIST ENTRY, PART OF JOBLIST (003). 00534/002 TMTS FAKE JOB-PGM OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00534/003A TMTS LOADMTS SA G TMTS:LOADMTS(2000) 5.0T2 293 TMTS.LOADMTS.SA.003 1 LINE 71 9 PAGE UM JWS JULY 03, 1981 15:15:12 5.0T4 238 TMTS:LOADMTS 0 PROGRAM TO LOAD A TEST VERSION OF MTS AND FRIENDS INTO SHARED VM AND PLANT THE ENTRY POINT IN THE TMTS JOB LIST ENTRY. I/O UNIT USAGE: GUSER - FOR USER INPUT SERCOM - FOR PROMPTING SPRINT - MAP, MESSAGES, AND EVERYTHING WRITTEN ON SERCOM TWO PARAMETERS MAY BE GIVEN: PAR=TEST (THE DEFAULT) MEANS LOAD THE TEST SYSTEM INTO PRIVATE VM AND DON'T CHANGE THE ENTRY POINT IN THE TMTS JOB LIST, PAR=NOTEST MEANS LOAD THE TEST SYSTEM INTO SHARED VM AND CHANGE THE TMTS JOB LIST ENTRY POINT. THE PROGRAM FINDS THE FIRST UNUSED ADDRESS IN SHARED VM USING ENDSEG2 AND ASKS IF IT IS OK TO START LOADING THERE. REPLY "OK" OR WITH A NEW ADDRESS IN SHARED VM. THE PROGRAM PROMPTS FOR THE NAME OF A FILE TO LOAD FROM, WHICH SHOULD CONTAIN THOSE PARTS OF THE SYSTEM TO BE TESTED, BUT MUST CONTAIN AT LEAST THE FOLLOWING: MTS, MTS SUBRS (GETSPACE/FREESPAC, GUINFO/CUINFO, PLIMIT, LLXU, TIMER, CMDS, RSF, 1 MON AUG 05/96 18:37:45 Page 302 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 GATE, USUB, FSUB, DSRS, DSRI), COST, CFDUB, SYSDEFS, GETRATES, RATEVEC, RATENBR, DYSSUB, CHARGE, STDDMP, MSG, AND ENDSEG2. GATE SHOULD BE ASSEMBLED WITH &TMTS SET TO 1. OTHER COMPONENTS MAY ALSO BE INCLUDED, BUT NEITHER VOLGET (482/4) NOR TABLRTN (482/34) SHOULD BE INCLUDED. COPIES *CNFGINFODSECT (654). 00534/004A TMTS LOADMTS OC G TMTS:LOADMTS(1,1999) 5.0T2 294 TMTS.LOADMTS.OC.004 1 LINE 3731 4 PAGE UM MTA JULY 03, 1981 15:15:14 5.0T4 239 00534/005A TMTS TMTSLIB OL O TMTS:TMTSLIB 5.0T2 295 TMTS.TMTSLIB.OL.005 1 LINE 32767 103 PAGE UM JWS JULY 03, 1981 15:15:15 5.0T4 240 TMTS:TMTSLIB 0 THIS IS A SPECIAL (AND NOT CURRENT) VERSION OF *LIBRARY WHICH INCLUDES ADDITIONAL SUBROUTINES WHICH NORMALLY ARE IN SHARED VM AND NOT PART OF *LIBRARY. THE TEST SYSTEM SHOULD REFERENCE THIS FILE AND NOT *LIBRARY. THE FOLLOWING COMMAND WILL CAUSE THIS TO BE DONE: $SET LIBSRCH=TMTS:TMTSLIB *LIBRARY=OFF 0 Referenced by comments of: 534/6 00534/006 TMTS POSTIPL C G TMTS:POSTIPL 5.0T2 296 TMTS.POSTIPL.C.006 1 LINE 82 1 PAGE UM JWS JULY 03, 1981 15:15:21 5.0T4 241 TMTS:POSTIPL 0 LINES 1 TO 9 OF THIS FILE CONTAIN COMMANDS TO RUN PISTLE TO LOAD SEG2:TIME (360) INTO SHARED VM AND DEFINE ITS SYMBOLS IN THE TMTS LCSYMBOL. THIS FILE ALSO CONTAINS THE SOURCE, AT LINE 10, AND OBJECT, AT LINE 1000, FOR A SMALL FORTRAN PROGRAM WHICH CALLS THE TIME SUBROUTINE WITH PROT=OFF TO CAUSE IT TO INITIALIZE ITSELF. IT ALSO CONTAINS $CONTINUE WITH TMTS:TMTSLIB (534/5) AND $CONTINUE WITH COPY:SYSDEFS (579/3) RECORDS. THE PROCEDURE IS TO FIRST LOAD TMTS, START A TMTS TASK, SIGNON, AND $SOURCE TO THIS COMMAND FILE. 00535/001 CLS INTERFACE CLS DRIVER PGM SA O DRIV W059:MTSSOU 5.0T2 297 CLS_INTERFACE.CLS_DRIVER.SA.001 1 LINE 80 49 PAGE UM VALERIO JULY 03, 1981 15:15:21 5.0T4 242 0 PROGRAM TO FAKE AN MTS/CLS INTERFACE FOR DEBUGGING A NEW CLS. SINCE IT EXECUTES AS A NORMAL PROGRAM, SDS CAN BE USED IN THE DEBUGGING. ASSEMBLE USING COPY:MTS.MACROS (344/3). 00535/002 CLS INTERFACE CLS DRIVER PGM OC O W059:MTS.O 5.0T2 298 CLS_INTERFACE.CLS_DRIVER.OC.002 1 LINE 80 9 PAGE UM VALERIO JULY 03, 1981 15:15:25 5.0T4 243 00535/003A CLS INTERFACE GOM T/V DSECT SG G COPY:CLSTV.SG 5.0T4 335 CLS_INTERFACE.GOM_T/V_DSE.SG.003 1 LINE 82 3 PAGE UM MTS OGDEN AUG. 09, 1981 23:05:13 5.0T10 239 COPY:CLSTV.SG 0 THIS IS THE GOM EQUIVALENT OF THE CLSTV MACRO IN MTS.MACROS (344/3). 1 MON AUG 05/96 18:37:45 Page 303 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 659/80, 659/83 00536/001 *BRAILLE # (OBSOLETE) D3T4 199 BRAILLE..SA.1 1 LINE 73 21 PAGE UM JULY 30, 1973 03:34.19 00538/001 *COBOLU EXECUTOR SA G COBU MTA:COBOLU(1,999) 5.0T2 299 COBOLU.EXECUTOR.SA.001 1 LINE 80 4 PAGE UM H YOUNG JULY 03, 1981 15:15:27 5.0T4 244 0 THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC. 00538/002 *COBOLU EXECUTOR OE G *COBOLU 5.0T2 300 COBOLU.EXECUTOR.OE.002 1 LINE 746 1 PAGE UM H YOUNG JULY 03, 1981 15:15:28 5.0T4 245 *COBOLU 00538/003 *COBOLU BLDLIN D MTA:COBOL.BLDLIN 5.0T2 301 COBOLU.BLDLIN.D.003 1 LINE 44 1 PAGE UM H YOUNG JULY 03, 1981 15:15:29 5.0T4 246 0 SCARDS INPUT TO CREBLDL (545/42) TO BUILD (538/4). 00538/004 *COBOLU BLDL D ETC:COBOL.BLDL 5.0T2 302 COBOLU.BLDL.D.004 1 SEQ 238 1 PAGE UM H YOUNG JULY 03, 1981 15:15:30 5.0T4 247 ETC.:COBOL.BLDL 0 Referenced by comments of: 538/3 00538/005 *COBOLU IKFCBL00 OE O ETC:IKFCBL00 5.0T2 303 COBOLU.IKFCBL00.OE.005 1 SEQ 1024 4 PAGE UM H YOUNG JULY 03, 1981 15:15:31 5.0T4 248 ETC.:IKFCBL00 0 COMPONENTS (538/5) THROUGH (538/16) ARE THE UNMODIFIED OS/360 OBJECT FOR THE ANSI COBOL COMPILER RELEASE 21.6, VERSION 2. 0 Referenced by comments of: 538/5 00538/006 *COBOLU IKFCBL01 OE O ETC:IKFCBL01 5.0T2 304 COBOLU.IKFCBL01.OE.006 1 SEQ 6144 5 PAGE UM H YOUNG JULY 03, 1981 15:15:31 5.0T4 249 ETC.:IKFCBL01 0 OBJECT HAS REP CARDS TO CHANGE DEFAULT PAR FIELD, AMONG OTHER THINGS. 00538/007 *COBOLU IKFCBL1B OE O ETC:IKFCBL1B 5.0T2 305 COBOLU.IKFCBL1B.OE.007 1 SEQ 1024 7 PAGE UM H YOUNG JULY 03, 1981 15:15:32 5.0T4 250 ETC.:IKFCBL1B 00538/008 *COBOLU IKFCBL10 OE O ETC:IKFCBL10 5.0T2 306 COBOLU.IKFCBL10.OE.008 1 SEQ 1024 12 PAGE UM H YOUNG JULY 03, 1981 15:15:33 5.0T4 251 ETC.:IKFCBL10 1 MON AUG 05/96 18:37:45 Page 304 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00538/009 *COBOLU IKFCBL20 OE O ETC:IKFCBL20 5.0T2 307 COBOLU.IKFCBL20.OE.009 1 SEQ 1024 13 PAGE UM H YOUNG JULY 03, 1981 15:15:34 5.0T4 252 ETC.:IKFCBL20 00538/010 *COBOLU IKFCBL30 OE O ETC:IKFCBL30 5.0T2 308 COBOLU.IKFCBL30.OE.010 1 SEQ 1024 4 PAGE UM H YOUNG JULY 03, 1981 15:15:35 5.0T4 253 ETC.:IKFCBL30 00538/011 *COBOLU IKFCBL40 OE O ETC:IKFCBL40 5.0T2 309 COBOLU.IKFCBL40.OE.011 1 SEQ 1024 11 PAGE UM H YOUNG JULY 03, 1981 15:15:36 5.0T4 254 ETC.:IKFCBL40 00538/012 *COBOLU IKFCBL50 OE O ETC:IKFCBL50 5.0T2 310 COBOLU.IKFCBL50.OE.012 1 SEQ 1024 9 PAGE UM H YOUNG JULY 03, 1981 15:15:37 5.0T4 255 ETC.:IKFCBL50 00538/013 *COBOLU IKFCBL51 OE O ETC:IKFCBL51 5.0T2 311 COBOLU.IKFCBL51.OE.013 1 SEQ 1024 10 PAGE UM H YOUNG JULY 03, 1981 15:15:37 5.0T4 256 ETC.:IKFCBL51 00538/014 *COBOLU IKFCBL6A OE O ETC:IKFCBL6A 5.0T2 312 COBOLU.IKFCBL6A.OE.014 1 SEQ 1024 1 PAGE UM H YOUNG JULY 03, 1981 15:15:38 5.0T4 257 ETC.:IKFCBL6A 00538/015 *COBOLU IKFCBL60 OE O ETC:IKFCBL60 5.0T2 313 COBOLU.IKFCBL60.OE.015 1 SEQ 1024 8 PAGE UM H YOUNG JULY 03, 1981 15:15:39 5.0T4 258 ETC.:IKFCBL60 00538/016 *COBOLU IKFCBL70 OE O ETC:IKFCBL70 5.0T2 314 COBOLU.IKFCBL70.OE.016 1 SEQ 1024 13 PAGE UM H YOUNG JULY 03, 1981 15:15:40 5.0T4 259 ETC.:IKFCBL70 0 Referenced by comments of: 538/5 00538/017A *COBOLU *COBLIB OL O *COBLIB 5.0T2 315 COBOLU.*COBLIB.OL.017 1 SEQ 1368 9 PAGE UM H YOUNG JULY 03, 1981 15:15:41 5.0T4 260 *COBLIB 0 OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY. NOTE: *GENLIB COMPLAINS ABOUT THIS (MULTIPLY DEFINED SYMBOLS). IGNORE IT. 00538/018 *COBOLU TEST PGM #1 SC MTA:COBTEST 5.0T2 316 COBOLU.TEST_PGM_#1.SC.018 1 LINE 67 1 PAGE UM H YOUNG JULY 03, 1981 15:15:42 5.0T4 261 0 TEST PROGRAM. 00538/019 *COBOLU TEST PGM #2 SC MTA:COBTEST2 5.0T2 317 COBOLU.TEST_PGM_#2.SC.019 1 LINE 73 4 PAGE UM H YOUNG JULY 03, 1981 15:15:42 5.0T4 262 0 ANOTHER TEST PROGRAM. 1 MON AUG 05/96 18:37:45 Page 305 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00538/020 *COBOLU TEST PGM #3 SC MTA:COBTEST3 5.0T2 318 COBOLU.TEST_PGM_#3.SC.020 1 LINE 59 1 PAGE UM H YOUNG JULY 03, 1981 15:15:43 5.0T4 263 0 TESTS THE SORT VERB. 00539/001A TIMNTRP D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=TIMT 5.0T4 336 TIMNTRP.D5.0_MASTER.SA.001 1 LINE 80 26 PAGE UM MTS MTA AUG. 09, 1981 23:05:30 5.0T10 240 0 MTS TIMER INTERRUPT ROUTINES (USER CALLABLE): SETIME, RSTIME, GETIME, AND TIMNTRP. ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND COPY:FILE.MACROS (482/45). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 0 Referenced by comments of: 42/2 00539/002A TIMNTRP UPDATE UC G MTS:TIMTUPD 5.0T4 337 TIMNTRP.UPDATE.UC.002 1 LINE 79 7 PAGE UM MTS MTA AUG. 09, 1981 23:05:31 5.0T10 241 0 UPDATE TO D4.0 TO PRODUCE D5.0 SOURCE. UPDATE USES $CONTROL *IN* POSN=TIMT. 00539/003A TIMNTRP OC G # (PART OF RESIDENT SYSTEM) UM MTS MTA 0 Object part of Resident System (468) 00539/004A TIMNTRP L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=TIMT.LIST 5.0T4 338 TIMNTRP..L.004 1 LINE 133 71 PAGE UM MTS MTA AUG. 09, 1981 23:05:57 5.0T10 242 00539/005 TIMNTRP TEST PROGRAM SA O S0564 D4T2 VLO FSNAME=TIMNTRP.TEST_PROGRAM.SA.007(1) 323 5.0T2 319 TIMNTRP.TEST_PROGRAM.SA.005 1 LINE 80 6 PAGE UM MTS MTA JULY 28, 1977 02:37:30 5.0T4 264 0 DRIVER FOR TESTING TIMER ROUTINES. 00539/006 TIMNTRP TEST PROGRAM OC O S0564 D4T2 VLO FSNAME=TIMNTRP.TEST_PROGRAM.OC.008(1) 324 5.0T2 320 TIMNTRP.TEST_PROGRAM.OC.006 1 LINE 80 3 PAGE UM MTS MTA JULY 28, 1977 02:37:32 5.0T4 265 0 Referenced by comments of: 539/7 00539/007C TIMNTRP TEST PGM INPUT D O S0938 FSAVE2 VLO FSNAME=TESTTI.INPUT 5.0T2 321 TIMNTRP.TEST_PGM_INPUT.D.007 1 LINE 75 1 PAGE UM MTS MTA MAY 06, 1981 02:53:31 5.0T4 266 0 Input to (539/6) to test real time waits, intended to test SDS's (600) handling of timer interrupts. 1 MON AUG 05/96 18:37:45 Page 306 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00540/001A SYSTEM WATCHERS PDPBUG SA G MTA:PDPBUG(1000) 5.0T4 339 SYSTEM_WATCHERS.PDPBUG.SA.001 1 LINE 68 4 PAGE UM MTA AUG. 09, 1981 23:05:59 5.0T10 243 MTA.:PDPBUG 0 THIS COMPONENT CONSISTS OF PROGRAMS WHICH MONITOR THE ACTIVITY OF VARIOUS PARTS OF THE SYSTEM. PDPBUG IS A PROGRAM TO PRINT STATISTICS ABOUT SYSTEM PAGING. COMMENTS IN THE SOURCE CODE DESCRIBE THE OUTPUT. MUST BE RE-ASSEMBLED IF THE PDP IS RE-ASSEMBLED. THE ITEMS TO BE CHANGED ARE DOCUMENTED IN SOURCE COMMENTS. COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654). ASSEMBLE WITH COPY:SETPARM (653). 00540/002A SYSTEM WATCHERS PDPBUG OC G MTA:PDPBUG(1,999) 5.0T4 340 SYSTEM_WATCHERS.PDPBUG.OC.002 1 LINE 80 3 PAGE UM MTA AUG. 09, 1981 23:06:02 5.0T10 244 00540/003A SYSTEM WATCHERS PRNTCNTS SA G MTA:PRNTCNTS(1000) 5.0T4 341 SYSTEM_WATCHERS.PRNTCNTS.SA.003 1 LINE 74 12 PAGE UM MTA AUG. 21, 1981 06:43:02 5.0T10 245 MTA.:PRNTCNTS 0 PROGRAM TO PRINT ALL SORTS OF COUNTS AND TIMES FROM THE PDP (044) AND SUPERVISOR (045). IT MUST BE REASSEMBLED WHENEVER EITHER THE PDP OR UMMPS CHANGES BECAUSE OF THE MANY SYMBOLS OF THE FORM "DISPN EQU X" WHICH GIVE THE LOCATIONS OF THE COUNTS IN THE PDP AND SUPERVISOR. ASSEMBLE USING *SYSMAC. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162). 0 Referenced by comments of: 604/1 00540/004A SYSTEM WATCHERS PRNTCNTS OC G MTA:PRNTCNTS(1,999) 5.0T4 342 SYSTEM_WATCHERS.PRNTCNTS.OC.004 1 LINE 80 9 PAGE UM MTA AUG. 21, 1981 06:43:16 5.0T10 246 00540/005 SYSTEM WATCHERS HOGS CMDS C *HGS 5.0T4 343 SYSTEM_WATCHERS.HOGS_CMDS.C.005 1 LINE 40 1 PAGE UM MTA AUG. 09, 1981 23:06:24 5.0T10 247 *HGS 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE HOGS PROGRAM (540/6) TO FIND OUT WHICH JOBS ARE USING THE MOST CPU TIME, VM, AND DRUM READS. 00540/006A SYSTEM WATCHERS HOGS SA G MTA:HOGS(1000) 5.0T4 344 SYSTEM_WATCHERS.HOGS.SA.006 1 LINE 73 4 PAGE UM MTA AUG. 09, 1981 23:06:24 5.0T10 248 MTA.:HOGS 0 PROGRAM TO FIND THE JOBS WHICH ARE USING THE MOST CPU TIME, VM, AND DRUM READS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 540/5 00540/007A SYSTEM WATCHERS HOGS OC G MTA:HOGS(1,999) 5.0T4 345 SYSTEM_WATCHERS.HOGS.OC.007 1 LINE 80 3 PAGE UM MTA AUG. 09, 1981 23:06:26 5.0T10 249 1 MON AUG 05/96 18:37:45 Page 307 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00540/008A SYSTEM WATCHERS LOADCLAS SA G MTS:LOADCLAS(1000) 5.0T4 346 SYSTEM_WATCHERS.LOADCLAS.SA.008 1 LINE 73 7 PAGE UM MTA AUG. 09, 1981 23:06:27 5.0T10 250 0 PROGRAM TO CALL TASKSTAT (647) FOR EVERY JOB IN THE SYSTEM EVERY 30 SECONDS AND SUMMARIZE THE RESULTS. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MISC.MACROS (728). 0 Referenced by comments of: 400/1, 647/1 00540/009A SYSTEM WATCHERS LOADCLAS OC G MTS:LOADCLAS(1,999) 5.0T4 347 SYSTEM_WATCHERS.LOADCLAS.OC.009 1 LINE 80 5 PAGE UM MTA AUG. 09, 1981 23:06:31 5.0T10 251 MTS:LOADCLAS 00540/010A SYSTEM WATCHERS DBJP SA G MTS:DBJP(1000) 5.0T4 348 SYSTEM_WATCHERS.DBJP.SA.010 1 LINE 73 4 PAGE UM OGDEN AUG. 09, 1981 23:06:34 5.0T10 252 MTS.:DBJP 0 PROGRAM TO DISPLAY BIG JOB PARAMETERS (AND OTHER STUFF). EVERY 20 SECONDS IT PRINTS STATISTICS RELATING TO THE SYSTEM LOAD. IF SCARDS IS EXPLICITLY ASSIGNED, THEN TYPE 8 CMDSTAT RECORDS GENERATED BY SSRTN (413) ARE USED TO GENERATE THE STATISTICS. OTHERWISE, THE INCORE JOBSTA VECTOR (413/7) IS USED AS THE SOURCE OF INFORMATION. DBJP CAN ALSO BE USED TO TEST NEW VERSION OF BJPMOD (650) BY CONCATENATING DBJP TO THE NEW BJPMOD OBJECT (BJPMOD MUST PRECEDE DBJP). COPIES COPY:GLOBALS (1026/3), COPY:JOBSTA (413/9), COPY:BJPDSCT (650/3), COPY:CMDAREADSECT (531/19), *GDINFODSECT (594), AND *CNFGINFODSECT (654). 00540/011A SYSTEM WATCHERS DBJP OC G MTS:DBJP(1,999) 5.0T4 349 SYSTEM_WATCHERS.DBJP.OC.011 1 LINE 1818 3 PAGE UM OGDEN AUG. 09, 1981 23:06:37 5.0T10 253 00540/012A SYSTEM WATCHERS DPBJ SA G MTS:DPBJ(1000) 5.0T4 350 SYSTEM_WATCHERS.DPBJ.SA.012 1 LINE 73 3 PAGE UM MTA AUG. 09, 1981 23:06:38 5.0T10 254 MTS:DPBJ 0 EVERY 20 SECONDS, THIS PROGRAM PRINTS THE NUMBER OF JOBS, IN EACH OF 4 CATEGORIES, THAT HAVE USED ANY CPU TIME IN THE PREVIOUS 20 SECONDS. THE CATEGORIES ARE DETERMINED BY WHETHER THE JOB IS PAGING BOUND AND WHETHER IT IS OVER THE BIG JOB THRESHOLD, "BIGJTH". COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 00540/013A SYSTEM WATCHERS DPBJ OC G MTS:DPBJ(1,999) 5.0T4 351 SYSTEM_WATCHERS.DPBJ.OC.013 1 LINE 1268 2 PAGE UM MTA AUG. 09, 1981 23:06:40 5.0T10 255 00540/014A SYSTEM WATCHERS DRUMSTAT SA O MTA:DRUMSTAT(1000) 5.0T4 352 SYSTEM_WATCHERS.DRUMSTAT.SA.014 1 LINE 72 3 PAGE UM MTA AUG. 09, 1981 23:06:41 5.0T10 256 MTA.:DRUMSTAT 0 EVERY 30 SECONDS, THIS PROGRAM PRINTS DRUMIN, DRUMOUT, DISKIN, DISKOUT, LOOPS, NRP (NUMBER OF RELEASED PAGES), SKPREAD (NUMBER OF READS SKIPPED TO WAIT FOR MORE WORK), NCP (NUMBER OF CHANNEL PROGRAMS), NWPD (NUMBER OF WRITE PAGES DISCARDED, I.E. UNCHANGED), NGWP (NUMBER OF PAGES FROM GETWP), NOXACNT (NUMBER OF PAGES ON PIQ WITH NO EXTERNAL ADDRESS), PI/LOOP (PAGE INS PER LOOP), PI/CP, T/LOOP (TIME 1 MON AUG 05/96 18:37:45 Page 308 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PER LOOP), T/PI, T/CP, AND %SS (PERCENT SUPERVISOR STATE) FOR THE PDP. 00540/015A SYSTEM WATCHERS DRUMSTAT OC O MTA:DRUMSTAT(1,999) 5.0T4 353 SYSTEM_WATCHERS.DRUMSTAT.OC.015 1 LINE 80 2 PAGE UM MTA AUG. 09, 1981 23:06:42 5.0T10 257 00540/016A SYSTEM WATCHERS GTUNIT CMDS C *GTU 5.0T4 354 SYSTEM_WATCHERS.GTUNIT_CM.C.016 1 LINE 29 1 PAGE UM OGDEN AUG. 09, 1981 23:06:44 5.0T10 258 *GTU 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE GTUNIT PROGRAM (540/17) AND (540/18) TO PRINT THE NUMBER OF GTUNIT WAITS FOR EACH PUBLIC DISK VOLUME EVERY 20 SECONDS. 00540/017 SYSTEM WATCHERS GTUNIT MAIN SG G S1143 D4.1T1 VLO FSNAME=SYSTEM_WATCHERS.GTUNIT_MA.SG.015(1) 305 5.0T4 355 SYSTEM_WATCHERS.GTUNIT_MA.SG.017 1 LINE 44 1 PAGE UM OGDEN NOV. 10, 1977 20:40:15 5.0T10 259 0 MAIN PROGRAM TO CALL THE GTUNIT SUBR (540/18) EVERY 20 SECONDS. CALLS THE PAR (687/1) AND ATRAP (689/1) SUBROUTINES. 0 Referenced by comments of: 540/16, 540/19 00540/018 SYSTEM WATCHERS GTUNIT SUBR SA G S1143 D4.1T1 VLO FSNAME=SYSTEM_WATCHERS.GTUNIT_SU.SA.016(1) 306 5.0T4 356 SYSTEM_WATCHERS.GTUNIT_SU.SA.018 1 LINE 80 4 PAGE UM OGDEN FEB. 03, 1978 15:16:59 5.0T10 260 0 SUBROUTINE TO COUNT THE NUMBER OF GTUNIT WAITS OUTSTANDING FOR EACH PUBLIC DISK VOLUME, AND PRINT THE NON-ZERO RESULTS ON SPRINT. CALLS TASKSTAT (647). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 540/16, 540/17, 540/19, 647/1 00540/019A SYSTEM WATCHERS GTUNIT OE G FILE:GTUNIT 5.0T4 357 SYSTEM_WATCHERS.GTUNIT.OE.019 1 LINE 652 3 PAGE UM OGDEN AUG. 09, 1981 23:14:20 5.0T10 261 FILE:GTUNIT 0 OBJECT FOR (540/17) AND (540/18). 00540/020 SYSTEM WATCHERS TTPRINT SA G MTA:TTPRINT.S 5.0T4 358 SYSTEM_WATCHERS.TTPRINT.SA.020 1 LINE 71 3 PAGE UM MTA AUG. 09, 1981 23:14:22 5.0T10 262 MTA.:TTPRINT.S 0 PROGRAM TO PRINT THE SUPERVISOR TRACE TABLE AT THE TIME IT IS RUN, I.E., FROM MEMORY. 00540/021A SYSTEM WATCHERS TTPRINT OE G MTA:TTPRINT 5.0T4 359 SYSTEM_WATCHERS.TTPRINT.OE.021 1 LINE 3016 3 PAGE UM MTA AUG. 09, 1981 23:14:23 5.0T10 263 MTA.:TTPRINT 1 MON AUG 05/96 18:37:45 Page 309 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00540/022 SYSTEM WATCHERS UPTIME CMDS C *LRL 5.0T4 360 SYSTEM_WATCHERS.UPTIME_CM.C.022 1 LINE 8 1 PAGE UM MTA AUG. 09, 1981 23:14:25 5.0T10 264 *LRL 0 COMMAND FILE USED BY THE OPERATORS TO PRINT THE REASON FOR THE LAST SYSTEM RELOAD AND THE ELAPSED TIME SINCE THAT RELOAD. INVOKED BY ENTERING "MTS *LRL" ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 540/23 00540/023 SYSTEM WATCHERS UPTIME CMDS C SYS:LRL 5.0T4 361 SYSTEM_WATCHERS.UPTIME_CM.C.023 1 LINE 29 1 PAGE UM MTA AUG. 09, 1981 23:14:26 5.0T10 265 SYS.:LRL 0 COMMAND FILE SOURCED TO BY *LRL (540/22) TO GET THE REASON FOR THE LAST RELOAD AND RUN THE UPTIME PROGRAM (540/24). 00540/024 SYSTEM WATCHERS UPTIME PGM SA G MTA:UPTIME(1000) 5.0T4 362 SYSTEM_WATCHERS.UPTIME_PG.SA.024 1 LINE 72 1 PAGE UM MTA AUG. 09, 1981 23:14:27 5.0T10 266 MTA.:UPTIME 0 PROGRAM TO PRINT THE ELAPSED TIME SINCE THE LAST IPL. NOTE: THIS PROGRAM ONLY WORKS ON A 370 OR 470. 0 Referenced by comments of: 540/23, 713/1 00540/025 SYSTEM WATCHERS UPTIME PGM OC G MTA:UPTIME(1,999) 5.0T4 363 SYSTEM_WATCHERS.UPTIME_PG.OC.025 1 LINE 80 1 PAGE UM MTA AUG. 09, 1981 23:14:29 5.0T10 267 0 Referenced by comments of: 713/1 00540/026 SYSTEM WATCHERS PWCT CMDS C *PWC 5.0T4 364 SYSTEM_WATCHERS.PWCT_CMDS.C.026 1 LINE 58 1 PAGE UM OGDEN AUG. 09, 1981 23:14:30 5.0T10 268 *PWC 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE PWCT PROGRAM (540/27) TO PRINT WAIT COUNTS FOR MTS JOBS. INVOKED BY ENTERING "MTS *PWC" ON THE OPERATOR'S CONSOLE. 00540/027A SYSTEM WATCHERS PWCT PGM SA G MTS:PWC(1000) 5.0T4 365 SYSTEM_WATCHERS.PWCT_PGM.SA.027 1 LINE 73 13 PAGE UBC HOGG OGDEN AUG. 09, 1981 23:14:31 5.0T10 269 MTS.:PWC 0 PROGRAM TO PRINT WAIT COUNTS, I.E., COUNTS OF HOW MANY MTS TASKS ARE WAITING FOR WHAT. IT TAKES THREE OPTIONAL INTEGER NUMBERS IN THE PAR FIELD SEPARATED BY BLANKS: NUMBER OF SECONDS BETWEEN SAMPLES, NUMBER OF LINES OF OUTPUT BETWEEN HEADINGS, AND THE TOTAL NUMBER OF LINES OF OUTPUT BEFORE QUITTING. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 540/26, 647/1 1 MON AUG 05/96 18:37:45 Page 310 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00540/028A SYSTEM WATCHERS PWCT PGM OC G MTS:PWC(1,999) 5.0T4 366 SYSTEM_WATCHERS.PWCT_PGM.OC.028 1 LINE 80 6 PAGE UBC HOGG OGDEN AUG. 09, 1981 23:14:37 5.0T10 270 00541/001 *DECODE SA G S0564 D4T2 VLO FSNAME=DECODE..SA.001(1) 339 5.0T2 322 DECODE..SA.001 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 22:56.50 5.0T4 267 0 PROGRAM TO PROVIDE HASP-TYPE DECOMPRESSION/DEBLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE. 0 Referenced by comments of: 796/1, 796/4 00541/002 *DECODE OC G *DECODE 5.0T2 323 DECODE..OC.002 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 15:19:09 5.0T4 268 *DECODE 00542/001 *DF # (NOT DISTRIBUTED) D3T4 222 UM AUG. 01, 1973 22:56.58 00543/001 *ENCODE SA G S0564 D4T2 VLO FSNAME=ENCODE..SA.001(1) 341 5.0T2 324 ENCODE..SA.001 1 LINE 80 10 PAGE UM MTA AUG. 01, 1973 22:57.23 5.0T4 269 0 PROGRAM TO PROVIDE HASP-TYPE COMPRESSION/BLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE. 0 Referenced by comments of: 796/1 00543/002 *ENCODE OC G *ENCODE 5.0T2 325 ENCODE..OC.002 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 15:19:11 5.0T4 270 *ENCODE 00544/001 *ENDJUNK OC G *ENDJUNK 5.0T2 326 ENDJUNK..OC.001 1 LINE 24 1 PAGE UM MTA JULY 03, 1981 15:19:12 5.0T4 271 *ENDJUNK 0 CONTAINS THE TWO LOADER CARDS: LCS LCSYMBOL LDT 00545/001 *FAKEOS INSTALLATION WF S0989 UQV15 FSNAME=FAKEOS.INSTALLATION(1) 15 5.0T2 327 FAKEOS.INSTALLATION.WF.001 1 LINE 100 3 PAGE UM MTA FEB. 17, 1976 20:04:00 5.0T4 272 0 SOMEWHAT OUT-OF-DATE WRITEUP DESCRIBING THE ORGANIZATION AND INSTALLATION OF *FAKEOS. 0 Referenced by comments of: 458/1, 762/3, 793/1 00545/002 *FAKEOS WRITEUP WF S0989 UQV15 FSNAME=FAKEOS.WRITEUP(1) 14 5.0T2 328 FAKEOS.WRITEUP.WF.002 1 LINE 148 11 PAGE UM MTA FEB. 17, 1976 20:03:19 5.0T4 273 0 UQV USER-LEVEL WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS. UM USER-LEVEL DOCUMENTATION IS IN MTS VOLUME 2. 1 MON AUG 05/96 18:37:45 Page 311 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00545/003A *FAKEOS MAIN D5 MASTER SA G S0699 D3TAPE POSN=FOS.MAIN.D5 5.0T4 367 FAKEOS.MAIN_D5_MASTER.SA.003 1 LINE 80 244 PAGE UM MTA AUG. 09, 1981 23:15:15 5.0T10 271 0 MASTER SOURCE FOR THE FAKEOS MAIN PROGRAM. COPIES COPY:GLOBALDEFS (1026/1), FAKEOS.GBLS (545/19), COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087), *LOADINFODSECT (001/4), *GDINFODSECT (594), AND *SENSEDSECT (3025). ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (193) (ON UNIT 0), AND FOS.MACLIB (545/21). 0 Referenced by comments of: 545/5 00545/004A *FAKEOS PREFIX D5 MAST SA G S0699 D3TAPE POSN=FOS.PREFIX.D5 5.0T4 368 FAKEOS.PREFIX_D5_MAST.SA.004 1 LINE 80 56 PAGE UM MTA AUG. 09, 1981 23:15:56 5.0T10 272 0 MASTER SOURCE FOR FAKEOS PREFIX. COPIES FAKEOS.GBLS (545/19), *GDINFODSECT (594), AND *CNFGINFODSECT (654). ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (193) (ON UNIT 0), AND FOS.MACLIB (545/21). 0 Referenced by comments of: 545/5 00545/005 *FAKEOS UPDATE 1 UU G S1319 D4.2T1 VLO FSNAME=FAKEOS.UPDATES.UU.005 395 5.0T2 329 FAKEOS.UPDATE_1.UU.005 1 LINE 102 51 PAGE UM MTA APR. 01, 1979 22:41:48 5.0T4 274 0 UPDATES TO PRODUCE D4.2 FAKEOS FROM D4.0 VERSION. CONTAINS COMMANDS AND UPDATES TO ASSEMBLE (545/3) AND (545/4). 00545/006A *FAKEOS UPDATES UC G MTA:FOS.UPDATES 5.0T4 369 FAKEOS.UPDATES.UC.006 1 LINE 82 5 PAGE UM MTA AUG. 09, 1981 23:15:57 5.0T10 273 0 POST D4.2 UPDATES TO FAKEOS PREFIX, LINE 1, AND MAIN PROGRAM, LINE 10000. 00545/007 *FAKEOS ASSEMBLY CMDS C MTA:FOS.ASM 5.0T2 330 FAKEOS.ASSEMBLY_CMDS.C.007 1 LINE 90 1 PAGE UM MTA AUG. 06, 1981 03:53:26 5.0T4 275 0 COMMANDS TO ASSEMBLE FAKEOS PREFIX, AT LINE 1, AND MAIN PROGRAM, AT LINE 1000. 00545/008 *FAKEOS OS LOWCORE SA MTA:FOS.OSLC 5.0T2 331 FAKEOS.OS_LOWCORE.SA.008 1 LINE 42 4 PAGE UM MTA JULY 03, 1981 15:19:56 5.0T4 276 MTA.:FOS.OSLC 0 CONTENTS OF FIRST HALF-PAGE OF OS. 00545/009 *FAKEOS BDAM SIMULATOR SA S0938 FSAVE2 VLO FSNAME=FOS.BDAM 5.0T2 332 FAKEOS.BDAM_SIMULATOR.SA.009 1 LINE 87 69 PAGE UM MTA MAR. 07, 1980 23:48:27 5.0T4 277 0 SOURCE FOR OS BDAM SIMULATOR. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21). 1 MON AUG 05/96 18:37:45 Page 312 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00545/010 *FAKEOS BDAM SIMULATOR OE ETC:BDAM 5.0T2 333 FAKEOS.BDAM_SIMULATOR.OE.010 1 SEQ 15140 4 PAGE UM MTA JULY 03, 1981 15:21:13 5.0T4 278 ETC.:BDAM 00545/011 *FAKEOS DDNAME SCANNER SA S0938 FSAVE2 VLO FSNAME=FOS.DDEF 5.0T2 334 FAKEOS.DDNAME_SCANNER.SA.011 1 LINE 80 20 PAGE UM MTA MAY 25, 1978 15:00:44 5.0T4 279 0 SOURCE FOR DDNAME SCANNER. COPIES FAKEOS.GBLS (545/19) and *GDINFODSECT (594). ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21). 00545/012 *FAKEOS DDNAME SCANNER OC # (PART OF *FAKEOS) D3.2T1 455 FAKEOS.VOSDDEF.OE.18 1 SEQ 2586 1 PAGE UM MTA MAR. 21, 1975 01:50:37 0 Part of *FAKEOS (545/44) 00545/013 *FAKEOS EXCP SIMULATOR SA MTA:FOS.EXCP 5.0T2 335 FAKEOS.EXCP_SIMULATOR.SA.013 1 LINE 72 8 PAGE UM MTA JULY 03, 1981 15:21:53 5.0T4 280 0 SOURCE FOR NON-OLTEP EXCP SIMULATOR. ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21). 00545/014 *FAKEOS EXCP SIMULATOR OE ETC:FAKEOS.EXCP 5.0T2 336 FAKEOS.EXCP_SIMULATOR.OE.014 1 SEQ 2492 1 PAGE UM MTA JULY 03, 1981 15:21:54 5.0T4 281 ETC.:FAKEOS.EXCP 00545/015 *FAKEOS OLTEP EXCP SIM SA MTA:FOS.OLTSEXCP 5.0T2 337 FAKEOS.OLTEP_EXCP_SIM.SA.015 1 LINE 71 5 PAGE UM MTA JULY 03, 1981 15:21:55 5.0T4 282 0 SOURCE FOR OLTEP EXCP SIMULATOR. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21). 0 Referenced by comments of: 545/17 00545/016 *FAKEOS OS SVC 59 SIML SA MTA:FOS.SVC59 5.0T2 338 FAKEOS.OS_SVC_59_SIML.SA.016 1 LINE 71 6 PAGE UM MTA JULY 03, 1981 15:21:56 5.0T4 283 0 SOURCE FOR OS SVC 59 SIMULATOR. COPIES FAKEOS.GLBS (545/19), COPY:GLOBALS (1026/3), *CNFGINFODSECT (654), AND COPY:LLMPSEQU (087). ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21). 0 Referenced by comments of: 545/17 00545/017 *FAKEOS FOS.OLTS OE ETC:FOS.OLTS 5.0T2 339 FAKEOS.FOS.OLTS.OE.017 1 LINE 1694 4 PAGE UM MTA JULY 03, 1981 15:21:57 5.0T4 284 ETC.:FOS.OLTS 0 OBJECT FROM (545/15) AND (545/16). CONTAINS A $CONTINUE WITH *FAKEOS RECORD. MUST BE CONCATENATED WITH *FAKEOS (545/44) WHEN RUNNING OLTEP. 1 MON AUG 05/96 18:37:45 Page 313 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00545/018 *FAKEOS IERRCO00 SA MTA:FOS.IERRCO00 5.0T2 340 FAKEOS.IERRCO00.SA.018 1 LINE 72 16 PAGE UM MTA JULY 03, 1981 15:21:58 5.0T4 285 0 SOURCE FOR THE FAKEOS SORT INTERFACE SUBROUTINE. 00545/019 *FAKEOS FAKEOS.GBLS SA MTA:FAKEOS.GBLS 5.0T2 341 FAKEOS.FAKEOS.GBLS.SA.019 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 15:22:00 5.0T4 286 MTA.:FAKEOS.GBLS 0 GLOBAL PARAMETERS COPY SECTION. EACH INSTALLATION SHOULD RE-DEFINE &OWNER, &COBUID, &MPSID, &FAKEID, &FAKMAIN, &ICENAME, AND &ETCID. 0 Referenced by comments of: 538/1, 545/3, 545/4, 545/9, 545/11, 545/15, 545/16, 545/38, 737/3 00545/020 *FAKEOS FOS.LPA SA MTA:FOS.LPA 5.0T2 342 FAKEOS.FOS.LPA.SA.020 1 LINE 55 1 PAGE UM MTA JULY 03, 1981 15:22:01 5.0T4 287 0 SYMBOL TABLE FOR MODULES MOVED FROM FOS.IGG TO *FAKEOS. OBJECT IN *FAKEOS (545/44). 00545/021 *FAKEOS FOS.MACLIB SM MTA:FOS.MACLIB 5.0T2 343 FAKEOS.FOS.MACLIB.SM.021 1 LINE 80 26 PAGE UM MTA JULY 03, 1981 15:22:02 5.0T4 288 MTA.:FOS.MACLIB 0 FAKEOS MACRO LIBRARY. 0 Referenced by comments of: 545/3, 545/4, 545/9, 545/11, 545/13, 545/15, 545/16, 545/38 00545/022 *FAKEOS IERRCO00 TEST SA G MTA:FOS.IERR.TEST(1,999) 5.0T2 344 FAKEOS.IERRCO00_TEST.SA.022 1 LINE 72 3 PAGE UM MTA JULY 03, 1981 15:22:05 5.0T4 289 0 TEST PROGRAM FOR IERRCO00. RUNS WITHOUT FAKEOS. ALL THE SORT TEST DATA IS INTERNAL TO IT. SETS THE "DIAG" PARAMETER TO IERRCO00 SO A LOT OF SORT TRACE OUTPUT IS PRODUCED. CHECKS THE RESULT OF THE SORT AND PRINTS ERROR COMMENTS IF BAD. 00545/023 *FAKEOS IERRCO00 TEST OC G MTA:FOS.IERR.TEST(1000) 5.0T2 345 FAKEOS.IERRCO00_TEST.OC.023 1 LINE 80 4 PAGE UM MTA JULY 03, 1981 15:22:07 5.0T4 290 00545/024 *FAKEOS BSAM TEST SA MTA:FOS.TESTBSAM(1,999) 5.0T2 346 FAKEOS.BSAM_TEST.SA.024 1 LINE 65 1 PAGE UM MTA JULY 03, 1981 15:22:07 5.0T4 291 0 PROGRAM TO TEST BSAM BY COPYING FROM INPUT TO SYSPRINT USING BSAM WITH DOUBLE BUFFERING ON BOTH. ASSEMBLE USING *OSMAC (193) (ON UNIT 2) AND *SYSMAC (ON UNIT 0). 1 MON AUG 05/96 18:37:45 Page 314 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00545/025 *FAKEOS BSAM TEST OC MTA:FOS.TESTBSAM(1000) 5.0T2 347 FAKEOS.BSAM_TEST.OC.025 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 15:22:08 5.0T4 292 00545/026A *FAKEOS QSAM TEST SA MTA:FOS.TESTQSAM(1,999) 5.0T2 348 FAKEOS.QSAM_TEST.SA.026 1 LINE 69 1 PAGE UM MTA JULY 03, 1981 15:22:09 5.0T4 293 0 PROGRAM TO TEST QSAM BY COPYING INPUT TO OUTPUT USING QSAM. ECHOS EACH LINE ON MTS UNIT 1. GENERAL ENOUGH TO ALLOW ANY MODE OF GET AND PUT (MOVE, LOCATE, DATA) AND ANY RECORD FORMAT (NO MEAN TRICK IN OS!). ASSEMBLE USING *SYSMAC (ON UNIT 2) AND *OSMAC (193) (ON UNIT 0) (SIC). 00545/027A *FAKEOS QSAM TEST OC MTA:FOS.TESTQSAM(1000) 5.0T2 349 FAKEOS.QSAM_TEST.OC.027 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 15:22:10 5.0T4 294 00545/028 *FAKEOS UPDATE TEST SA MTA:FOS.TSTUPDAT(1,999) 5.0T2 350 FAKEOS.UPDATE_TEST.SA.028 1 LINE 66 1 PAGE UM MTA JULY 03, 1981 15:22:11 5.0T4 295 0 TEST PROGRAM WHICH READS INPUT USING BSAM WITH DOUBLE BUFFERING AND REWRITES ANY LINE BEGINNING WITH "A" AFTER CHANGING THE "A" TO "B". ALSO ECHOS LINES READ ON SYSPRINT USING QSAM. ASSEMBLE WITH *SYSMAC (ON UNIT 0) AND *OSMAC (193) (ON UNIT 2). 00545/029 *FAKEOS UPDATE TEST OC MTA:FOS.TSTUPDAT(1000) 5.0T2 351 FAKEOS.UPDATE_TEST.OC.029 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 15:22:12 5.0T4 296 00545/030 *FAKEOS TIMER TEST SA MTA:FOS.TESTTIME(1,999) 5.0T2 352 FAKEOS.TIMER_TEST.SA.030 1 LINE 69 1 PAGE UM MTA JULY 03, 1981 15:22:12 5.0T4 297 0 PROGRAM WHICH TESTS STIMER AND TTIMER IN OS. PRINTS MESSAGES TELLING WHAT IT'S DOING. ASSEMBLE USING *SYSMAC (ON UNIT 0) AND *OSMAC (193) (ON UNIT 2). IF ASSEMBLED WITH *SYSMAC ONLY, IT WILL TEST STIMER AND TTIMER IN MTS. 0 Referenced by comments of: 607/1 00545/031 *FAKEOS TIMER TEST OC MTA:FOS.TESTTIME(1000) 5.0T2 353 FAKEOS.TIMER_TEST.OC.031 1 LINE 80 2 PAGE UM MTA JULY 03, 1981 15:22:14 5.0T4 298 00545/032 *FAKEOS WTO/WTOR TEST SA O MTA:FOS.WTOTST(1,999) 5.0T2 354 FAKEOS.WTO/WTOR_TEST.SA.032 1 LINE 72 1 PAGE UM MTA JULY 03, 1981 15:22:14 5.0T4 299 0 TESTS WTO (WRITE TO OPERATOR) AND WTOR (WRITE TO OPERATOR WITH REPLY). ASSEMBLE WITH *OSMAC (193) ON UNIT 0 AND *SYSMAC ON UNIT 2. 1 MON AUG 05/96 18:37:45 Page 315 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00545/033 *FAKEOS WTO/WTOR TEST OC O MTA:FOS.WTOTST(1000) 5.0T2 355 FAKEOS.WTO/WTOR_TEST.OC.033 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 15:22:15 5.0T4 300 00545/034C *FAKEOS SNAP TEST SA O MTA:FOS.TESTDUMP(1,999) 5.0T2 356 FAKEOS.SNAP_TEST.SA.034 1 LINE 72 1 PAGE UM MTA JULY 03, 1981 15:22:16 5.0T4 301 0 Test program for SNAP macros. Contains several assemblies. Assemble with PAR=BATCH. Requires *OSMAC (193) on unit 0. 00545/035C *FAKEOS SNAP TEST OC O MTA:FOS.TESTDUMP(1000) 5.0T2 357 FAKEOS.SNAP_TEST.OC.035 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 15:22:17 5.0T4 302 0 Needs to be made into a library to be used. 00545/036C *FAKEOS TSO TEST SA O MTA:FOS.TESTTSO(1,999) 5.0T2 358 FAKEOS.TSO_TEST.SA.036 1 LINE 72 1 PAGE UM MTA JULY 03, 1981 15:22:17 5.0T4 303 0 Test TGET, TPUT, and STAX macros. Note that the D5.0 FAKEOS doesn't support these, but VSS (1078) does. Requires *OSMAC (193). 00545/037C *FAKEOS TSO TEST OC O MTA:FOS.TESTTSO(1000) 5.0T2 359 FAKEOS.TSO_TEST.OC.037 1 LINE 80 2 PAGE UM MTA JULY 03, 1981 15:22:19 5.0T4 304 00545/038 *FAKEOS BDAM DUMP SA MTA:FOS.BDAMDUMP(1000) 5.0T2 360 FAKEOS.BDAM_DUMP.SA.038 1 LINE 72 5 PAGE UM MTA JULY 03, 1981 15:22:19 5.0T4 305 MTA.:FOS.BDAMDUMP 0 SOURCE FOR PROGRAM TO DUMP BDAM FAKEOS FILES. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC, *OSMAC (193), AND FOS.MACLIB (545/21). 00545/039 *FAKEOS BDAM DUMP OC MTA:FOS.BDAMDUMP(1,999) 5.0T2 361 FAKEOS.BDAM_DUMP.OC.039 1 LINE 80 4 PAGE UM MTA JULY 03, 1981 15:22:21 5.0T4 306 00545/040 *FAKEOS FAKEOSTRACE SA MTA:FOS.TRACE(1,999) 5.0T2 362 FAKEOS.FAKEOSTRACE.SA.040 1 LINE 66 3 PAGE UM MTA JULY 03, 1981 15:22:23 5.0T4 307 0 SOURCE FOR PROGRAM TO PRINT FAKEOS TRACE FILE. ASSEMBLE USING *SYSMAC. 00545/041 *FAKEOS *FAKEOSTRACE OE *FAKEOSTRACE 5.0T2 363 FAKEOS.*FAKEOSTRACE.OE.041 1 LINE 2764 2 PAGE UM MTA JULY 03, 1981 15:22:24 5.0T4 308 *FAKEOSTRACE 1 MON AUG 05/96 18:37:45 Page 316 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00545/042 *FAKEOS FAKEOSCREBLDL SA MTA:FOS.CREBLDL(1,999) 5.0T2 364 FAKEOS.FAKEOSCREBLDL.SA.042 1 LINE 68 3 PAGE UM MTA JULY 03, 1981 15:22:24 5.0T4 309 0 PROGRAM TO CREATE A DIRECTORY THAT FAKEOS WILL USE WHEN DOING A BLDL ON LINKLIB. TAKES INPUT DATA ON SCARDS, OUTPUT DIRECTORY WRITTEN ON UNIT 0. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 458/80, 458/81, 458/83, 458/85, 538/3, 737/5, 737/6, 762/7, 762/8 00545/043 *FAKEOS *FAKEOSCREBLDL OE *FAKEOSCREBLDL 5.0T2 365 FAKEOS.*FAKEOSCREBLDL.OE.043 1 SEQ 1620 1 PAGE UM MTA JULY 03, 1981 15:22:26 5.0T4 310 *FAKEOSCREBLDL 00545/044A *FAKEOS *FAKEOS OE G *FAKEOS 5.0T4 370 FAKEOS.?FAKEOS.OE.044 1 LINE 32767 17 PAGE UM MTA AUG. 09, 1981 23:15:58 5.0T10 274 *FAKEOS 0 CURRENT OBJECT FOR FAKEOS. 0 Referenced by comments of: 545/12, 545/17, 545/20 00545/045 *FAKEOS MESSAGE FILE M ETC:FAKEOS.MSG 5.0T2 366 FAKEOS.MESSAGE_FILE.M.045 1 LINE 120 4 PAGE UM MTA JULY 03, 1981 15:22:26 5.0T4 311 ETC.:FAKEOS.MSG 0 ERROR MESSAGE FILE FOR FAKEOS. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00545/046 *FAKEOS OS DATA MANAGE OL ETC:FOS.IGG 5.0T2 367 FAKEOS.OS_DATA_MANAGE.OL.046 1 LINE 3668 6 PAGE UM MTA JULY 03, 1981 15:22:27 5.0T4 312 ETC.:FOS.IGG 0 LIBRARY OF OS DATA MANAGEMENT MODULES FROM REL 21.8 AND IERRCO00. >>>>>> NOTE: OBJECT HAS REP CARDS. 00546/001A *VALIDATEFILE SA G RSTR:VALIDATEFILE(1000) 5.0T2 368 VALIDATEFILE..SA.001 1 LINE 73 22 PAGE UM HELFFRICH JULY 03, 1981 15:22:28 5.0T4 313 RSTR:VALIDATEFILE 0 PROGRAM TO VALIDATE LINE FILES FOR CONSISTENCY. CAN BE USED, BY USERS, AFTER A SYSTEM CRASH DURING WHICH A FILE WAS OPEN. PROMPTS FOR INPUT. ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 253/1 00546/002A *VALIDATEFILE OE G *VALIDATEFILE 5.0T2 369 VALIDATEFILE..OE.002 1 LINE 6261 4 PAGE UM HELFFRICH JULY 03, 1981 15:22:34 5.0T4 314 *VALIDATEFILE 00547/001 *FOREVER D *FOREVER 5.0T2 370 FOREVER..D.001 1 LINE 51 3 PAGE UM MTA JULY 03, 1981 15:22:35 5.0T4 315 *FOREVER 0 A FILE CONTAINING ABOUT 300 LINES OF JUNK, ENDING WITH "$CONTINUE WITH *FOREVER" SO THAT 1 MON AUG 05/96 18:37:45 Page 317 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 IT APPEARS TO CONTAIN EVEN MORE. 00548/001A *FS SA G MTS:FS.S 5.0T4 648 FS..SA.001 1 LINE 79 96 PAGE UBC MTA SEP. 04, 1981 03:07:27 5.0T11 222 MTS.:FS.S 0 USER PROGRAM TO SAVE AND RESTORE FILES ON MAGNETIC TAPE, MAINTAINING A DIRECTORY AND PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION. THIS PROGRAM IS ALSO USED TO GENERATE MTS DISTRIBUTION TAPES. CALLS SNIFF SUBROUTINE (548/2). COPIES COPY:DRDSECT (461/4), *GFINFODSECT (593), AND *GDINFODSECT (594). *************************************************************************** D5.0 version: The following changes have been made to *FS. For ordinary use of FS as well as PAR=DIST use: 1. Informational messages go to SPRINT instead of SERCOM. 2. The directory won't be listed at termination in batch mode unless it has changed since the last time it was listed. 3. The LIST and DLIST commands will sort the directory in order of FS name if SORT=NAME is specified on the command. 4. When terminating FS asks (in terminal mode) whether it should dismount the tapes it used. If the user says yes, then it dismounts ALL the tapes it used, if no (or batch) it rewinds all the tapes it used, not just the last one as before. 5. FS always truncates a file after restoring to it, not just if it created it. It also sets the file size correctly before restoring to an existing file. 6. FS will save an empty file without asking permission first. For PAR=DIST use of FS only: 1. One does not need to specify the rack number when giving it premounted tapes. It figures out if the PDN is in use by itself. 2. There is a TAPENAME command to change the tape name given during initialization without rerunning FS. 3. There is a RELEASE command to dismount a tape mounted as a result of a driver file request. It will refuse to dismount a tape that has been used in any other way. 4. It adds UAM=NO to all mount requests if the user is allowed to do this. 5. When running under the id MTS (as is the normal case when preparing distribution tapes) the drive command will not update file reference counts. 6. It maintains and uses both the 1600 BPI and the 6250 BPI output tape file number and tape name fields in the driver file. 7. Files saved from tape are marked as line files, not sequential files. 8. Various tables are bigger to handle larger driver files. *************************************************************************** 1 MON AUG 05/96 18:37:45 Page 318 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 392/1, 461/4, 549/1, 550/1 00548/002A *FS SNIFF SUBR SA G MTS:FS.SNIFF(1,999) 5.0T4 371 FS.SNIFF_SUBR.SA.002 1 LINE 72 3 PAGE UBC MTA AUG. 09, 1981 23:16:00 5.0T10 275 0 SUBROUTINE TO DETERMINE THE AMOUNT OF SPACE REQUIRED BY A FILE. CALLED BY *FS. COPIES *GFINFODSECT (593). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 548/1 00548/003A *FS OE G NEW:FS 5.0T4 649 FS..OE.003 1 LINE 32767 23 PAGE UBC MTA SEP. 04, 1981 03:09:14 5.0T11 223 *FS 00549/001 *FSCON SA G S0564 D4T2 VLO FSNAME=FSCON..SA.001(1) 387 5.0T2 371 FSCON..SA.001 1 LINE 80 33 PAGE UM MTA JULY 28, 1977 02:43:20 5.0T4 316 0 PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT. NO LONGER REQUIRES THE FSZ SUBROUTINE. 00549/002 *FSCON OE G *FSCON 5.0T2 372 FSCON..OE.002 1 SEQ 8116 3 PAGE UM MTA JULY 03, 1981 15:22:44 5.0T4 317 *FSCON 00550/001 *FSCOPY SA # (OBSOLETE) D3T4 270 FSCOPY..SA.1 1 LINE 80 30 PAGE UBC AUG. 01, 1973 23:05.32 0 Obsoleted by *FS (548). 00551/001 *FTN SA G S1319 D4.2T1 VLO FSNAME=FTN..SA.001(1) 415 5.0T2 373 FTN..SA.001 1 LINE 85 51 PAGE UM HANSEN MAR. 02, 1979 12:24:24 5.0T4 318 0 THIS VERSION OF *FTN INTERFACES TO THE FORTRAN G (204) AND FORTRAN H (298) COMPILERS AND ALSO TO OVERDRIVE (667), THE FORTRAN PREPROCESSOR. IT IS LOADED INTO SHARED VM AT IPL BY PISTLE WITH THE SINGLE SYMBOL FTN DEFINED IN LCSYMBOL. THERE ARE 4 REFERENCES TO FILE NAMES IN THIS VERSION AT LINES 922 THROUGH 925. AS DISTRIBUTED, THEY ARE *FORTRANH, *FORTRANG, *FTNGTEST, AND *OVERDRIVE RESPECTIVELY. COPIES *GDINFODSECT (594). 0 Referenced by comments of: 699/1 00551/002 *FTN SHARED OBJECT OC G SEG2:FTN 5.0T2 374 FTN.SHARED_OBJECT.OC.002 1 LINE 80 11 PAGE UM HANSEN JULY 03, 1981 15:22:49 5.0T4 319 SEG2:FTN 0 LOADED INTO SHARED VM AT IPL BY PISTLE. 1 MON AUG 05/96 18:37:45 Page 319 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00551/003 *FTN OC G *FTN 5.0T2 375 FTN..OC.003 1 SEQ 24 1 PAGE UM HANSEN JULY 03, 1981 15:22:50 5.0T4 320 *FTN 0 CONTAINS ONLY THE LOADER CARDS: RIP FTN LCS LCSYMBOL LDT FTN 0 Referenced by comments of: 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 00552/001 *GASP SF G S0564 D4T2 VLO FSNAME=GASP..SF.001(1) 392 5.0T2 376 GASP..SF.001 1 LINE 80 30 PAGE UM FLANIGAN APR. 18, 1975 08:59:55 5.0T4 321 0 FTN SOURCE FOR GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION. NOTE: SOURCE CONTAINS MANY "$CONTINUE WITH *GASPCOM RETURN" LINES. 0 Referenced by comments of: 552/3 00552/002 *GASP SA G S0564 D4T2 VLO FSNAME=GASP..SA.002(1) 393 5.0T2 377 GASP..SA.002 1 LINE 80 1 PAGE UM FLANIGAN JULY 28, 1977 02:46:12 5.0T4 322 0 ASMG SOURCE FOR GASP ERROR EXIT ROUTINE. 0 Referenced by comments of: 552/3 00552/003 *GASP OL G *GASP 5.0T2 378 GASP..OL.003 1 SEQ 6930 15 PAGE UM FLANIGAN JULY 03, 1981 15:22:54 5.0T4 323 *GASP 0 OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN (552/1) AND (552/2). 00552/004 *GASP *GASPCOM SF G GPCM *GASPCOM(0,7) 5.0T2 379 GASP.*GASPCOM.SF.004 1 LINE 80 1 PAGE UM FLANIGAN JULY 03, 1981 15:22:55 5.0T4 324 *GASPCOM 00552/005 *GASP MEMO 246 WF S0564 D4T2 VLO FSNAME=GASP.MEMO_246.WF.005(1) 396 5.0T2 380 GASP.MEMO_246.WF.005 1 LINE 127 11 PAGE UM FLANIGAN JAN. 24, 1977 20:29:16 5.0T4 325 0 THIS IS COMPUTING CENTER MEMO 246 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM" 00552/006 *GASP INTERNAL DESC P G S0564 D4T2 VLO FSNAME=GASP.INTERNAL_DESC.P.006(1) 397 5.0T2 381 GASP.INTERNAL_DESC.P.006 1 LINE 80 28 PAGE UM FLANIGAN JULY 28, 1977 02:46:54 5.0T4 326 0 DESCRIPTION OF THE INTERNALS OF GASP. 1 MON AUG 05/96 18:37:45 Page 320 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00553/001A NETWORK CLS SA G NETC W226:*NET.S 5.0T2 382 NETWORK_CLS..SA.001 1 LINE 80 43 PAGE UM PICKELMAN JULY 03, 1981 15:22:57 5.0T4 327 0 COMMAND LANGUAGE SUB-SYSTEM FOR MERIT COMPUTER NETWORK ($NET COMMAND). DESCRIBED IN "MERIT NETWORK USER'S GUIDE" IN MTS VOLUME 4. CALLS COPY SUBROUTINE (553/2) TO IMPLEMENT THE .COPY NETWORK COMMAND. COPIES *GDINFODSECT (594) AND *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 553/3 00553/002A NETWORK CLS COPY SUBR SA G W226:*NETCOPY.S 5.0T2 383 NETWORK_CLS.COPY_SUBR.SA.002 1 LINE 76 38 PAGE UM PICKELMAN JULY 03, 1981 15:23:01 5.0T4 328 0 SUBROUTINES TO IMPLEMENT THE .COPY NETWORK COMMAND. ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 553/1, 553/3 00553/003A NETWORK CLS OE G *CLSNET 5.0T2 384 NETWORK_CLS..OE.003 1 LINE 18144 6 PAGE UM PICKELMAN JULY 03, 1981 15:23:04 5.0T4 329 *CLSNET 0 OBJECT FROM (553/1) AND (553/2), NORMALLY LOADED INTO SHARED VM BY PISTLE AFTER IPL. 00553/004A NETWORK CLS MNET:NETCOPY OE G MNET:NETCOPY 5.0T2 385 NETWORK_CLS.MNET:NETCOPY.OE.004 1 LINE 10160 4 PAGE UM PICKELMAN JULY 03, 1981 15:23:05 5.0T4 330 0 CONTAINS LOADER CARDS (RIP, COM, LCS,) TO FORCE REFERENCE TO SHARED VM NETCOPY SUBROUTINE, IF NET CLS IS LOADED IN SHARED VM. THIS FILE IS $RUN AUTOMATICALLY WHEN A .COPY NETWORK COMMAND (OR EQUIVALENT AT A NON-MTS HOST) IS ISSUED AT A REMOTE HOST TO COPY A FILE TO OR FROM THE LOCAL MTS HOST. 00553/005A NETWORK CLS NET TEST PGM SA G TNET W226:*TNET.S 5.0T2 386 NETWORK_CLS.NET_TEST_PGM.SA.005 1 LINE 80 3 PAGE UM PICKELMAN JULY 03, 1981 15:23:06 5.0T4 331 0 PROGRAM TO CALL THE NET CLS -- ALLOWS TESTING WITH SDS. ASSEMBLE USING COPY:MTS.MACROS (344/3) AND WITH SIZE=20. 00553/006A NETWORK CLS NET TEST PGM OC G W226:*TNET 5.0T2 387 NETWORK_CLS.NET_TEST_PGM.OC.006 1 LINE 80 1 PAGE UM PICKELMAN JULY 03, 1981 15:23:07 5.0T4 332 00554/001 TABLMOD JOB PROGRAM SA G TBJP FILE:TABLMOD 5.0T2 388 TABLMOD.JOB_PROGRAM.SA.001 1 LINE 80 28 PAGE UM HELFFRICH JULY 03, 1981 15:23:08 5.0T4 333 FILE:TABLMOD 0 UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE SHARED FILE TABLE. INVOKED BY ENTERING "TABLMOD" ON THE OPERATOR'S CONSOLE. THE FOLLOWING COMMANDS 1 MON AUG 05/96 18:37:45 Page 321 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ARE AVAILABLE: VERIFY VERIFYS ENTRY AND ELEMENT ALLOCATIONS ARE CONSISTANT BY CHASING THROUGH VARIOUS CHAINS IN SHARED FILE TABLE. ALSO PRINTS THE NUMBER OF OPEN FILES, MATRIX COMPUTATIONS, AND DEADLOCK DETECTIONS. TRACE PRINTS OUT THE ENTIRE SHARED FILE TABLE. EACH ENTRY CONSISTS OF A FILE NAME, JOB NUMBER, OPEN STATUS ("OPEN" OR "NOTO"), LOCK STATUS ("LOCKR", "LOCKM", OR "LOCKD"), AND WAIT STATUS ("WAITO", "WAITR", "WAITM", OR "WAITD"). LSTAT PRINTS THE INFORMATION ASSOCIATED WITH A SINGLE FILE ("LSTAT FILE FNAME") OR A SINGLE JOB ("LSTAT JOB N") IN THE SAME FORMAT AS THE TRACE COMMAND. LOCATE PRINTS THE HALF-WORD OFFSET INTO THE SHARED FILE TABLE FOR THE ENTRY ASSOCIATED WITH A PARTICULAR FILE ("LOCATE FILE FNAME"). CLEAN TAKES THE SPECIFIED JOB ("CLEAN JOB N") OFF ALL OPEN OR LOCKED AND WAITING LISTS. CLEANF SAME AS "CLEAN" EXCEPT FOR ONE FILE ONLY ("CLEANF JOB N FILE FNAME"). DEQ TAKES THE SPECIFIED JOB ("DEQ JOB N") OFF ALL WAITING LISTS. DEQF SAME AS "DEQ" EXCEPT FOR ONE FILE ONLY ("DEQF JOB N FILE FNAME"). THE TABLMOD PROGRAM TERMINATES WHEN AN END-OF-FILE IS ENTERED. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:FILE.MACROS (482/45). SEE COMP (682/9) FOR A WRITEUP. 0 Referenced by comments of: 400/12, 554/3, 682/9 00554/002 TABLMOD TABLMOD JOB OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00554/003 TABLMOD MTS PROGRAM SA G # (SAME AS JOB PROGRAM) UM HELFFRICH 0 MTS PROGRAM TO ALLOW SYSTEM PROGRAMMERS TO INTERROGATE AND ALTER THE SYSTEM-WIDE SHARED FILE TABLE. TAKES THE SAME COMMANDS AS TABLMOD JOB (554/1) AS WELL AS A "DUMP" COMMAND TO DUMP THE WHOLE SHARED FILE TABLE. IT CALLS SDUMP TO DO THIS. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:FILE.MACROS (482/45) STARTING AT LINE 0 TO INCLUDE THE CODE NECESSARY FOR THE MTS PROGRAM. CONTAINS A "$CONTINUE WITH W045:TABLMOD(2)" LINE. SAME AS (554/1). 1 MON AUG 05/96 18:37:45 Page 322 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00554/004 TABLMOD MTS PROGRAM OC G FILE:TABLMODMP.O 5.0T2 389 TABLMOD.MTS_PROGRAM.OC.004 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 15:23:10 5.0T4 334 FILE:TABLMODMP.O 00555/001 MESSAGE MANUAL PGM SS G S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.PGM.SS.001(1) 407 5.0T2 390 MESSAGE_MANUAL.PGM.SS.001 1 LINE 70 11 PAGE UM FRONCZAK JULY 28, 1977 02:48:53 5.0T4 335 0 SPITBOL PROGRAM TO PRODUCE MESSAGE MANUAL FROM DATA IN (555/4). RUN AS FOLLOWS: $RUN *SPITBOL SCARDS=MESSAGEPGM(5) 5=MESSAGEDATA 4=*MSOURCE* 6=*MSINK* 7=MSGMANPRT SPRINT=*PRINT* PAR=SIZE=MAX *PRINT* SHOULD BE SPECIFIED AS A TN PRINTER. THE PRINTOUT CONSISTS OF ALPHABETIZED USER MESSAGES AND ALPHABETIZED OPERATOR MESSAGES. INSTRUCTIONS ON PROGRAM USAGE MAY BE OBTAINED VIA &HELP. 00555/002 MESSAGE MANUAL SPITBLK SA G S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.SPITBLK.SA.002(1) 408 5.0T2 391 MESSAGE_MANUAL.SPITBLK.SA.002 1 LINE 79 3 PAGE UM FRONCZAK JULY 28, 1977 02:48:56 5.0T4 336 0 ROUTINE TO INTERFACE SPITBOL TO THE BLOKLETR SUBR (572). 00555/003 MESSAGE MANUAL SPITBLK OC G S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.SPITBLK.OC.003(1) 409 5.0T2 392 MESSAGE_MANUAL.SPITBLK.OC.003 1 LINE 80 1 PAGE UM FRONCZAK JULY 28, 1977 02:48:58 5.0T4 337 00555/004 MESSAGE MANUAL DATA D S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.DATA.D.004(1) 410 5.0T2 393 MESSAGE_MANUAL.DATA.D.004 1 LINE 107 52 PAGE UM FRONCZAK JULY 28, 1977 02:49:01 5.0T4 338 0 A DATA FILE DESCRIBING THE VARIOUS SYSTEM MESSAGES. THE FORMAT OF THE FILE IS AS FOLLOWS: 1. LOCATION OF MESSAGES A) MTS "FMSG" MESSAGES ARE FOUND STARTING AT THE LINE NUMBER WHICH IS THE FMSG NUMBER. B) MTS "CMSG" MESSAGES START AT LINE 2000. C) OTHER MESSAGES START AT LINE 3000. 2. FORMAT OF LINES A GROUP OF CONSECTIVE LINES IN THE FILE HAS INFORMATION ABOUT A GIVEN MESSAGE. THE FIRST LINE SPECIFIES THE MESSAGE TEXT, WHILE SUCCEEDING LINES IN THE GROUP INDENTIFY THE DESTINATION, SOURCE, AND MEANING. EACH LINE IS IDENTIFIED BY ITS LEADING CHARACTERS, WHICH MUST BE UPPERCASE; THE TEXT OF MESSAGES MAYBE OF MIXED CASE. THE FOLLOWING LINE FORMATS ARE SPECIFIED (ALL COMPONENT NAMES MUST BE GIVEN IN UPPERCASE): A) MESSAGE LINE BEGINS WITH "## "; MESSAGE, STARTING IN COLUMN 4, USUALLY IN UPPERCASE WITH GENERIC PARTS IN LOWERCASE. B) TEXT ELIMINATION LINE 1 MON AUG 05/96 18:37:45 Page 323 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 BEGINS WITH " ELIM " FOLLOWED BY THE EXACT TEXT TO BE ELIMINATED FROM THE MESSAGE LINE FOR SORTING PURPOSES ONLY, DELIMITED BY A CHARACTER WHICH MUST NOT APPEAR IN THE ELIMINATION TEXT. FOR EXAMPLE, ELIM 'STRING' C) DESTINATION OF MESSAGE BEGINS WITH " DEST OPER" IF OPERATOR MESSAGE; NO DESTINATION LINE IF NORMAL MESSAGE. D) LOCATION OF MESSAGE TEXT BEGINS WITH " TXTLOC "; TEXT LOCATION NAME STARTING IN COLUMN 8, SUCH AS FSMG 21. FOR EXAMPLE, TXTLOC PERMIT,509,SDM51,PRMT0445. E) WHO ISSUED MESSAGE (MAY BE SEVERAL OF THESE IN A GROUP) BEGINS WITH " SOURCE "; INFORMATION STARTING IN COLUMN 9: COMPONENT NAME, COMPONENT NUMBER, LABEL, SEQUENCE ID. FOR EXAMPLE, SOURCE PERMIT,509,SDM51,PRMT0445. F) EXPLANATIONS OF MESSAGE (AS MANY LINES AS NEEDED) BEGINS WITH 3 BLANKS; TEXT STARTING IN COLUMN 4. ALL LINES ARE USER-LEVEL EXPLANATION LINES UNTIL "#S " APPEARS IN COLUMNS 1-3, IN WHICH CASE, THAT LINE AND SUBSEQUENT LINES DEFINE THE SYSTEM-LEVEL EXPLANATION. THIS FILE CURRENTLY CONTAINS COMPLETE COVERAGE OF MTS ITSELF AND MOST CLS'S. 0 Referenced by comments of: 555/1 00555/005 MESSAGE MANUAL OUTPUT P S0564 D4T2 VLO FSNAME=MESSAGE_MANUAL.OUTPUT.P.005(1) 411 5.0T2 394 MESSAGE_MANUAL.OUTPUT.P.005 1 LINE 98 191 PAGE UM FRONCZAK JULY 28, 1977 02:49:29 5.0T4 339 0 COPY THIS OUTPUT TO A TN PRINTER FOR A COPY OF THE MESSAGE MANUAL. 00556/001A *REDUCE2 MTS MASTER S G WATF:RDC2SOU 5.0T2 395 REDUCE2.MTS_MASTER.S.001 1 LINE 80 181 PAGE UM MTA JULY 03, 1981 15:23:20 5.0T4 340 0 REDUCE2 is a LISP 1.5 program designed for general algebraic computations. This is the OS/360 version of REDUCE2 modified to run in either OS or MTS. The flag MTS* (which is set as part of the generation of the LISP compiler or front end) is non-NIL when running in MTS and NIL when running in OS. 0 Referenced by comments of: 210/1, 556/3 00556/002A *REDUCE2 OS SOURCE S G WATF:RDC2.PR159 5.0T2 396 REDUCE2.OS_SOURCE.S.002 1 LINE 80 171 PAGE UM MTA JULY 03, 1981 15:23:30 5.0T4 341 0 OS/360 source for REDUCE2 (version of April 15, 1979). 0 Referenced by comments of: 556/3 1 MON AUG 05/96 18:37:45 Page 324 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00556/003A *REDUCE2 UPDATE U G WATF:RDC2UPD 5.0T2 397 REDUCE2.UPDATE.U.003 1 LINE 73 10 PAGE UM MTA JULY 03, 1981 15:23:40 5.0T4 342 0 Update deck to convert OS/360 source (556/2) to OS/MTS version (556/1). This is written in the language accepted by the Utah update program (556/21). 00556/004A *REDUCE2 CHKPOINT O G ETC:RDC2.CKPT 5.0T2 398 REDUCE2.CHKPOINT.O.004 1 SEQ 80 68 PAGE UM MTA JULY 03, 1981 15:23:46 5.0T4 343 ETC.:RDC2.CKPT 0 File in LISP checkpoint format containing object for REDUCE2. This file is referenced by *REDUCE2. 00556/005A *REDUCE2 CHKPOINT O G WATF:RDC2.NEW 5.0T2 399 REDUCE2.CHKPOINT.O.005 1 SEQ 80 84 PAGE UM MTA JULY 03, 1981 15:23:49 5.0T4 344 0 Checkpoint for REDUCE including the LISP compiler. This version is needed if changes are to be made to REDUCE without regenerating it from scratch (for example it is used to add the integration package). 00556/006A *REDUCE2 *REDUCE2 C *REDUCE2 5.0T2 400 REDUCE2.*REDUCE2.C.006 1 LINE 54 1 PAGE UM MTA JULY 03, 1981 15:23:52 5.0T4 345 *REDUCE2 0 File to which users $SOURCE to invoke REDUCE2. It runs the REDUCE version of LISP and then loads the REDUCE2 checkpoint. 00556/007A *REDUCE2 UPDCOMP C WATF:RDC2JOB 5.0T2 401 REDUCE2.UPDCOMP.C.007 1 LINE 62 1 PAGE UM MTA JULY 03, 1981 15:23:53 5.0T4 346 0 Commands to update and compile REDUCE2. This command file produces a checkpoint for a "test" version of REDUCE in the file "RDC2.NEW" under the id running it and a checkpoint for the production version in the scratch file "-RDC2CKPT". This should be copied into the appropriate ETC: file to install it. 00556/008A *REDUCE2 EXAMPLE S WATF:RDC2TEST 5.0T2 402 REDUCE2.EXAMPLE.S.008 1 LINE 72 3 PAGE UM MTA JULY 03, 1981 15:23:53 5.0T4 347 0 Example of REDUCE2 input. This is the input that produces *REDUCE2EXAMP. 0 Referenced by comments of: 556/9 00556/009A *REDUCE2 EXAMPLE OUTPUT P *REDUCE2EXAMP 5.0T2 403 REDUCE2.EXAMPLE_OUTPUT.P.009 1 LINE 126 7 PAGE UM MTA JULY 03, 1981 15:23:54 5.0T4 348 *REDUCE2EXAMP 0 Example of the output from *REDUCE2. Produced by feeding (556/8) to *REDUCE2. 1 MON AUG 05/96 18:37:45 Page 325 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00556/010A *REDUCE2 LISP OS/MVS SA G WATF:LISP.PR159 5.0T2 404 REDUCE2.LISP_OS/MVS.SA.010 1 LINE 80 191 PAGE UM MTA JULY 03, 1981 15:23:55 5.0T4 349 0 Source for the LISP/360 interpreter (OS/360 version) as distributed with REDUCE2. 0 Referenced by comments of: 556/11 00556/011A *REDUCE2 LISP UPDATE U G WATF:LISPUPD 5.0T2 405 REDUCE2.LISP_UPDATE.U.011 1 LINE 74 28 PAGE UM MTA JULY 03, 1981 15:24:05 5.0T4 350 0 Update to go from OS/360 source (556/10) to version that will run in either OS or MTS depending on the values of certain conditional assembly parameters. These are as follows (all are SETB symbols): &MTS 1 to assemble an MTS version, 0 to assemble an OS/MVS version &HASHING 1 to assemble code to hash atoms onto the object list. 0 to do a linear search of the object list for a new atom. Normally one in MTS, can also be one for OS/MVS version if GETMAIN is capable of getting space for the hash table. If it can't, LISP will not run if &HASHING is one. &MORSTOR 1 to get more storage when almost out. The symbol SBLKSIZ controls when to get more and how much to get. When only SBLKSIZ/32 cells are left after a garbage collection, LISP will attempt to get up to SBLKSIZ/8 more cells (SBLKSIZ more bytes). &MORSTOR is normally on for the MTS version and SBLKSIZ defaults to 16 pages. &MORSTOR can be on for the OS/MVS version, but it probably won't do any good. If more storage has been obtained, then SETSIZE, CONDENSE, and CHKPOINT can no longer be used. A checkpoint file to be RESTOREd must fit in the original space and RESTORE discards all aditional space allocated. The other assembly parameters are the same as in the original version. The following are the changes made to LISP converting it to MTS. 1. The R= parameter on the RUN command controls the initial VM allocation for LISP, not the amount to give back for data managment routines. It will get more if needed, but if it does, CHKPOINT will no longer work. 2. The OPEN function has been changed. For exact details, contact MTA. In almost all cases in MTS, leaving the second parameter NIL will do what you want. 3. VERBOS and PREVALQT both default off. 4. *RAISE, $EOF$, and $EOL$ work as described in the Standard LISP report, except that $EOL$ is returned by READCH only if the argument to READCH is '$EOL$ so REDUCE won't blow up. 5. On input by READ, 'xxx is the same as (QUOTE xxx). Since READ is used by the top level loop, this applies to input there. 6. There are several additional functions: INLNR():integer returns the internal form of the line number of the last line read. BATCH():boolean returns T if called in a batch job, NIL 1 MON AUG 05/96 18:37:45 Page 326 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 otherwise ATTN(U:any):NIL disables LISPs attention interrupt trap if U is NIL MTS():NIL calls MTS SQRT(U:number):number returns the square root of U (as an integer if U is an integer with an exact square root) SETPCHAR(U:char):char sets the prefix character (for input only) to U and returns the old one. This update file is written in the language accepted by the update program distributed with REDUCE (556/21). 00556/012A *REDUCE2 LISP OBJECT OE G ETC:RDC2.LISP 5.0T2 406 REDUCE2.LISP_OBJECT.OE.012 1 LINE 32767 15 PAGE UM MTA JULY 03, 1981 15:24:26 5.0T4 351 ETC.:RDC2.LISP 0 Object for MTS version of LISP. Assembled with all of &MTS, &HASHING, and &MORSTOR on. 00556/013A *REDUCE2 LISP ASSEMBLE C G WATF:LISPASM 5.0T2 407 REDUCE2.LISP_ASSEMBLE.C.013 1 LINE 66 1 PAGE UM MTA JULY 03, 1981 15:24:28 5.0T4 352 0 Commands to update and assemble LISP. Leaves the new object in LISP360.O. 00556/014A *REDUCE2 LISP COMPILER S G WATF:COMPSOU 3 5.0T2 408 REDUCE2.LISP_COMPILER.S.014 1 LINE 80 81 PAGE UM MTA JULY 03, 1981 15:24:29 5.0T4 353 0 LISP/360 compiler and front end. This is the original version distributed with REDUCE. It contains the LISP compiler and functions in standard LISP that are not in LISP360. 00556/015A *REDUCE2 LISP COMPILER U G WATF:COMPUPD 5.0T2 409 REDUCE2.LISP_COMPILER.U.015 1 LINE 63 1 PAGE UM MTA JULY 03, 1981 15:24:33 5.0T4 354 0 Update to change os compiler into version for either MTS or OS/MVS. Initializes the value of MTS* to NIL if running in OS/MVS version of LISP and to T if running in the MTS version of LISP. 00556/016A *REDUCE2 LISP COMPILER O G WATF:FEND 5.0T2 410 REDUCE2.LISP_COMPILER.O.016 1 LINE 80 14 PAGE UM MTA JULY 03, 1981 15:24:34 5.0T4 355 0 Checkpointed LISP/360 front end, MTS version. LISP object format. 00556/017A *REDUCE2 LISP COMPILER O G WATF:COMPILE 5.0T2 411 REDUCE2.LISP_COMPILER.O.017 1 SEQ 80 29 PAGE UM MTA JULY 03, 1981 15:24:35 5.0T4 356 0 Checkpointed LISP compiler. LISP object format. 1 MON AUG 05/96 18:37:45 Page 327 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00556/018A *REDUCE2 LISP COMPILER C G WATF:GENCOMPILE 5.0T2 412 REDUCE2.LISP_COMPILER.C.018 1 LINE 68 1 PAGE UM MTA JULY 03, 1981 15:24:37 5.0T4 357 0 Commands to generate the LISP compiler in COMPILE and the front end in FEND. 00556/019A *REDUCE2 LISP DEBUG S O WATF:LISPBREAK(1) 5.0T2 413 REDUCE2.LISP_DEBUG.S.019 1 LINE 77 3 PAGE UM MTA JULY 03, 1981 15:24:38 5.0T4 358 0 This program (written in LISP) defines two functions: BREAK and UNBREAK and makes them REDUCE commands. BREAK takes a list of function names and sets a breakpoint at the entry and exit to each of them. UNBREAK takes a list of function names and resets the breakpoint at each. All functions must be previously defined. Both BREAK and UNBREAK are defined as FEXPR's so that their arguments are not evaluated. When a function which has a breakpoint set is called, the message ">>> ENTERINT name type args" is typed, where "name" is the name of the function, "type" is SUBR, FSUBR, EXPR, or FEXPR, and "args" are the names of the arguments. When the function exits, the message ">>> EXITING name" is typed. Both messages are followed by the message "LISTENING" and lines are read and passed to EVAL until "T" is entered. The atom "VALUE" will be bound to the result of the function on exit, and the arguments will be bound both times. Conditional breakpoints may be set by making one of the arguments of BREAK a list. CAR of the list is the name of the function and CADR of the list is a condition which must be true for the breakpoint to occur. The condition is tested when the function is called. Example: BREAK (FN (FN2 (EQ ARG1 1))) will always break at function FN and break at FN2 if ARG1 is 1 (assuming ARG1 is the first argument of FN2). 00556/020A *REDUCE2 UPDATE PROGRAM SF G WATF:UPDPGM(1,999) 5.0T2 414 REDUCE2.UPDATE_PROGRAM.SF.020 1 LINE 72 4 PAGE UM MTA JULY 03, 1981 15:24:39 5.0T4 359 0 FORTRAN source for the program that updates the various parts of REDUCE. Same as the original version from Utah except that it now accepts a "./ C xxx" command and ignores it (for comments). It also echos its input commands. 00556/021A *REDUCE2 UPDATE PROGRAM OE G WATF:UPDPGM(1000) 5.0T2 415 REDUCE2.UPDATE_PROGRAM.OE.021 1 LINE 1692 4 PAGE UM MTA JULY 03, 1981 15:24:39 5.0T4 360 0 Referenced by comments of: 556/3, 556/11 00556/022C *REDUCE2 PRINT PROGRAM SF O WATF:RDC2.PRTPGM 5.0T2 416 REDUCE2.PRINT_PROGRAM.SF.022 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 15:24:40 5.0T4 361 0 FORTRAN program to print the REDUCE writeups from Utah. Reads 5 and writes 6. 0 Referenced by comments of: 556/23, 556/24, 556/25, 556/26 1 MON AUG 05/96 18:37:45 Page 328 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00556/023C *REDUCE2 INSTALL GUIDE P S1347 'REDUCE' FMT=FB(1600,80) 11 5.0T2 417 REDUCE2.INSTALL_GUIDE.P.023 1 SEQ 80 11 PAGE UM MTA JULY 03, 1981 15:25:18 5.0T4 362 0 Utah's installation guide for REDUCE. Print using (556/22). 00556/024C *REDUCE2 STANDARD LISP S1347 'REDUCE' FMT=FB(1600,80) 8 5.0T2 418 REDUCE2.STANDARD_LISP..024 1 SEQ 80 25 PAGE UM MTA JULY 03, 1981 15:25:23 5.0T4 363 0 The "Standard LISP Report" defining a dialect of LISP to be used for implementing REDUCE. Print using (556/22). 00556/025C *REDUCE2 LISP/370 REPRT S1347 'REDUCE' FMT=FB(1600,80) 9 5.0T2 419 REDUCE2.LISP/370_REPRT..025 1 SEQ 80 23 PAGE UM MTA JULY 03, 1981 15:25:25 5.0T4 364 0 Report describing how LISP/370 deviates from standard LISP. Print using (556/22). 00556/026C *REDUCE2 USER'S MANUAL S1347 'REDUCE' FMT=FB(1600,80) 10 5.0T2 420 REDUCE2.USER'S_MANUAL..026 1 SEQ 80 33 PAGE UM MTA JULY 03, 1981 15:25:28 5.0T4 365 0 Obsolete and incomplete user's manual for REDUCE, but all Utah has produced so far. Print using (556/22). 00556/027A *REDUCE2 TUTORIAL 1 D G *RDC.LESSON1 5.0T2 421 REDUCE2.TUTORIAL_1.D.027 1 LINE 71 5 PAGE UM MTA JULY 03, 1981 15:25:29 5.0T4 366 *RDC.LESSON1 0 The first of the REDUCE tutorials written by David Stoutemyer at the University of Hawaii. Minor changes have been made to it for MTS. 00556/028A *REDUCE2 TUTORIAL 2 D G *RDC.LESSON2 5.0T2 422 REDUCE2.TUTORIAL_2.D.028 1 LINE 70 3 PAGE UM MTA JULY 03, 1981 15:25:30 5.0T4 367 *RDC.LESSON2 00556/029A *REDUCE2 TUTORIAL 3 D G *RDC.LESSON3 5.0T2 423 REDUCE2.TUTORIAL_3.D.029 1 LINE 71 5 PAGE UM MTA JULY 03, 1981 15:25:32 5.0T4 368 *RDC.LESSON3 00556/030A *REDUCE2 TUTORIAL 4 D G *RDC.LESSON4 5.0T2 424 REDUCE2.TUTORIAL_4.D.030 1 LINE 71 8 PAGE UM MTA JULY 03, 1981 15:25:33 5.0T4 369 *RDC.LESSON4 00556/031A *REDUCE2 TUTORIAL 5 D G *RDC.LESSON5 5.0T2 425 REDUCE2.TUTORIAL_5.D.031 1 LINE 71 7 PAGE UM MTA JULY 03, 1981 15:25:34 5.0T4 370 *RDC.LESSON5 1 MON AUG 05/96 18:37:45 Page 329 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00556/032A *REDUCE2 INTEGRATION S O WATF:INTSOU 5.0T2 426 REDUCE2.INTEGRATION.S.032 1 LINE 80 77 PAGE UM MTA JULY 03, 1981 15:25:36 5.0T4 371 0 Original source for the Cambridge integration package distributed with REDUCE. 00556/033A *REDUCE2 INTEGRATION U O WATF:INTUPD 5.0T2 427 REDUCE2.INTEGRATION.U.033 1 LINE 12 1 PAGE UM MTA JULY 03, 1981 15:25:41 5.0T4 372 0 Deletes one line that causes trouble in the 360 version of LISP. 00556/034A *REDUCE2 INTEGRATION C O WATF:GENINT 5.0T2 428 REDUCE2.INTEGRATION.C.034 1 LINE 61 1 PAGE UM MTA JULY 03, 1981 15:25:42 5.0T4 373 0 Commands to generate the checkpoint file for the integration package in INT.CKPT. Assumes that REDUCE has already been generated. 00556/035A *REDUCE2 INTEGRATION O O ETC:RDC2.INTCHK 5.0T2 429 REDUCE2.INTEGRATION.O.035 1 LINE 80 100 PAGE UM MTA JULY 03, 1981 15:25:42 5.0T4 374 0 LISP checkpoint for REDUCE with the integration package. 00556/036A *REDUCE2 INTEGRATION C O UNSP:REDUCE2.INT 5.0T2 430 REDUCE2.INTEGRATION.C.036 1 LINE 55 1 PAGE UM MTA JULY 03, 1981 15:25:48 5.0T4 375 0 Commands to run REDUCE with the integration package. 00556/037A *REDUCE2 MEMO 420 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M420 5.0T2 431 REDUCE2.MEMO_420.WF.037 1 LINE 73 5 PAGE UM MTA DEC. 04, 1980 09:52:53 5.0T4 376 0 THIS IS COMPUTING CENTER MEMO 420 -- "CHANGES TO *REDUCE." 00557/001 FLOATEST SA O S0564 D4T2 VLO FSNAME=FLOATEST..SA.001(1) 429 5.0T2 432 FLOATEST..SA.001 1 LINE 80 4 PAGE UM DWB JULY 28, 1977 02:51:21 5.0T4 377 0 PROGRAM TO TEST THAT FLOATING-POINT REGISTERS AND PROGRAM MASK ARE PRESERVED ACROSS ABNORMAL PROGRAM EXITS. DESIGNED TO BE RUN BOTH BY $RUN COMMAND AND UNDER CONTROL OF SDS ($DEBUG OR $SET DEBUG=ON AND $RUN). 00557/002 FLOATEST OC O S0564 D4T2 VLO FSNAME=FLOATEST..OC.002(1) 430 5.0T2 433 FLOATEST..OC.002 1 LINE 80 3 PAGE UM DWB JULY 28, 1977 02:51:23 5.0T4 378 00558/001A VIRTUAL MACHINE MAIN PGM SA G MTA:VMN.S 5.0T2 434 VIRTUAL_MACHINE.MAIN_PGM.SA.001 1 LINE 72 67 PAGE UM MTA JULY 03, 1981 15:28:57 5.0T4 379 MTA.:VMN.S 0 PROGRAM TO PROVIDE A SYSTEM/360 OR SYSTEM/370 VIRTUAL MACHINE. USES ASSEMBLY PARAMETERS TO SELECT VIRTUAL 370, 360/67, OR STANDARD 360. ANY OPTION WILL 1 MON AUG 05/96 18:37:45 Page 330 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 RUN ON EITHER A 360/67 OR 370 REAL MACHINE. COPIES S2301 (558/4), *CNFGINFODSECT (654), V370.S (558/2), AND OC.S (558/3). AN ADDITIONAL ASSEMBLY PARAMETER IS PROVIDED TO PRODUCE A STUDENT VIRTUAL MACHINE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 472/1, 558/7 00558/002 VIRTUAL MACHINE V370 SUPPORT SA G MTA:V370.S 5.0T2 435 VIRTUAL_MACHINE.V370_SUPP.SA.002 1 LINE 72 10 PAGE UM MTA JULY 03, 1981 15:29:03 5.0T4 380 MTA.:V370.S 0 COPY SECTION CONTAINING THE 370 INSTRUCTION SIMULATION CODE. 0 Referenced by comments of: 558/1 00558/003 VIRTUAL MACHINE 3066 SUPPORT SA G MTA:OC.S 5.0T2 436 VIRTUAL_MACHINE.3066_SUPP.SA.003 1 LINE 68 6 PAGE UM MTA JULY 03, 1981 15:29:05 5.0T4 381 MTA.:OC.S 0 COPY SECTION CONTAINING THE 3066 SIMULATION CODE. 0 Referenced by comments of: 558/1 00558/004 VIRTUAL MACHINE 2301 SUPPORT SA G MTA:S2301 5.0T2 437 VIRTUAL_MACHINE.2301_SUPP.SA.004 1 LINE 70 6 PAGE UM MTA JULY 03, 1981 15:29:06 5.0T4 382 MTA.:S2301 0 COPY SECTION CONTAINING VIRTUAL 2301 AND 2305 DRUM SUPPORT. THE DRUM IS SIMULATED USING VIRTUAL MEMORY. 0 Referenced by comments of: 558/1 00558/005A VIRTUAL MACHINE DEVICE LIST SA G MTA:V370DEV.UM(1,999) 5.0T2 438 VIRTUAL_MACHINE.DEVICE_LI.SA.005 1 LINE 66 1 PAGE UM MTA JULY 03, 1981 15:29:07 5.0T4 383 MTA.:V370DEV.UM 0 DEVICE LIST FOR UM 470 I/O CONFIGURATION. COPIES V370DEV.MAC (558/6). 00558/006A VIRTUAL MACHINE DEVLIST MACROS SM O MTA:V370DEV.MAC 5.0T2 439 VIRTUAL_MACHINE.DEVLIST_M.SM.006 1 LINE 69 3 PAGE UM MTA JULY 03, 1981 15:29:08 5.0T4 384 MTA.:V370DEV.MAC 0 MACROS, AND SOME CALLS TO THEM, TO MAKE IT EASIER TO ASSEMBLE A DEVICE LIST FOR THE VIRTUAL MACHINE. DOCUMENTATION IS INCLUDED IN THE COMMENTS. 0 Referenced by comments of: 558/5 00558/007A VIRTUAL MACHINE 370 OBJECT OC G MTA:V370 5.0T2 440 VIRTUAL_MACHINE.370_OBJEC.OC.007 1 LINE 10687 18 PAGE UM MTA JULY 03, 1981 15:29:09 5.0T4 385 MTA.:V370 0 OBJECT FOR UM VIRTUAL 370, I.E. (558/1) WITH Â&DUPLEX, Â&M67, Â&ST, AND &S370. 1 MON AUG 05/96 18:37:45 Page 331 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00558/008 VIRTUAL MACHINE WRITEUP P MTA:V67WRUP 5.0T2 441 VIRTUAL_MACHINE.WRITEUP.P.008 1 LINE 75 12 PAGE UM MTA JULY 03, 1981 15:29:11 5.0T4 386 MTA.:V67WRUP 0 WRITEUP TO BE COPIED TO A TN PRINTER. NOTE: WRITEUP IS NOT UP TO DATE. 00559/001A PISTLE *S2L C G MTS:TST.S2L 5.0T2 442 PISTLE.*S2L.C.001 1 LINE 109 1 PAGE UM SHERRY JULY 03, 1981 15:29:12 5.0T4 387 SEG2:*S2L 0 COMMAND FILE TO RUN PISTLE, THE POST-IPL SYSTEM LOADER. INVOKED BY INIT:INITCMD (097/2) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN SEG2:S2FILES. RUNS THE PRINTMAP PROGRAM (559/8) TO INFORM OPERATORS IF SYSTEM MAP CHANGED. AT UM, ALSO USES THE MESSAGE SYSTEM (798) TO SEND A MESSAGE TO THE NAMES CONTAINED IN THE FILE "SEG2:MONITORS", BEGINNING AT LINE 20, TO TELL THEM TO PRINT A NEW MAP. 0 Referenced by comments of: 97/2, 485/39, 513/3, 798/3, 798/4 00559/002A PISTLE SA G W009:PISTLE.S 5.0T2 443 PISTLE..SA.002 1 LINE 106 17 PAGE UM SHERRY JULY 03, 1981 15:29:14 5.0T4 388 W009:PISTLE.S 0 ASSEMBLE WITH COPY:MTS.MACROS (344/3). COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 559/11, 4000/7 00559/003A PISTLE OE G SEG2:S2L 5.0T2 444 PISTLE..OE.003 1 LINE 6816 4 PAGE UM SHERRY AUG. 06, 1981 03:55:34 5.0T4 389 SEG2:S2L 0 Referenced by comments of: 809/7 00559/004A PISTLE S2FILES D MTS:TST.S2FILES 5.0T2 445 PISTLE.S2FILES.D.004 1 LINE 24 1 PAGE UM WSG AUG. 06, 1981 03:55:35 5.0T4 390 SEG2:S2FILES 0 A LIST OF FILES FROM WHICH PISTLE WILL LOAD PROGRAMS AT IPL. 0 Referenced by comments of: 387/9, 809/7 00559/005 PISTLE WRITEUP WF W009:PISTLE.W 5.0T2 446 PISTLE.WRITEUP.WF.005 1 LINE 124 3 PAGE UM SHERRY JULY 03, 1981 15:29:20 5.0T4 391 W009:PISTLE.W 00559/006 PISTLE SETTIME SF G S0564 D4T2 VLO FSNAME=PISTLE.SETTIME.SF.006(1) 445 5.0T2 447 PISTLE.SETTIME.SF.006 1 LINE 54 1 PAGE UM ENGLE AUG. 14, 1977 21:52:29 5.0T4 392 0 PROGRAM RUN BY *S2L TO CALL THE TIME SUBROUTINE (WITH PROTECT OFF) TO CAUSE IT TO INITIALIZE ITSELF. 1 MON AUG 05/96 18:37:45 Page 332 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00559/007 PISTLE SETTIME OC G SEG2:SETTIME 5.0T2 448 PISTLE.SETTIME.OC.007 1 LINE 146 1 PAGE UM ENGLE JULY 03, 1981 15:29:24 5.0T4 393 SEG2:SETTIME 00559/008A PISTLE PRINTMAP SA G SEG2:PRINTMAP(1000) 5.0T2 449 PISTLE.PRINTMAP.SA.008 1 LINE 69 3 PAGE UM SHERRY JULY 03, 1981 15:29:25 5.0T4 394 SEG2:PRINTMAP 0 PROGRAM TO SEE IF THE MAP PRODUCED BY PISTLE HAS CHANGED SINCE THE LAST SYSTEM RELOAD AND PRINT A MESSAGE TO THE OPERATOR IF IT HAS ADVISING THAT A NEW COPY OF THE MAP SHOULD BE PRINTED. 0 Referenced by comments of: 559/1 00559/009A PISTLE PRINTMAP OC G SEG2:PRINTMAP(1,999) 5.0T2 450 PISTLE.PRINTMAP.OC.009 1 LINE 80 3 PAGE UM SHERRY JULY 03, 1981 15:29:26 5.0T4 395 00559/010 PISTLE S2MAP D # SEG2:S2MAP UM SHERRY SEG2:S2MAP@E 0 FILE WHERE PISTLE WRITES THE SYSTEM MAP. 0 Referenced by comments of: 809/7, 1070/5 00559/011 PISTLE LOADSVM DOC WF S1430 4.3T1 VLO FSNAME=PISTLE.LOADSVM_DOC.WF.011(1) 506 5.0T2 451 PISTLE.LOADSVM_DOC.WF.011 1 LINE 88 3 PAGE UM SHERRY APR. 05, 1980 18:13:21 5.0T4 396 0 WRITEUP DESCRIBING THE PISTLE SUBROUTINE INTERFACE LOADSVM (559/2). 00560/001 *TYPEIT C *TYPEIT 5.0T2 452 TYPEIT..C.001 1 LINE 69 2 PAGE UM LIFT JULY 03, 1981 15:29:33 5.0T4 397 *TYPEIT 0 A $SOURCE FILE WHICH CAN BE USED TO AID IN THE PREPARATION OF MATERIAL PRODUCED IN *FORMAT (308). WE HAVE ATTEMPTED TO DISTRIBUTE ALL *FORMAT MACHINE-READABLE DOCUMENTATION IN THE FORM OF DIRECT INPUT TO *FORMAT AND NOT IN THE FORM USED WITH *TYPEIT. 00561/001 *UNEDIT SA G S0564 D4T2 VLO FSNAME=UNEDIT..SA.001(1) 450 5.0T2 453 UNEDIT..SA.001 1 LINE 80 14 PAGE UM MTA JULY 28, 1977 02:52:08 5.0T4 398 0 PROGRAM TO COMPARE THE CURRENT VERSION OF A LINE FILE WITH A PREVIOUS VERSION AND PRODUCE THE APPROPRIATE MTS EDITOR COMMANDS FOR TRANSFORMING THE OLD VERSION TO THE NEW, I.E. THIS PROGRAM PRODUCES AN "UPDATE" DECK WHICH IS IN EDITOR FORMAT RATHER THAN *UPDATE FORMAT. CALL SCANPAR SUBROUTINE (267/3). 0 Referenced by comments of: 267/3 1 MON AUG 05/96 18:37:45 Page 333 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00561/002 *UNEDIT OE G *UNEDIT 5.0T2 454 UNEDIT..OE.002 1 SEQ 2536 2 PAGE UM MTA JULY 03, 1981 15:29:35 5.0T4 399 *UNEDIT 00562/001 *UNLINKER SA G UNLK W062:UNLINKER.S 5.0T2 455 UNLINKER..SA.001 1 LINE 80 39 PAGE UM TIFFANY JULY 03, 1981 15:29:36 5.0T4 400 0 PROGRAM TO CHANGE OS/VS LOAD MODULES INTO MTS OBJECT DECKS. 0 Referenced by comments of: 291/1, 340/1, 341/1, 3031/1 00562/002A *UNLINKER BLKRTN SUBR SA G BLKR W062:BLK.S 5.0T2 456 UNLINKER.BLKRTN_SUBR.SA.002 1 LINE 80 34 PAGE UM TIFFANY JULY 03, 1981 15:29:38 5.0T4 401 0 SUBROUTINE TO READ OS/VS IEBCOPY OR IEHMOVE TAPES. ***************************************************************************** D5.0 changes: Modified since TTR may actually be in next track if record number exceeds maximum record number in a track. ***************************************************************************** 0 Referenced by comments of: 291/1 00562/003A *UNLINKER OE G *UNLINKER 5.0T2 457 UNLINKER..OE.003 1 LINE 8154 10 PAGE UM TIFFANY JULY 03, 1981 15:29:40 5.0T4 402 *UNLINKER 00563/001 CHAR MANIP SUBRS BTD SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.BTD.SA.001(1) 455 5.0T2 458 CHAR_MANIP_SUBRS.BTD.SA.001 1 LINE 80 3 PAGE UBC BRILL AUG. 01, 1973 23:11.19 5.0T4 403 0 THESE ARE THE UBC CHARACTER MANIPULATION SUBROUTINES. 00563/002 CHAR MANIP SUBRS LCOMC/COMC SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.LCOMC/CO.SA.002(1) 456 5.0T2 459 CHAR_MANIP_SUBRS.LCOMC/CO.SA.002 1 LINE 80 3 PAGE UBC BRILL JULY 28, 1977 02:53:01 5.0T4 404 00563/003 CHAR MANIP SUBRS DTB SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.DTB.SA.003(1) 457 5.0T2 460 CHAR_MANIP_SUBRS.DTB.SA.003 1 LINE 80 3 PAGE UBC BRILL AUG. 01, 1973 23:11.29 5.0T4 405 00563/004 CHAR MANIP SUBRS FINDC SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.FINDC.SA.004(1) 458 5.0T2 461 CHAR_MANIP_SUBRS.FINDC.SA.004 1 LINE 80 3 PAGE UBC BRILL AUG. 01, 1973 23:11.35 5.0T4 406 00563/005 CHAR MANIP SUBRS FINDST SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.FINDST.SA.005(1) 459 5.0T2 462 CHAR_MANIP_SUBRS.FINDST.SA.005 1 LINE 80 4 PAGE UBC BRILL AUG. 01, 1973 23:11.40 5.0T4 407 1 MON AUG 05/96 18:37:45 Page 334 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00563/006 CHAR MANIP SUBRS IGC SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.IGC.SA.006(1) 460 5.0T2 463 CHAR_MANIP_SUBRS.IGC.SA.006 1 LINE 80 3 PAGE UBC BRILL AUG. 01, 1973 23:11.45 5.0T4 408 00563/007 CHAR MANIP SUBRS MOVEC SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.MOVEC.SA.007(1) 461 5.0T2 464 CHAR_MANIP_SUBRS.MOVEC.SA.007 1 LINE 80 1 PAGE UBC BRILL AUG. 01, 1973 23:11.51 5.0T4 409 00563/008 CHAR MANIP SUBRS SETC SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.SETC.SA.008(1) 462 5.0T2 465 CHAR_MANIP_SUBRS.SETC.SA.008 1 LINE 80 1 PAGE UBC BRILL AUG. 01, 1973 23:11.58 5.0T4 410 00563/009 CHAR MANIP SUBRS TRNC SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.TRNC.SA.009(1) 463 5.0T2 466 CHAR_MANIP_SUBRS.TRNC.SA.009 1 LINE 80 3 PAGE UBC BRILL AUG. 01, 1973 23:12.02 5.0T4 411 00563/010 CHAR MANIP SUBRS TRNST SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.TRNST.SA.010(1) 464 5.0T2 467 CHAR_MANIP_SUBRS.TRNST.SA.010 1 LINE 80 4 PAGE UBC BRILL AUG. 01, 1973 23:12.07 5.0T4 412 00563/011 CHAR MANIP SUBRS EQUC SA S0564 D4T2 VLO FSNAME=CHAR_MANIP_SUBRS.EQUC.SA.011(1) 465 5.0T2 468 CHAR_MANIP_SUBRS.EQUC.SA.011 1 LINE 80 1 PAGE UBC BRILL MAR. 06, 1974 22:01.57 5.0T4 413 00563/012 CHAR MANIP SUBRS OBJECT OC # (PART OF *LIBRARY) UM BRILL 0 Object part of *LIBRARY (524/1) 00564/001 SYMBOL XREF PROGRAM # (OBSOLETE) 466 D4T2 466 SYMBOL_XREF_PROGRAM..SA.001 1 LINE 80 3 PAGE UM JULY 28, 1977 02:53:57 D4T5 78 0 PROGRAM READS ASSEMBLY SOURCE PROGRAMS FROM SCARDS AND WRITES EACH LINE WHICH CONTAINS A SEQUENCE OR SET SYMBOL ON SPUNCH WITH THE SYMBOL PREFIXED TO THE BEGINNING OF THE LINE (FOR SORTING). 00565/001A STOR PROTECT DIAGNOSTIC SA G MTS:TESTPROTECT(1,999) 5.0T2 469 STOR_PROTECT_DIAGNOSTIC..SA.001 1 LINE 70 3 PAGE UM MTA JULY 03, 1981 15:29:48 5.0T4 414 0 HARDWARE STORAGE PROTECT DIAGNOSTIC TO TEST ALL OF CORE ABOVE X'1000'. PSW RESTART WILL RERUN THE TEST, IF IT STOPS AFTER ONE LOOP (THE CURRENT VERSION LOOPS FOREVER). ASSUMES A 1052 TYPEWRITER AT ADDRESS D40; THIS MAY BE CHANGED BY PATCHING IN A NEW CONSOLE ADDRESS AT LOCATION B02. IBM DOESN'T SEEM TO PROVIDE A DIAGNOSTIC TO PERFORM THE FUNCTIONS PROVIDED BY THIS PROGRAM. THE FOLLOWING ERRORS ARE REPORTED BY NUMBER ALONG WITH THE FAILING ADDRESS AND THE ACTUAL KEY IF RELEVANT: 1. INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 10. 2. KEY NOT EQUAL TO 14 AFTER TEST 1. 3. NO INTERRUPT ON STORE WITH PSW KEY 2 AND STORAGE KEY 10. 4. KEY NOT EQUAL TO 14 OR 16 AFTER TEST 3. (SHOULD REALLY BE 14, BUT SOME MACHINES SET IT TO 16.) 5. STORAGE CHANGED AFTER TEST 3 OR INTERRUPT LOOKING. 1 MON AUG 05/96 18:37:45 Page 335 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 6. NO INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 18. 7. KEY NOT EQUAL TO 1C OR 18 AFTER TEST 6. (SHOULD REALLY BE 18, BUT MOST MACHINES SET IT TO 1C.) 8. INTERRUPT ON LOAD WITH PSW KEY 1 AND STORAGE KEY 18. 9. KEY NOT EQUAL TO 1C AFTER TEST 8. 10. INTERRUPT ON STORE WITH PSW KEY 1 AND STORAGE KEY 18. 11. STORAGE NOT CHANGED CORRECTLY AFTER TEST 10 OR INTERRUPT LOOKING. 12. KEY NOT EQUAL TO 1E AFTER TEST 10. 13. RESET REFERENCE BIT (RRB) INSTRUCTION DOESN'T GIVE CONDITION CODE 3 AFTER TEST 12. 14. KEY NOT EQUAL TO 1A AFTER TEST 13. THE PROGRAM WILL LOOP CONTINUOUSLY. NOTHING WILL BE PRINTED EXCEPT ERROR MESSAGES, EACH OF WHICH WILL BE ACCOMPANIED BY A CONSOLE ALARM. 00565/002A STOR PROTECT DIAGNOSTIC OC G MTS:TESTPROTECT(1000) 5.0T2 470 STOR_PROTECT_DIAGNOSTIC..OC.002 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 15:29:49 5.0T4 415 0 NEEDS AN ABSOLUTE LOADER. IPL ON A REAL OR VIRTUAL MACHINE. 00566/001 *PIL MACLIB SM G S0564 D4T2 VLO FSNAME=PIL.MACLIB.SM.001(1) 470 5.0T2 471 PIL.MACLIB.SM.001 1 SEQ 80 14 PAGE UM TIFFANY JULY 28, 1977 02:54:18 5.0T4 416 0 *PIL IS LATEST VERSION OF THE PITTSBURGH INTERPRETIVE LANGUAGE. NOTE: MACLIB IS THE ONLY MACRO LIBRARY USED IN ASSEMBLING *PIL. 0 Referenced by comments of: 178/1 00566/002 *PIL DSECT SA G S0564 D4T2 VLO FSNAME=PIL.DSECT.SA.002(1) 471 5.0T2 472 PIL.DSECT.SA.002 1 SEQ 80 4 PAGE UM TIFFANY JULY 28, 1977 02:54:19 5.0T4 417 0 COMPS (566/2) THROUGH (566/10) ARE COPY SECTIONS. 0 Referenced by comments of: 566/2 00566/003 *PIL EQUS SA G S0564 D4T2 VLO FSNAME=PIL.EQUS.SA.003(1) 472 5.0T2 473 PIL.EQUS.SA.003 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:21 5.0T4 418 00566/004 *PIL EVOUTPUT SA G S0564 D4T2 VLO FSNAME=PIL.EVOUTPUT.SA.004(1) 473 5.0T2 474 PIL.EVOUTPUT.SA.004 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:23 5.0T4 419 00566/005 *PIL FORMDS SA G S0564 D4T2 VLO FSNAME=PIL.FORMDS.SA.005(1) 474 5.0T2 475 PIL.FORMDS.SA.005 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:25 5.0T4 420 1 MON AUG 05/96 18:37:45 Page 336 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00566/006 *PIL KEYCODES SA G S0564 D4T2 VLO FSNAME=PIL.KEYCODES.SA.006(1) 475 5.0T2 476 PIL.KEYCODES.SA.006 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:27 5.0T4 421 00566/007 *PIL PARTDS SA G S0564 D4T2 VLO FSNAME=PIL.PARTDS.SA.007(1) 476 5.0T2 477 PIL.PARTDS.SA.007 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:29 5.0T4 422 00566/008 *PIL SCRDS SA G S0564 D4T2 VLO FSNAME=PIL.SCRDS.SA.008(1) 477 5.0T2 478 PIL.SCRDS.SA.008 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:31 5.0T4 423 00566/009 *PIL STACKDS SA G S0564 D4T2 VLO FSNAME=PIL.STACKDS.SA.009(1) 478 5.0T2 479 PIL.STACKDS.SA.009 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:33 5.0T4 424 00566/010 *PIL STEPDS SA G S0564 D4T2 VLO FSNAME=PIL.STEPDS.SA.010(1) 479 5.0T2 480 PIL.STEPDS.SA.010 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:35 5.0T4 425 0 Referenced by comments of: 566/2 00566/011 *PIL PILL SA G S1430 4.3T1 VLO FSNAME=PIL.PILL.SA.011(1) 509 5.0T2 481 PIL.PILL.SA.011 1 SEQ 80 5 PAGE UM TIFFANY APR. 05, 1980 18:15:20 5.0T4 426 0 COMPS (566/11) THROUGH (566/48) ARE THE ASM SOURCE FOR *PIL. REQUIRES *CNFGINFODSECT (654) FOR ASSEMBLY. 0 Referenced by comments of: 566/11 00566/012 *PIL READIT SA G S0564 D4T2 VLO FSNAME=PIL.READIT.SA.012(1) 481 5.0T2 482 PIL.READIT.SA.012 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:57:02 5.0T4 427 00566/013 *PIL TYPEIT SA G S0564 D4T2 VLO FSNAME=PIL.TYPEIT.SA.013(1) 482 5.0T2 483 PIL.TYPEIT.SA.013 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:57:14 5.0T4 428 00566/014 *PIL PAGEMSG SA G S0564 D4T2 VLO FSNAME=PIL.PAGEMSG.SA.014(1) 483 5.0T2 484 PIL.PAGEMSG.SA.014 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:57:15 5.0T4 429 00566/015 *PIL CANIT SA G S0564 D4T2 VLO FSNAME=PIL.CANIT.SA.015(1) 484 5.0T2 485 PIL.CANIT.SA.015 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:57:17 5.0T4 430 00566/016 *PIL PIL2 SA G S0564 D4T2 VLO FSNAME=PIL.PIL2.SA.016(1) 485 5.0T2 486 PIL.PIL2.SA.016 1 SEQ 80 11 PAGE UM TIFFANY JULY 28, 1977 02:57:34 5.0T4 431 1 MON AUG 05/96 18:37:45 Page 337 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00566/017 *PIL DSBRK SA G S0564 D4T2 VLO FSNAME=PIL.DSBRK.SA.017(1) 486 5.0T2 487 PIL.DSBRK.SA.017 1 SEQ 80 8 PAGE UM TIFFANY JULY 28, 1977 02:57:48 5.0T4 432 00566/018 *PIL BKDOWN SA G S0564 D4T2 VLO FSNAME=PIL.BKDOWN.SA.018(1) 487 5.0T2 488 PIL.BKDOWN.SA.018 1 SEQ 80 21 PAGE UM TIFFANY JULY 28, 1977 02:57:49 5.0T4 433 00566/019 *PIL FORMPROC SA G S0564 D4T2 VLO FSNAME=PIL.FORMPROC.SA.019(1) 488 5.0T2 489 PIL.FORMPROC.SA.019 1 SEQ 80 44 PAGE UM TIFFANY JULY 28, 1977 02:57:53 5.0T4 434 00566/020 *PIL PILSQRT SA G S0564 D4T2 VLO FSNAME=PIL.PILSQRT.SA.020(1) 489 5.0T2 490 PIL.PILSQRT.SA.020 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:57:54 5.0T4 435 00566/021 *PIL PILATAN SA G S0564 D4T2 VLO FSNAME=PIL.PILATAN.SA.021(1) 490 5.0T2 491 PIL.PILATAN.SA.021 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:57:56 5.0T4 436 00566/022 *PIL PILSINE SA G S0564 D4T2 VLO FSNAME=PIL.PILSINE.SA.022(1) 491 5.0T2 492 PIL.PILSINE.SA.022 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:57:58 5.0T4 437 00566/023 *PIL PILLOGE SA G S0564 D4T2 VLO FSNAME=PIL.PILLOGE.SA.023(1) 492 5.0T2 493 PIL.PILLOGE.SA.023 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:58:00 5.0T4 438 00566/024 *PIL PILETX SA G S0564 D4T2 VLO FSNAME=PIL.PILETX.SA.024(1) 493 5.0T2 494 PIL.PILETX.SA.024 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:58:03 5.0T4 439 00566/025 *PIL LOOKPS SA G S0564 D4T2 VLO FSNAME=PIL.LOOKPS.SA.025(1) 494 5.0T2 495 PIL.LOOKPS.SA.025 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:58:05 5.0T4 440 00566/026 *PIL WANT16 SA G S1430 4.3T1 VLO FSNAME=PIL.WANT16.SA.026(1) 510 5.0T2 496 PIL.WANT16.SA.026 1 SEQ 80 4 PAGE UM TIFFANY APR. 05, 1980 18:15:21 5.0T4 441 0 Copies *CNFGINFODSECT (654). 00566/027 *PIL MOVPOL SA G S0564 D4T2 VLO FSNAME=PIL.MOVPOL.SA.027(1) 496 5.0T2 497 PIL.MOVPOL.SA.027 1 SEQ 80 4 PAGE UM TIFFANY JULY 28, 1977 02:58:09 5.0T4 442 00566/028 *PIL FORTROL SA G S0564 D4T2 VLO FSNAME=PIL.FORTROL.SA.028(1) 497 5.0T2 498 PIL.FORTROL.SA.028 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:58:11 5.0T4 443 1 MON AUG 05/96 18:37:45 Page 338 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00566/029 *PIL RETHEAD SA G S0564 D4T2 VLO FSNAME=PIL.RETHEAD.SA.029(1) 498 5.0T2 499 PIL.RETHEAD.SA.029 1 SEQ 80 5 PAGE UM TIFFANY JULY 28, 1977 02:58:13 5.0T4 444 00566/030 *PIL TALPL SA G S0564 D4T2 VLO FSNAME=PIL.TALPL.SA.030(1) 499 5.0T2 500 PIL.TALPL.SA.030 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:58:15 5.0T4 445 00566/031 *PIL CONVERT SA G S0564 D4T2 VLO FSNAME=PIL.CONVERT.SA.031(1) 500 5.0T2 501 PIL.CONVERT.SA.031 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:58:17 5.0T4 446 00566/032 *PIL STEPMESS SA G S0564 D4T2 VLO FSNAME=PIL.STEPMESS.SA.032(1) 501 5.0T2 502 PIL.STEPMESS.SA.032 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:58:19 5.0T4 447 00566/033 *PIL FUNCS SA G S0564 D4T2 VLO FSNAME=PIL.FUNCS.SA.033(1) 502 5.0T2 503 PIL.FUNCS.SA.033 1 SEQ 80 30 PAGE UM TIFFANY JULY 28, 1977 02:58:32 5.0T4 448 00566/034 *PIL LOPL SA G S0564 D4T2 VLO FSNAME=PIL.LOPL.SA.034(1) 503 5.0T2 504 PIL.LOPL.SA.034 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:58:43 5.0T4 449 00566/035 *PIL DELVALS SA G S0564 D4T2 VLO FSNAME=PIL.DELVALS.SA.035(1) 504 5.0T2 505 PIL.DELVALS.SA.035 1 SEQ 80 25 PAGE UM TIFFANY JULY 28, 1977 02:58:56 5.0T4 450 00566/036 *PIL XFORMX SA G S0564 D4T2 VLO FSNAME=PIL.XFORMX.SA.036(1) 505 5.0T2 506 PIL.XFORMX.SA.036 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:59:09 5.0T4 451 00566/037 *PIL EXTRANS SA G S0564 D4T2 VLO FSNAME=PIL.EXTRANS.SA.037(1) 506 5.0T2 507 PIL.EXTRANS.SA.037 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:59:09 5.0T4 452 00566/038 *PIL TYPEPS SA G S0564 D4T2 VLO FSNAME=PIL.TYPEPS.SA.038(1) 507 5.0T2 508 PIL.TYPEPS.SA.038 1 SEQ 80 15 PAGE UM TIFFANY JULY 28, 1977 02:59:20 5.0T4 453 00566/039 *PIL XPRES SA G S0564 D4T2 VLO FSNAME=PIL.XPRES.SA.039(1) 508 5.0T2 509 PIL.XPRES.SA.039 1 SEQ 80 19 PAGE UM TIFFANY JULY 28, 1977 02:59:31 5.0T4 454 00566/040 *PIL MINDIR SA G S0564 D4T2 VLO FSNAME=PIL.MINDIR.SA.040(1) 509 5.0T2 510 PIL.MINDIR.SA.040 1 SEQ 80 5 PAGE UM TIFFANY JULY 28, 1977 02:59:32 5.0T4 455 00566/041 *PIL HEADINS SA G S0564 D4T2 VLO FSNAME=PIL.HEADINS.SA.041(1) 510 5.0T2 511 PIL.HEADINS.SA.041 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:59:34 5.0T4 456 1 MON AUG 05/96 18:37:45 Page 339 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00566/042 *PIL STROP SA G S0564 D4T2 VLO FSNAME=PIL.STROP.SA.042(1) 511 5.0T2 512 PIL.STROP.SA.042 1 SEQ 80 15 PAGE UM TIFFANY JULY 28, 1977 02:59:36 5.0T4 457 00566/043 *PIL SETUP SA G S0564 D4T2 VLO FSNAME=PIL.SETUP.SA.043(1) 512 5.0T2 513 PIL.SETUP.SA.043 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:59:38 5.0T4 458 00566/044 *PIL SPLIT SA G S0564 D4T2 VLO FSNAME=PIL.SPLIT.SA.044(1) 513 5.0T2 514 PIL.SPLIT.SA.044 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:59:40 5.0T4 459 00566/045 *PIL FORBREAK SA G S0564 D4T2 VLO FSNAME=PIL.FORBREAK.SA.045(1) 514 5.0T2 515 PIL.FORBREAK.SA.045 1 SEQ 80 10 PAGE UM TIFFANY JULY 28, 1977 02:59:50 5.0T4 460 00566/046 *PIL EVAL SA G S0564 D4T2 VLO FSNAME=PIL.EVAL.SA.046(1) 515 5.0T2 516 PIL.EVAL.SA.046 1 SEQ 80 28 PAGE UM TIFFANY JULY 28, 1977 02:59:55 5.0T4 461 00566/047 *PIL TYPARRY SA G S0564 D4T2 VLO FSNAME=PIL.TYPARRY.SA.047(1) 516 5.0T2 517 PIL.TYPARRY.SA.047 1 SEQ 80 12 PAGE UM TIFFANY JULY 28, 1977 03:00:03 5.0T4 462 00566/048 *PIL PROCESS SA G S0564 D4T2 VLO FSNAME=PIL.PROCESS.SA.048(1) 517 5.0T2 518 PIL.PROCESS.SA.048 1 SEQ 80 51 PAGE UM TIFFANY JULY 28, 1977 03:00:07 5.0T4 463 0 Referenced by comments of: 566/11 00566/049 *PIL *PIL OC G *PIL 5.0T2 519 PIL.*PIL.OC.049 1 LINE 928 21 PAGE UM TIFFANY JULY 03, 1981 15:30:24 5.0T4 464 *PIL 00566/050 *PIL PLM WT G S0564 D4T2 VLO FSNAME=PIL.PLM.WT.051(1) 520 5.0T2 520 PIL.PLM.WT.050 1 LINE 256 37 PAGE UM TIFFANY JULY 28, 1977 03:00:13 5.0T4 465 0 TEXT/360 MASTER FILE FOR WRITEUP DESCRIBING THE INTERNAL STRUCTURE OF PIL/2 FOR PROSPECTIVE DEVELOPERS. 00567/001A *1052RTN SA O MTA:1052RTN 5.0T4 372 1052RTN..SA.001 1 LINE 72 23 PAGE UM MTA AUG. 09, 1981 23:16:01 5.0T10 276 0 MTS DEVICE SUPPORT ROUTINES FOR 1052 OPERATOR'S CONSOLE. ALLOWS USE OF 1052 CONSOLE OR 2150 AS AN MTS TERMINAL. AWRITE AND HALTIO ENTRIES ADDED BUT NOT TESTED. ASSEMBLE USING COPY:MTS.MACROS (344/3). 00567/002A *1052RTN OC O *1052RTN 5.0T4 373 1052RTN..OC.002 1 LINE 80 5 PAGE UM MTA AUG. 09, 1981 23:16:05 5.0T10 277 *1052RTN 1 MON AUG 05/96 18:37:45 Page 340 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00568/001 *TIMETALLY # (OBSOLETE) D3.2T1 492 TIMETALLY..SA.01 1 LINE 80 45 PAGE UM MAR. 21, 1975 01:53:09 0 Obsoleted by SDS (600). 00569/001 PCE SNIFFER # (PART OF HASP) UM 0 Distributed as part of HASP (387/23) and (387/24). 00570/001A *MNETRTN SA G W267:MNETRTN.S(1) 5.0T2 521 MNETRTN..SA.001 1 LINE 78 50 PAGE UM EADIE AUG. 06, 1981 03:56:31 5.0T4 466 0 MTS Device Support Routines for the Merit Computer Network interactive service. Assemble using *SYSMAC, COPY:MTS.MACROS (344/3) and *PEXIT (775). COPY's COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1) and COPY:GLOBALSETS (1026/2). 0 Referenced by comments of: 9/1 00570/002A *MNETRTN OC G *MNETRTN 5.0T2 522 MNETRTN..OC.002 1 LINE 11890 10 PAGE UM EADIE AUG. 06, 1981 03:56:40 5.0T4 467 *MNETRTN 00570/003 *MNETRTN ASCII XLATE SA G S0564 D4T2 VLO FSNAME=MNETRTN.ASCII_XLATE.SA.003(1) 525 5.0T2 523 MNETRTN.ASCII_XLATE.SA.003 1 LINE 80 4 PAGE UM EADIE FEB. 05, 1976 00:43:33 5.0T4 468 0 MERIT ASCII/EBCDIC TRANSLATE TABLES MASCEBC AND EBCMASC WHICH ARE USED BOTH BY THE MERIT DSR AND HASP (387). 0 Referenced by comments of: 387/9 00570/004 *MNETRTN ASCII XLATE OC G # (PART OF HASP) UM EADIE 0 Part of SEG2:HASP (387/9). 00571/001 APL LIBRARY WS ADVANCEDE D APL:001ADVANCEDE 5.0T2 524 APL_LIBRARY_WS.ADVANCEDE.D.001 1 LINE 255 6 PAGE UM HELFFRICH JULY 03, 1981 15:30:38 5.0T4 469 APL.:001ADVANCEDE 0 THE APL LIBRARY WORKSPACES MUST BE RESTORED AS FILES UNDER USER ID "APL." USING AS FILE NAMES THE 3 DIGIT (WITH LEADING ZEROS) LIBRARY FILE NUMBER FOLLOWED BY THE WORKSPACE NAME, I.E., USE THE SAME NAMES AS WERE USED TO GENERATE THE DISTRIBUTION TAPE. 1 MON AUG 05/96 18:37:45 Page 341 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00571/002 APL LIBRARY WS APLCOURSE D APL:001APLCOURSE 5.0T2 525 APL_LIBRARY_WS.APLCOURSE.D.002 1 LINE 255 6 PAGE UM HELFFRICH JULY 03, 1981 15:30:39 5.0T4 470 APL.:001APLCOURSE 00571/003 APL LIBRARY WS CLASS D APL:001CLASS 5.0T2 526 APL_LIBRARY_WS.CLASS.D.003 1 LINE 255 7 PAGE UM HELFFRICH JULY 03, 1981 15:30:40 5.0T4 471 APL.:001CLASS 00571/004A APL LIBRARY WS NEWS D APL:001NEWS 5.0T2 527 APL_LIBRARY_WS.NEWS.D.004 1 SEQ 28872 8 PAGE UM HELFFRICH JULY 03, 1981 15:30:41 5.0T4 472 APL.:001NEWS 0 *************************************************************************** D5.0 CHANGES: DOCUMENTS THE USAGE OF THE ")TIME" COMMAND. *************************************************************************** 00571/005 APL LIBRARY WS PLOTFORMA D APL:001PLOTFORMA 5.0T2 528 APL_LIBRARY_WS.PLOTFORMA.D.005 1 LINE 255 6 PAGE UM HELFFRICH JULY 03, 1981 15:30:42 5.0T4 473 APL.:001PLOTFORMA 00571/006 APL LIBRARY WS TYPEDRILL D APL:001TYPEDRILL 5.0T2 529 APL_LIBRARY_WS.TYPEDRILL.D.006 1 LINE 255 4 PAGE UM HELFFRICH JULY 03, 1981 15:30:43 5.0T4 474 APL.:001TYPEDRILL 00571/007 APL LIBRARY WS WSFNS D APL:001WSFNS 5.0T2 530 APL_LIBRARY_WS.WSFNS.D.007 1 LINE 255 3 PAGE UM HELFFRICH JULY 03, 1981 15:30:44 5.0T4 475 APL.:001WSFNS 00571/008 APL LIBRARY WS EIGENVALUE D APL:001EIGENVALUE 5.0T2 531 APL_LIBRARY_WS.EIGENVALUE.D.008 1 SEQ 12980 4 PAGE UM HELFFRICH JULY 03, 1981 15:30:45 5.0T4 476 APL.:001EIGENVALU 00571/009 APL LIBRARY WS BRFNS D APL:001BRFNS 5.0T2 532 APL_LIBRARY_WS.BRFNS.D.009 1 SEQ 8044 3 PAGE UM HELFFRICH JULY 03, 1981 15:30:45 5.0T4 477 APL.:001BRFNS 00571/010 APL LIBRARY WS CATALOG D APL:002CATALOG 5.0T2 533 APL_LIBRARY_WS.CATALOG.D.010 1 LINE 255 4 PAGE UM HELFFRICH JULY 03, 1981 15:30:46 5.0T4 478 APL.:002CATALOG 00571/011 APL LIBRARY WS STP1 D APL:002STP1 5.0T2 534 APL_LIBRARY_WS.STP1.D.011 1 LINE 255 9 PAGE UM HELFFRICH JULY 03, 1981 15:30:47 5.0T4 479 APL.:002STP1 00571/012 APL LIBRARY WS STP2 D APL:002STP2 5.0T2 535 APL_LIBRARY_WS.STP2.D.012 1 LINE 255 6 PAGE UM HELFFRICH JULY 03, 1981 15:30:47 5.0T4 480 APL.:002STP2 1 MON AUG 05/96 18:37:45 Page 342 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00571/013 APL LIBRARY WS STP3 D APL:002STP3 5.0T2 536 APL_LIBRARY_WS.STP3.D.013 1 LINE 255 4 PAGE UM HELFFRICH JULY 03, 1981 15:30:48 5.0T4 481 APL.:002STP3 00571/014 APL LIBRARY WS STP4 D APL:002STP4 5.0T2 537 APL_LIBRARY_WS.STP4.D.014 1 LINE 255 9 PAGE UM HELFFRICH JULY 03, 1981 15:30:49 5.0T4 482 APL.:002STP4 00571/015 APL LIBRARY WS STP5 D APL:002STP5 5.0T2 538 APL_LIBRARY_WS.STP5.D.015 1 LINE 255 4 PAGE UM HELFFRICH JULY 03, 1981 15:30:50 5.0T4 483 APL.:002STP5 00571/016 APL LIBRARY WS STP6 D APL:002STP6 5.0T2 539 APL_LIBRARY_WS.STP6.D.016 1 LINE 255 5 PAGE UM HELFFRICH JULY 03, 1981 15:30:51 5.0T4 484 APL.:002STP6 00571/017 APL LIBRARY WS STP7 D APL:002STP7 5.0T2 540 APL_LIBRARY_WS.STP7.D.017 1 LINE 255 4 PAGE UM HELFFRICH JULY 03, 1981 15:30:52 5.0T4 485 APL.:002STP7 00571/018 APL LIBRARY WS STP8 D APL:002STP8 5.0T2 541 APL_LIBRARY_WS.STP8.D.018 1 LINE 255 5 PAGE UM HELFFRICH JULY 03, 1981 15:30:53 5.0T4 486 APL.:002STP8 00571/019 APL LIBRARY WS COMPLEX D APL:003COMPLEX 5.0T2 542 APL_LIBRARY_WS.COMPLEX.D.019 1 LINE 255 4 PAGE UM HELFFRICH JULY 03, 1981 15:30:53 5.0T4 487 APL.:003COMPLEX 00571/020 APL LIBRARY WS INDEX D APL:003INDEX 5.0T2 543 APL_LIBRARY_WS.INDEX.D.020 1 LINE 255 4 PAGE UM HELFFRICH JULY 03, 1981 15:30:54 5.0T4 488 APL.:003INDEX 00571/021 APL LIBRARY WS UTIL D APL:003UTIL 5.0T2 544 APL_LIBRARY_WS.UTIL.D.021 1 LINE 255 3 PAGE UM HELFFRICH JULY 03, 1981 15:30:54 5.0T4 489 APL.:003UTIL 00571/022 APL LIBRARY WS ALGFORM D APL:005ALGFORM 5.0T2 545 APL_LIBRARY_WS.ALGFORM.D.022 1 LINE 255 6 PAGE UM HELFFRICH JULY 03, 1981 15:30:55 5.0T4 490 APL.:005ALGFORM 00571/023 APL LIBRARY WS COGO D APL:005COGO 5.0T2 546 APL_LIBRARY_WS.COGO.D.023 1 LINE 255 9 PAGE UM HELFFRICH JULY 03, 1981 15:30:56 5.0T4 491 APL.:005COGO 00571/024 APL LIBRARY WS COMPCENT D APL:005COMPCENT 5.0T2 547 APL_LIBRARY_WS.COMPCENT.D.024 1 LINE 255 3 PAGE UM HELFFRICH JULY 03, 1981 15:30:57 5.0T4 492 APL.:005COMPCENT 00571/025 APL LIBRARY WS CW D APL:005CW 5.0T2 548 APL_LIBRARY_WS.CW.D.025 1 LINE 255 7 PAGE UM HELFFRICH JULY 03, 1981 15:30:58 5.0T4 493 APL.:005CW 1 MON AUG 05/96 18:37:45 Page 343 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00571/026 APL LIBRARY WS EDIT D APL:005EDIT 5.0T2 549 APL_LIBRARY_WS.EDIT.D.026 1 LINE 255 7 PAGE UM HELFFRICH JULY 03, 1981 15:30:59 5.0T4 494 APL.:005EDIT 00571/027 APL LIBRARY WS MATRIXALG D APL:005MATRIXALG 5.0T2 550 APL_LIBRARY_WS.MATRIXALG.D.027 1 LINE 255 8 PAGE UM HELFFRICH JULY 03, 1981 15:31:00 5.0T4 495 APL.:005MATRIXALG 00571/028A APL LIBRARY WS SNOBOL D APL:005SNOBOL 5.0T2 551 APL_LIBRARY_WS.SNOBOL.D.028 1 SEQ 17176 5 PAGE UM HELFFRICH JULY 03, 1981 15:31:00 5.0T4 496 APL.:005SNOBOL 0 THIS SNOBOL INTERPRETER, WHICH DIDN'T WORK PREVIOUSLY, WAS FIXED BY A USER. 00571/029 APL LIBRARY WS SRADEMO D APL:005SRADEMO 5.0T2 552 APL_LIBRARY_WS.SRADEMO.D.029 1 LINE 255 9 PAGE UM HELFFRICH JULY 03, 1981 15:31:01 5.0T4 497 APL.:005SRADEMO 00571/030 APL LIBRARY WS KINGDOM D APL:006KINGDOM 5.0T2 553 APL_LIBRARY_WS.KINGDOM.D.030 1 SEQ 17208 5 PAGE UM HELFFRICH JULY 03, 1981 15:31:02 5.0T4 498 APL.:006KINGDOM 0 XM6 APL REWORK OF ALBERTA'S SV APL 'KINGDOM' SIMULATION GAME. 00571/031A APL LIBRARY WS TESTS D APL:999TESTS 5.0T2 554 APL_LIBRARY_WS.TESTS.D.031 1 SEQ 3080 2 PAGE UM HELFFRICH JULY 03, 1981 15:31:03 5.0T4 499 APL.:999TESTS 0 WORKSPACE INTENDED FOR PROVIDING A TEST FACILITY FOR THE TRIAL OF NEW APL DEVICES. 00572/001 BLOKLETR SUBR SA G BKLT W059:BLOKLETR.S 5.0T2 555 BLOKLETR_SUBR..SA.001 1 LINE 80 11 PAGE UM VALERIO JULY 03, 1981 15:31:04 5.0T4 500 0 SUBROUTINE CALLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS. 0 Referenced by comments of: 555/2 00572/002 BLOKLETR SUBR OC G # (PART OF RESIDENT SYSTEM) UM VALERIO 0 Object part of Resident System (468) 00573/001 MTS VOLUME 5 MASTER WT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_5.MASTER.WT.001(1) 519 5.0T2 556 MTS_VOLUME_5.MASTER.WT.001 1 SEQ 132 248 PAGE UM MANUAL APR. 05, 1980 18:17:25 5.0T5 1 0 TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" OF THE UM MTS MANUALS, APRIL 1980. EDITOR: RICHARD A. SALISBURY 1 MON AUG 05/96 18:37:45 Page 344 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00573/002 MTS VOLUME 5 PRINT PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_5.PRINT.PT.002(1) 520 5.0T2 557 MTS_VOLUME_5.PRINT.PT.002 1 SEQ 132 404 PAGE UM MANUAL APR. 05, 1980 18:17:37 5.0T5 2 0 TEXT/360 PRINT FILE. 00573/003 MTS VOLUME 5 LOADER MAP P S1143 D4.1T1 VLO FSNAME=MTS_VOLUME_5.LOADER_MAP.P.003(1) 346 5.0T2 558 MTS_VOLUME_5.LOADER_MAP.P.003 1 SEQ 128 2 PAGE UM MANUAL MAY 13, 1978 17:47:12 5.0T5 3 0 PRINTED OUTPUT FOR THE EXAMPLE LOADER MAP IN VOLUME 5. 00573/004 MTS VOLUME 5 INDEX SOURCE D S1430 4.3T1 VLO FSNAME=MTS_VOLUME_5.INDEX_SOURCE.D.004(1) 521 5.0T2 559 MTS_VOLUME_5.INDEX_SOURCE.D.004 1 SEQ 145 6 PAGE UM MANUAL APR. 05, 1980 18:17:44 5.0T5 4 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 5. 00574/001A MTS VOLUME 10 MASTER WT S0546 MTSV10 'MTS MANUALS' POSN=NEWM3.V10 5.0T2 560 MTS_VOLUME_10.MASTER.WT.001 1 SEQ 150 98 PAGE UM MANUAL JULY 03, 1981 15:34:06 5.0T5 5 0 TEXT/360 MASTER FOR VOLUME 10 "BASIC IN MTS" OF THE UM MTS MANUALS, DECEMBER 1980. EDITOR: EDWARD J. FRONCZAK 00574/002A MTS VOLUME 10 OUTPUT P S0546 MTSV10 'MTS MANUALS' POSN=VOL10DEC80 5.0T2 561 MTS_VOLUME_10.OUTPUT.P.002 1 SEQ 70 227 PAGE UM MANUAL JULY 03, 1981 15:34:28 5.0T5 6 0 THIS FILE SHOULD BE COPIED DIRECTLY TO A PRINTER. IT IS NOT A TEXT/360 PRINT FILE; IT IS THE OUTPUT FROM *PRINT WITH AN INDEX INSERTED. 00575/001A MTS VOLUME 4 MASTER WT S0616 MTSV4 'MTS MANUALS' POSN=NEWM5.V4 5.0T2 562 MTS_VOLUME_4.MASTER.WT.001 1 SEQ 132 465 PAGE UM MANUAL JULY 03, 1981 15:36:20 5.0T5 7 0 TEXT/360 MASTER FOR VOLUME 4 "TERMINALS AND TAPES" OF THE UM MTS MANUALS, DECEMBER 1980. EDITOR: RICHARD A. SALISBURY 00575/002A MTS VOLUME 4 PRINT PT S0616 MTSV4 'MTS MANUALS' POSN=PRINT5.V4 5.0T2 563 MTS_VOLUME_4.PRINT.PT.002 1 SEQ 132 536 PAGE UM MANUAL JULY 03, 1981 15:36:35 5.0T5 8 0 TEXT/360 PRINT FILE. 00575/003A MTS VOLUME 4 INDEX SOURCE D S0616 MTSV4 'MTS MANUALS' POSN=V4INDEXSOU.5 5.0T2 564 MTS_VOLUME_4.INDEX_SOURCE.D.003 1 SEQ 120 11 PAGE UM MANUAL JULY 03, 1981 15:37:15 5.0T5 9 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 4. 1 MON AUG 05/96 18:37:45 Page 345 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00576/001 CVTOMR SA G S0564 D4T2 VLO FSNAME=CVTOMR..SA.001(1) 567 5.0T2 565 CVTOMR..SA.001 1 LINE 80 15 PAGE UM DWB JULY 28, 1977 03:07:26 5.0T5 10 0 SUBROUTINE CALLED BY BOTH HASP (ONLY IF FIRST CARD FOLLOWING A DECK (S8) CARD IS AN OMR CARD) AND MTS (FOR ALL OTHER CONVERSION) TO CONVERT OMR CARDS TO EBCDIC. NOTE: THIS ROUTINE CURRENTLY HANDLES THE WATERLOO OMR CARD FORMAT (2-4-6 MARK IN COLUMN 1), AND THE UM MTS-AND-FORTRAN CARD (1-5-7 MARK IN COLUMN 1). 00576/002 CVTOMR OC G # (PART OF RESIDENT SYSTEM) UM DWB 0 Object part of Resident System (468) 00577/001A MACHINE CHECK RECOVERY 370 MCHCCH SA G MTA:MCHCCH.S 5.0T2 566 MACHINE_CHECK_RECOVERY.37.SA.001 1 LINE 80 14 PAGE UM MTA JULY 03, 1981 15:37:32 5.0T5 11 MTA.:MCHCCH.S 0 370 MODEL-INDEPENDENT MACHINE AND CHANNEL CHECK HANDLER. ASSEMBLE USING COPY:SETPARM (653), *SYSMAC, MCHMAC (577/5), AND COPY:MISC.MACROS (728). COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CMDAREADSECT (531/19), COPY:GLOBALS (1026/3), AND COPY:BJPDSCT (650/3). *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONTAINS DISK MANAGER CHANGES AND BUG FIXES. *********************************************************************************** 0 Referenced by comments of: 577/6, 589/2, 655/4 00577/002A MACHINE CHECK RECOVERY 370 MCHCCH OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00577/003 MACHINE CHECK RECOVERY 370 LOGGER SA G S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.37.SA.055(1) 607 5.0T2 567 MACHINE_CHECK_RECOVERY.37.SA.003 1 LINE 80 4 PAGE UBC MTA MAR. 21, 1975 01:55:46 5.0T5 12 0 THIS IS A PROGRAM THAT PRODUCES ON SPUNCH A STANDALONE PROGRAM TO BE WRITTEN TO A TAPE AND IPL'D AFTER A HARD MACHINE CHECK. THE STANDALONE PROGRAM COPIES THE 370 MACHINE CHECK RECORD (I.E. PSA PLUS EXTENDED LOGOUT AREA) TO THE SECOND FILE OF THE TAPE FROM WHICH IT WAS IPL'D. THE RECORD ON TAPE HAS THE SAME FORMAT AS NORMAL MTS MACHINE CHECK LOGOUTS. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND COPY:PSA (162). THIS PROGRAM HAS NEVER BEEN USED AT UM. 00577/004 MACHINE CHECK RECOVERY 370 LOGGER OC G S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.37.OC.056(1) 608 5.0T2 568 MACHINE_CHECK_RECOVERY.37.OC.004 1 LINE 80 3 PAGE UBC MTA MAR. 21, 1975 01:55:49 5.0T5 13 1 MON AUG 05/96 18:37:45 Page 346 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00577/005A MACHINE CHECK RECOVERY MACROS SM G MTA:MCHMAC 5.0T2 569 MACHINE_CHECK_RECOVERY.MA.SM.005 1 LINE 72 29 PAGE UM MTA JULY 03, 1981 15:37:42 5.0T5 14 MTA.:MCHMAC 0 MACROS FOR ASSEMBLING EREP AND MACHINE CHECK RECOVERY. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CHANGED FOR STC'S PM2 PROGRAM AND OTHER STUFF. *********************************************************************************** 0 Referenced by comments of: 531/7, 577/1, 577/6, 589/2, 589/4, 589/5, 589/6, 589/8, 655/4 00577/006A MACHINE CHECK RECOVERY MCHSUBR SA G MTA:MCHSUBR(1,999) 5.0T2 570 MACHINE_CHECK_RECOVERY.MC.SA.006 1 LINE 78 12 PAGE UM MTA JULY 03, 1981 15:37:46 5.0T5 15 MTA.:MCHSUBR 0 MCHCCH (577/1) HAS A WXTRN FOR MCHSUBR AND IF IT IS PRESENT, MCHCCH CALLS IT TO DO MODEL DEPENDENT RECOVERY FOR A MACHINE CHECK. THIS VERSION OF MCHSUBR (THE ONLY ONE SO FAR) IS FOR THE AMDAHL 470 AND IS A NOP ON ANY OTHER MACHINE. IT CAN BE DELETED FROM THE SYSTEM IF NOT NEEDED. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), COPY:PSA (162), AND *CNFGINFODSECT (654). ASSEMBLE USING MCHMAC (577/5) AND COPY:SETPARM (653). 00577/007A MACHINE CHECK RECOVERY MCHSUBR OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00577/008 MACHINE CHECK RECOVERY GETLOGS SA G MTA:GETLOGS(1000) 5.0T2 571 MACHINE_CHECK_RECOVERY.GE.SA.008 1 LINE 69 3 PAGE UM MTA JULY 03, 1981 15:37:48 5.0T5 16 MTA.:GETLOGS 0 PROGRAM TO RETREIVE LOGS FROM THE CPS DISK ON AN AMDAHL 470 AND WRITE THEM (FORMATTED) ON SPRINT. WHEN RUN, IT PRINTS (ON SERCOM) THE KEY FOR ALL LOGS ON THE DISK AND ASKS WHICH ONE YOU WANT (ON GUSER). RUN WITH PROT=OFF. 00577/009 MACHINE CHECK RECOVERY GETLOGS OC G MTA:GETLOGS(1,999) 5.0T2 572 MACHINE_CHECK_RECOVERY.GE.OC.009 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 15:37:49 5.0T5 17 00577/010 MACHINE CHECK RECOVERY INIT:MCFILE D # INIT:MCFILE UM MTA INIT:MCFILE@E 0 LOG FILE USED BY THE CMDSTAT PICKUP PROGRAM (*CMD) TO SAVE TYPE 10 (MACHINE AND CHANNEL CHECK) RECORDS. 0 Referenced by comments of: 531/5, 655/3 1 MON AUG 05/96 18:37:45 Page 347 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00578/001A RSF D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=RSF 5.0T4 374 RSF.D5.0_MASTER.SA.001 1 LINE 80 90 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:16:07 5.0T10 278 0 REALLY SHARED FILES (RSF) PORTION OF MTS. COPIES *GFINFODSECT (593), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 42/2, 143/1, 593/1 00578/002A RSF UPDATE UC G MTS:RSFUPD 5.0T4 375 RSF.UPDATE.UC.002 1 LINE 78 16 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:16:10 5.0T10 279 MTS:RSFUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=RSF. 00578/003A RSF OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00578/004A RSF L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=RSF.LIST 5.0T4 376 RSF..L.004 1 LINE 133 228 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:16:17 5.0T10 280 00579/001A LOW CORE SYMBOL TABLES SYSDEFS SA G MTS:SYSDEFS(1,999) 5.0T4 377 LOW_CORE_SYMBOL_TABLES.SY.SA.001 1 LINE 70 4 PAGE UM MTS MTA AUG. 09, 1981 23:16:21 5.0T10 281 MTS:SYSDEFS 0 THIS IS A LOW-CORE SYMBOL TABLE FOR THE DEFINITION OF SYMBOLS USED FOR SYSTEMS WORK, I.E. NOT REQUIRED BY USER PROGRAMS. TO REFERENCE THIS SYMBOL TABLE, THE FOLLOWING 3 LOADER CARDS ARE REQUIRED AT THE END OF AN OBJECT DECK: RIP SYSDEFS LCS LCSYMBOL LCS SYSDEFS COPIES COPY:GLOBALS (1026/3). 0 Referenced by comments of: 682/36, 806/1 00579/002A LOW CORE SYMBOL TABLES SYSDEFS OC G # (PART OF RESIDENT SYSTEM) UM MTS MTA 0 Object part of Resident System (468) 00579/003 LOW CORE SYMBOL TABLES COPY:SYSDEFS OC G COPY:SYSDEFS 5.0T4 378 LOW_CORE_SYMBOL_TABLES.CO.OC.003 1 LINE 24 1 PAGE UM MTS MTA AUG. 09, 1981 23:16:22 5.0T10 282 COPY:SYSDEFS 0 CONTAINS THE 3 LOADER CARDS: RIP SYSDEFS 1 MON AUG 05/96 18:37:45 Page 348 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LCS LCSYMBOL LCS SYSDEFS 0 Referenced by comments of: 9/4, 67/40, 482/61, 534/6, 655/5, 682/40, 682/45, 752/5, 769/15, 804/2, 821/11, 1030/3, 1070/4 00579/004C LOW CORE SYMBOL TABLES CCDEFS SA G MTS:CCDEFS(1,999) 5.0T4 379 LOW_CORE_SYMBOL_TABLES.CC.SA.004 1 LINE 70 1 PAGE UM MTS MTA AUG. 09, 1981 23:16:23 5.0T10 283 MTS:CCDEFS 0 Contains source for a low core symbol table which is CC-callable from system routines. 00579/005C LOW CORE SYMBOL TABLES CCDEFS OC G # (PART OF RESIDENT SYSTEM) UM MTS MTA 0 Object part of Resident System (468) 00579/006C LOW CORE SYMBOL TABLES COPY:CCDEFS OC G COPY:CCDEFS 5.0T4 380 LOW_CORE_SYMBOL_TABLES.CO.OC.006 1 LINE 24 1 PAGE UM MTS MTA AUG. 09, 1981 23:16:25 5.0T10 284 COPY:CCDEFS 0 Contains 3 loader cards: RIP CCDEFS LCS LCSYMBOL LCS CCDEFS 00579/007C LOW CORE SYMBOL TABLES CCSYMBOL SA G MTS:CCSYMBOL(1,999) 5.0T4 381 LOW_CORE_SYMBOL_TABLES.CC.SA.007 1 LINE 71 1 PAGE UM MTS MTA AUG. 09, 1981 23:16:26 5.0T10 285 MTS:CCSYMBOL 0 Contains source for a low core symbol table which is CC-callable from user routines. **************************************************************************** D5.0 version: Currently, even the user routines are only callable in system mode, but this may change if and when we agree to release the Coding Conventions to the "public" and provide entries in the gate (4000) for the CC routines (or get rid of the gate completely). **************************************************************************** 00579/008C LOW CORE SYMBOL TABLES CCSYMBOL OC G # (PART OF RESIDENT SYSTEM) UM MTS MTA 0 Object part of Resident System (468) 00579/009C LOW CORE SYMBOL TABLES COPY:CCSYMBOL OC G COPY:CCSYMBOL 5.0T4 382 LOW_CORE_SYMBOL_TABLES.CO.OC.009 1 LINE 24 1 PAGE UM MTS MTA AUG. 09, 1981 23:16:27 5.0T10 286 COPY:CCSYMBOL 0 Contains 3 loader cards: RIP CCSYMBOL 1 MON AUG 05/96 18:37:45 Page 349 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LCS LCSYMBOL LCS CCSYMBOL 0 Referenced by comments of: 1051/19, 1051/21, 1070/4 00579/010C LOW CORE SYMBOL TABLES COPY:DEFS OC G COPY:DEFS 5.0T4 383 LOW_CORE_SYMBOL_TABLES.CO.OC.010 1 LINE 24 1 PAGE UM MTS MTA AUG. 09, 1981 23:16:28 5.0T10 287 COPY:DEFS 0 Contains the following loader cards: RIP SYSDEFS RIP CCSYMBOL RIP CCDEFS RIP MNTRLCS RIP MNTRPRV LCS LCSYMBOL LCS SYSDEFS LCS CCSYMBOL LCS CCDEFS LCS MNTRLCS LCSPR MNTRPRV 0 Referenced by comments of: 682/23, 724/2, 823/20 00579/011C LOW CORE SYMBOL TABLES COPY:ZDEFS OC G COPY:ZDEFS 5.0T4 384 LOW_CORE_SYMBOL_TABLES.CO.OC.011 1 LINE 24 1 PAGE UM MTS MTA AUG. 09, 1981 23:16:29 5.0T10 288 COPY:ZDEFS 0 Contains ALI records to equate some of the "Z" symbols, e.g., ZREAD, to the corresponding LCSYMBOL name READ. 00579/012C LOW CORE SYMBOL TABLES COPY:MNTRDEFS OC G COPY:MNTRDEFS 5.0T4 385 LOW_CORE_SYMBOL_TABLES.CO.OC.012 1 LINE 24 1 PAGE UM MTS MTA AUG. 09, 1981 23:16:30 5.0T10 289 COPY:MNTRDEFS 0 Contains the following loader cards: RIP SYSDEFS RIP MNTRLCS RIP MNTRPRV LCS LCSYMBOL LCS SYSDEFS LCS MNTRLCS LCSPR MNTRPRV 00580/001A *INDEX SP O INDX S0027 DISTRB FSNAME=INDEX 5.0T2 573 INDEX..SP.001 1 LINE 80 16 PAGE UM ENGLE FEB. 04, 1981 14:37:35 5.0T5 18 0 PROGRAM TO PRODUCE MANUAL INDICES. WILL PRODUCE INDEX AS TEXT/360 INPUT, FORMAT INPUT, OR REGULAR PRINTED OUTPUT. 0 Referenced by comments of: 512/5, 573/4, 575/3, 665/3, 669/3, 675/3, 676/3, 683/3, 717/3, 733/3, 741/3, 748/3, 766/3, 805/3 1 MON AUG 05/96 18:37:45 Page 350 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00580/002A *INDEX UC O S0027 DISTRB FSNAME=INDEXUPD 5.0T2 574 INDEX..UC.002 1 LINE 72 1 PAGE UM ENGLE FEB. 04, 1981 14:38:59 5.0T5 19 00580/003A *INDEX OC O *INDEX 5.0T2 575 INDEX..OC.003 1 LINE 29694 11 PAGE UM ENGLE JULY 03, 1981 15:38:10 5.0T5 20 *INDEX 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00581/001 INDEXGT SA G # (OBSOLETE) D3T5 5 INDEXGT..SA.1 1 LINE 80 3 PAGE UM AUG. 02, 1973 00:15.05 00582/001 LIBRARY INDEX PROGRAM C # (OBSOLETE) D3T5 7 LIBRARY_INDEX_PROGRAM..C.1 1 LINE 138 1 PAGE UM AUG. 02, 1973 00:15.08 00583/001 KWIC/360 SOURCE SP S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_A.SP.001(1) 621 5.0T2 576 KWIC/360.PHASE_A.SP.001 1 LINE 80 30 PAGE UM DWB JUNE 04, 1975 22:19:07 5.0T5 21 0 Modified version of IBM program 360D-06.7.014. Paper documentation was included with Distribution 4.0 and is available upon request from Don Boettner at UM. Source for phases A through D, the SCAN2 and TRANS subroutines, and input for test run as follows: Lines 1068-1083 are primary stopwords Lines 1084-1085 are secondary stopwords Lines 1086-LAST are input cards 00583/002 KWIC/360 PHASE A ET AL OC S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_A.OC.002(1) 622 5.0T2 577 KWIC/360.PHASE_A.OC.002 1 SEQ 80 7 PAGE UM DWB JULY 28, 1977 03:22:37 5.0T5 22 0 Object for Phase A, SCAN2 subroutine, and TRANS subroutine. Ends with a "$CONTINUE WITH *PL1LIB" card. 00583/003 KWIC/360 PHASE B OC S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_B.OC.004(1) 623 5.0T2 578 KWIC/360.PHASE_B.OC.004 1 SEQ 80 3 PAGE UM DWB JULY 28, 1977 03:22:39 5.0T5 23 0 Ends with a "$CONTINUE WITH *PL1LIB" card. 00583/004 KWIC/360 PHASE C OC S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_C.OC.006(1) 624 5.0T2 579 KWIC/360.PHASE_C.OC.006 1 SEQ 80 4 PAGE UM DWB JULY 28, 1977 03:22:42 5.0T5 24 0 Ends with a "$CONTINUE WITH *PL1LIB" card. 1 MON AUG 05/96 18:37:45 Page 351 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00583/005 KWIC/360 PHASE D OC S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_D.OC.008(1) 625 5.0T2 580 KWIC/360.PHASE_D.OC.008 1 SEQ 80 4 PAGE UM DWB JULY 28, 1977 03:22:44 5.0T5 25 0 Ends with a "$CONTINUE WITH *PL1LIB" card. 00584/001 QUIC PHASE 1 SP S0564 D4T2 VLO FSNAME=QUIC.PHASE_1.SP.001(1) 626 5.0T2 581 QUIC.PHASE_1.SP.001 1 LINE 81 35 PAGE UM DWB MAY 13, 1976 20:59:32 5.0T5 26 0 This is the IBM program 360D-06.7.022. It is used as follows: run Phase 1 (QUIC1), then *SORT (303), then Phase 2 (QUIC2). Paper documentation was enclosed with Distribution 3.0 and is available upon request from Don Boettner at UM. The source for Phase 1 is in lines 252 through 1249. The source for Phase 2 is in lines 1347 through 1496. Test data is in lines 1269 through 1320. 00584/002 QUIC PHASE 1 OC S0564 D4T2 VLO FSNAME=QUIC.PHASE_1.OC.002(1) 627 5.0T2 582 QUIC.PHASE_1.OC.002 1 LINE 80 21 PAGE UM DWB JULY 28, 1977 03:23:21 5.0T5 27 00584/003 QUIC PHASE 2 OC S0564 D4T2 VLO FSNAME=QUIC.PHASE_2.OC.004(1) 628 5.0T2 583 QUIC.PHASE_2.OC.004 1 LINE 80 4 PAGE UM DWB JULY 28, 1977 03:23:22 5.0T5 28 00585/001 CALC CLS SA G S1430 4.3T1 VLO FSNAME=CALC_CLS..SA.001(1) 531 5.0T2 584 CALC_CLS..SA.001 1 LINE 92 54 PAGE UM FRONCZAK APR. 05, 1980 18:18:15 5.0T5 29 0 THIS IS THE SOURCE FOR THE MTS $CALC COMMAND. THE CALC COMMAND IS IMPLEMENTED AS A COMMAND LANGUAGE SUB-SYSTEM (CLS). ASSEMBLE USING COPY:MTS.MACROS (344/3). LINES 1,5 CONTAIN MTS COMMANDS FOR ASSEMBLY. 00585/002 CALC CLS OC G *CLSCALC 5.0T2 585 CALC_CLS..OC.002 1 LINE 80 5 PAGE UM FRONCZAK JULY 03, 1981 15:38:26 5.0T5 30 *CLSCALC 00586/001 COST SUBR SA G S0564 D4T2 VLO FSNAME=COST_SUBR..SA.001(1) 631 5.0T2 586 COST_SUBR..SA.001 1 LINE 80 8 PAGE UM ENGLE JAN. 25, 1977 15:31:03 5.0T5 31 0 SUBROUTINE TO COMPUTE CURRENT COST OF RUN. (E.G. CALLED BY MTS FOR $DISPLAY $). COPIES ACCFORMAT (104/1), AND GRDEF (104/72). 00586/002 COST SUBR OC G # (PART OF RESIDENT SYSTEM) UM ENGLE 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 352 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00587/001 RESEQUENCING PGM SA G MTS:RSEQ(1,999) 632 5.0T2 587 RESEQUENCING_PGM..SA.001 1 LINE 69 3 PAGE UBC HOGG DWB JULY 03, 1981 15:38:28 5.0T5 32 MTS.:RSEQ 0 TO USE THIS PROGRAM: $RUN RSEQ SCARDS=INPUT SPUNCH=OUTPUT SERCOM=ERRORS PAR=SEQNAME WHERE SEQNAME IS A 1 TO 8 CHARACTER SEQUENCE FIELD INITIALIZER. IF OMITTED, THE SEQUENCE DEFAULTS TO 00000001, 00000002, ETC. IF THE LAST CHARACTER OF SEQNAME IS 1, THE SEQUENCING TAKES PLACE AT THAT COLUMN. FOR EXAMPLE, IF PAR=BARF IS GIVEN, THE SEQUENCE IS BARF0001, BARF0002, ETC. IF PAR=BARF01 IS GIVEN, THE SEQUENCE IS BARF0100, BARF0200, ETC. SEQUENCING INTRUDES INTO THE ALPHABETIC FIELD IF NECESSARY. FOR EXAMPLE, THE SEQUENCE ID FOLLOWING BARF9999 IS BARG0000. WRITES ON SPUNCH @I TO PRESERVE INPUT LINE NUMBERS. 00587/002 RESEQUENCING PGM OC G MTS:RSEQ(1000) 5.0T2 588 RESEQUENCING_PGM..OC.002 1 LINE 80 2 PAGE UBC HOGG DWB JULY 03, 1981 15:38:30 5.0T5 33 00588/001 INTERCOM SA EAIC # (OBSOLETE) D4T2 634 INTERCOM..SA.001 1 LINE 80 13 PAGE UM FEB. 13, 1975 23:51:52 0 INTER-CPU COMMUNICATION PROGRAM USED ON 360/67 BY SUPERVISOR AND MACHINE CHECK ERROR RECOVERY. MODIFIED FROM TSS/360. 00589/001 CHANNEL CHECK RECOVERY 360/67 SA G # (OBSOLETE) D4T2 635 CHANNEL_CHECK_RECOVERY.36.SA.001 1 LINE 80 8 PAGE UM FEB. 13, 1975 23:53:49 00589/002 CHANNEL CHECK RECOVERY 370 CCHSUBR SA G S0564 D4T2 VLO FSNAME=CHANNEL_CHECK_RECOVERY.37.SA.003(1) 636 5.0T2 589 CHANNEL_CHECK_RECOVERY.37.SA.002 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 03:32:09 5.0T5 34 0 MCHCCH (577/1) HAS A WXTRN FOR CCHSUBR AND IF IT IS PRESENT, MCHCCH CALLS IT TO DO MODEL DEPENDENT RECOVERY FOR A CHANNEL CHECK. THIS VERSION OF CCHSUBR IS SIMPLY AN INTERFACE WHICH LOOKS AT THE MODEL NUMBER AND CHANNEL TYPE AND CALLS ONE OF IGFC60 (589/4), IGFC70 (589/5), IGFC80 (589/6), OR A#VCCH47 (589/8). THESE ARE REFERENCED WITH WXTRNS AND MAY BE DELETED FROM THE SYSTEM IF NOT NEEDED. ASSEMBLE USING MCHMAC (577/5). 360/67 I/O INBOARD ERROR RECORDING. MODIFIED FROM TSS/360. 0 Referenced by comments of: 589/8 00589/003 CHANNEL CHECK RECOVERY 370 CCHSUBR OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00589/004 CHANNEL CHECK RECOVERY IGFC60 SA S0938 FSAVE2 VLO FSNAME=VS2CCH(1) 128 5.0T2 590 CHANNEL_CHECK_RECOVERY.IG.SA.004 1 LINE 80 26 PAGE UM MTA NOV. 08, 1975 00:31:31 5.0T5 35 0 VS2 SUBROUTINE TO CONVERT A 2860 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT. ASSEMBLE USING MCHMAC (577/5). 1 MON AUG 05/96 18:37:45 Page 353 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 589/2, 589/5, 589/6, 589/7, 655/4 00589/005 CHANNEL CHECK RECOVERY IGFC70 SA # (PART OF IGFC60) UM MTA 0 VS2 SUBROUTINE TO CONVERT A 2870 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT. ASSEMBLE USING MCHMAC (577/5). Part of (589/4). 0 Referenced by comments of: 589/2, 589/7, 655/4 00589/006 CHANNEL CHECK RECOVERY IGFC80 SA # (PART OF IGFC60) UM MTA 0 VS2 SUBROUTINE TO CONVERT A 2880 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT. ASSEMBLE USING MCHMAC (577/5). Part of (589/4). 0 Referenced by comments of: 589/2, 589/7, 655/4 00589/007 CHANNEL CHECK RECOVERY VS2CCH OC # (PART OF RESIDENT SYSTEM) UM MTA 0 OBJECT FOR (589/4), (589/5), AND (589/6). Object part of Resident System (468) 00589/008 CHANNEL CHECK RECOVERY A#VCCH47 SA G MTA:470CCH(1,999) 5.0T2 591 CHANNEL_CHECK_RECOVERY.A#.SA.008 1 LINE 72 11 PAGE UM MTA JULY 03, 1981 15:39:23 5.0T5 36 MTA.:470CCH 0 SUBROUTINE CALLED BY CCHSUBR (589/2) FOR CHANNEL CHECK RECOVERY IF RUNNING ON AN AMDAHL 470. THIS PROGRAM PRODUCES A LIMITED CHANNEL LOGOUT FROM A FULL LOG. ASSEMBLE USING MCHMAC (577/5). 0 Referenced by comments of: 589/2, 655/4, 655/5 00589/009 CHANNEL CHECK RECOVERY A#VCCH47 OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00590/001 *SPITBOL MAIN UPDATE UU G S1143 D4.1T1 VLO FSNAME=SPITBOL.MAIN_UPDATE.UU.001(1) 360 5.0T2 592 SPITBOL.MAIN_UPDATE.UU.001 1 LINE 72 13 PAGE UM SWARTZ MAY 13, 1978 17:48:20 5.0T5 37 0 BY CONTRACT, THE SOURCE AND OBJECT FOR SPITBOL CANNOT BE DISTRIBUTED. CONTACT ROBERT DE WAR AT THE ILLINOIS INSTITUTE OF TECHNOLOGY, CHICAGO, IL, USA. UPDATE DECK TO BRING THE SPITBOL COMPILER AND LIBRARY FROM VERSION 2.2.0 TO 2.2.6. COPIES DEFLMOD (590/3) AND WORK AREA (590/4). ************************************************************************** 1 MON AUG 05/96 18:37:45 Page 354 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 D5.0 VERSION: THESE UPDATES DO NOT INCLUDE THE MOST RECENT UPDATES FROM UBC. ************************************************************************** 0 Referenced by comments of: 678/4 00590/002 *SPITBOL XFACE UPDATE UU G S1143 D4.1T1 VLO FSNAME=SPITBOL.XFACE_UPDATE.UU.002(1) 361 5.0T2 593 SPITBOL.XFACE_UPDATE.UU.002 1 LINE 72 40 PAGE UM SWARTZ MAY 13, 1978 17:48:22 5.0T5 38 0 UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6. COPIES DEFLMOD (590/3) AND WORK AREA (590/4). 00590/003 *SPITBOL DEFLMOD SA G S1143 D4.1T1 VLO FSNAME=SPITBOL.DEFLMOD.SA.003(1) 362 5.0T2 594 SPITBOL.DEFLMOD.SA.003 1 LINE 39 1 PAGE UM SWARTZ MAY 13, 1978 17:48:26 5.0T5 39 0 COPY SECTION TO SET INSTALLATION AND COMPILER/LIBRARY GLOBAL VARIABLES. 0 Referenced by comments of: 590/1, 590/2 00590/004 *SPITBOL WORK AREA SA G S1143 D4.1T1 VLO FSNAME=SPITBOL.WORK_AREA.SA.004(1) 363 5.0T2 595 SPITBOL.WORK_AREA.SA.004 1 LINE 80 3 PAGE UM SWARTZ MAY 13, 1978 17:48:27 5.0T5 40 0 COPY SECTION OF SPITBOL WORK AREA. 0 Referenced by comments of: 590/1, 590/2 00590/005 *SPITBOL ZAP CONVERT SS G S0564 D4T2 VLO FSNAME=SPITBOL.ZAP_CONVERT.SS.003(1) 641 5.0T2 596 SPITBOL.ZAP_CONVERT.SS.005 1 LINE 72 1 PAGE UM SWARTZ JULY 28, 1977 03:34:16 5.0T5 41 0 SNOBOL PROGRAM TO CONVERT SPITBOL SUPERZAP DECKS INTO MTS COM AND REP LOADER CARDS. 00590/006 *SPITBOL *SPITBOL OC G *SPITBOL 5.0T2 597 SPITBOL.?SPITBOL.OC.006 1 SEQ 24 1 PAGE UM SWARTZ AUG. 06, 1981 03:58:18 5.0T5 42 0 LOADER CARDS TO FORCE REFERENCE TO THE SHARED VM SPITBOL. 00590/007 *SPITBOL ETC:SPITDEFLIB OL G ETC:SPITDEFLIB 5.0T2 598 SPITBOL.ETC:SPITDEFLIB.OL.007 1 LINE 24 1 PAGE UM SWARTZ JULY 20, 1977 03:40:47 5.0T5 43 0 LOADER CARDS USED AS A DEFAULT LIBRARY FOR THE SPITBOL LOAD FUNCTION TO FORCE REFERENCE TO EFL AND LCSYMBOLS. 00590/008 *SPITBOL *SPITERR M *SPITERR 5.0T2 599 SPITBOL.*SPITERR.M.008 1 LINE 175 4 PAGE UM SWARTZ JULY 03, 1981 15:39:36 5.0T5 44 *SPITERR 0 SPITBOL ERROR MESSAGES. 1 MON AUG 05/96 18:37:45 Page 355 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00590/009 *SPITBOL *SPITDEBUG SS O *SPITDEBUG 5.0T2 600 SPITBOL.*SPITDEBUG.SS.009 1 LINE 111 4 PAGE UM SWARTZ JULY 03, 1981 15:39:37 5.0T5 45 *SPITDEBUG 0 ALLOWS CONTINUING, DISPLAYING, MODIFYING, ETC. OF DATA AFTER AN ERROR IN SPITBOL. USED BY INCLUDING "-COPY *SPITDEBUG" IN THE SPITBOL SOURCE PROGRAM. USES SUBROUTINES IN UNSP:SPITLIB (590/30). USE THE "HELP" COMMAND TO EXPLAIN FUNCTIONS. 0 Referenced by comments of: 590/32, 1070/5 00590/010 *SPITBOL *SPITLIB OL O # *SPITLIB UM SWARTZ 0 *SPITLIB CANNOT BE DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 1070/6 00590/011 *SPITBOL UNSP CMD SA G S1153 UNSP VLO FSNAME=SCMD.S 5.0T2 601 SPITBOL.UNSP_CMD.SA.011 1 LINE 80 3 PAGE UM UNSP DEC. 23, 1975 19:33:48 5.0T5 46 0 THIS FOLLOWING SUBCOMPONENTS ARE THE SOURCE FOR THE "UNSUPPORTED" SPITBOL FUNCTION LIBRARY, UNSP:SPITLIB (590/30). THESE FUNCTIONS SHOULD NOT BE CONFUSED WITH THOSE IN *SPITLIB. 00590/012 *SPITBOL UNSP CREATE SA G SCRE S1153 UNSP VLO FSNAME=SCREATE.S 5.0T2 602 SPITBOL.UNSP_CREATE.SA.012 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:34:35 5.0T5 47 00590/013 *SPITBOL UNSP CREPLY SA G SCRP S1153 UNSP VLO FSNAME=SCREPLY.S 5.0T2 603 SPITBOL.UNSP_CREPLY.SA.013 1 LINE 80 2 PAGE UM UNSP SEP. 01, 1978 08:19:41 5.0T5 48 00590/014 *SPITBOL UNSP GDINFO SA G SGDI S1153 UNSP VLO FSNAME=SGDINFO.S 5.0T2 604 SPITBOL.UNSP_GDINFO.SA.014 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:34:40 5.0T5 49 0 ASSEMBLE USING UNSP:MACLIB (685/3). 00590/015 *SPITBOL UNSP GETFD SA G SGET S1153 UNSP VLO FSNAME=SGETFD.S 5.0T2 605 SPITBOL.UNSP_GETFD.SA.015 1 LINE 80 3 PAGE UM UNSP SEP. 02, 1976 12:34:44 5.0T5 50 0 ASSEMBLE USING UNSP:MACLIB (685/3). 00590/016 *SPITBOL UNSP GUINFO SA G SGUI S1153 UNSP VLO FSNAME=SGUINFO.S 5.0T2 606 SPITBOL.UNSP_GUINFO.SA.016 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:34:51 5.0T5 51 0 ASSEMBLE USING UNSP:MACLIB (685/3). 1 MON AUG 05/96 18:37:45 Page 356 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00590/017 *SPITBOL UNSP MTSCMD SA G SMTS S1153 UNSP VLO FSNAME=SMTSCMD.S 5.0T2 607 SPITBOL.UNSP_MTSCMD.SA.017 1 LINE 80 3 PAGE UM UNSP DEC. 23, 1975 19:34:03 5.0T5 52 0 ASSEMBLE USING UNSP:MACLIB (685/3). 00590/018 *SPITBOL UNSP READ SA G SREA S1153 UNSP VLO FSNAME=SREAD.S 5.0T2 608 SPITBOL.UNSP_READ.SA.018 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:35:05 5.0T5 53 0 ASSEMBLE USING UNSP:MACLIB (685/3). 00590/019 *SPITBOL UNSP SETPFX SA G SSET S1153 UNSP VLO FSNAME=SSETPFX.S 5.0T2 609 SPITBOL.UNSP_SETPFX.SA.019 1 LINE 80 3 PAGE UM UNSP JAN. 13, 1976 11:29:00 5.0T5 54 0 ASSEMBLE USING UNSP:MACLIB (685/3). 00590/020 *SPITBOL UNSP SNS SA G SSNS S1153 UNSP VLO FSNAME=SNS.S 5.0T2 610 SPITBOL.UNSP_SNS.SA.020 1 LINE 80 3 PAGE UM UNSP SEP. 02, 1976 12:34:54 5.0T5 55 0 ASSEMBLE USING UNSP:MACLIB (685/3). 00590/021 *SPITBOL UNSP WRITE SA G SWRI S1153 UNSP VLO FSNAME=SWRITE.S 5.0T2 611 SPITBOL.UNSP_WRITE.SA.021 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:35:12 5.0T5 56 0 ASSEMBLE USING UNSP:MACLIB (685/3). 00590/022 *SPITBOL UNSP SNOOP SA G SSNO S1153 UNSP VLO FSNAME=SSNOOP.S 5.0T2 612 SPITBOL.UNSP_SNOOP.SA.022 1 LINE 80 3 PAGE UM UNSP JULY 12, 1976 13:42:24 5.0T5 57 00590/023 *SPITBOL UNSP SPITATTN SA G SATN S1153 UNSP VLO FSNAME=SPITATTN.S 5.0T2 613 SPITBOL.UNSP_SPITATTN.SA.023 1 LINE 80 5 PAGE UM UNSP NOV. 30, 1976 14:22:13 5.0T5 58 00590/024 *SPITBOL UNSP SGETRC SA G SGRC S1153 UNSP VLO FSNAME=SGETRC.S 5.0T2 614 SPITBOL.UNSP_SGETRC.SA.024 1 LINE 80 1 PAGE UM UNSP SEP. 02, 1976 12:34:47 5.0T5 59 00590/025 *SPITBOL UNSP SPUTRC SA G SPRC S1153 UNSP VLO FSNAME=SPUTRC.S 5.0T2 615 SPITBOL.UNSP_SPUTRC.SA.025 1 LINE 80 1 PAGE UM UNSP SEP. 02, 1976 12:35:01 5.0T5 60 00590/026 *SPITBOL UNSP STI SA G STIA S1153 UNSP VLO FSNAME=STI.S 5.0T2 616 SPITBOL.UNSP_STI.SA.026 1 LINE 80 2 PAGE UM UNSP SEP. 02, 1976 12:35:09 5.0T5 61 0 "STR" IS AN ALTERNATE ENTRY. ASSEMBLE USING UNSP:MACLIB (685/3). 1 MON AUG 05/96 18:37:45 Page 357 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00590/027 *SPITBOL UNSP ITR SA G ITRA S1153 UNSP VLO FSNAME=ITR.S 5.0T2 617 SPITBOL.UNSP_ITR.SA.027 1 LINE 80 1 PAGE UM UNSP SEP. 02, 1976 12:35:20 5.0T5 62 0 "RTI" IS AN ALTERNATE ENTRY. 00590/028 *SPITBOL UNSP ITS SA G ITSA S1153 UNSP VLO FSNAME=ITS.S 5.0T2 618 SPITBOL.UNSP_ITS.SA.028 1 LINE 80 1 PAGE UM UNSP SEP. 02, 1976 12:35:16 5.0T5 63 0 "RTS" IS AN ALTERNATE ENTRY. 00590/029 *SPITBOL UNSP SETLIO SA G S1153 UNSP VLO FSNAME=SSETLIO.S 5.0T2 619 SPITBOL.UNSP_SETLIO.SA.029 1 LINE 66 1 PAGE UM UNSP FEB. 23, 1979 04:51:29 5.0T5 64 0 SPITBOL ROUTINE WHICH CALLS THE MTS SETLIO SUBROUTINE. OBJECT IS IN UNSP:SPITLIB (590/30). 00590/030 *SPITBOL UNSP LIBRARY OL G UNSP:SPITLIB 5.0T2 620 SPITBOL.UNSP_LIBRARY.OL.030 1 LINE 1382 5 PAGE UM UNSP JULY 03, 1981 15:45:25 5.0T5 65 UNSP:SPITLIB 0 Referenced by comments of: 590/9, 590/11, 590/29, 590/31, 678/1, 737/15, 1042/70, 1070/5 00590/031A *SPITBOL UNSP LIBRARY WF S1153 UNSP VLO FSNAME=SPITLIB.FMT 5.0T2 621 SPITBOL.UNSP_LIBRARY.WF.031 1 LINE 85 7 PAGE UM UNSP JUNE 27, 1981 22:03:02 5.0T5 66 0 A WRITEUP FOR THE ROUTINES IN UNSP:SPITLIB (590/30). 00590/032 *SPITBOL CONVSPIT SS G UNSP:CONVSPIT(1000) 5.0T2 622 SPITBOL.CONVSPIT.SS.032 1 LINE 53 1 PAGE UM UNSP JULY 03, 1981 15:45:42 5.0T5 67 0 AN INTERACTIVE SPITBOL. USES *SPITLIB (NOT DISTRIBUTED) AND *SPITDEBUG (590/9). 00590/033 *SPITBOL CONVSPIT OE G UNSP:CONVSPIT(1,999) 5.0T2 623 SPITBOL.CONVSPIT.OE.033 1 LINE 10408 6 PAGE UM UNSP JULY 03, 1981 15:45:44 5.0T5 68 UNSP:CONVSPIT 00591/001 CFDUB SUBR SA G S0564 D4T2 VLO FSNAME=CFDUB_SUBR..SA.001(1) 665 5.0T2 624 CFDUB_SUBR..SA.001 1 LINE 80 2 PAGE UM MTA JULY 28, 1977 03:46:29 5.0T5 69 0 SUBROUTINE TO COMPARE TWO FDUBS TO SEE IF THEY ARE ASSIGNED TO THE SAME THING. TO USE, CALL CFDUB(F1,F2) WHERE F1 AND F2 ARE CHKFDUB THINGS. RC=0 MEANS THAT THEY'RE THE SAME, RC=4 MEANS THEY'RE DIFFERENT, RC=8 MEANS THAT AT LEAST ONE IS INVALID. FOR EXAMPLE, CALL CFDUB('SPUNCH ','SPRINT ',&1,&2). 00591/002 CFDUB SUBR OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 358 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00592/001A OPERATORS MANUAL WF W225:OPRML.FMT 5.0T2 625 OPERATORS_MANUAL..WF.001 1 LINE 251 159 PAGE UM DONNELLY JULY 03, 1981 15:45:47 5.0T5 70 0 MTS OPERATOR'S MANUAL. 0 Referenced by comments of: 50/3, 387/22, 502/1, 610/1, 615/20, 615/41, 615/46, 642/1, 642/3, 642/9, 642/14 00593/001A *GFINFODSECT SA G *GFINFODSECT 5.0T2 626 GFINFODSECT..SA.001 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 15:46:58 5.0T5 71 *GFINFODSECT 0 COPY SECTION FOR DSECTS DEFINING INFORMATION REGIONS USED IN CONJUNCTION WITH THE GFINFO SUBROUTINE, PART OF RSF (578). 0 Referenced by comments of: 67/23, 465/1, 502/1, 529/1, 531/7, 548/1, 548/2, 578/1, 630/1, 1019/2 00594/001 *GDINFODSECT SA G *GDINFODSECT 5.0T2 627 GDINFODSECT..SA.001 1 LINE 80 2 PAGE UM MTS OGDEN JULY 03, 1981 15:46:59 5.0T5 72 *GDINFODSECT 0 COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE. 0 Referenced by comments of: 57/1, 64/1, 101/1, 278/3, 283/1, 291/1, 314/1, 400/14, 400/15, 410/1, 485/34, 495/1, 496/1, 498/83, 506/7, 506/8, 513/1, 529/1, 531/7, 531/14, 540/10, 545/3, 545/4, 545/11, 548/1, 551/1, 553/1, 595/6, 619/23, 627/1, 634/7, 638/1, 648/1, 655/1, 655/4, 677/1, 680/1, 682/18, 706/6, 709/1, 721/1, 721/2, 721/3, 721/6, 721/9, 721/12, 721/18, 727/1, 737/3, 738/1, 746/1, 749/1, 752/1, 771/1, 813/13, 814/2, 823/19, 1002/15, 1002/23, 1005/1, 1019/2, 1021/7, 1051/5, 1051/6, 1051/7, 1051/8, 1067/1, 3011/3, 3024/1 00595/001 APL - GMRL INSTALLATION P S0564 D4T2 VLO FSNAME=APL_-_GMRL.INSTALLATION.P.001(1) 669 5.0T2 628 APL_-_GMRL.INSTALLATION.P.001 1 LINE 73 1 PAGE UM TIFFANY JULY 16, 1973 01:42.51 5.0T5 73 0 THIS IS THE GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE, APL, NOT TO BE CONFUSED WITH COMPONENT *APL (465). APL, PRONOUNCED "APPLE", IS A SUPERSET OF PL/I, WHICH HAS EXTENSIONS IN THE AREA OF DATA STRUCTURE PROCESSING. IT IS INTENDED PRIMARILY FOR LARGE SCALE STRUCTURAL DESIGN APPLICATIONS, PARTICULARLY THOSE INVOLVING INTERACTIVE GRAPHICS. COMPONENT (595/1) EXPLAINS THE CONTENTS OF COMPONENTS (595/2) THROUGH (595/92) AND TELLS HOW TO GENERATE THE SEVERAL COMPONENTS WHICH MAKE UP APL. ***************************************************************************** D5.0 version: Unless we hear any major complaints, this will be the final distribution of General Motor's Associative Programming Language. ***************************************************************************** 0 Referenced by comments of: 595/1 1 MON AUG 05/96 18:37:45 Page 359 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/002 APL - GMRL *APLGM OE G *APLGM 5.0T2 629 APL_-_GMRL.*APLGM.OE.002 1 SEQ 2436 2 PAGE UM TIFFANY JULY 03, 1981 15:47:01 5.0T5 74 *APLGM 0 COMPONENTS (595/2) THROUGH (595/5) ARE THE FOUR APL OBJECT FILES AS DESCRIBED IN CCMEMO 236, SEE (595/93). 0 Referenced by comments of: 595/1, 595/2 00595/003 APL - GMRL *APLTRAN OE G *APLTRAN 5.0T2 630 APL_-_GMRL.*APLTRAN.OE.003 1 SEQ 32767 47 PAGE UM TIFFANY JULY 03, 1981 15:47:01 5.0T5 75 *APLTRAN 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/004 APL - GMRL *APLLIB OL G *APLLIB 5.0T2 631 APL_-_GMRL.*APLLIB.OL.004 1 SEQ 4222 21 PAGE UM TIFFANY JULY 03, 1981 15:47:04 5.0T5 76 *APLLIB 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/005 APL - GMRL *APLEDCL OE G *APLEDCL 5.0T2 632 APL_-_GMRL.*APLEDCL.OE.005 1 SEQ 10704 7 PAGE UM TIFFANY JULY 03, 1981 15:47:05 5.0T5 77 *APLEDCL 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 0 Referenced by comments of: 595/2 00595/006 APL - GMRL APLLL0 SA G S1430 4.3T1 VLO FSNAME=APL_-_GMRL.APLLL0.SA.006(1) 542 5.0T2 633 APL_-_GMRL.APLLL0.SA.006 1 LINE 95 4 PAGE UM TIFFANY DEC. 21, 1979 09:31:21 5.0T5 78 0 THE SOURCE FOR *APLGM. ASSEMBLE USING *SYSMAC. COPIES *GDINFODCEST (594). 00595/007 APL - GMRL XAPL SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XAPL.SP.007(1) 675 5.0T2 634 APL_-_GMRL.XAPL.SP.007 1 LINE 72 6 PAGE UM TIFFANY JULY 16, 1973 01:45.18 5.0T5 79 0 COMPONENTS (595/7) THROUGH (595/48) ARE THE SOURCE FOR *APLTRAN. 0 Referenced by comments of: 595/7 00595/008 APL - GMRL MINITERM SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MINITERM.SP.008(1) 676 5.0T2 635 APL_-_GMRL.MINITERM.SP.008 1 LINE 73 4 PAGE UM TIFFANY JULY 16, 1973 01:45.20 5.0T5 80 00595/009 APL - GMRL MAPLGET SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLGET.SP.009(1) 677 5.0T2 636 APL_-_GMRL.MAPLGET.SP.009 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:45.23 5.0T5 81 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 1 MON AUG 05/96 18:37:45 Page 360 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/010 APL - GMRL MCARDGET SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCARDGET.SP.010(1) 678 5.0T2 637 APL_-_GMRL.MCARDGET.SP.010 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.26 5.0T5 82 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/011 APL - GMRL MCHMOVE SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHMOVE.SP.011(1) 679 5.0T2 638 APL_-_GMRL.MCHMOVE.SP.011 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.30 5.0T5 83 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/012 APL - GMRL MCHSCAN SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHSCAN.SP.012(1) 680 5.0T2 639 APL_-_GMRL.MCHSCAN.SP.012 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.33 5.0T5 84 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/013 APL - GMRL MAPLGOOF SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLGOOF.SP.013(1) 681 5.0T2 640 APL_-_GMRL.MAPLGOOF.SP.013 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.36 5.0T5 85 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/014 APL - GMRL MAPLPUT SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLPUT.SP.014(1) 682 5.0T2 641 APL_-_GMRL.MAPLPUT.SP.014 1 LINE 71 3 PAGE UM TIFFANY JULY 16, 1973 01:45.39 5.0T5 86 00595/015 APL - GMRL MCARDPUT SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCARDPUT.SP.015(1) 683 5.0T2 642 APL_-_GMRL.MCARDPUT.SP.015 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.42 5.0T5 87 00595/016 APL - GMRL MAPLNAME SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLNAME.SP.016(1) 684 5.0T2 643 APL_-_GMRL.MAPLNAME.SP.016 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.46 5.0T5 88 00595/017 APL - GMRL MCHNAM1 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHNAM1.SP.017(1) 685 5.0T2 644 APL_-_GMRL.MCHNAM1.SP.017 1 LINE 71 2 PAGE UM TIFFANY JULY 16, 1973 01:45.49 5.0T5 89 00595/018 APL - GMRL MCHNAM2 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHNAM2.SP.018(1) 686 5.0T2 645 APL_-_GMRL.MCHNAM2.SP.018 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.52 5.0T5 90 1 MON AUG 05/96 18:37:45 Page 361 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/019 APL - GMRL MCHNAM3 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MCHNAM3.SP.019(1) 687 5.0T2 646 APL_-_GMRL.MCHNAM3.SP.019 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:45.55 5.0T5 91 00595/020 APL - GMRL MBEGPRC SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MBEGPRC.SP.020(1) 688 5.0T2 647 APL_-_GMRL.MBEGPRC.SP.020 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:45.59 5.0T5 92 00595/021 APL - GMRL MDIAGNS SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MDIAGNS.SP.021(1) 689 5.0T2 648 APL_-_GMRL.MDIAGNS.SP.021 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.02 5.0T5 93 00595/022 APL - GMRL MENTDCL SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MENTDCL.SP.022(1) 690 5.0T2 649 APL_-_GMRL.MENTDCL.SP.022 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:46.05 5.0T5 94 00595/023 APL - GMRL MSCOPE01 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE01.SP.023(1) 691 5.0T2 650 APL_-_GMRL.MSCOPE01.SP.023 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:46.08 5.0T5 95 00595/024 APL - GMRL MSCOPE02 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE02.SP.024(1) 692 5.0T2 651 APL_-_GMRL.MSCOPE02.SP.024 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:46.11 5.0T5 96 00595/025 APL - GMRL MSCOPE03 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE03.SP.025(1) 693 5.0T2 652 APL_-_GMRL.MSCOPE03.SP.025 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.15 5.0T5 97 00595/026 APL - GMRL MSCOPE04 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE04.SP.026(1) 694 5.0T2 653 APL_-_GMRL.MSCOPE04.SP.026 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.18 5.0T5 98 00595/027 APL - GMRL MSCOPE05 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE05.SP.027(1) 695 5.0T2 654 APL_-_GMRL.MSCOPE05.SP.027 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.21 5.0T5 99 00595/028 APL - GMRL MSCOPE06 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSCOPE06.SP.028(1) 696 5.0T2 655 APL_-_GMRL.MSCOPE06.SP.028 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.25 5.0T5 100 00595/029 APL - GMRL MSUBDCL SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MSUBDCL.SP.029(1) 697 5.0T2 656 APL_-_GMRL.MSUBDCL.SP.029 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:46.28 5.0T5 101 00595/030 APL - GMRL MXCREATE SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXCREATE.SP.030(1) 698 5.0T2 657 APL_-_GMRL.MXCREATE.SP.030 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.31 5.0T5 102 00595/031 APL - GMRL MXDCL SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXDCL.SP.031(1) 699 5.0T2 658 APL_-_GMRL.MXDCL.SP.031 1 LINE 72 8 PAGE UM TIFFANY JULY 16, 1973 01:46.35 5.0T5 103 1 MON AUG 05/96 18:37:45 Page 362 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/032 APL - GMRL MXDCL1 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXDCL1.SP.032(1) 700 5.0T2 659 APL_-_GMRL.MXDCL1.SP.032 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:46.38 5.0T5 104 00595/033 APL - GMRL MXDCL2 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXDCL2.SP.033(1) 701 5.0T2 660 APL_-_GMRL.MXDCL2.SP.033 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:46.41 5.0T5 105 00595/034 APL - GMRL MXDELETE SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXDELETE.SP.034(1) 702 5.0T2 661 APL_-_GMRL.MXDELETE.SP.034 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.44 5.0T5 106 00595/035 APL - GMRL MXEND SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXEND.SP.035(1) 703 5.0T2 662 APL_-_GMRL.MXEND.SP.035 1 LINE 71 3 PAGE UM TIFFANY JULY 16, 1973 01:46.47 5.0T5 107 00595/036 APL - GMRL MXFIND SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXFIND.SP.036(1) 704 5.0T2 663 APL_-_GMRL.MXFIND.SP.036 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.51 5.0T5 108 00595/037 APL - GMRL MXFIND1 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXFIND1.SP.037(1) 705 5.0T2 664 APL_-_GMRL.MXFIND1.SP.037 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.54 5.0T5 109 00595/038 APL - GMRL MXINSERT SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXINSERT.SP.038(1) 706 5.0T2 665 APL_-_GMRL.MXINSERT.SP.038 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.57 5.0T5 110 00595/039 APL - GMRL MXLET SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXLET.SP.039(1) 707 5.0T2 666 APL_-_GMRL.MXLET.SP.039 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:47.00 5.0T5 111 00595/040 APL - GMRL MXON SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXON.SP.040(1) 708 5.0T2 667 APL_-_GMRL.MXON.SP.040 1 LINE 71 2 PAGE UM TIFFANY JULY 16, 1973 01:47.03 5.0T5 112 00595/041 APL - GMRL MXPLI SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXPLI.SP.041(1) 709 5.0T2 668 APL_-_GMRL.MXPLI.SP.041 1 LINE 72 5 PAGE UM TIFFANY JULY 16, 1973 01:47.06 5.0T5 113 00595/042 APL - GMRL MXQUEST SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXQUEST.SP.042(1) 710 5.0T2 669 APL_-_GMRL.MXQUEST.SP.042 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:47.09 5.0T5 114 00595/043 APL - GMRL MXREMOVE SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXREMOVE.SP.043(1) 711 5.0T2 670 APL_-_GMRL.MXREMOVE.SP.043 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:47.12 5.0T5 115 00595/044 APL - GMRL MX4EACH SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MX4EACH.SP.044(1) 712 5.0T2 671 APL_-_GMRL.MX4EACH.SP.044 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:47.15 5.0T5 116 1 MON AUG 05/96 18:37:45 Page 363 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/045 APL - GMRL MAPLGO SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MAPLGO.SP.045(1) 713 5.0T2 672 APL_-_GMRL.MAPLGO.SP.045 1 LINE 68 1 PAGE UM TIFFANY JULY 16, 1973 01:47.18 5.0T5 117 00595/046 APL - GMRL XPLEMES SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLEMES.SP.046(1) 714 5.0T2 673 APL_-_GMRL.XPLEMES.SP.046 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:47.22 5.0T5 118 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB. 0 Referenced by comments of: 595/49 00595/047 APL - GMRL MXXLOCSET SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.MXXLOCSET.SA.047(1) 715 5.0T2 674 APL_-_GMRL.MXXLOCSET.SA.047 1 LINE 67 1 PAGE UM TIFFANY JULY 16, 1973 01:47.25 5.0T5 119 0 ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88). 00595/048 APL - GMRL XPLFORM SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFORM.SA.048(1) 716 5.0T2 675 APL_-_GMRL.XPLFORM.SA.048 1 LINE 71 4 PAGE UM TIFFANY JULY 16, 1973 01:47.28 5.0T5 120 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB. ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88). 0 Referenced by comments of: 595/7, 595/49 00595/049 APL - GMRL XPLCONA SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLCONA.SP.049(1) 717 5.0T2 676 APL_-_GMRL.XPLCONA.SP.049 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:47.31 5.0T5 121 0 COMPONENTS (595/49) THROUGH (595/86) PLUS (595/46) AND (595/48) ARE THE SOURCE FOR *APLLIB. 0 Referenced by comments of: 595/49 00595/050 APL - GMRL XPLCON SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLCON.SP.050(1) 718 5.0T2 677 APL_-_GMRL.XPLCON.SP.050 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:47.34 5.0T5 122 00595/051 APL - GMRL XPLCRT1 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLCRT1.SP.051(1) 719 5.0T2 678 APL_-_GMRL.XPLCRT1.SP.051 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:47.38 5.0T5 123 00595/052 APL - GMRL XPLCRT2 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLCRT2.SP.052(1) 720 5.0T2 679 APL_-_GMRL.XPLCRT2.SP.052 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:47.41 5.0T5 124 00595/053 APL - GMRL XPLDEL1 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLDEL1.SP.053(1) 721 5.0T2 680 APL_-_GMRL.XPLDEL1.SP.053 1 LINE 70 1 PAGE UM TIFFANY JULY 16, 1973 01:47.44 5.0T5 125 1 MON AUG 05/96 18:37:45 Page 364 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/054 APL - GMRL XPLDEL2 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLDEL2.SP.054(1) 722 5.0T2 681 APL_-_GMRL.XPLDEL2.SP.054 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:47.47 5.0T5 126 00595/055 APL - GMRL XPLDEL3 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLDEL3.SP.055(1) 723 5.0T2 682 APL_-_GMRL.XPLDEL3.SP.055 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:47.51 5.0T5 127 00595/056 APL - GMRL XPLESET SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLESET.SP.056(1) 724 5.0T2 683 APL_-_GMRL.XPLESET.SP.056 1 LINE 63 1 PAGE UM TIFFANY JULY 16, 1973 01:47.54 5.0T5 128 00595/057 APL - GMRL XPLEVAR SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLEVAR.SP.057(1) 725 5.0T2 684 APL_-_GMRL.XPLEVAR.SP.057 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:48.00 5.0T5 129 00595/058 APL - GMRL XPLFND1 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFND1.SP.058(1) 726 5.0T2 685 APL_-_GMRL.XPLFND1.SP.058 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:48.03 5.0T5 130 00595/059 APL - GMRL XPLFND2 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFND2.SP.059(1) 727 5.0T2 686 APL_-_GMRL.XPLFND2.SP.059 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:48.07 5.0T5 131 00595/060 APL - GMRL XPLFND3 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFND3.SP.060(1) 728 5.0T2 687 APL_-_GMRL.XPLFND3.SP.060 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:48.10 5.0T5 132 00595/061 APL - GMRL XPLGO SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLGO.SP.061(1) 729 5.0T2 688 APL_-_GMRL.XPLGO.SP.061 1 LINE 68 1 PAGE UM TIFFANY JULY 16, 1973 01:48.13 5.0T5 133 00595/062 APL - GMRL XPLGARB SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLGARB.SP.062(1) 730 5.0T2 689 APL_-_GMRL.XPLGARB.SP.062 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:48.16 5.0T5 134 00595/063 APL - GMRL XPLNUMB SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLNUMB.SP.063(1) 731 5.0T2 690 APL_-_GMRL.XPLNUMB.SP.063 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:48.19 5.0T5 135 00595/064 APL - GMRL XPLINDX SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLINDX.SP.064(1) 732 5.0T2 691 APL_-_GMRL.XPLINDX.SP.064 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:48.23 5.0T5 136 00595/065 APL - GMRL XPLNOBL SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLNOBL.SP.065(1) 733 5.0T2 692 APL_-_GMRL.XPLNOBL.SP.065 1 LINE 71 3 PAGE UM TIFFANY JULY 16, 1973 01:48.26 5.0T5 137 00595/066 APL - GMRL XPLNSRT SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLNSRT.SP.066(1) 734 5.0T2 693 APL_-_GMRL.XPLNSRT.SP.066 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:48.29 5.0T5 138 1 MON AUG 05/96 18:37:45 Page 365 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/067 APL - GMRL XPLOWNI SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLOWNI.SP.067(1) 735 5.0T2 694 APL_-_GMRL.XPLOWNI.SP.067 1 LINE 72 1 PAGE UM TIFFANY MAY 05, 1975 17:39:10 5.0T5 139 00595/068 APL - GMRL XPLOWRS SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLOWRS.SP.068(1) 736 5.0T2 695 APL_-_GMRL.XPLOWRS.SP.068 1 LINE 70 1 PAGE UM TIFFANY JULY 16, 1973 01:48.35 5.0T5 140 00595/069 APL - GMRL XPLREL0 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLREL0.SP.069(1) 737 5.0T2 696 APL_-_GMRL.XPLREL0.SP.069 1 LINE 70 1 PAGE UM TIFFANY JULY 16, 1973 01:48.38 5.0T5 141 00595/070 APL - GMRL XPLREL1 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLREL1.SP.070(1) 738 5.0T2 697 APL_-_GMRL.XPLREL1.SP.070 1 LINE 70 1 PAGE UM TIFFANY JULY 16, 1973 01:48.42 5.0T5 142 00595/071 APL - GMRL XPLSNAM SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLSNAM.SP.071(1) 739 5.0T2 698 APL_-_GMRL.XPLSNAM.SP.071 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:48.45 5.0T5 143 00595/072 APL - GMRL XPLRMV1 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLRMV1.SP.072(1) 740 5.0T2 699 APL_-_GMRL.XPLRMV1.SP.072 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:48.48 5.0T5 144 00595/073 APL - GMRL XPLRMV2 SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLRMV2.SP.073(1) 741 5.0T2 700 APL_-_GMRL.XPLRMV2.SP.073 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:48.51 5.0T5 145 00595/074 APL - GMRL XPLTYPE SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLTYPE.SA.074(1) 742 5.0T2 701 APL_-_GMRL.XPLTYPE.SA.074 1 LINE 59 1 PAGE UM TIFFANY JULY 16, 1973 01:48.55 5.0T5 146 0 COMPONENTS (595/74) THROUGH (595/86) SHOULD BE ASSEMBLED WITH *SYSMAC AND PL1MACLIB (595/88). 0 Referenced by comments of: 595/74 00595/075 APL - GMRL XPLUDAT SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLUDAT.SA.075(1) 743 5.0T2 702 APL_-_GMRL.XPLUDAT.SA.075 1 LINE 72 7 PAGE UM TIFFANY JULY 16, 1973 01:48.58 5.0T5 147 00595/076 APL - GMRL XPLADDR SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLADDR.SA.076(1) 744 5.0T2 703 APL_-_GMRL.XPLADDR.SA.076 1 LINE 40 1 PAGE UM TIFFANY JULY 16, 1973 01:49.01 5.0T5 148 00595/077 APL - GMRL XPLALOC SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLALOC.SA.077(1) 745 5.0T2 704 APL_-_GMRL.XPLALOC.SA.077 1 LINE 72 3 PAGE UM TIFFANY SEP. 27, 1974 12:40.15 5.0T5 149 00595/078 APL - GMRL XPLDREC SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLDREC.SA.078(1) 746 5.0T2 705 APL_-_GMRL.XPLDREC.SA.078 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:49.07 5.0T5 150 1 MON AUG 05/96 18:37:45 Page 366 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/079 APL - GMRL XPLEV SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLEV.SA.079(1) 747 5.0T2 706 APL_-_GMRL.XPLEV.SA.079 1 LINE 56 1 PAGE UM TIFFANY JULY 16, 1973 01:49.11 5.0T5 151 00595/080 APL - GMRL XPLFREE SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLFREE.SA.080(1) 748 5.0T2 707 APL_-_GMRL.XPLFREE.SA.080 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:49.14 5.0T5 152 00595/081 APL - GMRL XPLOC SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XPLOC.SA.081(1) 749 5.0T2 708 APL_-_GMRL.XPLOC.SA.081 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:49.20 5.0T5 153 00595/082 APL - GMRL XIRMIN SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XIRMIN.SA.082(1) 750 5.0T2 709 APL_-_GMRL.XIRMIN.SA.082 1 LINE 72 9 PAGE UM TIFFANY JULY 16, 1973 01:49.23 5.0T5 154 00595/083 APL - GMRL XIRMOUT SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.XIRMOUT.SA.083(1) 751 5.0T2 710 APL_-_GMRL.XIRMOUT.SA.083 1 LINE 72 9 PAGE UM TIFFANY JULY 16, 1973 01:49.26 5.0T5 155 00595/084 APL - GMRL RRIN SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.RRIN.SA.084(1) 752 5.0T2 711 APL_-_GMRL.RRIN.SA.084 1 LINE 72 5 PAGE UM TIFFANY JULY 16, 1973 01:49.29 5.0T5 156 00595/085 APL - GMRL RROUT SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.RROUT.SA.085(1) 753 5.0T2 712 APL_-_GMRL.RROUT.SA.085 1 LINE 72 5 PAGE UM TIFFANY JULY 16, 1973 01:49.32 5.0T5 157 00595/086 APL - GMRL SYSVM SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.SYSVM.SA.086(1) 754 5.0T2 713 APL_-_GMRL.SYSVM.SA.086 1 LINE 69 8 PAGE UM TIFFANY OCT. 13, 1976 18:05:24 5.0T5 158 0 Copies *CNFGINFODSECT (654). 0 Referenced by comments of: 595/49, 595/74 00595/087 APL - GMRL CHGSCR SA G S0564 D4T2 VLO FSNAME=APL_-_GMRL.CHGSCR.SA.087(1) 755 5.0T2 714 APL_-_GMRL.CHGSCR.SA.087 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:49.38 5.0T5 159 0 COPY SECTION USED BY SEVERAL MODULES IN *APLLIB. 00595/088 APL - GMRL PL1MACLIB SM G S0564 D4T2 VLO FSNAME=APL_-_GMRL.PL1MACLIB.SM.088(1) 756 5.0T2 715 APL_-_GMRL.PL1MACLIB.SM.088 1 LINE 80 15 PAGE UM TIFFANY JULY 16, 1973 01:49.58 5.0T5 160 0 MACRO LIBRARY REQUIRED BY ASSEMBLY LANGUAGE MODULES IN *APLTRAN AND *APLLIB. 0 Referenced by comments of: 595/47, 595/48, 595/74 1 MON AUG 05/96 18:37:45 Page 367 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/089 APL - GMRL BLDTRAN C S0564 D4T2 VLO FSNAME=APL_-_GMRL.BLDTRAN.C.089(1) 757 5.0T2 716 APL_-_GMRL.BLDTRAN.C.089 1 LINE 82 1 PAGE UM TIFFANY JULY 16, 1973 01:50.08 5.0T5 161 0 A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLTRAN. HAS MANY "$CONTINUE WITH" LINES. 00595/090 APL - GMRL BLDLIB C S0564 D4T2 VLO FSNAME=APL_-_GMRL.BLDLIB.C.090(1) 758 5.0T2 717 APL_-_GMRL.BLDLIB.C.090 1 LINE 74 1 PAGE UM TIFFANY JULY 16, 1973 01:50.17 5.0T5 162 0 A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLLIB. HAS MANY "$CONTINUE WITH" LINES. 00595/091 APL - GMRL APLTRAN.SEP OE G S0564 D4T2 VLO FSNAME=APL_-_GMRL.APLTRAN.SEP.OE.091(1) 759 5.0T2 718 APL_-_GMRL.APLTRAN.SEP.OE.091 1 SEQ 11606 54 PAGE UM TIFFANY JULY 16, 1973 01:51.03 5.0T5 163 0 OBJECT MODULES FOR *APLTRAN, LINK-EDITTED, BUT NOT COMBINED, SO THAT INDIVIDUAL MODULES CAN BE REPLACED. 00595/092 APL - GMRL APLEDCL.S SP G S0564 D4T2 VLO FSNAME=APL_-_GMRL.APLEDCL.S.SP.092(1) 760 5.0T2 719 APL_-_GMRL.APLEDCL.S.SP.092 1 LINE 72 4 PAGE UM TIFFANY MAY 05, 1975 17:39:07 5.0T5 164 0 THE SOURCE FOR *APLEDCL CONSISTS OF THIS COMPONENT, PLUS MAPLGET (595/9), MCARDGET (595/10), MCHSCAN (595/12), MCHMOVE (595/11), AND MAPLGOOF (595/13). 0 Referenced by comments of: 595/1 00595/093 APL - GMRL MEMO 236 WF S0564 D4T2 VLO FSNAME=APL_-_GMRL.MEMO_236.WF.093(1) 761 5.0T2 720 APL_-_GMRL.MEMO_236.WF.093 1 LINE 114 8 PAGE UM TIFFANY JULY 17, 1973 17:39.33 5.0T5 165 0 THIS IS COMPUTING CENTER MEMO 236 -- "GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE" ONLY PART OF CCMEMO 236 IS INCLUDED HERE SINCE THE BULK OF IT IS SIMPLY REPRODUCED FROM THE GENERAL MOTORS APL USER'S MANUAL (PUBLICATION GMR-1219 OF THE GENERAL MOTORS RESEARCH LAB). 0 Referenced by comments of: 595/2 00596/001 ZAP SA # (OBSOLETE) D3.1T1 455 ZAP..SA.1 1 LINE 80 13 PAGE UM MAR. 06, 1974 22:30.58 0 Obsoleted by RAMROD (1019) 00597/001 CHKVTOC # (PART OF FILE SYSTEM RECOVERY) UM 0 Part of File System Recovery (682/20) and (682/21) 00598/001A DASDI BASE SOURCE SA G FILE:DASDI(-10000,-1) 5.0T2 721 DASDI.BASE_SOURCE.SA.001 1 LINE 80 45 PAGE UM HELFFRICH AUG. 06, 1981 04:00:11 5.0T5 166 FILE:DASDI 0 PROGRAM TO VAM2- OR VAMX-FORMAT DASDI 2311, 2314, 3330, 333B, 3340, 3344, AND 3350 DISKS. 1 MON AUG 05/96 18:37:45 Page 368 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 MARKS 3330-11 DISKS AS "333B" IN LABEL ACCORDING TO TSS CONVENTION. ASSEMBLE USING COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), AND *SYSMAC. INPUT DESCRIBED IN SOURCE COMMENTS. 0 Referenced by comments of: 598/2, 682/5 00598/002C DASDI UPDATE UC G FILE:DASDI(1000) 5.0T2 722 DASDI.UPDATE.UC.002 1 LINE 74 1 PAGE UM HELFFRICH AUG. 06, 1981 04:00:22 5.0T5 167 0 UPDATE DECK TO BE APPLIED TO (598/1) TO YIELD CURRENT SOURCE. 00598/003A DASDI OBJECT OC G FILE:DASDI(1,999) 5.0T2 723 DASDI.OBJECT.OC.003 1 LINE 80 14 PAGE UM HELFFRICH AUG. 06, 1981 04:00:25 5.0T5 168 00599/001A CHONID SA G CHON FILE:CHONID(1,999) 5.0T2 724 CHONID..SA.001 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 15:48:14 5.0T5 169 FILE:CHONID 0 PROGRAM, NOT FOR GENERAL USE, TO CHANGE THE OWNERID IN THE CATALOG OF A PUBLIC FILE. USED BY SYSTEM PROGRAMMERS TO ASSIGN APPROPRIATE OWNERS TO PUBLIC FILES. IT TAKES INPUT IN THE FORM "*FILENAME USERID" AND STOPS WHEN AN END-OF-FILE IS ENTERED. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/45). SEE COMP (682/6) FOR A WRITEUP. 0 Referenced by comments of: 682/6 00599/002A CHONID OC G FILE:CHONID(1000) 5.0T2 725 CHONID..OC.002 1 LINE 80 1 PAGE UM HELFFRICH JULY 03, 1981 15:48:15 5.0T5 170 00600/001A SDS CLS CLSSOU SA G W059:SDSCLSSOU 5.0T2 726 SDS_CLS.CLSSOU.SA.001 1 LINE 75 175 PAGE UM VALERIO JULY 03, 1981 15:48:15 5.0T5 171 0 SDS, THE SYMBOLIC DEBUGGING SYSTEM. (600/1) IS THE SOURCE FOR THE CLS INTERFACE TO SDS. IT COPIES *CNFGINFODSECT (654), COPY:GLOBALS (1026/3), SDSCONSTANT (600/14), AND SDSPSECT (600/12). ASSEMBLE USING *SYSMAC, SDSMACROS (600/11), AND COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 539/7, 568/1, 600/1, 600/2, 721/18 00600/002 SDS CLS CLS OC G W059:SDSCLS 5.0T2 727 SDS_CLS.CLS.OC.002 1 LINE 80 58 PAGE UM VALERIO JULY 03, 1981 15:48:28 5.0T5 172 0 OBJECT FOR (600/1). 1 MON AUG 05/96 18:37:45 Page 369 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00600/003A SDS CLS CLI SA G W059:SDSCLISOU 5.0T2 728 SDS_CLS.CLI.SA.003 1 LINE 72 85 PAGE UM VALERIO JULY 03, 1981 15:48:32 5.0T5 173 0 THE SDS COMMAND LANGUAGE INTERPRETER. COPIES SDSBT (600/13), SDSCONSTANT (600/14), AND SDSPSECT (600/12). ASSEMBLE USING SDSMACROS (600/11), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/004 SDS CLS CLI OC G W059:SDSCLI 5.0T2 729 SDS_CLS.CLI.OC.004 1 LINE 80 34 PAGE UM VALERIO JULY 03, 1981 15:48:39 5.0T5 174 00600/005 SDS CLS IOC SA G W059:SDSIOCSOU 5.0T2 730 SDS_CLS.IOC.SA.005 1 LINE 80 18 PAGE UM VALERIO JULY 03, 1981 15:48:43 5.0T5 175 0 THE SDS I/O CONTROL MODULE. COPIES SDSPSECT (600/12), SDSCONSTANT (600/14), AND SDSBT (600/13). ASSEMBLE USING SDSMACROS (600/11), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/006 SDS CLS IOC OC G W059:SDSIOC 5.0T2 731 SDS_CLS.IOC.OC.006 1 LINE 80 14 PAGE UM VALERIO JULY 03, 1981 15:48:45 5.0T5 176 00600/007 SDS CLS SIMULATOR SA G W059:SDSSIMLSOU 5.0T2 732 SDS_CLS.SIMULATOR.SA.007 1 LINE 70 30 PAGE UM VALERIO JULY 03, 1981 15:48:46 5.0T5 177 0 THE SDS INSTRUCTION SIMULATOR. COPIES SDSPSECT (600/12) AND *CNFGINFODSECT (654). ASSEMBLE USING SDSMACROS (600/11) AND COPY:MTS.MACROS (344/3). 00600/008 SDS CLS SIMULATOR OC G W059:SDSSIML 5.0T2 733 SDS_CLS.SIMULATOR.OC.008 1 LINE 80 18 PAGE UM VALERIO JULY 03, 1981 15:48:49 5.0T5 178 00600/009A SDS CLS EDITOR SA G W059:SDSEDTRSOU 5.0T2 734 SDS_CLS.EDITOR.SA.009 1 LINE 72 38 PAGE UM VALERIO JULY 03, 1981 15:48:51 5.0T5 179 0 THE SDS EDITOR. COPIES SDSBT (600/13), SDSCONSTANT (600/14), AND SDSPSECT (600/12). ASSEMBLE USING SDSMACROS (600/11), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/010 SDS CLS EDITOR OC G W059:SDSEDTR 5.0T2 735 SDS_CLS.EDITOR.OC.010 1 LINE 80 18 PAGE UM VALERIO JULY 03, 1981 15:48:54 5.0T5 180 00600/011 SDS CLS SDSMACROS SM G SDSM W059:SDSMACROS 5.0T2 736 SDS_CLS.SDSMACROS.SM.011 1 LINE 80 14 PAGE UM VALERIO JULY 03, 1981 15:48:56 5.0T5 181 0 SDS MACRO LIBRARY. 0 Referenced by comments of: 600/1, 600/3, 600/5, 600/7, 600/9 1 MON AUG 05/96 18:37:45 Page 370 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00600/012 SDS CLS SDSPSECT SA G W059:SDSPSECT 5.0T2 737 SDS_CLS.SDSPSECT.SA.012 1 LINE 72 38 PAGE UM VALERIO JULY 03, 1981 15:48:57 5.0T5 182 0 COPY SECTION FOR SDS DSECTS. 0 Referenced by comments of: 600/1, 600/3, 600/5, 600/7, 600/9 00600/013 SDS CLS SDSBT SA G W059:SDSBT 5.0T2 738 SDS_CLS.SDSBT.SA.013 1 LINE 70 3 PAGE UM VALERIO JULY 03, 1981 15:49:00 5.0T5 183 0 COPY SECTION FOR BRANCH TABLES. 0 Referenced by comments of: 600/3, 600/5, 600/9 00600/014 SDS CLS SDSCONSTANT SA G W059:SDSCONSTANT 5.0T2 739 SDS_CLS.SDSCONSTANT.SA.014 1 LINE 68 1 PAGE UM VALERIO JULY 03, 1981 15:49:01 5.0T5 184 0 COPY SECTION FOR CONSTANTS. 0 Referenced by comments of: 600/1, 600/3, 600/5, 600/9 00600/015A SDS CLS OBJECT OE G *CLSSDS 5.0T2 740 SDS_CLS.OBJECT.OE.015 1 LINE 32767 88 PAGE UM VALERIO JULY 03, 1981 15:49:02 5.0T5 185 *CLSSDS 0 THE SDS OBJECT IS LOADED INTO SHARED VM BY PISTLE AT IPL. 00600/016 SDS CLS TEST PROGRAM C W059:ASMSDSTEST 5.0T2 741 SDS_CLS.TEST_PROGRAM.C.016 1 LINE 63 1 PAGE UM VALERIO JULY 03, 1981 15:49:07 5.0T5 186 0 SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAMS IN (600/17). 00600/017A SDS CLS TEST PGM 1 SA W059:SDSTEST.S 5.0T2 742 SDS_CLS.TEST_PGM_1.SA.017 1 LINE 63 6 PAGE UM VALERIO JULY 03, 1981 15:49:08 5.0T5 187 0 Referenced by comments of: 600/16 00600/018 SDS CLS TEST PGM 1 OC W059:SDSTEST.O 5.0T2 743 SDS_CLS.TEST_PGM_1.OC.018 1 LINE 80 8 PAGE UM VALERIO JULY 03, 1981 15:49:09 5.0T5 188 00600/019 SDS CLS TEST PGM 2 SP W059:PL1TESTSOU 5.0T2 744 SDS_CLS.TEST_PGM_2.SP.019 1 LINE 92 5 PAGE UM VALERIO JULY 03, 1981 15:49:10 5.0T5 189 1 MON AUG 05/96 18:37:45 Page 371 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00600/020 SDS CLS TEST PGM 2 OC W059:PL1TEST 5.0T2 745 SDS_CLS.TEST_PGM_2.OC.020 1 LINE 80 14 PAGE UM VALERIO JULY 03, 1981 15:49:11 5.0T5 190 00601/001 SLT INSTRUCTION DIAGRAM P S0564 D4T2 VLO FSNAME=SLT_INSTRUCTION_DIAGRAM..P.(1) 788 5.0T2 746 SLT_INSTRUCTION_DIAGRAM..P.001 1 LINE 75 1 PAGE UM ? AUG. 02, 1973 00:33.08 5.0T5 191 0 PRINTER DIAGRAM SHOWING OPERATION OF SYSTEM/360 SLT (SEARCH LIST) INSTRUCTION. 00602/001 NOT-RESEQUENCER SS S0564 D4T2 VLO FSNAME=NOT-RESEQUENCER..SS.(1) 789 5.0T2 747 NOT-RESEQUENCER..SS.001 1 LINE 63 2 PAGE UM DWB JULY 28, 1977 03:55:16 5.0T5 192 0 PROGRAM TO PUT SEQUENCE ID ON MTS (OR ANYTHING ELSE) FOR A NEW MASTER WITHOUT CHANGING THE ID'S ON EXISTING CARDS. UNLIKE EARLIER VERSIONS, THE SEQUENCE ID DOES NOT HAVE TO BE ALL NUMERIC. USAGE: RUN UPDATE DECK AGAINST MASTER TO PRODUCE UPDATED SOURCE. THEN RUN THIS PROGRAM FEEDING THE UPDATE DECK IN ON UNIT 3 AND THE UPDATED SOURCE ON UNIT 4. OUTPUT: ON UNIT 8, THE NEW SOURCE TAPE WITH NEW ID'S INSERTED, AND ON UNIT 7 (SPUNCH IF *SPITBOL), THE NEW UPDATE DECK WITH THE NEW ID'S ON THE CARDS TO BE INSERTED. IF THIS PROGRAM CAN'T FIT THE CARDS TO BE INSERTED BETWEEN TWO EXISTING ID'S, IT WILL PRINT AN ERROR COMMENT ON UNIT 6 ALONG WITH THE PREVIOUS CARD, THE FOLLOWING CARD, AND THE NUMBER OF CARDS TO BE INSERTED. IT THEN GOES AHEAD, BUT USES "********" FOR THE ID ON THE CARDS FOR THAT INSERTION. ONE GENERALLY RUNS THIS PROGRAM TWICE-- FIRST TO FIND ALL THE PLACES THAT DON'T FIT, AND THEN FUDGES THE UPDATE DECK SLIGHTLY SO AS TO MAKE THEM FIT, THEN THE FINAL RUN. 00603/001 UC3330 # (PART OF UNIT CHECK ROUTINES) UM 0 Part of Unit Check Routines (787/5). 0 Referenced by comments of: 787/1 00604/001 PRNTCNTS # (PART OF SYSTEM WATCHERS) UM 0 Part of System Watchers (540/3). 00605/001A TWAIT SUBR D5 SOURCE SA G S0699 D3TAPE POSN=TWAIT.D5 5.0T4 386 TWAIT_SUBR.D5_SOURCE.SA.001 1 LINE 80 3 PAGE UM MTA AUG. 09, 1981 23:16:40 5.0T10 290 0 USER CALLABLE SUBROUTINE TO WAIT FOR A SPECIFIED REAL TIME INTERVAL AND THEN RETURN. 0 Referenced by comments of: 606/1 00605/002C TWAIT SUBR UPDATE UC G MTA:TWAIT.U 5.0T4 387 TWAIT_SUBR.UPDATE.UC.002 1 LINE 65 1 PAGE UM MTA AUG. 09, 1981 23:16:40 5.0T10 291 0 Updates TWAIT from D4.0 source to D5.0 source. 1 MON AUG 05/96 18:37:45 Page 372 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00605/003A TWAIT SUBR OC G SEG2:TWAIT 5.0T4 388 TWAIT_SUBR..OC.003 1 LINE 80 1 PAGE UM MTA AUG. 09, 1981 23:16:41 5.0T10 292 SEG2:TWAIT 00606/001 TICALL SUBR SA G S0564 D4T2 VLO FSNAME=TICALL_SUBR..SA.001(1) 793 5.0T2 748 TICALL_SUBR..SA.001 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 04:02:05 5.0T5 193 0 SUBROUTINE TO PROVIDE AN INTERFACE TO THE MTS TIMER INTERRUPT SUBROUTINES (605) FROM FORTRAN PROGRAMS. 00606/002 TICALL SUBR OC G # (PART OF *LIBRARY) UM MTA 0 Object part of *LIBRARY (524/1) 00607/001 STIMER SUBR SA G S0564 D4T2 VLO FSNAME=STIMER_SUBR..SA.001(1) 794 5.0T2 749 STIMER_SUBR..SA.001 1 LINE 80 5 PAGE UM MTA JULY 28, 1977 04:02:07 5.0T5 194 0 SUBROUTINE TO PROVIDE MTS SUPPORT FOR THE OS/ 360 STIMER AND TTIMER MACROS WHICH ARE AVAILABLE IN *SYSMAC. SEE (545/30) IN FAKEOS FOR A TEST PROGRAM. 00607/002 STIMER SUBR OC G # (PART OF *LIBRARY) UM MTA 0 Object part of *LIBRARY (524/1) 00608/001 *MVC SA G MVC W032:MVCSOU4.0 5.0T2 750 MVC..SA.001 1 LINE 80 38 PAGE UM EMERY JULY 03, 1981 15:49:21 5.0T5 195 0 RECORD REFORMATTING PROGRAM. 00608/002 *MVC OC G *MVC 5.0T2 751 MVC..OC.002 1 LINE 80 4 PAGE UM EMERY JULY 03, 1981 15:49:24 5.0T5 196 *MVC 00609/001 7330 CCW SCANNER # (OBSOLETE) D4T2 797 7330_CCW_SCANNER..SA.001 1 LINE 80 5 PAGE UM FEB. 14, 1975 00:29:06 0 360/67 PROGRAM TO SCAN ITEL 7330 DISK CHANNEL PROGRAMS TO FIND RESTART ADDRESS FOR SOFTWARE COMMAND RETRY. 00610/001A FILE SAVE TAPE COPY SA RSTR:FSTAPECOPY(1000) 5.0T2 752 FILE_SAVE_TAPE_COPY..SA.001 1 LINE 74 16 PAGE UM HELFFRICH JULY 03, 1981 15:49:25 5.0T5 197 RSTR:FSTAPECOPY 0 PROGRAM TO MAKE COPIES OF FILESAVE TAPES, AS PRODUCED BY (067). WILL OPTIONALLY MAKE A LISTING OF THE FILES ON THE TAPE WITH OR WITHOUT COPYING. DOES NOT REQUIRE THAT OUTPUT TAPE BE PHYSICALLY LONGER THAN INPUT TAPE. SEE THE OPERATORS MANUAL (592) FOR USAGE DIRECTIONS. COPIES *CNFGINFODSECT (654). ASSEMBLE WITH THE FILESAVE MACROS (067/31). *************************************************************************** D5.0 changes: 1 MON AUG 05/96 18:37:45 Page 373 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Fixed bug causing stream date checking to fail if tapes being copied crossed midnight when saved. *************************************************************************** 0 Referenced by comments of: 67/1 00610/002A FILE SAVE TAPE COPY OC RSTR:FSTAPECOPY(1,999) 5.0T2 753 FILE_SAVE_TAPE_COPY..OC.002 1 LINE 80 15 PAGE UM HELFFRICH JULY 03, 1981 15:49:30 5.0T5 198 00610/003A FILE SAVE TAPE COPY *FSC C *FSC 5.0T2 754 FILE_SAVE_TAPE_COPY.*FSC.C.003 1 LINE 71 1 PAGE UM HELFFRICH JULY 03, 1981 15:49:34 5.0T5 199 RSTR:*FSC 0 COMMAND FILE TO START THE FILESAVE TAPE COPY PROGRAM. INVOKED BY ENTERING "MTS *FSC" ON THE OPERATOR'S CONSOLE. 00611/001 LOCKSTAT # (OBSOLETE) D4T2 802 LOCKSTAT..SA.001 1 LINE 80 6 PAGE UM AUG. 02, 1973 00:36.13 0 PROGRAM TO PRINT LOCK BYTE COUNTS AND TIMES FROM THE SUPERVISOR (045). 00612/001 LETGO SUBR SA G S1143 D4.1T1 VLO FSNAME=LETGO_SUBR..SA.001(1) 376 5.0T2 755 LETGO_SUBR..SA.001 1 LINE 80 5 PAGE UM WSG APR. 21, 1978 18:32:23 5.0T5 200 0 FORTRAN CALLABLE SUBROUTINE TO UNLOCK AND RELOCK FILES AT SPECIFIED INTERVALS OF REAL TIME. SOURCE IN LINES 1,999. 00612/002 LETGO SUBR OC G # (PART OF *LIBRARY) UM WSG 0 Object part of *LIBRARY (524/1) 00613/001 LONGREAD SA S S0564 D4T2 VLO FSNAME=LONGREAD..SA.001(1) 805 5.0T2 756 LONGREAD..SA.001 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:36.19 5.0T5 201 0 PROGRAM TO DEBLOCK MAGNETIC TAPE BLOCKS WHICH ARE UP TO 65534 BYTES LONG USING MTS MAG TAPE DSR. NOT FOR GENERAL USE SINCE IT REQUIRES THAT THE SIZE PARAMETER IN THE TAPERTN DSECT BE PATCHED. SEE COMMENTS IN LISTING. 00613/002 LONGREAD OC S S0564 D4T2 VLO FSNAME=LONGREAD..OC.002(1) 806 5.0T2 757 LONGREAD..OC.002 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:36.21 5.0T5 202 00614/001 START JOB # (OBSOLETE) D3T5 184 START_JOB..SA.1 1 LINE 80 1 PAGE UM AUG. 02, 1973 00:36.23 0 Obsoleted by the $SYSTEMSTATUS command. 1 MON AUG 05/96 18:37:45 Page 374 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/001 PLOT SYSTEM MACROS SM G W030:CCMACROS 5.0T2 758 PLOT_SYSTEM.MACROS.SM.001 1 LINE 80 3 PAGE UM LIFT JULY 03, 1981 15:49:40 5.0T5 203 0 THE UM MTS CALCOMP PLOT ROUTINES. SEVERAL OF THE SOURCE SUB-COMPONENTS OF THE PLOT SYSTEM CONSIST OF MORE THAN ONE ASSEMBLY, SO ASSEMBLE WITH PAR=B. (615/1) CONTAINS PLOT SYSTEM MACRO LIBRARY USED TO ASSEMBLE SOME OF THE ROUTINES. 0 Referenced by comments of: 615/1, 615/3 00615/002 PLOT SYSTEM PLTBGN SA G W030:PLTBGN 5.0T2 759 PLOT_SYSTEM.PLTBGN.SA.002 1 LINE 71 14 PAGE UM LIFT JULY 03, 1981 15:49:41 5.0T5 204 0 SUBROUTINE IN *PLOTSYS. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 615/9 00615/003 PLOT SYSTEM ASM SA G W030:CCASM 5.0T2 760 PLOT_SYSTEM.ASM.SA.003 1 LINE 80 36 PAGE UM LIFT JULY 03, 1981 15:49:47 5.0T5 205 0 SUBROUTINES IN *PLOTSYS. ASSEMBLE USING PLOT MACROS (615/1) AND *SYSMAC. 0 Referenced by comments of: 615/9 00615/004A PLOT SYSTEM FORT SF G W030:CCFORT 5.0T2 761 PLOT_SYSTEM.FORT.SF.004 1 LINE 76 17 PAGE UM LIFT JULY 03, 1981 15:49:52 5.0T5 206 0 SUBROUTINES IN *PLOTSYS. ********************************************************************************** D5.0 CHANGES (ALREADY DISRIBUTED): FIXED BUG IN PLGAXS (IN PRINTING OF AXIS VALUES). ********************************************************************************** 0 Referenced by comments of: 615/9 00615/005 PLOT SYSTEM PSYM SA G W030:PSYM 5.0T2 762 PLOT_SYSTEM.PSYM.SA.005 1 LINE 68 14 PAGE UM LIFT JULY 03, 1981 15:49:57 5.0T5 207 0 CHARACTER GENERATION ROUTINE WHICH USES 256-CHARACTER ALPHABETS, ALLOWS SLANTING OF LETTERS, AND CHANGING PROPORTIONS AND SPACING. SEE THE INSTALLATION INSTRUCTIONS (615/23) FOR AN EXPLANATION OF THE &WHAT ASSEMBLY PARAMETER. COPIES CBDSECT (615/7). 0 Referenced by comments of: 532/1, 615/6, 615/7, 615/9, 615/16, 615/18, 615/21, 615/22 1 MON AUG 05/96 18:37:45 Page 375 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/006 PLOT SYSTEM PALPHA SA G W030:PALPHA 5.0T2 763 PLOT_SYSTEM.PALPHA.SA.006 1 LINE 68 10 PAGE UM LIFT JULY 03, 1981 15:49:59 5.0T5 208 0 THIS ROUTINE IS USED WITH PSYM (615/5). THE STANDARD ALPHABET ACTUALLY RESIDES HERE. HOWEVER, PALPHA CAN OBTAIN ALTERNATE ALPHABETS FROM ETC:PLOTALPHA (615/8) OR FROM A USER FILE. COPIES CBDSECT (615/7). 0 Referenced by comments of: 615/7, 615/8, 615/9, 615/16, 615/18, 615/21, 615/22 00615/007 PLOT SYSTEM CBDSECT SA G W030:CBDSECT 5.0T2 764 PLOT_SYSTEM.CBDSECT.SA.007 1 LINE 69 1 PAGE UM LIFT JULY 03, 1981 15:50:00 5.0T5 209 0 DSECT COPIED BY PSYM (615/5) AND PALPHA (615/6) WHICH DESCRIBES THE STRUCTURE OF CHARACTER SETS (ALPHABETS). 0 Referenced by comments of: 615/5, 615/6 00615/008 PLOT SYSTEM ETC:PLOTALPHA D ETC:PLOTALPHA 5.0T2 765 PLOT_SYSTEM.ETC:PLOTALPHA.D.008 1 LINE 22530 53 PAGE UM LIFT JULY 03, 1981 15:50:01 5.0T5 210 ETC.:PLOTALPHA 0 A DATA FILE FOR STANDARD SYSTEM CHARACTER SETS (ALPHABETS). THE FORMAT OF THE FILE IS DESCRIBED IN THE SOURCE FOR PALPHA (615/6); THE FORMAT OF THE CHARACTER SETS IS DESCRIBED IN MTS VOLUME 11 (AUGUST 1978). 0 Referenced by comments of: 615/6, 3018/135 00615/009A PLOT SYSTEM *PLOTSYS OL G *PLOTSYS 5.0T2 766 PLOT_SYSTEM.*PLOTSYS.OL.009 1 LINE 5456 22 PAGE UM LIFT JULY 03, 1981 15:50:04 5.0T5 211 *PLOTSYS 0 OBJECT LIBRARY GENERATED FROM (615/2) + (615/3) + (615/4) + (615/5) + (615/6). 0 Referenced by comments of: 498/12, 498/54, 615/24, 615/26, 681/5, 824/5, 3018/137 00615/010A PLOT SYSTEM PLOTTER SA G W030:PLOTTER 5.0T2 767 PLOT_SYSTEM.PLOTTER.SA.010 1 LINE 72 21 PAGE UM LIFT JULY 03, 1981 15:50:06 5.0T5 212 0 PLOTTER ROUTINE FOR CALCOMP 936 AND 1051 AND ZIGZAG ROUTINE FOR CALCOMP 936 ONLY. THESE ROUTINES ARE USED TO READ AND TRANSLATE PDF'S FOR *CCQUEUE (615/16) AND SYS:CCP (615/18). SEE THE INSTALLATION INSTRUCTIONS (615/23) FOR AN EXPLANATION OF THE &WHAT ASSEMBLY PARAMETER WHICH CONTROLS THE PRODUCTION OF DIFFERENT VERSIONS. ASSEMBLE USING PLOT SYSTEM MACROS (615/14). ********************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ********************************************************************************** 1 MON AUG 05/96 18:37:45 Page 376 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 615/11, 615/16, 615/18, 615/21, 615/22 00615/011A PLOT SYSTEM ZIGZAG 1051 SA G W030:ZIGZAG 5.0T2 768 PLOT_SYSTEM.ZIGZAG_1051.SA.011 1 LINE 80 8 PAGE UM LIFT JULY 03, 1981 15:50:13 5.0T5 213 0 THIS SUBROUTINE REPLACES THE ZIGZAG ROUTINE IN (615/10) FOR USE WITH THE CALCOMP 1051 PLOTTER. ASSEMBLE USING THE PLOT SYSTEM MACROS (615/14). ***************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ***************************************************************************** 0 Referenced by comments of: 615/22 00615/012 PLOT SYSTEM ENDPLOT SA G W030:ENDPLOT 5.0T2 769 PLOT_SYSTEM.ENDPLOT.SA.012 1 LINE 80 2 PAGE UM LIFT JULY 03, 1981 15:50:15 5.0T5 214 0 SUBROUTINE TO PRINT "END OF PLOTS ....." FOR PLOTCON (615/20). 0 Referenced by comments of: 615/21, 615/22 00615/013 PLOT SYSTEM TEARLINE SA G W030:TEARLINE 5.0T2 770 PLOT_SYSTEM.TEARLINE.SA.013 1 LINE 80 3 PAGE UM LIFT JULY 03, 1981 15:50:16 5.0T5 215 0 SUBROUTINE TO PUT SPACE AND DASHED LINES (TEAR HERE) BETWEEN PLOTS. IT HAS BEEN ADDED AS A SEPARATE SUBROUTINE BECAUSE THE OPERATIONS STAFF AT MICHIGAN LIKES TO VARY THIS SORT OF THING. 0 Referenced by comments of: 615/21, 615/22 00615/014A PLOT SYSTEM MACROS SM G W030:PLOTTER.MAC 5.0T2 771 PLOT_SYSTEM.MACROS.SM.014 1 LINE 67 3 PAGE UM LIFT JULY 03, 1981 15:50:17 5.0T5 216 0 MACRO LIBRARY USED BY POST-PROCESSING ROUTINES. ********************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ********************************************************************************** 0 Referenced by comments of: 615/10, 615/11, 615/15, 615/17, 615/20, 615/29, 615/31, 615/38, 615/44 1 MON AUG 05/96 18:37:45 Page 377 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/015A PLOT SYSTEM *CCQUEUE SA G W030:CCQ 5.0T2 772 PLOT_SYSTEM.*CCQUEUE.SA.015 1 LINE 70 20 PAGE UM LIFT JULY 03, 1981 15:50:18 5.0T5 217 0 MAIN PROGRAM FOR *CCQUEUE, AND SUBROUTINES CCQCNCL AND PLOTCOST. COPIES COPY:RATEVEC (651/3), COPY:GLOBALS (1026/3), AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3), AND PLOT SYSTEM MACROS (615/14). ********************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ********************************************************************************** 0 Referenced by comments of: 615/16 00615/016A PLOT SYSTEM *CCQUEUE OE G *CCQUEUE 5.0T2 773 PLOT_SYSTEM.*CCQUEUE.OE.016 1 SEQ 6358 7 PAGE UM LIFT JULY 03, 1981 15:50:21 5.0T5 218 *CCQUEUE 0 PROGRAM TO QUEUE USERS PLOTS FOR POST-PROCESSING BY *CCP. ADDS A LINE TO *CCPFILE, NOT DISTRIBUTED, INDICATING THE PLOT TO BE PROCESSED. OBJECT FROM (615/15) + (615/10) + (615/5) + (615/6). ***************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ***************************************************************************** 0 Referenced by comments of: 615/10 00615/017A PLOT SYSTEM CCP SA G W030:CCP 5.0T2 774 PLOT_SYSTEM.CCP.SA.017 1 LINE 68 20 PAGE UM LIFT JULY 03, 1981 15:50:22 5.0T5 219 0 MAIN PROGRAM FOR *CCP PLUS SUBROUTINE TAPECON. COPIES COPY:GLOBALS (1026/3). ASSEMBLE USING PLOT SYSTEM MACROS (615/14). ********************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ********************************************************************************** 0 Referenced by comments of: 615/18, 615/37 1 MON AUG 05/96 18:37:45 Page 378 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/018A PLOT SYSTEM CCP OE G SYS:CCP 5.0T2 775 PLOT_SYSTEM.CCP.OE.018 1 LINE 5300 5 PAGE UM LIFT JULY 03, 1981 15:50:26 5.0T5 220 SYS.:CCP 0 POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/19) USED BY THE SYSTEM OPERATOR TO GENERATE PLOT TAPES. CONSISTS OF OBJECT FROM (615/17) + (615/10) + (615/5) + (615/6). ***************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ***************************************************************************** 0 Referenced by comments of: 615/10, 615/19, 615/35 00615/019 PLOT SYSTEM *CCP C *CCP 5.0T2 776 PLOT_SYSTEM.*CCP.C.019 1 LINE 25 1 PAGE UM LIFT JULY 03, 1981 15:50:27 5.0T5 221 *CCP 0 COMMAND FILE INVOKED BY ENTERING "MTS *CCP" ON OPERATOR'S CONSOLE. USED BY THE SYSTEM OPERATOR TO GENERATE THE PLOT TAPES. RUNS THE SYS:CCP PROGRAM (615/18). 0 Referenced by comments of: 615/18, 615/31, 615/33, 615/38 00615/020A PLOT SYSTEM PLOTCON SA G W030:PLOTCON 5.0T2 777 PLOT_SYSTEM.PLOTCON.SA.020 1 LINE 70 18 PAGE UM LIFT JULY 03, 1981 15:50:27 5.0T5 222 0 PROGRAM USED BY THE OPERATOR TO PLOT THE QUEUED PLOTS ON THE UM ONLINE PLOTTER. SEE THE WRITEUP IN THE OPERATORS' MANUAL (592). ASSEMBLE USING PLOT SYSTEM MACROS (615/14). ********************************************************************************** D5.0 CHANGES: Already distributed on D4.3A: Fixed bug in error handling. New changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ********************************************************************************** 0 Referenced by comments of: 615/12, 615/21, 615/22, 615/36 1 MON AUG 05/96 18:37:45 Page 379 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/021A PLOT SYSTEM PLOTCON OE G SYS:PLT36 5.0T2 778 PLOT_SYSTEM.PLOTCON.OE.021 1 LINE 4412 8 PAGE UM LIFT JULY 03, 1981 15:50:37 5.0T5 223 SYS.:PLT 0 OBJECT FOR (615/5), (615/6), (615/10) PLOTTER AND ZIGZAG, (615/12), (615/13), AND (615/20). THIS FILE IS FOR USE WITH THE CALCOMP 936. ***************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ***************************************************************************** 00615/022A PLOT SYSTEM PLOTCON OE G SYS:PLT51 5.0T2 779 PLOT_SYSTEM.PLOTCON.OE.022 1 LINE 4412 8 PAGE UM LIFT JULY 03, 1981 15:50:38 5.0T5 224 0 OBJECT FOR (615/5), (615/6), (615/10) PLOTTER ONLY, (615/11), (615/12), (615/13), AND (615/20). THIS FILE IS FOR USE WITH THE CALCOMP 1051. v ***************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ***************************************************************************** 00615/023 PLOT SYSTEM INSTALLATION P S0876 CCGHL 'CALCOMP' FSNAME=PLOTINFO 5.0T2 780 PLOT_SYSTEM.INSTALLATION.P.023 1 LINE 71 3 PAGE UM LIFT FEB. 20, 1980 19:28:49 5.0T5 225 0 Referenced by comments of: 615/5, 615/10 00615/024A PLOT SYSTEM PDSTOMNET SA G S0981 W114 'W114SAVE' FSNAME=PDSTOMNET.S 5.0T2 781 PLOT_SYSTEM.PDSTOMNET.SA.024 1 LINE 76 8 PAGE UM EADIE JUNE 12, 1977 21:56:34 5.0T5 226 0 THIS IS A UTILITY TO CONVERT A PLOT DESCRIPTION SYSTEM, PDS, PLOT FILE TO A PLOT FILE IN MERIT NETWORK STANDARD FORM. CONTAINS A $CONTINUE WITH *PLOTSYS (615/9) RECORD. 00615/025A PLOT SYSTEM *PDSTOMNET OC G *PDSTOMNET 5.0T2 782 PLOT_SYSTEM.*PDSTOMNET.OC.025 1 LINE 80 3 PAGE UM EADIE JULY 03, 1981 16:02:12 5.0T5 227 *PDSTOMNET 0 ENDS WITH "$CONTINUE WITH *PLOTSYS" 00615/026A PLOT SYSTEM MNETTOPDS SA G S0981 W114 'W114SAVE' FSNAME=MNETTOPDS.S 5.0T2 783 PLOT_SYSTEM.MNETTOPDS.SA.026 1 LINE 89 5 PAGE UM EADIE FEB. 15, 1976 18:12:38 5.0T5 228 0 THIS IS A UTILITY TO CONVERT A MERIT NETWORK STANDARD PLOT FILE TO A PLOT DESCRIPTION (PDS) PLOT FILE. CONTAINS A $CONTINUE WITH *PLOTSYS (615/9). 1 MON AUG 05/96 18:37:45 Page 380 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/027A PLOT SYSTEM *MNETTOPDS OC G *MNETTOPDS 5.0T2 784 PLOT_SYSTEM.*MNETTOPDS.OC.027 1 LINE 80 3 PAGE UM EADIE JULY 03, 1981 16:02:30 5.0T5 229 *MNETTOPDS 0 ENDS WITH "$CONTINUE WITH *PLOTSYS" 00615/028A PLOT SYSTEM *CCT C *CCT 5.0T2 785 PLOT_SYSTEM.*CCT.C.028 1 LINE 23 1 PAGE UM LIFT JULY 03, 1981 16:02:30 5.0T5 230 *CCT 0 COMMAND FILE USED TO RUN THE CCT PROGRAM (615/29). INVOKED BY ENTERING "MTS *CCT" ON THE OPERATORS CONSOLE. ********************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ********************************************************************************** 00615/029A PLOT SYSTEM CCT PGM SA G S0876 CCGHL 'CALCOMP' FSNAME=CCT 5.0T2 786 PLOT_SYSTEM.CCT_PGM.SA.029 1 LINE 80 3 PAGE UM LIFT NOV. 02, 1977 12:28:11 5.0T5 231 0 PROGRAM TO COMPUTE AND PRINT THE TIME REQUIRED TO PLOT THE PLOTS CURRENTLY IN THE PLOT QUEUE (*CCPFILE). ASSEMBLE USING PLOT SYSTEM MACROS (615/14). ********************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ********************************************************************************** 0 Referenced by comments of: 615/28 00615/030A PLOT SYSTEM CCT PGM OC G SYS:CCT 5.0T2 787 PLOT_SYSTEM.CCT_PGM.OC.030 1 LINE 80 1 PAGE UM LIFT JULY 03, 1981 16:03:04 5.0T5 232 SYS.:CCT 0 ********************************************************************************** D5.0 changes: Changes in multiple pen support; allows operator to set position in pen block of each pen. ********************************************************************************** 00615/031 PLOT SYSTEM PLOTTAPE SA G W030:PLOTTAPE 5.0T2 788 PLOT_SYSTEM.PLOTTAPE.SA.031 1 LINE 80 6 PAGE UM LIFT JULY 03, 1981 16:03:05 5.0T5 233 0 Program used for two functions: 1 MON AUG 05/96 18:37:45 Page 381 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 1. Initializing plot tapes for use by *CCP (615/19), and 2. Constructing plot priority information in the file SYS:CCPPRIO (615/33) for use by *CCP. Assemble using PLOT SYSTEM MACROS (615/14). 00615/032 PLOT SYSTEM PLOTTAPE OC G W030:PLOTTAPE(1000) 5.0T2 789 PLOT_SYSTEM.PLOTTAPE.OC.032 1 LINE 80 3 PAGE UM LIFT JULY 03, 1981 16:03:07 5.0T5 234 00615/033 PLOT SYSTEM PRIORITY FILE D SYS.:CCPPRIO 5.0T2 790 PLOT_SYSTEM.PRIORITY_FILE.D.033 1 LINE 88 1 PAGE UM LIFT JULY 03, 1981 16:03:08 5.0T5 235 SYS.:CCPPRIO 0 FILE CONTAINING PLOT PRIORITY INFORMATION USED BY *CCP (615/19) AND *CCD (615/43). 0 Referenced by comments of: 615/31, 615/44 00615/034 PLOT SYSTEM *CCPFILE D # *CCPFILE UM LIFT SYS.:*CCPFILE@E 0 THIS IS THE SYSTEM PLOT QUEUE FILE. 0 Referenced by comments of: 615/35 00615/035 PLOT SYSTEM BACKUPQ D # SYS:BACKUPQ UM LIFT SYS:BACKUPQ@E 0 USED BY CCP (615/18) TO BACKUP *CCPFILE (615/34). 00615/036 PLOT SYSTEM PLOTDIR D # SYS:PLOTDIR UM LIFT SYS:PLOTDIR@E 0 PLOT DIRECTORY FILE USED BY PLOTCON (615/20) TO POINT TO PLOT DATA STORED IN OTHER PERMANENT FILES, WHICH IT WILL CREATE. 00615/037 PLOT SYSTEM PLOTREBAT D # SYS:PLOTREBAT UM LIFT SYS:PLOTREBAT@E 0 DATA WRITTEN INTO THIS FILE BY CCP (615/17) FOR CANCELLED PLOTS IS USED BY CCREBATE (632/9) TO GENERATE INPUT RECORDS FOR THE REBATE PROGRAM. 0 Referenced by comments of: 632/9 00615/038A PLOT SYSTEM CCPINIT SA G W030:CCPINIT 5.0T2 791 PLOT_SYSTEM.CCPINIT.SA.038 1 LINE 80 6 PAGE UM LIFT JULY 03, 1981 16:03:09 5.0T5 236 0 PROGRAM USED BY THE SYSTEM OPERATOR TO INITIALIZE (SET VOLUME LABEL AND IDENT 1 MON AUG 05/96 18:37:45 Page 382 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 FILE) PLOT TAPES FOR USE BY *CCP (615/19). INSTRUCTIONS WITHIN AND IN OPERATOR'S MANUAL. SOURCE IN LINES 1,999. ASSEMBLE USING PLOT SYSTEM MACROS (615/14). 00615/039A PLOT SYSTEM CCPINIT OC G SYS:CCPINIT 5.0T2 792 PLOT_SYSTEM.CCPINIT.OC.039 1 LINE 80 3 PAGE UM LIFT JULY 03, 1981 16:03:10 5.0T5 237 SYS.:CCPINIT 0 Referenced by comments of: 615/40 00615/040A PLOT SYSTEM *CCL C *CCL 5.0T2 793 PLOT_SYSTEM.*CCL.C.040 1 LINE 40 1 PAGE UM LIFT JULY 03, 1981 16:03:11 5.0T5 238 *CCL 0 COMMAND FILE INVOKED BY ENTERING "MTS *CCL" ON OPERATOR'S CONSOLE. USED BY THE SYSTEM OPERATOR TO INITIALIZE PLOT TAPES. RUNS THE SYS:CCPINIT PROGRAM (615/39). 00615/041 PLOT SYSTEM CCPDEFER SA G S0876 CCGHL 'CALCOMP' FSNAME=CCPDEFER 5.0T2 794 PLOT_SYSTEM.CCPDEFER.SA.041 1 LINE 80 5 PAGE UM LIFT APR. 28, 1978 20:17:20 5.0T5 239 0 PROGRAM USED BY SYSTEM OPERATOR TO TELL CCP TO PUT PLOTS FOR CERTAIN CCIDS ON "DEFERRED" PLOT TAPE. INSTRUCTIONS AND DESCRIPTIONS WITHIN, AND IN OPERATOR'S MANUAL (592). SOURCE IN LINES 1,999. 00615/042 PLOT SYSTEM CCPDEFER OC G SYS:CCPDEFER 5.0T2 795 PLOT_SYSTEM.CCPDEFER.OC.042 1 LINE 80 2 PAGE UM LIFT JULY 03, 1981 16:03:14 5.0T5 240 SYS.:CCPDEFER 0 Referenced by comments of: 615/43 00615/043 PLOT SYSTEM *CCD C *CCD 5.0T2 796 PLOT_SYSTEM.*CCD.C.043 1 LINE 37 1 PAGE UM LIFT JULY 03, 1981 16:03:16 5.0T5 241 *CCD 0 COMMAND FILE INVOKED BY ENTERING "MTS *CCD" ON OPERATOR'S CONSOLE. USED BY THE SYSTEM OPERATOR TO PUT PLOTS FOR CERTAIN CCIDS ON "DEFERRED" PLOT TAPE. RUNS THE SYS:CCPDEFER PROGRAM (615/42). 0 Referenced by comments of: 615/33 00615/044 PLOT SYSTEM PIDENT SA G S0876 CCGHL 'CALCOMP' FSNAME=PIDENT 5.0T2 797 PLOT_SYSTEM.PIDENT.SA.044 1 LINE 80 4 PAGE UM LIFT FEB. 19, 1979 22:09:23 5.0T5 242 0 PROGRAM TO PRINT PLOT TAPE IDENTIFICATION, INCLUDING DATE LAST USED, MINIMUM TIME BETWEEN USES, AND THE LINE IN CCPPRIO (615/33) WHICH CONTAINS THE PLOT PRIORITY INFORMATION. SOURCE IN LINES 1,999. ASSEMBLE USING PLOT SYSTEM MACROS (615/14). 0 Referenced by comments of: 615/46 1 MON AUG 05/96 18:37:45 Page 383 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/045 PLOT SYSTEM PIDENT OC G SYS:PIDENT 5.0T2 798 PLOT_SYSTEM.PIDENT.OC.045 1 LINE 80 1 PAGE UM LIFT JULY 03, 1981 16:03:37 5.0T5 243 SYS.:PIDENT 00615/046 PLOT SYSTEM *PLB C *PLB 5.0T2 799 PLOT_SYSTEM.*PLB.C.046 1 LINE 38 1 PAGE UM LIFT JULY 03, 1981 16:03:38 5.0T5 244 *PLB 0 COMMANDS TO RUN PIDENT (615/44) FROM OPERATOR'S CONSOLE. DOCUMENTATION IS IN THE OPERATOR'S MANUAL (592). 00616/001A TERM USAGE STATISTICS SA G WSG:DCSTAT(1,999) 5.0T2 800 TERM_USAGE_STATISTICS..SA.001 1 LINE 72 11 PAGE UM WSG JULY 03, 1981 16:03:38 5.0T5 245 0 Program to compute system usage by various terminal types, classes, and speeds. It reads *STATISTICS data and prints the elapsed time, cpu time, CPU VMI, and wait VMI for each terminal type and summarizes the by classes of terminals. The distributed version is set up for the UM terminal i/o configuration. The file containing the *STATISTICS data may be specified in the PAR field or a tape may be specified by giving "PAR=TAPE-vol 'tape id'" where vol is the volume name of the tape to be mounted and 'tape id' is the external label. Giving "PAR=TAPE" means the tape is unlabeled. If the *STATISTICS tape directory system (742) is being used, then "PAR=DATE=mm-dd -yy¬ ...mm-dd -yy¬¬ ,TIME=hh:mm...hh:mm¬" should be given to specify a date/time range. If no PAR= is given, the data is read from *STATISTICS. Calls the STATIO routine (617/2). Assemble using COPY:MTS.MACROS (344/3) and the usage statistics macros (617/3). 0 Referenced by comments of: 616/2 00616/002A TERM USAGE STATISTICS OC G WSG:DCSTAT(1000) 5.0T2 801 TERM_USAGE_STATISTICS..OC.002 1 LINE 80 8 PAGE UM WSG JULY 03, 1981 16:03:47 5.0T5 246 0 Object from (616/1) + (617/2). Ends with a "$CONTINUE WITH SYS:DIRLIB" card. 00617/001A USAGE STATISTICS STAT PGM SA G WSG:STAT(1,999) 5.0T2 802 USAGE_STATISTICS.STAT_PGM.SA.001 1 LINE 72 8 PAGE UM WSG JULY 03, 1981 16:03:52 5.0T5 247 0 Program to print system usage for specified user id's, answerbacks, and master source device names. For each record found, the user id, project number, signon and off times, date, answerback, elapsed time, and merit connect time are printed on SPRINT and the total elapsed time for all jobs found is printed on SERCOM. The following commands are accepted: DATE mm-dd mm-dd specify date range for subsequent searches. TIME hh:mm hh:mm specify time range for subsequent searches. U userid scan for all runs for this userid. 1 MON AUG 05/96 18:37:45 Page 384 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 D name scan for all runs from this msource device. A answerback scan for all runs with this answerback code. N scan for all runs using Merit outbound connections. R rdcid scan for all runs from Remote Data Concentrator with this rdcid. Note: the character "#" is used as a fill character for the matching done by the U, D, and A commands. For example "D LA##" will find all jobs on any "LA", Memorex 1270 line. The file from which the input statistics data is read may be specified in the PAR field or a tape may be specified by giving "PAR=TAPE-vol 'tape id'" where vol is the volume name of the tape to be mounted and 'tape id' is the external label. "PAR=TAPE" means the tape is unlabeled. Note: if no PAR is given, the tapes will be automatically mounted as necessary when the DATE command has been given. The TIME is optional. This facility makes use of the tape directory routines (742) and SYS:DIRECTORY (050/6), which accesses tape information. If no DATE command has been given, *STATISTICS is scanned. Assemble using COPY:MTS.MACROS (344/3) and the usage statistics macros (617/3). 0 Referenced by comments of: 617/3, 617/4 00617/002 USAGE STATISTICS STATIO SUBR SA G W116:STATTAPE.S 5.0T2 803 USAGE_STATISTICS.STATIO_S.SA.002 1 LINE 72 16 PAGE UM H YOUNG JULY 03, 1981 16:03:57 5.0T5 248 0 Routine to do I/O to statistics files. There are three EQU's at the front of this assembly for FILETBLN, TAPETBLN, and FDUBTBLN which specify the maximum number of statistics files, tapes, and tape drives the program can use. The distributed version is set for 100, 20, and 10 respectively. This routine handles all I/O and mounting of all tapes needed to satisfy the specified date/time range. Assemble using (617/3). 0 Referenced by comments of: 616/1, 616/2, 617/3, 617/4 00617/003 USAGE STATISTICS MACROS SM G W116:STATLIB 5.0T2 804 USAGE_STATISTICS.MACROS.SM.003 1 LINE 72 3 PAGE UM H YOUNG JULY 03, 1981 16:04:00 5.0T5 249 0 Macro library for (617/1) and (617/2). 0 Referenced by comments of: 616/1, 617/1, 617/2 00617/004A USAGE STATISTICS OC G W108:STAT 5.0T2 805 USAGE_STATISTICS..OC.004 1 LINE 80 6 PAGE UM WSG JULY 03, 1981 16:04:01 5.0T5 250 0 Object from (617/1) + (617/2). Ends with a "$CONTINUE WITH SYS:DIRLIB" card. 00618/001 BUFSTAT # (PART OF BUFALLOC) UM 0 Part of BUFALLOC (009/3). 1 MON AUG 05/96 18:37:45 Page 385 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00619/001 *ASMT *ASMTSYSMAC SM O *ASMTSYSMAC 499 5.0T2 806 ASMT.*ASMTSYSMAC.SM.001 1 LINE 73 82 PAGE UM TIFFANY JULY 03, 1981 16:04:03 5.0T5 251 *ASMTSYSMAC 0 THE IBM TSS/360 ASSEMBLER MODIFIED TO RUN IN MTS. *ASMTSYSMAC IS THE ASMT VERSION OF *SYSMAC. ******************************************************************************** D5.0 version: Unless we hear any major complaints, this will be the final distribution of the IBM TSS/360 Assembler (*ASMT). ******************************************************************************** 0 Referenced by comments of: 225/1 00619/002 *ASMT MACROS SM G S0564 D4T2 VLO FSNAME=ASMT.MACROS.SM.002(1) 845 5.0T2 807 ASMT.MACROS.SM.002 1 LINE 80 75 PAGE UM TIFFANY JUNE 17, 1976 22:40:31 5.0T5 252 0 MACRO LIBRARY USED TO ASSEMBLE COMPS (619/3) THROUGH (619/23). CONTAINS DSECTS, PSECTS, AND OTHER TID BITS. 0 Referenced by comments of: 619/3 00619/003 *ASMT PHASE 1.1 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.1.SA.003(1) 846 5.0T2 808 ASMT.PHASE_1.1.SA.003 1 LINE 80 45 PAGE UM TIFFANY MAR. 02, 1976 00:11:50 5.0T5 253 0 COMPS (619/3) THROUGH (619/23) SHOULD ALL BE ASSEMBLED USING THE ASMTMACROS MACRO LIBRARY (619/2) AND *SYSMAC. 0 Referenced by comments of: 619/2, 619/3 00619/004 *ASMT PHASE 1.2 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.2.SA.004(1) 847 5.0T2 809 ASMT.PHASE_1.2.SA.004 1 LINE 80 52 PAGE UM TIFFANY JAN. 15, 1975 21:41:40 5.0T5 254 00619/005 *ASMT PHASE 1.3 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.3.SA.005(1) 848 5.0T2 810 ASMT.PHASE_1.3.SA.005 1 LINE 80 50 PAGE UM TIFFANY JAN. 15, 1975 21:41:45 5.0T5 255 00619/006 *ASMT PHASE 1.4 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.4.SA.006(1) 849 5.0T2 811 ASMT.PHASE_1.4.SA.006 1 LINE 80 42 PAGE UM TIFFANY JAN. 15, 1975 21:41:50 5.0T5 256 00619/007 *ASMT PHASE 1.5 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.5.SA.007(1) 850 5.0T2 812 ASMT.PHASE_1.5.SA.007 1 LINE 80 51 PAGE UM TIFFANY JAN. 15, 1975 21:41:53 5.0T5 257 1 MON AUG 05/96 18:37:45 Page 386 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00619/008 *ASMT PHASE 1.6 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.6.SA.008(1) 851 5.0T2 813 ASMT.PHASE_1.6.SA.008 1 LINE 80 48 PAGE UM TIFFANY JAN. 15, 1975 21:41:59 5.0T5 258 00619/009 *ASMT PHASE 1.7 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.7.SA.009(1) 852 5.0T2 814 ASMT.PHASE_1.7.SA.009 1 LINE 80 41 PAGE UM TIFFANY JAN. 15, 1975 21:42:03 5.0T5 259 00619/010 *ASMT PHASE 1.8 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.8.SA.010(1) 853 5.0T2 815 ASMT.PHASE_1.8.SA.010 1 LINE 80 19 PAGE UM TIFFANY JAN. 15, 1975 21:42:07 5.0T5 260 00619/011 *ASMT PHASE 1.9 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_1.9.SA.011(1) 854 5.0T2 816 ASMT.PHASE_1.9.SA.011 1 LINE 80 10 PAGE UM TIFFANY JAN. 15, 1975 21:42:09 5.0T5 261 00619/012 *ASMT PHASE 2.1 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_2.1.SA.012(1) 855 5.0T2 817 ASMT.PHASE_2.1.SA.012 1 LINE 80 30 PAGE UM TIFFANY JAN. 15, 1975 21:42:11 5.0T5 262 00619/013 *ASMT PHASE 2.2 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_2.2.SA.013(1) 856 5.0T2 818 ASMT.PHASE_2.2.SA.013 1 LINE 80 42 PAGE UM TIFFANY JAN. 15, 1975 21:42:14 5.0T5 263 00619/014 *ASMT PHASE 2.3 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_2.3.SA.014(1) 857 5.0T2 819 ASMT.PHASE_2.3.SA.014 1 LINE 80 20 PAGE UM TIFFANY FEB. 11, 1975 01:57:51 5.0T5 264 00619/015 *ASMT PHASE 3.1 SA S S0564 D4T2 VLO FSNAME=ASMT.PHAS1_3.1.SA.015(1) 858 5.0T2 820 ASMT.PHASE_3.1.SA.015 1 LINE 80 65 PAGE UM TIFFANY MAR. 10, 1976 17:14:58 5.0T5 265 00619/016 *ASMT PHASE 3.2 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_3.2.SA.016(1) 859 5.0T2 821 ASMT.PHASE_3.2.SA.016 1 LINE 80 65 PAGE UM TIFFANY FEB. 13, 1976 03:55:40 5.0T5 266 00619/017 *ASMT PHASE 4 SA S S0564 D4T2 VLO FSNAME=ASMT.PHASE_4.SA.017(1) 860 5.0T2 822 ASMT.PHASE_4.SA.017 1 LINE 80 59 PAGE UM TIFFANY JAN. 15, 1975 21:42:34 5.0T5 267 00619/018 *ASMT ASMTGO SA B S0564 D4T2 VLO FSNAME=ASMT.ASMTGO.SA.018(1) 861 5.0T2 823 ASMT.ASMTGO.SA.018 1 LINE 80 4 PAGE UM TIFFANY JAN. 15, 1975 21:41:15 5.0T5 268 00619/019 *ASMT ASMTDEFS SA S0564 D4T2 VLO FSNAME=ASMT.ASMTDEFS.SA.019(1) 862 5.0T2 824 ASMT.ASMTDEFS.SA.019 1 LINE 80 4 PAGE UM TIFFANY JAN. 15, 1975 21:41:12 5.0T5 269 0 ASMT LOW-CORE SYMBOL TABLE. 1 MON AUG 05/96 18:37:45 Page 387 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00619/020 *ASMT CEVAR SA S S0564 D4T2 VLO FSNAME=ASMT.CEVAR.SA.020(1) 863 5.0T2 825 ASMT.CEVAR.SA.020 1 LINE 80 8 PAGE UM TIFFANY JAN. 15, 1975 21:41:34 5.0T5 270 0 ASMT PSECTS. ASSEMBLE WITH PAR=BATCH. 00619/021 *ASMT LPC SA O S0564 D4T2 VLO FSNAME=ASMT.LPC.SA.021(1) 864 5.0T2 826 ASMT.LPC.SA.021 1 LINE 80 20 PAGE UM TIFFANY JUNE 01, 1975 23:30:22 5.0T5 271 0 ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT). 00619/022 *ASMT OBJ PRODUCER SA O S0564 D4T2 VLO FSNAME=ASMT.OBJ_PRODUCER.SA.022(1) 865 5.0T2 827 ASMT.OBJ_PRODUCER.SA.022 1 LINE 80 28 PAGE UM TIFFANY FEB. 13, 1976 03:55:47 5.0T5 272 0 PROGRAM TO CONVERT TSS OBJECT TO MTS FORMAT OBJECT DECK. 00619/023 *ASMT CEVML SA O S1143 D4.1T1 VLO FSNAME=ASMT.CEVML.SA.023(1) 403 5.0T2 828 ASMT.CEVML.SA.023 1 LINE 80 10 PAGE UM TIFFANY APR. 24, 1978 01:52:36 5.0T5 273 0 MACRO AND COPY LIBRARY RETRIEVAL. COPIES *GDINFODSECT (594). 0 Referenced by comments of: 619/2, 619/3 00619/024 *ASMT *ASMT OE O *ASMT 5.0T2 829 ASMT.*ASMT.OE.024 1 LINE 10167 33 PAGE UM TIFFANY JULY 03, 1981 16:04:55 5.0T5 274 *ASMT 00619/025 *ASMT DOCUMENTATION WF S0564 D4T2 VLO FSNAME=ASMT.DOCUMENTATION.WF.026(1) 869 5.0T2 830 ASMT.DOCUMENTATION.WF.025 1 LINE 153 5 PAGE UM TIFFANY JAN. 15, 1975 21:41:13 5.0T5 275 0 *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION. FILE HAS A "$CONTINUE WITH *DUMMY*" LINE. NOTE: THIS FILE HAS COMMANDS AT NEGATIVE LINE NUMBERS. 00619/026 *ASMT FRAME SA G S0564 D4T2 VLO FSNAME=ASMT.FRAME.SA.027(1) 870 5.0T2 831 ASMT.FRAME.SA.026 1 LINE 80 4 PAGE UM TIFFANY APR. 22, 1977 15:08:31 5.0T5 276 0 SUBROUTINE TO INTERCEPT SCARDS CALLS AND EXPAND "*FRAME" BOXES. ALSO USABLE WITH *ASMG. 00619/027 *ASMT FRAME OE G S0564 D4T2 VLO FSNAME=ASMT.FRAME.OE.028(1) 871 5.0T2 832 ASMT.FRAME.OE.027 1 SEQ 862 1 PAGE UM TIFFANY APR. 22, 1977 15:08:32 5.0T5 277 00620/001 STAT DSECT COPY:STATDSECT SA G # (PART OF COPY:MTS.MACROS) D4T2 872 STAT_DSECT..SA. 1 LINE 80 3 PAGE UM AUG. 14, 1977 22:00:00 0 THE STAT DSECT IS AVAILABLE FROM THE STATFMT MACRO IN COPY:MTS.MACROS (344/3). 1 MON AUG 05/96 18:37:45 Page 388 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00620/002A STAT DSECT GOM STAT DSECT SG G COPY:STATDSECT.SG 5.0T2 833 STAT_DSECT.GOM_STAT_DSECT.SG.002 1 LINE 95 3 PAGE UM MTS OGDEN JULY 03, 1981 16:04:59 5.0T5 278 COPY:STATDSECT.SG 0 GOM VERSION OF *STATISTICS RECORD DSECT. 00621/001A DIRECT ACCESS ERROR LOG *DLG C *DLG 5.0T2 834 DIRECT_ACCESS_ERROR_LOG.*.C.001 1 LINE 39 1 PAGE UM MTA JULY 03, 1981 16:05:00 5.0T5 279 *DLG 0 COMMAND FILE, INVOKED AT UM AS PART OF *LAS (154), WHICH RUNS THE READ3330LOG PROGRAM (621/2) TO READ THE 3330 AND 2305 BUFFERED ERROR LOGS HOURLY. THIS FILE COULD ALSO BE SETUP TO RUN THE CONSOLE WATCH PROGRAM (621/6) IF 2314 DISKS ARE BEING USED. 00621/002A DIRECT ACCESS ERROR LOG READ3330LOG SA G MTA:READ3330LOG(1,999) 5.0T2 835 DIRECT_ACCESS_ERROR_LOG.R.SA.002 1 LINE 72 4 PAGE UM MTA JULY 03, 1981 16:05:01 5.0T5 280 0 WHEN FIRST RUN AND EVERY HOUR THEREAFTER, THIS PROGRAM READS THE BUFFERED HARDWARE ERROR LOG FROM EVERY PUBLIC 3330 VOLUME AND 2305 AND LOGS THE RESULTS IN THE FORM OF UC ERROR MESSAGES. COPIES COPY:CMDAREADSECT (531/19), COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 621/1, 621/4, 621/6 00621/003A DIRECT ACCESS ERROR LOG READ3330LOG OE G ETC.:READ3330LOG 5.0T2 836 DIRECT_ACCESS_ERROR_LOG.R.OE.003 1 SEQ 1188 1 PAGE UM MTA AUG. 21, 1981 05:14:34 5.0T5 281 ETC.:READ3330LOG 00621/004A DIRECT ACCESS ERROR LOG PRINT UC 3330 SA G MTA:PRINTUC3330(1,999) 5.0T2 837 DIRECT_ACCESS_ERROR_LOG.P.SA.004 1 LINE 57 1 PAGE UM MTA JULY 03, 1981 16:05:03 5.0T5 282 MTA.:PRINTUC3330 0 PROGRAM TO READ UNIT CHECK LOG RECORDS, AS SAVED BY READ3330LOG (621/2), OR THE UNIT CHECK ROUTINES (787). READS FROM SCARDS, PRINTS ON SPRINT. IT IGNORES ALL RECORDS THAT ARE NOT OF TYPE 4 OR 25. "PAR=ERRORS" MEANS TO PRINT ONLY THOSE RECORDS WHICH ARE REALLY ERRORS. CALLS READBFR ROUTINE (709) AND PRUC3330 (621/10). COPIES COPY:CMDAREADSECT (531/19). 0 Referenced by comments of: 621/10 00621/005A DIRECT ACCESS ERROR LOG PRINT UC 3330 OC G MTA:PRINTUC3330(1000) 5.0T2 838 DIRECT_ACCESS_ERROR_LOG.P.OC.005 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 16:05:05 5.0T5 283 00621/006 DIRECT ACCESS ERROR LOG CONSOLE WATCH SA O S0564 D4T2 VLO FSNAME=DIRECT_ACCESS_ERROR_LOG.C.SA.006(1) 878 5.0T2 839 DIRECT_ACCESS_ERROR_LOG.C.SA.006 1 LINE 80 2 PAGE UM MTA AUG. 02, 1973 00:53.48 5.0T5 284 0 PROGRAM TO KEEP WATCHING OUTPUT PRINTED ON OPERATORS CONSOLE LOOKING FOR 2314 DISK UNIT CHECK MESSAGES AND WRITES THEM IN A FILE. READ3330LOG (621/2) IS A REPLACEMENT FOR THIS PROGRAM WHEN 3330 AND 2305 HARDWARE IS BEING USED. 1 MON AUG 05/96 18:37:45 Page 389 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 621/1 00621/007 DIRECT ACCESS ERROR LOG CONSOLE WATCH OC O S0564 D4T2 VLO FSNAME=DIRECT_ACCESS_ERROR_LOG.C.OC.007(1) 879 5.0T2 840 DIRECT_ACCESS_ERROR_LOG.C.OC.007 1 LINE 80 1 PAGE UM MTA AUG. 02, 1973 00:53.50 5.0T5 285 00621/008A DIRECT ACCESS ERROR LOG SORT AND PRINT SA G MTA:PRINTUC 5.0T2 841 DIRECT_ACCESS_ERROR_LOG.S.SA.008 1 LINE 72 13 PAGE UM MTA JULY 03, 1981 16:05:07 5.0T5 286 MTA.:PRINTUC 0 PROGRAM TO SORT AND SUMMARIZE UNIT CHECK AND BUFFERED LOG DATA FOR 3330 AND 2305. ACCEPTS PAR=2305 (TO PRINT 2305 ERRORS ONLY), OR BOTH (FOR BOTH 2305 AND 3330 ERRORS). IF NEITHER 2305 NOR BOTH IS GIVEN, IT PROMPTS. COPIES COPY:CMDAREADSECT (531/19). CALLS PRUC3330 (621/10) AND JVCT (674). IGNORES TAPE UNIT CHECK RECORDS, USE EREP (655) OR PM2 (820) FOR THEM. 0 Referenced by comments of: 621/10 00621/009A DIRECT ACCESS ERROR LOG SORT AND PRINT OC G MTA:PUC 5.0T2 842 DIRECT_ACCESS_ERROR_LOG.S.OC.009 1 LINE 8845 6 PAGE UM MTA JULY 03, 1981 16:05:09 5.0T5 287 MTA.:PUC 0 HAS A "$CONTINUE WITH MTA:PRUC3330(1000)+MTS:UBCDATEX RETURN" RECORD. THE REFERENCE TO MTS:UBCDATEX IS FOR THE OBJECT FOR JVCT (674). 00621/010A DIRECT ACCESS ERROR LOG PRUC3330 SA G MTA:PRUC3330(1,999) 5.0T2 843 DIRECT_ACCESS_ERROR_LOG.P.SA.010 1 LINE 72 4 PAGE UM MTA JULY 03, 1981 16:05:10 5.0T5 288 MTA.:PRUC3330 0 SUBROUTINE CALLED BY (621/4) AND (621/8). COPIES COPY:CMDAREADSECT (531/19). 0 Referenced by comments of: 621/4, 621/8 00621/011A DIRECT ACCESS ERROR LOG PRUC3330 OC G MTA:PRUC3330(1000) 5.0T2 844 DIRECT_ACCESS_ERROR_LOG.P.OC.011 1 LINE 80 4 PAGE UM MTA JULY 03, 1981 16:05:11 5.0T5 289 00621/012 DIRECT ACCESS ERROR LOG INIT:UC3330LOG D # INIT:UC3330LOG UM MTA INIT:UC3330LOG@E 0 LOG FILE USED BY THE CMDSTAT PICKUP PROGRAM, *CMD (531/6), TO SAVE TYPE 4 AND TYPE 25 UNIT CHECK RECORDS. 0 Referenced by comments of: 531/5, 655/3 00622/001 FCBDSECT SA # (OBSOLETE) D3.2T2 7 FCBDSECT..SA. 1 LINE 80 4 PAGE UM MAR. 21, 1975 02:15:34 0 In COPY:MTS.MACROS (344/3) 1 MON AUG 05/96 18:37:45 Page 390 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00623/001 FDUBDSECT SA # (OBSOLETE) D3.2T2 8 FDUBDSECT..SA. 1 LINE 80 3 PAGE UM MAR. 21, 1975 02:15:37 0 In COPY:MTS.MACROS (344/3) 00624/001 WOPTRDSECT SA # (OBSOLETE) D3.2T2 9 WOPTRDSECT..SA. 1 LINE 80 1 PAGE UM MAR. 21, 1975 02:15:39 0 In COPY:MTS.MACROS (344/3) 00625/001 *TAPEFIXER SA O S1237 TAPES 'TAPEFS' FSNAME=TAPEFIXER 5.0T2 845 TAPEFIXER..SA.001 1 LINE 73 13 PAGE UM LIFT SEP. 28, 1977 16:56:00 5.0T5 290 0 PROGRAM TO RECOVER DATA FROM A 9-TRACK LABELED TAPE WHICH HAS BEEN PARTIALLY DESTROYED OR CONTAINS UNREADABLE BLOCKS. 00625/002 *TAPEFIXER OE O *TAPEFIXER 5.0T2 846 TAPEFIXER..OE.002 1 LINE 7503 4 PAGE UM LIFT JULY 03, 1981 16:10:53 5.0T5 291 *TAPEFIXER 00626/001 ATNTRP SUBR SA G S0564 D4T2 VLO FSNAME=ATNTRP_SUBR..SA.001(1) 886 5.0T2 847 ATNTRP_SUBR..SA.001 1 LINE 80 1 PAGE UM DWB JULY 26, 1974 09:21.43 5.0T5 292 0 SUBROUTINE TO ALLOW FORTRAN USERS TO CALL ATTNTRP. 00626/002 ATNTRP SUBR OC G # (PART OF *LIBRARY) UM DWB 0 Object part of *LIBRARY (524/1) 00627/001A GDINF SUBR SA G S1482 4.3AT1 VLO FSNAME=GDINF_SUBR..SA.001(1) 315 5.0T2 848 GDINF_SUBR..SA.001 1 LINE 80 3 PAGE UM DWB OCT. 12, 1980 16:04:48 5.0T5 293 0 SUBROUTINE TO ALLOW FORTRAN USERS TO CALL GDINFO. COPIES *GDINFODSECT (594). 00627/002A GDINF SUBR OC G # (PART OF *LIBRARY) UM DWB 0 Object part of *LIBRARY (524/1) 00628/001 *3284RTN DSR SA B S1430 4.3T1 VLO FSNAME=3284RTN.DSR.SA.001(1) 594 5.0T2 849 3284RTN.DSR.SA.001 1 LINE 69 2 PAGE UM OGDEN JUNE 27, 1979 05:08:41 5.0T5 294 0 DSR FOR IBM 3284, 3286, 3287, AND SIMILAR PRINTERS. USES THE TR3270 TABLES (629/12). 0 Referenced by comments of: 629/12 1 MON AUG 05/96 18:37:45 Page 391 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00628/002 *3284RTN DSR OC B *3284RTN 5.0T2 850 3284RTN.DSR.OC.002 1 LINE 80 1 PAGE UM OGDEN JULY 03, 1981 16:13:01 5.0T5 295 *3284RTN 00628/003 *3284RTN UNIT CHECK SA G MTS:UC3284(1,999) 5.0T2 851 3284RTN.UNIT_CHECK.SA.003 1 LINE 72 3 PAGE UM OGDEN JULY 03, 1981 16:13:01 5.0T5 296 MTS.:UC3284 0 UNIT CHECK ROUTINES FOR IBM 3284, 3286, 3287, AND SIMILAR PRINTERS. 00628/004 *3284RTN UNIT CHECK OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00629/001A *3270RTN SA G W163:3270.S 5.0T4 389 3270RTN..SA.001 1 LINE 82 127 PAGE UBC SAYLE OGDEN SEP. 04, 1981 02:59:27 5.0T10 293 0 DSR FOR IBM 3277 (MODELS 1 AND 2), 3278 (MODELS 1, 2, 3, AND 4), 3066, AND 3036 DISPLAY TERMINALS. USES THE TR3270 TABLES (629/12). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728). COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 629/2, 629/4, 629/5, 629/12 00629/002A *3270RTN UPDATE UC G W163:3270UPD 5.0T4 390 3270RTN.UPDATE.UC.002 1 LINE 115 64 PAGE UBC SAYLE OGDEN SEP. 04, 1981 02:59:39 5.0T10 294 0 UPDATE TO PRODUCE CURRENT *3270RTN SOURCE FROM D4.2 SOURCE (629/1). 00629/003 *3270RTN IO3066 SA G S1430 4.3T1 VLO FSNAME=3270RTN.IO3066.SA.003(1) 598 5.0T4 391 3270RTN.IO3066.SA.003 1 LINE 80 14 PAGE UM OGDEN JUNE 27, 1979 05:09:55 5.0T10 295 0 SUBROUTINE TO SIMULATE A 3270 ON A 3066 BY INTERPRETING A 3270 CHANNEL PROGRAM. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 629/5 00629/004A *3270RTN ACTIVITY SUBR SA G S0683 OGDEN FSNAME=ACTIVITY.S 5.0T4 392 3270RTN.ACTIVITY_SUBR.SA.004 1 LINE 126 14 PAGE UBC SAYLE OGDEN APR. 28, 1981 14:15:57 5.0T10 296 0 GENERATES %ACTIVITY DISPLAY. CALLED BY (629/1). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:FILE.MACROS (482/45). ***************************************************************************** D5.0 CHANGES: CHANGES PREVIOUSLY DISTRIBUTED ON D4.3A: 1 MON AUG 05/96 18:37:45 Page 392 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT. INSTALL IF AND ONLY IF D5.0 UMMPS IS INSTALLED. NEW CHANGES: INCLUDES DISK I/O COUNTS. ***************************************************************************** 0 Referenced by comments of: 413/1, 629/5, 629/8, 647/1 00629/005A *3270RTN OC G *3270RTN 5.0T4 393 3270RTN..OC.005 1 LINE 21004 9 PAGE UBC SAYLE OGDEN SEP. 04, 1981 03:00:53 5.0T10 297 *3270RTN 0 OBJECT FOR (629/1), (629/3), AND (629/4). 00629/006 *3270RTN GRAB3270 SA G S1320 D4.2T2 VLO FSNAME=3270RTN.GRAB3270.SA.004(1) 531 5.0T4 394 3270RTN.GRAB3270.SA.006 1 LINE 59 1 PAGE UBC SAYLE OGDEN DEC. 03, 1978 04:08:59 5.0T10 298 0 THIS IS THE SHARED TABLE FOR USE WITH THE %GRAB AND %FLIP COMMANDS IN THE 3270 DSR. 00629/007 *3270RTN GRAB3270 OC G SEG2:GRAB3270 5.0T4 395 3270RTN.GRAB3270.OC.007 1 LINE 80 1 PAGE UBC SAYLE OGDEN AUG. 09, 1981 23:21:21 5.0T10 299 SEG2:GRAB3270 0 THIS OBJECT SHOULD BE LOADED BY PISTLE PRIOR TO LOADING THE 3270 DSR. 00629/008A *3270RTN TEST ACTIVITY SF G S0683 OGDEN FSNAME=TACTIVITY.S 5.0T4 396 3270RTN.TEST_ACTIVITY.SF.008 1 LINE 80 2 PAGE UM OGDEN MAR. 28, 1981 01:20:41 5.0T10 300 0 A MAIN PROGRAM WHICH CALLS THE ACTIVITY SUBROUTINE (629/4) AND PRINTS THE RESULTS ON SPRINT. FOR TESTING PURPOSES ONLY. 00629/009A *3270RTN TEST ACTIVITY OC G S0683 OGDEN FSNAME=TA 5.0T4 397 3270RTN.TEST_ACTIVITY.OC.009 1 LINE 360 1 PAGE UM OGDEN MAR. 28, 1981 01:20:46 5.0T10 301 00629/010 *3270RTN *3066RTN OC G *3066RTN 5.0T4 398 3270RTN.?3066RTN.OC.010 1 LINE 24 1 PAGE UBC SAYLE OGDEN AUG. 09, 1981 23:21:37 5.0T10 302 *3066RTN 0 CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD. 0 Referenced by comments of: 662/1 00629/011 *3270RTN *3036RTN OC G *3036RTN 5.0T4 399 3270RTN.?3036RTN.OC.011 1 LINE 24 1 PAGE UBC SAYLE OGDEN AUG. 09, 1981 23:21:37 5.0T10 303 *3036RTN 0 CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD. 1 MON AUG 05/96 18:37:45 Page 393 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00629/012 *3270RTN TR3270 SA G S1430 4.3T1 VLO FSNAME=3270RTN.TR3270.SA.012(1) 602 5.0T4 400 3270RTN.TR3270.SA.012 1 LINE 72 3 PAGE UM OGDEN JUNE 27, 1979 05:08:44 5.0T10 304 0 PROVIDES THE TR AND TRT TABLES USED BY THE 3270 DSR (629/1), THE 3284 DSR (628/1), *APC (496), THE SCREEN SUPPORT ROUTINE (811), AND THE OPERATOR JOB (634). 0 Referenced by comments of: 628/1, 629/1, 634/1 00629/013 *3270RTN TR3270 OC G SEG2:TR3270 5.0T4 401 3270RTN.TR3270.OC.013 1 LINE 80 4 PAGE UM OGDEN AUG. 09, 1981 23:21:40 5.0T10 305 SEG2:TR3270 00629/014C *3270RTN MEMO 419 WX S0672 CCMEMO 'CCMEMOS' FSNAME=M419 5.0T4 402 3270RTN.MEMO_419.WX.014 1 LINE 115 10 PAGE UM HARTMAN DEC. 04, 1980 09:52:34 5.0T10 306 00630/001 TRUNCATE SA G TRUN S1153 UNSP VLO FSNAME=TRUNCATE.S 5.0T2 852 TRUNCATE..SA.001 1 LINE 80 7 PAGE UM UNSP MAR. 27, 1976 12:24:30 5.0T5 297 0 SCANS FILES ON USERS ACCOUNT AND TRUNCATES THOSE THAT NEED IT. COPIES *GFINFODSECT (593). 00630/002 TRUNCATE OE G UNSP:TRUNCATE 5.0T2 853 TRUNCATE..OE.002 1 LINE 2693 4 PAGE UM UNSP JULY 03, 1981 16:13:17 5.0T5 298 UNSP:TRUNCATE 00630/003A TRUNCATE WF S1153 UNSP VLO FSNAME=TRUNCATE.FMT 5.0T2 854 TRUNCATE..WF.003 1 LINE 67 1 PAGE UM UNSP SEP. 15, 1980 16:44:03 5.0T5 299 00631/001D ACCOUNTING CLS CLSTV SA G CLST S0027 DISTRB FSNAME=CLSTV 5.0T2 855 ACCOUNTING_CLS.CLSTV.SA.001 1 LINE 80 3 PAGE UM ENGLE FEB. 04, 1981 12:40:12 5.0T5 300 0 PROGRAM TO PRODUCE CLSTRANSVEC WHICH IS A COPY SECTION FOR ACCCLS. COPIES GRDEF (104/72). ASSEMBLE USING COPY:MTS.MACROS (344/3). 00631/002D ACCOUNTING CLS CLSTV UC G S0027 DISTRB FSNAME=CLSTVUPD 5.0T2 856 ACCOUNTING_CLS.CLSTV.UC.002 1 LINE 69 1 PAGE UM ENGLE FEB. 04, 1981 12:40:20 5.0T5 301 0 Referenced by comments of: 631/4 00631/003D ACCOUNTING CLS CLSTV OC G CLST S0027 DISTRB FSNAME=CLST 5.0T2 857 ACCOUNTING_CLS.CLSTV.OC.003 1 LINE 80 3 PAGE UM ENGLE FEB. 04, 1981 12:40:26 5.0T5 302 0 Referenced by comments of: 631/5 1 MON AUG 05/96 18:37:45 Page 394 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00631/004D ACCOUNTING CLS CLSTRANSVEC SA G S0027 DISTRB FSNAME=CLSTRANSVEC 5.0T2 858 ACCOUNTING_CLS.CLSTRANSVE.SA.004 1 LINE 19 1 PAGE UM ENGLE FEB. 04, 1981 12:42:27 5.0T5 303 0 COPY SECTION FOR ACCCLS PRODUCED BY RUNNING CLSTV (631/2). 00631/005D ACCOUNTING CLS ACCCLS SA G ACLS S0027 DISTRB FSNAME=ACCCLS 5.0T2 859 ACCOUNTING_CLS.ACCCLS.SA.005 1 LINE 80 9 PAGE UM ENGLE FEB. 04, 1981 12:45:39 5.0T5 304 0 INTERFACE BETWEEN ACCOUNTING CLS CALL AND ACCMXMAT. COPIES GRDEF (104/72) AND CLSTRANSVEC (631/3). 0 Referenced by comments of: 631/15 00631/006D ACCOUNTING CLS ACCCLS UC G S0027 DISTRB FSNAME=ACCCLSUPD 5.0T2 860 ACCOUNTING_CLS.ACCCLS.UC.006 1 LINE 72 3 PAGE UM ENGLE FEB. 04, 1981 12:45:43 5.0T5 305 00631/007D ACCOUNTING CLS ACCCLS OC G ACLS S0027 DISTRB FSNAME=ACLS 5.0T2 861 ACCOUNTING_CLS.ACCCLS.OC.007 1 LINE 80 3 PAGE UM ENGLE FEB. 04, 1981 12:45:48 5.0T5 306 0 Referenced by comments of: 631/23 00631/008A ACCOUNTING CLS ACCMXMAT SA G AMXM S0027 DISTRB FSNAME=OLDACCMXMAT 5.0T2 862 ACCOUNTING_CLS.ACCMXMAT.SA.008 1 LINE 80 61 PAGE UM ENGLE MAY 19, 1981 11:04:57 5.0T5 307 0 ACCOUNTING MAXIMUM MAINTENANCE (MAIN PROGRAM FOR ACCOUNTING CLS). THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO WHICH A LOG IS WRITTEN. COPIES ACCFORMAT (104/1), ACCPROJFMT (104/2), AND COPY:RATEVEC (651/3). IF &STAPRJ IS SET TO 1, THE OBJECT FOR ACC:STAPROJECT (104/70) IS PRODUCED. THIS PROGRAM HAS A GBLB SYMBOL &PW WHICH, IF SET TO 1, WILL CAUSE THE INSTRUCTIONS FOR THE PASSWORD COMMAND TO BE ASSEMBLED. NO GUARANTEES ON WHETHER THIS WORKS. 0 Referenced by comments of: 631/15, 631/17, 631/18 00631/009A ACCOUNTING CLS ACCMXMAT UC G S0027 DISTRB FSNAME=OLDACCMXMATUPD 5.0T2 863 ACCOUNTING_CLS.ACCMXMAT.UC.009 1 LINE 72 3 PAGE UM ENGLE FEB. 04, 1981 12:57:47 5.0T5 308 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00631/010A ACCOUNTING CLS ACCMXMAT OC G S0027 DISTRB FSNAME=OLDAMXM 5.0T2 864 ACCOUNTING_CLS.ACCMXMAT.OC.010 1 LINE 80 13 PAGE UM ENGLE FEB. 04, 1981 13:01:14 5.0T5 309 0 Referenced by comments of: 631/23 1 MON AUG 05/96 18:37:45 Page 395 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00631/011 ACCOUNTING CLS ACUSPRNT SA G S0564 D4T2 VLO FSNAME=ACCOUNTING_CLS.ACUSPRNT.SA.008(1) 906 5.0T2 865 ACCOUNTING_CLS.ACUSPRNT.SA.011 1 LINE 80 8 PAGE UM ENGLE DEC. 15, 1975 14:45:51 5.0T5 310 0 PRINT SUBROUTINE FOR ACCOUNTING CLS. COPIES ACCFORMAT (104/1). THIS PROGRAM USES A SETC SYMBOL &DC TO CONTROL ASSEMBLY OF DATA CELL INSTRUCTIONS. IF IT IS SET TO '0', THE DATA CELL INSTRUCTIONS WILL NOT BE ASSEMBLED. SEE THE SOURCE FOR THE VALUE TO BE USED FOR DATA CELL. 0 Referenced by comments of: 631/15, 631/20, 631/21 00631/012 ACCOUNTING CLS ACUSPRNT OC G S0564 D4T2 VLO FSNAME=ACCOUNTING_CLS.ACUSPRNT.OC.009(1) 907 5.0T2 866 ACCOUNTING_CLS.ACUSPRNT.OC.012 1 LINE 80 3 PAGE UM ENGLE DEC. 15, 1975 14:46:14 5.0T5 311 0 Referenced by comments of: 631/23 00631/013 ACCOUNTING CLS FASTIOCK SA G S0564 D4T2 VLO FSNAME=ACCOUNTING_CLS.FASTIOCK.SA.010(1) 908 5.0T2 867 ACCOUNTING_CLS.FASTIOCK.SA.013 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 12:48.35 5.0T5 312 0 SUBROUTINE TO DETERMINE IF AN I/O UNIT IS "FAST." USED IN ACCOUNTING CLS. COPIES GRDEF (104/72). 0 Referenced by comments of: 104/1, 631/15 00631/014 ACCOUNTING CLS FASTIOCK OC G S0564 D4T2 VLO FSNAME=ACCOUNTING_CLS.FASTIOCK.OC.011(1) 909 5.0T2 868 ACCOUNTING_CLS.FASTIOCK.OC.014 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 12:48.53 5.0T5 313 0 Referenced by comments of: 631/23 00631/015D ACCOUNTING CLS *CLSACC OE G *CLSACC 5.0T2 869 ACCOUNTING_CLS.*CLSACC.OE.015 1 SEQ 22250 17 PAGE UM ENGLE JULY 03, 1981 16:14:56 5.0T5 314 *CLSACC 0 ACCOUNTING CLS OBJECT. ALLOWS PROJECT DIRECTORS AND INSTRUCTORS TO DISTRIBUTE MONEY, DISK SPACE, AND TERMINAL AND PLOT TIME TO THEIR USER ID'S AND TO CHANGE EXPIRATION DATES. IT CONSISTS OF ACCCLS (631/5) + ACCMXMAT (631/8) + GETFILE (104/111) + DIRECTRY (104/62) + ACCIO (104/26) + LOG (104/156) + FILENAME (104/60) +ACUSPRNT (631/11) + STATUS (104/18) + FASTIOCK (631/13) + IOLOKCK (104/121) + TIMETRP (104/101) + *LCS (164). THIS FILE MUST BE PERMITTED AS FOLLOWS: U/N,R PKEY=*ACC ******************************************************************************* D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): N.B. THE INCLUSION OF STATUS (104/18) HAS NOT BEEN ANNOUNCED AND SPECIFICATIONS ARE SUBJECT TO CHANGE. IT SHOULD BE CONSIDERED EXPERIMENTAL. INCLUDES NEW ACCMXMAT (631/19) AND NEW ACUSPRNT (631/22). THIS VERSION (AT UM) DOES NOT PROCESS HIGHPRIO. 1 MON AUG 05/96 18:37:45 Page 396 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ******************************************************************************* 00631/016 ACCOUNTING CLS *PRJACCSTAT D MTS:TST.PRJACCST 5.0T2 870 ACCOUNTING_CLS.*PRJACCSTA.D.016 1 LINE 1 1 PAGE UM ENGLE JULY 03, 1981 16:14:57 5.0T5 315 *PRJACCSTAT 0 FILE USED TO HOLD ERROR COMMENTS FROM THE ACCOUNTING MAINTENANCE PROGRAM. SHOULD BE PERMITTED: P/N, WE PKEY=*ACC 00631/017D ACCOUNTING CLS NEW ACCMXMAT SA G AMXM S0027 DISTRB FSNAME=ACCMXMAT 5.0T2 871 ACCOUNTING_CLS.NEW_ACCMXM.SA.017 1 LINE 80 86 PAGE UM ENGLE MAY 14, 1981 10:33:55 5.0T5 316 0 EXPERIMENTAL VERSION ($ACCOUNTING MANAGEMENT) OF ACCMXMAT (631/8). THE MESSAGE "EXPERIMENTAL VERSION. SUBJECT TO CHANGE. SEE W013:ACCNEWS (1/ /81)." SHOULD BE CHANGED TO REFLECT LOCAL CONDITIONS. 0 Referenced by comments of: 104/70 00631/018D ACCOUNTING CLS NEW ACCMXMAT UC G S0027 DISTRB FSNAME=ACCMXMATUPD 5.0T2 872 ACCOUNTING_CLS.NEW_ACCMXM.UC.018 1 LINE 73 42 PAGE UM ENGLE FEB. 04, 1981 13:20:56 5.0T5 317 0 UPDATES ACCMXMAT SOURCE (631/8) FROM PREVIOUS REGULAR DISTRIBUTION TO EXPERIMENTAL VERSION IN CURRENT DISTRIBUTION. 00631/019D ACCOUNTING CLS NEW ACCMXMAT OC G S0027 DISTRB FSNAME=AMXM 5.0T2 873 ACCOUNTING_CLS.NEW_ACCMXM.OC.019 1 LINE 80 27 PAGE UM ENGLE FEB. 04, 1981 13:21:14 5.0T5 318 0 Referenced by comments of: 631/15, 631/23 00631/020D ACCOUNTING CLS NEW ACUSPRNT SA G AUPR S0027 DISTRB FSNAME=ACUSPRNT 5.0T2 874 ACCOUNTING_CLS.NEW_ACUSPR.SA.020 1 LINE 80 16 PAGE UM ENGLE MAY 14, 1981 10:34:06 5.0T5 319 0 EXPERIMENTAL VERSION OF ACUSPRNT (631/11). 00631/021D ACCOUNTING CLS NEW ACUSPRNT UC G S0027 DISTRB FSNAME=ACUSPRNTUPD 5.0T2 875 ACCOUNTING_CLS.NEW_ACUSPR.UC.021 1 LINE 72 8 PAGE UM ENGLE FEB. 04, 1981 13:26:35 5.0T5 320 0 UPDATES ACUSPRNT (631/11) FROM PREVIOUS REGULAR DISTRIBUTION TO EXPERIMENTAL VERSION IN CURRENT DISTRIBUTION. 00631/022D ACCOUNTING CLS NEW ACUSPRNT OC G S0027 DISTRB FSNAME=AUPR 5.0T2 876 ACCOUNTING_CLS.NEW_ACUSPR.OC.022 1 LINE 80 4 PAGE UM ENGLE FEB. 04, 1981 13:26:42 5.0T5 321 0 Referenced by comments of: 104/71, 631/15, 631/23 1 MON AUG 05/96 18:37:45 Page 397 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00631/023D ACCOUNTING CLS CLSACCGEN C G S0027 DISTRB FSNAME=CLSACCGEN 5.0T2 877 ACCOUNTING_CLS.CLSACCGEN.C.023 1 LINE 89 1 PAGE UM ENGLE FEB. 04, 1981 13:28:07 5.0T5 322 0 SOURCE COMMANDS TO GENERATE THE ACCOUNTING CLS OBJECT WHICH INCLUDES THE EXPERIMENTAL VERSION. THE FOLLOWING FILES (AND ASSOCIATED COMPONENTS) ARE REFERENCED: AMXM (631/19), AUPR (631/22), ACLS (631/7), OLDAMXM (631/10), GTFL (104/111), DIR (104/62), AIO (104/26), LOG (104/156), FLNM (104/60), OLDAUPR (631/12), STATCLS (104/18), FIOC (631/14), IOLC (104/121), TTRP (104/101), AND *LCS (164). THE RESULTING OBJECT IS PLACED IN THE FILE -CLSACC. 00631/024D ACCOUNTING CLS ACCNEWS WF G S0027 DISTRB FSNAME=ACCNEWS 5.0T2 878 ACCOUNTING_CLS.ACCNEWS.WF.024 1 LINE 80 5 PAGE UM ENGLE FEB. 04, 1981 13:29:12 5.0T5 323 0 SOURCE TO PRODUCE THE CONTENTS OF W013:ACCNEWS, WHICH DESCRIBES THE EXPERIMENTAL VERSION OF $ACCOUNTING ($ACCOUNTING MANAGEMENT). 00632/001A REBATE REBATE SP G S0811 REBATE 'REBATES' FSNAME=REBATE 5.0T2 879 REBATE.REBATE.SP.001 1 LINE 78 26 PAGE UM LIFT SEP. 12, 1980 20:08:05 5.0T5 324 0 PROGRAM TO REBATE CHARGES FOR MTS JOBS. ********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CHANGED TO HANDLE NEW STATISTICS RECORD FORMAT. ********************************************************************************** 0 Referenced by comments of: 632/2 00632/002A REBATE REBATE OC G ACC:REBATE 5.0T2 880 REBATE.REBATE.OC.002 1 LINE 32767 15 PAGE UM LIFT JULY 03, 1981 16:19:57 5.0T5 325 ACC:REBATE 0 OBJECT FOR (632/1) PRECEDED BY COMMANDS TO RUN IT. RUN WITH PROT=OFF. LINE 2 CONTAINS "SPUNCH=BILL:HAND". REPLACE BILL:HAND WITH THE NAME OF THE FILE INTO WHICH HAND BILLING RECORDS FOR REBATE RECORDS ARE TO BE PLACED. SEE COMPONENT (500/25) FOR A DESCRIPTION OF HAND BILLING. 00632/003 REBATE RBATACC SA G S0564 D4T2 VLO FSNAME=REBATE.RBATACC.SA.003(1) 913 5.0T2 881 REBATE.RBATACC.SA.003 1 LINE 80 6 PAGE UM ENGLE DEC. 05, 1975 14:31:44 5.0T5 326 0 SUBROUTINE CALLED BY REBATE TO COMPUTE COST OF REBATE AND TO UPDATE USERS ACCOUNTING RECORD. USED IN ACCLIB (104/42). COPIES GRDEF (104/72), COPY:RATEVEC (651/3), AND ACCFORMAT (104/1). 1 MON AUG 05/96 18:37:45 Page 398 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00632/004 REBATE RBATACC OC G S0564 D4T2 VLO FSNAME=REBATE.RBATACC.OC.004(1) 914 5.0T2 882 REBATE.RBATACC.OC.004 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 14:43:37 5.0T5 327 0 Referenced by comments of: 104/1 00632/005 REBATE STAREAD SA G S0811 REBATE 'REBATES' FSNAME=STAREAD 5.0T2 883 REBATE.STAREAD.SA.005 1 LINE 77 3 PAGE UM LIFT MAR. 07, 1978 16:07:58 5.0T5 328 0 SUBROUTINE CALLED BY REBATE TO READ A RECORD FROM *STATISTICS. 00632/006 REBATE STAREAD OC G S0811 REBATE 'REBATES' FSNAME=STAREAD.O 5.0T2 884 REBATE.STAREAD.OC.006 1 LINE 80 2 PAGE UM LIFT MAR. 07, 1978 16:08:02 5.0T5 329 0 OBJECT ALSO IN ACCLIB (104/42). 0 Referenced by comments of: 104/1 00632/007 REBATE WRITEUP WF G S0811 REBATE 'REBATES' FSNAME=REBATEWRUP 5.0T2 885 REBATE.WRITEUP.WF.007 1 LINE 80 6 PAGE UM LIFT JAN. 03, 1977 22:34:23 5.0T5 330 0 WRITEUP DESCRIBING HOW TO RUN THE REBATE PROGRAM. 00632/008 REBATE REQUEST FORM C W012:REBATE 5.0T2 886 REBATE.REQUEST_FORM.C.008 1 LINE 108 2 PAGE UM LIFT JULY 03, 1981 16:20:08 5.0T5 331 0 COMMANDS AND FORMAT INPUT FOR REBATE REQUEST FORM. IT IS ASSUMED THAT THIS IS THE CONTENTS OF A FILE NAMED "REBATE" AND THAT THE LINE NUMBERS ARE RETAINED. 00632/009 REBATE CCREBATE SA G S0811 REBATE 'REBATES' FSNAME=CCREBATE 5.0T2 887 REBATE.CCREBATE.SA.009 1 LINE 59 2 PAGE UM LIFT AUG. 05, 1977 17:02:57 5.0T5 332 0 PROGRAM TO TAKE QUEUE RECORDS FROM SYS:PLOTREBAT (615/37) AND PRODUCE INPUT TO THE REBATE PROGRAM. THE OUTPUT FROM THIS PROGRAM IS WRITTEN INTO ACC:PLOTREBAT (632/11). 0 Referenced by comments of: 615/37, 632/11 00632/010 REBATE CCREBATE OC G ACC:CCREBATE 5.0T2 888 REBATE.CCREBATE.OC.010 1 LINE 80 1 PAGE UM LIFT JULY 03, 1981 16:20:10 5.0T5 333 ACC:CCREBATE 00632/011 REBATE ACC:PLOTREBAT D # ACC:PLOTREBAT UM LIFT ACC:PLOTREBAT@E 0 DATA FILE USED FOR OUTPUT FROM CCREBATE (632/9). 0 Referenced by comments of: 632/9 1 MON AUG 05/96 18:37:45 Page 399 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00633/001A *PL1SCAN IBM SOURCE SA G S0696 OSSRC6 POSN=PL552 5.0T2 889 PL1SCAN.IBM_SOURCE.SA.001 1 SEQ 80 220 PAGE UM TIFFANY JULY 03, 1981 16:24:25 5.0T5 334 0 IBM OS/360 (RELEASE 21.7) SOURCE FOR PL/I SYNTAX SCANNING PROGRAM. 00633/002A *PL1SCAN MTS UPDATE UU G S0410 MTSPL1 'PL1LIB' POSN=PL1SCANUP.D4 5.0T2 890 PL1SCAN.MTS_UPDATE.UU.002 1 SEQ 80 5 PAGE UM TIFFANY JULY 03, 1981 16:25:29 5.0T5 335 0 *IEBUPDAT DECK FOR MTS CHANGES. ASSEMBLE OUTPUT OF UPDATE USING IKM (633/3). COPIES IKMBASE (633/4). 00633/003A *PL1SCAN IKM SM G S0410 MTSPL1 'PL1LIB' POSN=PL1SCNIKM.D4 5.0T2 891 PL1SCAN.IKM.SM.003 1 SEQ 80 19 PAGE UM TIFFANY JULY 03, 1981 16:25:31 5.0T5 336 0 Referenced by comments of: 633/2 00633/004A *PL1SCAN IKMBASE SA G S0410 MTSPL1 'PL1LIB' POSN=PL1SCNIKMBASE.D4 5.0T2 892 PL1SCAN.IKMBASE.SA.004 1 SEQ 80 10 PAGE UM TIFFANY JULY 03, 1981 16:25:33 5.0T5 337 0 A SECTION COPIED BY THE IKM002 MODULE. 0 Referenced by comments of: 633/2 00633/005A *PL1SCAN INTERFACE SA G S0410 MTSPL1 'PL1LIB' POSN=PL1SCAN.S.D4 5.0T2 893 PL1SCAN.INTERFACE.SA.005 1 SEQ 80 20 PAGE UM TIFFANY JULY 03, 1981 16:25:35 5.0T5 338 0 MTS INTERFACE MODULE. ASSEMBLE USING MACROLIB (633/6). 00633/006A *PL1SCAN MACROLIB SM G S0564 D4T2 VLO FSNAME=PL1SCAN.MACROLIB.SM.006(1) 924 5.0T2 894 PL1SCAN.MACROLIB.SM.006 1 LINE 38 1 PAGE UM TIFFANY JULY 28, 1977 21:37:37 5.0T5 339 0 Referenced by comments of: 633/5 00633/007A *PL1SCAN OE G *PL1SCAN 5.0T2 895 PL1SCAN..OE.007 1 LINE 4032 11 PAGE UM TIFFANY JULY 03, 1981 16:25:39 5.0T5 340 *PL1SCAN 0 THIS OBJECT COULD BE LOADED INTO SHARED VM BY PISTLE IF DESIRED. 00634/001A OPERATOR JOB SA G S0683 OGDEN FSNAME=OP.S 5.0T2 896 OPERATOR_JOB..SA.001 1 LINE 80 39 PAGE UM OGDEN JUNE 12, 1981 22:37:54 5.0T5 341 0 JOB PROGRAM TO SUPPORT IBM 3270 AS OPERATOR'S CONSOLE. USES THE TR3270 TABLES (629/12). COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), COPY:JOBSTA (413/9), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:SETPARM (653) AND COPY:MISC.MACROS (728). 0 Referenced by comments of: 413/1, 629/12, 634/4, 806/1 1 MON AUG 05/96 18:37:45 Page 400 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00634/002A OPERATOR JOB UPDATE UC G S0683 OGDEN FSNAME=OPUPD 5.0T2 897 OPERATOR_JOB.UPDATE.UC.002 1 LINE 91 4 PAGE UM OGDEN JUNE 12, 1981 22:44:48 5.0T5 342 00634/003A OPERATOR JOB OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00634/004A OPERATOR JOB CONSIO SA G W163:CONSIO(1,999) 5.0T2 898 OPERATOR_JOB.CONSIO.SA.004 1 LINE 73 11 PAGE UM OGDEN JULY 03, 1981 16:25:50 5.0T5 343 0 SUBROUTINE TO DO STAND-ALONE I/O TO A 3270, 1052, OR 3066. ALSO PROVIDES INTERFACE TO OPERATOR JOB (634) IF USED. IF OPERATOR JOB IS NOT USED, CONSIO MAY BE ASSEMBLED WITH &OPERJOB=0 TO REDUCE ITS SIZE. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162). ASSEMBLE USING COPY:SETPARM (653) AND COPY:MISC.MACROS (728). 00634/005A OPERATOR JOB CONSIO OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00634/006A OPERATOR JOB WRITEUP WF S0683 OGDEN FSNAME=OP.F 5.0T2 899 OPERATOR_JOB.WRITEUP.WF.006 1 LINE 143 7 PAGE UM OGDEN APR. 07, 1979 02:25:31 5.0T5 344 0 OPERATOR'S GUIDE TO USING THE IBM 3270 OPERATOR'S CONSOLE. 00634/007A OPERATOR JOB CONSOLE SA G MTS:CONSOLE(1000) 5.0T2 900 OPERATOR_JOB.CONSOLE.SA.007 1 LINE 73 4 PAGE UBC O'REILLY OGDEN JULY 03, 1981 16:27:00 5.0T5 345 MTS:CONSOLE 0 PROGRAM TO DISPLAY THE OPERATORS' CONSOLE ON A 3270 TYPE TERMINAL. CALLS THE SCREEN SUPPORT ROUTINES (811). COPIES *GDINFODSECT (594). ASSEMBLE USING COPY:MISC.MACROS (728). 00634/008A OPERATOR JOB CONSOLE OC G MTS:CONSOLE(1,999) 5.0T2 901 OPERATOR_JOB.CONSOLE.OC.008 1 LINE 80 4 PAGE UBC O'REILLY OGDEN JULY 03, 1981 16:27:01 5.0T5 346 00635/001A FSUB D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=FSUB 5.0T4 403 FSUB.D5.0_MASTER.SA.001 1 LINE 80 90 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:41:06 5.0T10 307 0 COMPOSED OF THE FDGET, HOPENIT, GIVEBACK, FILE LOCKING AND UNLOCKING, ETC. SECTIONS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2 1 MON AUG 05/96 18:37:45 Page 401 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00635/002A FSUB UPDATE UC G MTS:FSUBUPD 5.0T4 404 FSUB.UPDATE.UC.002 1 LINE 80 26 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:44:59 5.0T10 308 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=FSUB. 00635/003A FSUB OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00635/004A FSUB L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=FSUB.LIST 5.0T4 405 FSUB..L.004 1 LINE 133 231 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:45:21 5.0T10 309 00636/001A CMDS D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=CMDS 5.0T4 406 CMDS.D5.0_MASTER.SA.001 1 LINE 80 191 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:45:28 5.0T10 310 0 MTS COMMAND PROCESSORS. COPIES COPY:LLMPSEQU (087) COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2 00636/002A CMDS UPDATE UC G MTS:CMDSUPD 5.0T4 407 CMDS.UPDATE.UC.002 1 LINE 81 72 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:45:30 5.0T10 311 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=CMDS. 00636/003A CMDS OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00636/004A CMDS L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=CMDS.LIST 5.0T4 408 CMDS..L.004 1 LINE 133 510 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:45:57 5.0T10 312 00637/001A DSRS D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=DSRS 5.0T4 409 DSRS.D5.0_MASTER.SA.001 1 LINE 80 68 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:46:05 5.0T10 313 0 MTS INTERNAL DSR'S AND HASP INTERFACE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2 1 MON AUG 05/96 18:37:45 Page 402 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00637/002A DSRS UPDATE UC G MTS:DSRSUPD 5.0T4 410 DSRS.UPDATE.UC.002 1 LINE 79 19 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:46:07 5.0T10 314 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=DSRS. 0 Referenced by comments of: 16/1 00637/003C DSRS PAGEPR DJDE SA G MTS:PAGEDJDE 5.0T4 411 DSRS.PAGEPR_DJDE.SA.003 1 LINE 65 1 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:46:10 5.0T10 315 0 An assembly which includes the default Xerox 9700 DJDE for use by UNSP:PAGEPR (817). Can be omitted from the Resident System if UNSP:PAGEPR is not used. 00637/004A DSRS OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00637/005A DSRS L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=DSRS.LIST 5.0T4 412 DSRS..L.005 1 LINE 133 174 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:46:15 5.0T10 316 00638/001A USUB D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=USUB 5.0T4 413 USUB.D5.0_MASTER.SA.001 1 LINE 80 95 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:46:34 5.0T10 317 0 MTS USER SUBROUTINES. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), *CNFGINFODSECT (654), AND *GDINFODSECT (594). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2, 101/2, 680/1 00638/002A USUB UPDATE UC G MTS:USUBUPD 5.0T4 414 USUB.UPDATE.UC.002 1 LINE 81 59 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:46:36 5.0T10 318 MTS:USUBUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=USUB. 00638/003A USUB OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00638/004A USUB L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=USUB.LIST 5.0T4 415 USUB..L.004 1 LINE 133 242 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:47:22 5.0T10 319 1 MON AUG 05/96 18:37:45 Page 403 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00639/001A DSRI D5.0 MASTER SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=DSRI 5.0T4 416 DSRI.D5.0_MASTER.SA.001 1 LINE 80 38 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:47:27 5.0T10 320 0 MTS DSR INTERFACE. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2 00639/002A DSRI UPDATE UC G MTS:DSRIUPD 5.0T4 417 DSRI.UPDATE.UC.002 1 LINE 79 18 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:47:27 5.0T10 321 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=DSRI. 00639/003A DSRI OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00639/004A DSRI L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=DSRI.LIST 5.0T4 418 DSRI..L.004 1 LINE 133 101 PAGE UM MTS HELFFRICH AUG. 09, 1981 23:47:33 5.0T10 322 00639/005A DSRI WRITEUP WF S0683 OGDEN FSNAME=DSR.DOC.F 5.0T2 902 DSRI.WRITEUP.WF.005 1 LINE 144 14 PAGE UM MTS OGDEN JUNE 12, 1981 12:53:00 5.0T5 347 0 A DESCRIPTION OF THE DEVICE SUPPORT ROUTINE INTERFACE (DSRI/DSR). 00639/006 DSRI TESTIO SA G MTS:TESTIO(1,999) 5.0T2 903 DSRI.TESTIO.SA.006 1 LINE 65 4 PAGE UM MTA JULY 03, 1981 16:28:09 5.0T5 348 MTS.:TESTIO 0 TEST PROGRAM FOR DSR INTERFACE. 0 Referenced by comments of: 639/8, 639/9, 639/10, 639/11 00639/007 DSRI TESTIO OC G MTS:TESTIO(1000) 5.0T2 904 DSRI.TESTIO.OC.007 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 16:28:09 5.0T5 349 00639/008 DSRI TESTIO DATA D MTS:TESTIODATA 5.0T2 905 DSRI.TESTIO_DATA.D.008 1 LINE 44 1 PAGE UM MTA JULY 03, 1981 16:28:10 5.0T5 350 MTS.:TESTIODATA 0 COMMANDS TO TESTIO PROGRAM (639/6), READ ON SCARDS. 0 Referenced by comments of: 639/11 1 MON AUG 05/96 18:37:45 Page 404 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00639/009 DSRI TESTIO FILE 1 D MTS:TESTIOFILE 5.0T2 906 DSRI.TESTIO_FILE_1.D.009 1 LINE 5 1 PAGE UM MTA JULY 03, 1981 16:28:11 5.0T5 351 MTS.:TESTIOFILE 0 TESTIO (639/6) TEST FILE NUMBER 1. 00639/010 DSRI TESTIO FILE 2 D MTS:TESTIOFILE2 5.0T2 907 DSRI.TESTIO_FILE_2.D.010 1 LINE 5 1 PAGE UM MTA JULY 03, 1981 16:28:12 5.0T5 352 MTS.:TESTIOFILE2 0 TESTIO (639/6) TEST FILE NUMBER 2. 00639/011 DSRI TESTIO BASE D MTS:TESTIOBASE 5.0T2 908 DSRI.TESTIO_BASE.D.011 1 LINE 132 3 PAGE UM MTA JULY 03, 1981 16:28:13 5.0T5 353 MTS.:TESTIOBASE 0 EXPECTED SPRINT OUTPUT WHEN TESTIO (639/6) IS RUN USING TESTIO DATA (639/8) AS INPUT. 00640/001 MTS.TV SA # (OBSOLETE) D3.2T2 41 MTS.TV..SA. 1 LINE 56 1 PAGE UM MAR. 21, 1975 02:20:51 0 In COPY:MTS.MACROS (344/3) 00642/001 MERIT UTILITIES *MNS C *MNS 5.0T2 909 MERIT_UTILITIES.*MNS.C.001 1 LINE 9 1 PAGE UM OGDEN JULY 03, 1981 16:28:14 5.0T5 354 *MNS 0 COMMAND FILE USED BY THE OPERATORS TO START THE MERIT TERMINAL SERVICE AFTER IPL. INVOKED BY ENTERING "MTS *MNS" ON THE OPERATOR'S CONSOLE. DESCRIBED IN THE OPERATOR'S MANUAL (592). 0 Referenced by comments of: 642/2 00642/002A MERIT UTILITIES MNS C STRT:MNS 5.0T2 910 MERIT_UTILITIES.MNS.C.002 1 LINE 67 1 PAGE UM OGDEN JULY 03, 1981 16:28:14 5.0T5 355 STRT:MNS 0 COMMAND FILE SOURCED TO BY *MNS (642/1). 00642/003 MERIT UTILITIES *MND C *MND 5.0T2 911 MERIT_UTILITIES.*MND.C.003 1 LINE 9 1 PAGE UM OGDEN JULY 03, 1981 16:28:15 5.0T5 356 *MND 0 COMMAND FILE USED BY THE OPERATORS TO PREVENT USAGE OF THE MERIT NETWORK WHEN IT IS DOWN. INVOKED BY ENTERING "MTS *MND" ON THE OPERATOR'S CONSOLE. DESCRIBED IN THE OPERATOR'S MANUAL (592). 0 Referenced by comments of: 642/4 00642/004A MERIT UTILITIES MND C STRT:MND 5.0T2 912 MERIT_UTILITIES.MND.C.004 1 LINE 28 1 PAGE UM OGDEN JULY 03, 1981 16:28:16 5.0T5 357 STRT:MND 0 COMMAND FILE SOURCED TO BY *MND (642/3) WHICH CHANGES MNET:AUTH (642/5) TO 1 MON AUG 05/96 18:37:45 Page 405 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PREVENT NETWORK ACCESS. 00642/005 MERIT UTILITIES AUTHORIZATION D MNET:AUTH 5.0T2 913 MERIT_UTILITIES.AUTHORIZA.D.005 1 LINE 32 1 PAGE UM OGDEN JULY 03, 1981 16:28:17 5.0T5 358 MNET:AUTH 0 DATA FILE USED TO CONTROL WHICH USERS CAN USE THE NETWORK AND AT WHAT TIMES. 0 Referenced by comments of: 642/4 00642/006A MERIT UTILITIES SETDATE SF G MNET:SETDATE(1000) 5.0T2 914 MERIT_UTILITIES.SETDATE.SF.006 1 LINE 72 3 PAGE UM OGDEN JULY 03, 1981 16:28:17 5.0T5 359 0 MTS PROGRAM TO SET THE TIME AND DATE IN THE MERIT PDP-11. CALLS THE PAR SUBROUTINE FROM UNSP:LIBRARY (685/2). 0 Referenced by comments of: 642/8 00642/007A MERIT UTILITIES SETDATE OE G MNET:SETDATE(1,999) 5.0T2 915 MERIT_UTILITIES.SETDATE.OE.007 1 LINE 2606 4 PAGE UM OGDEN JULY 03, 1981 16:28:18 5.0T5 360 MNET:SETDATE 00642/008A MERIT UTILITIES SETDATE WF S0683 OGDEN FSNAME=SETDATE.F 5.0T2 916 MERIT_UTILITIES.SETDATE.WF.008 1 LINE 75 2 PAGE UM OGDEN MAY 03, 1981 16:08:24 5.0T5 361 0 A DESCRIPTION OF THE SETDATE PROGRAM (642/6). 00642/009 MERIT UTILITIES *MLD C *MLD 5.0T2 917 MERIT_UTILITIES.*MLD.C.009 1 LINE 16 1 PAGE UM OGDEN JULY 03, 1981 16:28:21 5.0T5 362 *MLD 0 COMMAND FILE USED BY THE OPERATORS TO RELOAD THE MERIT PDP-11. INVOKED BY ENTERING "MTS *MLD" ON THE OPERATOR'S CONSOLE. DESCRIBED IN THE OPERATOR'S MANUAL (592). 0 Referenced by comments of: 642/10 00642/010A MERIT UTILITIES RELOAD C MNET:RELOAD 5.0T2 918 MERIT_UTILITIES.RELOAD.C.010 1 LINE 85 1 PAGE UM OGDEN JULY 03, 1981 16:28:22 5.0T5 363 MNET:RELOAD 0 COMMAND FILE SOURCED TO BY *MLD (642/9) TO RUN 11LOAD (642/11). 00642/011A MERIT UTILITIES 11LOAD SA G MNET:11LOAD(1000) 5.0T4 419 MERIT_UTILITIES.11LOAD.SA.011 1 LINE 73 22 PAGE UM OGDEN AUG. 09, 1981 23:47:35 5.0T10 323 0 Referenced by comments of: 642/10, 642/13, 715/37 1 MON AUG 05/96 18:37:45 Page 406 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00642/012A MERIT UTILITIES 11LOAD OE G MNET:11LOAD(1,999) 5.0T4 420 MERIT_UTILITIES.11LOAD.OE.012 1 LINE 80 13 PAGE UM OGDEN AUG. 09, 1981 23:47:41 5.0T10 324 MNET:11LOAD 00642/013A MERIT UTILITIES 11LOAD WF S0683 OGDEN FSNAME=11LOAD.F 5.0T4 421 MERIT_UTILITIES.11LOAD.WF.013 1 LINE 176 3 PAGE UM OGDEN MAR. 25, 1977 11:52:19 5.0T10 325 0 THIS IS MERIT MEMO ND-77-288, A DESCRIPTION OF 11LOAD (642/11). 00642/014 MERIT UTILITIES *MUP C *MUP 5.0T2 919 MERIT_UTILITIES.*MUP.C.014 1 LINE 39 1 PAGE UM OGDEN JULY 03, 1981 16:43:55 5.0T5 364 0 COMMAND FILE USED BY THE OPERATORS TO DETERMINE IF THE MERIT PDP-11 IS UP BY RUNNING MUP (642/15). INVOKED BY ENTERING "MTS *MUP" ON THE OPERATOR'S CONSOLE. DESCRIBED IN THE OPERATOR'S MANUAL (592). 00642/015A MERIT UTILITIES MUP SG G S0683 OGDEN FSNAME=MUP.S 5.0T2 920 MERIT_UTILITIES.MUP.SG.015 1 LINE 111 3 PAGE UM OGDEN JAN. 28, 1981 20:41:07 5.0T5 365 0 PROGRAM TO DETERMINE THE STATE OF THE MERIT COMPUTER NETWORK. CALLS THE CHKDEV (734/3), CKMNJOBS (642/16), CKNET (642/17), AND CKAUTH (642/18) SUBROUTINES. 0 Referenced by comments of: 642/14, 642/16, 642/17, 642/18, 642/19, 642/20, 734/3 00642/016A MERIT UTILITIES CKMNJOBS SUBR SA G S0683 OGDEN FSNAME=CKMNJOBS.S 5.0T2 921 MERIT_UTILITIES.CKMNJOBS.SA.016 1 LINE 72 3 PAGE UM OGDEN JUNE 26, 1980 00:09:43 5.0T5 366 0 SUBROUTINE CALLED BY MUP (642/15) TO COUNT THE NUMBER AND TYPE OF UMMPS JOBS USING MERIT NETWORK DEVICES. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 0 Referenced by comments of: 642/15, 642/19 00642/017 MERIT UTILITIES CKNET SUBR SG G S1430 4.3T1 VLO FSNAME=MERIT_UTILITIES.CKNET_SUB.SG.017(1) 634 5.0T2 922 MERIT_UTILITIES.CKNET_SUB.SG.017 1 LINE 99 2 PAGE UM OGDEN JULY 28, 1979 13:36:29 5.0T5 367 0 SUBROUTINE CALLED BY MUP (642/15) WHICH ATTEMPTS TO OPEN CONNECTIONS ACROSS THE MERIT NETWORK AND WHICH RETURNS ERROR MESSAGES IN CASE OF FAILURE. 0 Referenced by comments of: 642/15, 642/19 00642/018A MERIT UTILITIES CKAUTH SUBR SA G S1482 4.3AT1 VLO FSNAME=MERIT_UTILITIES.CKAUTH_SU.SA.018(1) 348 5.0T2 923 MERIT_UTILITIES.CKAUTH_SU.SA.018 1 LINE 80 5 PAGE UM OGDEN DEC. 04, 1977 23:09:48 5.0T5 368 0 SUBROUTINE CALLED BY MUP (642/15) WHICH CHECKS THE FILE MNET:AUTH. 0 Referenced by comments of: 642/15, 642/19 1 MON AUG 05/96 18:37:45 Page 407 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00642/019A MERIT UTILITIES MUP OC G MNET:MUP 5.0T2 924 MERIT_UTILITIES.MUP.OC.019 1 LINE 2132 5 PAGE UM OGDEN JULY 03, 1981 16:49:54 5.0T5 369 0 OBJECT FOR (642/15), (642/16), (642/17), (642/18), AND (734/3). 00642/020A MERIT UTILITIES MUP WF S0683 OGDEN FSNAME=MUP.F 5.0T2 925 MERIT_UTILITIES.MUP.WF.020 1 LINE 97 3 PAGE UM OGDEN MAY 03, 1981 16:08:29 5.0T5 370 0 A DESCRIPTION OF THE MUP PROGRAM (642/15). 00642/021 MERIT UTILITIES TNTH SA O S0564 D4T2 VLO FSNAME=MERIT_UTILITIES.TNTH.SA.018(1) 972 5.0T2 926 MERIT_UTILITIES.TNTH.SA.021 1 LINE 80 24 PAGE UM OGDEN APR. 07, 1977 21:50:14 5.0T5 371 0 TEST PROGRAM AND BATCHDSR SUBROUTINE TO RECEIVE NETWORK BATCH JOBS. ASSEMBLE WITH PAR=B. 00642/022 MERIT UTILITIES TNTH OC O MNET:TNTH 5.0T2 927 MERIT_UTILITIES.TNTH.OC.022 1 LINE 80 4 PAGE UM OGDEN JULY 03, 1981 16:50:45 5.0T5 372 00642/023 MERIT UTILITIES THTN SA G S0564 D4T2 VLO FSNAME=MERIT_UTILITIES.THTN.SA.020(1) 974 5.0T2 928 MERIT_UTILITIES.THTN.SA.023 1 LINE 80 7 PAGE UM OGDEN MAR. 03, 1977 12:42:11 5.0T5 373 0 TEST PROGRAM TO TRANSMIT NETWORK BATCH JOBS. 00642/024 MERIT UTILITIES THTN OC G MNET:THTN 5.0T2 929 MERIT_UTILITIES.THTN.OC.024 1 LINE 80 3 PAGE UM OGDEN JULY 03, 1981 16:50:46 5.0T5 374 00642/025A MERIT UTILITIES CONSOLE SG G MNET:CONSOLE(1000) 5.0T2 930 MERIT_UTILITIES.CONSOLE.SG.025 1 LINE 95 4 PAGE UM OGDEN JULY 03, 1981 16:50:47 5.0T5 375 0 A PROGRAM THAT CAN BE $RUN TO SEND COMMANDS TO, AND RECEIVE OUTPUT FROM, ALL OF THE MERIT COMMUNICATIONS COMPUTERS. CALLS THE ATRAP ROUTINES FROM UNSP:LIBRARY (685/2). 00642/026A MERIT UTILITIES CONSOLE OE G MNET:CONSOLE(1,999) 5.0T2 931 MERIT_UTILITIES.CONSOLE.OE.026 1 LINE 4050 4 PAGE UM OGDEN JULY 03, 1981 16:50:48 5.0T5 376 00643/001A PAGLOAD SA G MTA:PAGLOAD(1000) 5.0T2 932 PAGLOAD..SA.001 1 LINE 70 5 PAGE UM MTA JULY 03, 1981 16:50:49 5.0T5 377 MTA.:PAGLOAD 0 A VARIABLE PAGING LOAD GENERATOR. ALSO CHECKS FOR CORRECT PAGES. A DESCRIPTION OF THE PARAMETERS IS IN THE SOURCE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 196/1, 643/3 1 MON AUG 05/96 18:37:45 Page 408 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00643/002A PAGLOAD OC G MTA:PAGLOAD(1,999) 5.0T2 933 PAGLOAD..OC.002 1 LINE 1616 2 PAGE UM MTA JULY 03, 1981 16:50:50 5.0T5 378 00643/003 PAGLOAD *PAG C *PAG 5.0T2 934 PAGLOAD.*PAG.C.003 1 LINE 70 1 PAGE UM MTA JULY 03, 1981 16:50:51 5.0T5 379 *PAG 0 COMMAND FILE USED TO RUN THE PAGLOAD PROGRAM (643/1) TO GENERATE AN ARTIFICIAL PAGE LOAD. INVOKED BY ENTERING "MTS *PAG" ON THE OPERATORS CONSOLE. 00644/001 DISK SPACE # (OBSOLETE) D4T2 978 DISK_SPACE..SA.001 1 LINE 72 3 PAGE UBC JULY 28, 1977 21:47:24 0 Obsoleted by *DSK (073). 00645/001 UBCDSECTS SA # (OBSOLETE) D3.2T2 48 UBCDSECTS..SA. 1 LINE 71 1 PAGE UBC MAR. 21, 1975 02:21:05 0 In COPY:MTS.MACROS (344/3) 00646/001 SYSTEM DOCUMENTATION LECTURE 1 WF MTS:LECTURE1 5.0T2 935 SYSTEM_DOCUMENTATION.LECT.WF.001 1 LINE 153 8 PAGE UM JWS JULY 03, 1981 16:50:52 5.0T5 380 0 FORMAT SOURCE FOR LECTURE 1 OF THE MTS SYSTEMS LECTURES AS UPDATED TO RELECT D4 MTS (AT LEAST AS VIEWED BY DON). 00646/002 SYSTEM DOCUMENTATION VOL 99 PGM SG G DWB:VOLUME99.S 5.0T2 936 SYSTEM_DOCUMENTATION.VOL.SG.002 1 LINE 97 9 PAGE UM JWS JULY 03, 1981 16:50:53 5.0T5 381 0 A PROGRAM TO IMPLEMENT THE FINDING AND EXTRACTION OF SYSTEM INTERNAL DOCUMENTATION BASED ON THE CLASSIFICATION SCHEME PREVIOUSLY PUBLISHED IN THE MTS NEWSLETTER, NO. 37, PP. 113-119. WHEN RUN WITHOUT ANY PARAMETER, IT WILL ASK FOUR QUESTIONS VIA SERCOM/GUSER. OUTPUT FROM THE PROGRAM IS WRITTEN ON SPRINT. IT MAY ALSO BE RUN WITH A PAR= GIVING THE ANSWERS TO THE QUESTIONS SEPARATED BY COMMAS WITH MISSING ITEMS ASSUMED TO BE "ALL". IN EITHER PROMPT OR PAR= MODE, ADDITIONAL INFORMATION MAY BE SUPPLIED TO BYPASS THE REMAINING QUESTIONS. THE QUESTIONS ARE: 1. "PRINT CLASSIFICATION, DOCUMENTS, OR BOTH" RESPONSE: "C" FOR CLASSIFICATION ONLY, "D" FOR DOCUMENTS ONLY, OR "B" FOR BOTH; OR TO CONTROL PRINTING MORE PRECISELY, "C=(C|X)(U)(D)(V)" WHERE, WITH PARENS REPRESENTING OPTIONS, C MEANS PRINT CLASSIFICATION INFO, X IS SAME AS C BUT PRINTS ONLY IF THERE IS DOCUMENT INFO, U MEANS PRINT USAGE INFO, D MEANS PRINT DOCUMENT INFO, V MEANS PRINT VERSION INFO; OR "(D|C)=", OR "(D|C)= ", OR "(D|C)=" 2. "GIVE CLASSIFICATION NUMBER" 1 MON AUG 05/96 18:37:45 Page 409 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 RESPONSE: "ALL" OR A NULL LINE, OR N OR N1-N2, WHERE N IS A CLASSIFICATION NUMBER NNN.(N(N)) 3. "ENTER USAGE NUMBER" RESPONSE: "ALL" OR A NULL LINE, /N, WHERE N IS A USAGE NUMBER, OR "?" TO GET A DESCRIPTION OF USAGE NUMBERS 4. "ENTER OTHER INFO" RESPONSE: ONE OR MORE OF THE FOLLOWING: "ALL" OR A NULL LINE, MM-DD-YY TO GET ENTRIES SINCE THE SPECIFIED DATE, D=NNNN TO GET A SPECIFIC DOCUMENT, OR V=(NNN|LAST) TO GET A SPECIFIC VERSION OR THE MOST RECENT THE DEFAULT FOR THE VERSION IS "ALL" IF CLASSIFICATION INFORMATION IS BEING OBTAINED, "LAST" IF DOCUMENTS ARE BEING EXTRACTED. 00646/003 SYSTEM DOCUMENTATION VOL 99 PGM OC G SYS:VOLUME99 5.0T2 937 SYSTEM_DOCUMENTATION.VOL.OC.003 1 LINE 80 13 PAGE UM JWS JULY 03, 1981 16:50:59 5.0T5 382 0 HAS EMBEDDED FILE NAMES FOR "SYS:INTCLASS" (646/4) AND "SYS:INTDOCDATA" (646/5). 00646/004 SYSTEM DOCUMENTATION VOL 99 CLASS D SYS:INTCLASS 5.0T2 938 SYSTEM_DOCUMENTATION.VOL.D.004 1 LINE 101 4 PAGE UM JWS JULY 03, 1981 16:51:00 5.0T5 383 0 DATA FILE CONTAINING THE CLASSIFICATION INFORMATION AND INFORMATION ABOUT THE DOCUMENTS. LINES NUMBERS IN THIS FILE ARE IMPORTANT; HAS NEGATIVE LINE NUMBERS. 0 Referenced by comments of: 646/3, 646/5 00646/005 SYSTEM DOCUMENTATION VOL 99 DOC D SYS:INTDOCDATA 5.0T2 939 SYSTEM_DOCUMENTATION.VOL.D.005 1 LINE 190 240 PAGE UM JWS JULY 03, 1981 16:51:01 5.0T5 384 0 THE "STANDARD FILE" FOR CONTAINING DOCUMENTATION; POINTED TO BY (646/4). DOCUMENTATION MAY ALSO BE IN OTHER FILES. NOTE: THIS FILE IS CURRENTLY VERY INCOMPLETE. 0 Referenced by comments of: 646/3 00646/006 SYSTEM DOCUMENTATION PROTECTION WF S0564 D4T2 VLO FSNAME=SYSTEM_DOCUMENTATION.PROT.WF.006(1) 986 5.0T2 940 SYSTEM_DOCUMENTATION.PROT.WF.006 1 LINE 183 14 PAGE UM JWS JULY 28, 1977 21:48:18 5.0T5 385 0 DOCUMENTATION ON MTS PROTECTION OF INFORMATION IN FILES AND VM. THIS IS A PAPER PRESENTED AT THE IEEE SYMPOSIUM ON COMPUTER SECURITY AND INTEGRITY, AT THE (U.S.) NATIONAL BUREAU OF STANDARDS, MAY 1977, BY GARY PIRKOLA AND JOHN SANGUINETTI. 1 MON AUG 05/96 18:37:45 Page 410 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00647/001A TASKSTAT SUBR SA G MTS:TASKSTAT(1000) 5.0T4 422 TASKSTAT_SUBR..SA.001 1 LINE 73 11 PAGE UM OGDEN AUG. 09, 1981 23:48:46 5.0T10 326 0 RE-ENTRANT SUBROUTINE TO RETURN STATE OF AN ACTIVE TASK AS FOLLOWS: CALL TASKSTAT,(JOBTABLE,CODE,INFO,PSW,DESC) JOBTABLE CONTAINS A POINTER TO GUESS WHAT. CODE WILL CONTAIN A FULLWORD INTEGER DESCRIBING THE STATE OF THE TASK: 0 = READY 10 = DORMANT (NO CPU Q) 20 = SNARKED (MTS/TMTS ONLY) 1 = PAGE WAIT 11 = JOBSA WAIT 21 = UNUSED AT UM 2 = DASD I/O WAIT 12 = CMDSTA WAIT GETSEG WAIT AT UBC 3 = OTHER I/O WAIT (ÂDASD) 13 = OPER WAIT 22 = WAYTSUBR 4 = TIME WAIT 14 = INACTIVE JOB TABLE SLEEPSUB 5 = SVC LOCK WAIT 15 = DASD GTUNIT WAIT WAYTRTN 6 = GTUNIT WAIT (ÂDASD) 16 = HASP WAYT SLEEPRTN 7 = FILE WAIT 17 = INTERTASK WAIT 23 = UNUSED AT UM 8 = UNKNOWN WAYT 18 = INTERTASK BUSY HASP Q AT UBC 9 = IDLE 19 = UNUSED INFO WILL CONTAIN A FULLWORD VALUE DEPENDING ON CODE. FOR CODES 0 AND 1: INFO = 0 -> NEUTRAL, 1 -> PRIV, 2 -> NON-PRIV FOR CODES 2, 3, 6, 15: INFO = DEVICE LIST POINTER FOR CODE 5: INFO = LOCK NUMBER FOR CODES 8, 16: INFO = WAYT FLAG FOR OTHER CODES: INFO = 0 PSW WILL CONTAIN THE RIGHT HALF OF THE PSW IF THERE IS ONE, OTHERWISE ZERO. DESC WILL CONTAIN A 12-BYTE READY-TO-PRINT DESCRIPTION OF THE CURRENT STATE. CALLED BY TASKS JOB (019), SSRTN (413/1), LOADCLAS (540/8), THE 3270 DSR %ACTIVITY COMMAND (629/4), PWCT PGM (540/27), AND GTUNIT (540/18). THE %ACTIVITY COMMAND CALLS AN ALTERNATE ENTRY POINT NAMED PREVSTAT, WHICH REQUIRES AN ADDITIONAL PARAMETER (SA) WHICH IS A SAVE AREA CONTAINING THE TASK'S GR0, GR1, AND GR2 FOR THE NEXT LOWER LOCAL CPU QUEUE LEVEL AND USES THE FOURTH PARAMETER (PSW) AS AN INPUT RATHER THAN AN OUTPUT ARGUMENT. COPIES COPY:LLMPSEQU (087), *CNFGINFODSECT (654), COPY:GLOBALS (1026/3), AND COPY:JOBSTA (413/9). ASSEMBLE USING COPY:SETPARM (653). ********************************************************************************* D5.0 VERSION, ALREADY DISTRIBUTED ON D4.3A: CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT. INSTALL IF AND ONLY IF D4.3A OR D5.0 UMMPS IS INSTALLED. ****************************************************************************** 0 Referenced by comments of: 45/2, 400/1, 413/1, 540/8, 540/18, 806/1 00647/002A TASKSTAT SUBR OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 411 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00648/001A EDITOR CLS SA G EDIT:ED.MAIN.S 5.0T2 941 EDITOR.CLS.SA.001 1 LINE 147 49 PAGE UM BURLING AUG. 06, 1981 04:04:45 5.0T5 386 0 This component is the MTS context Editor with pattern matching and variables. The modules in this component must be assembled with *ASMH (737) (*ASMG will give warning messages). The following components are required to assemble the Editor: COPY:ED.MACROS (648/14) COPY:MTS.MACROS (344/3) COPY:CC.MACROS (1054/3) *GDINFODSECT (594) The following components are used for listing enhancements, and are not strictly required, but are referred to by the commands located at the front of each source module. *PEXIT (775) ALWB:SIDELABEL (747) UNSP:VERLAB (812) The following additional components are required to run the Editor: MTS Macro Low-level symbol table routines (802/2) Screen Support Routines (811) All source modules in this component contain commands at the front to assemble. The Editor SUGGEST command allows users to enter suggestions which are logged in the file ETC:EDSUGGEST if it exists. ETC:EDSUGGEST should be permitted WE to ALL. ******************************************************************** This sub-component is the Main routine for the Editor. It acquires and initializes the global storage, processes attention and program interrupts, prints error messages, parses commands and modifiers, and calls the various parse and execute routines. 0 Referenced by comments of: 648/9, 812/1 00648/002A EDITOR CMNDS A TO M SA G EDIT:ED.CMDATOM.S 5.0T2 942 EDITOR.CMNDS_A_TO_M.SA.002 1 LINE 137 68 PAGE UM BURLING AUG. 06, 1981 04:04:52 5.0T5 387 0 This sub-component contains the command parse and execute routines for Editor commands beginning with A through M. 00648/003A EDITOR CMNDS N TO Z SA G EDIT:ED.CMDNTOZ.S 5.0T2 943 EDITOR.CMNDS_N_TO_Z.SA.003 1 LINE 137 32 PAGE UM BURLING AUG. 06, 1981 04:04:58 5.0T5 388 0 This sub-component contains the command parse and execute routines for 1 MON AUG 05/96 18:37:45 Page 412 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Editor commands beginning with N through Z, excluding Visual Mode commands. 00648/004 EDITOR EST SUBR SA G S0564 D4T2 VLO FSNAME=EDITOR.EST_SUBR.SA.002(1) 989 5.0T2 944 EDITOR.EST_SUBR.SA.004 1 LINE 80 6 PAGE UM BURLING JUNE 30, 1977 12:31:56 5.0T5 389 0 This sub-component contains the line number insertion estimation routine used by the Editor, *OBJUTIL, and *MACUTIL. It is used to calculate the largest "nice" increment that may be used to insert a specified number of lines between two existing lines. 0 Referenced by comments of: 721/1, 738/1, 738/2 00648/005A EDITOR EXPRESSIONS SA G EDIT:ED.EXPRTNS.S 5.0T2 945 EDITOR.EXPRESSIONS.SA.005 1 LINE 140 12 PAGE UM BURLING AUG. 06, 1981 04:14:03 5.0T5 390 0 This sub-component contains the predefined variable routines and the beginning of an expression parser added in anticipation of MTS conditional commands. **************************************************************************** D5.0 changes: Uses the MTS Command Macro facility symbol table routines (802/1). **************************************************************************** 00648/006A EDITOR I/O SUPPORT SA G EDIT:ED.IO.S 5.0T2 946 EDITOR.I/O_SUPPORT.SA.006 1 LINE 145 47 PAGE UM BURLING AUG. 06, 1981 04:14:10 5.0T5 391 0 This sub-component contains the Editor File Independent I/O routines. Aliases for these routines are defined by a COM record in the Editor CLS interface. These routines may be called by user-supplied intermediate I/O routines when the Editor is called as a subroutine. 0 Referenced by comments of: 648/10 00648/007A EDITOR PATTERN SA G EDIT:ED.PATTERN.S 5.0T2 947 EDITOR.PATTERN.SA.007 1 LINE 137 70 PAGE UM BURLING AUG. 06, 1981 04:14:15 5.0T5 392 0 This sub-component contains the Editor Pattern Matching routines. 00648/008A EDITOR PRIMITIV PARSE SA G EDIT:ED.PRPARSE.S 5.0T2 948 EDITOR.PRIMITIV_PARSE.SA.008 1 LINE 137 43 PAGE UM BURLING AUG. 06, 1981 04:14:27 5.0T5 393 0 This sub-component contains the Editor's primitive parsing routines. 00648/009A EDITOR SUBROUTINES SA G EDIT:ED.SUBRTNS.S 5.0T2 949 EDITOR.SUBROUTINES.SA.009 1 LINE 150 53 PAGE UM BURLING AUG. 06, 1981 04:14:31 5.0T5 394 0 This sub-component contains the common Editor subroutines. It was formerly 1 MON AUG 05/96 18:37:45 Page 413 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 a part of the Editor Main (648/1). 00648/010A EDITOR VIRTUAL FILES SA G EDIT:ED.VF.S 5.0T2 950 EDITOR.VIRTUAL_FILES.SA.010 1 LINE 132 13 PAGE UM BURLING AUG. 06, 1981 04:14:37 5.0T5 395 0 This sub-component contains the Editor Virtual File routines, a set of routines which are used like line files, but use VM for storage. The calling sequences are similar to those used within the Editor to access the I/O support (648/6). 00648/011A EDITOR VISUAL CMND SA G EDIT:ED.VISUAL.S 5.0T2 951 EDITOR.VISUAL_CMND.SA.011 1 LINE 149 28 PAGE UM BURLING AUG. 06, 1981 04:14:47 5.0T5 396 0 This sub-component contains the command parse and execute routines for the Editor's Visual Mode. **************************************************************************** D5.0 changes: This is the new visual mode which uses device-independent full-screen support. Requires the Screen Support Routines (811). **************************************************************************** 00648/012A EDITOR CLS INTERFACE SA G EDIT:ED.CLS.S 5.0T2 952 EDITOR.CLS_INTERFACE.SA.012 1 LINE 129 4 PAGE UM BURLING AUG. 06, 1981 04:14:57 5.0T5 397 0 This sub-component is the CLS interface for the MTS $EDIT command. It is called using the CLSPLAN calling conventions, and it in turn sets up to call the resident EDIT subroutine. It is responsible for parsing off any file name or one shot command. 00648/013A EDITOR OBJECT OC G *CLSED 5.0T2 953 EDITOR.OBJECT.OC.013 1 LINE 19721 133 PAGE UM BURLING AUG. 06, 1981 04:14:58 5.0T5 398 *CLSED 0 This sub-component is the file loaded into shared VM by PISTLE at IPL. It contains the object for sub-components 1 through 12, in *OBJUTIL format. 00648/014A EDITOR MACROS SM G COPY:ED.MACROS 5.0T2 954 EDITOR.MACROS.SM.014 1 LINE 72 44 PAGE UM BURLING AUG. 06, 1981 04:15:06 5.0T5 399 COPY:ED.MACROS 0 This sub-component contains macros and COPY sections used by the Editor. ************************************************************************ D5.0 version: This now contains *only* macros actually used by the editor. ************************************************************************ 0 Referenced by comments of: 648/1 1 MON AUG 05/96 18:37:45 Page 414 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00648/015 EDITOR ETC:EDEXPLAIN M ETC.:EDEXPLAIN 5.0T2 955 EDITOR.ETC:EDEXPLAIN.M.015 1 LINE 72 41 PAGE UM BURLING AUG. 06, 1981 04:15:11 5.0T5 400 ETC.:EDEXPLAIN 0 This sub-component contains the text used by the Editor's EXPLAIN command. 0 Referenced by comments of: 648/16 00648/016A EDITOR EXPLAIN GEN SA G EDIT:EXPLAINGEN(1,999) 5.0T2 956 EDITOR.EXPLAIN_GEN.SA.016 1 LINE 83 3 PAGE UM BURLING AUG. 06, 1981 04:15:15 5.0T5 401 0 This sub-component is the source for the program that generates the directory at the front of the explain command text file. Works like *MACGEN (293/1) except that there is an extra field which contains ending line numbers. EXPLAINGEN takes ETC:EDEXPLAIN(1000) (648/15) as SCARDS and produces the directory on SPUNCH, which should be assigned to ETC:EDEXPLAIN(1,999). 00648/017A EDITOR EXPLAIN GEN OC G EDIT:EXPLAINGEN(1000) 5.0T2 957 EDITOR.EXPLAIN_GEN.OC.017 1 LINE 80 2 PAGE UM BURLING AUG. 06, 1981 04:15:16 5.0T5 402 00648/018 EDITOR *ED PROGRAM SA G EDIT:ED.CALLER.S 5.0T2 958 EDITOR.?ED_PROGRAM.SA.018 1 LINE 101 3 PAGE UM BURLING AUG. 06, 1981 04:15:16 5.0T5 403 0 This sub-component is a program that calls the EDIT subroutine. It is useful for debugging the Editor. 00648/019 EDITOR *ED PROGRAM OE G EDIT:ED.CALLER 5.0T2 959 EDITOR.?ED_PROGRAM.OE.019 1 LINE 956 1 PAGE UM BURLING AUG. 06, 1981 04:15:18 5.0T5 404 00648/020A EDITOR CHANGES WX EDIT:ED.CHANGES.W 5.0T2 960 EDITOR.CHANGES.WX.020 1 LINE 77 11 PAGE UM BURLING AUG. 06, 1981 04:15:18 5.0T5 405 0 This sub-component contains a list of changes made to the Editor since it was last distributed. Contains commands at the front to generate output in -PRINT. 00649/001 SNOBOLTIDY SA G STID S1153 UNSP VLO FSNAME=SNOBOLTIDY.S 5.0T2 961 SNOBOLTIDY..SA.001 1 LINE 80 9 PAGE UM UNSP SEP. 30, 1975 11:00:41 5.0T5 406 0 A SNOBOL4 SOURCE TIDYING PROGRAM WHICH ESTABLISHES A CORRESPONDENCE BETWEEN MTS LINE NUMBERS AND THE INTERNAL STATEMENT NUMBERS USED BY THE COMPILERS. 00649/002 SNOBOLTIDY OE G UNSP:SNOBOLTIDY 5.0T2 962 SNOBOLTIDY..OE.002 1 LINE 1382 3 PAGE UM UNSP JULY 03, 1981 16:54:06 5.0T5 407 UNSP:SNOBOLTIDY 1 MON AUG 05/96 18:37:45 Page 415 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00649/003A SNOBOLTIDY WF S1153 UNSP VLO FSNAME=SNOBOLTIDY.FMT 5.0T2 963 SNOBOLTIDY..WF.003 1 LINE 82 1 PAGE UM UNSP SEP. 15, 1980 16:43:39 5.0T5 408 00650/001A BJPMOD SA G S0683 OGDEN FSNAME=BJPMOD.S 5.0T4 423 BJPMOD..SA.001 1 LINE 69 5 PAGE UM OGDEN MAR. 28, 1981 00:27:28 5.0T10 327 0 SUBROUTINE CALLED BY SSRTN (413/1) TO DYNAMICALLY ADJUST THE SUPERVISOR PAGING PARAMETERS BASED ON THE SYSTEM LOAD. COPIES COPY:JOBSTA (413/9), AND COPY:BJPDSCT (650/3). 0 Referenced by comments of: 45/15, 413/1, 540/10 00650/002A BJPMOD OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00650/003 BJPMOD BJP DSECT SA G COPY:BJPDSCT 5.0T4 424 BJPMOD.BJP_DSECT.SA.003 1 LINE 69 1 PAGE UM OGDEN AUG. 09, 1981 23:50:52 5.0T10 328 COPY:BJPDSCT 0 DSECT FOR SUPERVISOR'S BIG JOB PARAMETER VECTOR. 0 Referenced by comments of: 413/1, 540/10, 577/1, 650/1 00650/004A BJPMOD WRITEUP WF # OBSOLETE (REPLACED BY SUPERVISOR SCHEDULING DESCR.) 4.3T1 656 BJPMOD.WRITEUP.WF.004 1 LINE 69 3 PAGE UM OGDEN MAR. 13, 1980 22:21:24 4.3T3 114 0 Notes on BJPMOD and CPU scheduling - now included in the description of supervisor CPU scheduling (45/15). 00651/001A RATES RATEFILEFMT SA G RTFL S0027 DISTRB FSNAME=RATEFILEFMT 5.0T2 964 RATES.RATEFILEFMT.SA.001 1 LINE 80 1 PAGE UM ENGLE SEP. 09, 1980 16:38:52 5.0T5 409 0 DESCRIBES MTS RATE LINES IN *RATEFILE. 0 Referenced by comments of: 651/4 00651/002A RATES RATEFILEFMT UC G S0027 DISTRB FSNAME=RATEFILEFMTUPD 5.0T2 965 RATES.RATEFILEFMT.UC.002 1 LINE 60 1 PAGE UM ENGLE SEP. 09, 1980 16:39:02 5.0T5 410 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00651/003A RATES COPY:RATEVEC SA G COPY:RATEVEC 5.0T2 966 RATES.COPY:RATEVEC.SA.003 1 LINE 80 2 PAGE UM ENGLE JULY 03, 1981 16:54:43 5.0T5 411 COPY:RATEVEC 0 DSECT COPIED UNDER THE NAME "COPY:RATEVEC" TO DESCRIBE "RATEVEC" IN SHARED VM AND THE INFORMATION RETURNED BY GETRATES (651/9). 1 MON AUG 05/96 18:37:45 Page 416 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 71/1, 104/19, 344/1, 615/15, 631/8, 632/3, 651/9, 651/14, 708/1 00651/004A RATES RATEGEN SA G RGEN S0027 DISTRB FSNAME=RATEGEN 5.0T2 967 RATES.RATEGEN.SA.004 1 LINE 80 31 PAGE UM ENGLE FEB. 16, 1981 13:22:30 5.0T5 412 0 PROGRAM TO GENERATE *RATEFILE (651/8). EACH LINE IN *RATEFILE IS PRODUCED BY A MACRO EXPANSION. CONSEQUENTLY, MACRO CALLS MUST BE CHANGED OR ADDED AND THE PROGRAM REASSEMBLED FOR EACH CHANGE IN THE RATES. COPIES RATEFILEFMT (651/1). 0 Referenced by comments of: 651/8 00651/005A RATES RATEGEN OC G S0027 DISTRB FSNAME=RGEN 5.0T2 968 RATES.RATEGEN.OC.005 1 LINE 80 21 PAGE UM ENGLE FEB. 16, 1981 13:23:14 5.0T5 413 00651/006 RATES RATEPRNT SA G S0564 D4T2 VLO FSNAME=RATES.RATEPRNT.SA.005(1) 1008 5.0T2 969 RATES.RATEPRNT.SA.006 1 LINE 80 4 PAGE UM ENGLE MAY 03, 1974 14:42.03 5.0T5 414 0 PROGRAM TO PRINT THE CONTENTS OF *RATEFILE. RATE LINES ARE PRINTED AS IF THEY FORMED A COLUMN MAJOR MATRIX CONTAINING 3 ROWS. 00651/007 RATES RATEPRNT OC G S0564 D4T2 VLO FSNAME=RATES.RATEPRNT.OC.006(1) 1009 5.0T2 970 RATES.RATEPRNT.OC.007 1 LINE 80 1 PAGE UM ENGLE MAY 03, 1974 14:42.23 5.0T5 415 00651/008A RATES *RATEFILE D G MTS:TST.RATEFILE 5.0T2 971 RATES.?RATEFILE.D.008 1 LINE 222 7 PAGE UM ENGLE AUG. 06, 1981 04:15:39 5.0T5 416 *RATEFILE 0 FILE USED BY MTS AND BILLING FOR CHARGE RATES. DOES NOT AGREE WITH DISTRIBUTED VERSION OF RATEGEN (651/4)-- HAS EXTRA CHEAP RATES (FREE). 0 Referenced by comments of: 326/1, 651/4, 651/9 00651/009A RATES GETRATES SA G MTS:GETRATES(1,999) 5.0T2 972 RATES.GETRATES.SA.009 1 LINE 67 3 PAGE UM MTA JULY 03, 1981 16:55:07 5.0T5 417 MTS.:GETRATES 0 SUBROUTINE TO RETURN RATES GIVEN A RATE NUMBER. THIS IS THE ONLY PROGRAM OUTSIDE OF THE ACCOUNTING AND BILLING PROGRAMS WHICH ACCESSES *RATEFILE (651/8). COPIES COPY:RATEVEC (651/3). *********************************************************************************** D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): CHANGED FOR V8 RATES AND NEW RATE FILE FORMAT. *********************************************************************************** 0 Referenced by comments of: 71/1, 651/3 1 MON AUG 05/96 18:37:45 Page 417 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00651/010A RATES GETRATES OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00651/011A RATES RATENBR D5 MAS SA G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=RNBR 5.0T4 425 RATES.RATENBR_D5_MAS.SA.011 1 LINE 80 8 PAGE UM MTS MTA AUG. 09, 1981 23:50:55 5.0T10 329 0 SUBROUTINE TO COMPUTE THE APPROPRIATE RATE NUMBER FOR THE CURRENT JOB. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU(100) (087), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2, 761/1 00651/012A RATES RATENBR UPD UC G MTS:RNBRUPD 5.0T4 426 RATES.RATENBR_UPD.UC.012 1 LINE 79 5 PAGE UM MTS MTA AUG. 09, 1981 23:50:56 5.0T10 330 MTS.:RNBRUPD 0 UPDATE TO PRODUCE D5.0 SOURCE FROM D4.0. UPDATE USES $CONTROL *IN* POSN=RNBR. 00651/013A RATES RATENBR OC G # (PART OF RESIDENT SYSTEM) UM MTS MTA 0 Object part of Resident System (468) 00651/014 RATES RATEVEC SA G MTS:RATEVEC(1,999) 5.0T2 973 RATES.RATEVEC.SA.014 1 LINE 47 1 PAGE UM MTA JULY 03, 1981 16:55:07 5.0T5 418 MTS.:RATEVEC 0 INITIAL VALUES FOR RATE VECTOR. COPIES COPY:RATEVEC (651/3). 00651/015 RATES RATEVEC OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00651/016 RATES DOCUMENTATION WF S0938 FSAVE2 VLO FSNAME=VBLRATEDOC(1) 5.0T2 974 RATES.DOCUMENTATION.WF.016 1 LINE 126 5 PAGE UM MTA SEP. 23, 1975 00:16:54 5.0T5 419 0 A WRITEUP DESCRIBING THE MTS VARIABLE RATES IMPLEMENTATION. 00652/001 MTS VOLUME 12 MASTER WT S0564 D4T2 VLO FSNAME=MTS_VOLUME_12.MASTER.WT.001(1) 1015 5.0T2 975 MTS_VOLUME_12.MASTER.WT.001 1 SEQ 132 108 PAGE UM MANUAL JULY 28, 1977 21:55:28 5.0T5 420 0 TEXT/360 MASTER FOR VOLUME 12 "PIL/2 IN MTS" OF THE UM MTS MANUALS, DECEMBER 1974. EDITOR: RICHARD A. SALISBURY 1 MON AUG 05/96 18:37:45 Page 418 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00652/002 MTS VOLUME 12 PRINT PT S0564 D4T2 VLO FSNAME=MTS_VOLUME_12.PRINT.PT.002(1) 1016 5.0T2 976 MTS_VOLUME_12.PRINT.PT.002 1 SEQ 132 248 PAGE UM MANUAL JULY 28, 1977 21:55:38 5.0T5 421 0 TEXT/360 PRINT FILE. 00653/001 SETPARM SM G COPY:SETPARM 5.0T2 977 SETPARM.ASMG_VERSION.SM.001 1 LINE 72 3 PAGE UM MTA AUG. 06, 1981 04:17:08 5.0T5 422 COPY:SETPARM 0 Macro library containing only the SETPARM and SETPARMH macros which generate SET statements for the COPY:GLOBALDEFS (1026/1) symbols based on the SYSPARM field given to *ASMG or *ASMH. The ASMH SETPARMH macro scans SYSPARM for NAME=tval where "NAME" is a symbol name, "t" is A, B, D, or E for SETA, SETB, SETC, or EQU assignment, and "val" is a value, possibly enclosed in quotes or parens. NAME=tval may be repeated and must be separated from previous items using a comma. For *ASMG, if a program has a SETPARM macro (after copying COPY:GLOBALS) and is assembled with PAR=SYSPARM=0001100101023UQV then additional SET statements will be generated as follows: &S370 SETB 0 &OC3066 SETB 0 &CRTY SETB 0 &SIMPLEX SETB 1 &OPERJOB SETB 1 &PROT SETB 0 &AMD470 SETB 0 &BLKMPX SETB 1 &IO370 SETB 0 &NOSLT SETB 1 &OMR SETC 'NO' &JTBLPOL SETA 2 &DTBLPOL SETA 3 &INSTALL SETC 'UQV' 0 Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 45/1, 46/1, 79/1, 135/1, 399/1, 400/1, 482/7, 509/1, 540/1, 540/6, 577/1, 577/6, 634/1, 634/4, 647/1, 732/1, 777/1, 1021/1, 1021/4, 1081/1 00654/001A *CNFGINFODSECT SA G *CNFGINFODSECT 5.0T2 978 CNFGINFODSECT..SA.001 1 LINE 72 4 PAGE UM MTA AUG. 06, 1981 04:17:09 5.0T5 423 *CNFGINFODSECT 0 DSECT FOR TABLE DESCRIBING SYSTEM CONFIGURATION (E.G. CPU TYPE AND FEATURES). 0 Referenced by comments of: 1/5, 4/1, 4/4, 9/1, 46/1, 49/1, 67/23, 97/10, 101/1, 104/61, 104/141, 116/1, 135/1, 303/1, 303/6, 354/5, 360/1, 400/1, 413/1, 461/1, 482/1, 506/8, 507/2, 509/1, 513/1, 534/3, 540/1, 540/10, 545/4, 545/16, 558/1, 559/2, 566/11, 566/26, 577/6, 595/86, 600/1, 600/7, 610/1, 621/2, 629/1, 634/1, 636/1, 638/1, 639/1, 647/1, 651/11, 655/4, 671/3, 682/37, 682/39, 721/1, 721/11, 721/18, 729/2, 738/1, 787/3, 787/15, 814/4, 1002/13, 1002/23, 1019/1, 1019/3, 1020/1, 3018/29, 3024/13 1 MON AUG 05/96 18:37:45 Page 419 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00655/001C EREP/370 DRIVER PROGRAM SA G # (SEE *VSS DRIVER PROGRAM) UM MTA 0 Source for the program to call VSS to RUN EREP. Requires *GDINFODSECT (594). This program is obtained by assembling VSS.DRIVER (1078/39) with SYSPARM=EREP. 0 Referenced by comments of: 621/8 00655/002C EREP/370 DRIVER PROGRAM OE G SYS:EREP 5.0T2 979 EREP/370.DRIVER_PROGRAM.OE.002 1 LINE 2077 3 PAGE UM MTA AUG. 21, 1981 05:18:28 5.0T6 1 SYS:EREP 0 Requires ETC:VSS (1078/38) and ETC:EREPCMDS (655/3). 00655/003C EREP/370 COMMANDS C ETC:EREPCMDS 5.0T2 980 EREP/370.COMMANDS.C.003 1 LINE 52 1 PAGE UM MTA JULY 03, 1981 16:55:29 5.0T6 2 ETC:EREPCMDS 0 VSS (1078) commands to run EREP. Requires ETC:EREPLIB.VSS (655/6), INIT:UC3330LOG (621/12), INIT:MCFILE (577/10), and ETC:CNVTEREP (655/5). 0 Referenced by comments of: 655/2 00655/004A EREP/370 CNVTEREP SA O MTA:CNVTEREP(1,999) 5.0T2 981 EREP/370.CNVTEREP.SA.004 1 LINE 72 18 PAGE UM MTA JULY 03, 1981 16:55:30 5.0T6 3 MTA.:CNVTEREP 0 PROGRAM TO CONVERT LOG RECORDS GENERATED BY MCHCCH (577/1), UCDISK (787/3), AND UCTAPE (787/15) TO A FORMAT ACCEPTABLE TO THE IBM EREP PROGRAM WHICH IS RUN UNDER *VSS IN MTS. CALLS JVCT (674) AND MAY CALL IGFC60 (589/4), IGFC70 (589/5), IGFC80 (589/6), IGFCIC, WHICH IS NOT DISTRIBUTED, OR A#VCCH47 (589/8) IF VERY OLD DATA IS PROCESSED. COPIES COPY:CMDAREADSECT (531/19), *GDINFODSECT (594) AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:UC.MACROS (787/1) AND MCHMAC (577/5). ********************************************************************************** D5.0 CHANGES, SOME ALREADY DISTRIBUTED ON D4.3A: CHANGED FOR STC'S PM2 PROGRAM (820) AND NEW EREP. ********************************************************************************** 00655/005A EREP/370 CNVTEREP OE O ETC:CNVTEREP 5.0T2 982 EREP/370.CNVTEREP.OE.005 1 LINE 8084 4 PAGE UM MTA JULY 03, 1981 16:56:04 5.0T6 4 ETC:CNVTEREP 0 CONTAINS A $CONTINUE WITH MTA:470CCH+MTS:UBCDATEX+COPY:SYSDEFS RECORD WHICH REFERS TO COMPONENTS (589/8), (674/2), AND (579/3), RESPECTIVELY. 0 Referenced by comments of: 655/3, 820/7 1 MON AUG 05/96 18:37:45 Page 420 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00655/006C EREP/370 LIBRARY OV ETC:EREPLIB.VSS 5.0T2 983 EREP/370.LIBRARY.OV.006 1 LINE 14656 285 PAGE UM MTA JULY 03, 1981 16:56:05 5.0T6 5 ETC:EREPLIB.VSS 0 Object in MVS load module form for EREP, in VSS PDS format. Created from AOSCD and AOSC5 at 8101 + RMS6.1 level using MVS 3.8E Linkeditor running in VSS. Includes FMIDs EER1100 and FER1110. "MTS" patched into the system table in IFCEDSUM, IFCMES01, IFCETUL1 IFCxx470, AND IFCE33XX load modules. 0 Referenced by comments of: 655/3 00655/007 EREP/370 470 RMS SOURCE SA G S0699 D3TAPE POSN=EREP470.61.S 5.0T2 984 EREP/370.470_RMS_SOURCE.SA.007 1 LINE 80 139 PAGE AMD MTA AUG. 21, 1981 05:21:47 5.0T6 6 0 Source for the EREP modules to format 470 records. 00655/008 EREP/370 LINKEDIT INPUT D MTA:EREP.LKED 5.0T2 985 EREP/370.LINKEDIT_INPUT.D.008 1 LINE 72 6 PAGE UM MTA JULY 03, 1981 17:00:03 5.0T6 7 0 OS/VS LINKEDIT CONTROL CARDS FOR EREP FOR ALL POSSIBLE OPTIONS EXCEPT SSD, WHATEVER THAT IS, I.E. UNION OF ALL POSSIBLE OUTPUT FROM EREP.SGMAC (655/9). CORRESPONDS TO VS2 REL 3.8E AT 8101 LEVEL WITH AMDAHL PTF #Z20184 APPLIED. 0 Referenced by comments of: 655/9 00655/009 EREP/370 SYSGEN MACRO SA G MTA:EREP.SGMAC 191 5.0T2 986 EREP/370.SYSGEN_MACRO.SA.009 1 LINE 80 16 PAGE UM MTA JULY 03, 1981 17:00:05 5.0T6 8 0 VS2 REL 3.8E FER1110 EREP SYSGEN MACRO SGIFB400 AT LEVEL 8101 WITH AMDAHL PTF #Z20184 APPLIED. IT IS NOT INTENDED THAT THIS MACRO BE ASSEMBLED AS IS; IT IS INCLUDED ONLY TO INDICATE WHAT PART OF EREP SUPPORTS WHAT DEVICE OR FEATURE. (655/8) IS THE RESULT OF ASSEMBLING AN EDITED VERSION OF THIS. 0 Referenced by comments of: 655/8 00655/010C EREP/370 AOSC5 OV S0938 FSAVE2 VLO FSNAME=SYS1.AOSC5 5.0T2 987 EREP/370.AOSC5.OV.010 1 LINE 21678 391 PAGE UM MTA APR. 07, 1981 00:26:22 5.0T6 9 0 One of two load module libraries needed to linkedit EREP. Actually contains very little of EREP and much else: AOSC5 from the MVS 3.8E IPO tapes with PTF UR00831 (the only PTF to AOSC5 that applies to EREP) applied. This is at the 8101 level as far as EREP is concerned. 1 MON AUG 05/96 18:37:45 Page 421 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00655/011C EREP/370 AOSCD OV S0938 FSAVE2 VLO FSNAME=SYS1.AOSCD 5.0T2 988 EREP/370.AOSCD.OV.011 1 LINE 12288 358 PAGE UM MTA APR. 11, 1981 04:17:49 5.0T6 10 0 One of two load module libraries needed to linkedit EREP. AOSCD from the MVS 3.8E IPO tapes with all PTFs for EER1100 and FER1110 to the 8101 level. Some or all of the following PTFs are included: UR00692, UR00620, UR00595, UR01127, UR01116, UR00645, UR00904, UR00712, UR00783, UR00844, UR00838, UR00833, UR00907, UR00862, UR00930, UR00679, UR00834, UR00604, UR00591, UR00644, UR00711, UR00782, UR00842, UR00909, UR00901, UR01098, UR01220, UR01193, UR01238, UR01246, UR01254, UR90009, UR00779. Also includes the following changes from the Amdahl RMS 6.1 tape: IFCEDSUM replaced from #R20170 IFCPARM1 patched as indicated in the comments to #R20173 IFCFILT2 patched as indicated in the comments to #R20182 IFCEI470 replaced from #R20195 IFCSI470 replaced from #R20197 IFCE0470 replaced from #R20202 IFCS0470 replaced from #R20203 IFCFILT3 patched as indicated in the comments to #R20208 IFCFILT4 patched as indicated in the comments to #R20212 The exact patches are given on hand written notes in MTA's office. Since a PDS in VSS (like in MVS) never reclaims space, all previous versions of these modules back to MVS 3.8E are also included in this file if it becomes necessary to determine the patches by comparison. 00655/012C EREP/370 WRITEUP P MTA:EREPINFO 5.0T2 989 EREP/370.WRITEUP.P.012 1 LINE 70 1 PAGE UM MTA JULY 03, 1981 17:03:23 5.0T6 11 MTA:EREPINFO 0 Description of how to run EREP in MTS. 00656/001 GT40 GRAPHICS SYSTEM SYST S O S0933 IGDIST FSNAME=GT40.SYST.S 5.0T2 990 GT40_GRAPHICS_SYSTEM.SYST.S.001 1 LINE 85 33 PAGE UM EADIE AUG. 12, 1976 15:57:09 5.0T6 12 0 GRAPHICS OPERATING SYSTEM FOR DEC GT40 DISPLAY. COPIES GT40 EQUS (656/2). 00656/002 GT40 GRAPHICS SYSTEM EQUS S G S0981 W114 'W114SAVE' FSNAME=GT40.EQU.C 5.0T2 991 GT40_GRAPHICS_SYSTEM.EQUS.S.002 1 LINE 72 1 PAGE UM EADIE APR. 03, 1975 17:27:56 5.0T6 13 0 Referenced by comments of: 656/1 00656/003 GT40 GRAPHICS SYSTEM SYST O O S0933 IGDIST FSNAME=GT40.SYST 5.0T2 992 GT40_GRAPHICS_SYSTEM.SYST.O.003 1 LINE 55 3 PAGE UM EADIE MAY 16, 1977 17:49:15 5.0T6 14 0 HAS A "$CONTINUE WITH SBWB:LOADER RETURN" CARD TO PICK UP THE OBJECT FOR (656/4). 1 MON AUG 05/96 18:37:45 Page 422 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00656/004 GT40 GRAPHICS SYSTEM LOADER S G S0933 IGDIST FSNAME=GT40.LOAD.S 5.0T2 993 GT40_GRAPHICS_SYSTEM.LOAD.S.004 1 LINE 82 3 PAGE UM EADIE AUG. 12, 1976 15:57:22 5.0T6 15 0 PROGRAM TO LOAD A DEC GT40 DISPLAY VIA TELEPHONE LINE. 0 Referenced by comments of: 656/3 00656/005 GT40 GRAPHICS SYSTEM LOADER O G S0933 IGDIST FSNAME=GT40.LOAD 5.0T2 994 GT40_GRAPHICS_SYSTEM.LOAD.O.005 1 LINE 76 1 PAGE UM EADIE MAY 16, 1977 17:49:13 5.0T6 16 00657/001 *ASCEBCD SA G S1430 4.3T1 VLO FSNAME=ASCEBCD..SA.001(1) 667 5.0T2 995 ASCEBCD..SA.001 1 LINE 80 3 PAGE UM WSG JAN. 11, 1980 17:35:45 5.0T6 17 0 PROGRAM TO TRANSLATE ARBITRARY LENGTH RECORDS FROM ASCII TO EBCDIC USING EITHER THE MTS OR IBM ASCEBC TRANSLATE TABLE. SOURCE IN LINES 1,999. 00657/002 *ASCEBCD OC G *ASCEBCD 5.0T2 996 ASCEBCD..OC.002 1 LINE 80 1 PAGE UM WSG JULY 03, 1981 17:16:47 5.0T6 18 *ASCEBCD 00658/001A *EBCDASC SA G S1430 4.3T1 VLO FSNAME=EBCDASC..SA.001(1) 669 5.0T2 997 EBCDASC..SA.001 1 LINE 80 5 PAGE UM WSG JAN. 11, 1980 17:37:01 5.0T6 19 0 PROGRAM TO TRANSLATE ARBITRARY LENGTH RECORDS FROM EBCDIC TO ASCII USING EITHER THE MTS OR IBM ASCII TRANSLATE TABLE. SOURCE IN LINES 1,999. 00658/002A *EBCDASC OC G *EBCDASC 5.0T2 998 EBCDASC..OC.002 1 LINE 80 2 PAGE UM WSG JULY 03, 1981 17:16:49 5.0T6 20 *EBCDASC 00659/001A GOM COMPILER FTN SF G DWB:GOM.S 5.0T2 999 GOM.COMPILER_FTN.SF.001 1 LINE 100 118 PAGE UM DWB JULY 03, 1981 17:16:49 5.0T6 21 0 COMPILER FOR "GOOD OLD MAD" -- A LANGUAGE SIMILAR TO THE 7090 MAD LANGUAGE. THIS FILE HAS 75 FORTRAN MODULES. SOURCE BEGINS AT LINES 1000, 2000, ... 75000. "$CONTINUE WITH" FILES: GOM.COMMON (659/8), GOM.COMMOND (659/10), GOM.CONTAB (659/12), GOM.MATRIX (659/14), AND GOM.SYMTAB (659/15). NOTE: COMPILING THESE WILL PRODUCE THREE WARNING MESSAGES FROM THE COMPILATION OF THE STMTYP MODULE, LINES 31000,31999. 0 Referenced by comments of: 659/2, 659/5, 659/25, 798/37 00659/002A GOM COMPILER FTN OC G DWB:GOM.O 5.0T2 1000 GOM.COMPILER_FTN.OC.002 1 LINE 30712 171 PAGE UM DWB JULY 03, 1981 17:16:57 5.0T6 22 DWB.:GOM.O 0 OBJECT CORRESPONDING TO (659/1), PLUS THE OBJECT FOR THE MODULE WHOSE SOURCE 1 MON AUG 05/96 18:37:45 Page 423 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 IS IN LINES 1000,1999 OF (659/3) SINCE THIS IS THE ONLY GOM MODULE WHICH IS REQUIRED. THIS ALLOWS CHECKOUT TO BE DONE USING (659/2) + (659/6). 0 Referenced by comments of: 659/2, 659/4 00659/003A GOM COMPILER GOM SG G DWB:GOM.SG 5.0T2 1001 GOM.COMPILER_GOM.SG.003 1 LINE 153 22 PAGE UM DWB JULY 03, 1981 17:17:05 5.0T6 23 0 GOM PIECES OF THE COMPILER, I.E. PORTIONS OF THE COMPILER WRITTEN IN ITSELF. REFERENCES CNFGINFO IN LCSYMBOL. "$CONTINUE WITH" FILES: GOM.COMMONG (659/9), GOM.COMMONDG (659/11), AND GOM.CONTABG (659/13). 0 Referenced by comments of: 659/2, 659/4, 659/16 00659/004A GOM COMPILER GOM OC G DWB:GOM.OG 5.0T2 1002 GOM.COMPILER_GOM.OC.004 1 LINE 80 34 PAGE UM DWB JULY 03, 1981 17:17:09 5.0T6 24 DWB.:GOM.OG 0 OBJECT CORRESPONDING TO (659/3), EXCEPT FOR THE MODULE WHOSE SOURCE IS IN LINES 1000,1999 OF (659/3) WHICH HAS ITS OBJECT IN (659/2). 00659/005A GOM SEQUENCES SA G DWB:GOM.SEQS 5.0T2 1003 GOM.SEQUENCES.SA.005 1 LINE 102 54 PAGE UM DWB JULY 03, 1981 17:17:11 5.0T6 25 0 THIS IS NOT EXECUTABLE. THE FORTRAN SOURCE PIECES (659/1) TREAT THIS AS A COMMON SECTION THAT IS AN ARRAY OF HALFWORDS. 0 Referenced by comments of: 659/6 00659/006A GOM SEQUENCES OC G DWB:GOM.SEQS.O 5.0T2 1004 GOM.SEQUENCES.OC.006 1 LINE 80 40 PAGE UM DWB JULY 03, 1981 17:17:17 5.0T6 26 DWB.:GOM.SEQS.O 0 OBJECT CORRESPONDING TO (659/5). 0 Referenced by comments of: 659/2 00659/007A GOM OBJECT OE G *GOM 5.0T2 1005 GOM.OBJECT.OE.007 1 LINE 32767 99 PAGE UM DWB JULY 03, 1981 17:17:20 5.0T6 27 *GOM 0 RESULT OF RUNNING *LINKEDIT WITH THE FOLLOWING COMMANDS: INCLUDE GOM.O INCLUDE GOM.SEQS.O INCLUDE GOM.SYMOPG(1000) UPDATE GOM.OG COMBINE@BC PURGE $EMPTY *GOM PUNCH *GOM NOTE: THE UPDATE COMMAND IN THE ABOVE SEQUENCE WILL CAUSE *LINKEDIT TO EMIT A 1 MON AUG 05/96 18:37:45 Page 424 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 WARNING MESSAGE TO THE EFFECT THAT THERE ARE STRUCTURAL DIFFERENCES IN THE MODULES DEFINING MTRXPR. THIS IS OK. AN ALMOST ALL-FORTRAN VERSION CAN BE PRODUCED BY THE FOLLOWING *LINKEDIT COMMANDS: INCLUDE GOM.O INCLUDE GOM.SEQS.O COMBINE@BC PURGE $EMPTY *GOM PUNCH *GOM 00659/008A GOM COMMON DECLAR SF G DWB:GOM.COMMON 5.0T2 1006 GOM.COMMON_DECLAR.SF.008 1 LINE 71 1 PAGE UM DWB JULY 03, 1981 17:17:25 5.0T6 28 0 "$CONTINUE WITH"ED BY ALL FORTRAN MODULES. CONTAINS COMMON DEFINITIONS AND COMMON DECLARATIONS. 0 Referenced by comments of: 659/1, 659/9, 659/16, 659/20 00659/009A GOM COMMON DECLAR SG G DWB:GOM.COMMONG 5.0T2 1007 GOM.COMMON_DECLAR.SG.009 1 LINE 85 3 PAGE UM DWB JULY 03, 1981 17:17:26 5.0T6 29 0 GOM "COPY SECTION" EQUIVALENT TO (659/8). "$CONTINUE WITH"ED BY ALL GOM MODULES. 0 Referenced by comments of: 659/3, 659/16, 659/20 00659/010A GOM DEPEND DECLAR SF G DWB:GOM.COMMOND 5.0T2 1008 GOM.DEPEND_DECLAR.SF.010 1 LINE 71 1 PAGE UM DWB JULY 03, 1981 17:17:27 5.0T6 30 0 "$CONTINUE WITH"ED BY ALL MODULES WHICH ARE CHARACTER- OR MACHINE-DEPENDENT. CONTAINS COMMON SECTIONS AND DEFINITIONS. 0 Referenced by comments of: 659/1, 659/11 00659/011A GOM DEPEND DECLAR SG G DWB:GOM.COMMONDG 5.0T2 1009 GOM.DEPEND_DECLAR.SG.011 1 LINE 79 1 PAGE UM DWB JULY 03, 1981 17:17:27 5.0T6 31 0 GOM EQUIVALENT OF (659/10). 0 Referenced by comments of: 659/3 00659/012A GOM CON TAB DECLAR SF G DWB:GOM.CONTAB 5.0T2 1010 GOM.CON_TAB_DECLAR.SF.012 1 LINE 71 1 PAGE UM DWB JULY 03, 1981 17:17:28 5.0T6 32 0 "$CONTINUE WITH"ED BY THOSE MODULES DEALING WITH THE CONSTANT TABLE. CONTAINS ALL DEFINITIONS FOR CONSTANT TABLE. 0 Referenced by comments of: 659/1, 659/13 1 MON AUG 05/96 18:37:45 Page 425 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/013A GOM CON TAB DECLAR SG G DWB:GOM.CONTABG 5.0T2 1011 GOM.CON_TAB_DECLAR.SG.013 1 LINE 71 1 PAGE UM DWB JULY 03, 1981 17:17:29 5.0T6 33 0 GOM EQUIVALENT OF (659/12). 0 Referenced by comments of: 659/3 00659/014A GOM TRIPLES TABLE SF G DWB:GOM.MATRIX 5.0T2 1012 GOM.TRIPLES_TABLE.SF.014 1 LINE 38 1 PAGE UM DWB JULY 03, 1981 17:17:30 5.0T6 34 0 "$CONTINUE WITH"ED BY THOSE MODULES DEALING WITH THE TRIPLE TABLE. CONTAINS ALL DEFINITIONS FOR TRIPLE TABLE. 0 Referenced by comments of: 659/1 00659/015 GOM SYM TAB DECLAR SF G DWB:GOM.SYMTAB 5.0T2 1013 GOM.SYM_TAB_DECLAR.SF.015 1 LINE 69 1 PAGE UM DWB JULY 03, 1981 17:17:31 5.0T6 35 0 "$CONTINUE WITH"ED BY ALL MODULES HANDLING THE SYMBOL TABLE. CONTAINS ALL DEFINITIONS FOR SYMBOL TABLE. 0 Referenced by comments of: 659/1 00659/016A GOM SYM TAB OPER SA G DWB:GOM.SYMOPG(1,999) 5.0T2 1014 GOM.SYM_TAB_OPER.SA.016 1 LINE 70 4 PAGE UM DWB JULY 03, 1981 17:17:31 5.0T6 36 0 BUILT-IN OPERATORS FOR GOM VERSION OF THE SYMBOL TABLE ROUTINES IN (659/3). THIS DEFINES DATA IN THE COMMON SECTION DECOMP IN (659/8) AND (659/9). 00659/017A GOM SYM TAB OPER OC G DWB:GOM.SYMOPG(1000) 5.0T2 1015 GOM.SYM_TAB_OPER.OC.017 1 LINE 80 13 PAGE UM DWB JULY 03, 1981 17:17:32 5.0T6 37 00659/018A GOM DATA INIT RTN SA G DWB:GOM.DIN(1,999) 5.0T2 1016 GOM.DATA_INIT_RTN.SA.018 1 LINE 63 2 PAGE UM DWB JULY 03, 1981 17:17:34 5.0T6 38 0 THE SOURCE FOR THE DATA-INITIALIZATION SUBROUTINE (ENTRY POINT GOMDIN#) USED IN REENTRANT AND RECURSIVE ROUTINES. THIS USED TO BE GENERATED AS PART OF EVERY REENTRANT OR RECURSIVE MODULE; IT IS NOW A SEPARATE PIECE, TO CUT THE SIZE DOWN IN CASES WHERE THERE ARE MANY MODULES, E.G. $MESSAGESYSTEM (798). 00659/019A GOM DATA INIT RTN OC G # (PART OF *LIBRARY) 4.3T1 686 GOM.DATA_INIT_RTN.OC.019 1 LINE 80 1 PAGE UM DWB APR. 05, 1980 19:35:43 4.3T3 144 0 Object part of *LIBRARY (524/1) 1 MON AUG 05/96 18:37:45 Page 426 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/020A GOM COPY SECT CVT SS G DWB:GOM.CONVERT 5.0T2 1017 GOM.COPY_SECT_CVT.SS.020 1 LINE 70 1 PAGE UM DWB JULY 03, 1981 17:17:35 5.0T6 39 0 SNOBOL PROGRAM TO CONVERT THE FORTRAN COPY SECTIONS (E.G. GOM.COMMON (659/8)) INTO THE EQUIVALENT GOM COPY SECTIONS (E.G. GOM.COMMONG (659/9)). 00659/021 GOM NEWS FILE P # DWB:GOMNEWS 4.3T1 687 GOM.NEWS_FILE.P.021 1 LINE 78 22 PAGE UM DWB APR. 05, 1980 19:35:47 4.3T3 145 0 CONTAINS DESCRIPTIONS OF RECENT ADDITIONS TO THE LANGUAGE. ************************************************************************* D5.0 comments: All additions have been incorporated into the D5.0 version of the GOM User's Manual (659/22), so this subcomponent is not being distributed this time. ************************************************************************* 00659/022A GOM USER'S MANUAL WF S1551 MENDAL FSNAME=GOM.MANUAL 1 5.0T2 1018 GOM.USER'S_MANUAL.WF.022 1 LINE 99 59 PAGE UM DWB JUNE 17, 1981 16:11:43 5.0T6 40 0 A USER'S MANUAL FOR GOM CONSISTING MOSTLY OF THE OLD 7090 MAD MANUAL CHAPTER II WITH DELETIONS, ADDITIONS, AND REVISIONS FOR GOM. ************************************************************************* D5.0 version: Completely revised and updated for D5.0. ************************************************************************* 0 Referenced by comments of: 659/21 00659/023 GOM DOCUMENTATION WF DWB:GOM.PROGWRUP 5.0T2 1019 GOM.DOCUMENTATION.WF.023 1 LINE 108 4 PAGE UM DWB JULY 03, 1981 17:18:05 5.0T6 41 0 WRITEUP DESCRIBING THE STRUCTURE OF AN OBJECT MODULE PRODUCED BY GOM. 00659/024 GOM DOCUMENTATION WF DWB:GOM.LISTWRUP 5.0T2 1020 GOM.DOCUMENTATION.WF.024 1 LINE 120 6 PAGE UM DWB JULY 03, 1981 17:18:06 5.0T6 42 0 WRITEUP DESCRIBING THE INTERNALS OF THE COMPILER AND HOW TO READ THE COMPILER LISTINGS. 0 Referenced by comments of: 659/25 1 MON AUG 05/96 18:37:45 Page 427 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/025 GOM DOCUMENTATION SS G DWB:GOM.PEEL 5.0T2 1021 GOM.DOCUMENTATION.SS.025 1 LINE 74 1 PAGE UM DWB JULY 03, 1981 17:18:06 5.0T6 43 0 SNOBOL PROGRAM TO READ THROUGH THE FORTRAN SOURCE (659/1) AND PRODUCE THE LISTS OF MODULES AND WHAT THEY COPY THAT IS TO BE ATTACHED TO THE END OF THE GOM.LISTWRUP WRITEUP (659/24). 00659/026 GOM DOCUMENTATION P DWB:GOM.COM.DOC 5.0T2 1022 GOM.DOCUMENTATION.P.026 1 LINE 70 6 PAGE UM DWB JULY 03, 1981 17:18:07 5.0T6 44 0 CONTAINS EXPLANATION OF EACH SYMBOL IN THE GOM COMMON SECTIONS. 00659/027A GOM READ DATA SUBR SA G DWB:GOM.RDATA(1,999) 5.0T2 1023 GOM.READ_DATA_SUBR.SA.027 1 LINE 74 8 PAGE UM DWB JULY 03, 1981 17:18:09 5.0T6 45 DWB:GOM.RDATA 0 SUBROUTINE CALLED BY "READ DATA" AND "READ AND PRINT DATA" STATEMENTS. 0 Referenced by comments of: 659/36 00659/028A GOM READ DATA SUBR OC G # (PART OF *LIBRARY) 4.3AT1 367 GOM.READ_DATA_SUBR.OC.028 1 LINE 80 4 PAGE UM DWB OCT. 12, 1980 16:26:53 4.3AT2 30 0 Object part of *LIBRARY (524/1) 00659/029A GOM PRINT RES SUBR SA G DWB:GOM.PRSLT(1,999) 5.0T2 1024 GOM.PRINT_RES_SUBR.SA.029 1 LINE 70 7 PAGE UM DWB JULY 03, 1981 17:18:11 5.0T6 46 DWB:GOM.PRSLT 0 SUBROUTINE CALLED BY "PRINT RESULTS", "PRINT BCD RESULTS", AND "PRINT HEX RESULTS" STATEMENTS. 0 Referenced by comments of: 659/35 00659/030A GOM PRINT RES SUBR OC G # (PART OF *LIBRARY) 4.3AT1 369 GOM.PRINT_RES_SUBR.OC.030 1 LINE 80 3 PAGE UM DWB OCT. 12, 1980 16:26:56 4.3AT2 32 0 Object part of *LIBRARY (524/1) 00659/031C GOM ADAPTOR SUBR SA G DWB:GOM.ADPT 5.0T2 1025 GOM.ADAPTOR_SUBR.SA.031 1 LINE 81 2 PAGE UM DWB JULY 03, 1981 17:18:13 5.0T6 47 0 An adaptor routine used with "LINKAGE=CLSMTS" routines to convert to the Coding Conventions environment. 00659/032C GOM ADAPTOR SUBR OC G # (PART OF *LIBRARY) UM DWB 0 Object part of *LIBRARY (524/1) 1 MON AUG 05/96 18:37:45 Page 428 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/033 GOM TEST PROGRAMS C G DWB:GOM.EXAMP 5.0T2 1026 GOM.TEST_PROGRAMS.C.033 1 LINE 43 1 PAGE UM DWB JULY 03, 1981 17:18:14 5.0T6 48 0 COMMANDS FOR A BATCH JOB WHICH COMPILES AND EXECUTES THREE TEST PROGRAMS (659/34). 0 Referenced by comments of: 659/34 00659/034 GOM TEST PROGRAMS SG G DWB:TESTMAD 5.0T2 1027 GOM.TEST_PROGRAMS.SG.034 1 LINE 85 6 PAGE UM DWB JULY 03, 1981 17:18:15 5.0T6 49 0 A MOTLEY ASSORTMENT OF OLD-MAD PROGRAMS, SOME OF WHICH HAVE BEEN MODIFIED FOR GOM AND ARE USED BY GOM.EXAMP (659/33). 0 Referenced by comments of: 659/33 00659/035 GOM TEST PROGRAMS SA G DWB:GOM.PRSLT.T(1,999) 5.0T2 1028 GOM.TEST_PROGRAMS.SA.035 1 LINE 50 1 PAGE UM DWB JULY 03, 1981 17:18:16 5.0T6 50 0 TEST PROGRAM FOR PRINT RESULTS SUBROUTINE (659/29). 00659/036 GOM TEST PROGRAMS SG G DWB:GOM.RDATA.T 5.0T2 1029 GOM.TEST_PROGRAMS.SG.036 1 LINE 37 1 PAGE UM DWB JULY 03, 1981 17:18:17 5.0T6 51 0 TEST PROGRAM FOR READ DATA SUBROUTINE (659/27). 00659/037 GOM TEST PROGRAMS SG G DWB:GOM.TEST.SDS 5.0T2 1030 GOM.TEST_PROGRAMS.SG.037 1 LINE 32 1 PAGE UM DWB JULY 03, 1981 17:18:18 5.0T6 52 0 RUN GOM WITH PAR=TEST ON THIS SOURCE TO CHECK SYM CARD GENERATION. CURRENT PECULARITIES OF GOM SYM CARDS ARE: 1. THEY ARE PL3 CARDS, 2. SINCE SDS NEVER HEARD OF STARTING ARRAYS AT SUBSCRIPT 0 INSTEAD OF 1, ARRAY REFERENCES ARE OFF BY ONE. THESE WILL BE FIXED SOMETIME WHEN A GOM CARD IS DEFINED AND SDS SUPPORTS IT. 00659/038 GOM TEST PROGRAMS SG G DWB:GOM.SIMPLE 5.0T2 1031 GOM.TEST_PROGRAMS.SG.038 1 LINE 42 1 PAGE UM DWB JULY 03, 1981 17:18:19 5.0T6 53 0 THIS COMPONENT AND THOSE WHICH FOLLOW ARE MISCELLANEOUS TEST INPUT FOR THE COMPILER. THEY ARE (OBVIOUSLY) NOT TO BE EXECUTED AFTER COMPILATION. 00659/039 GOM TEST PROGRAMS SG G DWB:GOM.TEST.FN 5.0T2 1032 GOM.TEST_PROGRAMS.SG.039 1 LINE 50 1 PAGE UM DWB JULY 03, 1981 17:18:20 5.0T6 54 0 FIFTEEN TEST PROGRAMS STARTING AT LINES 1, 1000, 2000, ... TO TEST EXTERNAL AND INTERNAL FUNCTIONS. 1 MON AUG 05/96 18:37:45 Page 429 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/040 GOM TEST PROGRAMS SG G DWB:GOM.TEST 5.0T2 1033 GOM.TEST_PROGRAMS.SG.040 1 LINE 53 1 PAGE UM DWB JULY 03, 1981 17:18:21 5.0T6 55 00659/041 GOM TEST PROGRAMS SG G DWB:GOM.TEST2 5.0T2 1034 GOM.TEST_PROGRAMS.SG.041 1 LINE 41 1 PAGE UM DWB JULY 03, 1981 17:18:22 5.0T6 56 00659/042 GOM TEST PROGRAMS SG G DWB:GOM.TEST3 5.0T2 1035 GOM.TEST_PROGRAMS.SG.042 1 LINE 33 1 PAGE UM DWB JULY 03, 1981 17:18:23 5.0T6 57 00659/043 GOM TEST PROGRAMS SG G DWB:GOM.TEST4 5.0T2 1036 GOM.TEST_PROGRAMS.SG.043 1 LINE 45 1 PAGE UM DWB JULY 03, 1981 17:18:23 5.0T6 58 0 AN EARLY VERSION OF A PROGRAM WHICH IS USEFUL FOR TESTING ARRAYS OF STATEMENT LABEL CONSTANTS. 00659/044 GOM TEST PROGRAMS SG G DWB:GOM.TEST5 5.0T2 1037 GOM.TEST_PROGRAMS.SG.044 1 LINE 34 1 PAGE UM DWB JULY 03, 1981 17:18:24 5.0T6 59 0 TEST PROGRAM WHICH TESTS VECTOR VALUES AND SHIFTS. 00659/045 GOM TEST PROGRAMS SG G DWB:GOM.TEST6 5.0T2 1038 GOM.TEST_PROGRAMS.SG.045 1 LINE 30 1 PAGE UM DWB JULY 03, 1981 17:18:25 5.0T6 60 0 TEST PROGRAM WHICH TESTS ARRAY ACCESSING. 00659/046A GOM TEST PROGRAMS SG G DWB:GOM.TEST7 5.0T2 1039 GOM.TEST_PROGRAMS.SG.046 1 LINE 41 1 PAGE UM DWB JULY 03, 1981 17:18:26 5.0T6 61 0 EIGHT TEST SECTIONS AT LINES 1, 100, 200, ... TO TEST PROGRAM COMMON. 00659/047 GOM TEST PROGRAMS SG G DWB:GOM.TEST8 5.0T2 1040 GOM.TEST_PROGRAMS.SG.047 1 LINE 30 1 PAGE UM DWB JULY 03, 1981 17:18:27 5.0T6 62 0 TEST PROGRAM WHICH TESTS EXPONENTIATION. 00659/048 GOM TEST PROGRAMS SG G DWB:GOM.TEST9 5.0T2 1041 GOM.TEST_PROGRAMS.SG.048 1 LINE 51 1 PAGE UM DWB JULY 03, 1981 17:18:28 5.0T6 63 0 TEST PROGRAM WHICH TESTS THE .LOC. AND .IND. OPERATORS. 00659/049 GOM TEST PROGRAMS SG G DWB:GOM.TEST10 5.0T2 1042 GOM.TEST_PROGRAMS.SG.049 1 LINE 24 1 PAGE UM DWB JULY 03, 1981 17:18:29 5.0T6 64 0 TEST PROGRAM WHICH TESTS SHORT INTEGER AND BYTE INTEGER DATA TYPES. 1 MON AUG 05/96 18:37:45 Page 430 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 659/52 00659/050 GOM TEST PROGRAMS SG G DWB:GOM.TEST11 5.0T2 1043 GOM.TEST_PROGRAMS.SG.050 1 LINE 44 1 PAGE UM DWB JULY 03, 1981 17:18:30 5.0T6 65 0 TEST PROGRAM WHICH TESTS CHARACTER SUBSTRING OPERATION. 00659/051 GOM TEST PROGRAMS SG G DWB:GOM.TEST12 5.0T2 1044 GOM.TEST_PROGRAMS.SG.051 1 LINE 24 1 PAGE UM DWB JULY 03, 1981 17:18:30 5.0T6 66 0 TEST PROGRAM WHICH TESTS THE "@" CONSTANT QUALIFIER. 00659/052 GOM TEST PROGRAMS SG G DWB:GOM.TEST13 5.0T2 1045 GOM.TEST_PROGRAMS.SG.052 1 LINE 40 1 PAGE UM DWB JULY 03, 1981 17:18:31 5.0T6 67 0 TEST PROGRAM WHICH TESTS THE ADDRESSING OF NEW DATA TYPES WHEN THEY ARE IN PROGRAM COMMON. SAME AS (659/49) EXCEPT ALL VARIABLES ARE IN PROGRAM COMMON. 00659/053 GOM TEST PROGRAMS SG G DWB:GOM.TEST14 5.0T2 1046 GOM.TEST_PROGRAMS.SG.053 1 LINE 46 1 PAGE UM DWB JULY 03, 1981 17:18:32 5.0T6 68 0 TEST PROGRAM WHICH TESTS THE LONG INTEGER DATA TYPE AND THE .AS. OPERATOR. 00659/054 GOM TEST PROGRAMS SG G DWB:GOM.TEST15 5.0T2 1047 GOM.TEST_PROGRAMS.SG.054 1 LINE 62 1 PAGE UM DWB JULY 03, 1981 17:18:33 5.0T6 69 0 EXTERNAL FUNCTION TO DO HEX OUTPUT IN 6 STATEMENTS. IT ILLUSTRATES THE .RS. AND .A. OPERATORS, THE @X CONSTANT MODIFIER, AND SUBSCRIPTION OF A CONSTANT. 00659/055 GOM TEST PROGRAMS SG G DWB:GOM.TEST16 5.0T2 1048 GOM.TEST_PROGRAMS.SG.055 1 LINE 46 1 PAGE UM DWB JULY 03, 1981 17:18:34 5.0T6 70 0 TEST PROGRAM WHICH TESTS "PRINT RESULTS" FOR THE SHORT INTEGER, BYTE INTEGER, CHARACTER, AND LONG INTEGER DATA TYPES. 00659/056 GOM TEST PROGRAMS SG G DWB:GOM.TEST17 5.0T2 1049 GOM.TEST_PROGRAMS.SG.056 1 LINE 45 1 PAGE UM DWB JULY 03, 1981 17:18:35 5.0T6 71 0 TEST PROGRAM WHICH TESTS "READ DATA" FOR VARIED DATA TYPES. 00659/057 GOM TEST PROGRAMS SG G DWB:GOM.TEST18 5.0T2 1050 GOM.TEST_PROGRAMS.SG.057 1 LINE 52 1 PAGE UM DWB JULY 03, 1981 17:18:36 5.0T6 72 0 SMALL TEST PROGRAM WHICH CHECKS IF LOOP-END TERMINATION IS CORRECT. 1 MON AUG 05/96 18:37:45 Page 431 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/058 GOM TEST PROGRAMS SG G DWB:GOM.TEST19 5.0T2 1051 GOM.TEST_PROGRAMS.SG.058 1 LINE 53 1 PAGE UM DWB JULY 03, 1981 17:18:37 5.0T6 73 0 TEST PROGRAM WHICH CHECKS THE R-TYPE CALLING SEQUENCE GENERATION. 00659/059 GOM TEST PROGRAMS SG G DWB:GOM.TEST20 5.0T2 1052 GOM.TEST_PROGRAMS.SG.059 1 LINE 54 1 PAGE UM DWB JULY 03, 1981 17:18:38 5.0T6 74 0 TEST PROGRAM WHICH TESTS DYNAMIC RECORDS, AND ALLOCATE, RELEASE, USING POINTER, AND THE .SIZE. OPERATOR. 00659/060 GOM TEST PROGRAMS SG G DWB:GOM.TEST21 5.0T2 1053 GOM.TEST_PROGRAMS.SG.060 1 LINE 56 1 PAGE UM DWB JULY 03, 1981 17:18:38 5.0T6 75 0 TEST PROGRAM WHICH TESTS RETURN CODE EXTRACTION AND TESTING FOR FORMATTED I/O STATEMENTS. 00659/061 GOM TEST PROGRAMS SG G DWB:GOM.TEST22 5.0T2 1054 GOM.TEST_PROGRAMS.SG.061 1 LINE 41 1 PAGE UM DWB JULY 03, 1981 17:18:39 5.0T6 76 0 TEST PROGRAM WHICH TESTS ALTERNATE STRING DELIMITERS. 00659/062 GOM TEST PROGRAMS SG G DWB:GOM.TEST23 5.0T2 1055 GOM.TEST_PROGRAMS.SG.062 1 LINE 33 1 PAGE UM DWB JULY 03, 1981 17:18:40 5.0T6 77 0 TEST PROGRAM WHICH TESTS THE "CONSTANT" STATEMENT. 00659/063 GOM TEST PROGRAMS SG G DWB:GOM.TEST24 5.0T2 1056 GOM.TEST_PROGRAMS.SG.063 1 LINE 35 1 PAGE UM DWB JULY 03, 1981 17:18:41 5.0T6 78 0 TEST PROGRAM WHICH TESTS PART 1 ERROR COMMENTS. (ALMOST EVERY STATEMENT SHOULD GET AN ERROR COMMENT FROM THE FIRST PHASE OF THE COMPILER.) 00659/064 GOM TEST PROGRAMS SG G DWB:GOM.TEST25 5.0T2 1057 GOM.TEST_PROGRAMS.SG.064 1 LINE 31 1 PAGE UM DWB JULY 03, 1981 17:18:42 5.0T6 79 0 TEST PROGRAM WHICH CHECKS SCALAR AND ARRAY STATEMENT LABEL CONSTANTS AS WELL AS SCALAR AND ARRAY STATEMENT LABEL VARIABLES. 00659/065 GOM TEST PROGRAMS SG G DWB:GOM.TEST26 5.0T2 1058 GOM.TEST_PROGRAMS.SG.065 1 LINE 57 1 PAGE UM DWB JULY 03, 1981 17:18:42 5.0T6 80 0 TEST PROGRAM TO SEE IF ILLEGAL UNARY "/" OPERATOR IS CAUGHT. 1 MON AUG 05/96 18:37:45 Page 432 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/066 GOM TEST PROGRAMS SG G DWB:GOM.TEST27 5.0T2 1059 GOM.TEST_PROGRAMS.SG.066 1 LINE 26 1 PAGE UM DWB JULY 03, 1981 17:18:43 5.0T6 81 0 PROGRAM TO TEST THAT CONSTANTS ARE ALLOCATED CORRECTLY IN THE CASE THAT THE FIRST OCCURRENCE OF THE CONSTANT "1" APPEARS AS THE FIRST CONSTANT FOLLOWING A VECTOR VALUES STATEMENT WHICH IS INITIALIZING AN ARRAY WHICH HAS ALREADY BEEN PARTIALLY INITIALIZED BY A PREVIOUS VECTOR VALUES STATEMENT. WOW! 00659/067 GOM TEST PROGRAMS SG G DWB:GOM.TEST28 5.0T2 1060 GOM.TEST_PROGRAMS.SG.067 1 LINE 70 1 PAGE UM DWB JULY 03, 1981 17:18:44 5.0T6 82 0 PROGRAM TO TEST THAT TEMPORARIES ARE PROPERLY USED WHEN IT RUNS OUT OF REGISTERS. 00659/068 GOM TEST PROGRAMS SG G DWB:GOM.TEST29 5.0T2 1061 GOM.TEST_PROGRAMS.SG.068 1 LINE 34 1 PAGE UM DWB JULY 03, 1981 17:18:46 5.0T6 83 0 PROGRAM TO TEST PARSING OF HEX CONSTANTS AND PROPER INSERTION OF SAME AND CHARACTER CONSTANTS IN VECTOR VALUES STATEMENTS. 00659/069 GOM TEST PROGRAMS SG G DWB:GOM.TEST30 5.0T2 1062 GOM.TEST_PROGRAMS.SG.069 1 LINE 67 1 PAGE UM DWB JULY 03, 1981 17:18:47 5.0T6 84 0 PROGRAM TO TEST THE INITIALIZATION OF ARRAYS WITH NAMES OF INTERNAL AND EXTERNAL FUNCTIONS, STATEMENT LABELS, AND MIXTURES OF SAME TOGETHER WITH INTEGERS. 00659/070 GOM TEST PROGRAMS SG G DWB:GOM.TEST31 5.0T2 1063 GOM.TEST_PROGRAMS.SG.070 1 LINE 62 1 PAGE UM DWB JULY 03, 1981 17:18:48 5.0T6 85 0 PROGRAM TO TEST TO SEE THAT TEMPORARIES USED BY AN INTERNAL FUNCTION ARE NOT THE SAME TEMPORARIES USED TO SAVE COMPUTED PARAMETERS ON THE CALL TO THAT FUNCTION. 00659/071A GOM TEST PROGRAMS SG G DWB:GOM.TEST32 5.0T2 1064 GOM.TEST_PROGRAMS.SG.071 1 LINE 58 1 PAGE UM DWB JULY 03, 1981 17:18:49 5.0T6 86 0 TEST OF FUNCTION CALLS WITH AND WITHOUT 1. ARGUMENT LISTS, 2. RETURN CODE EXTRACTION, AND 3. WHETHER IN EXPRESSION OR STAND-ALONE. 00659/072 GOM TEST PROGRAMS SG G DWB:GOM.TEST33 5.0T2 1065 GOM.TEST_PROGRAMS.SG.072 1 LINE 66 1 PAGE UM DWB JULY 03, 1981 17:18:50 5.0T6 87 0 TEST FOR FOUR MISCELLANEOUS PROBLEMS. 1 MON AUG 05/96 18:37:45 Page 433 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/073 GOM TEST PROGRAMS SG G DWB:GOM.TEST34 5.0T2 1066 GOM.TEST_PROGRAMS.SG.073 1 LINE 140 1 PAGE UM DWB JULY 03, 1981 17:18:51 5.0T6 88 0 TEST FOR LONG INPUT LINES IN THE SOURCE (FOR WRAPAROUND ON THE LISTING). 00659/074 GOM TEST PROGRAMS SG G DWB:GOM.TEST35 5.0T2 1067 GOM.TEST_PROGRAMS.SG.074 1 LINE 74 1 PAGE UM DWB JULY 03, 1981 17:18:52 5.0T6 89 0 TEST FOR PROPER CODE IN THE CASE THAT A USING IS IN EFFECT, AND THE POINTER IS A DUMMY VARIABLE, IS IN COMMON, OR IS IN ANOTHER DYNAMIC RECORD WHOSE POINTER MAY BE IN YET ANOTHER DYNAMIC RECORD (OR IN COMMON, OR A DUMMY VARIABLE)... 00659/075 GOM TEST PROGRAMS SG G DWB:GOM.TEST36 5.0T2 1068 GOM.TEST_PROGRAMS.SG.075 1 LINE 60 1 PAGE UM DWB JULY 03, 1981 17:18:53 5.0T6 90 0 TEST SIMPLE I/O AND FORMATTED I/O WHEN I/O UNIT OR FDUB IS SPECIFIED. 00659/076 GOM TEST PROGRAMS SG G DWB:GOM.TEST37 5.0T2 1069 GOM.TEST_PROGRAMS.SG.076 1 LINE 61 1 PAGE UM DWB JULY 03, 1981 17:18:54 5.0T6 91 0 TESTS FORMATTED I/O WHEN I/O UNIT OR FDUB IS SPECIFIED AND THERE IS NO SYMBOL TABLE. 00659/077 GOM TEST PROGRAMS SG G DWB:GOM.TEST38 5.0T2 1070 GOM.TEST_PROGRAMS.SG.077 1 LINE 40 1 PAGE UM DWB JULY 03, 1981 17:18:55 5.0T6 92 0 TESTS FORMAT VARIABLE STATEMENT AND USE OF FORMAT VARIABLES. 00659/078 GOM TEST PROGRAMS SG G DWB:GOM.TEST39 5.0T2 1071 GOM.TEST_PROGRAMS.SG.078 1 LINE 57 1 PAGE UM DWB JULY 03, 1981 17:18:56 5.0T6 93 0 TESTS LONG INTEGER EXPRESSIONS IN COMPARATIVES. 00659/079 GOM TEST PROGRAMS SG G DWB:GOM.TEST40 5.0T2 1072 GOM.TEST_PROGRAMS.SG.079 1 LINE 80 1 PAGE UM DWB JULY 03, 1981 17:18:57 5.0T6 94 0 PROGRAM TO TEST SUPERVISOR CALL STATEMENT. 00659/080 GOM TEST PROGRAMS SG G DWB:GOM.TEST41 5.0T2 1073 GOM.TEST_PROGRAMS.SG.080 1 LINE 67 2 PAGE UM DWB JULY 03, 1981 17:18:58 5.0T6 95 0 THIS IS A PROGRAM WHICH IS REPEATED 15 TIMES TO TEST FOR VARIATIONS OF ENTRY SEQUENCES. VARIATIONS BEGIN AT LINE NUMBERS 1000 TO 15000. SEE THE COMMENTS IN LINE 1. HAS SEVERAL $CONTINUE WITH COPY:CLSTV.SG (535/3) RECORDS. 0 Referenced by comments of: 659/83 1 MON AUG 05/96 18:37:45 Page 434 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/081 GOM TEST PROGRAMS SG G DWB:GOM.TEST42 5.0T2 1074 GOM.TEST_PROGRAMS.SG.081 1 LINE 39 1 PAGE UM DWB JULY 03, 1981 17:18:59 5.0T6 96 0 PROGRAM TO TEST R-TYPE SUBROUTINE ENTRY. 00659/082 GOM TEST PROGRAMS SG G DWB:GOM.TEST43 5.0T2 1075 GOM.TEST_PROGRAMS.SG.082 1 LINE 38 1 PAGE UM DWB JULY 03, 1981 17:19:00 5.0T6 97 0 PROGRAM TO TEST FUNCTION ENTRIES WITH VARIABLE NUMBER OF ARGUMENTS. 00659/083 GOM TEST PROGRAMS SG G DWB:GOM.TEST44 5.0T2 1076 GOM.TEST_PROGRAMS.SG.083 1 LINE 65 2 PAGE UM DWB JULY 03, 1981 17:19:01 5.0T6 98 0 THIS IS THE SAME PROGRAM AS TEST 41 (659/80), BUT EACH OF THE VERSIONS HAS GLOBAL AREAS TO TEST AND THE LINKAGE=CLSMTS OPTION HAS BEEN ADDED. HAS SEVERAL $CONTINUE WITH COPY:CLSTV.SG (535/3) RECORDS. 00659/084 GOM TEST PROGRAMS SG G DWB:GOM.TEST45 5.0T2 1077 GOM.TEST_PROGRAMS.SG.084 1 LINE 44 1 PAGE UM DWB JULY 03, 1981 17:19:02 5.0T6 99 0 TEST OF SPECIFYING SUBSTRING AS "BEG|LEN" AS WELL AS "BEG...END". 00659/085 GOM TEST PROGRAMS SG G DWB:GOM.TEST46 5.0T2 1078 GOM.TEST_PROGRAMS.SG.085 1 LINE 35 1 PAGE UM DWB JULY 03, 1981 17:19:03 5.0T6 100 0 PROGRAM TO TEST THE ITERATE STATEMENT. 00659/086 GOM TEST PROGRAMS SG G DWB:GOM.TEST47 5.0T2 1079 GOM.TEST_PROGRAMS.SG.086 1 LINE 56 1 PAGE UM DWB JULY 03, 1981 17:19:05 5.0T6 101 0 PROGRAM AND RECURSIVE SUBROUTINE TO TEST STACKSIZE=NNNP OPTION ("RXENTER") AND LINKAGE=MTS OPTIONS, RESPECTIVELY. COMPUTES ACKERMAN'S FUNCTION. 00659/087A GOM TEST PROGRAMS SG G DWB:GOM.TEST48 5.0T2 1080 GOM.TEST_PROGRAMS.SG.087 1 LINE 56 1 PAGE UM DWB JULY 03, 1981 17:19:06 5.0T6 102 0 PROGRAM TO TEST MULTIPLE-DIMENSIONING CODE. THIS SHOULD NOT BE RUN. 00659/088 GOM TEST PROGRAMS SG G DWB:GOM.TEST49 5.0T2 1081 GOM.TEST_PROGRAMS.SG.088 1 LINE 58 1 PAGE UM DWB JULY 03, 1981 17:19:06 5.0T6 103 0 PROGRAM TO TEST MULTIPLE SUBSCRIPTION (SHOULD BE RUN). NUMBERS THAT ARE PRINTED ARE PRODUCED BY ACCESSING THE ARRAYS IN TWO MANNERS (ONCE AS A WHOLE STORAGE BLOCK; ONCE BY SUBSCRIPT FOR EACH ELEMENT) AND SHOULD BE THE SAME IF SUBSCRIPT CALCULATIONS ARE CORRECT. 1 MON AUG 05/96 18:37:45 Page 435 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/089 GOM TEST PROGRAMS SG G DWB:GOM.TEST50 5.0T2 1082 GOM.TEST_PROGRAMS.SG.089 1 LINE 48 1 PAGE UM DWB JULY 03, 1981 17:19:07 5.0T6 104 0 PROGRAM TO TEST INCLUDE STATEMENT AND THE IF, ELSEIF, ELSE, ENDIF, LOOP, AND ENDLOOP ALTERNATE FORMS. 00659/090 GOM TEST PROGRAMS SG G DWB:GOM.TEST51 5.0T2 1083 GOM.TEST_PROGRAMS.SG.090 1 LINE 60 1 PAGE UM DWB JULY 03, 1981 17:19:08 5.0T6 105 0 PROGRAM TO TEST LONG INTEGER CONSTANTS AND MODIFIERS. 00659/091 GOM TEST PROGRAMS SG G DWB:GOM.TEST52 5.0T2 1084 GOM.TEST_PROGRAMS.SG.091 1 LINE 56 1 PAGE UM DWB JULY 03, 1981 17:19:08 5.0T6 106 0 PROGRAM TO TEST PUTTING ITEMS IN VECTOR VALUES STATEMENT FOR PROPER LENGTHS AT PROPER DISPLACEMENTS. 00659/092 GOM TEST PROGRAMS SG G DWB:GOM.TEST53 5.0T2 1085 GOM.TEST_PROGRAMS.SG.092 1 LINE 80 1 PAGE UM DWB JULY 03, 1981 17:19:09 5.0T6 107 0 COMMANDS AND SOURCE OF GOM DRIVER PROGRAM, GOM SUBROUTINE AND PLUS SUBROUTINE TO TEST LINKAGES. BOTH SUBPROGRAMS PRINT "HELLO THERE". 00659/093 GOM TEST PROGRAMS SG G DWB:GOM.TEST54 5.0T2 1086 GOM.TEST_PROGRAMS.SG.093 1 LINE 53 1 PAGE UM DWB JULY 03, 1981 17:19:10 5.0T6 108 0 PROGRAM TO TEST LONG (UP TO 24 CHARACTER) VARIABLE NAMES TO SEE IF THEY COME OUT RIGHT IN THE OBJECT AND MAP PRINTOUT. 00659/094 GOM TEST PROGRAMS SG G DWB:GOM.TEST55 5.0T2 1087 GOM.TEST_PROGRAMS.SG.094 1 LINE 43 1 PAGE UM DWB JULY 03, 1981 17:19:11 5.0T6 109 0 PROGRAM TO TEST PASSING FUNCTION NAME CONSTANT TO SUBROUTINE WHICH WILL THEN USE IT IN A CALL. 00659/095 GOM TEST PROGRAMS SG G DWB:GOM.TEST56 5.0T2 1088 GOM.TEST_PROGRAMS.SG.095 1 LINE 72 1 PAGE UM DWB JULY 03, 1981 17:19:12 5.0T6 110 0 PROGRAM TO TEST DYNAMIC RECORDS THAT HAVE "USING POINTER"S THAT SPECIFY THE BASE (ZERO SUBSCRIPT) OF AN ARRAY. (PREVIOUS RESTRICTION WAS SCALARS ONLY.) 00659/096 GOM TEST PROGRAMS SG G DWB:GOM.TEST57 5.0T2 1089 GOM.TEST_PROGRAMS.SG.096 1 LINE 36 1 PAGE UM DWB JULY 03, 1981 17:19:13 5.0T6 111 0 PROGRAM TO CHECK PASSING OF ARGUMENTS TO INTERNAL FUNCTIONS BEING REENTRANT FOR REENTRANT OR RECURSIVE EXTERNAL FUNCTIONS. 1 MON AUG 05/96 18:37:45 Page 436 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00659/097 GOM TEST PROGRAMS SG G DWB:GOM.TEST58 5.0T2 1090 GOM.TEST_PROGRAMS.SG.097 1 LINE 80 7 PAGE UM DWB JULY 03, 1981 17:19:14 5.0T6 112 0 PROGRAM TO TEST HAVING MORE THAN ONE PAGE OF CONSTANTS. 00659/098 GOM TEST PROGRAMS SG G DWB:GOM.TEST59 5.0T2 1091 GOM.TEST_PROGRAMS.SG.098 1 LINE 35 1 PAGE UM DWB JULY 03, 1981 17:19:15 5.0T6 113 0 PROGRAM TO TEST OPT=1. 00659/099 GOM TEST PROGRAMS SG G DWB:GOM.TEST60 5.0T2 1092 GOM.TEST_PROGRAMS.SG.099 1 LINE 59 1 PAGE UM DWB JULY 03, 1981 17:19:16 5.0T6 114 0 PROGRAM TO TEST .BIT., .SETBIT., AND .RESETBIT. OPERATORS. 00660/001 MCS-11 SUPERVISOR S G FEP:SUPER 5.0T2 1093 MCS-11.SUPERVISOR.S.001 1 LINE 84 54 PAGE UM EADIE JULY 03, 1981 17:19:17 5.0T6 115 0 THIS IS THE SUPERVISOR FOR THE MICHIGAN COMMUNICATIONS SYSTEMS (MCS) FOR THE UM PDP-11 DATA CONCENTRATOR FRONT END. THE MCS COMPONENTS SHOULD BE ASSEMBLED AND LINK-EDITED WITH *11ASR (515) AND *LINK11 (516). THE SUPERVISOR COPIES COMMON (660/6). 0 Referenced by comments of: 660/2, 660/3, 660/17 00660/002 MCS-11 DEVICES S G FEP:DEVICES 5.0T2 1094 MCS-11.DEVICES.S.002 1 LINE 85 137 PAGE UM EADIE JULY 03, 1981 17:19:22 5.0T6 116 0 THIS IS THE DEVICES CSECT OF MCS. IT CONTAINS DSR'S FOR ALL DEVICES IN THE SYSTEM. IT SHOULD BE ASSEMBLED AFTER THE SUPERVISOR (660/1). COPIES COMMON (660/6), SUPEREXTRN (660/7), TASKSEXTRN (660/8), AND CC.EBCDIC (660/9). 0 Referenced by comments of: 660/3, 660/17 00660/003 MCS-11 TASKS S G FEP:TASKS 5.0T2 1095 MCS-11.TASKS.S.003 1 LINE 174 133 PAGE UM EADIE JULY 03, 1981 17:19:32 5.0T6 117 0 THIS IS THE TASKS CSECT FOR MCS. IT CONTAINS THE TASKS FOR THE SYSTEM. IT SHOULD BE ASSEMBLED AFTER THE SUPERVISOR (660/1) AND DEVICES (660/2). COPIES COMMON (660/6), SUPEREXTRN (660/7), DEVICESEXTRN (660/10), AND CC.EBCDIC (660/9). 0 Referenced by comments of: 660/17 1 MON AUG 05/96 18:37:45 Page 437 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00660/004 MCS-11 TABLES S G FEP:TABLES 5.0T2 1096 MCS-11.TABLES.S.004 1 LINE 91 50 PAGE UM EADIE JULY 03, 1981 17:19:41 5.0T6 118 0 THIS IS THE TABLES CSECT FOR MCS. IT CONTAINS THE TRANSLATE TABLES FOR THE DSR'S IN THE SYSTEM. COPIES COMMON (660/6) AND CC.EBCDIC (660/9). 0 Referenced by comments of: 660/17 00660/005 MCS-11 STORAGE S G FEP:STORAGE 5.0T2 1097 MCS-11.STORAGE.S.005 1 LINE 74 1 PAGE UM EADIE JULY 03, 1981 17:19:45 5.0T6 119 0 THIS IS THE STORAGE CSECT FOR MCS. IT CONTAINS STORAGE DEFINITIONS FOR THE SYSTEM. 00660/006 MCS-11 COMMON S G FEP:COMMON 5.0T2 1098 MCS-11.COMMON.S.006 1 LINE 83 23 PAGE UM EADIE JULY 03, 1981 17:19:45 5.0T6 120 0 THIS IS THE COPY SECTION FOR MANY COMPONENTS OF MCS. IT, IN TURN, COPIES WHICHCONC (660/17) TO SET UP CONDITIONAL ASSEMBLY PARAMETERS FOR DATA CONCENTRATOR B OR C OR THE REMOTE DATA CONCENTRATOR. 0 Referenced by comments of: 660/1, 660/2, 660/3, 660/4, 660/17 00660/007 MCS-11 SUPEREXTRN S G FEP:SUPEREXTRN 5.0T2 1099 MCS-11.SUPEREXTRN.S.007 1 LINE 84 3 PAGE UM EADIE JULY 03, 1981 17:19:47 5.0T6 121 0 THIS IS COPIED BY SEVERAL CSECTS TO GET EXTERNAL SYMBOLS FOR THE SUPERVISOR. 0 Referenced by comments of: 660/2, 660/3 00660/008 MCS-11 TASKSEXTRN S G FEP:TASKSEXTRN 5.0T2 1100 MCS-11.TASKSEXTRN.S.008 1 LINE 82 1 PAGE UM EADIE JULY 03, 1981 17:19:48 5.0T6 122 0 THIS IS COPIED BY SOME CSECTS TO GET EXTERNAL SYMBOLS FOR TASKS. 0 Referenced by comments of: 660/2 00660/009 MCS-11 CC.EBCDIC S G FEP:CC.EBCDIC 5.0T2 1101 MCS-11.CC.EBCDIC.S.009 1 LINE 62 1 PAGE UM EADIE JULY 03, 1981 17:19:49 5.0T6 123 0 THIS IS COPIED BY SOME CSECTS TO GET EQU'S FOR EBCDIC CONTROL CHARACTERS. 0 Referenced by comments of: 660/2, 660/3, 660/4 00660/010 MCS-11 DEVICESEXTRN S G FEP:DEVICESEXTRN 5.0T2 1102 MCS-11.DEVICESEXTRN.S.010 1 LINE 82 3 PAGE UM EADIE JULY 03, 1981 17:19:50 5.0T6 124 0 THIS IS COPIED BY CSECTS TO GET EXTERNAL SYMBOLS FOR DEVICES. 1 MON AUG 05/96 18:37:45 Page 438 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 660/3 00660/011 MCS-11 CBJOB C FEP:CBJOB 5.0T2 1103 MCS-11.CBJOB.C.011 1 LINE 67 1 PAGE UM EADIE JULY 03, 1981 17:19:50 5.0T6 125 0 MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR B. ALSO AT LINE 1000 AND 1001, THERE ARE TWO EQUS FOR LENGTHS. WHEN ASSEMBLING COMPONENTS IN ORDER OF POSITION IN MEMORY, THIS ALLOWS LISTING ADDRESSES TO MATCH MEMORY ADDRESSES (I.E. NO RELOCATION NEEDED). 00660/012 MCS-11 CCJOB C FEP:CCJOB 5.0T2 1104 MCS-11.CCJOB.C.012 1 LINE 67 1 PAGE UM EADIE JULY 03, 1981 17:19:51 5.0T6 126 0 MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR C. ALSO AT LINE 1000 AND 1001, THERE ARE TWO EQUS FOR LENGTHS. WHEN ASSEMBLING COMPONENTS IN ORDER OF POSITION IN MEMORY, THIS ALLOWS LISTING ADDRESSES TO MATCH MEMORY ADDRESSES (I.E. NO RELOCATION NEEDED). 00660/013 MCS-11 CDJOB C FEP:CDJOB 5.0T2 1105 MCS-11.CDJOB.C.013 1 LINE 67 1 PAGE UM EADIE JULY 03, 1981 17:19:52 5.0T6 127 0 MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR D. ALSO AT LINE 1000 AND 1001, THERE ARE TWO EQUS FOR LENGTHS. WHEN ASSEMBLING COMPONENTS IN ORDER OF POSITION IN MEMORY, THIS ALLOWS LISTING ADDRESSES TO MATCH MEMORY ADDRESSES (I.E. NO RELOCATION NEEDED). 00660/014 MCS-11 LSIJOB C FEP:LSIJOB 5.0T2 1106 MCS-11.LSIJOB.C.014 1 LINE 71 1 PAGE UM EADIE JULY 03, 1981 17:19:52 5.0T6 128 0 MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR REMOTE DATA CONCENTRATOR. ALSO AT LINE 1000 AND 1001, THERE ARE TWO EQUS FOR LENGTHS. WHEN ASSEMBLING COMPONENTS IN ORDER OF POSITION IN MEMORY, THIS ALLOWS LISTING ADDRESSES TO MATCH MEMORY ADDRESSES (I.E. NO RELOCATION NEEDED). 00660/015 MCS-11 DEBUG/LOAD S G DIAG:HCOR.S 5.0T2 1107 MCS-11.DEBUG/LOAD.S.015 1 LINE 81 30 PAGE UM EADIE JULY 03, 1981 17:19:53 5.0T6 129 0 "HIGH CORE" SYSTEM USED IN FRONT END PROCESSOR FOR DEBUGGING AND LOADING. DESCRIPTION OF THE PROGRAM IS AT THE FRONT OF THE SOURCE. COPIES HCORDATA (660/16) AND "WHICHCONC", WHICH IS THE SAME AS FEP:WHICHCONC (660/17). ASSEMBLE USING *11ASR (515). 0 Referenced by comments of: 660/16, 660/17 00660/016 MCS-11 HCORDATA S G DIAG:HCORDATA 5.0T2 1108 MCS-11.HCORDATA.S.016 1 LINE 80 1 PAGE UM EADIE JULY 03, 1981 17:19:57 5.0T6 130 0 COPY SECTION USED BY (660/15). 1 MON AUG 05/96 18:37:45 Page 439 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 660/15 00660/017 MCS-11 WHICHCONC S G FEP:WHICHCONC 5.0T2 1109 MCS-11.WHICHCONC.S.017 1 LINE 19 1 PAGE UM EADIE JULY 03, 1981 17:19:58 5.0T6 131 0 THIS IS COPIED BY DEBUG/LOAD (660/15) AND COMMON (660/6), WHICH IS COPIED BY THE SUPERVISOR (660/1), DEVICES (660/2), TASKS (660/3), AND TABLES (660/4). IT CONTAINS TWO LINES: 1) A "SPACE 1" FOR ESTHETICS, AND 2) "&CONC SETC '?'", WHERE ? IS "CB", "CC", "CD", OR "LSI". 0 Referenced by comments of: 660/6, 660/15 00660/018 MCS-11 MCP SPEC PF MCP:DOCUMENT 5.0T2 1110 MCS-11.MCP_SPEC.PF.018 1 LINE 70 13 PAGE UM EADIE JULY 03, 1981 17:19:59 5.0T6 132 0 WRITEUP DESCRIBING THE MICHIGAN COMMUNICATIONS PROTOCOL (MCP) USED FOR COMPUTER-TO-COMPUTER COMMUNICATIONS AT UM. 00660/019 MCS-11 MCP EXAMPLE PF MCP:EXAMPLE 5.0T2 1111 MCS-11.MCP_EXAMPLE.WF.019 1 LINE 135 13 PAGE UM EADIE JULY 03, 1981 17:20:02 5.0T6 133 0 SAMPLE TERMINAL SESSION USING MCP. 00661/001 RAMP # (NO LONGER DISTRIBUTED) D4T2 1122 RAMP.RAMPINT.S.001 1 LINE 88 76 PAGE UM JUNE 02, 1976 20:33:19 0 RAMP, THE OPERATING SYSTEM FOR THE UM PDP-8 AND PDP-8E DATA CONCENTRATOR FRONT ENDS. IT WAS DISTRIBUTED FOR THE FINAL TIME ON D4.0, TAPE 2, FILES 1122 THROUGH 1135. 00662/001 *3066RTN # (SEE *3270RTN) UM 0 Part of *3270RTN (629/10). 00663/001 *SIDEDATE SX O S0564 D4T2 VLO FSNAME=SIDEDATE..SX.001(1) 1138 5.0T2 1112 SIDEDATE..SX.001 1 LINE 80 10 PAGE UM SHERRY AUG. 27, 1976 20:51:39 5.0T6 134 0 PROGRAM TO COMPARE TWO *UPDATE FILES WHICH UPDATE THE SAME BASE. IT PRINTS A RECORD OF THEIR DIFFERENCES AND MERGES THE TWO TO PRODUCE A SINGLE *UPDATE FILE. IT IS WRITTEN IN EXTENDED XPL AND MUST BE COMPILED USING *EXPL. 00663/002 *SIDEDATE OC O *SIDEDATE 5.0T2 1113 SIDEDATE..OC.002 1 LINE 240 8 PAGE UM SHERRY JULY 03, 1981 17:20:27 5.0T6 135 *SIDEDATE 0 OBJECT ALSO IN *LIBRARY. HAS A "$CONTINUE WITH *EXPLIB" LINE. 1 MON AUG 05/96 18:37:45 Page 440 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CONTAINS AN INCONSEQUENTIAL REP CARD. 00664/001A PASCAL/GN COMPILER SW S PASC:99PASOS01(170001,189999) 5.0T2 1114 PASCAL/GN.COMPILER.SW.001 1 LINE 100 117 PAGE UM GREENING JULY 03, 1981 17:20:28 5.0T6 136 0 OS/360 VERSION OF PASCAL COMPILER (FROM GRENOBLE) CONVERTED TO MTS. THIS COMPILER SUPPORTS A DIALECT OF PASCAL SIMILAR TO DECUS AND MDSI PASCAL. THIS SUBCOMPONENT IS THE PASCAL SOURCE FOR THE CURRENT COMPILER. 0 Referenced by comments of: 664/2, 792/6 00664/002A PASCAL/GN OBJECT OE S PASC:PAS.OS 5.0T2 1115 PASCAL/GN.OBJECT.OE.002 1 LINE 32767 52 PAGE UM GREENING JULY 03, 1981 17:21:08 5.0T6 137 0 THIS FILE CONTAINS THE OBJECT FROM (664/1). THE COMPILER REQUIRES AN ERROR MESSAGE FILE NAMED PASC:PAS.OS.E, DISTRIBUTED AS (664/5). 0 Referenced by comments of: 664/5 00664/003 PASCAL/GN XREF SW G PASC:99PASOS01(100001,109999) 33 5.0T2 1116 PASCAL/GN.XREF.SW.003 1 LINE 73 5 PAGE UM GREENING JULY 03, 1981 17:21:11 5.0T6 138 0 PASCAL SOURCE FOR A CROSS-REFERENCE PROGRAM. SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS. 0 Referenced by comments of: 664/4 00664/004 PASCAL/GN XREF OC G PASC:99PASOS01(90001,99999) 5.0T2 1117 PASCAL/GN.XREF.OC.004 1 LINE 80 5 PAGE UM GREENING JULY 03, 1981 17:21:39 5.0T6 139 0 THIS FILE CONTAINS THE OBJECT FOR (664/3). 00664/005A PASCAL/GN ERROR MESSAGES M PASC:PAS.OS.E 5.0T2 1118 PASCAL/GN.ERROR_MESSAGES.M.005 1 LINE 79 3 PAGE UM GREENING JULY 03, 1981 17:22:06 5.0T6 140 0 ERROR MESSAGES REFERENCED BY THE COMPILER FROM THE FILE PASC:PAS.OS (664/2). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 0 Referenced by comments of: 664/2 00664/006A PASCAL/GN USER MANUAL WF PASC:99PASOS01(20001,29999) 5.0T2 1119 PASCAL/GN.USER_MANUAL.WF.006 1 LINE 107 9 PAGE UM GREENING JULY 03, 1981 17:22:07 5.0T6 141 0 PASCAL/GN USER'S MANUAL CONTAINING "HOW TO USE" INFORMATION PLUS SOME INTERNAL IMPLEMENTATION NOTES. 1 MON AUG 05/96 18:37:45 Page 441 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00665/001A MTS VOLUME 14 MASTER WT S0951 MTSV14 'MTS MANUALS' POSN=NEWM8.V14 5.0T2 1120 MTS_VOLUME_14.MASTER.WT.001 1 SEQ 132 197 PAGE UM MANUAL JULY 03, 1981 17:24:35 5.0T6 142 0 TEXT/360 MASTER FOR VOLUME 14 "360/370 ASSEMBLER LANGUAGES IN MTS" OF THE UM MTS MANUALS, ISSUED AUGUST 1978, UPDATED OCTOBER 1979, APRIL 1980, AND JAN. 1981. EDITOR: RICHARD A. SALISBURY 0 Referenced by comments of: 66/93 00665/002A MTS VOLUME 14 PRINT PT S0951 MTSV14 'MTS MANUALS' POSN=PRINT8.V14 5.0T2 1121 MTS_VOLUME_14.PRINT.PT.002 1 SEQ 132 375 PAGE UM MANUAL JULY 03, 1981 17:24:52 5.0T6 143 0 TEXT/360 PRINT FILE. 00665/003 MTS VOLUME 14 INDEX SOURCE D S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_14.INDEX_SOURC.D.003(1) 591 5.0T2 1122 MTS_VOLUME_14.INDEX_SOURC.D.003 1 SEQ 110 4 PAGE UM MANUAL APR. 02, 1979 00:32:20 5.0T6 144 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 14. 00665/004 MTS VOLUME 14 UPDATE 1 PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_14.UPDATE_1.PT.004(1) 734 5.0T2 1123 MTS_VOLUME_14.UPDATE_1.PT.004 1 LINE 103 95 PAGE UM MANUAL APR. 05, 1980 19:41:05 5.0T6 145 0 THIS IS COMPUTING CENTER MEMO 411 -- "UPDATE 1 TO MTS VOLUME 14," (OCTOBER 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00665/005 MTS VOLUME 14 UPDATE 2 PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_14.UPDATE_2.PT.005(1) 735 5.0T2 1124 MTS_VOLUME_14.UPDATE_2.PT.005 1 LINE 103 9 PAGE UM MANUAL APR. 05, 1980 20:27:36 5.0T6 146 0 THIS IS "UPDATE 2 TO MTS VOLUME 14," APRIL 1980. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00665/006C MTS VOLUME 14 UPDATE 3 PT W073:TNLV14.JAN81 5.0T2 1125 MTS_VOLUME_14.UPDATE_3.PT.006 1 LINE 76 41 PAGE UM MANUAL JULY 03, 1981 17:26:04 5.0T6 147 0 THIS IS "UPDATE 3 TO MTS VOLUME 14," JAN. 1981. 00666/001 AMS SUBR SF G AMS S1223 TAXIR8 FSNAME=AMS.8.S 5.0T2 1126 AMS_SUBR..SF.001 1 LINE 80 7 PAGE UM BRILL NOV. 16, 1978 10:21:07 5.0T6 148 0 DYNAMIC ARRAY MANAGEMENT FOR FORTRAN PROGRAMS. COMPILE WITH FTN-G (204) OR H (298). SEE MTS VOLUMES 3 OR 6 FOR DESCRIPTION. 00666/002 AMS SUBR OC G # (PART OF *LIBRARY) UM BRILL 0 Object part of *LIBRARY (524/1) 1 MON AUG 05/96 18:37:45 Page 442 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00667/001 OVERDRIVE S* O S1430 4.3T1 VLO FSNAME=OVERDRIVE..S*.001(1) 736 5.0T2 1127 OVERDRIVE..S*.001 1 LINE 98 49 PAGE UM SWARTZ APR. 05, 1980 20:27:38 5.0T6 149 0 A FORTRAN PREPROCESSOR WHICH IS WRITTEN IN SNOSTORM, SEE (678). USES THE SPITBOL LOAD FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB. FILE CONTAINS MTS COMMANDS AT BEGINNING FOR ASSEMBLING. 0 Referenced by comments of: 551/1, 667/2, 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 00667/002 OVERDRIVE SS O S1430 4.3T1 VLO FSNAME=OVERDRIVE..SS.002(1) 737 5.0T2 1128 OVERDRIVE..SS.002 1 LINE 95 53 PAGE UM SWARTZ APR. 05, 1980 20:27:47 5.0T6 150 0 INTERMEDIATE SOURCE FOR *OVERDRIVE (667/3). IN SPITBOL, AS PRODUCED FROM (667/1). 00667/003 OVERDRIVE OC O *OVERDRIVE 5.0T2 1129 OVERDRIVE..OC.003 1 LINE 32767 50 PAGE UM SWARTZ JULY 03, 1981 17:27:32 5.0T6 151 *OVERDRIVE 0 HAS A "$CONTINUE WITH *SPITLIB" CARD. 0 Referenced by comments of: 667/2 00668/001A *TAXIR FLECS SOURCE SF G TAX S1223 TAXIR8 FSNAME=TAXIR.9.S 5.0T2 1130 TAXIR.FLECS_SOURCE.SF.001 1 LINE 80 207 PAGE UM BRILL JULY 30, 1981 15:44:16 5.0T6 152 0 SOURCE FOR THE FLECS PORTION OF THE TAXIR INFORMATION RETRIEVAL SYSTEM, VERSION 9. IT SHOULD BE PROCESSED BY THE FLECS PRE-PROCESSOR (673) AND THEN COMPILED USING FTN-H (298) WITH PAR=XL (TO GET FUNCTIONS LAND, LOR, LXOR, LCOMPL, SHFTR, AND SHFTL COMPILED INLINE). 0 Referenced by comments of: 500/16, 500/19, 500/31 00668/002C *TAXIR FLECS OBJECT O G S1223 TAXIR8 FSNAME=TAXIR.9.O 5.0T2 1131 TAXIR.FLECS_OBJECT.O.002 1 LINE 10982 64 PAGE UM BRILL JULY 30, 1981 15:44:51 5.0T6 153 0 OBJECT FOR FLECS PORTION OF TAXIR, VERSION 9. 00668/003A *TAXIR FLECS LISTING L G S1223 TAXIR8 FSNAME=TAXIRFLECSLIST.9 5.0T2 1132 TAXIR.FLECS_LISTING.L.003 1 LINE 121 339 PAGE UM BRILL JULY 30, 1981 15:45:03 5.0T6 154 0 FLECS INDENTED LISTING OF TAXIR, VERSION 9. (OUTPUT LISTING PRODUCED BY FLECS.) 1 MON AUG 05/96 18:37:45 Page 443 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00668/004A *TAXIR ASM SOURCE SA G TAX S1223 TAXIR8 FSNAME=TAXIRASM.9.S 5.0T2 1133 TAXIR.ASM_SOURCE.SA.004 1 LINE 80 25 PAGE UM BRILL JULY 30, 1981 15:47:44 5.0T6 155 0 SOURCE FOR THE ASSEMBLY LANGUAGE PORTION OF TAXIR, VERSION 9. 00668/005C *TAXIR ASM OBJECT O G S1223 TAXIR8 FSNAME=TAXIRASM.9.O 5.0T2 1134 TAXIR.ASM_OBJECT.O.005 1 LINE 80 3 PAGE UM BRILL JULY 30, 1981 15:48:02 5.0T6 156 0 OBJECT FOR ASSEMBLER PORTION OF TAXIR, VERSION 9. 00668/006A *TAXIR *TAXIR OE G NEW:TAXIR 5.0T2 1135 TAXIR.?TAXIR.OE.006 1 SEQ 32767 45 PAGE UM BRILL AUG. 06, 1981 04:23:18 5.0T6 157 *TAXIR 0 LINKEDITED OBJECT MODULE FOR VERSION 9 OF TAXIR. 00668/007A *TAXIR ETC:TAXERRORS M S1223 TAXIR8 FSNAME=TAXIRERRORS.9 5.0T2 1136 TAXIR.ETC:TAXERRORS.M.007 1 LINE 72 3 PAGE UM BRILL FEB. 27, 1981 12:21:25 5.0T6 158 ETC:TAXERRORS 0 FILE OF ERROR AND BROADCAST MESSAGES USED BY TAXIR, VERSION 9. THIS FILE IS READ @I BY TAXIR, SO LINE NUMBERS ARE IMPORTANT. THE FIRST LINE NUMBER IS -3. THE FILE SHOULD BE PERMITTED READ TO ALL. 00668/008 *TAXIR PRIMER WF S1223 TAXIR8 FSNAME=TAXIRPRIMER.3.F 5.0T2 1137 TAXIR.PRIMER.WF.008 1 LINE 221 70 PAGE UM BRILL JAN. 24, 1979 14:36:53 5.0T6 159 0 THIS IS THE TAXIR PRIMER, MTS VERSION, THIRD EDITION, AUG. 1978. IT IS MISSING ART WORK AND SPECIAL CHARACTERS ADDED BY HAND BEFORE PUBLICATION. 00668/009C *TAXIR MEMO 418 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M418 5.0T2 1138 TAXIR.MEMO_418.WF.009 1 LINE 227 31 PAGE UM BRILL MAY 23, 1980 12:13:08 5.0T6 160 0 THIS IS COMPUTING CENTER MEMO 418 -- "TAXIR PRIMER, UPDATE 1." IT SHOULD BE APPLIED TO THE TAXIR PRIMER TO MATCH THE DISTRIBUTED PROGRAM (TAXIR VERSION 9). 00668/010A *TAXIR INSTALL GUIDE P S1223 TAXIR8 FSNAME=TAXIRINSTGUIDE.9 5.0T2 1139 TAXIR.INSTALL_GUIDE.P.010 1 LINE 87 6 PAGE UM BRILL MAR. 26, 1981 13:42:08 5.0T6 161 0 INSTALLATION AND MAINTENANCE GUIDE FOR TAXIR, VERSION 9. 00668/011A *TAXIR USE STAT D # ETC.:TAXIRMONITOR D4.2T1 599 TAXIR.ETC:TAXERRORS.M.005 1 LINE 72 3 PAGE UM BRILL JAN. 08, 1979 16:12:13 ETC.:TAXIRMONITOR@E 0 THIS IS A LINE FILE USED BY TAXIR TO RECORD USAGE STATISTICS. ITS CONTENTS ARE NOT DISTRIBUTED SINCE AN EMPTY LINE FILE IS ALL THAT IS INITIALLY REQUIRED. TAXIR MAY BE USED TO ANALYZE THE ACCUMULATED 1 MON AUG 05/96 18:37:45 Page 444 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 USAGE STATISTICS. THE FILE SHOULD BE PERMITTED WRITE TO ALL. 00669/001 MTS VOLUME 9 MASTER WT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_9.MASTER.WT.001(1) 743 5.0T2 1140 MTS_VOLUME_9.MASTER.WT.001 1 SEQ 132 114 PAGE UM MANUAL APR. 05, 1980 20:31:27 5.0T6 162 0 TEXT/360 MASTER FOR VOLUME 9 "SNOBOL 4 IN MTS" OF THE UM MTS MANUALS, SEPTEMBER 1975, UPDATED JUNE 1979. EDITOR: RICHARD A. SALISBURY 00669/002 MTS VOLUME 9 PRINT PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_9.PRINT.PT.002(1) 744 5.0T2 1141 MTS_VOLUME_9.PRINT.PT.002 1 SEQ 132 175 PAGE UM MANUAL APR. 05, 1980 20:31:33 5.0T6 163 0 TEXT/360 PRINT FILE. 00669/003 MTS VOLUME 9 INDEX SOURCE D S1430 4.3T1 VLO FSNAME=MTS_VOLUME_9.INDEX_SOURCE.D.003(1) 745 5.0T2 1142 MTS_VOLUME_9.INDEX_SOURCE.D.003 1 SEQ 82 5 PAGE UM MANUAL APR. 05, 1980 20:31:36 5.0T6 164 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 9 00669/004 MTS VOLUME 9 UPDATE 1 PT S1430 4.3T1 VLO FSNAME=MTS_VOLUME_9.UPDATE_1.PT.004(1) 746 5.0T2 1143 MTS_VOLUME_9.UPDATE_1.PT.004 1 LINE 108 78 PAGE UM MANUAL APR. 05, 1980 20:31:41 5.0T6 165 0 THIS IS COMPUTING CENTER MEMO 401 -- UPDATE 1 TO MTS VOLUME 9," JUNE 1979. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00670/001 PL1LINK SA # (OBSOLETE) D4T2 1168 PL1LINK..SA.001 1 LINE 80 6 PAGE UM JULY 28, 1977 23:01:26 0 AN EXPERIMENTAL PROGRAM TO ALLOW DYNAMIC LINKING TO PL1 SUBROUTINES. 00671/001A FILE RESTORE - FAST FASTRESTORE SA G RSTR:FASTRESTORE(1000) 5.0T2 1144 FILE_RESTORE_-_FAST.FASTR.SA.001 1 LINE 72 8 PAGE UM HELFFRICH JULY 03, 1981 17:29:27 5.0T6 166 RSTR:FASTRESTORE 0 THE FAST FILE RESTORE PROGRAMS ARE USED TO RESTORE THE ENTIRE FILE SYSTEM FROM FILE SAVE TAPES, AS QUICKLY AS POSSIBLE, ON A PAGE AT A TIME BASIS, WHEN NEW DISKS ARE BEING INSTALLED OR AFTER A MAJOR DISASTER. THEY CANNOT BE USED TO CONVERT FILE FORMATS. SEE THE COMMENTS IN THE SOURCE FOR DETAILS ON USAGE. (671/1) AND (671/3) WORK WITH FILESAVE TAPES WHEN THE ONLINE FILESAVE (067/19) IS BEING USED AND THE FILESAVE DIRECTORY "FILEDIR.MAS" IS AVAILABLE TO AID IN THE RESTORATION. (671/1) CALLS THE FASTRSTR SUBROUTINE (671/3); IT TAKES A LIST OF FILES AND AN INDICATION OF WHAT IS TO BE DONE WITH EACH AS PRODUCED BY AMALGAMATE (682/38), MOUNTS AND SCANS TAPES, AND CALLS FASTRSTR TO DO THE RESTORING. ASSEMBLE WITH THE FILE SAVE MACROS (067/31). 0 Referenced by comments of: 671/1, 671/3, 682/37 1 MON AUG 05/96 18:37:45 Page 445 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00671/002A FILE RESTORE - FAST FASTRESTORE OC G RSTR:FASTRESTORE(1,999) 5.0T2 1145 FILE_RESTORE_-_FAST.FASTR.OC.002 1 LINE 80 5 PAGE UM HELFFRICH JULY 03, 1981 17:29:30 5.0T6 167 0 HAS A $CONTINUE WITH RSTR:FASTRSTR+COPY:SYSDEFS RECORD. 00671/003A FILE RESTORE - FAST FASTRSTR SUBR SA G FRST RSTR:FASTRSTR(1000) 5.0T2 1146 FILE_RESTORE_-_FAST.FASTR.SA.003 1 LINE 80 23 PAGE UM HELFFRICH JULY 03, 1981 17:29:32 5.0T6 168 RSTR:FASTRSTR 0 SUBROUTINE CALLED BY (671/1) TO DO FAST RESTORING. ASSEMBLE USING COPY:FILE.MACROS (482/45) AND THE FILE SAVE MACROS (067/31). COPIES *CNFGINFODSECT (654). ******************************************************************************** D5.0 CHANGES: UPDATED FOR DISK MANAGER (769) SUPPORT. ******************************************************************************** 0 Referenced by comments of: 671/1 00671/004A FILE RESTORE - FAST FASTRSTR SUBR OC G RSTR:FASTRSTR(1,999) 5.0T2 1147 FILE_RESTORE_-_FAST.FASTR.OC.004 1 LINE 80 6 PAGE UM HELFFRICH JULY 03, 1981 17:29:39 5.0T6 169 00672/001 *WATBOL INSTALLATION WF S0564 D4T2 VLO FSNAME=WATBOL.INSTALLATION.WF.001(1) 1178 5.0T2 1148 WATBOL.INSTALLATION.WF.001 1 LINE 78 1 PAGE UM SWARTZ NOV. 04, 1976 22:59:17 5.0T6 170 0 UNIVERSITY OF WATERLOO WATBOL V2L0 COBOL. THE SOURCE AND OBJECT CANNOT BE DISTRIBUTED DUE TO WATERLOO RESTRICTIONS. THIS SUB-COMPONENT DESCRIBES THE WATBOL INSTALLATION PROCEDURE FOR MTS. 0 Referenced by comments of: 672/30 00672/002 *WATBOL START.S SA G S0564 D4T2 VLO FSNAME=WATBOL.START.S.SA.002(1) 1179 5.0T2 1149 WATBOL.START.S.SA.002 1 LINE 73 1 PAGE UM SWARTZ JULY 15, 1976 03:12:34 5.0T6 171 0 AN INSTALLATION-DEPENDENT PREFIX OF ASSEMBLER GBL'S TO BE PLACED AT THE HEAD OF MOST ALL OF THE ASSEMBLER SOURCE GENERATED BY THE FOLLOWING UPDATE DECKS. 00672/003 *WATBOL END.S SA G S0564 D4T2 VLO FSNAME=WATBOL.END.S.SA.003(1) 1180 5.0T2 1150 WATBOL.END.S.SA.003 1 LINE 12 1 PAGE UM SWARTZ JULY 15, 1976 03:14:13 5.0T6 172 0 AN ASSEMBLER END CARD TO SUFFIX ASSEMBLIES OF SOURCE GENERATED BY THE FOLLOWING UPDATE DECKS. 1 MON AUG 05/96 18:37:45 Page 446 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00672/004 *WATBOL ACCT.U UU G S0564 D4T2 VLO FSNAME=WATBOL.ACCT.U.UU.004(1) 1181 5.0T2 1151 WATBOL.ACCT.U.UU.004 1 LINE 83 8 PAGE UM SWARTZ FEB. 28, 1976 13:35:59 5.0T6 173 0 Referenced by comments of: 672/24 00672/005 *WATBOL DATFX.U UU G S0564 D4T2 VLO FSNAME=WATBOL.DATFX.U.UU.005(1) 1182 5.0T2 1152 WATBOL.DATFX.U.UU.005 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:36:08 5.0T6 174 00672/006 *WATBOL DEBUG.U UU G S0564 D4T2 VLO FSNAME=WATBOL.DEBUG.U.UU.006(1) 1183 5.0T2 1153 WATBOL.DEBUG.U.UU.006 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:36:20 5.0T6 175 00672/007 *WATBOL EOSTA.U UU G S0564 D4T2 VLO FSNAME=WATBOL.EOSTA.U.UU.007(1) 1184 5.0T2 1154 WATBOL.EOSTA.U.UU.007 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:36:36 5.0T6 176 00672/008 *WATBOL FD.U UU G S0564 D4T2 VLO FSNAME=WATBOL.FD.U.UU.008(1) 1185 5.0T2 1155 WATBOL.FD.U.UU.008 1 LINE 78 3 PAGE UM SWARTZ FEB. 28, 1976 13:36:48 5.0T6 177 00672/009 *WATBOL JOBJOB.U UU G S0564 D4T2 VLO FSNAME=WATBOL.JOBJOB.U.UU.009(1) 1186 5.0T2 1156 WATBOL.JOBJOB.U.UU.009 1 LINE 72 4 PAGE UM SWARTZ FEB. 28, 1976 13:37:06 5.0T6 178 00672/010 *WATBOL LOADR.U UU G S0564 D4T2 VLO FSNAME=WATBOL.LOADR.U.UU.010(1) 1187 5.0T2 1157 WATBOL.LOADR.U.UU.010 1 LINE 72 6 PAGE UM SWARTZ FEB. 28, 1976 13:37:23 5.0T6 179 00672/011 *WATBOL MAIN.U UU G S0564 D4T2 VLO FSNAME=WATBOL.MAIN.U.UU.011(1) 1188 5.0T2 1158 WATBOL.MAIN.U.UU.011 1 LINE 81 17 PAGE UM SWARTZ FEB. 28, 1976 13:38:08 5.0T6 180 00672/012 *WATBOL OPEN.U UU G S0564 D4T2 VLO FSNAME=WATBOL.OPEN.U.UU.012(1) 1189 5.0T2 1159 WATBOL.OPEN.U.UU.012 1 LINE 72 1 PAGE UM SWARTZ NOV. 04, 1976 22:58:48 5.0T6 181 00672/013 *WATBOL RINIT.U UU G S0564 D4T2 VLO FSNAME=WATBOL.RINIT.U.UU.013(1) 1190 5.0T2 1160 WATBOL.RINIT.U.UU.013 1 LINE 72 3 PAGE UM SWARTZ FEB. 28, 1976 13:56:43 5.0T6 182 00672/014 *WATBOL SD.U UU G S0564 D4T2 VLO FSNAME=WATBOL.SD.U.UU.014(1) 1191 5.0T2 1161 WATBOL.SD.U.UU.014 1 LINE 72 4 PAGE UM SWARTZ FEB. 28, 1976 13:42:42 5.0T6 183 00672/015 *WATBOL SERVICE.U UU G S0564 D4T2 VLO FSNAME=WATBOL.SERVICE.U.UU.015(1) 1192 5.0T2 1162 WATBOL.SERVICE.U.UU.015 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:54:31 5.0T6 184 1 MON AUG 05/96 18:37:45 Page 447 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00672/016 *WATBOL SYSINT.U UU G S0564 D4T2 VLO FSNAME=WATBOL.SYSINT.U.UU.016(1) 1193 5.0T2 1163 WATBOL.SYSINT.U.UU.016 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:54:51 5.0T6 185 00672/017 *WATBOL DIAC.U UU G S0564 D4T2 VLO FSNAME=WATBOL.DIAC.U.UU.017(1) 1194 5.0T2 1164 WATBOL.DIAC.U.UU.017 1 LINE 72 4 PAGE UM SWARTZ FEB. 28, 1976 13:55:19 5.0T6 186 00672/018 *WATBOL FORMT.U UU G S0564 D4T2 VLO FSNAME=WATBOL.FORMT.U.UU.018(1) 1195 5.0T2 1165 WATBOL.FORMT.U.UU.018 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:55:51 5.0T6 187 00672/019 *WATBOL IOSUP.U UU G S0564 D4T2 VLO FSNAME=WATBOL.IOSUP.U.UU.019(1) 1196 5.0T2 1166 WATBOL.IOSUP.U.UU.019 1 LINE 73 18 PAGE UM SWARTZ JULY 15, 1976 03:33:59 5.0T6 188 00672/020 *WATBOL RUN.U UU G S0564 D4T2 VLO FSNAME=WATBOL.RUN.U.UU.020(1) 1197 5.0T2 1167 WATBOL.RUN.U.UU.020 1 LINE 75 3 PAGE UM SWARTZ FEB. 28, 1976 13:57:00 5.0T6 189 00672/021 *WATBOL SORTR.U UU G S0564 D4T2 VLO FSNAME=WATBOL.SORTR.U.UU.021(1) 1198 5.0T2 1168 WATBOL.SORTR.U.UU.021 1 LINE 72 7 PAGE UM SWARTZ FEB. 28, 1976 13:57:18 5.0T6 190 00672/022 *WATBOL TRAC.U UU G S0564 D4T2 VLO FSNAME=WATBOL.TRAC.U.UU.022(1) 1199 5.0T2 1169 WATBOL.TRAC.U.UU.022 1 LINE 72 3 PAGE UM SWARTZ FEB. 28, 1976 13:57:33 5.0T6 191 00672/023 *WATBOL TIME.S SA G S0564 D4T2 VLO FSNAME=WATBOL.TIME.S.SA.023(1) 1200 5.0T2 1170 WATBOL.TIME.S.SA.023 1 LINE 71 3 PAGE UM SWARTZ JULY 15, 1976 03:12:51 5.0T6 192 0 Referenced by comments of: 672/24 00672/024 *WATBOL MACROS SM G S0564 D4T2 VLO FSNAME=WATBOL.MACROS.SM.024(1) 1201 5.0T2 1171 WATBOL.MACROS.SM.024 1 LINE 80 16 PAGE UM SWARTZ JULY 15, 1976 03:16:17 5.0T6 193 0 MACRO LIBRARY NEEDED TO ASSEMBLE SOURCE RESULTING FROM (672/4) THRU (672/23). 00672/025 *WATBOL OBJECT OC G # S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.WATBOL UM SWARTZ 0 UNLINK-EDITED OBJECT FOR WATBOL. NOT DISTRIBUTED DUE TO WATERLOO RESTRICTIONS. 00672/026 *WATBOL OBJECT OE G # *WATBOL UM SWARTZ 0 NOT DISTRIBUTED DUE TO WATERLOO RESTRICTIONS. *WATBOL REQUIRES THE FILE "ETC:WATPGNTLOG" EXIST FOR LOGGING. 1 MON AUG 05/96 18:37:45 Page 448 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00672/027 *WATBOL LIBRARY GEN SA G S0564 D4T2 VLO FSNAME=WATBOL.LIBRARY_GEN.SA.027(1) 1202 5.0T2 1172 WATBOL.LIBRARY_GEN.SA.027 1 LINE 80 30 PAGE UM SWARTZ JULY 15, 1976 03:15:10 5.0T6 194 0 SOURCE FOR WATBOL LIBRARY GENERATION PROGRAM. ASSEMBLE USING *SYSMAC. 00672/028 *WATBOL LIBRARY GEN OC G *WATBOLLIBGEN 5.0T2 1173 WATBOL.LIBRARY_GEN.OC.028 1 SEQ 80 4 PAGE UM SWARTZ JULY 03, 1981 17:30:10 5.0T6 195 *WATBOLLIBGEN 00672/029 *WATBOL LIBRARY D G *WATBOLLIB 5.0T2 1174 WATBOL.LIBRARY.D.029 1 LINE 69 4 PAGE UM SWARTZ JULY 03, 1981 17:30:11 5.0T6 196 *WATBOLLIB 0 DEFAULT UM WATBOL LIBRARY. 00672/030 *WATBOL TEST PROGRAMS S G S0564 D4T2 VLO FSNAME=WATBOL.TEST_PROGRAMS.S.031(1) 1206 5.0T2 1175 WATBOL.TEST_PROGRAMS.S.030 1 LINE 82 49 PAGE UM SWARTZ NOV. 10, 1976 20:22:05 5.0T6 197 0 TEST PROGRAM SERIES FOR WATBOL V2L0 COMPILER. SEE (672/1) FOR INSTRUCTIONS. 00673/001 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=C.FLX 5.0T2 1176 FLECS.OREGON_SOURCE.SF.001 1 LINE 80 38 PAGE UM UNSP DEC. 16, 1974 20:57.44 5.0T6 198 0 UNIVERSITY OF OREGON'S FORTRAN PREPROCESSOR. A HARDCOPY WRITEUP AND OTHER DOCUMENTATION WAS INCLUDED WITH D4. THIS COMPONENT AND THE NEXT 10 ARE THE ORIGINAL FLECS SOURCE FROM THE UNIVERSITY OF OREGON. THEY ARE REFERRED TO AS FILES 1 THROUGH 11 IN THE MTS FLECS INSTALLATION GUIDE (673/37). 0 Referenced by comments of: 668/1 00673/002 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=C.F4 5.0T2 1177 FLECS.OREGON_SOURCE.SF.002 1 LINE 80 42 PAGE UM UNSP DEC. 16, 1974 20:59.11 5.0T6 199 0 FILE 2 00673/003 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=SC.FLX 5.0T2 1178 FLECS.OREGON_SOURCE.SF.003 1 LINE 80 16 PAGE UM UNSP DEC. 16, 1974 20:59.41 5.0T6 200 0 FILE 3 00673/004 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=SC.F4 5.0T2 1179 FLECS.OREGON_SOURCE.SF.004 1 LINE 80 8 PAGE UM UNSP DEC. 16, 1974 21:00.25 5.0T6 201 0 FILE 4 1 MON AUG 05/96 18:37:45 Page 449 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00673/005 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=M.FLX 5.0T2 1180 FLECS.OREGON_SOURCE.SF.005 1 LINE 80 22 PAGE UM UNSP DEC. 16, 1974 21:01.13 5.0T6 202 0 FILE 5 00673/006 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=M.F4 5.0T2 1181 FLECS.OREGON_SOURCE.SF.006 1 LINE 80 24 PAGE UM UNSP DEC. 16, 1974 21:02.06 5.0T6 203 0 FILE 6 00673/007 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=A.FLX 5.0T2 1182 FLECS.OREGON_SOURCE.SF.007 1 LINE 80 14 PAGE UM UNSP DEC. 16, 1974 21:03.11 5.0T6 204 0 FILE 7 00673/008 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=A.F4 5.0T2 1183 FLECS.OREGON_SOURCE.SF.008 1 LINE 80 14 PAGE UM UNSP DEC. 16, 1974 21:03.58 5.0T6 205 0 FILE 8 00673/009 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=L.FLX 5.0T2 1184 FLECS.OREGON_SOURCE.SF.009 1 LINE 80 13 PAGE UM UNSP DEC. 16, 1974 21:04.46 5.0T6 206 0 FILE 9 00673/010 FLECS OREGON SOURCE SF O S1153 UNSP VLO FSNAME=L.F4 5.0T2 1185 FLECS.OREGON_SOURCE.SF.010 1 LINE 80 11 PAGE UM UNSP DEC. 16, 1974 21:05.45 5.0T6 207 0 FILE 10 00673/011 FLECS OREGON SOURCE SA O S1153 UNSP VLO FSNAME=ASMFLX.S 5.0T2 1186 FLECS.OREGON_SOURCE.SA.011 1 LINE 80 13 PAGE UM UNSP DEC. 16, 1974 21:06.34 5.0T6 208 0 FILE 11 00673/012 FLECS STANDALONE XLT S O FLE S1153 UNSP VLO FSNAME=F.FLECS 5.0T2 1187 FLECS.STANDALONE_XLT.S.012 1 LINE 80 49 PAGE UM UNSP AUG. 08, 1975 14:16:20 5.0T6 209 0 FILE 12 -- FLECS SOURCE FOR 3 PART MTS STANDALONE TRANSLATOR. 00673/013 FLECS STANDALONE XLT S O S1153 UNSP VLO FSNAME=S.FLECS 5.0T2 1188 FLECS.STANDALONE_XLT.S.013 1 LINE 80 46 PAGE UM UNSP AUG. 08, 1975 14:17:31 5.0T6 210 0 FILE 13 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR MTS STANDALONE TRANSLATOR. 1 MON AUG 05/96 18:37:45 Page 450 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00673/014 FLECS STANDALONE XLT OC O S1153 UNSP VLO FSNAME=O.FLECS 5.0T2 1189 FLECS.STANDALONE_XLT.OC.014 1 LINE 240 9 PAGE UM UNSP AUG. 08, 1975 14:18:07 5.0T6 211 0 FILE 14 -- OBJECT FOR MTS STANDALONE TRANSLATOR. 00673/015 FLECS STANDALONE XLT S O FLE1 S1153 UNSP VLO FSNAME=F.FLECS.SC 5.0T2 1190 FLECS.STANDALONE_XLT.S.015 1 LINE 80 8 PAGE UM UNSP AUG. 08, 1975 14:19:03 5.0T6 212 0 FILE 15 -- FLECS SOURCE FOR STANDALONE TRANSLATOR SUPPORT ROUTINES. Contains many $CONTINUE WITH SN99:FLX RETURN records, which refer to (673/23). 00673/016 FLECS STANDALONE XLT S O S1153 UNSP VLO FSNAME=S.FLECS.SC 5.0T2 1191 FLECS.STANDALONE_XLT.S.016 1 LINE 80 11 PAGE UM UNSP AUG. 08, 1975 14:20:41 5.0T6 213 0 FILE 16 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR STANDALONE TRANSLATOR SUPPORT ROUTINES. 00673/017 FLECS STANDALONE XLT OC O S1153 UNSP VLO FSNAME=O.FLECS.SC 5.0T2 1192 FLECS.STANDALONE_XLT.OC.017 1 LINE 244 5 PAGE UM UNSP AUG. 08, 1975 14:22:01 5.0T6 214 0 FILE 17 -- OBJECT FOR STANDALONE TRANSLATOR SUPPORT ROUTINES. 00673/018 FLECS STANDALONE XLT OE O S1153 UNSP VLO FSNAME=FLECS 5.0T2 1193 FLECS.STANDALONE_XLT.OE.018 1 SEQ 24628 9 PAGE UM UNSP AUG. 08, 1975 14:22:37 5.0T6 215 0 FILE 18 -- LINKEDITED OBJECT FOR MTS STANDALONE TRANSLATOR. 00673/019 FLECS STANDALONE XLT SF O FLE2 S1153 UNSP VLO FSNAME=COM.FLECS 5.0T2 1194 FLECS.STANDALONE_XLT.SF.019 1 LINE 80 2 PAGE UM UNSP AUG. 08, 1975 14:23:26 5.0T6 216 0 FILE 19 -- COMMON SECTIONS USED BY STANDALONE TRANSLATOR. 00673/020 FLECS FLX WRITEUP WF S1153 UNSP VLO FSNAME=F.FFIWR 5.0T2 1195 FLECS.FLX_WRITEUP.WF.020 1 LINE 244 16 PAGE UM UNSP OCT. 08, 1978 22:53:11 5.0T6 217 0 FILE 20 -- FORMAT SOURCE FOR THE FLX MTS INTERFACE WRITEUP. 00673/021 FLECS NOTES P S1153 UNSP VLO FSNAME=FLECS.NOTES 5.0T2 1196 FLECS.NOTES.P.021 1 LINE 63 1 PAGE UM UNSP MAY 22, 1977 17:34:48 5.0T6 218 0 NOTES DESCRIBING THE CHANGES BETWEEN THIS VERSION AND THE PREVIOUS REDISTRIBUTION. 1 MON AUG 05/96 18:37:45 Page 451 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00673/022A FLECS USER'S MANUAL WF S1153 UNSP VLO FSNAME=FLECS.F 5.0T2 1197 FLECS.USER'S_MANUAL.WF.022 1 LINE 183 13 PAGE UM UNSP SEP. 15, 1980 16:42:54 5.0T6 219 00673/023 FLECS FLX SF O FLX S1153 UNSP VLO FSNAME=COM.FLX 5.0T2 1198 FLECS.FLX.SF.023 1 LINE 80 3 PAGE UM UNSP MAY 22, 1977 17:37:47 5.0T6 220 0 FILE 23 -- FORTRAN COMMON SECTIONS USED BY FLECS/FORTRAN INTERFACE. 0 Referenced by comments of: 673/15, 673/26, 673/32 00673/024 FLECS FLX S O FLX1 S1153 UNSP VLO FSNAME=F.FLX 5.0T2 1199 FLECS.FLX.S.024 1 LINE 80 50 PAGE UM UNSP MAY 22, 1977 17:40:01 5.0T6 221 0 FILE 24 -- FLECS SOURCE FOR FLXT TRANSLATOR. 0 Referenced by comments of: 673/27 00673/025 FLECS FLX S O FLX2 S1153 UNSP VLO FSNAME=F.FLX.SC 5.0T2 1200 FLECS.FLX.S.025 1 LINE 80 8 PAGE UM UNSP MAY 22, 1977 17:41:16 5.0T6 222 0 FILE 25 -- FLECS SOURCE FOR FFI/FLXT INTERFACE. 0 Referenced by comments of: 673/28 00673/026 FLECS FLX SA O FLX3 S1153 UNSP VLO FSNAME=S.FLX.AU 5.0T2 1201 FLECS.FLX.SA.026 1 LINE 80 26 PAGE UM UNSP MAY 22, 1977 17:46:03 5.0T6 223 0 FILE 26 -- ASSEMBLY SOURCE FOR FLXT UTILITY ROUTINES. COPIES FLX FORTRAN COMMON SECTIONS (673/23) AND FLX MACROS (673/31). 0 Referenced by comments of: 673/29 00673/027 FLECS FLX OC O S1153 UNSP VLO FSNAME=O.FLX 5.0T2 1202 FLECS.FLX.OC.027 1 LINE 9072 8 PAGE UM UNSP MAY 22, 1977 17:44:12 5.0T6 224 0 FILE 27 -- OBJECT FOR F.FLX (673/24). 00673/028 FLECS FLX OC O S1153 UNSP VLO FSNAME=O.FLX.SC 5.0T2 1203 FLECS.FLX.OC.028 1 LINE 1004 4 PAGE UM UNSP MAY 22, 1977 17:45:02 5.0T6 225 0 FILE 28 -- OBJECT FOR F.SC (673/25). 00673/029 FLECS FLX OC O S1153 UNSP VLO FSNAME=O.FLX.AU 5.0T2 1204 FLECS.FLX.OC.029 1 LINE 80 3 PAGE UM UNSP MAY 22, 1977 17:43:04 5.0T6 226 0 FILE 29 -- OBJECT FOR S.AU (673/26). 1 MON AUG 05/96 18:37:45 Page 452 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00673/030 FLECS FLX OE O UNSP:FLXT 5.0T2 1205 FLECS.FLX.OE.030 1 LINE 11124 11 PAGE UM UNSP JULY 03, 1981 17:31:38 5.0T6 227 UNSP:FLXT 0 FILE 30 -- LINKEDITED OBJECT FOR FLXT, THE TRANSLATOR THAT RUNS UNDER FFI. 00673/031 FLECS FLX SA O FLX2 S1153 UNSP VLO FSNAME=FLXDEF 5.0T2 1206 FLECS.FLX.SA.031 1 LINE 80 8 PAGE UM UNSP MAY 22, 1977 17:41:57 5.0T6 228 0 FILE 31 -- MACROS AND COPY SECTIONS. 0 Referenced by comments of: 673/26, 673/32 00673/032 FLECS FLX SA O FFI S1153 UNSP VLO FSNAME=S.FFI 5.0T2 1207 FLECS.FLX.SA.032 1 LINE 80 77 PAGE UM UNSP OCT. 08, 1978 22:50:10 5.0T6 229 0 FILE 32 -- ASSEMBLY SOURCE FOR FFI. COPIES FLX FORTRAN COMMON SECTIONS (673/23) AND FLX MACROS (673/31). 00673/033 FLECS FLX OC O S1153 UNSP VLO FSNAME=O.FFI 5.0T2 1208 FLECS.FLX.OC.033 1 LINE 1956 12 PAGE UM UNSP OCT. 08, 1978 22:51:01 5.0T6 230 00673/034 FLECS FLX OE O UNSP:FLX 5.0T2 1209 FLECS.FLX.OE.034 1 LINE 1956 6 PAGE UM UNSP JULY 03, 1981 17:31:45 5.0T6 231 UNSP:FLX 0 FILE 34 -- LINKEDITED OBJECT FOR FFI. LINKS TO FLXT AND *FORTRANG OR *FORTRANH. 00673/035 FLECS EXAMPLE 1 S S FEX1 S1153 UNSP VLO FSNAME=DRKEXAMPLE 5.0T2 1210 FLECS.EXAMPLE_1.S.035 1 LINE 80 25 PAGE UM UNSP DEC. 09, 1976 22:36:39 5.0T6 232 0 FILE 35 -- EXAMPLE FLECS PROGRAMS. 00673/036 FLECS EXAMPLE 2 S S FEX2 S1153 UNSP VLO FSNAME=HBGEXAMPLE 5.0T2 1211 FLECS.EXAMPLE_2.S.036 1 LINE 80 14 PAGE UM UNSP JAN. 21, 1976 15:16:56 5.0T6 233 0 FILE 36 -- EXAMPLE FLECS PROGRAM. 00673/037 FLECS INSTALLATION WF S1153 UNSP VLO FSNAME=FLECSINSTALL.F 5.0T2 1212 FLECS.INSTALLATION.WF.037 1 LINE 145 12 PAGE UM UNSP MAY 22, 1977 17:33:57 5.0T6 234 0 FILE 37 -- FORMAT SOURCE FOR THE MTS FLECS INSTALLATION GUIDE. 0 Referenced by comments of: 673/1 1 MON AUG 05/96 18:37:45 Page 453 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00674/001 JVCT SUBR SA G S0811 REBATE 'REBATES' FSNAME=UBCDATE 5.0T2 1213 JVCT_SUBR..SA.001 1 LINE 72 10 PAGE UBC HOGG LIFT NOV. 28, 1977 20:58:00 5.0T6 235 0 SUBROUTINE TO CONVERT FREE FORM TIME AND DATE FROM BCD TO MTS STANDARD INTERNAL TIME, I.E. MICROSECONDS SINCE 1 MARCH 1900. SEE SOURCE FOR USAGE DESCRIPTION. 0 Referenced by comments of: 621/8, 621/9, 655/4, 707/3, 753/4, 3024/31 00674/002 JVCT SUBR OC G MTS:UBCDATEX 5.0T2 1214 JVCT_SUBR..OC.002 1 LINE 80 3 PAGE UBC HOGG LIFT JULY 03, 1981 17:31:52 5.0T6 236 MTS.:UBCDATEX 0 Referenced by comments of: 655/5 00675/001 MTS VOLUME 6 MASTER WT S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_6.MASTER.WT.001(1) 612 5.0T2 1215 MTS_VOLUME_6.MASTER.WT.001 1 SEQ 132 360 PAGE UM MANUAL APR. 02, 1979 00:42:17 5.0T6 237 0 TEXT/360 MASTER FOR VOLUME 6 "FORTRAN IN MTS" OF THE UM MTS MANUALS, DECEMBER 1978. EDITOR: RICHARD A. SALISBURY 00675/002 MTS VOLUME 6 PRINT PT S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_6.PRINT.PT.002(1) 613 5.0T2 1216 MTS_VOLUME_6.PRINT.PT.002 1 SEQ 132 557 PAGE UM MANUAL APR. 02, 1979 00:42:31 5.0T6 238 0 TEXT/360 PRINT FILE. 00675/003 MTS VOLUME 6 INDEX SOURCE D S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_6.INDEX_SOURCE.D.003(1) 614 5.0T2 1217 MTS_VOLUME_6.INDEX_SOURCE.D.003 1 SEQ 82 6 PAGE UM MANUAL APR. 02, 1979 00:42:38 5.0T6 239 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 6. 00676/001 MTS VOLUME 8 MASTER WT S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_8.MASTER.WT.001(1) 615 5.0T2 1218 MTS_VOLUME_8.MASTER.WT.001 1 SEQ 132 100 PAGE UM MANUAL APR. 02, 1979 00:43:01 5.0T6 240 0 TEXT/360 MASTER FOR VOLUME 8 "LISP AND SLIP IN MTS" OF THE UM MTS MANUALS, JUNE 1976, UPDATED FEBRUARY 1979. EDITOR: RICHARD A. SALISBURY 00676/002 MTS VOLUME 8 PRINT PT S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_8.PRINT.PT.002(1) 616 5.0T2 1219 MTS_VOLUME_8.PRINT.PT.002 1 SEQ 132 170 PAGE UM MANUAL APR. 02, 1979 00:43:06 5.0T6 241 0 TEXT/360 PRINT FILE. 1 MON AUG 05/96 18:37:45 Page 454 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00676/003 MTS VOLUME 8 INDEX SOURCE D S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_8.INDEX_SOURCE.D.003(1) 617 5.0T2 1220 MTS_VOLUME_8.INDEX_SOURCE.D.003 1 SEQ 68 5 PAGE UM MANUAL APR. 02, 1979 00:43:08 5.0T6 242 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 8. 00676/004 MTS VOLUME 8 UPDATE 1 PT S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_8.UPDATE_1.PT.004(1) 618 5.0T2 1221 MTS_VOLUME_8.UPDATE_1.PT.004 1 LINE 106 56 PAGE UM MANUAL APR. 02, 1979 00:43:09 5.0T6 243 0 THIS IS COMPUTING CENTER MEMO 399 -- "UPDATE 1 TO MTS VOLUME 8," FEBRUARY 1979. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00677/001A *ENCRYPT SA O ENCR *ENCRYPT(1000) 5.0T2 1222 ENCRYPT..SA.001 1 LINE 80 19 PAGE UM GREENING AUG. 06, 1981 04:25:02 5.0T6 244 *ENCRYPT 0 PROGRAM TO SCRAMBLE AND UNSCRAMBLE FILES BASED ON A SECRET KEY. ASSEMBLE WITH PAR=BATCH USING COPY:CC.MACROS (1054/3) AND COPY:MTS.MACROS (344/3). COPIES *GDINFODSECT (594). THIS IS ALSO THE SOURCE FOR THE CRYPT AND CRYPTCC SUBROUTINES IN THE RESIDENT SYSTEM. 0 Referenced by comments of: 491/1 00677/002A *ENCRYPT OE O *ENCRYPT(1,999) 5.0T2 1223 ENCRYPT..OE.002 1 LINE 5350 3 PAGE UM GREENING AUG. 06, 1981 04:25:05 5.0T6 245 0 OBJECT FOR THE *ENCRYPT MAIN PROGRAM. 00677/003C *ENCRYPT OE O SEG2:CRYPT 5.0T2 1224 ENCRYPT..OE.003 1 LINE 1958 1 PAGE UM GREENING AUG. 06, 1981 04:25:06 5.0T6 246 SEG2:CRYPT 0 OBJECT FOR THE CRYPT AND CRYPTCC SUBROUTINES. LOADED INTO SHARED VM AT IPL BY PISTLE. 00678/001 SNOSTORM PREPROCESSOR S* G S1430 4.3T1 VLO FSNAME=SNOSTORM.PREPROCESSOR.S*.001(1) 753 5.0T2 1225 SNOSTORM.PREPROCESSOR.S*.001 1 LINE 99 25 PAGE UM SWARTZ APR. 05, 1980 20:32:10 5.0T6 247 0 SNOSTORM IS A PREPROCESSOR FOR THE SNOBOL4 LANGUAGE. IT AUGMENTS SNOBOL4 WITH THE STRUCTURES IF, LOOP, CASE, AND PROC. THIS SUBCOMPONENT IS THE SOURCE FOR THE SNOSTORM PREPROCESSOR (678/3), AND IS WRITTEN IN THE SNOSTORM LANGUAGE. FOR THE INITIAL INSTALLATION OF SNOSTORM, THIS FILE IS RUN THROUGH SNOSTORM AND AN INTERMEDIATE SOURCE, (678/2), WHICH IS IN SPITBOL, IS PRODUCED. THIS SUBCOMPONENT USES THE LOAD FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB (590/30). FILE CONTAINS MTS COMMANDS AT BEGINNING FOR COMPILING. 0 Referenced by comments of: 667/1, 678/2, 678/3 1 MON AUG 05/96 18:37:45 Page 455 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00678/002 SNOSTORM PREPROCESSOR SS G S1430 4.3T1 VLO FSNAME=SNOSTORM.PREPROCESSOR.SS.002(1) 754 5.0T2 1226 SNOSTORM.PREPROCESSOR.SS.002 1 LINE 99 17 PAGE UM SWARTZ APR. 05, 1980 20:32:27 5.0T6 248 0 THIS IS THE SOURCE FOR THE SNOSTORM PREPROCESSOR, DERIVED BY RUNNING (678/1) THROUGH SNOSTORM. THIS FILE IS IN SPITBOL, AND IS USEFUL FOR "BOOTSTRAPPING" FOR THE INITIAL INSTALLATION OF SNOSTORM. 0 Referenced by comments of: 678/1, 678/3 00678/003 SNOSTORM PREPROCESSOR OC G ETC:SNOSTORM 5.0T2 1227 SNOSTORM.PREPROCESSOR.OC.003 1 LINE 32767 28 PAGE UM SWARTZ JULY 03, 1981 17:32:39 5.0T6 249 ETC:SNOSTORM 0 THIS IS THE OBJECT FOR THE SNOSTROM PREPROCESSOR (678/1) AND (678/2). IT CONTAINS A "$CONTINUE WITH *SPITLIB" RECORD. 0 Referenced by comments of: 678/1, 678/4 00678/004 SNOSTORM MAIN PROGRAM SA G S1430 4.3T1 VLO FSNAME=SNOSTORM.MAIN_PROGRAM.SA.004(1) 756 5.0T2 1228 SNOSTORM.MAIN_PROGRAM.SA.004 1 LINE 73 3 PAGE UM SWARTZ APR. 05, 1980 20:32:32 5.0T6 250 0 THIS IS A SMALL MAIN PROGRAM WHICH LINKS TO THE SNOSTORM PREPROCESSOR (678/3) AND THEN TO *SPITBOL (590). 0 Referenced by comments of: 678/5 00678/005 SNOSTORM *SNOSTORM OE G *SNOSTORM 5.0T2 1229 SNOSTORM.*SNOSTORM.OE.005 1 LINE 1221 1 PAGE UM SWARTZ JULY 03, 1981 17:32:42 5.0T6 251 *SNOSTORM 0 THE OBJECT OF (678/4). 00678/006 SNOSTORM TEST PGM S* O S1430 4.3T1 VLO FSNAME=SNOSTORM.TEST_PGM.S*.006(1) 758 5.0T2 1230 SNOSTORM.TEST_PGM.S*.006 1 LINE 74 3 PAGE UM SWARTZ APR. 05, 1980 20:32:37 5.0T6 252 00679/001A INTRO GUIDE: INTRO TO CC WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO80.SOU 5.0T3 1 INTRO_GUIDE:_INTRO_TO_CC..WF.001 1 LINE 222 56 PAGE UM MANUAL AUG. 18, 1980 15:49:20 5.0T6 253 0 FORMAT SOURCE FOR "INTRODUCTION TO THE COMPUTING CENTER," SEPTEMBER 1980. 00679/002A INTRO GUIDE: INTRO TO CC PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO80.OUT 5.0T3 2 INTRO_GUIDE:_INTRO_TO_CC..PF.002 1 LINE 135 89 PAGE UM MANUAL AUG. 18, 1980 15:52:18 5.0T6 254 0 FORMAT PRINT FILE. 1 MON AUG 05/96 18:37:45 Page 456 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00680/001A *CKID SA G MTS:CKID.S 5.0T3 3 CKID..SA.001 1 LINE 77 9 PAGE UBC HOGG MTA JULY 03, 1981 17:51:47 5.0T6 255 MTS.:CKID.S 0 PROGRAM TO PROVIDE ADDITONAL SIGNON SECURITY FOR ACCOUNTS WHICH ARE SHARED BY SEVERAL USERS WITHOUT REQUIRING THAT THE PASSWORD FOR THE SHARED ACCOUNT BE CHANGED REGULARLY. COPIES *GDINFODSECT (594). REQUIRES COPY:MTS.MACROS (344/3). USES THE MTS GETACCRE ROUTINE IN USUB (638) TO READ THE ACCOUNTING FILE. 0 Referenced by comments of: 814/1 00680/002A *CKID OE G *CKID 5.0T3 4 CKID..OE.002 1 LINE 2457 5 PAGE UBC HOGG MTA JULY 03, 1981 17:51:49 5.0T6 256 *CKID 0 CONTAINS PRIVATE COPIES OF TIME SUBROUTINE SO THAT THIS PROGRAM CAN BE RUN BEFORE THE POST-IPL SYSTEM IS LOADED SINCE IT USED AT UM FOR THE CCIDS INIT, SYS, STRT, RSTR, ... 00681/001 AUDIO RESP SYS - VOTRAX INSTALLATION PT S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.I.PT.001(1) 53 5.0T3 5 AUDIO_RESP_SYS_-_VOTRAX.I.PT.001 1 LINE 100 7 PAGE UM FRONCZAK SEP. 18, 1977 22:09:36 5.0T6 257 0 INSTRUCTIONS FOR THE INSTALLATION OF THE VOTRAX AUDIO RESPONSE SYSTEM WHICH USES THE VOTRAX VS-6 SPEECH SYNTHESIZER AND "TOUCH-TONE" TELEPHONE COMMUNICATION TO PROVIDE MTS INTERACTIVE FACILITIES IN CONJUNCTION WITH THE DATA CONCENTRATOR DEVICE SUPPORT ROUTINES PDP8RTN (116). COPY TO A TN PRINTER @MCC. 0 Referenced by comments of: 116/1 00681/002 AUDIO RESP SYS - VOTRAX VTRX SA G S1430 4.3T1 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.V.SA.002(1) 762 5.0T3 6 AUDIO_RESP_SYS_-_VOTRAX.V.SA.002 1 LINE 81 36 PAGE UM FRONCZAK APR. 05, 1980 20:32:46 5.0T6 258 0 SUBROUTINES VTRXINIT, VTRXIN, VTRXOUT, VTRXCTRL, AND VTRXCLOS WHICH ARE CALLED BY PDP8RTN (116) TO PROCESS VOTRAX I/O AND CONTROL COMMANDS. THESE ROUTINES CALL CVTPB (681/3) AND DICTINIT, DICTADD, AND DICTLOOK (681/4) AS WELL AS REFERENCING THE VOTRAX VOCABULARY (681/10). Object part of *PDP8RTN (116/2). 00681/003 AUDIO RESP SYS - VOTRAX CVTPB SA G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.C.SA.004(1) 55 5.0T3 7 AUDIO_RESP_SYS_-_VOTRAX.C.SA.004 1 LINE 71 3 PAGE UM FRONCZAK SEP. 18, 1977 22:09:47 5.0T6 259 0 SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION ROUTINE. Object part of *PDP8RTN (116/2). 0 Referenced by comments of: 681/2, 681/5 1 MON AUG 05/96 18:37:45 Page 457 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00681/004 AUDIO RESP SYS - VOTRAX DICT SA G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.D.SA.006(1) 56 5.0T3 8 AUDIO_RESP_SYS_-_VOTRAX.D.SA.006 1 LINE 81 10 PAGE UM FRONCZAK SEP. 18, 1977 22:09:48 5.0T6 260 0 MORPH DIRECTORY MANIPULATION ROUTINES. Object part of *PDP8RTN (116/2). 0 Referenced by comments of: 681/2, 681/5 00681/005 AUDIO RESP SYS - VOTRAX RVGN SA G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.R.SA.008(1) 57 5.0T3 9 AUDIO_RESP_SYS_-_VOTRAX.R.SA.008 1 LINE 67 9 PAGE UM FRONCZAK SEP. 18, 1977 22:09:53 5.0T6 261 0 PROGRAM TO READ A SYMBOLIC VOCABULARY FILE, E.G. *ARUVOC (681/10), AND GENERATE ASSEMBLER INPUT WHICH, WHEN ASSEMBLED, PRODUCES AN OBJECT DECK FOR THE TREE STRUCTURE VOCABULARY. THIS PROGRAM CALLS CVTPB (681/3), DICT (681/4), RVST (681/7) AND REQUIRES *PLOTSYS (615/9). 0 Referenced by comments of: 681/9, 681/10 00681/006 AUDIO RESP SYS - VOTRAX RVGN OC G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.R.OC.009(1) 58 5.0T3 10 AUDIO_RESP_SYS_-_VOTRAX.R.OC.009 1 LINE 80 3 PAGE UM FRONCZAK SEP. 18, 1977 22:09:54 5.0T6 262 00681/007 AUDIO RESP SYS - VOTRAX RVST SF G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.R.SF.010(1) 59 5.0T3 11 AUDIO_RESP_SYS_-_VOTRAX.R.SF.010 1 LINE 71 4 PAGE UM FRONCZAK SEP. 18, 1977 22:09:55 5.0T6 263 0 SUBROUTINES TO COMPUTE, PRINT, AND PLOT VOCABULARY STATISTICS. 0 Referenced by comments of: 681/5 00681/008 AUDIO RESP SYS - VOTRAX RVST OC G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.R.OC.011(1) 60 5.0T3 12 AUDIO_RESP_SYS_-_VOTRAX.R.OC.011 1 LINE 248 5 PAGE UM FRONCZAK SEP. 18, 1977 22:09:56 5.0T6 264 00681/009 AUDIO RESP SYS - VOTRAX TREEDEF SA G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.T.SA.012(1) 61 5.0T3 13 AUDIO_RESP_SYS_-_VOTRAX.T.SA.012 1 LINE 65 2 PAGE UM FRONCZAK SEP. 18, 1977 22:09:57 5.0T6 265 0 THE OUTPUT (WHICH IS ASSEMBLER SOURCE) FROM RVGN (681/5) STARTS WITH A COPY PSEUDO-OP FOR "W070:VTREEDEF" WHICH COPIES THE INITIAL PART OF THE SOURCE. 00681/010 AUDIO RESP SYS - VOTRAX VOCABULARY D *ARUVOC 5.0T3 14 AUDIO_RESP_SYS_-_VOTRAX.V.D.013 1 LINE 95 31 PAGE UM FRONCZAK JULY 03, 1981 17:51:57 5.0T6 266 *ARUVOC 0 MORPH SYMBOLIC DIRECTORY FOR STANDARD VOTRAX VOCABULARY WHICH, WHEN RUN THROUGH RVGN (681/5), PRODUCES THE ASSEMBLER INPUT FOR THE VOCABULARY WHICH, WHEN ASSEMBLED, YIELDS THE SHARED VM VOCABULARY OBJECT WHICH IS PART OF *PDP8RTN (116/2). 0 Referenced by comments of: 681/2, 681/5 1 MON AUG 05/96 18:37:45 Page 458 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00681/011 AUDIO RESP SYS - VOTRAX VOCAB EDITOR SF G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.V.SF.015(1) 63 5.0T3 15 AUDIO_RESP_SYS_-_VOTRAX.V.SF.015 1 LINE 70 2 PAGE UM FRONCZAK SEP. 18, 1977 22:10:01 5.0T6 267 0 VOTRAX VOCABULARY LINE FILE EDITOR WITH AURAL VERIFICATION. SEE THE SOURCE FOR USAGE DIRECTIONS. 00681/012 AUDIO RESP SYS - VOTRAX VOCAB EDITOR OC G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.V.OC.016(1) 64 5.0T3 16 AUDIO_RESP_SYS_-_VOTRAX.V.OC.016 1 LINE 254 3 PAGE UM FRONCZAK SEP. 18, 1977 22:10:02 5.0T6 268 0 CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD. TO USE, EXTRACT THE CSECT CVTPB FROM *PDP8RTN (116/2) AND PLACE IT IN A FILE BY THE NAME "VOTRX.CVT.O". 00681/013 AUDIO RESP SYS - VOTRAX TALK SF G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.T.SF.017(1) 65 5.0T3 17 AUDIO_RESP_SYS_-_VOTRAX.T.SF.017 1 LINE 64 1 PAGE UM FRONCZAK SEP. 18, 1977 22:10:03 5.0T6 269 0 SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION PROGRAM WITH AURAL VERIFICATION. SEE THE SOURCE FOR USAGE DIRECTIONS. 00681/014 AUDIO RESP SYS - VOTRAX TALK OC G S0565 D4T3 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.T.OC.018(1) 66 5.0T3 18 AUDIO_RESP_SYS_-_VOTRAX.T.OC.018 1 SEQ 340 1 PAGE UM FRONCZAK SEP. 18, 1977 22:10:04 5.0T6 270 0 CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD. TO USE, EXTRACT THE CSECT CVTPB FROM *PDP8RTN (116/2) AND PLACE IT IN A FILE BY THE NAME "VOTRX.CVT.O". 00681/015 AUDIO RESP SYS - VOTRAX DSR TEST SA G S1319 D4.2T1 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.D.SA.019(1) 628 5.0T3 19 AUDIO_RESP_SYS_-_VOTRAX.D.SA.019 1 LINE 72 8 PAGE UM FRONCZAK APR. 02, 1979 00:45:49 5.0T6 271 0 PROGRAM TO INDEPENDENTLY TEST THE VOTRAX ROUTINES WHICH ARE CALLED BY PDP8RTN (116). SEE THE SOURCE FOR USAGE DIRECTIONS. 00681/016 AUDIO RESP SYS - VOTRAX DSR TEST OC G S1319 D4.2T1 VLO FSNAME=AUDIO_RESP_SYS_-_VOTRAX.D.OC.020(1) 629 5.0T3 20 AUDIO_RESP_SYS_-_VOTRAX.D.OC.020 1 LINE 80 3 PAGE UM FRONCZAK APR. 02, 1979 00:45:50 5.0T6 272 00681/017 AUDIO RESP SYS - VOTRAX *ARUDEF D *ARUDEF 5.0T3 21 AUDIO_RESP_SYS_-_VOTRAX.*.D.021 1 LINE 10 1 PAGE UM FRONCZAK JULY 03, 1981 17:52:05 5.0T6 273 *ARUDEF 0 PUBLIC TEXT DEFINITION FILE FOR TEXT INSERTION MODE. 00682/001 FILE SYSTEM RECOVERY DOCUMENTATION WF FILE:UBC.DISK.W 5.0T3 22 FILE_SYSTEM_RECOVERY.DOCU.WF.001 1 LINE 92 7 PAGE UM HELFFRICH JULY 03, 1981 17:52:06 5.0T6 274 FILE:UBC.DISK.W 0 THIS COMPONENT CONTAINS A COLLECTION OF REFERENCE INFORMATION AND PROGRAM DESCRIPTIONS WHICH CAN BE USED TO RECOVER FROM HARDWARE AND SOFTWARE DISK DISASTERS. (682/1) IS A WRITEUP DESCRIBING THE USAGE OF THE SEVERAL PROGRAMS AND A DESCRIPTION OF THE DISK ORGANIZATION. THE FORMAT INCLUDE FUNCTION IS USED TO REFERENCE THE 1 MON AUG 05/96 18:37:45 Page 459 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 VARIOUS PIECES OF THIS WRITEUP (682/2) THROUGH (682/17). 0 Referenced by comments of: 482/53, 682/1 00682/002 FILE SYSTEM RECOVERY CCATL DESC WF FILE:CCATL.W 5.0T3 23 FILE_SYSTEM_RECOVERY.CCAT.WF.002 1 LINE 93 2 PAGE UM HELFFRICH JULY 03, 1981 17:52:07 5.0T6 275 FILE:CCATL.W 0 WRITEUP DESCRIBING THE CCATL PROGRAM (442). 0 Referenced by comments of: 442/1, 682/1 00682/003 FILE SYSTEM RECOVERY PM DESC WF FILE:PM.W 5.0T3 24 FILE_SYSTEM_RECOVERY.PM_D.WF.003 1 LINE 62 2 PAGE UBC O'REILLY HELFFRICH JULY 03, 1981 17:52:08 5.0T6 276 FILE:PM.W 0 WRITEUP DESCRIBING THE PACK MAP PROGRAM (1030). 0 Referenced by comments of: 1030/1 00682/004A FILE SYSTEM RECOVERY DSKMAN DESC WF FILE:DSKMAN.W 5.0T3 25 FILE_SYSTEM_RECOVERY.DSKM.WF.004 1 LINE 73 1 PAGE UM HELFFRICH JULY 03, 1981 17:52:09 5.0T6 277 FILE:DSKMAN.W 0 WRITEUP DESCRIBING THE DSKMAN (*DSK) PROGRAM (073). 0 Referenced by comments of: 73/3 00682/005 FILE SYSTEM RECOVERY DASDI DESC WF FILE:DASDI.W 5.0T3 26 FILE_SYSTEM_RECOVERY.DASD.WF.005 1 LINE 80 2 PAGE UM HELFFRICH JULY 03, 1981 17:52:10 5.0T6 278 FILE:DASDI.W 0 WRITEUP DESCRIBING THE 3330 DASDI PROGRAM (598). 00682/006 FILE SYSTEM RECOVERY CHONID DESC WF FILE:CHONID.W 5.0T3 27 FILE_SYSTEM_RECOVERY.CHON.WF.006 1 LINE 76 1 PAGE UM HELFFRICH JULY 03, 1981 17:52:10 5.0T6 279 FILE:CHONID.W 0 WRITEUP DESCRIBING THE CHONID PROGRAM (599). 0 Referenced by comments of: 599/1 00682/007A FILE SYSTEM RECOVERY FM DESC WF FILE:FM.W 5.0T3 28 FILE_SYSTEM_RECOVERY.FM_D.WF.007 1 LINE 70 2 PAGE UBC HOGG HELFFRICH AUG. 06, 1981 05:16:26 5.0T6 280 FILE:FM.W 0 WRITEUP DESCRIBING THE FILE MOVE PROGRAM (1020). 0 Referenced by comments of: 1020/1 1 MON AUG 05/96 18:37:45 Page 460 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00682/008A FILE SYSTEM RECOVERY CHKVTOC DESC WF FILE:CHKVTOC.W 5.0T3 29 FILE_SYSTEM_RECOVERY.CHKV.WF.008 1 LINE 73 1 PAGE UM HELFFRICH JULY 03, 1981 17:52:12 5.0T6 281 FILE:CHKVTOC.W 0 WRITEUP DESCRIBING THE CHKVTOC PROGRAM (682/20). 0 Referenced by comments of: 682/20 00682/009A FILE SYSTEM RECOVERY TABLMOD DESC WF FILE:TABLMOD.W 5.0T3 30 FILE_SYSTEM_RECOVERY.TABL.WF.009 1 LINE 76 1 PAGE UM HELFFRICH JULY 03, 1981 17:52:12 5.0T6 282 FILE:TABLMOD.W 0 WRITEUP DESCRIBING THE TABLMOD PROGRAM (554). 0 Referenced by comments of: 554/1 00682/010 FILE SYSTEM RECOVERY VNTD DESC WF FILE:VNTD.W 5.0T3 31 FILE_SYSTEM_RECOVERY.VNTD.WF.010 1 LINE 71 1 PAGE UM HELFFRICH JULY 03, 1981 17:52:13 5.0T6 283 FILE:VNTD.W 0 WRITEUP DESCRIBING THE VNTD PROGRAM (682/18). 0 Referenced by comments of: 682/18 00682/011 FILE SYSTEM RECOVERY FSTEST DESC WF FILE:FSTEST.W 5.0T3 32 FILE_SYSTEM_RECOVERY.FSTE.WF.011 1 LINE 101 4 PAGE UM HELFFRICH JULY 03, 1981 17:52:14 5.0T6 284 FILE:FSTEST.W 0 WRITEUP DESCRIBING THE FSTEST PROGRAM (482/41). 00682/012 FILE SYSTEM RECOVERY VAMREC DESC WF FILE:VAMREC.WRUP 5.0T3 33 FILE_SYSTEM_RECOVERY.VAMR.WF.012 1 LINE 108 5 PAGE SFU BENET HELFFRICH JULY 03, 1981 17:52:15 5.0T6 285 FILE:VAMREC.WRUP 0 WRITEUP DESCRIBING THE VAMREC PROGRAM (682/22). 0 Referenced by comments of: 682/22 00682/013A FILE SYSTEM RECOVERY RECOVERING WF FILE:RECOVERING 5.0T3 34 FILE_SYSTEM_RECOVERY.RECO.WF.013 1 LINE 182 7 PAGE UM HELFFRICH JULY 03, 1981 17:52:15 5.0T6 286 FILE:RECOVERING 0 DESCRIPTION OF PROCEDURES SUGGESTED FOR RECOVERING FROM DISK DISASTERS. 0 Referenced by comments of: 682/44 00682/014 FILE SYSTEM RECOVERY LINE FILE DESC WF FILE:DOC.DESC.LNE 5.0T3 35 FILE_SYSTEM_RECOVERY.LINE.WF.014 1 LINE 136 4 PAGE UM HELFFRICH JULY 03, 1981 17:52:19 5.0T6 287 FILE:DOC.DESC.LNE 0 DESCRIPTION OF MTS LINE FILE ORGANIZATION. 1 MON AUG 05/96 18:37:45 Page 461 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00682/015 FILE SYSTEM RECOVERY SEQ FILE DESC WF FILE:DOC.DESC.SEQ 5.0T3 36 FILE_SYSTEM_RECOVERY.SEQ.WF.015 1 LINE 130 4 PAGE UM HELFFRICH JULY 03, 1981 17:52:19 5.0T6 288 FILE:DOC.DESC.SEQ 0 DESCRIPTION OF MTS SEQ FILE ORGANIZATION. 00682/016 FILE SYSTEM RECOVERY CAT DESC WF FILE:DOC.DESC.CAT 5.0T3 37 FILE_SYSTEM_RECOVERY.CAT.WF.016 1 LINE 190 7 PAGE UM HELFFRICH JULY 03, 1981 17:52:20 5.0T6 289 FILE:DOC.DESC.CAT 0 DESCRIPTION OF MTS FILE CATALOG ORGANIZATION. 00682/017 FILE SYSTEM RECOVERY TAB DESC WF FILE:DOC.DESC.TAB 5.0T3 38 FILE_SYSTEM_RECOVERY.TAB.WF.017 1 LINE 131 5 PAGE UM HELFFRICH JULY 03, 1981 17:52:22 5.0T6 290 FILE:DOC.DESC.TAB 0 DESCRIPTION OF MTS SHARED FILE TABLE ORGANIZATION. 0 Referenced by comments of: 682/1 00682/018A FILE SYSTEM RECOVERY VNTD SA G FILE:VNTD(1000) 5.0T3 39 FILE_SYSTEM_RECOVERY.VNTD.SA.018 1 LINE 80 23 PAGE UM HELFFRICH AUG. 06, 1981 05:16:40 5.0T6 291 0 PROGRAM TO VERIFY, TRACE, AND/OR DUMP THE FILE SYSTEM CATALOG. IT WILL VERIFY, TRACE, AND/OR DUMP THE ENTIRE CATALOG, A PARTICULAR USER CATALOG, OR A PARTICULAR USER FILE. SEE COMP (682/10) FOR A WRITEUP. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/45). COPIES *GDINFODSECT (594). 0 Referenced by comments of: 451/1, 682/10, 682/26, 682/28 00682/019A FILE SYSTEM RECOVERY VNTD OC G FILE:VNTD(1,998) 5.0T3 40 FILE_SYSTEM_RECOVERY.VNTD.OC.019 1 LINE 80 10 PAGE UM HELFFRICH AUG. 06, 1981 05:16:46 5.0T6 292 FILE:VNTD 00682/020A FILE SYSTEM RECOVERY CHKVTOC SA G FILE:CHKVTOC(1000) 5.0T3 41 FILE_SYSTEM_RECOVERY.CHKV.SA.020 1 LINE 72 16 PAGE UM HELFFRICH JULY 03, 1981 17:52:30 5.0T6 293 FILE:CHKVTOC 0 PROGRAM TO CHECK CONSISTENCY OF PAGE ASSIGNMENT TABLE (PAT) WITH TYPE E'S AND TYPE F'S FOR A PARTICULAR VOLUME. REQUIRES SYMBOLS IN SYSDEFS. ASSEMBLE USING COPY:FILE.MACROS (482/45) AND *SYSMAC. CALLS VTOCREAD SUBROUTINE (067/3). SEE COMP (682/8) FOR A WRITEUP. ********************************************************************************* D5.0 CHANGES: This version is considerably changed from the D4.0 version and contains Disk Manager (769) support. ********************************************************************************* 0 Referenced by comments of: 597/1, 682/8 1 MON AUG 05/96 18:37:45 Page 462 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00682/021A FILE SYSTEM RECOVERY CHKVTOC OC G FILE:CHKVTOC(1,999) 5.0T3 42 FILE_SYSTEM_RECOVERY.CHKV.OC.021 1 LINE 80 7 PAGE UM HELFFRICH JULY 03, 1981 17:52:34 5.0T6 294 0 CONTAINS A "$CONTINUE WITH RSTR:VTOCREAD+COPY:SYSDEFS" LINE. 0 Referenced by comments of: 597/1 00682/022A FILE SYSTEM RECOVERY VAMREC SA G FILE:VAMREC(1000) 5.0T3 43 FILE_SYSTEM_RECOVERY.VAMR.SA.022 1 LINE 72 64 PAGE SFU BENET HELFFRICH AUG. 06, 1981 05:16:57 5.0T6 295 FILE:VAMREC 0 THE VAMREC DISK UTILITY. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE WITH COPY:FILE.MACROS (482/45), COPY:CC.MACROS (1054/3), COPY:UC.MACROS (787/1), AND COPY:MISC.MACROS (728). SEE COMPONENT (682/12) FOR A WRITEUP. ********************************************************************************* D5.0 CHANGES: This version is considerably changed from D4.0 and has been recoded according to coding convention standards. ********************************************************************************* 0 Referenced by comments of: 682/12, 3030/1 00682/023A FILE SYSTEM RECOVERY VAMREC OC G FILE:VAMREC(1,999) 5.0T3 44 FILE_SYSTEM_RECOVERY.VAMR.OC.023 1 LINE 22028 21 PAGE SFU BENET HELFFRICH AUG. 06, 1981 05:17:23 5.0T6 296 0 HAS $CONTINUE WITH COPY:DEFS (579/10) RECORD. 0 Referenced by comments of: 3030/1 00682/024A FILE SYSTEM RECOVERY FIXEH SA G FILE:FIXEH(1,999) 5.0T3 45 FILE_SYSTEM_RECOVERY.FIXE.SA.024 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 17:53:44 5.0T6 297 FILE:FIXEH 0 PROGRAM TO FIX EXTENT HEADERS IN THE CATALOG BY CLEARING THE IN-USE BITS FOR ALL SEGMENTS IN A RECORD OF THE CATALOG WHICH IS ALL ZERO. IT WILL ALSO CHECK THAT THE RECORD HEADER OF ANY NON-ZERO RECORD (WITH A SEGMENT FLAGGED AS BEING IN-USE) IS CORRECT. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00682/025A FILE SYSTEM RECOVERY FIXEH OC G FILE:FIXEH(1000) 5.0T3 46 FILE_SYSTEM_RECOVERY.FIXE.OC.025 1 LINE 80 2 PAGE UM HELFFRICH JULY 03, 1981 17:53:45 5.0T6 298 00682/026A FILE SYSTEM RECOVERY FIXCAT SA G FILE:FIXCAT(1000) 5.0T3 47 FILE_SYSTEM_RECOVERY.FIXC.SA.026 1 LINE 72 8 PAGE UM HELFFRICH JULY 03, 1981 17:53:46 5.0T6 299 FILE:FIXCAT 0 PROGRAM TO RECHAIN CATALOG SEGMENTS BACK TOGETHER AND ADD OR REMOVE MASTER INDEX ENTRIES AS REQUIRED. IT TAKES AS INPUT, THE OUTPUT FROM VNTD (682/18) AND PRODUCES AS OUTPUT A LIST OF USERIDS WHOSE CATALOGS WERE AFFECTED. THIS OUTPUT IS THEN USED FOR INPUT TO AMALGAMATE (682/37). ASSEMBLE USING COPY:FILE.MACROS (482/45). 1 MON AUG 05/96 18:37:45 Page 463 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00682/027A FILE SYSTEM RECOVERY FIXCAT OC G FILE:FIXCAT(1,999) 5.0T3 48 FILE_SYSTEM_RECOVERY.FIXC.OC.027 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 17:53:52 5.0T6 300 00682/028A FILE SYSTEM RECOVERY FIXSD SA G FILE:FIXSD(1,999) 5.0T3 49 FILE_SYSTEM_RECOVERY.FIXS.SA.028 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 17:53:55 5.0T6 301 FILE:FIXSD 0 PROGRAM TO FIX SHARING DESCRIPTORS BY ZEROING ANY SD WHICH IS NOT POINTED TO BY A FD OR SD. IT ALSO WILL ZERO THE PREVIOUS POINTER IN THE FD OR SD FOR ANY LOST SD. IT TAKES AS INPUT THE OUTPUT FROM VNTD (682/18) AND PROVIDES AS OUTPUT A LIST OF FILES WHICH LOST SHARING INFORMATION. THIS OUTPUT IS THEN USED FOR INPUT TO AMALGAMATE (682/37). ASSEMBLE USING COPY:FILE.MACROS (482/45). 00682/029A FILE SYSTEM RECOVERY FIXSD OC G FILE:FIXSD(1000) 5.0T3 50 FILE_SYSTEM_RECOVERY.FIXS.OC.029 1 LINE 80 3 PAGE UM HELFFRICH JULY 03, 1981 17:53:55 5.0T6 302 00682/030A FILE SYSTEM RECOVERY RECATALOG SA G RCAT FILE:RECATALOG(1,999) 5.0T3 51 FILE_SYSTEM_RECOVERY.RECA.SA.030 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 17:53:56 5.0T6 303 FILE:RECATALOG 0 SUBROUTINE TO RECATALOG A FILE FROM SCRATCH. IT TAKES AS INPUT, A FILENAME AND DSCB ADDRESS. IT ALSO DETERMINES THE FILE TYPE AND SETS IT ACCORDINGLY. ASSEMBLE USING COPY:FILE.MACROS (482/45). 00682/031A FILE SYSTEM RECOVERY RECATALOG OC G FILE:RECATALOG(1000) 5.0T3 52 FILE_SYSTEM_RECOVERY.RECA.OC.031 1 LINE 80 1 PAGE UM HELFFRICH JULY 03, 1981 17:53:57 5.0T6 304 00682/032A FILE SYSTEM RECOVERY CALLDR SA G FILE:CALLDR(1,999) 5.0T3 53 FILE_SYSTEM_RECOVERY.CALL.SA.032 1 LINE 69 1 PAGE UM HELFFRICH JULY 03, 1981 17:53:58 5.0T6 305 FILE:CALLDR 0 PROGRAM WHICH CALLS DESTRYR TO DESTROY FILES. SEE THE SOURCE FOR USAGE DETAILS. 00682/033A FILE SYSTEM RECOVERY CALLDR OC G FILE:CALLDR(1000) 5.0T3 54 FILE_SYSTEM_RECOVERY.CALL.OC.033 1 LINE 80 1 PAGE UM HELFFRICH JULY 03, 1981 17:53:59 5.0T6 306 00682/034A FILE SYSTEM RECOVERY FILES SA G FILE:STARFILES(1,999) 5.0T3 55 FILE_SYSTEM_RECOVERY.FILE.SA.034 1 LINE 74 4 PAGE UM HELFFRICH JULY 03, 1981 17:54:00 5.0T6 307 FILE:STARFILES 0 PROGRAM TO PRINT WHICH USERS FILES HAVE BEEN AFFECTED AND HOW BY A DISK CRASH. IT TAKES AS INPUT A DESCRIPTION OF THE DISASTER AND OTHER DATA IN FILE:FILELIST. SEE THE SOURCE FOR DETAILS ON THE FORMAT OF THIS FILE. THE OUTPUT FROM AMALGAMATE (682/37) IS BASICALLY WHAT IS USED TO GENERATE THIS DATA FILE WITH THE HELP OF *MVC, *COMBINE, THE EDITOR, ETC. 1 MON AUG 05/96 18:37:45 Page 464 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00682/035A FILE SYSTEM RECOVERY FILES OC G FILE:STARFILES(1000) 5.0T3 56 FILE_SYSTEM_RECOVERY.FILE.OC.035 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 17:54:01 5.0T6 308 0 PUT THIS IN *FILES AFTER A DISK CRASH. 00682/036A FILE SYSTEM RECOVERY FILE UPDATE OC G FILE:FILEUPD 5.0T3 57 FILE_SYSTEM_RECOVERY.FILE.OC.036 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 17:54:02 5.0T6 309 FILE:FILEUPD 0 OBJECT FOR ACCRDWRT (104/35), ACCUPDAT (104/28), AND A DUMMY PRINT ROUTINE, PLUS $CONTINUE WITHS FOR ACATALOG (104/115), ACATSUB (104/116), VTOCREAD (067/3), TEST DSACC (482/39), ACCLIB (104/42), AND SYSDEFS (579), WHICH WHEN RUN WITH UNIT ZERO ASSIGNED TO *DUMMY* AND UNIT ONE ASSIGNED TO AN EMPTY FILE WILL UPDATE THE FILE SPACE FIELDS IN THE ACCOUNTING RECORDS FOR ALL USERS (QUICKLY). CONTAINS REP CARD TO INCREASE SPEED BY KEEPING ACCOUNTING FILES LOCKED MORE. 00682/037A FILE SYSTEM RECOVERY AMALGAMATE SA G FILE:AMALGAMATE(1000) 5.0T3 58 FILE_SYSTEM_RECOVERY.AMAL.SA.037 1 LINE 72 6 PAGE UM HELFFRICH JULY 03, 1981 17:54:03 5.0T6 310 FILE:AMALGAMATE 0 PROGRAM TO TAKE A LIST OF FILES AND USE "FILEDIR.MAS" TO APPEND TAPE LOCATION INFORMATION FOR USE BY FASTRESTORE (671/1). ALSO COMPARES "FILEDIR.MAS" WITH FILE SYSTEM CATALOG TO LOCATE FILES WHOSE DATA IS LOST (NOT ON ANY RESTORE TAPES) AND WHOSE SHARING INFORMATION HAS BEEN DAMAGED (ALSO NOT ON ANY RESTORE TAPES). CALLS CHKFILE (682/39). COPIES *CNFGINFODSECT (654). ASSEMBLE WITH THE FILE SAVE MACROS (067/31). NOTE: THE DIRECTORY FILES RSTR:FILEDIR.MAS, RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR MUST BE PERMITTED WITH READ ACCESS TO FILE&PKEY=DISTASTER. 0 Referenced by comments of: 682/26, 682/28, 682/34, 682/39, 682/44 00682/038A FILE SYSTEM RECOVERY AMALGAMATE OC G FILE:AMALGAMATE(1,999) 5.0T3 59 FILE_SYSTEM_RECOVERY.AMAL.OC.038 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 17:54:04 5.0T6 311 0 HAS A "$CONTINUE WITH MTS:UBCDATEX+FILE:CHKFILE RETURN" LINE. THE PKEY OF THIS FILE SHOULD BE "DISASTER". 0 Referenced by comments of: 671/1 00682/039A FILE SYSTEM RECOVERY CHKFILE SUBR SA G FILE:CHKFILE(1000) 5.0T3 60 FILE_SYSTEM_RECOVERY.CHKF.SA.039 1 LINE 71 4 PAGE UM HELFFRICH JULY 03, 1981 17:54:06 5.0T6 312 FILE:CHKFILE 0 ALTERNATE VERSION OF SYSTEM CHKFILE ROUTINE FOR USE BY MERGE (067/23) AND AMALGAMATE (682/37). COPIES *CNFGINFODSECT (654). ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 67/23, 682/37, 752/1 1 MON AUG 05/96 18:37:45 Page 465 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00682/040A FILE SYSTEM RECOVERY CHKFILE SUBR OC G FILE:CHKFILE(1,999) 5.0T3 61 FILE_SYSTEM_RECOVERY.CHKF.OC.040 1 LINE 80 3 PAGE UM HELFFRICH JULY 03, 1981 17:54:07 5.0T6 313 0 CONTAINS A "$CONTINUE WITH COPY:SYSDEFS" (579/3) RECORD. 00682/041A FILE SYSTEM RECOVERY CALLRELDSK SA G FILE:CALLRELDSK(1000) 5.0T3 62 FILE_SYSTEM_RECOVERY.CALL.SA.041 1 LINE 72 1 PAGE UM HELFFRICH JULY 03, 1981 17:54:07 5.0T6 314 FILE:CALLRELDSK 0 PROGRAM TO TAKE ACATSUB OUTPUT AND CALL RELDSK TO DESTROY UNCATALOGED FILES. ASSEMBLE WITH COPY:FILE.MACROS (482/45). 00682/042A FILE SYSTEM RECOVERY CALLRELDSK OC G FILE:CALLRELDSK(1,999) 5.0T3 63 FILE_SYSTEM_RECOVERY.CALL.OC.042 1 LINE 80 1 PAGE UM HELFFRICH JULY 03, 1981 17:54:08 5.0T6 315 00682/043 FILE SYSTEM RECOVERY VAMREC-CHKVTOC SS G FILE:VAMREC->CHKV 5.0T3 64 FILE_SYSTEM_RECOVERY.VAMR.SS.043 1 LINE 66 1 PAGE UM HELFFRICH JULY 03, 1981 17:54:09 5.0T6 316 FILE:VAMREC->CHKV 0 SPITBOL PROGRAM TO TAKE DISK I/O ERROR OUTPUT FROM VAMREC AND GENERATE CHKVTOC INPUT. THIS IS TO ALLOW ONE TO LOCATE FILES WHOSE DATA PAGES ARE GIVING DATA CHECKS. 00682/044A FILE SYSTEM RECOVERY CATDSCBCOMP SA G FILE:CATDSCBCOMP(1,999) 5.0T3 65 FILE_SYSTEM_RECOVERY.CATD.SA.044 1 LINE 72 8 PAGE UM HELFFRICH JULY 03, 1981 17:54:09 5.0T6 317 FILE:CATDSCBCOMP 0 PROGRAM TO VERIFY CATALOG/DSCB CONSISTENCY. IT PRODUCES LISTS TO BE USED WITH AMALGAMATE (682/37). SEE (682/13) FOR COMPLETE INSTRUCTIONS. CALLS VTOCREAD (067/3). COPIES COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 104/116 00682/045A FILE SYSTEM RECOVERY CATDSCBCOMP OC G FILE:CATDSCBCOMP(1000) 5.0T3 66 FILE_SYSTEM_RECOVERY.CATD.OC.045 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 17:54:11 5.0T6 318 0 CONTAINS $CONTINUE WITH RSTR/VTOCREAD (067/3) AND COPY:SYSDEFS (579/3) RECORDS. 00683/001 MTS VOLUME 15 MASTER WT S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_15.MASTER.WT.001(1) 642 5.0T3 67 MTS_VOLUME_15.MASTER.WT.001 1 SEQ 132 158 PAGE UM MANUAL APR. 02, 1979 00:46:49 5.0T6 319 0 TEXT/360 MASTER FOR VOLUME 15 "FORMAT AND TEXT360" OF THE UM MTS MANUALS, APRIL 1977, UPDATED FEBRUARY 1979. EDITOR: RICHARD A. SALISBURY 1 MON AUG 05/96 18:37:45 Page 466 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00683/002 MTS VOLUME 15 PRINT PT S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_15.PRINT.PT.002(1) 643 5.0T3 68 MTS_VOLUME_15.PRINT.PT.002 1 SEQ 132 277 PAGE UM MANUAL APR. 02, 1979 00:47:01 5.0T6 320 0 TEXT/360 PRINT FILE. 00683/003 MTS VOLUME 15 INDEX SOURCE D S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_15.INDEX_SOURC.D.003(1) 644 5.0T3 69 MTS_VOLUME_15.INDEX_SOURC.D.003 1 SEQ 147 5 PAGE UM MANUAL APR. 02, 1979 00:47:16 5.0T6 321 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 15. 00683/004 MTS VOLUME 15 UPDATE 1 PT S1319 D4.2T1 VLO FSNAME=MTS_VOLUME_15.UPDATE_1.PT.004(1) 645 5.0T3 70 MTS_VOLUME_15.UPDATE_1.PT.004 1 LINE 133 59 PAGE UM MANUAL APR. 02, 1979 00:47:17 5.0T6 322 0 THIS IS COMPUTING CENTER MEMO 396 -- "UPDATE 1 TO MTS VOLUME 15," FEBRUARY 1979. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00684/001 OXFORD SA G S0565 D4T3 VLO FSNAME=OXFORD..SA.001(1) 111 5.0T3 71 OXFORD..SA.001 1 LINE 80 24 PAGE UBC HOGG DWB JULY 28, 1977 23:24:13 5.0T6 323 0 IF THIS DECK IS PRESENT IN THE RESIDENT SYSTEM, MTS WILL PRODUCE "FRED WORDS" (FOUR LETTER ENGLISH WORDS) IN THE INTERSTICES OF THE EDGELINE FOR BATCH AND *PRINT* OUTPUT DESIGNED TO AID SEPARATION OF PRINTED OUTPUT. MTS HAS A WXTRN FOR OXFORD AND TESTS IT FOR ZERO TO SKIP THE CALL IF NOT PRESENT. 00684/002 OXFORD OC G S0565 D4T3 VLO FSNAME=OXFORD..OC.002(1) 112 5.0T3 72 OXFORD..OC.002 1 LINE 80 3 PAGE UBC HOGG DWB JULY 28, 1977 23:24:15 5.0T6 324 00685/001 UNSUPPORTED SOFTWARE CATALOG P UNSP:CATALOG 5.0T3 73 UNSUPPORTED_SOFTWARE.CATA.P.001 1 LINE 68 6 PAGE UM UNSP JULY 03, 1981 17:54:35 5.0T6 325 UNSP:CATALOG 0 LIST OF UNSP FILES AVAILABLE AT UM. NOTE: NOT ALL OF THE ITEMS IN THIS LIST ARE INCLUDED IN THE DISTRIBUTION. 00685/002 UNSUPPORTED SOFTWARE SUBR LIBRARY OL O UNSP:LIBRARY 5.0T3 74 UNSUPPORTED_SOFTWARE.SUBR.OL.002 1 LINE 1382 3 PAGE UM UNSP AUG. 06, 1981 05:18:10 5.0T6 326 UNSP:LIBRARY 0 SUBROUTINE LIBRARY -- ROUTINES INCLUDED SEPARATELY. 0 Referenced by comments of: 108/1, 528/62, 642/6, 642/25, 685/7, 688/2, 689/2, 695/2, 765/1, 773/3, 774/3, 783/14, 784/3, 785/2, 785/3, 796/2, 796/5, 797/2, 1052/2 00685/003 UNSUPPORTED SOFTWARE MACRO LIBRARY SM G UNSP:MACLIB 5.0T3 75 UNSUPPORTED_SOFTWARE.MACR.SM.003 1 LINE 72 5 PAGE UM UNSP MTA JULY 03, 1981 17:54:39 5.0T6 327 UNSP:MACLIB 0 MACRO LIBRARY CONTAINING CLCL, MVCL, AND SEXIT MACROS AMONG OTHERS. THESE MACROS ARE DESCRIBED IN THE (685/4) WRITEUP. 1 MON AUG 05/96 18:37:45 Page 467 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 590/14, 590/15, 590/16, 590/17, 590/18, 590/19, 590/20, 590/21, 590/26, 685/4 00685/004 UNSUPPORTED SOFTWARE MACRO LIBRARY WF S1153 UNSP VLO FSNAME=MACLIB.F 5.0T3 76 UNSUPPORTED_SOFTWARE.MACR.WF.004 1 LINE 72 4 PAGE UM UNSP MTA JAN. 15, 1979 15:28:38 5.0T6 328 0 A WRITEUP DESCRIBING THE MACROS THAT ARE AVAILABLE IN UNSP:MACLIB (685/3). 0 Referenced by comments of: 685/3, 728/1 00685/005 UNSUPPORTED SOFTWARE MACRO TEST PGM SA S0938 FSAVE2 VLO FSNAME=MIFMACTEST 5.0T3 77 UNSUPPORTED_SOFTWARE.MACR.SA.005 1 LINE 72 2 PAGE UM UNSP MTA NOV. 02, 1979 23:04:04 5.0T6 329 0 TEST PROGRAM FOR "MIF" MACROS. COPIES COPY:GLOBALS (1026/3). ASSEMBLE, BUT DON'T RUN IT. 00685/006 UNSUPPORTED SOFTWARE NEWS P UNSP:NEWS 5.0T3 78 UNSUPPORTED_SOFTWARE.NEWS.P.006 1 LINE 69 14 PAGE UM UNSP JULY 03, 1981 17:56:01 5.0T6 330 0 LIST OF MOST CHANGES MADE TO UNSUPPORTED SOFTWARE AT UM. 00685/007A UNSUPPORTED SOFTWARE SUBR LIBRARY P UNSP:LIBRARY.W 5.0T3 79 UNSUPPORTED_SOFTWARE.SUBR.P.007 1 LINE 73 1 PAGE UM UNSP JULY 03, 1981 17:56:03 5.0T6 331 0 A WRITEUP FOR UNSP:LIBRARY (685/2). 00686/001A MICRO CROSS-ASSEMBLER GENCODE SA G MINI:ASM.GENCODE 5.0T3 80 MICRO_CROSS-ASSEMBLER.GEN.SA.001 1 LINE 72 111 PAGE UM FRONCZAK JULY 03, 1981 17:56:04 5.0T6 332 0 M6800ASR IS A CROSS-ASSEMBLER FOR THE MOTOROLA M6800 MICROPROCESSOR. MCS650XASR IS A CROSS-ASSEMBLER FOR THE MOS TECHNOLOGY MCS6500 FAMILY OF MICROCOMPUTERS. I8080ASR IS A CROSS-ASSEMBLER FOR THE INTEL 8080 MICROPROCESSOR. Z80ASR IS A CROSS-ASSEMBLER FOR THE ZILOG Z80 MICROPROCESSOR. M6809ASR IS A CROSS-ASSEMBLER FOR THE MOTOROLA 6809 MICROPROCESSOR. THESE WERE ORIGINALLY WRITTEN BY CLARK LUBBERS AT UM. NOTE: ALL SUBCOMPONENTS OF (686) SHOULD BE ASSEMBLED USING *ASMH (737), COPY:CC.MACROS (1054/3), MINI:ASM.MACRO (686/21), AND *SYSMAC WITH PAR=PEXIT=*PEXIT (775). THIS SUBCOMPONENT IS THE GENERAL SYSTEM- AND ASSEMBLER-INDEPENDENT CODE. COPIES (686/20). ***************************************************************************** D5.0 version: No further work has been done on the UNSP versions since they were last distributed and no further work will be done. This distribution contains the new GENASM versions of the cross-assemblers which are in MTS public files and are documented in (686/34) and (686/35). All Micro Cross-Assembler 1 MON AUG 05/96 18:37:45 Page 468 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 subcomponents which are assembler-independent are common in all cross- assembler public files. The specific assembler-dependent components differ among the public files. ***************************************************************************** 0 Referenced by comments of: 686/1 00686/002A MICRO CROSS-ASSEMBLER KWIC SA G MINI:ASM.RMKWIC 5.0T3 81 MICRO_CROSS-ASSEMBLER.KWI.SA.002 1 LINE 72 13 PAGE UM FRONCZAK JULY 03, 1981 17:56:12 5.0T6 333 0 SYSTEM- AND ASSEMBLER-INDEPENDENT KEYWORD SCANNER ROUTINE. 00686/003A MICRO CROSS-ASSEMBLER SYMTAB SA G MINI:ASM.RMSYM 5.0T3 82 MICRO_CROSS-ASSEMBLER.SYM.SA.003 1 LINE 81 13 PAGE UM FRONCZAK JULY 03, 1981 17:56:14 5.0T6 334 0 SYSTEM- AND ASSEMBLER-INDEPENDENT SYMBOL TABLE ROUTINES. 00686/004A MICRO CROSS-ASSEMBLER SYSCODE SA G MINI:ASM.SYSCODE 5.0T3 83 MICRO_CROSS-ASSEMBLER.SYS.SA.004 1 LINE 72 20 PAGE UM FRONCZAK JULY 03, 1981 17:56:15 5.0T6 335 0 MTS-DEPENDENT, ASSEMBLER-INDEPENDENT CODE. COPIES (686/20). 00686/005A MICRO CROSS-ASSEMBLER MACROP SA G MINI:ASM.MACROP 5.0T3 84 MICRO_CROSS-ASSEMBLER.MAC.SA.005 1 LINE 78 64 PAGE UM FRONCZAK JULY 03, 1981 17:56:17 5.0T6 336 0 SYSTEM- AND ASSEMBLER-INDEPENDENT MACRO PROCESSOR. 0 Referenced by comments of: 686/33 00686/006A MICRO CROSS-ASSEMBLER EVALEXP SA G MINI:ASM.EVALEXP 5.0T3 85 MICRO_CROSS-ASSEMBLER.EVA.SA.006 1 LINE 71 28 PAGE UM FRONCZAK JULY 03, 1981 17:56:27 5.0T6 337 0 SYSTEM- AND ASSEMBLER-INDEPENDENT, ARITHMETIC/BOOLEAN, TABLE-DRIVEN EXPRESSION SCANNER. 00686/007C MICRO CROSS-ASSEMBLER PROCCONS SA G MINI:ASM.PROCCONS 5.0T3 86 MICRO_CROSS-ASSEMBLER.PRO.SA.007 1 LINE 71 18 PAGE UM FRONCZAK JULY 03, 1981 17:56:29 5.0T6 338 0 System-independent, assembler-independent table-driven, data-typed constant evaluator. 0 Referenced by comments of: 686/32 1 MON AUG 05/96 18:37:45 Page 469 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00686/008C MICRO CROSS-ASSEMBLER BLOCK7 SA G MINI:ASM.BLOCK7 5.0T3 87 MICRO_CROSS-ASSEMBLER.BLO.SA.008 1 LINE 72 5 PAGE UM FRONCZAK JULY 03, 1981 17:56:31 5.0T6 339 0 System-independent, assembler-independent BLOCK LETTER support for the BLOCK pseudo-op. 00686/009A MICRO CROSS-ASSEMBLER M6800I SA G MINI:ASM.M6800I 5.0T3 88 MICRO_CROSS-ASSEMBLER.M68.SA.009 1 LINE 72 24 PAGE UM FRONCZAK JULY 03, 1981 17:56:32 5.0T6 340 0 M6800 SYSTEM-INDEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 00686/010A MICRO CROSS-ASSEMBLER M6800MTS SA G MINI:ASM.M6800MTS 5.0T3 89 MICRO_CROSS-ASSEMBLER.M68.SA.010 1 LINE 72 3 PAGE UM FRONCZAK JULY 03, 1981 17:56:34 5.0T6 341 0 M6800 MTS-DEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 00686/011A MICRO CROSS-ASSEMBLER M650XI SA G MINI:ASM.M650XI 5.0T3 90 MICRO_CROSS-ASSEMBLER.M65.SA.011 1 LINE 72 21 PAGE UM FRONCZAK JULY 03, 1981 17:56:34 5.0T6 342 0 MCS650X SYSTEM-INDEPENDENT, ASSEMBLER-INDEPENDENT CODE. COPIES (686/20). 00686/012A MICRO CROSS-ASSEMBLER M650XMTS SA G MINI:ASM.M650XMTS 5.0T3 91 MICRO_CROSS-ASSEMBLER.M65.SA.012 1 LINE 72 3 PAGE UM FRONCZAK JULY 03, 1981 17:56:36 5.0T6 343 0 MCS650X MTS-DEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 00686/013A MICRO CROSS-ASSEMBLER I8080I SA G MINI:ASM.I8080I 5.0T3 92 MICRO_CROSS-ASSEMBLER.I80.SA.013 1 LINE 72 21 PAGE UM FRONCZAK JULY 03, 1981 17:56:37 5.0T6 344 0 I8080 SYSTEM-INDEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 00686/014A MICRO CROSS-ASSEMBLER I8080MTS SA G MINI:ASM.I8080MTS 5.0T3 93 MICRO_CROSS-ASSEMBLER.I80.SA.014 1 LINE 72 3 PAGE UM FRONCZAK JULY 03, 1981 17:56:39 5.0T6 345 0 I8080 MTS-DEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 00686/015A MICRO CROSS-ASSEMBLER Z80I SA G MINI:ASM.Z80I 5.0T3 94 MICRO_CROSS-ASSEMBLER.Z80.SA.015 1 LINE 72 28 PAGE UM FRONCZAK JULY 03, 1981 17:56:40 5.0T6 346 0 Z80 SYSTEM-INDEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 00686/016A MICRO CROSS-ASSEMBLER Z80MTS SA G MINI:ASM.Z80MTS 5.0T3 95 MICRO_CROSS-ASSEMBLER.Z80.SA.016 1 LINE 72 3 PAGE UM FRONCZAK JULY 03, 1981 17:56:43 5.0T6 347 0 Z80 MTS-DEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 1 MON AUG 05/96 18:37:45 Page 470 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00686/017A MICRO CROSS-ASSEMBLER M6809I SA G MINI:ASM.M6809I 5.0T3 96 MICRO_CROSS-ASSEMBLER.M68.SA.017 1 LINE 72 29 PAGE UM FRONCZAK JULY 03, 1981 17:56:44 5.0T6 348 0 M6809 SYSTEM-INDEPENDENT, ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 00686/018A MICRO CROSS-ASSEMBLER M6809MTS SA G MINI:ASM.M6809MTS 5.0T3 97 MICRO_CROSS-ASSEMBLER.M68.SA.018 1 LINE 72 3 PAGE UM FRONCZAK JULY 03, 1981 17:56:46 5.0T6 349 0 M6809 MTS-DEPENDENT AND ASSEMBLER-DEPENDENT CODE. COPIES (686/20). 00686/019A MICRO CROSS-ASSEMBLER MESSAGES M ETC:GENASMERR 5.0T3 98 MICRO_CROSS-ASSEMBLER.MES.M.019 1 LINE 74 4 PAGE UM FRONCZAK JULY 03, 1981 17:56:47 5.0T6 350 ETC:GENASMERR 0 ERROR MESSAGES. 00686/020A MICRO CROSS-ASSEMBLER COPY SECTION SA G MINI:ASM.DSECT 5.0T3 99 MICRO_CROSS-ASSEMBLER.COP.SA.020 1 LINE 78 12 PAGE UM FRONCZAK JULY 03, 1981 17:56:48 5.0T6 351 0 Referenced by comments of: 686/1, 686/4, 686/9, 686/10, 686/11, 686/12, 686/13, 686/14, 686/15, 686/16, 686/17, 686/18 00686/021A MICRO CROSS-ASSEMBLER MACRO LIB SM G MINI:ASM.MACRO 5.0T3 100 MICRO_CROSS-ASSEMBLER.MAC.SM.021 1 LINE 72 4 PAGE UM FRONCZAK JULY 03, 1981 17:56:49 5.0T6 352 0 Referenced by comments of: 686/1 00686/022A MICRO CROSS-ASSEMBLER M6800ASR OE G *M6800ASR 5.0T3 101 MICRO_CROSS-ASSEMBLER.M68.OE.022 1 LINE 32767 19 PAGE UM FRONCZAK JULY 03, 1981 17:56:50 5.0T6 353 *M6800ASR 0 OBJECT FOR MOTOROLA M6800 MICROPROCESSOR CROSS-ASSEMBLER. 0 Referenced by comments of: 686/27 00686/023A MICRO CROSS-ASSEMBLER MCS650ASR OE G *MCS650XASR 5.0T3 102 MICRO_CROSS-ASSEMBLER.MCS.OE.023 1 LINE 32767 18 PAGE UM FRONCZAK JULY 03, 1981 17:56:52 5.0T6 354 *MCS650XASR 0 OBJECT FOR MCS TECHNOLOGY 6500 SERIES MICROCOMPUTERS CROSS-ASSEMBLER. 0 Referenced by comments of: 686/28 00686/024A MICRO CROSS-ASSEMBLER I8080ASR OE G *I8080ASR 5.0T3 103 MICRO_CROSS-ASSEMBLER.I80.OE.024 1 LINE 32767 18 PAGE UM FRONCZAK JULY 03, 1981 17:56:53 5.0T6 355 *I8080ASR 0 OBJECT FOR INTEL 8080 MICROCOMPUTER CROSS-ASSEMBLER. 0 Referenced by comments of: 686/29, 756/1, 756/3 1 MON AUG 05/96 18:37:45 Page 471 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00686/025A MICRO CROSS-ASSEMBLER Z80ASR OE G *Z80ASR 5.0T3 104 MICRO_CROSS-ASSEMBLER.Z80.OE.025 1 LINE 32767 19 PAGE UM FRONCZAK JULY 03, 1981 17:56:55 5.0T6 356 *Z80ASR 0 OBJECT FOR ZILOG Z80 MICROPROCESSOR CROSS-ASSEMBLER. 0 Referenced by comments of: 686/30 00686/026A MICRO CROSS-ASSEMBLER M6809ASR OE G *M6809ASR 5.0T3 105 MICRO_CROSS-ASSEMBLER.M68.OE.026 1 LINE 32767 19 PAGE UM FRONCZAK JULY 03, 1981 17:56:56 5.0T6 357 *M6809ASR 0 OBJECT FOR MOTOROLA M6809 MICROCOMPUTER CROSS-ASSEMBLER. 0 Referenced by comments of: 686/31 00686/027C MICRO CROSS-ASSEMBLER M6800TEST S G MINI:M6801ASRTEST 5.0T3 106 MICRO_CROSS-ASSEMBLER.M68.S.027 1 LINE 68 7 PAGE UM FRONCZAK JULY 03, 1981 17:56:58 5.0T6 358 0 Test program for *M6800ASR (686/22). To test the M6800 operation, nothing special is required. To test the M6801 operation, *M6800ASR must be run with PAR=6801. 00686/028C MICRO CROSS-ASSEMBLER MCS650XTEST S G MINI:M650XASRTEST 5.0T3 107 MICRO_CROSS-ASSEMBLER.MCS.S.028 1 LINE 68 7 PAGE UM FRONCZAK JULY 03, 1981 17:56:59 5.0T6 359 0 Test program for *MCS650XASR (686/23). 00686/029C MICRO CROSS-ASSEMBLER I8080TEST S G MINI:I8080ASRTEST 5.0T3 108 MICRO_CROSS-ASSEMBLER.I80.S.029 1 LINE 68 6 PAGE UM FRONCZAK JULY 03, 1981 17:57:00 5.0T6 360 0 Test program for *I8080ASR (686/24). 00686/030C MICRO CROSS-ASSEMBLER Z80TEST S G MINI:Z80ASRTEST 5.0T3 109 MICRO_CROSS-ASSEMBLER.Z80.S.030 1 LINE 72 24 PAGE UM FRONCZAK JULY 03, 1981 17:57:01 5.0T6 361 0 Test program for *Z80ASR (686/25). 00686/031C MICRO CROSS-ASSEMBLER M6809TEST S G MINI:M6809ASRTEST 5.0T3 110 MICRO_CROSS-ASSEMBLER.M68.S.031 1 LINE 71 9 PAGE UM FRONCZAK JULY 03, 1981 17:57:04 5.0T6 362 0 Test program for *M6809ASR (686/26). 00686/032C MICRO CROSS-ASSEMBLER CON-TEST SA G MINI:DCSTEST 5.0T3 111 MICRO_CROSS-ASSEMBLER.CON.SA.032 1 LINE 73 6 PAGE UM FRONCZAK JULY 03, 1981 17:57:05 5.0T6 363 0 Assembler-independent test program for the constant processor, PROCCONS (686/7). 1 MON AUG 05/96 18:37:45 Page 472 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00686/033C MICRO CROSS-ASSEMBLER MACROTEST SA G MINI:MACTEST 5.0T3 112 MICRO_CROSS-ASSEMBLER.MAC.SA.033 1 LINE 68 7 PAGE UM FRONCZAK JULY 03, 1981 17:57:06 5.0T6 364 0 *M6809ASR-dependent test program for the macro processor (686/5). 00686/034A MICRO CROSS-ASSEMBLER MANUAL WF MINI:ASM.MAN 5.0T3 113 MICRO_CROSS-ASSEMBLER.MAN.WF.034 1 LINE 97 40 PAGE UM FRONCZAK JULY 03, 1981 17:57:07 5.0T6 365 0 MANUAL FOR USAGE OF MICRO PROCESSOR CROSS-ASSEMBLERS. ***************************************************************************** D5.0 version: The manual is up-to-date as of this distribution. ***************************************************************************** 0 Referenced by comments of: 686/1, 686/35 00686/035C MICRO CROSS-ASSEMBLER MEMO 422 WF W098:M422SOURCE 5.0T3 114 MICRO_CROSS-ASSEMBLER.MEM.WF.035 1 LINE 97 37 PAGE UM FRONCZAK JULY 03, 1981 18:06:51 5.0T6 366 0 This is Computing Center Memo 422 -- "MTS Microprocessor Cross-Assemblers User's Guide." It does not reflect all features documented in (686/34). 0 Referenced by comments of: 686/1 00686/036C MICRO CROSS-ASSEMBLER MEMO 423 PF W098:M423OUTPUT 5.0T3 115 MICRO_CROSS-ASSEMBLER.MEM.PF.036 1 LINE 71 50 PAGE UM FRONCZAK JULY 03, 1981 18:06:55 5.0T6 367 0 This is Computing Center Memo 423 -- "Zilog Z-80 and TDL Mnemonics." 00686/037C MICRO CROSS-ASSEMBLER PMF PROJ FILE D G MINI:PMF_XASM 5.0T3 116 MICRO_CROSS-ASSEMBLER.PMF.D.037 1 LINE 195 4 PAGE UM FRONCZAK JULY 03, 1981 18:06:59 5.0T6 368 0 PMF (810) project file which facilitates management of all the cross-assemblers. The PMF command "DESCRIBE PROJECT FULLY IN DEPTH" will explain the organization. 00687/001 PAR SUBR SA O S0683 OGDEN FSNAME=PAR.S 5.0T3 117 PAR_SUBR..SA.001 1 LINE 72 1 PAGE UM OGDEN MAR. 23, 1978 15:53:44 5.0T6 369 0 SUBROUTINE TO GIVE FORTRAN USERS ACCESS TO THE $RUN PAR STRING. 0 Referenced by comments of: 540/17, 3024/31 1 MON AUG 05/96 18:37:45 Page 473 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00687/002 PAR SUBR OC O # (PART OF *LIBRARY) UM OGDEN 0 Object part of *LIBRARY (524/1) 00688/001 TRAP SUBR SA O TRAP S1153 UNSP VLO FSNAME=TRAP.S 5.0T3 118 TRAP_SUBR..SA.001 1 LINE 80 6 PAGE UM UNSP OCT. 28, 1975 23:42:21 5.0T6 370 0 EXPANDED VERSION OF UBC'S TRAP ROUTINE WHICH ALLOWS FORTRAN USERS TO FIELD PROGRAM INTERRUPTS. 0 Referenced by comments of: 689/1 00688/002 TRAP SUBR OC O # (PART OF UNSP:LIBRARY) UM UNSP 0 Part of UNSP:LIBRARY (685/2). 00688/003A TRAP SUBR WF S1153 UNSP VLO FSNAME=PROGTRAP.FMT 5.0T3 119 TRAP_SUBR..WF.003 1 LINE 71 3 PAGE UM UNSP SEP. 15, 1980 16:43:37 5.0T6 371 00689/001 ATRAP SUBR SA O ATRA S1153 UNSP VLO FSNAME=ATRAP.S 5.0T3 120 ATRAP_SUBR..SA.001 1 LINE 80 5 PAGE UM UNSP MAR. 23, 1976 12:19:34 5.0T6 372 0 SIMILAR TO THE TRAP SUBROUTINE (688), BUT ALLOWS FORTRAN USERS TO FIELD ATTENTION INTERRUPTS. 0 Referenced by comments of: 540/17 00689/002 ATRAP SUBR OC O # (PART OF UNSP:LIBRARY) UM UNSP 0 Part of UNSP:LIBRARY (685/2). 00689/003A ATRAP SUBR WF S1153 UNSP VLO FSNAME=ATTNTRAP.FMT 5.0T3 121 ATRAP_SUBR..WF.003 1 LINE 71 3 PAGE UM UNSP SEP. 15, 1980 16:23:39 5.0T6 373 00690/001 DISASM SA S DASM S1153 UNSP VLO FSNAME=DISASM.S 5.0T3 122 DISASM..SA.001 1 LINE 80 147 PAGE UM UNSP APR. 15, 1976 01:14:16 5.0T6 374 0 A DISASSEMBLER FROM THE IBM/SHARE CONTRIBUTED PROGRAM LIBRARY (360D-05.3.001) VIA UQV. MODIFIED BY UM. ASSEMBLE USING *SYSMAC. 00690/002 DISASM OE S UNSP:DISASM 5.0T3 123 DISASM..OE.002 1 LINE 3364 16 PAGE UM UNSP JULY 03, 1981 18:10:51 5.0T6 375 UNSP:DISASM 1 MON AUG 05/96 18:37:45 Page 474 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00690/003A DISASM P UNSP:DISASM.W 5.0T3 124 DISASM..P.003 1 LINE 67 1 PAGE UM UNSP JULY 03, 1981 18:10:52 5.0T6 376 0 VOLUME 3-TYPE USER WRITEUP. 00690/004 DISASM P S0565 D4T3 VLO FSNAME=DISASM.NOTES.P.003(1) 140 5.0T3 125 DISASM..P.004 1 LINE 61 1 PAGE UM UNSP JULY 09, 1976 12:03:21 5.0T6 377 0 NOTES ON THE INTERNALS OF DISASM. 00691/001 PFILES # (OBSOLETE) D4T3 141 UM 0 Obsoleted by $FILESTATUS command. 00692/001 SPELER SUBR # (OBSOLETE) D4T3 143 SPELER_SUBR..SA.001 1 LINE 80 5 PAGE UBC OCT. 28, 1975 23:42:33 0 SUBROUTINE TO TEST TWO STRINGS AND DETERMINE IF THE SECOND IS A LIKELY MISSPELLING OF THE FIRST; SEE CACM, VOL 13, NO 2, FEB 1970. 00693/001A TAPEDRIVES SA G TDRI S1153 UNSP VLO FSNAME=TAPEDRIVES.S 5.0T3 126 TAPEDRIVES..SA.001 1 LINE 80 6 PAGE UBC UNSP JAN. 21, 1981 18:53:43 5.0T6 378 0 PROGRAM TO PRINT THE NUMBER OF FREE 7- AND 9-TRACK TAPE DRIVES, AND THE NUMBER OF JOBS IN THE TAPE QUEUE. COPIES COPY:GLOBALS+COPY:LLMPSEQU, COMPONENTS (1026/3) AND (087), RESPECTIVELY. **************************************************************************** D5.0 CHANGES: Changed to print the number of users in the tape queue. **************************************************************************** 0 Referenced by comments of: 806/1 00693/002A TAPEDRIVES OE G UNSP:TAPEDRIVES 5.0T3 127 TAPEDRIVES..OE.002 1 LINE 915 1 PAGE UBC UNSP JULY 03, 1981 18:11:34 5.0T6 379 UNSP:TAPEDRIVES 00693/003 TAPEDRIVES *TPS C *TPS 5.0T3 128 TAPEDRIVES.*TPS.C.003 1 LINE 33 1 PAGE UBC UNSP JULY 03, 1981 18:11:35 5.0T6 380 *TPS 0 OPERATOR FILE TO RUN UNSP:TAPEDRIVES. INVOKED BY ENTERING "MTS *TPS" ON OPERATORS CONSOLE. 1 MON AUG 05/96 18:37:45 Page 475 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00693/004A TAPEDRIVES P UNSP:TAPEDRIVES.W 5.0T3 129 TAPEDRIVES..P.004 1 LINE 67 1 PAGE UBC UNSP JULY 03, 1981 18:11:35 5.0T6 381 00694/001 DOC SF O DOC S1153 UNSP VLO FSNAME=DOC.S 5.0T3 130 DOC..SF.001 1 LINE 80 5 PAGE UM UNSP OCT. 03, 1975 16:46:13 5.0T6 382 0 A PROGRAM TO HELP PRODUCE PROGRAM AND SUBROUTINE DOCUMENTATION. 0 Referenced by comments of: 694/3, 694/4, 694/5 00694/002 DOC OE O UNSP:DOC 5.0T3 131 DOC..OE.002 1 LINE 2002 3 PAGE UM UNSP JULY 03, 1981 18:11:53 5.0T6 383 UNSP:DOC 00694/003 DOC DOCCOM D UNSP:DOCCOM 5.0T3 132 DOC.DOCCOM.D.003 1 LINE 35 1 PAGE UM UNSP JULY 03, 1981 18:11:53 5.0T6 384 UNSP:DOCCOM 0 A DATA FILE REFERENCED BY (694/1). 00694/004 DOC DOCCOM2 D UNSP:DOCCOM2 5.0T3 133 DOC.DOCCOM2.D.004 1 LINE 31 1 PAGE UM UNSP JULY 03, 1981 18:11:54 5.0T6 385 UNSP:DOCCOM2 0 A DATA FILE WHICH CAN BE USED WITH (694/1). 00694/005 DOC DOCCOM3 D UNSP:DOCCOM3 5.0T3 134 DOC.DOCCOM3.D.005 1 LINE 31 1 PAGE UM UNSP JULY 03, 1981 18:11:55 5.0T6 386 UNSP:DOCCOM3 0 A DATA FILE WHICH CAN BE USED WITH (694/1). 00694/006A DOC WF S1153 UNSP VLO FSNAME=DOC.FMT 5.0T3 135 DOC..WF.006 1 LINE 90 3 PAGE UM UNSP SEP. 15, 1980 16:42:49 5.0T6 387 00695/001 SNOOP SUBR SF G SNOO S1153 UNSP VLO FSNAME=SNOOP.S 5.0T3 136 SNOOP.SUBR.SF.001 1 LINE 80 3 PAGE UM UNSP JAN. 13, 1976 11:28:21 5.0T7 1 0 THIS SUBROUTINE IS CALLED (EITHER DIRECTLY OR VIA CSNOOP) BY MOST OF THE UM "UNSUPPORTED" SOFTWARE COMPONENTS TO RECORD PROGRAM USAGE STATISTICS. 00695/002 SNOOP SUBR OC G # (PART OF UNSP:LIBRARY) UM UNSP 0 Part of UNSP:LIBRARY (685/2). 1 MON AUG 05/96 18:37:45 Page 476 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00695/003A SNOOP WRITEUP WF G S1153 UNSP VLO FSNAME=SNOOP.FMT 5.0T3 137 SNOOP.WRITEUP.WF.003 1 LINE 66 1 PAGE UM UNSP SEP. 15, 1980 16:43:41 5.0T7 2 00695/004A SNOOP CSNOOP SA O CSNO S1153 UNSP VLO FSNAME=CSNOOP.S 5.0T3 138 SNOOP.CSNOOP.SA.004 1 LINE 80 1 PAGE UM UNSP JUNE 21, 1976 13:03:43 5.0T7 3 0 A "MAIN" PROGRAM WHICH CALLS THE SNOOP SUBROUTINE AND THEN CALLS THE REAL MAIN PROGRAM. 0 Referenced by comments of: 807/2 00695/005A SNOOP CSNOOP OC O UNSP:CSNOOP.O 5.0T3 139 SNOOP.CSNOOP.OC.005 1 LINE 80 1 PAGE UM UNSP JULY 03, 1981 18:13:09 5.0T7 4 UNSP:CSNOOP.O 0 Referenced by comments of: 772/2, 773/3 00696/001 CDCEBCD SA O CDCE S1153 UNSP VLO FSNAME=CDCEBCD.S 5.0T3 140 CDCEBCD..SA.001 1 LINE 80 5 PAGE UM UNSP JULY 14, 1977 21:18:49 5.0T7 5 0 PROGRAM TO DEBLOCK CDC 6000 SERIES 7-TRACK SCOPE CODED TAPES AND CONVERT THE DATA FROM CDC "CONSOLE DISPLAY CODE" INTO EBCDIC. COPIES *SENSEDSECT (3025). 00696/002 CDCEBCD OC O UNSP:CDCEBCD 5.0T3 141 CDCEBCD..OC.002 1 LINE 80 3 PAGE UM UNSP JULY 03, 1981 18:13:11 5.0T7 6 UNSP:CDCEBCD 00696/003A CDCEBCD WF S1153 UNSP VLO FSNAME=CDCEBCD.FMT 5.0T3 142 CDCEBCD..WF.003 1 LINE 68 1 PAGE UM UNSP SEP. 15, 1980 16:42:42 5.0T7 7 00697/001 SIGFILE SF G SIGF S1153 UNSP VLO FSNAME=SIGFILE.S 5.0T3 143 SIGFILE..SF.001 1 LINE 80 4 PAGE UM UNSP JULY 14, 1977 21:18:46 5.0T7 8 0 A PROGRAM, SOMEWHAT LIKE UBC'S PROFILE PROGRAM, WHICH IS DESIGNED TO BE RUN FROM SIGFILES. 00697/002 SIGFILE OE G UNSP:SIGFILE 5.0T3 144 SIGFILE..OE.002 1 LINE 4632 3 PAGE UM UNSP JULY 03, 1981 18:13:47 5.0T7 9 UNSP:SIGFILE 00698/001 LIST # (OBSOLETE) D4T3 158 LIST..SF.001 1 LINE 80 3 PAGE UM JULY 02, 1977 12:29:01 D4T7 158 0 Obsoleted by LISTER (774). 1 MON AUG 05/96 18:37:45 Page 477 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00699/001 FTNREP SA O FTNR S1153 UNSP VLO FSNAME=FTNREP.S 5.0T3 145 FTNREP..SA.001 1 LINE 80 4 PAGE UM UNSP DEC. 01, 1976 22:00:25 5.0T7 10 0 A PROGRAM WHICH COMPILES FORTRAN SOURCE BY LINKING TO *FTN (551) AND THEN EDITS THE OBJECT INTO EXISTING OBJECT FILES BY LINKING TO OBJREP (700). 0 Referenced by comments of: 700/1 00699/002 FTNREP OE O UNSP:FTNREP 5.0T3 146 FTNREP..OE.002 1 LINE 1382 3 PAGE UM UNSP JULY 03, 1981 18:13:49 5.0T7 11 UNSP:FTNREP 00699/003A FTNREP WF S1153 UNSP VLO FSNAME=FTNREP.FMT 5.0T3 147 FTNREP..WF.003 1 LINE 82 2 PAGE UM UNSP SEP. 15, 1980 16:43:01 5.0T7 12 00700/001 OBJREP SA O OBJR S1153 UNSP VLO FSNAME=OBJREP.S 5.0T3 148 OBJREP..SA.001 1 LINE 80 16 PAGE UM UNSP OCT. 03, 1975 16:46:40 5.0T7 13 0 AN OBJECT FILE EDITOR/UPDATER WHICH IS LINKED TO BY FTNREP (699) OR CAN BE RUN DIRECTLY. NO WRITEUP IS AVAILABLE. 0 Referenced by comments of: 699/1 00700/002 OBJREP OE O UNSP:FTNRE* 5.0T3 149 OBJREP..OE.002 1 LINE 4358 3 PAGE UM UNSP JULY 03, 1981 18:14:29 5.0T7 14 UNSP:FTNRE* 00701/001 ECMD SF O ECMD S1153 UNSP VLO FSNAME=ECMD.S 5.0T3 150 ECMD..SF.001 1 LINE 80 17 PAGE UM UNSP JULY 02, 1977 12:23:42 5.0T7 15 0 A SIMPLE COMMAND EXPANDER WHICH ALLOWS ALL MTS COMMANDS TO MAKE USE OF THE NOTATION ACCEPTED BY $FILESTATUS. CALLS THE FSTARTNS SUBROUTINE (701/2). 00701/002 ECMD FSTARTNS SUBR SA O FSTA S1153 UNSP VLO FSNAME=FSTARTN.S 5.0T3 151 ECMD.FSTARTNS_SUBR.SA.002 1 LINE 80 18 PAGE UM UNSP JULY 10, 1976 17:44:16 5.0T7 16 0 ROUTINES TAKEN FROM $FILESTATUS TO SCAN FILE CATALOG FOR PARTIAL FILENAMES. 0 Referenced by comments of: 701/1 00701/003 ECMD OE O UNSP:ECMD 5.0T3 152 ECMD..OE.003 1 LINE 12684 7 PAGE UM UNSP JULY 03, 1981 18:14:32 5.0T7 17 UNSP:ECMD 00701/004A ECMD WF S1153 UNSP VLO FSNAME=ECMD.FMT 5.0T3 153 ECMD..WF.004 1 LINE 135 3 PAGE UM UNSP SEP. 15, 1980 16:42:51 5.0T7 18 1 MON AUG 05/96 18:37:45 Page 478 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00702/001 MCCTOCC SA G MCCT S1153 UNSP VLO FSNAME=MCCTOCC.S 5.0T3 154 MCCTOCC..SA.001 1 LINE 80 3 PAGE UM UNSP SEP. 30, 1975 11:00:22 5.0T7 19 0 PROGRAM TO CONVERT MACHINE CARRIAGE CONTROL TO LOGICAL CARRIAGE CONTROL. 00702/002 MCCTOCC OE G UNSP:MCCTOCC 5.0T3 155 MCCTOCC..OE.002 1 LINE 1382 3 PAGE UM UNSP JULY 03, 1981 18:15:10 5.0T7 20 UNSP:MCCTOCC 00702/003A MCCTOCC WF S1153 UNSP VLO FSNAME=MCCTOCC.FMT 5.0T3 156 MCCTOCC..WF.003 1 LINE 72 1 PAGE UM UNSP SEP. 15, 1980 16:43:30 5.0T7 21 00703/001 DIGLIB PERSYS SF G PERS S1153 UNSP VLO FSNAME=PERSYS.S 5.0T3 157 DIGLIB.PERSYS.SF.001 1 LINE 80 16 PAGE UM UNSP AUG. 30, 1976 15:52:15 5.0T7 22 0 DIGLIB IS A LIBRARY OF DEVICE INDEPENDENT GRAPHICS (DIG) SUBROUTINES. THE PERSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING A TWO-DIMENSIONAL VIEW OF A THREE-DIMENSIONAL SURFACE. 00703/002 DIGLIB PERSYS WRITEUP WF G S1153 UNSP VLO FSNAME=PERSYS.F 5.0T3 158 DIGLIB.PERSYS_WRITEUP.WF.002 1 LINE 195 15 PAGE UM UNSP AUG. 30, 1976 15:52:33 5.0T7 23 0 CONTAINS A "$CONTINUE WITH PERSYS.S(---)" RECORD. 00703/003 DIGLIB CONSYS SF G CONS S1153 UNSP VLO FSNAME=CONSYS.S 5.0T3 159 DIGLIB.CONSYS.SF.003 1 LINE 80 18 PAGE UM UNSP AUG. 30, 1976 15:51:52 5.0T7 24 0 THE CONSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING A CONTOUR MAP. 00703/004 DIGLIB CONSYS WRITEUP WF G S1153 UNSP VLO FSNAME=CONSYS.F 5.0T3 160 DIGLIB.CONSYS_WRITEUP.WF.004 1 LINE 221 17 PAGE UM UNSP AUG. 30, 1976 23:21:01 5.0T7 25 0 CONTAINS A "$CONTINUE WITH CONSYS.S(---)" RECORD. 00703/005 DIGLIB OBJECT LIB OL G UNSP:DIGLIB 5.0T3 161 DIGLIB.OBJECT_LIB.OL.005 1 LINE 5024 7 PAGE UM UNSP JULY 03, 1981 18:16:07 5.0T7 26 UNSP:DIGLIB 00703/006A DIGLIB WF S1153 UNSP VLO FSNAME=DIGLIB.FMT 5.0T3 162 DIGLIB..WF.006 1 LINE 67 1 PAGE UM UNSP SEP. 15, 1980 16:42:45 5.0T7 27 1 MON AUG 05/96 18:37:45 Page 479 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00704/001 11PAL SIMULATOR SA SIMU S1153 UNSP VLO FSNAME=11SIMULATOR.S 5.0T3 163 11PAL.SIMULATOR.SA.001 1 LINE 80 35 PAGE UNE UNSP MAY 17, 1977 21:55:21 5.0T7 28 0 A PDP-11 ASSEMBLER AND SIMULATOR WHICH ORIGINALLY CAME FROM THE POLYTECHNIC INSTITUTE OF BROOKLYN (NEW YORK) -- ADAPTED FOR MTS BY UNE. 00704/002 11PAL ASSEMBLER SA ASSE S1153 UNSP VLO FSNAME=11ASSEMBLER.S 5.0T3 164 11PAL.ASSEMBLER.SA.002 1 LINE 80 63 PAGE UNE UNSP MAY 17, 1977 21:55:33 5.0T7 29 00704/003 11PAL MONITOR SA MONI S1153 UNSP VLO FSNAME=11MONITOR.S 5.0T3 165 11PAL.MONITOR.SA.003 1 LINE 80 14 PAGE UNE UNSP OCT. 22, 1976 12:34:15 5.0T7 30 00704/004 11PAL OBJECT OE UNSP:11PAL 5.0T3 166 11PAL.OBJECT.OE.004 1 LINE 14130 9 PAGE UNE UNSP JULY 03, 1981 18:17:02 5.0T7 31 UNSP:11PAL 00704/005 11PAL WRITEUP WF S1153 UNSP VLO FSNAME=11PAL.F 5.0T3 167 11PAL.WRITEUP.WF.005 1 LINE 95 15 PAGE UNE UNSP OCT. 22, 1976 12:33:13 5.0T7 32 00705/001 REPORT GENERATOR # (NOT CURRENTLY DISTRIBUTED) UM 00706/001A SIMSCRIPT SIM25 INSTALL WF S1153 UNSP VLO FSNAME=S25INSTALL.F 5.0T3 168 SIMSCRIPT.SIM25_INSTALL.WF.001 1 LINE 71 3 PAGE UM UNSP FEB. 26, 1981 09:32:03 5.0T7 33 0 INSTALLATION INSTRUCTIONS FOR THE CACI INC. SIMSCRIPT II.5 COMPILER, RELEASE 8G, AS MODIFIED FOR USE IN MTS. DUE TO RESTRICTIONS, THIS COMPILER CANNOT BE DISTRIBUTED, BUT SHOULD BE AVAILABLE "FREE" TO UNIVERSITIES ONCE AN AGREEMENT WITH CACI INC. IS SIGNED. SOME OF THE FOLLOWING COMPONENTS ARE VERSIONS OF COPYRIGHTED CACI SOFTWARE CONVERTED FOR USE WITH MTS. WITHOUT PERMISSION FROM CACI INC. REDISTRIBUTION SHOULD BE LIMITED TO INSTALLATIONS RECEIVING DISTRIBUTIONS OF MTS. **************************************************************************** D5.0 version: Changed to mention addition of (706/10) and (706/11). **************************************************************************** 00706/002 SIMSCRIPT SIM25 SPCOMP SA G S1153 UNSP VLO FSNAME=S25SPCOMP.S 5.0T3 169 SIMSCRIPT.SIM25_SPCOMP.SA.002 1 LINE 80 12 PAGE UM UNSP JAN. 04, 1979 05:19:17 5.0T7 34 0 MTS REPLACEMENTS FOR THE STANDARD CACI COMPILER ROUTINES ROPN AND RSET$R. ASSEMBLE WITH PAR=BATCH. 1 MON AUG 05/96 18:37:45 Page 480 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00706/003 SIMSCRIPT SIM25 SPCOMP OC G S1153 UNSP VLO FSNAME=S25SPCOMP 5.0T3 170 SIMSCRIPT.SIM25_SPCOMP.OC.003 1 LINE 80 5 PAGE UM UNSP JAN. 04, 1979 05:19:20 5.0T7 35 00706/004 SIMSCRIPT SIM25 SPLIB SA G S1153 UNSP VLO FSNAME=S25SPLIB.S 5.0T3 171 SIMSCRIPT.SIM25_SPLIB.SA.004 1 LINE 80 40 PAGE UM UNSP JAN. 04, 1979 05:19:22 5.0T7 36 0 MTS REPLACEMENTS FOR THE STANDARD CACI RUN-TIME LIBRARY AND COMPILER ROUTINES RCRE, RDATE, RPUT, RRDR, RRWD, RSTP, LKAH, LERR, AND THE RUN-TIME LIBRARY ROUTINES ROPN AND RSET$R. ASSEMBLE WITH PAR=BATCH. 00706/005 SIMSCRIPT SIM25 SPLIB OC G S1153 UNSP VLO FSNAME=S25SPLIB 5.0T3 172 SIMSCRIPT.SIM25_SPLIB.OC.005 1 LINE 80 9 PAGE UM UNSP JAN. 04, 1979 05:20:34 5.0T7 37 00706/006 SIMSCRIPT SIM25 INTERFAC SA G S25I S1153 UNSP VLO FSNAME=S25INTER.S 5.0T3 173 SIMSCRIPT.SIM25_INTERFAC.SA.006 1 LINE 80 10 PAGE UM UNSP JAN. 04, 1979 05:20:57 5.0T7 38 0 THE MTS TO OS INTERFACE ROUTINES THAT ARE ADDED TO THE STANDARD CACI RUN-TIME LIBRARY AND COMPILER ROUTINES. ASSEMBLE WITH PAR=BATCH. COPIES *GDINFODSECT (594). 00706/007 SIMSCRIPT SIM25 INTERFAC OC G S1153 UNSP VLO FSNAME=S25INTER 5.0T3 174 SIMSCRIPT.SIM25_INTERFAC.OC.007 1 LINE 80 6 PAGE UM UNSP JAN. 04, 1979 05:21:07 5.0T7 39 00706/008 SIMSCRIPT SIM25 MAC SM G S1153 UNSP VLO FSNAME=S25MAC 5.0T3 175 SIMSCRIPT.SIM25_MAC.SM.008 1 LINE 80 12 PAGE UM UNSP JAN. 04, 1979 05:21:19 5.0T7 40 00706/009 SIMSCRIPT SIM25 CACI COM OC G # S1153 UNSP VLO FSNAME=S25CACICOMP UM UNSP 0 OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G COMPILER AS DISTRIBUTED BY CACI. 0 Referenced by comments of: 706/10 00706/010C SIMSCRIPT LIB PATCH S G S1153 UNSP VLO FSNAME=S25UPLIB.S25 5.0T3 176 SIMSCRIPT.LIB_PATCH.S.010 1 LINE 49 1 PAGE UM UNSP FEB. 26, 1981 09:49:00 5.0T7 41 0 A replacement for the CACI subroutine RX$EV$S (a.k.a. X.EV.S) in (706/9). Note that the source will generate two object modules. One of these should be deleted. 0 Referenced by comments of: 706/1 1 MON AUG 05/96 18:37:45 Page 481 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00706/011C SIMSCRIPT LIB PATCH O G S1153 UNSP VLO FSNAME=S25UPLIB.OBJ 5.0T3 177 SIMSCRIPT.LIB_PATCH.O.011 1 LINE 272 1 PAGE UM UNSP FEB. 26, 1981 09:50:01 5.0T7 42 0 Referenced by comments of: 706/1 00706/012 SIMSCRIPT SIM25 COMP OE G # UNSP:SIM25 UM UNSP 0 LINKEDITED OBJECT FOR THE MTS VERSION OF THE RELEASE 8G COMPILER. 0 Referenced by comments of: 706/13 00706/013 SIMSCRIPT SIM25 MAP P G # S1153 UNSP VLO FSNAME=S25MAP UM UNSP 0 MAP OUTPUT FROM *LINKEDIT (297) FOR (706/12). 00706/014 SIMSCRIPT SIM25 CACI LIB OC G # S1153 UNSP VLO FSNAME=S25CACILIB UM UNSP 0 OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G RUN-TIME LIBRARY AS DISTRIBUTED BY CACI. 00706/015 SIMSCRIPT SIM25 LIB OL G # UNSP:SIM25LIB UM UNSP 0 MTS VERSION OF THE RELEASE 8G RUN-TIME LIBRARY. 00706/016 SIMSCRIPT SIM25 ERRMSGS M UNSP:SIM25ERR 5.0T3 178 SIMSCRIPT.SIM25_ERRMSGS.M.016 1 LINE 79 4 PAGE UM UNSP JULY 03, 1981 18:18:42 5.0T7 43 UNSP:SIM25ERR 0 ERROR MESSAGE FILE FOR RELEASE 8G. 00706/017 SIMSCRIPT SIM25 WRITEUP WF S1153 UNSP VLO FSNAME=SIM25.F 5.0T3 179 SIMSCRIPT.SIM25_WRITEUP.WF.017 1 LINE 69 3 PAGE UM UNSP JAN. 04, 1979 06:08:16 5.0T7 44 00706/018 SIMSCRIPT SIM25 TEST 1 S G S1153 UNSP VLO FSNAME=S2TEST1 5.0T3 180 SIMSCRIPT.SIM25_TEST_1.S.018 1 LINE 78 1 PAGE UM UNSP JAN. 09, 1979 12:28:22 5.0T7 45 0 FIRST OF THREE SIMSCRIPT SOURCE TEST PROGRAMS. 00706/019 SIMSCRIPT SIM25 TEST 2 S G S1153 UNSP VLO FSNAME=S2TEST2 5.0T3 181 SIMSCRIPT.SIM25_TEST_2.S.019 1 LINE 68 1 PAGE UM UNSP JAN. 09, 1979 12:28:28 5.0T7 46 00706/020 SIMSCRIPT SIM25 TEST 3 S G S1153 UNSP VLO FSNAME=S2TEST3 5.0T3 182 SIMSCRIPT.SIM25_TEST_3.S.020 1 LINE 68 1 PAGE UM UNSP JAN. 09, 1979 12:28:33 5.0T7 47 0 COMPILE WITH PAR=NEWIF. 1 MON AUG 05/96 18:37:45 Page 482 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00706/021C SIMSCRIPT SAMPLES S G S1153 UNSP VLO FSNAME=S25SAMPLES1 5.0T3 183 SIMSCRIPT.SAMPLES.S.021 1 LINE 80 22 PAGE UM UNSP FEB. 26, 1981 09:33:56 5.0T7 48 0 This and the following two subcomponents contain many sample SIMSCRIPT programs. The documentation for these is in (706/24). 00706/022C SIMSCRIPT SAMPLES S G S1153 UNSP VLO FSNAME=S25SAMPLES2 5.0T3 184 SIMSCRIPT.SAMPLES.S.022 1 LINE 80 5 PAGE UM UNSP FEB. 26, 1981 09:34:11 5.0T7 49 00706/023C SIMSCRIPT SAMPLES S G S1153 UNSP VLO FSNAME=S25SAMPLES3 5.0T3 185 SIMSCRIPT.SAMPLES.S.023 1 LINE 80 10 PAGE UM UNSP FEB. 26, 1981 09:34:18 5.0T7 50 00706/024C SIMSCRIPT SAMPLES P S1153 UNSP VLO FSNAME=S25SAMPLES 5.0T3 186 SIMSCRIPT.SAMPLES.P.024 1 LINE 82 3 PAGE UM UNSP FEB. 26, 1981 09:33:03 5.0T7 51 0 Referenced by comments of: 706/21 00707/001 RSCAN SA O W030:RSCAN 5.0T3 187 RSCAN..SA.001 1 LINE 69 12 PAGE UM LIFT JULY 03, 1981 18:19:38 5.0T7 52 0 PROGRAM TO PRINT MTS COMMANDS FOR JOBS BASED ON USER ID, JOB NUMBER, OR MTS COMMAND NAME FOR A SET OF TIME/DATE RANGES. COPIES COPY:CMDAREADSECT (531/19). ASSEMBLE USING COPY:MTS.MACROS (344/3). RSCAN IS SLOWLY BEING REPLACE BY SCAN (753). 0 Referenced by comments of: 71/1, 707/3 00707/002 RSCAN LISTCMD SUBR SA G S0811 REBATE 'REBATES' FSNAME=LISTCMD 5.0T3 188 RSCAN.LISTCMD_SUBR.SA.002 1 LINE 66 1 PAGE UM LIFT NOV. 28, 1977 20:57:17 5.0T7 53 0 SUBROUTINE TO LIST CMDSTAT TYPE 1 (MTS COMMAND) RECORDS. COPIES COPY:CMDAREADSECT (531/19). 0 Referenced by comments of: 707/3 00707/003 RSCAN OC O W030:RSCANX 5.0T3 189 RSCAN..OC.003 1 LINE 80 10 PAGE UM LIFT JULY 03, 1981 18:19:43 5.0T7 54 0 OBJECT FROM RSCAN (707/1), LISTCMD (707/2), LISTSTAT (071), AND JVCT (674). RUN WITH PROT=OFF. 00707/004 RSCAN WRITEUP WF S0811 REBATE 'REBATES' FSNAME=RSCAN.WF 5.0T3 190 RSCAN.WRITEUP.WF.004 1 LINE 94 3 PAGE UM LIFT JAN. 13, 1977 16:33:14 5.0T7 55 0 PRELIMINARY WRITEUP DESCRIBING THE USE OF RSCAN. 1 MON AUG 05/96 18:37:45 Page 483 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00708/001 CHARGE SUBR SA G S0565 D4T3 VLO FSNAME=CHARGE_SUBR..SA.001(1) 206 5.0T3 191 CHARGE_SUBR..SA.001 1 LINE 80 7 PAGE UM ENGLE JAN. 25, 1977 15:31:23 5.0T7 56 0 SUBROUTINE TO COMPUTE THE CHARGE FOR SPECIFIED QUANTITIES OF RESOURCES USING THE CURRENT RATES. CHARGERN IS A PRIVATE ENTRY POINT WHICH ALLOWS A SPECIFIC RATE NUMBER TO BE SPECIFIED. COPIES GRDEF (104/72) AND COPY:RATEVEC (651/3). 00708/002 CHARGE SUBR OC G # (PART OF RESIDENT SYSTEM) UM ENGLE 0 Object part of Resident System (468) 00709/001 READBFR SUBR SA G S0565 D4T3 VLO FSNAME=READBFR_SUBR..SA.001(1) 208 5.0T3 192 READBFR_SUBR..SA.001 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 23:52:05 5.0T7 57 0 SUBROUTINE TO PROVIDE "LOCATE MODE" INPUT WHEN INPUT RECORD LENGTH IS UNKNOWN. USES GDINFO AND @NOTIFY TO ALLOCATE INPUT BUFFER. CALLED BY SELECTCMD (531/34). COPIES *GDINFODSECT (594). 0 Referenced by comments of: 531/34, 621/4, 718/2 00709/002 READBFR SUBR OC G # (PART OF *LIBRARY) UM MTA 0 Object part of *LIBRARY (524/1) 00710/001 SQUASH # (OBSOLETE) D4T3 209 SQUASH..SA.001 1 LINE 80 6 PAGE UM JULY 28, 1977 23:52:07 0 Obsoleted by *OBJUTIL (721). 00711/001A COMP CNTR PUBLICATIONS MEMO LIST P *CCMEMOS 5.0T3 193 COMP_CNTR_PUBLICATIONS.ME.P.001 1 LINE 70 3 PAGE UM WOLFSON JULY 03, 1981 18:19:55 5.0T7 58 *CCMEMOS 0 This is the list of current Computing Center Memos. 00711/002A COMP CNTR PUBLICATIONS COMP CNTR PUBS P *CCPUBLICATIONS 5.0T3 194 COMP_CNTR_PUBLICATIONS.CO.P.002 1 LINE 70 2 PAGE UM WOLFSON JULY 03, 1981 18:19:56 5.0T7 59 *CCPUBLICATIONS 0 This is the list of current Computing Center publications. 00711/003 COMP CNTR PUBLICATIONS INDEX FUNC SA O S0791 FMTJNK 'FORMAT' FSNAME=INDEX 5.0T3 195 COMP_CNTR_PUBLICATIONS.IN.SA.003 1 LINE 80 7 PAGE UM LIFT OCT. 10, 1977 11:14:23 5.0T7 60 0 *FORMAT INDEX AND INDEXOUT FUNCTIONS USED IN UM PUBLICATIONS. THESE ARE CALLED BY THE IND AND INDOUT FUNCTIONS (711/4) TO CONSTRUCT AN INDEX. THE CALLING SEQUENCE IS DESCRIBED IN THE SOURCE. 0 Referenced by comments of: 711/4, 711/6 1 MON AUG 05/96 18:37:45 Page 484 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00711/004 COMP CNTR PUBLICATIONS IND FUNC SG O S0791 FMTJNK 'FORMAT' FSNAME=IND 5.0T3 196 COMP_CNTR_PUBLICATIONS.IN.SG.004 1 LINE 80 4 PAGE UM LIFT OCT. 10, 1977 11:14:19 5.0T7 61 0 *FORMAT IND AND INDOUT "USER-DEFINED FUNCTIONS" USED IN UM PUBLICATIONS TO CONSTRUCT AN INDEX. THESE DIFFER FROM THE *FORMAT INDEX FUNCTION IN THAT PAGE NUMBERS ARE EXPLICITLY GIVEN AND TREATED AS CHARACTER STRINGS, AND ENTRIES ARE ALPHABETIZED WITHOUT REGARD TO UPPER OR LOWER CASE. THESE FUNCTIONS CALL INDEX AND INDEXOUT (711/3). 0 Referenced by comments of: 711/3, 711/6 00711/005 COMP CNTR PUBLICATIONS NRIGHT FUNC SF G S0791 FMTJNK 'FORMAT' FSNAME=NRIGHT 5.0T3 197 COMP_CNTR_PUBLICATIONS.NR.SF.005 1 LINE 53 1 PAGE UM LIFT MAY 16, 1977 12:33:05 5.0T7 62 0 *FORMAT NRIGHT "USER-DEFINED FUNCTION" USED IN UM PUBLICATIONS TO GO TO A RIGHT HAND PAGE, LEAVING A BLANK PAGE IF NECESSARY. 0 Referenced by comments of: 711/6 00711/006 COMP CNTR PUBLICATIONS FUNC LIB OL O ETC:FORMFUN 5.0T3 198 COMP_CNTR_PUBLICATIONS.FU.OL.006 1 LINE 1762 3 PAGE UM LIFT JULY 03, 1981 18:21:55 5.0T7 63 ETC.:FORMFUN 0 OBJECT LIBRARY OF *FORMAT "USER-DEFINED FUNCTIONS" (711/3), (711/4), AND (711/5). 0 Referenced by comments of: 461/22 00711/007 COMP CNTR PUBLICATIONS TXTF MACROS WX W278:MEMO.LAYOUT 5.0T3 199 COMP_CNTR_PUBLICATIONS.TX.WX.007 1 LINE 115 1 PAGE UM LIFT JULY 03, 1981 18:21:56 5.0T7 64 0 Referenced by comments of: 756/4 00712/001A *RESTORE MAIN PGM SA G RSTR:RESTORE(1000) 5.0T3 200 RESTORE.MAIN_PGM.SA.001 1 LINE 72 13 PAGE UM HELFFRICH AUG. 06, 1981 05:24:44 5.0T7 65 RSTR:RESTORE 0 USER RUNNABLE PROGRAM TO RESTORE FILES SAVED BY THE SYSTEM ONLINE FILE SAVE PROGRAM (067). CALLS AUTOREST (712/2), AND RSTFMT2 (092/3). ASSEMBLE USING THE FILESAVE MACROS (067/31). NOTE: THE DIRECTORY FILES RSTR:FILEDIR.MAS, RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR ACCESSED BY THIS PROGRAM MUST BE PERMITTED READ TO PKEY=*RESTORE, UNLIM TO RSTR, AND RW TO PKEY=DEADUCATDES. ********************************************************************************* D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: THIS VERSION FIXES A BUG WHICH CAUSED KWSCAN (040) PROMPT INFO NOT TO BE CONVERTED TO UPPER CASE. ********************************************************************************* 0 Referenced by comments of: 67/1, 67/19, 92/3, 712/2, 712/3 1 MON AUG 05/96 18:37:45 Page 485 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00712/002A *RESTORE AUTOREST SUBR SA G RSTR:AUTOREST(1000) 5.0T3 201 RESTORE.AUTOREST_SUBR.SA.002 1 LINE 72 6 PAGE UM HELFFRICH AUG. 06, 1981 05:25:04 5.0T7 66 RSTR:AUTOREST 0 SUBROUTINE WHICH TAKES A LIST OF FILES FROM THE MAIN PROGRAM (712/1) AND MOUNTS AND SCANS TAPES CALLING RSTFMT2 (092/3) TO RESTORE FILES. ASSEMBLE WITH THE FILE SAVE MACROS (067/31). ******************************************************************************* D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: THIS VERSION USES THE NEW MOUNT SUBROUTINE (101) TO MOUNT TAPES, AND FIXES A BUG IN ATTN HANDLING. ******************************************************************************* 0 Referenced by comments of: 712/1, 712/3 00712/003A *RESTORE OBJECT OE G *RESTORE 5.0T3 202 RESTORE.OBJECT.OE.003 1 LINE 7348 7 PAGE UM HELFFRICH AUG. 06, 1981 05:25:07 5.0T7 67 RSTR:*RESTORE 0 OBJECT FOR (712/1), (712/2), AND RSTFMT2 (092/3). NOTE: THE PKEY FOR THIS FILE MUST BE *RESTORE. 0 Referenced by comments of: 712/4 00712/004 *RESTORE *RES C *RES 5.0T3 203 RESTORE.?RES.C.004 1 LINE 64 1 PAGE UM HELFFRICH AUG. 06, 1981 05:25:08 5.0T7 68 RSTR:*RES 0 COMMAND FILE TO RUN *RESTORE (712/3) FOR THE OPERATORS. INVOKED BY ENTERING "MTS *RES" ON THE OPERATOR'S CONSOLE. 00713/001 UPTIME # (PART OF SYSTEM WATCHERS) UM 0 Part of System Watchers (540/24) and (540/25) 00714/001A INTRO GUIDE: FORMAT WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FMT80.SOU 5.0T3 204 INTRO_GUIDE:_FORMAT..WF.001 1 LINE 173 38 PAGE UM MANUAL SEP. 30, 1980 13:58:08 5.0T7 69 0 FORMAT SOURCE FOR "INTRODUCTION TO FORMAT," OCT. 1980, THE SECOND IN A SERIES OF MTS INTRODUCTORY GUIDES. 00714/002A INTRO GUIDE: FORMAT PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FMT80.OUT 5.0T3 205 INTRO_GUIDE:_FORMAT..PF.002 1 LINE 83 66 PAGE UM MANUAL SEP. 30, 1980 13:58:16 5.0T7 70 0 FORMAT PRINT FILE. 1 MON AUG 05/96 18:37:45 Page 486 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00715/001 MERIT CC SUPPORT 360 EQUS S G K1Y9:360EQUS 5.0T3 206 MERIT_CC_SUPPORT.360_EQUS.S.001 1 LINE 84 3 PAGE UM EADIE JULY 03, 1981 18:22:29 5.0T7 71 0 -------------------------------------------------------------------- This component is the source for the Merit Computer Network PDP-11 communications computer (CC) support, related utility programs and command files. Included is the necessary PDP-11 code for the CDC support as well as for MTS (IBM/Amdahl). Anyone considering assembling these components ought to use the ID K1Y9 (it will make life a great deal easier)! -------------------------------------------------------------------- (715/1) is the *11ASR source for EQUS which define the hardware registers, CSW, CCW and sense data for the IBM Amdahl channel interface. 0 Referenced by comments of: 715/1 00715/002 MERIT CC SUPPORT MCS11COM S G K1Y9:MCS11COM 5.0T3 207 MERIT_CC_SUPPORT.MCS11COM.S.002 1 LINE 100 9 PAGE UM EADIE JULY 03, 1981 18:22:29 5.0T7 72 0 *11ASR source for the copy section for the Merit direct terminal support (Hermes). 00715/003 MERIT CC SUPPORT LA EQUS S G K1Y9:LAEQUS 5.0T3 208 MERIT_CC_SUPPORT.LA_EQUS.S.003 1 LINE 83 4 PAGE UM EADIE JULY 03, 1981 18:22:31 5.0T7 73 0 *11ASR source for EQUS which define the hardware registers for the asynchronous line adapter (LA32). 00715/004 MERIT CC SUPPORT NIMBLK DSECT S G K1Y9:NIMBLK 5.0T3 209 MERIT_CC_SUPPORT.NIMBLK_D.S.004 1 LINE 83 2 PAGE UM EADIE JULY 03, 1981 18:22:32 5.0T7 74 0 *11ASR source for the DSECT for the terminal access socket (Hermes). 00715/005 MERIT CC SUPPORT CLI COPY SECT S G K1Y9:CLISTUFF 5.0T3 210 MERIT_CC_SUPPORT.CLI_COPY.S.005 1 LINE 78 2 PAGE UM EADIE JULY 03, 1981 18:22:33 5.0T7 75 0 *11ASR source for the DSECT and EQUS used by the command language interpreter (CLI). 00715/006 MERIT CC SUPPORT FORMAT EQUS S O K1Y9:FORMATEQUS 5.0T3 211 MERIT_CC_SUPPORT.FORMAT_E.S.006 1 LINE 83 3 PAGE UM EADIE JULY 03, 1981 18:22:34 5.0T7 76 0 *11ASR source for the EQUS for the output formatting routine (FMTXT). 1 MON AUG 05/96 18:37:45 Page 487 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00715/007 MERIT CC SUPPORT IVECTOR DSECT S G K1Y9:IVECTOR 5.0T3 212 MERIT_CC_SUPPORT.IVECTOR.S.007 1 LINE 99 2 PAGE UM EADIE JULY 03, 1981 18:22:35 5.0T7 77 0 *11ASR source for the host-to-network interface transfer vector. 00715/008 MERIT CC SUPPORT CCB DSECT S G K1Y9:CCB 5.0T3 213 MERIT_CC_SUPPORT.CCB_DSEC.S.008 1 LINE 79 1 PAGE UM EADIE JULY 03, 1981 18:22:36 5.0T7 78 0 *11ASR source for the clock control block (CCB). 00715/009 MERIT CC SUPPORT RQCB DSECT S G K1Y9:RQCB 5.0T3 214 MERIT_CC_SUPPORT.RQCB_DSE.S.009 1 LINE 100 1 PAGE UM EADIE JULY 03, 1981 18:22:36 5.0T7 79 0 *11ASR source for the record queue control block (RQCB). 00715/010 MERIT CC SUPPORT OPEN BCB DSECT S G K1Y9:OPENBCB 5.0T3 215 MERIT_CC_SUPPORT.OPEN_BCB.S.010 1 LINE 87 1 PAGE UM EADIE JULY 03, 1981 18:22:37 5.0T7 80 0 *11ASR source for the open buffer control block. Copies (715/11). 00715/011 MERIT CC SUPPORT BCB DSECT S G K1Y9:BCB 5.0T3 216 MERIT_CC_SUPPORT.BCB_DSEC.S.011 1 LINE 89 1 PAGE UM EADIE JULY 03, 1981 18:22:38 5.0T7 81 0 *11ASR source for the buffer control block (BCB). 0 Referenced by comments of: 715/10 00715/012 MERIT CC SUPPORT SCB DSECT S G K1Y9:SCB 5.0T3 217 MERIT_CC_SUPPORT.SCB_DSEC.S.012 1 LINE 89 3 PAGE UM EADIE JULY 03, 1981 18:22:39 5.0T7 82 0 *11ASR source for the socket control block (SCB). 00715/013 MERIT CC SUPPORT TCB DSECT S G K1Y9:TCB 5.0T3 218 MERIT_CC_SUPPORT.TCB_DSEC.S.013 1 LINE 91 1 PAGE UM EADIE JULY 03, 1981 18:22:39 5.0T7 83 0 *11ASR source for the task control block (TCB). 00715/014 MERIT CC SUPPORT GLOBAL EQUS S G K1Y9:EQUS 5.0T3 219 MERIT_CC_SUPPORT.GLOBAL_E.S.014 1 LINE 87 5 PAGE UM EADIE JULY 03, 1981 18:22:40 5.0T7 84 0 *11ASR source for the global EQUS. 1 MON AUG 05/96 18:37:45 Page 488 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00715/015 MERIT CC SUPPORT MACROS S G K1Y9:MACROS 5.0T3 220 MERIT_CC_SUPPORT.MACROS.S.015 1 LINE 72 3 PAGE UM EADIE JULY 03, 1981 18:22:41 5.0T7 85 0 *11ASR source for the macros. 00715/016 MERIT CC SUPPORT SWITCHES EQUS S G K1Y9:SWITCHES 5.0T3 221 MERIT_CC_SUPPORT.SWITCHES.S.016 1 LINE 90 3 PAGE UM EADIE JULY 03, 1981 18:22:42 5.0T7 86 0 *11ASR source for the Merit record switch bit definitions. This is used only for documentation; it is not copied. 00715/017 MERIT CC SUPPORT CDC EQUS S G K1Y9:CDCEQUS 5.0T3 222 MERIT_CC_SUPPORT.CDC_EQUS.S.017 1 LINE 74 3 PAGE UM EADIE JULY 03, 1981 18:22:43 5.0T7 87 0 *11ASR source for the EQUS for the CDC hardware interface. 00715/018 MERIT CC SUPPORT VECTORS S G K1Y9:VECTORS.S 5.0T3 223 MERIT_CC_SUPPORT.VECTORS.S.018 1 LINE 93 5 PAGE UM EADIE JULY 03, 1981 18:22:44 5.0T7 88 0 *11ASR source for the low-core system vectors and parameters for the Merit PDP-11 operating system (MINOS). 00715/019 MERIT CC SUPPORT SYSTEM S G K1Y9:SYSTEM.S 5.0T3 224 MERIT_CC_SUPPORT.SYSTEM.S.019 1 LINE 134 59 PAGE UM EADIE JULY 03, 1981 18:22:45 5.0T7 89 0 *11ASR source for the basic MINOS subroutines. 00715/020 MERIT CC SUPPORT TAPE S G K1Y9:TAPE.S 5.0T3 225 MERIT_CC_SUPPORT.TAPE.S.020 1 LINE 92 4 PAGE UM EADIE JULY 03, 1981 18:22:51 5.0T7 90 0 *11ASR source for the paper tape and communications computer (CC) "host" support. 00715/021 MERIT CC SUPPORT TIMER S O K1Y9:TIMER.S 5.0T3 226 MERIT_CC_SUPPORT.TIMER.S.021 1 LINE 83 6 PAGE UM EADIE JULY 03, 1981 18:22:52 5.0T7 91 0 *11ASR source for the MINOS interval timer support routines. 00715/022 MERIT CC SUPPORT PARSER S G K1Y9:PARSE.S 5.0T3 227 MERIT_CC_SUPPORT.PARSER.S.022 1 LINE 84 16 PAGE UM EADIE JULY 03, 1981 18:22:53 5.0T7 92 0 *11ASR source for the MINOS CLI parser. 1 MON AUG 05/96 18:37:45 Page 489 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00715/023 MERIT CC SUPPORT COMMANDS S G K1Y9:CMNDS.S 5.0T3 228 MERIT_CC_SUPPORT.COMMANDS.S.023 1 LINE 104 36 PAGE UM EADIE JULY 03, 1981 18:22:55 5.0T7 93 0 *11ASR source for the MINOS command definitions and execution routines. 00715/024 MERIT CC SUPPORT NIM S G K1Y9:NIM.S 5.0T3 229 MERIT_CC_SUPPORT.NIM.S.024 1 LINE 138 43 PAGE UM EADIE JULY 03, 1981 18:22:59 5.0T7 94 0 *11ASR source for the task time routines for terminal support (NIM: network interface module). 00715/025 MERIT CC SUPPORT NIBBLE S G K1Y9:NIBBLE.S 5.0T3 230 MERIT_CC_SUPPORT.NIBBLE.S.025 1 LINE 68 9 PAGE UM EADIE JULY 03, 1981 18:23:04 5.0T7 95 0 *11ASR source for the nibble buffer management for terminal support. 00715/026 MERIT CC SUPPORT SSDST S G K1Y9:SSDST.S 5.0T3 231 MERIT_CC_SUPPORT.SSDST.S.026 1 LINE 121 17 PAGE UM EADIE JULY 03, 1981 18:23:05 5.0T7 96 0 *11ASR source for the start/stop (asynchronous) device support task (ring sniffer and hang-up detector). 00715/027 MERIT CC SUPPORT DEVICES S G K1Y9:DEVICES.S 5.0T3 232 MERIT_CC_SUPPORT.DEVICES.S.027 1 LINE 85 71 PAGE UM EADIE JULY 03, 1981 18:23:07 5.0T7 97 0 *11ASR source for the interrupt routines for the terminal support. 00715/028 MERIT CC SUPPORT TABLE S G K1Y9:TABLE.S 5.0T3 233 MERIT_CC_SUPPORT.TABLE.S.028 1 LINE 91 21 PAGE UM EADIE JULY 03, 1981 18:23:13 5.0T7 98 0 *11ASR source for the translate table for 2741 support. 00715/029 MERIT CC SUPPORT VERSNO S G K1Y9:VERSNO 5.0T3 234 MERIT_CC_SUPPORT.VERSNO.S.029 1 LINE 55 1 PAGE UM EADIE JULY 03, 1981 18:23:15 5.0T7 99 0 *11ASR source for the code to generate the system version number. 00715/030 MERIT CC SUPPORT MTS RARE S B K1Y9:MTSRARE.S 5.0T3 235 MERIT_CC_SUPPORT.MTS_RARE.S.030 1 LINE 93 19 PAGE UM EADIE JULY 03, 1981 18:23:16 5.0T7 100 0 *11ASR source for the MTS-dependent host interface support. 1 MON AUG 05/96 18:37:45 Page 490 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00715/031 MERIT CC SUPPORT CDC RARE S G K1Y9:CDCRARE.S 5.0T3 236 MERIT_CC_SUPPORT.CDC_RARE.S.031 1 LINE 117 12 PAGE UM EADIE JULY 03, 1981 18:23:18 5.0T7 101 0 *11ASR source for the CDC-dependent host interface support. 00715/032 MERIT CC SUPPORT INP S G K1Y9:INP.S 5.0T3 237 MERIT_CC_SUPPORT.INP.S.032 1 LINE 101 25 PAGE UM EADIE JULY 03, 1981 18:23:21 5.0T7 102 0 *11ASR source for the Merit internodal protocol support. 00715/033 MERIT CC SUPPORT SDA S G K1Y9:SDA.S 5.0T3 238 MERIT_CC_SUPPORT.SDA.S.033 1 LINE 85 12 PAGE UM EADIE JULY 03, 1981 18:23:23 5.0T7 103 0 *11ASR source for the Merit Synchronous Data Adapter support. 00715/034 MERIT CC SUPPORT GENERATE C G K1Y9:LINK.AN 5.0T3 239 MERIT_CC_SUPPORT.GENERATE.C.034 1 LINE 61 1 PAGE UM EADIE JULY 03, 1981 18:23:25 5.0T7 104 0 MTS and *LINK11 commands to build a MINOS system for Ann Arbor node. 00715/035 MERIT CC SUPPORT EVANS SP G K1YZ:EVANS.S(1000,2999) 5.0T3 240 MERIT_CC_SUPPORT.EVANS.SP.035 1 LINE 73 16 PAGE UM EADIE JULY 03, 1981 18:40:30 5.0T7 105 0 MTS PDP-11 dump analysis program (named after Sir Arthur John Evans, 1851-1941, English archaeologist who excavated the palace of Minos). 0 Referenced by comments of: 715/36, 715/37 00715/036 MERIT CC SUPPORT DMPRD SA G K1YZ:EVANS.S(3000) 5.0T3 241 MERIT_CC_SUPPORT.DMPRD.SA.036 1 LINE 72 1 PAGE UM EADIE JULY 03, 1981 18:40:33 5.0T7 106 0 Subroutine called by EVANS (715/35) to read a PDP-11 core image from an FDname and build an internal data structure. 00715/037A MERIT CC SUPPORT CRUNCH C MNET:CRUNCH 5.0T3 242 MERIT_CC_SUPPORT.CRUNCH.C.037 1 LINE 176 1 PAGE UM EADIE JULY 03, 1981 18:40:34 5.0T7 107 0 MTS and EVANS (715/35) commands to crunch a dump taken using 11LOAD (642/11). 00715/038 MERIT CC SUPPORT SDA EQUS S G K1Y9:SDAEQUS 5.0T3 243 MERIT_CC_SUPPORT.SDA_EQUS.S.038 1 LINE 74 3 PAGE UM EADIE JULY 03, 1981 18:40:35 5.0T7 108 1 MON AUG 05/96 18:37:45 Page 491 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00715/039 MERIT CC SUPPORT SDA DSECTS S G K1Y9:SDADSECTS 5.0T3 244 MERIT_CC_SUPPORT.SDA_DSEC.S.039 1 LINE 81 4 PAGE UM EADIE JULY 03, 1981 18:40:36 5.0T7 109 00715/040 MERIT CC SUPPORT DO/IF MACROS SM G K1Y9:11SYSMAC 5.0T3 245 MERIT_CC_SUPPORT.DO/IF_MA.SM.040 1 LINE 68 3 PAGE UM EADIE JULY 03, 1981 18:40:37 5.0T7 110 0 *11ASR MACROS WHICH PROVIDE SIMILAR FACILITIES TO THE "STRUCTURED PROGRAMMING MACROS" IN *SYSMAC. 00715/041C MERIT CC SUPPORT X25 EQUS S G K1Y9:X25EQUS 5.0T3 246 MERIT_CC_SUPPORT.X25_EQUS.S.041 1 LINE 84 3 PAGE UM EADIE JULY 03, 1981 18:40:38 5.0T7 111 0 *11ASR source for the X25 EQUS. 00715/042C MERIT CC SUPPORT TIMER EQUS S G K1Y9:ITEQUS 5.0T3 247 MERIT_CC_SUPPORT.TIMER_EQ.S.042 1 LINE 74 1 PAGE UM EADIE JULY 03, 1981 18:40:39 5.0T7 112 0 *11ASR source for the interval timer EQUS. 00715/043C MERIT CC SUPPORT MEMORY EQUS S G K1Y9:KTEQUS 5.0T3 248 MERIT_CC_SUPPORT.MEMORY_E.S.043 1 LINE 81 4 PAGE UM EADIE JULY 03, 1981 18:40:40 5.0T7 113 0 *11ASR source for the memory management EQUS. 00715/044C MERIT CC SUPPORT X25 S G K1Y9:X25.S 5.0T3 249 MERIT_CC_SUPPORT.X25.S.044 1 LINE 107 29 PAGE UM EADIE JULY 03, 1981 18:40:41 5.0T7 114 0 *11ASR source for the x.25 support. 00715/045C MERIT CC SUPPORT ANN ARBOR S G K1Y9:AN.S 5.0T3 250 MERIT_CC_SUPPORT.ANN_ARBO.S.045 1 LINE 102 3 PAGE UM EADIE JULY 03, 1981 18:40:44 5.0T7 115 0 *11ASR source for the Ann Arbor node configuration. 00716/001 FILE SAVE - ONLINE # (PART OF FILE SAVE) UM 0 Part of File Save, component (067). 0 Referenced by comments of: 67/1 00717/001A MTS VOLUME 7 MASTER WT S0562 MTSV7 'MTS MANUALS' POSN=NEWM3.V7 5.0T3 251 MTS_VOLUME_7.MASTER.WT.001 1 SEQ 132 164 PAGE UM MANUAL JULY 03, 1981 18:41:16 5.0T7 116 0 TEXT/360 MASTER FOR VOLUME 7 "PL/I IN MTS" OF THE UM MTS MANUALS, JULY 1977, UPDATED FEBRUARY 1979 AND OCTOBER 1980. 1 MON AUG 05/96 18:37:45 Page 492 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 EDITOR: RICHARD A. SALISBURY 00717/002A MTS VOLUME 7 PRINT PT S0562 MTSV7 'MTS MANUALS' POSN=PRINT3.V7 5.0T3 252 MTS_VOLUME_7.PRINT.PT.002 1 SEQ 132 302 PAGE UM MANUAL JULY 03, 1981 18:41:23 5.0T7 117 0 TEXT/360 PRINT FILE. 00717/003 MTS VOLUME 7 INDEX SOURCE D S0562 MTSV7 'MTS MANUALS' POSN=V7INDEXSOU.2 5.0T3 253 MTS_VOLUME_7.INDEX_SOURCE.D.003 1 SEQ 77 4 PAGE UM MANUAL JULY 03, 1981 18:41:40 5.0T7 118 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 7. 00717/004 MTS VOLUME 7 UPDATE 1 PT W073:TNLV7.FEB79 5.0T3 254 MTS_VOLUME_7.UPDATE_1.PT.004 1 LINE 106 106 PAGE UM MANUAL JULY 03, 1981 18:41:41 5.0T7 119 0 THIS IS COMPUTING CENTER MEMO 397 -- "UPDATE 1 TO MTS VOLUME 7," FEBRUARY 1979. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00717/005A MTS VOLUME 7 UPDATE 2 PT W073:TNLV7.OCT80 5.0T3 255 MTS_VOLUME_7.UPDATE_2.PT.005 1 LINE 147 38 PAGE UM MANUAL JULY 03, 1981 18:41:50 5.0T7 120 0 THIS IS UPDATE 2 TO MTS VOLUME 7, OCTOBER 1980. $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00718/001 TURNAROUND SA O S0565 D4T3 VLO FSNAME=TURNAROUND..SA.001(1) 294 5.0T3 256 TURNAROUND..SA.001 1 LINE 80 13 PAGE UM MTA JULY 28, 1977 23:57:58 5.0T7 121 0 PROGRAM TO PRINT HISTOGRAMS OF BATCH TURNAROUND TIMES FROM CMDSTAT DATA. CONTAINS THE HASP TABLES WHICH ARE USED TO COMPUTE JOB PRIORITIES FROM TIME ESTIMATES AND PAGES PRINTED. THESE TABLES MAY NEED TO BE CHANGED SO AS TO AGREE WITH THE HASP TABLES USED AT EACH INSTALLATION. THE PROGRAM ALSO GIVES SPECIAL TREATMENT TO HASP REMOTE 18 (NUBS AT UM). COPIES COPY:CMDAREADSECT (531/19). 00718/002 TURNAROUND OC O S0565 D4T3 VLO FSNAME=TURNAROUND..OC.002(1) 295 5.0T3 257 TURNAROUND..OC.002 1 LINE 80 4 PAGE UM MTA JULY 28, 1977 23:57:59 5.0T7 122 0 HAS A "$CONTINUE WITH MTA:READBFR(1000)+*ANALYSIS(-600,-401) RETURN" CARD WHICH REFERS TO COMPS (709) AND (140/7). 00719/001 IEBUPDTE SIMULATOR SA G S0565 D4T3 VLO FSNAME=IEBUPDTE_SIMULATOR..SA.001(1) 296 5.0T3 258 IEBUPDTE_SIMULATOR..SA.001 1 LINE 80 16 PAGE UM MTA JULY 28, 1977 23:58:01 5.0T7 123 0 PROGRAM TO APPLY UPDATES INTENDED FOR THE OS IEBUPDTE PROGRAM. UNIT 0 MUST BE ASSIGNED TO A LABELED INPUT TAPE, UNIT 1 TO A LABELED OUTPUT TAPE, BOTH OF WHICH MUST BE FORMAT FB WITH A LRECL OF 80. THE PROGRAM USES THE INPUT TAPE DSNAMES 1 MON AUG 05/96 18:37:45 Page 493 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 AS MODULE NAMES. CONTROL CARDS ARE READ FROM SCARDS; A RECORD OF WHAT WAS UPDATED IN PRODUCED ON SPRINT. ON ANY ERROR, THE PROGRAM PRINTS THE INPUT, OLD MASTER POSITION, AND NEW MASTER POSITION ON SERCOM AND THEN CALLS MTS. IF RESTARTED, IT ATTEMPTS TO IGNORE THE ERROR AND CONTINUE PROCESSING. FOR INPUT (FROM SCARDS), IF COLUMNS 1 AND 2 ARE NOT "./" THEN THE INPUT RECORD IS A DATA CARDS AND IS ADDED TO THE TAPE ON UNIT 1 IN SEQUENCE USING COLUMNS 73-80. IF COLUMNS 1 AND 2 ARE "./" THEN THE INPUT RECORD IS A CONTROL CARD AS FOLLOWS: ./ ADD NAME=X ADDS A NEW MODULE AFTER THE CURRENT ONE ON UNIT 1. ./ CHANGE NAME=X UPDATES X FROM UNIT 0 TO UNIT 1 COPYING ALL MODULES BEFORE IT. ./ REPL NAME=X REPLACE X. POSITION UNIT 0 AFTER IT, COPYING ALL MODULES BEFORE IT. ./ DELETE SEQ1=S1 SEQ2=S2 S1 AND S2 MUST BE ALL NUMERIC. THE SEQ2 PARAMETER IS OPTIONAL. ./ ENDUP 00719/002 IEBUPDTE SIMULATOR OC G S0565 D4T3 VLO FSNAME=IEBUPDTE_SIMULATOR..OC.002(1) 297 5.0T3 259 IEBUPDTE_SIMULATOR..OC.002 1 LINE 80 5 PAGE UM MTA JULY 28, 1977 23:58:03 5.0T7 124 00720/001 LKEDCONV SA O S0565 D4T3 VLO FSNAME=LKEDCONV..SA.001(1) 298 5.0T3 260 LKEDCONV..SA.001 1 LINE 80 60 PAGE SFU BENET MTA JULY 28, 1977 23:58:06 5.0T7 125 0 A LARGE PROGRAM TO AID IN CONVERTING OS/VS OBJECT LIBRARIES (EITHER FROM *UNLINKER OR AS OS LINK EDITOR INPUT) FOR USE IN MTS. COMMENTS IN THE SOURCE DESCRIBE HOW TO USE IT. 00720/002 LKEDCONV OC O S0565 D4T3 VLO FSNAME=LKEDCONV..OC.002(1) 299 5.0T3 261 LKEDCONV..OC.002 1 LINE 80 12 PAGE SFU BENET MTA JULY 28, 1977 23:58:18 5.0T7 126 00721/001A *OBJUTIL MAIN SA G W067:OBJUTIL.S 5.0T3 262 OBJUTIL.MAIN.SA.001 1 LINE 78 23 PAGE UM SHERRY JULY 03, 1981 18:42:09 5.0T7 127 0 OBJECT FILE EDITOR MAIN PROGRAM. CALLS THE EDITOR EST SUBROUTINE (648/4). THE NEGATIVE LINES CONTAIN COMMANDS TO ASSEMBLE IT. COPIES *GDINFODSECT (594), *LOADINFODSECT (001/4), AND *CNFGINFODSECT (654). ASSEMBLE WITH *ASMH (737) USING THE OBJUTIL MACROS (721/14) AND (721/15) AND *SYSMAC. THE SYSPARM ASSEMBLY PARAMETER MAY BE USED TO SET THE VALUES OF THE GLOBAL SET SYMBOLS, FOR EXAMPLE, SYSPARM='SNOOP=0,LOGERR=1,SHARE=UM' IF SNOOP=1, STATISTICS RECORDS ARE WRITTEN TO A FILE NAMED ETC:OBJUTIL.STAT. IF LOGERR=1, PGNTS ARE LOGGED TO A FILE NAMED ETC:OBJUTIL.ERR. IF SHARE=UQV, ALBERTA'S UPDATES WILL BE INCLUDED. ALL OBJUTIL ROUTINES ARE ASSEMBLED USING THE ASMH LISTING POSTPROCESSOR PEXIT (775/1), WHICH REQUIRES THE ASSEMBLY PARAMETER PAR=PEXIT=*PEXIT (775). EACH SOURCE FILE CONTAINS AN "ASMEDIT" 1 MON AUG 05/96 18:37:45 Page 494 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 MACRO CALL TO SUPPORT THIS POSTPROCESSOR. 0 Referenced by comments of: 98/1, 316/1, 389/1, 495/2, 528/39, 710/1, 721/14, 721/16 00721/002A *OBJUTIL COMMANDS SA G W067:OBJU.CMD.S 5.0T3 263 OBJUTIL.COMMANDS.SA.002 1 LINE 84 40 PAGE UM SHERRY JULY 03, 1981 18:42:16 5.0T7 128 0 COMMAND PROCESSOR ROUTINES. NEGATIVE LINE NUMBER RANGE CONTAINS $RUN COMMAND TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/14) AND (721/15), *GDINFODSECT (594), AND *SYSMAC. 00721/003 *OBJUTIL PARSE SA G W067:OBJU.PARSE.S 5.0T3 264 OBJUTIL.PARSE.SA.003 1 LINE 78 10 PAGE UM SHERRY JULY 03, 1981 18:42:20 5.0T7 129 0 ROUTINES FOR PARSING COMMAND LINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/14) AND (721/15) *GDINFODSECT (594), AND *SYSMAC. 00721/004A *OBJUTIL PATCH SA G W067:OBJU.PATCH.S 5.0T3 265 OBJUTIL.PATCH.SA.004 1 LINE 69 4 PAGE UM SHERRY JULY 03, 1981 18:42:23 5.0T7 130 0 ROUTINES TO GENERATE REP CARDS. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/14) AND (721/15), AND *SYSMAC. 00721/005 *OBJUTIL PRINTER SA G W067:OBJU.PRINT.S 5.0T3 266 OBJUTIL.PRINTER.SA.005 1 LINE 68 6 PAGE UM SHERRY JULY 03, 1981 18:42:24 5.0T7 131 0 ROUTINES TO FORMAT AND PRINT OUTPUT LINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACRO LIBRARIES (721/14) AND (721/15) AND *SYSMAC. 00721/006A *OBJUTIL READSUBR SA G W067:OBJU.READ.S 5.0T3 267 OBJUTIL.READSUBR.SA.006 1 LINE 83 22 PAGE UM SHERRY JULY 03, 1981 18:42:27 5.0T7 132 0 ROUTINES THAT READ OBJECT FILES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/14) AND (721/15), *GDINFODSECT (594), AND *SYSMAC. 00721/007 *OBJUTIL STORAGE SA G W067:OBJU.STOR.S 5.0T3 268 OBJUTIL.STORAGE.SA.007 1 LINE 72 5 PAGE UM SHERRY JULY 03, 1981 18:42:32 5.0T7 133 0 STORAGE ALLOCATION ROUTINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/14) AND (721/15) AND *SYSMAC. 1 MON AUG 05/96 18:37:45 Page 495 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00721/008A *OBJUTIL SYMTABLE SA G W067:OBJU.SYMT.S 5.0T3 269 OBJUTIL.SYMTABLE.SA.008 1 LINE 72 8 PAGE UM SHERRY JULY 03, 1981 18:42:33 5.0T7 134 0 SYMBOL TABLE MANAGEMENT ROUTINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/14) AND (721/15) AND *SYSMAC. 00721/009A *OBJUTIL WRITING SA G W067:OBJU.WRIT.S 5.0T3 270 OBJUTIL.WRITING.SA.009 1 LINE 83 19 PAGE UM SHERRY JULY 03, 1981 18:42:35 5.0T7 135 0 ROUTINES TO WRITE OBJECT FILES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/14) AND (721/15), *GDINFODSECT (594), AND *SYSMAC. 00721/010A *OBJUTIL IOCVT SUBR SA G W067:OBJU.IOCVT.S 5.0T3 271 OBJUTIL.IOCVT_SUBR.SA.010 1 LINE 77 16 PAGE UM SHERRY JULY 03, 1981 18:42:40 5.0T7 136 0 I/O CONVERSION ROUTINES FOR THE DISPLAY, MODIFY, AND SCAN COMMANDS. SHOULD BE ASSEMBLED WITH *SYSMAC. 00721/011A *OBJUTIL OPTIMIZE SUBR SA G W067:OPTIMIZE.S 5.0T3 272 OBJUTIL.OPTIMIZE_SUBR.SA.011 1 LINE 101 15 PAGE UM SHERRY JULY 03, 1981 18:42:43 5.0T7 137 0 A RE-ENTRANT ROUTINE TO OPTIMIZE OBJECT MODULES FOR OBJUTIL. THIS IS A NEW VERSION WITH A SLIGHTLY CHANGED CALLING SEQUENCE. SEE THE SOURCE COMMENTS FOR DETAILS. ASSEMBLE WITH OBJUTIL MISC MACROS (721/15). COPIES *CNFGINFODSECT (654). 00721/012A *OBJUTIL MISC RTNS SA G W067:OBJU.RTN.S 5.0T3 273 OBJUTIL.MISC_RTNS.SA.012 1 LINE 72 11 PAGE UM SHERRY JULY 03, 1981 18:42:45 5.0T7 138 0 MISCELLANEOUS SUBROUTINES. THE NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE. USES THE OBJUTIL MACROS (721/14) AND (721/15), *GDINFODSECT (594), AND *SYSMAC. 00721/013C *OBJUTIL EOBJUTIL SA G W067:OBJU.END.S 5.0T3 274 OBJUTIL.EOBJUTIL.SA.013 1 LINE 70 1 PAGE UM SHERRY JULY 03, 1981 18:42:47 5.0T7 139 0 This file contains the source for a null csect called "EOBJUTIL" that is loaded as the last control section of OBJUTIL in shared VM. It is used to mark the end of OBJUTIL for computing symbolic addresses within the program in the event of a fatal termination. 00721/014A *OBJUTIL OBJUTIL MACROS SM G W067:OBJU.MAC 5.0T3 275 OBJUTIL.OBJUTIL_MACROS.SM.014 1 LINE 72 25 PAGE UM SHERRY JULY 03, 1981 18:42:48 5.0T7 140 0 OBJECT FILE EDITOR MACROS. CONTAINS ROUTINE LINKAGE MACROS, MACROS THAT WERE FORMERLY IN THE SOURCE OF OBJUTIL (721/1), AND SEVERAL COPY SECTIONS 1 MON AUG 05/96 18:37:45 Page 496 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 INCLUDING THE PSECT DEFINITION, AND DATA STRUCTURE DSECTS. 0 Referenced by comments of: 1/9, 721/1, 721/2, 721/3, 721/4, 721/5, 721/6, 721/7, 721/8, 721/9, 721/12, 721/18, 722/1, 757/1 00721/015A *OBJUTIL MISC MACROS SM G W067:MAC 5.0T3 276 OBJUTIL.MISC_MACROS.SM.015 1 LINE 72 12 PAGE UM SHERRY JULY 03, 1981 18:42:53 5.0T7 141 0 MISCELLANEOUS MACROS. 0 Referenced by comments of: 1/5, 354/5, 721/1, 721/2, 721/3, 721/4, 721/5, 721/6, 721/7, 721/8, 721/9, 721/11, 721/12, 721/18, 722/1, 746/1, 747/4, 749/1, 757/1, 775/1 00721/016A *OBJUTIL SHARED OBJECT OE G SEG2:OBJUTIL 5.0T3 277 OBJUTIL.SHARED_OBJECT.OE.016 1 LINE 20107 70 PAGE UM SHERRY JULY 03, 1981 18:42:55 5.0T7 142 SEG2:OBJUTIL 0 OBJECT FOR THE OBJECT FILE EDITOR. LOADED INTO SHARED VM BY PISTLE. DO NOT CHANGE THE ORDER OF THE OBJECT MODULES IN THIS FILE. A TABLE USED BY LOGERR IN (721/1) DEPENDS ON IT. 00721/017 *OBJUTIL *OBJUTIL OC G *OBJUTIL 5.0T3 278 OBJUTIL.*OBJUTIL.OC.017 1 LINE 24 1 PAGE UM SHERRY JULY 03, 1981 18:43:00 5.0T7 143 *OBJUTIL 0 CONTAINS THE APPROPRIATE LOADER CARDS TO FORCE A REFERENCE TO THE SHARED VM OBJUTIL. 0 Referenced by comments of: 721/18 00721/018A *OBJUTIL OBJDUMP SA O W067:OBJU.DUMP.S(1,999) 5.0T3 279 OBJUTIL.OBJDUMP.SA.018 1 LINE 72 8 PAGE UM SHERRY JULY 03, 1981 18:43:01 5.0T7 144 0 STAND-ALONE PROGRAM USED WITH SDS (600) TO PRODUCE A SYMBOLIC DUMP FROM INFORMATION LOGGED BY *OBJUTIL (721/17) UPON FATAL TERMINATION. COMMENTS IN THE SOURCE FILE DESCRIBE THE USE OF THIS PROGRAM. THE NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE. USES THE OBJUTIL MACROS (721/14) AND (721/15), COPY:CC.MACROS (1054/3), *CNFGINFODSECT (654), *GDINFODSECT (594), AND *SYSMAC. ASSEMBLE WITH PAR=TEST. THE OBJECT FOR THIS ROUTINE CAN BE USED VIA $DEBUG DIRECTLY OR XCTL'D TO BY THE PROGRAM DUMPLOAD (721/19). 0 Referenced by comments of: 721/22 00721/019C *OBJUTIL DUMPLOAD SA O W067:OBJU.DUMP.S(1000,1999) 5.0T3 280 OBJUTIL.DUMPLOAD.SA.019 1 LINE 69 1 PAGE UM SHERRY JULY 03, 1981 18:43:09 5.0T7 145 0 Driver program that loads GTSP (721/20) and XCTL's to OBJDUMP in OBJU.DUMPLIB (721/22). Requires *SYSMAC. Assemble with PAR=TEST. 1 MON AUG 05/96 18:37:45 Page 497 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 721/18, 721/21 00721/020C *OBJUTIL GTSP SA O W067:OBJU.DUMP.S(2000,2999) 5.0T3 281 OBJUTIL.GTSP.SA.020 1 LINE 68 1 PAGE UM SHERRY JULY 03, 1981 18:43:12 5.0T7 146 0 GETSPACE intercept used by (721/21) in XCTLing to OBJU.DUMPLIB (721/22). Requires *SYSMAC. Assemble with PAR=TEST. 0 Referenced by comments of: 721/19 00721/021A *OBJUTIL OBJDUMP OE O W067:OBJU.DUMP 5.0T3 282 OBJUTIL.OBJDUMP.OE.021 1 LINE 428 1 PAGE UM SHERRY JULY 03, 1981 18:43:15 5.0T7 147 0 OBJECT FOR DUMPLOAD (721/19). THIS PROGRAM MUST BE RUN FROM SDS AS: $DEB OBJU.DUMP 0=ETC:OBJUTIL.ERR SPRINT=*PRINT* SET ECHO=OFF OUTPUT=*PRINT* RUN THE FILE ETC:OBJUTIL.ERR, IF IT EXISTS, IS USED TO COLLECT ERRORS. THIS PROGRAM DOES AN XCTL TO THE ROUTINE OBJDUMP IN (721/22). 0 Referenced by comments of: 721/20 00721/022C *OBJUTIL OBJU.DUMPLIB OL O W067:OBJU.DUMPLIB 5.0T3 283 OBJUTIL.OBJU.DUMPLIB.OL.022 1 LINE 3088 8 PAGE UM SHERRY JULY 03, 1981 18:43:16 5.0T7 148 0 Object library containing OBJDUMP and GTSP which is XCTL'd to by (721/18). 0 Referenced by comments of: 721/19, 721/20, 721/21 00721/023 *OBJUTIL EXPLAIN FILE M ETC:OBJUTILEXP 5.0T3 284 OBJUTIL.EXPLAIN_FILE.M.023 1 LINE 74 22 PAGE UM SHERRY JULY 03, 1981 18:43:17 5.0T7 149 ETC.:OBJUTILEXP 0 EXPLAIN COMMAND MESSAGES. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00721/024 *OBJUTIL TEST DECK D W067:OBJUTIL.T 5.0T3 285 OBJUTIL.TEST_DECK.D.024 1 LINE 57 3 PAGE UM SHERRY JULY 03, 1981 18:43:19 5.0T7 150 0 THIS FILE CONTAINS SEVERAL TEST STREAMS FOR CHECKING THE OBJECT FILE EDITOR. IT IS USED AS FOLLOWS: $RUN *OBJUTIL SCARDS=OBJUTIL.T THE RESULTING OUTPUT IS INSPECTED TO VERIFY THE PROGRAM'S CORRECTNESS. 1 MON AUG 05/96 18:37:45 Page 498 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00721/025A *OBJUTIL CHANGES WX W067:OBJUTIL.CX 5.0T3 286 OBJUTIL.CHANGES.WX.025 1 LINE 76 6 PAGE UM SHERRY JULY 03, 1981 18:43:20 5.0T7 151 0 *TEXTFORM WRITEUP DESCRIBING THE LATEST VERSION OF THE OBJECT FILE EDITOR, INCLUDING BUG FIXES AND NEW FEATURES. 00722/001 BLOCKHEADER SA O W009:BLKHDR.S 5.0T3 287 BLOCKHEADER..SA.001 1 LINE 116 5 PAGE UM SHERRY JULY 03, 1981 18:43:22 5.0T7 152 W009:BLKHDR.S 0 PROGRAM TO PRODUCE BLOCKLETTER HEADERS FOR PRINTED LISTINGS. WRITES ON SPRINT (DEFAULTING TO *PRINT*). ACCEPTS THE FOLLOWING PARAMETERS IN THE PAR FIELD: HEADER=STRING, CENTER=STRING, FOOTER=STRING, MCC|LCC (MACHINE LOGICAL CARRIAGE CONTROL), AND EJECT (WHICH PRODUCES A PAGE EJECT AFTER THE LAST HEADING). STRING MUST BE < 10 CHARACTERS AND MAY BE ONE OF THE FOLLOWING SPECIAL CODES WHICH CAUSE AN APPROPRIATE TEXT SUBSTITUTION: = MTS VERSION CODE = CURRENT DATE AS "MM/DD/YY" = CURRENT MONTH SPELLED OUT = CURRENT YEAR SPELLED OUT = CURRENT TIME SPELLED OUT = CURRENT DATE AS "MMMDDYY" ASSEMBLE USING THE *OBJUTIL MACROS (721/14) AND (721/15) WITH PAR=PEXIT=*PEXIT. 0 Referenced by comments of: 531/15 00722/002 BLOCKHEADER OE O W009:BLKHDR 5.0T3 288 BLOCKHEADER..OE.002 1 LINE 1982 3 PAGE UM SHERRY JULY 03, 1981 18:43:23 5.0T7 153 W009:BLKHDR 00723/001A FNAMETRT SA G MTS:FNAMETRT(1,999) 5.0T3 289 FNAMETRT..SA.001 1 LINE 72 1 PAGE UM MTS HELFFRICH JULY 03, 1981 18:43:23 5.0T7 154 0 TRANSLATE TABLE USED BY FNAME TO DECIDE WHAT CHARACTERS ARE LEGAL IN FILE NAMES. 00723/002A FNAMETRT OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 00724/001A DISKCOPY SA G FILE:DISKCOPY.AS 5.0T3 290 DISKCOPY..SA.001 1 LINE 78 31 PAGE UM HELFFRICH AUG. 06, 1981 05:26:32 5.0T7 155 FILE:DISKCOPY.AS 0 PROGRAM TO COPY THE CONTENTS OF PAGE-FORMATTED DISKS TO DISK OR TAPE. INSTRUCTIONS APPEAR AS COMMENTS AT THE BEGINNING OF THE PROGRAM. ASSEMBLE USING COPY:FILE.MACROS (482/45), COPY:CC.MACROS (1054/3), COPY:UC.MACROS (787/1), AND *SYSMAC. THE PROGRAM WILL NOT WORK WITH 2311 AND 2314 DISKS BECAUSE A UNIT 1 MON AUG 05/96 18:37:45 Page 499 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CHECK ROUTINE INTERFACE FOR THEM HAS NOT BEEN DEVELOPED. IT WILL NOT WORK FOR 3370-TYPE DISKS EITHER BECAUSE THE TYPE OF CHANNEL PROGRAM IS DIFFERENT. 0 Referenced by comments of: 724/2 00724/002A DISKCOPY OC G FILE:DISKCOPY 5.0T3 291 DISKCOPY..OC.002 1 LINE 32732 29 PAGE UM HELFFRICH AUG. 06, 1981 05:26:35 5.0T7 156 FILE:DISKCOPY 0 OBJECT FOR (724/1). USES THE UBC SUBTASKING MONITOR (1058) AND REFERENCES SYMBOLS IN COPY:DEFS (579/10). 00724/003C DISKCOPY D4.3 VERSION OC G W170:DISKCOPY 5.0T4 653 DISKCOPY.D4.3_VERSION.OC.003 1 LINE 32732 70 PAGE UM HELFFRICH AUG. 28, 1981 03:00:46 5.0T11 227 0 THIS IS A SPECIAL VERSION OF THE DISKCOPY PROGRAM FOR USE WITH THE D4.3 VERSION OF MTS. IT INCLUDES A PRIVATE COPY OF THE SUBTASKING MONITOR (1058) AND THE MSG SUBROUTINE (1023). 00725/001 ACCFORMAT SA # (OBSOLETE) RD16T1 217 ACCFORMAT..SA. 1 LINE 80 4 PAGE UM JULY 12, 1979 23:16:57 0 Now part of COPY:MTS.MACROS (344/3). 00726/001 CNFGSOU SA # (OBSOLETE) D4T3 315 CNFGSOU..SA.001 1 LINE 80 3 PAGE UM JULY 28, 1977 23:59:24 00727/001A *FTNTIDY MAIN SA G W062:FTNTIDY.S(1000,4999) 5.0T3 292 FTNTIDY.MAIN.SA.001 1 LINE 76 49 PAGE UM TIFFANY JULY 03, 1981 18:43:31 5.0T7 157 0 REPLACEMENT PROGRAM FOR *TIDY (229) AND *FRISK (533). ASSEMBLE USING THE FTNTIDY MACLIB (727/8). COPIES *GDINFODSECT (594). >>> NOTE: *FTNTIDY CURRENTLY UNDERSTANDS FORTRAN 77 (SUBJECT TO CHANGES); E.G., IT PROPERLY INDENTS IF ... ELSEIF ... ENDIF. NO ATTEMPT IS MADE TO PROCESS INPUT FOR PREPROCESSORS SUCH AS OVERDRIVE, FLECS, RATFOR, AND STRUCTURED WATFIV. ********************************************************************************* D5.0 CHANGES: (ALREADY DISTRIBUTED ON D4.3A): 1) VARIOUS BUGS IN FTNTIDY HAVE BEEN FIXED. 2) IF HOLLERITH FIELDS IN FORMAT AND CALL STATEMENTS RUN ACROSS A CARD BOUNDARY, THEN THEY START IN THE NEXT CARD. 3) THE PARAMETER NOSPACE HAS BEEN EXTENDED. IF IT IS SPECIFIED AS 1 MON AUG 05/96 18:37:45 Page 500 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 NOSPACE, THE EFFECT IS SAME AS SPACE=OFF. THIS MEANS THAT BLANKS WILL NOT BE DELETED AND THAT A BLANK IS NOT INSERTED EXCEPT WHERE NECESSARY (C.F. INDENT OPTION). THE FOLLOWING DESCRIBES THE EXTENDED FORM OF NOSPACE OPTION. 1. TO OVERRIDE THE SPACING OPTION FOR A SINGLE FORTRAN STATEMENT, SPECIFY NOSPACE=STMT WHERE STMT IS A FORTRAN STATEMENT WITH ALL BLANKS REMOVED. EXAMPLES ARE: NOSPACE=FORMAT NOSPACE=DOUBLEPRECISION 2. FOR MORE THAN ONE STATEMENT, THESE CAN BE ENCLOSED WITHIN PARENTHESES, SEPARATED BY COMMAS. NOSPACE=(STMT1,STMT2,...) AN EXAMPLE IS: NOSPACE=(FORMAT,DOUBLEPRECISION) THIS WILL OVERRIDE THE SPACING OPTION FOR TWO FORTRAN STATEMENTS FORMAT AND DOUBLE PRECISION. 4) A NEW OPTION HOLQUOTE HAS BEEN ADDED. IF IT IS ON, FTNTIDY WILL AUTOMATICALLY CONVERT A HOLLERITH FIELD (STRING PRECEDED BY NH WHERE N IS THE NUMBER OF CHARACTERS IN THE STRING) INTO A STRING ENCLOSED IN APOSTROPHES. IF HOLQUOTE IS OFF, LITERAL CONSTANTS WILL BE LEFT AS IN THE ORIGINAL FORM. THE DEFAULT IS HOLQUOTE=ON, SINCE ONLY COMPUTERS CAN EASILY COUNT THE NUMBER OF CHARACTERS IN A STRING. (NEW FOR D5.0): ALL BUGS FIXED TO DATE. ********************************************************************************* 0 Referenced by comments of: 229/1, 533/1 00727/002A *FTNTIDY LBLGEN SA G W062:FTNTIDY.S(5000,5999) 5.0T3 293 FTNTIDY.LBLGEN.SA.002 1 LINE 72 4 PAGE UM TIFFANY JULY 03, 1981 18:44:15 5.0T7 158 0 SUBROUTINE TO GENERATE OR RETRIEVE LABELS. ASSEMBLE USING THE FTNTIDY MACLIB (727/8). 1 MON AUG 05/96 18:37:45 Page 501 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00727/003A *FTNTIDY STMTVM SA G W062:FTNTIDY.S(6000,6999) 5.0T3 294 FTNTIDY.STMTVM.SA.003 1 LINE 72 4 PAGE UM TIFFANY JULY 03, 1981 18:44:36 5.0T7 159 0 SUBROUTINE TO INITIALIZE, READ, AND WRITE A VIRTUAL MEMORY I/O FILE. 00727/004A *FTNTIDY SWAPLBL SA G W062:FTNTIDY.S(7000,8999) 5.0T3 295 FTNTIDY.SWAPLBL.SA.004 1 LINE 72 15 PAGE UM TIFFANY JULY 03, 1981 18:44:58 5.0T7 160 0 SUBROUTINE TO SWAP LABELS AND TIDY FORTRAN STATEMENTS. ASSEMBLE USING THE FTNTIDY MACLIB (727/8). 00727/005A *FTNTIDY FCNTABLE SA G W062:FTNTIDY.S(9000,9999) 5.0T3 296 FTNTIDY.FCNTABLE.SA.005 1 LINE 72 4 PAGE UM TIFFANY JULY 03, 1981 18:45:27 5.0T7 161 0 A TABLE OF FORTRAN FUNCTIONS. ASSEMBLE USING THE FTNTIDY MACLIB (727/8). 00727/006A *FTNTIDY SPRINT SA G W062:FTNTIDY.S(10000,10999) 5.0T3 297 FTNTIDY.SPRINT.SA.006 1 LINE 72 4 PAGE UM TIFFANY JULY 03, 1981 18:45:47 5.0T7 162 0 FTNTIDY'S OWN SUBROUTINE SPRINT. CALLS SPRINT#. 00727/007A *FTNTIDY FTNREAD SA G W062:FTNTIDY.S(11000,11999) 5.0T3 298 FTNTIDY.FTNREAD.SA.007 1 LINE 72 9 PAGE UM TIFFANY JULY 03, 1981 18:46:08 5.0T7 163 0 AN INPUT ROUTINE THAT EDITS SOURCE ACCORDING TO LINE, EDITED, IBM, OR LONG FORMAT. ASSEMBLE USING THE FTNTIDY MACLIB (727/8). 00727/008A *FTNTIDY MACLIB SM G W062:FTNTIDYMAC 5.0T3 299 FTNTIDY.MACLIB.SM.008 1 LINE 72 6 PAGE UM TIFFANY JULY 03, 1981 18:46:30 5.0T7 164 0 Referenced by comments of: 727/1, 727/2, 727/4, 727/5, 727/7 00727/009A *FTNTIDY OE G *FTNTIDY 5.0T3 300 FTNTIDY..OE.009 1 LINE 10644 21 PAGE UM TIFFANY JULY 03, 1981 18:46:32 5.0T7 165 *FTNTIDY 00728/001A MISC.MACROS SM G COPY:MISC.MACROS 5.0T3 301 MISC.MACROS..SM.001 1 LINE 72 5 PAGE UM MTA JULY 03, 1981 18:46:34 5.0T7 166 COPY:MISC.MACROS 0 CONTAINS VARIOUS MISCELLANEOUS SYSTEM MACROS INCLUDING CONSDSCT (THE CONSIO DSECT USED BY THE OPERATOR JOB, CONSIO SUBROUTINE, AND CONFIG JOB), IPLTVDCT USED BY IPLREAD AND CONFIG, THE MIF MACROS, THE SVCEQU, LOCKSVC, AND UNLKSVC MACROS. DOCUMENTATION FOR THE MIF MACROS IS AVAILABLE IN (685/4). ***************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: 1 MON AUG 05/96 18:37:45 Page 502 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CONTAINS DISK MANAGER CHANGES. ***************************************************************************** 0 Referenced by comments of: 4/4, 21/1, 45/1, 46/1, 67/2, 79/1, 354/5, 400/1, 509/1, 515/1, 540/8, 577/1, 598/1, 629/1, 634/1, 634/4, 634/7, 682/22, 732/1, 769/1, 769/3, 769/5, 769/9, 769/11, 769/13, 769/15, 769/25, 770/1, 777/1, 787/11, 787/13, 787/15, 790/2, 790/4, 806/1, 811/3, 1051/16, 1051/20, 1058/8, 3024/1 00729/001 FIND LABEL *FLB C *FLB 5.0T3 302 FIND_LABEL.*FLB.C.001 1 LINE 47 1 PAGE UM WSG JULY 03, 1981 18:46:35 5.0T7 167 *FLB 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE FNDLBL PROGRAM (729/2). INVOKED BY ENTERING MTS *FLB ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 135/1 00729/002A FIND LABEL FNDLBL PGM SA G WSG:FNDLBL(1,999) 5.0T3 303 FIND_LABEL.FNDLBL_PGM.SA.002 1 LINE 72 4 PAGE UM WSG JULY 03, 1981 18:46:35 5.0T7 168 0 PROGRAM TO READ A TAPE, PRINTING OUT THE VOLUME LABEL AND DENSITY. SOURCE IN LINES 1,999. ASSEMBLE USING THE PRINTDUMP MACROS (400/18). COPIES *CNFGINFODSECT (654). ***************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: MODIFIED TO INCORPORATE CHANGES MADE BY RPI TO PRINT INFORMATION ABOUT FILESAVE AND DUMP TAPES. IF PAR=>OPER IS GIVEN, IT WILL ALSO PRINT INFORMATION ABOUT THE FIRST FILE ON LABELED TAPES. ***************************************************************************** 0 Referenced by comments of: 729/1 00729/003A FIND LABEL FNDLBL PGM OC G SYS:FNDLBL 5.0T3 304 FIND_LABEL.FNDLBL_PGM.OC.003 1 LINE 80 3 PAGE UM WSG JULY 03, 1981 18:46:37 5.0T7 169 SYS.:FNDLBL 00730/001A TSS UTILITIES OC G MTS:TSS/REL3.UTL 5.0T3 305 TSS_UTILITIES..OC.001 1 LINE 80 34 PAGE UM MTA JULY 03, 1981 18:46:37 5.0T7 170 0 IPL-able decks for TSS Release 3 utilities (DASDI, DUMP/RESTORE, and VAM2 utilities). Modified IBM object to allow all 16 channels. 00731/001 CHECKFE SUBR SA G S1430 4.3T1 VLO FSNAME=CHECKFE_SUBR..SA.001(1) 907 5.0T3 306 CHECKFE_SUBR..SA.001 1 LINE 80 4 PAGE UM OGDEN MAY 22, 1979 07:40:40 5.0T7 171 0 SUBROUTINE CALLED BY SSRTN (413/1) TO CHECK THE STATUS OF THE DATA CONCENTRATORS AND THE MERIT PDP-11, STORE THE STATUS CODE IN THE JOBSTA VECTOR, AND, OPTIONALLY, START AN MTS JOB IF "BAD" STATUS IS RETURNED. CALLS THE FESNIFF SUBROUTINE (731/3). COPIES COPY:JOBSTA (413/9). 1 MON AUG 05/96 18:37:45 Page 503 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 45/2, 413/1, 731/3 00731/002 CHECKFE SUBR OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00731/003A CHECKFE SUBR FESNIFF SUBR SA G S0683 OGDEN FSNAME=FESNIFF.S 5.0T3 307 CHECKFE_SUBR.FESNIFF_SUBR.SA.003 1 LINE 72 3 PAGE UM OGDEN OCT. 02, 1980 00:42:28 5.0T7 172 0 SUBROUTINE CALLED BY CHECKFE (731/1) AND CHKDEV (734/3) TO ACTUALLY DETERMINE THE STATUS OF ONE OF THE DATA CONCENTRATORS OR THE MERIT PDP-11. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). *********************************************************************************** D5.0 VERSION (ALREADY DISTRIBUTED ON D4.3A): CHANGED FOR DEVICE TABLE VECTOR ADDITION TO JOB TABLE FORMAT. INSTALL IF AND ONLY IF D4.3A OR D5.0 UMMPS IS INSTALLED. *********************************************************************************** 0 Referenced by comments of: 731/1, 734/3 00731/004A CHECKFE SUBR FESNIFF SUBR OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00731/005 CHECKFE SUBR *FIXFEP C *FIXFEP 5.0T3 308 CHECKFE_SUBR.*FIXFEP.C.005 1 LINE 20 1 PAGE UM OGDEN JULY 03, 1981 18:48:02 5.0T7 173 *FIXFEP 0 OPERATOR FILE STARTED AUTOMATICALLY BY CHECKFE WHEN IT DETECTS SOMETHING ABNORMAL WITH ONE OF THE FRONT END PROCESSORS. $SOURCES TO SYS:FIXFEP (731/6). 0 Referenced by comments of: 731/6 00731/006A CHECKFE SUBR SYS:FIXFEP C SYS:FIXFEP 5.0T3 309 CHECKFE_SUBR.SYS:FIXFEP.C.006 1 LINE 84 1 PAGE UM OGDEN JULY 03, 1981 18:48:03 5.0T7 174 SYS:FIXFEP 0 COMMAND FILE $SOURCED TO BY (731/5). $RUNS SYS:HUH (734/4). 0 Referenced by comments of: 731/5 00731/007 CHECKFE SUBR SYS:FIXLOG D # SYS:FIXLOG UM OGDEN SYS:FIXLOG@E 0 LOG FILE USED BY SYS:FIXFEP. 1 MON AUG 05/96 18:37:45 Page 504 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00732/001A STOR SA G STOR W170:STOR(1000) 5.0T3 310 STOR..SA.001 1 LINE 80 39 PAGE UM HELFFRICH JULY 03, 1981 18:48:04 5.0T7 175 W170:STOR 0 STORAGE ALLOCATION ROUTINES (WHICH ARE INDEPENDENT OF MTS). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), COPY:MISC.MACROS (728), AND COPY:SETPARM (653). 0 Referenced by comments of: 41/1 00732/002A STOR OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 0 Referenced by comments of: 732/3 00732/003 STOR TEST PROGRAM SA G W170:STOR.DUMP(1000) 5.0T3 311 STOR.TEST_PROGRAM.SA.003 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 18:48:30 5.0T7 176 W170:STOR.DUMP 0 TEST PROGRAM TO BE $DEBUGGED WITH (732/2) TO TEST IT. STORAGE REQUESTS CAN BE SIMULATED BY CHANGING REGISTER CONTENTS AND GOING TO THE ROUTINE ENTRY POINT. A CALL TO ROUTINE STORDUMP CAN BE SET UP TO DUMP THE RESULTANT CONTROL BLOCK STRUCTURE. SEE COMMENTS IN LISTING. 00732/004 STOR TEST PROGRAM OC G W170:STOR.DUMP(1,999) 5.0T3 312 STOR.TEST_PROGRAM.OC.004 1 LINE 80 3 PAGE UM HELFFRICH JULY 03, 1981 18:48:31 5.0T7 177 00732/005C STOR DUMP PROGRAM SA O W170:STOR.VERIFY(1005) 5.0T3 313 STOR.DUMP_PROGRAM.SA.005 1 LINE 72 5 PAGE UM HELFFRICH JULY 03, 1981 18:48:32 5.0T7 178 0 This program will read a dump tape and check storage control blocks for consistency. 00732/006C STOR DUMP PROGRAM OC O W170:STOR.VERIFY(1,999) 5.0T3 314 STOR.DUMP_PROGRAM.OC.006 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 18:48:35 5.0T7 179 0 Contains a "$CONTINUE WITH MTS:PRINTDUMP" (400/19) record. 00733/001A INTRO GUIDE: TERMINALS WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERM81.SOU 5.0T3 315 INTRO_GUIDE:_TERMINALS..WF.001 1 LINE 102 44 PAGE UM MANUAL APR. 28, 1981 15:22:57 5.0T7 180 0 FORMAT SOURCE FOR "INTRODUCTION TO TERMINALS," FEB. 1981. 00733/002A INTRO GUIDE: TERMINALS PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERM81.OUT 5.0T3 316 INTRO_GUIDE:_TERMINALS..PF.002 1 LINE 97 96 PAGE UM MANUAL APR. 28, 1981 15:24:27 5.0T7 181 0 FORMAT PRINT FILE. 1 MON AUG 05/96 18:37:45 Page 505 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00733/003A INTRO GUIDE: TERMINALS INDEX D S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERM81.INDEX 5.0T3 317 INTRO_GUIDE:_TERMINALS.IN.D.003 1 LINE 100 4 PAGE UM MANUAL APR. 28, 1981 15:25:37 5.0T7 182 0 INPUT TO *INDEX (580) FOR THE INDEX. 00734/001 HUH *HUH C *HUH 5.0T3 318 HUH.*HUH.C.001 1 LINE 63 1 PAGE UM OGDEN JULY 03, 1981 18:48:45 5.0T7 183 *HUH 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE HUH PROGRAM (734/2). INVOKED BY ENTERING "MTS *HUH" ON THE OPERATORS CONSOLE. 00734/002 HUH HUH PGM SG G S1430 4.3T1 VLO FSNAME=HUH.HUH_PGM.SG.002(1) 913 5.0T3 319 HUH.HUH_PGM.SG.002 1 LINE 106 1 PAGE UM OGDEN MAY 22, 1979 07:40:38 5.0T7 184 0 PROGRAM WHICH CALLS THE CHKDEV SUBROUTINE (734/3) TO DETERMINE THE STATUS OF THE THREE DATA CONCENTRATORS AND THE MERIT PDP-11. 0 Referenced by comments of: 734/1, 734/3, 734/4 00734/003 HUH CHKDEV SUBR SA G S1430 4.3T1 VLO FSNAME=HUH.CHKDEV_SUBR.SA.003(1) 914 5.0T3 320 HUH.CHKDEV_SUBR.SA.003 1 LINE 80 3 PAGE UM OGDEN MAY 22, 1979 07:40:42 5.0T7 185 0 SUBROUTINE CALLED BY MUP (642/15) AND HUH (734/2) TO DETERMINE THE STATE OF THE MERIT PDP-11 OR ONE OF THE DATA CONCENTRATORS AND TO RETURN THE STATE AND AN ASSOCIATED TEXT STRING. CALLS FESNIFF (731/3). 0 Referenced by comments of: 642/15, 642/19, 731/3, 734/2, 734/4 00734/004 HUH SYS.:HUH OC G S1430 4.3T1 VLO FSNAME=HUH..OC.004(1) 915 5.0T3 321 HUH.SYS.:HUH.OC.004 1 LINE 1182 3 PAGE UM OGDEN APR. 06, 1980 12:37:27 5.0T7 186 0 OBJECT FOR HUH (734/2) AND CHKDEV (734/3). 0 Referenced by comments of: 731/6 00735/001A RESOURCES FILEDEF D DBME:RES.FD 5.0T3 322 RESOURCES.FILEDEF.D.001 1 LINE 84 9 PAGE UM OGDEN JULY 03, 1981 18:48:49 5.0T7 187 0 THE FILE DEFINITION FOR THE SPIRES FILE DBME.RESOURCES, A CATALOG OF PROGRAMS, SUBROUTINES, AND DATA FILES AVAILABLE AT MICHIGAN COLLEGES AND UNIVERSITIES (UM, WSU, MSU, AND WMU). THIS FILE SHOULD BE USED WITH SPIRES 5.0 OR LATER VERSIONS ONLY AND SHOULD NOT BE RENUMBERED. ALWAYS COPY @-IC. 1 MON AUG 05/96 18:37:45 Page 506 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00735/002 RESOURCES NOTES WF S0683 OGDEN FSNAME=RES.NOTES.F 5.0T3 323 RESOURCES.NOTES.WF.002 1 LINE 69 2 PAGE UM OGDEN MAY 03, 1981 16:09:04 5.0T7 188 0 NOTES ON INSTALLING DBME.RESOURCES. 00735/003A RESOURCES /A FILE D DBME:RESOURCES/A 5.0T3 324 RESOURCES./A_FILE.D.003 1 LINE 2048 1104 PAGE UM OGDEN JULY 03, 1981 18:49:16 5.0T7 189 0 THE /A FILE FOR DBME.RESOURCES. 00735/004A RESOURCES /Q FILE D DBME:RESOURCES/Q 5.0T3 325 RESOURCES./Q_FILE.D.004 1 LINE 2048 3 PAGE UM OGDEN JULY 03, 1981 18:50:23 5.0T7 190 0 THE /Q FILE FOR DBME.RESOURCES. 00735/005A RESOURCES FORMATS D DBME:RES.FORMATS 5.0T3 326 RESOURCES.FORMATS.D.005 1 LINE 126 16 PAGE UM OGDEN JULY 03, 1981 18:50:23 5.0T7 191 0 THE FORMATS ASSOCIATED WITH DBME.RESOURCES. THIS FILE IS ORGANIZED BY 1000S. 00735/006A RESOURCES THESAURUS D DBME:RES.THE 5.0T3 327 RESOURCES.THESAURUS.D.006 1 LINE 87 8 PAGE UM OGDEN JULY 03, 1981 18:50:25 5.0T7 192 0 BATCH INPUT USED TO BUILD THE THESAURUS ASSOCIATED WITH THE SPIRES SUBFILE RES-SUBJECTS. 00735/007A RESOURCES RES-SUBCHK D DBME:RES.SUBCHK 5.0T3 328 RESOURCES.RES-SUBCHK.D.007 1 LINE 113 11 PAGE UM OGDEN JULY 03, 1981 18:50:26 5.0T7 193 0 BATCH INPUT USED TO BUILD THE SPIRES SUBFILE RES-SUBCHK. 00735/008A RESOURCES JUG SUB. CODES P DBME:RES.SUBJECT 5.0T3 329 RESOURCES.JUG_SUB._CODES.P.008 1 LINE 72 6 PAGE UM OGDEN JULY 03, 1981 18:50:29 5.0T7 194 0 A "READABLE" LIST OF THE MODIFIED JOINT USERS GROUP (JUG) SUBJECT CODES. 00736/001 PLM PASS 0 SF O PLMO S1153 UNSP VLO FSNAME=PLM80.S 5.0T3 330 PLM.PASS_0.SF.001 1 LINE 80 1 PAGE UM UNSP DEC. 19, 1977 11:41:29 5.0T7 195 0 THE INTEL PL/M CROSS COMPILER (VERSION 2) FOR THE 8080 MICROPROCESSOR. THIS IS A SHORT FORTRAN PROGRAM THAT SETS UP SOME DEFAULT I/O UNIT ASSIGNMENTS BY CALLING FTNCMD AND THEN LINKS TO PASS1 (736/3) AND PASS2 (736/5) OF THE COMPILER. 1 MON AUG 05/96 18:37:45 Page 507 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00736/002 PLM PASS 0 OE O UNSP:PLM 5.0T3 331 PLM.PASS_0.OE.002 1 LINE 1162 1 PAGE UM UNSP JULY 03, 1981 18:50:54 5.0T7 196 00736/003 PLM PASS 1 SF O # S1153 UNSP VLO FSNAME=PLM81.S UM UNSP 0 PASS 1 OF VERSION 2 OF INTEL'S PL/M CROSS COMPILER. NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 736/1 00736/004 PLM PASS 1 OE O # UNSP:PLM81 UM UNSP 00736/005 PLM PASS 2 SF O # S1153 UNSP VLO FSNAME=PLM82.S UM UNSP 0 PASS 2 OF VERSION 2 OF INTEL'S PL/M CROSS COMPILER. NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 736/1 00736/006 PLM PASS 2 OE O # UNSP:PLM82 UM UNSP 00736/007 PLM SAMPLE PGM S G UNSP:PLM.SAMPLE 5.0T3 332 PLM.SAMPLE_PGM.S.007 1 LINE 72 1 PAGE UM UNSP JULY 03, 1981 18:51:08 5.0T7 197 0 A SAMPLE PLM PROGRAM. 00736/008A PLM WF S1153 UNSP VLO FSNAME=PLM.FMT 5.0T3 333 PLM..WF.008 1 LINE 69 3 PAGE UM UNSP SEP. 15, 1980 16:43:33 5.0T7 198 00737/001 *ASMH BASIC MATERIAL O O # S0858 'ASMH PTF 21' FMT=FB(3440,80) 1 UM MTA 0 IBM ASMH PROGRAM PRODUCT ASSEMBLER, WHICH CANNOT BE DISTRIBUTED, BUT MUST BE OBTAINED DIRECTLY FROM IBM. THE MTS DISTRIBUTION CONSISTS ONLY OF DOCUMENTATION AND COMMANDS, PROGRAMS, AND UPDATES TO THE IBM SOURCE TO INSTALL ASMH IN MTS. COMPONENTS (737/1) - (737/9) ARE THE OS VERSION WHICH IS INTENDED TO BE USED UNDER *FAKEOS TO ASSEMBLE THE MTS VERSION, WHICH BEGINS WITH COMPONENT (737/10). (737/1), THE BASIC MATERIAL, IS THE IBM SUPPLIED TAPE FOR PTF 21 ASMH. THE PAPER LABEL ON THE IBM TAPE HAS THE FOLLOWING FORM: *************************** **** 5734-AS1 **** *** *** 1 MON AUG 05/96 18:37:45 Page 508 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ** LICEN-PROGRAM IBM PROPERTY ** * COPYRIGHT 1970 IBM CORP. * * * * F0021 PF02 * * 987-G3-30 ***** V05 M00 * * 5806171 *** *** 9TR/1600 * * #0535 ** ** B0064 * ***************** ***************** 0 Referenced by comments of: 210/1, 511/1, 648/1, 686/1, 721/1, 737/1, 810/13, 822/2, 822/6, 822/11, 822/20, 1038/8 00737/002 *ASMH OS INFO WF S1143 D4.1T1 VLO FSNAME=ASMH.OS_INFO.WF.002(1) 577 5.0T3 334 ASMH.OS_INFO.WF.002 1 LINE 98 2 PAGE UM MTA MAY 13, 1978 18:24:21 5.0T7 199 0 COMPUTING CENTER INTERNAL STAFF MEMO DESCRIBING THE USE OF ASMH UNDER *FAKEOS. 00737/003 *ASMH INVOKER SA G S1143 D4.1T1 VLO FSNAME=ASMH.INVOKER.SA.003(1) 578 5.0T3 335 ASMH.INVOKER.SA.003 1 LINE 71 3 PAGE UM MTA MAY 13, 1978 18:24:22 5.0T7 200 0 PROGRAM TO INVOKE *FAKEOS TO RUN THE OS VERSION OF ASMH. CONTAINS $CONTINUE WITH FAKEOS.GBLS (545/19) AND *GDINFODSECT (594) RECORDS. THE OBJECT PROGRAM USES NEW:ASMHSYSMAC (737/9), -ASMH#UT1, &ASMHID:ASMHLIB (737/7), AND &ASMHID:ASMHBLDL (737/6). 0 Referenced by comments of: 737/6, 737/7 00737/004 *ASMH INVOKER OE G S1143 D4.1T1 VLO FSNAME=ASMH.INVOKER.OE.004(1) 579 5.0T3 336 ASMH.INVOKER.OE.004 1 SEQ 853 1 PAGE UM MTA MAY 13, 1978 18:24:23 5.0T7 201 00737/005 *ASMH BLDL INPUT D S1143 D4.1T1 VLO FSNAME=ASMH.BLDL_INPUT.D.005(1) 580 5.0T3 337 ASMH.BLDL_INPUT.D.005 1 LINE 60 1 PAGE UM MTA MAY 13, 1978 18:24:24 5.0T7 202 0 INPUT TO *FAKEOSCREBLDL (545/42) FOR ASMH OS OBJECT DECKS. 00737/006 *ASMH BLDL D S1143 D4.1T1 VLO FSNAME=ASMH.BLDL.D.006(1) 581 5.0T3 338 ASMH.BLDL.D.006 1 SEQ 250 1 PAGE UM MTA MAY 13, 1978 18:24:25 5.0T7 203 0 OUTPUT FROM *FAKEOSCREBLDL (545/42) FOR OS VERSION OF ASMH. USED BY ASMHINVK (737/3). 0 Referenced by comments of: 737/3 00737/007 *ASMH OS LIBRARY OL O # ETC:ASMHLIB UM MTA 0 OBJECT LIBRARY VERSION OF OS ASMH. USED BY ASMHINVK (737/3). THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 737/3 1 MON AUG 05/96 18:37:45 Page 509 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00737/008 *ASMH BLOCK MACROS SS O S0938 FSAVE2 VLO FSNAME=ASMHBLOCKMAC 5.0T3 339 ASMH.BLOCK_MACROS.SS.008 1 LINE 70 1 PAGE UM MTA MAR. 09, 1978 22:41:24 5.0T7 204 0 PROGRAM TO BLOCK A MACRO LIBRARY FOR THE OS VERSION OF ASMH. THIS MAKES IT RUN FASTER AND ALLOWS LARGER LIBRARIES BY USING FEWER LINE NUMBERS. USES UNSP:SPITLIB. 00737/009 *ASMH SYSMAC SM G S1143 D4.1T1 VLO FSNAME=ASMH.SYSMAC.SM.009(1) 583 5.0T3 340 ASMH.SYSMAC.SM.009 1 LINE 4000 98 PAGE UM MTA MAY 13, 1978 18:26:10 5.0T7 205 0 VERSION OF *SYSMAC FOR OS ASMH. THIS AGREED WITH *SYSMAC WHEN IT WAS PRODUCED EXCEPT FOR A FEW CHANGES WHICH WORK ONLY IN THE MTS VERSION OF ASMH. 0 Referenced by comments of: 737/1, 737/3, 737/20 00737/010 *ASMH OPTNL MATERIAL SM O # S0991 'ASMH SOURCE' FMT=FB(3440,80) 1 UM MTA 0 SOURCE FOR THE ASMH MACRO LIBRARY. THIS DOES NOT QUITE AGREE WITH THE OBJECT IN THE BASIC MATERIAL. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. THE PAPER LABEL ON THE IBM TAPE HAS THE FOLLOWING FORM: *************************** **** 5734-AS1 **** *** *** ** LICEN-PROGRAM IBM PROPERTY ** * COPYRIGHT 1970 IBM CORP. * * * * 7029 OPTIONAL * * 043-G4-46 ***** V05 M00 * * 5806171 *** *** 9TR/1600 * * #0694 ** ** B0634 * ***************** ***************** 0 Referenced by comments of: 737/1, 737/23 00737/011 *ASMH OPTNL MATERIAL SA O # S0991 'ASMH SOURCE' FMT=FB(3440,80) 2 UM MTA 0 SOURCE FOR THE OS VERSION OF ASMH. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 737/15 00737/012 *ASMH INFO WF S1143 D4.1T1 VLO FSNAME=ASMH.INFO.WF.012(1) 584 5.0T3 341 ASMH.INFO.WF.012 1 LINE 140 4 PAGE UM MTA MAY 13, 1978 18:26:16 5.0T7 206 0 MEMO TO COMPUTING CENTER STAFF DESCRIBING THE MTS (NOT *FAKEOS) VERSION OF *ASMH. 0 Referenced by comments of: 737/13 1 MON AUG 05/96 18:37:45 Page 510 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00737/013 *ASMH INFO2 WF S0938 FSAVE2 VLO FSNAME=ASMHINFO2(1) 448 5.0T3 342 ASMH.INFO2.WF.013 1 LINE 80 2 PAGE UM MTA NOV. 01, 1978 02:17:47 5.0T7 207 0 ADDENDUM TO (737/12). 00737/014 *ASMH INFO3 WX S0938 FSAVE2 VLO FSNAME=ASMHMEMO 520 5.0T3 343 ASMH.INFO3.WX.014 1 LINE 106 5 PAGE UM MTA NOV. 02, 1979 22:27:02 5.0T7 208 0 A MEMO GIVING DETAILS ABOUT RECENT CHANGES TO *ASMH. 00737/015A *ASMH UTILITY SS O MTA:ASMHUTIL 5.0T3 344 ASMH.UTILITY.SS.015 1 LINE 117 4 PAGE UM MTA JULY 03, 1981 18:53:42 5.0T7 209 MTA.:ASMHUTIL 0 SPITBOL PROGRAM AND MTS COMMANDS TO MAKE ASSEMBLING LESS THAN ALL OF *ASMH POSSIBLE. $SOURCE TO IT AND SAY HELP FOR EXPLANATION. IT KEEPS A LOG OF CHANGES IN ASMHLOG. IT ASSUMES THE MACRO UPDATE HAS BEEN DONE. THE FOLLOWING FILES ARE REFERENCED: SYS:ASMHMASTER (737/11), WATF:ASMHMACLIB (737/25), ASMHDIR (737/16), ASMHUPD (737/18), ASMHUPDBUGS (737/19), ASMHUPDMTS (737/20), ASMHUPDNUM (737/21), ASMHUPDEXTEN (737/22), ASMHOBJ (737/29), VARIOUS SCRATCH FILES, UNSP:SPITLIB (590/30), ASMHLOG, AND *CDUPDATE (1036/2). 0 Referenced by comments of: 737/16 00737/016A *ASMH DIR D MTA:ASMHDIR 5.0T3 345 ASMH.DIR.D.016 1 LINE 315 3 PAGE UM MTA JULY 03, 1981 18:53:44 5.0T7 210 MTA.:ASMHDIR 0 DIRECTORY OF LOCATION OF *ASMH COMPONENTS USED BY ASMHUTIL (737/15). 0 Referenced by comments of: 737/15 00737/017 *ASMH INSTALL C MTA:ASMHINSTALL 5.0T3 346 ASMH.INSTALL.C.017 1 LINE 50 1 PAGE UM MTA JULY 03, 1981 18:53:45 5.0T7 211 MTA.:ASMHINSTALL 0 COMMANDS TO CREATE A NEW VERSION OF SEG2:ASMH IN -SEG2. 00737/018A *ASMH FIRST UPDATE UC G MTA:ASMHUPD 5.0T3 347 ASMH.FIRST_UPDATE.UC.018 1 LINE 51 3 PAGE UM MTA JULY 03, 1981 18:53:46 5.0T7 212 MTA.:ASMHUPD 0 UPDATE TO GET RID OF THE ./ CARDS AND IRRELEVANT COMPONENTS IN THE SOURCE ON THE IBM TAPE. MUST BE THE FIRST UPDATE APPLIED. THE OTHERS SHOULD WORK IN ANY ORDER, BUT MAY NOT. THE ORDER USED HERE IS BUGS, MTS, NUM, AND EXTEN. HAS $CONTINUE WITHS TO ASMHUPDBUGS (737/19), ASMHUPDMTS (737/20), ASMHUPDNUM (737/21), AND ASMHUPDEXTEN (737/22). *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONVERTED TO A NEW FORMAT. 1 MON AUG 05/96 18:37:45 Page 511 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *********************************************************************************** 0 Referenced by comments of: 737/15 00737/019A *ASMH BUGS UPDATE UC G MTA:ASMHUPDBUGS 5.0T3 348 ASMH.BUGS_UPDATE.UC.019 1 LINE 71 21 PAGE UM MTA JULY 03, 1981 18:53:47 5.0T7 213 MTA.:ASMHUPDBUGS 0 UPDATE TO FIX BUGS AND CLEAN UP ASMH, INCLUDING SEVERAL SPEED IMPROVEMENTS. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONVERTED TO A NEW FORMAT. *********************************************************************************** 0 Referenced by comments of: 737/15, 737/18 00737/020A *ASMH MTS UPDATE UC G MTA:ASMHUPDMTS 5.0T3 349 ASMH.MTS_UPDATE.UC.020 1 LINE 73 29 PAGE UM MTA JULY 03, 1981 18:53:50 5.0T7 214 MTA.:ASMHUPDMTS 0 UPDATE TO MAKE ASMH WORK IN MTS. THREE " COPY *GDINFODSECT" STATEMENTS IN THIS FILE MUST BE CHANGED TO " COPY GDDSECT" FOR THE FIRST ASSEMBLY OF ASMH (UNDER *FAKEOS) SINCE THE OS VERSION RESTRICTS COPY SECTION NAMES TO EIGHT-CHARACTER IDENTIFIERS. ALSO, A MACRO LIBRARY CONTAINING ASMHSYSMAC (737/9), ASMHMACLIB (737/25), AND GDDSECT, MUST BE BUILT, SINCE ONLY ONE MACRO LIBRARY IS ALLOWED BY THE OS VERSION. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONVERTED TO A NEW FORMAT. *********************************************************************************** 0 Referenced by comments of: 737/15, 737/18 00737/021A *ASMH NUM UPDATE UC G MTA:ASMHUPDNUM 5.0T3 350 ASMH.NUM_UPDATE.UC.021 1 LINE 70 6 PAGE UM MTA JULY 03, 1981 18:53:54 5.0T7 215 MTA.:ASMHUPDNUM 0 UPDATE TO ADD NUM OPTION. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONVERTED TO A NEW FORMAT. *********************************************************************************** 0 Referenced by comments of: 737/15, 737/18 1 MON AUG 05/96 18:37:45 Page 512 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00737/022A *ASMH EXTEN OPTION UC G MTA:ASMHUPDEXTEN 5.0T3 351 ASMH.EXTEN_OPTION.UC.022 1 LINE 72 12 PAGE UM MTA JULY 03, 1981 18:53:56 5.0T7 216 MTA.:ASMHUPDEXTEN 0 UPDATE TO ADD FEATURES CONTROLLED BY EXTEN OPTION. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONVERTED TO A NEW FORMAT. *********************************************************************************** 0 Referenced by comments of: 737/15, 737/18 00737/023A *ASMH MACRO UPDATE UC G MTA:ASMHMACUPD 5.0T3 352 ASMH.MACRO_UPDATE.UC.023 1 LINE 78 25 PAGE UM MTA JULY 03, 1981 18:53:58 5.0T7 217 MTA.:ASMHMACUPD 0 UPDATE TO PRODUCE THE MTS MACRO LIBRARY FROM THE IBM SOURCE (737/10). *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONVERTED TO A NEW FORMAT. *********************************************************************************** 0 Referenced by comments of: 737/25 00737/024A *ASMH NEW UPDATES UC G MTA:ASMHUPDNEW 5.0T3 353 ASMH.NEW_UPDATES.UC.024 1 LINE 78 89 PAGE UM MTA JULY 03, 1981 18:54:02 5.0T7 218 MTA:ASMHUPDNEW 0 POST D4.1 UDPATES, IN CHRONOLOGICAL ORDER, TO ASMH. *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CONVERTED TO A NEW FORMAT. New changes: See the comments. *********************************************************************************** 00737/025A *ASMH MACRO LIBRARY SM G # WATF:ASMHMACLIB UM MTA 0 OUTPUT FROM (737/23) UPDATE. 0 Referenced by comments of: 737/15, 737/20, 737/28 1 MON AUG 05/96 18:37:45 Page 513 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00737/026 *ASMH MAIN PGM SA G MTA:ASMHMAIN(1,999) 5.0T3 354 ASMH.MAIN_PGM.SA.026 1 LINE 38 1 PAGE UM MTA JULY 03, 1981 18:54:09 5.0T7 219 MTA.:ASMHMAIN 0 MAIN PROGRAM TO CALL IEV90. THIS PLUS IEV60 AND IEV61 ARE IN *ASMH. THE REST MAY BE EITHER THERE OR IN SHARED VM. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 737/30 00737/027 *ASMH MAIN PGM OC G MTA:ASMHMAIN(1000) 5.0T3 355 ASMH.MAIN_PGM.OC.027 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 18:54:10 5.0T7 220 0 ENDS WITH A "$CONTINUE WITH MTA:ASMHOBJ" RECORD. 00737/028 *ASMH OPTIONS ASMBLY SA G S1143 D4.1T1 VLO FSNAME=ASMH.OPTIONS_ASMBLY.SA.024(1) 595 5.0T3 356 ASMH.OPTIONS_ASMBLY.SA.028 1 LINE 49 1 PAGE UM MTA MAY 13, 1978 18:27:02 5.0T7 221 0 SOURCE FOR THE "SYSGEN OPTIONS" ASSEMBLY WHICH PRODUCES IEV61 WITH LOCAL OPTIONS. ASSEMBLE USING ASMHMACLIB (737/25). 00737/029A *ASMH OBJECT OC G # MTA:ASMHOBJ UM MTA 0 FULL OBJECT WITH SYM CARDS. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 737/15 00737/030A *ASMH *ASMH OE G # *ASMH UM MTA 0 COMBINED AND PURGED OBJECT OF ASMHMAIN (737/26), IEV60, AND IEV61. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 163/13, 775/1, 775/2 00737/031A *ASMH SHARED VM OBJ OE G # SEG2:ASMH UM MTA 0 OBJECT WITHOUT SYM CARDS FOR THE SHARED VM PART OF ASMH. IT INCLUDES ALL MODULES EXCEPT IEV60 AND IEV61. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 00737/032 *ASMH TEST PGM #1 SA G S0938 FSAVE2 VLO FSNAME=ASMHT1 5.0T3 357 ASMH.TEST_PGM_#1.SA.032 1 LINE 54 1 PAGE UM MTA APR. 17, 1981 16:57:28 5.0T7 222 0 PROGRAM TO TEST SS INSTRUCTIONS. 1 MON AUG 05/96 18:37:45 Page 514 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00737/033 *ASMH TEST PGM #2 SA G S0938 FSAVE2 VLO FSNAME=ASMHT2 5.0T3 358 ASMH.TEST_PGM_#2.SA.033 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 16:58:57 5.0T7 223 0 PROGRAM TO TEST NEW SYSTEM SET SYMBOLS. START AT LINE *F. 00737/034 *ASMH TEST PGM #3 SA G S0938 FSAVE2 VLO FSNAME=ASMHT3 5.0T3 359 ASMH.TEST_PGM_#3.SA.034 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 16:59:13 5.0T7 224 0 PROGRAM TO TEST LITERALS IN EQU STATEMENTS AND EXPRESSIONS. 00737/035 *ASMH TEST PGM #4 SA G S0938 FSAVE2 VLO FSNAME=ASMHT4 5.0T3 360 ASMH.TEST_PGM_#4.SA.035 1 LINE 76 1 PAGE UM MTA APR. 17, 1981 16:59:26 5.0T7 225 0 PROGRAM TO TEST LINE NUMBER PRINTING. START AT LINE *F. 00737/036 *ASMH TEST PGM #5 SA G S0938 FSAVE2 VLO FSNAME=ASMHT5 5.0T3 361 ASMH.TEST_PGM_#5.SA.036 1 LINE 77 1 PAGE UM MTA APR. 17, 1981 17:26:11 5.0T7 226 0 PROGRAM TO TEST COPY AND LIBRARY MACROS. START AT LINE 10 AND ASSIGN 0 TO THIS FILE TOO. 00737/037 *ASMH TEST PGM #6 SA G S0938 FSAVE2 VLO FSNAME=ASMHT6 5.0T3 362 ASMH.TEST_PGM_#6.SA.037 1 LINE 70 1 PAGE UM MTA APR. 17, 1981 17:27:02 5.0T7 227 0 PROGRAM TO TEST OPDEF, INSTSET, AND 360/67 INSTRUCTIONS. 00737/038 *ASMH TEST PGM #7 SA G S0938 FSAVE2 VLO FSNAME=ASMHT7 5.0T3 363 ASMH.TEST_PGM_#7.SA.038 1 LINE 58 1 PAGE UM MTA APR. 17, 1981 17:27:21 5.0T7 228 0 PROGRAM TO TEST NULL TYPE C CONSTANTS IN DC OR DS STATEMENTS. 00737/039 *ASMH TEST PGM #8 SA G S0938 FSAVE2 VLO FSNAME=ASMHT8 5.0T3 364 ASMH.TEST_PGM_#8.SA.039 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:27:42 5.0T7 229 0 PROGRAM TO TEST "*NNN" ON LCLC OR GBLC DECLARATIONS. 00737/040 *ASMH TEST PGM #9 SA G S0938 FSAVE2 VLO FSNAME=ASMHT9 5.0T3 365 ASMH.TEST_PGM_#9.SA.040 1 LINE 63 1 PAGE UM MTA APR. 17, 1981 17:27:56 5.0T7 230 0 PROGRAM TO TEST ILLEGAL USE OF & THAT BLOWS THE OS VERSION. START AT LINE 10 AND ASSIGN 0 TO THIS FILE. 00737/041 *ASMH TEST PGM #10 SA G S0938 FSAVE2 VLO FSNAME=ASMHT10 5.0T3 366 ASMH.TEST_PGM_#10.SA.041 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:28:15 5.0T7 231 0 PROGRAM TO TEST INNER MACRO DEFINITION. 1 MON AUG 05/96 18:37:45 Page 515 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00737/042 *ASMH TEST PGM #11 SA G S0938 FSAVE2 VLO FSNAME=ASMHT11 5.0T3 367 ASMH.TEST_PGM_#11.SA.042 1 LINE 72 3 PAGE UM MTA APR. 17, 1981 17:28:24 5.0T7 232 0 PROGRAM TO TEST ORDINARY SYMBOLS IN CONDITIONAL ASSEMBLY. 00737/043 *ASMH TEST PGM #12 SA G S0938 FSAVE2 VLO FSNAME=ASMHT12 5.0T3 368 ASMH.TEST_PGM_#12.SA.043 1 LINE 59 1 PAGE UM MTA APR. 17, 1981 17:28:49 5.0T7 233 0 PROGRAM TO TEST SYM CARDS. 00737/044 *ASMH TEST PGM #13 SA G S0938 FSAVE2 VLO FSNAME=ASMHT13 5.0T3 369 ASMH.TEST_PGM_#13.SA.044 1 LINE 72 3 PAGE UM MTA APR. 17, 1981 17:29:01 5.0T7 234 0 PROGRAM TO TEST MACRO PARAMETER SCANNING. 00737/045A *ASMH TEST PGM #14 SA G S0938 FSAVE2 VLO FSNAME=ASMHT14 5.0T3 370 ASMH.TEST_PGM_#14.SA.045 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:29:15 5.0T7 235 0 PROGRAM TO TEST SERCOM OUTPUT. 00737/046 *ASMH TEST PGM #15 SA G S0938 FSAVE2 VLO FSNAME=ASMHT20 5.0T3 371 ASMH.TEST_PGM_#15.SA.046 1 LINE 28 1 PAGE UM MTA APR. 17, 1981 17:30:47 5.0T7 236 0 PROGRAM TO TEST INTERMEDIATE TEXT FILE AND PRINT ONLY TEXT. 00737/047 *ASMH TEST PGM #16 SA G S0938 FSAVE2 VLO FSNAME=ASMHT16 5.0T3 372 ASMH.TEST_PGM_#16.SA.047 1 LINE 45 1 PAGE UM MTA APR. 17, 1981 17:29:45 5.0T7 237 0 PROGRAM TO TEST REDEFINITION OF MACROS. 00737/048 *ASMH TEST PGM #17 SA G S0938 FSAVE2 VLO FSNAME=ASMHT17 5.0T3 373 ASMH.TEST_PGM_#17.SA.048 1 LINE 61 1 PAGE UM MTA APR. 17, 1981 17:30:00 5.0T7 238 0 PROGRAM TO TEST AREAD. 00737/049 *ASMH TEST PGM #18 SA G S0938 FSAVE2 VLO FSNAME=ASMHT18 5.0T3 374 ASMH.TEST_PGM_#18.SA.049 1 LINE 53 1 PAGE UM MTA APR. 17, 1981 17:30:11 5.0T7 239 0 PROGRAM TO TEST MSGLEVEL PARAMETER AND SERCOM OUTPUT. RUN WITH MSGLEVEL=9. 00737/050 *ASMH TEST PGM #19 SA G S0938 FSAVE2 VLO FSNAME=ASMHT19 5.0T3 375 ASMH.TEST_PGM_#19.SA.050 1 LINE 75 1 PAGE UM MTA APR. 17, 1981 17:30:24 5.0T7 240 0 PROGRAM TO TEST CONTINUATION AT FUNNY PLACES WHICH DON'T WORK IN OS VERSION. 1 MON AUG 05/96 18:37:45 Page 516 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00737/051 *ASMH TEST PGM #20 SA G S0938 FSAVE2 VLO FSNAME=ASMHT20 5.0T3 376 ASMH.TEST_PGM_#20.SA.051 1 LINE 28 1 PAGE UM MTA APR. 17, 1981 17:30:47 5.0T7 241 0 PROGRAM TO TEST REPRO. 00737/052 *ASMH TEST PGM #21 SA G S0938 FSAVE2 VLO FSNAME=ASMHT21 5.0T3 377 ASMH.TEST_PGM_#21.SA.052 1 LINE 74 2 PAGE UM MTA APR. 17, 1981 17:31:02 5.0T7 242 0 PROGRAM TO TEST MNOTE AND PUNCH. 00737/053 *ASMH TEST PGM #22 SA G S0938 FSAVE2 VLO FSNAME=ASMHT22 5.0T3 378 ASMH.TEST_PGM_#22.SA.053 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:31:17 5.0T7 243 0 PROGRAM TO TEST TITLE, EJECT, SPACE, AND PRINT. 00737/054A *ASMH TEST PGM #23 SA G S0938 FSAVE2 VLO FSNAME=ASMHT23 5.0T3 379 ASMH.TEST_PGM_#23.SA.054 1 LINE 39 1 PAGE UM MTA APR. 17, 1981 17:31:32 5.0T7 244 0 PROGRAM TO TEST RS AND SI INSTRUCTIONS. 00737/055 *ASMH TEST PGM #24 SA G S0938 FSAVE2 VLO FSNAME=ASMHT24 5.0T3 380 ASMH.TEST_PGM_#24.SA.055 1 LINE 61 1 PAGE UM MTA APR. 17, 1981 17:31:45 5.0T7 245 0 PROGRAM TO TEST ADCONS IN DSECTS. 00737/056 *ASMH TEST PGM #25 SA G S0938 FSAVE2 VLO FSNAME=ASMHT25 5.0T3 381 ASMH.TEST_PGM_#25.SA.056 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:32:06 5.0T7 246 0 PROGRAM TO TEST TYPE X, B, AND C CONSTANTS. 00737/057 *ASMH TEST PGM #26 SA G S0938 FSAVE2 VLO FSNAME=ASMHT26 5.0T3 382 ASMH.TEST_PGM_#26.SA.057 1 LINE 37 1 PAGE UM MTA APR. 17, 1981 17:32:21 5.0T7 247 0 PROGRAM TO TEST EJECT AT BOTTOM OF PAGE WHICH GIVES A BLANK PAGE IN OS VERSION. 00737/058 *ASMH TEST PGM #27 SA G S0938 FSAVE2 VLO FSNAME=ASMHT27 5.0T3 383 ASMH.TEST_PGM_#27.SA.058 1 LINE 64 1 PAGE UM MTA APR. 17, 1981 17:32:45 5.0T7 248 0 PROGRAM TO TEST TRUNCATED SETC EXPRESSIONS. 00737/059 *ASMH TEST PGM #28 SA G S0938 FSAVE2 VLO FSNAME=ASMHT28 5.0T3 384 ASMH.TEST_PGM_#28.SA.059 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:33:01 5.0T7 249 0 PROGRAM TO TEST BLANK CARDS WITH AND WITHOUT LABELS. 1 MON AUG 05/96 18:37:45 Page 517 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00737/060 *ASMH TEST PGM #29 SA G S0938 FSAVE2 VLO FSNAME=ASMHT29 5.0T3 385 ASMH.TEST_PGM_#29.SA.060 1 LINE 55 1 PAGE UM MTA APR. 17, 1981 17:33:10 5.0T7 250 0 PROGRAM TO TEST LENGTH ATTRIBUTE WITH LITERALS, SET SYMBOLS, AND PARAMETERS. 00737/061 *ASMH TEST PGM #30 SA G S0938 FSAVE2 VLO FSNAME=ASMHT30 5.0T3 386 ASMH.TEST_PGM_#30.SA.061 1 LINE 54 1 PAGE UM MTA APR. 17, 1981 17:33:24 5.0T7 251 0 PROGRAM TO TEST TITLES WITH SET SYMBOLS AND IN MACROS. 00737/062 *ASMH TEST PGM #31 SA G S0938 FSAVE2 VLO FSNAME=ASMHT31 5.0T3 387 ASMH.TEST_PGM_#31.SA.062 1 LINE 67 1 PAGE UM MTA APR. 17, 1981 17:33:45 5.0T7 252 0 PROGRAM TO TEST MHELP 8 OUTPUT. 00737/063 *ASMH TEST PGM #32 SA G S0938 FSAVE2 VLO FSNAME=ASMHT32 5.0T3 388 ASMH.TEST_PGM_#32.SA.063 1 LINE 65 1 PAGE UM MTA APR. 17, 1981 17:34:03 5.0T7 253 0 PROGRAM TO TEST UNREFERENCED DXD'S. 00737/064 *ASMH TEST PGM #33 SA G S0938 FSAVE2 VLO FSNAME=ASMHT33 5.0T3 389 ASMH.TEST_PGM_#33.SA.064 1 LINE 66 1 PAGE UM MTA APR. 17, 1981 17:34:18 5.0T7 254 0 PROGRAM TO TEST EXPRESSIONS IN Q TYPE CONSTANTS. 00737/065 *ASMH TEST PGM #34 SA G S0938 FSAVE2 VLO FSNAME=ASMHT34 5.0T3 390 ASMH.TEST_PGM_#34.SA.065 1 LINE 72 4 PAGE UM MTA APR. 17, 1981 17:34:33 5.0T7 255 0 PROGRAM TO TEST ORG AND LOCTR. CONTAINS SEVERAL ASSEMBLIES. 00737/066 *ASMH TEST PGM #35 SA G S0938 FSAVE2 VLO FSNAME=ASMHT35 5.0T3 391 ASMH.TEST_PGM_#35.SA.066 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:34:46 5.0T7 256 0 PROGRAM TO TEST TRAILING COMMAS ON VARIOUS ASSEMBLER STATEMENTS. 00737/067 *ASMH TEST PGM #36 SA G S0938 FSAVE2 VLO FSNAME=ASMHT36 5.0T3 392 ASMH.TEST_PGM_#36.SA.067 1 LINE 58 1 PAGE UM MTA APR. 17, 1981 17:35:16 5.0T7 257 0 TEST PROGRAM FOR PEXIT SUBROUTINE AND PARAMETER AND OCTL. INTENDED TO BE USED WITH (737/68). 00737/068 *ASMH PEXIT TEST SA G S0938 FSAVE2 VLO FSNAME=ASMH.PEXIT 5.0T3 393 ASMH.PEXIT_TEST.SA.068 1 LINE 80 1 PAGE UM MTA APR. 17, 1981 17:37:23 5.0T7 258 0 SAMPLE PEXIT SUBROUTINE WHICH WRITES ITS PARAMETERS AND LINE AS UNIT 19. 1 MON AUG 05/96 18:37:45 Page 518 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 FILE CONTAINS BOTH SOURCE AND OBJECT. 0 Referenced by comments of: 737/67 00737/069 *ASMH TEST PGM #37 SA G S0938 FSAVE2 VLO FSNAME=ASMHT37 5.0T3 394 ASMH.TEST_PGM_#37.SA.070 1 LINE 47 1 PAGE UM MTA APR. 17, 1981 17:35:44 5.0T7 259 0 TEST "_" AS AN ALPHEBETIC CHARACTER 00737/070 *ASMH TEST PGM #38 SA G S0938 FSAVE2 VLO FSNAME=ASMHT38 5.0T3 395 ASMH.TEST_PGM_#38.SA.071 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:36:09 5.0T7 260 0 TEST CHANGES TO PASS 2 UNDEFINED SYMBOL PROCESSING 00737/071A *ASMH TEST PGM #39 SA G S0938 FSAVE2 VLO FSNAME=ASMHT39 5.0T3 396 ASMH.TEST_PGM_#39.SA.072 1 LINE 71 3 PAGE UM MTA APR. 17, 1981 17:36:34 5.0T7 261 0 TEST RELOCATABLE AND QUALIFIED USINGS 00737/072 *ASMH TEST PGM #40 SA G S0938 FSAVE2 VLO FSNAME=ASMHT40 5.0T3 397 ASMH.TEST_PGM_#40.SA.073 1 LINE 64 2 PAGE UM MTA APR. 17, 1981 17:36:47 5.0T7 262 0 TEST PASS2 ERRORS 00737/073A *ASMH TEST PGM #41 SA G S0938 FSAVE2 VLO FSNAME=ASMHT41 5.0T3 398 ASMH.TEST_PGM_#41.SA.074 1 LINE 72 1 PAGE UM MTA APR. 17, 1981 17:37:04 5.0T7 263 0 TEST ERROR MESSAGES DURING LOOK AHEAD. 00737/074 *ASMH CALLER SA G S1143 D4.1T1 VLO FSNAME=ASMH.CALLER.SA.060(1) 628 5.0T3 399 ASMH.CALLER.SA.075 1 LINE 67 1 PAGE UM MTA MAY 13, 1978 18:27:36 5.0T7 264 0 PROGRAM TO TEST DYNAMIC INVOCATION OF ASMH. ASSEMBLE USING *SYSMAC. 00737/075 *ASMH CALLER OC G S1143 D4.1T1 VLO FSNAME=ASMH.CALLER.OC.061(1) 629 5.0T3 400 ASMH.CALLER.OC.076 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 18:27:37 5.0T7 265 00738/001A *MACUTIL SOURCE SA G W062:MACUTIL.S 5.0T3 401 MACUTIL.SOURCE.SA.001 1 LINE 74 95 PAGE UM TIFFANY JULY 03, 1981 19:01:21 5.0T7 266 0 *MACUTIL WAS ADAPTED FROM *OBJUTIL WITH MANY MODIFICATIONS FOR MACROS INSTEAD OF OBJECT MODULES; THE COMMAND LANGUAGE IS SIMILAR TO THAT OF *OBJUTIL. THE PROGRAM IS REENTRANT AND MAY BE LOADED INTO SHARED VM. *MACUTIL CALLS THE EDITOR EST SUBROUTINE (648/4). COMMANDS TO ASSEMBLE ARE AT NEGATIVE LINE NUMBERS. ASSEMBLE USING THE MACUTIL MACROS (738/7) AND *SYSMAC. COPIES 1 MON AUG 05/96 18:37:45 Page 519 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *LOADINFODSECT (001/4), *GDINFODSECT (594) AND *CNFGINFODSECT (654). THE SYSTEM PARAMETERS MAY BE SPECIFIED IN THE ASSEMBLY PARAMETER SYSPARM, E.G., SYSPARM='SNOOP=YES,CCID=ETC.' THE SYSTEM PARAMETERS ARE: SNOOP= GATHER STATISTICS IN THE FILE MACUTIL.STAT UNDER USER ID CCID. THE DEFAULT IS YES. LOGERR= LOG FATAL ERRORS IN THE FILE MACUTIL.ERR UNDER USER ID CCID. THE DEFAULT IS YES. CCID=XXXX USER ID FOR THE EXPLAIN FILE MACUTILEXP, THE STATISTICS FILE MACUTIL.STAT, AND THE LOGERR FILE MACUTIL.ERR. THE DEFAULT FOR CCID IS ETC. ********************************************************************************* D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: THIS IS A NEW VERSION OF MACUTIL. IT IS COMPLETELY REWRITTEN AND SHOULD BE UPWARDS-COMPATIBLE. THE FOLLOWING CHANGES WERE MADE: 1. MACRO NAMES MAY NOW CONTAIN UNDERSCORE CHARACTERS. 2. ANY MACRO NAME NOT CONFORMING TO THE RULES OF*ASMH ORDINARY SYMBOLS WILL BE TREATED AS A COPY SECTION. EXAMPLES ARE: COPY:PSA, *LLMPSEQU, COPY:LLMPSEQU(100). 3. ALL MACROS WITHOUT $ENDFILE LINES WILL AUTOMATICALLY HAVE THEM APPENDED. 4. A RENAME BUG HAS BEEN FIXED. 5. ADDING @ÂHDRGEN@NAME=COPYSECTION SHOULD NOW WORK. 6. ADDING A MACRO/COPY SECTION TO A LIBRARY THAT HAS ONLY ONE MACRO/COPY SECTION WILL NO LONGER REPLACE THAT SINGLE MACRO/COPY SECTION. 7. MACRO LIBRARIES WITH DIRECTORY LINE NOT AT LINE 1 ARE NOW RECOGNIZED. 8. CONTINUED LINES WITH NONBLANKS IN COLUMNS 1-15 ARE DETECTED. 9. LINES WITH NONBLANKS BEYOND COLUMN 80 ARE ERRORS. 10. CONTINUATION LINES ARE NOW CHECKED. FOR EXAMPLE, THE MACRO/MEND, COMMENTS, ETC., CAN BE CONTINUED. Minor bugs have been fixed since the D4.3A version. ********************************************************************************* 0 Referenced by comments of: 344/3, 1054/3 00738/002A *MACUTIL OBJECT OE G *MACUTIL 5.0T3 402 MACUTIL.OBJECT.OE.002 1 LINE 24460 14 PAGE UM TIFFANY JULY 03, 1981 19:02:40 5.0T7 267 *MACUTIL 0 CONTAINS EDITOR EST SUBROUTINE (648/4). 1 MON AUG 05/96 18:37:45 Page 520 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00738/003 *MACUTIL WRITEUP WT W062:MACUTIL.W 5.0T3 403 MACUTIL.WRITEUP.WT.003 1 LINE 124 13 PAGE UM TIFFANY JULY 03, 1981 19:02:42 5.0T7 268 00738/004 *MACUTIL GENEXPLAIN SS G W062:GENEXPLAIN.S 5.0T3 404 MACUTIL.GENEXPLAIN.SS.004 1 LINE 90 3 PAGE UM TIFFANY JULY 03, 1981 19:02:46 5.0T7 269 0 SPITBOL SOURCE FOR PROGRAM TO GENERATE EXPLAIN MESSAGE FILE (738/6) FROM TEXT360 PRINT FILE. 0 Referenced by comments of: 738/6 00738/005 *MACUTIL GENEXPLAIN OE G W062:GENEXPLAIN 5.0T3 405 MACUTIL.GENEXPLAIN.OE.005 1 LINE 18216 9 PAGE UM TIFFANY JULY 03, 1981 19:02:47 5.0T7 270 0 SPITBOL OBJECT FOR GENEXPLAIN. 00738/006 *MACUTIL EXPLAIN M ETC:MACUTILEXP 5.0T3 406 MACUTIL.EXPLAIN.M.006 1 LINE 75 15 PAGE UM TIFFANY JULY 03, 1981 19:02:48 5.0T7 271 ETC.:MACUTILEXP 0 EXPLAIN MESSAGE FILE GENERATED BY GENEXPLAIN (738/4). 0 Referenced by comments of: 738/4 00738/007A *MACUTIL MACLIB SM G W062:MACU.MAC 5.0T3 407 MACUTIL.MACLIB.SM.007 1 LINE 73 16 PAGE UM TIFFANY JULY 03, 1981 19:02:49 5.0T7 272 0 MACRO LIBRARY FOR *MACUTIL. 0 Referenced by comments of: 738/1 00739/001A *LOGPURGE SG G S0027 DISTRB FSNAME=LOGPURGE 5.0T3 408 LOGPURGE..SG.001 1 LINE 118 3 PAGE UM ENGLE APR. 20, 1981 13:07:26 5.0T7 273 0 PROGRAM TO PURGE LINES FROM A LOG FILE AFTER A SPECIFIED RETENTION PERIOD. REQUIRES THE DATE OF THE RECORD, WHICH MAY BE MM/DD/YY, OR DAYS, MINUTES, SECONDS, OR MICROSECONDS SINCE 1 MARCH 1900, TO BE IN A FIXED POSITION IN EACH RECORD. SEE SOURCE FOR RUN INSTRUCTIONS. 0 Referenced by comments of: 104/168, 739/4 00739/002A *LOGPURGE UC G S0027 DISTRB FSNAME=LOGPURGEUPD 5.0T3 409 LOGPURGE..UC.002 1 LINE 118 1 PAGE UM ENGLE APR. 20, 1981 13:08:06 5.0T7 274 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 1 MON AUG 05/96 18:37:45 Page 521 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00739/003A *LOGPURGE OC G S0027 DISTRB FSNAME=LOGP 5.0T3 410 LOGPURGE..OC.003 1 LINE 80 4 PAGE UM ENGLE APR. 20, 1981 13:08:11 5.0T7 275 00739/004A *LOGPURGE OE G *LOGPURGE 5.0T3 411 LOGPURGE..OE.004 1 LINE 2086 2 PAGE UM ENGLE JULY 03, 1981 19:03:08 5.0T7 276 *LOGPURGE 0 LINKEDITED COMBINATION OF (739/1) AND *LCS (164). 00739/005A *LOGPURGE SYS:PURGE OC SYS:PURGE 5.0T3 412 LOGPURGE.SYS:PURGE.OC.005 1 LINE 31 1 PAGE UM OGDEN JULY 03, 1981 19:03:09 5.0T7 277 SYS:PURGE 0 This contains a $CONTINUE with *LOGPURGE record and $CONTINUE WITH SEG2:CFE and $CONTINUE WITH SEG2:TIME records. These two time routines are normally post-IPL loaded. This file allows them work during IPL. Used by *CLN (531/5). 0 Referenced by comments of: 531/5 00740/001A *CKSIG SG G S0027 DISTRB FSNAME=CKSIG 5.0T3 413 CKSIG..SG.001 1 LINE 78 9 PAGE UM ENGLE FEB. 04, 1981 13:58:25 5.0T7 278 0 PROGRAM TO AUTHENTICATE A SIGNON BY CHECKING ANY OF THE FOLLOWING: TIME OF SIGNON, DAY OF THE WEEK, GUINFO ITEMS, OR SNS DATA FOR *MSOURCE*. RECORDING THE SIGNON IN A LOG FILE AND, FOR PROJECT NUMBERS STARTING WITH "W", REQUESTING VERIFICATION FROM OPER IF THE SIGNON WOULD OTHERWISE FAIL ARE OPTIONAL. SEE SOURCE FOR RUN INSTRUCTIONS. 0 Referenced by comments of: 740/4 00740/002A *CKSIG UC G S0027 DISTRB FSNAME=CKSIGUPD 5.0T3 414 CKSIG..UC.002 1 LINE 70 1 PAGE UM ENGLE FEB. 04, 1981 13:58:40 5.0T7 279 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00740/003A *CKSIG OC G S0027 DISTRB FSNAME=CKSG 5.0T3 415 CKSIG..OC.003 1 LINE 80 14 PAGE UM ENGLE FEB. 04, 1981 13:59:29 5.0T7 280 00740/004A *CKSIG OE G *CKSIG 5.0T3 416 CKSIG..OE.004 1 LINE 8804 6 PAGE UM ENGLE JULY 03, 1981 19:03:30 5.0T7 281 *CKSIG 0 LINKEDITED COMBINATION OF (740/1) AND *LCS (164). 00741/001A MTS VOLUME 16 MASTER WT S1163 MTSV16 'MTS MANUALS' POSN=NEWM3.V16 5.0T3 417 MTS_VOLUME_16.MASTER.WT.001 1 SEQ 132 285 PAGE UM MANUAL JULY 03, 1981 19:06:39 5.0T7 282 0 TEXT/360 MASTER FOR VOLUME 16 "ALGOL W IN MTS" OF THE UM MTS MANUALS, SEPT. 1980. 1 MON AUG 05/96 18:37:45 Page 522 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 528/1 00741/002A MTS VOLUME 16 PRINT PT S1163 MTSV16 'MTS MANUALS' POSN=PRINT3.V16 5.0T3 418 MTS_VOLUME_16.PRINT.PT.002 1 SEQ 132 536 PAGE UM MANUAL JULY 03, 1981 19:07:01 5.0T7 283 0 TEXT/360 PRINT FILE. 00741/003A MTS VOLUME 16 INDEX SOURCE D S1163 MTSV16 'MTS MANUALS' POSN=V16INDEXSOU.2 5.0T3 419 MTS_VOLUME_16.INDEX_SOURC.D.003 1 SEQ 51 16 PAGE UM MANUAL JULY 03, 1981 19:07:49 5.0T7 284 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 16. 00742/001 TAPE DIRECTORY MAIN PGM SG G W044:TAPEDIR.S 5.0T3 420 TAPE_DIRECTORY.MAIN_PGM.SG.001 1 LINE 130 15 PAGE UM SALISBURY JULY 03, 1981 19:07:51 5.0T7 285 0 CONVERSATIONAL PROGRAM TO CREATE AND MAINTAIN A TAPE DIRECTORY. THE USE OF THIS PROGRAM IS DESCRIBED BY COMPONENT (742/6). 0 Referenced by comments of: 50/6, 616/1, 617/1, 742/3, 742/4 00742/002 TAPE DIRECTORY KWFCN FUNCTION SG G W044:TAPEDIR.SF 5.0T3 421 TAPE_DIRECTORY.KWFCN_FUNC.SG.002 1 LINE 90 3 PAGE UM SALISBURY JULY 03, 1981 19:08:03 5.0T7 286 0 SOURCE FOR THE KWSCAN FUNCTION, "KWFCN". 0 Referenced by comments of: 742/4 00742/003 TAPE DIRECTORY DIRECTORY FUNC SG G W044:DIRLIB.S 5.0T3 422 TAPE_DIRECTORY.DIRECTORY.SG.003 1 LINE 126 14 PAGE UM SALISBURY JULY 03, 1981 19:08:04 5.0T7 287 0 SUBROUTINE LIBRARY USED TO ACCESS A TAPE DIRECTORY. MAY BE USED AS A STAND-ALONE SUBROUTINE LIBRARY (THERE ARE MANY ENTRY POINTS) OR IN CONJUNCTION WITH THE TAPE DIRECTORY PROGRAM (742/1). 0 Referenced by comments of: 742/4, 742/5 00742/004 TAPE DIRECTORY OBJECT OC G SYS:DIRPROGRAM 5.0T3 423 TAPE_DIRECTORY.OBJECT.OC.004 1 LINE 80 28 PAGE UM SALISBURY JULY 03, 1981 19:08:18 5.0T7 288 SYS.:DIRPROGRAM 0 OBJECT OF (742/1), (742/2), AND (742/3). CONTAINS A $CONTINUE WITH SYS:DIRLIB (742/5) RECORD. 00742/005 TAPE DIRECTORY DIRECTORY FUNC OC G SYS:DIRLIB 5.0T3 424 TAPE_DIRECTORY.DIRECTORY.OC.005 1 LINE 80 18 PAGE UM SALISBURY JULY 03, 1981 19:08:20 5.0T7 289 SYS.:DIRLIB 0 OBJECT OF (742/3), WHICH MAY BE USED SEPARATELY FOR EASY REFERENCE BY OTHER SYSTEM COMPONENTS. THE USE OF THIS PROGRAM IS DESCRIBED BY (742/6). 1 MON AUG 05/96 18:37:45 Page 523 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 50/4, 742/4, 753/4 00742/006 TAPE DIRECTORY WRITEUP WT W044:DIR.WRITEUP 5.0T3 425 TAPE_DIRECTORY.WRITEUP.WT.006 1 LINE 93 15 PAGE UM SALISBURY JULY 03, 1981 19:08:22 5.0T7 290 0 DESCRIPTION OF THE TAPE DIRECTORY PROGRAM AND FUNCTIONS. 0 Referenced by comments of: 742/1, 742/5, 742/7 00742/007 TAPE DIRECTORY WRITEUP PT W044:DIR.PRINT 5.0T3 426 TAPE_DIRECTORY.WRITEUP.PT.007 1 LINE 132 31 PAGE UM SALISBURY JULY 03, 1981 19:08:24 5.0T7 291 0 LINE PRINTER OUTPUT FOR (742/6). COPY TO A TN PRINTER @MCC. 00743/001 HARDWARE CONFIG PLOT SF G CNFG W032:CONFIGPLOT 5.0T3 427 HARDWARE_CONFIG_PLOT..SF.001 1 LINE 80 49 PAGE UM EMERY JULY 03, 1981 19:08:27 5.0T7 292 0 THIS IS THE FORTRAN SOURCE FOR THE MACHINE CONFIGURATION PLOT GENERATION PROGRAM. IT CONSISTS OF A MAIN PROGRAM, WHICH IS STRONGLY INSTALLATION DEPENDENT, AND VARIOUS SUBROUTINES THAT ARE INSTALLATION INDEPENDENT. NO ATTEMPT IS MADE TO ISOLATE THE INSTALLATION DEPENDENCIES FROM THE PROGRAM BY PUTTING THEM IN AN AUXILIARY INPUT FILE. CONSEQUENTLY, ANY INSTALLATION WISHING TO USE THIS PROGRAM WILL HAVE TO MODIFY AND RECOMPILE IT TO SUIT THE LOCAL CONFIGURATION. 00744/001 DAVE.GENLIB MAIN S* O S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.MAIN.S*.001(1) 36 5.0T3 428 DAVE.GENLIB.MAIN.S*.001 1 LINE 93 5 PAGE UM BRILL APR. 06, 1980 13:09:43 5.0T7 293 0 MAIN PROGRAM, WRITTEN IN *SNOSTORM, TO ANALYZE FORTRAN SUBROUTINES, E. G., THOSE IN *LIBRARY (524/1), CALLED BY PROGRAMS FREQUENTLY ANALYZED THROUGH *DAVE (765). THIS FILE ALSO CONTAINS COMMANDS TO COMPILE IT. 0 Referenced by comments of: 744/5 00744/002 DAVE.GENLIB ASM SUBRS SA O S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.ASM_SUBRS.SA.002(1) 37 5.0T3 429 DAVE.GENLIB.ASM_SUBRS.SA.002 1 LINE 67 1 PAGE UM BRILL APR. 06, 1980 13:09:46 5.0T7 294 0 ASSEMBLY LANGUAGE SUBROUTINES. THIS FILE ALSO CONTAINS COMMANDS TO ASSEMBLE IT. 0 Referenced by comments of: 744/4, 744/5 00744/003 DAVE.GENLIB FTN SUBRS SF O S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.FTN_SUBRS.SF.003(1) 38 5.0T3 430 DAVE.GENLIB.FTN_SUBRS.SF.003 1 LINE 81 3 PAGE UM BRILL APR. 06, 1980 13:09:48 5.0T7 295 0 FORTRAN LANGUAGE SUBROUTINES. THIS FILE ALSO CONTAINS THE COMMANDS TO COMPILE IT. 1 MON AUG 05/96 18:37:45 Page 524 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 744/4, 744/5 00744/004 DAVE.GENLIB SUBR LIB OL O S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.SUBR_LIB.OL.004(1) 39 5.0T3 431 DAVE.GENLIB.SUBR_LIB.OL.004 1 LINE 1424 4 PAGE UM BRILL APR. 06, 1980 13:09:51 5.0T7 296 0 OBJECT OF (744/2) AND (744/3). 00744/005 DAVE.GENLIB *DAVE.GENLIB OE O *DAVE.GENLIB 5.0T3 432 DAVE.GENLIB.*DAVE.GENLIB.OE.005 1 LINE 80 16 PAGE UM BRILL JULY 03, 1981 19:09:02 5.0T7 297 *DAVE.GENLIB 0 OBJECT OF (744/1), (744/2), AND (744/3). HAS A $CONTINUE WITH *SPITLIB RECORD. 0 Referenced by comments of: 744/6, 744/7 00744/006 DAVE.GENLIB *LIBRARY DESCR D S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.*LIBRARY_DESC.D.006(1) 41 5.0T3 433 DAVE.GENLIB.*LIBRARY_DESC.D.006 1 LINE 74 12 PAGE UM BRILL APR. 06, 1980 13:09:56 5.0T7 298 0 DATA USED BY *DAVE.GENLIB (744/5) FOR CREATING DAVE.EXT (744/7). THE DATA CONSISTS OF DESCRIPTIONS, IN FORMAT SUITABLE FOR INPUT TO *DAVE.GENLIB, OF ALL OF THE FORTRAN-CALLABLE SUBROUTINES IN *LIBRARY (524/1). 0 Referenced by comments of: 744/7 00744/007 DAVE.GENLIB DAVE.EXT D ETC:DAVE.EXT 5.0T3 434 DAVE.GENLIB.DAVE.EXT.D.007 1 LINE 2660 7 PAGE UM BRILL JULY 03, 1981 19:11:28 5.0T7 299 ETC:DAVE.EXT 0 EXTERNAL SUBROUTINE LIBRARY REQUIRED BY *DAVE (765/2). DAVE.EXT IS CREATED BY *DAVE.GENLIB (744/5) USING THE (744/6) DATA. 0 Referenced by comments of: 744/6, 765/2 00744/008 DAVE.GENLIB MEMO 402 WF S1431 4.3T2 VLO FSNAME=DAVE.GENLIB.MEMO_402.WF.008(1) 43 5.0T3 435 DAVE.GENLIB.MEMO_402.WF.008 1 LINE 70 3 PAGE UM BRILL JULY 13, 1979 11:27:39 5.0T7 300 0 THIS IS COMPUTING CENTER MEMO 402 -- "*DAVE.GENLIB". 00745/001A *LALRGEN SP G ALWB:LALRGEN.S 5.0T3 436 LALRGEN..SP.001 1 LINE 85 32 PAGE UM BODWIN JULY 03, 1981 19:11:30 5.0T7 301 0 SOURCE FOR AN LALR(1) PARSE TABLE GENERATOR. COMPILE WITH PAR=SORMGIN=(2,72,1),MACRO. 0 Referenced by comments of: 1042/83 1 MON AUG 05/96 18:37:45 Page 525 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00745/002A *LALRGEN OE G *LALRGEN 5.0T3 437 LALRGEN..OE.002 1 LINE 32767 20 PAGE UM BODWIN JULY 03, 1981 19:11:34 5.0T7 302 *LALRGEN 0 THIS FILE IS OBTAINED FROM THE PL/1 OBJECT AS FOLLOWS: $RUN *LINKEDIT INCLUDE LALRGEN.O RENAME IHESAPC IHESAPE INCLUDE@SLI *PL1LIB INCLUDE@SLI *LIBRARY INCLUDE *LCS COMBINE PUNCH LALRGEN.L STOP 00746/001A COMPARE SA G W062:COMPARE.S 5.0T3 438 COMPARE..SA.001 1 LINE 145 45 PAGE UM TIFFANY JULY 03, 1981 19:11:35 5.0T7 303 0 A FAST COMPARISON PROGRAM. ASSEMBLE USING MACROS IN ORDER: THE COMPARE MACROS (746/3), OBJUTIL MISCELLANEOUS MACROS (721/15), AND *SYSMAC WITH PEXIT=*PEXIT (775). COPIES *GDINFODSECT (594). ***************************************************************************** D5.0 version: New version can generate patterns for *CDUPDATE (1036) programs and also *UPDATE (137) output. The (746/4) writeup describes this feature. ***************************************************************************** 00746/002A COMPARE OE G *COMPARE 5.0T3 439 COMPARE..OE.002 1 LINE 16900 14 PAGE UM TIFFANY JULY 03, 1981 19:11:41 5.0T7 304 *COMPARE 00746/003 COMPARE PROC.MAC SM G W062:PROC.MAC 5.0T3 440 COMPARE.PROC.MAC.SM.003 1 LINE 73 13 PAGE UM TIFFANY JULY 03, 1981 19:11:43 5.0T7 305 0 CONTAINS MACROS PROC, ENDPROC, RETURN, INVOKE, ETC., USED BY THE ASSEMBLY OF OF COMPARE PROGRAM. 0 Referenced by comments of: 746/1, 749/1 00746/004C COMPARE WRITEUP WF W062:COMPARE.ITEM 5.0T3 441 COMPARE.WRITEUP.WF.004 1 LINE 71 1 PAGE UM TIFFANY JULY 03, 1981 19:11:54 5.0T7 306 0 This is a writeup describing the feature which allows *COMPARE to produces CDUPDATE control commands. This feature is not documented in the MTS Volume 2 *COMPARE writeup. 0 Referenced by comments of: 746/1 1 MON AUG 05/96 18:37:45 Page 526 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00747/001 SIDELABEL S G S1431 4.3T2 VLO FSNAME=SIDELABEL..S.001(1) 48 5.0T3 442 SIDELABEL..S.001 1 LINE 88 3 PAGE UM BODWIN JULY 12, 1979 23:17:44 5.0T7 307 0 OVERDRIVE SOURCE FOR SIDELABEL, A PROGRAM TO LABEL THE EDGE OF PRINTOUTS. 0 Referenced by comments of: 648/1, 747/3, 811/3, 811/5, 811/7, 811/9 00747/002 SIDELABEL SF G S1431 4.3T2 VLO FSNAME=SIDELABEL..SF.002(1) 49 5.0T3 443 SIDELABEL..SF.002 1 LINE 72 3 PAGE UM BODWIN JULY 12, 1979 23:17:46 5.0T7 308 0 FORTRAN SOURCE FOR SIDELABEL. 0 Referenced by comments of: 747/3 00747/003 SIDELABEL OE G S1431 4.3T2 VLO FSNAME=SIDELABEL..OC.003(1) 50 5.0T3 444 SIDELABEL..OE.003 1 LINE 2290 2 PAGE UM BODWIN JULY 12, 1979 23:17:46 5.0T7 309 0 OBJECT OF (747/1) AND (747/2). 0 Referenced by comments of: 498/1, 747/4, 747/5 00747/004C SIDELABEL EDGER SA G W067:EDGER(1000) 5.0T3 445 SIDELABEL.EDGER.SA.004 1 LINE 72 4 PAGE UM SHERRY JULY 03, 1981 19:11:56 5.0T7 310 0 An interface to ALWB:SIDELABEL (747/3) to bypass the extra scan SIDELABEL must make to count the number of pages in a listing. Assemble with the (721/15) macros with PAR=BATCH,PEXIT=*PEXIT. When $RUN, a page estimate must be specified in the PAR field, e.g., PAR=PAGES=120. Program is documented in the source comments beginning at line 1022. 00747/005C SIDELABEL EDGER OC G W067:EDGER(1,999) 5.0T3 446 SIDELABEL.EDGER.OC.005 1 LINE 1160 2 PAGE UM SHERRY JULY 03, 1981 19:11:58 5.0T7 311 0 Contains a $CONTINUE WITH ALWB:SIDELABEL (747/3) record. 0 Referenced by comments of: 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 00748/001A INTRO GUIDE: MTS WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.SOU(2) 5.0T3 447 INTRO_GUIDE:_MTS..WF.001 1 LINE 154 119 PAGE UM MANUAL AUG. 18, 1980 15:44:18 5.0T7 312 0 FORMAT SOURCE FOR "INTRODUCTION TO MTS," SEPTEMBER 1980. 00748/002A INTRO GUIDE: MTS PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.OUT(2) 5.0T3 448 INTRO_GUIDE:_MTS..PF.002 1 LINE 81 165 PAGE UM MANUAL AUG. 18, 1980 15:46:28 5.0T7 313 0 FORMAT PRINT FILE. 1 MON AUG 05/96 18:37:45 Page 527 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00748/003A INTRO GUIDE: MTS INDEX D S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.INDEX80 5.0T3 449 INTRO_GUIDE:_MTS.INDEX.D.003 1 LINE 140 11 PAGE UM MANUAL AUG. 18, 1980 15:58:57 5.0T7 314 0 INPUT TO *INDEX (580) FOR THE INDEX TO "INTRODUCTION TO MTS." 00749/001A MACSCAN SA G W062:MACSCAN.S 5.0T3 450 MACSCAN..SA.001 1 LINE 74 17 PAGE UM UNSP TIFFANY JULY 03, 1981 19:12:42 5.0T7 315 0 PROGRAM TO SCAN ASSEMBLY LANGUAGE PROGRAMS AND LIST MACROS AND COPY SECTIONS USED. ASSEMBLE WITH THE FOLLOWING MACRO LIBRARIES: 2=W062:PROC.MAC (746/3), THE (721/15) *OBJUTIL MACROS, AND *SYSMAC, WITH PEXIT=*PEXIT. COPIES *GDINFODSECT (594). ************************************************************************** D5.0 version: Typos corrected in source, but not reassembled. ************************************************************************** 00749/002 MACSCAN OE G UNSP:MACSCAN 5.0T3 451 MACSCAN..OE.002 1 LINE 5698 6 PAGE UM UNSP TIFFANY JULY 03, 1981 19:12:55 5.0T7 316 UNSP:MACSCAN 00749/003A MACSCAN 360 INSTS D UNSP:MACSCAN.360 5.0T3 452 MACSCAN.360_INSTS.D.003 1 LINE 74 1 PAGE UM UNSP TIFFANY JULY 03, 1981 19:12:56 5.0T7 317 UNSP:MACSCAN.360 0 A LIST OF 360 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME. 00749/004A MACSCAN 370 INSTS D UNSP:MACSCAN.370 5.0T3 453 MACSCAN.370_INSTS.D.004 1 LINE 74 1 PAGE UM UNSP TIFFANY JULY 03, 1981 19:12:57 5.0T7 318 UNSP:MACSCAN.370 0 A LIST OF 370 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME. 00749/005A MACSCAN WRITEUP WF W062:MACSCAN.W 5.0T3 454 MACSCAN.WRITEUP.WF.005 1 LINE 81 1 PAGE UM UNSP TIFFANY JULY 03, 1981 19:12:58 5.0T7 319 0 FORMAT SOURCE FOR MACSCAN WRITEUP. 00750/001 XREF SS O S1153 UNSP VLO FSNAME=XREF.S 5.0T3 455 XREF..SS.001 1 LINE 101 3 PAGE UBC BALLARD UNSP DEC. 20, 1978 23:16:56 5.0T7 320 0 A GENERAL CROSS REFERENCE PROGRAM WRITTEN AT UBC. AT UM, THIS PROGRAM IS CLASSIFIED AS UNSUPPORTED SOFTWARE. 1 MON AUG 05/96 18:37:45 Page 528 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00750/002 XREF OC O UNSP:XREF 5.0T3 456 XREF..OC.002 1 LINE 80 7 PAGE UBC BALLARD UNSP JULY 03, 1981 19:13:12 5.0T7 321 UNSP:XREF 0 HAS A $CONTINUE WITH *SPITLIB CARD. 00751/001 ILLBEBACK SG G S1153 UNSP VLO FSNAME=ILLBEBACK.S 5.0T3 457 ILLBEBACK..SG.001 1 LINE 76 1 PAGE UM UNSP JAN. 02, 1979 17:18:11 5.0T7 322 0 PROGRAM TO LOCK A TERMINAL SESSION. 00751/002 ILLBEBACK OC G UNSP:ILLBEBACK 5.0T3 458 ILLBEBACK..OC.002 1 LINE 80 1 PAGE UM UNSP JULY 03, 1981 19:13:14 5.0T7 323 UNSP:ILLBEBACK 00751/003 ILLBEBACK WRITEUP WF S1153 UNSP VLO FSNAME=ILLBEBACK.F 5.0T3 459 ILLBEBACK.WRITEUP.WF.003 1 LINE 67 1 PAGE UM UNSP JAN. 09, 1979 16:52:07 5.0T7 324 00752/001 HASP LOG COLLECTION PGM SA O W116:HSP.COLLCT.S 5.0T3 460 HASP_LOG.COLLECTION_PGM.SA.001 1 LINE 75 39 PAGE UM UNSP H YOUNG JULY 03, 1981 19:13:18 5.0T7 325 0 AT UM, THIS PROGRAM IS STARTED AFTER A SYSTEM RELOAD TO EXAMINE FILES CREATED BY CMDSTAT (531/1) WITH NAMES OF THE FORM HASPLOGXXXXX. THESE FILES CONTAIN ALL INFORMATION CURRENTLY OUTPUTTED TO THE HASP LOG PRINTER. THE PROGRAM CONDENSES THE INFORMATION AND PLACES IT INTO FILES HAVING NAMES OF THE FORM HSYYMMDDHH WHERE YYMMDDHH IS THE TIME THE FILE IS CREATED. NORMALLY THERE IS ONLY ONE HSYYMMDHH FILE FOR EACH DAY. THE PROGRAM DESTROYS THE HASPLOGXXXXX FILES AS THEY ARE PROCESSED. THE HSYYMMDDHH FILES ARE KEPT FOR 7 DAYS AND THEN DESTROYED. IN ADDITION TO THE ABOVE FILES, THE PROGRAM ALSO MAINTAINS THE FOLLOWING FILES: UNKHSPMSGS -- ALL HASP MESSAGES THAT CAN NOT CURRENTLY BE HANDLED BY THE COLLECTION PROGRAM ARE RECORDED HERE. HSDEVTBLES -- USED FOR INTERNAL BOOKKEEPING AND TO LET THE RETRIEVAL PROGRAM KNOW WHICH HSYYMMDDHH FILES ARE AVAILABLE. THE PROGRAM ALSO REQUIRES THAT THIS FILE EXIST SO THAT IT CAN KEEP TRACK OF THE NEXT JOB ON THE PRINTER, THE PUNCH, ETC. HLOGPRV -- THE HASPLOG COLLECTION PROGRAM CALLS CHKFILE (682/39) TO GET SHARING DESCRIPTORS THAT THE ID WHICH IS RUNNING THE PROGRAM HAS TO THIS FILE. A USER'S ACCESS DETERMINES THE AMOUNT AND TYPE OF INFORMATION HE CAN HAVE RETURNED BY HASPLOG. THE COLLECTION PROGRAM ASSUMES IT IS BEING RUN UNDER THE SAME ID AS THE CMDSTAT PROGRAM. TO START THE PROGRAM SOME HASPLOGXXXXX FILES MUST BE AVAILABLE AS WELL AS EMPTY FILES OF THE FOLLOWING NAMES: HS78010100, 1 MON AUG 05/96 18:37:45 Page 529 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 UNKHSPMSGS, AND HSDEVTBLES. ASSEMBLE WITH PAR=BATCH. USES HSP.MACLIB (752/7). COPIES *GFINFODSECT (594). 0 Referenced by comments of: 387/19, 752/3, 752/4, 752/7 00752/002 HASP LOG COLLECTION PGM OC O SYS:HLOG 5.0T3 461 HASP_LOG.COLLECTION_PGM.OC.002 1 LINE 240 16 PAGE UM UNSP H YOUNG JULY 03, 1981 19:13:21 5.0T7 326 00752/003 HASP LOG *HLG C *HLG 5.0T3 462 HASP_LOG.*HLG.C.003 1 LINE 36 1 PAGE UM UNSP H YOUNG JULY 03, 1981 19:13:23 5.0T7 327 *HLG 0 COMMAND FILE TO RUN THE HASP LOG COLLECTION PROGRAM (752/1). INVOKED BY ENTERING "MTS *HLG" ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 531/7 00752/004 HASP LOG RETRIEVAL PGM SA O W116:HSP.RETRIV.S 5.0T3 463 HASP_LOG.RETRIEVAL_PGM.SA.004 1 LINE 73 28 PAGE UM UNSP H YOUNG JULY 03, 1981 19:13:24 5.0T7 328 0 PROVIDES INTERACTIVE RETRIEVAL OF INFORMATION ABOUT HASP JOBS. USES FILES WITH NAMES OF THE FORM HSYYMMDDHH AS BUILT BY THE COLLECTION PROGRAM (752/1) AND USES THE FILE HSDEVTBLES AS MAINTAINED BY THE COLLECTION PROGRAM TO DETERMINE WHICH HSYYMMDDHH FILES ARE AVAILABLE. THIS PROGRAM ASSUMES THAT THE COLLECTION PROGRAM IS BEING RUN UNDER THE USER ID SYS. IF IT IS TO RUN UNDER AN ID OTHER THAN SYS, ALL REFERENCES OF THE FORM "SYS:FDNAME" MUST BE REPLACED WITH ONE OF THE FORM "USERID:FDNAME" WHERE "USERID" IS THE USER ID OF THE TASK RUNNING THE COLLECTION PROGRAM. ASSEMBLE WITH PAR=BATCH. USES HSP.MACLIB (752/7). 0 Referenced by comments of: 752/7 00752/005 HASP LOG RETRIEVAL PGM OC O UNSP:HASPLOG 5.0T3 464 HASP_LOG.RETRIEVAL_PGM.OC.005 1 LINE 336 11 PAGE UM UNSP H YOUNG JULY 03, 1981 19:13:26 5.0T7 329 0 REFERENCES IN COPY:SYSDEFS (579/3) MUST BE APPENDED TO THE END. 00752/006 HASP LOG RETRIEVAL DOC P UNSP:HASPLOG.W 5.0T3 465 HASP_LOG.RETRIEVAL_DOC.P.006 1 LINE 84 3 PAGE UM UNSP H YOUNG JULY 03, 1981 19:13:28 5.0T7 330 0 WRITEUP DESCRIBING THE USE OF THE RETRIEVAL PROGRAM. 00752/007 HASP LOG MACRO LIB SM G W116:HSP.MACLIB 5.0T3 466 HASP_LOG.MACRO_LIB.SM.007 1 LINE 72 13 PAGE UM UNSP H YOUNG JULY 03, 1981 19:13:30 5.0T7 331 0 MACRO LIBRARY USED BY (752/1) AND (752/4). 1 MON AUG 05/96 18:37:45 Page 530 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 752/1, 752/4 00753/001 SCAN MAIN PGM SA O W030:SCAN 5.0T3 467 SCAN.MAIN_PGM.SA.001 1 LINE 69 10 PAGE UM LIFT JULY 03, 1981 19:13:32 5.0T7 332 0 MAIN CSECT OF PROGRAM TO SEARCH STATISTICS TAPES FOR RECORDS. SEARCH CRITERIA MAY BE SPECIFIED IN COMMANDS OR BY WRITING SUBROUTINES SCAN WILL USE. IMPLEMENTATION IS FAR FROM COMPLETE (E. G., SEARCHING FOR CMDSTAT RECORDS NEEDS TO BE ADDED), BUT WHAT IS IMPLEMENTED WORKS. COPIES COPY:CMDAREADSECT (531/19). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND SCAN MACROS (753/5). 0 Referenced by comments of: 707/1, 753/4, 753/5 00753/002 SCAN CSTAT SUBR SA O W030:CSTAT(1,999) 5.0T3 468 SCAN.CSTAT_SUBR.SA.002 1 LINE 67 4 PAGE UM LIFT JULY 03, 1981 19:13:38 5.0T7 333 0 SUBROUTINE FOR SCAN TO HANDLE THE STA COMMAND. ASSEMBLE USING SCAN MACROS (753/5). 0 Referenced by comments of: 753/4, 753/5 00753/003 SCAN CCOPY SUBR SA O W030:CCOPY(1,999) 5.0T3 469 SCAN.CCOPY_SUBR.SA.003 1 LINE 69 5 PAGE UM LIFT JULY 03, 1981 19:13:39 5.0T7 334 0 SUBROUTINE FOR SCAN TO HANDLE COPY AND LIST COMMANDS. ASSEMBLE USING COPY:MTS.MACROS (344/3) AND SCAN MACROS (753/5). COPIES COPY:CMDAREADSECT (531/19). 0 Referenced by comments of: 753/4, 753/5 00753/004 SCAN OBJECT OC O W030:SCANX 5.0T3 470 SCAN.OBJECT.OC.004 1 LINE 80 11 PAGE UM LIFT JULY 03, 1981 19:13:40 5.0T7 335 0 OBJECT OF SCAN MAIN PROGRAM (753/1) CSTAT SUBROUTINE (753/2), LISTSTAT (071), CCOPY SUBROUTINE (753/3), AND JVCT SUBROUTINE (674). HAS A $CONTINUE WITH SYS:DIRLIB RETURN (742/5) RECORD. 00753/005 SCAN MACRO LIBRARY SM O W030:SCANDS 5.0T3 471 SCAN.MACRO_LIBRARY.SM.005 1 LINE 70 1 PAGE UM LIFT JULY 03, 1981 19:13:42 5.0T7 336 0 MACRO LIBRARY USED BY (753/1), (753/2), AND (753/3). 0 Referenced by comments of: 753/1, 753/2, 753/3 1 MON AUG 05/96 18:37:45 Page 531 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00753/006 SCAN WRITEUP WX W030:SCAN.W(1,999) 5.0T3 472 SCAN.WRITEUP.WX.006 1 LINE 80 4 PAGE UM LIFT JULY 03, 1981 19:13:43 5.0T7 337 0 WRITEUP FOR SCAN. DESCRIBES ONLY WHAT'S ACTUALLY IMPLEMENTED. 00753/007 SCAN WRITEUP PX W030:SCAN.W(1000) 5.0T3 473 SCAN.WRITEUP.PX.007 1 LINE 76 5 PAGE UM LIFT JULY 03, 1981 19:13:44 5.0T7 338 00754/001 F8ASR SF O S1153 UNSP VLO FSNAME=F8ASR.S 5.0T3 474 F8ASR..SF.001 1 LINE 79 25 PAGE UM UNSP JUNE 23, 1978 20:42:24 5.0T7 339 0 FORTRAN SOURCE FOR A MOSTEK F8 CROSS-ASSEMBLER. COPIES OF THE "MOSTEK F8 MICROPROCESSOR SOFTWARE SUPPORT OPERATIONS MANUAL: FORTRAN IV CROSS ASSEMBLER" (10 PAGES) ARE AVAILABLE UPON REQUEST. 00754/002 F8ASR OE O UNSP:F8ASR 5.0T3 475 F8ASR..OE.002 1 LINE 11980 7 PAGE UM UNSP JULY 03, 1981 19:13:50 5.0T7 340 UNSP:F8ASR 00754/003 F8ASR WF S1319 D4.2T1 VLO FSNAME=F8ASR..WF.003(1) 810 5.0T3 476 F8ASR..WF.003 1 LINE 143 10 PAGE UM UNSP APR. 02, 1979 01:10:36 5.0T7 341 0 THIS IS THE "MOSTEK F8 MICROPROCESSOR SOFTWARE SUPPORT OPERATIONS MANUAL: FORTRAN IV CROSS ASSEMBLER" (10 PAGES). 00755/001 UM FEP HARDWARE LAM PGM S G FEP.:LAM 5.0T3 477 UM_FEP_HARDWARE.LAM_PGM.S.001 1 LINE 81 24 PAGE UM TOKARSKI JULY 03, 1981 19:14:30 5.0T7 342 0 THIS COMPONENT CONTAINS SOFTWARE RELATED TO THE UM DATA CONCENTRATORS (FRONT END PROCESSORS). SOURCE FOR LINE ADAPTER MICROPROCESSOR PROGRAM. ASSEMBLE USING *11ASR (515). 00755/002 UM FEP HARDWARE LAM DESC WF S0767 'SAVETAPE' FSNAME=LAMMAN.S 5.0T3 478 UM_FEP_HARDWARE.LAM_DESC.WF.002 1 LINE 120 36 PAGE UM TOKARSKI JAN. 17, 1979 10:02:27 5.0T7 343 0 MANUAL DESCRIBING LAM HARDWARE AND PROGRAM. 00755/003 UM FEP HARDWARE CHAN XFACE PGM S G DIAG:IF360PGM 5.0T3 479 UM_FEP_HARDWARE.CHAN_XFAC.S.003 1 LINE 87 11 PAGE UM TOKARSKI JULY 03, 1981 19:17:27 5.0T7 344 0 MICROPROGRAM FOR 360-CHANNEL-TO-PDP-11-INTERFACE. ASSEMBLE USING *11ASR (515). 1 MON AUG 05/96 18:37:45 Page 532 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00755/004 UM FEP HARDWARE CHAN XFACE MAN WF S0767 'SAVETAPE' FSNAME=360MANUAL 5.0T3 480 UM_FEP_HARDWARE.CHAN_XFAC.WF.004 1 LINE 156 64 PAGE UM TOKARSKI MAR. 07, 1974 08:55.40 5.0T7 345 0 MANUAL DESCRIBING CHANNEL INTERFACE PROGRAM. 00756/001 ONTEL SOFTWARE OP/MCP S G CRT:OPSOU 5.0T3 481 ONTEL_SOFTWARE.OP/MCP.S.001 1 LINE 170 72 PAGE UM CASHMAN JULY 03, 1981 19:18:42 5.0T7 346 0 SOURCE FOR THE UM ONTEL TERMINAL MICROPROCESS SOFTWARE. THIS SOFTWARE IS COPYRIGHTED, BUT USE BY ANY INSTALLATION RECEIVING DISTRIBUTIONS OF MTS IS ALLOWED SUBJECT TO THE FOLLOWING CONDITIONS: 1) THE COPYRIGHT NOTICE MUST BE INCLUDED IN ALL COPIES. 2) USE MUST BE NOT BE FOR PROFIT. 3) REDISTRIBUTION OF THE SOFTWARE OUTSIDE OF THE MTS COMMUNITY REQUIRES WRITTEN PERMISSION FROM THE UOFM COMPUTING CENTER. THERE ARE VARIOUS CONDITIONAL ASSEMBLY PARAMETERS: 1) OPTION='ROM' -- TO RUN IN ROM MEMORY OPTION='RAM' -- TO RUN IN RAM MEMORY OPTION='DOS' -- TO RUN IN RAM UNDER ONTEL'S DISK SYSTEM 2) MACHIN='OP1' -- TO RUN IN OP-1 MACHINE MACHIN='OPR' -- TO RUN IN OP-1R MACHINE 3) MCP=0 -- USES THE STANDARD DATA CONCENTRATOR PROTOCOL MCP=1 -- USES THE MICHIGAN COMMUNICATIONS PROTOCOL 4) KEY='ONT' -- THE STANDARD ONTEL KEYBOARD LAYOUT KEY='327' -- COURIER-TYPE KEYBOARD LAYOUT 5) SIZE=N -- WHERE N IS THE SIZE OF MEMORY FOR DOS VERSION SIZE=4 -- FOR ROM VERSION WHICH FITS IN 4K OF ROM MEMORY 6) STARPR=0 -- NO EXTRA CODE STARPR=1 -- GENERATE CODE TO DUMP BUFFER TO MTS (%DUMP) 7) DEBUG=ON -- LINK TO RESIDENT KENOBI MONITOR (756/2) DEBUG=OFF -- NO LINK TO MONITOR ASSEMBLE USING I8080ASR (686/24). COPIES OP/COMMENTS (756/3). 0 Referenced by comments of: 756/3 00756/002A ONTEL SOFTWARE KENOBI S G CRT:KENOBI 5.0T3 482 ONTEL_SOFTWARE.KENOBI.S.002 1 LINE 118 31 PAGE UM CASHMAN JULY 03, 1981 19:18:48 5.0T7 347 0 SOURCE FOR THE ONTEL DEBUGGING MONITOR. THE FOLLOWING ARE CONDITIONAL ASSEMBLY PARAMETERS: 1) OPTION='ROM' -- TO RUN IN ROM MEMORY 1 MON AUG 05/96 18:37:45 Page 533 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 OPTION='RAM' -- TO RUN IN RAM MEMORY 2) DEBUG=ON -- KENOBI IS ENTERED FROM 3270 EMULATOR DEBUG=OFF -- MONITOR IS STAND-ALONE 0 Referenced by comments of: 756/1 00756/003C ONTEL SOFTWARE COMMENTS S G CRT:OP/COMMENTS 5.0T3 483 ONTEL_SOFTWARE.COMMENTS.S.003 1 LINE 61 1 PAGE UM CASHMAN JULY 03, 1981 19:18:52 5.0T7 348 0 Used to print a short comment describing an option of the ONTEL program in OPSOU (756/1). COPY'ed by *I8080ASR (686/24). 0 Referenced by comments of: 756/1 00756/004 ONTEL SOFTWARE MEMO 415 WX S1431 4.3T2 VLO FSNAME=ONTEL_SOFTWARE.MEMO_415.WX.004(1) 60 5.0T3 484 ONTEL_SOFTWARE.MEMO_415.WX.004 1 LINE 92 10 PAGE UM HARTMAN MAR. 26, 1980 09:41:24 5.0T7 349 0 THIS IS COMPUTING CENTER MEMO 415 -- "INTRODUCTION TO THE ONTEL TERMINAL." REQUIRES THE (711/7) TEXTFORM MACROS. COMPONENT (756/5) CONTAINS TABLES TO BE INSERTED ON PAGE 15 FF. REQUIRES OTHER HAND INSERTED DIAGRAMS, WHICH MAY BE OBTAINED FROM THE COMPUTING CENTER PUBLICATIONS OFFICE. 0 Referenced by comments of: 756/5 00756/005 ONTEL SOFTWARE MEMO 415 P S1431 4.3T2 VLO FSNAME=ONTEL_SOFTWARE.MEMO_415.P.005(1) 61 5.0T3 485 ONTEL_SOFTWARE.MEMO_415.P.005 1 LINE 81 5 PAGE UM HARTMAN MAR. 26, 1980 09:47:11 5.0T7 350 0 CONTAINS DIAGRAM TO BE INSERTED ON PAGE 15 FF. OF (756/4). 0 Referenced by comments of: 756/4 00757/001 SPITPAR SA G S1319 D4.2T1 VLO FSNAME=SPITPAR..SA.001(1) 817 5.0T3 486 SPITPAR..SA.001 1 LINE 72 1 PAGE UM UNSP SHERRY JAN. 19, 1979 00:39:56 5.0T7 351 0 A MAIN PROGRAM FOR USE WITH SPITBOL PROGRAMS WHICH ALLOWS THEM TO BE RUN WITH OR WITHOUT THE SEMICOLON IN THE PAR FIELD. ASSEMBLE USING *OBJUTIL MACROS (721/14) AND (721/15). 00757/002 SPITPAR OC G UNSP:SPITPAR 5.0T3 487 SPITPAR..OC.002 1 LINE 96 1 PAGE UM UNSP SHERRY JULY 03, 1981 19:18:57 5.0T7 352 UNSP:SPITPAR 0 HAS A $CONTINUE WITH *SPITLIB CARD. 00758/001 SOFTCHK SA G MTA:SOFTCHK(1,999) 5.0T3 488 SOFTCHK..SA.001 1 LINE 72 3 PAGE UM MTA JULY 03, 1981 19:18:58 5.0T7 353 MTA:SOFTCHK 0 SOFTCHK JOB PROGRAM TO ENABLE OR DISABLE SOFT MACHINE CHECKS. 1 MON AUG 05/96 18:37:45 Page 534 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00758/002 SOFTCHK OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00759/001A G11 JOB SA G S0938 FSAVE2 VLO FSNAME=G11.S 5.0T3 489 G11_JOB..SA.001 1 LINE 70 2 PAGE UM MTA JAN. 19, 1981 22:18:16 5.0T7 354 0 LOADS THE CHARACTER AND FORMS CONTROL BUFFERS OF A 3211 PRINTER FOR THE G11 PRINT TRAIN. ASSUMES 6 LINES PER INCH ON 11 INCH PAPER UNLESS THE "8LPI" PARAMETER IS GIVEN, IN WHICH CASE IT ASSUMES 8 LINES PER INCH ON 8.5 INCH PAPER. 00759/002A G11 JOB OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00760/001A BENCHMARK - BATCH SCR C BNCH:BATCH.SCR 5.0T3 490 BENCHMARK_-_BATCH.SCR.C.001 1 LINE 76 1 PAGE UQV OGDEN JULY 03, 1981 19:19:58 5.0T7 355 BNCH:BATCH.SCR 0 MTS COMMAND FILE TO RUN A BATCH BENCHMARK. 00760/002A BENCHMARK - BATCH BATCH SUBMIT SF O BNCH:SUBMIT.S 5.0T3 491 BENCHMARK_-_BATCH.BATCH_S.SF.002 1 LINE 80 4 PAGE UQV OGDEN JULY 03, 1981 19:19:59 5.0T7 356 BNCH:SUBMIT.S 0 PROGRAM TO SUBMIT JOBS TO *BATCH* OR SOME OTHER FDNAME ADDING SIGNON COMMANDS AND PASSWORDS. READS A DRIVER FILE. SEE (760/4) FOR AN EXAMPLE. SEE THE SOURCE CODE FOR COMMENTS EXPLAINING THE FORMAT. 0 Referenced by comments of: 760/4, 760/5, 760/20 00760/003A BENCHMARK - BATCH SUBMIT OC O BNCH:SUBMIT 5.0T3 492 BENCHMARK_-_BATCH.SUBMIT.OC.003 1 LINE 2956 4 PAGE UQV OGDEN JULY 03, 1981 19:20:00 5.0T7 357 BNCH:SUBMIT 00760/004A BENCHMARK - BATCH BATCH DRIVER D BNCH:DRIVER 5.0T3 493 BENCHMARK_-_BATCH.BATCH_D.D.004 1 LINE 60 2 PAGE UQV OGDEN JULY 03, 1981 19:20:01 5.0T7 358 BNCH:DRIVER 0 SAMPLE DRIVER FILE FOR BATCH SUBMIT PROGRAM (760/2). 0 Referenced by comments of: 760/2 00760/005A BENCHMARK - BATCH BM00 JOB C BNCH:BM00 5.0T3 494 BENCHMARK_-_BATCH.BM00_JO.C.005 1 LINE 78 2 PAGE UQV OGDEN JULY 03, 1981 19:20:02 5.0T7 359 BNCH:BM00 0 BATCH JOB THAT CAN BE SUBMITTED USING SUBMIT (760/2). ONCE KNOWN AS SUN OR SUP. 1 MON AUG 05/96 18:37:45 Page 535 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00760/006 BENCHMARK - BATCH BM00 DATA SF O BNCH:ADEPT.F 5.0T3 495 BENCHMARK_-_BATCH.BM00_DA.SF.006 1 LINE 77 19 PAGE UQV OGDEN JULY 03, 1981 19:20:02 5.0T7 360 BNCH:ADEPT.F 0 DATA FILE USED BY BM00 JOB. 00760/007 BENCHMARK - BATCH BM00 DATA OC O BNCH:AX 5.0T3 496 BENCHMARK_-_BATCH.BM00_DA.OC.007 1 LINE 240 1 PAGE UQV OGDEN JULY 03, 1981 19:20:04 5.0T7 361 BNCH:AX 0 DATA FILE USED BY BM00 JOB. 00760/008 BENCHMARK - BATCH BM00 DATA OC O BNCH:CHOLX 5.0T3 497 BENCHMARK_-_BATCH.BM00_DA.OC.008 1 LINE 80 9 PAGE UQV OGDEN JULY 03, 1981 19:20:05 5.0T7 362 BNCH:CHOLX 0 DATA FILE USED BY BM00 JOB. 00760/009 BENCHMARK - BATCH BM00 DATA OC O BNCH:CX 5.0T3 498 BENCHMARK_-_BATCH.BM00_DA.OC.009 1 SEQ 80 2 PAGE UQV OGDEN JULY 03, 1981 19:20:06 5.0T7 363 BNCH:CX 0 DATA FILE USED BY BM00 JOB. 00760/010 BENCHMARK - BATCH BM00 DATA D O BNCH:ELASTODATA 5.0T3 499 BENCHMARK_-_BATCH.BM00_DA.D.010 1 LINE 80 1 PAGE UQV OGDEN JULY 03, 1981 19:20:08 5.0T7 364 BNCH:ELASTODATA 0 DATA FILE USED BY BM00 JOB. 00760/011 BENCHMARK - BATCH BM00 DATA OC O BNCH:ELASTOPLAST 5.0T3 500 BENCHMARK_-_BATCH.BM00_DA.OC.011 1 SEQ 28240 39 PAGE UQV OGDEN JULY 03, 1981 19:20:09 5.0T7 365 BNCH:ELASTOPLAST 0 DATA FILE USED BY BM00 JOB. 00760/012 BENCHMARK - BATCH BM00 DATA SP O BNCH:GOMOKU.P 5.0T3 501 BENCHMARK_-_BATCH.BM00_DA.SP.012 1 LINE 80 4 PAGE UQV OGDEN JULY 03, 1981 19:20:12 5.0T7 366 BNCH:GOMOKU.P 0 DATA FILE USED BY BM00 JOB. 00760/013 BENCHMARK - BATCH BM00 SUBR LIB OL O BNCH:LIBRARY 5.0T3 502 BENCHMARK_-_BATCH.BM00_SU.OL.013 1 SEQ 13728 187 PAGE UQV OGDEN JULY 03, 1981 19:20:13 5.0T7 367 BNCH:LIBRARY 0 SUBROUTINE LIBRARY USED BY BM00 JOB. 00760/014 BENCHMARK - BATCH BM00 DATA OC O BNCH:PLOT 5.0T3 503 BENCHMARK_-_BATCH.BM00_DA.OC.014 1 SEQ 240 7 PAGE UQV OGDEN JULY 03, 1981 19:20:18 5.0T7 368 BNCH:PLOT 0 DATA FILE USED BY BM00 JOB. 1 MON AUG 05/96 18:37:45 Page 536 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00760/015 BENCHMARK - BATCH BM00 DATA D O BNCH:PLOTDATA 5.0T3 504 BENCHMARK_-_BATCH.BM00_DA.D.015 1 LINE 40 1 PAGE UQV OGDEN JULY 03, 1981 19:20:19 5.0T7 369 BNCH:PLOTDATA 0 DATA FILE USED BY BM00 JOB. 00760/016 BENCHMARK - BATCH BM00 DATA OC O BNCH:PRPLOT 5.0T3 505 BENCHMARK_-_BATCH.BM00_DA.OC.016 1 SEQ 4554 9 PAGE UQV OGDEN JULY 03, 1981 19:20:20 5.0T7 370 BNCH:PRPLOT 0 DATA FILE USED BY BM00 JOB. 00760/017 BENCHMARK - BATCH BM00 DATA SP O BNCH:STAT.P 5.0T3 506 BENCHMARK_-_BATCH.BM00_DA.SP.017 1 LINE 85 10 PAGE UQV OGDEN JULY 03, 1981 19:20:21 5.0T7 371 BNCH:STAT.P 0 DATA FILE USED BY BM00 JOB. 00760/018 BENCHMARK - BATCH BM00 DATA SC O BNCH:WATBOL.C 5.0T3 507 BENCHMARK_-_BATCH.BM00_DA.SC.018 1 LINE 81 14 PAGE UQV OGDEN JULY 03, 1981 19:20:23 5.0T7 372 BNCH:WATBOL.C 0 DATA FILE USED BY BM00 JOB. 00760/019 BENCHMARK - BATCH BM00 DATA SA O BNCH:3270.BENCH.S 5.0T3 508 BENCHMARK_-_BATCH.BM00_DA.SA.019 1 LINE 80 92 PAGE UQV OGDEN JULY 03, 1981 19:20:24 5.0T7 373 BNCH:3270.BENCH.S 0 DATA FILE USED BY BM00 JOB. 00760/020 BENCHMARK - BATCH BM01 JOB SF O BNCH:BM01 5.0T3 509 BENCHMARK_-_BATCH.BM01_JO.SF.020 1 LINE 80 17 PAGE UQV OGDEN JULY 03, 1981 19:20:30 5.0T7 374 BNCH:BM01 0 THE FOLLOWING 49 FILES, BM01-BM26 AND BN01-BN51, ARE BATCH JOBS THAT CAN BE SUBMITTED USING SUBMIT (760/2). ONCE KNOWN AS SAN OR SAP. 00760/021 BENCHMARK - BATCH BM04 JOB SF O BNCH:BM04 5.0T3 510 BENCHMARK_-_BATCH.BM04_JO.SF.021 1 LINE 74 7 PAGE UQV OGDEN JULY 03, 1981 19:20:33 5.0T7 375 BNCH:BM04 00760/022 BENCHMARK - BATCH BM05 JOB SF O BNCH:BM05 5.0T3 511 BENCHMARK_-_BATCH.BM05_JO.SF.022 1 LINE 80 17 PAGE UQV OGDEN JULY 03, 1981 19:20:34 5.0T7 376 BNCH:BM05 00760/023 BENCHMARK - BATCH BM06 JOB SF O BNCH:BM06 5.0T3 512 BENCHMARK_-_BATCH.BM06_JO.SF.023 1 LINE 71 2 PAGE UQV OGDEN JULY 03, 1981 19:20:36 5.0T7 377 BNCH:BM06 00760/024 BENCHMARK - BATCH BM08 JOB SF O BNCH:BM08 5.0T3 513 BENCHMARK_-_BATCH.BM08_JO.SF.024 1 LINE 73 6 PAGE UQV OGDEN JULY 03, 1981 19:20:37 5.0T7 378 BNCH:BM08 1 MON AUG 05/96 18:37:45 Page 537 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00760/025 BENCHMARK - BATCH BM09 JOB SF O BNCH:BM09 5.0T3 514 BENCHMARK_-_BATCH.BM09_JO.SF.025 1 LINE 77 1 PAGE UQV OGDEN JULY 03, 1981 19:20:38 5.0T7 379 BNCH:BM09 00760/026 BENCHMARK - BATCH BM11 JOB SF O BNCH:BM11 5.0T3 515 BENCHMARK_-_BATCH.BM11_JO.SF.026 1 LINE 73 7 PAGE UQV OGDEN JULY 03, 1981 19:20:38 5.0T7 380 BNCH:BM11 00760/027 BENCHMARK - BATCH BM12 JOB SF O BNCH:BM12 5.0T3 516 BENCHMARK_-_BATCH.BM12_JO.SF.027 1 LINE 69 1 PAGE UQV OGDEN JULY 03, 1981 19:20:40 5.0T7 381 BNCH:BM12 00760/028 BENCHMARK - BATCH BM13 JOB SF O BNCH:BM13 5.0T3 517 BENCHMARK_-_BATCH.BM13_JO.SF.028 1 LINE 72 3 PAGE UQV OGDEN JULY 03, 1981 19:20:40 5.0T7 382 BNCH:BM13 00760/029 BENCHMARK - BATCH BM14 JOB SP O BNCH:BM14 5.0T3 518 BENCHMARK_-_BATCH.BM14_JO.SP.029 1 LINE 74 2 PAGE UQV OGDEN JULY 03, 1981 19:20:41 5.0T7 383 BNCH:BM14 00760/030 BENCHMARK - BATCH BM18 JOB SF O BNCH:BM18 5.0T3 519 BENCHMARK_-_BATCH.BM18_JO.SF.030 1 LINE 71 2 PAGE UQV OGDEN JULY 03, 1981 19:20:42 5.0T7 384 BNCH:BM18 00760/031 BENCHMARK - BATCH BM19 JOB SF O BNCH:BM19 5.0T3 520 BENCHMARK_-_BATCH.BM19_JO.SF.031 1 LINE 69 1 PAGE UQV OGDEN JULY 03, 1981 19:20:43 5.0T7 385 BNCH:BM19 00760/032 BENCHMARK - BATCH BM20 JOB SF O BNCH:BM20 5.0T3 521 BENCHMARK_-_BATCH.BM20_JO.SF.032 1 LINE 72 3 PAGE UQV OGDEN JULY 03, 1981 19:20:44 5.0T7 386 BNCH:BM20 00760/033 BENCHMARK - BATCH BM21 JOB SC O BNCH:BM21 5.0T3 522 BENCHMARK_-_BATCH.BM21_JO.SC.033 1 LINE 80 4 PAGE UQV OGDEN JULY 03, 1981 19:20:45 5.0T7 387 BNCH:BM21 00760/034 BENCHMARK - BATCH BM23 JOB SP O BNCH:BM23 5.0T3 523 BENCHMARK_-_BATCH.BM23_JO.SP.034 1 LINE 73 17 PAGE UQV OGDEN JULY 03, 1981 19:20:45 5.0T7 388 BNCH:BM23 00760/035 BENCHMARK - BATCH BM26 JOB SP O BNCH:BM26 5.0T3 524 BENCHMARK_-_BATCH.BM26_JO.SP.035 1 LINE 73 11 PAGE UQV OGDEN JULY 03, 1981 19:20:47 5.0T7 389 BNCH:BM26 00760/036 BENCHMARK - BATCH BN01 JOB SF O BNCH:BN01 5.0T3 525 BENCHMARK_-_BATCH.BN01_JO.SF.036 1 LINE 80 58 PAGE UQV OGDEN JULY 03, 1981 19:20:49 5.0T7 390 BNCH:BN01 00760/037 BENCHMARK - BATCH BN02 JOB SF O BNCH:BN02 5.0T3 526 BENCHMARK_-_BATCH.BN02_JO.SF.037 1 LINE 80 1 PAGE UQV OGDEN JULY 03, 1981 19:20:53 5.0T7 391 BNCH:BN02 1 MON AUG 05/96 18:37:45 Page 538 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00760/038 BENCHMARK - BATCH BN03 JOB SF O BNCH:BN03 5.0T3 527 BENCHMARK_-_BATCH.BN03_JO.SF.038 1 LINE 76 9 PAGE UQV OGDEN JULY 03, 1981 19:20:54 5.0T7 392 BNCH:BN03 00760/039 BENCHMARK - BATCH BN04 JOB SF O BNCH:BN04 5.0T3 528 BENCHMARK_-_BATCH.BN04_JO.SF.039 1 LINE 73 2 PAGE UQV OGDEN JULY 03, 1981 19:20:56 5.0T7 393 BNCH:BN04 00760/040 BENCHMARK - BATCH BN05 JOB SF O BNCH:BN05 5.0T3 529 BENCHMARK_-_BATCH.BN05_JO.SF.040 1 LINE 80 1 PAGE UQV OGDEN JULY 03, 1981 19:20:57 5.0T7 394 BNCH:BN05 00760/041 BENCHMARK - BATCH BN06 JOB SF O BNCH:BN06 5.0T3 530 BENCHMARK_-_BATCH.BN06_JO.SF.041 1 LINE 73 7 PAGE UQV OGDEN JULY 03, 1981 19:20:57 5.0T7 395 BNCH:BN06 00760/042 BENCHMARK - BATCH BN07 JOB SF O BNCH:BN07 5.0T3 531 BENCHMARK_-_BATCH.BN07_JO.SF.042 1 LINE 73 2 PAGE UQV OGDEN JULY 03, 1981 19:20:58 5.0T7 396 BNCH:BN07 00760/043 BENCHMARK - BATCH BN08 JOB SF O BNCH:BN08 5.0T3 532 BENCHMARK_-_BATCH.BN08_JO.SF.043 1 LINE 59 1 PAGE UQV OGDEN JULY 03, 1981 19:20:59 5.0T7 397 BNCH:BN08 00760/044 BENCHMARK - BATCH BN09 JOB SF O BNCH:BN09 5.0T3 533 BENCHMARK_-_BATCH.BN09_JO.SF.044 1 LINE 80 4 PAGE UQV OGDEN JULY 03, 1981 19:21:00 5.0T7 398 BNCH:BN09 00760/045 BENCHMARK - BATCH BN10 JOB SF O BNCH:BN10 5.0T3 534 BENCHMARK_-_BATCH.BN10_JO.SF.045 1 LINE 80 3 PAGE UQV OGDEN JULY 03, 1981 19:21:01 5.0T7 399 BNCH:BN10 00760/046 BENCHMARK - BATCH BN11 JOB SF O BNCH:BN11 5.0T3 535 BENCHMARK_-_BATCH.BN11_JO.SF.046 1 LINE 78 6 PAGE UQV OGDEN JULY 03, 1981 19:21:01 5.0T7 400 BNCH:BN11 00760/047 BENCHMARK - BATCH BN12 JOB SF O BNCH:BN12 5.0T3 536 BENCHMARK_-_BATCH.BN12_JO.SF.047 1 LINE 69 2 PAGE UQV OGDEN JULY 03, 1981 19:21:02 5.0T7 401 BNCH:BN12 00760/048 BENCHMARK - BATCH BN13 JOB SF O BNCH:BN13 5.0T3 537 BENCHMARK_-_BATCH.BN13_JO.SF.048 1 LINE 73 3 PAGE UQV OGDEN JULY 03, 1981 19:21:03 5.0T7 402 BNCH:BN13 00760/049 BENCHMARK - BATCH BN15 JOB SF O BNCH:BN15 5.0T3 538 BENCHMARK_-_BATCH.BN15_JO.SF.049 1 LINE 59 1 PAGE UQV OGDEN JULY 03, 1981 19:21:04 5.0T7 403 BNCH:BN15 00760/050 BENCHMARK - BATCH BN16 JOB SF O BNCH:BN16 5.0T3 539 BENCHMARK_-_BATCH.BN16_JO.SF.050 1 LINE 75 3 PAGE UQV OGDEN JULY 03, 1981 19:21:05 5.0T7 404 BNCH:BN16 1 MON AUG 05/96 18:37:45 Page 539 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00760/051 BENCHMARK - BATCH BN17 JOB SF O BNCH:BN17 5.0T3 540 BENCHMARK_-_BATCH.BN17_JO.SF.051 1 LINE 80 2 PAGE UQV OGDEN JULY 03, 1981 19:21:06 5.0T7 405 BNCH:BN17 00760/052 BENCHMARK - BATCH BN30 JOB SF O BNCH:BN30 5.0T3 541 BENCHMARK_-_BATCH.BN30_JO.SF.052 1 LINE 80 4 PAGE UQV OGDEN JULY 03, 1981 19:21:06 5.0T7 406 BNCH:BN30 00760/053 BENCHMARK - BATCH BN31 JOB SF O BNCH:BN31 5.0T3 542 BENCHMARK_-_BATCH.BN31_JO.SF.053 1 LINE 71 4 PAGE UQV OGDEN JULY 03, 1981 19:21:07 5.0T7 407 BNCH:BN31 00760/054 BENCHMARK - BATCH BN32 JOB SF O BNCH:BN32 5.0T3 543 BENCHMARK_-_BATCH.BN32_JO.SF.054 1 LINE 80 6 PAGE UQV OGDEN JULY 03, 1981 19:21:08 5.0T7 408 BNCH:BN32 00760/055 BENCHMARK - BATCH BN33 JOB SF O BNCH:BN33 5.0T3 544 BENCHMARK_-_BATCH.BN33_JO.SF.055 1 LINE 72 3 PAGE UQV OGDEN JULY 03, 1981 19:21:09 5.0T7 409 BNCH:BN33 00760/056 BENCHMARK - BATCH BN34 JOB SF O BNCH:BN34 5.0T3 545 BENCHMARK_-_BATCH.BN34_JO.SF.056 1 LINE 72 3 PAGE UQV OGDEN JULY 03, 1981 19:21:10 5.0T7 410 BNCH:BN34 00760/057 BENCHMARK - BATCH BN35 JOB SF O BNCH:BN35 5.0T3 546 BENCHMARK_-_BATCH.BN35_JO.SF.057 1 LINE 72 4 PAGE UQV OGDEN JULY 03, 1981 19:21:11 5.0T7 411 BNCH:BN35 00760/058 BENCHMARK - BATCH BN36 JOB SF O BNCH:BN36 5.0T3 547 BENCHMARK_-_BATCH.BN36_JO.SF.058 1 LINE 72 2 PAGE UQV OGDEN JULY 03, 1981 19:21:12 5.0T7 412 BNCH:BN36 00760/059 BENCHMARK - BATCH BN37 JOB SF O BNCH:BN37 5.0T3 548 BENCHMARK_-_BATCH.BN37_JO.SF.059 1 LINE 80 9 PAGE UQV OGDEN JULY 03, 1981 19:21:12 5.0T7 413 BNCH:BN37 00760/060 BENCHMARK - BATCH BN38 JOB SF O BNCH:BN38 5.0T3 549 BENCHMARK_-_BATCH.BN38_JO.SF.060 1 LINE 80 25 PAGE UQV OGDEN JULY 03, 1981 19:21:13 5.0T7 414 BNCH:BN38 00760/061 BENCHMARK - BATCH BN39 JOB SF O BNCH:BN39 5.0T3 550 BENCHMARK_-_BATCH.BN39_JO.SF.061 1 LINE 80 15 PAGE UQV OGDEN JULY 03, 1981 19:21:15 5.0T7 415 BNCH:BN39 00760/062 BENCHMARK - BATCH BN40 JOB SF O BNCH:BN40 5.0T3 551 BENCHMARK_-_BATCH.BN40_JO.SF.062 1 LINE 80 14 PAGE UQV OGDEN JULY 03, 1981 19:21:17 5.0T7 416 BNCH:BN40 00760/063 BENCHMARK - BATCH BN41 JOB SF O BNCH:BN41 5.0T3 552 BENCHMARK_-_BATCH.BN41_JO.SF.063 1 LINE 80 5 PAGE UQV OGDEN JULY 03, 1981 19:21:18 5.0T7 417 BNCH:BN41 1 MON AUG 05/96 18:37:45 Page 540 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00760/064 BENCHMARK - BATCH BN42 JOB SF O BNCH:BN42 5.0T3 553 BENCHMARK_-_BATCH.BN42_JO.SF.064 1 LINE 72 4 PAGE UQV OGDEN JULY 03, 1981 19:21:19 5.0T7 418 BNCH:BN42 00760/065 BENCHMARK - BATCH BN43 JOB SF O BNCH:BN43 5.0T3 554 BENCHMARK_-_BATCH.BN43_JO.SF.065 1 LINE 72 3 PAGE UQV OGDEN JULY 03, 1981 19:21:20 5.0T7 419 BNCH:BN43 00760/066 BENCHMARK - BATCH BN44 JOB SF O BNCH:BN44 5.0T3 555 BENCHMARK_-_BATCH.BN44_JO.SF.066 1 LINE 72 4 PAGE UQV OGDEN JULY 03, 1981 19:21:21 5.0T7 420 BNCH:BN44 00760/067 BENCHMARK - BATCH BN50 JOB SC O BNCH:BN50 5.0T3 556 BENCHMARK_-_BATCH.BN50_JO.SC.067 1 LINE 73 21 PAGE UQV OGDEN JULY 03, 1981 19:21:22 5.0T7 421 BNCH:BN50 00760/068 BENCHMARK - BATCH BN51 JOB WF O BNCH:BN51 5.0T3 557 BENCHMARK_-_BATCH.BN51_JO.WF.068 1 LINE 80 4 PAGE UQV OGDEN JULY 03, 1981 19:21:24 5.0T7 422 BNCH:BN51 00761/001 HARDWIRED TERMINALS *HWTERM SA G S1431 4.3T2 VLO FSNAME=HARDWIRED_TERMINALS.*HWTE.SA.001(1) 63 5.0T3 558 HARDWIRED_TERMINALS.*HWTE.SA.001 1 LINE 65 1 PAGE UM OGDEN NOV. 16, 1979 14:21:13 5.0T7 423 0 SOURCE FOR CSECT WHICH DEFINES THE LOCATION AND DEFAULT *...* ROUTING FOR HARDWIRED TERMINALS. IN THIS WAY, HARDWIRED TERMINALS LOCATED IN THE VICINITY OF RJE STATIONS CAN HAVE *...* OUTPUT ROUTED APPROPRIATELY BY DEFAULT. IN ADDITION, HARDWIRED "EXPRESS" TERMINALS CAN BE IDENTIFIED SO THAT USERS OF SUCH TERMINALS CAN BE AUTOMATICALLY REMINDED BY MTS AFTER 5 MINUTES THAT THE TERMINAL IS RESERVED FOR EXPRESS USE. AS DISTRIBUTED, THIS CSECT CONTAINS NO IDENTIFIED HARDWIRED TERMINALS; EACH INSTALLATION HAVING TERMINALS WHICH SHOULD BE IDENTIFIED FOR THESE PURPOSES SHOULD REASSEMBLE. AT MICHIGAN, INFORMATION FROM THIS TABLE IS ALSO USED TO IDENTIFY "HIGH-SPEED LINES" IN RATENUMBER (651/11). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 761/3 00761/002 HARDWIRED TERMINALS *HWTERM OC G MTS:TST.HWTERM 5.0T3 559 HARDWIRED_TERMINALS.*HWTE.OC.002 1 LINE 80 1 PAGE UM OGDEN JULY 03, 1981 19:21:25 5.0T7 424 *HWTERM 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM AFTER IPL BY PISTLE. 00761/003 HARDWIRED TERMINALS HWTPRINT SA G S1431 4.3T2 VLO FSNAME=HARDWIRED_TERMINALS.HWTPR.SA.003(1) 65 5.0T3 560 HARDWIRED_TERMINALS.HWTPR.SA.003 1 LINE 72 1 PAGE UM OGDEN APR. 06, 1980 13:22:56 5.0T7 425 0 PROGRAM TO PRINT THE CONTENTS OF THE HARDWIRED TERMINAL TABLE (761/1) CURRENTLY IN USE. CALLS RJECHECK SUBROUTINE (IN HASP). 1 MON AUG 05/96 18:37:45 Page 541 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ASSEMBLE USING COPY:MTS.MACROS (344/3). 00761/004 HARDWIRED TERMINALS HWTPRINT OC G S1431 4.3T2 VLO FSNAME=HARDWIRED_TERMINALS.HWTPR.OC.004(1) 66 5.0T3 561 HARDWIRED_TERMINALS.HWTPR.OC.004 1 LINE 80 1 PAGE UM OGDEN APR. 06, 1980 13:22:59 5.0T7 426 00762/001 FIDS COMMAND FILE C MTA:FIDSCMD 5.0T3 562 FIDS.COMMAND_FILE.C.001 1 LINE 95 1 PAGE UM MTA JULY 03, 1981 19:21:27 5.0T7 427 MTA:FIDSCMD 0 COMMANDS TO RUN THE MEMOREX FAULT ISOLATION DIAGNOSTIC SYSTEM, FIDS, IN MTS. IT WILL READ INITIALIZATION STATEMENTS, INCLUDING AT LEAST ONE CONFIG STATEMENT, FOLLOWED BY ENDC, AND THEN WAIT FOR INPUT. SEE THE (762/9) WRITEUP. 00762/002 FIDS MAIN PROGRAM OE # ETC:FIDS.MAIN UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS THE MAIN PROGRAM OF FIDS. 00762/003 FIDS LIBRARY OL # ETC:FIDS.LIB UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS A LIBRARY OF FIDS MODULES SET UP TO RUN IN MTS. CORRESPONDS TO (762/4) AND (762/5). CONTAINS REP CARDS TO MAKE FIDS WORK IN *FAKEOS (545): MODULE MCPINIT: REP 000746 01,9003D004,4100B778,41100040,5000B778,D201B79AC03C,9200B797 REP 000760 01,0A3B,D203C078B780,9803D004,95FFB797,0787,47F07004 REP 000778 01,00000000,00000001 REPLACES UCB SEARCH WITH A CALL TO SVC 59. EQUIVALENT TO STM R0,R3,4(RD) LA R0,PARS LA R1,X'40' "GET DEVICE" CODE FOR SVC 59 ST R0,PARS MVC PARS+34(2),X'FFC'(RB) BUILD A FAKE OLTEP DEVTAB ENTRY MVI PARS+31,0 SVC 59 MVC X'38'(4,RC),PARS+8 THE UCB ADDRESS LM R0,R3,4(RD) CLI PARS+31,255 BER R7 GOT IT B 4(0,R7) NOT AVAILABLE PARS DC F'0,1' 00762/004 FIDS OS OBJECT 1 OC # S0938 FSAVE2 VLO FSNAME=FIDS.FILE2(2) 512 UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS OS LINKEDIT INPUT FOR FIDS, COPIED FROM FILE 2 OF THE MEMOREX 1 MON AUG 05/96 18:37:45 Page 542 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TAPE CURRENT ON SEPT. 13, 1979. THIS IS VERSION 2.4 OF FIDS, ACCORDING TO THE MESSAGE IT PRINTS WHEN IT IS RUN. 0 Referenced by comments of: 762/3 00762/005 FIDS OS OBJECT 2 OC # S0938 FSAVE2 VLO FSNAME=FIDS.FILE2(3) 515 UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS AN ADDENDUM FOR 3350S KNOWN AS THE "SKIP DEFECT" VERSION. 0 Referenced by comments of: 762/3 00762/006 FIDS EXIT ROUTINE OC # S0938 FSAVE2 VLO FSNAME=FIDS.FILE3(3) 516 UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS THE OBJECT FOR AN EXIT ROUTINE USED BY OS FIDS TO GET CONTROL IN SUPERVISOR STATE. IT IS NOT USED IN MTS OR MVS. 00762/007 FIDS BLDL D ETC:FIDS.BLDL 5.0T3 563 FIDS.BLDL.D.007 1 SEQ 250 1 PAGE UM MTA JULY 03, 1981 19:21:29 5.0T7 428 ETC:FIDS.BLDL 0 BLDL FILE FOR FIDS. OUTPUT FROM *FAKEOSCREBLDL (545/42). 0 Referenced by comments of: 762/8 00762/008 FIDS BLDL INPUT D S0938 FSAVE2 FSNAME=FIDS.BLDLIN 5.0T3 564 FIDS.BLDL_INPUT.D.008 1 LINE 60 2 PAGE UM MTA MAR. 07, 1980 23:45:47 5.0T7 429 0 INPUT TO *FAKEOSCREBLDL (545/42) TO CREATE (762/7). 00762/009 FIDS WRITEUP WF S1320 D4.2T2 VLO FSNAME=FIDS.WRITEUP.WF.007(1) 76 5.0T3 565 FIDS.WRITEUP.WF.009 1 LINE 67 1 PAGE UM MTA APR. 02, 1979 01:26:59 5.0T7 430 0 INSTRUCTIONS FOR RUNNING FIDS IN MTS. 0 Referenced by comments of: 762/1 00763/001 BLDGPLOT SOURCE SF G S0409 'BLDGPLOT' FSNAME=BPRGM 5.0T3 566 BLDGPLOT.SOURCE.SF.001 1 LINE 77 22 PAGE UM EMERY JAN. 03, 1980 13:11:10 5.0T7 431 0 THIS IS THE FORTRAN SOURCE PROGRAM FOR THE UM COMPUTING CENTER BUILDING PLOT. EXECUTION OF THE OBJECT VERSION (763/2) UTILIZES 3 INPUT FILES THAT ARE ASSIGNED TO LOGICAL I/O UNITS 2, 3, AND 4. THE PLOT DESCRIPTION IS DIRECTED TO LOGICAL I/O UNIT 9. THE FIRST INPUT FILE CONTAINS STRUCTURAL INFORMATION ABOUT THE BUILDING, THE SECOND CONTAINS PHYSICAL DESCRIPTIONS OF THE SIZE OF VARIOUS COMPUTER COMPONENTS AND FURNITURE ITEMS, AND THE THIRD CONTAINS INFORMATION ON WHICH COMPONENT IS INSTALLED AT A GIVEN BUILDING LOCATION FOR A SPECIFIED TIME PERIOD. 1 MON AUG 05/96 18:37:45 Page 543 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 763/2 00763/002 BLDGPLOT OBJECT OC G S0409 'BLDGPLOT' FSNAME=BOBJ 5.0T3 567 BLDGPLOT.OBJECT.OC.002 1 LINE 9522 22 PAGE UM EMERY MAR. 12, 1979 12:39:46 5.0T7 432 0 OBJECT FOR BLDGPLOT PROGRAM (763/1). 0 Referenced by comments of: 763/1 00763/003 BLDGPLOT WALLS D S0409 'BLDGPLOT' FSNAME=BWALLS 5.0T3 568 BLDGPLOT.WALLS.D.003 1 LINE 81 24 PAGE UM EMERY JAN. 03, 1980 13:15:27 5.0T7 433 0 THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 2 WHEN PRODUCING A PLOT OF THE UM COMPUTING CENTER BUILDING. IT CONTAINS STRUCTURAL INFORMATION ON THE WALLS, WINDOWS, ELECTRICAL SERVICE OUTLETS, TELEPHONE SERVICE OUTLETS, ETC. 00763/004 BLDGPLOT DEVICES D S0409 'BLDGPLOT' FSNAME=BDEV 5.0T3 569 BLDGPLOT.DEVICES.D.004 1 LINE 94 5 PAGE UM EMERY JAN. 03, 1980 13:17:52 5.0T7 434 0 THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 3 WHEN PRODUCING A PLOT OF THE UM COMPUTING CENTER BUILDING. IT CONTAINS INFORMATION ABOUT THE SIZE OF VARIOUS COMPUTER COMPONENTS, TERMINALS, FURNITURE ITEMS, ETC. WHEN APPROPRIATE IT ALSO CONTAINS INFORMATION ABOUT THE LOCATION OF CABLE CUTOUTS IN COMPUTER COMPONENTS. 00763/005 BLDGPLOT DATA D S0409 'BLDGPLOT' FSNAME=BDATA 5.0T3 570 BLDGPLOT.DATA.D.005 1 LINE 79 33 PAGE UM EMERY MAR. 09, 1979 12:13:34 5.0T7 435 0 THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 4 WHEN PRODUCING A PLOT OF THE UM COMPUTING CENTER BUILDING. IT CONTAINS INFORMATION ON WHICH COMPUTER COMPONENT, DESK, TERMINAL, BOOKCASE, ETC. WAS "INSTALLED" AT A PARTICULAR LOCATION IN THE BUILDING FOR A SPECIFIED TIME PERIOD. 0 Referenced by comments of: 763/6 00763/006 BLDGPLOT LABELS D S0409 'BLDGPLOT' FSNAME=BLABEL 5.0T3 571 BLDGPLOT.LABELS.D.006 1 LINE 80 3 PAGE UM EMERY JAN. 03, 1980 13:22:05 5.0T7 436 0 THIS FILE MAY BE ASSIGNED TO LOGICAL I/O UNIT 4 WHEN PRODUCING A PLOT OF THE UM COMPUTING CENTER BUILDING. THE FILE CONTAINS INFORMATION DESCRIBING THE CONTENT AND LOCATION OF LABELS THAT SHOULD APPEAR IN THE PLOT. WHEN APPROPRIATE IT MAY BE CONCATENATED TO THE DATA FILE (763/5). 00764/001 APPEND # (OBSOLETE) 4.3T2 70 APPEND..SS.001 1 LINE 80 1 PAGE UM JAN. 03, 1979 14:01:22 0 Obsoleted by *COMBINE (771). 1 MON AUG 05/96 18:37:45 Page 544 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00765/001 DAVE/M MAIN SF G S1431 4.3T2 VLO FSNAME=DAVE/M.MAIN.SF.001(1) 73 5.0T3 572 DAVE/M.MAIN.SF.001 1 LINE 72 12 PAGE UM BRILL APR. 06, 1980 13:28:02 5.0T7 437 0 DAVE/M IS THE UNIVERSITY OF MICHIGAN'S VERSION OF DAVE, A SOFTWARE TOOL FOR GATHERING INFORMATION ABOUT GLOBAL DATA FLOW IN FORTRAN PROGRAMS, AND FOR IDENTIFYING THE ANOMALOUS USE OF DATA IN THESE PROGRAMS. DAVE WAS DEVELOPED BY THE UNIVERSITY OF COLORADO. THIS IS THE MAIN PROGRAM FOR DAVE/M. COPIES UNSP:LIBRARY (685/2). 0 Referenced by comments of: 744/1, 765/2, 765/3, 765/5, 765/7, 765/9, 765/13 00765/002 DAVE/M *DAVE OE G *DAVE 5.0T3 573 DAVE/M.*DAVE.OE.002 1 LINE 19309 9 PAGE UM BRILL JULY 03, 1981 19:24:33 5.0T7 438 *DAVE 0 OBJECT OF (765/1). DYNAMICALLY LOADS PHASE0 (765/3), PHASE1 (765/5), PHASE2 (765/7), PHASE3 (765/9) AND DAVE.SUB (765/13). CALLS DAVE.EXT (744/7). 0 Referenced by comments of: 744/7 00765/003 DAVE/M PHASE0 SF G S1431 4.3T2 VLO FSNAME=DAVE/M.PHASE0.SF.003(1) 75 5.0T3 574 DAVE/M.PHASE0.SF.003 1 LINE 73 28 PAGE UM BRILL APR. 06, 1980 13:28:06 5.0T7 439 0 SOURCE CODE FOR PHASE 0, WHICH CHECKS FOR PROPER SYNTAX. DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/004 DAVE/M PHASE0 OE G ETC:DAVE.0 5.0T3 575 DAVE/M.PHASE0.OE.004 1 LINE 22894 8 PAGE UM BRILL JULY 03, 1981 19:24:36 5.0T7 440 ETC:DAVE.0 00765/005 DAVE/M PHASE1 SF G S1431 4.3T2 VLO FSNAME=DAVE/M.PHASE1.SF.005(1) 77 5.0T3 576 DAVE/M.PHASE1.SF.005 1 LINE 73 93 PAGE UM BRILL APR. 06, 1980 13:28:11 5.0T7 441 0 SOURCE CODE FOR PHASE 1, THE PARSER. DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/006 DAVE/M PHASE1 OE G ETC:DAVE.1 5.0T3 577 DAVE/M.PHASE1.OE.006 1 LINE 32767 22 PAGE UM BRILL JULY 03, 1981 19:24:41 5.0T7 442 ETC:DAVE.1 00765/007 DAVE/M PHASE2 SF G S1431 4.3T2 VLO FSNAME=DAVE/M.PHASE2.SF.007(1) 79 5.0T3 578 DAVE/M.PHASE2.SF.007 1 LINE 73 100 PAGE UM BRILL APR. 06, 1980 13:28:43 5.0T7 443 0 SOURCE CODE FOR PHASE 2, THE ANALYZER. DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1). 1 MON AUG 05/96 18:37:45 Page 545 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 765/2 00765/008 DAVE/M PHASE2 OE G ETC:DAVE.2 5.0T3 579 DAVE/M.PHASE2.OE.008 1 LINE 32767 32 PAGE UM BRILL JULY 03, 1981 19:24:47 5.0T7 444 ETC:DAVE.2 00765/009 DAVE/M PHASE3 SF G S1431 4.3T2 VLO FSNAME=DAVE/M.PHASE3.SF.009(1) 81 5.0T3 580 DAVE/M.PHASE3.SF.009 1 LINE 75 29 PAGE UM BRILL APR. 06, 1980 13:29:05 5.0T7 445 0 SOURCE CODE FOR PHASE 3, THE OUTPUT PHASE. DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/010 DAVE/M PHASE3 OE G ETC:DAVE.3 5.0T3 581 DAVE/M.PHASE3.OE.010 1 LINE 32767 16 PAGE UM BRILL JULY 03, 1981 19:24:50 5.0T7 446 ETC:DAVE.3 00765/011 DAVE/M ASM SUBRS SA G S1431 4.3T2 VLO FSNAME=DAVE/M.ASM_SUBRS.SA.011(1) 83 5.0T3 582 DAVE/M.ASM_SUBRS.SA.011 1 LINE 72 5 PAGE UM BRILL APR. 06, 1980 13:29:15 5.0T7 447 0 DAVE ASSEMBLER LANGUAGE SUBROUTINES. 0 Referenced by comments of: 765/13 00765/012 DAVE/M FTN SUBRS SF G S1431 4.3T2 VLO FSNAME=DAVE/M.FTN_SUBRS.SF.012(1) 84 5.0T3 583 DAVE/M.FTN_SUBRS.SF.012 1 LINE 73 46 PAGE UM BRILL APR. 06, 1980 13:29:17 5.0T7 448 0 DAVE FORTRAN LANGUAGE SUBROUTINES. 0 Referenced by comments of: 765/13 00765/013 DAVE/M SUBR LIB OL G ETC:DAVESUB 5.0T3 584 DAVE/M.SUBR_LIB.OL.013 1 LINE 32767 17 PAGE UM BRILL JULY 03, 1981 19:24:54 5.0T7 449 ETC:DAVESUB 0 OBJECT OF (765/11) AND (765/12). DYMANICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/014 DAVE/M DAVE.CMD C S1431 4.3T2 VLO FSNAME=DAVE/M.DAVE.CMD.C.014(1) 86 5.0T3 585 DAVE/M.DAVE.CMD.C.014 1 LINE 64 1 PAGE UM BRILL APR. 06, 1980 13:29:26 5.0T7 450 0 COMMANDS TO CONSTRUCT A DAVE/M SYSTEM. WHEN THIS FILE IS SOURCED TO, THE FORTRAN COMPILER PRODUCES ERROR MESSAGES WHICH SHOULD BE IGNORED. DAVE.CMD.LIST (765/15) IS THE OUTPUT GENERATED BY SOURCING TO THIS FILE. 0 Referenced by comments of: 765/15 1 MON AUG 05/96 18:37:45 Page 546 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00765/015 DAVE/M DAVE.CMD.LIST L S1431 4.3T2 VLO FSNAME=DAVE/M.DAVE.CMD.LIST.L.015(1) 87 5.0T3 586 DAVE/M.DAVE.CMD.LIST.L.015 1 LINE 96 9 PAGE UM BRILL APR. 06, 1980 13:29:28 5.0T7 451 0 OUTPUT GENERATED WHEN (765/14) IS SOURCED TO. 0 Referenced by comments of: 765/14 00765/016 DAVE/M DATA BASE SF G S1431 4.3T2 VLO FSNAME=DAVE/M.DATA_BASE.SF.016(1) 88 5.0T3 587 DAVE/M.DATA_BASE.SF.016 1 LINE 73 22 PAGE UM BRILL APR. 06, 1980 13:29:30 5.0T7 452 0 SOURCE FOR THE PROGRAM USED TO GENERATE DAVE.INIT (765/19), AN INTERNAL DATA BASE USED BY DAVE/M. 0 Referenced by comments of: 765/17, 765/19 00765/017 DAVE/M DATA BASE OE G S1431 4.3T2 VLO FSNAME=DAVE/M.DATA_BASE.OE.017(1) 89 5.0T3 588 DAVE/M.DATA_BASE.OE.017 1 LINE 3160 14 PAGE UM BRILL APR. 06, 1980 13:29:33 5.0T7 453 0 OBJECT OF (765/16). 0 Referenced by comments of: 765/18 00765/018 DAVE/M DATA BASE D S1431 4.3T2 VLO FSNAME=DAVE/M.DATA_BASE.D.018(1) 90 5.0T3 589 DAVE/M.DATA_BASE.D.018 1 LINE 67 4 PAGE UM BRILL APR. 06, 1980 13:29:35 5.0T7 454 0 INPUT DATA TO BE FED TO (765/17) TO CREATE (765/19). 0 Referenced by comments of: 765/19 00765/019 DAVE/M DATA BASE D ETC:DAVE.INIT 5.0T3 590 DAVE/M.DATA_BASE.D.019 1 LINE 3256 2 PAGE UM BRILL JULY 03, 1981 19:25:00 5.0T7 455 ETC:DAVE.INIT 0 THIS IS THE DATA BASE PRODUCED BY THE DAVE/M DATA BASE PROGRAM (765/16), FROM DATA IN (765/18). DAVE.INIT IS USED TO INITIALIZE DAVE/M. 0 Referenced by comments of: 765/16, 765/18 00765/020 DAVE/M TEST PROG SF G S1431 4.3T2 VLO FSNAME=DAVE/M.TEST_PROG.SF.020(1) 92 5.0T3 591 DAVE/M.TEST_PROG.SF.020 1 LINE 72 3 PAGE UM BRILL APR. 06, 1980 13:29:40 5.0T7 456 0 THIS IS A TEST PROGRAM FOR THE DAVE/M SYSTEM. 00765/021 DAVE/M DAVE.STAT D # W234:DAVE.STAT UM BRILL 0 THIS IS THE LOG FILE WHICH IS REQUIRED BY DAVE/M. AT MICHIGAN, IT IS CALLED W234:DAVE.STAT. THIS NAME MAY BE CHANGED BY OTHER INSTALLATIONS. 1 MON AUG 05/96 18:37:45 Page 547 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00765/022 DAVE/M MEMO 394 WF S1431 4.3T2 VLO FSNAME=DAVE/M.MEMO_394.WF.022(1) 93 5.0T3 592 DAVE/M.MEMO_394.WF.022 1 LINE 84 12 PAGE UM BRILL MAY 09, 1979 16:33:53 5.0T7 457 0 THIS IS COMPUTING CENTER MEMO 394 -- "*DAVE". 00765/023 DAVE/M KNOWN BUGS P S1431 4.3T2 VLO FSNAME=DAVE/M.KNOWN_BUGS.P.023(1) 94 5.0T3 593 DAVE/M.KNOWN_BUGS.P.023 1 LINE 67 1 PAGE UM BRILL APR. 06, 1980 13:30:17 5.0T7 458 0 DESCRIPTION OF THE TWO KNOWN BUGS IN DAVE/M. REFERENCES (765/24) AS AN EXAMPLE. 00765/024 DAVE/M DAVE_BUG1 SF S1431 4.3T2 VLO FSNAME=DAVE/M.DAVE_BUG1.SF.024(1) 95 5.0T3 594 DAVE/M.DAVE_BUG1.SF.024 1 LINE 26 1 PAGE UM BRILL APR. 06, 1980 13:30:20 5.0T7 459 0 A PROGRAM WHICH CAUSES DAVE/M TO FAIL. 0 Referenced by comments of: 765/23 00765/025 DAVE/M DAVE.INTERNAL P S1431 4.3T2 VLO FSNAME=DAVE/M.DAVE.INTERNAL.P.025(1) 96 5.0T3 595 DAVE/M.DAVE.INTERNAL.P.025 1 LINE 61 3 PAGE UM BRILL APR. 06, 1980 13:30:22 5.0T7 460 0 A BRIEF INSTALLATION GUIDE FOR DAVE/M. 00766/001 INTRO GUIDE: MAG TAPES WF S1431 4.3T2 VLO FSNAME=INTRO_GUIDE:_MAG_TAPES..WF.001(1) 97 5.0T3 596 INTRO_GUIDE:_MAG_TAPES..WF.001 1 LINE 148 59 PAGE UM MANUAL AUG. 24, 1979 13:34:58 5.0T7 461 0 FORMAT SOURCE FOR "INTRODUCTION TO MAGNETIC TAPES," SEPTEMBER 1979. 00766/002 INTRO GUIDE: MAG TAPES PF S1431 4.3T2 VLO FSNAME=INTRO_GUIDE:_MAG_TAPES..PF.002(1) 98 5.0T3 597 INTRO_GUIDE:_MAG_TAPES..PF.002 1 LINE 129 79 PAGE UM MANUAL AUG. 24, 1979 13:37:39 5.0T7 462 0 FORMAT PRINT FILE. 00766/003 INTRO GUIDE: MAG TAPES D S1431 4.3T2 VLO FSNAME=INTRO_GUIDE:_MAG_TAPES..D.003(1) 99 5.0T3 598 INTRO_GUIDE:_MAG_TAPES..D.003 1 LINE 59 6 PAGE UM MANUAL AUG. 24, 1979 13:38:44 5.0T7 463 0 INPUT TO *INDEX (580) FOR THE INDEX TO "INTRODUCTION TO MAGNETIC TAPES." 00767/001 SIGLOG SA O S1153 UNSP VLO FSNAME=SIGLOG.S 5.0T3 599 SIGLOG..SA.001 1 LINE 72 4 PAGE UM UNSP AUG. 31, 1979 01:00:49 5.0T7 464 0 SIGLOG IS A PROGRAM INTENDED TO BE RUN FROM A SIGFILE, WHICH RECORDS INFORMATION (DATE, TIME, CCID, ETC.) IN A FILE EACH TIME IT IS RUN, OR WHICH PRINTS A SORTED COPY OF SUCH A FILE. 1 MON AUG 05/96 18:37:45 Page 548 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00767/002 SIGLOG OE O UNSP:SIGLOG 5.0T3 600 SIGLOG..OE.002 1 LINE 2819 2 PAGE UM UNSP JULY 03, 1981 19:25:15 5.0T7 465 UNSP:SIGLOG 00767/003 SIGLOG P UNSP:SIGLOG.W 5.0T3 601 SIGLOG..P.003 1 LINE 76 3 PAGE UM UNSP JULY 03, 1981 19:25:16 5.0T7 466 0 A PRINT FILE CONTAINING A DESCRIPTION OF THE SIGLOG PROGRAM. 00768/001 SIGCHECK$ SA O S1153 UNSP VLO FSNAME=SIGCHECK$.S 5.0T3 602 SIGCHECK$..SA.001 1 LINE 72 4 PAGE UM UNSP AUG. 31, 1979 00:59:45 5.0T7 467 0 A PROGRAM DESIGNED TO BE RUN FROM A SIGFILE, WHICH PUTS A MESSAGE IN A FILE IF THE ACCOUNT BALANCE IS BELOW A SPECIFIED LEVEL. 00768/002 SIGCHECK$ OE O UNSP:SIGCHECK$ 5.0T3 603 SIGCHECK$..OE.002 1 LINE 2318 1 PAGE UM UNSP JULY 03, 1981 19:25:18 5.0T7 468 UNSP:SIGCHECK$ 00768/003 SIGCHECK$ P UNSP:SIGCHECK$.W 5.0T3 604 SIGCHECK$..P.003 1 LINE 77 3 PAGE UM UNSP JULY 03, 1981 19:25:20 5.0T7 469 0 A PRINT FILE CONTAINING A DESCRIPTION OF THE SIGCHECK$ PROGRAM. 00769/001A DISK MANAGER MAIN SA G DMGR:DM.ABSMAIN.S 5.0T3 605 DISK_MANAGER.MAIN.SA.001 1 LINE 197 5 PAGE UM HELFFRICH JULY 03, 1981 19:25:22 5.0T7 470 0 This is the Disk Manager as run at UM. The Disk Manager is a central task providing disk I/O and locking services for tasks run under UMMPS (045). It is similiar in nature to the PDP, the Paging Drum Processor (044), except that the Disk Manager provides disk I/O services as opposed to paging services. This subcomponent is the main program of the MTS Disk Manager for use as an absolute task. The commands for assembling it start at line 1 in the file and may be $SOURCEd to. Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), and COPY:MNTR.MACROS (1058/19). Uses the Version Labeler (812). 0 Referenced by comments of: 3/1, 67/1, 67/3, 80/1, 482/7, 502/4, 502/6, 671/3, 682/20, 769/20, 812/1, 818/1, 1020/1, 1030/2 00769/002C DISK MANAGER MAIN OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 549 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00769/003A DISK MANAGER DISPATCH SA G DMGR:DM.DISPTCH.S 5.0T3 606 DISK_MANAGER.DISPATCH.SA.003 1 LINE 214 15 PAGE UM HELFFRICH JULY 03, 1981 19:25:23 5.0T7 471 0 This is the dispatch module of the Disk Manager, which does the following things: 1) adds and deletes disk drives 2) sends requests to LOCKMNGR (769/7) for lock and unlock processing 3) sorts requests from the supervisor and those received back from the LOCKMNGR to the appropriate DISKLING subtask (769/5) 4) requests page-in operations of supervisor (045) for DISKLINGS 5) posts finished requests to supervisor (045). Contains commands starting at line 1 for assembly and may be $SOURCEd to. Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), COPY:MISC.MACROS (728), COPY:UC.MACROS (787/1), and COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 769/5, 769/24 00769/004C DISK MANAGER DISPATCH OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00769/005A DISK MANAGER DISK INTERFACE SA G DMGR:DM.DISKXF.S 5.0T3 607 DISK_MANAGER.DISK_INTERFA.SA.005 1 LINE 212 26 PAGE UM HELFFRICH JULY 03, 1981 19:25:25 5.0T7 472 0 This is the disk interface of the Disk Manager. It contains the DISKLING, IOMNGR, LOGMNGR and DUCKMNGR subtasks. These subtasks perform the functions listed below. DISKLING: 1) schedules I/O operations to be done from requests for the disk drive. It services and gives them to IOMNGR subtask (see below) 2) asks for page-in operations of DISPATCH (769/3) 3) posts completed requests to DISPATCH IOMNGR: performs actual I/O and waits for device end for its disk drive (there is one such subtask for each disk drive) LOGMNGR: performs read buffered logs for all paths to disks once an hour DUCKMNGR: performs disk unit check error recovery Contains commands at line 1 for assembly and may be $SOURCEd to. Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), and COPY:UC.MACROS (787/1). 0 Referenced by comments of: 769/3, 769/24 1 MON AUG 05/96 18:37:45 Page 550 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00769/006C DISK MANAGER DISK INTERFACE OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00769/007A DISK MANAGER LOCKING SA G DMGR:DM.LOCK.S 5.0T3 608 DISK_MANAGER.LOCKING.SA.007 1 LINE 172 26 PAGE UM HELFFRICH JULY 03, 1981 19:25:29 5.0T7 473 0 These are the locking routines and the LOCKMNGR subtask, which locks and unlocks pages and volumes for requests. Commands for assembly start at line 1 so that the file may be $SOURCEd to. Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACORS (1058/19), COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 769/3, 769/24 00769/008C DISK MANAGER LOCKING OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00769/009A DISK MANAGER INTERTASK XFAC SA G DMGR:DM.ITSKXF.S 5.0T3 609 DISK_MANAGER.INTERTASK_XF.SA.009 1 LINE 195 23 PAGE UM HELFFRICH JULY 03, 1981 19:25:31 5.0T7 474 0 This is the Intertask (1081) Interface. It waits for messages on the intertask network for "Disk Manager Control" and processes the requests in those messages. Commands for assembly are at the front of the file. Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), COPY:FILE.MACROS (482/45), and COPY:MISC.MACROS (728). 0 Referenced by comments of: 769/24 00769/010C DISK MANAGER INTERTASK XFAC OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00769/011A DISK MANAGER MISCELLANEOUS SA G DMGR:DM.MISC.S 5.0T3 610 DISK_MANAGER.MISCELLANEOU.SA.011 1 LINE 191 4 PAGE UM HELFFRICH JULY 03, 1981 19:25:34 5.0T7 475 0 This subcomponent consists of miscellaneous subtasks and routines, including the EXITMNGR which waits for task exits from the supervisor (045) and creates other static tasks. Commands for assembly start at line 1 so that the file may be $SOURCEd to. Requires COPY:FILE.MACROS (482/45), COPY:MISC.MACROS (728), COPY:MNTR.MACROS (1058/19), COPY:DM.MACROS (769/19), and COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 769/24 1 MON AUG 05/96 18:37:45 Page 551 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00769/012C DISK MANAGER MISCELLANEOUS OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00769/013A DISK MANAGER MONITOR RTNS SA O DMGR:DM.MNTR(1000) 5.0T3 611 DISK_MANAGER.MONITOR_RTNS.SA.013 1 LINE 72 10 PAGE UM HELFFRICH JULY 03, 1981 19:25:35 5.0T7 476 0 Disk Manager-specific code to provide the Subtasking Monitor (1058) function of allocating and deallocating disk drives. If used with the MTS test program (769/24), it must be assembled with SYSPARM(TEST). Assemble using COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), COPY:MISC.MACROS (728), COPY:FILE.MACROS (482/45), and COPY:DM.MACROS (769/19). 0 Referenced by comments of: 769/24 00769/014C DISK MANAGER MONITOR RTNS OC O # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00769/015C DISK MANAGER DMGRSTAT JOB SA G DMGR:DM.STATJOB.S 5.0T3 612 DISK_MANAGER.DMGRSTAT_JOB.SA.015 1 LINE 205 29 PAGE UM HELFFRICH AUG. 06, 1981 05:31:48 5.0T7 477 0 This is the job program used to communicate with the Disk Manager. It provides for status and control of the Disk Manager via Intertask (1081). It also may be run as an MTS program. The entry is DMMTSPGM and should be listed in COPY:SYSDEFS (579/3). Assemble with COPY:IT.MACROS (1081/6), COPY:CC.MACROS (1054/3), COPY:MISC.MACROS (728), COPY:FILE.MACROS (482/45), and COPY:DM.MACROS (769/19). Copies COPY:IT.DSECTS (1081/4). 00769/016C DISK MANAGER DMGRSTAT JOB OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00769/017C DISK MANAGER DMGRSTAT JOB WF G DMGR:DM.STATJOB.W 5.0T3 613 DISK_MANAGER.DMGRSTAT_JOB.WF.017 1 LINE 77 4 PAGE UM HELFFRICH JULY 03, 1981 19:25:39 5.0T7 478 0 This is the writeup for the Disk Manager Stat Job. The file contains lines at the front to run *FORMAT (308) on it. 00769/018C DISK MANAGER DMGRSTAT JOB OC G DMGR:STAT 5.0T3 614 DISK_MANAGER.DMGRSTAT_JOB.OC.018 1 LINE 24 1 PAGE UM HELFFRICH JULY 03, 1981 19:25:40 5.0T7 479 0 RIP and LCS cards required to load the MTS version of the stat program from shared memory. 1 MON AUG 05/96 18:37:45 Page 552 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00769/019A DISK MANAGER MACROS SM G COPY:DM.MACROS 5.0T3 615 DISK_MANAGER.MACROS.SM.019 1 LINE 72 29 PAGE UM HELFFRICH JULY 03, 1981 19:25:41 5.0T7 480 COPY:DM.MACROS 0 This is the macro library for the MTS Disk Manager. It also contains copy sections. 0 Referenced by comments of: 10/1, 45/1, 482/4, 482/7, 769/1, 769/3, 769/5, 769/7, 769/9, 769/11, 769/13, 769/15, 769/20, 769/21, 769/23, 769/25 00769/020A DISK MANAGER MTS MAIN SA G DMGR:DM.MTSMAIN.S 5.0T3 616 DISK_MANAGER.MTS_MAIN.SA.020 1 LINE 174 5 PAGE UM HELFFRICH JULY 03, 1981 19:25:44 5.0T7 481 0 This is the MTS version of the main program of the Disk Manager. It replaces the absolute version (769/1) for testing purposes. It contains the commands to assemble it at line 1 and may be $SOURCEd to. Requires COPY:DM.MACROS (769/19), COPY:CC.MACROS (1054/3), COPY:FILE.MACROS (482/45) and COPY:MNTR.MACROS (1058/19). 0 Referenced by comments of: 769/24 00769/021C DISK MANAGER SVC FAKER SA G DMGR:DM.SVCFAKE.S 5.0T3 617 DISK_MANAGER.SVC_FAKER.SA.021 1 LINE 152 6 PAGE UM HELFFRICH JULY 03, 1981 19:25:45 5.0T7 482 0 This is the module to simulate supervisor (045) functions for Disk Manager support when the Disk Manager is tested as an MTS program (769/24). Requires COPY:DM.MACROS, (769/19), COPY:CC.MACROS(1054/1), and COPY:MNTR.MACROS(1058/19). 0 Referenced by comments of: 769/22, 769/24 00769/022C DISK MANAGER SHOW QS SQ G DMGR:DM.SHOWQS.S 5.0T3 618 DISK_MANAGER.SHOW_QS.SQ.022 1 LINE 184 4 PAGE UM HELFFRICH JULY 03, 1981 19:25:47 5.0T7 483 0 This is the SHOW QUEUES subroutine called by SVC FAKER (769/21). Requires (769/23) for compilation. 0 Referenced by comments of: 769/24 00769/023C DISK MANAGER PLUS LIBRARY SQ G DMGR:DM.SOURCELIB 5.0T3 619 DISK_MANAGER.PLUS_LIBRARY.SQ.023 1 LINE 84 5 PAGE UM HELFFRICH JULY 03, 1981 19:25:48 5.0T7 484 0 PLUS source library for DRCB. If the DRCB definition in (769/19) changes, so must this. 0 Referenced by comments of: 769/22 00769/024A DISK MANAGER MTS OBJECT OE G DMGR:DMGR.O 5.0T3 620 DISK_MANAGER.MTS_OBJECT.OE.024 1 LINE 9476 42 PAGE UM HELFFRICH JULY 03, 1981 19:25:49 5.0T7 485 0 This is the object of (769/3), (769/5), (769/7), (769/9), (769/11), (769/13), 1 MON AUG 05/96 18:37:45 Page 553 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (769/20), (769/21), (769/22) and a private copy of the CMDSTAT object (531/3), for private CMDSTAT drop areas. It is the version of the Disk Manager which may be $RUN as an MTS program for testing. Should be run along with code for the UBC Subtasking Monitor (1058). 0 Referenced by comments of: 769/13, 769/21 00769/025C DISK MANAGER FAKE DMGR SA G DMGR:FAKEDMGR(1,999) 5.0T3 621 DISK_MANAGER.FAKE_DMGR.SA.025 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 19:26:02 5.0T7 486 0 Fake version of the Disk Manager which should be run if the real Disk Manager dies in a way that is non-restartable. This job program accepts incoming disk I/O requests and posts them as imcomplete back to the issuing task. Requires COPY:DM.MACROS (769/19), COPY:FILE.MACROS (482/45) and COPY:MISC:MACROS (728). 00769/026C DISK MANAGER FAKE DMGR OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00770/001A DTYPE SA S DTYP MTS:DTYPE(2000) 5.0T3 622 DTYPE..SA.001 1 LINE 80 3 PAGE UM MTA JULY 03, 1981 19:26:03 5.0T8 1 MTS:DTYPE 0 A GLP THAT ALLOWS YOU TO CHANGE THE TYPE OF A GIVEN DEVICE (USUALLY TO OR FROM TYPE "TEST"). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). REQUIRES COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728). 00770/002A DTYPE OC S MTS:DTYPE(1000,1999) 5.0T3 623 DTYPE..OC.002 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 19:26:04 5.0T8 2 00771/001 *COMBINE SA G S1210 PASDIS 'PASCAL DIST' FSNAME=COMBINE.ASM 5.0T3 624 COMBINE..SA.001 1 LINE 81 33 PAGE UM PICKELMAN OCT. 18, 1979 01:33:13 5.0T8 3 0 PROGRAM TO COMBINE RECORDS OR PORTIONS OF RECORDS FROM SEVERAL FILES. COPIES *GDINFODSECT (594). ORIGINALLY WRITTEN BY JASON HALM AT UBC. 0 Referenced by comments of: 764/1 00771/002 *COMBINE OE G *COMBINE 5.0T3 625 COMBINE..OE.002 1 LINE 10684 5 PAGE UM PICKELMAN JULY 03, 1981 19:31:39 5.0T8 4 *COMBINE 00771/003 *COMBINE MEMO 412 WF S1431 4.3T2 VLO FSNAME=COMBINE.MEMO_412.WF.003(1) 111 5.0T3 626 COMBINE.MEMO_412.WF.003 1 LINE 74 5 PAGE UM PICKELMAN FEB. 29, 1980 10:17:12 5.0T8 5 0 THIS IS COMPUTING CENTER MEMO 412 -- "*COMBINE: A RECORD-COMBINING PROGRAM." 1 MON AUG 05/96 18:37:45 Page 554 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00772/001 COUNTW SF O S1153 UNSP VLO FSNAME=COUNTW.FTN 5.0T3 627 COUNTW..SF.001 1 LINE 77 8 PAGE UM UNSP OCT. 06, 1979 04:41:28 5.0T8 6 0 A PROGRAM TO SCAN A FILE AND PRINT SOME STATISTICS AND A LIST OF ALL THE WORDS FOUND. WRITTEN BY JOHN COULTHARD AND ALAN MILLER AT UBC. USES UBC LIBRARY ( NOT DISTRIBUTED ). 00772/002 COUNTW OE O UNSP:COUNTW 5.0T3 628 COUNTW..OE.002 1 LINE 20832 8 PAGE UM UNSP JULY 03, 1981 19:31:43 5.0T8 7 UNSP:COUNTW 0 MODIFIED CSNOOP.O (695/5). LINKEDITED OBJECT OF COUNTW, ROUTINES FROM UBC LIBRARY, AND A 00772/003 COUNTW WF S1153 UNSP VLO FSNAME=COUNTW.F 5.0T3 629 COUNTW..WF.003 1 LINE 106 8 PAGE UM UNSP OCT. 15, 1979 18:41:10 5.0T8 8 00773/001 CONCORD FORTRAN SOU SF O S1153 UNSP VLO FSNAME=CONCORD.FTN 5.0T3 630 CONCORD.FORTRAN_SOU.SF.001 1 LINE 68 4 PAGE UM UNSP OCT. 06, 1979 04:44:29 5.0T8 9 0 A PROGRAM TO PRINT CONCORDANCES OF MTS FILE. USES THE CONCORD ASSEMBLER ROUTINES (773/2), SOME OF WHICH HAVE THE SAME NAMES AS SOME CHARACTER MANIPULATION ROUTINES IN *LIBRARY (524/1), BUT DIFFERENT FUNCTIONS. ORIGINALLY WRITTEN BY JOHN COULTHARD AT UBC. MODIFIED AT UM SO THAT IT DOESN'T USE ROUTINES NOT AVAILABLE HERE. 0 Referenced by comments of: 773/3 00773/002 CONCORD ASSEMBLY SOU SA O S1153 UNSP VLO FSNAME=CONCORD.ASM 5.0T3 631 CONCORD.ASSEMBLY_SOU.SA.002 1 LINE 72 3 PAGE UM UNSP OCT. 06, 1979 04:43:32 5.0T8 10 0 Referenced by comments of: 773/1, 773/3 00773/003 CONCORD OE O UNSP:CONCORD 5.0T3 632 CONCORD..OE.003 1 LINE 3264 3 PAGE UM UNSP JULY 03, 1981 19:31:48 5.0T8 11 UNSP:CONCORD 0 LINKEDITED OBJECT OF FORTRAN AND ASSEMBLER SOURCE, (773/1) AND (773/2), AND A MODIFIED VERSION OF CSNOOP.O (695/5). USES UNSP:LIBRARY (685/2). 00773/004 CONCORD WF O S1153 UNSP VLO FSNAME=CONCORD.F 5.0T3 633 CONCORD..WF.004 1 LINE 67 3 PAGE UM UNSP OCT. 06, 1979 04:44:46 5.0T8 12 00774/001C LISTER PLUS SOURCE SQ O S1427 UBC76 VLO 545 5.0T3 634 LISTER.PLUS_SOURCE.SQ.001 1 LINE 82 26 PAGE UBC HAYWARD UNSP MAY 06, 1980 14:40:01 5.0T8 13 0 THIS PROGRAM PROVIDES FACILITIES FOR MULTICOLUMN LISTING, TITLES, ETC., AND USER-CALLABLE SUBROUTINES. 1 MON AUG 05/96 18:37:45 Page 555 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 FOR DETAILS, SEE THE WRITEUP (774/7). REQIRES (774/5) FOR ASSEMBLY. ************************************************************************* D5.0 VERSION: THIS IS A NEW VERSION OF UBC'S LISTING PROGRAM. IT IS A COMPLETE REWRITE, MOSTLY IN PLUS, USING THE PARSER FOR PARAMETER PROCESSING. ************************************************************************* 0 Referenced by comments of: 698/1, 774/5 00774/002A LISTER ASM SOURCE SA O S1427 UBC76 VLO 546 5.0T3 635 LISTER.ASM_SOURCE.SA.002 1 LINE 68 9 PAGE UBC HAYWARD UNSP MAY 06, 1980 14:40:06 5.0T8 14 0 ASSEMBLER SOURCE FOR VARIOUS INTERFACING ROUTINES. 00774/003A LISTER OE O UNSP:LISTER 5.0T3 636 LISTER..OE.003 1 LINE 32767 14 PAGE UBC HAYWARD UNSP JULY 03, 1981 19:34:06 5.0T8 15 UNSP:LISTER 0 Contains a $CONTINUE WITH UNSP:LIBRARY (685/2) record. 0 Referenced by comments of: 774/6 00774/004C LISTER GRAMMAR D O S1427 UBC76 VLO FSNAME=LISTER.GRAMMAR.S.004 547 5.0T3 637 LISTER.GRAMMAR.D.004 1 LINE 73 5 PAGE UBC HAYWARD UNSP MAY 06, 1980 14:40:07 5.0T8 16 0 GRAMMAR, INPUT TO THE MTS/SPIRES ANALYZER (1076), FOR LISTER OPTIONS SPECIFICATION. 00774/005C LISTER SOU LIB SQ O S1427 UBC76 VLO FSNAME=LISTER.SOURCE_LIBR.S+.005 548 5.0T3 638 LISTER.SOU_LIB.SQ.005 1 LINE 139 5 PAGE UBC HAYWARD UNSP MAY 06, 1980 14:40:09 5.0T8 17 0 PLUS SOURCE LIBRARY REQUIRED TO COMPILE (774/1). 0 Referenced by comments of: 774/1 00774/006C LISTER CMDS C O S1427 UBC76 VLO FSNAME=LISTER.CMDS.C.006 549 5.0T3 639 LISTER.CMDS.C.006 1 LINE 134 4 PAGE UBC HAYWARD UNSP MAY 06, 1980 14:40:11 5.0T8 18 0 COMMAND FILE TO PRODUCE (774/3) BY COMPILING/ASSEMBLING ITS VARIOUS PARTS. 00774/007A LISTER WF S1153 UNSP VLO FSNAME=LISTER.F 5.0T3 640 LISTER..WF.007 1 LINE 85 15 PAGE UBC HAYWARD UNSP JULY 17, 1980 02:03:40 5.0T8 19 0 FMT SOURCE FOR UBC WRITEUP DESCRIBING THIS VERSION OF LISTER. REQUIRES COPY:JONMACLIBFMT (308/18). 1 MON AUG 05/96 18:37:45 Page 556 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS IS A PRELIMINARY VERSION AND HAS NOT YET BEEN RELEASED AT UBC. 0 Referenced by comments of: 774/1 00775/001A PEXIT SA G W067:PEXIT.S 5.0T3 641 PEXIT..SA.001 1 LINE 108 25 PAGE UM SHERRY JULY 03, 1981 19:34:20 5.0T8 20 0 THIS IS A PRINT EXIT ROUTINE TO BE USED WITH ASSEMBLER H (737/30). IT POST-PROCESSES THE LISTINGS PRODUCED BY ASSEMBLER H TO INSERT LEVEL NUMBERS FOR THE STRUCTURED PROGRAMMING MACROS IN *SYSMAC AMONG OTHER THINGS. SEE THE WRITEUP IN (775/3) FOR A DESCRIPTION OF WHAT IT DOES AND HOW TO USE IT. USES THE OBJUTIL MISC MACROS (721/15) AND *SYSMAC. ASSEMBLE WITH *ASMH WITH PAR=PEXIT=*PEXIT. ***************************************************************************** D5.0 version: This is a new version, which supports several new ASMEDIT options that are described in (775/3). ***************************************************************************** 0 Referenced by comments of: 135/1, 291/1, 314/1, 498/1, 570/1, 648/1, 686/1, 721/1, 746/1, 813/9, 813/11, 813/13 00775/002A PEXIT OE G *PEXIT 5.0T3 642 PEXIT..OE.002 1 LINE 9028 4 PAGE UM SHERRY JULY 03, 1981 19:34:22 5.0T8 21 *PEXIT 0 OBJECT LOADED BY *ASMH (737/30) IF PAR=PEXIT=*PEXIT IS SPECIFIED. 00775/003A PEXIT WX W067:PEXIT.WX 5.0T3 643 PEXIT..WX.003 1 LINE 77 3 PAGE UM SHERRY JULY 03, 1981 19:34:24 5.0T8 22 0 TEXTFORM WRITEUP DESCRIBING THE ASSEMBLER H PRINT EXIT PEXIT. 0 Referenced by comments of: 775/1, 775/4 00775/004C PEXIT PX W067:PEXIT.DOC 5.0T3 644 PEXIT..PX.004 1 LINE 76 4 PAGE UM SHERRY JULY 03, 1981 19:34:24 5.0T8 23 0 Print file corresponding to (775/3). 00776/001 *PFORT # (NOT DISTRIBUTED) UM BRILL 0 THE PFORT VERIFIER, DEVELOPED BY BELL LABORATORIES, CHECKS FORTRAN PROGRAMS FOR ADHERENCE TO PFORT, A PORTABLE SUBSET OF THE 1966 VERSION OF AMERICAN NATIONAL STANDARD FORTRAN. UM ACQUIRED PFORT FROM BELL LABS AND MODIFIED IT TO RUN IN MTS. PFORT IS A PROPRIETARY PROGRAM AND HENCE, MAY NOT BE DISTRIBUTED. ANY INSTALLATION DESIRING PFORT MUST REQUEST IT FROM BELL LABS AND PAY THEIR FEE. THE PFORT 1 MON AUG 05/96 18:37:45 Page 557 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 YOU GET WILL BE A MORE RECENT VERSION THAN THE ONE WE HAVE. IF YOU SHOULD WISH TO SEE THE CHANGES WE MADE, WE WILL SEND YOU A COPY OF THEM, BUT BE WARNED THAT THEY CANNOT BE APPLIED TO THE VERSION OF PFORT YOU'LL GET FROM BELL LABS. AT BEST, OUR CHANGES CAN GIVE YOU A ROUGH IDEA OF THE MODIFICATIONS WE MADE. WE WILL ALSO SEND YOU A COPY OF COMPUTING CENTER MEMO 406, "*PFORT," SHOULD YOU REQUEST ONE. WE DO NOT DISTRIBUTE THIS MEMO BECAUSE IT IS BASED LARGELY ON BELL LABS' COPYRIGHTED DOCUMENT. 00777/001A STARTUP/SHUTDOWN SA G S1482 4.3AT1 VLO FSNAME=STARTUP/SHUTDOWN..SA.001(1) 473 5.0T3 645 STARTUP/SHUTDOWN..SA.001 1 LINE 71 3 PAGE UM OGDEN OCT. 12, 1980 16:50:22 5.0T8 24 0 THE STARTUP AND SHUTDOWN JOB PROGRAMS. ASSEMBLE USING COPY:MISC.MACROS (728), COPY:SETPARM (653), COPY:MTS.MACROS (344/3). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 00777/002 STARTUP/SHUTDOWN OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00778/001 SIGNONM SA G S1431 4.3T2 VLO FSNAME=SIGNONM..SA.001(1) 127 5.0T3 646 SIGNONM..SA.001 1 LINE 71 1 PAGE UM OGDEN APR. 06, 1980 13:37:14 5.0T8 25 0 THE SIGNONM (SIGNON MESSAGE) JOB PROGRAM, RECENTLY MOVED OUT OF CMDS AND INTO AN ASSEMBLY OF ITS OWN. ASSEMBLE USING COPY:MISC.MACROS. 00778/002 SIGNONM OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 Object part of Resident System (468) 00779/001A TRANSLATE TABLES SA G W078:TRTABLES.S 5.0T3 647 TRANSLATE_TABLES..SA.001 1 LINE 90 4 PAGE UM BURLING JULY 03, 1981 19:34:59 5.0T8 26 0 TRANSLATE TABLES USED BY MANY PARTS OF THE SYSTEM. CONTAINS COMMANDS AT FRONT SO THAT IT MAY BE $SOURCED TO. 0 Referenced by comments of: 135/1 00779/002A TRANSLATE TABLES O G SEG2:TRTABLES 5.0T3 648 TRANSLATE_TABLES..O.002 1 LINE 2560 3 PAGE UM BURLING JULY 03, 1981 19:35:00 5.0T8 27 SEG2:TRTABLES 0 OBJECT FOR THE TRANSLATE AND TRANSLATE AND TEST TABLES LOADED BY THE SEGMENT 2 LOADER. 1 MON AUG 05/96 18:37:45 Page 558 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00780/001 MESS STUDENT VERS SF O S1073 UNSP FSNAME=MESS3SBSOR 5.0T3 649 MESS.STUDENT_VERS.SF.001 1 LINE 72 10 PAGE UM UNSP DEC. 21, 1974 14:06.40 5.0T8 28 0 THIS COMPONENT IS THE MICHIGAN EXPERIMENTAL SIMULATION SUPERVISOR, MESS, A GENERAL SUPERVISOR FOR COMPUTER-SIMULATED EXPERIMENTS. MESS WAS DEVELOPED AT THE UNIVERSITY OF MICHIGAN HIGHWAY SAFETY RESEARCH INSTITUTE BY RICHARD HALSTEAD-NUSSLOCH, ALONG WITH DANA MAIN AND ROBERT L STOUT. IT IS USED BY THE MESS EXPR-SIM EXPERIMENTS (780/13) - (780/33), A COLLECTION OF EXPERIMENTS WHICH SIMULATE VARIOUS PSYCHOLOGICAL EXPERIMENTS. IT IS VERY GENERAL AND COULD BE USED FOR OTHER TYPES OF EXPERIMENTS. THIS SUBCOMPONENT CONTAINS THE SOURCE FOR THE "STUDENT" VERSION OF MESS. USES THE MESS LIBRARY (780/10). 00780/002 MESS STUDENT VERS OE O UNSP:EXPR_MESS3SB 5.0T3 650 MESS.STUDENT_VERS.OE.002 1 LINE 10454 6 PAGE UM UNSP JULY 03, 1981 19:43:03 5.0T8 29 UNSP:EXPR_MESS3SB 00780/003 MESS INSTRUCT VERS SF O S1073 UNSP FSNAME=MESS3PSOR 5.0T3 651 MESS.INSTRUCT_VERS.SF.003 1 LINE 72 16 PAGE UM UNSP MAY 31, 1975 17:51:05 5.0T8 30 0 THIS IS THE SOURCE FOR THE "INSTRUCTORS'" VERSION OF MESS. USES THE MESS LIBRARY (780/10). 0 Referenced by comments of: 780/13, 780/16, 780/19, 780/22, 780/25, 780/28, 780/31 00780/004 MESS INSTRUCT VERS OE O UNSP:EXPR_MESS3P 5.0T3 652 MESS.INSTRUCT_VERS.OE.004 1 LINE 18282 9 PAGE UM UNSP JULY 03, 1981 19:43:07 5.0T8 31 UNSP:EXPR_MESS3P 00780/005 MESS CARD VERSION SF O S1073 UNSP FSNAME=MESS3SCSOR 5.0T3 653 MESS.CARD_VERSION.SF.005 1 LINE 72 10 PAGE UM UNSP DEC. 21, 1974 13:58.50 5.0T8 32 0 THIS IS THE SOURCE FOR THE "CARD" VERSION OF MESS. IT USES ONLY FORMATTED READS OF RECORDS UP TO 80 CHARACTER IN LENGTH. NOT NEEDED ON MTS. 00780/006 MESS CARD VERSION OC O S1153 UNSP VLO FSNAME=MESS3SCOBJ 5.0T3 654 MESS.CARD_VERSION.OC.006 1 LINE 14220 7 PAGE UM UNSP FEB. 20, 1980 05:40:11 5.0T8 33 00780/007 MESS FORMAT RTNS SF O S1073 UNSP FSNAME=FPOUTSOR 5.0T3 655 MESS.FORMAT_RTNS.SF.007 1 LINE 72 5 PAGE UM UNSP MAY 31, 1975 17:52:58 5.0T8 34 0 GENERAL FORMATTING ROUTINES USED BY MESS. 0 Referenced by comments of: 780/10 1 MON AUG 05/96 18:37:45 Page 559 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00780/008 MESS NUM & STAT RTN SF O S1073 UNSP FSNAME=LIBSOR 5.0T3 656 MESS.NUM_&_STAT_RTN.SF.008 1 LINE 74 8 PAGE UM UNSP MAY 31, 1975 17:50:48 5.0T8 35 0 NUMERICAL AND STATISTICAL ROUTINES USED BY MESS. 0 Referenced by comments of: 780/10 00780/009 MESS AUX RTNS SF O S1073 UNSP FSNAME=AUXSOR 5.0T3 657 MESS.AUX_RTNS.SF.009 1 LINE 75 13 PAGE UM UNSP MAY 31, 1975 17:46:53 5.0T8 36 0 MISCELLANEOUS AUXILIARY ROUTINES USED BY MESS. 0 Referenced by comments of: 780/10 00780/010 MESS LIBRARY OL O UNSP:EXPR_MESSLIB 5.0T3 658 MESS.LIBRARY.OL.010 1 LINE 5912 13 PAGE UM UNSP JULY 03, 1981 19:43:17 5.0T8 37 UNSP:EXPR_MESSLIB 0 THE MESS LIBRARY. CONTAINS THE OBJECT OF (780/7), (780/8), AND (780/9). 0 Referenced by comments of: 780/1, 780/3 00780/011 MESS INSTALL P S1153 UNSP VLO FSNAME=EXPR.COMMENTS 5.0T3 659 MESS.INSTALL.P.011 1 LINE 67 1 PAGE UM UNSP DEC. 13, 1979 02:26:07 5.0T8 38 0 A BRIEF INTRODUCTION TO MESS AND THE EXPR-SIM EXPERIMENTS (780/13) - (780/33), INTENDED FOR INSTALLATIONS RECEIVING THIS DISTRIBUTION. THE FOLLOWING DOCUMENTATION IS AVAILABLE FOR MESS AND EXPER-SIM: PROGRAMMER'S GUIDE TO MESS VERSION 3-P, 3-SB, AND 3-SC, BY ROBERT L. STOUT EXPR-SIM ON MICHIGAN EXPERIMENTAL SIMULATION SUPERVISOR (MESS), REVISED EDITION, BY DANA B. MAIN AND RICHARD HALSTEAD-NUSSLOCH IF YOU ARE INTERESTED IN RECEIVING XEROX COPIES OF THESE DOCUMENTS, SEND YOUR REQUEST TO: ELIZABETH SWEET COMPUTING CENTER UNIVERSITY OF MICHIGAN 1075 BEAL AVE. ANN ARBOR, MI 48109 1 MON AUG 05/96 18:37:45 Page 560 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00780/012 MESS WRITEUP P UNSP:EXPR.W 5.0T3 660 MESS.WRITEUP.P.012 1 LINE 70 1 PAGE UM UNSP JULY 03, 1981 19:43:25 5.0T8 39 0 CONTAINS A DIRECTORY TO THE MESS AND EXPR-SIM (780/13) - (780/33) FILES AT UM. 00780/013 MESS EXPR-SIM DEMO O O UNSP:EXPR.DEMO 5.0T3 661 MESS.EXPR-SIM_DEMO.O.013 1 LINE 15804 21 PAGE UM UNSP JULY 03, 1981 19:43:26 5.0T8 40 UNSP:EXPR.DEMO 0 A DEMONSTRATION GENERATED USING (780/14) AND (780/15). THIS FILE CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE (780/15) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/14). 0 Referenced by comments of: 780/1, 780/11, 780/12, 780/15 00780/014 MESS EXPR-SIM DEMO SF O S1073 UNSP FSNAME=DEMO2SOR 5.0T3 662 MESS.EXPR-SIM_DEMO.SF.014 1 LINE 72 4 PAGE UM UNSP DEC. 21, 1974 14:26.35 5.0T8 41 0 THIS IS THE MODEL PROGRAM FOR A DEMONSTRATION EXPERIMENT. 0 Referenced by comments of: 780/13 00780/015 MESS EXPR-SIM DEMO D S1073 UNSP FSNAME=DEMO2DAT1 5.0T3 663 MESS.EXPR-SIM_DEMO.D.015 1 LINE 64 1 PAGE UM UNSP DEC. 21, 1974 14:27.08 5.0T8 42 0 THIS IS THE DATA FOR (780/13). 0 Referenced by comments of: 780/13 00780/016 MESS EXPR-SIM DOPE O O UNSP:EXPR.DOPE 5.0T3 664 MESS.EXPR-SIM_DOPE.O.016 1 LINE 15800 20 PAGE UM UNSP JULY 03, 1981 19:43:33 5.0T8 43 UNSP:EXPR.DOPE 0 THIS IS AN EXPERIMENT ENTITLED "DRUG OBSERVATIONS: PROGRAM FOR EXPERIMENTS." IT WAS GENERATED USING (780/17) AND (780/18). THIS FILE CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE (780/18) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/17). 00780/017 MESS EXPR-SIM DOPE SF O S1073 UNSP FSNAME=DOPESOR 5.0T3 665 MESS.EXPR-SIM_DOPE.SF.017 1 LINE 79 5 PAGE UM UNSP MAY 31, 1975 17:47:55 5.0T8 44 0 Referenced by comments of: 780/16 1 MON AUG 05/96 18:37:45 Page 561 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00780/018 MESS EXPR-SIM DOPE D S1073 UNSP FSNAME=DOPEDAT1 5.0T3 666 MESS.EXPR-SIM_DOPE.D.018 1 LINE 54 1 PAGE UM UNSP DEC. 21, 1974 14:23.37 5.0T8 45 0 Referenced by comments of: 780/16 00780/019 MESS EXPR IMPRINT O O UNSP:EXPR.IMPRINT 5.0T3 667 MESS.EXPR_IMPRINT.O.019 1 LINE 15800 18 PAGE UM UNSP JULY 03, 1981 19:43:40 5.0T8 46 UNSP:EXPR.IMPRINT 0 AN EXPERIMENT ON IMPRINTING GENERATED USING (780/20) AND (780/21). THIS FILE CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE (780/21) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/20). 00780/020 MESS EXPR IMPRINT SF O S1073 UNSP FSNAME=IMPSOR 5.0T3 668 MESS.EXPR_IMPRINT.SF.020 1 LINE 72 3 PAGE UM UNSP DEC. 21, 1974 14:06.06 5.0T8 47 0 Referenced by comments of: 780/19 00780/021 MESS EXPR IMPRINT D S1073 UNSP FSNAME=IMPDAT1 5.0T3 669 MESS.EXPR_IMPRINT.D.021 1 LINE 63 1 PAGE UM UNSP DEC. 21, 1974 14:22.37 5.0T8 48 0 Referenced by comments of: 780/19 00780/022 MESS EXPR MOTIV O O UNSP:EXPR.MOTIVE 5.0T3 670 MESS.EXPR_MOTIV.O.022 1 LINE 15800 19 PAGE UM UNSP JULY 03, 1981 19:43:49 5.0T8 49 UNSP:EXPR.MOTIVE 0 AN EXPERIMENT ON MOTIVATION IN ROUTINE TASKS, GENERATED USING (780/23) AND (780/24). CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE (780/24) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/23). 00780/023 MESS EXPR MOTIV SF O S1073 UNSP FSNAME=MOTSOR 5.0T3 671 MESS.EXPR_MOTIV.SF.023 1 LINE 71 3 PAGE UM UNSP DEC. 21, 1974 14:09.42 5.0T8 50 0 Referenced by comments of: 780/22 00780/024 MESS EXPR MOTIV D S1073 UNSP FSNAME=MOTDAT1 5.0T3 672 MESS.EXPR_MOTIV.D.024 1 LINE 71 1 PAGE UM UNSP DEC. 21, 1974 14:08.33 5.0T8 51 0 Referenced by comments of: 780/22 1 MON AUG 05/96 18:37:45 Page 562 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00780/025 MESS EXPR-SIM RATS O O UNSP:EXPR.RATS 5.0T3 673 MESS.EXPR-SIM_RATS.O.025 1 LINE 15804 21 PAGE UM UNSP JULY 03, 1981 19:43:56 5.0T8 52 UNSP:EXPR.RATS 0 AN EXPERIMENT ENTITLED "RATS: SELF-STIMULATION SIMULATION", GENERATED BY (780/26) AND (780/27). THIS FILE CONTAINS A VARIETY OF THINGS, INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE (780/27) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/26). 00780/026 MESS EXPR-SIM RATS SF O S1073 UNSP FSNAME=RATSSOR 5.0T3 674 MESS.EXPR-SIM_RATS.SF.026 1 LINE 75 5 PAGE UM UNSP MAY 31, 1975 17:48:33 5.0T8 53 0 Referenced by comments of: 780/25 00780/027 MESS EXPR-SIM RATS D S1073 UNSP FSNAME=RATSDAT1 5.0T3 675 MESS.EXPR-SIM_RATS.D.027 1 LINE 52 1 PAGE UM UNSP DEC. 21, 1974 14:16.50 5.0T8 54 0 Referenced by comments of: 780/25 00780/028 MESS EXPR-SIM SCHIZ O O UNSP:EXPR.SCHIZ 5.0T3 676 MESS.EXPR-SIM_SCHIZ.O.028 1 LINE 15800 16 PAGE UM UNSP JULY 03, 1981 19:44:02 5.0T8 55 UNSP:EXPR.SCHIZ 0 AN EXPERIMENT ENTITLED "THE ETIOLOGY OF SCHIZOPHRENIA", GENERATED USING (780/29) AND (780/30). THIS FILE CONTAINS A VARIETY OF THINGS, INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE (780/30) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/29). 00780/029 MESS EXPR-SIM SCHIZ SF O S1073 UNSP FSNAME=SCHIZSOR 5.0T3 677 MESS.EXPR-SIM_SCHIZ.SF.029 1 LINE 72 1 PAGE UM UNSP DEC. 21, 1974 14:10.48 5.0T8 56 0 Referenced by comments of: 780/28 00780/030 MESS EXPR-SIM SCHIZ D S1073 UNSP FSNAME=SCHIZDAT1 5.0T3 678 MESS.EXPR-SIM_SCHIZ.D.030 1 LINE 67 1 PAGE UM UNSP DEC. 21, 1974 14:10.18 5.0T8 57 0 Referenced by comments of: 780/28 00780/031 MESS EXPR SOC FAC O O UNSP:EXPR.SOCFAC 5.0T3 679 MESS.EXPR_SOC_FAC.O.031 1 LINE 15800 19 PAGE UM UNSP JULY 03, 1981 19:44:09 5.0T8 58 UNSP:EXPR.SOCFAC 0 AN EXPERIMENT IN SOCIAL FACILITATION, GENERATED USING (780/32) AND (780/33). CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA, THE RESULT OF RUNNING THE DATA FILE (780/33) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3), AND THE OBJECT OF THE FORTRAN MODEL PROGRAM (780/32). 1 MON AUG 05/96 18:37:45 Page 563 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00780/032 MESS EXPR SOC FAC SF O S1073 UNSP FSNAME=SFACSOR 5.0T3 680 MESS.EXPR_SOC_FAC.SF.032 1 LINE 69 4 PAGE UM UNSP SEP. 07, 1973 14:40.51 5.0T8 59 0 Referenced by comments of: 780/31 00780/033 MESS EXPR SOC FAC D S1073 UNSP FSNAME=SFACDAT1 5.0T3 681 MESS.EXPR_SOC_FAC.D.033 1 LINE 76 1 PAGE UM UNSP SEP. 07, 1973 14:42.30 5.0T8 60 0 Referenced by comments of: 780/1, 780/11, 780/12, 780/31 00781/001 PASCAL VALIDATION SUITE TAPE DESC P # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.CHARSET UM PICKELMAN 0 THE PASCAL VALIDATION SUITE IS A SET OF OVER 300 PASCAL PROGRAMS DESIGNED TO TEST A COMPILER'S COMPLIANCE WITH THE DRAFT PASCAL STANDARD (SEE THE PASCAL NEWS, NO. 16, OCT. 1979). THE SUITE ITSELF CANNOT BE DISTRIBUTED, BUT MAY BE OBTAINED FROM THE FOLLOWING DISTRIBUTORS: NORTH AMERICA: EUROPE: RICHARD J. CICHELLI DR. B. WICHMANN ANPA RESEARCH INSTITUTE NATIONAL PHYSICS LABORATORY BOX 598 TEDDINGTON, TW11 0LW EASTON, PA 18042 MIDDLESEX U.S.A. ENGLAND THIS SUBCOMPONENT CONTAINS A DESCRIPTION OF THE PASCAL VALIDATION SUITE DISTRIBUTION TAPE. 0 Referenced by comments of: 792/1 00781/002 PASCAL VALIDATION SUITE SKELETON SW G # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SKELETON UM PICKELMAN 0 A PROGRAM TO LIST, SELECT, OR ADD COMMANDS TO RUN THE (781/4) PROGRAMS. 0 Referenced by comments of: 781/8 00781/003 PASCAL VALIDATION SUITE DOCUMENTATION P # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.DOCUMENTATION UM PICKELMAN 0 A DESCRIPTION OF THE PASCAL VALIDATION SUITE. 00781/004 PASCAL VALIDATION SUITE SUITE SW G # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SUITE UM PICKELMAN 0 THE PASCAL VALIDATION SUITE TEST PROGRAMS. 0 Referenced by comments of: 781/2 1 MON AUG 05/96 18:37:45 Page 564 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00781/005 PASCAL VALIDATION SUITE STANDARD P # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.STANDARD UM PICKELMAN 0 THE VERSION OF THE DRAFT PASCAL STANDARD TO WHICH THE PASCAL VALIDATION SUITE CORRESPONDS. 00781/006 PASCAL VALIDATION SUITE REPORTS P # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.REPORTS UM PICKELMAN 0 RESULTS OF THE PASCAL VALIDATION SUITE, AS REPORTED TO ITS AUTHORS. 00781/007A PASCAL VALIDATION SUITE UM REPORTS P S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.360REPORTS 5.0T3 682 PASCAL_VALIDATION_SUITE.U.P.007 1 LINE 68 8 PAGE UM PICKELMAN JUNE 28, 1980 17:30:19 5.0T8 61 0 RESULTS OF THE PASCAL VALIDATION SUITE AT UM. ************************************************************************************ D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CHANGED TO ADD RESULTS WITH LATEST RPI VERSION OF PASCAL/8000 (783). ************************************************************************************ 00781/008 PASCAL VALIDATION SUITE SELECT UC O S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SELECT.CDU 5.0T3 683 PASCAL_VALIDATION_SUITE.S.UC.008 1 LINE 68 3 PAGE UM PICKELMAN FEB. 25, 1980 15:21:19 5.0T8 62 0 UPDATE TO THE SKELETON (781/2). PRODUCES OBJECT (781/9) FOR USE WITH THE PASCAL COMPILERS AVAILABLE UNDER MTS. 00781/009 PASCAL VALIDATION SUITE SELECT OE O S1210 PASDIS 'PASCAL DIST' FSNAME=PVS_SELECT 5.0T3 684 PASCAL_VALIDATION_SUITE.S.OE.009 1 LINE 7532 4 PAGE UM PICKELMAN JAN. 21, 1980 15:00:09 5.0T8 63 0 HAS A $CONTINUE WITH UNSP:PAS.SP.RUN (782/55) RECORD. 0 Referenced by comments of: 781/8 00782/001 PASCAL/SB OS/COMMENTS P O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.COMMENTS 5.0T3 685 PASCAL/SB.OS/COMMENTS.P.001 1 LINE 91 16 PAGE UM UNSP OCT. 20, 1979 19:26:23 5.0T8 64 0 THIS IS THE STONY BROOK PASCAL COMPILER, RELEASE 3.1. COMPONENTS INCLUDE MODULES OF THE OS VERSION AS RECEIVED FROM STONY BROOK (782/1) - (782/35) AND THOSE MODIFIED FOR THE MTS VERSION (782/36) - (782/64). (782/1) IS THE DESCRIPTION, FROM STONY BROOK, OF THE OS VERSION. OTHER COMPONENTS WHICH MAY BE HELPFUL IN INSTALLING PASCAL/SB ARE (782/36) AND (782/37). TO INSTALL THE SYSTEM AS RUN AT MICHIGAN, RESTORE COMPONENTS (782/52), (782/55), AND (782/58); ALONG WITH (782/38) AND (782/39) WHICH ARE WRITEUPS; AND (792/3), (792/4), AND (792/5) WHICH ARE TEST PROGRAMS. COMPONENT (792/6) IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES TO 1 MON AUG 05/96 18:37:45 Page 565 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM. THE STONY BROOK PASCAL COMPILER IS COPYRIGHTED, HOWEVER THERE ARE NO RESTRICTIONS UPON ITS USE. IF THE COMPILER IS REDISTRIBUTED THERE CAN BE NO FEE FOR ANY OF THE SOFTWARE OR DOCUMENTATION FURNISHED BY STONY BROOK. 0 Referenced by comments of: 782/1, 792/1, 792/6 00782/002 PASCAL/SB OS/OMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.OMONITOR.ASM 5.0T3 686 PASCAL/SB.OS/OMONITOR.SA.002 1 LINE 80 41 PAGE UM UNSP OCT. 20, 1979 19:26:26 5.0T8 65 0 THIS IS THE PASCAL/SB OVERLAY MONITOR, A MUTATION OF XPLSM WHICH SUPPORTS THE MULTIPASS ARCHITECTURE OF THE STONY BROOK PASCAL 360 COMPILER. 0 Referenced by comments of: 782/3, 782/4, 782/12, 782/15, 782/17, 782/19, 782/21 00782/003 PASCAL/SB OS/OMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASCAL2S.ASM 5.0T3 687 PASCAL/SB.OS/OMONITOR.SA.003 1 LINE 80 37 PAGE UM UNSP OCT. 20, 1979 19:28:22 5.0T8 66 0 A VERSION OF THE OVERLAY MONITOR (782/2) THAT USES COREFILES AND A "STEP LIB". 00782/004 PASCAL/SB OS/OMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PA$CAL.ASM 5.0T3 688 PASCAL/SB.OS/OMONITOR.SA.004 1 LINE 80 39 PAGE UM UNSP OCT. 20, 1979 19:26:39 5.0T8 67 0 THIS FILE CONTAINS A SMALL VERSION OF (782/2). IT IS LOADED IN CONJUNCTION WITH OBJECT MODULES PRODUCED BY THE PASCAL LINKER (782/20) AND PROVIDES THE RUNTIME ENVIRONMENT NEEDED BY THE DIAGNOSTICS PACKAGE, PMD. 0 Referenced by comments of: 782/7 00782/005 PASCAL/SB OS/CORE FILE SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.COREFILE.ASM 5.0T3 689 PASCAL/SB.OS/CORE_FILE.SA.005 1 LINE 72 5 PAGE UM UNSP OCT. 20, 1979 19:26:31 5.0T8 68 0 THIS FILE CONTAINS THE ASSEMBLER SOURCE ROUTINE THAT SIMULATES OS/360 QSAM FILES BY USING LINKED, IN-CORE STORAGE BLOCKS. 00782/006 PASCAL/SB OS/RMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONITOR.ASM 5.0T3 690 PASCAL/SB.OS/RMONITOR.SA.006 1 LINE 80 41 PAGE UM UNSP OCT. 20, 1979 19:26:33 5.0T8 69 0 THIS FILE CONTAINS THE SOURCE CODE FOR THE PASCAL RUN MONITOR, WHICH LOADS PASCAL PROGRAMS AND PROVIDES THE RUN-TIME ENVIRONMENT NEEDED FOR THEIR EXECUTION. 0 Referenced by comments of: 782/7, 782/8 1 MON AUG 05/96 18:37:45 Page 566 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00782/007 PASCAL/SB OS/RMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONR2.ASM 5.0T3 691 PASCAL/SB.OS/RMONITOR.SA.007 1 LINE 80 36 PAGE UM UNSP OCT. 20, 1979 19:28:29 5.0T8 70 0 THE RELEASE 2 VERSION OF THE RUN MONITOR (782/6). THIS IS USED BY THE (782/4) VERSION OF THE OVERLAY MONITOR. IT SHOULD BE POSSIBLE TO GET AN EQUIVALENT VERSION BY SETTING &INCORE TO 1 AND &ISEXT TO 0, BUT THIS HASN'T BEEN CHECKED. 00782/008 PASCAL/SB OS/RMONITOR U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONITOR.EDITXPL 5.0T3 692 PASCAL/SB.OS/RMONITOR.U.008 1 LINE 63 1 PAGE UM UNSP JAN. 22, 1980 14:49:27 5.0T8 71 0 AN EDIT XPL (782/32) UPDATE TO THE RUN MONITOR (782/6). 00782/009 PASCAL/SB OS/OBJECT OL O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASCAL.LMODS 5.0T3 693 PASCAL/SB.OS/OBJECT.OL.009 1 LINE 80 17 PAGE UM UNSP OCT. 20, 1979 19:26:43 5.0T8 72 0 THIS FILE CONTAINS LOAD MODULES TO PROVIDE THE EXECUTION ENVIRONMENTS FOR THE STONY BROOK PASCAL COMPILER AND FOR COMPILED PASCAL PROGRAMS. 00782/010 PASCAL/SB OS/PASS1 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.XPL 5.0T3 694 PASCAL/SB.OS/PASS1.SX.010 1 LINE 80 68 PAGE UM UNSP OCT. 20, 1979 19:26:46 5.0T8 73 0 THIS FILE CONTAINS THE SOURCE CODE FOR PASS 1 OF THE STONY BROOK PASCAL 360 COMPILER. PASS 1 IS RESPONSIBLE FOR LEXICAL AND SYNTACTIC ANALYSIS OF PASCAL PROGRAMS AND PRODUCES ABSTRACT SYTAX TREES AS OUTPUT. 0 Referenced by comments of: 782/11, 782/12, 782/22, 782/23, 782/40 00782/011 PASCAL/SB OS/PASS1 U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.EDITXPL 5.0T3 695 PASCAL/SB.OS/PASS1.U.011 1 LINE 80 1 PAGE UM UNSP OCT. 20, 1979 19:28:34 5.0T8 74 0 AN EDITXPL (782/32) UPDATE TO PASS 1 (782/10). 00782/012 PASCAL/SB OS/PASS1 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.OBJ 5.0T3 696 PASCAL/SB.OS/PASS1.O.012 1 LINE 7200 32 PAGE UM UNSP OCT. 20, 1979 19:26:52 5.0T8 75 0 THIS IS THE OBJECT OF (782/10) WHICH CAN BE USED BY (782/2) AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/013 PASCAL/SB OS/PASS2 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.XPL 5.0T3 697 PASCAL/SB.OS/PASS2.SX.013 1 LINE 80 97 PAGE UM UNSP OCT. 20, 1979 19:26:55 5.0T8 76 0 THIS FILE CONTAINS THE SOURCE CODE FOR PASS 2 OF THE STONY BROOK PASCAL 360 COMPILER. PASS 2 IS RESPONSIBLE FOR TYPE CHECKING, AND GENERATING SYMBOLIC TRIPLES SUITABLE FOR INTERPRTATION OR FURTHER PROCESSING BY A CODE GENERATOR. 0 Referenced by comments of: 782/14, 782/15, 782/24, 782/25, 782/41 1 MON AUG 05/96 18:37:45 Page 567 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00782/014 PASCAL/SB OS/PASS2 U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.EDITXPL 5.0T3 698 PASCAL/SB.OS/PASS2.U.014 1 LINE 80 4 PAGE UM UNSP OCT. 20, 1979 19:28:27 5.0T8 77 0 AN EDITXPL (782/32) UPDATE TO PASS 2 (782/13). 00782/015 PASCAL/SB OS/PASS2 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.OBJ 5.0T3 699 PASCAL/SB.OS/PASS2.O.015 1 LINE 7200 40 PAGE UM UNSP OCT. 20, 1979 19:27:07 5.0T8 78 0 THIS IS THE OBJECT OF (782/13), WHICH CAN BE USED BY (782/2) AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/016 PASCAL/SB OS/PASS3 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS3.XPL 5.0T3 700 PASCAL/SB.OS/PASS3.SX.016 1 LINE 80 55 PAGE UM UNSP OCT. 20, 1979 19:27:12 5.0T8 79 0 THIS FILE CONTAINS THE SOURCE CODE FOR PASS 3 OF THE STONY BROOK PASCAL 360 COMPILER. IT TAKES AS INPUT THE SYMBOLIC TRIPLES GENERATED BY PASS 2 AND GENERATES MACHINE CODE FOR IBM 360/370 COMPUTERS. 0 Referenced by comments of: 782/17, 782/42 00782/017 PASCAL/SB OS/PASS3 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS3.OBJ 5.0T3 701 PASCAL/SB.OS/PASS3.O.017 1 LINE 7200 32 PAGE UM UNSP OCT. 20, 1979 19:27:18 5.0T8 80 0 THIS IS THE OBJECT OF (782/16), WHICH CAN BE USED BY (782/2) AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/018 PASCAL/SB OS/PMD SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PMD.XPL 5.0T3 702 PASCAL/SB.OS/PMD.SX.018 1 LINE 80 15 PAGE UM UNSP OCT. 20, 1979 19:27:22 5.0T8 81 0 THIS FILE CONTAINS THE SOURCE CODE FOR THE POST-MORTEM ANALYSIS ROUTINES, PMD. 0 Referenced by comments of: 782/19, 782/43 00782/019 PASCAL/SB OS/PMD O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PMD.OBJ 5.0T3 703 PASCAL/SB.OS/PMD.O.019 1 LINE 7200 12 PAGE UM UNSP OCT. 20, 1979 19:27:25 5.0T8 82 0 THIS IS THE OBJECT OF (782/18), WHICH CAN BE USED BY (782/2) AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/020 PASCAL/SB OS/LINKER SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.LINKER.XPL 5.0T3 704 PASCAL/SB.OS/LINKER.SX.020 1 LINE 80 20 PAGE UM UNSP OCT. 20, 1979 19:27:28 5.0T8 83 0 THIS FILE CONTAINS THE SOURCE CODE FOR THE STONY BROOK PASCAL LINKER. 0 Referenced by comments of: 782/4, 782/21, 782/44 1 MON AUG 05/96 18:37:45 Page 568 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00782/021 PASCAL/SB OS/LINKER O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.LINKER.OBJ 5.0T3 705 PASCAL/SB.OS/LINKER.O.021 1 LINE 7200 21 PAGE UM UNSP OCT. 20, 1979 19:27:34 5.0T8 84 0 THIS IS THE OBJECT OF (782/20), WHICH CAN BE USED BY (782/2) AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/022 PASCAL/SB OS/PASS1S U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1S.EDITXPL 5.0T3 706 PASCAL/SB.OS/PASS1S.U.022 1 LINE 80 3 PAGE UM UNSP OCT. 20, 1979 19:27:37 5.0T8 85 0 THIS FILE CONTAINS AN UPDATE TO (782/10) TO PRODUCE PASS1S, THE "STUDENT" VERSION OF THE COMPILER, IMPLEMENTING ONLY STANDARD PASCAL. THE UPDATE SHOULD BE APPLIED USING OS/EDITXPL (782/32). 0 Referenced by comments of: 782/23 00782/023 PASCAL/SB OS/PASS1S O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1S.OBJ 5.0T3 707 PASCAL/SB.OS/PASS1S.O.023 1 LINE 7200 30 PAGE UM UNSP OCT. 20, 1979 19:27:39 5.0T8 86 0 THIS FILE CONTAINS THE XPL OBJECT OF PASS1 (782/10), AS UPDATED BY (782/22). 00782/024 PASCAL/SB OS/PASS2S U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2S.EDITXPL 5.0T3 708 PASCAL/SB.OS/PASS2S.U.024 1 LINE 80 3 PAGE UM UNSP OCT. 20, 1979 19:27:43 5.0T8 87 0 THIS FILE CONTAINS AN UPDATE TO (782/13) TO PRODUCE PASS2S, IMPLEMENTING ONLY STANDARD PASCAL. THIS UPDATE SHOULD BE APPLIED USING OS/EDITXPL (782/32). 0 Referenced by comments of: 782/25 00782/025 PASCAL/SB OS/PASS2S O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2S.OBJ 5.0T3 709 PASCAL/SB.OS/PASS2S.O.025 1 LINE 7200 35 PAGE UM UNSP OCT. 20, 1979 19:27:45 5.0T8 88 0 THIS FILE CONTAINS THE XPL OBJECT OF PASS2 (782/13), AS UPDATED BY (782/24). 00782/026 PASCAL/SB OS/BNCHMARK SW O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.BNCHMARK.PROGRAMS 5.0T3 710 PASCAL/SB.OS/BNCHMARK.SW.026 1 LINE 80 12 PAGE UM UNSP OCT. 20, 1979 19:27:49 5.0T8 89 0 A SET OF TEST PROGRAMS AND JCL TO TEST PASCAL/SB. 00782/027 PASCAL/SB OS/XPLSM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLSM.ASM 5.0T3 711 PASCAL/SB.OS/XPLSM.SA.027 1 LINE 80 38 PAGE UM UNSP OCT. 20, 1979 19:27:52 5.0T8 90 0 THIS FILE CONTAINS AN ASSEMBLY LANGUAGE VERSION OF THE XPL SUBMONITOR, XPLSM FOR USE WITH (782/29). 1 MON AUG 05/96 18:37:45 Page 569 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00782/028 PASCAL/SB OS/XCOM4 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XCOM4.XPL 5.0T3 712 PASCAL/SB.OS/XCOM4.SX.028 1 LINE 80 51 PAGE UM UNSP OCT. 20, 1979 19:28:01 5.0T8 91 0 THIS FILE CONTAINS THE SOURCE FOR XCOM4, SEE (782/29). 0 Referenced by comments of: 782/29 00782/029 PASCAL/SB OS/XCOM4 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XCOM4.OBJ 5.0T3 713 PASCAL/SB.OS/XCOM4.O.029 1 LINE 7200 30 PAGE UM UNSP OCT. 20, 1979 19:27:58 5.0T8 92 0 THIS IS THE OBJECT OF XPL (782/28) THAT HAS BEEN USED TO COMPILE THE STONY BROOK PASCAL COMPILER. 0 Referenced by comments of: 782/27, 782/28 00782/030 PASCAL/SB OS/XPLIB SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLIB.XPL 5.0T3 714 PASCAL/SB.OS/XPLIB.SX.030 1 LINE 80 1 PAGE UM UNSP OCT. 20, 1979 19:28:07 5.0T8 93 0 THIS FILE CONTAINS THE SOURCE FOR COMPACTIFY, THE XPL PROCEDURE WHICH IS AUTOMATICALLY CONCATENATED ON TO THE FRONT OF EVERY XPL PROGRAM. 00782/031 PASCAL/SB OS/XPLXREF SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLXREF.XPL 5.0T3 715 PASCAL/SB.OS/XPLXREF.SX.031 1 LINE 80 9 PAGE UM UNSP OCT. 20, 1979 19:28:09 5.0T8 94 0 THIS FILE CONTAINS THE XPL SOURCE FOR A CROSS-REFERENCE LISTINGS PROGRAM FOR XPL SOURCE. 00782/032 PASCAL/SB OS/EDITXPL SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.EDITXPL.XPL 5.0T3 716 PASCAL/SB.OS/EDITXPL.SX.032 1 LINE 80 3 PAGE UM UNSP OCT. 20, 1979 19:28:13 5.0T8 95 0 THIS FILE CONTAINS THE XPL SOURCE FOR A CARD-IMAGE EDITOR, TO BE USED TO EDIT UPDATE PATCHES INTO THE PASCAL COMPILER SOURCE FILES. 0 Referenced by comments of: 782/8, 782/11, 782/14, 782/22, 782/24, 782/59 00782/033 PASCAL/SB OS/EDITXPL OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.EDITXPL.OBJ 5.0T3 717 PASCAL/SB.OS/EDITXPL.OC.033 1 LINE 7200 5 PAGE UM UNSP OCT. 20, 1979 19:28:15 5.0T8 96 00782/034 PASCAL/SB OS/REFORMAT SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.REFORMAT.ASM 5.0T3 718 PASCAL/SB.OS/REFORMAT.SA.034 1 LINE 80 10 PAGE UM UNSP OCT. 20, 1979 19:28:17 5.0T8 97 0 THIS FILE CONTAINS THE SOURCE OF A UTILITY PROGRAM THAT CAN BE USED TO REFORMAT XPL OBJECT MODULES ONTO A DISK. 1 MON AUG 05/96 18:37:45 Page 570 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00782/035 PASCAL/SB OS/PREFIX SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PREFIX.XPL 5.0T3 719 PASCAL/SB.OS/PREFIX.SX.035 1 LINE 80 11 PAGE UM UNSP OCT. 20, 1979 19:28:20 5.0T8 98 0 THIS FILE CONTAINS A COMMON PREFIX EDITOR, A UTILITY PROGRAM DESIGNED TO BE USED IN CONJUNCTION WITH THE SEPARATE COMPILATION OF PASCAL PROGRAM MODULES. 0 Referenced by comments of: 782/1 00782/036A PASCAL/SB NOTES P O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.NOTES 5.0T3 720 PASCAL/SB.NOTES.P.036 1 LINE 67 3 PAGE UM UNSP AUG. 12, 1980 17:59:11 5.0T8 99 0 INTERNAL DOCUMENTATION, WITH REFERENCES, FOR PASCAL/SB. NOT YET VERY COMPLETE. 0 Referenced by comments of: 782/1 00782/037A PASCAL/SB INSTALL C O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.INSTALL 5.0T3 721 PASCAL/SB.INSTALL.C.037 1 LINE 235 3 PAGE UM UNSP SEP. 22, 1980 15:05:22 5.0T8 100 0 A SOURCE FILE WHICH WILL LINK THE VARIOUS FILES TO FORM SHARED VM AND PRIVATE VM VERSIONS OF THE COMPILER, LINKER, AND RUNTIME SUPPORT. THE OBJECT FILES ARE CREATED BY SOURCING TO THE SOURCE FILES DIRECTLY. 0 Referenced by comments of: 782/1 00782/038 PASCAL/SB USERS MANUAL WF O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.USERS_MANUAL 5.0T3 722 PASCAL/SB.USERS_MANUAL.WF.038 1 LINE 127 35 PAGE UM UNSP NOV. 22, 1979 05:15:49 5.0T8 101 0 USER-LEVEL DOCUMENTATION FOR PASCAL/SB. NOT YET MODIFIED FOR MTS. 0 Referenced by comments of: 782/1, 782/39 00782/039A PASCAL/SB USERS MANUAL P UNSP:PAS.SB.W(*F,999) 5.0T3 723 PASCAL/SB.USERS_MANUAL.P.039 1 LINE 85 8 PAGE UM UNSP JULY 03, 1981 19:48:52 5.0T8 102 0 MTS UPDATES TO THE PASCAL/SB USER'S MANUAL (782/38). 0 Referenced by comments of: 782/1 00782/040A PASCAL/SB PASS 1 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS1 5.0T3 724 PASCAL/SB.PASS_1.SX.040 1 LINE 105 67 PAGE UM UNSP AUG. 16, 1980 08:32:09 5.0T8 103 0 THIS IS COMPONENT (782/10), AS MODIFIED FOR MTS. 1 MON AUG 05/96 18:37:45 Page 571 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00782/041A PASCAL/SB PASS 2 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS2 5.0T3 725 PASCAL/SB.PASS_2.SX.041 1 LINE 113 98 PAGE UM UNSP MAR. 18, 1981 12:15:46 5.0T8 104 0 THIS IS COMPONENT (782/13), AS MODIFIED FOR MTS. 00782/042A PASCAL/SB PASS 3 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS3 5.0T3 726 PASCAL/SB.PASS_3.SX.042 1 LINE 88 56 PAGE UM UNSP MAR. 15, 1981 12:18:07 5.0T8 105 0 THIS IS COMPONENT (782/16), AS MODIFIED FOR MTS. 00782/043A PASCAL/SB PMD SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PMD 5.0T3 727 PASCAL/SB.PMD.SX.043 1 LINE 80 13 PAGE UM UNSP SEP. 22, 1980 15:02:45 5.0T8 106 0 THIS IS COMPONENT (782/18), AS MODIFIED FOR MTS. 00782/044A PASCAL/SB LINKER SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINKER 5.0T3 728 PASCAL/SB.LINKER.SX.044 1 LINE 91 22 PAGE UM UNSP MAR. 12, 1981 02:27:52 5.0T8 107 0 THIS IS COMPONENT (782/20), AS MODIFIED FOR MTS. 00782/045A PASCAL/SB XPL SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.XPL 5.0T3 729 PASCAL/SB.XPL.SX.045 1 LINE 68 6 PAGE UM UNSP AUG. 12, 1980 17:40:15 5.0T8 108 0 XPL SUBROUTINES USED BY PASCAL/SB INCLUDING MISCELLANEOUS SUBROUTINES USEFUL WHEN PROGRAMMING IN XPL. ********************************************************************************* D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: 1. NOW USES *EXPLIB (495/2), INSTEAD OF ITS OWN VERSION. 2. SEVERAL BUGS FIXED. FOR OTHER CHANGES, SEE UNSP:PASCAL.NEWS (792/6). ********************************************************************************* 00782/046A PASCAL/SB ASM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.ASM 5.0T3 730 PASCAL/SB.ASM.SA.046 1 LINE 102 10 PAGE UM UNSP AUG. 12, 1980 17:35:37 5.0T8 109 0 ASSEMBLY LANGUAGE SUBROUTINES USED BY PASCAL/SB. USES THE (782/48) PASCAL MACRO LIBRARY. 0 Referenced by comments of: 782/48, 782/61 00782/047A PASCAL/SB PASTIME SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASTIME 5.0T3 731 PASCAL/SB.PASTIME.SA.047 1 LINE 86 21 PAGE UM UNSP MAR. 07, 1981 17:13:42 5.0T8 110 0 THE RUNTIME SUPPORT FOR PASCAL/SB PROGRAMS. USES THE (782/48) PASCAL MACRO 1 MON AUG 05/96 18:37:45 Page 572 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LIBRARY. 00782/048A PASCAL/SB MACRO LIB SM O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.MACLIB 5.0T3 732 PASCAL/SB.MACRO_LIB.SM.048 1 LINE 62 1 PAGE UM UNSP AUG. 12, 1980 17:37:07 5.0T8 111 0 A MACRO LIBRARY FOR USE BY THE ASSEMBLER ROUTINES (782/46). 0 Referenced by comments of: 782/46, 782/47 00782/049A PASCAL/SB LIBRARY OL O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LIB 5.0T3 733 PASCAL/SB.LIBRARY.OL.049 1 LINE 32767 117 PAGE UM UNSP MAR. 18, 1981 12:25:03 5.0T8 112 0 AN OBJECT LIBRARY WITH MODULES FOR EVERYTHING EXCEPT THE 3 EXPL MAIN PROGRAMS (782/50), (782/53), AND (782/56), WHICH ALL HAVE TO HAVE THE SAME NAME. 00782/050A PASCAL/SB MAIN PROGRAM SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASCAL 5.0T3 734 PASCAL/SB.MAIN_PROGRAM.SX.050 1 LINE 91 3 PAGE UM UNSP AUG. 12, 1980 17:41:59 5.0T8 113 0 XPL MAIN PROGRAM FOR THE COMPILER. 0 Referenced by comments of: 782/49, 782/51 00782/051A PASCAL/SB MAIN PROGRAM OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_PASCAL 5.0T3 735 PASCAL/SB.MAIN_PROGRAM.OC.051 1 LINE 32767 21 PAGE UM UNSP AUG. 12, 1980 17:42:22 5.0T8 114 0 OBJECT OF (782/50). 00782/052A PASCAL/SB PASCAL OBJECT OE O UNSP:PAS.SB 5.0T3 736 PASCAL/SB.PASCAL_OBJECT.OE.052 1 LINE 32767 127 PAGE UM UNSP JULY 03, 1981 19:51:11 5.0T8 115 UNSP:PAS.SB 0 LINKEDITED PASCAL COMPILER, READY TO BE $RUN. LOGS USAGE STATISTICS IN UNSP:STATS, IF PRESENT, AND INTERRUPTS IN UNSP:PAS.SB.LOG (782/61). 0 Referenced by comments of: 782/1 00782/053A PASCAL/SB RUN SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.RUN 5.0T3 737 PASCAL/SB.RUN.SX.053 1 LINE 64 1 PAGE UM UNSP JUNE 16, 1980 13:22:55 5.0T8 116 0 XPL MAIN PROGRAM FOR RUNTIME SUPPORT, PMD. 0 Referenced by comments of: 782/49 00782/054A PASCAL/SB RUN OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_RUN 5.0T3 738 PASCAL/SB.RUN.OE.054 1 LINE 11060 5 PAGE UM UNSP JUNE 16, 1980 13:23:05 5.0T8 117 1 MON AUG 05/96 18:37:45 Page 573 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00782/055A PASCAL/SB RUN OE O UNSP:PAS.SB.RUN 5.0T3 739 PASCAL/SB.RUN.OE.055 1 LINE 22816 14 PAGE UM UNSP JULY 03, 1981 19:51:27 5.0T8 118 UNSP:PAS.SB.RUN 0 LINKEDITED VERSION OF RUNTIME SUPPORT, READY TO BE RUN WITH A PASCAL OBJECT MODULE. 0 Referenced by comments of: 781/9, 782/1, 784/3 00782/056 PASCAL/SB LINK SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINK 5.0T3 740 PASCAL/SB.LINK.SX.056 1 LINE 63 1 PAGE UM UNSP FEB. 10, 1980 17:27:59 5.0T8 119 0 XPL MAIN PROGRAM FOR THE LINKER. 0 Referenced by comments of: 782/49 00782/057 PASCAL/SB LINK OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LINK 5.0T3 741 PASCAL/SB.LINK.OE.057 1 LINE 440 1 PAGE UM UNSP FEB. 10, 1980 17:27:25 5.0T8 120 00782/058A PASCAL/SB LINK OE O UNSP:PAS.SB.LINK 5.0T3 742 PASCAL/SB.LINK.OE.058 1 LINE 32767 24 PAGE UM UNSP JULY 03, 1981 19:51:57 5.0T8 121 UNSP:PAS.SB.LINK 0 LINKEDITED VERSION OF THE LINKER. $RUN THIS TO COMBINE NON-STANDARD MODULES, FORMING STANDARD ONES. 0 Referenced by comments of: 782/1 00782/059 PASCAL/SB EDITXPL UC G S1210 PASDIS 'PASCAL DIST' FSNAME=SB.EDITXPL.CDU 5.0T3 743 PASCAL/SB.EDITXPL.UC.059 1 LINE 84 1 PAGE UM UNSP FEB. 25, 1980 09:57:47 5.0T8 122 0 A CDUPDATE TO THE STONY BROOK UPDATE PROGRAM EDITXPL (782/32), WHICH CONVERTS IT TO EXPL AND MTS. OBJECT IS IN (782/60). 00782/060 PASCAL/SB EDITXPL OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_EDITXPL 5.0T3 744 PASCAL/SB.EDITXPL.OC.060 1 LINE 2540 3 PAGE UM UNSP FEB. 25, 1980 09:55:17 5.0T8 123 0 HAS A $CONTINUE WITH *EXPLIB (495/2) RECORD. 0 Referenced by comments of: 782/59 00782/061 PASCAL/SB LOG D # UNSP:PAS.SB.LOG UM UNSP UNSP:PAS.SB.LOG 0 THIS IS THE LOG FILE FOR PASCAL/SB. IN THE DISTRIBUTED VERSION OF PASCAL/SB, THE LOG FILE, NAMED UNSP:PAS.SB.LOG, MUST BE CREATED. TO CHANGE THIS, USERRLOG IN (782/46) MUST BE ALTERED. 0 Referenced by comments of: 782/52 1 MON AUG 05/96 18:37:45 Page 574 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00782/062 PASCAL/SB TM1.1 WF S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM1.1 5.0T3 745 PASCAL/SB.TM1.1.WF.062 1 LINE 73 5 PAGE UM UNSP SEP. 13, 1979 01:59:59 5.0T8 124 0 THIS IS PASCAL TECHNICAL MEMO 1.1: "THE STONY BROOK PASCAL/360 COMPILER," A 7-PAGE OVERVIEW OF THE COMPILER. 00782/063 PASCAL/SB TM5.1 WF S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM5.1 5.0T3 746 PASCAL/SB.TM5.1.WF.063 1 LINE 136 12 PAGE UM UNSP SEP. 13, 1979 02:00:11 5.0T8 125 0 THIS IS PASCAL TECHNICAL MEMO 5.1: "DOCUMENTATION OF INTERNAL STRUCTURE," A 16-PAGE DESCRIPTION OF PASS 1. 00782/064 PASCAL/SB TM5.2 WF S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM5.2 5.0T3 747 PASCAL/SB.TM5.2.WF.064 1 LINE 84 31 PAGE UM UNSP SEP. 13, 1979 02:00:26 5.0T8 126 0 THIS IS PASCAL TECHNICAL MEMO 5.2: "PASS 2 - SEMANTIC ANALYSIS AND GENERATION OF SYMBOLIC TRIPLES," A 50-PAGE DESCRIPTION OF PASS 2 AND THE TRIPLES USED BY PASS 3. 0 Referenced by comments of: 782/1 00783/001 PASCAL/8000 OS/JCL O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.JCL... 5.0T3 748 PASCAL/8000.OS/JCL..001 1 LINE 80 10 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:12:25 5.0T8 127 0 THIS IS THE AUSTRIALIAN ATOMIC ENERGY COMMISSION PASCAL/8000 COMPILER, WHICH HAS BEEN MODIFIED TO RUN IN MTS. COMPONENTS (783/1) THROUGH (783/10) ARE THE COMPONENTS OF THE OS VERSION; (783/11) THROUGH (783/22) ARE COMPONENTS OF THE MTS VERSION. COMPONENT (792/6) IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES TO ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM. THIS COMPONENT CONTAINS OS JCL AND COMMENTS. 0 Referenced by comments of: 781/7, 783/1, 792/1, 792/6 00783/002 PASCAL/8000 OS/LINK SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.LINK 5.0T3 749 PASCAL/8000.OS/LINK.SW.002 1 LINE 111 85 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:17:04 5.0T8 128 0 OS OBJECT-MODULE-PRODUCING COMPILER. 0 Referenced by comments of: 783/8 00783/003 PASCAL/8000 OS/ASM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ASM 5.0T3 750 PASCAL/8000.OS/ASM.SA.003 1 LINE 80 172 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:15:18 5.0T8 129 0 OS RUNTIME SUPPORT. 1 MON AUG 05/96 18:37:45 Page 575 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00783/004 PASCAL/8000 OS/OBJECT OL O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.OBJECT 5.0T3 751 PASCAL/8000.OS/OBJECT.OL.004 1 LINE 80 52 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:13:01 5.0T8 130 0 OS LIBRARY WITH OBJECT FOR THE STANDARD COMPILER AND RUNTIME SUPPORT. 00783/005 PASCAL/8000 OS/CMPGO SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMPGO 5.0T3 752 PASCAL/8000.OS/CMPGO.SW.005 1 LINE 111 80 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:15:56 5.0T8 131 0 OS COMPILE-AND-GO COMPILER AND NONSTANDARD OBJECT MODULE. 0 Referenced by comments of: 783/8 00783/006 PASCAL/8000 OS/CMP1 OC O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP1 5.0T3 753 PASCAL/8000.OS/CMP1.OC.006 1 LINE 1024 24 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:13:30 5.0T8 132 0 FILE 1, NONSTANDARD OBJECT, FOR COMPILE AND GO COMPILER. 00783/007 PASCAL/8000 OS/CMP2 OC O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP2 5.0T3 754 PASCAL/8000.OS/CMP2.OC.007 1 LINE 80 1 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:14:09 5.0T8 133 0 FILE 2 FOR COMPILE AND GO COMPILER. 00783/008 PASCAL/8000 OS/ERRORS M S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ERRORS 5.0T3 755 PASCAL/8000.OS/ERRORS.M.008 1 LINE 75 3 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:14:30 5.0T8 134 0 ERROR MESSAGE FILE USED BY BOTH PASCAL/8000 OS COMPILERS (783/2) AND (783/5). 00783/009 PASCAL/8000 EDITOR SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.EDITOR 5.0T3 756 PASCAL/8000.EDITOR.SW.009 1 LINE 72 4 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:17:43 5.0T8 135 0 AN UPDATING PROGRAM. 00783/010 PASCAL/8000 OS/MANUAL P S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.MANUAL 5.0T3 757 PASCAL/8000.OS/MANUAL.P.010 1 LINE 74 44 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:18:01 5.0T8 136 0 A WRITEUP FOR THE OS VERSION OF PASCAL/8000. 0 Referenced by comments of: 783/1 00783/011 PASCAL/8000 COMMENTS P S1210 PASDIS 'PASCAL DIST' FSNAME=8000.COMMENTS 5.0T3 758 PASCAL/8000.COMMENTS.P.011 1 LINE 68 1 PAGE RPI ABDALI UNSP FEB. 10, 1980 17:48:32 5.0T8 137 0 THIS IS A VERY BRIEF DESCRIPTION OF THE AUSTRALIAN ATOMIC ENERGY COMMISSION PASCAL/8000 COMPILER, AND THE MTS VERSION THEREOF. SEE ALSO COMP (783/12). 0 Referenced by comments of: 783/1 1 MON AUG 05/96 18:37:45 Page 576 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00783/012A PASCAL/8000 INSTALL.INFO P S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.INSTALL.INFO 5.0T3 759 PASCAL/8000.INSTALL.INFO.P.012 1 LINE 74 5 PAGE RPI ABDALI UNSP JUNE 17, 1980 16:00:35 5.0T8 138 0 A DESCRIPTION AND INSTALLATION INSTRUCTIONS FOR THE MTS VERSION OF PASCAL/8000. 0 Referenced by comments of: 783/11 00783/013A PASCAL/8000 COMPILER SW O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.PAS 5.0T3 760 PASCAL/8000.COMPILER.SW.013 1 LINE 80 87 PAGE RPI ABDALI UNSP JUNE 17, 1980 16:01:50 5.0T8 139 0 MTS VERSION OF THE PASCAL/8000 COMPILER. 00783/014A PASCAL/8000 COMPILER UC O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.CDU 5.0T3 761 PASCAL/8000.COMPILER.UC.014 1 LINE 66 3 PAGE RPI ABDALI UNSP JUNE 17, 1980 16:17:30 5.0T8 140 0 AN UPDATE DECK FOR LOCAL CHANGES. ADDS A CALL TO SNOOP IN UNSP:LIBRARY (685/2) TO RECORD USAGE STATISTICS IN THE FILE UNSP:STATS, IF IT EXISTS. COMPILE WITH PAR=;C=1024 AND T=15 ON AN AMDAHL V/7. 0 Referenced by comments of: 783/20 00783/015A PASCAL/8000 COMPILER OE O UNSP:PAS.8000 5.0T3 762 PASCAL/8000.COMPILER.OE.015 1 LINE 32767 34 PAGE RPI ABDALI UNSP JULY 03, 1981 19:54:02 5.0T8 141 UNSP:PAS.8000 0 CONTAINS A $CONTINUE WITH UNSP:PAS.8000.RUN (783/19) RECORD. 00783/016 PASCAL/8000 RUNMACLIB SM O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNMACLIB 5.0T3 763 PASCAL/8000.RUNMACLIB.SM.016 1 LINE 73 3 PAGE RPI ABDALI UNSP MAR. 09, 1979 22:10:53 5.0T8 142 0 Referenced by comments of: 783/17 00783/017A PASCAL/8000 RUNTIME SA O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNTIME.ASM 5.0T3 764 PASCAL/8000.RUNTIME.SA.017 1 LINE 73 47 PAGE RPI ABDALI UNSP JUNE 17, 1980 16:14:37 5.0T8 143 0 THE RUNTIME SUPPORT. ASSEMBLE WITH PAR=BATCH. USES THE (783/16) MACRO LIBRARY. 00783/018A PASCAL/8000 RUNTIME UC G S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNTIME.CDU 5.0T3 765 PASCAL/8000.RUNTIME.UC.018 1 LINE 68 1 PAGE RPI ABDALI UNSP JUNE 17, 1980 16:17:50 5.0T8 144 0 ********************************************************************************* D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: THESE CHANGES ARE LARGELY TO SWITCH FILE NAMES. ********************************************************************************* 1 MON AUG 05/96 18:37:45 Page 577 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00783/019A PASCAL/8000 RUNTIME OE O UNSP:PAS.8000.RUN 5.0T3 766 PASCAL/8000.RUNTIME.OE.019 1 LINE 14284 6 PAGE RPI ABDALI UNSP JULY 03, 1981 19:55:20 5.0T8 145 UNSP:PAS.8000.RUN 0 Referenced by comments of: 783/15 00783/020A PASCAL/8000 ERROR MSGS M O UNSP:PAS.8000.ERR 5.0T3 767 PASCAL/8000.ERROR_MSGS.M.020 1 LINE 75 3 PAGE RPI ABDALI UNSP JULY 03, 1981 19:55:22 5.0T8 146 UNSP:PAS.8000.ERR 0 ERROR MESSAGES USED BY THE (783/14) COMPILER. 00783/021A PASCAL/8000 MANUAL P O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.PASCALMANUAL 5.0T3 768 PASCAL/8000.MANUAL.P.021 1 LINE 78 51 PAGE RPI ABDALI UNSP JUNE 17, 1980 16:16:23 5.0T8 147 0 USER LEVEL DESCRIPTION OF THE PASCAL/8000 SYSTEM AND HOW TO USE IT. 00783/022 PASCAL/8000 TEST SW G S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.TEST 5.0T3 769 PASCAL/8000.TEST.SW.022 1 LINE 89 9 PAGE RPI ABDALI UNSP SEP. 08, 1979 20:06:13 5.0T8 148 0 SOURCE FILE CONTAINING PASCAL PROGRAMS AND MTS COMMANDS TO TEST THE COMPILER. 0 Referenced by comments of: 783/1 00784/001 CRLFASCEBC SW G S1153 UNSP VLO FSNAME=CRLFASCEBC.PAS 5.0T3 770 CRLFASCEBC..SW.001 1 LINE 64 1 PAGE UM UNSP FEB. 14, 1980 16:04:59 5.0T8 149 0 THIS PROGRAM CONVERTS STREAM-ORIENTED ASCII FILES WITH EMBEDDED CARRIAGE CONTROL TO RECORD-ORIENTED EBCDIC FILES WITH CARRIAGE CONTROL CHARACTERS IN COLUMN 1. THE ASCII CHARACTERS , , AND ARE DELETED AND APPROPRIATE CARRIAGE CONTROL CHARACTERS ARE ADDED. COMPONENT (784/4) CONTAINS A WRITEUP. 0 Referenced by comments of: 784/2, 784/3 00784/002 CRLFASCEBC SUBROUTINE SA G S1153 UNSP VLO FSNAME=CRLFASCEBC.ASM 5.0T3 771 CRLFASCEBC.SUBROUTINE.SA.002 1 LINE 62 1 PAGE UM UNSP FEB. 14, 1980 16:05:51 5.0T8 150 0 SUBROUTINE CALLED FROM (784/1) TO DO THE ACTUAL TRANSLATION. 0 Referenced by comments of: 784/3 00784/003 CRLFASCEBC OC G UNSP:CRLFASCEBC 5.0T3 772 CRLFASCEBC..OC.003 1 LINE 1358 2 PAGE UM UNSP JULY 03, 1981 19:55:52 5.0T8 151 UNSP:CRLFASCEBC 0 OBJECT OF (784/1) AND (784/2). CONTAINS A $CONTINUE WITH UNSP:LIBRARY (685/2) AND A $CONTINUE WITH UNSP:PAS.SB.RUN (782/55) RECORD. 1 MON AUG 05/96 18:37:45 Page 578 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00784/004 CRLFASCEBC WRITEUP P UNSP:CRLFASCEBC.W 5.0T3 773 CRLFASCEBC.WRITEUP.P.004 1 LINE 71 1 PAGE UM UNSP JULY 03, 1981 19:55:53 5.0T8 152 0 Referenced by comments of: 784/1 00785/001 SOUNDEX SF G S1153 UNSP VLO FSNAME=SOUNDEX.FTN 5.0T3 774 SOUNDEX..SF.001 1 LINE 68 1 PAGE UM UNSP FEB. 14, 1980 16:03:28 5.0T8 153 0 THE SOUNDEX SYSTEM IS BASED ON AN ALGORITHM WHICH ENCODES NAMES INTO A FOUR-CHARACTER CODE SO THAT SIMILAR SOUNDING NAMES ARE ENCODED INTO SIMILAR CODES. IT IS USEFUL WHEN EXACT SPELLING OF NAMES IS NOT KNOWN, FOR EXAMPLE, IN AIRLINE RESERVATION SYSTEMS. THIS SUBCOMPONENT CONTAINS A PROGRAM TO READ A LIST OF NAMES AND ENCODE THEM. 0 Referenced by comments of: 785/2 00785/002 SOUNDEX OE G UNSP:SOUNDEX 5.0T3 775 SOUNDEX..OE.002 1 LINE 730 1 PAGE UM UNSP JULY 03, 1981 19:55:54 5.0T8 154 UNSP:SOUNDEX 0 OBJECT OF (785/1). CONTAINS A $CONTINUE WITH UNSP:LIBRARY (685/2) RECORD. 00785/003 SOUNDEX SUBROUTINE SA G S1153 UNSP VLO FSNAME=SOUNDEX.ASM 5.0T3 776 SOUNDEX.SUBROUTINE.SA.003 1 LINE 72 2 PAGE UM UNSP FEB. 14, 1980 16:02:39 5.0T8 155 0 SUBROUTINE TO ENCODE NAMES USING THE SOUNDEX ALGORITHM. OBJECT IS IN UNSP:LIBRARY (685/2). 00785/004 SOUNDEX WRITEUP P UNSP:SOUNDEX.W 5.0T3 777 SOUNDEX.WRITEUP.P.004 1 LINE 70 1 PAGE UM UNSP JULY 03, 1981 19:55:56 5.0T8 156 00786/001 CONSTANTS D UNSP:CONSTANTS 5.0T3 778 CONSTANTS..D.001 1 LINE 126 2 PAGE UM UNSP JULY 03, 1981 19:55:57 5.0T8 157 0 A LIST OF COMMONLY SEEN CONSTANTS, EACH CONVERTED IN VARIOUS WAYS. 00787/001A UNIT CHECK ROUTINES MACROS SM G COPY:UC.MACROS 5.0T3 779 UNIT_CHECK_ROUTINES.MACRO.SM.001 1 LINE 72 4 PAGE UM HELFFRICH JULY 03, 1981 19:55:58 5.0T8 158 COPY:UC.MACROS 0 ******************************************************************************* D5.0 VERSION: COMPONENT (787) IS A "NEW" COMPONENT, WHICH IS A COMBINATION OF COMPONENTS WHICH WERE ALREADY A PART OF THE DRIVER FILE: UC3330, FORMERLY (603), DISKUC, FORMERLY A PART OF THE FILE SYSTEM COMPONENT (482), AND TAPEUC, FORMERLY (012). 1 MON AUG 05/96 18:37:45 Page 579 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ******************************************************************************* THIS SUBCOMPONENT IS THE UNIT CHECK ROUTINES MACRO LIBRARY. 0 Referenced by comments of: 23/1, 79/1, 135/1, 621/4, 655/4, 682/22, 724/1, 769/3, 769/5, 787/1, 787/3, 787/5, 787/15, 787/17, 1058/2, 1058/3, 1058/4, 1058/5, 1079/10 00787/002A UNIT CHECK ROUTINES DESIGN PAPER WT W170:PROTO.PAPER 5.0T3 780 UNIT_CHECK_ROUTINES.DESIG.WT.002 1 LINE 65 1 PAGE UM HELFFRICH JULY 03, 1981 19:55:58 5.0T8 159 0 ARCHITECTURAL DESCRIPTION OF UNIT CHECK ROUTINE INTERFACE AND CHARACTERISTICS. 00787/003A UNIT CHECK ROUTINES UCDISK SA G FILE:UCDISK(1000) 5.0T3 781 UNIT_CHECK_ROUTINES.3330.SA.003 1 LINE 72 20 PAGE UM HELFFRICH AUG. 06, 1981 05:35:36 5.0T8 160 FILE:UCDISK 0 SUBTASKING MONITOR (1058) COMPATIBLE UNIT CHECK ROUTINES FOR 3330, 3350, 2301, AND 2305 DEVICES. ASSEMBLE USING COPY:UC.MACROS (787/1). COPIES COPY:CMDAREADSECT (531/19) AND *CNFGINFODSECT (654). ******************************************************************************* D5.0 CHANGES: Changes include support for Intel 3805, operating in native mode, and IBM 3370 disks. ******************************************************************************* 0 Referenced by comments of: 655/4, 787/5 00787/004A UNIT CHECK ROUTINES UCDISK OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00787/005A UNIT CHECK ROUTINES UC3330 SA G FILE:UC3330(1000) 5.0T3 782 UNIT_CHECK_ROUTINES.FRONT.SA.005 1 LINE 72 4 PAGE UM HELFFRICH JULY 03, 1981 19:56:05 5.0T8 161 FILE:UC3330 0 FRONT-END TO THE UCDISK ROUTINES (787/3) TO MAKE THEM COMPATIBLE WITH THE OLD STYLE ROUTINES IN DISKUC (787/7). COPIES COPY:UC.MACROS (787/1). 0 Referenced by comments of: 603/1 00787/006A UNIT CHECK ROUTINES UC3330 OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00787/007 UNIT CHECK ROUTINES DISKUC SA G FILE:DASDUC(1000) 5.0T3 783 UNIT_CHECK_ROUTINES.DASDU.SA.007 1 LINE 72 9 PAGE UM HELFFRICH JULY 03, 1981 19:56:07 5.0T8 162 0 "OLD-STYLE" 2311/2314/2321/2301 UNIT CHECK ROUTINES. 1 MON AUG 05/96 18:37:45 Page 580 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 787/5 00787/008 UNIT CHECK ROUTINES DISKUC OC G FILE:DASDUC(1,999) 5.0T3 784 UNIT_CHECK_ROUTINES.DASDU.OC.008 1 LINE 80 3 PAGE UM HELFFRICH JULY 03, 1981 19:56:08 5.0T8 163 FILE:DASDUC 00787/009 UNIT CHECK ROUTINES 3330 TESTER SA O FILE:UCDISK.TEST(1000) 5.0T3 785 UNIT_CHECK_ROUTINES.3330.SA.009 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 19:56:09 5.0T8 164 0 TEST PROGRAM TO DEBUG NEW VERSIONS OF 3330 COMPATIBLE UNIT CHECK ROUTINES. ASSEMBLE USING COPY:CC.MACROS (1054/3). COPIES COPY:CMDAREADSECT (531/19). 00787/010 UNIT CHECK ROUTINES 3330 TESTER OC O FILE:UCDISK.TEST(1,998) 5.0T3 786 UNIT_CHECK_ROUTINES.3330.OC.010 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 19:56:10 5.0T8 165 00787/011 UNIT CHECK ROUTINES UC3330 TESTER SA O FILE:UC3330.TEST(1000) 5.0T3 787 UNIT_CHECK_ROUTINES.UC333.SA.011 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 19:56:11 5.0T8 166 0 TEST PROGRAM TO DEBUG NEW VERSIONS OF UC3330. ASSEMBLE USING COPY:CC.MACROS (1054/3) AND COPY:MISC.MACROS (728). COPIES COPY:CMDAREADSECT (531/19). 00787/012 UNIT CHECK ROUTINES UC3330 TESTER OC O FILE:UC3330.TEST(1,998) 5.0T3 788 UNIT_CHECK_ROUTINES.UC333.OC.012 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 19:56:12 5.0T8 167 00787/013C UNIT CHECK ROUTINES SYNCH TV RTNS SA G W170:UCSYNC(1000) 5.0T3 789 UNIT_CHECK_ROUTINES.SYNCH.SA.013 1 LINE 70 3 PAGE UM HELFFRICH JULY 03, 1981 19:56:13 5.0T8 168 W170:UCSYNC 0 Synchronous, i.e., non-Subtasking Monitor (1058), unit check transfer vector routines. Requires COPY:MISC.MACROS (728). 00787/014C UNIT CHECK ROUTINES SYNCH TV RTNS OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00787/015C UNIT CHECK ROUTINES TAPE UNIT CHCK SA G TAPE:UCTAPE(1000) 5.0T3 790 UNIT_CHECK_ROUTINES.TAPE.SA.015 1 LINE 72 22 PAGE UM HELFFRICH AUG. 06, 1981 05:35:55 5.0T8 169 TAPE:UCTAPE 0 2400 and 3400 series tape unit check routines. Assemble with COPY:UC.MACROS (787/1), COPY:CC.MACROS (1054/3), and COPY:MISC.MACROS (728). Copies COPY:GLOBALS (1026/3), COPY:CMDAREADSECT (531/19) and *CNFGINFODSECT (654/1). 0 Referenced by comments of: 12/1, 23/1, 79/1, 135/1, 388/1, 655/4, 787/17 00787/016C UNIT CHECK ROUTINES TAPE UNIT CHCK OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 D5.0 versions of HASPLING (388), TPMOVE (023), STAT JOB (079) and 1 MON AUG 05/96 18:37:45 Page 581 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TAPERTN (135) require these unit check routines. Object part of Resident System (468) 00787/017C UNIT CHECK ROUTINES UCTAPE TESTER SA G TAPE:UCTAPE.TEST(1000) 5.0T3 791 UNIT_CHECK_ROUTINES.UCTAP.SA.017 1 LINE 72 3 PAGE UM HELFFRICH JULY 03, 1981 19:56:45 5.0T8 170 0 Test program to debug new versions of (787/15). Assemble with COPY:CC.MACROS (1054/3) and COPY:UC.MACROS (787/1). Copies COPY:CMDAREADSECT (531/19). 00787/018C UNIT CHECK ROUTINES UCTAPE TESTER OC G TAPE:UCTAPE.TEST(1,999) 5.0T3 792 UNIT_CHECK_ROUTINES.UCTAP.OC.018 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 19:56:46 5.0T8 171 00788/001 DUMMY CLS SOURCE SA G S1431 4.3T2 VLO FSNAME=DUMMY_CLS.SOURCE.SA.001(1) 272 5.0T3 793 DUMMY_CLS.SOURCE.SA.001 1 LINE 55 1 PAGE UM OGDEN APR. 06, 1980 13:58:32 5.0T8 172 0 THIS IS A SIMPLE CLS TO PRINT THE FOLLOWING MESSAGE FOR UNIMPLEMENTED COMMANDS: "THIS COMMAND IS NOT YET IMPLEMENTED" 00788/002 DUMMY CLS *CLSNEW OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSNEW 0 FOR TESTING NEW CLS'S. 00788/003 DUMMY CLS *CLSNEW2 OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSNEW2 0 FOR TESTING NEW CLS'S. 00788/004 DUMMY CLS *CLSNEW3 OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSNEW3 0 FOR TESTING NEW CLS'S. 00788/005 DUMMY CLS *CLSLOG OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSLOG 0 THIS WILL BE THE $LOG COMMAND FOR FDNAME LOGGING. 00789/001A SHUTDOWN MESSAGE *SDM C *SDM 5.0T3 794 SHUTDOWN_MESSAGE.*SDM.C.001 1 LINE 63 1 PAGE UM OGDEN JULY 03, 1981 19:57:12 5.0T8 173 *SDM 0 OPERATOR FILE TO PUT IN SHUTDOWN MESSAGE FOR UM DATA CONCENTRATORS AND MERIT COMPUTER NETWORK. 1 MON AUG 05/96 18:37:45 Page 582 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00789/002A SHUTDOWN MESSAGE SYS:SDM SG G S1482 4.3AT1 VLO FSNAME=SHUTDOWN_MESSAGE.SYS:SDM.SG.002(1) 505 5.0T3 795 SHUTDOWN_MESSAGE.SYS:SDM.SG.002 1 LINE 77 1 PAGE UM OGDEN SEP. 25, 1980 09:39:50 5.0T8 174 0 PROGRAM TO READ A SHUTDOWN MESSAGE FROM THE OPERATORS' CONSOLE AND PLACE IT IN THE PDP-11 DATA CONCENTRATORS. 00789/003A SHUTDOWN MESSAGE SYS:SDM OC G SYS:SDM 5.0T3 796 SHUTDOWN_MESSAGE.SYS:SDM.OC.003 1 LINE 1522 2 PAGE UM OGDEN JULY 03, 1981 19:57:21 5.0T8 175 SYS:SDM 00789/004A SHUTDOWN MESSAGE SYS:MSDM SG G S0683 OGDEN FSNAME=MSDM.S 5.0T3 797 SHUTDOWN_MESSAGE.SYS:MSDM.SG.004 1 LINE 77 1 PAGE UM OGDEN OCT. 13, 1980 08:27:47 5.0T8 176 0 PROGRAM TO READ A SHUTDOWN MESSAGE FROM THE OPERATORS' CONSOLE AND TO PLACE IT IN THE MERIT COMPUTER NETWORK PDP-11. 00789/005A SHUTDOWN MESSAGE SYS:MSDM OC G SYS:MSDM 5.0T3 798 SHUTDOWN_MESSAGE.SYS:MSDM.OC.005 1 LINE 1082 1 PAGE UM OGDEN JULY 03, 1981 19:57:47 5.0T8 177 00790/001A VAMX CONVERSION DESCRIPTION WF FILE:CONVERTING 5.0T3 799 VAMX_CONVERSION.DESCRIPTI.WF.001 1 LINE 76 3 PAGE UM HELFFRICH JULY 03, 1981 19:57:48 5.0T8 178 FILE:CONVERTING 0 WRITEUP DESCRIBING PROCEDURE TO BE FOLLOWED TO CONVERT VAM2 OR OLD-STYLE VAMX PACKS TO THE NEW VAMX FORMAT. THIS SHOULD BE LOOKED AT BEFORE ATTEMPTING TO USE THE CONVERSION PROGRAMS. 0 Referenced by comments of: 790/2, 790/4, 790/5, 790/7 00790/002A VAMX CONVERSION PAT/DSCB CONV SA O FILE:CONVV2VX.AS 5.0T3 800 VAMX_CONVERSION.PAT/DSCB.SA.002 1 LINE 79 6 PAGE UM HELFFRICH JULY 03, 1981 19:57:48 5.0T8 179 FILE:CONVV2VX.AS 0 THIS IS THE SOURCE, ADAPTED FROM (790/4), TO CONVERT OLD-STYLE VAMX OR VAM2 TO NEW STYLE VAMX FORMAT. ASSEMBLE USING COPY:FILE.MACROS (482/45) AND COPY:MISC.MACROS (728). WARNING: THIS PROGRAM HAS NEVER BEEN USED TO COMPLETELY CONVERT AN OLD-STYLE VAMX PACK OR A VAM2 PACK TO A NEW-STYLE PACK. SEE (790/1). 0 Referenced by comments of: 790/4 00790/003A VAMX CONVERSION PAT/DSCB CONV OC O FILE:CONVV2VX 5.0T3 801 VAMX_CONVERSION.PAT/DSCB.OC.003 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 19:57:49 5.0T8 180 FILE:CONVV2VX 00790/004 VAMX CONVERSION PAT/DSCB CONV SA G S1431 4.3T2 VLO FSNAME=VAMX_CONVERSION.PAT/DSCB.SA.004(1) 281 5.0T3 802 VAMX_CONVERSION.PAT/DSCB.SA.004 1 LINE 79 5 PAGE UM HELFFRICH APR. 06, 1980 13:58:57 5.0T8 181 0 SOURCE FOR THE VERSION OF THE PROGRAM USED BY UM TO CONVERT FROM V2 TO VX 1 MON AUG 05/96 18:37:45 Page 583 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 FORMAT. (790/2) WAS ADAPTED FROM THIS PROGRAM. SEE (790/1) FOR DETAILS. ASSEMBLE USING COPY:FILE.MACROS (482/45) AND COPY:MISC.MACROS (728). 0 Referenced by comments of: 790/2 00790/005 VAMX CONVERSION CATALOG CONV SA O FILE:CONV.CAT(1000) 5.0T3 803 VAMX_CONVERSION.CATALOG_C.SA.005 1 LINE 72 10 PAGE UM HELFFRICH JULY 03, 1981 19:57:51 5.0T8 182 FILE:CONV.CAT 0 THIS IS THE SOURCE, ADAPTED FROM (790/7) TO CONVERT OLD-STYLE VAMX OR VAM2 TO NEW STYLE VAMX FORMAT. SEE (790/1) FOR FURTHER DETAILS. ASSEMBLE USING COPY:FILE.MACROS (482/45). WARNING: THIS PROGRAM HAS NEVER BEEN USED TO COMPLETELY CONVERT AN OLD-STYLE VAMX PACK OR A VAM2 PACK TO A NEW-STYLE PACK. SEE (790/1). 0 Referenced by comments of: 790/7 00790/006 VAMX CONVERSION CATALOG CONV OC O FILE:CONV.CAT(1,999) 5.0T3 804 VAMX_CONVERSION.CATALOG_C.OC.006 1 LINE 80 4 PAGE UM HELFFRICH JULY 03, 1981 19:57:53 5.0T8 183 00790/007 VAMX CONVERSION CATALOG CONV SA G S1431 4.3T2 VLO FSNAME=VAMX_CONVERSION.CATALOG_C.SA.007(1) 284 5.0T3 805 VAMX_CONVERSION.CATALOG_C.SA.007 1 LINE 72 10 PAGE UM HELFFRICH APR. 06, 1980 13:59:05 5.0T8 184 0 SOURCE FOR THE VERSION OF THE PROGRAM USED BY UM TO CONVERT FROM V2 TO VX FORMAT. (790/5) WAS ADAPTED FROM THIS PROGRAM. SEE (790/1) FOR DETAILS. ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 790/5 00791/001A DEFAULT SA G ALWB:DEFAULT.SA 5.0T3 806 DEFAULT..SA.001 1 LINE 96 3 PAGE UM BODWIN JULY 03, 1981 19:57:54 5.0T8 185 0 ROUTINES PAGSLFT AND TIMELFT WHICH RETURN THE MTS PAGE AND TIME LIMITS, THE MINIMUM OF LOCAL AND GLOBAL, OR 0 IF NO LIMIT IS IN EFFECT. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 528/2 00791/002A DEFAULT OC G ALWB:DEFAULT.OA 5.0T3 807 DEFAULT..OC.002 1 LINE 80 1 PAGE UM BODWIN JULY 03, 1981 19:57:55 5.0T8 186 00792/001A PASCAL FILES ERRORS SW G S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.ERRORS 5.0T3 808 PASCAL_FILES.ERRORS.SW.001 1 LINE 81 17 PAGE UM UNSP APR. 24, 1980 03:15:05 5.0T8 187 0 THIS COMPONENT CONTAINS FILES FOR USE WITH THE VARIOUS PASCAL COMPILERS DISTRIBUTED BY MICHIGAN. SEE ALSO THE PASCAL VALIDATION SUITE (781) AND THE PASCAL COMPILERS: PASCAL/SB (782), PASCAL/UBC (1052), PASCAL/8000 (783), AND PASCAL/SLAC (793). 1 MON AUG 05/96 18:37:45 Page 584 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS SUBCOMPONENT CONTAINS SEVERAL PROGRAMS TO TEST A PASCAL COMPILER'S ERROR RECOVERY. SEE "PASCAL SYNTAX ERRORS DATA BASE" BY G. DAVID RIPLEY, APRIL 19, 1979, AVAILABLE FROM: PAUL PICKELMANN COMPUTING CENTER UNIVERSITY OF MICHIGAN 1075 BEAL AVE. ANN ARBOR, MI 48109 00792/002A PASCAL FILES ERRORS SW O W226:*HARDERRORS 5.0T3 809 PASCAL_FILES.ERRORS.SW.002 1 LINE 64 1 PAGE UM UNSP JULY 03, 1981 19:58:34 5.0T8 188 0 MORE PROGRAMS TO TEST A PASCAL COMPILER'S ERROR RECOVERY. 00792/003 PASCAL FILES TEST SW O S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.PROGRAMS 5.0T3 810 PASCAL_FILES.TEST.SW.003 1 LINE 90 48 PAGE UM UNSP NOV. 22, 1979 05:40:15 5.0T8 189 0 SEVERAL PASCAL PROGRAMS TO TEST PASCAL/SB. 0 Referenced by comments of: 782/1, 792/4, 792/5 00792/004 PASCAL FILES TEST D O S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.DATA 5.0T3 811 PASCAL_FILES.TEST.D.004 1 LINE 68 1 PAGE UM UNSP SEP. 13, 1979 01:58:42 5.0T8 190 0 DATA FOR USE WITH (792/3). 0 Referenced by comments of: 782/1, 792/5 00792/005 PASCAL FILES TEST C O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TEST 5.0T3 812 PASCAL_FILES.TEST.C.005 1 LINE 48 3 PAGE UM UNSP FEB. 10, 1980 17:29:45 5.0T8 191 0 SOURCE FILE TO TEST THE COMPILER. $CONTINUES WITH (792/3) AND (792/4). 0 Referenced by comments of: 782/1 00792/006A PASCAL FILES PASCAL NEWS P UNSP:PASCAL.NEWS 5.0T3 813 PASCAL_FILES.PASCAL_NEWS.P.006 1 LINE 68 15 PAGE UM UNSP JULY 03, 1981 19:59:24 5.0T8 192 0 THIS FILE CONTAINS INFORMATION ABOUT THE CHANGES TO ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM. CURRENTLY, THOSE COMPILERS INCLUDE PASCAL/UBC (1052), PASCAL/SB (782), PASCAL/8000 (783), AND PASCAL/SLAC (793). IT CONTAINS NO INFORMATION ABOUT THE GRENOBLE PASCAL (664). 0 Referenced by comments of: 782/1, 782/45, 783/1, 1052/1 1 MON AUG 05/96 18:37:45 Page 585 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00793/001A PASCAL/SLAC WRITEUP P S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.W 5.0T3 814 PASCAL/SLAC.WRITEUP.P.001 1 LINE 79 35 PAGE UM UNSP FEB. 10, 1980 18:09:49 5.0T8 193 0 This is the Stanford Pascal compiler. Pascal/UBC (1052) was based on an earlier version of this, but they are totally different. The compiler is basically the P4 compiler. An assembler is provided which transforms Pcode into 360/370 assembler or object modules. The Pascal/SLAC system runs under *FAKEOS (545), but is not currently installed at UM. It came to UM by way of Curt Hill at the University of Nebraska. This compiler is copyrighted, but nonprofit use, modification and redistribution are spcifically allowed so long as the copyright notice is included and no fees are charged. S. Hazeghi of the Computation Research Group at the Stanford Linear Accelerator Center, Stanford, CA 94305 would like to be kept informed of any modifications to the compiler. This subcomponent is a writeup describing the installation and use of the Stanford Pascal compiler and associated programs. 0 Referenced by comments of: 792/1, 792/6 00793/002A PASCAL/SLAC COMPILER SW O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.COMPILER 5.0T3 815 PASCAL/SLAC.COMPILER.SW.002 1 LINE 80 71 PAGE UM UNSP FEB. 10, 1980 18:01:17 5.0T8 194 0 THIS IS THE SOURCE FOR THE STANFORD PASCAL COMPILER. IT PRODUCES PCODE WHICH IS ASSEMBLED WITH THE PCODE ASSEMBLER (793/5). 00793/003A PASCAL/SLAC COMPILER OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_COMPILER 5.0T3 816 PASCAL/SLAC.COMPILER.OE.003 1 LINE 32767 21 PAGE UM UNSP FEB. 10, 1980 18:01:37 5.0T8 195 00793/004A PASCAL/SLAC MESSAGES M O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.MESSAGES 5.0T3 817 PASCAL/SLAC.MESSAGES.M.004 1 LINE 67 3 PAGE UM UNSP FEB. 10, 1980 18:30:34 5.0T8 196 0 THE TEXT OF THE SYSTEM ERROR MESSAGES USED BY THE COMPILER AND POSSIBLY BY OTHER PARTS OF THE SYSTEM. 00793/005A PASCAL/SLAC PCODE ASSMBLER SW O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.ASMPCODE 5.0T3 818 PASCAL/SLAC.PCODE_ASSMBLE.SW.005 1 LINE 80 49 PAGE UM UNSP FEB. 10, 1980 18:06:54 5.0T8 197 0 THE PCODE ASSEMBLER. HAS AN OPTION TO PRODUCE OBJECT MODULES OR 360/370 ASSEMBLER. 0 Referenced by comments of: 793/2, 793/7, 793/9, 793/10 1 MON AUG 05/96 18:37:45 Page 586 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00793/006A PASCAL/SLAC PCODE ASSMBLER OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_ASMPCODE 5.0T3 819 PASCAL/SLAC.PCODE_ASSMBLE.OE.006 1 LINE 32767 16 PAGE UM UNSP FEB. 10, 1980 18:07:24 5.0T8 198 00793/007A PASCAL/SLAC MACLIB SM O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.MACLIB 5.0T3 820 PASCAL/SLAC.MACLIB.SM.007 1 LINE 65 1 PAGE UM UNSP FEB. 10, 1980 18:21:10 5.0T8 199 0 MACROS NEEDED TO ASSEMBLE THE CODE PRODUCED BY THE PCODE ASSEMBLER (793/5). 00793/008A PASCAL/SLAC MONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.MONITOR 5.0T3 821 PASCAL/SLAC.MONITOR.SA.008 1 LINE 73 36 PAGE UM UNSP FEB. 10, 1980 18:04:06 5.0T8 200 0 THE RUNTIME SUPPORT. HAS A CONDITIONAL ASSEMBLY OPTION, &SYSTEM, WHICH PRODUCES A SMALLER VERSION USED WITH "SYSTEM" PROGRAMS (COMPILER, PROFILER, ETC.) BY ELIMINATING ERROR CHECKING, ETC. HAS A WEAK REFERENCE TO SNAPSHOT DUMP (793/11). 00793/009A PASCAL/SLAC MONITOR OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_MONITOR 5.0T3 822 PASCAL/SLAC.MONITOR.OE.009 1 LINE 80 5 PAGE UM UNSP FEB. 10, 1980 18:04:34 5.0T8 201 0 OBJECT OF THE MONITOR (793/5), &SYSTEM=0. 00793/010A PASCAL/SLAC MONITOR OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_MONITOR0 5.0T3 823 PASCAL/SLAC.MONITOR.OE.010 1 LINE 80 5 PAGE UM UNSP FEB. 10, 1980 18:04:58 5.0T8 202 0 SYSTEM OBJECT OF THE MONITOR (793/5), &SYSTEM=1. 00793/011A PASCAL/SLAC SNAPSHOT SW O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.SNAPSHOT 5.0T3 824 PASCAL/SLAC.SNAPSHOT.SW.011 1 LINE 80 10 PAGE UM UNSP FEB. 10, 1980 18:15:22 5.0T8 203 0 THE SYMBOLIC DUMP PACKAGE. IT MAY BE CALLED BY USER PROGRAMS, OR THE SYSTEM IN CASE OF A RUN ERROR. 0 Referenced by comments of: 793/8 00793/012A PASCAL/SLAC SNAPSHOT OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_SNAPSHOT 5.0T3 825 PASCAL/SLAC.SNAPSHOT.OE.012 1 LINE 73 7 PAGE UM UNSP FEB. 10, 1980 18:15:39 5.0T8 204 00793/013A PASCAL/SLAC PROFILE SW O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.PROFILE 5.0T3 826 PASCAL/SLAC.PROFILE.SW.013 1 LINE 80 5 PAGE UM UNSP FEB. 10, 1980 18:14:30 5.0T8 205 0 THE PROFILER, WHEN USED WITH THE $F+ COMPILER OPTION, PRODUCES A LISTING OF THE PROGRAM WITH EXECUTION COUNTS FOR EACH STATEMENT. 1 MON AUG 05/96 18:37:45 Page 587 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00793/014A PASCAL/SLAC PROFILE OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC_PROFILE 5.0T3 827 PASCAL/SLAC.PROFILE.OE.014 1 LINE 13836 5 PAGE UM UNSP FEB. 10, 1980 18:14:59 5.0T8 206 00793/015A PASCAL/SLAC TESTLIB SW O S1210 PASDIS 'PASCAL DIST' FSNAME=SLAC.TESTLIB 5.0T3 828 PASCAL/SLAC.TESTLIB.SW.015 1 LINE 80 351 PAGE UM UNSP FEB. 10, 1980 18:45:20 5.0T8 207 0 SEVERAL TEST AND UTILITY PROGRAMS WHICH COME WITH THE STANFORD PASCAL COMPILER. SEVERAL OF THESE MAY BE USEFUL WITH OTHER PASCAL COMPILERS OR PERHAPS BY THEMSELVES. 00794/001A SURVEY GENERATOR COMPILER SS G WSG:SURVEY.SS 5.0T3 829 SURVEY_GENERATOR.COMPILER.SS.001 1 LINE 125 7 PAGE UM WSG JULY 03, 1981 20:00:07 5.0T8 208 0 The survey generator consists of a compiler, written in SPITBOL, which will compile a survey definition, written in a simple language, into assembly language source for a program which, when assembled and run with a run-time library, which is an interpreter, will conduct the specified survey interactively for a terminal user. The survey description language is described in comments at the beginning of the compiler source. The compiler reads the survey description on SCARDS and produces an assembly language program on SPUNCH. The assembly language program should then be assembled and the object run together with the run-time library (794/5). 0 Referenced by comments of: 794/3, 794/6 00794/002A SURVEY GENERATOR SIZE150 SA G S0792 WSGFS FSNAME=SIZE150 5.0T3 830 SURVEY_GENERATOR.SIZE150.SA.002 1 LINE 80 1 PAGE UM WSG AUG. 29, 1980 12:06:01 5.0T8 209 0 Program to call a SPITBOL object module with PAR=SIZE=150. It avoids having to require the user of the survey generator compiler to specify PAR=SIZE=150 when running the compiler. Source at lines 1,999; object at 1000. 0 Referenced by comments of: 794/3 00794/003A SURVEY GENERATOR COMPILER OE G WSG:SURVEY 5.0T3 831 SURVEY_GENERATOR.COMPILER.OE.003 1 LINE 17468 20 PAGE UM WSG JULY 03, 1981 20:01:05 5.0T8 210 WSG:SURVEY 0 Object for (794/2) and (794/1). Ends with a "$CONTINUE WITH *SPITLIB" line. 00794/004A SURVEY GENERATOR LIBRARY SG G WSG:SURVEY.SG 5.0T3 832 SURVEY_GENERATOR.LIBRARY.SG.004 1 LINE 96 7 PAGE UM WSG JULY 03, 1981 20:01:06 5.0T8 211 0 GOM source for the survey interpreter. 1 MON AUG 05/96 18:37:45 Page 588 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00794/005A SURVEY GENERATOR LIBRARY OE G WSG:SURVEY.LIB 5.0T3 833 SURVEY_GENERATOR.LIBRARY.OE.005 1 LINE 12674 6 PAGE UM WSG JULY 03, 1981 20:01:08 5.0T8 212 WSG:SURVEY.LIB 0 Run-time library, i.e., the interpreter. 0 Referenced by comments of: 794/1, 794/6 00794/006A SURVEY GENERATOR UM SURV DES #1 S G S0792 WSGFS FSNAME=SURV80.S1 5.0T3 834 SURVEY_GENERATOR.UM_SURV.S.006 1 LINE 94 9 PAGE UM WSG AUG. 29, 1980 12:36:16 5.0T8 213 0 This file is an example of a fairly large survey description; it is the February 1980 General User Survey taken at UM. If you wish to try this survey, you should first change the file name on the OUTPUT statement which appears near the end of the survey description to the name of an appropriate file where the data record produced by running the survey may be written. You should then compile the description using (794/1), assemble the result of the compilation, and run the resulting assembly object together with (794/5). 0 Referenced by comments of: 794/7, 794/8 00794/007A SURVEY GENERATOR UM SURV DES #2 S G S0792 WSGFS FSNAME=SURV80.S2 5.0T3 835 SURVEY_GENERATOR.UM_SURV.S.007 1 LINE 94 5 PAGE UM WSG AUG. 29, 1980 12:37:01 5.0T8 214 0 This survey description is for the same survey as (794/6), but it has much of the verbosity removed so that it can be easily used to enter responses from printed copies of the survey. To retain a unique identity to each written survey response, they were numbered as received and the number placed in the data record in the field used for the MTS user id in the online version. In this way, it was possible to go back to the written response later to verify that the data was entered correctly and to ensure that the same survey was not tabulated more than once. The responses to the printed surveys were entered by members of the secretarial staff. 00794/008A SURVEY GENERATOR UM SURV PRINT WF S0792 WSGFS FSNAME=SURV80.WF 5.0T3 836 SURVEY_GENERATOR.UM_SURV.WF.008 1 LINE 76 7 PAGE UM WSG AUG. 29, 1980 12:37:28 5.0T8 215 0 FORMAT source for the printed version of the same survey as (794/6). 00794/009A SURVEY GENERATOR UM SURV MIDAS C S0792 WSGFS FSNAME=SURV80.MIDAS 5.0T3 837 SURVEY_GENERATOR.UM_SURV.C.009 1 LINE 68 1 PAGE UM WSG AUG. 29, 1980 12:38:19 5.0T8 216 0 MTS and MIDAS commands to analyze the data from the 1980 UM General User Survey. It also runs the SURVEY.CVT program (794/10) to extract the MIDAS results and convert them to a FORMAT macro suitable for inclusion in a writeup describing the results of the survey. 1 MON AUG 05/96 18:37:45 Page 589 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00794/010A SURVEY GENERATOR SURVEY.CVT PGM SS S0792 WSGFS FSNAME=SURVEY.CVT 5.0T3 838 SURVEY_GENERATOR.SURVEY.C.SS.010 1 LINE 128 1 PAGE UM WSG AUG. 29, 1980 12:33:00 5.0T8 217 0 SPITBOL program to scan through MIDAS output looking for specific numerical results and converting them into a FORMAT macro which can be included in a writeup describing the results of the analysis. 0 Referenced by comments of: 794/9 00794/011A SURVEY GENERATOR UM SURV RESULT WF S0792 WSGFS FSNAME=SURV80.RESULTS.WF 5.0T3 839 SURVEY_GENERATOR.UM_SURV.WF.011 1 LINE 109 10 PAGE UM WSG AUG. 29, 1980 12:41:13 5.0T8 218 0 FORMAT source for the results of the analysis of the UM 1980 General User Survey. 00795/001A CANREPLY DUMMY SA G UNSP:CANREPLY(*F,0) 5.0T3 840 CANREPLY_DUMMY..SA.001 1 LINE 22 1 PAGE UM UNSP JULY 03, 1981 20:01:19 5.0T8 219 0 THIS IS A DUMMY VERSION OF CANREPLY, DISTRIBUTED AS A PART OF MTS, THAT ALWAYS RETURNS FALSE. IT IS INTENDED FOR TESTING PROGRAMS WITH BATCH OPTIONS FROM A TERMINAL. 00795/002A CANREPLY DUMMY O G UNSP:CANREPLY(1) 5.0T3 841 CANREPLY_DUMMY..O.002 1 LINE 80 1 PAGE UM UNSP JULY 03, 1981 20:01:20 5.0T8 220 00795/003A CANREPLY DUMMY WF S1153 UNSP VLO FSNAME=CANREPLY.FMT 5.0T3 842 CANREPLY_DUMMY..WF.003 1 LINE 67 1 PAGE UM UNSP SEP. 15, 1980 16:24:26 5.0T8 221 00796/001A ENCODE/DECODE ENCODE SA G S1153 UNSP VLO FSNAME=ENCODE.ASM 5.0T3 843 ENCODE/DECODE.ENCODE.SA.001 1 LINE 70 4 PAGE UM UNSP SEP. 15, 1980 16:42:53 5.0T8 222 0 THIS COMPONENT CONTAINS MODIFIED VERSIONS OF *ENCODE (543) AND *DECODE (541) FOR USE WITH REMOTE MINICOMPUTERS. THIS SUBCOMPONENT CONTAINS THE SOURCE FOR THE MODIFIED *ENCODE. 00796/002A ENCODE/DECODE ENCODE OC G UNSP:ENCODE 5.0T3 844 ENCODE/DECODE.ENCODE.OC.002 1 LINE 1040 1 PAGE UM UNSP JULY 03, 1981 20:01:28 5.0T8 223 0 Contains a $CONTINUE WITH UNSP:LIBRARY (685/2) record. 0 Referenced by comments of: 796/3 1 MON AUG 05/96 18:37:45 Page 590 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00796/003A ENCODE/DECODE ENCODE P UNSP:ENCODE.W 5.0T3 845 ENCODE/DECODE.ENCODE.P.003 1 LINE 75 1 PAGE UM UNSP JULY 03, 1981 20:01:29 5.0T8 224 0 A DESCRIPTION OF THE USE OF UNSP:ENCODE (796/2). 00796/004A ENCODE/DECODE DECODE SA G S1153 UNSP VLO FSNAME=DECODE.ASM 5.0T3 846 ENCODE/DECODE.DECODE.SA.004 1 LINE 77 3 PAGE UM UNSP SEP. 15, 1980 16:42:44 5.0T8 225 0 THIS SUBCOMPONENT CONTAINS THE SOURCE FOR THE MODIFIED *DECODE (541). 00796/005A ENCODE/DECODE DECODE OC G UNSP:DECODE 5.0T3 847 ENCODE/DECODE.DECODE.OC.005 1 LINE 664 1 PAGE UM UNSP JULY 03, 1981 20:01:30 5.0T8 226 0 Contains a $CONTINUE WITH UNSP:LIBRARY (685/2) record. 0 Referenced by comments of: 796/6 00796/006A ENCODE/DECODE DECODE P G UNSP:DECODE.W 5.0T3 848 ENCODE/DECODE.DECODE.P.006 1 LINE 75 1 PAGE UM UNSP JULY 03, 1981 20:01:31 5.0T8 227 0 A DESCRIPTION OF THE USE OF UNSP:DECODE (796/5). 00796/007A ENCODE/DECODE NOTE P G UNSP:ENCODE/DE.W 5.0T3 849 ENCODE/DECODE.NOTE.P.007 1 LINE 71 3 PAGE UM UNSP JULY 03, 1981 20:01:32 5.0T8 228 0 A NOTE DESCRIBING THE USE OF ENCODE AND DECODE AT UM'S SPACE PHYSICS RESEARCH LAB. 00797/001A TRANSLATION ROUTINES SA G S1153 UNSP VLO FSNAME=TRANSLATE.ASM 5.0T3 850 TRANSLATION_ROUTINES..SA.001 1 LINE 68 1 PAGE UM UNSP MAY 22, 1981 07:53:37 5.0T8 229 0 SUBROUTINES FOR USE FROM FORTRAN AND PASCAL WHICH TRANSLATE BUFFERS USING THE STANDARD TRANSLATION TABLES CASECONV, ASCEBC, AND EBCASC. 00797/002A TRANSLATION ROUTINES OC G # (PART OF UNSP:LIBRARY) UM UNSP 0 Part of UNSP:LIBRARY (685/2). 00797/003A TRANSLATION ROUTINES P UNSP:TRANSLATE.W 5.0T3 851 TRANSLATION_ROUTINES..P.003 1 LINE 67 1 PAGE UM UNSP JULY 03, 1981 20:01:40 5.0T8 230 00798/001A MESSAGE SYSTEM INSTALL NOTES WF G MAIL:DIST.NOTES 5.0T4 427 MESSAGE_SYSTEM.INSTALL_NO.WF.001 1 LINE 77 3 PAGE UM STERKEN AUG. 09, 1981 23:50:58 5.0T11 1 0 This is the official version of $MESSAGESYSTEM. It is now fully supported and 1 MON AUG 05/96 18:37:45 Page 591 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 may be released to users. The MESSAGESYSTEM requires *USERDIRECTORY (821). It will make it much easier to install the MESSAGESYSTEM if the CCID "MAIL" is created. Subcomponents of the MESSAGESYSTEM should be restored to the file names used on this distribution. This subcomponent contains installation notes for $MESSAGESYSTEM. 0 Referenced by comments of: 559/1, 659/18, 798/9 00798/002A MESSAGE SYSTEM CHANGES WF G MAIL:DIST.CHANGES 5.0T4 428 MESSAGE_SYSTEM.CHANGES.WF.002 1 LINE 56 1 PAGE UM STERKEN AUG. 09, 1981 23:51:00 5.0T11 2 0 Log of $MESSAGESYSTEM changes since the last distribution. (No changes yet.) 00798/003A MESSAGE SYSTEM *CLSMESSAGESYS OE G *CLSMESSAGESYS 5.0T4 429 MESSAGE_SYSTEM.?CLSMESSAG.OE.003 1 LINE 11920 33 PAGE UM STERKEN AUG. 09, 1981 23:51:01 5.0T11 3 *CLSMESSAGESYS 0 The MESSAGESYSTEM CLS object module. This file is loaded into shared VM by PISTLE (559). Should be permitted U/R, U MAIL. Contains $CONTINUE WITHS to *MESSSUBS (798/4) and SEG2:TIME (360). 0 Referenced by comments of: 798/4, 798/16, 798/21, 798/41 00798/004C MESSAGE SYSTEM *MESSSUBS OE G *MESSSUBS 5.0T4 430 MESSAGE_SYSTEM.?MESSSUBS.OE.004 1 LINE 32767 37 PAGE UM STERKEN AUG. 09, 1981 23:51:04 5.0T11 4 *MESSSUBS 0 MESSAGESYSTEM Subroutine Interface object module. This file is loaded into shared VM by PISTLE (559). Should be permitted U/R, U MAIL. *MESSSUBS should be loaded before *CLSMESSAGESYS (798/3) by PISTLE (559). Contains a $CONTINUE WITH *LIBRARY (524/1) record. 0 Referenced by comments of: 798/3, 798/16, 798/21, 798/39, 798/41 00798/005A MESSAGE SYSTEM MSG CLS OE G MAIL:MESSCLS 5.0T4 431 MESSAGE_SYSTEM.MSG_CLS.OE.005 1 LINE 11920 33 PAGE UM STERKEN AUG. 09, 1981 23:51:06 5.0T11 5 MAIL:MESSCLS 0 A complete set of $MESSAGESYSTEM CLS object modules. (798/10) and (798/11) are command files which may be used to compile this component. (798/17) is a command file for linkediting it. 0 Referenced by comments of: 798/16, 798/17 00798/006A MESSAGE SYSTEM SUBR INTERFACE OE G MAIL:MESSSUB 5.0T4 432 MESSAGE_SYSTEM.SUBR_INTER.OE.006 1 LINE 8231 46 PAGE UM STERKEN AUG. 09, 1981 23:51:08 5.0T11 6 MAIL:MESSSUB 0 A complete set of $MESSAGESYSTEM subroutine interface object modules. (798/12) and (798/13) are command files which may be used to compile this subcomponent. (798/18) is a command file for linkediting it. 1 MON AUG 05/96 18:37:45 Page 592 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 798/16, 798/18 00798/007C MESSAGE SYSTEM *MSGUTIL OE G *MSGUTIL 5.0T4 433 MESSAGE_SYSTEM.?MSGUTIL.OE.007 1 LINE 32767 47 PAGE UM STERKEN AUG. 09, 1981 23:51:11 5.0T11 7 *MSGUTIL 0 Public file version of MSGUTIL (798/8). Loaded by (798/19). This file should be permitted U/N, R (PKEY=*MTS.RUN, PKEY=*MTS.FILESTA), with PKEY=*MSGUTIL. 0 Referenced by comments of: 798/14, 798/15, 798/19, 798/20, 798/23, 798/75, 798/77, 798/79, 798/81, 798/95 00798/008A MESSAGE SYSTEM MSGUTIL OE G MAIL:MSGUTIL 5.0T4 434 MESSAGE_SYSTEM.MSGUTIL.OE.008 1 LINE 14015 56 PAGE UM STERKEN AUG. 09, 1981 23:51:14 5.0T11 8 MAIL:MSGUTIL 0 Linkeditted object of the $MESSAGESYSTEM utilities. (798/14) and (798/15) are command files which may be used to compile/assemble these components. (798/20) is a command file for linkeditting it. 0 Referenced by comments of: 798/7 00798/009A MESSAGE SYSTEM *MESSAGES D G # MTS.:TST.MESSAGES UM STERKEN MAIL:*MESSAGES 0 This is the default system message file, which is not distributed. The distribution notes (798/1) contain instructions for setting up this message file. It should be permitted U/N, RW (PKEY=*SYS.MESSAGE). 0 Referenced by comments of: 798/107 00798/010A MESSAGE SYSTEM CLS COMPILE C G MAIL:CLS.COMPILE 5.0T4 435 MESSAGE_SYSTEM.CLS_COMPIL.C.010 1 LINE 128 1 PAGE UM STERKEN AUG. 09, 1981 23:51:18 5.0T11 9 0 A command file to be $SOURCEd to for compiling all the CLS components. Listings are sent to *PRINT*. 0 Referenced by comments of: 798/5 00798/011A MESSAGE SYSTEM CLS COMPILE C G MAIL:CLS.XCOMPILE 5.0T4 436 MESSAGE_SYSTEM.CLS_COMPIL.C.011 1 LINE 128 1 PAGE UM STERKEN AUG. 09, 1981 23:51:19 5.0T11 10 0 A command file to be $SOURCEd to for compiling all the CLS components. No listings are sent to *PRINT*. 0 Referenced by comments of: 798/5 00798/012A MESSAGE SYSTEM SUBR COMPILE C G MAIL:SUB.COMPILE 5.0T4 437 MESSAGE_SYSTEM.SUBR_COMPI.C.012 1 LINE 128 1 PAGE UM STERKEN AUG. 09, 1981 23:51:19 5.0T11 11 0 A command file to be $SOURCEd to for compiling all the MSG subroutine 1 MON AUG 05/96 18:37:45 Page 593 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 components. Listings are sent to *PRINT*. 0 Referenced by comments of: 798/6 00798/013A MESSAGE SYSTEM SUBR COMPILE C G MAIL:SUB.XCOMPILE 5.0T4 438 MESSAGE_SYSTEM.SUBR_COMPI.C.013 1 LINE 128 1 PAGE UM STERKEN AUG. 09, 1981 23:51:20 5.0T11 12 0 A command file to be $SOURCEd to for compiling all the MSG subroutine components. No listings are sent to *PRINT*. 0 Referenced by comments of: 798/6 00798/014A MESSAGE SYSTEM UTIL COMPILE C G MAIL:UTIL.COMPILE 5.0T4 439 MESSAGE_SYSTEM.UTIL_COMPI.C.014 1 LINE 153 1 PAGE UM STERKEN AUG. 09, 1981 23:51:21 5.0T11 13 0 A command file to be $SOURCEd to for compiling all the *MSGUTIL (798/7) components. Listings are sent to *PRINT*. 0 Referenced by comments of: 798/8 00798/015A MESSAGE SYSTEM UTIL COMPILE D G MAIL:UTIL.XCOMPILE 5.0T4 440 MESSAGE_SYSTEM.UTIL_COMPI.D.015 1 LINE 153 1 PAGE UM STERKEN AUG. 09, 1981 23:51:22 5.0T11 14 0 A command file to be $SOURCEd to for compiling all the *MSGUTIL (798/7) components. No listings are sent to *PRINT*. 0 Referenced by comments of: 798/8 00798/016A MESSAGE SYSTEM LOAD SEG2 C G MAIL:SO.LOADSEG2 5.0T4 441 MESSAGE_SYSTEM.LOAD_SEG2.C.016 1 LINE 66 2 PAGE UM STERKEN AUG. 09, 1981 23:51:23 5.0T11 15 0 A command file to be $SOURCEd to for loading a new $MESSAGESYSTEM in shared memory. (798/3) and (798/4) are updated. It is assumed that (798/5) and (798/6) are already set up. 0 Referenced by comments of: 798/39 00798/017A MESSAGE SYSTEM LINK CLS C G MAIL:SO.LINKCLS 5.0T4 442 MESSAGE_SYSTEM.LINK_CLS.C.017 1 LINE 91 1 PAGE UM STERKEN AUG. 09, 1981 23:51:24 5.0T11 16 0 A command file to be $SOURCEd to for linkediting all the CLS components. The linkedited deck is placed in (798/5). 0 Referenced by comments of: 798/5 1 MON AUG 05/96 18:37:45 Page 594 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/018A MESSAGE SYSTEM LINK SUBR C G MAIL:SO.LINKSUB 5.0T4 443 MESSAGE_SYSTEM.LINK_SUBR.C.018 1 LINE 104 1 PAGE UM STERKEN AUG. 09, 1981 23:51:25 5.0T11 17 0 A command file to be $SOURCEd to for linkediting all the MSG subroutine subcomponents. The linkedited deck is placed in (798/6). 0 Referenced by comments of: 798/6 00798/019C MESSAGE SYSTEM LOAD SUBR C G MAIL:SO.LOADUTIL 5.0T4 444 MESSAGE_SYSTEM.LOAD_SUBR.C.019 1 LINE 55 1 PAGE UM STERKEN AUG. 09, 1981 23:51:26 5.0T11 18 0 A command file to be $SOURCEd to for installing a new version of *MSGUTIL (798/7) in the file *MSGUTIL. 0 Referenced by comments of: 798/7 00798/020A MESSAGE SYSTEM LINK UTIL C G MAIL:SO.LINKUTIL 5.0T4 445 MESSAGE_SYSTEM.LINK_UTIL.C.020 1 LINE 102 1 PAGE UM STERKEN AUG. 09, 1981 23:51:26 5.0T11 19 0 A command file to be $SOURCEd to for linkediting all the *MSGUTIL components. The linkedited deck is placed in *MSGUTIL (798/7). 0 Referenced by comments of: 798/8 00798/021A MESSAGE SYSTEM TEST CLS C G MAIL:SO.CLSTEST 5.0T4 446 MESSAGE_SYSTEM.TEST_CLS.C.021 1 LINE 42 1 PAGE UM STERKEN AUG. 09, 1981 23:51:27 5.0T11 20 0 This is a command file to be $SOURCEd to for $DEBUGging a test version of the complete MESSAGESYSTEM: CLS, *CLSMESSAGESYS (798/3), and subroutines, *MESSSUBS (798/4). 00798/022C MESSAGE SYSTEM TEST CLS C G MAIL:SO.CLSTEST2 5.0T4 447 MESSAGE_SYSTEM.TEST_CLS.C.022 1 LINE 113 1 PAGE UM STERKEN AUG. 09, 1981 23:51:28 5.0T11 21 0 A command file to be $SOURCEd to for $DEBUGging just the CLS (using the resident message subroutines). 00798/023A MESSAGE SYSTEM TEST UTIL C G MAIL:SO.UTILTEST 5.0T4 448 MESSAGE_SYSTEM.TEST_UTIL.C.023 1 LINE 133 1 PAGE UM STERKEN AUG. 09, 1981 23:51:29 5.0T11 22 0 A command file to be $SOURCEd to for $DEBUGging a test version of *MSGUTIL (798/7). 00798/024A MESSAGE SYSTEM LIST C G MAIL:SO.FILELIST 5.0T4 449 MESSAGE_SYSTEM.LIST.C.024 1 LINE 153 3 PAGE UM STERKEN AUG. 09, 1981 23:51:31 5.0T11 23 0 A command file to be $SOURCEd to for printing source listings of 1 MON AUG 05/96 18:37:45 Page 595 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 all of the source components of the MESSAGESYSTEM. 00798/025A MESSAGE SYSTEM MAIN SG G MAIL:CLS.MAIN.S 5.0T4 450 MESSAGE_SYSTEM.MAIN.SG.025 1 LINE 108 16 PAGE UM STERKEN AUG. 09, 1981 23:51:31 5.0T11 24 0 This is the main program for the $MESSAGESYSTEM CLS. 00798/026A MESSAGE SYSTEM MAIN OC G MAIL:CLS.MAIN.O 5.0T4 451 MESSAGE_SYSTEM.MAIN.OC.026 1 LINE 3616 27 PAGE UM STERKEN AUG. 09, 1981 23:52:06 5.0T11 25 00798/027A MESSAGE SYSTEM CLS CMDS SG G MAIL:CLS.CMDS.S 5.0T4 452 MESSAGE_SYSTEM.CLS_CMDS.SG.027 1 LINE 220 34 PAGE UM STERKEN AUG. 09, 1981 23:52:10 5.0T11 26 0 The CLS commands. 00798/028A MESSAGE SYSTEM CLS CMDS OC G MAIL:CLS.CMDS.O 5.0T4 453 MESSAGE_SYSTEM.CLS_CMDS.OC.028 1 LINE 11920 51 PAGE UM STERKEN AUG. 09, 1981 23:53:32 5.0T11 27 00798/029A MESSAGE SYSTEM CLS UTIL SG G MAIL:CLS.UTIL.S 5.0T4 454 MESSAGE_SYSTEM.CLS_UTIL.SG.029 1 LINE 156 53 PAGE UM STERKEN AUG. 09, 1981 23:53:35 5.0T11 28 0 Miscellaneous utility routines used throughout the CLS. 00798/030A MESSAGE SYSTEM CLS UTIL OC G MAIL:CLS.UTIL.O 5.0T4 455 MESSAGE_SYSTEM.CLS_UTIL.OC.030 1 LINE 11339 90 PAGE UM STERKEN AUG. 09, 1981 23:55:13 5.0T11 29 00798/031A MESSAGE SYSTEM CLS KWS XFACE SA G MAIL:CLS.KWS.S 5.0T4 456 MESSAGE_SYSTEM.CLS_KWS_XF.SA.031 1 LINE 127 30 PAGE UM STERKEN AUG. 09, 1981 23:55:19 5.0T11 30 0 Interface to KWSCAN (040) for CLS commands. Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for assembly. 00798/032A MESSAGE SYSTEM CLS KWS XFACE OC G MAIL:CLS.KWS.O 5.0T4 457 MESSAGE_SYSTEM.CLS_KWS_XF.OC.032 1 LINE 684 17 PAGE UM STERKEN AUG. 09, 1981 23:55:32 5.0T11 31 00798/033A MESSAGE SYSTEM CLS ASMB RTNS SA G MAIL:CLS.ASM.S 5.0T4 458 MESSAGE_SYSTEM.CLS_ASMB_R.SA.033 1 LINE 127 4 PAGE UM STERKEN AUG. 09, 1981 23:55:34 5.0T11 32 0 Miscellaneous assembly routines used by the CLS. Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for assembly. 1 MON AUG 05/96 18:37:45 Page 596 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/034A MESSAGE SYSTEM CLS ASMB RTNS OC G MAIL:CLS.ASM.O 5.0T4 459 MESSAGE_SYSTEM.CLS_ASMB_R.OC.034 1 LINE 256 3 PAGE UM STERKEN AUG. 09, 1981 23:55:35 5.0T11 33 00798/035A MESSAGE SYSTEM CLS DRIVER SG G MAIL:CLSDRIVER.S 5.0T4 460 MESSAGE_SYSTEM.CLS_DRIVER.SG.035 1 LINE 102 1 PAGE UM STERKEN AUG. 09, 1981 23:55:36 5.0T11 34 0 Used for $DEBUGging $MESSAGESYSTEM. Fakes CLS environment. 00798/036A MESSAGE SYSTEM CLS DRIVER OC G MAIL:CLSDRIVER.O 5.0T4 461 MESSAGE_SYSTEM.CLS_DRIVER.OC.036 1 LINE 80 2 PAGE UM STERKEN AUG. 09, 1981 23:55:37 5.0T11 35 00798/037A MESSAGE SYSTEM ENTRY SA G MAIL:CLSINTF.S 5.0T4 462 MESSAGE_SYSTEM.ENTRY.SA.037 1 LINE 98 3 PAGE UM STERKEN AUG. 09, 1981 23:55:38 5.0T11 36 0 The "real" entry point to $MESSAGESYSTEM. Sets up the stack environment for GOM (659). 00798/038A MESSAGE SYSTEM ENTRY OC G MAIL:CLSINTF.O 5.0T4 463 MESSAGE_SYSTEM.ENTRY.OC.038 1 LINE 80 2 PAGE UM STERKEN AUG. 09, 1981 23:55:39 5.0T11 37 00798/039C MESSAGE SYSTEM MSGSUB TV SA G MAIL:MESSSUBS.S 5.0T4 464 MESSAGE_SYSTEM.MSGSUB_TV.SA.039 1 LINE 75 1 PAGE UM STERKEN AUG. 09, 1981 23:55:40 5.0T11 38 0 Transfer vector placed at the front of *MESSSUBS (798/4) by (798/16). This is the entry point to *MESSSUBS. It allows MTS to find all of the subroutines with one call during $SIGNON processing. 00798/040C MESSAGE SYSTEM MSGSUB TV OC G MAIL:MESSSUBS.O 5.0T4 465 MESSAGE_SYSTEM.MSGSUB_TV.OC.040 1 LINE 80 1 PAGE UM STERKEN AUG. 09, 1981 23:55:41 5.0T11 39 00798/041C MESSAGE SYSTEM MSGLCS SA G MAIL:MESSLCS.S 5.0T4 466 MESSAGE_SYSTEM.MSGLCS.SA.041 1 LINE 60 1 PAGE UM STERKEN AUG. 09, 1981 23:55:42 5.0T11 40 0 Low-core symbol table included in *MESSSUBS (798/4). Contains entries to locate common subroutines needed by both the CLS, *CLSMESSAGESYS (798/3), and the subroutines, *MESSSUBS (798/4). 00798/042C MESSAGE SYSTEM MSGLCS OC G MAIL:MESSLCS.O 5.0T4 467 MESSAGE_SYSTEM.MSGLCS.OC.042 1 LINE 80 1 PAGE UM STERKEN AUG. 09, 1981 23:55:43 5.0T11 41 00798/043A MESSAGE SYSTEM MSGOPEN SG G MAIL:MSGOPEN.S 5.0T4 468 MESSAGE_SYSTEM.MSGOPEN.SG.043 1 LINE 105 2 PAGE UM STERKEN AUG. 09, 1981 23:55:43 5.0T11 42 0 The MSGOPEN subroutine. 1 MON AUG 05/96 18:37:45 Page 597 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/044A MESSAGE SYSTEM MSGOPEN OC G MAIL:MSGOPEN.O 5.0T4 469 MESSAGE_SYSTEM.MSGOPEN.OC.044 1 LINE 80 4 PAGE UM STERKEN AUG. 09, 1981 23:55:44 5.0T11 43 00798/045A MESSAGE SYSTEM MSGCTL SG G MAIL:MSGCTL.S 5.0T4 470 MESSAGE_SYSTEM.MSGCTL.SG.045 1 LINE 136 40 PAGE UM STERKEN AUG. 09, 1981 23:55:45 5.0T11 44 0 The MSGCTL subroutine. 00798/046A MESSAGE SYSTEM MSGCTL OC G MAIL:MSGCTL.O 5.0T4 471 MESSAGE_SYSTEM.MSGCTL.OC.046 1 LINE 8047 63 PAGE UM STERKEN AUG. 09, 1981 23:57:25 5.0T11 45 00798/047A MESSAGE SYSTEM MSGINF SG G MAIL:MSGINF.S 5.0T4 472 MESSAGE_SYSTEM.MSGINF.SG.047 1 LINE 114 13 PAGE UM STERKEN AUG. 09, 1981 23:57:34 5.0T11 46 0 The MSGINF subroutine. 0 Referenced by comments of: 798/106 00798/048A MESSAGE SYSTEM MSGINF OC G MAIL:MSGINF.O 5.0T4 473 MESSAGE_SYSTEM.MSGINF.OC.048 1 LINE 80 16 PAGE UM STERKEN AUG. 09, 1981 23:57:55 5.0T11 47 00798/049A MESSAGE SYSTEM MSGGET SG G MAIL:MSGGET.S 5.0T4 474 MESSAGE_SYSTEM.MSGGET.SG.049 1 LINE 107 3 PAGE UM STERKEN AUG. 09, 1981 23:57:57 5.0T11 48 0 The MSGGET subroutine. 00798/050A MESSAGE SYSTEM MSGGET OC G MAIL:MSGGET.O 5.0T4 475 MESSAGE_SYSTEM.MSGGET.OC.050 1 LINE 80 5 PAGE UM STERKEN AUG. 09, 1981 23:57:58 5.0T11 49 00798/051A MESSAGE SYSTEM MSGPUT SG G MAIL:MSGPUT.S 5.0T4 476 MESSAGE_SYSTEM.MSGPUT.SG.051 1 LINE 107 3 PAGE UM STERKEN AUG. 09, 1981 23:57:59 5.0T11 50 0 The MSGPUT subroutine. 00798/052A MESSAGE SYSTEM MSGPUT OC G MAIL:MSGPUT.O 5.0T4 477 MESSAGE_SYSTEM.MSGPUT.OC.052 1 LINE 80 6 PAGE UM STERKEN AUG. 09, 1981 23:58:00 5.0T11 51 00798/053A MESSAGE SYSTEM MSGGUI SG G MAIL:MSGGUI.S 5.0T4 478 MESSAGE_SYSTEM.MSGGUI.SG.053 1 LINE 97 2 PAGE UM STERKEN AUG. 09, 1981 23:58:01 5.0T11 52 0 The MSGGUI subroutine. 1 MON AUG 05/96 18:37:45 Page 598 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/054A MESSAGE SYSTEM MSGGUI OC G MAIL:MSGGUI.O 5.0T4 479 MESSAGE_SYSTEM.MSGGUI.OC.054 1 LINE 80 4 PAGE UM STERKEN AUG. 09, 1981 23:58:02 5.0T11 53 00798/055A MESSAGE SYSTEM MSGCUI SG G MAIL:MSGCUI.S 5.0T4 480 MESSAGE_SYSTEM.MSGCUI.SG.055 1 LINE 97 2 PAGE UM STERKEN AUG. 09, 1981 23:58:03 5.0T11 54 0 The MSGCUI subroutine. 00798/056A MESSAGE SYSTEM MSGCUI OC G MAIL:MSGCUI.O 5.0T4 481 MESSAGE_SYSTEM.MSGCUI.OC.056 1 LINE 80 4 PAGE UM STERKEN AUG. 09, 1981 23:58:04 5.0T11 55 00798/057A MESSAGE SYSTEM MSGRCV SG G MAIL:MSGRCV.S 5.0T4 482 MESSAGE_SYSTEM.MSGRCV.SG.057 1 LINE 34 1 PAGE UM STERKEN AUG. 09, 1981 23:58:04 5.0T11 56 0 The MSGRCV subroutine (not written yet). 00798/058A MESSAGE SYSTEM MSGRCV OC G MAIL:MSGRCV.O 5.0T4 483 MESSAGE_SYSTEM.MSGRCV.OC.058 1 LINE 34 1 PAGE UM STERKEN AUG. 09, 1981 23:58:05 5.0T11 57 00798/059A MESSAGE SYSTEM MSGSND SG G MAIL:MSGSND.S 5.0T4 484 MESSAGE_SYSTEM.MSGSND.SG.059 1 LINE 34 1 PAGE UM STERKEN AUG. 09, 1981 23:58:06 5.0T11 58 0 The MSGSND subroutine (not written yet). 00798/060A MESSAGE SYSTEM MSGSND OC G MAIL:MSGSND.O 5.0T4 485 MESSAGE_SYSTEM.MSGSND.OC.060 1 LINE 34 1 PAGE UM STERKEN AUG. 09, 1981 23:58:07 5.0T11 59 00798/061A MESSAGE SYSTEM MSGDSP SG G MAIL:MSGDSP.S 5.0T4 486 MESSAGE_SYSTEM.MSGDSP.SG.061 1 LINE 34 1 PAGE UM STERKEN AUG. 09, 1981 23:58:08 5.0T11 60 0 The MSGDSP subroutine (not written yet). 00798/062A MESSAGE SYSTEM MSGDSP OC G MAIL:MSGDSP.O 5.0T4 487 MESSAGE_SYSTEM.MSGDSP.OC.062 1 LINE 34 1 PAGE UM STERKEN AUG. 09, 1981 23:58:09 5.0T11 61 00798/063A MESSAGE SYSTEM SUBR UTILS SG G MAIL:SUB.UTIL.S 5.0T4 488 MESSAGE_SYSTEM.SUBR_UTILS.SG.063 1 LINE 171 56 PAGE UM STERKEN AUG. 09, 1981 23:58:10 5.0T11 62 0 Miscellaneous utility routines used by the MSG subroutines. 1 MON AUG 05/96 18:37:45 Page 599 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/064A MESSAGE SYSTEM SUBR UTILS OC G MAIL:SUB.UTIL.O 5.0T4 489 MESSAGE_SYSTEM.SUBR_UTILS.OC.064 1 LINE 4076 132 PAGE UM STERKEN AUG. 09, 1981 23:59:18 5.0T11 63 00798/065A MESSAGE SYSTEM SUB KWS XFACE SA G MAIL:SUB.KWS.S 5.0T4 490 MESSAGE_SYSTEM.SUB_KWS_XF.SA.065 1 LINE 127 22 PAGE UM STERKEN AUG. 09, 1981 23:59:31 5.0T11 64 0 Interface to KWSCAN (040) for the MSG subroutines. Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for assembly. 00798/066A MESSAGE SYSTEM SUB KWS XFACE OC G MAIL:SUB.KWS.O 5.0T4 491 MESSAGE_SYSTEM.SUB_KWS_XF.OC.066 1 LINE 1772 9 PAGE UM STERKEN AUG. 10, 1981 00:00:15 5.0T11 65 00798/067A MESSAGE SYSTEM SUB ASMB RTNS SA G MAIL:SUB.ASM.S 5.0T4 492 MESSAGE_SYSTEM.SUB_ASMB_R.SA.067 1 LINE 127 18 PAGE UM STERKEN AUG. 10, 1981 00:00:17 5.0T11 66 0 Miscellaneous assembly routines used by the MSG subroutines. The "real" entry points for all the MSG subroutines, little adaptor routines that set up the stack environment, are in the file. Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for assembly. Copies COPY:GLOBALS (1026/3) and COPY:LLMPSEQU (087). 00798/068A MESSAGE SYSTEM SUB ASMB RTNS OC G MAIL:SUB.ASM.O 5.0T4 493 MESSAGE_SYSTEM.SUB_ASMB_R.OC.068 1 LINE 1135 8 PAGE UM STERKEN AUG. 10, 1981 00:00:22 5.0T11 67 00798/069A MESSAGE SYSTEM LIST MNGMNT SG G MAIL:LISTMNGMNT.S 5.0T4 494 MESSAGE_SYSTEM.LIST_MNGMN.SG.069 1 LINE 125 13 PAGE UM STERKEN AUG. 10, 1981 00:00:23 5.0T11 68 0 Miscellaneous list management routines used by the MSG subroutines. 00798/070A MESSAGE SYSTEM LIST MNGMNT O G MAIL:LISTMNGMNT.O 5.0T4 495 MESSAGE_SYSTEM.LIST_MNGMN.O.070 1 LINE 80 26 PAGE UM STERKEN AUG. 10, 1981 00:00:41 5.0T11 69 00798/071A MESSAGE SYSTEM COMMON UTIL SG G MAIL:COM.UTIL.S 5.0T4 496 MESSAGE_SYSTEM.COMMON_UTI.SG.071 1 LINE 198 17 PAGE UM STERKEN AUG. 10, 1981 00:00:44 5.0T11 70 0 Miscellaneous utility routines used by both the CLS and the MSG subroutines. 00798/072A MESSAGE SYSTEM COMMON UTIL OC G MAIL:COM.UTIL.O 5.0T4 497 MESSAGE_SYSTEM.COMMON_UTI.OC.072 1 LINE 1772 28 PAGE UM STERKEN AUG. 10, 1981 00:01:01 5.0T11 71 1 MON AUG 05/96 18:37:45 Page 600 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/073A MESSAGE SYSTEM COMMON ASMB SA G MAIL:COM.ASM.S 5.0T4 498 MESSAGE_SYSTEM.COMMON_ASM.SA.073 1 LINE 127 11 PAGE UM STERKEN AUG. 10, 1981 00:01:03 5.0T11 72 0 Miscellaneous assembly routines used by both the CLS and the MSG subroutines. Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for assembly. 00798/074A MESSAGE SYSTEM COMMON ASMB OC G MAIL:COM.ASM.O 5.0T4 499 MESSAGE_SYSTEM.COMMON_ASM.OC.074 1 LINE 80 6 PAGE UM STERKEN AUG. 10, 1981 00:01:06 5.0T11 73 00798/075A MESSAGE SYSTEM MSGUTIL MAIN SG G MAIL:MUTIL.MAIN.S 5.0T4 500 MESSAGE_SYSTEM.MSGUTIL_MA.SG.075 1 LINE 104 4 PAGE UM STERKEN AUG. 10, 1981 00:01:08 5.0T11 74 0 "Main program" for *MSGUTIL (798/7). 00798/076A MESSAGE SYSTEM MSGUTIL MAIN OC G MAIL:MUTIL.MAIN.O 5.0T4 501 MESSAGE_SYSTEM.MSGUTIL_MA.OC.076 1 LINE 80 9 PAGE UM STERKEN AUG. 10, 1981 00:01:09 5.0T11 75 00798/077A MESSAGE SYSTEM MSGUTIL UTIL SG G MAIL:MUTIL.UTIL.S 5.0T4 502 MESSAGE_SYSTEM.MSGUTIL_UT.SG.077 1 LINE 200 42 PAGE UM STERKEN AUG. 10, 1981 00:01:10 5.0T11 76 0 Command processors and miscellaneous utility routines for *MSGUTIL (798/7). 00798/078A MESSAGE SYSTEM MSGUTIL UTIL OC G MAIL:MUTIL.UTIL.O 5.0T4 503 MESSAGE_SYSTEM.MSGUTIL_UT.OC.078 1 LINE 9059 76 PAGE UM STERKEN AUG. 10, 1981 00:01:35 5.0T11 77 00798/079A MESSAGE SYSTEM MSGUTIL KWS SA G MAIL:MUTIL.KWS.S 5.0T4 504 MESSAGE_SYSTEM.MSGUTIL_KW.SA.079 1 LINE 131 8 PAGE UM STERKEN AUG. 10, 1981 00:01:40 5.0T11 78 0 Miscellaneous KWSCAN (040) interface routines for *MSGUTIL (798/7). Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for assembly. 00798/080A MESSAGE SYSTEM MSGUTIL KWS OC G MAIL:MUTIL.KWS.O 5.0T4 505 MESSAGE_SYSTEM.MSGUTIL_KW.OC.080 1 LINE 80 5 PAGE UM STERKEN AUG. 10, 1981 00:01:42 5.0T11 79 00798/081A MESSAGE SYSTEM MSGUTIL ASMB SA G MAIL:MUTIL.ASM.S 5.0T4 506 MESSAGE_SYSTEM.MSGUTIL_AS.SA.081 1 LINE 152 4 PAGE UM STERKEN AUG. 10, 1981 00:01:44 5.0T11 80 0 Miscellaneous assembly routines for *MSGUTIL (798/7). Assemble with the MESSAGESYSTEM macros (798/105) and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT,BATCH,TEST. Contains commands beginning at line 0 for assembly. 1 MON AUG 05/96 18:37:45 Page 601 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/082A MESSAGE SYSTEM MSGUTIL ASMB OC G MAIL:MUTIL.ASM.O 5.0T4 507 MESSAGE_SYSTEM.MSGUTIL_AS.OC.082 1 LINE 80 4 PAGE UM STERKEN AUG. 10, 1981 00:01:44 5.0T11 81 00798/083A MESSAGE SYSTEM CLS DECLARE SG G MAIL:CLS.DECLS 5.0T4 508 MESSAGE_SYSTEM.CLS_DECLAR.SG.083 1 LINE 59 1 PAGE UM STERKEN AUG. 10, 1981 00:01:45 5.0T11 82 0 "$CONTINUE WITH" file used to include all the standard declarations needed by the CLS subcomponents. 00798/084A MESSAGE SYSTEM CLS GLOBALS SG G MAIL:CLS.GLOBAL 5.0T4 509 MESSAGE_SYSTEM.CLS_GLOBAL.SG.084 1 LINE 80 4 PAGE UM STERKEN AUG. 10, 1981 00:01:46 5.0T11 83 0 DECLARATION OF GLOBAL AREA MCLS. 00798/085A MESSAGE SYSTEM CLS LOCAL SG G MAIL:CLS.LOCAL 5.0T4 510 MESSAGE_SYSTEM.CLS_LOCAL.SG.085 1 LINE 86 5 PAGE UM STERKEN AUG. 10, 1981 00:01:47 5.0T11 84 0 Miscellaneous declarations needed by various CLS commands. This file should not be renumbered. 00798/086A MESSAGE SYSTEM CLS MISC SG G MAIL:CLS.MISC 5.0T4 511 MESSAGE_SYSTEM.CLS_MISC.SG.086 1 LINE 71 1 PAGE UM STERKEN AUG. 10, 1981 00:01:48 5.0T11 85 0 Miscellaneous dynamic record definitions needed by the CLS. 00798/087A MESSAGE SYSTEM CLS CONSTANT SG G MAIL:CLS.CONSTANT 5.0T4 512 MESSAGE_SYSTEM.CLS_CONSTA.SG.087 1 LINE 91 3 PAGE UM STERKEN AUG. 10, 1981 00:01:49 5.0T11 86 0 Miscellaneous constant declarations needed by the CLS. 00798/088A MESSAGE SYSTEM SUBR DECLARE SG G MAIL:SUB.DECLS 5.0T4 513 MESSAGE_SYSTEM.SUBR_DECLA.SG.088 1 LINE 59 1 PAGE UM STERKEN AUG. 10, 1981 00:01:50 5.0T11 87 0 "$CONTINUE WITH" file used to include all the standard declarations needed by the MSG subroutine components. 00798/089A MESSAGE SYSTEM SUBR GLOBAL SG G MAIL:SUB.GLOBAL 5.0T4 514 MESSAGE_SYSTEM.SUBR_GLOBA.SG.089 1 LINE 89 4 PAGE UM STERKEN AUG. 10, 1981 00:01:51 5.0T11 88 0 Declaration of global area MSUB (for the MSG subroutines). 00798/090A MESSAGE SYSTEM SUBR MISC SG G MAIL:SUB.MISC 5.0T4 515 MESSAGE_SYSTEM.SUBR_MISC.SG.090 1 LINE 87 5 PAGE UM STERKEN AUG. 10, 1981 00:01:52 5.0T11 89 0 Miscellaneous dynamic record definitions needed by MSG subroutines. 1 MON AUG 05/96 18:37:45 Page 602 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/091A MESSAGE SYSTEM SUBR CNSTNT SG G MAIL:SUB.CONSTANT 5.0T4 516 MESSAGE_SYSTEM.SUBR_CNSTN.SG.091 1 LINE 86 2 PAGE UM STERKEN AUG. 10, 1981 00:01:53 5.0T11 90 0 Miscellaneous constant declarations needed by the MSG subroutines. 00798/092A MESSAGE SYSTEM COMMON MISC SG G MAIL:COM.MISC 5.0T4 517 MESSAGE_SYSTEM.COMMON_MIS.SG.092 1 LINE 92 3 PAGE UM STERKEN AUG. 10, 1981 00:01:54 5.0T11 91 0 Miscellaneous dynamic record definitions needed by both the CLS and the MSG subroutines. 00798/093A MESSAGE SYSTEM MISC CONSTANT SG G MAIL:COM.CONSTANT 5.0T4 518 MESSAGE_SYSTEM.MISC_CONST.SG.093 1 LINE 88 3 PAGE UM STERKEN AUG. 10, 1981 00:01:55 5.0T11 92 0 Miscellaneous constant declarations needed by both the CLS and the MSG subroutines. 00798/094A MESSAGE SYSTEM GOM DECLARE SG G MAIL:GOM.DECLS 5.0T4 519 MESSAGE_SYSTEM.GOM_DECLAR.SG.094 1 LINE 96 3 PAGE UM STERKEN AUG. 10, 1981 00:01:55 5.0T11 93 0 Miscellaneous declarations (e.g. for the CLS transfer vector) needed for every GOM procedure. 00798/095A MESSAGE SYSTEM CLS DOC WF G MAIL:FMT.MSGCLS 5.0T4 520 MESSAGE_SYSTEM.CLS_DOC.WF.095 1 LINE 128 16 PAGE UM STERKEN AUG. 10, 1981 00:01:56 5.0T11 94 0 *FORMAT (308) source for the $MESSAGESYSTEM CLS documentation. ************************************************************************* D5.0 version: This documentation is a bit out of date. See the preliminary versions of Memo 424 (798/109) and Memo 425 (798/110) for more recent documentation. This subcomponent contains the only existing documentation for *MSGUTIL (798/7). ************************************************************************* 00798/096A MESSAGE SYSTEM SUBR DOC WF G MAIL:FMT.MSGSUBS 5.0T4 521 MESSAGE_SYSTEM.SUBR_DOC.WF.096 1 LINE 178 22 PAGE UM STERKEN AUG. 10, 1981 00:02:15 5.0T11 95 0 *FORMAT (308) source for the current MSG subroutine documentation. 00798/097A MESSAGE SYSTEM EXPLAIN FILE D G MAIL:EXPLAINFILE 5.0T4 522 MESSAGE_SYSTEM.EXPLAIN_FI.D.097 1 LINE 73 17 PAGE UM STERKEN AUG. 10, 1981 00:02:28 5.0T11 96 MAIL:EXPLAINFILE 0 Text used by the EXPLAIN command. Should be permitted as follows: U/N, R (PKEY=*SYS.MESSAGE, PKEY=*MESSAGESYST). 1 MON AUG 05/96 18:37:45 Page 603 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/098A MESSAGE SYSTEM CLS MSG SKEL D G MAIL:MCLS.SKELS 5.0T4 523 MESSAGE_SYSTEM.CLS_MSG_SK.D.098 1 LINE 188 3 PAGE UM STERKEN AUG. 10, 1981 00:02:38 5.0T11 97 MAIL:MCLS.SKELS 0 Message "skeletons" for generating CLS messages. Should be permitted U/R. 00798/099A MESSAGE SYSTEM MSG SUBR SKEL D G MAIL:MSUB.SKELS 5.0T4 524 MESSAGE_SYSTEM.MSG_SUBR_S.D.099 1 LINE 121 4 PAGE UM STERKEN AUG. 10, 1981 00:02:39 5.0T11 98 MAIL:MSUB.SKELS 0 Message "skeletons" for generating MSG subroutine messages. Should be permitted U/R. 00798/100A MESSAGE SYSTEM CLS DUMPS D G # MAIL:MCLS.DUMPS UM STERKEN MAIL:MCLS.DUMPS@E 0 File to which dumps for the CLS are written. Should be permitted as follows: U/N, WE PKEY=*MESSAGESYST. 00798/101A MESSAGE SYSTEM SUBR DUMPS D G # MAIL:MSUB.DUMPS UM STERKEN MAIL:MSUB.DUMPS@E 0 File to which dumps for the MSG subroutine are written. Should be permitted as follows: U/N, WE PKEY=*SYS.MESSAGE. 00798/102A MESSAGE SYSTEM GEN VM SKEL S* G MAIL:GENVMSKEL 5.0T4 525 MESSAGE_SYSTEM.GEN_VM_SKE.S?.102 1 LINE 80 13 PAGE UM STERKEN AUG. 10, 1981 00:02:40 5.0T11 99 0 GLP to generate an "in-core" list of frequently used messages. To run the program: $SOURCE MCLS.SKEL(0) see (798/103) $SOURCE MSUB.SKEL(0) see (798/104) 0 Referenced by comments of: 798/103, 798/104 00798/103A MESSAGE SYSTEM MCLSSKEL OC G MAIL:MCLSSKEL 5.0T4 526 MESSAGE_SYSTEM.MCLSSKEL.OC.103 1 LINE 80 3 PAGE UM STERKEN AUG. 10, 1981 00:02:42 5.0T11 100 0 Generated by (798/102). 0 Referenced by comments of: 798/102 00798/104A MESSAGE SYSTEM MSUBSKEL OC G MAIL:MSUBSKEL 5.0T4 527 MESSAGE_SYSTEM.MSUBSKEL.OC.104 1 LINE 80 3 PAGE UM STERKEN AUG. 10, 1981 00:02:43 5.0T11 101 0 Generated by (798/102). 0 Referenced by comments of: 798/102 1 MON AUG 05/96 18:37:45 Page 604 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00798/105A MESSAGE SYSTEM MACLIB SM G MAIL:MSG.MACLIB 5.0T4 528 MESSAGE_SYSTEM.MACLIB.SM.105 1 LINE 72 5 PAGE UM STERKEN AUG. 10, 1981 00:02:44 5.0T11 102 0 Macro library used by the CLS and MSG subroutine assembly routines. 0 Referenced by comments of: 798/31, 798/33, 798/65, 798/67, 798/73, 798/79, 798/81 00798/106C MESSAGE SYSTEM *MSGINFDSECT SA G *MSGINFDSECT 5.0T4 529 MESSAGE_SYSTEM.?MSGINFDSE.SA.106 1 LINE 67 1 PAGE UM STERKEN AUG. 10, 1981 00:02:45 5.0T11 103 *MSGINFDSECT 0 An assembly DSECT describing the information in the "msginfo" parameter of the MSGINF subroutine (798/47). 00798/107C MESSAGE SYSTEM *MSG C G *MSG 5.0T4 530 MESSAGE_SYSTEM.?MSG.C.107 1 LINE 64 1 PAGE UM STERKEN AUG. 10, 1981 00:02:46 5.0T11 104 *MSG 0 Operator file run every night at 2 am by the Clock Watcher (816) to purge old messages from *MESSAGES (798/9). Keeps a log in the file MAIL:MSG.LOG (798/108). *MSG must be permitted U/R, R PKEY=*JUNK (the *JUNK is necessary). 0 Referenced by comments of: 798/108, 816/6 00798/108C MESSAGE SYSTEM *MSG LOG D G # MAIL:MSG.LOG UM STERKEN MAIL:MSG.LOG@E 0 Log file written to by *MSG (798/107). 0 Referenced by comments of: 798/107 00798/109C MESSAGE SYSTEM MEMO 424 WF W073:MESSAGE.INTRO 5.0T4 531 MESSAGE_SYSTEM.MEMO_424.WF.109 1 LINE 68 15 PAGE UM MANUAL AUG. 10, 1981 00:02:47 5.0T11 105 0 This is CCMemo 424, "Introduction to the MTS Message System." ************************************************************************ D5.0 version: This is a preliminary version of CCMemo 424. ************************************************************************ 0 Referenced by comments of: 798/95 00798/110C MESSAGE SYSTEM MEMO 425 WT W073:MESSAGE.REF 5.0T4 532 MESSAGE_SYSTEM.MEMO_425.WT.110 1 LINE 68 15 PAGE UM MANUAL AUG. 10, 1981 00:03:14 5.0T11 106 0 This is the prose and text for CCMemo 425, "The MTS Message System." Should be concatenated with 798/111 and run through *TEXT360. 1 MON AUG 05/96 18:37:45 Page 605 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ************************************************************************ D5.0 version: This is a preliminary version of CCMemo 425. ************************************************************************ 0 Referenced by comments of: 798/95 00798/111C MESSAGE SYSTEM MEMO 425 WT W073:MESSAGE.CMDS(1,*L) 5.0T4 533 MESSAGE_SYSTEM.MEMO_425.WT.111 1 LINE 101 17 PAGE UM MANUAL AUG. 10, 1981 00:03:23 5.0T11 107 0 Contains command descriptions for CCMemo 425. Should be concatenated with 798/110 and run with *TEXT360. 00799/001C PAGESTAT SW G W034:PAGESTAT.S 5.0T3 852 PAGESTAT..SW.001 1 LINE 90 14 PAGE UM JWS JULY 03, 1981 20:10:28 5.0T8 231 0 PASCAL/UBC (1052) source for a statistics analyzing program. The PAGESTAT program should be $RUN concatenated with the READSTAT subroutine (799/3). Uses stat item 19 in the Supervisor (045). Requires the *ANALYSIS histogram subroutine (140/7). 0 Referenced by comments of: 799/3 00799/002A PAGESTAT OC G W034:PAGESTAT 5.0T3 853 PAGESTAT..OC.002 1 LINE 73 13 PAGE UM JWS JULY 03, 1981 20:10:38 5.0T8 232 0 Contains a $CONTINUE WITH UNSP:PAS.BC.LIB (1052/8) record. 00799/003A PAGESTAT READSTAT SUBR SA G W034:READSTAT.S 5.0T3 854 PAGESTAT.READSTAT_SUBR.SA.003 1 LINE 70 3 PAGE UM JWS JULY 03, 1981 20:10:40 5.0T8 233 0 Subroutine required by (799/1). 0 Referenced by comments of: 799/1 00799/004A PAGESTAT READSTAT SUBR OC G W034:READSTAT 5.0T3 855 PAGESTAT.READSTAT_SUBR.OC.004 1 LINE 80 1 PAGE UM JWS JULY 03, 1981 20:10:40 5.0T8 234 00800/001C CHKPAR CHKPAR SUBR SA G S0683 OGDEN FSNAME=CHKPAR.S 5.0T3 856 CHKPAR.CHKPAR_SUBR.SA.001 1 LINE 68 4 PAGE UBC MEIR OGDEN JAN. 28, 1981 20:39:43 5.0T8 235 0 This is the source for the CHKPAR subroutine which was written at UBC. It has been modified at UM to add some more BPI instructions to allow it to cope with calls that don't follow OS-type-I(S) calling sequences completely (e.g., don't set the VL bit). 1 MON AUG 05/96 18:37:45 Page 606 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00800/002C CHKPAR CHKPAR SUBR OC G # (PART OF *LIBRARY) UBC MEIR OGDEN 0 Object part of *LIBRARY (524/1) 00800/003C CHKPAR ERRSUB SUBR SA G S0683 OGDEN FSNAME=ERRSUB.S 5.0T3 857 CHKPAR.ERRSUB_SUBR.SA.003 1 LINE 72 2 PAGE UBC MEIR OGDEN JAN. 28, 1981 20:39:54 5.0T8 236 0 ERRSUB is a replacement for a FORTRAN routine written at UBC. It was written to avoid using FTNCMD to EQUATE 99=SERCOM and to deal with routine names greater that 6 characters. 00800/004C CHKPAR ERRSUB SUBR OC G # (PART OF *LIBRARY) UBC MEIR OGDEN 0 Object part of *LIBRARY (524/1) 00801/001C NPAR SA G S0683 OGDEN FSNAME=NPAR.S 5.0T3 858 NPAR..SA.001 1 LINE 68 2 PAGE UBC MEIR OGDEN JAN. 28, 1981 20:40:25 5.0T8 237 0 The NPAR subroutine was written at UBC. It has been modified at UM to add some BPI instructions to allow the routines to cope with calls that don't follow OS-type-I(S) calling sequences completely (e.g., don't set the VL bit). 00801/002C NPAR OC G # (PART OF *LIBRARY) UBC MEIR OGDEN 0 Object part of *LIBRARY (524/1) 00802/001C COMMAND MACROS LOW LEVEL SYM SA G W078:MM.LOWSYM.S 5.0T3 859 COMMAND_MACROS.LOW_LEVEL.SA.001 1 LINE 148 7 PAGE UM DWB JULY 03, 1981 20:10:49 5.0T8 238 0 This is a preliminary version of the MTS Command Macro facility symbol table routines. Uses COPY:CC.MACROS (1054/3) and the Command Macros macro library (802/3). 0 Referenced by comments of: 648/5 00802/002C COMMAND MACROS LOW LEVEL SYM OC G W078:MM.LOWSYM.O 5.0T3 860 COMMAND_MACROS.LOW_LEVEL.OC.002 1 LINE 690 2 PAGE UM DWB JULY 03, 1981 20:10:52 5.0T8 239 0 Referenced by comments of: 648/1 00802/003C COMMAND MACROS MACROS SM G W078:MM.MACROS 5.0T3 861 COMMAND_MACROS.MACROS.SM.003 1 LINE 73 5 PAGE UM DWB JULY 03, 1981 20:10:53 5.0T8 240 0 This is the macro library for the MTS Command Macro facility. 1 MON AUG 05/96 18:37:45 Page 607 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 802/1 00803/001C INDIRECT COST TABLE SA G MTS:ICOSTTAB(1,999) 5.0T3 862 INDIRECT_COST_TABLE..SA.001 1 LINE 73 1 PAGE UM MTS OGDEN JULY 03, 1981 20:10:54 5.0T8 241 0 Contains the source for the Indirect Cost Table used by TSA. It is optional and if omitted it is assumed there are no indirect costs. 00803/002C INDIRECT COST TABLE OC G # (PART OF RESIDENT SYSTEM) UM MTS OGDEN 0 Object part of Resident System (468) 00804/001C EXITDUMP SA G MTS:EXITDUMP(1000) 5.0T3 863 EXITDUMP..SA.001 1 LINE 71 4 PAGE UM OGDEN JULY 03, 1981 20:10:55 5.0T8 242 0 A program to enable and disable the MTS debugging jobdump in ERRRTN. Copies *LOADINFODSECT (001/4). 00804/002C EXITDUMP OC G MTS:EXITDUMP(1,999) 5.0T3 864 EXITDUMP..OC.002 1 LINE 80 5 PAGE UM OGDEN JULY 03, 1981 20:10:56 5.0T8 243 0 Contains a $CONTINUE WITH COPY:SYSDEFS (579/3) record. 00805/001C MTS VOLUME 17 MASTER WT S1497 MTSV17 'MTS MANUALS' POSN=NEWM1.V17 5.0T3 865 MTS_VOLUME_17.MASTER.WT.001 1 SEQ 132 125 PAGE UM MANUAL JULY 03, 1981 20:11:31 5.0T8 244 0 TEXT/360 MASTER FOR VOLUME 17, "INTEGRATED GRAPHICS SYSTEM," OF THE UM MTS MANUALS, DECEMBER 1980. EDITOR: RICHARD A. SALISBURY 00805/002C MTS VOLUME 17 PRINT PT S1497 MTSV17 'MTS MANUALS' POSN=PRINT1.V17 5.0T3 866 MTS_VOLUME_17.PRINT.PT.002 1 SEQ 132 246 PAGE UM MANUAL JULY 03, 1981 20:11:38 5.0T8 245 0 TEXT/360 PRINT FILE. 00805/003C MTS VOLUME 17 INDEX SOURCE D S1497 MTSV17 'MTS MANUALS' POSN=V17INDEXSOU 5.0T3 867 MTS_VOLUME_17.INDEX_SOURC.D.003 1 SEQ 58 7 PAGE UM MANUAL JULY 03, 1981 20:11:46 5.0T8 246 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 17. 00805/004C MTS VOLUME 17 FIGURES D S1497 MTSV17 'MTS MANUALS' POSN=V17FIGS 5.0T3 868 MTS_VOLUME_17.FIGURES.D.004 1 SEQ 154 6 PAGE UM MANUAL JULY 03, 1981 20:11:49 5.0T8 247 0 PLOT DESCRIPTION FILE (PDS) FOR FIGURES FOR MTS VOLUME 17. 1 MON AUG 05/96 18:37:45 Page 608 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00806/001C TAPE QUEUE SA G TAPE:TAPEQ.S 5.0T3 869 TAPE_QUEUE..SA.001 1 LINE 144 17 PAGE UM SHERRY JULY 03, 1981 20:11:50 5.0T8 248 0 Routine called by the MOUNT CLS (101/1) to queue 9TP tape mount requests. Requires D5.0 versions of MOUNT (101), *TAPERTN (135), TASKSTAT (647), SSRTN (413/1), SYSTEM STATUS CLS (413/5), SUPERVISOR (045), OPERATOR JOB (634), UNSP:TAPEDRIVES (693), and SYSDEFS (579). Uses SVC lock number 6 to update shared VM data structure. Defines the entry points MNTQUEUE, MNTQREL, MNTQSTAT, MNTQINFO. The comments in the source file describe the calling sequences and usage. Assemble using COPY:CC.MACROS (1054/3), COPY:MISC.MACROS (728), and COPY:MTS.MACROS (344/3), with PAR=PEXIT=*PEXIT. Copies COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087), COPY:JOBSTA (413/9), and COPY:MNTQINFDSECT (806/3). 0 Referenced by comments of: 101/1, 135/1, 806/3 00806/002C TAPE QUEUE OE G SEG2:TAPEQ 5.0T3 870 TAPE_QUEUE..OE.002 1 LINE 3396 2 PAGE UM SHERRY JULY 03, 1981 20:12:15 5.0T8 249 SEG2:TAPEQ 0 Object for the tape queueing routines. Loaded into shared VM after IPL by PISTLE, using the IPLCS modifier to resolve WX references by SSRTN (413/1). 00806/003C TAPE QUEUE DSECTS SA G COPY:MNTQINFDSECT 5.0T3 871 TAPE_QUEUE.DSECTS.SA.003 1 LINE 72 1 PAGE UM SHERRY JULY 03, 1981 20:12:16 5.0T8 250 0 Dsects describing information returned by the MNTQSTAT and MNTQINFO entry points of TAPEQ. Copied by TAPEQ (806/1), MOUNT CLS (101/1), and SSRTN (413/1). 0 Referenced by comments of: 101/1, 413/1, 806/1 00807/001C PGFCONVERT SW G S1153 UNSP VLO FSNAME=PGFCONVERT.PAS 5.0T3 872 PGFCONVERT..SW.001 1 LINE 95 7 PAGE UM UNSP FEB. 17, 1981 14:17:39 5.0T8 251 0 A program to convert files for use with the Xerox 9700. 00807/002C PGFCONVERT OE G UNSP:PGFCONVERT 5.0T4 534 PGFCONVERT..OE.002 1 LINE 5568 4 PAGE UM UNSP AUG. 10, 1981 00:03:51 5.0T11 108 0 Includes a version of CSNOOP.O (695/4). 00807/003C PGFCONVERT WF G S1153 UNSP VLO FSNAME=PGFCONVERT.FMT 5.0T3 873 PGFCONVERT..WF.003 1 LINE 68 1 PAGE UM UNSP FEB. 17, 1981 14:17:50 5.0T8 252 1 MON AUG 05/96 18:37:45 Page 609 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00808/001D TIME ROUTINES SA S W116:TIM.RELEASE 5.0T3 874 TIME_ROUTINES..SA.001 1 LINE 78 107 PAGE UM H YOUNG JULY 03, 1981 20:12:20 5.0T8 253 0 This is the source for Howard Young's general-purpose time/date routines, described in the MTS Development Workshop V Proceedings. Assemble with PAR=BATCH and 2=TIM.MACRO (808/3). ****************************************************************************** D5.0 version: This is still an experimental version. We strongly urge you not to make extensive use of these routines yet since they will not be compatible with the eventual standard ones, especially for input processing. ****************************************************************************** 0 Referenced by comments of: 809/7 00808/002D TIME ROUTINES OC S SEG2:TIM.RTNS 5.0T3 875 TIME_ROUTINES..OC.002 1 LINE 32767 13 PAGE UM H YOUNG JULY 03, 1981 20:12:30 5.0T8 254 SEG2:TIM.RTNS 0 Referenced by comments of: 816/2 00808/003D TIME ROUTINES MACROS SM S W116:TIM.MACRO 5.0T3 876 TIME_ROUTINES.MACROS.SM.003 1 LINE 73 5 PAGE UM H YOUNG JULY 03, 1981 20:12:32 5.0T8 255 0 Referenced by comments of: 808/1 00808/004D TIME ROUTINES MESSAGES M S W116:TIM.MSG 5.0T3 877 TIME_ROUTINES.MESSAGES.M.004 1 LINE 80 3 PAGE UM H YOUNG JULY 03, 1981 20:12:32 5.0T8 256 00809/001C CREP MAIN PGM SG G CREP:CREP.S 5.0T3 878 CREP.MAIN_PGM.SG.001 1 LINE 131 33 PAGE UM FRONCZAK JULY 03, 1981 20:12:33 5.0T8 257 0 CREP, the Controlled File Replacement and Annotation Facility, monitors and controls the replacement of public, SEG2:, NEW:, COPY:, etc., object and data files as well as resident, post-IPL system components. (809/16) is a writeup describing the organization and file access requirements. This subcomponent is a GOM main program, which INCLUDEs program common and various dynamic record definitions, subcomponents (809/8) through (809/12). 0 Referenced by comments of: 809/7 00809/002C CREP SUBRS SG G CREP:CREPEXSUBS.S 5.0T3 879 CREP.SUBRS.SG.002 1 LINE 111 35 PAGE UM FRONCZAK JULY 03, 1981 20:12:37 5.0T8 258 0 These are the CREP GOM subroutines. INCLUDEs program common and various 1 MON AUG 05/96 18:37:45 Page 610 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 dynamic record definitions, subcomponents (809/8) through (809/12). 0 Referenced by comments of: 809/7 00809/003C CREP KWS SUBR SA G CREP:CREPKWS.S 5.0T3 880 CREP.KWS_SUBR.SA.003 1 LINE 100 25 PAGE UM FRONCZAK JULY 03, 1981 20:12:41 5.0T8 259 0 CREP's keyword scan interface for CREP command processing. Assemble using COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 809/7 00809/004C CREP RWCK SUBRS SA G CREP:CREPRWCKSM.S 5.0T3 881 CREP.RWCK_SUBRS.SA.004 1 LINE 112 1 PAGE UM FRONCZAK JULY 03, 1981 20:12:44 5.0T8 260 0 Subroutines to support REWIND# calls and compute backup file checksums. Assemble using COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 809/7 00809/005C CREP SPANBREAK SUBR SA G CREP:SPANBREAK.S 5.0T3 882 CREP.SPANBREAK_SUBR.SA.005 1 LINE 76 4 PAGE UM FRONCZAK JULY 03, 1981 20:12:44 5.0T8 261 0 SPAN and BREAK functions to assist CREP command processing. 0 Referenced by comments of: 809/7 00809/006C CREP MCHPAT SUBR SA G CREP:BLDMCHPAT.S 5.0T3 883 CREP.MCHPAT_SUBR.SA.006 1 LINE 104 18 PAGE UM FRONCZAK JULY 03, 1981 20:12:45 5.0T8 262 0 Extended version of $FILESTATUS "?" pattern support. Used for the CREP STATUS command file name pattern processing. Assemble using COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 809/7 00809/007C CREP OBJECT OE G MTS:CREP 5.0T3 884 CREP.OBJECT.OE.007 1 LINE 32767 45 PAGE UM FRONCZAK JULY 03, 1981 20:12:49 5.0T8 263 MTS:CREP 0 This is the object of (809/1), (809/2), (809/3), (809/4), (809/5), (809/6), and (808/1). SEG2:S2L (559/3) is dynamically loaded when post-IPL components are being processed. CREP references SEG2:S2FILES (559/4), SEG2:S2MAP (559/10), ETC:CREPHELP (809/13), MTS:CREPDIR (809/14), and MTS:CREPLOG (809/15). 0 Referenced by comments of: 809/14, 809/15 1 MON AUG 05/96 18:37:45 Page 611 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00809/008C CREP COMMON SG G CREP:MAINCOMM.S 5.0T3 885 CREP.COMMON.SG.008 1 LINE 92 3 PAGE UM FRONCZAK JULY 03, 1981 20:12:52 5.0T8 264 0 GOM COMMON definitions. "INCLUDEd" in various CREP routines. 0 Referenced by comments of: 809/1, 809/2 00809/009C CREP CMD DRC SG G CREP:CMDDRC.S 5.0T3 886 CREP.CMD_DRC.SG.009 1 LINE 78 4 PAGE UM FRONCZAK JULY 03, 1981 20:12:53 5.0T8 265 0 GOM dynamic record definitions for CREP's commands. "INCLUDEd" in various CREP routines. 00809/010C CREP FILE STRUC DRC SG G CREP:CFNDRC.S 5.0T3 887 CREP.FILE_STRUC_DRC.SG.010 1 LINE 74 1 PAGE UM FRONCZAK JULY 03, 1981 20:12:53 5.0T8 266 0 GOM dynamic record definitions for CREP's internal file information structure. "INCLUDEd" in various CREP routines. 00809/011C CREP DIRLOG DRC SG G CREP:DIRLOGDRC.S 5.0T3 888 CREP.DIRLOG_DRC.SG.011 1 LINE 78 3 PAGE UM FRONCZAK JULY 03, 1981 20:12:54 5.0T8 267 0 GOM dynamic record definitions for the CREP directory and log files. "INCLUDEd" in various CREP routines. 00809/012C CREP GD/GFINFO DRC SG G CREP:INFDRC.S 5.0T3 889 CREP.GD/GFINFO_DRC.SG.012 1 LINE 71 3 PAGE UM FRONCZAK JULY 03, 1981 20:12:55 5.0T8 268 0 GOM dynamic record definitions of GDINFO/GFINFO information. "INCLUDEd" in various CREP routines. 0 Referenced by comments of: 809/1, 809/2 00809/013C CREP HELP FILE D G ETC:CREPHELP 5.0T3 890 CREP.HELP_FILE.D.013 1 LINE 78 5 PAGE UM FRONCZAK JULY 03, 1981 20:12:55 5.0T8 269 ETC:CREPHELP 0 The CREP help file. Line numbers in this file are important. 0 Referenced by comments of: 809/7 00809/014C CREP DIRECTORY FILE D G # MTS:CREPDIR UM FRONCZAK MTS:CREPDIR@E 0 This is the directory file required by CREP (809/7). 0 Referenced by comments of: 809/7 1 MON AUG 05/96 18:37:45 Page 612 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00809/015C CREP LOG FILE D G # MTS:CREPLOG UM FRONCZAK MTS:CREPLOG@E 0 This is the log file required by CREP (809/7). 0 Referenced by comments of: 809/7 00809/016C CREP SYS WRUP P G CREP:CREPSYSORG 5.0T3 891 CREP.SYS_WRUP.P.016 1 LINE 107 3 PAGE UM FRONCZAK JULY 03, 1981 20:12:57 5.0T8 270 0 System programmer writeup describing the CREP system organization and file access requirements. 0 Referenced by comments of: 809/1 00809/017C CREP USER WRUP WT G CREP:PAPER.CREP 5.0T3 892 CREP.USER_WRUP.WT.017 1 LINE 140 10 PAGE UM FRONCZAK JULY 03, 1981 20:12:57 5.0T8 271 0 TEXT360 source for the CREP user writeup. 0 Referenced by comments of: 809/18 00809/018C CREP WRUP GEN C G CREP:T360CREP 5.0T3 893 CREP.WRUP_GEN.C.018 1 LINE 104 1 PAGE UM FRONCZAK JULY 03, 1981 20:13:06 5.0T8 272 0 TEXT360 procedure to produce the CREP user writeup from (809/17). 00810/001C PMF INSTALLATION P PMF:INSTAL.NOTES 5.0T3 894 PMF.INSTALLATION.P.001 1 LINE 69 3 PAGE UM HANSEN JULY 03, 1981 20:13:07 5.0T8 273 0 The Project Management Facility (PMF) is a software tool to help users organize and document the components (source, object, listings, data, etc.) and procedures (commands) used in the development and installation of large scale software packages. This subcomponent contains the directions for installing and maintaining the PMF. 0 Referenced by comments of: 387/36, 686/37, 810/4, 821/1, 821/2, 821/5, 821/23, 1042/104 00810/002C PMF WRITEUP WF PMF:WRITEUP.S 5.0T3 895 PMF.WRITEUP.WF.002 1 LINE 82 18 PAGE UM HANSEN JULY 03, 1981 20:13:10 5.0T8 274 0 *FORMAT (308) source for the PMF writeup. 1 MON AUG 05/96 18:37:45 Page 613 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00810/003C PMF WRITEUP PF PMF:WRITEUP 5.0T3 896 PMF.WRITEUP.PF.003 1 LINE 69 21 PAGE UM HANSEN JULY 03, 1981 20:13:11 5.0T8 275 0 Printer-ready copy of the PMF writeup. Allow 30 pages to print. 00810/004C PMF CLS OE O *CLSPMF 5.0T3 897 PMF.CLS.OE.004 1 LINE 32767 38 PAGE UM HANSEN JULY 03, 1981 20:13:13 5.0T8 276 *CLSPMF 0 The complete, linkeditted object for the PMF. This component may reference several other files during execution. See the installation notes (810/1) for details. 0 Referenced by comments of: 810/5, 810/8 00810/005C PMF RUN OC O PMF:RUN.CURRENT 5.0T3 898 PMF.RUN.OC.005 1 LINE 9368 82 PAGE UM HANSEN JULY 03, 1981 20:13:15 5.0T8 277 0 $RUNable version of the PMF. This component, with selected csects from the libraries referenced, was linkeditted to create *CLSPMF (810/4). Contains "$CONTINUE WITH" records for the following files: PMF:CLSTEST.OA (810/16) PLUS:CLSPARSER.OL (1076/15) PLUS:CLSOBJLIB (1042/106) 00810/006C PMF ETC:PMF.HELP M G ETC:PMF.HELP 5.0T3 899 PMF.ETC:PMF.HELP.M.006 1 LINE 70 17 PAGE UM HANSEN JULY 03, 1981 20:13:20 5.0T8 278 ETC:PMF.HELP 0 The primary HELP file referenced by the PMF CLS. This file has $CONTINUE WITHs to itself, so it should be restored to the same name. 00810/007C PMF ETC:PMF.LOG D # ETC:PMF.LOG UM HANSEN 0 A place to put PMF usage statistics. This file must be a line file, permitted WE (PKEY=*#PMF, PKEY=*#CLS), but it is not necessary for PMF execution. 00810/008C PMF MAP D PMF:MAP.CURRENT 5.0T3 900 PMF.MAP.D.008 1 LINE 101 3 PAGE UM HANSEN JULY 03, 1981 20:13:22 5.0T8 279 0 The map produced by linkeditting the test version (810/15) to produce the CLS (810/4). 1 MON AUG 05/96 18:37:45 Page 614 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00810/009C PMF SOURCE LIB SQ G PMF:SOURCELIB 5.0T3 901 PMF.SOURCE_LIB.SQ.009 1 LINE 97 16 PAGE UM HANSEN JULY 03, 1981 20:13:22 5.0T8 280 0 The PLUS (1042) source library used for compiling the PLUS procedures for the PMF. 00810/010C PMF SOURCE SQ O PMF:PMF.SQ 5.0T3 902 PMF.SOURCE.SQ.010 1 LINE 105 49 PAGE UM HANSEN JULY 03, 1981 20:13:25 5.0T8 281 0 PLUS (1042) source for most of the PMF, excluding command processing, subtasking, and storage management. 00810/011C PMF CORE SQ O PMF:PMF.CORE 5.0T3 903 PMF.CORE.SQ.011 1 LINE 106 13 PAGE UM HANSEN JULY 03, 1981 20:13:28 5.0T8 282 0 PLUS (1042) source for the PMF procedure dealing with subtasking and storage management. 00810/012C PMF CMD SQ O PMF:PMF.CMD 5.0T3 904 PMF.CMD.SQ.012 1 LINE 106 36 PAGE UM HANSEN JULY 03, 1981 20:13:30 5.0T8 283 0 PLUS (1042) source for the PMF command processor. 00810/013C PMF ASM CODE SA O PMF:PMF.ASM 5.0T3 905 PMF.ASM_CODE.SA.013 1 LINE 72 9 PAGE UM HANSEN JULY 03, 1981 20:13:34 5.0T8 284 0 Source for the ASMH (737) parts of the PMF. 00810/014C PMF GRAMMAR D O PMF:GRAMMAR 5.0T3 906 PMF.GRAMMAR.D.014 1 LINE 87 9 PAGE UM HANSEN JULY 03, 1981 20:13:35 5.0T8 285 0 The grammar for use with the MTS/SPIRES Parser (1076). 00810/015C PMF CLSTEST SA O PMF:CLSTEST.SA 5.0T3 907 PMF.CLSTEST.SA.015 1 LINE 66 1 PAGE UM HANSEN JULY 03, 1981 20:13:36 5.0T8 286 0 Source for yet another CLS test driver. 0 Referenced by comments of: 810/8 00810/016C PMF CLSTEST OC O PMF:CLSTEST.OA 5.0T3 908 PMF.CLSTEST.OC.016 1 LINE 80 3 PAGE UM HANSEN JULY 03, 1981 20:13:37 5.0T8 287 0 Object for yet another CLS test driver. 0 Referenced by comments of: 810/5, 810/18 1 MON AUG 05/96 18:37:45 Page 615 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00810/017C PMF PROJECT FILE D PMF:PMFX 5.0T3 909 PMF.PROJECT_FILE.D.017 1 LINE 164 8 PAGE UM HANSEN JULY 03, 1981 20:13:38 5.0T8 288 0 The PMF project file describing the PMF itself. 0 Referenced by comments of: 810/18 00810/018C PMF MISC D PMF:MISC 5.0T3 910 PMF.MISC.D.018 1 LINE 39 1 PAGE UM HANSEN JULY 03, 1981 20:13:39 5.0T8 289 0 This file is used by the PMF when using the PMF project file (810/17). It contains miscellaneous data used by PMF procedures. Also contains $CONTINUE WITH PMF:CLSTEST.OA (810/16), PLUS:CLSPARSER.OL (1076/15), and PLUS:CLSOBJLIB (1042/104) records. 00811/001C SCREEN SUPPORT ROUTINES SOURCE LIB SQ S CRT:SS.SOURCELIB 5.0T3 911 SCREEN_SUPPORT_ROUTINES.S.SQ.001 1 LINE 137 11 PAGE UM CASHMAN JULY 03, 1981 20:13:40 5.0T8 290 0 The screen support routines provide device independent support for 3270 type displays, and Ontels running the OP/VIS software. Support for other terminals can be added. The screen support routines are often called the "9112" routines because their design followed proposals taken from papers 12 and 91 at the RPI MTS workshop in 1980. These routines are still under active development at UM. They have not been released to the public, but are used by the MTS editor and several internal programs. Before making extensive changes to these routines or attempting to add support for new devices please check with Brian Cashman at UM. This component is the PLUS (1042) source library for all screen support routines. Provides all necessary global variable, data structure, and subroutine declarations. 0 Referenced by comments of: 629/12, 634/7, 648/1, 648/11, 811/5, 811/7, 811/9, 812/1 00811/002C SCREEN SUPPORT ROUTINES USER LIB SQ S CRT:SS.USERLIB 5.0T3 912 SCREEN_SUPPORT_ROUTINES.U.SQ.002 1 LINE 107 3 PAGE UM CASHMAN JULY 03, 1981 20:13:52 5.0T8 291 0 PLUS (1042) source library that provides the PLUS declarations for the user-callable screen support routines. 00811/003C SCREEN SUPPORT ROUTINES ASM ROUTINES SA S CRT:SS.ASMRTNS.S 5.0T3 913 SCREEN_SUPPORT_ROUTINES.A.SA.003 1 LINE 145 6 PAGE UM CASHMAN JULY 03, 1981 20:13:53 5.0T8 292 0 Assembler source to interface device-independent screen support routines to the real world. Uses the Version Labeler (812) and SIDELABEL (747) for listing enhancements. $SOURCE to assemble. Requires COPY:MTS.MACROS (344/3), 1 MON AUG 05/96 18:37:45 Page 616 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COPY:CC.MACROS (1054/3), and COPY:MISC.MACROS (728). 0 Referenced by comments of: 811/4 00811/004C SCREEN SUPPORT ROUTINES ASM ROUTINES OC S CRT:SS.ASM.O 5.0T3 914 SCREEN_SUPPORT_ROUTINES.A.OC.004 1 LINE 80 4 PAGE UM CASHMAN JULY 03, 1981 20:13:55 5.0T8 293 0 Object produced by assembling (811/3). 00811/005C SCREEN SUPPORT ROUTINES DI ROUTINES SQ S CRT:SS.DIRTNS.S 5.0T3 915 SCREEN_SUPPORT_ROUTINES.D.SQ.005 1 LINE 159 37 PAGE UM CASHMAN AUG. 06, 1981 05:40:00 5.0T8 294 0 PLUS (1042) source for screen support device-independent routines. Uses the Version Labeler (812) and SIDELABEL (747) for listing enhancements. $SOURCE to compile. Requires (811/1) and (1042/4). 0 Referenced by comments of: 811/6 00811/006C SCREEN SUPPORT ROUTINES DI ROUTINES OC S CRT:SS.DI.O 5.0T3 916 SCREEN_SUPPORT_ROUTINES.D.OC.006 1 LINE 1084 15 PAGE UM CASHMAN AUG. 06, 1981 05:40:05 5.0T8 295 0 Object produced by compiling (811/5). 00811/007C SCREEN SUPPORT ROUTINES EURONET DDR SQ S CRT:SS.EURONET.S 5.0T3 917 SCREEN_SUPPORT_ROUTINES.E.SQ.007 1 LINE 110 15 PAGE UM CASHMAN AUG. 06, 1981 05:40:07 5.0T8 296 0 PLUS (1042) source for Euronet (ONTEL) device-dependent routines. Uses the Version Labeler (812) and SIDELABEL (747) for listing enhancements. $SOURCE to compile. Requires (811/1) and (1042/4). 0 Referenced by comments of: 811/8, 811/10 00811/008C SCREEN SUPPORT ROUTINES EURONET DDR OC S CRT:SS.EURONET.O 5.0T3 918 SCREEN_SUPPORT_ROUTINES.E.OC.008 1 LINE 1370 8 PAGE UM CASHMAN AUG. 06, 1981 05:40:08 5.0T8 297 0 Object produced by compiling (811/7). Due to external name conflicts with the IBM 3270 DDR (811/9), this should be linkeditted to remove all entry points except DDRONTEL. 00811/009C SCREEN SUPPORT ROUTINES 3270 DDR SQ S CRT:SS.3270.S 5.0T3 919 SCREEN_SUPPORT_ROUTINES.3.SQ.009 1 LINE 232 9 PAGE UM CASHMAN JULY 03, 1981 20:15:51 5.0T8 298 0 PLUS (1042) source for IBM 3270 device-dependent routines. Uses the Version Labeler (812) and SIDELABEL (747) for listing enhancements. $SOURCE to compile. Requires (811/1) and (1042/4). 0 Referenced by comments of: 811/8, 811/10 1 MON AUG 05/96 18:37:45 Page 617 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00811/010C SCREEN SUPPORT ROUTINES 3270 DDR OC S CRT:SS.3270.O 5.0T3 920 SCREEN_SUPPORT_ROUTINES.3.OC.010 1 LINE 1252 8 PAGE UM CASHMAN JULY 03, 1981 20:16:06 5.0T8 299 0 Object produced by compiling (811/9). Due to external name conflicts with the EURONET DDR (811/7), this should be linkeditted to remove all entry points except DDR3270. 00811/011C SCREEN SUPPORT ROUTINES OBJECT OE S SEG2:SCREENRTNS 5.0T3 921 SCREEN_SUPPORT_ROUTINES.O.OE.011 1 LINE 6032 27 PAGE UM CASHMAN JULY 03, 1981 20:16:08 5.0T8 300 SEG2:SCREENRTNS 0 This is the object for the screen support routines. It contains all the device-independent components and DDRs. The DDRs should have their internal subroutine names purged to prevent loader conflicts. 00811/012C SCREEN SUPPORT ROUTINES WRITEUP WF S CRT:SS.WRITEUP.W 5.0T3 922 SCREEN_SUPPORT_ROUTINES.W.WF.012 1 LINE 135 5 PAGE UM CASHMAN JULY 03, 1981 20:16:10 5.0T8 301 0 *FORMAT input used to generate Screen Support Routines writeup. $SOURCE to produce a writeup. 00812/001C VERSION LABELER SG G UNSP:ÂVERLAB.S 5.0T3 923 VERSION_LABELER..SG.001 1 LINE 161 3 PAGE UM UNSP BURLING JULY 03, 1981 20:16:11 5.0T8 302 0 This program provides listing enhancements; it was formerly distributed, on D4.0, as a part of *IG (498). It is used by the Disk Manager (769), *IG (498), the editor (648) and the Screen Support Routines (811). 0 Referenced by comments of: 498/1, 648/1, 769/1, 811/3, 811/5, 811/7, 811/9, 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 00812/002C VERSION LABELER OC G UNSP:VERLAB 5.0T3 924 VERSION_LABELER..OC.002 1 LINE 1904 3 PAGE UM UNSP BURLING JULY 03, 1981 20:16:12 5.0T8 303 00812/003C VERSION LABELER WRITEUP P UNSP:VERLAB.W 5.0T3 925 VERSION_LABELER.WRITEUP.P.003 1 LINE 69 1 PAGE UM UNSP BURLING JULY 03, 1981 20:16:14 5.0T8 304 00813/001C PL1 OPTIMIZING COMPILER INSTALL NOTES WF PL1:OPTINSTALL 5.0T3 926 PL1_OPTIMIZING_COMPILER.I.WF.001 1 LINE 68 4 PAGE UM TIFFANY JULY 03, 1981 20:16:15 5.0T8 305 0 Writeup describing how to install the PL1 Optimizing Compiler. ************************************************************************* D5.0 version: This is a preliminary version of the compiler. 1 MON AUG 05/96 18:37:45 Page 618 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ************************************************************************* 0 Referenced by comments of: 233/1 00813/002C PL1 OPTIMIZING COMPILER DESCRIPTION WF O PL1:DESCRIPTION 5.0T3 927 PL1_OPTIMIZING_COMPILER.D.WF.002 1 LINE 77 3 PAGE UM TIFFANY JULY 03, 1981 20:16:19 5.0T8 306 0 A brief description of the PL1 Optimizing Compiler in MTS. 00813/003C PL1 OPTIMIZING COMPILER OBJECT OE G # PL1:OPTIMIZER UM TIFFANY 0 Object of the PL1 Optimizing Compiler. Due to IBM copyrights restrictions, the object cannot be distributed. 0 Referenced by comments of: 813/11, 813/12, 813/14, 813/16 00813/004C PL1 OPTIMIZING COMPILER ETC:OPTPL1LINK OL G # ETC:OPTPL1LINK UM TIFFANY 0 Link library for the PL1 Optimizing Compiler. Due to IBM copyright restrictions, this cannot be distributed. 0 Referenced by comments of: 813/15, 813/17, 813/18, 813/19, 813/20, 813/21, 813/22, 813/23, 813/24, 813/25, 813/26, 813/27, 813/28, 813/29, 813/30, 813/31, 813/32, 813/33, 813/34, 813/35, 813/36, 813/37, 813/38, 813/39, 813/40, 813/41, 813/42, 813/43, 813/44 00813/005C PL1 OPTIMIZING COMPILER PPOPTIONS SM G # PL1:PPOPTIONS UM TIFFANY 0 Macro library to assemble (813/19) and (813/20). Due to IBM copyright restrictions, this cannot be distributed. This comes from options macros, file 2 on either the installation tape or the PTF tape, with copy sections PLIX1 and PLIX2 renamed as PLIXOPB and PLIXOPC respectively. 0 Referenced by comments of: 813/19, 813/20 00813/006C PL1 OPTIMIZING COMPILER MACLIB SM G # PL1:OPTPL1MAC UM TIFFANY 0 Main macro library for PL1 Optimizing Compiler. Due to IBM copyright restrictions, this cannot be distributed. See (813/7) for the MTS update to the IBM version. 0 Referenced by comments of: 813/7, 813/16, 813/17, 813/18, 813/21, 813/22, 813/23, 813/24, 813/25, 813/26, 813/27, 813/28, 813/29, 813/30, 813/31, 813/32, 813/33, 813/34, 813/35, 813/36, 813/37, 813/38, 813/39, 813/40, 813/41, 813/42, 813/43, 813/44 00813/007C PL1 OPTIMIZING COMPILER MACLIB UPD UC G S1516 'PL1 OPTIMIZER' FSNAME=OPTPL1MAC.UP 5.0T3 928 PL1_OPTIMIZING_COMPILER.M.UC.007 1 LINE 64 3 PAGE UM TIFFANY MAY 12, 1981 10:59:50 5.0T8 307 0 *CDUPDATE (1036) input to IBM's version of the compiler macros (813/6). Run 1 MON AUG 05/96 18:37:45 Page 619 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (506/8) on *CDUPDATE output with SPUNCH=OPTPL1MAC (813/6) to get the macro library. 0 Referenced by comments of: 813/6 00813/008C PL1 OPTIMIZING COMPILER LOADMAC SM G S1516 'PL1 OPTIMIZER' FSNAME=LOADMAC 5.0T3 929 PL1_OPTIMIZING_COMPILER.L.SM.008 1 LINE 33 1 PAGE UM TIFFANY MAR. 30, 1981 20:49:55 5.0T8 308 0 Macros to simulate LOAD, DELETE, LINK, and XCTL. 0 Referenced by comments of: 813/16, 813/17, 813/30, 813/37, 813/43 00813/009C PL1 OPTIMIZING COMPILER OPTLOAD SA G S1516 'PL1 OPTIMIZER' FSNAME=OPTLOAD.S 5.0T3 930 PL1_OPTIMIZING_COMPILER.O.SA.009 1 LINE 72 4 PAGE UM TIFFANY MAR. 30, 1981 20:50:17 5.0T8 309 0 Source for slow-loading module used chiefly for debugging the PL1 Optimizing Compiler. Assemble with TEST,PEXIT=*PEXIT (775). 0 Referenced by comments of: 813/11 00813/010C PL1 OPTIMIZING COMPILER OPTLOAD OC G S1516 'PL1 OPTIMIZER' FSNAME=OPTLOAD 5.0T3 931 PL1_OPTIMIZING_COMPILER.O.OC.010 1 LINE 1636 3 PAGE UM TIFFANY MAR. 30, 1981 20:50:07 5.0T8 310 00813/011C PL1 OPTIMIZING COMPILER FASTLOAD SA G S1516 'PL1 OPTIMIZER' FSNAME=FASTLOAD.S 5.0T3 932 PL1_OPTIMIZING_COMPILER.F.SA.011 1 LINE 73 11 PAGE UM TIFFANY MAR. 30, 1981 20:50:34 5.0T8 311 0 A much faster version of (813/9). Assemble with PEXIT=*PEXIT (775). Install into PL1:OPTIMIZER (813/3). 00813/012C PL1 OPTIMIZING COMPILER FASTLOAD OC G S1516 'PL1 OPTIMIZER' FSNAME=FASTLOAD 5.0T3 933 PL1_OPTIMIZING_COMPILER.F.OC.012 1 LINE 4945 5 PAGE UM TIFFANY MAR. 30, 1981 20:50:28 5.0T8 312 0 Install this into PL1:OPTIMIZER (813/3). 00813/013C PL1 OPTIMIZING COMPILER FIND SA G S1516 'PL1 OPTIMIZER' FSNAME=FIND.S 5.0T3 934 PL1_OPTIMIZING_COMPILER.F.SA.013 1 LINE 68 5 PAGE UM TIFFANY MAR. 30, 1981 20:50:52 5.0T8 313 0 Module to find the source for the corresponding %INCLUDE statements. Assemble with PEXIT=*PEXIT (775). Copies *GDINFODSECT (594). 00813/014C PL1 OPTIMIZING COMPILER FIND OC G S1516 'PL1 OPTIMIZER' FSNAME=FIND 5.0T3 935 PL1_OPTIMIZING_COMPILER.F.OC.014 1 LINE 2045 3 PAGE UM TIFFANY MAR. 30, 1981 20:50:46 5.0T8 314 0 Install this into PL1:OPTIMIZER (813/3). 1 MON AUG 05/96 18:37:45 Page 620 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00813/015C PL1 OPTIMIZING COMPILER IEL0UA LKED D G S1516 'PL1 OPTIMIZER' FSNAME=UA.LKED 5.0T3 936 PL1_OPTIMIZING_COMPILER.I.D.015 1 LINE 66 1 PAGE UM TIFFANY MAR. 13, 1981 14:13:40 5.0T8 315 0 This is the *LINKEDIT (297) input to produce from the assembled sources IEL0UA1 and IEL0UA2 the compiler phases IEL0UA, IEL0UAY, IEL0UAC, IEL0UAE, and IEL0UAT in ETC:OPTPL1LINK (813/4). 0 Referenced by comments of: 813/43 00813/016C PL1 OPTIMIZING COMPILER IEL0AA UC G S1516 'PL1 OPTIMIZER' FSNAME=AA.UP 5.0T3 937 PL1_OPTIMIZING_COMPILER.I.UC.016 1 LINE 69 4 PAGE UM TIFFANY MAR. 30, 1981 20:51:07 5.0T8 316 0 *CDUPDATE (1036) input for the source IEL0AA. Assemble with (813/6) and (813/8). Install into PL1:OPTIMIZER (813/3). 00813/017C PL1 OPTIMIZING COMPILER IEL0AE UC G S1516 'PL1 OPTIMIZER' FSNAME=AE.UP 5.0T3 938 PL1_OPTIMIZING_COMPILER.I.UC.017 1 LINE 67 5 PAGE UM TIFFANY APR. 20, 1981 11:01:32 5.0T8 317 0 *CDUPDATE (1036) input for the source IEL0AE. Assemble with (813/6) and (813/8). Install into phase IEL0AE in ETC:OPTPL1LINK (813/4). 00813/018C PL1 OPTIMIZING COMPILER IEL0AI SA G # (NOT DISTRIBUTED) UM TIFFANY 0 Source IEL0AI must be assembled with (813/6) due to change in (813/6). Install into phase IEL0AI in ETC:OPTPL1LINK (813/4). This subcomponent is included only as a reminder that IEL0AI must be assembled. There is no MTS update required. 00813/019C PL1 OPTIMIZING COMPILER IEL0AS SA G S1516 'PL1 OPTIMIZER' FSNAME=AS.S 5.0T3 939 PL1_OPTIMIZING_COMPILER.I.SA.019 1 LINE 72 1 PAGE UM TIFFANY MAR. 30, 1981 20:51:24 5.0T8 318 0 Assemble with (813/5). Install into phase IEL0AS in ETC:OPTPL1LINK (813/4). 0 Referenced by comments of: 813/5 00813/020C PL1 OPTIMIZING COMPILER IEL0AT SA G S1516 'PL1 OPTIMIZER' FSNAME=AT.S 5.0T3 940 PL1_OPTIMIZING_COMPILER.I.SA.020 1 LINE 72 1 PAGE UM TIFFANY MAR. 30, 1981 20:51:31 5.0T8 319 0 Assemble with (813/5). Install into phase IEL0AT in ETC:OPTPL1LINK (813/4). 0 Referenced by comments of: 813/5 00813/021C PL1 OPTIMIZING COMPILER IEL0BA UC G S1516 'PL1 OPTIMIZER' FSNAME=BA.UP 5.0T3 941 PL1_OPTIMIZING_COMPILER.I.UC.021 1 LINE 68 3 PAGE UM TIFFANY MAR. 30, 1981 20:51:42 5.0T8 320 0 *CDUPDATE (1036) input for source IEL0BA. Assemble with (813/6). Install 1 MON AUG 05/96 18:37:45 Page 621 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 object into phase IEL0BA in ETC:OPTPL1LINK (813/4). 00813/022C PL1 OPTIMIZING COMPILER IEL0CA UC G S1516 'PL1 OPTIMIZER' FSNAME=CA.UP 5.0T3 942 PL1_OPTIMIZING_COMPILER.I.UC.022 1 LINE 63 1 PAGE UM TIFFANY MAR. 30, 1981 20:51:50 5.0T8 321 0 *CDUPDATE (1036) input for source IEL0CA. Assemble with (813/6). Install object into phases IEL0CA1, IEL0CB, IEL0CC in ETC:OPTPL1LINK (813/4). Do not install in IEL0CA. 00813/023C PL1 OPTIMIZING COMPILER IEL0CA1 UC G S1516 'PL1 OPTIMIZER' FSNAME=CA1.UP 5.0T3 943 PL1_OPTIMIZING_COMPILER.I.UC.023 1 LINE 59 1 PAGE UM TIFFANY MAR. 30, 1981 20:51:58 5.0T8 322 0 *CDUPDATE (1036) input for source IEL0CA1. Assemble with (813/6). Install into phase IEL0CA1 in ETC:OPTPL1LINK (813/4). 00813/024C PL1 OPTIMIZING COMPILER IEL0CB UC G S1516 'PL1 OPTIMIZER' FSNAME=CB.UP 5.0T3 944 PL1_OPTIMIZING_COMPILER.I.UC.024 1 LINE 54 1 PAGE UM TIFFANY MAR. 30, 1981 20:52:07 5.0T8 323 0 *CDUPDATE (1036) input for source IEL0CB. Assemble with (813/6). Install into phase IEL0CB in ETC:OPTPL1LINK (813/4). 00813/025C PL1 OPTIMIZING COMPILER IEL0CB2 UC G S1516 'PL1 OPTIMIZER' FSNAME=CB2.UP 5.0T3 945 PL1_OPTIMIZING_COMPILER.I.UC.025 1 LINE 43 1 PAGE UM TIFFANY MAR. 30, 1981 20:52:17 5.0T8 324 0 *CDUPDATE (1036) input for source IEL0CB2. Assemble with (813/6). Install into phase IEL0CB in ETC:OPTPL1LINK (813/4). 00813/026C PL1 OPTIMIZING COMPILER IEL0CC UC G S1516 'PL1 OPTIMIZER' FSNAME=CC.UP 5.0T3 946 PL1_OPTIMIZING_COMPILER.I.UC.026 1 LINE 56 1 PAGE UM TIFFANY MAR. 30, 1981 20:52:22 5.0T8 325 0 *CDUPDATE (1036) input for source IEL0CC. Assemble with (813/6). Install into phase IEL0CC in ETC:OPTPL1LINK (813/4). 00813/027C PL1 OPTIMIZING COMPILER IEL0CC2 UC G S1516 'PL1 OPTIMIZER' FSNAME=CC2.UP 5.0T3 947 PL1_OPTIMIZING_COMPILER.I.UC.027 1 LINE 44 1 PAGE UM TIFFANY MAR. 30, 1981 20:52:32 5.0T8 326 0 *CDUPDATE (1036) input for source IEL0CC2. Assemble with (813/6). Install into phase IEL0CC in ETC:OPTPL1LINK (813/4). 00813/028C PL1 OPTIMIZING COMPILER IEL0CE1 SA G # (NOT DISTRIBUTED) UM TIFFANY 0 Source IEL0CE1 must be assembled with (813/6). Install into phase IEL0CE in ETC:OPTPL1LINK (813/4). Required due to change in (813/6). This subcomponent is included only as a reminder that IEL0CE1 must be assembled. There is no MTS update required. 1 MON AUG 05/96 18:37:45 Page 622 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00813/029C PL1 OPTIMIZING COMPILER IEL0CI1 SA G # (NOT DISTRIBUTED) UM TIFFANY 0 Source IEL0CI1 must be assembled with ETC:OPTPL1LINK (813/4) and (813/6). Install into phase IEL0CI in ETC:OPTPL1LINK (813/4). Assembly required due to change in (813/6). This subcomponent is included only as a reminder that IEL0CI1 must be assembled. There is no MTS update required. 00813/030C PL1 OPTIMIZING COMPILER IEL0CR UC G S1516 'PL1 OPTIMIZER' FSNAME=CR.UP 5.0T3 948 PL1_OPTIMIZING_COMPILER.I.UC.030 1 LINE 36 1 PAGE UM TIFFANY MAR. 13, 1981 14:16:53 5.0T8 327 0 *CDUPDATE (1036) input for source IEL0CR. Assemble with (813/6) and (813/8). Install into phase IEL0CA in ETC:OPTPL1LINK (813/4). 00813/031C PL1 OPTIMIZING COMPILER IEL0EA1 UC G S1516 'PL1 OPTIMIZER' FSNAME=EA1.UP 5.0T3 949 PL1_OPTIMIZING_COMPILER.I.UC.031 1 LINE 63 1 PAGE UM TIFFANY MAR. 30, 1981 20:52:43 5.0T8 328 0 *CDUPDATE (1036) input for source IEL0EA1. Assemble with (813/6). Install into phase IEL0EA in ETC:OPTPL1LINK (813/4). 00813/032C PL1 OPTIMIZING COMPILER IEL0EA2 UC G S1516 'PL1 OPTIMIZER' FSNAME=EA2.UP 5.0T3 950 PL1_OPTIMIZING_COMPILER.I.UC.032 1 LINE 68 1 PAGE UM TIFFANY MAR. 30, 1981 20:52:49 5.0T8 329 0 *CDUPDATE (1036) input for source IEL0EA2. Assemble with (813/6). Install into phase IEL0EA in ETC:OPTPL1LINK (813/4). 00813/033C PL1 OPTIMIZING COMPILER IEL0EA3 UC G S1516 'PL1 OPTIMIZER' FSNAME=EA3.UP 5.0T3 951 PL1_OPTIMIZING_COMPILER.I.UC.033 1 LINE 67 1 PAGE UM TIFFANY MAR. 30, 1981 20:53:03 5.0T8 330 0 *CDUPDATE (1036) input for source IEL0EA3. Assemble with (813/6). Install into phase IEL0EA in ETC:OPTPL1LINK (813/4). 00813/034C PL1 OPTIMIZING COMPILER IEL0IK SA G # (NOT DISTRIBUTED) UM TIFFANY 0 Source IEL0IK must be assembled with (813/6). Install into phase IEL0IK in ETC:OPTPL1LINK (813/4). Assembly required due to change in (813/6). This subcomponent is included only as a reminder that IEL0IK must be assembled. There is no MTS update required. 00813/035C PL1 OPTIMIZING COMPILER IEL0KV UC G S1516 'PL1 OPTIMIZER' FSNAME=KV.UP 5.0T3 952 PL1_OPTIMIZING_COMPILER.I.UC.035 1 LINE 42 1 PAGE UM TIFFANY MAR. 13, 1981 14:17:15 5.0T8 331 0 *CDUPDATE (1036) input for source IEL0KV. Assemble with (813/6). Install into phase IEL0KV in ETC:OPTPL1LINK (813/4). 1 MON AUG 05/96 18:37:45 Page 623 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00813/036C PL1 OPTIMIZING COMPILER IEL0OE UC G S1516 'PL1 OPTIMIZER' FSNAME=OE.UP 5.0T3 953 PL1_OPTIMIZING_COMPILER.I.UC.036 1 LINE 66 1 PAGE UM TIFFANY MAR. 13, 1981 14:17:21 5.0T8 332 0 *CDUPDATE (1036) input for source IEL0OE. Assemble with (813/6). Install into phase IEL0OE in ETC:OPTPL1LINK (813/4). 00813/037C PL1 OPTIMIZING COMPILER IEL0PA UC G S1516 'PL1 OPTIMIZER' FSNAME=PA.UP 5.0T3 954 PL1_OPTIMIZING_COMPILER.I.UC.037 1 LINE 60 1 PAGE UM TIFFANY MAR. 13, 1981 14:17:28 5.0T8 333 0 *CDUPDATE (1036) input for source IEL0PA. Assemble with (813/6) and (813/8). Install into phase IEL0PA in ETC:OPTPL1LINK (813/4). 00813/038C PL1 OPTIMIZING COMPILER IEL0PAL2 UC G S1516 'PL1 OPTIMIZER' FSNAME=PAL2.UP 5.0T3 955 PL1_OPTIMIZING_COMPILER.I.UC.038 1 LINE 60 1 PAGE UM TIFFANY MAR. 13, 1981 14:17:36 5.0T8 334 0 *CDUPDATE (1036) input for source IEL0PAL2. Assemble with (813/6). Install into phase IEL0PAL2 in ETC:OPTPL1LINK (813/4). This deletes a reference to IEAXPALL, an extended precision simulator. 00813/039C PL1 OPTIMIZING COMPILER IEL0PAL3 UC G S1516 'PL1 OPTIMIZER' FSNAME=PAL3.UP 5.0T3 956 PL1_OPTIMIZING_COMPILER.I.UC.039 1 LINE 60 1 PAGE UM TIFFANY MAR. 13, 1981 14:17:43 5.0T8 335 0 *CDUPDATE (1036) input for source IEL0PAL3. Assemble with (813/6). Install into phase IEL0PAL3 in ETC:OPTPL1LINK (813/4). This deletes a reference to IEAXPALL, an extended precision simulator. 00813/040C PL1 OPTIMIZING COMPILER IEL0PAL5 UC G S1516 'PL1 OPTIMIZER' FSNAME=PAL5.UP 5.0T3 957 PL1_OPTIMIZING_COMPILER.I.UC.040 1 LINE 60 1 PAGE UM TIFFANY MAR. 13, 1981 14:17:50 5.0T8 336 0 *CDUPDATE (1036) input for source IEL0PAL5. Assemble with (813/6). Install into phase IEL0PAL5 in ETC:OPTPL1LINK (813/4). This deletes a reference to IEAXPALL, an extended precision simulator. 00813/041C PL1 OPTIMIZING COMPILER IEL0SI UC G S1516 'PL1 OPTIMIZER' FSNAME=SI.UP 5.0T3 958 PL1_OPTIMIZING_COMPILER.I.UC.041 1 LINE 62 1 PAGE UM TIFFANY MAR. 30, 1981 20:53:12 5.0T8 337 0 *CDUPDATE (1036) input for source IEL0SI. Assemble with (813/6). Install into phase IEL0SI in ETC:OPTPL1LINK (813/4). 00813/042C PL1 OPTIMIZING COMPILER IEL0SM UC G S1516 'PL1 OPTIMIZER' FSNAME=SM.UP 5.0T3 959 PL1_OPTIMIZING_COMPILER.I.UC.042 1 LINE 56 1 PAGE UM TIFFANY MAR. 13, 1981 14:17:56 5.0T8 338 0 *CDUPDATE (1036) input for source IEL0SM. Assemble with (813/6). Install into phase IE0SM in ETC:OPTPL1LINK (813/4). 1 MON AUG 05/96 18:37:45 Page 624 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00813/043C PL1 OPTIMIZING COMPILER IEL0UA1 UC G S1516 'PL1 OPTIMIZER' FSNAME=UA1.UP 5.0T3 960 PL1_OPTIMIZING_COMPILER.I.UC.043 1 LINE 34 1 PAGE UM TIFFANY MAR. 13, 1981 14:18:05 5.0T8 339 0 *CDUPDATE (1036) input for source IEL0UA1. Assemble with (813/6) and (813/8). Use (813/15) to generate various compiler phases and then install them into ETC:OPTPL1LINK (813/4). 00813/044C PL1 OPTIMIZING COMPILER IEL0UE1 SA G # (NOT DISTRIBUTED) UM TIFFANY 0 Source IEL0UE1 must be assembled with (813/6) due to a change in (813/6). Install into phase IEL0UE in ETC:OPTPL1LINK (813/4). This subcomponent is included only as a reminder that IEL0UE1 must be assembled. There is no MTS update required. 00814/001C DUMP TAPE PROCESSING WRITEUP P DUMP:DUMP.DOC 5.0T3 961 DUMP_TAPE_PROCESSING.WRIT.P.001 1 LINE 68 4 PAGE UM STERKEN JULY 03, 1981 20:19:25 5.0T8 340 0 At UM, we have a rotating crew of "fire fighters" who are charged with keeping MTS up and running. One of the jobs fire-fighters must do is process job-dumps. This involves printing job-dump listings, routing them to the appropriate person, and releasing dump tapes. In an attempt to organize this work, we've set up user ID "DUMP" as a place to keep track of all of this. User ID "DUMP" has a "known" password: "DUMP". Its sigfile uses *CKID (680) to screen interactive users, and in batch mode it always runs DUMP:DUMP.BATCH (814/10) which prints listings of all recent job-dumps. Whenever a job-dump has occurred, the operators use operator job *DMP (814/8) to log the dump. *DMP runs DUMP:DUMPER (814/3), which logs the dump and submits a *BATCH* job to print the listing. The receipt number is placed in file DUMP:TAPES (814/7). This subcomponent contains further details on the processing of dump tapes and fire-fighting duties in general. 0 Referenced by comments of: 814/2, 814/9 00814/002C DUMP TAPE PROCESSING DUMPER SA G DUMP:DUMPER.S 5.0T3 962 DUMP_TAPE_PROCESSING.DUMP.SA.002 1 LINE 72 4 PAGE UM STERKEN JULY 03, 1981 20:19:28 5.0T8 341 0 Program used to print jobdumps via MTS:PRINTDUMP (400/19). See (814/1) for details. Copies *SENSEDSECT (3025) and *GDINFODSECT (594). 0 Referenced by comments of: 814/3 1 MON AUG 05/96 18:37:45 Page 625 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00814/003C DUMP TAPE PROCESSING DUMPER OC G DUMP:DUMPER 5.0T3 963 DUMP_TAPE_PROCESSING.DUMP.OC.003 1 LINE 3348 4 PAGE UM STERKEN JULY 03, 1981 20:19:29 5.0T8 342 DUMP:DUMPER 0 Object of (814/2). Has a $CONTINUE WITH DUMP:DMPMSG (814/5) record. 0 Referenced by comments of: 814/1, 814/4, 814/6, 814/7, 814/8 00814/004C DUMP TAPE PROCESSING DMPMSG SA G DUMP:DMPMSG.S 5.0T3 964 DUMP_TAPE_PROCESSING.DMPM.SA.004 1 LINE 68 3 PAGE UM STERKEN JULY 03, 1981 20:19:29 5.0T8 343 0 A subroutine used by (814/3) to read job-dump tape headers. Copies *CNFGINFODSECT (654). Assemble using the PRINTDUMP macros (400/18). 00814/005C DUMP TAPE PROCESSING DMPMSG OC G DUMP:DMPMSG 5.0T3 965 DUMP_TAPE_PROCESSING.DMPM.OC.005 1 LINE 80 1 PAGE UM STERKEN JULY 03, 1981 20:19:30 5.0T8 344 DUMP:DMPMSG 0 Referenced by comments of: 814/3 00814/006C DUMP TAPE PROCESSING LOG D # DUMP:LOG UM STERKEN DUMP:LOG@E 0 All dumps are logged in this file by (814/3). 00814/007C DUMP TAPE PROCESSING LOG D # DUMP:TAPES UM STERKEN DUMP:TAPES@E 0 File used by (814/3) to log a line for each active, unreleased dump tape. 0 Referenced by comments of: 814/1 00814/008C DUMP TAPE PROCESSING *DMP C G *DMP 5.0T3 966 DUMP_TAPE_PROCESSING.*DMP.C.008 1 LINE 51 1 PAGE UM STERKEN JULY 03, 1981 20:19:31 5.0T8 345 *DMP 0 Operator job which runs (814/3) to log job dumps. 0 Referenced by comments of: 814/1 00814/009C DUMP TAPE PROCESSING BATCH DUMP SA G DUMP:DUMP.BATCH.S 5.0T3 967 DUMP_TAPE_PROCESSING.BATC.SA.009 1 LINE 144 4 PAGE UM STERKEN JULY 03, 1981 20:19:32 5.0T8 346 0 Program to print job dumps via MTS:PRINTDUMP (400/19). It is run from the sigfile (814/12) of the user ID "DUMP" in batch mode. See (814/1) for details. 1 MON AUG 05/96 18:37:45 Page 626 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00814/010C DUMP TAPE PROCESSING BATCH DUMP OC G DUMP:DUMP.BATCH 5.0T3 968 DUMP_TAPE_PROCESSING.BATC.OC.010 1 LINE 80 5 PAGE UM STERKEN JULY 03, 1981 20:19:33 5.0T8 347 DUMP:DUMP.BATCH 0 Referenced by comments of: 814/1, 814/11 00814/011C DUMP TAPE PROCESSING BATCH DUMP D DUMP:DUMP.CMDS 5.0T3 969 DUMP_TAPE_PROCESSING.BATC.D.011 1 LINE 68 1 PAGE UM STERKEN JULY 03, 1981 20:19:34 5.0T8 348 DUMP:DUMP.CMDS 0 Contains commands for MTS:PRINTDUMP (400/19) used by (814/10). This file should not be renumbered. 00814/012C DUMP TAPE PROCESSING SIGFILE C DUMP:SIGFILE 5.0T3 970 DUMP_TAPE_PROCESSING.SIGF.C.012 1 LINE 33 1 PAGE UM STERKEN JULY 03, 1981 20:19:34 5.0T8 349 DUMP:SIGFILE 0 Sigfile for user ID "DUMP". 0 Referenced by comments of: 814/9 00815/001C SIDEBYSIDE SBSPROG SG G S0027 DISTRB FSNAME=SBSPROG 5.0T3 971 SIDEBYSIDE.SBSPROG.SG.001 1 LINE 70 2 PAGE UM UNSP ENGLE MAY 01, 1981 12:21:33 5.0T8 350 0 Program to place consecutive print pages in a side-by-side format, taking logical carriage control into account. 0 Referenced by comments of: 815/4, 815/7 00815/002 SIDEBYSIDE SBSPROG UC # (NOT CURRENTLY USED) UM UNSP ENGLE 0 Updates source from previous regular distribution to current distribution. 00815/003C SIDEBYSIDE SBSPROG OC G S0027 DISTRB FSNAME=SBSP 5.0T3 972 SIDEBYSIDE.SBSPROG.OC.003 1 LINE 80 4 PAGE UM UNSP ENGLE MAY 01, 1981 12:23:06 5.0T8 351 00815/004C SIDEBYSIDE SIDBYSID SG G S0027 DISTRB FSNAME=SIDBYSID 5.0T3 973 SIDEBYSIDE.SIDBYSID.SG.004 1 LINE 114 5 PAGE UM UNSP ENGLE MAY 01, 1981 12:23:42 5.0T8 352 0 Subroutine called by SBSPROG (815/1) to do most of the work. 0 Referenced by comments of: 815/7 00815/005 SIDEBYSIDE SIDBYSID UC G # (NOT CURRENTLY USED) UM UNSP ENGLE 0 Updates source from previous regular distribution to current distribution. 1 MON AUG 05/96 18:37:45 Page 627 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00815/006C SIDEBYSIDE SIDBYSID OC G S0027 DISTRB FSNAME=SBS 5.0T3 974 SIDEBYSIDE.SIDBYSID.OC.006 1 LINE 80 6 PAGE UM UNSP ENGLE MAY 01, 1981 12:24:17 5.0T8 353 00815/007C SIDEBYSIDE OE G UNSP:SIDEBYSIDE 5.0T3 975 SIDEBYSIDE..OE.007 1 LINE 8952 4 PAGE UM UNSP ENGLE JULY 03, 1981 20:19:55 5.0T8 354 UNSP:SIDEBYSIDE 0 Linkeditted version of SBSPROG (815/1) and SIDBYSID (815/4). 00815/008C SIDEBYSIDE WRITEUP WF S0027 DISTRB FSNAME=SIDBYSIDWRITEUP 5.0T3 976 SIDEBYSIDE.WRITEUP.WF.008 1 LINE 74 2 PAGE UM UNSP ENGLE APR. 15, 1981 15:41:09 5.0T8 355 0 Source for UNSP:SIDEBYSIDE writeup. 00816/001C CLOCKWATCHER MASTER TASK SA O W116:CLK.REL1.S 5.0T3 977 CLOCKWATCHER.MASTER_TASK.SA.001 1 LINE 73 35 PAGE UM H YOUNG JULY 03, 1981 20:19:59 5.0T8 356 0 This is the Clockwatcher program. It is used to start up specific tasks at specific times. The following files are required by the Clockwatcher: CLK.MASTER -- Holds the run information for the various jobs to be run. CLK.DAILY -- Holds the run schedules for the current day. CLK.UNATTEND -- Holds run schedules for jobs delayed due to unattended mode. CLK.AUDIT -- Traces the Clockwatcher's actions. Requires the (816/5) macro library. ******************************************************************************** D5.0 version: NOTE: The submission portion of the task is still under development. All data in CLK.MASTER must currently be entered by hand. See the (816/7) writeup for a description of how to do this. In addition, a "dummy" version of CLK.MASTER is included in this distribution as (816/6). ******************************************************************************** 0 Referenced by comments of: 798/107, 816/2, 816/5, 816/6 00816/002C CLOCKWATCHER MASTER TASK OE O SYS:CLOCKWATCHER 5.0T3 978 CLOCKWATCHER.MASTER_TASK.OE.002 1 LINE 4950 73 PAGE UM H YOUNG JULY 03, 1981 20:20:02 5.0T8 357 SYS:CLOCKWATCHER 0 Contains the linkedited object for (816/1) and (808/2). 0 Referenced by comments of: 816/3, 816/4 1 MON AUG 05/96 18:37:45 Page 628 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00816/003C CLOCKWATCHER *CLK C G *CLK 5.0T3 979 CLOCKWATCHER.*CLK.C.003 1 LINE 51 1 PAGE UM H YOUNG JULY 03, 1981 20:20:08 5.0T8 358 *CLK 0 Operator file containing commands used to start up the Clockwatcher (816/2). 00816/004C CLOCKWATCHER *CLR C G *CLR 5.0T3 980 CLOCKWATCHER.*CLR.C.004 1 LINE 35 1 PAGE UM H YOUNG JULY 03, 1981 20:20:09 5.0T8 359 *CLR 0 Operator file containing commands used to restart the Clockwatcher (816/2). 00816/005C CLOCKWATCHER MACLIB SM O W116:CLK.MACRO 5.0T3 981 CLOCKWATCHER.MACLIB.SM.005 1 LINE 72 5 PAGE UM H YOUNG JULY 03, 1981 20:20:10 5.0T8 360 0 Macro library required by (816/1). 0 Referenced by comments of: 816/1 00816/006C CLOCKWATCHER CLK.MASTER D W116:CLK.MASTER2 5.0T3 982 CLOCKWATCHER.CLK.MASTER.D.006 1 LINE 72 1 PAGE UM H YOUNG JULY 03, 1981 20:20:11 5.0T8 361 0 This is a "dummy" version of the CLK.MASTER file required by (816/1). It is included as an example of how that file should be constructed, and contains a run record for *MSG (798/107), the $MESSAGESYSTEM housekeeping job. 0 Referenced by comments of: 816/1 00816/007C CLOCKWATCHER WRITEUP P W116:CLK.DOC 5.0T3 983 CLOCKWATCHER.WRITEUP.P.007 1 LINE 76 2 PAGE UM H YOUNG JULY 03, 1981 20:20:12 5.0T8 362 0 This is a description of the Clockwatcher, as distributed on D5.0. 0 Referenced by comments of: 816/1 00817/001C PAGE PRINTER SQ G W267:PAGEPR.SQ(1000) 5.0T3 984 PAGE_PRINTER..SQ.001 1 LINE 221 7 PAGE UM UNSP EADIE JULY 03, 1981 20:20:13 5.0T8 363 0 Source code for the program to send copy via the Merit Network to Wayne State for printing on their Xerox 9700 Page Printer. Requires the NEW:PLUS.SOURCEL (1042/4) source library. 0 Referenced by comments of: 637/3 00817/002C PAGE PRINTER OC G UNSP:PAGEPR 5.0T3 985 PAGE_PRINTER..OC.002 1 LINE 6270 9 PAGE UM UNSP EADIE JULY 03, 1981 20:20:23 5.0T8 364 1 MON AUG 05/96 18:37:45 Page 629 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00817/003C PAGE PRINTER D G UNSP:PGF 5.0T3 986 PAGE_PRINTER..D.003 1 LINE 73 4 PAGE UM UNSP EADIE JULY 03, 1981 20:20:24 5.0T8 365 0 A file of DJDEs used to select various page printer formats and fonts. This file should not be renumbered. 00817/004C PAGE PRINTER D G UNSP:PGF.FONTS 5.0T3 987 PAGE_PRINTER..D.004 1 LINE 134 53 PAGE UM UNSP EADIE JULY 03, 1981 20:20:25 5.0T8 366 0 A file of sample pages. To obtain these (if such action is meaningful at your site), $RUN UNSP:PAGEPR SCARDS=UNSP:PGF.FONTS. 00817/005C PAGE PRINTER WRITEUP PF UNSP:PGF.W 5.0T3 988 PAGE_PRINTER.WRITEUP.PF.005 1 LINE 77 9 PAGE UM UNSP EADIE JULY 03, 1981 20:20:30 5.0T8 367 00818/001C PATHDEVICE SA G DMGR:PATHDEV.S 5.0T3 989 PATHDEVICE..SA.001 1 LINE 117 3 PAGE UM HELFFRICH JULY 03, 1981 20:20:32 5.0T8 368 0 Subroutine which will successively return all paths to a device, and whether each path is online or not. Used by the Disk Manager (769) and SSRTN (413/1). Contains commands which may be $SOURCEd to for assembly. Requires COPY:CC.MACROS (1054/3) and COPY:LLMPSEQU (087). 0 Referenced by comments of: 413/1 00818/002C PATHDEVICE OC G # (PART OF RESIDENT SYSTEM) UM HELFFRICH 0 Object part of Resident System (468) 00819/001C T11 JOB SA G S0938 FSAVE2 VLO FSNAME=T11.S 5.0T3 990 T11_JOB..SA.001 1 LINE 70 3 PAGE UM MTA APR. 25, 1981 01:23:41 5.0T8 369 0 Job program to load a 3211 character set and FCB for a T11 print train. Accepts same parameters as P11 (1027). 0 Referenced by comments of: 3/1 00819/002C T11 JOB OC G # (PART OF RESIDENT SYSTEM) UM MTA 0 Object part of Resident System (468) 00820/001C PM2 DRIVER OE G SYS:PM2(1,999) 5.0T3 991 PM2.DRIVER.OE.001 1 LINE 1892 3 PAGE UM MTA AUG. 21, 1981 05:42:49 5.0T8 370 0 PM2 is STC's program to format and print disk, tape, and 4305 errors. It is copyrighted and therefore cannot be distributed. These components have been 1 MON AUG 05/96 18:37:45 Page 630 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 used with version 2.0 of PM2. This subcomponent is the driver program for running PM2 under VSS (1078). It is obtained by assembling VSS.DRIVER (1078/39) with PAR=SYSPARM=PM2. Contains a $CONTINUE WITH ETC:VSS (1078/38) record. 0 Referenced by comments of: 621/8, 655/4 00820/002C PM2 COMMANDS C SYS:PM2(*F,0) 5.0T3 992 PM2.COMMANDS.C.002 1 LINE 22 1 PAGE UM MTA JULY 03, 1981 20:21:49 5.0T8 371 0 Commands to run PM2 under VSS (1078). Contains only an EXEC command for ETC:PM2.CMDS (820/3). 0 Referenced by comments of: 820/3 00820/003C PM2 EXEC C ETC:PM2.CMDS 5.0T3 993 PM2.EXEC.C.003 1 LINE 116 2 PAGE UM MTA JULY 03, 1981 20:21:50 5.0T8 372 0 EXEC file for PM2. Lines 1 - 99 contain commands for running STCPM2FE and and lines 100 - *L contain lines used by SYS:PM2 (820/2) to run STCPM2. Requires ETC:PM2.LIB (820/4), ETC:PM2.HST (820/5), and ETC:PM2.CTL (820/7). 0 Referenced by comments of: 820/2 00820/004C PM2 LIBRARY OL G # ETC:PM2.LIB UM MTA 0 Object library for version 2.0 of PM2. Not distributed due to copyright restrictions. 0 Referenced by comments of: 820/3 00820/005C PM2 HISTORY FILE D # ETC:PM2.HST UM MTA 0 VSS simulated BDAM file that is used to contain a historical record of the last 3 months of errors for each device known to PM2. Built by STCPM2FE using information about the local installation's configuration. 0 Referenced by comments of: 820/3 00820/006C PM2 UM CONFIG D MTA:PM2.CONFIG 5.0T3 994 PM2.UM_CONFIG.D.006 1 LINE 32 1 PAGE UM MTA JULY 03, 1981 20:21:51 5.0T8 373 0 Input to STCPM2FE to produce the PM2 history file for the UM configuration. 1 MON AUG 05/96 18:37:45 Page 631 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00820/007C PM2 CNVTEREP CTL D ETC:PM2.CTL 5.0T3 995 PM2.CNVTEREP_CTL.D.007 1 LINE 92 1 PAGE UM MTA JULY 03, 1981 20:21:52 5.0T8 374 0 Contains 3 lines read by CNVTEREP (655/5) to tell it how and what to convert to LOGREC format for PM2. 0 Referenced by comments of: 820/3 00820/008C PM2 OBJECT OC # S0938 FSAVE2 VLO FSNAME=STCPM2TAPE.FILE13 UM MTA 0 Object for PM2. Not distributed due to copyright restrictions. 00820/009C PM2 OS JCL # S0938 FSAVE2 VLO FSNAME=STCPM2TAPE.FILE14 UM MTA 0 OS JCL for running PM2 in OS/VS. Not distributed due to copyright restrictions. 00820/010C PM2 WRITEUP WF MTA:PM2.W 5.0T3 996 PM2.WRITEUP.WF.010 1 LINE 73 1 PAGE UM MTA JULY 03, 1981 20:21:53 5.0T8 375 0 Instructions for running PM2 in MTS. 00821/001C USERDIRECTORY PLUS SOURCE SQ W274:99UD01 5.0T4 535 USERDIRECTORY.PLUS_SOURCE.SQ.001 1 LINE 87 80 PAGE UM BAUSHKE AUG. 21, 1981 06:45:41 5.0T11 109 0 This file is all of the PLUS (1042) source for the *USERDIRECTORY program and the search subroutines. It is recommended that it be manipulated with the Program Management Facility, or PMF (810), using the project file in (821/23). 0 Referenced by comments of: 798/1, 821/2, 821/3, 821/8, 821/11, 821/12 00821/002C USERDIRECTORY DECLARATIONS SQ O W274:99UD02 5.0T4 536 USERDIRECTORY.DECLARATION.SQ.002 1 LINE 72 17 PAGE UM BAUSHKE AUG. 21, 1981 06:45:50 5.0T11 110 0 This contains the PLUS (1042) source library for the PLUS routines in (821/1). It can be manipulated using the PMF (810) and (821/6). 0 Referenced by comments of: 821/4 00821/003C USERDIRECTORY MTS LIBRARY SQ G W274:MTS.PLUSLIB 5.0T4 537 USERDIRECTORY.MTS_LIBRARY.SQ.003 1 LINE 78 9 PAGE UM BAUSHKE AUG. 21, 1981 06:45:52 5.0T11 111 0 This file contains various declarations for MTS internal routines. Of special note is the CLS Transfer Vector definition. It is required by component (821/1). 1 MON AUG 05/96 18:37:45 Page 632 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00821/004C USERDIRECTORY PARSER TYPES SQ G W274:PARSERTYPES 5.0T4 538 USERDIRECTORY.PARSER_TYPE.SQ.004 1 LINE 68 1 PAGE UM BAUSHKE AUG. 21, 1981 06:45:56 5.0T11 112 0 This file is the result of putting (821/6) and (821/7) through the Parser (1076). This file is referenced by (821/2). It contains the declarations for the semantic actions performed in the name-lookup routines and the command language parsers. 00821/005C USERDIRECTORY PHONCODE SA O W274:99UD03(1,999) 5.0T4 539 USERDIRECTORY.PHONCODE.SA.005 1 LINE 69 6 PAGE UM BAUSHKE AUG. 21, 1981 06:45:57 5.0T11 113 0 This is the source for the string-to-phonetic-code conversion routine. Accessible through the PMF (810). 0 Referenced by comments of: 821/11, 821/12 00821/006C USERDIRECTORY COMMAND SYNTAX S O W274:99UD03(1001,1999) 5.0T4 540 USERDIRECTORY.COMMAND_SYN.S.006 1 LINE 86 6 PAGE UM BAUSHKE AUG. 21, 1981 06:45:59 5.0T11 114 0 This is the UBC Parser (1076) source for the command-language of *USERDIRECTORY (821/11). It is PMF module "SYNTAX/S". 0 Referenced by comments of: 821/2, 821/4, 821/11 00821/007C USERDIRECTORY NAME SYNTAX S O W274:99UD03(2001,2999) 5.0T4 541 USERDIRECTORY.NAME_SYNTAX.S.007 1 LINE 87 2 PAGE UM BAUSHKE AUG. 21, 1981 06:46:02 5.0T11 115 0 This is the UBC Parser (1076) source for the routine which parses names in *USERDIRECTORY (821/11) and for the CLS/user-callable routines. 0 Referenced by comments of: 821/4, 821/11, 821/12 00821/008C USERDIRECTORY UDSET TABLE SA G W274:99UD03(3001,3999) 5.0T4 542 USERDIRECTORY.UDSET_TABLE.SA.008 1 LINE 27 1 PAGE UM BAUSHKE AUG. 21, 1981 06:46:04 5.0T11 116 0 Contains a table of constants for use in UDSET and UDGET routines in component (821/1). 0 Referenced by comments of: 821/12 00821/009C USERDIRECTORY UDSYMS SA G W274:99UD03(4001,4999) 5.0T4 543 USERDIRECTORY.UDSYMS.SA.009 1 LINE 72 3 PAGE UM BAUSHKE AUG. 21, 1981 06:46:06 5.0T11 117 0 Contains the UDSYMS transfer vector and interface code for each of the name-search subroutines. 0 Referenced by comments of: 821/12 1 MON AUG 05/96 18:37:45 Page 633 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00821/010C USERDIRECTORY SETATTN SA G W274:99UD03(5001,5999) 5.0T4 544 USERDIRECTORY.SETATTN.SA.010 1 LINE 68 1 PAGE UM BAUSHKE AUG. 21, 1981 06:46:09 5.0T11 118 0 This contains an attention-interrupt handling routine for use by both the command processor for *USERDIRECTORY and the name-search subroutines. 0 Referenced by comments of: 821/12 00821/011C USERDIRECTORY *USERDIRECTORY OE O *USERDIRECTORY 5.0T4 545 USERDIRECTORY.?USERDIRECT.OE.011 1 LINE 11822 71 PAGE UM BAUSHKE AUG. 21, 1981 06:46:11 5.0T11 119 MTS.:*USERDIRECTORY 0 This is the object of (821/1), (821/5), (821/6), and (821/7). It must be a PROT=OFF file to work properly. Contains a $CONTINUE WITH PLUS:PARSER.OL (1076/6) + NEW:PLUS.OBJLIB (1042/50) + COPY:SYSDEFS (579/3) record. ************************************************************************** D5.0 version: This version is not fully implemented and contains bugs. ************************************************************************** 0 Referenced by comments of: 821/6, 821/7, 821/14, 821/16, 821/17, 821/18, 821/19, 821/21, 821/22 00821/012C USERDIRECTORY SEARCH STUFF OC O W274:UD.O 5.0T4 546 USERDIRECTORY.SEARCH_STUF.OC.012 1 LINE 6390 27 PAGE UM BAUSHKE AUG. 21, 1981 06:46:14 5.0T11 120 0 This contains the object for (821/1), (821/5), (821/7), (821/8), (821/9), (821/10). 0 Referenced by comments of: 821/13, 821/14, 821/15 00821/013C USERDIRECTORY SEG2 FILE OE O *UDROUTINES 5.0T4 547 USERDIRECTORY.SEG2_FILE.OE.013 1 LINE 32767 15 PAGE UM BAUSHKE AUG. 21, 1981 06:46:16 5.0T11 121 MTS.:*UDROUTINES 0 This is the object for the name-search routines and should be loaded into shared VM at IPL by PISTLE. It contains the entry point UDSYMS which is a transfer vector for the name-search routines. It is a linkeditted version of (821/12). 0 Referenced by comments of: 821/15 00821/014C USERDIRECTORY SUB RELEASE C G W274:UD.SUBREL 5.0T4 548 USERDIRECTORY.SUB_RELEASE.C.014 1 LINE 65 1 PAGE UM BAUSHKE AUG. 21, 1981 06:46:17 5.0T11 122 0 This source file is used to create (821/12) from *USERDIRECTORY (821/11). It takes object from *USERDIRECTORY (821/11), extracts the appropriate routines, and puts the result into the SEARCH STUFF object module (821/12). 1 MON AUG 05/96 18:37:45 Page 634 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00821/015C USERDIRECTORY SEG2 RELEASE C G W274:UD.INSTALL 5.0T4 549 USERDIRECTORY.SEG2_RELEAS.C.015 1 LINE 48 1 PAGE UM BAUSHKE AUG. 21, 1981 06:46:17 5.0T11 123 0 This source file is used to fill *UDROUTINES (821/13). It takes object from the SEARCH STUFF module (821/12), linkedits it, and puts the result into (821/13). 00821/016C USERDIRECTORY *MTSUSERS D O # *MTSUSERS UM BAUSHKE *MTSUSERS@E 0 This file is the master data base for the system user-directory. It is constructed by *USERDIRECTORY (821/11). To initialize this file $EMPTY it. 00821/017C USERDIRECTORY *MTSUSERS.CCID D O # *MTSUSERS.CCID UM BAUSHKE *MTSUSERS.CCID@E 0 This file is the ccid-to-nameid data base for the system user- directory. It is constructed by *USERDIRECTORY (821/11). To initialize, $EMPTY it. 00821/018C USERDIRECTORY *MTSUSERS.PROJ D O # *MTSUSERS.PROJ UM BAUSHKE *MTSUSERS.PROJ@E 0 This file is the projectid-to-nameid data base for the system user- directory. It is constructed by *USERDIRECTORY (821/11). To initialize, $EMPTY it. 00821/019C USERDIRECTORY *MTSUSERS.NAME D O # *MTSUSERS.NAMEID UM BAUSHKE *MTSUSERS.NAMEID@E 0 This file is the sub-nameid-to-nameid data base for the system user- directory. It is constructed by *USERDIRECTORY (821/11). To initialize, $EMPTY it. 00821/020C USERDIRECTORY *MTSUSERS.OTHE D O # *MTSUSERS.OTHER UM BAUSHKE *MTSUSERS.OTHER@E 0 This file is the data base containing auxiliary information, such as business addresses and the like, for the system user-directory. To initialize, $EMPTY it. 00821/021C USERDIRECTORY ETC.:UD.HELP D O ETC.:UD.HELP 5.0T4 550 USERDIRECTORY.ETC.:UD.HEL.D.021 1 LINE 73 7 PAGE UM BAUSHKE AUG. 21, 1981 06:46:18 5.0T11 124 ETC.:UD.HELP 0 Contains help text for *USERDIRECTORY (821/11). 1 MON AUG 05/96 18:37:45 Page 635 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00821/022C USERDIRECTORY ETC.:UD.MESSAG D O ETC.:UD.MESSAGES 5.0T4 551 USERDIRECTORY.ETC.:UD.MES.D.022 1 LINE 60 1 PAGE UM BAUSHKE AUG. 21, 1981 06:46:19 5.0T11 125 ETC.:UD.MESSAGES 0 Contains prompt text used by *USERDIRECTORY (821/11). 00821/023C USERDIRECTORY PROJECT FILE D O W274:UD 5.0T4 552 USERDIRECTORY.PROJECT_FIL.D.023 1 LINE 206 5 PAGE UM BAUSHKE AUG. 21, 1981 06:46:20 5.0T11 126 0 This is the PMF (810) project file for the USERDIRECTORY routines. Documentation for the PMF modules and procedures is available in the project. 0 Referenced by comments of: 821/1 00821/024C USERDIRECTORY DOCUMENTATION WF O W274:99UD04(1000,2999) 5.0T4 553 USERDIRECTORY.DOCUMENTATI.WF.024 1 LINE 113 13 PAGE UM BAUSHKE AUG. 21, 1981 06:46:21 5.0T11 127 0 This contains the documentation for the *USERDIRECTORY program, the search routines, and information about possible future changes. ************************************************************************** D5.0 version: This documentation is out-of-date and incomplete!!!!!!! ************************************************************************** 00822/001C FLOPPY DISK SUPPORT MAIN SF G FLOP:FTST 5.0T3 997 FLOPPY_DISK_SUPPORT.MAIN.SF.001 1 LINE 98 15 PAGE UM CASHMAN JULY 03, 1981 20:21:54 5.0T8 376 0 $SOURCE FLOP:FTST. FORTRAN source for main program. Uses *OVERDRIVE (667) and *FTN (551/3). Also assembles FLOP:FTSTASMH (822/2). VERLAB (812) and EDGER (747/5) are used for listing control. Requires FLOP:FLPCOM (822/3). 0 Referenced by comments of: 822/2 00822/002C FLOPPY DISK SUPPORT MAIN SA G FLOP:FTSTASMH 5.0T3 998 FLOPPY_DISK_SUPPORT.MAIN.SA.002 1 LINE 68 3 PAGE UM CASHMAN JULY 03, 1981 20:21:56 5.0T8 377 0 Assembled with FLOP:FTST (822/1). *ASMH (737) source support routines for main program. 0 Referenced by comments of: 822/1 00822/003C FLOPPY DISK SUPPORT MAIN SF G FLOP:FLPCOM 5.0T3 999 FLOPPY_DISK_SUPPORT.MAIN.SF.003 1 LINE 68 1 PAGE UM CASHMAN JULY 03, 1981 20:21:57 5.0T8 378 0 Common definitions for all floppy routines. 0 Referenced by comments of: 822/1, 822/5, 822/9, 822/13, 822/16, 822/19 1 MON AUG 05/96 18:37:45 Page 636 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00822/004C FLOPPY DISK SUPPORT MAIN OC G FLOP:FLOPPY 5.0T3 1000 FLOPPY_DISK_SUPPORT.MAIN.OC.004 1 LINE 2814 12 PAGE UM CASHMAN JULY 03, 1981 20:21:58 5.0T8 379 0 Main program object. This will load the object of the particular floppy disk directory support routine. 00822/005C FLOPPY DISK SUPPORT CP/M SF G FLOP:CPM.S 5.0T3 1001 FLOPPY_DISK_SUPPORT.CP/M.SF.005 1 LINE 87 18 PAGE UM CASHMAN JULY 03, 1981 20:22:01 5.0T8 380 0 CP/M directory type support routines source code. Uses *OVERDRIVE (667) and *FTN (551/3). Also assembles (822/6). Uses VERLAB (812) and EDGER (747/5) for listing enhancements. Requires FLOP:CPM.EQU (822/7) and FLOP:FLPCOM (822/3). 00822/006C FLOPPY DISK SUPPORT CP/M SA G FLOP:CPMASMH 5.0T3 1002 FLOPPY_DISK_SUPPORT.CP/M.SA.006 1 LINE 71 3 PAGE UM CASHMAN JULY 03, 1981 20:22:08 5.0T8 381 0 CP/M support routines *ASMH (737) source. 0 Referenced by comments of: 822/5 00822/007C FLOPPY DISK SUPPORT CP/M SF G FLOP:CPM.EQU 5.0T3 1003 FLOPPY_DISK_SUPPORT.CP/M.SF.007 1 LINE 53 1 PAGE UM CASHMAN JULY 03, 1981 20:22:09 5.0T8 382 0 CP/M directory type specific common block definitions. 0 Referenced by comments of: 822/5 00822/008C FLOPPY DISK SUPPORT CP/M OC G FLOP:CPMLIB 5.0T3 1004 FLOPPY_DISK_SUPPORT.CP/M.OC.008 1 LINE 2508 13 PAGE UM CASHMAN JULY 03, 1981 20:22:10 5.0T8 383 0 Object for CP/M directory type support. 00822/009C FLOPPY DISK SUPPORT ICOM SF G FLOP:ICOM.S 5.0T3 1005 FLOPPY_DISK_SUPPORT.ICOM.SF.009 1 LINE 87 12 PAGE UM CASHMAN JULY 03, 1981 20:22:11 5.0T8 384 0 FORTRAN source for ICOM directory type support. $SOURCE ICOM.S. Also assembles ICOMASMH (822/11). Uses *OVERDRIVE (667) and *FTN (551/3). Uses VERLAB (812) and EDGER (747/5) for listing enhancements. Requires FLOP:ICOM.EQU (822/10) and FLOP:FLPCOM (822/3). 00822/010C FLOPPY DISK SUPPORT ICOM SF G FLOP:ICOM.EQU 5.0T3 1006 FLOPPY_DISK_SUPPORT.ICOM.SF.010 1 LINE 61 1 PAGE UM CASHMAN JULY 03, 1981 20:22:15 5.0T8 385 0 ICOM directory type specific common block definitions. 0 Referenced by comments of: 822/9 1 MON AUG 05/96 18:37:45 Page 637 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00822/011C FLOPPY DISK SUPPORT ICOM SA G FLOP:ICOMASMH 5.0T3 1007 FLOPPY_DISK_SUPPORT.ICOM.SA.011 1 LINE 71 3 PAGE UM CASHMAN JULY 03, 1981 20:22:16 5.0T8 386 0 *ASMH (737) source for ICOM directory type support routines. 0 Referenced by comments of: 822/9, 822/13 00822/012C FLOPPY DISK SUPPORT ICOM OC G FLOP:ICOMLIB 5.0T3 1008 FLOPPY_DISK_SUPPORT.ICOM.OC.012 1 LINE 3438 10 PAGE UM CASHMAN JULY 03, 1981 20:22:17 5.0T8 387 0 Object for ICOM directory type support routines. 00822/013C FLOPPY DISK SUPPORT RT11 SF G FLOP:RT11.S 5.0T3 1009 FLOPPY_DISK_SUPPORT.RT11.SF.013 1 LINE 87 17 PAGE UM CASHMAN JULY 03, 1981 20:22:18 5.0T8 388 0 RT11 directory type source. Uses *OVERDRIVE (667) and *FTN (551/3). Also assembles ICOMASMH (822/11). VERLAB (812) and EDGER (747/5) are used for listing control. Requires FLOP:RT11EQU (822/14) and FLOP:FLPCOM (822/3). 00822/014C FLOPPY DISK SUPPORT RT11 SF G FLOP:RT11.EQU 5.0T3 1010 FLOPPY_DISK_SUPPORT.RT11.SF.014 1 LINE 48 1 PAGE UM CASHMAN JULY 03, 1981 20:22:23 5.0T8 389 0 RT11 directory type specific common block definitions. 0 Referenced by comments of: 822/13 00822/015C FLOPPY DISK SUPPORT RT11 OC G FLOP:RT11LIB 5.0T3 1011 FLOPPY_DISK_SUPPORT.RT11.OC.015 1 LINE 1654 12 PAGE UM CASHMAN JULY 03, 1981 20:22:24 5.0T8 390 0 Object for RT11 directory type support. 00822/016C FLOPPY DISK SUPPORT IBM SF G FLOP:IBM.S 5.0T3 1012 FLOPPY_DISK_SUPPORT.IBM.SF.016 1 LINE 85 14 PAGE UM CASHMAN JULY 03, 1981 20:22:25 5.0T8 391 0 IBM directory type support source code. $SOURCE IBM.S. Uses *OVERDRIVE (667) and *FTN (551/3). VERLAB (812) and EDGER (747/5) are used for listing control. Requires FLOP:IBM.EQU (822/17) and FLOP:FLPCOM (822/3). 00822/017C FLOPPY DISK SUPPORT IBM SF G FLOP:IBM.EQU 5.0T3 1013 FLOPPY_DISK_SUPPORT.IBM.SF.017 1 LINE 56 1 PAGE UM CASHMAN JULY 03, 1981 20:22:29 5.0T8 392 0 IBM directory type specific common block definitions. 0 Referenced by comments of: 822/16, 822/19 1 MON AUG 05/96 18:37:45 Page 638 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00822/018C FLOPPY DISK SUPPORT IBM OC G FLOP:IBMLIB 5.0T3 1014 FLOPPY_DISK_SUPPORT.IBM.OC.018 1 LINE 3342 11 PAGE UM CASHMAN JULY 03, 1981 20:22:30 5.0T8 393 0 Object for IBM directory type support routines. 00822/019C FLOPPY DISK SUPPORT NONE SF G FLOP:NONE.S 5.0T3 1015 FLOPPY_DISK_SUPPORT.NONE.SF.019 1 LINE 87 3 PAGE UM CASHMAN JULY 03, 1981 20:22:32 5.0T8 394 0 Default directory type source code. $SOURCE NONE.S. Uses *OVERDRIVE (667) and *FTN (551/3). VERLAB (812) and EDGER (747/5) are used for listing control. Requires FLOP:IBM.EQU (822/17) and FLOP:FLPCOM (822/3). 00822/020C FLOPPY DISK SUPPORT NONE SA G FLOP:NONEASMH 5.0T3 1016 FLOPPY_DISK_SUPPORT.NONE.SA.020 1 LINE 68 1 PAGE UM CASHMAN JULY 03, 1981 20:22:32 5.0T8 395 0 *ASMH (737) default directory type. 00822/021C FLOPPY DISK SUPPORT NONE OE G FLOP:NONELIB 5.0T3 1017 FLOPPY_DISK_SUPPORT.NONE.OE.021 1 LINE 490 4 PAGE UM CASHMAN JULY 03, 1981 20:22:33 5.0T8 396 0 Object for default directory type support routines. 00822/022C FLOPPY DISK SUPPORT DSECT SA G *FLOPDSECT 5.0T3 1018 FLOPPY_DISK_SUPPORT.DSECT.SA.022 1 LINE 71 1 PAGE UM CASHMAN AUG. 06, 1981 05:41:18 5.0T8 397 *FLOPDSECT 0 DSECT for floppy disk SNS data. 00823/001C PASCAL/VS INSTALL NOTES P G W226:*VS.NOTES 5.0T3 1019 PASCAL/VS.INSTALL_NOTES.P.001 1 LINE 68 6 PAGE UM PICKELMAN JULY 03, 1981 20:22:34 5.0T8 398 0 IBM's PASCAL/VS compiler, program number 5796-PNQ. Since it is proprietary, several subcomponents, i.e, (823/5) through (823/7) and (823/21) through (823/42), cannot be distributed. However, (823/8), along with (823/11) through (823/19), will generate these from the IBM distribution tape. There are two version of the compiler. (823/2) runs native under MTS, but does not yet support the "%INCLUDE" statement or blocked I/O. (823/20) runs under VSS (1078). 0 Referenced by comments of: 825/1 00823/002C PASCAL/VS DRIVER OE G OLD:PASCALVS 5.0T3 1020 PASCAL/VS.DRIVER.OE.002 1 LINE 29402 9 PAGE UM PICKELMAN JULY 03, 1981 20:22:37 5.0T8 399 0 The PACSAL/VS compiler. Actually just a small program which links to ETC:PASVSNEWCOMP (823/6) and ETC:PASVSNEWTRAN (823/7). This is the linkedited object of (823/4), (823/3), and (823/13). 1 MON AUG 05/96 18:37:45 Page 639 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 823/1, 823/12 00823/003C PASCAL/VS RUNTIME OL G OLD:PASCALVSLIB 5.0T3 1021 PASCAL/VS.RUNTIME.OL.003 1 LINE 12798 37 PAGE UM PICKELMAN JULY 03, 1981 20:22:38 5.0T8 400 0 The runtime support library for programs compiled with PASCAL/VS. Same as (823/24) but without SYM records. 0 Referenced by comments of: 823/2, 823/4, 823/10, 823/11, 825/2 00823/004C PASCAL/VS RUNTIME OE G OLD:PASCALVSNODE 5.0T3 1022 PASCAL/VS.RUNTIME.OE.004 1 LINE 790 1 PAGE UM PICKELMAN JULY 03, 1981 20:22:40 5.0T8 401 0 Dummy versions of the debugging routines for use with completely debugged programs. Contains a $CONTINUE WITH to (823/3). 0 Referenced by comments of: 823/2 00823/005C PASCAL/VS COMPILER M G # ETC:PASVSNEWMESS UM PICKELMAN 0 The compiler's error messages. Due to copyright restrictions this subcomponent cannot be distributed. 0 Referenced by comments of: 823/1, 823/6, 823/37 00823/006C PASCAL/VS COMPILER OE G # ETC:PASVSNEWCOMP UM PICKELMAN 0 Pass1, the "compiler." Converts PASCAL into "UCODE." Requires ETC:PASVSNEWMESS (823/5). Due to copyright restrictions this subcomponent cannot be distributed. 0 Referenced by comments of: 823/2 00823/007C PASCAL/VS TRANSLATOR OE G # ETC:PASVSNEWTRAN UM PICKELMAN 0 Pass2, the "translator." Converts "UCODE" into an S/370 object module. Due to copyright restrictions this subcomponent cannot be distributed. 0 Referenced by comments of: 823/1, 823/2 00823/008C PASCAL/VS INSTALL C G S0759 PVSFS VLO FSNAME=VS.INSTALL 5.0T3 1023 PASCAL/VS.INSTALL.C.008 1 LINE 91 13 PAGE UM PICKELMAN MAY 12, 1981 22:13:40 5.0T8 402 0 A source file to install PASCAL/VS from the IBM distribution tape. It will also generate all of the subcomponents which cannot be distributed. Requires several of the subcomponents from (823/11) through (823/19). 0 Referenced by comments of: 823/1 1 MON AUG 05/96 18:37:45 Page 640 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00823/009C PASCAL/VS INSTALL SW G S0759 PVSFS VLO FSNAME=VS.LIBUILD 5.0T3 1024 PASCAL/VS.INSTALL.SW.009 1 LINE 68 2 PAGE UM PICKELMAN APR. 26, 1981 15:05:57 5.0T8 403 0 A program similar to *IEHMOVE (291), but different. Used to copy the source from the IBM distribution tape to an MTS file. 0 Referenced by comments of: 823/11 00823/010C PASCAL/VS INSTALL OE G S0759 PVSFS VLO FSNAME=VS_LIBUILD 5.0T3 1025 PASCAL/VS.INSTALL.OE.010 1 LINE 2796 2 PAGE UM PICKELMAN APR. 26, 1981 15:05:53 5.0T8 404 0 Requires (823/3). 00823/011C PASCAL/VS INSTALL OE G S0759 PVSFS VLO FSNAME=VS*LIBUILD 5.0T3 1026 PASCAL/VS.INSTALL.OE.011 1 LINE 32767 26 PAGE UM PICKELMAN APR. 26, 1981 15:05:54 5.0T8 405 0 Linkedited version of (823/9) and (823/3). 0 Referenced by comments of: 823/1, 823/8 00823/012C PASCAL/VS DRIVER SW G S0759 PVSFS VLO FSNAME=VS.PASCAL 5.0T3 1027 PASCAL/VS.DRIVER.SW.012 1 LINE 67 1 PAGE UM PICKELMAN APR. 26, 1981 15:03:06 5.0T8 406 0 Source for (823/2). 00823/013C PASCAL/VS DRIVER OE G S0759 PVSFS VLO FSNAME=PASCAL/VS 5.0T3 1028 PASCAL/VS.DRIVER.OE.013 1 LINE 1382 3 PAGE UM PICKELMAN APR. 26, 1981 15:02:54 5.0T8 407 0 Requires VS|LIB (823/24). 0 Referenced by comments of: 823/2 00823/014C PASCAL/VS RUNTIME SA G S0759 PVSFS VLO FSNAME=VS.MTS 5.0T3 1029 PASCAL/VS.RUNTIME.SA.014 1 LINE 68 6 PAGE UM PICKELMAN MAY 12, 1981 22:13:52 5.0T8 408 0 MTS version of several of the system interface routines. Object is in (823/24). These have been totally rewritten for MTS. 0 Referenced by comments of: 823/24 00823/015C PASCAL/VS RUNTIME UC G S0759 PVSFS VLO FSNAME=VS.ASM 5.0T3 1030 PASCAL/VS.RUNTIME.UC.015 1 LINE 66 1 PAGE UM PICKELMAN APR. 26, 1981 15:02:56 5.0T8 409 0 Updates to (823/22) for those routines which are changed only slightly for MTS. 0 Referenced by comments of: 823/24 1 MON AUG 05/96 18:37:45 Page 641 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00823/016C PASCAL/VS COMPILER UC G S0759 PVSFS VLO FSNAME=VS.LINIT 5.0T3 1031 PASCAL/VS.COMPILER.UC.016 1 LINE 67 1 PAGE UM PICKELMAN APR. 26, 1981 15:03:00 5.0T8 410 0 Updates to the module AMPLINIT in the compiler (823/29) for use in MTS. 0 Referenced by comments of: 823/30 00823/017C PASCAL/VS TRANSLATOR UC G S0759 PVSFS VLO FSNAME=VS.TMISC 5.0T3 1032 PASCAL/VS.TRANSLATOR.UC.017 1 LINE 67 1 PAGE UM PICKELMAN APR. 26, 1981 15:03:07 5.0T8 411 0 Updates for the module AMPTMISC in the translator (823/32) for use in MTS. 0 Referenced by comments of: 823/33 00823/018C PASCAL/VS MACLIB UC G S0759 PVSFS VLO FSNAME=VS.MACLIB 5.0T3 1033 PASCAL/VS.MACLIB.UC.018 1 LINE 61 1 PAGE UM PICKELMAN APR. 26, 1981 15:03:01 5.0T8 412 0 Updates to the macro library (823/34). 0 Referenced by comments of: 823/35 00823/019C PASCAL/VS VSS SA G S0759 PVSFS VLO FSNAME=VS.VSS 5.0T3 1034 PASCAL/VS.VSS.SA.019 1 LINE 77 4 PAGE UM PICKELMAN APR. 26, 1981 15:03:08 5.0T8 413 0 A program to run the VS version of the compiler using ETC:VSS (1078/38). Currently necessary to compile the compiler, or any program which uses "%INCLUDE." Copies *GDINFODSECT (594). 0 Referenced by comments of: 823/1, 823/8 00823/020C PASCAL/VS VSS OE G S0759 PVSFS VLO FSNAME=PASCAL/VSS 5.0T3 1035 PASCAL/VS.VSS.OE.020 1 LINE 2206 1 PAGE UM PICKELMAN APR. 26, 1981 15:05:09 5.0T8 414 0 Requires ETC:VSS (1078/38) and COPY:DEFS (579/10). 0 Referenced by comments of: 823/1 00823/021C PASCAL/VS RUNTIME SW G # S0759 PVSFS VLO FSNAME=VS/MACRUN UM PICKELMAN 0 INCLUDE sections used by the runtime support. Not distributed due to copyright restrictions. 0 Referenced by comments of: 823/1, 823/22, 823/23 00823/022C PASCAL/VS RUNTIME SA G # S0759 PVSFS VLO FSNAME=VS/ASM UM PICKELMAN 0 The assembler runtime support routines. Not distributed due to copyright 1 MON AUG 05/96 18:37:45 Page 642 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 restrictions. Requires (823/21). 0 Referenced by comments of: 823/15, 823/24 00823/023C PASCAL/VS RUNTIME SW G # S0759 PVSFS VLO FSNAME=VS/RUN UM PICKELMAN 0 The PASCAL runtime support routines. Not distributed due to copyright restrictions. Requires (823/21). 0 Referenced by comments of: 823/24, 823/25 00823/024C PASCAL/VS RUNTIME OL G # S0759 PVSFS VLO FSNAME=VS|LIB UM PICKELMAN 0 Object of (823/14), (823/22), (823/23) with updates (823/15) applied, and (823/27). Note module AMPXDBUG has been deleted and moved to (823/25). Not distributed due to copyright restrictions. 0 Referenced by comments of: 823/3, 823/13, 823/14 00823/025C PASCAL/VS RUNTIME OC G # S0759 PVSFS VLO FSNAME=VS|NODEBUG UM PICKELMAN 0 Object for module AMPXDBUG in (823/23). Not distributed due to copyright restrictions. 0 Referenced by comments of: 823/24 00823/026C PASCAL/VS DEBUGGER SW G # S0759 PVSFS VLO FSNAME=VS/MACDEBUG UM PICKELMAN 0 INCLUDE sections used by the debugger. Not distributed due to copyright restrictions. 0 Referenced by comments of: 823/27, 823/39 00823/027C PASCAL/VS DEBUGGER SW G # S0759 PVSFS VLO FSNAME=VS/DEBUG UM PICKELMAN 0 Source for the debugger. Not distribute due to copyright restrictions. Requires (823/26). 0 Referenced by comments of: 823/24, 823/38 00823/028C PASCAL/VS COMPILER SW G # S0759 PVSFS VLO FSNAME=VS/MACCOMP UM PICKELMAN 0 INCLUDES used by the compiler. Not distributed due to copyright restrictions. 0 Referenced by comments of: 823/29, 823/40 1 MON AUG 05/96 18:37:45 Page 643 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00823/029C PASCAL/VS COMPILER SW G # S0759 PVSFS VLO FSNAME=VS/COMPILE UM PICKELMAN 0 The compiler. Not distributed due to copyright restrictions. Requires (823/28). 0 Referenced by comments of: 823/16 00823/030C PASCAL/VS COMPILER OC G # S0759 PVSFS VLO FSNAME=VS|COMPILE UM PICKELMAN 0 Object of compiler with (823/16) updates applied. Not distributed due to copyright restrictions. 00823/031C PASCAL/VS TRANSLATOR SW G # S0759 PVSFS VLO FSNAME=VS/MACTRAN UM PICKELMAN 0 Includes used by the translator. Not distributed due to copyright restrictions. 0 Referenced by comments of: 823/32, 823/42 00823/032C PASCAL/VS TRANSLATOR SW G # S0759 PVSFS VLO FSNAME=VS/TRANSLATE UM PICKELMAN 0 The translator. Not distributed due to copyright restrictions. Requires (823/31). 0 Referenced by comments of: 823/17 00823/033C PASCAL/VS TRANSLATOR OC G # S0759 PVSFS VLO FSNAME=VS|TRANSLATE UM PICKELMAN 0 Object of the translator with (823/17) updates applied. Not distributed due to copyright restrictions. 00823/034C PASCAL/VS MACLIB SM G # S0759 PVSFS VLO FSNAME=VS/MACLIB UM PICKELMAN 0 The macro library. Not distributed due to copyright restrictions. 0 Referenced by comments of: 823/18, 823/35, 823/41 00823/035C PASCAL/VS MACLIB SM G # S0759 PVSFS VLO FSNAME=VS|MACLIB UM PICKELMAN 0 (823/34) with (823/18) updates applied. Not distributed due to copyright restrictions. 00823/036C PASCAL/VS VSS B G # S0759 PVSFS VLO FSNAME=VSS/LINKLIB UM PICKELMAN 0 The VS object for the compiler. Set up as a VSS (1078) PDS. Not distributed due to copyright restrictions. 1 MON AUG 05/96 18:37:45 Page 644 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00823/037C PASCAL/VS VSS M G # S0759 PVSFS VLO FSNAME=VSS/MESSAGES UM PICKELMAN 0 (823/5) blocked for use with VSS (1078). Not distributed due to copyright restrictions. 00823/038C PASCAL/VS VSS SW G # S0759 PVSFS VLO FSNAME=VSS/MACRUN UM PICKELMAN 0 (823/27) set up as a VSS (1078) PDS. Not distributed due to copyright restrictions. 00823/039C PASCAL/VS VSS SW G # S0759 PVSFS VLO FSNAME=VSS/MACDEBUG UM PICKELMAN 0 (823/26) set up as a VSS (1078) PDS. Not distributed due to copyright restrictions. 00823/040C PASCAL/VS VSS SW G # S0759 PVSFS VLO FSNAME=VSS/MACCOMP UM PICKELMAN 0 (823/28) set up as a VSS (1078) PDS. Not distributed due to copyright restrictions. 00823/041C PASCAL/VS VSS SW G # S0759 PVSFS VLO FSNAME=VSS/MACLIB UM PICKELMAN 0 (823/34) set up as a VSS (1078) PDS. Not distributed due to copyright restrictions. 00823/042C PASCAL/VS VSS SW G # S0759 PVSFS VLO FSNAME=VSS/MACTRAN UM PICKELMAN 0 (823/31) set up as a VSS (1078) PDS. Not distributed due to copyright restrictions. 0 Referenced by comments of: 823/1 00824/001C NASTRAN DRIVER OC G MTA:NAS.DRIVER(1) 5.0T3 1036 NASTRAN.DRIVER.OC.001 1 LINE 80 4 PAGE UM MTA AUG. 21, 1981 05:44:50 5.0T8 415 0 Driver for running MSC NASTRAN 6.1, dated April 7, 1981, in MTS. Obtained by assembling VSS.DRIVER (1078/39) with PAR=SYSPARM=NASTRAN. Will work with Version 6.0A and probably with other versions of MSC NASTRAN. Requires ETC:VSS (1078/38). 00824/002C NASTRAN COMMANDS C G MTA:NAS.DRIVER(*F,0) 5.0T3 1037 NASTRAN.COMMANDS.C.002 1 LINE 65 1 PAGE UM MTA JULY 03, 1981 20:25:01 5.0T8 416 0 VSS (1078) commands to run NASTRAN in MTS. Requires (824/3), ETC:SYS1.LINKLIB (1078/46), (824/6), and (824/5). 1 MON AUG 05/96 18:37:45 Page 645 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00824/003C NASTRAN OBJECT LIBRARY OL G # AERO:NASLIB UM MTA 0 VSS (1078) PDS containing MSC NASTRAN version 6.1 load modules. This file was created directly from the MSC tape file containing unloaded load modules using *IEHMOVE (291) with PAR=VSS. Not distributed due to copyright restrictions. 0 Referenced by comments of: 824/2 00824/004C NASTRAN PLOT PGM UC G MTA:NASTPLOT.UC 5.0T3 1038 NASTRAN.PLOT_PGM.UC.004 1 LINE 65 1 PAGE UM MTA JULY 03, 1981 20:25:02 5.0T8 417 0 Updates to make the plot program work in MTS. Should be applied to the NASTPLOT member from the UTILSOU data set on the NASTRAN distribution tape. 00824/005C NASTRAN PLOT PGM OE G # AERO:NASTPLOT UM MTA 0 Object includes one assembly language module CFR missing from the NASTPLOT member in UTILSOU. The OS version of it works in MTS. Requires *PLOTSYS (615/9). Not distributed due to copyright restrictions. 0 Referenced by comments of: 824/2 00824/006C NASTRAN RFA FILE D G # AERO:NAS.RFA UM MTA 0 VSS (1078) PDS containing NASTRAN Rigid Format Alters, whatever that is. Created from unloaded PDS on MSC NASTRAN tape using *IEHMOVE (291) with PAR=VSS. Not distributed due to copyright restrictions. 0 Referenced by comments of: 824/2 00824/007C NASTRAN DEMO D G # MTA:NAS.DEMO1 UM MTA 0 Test input to NASTRAN. Not distributed due to copyright restrictions. 00824/008C NASTRAN OS JCL G # S0938 FSAVE2 VLO FSNAME=NAS.OSJCL UM MTA 0 PROC library for NASTRAN in OS/MVS. Not distributed due to copyright restrictions. 00824/009C NASTRAN WRITEUP WF G MTA:NAS.W 5.0T3 1039 NASTRAN.WRITEUP.WF.009 1 LINE 72 3 PAGE UM MTA JULY 03, 1981 20:25:03 5.0T8 418 0 Writeup on running NASTRAN in MTS. 1 MON AUG 05/96 18:37:45 Page 646 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00825/001C *PASCALTIDY SW O PASC:PASCALTIDY.S 5.0T3 1040 PASCALTIDY..SW.001 1 LINE 97 18 PAGE UM GREENING AUG. 06, 1981 05:41:41 5.0T8 419 0 THE SOURCE FOR A PASCAL PROGRAM REFORMATTER. COMPILE USING PASCAL/VS (823). 00825/002C *PASCALTIDY OL O *PASCALTIDY 5.0T3 1041 PASCALTIDY..OL.002 1 LINE 24660 8 PAGE UM GREENING AUG. 06, 1981 05:41:43 5.0T8 420 *PASCALTIDY 0 REQUIRES THE PASCAL/VS RUNTIME LIBRARY (823/3). 01000/001A INTERACTIVE_FORTRAN INSTALL.PROC WF G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.INSTA.WF.001 5.0T3 1042 INTERACTIVE_FORTRAN.INSTA.WF.001 1 LINE 80 2 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:20:35 5.0T8 421 0 Description of the procedure for installing INTERACTIVE FORTRAN. ******************************************************************* D5.0 version: This is the Spring 1981 version which includes: -- many bug fixes. -- /RERUN command, which reissues the last /RUN command. -- /SET AUTOLINE=ON command which causes the FORTRAN source statement to be displayed along with the usual information whenever a suspension occurs. -- changes to the error printer so that lines longer than the screen width are split at a blank and printed on two lines. Also, in batch error messages are emphasized in the manner in which FORTRAN I/O messages are emphasized. ********************************************************************* 01000/002A INTERACTIVE_FORTRAN *IF SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.*IF.SA.002 5.0T3 1043 INTERACTIVE_FORTRAN.*IF.SA.002 1 LINE 72 9 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:20:36 5.0T8 422 0 ASSEMBLER source code for routine which calls IF. May require local mods - read the comments in this module carefully. 0 Referenced by comments of: 1000/5, 1000/6, 1000/7 01000/003A INTERACTIVE_FORTRAN *IF OE G *IF 5.0T3 1044 INTERACTIVE_FORTRAN.?IF.OE.003 1 LINE 32767 56 PAGE UBC O'REILLY HANSEN AUG. 06, 1981 05:41:54 5.0T8 423 *IF 0 This is the user-runnable *IF object. Lines 1,999 contain the IF calling routine. If *IF is to be loaded into shared memory, lines 1,999 should be placed in *IF with two cards appended: LCS LCSYMBOL 1 MON AUG 05/96 18:37:45 Page 647 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LDT Lines 1000,*L should be placed in SEG2:IF following a COM.IF record, and the LDT card should be removed. Lines 1000,*L have been squashed, combined, and purged by the linkage editor. 01000/004A INTERACTIVE_FORTRAN MACLIB SM G FORT:IF.MACLIB 5.0T3 1045 INTERACTIVE_FORTRAN.MACLI.SM.004 1 LINE 83 66 PAGE UBC O'REILLY HANSEN JULY 03, 1981 20:26:48 5.0T8 424 0 Macro library containing macros and copy sections used by all IF modules; command streams for assembling any component may be found in the negative line number area of each source file. All copy sections (except the interpreter dsects) have been included in this macro library. Any IF module can be assembled by using *ASMH and specifying 0=*SYSMAC and 2=MACLIB. 01000/005A INTERACTIVE_FORTRAN ELMQQSV M G ETC:IF.ELMQQSV 5.0T3 1046 INTERACTIVE_FORTRAN.ELMQQ.M.005 1 LINE 108 45 PAGE UBC O'REILLY HANSEN JULY 03, 1981 20:26:54 5.0T8 425 ETC:IF.ELMQQSV 0 IF error message file - must be implemented @i. The negative line number region of this file contains a series of messages which are printed when a dump occurs -- these messages should be changed to suit the installation. The error message file is formatted as follows: TERSE messages : lines 1-4999 NORMAL messages : lines 5000-9999 LONG messages : lines 10000-14999 VERBOSE messages : lines 15000-19999 If you change a message, be sure to change all 4 verbosities. See the comments in *IF (1000/2) for more information. Line -1 of this file should be changed to contain the local person to contact in case of a problem. 01000/006A INTERACTIVE_FORTRAN ETC:IF.DUMP D G # ETC:IF.DUMP RD15 452 INTERACTIVE_FORTRAN.DUMPS.M.06 1 SEQ 72 3 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:31:50 ETC:IF.DUMP@E 0 File which collects dump information (program interrupts in IF). See the comments in *IF (1000/2) for more information. Note this must be a sequential file; the other auxiliary files are line files. Dumps are actually only program interrupts in IF, and usually occur as the result of a user program clobbering IF control information. You may see several pieces of information appended to the first line of the dump: "EXT" - means that an external routine was called at least once, which adds weight to the 1 MON AUG 05/96 18:37:45 Page 648 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 hypothesis that the dump was caused by a bug in an external routine, rather than by a bug in IF. "ARG" - means that the "/SET ARGCHK=ON" feature was enabled and was used at least once, which also adds weight to the hypothesis that the dump was not caused by a bug in IF. Dumps are logged to this file by the MDEBUG subcomponent (1000/20). 01000/007A INTERACTIVE_FORTRAN EXPLAIN M G ETC:IF.EXPLAIN 5.0T3 1047 INTERACTIVE_FORTRAN.EXPLA.M.007 1 LINE 79 23 PAGE UBC O'REILLY HANSEN JULY 03, 1981 20:26:58 5.0T8 426 ETC:IF.EXPLAIN 0 IF command explain file; see the comments in *IF (1000/2) for further information. This file is generated by using the FORMAT source for the IF manual (1000/9) as a database. Note that the description of /SET ALIGN=ON,OFF has been added to the explanation of the /SET command (do a /EXPLAIN /SET). 01000/008 INTERACTIVE_FORTRAN ETC:IF.STAT D G # ETC:IF.STAT RD15 454 INTERACTIVE_FORTRAN.STATIS.M.08 1 LINE 62 109 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:31:53 ETC:IF.STAT@E 0 Use statistics collection file; note that line 0 of this file may contain a message to be displayed upon invocation of IF (this facility existed before the loader supported "MSG" cards). If line 0 does contain an invocation message, the file should be permitted RWEXP OTHERS; if line 0 does not contain an invocation message, the file should be permitted WEXP OTHERS. 0 Referenced by comments of: 1000/37, 1000/39 01000/009 INTERACTIVE_FORTRAN WRITEUP WF G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.WRITE.WF.010 5.0T3 1048 INTERACTIVE_FORTRAN.WRITE.WF.009 1 LINE 93 58 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:21:28 5.0T8 427 0 This is the FORMAT source for the IF writeup. 0 Referenced by comments of: 1000/7 01000/010 INTERACTIVE_FORTRAN WRITEUP PF G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.WRITE.PF.011 5.0T3 1049 INTERACTIVE_FORTRAN.WRITE.PF.010 1 LINE 117 101 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:21:38 5.0T8 428 0 This is the IF writeup, suitable for copying to a printer. 01000/011 INTERACTIVE_FORTRAN TEST.VERSION OC G FORT:IF.TEST 5.0T3 1050 INTERACTIVE_FORTRAN.TEST..OC.011 1 LINE 32767 63 PAGE UBC O'REILLY HANSEN JULY 03, 1981 20:27:15 5.0T8 429 0 Test version of IF. All of the object modules comprising the re-entrant processor, source in (1000/12) through (1000/32) and 1 MON AUG 05/96 18:37:45 Page 649 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (1000/35), are in this file. They are squashed but not combined or purged so that individual csects are still accessible and replaceable. A shared VM version of IF is created by COMBINing and PURGing the object decks in this file using the LINKAGE EDITOR (297). 01000/012 INTERACTIVE_FORTRAN DIRECT SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.DIREC.SA.013 5.0T3 1051 INTERACTIVE_FORTRAN.DIREC.SA.012 1 LINE 80 35 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:22:36 5.0T8 430 0 MAIN COMMAND PROCESSOR; APPEARS IN |MAP AS DIR. 0 Referenced by comments of: 1000/11 01000/013 INTERACTIVE_FORTRAN EL SA G S1520 UBC81 VLO FSNAME=INTERACTIVE_FORTRAN.EL.SA.014 5.0T3 1052 INTERACTIVE_FORTRAN.EL.SA.013 1 LINE 72 25 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:22:39 5.0T8 431 0 Error message printer; appears in |MAP as EL. 01000/014 INTERACTIVE_FORTRAN GSC SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.GSC.SA.015 5.0T3 1053 INTERACTIVE_FORTRAN.GSC.SA.014 1 LINE 79 36 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:22:41 5.0T8 432 0 Semantic code generator; appears in |MAP as GENCODE. 01000/015 INTERACTIVE_FORTRAN IFRD SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.IFRD.SA.016 5.0T3 1054 INTERACTIVE_FORTRAN.IFRD.SA.015 1 LINE 72 18 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:22:44 5.0T8 433 0 Free format input routine; appears in |MAP as IFRDCODE. 01000/016 INTERACTIVE_FORTRAN INT SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.INT.SA.017 5.0T3 1055 INTERACTIVE_FORTRAN.INT.SA.016 1 LINE 72 226 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:22:46 5.0T8 434 0 The interpreter. Appears in |MAP as INTE. 01000/017 INTERACTIVE_FORTRAN IS SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.IS.SA.018 5.0T3 1056 INTERACTIVE_FORTRAN.IS.SA.017 1 LINE 80 43 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:05 5.0T8 435 0 Semantic checking routine; appears in |MAP as SIMLATOR. 01000/018 INTERACTIVE_FORTRAN LEX SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.LEX.SA.019 5.0T3 1057 INTERACTIVE_FORTRAN.LEX.SA.018 1 LINE 79 28 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:08 5.0T8 436 0 Lexical scanner; appears in |MAP as LEX. 1 MON AUG 05/96 18:37:45 Page 650 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01000/019 INTERACTIVE_FORTRAN LIN SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.LIN.SA.020 5.0T3 1058 INTERACTIVE_FORTRAN.LIN.SA.019 1 LINE 79 26 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:11 5.0T8 437 0 Lexical scanner input routine; appears in |MAP as LIN. 01000/020 INTERACTIVE_FORTRAN MDEBUG SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.MDEBU.SA.021 5.0T3 1059 INTERACTIVE_FORTRAN.MDEBU.SA.020 1 LINE 80 31 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:13 5.0T8 438 0 Built-in SDS-like debugging facility; documentation is a separate component (1000/33). Has BREAKPOINTs, ATPOINTs, and an instruction simulator much like SDS. Appears in |MAP as MDG. 0 Referenced by comments of: 1000/6, 1000/33 01000/021 INTERACTIVE_FORTRAN MON SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.MON.SA.022 5.0T3 1060 INTERACTIVE_FORTRAN.MON.SA.021 1 LINE 80 15 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:17 5.0T8 439 0 Compiler monitor; contains entry point named "IF". appears in |MAP as MON. 01000/022 INTERACTIVE_FORTRAN OUT SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.OUT.SA.023 5.0T3 1061 INTERACTIVE_FORTRAN.OUT.SA.022 1 LINE 79 31 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:19 5.0T8 440 0 Another command processor; appears in |MAP as SUBOUT. Note: This module copies the interpreter dsects. 01000/023 INTERACTIVE_FORTRAN PARSE SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.PARSE.SA.024 5.0T3 1062 INTERACTIVE_FORTRAN.PARSE.SA.023 1 LINE 79 49 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:23 5.0T8 441 0 The parser; appears in |MAP as PARSER. 01000/024 INTERACTIVE_FORTRAN SCOM SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SCOM.SA.025 5.0T3 1063 INTERACTIVE_FORTRAN.SCOM.SA.024 1 LINE 72 23 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:27 5.0T8 442 0 COMMON routine; appears in |MAP as SCOM#. 01000/025 INTERACTIVE_FORTRAN SEQV SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SEQV.SA.026 5.0T3 1064 INTERACTIVE_FORTRAN.SEQV.SA.025 1 LINE 79 18 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:30 5.0T8 443 0 EQUIVALENCE routine; appears in |MAP as SEQV#. 01000/026 INTERACTIVE_FORTRAN SIM SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SIM.SA.027 5.0T3 1065 INTERACTIVE_FORTRAN.SIM.SA.026 1 LINE 78 19 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:32 5.0T8 444 0 compilation monitor; appears in |MAP as SIM. 1 MON AUG 05/96 18:37:45 Page 651 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01000/027 INTERACTIVE_FORTRAN SLABEL SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SLABE.SA.028 5.0T3 1066 INTERACTIVE_FORTRAN.SLABE.SA.027 1 LINE 72 10 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:33 5.0T8 445 0 Label checking routine; appears in |MAP as SLABEL. 01000/028 INTERACTIVE_FORTRAN SPACE SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SPACE.SA.029 5.0T3 1067 INTERACTIVE_FORTRAN.SPACE.SA.028 1 LINE 78 19 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:34 5.0T8 446 0 Virtual memory management; appears in |MAP as CORE. 01000/029 INTERACTIVE_FORTRAN SYMBOL SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.SYMBO.SA.030 5.0T3 1068 INTERACTIVE_FORTRAN.SYMBO.SA.029 1 LINE 79 32 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:36 5.0T8 447 0 Symbol table routines; appears in |MAP as SYMBOL. 01000/030 INTERACTIVE_FORTRAN TPUT SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.TPUT.SA.031 5.0T3 1069 INTERACTIVE_FORTRAN.TPUT.SA.030 1 LINE 80 22 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:39 5.0T8 448 0 Interface to operating system; 99% of system dependency is gated through this module. In fact, IF runs under TSS. Appears in |MAP as TPUT. 01000/031 INTERACTIVE_FORTRAN XLOADER SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.XLOAD.SA.032 5.0T3 1070 INTERACTIVE_FORTRAN.XLOAD.SA.031 1 LINE 80 95 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:41 5.0T8 449 0 IF's external loader and interface to UMLOAD. Appears in |MAP as XLD. 01000/032 INTERACTIVE_FORTRAN FUNCTIONS SA G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.FUNCT.SA.033 5.0T3 1071 INTERACTIVE_FORTRAN.FUNCT.SA.032 1 LINE 80 7 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:55 5.0T8 450 0 Code for ELEMENTARY FUNCTIONS not found in EFL (525); these are typically the "in-line" FORTRAN functions. This also serves as the error monitor for EFL. IF uses the standard system EFL library (525) and standard system FORTRAN I/O support (1002). 0 Referenced by comments of: 1000/11 01000/033 INTERACTIVE_FORTRAN MDEBUG WF G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.MDEBU.WF.034 5.0T3 1072 INTERACTIVE_FORTRAN.MDEBU.WF.033 1 LINE 89 8 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:56 5.0T8 451 0 Documentation for MDEBUG, the IF SDS-like debugging facility (1000/20). 0 Referenced by comments of: 1000/20 1 MON AUG 05/96 18:37:45 Page 652 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01000/034 INTERACTIVE_FORTRAN CALLINGIF WF G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.CALLI.WF.035 5.0T3 1073 INTERACTIVE_FORTRAN.CALLI.WF.034 1 LINE 87 4 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:23:57 5.0T8 452 0 WRITEUP DESCRIBING HOW TO CALL RESIDENT IF AS A SUBROUTINE. 01000/035A INTERACTIVE_FORTRAN EDITOR SA G FORT:IF.EDITOR 5.0T3 1074 INTERACTIVE_FORTRAN.EDITO.SA.035 1 LINE 80 30 PAGE UBC O'REILLY HANSEN AUG. 06, 1981 05:43:11 5.0T8 453 0 This is the interface to the MTS editor. NOTE: The ED.MAC component (1000/36) is required as an additional macro library to assemble this component. 0 Referenced by comments of: 1000/11, 1000/36 01000/036C INTERACTIVE_FORTRAN ED.MAC SM G S1520 UBC81 FSNAME=INTERACTIVE_FORTRAN.ED.MA.SM.037 5.0T3 1075 INTERACTIVE_FORTRAN.ED.MA.SM.036 1 LINE 72 26 PAGE UBC O'REILLY HANSEN FEB. 26, 1981 10:24:00 5.0T8 454 0 Old version of structured macros that are required to assemble the EDITOR subcomponent (1000/35). 0 Referenced by comments of: 1000/35 01000/037C INTERACTIVE_FORTRAN STATSCAN SQ O FORT:IF.STATSCAN(1000,2999) 5.0T3 1076 INTERACTIVE_FORTRAN.STATS.SQ.037 1 LINE 117 12 PAGE UM HANSEN JULY 03, 1981 20:28:17 5.0T8 455 0 PLUS (1042) source for a program to summarize information in the IF statistics file (1000/8). Refers to (1000/8) and (1000/40). It is self-describing with a HELP command. 0 Referenced by comments of: 1000/38, 1000/39 01000/038C INTERACTIVE_FORTRAN STATSCAN SA O W167:HELP(1,999) 5.0T3 1077 INTERACTIVE_FORTRAN.STATS.SA.038 1 LINE 64 1 PAGE UM HANSEN JULY 03, 1981 20:28:21 5.0T8 456 0 Assembly source for the HELP subroutine used by (1000/37). 0 Referenced by comments of: 1000/39 01000/039C INTERACTIVE_FORTRAN STATSCAN OC O FORT:IF.STATSCAN(1,999) 5.0T3 1078 INTERACTIVE_FORTRAN.STATS.OC.039 1 LINE 4076 13 PAGE UM HANSEN JULY 03, 1981 20:28:22 5.0T8 457 0 Object for (1000/37) and (1000/38). Refers to (1000/8) and (1000/40). Contains a $CONTINUE WITH NEW:PLUS.OBJLIB (1042/50) record. 0 Referenced by comments of: 1000/40 1 MON AUG 05/96 18:37:45 Page 653 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01000/040C INTERACTIVE_FORTRAN STATSCAN D O FORT:IF.STATHELP 5.0T3 1079 INTERACTIVE_FORTRAN.STATS.D.040 1 LINE 65 1 PAGE UM HANSEN JULY 03, 1981 20:28:25 5.0T8 458 0 The HELP file used by (1000/39). 0 Referenced by comments of: 1000/37, 1000/39 01002/001A FIX USER_OBJECT OC G NEW:FIO 5.0T3 1080 FIX.USER_OBJECT.OC.001 1 LINE 32767 20 PAGE UBC TIFFANY JULY 03, 1981 20:28:25 5.0T8 459 0 This is the unlinked object file containing SYM records. This file should not be used for the shared VM load as it does not include the necessary low core symbol table nor the COM record for PISTLE. ------------------- MAY 1979 UBC COMMENTS --------------- This is VERSION 1.9 of FIX. This distribution does NOT include WSU's extended precision updates. This version sent with the following GLOBAL symbols set: &ID = 'ETC.' &SEP = ':' &FILEPFX = 'NEW.' We had hoped that this would be our official version, but it isn't yet. It has been our test version since May 13, 1979 and is scheduled to become permanent on Aug. 1, 1979. **************************************************************************** This is the UM version. **************************************************************************** 0 Referenced by comments of: 422/1, 1000/32, 3023/9 01002/002A FIX SHARED_OBJECT OE G SEG2:FIX 5.0T3 1081 FIX.SHARED_OBJECT.OE.002 1 LINE 32767 22 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:28:27 5.0T8 460 SEG2:FIX 0 This is the linkeditted version containing all necessary items for inclusion as the resident version. ------------------- May 1979 --------------- *************************************************************************** This is the UM version. Contains a REP card. **************************************************************************** 01002/003 FIX MESSAGE M G ETC:FIX.MESSAGES 5.0T3 1082 FIX.MESSAGE.M.003 1 LINE 190 6 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:28:29 5.0T8 461 ETC:FIX.MESSAGES 0 This is the message file for all FIX error messages. The name of this file is 1 MON AUG 05/96 18:37:45 Page 654 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 determined by the setting of items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.MESSAGES. This is an indexed file and must be restored @I. ------------------- May 1979 --------------- Some of the messages have been changed to upper/lower case. This will continue as time permits. **************************************************************************** This is the UM version. **************************************************************************** 01002/004A FIX EXPLAIN D G ETC:FIX.EXPLAIN 5.0T3 1083 FIX.EXPLAIN.D.004 1 LINE 70 8 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:28:30 5.0T8 462 ETC:FIX.EXPLAIN 0 This file contains the text for the EXPLAIN command. The name of this file is determined by the setting of items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.EXPLAIN. This is an indexed file and must be restored @I. ------------------- May 1979 --------------- **************************************************************************** This is the UM version. **************************************************************************** ***************************************************************************** D5.0 changes, already distributed on D4.3A: Text is now in mixed case. ***************************************************************************** 01002/005 FIX FIX_PSECT SA G ETC:FIX.FIODSCT 5.0T3 1084 FIX.FIX_PSECT.SA.005 1 LINE 72 11 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:28:32 5.0T8 463 ETC:FIX.FIODSCT 0 The main FIX PSECT. Required as a separate file for system dumps for mnemonic dumping via PRDSCT. The name of this file is determined by the setting of items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.FIODSCT. ------------------- May 1979 --------------- 0 Referenced by comments of: 1002/12, 3023/9 1 MON AUG 05/96 18:37:45 Page 655 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01002/006 FIX UNIT_PSECT SA G ETC:FIX.UNITDSCT 5.0T3 1085 FIX.UNIT_PSECT.SA.006 1 LINE 72 3 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:28:34 5.0T8 464 ETC:FIX.UNITDSCT 0 The FIX unit dsect. Required as a separate file for system dumps for mnemonic dumping via PRDSCT. The name of this file is determined by the setting of items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.UNITDSCT. ------------------- May 1979 --------------- 0 Referenced by comments of: 1002/12 01002/007 FIX NEWS P S1431 4.3T2 VLO FSNAME=FIX.NEWS.SA.007(1) 293 5.0T3 1086 FIX.NEWS.P.007 1 LINE 63 2 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:45:37 5.0T8 465 0 The UBC news file regarding changes in the FORTRAN status. ------------------- May 1979 --------------- 01002/008A FIX DOCUMENTATION WF B S1515 UBC80 FSNAME=FIX.DOCUMENTATION.WF.008(1) 42 5.0T3 1087 FIX.DOCUMENTATION.WF.008 1 LINE 145 72 PAGE UBC STEVENS TIFFANY FEB. 23, 1981 19:29:39 5.0T8 466 0 The UBC document describing FIX. ------------------- May 1979 --------------- 01002/009A FIX DOCUMENTATION PF B S1515 UBC80 FSNAME=FIX.DOCUMENTATION.PF.009(1) 43 5.0T3 1088 FIX.DOCUMENTATION.PF.009 1 LINE 132 103 PAGE UBC STEVENS TIFFANY FEB. 23, 1981 19:29:44 5.0T8 467 0 The print ready version of the UBC documentation. ------------------- May 1979 --------------- 01002/010 FIX INTERNAL_DOC WF G S1431 4.3T2 VLO FSNAME=FIX.INTERNAL_DOC.WF.010(1) 296 5.0T3 1089 FIX.INTERNAL_DOC.WF.010 1 LINE 80 30 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:45:59 5.0T8 468 0 The *FMT source for the internal documentation describing how FIX is put together. ------------------- May 1979 --------------- 01002/011 FIX INTERNAL_DOC PF G S1431 4.3T2 VLO FSNAME=FIX.INTERNAL_DOC.PF.011(1) 297 5.0T3 1090 FIX.INTERNAL_DOC.PF.011 1 LINE 69 41 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:04 5.0T8 469 0 The print ready version of the internal documentation. ------------------- May 1979 --------------- 1 MON AUG 05/96 18:37:45 Page 656 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01002/012A FIX MACRO_LIBRARY SM G W062:FIX.MACLIB 5.0T3 1091 FIX.MACRO_LIBRARY.SM.012 1 LINE 80 16 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:29:41 5.0T8 470 0 The macro library to be used with all assemblies. Only two copy sections are not included here - FIODSCT (1002/5) and UNITDSCT (1002/6). These should be restored as separate files. ------------------- May 1979 --------------- The copy section GLOBALS has been updated for other installations as per their requests. We have not had any requests from RPI or Brazil in this regard and have not yet added these - hopefully we can add one as "standard", perhaps UM?, and reduce the number of different types. A new macro ADRYTEST has been added to test the addressability of a given address. Used mainly by FIODEBUG. **************************************************************************** This is the UM version. **************************************************************************** ************************************************************************** D5.0 version: New return code added for LOADF: -5: Loading aborted by attention interrupt. ************************************************************************** 0 Referenced by comments of: 1002/13, 1002/14, 1002/15, 1002/16, 1002/17, 1002/18, 1002/19, 1002/20, 1002/21, 1002/22, 1002/23, 1002/25, 1002/27, 1002/28 01002/013 FIX INIT SA G S1431 4.3T2 VLO FSNAME=FIX.INIT.SA.013(1) 299 5.0T3 1092 FIX.INIT.SA.013 1 LINE 87 6 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:17 5.0T8 471 0 The PSECT initializer routine. This routine contains the entry points FIXINIT, UINIT, and UINITI. The first call to FIXINIT causes the PSECT to be initialized, FIXINITI, including the default &ID as specified in the GLOBALS copy section. If your defaults are the same as UBC, except for &ID then just re-assemble this module and replace in the distributed object module. The PSECT may also be re-initialized via a call to FIXINITI. The code to acquire and initialize a unit dsect is also contained in this module, UINIT. The entry FIXEND is called to restore all necessary things before returning to the FORTRAN program. Currently this consists of restoring the floating point registers. 1 MON AUG 05/96 18:37:45 Page 657 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Dependent on the setting of the assembly flag &DEBUG, this module also collects statistics of usage. This was useful during the growing stage of FIX. All source routines which STEVENS is responsible for will have untidied Assembler source lines except for new releases. The purpose of this is to leave an "audit" trail of changes made to the particular routine. This is my own "checkpoint" feature which few, if any, others use. If it bothers you, I will send only tidied source in the future. ------------------- May 1979 --------------- ******************************************************************** Copies *CNFGINFODSECT (654). Assemble using the FIX MACRO LIBRARY (1002/12). ******************************************************************** 01002/014 FIX FTN_TRANSFER SA G S1431 4.3T2 VLO FSNAME=FIX.FTN_TRANSFER.SA.014(1) 300 5.0T3 1093 FIX.FTN_TRANSFER.SA.014 1 LINE 81 17 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:18 5.0T8 472 0 This is the FIX version of IBM's IBCOM#. The initial transfer vector is included along with the code to perform unformatted I/O. The define file entry DIOCS# is also included in this module. Programs which store information in the area after the initial transfer vector, e.g. SNOBOL, will not work with a resident version of FIX. They will have to run with a non-resident version of FIX. Space has been left in the transfer vector for those routines which use this area for various purposes. Two extra words have been added to the transfer vector: 1. An entry for IF, Interactive Fortran. 2. An entry for STOP from the error monitor. As well, the FTNX branch has been added to the table. This should be the first loaded routine. On program interrupts, ERRMON uses the address of IBCOM and end of ERRMON to determine if the interrupt occurred in FIX. Most FORTRAN I/O calls are made to this module via a transfer vector. Only calls not made are NAMELIST, DEBUG, FTNCMD. ------------------- May 1979 --------------- ******************************************************************** Assemble using the FIX MACRO LIBRARY (1002/12). ******************************************************************** 01002/015 FIX UNIT_CONTROL SA G S1431 4.3T2 VLO FSNAME=FIX.UNIT_CONTROL.SA.015(1) 301 5.0T3 1094 FIX.UNIT_CONTROL.SA.015 1 LINE 83 21 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:21 5.0T8 473 0 This is the source code for the FIX version of IBM's FIOCS# known as the "UNIT CONTROL ROUTINES", UCR. Calls to UCR are via direct calls rather than IBM's transfer vector method. 1 MON AUG 05/96 18:37:45 Page 658 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 All I/O to FORTRAN units is done through this module. Processing of $ENDFILE records is determined by the &ENDFILE global symbol in the GLOBALS copy section. ------------------- May 1979 --------------- The following changes have been made to the unit control routines since the last distribution: 1. Problems with indexed I/O and concatenated files have forced us to disallow this feature to users. All indexed I/O is now done with explicit and implicit concatenation turned off. 2. A check has been made for no error message returned by GDINFO on an error return from READ or WRITE; the TAPE DSR returns no message for RC=4 on write. **************************************************************************** Copies *GDINFODSECT (594). Assemble using the FIX MACRO LIBRARY (1002/12). **************************************************************************** 0 Referenced by comments of: 1002/28 01002/016 FIX FORMAT_IO SA G S1431 4.3T2 VLO FSNAME=FIX.FORMAT_IO.SA.016(1) 302 5.0T3 1095 FIX.FORMAT_IO.SA.016 1 LINE 72 32 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:46:23 5.0T8 474 0 The module for decoding compiled formats and performing the necessary conversions. ------------------- May 1979 --------------- **************************************************************************** Assemble using the FIX MACRO LIBRARY (1002/12). **************************************************************************** 01002/017 FIX VARIABLE_FMT SA G S1431 4.3T2 VLO FSNAME=FIX.VARIABLE_FMT.SA.017(1) 303 5.0T3 1096 FIX.VARIABLE_FMT.SA.017 1 LINE 72 16 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:46:28 5.0T8 475 0 The module for decoding variable formats. List-directed I/O implemented here by checking for "*" as first character of the format. If true, then flag set to call LSTDIO instead of FINIT. The format is saved to be able to check for duplicate calls with the same format to save decoding time. Only one level save. ------------------- May 1979 --------------- **************************************************************************** Assemble using the FIX MACRO LIBRARY (1002/12). **************************************************************************** 1 MON AUG 05/96 18:37:45 Page 659 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01002/018 FIX MISCELLANEOUS SA G S1431 4.3T2 VLO FSNAME=FIX.MISCELLANEOUS.SA.018(1) 304 5.0T3 1097 FIX.MISCELLANEOUS.SA.018 1 LINE 78 11 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:30 5.0T8 476 0 This source file contains a number of small miscellaneous routines. UM's original SETxxx routines are mostly implemented as dummy routines. IBM's SLITE/SLITET/DVCHK/OVFLOW are also included. FIX's space allocation/de-allocation routines are included here as well as the routine to decode the initial FORTRAN parameter list. ------------------- May 1979 --------------- **************************************************************************** Assemble using the FIX MACRO LIBRARY (1002/12). **************************************************************************** 0 Referenced by comments of: 1002/28 01002/019 FIX LIST_DIRECTED SA G S1431 4.3T2 VLO FSNAME=FIX.LIST_DIRECTED.SA.019(1) 305 5.0T3 1098 FIX.LIST_DIRECTED.SA.019 1 LINE 72 21 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:46:31 5.0T8 477 0 The module for implementing FTNH-X list-directed I/O. Control is passed to this routine from IBCOM# if a variable format which contains an "*" as the first character is detected. Provision is made to call this routine if using FTNX via the LDFIO# entry point, contained in IBCOM, for "true" list directed I/O. Both calls yield identical results. ------------------- May 1979 --------------- **************************************************************************** Assemble using the FIX MACRO LIBRARY (1002/12). **************************************************************************** 01002/020 FIX NAMELIST SA G S1431 4.3T2 VLO FSNAME=FIX.NAMELIST.SA.020(1) 306 5.0T3 1099 FIX.NAMELIST.SA.020 1 LINE 91 27 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:37 5.0T8 478 0 The module for implementing NAMELIST read and NAMELIST write statements. Two types of NAMELIST formats are supported - IBM fixed format and UBC's free format. 1. IBM format is assumed (input) if "&" found in col. 2 of the first record. 2. FREE format is assumed otherwise. Blanks and commas serve as delimiters in this case. Either format may be set via the appropriate SET command in FTNCMD. ------------------- May 1979 --------------- 1 MON AUG 05/96 18:37:45 Page 660 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 The following changes have been made to NAMELIST since the last distribution: 1. The number of subscripts is now checked for correctness. Two new error messages have been added for this purpose: too few subscripts specified, too many specified. 2. The output field width of real numbers has been increased to 16.8 from 16.7 to allow maximum values to be read in correctly. **************************************************************************** Assemble using the FIX MACRO LIBRARY (1002/12). **************************************************************************** 01002/021 FIX DEBUG SA G S1431 4.3T2 VLO FSNAME=FIX.DEBUG.SA.021(1) 307 5.0T3 1100 FIX.DEBUG.SA.021 1 LINE 81 11 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:42 5.0T8 479 0 The module for the FORTRAN DEBUG package which has been implemented in much the same manner as IBM. Exceptions are: 1. When an output line must be saved then space is acquired for each output line rather than in chunks and cramming. 2. Undefined values are detected and printed as "U"'s. 3. SUBTRACE feature extended to print the name of the routine. 4. DISPLAY command uses a special entry point into NAMELIST to print the data. ------------------- May 1979 --------------- **************************************************************************** Assemble using the FIX MACRO LIBRARY (1002/12). **************************************************************************** 01002/022 FIX LLXU_FORTRAN SA G S1431 4.3T2 VLO FSNAME=FIX.LLXU_FORTRAN.SA.022(1) 308 5.0T3 1101 FIX.LLXU_FORTRAN.SA.022 1 LINE 91 13 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:43 5.0T8 480 0 The module for dynamic linking in FORTRAN written by UM. Depending on the setting of the merge flag in the loading call, FIX either obtains a fresh PSECT or uses the current one. Since UBC has not released the full calls to the system loader routines, only a subset of these calls are available to FORTRAN users. This option is controlled by the &LLXUX global symbol in copy section GLOBALS. ------------------- May 1979 --------------- The following changes have been made to LLXUF since the last distribution: 1. Conditional assembly statements have been corrected to yield proper code for those who use &LLXUX=1. 2. LOADF return codes are now defined via a global SETC array to allow each installation to have their own. Unfortunately, UBC had documented them differently than UM and in fact, differently than implemented. This led to 3 separate sets. 1 MON AUG 05/96 18:37:45 Page 661 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Assemble using the FIX MACROS (1002/12). ************************************************************************** D5.0 version: New return code added for LOADF: -5: Loading aborted by attention interrupt. ************************************************************************** 0 Referenced by comments of: 1002/28 01002/023 FIX ERROR_MONITOR SA G S1431 4.3T2 VLO FSNAME=FIX.ERROR_MONITOR.SA.023(1) 309 5.0T3 1102 FIX.ERROR_MONITOR.SA.023 1 LINE 85 102 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:46:45 5.0T8 481 0 The main part of the FORTRAN I/O error monitor. The error monitor is called via FTNCMD, user call, or from within FIX, error call. It is called initially by FIXINIT to set up the program interrupt exit unless one has already been set up. The subroutine DEFAULTS is called to initialize the default setting of undefined units. Whenever an error occurs, the table contained in the ERROR_TABLE is referenced to determine the actions required by this error. This should be the last module in the object file so that the determination of whether an interrupt occurred within FIX. IBCOM# should be the first one. ------------------- May 1979 --------------- The following changes have been made to FIODEBUG since the last distribution: 1. The check for legal space has been made more rigorous so that programs running in an unprotected system don't think that segment 0 is addressable, e.g. virtual machines. 2. SET SEMIFREE=ON/OFF has been added to allow turning off the default "free-format" input. 3. Abbreviations have been standardized. 4. FTNCMD multiple substitution bug fixed. 5. QUERY command returns FDname with trailing blank. 6. The system now prints MAP/GRs/FPRs instead of ERRMON. 7. A reasonable message is issued when intervening actions prevent prompting for replacement of an input line with an error. 8. A bug in the printing of a variable format in the debug output was fixed. ******************************************************************** Copies *GDINFODSECT (594) and *CNFGINFODSECT (654). Assemble using the FIX MACROS (1002/12). ******************************************************************** 0 Referenced by comments of: 1002/28 1 MON AUG 05/96 18:37:45 Page 662 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01002/024 FIX UNIT_DEFAULTS SA G S1431 4.3T2 VLO FSNAME=FIX.UNIT_DEFAULTS.SA.024(1) 310 5.0T3 1103 FIX.UNIT_DEFAULTS.SA.024 1 LINE 49 1 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:47:00 5.0T8 482 0 The subroutine to the error monitor to set unit defaults. The current status of this is to set the following defaults: unit 5 - *SOURCE* unit 6 - *SINK* ------------------- May 1979 --------------- 01002/025 FIX ERROR_TABLE SA G S1431 4.3T2 VLO FSNAME=FIX.ERROR_TABLE.SA.025(1) 311 5.0T3 1104 FIX.ERROR_TABLE.SA.025 1 LINE 64 2 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:47:01 5.0T8 483 0 The external error table, to allow adding/changing of errors without needing to re-assemble the whole error monitor. To change the action of one or more errors, make the appropriate change(s) to the error macro call in MACLIB and re-assemble this module. ------------------- May 1979 --------------- **************************************************************************** Assemble using the FIX MACROS (1002/12). **************************************************************************** 01002/026 FIX DUMP SA G S1431 4.3T2 VLO FSNAME=FIX.DUMP.SA.026(1) 312 5.0T3 1105 FIX.DUMP.SA.026 1 LINE 72 7 PAGE UBC O'REILLY TIFFANY DEC. 07, 1978 11:04:22 5.0T8 484 0 SOURCE TO IMPLEMENT FORTRAN DUMP/PDUMP. RESIDES IN THE GENERAL LIBRARY AS IT IS NOT USED VERY MUCH. 01002/027 FIX LCS_SOURCE SA G S1431 4.3T2 VLO FSNAME=FIX.LCS_SOURCE.SA.027(1) 313 5.0T3 1106 FIX.LCS_SOURCE.SA.027 1 LINE 84 1 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:47:02 5.0T8 485 0 The source for generating the low core symbol table for all required FIX entry points. There is room at the end for an extra 12 entry points if required for patching purposes. ------------------- May 1979 --------------- **************************************************************************** Assemble using the FIX MACROS (1002/12). **************************************************************************** 01002/028A FIX UM_UPDATES UC G W062:FIX.UP 5.0T3 1107 FIX.UM_UPDATES.UC.028 1 LINE 68 4 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:37:10 5.0T8 486 0 This file contains UM'S updates to the various subcomponents of UBC'S FIX and the FIX MACRO LIBRARY. Current subcomponents which are updated include: 1 MON AUG 05/96 18:37:45 Page 663 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 1. MISCELLANEOUS (1002/18) 2. MACRO_LIBRARY (1002/12) 3. ERROR_MONITOR (1002/23) 4. UNIT_CONTROL (1002/15) 5. LLXU_FORTRAN (1002/22) ************************************************************************** D5.0 version: New return code added for LOADF: -5: Loading aborted by attention interrupt. ************************************************************************** 01003/001 TAPEAID # (NOT DISTRIBUTED) UBC 0 This component, which is not currently installed at UM, is a general utility program for interactive manipulation of tapes. 01004/001 DSRMON # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DSR MONITOR PROGRAM FOR TESTING OUT DSR'S. 01005/001 FREAD SUBR FREAD# SA G S0565 D4T3 VLO FSNAME=FREAD_SUBR.FREAD#.SA.001(1) 389 5.0T3 1108 FREAD_SUBR.FREAD#.SA.001 1 LINE 77 52 PAGE UBC STEVENS TIFFANY JUNE 15, 1977 09:37:11 5.0T8 487 0 THIS IS THE REENTRANT PART OF FREAD, THE FREE FORMAT INPUT FACILITY. COPIES THE FREAD.COPY COPY SECTION (1005/5) AND *GDINFODSECT (594). 0 Referenced by comments of: 1005/3, 1005/5 01005/002 FREAD SUBR FREAD# OC G SEG2:FREAD 5.0T3 1109 FREAD_SUBR.FREAD#.OC.002 1 LINE 80 11 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:37:28 5.0T8 488 SEG2:FREAD 0 THIS OBJECT IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE. 01005/003 FREAD SUBR FREAD SA G S0565 D4T3 VLO FSNAME=FREAD_SUBR.FREAD.SA.003(1) 391 5.0T3 1110 FREAD_SUBR.FREAD.SA.003 1 LINE 77 3 PAGE UBC STEVENS TIFFANY MAY 12, 1977 16:17:34 5.0T8 489 0 THIS IS THE NON-REENTRANT PART OF FREAD WHICH INTERFACES TO THE REENTRANT PART (1005/1). COPIES THE FREAD.COPY COPY SECTION (1005/5). 0 Referenced by comments of: 1005/5 1 MON AUG 05/96 18:37:45 Page 664 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01005/004 FREAD SUBR FREAD OC G # (PART OF *LIBRARY) UBC STEVENS TIFFANY 0 Object part of *LIBRARY (524/1) 01005/005 FREAD SUBR FREAD.COPY SA G S0565 D4T3 VLO FSNAME=FREAD_SUBR.FREAD.COPY.SA.005(1) 392 5.0T3 1111 FREAD_SUBR.FREAD.COPY.SA.005 1 LINE 72 4 PAGE UBC STEVENS TIFFANY JUNE 13, 1977 11:51:56 5.0T8 490 0 COPY SECTION USED BY (1005/1) AND (1005/3). 0 Referenced by comments of: 1005/1, 1005/3 01006/001 PRDSCT SA S1143 D4.1T1 VLO FSNAME=PRDSCT..SA.001(1) 650 5.0T3 1112 PRDSCT..SA.001 1 LINE 83 21 PAGE UBC STEVENS TIFFANY MAY 13, 1978 18:28:15 5.0T8 491 0 ROUTINE TO PRINT A FORMATTED DUMP OF A DSECT. ***************************************************************************** D5.0 version: Should be assembled using the UBC Macros, which are no longer distributed by UM. The version found on D4.0 tape D4T3, file 421 is the correct version to use. ***************************************************************************** 01006/002 PRDSCT OE ETC:FIX.PRDSCT 5.0T3 1113 PRDSCT..OE.002 1 LINE 5843 3 PAGE UBC STEVENS TIFFANY JULY 03, 1981 20:37:32 5.0T8 492 ETC:FIX.PRDSCT 01007/001 ROBJ # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO REPLACE OBJECT MODULES BY NAME. 01008/001 PATCH # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO PATCH OBJECT MODULES FREE-FORMAT OR REP RECORD INPUT. 01009/001 RUN # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO EXECUTE PROGRAMS FROM A LIBRARY OF PROGRAMS, SO THAT USERS NEED TO MAINTAIN ONLY A SINGLE FILE OF PROGRAMS. THIS IN TURN DECREASES THE NUMBER OF FILES TO MAINTAIN AND REMEMBER. 1 MON AUG 05/96 18:37:45 Page 665 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01011/001 ALIST # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN ASSEMBLY/FORTRAN LIST PROGRAM. 01012/001A UNITS D5.0 JOB PGM SA G S0699 D3TAPE POSN=UNITS.D5 5.0T4 554 UNITS.D5.0_JOB_PGM.SA.001 1 LINE 80 36 PAGE UBC BERRYMAN MTA AUG. 10, 1981 00:05:44 5.0T11 128 0 JOB PROGRAM INTERFACE FOR THE UNITS JOB AND A SUBROUTINE CALLED BY IT AND ALSO BY THE MTS UNITS PROGRAM (1012/3). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING DMPLST.MACROS (400/18). 0 Referenced by comments of: 490/1, 1012/4 01012/002C UNITS UPDATE UC G MTA:UNITS.U 5.0T4 555 UNITS.UPDATE.UC.002 1 LINE 105 4 PAGE UBC BERRYMAN MTA AUG. 10, 1981 00:05:45 5.0T11 129 0 Update to bring D4.3 UNITS to D5.0. 01012/003A UNITS JOB PROGRAM OC G # (PART OF RESIDENT SYSTEM) D4T3 396 UNITS.JOB_PROGRAM.OC.002 1 LINE 80 6 PAGE UBC BERRYMAN MTA JULY 29, 1977 00:11:35 0 Object part of Resident System (468) 0 Referenced by comments of: 1012/1 01012/004A UNITS MTS PROGRAM SA G MTA:UNITS.MTS.S 5.0T4 556 UNITS.MTS_PROGRAM.SA.004 1 LINE 69 3 PAGE UBC BERRYMAN MTA AUG. 10, 1981 00:05:46 5.0T11 130 0 MTS PROGRAM TO FORMAT PARAMETERS AND CALL THE UNITS SUBROUTINE (1012/1). 01012/005A UNITS MTS PROGRAM OE G MTA:UNITS.O 5.0T4 557 UNITS.MTS_PROGRAM.OE.005 1 LINE 1119 1 PAGE UBC BERRYMAN MTA AUG. 10, 1981 00:05:47 5.0T11 131 MTA.:UNITS.O 0 MUST BE RUN WITH PROT=OFF UNLESS A SET OF TABLES IS CONCATENATED WITH IT. 01012/006C UNITS WRITEUP WF MTA:UNITS.W 5.0T4 558 UNITS.WRITEUP.WF.006 1 LINE 72 3 PAGE UBC BERRYMAN MTA AUG. 10, 1981 00:05:48 5.0T11 132 0 Description of input to UNITS and most messages it prints. 01014/001 MARKIV # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A DATA MANAGEMENT REPORT GENERATION PROGRAM. 1 MON AUG 05/96 18:37:45 Page 666 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01015/001 ROTOF # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO REORDER LINES IN A SEQUENTIAL FILE AND TO REORDER FILES ON A TAPE. 01016/001 STEVENS MACRO LIB SM S1200 RD15T1 VLO FSNAME=STEVENS.MACRO.LIB..SM.01(1) 513 5.0T3 1114 STEVENS_MACRO_LIB..SM.001 1 LINE 73 20 PAGE UBC STEVENS DWB AUG. 30, 1978 22:42:26 5.0T8 493 0 MACROS NEEDED BY *APC (496). 01019/001A RAMROD SERVICE MODULE SA G MTS:RAMROD.SR.S(1) 5.0T3 1115 RAMROD.SERVICE_MODULE.SA.001 1 LINE 72 53 PAGE UBC BERRYMAN MTA JULY 03, 1981 20:44:47 5.0T8 494 MTS.:RAMROD.SR.S 0 SERVICE ROUTINES FOR RAMROD. ASSEMBLE USING RAMROD MACROS (1019/4). COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 596/1, 1019/5 01019/002 RAMROD INTER SA G MTS:RAMROD.CS.S(1) 5.0T3 1116 RAMROD.INTER.SA.002 1 LINE 80 88 PAGE UBC BERRYMAN MTA JULY 03, 1981 20:44:55 5.0T8 495 MTS.:RAMROD.CS.S 0 SOURCE FOR THE RAMROD COMMAND LANGUAGE INTERPRETER. REQUIRES THE EXISTENCE OF A FILE, PRESENTLY NAMED MTS:RAMRODLOG BY DEFAULT, BUT SETABLE, WHICH IS PERMITTED AT LEAST WRITE-EXTEND FOR ITS TRANSACTION LOG. IT ALSO REQUIRES AN EXPLAIN FILE (1019/6). ALL FILENAMES OF THIS SORT ARE ASSEMBLY PARAMETERS. COPIES *GFINFODSECT (593) AND *GDINFODSECT (594). ASSEMBLE USING RAMROD.MACROS (1019/4). 0 Referenced by comments of: 1019/5 01019/003C RAMROD GSFS SA G MTS:RAMROD.GSFS(1000) 5.0T3 1117 RAMROD.GSFS.SA.003 1 LINE 70 3 PAGE UBC BERRYMAN MTA AUG. 06, 1981 05:44:05 5.0T8 496 MTS:RAMROD.GSFS 0 Interface to GETSPACE/FREESPACE that allows multiple segment requests. Copies *CNFGINFODSECT (654). 01019/004 RAMROD MACROS SM G MTS:RAMROD.MACS 5.0T3 1118 RAMROD.MACROS.SM.004 1 LINE 72 4 PAGE UBC BERRYMAN MTA JULY 03, 1981 20:45:38 5.0T8 497 MTS.:RAMROD.MACS 0 THESE MACROS AND COPY SECTIONS ARE USED FOR BOTH THE COMMAND LANGUAGE INTERPRETER AND THE SERVICE MODULE. 0 Referenced by comments of: 1019/1, 1019/2, 1019/7 1 MON AUG 05/96 18:37:45 Page 667 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01019/005A RAMROD OBJECT OC G MTS:RAMROD 5.0T3 1119 RAMROD.OBJECT.OC.005 1 LINE 4069 53 PAGE UBC BERRYMAN MTA AUG. 06, 1981 05:44:15 5.0T8 498 MTS.:RAMROD 0 CONTAINS THE OBJECT FOR THE COMMAND LANGUAGE INTERPRETER (1019/2) AND THE SERVICE MODULE (1019/1). 01019/006 RAMROD EXPLAIN M MTS:RAMRODEXP 5.0T3 1120 RAMROD.EXPLAIN.M.006 1 LINE 79 3 PAGE UBC BERRYMAN MTA JULY 03, 1981 20:45:44 5.0T8 499 MTS.:RAMRODEXP 0 EXPLAIN FILE FOR RAMROD. AS DISTRIBUTED, RAMROD EXPECTS THIS FILE TO BE NAMED MTS:RAMRODEXP. NOTE: LINE NUMBERS IN THIS FILE ARE IMPORTANT AND THE FILE STARTS AT LINE 0. 0 Referenced by comments of: 1019/2 01019/007 RAMROD DUMP SA G MTS:RRDMP.S 5.0T3 1121 RAMROD.DUMP.SA.007 1 LINE 72 8 PAGE UBC BERRYMAN MTA JULY 03, 1981 20:45:45 5.0T8 500 MTS.:RRDMP.S 0 RAMROD FILE DIRECTORY DUMP PROGRAM. ASSEMBLE USING RAMROD MACROS (1019/4). 01019/008 RAMROD DUMP OC G MTS:RRDMP 5.0T3 1122 RAMROD.DUMP.OC.008 1 LINE 80 7 PAGE UBC BERRYMAN MTA JULY 03, 1981 20:45:47 5.0T8 501 MTS.:RRDMP 01019/009 RAMROD INTRO WF S0565 D4T3 VLO FSNAME=RAMROD.INTRO.WF.008(1) 407 5.0T3 1123 RAMROD.INTRO.WF.009 1 LINE 79 4 PAGE UBC HOGG MTA MAR. 22, 1976 14:33:16 5.0T8 502 0 INTRODUCTION TO RAMROD AND IPL READER (1021). RELEVANT MAINLY TO INSTALLATIONS CONVERTING FROM PRE-IPLREADER VERSIONS OF RAMROD. 0 Referenced by comments of: 1021/1 01019/010 RAMROD WRITEUP WF MTS:RAMROD.W 5.0T3 1124 RAMROD.WRITEUP.WF.010 1 LINE 115 11 PAGE UBC BERRYMAN MTA JULY 03, 1981 20:45:52 5.0T8 503 MTS.:RAMROD.W 0 WRITEUP DESCRIBING THE RAMROD UTILITY. 01019/011 RAMROD MTS:RAMRODLOG D # MTS:RAMRODLOG UBC BERRYMAN MTA MTS:RAMRODLOG@E 0 RAMROD LOG FILE. 01020/001A FILE MOVE SA G FILE:FM.S 5.0T3 1125 FILE_MOVE..SA.001 1 LINE 106 12 PAGE UBC HOGG HELFFRICH AUG. 06, 1981 05:44:34 5.0T8 504 FILE:FM.S 0 Program to move files from a production file system to a test pack. See the description of this program in (682/7). Assemble using COPY:FILE.MACROS 1 MON AUG 05/96 18:37:45 Page 668 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (482/45). Copies *CNFGINFODSECT (654). ******************************************************************************** D5.0 changes: Changed for Disk Manager (769) support, to add the VOL= parameter so that a file may be created on a particular volume, to add the NODATA parameter so that a file may be created but left empty, and to add the LSTCHG= parameter to cause it to check to see if the file has been changed since the specified date. ******************************************************************************** 0 Referenced by comments of: 461/24, 682/7, 3024/36, 3024/39 01020/002A FILE MOVE OC G FILE:FM 5.0T3 1126 FILE_MOVE..OC.002 1 LINE 5498 5 PAGE UBC HOGG HELFFRICH AUG. 06, 1981 05:44:40 5.0T8 505 FILE:FM 01021/001A IPL READER 5.0 IPLBOOT SA G S0699 D3TAPE POSN=IPLBOOT.D5 5.0T4 559 IPL_READER.5.0_IPLBOOT.SA.001 1 LINE 80 32 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:25 5.0T11 133 0 SEE COMP (1019/9) FOR AN INTRODUCTORY WRITEUP ON RAMROD AND THE IPL READER. THIS IS A BOOTSTRAP PROGRAM FOR THE IPLREADER. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162). ASSEMBLE USING COPY:SETPARM (653) AND COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 4/4, 1019/9, 1021/7 01021/002A IPL READER IPLBOOT UPD UC G MTS:IPLBOOT.S(*F,-1) 5.0T4 560 IPL_READER.IPLBOOT_UPD.UC.002 1 LINE 72 10 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:26 5.0T11 134 MTS:IPLBOOT.S 0 UPDATE TO PRODUCE THE CURRENT VERSION OF IPLBOOT, BASED ON THE D4.2 SOURCE. 01021/003A IPL READER IPLBOOT OC G MTS:IPLBOOT.O 5.0T4 561 IPL_READER.IPLBOOT.OC.003 1 LINE 80 3 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:31 5.0T11 135 MTS.:IPLBOOT.O 01021/004A IPL READER 5.0 IPLREAD SA G S0699 D3TAPE POSN=IPLREAD.D5 5.0T4 562 IPL_READER.5.0_IPLREAD.SA.004 1 LINE 80 116 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:34 5.0T11 136 0 MAIN PART OF IPL READER. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162). ASSEMBLE USING COPY:SETPARM (653) AND COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 1021/7 1 MON AUG 05/96 18:37:45 Page 669 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01021/005A IPL READER IPLREAD UPD UC G MTS:IPLREAD.S(*F,-1) 5.0T4 563 IPL_READER.IPLREAD_UPD.UC.005 1 LINE 76 9 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:37 5.0T11 137 MTS:IPLREAD.S 0 UPDATE TO PRODUCE THE CURRENT VERSION OF IPLREAD, BASED ON THE D4.2 SOURCE. 01021/006A IPL READER IPLREAD OC G MTS:IPLREAD.O 5.0T4 564 IPL_READER.IPLREAD.OC.006 1 LINE 80 9 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:45 5.0T11 138 MTS.:IPLREAD.O 01021/007A IPL READER 5.0 IPLINIT SA G S0699 D3TAPE POSN=IPLINIT.D5 5.0T4 565 IPL_READER.5.0_IPLINIT.SA.007 1 LINE 80 29 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:47 5.0T11 139 0 PROGRAM TO WRITE IPLBOOT (1021/1), IPLREAD (1021/4), AND UMLOAD (001/1) ON A DISK OR TAPE IN SELF LOADING FORM. COPIES *GDINFODSECT (594). ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 1021/10 01021/008A IPL READER IPLINIT UPD UC G MTS:IPLINIT.S(*F,-1) 5.0T4 566 IPL_READER.IPLINIT_UPD.UC.008 1 LINE 72 11 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:48 5.0T11 140 MTS.:IPLINIT.S 0 UPDATE TO PRODUCE THE CURRENT VERSION OF IPLINIT, BASED ON THE D4.0 SOURCE. 01021/009A IPL READER IPLINIT OC G MTS:IPLINIT.O 5.0T4 567 IPL_READER.IPLINIT.OC.009 1 LINE 80 9 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:06:51 5.0T11 141 MTS.:IPLINIT.O 0 OBJECT REQUIRES IPLGTUM (1021/10) AND RSTR:VTOCREAD (067/3) TO RUN. MUST BE RUN WITH PROT=OFF. 01021/010 IPL READER IPLGTUM SA G S0565 D4T3 VLO FSNAME=IPL_READER.IPLGTUM.SA.007(1) 417 5.0T4 568 IPL_READER.IPLGTUM.SA.010 1 LINE 72 3 PAGE UBC O'REILLY MTA JULY 29, 1977 00:14:25 5.0T11 142 0 SUBROUTINE TO LOAD UMLOAD (001/1) FOR IPLINIT (1021/7). 0 Referenced by comments of: 1021/9 01021/011 IPL READER IPLGTUM OC G MTS:IPLGTUM.O 5.0T4 569 IPL_READER.IPLGTUM.OC.011 1 LINE 80 1 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:10:00 5.0T11 143 MTS.:IPLGTUM.O 01021/012A IPL READER WRITEUP WF MTS:IPLREAD.W 5.0T4 570 IPL_READER.WRITEUP.WF.012 1 LINE 71 8 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:10:01 5.0T11 144 MTS.:IPLREAD.W 0 DESCRIPTION OF IPL READER. 1 MON AUG 05/96 18:37:45 Page 670 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01023/001A MSG ROUTINE SA W267:MSG.S 5.0T3 1127 MSG_ROUTINE..SA.001 1 LINE 131 61 PAGE UBC SAYLE EADIE JULY 03, 1981 20:46:00 5.0T8 506 0 Source for MSG routine. This is a reentrant general-purpose message routine with a variety of features. the routine is mainly designed to be used with macros and is designed to be resident. Consequently, it references CMDSUB rather than CMD and ZWRITEE rather than WRITE etc. For non-resident use, all that must be done is to change these references to their external counterparts. Assemble using *SYSMAC COPY:CC.MACROS (1054/3). COPY's *LOADINFODSECT (001/4). 0 Referenced by comments of: 1/5, 101/3, 724/3 01023/002A MSG ROUTINE OC # (PART OF RESIDENT SYSTEM) UBC SAYLE EADIE 0 Object part of Resident System (468) 01023/003A MSG ROUTINE PICTURE SA G W267:PIC.S(1) 5.0T3 1128 MSG_ROUTINE.PICTURE.SA.003 1 LINE 72 6 PAGE UBC SAYLE EADIE JULY 03, 1981 20:46:08 5.0T8 507 0 "PICTURE" PROCESSING CSECT FOR MSG ROUTINE. ASSEMBLE USING *SYSMAC AND COPY:CC.MACROS (1054/3). 01024/001 UBC MACROS SM # (NOT DISTRIBUTED) D4T3 421 UBC_MACROS..SM. 1 LINE 73 10 PAGE UBC STEVENS JULY 29, 1977 00:14:36 0 UBC COMPUTING CENTRE STAFF MACRO LIBRARY. THIS COMPONENT IS NOT DISTRIBUTED BY UM. 01025/001 LCS_PRINTER # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE WHICH ALLOWS ONE TO LIST THE CONTENTS OF VARIOUS LOW-CORE SYMBOL TABLES. 01026/001A GLOBAL SYSTEM PARS GLOBALDEFS SA G COPY:GLOBALDEFS 5.0T3 1129 GLOBAL_SYSTEM_PARS.GLOBAL.SA.001 1 LINE 80 2 PAGE UM MTA JULY 03, 1981 20:46:09 5.0T8 508 COPY:GLOBALDEFS 0 CONTAINS GBL DEFINITIONS FOR: &S370 SYSTEM/370 -- MUST BE ON &OC3066 3066 CONSOLE PRESENT &CRTY ITEL 7830 COMMAND RETRY -- MUST BE OFF &SIMPLEX SINGLE PROCESSOR -- MUST BE ON &OPERJOB OPERATOR JOB BEING USED &PROT PROTECTION 1 MON AUG 05/96 18:37:45 Page 671 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 &AMD470 AMDAHL 470 &BLKMPX BLOCK MULTIPLEXOR CHANNEL -- MUST BE ON &IO370 370 I/O INSTRUCTIONS -- MUST BE ON &NOSLT NO SEARCH LIST INSTRUCTION -- MUST BE ON &OMR 2501 OMR FEATURE &JTBLPOL POOL ENTRIES IN JOB TABLE &DTBLPOL POOL ENTRIES IN DEVICE TABLE &LFILENM LENGTH OF FILE NAMES &NDC NO DATA CELL &SPELC SPELLING CORRECTION &SPELCP SPELLING CORRECTION PROMPT &BRCPRNT BATCH RC PRINT &TRCPRNT TERM RC PRINT &BEBM DEFAULT BATCH EXEC BEGINS MSG &BETM DEFAULT BATCH EXEC TERM MSG &TEBM DEFAULT TERM EXEC BEGINS MSG &TETM DEFAULT TERM EXEC TERM MSG &INSTALL THE INSTALLATION'S SHARE CODE &SYSPROJ INITIAL SUBSTRINGS FOR THOSE PROJECTS THAT BELONG TO SYSTEM PROGRAMMERS. &IPLPROJ INITIAL SUBSTRINGS FOR THOSE PROJECTS FOR WHICH THE ACCOUNTING RECORD IN USE BIT CAN BE IGNORED. &UQVNTPT ON IF USING UQV NOTE/POINT FORMAT FOR SEQUENTIAL FILES &TTALLY ON TO GET SYSTEM TIME TALLY 0 Referenced by comments of: 4/1, 42/1, 45/1, 101/1, 116/1, 135/1, 400/1, 545/3, 570/1, 653/1 01026/002A GLOBAL SYSTEM PARS GLOBALSETS SA G COPY:GLOBALSETS 5.0T3 1130 GLOBAL_SYSTEM_PARS.GLOBAL.SA.002 1 LINE 80 1 PAGE UM MTA JULY 03, 1981 20:46:10 5.0T8 509 COPY:GLOBALSETS 0 THIS FILE DEFINES VALUES FOR THE SYMBOLS IN GLOBALDEFS AS APPROPRIATE FOR THE UM AMDAHL 470 VERSION OF MTS. 0 Referenced by comments of: 4/1, 42/1, 45/1, 101/1, 116/1, 135/1, 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 387/26, 387/29, 387/31, 387/34, 400/1, 545/3, 570/1, 806/1, 1070/1 01026/003 GLOBAL SYSTEM PARS GLOBALS SA G COPY:GLOBALS 5.0T3 1131 GLOBAL_SYSTEM_PARS.GLOBAL.SA.003 1 LINE 37 1 PAGE UM MTA JULY 03, 1981 20:46:10 5.0T8 510 COPY:GLOBALS 0 CONTAINS: $CONTINUE WITH COPY:GLOBALDEFS RETURN $CONTINUE WITH COPY:GLOBALSETS RETURN 0 Referenced by comments of: 5/1, 7/1, 8/1, 9/1, 9/3, 10/1, 19/1, 21/1, 24/1, 40/1, 44/1, 46/1, 79/1, 80/1, 87/1, 162/1, 198/1, 353/2, 354/1, 354/5, 388/1, 399/1, 400/5, 400/16, 413/1, 464/1, 482/4, 482/7, 500/50, 507/2, 509/1, 513/1, 531/1, 531/7, 531/14, 539/1, 540/1, 540/3, 540/6, 540/8, 540/10, 540/12, 540/18, 540/27, 545/16, 554/1, 554/3, 577/1, 577/3, 577/6, 578/1, 579/1, 600/1, 615/15, 615/17, 621/2, 629/4, 634/1, 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/11, 682/22, 685/5, 693/1, 731/3, 732/1, 770/1, 777/1, 787/15, 798/67, 1012/1, 1021/1, 1021/4, 1079/10, 1081/1, 1081/12, 1081/13, 1081/14, 1081/15, 1081/16, 3024/1, 4000/1 1 MON AUG 05/96 18:37:45 Page 672 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01027/001A P11 JOB SA G S0938 FSAVE2 VLO FSNAME=P11.S 5.0T3 1132 P11_JOB..SA.001 1 LINE 70 2 PAGE UBC MTA JAN. 19, 1981 22:18:38 5.0T8 511 0 JOB PROGRAM TO LOAD THE CHARACTER AND CARRIAGE CONTROL BUFFERS OF A 3211 PRINTER FOR THE P11 PRINT TRAIN. LOADS FCB FOR 6 LINES PER INCH ON 11 INCH PAPER UNLESS THE "8LPI" PARAMETER IS GIVEN, IN WHICH CASE IT LOADS FOR 8 LINES PER INCH ON 8.5 INCH PAPER. 0 Referenced by comments of: 819/1 01027/002A P11 JOB OC G # (PART OF RESIDENT SYSTEM) D4T3 427 P11_JOB..OC.002 1 LINE 80 1 PAGE UBC MTA MAR. 15, 1975 16:00:44 0 Object part of Resident System (468) 01028/001 STAND-ALONE DUMP IPL MODULE SA S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.IPL_MODU.SA.001(1) 429 5.0T3 1133 STAND-ALONE_DUMP.IPL_MODU.SA.001 1 LINE 72 5 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:44:58 5.0T8 512 0 ASSEMBLER SOURCE FOR STAND-ALONE DUMP PROGRAM. THIS VERSION, JAN 1977, REPLACES THE PREVIOUS VERSION, WHICH WAS FROM IBM. THE SOURCE INCLUDES INSTRUCTIONS FOR GENERATING AN IPL-ABLE STAND-ALONE DUMP TAPE FROM THE OBJECT. THE DUMPS PRODUCED BY THIS PROGRAM ARE FORMATTED DIFFERENTLY FROM THOSE PRODUCED BY THE IBM STAND-ALONE DUMP PROGRAM. A VERSION OF THE STAND-ALONE DUMP PRINT PROGRAM THAT SUPPORTS THIS NEW FORMAT IS INCLUDED IN (1028/3) THROUGH (1028/9). NOTE: THIS PROGRAM HAS NEVER BEEN USED AT UM. IT WON'T WORK ON A MACHINE WITH 16 MEGABYTES OF REAL MEMORY. 0 Referenced by comments of: 1028/2 01028/002 STAND-ALONE DUMP IPL MODULE OC S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.IPL_MODU.OC.002(1) 430 5.0T3 1134 STAND-ALONE_DUMP.IPL_MODU.OC.002 1 LINE 80 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:00 5.0T8 513 0 OBJECT FOR THE STAND-ALONE DUMP PROGRAM. THIS IS THE ASSEMBLER OUTPUT, UN-DIDDLED FOR IPL'ING FROM. SEE (1028/1) FOR DIDDLING INSTRUCTIONS. 01028/003 STAND-ALONE DUMP MAIN SP S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.MAIN.SP.003(1) 431 5.0T3 1135 STAND-ALONE_DUMP.MAIN.SP.003 1 LINE 88 4 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:01 5.0T8 514 0 PL/1 SOURCE FOR MAIN PROGRAM OF STAND-ALONE DUMP PRINTER. COMPLETE PROGRAM CONSISTS OF THE MAIN PROGRAM, THE PL/1-TO-PRTRACE INTERFACE PSD.PT, A VERSION OF PRTRACE (337) OF YOUR CHOICE, AND THE TIME-CONVERTING SUBROUTINE PSD.CT. A COMPLETE LINKEDITED LOAD MODULE IS IN (1028/9). 0 Referenced by comments of: 1028/1 1 MON AUG 05/96 18:37:45 Page 673 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01028/004 STAND-ALONE DUMP MAIN OC S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.MAIN.OC.004(1) 432 5.0T3 1136 STAND-ALONE_DUMP.MAIN.OC.004 1 LINE 80 9 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:06 5.0T8 515 01028/005 STAND-ALONE DUMP PSD.PT SA S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.PSD.PT.SA.005(1) 433 5.0T3 1137 STAND-ALONE_DUMP.PSD.PT.SA.005 1 LINE 61 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:03 5.0T8 516 0 SOURCE FOR THE PL/1-TO-PRTRACE INTERFACE FOR THE STAND-ALONE DUMP PRINT PROGRAM. 01028/006 STAND-ALONE DUMP PSD.PT OC S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.PSD.PT.OC.006(1) 434 5.0T3 1138 STAND-ALONE_DUMP.PSD.PT.OC.006 1 LINE 80 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:09 5.0T8 517 01028/007 STAND-ALONE DUMP PSD.CT SA S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.PSD.CT.SA.007(1) 435 5.0T3 1139 STAND-ALONE_DUMP.PSD.CT.SA.007 1 LINE 72 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:04 5.0T8 518 0 SOURCE FOR THE TIME-CONVERTING SUBROUTINE USED BY THE STAND-ALONE DUMP PRINTER. 01028/008 STAND-ALONE DUMP PSD.CT OC S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.PSD.CT.OC.008(1) 436 5.0T3 1140 STAND-ALONE_DUMP.PSD.CT.OC.008 1 LINE 80 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:12 5.0T8 519 01028/009 STAND-ALONE DUMP COMPLETE PROG OE S0565 D4T3 VLO FSNAME=STAND-ALONE_DUMP.COMPLETE.OE.009(1) 437 5.0T3 1141 STAND-ALONE_DUMP.COMPLETE.OE.009 1 SEQ 10118 8 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:13 5.0T8 520 0 LINKEDITED VERSION OF THE STAND-ALONE-DUMP PRINT PROGRAM INCLUDING ALL THE REQUIRED JUNK AND A $CONTINUE WITH *PL1LIB. 0 Referenced by comments of: 1028/1, 1028/3 01030/001A PACK MAP BASE SOURCE SA G PM FILE:PM(-10000,-1) 5.0T3 1142 PACK_MAP.BASE_SOURCE.SA.001 1 LINE 80 26 PAGE UBC O'REILLY HELFFRICH JULY 03, 1981 20:47:24 5.0T8 521 FILE:PM 0 PROGRAM TO PRINT COMPLETE MAP OF A PAGE-FORMATTED DISK PACK. FOR INSTRUCTIONS ON USAGE, SEE COMMENTS AT BEGINNING OF THE SOURCE. CALLS VTOCREAD (067/3) AND THE SORT SUBROUTINE (303/5). ASSEMBLE USING COPY:FILE.MACROS (482/45). SEE COMP (682/3) FOR A WRITEUP. 0 Referenced by comments of: 682/3, 1030/2 01030/002A PACK MAP UPDATE UC G FILE:PM(1000) 5.0T3 1143 PACK_MAP.UPDATE.UC.002 1 LINE 68 1 PAGE UBC O'REILLY HELFFRICH JULY 03, 1981 20:47:27 5.0T8 522 0 UPDATE DECK FOR (1030/1) TO YIELD CURRENT SOURCE. ************************************************************************ D5.0 version: Updated for Disk Manager (769) support. 1 MON AUG 05/96 18:37:45 Page 674 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ************************************************************************ 01030/003A PACK MAP OC G FILE:PM(0,999) 5.0T3 1144 PACK_MAP..OC.003 1 LINE 82 5 PAGE UBC O'REILLY HELFFRICH JULY 03, 1981 20:47:28 5.0T8 523 0 OBJECT FOR PACKMAP. CONTAINS "$CONTINUE WITH RSTR:VTOCREAD+COPY:SYSDEFS" (067/3) AND (579/3) RECORD. 01031/001 FO # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE "FILE OPTIMIZER" PROGRAM, WHICH WAS WRITTEN TO OPTIMIZE THE AMOUNT OF FILE SPACE USED BY A FILE. 01032/001 BCPL INSTALL_GUIDE P O S1431 4.3T2 VLO FSNAME=BCPL.INSTALL_GUIDE.P.001(1) 333 5.0T3 1145 BCPL.INSTALL_GUIDE.P.001 1 LINE 79 1 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:38 5.0T9 1 0 THIS VERSION OF BCPL, WRITTEN AT UNE, IS DERIVED FROM A RECENT VERSION OF THE CAMBRIDGE COMPILER. THE LIBRARY HAS BEEN COMPLETELY REWRITTEN ALMOST ENTIRELY IN BCPL, AND INCLUDES VARIOUS MTS-SPECIFIC FEATURES SUCH AS ACCESS TO LINE NUMBERS. THIS COMPILER CAN GENERATE AN INTERNAL SYMBOL TABLE, WHICH IS USED BY A LIBRARY POST-MORTEM ROUTINE TO GIVE SYMBOLIC DUMPS. VARIOUS UTILITIES ARE PROVIDED, SUCH AS A SOURCE RE-FORMATTER, TIDY (1032/16), A CROSS-REFERENCE PROGRAM (1032/18) THAT HANDLES SCOPES CORRECTLY, AND AN INTERACTIVE DEBUGGING SYSTEM (1032/12). THE INSTALLATION GUIDE (1032/1) TELLS HOW TO INSTALL AND RECOMPILE THE VARIOUS SUBCOMPONENTS OF THE SYSTEM. 0 Referenced by comments of: 1032/1 01032/002 BCPL CHANGELOG P O S1431 4.3T2 VLO FSNAME=BCPL.CHANGELOG.P.002(1) 334 5.0T3 1146 BCPL.CHANGELOG.P.002 1 LINE 74 1 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:20 5.0T9 2 0 A CHRONOLOGICAL LIST OF CHANGES TO THE UNE BCPL SYSTEM. (THIS IS ONE OF THE COMPONENTS SENT FROM UNE, AND DETAILS THE CHANGES THAT WERE MADE AT NEWCASTLE, NOT THE CHANGES MADE AT UM.) 01032/003 BCPL COMMENTS P S1153 UNSP VLO FSNAME=BCPL.COMMENTS 5.0T3 1147 BCPL.COMMENTS.P.003 1 LINE 66 1 PAGE UM UNSP DEC. 08, 1979 20:00:45 5.0T9 3 0 A BRIEF DESCRIPTION OF THE CHANGES BETWEEN UNE AND UM (MOSTLY FILENAMES). 1 MON AUG 05/96 18:37:45 Page 675 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01032/004 BCPL INSTALL C S1153 UNSP VLO FSNAME=BCPL.INSTALL 5.0T3 1148 BCPL.INSTALL.C.004 1 LINE 94 3 PAGE UM UNSP DEC. 08, 1979 20:00:49 5.0T9 4 0 THE COMMANDS USED TO INSTALL BCPL AT UM. 01032/005 BCPL COMPILER S O S1431 4.3T2 VLO FSNAME=BCPL.COMPILER.S.005(1) 337 5.0T3 1149 BCPL.COMPILER.S.005 1 LINE 117 48 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:42 5.0T9 5 0 CONTAINS ALL THE COMPILER MODULES (WRITTEN IN BCPL), AND THEIR ASSOCIATED HEADER FILES, AS A 'PDS' WHERE LINES 1-99 CONTAIN THE MODULE NAME, AND THE CORRESPONDING LINE NUMBER RANGE FOR THE SOURCE. TO COMPILE, THE HEADER FILES MUST BE EXTRACTED INTO REAL MTS FILES, IN ORDER THAT THE 'GET' COMMANDS WILL WORK. 0 Referenced by comments of: 1032/14 01032/006 BCPL COMPILER OE O UNSP:BCPL.COMPILER 5.0T3 1150 BCPL.COMPILER.OE.006 1 LINE 9496 20 PAGE UNE HEAL UNSP JULY 03, 1981 20:47:47 5.0T9 6 UNSP:BCPL.COMPILER 0 OBJECT OF THE COMPILER - $CONTINUES WITH USNP:BCPL.LIBRARY (1032/7). 01032/007 BCPL LIBRARY S O S1431 4.3T2 VLO FSNAME=BCPL.LIBRARY.S.007(1) 339 5.0T3 1151 BCPL.LIBRARY.S.007 1 LINE 124 48 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:02 5.0T9 7 0 SOURCE OF LIBRARY AS A 'PDS'. WRITTEN IN BCPL. 0 Referenced by comments of: 1032/6, 1032/8, 1032/10, 1032/11 01032/008 BCPL LIBRARY UC O S1153 UNSP VLO FSNAME=BCPL.BCPLSYS 5.0T3 1152 BCPL.LIBRARY.UC.008 1 LINE 62 1 PAGE UM UNSP DEC. 08, 1979 20:00:42 5.0T9 8 0 AN UPDATE TO SECTION BCPLSYS IN THE LIBRARY SOURCE (1032/7). USES GPSECT IN THE RESIDENT SYSTEM TO GET AROUND PROTECTION-INDUCED CHANGES IN SCANSTOR (ALSO IN THE RESIDENT SYSTEM). 0 Referenced by comments of: 1032/11 01032/009 BCPL LIBRARY S O UNSP:BCPL.LIBHDR 5.0T3 1153 BCPL.LIBRARY.S.009 1 LINE 57 2 PAGE UNE HEAL UNSP JULY 03, 1981 20:47:51 5.0T9 9 UNSP:BCPL.LIBHDR 0 HEADER FILE FOR LIBRARY, WRITTEN IN BCPL. 0 Referenced by comments of: 1032/11 1 MON AUG 05/96 18:37:45 Page 676 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01032/010 BCPL LIBRARY S O UNSP:BCPL.STREAMH 5.0T3 1154 BCPL.LIBRARY.S.010 1 LINE 90 2 PAGE UNE HEAL UNSP JULY 03, 1981 20:47:52 5.0T9 10 UNSP:BCPL.STREAMH 0 HEADER GIVING INTERNAL STRUCTURE OF BCPL STREAMS - NEEDED BY UNSP:BCPL.LIBRARY (1032/7) AND ADVANCED USERS ONLY. WRITTEN IN BCPL. 0 Referenced by comments of: 1032/11 01032/011 BCPL LIBRARY OL O UNSP:BCPL.LIBRARY 5.0T3 1155 BCPL.LIBRARY.OL.011 1 LINE 14056 12 PAGE UNE HEAL UNSP JULY 03, 1981 20:47:54 5.0T9 11 UNSP:BCPL.LIBRARY 0 BCPL LIBRARY, THE LINKEDITED OBJECT OF (1032/7), (1032/8), (1032/9), AND (1032/10). CONTAINS SECTIONS BCPLSYS, BCPLIO, BCPLRLIB, BCPLBLIB, BCPLFLIB, AND BCPLMISC. ALSO CONTAINS BCPLPM AND GLOBUSE, WHICH ARE USED BY THE DEBUGGER (1032/12), BUT FOR WHICH WE DID NOT RECEIVE SOURCE FROM UNE. 0 Referenced by comments of: 1032/13, 1032/17, 1032/19, 1032/21 01032/012 BCPL DEBUGGER S O S1431 4.3T2 VLO FSNAME=BCPL.DEBUGGER.S.012(1) 344 5.0T3 1156 BCPL.DEBUGGER.S.012 1 LINE 91 19 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:51 5.0T9 12 0 SOURCE OF DEBUGGING SYSTEM, WRITTEN IN BCPL. 0 Referenced by comments of: 1032/1, 1032/11, 1032/14, 1032/21 01032/013 BCPL DEBUGGER OE O UNSP:BCPL.DEBUG 5.0T3 1157 BCPL.DEBUGGER.OE.013 1 LINE 14328 9 PAGE UNE HEAL UNSP JULY 03, 1981 20:47:57 5.0T9 13 UNSP:BCPL.DEBUG 0 WORKING OBJECT OF THE DEBUGGER. $CONTINUES WITH UNSP:BCPL.LIBRARY (1032/11). 01032/014 BCPL BCPLOPTS S O S1431 4.3T2 VLO FSNAME=BCPL.BCPLOPTS.S.014(1) 346 5.0T3 1158 BCPL.BCPLOPTS.S.014 1 LINE 92 7 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:20 5.0T9 14 0 SET OF ROUTINES BORROWED FROM LEXICAL ANALYSER IN THE COMPILER (1032/5) FOR READING USER OPTIONS IN PROGRAMS. WRITTEN IN BCPL. USED BY THE DEBUGGER (1032/12). 01032/015 BCPL MACROS SM O S1431 4.3T2 VLO FSNAME=BCPL.MACROS.SM.015(1) 347 5.0T3 1159 BCPL.MACROS.SM.015 1 LINE 80 13 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:00 5.0T9 15 0 MACRO LIBRARY FOR USE IN ASSEMBLING THE ASSEMBLER PARTS OF THE LIBRARY - I. E., BCPLSYS, BCPLFLIB, BCPLRLIB. 01032/016 BCPL TIDY S O S1431 4.3T2 VLO FSNAME=BCPL.TIDY.S.016(1) 348 5.0T3 1160 BCPL.TIDY.S.016 1 LINE 100 21 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:12 5.0T9 16 0 SOURCE OF SOURCE RE-FORMATTER PROGRAM, TIDY. WRITTEN IN BCPL. 1 MON AUG 05/96 18:37:45 Page 677 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1032/1, 1032/17, 1032/21 01032/017 BCPL TIDY OE O UNSP:BCPL.TIDY 5.0T3 1161 BCPL.TIDY.OE.017 1 LINE 6640 8 PAGE UNE HEAL UNSP JULY 03, 1981 20:48:01 5.0T9 17 UNSP:BCPL.TIDY 0 OBJECT OF (1032/16). $CONTINUES WITH UNSP:BCPL.LIBRARY (1032/11). 01032/018 BCPL XREFFER S O S1431 4.3T2 VLO FSNAME=BCPL.XREFFER.S.018(1) 350 5.0T3 1162 BCPL.XREFFER.S.018 1 LINE 101 16 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:17 5.0T9 18 0 SOURCE FOR THE BCPL CROSS-REFERENCER. WRITTEN IN BCPL. 0 Referenced by comments of: 1032/1, 1032/21 01032/019 BCPL XREFFER OE O UNSP:BCPL.XREF 5.0T3 1163 BCPL.XREFFER.OE.019 1 LINE 6488 6 PAGE UNE HEAL UNSP JULY 03, 1981 20:48:04 5.0T9 19 UNSP:BCPL.XREF 0 OBJECT OF THE BCPL CROSS-REFERENCER. $CONTINUES WITH UNCP:BCPL.LIBRARY (1032/11). 01032/020 BCPL MANUAL P O S1431 4.3T2 VLO FSNAME=BCPL.MANUAL.P.020(1) 352 5.0T3 1164 BCPL.MANUAL.P.020 1 LINE 74 25 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:55 5.0T9 20 0 THIS IS A PRINT FILE CONTAINING THE BCPL MANUAL WRITTEN AT CAMBRIDGE, WHICH DESCRIBES BCPL WITH OS DEPENDENCIES. 01032/021 BCPL USERGUIDE WX O S1431 4.3T2 VLO FSNAME=BCPL.USERGUIDE.WX.021(1) 353 5.0T3 1165 BCPL.USERGUIDE.WX.021 1 LINE 111 12 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:49 5.0T9 21 0 TEXTFORM SOURCE OF A MANUAL ENTITLED 'HOW TO USE BCPL IN MTS.' THIS MANUAL IS A GUIDE TO THE USE OF BCPL IN MTS, AND MTS-SPECIFIC PARTS OF THE LIBRARY (1032/11). IT ALSO CONTAINS DOCUMENTATION FOR THE DEBUGGER (1032/12), XREF (1032/18), AND TIDY PROGRAMS (1032/16). THE TEXTFORM LAYOUT USED TO PRODUCE THIS AT UNE WAS NOT DISTRIBUTED, SO A PRINT FILE (1032/22) IS ALSO BEING INCLUDED. 0 Referenced by comments of: 1032/22 01032/022 BCPL USERGUIDE P O UNSP:BCPL.W 5.0T3 1166 BCPL.USERGUIDE.P.022 1 LINE 80 38 PAGE UNE HEAL UNSP JULY 03, 1981 20:48:08 5.0T9 22 0 A PRINT FILE FOR (1032/21). 0 Referenced by comments of: 1032/21 1 MON AUG 05/96 18:37:45 Page 678 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01033/001 COURSEWRITER # (NOT INSTALLED AT UM) D4T3 458 COURSEWRITER.COURSES.M.001 1 LINE 74 1 PAGE UBC OSTERLIN JUNE 04, 1976 10:38:04 0 THE MTS IMPLEMENTATION OF COURSEWRITER WAS NOT DONE BY THE UBC COMPUTING CENTRE, BUT BY BILL WEBB OF THE UBC DEPARTMENT OF ANIMAL RESOURCE ECOLOGY. THERE IS CURRENTLY NOT A WORKING VERSION OF COURSEWRITER INSTALLED AT MICHIGAN. 01034/001 MACEDIT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL PURPOSE ASSEMBLER UTILITY PROGRAM. 01035/001 LANGUAGE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE LANGUAGES DATA BASE FOR ALL LANGUAGES AVAILABLE AT UBC. 01036/001A CONTEXT-DIRECTED UPDATE OBJECT OE G *CDUPDATE 5.0T3 1167 CONTEXT-DIRECTED_UPDATE.O.OE.001 1 LINE 32767 21 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:11 5.0T9 23 *CDUPDATE 0 ************************************************************************ D5.0 version: This is a complete, self-contained object for CDUPDATE version 2.2. This version contains various changes, including a change in the definition of /EDIT. The change can be installed in three stages, obtained by setting the compiler option VERSION to 2.1, 2.15, or 2.2 This object has VERSION=2.15 as the default, which means that /EDITs behave as in version 1.0, which is incompatible with versions 2.0 and 2.1. A warning message is issued for those /EDITs that may be processed differently. The next distribution of CDUPDATE will have VERSION=2.2. To change the default version, modify the constant Default_Version at line 822 in (1036/2) to the value 2000 for version 2.0, to 2100 for version 2.1, 2150 for version 2.15, or 2200 for version 2.2. In version 2.1, /EDITs behave as in version 2.0, but will give a warning message for any that will be incompatible for VERSION>=2.15. Component (1036/7) contains a note describing the changes since version 2.0. (1036/4) contains a revised writeup. The complete CDUPDATE program consists of the object for the PLUS program, the parser tables generated by ANALYZER, together with the parser and PLUS:OBJLIB. It can be produced with *LINKEDIT via the following commands: INCLUDE NEW:PLUS.OBJLIB ONLY PLUSMAIN INCLUDE object-for-CDUPDATE INCLUDE object-for-tables INCLUDE@SLI PLUS:PARSER.OL (or wherever parser lives) INCLUDE@SLI NEW:PLUS.OBJLIB 1 MON AUG 05/96 18:37:45 Page 679 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (COMBINE) if desired RENAME PLUSMAIN CDUPDATE PUNCH CDUPDATE (I would prefer that you do not purge external symbols from the object module, although it may be combined. The external symbols will appear in the error message resulting from bugs in CDUPDATE, and are very useful to me in interpreting problems.) Note that the distributed object has PLUS run-time checking enabled (for parser and object library as well as CDUPDATE). A further 10-15% reduction in CPU use can be obtained by compiling everything with %Check:=False specified. For the present, however, I would recommend leaving the checking enabled. ****************************************************************************** 0 Referenced by comments of: 308/21, 746/1, 813/7, 813/16, 813/17, 813/21, 813/22, 813/23, 813/24, 813/25, 813/26, 813/27, 813/30, 813/31, 813/32, 813/33, 813/35, 813/36, 813/37, 813/38, 813/39, 813/40, 813/41, 813/42, 813/43, 1054/2, 4200/1 01036/002A CONTEXT-DIRECTED UPDATE SOURCE SQ G W067:CDUPDATE.S 5.0T3 1168 CONTEXT-DIRECTED_UPDATE.S.SQ.002 1 LINE 86 79 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:13 5.0T9 24 0 PLUS source for CDUPDATE program. This includes declarations generated by the analyzer for the grammar. If the grammar is changed, the appropriate lines of this file must be changed also. Compiling this program requires the parser library - specify 0=PLUS:PARSER.SQL+NEW:PLUS.SOURCEL (comps. (1076/9) and (1042/4) or local equivalent) 0 Referenced by comments of: 737/15, 1036/1 01036/003C CONTEXT-DIRECTED UPDATE GRAMMAR S G W067:CDUPDATE.G 5.0T3 1169 CONTEXT-DIRECTED_UPDATE.G.S.003 1 LINE 91 5 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:19 5.0T9 25 0 Grammar, input to UBC analyzer, defining CDUPDATE commands etc. 01036/004C CONTEXT-DIRECTED UPDATE WRITEUP WF W067:CDUPDATE.WF 5.0T3 1170 CONTEXT-DIRECTED_UPDATE.W.WF.004 1 LINE 105 16 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:20 5.0T9 26 0 Revised writeup describing CDUPDATE. It describes the changes provided by version 2.2, and also has improved descriptions of the /BUFFER command (which wasn't too well understood in the last version), and some examples. 1 MON AUG 05/96 18:37:45 Page 680 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Note that it is in *FORMAT (308) this time. It uses JON:MACLIB (here referred to by its UM name of COPY:JONMACLIBFMT (308/18). 0 Referenced by comments of: 1036/1 01036/005A CONTEXT-DIRECTED UPDATE WRITEUP PF W067:CDUPDATE.P 5.0T3 1171 CONTEXT-DIRECTED_UPDATE.W.PF.005 1 LINE 69 20 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:22 5.0T9 27 0 $COPY-able writeup for CDUPDATE, 25 pages. 01036/006C CONTEXT-DIRECTED UPDATE CDUPCONV SS O W067:CDUPCONV.S 5.0T3 1172 CONTEXT-DIRECTED_UPDATE.C.SS.006 1 LINE 107 5 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:24 5.0T9 28 0 Spitbol GLP that can be used to convert old-style CDUPDATE (version 1.0) files to new ones (version 2.0). 0 Referenced by comments of: 1036/7 01036/007C CONTEXT-DIRECTED UPDATE CDUPCONV OE O NEW:CDUPCONV 5.0T3 1173 CONTEXT-DIRECTED_UPDATE.C.OE.007 1 LINE 13584 7 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:25 5.0T9 29 0 Object for (1036/6). 0 Referenced by comments of: 1036/1 01036/008C CONTEXT-DIRECTED UPDATE MEMO WF W067:CDUP.MEMO.WF 5.0T3 1174 CONTEXT-DIRECTED_UPDATE.M.WF.008 1 LINE 69 3 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:25 5.0T9 30 0 *FORMAT (308) source for a UBC memo to staff describing the differences between CDUPDATE version 2.2 and version 2.0. Requires COPY:JONMACLIB (308/18). 0 Referenced by comments of: 1036/9 01036/009C CONTEXT-DIRECTED UPDATE MEMO PF W067:CDUP.MEMO.P 5.0T3 1175 CONTEXT-DIRECTED_UPDATE.M.PF.009 1 LINE 69 3 PAGE UBC BALLARD SHERRY JULY 03, 1981 20:48:26 5.0T9 31 0 Printer-ready output from (1036/8). 01037/001 FORTRAN MESSAGE ROUTINE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A FORTRAN-CALLABLE MESSAGE ROUTINE. 1 MON AUG 05/96 18:37:45 Page 681 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01038/001A REPORT GENERATOR DESCRIP SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.DESCRIP.SA.001 5.0T3 1176 REPORT_GENERATOR.DESCRIP.SA.001 1 LINE 81 16 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:24:16 5.0T9 32 0 All RG source programs copy the RG copy section (1038/10). All but (1038/7) assemble it as a dsect. Phase 1 of RG which performs the following functions: 1. data initialization , parameter scanning 2. process ITEM , ENTRY , and FIELD commands See the internal documentation manual for older changes to various parts of the actual code of this and other source subcomponents. Component (1038/12) is unchanged since last saved Feb 14, 1977. 01038/002A REPORT GENERATOR COMPILE SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.COMPILE.SA.002 5.0T3 1177 REPORT_GENERATOR.COMPILE.SA.002 1 LINE 79 16 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:24:22 5.0T9 33 0 Phase 2 of RG which performs the following functions: 1 - process EXTRACT , ORDER , TABLE , CALL , TITLE , PRINT commands 2 - generate appropriate blocks of data defining the required operation. 01038/003A REPORT GENERATOR ACTION SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.ACTION.SA.003 5.0T3 1178 REPORT_GENERATOR.ACTION.SA.003 1 LINE 78 17 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:24:34 5.0T9 34 0 Phase 3 of RG which performs the following functions: reads the data file and transfers the extracted data records to the temporary sequential file -TEMPNAME. 01038/004A REPORT GENERATOR PRINT SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.PRINT.SA.004 5.0T3 1179 REPORT_GENERATOR.PRINT.SA.004 1 LINE 74 13 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:24:39 5.0T9 35 0 Phase 4 of RG which performs the following functions: PRINT prints the required reports. PRINT , TITLE , CALL , TABLE all are handled here. 01038/005A REPORT GENERATOR SUBS SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.SUBS.SA.005 5.0T3 1180 REPORT_GENERATOR.SUBS.SA.005 1 LINE 72 5 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:24:44 5.0T9 36 0 External subroutines to handle overflow and capitalization for PRINT. Made external because of base register problems and use of registers. 01038/006A REPORT GENERATOR SUBROUTINES SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.SUBROUTI.SA.006 5.0T3 1181 REPORT_GENERATOR.SUBROUTI.SA.006 1 LINE 72 21 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:24:54 5.0T9 37 0 Subroutines used by RG - all called by " BALR LINK,LINK " SCAN - get another field SSCAN - " " " ( special field) GNUMBER - get a numeric field 1 MON AUG 05/96 18:37:45 Page 682 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 GFIELD - get a field FNAME - insure field is a legal field NUM - convert a field to numeric 01038/007A REPORT GENERATOR DATA SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.DATA.SA.007 5.0T3 1182 REPORT_GENERATOR.DATA.SA.007 1 LINE 72 1 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:24:47 5.0T9 38 0 Generates the PSECT as a CSECT to define all required constants. Copies COPYSEC (1038/10), as do all other RG source routines. 0 Referenced by comments of: 1038/1, 1038/10 01038/008A REPORT GENERATOR OUTPUT SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.OUTPUT.SA.008 5.0T3 1183 REPORT_GENERATOR.OUTPUT.SA.008 1 LINE 72 5 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:24:51 5.0T9 39 0 Routine to output error comments (mark) and output formatting to SPRINT and echoing of input lines if requested. This subcomponent must be assembled with *ASMG (066) or fixed to work with *ASMH (737). 01038/009C REPORT GENERATOR INSERT_SORT SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.INSERT_S.SA.009 5.0T3 1184 REPORT_GENERATOR.INSERT_S.SA.009 1 LINE 69 20 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:25:00 5.0T9 40 0 Insertion sort added for greater efficiency. Acquires sorting tree space in pieces independently of RG's space management and statistics; hence memory usage reported by RG is often much less than before. This sort is general-purpose and can be used outside RG. The initial source comment serves as documentation. ****************************************************************** D5.0 version: This new subcomponent gets alignment errors when assembled, but it seems to work. ****************************************************************** 01038/010A REPORT GENERATOR COPYSEC SA O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.COPYSEC.SA.010 5.0T3 1185 REPORT_GENERATOR.COPYSEC.SA.010 1 LINE 72 10 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:25:40 5.0T9 41 0 Copy section copied by all RG source programs. All but DATA (1038/7) assemble it as a DSECT. 0 Referenced by comments of: 1038/1, 1038/7 1 MON AUG 05/96 18:37:45 Page 683 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01038/011A REPORT GENERATOR MACLIB SM O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.MACLIB.SM.011 5.0T3 1186 REPORT_GENERATOR.MACLIB.SM.011 1 LINE 72 8 PAGE UBC BUCKLAND UNSP NOV. 15, 1978 14:25:50 5.0T9 42 0 Macro library used by all RG source routines. 01038/012A REPORT GENERATOR INTERNAL DOC WF O S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.INTERNAL.WF.012 5.0T3 1187 REPORT_GENERATOR.INTERNAL.WF.012 1 LINE 81 8 PAGE UBC BUCKLAND UNSP FEB. 14, 1977 08:58:39 5.0T9 43 0 Requires "NO SUPER" and "NO KEYPUNCH" control FORMAT control cards. Uses JONMACLIB (308/18). ************************************************************************ D5.0 version: This subcomponent is unchanged since last saved Feb 14, 1977. ************************************************************************ 0 Referenced by comments of: 1038/1 01038/013 REPORT GENERATOR USER WRITEUP WF S1319 D4.2T1 VLO FSNAME=REPORT_GENERATOR.USER_WRI.WF.015(1) 691 5.0T3 1188 REPORT_GENERATOR.USER_WRI.WF.013 1 LINE 101 43 PAGE UBC BUCKLAND UNSP OCT. 01, 1978 16:49:14 5.0T9 44 01038/014A REPORT GENERATOR OBJECT OC O UNSP:RG 5.0T3 1189 REPORT_GENERATOR.OBJECT.OC.014 1 LINE 7298 11 PAGE UBC BUCKLAND UNSP JULY 03, 1981 20:54:19 5.0T9 45 UNSP:RG 0 ----------------- The following items are the major changes from previous versions: - *COMMENT command allowed in master file descriptions; - Output record lengths of greater than 132 characters supported; - "PRINT ALL FIELDS WITH FIELDNAME" added for debugging purposes. This prints each fieldname and its contents; - "REST ARE SAME" phrase allowed in the DECODE command; - New parameters added: . NOCONTROL which does not use carriage control on output, . SIZE=N to set the number of pages of VM to use; - Macros may be terminate by "$ENDFILE" and may be nested up to five levels; - "WHEN FIELDNAME CHANGES" phrase supported in the PRINT command; - TABLE command now supports titles; -------------78-08-24-------- Several bugs fixed. -------------78-12-01-------- (See also UBC's November/78 Newsletter) - Several more bugs fixed; - No more arithmetic operators (+-*/) in field names; - No more field starting columns > 256: - String may now terminate fields, e.g. FIELD FIRST IS TERMINATED BY 'DIVIDER' - 'ORDER PERMUTED' now treats any initial alphabetic character including lowercase as starting new word; 1 MON AUG 05/96 18:37:45 Page 684 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 - No more null literals in 'WHEN' specifications; - New date "SYSCHARDATE" in 'MMM DD, 19YY' form; - 'PRINT ALL FIELDS WITH OVERFLOW' now allowed; - Capitalization now recognizes all standard sentence ends. ----------------- 01038/015A REPORT GENERATOR TEST PROGRAMS C S0701 RD16T1 VLO FSNAME=REPORT_GENERATOR.TEST_PRO.C.015 5.0T3 1190 REPORT_GENERATOR.TEST_PRO.C.015 1 LINE 349 41 PAGE UBC BUCKLAND UNSP JUNE 12, 1979 14:48:01 5.0T9 46 0 A series of test programs to test out your version of RG under CCID=RG1. $SOURCE the file to perform the tests. 01038/016 REPORT GENERATOR UM EXAMPLE C UNSP:RG.EXAMPLE 5.0T3 1191 REPORT_GENERATOR.UM_EXAMP.C.016 1 LINE 128 3 PAGE UBC BUCKLAND UNSP JULY 03, 1981 20:54:24 5.0T9 47 UNSP:RG.EXAMPLE 0 A file that can be $SOURCEd to to produce a sample RG run. 01039/001 READPAGE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A DISK UTILITY TO READ ANY PAGE ON ANY VOLUME ANY NUMBER OF TIMES. 01040/001 DISK # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN UMMPS JOB TO LOCK A PUBLIC VOLUME SO THAT IT CAN BE MOVED TO ANOTHER DRIVER, OR POSSIBLY ANOTHER CONTROL UNIT. 01041/001C RESOURCE MANAGER DSP LIBRARY OL O TMTS:DSPLIBRARY 5.0T3 1192 RESOURCE_MANAGER.DSP_LIBR.OL.001 1 LINE 5438 21 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:24 5.0T9 48 TMTS:DSPLIBRARY 0 Object library containing DSPs and DSP support routines. This library contains: The DSP PRV initialization routines (1041/2); the DSP expanded form message table (1041/3); the DSP interface (1041/4); the DSP service routines (1041/5); the Intertask line DSP (1041/6); the intertask node DSP (1041/7); and the DSP table (1041/8). The Subtasking Monitor (1058) is required to run DSPs. 0 Referenced by comments of: 1051/1, 1051/17, 1051/19, 1051/21 01041/002C RESOURCE MANAGER DSP PRV INIT SA O TMTS:DSPPRV(1000) 5.0T3 1193 RESOURCE_MANAGER.DSP_PRV.SA.002 1 LINE 79 3 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:26 5.0T9 49 0 Pseudo-register initialization for the DSP portion of the transfer vector. Also contains LCS and LCSPR tables for DSP-related routines. Assemble with COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and the DSP macros (1041/9). 1 MON AUG 05/96 18:37:45 Page 685 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1041/1 01041/003C RESOURCE MANAGER DSP EFMS SA O TMTS:DSPEFMS(1000) 5.0T3 1194 RESOURCE_MANAGER.DSP_EFMS.SA.003 1 LINE 67 3 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:27 5.0T9 50 0 DSP expanded-form messages. Assemble with COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 1041/1 01041/004C RESOURCE MANAGER DSP INTERFACE SA O TMTS:DSPINTERFACE(1000) 5.0T3 1195 RESOURCE_MANAGER.DSP_INTE.SA.004 1 LINE 79 18 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:28 5.0T9 51 0 DSP interface routine. Assemble with COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and the DSP macros (1041/9). 0 Referenced by comments of: 1041/1 01041/005C RESOURCE MANAGER DSP SRVC RTNS SA O TMTS:DSPSERV(1000) 5.0T3 1196 RESOURCE_MANAGER.DSP_SRVC.SA.005 1 LINE 70 10 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:34 5.0T9 52 0 DSP service routines. Assemble with COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), COPY:FILE.MACROS (482/45), and the DSP macros (1041/9). 0 Referenced by comments of: 1041/1 01041/006C RESOURCE MANAGER ITSK LINE DSP SA O TMTS:DSPITLN(1000) 5.0T3 1197 RESOURCE_MANAGER.ITSK_LIN.SA.006 1 LINE 78 13 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:35 5.0T9 53 0 The intertask line DSP. Assemble with COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), and the DSP macros (1041/9). 0 Referenced by comments of: 1041/1 01041/007C RESOURCE MANAGER ITSK NODE DSP SA O TMTS:DSPITSK(1000) 5.0T3 1198 RESOURCE_MANAGER.ITSK_NOD.SA.007 1 LINE 78 14 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:38 5.0T9 54 0 The intertask node DSP. Assemble with COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), and the DSP macros (1041/9). 0 Referenced by comments of: 1041/1 01041/008C RESOURCE MANAGER DSP TABLE SA O TMTS:DSPTABLE(1000) 5.0T3 1199 RESOURCE_MANAGER.DSP_TABL.SA.008 1 LINE 72 1 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:41 5.0T9 55 0 The DSP table. Contains entries only for the intertask line and node DSPs. Assemble with the DSP macros (1041/9). 1 MON AUG 05/96 18:37:45 Page 686 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1041/1 01041/009C RESOURCE MANAGER DSP MACROS SM O DMGR:DSP.MACROS 5.0T3 1200 RESOURCE_MANAGER.DSP_MACR.SM.009 1 LINE 78 8 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:42 5.0T9 56 0 DSP macro library. 0 Referenced by comments of: 1041/2, 1041/4, 1041/5, 1041/6, 1041/7, 1041/8, 1051/5, 1051/9, 1051/16, 1051/20 01041/010C RESOURCE MANAGER MSG EXPANSION SA G DMGR:MNTRMMSG(1000) 5.0T3 1201 RESOURCE_MANAGER.MSG_EXPA.SA.010 1 LINE 68 13 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:44 5.0T9 57 DMGR:MNTRMMSG 0 This is the message expand routine, used to expand canonical form messages. Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 1051/1, 1051/17, 1051/21, 1079/1 01041/011C RESOURCE MANAGER MSG EXPANSION OC O DMGR:MNTRMMSG(1,999) 5.0T3 1202 RESOURCE_MANAGER.MSG_EXPA.OC.011 1 LINE 80 6 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:47 5.0T9 58 0 Object for 1041/10. 01041/012C RESOURCE MANAGER RM ROUTINES SA O DMGR:MNTRMETC(1000) 5.0T3 1203 RESOURCE_MANAGER.RM_ROUTI.SA.012 1 LINE 70 4 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:49 5.0T9 59 0 Resource Manager service routines: RMGTFILE, RMFRFILE, RMMESSG, RMMSGOUT. Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and COPY:FILE.MACROS (482/45). 01041/013C RESOURCE MANAGER RM ROUTINES OC O DMGR:MNTRMETC(1,999) 5.0T3 1204 RESOURCE_MANAGER.RM_ROUTI.OC.013 1 LINE 80 3 PAGE UBC BOWLER HELFFRICH JULY 03, 1981 20:54:50 5.0T9 60 0 Object for 1041/12. 01042/001A PLUS_470 COMPILER OE O NEW:PLUS 5.0T3 1205 PLUS_470.COMPILER.OE.001 1 LINE 32767 85 PAGE UBC BALLARD HANSEN JULY 03, 1981 20:54:50 5.0T9 61 NEW:PLUS 0 ******************************************************************* * P L U S * * COPYRIGHT 1979 ALAN BALLARD AND PAUL WHALEY * ******************************************************************* There are no restrictions on the use of PLUS by installations receiving distributions of MTS, but PLUS may not be redistributed to installations outside of the MTS community without permission from Alan Ballard and Paul Whaley at UBC. This is the current, complete, linkeditted version of the compiler. 1 MON AUG 05/96 18:37:45 Page 687 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 It refers to files ETC:PLUSMESSAGES (1042/3), NEW:PLUS.SOURCEL (1042/4) and ETC:PLUSLOG (the PLUS compiler statistics file, which is not distributed). See installation notes (1042/66) for details. ****************************************************************************** D5.0 version: Contains changes to STRING.S (1042/11) and STREAM (1042/36), which are not found in the source or the unlinkeditted object (1042/2). ****************************************************************************** 0 Referenced by comments of: 498/116, 810/9, 810/10, 810/11, 810/12, 811/1, 811/2, 811/5, 811/7, 811/9, 821/1, 821/2, 1000/37, 1042/2 01042/002 PLUS_470 COMPILER OC O S1431 4.3T2 VLO FSNAME=PLUS_470.COMPILER.OC.002(1) 357 5.0T3 1206 PLUS_470.COMPILER.OC.002 1 LINE 13440 109 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:00:32 5.0T9 62 0 This is the current, complete unlinkeditted version of the compiler. It is identical to (1042/1), except that it references PLUS:PLUSMESSAGE> rather than ETC:PLUSMESSAGES (1042/3), PLUS:SOURCELIB instead of NEW:PLUS.SOURCEL (1042/4), and PLUS:PLUSLOG instead of ETC:PLUSLOG (the PLUS compiler statistics file, which is not distributed). See installation notes (1042/66) for details. 0 Referenced by comments of: 1042/1 01042/003 PLUS_470 MESSAGES M ETC:PLUSMESSAGES 5.0T3 1207 PLUS_470.MESSAGES.M.003 1 LINE 113 6 PAGE UBC BALLARD HANSEN JULY 03, 1981 20:54:59 5.0T9 63 ETC:PLUSMESSAGES 0 Message file accessed by the compiler. Install as ccid:PLUSMESSAGES for linkeditted version of compiler, and as ccid:PLUSMESSAGE> for the test version of the compiler, if used. See installation notes (1042/66) for details. 0 Referenced by comments of: 1042/1, 1042/2 01042/004A PLUS_470 SOURCELIB SQ O NEW:PLUS.SOURCEL 5.0T3 1208 PLUS_470.SOURCELIB.SQ.004 1 LINE 76 27 PAGE UBC BALLARD HANSEN JULY 03, 1981 20:55:01 5.0T9 64 NEW:PLUS.SOURCEL 0 This is the version of the source library assumed if unit 0 is not specified when running the compiler. The library contains a number of useful declarations. Basically, the contents are: a) Some useful types such as Integer, Boolean, etc. b) Definitions of some 370/470 machine characteristics, such as the word size, the operation 1 MON AUG 05/96 18:37:45 Page 688 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 codes, etc. c) Declarations for the standard run-time support. d) Declarations for the useful routines in PLUS:OBJLIB. e) Declarations for most of the MTS system subroutines. A preliminary writeup (1042/59) is included with this distribution. 0 Referenced by comments of: 811/5, 811/7, 811/9, 817/1, 1036/2, 1042/1, 1042/2, 1042/43, 1042/50, 1042/54, 1042/59, 1042/60, 1042/72, 1042/101, 1042/107, 1076/3 01042/005 PLUS_470 LISTING L S1431 4.3T2 VLO FSNAME=PLUS_470.LISTING.L.005(1) 360 5.0T3 1209 PLUS_470.LISTING.L.005 1 LINE 155 679 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:00:47 5.0T9 65 0 Complete source listing for current version of compiler. $COPY to printer with PAGES=800. 01042/006 PLUS_470 SOURCE S O S1431 4.3T2 VLO FSNAME=PLUS_470.SOURCE.S.006(1) 361 5.0T3 1210 PLUS_470.SOURCE.S.006 1 LINE 41 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:44 5.0T9 66 0 This is a file containing $CONTINUE WITHS to INCLUDE the entire source for the PLUS compiler. 01042/007 PLUS_470 MAIN SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.MAIN.S+.007(1) 362 5.0T3 1211 PLUS_470.MAIN.SQ.007 1 LINE 68 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:47 5.0T9 67 0 Compiler main program and initialization/termination. 01042/008 PLUS_470 VERSION NUMBER SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.VERSION_NUMBER.S+.008(1) 363 5.0T3 1212 PLUS_470.VERSION_NUMBER.SQ.008 1 LINE 68 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:50 5.0T9 68 0 This routine just returns the current compiler version number. It is recompiled when the version number in GLOBALLIB (1042/44) is changed. 01042/009 PLUS_470 TRAP SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.TRAP.S+.009(1) 364 5.0T3 1213 PLUS_470.TRAP.SQ.009 1 LINE 81 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:53 5.0T9 69 0 Compiler program interrupt handler. 01042/010 PLUS_470 TABLE RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.TABLE_RTNS.S+.010(1) 365 5.0T3 1214 PLUS_470.TABLE_RTNS.SQ.010 1 LINE 70 9 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:56 5.0T9 70 0 Routines used by compiler to allocate and maintain variable-size arrays and tables. 01042/011 PLUS_470 STRING SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.STRING.S+.011(1) 366 5.0T3 1215 PLUS_470.STRING.SQ.011 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:59 5.0T9 71 0 Compiler string-table processing routines. 1 MON AUG 05/96 18:37:45 Page 689 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1042/1 01042/012 PLUS_470 MESSAGE RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.MESSAGE_RTNS.S+.012(1) 367 5.0T3 1216 PLUS_470.MESSAGE_RTNS.SQ.012 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:02 5.0T9 72 0 Routines which build and print compiler messages. 01042/013 PLUS_470 CONVERT SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.CONVERT.S+.013(1) 368 5.0T3 1217 PLUS_470.CONVERT.SQ.013 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:05 5.0T9 73 0 Various routines which convert things to character strings, mostly for printing in messages. 01042/014 PLUS_470 CONST RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.CONST_RTNS.S+.014(1) 369 5.0T3 1218 PLUS_470.CONST_RTNS.SQ.014 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:08 5.0T9 74 0 Constant processing routines. 01042/015 PLUS_470 I/O RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.I/O_RTNS.S+.015(1) 370 5.0T3 1219 PLUS_470.I/O_RTNS.SQ.015 1 LINE 68 8 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:12 5.0T9 75 0 I/O interfacing routines. 01042/016 PLUS_470 INCLUDE SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.INCLUDE.S+.016(1) 371 5.0T3 1220 PLUS_470.INCLUDE.SQ.016 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:15 5.0T9 76 0 Routines for processing source libraries, %Include. 01042/017 PLUS_470 SCANNER SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.SCANNER.S+.017(1) 372 5.0T3 1221 PLUS_470.SCANNER.SQ.017 1 LINE 68 12 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:18 5.0T9 77 0 Input scanner. 01042/018 PLUS_470 PARAGRAPHER SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.PARAGRAPHER.S+.018(1) 373 5.0T3 1222 PLUS_470.PARAGRAPHER.SQ.018 1 LINE 92 9 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:22 5.0T9 78 0 Source paragrapher. 01042/019 PLUS_470 PARSER SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.PARSER.S+.019(1) 374 5.0T3 1223 PLUS_470.PARSER.SQ.019 1 LINE 68 8 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:25 5.0T9 79 0 Input parser. This is driven by tables (1042/48) generated by the UBC LALR(1) analyzer (1042/99). 0 Referenced by comments of: 1042/89 1 MON AUG 05/96 18:37:45 Page 690 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/020 PLUS_470 SYMBOL_TABLE SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.SYMBOL_TABLE.S+.020(1) 375 5.0T3 1224 PLUS_470.SYMBOL_TABLE.SQ.020 1 LINE 95 6 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:29 5.0T9 80 0 Symbol table processing routines. 01042/021 PLUS_470 EXT NAME RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.EXT_NAME_RTNS.S+.021(1) 376 5.0T3 1225 PLUS_470.EXT_NAME_RTNS.SQ.021 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:32 5.0T9 81 0 Routines which maintain a table of external names for cross-checking if two routines/globals result in same ESDname. Also, used to print out index at end of compilation. 01042/022 PLUS_470 EXTERNAL SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.EXTERNAL.S+.022(1) 377 5.0T3 1226 PLUS_470.EXTERNAL.SQ.022 1 LINE 68 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:35 5.0T9 82 0 Pass 1 semantics for compilation units (procedures, globals). 01042/023 PLUS_470 MACROS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.MACROS.S+.023(1) 378 5.0T3 1227 PLUS_470.MACROS.SQ.023 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:38 5.0T9 83 0 Pass 1 semantics for macro definition and expansion. 01042/024 PLUS_470 TYPES SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.TYPES.S+.024(1) 379 5.0T3 1228 PLUS_470.TYPES.SQ.024 1 LINE 78 21 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:41 5.0T9 84 0 Pass 1 semantics for processing type definitions. 01042/025 PLUS_470 VARIABLES SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.VARIABLES.S+.025(1) 380 5.0T3 1229 PLUS_470.VARIABLES.SQ.025 1 LINE 137 9 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:46 5.0T9 85 0 Pass 1 semantics for processing variables. 01042/026 PLUS_470 DECLARATIONS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.DECLARATIONS.S+.026(1) 381 5.0T3 1230 PLUS_470.DECLARATIONS.SQ.026 1 LINE 68 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:49 5.0T9 86 0 Pass 1 semantics for processing declarations. 01042/027 PLUS_470 STATEMENTS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.STATEMENTS.S+.027(1) 382 5.0T3 1231 PLUS_470.STATEMENTS.SQ.027 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:53 5.0T9 87 0 Pass 1 semantics for processing statements. 1 MON AUG 05/96 18:37:45 Page 691 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/028 PLUS_470 EXPRESSIONS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.EXPRESSIONS.S+.028(1) 383 5.0T3 1232 PLUS_470.EXPRESSIONS.SQ.028 1 LINE 68 36 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:56 5.0T9 88 0 Pass 1 semantics for processing expressions. 01042/029 PLUS_470 CONTROL_STRUCT SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.CONTROL_STRUCT.S+.029(1) 384 5.0T3 1233 PLUS_470.CONTROL_STRUCT.SQ.029 1 LINE 68 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:02 5.0T9 89 0 Pass 1 semantics for processing control structures. 01042/030 PLUS_470 TREE SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.TREE.S+.030(1) 385 5.0T3 1234 PLUS_470.TREE.SQ.030 1 LINE 68 12 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:06 5.0T9 90 0 Pass 1 routines used to build intermediate code tree. 01042/031 PLUS_470 ERRORS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.ERRORS.S+.031(1) 386 5.0T3 1235 PLUS_470.ERRORS.SQ.031 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:09 5.0T9 91 0 Pass 1 error recovery semantics. 01042/032 PLUS_470 VIRTUAL SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.VIRTUAL.S+.032(1) 387 5.0T3 1236 PLUS_470.VIRTUAL.SQ.032 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:12 5.0T9 92 0 Routines to process "virtual registers". 01042/033 PLUS_470 STREAM SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.STREAM.S+.033(1) 388 5.0T3 1237 PLUS_470.STREAM.SQ.033 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:15 5.0T9 93 0 Routines for maintaining the "stream code" array. 01042/034 PLUS_470 TEMPORARIES SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.TEMPORARIES.S+.034(1) 389 5.0T3 1238 PLUS_470.TEMPORARIES.SQ.034 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:18 5.0T9 94 0 Temporary manangement routines. 01042/035 PLUS_470 SDS SYMS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.SDS_SYMS.S+.035(1) 390 5.0T3 1239 PLUS_470.SDS_SYMS.SQ.035 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:21 5.0T9 95 0 Routines to generate SYM records from symbol and variable table information. 01042/036 PLUS_470 STREAM GEN SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.STREAM_GEN.S+.036(1) 391 5.0T3 1240 PLUS_470.STREAM_GEN.SQ.036 1 LINE 68 40 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:25 5.0T9 96 0 Pass which tours the tree and produces "stream code". 1 MON AUG 05/96 18:37:45 Page 692 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1042/1 01042/037 PLUS_470 STREAM UTIL SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.STREAM_UTIL.S+.037(1) 392 5.0T3 1241 PLUS_470.STREAM_UTIL.SQ.037 1 LINE 68 19 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:31 5.0T9 97 0 Auxiliary routines used by stream code generation. 01042/038 PLUS_470 CONST TABLE SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.CONST_TABLE.S+.038(1) 393 5.0T3 1242 PLUS_470.CONST_TABLE.SQ.038 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:35 5.0T9 98 0 Routines which manage the constant table used for constants emitted during code generation. 01042/039 PLUS_470 STREAM OPT SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.STREAM_OPT.S+.039(1) 394 5.0T3 1243 PLUS_470.STREAM_OPT.SQ.039 1 LINE 68 8 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:39 5.0T9 99 0 Optimization performed on the stream code. (Currently, combination of "virtual registers", redundant branch removal, unreachable code removal) 01042/040 PLUS_470 OBJECT GEN SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_GEN.S+.040(1) 395 5.0T3 1244 PLUS_470.OBJECT_GEN.SQ.040 1 LINE 68 18 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:42 5.0T9 100 0 Routines which tour stream code and produce object code. 01042/041 PLUS_470 OBJECT EMIT SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_EMIT.S+.041(1) 396 5.0T3 1245 PLUS_470.OBJECT_EMIT.SQ.041 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:47 5.0T9 101 0 Routines which emit object code by calling object module building routines (1042/55). 01042/042 PLUS_470 OBJECT LIST SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_LIST.S+.042(1) 397 5.0T3 1246 PLUS_470.OBJECT_LIST.SQ.042 1 LINE 68 6 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:50 5.0T9 102 0 Routines which produce the listing of emitted object code. 01042/043 PLUS_470 PLUSLIB SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.PLUSLIB.S+.043(1) 398 5.0T3 1247 PLUS_470.PLUSLIB.SQ.043 1 LINE 39 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:54 5.0T9 103 0 Source library used to compile any of the PLUS compiler source components. This file simply contains $CONTINUE WITH's for the actual libraries used, namely SUEN:PARSDECLLIB (1042/49) PLUS:LALRPARSE*SL (1042/85) PLUS:OBJRTNS*SL (1042/55) SUEN:GLOBALLIB (1042/44) 1 MON AUG 05/96 18:37:45 Page 693 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 SUEN:PROCDECLLIB (1042/45) NEW:PLUS.SOURCEL (1042/4) 01042/044 PLUS_470 GLOBALLIB SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.GLOBALLIB.S+.044(1) 399 5.0T3 1248 PLUS_470.GLOBALLIB.SQ.044 1 LINE 92 27 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:57 5.0T9 104 0 PLUS library containing global blocks, types, etc. that are required by more than one of the source files. 0 Referenced by comments of: 1042/8, 1042/43 01042/045 PLUS_470 PROCDECLLIB SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.PROCDECLLIB.S+.045(1) 400 5.0T3 1249 PLUS_470.PROCDECLLIB.SQ.045 1 LINE 68 28 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:04 5.0T9 105 0 Library containing procedure declarations for all procedures constituting the PLUS compiler. (Except, currently, for a few that are in GLOBALLIB for historical reasons.) 0 Referenced by comments of: 1042/43 01042/046 PLUS_470 COMPILER INT SA O S1431 4.3T2 VLO FSNAME=PLUS_470.COMPILER_INT.SA.046(1) 401 5.0T3 1250 PLUS_470.COMPILER_INT.SA.046 1 LINE 68 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:10 5.0T9 106 0 Assembler interface routine for running the PLUS compiler. Allocates and initializes the stack and pseudo-register vector and calls the main routine of the compiler. 01042/047 PLUS_470 GRAMMAR S S1431 4.3T2 VLO FSNAME=PLUS_470.GRAMMAR.S.047(1) 402 5.0T3 1251 PLUS_470.GRAMMAR.S.047 1 LINE 112 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:13 5.0T9 107 0 Grammar for PLUS used as input to the LALR analyzer (1042/99) to produce the distributed parser tables (1042/48). The convention is used that non-terminals are surrounded by quotes. 0 Referenced by comments of: 1042/83 01042/048 PLUS_470 PARSER TABLES OC G S1431 4.3T2 VLO FSNAME=PLUS_470.PARSER_TABLES.OC.048(1) 403 5.0T3 1252 PLUS_470.PARSER_TABLES.OC.048 1 LINE 254 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:16 5.0T9 108 0 Parser tables generated by UBC LALR (1042/99) from PLUS grammar. 0 Referenced by comments of: 1042/19, 1042/47 1 MON AUG 05/96 18:37:45 Page 694 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/049 PLUS_470 PARSER DECLS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.PARSER_DECLS.S+.049(1) 404 5.0T3 1253 PLUS_470.PARSER_DECLS.SQ.049 1 LINE 98 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:19 5.0T9 109 0 PLUS source library generated by UBC LALR (1042/99) containing declarations for production names, symbol names, tables sizes. 0 Referenced by comments of: 1042/43 01042/050A PLUS_470 LIBRARY OL O NEW:PLUS.OBJLIB 5.0T3 1254 PLUS_470.LIBRARY.OL.050 1 LINE 3190 6 PAGE UBC BALLARD HANSEN JULY 03, 1981 20:55:49 5.0T9 110 NEW:PLUS.OBJLIB 0 Object library containing object code for various useful routines (source in PLUS:LIB*S (1042/51)), some small assembler interface routines (source in PLUS:LIB*SA (1042/52)). Includes the standard run-time support for allocating the stack and handling run-time errors. Declarations for all routines in the library are in the default source library, NEW:PLUS.SOURCEL (1042/4). A first pass at documentation for these routines is now included as (1042/59). 0 Referenced by comments of: 461/5, 461/7, 498/117, 498/123, 821/11, 1000/39, 1042/52, 1042/72, 1042/81, 1042/99, 1042/106, 1076/1 01042/051 PLUS_470 LIBRARY SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LIBRARY.S+.051(1) 406 5.0T3 1255 PLUS_470.LIBRARY.SQ.051 1 LINE 86 18 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:25 5.0T9 111 0 PLUS source for some useful routines. 0 Referenced by comments of: 1042/50, 1042/105 01042/052 PLUS_470 LIBRARY SA O S1431 4.3T2 VLO FSNAME=PLUS_470.LIBRARY.SA.052(1) 407 5.0T3 1256 PLUS_470.LIBRARY.SA.052 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:29 5.0T9 112 0 Assembler source for a few interfacing routines that are included in NEW:PLUS.OBJLIB (1042/50). Now sets up pseudo-register vector. 0 Referenced by comments of: 1042/50, 1042/104 01042/053 PLUS_470 LIBRARY L S1431 4.3T2 VLO FSNAME=PLUS_470.LIBRARY.L.053(1) 408 5.0T3 1257 PLUS_470.LIBRARY.L.053 1 LINE 133 62 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:32 5.0T9 113 0 Listing of PLUS library routines. $COPY with PAGES=100. 1 MON AUG 05/96 18:37:45 Page 695 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/054 PLUS_470 OBJECT RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_RTNS.S+.054(1) 409 5.0T3 1258 PLUS_470.OBJECT_RTNS.SQ.054 1 LINE 68 13 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:39 5.0T9 114 0 Routines that can be used to build and punch MTS object modules. These have been separated out from the PLUS compiler so they can used by other programs too. Currently, they are used by the UBC LALR analyzer (1042/99) and by the "Spires" Analyzer (1076). The routines require some storage management routines. A set are provided in PLUS:UTILITY*OL (1042/74), although these are not used by the PLUS compiler, which has its own. The PLUS compiler also does not use the routine Punch_Record which is included in this file. To compile these routines, unit 0 must specify the following three libraries: PLUS:OBJRTNS*SL (1042/55) PLUS:UTILITY*SL (1042/73) NEW:PLUS.SOURCEL (1042/4) 0 Referenced by comments of: 1042/55, 1042/72 01042/055 PLUS_470 OBJECT RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_RTNS.S+.055(1) 410 5.0T3 1259 PLUS_470.OBJECT_RTNS.SQ.055 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:43 5.0T9 115 0 Library containing declarations for the object module routines (1042/54). This library is required to compile the routines or to compile any program using the routines. 0 Referenced by comments of: 1042/41, 1042/43, 1042/54, 1042/101, 1076/3 01042/056 PLUS_470 OBJECT RTNS OL O S1431 4.3T2 VLO FSNAME=PLUS_470.OBJECT_RTNS.OL.056(1) 411 5.0T3 1260 PLUS_470.OBJECT_RTNS.OL.056 1 LINE 992 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:46 5.0T9 116 0 Object library containing the PLUS object module routines. 0 Referenced by comments of: 1042/95, 1042/99, 1076/1 01042/057 PLUS_470 WRITEUP WF S1431 4.3T2 VLO FSNAME=PLUS_470.WRITEUP.WF.057(1) 412 5.0T3 1261 PLUS_470.WRITEUP.WF.057 1 LINE 146 52 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:50 5.0T9 117 0 FMT source for PLUS writeup. Contains reference to JON:MACLIB at line 1, which will need changing elsewhere. Note: JON:MACLIB is distributed by UM (308/18). 1 MON AUG 05/96 18:37:45 Page 696 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1042/62 01042/058 PLUS_470 WRITEUP PF S1431 4.3T2 VLO FSNAME=PLUS_470.WRITEUP.PF.058(1) 413 5.0T3 1262 PLUS_470.WRITEUP.PF.058 1 LINE 77 66 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:09 5.0T9 118 0 $COPYable form of PLUS writeup. Allow 100 pages, TN printer. 01042/059 PLUS_470 LIB WRITEUP WX S1431 4.3T2 VLO FSNAME=PLUS_470.LIB_WRITEUP.WX.059(1) 414 5.0T3 1263 PLUS_470.LIB_WRITEUP.WX.059 1 LINE 95 34 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:19 5.0T9 119 0 Textform source for preliminary version of writeup describing NEW:PLUS.SOURCEL (1042/4) contents. Since RD16, this has been extended to include documentation on system subroutines declarations from NEW:PLUS.SOURCEL. Note it contains $CONTINUE WITH TXTF:TXTF.PROLOG which must be changed elsewhere. (TXTF.PROLOG IS DISTRIBUTED BY MICHIGAN AS UNSP:JONMACLIBTXT (3018/174). Ignore the large number of error messages generated when this is run through Textform. 0 Referenced by comments of: 1042/4, 1042/50 01042/060 PLUS_470 LIB WRITEUP PX S1431 4.3T2 VLO FSNAME=PLUS_470.LIB_WRITEUP.PX.060(1) 415 5.0T3 1264 PLUS_470.LIB_WRITEUP.PX.060 1 LINE 69 15 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:26 5.0T9 120 0 $COPYable form of writeup for NEW:PLUS.SOURCEL (1042/4). Allow 100 pages, TN printer. 01042/061 PLUS_470 BUGLIST P S1431 4.3T2 VLO FSNAME=PLUS_470.BUGLIST.P.061(1) 416 5.0T3 1265 PLUS_470.BUGLIST.P.061 1 LINE 68 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:31 5.0T9 121 0 Description of current known bugs in the compiler. 01042/062 PLUS_470 NEWS P S1431 4.3T2 VLO FSNAME=PLUS_470.NEWS.P.062(1) 417 5.0T3 1266 PLUS_470.NEWS.P.062 1 LINE 72 6 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:34 5.0T9 122 0 Current news file for PLUS. This describes all changes that have been made since the first (D4.2) distribution of PLUS. The PLUS writeup (1042/57) has been updated to incorporate all changes described in this file. 1 MON AUG 05/96 18:37:45 Page 697 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/063 PLUS_470 WORKLIST P S1431 4.3T2 VLO FSNAME=PLUS_470.WORKLIST.P.063(1) 418 5.0T3 1267 PLUS_470.WORKLIST.P.063 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:37 5.0T9 123 0 This is a file containing a list of things we hope to do with PLUS. This is intended for use by the PLUS implementors, and is probably not very comprehensible to anyone else, but may give some idea of current plans. 01042/064 PLUS_470 CHANGELOG P S1431 4.3T2 VLO FSNAME=PLUS_470.CHANGELOG.P.064(1) 419 5.0T3 1268 PLUS_470.CHANGELOG.P.064 1 LINE 73 6 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:40 5.0T9 124 0 This file contains a history of (almost) all changes to the compiler since the first (D4.2) distribution. It is mainly of interest to the compiler implementors, since the NEWS file details the changes that are visible to users of PLUS. 01042/065 PLUS_470 DIST LETTER PF S1431 4.3T2 VLO FSNAME=PLUS_470.DIST_LETTER.PF.065(1) 420 5.0T3 1269 PLUS_470.DIST_LETTER.PF.065 1 LINE 69 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:44 5.0T9 125 0 This is a covering letter to Jim Hansen which accompanies this distribution of PLUS. It describes the current status, and expresses our wishes regarding distribution and maintenance of the compiler. All installations receiving PLUS should read this. 01042/066 PLUS_470 INSTALL NOTES P S1431 4.3T2 VLO FSNAME=PLUS_470.INSTALL_NOTES.P.066(1) 421 5.0T3 1270 PLUS_470.INSTALL_NOTES.P.066 1 LINE 76 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:47 5.0T9 126 0 Instructions for installing PLUS. Slightly revised for second distribution. 0 Referenced by comments of: 1042/1, 1042/2, 1042/3 01042/067 PLUS_470 BOOTSTRAP C S1431 4.3T2 VLO FSNAME=PLUS_470.BOOTSTRAP.C.067(1) 422 5.0T3 1271 PLUS_470.BOOTSTRAP.C.067 1 LINE 159 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:50 5.0T9 127 0 This file contains a complete sample batch job to compile the entire PLUS compiler, then verify the compilation by using it to recompile itself again. This procedure is used at UBC when installing a new version. 1 MON AUG 05/96 18:37:45 Page 698 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 See installation notes, and $COMMENT lines in the command file. 01042/068 PLUS_470 ROLLOVER C S1431 4.3T2 VLO FSNAME=PLUS_470.ROLLOVER.C.068(1) 423 5.0T3 1272 PLUS_470.ROLLOVER.C.068 1 LINE 68 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:54 5.0T9 128 0 Batch job used after generating a new private version of the PLUS compiler (as with SUEN:BOOT), to install it as the new public version, producing appropriate backup etc. 01042/069 PLUS_470 COMPARE SS G S0656 PLUS FSNAME=PLUS_470.COMPARE.SS.64(1) 64 5.0T3 1273 PLUS_470.COMPARE.SS.069 1 LINE 62 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:05 5.0T9 129 0 This is a SPITBOL GLP which we use in bootstrapping a new version of the compiler, to verify that the first compilation and the second one resulted in the same object decks. It just compares the two files, ignoring END records. Note: This program will probably require changing if it is to be used elsewhere since it uses a library routine MTSLNR() which probably isn't in anybody else's Spitbol in order to get the source line number of lines read. Unchanged since D4.2 distribution of PLUS. 01042/070 PLUS_470 LIBRARY GENERA SS O S1431 4.3T2 VLO FSNAME=PLUS_470.LIBRARY_GENERA.SS.073(1) 426 5.0T3 1274 PLUS_470.LIBRARY_GENERA.SS.070 1 LINE 157 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:22 5.0T9 130 0 Another Spitbol GLP, again requiring the UBC routine to get at MTS line numbers, and also local routines for interfacing to read and write. We use this one to regenerate a PLUS library from an old one -- useful for cleaning up the line numbers, or recreating it if the file is accidently renumbered. For use at other installations, could be changed to use routines in UNSP:SPITLIB (590/30). Unchanged from the RD16 version. 01042/071 PLUS_470 HANOI SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.HANOI.S+.074(1) 427 5.0T3 1275 PLUS_470.HANOI.SQ.071 1 LINE 68 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:25 5.0T9 131 0 Simple example of PLUS program that performs Towers of Hanoi. 1 MON AUG 05/96 18:37:45 Page 699 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/072 PLUS_470 UTILITY RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.UTILITY_RTNS.S+.075(1) 428 5.0T3 1276 PLUS_470.UTILITY_RTNS.SQ.072 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:28 5.0T9 132 0 This is source for a collection of auxiliary PLUS subroutines that are getting used in various places, but which we don't think belong in NEW:PLUS.OBJLIB (1042/50). The routines currently in this file are various procedures for allocating arrays and linked lists. Used in this distribution by the LALR analyzer (1042/99) and the Spires Analyzer (1076). These routines, or substitutes for them, are required by the object module punching routines (1042/54). (Note the compiler provides substitutes -- it does not uses these ones.) Compile with 0=UTILITY*SL+NEW:PLUS.SOURCEL (1042/73) (1042/4) 0 Referenced by comments of: 1042/74 01042/073 PLUS_470 UTILITY RTNS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.UTILITY_RTNS.S+.076(1) 429 5.0T3 1277 PLUS_470.UTILITY_RTNS.SQ.073 1 LINE 68 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:31 5.0T9 133 0 PLUS Source library containing the declarations for the above routines. Used when compiling the routines, or by any program that uses the routines. 0 Referenced by comments of: 1042/54, 1042/72, 1042/101, 1076/1, 1076/3 01042/074 PLUS_470 UTILITY RTNS OL O S1431 4.3T2 VLO FSNAME=PLUS_470.UTILITY_RTNS.OL.077(1) 430 5.0T3 1278 PLUS_470.UTILITY_RTNS.OL.074 1 LINE 292 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:34 5.0T9 134 0 Object library containing the utility routines from (1042/72). 0 Referenced by comments of: 1042/54, 1042/99 01042/075 PLUS_470 SUPERVISOR LIB SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.SUPERVISOR_LIB.S+.078(1) 431 5.0T3 1279 PLUS_470.SUPERVISOR_LIB.SQ.075 1 LINE 72 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:37 5.0T9 135 0 UBC plans eventually to produce a series of libraries paralleling the assembler libraries for the various components of the system. (UBC now keeps all system copy sections in one of a small number of libraries.) These libraries will contain PLUS definitions of the various internal control blocks, internal entry poins of the system, etc. 1 MON AUG 05/96 18:37:45 Page 700 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 This subcomponent, in the file COPY:SUPER*42SQL at UBC, will contain supervisor-related definitions corresponding to the file COPY:SUPER*42M at UBC). Currently, however, all it contains is constant definitions for all the UMMPS SVC's, and a very rough description of the job table. 0 Referenced by comments of: 1077/1 01042/076 PLUS_470 DSP LIB SQ S S1431 4.3T2 VLO FSNAME=PLUS_470.DSP_LIB.S+.079(1) 432 5.0T3 1280 PLUS_470.DSP_LIB.SQ.076 1 LINE 68 3 PAGE UBC O'REILLY HANSEN SEP. 27, 1979 22:06:40 5.0T9 136 0 This is a PLUS source library defining resource-manager DSP entry points and control blocks. It is preliminary and has never been used. Distributed here in case it is of any interest to anyone elsewhere. 01042/077 PLUS_470 INTERTASK LIB SQ S S1431 4.3T2 VLO FSNAME=PLUS_470.INTERTASK_LIB.S+.080(1) 433 5.0T3 1281 PLUS_470.INTERTASK_LIB.SQ.077 1 LINE 68 3 PAGE UBC O'REILLY HANSEN SEP. 27, 1979 22:06:44 5.0T9 137 0 This is a PLUS source library containing intertask-related definitions. It is preliminary and has never been used. Distributed here in case it is of any interest to anyone elsewhere. 01042/078 PLUS_470 MONITOR LIB SQ S S1431 4.3T2 VLO FSNAME=PLUS_470.MONITOR_LIB.S+.081(1) 434 5.0T3 1282 PLUS_470.MONITOR_LIB.SQ.078 1 LINE 68 5 PAGE UBC O'REILLY HANSEN SEP. 27, 1979 22:06:47 5.0T9 138 0 This is a PLUS source library containing definitions of the resource manager monitor procedures and control blocks. It is preliminary and has never been used. Distributed here in case it is of any interest to anyone elsewhere. 01042/079A PLUS_470 STATSCAN SQ O PLUS:STATSCAN(1000,9999) 5.0T3 1283 PLUS_470.STATSCAN.SQ.079 1 LINE 101 13 PAGE UM HANSEN JULY 03, 1981 20:57:30 5.0T9 139 0 THIS IS A PROGRAM WHICH MAY BE USED INTERACTIVELY TO ANALYZE THE PLUS COMPILER STATISTICS FILE (AT MICHIGAN, THIS FILE IS CALLED ETC:PLUSLOG). DOCUMENTATION FOR STATSCAN IS IN STATSCAN HELP (1042/82). 0 Referenced by comments of: 1042/81 1 MON AUG 05/96 18:37:45 Page 701 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/080A PLUS_470 STATSCN GRAMMR S G PLUS:STATSCAN(10000) 5.0T3 1284 PLUS_470.STATSCN_GRAMMR.S.080 1 LINE 83 3 PAGE UM HANSEN JULY 03, 1981 20:57:34 5.0T9 140 0 GRAMMAR FOR THE UBC ANALYZER (1076) USED TO PRODUCE PARSER TABLES INCLUDED IN (1042/81). 0 Referenced by comments of: 1042/81, 1042/103 01042/081A PLUS_470 STATSCAN O O PLUS:STATSCAN(1,999) 5.0T3 1285 PLUS_470.STATSCAN.O.081 1 LINE 3344 12 PAGE UM HANSEN JULY 03, 1981 20:57:38 5.0T9 141 0 OBJECT OF (1042/79) AND (1042/80). MUST BE COMPILED WITH THE PLUS COMPILER VERSION 15 (OCTOBER 1979). $CONTINUES WITH PLUS:PARSER.OL (1076/6) AND NEW:PLUS.OBJLIB (1042/50). USES THE STATSCAN HELP FILE (1042/82) AND ETC:PLUSLOG (THE PLUS COMPILER STATISTICS FILE, WHICH IS NOT DISTRIBUTED). 0 Referenced by comments of: 1042/80, 1042/82 01042/082A PLUS_470 STATSCAN HELP D PLUS:STATSCANHELP 5.0T3 1286 PLUS_470.STATSCAN_HELP.D.082 1 LINE 68 2 PAGE UM HANSEN JULY 03, 1981 20:57:41 5.0T9 142 0 HELP FILE FOR THE PLUS STATISTICS FILE SCANNER (1042/81). 0 Referenced by comments of: 1042/79, 1042/81 01042/083 PLUS_470 LALR WRITEUP WF S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_WRITEUP.WF.086(1) 439 5.0T3 1287 PLUS_470.LALR_WRITEUP.WF.083 1 LINE 66 3 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:05 5.0T9 143 0 LALR (1042/83) - (1042/102), a program similar to *LALRGEN (745), produces syntax tables, and some auxiliary PLUS declarations from a BNF grammar. The grammar must be LALR(1). It is the only LALR(1) grammar UBC knows of that will correctly process the PLUS grammar (1042/47). UBC hopes to rewrite the lookahead algorithm sometime to use the efficient calculation described in SIGPLAN Symposium on Compiler Construction, SIGPLAN Notices, Vol. 14, number 8. This subcomponent contains FMT source for brief notes describing input and output from LALR. It assumes the reader is familiar with similar programs. Uses COPY:JONMACLIBFMT (308/18). 0 Referenced by comments of: 1042/83 1 MON AUG 05/96 18:37:45 Page 702 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/084 PLUS_470 LALR WRITEUP PF S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_WRITEUP.PF.087(1) 440 5.0T3 1288 PLUS_470.LALR_WRITEUP.PF.084 1 LINE 69 3 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:13 5.0T9 144 0 $COPYable writeup for LALR (5 pages) 01042/085 PLUS_470 LALR DECLAR SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_DECLAR.S+.088(1) 441 5.0T3 1289 PLUS_470.LALR_DECLAR.SQ.085 1 LINE 68 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:16 5.0T9 145 0 PLUS source library containing the definition of the parser tables. 0 Referenced by comments of: 1042/43, 1042/101 01042/086 PLUS_470 LALR SOURCE S O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_SOURCE.S.089(1) 442 5.0T3 1290 PLUS_470.LALR_SOURCE.S.086 1 LINE 35 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:20 5.0T9 146 0 Components (1042/87) to (1042/96) are PLUS source for the LALR analyzer. This file contains just a series of $CONTINUE WITH's specifying all the files constituting the analyzer. The pieces of the analyzer may be compiled independently or all concatenated together and compiled at once. Compiling any of the pieces requires several PLUS source libraries. Component (1042/101) $CONTINUES WITH all the required libraries. 01042/087 PLUS_470 LALR MAIN SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_MAIN.S+.090(1) 443 5.0T3 1291 PLUS_470.LALR_MAIN.SQ.087 1 LINE 68 4 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:26 5.0T9 147 0 LALR main program and initialization and some auxiliary procedures. 0 Referenced by comments of: 1042/86, 1042/99 01042/088 PLUS_470 LALR INPUT SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_INPUT.S+.091(1) 444 5.0T3 1292 PLUS_470.LALR_INPUT.SQ.088 1 LINE 68 4 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:36 5.0T9 148 0 Input reading and scanning components. 01042/089 PLUS_470 LALR PARSER SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_PARSER.S+.092(1) 445 5.0T3 1293 PLUS_470.LALR_PARSER.SQ.089 1 LINE 68 4 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:48 5.0T9 149 0 LALR analyzer input parser. This file contains the procedures to parse and recover from syntax errors in the input to LALR. It serves as an example of the structure of the parser required by the tables generated by LALR. 1 MON AUG 05/96 18:37:45 Page 703 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 The PLUS compiler has its own version (1042/19). 01042/090 PLUS_470 LALR PRINT SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_PRINT.S+.093(1) 446 5.0T3 1294 PLUS_470.LALR_PRINT.SQ.090 1 LINE 68 6 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:51 5.0T9 150 0 This component produces listing of the grammar, and other printed output produced by LALR. 01042/091 PLUS_470 LALR LR0 SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_LR0.S+.094(1) 447 5.0T3 1295 PLUS_470.LALR_LR0.SQ.091 1 LINE 68 5 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:55 5.0T9 151 0 Procedures to produce the LR(0) machine from the grammar. 01042/092 PLUS_470 LALR SLR1 SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_SLR1.S+.095(1) 448 5.0T3 1296 PLUS_470.LALR_SLR1.SQ.092 1 LINE 68 3 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:58 5.0T9 152 0 Procedures to try SLR(1) lookahead. 01042/093 PLUS_470 LALR LALR1 SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_LALR1.S+.096(1) 449 5.0T3 1297 PLUS_470.LALR_LALR1.SQ.093 1 LINE 68 8 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:01 5.0T9 153 0 Procedures to try LALR(1) lookahead. 01042/094 PLUS_470 LALR MATRX GEN SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_MATRX_GEN.S+.097(1) 450 5.0T3 1298 PLUS_470.LALR_MATRX_GEN.SQ.094 1 LINE 68 7 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:15 5.0T9 154 0 LALR generates tables which represent the parser in a matrix form (intended to improve parser speed at some cost in space). These procedures compute the matrix representation. 01042/095 PLUS_470 LALR PUNCH SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_PUNCH.S+.098(1) 451 5.0T3 1299 PLUS_470.LALR_PUNCH.SQ.095 1 LINE 68 7 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:18 5.0T9 155 0 Routines to generate object module from the matrix representation. The routines in component (1042/56) are used. 01042/096 PLUS_470 LALR MEMBER SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_MEMBER.S+.099(1) 452 5.0T3 1300 PLUS_470.LALR_MEMBER.SQ.096 1 LINE 67 2 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:22 5.0T9 156 0 These routines generate an output PLUS library containing declarations for use when writing programs to use the parser tables. 1 MON AUG 05/96 18:37:45 Page 704 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1042/86, 1042/99 01042/097 PLUS_470 LALR GRAMMAR S O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_GRAMMAR.S.100(1) 453 5.0T3 1301 PLUS_470.LALR_GRAMMAR.S.097 1 LINE 56 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:25 5.0T9 157 0 Simple grammar in the form required by LALR defining the input to LALR. 0 Referenced by comments of: 1042/98, 1042/99, 1042/100 01042/098 PLUS_470 LALR GRAMMAR OC O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_GRAMMAR.OC.101(1) 454 5.0T3 1302 PLUS_470.LALR_GRAMMAR.OC.098 1 LINE 136 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:28 5.0T9 158 0 Syntax tables generated by LALR for the grammar in (1042/97). This object deck is part of LALR. 01042/099 PLUS_470 LALR OBJECT OE O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_OBJECT.OE.102(1) 455 5.0T3 1303 PLUS_470.LALR_OBJECT.OE.099 1 LINE 32767 17 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:08:54 5.0T9 159 0 This is the complete, linkeditted object for the UBC LALR analyzer. The complete program consists of: object from (1042/87) through (1042/96) object generated by LALR from grammar (1042/97) object module routines (1042/56) (INCLUDE@SLI) Utility routines (1042/74) (INCLUDE@SLI) NEW:PLUS.OBJLIB (1042/50) (INCLUDE@SLI) 0 Referenced by comments of: 1042/19, 1042/47, 1042/48, 1042/49, 1042/54, 1042/72 01042/100 PLUS_470 LALR DECLS SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_DECLS.S+.103(1) 456 5.0T3 1304 PLUS_470.LALR_DECLS.SQ.100 1 LINE 71 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:31 5.0T9 160 0 PLUS source library generated by LALR from the grammar in (1042/97). 0 Referenced by comments of: 1042/101 01042/101 PLUS_470 LALR SOU LIB SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_SOU_LIB.S+.104(1) 457 5.0T3 1305 PLUS_470.LALR_SOU_LIB.SQ.101 1 LINE 39 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:34 5.0T9 161 0 This file just contains $CONTINUE WITH's for the set of libraries required to compile any of the files constituting the analyzer. These are: LALR*SL (1042/102) LALRDECL*SL (1042/100) PLUS:LALRPARSE*SL (1042/85) 1 MON AUG 05/96 18:37:45 Page 705 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PLUS:UTILITY*SL (1042/73) PLUS:OBJRTNS*SL (1042/55) NEW:PLUS.SOURCEL (1042/4) 0 Referenced by comments of: 1042/86 01042/102 PLUS_470 LALR SOU LIB SQ O S1431 4.3T2 VLO FSNAME=PLUS_470.LALR_SOU_LIB.S+.105(1) 458 5.0T3 1306 PLUS_470.LALR_SOU_LIB.SQ.102 1 LINE 68 7 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:38 5.0T9 162 0 PLUS source library containing declarations required by more than one of the files constituting LALR. 0 Referenced by comments of: 1042/83, 1042/101 01042/103A PLUS_470 PSTAT PLUS:PSTAT.SQD 5.0T3 1307 PLUS_470.PSTAT..103 1 LINE 68 1 PAGE UM HANSEN JULY 03, 1981 20:57:54 5.0T9 163 0 PLUS DECLARATIONS EMITTED BY PLUS:ANALYZER (1076/1) WHEN GIVEN THE STATSCAN GRAMMAR (1042/80). 01042/104C PLUS_470 CLSOBJLIB SA S PLUS:CLSOBJLIB.SA 5.0T3 1308 PLUS_470.CLSOBJLIB.SA.104 1 LINE 68 4 PAGE UM HANSEN JULY 03, 1981 20:57:55 5.0T9 164 0 These assembler routines are similar to those in (1042/52) except that they were designed for use with a CLS using a copy of the CLS transfer vector in a PLUS global. They were used to develop the PMF (810), but are included only for completeness, since the PMF has its own copy of most of these routines. 0 Referenced by comments of: 810/18, 1042/106 01042/105C PLUS_470 CLSOBJLIB SQ O PLUS:CLSOBJLIB.SQ 5.0T3 1309 PLUS_470.CLSOBJLIB.SQ.105 1 LINE 86 17 PAGE UM HANSEN JULY 03, 1981 20:57:56 5.0T9 165 0 PLUS source for the CLS-callable versions of the routines in (1042/51). Uses a copy of the transfer vector in a PLUS global. Compile with (1042/107). 0 Referenced by comments of: 1042/106 01042/106C PLUS_470 CLSOBJLIB OL O PLUS:CLSOBJLIB 5.0T3 1310 PLUS_470.CLSOBJLIB.OL.106 1 LINE 3068 11 PAGE UM HANSEN JULY 03, 1981 20:57:58 5.0T9 166 0 Object for (1042/104) and (1042/105). Similar to (1042/50), but uses a transfer vector copied to a PLUS global. 0 Referenced by comments of: 810/5 1 MON AUG 05/96 18:37:45 Page 706 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/107C PLUS_470 CLSSOURCELIB S O PLUS:CLSSOURCELIB 5.0T3 1311 PLUS_470.CLSSOURCELIB.S.107 1 LINE 85 30 PAGE UM HANSEN JULY 03, 1981 20:57:59 5.0T9 167 0 Similar to (1042/4), but for CLS's, including declarations for CLSTV and CLSPARM. Expects the transfer vector to be copied to a PLUS global. 0 Referenced by comments of: 1042/105, 1076/14 01043/001 JVCT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO CONVERT A BCD TIME/DATE TO JULIAN MICROSECONDS SINCE MARCH 1, 1900. 01044/001 JMSBTDR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO CONVERT FROM JULIAN MICROSECONDS TO BINARY GREGORIAN TIME, A FORMAT IN WHICH EACH COMPONENT OF THE TIME (YEAR, MONTH, DAY, HOUR, MINUTE, AND SO ON) HAS ITS OWN FULLWORD. 01045/001 BTDJMSR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO CONVERT FROM BINARY GREGORIAN TIME TO STANDARD MTS JULIAN MICROSECONDS. 01046/001 DAYDAT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO CONVERT MM-DD-YY TO MMM DD, YYYY. 01047/001 PRINTER DSR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A NEW 1403/1443 PRINTER DSR. 01048/001 S # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO PRINT THE NEAREST RESIDENT SYMBOL GIVEN AN ADDRESS OR THE ADDRESS NEAREST A GIVEN SYMBOL. 01049/001 PRINT_MODIFIERS # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO PRINT THE INTEGER/HEXADECIMAL EQUIVALENTS OF A GIVEN SET OF MODIFIERS. 1 MON AUG 05/96 18:37:45 Page 707 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01050/001 PLUS-11 # (NOT DISTRIBUTED) UBC 01051/001C VIRTUAL I/O OBJECT OL O TMTS:VDVLIBRARY 5.0T3 1312 VIRTUAL_I/O.OBJECT.OL.001 1 LINE 7940 44 PAGE UBC BERRYMAN HELFFRICH AUG. 06, 1981 05:47:17 5.0T9 168 TMTS:VDVLIBRARY 0 This component contains routines used to implement virtual devices. It is used by the UBC Virtual Machine (1079), VSS (1078), and other components. The virtual channel and device object is present in a loader library format for applications which need to use only a subset of the devices which can be simulated. Note that in order to use virtual 2501 reader or virtual 3270, the Resource Manager Intertask line and node DSPs are used, and hence the object for the DSP library (1041/1), the CFM routine (1041/10), and the Subtasking Monitor (1058) must also be present. 0 Referenced by comments of: 1051/19, 1051/21, 1078/27, 1079/1 01051/002C VIRTUAL I/O MACROS SM O TMTS:VDV.MACROS 5.0T3 1313 VIRTUAL_I/O.MACROS.SM.002 1 LINE 80 20 PAGE UBC BERRYMAN HELFFRICH AUG. 06, 1981 05:47:22 5.0T9 169 0 Macro library used for assembling the virtual channel, I/O devices, and disk file simulator. 0 Referenced by comments of: 1051/3, 1051/4, 1051/5, 1051/6, 1051/7, 1051/8, 1051/9, 1051/10, 1051/11, 1051/12, 1051/13, 1051/14, 1051/15, 1051/16, 1051/18, 1051/20 01051/003C VIRTUAL I/O VCHANNEL SA O TMTS:VDVCHANNEL(1000) 5.0T3 1314 VIRTUAL_I/O.VCHANNEL.SA.003 1 LINE 80 39 PAGE UBC BERRYMAN HELFFRICH AUG. 06, 1981 05:47:25 5.0T9 170 0 This routine is the virtual channel, which simulates a subset of the IBM 370 I/O channel functions. Assemble with COPY:CC.MACROS (1054/3) and the Virtual I/O macros (1051/2). 01051/004C VIRTUAL I/O VDV1052 SA O TMTS:VDV1052(1000) 5.0T3 1315 VIRTUAL_I/O.VDV1052.SA.004 1 LINE 79 7 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:47:32 5.0T9 171 0 Routine to simulate a 1052 device or equivalent. Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11). 0 Referenced by comments of: 1051/20 01051/005C VIRTUAL I/O VDV3270 SA O TMTS:VDV3270(1000) 5.0T3 1316 VIRTUAL_I/O.VDV3270.SA.005 1 LINE 78 12 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:47:33 5.0T9 172 0 Routine to simulate an IBM 3270 device using intertask to talk to a program 1 MON AUG 05/96 18:37:45 Page 708 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 running in another task. The other program simulates the device using 3270 binary I/O. Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), the UBC Virtual Machine macros (1079/11), and the DSP macros (1041/9). Copies *GDINFODSECT (594). 01051/006C VIRTUAL I/O VDV1403 SA O TMTS:VDV1403(1000) 5.0T3 1317 VIRTUAL_I/O.VDV1403.SA.006 1 LINE 72 10 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:47:36 5.0T9 173 0 Routine to simulate an IBM 1403 device or equivalent. Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11). Copies *GDINFODSECT (594). 01051/007C VIRTUAL I/O VDV2540 SA O TMTS:VDV2540(1000) 5.0T3 1318 VIRTUAL_I/O.VDV2540.SA.007 1 LINE 78 9 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:47:37 5.0T9 174 0 Routine to simulate an IBM 2540 device or equivalent. Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11). Copies *GDINFODSECT (594). 01051/008C VIRTUAL I/O VDV3420 SA O TMTS:VDV3420(1000) 5.0T3 1319 VIRTUAL_I/O.VDV3420.SA.008 1 LINE 72 13 PAGE UBC WHALEY HELFFRICH AUG. 06, 1981 05:47:39 5.0T9 175 0 Routine to simulate an IBM 3420 device or equivalent. Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11). Copies *GDINFODSECT (594). 01051/009C VIRTUAL I/O VDV2501 SA O TMTS:VDV2501(1000) 5.0T3 1320 VIRTUAL_I/O.VDV2501.SA.009 1 LINE 72 16 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:47:42 5.0T9 176 0 This is a special virtual device that accepts file names from an intertask network and submits the contents of the file to the virtual machine as if it were a card deck put in a 2501 reader device. The virtual device was written to allow jobs to be submitted to an operating system running in the virtual machine. See notes at the front of the component. Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), the UBC Virtual Machine macros (1079/11), and the DSP macros (1041/9). 0 Referenced by comments of: 1051/16 01051/010C VIRTUAL I/O VDV2701 SA O TMTS:VDV2701(1000) 5.0T3 1321 VIRTUAL_I/O.VDV2701.SA.010 1 LINE 68 7 PAGE UBC O'REILLY HELFFRICH AUG. 06, 1981 05:47:47 5.0T9 177 0 Routine to simulate 2701/PDA as used by UBC's Front End Processors. Calls the virtual PDP/11 (1051/11). Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11). 0 Referenced by comments of: 1051/11 1 MON AUG 05/96 18:37:45 Page 709 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01051/011C VIRTUAL I/O VDVUBCFEP SA S TMTS:VDVUBCFEP(1000) 5.0T3 1322 VIRTUAL_I/O.VDVUBCFEP.SA.011 1 LINE 68 19 PAGE UBC O'REILLY HELFFRICH AUG. 06, 1981 05:47:49 5.0T9 178 0 Routine to simulate communication with a UBC PDP11/40 FEP using UBC's FEP protocol. Called by the virtual 2701 routines (1051/10). Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and COPY:FECP.LIB*M, which was not distributed by UBC. 0 Referenced by comments of: 1051/10 01051/012C VIRTUAL I/O VDVDASD SA O TMTS:VDVDASD(1000) 5.0T3 1323 VIRTUAL_I/O.VDVDASD.SA.012 1 LINE 81 16 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:47:52 5.0T9 179 0 This routine interprets CCWs for IBM 3330 and 3350 device types and calls the disk file simulator (1051/14) to do the actual simulation. Assemble using COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11). 01051/013C VIRTUAL I/O VDV2305 SA O TMTS:VDV2305(1000) 5.0T3 1324 VIRTUAL_I/O.VDV2305.SA.013 1 LINE 72 15 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:47:54 5.0T9 180 0 This routine interprets CCWs for IBM 2305 devices and calls the disk file simulator (1051/14) to do the actual simulation. Assemble using COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11). 01051/014C VIRTUAL I/O VDVDFS SA O TMTS:VDVDFS(1000) 5.0T3 1325 VIRTUAL_I/O.VDVDFS.SA.014 1 LINE 80 59 PAGE UBC BERRYMAN HELFFRICH AUG. 06, 1981 05:47:57 5.0T9 181 0 Disk file simulator routines. Used by 1051/12 and 1051/13. These routines simulate 3330-type disk devices using a line file data structure which must by initialized by the preformat program (1051/19). Assemble using COPY:CC.MACROS (1054/3) and the Virtual I/O macros (1051/2). 0 Referenced by comments of: 1051/12, 1051/13 01051/015C VIRTUAL I/O VDV3370 SA O TMTS:VDV3370(1000) 5.0T3 1326 VIRTUAL_I/O.VDV3370.SA.015 1 LINE 72 15 PAGE RPI MCKENNEY HELFFRICH AUG. 06, 1981 05:48:05 5.0T9 182 0 This routine simulates an IBM 3370 disk. Assemble with COPY:CC.MACROS (1054/3), the Virtual I/O macros (1051/2), and the UBC Virtual Machine macros (1079/11). 01051/016C VIRTUAL I/O 2501 SUBMIT SA O TMTS:VDV2501SLAVE(1000) 5.0T3 1327 VIRTUAL_I/O.2501_SUBMIT.SA.016 1 LINE 72 5 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:48:08 5.0T9 183 0 This is a test program to submit file names, or jobs, over an intertask network to the virtual 2501 reader (1051/9). Assemble using COPY:CC.MACROS 1 MON AUG 05/96 18:37:45 Page 710 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (1054/3), COPY:MNTR.MACROS (1058/19), and the DSP macros (1041/9), the UBC Virtual Machine macros (1079/11), the virtual I/O macros (1051/2), COPY:IT:MACROS (1081/6), and COPY:MISC.MACROS (728). Copies COPY:IT.DSECTS (1081/4). 0 Referenced by comments of: 1051/17 01051/017C VIRTUAL I/O 2501 SUBMIT OC O TMTS:VDV2501SLAVE(1,999) 5.0T3 1328 VIRTUAL_I/O.2501_SUBMIT.OC.017 1 LINE 80 5 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:48:10 5.0T9 184 0 Object for (1051/16). Must be run with the Subtasking Monitor (1058), along with the Resource Manager DSP Libary (1041/1), and the CFM routine (1041/10). 01051/018C VIRTUAL I/O PREFMT SA O TMTS:VDVPREFMT(1000) 5.0T3 1329 VIRTUAL_I/O.PREFMT.SA.018 1 LINE 69 4 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:48:11 5.0T9 185 0 Program that calls the disk file simulator routines to write standard record 0 on each track of an empty virtual disk file. It also contains an option to format an empty virtual disk file for use as a 2305 paging device. Assemble with COPY:CC.MACROS (1054/3) and the Virtual I/O macros (1051/2). 0 Referenced by comments of: 1051/19 01051/019C VIRTUAL I/O PREFMT OC O TMTS:VDVPREFMT(1,999) 5.0T3 1330 VIRTUAL_I/O.PREFMT.OC.019 1 LINE 80 3 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:48:12 5.0T9 186 0 Object for (1051/18). Must be run along with (1051/1) and the DSP library (1041/1). Requires COPY:CCSYMBOL (579/9). 0 Referenced by comments of: 1051/14 01051/020C VIRTUAL I/O 3270 SLAVE SA G TMTS:VDV3270SLAVE(1000) 5.0T3 1331 VIRTUAL_I/O.3270_SLAVE.SA.020 1 LINE 72 9 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:48:13 5.0T9 187 0 Companion program to (1051/4). See (1079/12) for description. This program talks over an intertask line to the virtual 3270 device in the virtual machine and simulates a 3270 using binary I/O to the *MSOURCE* device. Assemble using COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), the DSP macros (1041/9), the UBC Virtual Machine macros (1079/11), the Virtual I/O macros (1051/2), COPY:IT.MACROS (1081/6), and COPY:MISC.MACROS (728). Copies COPY:IT.DSECTS (1081/4). 01051/021C VIRTUAL I/O 3270 SLAVE OC G TMTS:VDV3270SLAVE(1,999) 5.0T3 1332 VIRTUAL_I/O.3270_SLAVE.OC.021 1 LINE 80 8 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:48:18 5.0T9 188 0 Requires the Virtual I/O routines (1051/1), the Subtasking Monitor (1058), the Resource Manager DSP library (1041/1), the CFM routine (1041/10), and COPY:CCSYMBOL (579/9). 1 MON AUG 05/96 18:37:45 Page 711 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01052/001 PASCAL/UBC COMPILER SW O S1431 4.3T2 VLO FSNAME=PASCAL/UBC.COMPILER.SW.001(1) 460 5.0T3 1333 PASCAL/UBC.COMPILER.SW.001 1 LINE 94 198 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:25:53 5.0T9 189 0 This is the source for the UBC Pascal compiler. Subcomponent (1052/2) is an update to this source for three local changes. This component contains several copyright notices, but UBC places no special restrictions on its use other than those normally associated with distributions of MTS. Subcomponents (1052/11) and (1052/12) contain further information about how to install the system. Component (792/6) is a print file containing information about the changes to all the Pascal compilers available under UNSP at UM. 0 Referenced by comments of: 792/1, 792/6, 793/1, 799/1, 1052/3 01052/002 PASCAL/UBC COMPILER UC G S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.PASCAL.CDU 5.0T3 1334 PASCAL/UBC.COMPILER.UC.002 1 LINE 68 1 PAGE UBC JOLLIFFE UNSP FEB. 25, 1980 09:52:52 5.0T9 190 0 THE UM UPDATES TO THE COMPILER. THE NAME OF THE RUNTIME LIBRARY (1052/8) IS "UNSP:PAS.BC.LIB". THE NAME OF THE ERROR STATISTICS FILE (1052/10) IS "UNSP:PAS.BC.ERR". CALLS SNOOP IN UNSP:LIBRARY (685/2) TO RECORD USAGE IN THE FILE UNSP:STATS, IF IT EXISTS. 0 Referenced by comments of: 1052/1, 1052/3 01052/003 PASCAL/UBC COMPILER OE O UNSP:PAS.BC 5.0T3 1335 PASCAL/UBC.COMPILER.OE.003 1 LINE 32767 73 PAGE UBC JOLLIFFE UNSP JULY 03, 1981 20:59:07 5.0T9 191 UNSP:PAS.BC 0 THIS IS THE LINKEDITED OBJECT OF THE PASCAL COMPILER (1052/1), WITH THE (1052/2) UPDATE APPLIED, AND THE RUNTIME SUPPORT LIBRARY (1052/8). 01052/004 PASCAL/UBC MONITOR SRC SA O S1367 UBC75 FSNAME=UBC_PASCAL.MON*SA.SA.003 34 5.0T3 1336 PASCAL/UBC.MONITOR_SRC.SA.004 1 LINE 73 36 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:14:11 5.0T9 192 0 THIS FILE CONTAINS THE RUNTIME LIBRARY ASSEMBLER SOURCE MODULES. THESE ROUTINES DO LOW LEVEL I/O AND PASCAL PROGRAM INITIALIZATION. THE OBJECT OF THIS SUBCOMPONENT IS IN THE (1052/8) LIBRARY. 0 Referenced by comments of: 1052/8 01052/005A PASCAL/UBC MONITOR UPD UC G S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.MONITOR.CDU 5.0T3 1337 PASCAL/UBC.MONITOR_UPD.UC.005 1 LINE 63 1 PAGE UM UNSP APR. 24, 1980 03:59:22 5.0T9 193 0 1 MON AUG 05/96 18:37:45 Page 712 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ********************************************************************************* D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: TIME LIMIT EXCEEDED IS NO LONGER A FATAL ERROR. ********************************************************************************* 0 Referenced by comments of: 1052/8 01052/006 PASCAL/UBC LIB SRC SW O S1431 4.3T2 VLO FSNAME=PASCAL/UBC.LIB_SRC.SW.006(1) 465 5.0T3 1338 PASCAL/UBC.LIB_SRC.SW.006 1 LINE 94 14 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:25:17 5.0T9 194 0 THIS FILE CONTAINS THE RUNTIME LIBRARY (1052/8) SOURCE MODULES, WRITTEN IN PASCAL. MOST OF THE ROUTINES ARE HIGH LEVEL I/O ROUTINES. 0 Referenced by comments of: 1052/8 01052/007 PASCAL/UBC DEBUG SRC SW O S1431 4.3T2 VLO FSNAME=PASCAL/UBC.DEBUG_SRC.SW.007(1) 466 5.0T3 1339 PASCAL/UBC.DEBUG_SRC.SW.007 1 LINE 82 58 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:25:24 5.0T9 195 0 THIS FILE CONTAINS THE SOURCE CODE, WRITTEN IN PASCAL, FOR THE PASCAL POST-MORTEM ANALYSIS (PMD) PACKAGE. 0 Referenced by comments of: 1052/8, 1052/9 01052/008A PASCAL/UBC RUNTIME LIB OL O UNSP:PAS.BC.LIB 5.0T3 1340 PASCAL/UBC.RUNTIME_LIB.OL.008 1 LINE 5846 50 PAGE UBC JOLLIFFE UNSP JULY 03, 1981 21:00:42 5.0T9 196 UNSP:PAS.BC.LIB 0 THIS IS THE PASCAL RUNTIME LIBRARY. IT CONTAINS THE OBJECT OF (1052/4) WITH THE (1052/5) UPDATE APPLIED, (1052/6), AND (1052/7). COMPONENT (1052/12) CONTAINS COMMANDS TO ASSEMBLE THE LIBRARY. 0 Referenced by comments of: 799/2, 1052/2, 1052/3, 1052/4, 1052/6, 1052/9, 1052/12 01052/009 PASCAL/UBC DEBUG.LOAD OC O UNSP:PAS.BC.DEBUG 5.0T3 1341 PASCAL/UBC.DEBUG.LOAD.OC.009 1 LINE 30 1 PAGE UBC JOLLIFFE UNSP JULY 03, 1981 21:00:46 5.0T9 197 UNSP:PAS.BC.DEBUG 0 THIS FILE CONTAINS ONLY AN ENT RECORD AND A $CONTINUE WITH UNSP:PAS.BC.LIB RECORD. IT IS LOADED BY THE RUNTIME LIBRARY (1052/8) WHEN THE DEBUGGER (1052/7) IS CALLED. 01052/010 PASCAL/UBC ERRORLOG D S1431 4.3T2 VLO FSNAME=PASCAL/UBC.ERRORLOG.D.010(1) 469 5.0T3 1342 PASCAL/UBC.ERRORLOG.D.010 1 LINE 76 4 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:26:49 5.0T9 198 0 IF THIS FILE IS CREATED WITH THE NAME 'UNSP:PAS.BC.ERR' AND WITH THE GIVEN FORMAT, THE COMPILER WILL RECORD STATISTICS ABOUT THE ERROR MESSAGES IT ISSUES. IF THE FILE DOESN'T EXIST, NO LOGGING IS DONE. AS DISTRIBUTED, THE ERROR COUNTS ARE ZERO. THE LINE NUMBERS IN THIS FILE ARE IMPORTANT, SINCE IT ALSO CONTAINS THE TEXT OF THE ERROR MESSAGES IN THE NEGATIVE LINE NUMBER RANGE. 1 MON AUG 05/96 18:37:45 Page 713 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1052/2 01052/011 PASCAL/UBC COMMENTS P S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.COMMENTS 5.0T3 1343 PASCAL/UBC.COMMENTS.P.011 1 LINE 68 3 PAGE UBC JOLLIFFE UNSP FEB. 10, 1980 17:43:44 5.0T9 199 0 THIS FILE CONTAINS A DESCRIPTION OF SOME OF THE FILES ON THE PASCAL DISTRIBUTION TAPE RECEIVED FROM UBC. 0 Referenced by comments of: 1052/1 01052/012 PASCAL/UBC INSTALL C S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.INSTALL 5.0T3 1344 PASCAL/UBC.INSTALL.C.012 1 LINE 79 3 PAGE UM UNSP DEC. 04, 1979 06:42:18 5.0T9 200 0 THESE ARE THE MTS COMMANDS USED TO INSTALL PASCAL/UBC AT UM. THERE ARE SOME INSTALLATION-DEPENDENCIES (LIKE TAPE RACK NUMBERS) WHICH WILL NEED TO BE CHANGED AT OTHER INSTALLATION. CONTAINS A $CONTINUE WITH UNSP:PAS.BC.LIB (1052/8) RECORD. 0 Referenced by comments of: 1052/1, 1052/8 01052/013A PASCAL/UBC MANUAL P UNSP:PAS.BC.W 5.0T3 1345 PASCAL/UBC.MANUAL.P.013 1 LINE 71 80 PAGE UBC JOLLIFFE UNSP JULY 03, 1981 21:01:33 5.0T9 201 0 "PASCAL/UBC USER'S GUIDE" (SEPT. 1979 EDITION). 01053/001 *NUMLIB # (NOT DISTRIBUTED) UBC 01054/001A CODING CONVENTIONS D5.0 MASTER SM G S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=CC_MACROS 5.0T3 1346 CODING_CONVENTIONS.D5.0_M.SM.001 1 LINE 80 104 PAGE UM MTS MTA AUG. 06, 1981 05:49:49 5.0T9 202 0 BASE SOURCE FOR THE NEW MTS CODING CONVENTION MACRO LIBRARY. ******************************************************************************* D5.0 version: This version of COPY:CC.MACROS uses R12 as the current stack pointer. (This is the agreed-upon R12 AND R13 register convention.) Other changes were made, as well. See the comments in update file. ******************************************************************************* 0 Referenced by comments of: 1054/3 01054/002A CODING CONVENTIONS UPDATE UC G MTS.:CCMACROSUPD 5.0T3 1347 CODING_CONVENTIONS.UPDATE.UC.002 1 LINE 106 33 PAGE UM MTS MTA AUG. 06, 1981 05:49:51 5.0T9 203 0 MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE. THE UPDATED SOURCE, WHEN RUN THROUGH *MACUTIL, WILL PRODUCE THE CURRENT MACRO LIBRARY (1054/3). 1 MON AUG 05/96 18:37:45 Page 714 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 All changes to the Coding Convention Macros should be made using *CDUPDATE (1036) and Mike Alexander at UM should be kept informed. 0 Referenced by comments of: 1054/3 01054/003A CODING CONVENTIONS COPY:CC.MACROS SM G COPY:CC.MACROS 5.0T3 1348 CODING_CONVENTIONS.COPY:C.SM.003 1 LINE 72 63 PAGE UM MTS MTA AUG. 06, 1981 05:49:57 5.0T9 204 COPY:CC.MACROS 0 THIS IS "COPY:CC.MACROS" WHICH IS PRODUCED BY *MACUTIL (738), USING AS INPUT THE OUTPUT FROM THE *CDUPDATE RUN OF (1054/2) AGAINST (1054/1). 0 Referenced by comments of: 42/1, 79/1, 101/1, 135/1, 198/1, 354/1, 354/5, 400/5, 400/14, 458/89, 464/1, 498/1, 513/1, 539/1, 540/27, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1, 648/1, 651/11, 677/1, 682/22, 686/1, 721/18, 724/1, 732/1, 769/1, 769/3, 769/5, 769/7, 769/9, 769/11, 769/13, 769/15, 769/20, 787/9, 787/11, 787/15, 787/17, 802/1, 806/1, 811/3, 818/1, 1023/1, 1023/3, 1041/2, 1041/3, 1041/4, 1041/5, 1041/6, 1041/7, 1041/10, 1041/12, 1051/3, 1051/4, 1051/5, 1051/6, 1051/7, 1051/8, 1051/9, 1051/10, 1051/11, 1051/12, 1051/13, 1051/14, 1051/15, 1051/16, 1051/18, 1051/20, 1054/2, 1058/1, 1058/2, 1058/3, 1058/4, 1058/5, 1058/6, 1058/7, 1058/8, 1058/10, 1058/12, 1058/17, 1067/2, 1070/3, 1079/2, 1079/3, 1079/4, 1079/5, 1079/6, 1079/7, 1079/8, 1079/9, 1079/10, 4000/1 01054/004 CODING CONVENTIONS WRITEUP WF MTA:CC.W 5.0T3 1349 CODING_CONVENTIONS.WRITEU.WF.004 1 LINE 96 10 PAGE UM MTS MTA AUG. 06, 1981 05:50:04 5.0T9 205 0 WRITEUP DESCRIBING CODING CONVENTIONS MACROS. 01055/001 UBC FEP (PDP-11) # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE UBC FRONT-END PROCESSOR SOFTWARE. 01056/001 MM # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE MESSAGE MULTIPLEXOR. 01057/001 UBC FEPDSR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE UBC FRONT-END PROCESSOR DSR. 01058/001A SUBTASKING MONITOR MNTR SA G DMGR:MNTMNTR(1000) 5.0T3 1350 SUBTASKING_MONITOR.MNTR.SA.001 1 LINE 72 29 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:06 5.0T9 206 0 Subtasking Monitor initialization and management routines. Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 724/2, 724/3, 769/13, 769/24, 787/3, 787/13, 1041/1, 1051/1, 1051/17, 1051/21, 1058/9, 1079/1 1 MON AUG 05/96 18:37:45 Page 715 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01058/002A SUBTASKING MONITOR WAIT SA G DMGR:MNTWAIT(1000) 5.0T3 1351 SUBTASKING_MONITOR.WAIT.SA.002 1 LINE 72 25 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:16 5.0T9 207 0 Subtasking Monitor wait routines. Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and COPY:UC.MACROS (787/1). 0 Referenced by comments of: 1058/8, 1058/12 01058/003A SUBTASKING MONITOR SERV SA G DMGR:MNTSERV(1000) 5.0T3 1352 SUBTASKING_MONITOR.SERV.SA.003 1 LINE 72 13 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:23 5.0T9 208 0 Subtasking Monitor service routines, including STRTIO, HALTIO, SENDIT, CNCLIT and DVSTAT. These routines may also be user in a non-monitor environment. Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and COPY:UC.MACROS (787/1). 01058/004A SUBTASKING MONITOR PRVI SA G DMGR:MNTPRV(1000) 5.0T3 1353 SUBTASKING_MONITOR.PRVI.SA.004 1 LINE 72 4 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:26 5.0T9 209 0 Pseudo-register vector initialization routine and LCSPR table. Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and COPY:UC.MACROS (787/1). 01058/005A SUBTASKING MONITOR UNND SA G DMGR:MNTUNND(1000) 5.0T3 1354 SUBTASKING_MONITOR.UNND.SA.005 1 LINE 72 12 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:29 5.0T9 210 0 Subtasking Monitor routines to allocate/de-allocate real devices, and intertask networks and nodes. Also include are the routines to do this in an MTS environment. Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and COPY:UC.MACROS (787/1). 01058/006A SUBTASKING MONITOR ONUNIT SA G DMGR:MNTONUNIT(1000) 5.0T3 1355 SUBTASKING_MONITOR.ONUNIT.SA.006 1 LINE 71 5 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:32 5.0T9 211 0 Subtasking monitor routines to specify and invoke PGNT and MSG units. Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3). 01058/007A SUBTASKING MONITOR GSFS SA G DMGR:MNTGTFR(1000) 5.0T3 1356 SUBTASKING_MONITOR.GSFS.SA.007 1 LINE 72 18 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:33 5.0T9 212 0 Subtasking monitor space allocation/de-allocation routines. Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3). 1 MON AUG 05/96 18:37:45 Page 716 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01058/008C SUBTASKING MONITOR MTS WAIT SA G DMGR:MNTMTWAIT(000) 5.0T3 1357 SUBTASKING_MONITOR.MTS_WA.SA.008 1 LINE 137 3 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:38 5.0T9 213 0 This is the MTS version of the RMWAIT routine, which is part of WAIT (1058/2). MTS WAIT needs to be loaded past the symbol 'ENDOFMTS' in order for ATTN and timer interrupts to occur. Since MTS suppresses all such interrupts below 'ENDOFMTS', a version of the monitor in real memory, segment 0, is mostly uninterruptable if it ever waits. Requires COPY:MNTR.MACROS (1058/19), COPY:CC.MACROS (1054/3), and COPY:MISC.MACROS (728). 0 Referenced by comments of: 1058/9 01058/009A SUBTASKING MONITOR MONITOR OBJ OC G # (PART OF RESIDENT SYSTEM) UBC BOWLER HELFFRICH 0 The object for (1058/1) through (1058/8). These are separate RAMROD decks of the same name as the source. Note that the object for (1058/8) must come after the RAMROD deck "MTS" in order to function properly. Object part of Resident System (468) 0 Referenced by comments of: 1058/18 01058/010A SUBTASKING MONITOR MDUMP SA G DMGR:MNTDUMP(1000) 5.0T3 1358 SUBTASKING_MONITOR.MDUMP.SA.010 1 LINE 73 10 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:39 5.0T9 214 0 Routine to produce a formatted dump of subtasking monitor control blocks when running in an MTS environment. Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3). 01058/011A SUBTASKING MONITOR MDUMP OC G DMGR:MNTDUMP(1,999) 5.0T3 1359 SUBTASKING_MONITOR.MDUMP.OC.011 1 LINE 80 11 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:41 5.0T9 215 0 Referenced by comments of: 1058/18 01058/012C SUBTASKING MONITOR SYNCH WAIT SA O DMGR:MNTSYNCWAIT(1000) 5.0T3 1360 SUBTASKING_MONITOR.SYNCH.SA.012 1 LINE 72 6 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:43 5.0T9 216 0 Monitor subroutines which can replace the asynchronous wait routines (1058/2) if synchronous operation is desired. Doing this means the monitor need not be running, that is, MNTINIT or MNTMTSI need not be called. Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3). 01058/013C SUBTASKING MONITOR SYNCH WAIT OC O DMGR:MNTSYNCWAIT(1,999) 5.0T3 1361 SUBTASKING_MONITOR.SYNCH.OC.013 1 LINE 80 4 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:45 5.0T9 217 1 MON AUG 05/96 18:37:45 Page 717 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01058/014C SUBTASKING MONITOR CHANGE LIST P DMGR:MNTNOTES 5.0T3 1362 SUBTASKING_MONITOR.CHANGE.P.014 1 LINE 68 11 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:47 5.0T9 218 0 Description of UM modifications to subtasking monitor. This should be consulted when comparing versions of the monitor, as it contains a very detailed list of changes and reasons for them. 0 Referenced by comments of: 1058/15 01058/015A SUBTASKING MONITOR DOCUMENTATION WF DMGR:MNTWRITEUP.F 5.0T3 1363 SUBTASKING_MONITOR.DOCUME.WF.015 1 LINE 89 21 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:50 5.0T9 219 0 A much revised, although unedited, writeup. This still needs a lot of work, and has not been brought up-to-date. See (1058/14) for further differences. Requires COPY:JONMACLIBFMT (308/18). 01058/016A SUBTASKING MONITOR DOCUMENTATION PF DMGR:MNTWRITEUP 5.0T3 1364 SUBTASKING_MONITOR.DOCUME.PF.016 1 LINE 133 37 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:56 5.0T9 220 0 $COPYable writeup for the Subtasking Monitor. 01058/017C SUBTASKING MONITOR TEST PROGRAM SA G DMGR:MNTTEST(1000) 5.0T3 1365 SUBTASKING_MONITOR.TEST_P.SA.017 1 LINE 71 6 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:50:59 5.0T9 221 0 Test program for Subtasking Monitor. It is strongly recommended that you run this program to assure yourself that the monitor is properly installed. Requires COPY:MNTR.MACROS (1058/19) and COPY:CC.MACROS (1054/3). 01058/018C SUBTASKING MONITOR TEST PROGRAM OC G DMGR:MNTTEST(1,999) 5.0T3 1366 SUBTASKING_MONITOR.TEST_P.OC.018 1 LINE 80 7 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:51:02 5.0T9 222 0 To use this, the object must be run along with (1058/11) and the resident system monitor object (1058/9). 01058/019A SUBTASKING MONITOR MNTR MACROS SM G COPY:MNTR.MACROS 5.0T3 1367 SUBTASKING_MONITOR.MNTR_M.SM.019 1 LINE 73 23 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:51:04 5.0T9 223 COPY:MNTR.MACROS 0 The macros and copy sections associated with the Subtasking Monitor. 0 Referenced by comments of: 769/1, 769/3, 769/5, 769/7, 769/9, 769/11, 769/13, 769/20, 1041/2, 1041/3, 1041/4, 1041/5, 1041/6, 1041/7, 1041/10, 1041/12, 1051/16, 1051/20, 1058/1, 1058/2, 1058/3, 1058/4, 1058/5, 1058/6, 1058/7, 1058/8, 1058/10, 1058/12, 1058/17, 1079/2, 1079/3, 1079/4, 1079/5, 1079/6, 1079/7, 1079/8, 1079/10 01059/001 GENERAL_TRANSLATOR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL TRANSLATING ROUTINE WHICH OBSOLETES *EBCASC, *ASCEBC, *BCDEBCD, AND *EBCBCD, 1 MON AUG 05/96 18:37:45 Page 718 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 AS WELL AS PROVIDING SOME NEW TRANSLATING FEATURES. 01060/001 FILE_CREATE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO ATTEMPT TO CREATE ONE OR MORE FILES AND TO CAUSE THE USER TO BE SIGNED OFF IF ANY OF THE FILE CREATE ATTEMPTS FAIL. 01061/001 PROFILE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, ESTABLISHES DEFAULTS FROM A SIGFILE. 01062/001 UBC FEP INTERFACE # (NOT DISTRIBUTED) UBC 01064/001 PDADSR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A RUDIMENTARY DSR WHICH WILL COMMUNICATE WITH UBC'S PDP-11 FEP OVER THE SINGLE-ADDRESS 2701 INTERFACE. 01065/001 UBC FEP LOAD & DUMP # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE ROM BOOTSTRAP LOADER FOR THE UBC PDP-11S. 01066/001 SWAT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE MTS DEBUGGING MONITOR. 01067/001A TAPESHARE MAIN PGM SA G S1237 TAPES 'TAPEFS' FSNAME=TAPESHARE 5.0T3 1368 TAPESHARE.MAIN_PGM.SA.001 1 LINE 80 5 PAGE UBC WHALEY UNSP MAY 06, 1980 13:19:56 5.0T9 224 0 PROGRAM TO ALLOW USERS TO CONTROL WHICH OF THEIR TAPES CAN BE READ FROM, OR OPTIONALLY WRITTEN ON, BY OTHER USERS. THIS UM VERSION OF TAPESHARE PARSES RACK NAMES BY USING THE INITIAL NON-NUMERIC PART OF THE NAME (PREFIXED BY "ETC.:TAPE") AS THE NAME OF A FILE WHICH CONTAINS THE DATA INDICATING TAPE ACCESS RESTRICTIONS. FOR EXAMPLE, FOR RACK NAME "C1000" TAPESHARE WILL ACCESS FILE ETC.:TAPEC TO SEE IF C1000 CAN BE MOUNTED BY THE REQUESTING USER (AND IN WHAT WAY). IF THE FILE IN QUESTION DOES NOT EXIST (NO SUCH FILES EXIST ON THE DISTRIBUTED TEST PACK), THEN ACCESS TO THE TAPE IS ALWAYS ALLOWED. IF THE FILE DOES EXIST, BUT IS NOT ACCESSIBLE BY THE USER TRYING TO MOUNT THE TAPE, THEN THE MOUNT IS NOT ALLOWED. THE MAIN PROGRAM CALLS TSHARESUB (1067/2). COPIES *GDINFODSECT (594). 1 MON AUG 05/96 18:37:45 Page 719 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CHANGED FOR GR12 <-> GR13 CCMACROS CHANGE. ********************************************************************************** 0 Referenced by comments of: 1067/4 01067/002A TAPESHARE TSHARESUB SA G S1237 TAPES 'TAPEFS' FSNAME=TSHARESUB 5.0T3 1369 TAPESHARE.TSHARESUB.SA.002 1 LINE 73 44 PAGE UBC WHALEY UNSP MAY 06, 1980 13:19:10 5.0T9 225 0 SUBROUTINE THAT DOES MOST OF THE WORK. INSTALLATIONS MAY WANT TO CHANGE THE FOLLOWING THINGS BEFORE USING: 1) LIST OF PRIVILEGED IDS 2) "PRJNO" AND "P" MIGHT BE CHANGED TO "DEPT" AND "D" ASSEMBLE USING COPY:CC.MACROS (1054/3). ********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: CHANGED FOR GR12 <-> GR13 CCMACROS CHANGE. ********************************************************************************** 0 Referenced by comments of: 1067/1, 1067/4 01067/003 TAPESHARE ATTNQ SA G S1237 TAPES 'TAPEFS' FSNAME=TS.ATTNQ 5.0T3 1370 TAPESHARE.ATTNQ.SA.003 1 LINE 80 2 PAGE UBC WHALEY UNSP DEC. 22, 1978 13:26:17 5.0T9 226 0 ATTENTION TRAPPING ROUTINES FOR USE BY INSTALLATIONS WHICH DO NOT HAVE UBC'S ATTNQ, ATTNTEST, AND ATTNNOQ. SOURCE IN LINES 1,999. 0 Referenced by comments of: 1067/4 01067/004A TAPESHARE OE G UNSP:TAPESHARE 5.0T3 1371 TAPESHARE..OE.004 1 LINE 14788 5 PAGE UBC WHALEY UNSP JULY 03, 1981 21:04:10 5.0T9 227 UNSP:TAPESHARE 0 LINKEDITED OBJECT OF TAPESHARE (1067/1), TSHARESUB (1067/2), AND ATTNQ (1067/3). 0 Referenced by comments of: 1067/8 01067/005A TAPESHARE CHECK SUBR SA G S1237 TAPES 'TAPEFS' FSNAME=TSCHECK 5.0T3 1372 TAPESHARE.CHECK_SUBR.SA.005 1 LINE 80 6 PAGE UBC WHALEY UNSP AUG. 19, 1980 12:19:48 5.0T9 228 0 SUBROUTINE CALLED BY MOUNT (101) TO CHECK ACCESS TO A TAPE. MOUNT HAS A WXTRN FOR IT. OBJECT IS IN *CLSMOUNT(101/2). ASSEMBLE USING COPY:MTS.MACROS (344/3). 1 MON AUG 05/96 18:37:45 Page 720 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: FIXED BUG IN GETSPACE CALL. *************************************************************************** 0 Referenced by comments of: 101/1, 101/2, 101/3 01067/006A TAPESHARE CHECK SUBR OC G # (PART OF *CLSMOUNT) UBC WHALEY UNSP 0 Part of *CLSMOUNT (101/2) 01067/007 TAPESHARE TSHELP D ETC:TSHELP 5.0T3 1373 TAPESHARE.TSHELP.D.007 1 LINE 70 3 PAGE UBC WHALEY UNSP JULY 03, 1981 21:04:16 5.0T9 229 ETC.:TSHELP 0 TEXT FOR TAPESHARE'S HELP COMMAND. 01067/008 TAPESHARE TSHAREID D # ETC.:TSHAREID UBC WHALEY UNSP ETC.:TSHAREID@E 0 DATA FILE USED BY UNSP:TAPESHARE (1067/4) WHICH LISTS THE TAPES OWNED BY EACH USER. THIS FILE IS EMPTY ON THE TEST PACK, WHICH MEANS THAT THERE ARE NO TAPES OWNED BY ANYBODY AND IF TAPES ARE ADDED, THE CORRESPONDING ETC:TAPEx FILE(S) MUST BE CREATED FIRST. USER ID "MTS." MAY BE USED TO PERFORM SUCH TAPE LIBRARIAN FUNCTIONS. 01067/009 TAPESHARE TSMANUAL P S1237 TAPES 'TAPEFS' FSNAME=TS.LIBRMANUAL 5.0T3 1374 TAPESHARE.TSMANUAL.P.009 1 LINE 76 4 PAGE UBC WHALEY UNSP DEC. 22, 1978 13:03:50 5.0T9 230 0 TAPESHARE MANUAL FOR TAPE LIBRARIAN. INCLUDES PRIVILEGED COMMANDS. 01067/010 TAPESHARE WRITEUP WT S1237 TAPES 'TAPEFS' FSNAME=TS.V2WRITEUP 5.0T3 1375 TAPESHARE.WRITEUP.WT.010 1 LINE 71 3 PAGE UBC WHALEY UNSP JULY 02, 1979 22:14:34 5.0T9 231 0 VOLUME 2 STYLE USER WRITEUP. 01067/011 TAPESHARE WRITEUP PT UNSP:TAPESHARE.W 5.0T3 1376 TAPESHARE.WRITEUP.PT.011 1 LINE 84 4 PAGE UBC WHALEY UNSP JULY 03, 1981 21:04:26 5.0T9 232 UNSP:TAPESHARE.W 01067/012A TAPESHARE *TSH C *TSH 5.0T3 1377 TAPESHARE.*TSH.C.012 1 LINE 68 1 PAGE UBC WHALEY UNSP JULY 03, 1981 21:04:28 5.0T9 233 *TSH 0 OPERATOR FILE TO RUN UNSP:TAPESHARE. INVOKED BY ENTERING "MTS *TSH" ON OPERATORS CONSOLE. 1 MON AUG 05/96 18:37:45 Page 721 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01069/001 FAKE MM # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS A UTILITY WRITTEN TO TEST THE UBC FEP PROTOCOL. 01070/001C SYSTEM TIMETALLY TTTABLES SA G MTS:TTTABLES(1,999) 5.0T3 1378 SYSTEM_TIMETALLY.TTTABLES.SA.001 1 LINE 68 1 PAGE UM OGDEN JULY 03, 1981 21:04:29 5.0T9 234 MTS:TTTABLES 0 Fixed storage and tables describing the timetally bins. Used by CONFIG (046) and UMMPS (045) if &TTALLY=1 in COPY:GLOBALSETS (1026/2). ************************************************************************** D5.0 version: This version is based on the UBC Supervisor timetally, but not much is really common between the two. ************************************************************************** 01070/002C SYSTEM TIMETALLY TTTABLES OC G # (PART OF RESIDENT SYSTEM) UM OGDEN 0 May be removed from the resident system even if CONFIG (046) and UMMPS (045) are assembled with &TTALLY=1. Object part of Resident System (468) 01070/003C SYSTEM TIMETALLY TTPRINT SA O MTS:TTPRINT(1000) 5.0T3 1379 SYSTEM_TIMETALLY.TTPRINT.SA.003 1 LINE 73 4 PAGE UM OGDEN JULY 03, 1981 21:04:29 5.0T9 235 0 Program to print the results of the system timetally. Requires an object deck produced by TTMAP (1070/5). Requires COPY:UMMPS.MACROS (045/14), COPY:MTS.MACROS (344/3), and COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 1070/5 01070/004C SYSTEM TIMETALLY TTPRINT OC O MTS:TTPRINT(1,999) 5.0T3 1380 SYSTEM_TIMETALLY.TTPRINT.OC.004 1 LINE 80 5 PAGE UM OGDEN JULY 03, 1981 21:04:31 5.0T9 236 MTS:TTPRINT 0 Contains a $CONTINUE WITH COPY:CCSYMBOL+COPY:SYSDEFS reference to (579/9) and (579/3). 01070/005C SYSTEM TIMETALLY TTMAP SS G MTS:TTMAP(1000) 5.0T3 1381 SYSTEM_TIMETALLY.TTMAP.SS.005 1 LINE 68 1 PAGE UM OGDEN JULY 03, 1981 21:04:33 5.0T9 237 0 Program to read SEG2:S2MAP (559/10) and produce an object file for use with TTPRINT (1070/3). Uses *SPITDEBUG (590/9) and the ITS routine from UNSP:SPITLIB (590/30). 0 Referenced by comments of: 1070/3 1 MON AUG 05/96 18:37:45 Page 722 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01070/006C SYSTEM TIMETALLY TTMAP OC G MTS:TTMAP(1,999) 5.0T3 1382 SYSTEM_TIMETALLY.TTMAP.OC.006 1 LINE 80 11 PAGE UM OGDEN JULY 03, 1981 21:04:35 5.0T9 238 MTS:TTMAP 0 Contains a $CONTINUE WITH *SPITLIB (590/10). 01070/007C SYSTEM TIMETALLY TTRESULTS P S0683 OGDEN FSNAME=TTRESULTS 5.0T3 1383 SYSTEM_TIMETALLY.TTRESULT.P.007 1 LINE 122 95 PAGE UM OGDEN MAR. 28, 1981 00:25:47 5.0T9 239 0 Sample results from the system timetally at UM. 01071/001 3066_JOB # (NOT DISTRIBUTED) UBC 01072/001 UBC TAPE CATALOGUE # (NOT DISTRIBUTED) UBC 01073/001 SENSE.DATA.INTERPRETER # (NOT DISTRIBUTED) UBC 01074/001 DYNAMIC_STORAGE # (NOT DISTRIBUTED) UBC 01075/001 TAPE_REPORT # (NOT DISTRIBUTED) UBC 01076/001A MTS/SPIRES PARSER ANALYZER OE O PLUS:ANALYZER 5.0T3 1384 MTS/SPIRES_PARSER.ANALYZE.OE.001 1 LINE 32767 14 PAGE UBC BALLARD HANSEN JULY 03, 1981 21:04:41 5.0T9 240 0 This is complete, linkeditted Analyzer. It is a replacement for the Spires analyzer. The input language processed is completely different. The program contains a reference to the file CODE:ANAL.SYSTERM (1076/2). This is a directory defining the system terminals that are to be recognized. The reference can be changed with the editor. The complete object consists of: PLUS object from ANALYZER*SQ (1076/3) ANALYZER object for Analyzer grammar (1076/5) parser routines from PARSER*OL (1076/6) (INCLUDE@SLI) object module building routines (1042/56) (INCLUDE@SLI) auxiliary table management rtns (1042/73) (INCLUDE@SLI) NEW:PLUS.OBJLIB (1042/50) (INCLUDE@SLI) 0 Referenced by comments of: 498/116, 774/4, 810/14, 821/4, 821/6, 821/7, 1042/54, 1042/72, 1042/80, 1042/103, 1076/3 1 MON AUG 05/96 18:37:45 Page 723 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01076/002A MTS/SPIRES PARSER SYS TERMINALS D PLUS:ANAL.SYSTERM 5.0T3 1385 MTS/SPIRES_PARSER.SYS_TER.D.002 1 LINE 33 1 PAGE UBC BALLARD HANSEN JULY 03, 1981 21:04:42 5.0T9 241 0 This file is read by the Analyzer during initialization to define the names and corresponding numbers for the currently allowed system terminals. It contains simply a series of PLUS constant declarations. These declarations are the goal symbol definitions generated by the Analyzer from the grammar defining the syntax of system terminals (1076/10). 0 Referenced by comments of: 1076/1, 1076/10 01076/003 MTS/SPIRES PARSER ANALYZER SRC SQ O S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.ANALYZE.S+.003(1) 498 5.0T3 1386 MTS/SPIRES_PARSER.ANALYZE.SQ.003 1 LINE 75 18 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:15 5.0T9 242 0 PLUS source for the Analyzer. Compile this with the following libraries (concatenate together on unit 0): PARSER*SQL (1076/9) PLUS:OBJRTNS*SL (1042/55) PLUS:UTILITY*SL (1042/73) NEW:PLUS.SOURCEL (1042/4) See (1076/1) for description of all the pieces that make up the Analyzer. 0 Referenced by comments of: 1076/1 01076/004 MTS/SPIRES PARSER GRAMMAR S O S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.GRAMMAR.S.004(1) 499 5.0T3 1387 MTS/SPIRES_PARSER.GRAMMAR.S.004 1 LINE 107 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:19 5.0T9 243 0 Grammar (input to the Analyzer) defining the analyzer input language. The grammar defines three goals, used for parsing the "system terminals directory", the PAR field from the RUN command, and the actual input grammar. 01076/005 MTS/SPIRES PARSER GRAMMAR OBJ OE O S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.GRAMMAR.OC.005(1) 500 5.0T3 1388 MTS/SPIRES_PARSER.GRAMMAR.OE.005 1 LINE 1431 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:23 5.0T9 244 0 Object code generated by current version of the Analyzer from the current Analyzer grammar. 0 Referenced by comments of: 1076/1 1 MON AUG 05/96 18:37:45 Page 724 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01076/006A MTS/SPIRES PARSER PARSER OL G PLUS:PARSER.OL 5.0T4 571 MTS/SPIRES_PARSER.PARSER.OL.006 1 LINE 3262 12 PAGE UBC BALLARD HANSEN AUG. 10, 1981 00:10:03 5.0T11 145 PLUS:PARSER.OL 0 A COPY OF UBC'S PARSER OBJECT LIBRARY WITH A FEW BUGS FIXED AND FILE NAMES CHANGED FOR UM INSTALLATION. 0 Referenced by comments of: 461/5, 461/7, 498/123, 821/11, 1042/81, 1076/1 01076/007A MTS/SPIRES PARSER PARSER HELP D PLUS:PARSE.HELP 5.0T3 1389 MTS/SPIRES_PARSER.PARSER.D.007 1 LINE 71 1 PAGE UBC BALLARD HANSEN JULY 03, 1981 21:04:50 5.0T9 245 PLUS:PARSER.HELP 0 This is a help file used by the parser in responding to HELP requests during the built-in error correction process. 0 Referenced by comments of: 1076/8, 1076/14, 1076/15 01076/008A MTS/SPIRES PARSER PARSER SRC SQ G PLUS:PARSER.SQ 5.0T3 1390 MTS/SPIRES_PARSER.PARSER.SQ.008 1 LINE 101 24 PAGE UBC BALLARD HANSEN JULY 03, 1981 21:04:50 5.0T9 246 0 A COPY OF UBC'S PARSER WITH A FEW BUGS FIXED. REFERS TO PLUS:PARSE.HELP (1076/7). 0 Referenced by comments of: 1076/10, 1076/14 01076/009 MTS/SPIRES PARSER PARSER LIB SQ O S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.PARSER.S+.009(1) 504 5.0T3 1391 MTS/SPIRES_PARSER.PARSER.SQ.009 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:38 5.0T9 247 0 This is a PLUS source library containing the definitions of the various parser routines and types. It is required to compile the parser, and any PLUS program using the parser. 0 Referenced by comments of: 1036/2, 1076/3, 1076/14 01076/010 MTS/SPIRES PARSER SYS TERMINALS S O S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.SYS_TER.S.010(1) 505 5.0T3 1392 MTS/SPIRES_PARSER.SYS_TER.S.010 1 LINE 92 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:42 5.0T9 248 0 This is the grammar which defines the currently implemented system terminals. The object produced by the analyzer for this grammar is added to the parser library, in effect forming part of the parser. The semantics for these terminals are in the procedure System_Semantics in (1076/8). Note that the declarations produced by the Analyzer from this grammar are inserted in (1076/8), and that a copy of the constant declarations is placed in (1076/2) to define 1 MON AUG 05/96 18:37:45 Page 725 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 the system terminals to the Analyzer. 0 Referenced by comments of: 1076/2, 1076/11 01076/011 MTS/SPIRES PARSER SYS TERMINALS OE O S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.SYS_TER.OC.011(1) 506 5.0T3 1393 MTS/SPIRES_PARSER.SYS_TER.OE.011 1 LINE 660 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:45 5.0T9 249 0 Object generated by Analyzer for the system terminals grammar (1076/10). 01076/012 MTS/SPIRES PARSER WRITEUP WX S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.WRITEUP.WX.012(1) 507 5.0T3 1394 MTS/SPIRES_PARSER.WRITEUP.WX.012 1 LINE 114 26 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:48 5.0T9 250 0 Textform source for writeup on the parser. Note file contains $CONTINUE WITH TXTF:TXTF.PROLOG which must be changed for use elsewhere. (TXTF.PROLOG is distributed by Michigan as UNSP:JONMACLIBTXT (3018/174). Ignore the large number of error messages generated when this is run through Textform. 01076/013 MTS/SPIRES PARSER WRITEUP PX S1431 4.3T2 VLO FSNAME=MTS/SPIRES_PARSER.WRITEUP.PX.013(1) 508 5.0T3 1395 MTS/SPIRES_PARSER.WRITEUP.PX.013 1 LINE 79 35 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:53 5.0T9 251 0 $COPYable form of parser writeup. Allow 60 pages, TN printer. 01076/014C MTS/SPIRES PARSER CLS SOURCE SQ O PLUS:CLSPARSER.SQ 5.0T3 1396 MTS/SPIRES_PARSER.CLS_SOU.SQ.014 1 LINE 101 24 PAGE UM HANSEN JULY 03, 1981 21:04:57 5.0T9 252 0 Similar to (1076/8), but modified to be compiled with the CLS version of the PLUS source library (1042/107). Refers to PLUS:PARSE.HELP (1076/7). Compile with parser library (1076/9). 0 Referenced by comments of: 1076/15 01076/015C MTS/SPIRES PARSER CLS OBJECT OL O PLUS:CLSPARSER.OL 5.0T3 1397 MTS/SPIRES_PARSER.CLS_OBJ.OL.015 1 LINE 3282 13 PAGE UM HANSEN JULY 03, 1981 21:05:00 5.0T9 253 0 Object library generated from (1076/14). Refers to PLUS:PARSE.HELP (1076/7). 0 Referenced by comments of: 810/5, 810/18 01077/001A SETUP SOURCE SQ G S1153 UNSP VLO FSNAME=SIGSETUP.PLUS 5.0T3 1398 SETUP.SOURCE.SQ.001 1 LINE 121 22 PAGE UBC BALLARD UNSP SEP. 19, 1980 13:01:02 5.0T9 254 0 PROGRAM FOR SELECTIVE EXECUTION OF MTS COMMANDS AND DEVICE COMMANDS (OF MOST USE IN SIGFILES). COMMANDS IN LINES 0 THROUGH 0.9 INDICATE HOW THIS COMPONENT 1 MON AUG 05/96 18:37:45 Page 726 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 SHOULD BE INSTALLED. NEEDS GRAMMAR (1077/3) AND THE PLUS SUPERVISOR LIBRARY (1042/75). *********************************************************************************** D5.0 CHANGES, ALREADY DISTRIBUTED ON D4.3A: THE D4.3A CHANGES WERE ADDED BY RICK BLOCK (UM) TO ADD FUNCTIONS FOR GFINFO ITEMS, E.G., "EMPTY(FILE)" AND "LASTCHANGE(FILE)". *********************************************************************************** 01077/002A SETUP OBJECT OE G UNSP:SIGSETUP 5.0T3 1399 SETUP.OBJECT.OE.002 1 LINE 32767 11 PAGE UBC BALLARD UNSP JULY 03, 1981 21:05:11 5.0T9 255 UNSP:SIGSETUP 0 CONTAINS A "$CONTINUE WITH *LIBRARY" RECORD. 01077/003A SETUP GRAMMAR D S1153 UNSP VLO FSNAME=SIGSETUP.GRAMMER 5.0T3 1400 SETUP.GRAMMAR.D.003 1 LINE 100 3 PAGE UBC BALLARD UNSP SEP. 19, 1980 13:01:54 5.0T9 256 0 Referenced by comments of: 1077/1 01077/004A SETUP WRITEUP WF S1153 UNSP VLO FSNAME=SIGSETUP.F 5.0T3 1401 SETUP.WRITEUP.WF.004 1 LINE 99 5 PAGE UBC BALLARD UNSP AUG. 12, 1980 16:51:17 5.0T9 257 0 Requires COPY:JONMACLIBFMT (308/18). 01077/005C SETUP EXAMPLE D UNSP:SIGSETUP.EX 5.0T3 1402 SETUP.EXAMPLE.D.005 1 LINE 66 1 PAGE UM UNSP JULY 03, 1981 21:05:17 5.0T9 258 01078/001C *VSS MAIN UC O S1472 RPI02 VLO FSNAME=VSS.MAIN.UC.002(1) 51 5.0T4 572 VSS.MAIN.UC.001 1 LINE 72 5 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:33 5.0T11 146 0 This version of VSS is based on the version in the RPI section of D4.3A with modifications made at UM. Most components have two update decks, NEITHER of which is an "official" update to VSS. These changes are being merged into the official version by UBC, but will not be ready in time for D5.0. Since several components on D5.0 require a version of VSS, this unofficial version is being distributed. It will be superceeded later by an official version. + Updates to VSS MAIN routine, still based on UBC Dec/79 source + (also included). Includes a few minor fixes since the version + available at the Workshop. + + Assemble this, and other VSS components, with: + 2=COPY:STANDARD.NEW (or any CC macros with the R12/R13 switch) + 3=VSS.:VSS.M (1078/025)+(1078/26)+(1078/35) + 4=V370:DFS.M (1078/024) + 5=V370:XCP.M (1078/027) 1 MON AUG 05/96 18:37:45 Page 727 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 + 6=VSS.:VSMAC (1078/028) 0 Referenced by comments of: 291/1, 545/36, 655/3, 820/1, 820/2, 823/1, 823/36, 823/37, 823/38, 823/39, 823/40, 823/41, 823/42, 824/2, 824/3, 824/6, 1051/1, 1078/29 01078/002C *VSS COMMANDS UC O S1472 RPI02 VLO FSNAME=VSS.COMMANDS.UC.003(1) 52 5.0T4 573 VSS.COMMANDS.UC.002 1 LINE 78 5 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:35 5.0T11 147 0 + Updates to VSS CoMmanDS interpreter. 0 Referenced by comments of: 1078/30 01078/003C *VSS SERV UC O S1472 RPI02 VLO FSNAME=VSS.SERV.UC.004(1) 53 5.0T4 574 VSS.SERV.UC.003 1 LINE 74 16 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:37 5.0T11 148 0 + Updates to VSS SERVice routines. 0 Referenced by comments of: 1078/31 01078/004C *VSS SVCS UC O S1472 RPI02 VLO FSNAME=VSS.SVCS.UC.005(1) 54 5.0T4 575 VSS.SVCS.UC.004 1 LINE 75 17 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:40 5.0T11 149 0 + Updates to VSS SVC simulation. 0 Referenced by comments of: 1078/32 01078/005C *VSS BDAM UC O S1472 RPI02 VLO FSNAME=VSS.BDAM.UC.006(1) 55 5.0T4 576 VSS.BDAM.UC.005 1 LINE 72 3 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:41 5.0T11 150 0 + Update to VSS BDAM simulation. + Should be unchanged since version available at the Workshop. 01078/006C *VSS QSAM UC O S1472 RPI02 VLO FSNAME=VSS.QSAM.UC.007(1) 56 5.0T4 577 VSS.QSAM.UC.006 1 LINE 74 9 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:42 5.0T11 151 0 + Updates to VSS QSAM simulation. 01078/007C *VSS BSAM UC O S1472 RPI02 VLO FSNAME=VSS.BSAM.UC.008(1) 57 5.0T4 578 VSS.BSAM.UC.007 1 LINE 75 4 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:45 5.0T11 152 0 + Updates to VSS BSAM support. + Should be unchanged since the version available at the Workshop. 0 Referenced by comments of: 1078/33 1 MON AUG 05/96 18:37:45 Page 728 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01078/008C *VSS RESIDENT RTNS UC O S1472 RPI02 VLO FSNAME=VSS.RESIDENT_RTNS.UC.009(1) 58 5.0T4 579 VSS.RESIDENT_RTNS.UC.008 1 LINE 71 2 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:46 5.0T11 153 0 + Update to VSS RESident Routines. 0 Referenced by comments of: 1078/34 01078/009C *VSS KEYS UC O S1472 RPI02 VLO FSNAME=VSS.KEYS.UC.012(1) 59 5.0T4 580 VSS.KEYS.UC.009 1 LINE 78 12 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:47 5.0T11 154 0 + Update to KEYed-file routines. Should be identical to that available + at the Workshop. NOTE: Although this claims to be an update to the KEYS routine, it came from a file called VSS:VSSISAM.UC at RPI, which is the same file that the ISAM update (1078/10) came from. Beware. 01078/010C *VSS ISAM UC O S1472 RPI02 VLO FSNAME=VSS.ISAM.UC.022(1) 61 5.0T4 581 VSS.ISAM.UC.010 1 LINE 78 12 PAGE RPI MCKENNEY MTA SEP. 10, 1980 10:41:50 5.0T11 155 0 + Update to ISAM simulation. 0 Referenced by comments of: 1078/9 01078/011C *VSS MAIN SA O S1472 RPI02 VLO FSNAME=VSS.MAIN.SA.052(1) 62 5.0T4 582 VSS.MAIN.SA.011 1 LINE 72 17 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:51 5.0T11 156 0 + The following source decks are from UBC in Dec/79, + (the same as those available at the Workshop), on which + all the above updates are based. 01078/012C *VSS COMMANDS SA O S1472 RPI02 VLO FSNAME=VSS.COMMANDS.SA.053(1) 63 5.0T4 583 VSS.COMMANDS.SA.012 1 LINE 77 46 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:53 5.0T11 157 01078/013C *VSS SERV SA O S1472 RPI02 VLO FSNAME=VSS.SERV.SA.054(1) 64 5.0T4 584 VSS.SERV.SA.013 1 LINE 72 47 PAGE RPI BOWLER MTA SEP. 10, 1980 10:41:57 5.0T11 158 01078/014C *VSS SVCS SA O S1472 RPI02 VLO FSNAME=VSS.SVCS.SA.055(1) 65 5.0T4 585 VSS.SVCS.SA.014 1 LINE 73 75 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:01 5.0T11 159 01078/015C *VSS BDAM SA O S1472 RPI02 VLO FSNAME=VSS.BDAM.SA.056(1) 66 5.0T4 586 VSS.BDAM.SA.015 1 LINE 71 9 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:07 5.0T11 160 1 MON AUG 05/96 18:37:45 Page 729 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01078/016C *VSS QSAM SA O S1472 RPI02 VLO FSNAME=VSS.QSAM.SA.057(1) 67 5.0T4 587 VSS.QSAM.SA.016 1 LINE 72 11 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:08 5.0T11 161 01078/017C *VSS BSAM SA O S1472 RPI02 VLO FSNAME=VSS.BSAM.SA.058(1) 68 5.0T4 588 VSS.BSAM.SA.017 1 LINE 74 12 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:09 5.0T11 162 01078/018C *VSS RESIDENT ROUTI SA O S1472 RPI02 VLO FSNAME=VSS.RESIDENT_ROUTI.SA.059(1) 69 5.0T4 589 VSS.RESIDENT_ROUTI.SA.018 1 LINE 68 4 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:10 5.0T11 163 01078/019C *VSS KEYS SA O S1472 RPI02 VLO FSNAME=VSS.KEYS.SA.062(1) 72 5.0T4 590 VSS.KEYS.SA.019 1 LINE 72 16 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:23 5.0T11 164 0 + Dec/79 source for VSS Keyed-file routines used by ISAM support. ASDFASDF 01078/020C *VSS ISAM SA O S1472 RPI02 VLO FSNAME=VSS.ISAM.SA.072(1) 76 5.0T4 591 VSS.ISAM.SA.020 1 LINE 72 9 PAGE RPI MCKENNEY MTA SEP. 10, 1980 10:42:31 5.0T11 165 0 + (B)ISAM simulation - OPEN, READ/WRITE, SETL, ESETL. 01078/021C *VSS XCP SA O S1472 RPI02 VLO FSNAME=VSS.XCP.SA.060(1) 70 5.0T4 592 VSS.XCP.SA.021 1 LINE 72 34 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:11 5.0T11 166 0 + Virtual channel. (May have changed component number since RD16.) + Same as that available at the Workshop. NOT the same as that + distributed by UBC in May/80 (Maybe someday...); + but distributed under this component since this version is the + one VSS still expects. 0 Referenced by comments of: 1078/23, 1078/27 01078/022C *VSS DISK SIM SA O S1472 RPI02 VLO FSNAME=VSS.DISK_SIM.SA.061(1) 71 5.0T4 593 VSS.DISK_SIM.SA.022 1 LINE 80 58 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:14 5.0T11 167 0 + Disk file simulation routines. Same as that for UBC Virtual + Machine, circa Sep/79. NOT the same as that distributed for + the Virtual Machine in May/80. (Maybe someday..); + but this version is the one VSS still expects. 0 Referenced by comments of: 1078/24 01078/023C *VSS VIRTUAL DISK R SA O S1472 RPI02 VLO FSNAME=VSS.VIRTUAL_DISK_R.SA.063(1) 73 5.0T4 594 VSS.VIRTUAL_DISK_R.SA.023 1 LINE 72 14 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:24 5.0T11 168 0 + Virtual disk routines, suitable for connecting to the + virtual channel (1078/21). Same as that for the UBC Virtual 1 MON AUG 05/96 18:37:45 Page 730 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 + Machine, circa Sep/79. NOT the same as that distributed by + UBC for the Virtual Machine in May/80, but is the one + VSS still expects at this point. 01078/024C *VSS DFS MACROS SM O S1472 RPI02 VLO FSNAME=VSS.DFS_MACROS.SA.064(1) 74 5.0T4 595 VSS.DFS_MACROS.SM.024 1 LINE 74 11 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:28 5.0T11 169 0 + Macros for Disk File Simulation routines (1078/22). + Same as that for the UBC Virtual Machine, circa Sep/79. + NOT the same as that distributed by UBC for the Virtual + Machine in May/80, but is the version VSS currently + expects (which is why this one appears under this component). 0 Referenced by comments of: 1078/1 01078/025C *VSS MACROS SM O S1472 RPI02 VLO FSNAME=VSS.MACROS.SM.065(1) 75 5.0T4 596 VSS.MACROS.SM.025 1 LINE 72 16 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:30 5.0T11 170 0 + Current VSS macro library at RPI. + Should be unchanged since the version available at the Workshop. 0 Referenced by comments of: 1078/1 01078/026C *VSS MACRO UPDATE UC O S1472 RPI02 VLO FSNAME=VSS.MACRO_UPDATE.UC.081(1) 77 5.0T4 597 VSS.MACRO_UPDATE.UC.026 1 LINE 99 1 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:32 5.0T11 171 0 + Updates to VSS macros. My attempt to turn RPI's updates + (originally applied with the editor) into CDUPDATEs. + Should be identical to those available at the Workshop. 0 Referenced by comments of: 1078/35 01078/027C *VSS XCP MACROS SM O S1472 RPI02 VLO FSNAME=VSS.XCP_MACROS.SA.082(1) 78 5.0T4 598 VSS.XCP_MACROS.SM.027 1 LINE 68 10 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:32 5.0T11 172 0 + Macros for virtual channel (1078/21). Same as those for + the UBC Virtual Machine, circa Sep/79. + NOT the same as those distributed by UBC for the Virtual + Machine in May/80, but is the version that VSS still + expects, so it is included under this component, rather than + (1051). 0 Referenced by comments of: 1078/1 01078/028C *VSS VSMACROS SM O S1472 RPI02 VLO FSNAME=VSS.VSMACROS.SM.085(1) 79 5.0T4 599 VSS.VSMACROS.SM.028 1 LINE 72 359 PAGE RPI BOWLER MTA SEP. 10, 1980 10:42:33 5.0T11 173 0 + A more-or-less version of the OS public macros, taken + from CMS release 5.0 (I think). 1 MON AUG 05/96 18:37:45 Page 731 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1078/1 01078/029C *VSS MAIN UPDATE 2 UC O MTA:VSS.MAIN.UC 5.0T4 600 VSS.MAIN_UPDATE_2.UC.029 1 LINE 73 2 PAGE UM MTA AUG. 10, 1981 00:14:55 5.0T11 174 0 UM updates to the VSS main program. Apply after (1078/1). Fixes various bugs, no major new features added. 01078/030C *VSS COMMANDS UPD 2 UC O MTA:VSS.CMDS.UC 5.0T4 601 VSS.COMMANDS_UPD_2.UC.030 1 LINE 78 3 PAGE UM MTA AUG. 10, 1981 00:14:57 5.0T11 175 0 UM updates to the VSS commands module. Apply after (1078/2). Fixes bugs and extends simulation of VS control blocks. Only new feature is NOCHECK parameter on DSDEF command which defers opening the FDUB until the DSDEF is really needed. Can save a lot of time if there are many DSDEFS referring to temporary files, only some of which are needed in any given run. 01078/031C *VSS SERV UPDATE 2 UC O MTA:VSS.SERV.UC 5.0T4 602 VSS.SERV_UPDATE_2.UC.031 1 LINE 75 9 PAGE UM MTA AUG. 10, 1981 00:14:58 5.0T11 176 0 UM updates to the VSS service routines. Apply after (1078/3). Fixes bugs and improves PDS simulation in several ways. 1. A PDS can have more than 32767 bytes of directory information. As many lines of directory info as necessary will be written sequentially after line 0. 2. An empty line file behaves exactly like a PDS with no members. 3. A new format PDS in which the directory entries are stored in 256 byte records in exactly the same format as they would be in VS is supported. This allows programs that read, and perhaps write, the directory using BSAM or QSAM to work. There is a program, CNVTPDS, (1078/41) to convert the old format to the new format. An empty file is initialized in the old format, which is still fully supported. 01078/032C *VSS SVCS UPDATE 2 UC O MTA:VSS.SVCS.UC 5.0T4 603 VSS.SVCS_UPDATE_2.UC.032 1 LINE 75 11 PAGE UM MTA AUG. 10, 1981 00:15:00 5.0T11 177 0 UM updates to the VSS SVC simulator. Apply after (1078/4). Fixes bugs and improve the simulation of several SVCS. 1. OBTAIN simulation added. 2. RDJFCB improved, but still not very good. 3. TPUT/TGET/STAX added. There was code there before, but obviously never tried. 4. Changes for the PDS simulation mentioned above. 5. Type T CLOSE calls CLOSEFIL so the file will really be T-CLOSED. 6. CLOSE skips the call to DELLNR if DISP=MOD so two or more DDNAMES can be assigned to the same MTS file without loosing the output from all but one of them as long as they are all DISP=MOD. 1 MON AUG 05/96 18:37:45 Page 732 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01078/033C *VSS BSAM UPDATE 2 UC O MTA:VSS.BSAM.UC 5.0T4 604 VSS.BSAM_UPDATE_2.UC.033 1 LINE 76 6 PAGE UM MTA AUG. 10, 1981 00:15:03 5.0T11 178 0 UM updates to the VSS BSAM simulator. Apply after (1078/7). Fixes bugs mostly related to BSAM reads and writes of a simulated disk data set. 01078/034C *VSS RES RTNS UPD 2 UC O MTA:VSS.RESR.UC 5.0T4 605 VSS.RES_RTNS_UPD_2.UC.034 1 LINE 71 1 PAGE UM MTA AUG. 10, 1981 00:15:04 5.0T11 179 0 UM updates to the VSS resident routines. Apply after (1078/8). Makes IECPCNVT set the return code. 01078/035C *VSS MACROS UPD 2 UC O MTA:VSS.M.UC 5.0T4 606 VSS.MACROS_UPD_2.UC.035 1 LINE 72 3 PAGE UM MTA AUG. 10, 1981 00:15:06 5.0T11 180 0 UM updates to the VSS macros. Apply after (1078/26). Miscellaneous updates related to other changes and changes the system type field in the CVT to claim we are MVS (ha) so NASTRAN will work. 01078/036C *VSS SVCTRP SA O MTA:VSS.SVCTRP(1,999) 5.0T4 607 VSS.SVCTRP.SA.036 1 LINE 72 4 PAGE UM MTA AUG. 10, 1981 00:15:07 5.0T11 181 0 Source for non-resident version of SVCTRP, in case the resident version is not in D5.0. This version of VSS will work with either (I think). 01078/037C *VSS FAKE MSGCC SA O MTA:FAKEMSGCC(1,999) 5.0T4 608 VSS.FAKE_MSGCC.SA.037 1 LINE 59 1 PAGE UM MTA AUG. 10, 1981 00:15:08 5.0T11 182 0 Source (all 6 lines of it) for a fake version of MSGCC that calls MSG. This is required because all the stacks used by VSS (and it uses an impressive number of them) are only 2048 bytes long (which length is hand coded in various obscure dark corners of VSS) and this is too short to call MSGCC. 01078/038C *VSS OBJECT OE O ETC:VSS 5.0T4 609 VSS.OBJECT.OE.038 1 LINE 31618 33 PAGE UM MTA AUG. 10, 1981 00:15:09 5.0T11 183 ETC:VSS 0 The object, without SYM cards but with a directory at line 0, for all of VSS with all updates above applied. Any module not changed at UM is taken from the object file for the "new" version of VSS in the RPI section of D4.3A. 0 Referenced by comments of: 655/2, 820/1, 823/19, 823/20, 824/1 01078/039C *VSS DRIVER PROGRAM SA O MTA:VSS.DRIVER 5.0T4 610 VSS.DRIVER_PROGRAM.SA.039 1 LINE 72 8 PAGE UM MTA AUG. 10, 1981 00:15:11 5.0T11 184 MTA:VSS.DRIVER 0 Source for a driver program to call VSS to run various programs. Assemble 1 MON AUG 05/96 18:37:45 Page 733 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 with PAR=SYSPARM=pgm-name where "pgm-name" may be "EREP", "PM2", or "NASTRAN" to get a driver program appropriate to each of these programs. This program reads commands from a file whose name is selected depending on the value of SYSPARM and passes them to VSSCMD. In addition to the commands recognized by VSS it also recognizes two commands: DEFAULT UNIT=Fdname defaults MTS I/O unit "UNIT" to "FDname" LINK FDname (PAR=param) links to "FDname". This allows one to run MTS programs not in DAT mode. If no SYSPARM is given, it defaults to NASTRAN. The object for the three versions of this is with the appropriate component. 0 Referenced by comments of: 655/1, 820/1, 824/1 01078/040C *VSS CONVERT PDS SA O MTA:VSS.CNVTPDS(1,999) 5.0T4 611 VSS.CONVERT_PDS.SA.040 1 LINE 72 3 PAGE UM MTA AUG. 10, 1981 00:15:15 5.0T11 185 0 Program to convert an old format VSS PDS to the new format in which the directory is stored exactly like it would be in VS. Assign unit 0 to the line file containing the old format PDS. 01078/041C *VSS CONVERT PDS OC O MTA:VSS.CNVTPDS(1000) 5.0T4 612 VSS.CONVERT_PDS.OC.041 1 LINE 80 4 PAGE UM MTA AUG. 10, 1981 00:15:16 5.0T11 186 MTA:VSS.CNVTPDS 0 Referenced by comments of: 1078/31 01078/042C *VSS PDS BUILD SQ O MTA:VSS.PDSBUILD(1,999) 5.0T4 613 VSS.PDS_BUILD.SQ.042 1 LINE 83 9 PAGE UM MTA AUG. 10, 1981 00:15:18 5.0T11 187 0 Comments from the source: Build a VSS partitioned data set. Input format is member-definition member-definition . . . (end-of-file) where "member-definition" is /MEMBER=member-name (first record of member) (second record of member) . . . /END-MEMBER (this is optional.) 1 MON AUG 05/96 18:37:45 Page 734 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 where "member-name" is an eight-or-fewer-character name. Additionally, the command /ALIAS=member-name may appear anywhere inside a member-definition. A L S O , the IBM IEBUPDTTE commands ./ ADD ...,MEMBER=member-name,... ./ ADD ...,NAME=member-name,... may be used instead of /MEMBER commands. Also, ./ ALIAS ...,MEMBER=member-name,... ./ ALIAS ...,NAME=member-name,... may be used instead of /ALIAS. Also, /. ENDUP will be treated as an end-of-file on input. */ Probably reads SCARDS and writes 0 or SPUNCH? 01078/043C *VSS PDS BUILD OC O MTA:VSS.PDSBUILD(1000) 5.0T4 614 VSS.PDS_BUILD.OC.043 1 LINE 3072 6 PAGE UM MTA AUG. 10, 1981 00:15:20 5.0T11 188 MTA:VSS.PDSBUILD 01078/044C *VSS LOG FILE D O # ETC:VSSLOG UM MTA ETC:VSSLOG 0 One line for each use of VSS. Don't let it fill up since VSS apparently dies when it is full. 01078/045C *VSS WRITE UP PF O W116:VSS.WRITU.P 5.0T4 615 VSS.WRITE_UP.PF.045 1 LINE 71 28 PAGE UM MTA AUG. 10, 1981 00:15:22 5.0T11 189 MTA:VSS.WRITEUP 0 This describes the last official UBC version of VSS. There is no write up describing the RPI or UM changes. 01078/046C *VSS MVS LINKLIB O G ETC:SYS1.LINKLIB 5.0T4 616 VSS.MVS_LINKLIB.O.046 1 LINE 32767 1560 PAGE UM MTA AUG. 10, 1981 00:15:26 5.0T11 190 ETC:SYS1.LINKLIB 0 This is a VSS PDS containing a copy of SYS1.LINKLIB from MVS. It contains many utility programs that can be run in VSS, although some particularly useful ones won't (eg, AMBSPZAP). It was created from file 9 on tape M8ERES of the MVS 3.8E IPO distribution by *IEHMOVE. It contains all members of SYS1.LINKLIB. 0 Referenced by comments of: 824/2 1 MON AUG 05/96 18:37:45 Page 735 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01079/001C UBC VIRTUAL MACHINE OBJECT OC G TMTS:VMN 5.0T3 1403 UBC_VIRTUAL_MACHINE.OBJEC.OC.001 1 LINE 6008 71 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:51:43 5.0T9 259 TMTS:VMN 0 Virtual Machine program based on the Subtasking Monitor. This version derives from the UBC version of May 1981 from the Vancouver Workshop. This version of the virtual machine does not need to be run with PROT=OFF unless privileged services are being requested, such as the attachment of real devices to the virtual machine. This version uses the UMMPS virtual machine support for >1Mb virtual machines. This virtual machine also requires the Virtual I/O component (1051) and almost needless to say, the Subtasking Monitor (1058) along with the Resource Manager CFM routines (1041/10). This file should have a pkey of TMTS:VMN. ***************************************************************************** D5.0 version: UM changes to this include updating it to interface to the subtasking monitor more cleanly, and the fixing of some minor bugs. ***************************************************************************** 0 Referenced by comments of: 1051/1 01079/002C UBC VIRTUAL MACHINE MAIN SA G TMTS:VM_MAIN(1000) 5.0T3 1404 UBC_VIRTUAL_MACHINE.MAIN.SA.002 1 LINE 79 18 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:51:50 5.0T9 260 0 Initialization and main subtask. Assemble with the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19). 01079/003C UBC VIRTUAL MACHINE CMND SA O TMTS:VM_CMND(10000) 5.0T3 1405 UBC_VIRTUAL_MACHINE.CMND.SA.003 1 LINE 79 50 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:51:55 5.0T9 261 0 Command reader and processing routines. Assemble with the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19). 01079/004C UBC VIRTUAL MACHINE PRIV SA G TMTS:VM_PRIV(1000) 5.0T3 1406 UBC_VIRTUAL_MACHINE.PRIV.SA.004 1 LINE 80 21 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:07 5.0T9 262 0 Privileged instruction simulation. Assemble with the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19). 01079/005C UBC VIRTUAL MACHINE SERV SA O TMTS:VM_SERV(1000) 5.0T3 1407 UBC_VIRTUAL_MACHINE.SERV.SA.005 1 LINE 79 25 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:11 5.0T9 263 0 Service subroutines. Assemble with the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19). 1 MON AUG 05/96 18:37:45 Page 736 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01079/006C UBC VIRTUAL MACHINE SUBT SA O TMTS:VM_SUBT(1000) 5.0T3 1408 UBC_VIRTUAL_MACHINE.SUBT.SA.006 1 LINE 79 10 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:14 5.0T9 264 0 Subtasks for timers and I/O devices. Assemble with the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19). 01079/007C UBC VIRTUAL MACHINE VDEV SA O TMTS:VM_VDEV(1000) 5.0T3 1409 UBC_VIRTUAL_MACHINE.VDEV.SA.007 1 LINE 79 6 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:17 5.0T9 265 0 Virtual device device-dependent interface. Assemble with the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19). 01079/008C UBC VIRTUAL MACHINE VM370SIM SA O TMTS:VM_VM370SIM(1000) 5.0T3 1410 UBC_VIRTUAL_MACHINE.VM370.SA.008 1 LINE 79 10 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:19 5.0T9 266 0 Diagnose instruction simulation routine for simulating a pseudo-VM/370 environment. Assemble with the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3), and COPY:MNTR.MACROS (1058/19). 01079/009C UBC VIRTUAL MACHINE MODL SA G TMTS:VM_MODL(1000) 5.0T3 1411 UBC_VIRTUAL_MACHINE.MODL.SA.009 1 LINE 72 4 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:21 5.0T9 267 0 Virtual machine model-dependent routines. This assembly is intended to contain the virtual machine routines that are model-dependent, specifically, the routines that do machine check logouts and simulation of non-VM/370 diagnose instructions. Assemble with the UBC Virtual Machine macros (1079/11) and COPY:CC.MACROS (1054/3). 01079/010C UBC VIRTUAL MACHINE GETD SA O TMTS:VM_GETD(1000) 5.0T3 1412 UBC_VIRTUAL_MACHINE.GETD.SA.010 1 LINE 77 4 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:22 5.0T9 268 0 This is a special routine called by the virtual machine when attaching a disk. Its function is to determine if the disk belongs to the MTS file system. Copies COPY:GLOBALS (1026/3) and COPY:LLMPSEQU (087). Assemble with the UBC Virtual Machine macros (1079/11), COPY:CC.MACROS (1054/3), COPY:MNTR.MACROS (1058/19), COPY:FILE.MACROS (482/45), and COPY:UC.MACROS (787/1). 01079/011C UBC VIRTUAL MACHINE MACLIB SM G TMTS:VM_MACROS 5.0T3 1413 UBC_VIRTUAL_MACHINE.MACLI.SM.011 1 LINE 80 12 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:23 5.0T9 269 0 UBC Virtual Machine macros. 0 Referenced by comments of: 1051/4, 1051/5, 1051/6, 1051/7, 1051/8, 1051/9, 1051/10, 1051/12, 1051/13, 1051/15, 1051/16, 1051/20, 1079/2, 1079/3, 1079/4, 1079/5, 1079/6, 1079/7, 1079/8, 1079/9, 1079/10 1 MON AUG 05/96 18:37:45 Page 737 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01079/012C UBC VIRTUAL MACHINE WRITEUP WF TMTS:VM_WRITEUP(10000) 5.0T3 1414 UBC_VIRTUAL_MACHINE.WRITE.WF.012 1 LINE 106 18 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:25 5.0T9 270 0 *FORMAT (308) source for the UBC Virtual Machine writeup. 0 Referenced by comments of: 1051/20, 1079/13 01079/013C UBC VIRTUAL MACHINE WRITEUP PF G TMTS:VM_WRITEUP(1,9999) 5.0T3 1415 UBC_VIRTUAL_MACHINE.WRITE.PF.013 1 LINE 140 23 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:32 5.0T9 271 0 $COPYable writeup produced by running *FORMAT (308) on (1079/12). 01079/014C UBC VIRTUAL MACHINE HELP FILE D G ETC:VM_HELP 5.0T3 1416 UBC_VIRTUAL_MACHINE.HELP.D.014 1 LINE 71 7 PAGE UBC BOWLER HELFFRICH AUG. 06, 1981 05:52:40 5.0T9 272 0 Help file accessed by virtual machine HELP command. Must be permitted READ to PKEY=TMTS:VMN. 01081/001A INTERTASK SA G S0699 D3TAPE POSN=IT.D5 5.0T4 617 INTERTASK..SA.001 1 LINE 80 76 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:16:48 5.0T11 191 0 SUBROUTINE CALLED BY UMMPS (045/1) TO HANDLE THE INTERTASK SVC. COPIES LLMPSEQU (087), COPY:GLOBALS (1026/3), COPY:IT.DSECTS (1081/4), COPY:PSA (162), AND COPY:IT.COPY_SECT (1081/5). ASSEMBLE WITH COPY:UMMPS.MACROS (045/14) AND COPY:IT.MACROS (1081/6) AND COPY:SETPARM (653). 0 Referenced by comments of: 3/1, 400/16, 769/9, 769/15, 1081/5 01081/002C INTERTASK UC G MTA:IT.U 5.0T4 618 INTERTASK..UC.002 1 LINE 67 1 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:16:50 5.0T11 192 0 Update to D4.3 version to produce current version. 01081/003A INTERTASK OC G # (PART OF RESIDENT SYSTEM) UBC O'REILLY MTA 0 *********************************************************************************** D5.0 CHANGES, SOME ALREADY DISTRIBUTED ON D4.3A: MUST BE REASSEMBLED (WITH THE SAME SOURCE) FOR THE DISK MANAGER. FIXED TWO SERIOUS BUGS FOUND BY UBC. *********************************************************************************** Object part of Resident System (468) 1 MON AUG 05/96 18:37:45 Page 738 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01081/004 INTERTASK COPY SECTION 1 SA G COPY:IT.DSECTS 5.0T4 619 INTERTASK.COPY_SECTION_1.SA.004 1 LINE 72 7 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:16:51 5.0T11 193 COPY:IT.DSECTS 0 THIS IS A COPY SECTION THAT SHOULD BE COPIED BY ANY ASSEMBLER PROGRAM THAT USES INTERTASK. IT CONTAINS EQUATES FOR THE VARIOUS INTERTASK OPERATION CODES AND FLAGS, AND ALSO CONTAINS A VARIETY OF DSECTS INTENDED TO BE USED WITH THE SEND, SET EXIT, LIST, AND SENSE OPERATIONS. THE INTERTASK MACROS (1081/6) REQUIRE THE EQUATES IN THIS COPY SECTION. 0 Referenced by comments of: 769/15, 1051/16, 1051/20, 1081/1, 1081/9, 1081/12, 1081/13, 1081/14, 1081/15, 1081/16, 1081/22, 1081/24, 1081/26 01081/005 INTERTASK COPY SECTION 2 SM G COPY:IT.COPY_SECT 5.0T4 620 INTERTASK.COPY_SECTION_2.SM.005 1 LINE 71 7 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:16:52 5.0T11 194 COPY:IT.COPY_SECT 0 THIS IS A COPY SECTION THAT IS COPIED ONLY BY THE INTERTASK SUBROUTINE ITSELF (1081/1) AND BY THE PRINT DUMP SUBROUTINE FOR INTERTASK (400/16). IT DEFINES DATA STRUCTURES INTERNAL TO INTERTASK. 0 Referenced by comments of: 400/16, 1081/1 01081/006A INTERTASK MACROS SA G COPY:IT.MACROS 5.0T4 621 INTERTASK.MACROS.SA.006 1 LINE 72 19 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:16:54 5.0T11 195 COPY:IT.MACROS 0 MACROS TO CALL INTERTASK SVC. 0 Referenced by comments of: 769/15, 1051/16, 1051/20, 1081/1, 1081/4, 1081/13, 1081/14, 1081/15, 1081/16 01081/007 INTERTASK WRITEUP WF S1431 4.3T2 VLO FSNAME=INTERTASK.WRITEUP.WF.006(1) 517 5.0T4 622 INTERTASK.WRITEUP.WF.007 1 LINE 96 19 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:42:24 5.0T11 196 0 A WRITEUP DESCRIBING HOW TO USE INTERTASK. 0 Referenced by comments of: 1081/8 01081/008 INTERTASK WRITEUP PF S1431 4.3T2 VLO FSNAME=INTERTASK.WRITEUP.PF.007(1) 518 5.0T4 623 INTERTASK.WRITEUP.PF.008 1 LINE 71 22 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:42:32 5.0T11 197 0 PRINT FILE FOR (1081/7). 01081/009A INTERTASK JOB PROGRAM SA G MTA:IT.JOBPGM.S 5.0T4 624 INTERTASK.JOB_PROGRAM.SA.009 1 LINE 76 11 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:22:06 5.0T11 198 MTA:IT.JOBPGM.S 0 THIS IS THE SOURCE CODE FOR THE INTERTASK JOB PROGRAM. THE JOB PROGRAM DOES NOT PROCESS JOB PARAMETERS, BUT RATHER READS COMMANDS DIRECTLY FROM THE CONSOLE. CURRENTLY, THERE 1 MON AUG 05/96 18:37:45 Page 739 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ARE ONLY 2 COMMANDS: LIST AND SENSE. LIST FUNCTION: TO OBTAIN A LIST OF THE NAMES OF ALL NETWORKS IN EXISTENCE. THE LIST COMMAND DOES NOT TAKE PARAMETERS. SENSE NET-NAME FUNCTION: TO SENSE A PARTICULAR NETWORK. THE NETWORK NAME MUST BE SPECIFIED. A SUMMARY OF THE INFORMATION IN THE NETWORK CONTROL BLOCK AND ONE LINE OF INFORMATION PER NODE IS PRINTED. THE INFORMATION IN THE SUMMARY IS SELF-EXPLANATORY. THE INFORMATION IN THE NODE DESCRIPTORS IS LARGELY SELF-EXPLANATORY EXCEPT, PERHAPS, FOR THE INFORMATION APPEARING UNDER THE COLUMN HEADING "STATUS". THIS INFORMATION APPEARS AS A SERIES OF LETTERS; THE LETTERS SHOULD BE INTERPRETED AS FOLLOWS: D -> MEANS NODE HAS BEEN DELETED X -> MEANS NODE HAS AN EXIT SET S -> MEANS EXIT IS SYNCHRONOUS Q -> MEANS NODE HAS A NONEMPTY QUEUE OF MSGS, RECEIPTS, AND NOTIFICATIONS B -> MEANS NODE HAS BEEN BLASTED THE OPTIONAL MODIFIERS ARE: NOHEADER -> TO SUPPRESS THE PRINTING OF THE SUMMARY OF THE INFORMATION FROM THE NETWORK CONTROL BLOCK NONODES -> TO SUPPRESS THE PRINTING OF THE INDIVIDUAL NODE DESCRIPTORS NOTE THAT THIS PROGRAM IS ALSO RUNNABLE DIRECTLY AS A NORMAL MTS PROGRAM. REQUIRES COPY:IT.DSECTS (1081/4). 01081/010A INTERTASK JOB PROGRAM OC G # (PART OF RESIDENT SYSTEM) UBC O'REILLY MTA 0 Object part of Resident System (468) 01081/011C INTERTASK JOB PROGRAM OC G MTS:IT 5.0T4 625 INTERTASK.JOB_PROGRAM.OC.011 1 LINE 24 1 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:22:08 5.0T11 199 MTS:IT 0 Contains loader control cards to run the IT job program with an MTS RUN command. 1 MON AUG 05/96 18:37:45 Page 740 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01081/012 INTERTASK ITX SA G S1431 4.3T2 VLO FSNAME=INTERTASK.ITX.SA.011(1) 521 5.0T4 626 INTERTASK.ITX.SA.012 1 LINE 69 13 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:29 5.0T11 200 0 THIS IS THE SOURCE CODE FOR THE INTERTASK EXERCISER MONITOR. THE INTERTASK EXERCISER IS A FACILITY FOR STARTING UP AN ARBITRARY NUMBER OF REAL TASKS WHICH USE THE INTERTASK FACILITY. WHAT NETWORKS ARE CREATED AND WHICH INTERTASK OPERATIONS ARE USED IS DEFINED BY THE SET OF REPERTOIRE ROUTINES WHICH ARE LOADED ALONG WITH THE INTERTASK EXERCISER MONITOR. THE PURPOSE OF THE MONITOR IS TO DETERMINE WHICH REPERTOIRE ROUTINES ARE LOADED, AND TO CONTROL THEIR EXECUTION (WHICH MAY BE OVERLAPPED IF REPERTOIRE ROUTINES CHOOSE TO DO THINGS ASYNCHRONOUSLY). IN ESSENCE, THE MONITOR IS A REPERTOIRE ROUTINE DISPATCHER. THE MONITOR IS COMMAND DRIVEN. THERE ARE CURRENTLY 3 COMMANDS: MTS, STOP, AND EXECUTE. FOR A DESCRIPTION OF THESE COMMANDS, REFER TO THE SOURCE LISTING. REQUIRES THE MSG MACROS IN *SYSMAC, COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4). 0 Referenced by comments of: 1081/17, 1081/20 01081/013 INTERTASK ITX #001 SA G S1431 4.3T2 VLO FSNAME=INTERTASK.ITX_#001.SA.012(1) 522 5.0T4 627 INTERTASK.ITX_#001.SA.013 1 LINE 80 9 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:41 5.0T11 201 0 THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #001. THIS ROUTINE ONLY USES SYNCHRONOUS INTERTASK OPERATIONS. REQUIRES THE MSG MACROS IN *SYSMAC, COPY:IT.MACROS (1081/6), COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4). 01081/014 INTERTASK ITX #002 SA G S1431 4.3T2 VLO FSNAME=INTERTASK.ITX_#002.SA.013(1) 523 5.0T4 628 INTERTASK.ITX_#002.SA.014 1 LINE 80 9 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:45 5.0T11 202 0 THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #002. THIS ROUTINE ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS. REQUIRES THE MSG MACROS IN *SYSMAC, COPY:IT.MACROS (1081/6), COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4). 01081/015 INTERTASK ITX #003 SA G S1431 4.3T2 VLO FSNAME=INTERTASK.ITX_#003.SA.014(1) 524 5.0T4 629 INTERTASK.ITX_#003.SA.015 1 LINE 80 10 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:52 5.0T11 203 0 THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #003. THIS ROUTINE ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS AND USES RANDOM MESSAGE 1 MON AUG 05/96 18:37:45 Page 741 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LENGTHS AND EXIT BUFFER LENGTHS. REQUIRES THE MSG MACROS IN *SYSMAC, COPY:IT.MACROS (1081/6), COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4). 01081/016 INTERTASK ITX #004 SA G S1431 4.3T2 VLO FSNAME=INTERTASK.ITX_#004.SA.015(1) 525 5.0T4 630 INTERTASK.ITX_#004.SA.016 1 LINE 80 11 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:56 5.0T11 204 0 THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #004. THIS ROUTINE ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS, USES RANDOM MESSAGE LENGTHS AND EXIT BUFFER LENGTHS, AND EXERCISES A FEW OF THE OTHER MORE OBSCURE INTERTASK OPERATIONS LIKE CANCEL MESSAGE, CANCEL EXIT, AND CHANGE NODE ACCESS. REQUIRES THE MSG MACROS IN *SYSMAC, COPY:IT.MACROS (1081/6), COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/4). 0 Referenced by comments of: 1081/17 01081/017 INTERTASK ITX OC G SYS:ITX 5.0T4 631 INTERTASK.ITX.OC.017 1 LINE 80 17 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:22:14 5.0T11 205 SYS:ITX 0 OBJECT FOR (1081/12) THROUGH (1081/16) AND (1081/21). NOTE: THIS ALL CAME FROM UBC55 AND THE SOURCE AND OBJECT DO NOT AGREE, BUT THIS FILE WORKS. CONTAINS REP CARDS. 01081/018 INTERTASK ITX C *ITX 5.0T4 632 INTERTASK.ITX.C.018 1 LINE 24 1 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:22:15 5.0T11 206 *ITX 0 COMMAND FILE TO START 5 TASKS RUNNING ITX FOR 5000 CALLS TO EACH #NNN ROUTINE. USES SYS:ITXCMD (1081/19). 01081/019 INTERTASK ITX C SYS:ITXCMD 5.0T4 633 INTERTASK.ITX.C.019 1 LINE 44 1 PAGE UBC O'REILLY MTA AUG. 10, 1981 00:22:16 5.0T11 207 SYS:ITXCMD 0 Referenced by comments of: 1081/18 01081/020 INTERTASK GETMSG SA G S1431 4.3T2 VLO FSNAME=INTERTASK.GETMSG.SA.019(1) 529 5.0T4 634 INTERTASK.GETMSG.SA.020 1 LINE 68 4 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:14 5.0T11 208 0 THIS IS THE SOURCE CODE FOR A UTILITY PROGRAM WHICH WILL RETURN AN ERROR MESSAGE GIVEN GR0 AND GR1 FROM AN INTERTASK OPERATION. THE CODE IS REENTRANT AND IS INTENDED SOME DAY TO BE PART OF THE RESIDENT SYSTEM. SEE THE SOURCE LISTING FOR DETAILS. CURRENTLY, IT IS USED BY INTERTASK ITX (1081/12). 1 MON AUG 05/96 18:37:45 Page 742 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01081/021 INTERTASK GETMSG OC G S1431 4.3T2 VLO FSNAME=INTERTASK.GETMSG.OC.020(1) 530 5.0T4 635 INTERTASK.GETMSG.OC.021 1 LINE 80 3 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:15 5.0T11 209 0 Referenced by comments of: 1081/17 01081/022 INTERTASK XITPTR SA G S1431 4.3T2 VLO FSNAME=INTERTASK.XITPTR.SA.021(1) 531 5.0T4 636 INTERTASK.XITPTR.SA.022 1 LINE 71 4 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:17 5.0T11 210 0 THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF AN EXIT BUFFER IN A READABLE FORMAT. THIS PROGRAM IS INTENDED TO BE USED FOR DEBUGGING PROGRAMS THAT USE INTERTASK. COPIES COPY:IT.DSECTS (1081/4). ASSEMBLE USING THE MSG MACROS IN *SYSMAC. 01081/023 INTERTASK XITPTR OC G S1431 4.3T2 VLO FSNAME=INTERTASK.XITPTR.OC.022(1) 532 5.0T4 637 INTERTASK.XITPTR.OC.023 1 LINE 80 3 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:19 5.0T11 211 01081/024 INTERTASK SNSPTR SA G S1431 4.3T2 VLO FSNAME=INTERTASK.SNSPTR.SA.023(1) 533 5.0T4 638 INTERTASK.SNSPTR.SA.024 1 LINE 68 3 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:21 5.0T11 212 0 THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF A BUFFER AS RETURNED BY AN INTERTASK SENSE OPERATION IN A READABLE FORMAT. THIS PROGRAM IS INTENDED TO BE USED FOR DEBUGGING PROGRAMS THAT USE INTERTASK. COPIES COPY:IT.DSECTS (1081/4). ASSEMBLE USING THE MSG MACROS IN *SYSMAC. 01081/025 INTERTASK SNSPTR OC G S1431 4.3T2 VLO FSNAME=INTERTASK.SNSPTR.OC.024(1) 534 5.0T4 639 INTERTASK.SNSPTR.OC.025 1 LINE 80 3 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:23 5.0T11 213 01081/026 INTERTASK LSTPTR SA G S1431 4.3T2 VLO FSNAME=INTERTASK.LSTPTR.SA.025(1) 535 5.0T4 640 INTERTASK.LSTPTR.SA.026 1 LINE 68 2 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:25 5.0T11 214 0 THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF A BUFFER AS RETURNED BY AN INTERTASK LIST OPERATION IN A READABLE FORMAT. THIS PROGRAM IS INTENDED TO BE USED FOR DEBUGGING PROGRAMS THAT USE INTERTASK. COPIES COPY:IT.DSECTS (1081/4). ASSEMBLE USING THE MSG MACROS IN *SYSMAC. 01081/027 INTERTASK LSTPTR OC G S1431 4.3T2 VLO FSNAME=INTERTASK.LSTPTR.OC.026(1) 536 5.0T4 641 INTERTASK.LSTPTR.OC.027 1 LINE 80 1 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:27 5.0T11 215 01082/001 INDIRECT/RCMSG ROUTINES # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SET OF SUBROUTINES USED BY THE UBC MAIL SYSTEM. THE SUBROUTINES PROVIDE ERROR MESSAGES FOR MOST OF THE MAIL SYSTEM (OS-CALLABLE) SUBROUTINES. 1 MON AUG 05/96 18:37:45 Page 743 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01083/001 MESSAGE FACILITY # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE RESOURCE MANAGER MESSAGE FACILITY. 01084/001 UBC TIME ROUTINES # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SET OF TIME AND DATE ROUTINES, WRITTEN IN PLUS. 02001/001 UNEMAIL # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A MAIL SYSTEM WRITTEN FOR SIGFILE USE. 02002/001 DIABLO # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO DRIVE A DIABLO PRINTER. 02004/001 NUNET # (NOT DISTRIBUTED) UNE 02005/001 PRIVATE_DISKS # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE UNE PRIVATE DISK SCHEME. 02006/001 *TOTPAGES # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, LISTS FREE SPACE ON A NAMED VOLUME, OR ON ALL PUBLIC DISKS IF NO PARAMETER IS GIVEN. 02008/001 DEVSNIFF # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS PART OF UNE'S IPL SEQUENCE. IT NOTES PRIVATE VOLUMES ALREADY MOUNTED AT IPL IN SHARED STORAGE TABLE. 02013/001 ASM.PREP # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN ASSEMBLER PREPROCESSOR. 1 MON AUG 05/96 18:37:45 Page 744 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 02015/001 LONG # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PACKAGE TO DO INTEGER ARITHMETIC ON VERY LARGE NUMBERS. 03003/001 SPIRES # (NOT DISTRIBUTED ON D5.0, SEE D4.1) UM STERKEN 0 Due to timing considerations, SPIRES is not being sent out on Distribution 5.0. A distribution of a new version of SPIRES, based on a new version from Stanford with changes by various MTS sites, will be available in the next few months. The University of Alberta will be distributing the new version, which will henceforth be incorporated into the UM driver file and distributed on subsequent MTS system distributions. We believe that all components in Distribution 5.0 requiring SPIRES will run on the SPIRES currently being used at your site. If you have any problems, please contact Elizabeth Sweet at the University of Michigan Computing Center. 03006/001 *PL1SYN # (NOT DISTRIBUTED) UQV 03007/001 APLUTIL # (NOT DISTRIBUTED) UQV 03011/001 *FLOWCHART IBM SOURCE SA O S0565 D4T3 VLO FSNAME=FLOWCHART.IBM_SOURCE.SA.001(1) 681 5.0T3 1417 FLOWCHART.IBM_SOURCE.SA.001 1 SEQ 80 387 PAGE UQV WARD DWB OCT. 10, 1974 12:28.56 5.0T9 273 0 THIS IS THE SOURCE FOR THE IBM FLOWCHARTING PROGRAM. IT DOES NOT FLOWCHART ANYTHING AUTOMATICALLY; YOU HAVE TO TELL IT (VIA ITS INPUT LANGUAGE) WHAT KIND OF BOXES TO DRAW AND HOW THEY ARE TO BE CONNECTED. SEE THE BRIEF DESCRIPTION IN MTS VOLUME 2. FOR MORE COMPLETE INFORMATION, SEE IBM FORM GH20-0293. 0 Referenced by comments of: 3011/2, 3011/3 03011/002 *FLOWCHART MTS UPDATE UU O S1143 D4.1T1 VLO FSNAME=FLOWCHART.MTS_UPDATE.UU.002(1) 825 5.0T3 1418 FLOWCHART.MTS_UPDATE.UU.002 1 LINE 72 42 PAGE UQV WARD DWB APR. 03, 1978 20:17:23 5.0T9 274 0 *UPDATE DECK TO PRODUCE MTS VERSION OF FLOWCHART FROM ORIGINAL IBM SOURCE (3011/1). 0 Referenced by comments of: 3011/3 03011/003 *FLOWCHART MTS SOURCE SA O S1143 D4.1T1 VLO FSNAME=FLOWCHART.MTS_SOURCE.SA.003(1) 826 5.0T3 1419 FLOWCHART.MTS_SOURCE.SA.003 1 LINE 80 359 PAGE UQV WARD DWB JAN. 09, 1978 18:10:51 5.0T9 275 0 RESULT OF APPLYING ABOVE UPDATE (3011/2) TO IBM SOURCE (3011/1). COPIES *GDINFODSECT (594). 0 Referenced by comments of: 3011/4 1 MON AUG 05/96 18:37:45 Page 745 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03011/004 *FLOWCHART OBJECT OC O S1143 D4.1T1 VLO FSNAME=FLOWCHART.OBJECT.OC.004(1) 827 5.0T3 1420 FLOWCHART.OBJECT.OC.004 1 LINE 2846 51 PAGE UQV WARD DWB APR. 03, 1978 20:17:11 5.0T9 276 0 OBJECT FROM ASSEMBLY OF MTS SOURCE (3011/3). 0 Referenced by comments of: 3011/5 03011/005 *FLOWCHART MTS OBJECT OE O *FLOWCHART 5.0T3 1421 FLOWCHART.MTS_OBJECT.OE.005 1 LINE 25588 18 PAGE UQV WARD DWB JULY 03, 1981 21:07:23 5.0T9 277 *FLOWCHART 0 LINK-EDITED RESULT FROM ABOVE OBJECT (3011/4). 03011/006 *FLOWCHART TEST 1 D DWB:FLOWCHART.T1 5.0T3 1422 FLOWCHART.TEST_1.D.006 1 LINE 72 1 PAGE UQV WARD DWB JULY 03, 1981 21:07:24 5.0T9 278 DWB.:FLOWCHART.T1 0 THIS COMPONENT AND THE NEXT 5 ARE *FLOWCHART TEST PROGRAMS. 03011/007 *FLOWCHART TEST 2 D DWB:FLOWCHART.T2 5.0T3 1423 FLOWCHART.TEST_2.D.007 1 LINE 62 1 PAGE UQV WARD DWB JULY 03, 1981 21:07:25 5.0T9 279 DWB.:FLOWCHART.T2 03011/008 *FLOWCHART TEST 3 D DWB:FLOWCHART.T3 5.0T3 1424 FLOWCHART.TEST_3.D.008 1 LINE 75 1 PAGE UQV WARD DWB JULY 03, 1981 21:07:26 5.0T9 280 DWB.:FLOWCHART.T3 03011/009 *FLOWCHART TEST 4 D DWB:FLOWCHART.T4 5.0T3 1425 FLOWCHART.TEST_4.D.009 1 LINE 68 1 PAGE UQV WARD DWB JULY 03, 1981 21:07:27 5.0T9 281 DWB.:FLOWCHART.T4 03011/010 *FLOWCHART TEST 5 D DWB:FLOWCHART.T5 5.0T3 1426 FLOWCHART.TEST_5.D.010 1 LINE 62 1 PAGE UQV WARD DWB JULY 03, 1981 21:07:27 5.0T9 282 DWB.:FLOWCHART.T5 03011/011 *FLOWCHART TEST 6 D DWB:FLOWCHART.T6 5.0T3 1427 FLOWCHART.TEST_6.D.011 1 LINE 72 4 PAGE UQV WARD DWB JULY 03, 1981 21:07:28 5.0T9 283 DWB.:FLOWCHART.T6 03012/001 TYPESET # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.Y 03013/001 ALGOL68C # (NOT INSTALLED AT UM) D4T3 690 ALGOL68C.COMPILER.OE.001 1 SEQ 32767 45 PAGE UQV MAILLOUX OCT. 11, 1976 08:56:32 0 THIS VERSION OF ALGOL68C WAS RECEIVED AT UM FROM UQV IN OCT/76 AND IS VERSION 242 OF THE ALGOL68C COMPILER, WHICH WAS OBTAINED FROM CAMBRIDGE, ENGLAND. NOTE: THIS VERSION HAS NOT BEEN INSTALLED AT UM AS OF 1 APR/81. 1 MON AUG 05/96 18:37:45 Page 746 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03014/001 UQV FEP # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE 360 SIDEY OF THE UQV FRONT END DSR. 03016/001 APLSV # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE SV VERSION OF APL. 03017/001 *DES # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DATA ENTRY SYSTEM, A HOME-GROWN VERSION OF VIDEO 370. 03018/001 TEXTFORM DESIGN SPECS WF # (NOT DISTRIBUTED BY UQV) UQV TXTFGROUP LIFT 0 TEXTFORM is a registered trademark of the University of Alberta. TEXTFORM is copyrighted by the University of Alberta. Redistribution to installations other than those receiving distribution 5.0 of MTS requires written permission. This is the final version of the TEXTFORM design specifications. The members of the "TXTFGROUP" are: Grant Crawford Dave Holberton Earl Culham Debbie Reinhart ****************************************************************** D5.0 version: This is TEXTFORM Version 1.1. ****************************************************************** 0 Referenced by comments of: 3018/2 03018/002 TEXTFORM DESIGN SPECS PF # (NOT DISTRIBUTED BY UQV) UQV TXTFGROUP LIFT 0 Printer copy of (3018/1). 03018/003 TEXTFORM RESTORE C TXTF:CREATES 5.0T4 1 TEXTFORM.RESTORE.C.003 1 LINE 73 4 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:17:07 5.0T9 284 0 For installations installing TEXTFORM for the first time: 1 MON AUG 05/96 18:37:45 Page 747 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Component (3018/5), the Internals Manual, should be printed, and the section entitled "Installation Guide" should be read before proceeding further. For installations who already have TEXTFORM running: Component (3018/5), the Internals Manual, lines 1 to 1278 should be printed. However you may print the whole manual if you wish since it has been updated since Version .97. Read the section entitled "Installation Guide" before proceeding further. There are changes. 03018/004 TEXTFORM INTERNALS WX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTERNALS.WX.004 5.0T4 2 TEXTFORM.INTERNALS.WX.004 1 LINE 255 306 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:49:56 5.0T9 285 0 This is the PLM - set up for the 1403. The first few lines of the file contain notes on the options available, but what you need (the whole thing) is produced by the defaults. 0 Referenced by comments of: 3018/5, 3018/12, 3018/61, 3018/81, 3018/123, 3018/124, 3018/125, 3018/126, 3018/155, 3018/160, 3018/161, 3018/162 03018/005 TEXTFORM INTERNALS PX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTERNALS.PX.005 5.0T4 3 TEXTFORM.INTERNALS.PX.005 1 LINE 108 1036 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:50:48 5.0T9 286 0 Print file for (3018/4) - about 1000 pages of TN. The Table of Contents is at the end of the print file. 0 Referenced by comments of: 3018/3 03018/006 TEXTFORM INTRODUCTION WX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTRODUCTION.WX.006 5.0T4 4 TEXTFORM.INTRODUCTION.WX.006 1 LINE 229 56 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:53:00 5.0T9 287 0 The INTRODUCTION manual - set up for the 1403. 03018/007 TEXTFORM USERS WX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.USERS.WX.007 5.0T4 5 TEXTFORM.USERS.WX.007 1 LINE 236 58 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:54:31 5.0T9 288 0 The USERS manual - set up for the 1403. 03018/008 TEXTFORM REFERENCE WX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.REFERENCE.WX.008 5.0T4 6 TEXTFORM.REFERENCE.WX.008 1 LINE 210 49 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:55:40 5.0T9 289 0 The REFERENCE manual - set up for the 1403. (Note - Due to a bug in the handling of large structures, it will not run successfully.) 1 MON AUG 05/96 18:37:45 Page 748 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/009 TEXTFORM LAYOUT_DEF WX # (NOT AVAILABLE YET) UQV TXTFGROUP LIFT 0 The layout definition manual will go here. 03018/010A TEXTFORM *TEXTFORM OE G *TEXTFORM 5.0T4 7 TEXTFORM.*TEXTFORM.OE.010 1 LINE 9440 69 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:17:51 5.0T9 290 *TEXTFORM 0 TEXTFORM object. 0 Referenced by comments of: 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/23, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/42, 3018/47, 3018/49, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/63, 3018/64, 3018/66, 3018/77, 3018/115, 3018/116, 3018/117 03018/011 TEXTFORM TXTFMSGS M ETC:TXTFMSGS 5.0T4 8 TEXTFORM.TXTFMSGS.M.011 1 LINE 88 7 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:17:55 5.0T9 291 ETC:TXTFMSGS 0 ERROR MESSAGES. 03018/012 TEXTFORM AMWID SA G TXTF:AMWID.S 5.0T4 9 TEXTFORM.AMWID.SA.012 1 LINE 80 16 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:17:56 5.0T9 292 0 PROGRAM FOR BUILDING AM748 PHOTOTYPESETTER WIDTH TABLES. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/013 TEXTFORM AM748N SA G TXTF:AM748N.S 5.0T4 10 TEXTFORM.AM748N.SA.013 1 LINE 80 54 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:17:58 5.0T9 293 0 AM748 PHOTOTYPESETTER OUTPUT DEVICE PROCESSOR (OD). COPIES GBLC (3018/120), GBLS (3018/22), AND XODTGETM (3018/144). OBJECT IN TXTFODS (3018/156). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/014 TEXTFORM ATPAC SA G TXTF:ATPAC.S 5.0T4 11 TEXTFORM.ATPAC.SA.014 1 LINE 80 11 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:05 5.0T9 294 0 CONTAINS THE ATEXEC, ATERASE, ATINS, ATRAINS, ATRAERS, ECQSTRG, AND EXDG SUBROUTINES FOR AT-POINT PROCESSING. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/015 TEXTFORM CHPAC SA G TXTF:CHPAC.S 5.0T4 12 TEXTFORM.CHPAC.SA.015 1 LINE 80 36 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:06 5.0T9 295 0 CONTAINS THE GETVAL, RETVAL, SETATTR, SETVAL, GETPV, SECHG, PSVTAB, ASSIGN, HCHANGE, AND ERSVTAB SUBROUTINES FOR SYMBOL TABLE PROCESSING. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 1 MON AUG 05/96 18:37:45 Page 749 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/016 TEXTFORM CONVPAC SA G TXTF:CONVPAC.S 5.0T4 13 TEXTFORM.CONVPAC.SA.016 1 LINE 80 46 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:09 5.0T9 296 0 CONTAINS SUBROUTINES FOR CASE, LANGUAGE, STRING, AND NUMBER CONVERSION. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/017 TEXTFORM CWKDAY SA G TXTF:CWKDAY.S 5.0T4 14 TEXTFORM.CWKDAY.SA.017 1 LINE 80 4 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:13 5.0T9 297 0 CONTAINS DATA AND TIME SUBROUTINE. OBJECT IN (3018/77) AND *TEXTFORM (3018/10). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/77 03018/018 TEXTFORM DEVPAC SA G TXTF:DEVPAC.S 5.0T4 15 TEXTFORM.DEVPAC.SA.018 1 LINE 80 12 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:14 5.0T9 298 0 COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). OBJECT IN *TEXTFORM (3018/10). 03018/019 TEXTFORM EXPAC SA G TXTF:EXPAC.S 5.0T4 16 TEXTFORM.EXPAC.SA.019 1 LINE 80 74 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:15 5.0T9 299 0 CONTAINS THE TXTFDRVR, GCI, PARSER, COMDEXEC SUBROUTINES AND FRIENDS. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/152 03018/020 TEXTFORM EXPRPAC SA G TXTF:EXPRPAC.S 5.0T4 17 TEXTFORM.EXPRPAC.SA.020 1 LINE 80 27 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:21 5.0T9 300 0 CONTAINS THE EVALUATE, EXPREV, AND EXEVAL SUBROUTINES FOR EXPRESSION EVALUATION. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/021 TEXTFORM FUNPAC SA G TXTF:FUNPAC.S 5.0T4 18 TEXTFORM.FUNPAC.SA.021 1 LINE 80 34 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:23 5.0T9 301 0 TEXTFORM FUNCTIONS. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 1 MON AUG 05/96 18:37:45 Page 750 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/022 TEXTFORM GBLS SA G TXTF:GBLS 5.0T4 19 TEXTFORM.GBLS.SA.022 1 LINE 80 7 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:27 5.0T9 302 0 COPY SECTION OF GLOBAL SYMBOLS INCLUDING INSTALLATION OPTIONS. COPIES GBLD (3018/119). COPIED BY MANY TEXTFORM SUBCOMPONENTS. 0 Referenced by comments of: 3018/13, 3018/14, 3018/15, 3018/16, 3018/18, 3018/19, 3018/20, 3018/21, 3018/23, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36, 3018/37, 3018/38, 3018/41, 3018/42, 3018/44, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/115, 3018/116, 3018/117, 3018/136, 3018/137, 3018/147, 3018/149, 3018/151, 3018/152, 3018/158, 3018/171 03018/023 TEXTFORM GFDSTAR SA G TXTF:GFDSTAR.S 5.0T4 20 TEXTFORM.GFDSTAR.SA.023 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:28 5.0T9 303 0 CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON TEXTFORM REFERENCED/LOADED FILES. THIS IS THE PUBLIC FILE (OWNER ETC:) VERSION. COPIES GBLC (3018/120) AND GBLS (3018/22). OBJECT IN (3018/66) AND *TEXTFORM (3018/10). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/66 03018/024 TEXTFORM GFDN SA G TXTF:GFDN.S 5.0T4 21 TEXTFORM.GFDN.SA.024 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:29 5.0T9 304 0 CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON TEXTFORM REFERENCED/LOADED FILES. THIS IS THE NEW: VERSION. COPIES GBLC (3018/120) AND GBLS (3018/22). OBJECT IN (3018/67). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/67 03018/025 TEXTFORM GFDO SA G TXTF:GFDO.S 5.0T4 22 TEXTFORM.GFDO.SA.025 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:29 5.0T9 305 0 CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON TEXTFORM REFERENCED/LOADED FILES. THIS IS THE OLD: VERSION. COPIES GBLC (3018/120) AND GBLS (3018/22). OBJECT IN (3018/65). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/65 03018/026 TEXTFORM GFDT SA G TXTF:GFDT.S 5.0T4 23 TEXTFORM.GFDT.SA.026 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:30 5.0T9 306 0 CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON TEXTFORM REFERENCED/LOADED FILES. THIS IS THE TXTF: VERSION. COPIES (3018/120) AND GBLS (3018/22). OBJECT IN (3018/68). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 1 MON AUG 05/96 18:37:45 Page 751 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 3018/68 03018/027 TEXTFORM GOPAC SA G TXTF:GOPAC.S 5.0T4 24 TEXTFORM.GOPAC.SA.027 1 LINE 80 23 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:30 5.0T9 307 0 CONTAINS THE TXTFINIT AND TXTFTERM SUBROUTINES TO INITIALIZE AND TERMINATE TEXTFORM. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/028 TEXTFORM HYPAC SA G TXTF:HYPAC.S 5.0T4 25 TEXTFORM.HYPAC.SA.028 1 LINE 80 56 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:33 5.0T9 308 0 CONTAINS HYPHENATION SUBROUTINES. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/029 TEXTFORM INTRFACE SA G TXTF:INTRFACE.S 5.0T4 26 TEXTFORM.INTRFACE.SA.029 1 LINE 80 8 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:37 5.0T9 309 0 CONTAINS THE INTERFACE TO SYSTEM SUBROUTINES. OBJECT IN *TEXTFORM (3018/10). COPIES *CNFGINFODSECT (654), GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/030 TEXTFORM LISTPAC SA G TXTF:LISTPAC.S 5.0T4 27 TEXTFORM.LISTPAC.SA.030 1 LINE 80 10 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:39 5.0T9 310 0 CONTAINS THE LISTER, ALTLIST, CHLIST, CR, AND XREFIT SUBROUTINES FOR SOURCE LISTING. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/031 TEXTFORM MACPAC SA G TXTF:MACPAC.S 5.0T4 28 TEXTFORM.MACPAC.SA.031 1 LINE 80 47 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:40 5.0T9 311 0 CONTAINS THE TXTFINPT SUBROUTINE AND FRIENDS FOR INPUT GETTING, AND THE ROUTINES FOR, IF, WHILE, EXECUTE PROCESSING, ETC. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/032 TEXTFORM NPP SA G TXTF:NPP.S 5.0T4 29 TEXTFORM.NPP.SA.032 1 LINE 80 56 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:44 5.0T9 312 0 CONTAINS THE PAGEPROC SUBROUTINE FOR PAGE PROCESSING. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 1 MON AUG 05/96 18:37:45 Page 752 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/033 TEXTFORM NUCLEUS CSECT SA G TXTF:NUCLEUS.S 5.0T4 30 TEXTFORM.NUCLEUS_CSECT.SA.033 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:48 5.0T9 313 0 THIS IS THE NUCLEUS CSECT WHICH CONTAINS ALL OF THE VALUES THAT TEXTFORM NEEDS TO KEEP TRACK OF WHAT'S WHAT. COPIES THE NUCLEUS DSECT (3018/118), GBLC (3018/120), AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/034 TEXTFORM OD.AJ832 SA G TXTF:OD.AJ832.S 5.0T4 31 TEXTFORM.OD.AJ832.SA.034 1 LINE 80 31 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:49 5.0T9 314 0 THE OUTPUT DEVICE PROCESSOR FOR THE ANDERSON-JACOBSON 832 TERMINAL. OBJECT IN TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), AND XODTGETM (3018/144). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/035 TEXTFORM OD.DECWR SA G TXTF:OD.DECWR.S 5.0T4 32 TEXTFORM.OD.DECWR.SA.035 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:53 5.0T9 315 0 THE OUTPUT DEVICE PROCESSOR FOR THE DECWRITER TERMINAL. OBJECT IN TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), OD.1403.M (3018/40), AND XODTGETM (3018/144). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/40 03018/036 TEXTFORM OD.DOC SA G TXTF:OD.DOC.S 5.0T4 33 TEXTFORM.OD.DOC.SA.036 1 LINE 86 22 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:54 5.0T9 316 0 CONTAINS THE ODDOC SUBROUTINE WHICH PRODUCES OUTPUT DEVICE AND FONT DESCRIPTIONS. USES TXTF.ODW (3018/58) AS DATA. OBJECT IN (3018/162). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/58, 3018/162 03018/037 TEXTFORM OD.SKEL SA G TXTF:OD.SKEL.S 5.0T4 34 TEXTFORM.OD.SKEL.SA.037 1 LINE 80 14 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:56 5.0T9 317 0 SKELETON FOR OUTPUT DEVICE PROCESSORS. USEFUL AS A BASIS FOR WRITING AN OD. COPIES XODTGETM (3018/144), GBLC (3018/120), AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/038 TEXTFORM OD.TBLGEN SA G TXTF:OD.TBLGEN.S 5.0T4 35 TEXTFORM.OD.TBLGEN.SA.038 1 LINE 80 29 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:18:58 5.0T9 318 0 CONTAINS THE GENTAB SUBROUTINE WHICH PRODUCES OUTPUT DEVICE PROCESSOR WIDTH TABLES. COPIES GBLS (3018/22), AND GBLC (3018/120). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). OBJECT IN (3018/160). 1 MON AUG 05/96 18:37:45 Page 753 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 3018/57, 3018/91, 3018/95, 3018/96, 3018/97, 3018/98, 3018/99, 3018/100, 3018/101, 3018/104, 3018/106, 3018/109, 3018/124, 3018/138, 3018/139, 3018/140, 3018/141, 3018/142, 3018/143, 3018/150, 3018/159, 3018/160 03018/039 TEXTFORM OD.1403.D SA G TXTF:OD.1403.D.S 5.0T4 36 TEXTFORM.OD.1403.D.SA.039 1 LINE 81 7 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:01 5.0T9 319 0 DSECTS FOR OUTPUT DEVICE PROCESSORS FOR IBM 1403-COMPATIBLE PRINTERS. COPIED BY (3018/40) AND (3018/43). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 0 Referenced by comments of: 3018/40, 3018/43 03018/040 TEXTFORM OD.1403.M SA G TXTF:OD.1403.M.S 5.0T4 37 TEXTFORM.OD.1403.M.SA.040 1 LINE 81 57 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:02 5.0T9 320 0 CODE FOR OUTPUT DEVICE PROCESSORS FOR IBM 1403-COMPATIBLE PRINTERS. COPIES (3018/39). COPIED BY (3018/35), (3018/41), (3018/44), (3018/45), AND (3018/46). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/35, 3018/39, 3018/41, 3018/44, 3018/45, 3018/46 03018/041 TEXTFORM OD.1403 SA G TXTF:OD.1403.S 5.0T4 38 TEXTFORM.OD.1403.SA.041 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:10 5.0T9 321 0 OUTPUT DEVICE PROCESSOR FOR IBM 1403. OBJECT IN TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), XODTGETM (3018/144), AND OD.1403.M (3018/40). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/40 03018/042 TEXTFORM ODM SA G TXTF:ODM.S 5.0T4 39 TEXTFORM.ODM.SA.042 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:11 5.0T9 322 0 CONTAINS TXTFODCM, THE OUTPUT DEVICE LOADER. OBJECT IN *TEXTFORM (3018/10). COPIES GBLS (3018/22) AND ODPD.M (3018/43). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/43, 3018/147 03018/043 TEXTFORM ODPD.M SA G TXTF:ODPD.M.S 5.0T4 40 TEXTFORM.ODPD.M.SA.043 1 LINE 80 20 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:11 5.0T9 323 0 COPIES (3018/39). COPIED BY ODM (3018/42) AND PDM (3018/47). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/39, 3018/42, 3018/47 1 MON AUG 05/96 18:37:45 Page 754 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/044 TEXTFORM OSOD.1403 SA G TXTF:OSOD.1403.S 5.0T4 41 TEXTFORM.OSOD.1403.SA.044 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:13 5.0T9 324 0 IBM 1403 PRINTER OUTPUT DEVICE PROCESSOR FOR OS. COPIES OD.1403.M (3018/40). OBJECT IN TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), AND XODTGETM (3018/144). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/40 03018/045 TEXTFORM OSPD.1403 SA G TXTF:OSPD.1403.S 5.0T4 42 TEXTFORM.OSPD.1403.SA.045 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:13 5.0T9 325 0 IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR OS. COPIES OD.1403.M (3018/40), XODTGETM.S (3018/144), GBLS (3018/22), AND GBLC (3018/120). OBJECT IN TXTFODS (3018/156). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/40 03018/046 TEXTFORM PD.1403 SA G TXTF:PD.1403.S 5.0T4 43 TEXTFORM.PD.1403.SA.046 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:14 5.0T9 326 0 IBM 1403 PRINTER PROOF DEVICE PROCESSOR. COPIES OD.1403.M (3018/40), XODTGETM.S (3018/144), GBLS (3018/22), AND GBLC (3018/120). OBJECT IN TXTFODS (3018/156). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/40 03018/047 TEXTFORM PDM SA G TXTF:PDM.S 5.0T4 44 TEXTFORM.PDM.SA.047 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:15 5.0T9 327 0 CONTAINS TXTFPDCM, THE PROOF DEVICE LOADER. COPIES GBLS (3018/22), GBLC (3018/120), AND ODPD.M (3018/43). OBJECT IN *TEXTFORM (3018/10). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/43, 3018/147 03018/048 TEXTFORM PPEXT SA G TXTF:PPEXT.S 5.0T4 45 TEXTFORM.PPEXT.SA.048 1 LINE 80 16 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:15 5.0T9 328 0 CONTAINS THE CALLPUSH AND CALLPOP SUBROUTINES TO CALL PUSH AND POP, AND PPUNDO, THE INTERNAL PAGE DUMPER. COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/049 TEXTFORM PPPAC SA G TXTF:PPPAC.S 5.0T4 46 TEXTFORM.PPPAC.SA.049 1 LINE 80 40 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:17 5.0T9 329 0 CONTAINS THE PAGE AND TEXT PROCESSING SUBROUTINES. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 1 MON AUG 05/96 18:37:45 Page 755 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/050 TEXTFORM PROOF SA G TXTF:PROOF.S 5.0T4 47 TEXTFORM.PROOF.SA.050 1 LINE 81 53 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:21 5.0T9 330 0 IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR THE AM748 AND APS5 PHOTOTYPESETTERS. OBJECT IN TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), AND XODTGETM (3018/144). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/051 TEXTFORM SCPAC SA G TXTF:SCPAC.S 5.0T4 48 TEXTFORM.SCPAC.SA.051 1 LINE 81 67 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:26 5.0T9 331 0 CONTAINS MANY SUBROUTINES FOR COMMAND PROCESSING, ETC. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/052 TEXTFORM SSPAC SA G TXTF:SSPAC.S 5.0T4 49 TEXTFORM.SSPAC.SA.052 1 LINE 80 14 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:33 5.0T9 332 0 CONTAINS THE REPACK, CRECHECK, DESCHECK, TSKIP, CONVMSG, FIXFDUBS, AND SATRACE SUBROUTINES (MISCELLANEOUS UTILITIES). OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/053 TEXTFORM STPAC SA G TXTF:STPAC.S 5.0T4 50 TEXTFORM.STPAC.SA.053 1 LINE 80 49 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:34 5.0T9 333 0 CONTAINS THE ATXRSYMB AND READSYMB SUBROUTINES AND FRIENDS FOR SYMBOL TABLE AND LAYOUT PROCESSING. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/054 TEXTFORM SYSPAC SA G TXTF:SYSPAC.S 5.0T4 51 TEXTFORM.SYSPAC.SA.054 1 LINE 72 18 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:39 5.0T9 334 0 CONTAINS THE ERROR, TIMER, ATTN, AND PGNT SUBROUTINES. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/055 TEXTFORM TEXTFORM SA G TXTF:TEXTFORM.S 5.0T4 52 TEXTFORM.TEXTFORM.SA.055 1 LINE 80 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:41 5.0T9 335 0 CONTAINS TEXTFORM, THE MAIN CSECT. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 1 MON AUG 05/96 18:37:45 Page 756 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/056 TEXTFORM TP SA G TXTF:TP.S 5.0T4 53 TEXTFORM.TP.SA.056 1 LINE 80 32 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:42 5.0T9 336 0 CONTAINS TEXTPROC, THE TEXT PROCESSOR. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/057 TEXTFORM ODT.TN.IWD D G TXTF:ODT.TN.IWD 5.0T4 54 TEXTFORM.ODT.TN.IWD.D.057 1 LINE 65 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:45 5.0T9 337 0 CONTAINS WIDTH TABLES, INPUT TO GENTAB (3018/38) FOR THE IBM 1403 PRINTER OUTPUT DEVICE PROCESSOR, TN PRINT TRAIN. 03018/058 TEXTFORM TXTF.ODW D G TXTF:TXTF.ODW 5.0T4 55 TEXTFORM.TXTF.ODW.D.058 1 LINE 118 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:46 5.0T9 338 0 DESCRIPTIONS OF OUTPUT DEVICES AND FONTS. USED BY OD.DOC (3018/36). 0 Referenced by comments of: 3018/36 03018/059 TEXTFORM MACROS SM G TXTF:MACROS 5.0T4 56 TEXTFORM.MACROS.SM.059 1 LINE 81 96 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:19:47 5.0T9 339 0 MOST TEXTFORM SUBCOMPONENTS REQUIRE THIS MACRO LIBRARY FOR ASSEMBLY. 0 Referenced by comments of: 3018/12, 3018/13, 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/23, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36, 3018/37, 3018/38, 3018/40, 3018/41, 3018/42, 3018/43, 3018/44, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/79, 3018/115, 3018/116, 3018/117, 3018/128, 3018/136, 3018/137, 3018/147, 3018/149, 3018/151, 3018/152, 3018/158 03018/060 TEXTFORM DSECTS SM G TXTF:DSECTS 5.0T4 57 TEXTFORM.DSECTS.SM.060 1 LINE 80 46 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:00 5.0T9 340 0 MOST TEXTFORM SUBCOMPONENTS REQUIRE THIS DSECT LIBRARY FOR ASSEMBLY. 0 Referenced by comments of: 3018/12, 3018/13, 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/23, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36, 3018/37, 3018/38, 3018/40, 3018/41, 3018/42, 3018/43, 3018/44, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/79, 3018/115, 3018/116, 3018/117, 3018/128, 3018/136, 3018/137, 3018/147, 3018/149, 3018/151, 3018/152, 3018/158, 3018/171 03018/061 TEXTFORM SYMBIN D G TXTF:SYMBIN 5.0T4 58 TEXTFORM.SYMBIN.D.061 1 LINE 255 21 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:06 5.0T9 341 0 TEXTFORM INPUT TO BUILD THE SYMBOL TABLE ("ENVIRONMENT") IN (3018/63). SEE THE INTERNALS MANUAL (3018/4) FOR INSTRUCTIONS. 1 MON AUG 05/96 18:37:45 Page 757 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/062 TEXTFORM BOOTSYMB D G TXTF:BOOTSYMB 5.0T4 59 TEXTFORM.BOOTSYMB.D.062 1 LINE 4096 4 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:08 5.0T9 342 0 THE BOOTSTRAP SYMBOL TABLE (, , ). 03018/063 TEXTFORM ENVIRONMENT D G ETC:TXTFENVIR 5.0T4 60 TEXTFORM.ENVIRONMENT.D.063 1 LINE 32000 19 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:08 5.0T9 343 ETC:TXTFENVIR 0 THE SYMBOL TABLE USED IN RUNNING *TEXTFORM (3018/10). 0 Referenced by comments of: 3018/61 03018/064 TEXTFORM TXTFLAYOUTS D G ETC:TXTFLAYOUTS 5.0T4 61 TEXTFORM.TXTFLAYOUTS.D.064 1 LINE 252 68 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:09 5.0T9 344 ETC:TXTFLAYOUTS 0 THE LAYOUTS USED BY *TEXTFORM (3018/10). 03018/065 TEXTFORM GFDO OC G TXTF:GFDO.O 5.0T4 62 TEXTFORM.GFDO.OC.065 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:14 5.0T9 345 0 OBJECT OF (3018/25). 0 Referenced by comments of: 3018/25 03018/066 TEXTFORM GFDSTAR OC G TXTF:GFDSTAR.O 5.0T4 63 TEXTFORM.GFDSTAR.OC.066 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:15 5.0T9 346 0 OBJECT OF (3018/23). THIS IS THE VERSION IN *TEXTFORM (3018/10). 0 Referenced by comments of: 3018/23 03018/067 TEXTFORM GFDN OC G TXTF:GFDN.O 5.0T4 64 TEXTFORM.GFDN.OC.067 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:16 5.0T9 347 0 OBJECT OF (3018/24). 0 Referenced by comments of: 3018/24 03018/068 TEXTFORM GFDT OC G TXTF:GFDT.O 5.0T4 65 TEXTFORM.GFDT.OC.068 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:17 5.0T9 348 0 OBJECT OF (3018/26). 0 Referenced by comments of: 3018/26 1 MON AUG 05/96 18:37:45 Page 758 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/069 TEXTFORM NEWOLD C TXTF:NEWOLD 5.0T4 66 TEXTFORM.NEWOLD.C.069 1 LINE 85 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:18 5.0T9 349 0 COMMANDS TO CREATE A VERSION OF TEXTFORM UNDER OLD:, FROM THE PUBLIC FILE VERSION. 03018/070 TEXTFORM NEWPUB C TXTF:NEWPUB 5.0T4 67 TEXTFORM.NEWPUB.C.070 1 LINE 45 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:19 5.0T9 350 0 COMMANDS TO COPY THE FILE TXTF:TEXTFORM TO *TEXTFORM AND MAKE AN ENTRY TO THE FILE LINKLOG. 03018/071 TEXTFORM NEWSTAR C TXTF:NEWSTAR 5.0T4 68 TEXTFORM.NEWSTAR.C.071 1 LINE 85 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:19 5.0T9 351 0 COMMANDS TO CREATE THE PUBLIC FILE VERSION OF TEXTFORM FROM THE NEW: VERSION. 03018/072 TEXTFORM NEWNEW C TXTF:NEWNEW 5.0T4 69 TEXTFORM.NEWNEW.C.072 1 LINE 81 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:20 5.0T9 352 0 COMMANDS TO CREATE A VERSION OF TEXTFORM UNDER NEW: FROM FILES UNDER TXTF:. 03018/073 TEXTFORM PERCOLATE C # TXTF:PERCOLATE UQV TXTFGROUP LIFT 0 This file is not distributed because it is full of $EXEC commands which none of you have. 03018/074 TEXTFORM LIB C G S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LIB.C.075 5.0T4 70 TEXTFORM.LIB.C.074 1 LINE 75 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:59:40 5.0T9 353 03018/075 TEXTFORM LINK C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LINK.C.076 5.0T4 71 TEXTFORM.LINK.C.075 1 LINE 40 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:59:41 5.0T9 354 03018/076 TEXTFORM XCSYMB C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.XCSYMB.C.077 5.0T4 72 TEXTFORM.XCSYMB.C.076 1 LINE 29 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:59:41 5.0T9 355 0 COMMANDS TO COPY ENVIR2 --> TXTFENVIR --> OLDENVIR (THE SYMBOL TABLE). 03018/077 TEXTFORM CWKDAY OC G TXTF:CWKDAY.O 5.0T4 73 TEXTFORM.CWKDAY.OC.077 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:38 5.0T9 356 0 OBJECT OF (3018/17). ALSO INCLUDED IN *TEXTFORM (3018/10). 0 Referenced by comments of: 3018/17 1 MON AUG 05/96 18:37:45 Page 759 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/078 TEXTFORM LOGJOB C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LOGJOB.C.079 5.0T4 74 TEXTFORM.LOGJOB.C.078 1 LINE 111 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:59:43 5.0T9 357 0 COMMANDS TO *FS TO SAVE ETC:TXTFLOG (3018/163). 0 Referenced by comments of: 3018/79, 3018/163 03018/079 TEXTFORM LOG SA G TXTF:LOG.S 5.0T4 75 TEXTFORM.LOG.SA.079 1 LINE 69 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:40 5.0T9 358 0 PROGRAM WHICH DECIDES WHEN TO START LOGJOB (3018/78). READS (3018/78). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/80 03018/080 TEXTFORM LOG OC G TXTF:LOG.O 5.0T4 76 TEXTFORM.LOG.OC.080 1 LINE 80 2 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:40 5.0T9 359 0 OBJECT OF (3018/79). 03018/081 TEXTFORM LAY.SKEL D G TXTF:LAY.SKEL 5.0T4 77 TEXTFORM.LAY.SKEL.D.081 1 LINE 229 6 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:41 5.0T9 360 0 A SKELETON, OR SAMPLE, FOR BUILDING LAYOUTS. SEE "HOW TO BUILD A LAYOUT" IN THE INTERNALS MANUAL (3018/4). 03018/082 TEXTFORM LAY.THES D G TXTF:LAY.THES 5.0T4 78 TEXTFORM.LAY.THES.D.082 1 LINE 197 6 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:43 5.0T9 361 0 THE THESIS LAYOUT. 03018/083 TEXTFORM LAY.TUT D G TXTF:LAY.TUT 5.0T4 79 TEXTFORM.LAY.TUT.D.083 1 LINE 229 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:44 5.0T9 362 0 THE TUTORIAL LAYOUT. 03018/084 TEXTFORM LAY.NEWS D G TXTF:LAY.NEWS 5.0T4 80 TEXTFORM.LAY.NEWS.D.084 1 LINE 136 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:45 5.0T9 363 0 THE NEWSLETTER LAYOUT. 03018/085 TEXTFORM LAY.OUT D G TXTF:LAY.OUT 5.0T4 81 TEXTFORM.LAY.OUT.D.085 1 LINE 198 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:45 5.0T9 364 0 This used to be Layout REPORT, but it is now Layout OUTLINE. 1 MON AUG 05/96 18:37:45 Page 760 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/086 TEXTFORM LAY.REF D G TXTF:LAY.REF 5.0T4 82 TEXTFORM.LAY.REF.D.086 1 LINE 229 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:46 5.0T9 365 0 THE REFERENCE LAYOUT. 03018/087 TEXTFORM LAY.TECH D G TXTF:LAY.TECH 5.0T4 83 TEXTFORM.LAY.TECH.D.087 1 LINE 229 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:47 5.0T9 366 0 THE TECHNICAL LAYOUT. 03018/088 TEXTFORM LAY.UBC D G TXTF:LAY.UBC 5.0T4 84 TEXTFORM.LAY.UBC.D.088 1 LINE 188 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:48 5.0T9 367 0 LAYOUT UBC. 03018/089 TEXTFORM LAY.UM D O TXTF:LAY.UM 5.0T4 85 TEXTFORM.LAY.UM.D.089 1 LINE 158 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:48 5.0T9 368 0 LAYOUT UM. THIS NEEDS SOME CHANGES, BUT IT DOES WORK. 03018/090 TEXTFORM HYPHDICT D G ETC:TXTFHYPHDICT 5.0T4 86 TEXTFORM.HYPHDICT.D.090 1 LINE 22 4 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:49 5.0T9 369 ETC:TXTFHYPHDICT 0 THE HYPHENATION DICTIONARY. 03018/091 TEXTFORM WIDTHS D G ETC:TXTFWIDS 5.0T4 87 TEXTFORM.WIDTHS.D.091 1 LINE 1702 192 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:20:51 5.0T9 370 ETC:TXTFWIDS 0 WIDTH TABLES "LIBRARY" FOR OUTPUT PROCESSORS, AS CREATED BY TBLGEN (3018/38). 0 Referenced by comments of: 3018/171 03018/092 TEXTFORM FUNCDEFS D G TXTF:SYSFUNCS 5.0T4 88 TEXTFORM.FUNCDEFS.D.092 1 LINE 137 8 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:00 5.0T9 371 03018/093 TEXTFORM NEWOBJ OC G TXTF:NEWSYS 5.0T4 89 TEXTFORM.NEWOBJ.OC.093 1 LINE 33 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:01 5.0T9 372 0 CONTAINS A COM CARD, AND $CONTINUE WITHS FOR THE OBJECT MODULES IN TEXTFORM. USED BY BUILD (3018/111). 03018/094 TEXTFORM BUILD.SUPP C TXTF:BUILD.SUPP 5.0T4 90 TEXTFORM.BUILD.SUPP.C.094 1 LINE 129 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:02 5.0T9 373 0 REFERS TO "*FORTG". 1 MON AUG 05/96 18:37:45 Page 761 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/095 TEXTFORM ODT.AJ.IWD D TXTF:ODT.AJ.IWD 5.0T4 91 TEXTFORM.ODT.AJ.IWD.D.095 1 LINE 58 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:03 5.0T9 374 0 GENTAB (3018/38) INPUT FOR ANDERSON-JACOBSON 832 TERMINAL WIDTH/INTERNAL TABLES. 03018/096 TEXTFORM ODT.ALA.IWD D TXTF:ODT.ALA.IWD 5.0T4 92 TEXTFORM.ODT.ALA.IWD.D.096 1 LINE 65 4 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:04 5.0T9 375 0 GENTAB (3018/38) INPUT FOR IBM 1403 PRINTER ALA PRINT TRAIN WIDTH/INTERNAL TABLES. 03018/097 TEXTFORM ODT.AMM.IWD D TXTF:ODT.AMM.IWD 5.0T4 93 TEXTFORM.ODT.AMM.IWD.D.097 1 LINE 107 22 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:04 5.0T9 376 0 GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER MATH DISK WIDTH/INTERNAL TABLES. 03018/098 TEXTFORM ODT.AMS.IWD D TXTF:ODT.AMS.IWD 5.0T4 94 TEXTFORM.ODT.AMS.IWD.D.098 1 LINE 79 17 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:06 5.0T9 377 0 GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER SCHOOLBOOK DISK WIDTH/INTERNAL TABLES. 03018/099 TEXTFORM ODT.AMT.IWD D TXTF:ODT.AMT.IWD 5.0T4 95 TEXTFORM.ODT.AMT.IWD.D.099 1 LINE 79 15 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:08 5.0T9 378 0 GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER TIMES-ROMAN DISK WIDTH/INTERNAL TABLES. 03018/100 TEXTFORM ODT.AMU.IWD D TXTF:ODT.AMU.IWD 5.0T4 96 TEXTFORM.ODT.AMU.IWD.D.100 1 LINE 79 17 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:10 5.0T9 379 0 GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER UNIVERS DISK WIDTH/INTERNAL TABLES. 03018/101 TEXTFORM ODT.APL.IWD D TXTF:ODT.APL.IWD 5.0T4 97 TEXTFORM.ODT.APL.IWD.D.101 1 LINE 67 4 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:11 5.0T10 1 0 GENTAB (3018/38) INPUT FOR IBM 1403 PRINTER APL PRINT TRAIN WIDTH/INTERNAL TABLES. 03018/102 TEXTFORM ODT.CHK D TXTF:ODT.CHK 5.0T4 98 TEXTFORM.ODT.CHK.D.102 1 LINE 86 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:12 5.0T10 2 1 MON AUG 05/96 18:37:45 Page 762 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/103 TEXTFORM ODT.CHSPCN D # TXTF:ODT.CHSPCN UQV TXTFGROUP LIFT 0 No longer required. 03018/104 TEXTFORM ODT.DECWR.IW D TXTF:ODT.DECWR.IW 5.0T4 99 TEXTFORM.ODT.DECWR.IW.D.104 1 LINE 65 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:13 5.0T10 3 0 GENTAB (3018/38) INPUT FOR DECWRITER TERMINAL WIDTH/INTERNAL TABLES. 03018/105 TEXTFORM ODT.DSECT.CH C TXTF:ODT.DSECT.CH 5.0T4 100 TEXTFORM.ODT.DSECT.CH.C.105 1 LINE 71 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:14 5.0T10 4 0 COMMANDS TO GENERATE WIDTH AND INTERNAL TABLES FOR OUTPUT DEVICE AND PROOF PROCESSORS. DTC302 TERMINAL SUPPORT IS NOT YET INCLUDED. CONTAINS MANY $CONTINUE WITH RECORDS FOR TEXTFORM SOURCE COMPONENTS (SOME OF WHICH HAVE NOT BEEN DISTRIBUTED BY UQV). 03018/106 TEXTFORM ODT.P1403M.I D TXTF:ODT.P1403M.I 5.0T4 101 TEXTFORM.ODT.P1403M.I.D.106 1 LINE 65 10 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:15 5.0T10 5 0 GENTAB (3018/38) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR AM748 PHOTOTYPESETTER MATH DISK. 03018/107 TEXTFORM ODT.P1403S.I D # TXTF:ODT.P1403S.I UQV TXTFGROUP LIFT 0 This information is now included in (3018/109). 03018/108 TEXTFORM ODT.P1403T.I D # TXTF:ODT.P1403T.I UQV TXTFGROUP LIFT 0 This information is now included in (3018/109). 03018/109 TEXTFORM ODT.P1403U.I D TXTF:ODT.P1403U.I 5.0T4 102 TEXTFORM.ODT.P1403U.I.D.109 1 LINE 68 7 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:16 5.0T10 6 0 GENTAB (3018/38) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR AM748 PHOTOTYPESETTER DISKS. 0 Referenced by comments of: 3018/107, 3018/108 03018/110 TEXTFORM PERMITS C TXTF:PERMITS 5.0T4 103 TEXTFORM.PERMITS.C.110 1 LINE 70 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:17 5.0T10 7 0 COMMANDS TO CREATE AND PERMIT FILES NEEDED FOR A NEW: VERSION OF TEXTFORM. 1 MON AUG 05/96 18:37:45 Page 763 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/111 TEXTFORM BUILD C TXTF:BUILD 5.0T4 104 TEXTFORM.BUILD.C.111 1 LINE 679 8 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:18 5.0T10 8 0 Command file to assemble all of TEXTFORM. 0 Referenced by comments of: 3018/93 03018/112 TEXTFORM PUBLISH CRSE WX TXTF:PUB.OUT 5.0T4 105 TEXTFORM.PUBLISH_CRSE.WX.112 1 LINE 121 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:19 5.0T10 9 0 MATERIAL FOR COMPUTER ASSISTED PUBLISHING WITH TEXTFORM COURSE. 03018/113 TEXTFORM AM CHAR TEST WX TXTF:AMCST 5.0T4 106 TEXTFORM.AM_CHAR_TEST.WX.113 1 LINE 124 4 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:19 5.0T10 10 0 AM748 PHOTOTYPESETTER DESCRIPTION. 03018/114 TEXTFORM APS CHAR TEST WX TXTF:APSCST 5.0T4 107 TEXTFORM.APS_CHAR_TEST.WX.114 1 LINE 132 7 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:20 5.0T10 11 0 APS5 PHOTOTYPESETTER DESCRIPTION. 03018/115 TEXTFORM CMDPAC SA G TXTF:CMDPAC.S 5.0T4 108 TEXTFORM.CMDPAC.SA.115 1 LINE 80 20 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:21 5.0T10 12 0 INTERNAL PAGE COMMAND BUILDER SUBROUTINES. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/116 TEXTFORM PPDPAC SA G TXTF:PPDPAC.S 5.0T4 109 TEXTFORM.PPDPAC.SA.116 1 LINE 80 18 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:23 5.0T10 13 0 LOGICAL BACKSPACE, TABLE PRINTER, AND OTHER SUBROUTINES. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/117 TEXTFORM LPPAC SA G TXTF:LPPAC.S 5.0T4 110 TEXTFORM.LPPAC.SA.117 1 LINE 80 48 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:25 5.0T10 14 0 TABLE AND LOGICAL PAGE SUBROUTINES. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/118 TEXTFORM NUCLEUS DSECT SA G TXTF:NUCLEUS 5.0T4 111 TEXTFORM.NUCLEUS_DSECT.SA.118 1 LINE 81 35 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:28 5.0T10 15 0 CONTAINS THE NUCLEUS DSECT, WHICH IS COPIED BY MOST PARTS OF TEXTFORM 1 MON AUG 05/96 18:37:45 Page 764 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 VIA THE TENTER MACRO. 0 Referenced by comments of: 3018/33 03018/119 TEXTFORM GBLD SA G TXTF:GBLD 5.0T4 112 TEXTFORM.GBLD.SA.119 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:33 5.0T10 16 0 CONTAINS GLOBAL SYMBOL DEFINITIONS, WHICH ARE COPIED BY MANY TEXTFORM SUBCOMPONENTS. 0 Referenced by comments of: 3018/22, 3018/120 03018/120 TEXTFORM GBLC SA G TXTF:GBLC 5.0T4 113 TEXTFORM.GBLC.SA.120 1 LINE 80 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:34 5.0T10 17 0 COMMENTS DESCRIBING SYMBOLS IN GBLD (3018/119). THIS IS COPIED BY MANY TEXTFORM SUBCOMPONENTS. 0 Referenced by comments of: 3018/13, 3018/14, 3018/15, 3018/16, 3018/18, 3018/19, 3018/20, 3018/21, 3018/23, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36, 3018/37, 3018/38, 3018/41, 3018/44, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/115, 3018/116, 3018/117, 3018/136, 3018/137, 3018/147, 3018/149, 3018/151, 3018/152, 3018/158 03018/121 TEXTFORM FILES C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.FILES.C.124 5.0T4 114 TEXTFORM.FILES.C.121 1 LINE 70 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 22:01:19 5.0T10 18 0 PROTOTYPE FOR COMMAND FILE TO COPY FILES BETWEEN NEW:, OLD:, AND ETC:. USE $EDIT TO PUT IN THE IDS. 03018/122 TEXTFORM XCWID C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.XCWID.C.125 5.0T4 115 TEXTFORM.XCWID.C.122 1 LINE 72 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 22:01:19 5.0T10 19 0 COMMANDS TO COPY TXTFWIDS --> TXTFWIDS --> OLDTWIDS (THE WIDTH TABLES). 03018/123 TEXTFORM APSWID D TXTF:APS.WID.D 5.0T4 116 TEXTFORM.APSWID.D.123 1 LINE 400 11 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:48 5.0T10 20 0 CHARACTER WIDTHS FOR THE APS5 PHOTOTYPESETTER. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/124 TEXTFORM APSWID C TXTF:APSWID.C 5.0T4 117 TEXTFORM.APSWID.C.124 1 LINE 98 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:49 5.0T10 21 0 COMMANDS TO CREATE GENTAB (3018/38) INPUT FOR THE APS5 PHOTOTYPESETTER. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 1 MON AUG 05/96 18:37:45 Page 765 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/125 TEXTFORM APSCOM D TXTF:APSKOM.C 5.0T4 118 TEXTFORM.APSCOM.D.125 1 LINE 93 8 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:21:50 5.0T10 22 0 APS5 PHOTOTYPESETTER CHARACTER NAMES. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/126 TEXTFORM APSMERGE SF G S1089 UQV36 FSNAME=TEXTFORM.APSMERGE.SF.129 5.0T4 119 TEXTFORM.APSMERGE.SF.126 1 LINE 80 17 PAGE UQV TXTFGROUP LIFT FEB. 29, 1980 10:02:13 5.0T10 23 0 PROGRAM USED IN CONSTRUCTING APS5 PHOTOTYPESETTER WIDTH/INTERNAL TABLES. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 0 Referenced by comments of: 3018/153 03018/127 TEXTFORM APSDUMP SF G TXTF:APSDMP.FS 5.0T4 120 TEXTFORM.APSDUMP.SF.127 1 LINE 58 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:13 5.0T10 24 03018/128 TEXTFORM APSDUMP SA G TXTF:APSDMP.S 5.0T4 121 TEXTFORM.APSDUMP.SA.128 1 LINE 72 7 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:14 5.0T10 25 0 ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/129 TEXTFORM APSREPAGE SF G S1089 UQV36 FSNAME=TEXTFORM.APS5_REPAGER.SF.132 5.0T4 122 TEXTFORM.APSREPAGE.SF.129 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT FEB. 29, 1980 10:02:19 5.0T10 26 03018/130 TEXTFORM LAY.APA D TXTF:LAY.APA 5.0T4 123 TEXTFORM.LAY.APA.D.130 1 LINE 248 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:16 5.0T10 27 0 LAYOUT APA. 03018/131 TEXTFORM LAY.JPAL D TXTF:LAY.JPAL 5.0T4 124 TEXTFORM.LAY.JPAL.D.131 1 LINE 223 4 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:17 5.0T10 28 0 LAYOUT JPALEON. 03018/132 TEXTFORM LAY.NUM D TXTF:LAY.NUM 5.0T4 125 TEXTFORM.LAY.NUM.D.132 1 LINE 250 6 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:17 5.0T10 29 0 LAYOUT NUMERATE. (LOCATION OF DOCUMENTATION UNKNOWN.) 03018/133 TEXTFORM LAY.SPI D TXTF:LAY.SPI 5.0T4 126 TEXTFORM.LAY.SPI.D.133 1 LINE 229 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:18 5.0T10 30 0 LAYOUT SPIRES. 1 MON AUG 05/96 18:37:45 Page 766 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/134 TEXTFORM LAY.THENUM D TXTF:LAY.THENUM 5.0T4 127 TEXTFORM.LAY.THENUM.D.134 1 LINE 197 6 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:19 5.0T10 31 0 LAYOUT THESISNUMERATE. 03018/135 TEXTFORM LISTCALCHARS SF G S1089 UQV36 FSNAME=TEXTFORM.LISTCALCHARS.SF.138 5.0T4 128 TEXTFORM.LISTCALCHARS.SF.135 1 LINE 73 4 PAGE UQV TXTFGROUP LIFT FEB. 29, 1980 10:02:33 5.0T10 32 0 PROGRAM TO PRODUCE WIDTH/INTERNAL TABLES FOR THE CALCOMP OUPUT DEVICE PROCESSOR (3018/137). READS ETC:PLOTALPHA (615/8). 0 Referenced by comments of: 3018/155 03018/136 TEXTFORM OD.APS5 SA G TXTF:OD.APS5.S 5.0T4 129 TEXTFORM.OD.APS5.SA.136 1 LINE 81 56 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:21 5.0T10 33 0 OUTPUT DEVICE PROCESSOR FOR THE APS5 PHOTOTYPESETTER. OBJECT IS IN TXTFODS (3018/156). COPIES GBLC (3018/120), GBLS (3018/22), AND XODGETM (3018/144). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/137 TEXTFORM OD.CALCOMP SA G TXTF:OD.CALCOMP.S 5.0T4 130 TEXTFORM.OD.CALCOMP.SA.137 1 LINE 80 28 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:26 5.0T10 34 0 CALCOMP OUTPUT DEVICE PROCESSOR. USES UM'S PLOTSYS (615/9); OTHER INSTALLATIONS MAY HAVE TO MAKE MINOR CHANGES SO THAT IT WILL WORK. COPIES XODGETM (3018/144), GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/135 03018/138 TEXTFORM ODT.AMC.IWD D TXTF:ODT.AMC.IWD 5.0T4 131 TEXTFORM.ODT.AMC.IWD.D.138 1 LINE 79 16 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:28 5.0T10 35 0 GENTAB (3018/38) INPUT FOR AM748 PHOTOTYPESETTER CHELMSFORD DISK WIDTH/INTERNAL TABLES. 03018/139 TEXTFORM ODT.CALC.ID D TXTF:ODT.CALC.ID 5.0T4 132 TEXTFORM.ODT.CALC.ID.D.139 1 LINE 91 37 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:30 5.0T10 36 0 GENTAB (3018/38) INPUT FOR CALCOMP OUTPUT DEVICE PROCESSOR INTERNAL TABLES. 03018/140 TEXTFORM ODT.SKEL.IWD D TXTF:ODT.SKEL.IWD 5.0T4 133 TEXTFORM.ODT.SKEL.IWD.D.140 1 LINE 65 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:33 5.0T10 37 0 GENTAB (3018/38) INPUT FOR SKELETON OR SAMPLE WIDTH/INTERNAL TABLES. USEFUL WHEN WRITING A NEW OUTPUT DEVICE PROCESSOR. 1 MON AUG 05/96 18:37:45 Page 767 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/141 TEXTFORM ODT.APS.ID D TXTF:ODT.APS.ID 5.0T4 134 TEXTFORM.ODT.APS.ID.D.141 1 LINE 56 192 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:34 5.0T10 38 0 GENTAB (3018/38) INPUT FOR INTERNAL TABLES FOR APS5 PHOTOTYPESETTER OUTPUT DEVICE PROCESSOR. 03018/142 TEXTFORM ODT.APS.WD D TXTF:ODT.APS.WD 5.0T4 135 TEXTFORM.ODT.APS.WD.D.142 1 LINE 56 188 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:46 5.0T10 39 0 GENTAB (3018/38) INPUT FOR WIDTH TABLES FOR APS5 PHOTOTYPESETTER OUTPUT DEVICE PROCESSOR. 03018/143 TEXTFORM ODT.PAPS.IWD D TXTF:ODT.PAPS.IWD 5.0T4 136 TEXTFORM.ODT.PAPS.IWD.D.143 1 LINE 73 19 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:57 5.0T10 40 0 GENTAB (3018/38) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF DEVICE FOR APS5 OUTPUT DEVICE PROCESSOR. 03018/144 TEXTFORM ODPDTESTMACS SA G TXTF:XODTGETM.S 5.0T4 137 TEXTFORM.ODPDTESTMACS.SA.144 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:27:59 5.0T10 41 0 THIS IS A FILE WHICH CURRENTLY CONTAINS ONLY COMMENTS, BUT WHICH IS INTENDED TO CONTAIN MACROS AND/OR COPY SECTIONS COPIED BY OUTPUT DEVICE AND PROOF DEVICE PROCESSORS. 0 Referenced by comments of: 3018/13, 3018/34, 3018/35, 3018/37, 3018/41, 3018/44, 3018/45, 3018/46, 3018/50, 3018/136, 3018/137 03018/145 TEXTFORM AJDITTO SF G S1089 UQV36 FSNAME=TEXTFORM.AJDITTO.SF.148 5.0T4 138 TEXTFORM.AJDITTO.SF.145 1 LINE 71 4 PAGE UQV TXTFGROUP LIFT FEB. 29, 1980 10:03:53 5.0T10 42 0 AN *DITTO-LIKE PROGRAM FOR TEXTFORM OUTPUT TO THE ANDERSON-JACOBSON 832 TERMINAL. 0 Referenced by comments of: 3018/146 03018/146 TEXTFORM AJDITTO WX S1089 UQV36 FSNAME=TEXTFORM.AJDITTO.WX.149 5.0T4 139 TEXTFORM.AJDITTO.WX.146 1 LINE 144 3 PAGE UQV TXTFGROUP LIFT FEB. 29, 1980 10:03:55 5.0T10 43 0 DOCUMENTATION FOR (3018/145). 03018/147 TEXTFORM WIDCONV SA G TXTF:WIDCONV.S 5.0T4 140 TEXTFORM.WIDCONV.SA.147 1 LINE 80 20 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:06 5.0T10 44 0 FUNCTION WHICH TAKES WIDTH/INTERNAL TABLES AND ADDS DIRECTORY INFORMATION REQUIRED BY TXTFODCM (3018/42) AND TXTFPDCM (3018/47). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) 1 MON AUG 05/96 18:37:45 Page 768 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/148, 3018/149, 3018/161 03018/148 TEXTFORM WIDCONV D TXTF:WCONV.D 5.0T4 141 TEXTFORM.WIDCONV.D.148 1 LINE 681 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:08 5.0T10 45 0 DATA FOR WIDCONV (3018/147). 03018/149 TEXTFORM WIDPAC SA O TXTF:WIDPAC.S 5.0T4 142 TEXTFORM.WIDPAC.SA.149 1 LINE 80 22 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:09 5.0T10 46 0 CPRDNET (ETC.) USED BY WIDCONV (3018/147). COPIES GBLC (3018/120), AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 03018/150 TEXTFORM ODT.CALC.WD D TXTF:ODT.CALC.WD 5.0T4 143 TEXTFORM.ODT.CALC.WD.D.150 1 LINE 95 37 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:11 5.0T10 47 0 GENTAB (3018/38) INPUT FOR CALCOMP OUTPUT DEVICE PROCESSOR WIDTH TABLES. 03018/151 TEXTFORM FNCHI SA G TXTF:FNCHI.S 5.0T4 144 TEXTFORM.FNCHI.SA.151 1 LINE 80 23 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:14 5.0T10 48 0 CONTAINS THE FONTINFO AND CHARINFO SUBROUTINES TO GET FONT OR CHARACTER INFORMATION. OBJECT IN TXTFFNS (3018/157). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/157 03018/152 TEXTFORM GETDATA SA G TXTF:GTXTDAT.S 5.0T4 145 TEXTFORM.GETDATA.SA.152 1 LINE 80 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:16 5.0T10 49 0 CONTAINS THE GTXTDAT SUBROUTINES TO READ TEXT FROM GUSER AND PASS IT TO TXTFDRVR, IN (3018/19). OBJECT IN TXTFFNS (3018/157). COPIES GBLC (3018/120) AND GBLS (3018/22). ASSEMBLE WITH 2=MACROS (3018/59) AND 3=DSECTS (3018/60). 0 Referenced by comments of: 3018/157 03018/153 TEXTFORM APS.DCT.D D TXTF:APS.DCT.D 5.0T4 146 TEXTFORM.APS.DCT.D.D.153 1 LINE 279 5 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:17 5.0T10 50 0 DATA TO APSMERG (3018/126). 03018/154 TEXTFORM CALCWID C TXTF:CALCWID.C 5.0T4 147 TEXTFORM.CALCWID.C.154 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:18 5.0T10 51 1 MON AUG 05/96 18:37:45 Page 769 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/155 TEXTFORM CALC.ID D TXTF:CALC.ID 5.0T4 148 TEXTFORM.CALC.ID.D.155 1 LINE 85 45 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:19 5.0T10 52 0 DATA TO LISTCALCHARS (3018/135). SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/156A TEXTFORM TXTFODS OL O ETC:TXTFODS 5.0T4 149 TEXTFORM.TXTFODS.OL.156 1 LINE 10130 23 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:23 5.0T10 53 ETC:TXTFODS 0 OBJECT OF ALL OUTPUT DEVICE PROCESSORS. 0 Referenced by comments of: 3018/13, 3018/34, 3018/35, 3018/41, 3018/44, 3018/45, 3018/46, 3018/50, 3018/136, 3018/158 03018/157 TEXTFORM TXTFFNS OL G ETC:TXTFFNS 5.0T4 150 TEXTFORM.TXTFFNS.OL.157 1 LINE 2128 3 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:25 5.0T10 54 ETC:TXTFFNS 0 CONTAINS THE FONTINFO, CHARINFO AND TXTDAT SUBROUTINES. SOURCE IN (3018/151) AND (3018/152). 0 Referenced by comments of: 3018/151, 3018/152 03018/158A TEXTFORM OD.DTC302 SA O TXTF:OD.DTC302.S 5.0T4 151 TEXTFORM.OD.DTC302.SA.158 1 LINE 72 18 PAGE UM LIFT JULY 03, 1981 21:28:26 5.0T10 55 0 OUTPUT DEVICE PROCESSOR FOR A DTC302 AND DIABLO 1620 "DAISY-WHEEL" TERMINALS AND NEC SPINWRITER S520. HAS 1/60TH INCH HORIZONTAL. THE FOLLOWING FEATURES ARE NOT YET IMPLEMENTED: SUBSCRIPTS, SUPERSCRIPTS, 1/48TH INCH VERTICAL UNIT, SPECIAL CHARACTERS, MID-PAGE WHEEL CHANGES, AND OTHERS. SEE ASSEMBLY PARAMETER &WHICH TO GET TERMINAL TYPE. OBJECT IN TXTFODS (3018/156). ASSEMBLE USING *ASMH WITH 2=MACROS (3018/59), 3=DSECTS (3018/60). COPIES GBLC (3018/120) AND GBLS (3018/22). 03018/159 TEXTFORM DTC302 TABLES D TXTF:WIDDTC302 5.0T4 152 TEXTFORM.DTC302_TABLES.D.159 1 LINE 64 1 PAGE UM LIFT JULY 03, 1981 21:28:28 5.0T10 56 0 WIDTH TABLES FOR DTC302. PROCESS WITH TBLGEN (3018/38). NEEDS IMPROVEMENTS, BUT USABLE AS IS. 03018/160 TEXTFORM OD.TBLGEN OC G TXTF:OD.TBLGEN.O 5.0T4 153 TEXTFORM.OD.TBLGEN.OC.160 1 LINE 80 14 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:29 5.0T10 57 0 OBJECT OF (3018/38). EXECUTES AS A TEXTFORM FUNCTION. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 0 Referenced by comments of: 3018/38 1 MON AUG 05/96 18:37:45 Page 770 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/161 TEXTFORM WIDCONV OC G TXTF:WIDCONV.O 5.0T4 154 TEXTFORM.WIDCONV.OC.161 1 LINE 80 10 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:30 5.0T10 58 0 OBJECT OF (3018/147). EXECUTES AS A TEXTFORM FUNCTION. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/162 TEXTFORM OD.DOC OC G TXTF:OD.DOC.O 5.0T4 155 TEXTFORM.OD.DOC.OC.162 1 LINE 80 10 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:32 5.0T10 59 0 OBJECT OF (3018/36). EXECUTES AS A TEXTFORM FUNCTION. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 0 Referenced by comments of: 3018/36 03018/163 TEXTFORM TXTFLOG D # ETC:TXTFLOG UQV TXTFGROUP LIFT ETC:TXTFLOG@E 0 LOG FILE WRITTEN BY *TEXTFORM FOR EACH RUN OF *TEXTFORM BY A USER. CONTENTS SAVED ON TAPE BY WEEKLY PROCEDURE. SEE LOGJOB (3018/78). THIS SHOULD BE PERMITTED WE (PKEY=NEW:TEXTFORM,PKEY=*TEXTFORM,PKEY=OLD:TEXTFORM). 0 Referenced by comments of: 3018/78, 3018/164, 3018/166, 3018/167 03018/164 TEXTFORM LOG SA G TXTF:LOG.S 5.0T4 156 TEXTFORM.LOG.SA.164 1 LINE 69 3 PAGE UM LIFT LIFT JULY 03, 1981 21:28:33 5.0T10 60 0 THIS IS THE LOGSAVING PROGRAM DEVELOPED AND USED BY UM. IT DETERMINES IF ETC:TXTFLOG (3018/163), THE TEXTFORM STATISTICS FILE, SHOULD BE SAVED, BASED ON THE TIME OF THE LAST SAVE. IF THE PROGRAM DETERMINES THAT THE STATISTICS FILE SHOULD BE SAVED, IT SUBMITS A BATCH JOB, (3018/169, WHICH WILL RUN THE LOGSAVE PROGRAM, (3018/167), TO SAVE THE STATISTICS FILE ON TAPE. IT ALSO REPORTS ERRORS WHICH OCCURRED WHILE SAVING ETC:TXTFLOG. 03018/165 TEXTFORM LOG OC G TXTF:LOG.O 5.0T4 157 TEXTFORM.LOG.OC.165 1 LINE 80 2 PAGE UM LIFT LIFT JULY 03, 1981 21:28:34 5.0T10 61 03018/166 TEXTFORM LOGJOB C G TXTF:LOGSAVEJOB 5.0T4 158 TEXTFORM.LOGJOB.C.166 1 LINE 53 1 PAGE UM LIFT LIFT JULY 03, 1981 21:28:35 5.0T10 62 0 BATCH JOB TO SAVE ETC:TXTFLOG (3018/163), THE TEXTFORM STATISTICS FILE, ON TAPE. THESE COMMANDS RUN THE LOGSAVE PROGRAM (3018/167). NEGATIVE LINE NUMBERS CONTAIN INFORMATION USED BY LOGSAVE. THE PASSWORD MUST BE SUPPLIED ON LINE 2 AND THE MOUNT COMMAND ON LINE -1 MUST BE MODIFIED BEFORE IT IS ACTUALLY USED. 0 Referenced by comments of: 3018/167 1 MON AUG 05/96 18:37:45 Page 771 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/167 TEXTFORM LOGSAVE SA G S1089 UQV36 FSNAME=TEXTFORM.LOGSAVE.SA.260 5.0T4 159 TEXTFORM.LOGSAVE.SA.167 1 LINE 67 4 PAGE UM LIFT LIFT FEB. 29, 1980 10:08:11 5.0T10 63 0 PROGRAM TO SAVE ETC:TXTFLOG (3018/163), THE TEXTFORM STATISTICS FILE, ON TAPE. THE PROGRAM IS RUN BY COMMANDS IN (3018/166). 0 Referenced by comments of: 3018/164, 3018/166 03018/168 TEXTFORM LOGSAVE OC G S1089 UQV36 FSNAME=TEXTFORM.LOGSAVE.OC.261 5.0T4 160 TEXTFORM.LOGSAVE.OC.168 1 LINE 80 2 PAGE UM LIFT LIFT FEB. 29, 1980 10:08:12 5.0T10 64 03018/169 TEXTFORM BUGS P TXTF:TEXTFORM.BUG 5.0T4 161 TEXTFORM.BUGS.P.169 1 LINE 68 1 PAGE UQV TXTFGROUP LIFT JULY 03, 1981 21:28:58 5.0T10 65 0 LIST OF SOME VERSION 1 BUGS. 03018/170 TEXTFORM INSTNOTES WX S1089 UQV36 FSNAME=TEXTFORM.INSTALL_GUIDE.WX.266 5.0T4 162 TEXTFORM.INSTNOTES.WX.170 1 LINE 89 4 PAGE UM LIFT FEB. 29, 1980 10:08:27 5.0T10 66 0 NOTES COMPILED WHILE INSTALLING VERSION 1 OF TEXTFORM AT UM. 03018/171 TEXTFORM WIDUTIL SA S TXTF:WIDUTIL 5.0T4 163 TEXTFORM.WIDUTIL.SA.171 1 LINE 72 14 PAGE UM LIFT JULY 03, 1981 21:29:02 5.0T10 67 0 OBJUTIL FOR OUTPUT PROCESSOR WIDTH TABLE LIBRARIES, E.G., ETC:TXTFWIDS (3018/91). THIS IS A STAND-ALONE PROGRAM. ASSEMBLE WITH 2=DSECTS (3018/60). COPIES GBLS (3018/22). THIS IS A PRELIMINARY VERSION. 03018/172 TEXTFORM WIDUTIL OC S TXTF:WIDUTILX 5.0T4 164 TEXTFORM.WIDUTIL.OC.172 1 LINE 80 5 PAGE UM LIFT JULY 03, 1981 21:29:05 5.0T10 68 03018/173 TEXTFORM WIDUTIL WX TXTF:WWIDUTIL 5.0T4 165 TEXTFORM.WIDUTIL.WX.173 1 LINE 72 4 PAGE UM LIFT JULY 03, 1981 21:29:06 5.0T10 69 0 USAGE AND INTERNALS WRITEUP FOR THE PRELIMINARY VERSION OF WIDUTIL. 03018/174 TEXTFORM MACROS WX S COPY:JONMACLIBTXT 5.0T4 166 TEXTFORM.MACROS.WX.174 1 LINE 143 7 PAGE UBC DUKE UNSP JULY 03, 1981 21:29:06 5.0T10 70 0 THIS FILE CONTAINS A LARGE NUMBER OF TEXTFORM MACROS, ETC. DEVELOPED BY JON NIGHTINGALE AND TINA DUKE TO CORRESPOND TO JON:MACLIB WHICH IS DISTRIBUTED BY UM AS (308/18), FOR PRODUCING DOCUMENTS IN UBC STYLE. THIS IS A PRELIMINARY VERSION. 0 Referenced by comments of: 1042/59, 1076/12 1 MON AUG 05/96 18:37:45 Page 772 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03018/175 TEXTFORM LAY.TYNE D O S1431 4.3T2 VLO FSNAME=TEXTFORM.LAY.TYNE.D.178(1) 553 5.0T4 167 TEXTFORM.LAY.TYNE.D.175 1 LINE 160 9 PAGE UNE HUNTER LIFT FEB. 09, 1980 16:08:43 5.0T10 71 0 NUMAC documentation group standards layout. 03018/176 TEXTFORM LAY.DEE D O S1431 4.3T2 VLO FSNAME=TEXTFORM.LAY.DEE.D.179(1) 554 5.0T4 168 TEXTFORM.LAY.DEE.D.176 1 LINE 187 9 PAGE UNE HUNTER LIFT FEB. 09, 1980 16:08:49 5.0T10 72 0 NUMAC general layout with numbered headings. 03019/001 VAM748 # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO SIMULATE THE AM748 ON A LINE PRINTER. 03020/001 FASTSET # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO CONVERT EBCDIC TEXT (PLUS A BUNCH OF CONTROLS) TO AM748 PHOTOTYPESETTER INPUT. 03021/001 SETUP-DECK MAKER # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO GENERATE SETUP DECKS USING VARYING CARD STOCKS. 03023/001 *ASSIST SERVICE MODULE SA G S0565 D4T3 VLO FSNAME=ASSIST.SERVICE_MODULE.SA.003(1) 724 5.0T4 169 ASSIST.SERVICE_MODULE.SA.001 1 LINE 80 143 PAGE UQV BODWIN JUNE 22, 1977 22:07:17 5.0T10 73 0 BASE SOURCE FOR ASSIST SERVICE MODULE (I.E., I/O, MAIN PROGRAM, INTERRUPTS, ETC.). ASSEMBLE WITH ASSISTMACLIB (3023/10). 0 Referenced by comments of: 309/1, 3023/2, 3023/10 03023/002 *ASSIST SERVICE MODULE UU G S1320 D4.2T2 VLO FSNAME=ASSIST.SERVICE_MODULE.UU.002(1) 424 5.0T4 170 ASSIST.SERVICE_MODULE.UU.002 1 LINE 72 30 PAGE UQV BODWIN DEC. 17, 1978 15:40:57 5.0T10 74 0 UPDATE TO BE APPLIED TO (3023/1) TO YIELD SERVICE MODULE SOURCE. ASSEMBLE UPDATED SOURCE USING ASSISTMACLIB (3023/10). 0 Referenced by comments of: 3023/11 03023/003 *ASSIST ASSEMBLER SA G S0565 D4T3 VLO FSNAME=ASSIST.ASSEMBLER.SA.005(1) 726 5.0T4 171 ASSIST.ASSEMBLER.SA.003 1 LINE 80 185 PAGE UQV BODWIN JUNE 22, 1977 22:07:35 5.0T10 75 0 BASE SOURCE FOR ASSEMBLER OF THE ASSIST PACKAGE. 1 MON AUG 05/96 18:37:45 Page 773 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 3023/4, 3023/10 03023/004 *ASSIST ASSEMBLER UU G S1320 D4.2T2 VLO FSNAME=ASSIST.ASSEMBLER.UU.004(1) 425 5.0T4 172 ASSIST.ASSEMBLER.UU.004 1 LINE 72 7 PAGE UQV BODWIN DEC. 17, 1978 15:41:04 5.0T10 76 0 UPDATE TO BE APPLIED TO (3023/3) TO YIELD ASSEMBLER SOURCE. ASSEMBLE UPDATED SOURCE USING ASSISTMACLIB (3023/10). 0 Referenced by comments of: 3023/11 03023/005 *ASSIST MACRO PHASE SA G S0565 D4T3 VLO FSNAME=ASSIST.MACRO_PHASE.SA.007(1) 728 5.0T4 173 ASSIST.MACRO_PHASE.SA.005 1 LINE 80 139 PAGE UQV BODWIN JUNE 22, 1977 22:07:59 5.0T10 77 0 BASE SOURCE FOR MACRO PROCESSOR OF ASSIST PACKAGE. 0 Referenced by comments of: 3023/6, 3023/10 03023/006 *ASSIST MACRO PHASE UU G S1320 D4.2T2 VLO FSNAME=ASSIST.MACRO_PHASE.UU.006(1) 426 5.0T4 174 ASSIST.MACRO_PHASE.UU.006 1 LINE 72 1 PAGE UQV BODWIN DEC. 17, 1978 15:41:09 5.0T10 78 0 UPDATE TO BE APPLIED TO (3023/5) TO YIELD MACRO PROCESSOR SOURCE. ASSEMBLE UPDATED SOURCE USING ASSISTMACLIB (3023/10). 0 Referenced by comments of: 3023/11 03023/007 *ASSIST SIMULATOR SA G S1320 D4.2T2 VLO FSNAME=ASSIST.SIMULATOR.SA.007(1) 427 5.0T4 175 ASSIST.SIMULATOR.SA.007 1 LINE 80 74 PAGE UQV BODWIN FEB. 12, 1979 16:01:18 5.0T10 79 0 Referenced by comments of: 3023/8 03023/008 *ASSIST SIMULATOR UU G S1320 D4.2T2 VLO FSNAME=ASSIST.SIMULATOR.UU.008(1) 428 5.0T4 176 ASSIST.SIMULATOR.UU.008 1 LINE 72 5 PAGE UQV BODWIN DEC. 17, 1978 15:41:37 5.0T10 80 0 UPDATE TO BE APPLIED TO (3023/7) TO YIELD SIMULATOR SOURCE. 0 Referenced by comments of: 3023/11 03023/009 *ASSIST INTERFACE SA G S1320 D4.2T2 VLO FSNAME=ASSIST.INTERFACE.SA.009(1) 429 5.0T4 177 ASSIST.INTERFACE.SA.009 1 LINE 80 5 PAGE UQV BODWIN DEC. 17, 1978 15:50:37 5.0T10 81 0 INTERFACE TO FIX (1002) FOR ASSIST I/O. COPIES FIODSECT (1002/5). 0 Referenced by comments of: 3023/11 1 MON AUG 05/96 18:37:45 Page 774 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03023/010 *ASSIST MACRO LIB SM G S1320 D4.2T2 VLO FSNAME=ASSIST.MACRO_LIB.SM.010(1) 430 5.0T4 178 ASSIST.MACRO_LIB.SM.010 1 LINE 80 108 PAGE UQV BODWIN DEC. 18, 1978 15:22:02 5.0T10 82 0 MACRO LIBRARY USED BY UPDATED (3023/1), (3023/3), AND (3023/5). INCLUDES THE OLD, NO LONGER DISTRIBUTED, SOURCE1 (SUNDRIES) AS A COPY SECTION. OLD SOURCE1 UPDATES INCLUDED. 0 Referenced by comments of: 3023/1, 3023/2, 3023/4, 3023/6, 3023/11 03023/011A *ASSIST *ASSIST OE G *ASSIST 5.0T4 179 ASSIST.*ASSIST.OE.011 1 SEQ 28760 16 PAGE UQV BODWIN JULY 03, 1981 21:31:21 5.0T10 83 *ASSIST 0 CURRENT, LINKEDITED ASSIST OBJECT COMPRISED OF OBJECT FROM (3023/2), (3023/4), (3023/6), (3023/8), (3023/9), AND (3023/10). THE SYSTEM MACRO LIBRARY FEATURE (3023/6) REFERENCES THE FILE *ASSISTMAC (3023/12). HAS A $CONTINUE WITH *LIBRARY RECORD. 0 Referenced by comments of: 3023/12 03023/012 *ASSIST *ASSISTMAC SM *ASSISTMAC 5.0T4 180 ASSIST.*ASSISTMAC.SM.012 1 LINE 72 5 PAGE UQV BODWIN JULY 03, 1981 21:31:22 5.0T10 84 *ASSISTMAC 0 ASSIST "SYSTEM" MACRO LIBRARY, REFERENCED BY (3023/11). 0 Referenced by comments of: 3023/11 03023/013 *ASSIST TEST PROGRAMS SA S0565 D4T3 VLO FSNAME=ASSIST.TEST_PROGRAMS.SA.014(1) 735 5.0T4 181 ASSIST.TEST_PROGRAMS.SA.013 1 LINE 73 9 PAGE UQV BODWIN JUNE 10, 1977 13:20:14 5.0T10 85 0 TEST PROGRAMS TO EXERCISE ALL FEATURES OF ASSIST. 03024/001A BENCHMARK - TERMINAL DSR SA G BNCH:DSR.S 5.0T4 182 BENCHMARK_-_TERMINAL.DSR.SA.001 1 LINE 72 30 PAGE UM OGDEN JULY 03, 1981 21:31:24 5.0T10 86 BNCH:DSR.S 0 BENCHMARK DSR. ALLOWS SIMULATION OF MANY TERMINAL USERS ENTERING INPUT AS SPECIFIED IN *SCRIPTN AT A SPECIFIED TYPING RATE WITH SPECIFIED "THINK" TIMES AND WITH OUTPUT (THROWN AWAY) AT A SPECIFIED RATE. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU(100) (087), COPY:CDCADSECT (3024/25), *GDINFODSECT (594), *SENSEDSECT (3025), and COPY:BNCHSTATDSCT (3024/98). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728). 0 Referenced by comments of: 3024/5, 3024/23, 3024/30, 3024/98 03024/002A BENCHMARK - TERMINAL DSR OC G *BNCHRTN 5.0T4 183 BENCHMARK_-_TERMINAL.DSR.OC.002 1 LINE 80 5 PAGE UM OGDEN JULY 03, 1981 21:31:30 5.0T10 87 *BNCHRTN 1 MON AUG 05/96 18:37:45 Page 775 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/003A BENCHMARK - TERMINAL MONITOR SA G BNCH:MONITOR.S 5.0T4 184 BENCHMARK_-_TERMINAL.MONI.SA.003 1 LINE 72 10 PAGE UM OGDEN JULY 03, 1981 21:31:30 5.0T10 88 BNCH:MONITOR.S 0 PROGRAM TO CONTROL BENCHMARK RUNS. COPIES COPY:CDCADSECT (3024/25) AND COPY:JOBSTA (413/9). 0 Referenced by comments of: 3024/23, 3024/27, 3024/29 03024/004A BENCHMARK - TERMINAL MONITOR OC G BNCH:MONITOR 5.0T4 185 BENCHMARK_-_TERMINAL.MONI.OC.004 1 LINE 4700 6 PAGE UM OGDEN JULY 03, 1981 21:31:33 5.0T10 89 BNCH:MONITOR 03024/005 BENCHMARK - TERMINAL ANALYSIS SF O BNCH:ANALYSIS.S 5.0T4 186 BENCHMARK_-_TERMINAL.ANAL.SF.005 1 LINE 73 3 PAGE UM OGDEN JULY 03, 1981 21:31:35 5.0T10 90 BNCH:ANALYSIS.S 0 PROGRAM TO PRINT THE DATA COLLECTED BY (3024/1). 03024/006 BENCHMARK - TERMINAL ANALYSIS OC O BNCH:ANALYSIS 5.0T4 187 BENCHMARK_-_TERMINAL.ANAL.OC.006 1 LINE 1668 4 PAGE UM OGDEN JULY 03, 1981 21:31:36 5.0T10 91 BNCH:ANALYSIS 03024/007 BENCHMARK - TERMINAL SCRIPT POINTER D *SCRIPTPTRFILE 5.0T4 188 BENCHMARK_-_TERMINAL.SCRI.D.007 1 LINE 24 1 PAGE UM OGDEN JULY 03, 1981 21:31:36 5.0T10 92 *SCRIPTPTRFILE 0 DATA FILE USED BY MTS TO MAP THE PSEUDO-DEVICE NAMES *SN* INTO SCRIPT FILE NAMES. 03024/008A BENCHMARK - TERMINAL SCRIPT 1 C *SCRIPT1 5.0T4 189 BENCHMARK_-_TERMINAL.SCRI.C.008 1 LINE 90 3 PAGE UM OGDEN JULY 03, 1981 21:31:37 5.0T10 93 *SCRIPT1 0 SCRIPT WHICH USES EDITOR FAST INSERT MODE. 03024/009 BENCHMARK - TERMINAL SCRIPT 2 C *SCRIPT2 5.0T4 190 BENCHMARK_-_TERMINAL.SCRI.C.009 1 LINE 40 1 PAGE UM OGDEN JULY 03, 1981 21:31:38 5.0T10 94 *SCRIPT2 0 SCRIPT WHICH USES THE EDITOR. 03024/010 BENCHMARK - TERMINAL SCRIPT 3 C *SCRIPT3 5.0T4 191 BENCHMARK_-_TERMINAL.SCRI.C.010 1 LINE 56 1 PAGE UM OGDEN JULY 03, 1981 21:31:39 5.0T10 95 *SCRIPT3 0 SCRIPT WHICH ENTERS, COMPILES, AND RUNS THE ETEST (COMPUTE E TO 2500 DECIMAL PLACES) PROGRAM. 03024/011A BENCHMARK - TERMINAL SCRIPT 4 C *SCRIPT4 5.0T4 192 BENCHMARK_-_TERMINAL.SCRI.C.011 1 LINE 58 1 PAGE UM OGDEN JULY 03, 1981 21:31:39 5.0T10 96 *SCRIPT4 0 INTERACTIVE FORTRAN (IF) SCRIPT. 1 MON AUG 05/96 18:37:45 Page 776 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/012 BENCHMARK - TERMINAL SCRIPT 5 C *SCRIPT5 5.0T4 193 BENCHMARK_-_TERMINAL.SCRI.C.012 1 LINE 86 1 PAGE UM OGDEN JULY 03, 1981 21:31:40 5.0T10 97 *SCRIPT5 0 ASSEMBLER SCRIPT. 03024/013 BENCHMARK - TERMINAL SCRIPT 5 DATA SA BNCH:WSG.TAPE 5.0T4 194 BENCHMARK_-_TERMINAL.SCRI.SA.013 1 LINE 72 47 PAGE UM OGDEN JULY 03, 1981 21:31:41 5.0T10 98 BNCH:WSG.TAPE 0 ASSEMBLY SOURCE FOR PROGRAM ASSEMBLED BY SCRIPT 5. REQUIRES (3024/99), (3024/100), AND (3024/102). COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 3024/99, 3024/100, 3024/101, 3024/102 03024/014A BENCHMARK - TERMINAL SCRIPT 6 C *SCRIPT6 5.0T4 195 BENCHMARK_-_TERMINAL.SCRI.C.014 1 LINE 40 1 PAGE UM OGDEN JULY 03, 1981 21:31:47 5.0T10 99 *SCRIPT6 0 FAST FOURIER TRANSFORM SCRIPT. 03024/015 BENCHMARK - TERMINAL SCRIPT 6 PGM SF G S0565 D4T3 VLO FSNAME=BENCHMARK.SCRIPT_6_PGM.SF.015(1) 750 5.0T4 196 BENCHMARK_-_TERMINAL.SCRI.SF.015 1 LINE 71 6 PAGE UM OGDEN AUG. 28, 1975 17:00:57 5.0T10 100 0 DOUBLE PRECISION FFT PROGRAM IN FTN H WHICH IS RUN BY SCRIPT 6. 0 Referenced by comments of: 3024/17 03024/016 BENCHMARK - TERMINAL SCRIPT 6 PGM OE G BNCH:FFT.HD 5.0T4 197 BENCHMARK_-_TERMINAL.SCRI.OE.016 1 SEQ 1440 2 PAGE UM OGDEN JULY 03, 1981 21:31:50 5.0T10 101 BNCH:FFT.HD 03024/017 BENCHMARK - TERMINAL SCRIPT 6 DATA D BNCH:FFT.DATA 5.0T4 198 BENCHMARK_-_TERMINAL.SCRI.D.017 1 LINE 11 1 PAGE UM OGDEN JULY 03, 1981 21:31:51 5.0T10 102 BNCH:FFT.DATA 0 DATA FOR SCRIPT 6 FFT PROGRAM (3024/15). 03024/018A BENCHMARK - TERMINAL SCRIPT 7 C *SCRIPT7 5.0T4 199 BENCHMARK_-_TERMINAL.SCRI.C.018 1 LINE 51 1 PAGE UM OGDEN JULY 03, 1981 21:31:52 5.0T10 103 *SCRIPT7 0 BIG FORTRAN SCRIPT. 03024/019 BENCHMARK - TERMINAL SCRIPT 7 PGM SF G BNCH:SCRIPT7PGM 5.0T4 200 BENCHMARK_-_TERMINAL.SCRI.SF.019 1 LINE 72 4 PAGE UM OGDEN JULY 03, 1981 21:31:53 5.0T10 104 BNCH:SCRIPT7PGM 0 PROGRAM USED BY SCRIPT 7. 1 MON AUG 05/96 18:37:45 Page 777 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/020A BENCHMARK - TERMINAL SCRIPT 8 C *SCRIPT8 5.0T4 201 BENCHMARK_-_TERMINAL.SCRI.C.020 1 LINE 69 1 PAGE UM OGDEN JULY 03, 1981 21:31:53 5.0T10 105 *SCRIPT8 0 TAXIR SCRIPT. 03024/021 BENCHMARK - TERMINAL SCRIPT 8 DATA D BNCH:USE.T 5.0T4 202 BENCHMARK_-_TERMINAL.SCRI.D.021 1 LINE 32764 92 PAGE UM OGDEN JULY 03, 1981 21:31:54 5.0T10 106 BNCH:USE.T 03024/022 BENCHMARK - TERMINAL SCRIPT 9 C *SCRIPT9 5.0T4 203 BENCHMARK_-_TERMINAL.SCRI.C.022 1 LINE 36 1 PAGE UM OGDEN JULY 03, 1981 21:32:00 5.0T10 107 *SCRIPT9 0 PAGELOAD SCRIPT. NOT NORMALLY USED IN TERMINAL BENCHMARKS. 03024/023 BENCHMARK - TERMINAL COMM AREA SA G BNCH:SEG2.S 5.0T4 204 BENCHMARK_-_TERMINAL.COMM.SA.023 1 LINE 69 1 PAGE UM OGDEN JULY 03, 1981 21:32:00 5.0T10 108 BNCH:SEG2.S 0 COMMUNICATIONS AREA USED BY BNCH:DSR.S (3024/1) AND BNCH:MONITOR.S (3024/3). MUST BE LOADED INTO SHARED VM PRIOR TO RUNNING BNCH:MONITOR. COPIES COPY:CDCADSECT (3024/25). 03024/024 BENCHMARK - TERMINAL COMM AREA OC G BNCH:SEG2 5.0T4 205 BENCHMARK_-_TERMINAL.COMM.OC.024 1 LINE 80 4 PAGE UM OGDEN JULY 03, 1981 21:32:01 5.0T10 109 BNCH:SEG2 03024/025 BENCHMARK - TERMINAL CDCADSECT SA G COPY:CDCADSECT 5.0T4 206 BENCHMARK_-_TERMINAL.CDCA.SA.025 1 LINE 60 1 PAGE UM OGDEN JULY 03, 1981 21:32:02 5.0T10 110 COPY:CDCADSECT 0 COPY SECTION DESCRIBING THE FORMAT OF AN ENTRY IN THE COMMUNICATIONS AREA. 0 Referenced by comments of: 3024/1, 3024/3, 3024/23 03024/026A BENCHMARK - TERMINAL SOURCE FILE C BNCH:SCR 5.0T4 207 BENCHMARK_-_TERMINAL.SOUR.C.026 1 LINE 76 2 PAGE UM OGDEN JULY 03, 1981 21:32:03 5.0T10 111 BNCH:SCR 0 COMMAND FILE TO RUN A TERMINAL BENCHMARK. 0 Referenced by comments of: 3024/27 03024/027A BENCHMARK - TERMINAL START COMMANDS D BNCH:CMDS 5.0T4 208 BENCHMARK_-_TERMINAL.STAR.D.027 1 LINE 9 1 PAGE UM OGDEN JULY 03, 1981 21:32:03 5.0T10 112 BNCH:CMDS 0 BNCH:MONITOR (3024/3) START COMMANDS, USED BY BNCH:SCR (3024/26). 03024/028 BENCHMARK - TERMINAL TEST SCRIPTS C BNCH:TEST 5.0T4 209 BENCHMARK_-_TERMINAL.TEST.C.028 1 LINE 62 1 PAGE UM OGDEN JULY 03, 1981 21:32:04 5.0T10 113 BNCH:TEST 0 COMMAND FILE TO PRODUCE A PRINTED COPY OF THE EXECUTION OF ONE OF THE SCRIPTS 1 MON AUG 05/96 18:37:45 Page 778 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TO CHECK THAT IT WORKS CORRECTLY. 03024/029 BENCHMARK - TERMINAL MON WRITEUP WF BNCH:MONITOR.F 5.0T4 210 BENCHMARK_-_TERMINAL.MON.WF.029 1 LINE 129 5 PAGE UM OGDEN JULY 03, 1981 21:32:05 5.0T10 114 BNCH:MONITOR.F 0 WRITEUP DESCRIBING BNCH:MONITOR (3024/3). 03024/030 BENCHMARK - TERMINAL DSR WRITEUP WF BNCH:DSR.F 5.0T4 211 BENCHMARK_-_TERMINAL.DSR.WF.030 1 LINE 97 6 PAGE UM OGDEN JULY 03, 1981 21:32:06 5.0T10 115 BNCH:DSR.F 0 WRITEUP DESCRIBING THE BENCHMARK DSR (3024/1). 03024/031 BENCHMARK - TERMINAL STATSUM SG G BNCH:STATSUM.S 5.0T4 212 BENCHMARK_-_TERMINAL.STAT.SG.031 1 LINE 104 3 PAGE UM OGDEN JULY 03, 1981 21:32:07 5.0T10 116 BNCH:STATSUM.S 0 PROGRAM TO READ *STATISTICS DATA AND PRODUCE MEAN, SD, MIN, AND MAX FIGURES BY SCRIPT FOR CPU TIME, VMI, WAIT VMI, AND ELAPSED TIME. CALLS THE PAR SUBR (687/1), THE JVCT SUBR (674), AND THE BECORI SUBR WHICH IS PART OF NAAS:IMSL (NOT CURRENTLY DISTRIBUTED). 03024/032 BENCHMARK - TERMINAL STATSUM OE G BNCH:STATSUM 5.0T4 213 BENCHMARK_-_TERMINAL.STAT.OE.032 1 LINE 3770 5 PAGE UM OGDEN JULY 03, 1981 21:32:08 5.0T10 117 BNCH:STATSUM 03024/033 BENCHMARK - TERMINAL BNCH:STATS D # BNCH:STATS UM OGDEN BNCH:STATS@E 0 FILE USED TO COLLECT DATA DURING BENCHMARK RUNS. 03024/034 BENCHMARK - TERMINAL BNCH:OUTPUT D # BNCH:OUTPUT UM OGDEN BNCH:OUTPUT@E 0 FILE USED TO SAVE OUTPUT WHILE TESTING BENCHMARK SCRIPTS. 03024/035 BENCHMARK - TERMINAL BNCH:TSTATS D # BNCH:TSTATS UM OGDEN BNCH:TSTATS@E 0 FILE USED TO SAVE DSR STATISTICS WHILE TESTING BENCHMARK SCRIPTS. 03024/036A BENCHMARK - TERMINAL CRE FM INPUT C BNCH:CREFMINPUT 459 5.0T4 214 BENCHMARK_-_TERMINAL.CRE.C.036 1 LINE 67 1 PAGE UM OGDEN JULY 03, 1981 21:32:08 5.0T10 118 BNCH:CREFMINPUT 0 COMMAND FILE THAT MAY BE $SOURCED TO TO CREATE FILEMOVE (1020) INPUT AS THE FIRST STEP IN MOVING FROM A ONE-PACK TO A MULTI-PACK SYSTEM. 1 MON AUG 05/96 18:37:45 Page 779 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/037A BENCHMARK - TERMINAL LISTFILES SA G BNCH:LISTFILES.S 460 5.0T4 215 BENCHMARK_-_TERMINAL.LIST.SA.037 1 LINE 72 2 PAGE UM OGDEN JULY 03, 1981 21:32:09 5.0T10 119 BNCH:LISTFILES.S 0 PROGRAM TO PROCURE A LIST OF ALL FILES IN THE FILE SYSTEM ON SPUNCH. ASSEMBLE USING COPY:FILE.MACROS (482/45). 0 Referenced by comments of: 3024/39 03024/038A BENCHMARK - TERMINAL LISTFILES OC G BNCH:LISTFILES 5.0T4 216 BENCHMARK_-_TERMINAL.LIST.OC.038 1 LINE 80 1 PAGE UM OGDEN JULY 03, 1981 21:32:10 5.0T10 120 BNCH:LISTFILES 03024/039 BENCHMARK - TERMINAL ASSIGNVOL SS G BNCH:ASSIGNVOL.S 5.0T4 217 BENCHMARK_-_TERMINAL.ASSI.SS.039 1 LINE 66 1 PAGE UM OGDEN JULY 03, 1981 21:32:11 5.0T10 121 BNCH:ASSIGNVOL.S 0 PROGRAM WHICH TAKES A VOLUME NAME PREFIX AND MAXIMUM VOLUME NUMBER PLUS THE FILE LIST PRODUCED BY THE LISTFILE PROGRAM (3024/37) AND PROCURES OUTPUT THAT CAN BE USED AS INPUT TO FILEMOVE (1020). 03024/040 BENCHMARK - TERMINAL ASSIGNVOL OC G BNCH:ASSIGNVOL 5.0T4 218 BENCHMARK_-_TERMINAL.ASSI.OC.040 1 LINE 80 4 PAGE UM OGDEN JULY 03, 1981 21:32:12 5.0T10 122 BNCH:ASSIGNVOL 0 HAS A $CONTINUE WITH *SPITLIB CARD. 03024/041C BENCHMARK - TERMINAL OC # BNCH:ANOV. UM OGDEN 0 Subcomponents (3024/41) through (3024/93) are MIDAS files (not MIDAS input) used by (3024/94) through (3024/96). They cannot be distributed due to Stat Lab restrictions. 0 Referenced by comments of: 3024/41 03024/042C BENCHMARK - TERMINAL OC # BNCH:AUTO. UM OGDEN 03024/043C BENCHMARK - TERMINAL OE # BNCH:CANO. UM OGDEN 03024/044C BENCHMARK - TERMINAL OE # BNCH:CLUS. UM OGDEN 03024/045C BENCHMARK - TERMINAL OC # BNCH:CODE. UM OGDEN 03024/046C BENCHMARK - TERMINAL OE # BNCH:COMP. UM OGDEN 1 MON AUG 05/96 18:37:45 Page 780 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/047C BENCHMARK - TERMINAL D # BNCH:CONTROL UM OGDEN 03024/048C BENCHMARK - TERMINAL OE # BNCH:CORR. UM OGDEN 03024/049C BENCHMARK - TERMINAL OC # BNCH:COVA. UM OGDEN 03024/050C BENCHMARK - TERMINAL OC # BNCH:CROS. UM OGDEN 03024/051C BENCHMARK - TERMINAL OC # BNCH:DESC. UM OGDEN 03024/052C BENCHMARK - TERMINAL OE # BNCH:DISC. UM OGDEN 03024/053C BENCHMARK - TERMINAL OE # BNCH:DISP. UM OGDEN 03024/054C BENCHMARK - TERMINAL OE # BNCH:DIST. UM OGDEN 03024/055C BENCHMARK - TERMINAL OE # BNCH:DOCUMENTOR UM OGDEN 03024/056C BENCHMARK - TERMINAL OE # BNCH:DUMP UM OGDEN 03024/057C BENCHMARK - TERMINAL D # BNCH:ERRORS UM OGDEN 03024/058C BENCHMARK - TERMINAL OC # BNCH:FACT. UM OGDEN 03024/059C BENCHMARK - TERMINAL OE # BNCH:GENE. UM OGDEN 03024/060C BENCHMARK - TERMINAL OE # BNCH:HIST. UM OGDEN 03024/061C BENCHMARK - TERMINAL OC # BNCH:ICOMP UM OGDEN 03024/062C BENCHMARK - TERMINAL OC # BNCH:KSAM. UM OGDEN 03024/063C BENCHMARK - TERMINAL OE # BNCH:MANO. UM OGDEN 1 MON AUG 05/96 18:37:45 Page 781 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/064C BENCHMARK - TERMINAL OE # BNCH:MCOR. UM OGDEN 03024/065C BENCHMARK - TERMINAL OE # BNCH:MIDAS UM OGDEN 03024/066C BENCHMARK - TERMINAL OE # BNCH:MISS. UM OGDEN 03024/067C BENCHMARK - TERMINAL OC # BNCH:ONEW. UM OGDEN 03024/068C BENCHMARK - TERMINAL OE # BNCH:OSIR. UM OGDEN 03024/069C BENCHMARK - TERMINAL OE # BNCH:PAIR. UM OGDEN 03024/070C BENCHMARK - TERMINAL OC # BNCH:PLOT. UM OGDEN 03024/071C BENCHMARK - TERMINAL OC # BNCH:POLY. UM OGDEN 03024/072C BENCHMARK - TERMINAL OC # BNCH:PRIN. UM OGDEN 03024/073C BENCHMARK - TERMINAL OE # BNCH:PROF. UM OGDEN 03024/074C BENCHMARK - TERMINAL OE # BNCH:RCOR. UM OGDEN 03024/075C BENCHMARK - TERMINAL OE # BNCH:READ. UM OGDEN 03024/076C BENCHMARK - TERMINAL OC # BNCH:REGR. UM OGDEN 03024/077C BENCHMARK - TERMINAL OC # BNCH:ROTA. UM OGDEN 03024/078C BENCHMARK - TERMINAL OE # BNCH:RPAI. UM OGDEN 03024/079C BENCHMARK - TERMINAL OE # BNCH:SAVE. UM OGDEN 03024/080C BENCHMARK - TERMINAL OE # BNCH:SCAT. UM OGDEN 1 MON AUG 05/96 18:37:45 Page 782 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/081C BENCHMARK - TERMINAL OE # BNCH:SELE. UM OGDEN 03024/082C BENCHMARK - TERMINAL OE # BNCH:SEPA. UM OGDEN 03024/083C BENCHMARK - TERMINAL OC # BNCH:SETXY UM OGDEN 03024/084C BENCHMARK - TERMINAL OC # BNCH:SIMU. UM OGDEN 03024/085C BENCHMARK - TERMINAL OE # BNCH:SPEC. UM OGDEN 03024/086C BENCHMARK - TERMINAL OE # BNCH:STUD. UM OGDEN 03024/087C BENCHMARK - TERMINAL D # BNCH:TALENT* UM OGDEN 03024/088C BENCHMARK - TERMINAL OC # BNCH:TIME UM OGDEN 03024/089C BENCHMARK - TERMINAL OE # BNCH:TRAN. UM OGDEN 03024/090C BENCHMARK - TERMINAL OC # BNCH:TSQU. UM OGDEN 03024/091C BENCHMARK - TERMINAL OC # BNCH:TWOS. UM OGDEN 03024/092C BENCHMARK - TERMINAL OE # BNCH:TWOW. UM OGDEN 03024/093C BENCHMARK - TERMINAL OC # BNCH:WRIT. UM OGDEN 0 Referenced by comments of: 3024/41 03024/094C BENCHMARK - TERMINAL MIDAS SCRIPTS C *SCRIPT1M 5.0T4 219 BENCHMARK_-_TERMINAL.MIDA.C.094 1 LINE 42 1 PAGE UM OGDEN JULY 03, 1981 21:32:13 5.0T10 123 *SCRIPT1M 0 Requires (3024/97). 0 Referenced by comments of: 3024/41, 3024/97 03024/095C BENCHMARK - TERMINAL MIDAS SCRIPTS C *SCRIPT2M 5.0T4 220 BENCHMARK_-_TERMINAL.MIDA.C.095 1 LINE 38 1 PAGE UM OGDEN JULY 03, 1981 21:32:14 5.0T10 124 *SCRIPT2M 1 MON AUG 05/96 18:37:45 Page 783 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/096C BENCHMARK - TERMINAL MIDAS SCRIPTS C *SCRIPT3M 5.0T4 221 BENCHMARK_-_TERMINAL.MIDA.C.096 1 LINE 38 1 PAGE UM OGDEN JULY 03, 1981 21:32:15 5.0T10 125 *SCRIPT3M 0 Referenced by comments of: 3024/41 03024/097C BENCHMARK - TERMINAL MIDAS DATA D BNCH:MIDAS_1_DATA 5.0T4 222 BENCHMARK_-_TERMINAL.MIDA.D.097 1 LINE 1232 4 PAGE UM OGDEN JULY 03, 1981 21:32:16 5.0T10 126 BNCH:MIDAS_1_DATA 0 A data file required by *SCRIPT1M (3024/94). 0 Referenced by comments of: 3024/94 03024/098C BENCHMARK - TERMINAL COPY SECTION SA COPY:BNCHSTATDSCT 5.0T4 223 BENCHMARK_-_TERMINAL.COPY.SA.098 1 LINE 68 1 PAGE UM OGDEN JULY 03, 1981 21:32:17 5.0T10 127 COPY:BNCHSTATDSCT 0 A copy section used by the Terminal Benchmark DSR (3024/1). It describes the statistics record produced by (3024/1). 0 Referenced by comments of: 3024/1 03024/099C BENCHMARK - TERMINAL GLOBALDEFS SA BNCH:GLOBALDEFS 5.0T4 224 BENCHMARK_-_TERMINAL.GLOB.SA.099 1 LINE 80 1 PAGE UM OGDEN JULY 03, 1981 21:32:18 5.0T10 128 BNCH:GLOBALDEFS 0 Required by (3024/13). 0 Referenced by comments of: 3024/13, 3024/101 03024/100C BENCHMARK - TERMINAL GLOBALSETS SA BNCH:GLOBALSETS 5.0T4 225 BENCHMARK_-_TERMINAL.GLOB.SA.100 1 LINE 80 1 PAGE UM OGDEN JULY 03, 1981 21:32:19 5.0T10 129 BNCH:GLOBALSETS 0 Required by (3024/13). 0 Referenced by comments of: 3024/13, 3024/101 03024/101C BENCHMARK - TERMINAL GLOBALS SA BNCH:GLOBALS 5.0T4 226 BENCHMARK_-_TERMINAL.GLOB.SA.101 1 LINE 37 1 PAGE UM OGDEN JULY 03, 1981 21:32:20 5.0T10 130 BNCH:GLOBALS 0 Required by (3024/13). Contains $CONTINUE WITHs to BNCH:GLOBALDEFS (3024/99) and BNCH:GLOBALSETS (3024/100). 03024/102C BENCHMARK - TERMINAL LLMPSEQU SA BNCH:LLMPSEQU 5.0T4 227 BENCHMARK_-_TERMINAL.LLMP.SA.102 1 LINE 72 9 PAGE UM OGDEN JULY 03, 1981 21:32:21 5.0T10 131 BNCH:LLMPSEQU 0 Required by (3024/13). 0 Referenced by comments of: 3024/13 1 MON AUG 05/96 18:37:45 Page 784 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03025/001A *SENSEDSECT SA G *SENSEDSECT 5.0T4 228 SENSEDSECT..SA.001 1 LINE 80 4 PAGE SFU BENET OGDEN JULY 03, 1981 21:32:22 5.0T10 132 *SENSEDSECT 0 UQV DSECT FOR MAG TAPE SNS DATA -- NOW EXTENDED BY UM TO ADD SNS DATA FOR *...*. ***************************************************************************** D5.0 CHANGES: ADDED A FIELD FOR *TAPERTN (135). ***************************************************************************** 0 Referenced by comments of: 101/1, 135/1, 291/1, 314/1, 340/1, 489/1, 496/1, 513/1, 545/3, 553/1, 696/1, 814/2, 3024/1 03028/001 PATCHSYS # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO DYNAMICALLY PATCH THE SYSTEM AT POST-IPL TIME. 03030/001 VAMREC # (PART OF FILE SYSTEM RECOVERY) UQV 0 Part of File System Recovery, (682/22) and (682/23) 03031/001 LKED CONVERTER # (OBSOLETED BY VSS) UQV 0 THIS IS A PROGRAM THAT WILL READ OS LINKAGE EDITOR INPUT OR THE COMBINED OBJECT AND MEMBER-RECORD FILES OUTPUT BY *UNLINKER (562). 03036/001 C+ # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE C+ SYSTEM PROGRAMMING LANGUAGE. 03037/001 METRIC # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM FOR DISPLAYING INFORMATION ABOUT SYSTEM ACTIVITY. 03038/001 MOVECAT # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A FILE SYSTEM UTILITY FOR MAKING AN EXACT COPY OF THE FILE SYSTME CATALOG. 03043/001 FILE RELOCATE # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SMALL 1 MON AUG 05/96 18:37:45 Page 785 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 UTILITY TO MOVE FILES FROM ONE PACK TO ANOTHER, USED BY THE OPERATIONS STAFF AT UQV. 03045/001 SCB DOCUMENTOR # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE SYSTEM CONTROL BLOCK DESCRIPTOR SYSTEM. 03046/001 XEROX 9700 JSL # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE JOBS DESCRIPTION SOURCE FOR THE XEROX 9700. 03047/001 XEROX 9700 FSL # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE FORMS LANGUAGE SOURCE FILES FOR THE XEROX 9700. 03048/001 XEROX 9700 FNT # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE XEROX 9700 FONTS. 03050/001 PAGE PRINTER SUBRTN # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 03051/001 PAGE PRINTER TBLS # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 03053/001 FPAPRTN # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DSR FOR THE FLOATING POINT SYSTEMS 190L ARRAY PROCESSOR. 03054/001 APSUB # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A NEW PART OF MTS TO DEAL WITH THE ARRAY PROCESSOR. 03055/001 AP SOFTWARE # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS UPDATES TO FLOATING POINT SYSTEMS SOFTWARE. 1 MON AUG 05/96 18:37:45 Page 786 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04000/001A GATE D5.0 MASTER SA G GATE S1504 MTSD5S 'MTS D5.0 SOURCE' POSN=GATE 5.0T4 642 GATE.D5.0_MASTER.SA.001 1 LINE 80 22 PAGE UM MTS HELFFRICH AUG. 10, 1981 00:22:42 5.0T11 216 0 GATE, WHICH REPLACES LCSYMBOL (043), IS AN INTERFACE FROM USER PROGRAMS TO MTS-PROVIDED SUBROUTINES. IT DEFINES LCSYMBOL AND FURNISHES THE ENTRY POINTS FOR ALL USER-CALLABLE SYSTEM SUBROUTINES WHICH MUST RUN IN SYSTEM MODE -- I.E., THOSE WHICH REQUIRE ACCESS TO THE MTS SYSTEM SEGMENT (CURRENTLY SEGMENT 5) OR ISSUE PRIVILEGED SVCS. THIS COMPONENT ALSO PROVIDES THE RETURN POINT FOR THESE SUBROUTINES. AT THE ENTRY (PORT), AN SVC SYSTEM IS ISSUED TO SWITCH TO SYSTEM MODE; AT THE RETURN, AN SVC TRAX IS USED TO RETURN TO THE ORIGINAL CALLER IN USER MODE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 42/2, 43/1, 354/7, 509/3, 579/7, 4000/6 04000/002A GATE UPDATE UC G MTS:GATEUPD 5.0T4 643 GATE.UPDATE.UC.002 1 LINE 80 10 PAGE UM MTS HELFFRICH AUG. 10, 1981 00:22:43 5.0T11 217 0 UPDATE TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=GATE. 04000/003A GATE OC G # (PART OF RESIDENT SYSTEM) UM MTS HELFFRICH 0 Object part of Resident System (468) 04000/004A GATE L S1505 MTSCL 'MTS D5.0 LISTINGS' POSN=GATE.LIST 5.0T4 644 GATE..L.004 1 LINE 133 199 PAGE UM MTS HELFFRICH AUG. 10, 1981 00:22:52 5.0T11 218 04000/005 GATE STAT FILES P S1320 D4.2T2 VLO FSNAME=GATE.STAT_FILES.P.005(1) 465 5.0T4 229 GATE.STAT_FILES.P.005 1 LINE 73 3 PAGE UM HELFFRICH SEP. 27, 1978 00:00:43 5.0T10 133 0 SUBCOMPONENTS (4000/5) THROUGH (4000/46) COMPRISE THE UNIVERSITY OF MICHIGAN GATE STATISTICS COLLECTION FACILITY. STAT FILES (4000/5) IS A PRINT FILE CONTAINING A LIST OF ALL FILES, TOGETHER WITH A DESCRIPTION OF THEIR CONTENTS, WHICH MAKE UP THE COLLECTION FACILITY. 0 Referenced by comments of: 4000/5 04000/006 GATE STAT UPDATE UC G S1320 D4.2T2 VLO FSNAME=GATE.STAT_UPDATE.UC.006(1) 466 5.0T4 230 GATE.STAT_UPDATE.UC.006 1 LINE 68 3 PAGE UM HELFFRICH SEP. 27, 1978 00:00:45 5.0T10 134 0 CONTAINS UPDATE DECKS FOR APPLYING THE GATE STATISTICS COLLECTION FACILITY TO THE GATE (4000/1). ALSO UPDATES THE GATE SOURCE TO WORK WITH ASSEMBLER H. 1 MON AUG 05/96 18:37:45 Page 787 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04000/007 GATE STATON SA G S1320 D4.2T2 VLO FSNAME=GATE.STATON.SA.007(1) 467 5.0T4 231 GATE.STATON.SA.007 1 LINE 69 3 PAGE UM HELFFRICH SEP. 27, 1978 00:00:47 5.0T10 135 0 CONTAINS ASSEMBLY LANGUAGE SOURCE FOR THE STATON PROGRAM, WHICH ACTIVATES THE COUNTERS IN THE GATE. STATON CALLS THE LOADSVM SUBROUTINE ENTRY POINT TO PISTLE (559/2). 04000/008 GATE STATON OC G S1320 D4.2T2 VLO FSNAME=GATE.STATON.OC.008(1) 468 5.0T4 232 GATE.STATON.OC.008 1 LINE 80 1 PAGE UM HELFFRICH SEP. 27, 1978 00:00:49 5.0T10 136 0 04000/009 GATE GATESTAT CSECT SA G S1320 D4.2T2 VLO FSNAME=GATE.GATESTAT_CSECT.SA.009(1) 469 5.0T4 233 GATE.GATESTAT_CSECT.SA.009 1 LINE 72 1 PAGE UM HELFFRICH SEP. 27, 1978 00:00:51 5.0T10 137 0 THIS IS THE ASSEMBLY LANGUAGE SOURCE FOR THE GATESTAT CSECT, WHICH IS LOADED INTO SHARED VM TO PROVIDE A PLACE FOR THE GATE TO MAINTAIN ITS USE COUNTERS. 04000/010 GATE GATESTAT CSECT OC G S1320 D4.2T2 VLO FSNAME=GATE.GATESTAT_CSECT.OC.010(1) 470 5.0T4 234 GATE.GATESTAT_CSECT.OC.010 1 LINE 80 3 PAGE UM HELFFRICH SEP. 27, 1978 00:00:53 5.0T10 138 04000/011 GATE STATOFF SA G S1320 D4.2T2 VLO FSNAME=GATE.STATOFF.SA.011(1) 471 5.0T4 235 GATE.STATOFF.SA.011 1 LINE 68 2 PAGE UM HELFFRICH SEP. 27, 1978 00:00:55 5.0T10 139 0 THIS IS THE ASSEMBLY LANGUAGE SOURCE FOR THE STATOFF PROGRAM, WHICH IS USED TO DEACTIVATE THE USE COUNTERS IN THE GATE. COPIES COPY:SYSDEFS. 04000/012 GATE STATOFF OC G S1320 D4.2T2 VLO FSNAME=GATE.STATOFF.OC.012(1) 472 5.0T4 236 GATE.STATOFF.OC.012 1 LINE 80 1 PAGE UM HELFFRICH SEP. 27, 1978 00:00:57 5.0T10 140 04000/013 GATE STAT REC MAIN SF G S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_MAIN.SF.013(1) 473 5.0T4 237 GATE.STAT_REC_MAIN.SF.013 1 LINE 63 1 PAGE UM HELFFRICH SEP. 27, 1978 00:00:59 5.0T10 141 0 FORTRAN SOURCE FOR THE MAIN PROGRAM OF THE GATE STATISTICS RECORDING SYSTEM. 0 Referenced by comments of: 4000/35, 4000/37, 4000/39 04000/014 GATE STAT REC MAIN OC G S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_MAIN.OC.014(1) 474 5.0T4 238 GATE.STAT_REC_MAIN.OC.014 1 LINE 90 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:01 5.0T10 142 1 MON AUG 05/96 18:37:45 Page 788 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04000/015 GATE GETUSR SUBR SF G S1320 D4.2T2 VLO FSNAME=GATE.GETUSR_SUBR.SF.015(1) 475 5.0T4 239 GATE.GETUSR_SUBR.SF.015 1 LINE 68 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:03 5.0T10 143 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM GETUSR SUBROUTINE, WHICH GETS PARAMETER VALUES FROM THE USER. USES COMMON AREAS FROM FTN COMMON (4000/35). 04000/016 GATE GETUSR SUBR OE G S1320 D4.2T2 VLO FSNAME=GATE.GETUSR_SUBR.OE.016(1) 476 5.0T4 240 GATE.GETUSR_SUBR.OE.016 1 LINE 692 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:05 5.0T10 144 04000/017 GATE INIT SUBR SF G S1320 D4.2T2 VLO FSNAME=GATE.INIT_SUBR.SF.017(1) 477 5.0T4 241 GATE.INIT_SUBR.SF.017 1 LINE 67 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:07 5.0T10 145 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM INIT SUBROUTINE. THIS SUBROUTINE PROMPTS THE USER FOR RUN-TIME PARAMETER VALUES, INITIALIZES THE SYMBOL TABLE, AND WRITES THE HEADER FOR MIDAS OUTPUT. USES COMMON AREAS FROM FTN COMMON (4000/35). 04000/018 GATE INIT SUBR OC G S1320 D4.2T2 VLO FSNAME=GATE.INIT_SUBR.OC.018(1) 478 5.0T4 242 GATE.INIT_SUBR.OC.018 1 LINE 166 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:09 5.0T10 146 04000/019 GATE PUTHDR SUBR SF G S1320 D4.2T2 VLO FSNAME=GATE.PUTHDR_SUBR.SF.019(1) 479 5.0T4 243 GATE.PUTHDR_SUBR.SF.019 1 LINE 61 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:11 5.0T10 147 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTHDR SUBROUTINE, WHICH PUTS OUT A HEADER IN THE MIDAS STATISTICS FILE. THE HEADER INCLUDES A TIME STAMP AND MIDAS RUN AND READ COMMANDS. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/020 GATE PUTHDR SUBR OE G S1320 D4.2T2 VLO FSNAME=GATE.PUTHDR_SUBR.OE.020(1) 480 5.0T4 244 GATE.PUTHDR_SUBR.OE.020 1 LINE 1332 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:14 5.0T10 148 04000/021 GATE PUTMID SUBR SF G S1320 D4.2T2 VLO FSNAME=GATE.PUTMID_SUBR.SF.021(1) 481 5.0T4 245 GATE.PUTMID_SUBR.SF.021 1 LINE 60 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:16 5.0T10 149 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTMID SUBROUTINE, WHICH PUTS OUT USE STATISTICS IN MIDAS-COMPATIBLE FORMAT. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/022 GATE PUTMID SUBR OE G S1320 D4.2T2 VLO FSNAME=GATE.PUTMID_SUBR.OE.022(1) 482 5.0T4 246 GATE.PUTMID_SUBR.OE.022 1 LINE 340 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:18 5.0T10 150 1 MON AUG 05/96 18:37:45 Page 789 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04000/023 GATE PUTUSR SUBR SF G S1320 D4.2T2 VLO FSNAME=GATE.PUTUSR_SUBR.SF.023(1) 483 5.0T4 247 GATE.PUTUSR_SUBR.SF.023 1 LINE 63 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:20 5.0T10 151 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTUSR SUBROUTINE, WHICH PUTS OUT USE STATISTICS ON A TERMINAL. USES COMMON AREA DEFINED BY FTN COMMON (4000/35). 04000/024 GATE PUTUSR SUBR OE G S1320 D4.2T2 VLO FSNAME=GATE.PUTUSR_SUBR.OE.024(1) 484 5.0T4 248 GATE.PUTUSR_SUBR.OE.024 1 LINE 348 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:22 5.0T10 152 04000/025 GATE SAMPLE SUBR SF G S1320 D4.2T2 VLO FSNAME=GATE.SAMPLE_SUBR.SF.025(1) 485 5.0T4 249 GATE.SAMPLE_SUBR.SF.025 1 LINE 67 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:24 5.0T10 153 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM SAMPLE SUBROUTINE, WHICH SETS UP TIMER INTERRUPTS AND EXAMINES AND WRITES OUT USE COUNTERS FOR EACH TIME PERIOD. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/026 GATE SAMPLE SUBR OE G S1320 D4.2T2 VLO FSNAME=GATE.SAMPLE_SUBR.OE.026(1) 486 5.0T4 250 GATE.SAMPLE_SUBR.OE.026 1 LINE 630 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:26 5.0T10 154 04000/027 GATE TBLDEF SUBR SF G S1320 D4.2T2 VLO FSNAME=GATE.TBLDEF_SUBR.SF.027(1) 487 5.0T4 251 GATE.TBLDEF_SUBR.SF.027 1 LINE 65 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:28 5.0T10 155 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM TBLDEF SUBROUTINE, WHICH INITIALIZES THE SYMBOL TABLES USING ONLY THOSE ROUTINES WHOSE COUNTERS HAVE BEEN INCREMENTED FROM THEIR INITIAL VALUES. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/028 GATE TBLDEF SUBR OE G S1320 D4.2T2 VLO FSNAME=GATE.TBLDEF_SUBR.OE.028(1) 488 5.0T4 252 GATE.TBLDEF_SUBR.OE.028 1 LINE 394 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:30 5.0T10 156 04000/029 GATE TBLUSR SUBR SF G S1320 D4.2T2 VLO FSNAME=GATE.TBLUSR_SUBR.SF.029(1) 489 5.0T4 253 GATE.TBLUSR_SUBR.SF.029 1 LINE 68 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:32 5.0T10 157 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM TBLUSR SUBROUTINE, WHICH READS FROM THE USER A LIST OF ROUTINES TO MONITOR. IT INITIALIZES THE TABLES BASED ON THIS LIST. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/030 GATE TBLUSR SUBR OE G S1320 D4.2T2 VLO FSNAME=GATE.TBLUSR_SUBR.OE.030(1) 490 5.0T4 254 GATE.TBLUSR_SUBR.OE.030 1 LINE 856 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:34 5.0T10 158 0 Referenced by comments of: 4000/35 1 MON AUG 05/96 18:37:45 Page 790 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04000/031 GATE DBLMATH SUBR SA G S1320 D4.2T2 VLO FSNAME=GATE.DBLMATH_SUBR.SA.031(1) 491 5.0T4 255 GATE.DBLMATH_SUBR.SA.031 1 LINE 72 3 PAGE UM HELFFRICH SEP. 27, 1978 00:01:36 5.0T10 159 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM DOUBLE-WORD MATH ROUTINES. 04000/032 GATE DBLMATH SUBR OC G S1320 D4.2T2 VLO FSNAME=GATE.DBLMATH_SUBR.OC.032(1) 492 5.0T4 256 GATE.DBLMATH_SUBR.OC.032 1 LINE 80 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:38 5.0T10 160 04000/033 GATE GETSTAT SUBR SA G S1320 D4.2T2 VLO FSNAME=GATE.GETSTAT_SUBR.SA.033(1) 493 5.0T4 257 GATE.GETSTAT_SUBR.SA.033 1 LINE 73 8 PAGE UM HELFFRICH SEP. 27, 1978 00:01:40 5.0T10 161 0 SOURCE FOR SEVERAL LOW-LEVEL STATISTICS ACCESS ROUTINES, WHICH ARE USED BY THE GATE STATISTICS RECORDING SYSTEM TO ACCESS THE COUNTS OF GATE ACTIVITY. COPIES COPY:JOBSTA (413/9). 04000/034 GATE GETSTAT SUBR OC G S1320 D4.2T2 VLO FSNAME=GATE.GETSTAT_SUBR.OC.034(1) 494 5.0T4 258 GATE.GETSTAT_SUBR.OC.034 1 LINE 80 3 PAGE UM HELFFRICH SEP. 27, 1978 00:01:43 5.0T10 162 0 Referenced by comments of: 4000/37, 4000/39 04000/035 GATE FTN COMMON SF G S1320 D4.2T2 VLO FSNAME=GATE.FTN_COMMON.SF.035(1) 495 5.0T4 259 GATE.FTN_COMMON.SF.035 1 LINE 66 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:45 5.0T10 163 0 SOURCE FOR FORTRAN COMMON AREA DEFINITIONS USED BY ALL FORTRAN SUBROUTINES (4000/13) THROUGH (4000/30) IN THE GATE STATISTICS RECORDING SYSTEM. 0 Referenced by comments of: 4000/15, 4000/17, 4000/19, 4000/21, 4000/23, 4000/25, 4000/27, 4000/29, 4000/36, 4000/38 04000/036 GATE STAT REC USER SF G S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_USER.SF.036(1) 496 5.0T4 260 GATE.STAT_REC_USER.SF.036 1 LINE 52 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:47 5.0T10 164 0 SOURCE FOR FORTRAN BLOCK DATA WHICH ASSIGNS LOGICAL I/O UNITS FOR CONVENIENT USE FROM A TERMINAL. USES COMMON AREAS FROM FTN COMMON (4000/35). 0 Referenced by comments of: 4000/37 04000/037 GATE STAT REC USER OC G S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_USER.OC.037(1) 497 5.0T4 261 GATE.STAT_REC_USER.OC.037 1 LINE 72 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:49 5.0T10 165 0 OBJECT FILE FOR THE GATE STATISTICS RECORDING SYSTEM (4000/13) THROUGH (4000/34) IN A FORM WHICH CAN BE $RUN. THE OBJECT FOR (4000/36) IS INCLUDED, ALONG WITH $CONTINUE WITHS FOR ALL OTHER FILES IN THE GATE STATISTICS RECORDING SYSTEM (4000/13) THROUGH (4000/34) AND A "$CONTINUE WITH COPY:SYSDEFS RETURN" LINE. 0 Referenced by comments of: 4000/39 1 MON AUG 05/96 18:37:45 Page 791 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04000/038 GATE STAT REC OPER SF G S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_OPER.SF.038(1) 498 5.0T4 262 GATE.STAT_REC_OPER.SF.038 1 LINE 52 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:51 5.0T10 166 0 SOURCE FOR FORTRAN BLOCK DATA WHICH ASSIGNS LOGICAL I/O UNITS FOR USE WITH *GSA (4000/40). USES COMMON AREAS FROM FTN COMMON (4000/35). 04000/039 GATE STAT REC OPER OC G S1320 D4.2T2 VLO FSNAME=GATE.STAT_REC_OPER.OC.039(1) 499 5.0T4 263 GATE.STAT_REC_OPER.OC.039 1 LINE 72 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:53 5.0T10 167 0 OBJECT FILE FOR THE GATE STATISTICS RECORDING SYSTEM (4000/13) THROUGH (4000/34) IN A FORM WHICH CAN BE $RUN. SAME AS (4000/37) EXCEPT THAT I/O UNITS ARE ASSIGNED FOR USE WITH *GSA. 04000/040 GATE *GSA C S1320 D4.2T2 VLO FSNAME=GATE.*GSA.C.040(1) 500 5.0T4 264 GATE.*GSA.C.040 1 LINE 77 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:55 5.0T10 168 0 COMMAND FILE TO ACTIVATE THE GATE STATISTICS COLLECTION SYSTEM. CONTAINS A "$CONTINUE WITH MTS:GS.STATPARS RETURN" LINE. 0 Referenced by comments of: 4000/38, 4000/44 04000/041 GATE LOCK D # SYS:GS.LOCK UM HELFFRICH 0 EMPTY FILE USED BY *GSA. 04000/042 GATE NEWSTAT D # SYS:GS.NEWSTAT UM HELFFRICH 0 EMPTY FILE USED BY *GSA. 04000/043 GATE OLDSTAT D # SYS:GS.OLDSTAT UM HELFFRICH 0 EMPTY FILE USED BY *GSA. 04000/044 GATE STAT PARAMS D S1320 D4.2T2 VLO FSNAME=GATE.STAT_PARAMS.D.044(1) 501 5.0T4 265 GATE.STAT_PARAMS.D.044 1 LINE 56 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:58 5.0T10 169 0 CONTAINS PARAMETERS READ BY THE STATISTICS RECORDING SYSTEM WHEN IT IS STARTED BY USING THE OPERATOR FILE *GSA (4000/40). CONTAINS A LIST OF PARAMETERS NORMALLY SUPPLIED BY THE USER IF THE STATISTICS RECORDING IS RUN FROM A TERMINAL. 04000/045 GATE *GSD C S1320 D4.2T2 VLO FSNAME=GATE.*GSD.C.045(1) 502 5.0T4 266 GATE.*GSD.C.045 1 LINE 55 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:59 5.0T10 170 0 COMMAND FILE TO DEACTIVATE THE GATE STATISTICS COLLECTION SYSTEM. 1 MON AUG 05/96 18:37:45 Page 792 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04000/046 GATE WRITEUP WF S1320 D4.2T2 VLO FSNAME=GATE.WRITEUP.WF.046(1) 503 5.0T4 267 GATE.WRITEUP.WF.046 1 LINE 97 9 PAGE UM HELFFRICH SEP. 27, 1978 00:02:01 5.0T10 171 0 STRUCTURAL DESCRIPTION AND USER'S GUIDE TO THE GATESTAT GATE STATISTICS COLLECTION SYSTEM. 0 Referenced by comments of: 4000/5 04001/001 NONPRIV KWIC # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT IS NOT INSTALLED AT MICHIGAN. 04003/001 DUMPER # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO DUMP THE DUMPS FROM THE PAGING DISK TO TAPE, WHICH IS INPUT TO THE PRINTDUMP PROGRAM (400). 04009/001 ACCESS # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SUBROUTINE TO RETURN ACCESS INFORMATION ABOUT A FILE. 04010/001 SVMR # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS GETSVM, FEESVM, AND SCANSVM, STORAGE MANAGEMENT SUBROUTINES FOR SHARED VIRTUAL MEMORY. 0 Referenced by comments of: 4011/1 04011/001 SVMTABLE # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS THE CONTROL BLOCK FOR SVMR (4010). 04014/001 WHIZBANG # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT IS NOT INSTALLED AT MICHIGAN. 04200/001 UNCDUPDATE # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO COMPARE TWO FILES AND OUTPUT THEIR DIFFERENCES IN THE FORM OF *CDUPDATE (1036) CONTROL STATEMENTS AND INSERTION RECORDS. 1 MON AUG 05/96 18:37:45 Page 793 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04201/001 RPI REMOTE OPCONSOLE # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE RPI REMOTE OPERATOR'S CONSOLE PROGRAM. 04222/001 FILE MOVER # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO MOVE FILES FROM ONE VOLUME TO ANOTHER. 04240/001 STUDENT IPL ROUTINE # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN IPL LOADER FOR USE WITH ST360 (472). 04241/001 3277 SCREEN I/O ROUTINE # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS SUBROUTINES TO CREATE SCREEN FIELDS, READ SCREEN FIELDS, UPDATE SCREEN FIELDS, AND INTERCEPT THE ATTENTION KEYS. 04242/001 LCLPRINT # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM WHICH SUPPORTS THE COURIER 8700 PRINTERS AS NON-SPOOLED PRINT-STATIONS AT REMOTE TERMINAL SITES. 04401/001 PN3203 JOB # (NOT DISTRIBUTED) SFU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE JOB THAT LOADS THE UCSB AND FCB BUFFERS FOR THE 3203-4 PRINTER WITH A PN PRINT TRAIN. 04403/001 DIVMIXED # (NOT DISTRIBUTED) SFU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS USED TO PERFORM MIXED PRECISION DIVISION WHEN A NORMAL DIVISION FAILS.