1 THU SEP 12/96 23:39:34 Page 1 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00001/001 UMLOAD D4 MASTER SA G S0563 D4T1 VLO FSNAME=UMLOAD.D4_MASTER.SA.001(1) 1 D4T1 1 UMLOAD.D4_MASTER.SA.001 1 LINE 80 133 PAGE UM SHERRY JULY 27, 1977 21:22:56 0 D4.0 VERSION OF MTS RELOCATABLE LOADER. SINCE D3.0, UMLOAD HAS BEEN CHANGED TO SUPPORT ALI, MSG, AND OPT CARDS. ALLOWABLE OPTIONS ARE: MDL=ON/OFF, WARN=ON/OFF, NCALCS=ON/OFF, NULMSG=ON/OFF, PUSH, POP, FILL=XX/OFF, SAVESD=ON/OFF, AND WXLCS=ON/OFF. THE DIR CARD FORMAT HAS BEEN CHANGED FOR LONG RECORD LINE FILE DIR LIBRARIES. COMPLETE DETAILS MAY BE FOUND IN MTS VOLUME 5 AND IN COMPUTING CENTER NEWSLETTER VOL 7, NO. 1. THERE HAVE BEEN INTERNAL CHANGES FOR ADDRESSABILITY AND THE NEW SUBROUTINE UMLOADRP HAS BEEN ADDED (BY UBC) FOR RAMROD. 0 Referenced by comments of: 1/2, 1021/5, 1021/7 00001/002 UMLOAD UPDATE UC G W009:UMLOAD.U D4.2T1 1 UMLOAD.UPDATE.UC.002 1 LINE 71 4 PAGE UM SHERRY MAR. 26, 1979 02:14:18 W009:UMLOAD.U 0 UPDATE DECK TO PRODUCE CURRENT UMLOAD SOURCE FROM D4.1 UMLOAD (001/1). 00001/003 UMLOAD OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM SHERRY 00001/004 UMLOAD LOADINFO DSECT SA G *LOADINFODSECT D4T1 3 UMLOAD.LOADINFO_DSECT.SA.004 1 LINE 67 1 PAGE UM SHERRY JULY 27, 1977 21:23:19 *LOADINFODSECT 0 COPY SECTION FOR INFORMATION RETURNED BY LOADINFO SUBR (PART OF 354/1). 0 Referenced by comments of: 506/3, 545/3 00001/005 UMLOAD INFO CLS SA O INF W009:CLSINFO.S D4T1 4 UMLOAD.INFO_CLS.SA.005 1 LINE 80 46 PAGE UM SHERRY JULY 27, 1977 21:23:21 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). 00001/006 UMLOAD INFO CLS OE O W009:CLSINFO.O D4T1 5 UMLOAD.INFO_CLS.OE.006 1 LINE 8744 7 PAGE UM SHERRY JULY 27, 1977 21:23:24 W009:I 00001/007 UMLOAD INFO CLS M W009:CLSINFO.X D4T1 6 UMLOAD.INFO_CLS.M.007 1 LINE 74 2 PAGE UM SHERRY JULY 27, 1977 21:23:26 W009:CLSINFO.X 0 MESSAGE FILE USED BY THE INFO CLS. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 1 THU SEP 12/96 23:39:34 Page 2 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00001/008 UMLOAD INFO CLS WF W009:CLSINFO.W D4T1 7 UMLOAD.INFO_CLS.WF.008 1 LINE 91 4 PAGE UM SHERRY JULY 27, 1977 21:23:29 W009:CLSINFO.W 0 WRITEUP DESCRIBING THE INFO CLS PROGRAM. 00001/009 UMLOAD CLSDRV SA O CLSD W009:CLSDRV.S D4T1 8 UMLOAD.CLSDRV.SA.009 1 LINE 80 5 PAGE UM SHERRY JULY 27, 1977 21:23:31 W009:CLSDRV.S 0 THIS IS AN INTERFACE PROGRAM WHICH PERMITS THE INFO CLS TO BE RUN AS A NORMAL PROGRAM. 00001/010 UMLOAD CLSDRV OC O W009:CLSDRV.O D4T1 9 UMLOAD.CLSDRV.OC.010 1 LINE 668 2 PAGE UM SHERRY JULY 27, 1977 21:23:33 W009:CLSDRV.O 00003/001 JOBLIST SA G S1319 D4.2T1 VLO FSNAME=JOBLIST..SA.001(1) 2 D4.2T1 2 JOBLIST..SA.001 1 LINE 71 4 PAGE UM WSG MAR. 26, 1979 02:14:20 0 MANY ASSEMBLIES WHICH TOGETHER FORM THE LIST OF AVAILABLE JOBS IN UMMPS. ASSEMBLE WITH PAR=B. 00003/002 JOBLIST OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00004/001B TABLES SA G TABL WSG:TABLES RD16T1 1 TABLES..SA.001 1 LINE 80 25 PAGE UM WSG JULY 12, 1979 22:22:07 WSG.:TABLES 0 TABLES THAT DEFINE THE HARDWARE CONFIGURATION FOR THE UM AMDAHL 470, THE NUMBER OF LOW-CORE TERMINAL I/O BUFFERS, THE LIST OF PUBLIC DISK VOLUME NAMES AND CORRESPONDING DISK DRIVES, ETC. THIS DECK IS DISTRIBUTED AS AN EXAMPLE OF AN I/O CONFIGURATION; OBVIOUSLY, EACH INSTALLATION WILL SUPPLY TABLES FOR ITS LOCAL CONFIGURATION OR USE DECKGEN (004/5). THIS DECK CONTAINS SEVERAL MACRO DEFINITIONS USEFUL FOR DEFINING THE TABLES. COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND *CNFGINFODSECT(2) (654). ASSEMBLE USING COPY:FILE.MACROS (482/33) AND COPY:SETPARM (653). NOTE: IT IS NORMAL TO GET AN *ASMG WARNING MESSAGE ABOUT RELOCATABLE Y-CONS. IF ASSEMBLING WITH *ASMH, USE PAR=MSGLEVEL(1) TO SUPPRESS THESE WARNINGS. 0 Referenced by comments of: 482/38 00004/002B TABLES OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00004/003 TABLES WRITEUP WF S1319 D4.2T1 VLO FSNAME=TABLES.WRITEUP.WF.003(1) 4 D4.2T1 4 TABLES.WRITEUP.WF.003 1 LINE 128 13 PAGE UM WSG MAR. 26, 1979 02:14:21 WSG.:TABLES.WF 00004/004 TABLES DECKGEN SA G DCKP MTS:DCKPCHR.S D4.2T1 5 TABLES.DECKGEN.SA.004 1 LINE 80 76 PAGE UBC HELFFRICH MAR. 26, 1979 02:14:27 MTS.:DCKPCHR.S 0 STAND-ALONE PROGRAM TO GENERATE AN ASSEMBLER OBJECT DECK FOR THE SYSTEM TABLES CSECT BASED ON INPUT ENTERED FROM THE OPERATOR'S CONSOLE. IT WILL ALSO WRITE 1 THU SEP 12/96 23:39:34 Page 3 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE GENERATED OBJECT DECK ONTO A TAPE, FOR SUBSEQUENT USE WITH THE IPLREADER PROGRAM (1021), WHICH CAN REPLACE THE TABLES CSECT IN A SYSTEM WITH THE ONE FROM THE TAPE. USES THE IPLREADER ROUTINES FOR CONSOLE I/O, WHICH MEANS THAT A 3270 MAY BE USED. COPIES *CNFGINFODSECT (654). ASSEMBLE WITH *ASMH USING COPY:FILE.MACROS (482/33), COPY:MISC.MACROS (728), AND *SYSMAC. 00004/005 TABLES DECKGEN OC G MTS:DCKPCHR.O D4.2T1 6 TABLES.DECKGEN.OC.005 1 LINE 80 8 PAGE UBC HELFFRICH MAR. 26, 1979 02:14:35 MTS.:DCKPCHR.O 0 THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE. 0 Referenced by comments of: 4/1 00004/006 TABLES *IPL.DECKGEN D MTS:IPL.DECKGEN D4.2T1 7 TABLES.*IPL.DECKGEN.D.006 1 SEQ 4100 30 PAGE UBC HELFFRICH MAR. 26, 1979 02:14:36 *IPL.DECKGEN 0 OBJECT FOR DECKGEN SUITABLE FOR LOADING BY THE IPL READER. 00004/007 TABLES DECKGEN DESCR WF MTS:DCKPCHR.W D4.2T1 8 TABLES.DECKGEN_DESCR.WF.007 1 LINE 126 7 PAGE UBC HELFFRICH MAR. 26, 1979 02:14:38 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/001 JBRP SA G S0563 D4T1 VLO FSNAME=JBRP..SA.001(1) 16 D4T1 16 JBRP..SA.001 1 LINE 80 7 PAGE UM MTA JULY 27, 1977 21:23:55 MTA.:JBRP 0 JOB REQUEST PROCESSOR (TASK INITIALIZATION). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 00005/002 JBRP OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00006/001 FNDJTL SA G S0563 D4T1 VLO FSNAME=FNDJTL..SA.001(1) 17 D4T1 17 FNDJTL..SA.001 1 LINE 80 2 PAGE UM MTA JULY 27, 1977 21:23:58 MTA.:FNDJTL 0 FIND JOB TABLE. 00006/002 FNDJTL OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00007/001 FBJTJL SA G MTA:FBJTJL(1,999) D4T1 18 FBJTJL..SA.001 1 LINE 80 5 PAGE UM MTA JULY 27, 1977 21:23:59 MTA.:FBJTJL 0 FREE BUFFERS AND JOB TABLE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 1 THU SEP 12/96 23:39:34 Page 4 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00007/002 FBJTJL OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00008/001 FIDCQ SA G S0563 D4T1 VLO FSNAME=FIDCQ..SA.001(1) 19 D4T1 19 FIDCQ..SA.001 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 21:24:01 MTA.:FIDCQ 0 FREE I/O DEVICES AND CPU QUEUE. UNCHANGED SINCE 1968! COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 00008/002 FIDCQ OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00009/001 BUFALLOC SA G MTA:BUFALLOC(1,999) D4T1 20 BUFALLOC..SA.001 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 21:24:03 MTA.:BUFALLOC 0 SUBROUTINE TO ALLOCATE AND RELEASE 128-BYTE, LOW-CORE, TERMINAL, I/O BUFFERS. THIS ROUTINE IS CALLED BY SEVERAL TERMINAL DEVICE SUPPORT ROUTINES (TSFO, PDP8RTN, MNETRTN, ETC). IT ALLOCATES BUFFERS FROM A POOL OF BUFFERS WHICH ARE PART OF TABLES AND WHICH BUFALLOC REFERENCES WITH THE TABLES EXTERNAL SYMBOL 'TERMBFRS'. THE PURPOSE OF THESE BUFFERS IS TO HAVE THE TERMINAL ROUTINES DOING I/O INTO REAL-CORE BUFFERS, THUS AVOIDING THE OVERHEAD OF HAVING MANY VM PAGES LOCKED IN CORE DURING TERMINAL I/O. THE BUFSTAT PROGRAM (618) PRINTS WHICH JOB IS USING WHICH BUFFER(S). 00009/002 BUFALLOC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00010/001 EXIT SA G MTA:EXIT(1,999) D4.2T1 9 EXIT..SA.001 1 LINE 72 2 PAGE UM MTA MAR. 26, 1979 02:14:39 MTA.:EXIT 0 KILLS CALLING TASK. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 00010/002 EXIT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00011/001 CARDUC SA G S0720 'D3T1' FSNAME=CARDUC..SA.1(1) 12 D4T1 22 CARDUC..SA.001 1 LINE 80 9 PAGE UM MTA JULY 30, 1973 03:30.59 0 2501 AND 2540 READER UNIT CHECK ROUTINES. 00011/002 CARDUC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00012/001 TAPEUC SA TPUC WSG:TAPEUC(1,999) D4T1 23 TAPEUC..SA.001 1 LINE 80 18 PAGE SFU BENET WSG JULY 27, 1977 21:25:13 WSG.:TAPEUC 0 MAGNETIC TAPE UNIT CHECK ROUTINES. COPIES COPY:CMDAREADSECT (531/18). 1 THU SEP 12/96 23:39:34 Page 5 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00012/002 TAPEUC OC # RESIDENT SYSTEM (SEE COMP 468/1) SFU BENET WSG 00013/001 PTRUC SA G S0563 D4T1 VLO FSNAME=PTRUC..SA.001(1) 24 D4T1 24 PTRUC..SA.001 1 LINE 80 10 PAGE UM MTA JULY 27, 1977 21:25:15 MTA.:PTRUC 0 1403 AND 1443 PRINTER UNIT CHECK ROUTINES. 00013/002 PTRUC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00014/001 PUNUC SA G PCUC DWB:PUNUC(1,999) 15 D4.1T1 8 PUNUC..SA.001 1 LINE 80 6 PAGE UM DWB MAY 13, 1978 16:52:09 DWB.:PUNUC 0 2540 AND 1442 PUNCH UNIT CHECK ROUTINES. 00014/002 PUNUC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00016/001 CCTB SA G S0720 'D3T1' FSNAME=CCTRANTB..SA.1(1) 16 D4T1 26 CCTB..SA.001 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:01.33 0 USED BY MTS TO TRANSLATE LOGICAL CARRIAGE CONTROL TO PRINTER COMMANDS. UNCHANGED SINCE DIST 1.0. 00016/002 CCTB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00017 PN XLATE TABLE SA # (OBSOLETE) D3T1 17 PN_XLATE_TABLE..SA.1 1 SEQ 80 1 PAGE UM JULY 30, 1973 23:01.33 00018/001 STOP/BLAST/GOOSE JOBS SA G S0720 'D3T1' FSNAME=STOP/BLAST/GOOSE_JOBS..SA.1(1) 18 D4T1 27 STOP/BLAST/GOOSE_JOBS..SA.001 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:01.54 0 THE STOP, BLAST, AND GOOSE UMMPS JOB PROGRAMS. UNCHANGED SINCE DIST 1.0. 00018/002 STOP/BLAST/GOOSE JOBS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00019/001 TASKS JOB SA G TSKJ S0792 WSGFS FSNAME=UTASKS D4.1T1 9 TASKS_JOB..SA.001 1 LINE 80 11 PAGE UM WSG MAY 13, 1978 16:52:12 WSG.:UTASKS 0 THE JOB PROGRAM VERSION OF *TASKS (145); CONTAINS THE TSKFMT SUBROUTINE CALLED BY *TASKS (145) AND SSRTN (413/1). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). SOURCE IN LINES (1,999). 0 Referenced by comments of: 145/1, 413/1, 647/1 1 THU SEP 12/96 23:39:34 Page 6 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00019/002 TASKS JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00020/001 JOBDUMP SA G S0720 'D3T1' FSNAME=JOBDUMP_JOB..SA.1(1) 20 D4T1 29 JOBDUMP..SA.001 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:03.31 0 UMMPS "JOBDUMP" JOB. USES SVC XJOBDUMP TO DUMP THE SPECIFIED JOB. UNCHANGED SINCE DIST 1.0. 00020/002 JOBDUMP OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00021/001 BROADCST SA G BDCS MTS:BROADCST(1000) D4.2T1 10 BROADCST..SA.001 1 LINE 80 14 PAGE UM OGDEN MAR. 26, 1979 02:14:40 MTS.:BROADCST 0 JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR TO ALL USERS. HAS A SETA SYMBOL (%DC) WHICH CONTROLS CONDITIONAL ASSEMBLY OF CODE WHICH SENDS BROADCAST MESSAGES TO THE UM DATA CONCENTRATORS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MISC.MACROS (728). 00021/002 BROADCST OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 0 OBJECT ASSEMBLED WITH &DC SETA 0. 00021/003 BROADCST PGM OC G MTS:BROADCST(1,499) D4.2T1 11 BROADCST.PGM.OC.003 1 LINE 25 1 PAGE UM OGDEN MAR. 26, 1979 02:14:46 0 A PROGRAM THAT CAN BE $RUN TO DO WHAT THE BROADCST JOB PROGRAM DOES. 00023/001 TPMOVE JOBS SA O TPMV S0792 WSGFS FSNAME=REWJOB D4T1 31 TPMOVE_JOBS..SA.001 1 LINE 80 6 PAGE UM WSG DEC. 01, 1976 12:56:04 0 JOBS TO MOVE A TAPE (REW, WTM, BSF, BSR, FSF, FSR, ERG) THE WTM JOB DOESN'T USE A MODESET, SO THE DENSITY WILL BE UNPREDICTABLE ON DUAL-DENSITY TAPE DRIVES. 00023/002 TPMOVE JOBS OC O # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00024/001 ONLINE/OFFLINE SA G MTS:ON/OFFLINE(1,999) D4T1 32 ONLINE/OFFLINE..SA.001 1 LINE 80 17 PAGE UM MTA JULY 27, 1977 21:27:39 MTS.:ON/OFFLINE 0 JOB TO ONLINE OR OFFLINE A DEVICE, CONTROL UNIT, CHANNEL, OR CHANNEL-CONTROL UNIT PATH. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). (1) TO ONLINE/OFFLINE ONE OR MORE DEVICES: ONLINE|OFFLINE DEVNAME1 DEVNAME2 ... (2) TO ONLINE/OFFLINE A CONTROL UNIT: ONLINE|OFFLINE CU|ALL DEVNAME1|CU#1 DEVNAME2|CU#2 ... 1 THU SEP 12/96 23:39:34 Page 7 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00025/001 QN/PN/TN JOBS SA G S0720 'D3T1' FSNAME=QN/PN/TN_JOBS..SA.1(1) 24 D4T1 33 QN/PN/TN_JOBS..SA.001 1 SEQ 80 5 PAGE UM MTA JULY 30, 1973 23:03.42 0 THREE ASSEMBLIES THAT LOAD THE 1403 UCS BUFFER FOR QN, PN, OR TN CHARACTER SETS. THE QN JOB CONTAINS A SUBROUTINE USED BY ALL THE REST OF THEM. FOR EXAMPLE, ENTERING "PN PTR1 ECHO" ON THE OPERATOR'S CONSOLE WILL LOAD THE UCS BUFFER FOR PTR1 WITH THE PN CHARACTER SET AND ECHO THE CHARACTERS TO THE PRINTER FOR VERIFICATION. UNCHANGED SINCE DIST 2.0. 00025/002 QN/PN/TN JOBS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00026 CPCC JOB SA # (OBSOLETE) D3T1 25 CPCC_JOB..SA.1 1 SEQ 80 7 PAGE UM JULY 30, 1973 23:04.05 00031 GTZ # (OBSOLETE) D2.1 036 UM 00038/001 TSFO SA G TSF W032:TSFOSOU4.0 D4T1 34 TSFO.RPI_MASTER.SA.001 1 LINE 80 235 PAGE UM EMERY JULY 27, 1977 21:27:53 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). 00038/002 TSFO *2741RTN OC G *2741RTN D4T1 35 TSFO.*2741RTN.OC.002 1 LINE 80 17 PAGE UM EMERY JULY 27, 1977 21:28:20 *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 1 THU SEP 12/96 23:39:34 Page 8 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00038/003 TSFO *TTYRTN OC G *TTYRTN D4T1 36 TSFO.*TTYRTN.OC.003 1 LINE 30 1 PAGE UM EMERY JULY 27, 1977 21:28:22 *TTYRTN 0 THIS FILE CONSISTS OF: $CONTINUE WITH *2741RTN RETURN LDT TEL2 IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL TEL2 IS UNDEFINED IN LCSYMBOL. NORMALLY TEL2 IS DEFINED BY PISTLE AT IPL. 00038/004 TSFO *MRXARTN OC G *MRXARTN D4T1 37 TSFO.*MRXARTN.OC.004 1 LINE 30 1 PAGE UM EMERY JULY 27, 1977 21:28:24 *MRXARTN 0 THIS FILE CONSISTS OF: $CONTINUE WITH *2741RTN RETURN LDT MRXA IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL MRXA IS UNDEFINED IN LCSYMBOL. NORMALLY MRXA IS DEFINED BY PISTLE AT IPL. 00038/005 TSFO TRTBLGEN SA TGEN W032:TRTBLGEN(1,500) D4T1 38 TSFO.TRTBLGEN.SA.005 1 LINE 80 11 PAGE UM EMERY JULY 27, 1977 21:28:26 0 PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE ALL NON-ASCII TABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY ARBITRARY TRANSLATE TABLES. LOGICAL I/O UNITS USED ARE: 1 DEFINITION OF NAMES OF CHARACTERS (038/9). 2 DEFINITION OF CHARACTER SET ON THE GOLFBALL. 038/10 AND 038/11 ARE EXAMPLES. 3 DEFINITION OF THE CODE SET BEING USED (EITHER 038/7 OR 038/8). SPRINT PRINTED OUTPUT AND ERROR COMMENTS. SPUNCH NEW TRANSLATE TABLES. THE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK. 00038/006 TSFO TRTBLGEN OC W032:TRTBLGEN(2000) D4T1 39 TSFO.TRTBLGEN.OC.006 1 LINE 80 3 PAGE UM EMERY JULY 27, 1977 21:28:28 00038/007 TSFO KBD2741PTTC D W032:KBD2741PTTC D4T1 40 TSFO.KBD2741PTTC.D.007 1 LINE 41 1 PAGE UM EMERY JULY 27, 1977 21:28:30 0 SEE 038/5. THIS IS THE 2741 PTTC KEYBOARD DEFINITION. 00038/008 TSFO KBD2741CORR D W032:KBD2741CORR D4T1 41 TSFO.KBD2741CORR.D.008 1 LINE 41 1 PAGE UM EMERY JULY 27, 1977 21:28:33 0 SEE 038/5. THIS IS THE 2741 CORRESPONDENCE KEYBOARD DEFINITION. 00038/009 TSFO EBCDDEFN D W032:EBCDDEFN D4T1 42 TSFO.EBCDDEFN.D.009 1 LINE 32 3 PAGE UM EMERY JULY 27, 1977 21:28:35 0 SEE 038/5. THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT. 0 Referenced by comments of: 38/5, 575/3 1 THU SEP 12/96 23:39:34 Page 9 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00038/010 TSFO GOLFPTTC D W032:GOLFPTTC D4T1 43 TSFO.GOLFPTTC.D.010 1 LINE 72 3 PAGE UM EMERY JULY 27, 1977 21:28:37 0 SEE 038/5. THIS FILE CONTAINS DEFINITIONS OF PTTC GOLF BALLS. THE DEFINITONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER. CONTAINS "$CONTINUE WITH W032:GOLFPTTC" LINES. 0 Referenced by comments of: 575/3 00038/011 TSFO GOLFCORR D W032:GOLFCORR D4T1 44 TSFO.GOLFCORR.D.011 1 LINE 72 8 PAGE UM EMERY JULY 27, 1977 21:28:39 0 SEE 038/5. THIS FILE CONTAINS DEFINITIONS OF CORRESPONDENCE GOLF BALLS. THE DEFINITIONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER. CONTAINS "$CONTINUE WITH W032:GOLFCORR" LINES. 0 Referenced by comments of: 575/3 00038/012 TSFO MEMO 338 WF # OBSOLETE (SEE 575/7) 45 D4T1 45 TSFO.MEMO_338.WF.012 1 LINE 117 6 PAGE UM EMERY JAN. 24, 1977 21:27:23 00038/013 TSFO MEMO 353 WF # OBSOLETE (SEE COMP. 733) 46 D4T1 46 TSFO.MEMO_353.WF.013 1 LINE 77 1 PAGE UM EMERY MAR. 04, 1977 16:54:45 00038/014 TSFO MEMO 366 WF W098:M366 D4T3 767 TSFO.MEMO_366.WF.014 1 LINE 110 3 PAGE UM EMERY SEP. 19, 1977 16:30:27 0 THIS IS COMPUTING CENTER MEMO 366 -- "ADDITIONS TO MEMOREX 1270 DEVICE SUPPORT ROUTINE" 00039/001 CASECONV SA CASE S0720 'D3T1' FSNAME=CASECONV..SA.1(1) 37 D4T1 47 CASECONV..SA.001 1 LINE 80 1 PAGE UM EMERY JULY 30, 1973 23:04.54 0 TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE. ALL OTHER CHARACTERS ARE UNCHANGED. 00039/002 CASECONV OC # RESIDENT SYSTEM (SEE COMP 468/1) UM EMERY 00040/001 KEYWRD SCANNER SA G W170:KWIC(MIN,-1) D4.2T1 12 KEYWRD_SUBR_-_KWIC..SA.001 1 LINE 80 72 PAGE UM HELFFRICH MAR. 26, 1979 02:14:48 W170:KWIC 0 D4.2 BASE SOURCE FOR KEYWORD SCANNER. 0 Referenced by comments of: 40/4 00040/002C KEYWRD SCANNER UPDATE UC G W170:KWIC(10000) RD16T1 2 KEYWRD_SCANNER.UPDATE.UC.002 1 LINE 69 1 PAGE UM HELFFRICH JULY 12, 1979 22:22:10 0 UPDATE DECK TO YIELD CURRENT KEYWORD SCANNER SOURCE CODE. 1 THU SEP 12/96 23:39:34 Page 10 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00040/003B KEYWRD SCANNER OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00040/004B KEYWRD SCANNER SPELLING CORR SA G W170:KWIC.SPELL(1000) RD16T1 3 KEYWRD_SCANNER.SPELLING_C.SA.004 1 LINE 70 3 PAGE UM HELFFRICH JULY 12, 1979 22:22:54 W170:KWIC.SPELL 0 SPELLING CORRECTION SUBROUTINE USED BY MTS AND THE KEYWORD SCANNER (40/1). ALSO USER-CALLABLE. 00040/005B KEYWRD SCANNER SPELLING CORR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00041 GETSPACE/FREESPAC SA # (OBSOLETED BY 732) D4T1 51 GETSPACE/FREESPAC.D4_MAST.SA.001 1 SEQ 80 28 PAGE UM JULY 27, 1977 21:31:43 00042/001 MTS D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=MTS D4T1 55 MTS.D4_MASTER.SA.001 1 SEQ 80 137 PAGE UM MTS HELFFRICH SEP. 15, 1977 18:11:07 0 MASTER SOURCE FOR DIST 4.0 MTS. COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:RATEVEC (651/2), AND COPY:JOBSTA (413/9). ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:RMGRMACLIB (1054/1), AND *SYSMAC. 0 Referenced by comments of: 344/1 00042/002B MTS UPDATE UC G MTS:MTSUPD RD16T1 4 MTS.UPDATE.UC.002 1 LINE 76 27 PAGE UM MTS HELFFRICH JULY 12, 1979 22:22:55 MTS.:MTSUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=MTS. 00042/003B MTS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00042/004B MTS ASM JOB C MTS:MTSASM RD16T1 5 MTS.ASM_JOB.C.004 1 LINE 122 5 PAGE UM MTS HELFFRICH JULY 12, 1979 22:23:08 MTS.:MTSASM 0 USING THE D4.2 SOURCE AS BASE: AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES OF MTS USING THE D4.0 SOURCE AS BASE: AT LINE 2000, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES AT LINE 3000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES OF MTS 0 Referenced by comments of: 722/1 1 THU SEP 12/96 23:39:34 Page 11 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00042/005B MTS L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=MTS.LIST 1 RD16T1 6 MTS..L.005 1 SEQ 133 527 PAGE UM MTS HELFFRICH JULY 12, 1979 22:24:14 00042/006 MTS FILETYPE WORDS WF S0938 FSAVE2 VLO FSNAME=ADDNEWFILE(1) D4T1 60 MTS.FILETYPE_WORDS.WF.008 1 LINE 134 3 PAGE UM MTA MAY 28, 1975 22:49:52 0 WRITEUP DESCRIBING HOW TO ADD A NEW TYPE OF FILE TO MTS. 00042/007 MTS TSATBL WORDS WF S0563 D4T1 VLO FSNAME=MTS.TSATBL_WORDS.WF.009(1) 61 D4T1 61 MTS.TSATBL_WORDS.WF.009 1 LINE 113 1 PAGE UM MTA SEP. 15, 1977 18:14:15 0 WRITEUP DESCRIBING HOW TO USE THE TSATBL MACRO (IN COPY:MTS.MACROS). 00043 LCSYMBOL SA # (PART OF COMP 4000) UM 0 Referenced by comments of: 4000/1 00044/001 PDP SA G MTA:PDP.S D4.2T1 13 PDP..SA.001 1 LINE 72 35 PAGE UM MTA MAR. 26, 1979 02:15:06 MTA.:PDP.S 0 THE PAGING DRUM PROCESSOR. ASSEMBLY PARAMETERS ALLOW VERSION TO BE ASSEMBLED FOR EITHER 2305 FIXED HEAD FILE AND 3330 MIGRATION DISK, OR 2301 DRUM AND 3330 MIGRATION DISK. DISTRIBUTED OBJECT IS FOR 2305/3330 COMBINATION NORMALLY USED ON 370/470 SYSTEMS. COPIES COPY:PCBDSECT (470), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3). 0 Referenced by comments of: 540/3 00044/002 PDP 2305/3330 OBJ OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 0 VERSION ASSEMBLED FOR USE WITH AN IBM 2305 MOD 1 OR MOD 2 FHF AND IBM 3330 (OR EQUIVALENT) PAGING DISK. 00045/001 SUPERVISOR D4 MASTER SA G S0563 D4T1 VLO FSNAME=SUPERVISOR.D4_MASTER.SA.004(1) 66 D4T1 66 SUPERVISOR.D4_MASTER.SA.004 1 SEQ 80 318 PAGE UM MTA AUG. 20, 1977 22:31:37 0 MASTER SOURCE FOR D4.0 SUPERVISOR. COPIES COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CPSCNPAR (609/2), AND COPY:CMDAREADSECT (531/18). 0 Referenced by comments of: 45/2, 540/3, 611/1 00045/002B SUPERVISOR UPDATE UC G MTA:UMMPS.U RD16T1 7 SUPERVISOR.UPDATE.UC.002 1 LINE 76 30 PAGE UM MTA JULY 12, 1979 22:24:21 MTA:UMMPS.U 0 UPDATE TO D4.0 UMMPS (045/1) TO PRODUCE CURRENT UMMPS. 1 THU SEP 12/96 23:39:34 Page 12 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00045/003B SUPERVISOR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00045/004 SUPERVISOR L S0707 UMMPSL POSN=UMMPS.LISTING.370 D4.2T2 507 SUPERVISOR..L.004 1 SEQ 133 677 PAGE UM MTA APR. 09, 1979 00:02:33 00045/005 SUPERVISOR SVC WRITEUP WT S0683 OGDEN FSNAME=SVCDESCR D4.2T2 517 SUPERVISOR.SVC_WRITEUP.WT.005 1 LINE 92 36 PAGE UM OGDEN APR. 04, 1979 00:12:01 0 TEXT/360 INPUT FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS. 00045/006 SUPERVISOR SVC WRITEUP PT MTS:SVC.W D4.2T2 508 SUPERVISOR.SVC_WRITEUP.PT.006 1 LINE 105 86 PAGE UM OGDEN APR. 09, 1979 00:05:56 MTS.:SVC.W 0 COPY THIS TO A TN PRINTER @CC (NOT @MCC). 00045/007 SUPERVISOR TEST SVC STIO SA G MTA:TESTSTIO(1,999) D4T1 71 SUPERVISOR.TEST_SVC_STIO.SA.011 1 LINE 80 4 PAGE UM MTA JULY 27, 1977 21:46:19 MTA.:TESTSTIO 0 TEST PROGRAM FOR SVC STIO TO BE USED IN THE VIRTUAL MACHINE. 00045/008 SUPERVISOR TEST SVC STIO OC G MTA:TESTSTIO(1000) D4T1 72 SUPERVISOR.TEST_SVC_STIO.OC.012 1 LINE 80 2 PAGE UM MTA JULY 27, 1977 21:46:19 00045/009 SUPERVISOR TEST PROT SVC SA O MTA:TESTPROTSVC(1,999) D4T1 73 SUPERVISOR.TEST_PROT_SVC.SA.013 1 LINE 80 5 PAGE UM MTA JULY 27, 1977 21:46:22 MTA.:TESTPROTSVC 0 PROGRAM TO TEST THE SVCS RELATED TO PROTECTION. INTENDED TO BE USED WHILE RUNNING MTS IN THE VIRTUAL MACHINE. HALTS IF AN ERROR OCCURS. 00045/010 SUPERVISOR TEST PROT SVC OC O MTA:TESTPROTSVC(1000) D4T1 74 SUPERVISOR.TEST_PROT_SVC.OC.014 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:46:25 00045/011 SUPERVISOR TEST SETSTK SA G MTA:TESTSETSTK(1,999) D4.1T1 21 SUPERVISOR.TEST_SETSTK.SA.013 1 LINE 59 1 PAGE UM MTA MAY 13, 1978 17:01:22 MTA:TESTSETSTK 0 PROGRAM TO TEST THE CHANGES TO THE SETSTK SVC. 00045/012 SUPERVISOR TEST SETSTK OC G MTA:TESTSETSTK(1000) D4.1T1 22 SUPERVISOR.TEST_SETSTK.OC.014 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 17:01:23 00045/013 SUPERVISOR DOCUMENTATION WF MTA:UMMPS.INFO D4.2T1 14 SUPERVISOR.DOCUMENTATION.WF.013 1 LINE 94 6 PAGE UM MTA MAR. 26, 1979 02:15:12 MTA:UMMPS.INFO 0 SUMMARY OF SECTIONS OF UMMPS AND WHAT THEY DO. PREPARED FOR A LECTURE TO A GRADUATE PROGRAMMING CLASS. 1 THU SEP 12/96 23:39:34 Page 13 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00046/001 CONFIG D4 MASTER SA G S0699 D3TAPE POSN=CONFIG.370 D4T1 78 CONFIG.D4_MASTER.SA.004 1 SEQ 80 36 PAGE UM MTA SEP. 15, 1977 18:17:27 0 D4.0 MASTER SOURCE FOR CONFIGURATION PROGRAM. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CMDAREADSECT (531/18), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MISC.MACROS (728), COPY:SETPARM (653), AND MTA:MCHMAC (577/6). 00046/002B CONFIG UPDATE UC G MTA:CONFIG.U RD16T1 8 CONFIG.UPDATE.UC.002 1 LINE 76 12 PAGE UM MTA JULY 12, 1979 22:24:49 MTA.:CONFIG.U 0 UDATE TO 046/1 TO PRODUCE CURRENT CONFIG. 00046/003B CONFIG OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00046/004 CONFIG L S0707 UMMPSL POSN=CNFG.LISTING.370 D4.2T1 16 CONFIG..L.004 1 SEQ 133 146 PAGE UM MTA APR. 13, 1979 01:01:23 00047 *CATALOG SA G # (OBSOLETED BY $FILESTATUS, COMP 529) D3T1 56 CATALOG..SA.1 1 LINE 80 8 PAGE UM JULY 30, 1973 23:26.21 00049/001 SDUMP SUBR SA MTS:SDUMP(1000) D4.2T1 17 SDUMP_SUBR..SA.001 1 LINE 80 18 PAGE UM MTS HELFFRICH MAR. 26, 1979 02:16:17 MTS.:SDUMP 0 MTS SUBROUTINE TO PRODUCE DUMPS. ALSO USED BY $DISPLAY COMMAND. COPIES *CNFGINFODSECT (654). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 463/1 00049/002 SDUMP SUBR OC # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00050/001 STATISTICS SAVE *STA C *STA D4.2T1 18 STATISTICS_SAVE.*STA.C.001 1 LINE 45 1 PAGE UM SALISBURY MAR. 26, 1979 02:16:26 *STA 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO RUN THE STATISTICS SAVE PROGRAM. INVOKED BY ENTERING "MTS *STA" ON THE OPERATOR'S CONSOLE. THE SAVE PROGRAM DUMPS THE MTS JOB STATISTICS FILE (*STATISTICS) TO TAPE. MTS WARNS THE OPERATOR WHEN *STATISTICS HAS REACHED 7500 RECORDS BY PRINTING "*** *STATISTICS IS FULL ***" ON THE CONSOLE. WHEN THIS HAPPENS, THE OPERATOR SHOULD IMMEDIATELY ENTER "MTS *STA" TO BEGIN THE SAVE PROGRAM BEFORE THE FILE IS REALLY FULL (JOBS WILL BEGIN TO "SNARK" IF THIS HAPPENS). 0 Referenced by comments of: 256/2 00050/002 STATISTICS SAVE *STI C *STI D4.2T1 19 STATISTICS_SAVE.*STI.C.002 1 LINE 43 1 PAGE UM SALISBURY MAR. 26, 1979 02:16:27 *STI 0 COMMAND FILE WHICH IS RUN AUTOMATICALLY AT SYSTEM INITIALIZATION BY INIT:INITCMD (97/2). THIS CAUSES THE STATISTICS SAVE PROGRAM (50/3) TO CHECK FOR A SYSTEM CRASH DURING THE LAST STATISTICS SAVE. IF THERE WAS A CRASH, THE DIRECTORY 1 THU SEP 12/96 23:39:34 Page 14 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (50/6) IS REPAIRED AND *STATISTICS (50/5) IS RESAVED. 0 Referenced by comments of: 97/2 00050/003 STATISTICS SAVE SAVE PGM SG G W044:NEWSTA.S D4.2T1 20 STATISTICS_SAVE.SAVE_PGM.SG.003 1 LINE 114 8 PAGE UM SALISBURY MAR. 26, 1979 02:16:28 0 PROGRAM TO SAVE *STATISTICS (50/5) ON TAPE. THE USE OF THIS PROGRAM IS DESCRIBED IN THE MTS OPERATORS MANUAL (592). IN GENERAL, THIS PROGRAM SAVES *STATISTICS ON BOTH A MONTHLY AND A DAILY TAPE AND ENTERS THE SIGNON/SIGNOFF TIME RANGES INTO THE FILE SYS:DIRECTORY (50/6). 0 Referenced by comments of: 50/2, 50/6 00050/004 STATISTICS SAVE SAVE PGM OC G SYS:NEWSTA D4.2T1 21 STATISTICS_SAVE.SAVE_PGM.OC.004 1 LINE 80 10 PAGE UM SALISBURY MAR. 26, 1979 02:16:31 SYS.:NEWSTA 0 MUST BE LOADED WITH TAPE DIRECTORY LIBRARY SYS:DIRLIB (742/5), E. G., $RUN SYS:NEWSTA+SYS:DIRLIB 00050/005 STATISTICS SAVE *STATISTICS D # MTS:TST.STAT UM SALISBURY *STATISTICS 0 DATA FILE USED TO ACCUMULATE MTS SIGNOFF STATISTICS TO BE USED FOR BILLING AND JOB STATISTICS. MUST BE PERMITTED AS FOLLOWS: P/N, RW (PKEY=*SYS.STAT, PKEY=SYS.:STA, MTS.&PKEY=*SYS.STAT, ACC.&PKEY=ACC.:ACCMAINT), R (PKEY=INIT:INITCHK, ACC.) 0 Referenced by comments of: 50/2, 50/3, 97/2 00050/006 STATISTICS SAVE DIRECTORY D # MTS:TST.DIR UM SALISBURY SYS.:DIRECTORY 0 DIRECTORY OF STATISTICS FILES (*STATISTICS) THAT HAVE BEEN SAVED ON DAILY AND MONTHLY STATISTICS TAPES BY SYS:NEWSTA (50/3). THIS DIRECTORY MAY BE INTERROGATED BY THE TAPE DIRECTORY PROGRAM (742/1). 0 Referenced by comments of: 50/2, 50/3, 617/1 00051/001 *WATFOR ARITH S # (OBSOLETE) D2T2 011 UM 00051/002 *WATFOR DODO S # (OBSOLETE) D2T2 012 UM 00051/003 *WATFOR DUMMY S # (OBSOLETE) D2T2 013 UM 1 THU SEP 12/96 23:39:34 Page 15 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00051/004 *WATFOR DUMMYFUN S # (OBSOLETE) D2T2 014 UM 00051/005 *WATFOR FIOCS S # (OBSOLETE) D2T2 015 UM 00051/006 *WATFOR FIOSTAB S # (OBSOLETE) D2T2 016 UM 00051/007 *WATFOR FORMAT S # (OBSOLETE) D2T2 017 UM 00051/008 *WATFOR FORMCONV S # (OBSOLETE) D2T2 018 UM 00051/009 *WATFOR FRIOSCAN S # (OBSOLETE) D2T2 019 UM 00051/010 *WATFOR FUNCTION S # (OBSOLETE) D2T2 020 UM 00051/011 *WATFOR INOUT S # (OBSOLETE) D2T2 021 UM 00051/012 *WATFOR LINKR S # (OBSOLETE) D2T2 022 UM 00051/013 *WATFOR MAIN S # (OBSOLETE) D2T2 023 UM 00051/014 *WATFOR MESSAGE S # (OBSOLETE) D2T2 024 UM 00051/015 *WATFOR RELOC S # (OBSOLETE) D2T2 025 UM 00051/016 *WATFOR SCAN S # (OBSOLETE) D2T2 026 UM 00051/017 *WATFOR SPECS S # (OBSOLETE) D2T2 027 UM 00051/018 *WATFOR OPTIONS S # (OBSOLETE) D2T2 028 UM 00051/019 *WATFOR CDEFN S # (OBSOLETE) D2T2 029 UM 00051/020 *WATFOR COMMR S # (OBSOLETE) D2T2 030 UM 1 THU SEP 12/96 23:39:34 Page 16 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00051/021 *WATFOR STARTA S # (OBSOLETE) D2T2 031 UM 00051/022 *WATFOR WATMAC S # (OBSOLETE) D2T2 032 UM 00051/023 *WATFOR UAT O # (OBSOLETE) D2T2 033 UM 00051/024 *WATFOR UPDATE U # (OBSOLETE) D2.2 091 UM 00051/025 *WATFOR DIAGS S # (OBSOLETE) D2T2 035 UM 00051/026 *WATFOR DIAGS O # (OBSOLETE) D2T2 036 UM 00052/001 *COINFLIP SA CNFL S0720 'D3T1' FSNAME=COINFLIP..SA.1(1) 62 D4T1 85 COINFLIP..SA.001 1 SEQ 80 3 PAGE UM STERKEN JULY 30, 1973 23:27.01 0 DEMONSTRATION PROGRAM. 00052/002 *COINFLIP OE *COINFLIP D4T1 86 COINFLIP..OE.002 1 LINE 255 1 PAGE UM STERKEN JULY 27, 1977 21:50:14 *COINFLIP 00053/001 DISKDUMP SA G DSKD FILE:DISKDUMP.S D4T1 87 DISKDUMP..SA.001 1 LINE 80 12 PAGE UM HELFFRICH JULY 27, 1977 21:50:16 FILE:DISKDUMP.S 0 PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS. DOESN'T CALL MTS FILE ROUTINES. 00053/002 DISKDUMP OC G FILE:DISKDUMP D4T1 88 DISKDUMP..OC.002 1 LINE 80 3 PAGE UM HELFFRICH JULY 27, 1977 21:50:18 FILE:DISKDUMP 00054/001 *TPS S # (OBSOLETE) D2T1 145 UM 00054/002 *TPS LL PTR UC S # (OBSOLETE) D2T1 146 UM 00055/001 *BCDEBCD SA G BCDE S0720 'D3T1' FSNAME=BCDEBCD..SA.1(1) 66 D4T1 89 BCDEBCD..SA.001 1 SEQ 80 2 PAGE UM ENGLE JULY 30, 1973 23:27.43 0 TRANSLATE SCIENTIFIC 026 CODE TO EBCD. 00055/002 *BCDEBCD OC G *BCDEBCD D4T1 90 BCDEBCD..OC.002 1 LINE 80 1 PAGE UM ENGLE JULY 27, 1977 21:50:22 *BCDEBCD 1 THU SEP 12/96 23:39:34 Page 17 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00056 *2250RTN SA # (OBSOLETE) D4T1 91 2250RTN..SA. 1 SEQ 80 26 PAGE UM JULY 30, 1973 23:28.54 00057/001 *TABEDIT SA O TBED W045:TABEDIT D4T1 92 TABEDIT..SA.001 1 LINE 80 5 PAGE UM PIRKOLA JULY 27, 1977 21:50:27 0 PROGRAM TO REFORMAT RECORDS USING A SPECIFIED TAB CHARACTER AND TAB STOPS. COPIES *GDINFODSECT (594). ASSEMBLE USING *SYSMAC. 00057/002 *TABEDIT OC O *TABEDIT D4T1 93 TABEDIT..OC.002 1 LINE 80 2 PAGE UM PIRKOLA JULY 27, 1977 21:50:29 *TABEDIT 00058 *T7D S # (OBSOLETE) D2T1 142 UM 00059 *TCP S # (OBSOLETE) D2T1 141 UM 00060 JBRP S # (OBSOLETE) D2T1 144 UM 00061 *T9D S # (OBSOLETE) D2T1 143 UM 00063 *PTSKRTN SA # (OBSOLETE) D4T1 94 PTSKRTN..SA. 1 SEQ 80 14 PAGE UM JULY 30, 1973 23:30.18 00064/001 *OBJSCAN SA G SCAN W062:OBJSCAN.S D4.2T1 22 OBJSCAN..SA.001 1 LINE 80 22 PAGE UM TIFFANY MAR. 26, 1979 02:16:32 0 SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER RANGES FOR EACH MODULE ENCOUNTERED. COPIES *GDINFODSECT (594). 00064/002 *OBJSCAN OE G *OBJSCAN D4.2T1 23 OBJSCAN..OE.002 1 SEQ 4804 2 PAGE UM TIFFANY MAR. 26, 1979 02:16:34 *OBJSCAN 00065 *ASMERR S # (OBSOLETE) D2T1 323 UM 00066/001 *ASMG ASMGASM SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGASM 1 D4T1 97 ASMG.ASMGASM.SA.001 1 SEQ 80 20 PAGE UM MTA JULY 27, 1977 21:50:54 0 COMPONENTS 066/1 THROUGH 066/67 ARE THE MASTER OS/360 SOURCE FOR THE G LEVEL ASSEMBLER (ASMG) VERSION 2, LEVEL 7 FROM THE UNIVERSITY OF WATERLOO. THE UPDATE DECK (066/71) WILL PRODUCE AN ASMG WHICH RUNS IN MTS. COMPONENT 066/72 CONTAINS COMMANDS TO UPDATE AND ASSEMBLE ASMG. 0 Referenced by comments of: 705/12 1 THU SEP 12/96 23:39:34 Page 18 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/002 *ASMG ASMGBUFF SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGBUFF 2 D4T1 98 ASMG.ASMGBUFF.SA.002 1 SEQ 80 51 PAGE UM MTA JULY 27, 1977 21:50:58 00066/003 *ASMG ASMGFD SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFD 3 D4T1 99 ASMG.ASMGFD.SA.003 1 SEQ 80 21 PAGE UM MTA JULY 27, 1977 21:51:00 00066/004 *ASMG ASMGFEX SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFEX 4 D4T1 100 ASMG.ASMGFEX.SA.004 1 SEQ 80 19 PAGE UM MTA JULY 27, 1977 21:51:02 00066/005 *ASMG ASMGFI SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFI 5 D4T1 101 ASMG.ASMGFI.SA.005 1 SEQ 80 13 PAGE UM MTA JULY 27, 1977 21:51:04 00066/006 *ASMG ASMGFPP SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGFPP 6 D4T1 102 ASMG.ASMGFPP.SA.006 1 SEQ 80 33 PAGE UM MTA JULY 27, 1977 21:51:07 00066/007 *ASMG ASMGF1 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF1 7 D4T1 103 ASMG.ASMGF1.SA.007 1 SEQ 80 46 PAGE UM MTA JULY 27, 1977 21:51:10 00066/008 *ASMG ASMGF2 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2 8 D4T1 104 ASMG.ASMGF2.SA.008 1 SEQ 80 89 PAGE UM MTA JULY 27, 1977 21:51:15 00066/009 *ASMG ASMGF2A SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF2A 9 D4T1 105 ASMG.ASMGF2A.SA.009 1 SEQ 80 60 PAGE UM MTA JULY 27, 1977 21:51:19 00066/010 *ASMG ASMGF3 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF3 10 D4T1 106 ASMG.ASMGF3.SA.010 1 SEQ 80 62 PAGE UM MTA JULY 27, 1977 21:51:23 00066/011 *ASMG ASMGF7C SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7C 11 D4T1 107 ASMG.ASMGF7C.SA.011 1 SEQ 80 26 PAGE UM MTA JULY 27, 1977 21:51:25 00066/012 *ASMG ASMGF7D SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7D 12 D4T1 108 ASMG.ASMGF7D.SA.012 1 SEQ 80 25 PAGE UM MTA JULY 27, 1977 21:51:27 00066/013 *ASMG ASMGF7E SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7E 13 D4T1 109 ASMG.ASMGF7E.SA.013 1 SEQ 80 26 PAGE UM MTA JULY 27, 1977 21:51:29 00066/014 *ASMG ASMGF7G SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7G 14 D4T1 110 ASMG.ASMGF7G.SA.014 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 21:51:30 00066/015 *ASMG ASMGF7I SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7I 15 D4T1 111 ASMG.ASMGF7I.SA.015 1 SEQ 80 15 PAGE UM MTA JULY 27, 1977 21:51:33 00066/016 *ASMG ASMGF7L SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7L 16 D4T1 112 ASMG.ASMGF7L.SA.016 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 21:51:35 00066/017 *ASMG ASMGF7N SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7N 17 D4T1 113 ASMG.ASMGF7N.SA.017 1 SEQ 80 13 PAGE UM MTA JULY 27, 1977 21:51:37 00066/018 *ASMG ASMGF7S SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7S 18 D4T1 114 ASMG.ASMGF7S.SA.018 1 SEQ 80 8 PAGE UM MTA JULY 27, 1977 21:51:39 1 THU SEP 12/96 23:39:34 Page 19 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/019 *ASMG ASMGF7V SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7V 19 D4T1 115 ASMG.ASMGF7V.SA.019 1 SEQ 80 21 PAGE UM MTA JULY 27, 1977 21:51:42 00066/020 *ASMG ASMGF7X SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF7X 20 D4T1 116 ASMG.ASMGF7X.SA.020 1 SEQ 80 36 PAGE UM MTA JULY 27, 1977 21:51:45 00066/021 *ASMG ASMGF8A SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8A 21 D4T1 117 ASMG.ASMGF8A.SA.021 1 SEQ 80 27 PAGE UM MTA JULY 27, 1977 21:51:47 00066/022 *ASMG ASMGF8C SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8C 22 D4T1 118 ASMG.ASMGF8C.SA.022 1 SEQ 80 6 PAGE UM MTA JULY 27, 1977 21:51:48 00066/023 *ASMG ASMGF8D SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8D 23 D4T1 119 ASMG.ASMGF8D.SA.023 1 SEQ 80 23 PAGE UM MTA JULY 27, 1977 21:51:54 00066/024 *ASMG ASMGF8I SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8I 24 D4T1 120 ASMG.ASMGF8I.SA.024 1 SEQ 80 15 PAGE UM MTA JULY 27, 1977 21:51:57 00066/025 *ASMG ASMGF8L SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8L 25 D4T1 121 ASMG.ASMGF8L.SA.025 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 21:51:59 00066/026 *ASMG ASMGF8M SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8M 26 D4T1 122 ASMG.ASMGF8M.SA.026 1 SEQ 80 27 PAGE UM MTA JULY 27, 1977 21:52:03 00066/027 *ASMG ASMGF8N SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8N 27 D4T1 123 ASMG.ASMGF8N.SA.027 1 SEQ 80 13 PAGE UM MTA JULY 27, 1977 21:52:05 00066/028 *ASMG ASMGF8P SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8P 28 D4T1 124 ASMG.ASMGF8P.SA.028 1 SEQ 80 22 PAGE UM MTA JULY 27, 1977 21:52:09 00066/029 *ASMG ASMGF8S SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8S 29 D4T1 125 ASMG.ASMGF8S.SA.029 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 21:52:11 00066/030 *ASMG ASMGF8V SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGF8V 30 D4T1 126 ASMG.ASMGF8V.SA.030 1 SEQ 80 21 PAGE UM MTA JULY 27, 1977 21:52:14 00066/031 *ASMG ASMGIS00 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS00 31 D4T1 127 ASMG.ASMGIS00.SA.031 1 SEQ 80 11 PAGE UM MTA JULY 27, 1977 21:52:17 00066/032 *ASMG ASMGIS09 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS09 33 D4T1 128 ASMG.ASMGIS09.SA.032 1 SEQ 80 9 PAGE UM MTA JULY 27, 1977 21:52:20 00066/033 *ASMG ASMGIS20 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS20 35 D4T1 129 ASMG.ASMGIS20.SA.033 1 SEQ 80 6 PAGE UM MTA JULY 27, 1977 21:52:22 00066/034 *ASMG ASMGIS44 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS44 36 D4T1 130 ASMG.ASMGIS44.SA.034 1 SEQ 80 9 PAGE UM MTA JULY 27, 1977 21:52:24 00066/035 *ASMG ASMGIS60 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS60 37 D4T1 131 ASMG.ASMGIS60.SA.035 1 SEQ 80 10 PAGE UM MTA JULY 27, 1977 21:52:26 1 THU SEP 12/96 23:39:34 Page 20 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/036 *ASMG ASMGIS67 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS67 38 D4T1 132 ASMG.ASMGIS67.SA.036 1 SEQ 80 11 PAGE UM MTA JULY 27, 1977 21:52:28 00066/037 *ASMG ASMGIS70 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS70 39 D4T1 133 ASMG.ASMGIS70.SA.037 1 SEQ 80 12 PAGE UM MTA JULY 27, 1977 21:52:30 00066/038 *ASMG ASMGIS71 SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGIS71 40 D4T1 134 ASMG.ASMGIS71.SA.038 1 SEQ 80 12 PAGE UM MTA JULY 27, 1977 21:52:33 00066/039 *ASMG ASMGRTA SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGRTA 41 D4T1 135 ASMG.ASMGRTA.SA.039 1 SEQ 80 5 PAGE UM MTA JULY 27, 1977 21:52:34 00066/040 *ASMG ASMGUP SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGUP 42 D4T1 136 ASMG.ASMGUP.SA.040 1 SEQ 80 20 PAGE UM MTA JULY 27, 1977 21:52:37 00066/041 *ASMG APARM SA G S0032 ASMGOS 'ASMGOS 27' POSN=APARM 43 D4T1 137 ASMG.APARM.SA.041 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 21:52:39 00066/042 *ASMG ASMGSET SA G S0032 ASMGOS 'ASMGOS 27' POSN=ASMGSET 44 D4T1 138 ASMG.ASMGSET.SA.042 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 21:52:41 00066/043 *ASMG COMMENCE SM G S0032 ASMGOS 'ASMGOS 27' POSN=COMMENCE 45 D4T1 139 ASMG.COMMENCE.SM.043 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:52:43 00066/044 *ASMG COMMON SM G S0032 ASMGOS 'ASMGOS 27' POSN=COMMON 46 D4T1 140 ASMG.COMMON.SM.044 1 SEQ 80 18 PAGE UM MTA JULY 27, 1977 21:52:46 00066/045 *ASMG DCBOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=DCBOUT 47 D4T1 141 ASMG.DCBOUT.SM.045 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:52:47 00066/046 *ASMG DEFCHAR SM G S0032 ASMGOS 'ASMGOS 27' POSN=DEFCHAR 48 D4T1 142 ASMG.DEFCHAR.SM.046 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 21:52:49 00066/047 *ASMG ELZERO SM G S0032 ASMGOS 'ASMGOS 27' POSN=ELZERO 49 D4T1 143 ASMG.ELZERO.SM.047 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:52:51 00066/048 *ASMG EMSG SM G S0032 ASMGOS 'ASMGOS 27' POSN=EMSG 50 D4T1 144 ASMG.EMSG.SM.048 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:52:54 00066/049 *ASMG ENTRYOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=ENTRYOUT 51 D4T1 145 ASMG.ENTRYOUT.SM.049 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:52:55 00066/050 *ASMG EPTR SM G S0032 ASMGOS 'ASMGOS 27' POSN=EPTR 52 D4T1 146 ASMG.EPTR.SM.050 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:52:58 00066/051 *ASMG FDIMEN SM G S0032 ASMGOS 'ASMGOS 27' POSN=FDIMEN 53 D4T1 147 ASMG.FDIMEN.SM.051 1 SEQ 80 9 PAGE UM MTA JULY 27, 1977 21:53:00 00066/052 *ASMG FINISH SM G S0032 ASMGOS 'ASMGOS 27' POSN=FINISH 54 D4T1 148 ASMG.FINISH.SM.052 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:02 1 THU SEP 12/96 23:39:34 Page 21 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/053 *ASMG GETT SM G S0032 ASMGOS 'ASMGOS 27' POSN=GETT 55 D4T1 149 ASMG.GETT.SM.053 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:04 00066/054 *ASMG INST SM G S0032 ASMGOS 'ASMGOS 27' POSN=INST 56 D4T1 150 ASMG.INST.SM.054 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 21:53:06 00066/055 *ASMG INSTSET SM G S0032 ASMGOS 'ASMGOS 27' POSN=INSTSET 57 D4T1 151 ASMG.INSTSET.SM.055 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 21:53:08 00066/056 *ASMG LIST1EQU SM G S0032 ASMGOS 'ASMGOS 27' POSN=LIST1EQU 58 D4T1 152 ASMG.LIST1EQU.SM.056 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 21:53:10 00066/057 *ASMG MESSAGE SM G S0032 ASMGOS 'ASMGOS 27' POSN=MESSAGE 59 D4T1 153 ASMG.MESSAGE.SM.057 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:12 00066/058 *ASMG PRINTOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=PRINTOUT 60 D4T1 154 ASMG.PRINTOUT.SM.058 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:14 00066/059 *ASMG PRNT SM G S0032 ASMGOS 'ASMGOS 27' POSN=PRNT 61 D4T1 155 ASMG.PRNT.SM.059 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:16 00066/060 *ASMG PUTT SM G S0032 ASMGOS 'ASMGOS 27' POSN=PUTT 62 D4T1 156 ASMG.PUTT.SM.060 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:18 00066/061 *ASMG RD SM G S0032 ASMGOS 'ASMGOS 27' POSN=RD 63 D4T1 157 ASMG.RD.SM.061 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:20 00066/062 *ASMG SETR SM G S0032 ASMGOS 'ASMGOS 27' POSN=SETR 64 D4T1 158 ASMG.SETR.SM.062 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:22 00066/063 *ASMG SNAPDATA SM G S0032 ASMGOS 'ASMGOS 27' POSN=SNAPDATA 65 D4T1 159 ASMG.SNAPDATA.SM.063 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:24 00066/064 *ASMG SNAPOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=SNAPOUT 66 D4T1 160 ASMG.SNAPOUT.SM.064 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 21:53:26 00066/065 *ASMG TIMEOUT SM G S0032 ASMGOS 'ASMGOS 27' POSN=TIMEOUT 67 D4T1 161 ASMG.TIMEOUT.SM.065 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:29 00066/066 *ASMG TRANSLAT SM G S0032 ASMGOS 'ASMGOS 27' POSN=TRANSLAT 68 D4T1 162 ASMG.TRANSLAT.SM.066 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:31 00066/067 *ASMG UPEMSG SM G S0032 ASMGOS 'ASMGOS 27' POSN=UPEMSG 69 D4T1 163 ASMG.UPEMSG.SM.067 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 21:53:33 00066/068 *ASMG ASMGMOD SA G WATF:ASMGMOD(1,999) D4T1 164 ASMG.ASMGMOD.SA.068 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:53:37 0 SOURCE FOR THE MODULE LIST INDICATING FROM WHICH FILE TO LOAD EACH PART OF ASMG. 00066/069 *ASMG ASMGMOD OC G WATF:ASMGMOD(1000) D4T1 165 ASMG.ASMGMOD.OC.069 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:53:37 1 THU SEP 12/96 23:39:34 Page 22 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/070 *ASMG GTIMEST OC G WATF:GTIMEST D4T1 166 ASMG.GTIMEST.OC.070 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:53:39 0 OBJECT FOR A SUBROUTINE TO GET THE USER'S REMAINING EXECUTION TIME. SOURCE FOR THIS SUBROUTINE HAS BEEN LOST, BUT COULD BE REGENERATED IF REALLY NECESSARY. 00066/071 *ASMG ASMGUPD UU G WATF:ASMGUPD D4T1 167 ASMG.ASMGUPD.UU.071 1 LINE 83 40 PAGE UM MTA JULY 27, 1977 21:53:41 0 UPDATE DECK TO CONVERT ALL OF THE OS VERSION OF ASMG (066/1 THROUGH 066/67) TO RUN IN MTS. 0 Referenced by comments of: 66/1, 66/72 00066/072 *ASMG ASMGJOB C WATF:ASMGJOB D4T1 168 ASMG.ASMGJOB.C.072 1 LINE 124 1 PAGE UM MTA JULY 27, 1977 21:53:49 0 THIS JOB UPDATES AND ASSEMBLES THE G ASSEMBLER FOR MTS. THE FOLLOWING FILES AND TAPES ARE USED: ASMGUPD - UPDATE DECK FOR ALL OF ASMG (066/71) ASMGSET - EMPTIED AND WRITTEN WITH A COPY SECTION ASMGMACROS - EMPTIED AND WRITTEN WITH A MACRO LIBRARY ASMGERRORS - EMPTIES AND WRITTEN WITT SERCOM OUTPUT OF THE ASSEMBLY S0032 VOL=ASMGOS - MASTER TAPE, CONTAINS CURRENT OS VERSION OF ASMG (066/1 THROUGH 066/67) ***NOTE*** DATA SET NAMES ON THIS TAPE MUST NOT BE CHANGED SINCE ASMGUPD CONTAINS %POSN COMMANDS TO POSITION THE TAPE. S0416 VOL=UPDATE - WRITTEN WITH NEW SOURCE FOR ASMG (MTS VERSION) S0111 VOL=ASMGL - WRITTEN WITH LISTINGS FOR ASMG (MTS VERSION) ASMG - EMPTIED AND WRITTEN WITH OBJECT FOR ASMG (MTS VERSION) THE LISTINGS ARE NOT PRINTED. A SEPARATE JOB IS REQUIRED. 0 Referenced by comments of: 66/74 00066/073 *ASMG ASMGJOB2 C WATF:ASMGJOB2 D4T1 169 ASMG.ASMGJOB2.C.073 1 LINE 112 1 PAGE UM MTA JULY 27, 1977 21:53:51 0 COMMAND FILE TO ASSEMBLE SELECTED PARTS OF ASMG. 00066/074 *ASMG ASMGLINK C WATF:ASMGLINK D4T1 170 ASMG.ASMGLINK.C.074 1 LINE 112 1 PAGE UM MTA JULY 27, 1977 21:53:53 0 COMMAND FILE TO PUT OUTPUT OF ASMGJOB (066/72) INTO PRIVATE FILES FOR TESTING. 0 Referenced by comments of: 66/75 00066/075 *ASMG ASMGCOPY C WATF:ASMGCOPY D4T1 171 ASMG.ASMGCOPY.C.075 1 LINE 26 2 PAGE UM MTA JULY 27, 1977 21:53:56 0 COMMAND FILE TO MOVE THE OUTPUT OF ASMGLINK (066/74) INTO THE PUBLIC FILES. 1 THU SEP 12/96 23:39:34 Page 23 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/076 *ASMG *ASMG OE G *ASMG D4T1 172 ASMG.*ASMG.OE.076 1 SEQ 8852 3 PAGE UM MTA JULY 27, 1977 21:53:58 *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 NOTE: *ASMG ALSO CONTAINS THE OBJECT 00066/077 *ASMG ASMGFPP OE G ETC:ASMGFPP D4T1 173 ASMG.ASMGFPP.OE.077 1 SEQ 12064 5 PAGE UM MTA JULY 27, 1977 21:54:00 ETC.:ASMGFPP 00066/078 *ASMG ASMGF1 OE G ETC:ASMGF1 D4T1 174 ASMG.ASMGF1.OE.078 1 SEQ 9088 3 PAGE UM MTA JULY 27, 1977 21:54:02 ETC.:ASMGF1 00066/079 *ASMG ASMGF2 OE G ETC:ASMGF2 D4T1 175 ASMG.ASMGF2.OE.079 1 SEQ 20784 6 PAGE UM MTA JULY 27, 1977 21:54:04 ETC.:ASMGF2 00066/080 *ASMG ASMGF3 OE G ETC:ASMGF3 D4T1 176 ASMG.ASMGF3.OE.080 1 SEQ 8286 3 PAGE UM MTA JULY 27, 1977 21:54:06 ETC.:ASMGF3 00066/081 *ASMG ASMGF7 OE G ETC:ASMGF7 D4T1 177 ASMG.ASMGF7.OE.081 1 SEQ 12904 6 PAGE UM MTA JULY 27, 1977 21:54:08 ETC.:ASMGF7 1 THU SEP 12/96 23:39:34 Page 24 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/082 *ASMG ASMGF8 OE G ETC:ASMGF8 D4T1 178 ASMG.ASMGF8.OE.082 1 SEQ 9552 6 PAGE UM MTA JULY 27, 1977 21:54:10 ETC.:ASMGF8 00066/083 *ASMG ASMGIS00 OE G ETC:ASMGIS00 D4T1 179 ASMG.ASMGIS00.OE.083 1 SEQ 2220 1 PAGE UM MTA JULY 27, 1977 21:54:12 ETC.:ASMGIS00 00066/084 *ASMG ASMGIS09 OE G ETC:ASMGIS09 D4T1 180 ASMG.ASMGIS09.OE.084 1 SEQ 1834 1 PAGE UM MTA JULY 27, 1977 21:54:15 ETC.:ASMGIS09 00066/085 *ASMG ASMGIS20 OE G ETC:ASMGIS20 D4T1 181 ASMG.ASMGIS20.OE.085 1 SEQ 1199 1 PAGE UM MTA JULY 27, 1977 21:54:17 ETC.:ASMGIS20 00066/086 *ASMG ASMGIS44 OE G ETC:ASMGIS44 D4T1 182 ASMG.ASMGIS44.OE.086 1 SEQ 1866 1 PAGE UM MTA JULY 27, 1977 21:54:19 ETC.:ASMGIS44 00066/087 *ASMG ASMGIS60 OE G ETC:ASMGIS60 D4T1 183 ASMG.ASMGIS60.OE.087 1 SEQ 2074 1 PAGE UM MTA JULY 27, 1977 21:54:21 ETC.:ASMGIS60 00066/088 *ASMG ASMGIS67 OE G ETC:ASMGIS67 D4T1 184 ASMG.ASMGIS67.OE.088 1 SEQ 2160 1 PAGE UM MTA JULY 27, 1977 21:54:23 ETC.:ASMGIS67 00066/089 *ASMG ASMGIS70 OE G ETC:ASMGIS70 D4T1 185 ASMG.ASMGIS70.OE.089 1 SEQ 2372 1 PAGE UM MTA JULY 27, 1977 21:54:25 ETC.:ASMGIS70 00066/090 *ASMG ASMGIS71 OE G ETC:ASMGIS71 D4T1 186 ASMG.ASMGIS71.OE.090 1 SEQ 2380 1 PAGE UM MTA JULY 27, 1977 21:54:28 ETC.:ASMGIS71 00066/091 *ASMG ASMGRTA OE G ETC:ASMGRTA D4T1 187 ASMG.ASMGRTA.OE.091 1 SEQ 1280 1 PAGE UM MTA JULY 27, 1977 21:54:30 ETC.:ASMGRTA 00066/092 *ASMG ASMGUP OE G ETC:ASMGUP D4T1 188 ASMG.ASMGUP.OE.092 1 SEQ 3538 1 PAGE UM MTA JULY 27, 1977 21:54:32 ETC.:ASMGUP 00066/093 *ASMG USER'S GUIDE P S0881 ASMG27 POSN=ASMG.GUIDE.USERS 3 D4T1 189 ASMG.USER'S_GUIDE.P.093 1 SEQ 80 41 PAGE UM MTA JULY 27, 1977 21:54:49 0 WATERLOO USER'S GUIDE FOR OS/360 ASMG. COPY TO A TN PRINTER @MCC. SEE MTS VOLUME 14 (665) FOR MTS ASMG USER'S GUIDE. 00066/094 *ASMG IMPLEMENTATION P S0881 ASMG27 POSN=ASMG.GUIDE.IMPL 4 D4T1 190 ASMG.IMPLEMENTATION.P.094 1 SEQ 78 27 PAGE UM MTA JULY 27, 1977 21:54:52 0 IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG. COPY TO A TN PRINTER @MCC. 1 THU SEP 12/96 23:39:34 Page 25 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00067/001B FILE SAVE MAIN SA G FSAV RSTR:FILESAVE(1001) RD16T1 9 FILE_SAVE.MAIN.SA.001 1 LINE 80 33 PAGE UM HELFFRICH JULY 12, 1979 22:24:52 RSTR:FILESAVE 0 MTS FILESAVE (DISK BACKUP) PROGRAM. THIS PROGRAM IS RUN ONCE PER WEEK AT UM TO PRODUCE A BACKUP OF ALL DISK FILES IN CASE OF HARDWARE (OR SOFTWARE) PROBLEMS. ON OTHER DAYS, A PARTIAL FILESAVE IS PRODUCED USING THE ONLINE FILE SAVE PROGRAM (716) OF THOSE FILES WHICH HAVE CHANGED SINCE THE PREVIOUS FILE SAVE WAS RUN. THE TAPES GENERATED BY THE FULL SAVE ARE COPIED (SEE 610) AND SAVED FOR SEVERAL MONTHS. SIX WEEK INTERVALS OF THESE FULL TAPES ARE SAVED FOR SEVERAL YEARS. WE HAVE FOUND THAT THIS PROCEDURE (WHICH INCLUDES STORING THE FULL TAPES IN ANOTHER BUILDING) SEEMS TO PROVIDE A REASONABLE BACKUP. THIS IS THE SOURCE FOR THE FILESAVE MAIN PROGRAM WHICH ACCEPTS THE FOLLOWING PARAMETERS SEPARATED BY BLANKS: ALL -- MEANS ALL FILES WILL BE SAVED CHG -- MEANS ONLY CHANGED FILES WILL BE SAVED DIR -- MEANS THAT *RESTORE (712) DIRECTORY ENTRIES ARE TO BE GENERATED ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE FILESAVE MACROS (716/14). **************************************************************************** RD16 CHANGES: CHANGED TO ELIMINATE USAGE OF FDVSER FIELD (WHICH IS NOT NEEDED NOW) IN THE CATALOG. ALSO, FIXED A BUG WHICH WOULD HAVE CAUSED A PGNT IF A BAD SHLENT/SHNENT HAD BEEN ENCOUNTERED. **************************************************************************** 0 Referenced by comments of: 92/1, 502/7 00067/002 FILE SAVE SAVEFILE SA G SFIL RSTR:SAVEFILE(1001) D4T1 192 FILE_SAVE.SAVEFILE.SA.002 1 LINE 80 10 PAGE UM HELFFRICH JULY 27, 1977 21:55:03 RSTR:SAVEFILE 0 ASSEMBLE USING COPY:FILE.MACROS (482/33) AND *SYSMAC. 0 Referenced by comments of: 502/7, 716/2 00067/003 FILE SAVE VTOCRD SA G VTOC RSTR:VTOCREAD(1001) D4.2T1 24 FILE_SAVE.VTOCRD.SA.003 1 LINE 80 11 PAGE UM HELFFRICH MAR. 26, 1979 02:16:35 RSTR:VTOCREAD 0 SUBROUTINE TO READ ENTIRE VTOC OF DISK VOLUME. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 502/7 00067/004B FILE SAVE OBJECT OC G RSTR:FILESAVEOBJ RD16T1 10 FILE_SAVE.OBJECT.OC.004 1 LINE 80 20 PAGE UM HELFFRICH JULY 12, 1979 22:25:00 RSTR:FILESAVEOBJ 0 OBJECT FROM 067/1, 067/2, 067/3, AND 716/4 (TAPEOUT). 1 THU SEP 12/96 23:39:34 Page 26 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 104/108, 682/20, 682/40, 1030/1 00067/005 FILE SAVE RESTART SA G RSTR:LFS.RESTART(1005) D4.1T1 28 FILE_SAVE.RESTART.SA.005 1 LINE 72 3 PAGE UM HELFFRICH MAY 13, 1978 17:02:58 RSTR:LFS.RESTART 0 PROGRAM USED BY WEEKLY SAVE (067/9) TO CAUSE THE WEEKLY TAPES TO BE RE-USED AFTER THEIR CYCLE PERIOD HAS EXPIRED (6 WEEKS). THIS HAS TO BE DONE BECAUSE IF FILESAVE CRASHES WITH PART OF A SET OF TAPES WRITTEN, IT WOULD NOT RE-USE THE PARTIALLY WRITTEN TAPES OF THE SET WHEN RESTARTED. THIS PROGRAM IS A KLUDGE. 0 Referenced by comments of: 67/7 00067/006 FILE SAVE RESTART OC G RSTR:LFS.RESTART(1,999) D4.1T1 29 FILE_SAVE.RESTART.OC.006 1 LINE 80 2 PAGE UM HELFFRICH MAY 13, 1978 17:02:59 00067/007 FILE SAVE SVSTART C RSTR:SVSTART D4.2T1 26 FILE_SAVE.SVSTART.C.007 1 LINE 68 1 PAGE UM HELFFRICH MAR. 26, 1979 02:16:38 RSTR:SVSTART 0 COMMAND AND DATA FILE WHICH IS $SOURCED TO BY *SVW (067/9). THIS FILE STARTS UP THE SEVERAL (CURRENTLY 6) STREAMS WHICH ARE USED FOR THE FULL FILE SAVE. IT USES LFS.RESTART (067/5) TO CAUSE THE WEEKLY TAPES TO BE RE-USED AFTER THEIR CYCLE PERIOD HAS EXPIRED. 0 Referenced by comments of: 67/9 00067/008 FILE SAVE FSS C MTS:TST.FSS D4.2T1 27 FILE_SAVE.FSS.C.008 1 LINE 121 1 PAGE UM HELFFRICH MAR. 26, 1979 02:16:38 RSTR:FSS 0 COMMAND AND DATA FILE $SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4, *SV5, AND *SV6). THIS FILE CONTAINS THE DISK VOLUME SERIAL NUMBERS OF THE VOLUMES TO BE SAVED BY EACH STREAM. IN ADDITION, THE LETTER "C" MAY FOLLOW EACH VOLUME SERIAL NUMBER TO INDICATE WHETHER THE LABEL FOR EACH TAPE IS TO BE CHECKED. THIS FILE WILL HAVE TO BE CHANGED BY EACH INSTALLATION TO REFLECT THE NUMBER OF DISK PACKS IN USE AND THEIR VOLUME SERIAL NUMBERS. THE FILE "FSLOG" IS USED TO LOG THE FILESAVE START/STOP TIMES. 00067/009 FILE SAVE WEEKLY START C *SVW D4T1 200 FILE_SAVE.WEEKLY_START.C.010 1 LINE 25 1 PAGE UM HELFFRICH JULY 27, 1977 21:55:24 RSTR:*SVW 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE WEEKLY (FULL) FILESAVE PROCESS. ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN. THIS FILE WILL $SOURCE TO RSTR:SVSTART (067/7) WHICH WILL START UP 5 MORE STREAMS (*SV2, *SV3, *SV4, *SV5 AND *SV6) AUTOMATICALLY SO THAT THE FULL SAVE IS DONE IN 6 STREAMS. EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED, DEPENDING ON THE NUMBER OF DISK DRIVES AND CONTROLS, AND TAPE DRIVES AND CONTROLS WHICH ARE AVAILABLE. INVOKED BY ENTERING "MTS *SVW" ON THE OPERATORS CONSOLE. 0 Referenced by comments of: 67/5, 67/7 1 THU SEP 12/96 23:39:34 Page 27 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00067/010 FILE SAVE WKLY STREAM #1 C *SV1 D4T1 201 FILE_SAVE.WKLY_STREAM_#1.C.011 1 LINE 19 1 PAGE UM HELFFRICH JULY 27, 1977 21:55:27 RSTR:*SV1 0 THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART WEEKLY (FULL) STREAM #1. 00067/011 FILE SAVE WKLY STREAM #2 C *SV2 D4T1 202 FILE_SAVE.WKLY_STREAM_#2.C.012 1 LINE 19 1 PAGE UM HELFFRICH JULY 27, 1977 21:55:29 RSTR:*SV2 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #2. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #2. 00067/012 FILE SAVE WKLY STREAM #3 C *SV3 D4T1 203 FILE_SAVE.WKLY_STREAM_#3.C.013 1 LINE 19 1 PAGE UM HELFFRICH JULY 27, 1977 21:55:32 RSTR:*SV3 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #3. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #3. 00067/013 FILE SAVE WKLY STREAM #4 C *SV4 D4T1 204 FILE_SAVE.WKLY_STREAM_#4.C.014 1 LINE 19 1 PAGE UM HELFFRICH JULY 27, 1977 21:55:34 RSTR:*SV4 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #4. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #4. 00067/014 FILE SAVE WKLY STREAM #5 C *SV5 D4.1T1 32 FILE_SAVE.WKLY_STREAM_#5.C.014 1 LINE 19 1 PAGE UM HELFFRICH MAY 13, 1978 17:03:01 RSTR:*SV5 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #5. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #5. 00067/015 FILE SAVE WKLY STREAM #6 C *SV6 D4.2T1 28 FILE_SAVE.WKLY_STREAM_#6.C.015 1 LINE 19 1 PAGE UM HELFFRICH MAR. 26, 1979 02:16:39 RSTR:*SV6 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #6. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #6. 00069 *DRAW SA # (OBSOLETE) D4T1 210 DRAW..SA. 1 SEQ 80 13 PAGE UM JULY 30, 1973 23:38.23 00071/001 LISTSTAT SA G S0811 REBATE 'REBATES' FSNAME=LISTSTAT D4.2T1 29 LISTSTAT..SA.001 1 LINE 80 10 PAGE UM LIFT JAN. 05, 1979 16:23:53 0 PROGRAM TO PRINT *STATISTICS RECORDS. WILL READ RECORDS (ON SCARDS) FROM A FILE OR BLOCKED TAPE (SUCH AS PRODUCED BY *CMB). PRINTS OUTPUT ON SPRINT. ALTERNATE SUBROUTINE ENTRY LIST#, USED BY RSCAN (707), LETS CALLER SPECIFY I/O FDUBS INSTEAD OF SCARDS/SPRINT. PROGRAM MUST BE RUN WITH PROT=OFF. IF A RATE NUMBER APPEARS IN THE *STATISTICS RECORD AND THE JOB WAS RUN AFTER THE BEGINNING OF 1974, THE MTS GETRATES SUBROUTINE (651/8) IS CALLED TO 1 THU SEP 12/96 23:39:34 Page 28 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 OBTAIN A SET OF RATES USED TO PRINT THE COST OF THE JOB. OTHERWISE, RATES ARE OBTAINED FROM ASSEMBLED-IN TABLES. FOR THIS REASON, THE PROGRAM WILL HAVE TO BE REASSEMBLED AT EACH INSTALLATION SINCE THE RATE TABLES WILL BE WRONG. COPIES COPY:STATDSECT (620) AND COPY:RATEVEC(5) (651/2). SOURCE IN LINES (1,999). 0 Referenced by comments of: 355/1, 707/3, 753/4 00071/002 LISTSTAT OC G W035:LISTSTAT D4.2T1 30 LISTSTAT..OC.002 1 SEQ 80 3 PAGE UM LIFT MAR. 26, 1979 02:17:32 00072 *FORTEDIT SA O # (OBSOLETE) D3T1 170 FORTEDIT..SA.1 1 SEQ 80 20 PAGE UM JULY 30, 1973 23:39.26 00073/001 *DSK C *DSK D4.2T1 31 DSK..C.001 1 LINE 32 1 PAGE UM HELFFRICH MAR. 26, 1979 02:17:32 FILE:*DSK 0 COMMAND FILE TO RUN DSKMAN (073/3). INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE. 0 Referenced by comments of: 682/4 00073/002 *DSK DSKMAN SA G DMAN FILE:DSKMAN.S D4T1 214 DSK.DSKMAN.SA.002 1 LINE 80 7 PAGE UM HELFFRICH AUG. 14, 1977 18:52:50 FILE:DSKMAN.S 0 PROGRAM USED BY OPERATORS TO MANIPULATE THE LIST OF MTS DISK VOLUMES. PROGRAM ALLOWS VOLUMES TO BE ADDED AND REMOVED FROM THE SYSTEM DYNAMICALLY AS WELL AS ALLOWING THE DRIVE ADDRESS FOR A VOLUME TO BE FORGOTTEN, THUS CAUSING MTS TO SEARCH THROUGH ALL DRIVE ADDRESSES LOOKING FOR THAT VOLUME ON THE NEXT REFERENCE. THIS IS PARTICULARLY USEFUL WHEN THE OPERATOR WISHES TO MOVE A VOLUME TO A DRIVE WITH A DIFFERENT ADDRESS. ASSEMBLE USING COPY:FILE.MACROS (482/33). SEE COMP 682/4 FOR A WRITEUP. 00073/003 *DSK DSKMAN OC G SYS:DSK D4T1 215 DSK.DSKMAN.OC.003 1 LINE 80 3 PAGE UM HELFFRICH AUG. 14, 1977 18:52:51 SYS.:DSK 0 Referenced by comments of: 73/1 00074 *2250EDIT SA # (OBSOLETE) D4T1 216 2250EDIT..SA. 1 SEQ 80 29 PAGE UM JULY 30, 1973 23:39.56 00076/001 RESERVE DISK *RSV C *RSV D4.2T1 32 RESERVE_DISK.*RSV.C.001 1 LINE 45 1 PAGE UM MTA MAR. 26, 1979 02:17:33 *RSV 0 COMMAND FILE TO RUN THE DISK RESERVE PROGRAM (076/3). INVOKED BY ENTERING "MTS *RSV" ON OPERATOR'S CONSOLE. 00076/002 RESERVE DISK RESERVE PGM SA G S0720 'D3T1' FSNAME=RESERVE_DISK.RESERVE_PGM.SA.2(1) 177 D4T1 218 RESERVE_DISK.RESERVE_PGM.SA.002 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:40.00 0 PROGRAM TO EXECUTE A RESERVE COMMAND FOR A DISK PACK. USED ONLY WITH 2844 OR 2 TAIL SWITCH. 1 THU SEP 12/96 23:39:34 Page 29 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00076/003 RESERVE DISK RESERVE PGM OC G SYS:RSV D4T1 219 RESERVE_DISK.RESERVE_PGM.OC.003 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:56:39 SYS.:RSV 0 Referenced by comments of: 76/1 00077/001 STATBUFF SA G STBF MTA:STATBUFF D4T1 220 STATBUFF..SA.001 1 LINE 80 1 PAGE UM HELFFRICH JULY 27, 1977 21:56:41 MTA.:STATBUFF 0 POINTS TO THE BUFFER USED BY THE STAT JOB (079) IF IT IS ACTIVE. THE SECOND WORD POINTS TO THE STAT JOB'S JOB TABLE. 00077/002 STATBUFF OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00078/001 STAT SUBROUTINE SA G STSB MTA:STATSUB D4T1 221 STAT_SUBROUTINE..SA.001 1 LINE 80 4 PAGE UM HELFFRICH JULY 27, 1977 21:56:44 MTA.:STATSUB 0 SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O. 00078/002 STAT SUBROUTINE OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00079/001 STAT JOB SA G STAT W170:STAT.JOB(1005) D4.1T1 33 STAT_JOB..SA.001 1 LINE 80 16 PAGE UM HELFFRICH MAY 13, 1978 17:03:02 W170:STAT.JOB 0 THE "STAT" JOB WILL SAVE STATISTICS ABOUT HARDWARE INTERRUPTS, MTS I/O OPERATIONS, AND INTERNAL SUPERVISOR FUNCTIONS (SUCH AS THE EXECUTION OF SIO) ON TAPE. CAN PRODUCE LARGE AMOUNTS OF DATA QUICKLY. *ANALYSIS (140) CAN HELP ANALYZE THE DATA. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 77/1, 79/3, 140/1 00079/002 STAT JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00079/003 STAT JOB STATSW SA G W170:STAT.PROG(1005) D4.1T1 34 STAT_JOB.STATSW.SA.004 1 LINE 72 5 PAGE UM HELFFRICH MAY 13, 1978 17:03:07 W170:STAT.PROG 0 THE STATSW JOB PROGRAM (WHICH IS ALSO A MTS-CALLABLE ROUTINE) PARSES AN INPUT LINE FROM OPER (OR SCARDS, IF MTS CALLED) AND CALLS THE STATSSUB SUBROUTINE IN THE STAT JOB ASSEMBLY (079/1) TO DO THE DIRTY WORK RELATING TO DATA COLLECTION RECORDING SWITCHING. SEE THE COMMENTS IN THE SOURCE LISTING. 0 Referenced by comments of: 79/5 00079/004 STAT JOB STATSW JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 1 THU SEP 12/96 23:39:34 Page 30 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00079/005 STAT JOB MTS STATSW OC G MTS:STATSW D4.1T1 35 STAT_JOB.MTS_STATSW.OC.006 1 LINE 24 1 PAGE UM HELFFRICH MAY 13, 1978 17:03:09 MTS.:STATSW 0 RIP AND LCS CARDS TO FORCE REFERENCE TO THE MTS ENTRY POINT TO STATSW (079/3) TO ENABLE THE STATSW JOB TO BE RUN AS AN MTS PROGRAM. 00079/006 STAT JOB MEMO 393 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M393 D4.1T1 36 STAT_JOB.WRITEUP.WF.007 1 LINE 97 2 PAGE UM HELFFRICH MAY 13, 1978 17:03:09 0 THIS IS COMPUTING CENTER MEMO 393 -- "DATA-COLLECTION FACILITY". 00080/001 INIT JOB SA G MTA:INITJOB(1,999) 78 D4.1T1 37 INIT_JOB..SA.001 1 LINE 80 3 PAGE UM MTA MAY 13, 1978 17:03:10 MTA.:INITJOB 0 AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST). IF &OPERJOB (IN COPY:GLOBALS) IS SET, THE INIT JOB WILL START THE OPERATOR JOB AND WAIT UP TO 20 SECONDS FOR IT TO START. THEN, AFTER FINDING THE DISK LOCATIONS OF THE MTS FILE CATALOGS, IT TURNS OVER THE REMAINING WORK OF INITIALIZING THE SYSTEM TO MTS BY USING THE SVC STRTJB TO START "MTS *INIT" (SEE COMP 097). INSTALLATIONS NOT USING THE OPERATOR JOB WILL WANT TO CHANGE THE VALUE OF &OPERJOB AND REASSEMBLE THE INIT JOB TO REMOVE THE 20 SECOND DELAY. COPIES COPY:GLOBALS (1026/3). 00080/002 INIT JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00082 DMOD SA # (OBSOLETE) D4T1 224 DMOD..SA.001 1 LINE 80 7 PAGE UM JULY 27, 1977 21:56:50 00083/001 *EBCDBCD SA G EBBC S0792 WSGFS FSNAME=EBCDBCD D4.2T1 33 EBCDBCD..SA.001 1 LINE 80 4 PAGE UM WSG DEC. 21, 1978 19:20:23 0 PROGRAM TO TRANSLATE ARBITRARY LENGTH 029 KEYPUNCH RECORDS TO 026. SOURCE IN LINES (1,999). 00083/002 *EBCDBCD OC G *EBCDBCD D4.2T1 34 EBCDBCD..OC.002 1 LINE 80 1 PAGE UM WSG MAR. 26, 1979 02:19:33 *EBCDBCD 00084/001 AUDIO RESP UNIT - 7772 ARURTN SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.SA.001(1) 228 D4T1 228 AUDIO_RESP_UNIT_-_7772.*A.SA.001 1 LINE 80 56 PAGE UM WSG JULY 28, 1976 00:35:37 0 DEVICE SUPPORT ROUTINES FOR THE IBM 7772 AUDIO RESPONSE UNIT. NO LONGER IN USE AT UM. REFERENCES *ARUDEF (084/4) AND *SPEAK (084/3). USES BAS AND BASR INSTRUCTIONS LIKE CRAZY. ASSEMBLE WITH PAR=IS=67. 0 Referenced by comments of: 84/3, 84/4 00084/002 AUDIO RESP UNIT - 7772 *ARURTN OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.OC.002(1) 229 D4T1 229 AUDIO_RESP_UNIT_-_7772.*A.OC.002 1 LINE 80 4 PAGE UM WSG JULY 28, 1976 00:35:45 0 OBJECT SUITABLE FOR LOADING INTO SHARED VM. 1 THU SEP 12/96 23:39:34 Page 31 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00084/003 AUDIO RESP UNIT - 7772 *SPEAK D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*S.D.003(1) 230 D4T1 230 AUDIO_RESP_UNIT_-_7772.*S.D.003 1 LINE 255 60 PAGE UM WSG JULY 30, 1973 23:42.25 0 VOCABULARY FILE FOR *ARURTN (084/1). 0 Referenced by comments of: 84/1 00084/004 AUDIO RESP UNIT - 7772 *ARUDEF D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.004(1) 231 D4T1 231 AUDIO_RESP_UNIT_-_7772.*A.D.004 1 LINE 10 1 PAGE UM WSG JULY 30, 1973 23:42.34 0 PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1) 0 Referenced by comments of: 84/1 00084/005 AUDIO RESP UNIT - 7772 DCVD SUBR SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.005(1) 232 D4T1 232 AUDIO_RESP_UNIT_-_7772.DC.SA.005 1 LINE 80 5 PAGE UM WSG FEB. 13, 1976 17:36:01 0 SUBROUTINE TO CONVERT DIGITALLY CODED VOICE FROM THE FORMAT EXPECTED BY THE 7772 TO A MORE REASONABLE FORMAT. 0 Referenced by comments of: 84/12, 84/15, 84/17 00084/006 AUDIO RESP UNIT - 7772 DCVD SUBR OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.006(1) 233 D4T1 233 AUDIO_RESP_UNIT_-_7772.DC.OC.006 1 LINE 80 1 PAGE UM WSG FEB. 13, 1976 17:36:06 0 PUT THIS IN *LIBRARY. 00084/007 AUDIO RESP UNIT - 7772 DCVC SUBR SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.007(1) 234 D4T1 234 AUDIO_RESP_UNIT_-_7772.DC.SA.007 1 LINE 80 4 PAGE UM WSG FEB. 13, 1976 17:36:17 0 SUBROUTINE TO CONVERT DIGITALLY CODED VOICE TO THE FORMAT EXPECTED BY THE 7772. 0 Referenced by comments of: 84/12, 84/15, 84/17 00084/008 AUDIO RESP UNIT - 7772 DCVC SUBR OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.008(1) 235 D4T1 235 AUDIO_RESP_UNIT_-_7772.DC.OC.008 1 LINE 80 1 PAGE UM WSG FEB. 13, 1976 17:36:26 0 PUT THIS IN *LIBRARY. 00084/009 AUDIO RESP UNIT - 7772 DCVG SUBR SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.SA.009(1) 236 D4T1 236 AUDIO_RESP_UNIT_-_7772.DC.SA.009 1 LINE 80 3 PAGE UM WSG FEB. 13, 1976 17:36:52 0 SUBROUTINE TO RETRIEVE THE DIGITALLY CODED VOICE USED BY THE 7772. 0 Referenced by comments of: 84/12, 84/15, 84/17 00084/010 AUDIO RESP UNIT - 7772 DCVG SUBR OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.DC.OC.010(1) 237 D4T1 237 AUDIO_RESP_UNIT_-_7772.DC.OC.010 1 LINE 80 1 PAGE UM WSG FEB. 13, 1976 17:36:55 0 PUT THIS IN *LIBRARY. 00084/011 AUDIO RESP UNIT - 7772 *ARUVOC D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*A.D.011(1) 238 D4T1 238 AUDIO_RESP_UNIT_-_7772.*A.D.011 1 LINE 102 11 PAGE UM WSG JULY 30, 1973 23:42.36 0 LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING. 1 THU SEP 12/96 23:39:34 Page 32 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00084/012 AUDIO RESP UNIT - 7772 CREVOC SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.012(1) 239 D4T1 239 AUDIO_RESP_UNIT_-_7772.*C.SA.012 1 LINE 80 19 PAGE UM WSG FEB. 13, 1976 17:38:37 0 PROGRAM TO CREATE AN ARU VOCABULARY FILE. CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9) AS WELL AS THE MSG SUBR (084/13). 0 Referenced by comments of: 84/13, 84/14 00084/013 AUDIO RESP UNIT - 7772 CREVOC MSG SUB SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.SA.013(1) 240 D4T1 240 AUDIO_RESP_UNIT_-_7772.*C.SA.013 1 LINE 80 5 PAGE UM WSG FEB. 25, 1976 12:52:33 0 MSG SUBR CALLED BY CREVOC (084/12). 0 Referenced by comments of: 84/12, 84/14 00084/014 AUDIO RESP UNIT - 7772 *CREVOC OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*C.OC.014(1) 241 D4T1 241 AUDIO_RESP_UNIT_-_7772.*C.OC.014 1 LINE 80 3 PAGE UM WSG FEB. 25, 1976 12:51:48 0 OBJECT FOR CREVOC (084/12) AND THE MSG SUBR (084/13). ALSO CONTAINS ERROR MESSAGES STARTING AT LINE 800. LINE NUMBERS ARE IMPORTANT IN THIS FILE. 00084/015 AUDIO RESP UNIT - 7772 VLIST SA G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.SA.015(1) 242 D4T1 242 AUDIO_RESP_UNIT_-_7772.*V.SA.015 1 LINE 80 4 PAGE UM WSG FEB. 13, 1976 17:39:10 0 PROGRAM TO EITHER SPEAK OR PRINT AN AUDIO RESPONSE UNIT VOCABULARY FILE. CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9). 00084/016 AUDIO RESP UNIT - 7772 *VLIST OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*V.OC.016(1) 243 D4T1 243 AUDIO_RESP_UNIT_-_7772.*V.OC.016 1 LINE 80 1 PAGE UM WSG FEB. 13, 1976 17:39:14 00084/017 AUDIO RESP UNIT - 7772 DCVDEC SF G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.SF.017(1) 244 D4T1 244 AUDIO_RESP_UNIT_-_7772.*D.SF.017 1 LINE 67 1 PAGE UM WSG FEB. 13, 1976 17:39:56 0 PROGRAM TO FORM AND LIST THE INFO WHICH WOULD BE TRANSMITTED TO THE ARU FOR A TEXT LINE. CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9). 00084/018 AUDIO RESP UNIT - 7772 *DCVDEC OC G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*D.OC.018(1) 245 D4T1 245 AUDIO_RESP_UNIT_-_7772.*D.OC.018 1 LINE 454 1 PAGE UM WSG FEB. 13, 1976 17:40:05 00084/019 AUDIO RESP UNIT - 7772 *FSK D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*F.D.019(1) 246 D4T1 246 AUDIO_RESP_UNIT_-_7772.*F.D.019 1 LINE 31 1 PAGE UM WSG JULY 30, 1973 23:43.01 0 AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO 11-BIT (FRAME SIZE) ASCII CODE. 00084/020 AUDIO RESP UNIT - 7772 *IM D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*I.D.020(1) 247 D4T1 247 AUDIO_RESP_UNIT_-_7772.*I.D.020 1 LINE 87 1 PAGE UM WSG JULY 30, 1973 23:43.03 0 AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO INTERNATIONAL MORSE CODE. 1 THU SEP 12/96 23:39:34 Page 33 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00084/021 AUDIO RESP UNIT - 7772 *NOTES D G S0563 D4T1 VLO FSNAME=AUDIO_RESP_UNIT_-_7772.*N.D.021(1) 248 D4T1 248 AUDIO_RESP_UNIT_-_7772.*N.D.021 1 LINE 91 2 PAGE UM WSG JULY 30, 1973 23:43.05 0 AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES. 00086/001 *2501RTN SA G S0563 D4T1 VLO FSNAME=2501RTN..SA.001(1) 249 D4T1 249 2501RTN..SA.001 1 LINE 80 16 PAGE UM DWB JULY 27, 1977 21:58:36 DWB.:UBCTFZO.S 0 MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2501 CARD READER. CALLS BINEBCD (243). 0 Referenced by comments of: 243/1 00086/002 *2501RTN OC G *2501RTN D4T1 250 2501RTN..OC.002 1 LINE 80 2 PAGE UM DWB JULY 27, 1977 21:58:38 *2501RTN 0 OBJECT FOR 2501 ROUTINES AND OMR CONVERT SUBR (576/2). 00087 B LLMPSEQU SA G COPY:LLMPSEQU RD16T1 11 LLMPSEQU..SA. 1 LINE 72 10 PAGE UM MTA JULY 12, 1979 22:25:02 COPY:LLMPSEQU 0 COPY SECTION FOR DEFINITIONS OF JOB TABLE, DEVICE LIST, DEVICE TABLE, ETC. WHICH IS COPIED BY MANY PROGRAMS. ITS NAME COMES STRAIGHT FROM ANCIENT HISTORY (LINCOLN LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES). THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING AT LINE 100. NOTE: PROGRAMS COPYING THIS FILE MUST FIRST COPY COPY:GLOBALS (1026/3). 0 Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 24/1, 42/1, 44/1, 45/1, 46/1, 79/1, 101/1, 104/81, 116/1, 135/1, 198/1, 353/2, 354/1, 354/5, 387/1, 387/2, 387/27, 388/1, 400/1, 400/3, 400/8, 400/9, 413/1, 464/1, 482/5, 482/7, 500/34, 507/2, 509/1, 513/1, 531/1, 531/6, 531/13, 539/1, 540/1, 540/5, 540/7, 540/16, 540/25, 545/3, 554/1, 554/3, 570/1, 577/2, 577/4, 577/7, 578/1, 615/13, 618/1, 621/2, 629/1, 629/4, 634/1, 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/10, 682/22, 693/1, 731/3, 732/1, 1012/1, 1021/1, 1021/3, 3024/1, 4000/1 00090 *HEXLIST SA # (OBSOLETE) D3T1 202 HEXLIST..SA.1 1 LINE 80 6 PAGE UM JULY 30, 1973 23:43.29 00091 *DOUBLE SA # (OBSOLETE) D3T1 204 DOUBLE..SA.1 1 LINE 80 16 PAGE UM JULY 27, 1973 22:03.05 00092/001B FILE RESTORE RSTFMT0 SA G FMT RSTR:RSTFMT0(1000) RD16T1 12 FILE_RESTORE.RSTFMT0.SA.001 1 LINE 80 48 PAGE UM HELFFRICH JULY 12, 1979 22:25:03 RSTR:RSTFMT0 0 MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502). ASSEMBLE USING *SYSMAC. 1 THU SEP 12/96 23:39:34 Page 34 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00092/002 FILE RESTORE RSTFMT1 SA G FMT1 RSTR:RSTFMT1(1000) D4T1 253 FILE_RESTORE.RSTFMT1.SA.002 1 LINE 80 31 PAGE UM HELFFRICH JULY 27, 1977 21:58:50 RSTR:RSTFMT1 0 SUBROUTINE CALLED BY 092/1. ASSEMBLE USING *SYSMAC. 00092/003B FILE RESTORE RSTFMT2 SA G FMT2 RSTR:RSTFMT2(1000) RD16T1 13 FILE_RESTORE.RSTFMT2.SA.003 1 LINE 80 41 PAGE UM HELFFRICH JULY 12, 1979 22:25:10 RSTR:RSTFMT2 0 SUBROUTINE CALLED BY 092/1 AND *RESTORE (712). ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33). **************************************************************************** RD16 CHANGES: CHANGED TO PRINT OUT AMOUNT OF SPACE NEEDED FOR A FILE IF ITS RESTORATION CAUSES THE ACCOUNT'S SPACE MAXIMUM TO BE EXCEEDED. **************************************************************************** 0 Referenced by comments of: 712/1, 712/2, 712/3 00092/004B FILE RESTORE OC G RSTR:RST RD16T1 14 FILE_RESTORE..OC.004 1 LINE 80 25 PAGE UM HELFFRICH JULY 12, 1979 22:25:22 RSTR:RST 0 OBJECT FROM 092/1, 092/2, AND 092/3. 00092/005 FILE RESTORE *RST C *RST D4.2T1 38 FILE_RESTORE.*RST.C.005 1 LINE 37 1 PAGE UM HELFFRICH MAR. 26, 1979 02:20:51 RSTR:*RST 0 COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST). INVOKED BY ENTERING "MTS *RST" ON OPERATOR'S CONSOLE. 00094/001 *TIME SA G TIME W062:TIME D4T1 257 TIME..SA.001 1 LINE 80 2 PAGE UM TIFFANY JULY 27, 1977 21:59:07 0 PROGRAM TO PRINT TIME AND DATE. CHANGED FOR STANDARDIZATION. 00094/002 *TIME OC G *TIME D4T1 258 TIME..OC.002 1 SEQ 247 1 PAGE UM TIFFANY JULY 27, 1977 21:59:09 *TIME 00094/003 *TIME EXPANDED VERS SA G S0563 D4T1 VLO FSNAME=TIME.EXPANDED_VERS.SA.003(1) 259 D4T1 259 TIME.EXPANDED_VERS.SA.003 1 LINE 120 3 PAGE UM HELFFRICH JULY 27, 1977 21:59:11 0 IMPROVED (?) VERSION OF *TIME WHICH GIVES EXTENDED TIME INFORMATION. 00094/004 *TIME EXPANDED VERS OC G S0563 D4T1 VLO FSNAME=TIME.EXPANDED_VERS.OC.004(1) 260 D4T1 260 TIME.EXPANDED_VERS.OC.004 1 LINE 80 2 PAGE UM HELFFRICH JULY 27, 1977 21:59:13 0 THIS OBJECT COULD BE PLACED IN *TIME INSTEAD OF 094/2. 1 THU SEP 12/96 23:39:34 Page 35 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00096/001 *SYMBOLS SA G SYMB W009:SYMBOL.S D4.2T1 39 SYMBOLS..SA.001 1 LINE 80 13 PAGE UM SHERRY MAR. 26, 1979 02:20:51 W009:SYMBOL.S 0 PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL. 00096/002 *SYMBOLS OC G *SYMBOLS D4.2T1 40 SYMBOLS..OC.002 1 LINE 1628 3 PAGE UM SHERRY MAR. 26, 1979 02:20:54 *SYMBOLS 00097/001 INIT *INIT C *INIT D4.2T1 41 INIT.*INIT.C.001 1 LINE 47 1 PAGE UM ENGLE MAR. 26, 1979 02:20:54 INIT:*INIT 0 THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL. NO OPERATOR ACTION IS REQUIRED. THIS COMMAND FILE SIGNS ON UNDER THE ID INIT AND SOURCES TO INIT:INITCMD. *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY ACCINITL IN INIT:INIT TO PRODUCE LISTS OF THE USER IDS WHICH WERE NOT PROPERLY SIGNED OFF WHEN THE SYSTEM LAST WENT DOWN (IF ANY) SO THAT THEY MAY BE "FIXED". 00097/002B INIT INIT:INITCMD C INIT:INITCMD RD16T1 15 INIT.INIT:INITCMD.C.002 1 LINE 62 1 PAGE UM MTA JULY 12, 1979 22:25:24 INIT:INITCMD 0 THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RELOAD. THE FOLLOWING FUNCTIONS ARE PERFORMED: (1) INIT:REASON (97/20) IS CREATED AND EMPTIED. (2) THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF IN *STATISTICS (50/5) TO VERIFY (AT LEAST PARTIALLY) THAT THEY ARE CORRECT. (3) THE PROGRAM INITLOG (097/10) IS RUN TO OBTAIN THE REASON FOR RELOADING FROM THE OPERATOR AND WRITE IT AT THE END OF THE FILE INIT:LOG (97/19) AND INTO INIT:REASON. (4) FMT2305 IS RUN TO FORMAT THE 2305 FIXED HEAD FILE(S). IT READS A LIST OF FHF NAMES FROM THIS FILE. AS DISTRIBUTED, THE LIST CONSISTS OF FHFO, FHF8, AND FHFG. (5) THE PDP IS STARTED. (6) INIT:REASON IS COPIED TO THE END OF INIT:RELOADLOG (97/21). (7) RAMROD IS RUN TO WRITE THE COMMENTS FOR THE CURRENT SYSTEM TO INIT:REASON(1000), WHICH IS THEN COPIED TO OPER. (8) THE POST-IPL LOADER, MTS *S2L (559/1), IS STARTED. (9) MTS *CMD (531/5) IS STARTED TO BEGIN THE CMDSTAT DATA COLLECTION. (10) MTS *FSM (716/12) IS STARTED TO CLEAN UP THE ONLINE FILE SAVE DIRECTORIES. (11) MTS *STI (50/2) IS STARTED TO CHECK FOR A SYSTEM CRASH DURING THE LAST STATISTICS SAVE. (12) THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED. (13) THE CLEAN PROGRAM (97/6) IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE SYSTEM LAST WENT DOWN. (14) THE INIT PROGRAM (97/3) IS RUN. IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE 5 LISTS (IN THE FILES INIT1, INIT2, ETC.) OF THE USER IDS WHICH WERE SIGNED-ON WHEN THE SYSTEM LAST WENT DOWN. WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS AVAILABLE" ON THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS. WHEN FINISHED, THE TOTAL NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE. NO BATCH JOBS SHOULD BE ALLOWED TO RUN (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE 1 THU SEP 12/96 23:39:34 Page 36 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 IT IS POSSIBLE THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH ARE STILL BEING FIXED. IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING FILE IS AVAILABLE" MESSAGE PRINTS AND AFTER THE "POST-IPL SYSTEM LOADED OK" MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE ABLE TO SIGNON UNTIL THEIR USER IDS HAVE BEEN FIXED. THESE USERS WILL GET A MESSAGE WHICH INDICATES THAT THEIR IDS ARE TEMPORARILY UNAVAILABLE. 0 Referenced by comments of: 50/2, 97/12, 531/5, 559/1 00097/003 INIT INIT:INIT OE G S0027 DISTRB FSNAME=INIT D4.1T1 39 INIT.INIT:INIT.OE.003 1 LINE 1430 4 PAGE UM ENGLE FEB. 27, 1978 11:51:52 INIT:INIT 0 PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN. OBJECT PATCHED TO CHANGE THE NAMES IN ACCIO TO PUBLIC FILES. 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 AT INIT(1000). 0 Referenced by comments of: 97/2, 104/79 00097/004 INIT INITCHK SA G ICHK S0027 DISTRB FSNAME=INITCHK D4T1 266 INIT.INIT:INITCHK.SA.004 1 LINE 80 4 PAGE UM ENGLE DEC. 08, 1975 10:08:45 0 PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "RESONABLE" TIME AND DATE. COPIES GRDEF (104/68). 00097/005 INIT INIT:INITCHK OC G S0027 DISTRB FSNAME=ICHK D4T1 267 INIT.INIT:INITCHK.OC.005 1 LINE 80 3 PAGE UM ENGLE DEC. 08, 1975 10:10:31 INIT:INITCHK 00097/006 INIT CLEAN SA G SFDS FILE:SFDESTRY D4T1 268 INIT.INIT:CLEAN.SA.006 1 LINE 80 3 PAGE UM HELFFRICH JULY 27, 1977 22:03:04 FILE:SFDESTRY 0 PROGRAM TO DESTROY SCRATCH FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 97/2 00097/007 INIT CLEAN OC G INIT:CLEAN D4T1 269 INIT.INIT:CLEAN.OC.007 1 LINE 80 1 PAGE UM HELFFRICH JULY 27, 1977 22:03:07 INIT:CLEAN 00097/008 INIT DINIT SA O DNIT S0720 'D3T1' FSNAME=INIT.INIT:DINIT.SA.8(1) 221 D4T1 270 INIT.INIT:DINIT.SA.008 1 LINE 80 7 PAGE UM DWB AUG. 01, 1973 00:54.09 0 DRUM INITIALIZATION PROGRAM. HAS TABLE OF DRUM NAMES TO USE ASSEMBLED IN. AS DISTRIBUTED, THE TABLE CONTAINS TWO NAMES: DRM1 AND DRM2. IF THE PROGRAM CAN'T ACQUIRE ANY OF THE SPECIFIED DRUMS FROM THE SUPERVISOR, IT PRINTS "NNNN NOT AVAILABLE" AND GOES ON TO THE NEXT DRUM. 1 THU SEP 12/96 23:39:34 Page 37 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00097/009 INIT DINIT OC INIT:DINIT D4T1 271 INIT.INIT:DINIT.OC.009 1 LINE 80 4 PAGE UM DWB JULY 27, 1977 22:03:14 INIT:DINIT 00097/010 INIT INITLOG SA G MTA:INITLOG(1,999) D4.2T1 43 INIT.INITLOG.SA.010 1 LINE 72 1 PAGE UM MTA MAR. 26, 1979 02:20:55 MTA.:INITLOG 0 PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD. COPIES *CNFGINFODSECT (654). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 97/2 00097/011 INIT INITLOG OC G INIT:INITLOG D4.2T1 44 INIT.INITLOG.OC.011 1 LINE 525 1 PAGE UM MTA MAR. 26, 1979 02:20:56 INIT:INITLOG 0 NOTE: THIS OBJECT FILE CONTAINS AN NCA CARD FOR CNFIGTBL, SINCE THERE IS NO CNFIGTBL ON A 370. 00097/012 INIT FMT2305 SA G MTA:FMT2305.S D4.2T1 45 INIT.FMT2305.SA.012 1 LINE 68 4 PAGE UBC MTA MAR. 26, 1979 02:20:57 MTA.:FMT2305.S 0 MTS PROGRAM TO INITIALIZE (I.E. FORMAT) A 2305 OR ITS UNDERSTUDY. THIS PROGRAM IS RUN FROM INIT:INITCMD (097/2) AT STARTUP TO FORMAT A 2305 BEFORE STARTING THE PDP. 00097/013 INIT FMT2305 OC G INIT:FMT2305 D4.2T1 46 INIT.FMT2305.OC.013 1 SEQ 80 2 PAGE UBC MTA MAR. 26, 1979 02:20:58 INIT:FMT2305 00097/014 INIT INIT:INIT1 D # MTS:TST.EMPTY UM ENGLE INIT:INIT1 0 LIST OF USER IDS IN *ACCOUNTING1 WHICH NEED TO BE FIXED AFTER IPL. 00097/015 INIT INIT:INIT2 D # MTS:TST.EMPTY UM ENGLE INIT:INIT2 0 LIST OF USER IDS IN *ACCOUNTING2 WHICH NEED TO BE FIXED AFTER IPL. 00097/016 INIT INIT:INIT3 D # MTS:TST.EMPTY UM ENGLE INIT:INIT3 0 LIST OF USER IDS IN *ACCOUNTING3 WHICH NEED TO BE FIXED AFTER IPL. 1 THU SEP 12/96 23:39:34 Page 38 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00097/017 INIT INIT:INIT4 D # MTS:TST.EMPTY UM ENGLE INIT:INIT4 0 LIST OF USER IDS IN *ACCOUNTING4 WHICH NEED TO BE FIXED AFTER IPL. 00097/018 INIT INIT:INIT5 D # MTS:TST.EMPTY UM ENGLE INIT:INIT5 0 LIST OF USER IDS IN *ACCOUNTING5 WHICH NEED TO BE FIXED AFTER IPL. 00097/019 INIT INIT:LOG D # MTS:TST.LOG UM MTA INIT:LOG 0 LOG OF SYSTEM RELOADS. CONTAINS THE TIME AND DATE OF EACH RELOAD, THE NAME OF THE SYSTEM IPLED FROM, THE REASON FOR THE RELOAD (AS ENTERED BY THE OPERATOR), THE LIST OF SCRATCH FILES DESTROYED, AND THE LIST OF USER IDS FIXED. 0 Referenced by comments of: 97/2 00097/020 INIT INIT:REASON D # MTS:TST.LOG UM MTA INIT:REASON 0 FILE TO CONTAIN REASON FOR RELOADING AND CURRENT SYSTEM NAME AND COMMENTS AFTER EACH RELOAD. 0 Referenced by comments of: 97/2 00097/021 INIT INIT:RELOADLOG D # MTS:TST.LOG UM MTA INIT:RELOADLOG 0 LOG OF SYSTEM RELOADS. SAME AS INIT:LOG EXCEPT DOES NOT CONTAIN THE LISTS OF SCRATCH FILES OR USER IDS. 0 Referenced by comments of: 97/2 00098 *SQUASH SA # (OBSOLETED BY *LINKEDIT, COMP 297) D2T1 278 UM 00099 *IHC M # (OBSOLETE) D3T1 225 IHC..M. 1 LINE 68 1 PAGE UM JULY 30, 1973 23:46.44 00100/001 *FILEDUMP SA G FILD W045:FILEDUMP D4T1 276 FILEDUMP..SA.001 1 LINE 80 8 PAGE UM PIRKOLA JULY 27, 1977 22:03:25 0 USE *TAPEDUMP INSTEAD. 1 THU SEP 12/96 23:39:34 Page 39 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00100/002 *FILEDUMP OC G *FILEDUMP D4T1 277 FILEDUMP..OC.002 1 LINE 80 3 PAGE UM PIRKOLA JULY 27, 1977 22:03:27 *FILEDUMP 00101/001 MOUNT COMMAND SA G MNT WSG:MOUNTCMD D4.2T1 47 MOUNT_COMMAND..SA.001 1 LINE 80 70 PAGE UM WSG MAR. 26, 1979 02:20:58 WSG.:MOUNTCMD 0 CLS TO MOUNT PRIVATE DEVICES. SUPPORTS MAGNETIC TAPES, 2671 PAPER TAPE READER, PAPER TAPE PUNCHES ON THE UM DATA CONCENTRATOR, 7772 AUDIO RESPONSE UNIT, AND THE MERIT COMPUTER NETWORK. MOUNT CONTAINS GLOBAL ASSEMBLY PARAMETERS (DESCRIBED IN THE SOURCE) FOR THE MAXIMUM NUMBER OF DEVICES OF EACH TYPE (IF ZERO, THE CODE AND TABLES TO SUPPORT THAT TYPE ARE DELETED). ANOTHER ASSEMBLY PARAMETER SPECIFIES THE RACK NUMBER FOR SCRATCH TAPES (DISTRIBUTED AS 'POOL'). OTHER PARAMETERS SPECIFY THE DEFAULT DENSITY FOR SCRATCH TAPES (DISTRIBUTED AS 8EN FOR 7-TRACK AND 1600 FOR 9-TRACK). ANOTHER PARAMETER SPECIFIES WHETHER THE TAPE ID IS REQUIRED (AS DISTRIBUTED, IT IS). ANOTHER PARAMETER SPECIFIES THE SUPERVISOR LOCK NUMBER, IF ANY, TO BE USED FOR INTERLOCKING THE OPERATOR COMMUNICATION, I.E. TO PREVENT MULTIPLE MOUNT REQUESTS FROM BEING PRESENTED TO THE OPERATOR SIMULTANEOUSLY DISTRIBUTED AS ZERO, I.E. NO INTERLOCKING). MOUNT CALLS THE MNTSTAT SUBROUTINE (447/1) TO RECORD A MOUNT STATISTICS RECORD FOR EVERY MOUNT REQUEST. IT ALSO CALLS CUINFO FOR EACH MOUNT DONE BY THE OPERATOR TO INCREMENT THE MOUNT COUNT (FOR BILLING). MOUNT WILL REFUSE ANY MOUNT REQUIRING OPERATOR INTERVENTION IF THE SYSTEM IS IN UNATTENDED MODE (BATCH JOBS ARE RERUN). INTERFACES WITH TAPESHARE (1067/5). COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND COPY:JOBSTA (413/9). ASSEMBLE WITH SIZE=12 AND USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 101/2, 447/1, 1067/5 00101/002 MOUNT COMMAND OC G W030:CLSMOUNT D4.2T1 48 MOUNT_COMMAND..OC.002 1 LINE 80 7 PAGE UM WSG MAR. 26, 1979 02:21:02 *CLSMOUNT 0 OBJECT FOR THE MOUNT COMMAND CLS (101/1), THE MOUNT SUBROUTINE (271/1), THE MNTSTAT SUBROUTINE (447/1), AND THE DISMOUNT SUBROUTINE (270/1). THIS FILE IS LOADED INTO SHARED VM AFTER IPL BY PISTLE. 00101/003 MOUNT COMMAND *MOUNT # (OBSOLETED BY $MOUNT) D3T1 230 MOUNT.*MOUNT.OC.3 1 LINE 24 1 PAGE UM JULY 30, 1973 23:47.04 00102 *DISMOUNT # (OBSOLETED BY $RELEASE) D3T1 232 DISMOUNT.*DISMOUNT.OC.3 1 LINE 24 1 PAGE UM JULY 30, 1973 23:47.08 00104/001 ACCOUNTING ACCFORMAT SA G AFMT S0027 DISTRB FSNAME=ACCFORMAT D4.2T1 49 ACCOUNTING.ACCFORMAT.SA.001 1 SEQ 80 2 PAGE UM ENGLE JAN. 09, 1979 15:58:55 0 COMPONENT 104 CONTAINS THE SOURCE AND OBJECT FOR THE MTS ACCOUNTING ROUTINES. THE FOLLOWING PROGRAMS CAN BE CONSTRUCTED BY COMBINING THE OBJECT FILES AS INDICATED BELOW: *ACCRESTORE ASTR+AFLU+AIO+GTFL+ACAT+FLRT+CSIG+SYSDEFS *STATUS STAT+AIO+IOLC+GTFL ACC:ACCDISPLAY ADSP+ACCLIB ACC:ACCERRORSCAN ACNS+ACCLIB ACC:ACCFILCHARGE ADSP+AFLC+ACCLIB ACC:ACCHEXDISP ADSP+AXPR+ACCLIB 1 THU SEP 12/96 23:39:34 Page 40 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ACC:ACCLISTING ALST+ACCLIB ACC:ACCMAINT AMAT+ACCLIB ACC:ACCPASWD APSW+GTFL+AIO+FLNM ACC:ACCRETRIEVE ARTV+ATRD ACC:ACCSAVE ASAV+ACCLIB ACC:DIRDISPLAY DDSP+ACCLIB ACC:DIRLIST DLST+ACCLIB ACC:GETFILECHG FLUP+AIO+FLRT+TTRP+GTFL+SYSDEFS ACC:PROJECTDISP APDS+ACCLIB ACC:PROJECTIDS APID+ACCLIB ACC:PROJECTLIST APLS+ACCLIB ACC:PROJECTMAINT APMT+ACCLIB ACC:STAPROJECT SPCL+(AMXM PATCHED FROM SPPA)+AUPR+ACCLIB ACCUPDAT ARDW+PRINT+AIO+TTRP+GTFL+OLDPRINT+ACCPRINT+ACCUPDAT INIT:INIT(1,999) AINT+AFLU+AIO+ACAT+FLRT+CSIG+GTFL+SYSDEFS INIT:INIT(1000) AINS+FLNM+GTFL ACC:ACCLIB ACAT+AERR+AFIN+AFKF+AFLA+AFIO+AFLU+AIO+ALPR+ALST+APLS+APPR+APRT+CSIG+DIR+DPRT+FIOC +FLNM+FLRT+FLSH+GPID+GTFL+IOLC+LCNT+LOG+RBTA+STRD+TMCL+TTRP+SYSDEFS (SEE ACCOUNTING CLS FOR FIOC (631/12) AND REBATE FOR RBTA (632/4) AND STRD (632/6)). ACCFORMAT (104/1) IS THE COPY SECTION THAT DESCRIBES THE ACCOUNTING FILE RECORD FORMAT. IT IS COPIED UNDER THE NAME "ACCFORMAT" BY COMPONENTS OF THE ACCOUNTING SYSTEM. ****** NOTE: ACCOUNTING PROGRAMS HAVE A GBLB SYMBOL (&DC) TO ELIMINATE THE ASSEMBLY OF INSTRUCTIONS FOR THE DATA CELL. IF THE VALUE OF &DC IS 0, THE INSTRUCTIONS WILL NOT BE ASSEMBLED. IF THE VALUE IS 1, THE INSTRUCTIONS WILL BE ASSEMBLED. ALL DISTRIBUTION PROGRAMS HAVE THE VALUE SET TO 0, AND THE RESULTS OF SETTING &DC TO 1 ARE NOT GUARANTEED. 0 Referenced by comments of: 104/1, 104/4, 104/6, 104/12, 104/14, 104/18, 104/29, 104/48, 104/51, 104/62, 104/64, 104/77, 104/79, 104/84, 104/86, 104/89, 104/95, 502/1, 586/1, 631/6, 631/9, 632/3 00104/002 ACCOUNTING ACCPROJFMT SA G S0027 DISTRB FSNAME=ACCPROJFMT D4.2T1 50 ACCOUNTING.ACCPROJFMT.SA.002 1 LINE 80 1 PAGE UM ENGLE JAN. 25, 1979 16:25:29 0 COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT. 0 Referenced by comments of: 104/18, 104/33, 104/40, 104/51, 104/132, 500/20, 500/24, 631/6 00104/003 ACCOUNTING ACCPROJFMT UC G # S0027 DISTRB FSNAME=ACCPROJFMTUP D4.2T1 51 ACCOUNTING.ACCPROJFMT.UC.003 1 LINE 67 1 PAGE UM ENGLE JAN. 25, 1979 16:25:32 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/004 ACCOUNTING ACCERROR SA G AERR S0027 DISTRB FSNAME=ACCERROR D4.2T1 52 ACCOUNTING.ACCERROR.SA.004 1 LINE 80 8 PAGE UM ENGLE JAN. 10, 1979 16:30:18 0 CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN. COPIES ACCFORMAT (104/1). 1 THU SEP 12/96 23:39:34 Page 41 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/005 ACCOUNTING ACCERROR OC G S0027 DISTRB FSNAME=AERR D4.2T1 53 ACCOUNTING.ACCERROR.OC.005 1 LINE 80 2 PAGE UM ENGLE JAN. 11, 1979 11:04:50 00104/006 ACCOUNTING ACCPRINT SA G APRT S0027 DISTRB FSNAME=ACCPRINT D4.2T1 54 ACCOUNTING.ACCPRINT.SA.006 1 LINE 80 10 PAGE UM ENGLE JAN. 09, 1979 15:31:15 0 FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/125 00104/007 ACCOUNTING ACCPRINT OC G S0027 DISTRB FSNAME=APRT D4.2T1 55 ACCOUNTING.ACCPRINT.OC.007 1 LINE 80 5 PAGE UM ENGLE JAN. 09, 1979 15:31:21 00104/008 ACCOUNTING ACCLIST SA G ALST S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.SA.8(1) 240 D4T1 286 ACCOUNTING.ACCLIST.SA.007 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 16:22.45 0 READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD. 00104/009 ACCOUNTING ACCLIST OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.OC.9(1) 241 D4T1 287 ACCOUNTING.ACCLIST.OC.008 1 LINE 80 1 DISK UM ENGLE OCT. 03, 1972 15:12.04 00104/010 ACCOUNTING ACCLIST OC G # ACC:ACCLISTING UM ENGLE ACC:ACCLISTING 00104/011 ACCOUNTING ACCLIST OC G # MTS:TST.ACCLIST UM ENGLE ACC:ACCLIST 0 PROGRAM TO PRINT EVERY FIELD OF EACH ACCOUNTING RECORD. ACCLIST+ACCPRINT. 00104/012 ACCOUNTING ACCINITL SA G AINT S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCINITL.SA.10(1) 130 D4T1 288 ACCOUNTING.ACCINITL.SA.009 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 13:31.37 0 RESTORES LOCK BITS AND FILE SPACE FIELDS FOR ALL RECORDS WITH CURRENT NUMBER OF SIGNONS > 0. COPIES ACCFORMAT (104/1). 00104/013 ACCOUNTING ACCINITL OC G S0027 DISTRB FSNAME=AINT D4T1 289 ACCOUNTING.ACCINITL.OC.010 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 10:07:50 00104/014 ACCOUNTING STATUS SA G STAT S0027 DISTRB FSNAME=STATUS D4.1T1 40 ACCOUNTING.STATUS.SA.013 1 LINE 80 19 PAGE UM ENGLE FEB. 27, 1978 12:34:41 0 MAIN PROGRAM FOR *STATUS. COPIES ACCFORMAT (104/1) AND *CNFGINFODSECT (654). 00104/015 ACCOUNTING STATUS OC G S0027 DISTRB FSNAME=STAT D4.1T1 41 ACCOUNTING.STATUS.OC.014 1 LINE 80 5 PAGE UM ENGLE FEB. 27, 1978 12:34:52 0 Referenced by comments of: 129/2 1 THU SEP 12/96 23:39:34 Page 42 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/016 ACCOUNTING FILERATE SA G FLRT S0027 DISTRB FSNAME=FILERATE D4T1 292 ACCOUNTING.FILERATE.SA.013 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 10:10:41 0 SUBROUTINE TO RETURN A CURRENT RATE NUMBER AND THE FILE RATES FOR A SIGNON ID. COPIES GRDEF (104/68) AND COPY:RATEVEC (651/2). 0 Referenced by comments of: 484/1 00104/017 ACCOUNTING FILERATE OC G S0027 DISTRB FSNAME=FLRT D4T1 293 ACCOUNTING.FILERATE.OC.014 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 10:11:04 00104/018 ACCOUNTING ACCMAINT SA G AMAT S0027 DISTRB FSNAME=ACCMAINT D4.2T1 56 ACCOUNTING.ACCMAINT.SA.018 1 LINE 80 58 PAGE UM ENGLE JAN. 25, 1979 16:37:32 0 MAIN PROGRAM FOR ACCMAINT. RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2). THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO WHICH A LOG IS WRITTEN. 00104/019 ACCOUNTING ACCMAINT UC G # S0027 DISTRB FSNAME=ACCMAINTUPD D4.2T1 57 ACCOUNTING.ACCMAINT.UC.019 1 LINE 72 2 PAGE UM ENGLE JAN. 25, 1979 16:37:51 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/020 ACCOUNTING ACCMAINT OC G S0027 DISTRB FSNAME=AMAT D4.2T1 58 ACCOUNTING.ACCMAINT.OC.020 1 LINE 80 10 PAGE UM ENGLE JAN. 25, 1979 16:37:55 0 Referenced by comments of: 104/125 00104/021 ACCOUNTING ACCMAINT OE G # ACC:ACCMAINT UM ENGLE ACC:ACCMAINT 0 Referenced by comments of: 104/123 00104/022 ACCOUNTING ACCIO SA G AIO S0027 DISTRB FSNAME=ACCIO D4T1 296 ACCOUNTING.ACCIO.SA.017 1 LINE 80 15 PAGE UM ENGLE JUNE 04, 1976 14:22:22 0 GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S). 0 Referenced by comments of: 104/39 00104/023 ACCOUNTING ACCIO OC G S0027 DISTRB FSNAME=AIO D4T1 297 ACCOUNTING.ACCIO.OC.018 1 LINE 80 3 PAGE UM ENGLE JUNE 04, 1976 14:22:35 0 THERE ARE REP CARDS IN THIS FILE TO CHANGE FILE NAMES TO PUBLIC FILES. 0 Referenced by comments of: 129/2, 484/1, 631/13 00104/024 ACCOUNTING ACCGFUPD SA G S0964 'D3.2T1' FSNAME=ACCOUNTING.ACCGFUPD.SA.19(1) 66 D4T1 298 ACCOUNTING.ACCGFUPD.SA.019 1 LINE 72 1 PAGE UM ENGLE MAR. 21, 1975 01:02:18 0 PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS. RUN WITH ACCRDWRT (104/31). 1 THU SEP 12/96 23:39:34 Page 43 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 104/31, 682/40 00104/025 ACCOUNTING ACCGFUPD OC G W013:ACCGFUPD(1,98) D4T1 299 ACCOUNTING.ACCGFUPD.OC.020 1 LINE 80 1 PAGE UM ENGLE JULY 27, 1977 22:10:30 00104/026 ACCOUNTING ACCDSPLA SA G ADSP S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.SA.22(1) 254 D4T1 300 ACCOUNTING.ACCDSPLA.SA.021 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 12:08.13 0 PROGRAM TO READ A SPECIFIC RECORD OF THE ACCOUNTING FILE AND CALL ACCPRINT FOR IT. 00104/027 ACCOUNTING ACCDSPLA OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.OC.23(1) 255 D4T1 301 ACCOUNTING.ACCDSPLA.OC.022 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 12:08.26 00104/028 ACCOUNTING ACCDSPLA OC G # ACC:ACCDISPLAY UM ENGLE ACC:ACCDISPLAY 00104/029 ACCOUNTING ACCSTRUP SA G ASTR S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSTRUP.SA.24(1) 137 D4T1 302 ACCOUNTING.ACCSTRUP.SA.023 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 13:43.30 0 MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS. RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1). 00104/030 ACCOUNTING ACCSTRUP OC G S0027 DISTRB FSNAME=ASTR D4T1 303 ACCOUNTING.ACCSTRUP.OC.024 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 10:19:52 0 Referenced by comments of: 484/1 00104/031 ACCOUNTING ACCRDWRT SA G ARDW S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.SA.26(1) 258 D4T1 304 ACCOUNTING.ACCRDWRT.SA.025 1 LINE 80 6 PAGE UM ENGLE OCT. 05, 1972 12:20.15 0 PROGRAM TO PERFORM GENERAL REFORMATTING OPERATION ON THE ACCOUNTING FILE. IT CALLS A USER PROVIDED SUBROUTINE CALLED ACCUPDAT TO DO THE ACTUAL REFORMATTING. ACCGFUPD (104/24) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION. 0 Referenced by comments of: 104/24, 682/40 00104/032 ACCOUNTING ACCRDWRT OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.OC.27(1) 259 D4T1 305 ACCOUNTING.ACCRDWRT.OC.026 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 12:20.35 0 Referenced by comments of: 104/64 00104/033 ACCOUNTING PCONVERT SA G S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.SA.28(1) 139 D4T1 306 ACCOUNTING.PCONVERT.SA.027 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:33.24 0 PRJPRINT SUBROUTINE TO CONVERT A DISTRIBUTION 3.0 PROJECT FILE TO DISTRIBUTIONS 3.1, 3.2, OR 4.0 (WHICH ARE ALL THE SAME) BY ADDING NETWORK FIELDS AND FLAG. TO USE, RUN PRJLIST (104/43) + PCONVERT + ACCLIB (104/39). NEW PROJECT FILE IS PRODUCED ON SPUNCH. COPIES ACCPROJFMT (104/2). 00104/034 ACCOUNTING PCONVERT OC G S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.OC.29(1) 140 D4T1 307 ACCOUNTING.PCONVERT.OC.028 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:33.42 1 THU SEP 12/96 23:39:34 Page 44 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/035 ACCOUNTING ACCPRJMT SA G APMT S0027 DISTRB FSNAME=ACCPRJMT D4.2T1 59 ACCOUNTING.ACCPRJMT.SA.035 1 LINE 80 29 PAGE UM ENGLE FEB. 05, 1979 17:30:21 0 MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT. RUN WITH PROT=OFF. THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO WHICH A LOG IS WRITTEN. 0 Referenced by comments of: 104/125 00104/036 ACCOUNTING ACCPRJMT UC G # S0027 DISTRB FSNAME=ACCPRJMTUPD D4.2T1 60 ACCOUNTING.ACCPRJMT.UC.036 1 LINE 73 2 PAGE UM ENGLE FEB. 05, 1979 17:30:30 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/037 ACCOUNTING ACCPRJMT OC G S0027 DISTRB FSNAME=APMT D4.2T1 61 ACCOUNTING.ACCPRJMT.OC.037 1 LINE 80 5 PAGE UM ENGLE JAN. 25, 1979 16:26:26 00104/038 ACCOUNTING ACCPRJMT OE G # ACC:PROJECTMAINT UM ENGLE ACC:PROJECTMAINT 00104/039 ACCOUNTING ACCLIB OL G S0027 DISTRB FSNAME=ACCLIB D4.2T1 62 ACCOUNTING.ACCLIB.OL.039 1 LINE 780 24 PAGE UM ENGLE FEB. 02, 1979 14:41:05 ACC:ACCLIB 0 THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/22) TO PUBLIC FILES. THIS FILE MUST BE PERMITTED AS FOLLOWS: R PKEY=FILEINFO. 0 Referenced by comments of: 104/33, 632/3, 632/6, 682/40 00104/040 ACCOUNTING ACPRJPRT SA G APPR S0027 DISTRB FSNAME=ACPRJPRT D4.2T1 63 ACCOUNTING.ACPRJPRT.SA.040 1 LINE 80 9 PAGE UM ENGLE JAN. 25, 1979 16:30:30 0 SUBROUTINE TO PRINT A RECORD FROM *PROJECT. COPIES ACCPROJFMT (104/2). 0 Referenced by comments of: 104/125 00104/041 ACCOUNTING ACPRJPRT OC G S0027 DISTRB FSNAME=APPR D4.2T1 64 ACCOUNTING.ACPRJPRT.OC.041 1 LINE 80 4 PAGE UM ENGLE JAN. 25, 1979 16:30:35 00104/042 ACCOUNTING PRJLIST SA G APLS S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.SA.35(1) 267 D4T1 313 ACCOUNTING.PRJLIST.SA.034 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 15:13.34 0 PROGRAM TO READ EACH RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT. 0 Referenced by comments of: 500/24 00104/043 ACCOUNTING PRJLIST OC G S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.OC.36(1) 268 D4T1 314 ACCOUNTING.PRJLIST.OC.035 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:13.55 0 Referenced by comments of: 104/33 1 THU SEP 12/96 23:39:34 Page 45 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/044 ACCOUNTING PRJLIST OC G # ACC:PROJECTLIST UM ENGLE ACC:PROJECTLIST 00104/045 ACCOUNTING PRJDSPLA SA G APDS S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.SA.37(1) 269 D4T1 315 ACCOUNTING.PRJDSPLA.SA.036 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 15:17.03 0 PROGRAM TO READ A SPECIFIC RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT. 00104/046 ACCOUNTING PRJDSPLA OC G S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.OC.38(1) 270 D4T1 316 ACCOUNTING.PRJDSPLA.OC.037 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:17.49 00104/047 ACCOUNTING PRJDSPLA OC G # ACC:PROJECTDISP UM ENGLE ACC:PROJECTDISP 00104/048 ACCOUNTING ACCPASWD SA G APSW S0027 DISTRB FSNAME=ACCPASWD D4.2T1 65 ACCOUNTING.ACCPASWD.SA.048 1 LINE 80 5 PAGE UM ENGLE JAN. 09, 1979 15:29:57 0 PROGRAM TO GENERATE A RANDOM PASSWORD FOR AN ACCOUNTING RECORD AND PRINT THE NEW PASSWORD PLUS THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET. THIS PROGRAM WRITES AN AUDIT TRAIL IN THE FILE *PWSTAT, WHICH MUST EXIST AS A LINE FILE WITH AT LEAST ONE LINE (WHICH MAY BE ANYTHING). RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/141, 104/142, 104/149 00104/049 ACCOUNTING ACCPASWD OC G S0027 DISTRB FSNAME=APSW D4.2T1 66 ACCOUNTING.ACCPASWD.OC.049 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1979 15:30:04 00104/050 ACCOUNTING ACCPASWD OE G # WPSW:PROGRAM1 UM ENGLE ACC:ACCPASWD 00104/051 ACCOUNTING ACONSIST SA G ACNS S0027 DISTRB FSNAME=ACONSIST D4.2T1 67 ACCOUNTING.ACONSIST.SA.051 1 LINE 80 13 PAGE UM ENGLE JAN. 10, 1979 16:37:32 0 MAIN PROGRAM FOR ACCERRORSCAN. RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2). 0 Referenced by comments of: 104/125 00104/052 ACCOUNTING ACONSIST OC G S0027 DISTRB FSNAME=ACNS D4.2T1 68 ACCOUNTING.ACONSIST.OC.052 1 LINE 80 4 PAGE UM ENGLE JAN. 10, 1979 16:37:40 00104/053 ACCOUNTING ACONSIST OC G # ACC:ACCERRORSCAN UM ENGLE ACC:ACCERRORSCAN 00104/054 ACCOUNTING FILENAME SA G FLNM S0027 DISTRB FSNAME=FILENAME D4.2T1 69 ACCOUNTING.FILENAME.SA.054 1 LINE 80 1 PAGE UM ENGLE JAN. 25, 1979 16:39:44 0 CONTAINS THE NAMES OF THE FILES *ACCOUNTING, *PWSTAT, *PROJECT, *PROJDIRECTORY, AND *STATISTICS. 1 THU SEP 12/96 23:39:34 Page 46 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/055 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/056 ACCOUNTING FILENAME OC G S0027 DISTRB FSNAME=FLNM D4.2T1 71 ACCOUNTING.FILENAME.OC.056 1 SEQ 80 1 PAGE UM ENGLE JAN. 25, 1979 16:40:00 0 Referenced by comments of: 631/13 00104/057 ACCOUNTING DIRECTRY SA G DIR S0027 DISTRB FSNAME=DIRECTRY D4.2T1 72 ACCOUNTING.DIRECTRY.SA.057 1 LINE 80 17 PAGE UM ENGLE JAN. 10, 1979 15:27:14 0 I/O SUBROUTINES FOR THE DIRECTORY FILE. COPIES *CNFGINFODSECT (654). 00104/058 ACCOUNTING DIRECTRY OC G S0027 DISTRB FSNAME=DIR D4.2T1 73 ACCOUNTING.DIRECTRY.OC.058 1 LINE 80 4 PAGE UM ENGLE JAN. 10, 1979 15:27:27 0 Referenced by comments of: 631/13 00104/059 ACCOUNTING DIRLIST SA G DLST S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRLIST.SA.46(1) 79 D4T1 325 ACCOUNTING.DIRLIST.SA.046 1 LINE 80 4 PAGE UM ENGLE DEC. 06, 1974 11:36.26 0 MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY. 00104/060 ACCOUNTING DIRLIST OC G S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRLIST.OC.47(1) 80 D4T1 326 ACCOUNTING.DIRLIST.OC.047 1 LINE 80 2 PAGE UM ENGLE DEC. 06, 1974 11:36.55 00104/061 ACCOUNTING DIRLIST OC G # ACC:DIRLIST UM ENGLE ACC:DIRLIST 00104/062 ACCOUNTING FILUPDAT SA G FLUP S0027 DISTRB FSNAME=FILUPDAT D4.2T1 74 ACCOUNTING.FILUPDAT.SA.062 1 LINE 80 7 PAGE UM ENGLE MAR. 07, 1979 12:02:47 0 PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE CURRENT MONTH (IF NO PAR= IS GIVEN) OR EXPIRATION TIME. IF PAR=MM/DD/YY IS GIVEN, UPDATE IS TO 24:00:00 OF MM/DD/YY OR EXPIRATION TIME. IF PAR= MM/DD/YY HH:MM:SS IS GIVEN, UPDATE IS TO SPECIFIED TIME OR EXPIRATION TIME. PROGRAM UPDATES THE ACCOUNTING RECORD AND WRITES A STATISTICS RECORD FOR BILLING. RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/141, 104/142 00104/063 ACCOUNTING FILUPDAT OC G S0027 DISTRB FSNAME=FLUP D4.2T1 75 ACCOUNTING.FILUPDAT.OC.063 1 LINE 80 3 PAGE UM ENGLE MAR. 07, 1979 12:02:58 00104/064 ACCOUNTING ACONVERT SA G ACNV S0027 DISTRB FSNAME=ACONVERT D4T1 329 ACCOUNTING.ACONVERT.SA.050 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 10:41:10 0 ACCUPDAT SUBROUTINE TO CONVERT A DISTRIBUTION 3.2 ACCOUNTING FILE TO THE NEW FORMAT WHICH INCLUDES PLOTTER PAPER AND PEN FIELDS. USE WITH ACCRDWRT (104/32). COPIES ACCFORMAT (104/1). 1 THU SEP 12/96 23:39:34 Page 47 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/065 ACCOUNTING ACONVERT OC G S0027 DISTRB FSNAME=ACNV D4T1 330 ACCOUNTING.ACONVERT.OC.051 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 10:41:16 00104/066 ACCOUNTING STAPROJECT OC O S0027 DISTRB FSNAME=STAPROJECT D4.2T1 76 ACCOUNTING.STAPROJECT.OC.066 1 LINE 80 5 PAGE UM ENGLE JAN. 25, 1979 16:32:39 0 PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT. PRODUCED BY ASSEMBLING ACCMXMAT (631/6) WITH &STAPRJ SET TO ONE. RUN WITH PROT=OFF. 0 Referenced by comments of: 631/6 00104/067 ACCOUNTING STAPROJECT OE G # ACC:STAPROJECT UM ENGLE ACC:STAPROJECT 0 LINKEDITED VERSION OF 104/66 + AUPR (631/8) + "$CONTINUE WITH ACC:ACCLIB". 00104/068 ACCOUNTING GRDEF SA G GRDF S0720 'D3T1' FSNAME=ACCOUNTING.GRDEF.SA.58(1) 290 D4T1 336 ACCOUNTING.GRDEF.SA.057 1 SEQ 80 1 PAGE UM ENGLE JAN. 10, 1973 17:16.39 0 COPY SECTION. 0 Referenced by comments of: 97/4, 104/16, 104/77, 104/79, 104/81, 104/89, 104/93, 104/100, 104/112, 104/132, 360/1, 500/30, 586/1, 631/1, 631/4, 631/11, 632/3, 708/1 00104/069 ACCOUNTING WKDAY SA G WKDA S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.SA.59(1) 291 D4T1 337 ACCOUNTING.WKDAY.SA.058 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1973 12:14.08 0 SUBROUTINE TO PRODUCE THE DAY OF THE WEEK FOR A GIVEN DATE. USED IN INITCHK (104/76). 00104/070 ACCOUNTING WKDAY OC G S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.OC.60(1) 292 D4T1 338 ACCOUNTING.WKDAY.OC.059 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 12:14.29 00104/071 ACCOUNTING DIRDSPLA SA G DDSP S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.SA.61(1) 293 D4T1 339 ACCOUNTING.DIRDSPLA.SA.060 1 LINE 80 3 PAGE UM ENGLE JAN. 12, 1973 13:57.36 0 PROGRAM TO READ A SPECIFIC RECORD FROM *PRJDIRECTORY AND CALL DIRPRINT FOR IT. 00104/072 ACCOUNTING DIRDSPLA OC G S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.OC.62(1) 294 D4T1 340 ACCOUNTING.DIRDSPLA.OC.061 1 LINE 80 1 DISK UM ENGLE JAN. 12, 1973 13:57.46 00104/073 ACCOUNTING DIRDSPLA OC G # ACC:DIRDISPLAY UM ENGLE ACC:DIRDISPLAY 00104/074 ACCOUNTING DIRPRINT SA G DPRT S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRPRINT.SA.62(1) 90 D4T1 341 ACCOUNTING.DIRPRINT.SA.062 1 LINE 80 6 PAGE UM ENGLE DEC. 06, 1974 12:00.11 0 SUBROUTINE TO FORMAT A DIRECTORY ENTRY FOR PRINTING. USED IN ACC:ACCLIB. 00104/075 ACCOUNTING DIRPRINT OC G S0964 'D3.2T1' FSNAME=ACCOUNTING.DIRPRINT.OC.63(1) 91 D4T1 342 ACCOUNTING.DIRPRINT.OC.063 1 LINE 80 2 PAGE UM ENGLE DEC. 06, 1974 12:00.34 1 THU SEP 12/96 23:39:34 Page 48 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/076 ACCOUNTING INITCHK # (SEE COMP 097/5 AND 097/6) UM ENGLE 0 Referenced by comments of: 104/69 00104/077 ACCOUNTING ACCFLUPD SA G AFLU S0027 DISTRB FSNAME=ACCFLUPD D4T1 343 ACCOUNTING.ACCFLUPD.SA.065 1 LINE 80 7 PAGE UM ENGLE JUNE 02, 1976 12:42:09 0 SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD. COPIES ACCFORMAT (104/1) AND GRDEF (104/68). 00104/078 ACCOUNTING ACCFLUPD OC G S0027 DISTRB FSNAME=AFLU D4T1 344 ACCOUNTING.ACCFLUPD.OC.066 1 LINE 80 2 PAGE UM ENGLE JUNE 02, 1976 12:42:15 0 Referenced by comments of: 484/1 00104/079 ACCOUNTING ACCINSCN SA G AINS S0027 DISTRB FSNAME=ACCINSCN D4T1 345 ACCOUNTING.ACCINSCN.SA.067 1 LINE 80 6 PAGE UM ENGLE DEC. 05, 1975 11:57:04 0 USED IN INIT:INIT (097/3). COPIES ACCFORMAT (104/1) AND GRDEF (104/68). 00104/080 ACCOUNTING ACCINSCN OC G S0027 DISTRB FSNAME=AINS D4T1 346 ACCOUNTING.ACCINSCN.OC.068 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 11:57:12 00104/081 ACCOUNTING CURSIG SA G CSIG S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.SA.70(1) 301 D4T1 347 ACCOUNTING.CURSIG.SA.069 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1973 17:55.52 0 SUBROUTINE TO DETERMINE NUMBER OF CURRENT SIGNONS. COPIES GRDEF (104/68) AND *LLMPSEQU. NOTE THAT THE SOURCE SHOULD BE CHANGED (IF RE-ASSEMBLED) SO THAT IT COPIES COPY:LLMPSEQU (087) INSTEAD OF *LLMPSEQU WHICH NO LONGER EXISTS. 00104/082 ACCOUNTING CURSIG OC G S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.OC.71(1) 302 D4T1 348 ACCOUNTING.CURSIG.OC.070 1 LINE 80 1 DISK UM ENGLE JAN. 08, 1973 17:56.03 0 Referenced by comments of: 484/1 00104/083 ACCOUNTING DEDFLFIX # (SEE COMP 502/9 AND 502/10) UM ENGLE 00104/084 ACCOUNTING ACCLSTPR SA G ALPR S0027 DISTRB FSNAME=ACCLSTPR D4.2T1 77 ACCOUNTING.ACCLSTPR.SA.084 1 LINE 80 9 PAGE UM ENGLE JAN. 09, 1979 15:32:09 0 SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/125 00104/085 ACCOUNTING ACCLSTPR OC G S0027 DISTRB FSNAME=ALPR D4.2T1 78 ACCOUNTING.ACCLSTPR.OC.085 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1979 15:32:23 00104/086 ACCOUNTING ACCFLCHG SA G AFLC S0027 DISTRB FSNAME=ACCFLCHG D4T1 351 ACCOUNTING.ACCFLCHG.SA.074 1 LINE 80 4 PAGE UM ENGLE MAY 14, 1976 16:23:03 0 SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD. CALLED BY ACCDSPLA. COPIES ACCFORMAT (104/1). 1 THU SEP 12/96 23:39:34 Page 49 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/087 ACCOUNTING ACCFLCHG OC G S0027 DISTRB FSNAME=AFLC D4T1 352 ACCOUNTING.ACCFLCHG.OC.075 1 LINE 80 1 PAGE UM ENGLE MAY 14, 1976 16:23:10 0 PATCHED TO AGREE WITH SOURCE. 00104/088 ACCOUNTING ACCFLCHG OE G # ACC:ACCFILCHARGE UM ENGLE ACC:ACCFILCHARGE 0 ACCDSPLA+ACCFLCHG 00104/089 ACCOUNTING APSWDISP SA G APWD S0720 'D3T1' FSNAME=ACCOUNTING.APSWDISP.SA.77(1) 307 D4T1 353 ACCOUNTING.APSWDISP.SA.076 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1973 18:07.38 0 SUBROUTINE TO PRINT INTERNAL PASSWORD REPRESENTATION AND LAST DATE AND TIME SET FOR AN ACCOUNTING RECORD. CALLED BY ACCDSPLA. COPIES ACCFORMAT (104/1) AND GRDEF (104/68). 00104/090 ACCOUNTING APSWDISP OC G S0027 DISTRB FSNAME=APWD D4T1 354 ACCOUNTING.APSWDISP.OC.077 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 12:20:25 00104/091 ACCOUNTING ACCHEXPR SA O AXPR S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.SA.79(1) 309 D4T1 355 ACCOUNTING.ACCHEXPR.SA.078 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1973 10:55.07 0 SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN HEX. CALLED BY ACCDSPLA. 00104/092 ACCOUNTING ACCHEXPR OC O S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.OC.80(1) 310 D4T1 356 ACCOUNTING.ACCHEXPR.OC.079 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 10:55.43 00104/093 ACCOUNTING TIMETRP SA G TTRP S0964 'D3.2T1' FSNAME=ACCOUNTING.TIMETRP.SA.80(1) 101 D4T1 357 ACCOUNTING.TIMETRP.SA.080 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 12:04.25 0 SUBROUTINE TO SET UP REAL TIME INTERRUPTS AND SET A FLAG AT THE INTERRUPT. COPIES GRDEF (104/68). 00104/094 ACCOUNTING TIMETRP OC G S0964 'D3.2T1' FSNAME=ACCOUNTING.TIMETRP.OC.81(1) 102 D4T1 358 ACCOUNTING.TIMETRP.OC.081 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 12:04.41 0 Referenced by comments of: 631/13 00104/095 ACCOUNTING ACCSGATR SA G ASAR S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.SA.83(1) 165 D4T1 359 ACCOUNTING.ACCSGATR.SA.082 1 LINE 80 5 PAGE UM ENGLE JAN. 08, 1974 14:50.39 0 PROGRAM TO RESET SIGNON ATTENTION FLAG IN A USERS ACCOUNTING RECORD. THIS PROGRAM WRITES AN AUDIT TRAIL IN THE FILE *PWSTAT, WHICH MUST EXIST AS A LINE FILE WITH AT LEAST ONE LINE (WHICH MAY BE ANYTHING). RUN WITH PROT=OFF. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/141, 104/142, 104/149 00104/096 ACCOUNTING ACCSGATR OC G S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.OC.84(1) 166 D4T1 360 ACCOUNTING.ACCSGATR.OC.083 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1974 14:53.32 00104/097 ACCOUNTING ACCSAVE SA G ASAV S0027 DISTRB FSNAME=ACCSAVE D4T1 361 ACCOUNTING.ACCSAVE.SA.084 1 LINE 80 8 PAGE UM ENGLE DEC. 05, 1975 12:22:04 0 MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE. 1 THU SEP 12/96 23:39:34 Page 50 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 104/127 00104/098 ACCOUNTING ACCSAVE OC G S0027 DISTRB FSNAME=ASAV D4T1 362 ACCOUNTING.ACCSAVE.OC.085 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 12:22:10 00104/099 ACCOUNTING ACCSAVE OE G # ACC:ACCSAVE UM ENGLE ACC:ACCSAVE 00104/100 ACCOUNTING ACCTAPRD SA G ATRD S0027 DISTRB FSNAME=ACCTAPRD D4T1 363 ACCOUNTING.ACCTAPRD.SA.086 1 LINE 80 4 PAGE UM ENGLE DEC. 05, 1975 12:24:14 0 VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES. COPIES GRDEF (104/68). 00104/101 ACCOUNTING ACCTAPRD OC G S0027 DISTRB FSNAME=ATRD D4T1 364 ACCOUNTING.ACCTAPRD.OC.087 1 LINE 80 2 PAGE UM ENGLE DEC. 05, 1975 12:24:24 00104/102 ACCOUNTING GETFILE SA G GTFL S0027 DISTRB FSNAME=GETFILE D4.1T1 50 ACCOUNTING.GETFILE.SA.102 1 LINE 80 3 PAGE UM ENGLE FEB. 27, 1978 11:04:45 0 SUBROUTINE TO GET A FDUB, ETC. 00104/103 ACCOUNTING GETFILE OC G S0027 DISTRB FSNAME=GTFL D4.1T1 51 ACCOUNTING.GETFILE.OC.103 1 LINE 80 1 PAGE UM ENGLE FEB. 27, 1978 11:04:47 0 Referenced by comments of: 129/2, 484/1, 631/13 00104/104 ACCOUNTING ACATALOG SA G ACAT FILE:ACATALOG D4.2T1 79 ACCOUNTING.ACATALOG.SA.104 1 LINE 80 4 PAGE UM HELFFRICH MAR. 26, 1979 02:25:39 FILE:ACATALOG 0 SUBROUTINE THAT GETS THE CURRENT DISK AND DATA CELL SPACE FOR A USER FROM THE CATALOG AND DSCB. USED BY ACC:ACCMAINT, INIT:INIT, AND *ACCRESTORE. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00104/105 ACCOUNTING ACATALOG OC G FILE:ACATALOG.O D4.2T1 80 ACCOUNTING.ACATALOG.OC.105 1 LINE 80 1 PAGE UM HELFFRICH MAR. 26, 1979 02:25:40 FILE:ACATALOG.O 0 Referenced by comments of: 484/1 00104/106 ACCOUNTING ACATALOG SA G MTA:ACATALOG(1,999) D4T1 369 ACCOUNTING.ACATALOG.SA.092 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 22:18:36 MTA.:ACATALOG 0 THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION, BUT CALLS THE ACATSUB SUBROUTINE (104/108) 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/108, 682/40 1 THU SEP 12/96 23:39:34 Page 51 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/107 ACCOUNTING ACATALOG OC G MTA:ACATALOG(2000) D4T1 370 ACCOUNTING.ACATALOG.OC.093 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 22:18:38 00104/108 ACCOUNTING ACATSUB SA G FILE:ACATSUB(1,999) D4.2T1 81 ACCOUNTING.ACATSUB.SA.108 1 LINE 72 8 PAGE UM MTA MAR. 26, 1979 02:25:41 FILE:ACATSUB 0 SUBROUTINE CALLED BY SUPER ACATALOG (104/106) AND USED BY THE DISK ERROR RECOVERY PROCEDURES (703). IT BUILDS A TABLE OF THE AMOUNT OF SPACE USED BY EACH USERID WHICH HAS FILES. IN THE PROCESS, IT CHECKS THE CATALOG AGAINST THE DSCBS ON THE VARIOUS VOLUMES AND OPTIONALLY PRODUCES TWO LISTS WHICH CAN BE USED WITH FASTRSTR (671). IF UNIT 10 IS ASSIGNED, IT IS A LIST OF USERIDS WHICH ARE KNOWN TO HAVE LOST CATALOG SEGMENTS (INCLUDING POSSIBLY *SYS) AND TWO OUTPUT LISTS ARE PRODUCED. UNIT 11 WILL CONTAIN A LIST OF UNCATALOGED FILES WHICH BELONG TO THE USERS IN THE UNIT 10 LIST. UNIT 12 WILL CONTAIN A LIST OF ALL FILES WHICH ARE IN THE CATALOG BUT HAVE NO DSCB. THE LIST ON UNIT 11 SHOULD BE CHECKED FOR DUPLICATE ENTRIES (E.G. USING *SORT). THERE WILL NOT BE DUPLICATES BETWEEN THE TWO LISTS SINCE, IF A FILE IS IN THE CATALOG ANYWHERE, IT WILL NOT BE PUT IN THE LIST ON UNIT 11. THE LIST ON UNIT 11 WILL NOT INCLUDE *MASTER.CATALOGN OR *IPLAREA. THE LIST ON UNIT 12 WILL NOT INCLUDE ANY SCRATCH FILES OR ANY DUPLICATE NAMES. USES UNITS 10, 11, AND 12 TO AVOID CONFLICTS WITH ACCUPDAT. CALLS VTOCREAD (067/4). ASSEMBLE WITH PAR=SIZE=12 USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 104/106, 682/26, 682/40 00104/109 ACCOUNTING ACATSUB OC G FILE:ACATSUB(1000) D4.2T1 82 ACCOUNTING.ACATSUB.OC.109 1 LINE 80 4 PAGE UM MTA MAR. 26, 1979 02:25:43 00104/110 ACCOUNTING WRITEUP WF S0027 DISTRB FSNAME=ACCWRITEUP D4.2T1 83 ACCOUNTING.WRITEUP.WF.110 1 LINE 80 8 PAGE UM ENGLE JAN. 25, 1979 16:36:21 0 A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS. 00104/111 ACCOUNTING WRITEUP UC # S0027 DISTRB FSNAME=ACCWRITEUPUP D4.2T1 84 ACCOUNTING.WRITEUP.UC.111 1 LINE 76 1 PAGE UM ENGLE JAN. 25, 1979 16:36:27 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/112 ACCOUNTING IOLOKCK SA G IOLC S0027 DISTRB FSNAME=IOLOKCK D4T1 374 ACCOUNTING.IOLOKCK.SA.097 1 LINE 80 5 PAGE UM ENGLE DEC. 05, 1975 12:27:08 0 SUBROUTINE TO INTERCEPT I/O ERRORS AND NON-ZERO RETURN CODES FROM SETLCK IN ORDER TO PREVENT INTERRUPTION OF FILE LOCK WAITS. SETIOERR MUST BE CALLED WITH IOLOKCK AS THE I/O ERROR SUBROUTINE IN ORDER TO ACTIVATE THE I/O ERROR INTERCEPT. COPIES GRDEF (104/68). 0 Referenced by comments of: 129/2, 631/13 00104/113 ACCOUNTING IOLOKCK OC G S0027 DISTRB FSNAME=IOLC D4T1 375 ACCOUNTING.IOLOKCK.OC.098 1 LINE 80 2 PAGE UM ENGLE DEC. 05, 1975 12:27:18 1 THU SEP 12/96 23:39:34 Page 52 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/114 ACCOUNTING FLINFCL SG G S0027 DISTRB FSNAME=FLINFCL D4.1T1 52 ACCOUNTING.FLINFCL.SG.113 1 LINE 59 1 PAGE UM ENGLE FEB. 27, 1978 13:45:51 0 PROGRAM TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE BROKEN DOWN BY THE FIRST LETTER OF THE PROJECT NUMBER FOR ACTIVE (UNEXPIRED) SIGNON ID'S AND SUMMARIZED FOR ALL DEAD (EXPIRED) ID'S. IF PAR=DEAD IS GIVEN, THE REVERSE IS DONE, I.E., THE USAGE INFORMATION IS BROKEN DOWN BY THE FIRST LETTER OF THE PROJECT NUMBER FOR DEAD ID'S AND SUMMARIZED FOR ALL ACTIVE ID'S. THE PARAMETER MM/DD/YY (OR DATE=MM/DD/YY) MAY ALSO BE GIVEN TO SPECIFY A DATE; FILES BELONGING TO ID'S EXPIRING AT OR BEFORE MIDNIGHT OF THAT DATE ARE CONSIDERED DEAD. IF NO DATE IS SPECIFIED, THEN THE PREVIOUS MIDNIGHT IS USED AS THE TIME. IN ADDITION, IF PAR=STAFF IS GIVEN, ADDITIONAL INFORMATION FOR EACH SIGNON ID BELONGING TO A PROJECT BEGINNING WITH THE LETTER W IS PRINTED. THIS SECTION LOADS THE MAIN FUNCTION (104/116) FROM ACC:ACCLIB+NEW:GOMLIB. 00104/115 ACCOUNTING FLINFCL OC G S0027 DISTRB FSNAME=FICL D4.1T1 53 ACCOUNTING.FLINFCL.OC.114 1 LINE 80 1 PAGE UM ENGLE FEB. 27, 1978 13:47:55 ACC:FILEINFO 0 THIS FILE HAS THE PROGRAM KEY ACC.:FILEINFO. 00104/116A ACCOUNTING ACCFLINF SG G S0027 DISTRB FSNAME=ACCFLINF D4.1T1 54 ACCOUNTING.ACCFLINF.SG.115 1 LINE 100 3 PAGE UM ENGLE FEB. 27, 1978 13:52:19 0 MAIN FUNCTION TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE. 0 Referenced by comments of: 104/114, 104/119, 104/121, 104/123 00104/117A ACCOUNTING ACCFLINF UC G S0027 DISTRB FSNAME=ACCFLINFUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/118A ACCOUNTING ACCFLINF OC G S0027 DISTRB FSNAME=AFIN D4.1T1 55 ACCOUNTING.ACCFLINF.OC.116 1 LINE 80 7 PAGE UM ENGLE FEB. 27, 1978 13:53:04 00104/119 ACCOUNTING ACCFLKWF SG G S0027 DISTRB FSNAME=ACCFLKWF D4.1T1 56 ACCOUNTING.ACCFLKWF.SG.117 1 LINE 70 1 PAGE UM ENGLE FEB. 27, 1978 14:01:40 0 KWSCAN EXECUTE SUBROUTINE FOR ACCFLINF (104/116). 00104/120 ACCOUNTING ACCFLKWF OC G S0027 DISTRB FSNAME=AFKF D4.1T1 57 ACCOUNTING.ACCFLKWF.OC.118 1 LINE 80 1 PAGE UM ENGLE FEB. 27, 1978 14:02:24 00104/121 ACCOUNTING ACCFLATN SG G S0027 DISTRB FSNAME=ACCFLATN D4.2T1 85 ACCOUNTING.ACCFLATN.SG.120 1 LINE 55 1 PAGE UM ENGLE JAN. 09, 1979 15:35:45 0 GOM ATTENTION INTERRUPT EXIT FOR ACCFLINF (104/116). 00104/122 ACCOUNTING ACCFLATN OC G S0027 DISTRB FSNAME=AFLA D4.2T1 86 ACCOUNTING.ACCFLATN.OC.121 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 15:38:12 1 THU SEP 12/96 23:39:34 Page 53 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/123 ACCOUNTING ACCFLAIO SA G AFIO S0027 DISTRB FSNAME=ACCFLAIO D4T1 382 ACCOUNTING.ACCFLAIO.SA.105 1 LINE 80 1 PAGE UM ENGLE MAR. 02, 1977 11:42:53 0 SUBROUTINES ACCSCN AND ACCCLS WHICH ARE INTERFACES BETWEEN ACCFLINF (104/116) AND ACCSCAN AND ACCCLOSE (104/21). 00104/124 ACCOUNTING ACCFLAIO OC G S0027 DISTRB FSNAME=AFIO D4T1 383 ACCOUNTING.ACCFLAIO.OC.106 1 LINE 80 1 PAGE UM ENGLE MAR. 02, 1977 11:42:57 00104/125 ACCOUNTING LINCOUNT SA G LCNT S0027 DISTRB FSNAME=LINCOUNT D4.2T1 87 ACCOUNTING.LINCOUNT.SA.124 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 13:00:46 0 DEFINITION OF THE VARIABLE LINCOUNT. REFERENCED BY ACCPRINT (104/6), ACCLSTPR (104/84), ACPRJPRT (104/40), ACCMAINT (104/20), ACCPRJMT (104/35), AND ACONSIST (104/51). 00104/126 ACCOUNTING LINCOUNT OC G S0027 DISTRB FSNAME=LCNT D4.2T1 88 ACCOUNTING.LINCOUNT.OC.125 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 13:01:15 00104/127 ACCOUNTING ACCRETRV SG G S0027 DISTRB FSNAME=ACCRETRV D4.2T1 89 ACCOUNTING.ACCRETRV.SG.126 1 LINE 135 5 PAGE UM ENGLE JAN. 26, 1979 10:27:54 0 PROGRAM TO MOUNT AN ACCSAVE TAPE (104/97) AND DISPLAY OR LIST ACCOUNTING OR PROJECT RECORDS. ASSUMES THE EXISTENCE OF PROGRAMS IN ACC:ACCDISPLAY, ACC:PROJECTDISP, ACC:ACCLISTING, AND ACC:PROJECTLIST. 0 Referenced by comments of: 104/130 00104/128 ACCOUNTING ACCRETRV OC G S0027 DISTRB FSNAME=ARTV D4.2T1 90 ACCOUNTING.ACCRETRV.OC.127 1 LINE 80 9 PAGE UM ENGLE JAN. 26, 1979 10:34:06 00104/129 ACCOUNTING ACCRETRV OE G # ACC:ACCRETRIEVE UM ENGLE ACC.:ACCRETRIEVE 0 ACCRETRV+ACCTAPRD 00104/130 ACCOUNTING TIMECALL SA G TMCL S0027 DISTRB FSNAME=TIMECALL D4.2T1 91 ACCOUNTING.TIMECALL.SA.129 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 13:05:36 0 INTERFACE TO DYNAMICALLY LINK TO THE TIME SUBROUTINE. CALLED BY ACCRETRV (104/127). 00104/131 ACCOUNTING TIMECALL OC G S0027 DISTRB FSNAME=TMCL D4.2T1 92 ACCOUNTING.TIMECALL.OC.130 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1979 13:06:23 00104/132 ACCOUNTING GTPRJIDS SA G GPID S0027 DISTRB FSNAME=GTPRJIDS D4.2T1 93 ACCOUNTING.GTPRJIDS.SA.131 1 LINE 80 13 PAGE UM ENGLE JAN. 11, 1979 11:04:53 0 SUBROUTINE TO OBTAIN THE SIGNON IDS BELONGING TO A PROJECT. COPIES GRDEF (104/68), ACCPROJFMT (104/2) AND *CNFGINFODSECT (654). 1 THU SEP 12/96 23:39:34 Page 54 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/133 ACCOUNTING GTPRJIDS OC G S0027 DISTRB FSNAME=GPID D4.2T1 94 ACCOUNTING.GTPRJIDS.OC.132 1 LINE 80 4 PAGE UM ENGLE JAN. 11, 1979 11:05:00 00104/134 ACCOUNTING ACCPRJID SG G S0027 DISTRB FSNAME=ACCPRJID D4.2T1 95 ACCOUNTING.ACCPRJID.SG.133 1 LINE 112 1 PAGE UM ENGLE JAN. 09, 1979 13:08:32 0 PROGRAM TO LIST THE SIGNON ID'S FOR A SPECIFIED PROJECT. 00104/135 ACCOUNTING ACCPRJID OC G S0027 DISTRB FSNAME=APID D4.2T1 96 ACCOUNTING.ACCPRJID.OC.134 1 LINE 80 4 PAGE UM ENGLE JAN. 09, 1979 13:08:55 00104/136 ACCOUNTING ACCPRJID OE G # ACC:PROJECTIDS UM ENGLE ACC.:PROJECTIDS 00104/137 ACCOUNTING IDRANGE SG G S0027 DISTRB FSNAME=IDRANGE D4.2T1 97 ACCOUNTING.IDRANGE.SG.136 1 LINE 84 3 PAGE UM ENGLE JAN. 09, 1979 14:35:56 0 PROGRAM TO PRINT THE LAST ID IN A RANGE GIVEN THE FIRST ID AND NUMBER OF ID'S OR THE NUMBER OF ID'S GIVEN THE FIRST AND LAST ID'S WITH OPTION TO LIST ALL ID'S IN THE RANGE. COLLATING SEQUENCE IS A-H, J-N, P-Z, 0-9. 00104/138 ACCOUNTING IDRANGE OC G S0027 DISTRB FSNAME=IRNG D4.2T1 98 ACCOUNTING.IDRANGE.OC.137 1 LINE 80 4 PAGE UM ENGLE JAN. 09, 1979 14:36:14 00104/139 ACCOUNTING LOG SG G S0027 DISTRB FSNAME=LOGSOURCE D4.2T1 99 ACCOUNTING.LOG.SG.138 1 LINE 80 3 PAGE UM ENGLE FEB. 02, 1979 14:36:49 0 SUBROUTINE TO WRITE AN AUDIT TRAIL IN A LOG FILE. 00104/140 ACCOUNTING LOG OC G S0027 DISTRB FSNAME=LOG D4.2T1 100 ACCOUNTING.LOG.OC.139 1 LINE 80 4 PAGE UM ENGLE FEB. 02, 1979 14:37:03 00104/141 ACCOUNTING *ACCOUNTING D # MTS:$ACCOUNTING UM ENGLE *ACCOUNTING 0 THIS FILE CONTAINS THE SUFFIXS FOR THE NAME OF THE AUXILIARY ACCOUNTING FILE CONTAINING THE ACCOUNTING RECORD FOR EACH USER ID. THIS FILE MUST BE PERMITTED AS FOLLOWS: R/N,R (PKEY=*SYS.ACC,PKEY=*ACC,PKEY=*STATUS,PKEY=INIT:INIT,PKEY=*CKID, PKEY=(ACCPASWD (104/48)),PKEY=(ACCSGATR (104/95)),PKEY=(FIX (502/11)), PKEY=*ACRESTORE,PKEY=(SCANFILES (502/1))),WE PKEY=INIT:INITCHK,RW ACC., RWE PKEY=(FILUPDAT (104/62)) THE DISTRIBUTED SYSTEM HAS THE FOLLOWING USERIDS: ACC., APL., COPY, DWB., ETC., FILE, FIX., INIT, MTA., MTS., NEW., NPRV, RSTR, SEG2, STRT, SYS., TMTS, UNSP, WSG., W009, W045, W167, AND W170. 00104/142 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: 1 THU SEP 12/96 23:39:34 Page 55 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 R/N,RWC (PKEY=*SYS.ACC,PKEY=*ACC,PKEY=INIT:INIT,PKEY=(FIX (502/11)),PKEY=*ACRESTORE, PKEY=(FILUPDAT (104/62)),PKEY=(SCANFILES (502/1)),PKEY=(ACCPASWD (104/48)), PKEY=(ACCSGATR (104/95))),R (PKEY=*STATUS,PKEY=*CKID,PKEY=ACC.:FILEINFO),RW ACC. 00104/143 ACCOUNTING *ACCOUNTING2 D # MTS:$ACCOUNTING2 UM ENGLE *ACCOUNTING2 00104/144 ACCOUNTING *ACCOUNTING3 D # MTS:$ACCOUNTING3 UM ENGLE *ACCOUNTING3 00104/145 ACCOUNTING *ACCOUNTING4 D # MTS:$ACCOUNTING4 UM ENGLE *ACCOUNTING4 00104/146 ACCOUNTING *ACCOUNTING5 D # MTS:$ACCOUNTING5 UM ENGLE *ACCOUNTING5 00104/147 ACCOUNTING *PROJECT D # MTS:$PROJECT UM ENGLE *PROJECT 0 THE PROJECT FILE CONTAINS A RECORD FOR EACH PROJECT. THE FILE MUST BE PERMITTED AS FOLLOWS: P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=*ACC THIS FILE MUST ALSO BE PERMITTED READ TO THE USER ID WHICH RUNS THE BILLING PROGRAMS. 00104/148 ACCOUNTING *PRJDIRECTORY D # MTS:$PRJDIRECTOR UM ENGLE *PRJDIRECTORY 0 THE PROJECT DIRECTORY FILE CONTAINS LISTS OF THE USER ID'S BELONGING TO EACH PROJECT. THE FILE MUST BE PERMITTED AS FOLLOWS: P/N, RW (ACC., MTS.&PKEY=ACCMAINT), R PKEY=*ACC 00104/149 ACCOUNTING *PWSTAT D # MTS:TST.PWSTAT UM ENGLE *PWSTAT 0 LOG FILE USED TO RECORD THE TIME AND DATE OF PASSWORD SETTINGS BY THE ACCOUNTING PROGRAMS. MUST BE PERMITTED AS FOLLOWS: P/N, (RWC,TRUNC) ACC.&PKEY=NEW.:LOGPURGE SOME INSTALLATIONS MAY CHOOSE TO PERMIT THIS FILE WE TO ALL SO THAT ANY USER WHO MANAGES TO RUN ACCPASWD (104/48) OR ACCSGATR (104/95) WILL LEAVE SOME EVIDENCE. IN THEORY, THESE PROGAMS ARE NOT AVAILABLE TO USERS. 00104/150 ACCOUNTING LOG FILE D # MTS:TST.ACCLOG UM ENGLE ACC.:ACCLOG 0 THIS FILE WILL ACCUMULATE ACCOUNTING MAINTENANCE AND PROJECT MAINTENANCE DATA. IT SHOULD BE PURGED REGULARLY TO PREVENT IT BECOMING TOO LARGE. NEW:LOGPURGE (739) MAY BE USED FOR THIS PURPOSE. 1 THU SEP 12/96 23:39:34 Page 56 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00108/001 *PL360 COMPILER S3 DBMS:PL360COMP.S D4.1T1 58 PL360.COMPILER.S3.001 1 LINE 80 79 PAGE UM STERKEN MAY 13, 1978 17:04:54 0 THIS VERSION OF PL360 WAS RECEIVED FROM STANFORD IN LATE 1977 AND INSTALLED AT UM IN JANUARY, 1978. IT IS ONLY SLIGHTLY DIFFERENT FROM THE D4.0 VERSION ADAPTED FOR MTS BY UQV. 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* $RUN *ASMG SCARDS=PL360INTF.S SPUNCH=PL360INTF.O SPRINT=*PRINT* *PL360 IS THEN LINKEDITED AS FOLLOWS: $RUN *LINKEDIT INCLUDE PL360COMP.O+PL360INTF.O COMBINE PUNCH ON *PL360 STOP *PL360 CREATES AND DESTROYS A TEMPORARY FILE (-PL360#01) IN WHICH IT KEEPS AN INTERMEDIATE VERSION OF THE OBJECT MODULES IT PRODUCES. THE MTS VERSION OF PL360 IS DESCRIBED FURTHER IN CCMEMO 75. THE BEST REFERENCE MANUAL FOR PL360 IS "INTRODUCTION TO PL360 PROGRAMMING" BY RICHARD L. GUERTIN (WADSWORTH PUBLISHING CO., BELMONT, CALIFORNIA). 00108/002 *PL360 MTS INTERFACE SA DBMS:PL360INTF.S D4.1T1 59 PL360.MTS_INTERFACE.SA.002 1 LINE 80 14 PAGE UM STERKEN MAY 13, 1978 17:05:00 0 SOURCE FOR MTS INTERFACE OF PL/360. 00108/003 *PL360 *PL360 OE *PL360 D4.1T1 60 PL360.*PL360.OE.003 1 SEQ 25492 10 PAGE UM STERKEN MAY 13, 1978 17:05:01 *PL360 00108/004 *PL360 LIBRARY SA DBMS:PL360LIB.S D4.1T1 61 PL360.LIBRARY.SA.004 1 LINE 80 3 PAGE UM STERKEN MAY 13, 1978 17:05:02 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. 1 THU SEP 12/96 23:39:34 Page 57 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00108/005 *PL360 *PL360LIB OE *PL360LIB D4.1T1 62 PL360.*PL360LIB.OE.005 1 LINE 2913 2 PAGE UM STERKEN MAY 13, 1978 17:05:03 *PL360LIB 00110 TNL SA # (ABANDONED) D3T1 335 TNL.*TNL.S.1 1 SEQ 80 30 PAGE UM JULY 31, 1973 00:08.57 00111/001 *PTPRRTN SA G PTPR W116:PTPR.S D4.2T1 101 PTPRRTN..SA.001 1 LINE 80 24 PAGE UM H YOUNG MAR. 26, 1979 02:28:14 0 DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER. ASKS THE OPERATOR FOR THE CAUSE OF ANY EQUIPMENT CHECKS AND THEN TRANSMITS THAT INFORMATION TO THE USER. MAXIMUM LENGTH OF THE OPERATOR'S RESPONSE IS GOVERNED BY THE LENGTH OF THE PAD WHICH IS FOUND IN THE PSECT (LENGTH IS COMPUTED BY &LENRESP). MINIMUM LENGTH OF THE OPERATOR'S RESPONSE IS SET BY &MINRESP AND IS CURRENTLY SET TO 10 CHARACTERS. COPIES COPY:MTS.MACROS. 00111/002 *PTPRRTN OC G *PTPRRTN D4.2T1 102 PTPRRTN..OC.002 1 LINE 80 3 PAGE UM H YOUNG MAR. 26, 1979 02:28:18 *PTPRRTN 00116/001B *PDP8RTN SA G PDP8 WSG:PDP8 RD16T1 16 PDP8RTN..SA.001 1 LINE 80 70 PAGE UM WSG JULY 12, 1979 22:25:25 WSG.:PDP8 0 MTS DEVICE SUPPORT ROUTINES FOR THE UM FRONT END MACHINES (DATA CONCENTRATORS). INCLUDES SUPPORT FOR "VOTRAX" AUDIO RESPONSE UNITS BY CALLING SPECIAL SUBROUTINES TO PERFORM I/O CONVERSION (SEE COMP 681). COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2) AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 681/1, 681/2, 681/19 00116/002B *PDP8RTN OC G *PDP8RTN RD16T1 17 PDP8RTN..OC.002 1 LINE 8960 27 PAGE UM WSG JULY 12, 1979 22:25:48 *PDP8RTN 00116/003 *PDP8RTN MEMO 347 WF # OBSOLETE (SEE COMP. 733) 394 D4T1 394 PDP8RTN.MEMO_347.WF.004 1 LINE 192 10 PAGE UM EMERY MAR. 03, 1977 14:28:25 00116/004 *PDP8RTN MEMO 384 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M384DECWRITER D4.2T1 105 PDP8RTN.MEMO_384.WF.004 1 LINE 118 3 PAGE UM LUBBERS SEP. 07, 1978 15:45:22 0 THIS IS COMPUTING CENTER MEMO 384 -- "QUICK GUIDE FOR USING DECWRITER TERMINALS VIA THE DATA CONCENTRATOR AND MEMOREX 1270." 00116/005 *PDP8RTN MEMO 370 WF W098:M370 D4.1T1 63 PDP8RTN.MEMO_370.WF.005 1 LINE 119 4 PAGE UM FLOWER MAY 13, 1978 17:05:03 0 THIS IS COMPUTING CENTER MEMO 370 -- "USE OF THE TEXAS INSTRUMENTS MODEL 733 ASR TERMINAL WITH THE DATA CONCENTRATOR." 1 THU SEP 12/96 23:39:34 Page 58 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00116/006 *PDP8RTN MEMO 375 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M375DECWRITER D4.2T1 106 PDP8RTN.MEMO_375.WF.006 1 LINE 104 10 PAGE UM K YOUNG SEP. 07, 1978 15:03:42 0 THIS IS COMPUTING CENTER MEMO 375 -- "THE DECWRITER TERMINAL AND MTS." 00117 *GRAPHMAC SM # (OBSOLETE) D4T1 396 GRAPHMAC..SM. 1 SEQ 80 63 PAGE UM JULY 31, 1973 00:14.26 00119/001 SYN360 SS S0720 'D3T1' FSNAME=SYN360..SS.1(1) 343 D4T1 397 SYN360..SS.001 1 SEQ 80 5 PAGE UM DWB JULY 31, 1973 00:15.37 0 PROGRAM (IN SNOBOL) TO PRODUCE THE SYNTAX TABLES THAT SNOBOL USES TO PARSE ITS INPUT. USED AS "CPU BURNER" AND "PAGER" FOR SYSTEM TESTING. 00119/002 SYN360 TABLES DATA D S0720 'D3T1' FSNAME=SYN360.TABLES_DATA.D.2(1) 344 D4T1 398 SYN360.TABLES_DATA.D.002 1 SEQ 80 3 PAGE UM DWB JULY 31, 1973 00:15.38 0 INPUT TO 119/1. ENDS WITH A "$CONTINUE WITH SYNTBL" CARD. 00120/001 REWIND SUBR SA G MTA:REWIND(1,999) D4.1T1 64 REWIND_SUBR..SA.001 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 17:05:05 MTA.:REWIND 0 FORTRAN CALLABLE REWIND SUBROUTINE. ASSEMBLE USING *SYSMAC. 00120/002 REWIND SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00121/001 *USERS SG G MTS:USERS.S D4.1T1 65 USERS..SG.001 1 LINE 68 1 PAGE UM MTA MAY 13, 1978 17:05:05 MTS.:USERS.S 0 GOM PROGRAM TO ISSUE A "$SYSTEMSTATUS USERS" COMMAND (GRUDGINGLY). 00121/002 *USERS OC G *USERS D4.2T1 107 USERS..OC.002 1 LINE 80 1 PAGE UM MTA MAR. 26, 1979 02:30:27 *USERS 00123 *PTASKS SA # (OBSOLETE) D4T1 405 PTASKS..SA. 1 SEQ 80 17 PAGE UM JULY 31, 1973 00:15.58 00126/001 BLSTDEV SA G S0720 'D3T1' FSNAME=BLSTDEV..SA.1(1) 351 D4T1 406 BLSTDEV..SA.001 1 LINE 80 3 PAGE UM MTA JULY 30, 1973 03:31.46 0 SUBROUTINE TO RESET A DEVICE FOR A NEW OPERATION. USED BY SEVERAL DSR'S. 00126/002 BLSTDEV OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00128 *PTPPRTN SA S S0563 D4T1 VLO FSNAME=PTPPRTN..SA.(1) 407 D4T1 407 PTPPRTN..SA. 1 SEQ 80 19 PAGE UM WSG JULY 31, 1973 00:17.03 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 1018 PAPER TAPE PUNCH. HAS BUGS AND HAS NOT BEEN USED AT UM FOR MANY YEARS. OBJECT NOT DISTRIBUTED; WASTE YOUR OWN MONEY ASSEMBLING IT! 1 THU SEP 12/96 23:39:34 Page 59 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00129/001 *STATUS SA G # (SEE COMP 104) UM ENGLE 0 PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD. RUN WITH PROT=OFF. 00129/002 *STATUS OE G *STATUS D4.1T1 67 STATUS..OE.002 1 LINE 5158 4 PAGE UM ENGLE MAY 13, 1978 17:05:07 *STATUS 0 CONSISTS OF: STATUS (104/15) + ACCIO (104/23) + IOLOKCK (104/112) + GETFILE (104/103). THIS FILE MUST BE PERMITTED AS FOLLOWS: U/N,R PKEY=*MTS.RUN THIS FILE MUST BE GIVEN THE PROGRAM KEY *STATUS. 00131 STRTPDP # (OBSOLETE, SEE COMP 614) D2T1 149 UM 00132 *PERMIT SA # (OBSOLETE) D4T1 409 PERMIT..SA.001 1 LINE 80 6 PAGE UM JULY 27, 1977 22:26:58 00133/001 *PLOT SA S1011 ETC 'MISC' FSNAME=PTRCONVPLOT D4.2T1 108 PLOT..SA.001 1 LINE 72 8 PAGE UM LIFT DEC. 07, 1978 15:44:47 0 CONVERSATIONAL INTERFACE TO PRINTER PLOT SUBROUTINES (282). 00133/002 *PLOT OC *PLOT D4.2T1 109 PLOT..OC.002 1 LINE 80 3 PAGE UM LIFT MAR. 26, 1979 02:31:35 *PLOT 00135/001 *TAPERTN SA G TAPE WSG:TAPE D4.2T1 110 TAPERTN..SA.001 1 LINE 80 110 PAGE UM WSG MAR. 26, 1979 02:31:36 WSG.:TAPE 0 MTS DEVICE SUPPORT ROUTINES FOR MAGNETIC TAPES. NOTE: THE "NLC" CONTROL COMMAND (WHICH ONLY WORKS IF ISSUED BY A USER ID WHICH IS AUTHORIZED TO $SET PROT=OFF OR BY USER ID SYS WITH PROGRAM KEY "*LABEL") OVERRIDES THE NORMAL CHECKING FOR VOLUME LABELS. IT IS USED BY *LABEL (487) TO LABEL VIRGIN TAPES AND FIND LABEL (729) TO PRINT UNKNOWN LABELS. COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), *CNFGINFODSECT (654), AND *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 489/1 00135/002 *TAPERTN OC G *TAPERTN D4.2T1 111 TAPERTN..OC.002 1 LINE 80 7 PAGE UM WSG MAR. 26, 1979 02:31:47 *TAPERTN 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE. 00136/001 *FIX C G *FIX D4T1 415 FIX..C.001 1 LINE 7 1 PAGE UM ENGLE JULY 27, 1977 22:49:32 *FIX 0 COMMAND FILE USED BY OPERATORS TO CLEAN UP A USERID (E.G. AFTER A SNARK). THIS WILL SET THE 1 THU SEP 12/96 23:39:34 Page 60 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/002 *FIX FIX:FIX C G FIX:FIX D4T1 416 FIX.FIX:FIX.C.002 1 LINE 49 1 PAGE UM ENGLE JULY 27, 1977 22:49:34 FIX.:FIX 0 COMMAND FILE TO RUN *ACCRESTORE (484). 0 Referenced by comments of: 136/1 00137/001 *UPDATE D4 MASTER SA G UPDT W009:UPDATE.S D4T1 417 UPDATE.D4_MASTER.SA.001 1 LINE 80 32 PAGE UM SHERRY JULY 27, 1977 22:49:35 W009:UPDATE.S 0 D4 MASTER SOURCE FOR THE MTS SOURCE UPDATE PROGRAM. REQUIRES BLOCKED I/O ROUTINES (283). 00137/002 *UPDATE UPDATE UU G W009:UPDATE.U D4T1 418 UPDATE.UPDATE.UU.002 1 LINE 72 5 PAGE UM SHERRY JULY 27, 1977 22:49:39 W009:UPDATE.U 0 UPDATE DECK TO PRODUCE D4 SOURCE FOR *UPDATE FROM D3 MASTER SOURCE. MAJOR SURGERY WAS PERFORMED TO FIX SEVERAL BUGS AND SUPPORT THE NEW "%MCMD MTSCOMMAND" COMMAND. 00137/003 *UPDATE OE G *UPDATE D4T1 419 UPDATE..OE.003 1 LINE 7560 4 PAGE UM SHERRY JULY 27, 1977 22:49:41 *UPDATE 00138/001 *TEXT360 MONITOR SA G T360 W062:T360.S D4T1 420 TEXT360.MONITOR.SA.001 1 LINE 80 18 PAGE UM TIFFANY JULY 27, 1977 22:49:43 0 NEW VERSION 7 OF TEXT/360 TEXT PROCESSING PROGRAM. THE SEPARATE PROGRAMS *FMAINT, *BLDLIN, *PLAOUT, AND *POSTPR ARE NO LONGER USED. INSTEAD, *TEXT360 CONTAINS ALL THESE PROGRAMS. IN ADDITION, MOST PARTS OF TEXT/360 HAVE BEEN RE-WRITTEN BECOMING BOTH SMALLER AND FASTER. 00138/002 *TEXT360 FMAINT SA G FMNT W062:FM.S D4.2T1 112 TEXT360.FMAINT.SA.002 1 LINE 80 55 PAGE UM TIFFANY MAR. 26, 1979 02:31:48 0 TEXT/360 FILE MAINTENANCE. 00138/003 *TEXT360 BLDLIN SA G BLDL W062:BUILINE.S D4T1 422 TEXT360.BLDLIN.SA.003 1 LINE 80 94 PAGE UM TIFFANY JULY 27, 1977 22:49:54 0 TEXT/360 BUILD LINES. 00138/004 *TEXT360 HYPHEN SA G HYPH W062:HYPHEN.S D4.2T1 113 TEXT360.HYPHEN.SA.004 1 LINE 80 10 PAGE UM TIFFANY MAR. 26, 1979 02:31:56 0 TEXT/360 SUBROUTINE TO HYPHENATE WORDS. 1 THU SEP 12/96 23:39:34 Page 61 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00138/005 *TEXT360 PLAOUT SA G PLAY W062:PAGELAYOUT D4.2T1 114 TEXT360.PLAOUT.SA.005 1 LINE 80 70 PAGE UM TIFFANY MAR. 26, 1979 02:31:56 0 TEXT/360 PAGE LAYOUT. 00138/006 *TEXT360 PPR1 SP O PPR1 W062:POSTPR D4.2T1 115 TEXT360.PPR1.SP.006 1 LINE 80 28 PAGE UM TIFFANY MAR. 26, 1979 02:32:05 0 TEXT/360 POST PROCESSOR. 00138/007 *TEXT360 PPR2 SA G PPR2 W062:PPR2 D4T1 426 TEXT360.PPR2.SA.007 1 LINE 80 11 PAGE UM TIFFANY JULY 27, 1977 22:50:26 0 TEXT/360 SPELLING POSTPROCESSOR. 00138/008 *TEXT360 OBJECT OE G *TEXT360 D4.2T1 116 TEXT360.OBJECT.OE.008 1 SEQ 14896 27 PAGE UM TIFFANY MAR. 26, 1979 02:32:07 *TEXT360 0 OBJECT FROM 138/1 THROUGH 138/7. ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/009 *TEXT360 *PRESCAN SA O SCAN W062:PRESCAN D4T1 428 TEXT360.*PRESCAN.SA.009 1 LINE 80 40 PAGE UM TIFFANY JULY 27, 1977 22:50:30 0 TEXT/360 PRESCAN PROGRAM. 00138/010 *TEXT360 *PRESCAN OE O *PRESCAN D4T1 429 TEXT360.*PRESCAN.OE.010 1 LINE 8994 5 PAGE UM TIFFANY JULY 27, 1977 22:50:34 *PRESCAN 00138/011 *TEXT360 *PRINT SA G PRNT W062:PRINT D4T1 430 TEXT360.*PRINT.SA.011 1 LINE 80 11 PAGE UM TIFFANY JULY 27, 1977 22:50:37 0 TEXT/360 OUTPUT PRINTING PROGRAM. 00138/012 *TEXT360 *PRINT OC G *PRINT D4T1 431 TEXT360.*PRINT.OC.012 1 LINE 80 3 PAGE UM TIFFANY JULY 27, 1977 22:50:39 *PRINT 00138/013 *TEXT360 *DICTUPD SP G DICT W062:DICTUPD D4T1 432 TEXT360.*DICTUPD.SP.013 1 LINE 80 7 PAGE UM TIFFANY JULY 27, 1977 22:50:41 0 PROGRAM TO MAINTAIN TEXT/360 SPELLING DICTIONARY. 00138/014 *TEXT360 *DICTUPD OE O *DICTUPD D4T1 433 TEXT360.*DICTUPD.OE.014 1 LINE 10746 5 PAGE UM TIFFANY JULY 27, 1977 22:50:43 *DICTUPD 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 1 THU SEP 12/96 23:39:34 Page 62 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00138/015 *TEXT360 *DICT D *DICT D4T1 434 TEXT360.*DICT.D.015 1 SEQ 4096 22 PAGE UM TIFFANY JULY 27, 1977 22:50:45 *DICT 0 TEXT/360 SPELLING DICTIONARY CONTAINING ABOUT 12000 WORDS. 00138/016 *TEXT360 *HYPHDICT D *HYPHDICT D4.2T1 117 TEXT360.*HYPHDICT.D.016 1 LINE 64 5 PAGE UM MANUAL MAR. 26, 1979 02:32:08 *HYPHDICT 0 A HYPHENATION OVERRIDE DICTIONARY FOR WORDS THAT MTS TEXT PROCESSING LANGUAGES CANNOT HYPHENATE CORRECTLY. 00138/017B *TEXT360 *T360MASTCONV SP G W062:MASTER2INPUT(1,499) RD16T1 18 TEXT360.*T360MASTCONV.SP.017 1 LINE 70 3 PAGE UM TIFFANY JULY 12, 1979 22:25:52 0 PROGRAM TO CONVERT A TEXT/360 MASTER FILE INTO A TEXT/360 INPUT STREAM. 00138/018C *TEXT360 *T360MASTCONV SA G W062:MASTER2INPUT(500,999) RD16T1 19 TEXT360.*T360MASTCONV.SA.018 1 LINE 72 1 PAGE UM TIFFANY JULY 12, 1979 22:25:54 0 A SUBROUTINE TO REPLACE "NONPRINTABLE" CHARACTERS WITH SPECIAL CHARACTERS PRECEDED BY EITHER A "/" OR "//". 00138/019B *TEXT360 *T360MASTCONV OE G *T360MASTCONV RD16T1 20 TEXT360.*T360MASTCONV.OE.019 1 LINE 5598 5 PAGE UM TIFFANY JULY 12, 1979 22:25:55 *T360MASTCONV 0 EXTERNAL SYMBOL IHESAPC SHOULD BE RENAMED IHESAPE. ENDS WITH A "$CONTINUE WITH *PL1LIB" RECORD. 00140/001 *ANALYSIS SA G S0563 D4T1 VLO FSNAME=ANALYSIS..SA.001(1) 438 D4T1 438 ANALYSIS..SA.001 1 LINE 80 60 PAGE UM MTA JULY 27, 1977 22:50:55 0 PROGRAM USED IN ANALYZING THE STATISTICS PRODUCED ON MAGNETIC TAPE BY THE STAT JOB (079). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 79/1 00140/002 *ANALYSIS OC G *ANALYSIS(1) D4T1 439 ANALYSIS..OC.002 1 LINE 11972 7 PAGE UM MTA JULY 27, 1977 22:51:00 *ANALYSIS 0 THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000. SEE CCMEMO 294 (140/9). 00140/003 *ANALYSIS PL/1 MAIN PGM SP S0563 D4T1 VLO FSNAME=ANALYSIS.PL/1_MAIN_PGM.SP.003(1) 440 D4T1 440 ANALYSIS.PL/1_MAIN_PGM.SP.003 1 LINE 80 1 PAGE UM MTA JUNE 28, 1974 16:12.14 0 PL/1 MAIN PROGRAM FOR USE WITH *ANALYSIS. 00140/004 *ANALYSIS PL/1 MAIN PGM OC *ANALYSIS(0,.999) D4T1 441 ANALYSIS.PL/1_MAIN_PGM.OC.004 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 22:57:07 1 THU SEP 12/96 23:39:34 Page 63 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00140/005 *ANALYSIS EXAMPLE STP2 SA G S0938 FSAVE2 VLO FSNAME=KIPSSTP2(2) 124 D4T1 442 ANALYSIS.EXAMPLE_STP2.SA.005 1 LINE 80 43 PAGE UM MTA NOV. 08, 1975 00:29:03 0 EXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS. CALLS THE HISTOGRAM SUBROUTINE (140/7). COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC. 0 Referenced by comments of: 140/7 00140/006 *ANALYSIS EXAMPLE STP2 OC G S0938 FSAVE2 VLO FSNAME=KIPSSTP2(3) 177 D4T1 443 ANALYSIS.EXAMPLE_STP2.OC.006 1 LINE 80 29 PAGE UM MTA OCT. 25, 1976 22:22:14 00140/007 *ANALYSIS HISTOGRAM SA G *ANALYSIS(-400,-1) D4T1 444 ANALYSIS.HISTOGRAM.SA.007 1 LINE 80 11 PAGE UM MTA JULY 27, 1977 23:11:25 0 SUBROUTINE TO PLOT HISTOGRAMS, VAGUELY RELATED TO *ANALYSIS AND BRIEFLY DESCRIBED IN THE *ANALYSIS WRITEUP (140/9). CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/5). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 140/5 00140/008 *ANALYSIS HISTOGRAM OC G *ANALYSIS(-600,-401) D4T1 445 ANALYSIS.HISTOGRAM.OC.008 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 23:11:26 00140/009 *ANALYSIS MEMO 393 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M393DATACOLFAC D4.2T1 118 ANALYSIS.MEMO_393.WF.009 1 LINE 151 28 PAGE UM HELFFRICH FEB. 12, 1979 14:35:13 0 THIS IS COMPUTING CENTER MEMO 393 -- "DATA COLLECTION FACILITY." REQUIRES HAND-INSERTED CHARACTERS. 0 Referenced by comments of: 140/2, 140/7 00140/010 *ANALYSIS CALLSTP2 SA G MTA:CALLSTP2(1,999) D4.1T1 71 ANALYSIS.CALLSTP2.SA.010 1 LINE 80 5 PAGE UM MTA MAY 13, 1978 17:05:20 MTA.:CALLSTP2 0 PROGRAM TO REPLACE *ANALYSIS FOR THE CASE WHERE ONLY STP2A, STP2D, AND/OR STP2E ARE SUPPLIED AND THE JOB AREA IS NOT NEEDED. MUCH FASTER THAN *ANALYSIS FOR THIS CASE. 00140/011 *ANALYSIS CALLSTP2 OC G MTA:CALLSTP2(1000) D4.1T1 72 ANALYSIS.CALLSTP2.OC.011 1 LINE 80 2 PAGE UM MTA MAY 13, 1978 17:05:21 00141 *GPAKDRAW S # (OBSOLETE) UM 00143 REWIND# SUBR SA # (SEE COMP 578) UM 00144/001 *ASA SA O ASA LBT:ASA(1,999) D4T1 450 ASA..SA.001 1 LINE 80 4 PAGE UM TIFFANY JULY 27, 1977 23:16:57 0 PRINTS OUTPUT WITH ASA STANDARD CARRIAGE CONTROL. ASSEMBLE WITH PAR=BATCH. 1 THU SEP 12/96 23:39:34 Page 64 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00144/002 *ASA OC O *ASA D4T1 451 ASA..OC.002 1 LINE 80 1 PAGE UM TIFFANY JULY 27, 1977 23:16:59 *ASA 00145/001 *TASKS SA G TSKS S0792 WSGFS FSNAME=MTASKS D4T1 452 TASKS..SA.001 1 LINE 80 5 PAGE UM WSG DEC. 01, 1976 12:53:23 0 MTS PROGRAM TO PRINT TASK STATUS IN SAME FORMAT AS TASKS JOB (019). CALLS TSKFMT SUBROUTINE WHICH IS PART OF TASKS JOB (019). 0 Referenced by comments of: 19/1 00145/002 *TASKS OC G *TASKS D4T1 453 TASKS..OC.002 1 LINE 80 1 PAGE UM WSG JULY 27, 1977 23:19:56 *TASKS 00146 *OLDED SA # (OBSOLETE) D2T1 325 UM 00147/001 *FILESCAN SA G FSCN S0027 DISTRB FSNAME=FILESCAN D4T1 454 FILESCAN..SA.001 1 LINE 80 9 PAGE UM ENGLE DEC. 05, 1975 16:09:05 0 MTS FILE SCANNING PROGRAM. 00147/002 *FILESCAN OE G S0027 DISTRB FSNAME=FSCN D4T1 455 FILESCAN..OE.002 1 LINE 255 2 PAGE UM ENGLE DEC. 05, 1975 16:09:21 00148/001 *WATLIB *WATLIB D4T1 456 WATLIB...001 1 SEQ 384 4 PAGE UM SHERRY JULY 27, 1977 23:22:28 *WATLIB 0 THIS FILE HAS SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES AND ASSEMBLER SUBROUTINE OBJECT DECKS WHICH *WATFIV ASSUMES AS THE DEFAULT LIBRARY WHEN ATTEMPTING TO RESOLVE UNDEFINED SYMBOLS IN WATFIV PROGRAMS. 0 Referenced by comments of: 148/2, 148/3 00148/002 *WATLIB WATSUB SUBR SA G W159:WAT5.XFACE.S(4) D4T1 457 WATLIB.WATSUB_SUBR.SA.002 1 LINE 66 3 PAGE UM SHERRY AUG. 14, 1977 19:11:25 0 SOURCE FOR THE WATSUB SUBROUTINE. OBJECT IS IN *WATLIB (148/1). 00148/003 *WATLIB TRACER SUBR SA G W159:WAT5.TRACE.S D4T1 458 WATLIB.TRACER_SUBR.SA.003 1 LINE 57 1 PAGE UM SHERRY AUG. 14, 1977 19:11:26 0 SOURCE FOR THE TRACER SUBROUTINE. OBJECT IS IN *WATLIB (148/1). 00148/004 *WATLIB WATGENLIB SA G WATG W159:WATGEN.S D4T1 459 WATLIB.*WATGENLIB.SA.004 1 LINE 80 23 PAGE UM SHERRY JULY 27, 1977 23:22:29 0 WATFIV LIBRARY GENERATOR. THE WATFIV CONTROL CARD CHARACTER IS "/" (ALTERNATIVELY "$"), SO THE SET SYMBOLS &CC AND &CCA SHOULD BE CHANGED APPROPRIATELY IF A DIFFERENT CONVENTION IS FOLLOWED. ASSEMBLE USING *SYSMAC. 1 THU SEP 12/96 23:39:34 Page 65 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00148/005 *WATLIB *WATGENLIB OE G *WATGENLIB D4T1 460 WATLIB.*WATGENLIB.OE.005 1 SEQ 3151 2 PAGE UM SHERRY JULY 27, 1977 23:22:31 *WATGENLIB 00151 *CONVSNOBOL SS G *CONVSNOBOL D4T1 461 CONVSNOBOL..SS. 1 LINE 69 1 PAGE UM SWARTZ JULY 27, 1977 23:22:33 *CONVSNOBOL 0 $SOURCE FILE WHICH RUNS A SNOBOL PROGRAM TO ENHANCE CONVERSATIONAL USE OF SNOBOL. 00153 *MADTOPL1 SS MPL1 *MADTOPL1 D4T1 462 MADTOPL1..SS. 1 LINE 80 21 PAGE UM ? JULY 27, 1977 23:22:35 *MADTOPL1 0 CONVERT MAD 7090 TO PL/I 00154/001 *LAS C *LAS D4T1 463 LAS..C.001 1 LINE 9 1 PAGE UM WSG JULY 27, 1977 23:22:37 STRT:*LAS 0 COMMAND FILE FOR STARTING MTS TERMINAL LINES. INVOKED BY ENTERING "MTS *LAS" ON THE OPERATORS CONSOLE. SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:LAS (154/2). 0 Referenced by comments of: 621/1 00154/002 *LAS LAS C MTS:TST.LAS D4.2T1 119 LAS.LAS.C.002 1 LINE 67 1 PAGE UM WSG MAR. 26, 1979 02:32:17 STRT:LAS 0 COMMAND FILE WHICH STARTS UP MTS TERMINAL LINES. THIS FILE WILL HAVE TO BE MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION. 0 Referenced by comments of: 154/1 00156 IPL PROGRAM # (OBSOLETE) D3.2T1 131 IPL_PROGRAM..SA.01 1 LINE 80 13 PAGE UM MAR. 21, 1975 01:13:31 00157/001 IPL BOOTSTRAP SA G IPLB W009:ABSLDR(1,999) D4T1 465 IPL_BOOTSTRAP..SA.001 1 LINE 80 4 PAGE UM SHERRY JULY 27, 1977 23:22:41 W009:ABSLDR 0 ABSOLUTE LOADER FOR STAND-ALONE PROGRAMS. THE OBJECT DECK FOR THIS PROGRAM MUST BE MASSAGED BY HAND (OR KEYPUNCH) BEFORE IT WILL IPL (SEE COMMENTS IN LISTING IF IT BECOMES NECESSARY TO RE-ASSEMBLE -- UNLIKELY). 157/2 HAS ALREADY BEEN APPROPRIATELY FIXED. CURRENTLY, THIS PROGRAM IS NOT USED. 00157/002 IPL BOOTSTRAP OC G W009:ABSLDR(1000) D4T1 466 IPL_BOOTSTRAP..OC.002 1 LINE 80 1 PAGE UM SHERRY JULY 27, 1977 23:22:43 0 THIS OBJECT DECK (ALONG WITH 156 AND SOME REP CARDS) IS LOCATED AT THE END (AFTER THE LDT CARD) OF THE RESIDENT SYSTEM DECK. 1 THU SEP 12/96 23:39:34 Page 66 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00160 FRONCOPY S # (OBSOLETE) D2T1 387 UM 00162 B PSA DSECT SA G COPY:PSA RD16T1 21 PSA_DSECT..SA. 1 LINE 72 4 PAGE UM MTA JULY 12, 1979 22:25:58 COPY:PSA 0 DEFINITION OF PREFIXED STORAGE AREA (PSA). COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS. REQUIRES THAT COPY:GLOBALS (1026/3) BE COPIED FIRST. 0 Referenced by comments of: 45/1, 46/1, 577/2, 577/4, 577/7, 611/1, 634/4, 1021/1, 1021/3 00163/001 PL1 COMPILER MACLIB SM G MAC W062:MACLIB D4T1 468 PL1_COMPILER.MACLIB.SM.001 1 LINE 80 66 PAGE UM TIFFANY JULY 27, 1977 23:22:48 0 PL/I(F) VERSION 5 COMPILER (RELEASE 20.1). MACLIB IS A MACRO LIBRARY FOR THE SIMULATION OF OS/360 STUFF IN MTS. 0 Referenced by comments of: 233/41 00163/002 PL1 COMPILER SAMEQU SA G SAMQ S0410 MTSPL1 'PL1LIB' POSN=SAMEQU 2 D4T1 469 PL1_COMPILER.SAMEQU.SA.002 1 SEQ 80 4 PAGE UM TIFFANY JULY 27, 1977 23:23:35 0 COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE 0 Referenced by comments of: 163/3, 163/4, 163/5, 163/6, 163/7, 163/8, 163/9, 163/10, 163/11, 163/15, 233/32 00163/003 PL1 COMPILER REPLACE SA G RPLC S0410 MTSPL1 'PL1LIB' POSN=REPLACE 3 D4T1 470 PL1_COMPILER.REPLACE.SA.003 1 SEQ 80 3 PAGE UM TIFFANY JULY 27, 1977 23:23:36 0 ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE. COPIES SAMEQU (163/2). 00163/004 PL1 COMPILER CKLIO SA G CKL S0410 MTSPL1 'PL1LIB' POSN=CKLIO 4 D4T1 471 PL1_COMPILER.CKLIO.SA.004 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:23:38 0 ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT. COPIES SAMEQU (163/2). 00163/005 PL1 COMPILER NONSENSE SA G NONE S0410 MTSPL1 'PL1LIB' POSN=NONSENSE 5 D4T1 472 PL1_COMPILER.NONSENSE.SA.005 1 SEQ 80 3 PAGE UM TIFFANY JULY 27, 1977 23:23:40 0 ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE. COPIES SAMEQU (163/2). 00163/006 PL1 COMPILER FREEDDEF SA G FREE S0410 MTSPL1 'PL1LIB' POSN=FREEDDEF 6 D4T1 473 PL1_COMPILER.FREEDDEF.SA.006 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:23:43 0 ROUTINE TO FREE ALL DDEF'S. COPIES SAMEQU (163/2). 00163/007 PL1 COMPILER FINDTIOT SA G FIND S0410 MTSPL1 'PL1LIB' POSN=FINDTIOT 7 D4T1 474 PL1_COMPILER.FINDTIOT.SA.007 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:23:45 0 ROUTINE TO FIND A TIOT GIVEN A "DDNAME." COPIES SAMEQU (163/2). 1 THU SEP 12/96 23:39:34 Page 67 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00163/008 PL1 COMPILER DDEF SA G DDEF S0410 MTSPL1 'PL1LIB' POSN=DDEF 8 D4T1 475 PL1_COMPILER.DDEF.SA.008 1 SEQ 80 8 PAGE UM TIFFANY JULY 27, 1977 23:23:48 0 ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH. COPIES SAMEQU (163/2). 00163/009 PL1 COMPILER OPEN SA G OPEN S0410 MTSPL1 'PL1LIB' POSN=OPEN.D4.1 D4.1T1 73 PL1_COMPILER.OPEN.SA.009 1 SEQ 80 16 PAGE UM TIFFANY MAY 13, 1978 17:06:25 0 SIMULATE OS/360 OPEN. CURRENTLY ONLY BSAM AND QSAM ARE SUPPORTED. COPIES SAMEQU (163/2). 00163/010 PL1 COMPILER ROUT SA G RUTE S0410 MTSPL1 'PL1LIB' POSN=ROUTE.D4.1 D4.1T1 74 PL1_COMPILER.ROUT.SA.010 1 SEQ 80 26 PAGE UM TIFFANY MAY 13, 1978 17:06:27 0 LIST OF VARIOUS ROUTINES. COPIES SAMEQU (163/2). MODIFIED TO FIX @NOTIFY PROBLEM. 00163/011 PL1 COMPILER CLOSE SA G CLOS S0410 MTSPL1 'PL1LIB' POSN=CLOSE 11 D4T1 478 PL1_COMPILER.CLOSE.SA.011 1 SEQ 80 4 PAGE UM TIFFANY JULY 27, 1977 23:23:56 0 SIMULATE OS/360 CLOSE. COPIES SAMEQU (163/2). 00163/012 PL1 COMPILER QUIT SA G QUIT S0410 MTSPL1 'PL1LIB' POSN=QUIT 12 D4T1 479 PL1_COMPILER.QUIT.SA.012 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:23:57 0 QUIT ONLY IN BATCH 00163/013 PL1 COMPILER UPDATE UI LBT:PL1.UP D4.2T2 509 PL1_COMPILER.UPDATE.UI.013 1 LINE 73 20 PAGE UM TIFFANY APR. 09, 1979 00:06:03 0 *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL/I COMPILER FROM OS/360 RELEASE 20.1 SOURCE. 00163/014C PL1 COMPILER UPDATE UC W062:IEMAA.UP RD16T1 22 PL1_COMPILER.UPDATE.UC.014 1 LINE 73 4 PAGE UM TIFFANY JULY 12, 1979 22:25:59 0 UPDATE TO 21.8 SOURCE OF IEMAA. 00163/015 PL1 COMPILER TIOT SA G TIOT S0410 MTSPL1 'PL1LIB' POSN=PL1TIOT 54 D4T1 481 PL1_COMPILER.TIOT.SA.014 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:24:14 0 YES IT REALLY IS A TIOT. COPIES SAMEQU (163/2). 00163/016 PL1 COMPILER ESDLIST SA G ESDL S0410 MTSPL1 'PL1LIB' POSN=INESD 55 D4T1 482 PL1_COMPILER.ESDLIST.SA.015 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 23:24:14 0 TABLE OF SOMETHING OR OTHER 00163/017 PL1 COMPILER IEMTM SA G TM S0410 MTSPL1 'PL1LIB' POSN=IEMTM.D4 D4T1 483 PL1_COMPILER.IEMTM.SA.016 1 LINE 80 40 PAGE UM TIFFANY JULY 27, 1977 23:24:16 0 COMPILER PHASE "TM" WHICH PRODUCES THE SYMPL1 RECORDS IF THE "TEST" OPTION IS USED. 1 THU SEP 12/96 23:39:34 Page 68 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00163/018B PL1 COMPILER *PL1 OE G *PL1 RD16T1 23 PL1_COMPILER.*PL1.OE.018 1 SEQ 4640 7 PAGE UM TIFFANY JULY 12, 1979 22:26:01 *PL1 00163/019 PL1 COMPILER PL1DIRECTOR D ETC:PL1DIRECTOR D4T1 485 PL1_COMPILER.PL1DIRECTOR.D.018 1 SEQ 4064 2 PAGE UM TIFFANY JULY 27, 1977 23:24:21 ETC.:PL1DIRECTOR 00163/020 PL1 COMPILER PLI OL G ETC:PLI D4T1 486 PL1_COMPILER.PLI.OL.019 1 SEQ 7388 13 PAGE UM TIFFANY JULY 27, 1977 23:24:23 ETC.:PLI 00163/021 PL1 COMPILER *PL1LINKLIB1 OE G *PL1LINKLIB1 D4T1 487 PL1_COMPILER.*PL1LINKLIB1.OE.020 1 SEQ 14640 214 PAGE UM TIFFANY JULY 27, 1977 23:24:26 *PL1LINKLIB1 0 >>>>>>>>>>> THERE IS A REP CARD IN THIS FILE. <<<<<<<<<<<<<< 00164 *LCS OC G *LCS D4T1 488 LCS..OC. 1 LINE 24 1 PAGE UM MTA JULY 27, 1977 23:24:46 *LCS 0 CONTAINS THE SINGLE LOADER CARD: LCS LCSYMBOL 00170 *LISTVTOC SA # (OBSOLETE) D2T1 105 UM 00171 *BATCH SA # (OBSOLETED BY *BATCH*) D2T1 327 UM 00172/001 *UMIST MACRO LIB SM ISTM S0720 'D3T1' FSNAME=UMIST.MACRO_LIB.SM.1(1) 435 D4T1 489 UMIST.MACRO_LIB.SM.001 1 SEQ 80 14 PAGE UM SALISBURY JULY 31, 1973 00:35.25 0 172/1 THRU 172/9 REPRESENT THE CURRENT SOURCE FOR *UMIST. IT CONSISTS OF 1 MACRO LIBRARY, 2 COPY SECTIONS, AND 6 ASSEMBLIES. TO ASSEMBLE UMIST CREATE AND FILL /SYMBOLS AND /PSECT (THE COPY SECTIONS), CREATE THE MACRO LIBRARY, AND ASSEMBLE ANY OR ALL OF THE ASSEMBLIES USING BOTH *SYSMAC AND THE SPECIAL MACRO LIBRARY. COMPONENT 172/1 IS THE MACRO LIBRARY READY FOR COPYING INTO A FILE. UMIST IS THE UM VERSION OF THE TRAC STRING PROCESSING LANGUAGE AND IS UNCHANGED SINCE 2.0. 00172/002 *UMIST /SYMBOLS SA ISC1 S0720 'D3T1' FSNAME=UMIST./SYMBOLS.SA.2(1) 436 D4T1 490 UMIST./SYMBOLS.SA.002 1 SEQ 80 4 PAGE UM SALISBURY JULY 31, 1973 00:35.27 0 THIS IS THE "/SYMBOLS" COPY SECTION 00172/003 *UMIST /PSECT SA ISC2 S0720 'D3T1' FSNAME=UMIST./PSECT.SA.3(1) 437 D4T1 491 UMIST./PSECT.SA.003 1 SEQ 80 7 PAGE UM SALISBURY JULY 31, 1973 00:35.29 0 THIS IS THE "/PSECT" COPY SECTION 00172/004 *UMIST /ENTRY SA IST1 S0720 'D3T1' FSNAME=UMIST./ENTRY.SA.4(1) 438 D4T1 492 UMIST./ENTRY.SA.004 1 SEQ 80 7 PAGE UM SALISBURY JULY 31, 1973 00:35.31 0 "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH AS POSSIBLE. 1 THU SEP 12/96 23:39:34 Page 69 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00172/005 *UMIST /TABLES SA IST2 S0720 'D3T1' FSNAME=UMIST./TABLES.SA.5(1) 439 D4T1 493 UMIST./TABLES.SA.005 1 SEQ 80 9 PAGE UM SALISBURY JULY 31, 1973 00:35.33 0 MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS. CALLED "/TABLES" 00172/006 *UMIST /MISC SA IST3 S0720 'D3T1' FSNAME=UMIST./MISC.SA.6(1) 440 D4T1 494 UMIST./MISC.SA.006 1 SEQ 80 2 PAGE UM SALISBURY JULY 31, 1973 00:35.35 0 "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK, INPUT BUFFER, AND FREE STORAGE. 00172/007 *UMIST /UTILITIES SA IST4 S0720 'D3T1' FSNAME=UMIST./UTILITIES.SA.7(1) 441 D4T1 495 UMIST./UTILITIES.SA.007 1 SEQ 80 32 PAGE UM SALISBURY JULY 31, 1973 00:35.40 0 "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH SUPPORT PRIMITIVE FUNCTIONS. THIS ASSEMBLY USES THE "SWPR" RPQ'ED INSTRUCTION. 00172/008 *UMIST /FCNS/1 SA IST5 S0720 'D3T1' FSNAME=UMIST./FCNS/1.SA.8(1) 442 D4T1 496 UMIST./FCNS/1.SA.008 1 SEQ 80 37 PAGE UM SALISBURY JULY 31, 1973 00:35.46 0 "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS. 00172/009 *UMIST /FCNS/2 SA IST6 S0720 'D3T1' FSNAME=UMIST./FCNS/2.SA.9(1) 443 D4T1 497 UMIST./FCNS/2.SA.009 1 SEQ 80 30 PAGE UM SALISBURY JULY 31, 1973 00:35.51 0 "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS. 00172/010 *UMIST TEST DECK D S0720 'D3T1' FSNAME=UMIST.TEST_DECK.D.10(1) 444 D4T1 498 UMIST.TEST_DECK.D.010 1 SEQ 80 3 PAGE UM SALISBURY JULY 31, 1973 00:35.54 0 "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF. 00172/011 *UMIST OBJECT OC *UMIST D4T1 499 UMIST.OBJECT.OC.011 1 LINE 80 16 PAGE UM SALISBURY JULY 27, 1977 23:25:21 *UMIST 00175 *GPAKLIB OL # (OBSOLETE) D4T1 500 GPAKLIB..OL. 1 SEQ 3888 40 DISK UM JAN. 22, 1973 18:22.11 00178 *PIL - OLD VERSION SA S # (OBSOLETED BY 566) D3T1 447 PIL..SA.1 1 SEQ 80 215 PAGE UM JULY 31, 1973 00:38.27 00179 *GPAKGRID OC # (OBSOLETE) D4T1 501 GPAKGRID..OC. 1 LINE 80 7 DISK UM JAN. 22, 1973 22:06.14 00180 SCANDASD SA # (OBSOLETE) D2T1 117 UM 00182/001 *SNOBOL4 MAIN SA G S0720 'D3T1' FSNAME=SNOBOL4.S4.SA.1(1) 450 D4T1 502 SNOBOL4.MAIN.SA.001 1 SEQ 80 138 PAGE UM SWARTZ JULY 31, 1973 00:40.21 0 BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4. COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13). 1 THU SEP 12/96 23:39:34 Page 70 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 182/6 00182/002 *SNOBOL4 SUBR SA G S0720 'D3T1' FSNAME=SNOBOL4.SUBR.SA.2(1) 451 D4T1 503 SNOBOL4.SUBR.SA.002 1 SEQ 80 46 PAGE UM SWARTZ JULY 31, 1973 00:41.01 0 BELL LABS SOURCE FOR SUBROUTINES. 00182/003 *SNOBOL4 MACROS SA G S0720 'D3T1' FSNAME=SNOBOL4.MACROS.SA.3(1) 452 D4T1 504 SNOBOL4.MACROS.SA.003 1 SEQ 80 41 PAGE UM SWARTZ JULY 31, 1973 00:44.08 0 BELL LABS SOURCE FOR MACROS. 00182/004 *SNOBOL4 GENERATE C S0101 'SNOBOL4 FS' FSNAME=S4.GEN D4T1 505 SNOBOL4.GENERATE.C.004 1 LINE 128 1 PAGE UM SWARTZ MAY 06, 1975 19:57:08 0 MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4. 00182/005 *SNOBOL4 LINKEDIT C S0101 'SNOBOL4 FS' FSNAME=S4.LINK D4T1 506 SNOBOL4.LINKEDIT.C.005 1 LINE 54 1 PAGE UM SWARTZ MAY 06, 1975 19:57:10 0 MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4. 00182/006 *SNOBOL4 UPDATE UU G S0101 'SNOBOL4 FS' FSNAME=S4.MTS.U D4T1 507 SNOBOL4.UPDATE.UU.006 1 LINE 80 23 PAGE UM SWARTZ APR. 30, 1975 22:36:24 0 *UPDATE DECK TO MODIFIY BELL LABS SOURCE (182/1) TO BRING IT UP TO VERSION 3.10 SNOBOL 4 AND TO ADD THE CHANGES NECESSARY TO RUN IT IN MTS. 00182/007 *SNOBOL4 OBJECT OE G *SNOBOL4 D4T1 508 SNOBOL4.OBJECT.OE.007 1 SEQ 32767 27 PAGE UM SWARTZ JULY 27, 1977 23:26:57 *SNOBOL4 0 OBJECT FROM ASSEMBLY OF MAIN AND SUBR, WHICH HAS BEEN COMBINED AND PURGED BY *LINKEDIT. 00182/008 *SNOBOL4 MACLEAN SP G S0720 'D3T1' FSNAME=SNOBOL4.MACLEAN.SP.6(1) 455 D4T1 509 SNOBOL4.MACLEAN.SP.008 1 SEQ 80 1 PAGE UM SWARTZ JULY 31, 1973 00:47.21 0 SOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSEMBLY. 00182/009 *SNOBOL4 MACLEAN OC G S0720 'D3T1' FSNAME=SNOBOL4.MACLEAN.OC.7(1) 456 D4T1 510 SNOBOL4.MACLEAN.OC.009 1 SEQ 80 2 PAGE UM SWARTZ JULY 31, 1973 00:47.23 0 RUN THIS PLUS *PL1LIB. 00182/010 *SNOBOL4 TEST PGMS SS G S0101 'SNOBOL4 FS' FSNAME=S4.TEST D4T1 511 SNOBOL4.TEST_PGMS.SS.010 1 LINE 72 3 PAGE UM SWARTZ APR. 30, 1975 22:36:43 0 PROGRAMS FOR TESTING SNOBOL4. 00182/011 *SNOBOL4 MLINK SA G S0101 'SNOBOL4 FS' FSNAME=MLINK D4T1 512 SNOBOL4.MLINK.SA.011 1 LINE 28 1 PAGE UM SWARTZ APR. 30, 1975 22:36:16 0 COPY SECTION. 1 THU SEP 12/96 23:39:34 Page 71 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 182/1, 334/1 00182/012 *SNOBOL4 PARMS SA G S0101 'SNOBOL4 FS' FSNAME=PARMS D4T1 513 SNOBOL4.PARMS.SA.012 1 LINE 68 1 PAGE UM SWARTZ APR. 30, 1975 22:36:18 0 COPY SECTION. 0 Referenced by comments of: 182/1, 334/1 00182/013 *SNOBOL4 MDATA SA G S0101 'SNOBOL4 FS' FSNAME=MDATA D4T1 514 SNOBOL4.MDATA.SA.013 1 LINE 39 1 PAGE UM SWARTZ APR. 30, 1975 22:36:14 0 COPY SECTION. 0 Referenced by comments of: 182/1, 334/1 00191 *TRANSNOBOL SS G *TRANSNOBOL D4T1 515 TRANSNOBOL..SS. 1 LINE 76 4 PAGE UM SWARTZ JULY 27, 1977 23:27:11 *TRANSNOBOL 0 CONVERT SNOBOL3 TO SNOBOL4. UNCHANGED SINCE DIST 1. 00193/001 *OSMAC SM *OSMAC D4T1 516 OSMAC..SM.001 1 LINE 72 159 PAGE UM H YOUNG JULY 27, 1977 23:27:12 *OSMAC 0 MACRO LIBRARY FOR OS/360 RELEASE 21.0 00193/002 *OSMAC BUILD PROGRAM SA MACB S0652 SOURCE POSN=MACBLD 1 D4T1 517 OSMAC.BUILD_PROGRAM.SA.002 1 SEQ 80 11 PAGE UM H YOUNG JULY 27, 1977 23:29:04 0 THIS IS A PROGRAM TO BUILD *OSMAC. IT READS NAMES OF MACROS (UP TO 255 CHARS PER LINE) FROM SCARDS, DELETING ANY NAMES WHICH ARE DUPLICATES OR WHICH ARE LONGER THAN 8 CHARS. THE LIST OF MACRO NAMES IS TERMINATED BY AN END-OF-FILE FROM SCARDS. THE NAMES ARE SORTED INTO ALPHABETICAL ORDER AND THE MACRO TAPE IS THEN READ FROM LOGICAL I/O UNIT 0. THE SPECIFIED MACROS ARE WRITTEN IN THE MACRO LIBRARY FILE (LOGICAL I/O UNIT 1) BEGINNING AT LINE 3000. THE READING IS TERMINATED WHEN ALL SPECIFIED MACROS HAVE BEEN FOUND OR WHEN 2 CONSEQUTIVE END-OF-FILES HAVE BEEN READ. A DIRECTORY SHOWING THE STARTING LINE NUMBER FOR EACH MACRO IS PRINTED ON SPRINT. NORMALLY, THIS PROGRAM DELETES SEQUENCE ID FROM THE MACROS TO SAVE FILE SPACE (A LOT). STATEMENTS 201 AND 202 SHOULD BE DELETED IF SEQUENCE ID IS TO BE PRESERVED: LA 1,72 STH 1,LEN 00193/003 *OSMAC BUILD PROGRAM OC W116:BUILDMAC D4T1 518 OSMAC.BUILD_PROGRAM.OC.003 1 LINE 80 3 PAGE UM H YOUNG JULY 27, 1977 23:29:06 00196 PAGEIT SA # (OBSOLETED BY COMP 643) D3T2 4 PAGEIT..SA.1 1 LINE 80 3 PAGE UM JULY 31, 1973 20:59.23 0 Referenced by comments of: 643/1 1 THU SEP 12/96 23:39:34 Page 72 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00197 B *SMDS M *SMDS RD16T1 24 SMDS..M. 1 LINE 168 6 PAGE UM MTS JULY 12, 1979 22:26:02 *SMDS 0 MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET). USED IN CONJUNCTION WITH FMSG MACRO IN MTS. 00198/001 GUINFO/CUINFO SUBRS D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=INFO D4T1 520 GUINFO/CUINFO_SUBRS.D4_MA.SA.001 1 SEQ 80 12 PAGE UM MTS HELFFRICH JULY 27, 1977 23:30:24 0 SUBROUTINES TO ALLOW USERS TO ACCESS (OR CHANGE) CERTAIN INFORMATION IN THE MTS DSECT. COPIES COPY:LLMPSEQU (087), COPY:JOBSTA (413/9), AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 00198/002B GUINFO/CUINFO SUBRS UPDATE UC G MTS:INFOUPD RD16T1 25 GUINFO/CUINFO_SUBRS.UPDAT.UC.002 1 LINE 72 5 PAGE UM MTS HELFFRICH JULY 12, 1979 22:26:04 MTS.:INFOUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=INFO. 00198/003B GUINFO/CUINFO SUBRS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00198/004B GUINFO/CUINFO SUBRS L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=INFO.LIST 7 RD16T1 26 GUINFO/CUINFO_SUBRS..L.004 1 SEQ 133 55 PAGE UM MTS HELFFRICH JULY 12, 1979 22:26:15 00200 *SDARTN SA # (OBSOLETE) D3T2 8 SDARTN..SA.1 1 LINE 80 94 PAGE UM JULY 31, 1973 21:01.58 00201/001 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 14 D4T1 524 GPSS.OS_SOURCE.SA.001 1 SEQ 80 20 PAGE UM FLANIGAN JULY 27, 1977 23:35:43 0 THE MTS IMPLEMENTATION OF GPSS OFFERS SEVERAL FEATURES NOT PROVIDED BY THE IBM VERSION: (1) IMPROVED LISTING CONTROL WITH BATCH AND TERMINAL DEFAULTS. (2) LINE NUMBERS IN THE LISTING. (3) SENSIBLE CARRIAGE CONTROL (FAR FEWER PAGE SKIPS). (4) CAPABILITY OF DIRECTLY INTERFACING WITH SUBROUTINES THAT USE OS/I CALLING SEQUENCES. (5) SUBROUTINES TO ALLOW MANIPULATION OF GPSS DATA FROM FORTRAN PROGRAMS. (6) TIME ESTIMATES TO ALLOW ERROR OUTPUT TO BE PRINTED BEFORE MTS TERMINATES A JOB. (7) ATTENTION INTERRUPT CONTROL TO TELL THE USER WHERE HIS PROGRAM IS AND HOW MUCH HAS BEEN SPENT. (8) PADDING AND TRUNCATION OF JOBTAPES FOR DISK SPACE ECONOMY. (9) ERROR MESSAGE SUMMARY. THREE PRINCIPLE APPENDAGES ARE TACKED ONTO THE IBM MODULES TO MAKE THESE IMPROVEMENTS. FIRST, A DRIVER PROGRAM IS PROVIDED TO SCAN THE PAR= FIELD AND SET-UP DEFAULTS; AND, AT THE CONCLUSION OF A RUN, TO PRINT AN ERROR SUMMARY WHERE APPROPRIATE. SECOND, A SET OF INTERFACE SUBROUTINES PROVIDE A SIMULATED OS/360 ENVIRONMENT. ONE NOTABLE FEATURE OF THIS INTERFACE IS THAT SCRATCH FILE I/O IS IMPLEMENTED BY USE OF VIRTUAL MEMORY FILES. THIRD, A SET OF SMALL "HOOK" SUBROUTINES IS PROVIDED. BECAUSE OF THE VOLATILITY OF THE RATHER POOR IBM CODE, SUCH FUNCTIONS AS IMPROVED LISTING CONTROL WERE IMPLEMENTED BY ASSEMBLING "HOOKS" INTO THE IBM CODE, EACH "HOOK" RESULTING IN A CALL TO A "HOOK" SUBROUTINE. WHILE THE "HOOK" SUBROUTINES EXHIBIT WHAT WOULD APPEAR TO BE BAD PROGRAMMING PRACTICES (E.G. ABSOLUTE DISPLACEMENTS IN INSTRUCTIONS), THEY HAVE BEEN CODED IN SUCH A WAY AS TO BE INSENSITIVE TO REASSEMBLY OF THE IBM MODULES. 1 THU SEP 12/96 23:39:34 Page 73 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COMPONENTS 201/1 THROUGH 201/11 ARE THE OS/360 SOURCE FOR GPSS VERSION 1 MODIFICATION LEVEL 3. 00201/002 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 15 D4T1 525 GPSS.OS_SOURCE.SA.002 1 SEQ 80 11 PAGE UM FLANIGAN JULY 27, 1977 23:35:44 00201/003 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 16 D4T1 526 GPSS.OS_SOURCE.SA.003 1 SEQ 80 8 PAGE UM FLANIGAN JULY 27, 1977 23:35:46 00201/004 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 17 D4T1 527 GPSS.OS_SOURCE.SA.004 1 SEQ 80 62 PAGE UM FLANIGAN JULY 27, 1977 23:35:50 00201/005 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 18 D4T1 528 GPSS.OS_SOURCE.SA.005 1 SEQ 80 102 PAGE UM FLANIGAN JULY 27, 1977 23:35:55 00201/006 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 19 D4T1 529 GPSS.OS_SOURCE.SA.006 1 SEQ 80 22 PAGE UM FLANIGAN JULY 27, 1977 23:35:57 00201/007 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 20 D4T1 530 GPSS.OS_SOURCE.SA.007 1 SEQ 80 88 PAGE UM FLANIGAN JULY 27, 1977 23:36:02 00201/008 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 21 D4T1 531 GPSS.OS_SOURCE.SA.008 1 SEQ 80 112 PAGE UM FLANIGAN JULY 27, 1977 23:36:08 00201/009 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 22 D4T1 532 GPSS.OS_SOURCE.SA.009 1 SEQ 80 152 PAGE UM FLANIGAN JULY 27, 1977 23:36:16 00201/010 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 23 D4T1 533 GPSS.OS_SOURCE.SA.010 1 SEQ 80 109 PAGE UM FLANIGAN JULY 27, 1977 23:36:23 00201/011 *GPSS OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 24 D4T1 534 GPSS.OS_SOURCE.SA.011 1 SEQ 80 57 PAGE UM FLANIGAN JULY 27, 1977 23:36:28 00201/012 *GPSS GPSSUPDATE UU G S0289 S289 'GPSS/360' FSNAME=GPSSUPDATE D4T1 535 GPSS.GPSSUPDATE.UU.012 1 LINE 80 7 PAGE UM FLANIGAN AUG. 13, 1974 15:30.13 0 UPDATE DECK TO BE APPLIED TO 11 OS SOURCE FILES. A TAPE-TO-TAPE UPDATE VIA *UPDATE USING *IBM* TO *MTS* IS ASSUMED. THIS UPDATE PRODUCES VERSION 1, MOD 4 GPSS. 00201/013 *GPSS GPSS.OS.O OE G S0289 S289 'GPSS/360' FSNAME=GPSS.OS.O D4T1 536 GPSS.GPSS.OS.O.OE.013 1 LINE 255 43 PAGE UM FLANIGAN AUG. 13, 1974 15:28.34 0 OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES. 00201/014 *GPSS GPSSMAC SM G GMAC S0289 S289 'GPSS/360' FSNAME=GPSSMAC D4T1 537 GPSS.GPSSMAC.SM.014 1 LINE 80 8 PAGE UM FLANIGAN APR. 06, 1974 14:48.29 0 MACRO LIBRARY NEEDED FOR ALL ASSEMBLIES. 00201/015 *GPSS GPSS.S SA G GPSS S0289 S289 'GPSS/360' FSNAME=GPSS.S D4T1 538 GPSS.GPSS.S.SA.015 1 LINE 80 7 PAGE UM FLANIGAN APR. 06, 1974 14:48.33 0 SOURCE FOR MTS DRIVER PROGRAM. 1 THU SEP 12/96 23:39:34 Page 74 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00201/016 *GPSS GPSSPKG.S SA G GPKG S0289 S289 'GPSS/360' FSNAME=GPSSPKG.S D4T1 539 GPSS.GPSSPKG.S.SA.016 1 LINE 80 7 PAGE UM FLANIGAN APR. 06, 1974 14:48.38 0 SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS. 00201/017 *GPSS HOOKSECT.S SA G GHOK S0289 S289 'GPSS/360' FSNAME=HOOKSECT.S D4T1 540 GPSS.HOOKSECT.S.SA.017 1 LINE 80 15 PAGE UM FLANIGAN APR. 06, 1974 14:48.50 0 SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE. 00201/018 *GPSS JUNK.S SA G GJNK S0289 S289 'GPSS/360' FSNAME=JUNK.S D4T1 541 GPSS.JUNK.S.SA.018 1 LINE 80 3 PAGE UM FLANIGAN APR. 06, 1974 14:48.42 0 SOURCE FOR SEVERAL SUBROUTINES. 00201/019 *GPSS GPSS.MTS.O OE G S0289 S289 'GPSS/360' FSNAME=GPSS.MTS.O D4T1 542 GPSS.GPSS.MTS.O.OE.019 1 LINE 255 7 PAGE UM FLANIGAN APR. 06, 1974 14:49.02 0 OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S. 00201/020 *GPSS *GPSS OE G *GPSS D4T1 543 GPSS.*GPSS.OE.020 1 SEQ 32767 34 PAGE UM FLANIGAN JULY 27, 1977 23:38:01 *GPSS 0 LINKEDIT OF GPSS.OS.O AND GPSS.MTS.O WITH ENTRY POINT ESD ITEMS PURGED. NOTE: GPSS CALL THE FOLLOWING LIBRARY SUBROUTINES: COST, SETIME, AND TIMNTRP. 00201/021 *GPSS GPSSLIB SA G GHLP S0289 S289 'GPSS/360' FSNAME=HELPLIB.S D4T1 544 GPSS.*GPSSLIB.SA.021 1 LINE 80 8 PAGE UM FLANIGAN APR. 06, 1974 14:48.45 0 SOURCE FOR SUBROUTINES WHICH ALLOW THE MANIPULATION OF GPSS DATA FROM FORTRAN SUBROUTINES. 00201/022 *GPSS *GPSSLIB OC G *GPSSLIB D4T1 545 GPSS.*GPSSLIB.OC.022 1 SEQ 80 1 PAGE UM FLANIGAN JULY 27, 1977 23:38:05 *GPSSLIB 00201/023 *GPSS *GPSSERR M G *GPSSERR D4T1 546 GPSS.*GPSSERR.M.023 1 LINE 73 9 PAGE UM FLANIGAN JULY 27, 1977 23:38:08 *GPSSERR 0 ERROR MESSAGE FILE. 00201/024 *GPSS TESTPROG S G TEST S0289 S289 'GPSS/360' FSNAME=TESTPROG D4T1 547 GPSS.TESTPROG.S.024 1 LINE 80 1 PAGE UM FLANIGAN APR. 06, 1974 14:49.23 0 SOURCE FOR TEST PROGRAM. 00201/025 *GPSS TESTOUTPUT D G S0289 S289 'GPSS/360' FSNAME=TESTOUTPUT D4T1 548 GPSS.TESTOUTPUT.D.025 1 LINE 129 3 PAGE UM FLANIGAN NOV. 02, 1974 13:57.22 0 OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM. 1 THU SEP 12/96 23:39:34 Page 75 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00201/026 *GPSS NOTES WF S0780 'D3.1T1' FSNAME=GPSS/360.D3.1_NOTES.WF.26(1) 190 D4T1 549 GPSS.NOTES.WF.026 1 LINE 107 1 PAGE UM FLANIGAN MAR. 06, 1974 03:34.46 0 WRITEUP DESCRIBING GPSS/360. 00204/001 FORTRANG IEYFORT SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORT.S D4T1 550 FORTRANG.IEYFORT.SA.001 1 LINE 72 11 PAGE UM HANSEN JUNE 01, 1976 10:43:12 0 THIS IS THE MTS VERSION OF THE CONTROL MODULE OF THE FORTRAN G COMPILER. IT INCORPORATES THE FUNCTIONS OF THE OS MODULES IEYFORT AND IEYFORT2. THIS MODULE IS THE ENTRY POINT TO THE COMPILER. 0 Referenced by comments of: 551/1 00204/002 FORTRANG IEYFORT OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORT.O D4T1 551 FORTRANG.IEYFORT.OC.002 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 10:43:23 00204/003 FORTRANG IEYFORTD SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORTD.S D4T1 552 FORTRANG.IEYFORTD.SA.003 1 LINE 72 12 PAGE UM HANSEN JUNE 01, 1976 10:43:18 0 THIS IS THE CONTROL MODULE OF THE COMPILER VERSION WHICH PRODUCES SYM RECORDS. IT OBTAINS SYMBOL STORAGE IN SEGMENT 6 AND COMPILER STORAGE IN SEGMENTS 7 AND ABOVE, GREATLY REDUCING THE CHANCE OF A COMPILER PROGRAM INTERRUPT. 0 Referenced by comments of: 204/21 00204/004 FORTRANG IEYFORTD OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYFORTD.O D4T1 553 FORTRANG.IEYFORTD.OC.004 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 10:43:37 00204/005 FORTRANG IEYALL SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYALL.S D4T1 554 FORTRANG.IEYALL.SA.005 1 LINE 80 87 PAGE UM HANSEN OCT. 06, 1975 14:36:02 0 FORTRAN G ALLOCATE MODULE. COPIES IEYPSCT (204/27). ASSEMBLE USING IEYMACROS (204/23). 00204/006 FORTRANG IEYALL OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYALL.O D4T1 555 FORTRANG.IEYALL.OC.006 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 11:26:38 00204/007 FORTRANG IEYEXT SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYEXT.S D4T1 556 FORTRANG.IEYEXT.SA.007 1 LINE 80 60 PAGE UM HANSEN OCT. 06, 1975 14:36:23 0 FORTRAN G EXIT MODULE. COPIES IEYPSCT (204/27). ASSEMBLE USING IEYMACROS (204/23). 00204/008 FORTRANG IEYEXT OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYEXT.O D4T1 557 FORTRANG.IEYEXT.OC.008 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 11:26:43 00204/009 FORTRANG IEYGEN SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYGEN.S D4T1 558 FORTRANG.IEYGEN.SA.009 1 LINE 80 171 PAGE UM HANSEN OCT. 06, 1975 14:37:56 0 FORTRAN G CODE GENERATION MODULE. COPIES IEYPSCT (204/27). ASSEMBLE USING IEYMACROS (204/23). 1 THU SEP 12/96 23:39:34 Page 76 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00204/010 FORTRANG IEYGEN OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYGEN.O D4T1 559 FORTRANG.IEYGEN.OC.010 1 LINE 80 8 PAGE UM HANSEN JUNE 01, 1976 11:26:47 00204/011 FORTRANG IEYINT SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYINT.S D4T1 560 FORTRANG.IEYINT.SA.011 1 LINE 80 3 PAGE UM HANSEN OCT. 06, 1975 14:38:23 0 FORTRAN G POP INTERPRETER. COPIES IEYDINT (204/24). ASSEMBLE USING IEYMACROS (204/23). 00204/012 FORTRANG IEYINT OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYINT.O D4T1 561 FORTRANG.IEYINT.OC.012 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 11:26:51 00204/013 FORTRANG IEYPAR SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYPAR.S D4T1 562 FORTRANG.IEYPAR.SA.013 1 LINE 80 188 PAGE UM HANSEN NOV. 13, 1975 09:23:17 0 FORTRAN G PARSER MODIFIED TO ALLOW AN ARBITRARY NUMBER OF COMMENTS BETWEEN ANY TWO STATEMENTS. COPIES IEYDINT (204/24). ASSEMBLE USING IEYMACROS (204/23). 00204/014 FORTRANG IEYPAR OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYPAR.O D4T1 563 FORTRANG.IEYPAR.OC.014 1 LINE 80 9 PAGE UM HANSEN JUNE 01, 1976 11:26:55 00204/015 FORTRANG IEYROL SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYROL.S D4T1 564 FORTRANG.IEYROL.SA.015 1 LINE 80 11 PAGE UM HANSEN OCT. 06, 1975 14:39:13 0 FORTRAN G ROLL CONTROL MODULE FOR COMPILER WORKSPACE. ASSEMBLE USING IEYMACROS (204/23). 00204/016 FORTRANG IEYROL OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYROL.O D4T1 565 FORTRANG.IEYROL.OC.016 1 LINE 80 4 PAGE UM HANSEN JUNE 01, 1976 11:27:00 00204/017 FORTRANG IEYOPT SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYOPT.S D4T1 566 FORTRANG.IEYOPT.SA.017 1 LINE 68 3 PAGE UM HANSEN OCT. 08, 1975 16:28:22 0 THIS IS AN OPTION SCANNER CALLED BY IEYFORT TO PARSE THE PAR FIELD. 00204/018 FORTRANG IEYOPT OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYOPT.O D4T1 567 FORTRANG.IEYOPT.OC.018 1 LINE 255 1 PAGE UM HANSEN OCT. 08, 1975 16:31:46 00204/019 FORTRANG IEYUNF SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYUNF.S D4T1 568 FORTRANG.IEYUNF.SA.019 1 LINE 80 35 PAGE UM HANSEN OCT. 06, 1975 14:39:38 0 FORTRAN G "UNIFY" MODULE. COPIES IEYPSCT (204/27). ASSEMBLE USING IEYMACROS (204/23). 00204/020 FORTRANG IEYUNF OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYUNF.O D4T1 569 FORTRANG.IEYUNF.OC.020 1 LINE 80 8 PAGE UM HANSEN JUNE 01, 1976 11:27:04 00204/021 FORTRANG IEYSYM SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYSYM.S D4T1 570 FORTRANG.IEYSYM.SA.021 1 LINE 72 15 PAGE UM HANSEN DEC. 15, 1975 12:43:24 0 THIS IS THE SYM CARD PRODUCING MODULE. IT IS CALLED BY IEYFORTD (204/3). 1 THU SEP 12/96 23:39:34 Page 77 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00204/022 FORTRANG IEYSYM OC G S0049 FG21.8 'FORTRAN G' FSNAME=IEYSYM.O D4T1 571 FORTRANG.IEYSYM.OC.022 1 LINE 80 4 PAGE UM HANSEN DEC. 15, 1975 12:43:35 00204/023 FORTRANG IEYMACROS SM G S0049 FG21.8 'FORTRAN G' FSNAME=IEYMACROS D4T1 572 FORTRANG.IEYMACROS.SM.023 1 LINE 80 62 PAGE UM HANSEN OCT. 08, 1975 16:29:23 0 THE MACRO LIBRARY NEEDED TO ASSEMBLE ALL OS MODULES OF FORTRAN G, I.E. EVERYTHING EXCEPT IEYFORT, IEYFORTD, IEYOPT, AND IEYSYM. 0 Referenced by comments of: 204/5, 204/7, 204/9, 204/11, 204/13, 204/15, 204/19 00204/024 FORTRANG IEYDINT SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYDINT D4T1 573 FORTRANG.IEYDINT.SA.024 1 LINE 80 34 PAGE UM HANSEN OCT. 08, 1975 16:30:07 0 A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G. 0 Referenced by comments of: 204/11, 204/13 00204/025 FORTRANG IEYMID SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYMID D4T1 574 FORTRANG.IEYMID.SA.025 1 LINE 80 1 PAGE UM HANSEN OCT. 08, 1975 16:29:36 0 A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G. 00204/026 FORTRANG IEYPRF SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYPRF D4T1 575 FORTRANG.IEYPRF.SA.026 1 LINE 80 1 PAGE UM HANSEN OCT. 08, 1975 16:29:45 0 A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G. 00204/027 FORTRANG IEYPSCT SA G S0049 FG21.8 'FORTRAN G' FSNAME=IEYPSCT D4T1 576 FORTRANG.IEYPSCT.SA.027 1 LINE 80 5 PAGE UM HANSEN OCT. 08, 1975 16:30:00 0 A COPY SECTION REQUIRED FOR ASSEMBLING OS MODULES OF FORTRAN G. 0 Referenced by comments of: 204/5, 204/7, 204/9, 204/19 00204/028 FORTRANG REG OBJECT OE G *FORTRANG D4T1 577 FORTRANG.REG_OBJECT.OE.028 1 SEQ 32766 16 PAGE UM HANSEN JULY 27, 1977 23:51:00 *FORTRANG 0 THE LINKEDITED OBJECT OF THE REGULAR (NON-TEST) FORTRAN G COMPILER. IT INCLUDES IEYFORT, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, AND IEYUNF. 00204/029 FORTRANG TEST OBJECT OE G *FTNGTEST D4T1 578 FORTRANG.TEST_OBJECT.OE.029 1 SEQ 32767 17 PAGE UM HANSEN JULY 27, 1977 23:51:01 *FTNGTEST 0 THE LINKEDITED OBJECT OF THE SYM CARD PRODUCING VERSION OF THE FORTRAN G COMPILER. IT INCLUDES IEYFORTD, IEYALL, IEYEXT, IEYINT, IEYGEN, IEYOPT, IEYPAR, IEYROL, IEYSYM, AND IEYUNF. 00210/001 *LISP SA G W118:LISP.S D4.2T1 122 LISP..SA.001 1 LINE 71 105 PAGE UM GOODRICH MAR. 26, 1979 02:32:20 0 NEW LISP INTERPRETER WRITTEN BY UM MENTAL HEALTH RESEARCH INSTITUTE. THE OLD OS/360 LISP IS NOW USED ONLY IN CONJUNCTION WITH REDUCE2 (556). 1 THU SEP 12/96 23:39:34 Page 78 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00210/002 *LISP OE G *LISP D4.2T1 123 LISP..OE.002 1 SEQ 32767 26 PAGE UM GOODRICH MAR. 26, 1979 02:32:29 *LISP 00210/003 *LISP TRANSIT SA G C1945 SAVE 'WR2' POSN=TRANSIT:ASMG D4T1 581 LISP.TRANSIT.SA.003 1 SEQ 80 10 PAGE UM GOODRICH JULY 27, 1977 23:51:59 0 THIS COMPONENT CONTAINS THE "HYPOTHETICAL WORLDS" FUNCTIONS, RPLACA2, RPLACD2, SETA2, NEWWORLD, REALWORLD, GETWORLD. 00210/004 *LISP EDITOR S G C1945 SAVE 'WR2' POSN=EDIT:LISP D4T1 582 LISP.EDITOR.S.004 1 SEQ 152 18 PAGE UM GOODRICH JULY 27, 1977 23:52:01 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 C1945 SAVE 'WR2' POSN=DEBUG:LISP D4T1 583 LISP.BREAK.S.005 1 SEQ 126 10 PAGE UM GOODRICH JULY 27, 1977 23:53:01 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 W118:LCOM D4.2T1 124 LISP.COMPILER.S.006 1 LINE 116 28 PAGE UM GOODRICH MAR. 26, 1979 02:32:29 0 THIS IS THE LISP SOURCE FOR THE LISP COMPILER. 00210/007 *LISP *LISPLIB O G *LISPLIB D4.2T1 125 LISP.*LISPLIB.O.007 1 LINE 32520 73 PAGE UM GOODRICH MAR. 26, 1979 02:32:33 *LISPLIB 0 THIS IS A SEQ FILE WHICH CONTAINS CHECKPOINTED VERSIONS OF LESS FREQUENTLY USED FUNCTIONS IN A FORMAT UNDERSTOOD ONLY BY THE LISP INTERPRETER. IT CURRENTLY CONTAINS THE SUBCOMPONENTS TRANSIT, EDITOR, BREAK, AND COMPILER. 00212 *FILESNIFF SA G # (OBSOLETED BY $FILESTATUS, COMP 529) D3T2 49 FILESNIFF..SA.1 1 LINE 80 6 PAGE UM JULY 31, 1973 21:17.52 00217 *LIBTOFASTLIB S # (OBSOLETE) D2T1 289 UM 00220 *GOMAD S # (OBSOLETE) D2T1 293 UM 00221 **TP S # (OBSOLETE) D2T1 140 UM 00223/001 SIOERR SUBR SA G MTA:SIOERR(1,999) D4T1 586 SIOERR_SUBR..SA.001 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 23:54:04 MTA.:SIOERR 0 FORTRAN INTERFACE TO SETIOERR. 1 THU SEP 12/96 23:39:34 Page 79 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00223/002 SIOERR SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00225/001B *SYSMAC SM G MTA:SYSMAC RD16T1 27 SYSMAC..SM.001 1 LINE 80 97 PAGE UM MTA JULY 12, 1979 22:26:16 0 MTS SYSTEM MACRO LIBRARY FOR GENERAL USE. THIS VERSION IS THE SAME AS *SYSMAC ON THE TEST PACK (225/2) EXCEPT THAT THE COMMENTS HAVE NOT BEEN REMOVED. 0 Referenced by comments of: 1000/51 00225/002B *SYSMAC SM G # *SYSMAC UM MTA *SYSMAC 0 Referenced by comments of: 225/1, 570/1 00225/003B *SYSMAC TEST PGM 1 SA G MTA:TESTIOMAC RD16T1 28 SYSMAC.TEST_PGM_1.SA.003 1 LINE 72 9 PAGE UM MTA JULY 12, 1979 22:27:14 MTA.:TESTIOMAC 0 TEST PROGRAM FOR MANY MACROS IN *SYSMAC. 00225/004 *SYSMAC TEST PGM 2 SA G MTA:TESTMINMAX D4.2T1 128 SYSMAC.TEST_PGM_2.SA.004 1 LINE 45 3 PAGE UM MTA MAR. 26, 1979 02:33:10 MTA:TESTMINMAX 0 TESTS MIN AND MAX MACROS. 00225/005C *SYSMAC TRTAB WRITEUP WF W062:TRTAB.W RD16T1 29 SYSMAC.TRTAB_WRITEUP.WF.005 1 LINE 100 3 PAGE UM TIFFANY JULY 12, 1979 22:27:17 0 WRITEUP FOR REVISED TRTAB MACRO. WILL BE INCORPORATED INTO MTS VOLUME 14 EVENTUALLY. 00229 *TIDY SF # (OBSOLETED BY COMP 727) D4T1 589 TIDY..SF.001 1 SEQ 80 60 PAGE UM JULY 31, 1973 21:20.10 0 Referenced by comments of: 727/1 00231 *GRAPHLIB SA # (OBSOLETE) D4T1 591 GRAPHLIB..SA. 1 SEQ 80 211 PAGE UM JULY 31, 1973 21:21.10 00233/001 PL1 LIBRARY MACLIB SM # (SEE COMP 163) UM TIFFANY 00233/002 PL1 LIBRARY SAMEQU SA # (SEE COMP 163) UM TIFFANY 00233/003 PL1 LIBRARY REPLACE SA # (SEE COMP 163) UM TIFFANY 1 THU SEP 12/96 23:39:34 Page 80 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/004 PL1 LIBRARY CKLIO SA # (SEE COMP 163) UM TIFFANY 00233/005 PL1 LIBRARY NONSENSE SA # (SEE COMP 163) UM TIFFANY 00233/006 PL1 LIBRARY FREEDDEF SA # (SEE COMP 163) UM TIFFANY 00233/007 PL1 LIBRARY FINDTIOT SA # (SEE COMP 163) UM TIFFANY 00233/008 PL1 LIBRARY DDEF SA # (SEE COMP 163) UM TIFFANY 00233/009 PL1 LIBRARY OPEN SA # (SEE COMP 163) UM TIFFANY 00233/010 PL1 LIBRARY ROUT SA # (SEE COMP 163) UM TIFFANY 00233/011 PL1 LIBRARY CLOSE SA # (SEE COMP 163) UM TIFFANY 00233/012 PL1 LIBRARY QUIT SA # (SEE COMP 163) UM TIFFANY 00233/013 PL1 LIBRARY PL1MACLIB SM G PL1M W062:PL1MACLIB D4T1 592 PL1_LIBRARY.PL1MACLIB.SM.013 1 LINE 80 13 PAGE UM TIFFANY JULY 27, 1977 23:56:02 0 MACRO LIBRARY FOR PL/I LIBRARY ROUTINES. 0 Referenced by comments of: 233/41 00233/014 PL1 LIBRARY SNAP SA G SNAP S0410 MTSPL1 'PL1LIB' POSN=SNAP 14 D4T1 593 PL1_LIBRARY.SNAP.SA.014 1 SEQ 80 3 PAGE UM TIFFANY JULY 27, 1977 23:56:16 0 SUBROUTINES TO DUMP. USED BY IHEDUMP. 00233/015 PL1 LIBRARY CNTL SA G CNTL S0410 MTSPL1 'PL1LIB' POSN=CNTL 15 D4T1 594 PL1_LIBRARY.CNTL.SA.015 1 SEQ 80 2 PAGE UM TIFFANY JULY 27, 1977 23:56:17 0 SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND MTS 'CONTROL' SUBROUTINE. 00233/016 PL1 LIBRARY RAND SA G RAND S0410 MTSPL1 'PL1LIB' POSN=RAND.D4 D4T1 595 PL1_LIBRARY.RAND.SA.016 1 LINE 80 2 PAGE UM TIFFANY JULY 28, 1977 00:03:58 0 RANDOM NUMBER GENERATOR 00233/017 PL1 LIBRARY USERID SA G USER S0410 MTSPL1 'PL1LIB' POSN=USERID 17 D4T1 596 PL1_LIBRARY.USERID.SA.017 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:00 0 RUN TIME SUBR 1 THU SEP 12/96 23:39:34 Page 81 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/018 PL1 LIBRARY BATCH SA G BTCH S0410 MTSPL1 'PL1LIB' POSN=BATCH 18 D4T1 597 PL1_LIBRARY.BATCH.SA.018 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:02 0 RUN TIME SUBROUTINE TO CALL CANREPLY 00233/019 PL1 LIBRARY ELAPSED SA G ELPS S0410 MTSPL1 'PL1LIB' POSN=ELAPSED 19 D4T1 598 PL1_LIBRARY.ELAPSED.SA.019 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:05 0 RUN TIME SUBROUTINE 00233/020 PL1 LIBRARY CPUTIME SA G CPUT S0410 MTSPL1 'PL1LIB' POSN=CPUTIME 20 D4T1 599 PL1_LIBRARY.CPUTIME.SA.020 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:07 0 RUN TIME SUBROUTINE 00233/021 PL1 LIBRARY UN-QSAM SA G ITBA S0410 MTSPL1 'PL1LIB' POSN=IHEITB.D4 D4T1 600 PL1_LIBRARY.UN-QSAM.SA.021 1 LINE 80 18 PAGE UM TIFFANY JULY 27, 1977 01:52:09 0 I/O ROUTINES FOR NON-STANDARD PL/I FILES -- IHEITB 00233/022 PL1 LIBRARY KEY SA G NKEY S0410 MTSPL1 'PL1LIB' POSN=NEXTKEY 22 D4T1 601 PL1_LIBRARY.KEY.SA.022 1 SEQ 80 2 PAGE UM TIFFANY JULY 27, 1977 01:52:12 0 NEXTKEY AND LASTKEY 00233/023 PL1 LIBRARY ATTACH SA G ATCH S0410 MTSPL1 'PL1LIB' POSN=ATTACH 23 D4T1 602 PL1_LIBRARY.ATTACH.SA.023 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:14 0 PROGRAM TO CALL DDEF AT RUN TIME 00233/024 PL1 LIBRARY DISPLAY SA G DSPA S0410 MTSPL1 'PL1LIB' POSN=IHEDSP 24 D4T1 603 PL1_LIBRARY.DISPLAY.SA.024 1 SEQ 80 2 PAGE UM TIFFANY JULY 27, 1977 01:52:16 0 REPLACEMENT FOR AN IBM SUBROUTINE. OUTPUT ON SERCOM, INPUT FROM GUSER. 00233/025 PL1 LIBRARY IHEMAIN SA G MAIN S0410 MTSPL1 'PL1LIB' POSN=IHEMAIN 25 D4T1 604 PL1_LIBRARY.IHEMAIN.SA.025 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:19 0 MAIN PROGRAM IF USER DOES NOT GIVE ONE 0 Referenced by comments of: 233/43 00233/026 PL1 LIBRARY IHEOST SA G OSTA S0410 MTSPL1 'PL1LIB' POSN=IHEOST 26 D4T1 605 PL1_LIBRARY.IHEOST.SA.026 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:21 0 GIVES TIME AND DATE. 00233/027 PL1 LIBRARY SIGNOFF SA G SIGN S0410 MTSPL1 'PL1LIB' POSN=SIGNOFF 27 D4T1 606 PL1_LIBRARY.SIGNOFF.SA.027 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:23 0 RUN TIME SUBR 1 THU SEP 12/96 23:39:34 Page 82 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/028 PL1 LIBRARY SYSERR SA G SERR S0410 MTSPL1 'PL1LIB' POSN=SYSERR 28 D4T1 607 PL1_LIBRARY.SYSERR.SA.028 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:26 0 SYSTEM AND ERROR 00233/029 PL1 LIBRARY IHELTT SA G LTTA S0410 MTSPL1 'PL1LIB' POSN=IHELTT 29 D4T1 608 PL1_LIBRARY.IHELTT.SA.029 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:28 0 TRANSFER VECTOR TABLE IN *PL1LIB. 00233/030 PL1 LIBRARY IHELTV SA G LTVA S0410 MTSPL1 'PL1LIB' POSN=IHELTV 30 D4T1 609 PL1_LIBRARY.IHELTV.SA.030 1 SEQ 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:30 0 TRANSFER VECTOR TABLE IN SHAREDPL1LIB. 00233/031 PL1 LIBRARY IHESAP SA G SAPA S0410 MTSPL1 'PL1LIB' POSN=IHESAP.D4 D4T1 610 PL1_LIBRARY.IHESAP.SA.031 1 LINE 80 8 PAGE UM TIFFANY JULY 27, 1977 01:52:32 0 PL/I PROGRAM INITIALIZER. 0 Referenced by comments of: 233/43 00233/032 PL1 LIBRARY FINFO SA G FINF S0410 MTSPL1 'PL1LIB' POSN=FINFO 32 D4T1 611 PL1_LIBRARY.FINFO.SA.032 1 SEQ 80 4 PAGE UM TIFFANY JULY 27, 1977 01:52:35 0 ROUTINE TO GET INFORMATION FOR A PL/I FILE. COPIES SAMEQU (163/2). 00233/033 PL1 LIBRARY READ/WRITE SA G READ S0410 MTSPL1 'PL1LIB' POSN=IHEREAD 33 D4T1 612 PL1_LIBRARY.READ/WRITE.SA.033 1 SEQ 80 5 PAGE UM TIFFANY JULY 27, 1977 01:52:38 0 ROUTINES IHEREAD AND IHERITE. 00233/034 PL1 LIBRARY NOTE/POINT SA G PNTS S0410 MTSPL1 'PL1LIB' POSN=IHENOTE 34 D4T1 613 PL1_LIBRARY.NOTE/POINT.SA.034 1 SEQ 80 2 PAGE UM TIFFANY JULY 27, 1977 01:52:40 0 SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND THE MTS SUBROUTINES 'NOTE' AND 'POINT'. 00233/035 PL1 LIBRARY PLCALL ET AL SA G PLCL S0027 DISTRB FSNAME=PLCALL D4T1 614 PL1_LIBRARY.PLCALL_ET_AL.SA.035 1 LINE 80 6 PAGE UM ENGLE MAY 17, 1976 14:28:46 0 SUBROUTINES PCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL1 PROGRAM TO CALL SUBROUTINES WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE. THE SUBROUTINES PL1ADR AND PL1RC ARE ALSO ENTRY POINTS TO THIS PROGRAM. 00233/036 PL1 LIBRARY IHEATTN SA G ATTN S0410 MTSPL1 'PL1LIB' POSN=ATTN.D4 D4T1 615 PL1_LIBRARY.IHEATTN.SA.036 1 LINE 80 9 PAGE UM TIFFANY JULY 27, 1977 01:52:50 0 ASSEMBLE USING *SYSMAC. 00233/037 PL1 LIBRARY IHEZZZZZ SA G ZZZZ S0410 MTSPL1 'PL1LIB' POSN=IHEZZZZZ.D4 D4T1 616 PL1_LIBRARY.IHEZZZZZ.SA.037 1 LINE 80 1 PAGE UM TIFFANY JULY 27, 1977 01:52:52 0 A NULL-LENGTH CONTROL SECTION TO BE PLACED AT THE END OF SHAREDPL1LIB FOR THE BENEFIT OF SDS. 1 THU SEP 12/96 23:39:34 Page 83 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/038 PL1 LIBRARY CALLPL1 SA G S0410 MTSPL1 'PL1LIB' POSN=PL1CALL.D4 D4T1 617 PL1_LIBRARY.CALLPL1.SA.038 1 LINE 72 10 PAGE UM TIFFANY JULY 27, 1977 01:52:55 0 SUBROUTINES PL1SUB, PL1FCN, IPLFCN, PLDFCN, I2FCN, CPXFCN, CDFCN, LGLFCN, LG1FCN, PL1BEG, PL1END, AND IPL1RC WHICH CAN BE USED BY NON-PL1 PROGRAMS TO CALL PL1 PROCEDURES. 0 Referenced by comments of: 233/43 00233/039 PL1 LIBRARY MAXLEN SA G MAXL S0410 MTSPL1 'PL1LIB' POSN=MAXLEN.D4 D4T1 619 PL1_LIBRARY.MAXLEN.SA.040 1 LINE 80 1 PAGE UM TIFFANY JULY 27, 1977 01:54:07 0 MAXLEN OBTAINS THE MAXIMUM LENGTH FOR A GIVEN PL/1 CHARACTER VARYING STRING. 00233/040 PL1 LIBRARY IHEDBNA SA G S0410 MTSPL1 'PL1LIB' POSN=IHEDBNA D4.1T1 83 PL1_LIBRARY.IHEDBNA.SA.040 1 SEQ 80 4 PAGE UM TIFFANY MAY 13, 1978 17:07:38 0 THIS REPLACES THE IBM VERSION OF IHEDBNA WHICH CAUSED ADDRESSIBILITY INTERRUPTS, ESPECIALLY IN *LINKEDIT WHILE CONVERTING BIT STRINGS TO ARITHMETIC VALUES. 00233/041 PL1 LIBRARY UPDATE UI G S0410 MTSPL1 'PL1LIB' POSN=PL1LIBUP.D4 D4T1 620 PL1_LIBRARY.UPDATE.UI.041 1 LINE 73 9 PAGE UM TIFFANY JULY 27, 1977 01:54:11 0 *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL1 LIBRARY FROM IBM RELEASE 21.8. THE RESULT OF THIS ASSEMBLY SHOULD BE ASSEMBLED USING THE FOLLOWING MACRO LIBRARIES (IN THE ORDER GIVEN): PL1MACLIB (233/13), MACLIB (163/1), AND *SYSMAC. 00233/042 PL1 LIBRARY ENDPL1LIB OC G S0410 MTSPL1 'PL1LIB' POSN=ENDPL1LIB.D4 40 D4T1 621 PL1_LIBRARY.ENDPL1LIB.OC.042 1 LINE 24 1 PAGE UM TIFFANY JULY 27, 1977 01:54:14 0 CONTAINS 5 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD). 00233/043 PL1 LIBRARY *PL1LIB OL G *PL1LIB D4T1 622 PL1_LIBRARY.*PL1LIB.OL.043 1 SEQ 2642 3 PAGE UM TIFFANY JULY 27, 1977 01:54:16 *PL1LIB 0 NON-REENTRANT PART OF RUN-TIME LIBRARY; THE REMAINDER IS IN SHAREDPL1LIB. NOTE: IHEMAIN (233/25) MUST COME AFTER BOTH IHESAP (233/31) AND CALLPL1 (233/38) IN THE DIR RECORD FOR THIS LIBRARY. 00233/044 PL1 LIBRARY SHAREDPL1LIB OE G SEG2:SHAREDPL1LIB D4.1T1 84 PL1_LIBRARY.SHAREDPL1LIB.OE.044 1 LINE 256 58 PAGE UM TIFFANY MAY 13, 1978 17:07:38 SEG2:SHAREDPL1LIB 0 REENTRANT PART OF RUN-TIME LIBRARY; LOADED INTO SHARED VM AT IPL BY PISTLE. CONTAINS IHEPRD WHICH IS SET UP CORRECTLY BY CRELCSPR (506/2). 00233/045 PL1 LIBRARY UNSP PREAD SA G PREA S0684 UNSP FSNAME=PREAD.S D4T1 624 PL1_LIBRARY.UNSP_PREAD.SA.045 1 LINE 80 3 PAGE UM UNSP NOV. 09, 1975 19:29:47 0 THE FOLLOWING PROCEDURES CONSTITUTE THE UM "UNSUPPORTED" PL/1 LIBRARY. WRITEUPS ARE INCLUDED IN 685/2. 1 THU SEP 12/96 23:39:34 Page 84 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PREAD ALLOWS THE MTS READ SUBROUTINE TO BE CALLED FROM A PL/1 PROGRAM WITHOUT USING PLCALL. 00233/046 PL1 LIBRARY UNSP PWRITE SA G PWRI S0684 UNSP FSNAME=PWRITE.S D4T1 625 PL1_LIBRARY.UNSP_PWRITE.SA.046 1 LINE 80 3 PAGE UM UNSP NOV. 09, 1975 19:29:40 0 PWRITE ALLOWS THE MTS WRITE SUBROUTINE TO BE CALLED FROM A PL/1 PROGRAM WITHOUT USING PLCALL. 00233/047 PL1 LIBRARY UNSP SETLEN SA O SETL S0684 UNSP FSNAME=SETLEN.S D4T1 626 PL1_LIBRARY.UNSP_SETLEN.SA.047 1 LINE 80 1 PAGE UM UNSP NOV. 09, 1975 19:30:07 0 SETLEN RESETS THE LENGTH OF A PL/1 CHARACTER VARYING STRING. 00233/048 PL1 LIBRARY UNSP LIBRARY OL O UNSP:PL1LIB D4T1 627 PL1_LIBRARY.UNSP_LIBRARY.OL.048 1 LINE 105 1 PAGE UM UNSP JULY 27, 1977 01:58:53 UNSP:PL1LIB 00234/001 8ASR 8ASRMAC SM G MAC8 S0806 DIST4 FSNAME=8ASRMAC D4T1 628 8ASR.8ASRMAC.SM.001 1 LINE 80 16 PAGE UM LUBBERS JUNE 02, 1976 20:37:42 0 MACRO LIBRARY FOR DEC ASSEMBLERS. 0 Referenced by comments of: 234/4, 234/6, 661/1 00234/002 8ASR 8ASREQU.C SA G DEF8 S0806 DIST4 FSNAME=8ASREQU.C D4T1 629 8ASR.8ASREQU.C.SA.002 1 LINE 80 4 PAGE UM LUBBERS JULY 19, 1977 11:33:37 0 COPY SECTION. 0 Referenced by comments of: 234/4, 234/6 00234/003 8ASR 8ASRST.C SA G COP8 S0806 DIST4 FSNAME=8ASRST.C D4T1 630 8ASR.8ASRST.C.SA.003 1 LINE 80 7 PAGE UM LUBBERS JULY 19, 1977 11:34:01 0 COPY SECTION. 0 Referenced by comments of: 234/4, 234/6 00234/004 8ASR MAIN PROGRAM SA G S0806 DIST4 FSNAME=8ASR.S D4T1 631 8ASR.MAIN_PROGRAM.SA.004 1 LINE 99 33 PAGE UM LUBBERS JULY 19, 1977 11:34:21 0 MAIN PROGRAM FOR *8ASR, *9ASR, AND *1ASR. COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1). 00234/005 8ASR MAIN PROGRAM OC G S0806 DIST4 FSNAME=8ASROBJ D4T1 632 8ASR.MAIN_PROGRAM.OC.005 1 LINE 80 10 PAGE UM LUBBERS JULY 19, 1977 11:34:41 00234/006 8ASR SUBROUTINES SA G S0806 DIST4 FSNAME=8ASRCOM.S D4T1 633 8ASR.SUBROUTINES.SA.006 1 LINE 105 10 PAGE UM LUBBERS JUNE 02, 1976 20:41:06 0 SUBROUTINES USED BY 234/4. COPIES 8ASREQU.C (234/2) AND 8ASRST.C (234/3) AND REQUIRES 8ASRMAC (234/1). 1 THU SEP 12/96 23:39:34 Page 85 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00234/007 8ASR SUBROUTINES OC G S0806 DIST4 FSNAME=8ASRCOMOBJ D4T1 634 8ASR.SUBROUTINES.OC.007 1 LINE 80 5 PAGE UM LUBBERS JUNE 02, 1976 20:41:13 00234/008 8ASR PDP-8 OP TBLS SA G S0806 DIST4 FSNAME=8OPS.S D4T1 635 8ASR.PDP-8_OP_TBLS.SA.008 1 LINE 99 4 PAGE UM LUBBERS JUNE 02, 1976 20:41:53 0 ASSEMBLY TO DEFINE PDP-8 OPERATION CODES FOR *8ASR. 00234/009 8ASR PDP-8 OP TBLS OC G S0806 DIST4 FSNAME=8OPSOBJ D4T1 636 8ASR.PDP-8_OP_TBLS.OC.009 1 LINE 80 5 PAGE UM LUBBERS JUNE 02, 1976 20:42:06 00234/010 8ASR *8ASR OE G *8ASR D4T1 637 8ASR.*8ASR.OE.010 1 SEQ 11502 7 PAGE UM LUBBERS JULY 27, 1977 02:03:03 *8ASR 0 OBJECT CONSISTING OF 234/5 + 234/7 + 234/9 00234/011 8ASR PDP-9 OP TBLS SA G S0806 DIST4 FSNAME=9OPS.S D4T1 638 8ASR.PDP-9_OP_TBLS.SA.011 1 LINE 99 4 PAGE UM LUBBERS JUNE 02, 1976 20:42:18 0 ASSEMBLY TO DEFINE PDP-9 OPERATION CODES FOR *9ASR. 00234/012 8ASR PDP-9 OP TBLS OC G S0806 DIST4 FSNAME=9OPSOBJ D4T1 639 8ASR.PDP-9_OP_TBLS.OC.012 1 LINE 80 5 PAGE UM LUBBERS JUNE 02, 1976 20:42:26 00234/013 8ASR *9ASR OE G *9ASR D4T1 640 8ASR.*9ASR.OE.013 1 SEQ 11502 7 PAGE UM LUBBERS JULY 27, 1977 02:03:10 *9ASR 0 OBJECT CONSISTING OF 234/5 + 234/7 +234/12 00234/014 8ASR PDP-1 OP TBLS SA G S0806 DIST4 FSNAME=1OPS.S D4T1 641 8ASR.PDP-1_OP_TBLS.SA.014 1 LINE 99 5 PAGE UM LUBBERS JUNE 02, 1976 20:42:35 0 ASSEMBLY TO DEFINE PDP-1 OPERATION CODES FOR *1ASR. 00234/015 8ASR PDP-1 OP TBLS OC G S0806 DIST4 FSNAME=1OPSOBJ D4T1 642 8ASR.PDP-1_OP_TBLS.OC.015 1 LINE 80 6 PAGE UM LUBBERS JUNE 02, 1976 20:42:43 00234/016 8ASR FRIDEN TR TBL SA S0806 DIST4 FSNAME=TDEC.S D4T1 643 8ASR.FRIDEN_TR_TBL.SA.016 1 LINE 99 3 PAGE UM LUBBERS JUNE 02, 1976 20:42:57 0 ASSEMBLY TO DEFINE TRANSLATE TABLE FOR FRIDEN TERMINAL USED IN CONNECTION WITH *1ASR. 00234/017 8ASR FRIDEN TR TBL OC S0806 DIST4 FSNAME=TDECOBJ D4T1 644 8ASR.FRIDEN_TR_TBL.OC.017 1 LINE 80 3 PAGE UM LUBBERS JUNE 02, 1976 20:43:05 00234/018 8ASR *1ASR OE G *1ASR D4T1 645 8ASR.*1ASR.OE.018 1 SEQ 11986 7 PAGE UM LUBBERS JULY 27, 1977 02:03:22 *1ASR 0 OBJECT CONSISTING OF 234/5 + 234/7 + 234/15 + 234/17 1 THU SEP 12/96 23:39:34 Page 86 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00234/019 8ASR OS INTERFACE SA BARF S0806 DIST4 FSNAME=BIGOS D4T1 646 8ASR.OS_INTERFACE.SA.019 1 LINE 80 8 PAGE UM LUBBERS JUNE 29, 1973 21:38.49 0 SUBROUTINES TO PROVIDE MTS ENVIRONMENT FOR 8ASR IN OS/360. NOT COMPLETELY CHECKED OUT. OBJECT NOT DISTRIBUTED. ASSEMBLE USING *OSMAC OR USE OS/360. 00234/020 8ASR LINK EDITOR SA G LNK8 S0806 DIST4 FSNAME=8LINK D4T1 647 8ASR.LINK_EDITOR.SA.020 1 LINE 80 77 PAGE UM LUBBERS JAN. 07, 1974 16:41.59 0 PROGRAM TO LINK-EDIT RELOCATIBLE PDP-8 OBJECT TO PRODUCE LOADABLE FILE OR TAPE. COPIES 8PANEL (234/24). 00234/021 8ASR LINK EDITOR OC G S0806 DIST4 FSNAME=8LINKOBJ D4T1 648 8ASR.LINK_EDITOR.OC.021 1 LINE 80 8 PAGE UM LUBBERS JAN. 07, 1974 16:42.37 00234/022 8ASR PDP8 SIMULATOR SA G SIM8 S0806 DIST4 FSNAME=8SIM D4T1 649 8ASR.PDP8_SIMULATOR.SA.022 1 LINE 80 28 PAGE UM LUBBERS JUNE 29, 1973 21:42.44 0 PDP-8 SIMULATOR SECTION OF *8LINK. COPIES 8PANEL (234/24). 00234/023 8ASR PDP8 SIMULATOR OC G S0806 DIST4 FSNAME=8SIMOBJ D4T1 650 8ASR.PDP8_SIMULATOR.OC.023 1 LINE 80 2 DISK UM LUBBERS JUNE 29, 1973 21:47.24 00234/024 8ASR 8PANEL SA G PANL S0806 DIST4 FSNAME=8PANEL D4T1 651 8ASR.8PANEL.SA.024 1 LINE 80 3 PAGE UM LUBBERS JUNE 29, 1973 21:43.27 0 COPY SECTION. 0 Referenced by comments of: 234/20, 234/22 00234/025 8ASR *8LINK OE G *8LINK D4T1 652 8ASR.*8LINK.OE.025 1 SEQ 7776 11 PAGE UM LUBBERS JULY 27, 1977 02:03:43 *8LINK 0 LINK EDIT OF 234/21 + 234/23. 00234/026 8ASR MEMO 329 WF S0563 D4T1 VLO FSNAME=8ASR.MEMO_329.WF.026(1) 653 D4T1 653 8ASR.MEMO_329.WF.026 1 LINE 234 32 PAGE UM LUBBERS JAN. 24, 1977 21:23:27 0 THIS IS COMPUTING CENTER MEMO 329 -- "*8ASR PDP-8 ASSEMBLER AND *8LINK LINK EDITOR AND LOADER" 00234/027 8ASR TAPE-CARD UTIL SA # (OBSOLETE) D2T2 108 UM 00234/028 8ASR 8ASR-PAL CNVRT SA # (OBSOLETE) D2T2 109 UM 00238 *2250PLOT SA # (OBSOLETE) D4T1 654 2250PLOT..SA. 1 SEQ 80 4 PAGE UM JULY 31, 1973 21:29.07 1 THU SEP 12/96 23:39:34 Page 87 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00241 *TRACK SA # (OBSOLETE) D4T1 655 TRACK..SA. 1 SEQ 80 8 PAGE UM JULY 31, 1973 21:29.51 00243/001 BINEBCD SA G MTA:BINEBCD(1,999) D4T1 656 BINEBCD..SA.001 1 LINE 80 4 PAGE UM MTA JULY 27, 1977 02:04:19 MTA.:BINEBCD 0 SUBROUTINE TO CONVERT AN EBCDIC CARD WHICH WAS READ IN COLUMN BINARY BACK TO EBCDIC. CALLED BY *2501RTN (086) AND BY HASP (387). THIS VERSION DOES NO ERROR CHECKING. 0 Referenced by comments of: 86/1 00243/002 BINEBCD OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00243/003 BINEBCD SA G MTA:BINEBCD(2000) D4T1 657 BINEBCD..SA.003 1 LINE 80 4 PAGE UM MTA JULY 27, 1977 02:04:21 0 SAME SUBROUTINE, BUT WITH ERROR CHECKING. OBJECT NOT DISTRIBUTED. 00244/001 **CT S # (OBSOLETE) D2T1 138 UM 00244/002 **CT TAPE SUBR S # (OBSOLETE) D2T1 139 UM 00249 *COPY SA # (OBSOLETE) D4T1 658 COPY..SA.001 1 LINE 80 4 PAGE UM JULY 27, 1977 02:04:23 00251/001 *IEBUPDAT SP O S0721 'D3T2' FSNAME=IEBUPDAT..SA.1(1) 117 D4T1 660 IEBUPDAT..SP.001 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 21:31.45 0 A PROGRAM TO COPY TAPES CONTAINING CARD IMAGES CONFORMING TO THE IBM IEBUPDAT OR IEBUPDTE PROGRAMS. THIS PROGRAM WILL MAKE INSERTIONS AND DELETIONS. 00251/002 *IEBUPDAT OC O *IEBUPDAT D4T1 661 IEBUPDAT..OC.002 1 LINE 80 5 PAGE UM TIFFANY JULY 27, 1977 02:04:29 *IEBUPDAT 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00253 LINE DIRECTORY SORT SA # (OBSOLETED BY COMP 546) D2T1 121 UM 00254 BSLOAD SA G # (OBSOLETE) D3.1T1 192 BSLOAD..SA.1 1 LINE 80 26 PAGE UM MAR. 06, 1974 03:34.57 00256/001 STATISTICS COMBINE *CMB C *CMB D4T1 662 STATISTICS_COMBINE.*CMB.C.001 1 LINE 29 1 PAGE UM WSG JULY 27, 1977 02:04:31 *CMB 0 COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2). INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE. 1 THU SEP 12/96 23:39:34 Page 88 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00256/002 STATISTICS COMBINE COMBINE PGM SA G CMB S0792 WSGFS FSNAME=CMB D4.2T1 129 STATISTICS_COMBINE.COMBIN.SA.002 1 LINE 80 7 PAGE UM WSG OCT. 02, 1978 11:48:07 0 PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/1). PROGRAM WILL ASK FOR TAPE DRIVE WHERE OUTPUT TAPE IS MOUNTED, THEN ASK FOR INPUT TAPE DRIVE NAMES. COMBINE PROCESS IS ENDED BY ENTERING "DONE" FOR AN INPUT DRIVE NAME. THIS PROGRAM PRODUCES TAPES WHICH ARE BLOCKED IN A RATHER NON-STANDARD MANNER. HOWEVER, MOST SYSTEM PROGRAMS WHICH READ *STATISTICS DATA, ARE CAPABLE OF DEBLOCKING THESE TAPES. SOURCE IN LINES (1,999). 0 Referenced by comments of: 256/1 00256/003 STATISTICS COMBINE COMBINE PGM OC G SYS:CMB D4.2T1 130 STATISTICS_COMBINE.COMBIN.OC.003 1 LINE 80 2 PAGE UM WSG MAR. 26, 1979 02:33:12 SYS.:CMB 00257 *MOMS OC # (NOT DISTRIBUTED) D3T2 123 MOMS..OC. 1 LINE 255 12 DISK UM FEB. 22, 1973 17:18.51 00258/001 RECEIPT CARDS *RCP C *RCP D4.2T1 131 RECEIPT_CARDS.*RCP.C.001 1 LINE 31 1 PAGE UM DONNELLY MAR. 26, 1979 02:33:13 *RCP 0 COMMAND FILE TO RUN BATCH RECEIPT (S-8) CARD GENERATOR PROGRAM (258/3). INVOKED BY ENTERING "MTS *RCP" FROM OPERATORS CONSOLE. 00258/002 RECEIPT CARDS RECEIPT PGM SA RECP W035:RCP D4.2T1 132 RECEIPT_CARDS.RECEIPT_PGM.SA.002 1 LINE 80 5 PAGE UM DONNELLY MAR. 26, 1979 02:33:14 0 PROGRAM TO GENERATE MTS BATCH RECEIPT CARDS. 00258/003 RECEIPT CARDS RECEIPT PGM OC SYS:RCP D4T1 667 RECEIPT_CARDS.RECEIPT_PGM.OC.003 1 LINE 80 2 PAGE UM DONNELLY JULY 27, 1977 02:04:47 SYS.:RCP 0 Referenced by comments of: 258/1 00259 *LIST SA # (OBSOLETE) D2T1 332 UM 00260/001 SSP *SSP OC G # (NOT DISTRIBUTED) D3T2 127 SSP.*SSP.O.1 1 LINE 32 1 PAGE UM JULY 31, 1973 21:32.18 00260/002 SSP *SSPSTAT OL G # (NOT DISTRIBUTED) D3T2 128 SSP.*SSPSTAT.OL.2 1 LINE 255 30 PAGE UM JULY 31, 1973 21:32.20 00260/003 SSP *SSPMATH OL G # (NOT DISTRIBUTED) D3T2 129 SSP.*SSPMATH.OL.3 1 LINE 255 129 PAGE UM JULY 31, 1973 21:32.27 00261/001 SLIP SLIP FTN SF G S0985 W081 'W081SAVE' FSNAME=DSLIP.S D4T1 668 SLIP.*SLIP_FTN.SF.001 1 LINE 84 25 PAGE UM GOODRICH DEC. 21, 1975 20:30:52 0 SLIP IS A LIBRARY OF FORTRAN-CALLABLE SUBROUTINES FOR LIST PROCESSING. SEE THE DESCRIPTION IN THE CACM V.6, N.9, SEPT/63, PP 524-544. THERE ARE 1 THU SEP 12/96 23:39:34 Page 89 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TWO SEPARATE IMPLEMENTATIONS IN MTS: *SLIP IS THE NORMAL DOUBLE-WORD VERSION, "LITTLE SLIP" (UNSP:LSLIPLIB) IS A SINGLE-PRECISION VERSION. THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR *SLIP. 00261/002 SLIP SLIP PRIM SA G S0985 W081 'W081SAVE' FSNAME=DSLIPPRIM.S D4T1 669 SLIP.*SLIP_PRIM.SA.002 1 LINE 79 4 PAGE UM GOODRICH MAY 03, 1977 15:46:19 0 THIS IS THE ASSEMBLY SOURCE FOR *SLIP PRIMITIVES. 00261/003 SLIP *SLIP OL G *SLIP D4T1 670 SLIP.*SLIP_LIBRARY.OL.003 1 SEQ 2040 37 PAGE UM GOODRICH JULY 27, 1977 02:09:06 *SLIP 00261/004 SLIP *SLIPDEC SF G SDEC *SLIPDEC D4T1 671 SLIP.*SLIPDEC.SF.004 1 LINE 80 3 PAGE UM GOODRICH JULY 27, 1977 02:09:08 *SLIPDEC 0 THIS IS A SET OF FORTRAN DECLARATIONS FOR ALL SLIP FUNCTIONS. IT IS TO BE USED BY PROGRAMS WHICH CALL THE *SLIP PACKAGE. 00261/005 SLIP LSLIP FTN SF O S0684 UNSP FSNAME=LSLIP.S D4T1 672 SLIP.LSLIP_FTN.SF.005 1 LINE 84 30 PAGE UM UNSP JUNE 22, 1976 16:35:26 0 THIS SUB-COMPONENT IS THE FORTRAN SOURCE FOR THE "LITTLE SLIP" PACKAGE. AT UM, THIS VERSION OF SLIP IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 00261/006 SLIP LSLIP LIBRARY OL O UNSP:LSLIPLIB D4T1 673 SLIP.LSLIP_LIBRARY.OL.006 1 LINE 946 36 PAGE UM UNSP JULY 27, 1977 02:09:48 UNSP:LSLIPLIB 00265 *1 SM *1 D4T1 674 1..SM. 1 LINE 80 31 PAGE UM SALISBURY JULY 27, 1977 02:09:51 *1 0 MACRO LIBRARY FOR LIST PROCESSING IN ASSEMBLY LANGUAGE. SIMILAR TO L6. 00267/001 *DOWNDATE SA O WATF:DOWNDATE(1,999) D4T1 675 DOWNDATE..SA.001 1 LINE 80 9 PAGE UM MTA JULY 27, 1977 02:09:53 0 THE INVERSE OF *UPDATE. WILL PRODUCE AN UPDATE DECK FROM TWO SOURCE TAPES. CALLS SCANPAR SUBROUTINE (267/3). 0 Referenced by comments of: 267/3, 3003/88 00267/002 *DOWNDATE OE O *DOWNDATE D4T1 676 DOWNDATE..OE.002 1 LINE 2626 2 PAGE UM MTA JULY 27, 1977 02:09:55 *DOWNDATE 0 INCLUDES SCANPAR OBJECT (267/4). 1 THU SEP 12/96 23:39:34 Page 90 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00267/003 *DOWNDATE SCANPAR SA WATF:SCANPAR(1,999) D4T1 677 DOWNDATE.SCANPAR.SA.003 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 02:09:57 0 SUBROUTINE CALLED BY DOWNDATE (267/1) AND UNEDIT (561/1) TO SCAN PARAMETERS. 0 Referenced by comments of: 267/1, 561/1 00267/004 *DOWNDATE SCANPAR OC WATF:SCANPAR(1000) D4T1 678 DOWNDATE.SCANPAR.OC.004 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 02:09:59 0 Referenced by comments of: 267/2 00268 @TESTITP S # (OBSOLETE) D2T1 421 UM 00270/001 DISMOUNT SUBR SA G DMNT S0792 WSGFS FSNAME=DISMOUNT D4T1 679 DISMOUNT_SUBR..SA.001 1 LINE 80 5 PAGE UM WSG DEC. 01, 1976 13:10:50 0 THIS SUBROUTINE PRODUCES $RELEASE COMMANDS WHICH ARE PASSED TO CMDNOE FOR PROCESSING. 0 Referenced by comments of: 101/2 00270/002 DISMOUNT SUBR OC G # *CLSMOUNT (SEE COMP 101) UM WSG 00271/001 MOUNT SUBR SA G MNTS S0792 WSGFS FSNAME=MOUNT.SA D4T1 680 MOUNT_SUBR..SA.001 1 LINE 80 3 PAGE UM WSG DEC. 01, 1976 12:50:44 0 THIS SUBROUTINE PRODUCES A $MOUNT COMMAND WHICH IS PASSED TO CMDNOE FOR PROCESSING. 0 Referenced by comments of: 101/2 00271/002 MOUNT SUBR OC G # *CLSMOUNT (SEE COMP 101/2) UM WSG 00273/001 FPC SA G S0563 D4T1 VLO FSNAME=FPC..SA.001(1) 681 D4T1 681 FPC..SA.001 1 LINE 80 6 PAGE UM WSG JULY 31, 1973 21:33.40 0 SUBROUTINES E7090, D7090, E7090P, D7090P TO CONVERT IBM 7090 SERIES FLOATING POINT NUMBERS TO SYSTEM/360 LONG AND SHORT FORM. 00273/002 FPC OC G # *LIBRARY (SEE COMP 524) UM WSG 00274 GLINT S # (NOT DISTRIBUTED) D2T1 395 UM 00275/001 BITWISE LOGIC - IHCLOGIC SA G IHCL W062:LOGIC(1,999) D4T1 682 BITWISE_LOGIC_-_IHCLOGIC..SA.001 1 LINE 80 4 PAGE UM TIFFANY SEP. 15, 1977 18:53:12 0 SUBROUTINES AND, LAND, OR, LOR, XOR, LXOR, COMPL, LCOMPL, SHFTL, AND SHFTR USED FOR LOGICAL OPERATIONS IN FORTRAN. D4.0 VERSION IS MORE THAN 3 TIMES FASTER THAN PREVIOUS VERSIONS. 1 THU SEP 12/96 23:39:34 Page 91 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00275/002 BITWISE LOGIC - IHCLOGIC OC G # *LIBRARY (SEE COMP 524) UM TIFFANY 00278/001 IOH SA G IOH W016:IOH.S(1.8) D4.1T1 85 IOH..SA.001 1 LINE 80 153 PAGE UM SWARTZ MAY 13, 1978 17:07:43 0 I/O CONVERSION PACKAGE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 387/24, 400/1 00278/002 IOH OC G W016:IOH.O D4.1T1 86 IOH..OC.002 1 LINE 80 21 PAGE UM SWARTZ MAY 13, 1978 17:08:15 0 OBJECT IS ALSO IN *LIBRARY (524) -- MAY NOT BE EXACTLY THE SAME VERSION. 00278/003 IOH IOPKG SA G W016:IOHPKG.S D4.1T1 87 IOH.IOPKG.SA.003 1 LINE 68 5 PAGE UM SWARTZ MAY 13, 1978 17:08:19 0 COPIES *GDINFODSECT (594). 00278/004 IOH IOPKG OC G W016:IOHPKG.O D4.1T1 88 IOH.IOPKG.OC.004 1 LINE 80 3 PAGE UM SWARTZ MAY 13, 1978 17:08:22 0 OBJECT IS ALSO IN *LIBRARY (524). 00278/005 IOH TEST PGM SA G IOHT W016:TESTIOH.S D4T1 687 IOH.TEST_PGM.SA.005 1 LINE 80 11 PAGE UM SWARTZ JULY 27, 1977 02:10:39 0 PROGRAM TO TEST IOH. 00278/006 IOH TEST PGM OC G W016:TESTIOH.O D4T1 688 IOH.TEST_PGM.OC.006 1 LINE 80 10 PAGE UM SWARTZ JULY 27, 1977 02:10:41 00278/007 IOH IOHDBLIN SA W016:IOHDBLIN.S D4T1 689 IOH.IOHDBLIN.SA.007 1 LINE 74 7 PAGE UM SWARTZ JULY 27, 1977 02:10:43 00278/008 IOH IOHDBLIN OE ETC:IOHDBLIN D4T1 690 IOH.IOHDBLIN.OE.008 1 SEQ 2530 1 PAGE UM SWARTZ JULY 27, 1977 02:10:45 ETC.:IOHDBLIN 00278/009 IOH IOHDBLOUT SA W016:IOHOUT D4T1 691 IOH.IOHDBLOUT.SA.009 1 LINE 73 5 PAGE UM SWARTZ JULY 27, 1977 02:10:48 00278/010 IOH IOHDBLOUT OE ETC:IOHDBLOUT D4T1 692 IOH.IOHDBLOUT.OE.010 1 SEQ 1363 1 PAGE UM SWARTZ JULY 27, 1977 02:10:49 ETC.:IOHDBLOUT 00278/011 IOH IOHEVAL SA W016:IOHEVAL.S(5) D4.1T1 89 IOH.IOHEVAL.SA.011 1 LINE 65 2 PAGE UM SWARTZ MAY 13, 1978 17:08:24 0 COPIES COPY:ED.COPY.M (648/16). 1 THU SEP 12/96 23:39:34 Page 92 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00278/012 IOH IOHEVAL OC ETC:IOHEVAL D4.1T1 90 IOH.IOHEVAL.OC.012 1 SEQ 80 1 PAGE UM SWARTZ MAY 13, 1978 17:08:25 ETC.:IOHEVAL 00279 LINPG SUBR S # (NOT DISTRIBUTED) D2T1 396 UM 00282/001 PRINTER PLOT SUBR SA G S1011 ETC 'MISC' FSNAME=PTRPLOT D4.2T1 133 PRINTER_PLOT_SUBR..SA.001 1 LINE 69 21 PAGE UM LIFT FEB. 23, 1979 11:28:04 0 COPIES "PLOTDS" (282/2). ASSEMBLE WITH PAR=BATCH. 0 Referenced by comments of: 133/1 00282/002 PRINTER PLOT SUBR COPY SECTION SA G S1011 ETC 'MISC' FSNAME=PTRPLOTD4DS D4T1 696 PRINTER_PLOT_SUBR.COPY_SE.SA.002 1 LINE 80 4 PAGE UM LIFT APR. 06, 1977 18:45:48 0 "PLOTDS" COPY SECTION COPIED BY 282/1. 0 Referenced by comments of: 282/1 00282/003 PRINTER PLOT SUBR OC G # *LIBRARY (SEE COMP 524) UM LIFT 00283/001 BLOCKED I/O - QSAM SA G S0563 D4T1 VLO FSNAME=BLOCKED_I/O_-_QSAM..SA.001(1) 697 D4T1 697 BLOCKED_I/O_-_QSAM..SA.001 1 LINE 80 19 PAGE UM H YOUNG JULY 31, 1973 21:35.33 0 LIBRARY SUBROUTINES TO PERFORM FIXED BLOCKING (FORMAT FB) ON FILES, TAPES, ETC. ENTRY POINTS: QGETUCB (QGTUCB), QOPEN, QGET, QPUT, QCLOSE, QCNTRL, AND QFREEUCB (QFRUCB). 0 Referenced by comments of: 137/1 00283/002 BLOCKED I/O - QSAM OC G # *LIBRARY (SEE COMP 524) UM H YOUNG 00285/001 SKIP SUBR SA G SKIP S0792 WSGFS FSNAME=SKIP D4.1T1 91 SKIP_SUBR..SA.001 1 LINE 80 5 PAGE UM WSG MAY 02, 1978 23:41:03 0 SUBR TO SPACE A FILE OR MAG TAPE FORWARD OR BACKWARD BY RECORDS AND/OR FILES. SOURCE IN LINES (1,999). 00285/002 SKIP SUBR OC G # *LIBRARY (SEE COMP 524) UM WSG 00286/001 MATH SUBRS SLE S # (NOT DISTRIBUTED) D2T1 389 UM 00286/002 MATH SUBRS INV S # (NOT DISTRIBUTED) D2T1 390 UM 00286/003 MATH SUBRS INV1 S # (NOT DISTRIBUTED) D2T1 391 UM 1 THU SEP 12/96 23:39:34 Page 93 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00286/004 MATH SUBRS LRD S # (NOT DISTRIBUTED) D2T1 392 UM 00286/005 MATH SUBRS DBS S # (NOT DISTRIBUTED) D2T1 393 UM 00286/006 MATH SUBRS DBST S # (NOT DISTRIBUTED) D2T1 394 UM 00287/001 SPIE SUBR SA G MTA:SPIE(1,999) D4T1 699 SPIE_SUBR..SA.001 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 02:12:55 MTA.:SPIE 0 SUBROUTINE TO INTERFACE OS/360 'SPIE' MACRO WITH MTS 'PGNTTRP' SUBROUTINE. 00287/002 SPIE SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00291/001 *IEHMOVE SA G SCAN W062:IEHMOVE.S D4T1 700 IEHMOVE..SA.001 1 LINE 80 28 PAGE UM TIFFANY JULY 27, 1977 02:12:57 0 PROGRAM TO READ UNLOADED OS/360 DATA SETS IN MTS. SEE ALSO *UNLINKER (562). CALLS THE BLKRTN SUBROUTINE (562/2) TO READ OS/VS IEBCOPY OR IEHMOVE TAPES. 00291/002 *IEHMOVE OE G *IEHMOVE D4.2T1 134 IEHMOVE..OE.002 1 LINE 7856 8 PAGE UM TIFFANY MAR. 26, 1979 02:33:16 *IEHMOVE 00293/001 *MACGEN SA G MACG WATF:MACGEN(1,999) D4T1 702 MACGEN..SA.001 1 LINE 80 3 PAGE UM HELFFRICH JULY 27, 1977 02:13:02 0 GENERATE THE DIRECTORY FOR A MACRO LIBRARY. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 648/12 00293/002 *MACGEN OE G *MACGEN D4T1 703 MACGEN..OE.002 1 SEQ 658 1 PAGE UM HELFFRICH JULY 27, 1977 02:13:04 *MACGEN 00296 CHECKDASD SA # (OBSOLETE) D2T1 119 UM 00297/001B *LINKEDIT LKEDCMD SP G W052:LINK.CMD.S RD16T1 30 LINKEDIT.LKEDCMD.SP.001 1 LINE 99 33 PAGE UM SHERRY JULY 12, 1979 22:27:18 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) ***************************************************************************** RD16 CHANGES: 1) TERSE NOW DEFAULTS TO THE MTS SETTING. 1 THU SEP 12/96 23:39:34 Page 94 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 2) RETURN IS NOW LIKE MTS INSTEAD OF STOP. 3) LINKEDIT NOW TERMINATES EXECUTION BY A STOP STATEMENT INSTEAD OF CALLING SYSTEM. 4) A WARNING MESSAGE IS PRINTED IF (IN COMMAND MODE) A USER DOES AN INCLUDE, COMBINE, PURGE BUT NO PUNCH BEFORE STOP. TERMINAL USERS ARE GIVEN A CHANCE TO CHANGE THEIR MINDS BEFORE STOPPING. 5) BUG FIX: $RUN *LINKEDIT SCARDS=NOSUCHFILE SPUNCH=-STUFF NOW WORKS AND DOESN'T PRINT ALL KINDS OF WEIRD GARBAGE DUE TO THE NONEXISTENT INPUT FILE. 6) BUG FIX: FORWARD REFERENCED ENTRY POINTS OF A BUFFERED CONTROL SECTION ARE NOW RESOLVED AND DEFINED PROPERLY. 7) IN BATCH, WARNINGS NO LONGER CAUSE AN ERROR RETURN IF QUIT=ON. 8) BUG FIX: AN INPUT FILE WITH A COM RECORD AT LINE 1 IN NO COMMAND MODE NO LONGER CAUSES AN ERRONEOUS ERROR MESSAGE TO BE PRINTED AND THEN CRAPS OUT. MOST OF THE ABOVE CHANGES WERE IN THE D4.2 VERSION, BUT WERE UNDOCUMENTED IN THE DRIVER FILE LISTING. NUMBERS 3, 7, AND 8 ARE NEW IN THE RD16 VERSION. ***************************************************************************** 0 Referenced by comments of: 297/11, 297/16 00297/002B *LINKEDIT INCLUDE SP G W052:LINK.INCL.S RD16T1 31 LINKEDIT.INCLUDE.SP.002 1 LINE 100 17 PAGE UM SHERRY JULY 12, 1979 22:27:27 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/003 *LINKEDIT PUNCH SP G W052:LINK.PUNCH.S D4T1 706 LINKEDIT.PUNCH.SP.003 1 LINE 100 7 PAGE UM SHERRY JULY 27, 1977 02:13:20 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/004 *LINKEDIT COMBINE SP G W052:LINK.COMB.S D4T1 707 LINKEDIT.COMBINE.SP.004 1 LINE 100 10 PAGE UM SHERRY JULY 27, 1977 02:13:22 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/005 *LINKEDIT SUBR SP G W052:LINK.SUBR.S D4T1 708 LINKEDIT.SUBR.SP.005 1 LINE 99 5 PAGE UM SHERRY JULY 27, 1977 02:13:25 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/006B *LINKEDIT LINK.COM SP G W052:LINK.COM RD16T1 32 LINKEDIT.LINK.COM.SP.006 1 LINE 100 6 PAGE UM SHERRY JULY 12, 1979 22:27:32 0 COPY SECTION REQUIRED TO COMPILE THE INDIVIDUAL ROUTINES. 1 THU SEP 12/96 23:39:34 Page 95 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LINE NUMBERS IN THIS FILE ARE IMPORTANT. 0 Referenced by comments of: 297/1, 297/2, 297/3, 297/4, 297/5, 297/8, 297/9, 297/10, 297/12, 297/13, 297/15, 297/16 00297/007 *LINKEDIT ASMSUBR SA G W052:LINK.ALIB.S D4T1 710 LINKEDIT.ASMSUBR.SA.007 1 LINE 71 3 PAGE UM SHERRY JULY 27, 1977 02:13:29 0 ASMG SUBROUTINES. 00297/008 *LINKEDIT DUMP SP G W052:LINK.DUMP.S D4T1 711 LINKEDIT.DUMP.SP.008 1 LINE 92 4 PAGE UM SHERRY JULY 27, 1977 02:13:31 0 SUBROUTINE TO PRODUCE ERROR DUMPS. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/009B *LINKEDIT UTIL SP G W052:LINK.UTIL.S RD16T1 33 LINKEDIT.UTIL.SP.009 1 LINE 88 3 PAGE UM SHERRY JULY 12, 1979 22:27:34 0 MISCELLANEOUS UTILITY SUBROUTINES. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/010 *LINKEDIT UNLK SP G W052:LINK.UNLK.S D4T1 713 LINKEDIT.UNLK.SP.010 1 LINE 100 6 PAGE UM SHERRY JULY 27, 1977 02:13:36 0 SUBROUTINE TO UNLINK MULTIPLE-CSECT MODULES. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/011 *LINKEDIT ATTN SA G W052:LINK.ATTN.S D4T1 714 LINKEDIT.ATTN.SA.011 1 LINE 67 1 PAGE UM SHERRY JULY 27, 1977 02:13:38 0 ROUTINE TO ALLOW *LINKEDIT TO FIELD ATTENTION INTERRUPTS. NOTE: THIS ROUTINE IS NO LONGER REQUIRED SINCE THE D4.0 PL1 COMPILER SUPPORTS ON CONDITION (ATTN), WHICH LKEDMCD (297/1) HAS BEEN CHANGED TO USE. 00297/012 *LINKEDIT PURGE SP G W052:LINK.PUREP.S D4T1 715 LINKEDIT.PURGE.SP.012 1 LINE 91 3 PAGE UM SHERRY JULY 27, 1977 02:13:40 0 SUBROUTINE TO IMPLEMENT PURGE AND REPLACE (UPDATE) COMMANDS. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/013 *LINKEDIT XMAL SP G W052:LINK.XMAL.S D4T1 716 LINKEDIT.XMAL.SP.013 1 LINE 96 8 PAGE UM SHERRY JULY 27, 1977 02:13:42 0 SUBROUTINE TO IMPLEMENT XREF, MAP, ATTRIBUTE, AND LIST COMMANDS. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 1 THU SEP 12/96 23:39:34 Page 96 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00297/014 *LINKEDIT IOCVT SA G W052:LINK.IOCVT.S D4T1 717 LINKEDIT.IOCVT.SA.014 1 LINE 72 17 PAGE UM SHERRY JULY 27, 1977 02:13:44 0 ROUTINES TO DO I/O CONVERSIONS, TEXT MODIFICATION, AND SCANNING; USED BY DISPLAY, SCAN, AND MODIFY COMMANDS. ASSEMBLE USING *SYSMAC. 00297/015 *LINKEDIT IOSUB SP G W052:LINK.IOSUB.S D4T1 718 LINKEDIT.IOSUB.SP.015 1 LINE 91 3 PAGE UM SHERRY JULY 27, 1977 02:13:47 0 SUBROUTINE USED BY DISPLAY, SCAN, AND MODIFY COMMANDS. CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. COMPILE WITH PARAMETER SORMGIN=(2,100,1) 00297/016 *LINKEDIT LINK.CMD.GEN C W052:LINK.CMD.G D4T1 719 LINKEDIT.LINK.CMD.GEN.C.016 1 LINE 106 1 PAGE UM SHERRY JULY 27, 1977 02:13:50 0 THIS IS AN MTS COMMAND SOURCE FILE TO RECOMPILE LINK.CMD.S (297/1). LINE NUMBERS IN THIS FILE ARE IMPORTANT. THIS FILE CONTAINS SOME $EDIT COMMANDS TO SET THE VERSION DATE IN W052:LINK.COM (297/6) BEFORE COMPILING. 00297/017B *LINKEDIT LINKLOAD OC G W052:LINKLOAD RD16T1 34 LINKEDIT.LINKLOAD.OC.017 1 LINE 32767 120 PAGE UM SHERRY JULY 12, 1979 22:27:34 0 UNLINKEDITED OBJECT FOR LINKAGE EDITOR. THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT. 0 Referenced by comments of: 297/18 00297/018 *LINKEDIT LINKEDIT.G C W052:LINKEDIT.G D4T1 721 LINKEDIT.LINKEDIT.G.C.018 1 LINE 34 1 PAGE UM SHERRY JULY 27, 1977 02:13:54 0 THIS FILE CONTAINS ALL THE MTS AND *LINKEDIT COMMANDS NECESSARY TO LINKEDIT THE UNLINKEDITED VERSION OF THE LINKAGE EDITOR (297/17). THE *LINKEDIT COMMAND "RENAME IHESAPC IHESAPE" IS IMPORTANT SO THAT THE PAR= FIELD ON A $RUN *LINKEDIT COMMAND WON'T BE INTERCEPTED BY THE PL1 ENVIRONMENT. 00297/019B *LINKEDIT OBJECT OE G *LINKEDIT RD16T1 35 LINKEDIT.OBJECT.OE.019 1 SEQ 32767 71 PAGE UM SHERRY JULY 12, 1979 22:27:44 *LINKEDIT 0 THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT. 00297/020 *LINKEDIT DESCRIPTION P W052:SUMMARY D4T1 723 LINKEDIT.DESCRIPTION.P.020 1 LINE 67 1 PAGE UM SHERRY JULY 27, 1977 02:13:59 0 BRIEF DESCRIPTION OF DIFFERENCES BETWEEN D3 AND D4 VERSION OF *LINKEDIT. 00298/001 *FORTRANH ASM SOU SA G S1099 FORTRN FSNAME=FTNH.ASM D4.2T1 140 FORTRANH.ASM_SOU.SA.001 1 LINE 80 282 PAGE UM HANSEN FEB. 04, 1979 13:57:59 0 SOURCE FOR ASSEMBLER MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND UNIVERSITY OF ROCHESTER VERSIONS. 1 THU SEP 12/96 23:39:34 Page 97 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ASSEMBLE USING 298/7 MACRO LIBRARY. 0 Referenced by comments of: 551/1 00298/002 *FORTRANH FORTRAN SOU SF G S1099 FORTRN FSNAME=FTNH.FTN D4.2T1 141 FORTRANH.FORTRAN_SOU.SF.002 1 LINE 80 129 PAGE UM HANSEN NOV. 14, 1978 17:50:31 0 SOURCE FOR FORTRAN MODULES WHICH HAVE BEEN CHANGED FROM THE OS AND UNIVERSITY OF ROCHESTER VERSIONS. 00298/003 *FORTRANH ROCHESTER SOU S G S1099 FORTRN FSNAME=FTNH.UOR D4.2T1 142 FORTRANH.ROCHESTER_SOU.S.003 1 LINE 80 93 PAGE UM HANSEN DEC. 01, 1978 12:43:27 0 SOURCE (ASSEMBLER AND FORTRAN) FOR THE MODULES FROM THE UNIVERSITY OF ROCHESTER. 00298/004 *FORTRANH OS SOURCE S O S0695 OSSRC5 2 D4.2T1 143 FORTRANH.OS_SOURCE.S.004 1 SEQ 80 1263 PAGE UM HANSEN MAR. 26, 1979 02:37:25 0 SOURCE MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS (RELEASE 20.1). NO PTF'S ARE INCLUDED IN THIS FILE. 00298/005 *FORTRANH OBJECT OC G S1099 FORTRN FSNAME=FORTRANH D4.2T1 144 FORTRANH.OBJECT.OC.005 1 LINE 22909 139 PAGE UM HANSEN MAR. 02, 1979 12:04:06 0 COMPLETE, UN-LINKEDITED FORTRAN H COMPILER, CONSISTING OF OBJECT FOR 298/1, 298/2, 298/3, AND 298/4. 00298/006 *FORTRANH *FORTRANH OE G *FORTRANH D4.2T1 145 FORTRANH.*FORTRANH.OE.006 1 LINE 32767 102 PAGE UM HANSEN MAR. 26, 1979 02:37:54 *FORTRANH 0 LINKEDITED VERSION OF 297/5. 00298/007 *FORTRANH MACLIB SM G S1099 FORTRN FSNAME=IEK.MACLIB D4.2T1 146 FORTRANH.MACLIB.SM.007 1 LINE 72 3 PAGE UM HANSEN NOV. 14, 1978 18:00:46 0 MACRO LIBRARY USED BY 298/1. 00299 *LOVOC S # (OBSOLETE) D2T2 205 UM 00300 *LODEF S # (OBSOLETE) D2T2 206 UM 00302 *SSPSOURCE SF G # (NOT DISTRIBUTED) D3T2 167 SSPSOURCE..SF.1 1 LINE 80 5 PAGE UM FEB. 17, 1972 13:31.13 00303/001A SORT SORT PGM SA G SORT S0027 DISTRB FSNAME=SORT D4.2T1 147 SORT.SORT_PGM.SA.001 1 LINE 80 85 PAGE UM ENGLE MAR. 02, 1979 17:48:28 0 GENERAL SORT PROGRAM. COPIES *CNFGINFODSECT (654). ASSEMBLE AS FOLLOWS FOR THE FOUR VERSIONS: 1 THU SEP 12/96 23:39:34 Page 98 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 &WARN SETB 0 &SUB SETB 0 FOR *SORT VERSION (303/4). CONTROL STATEMENT READ VIA GUSER MUST BE TERMINATED WITH THE END PARAMETER OR AN EOF. &SUB SETB 1 FOR SORT SUBROUTINE VERSION (303/6). CONTROL STATEMENT MUST BE TERMINATED WITH THE END PARAMETER. &WARN SETB 1 &SUB SETB 0 FOR *SORT VERSION (303/3). WARNING MESSAGE IS ISSUED IF CONTROL STATEMENT IS READ VIA GUSER AND NOT TERMINATED WITH THE END PARAMETER OR AN EOF. &SUB SETB 1 FOR SORT SUBROUTINE VERSION (303/5). WARNING MESSAGE IS ISSUED IF CONTROL STATEMENT IS NOT TERMINATED WITH THE END PARAMETER. NOTE: OTHER VALUES FOR MBYI AND MBYT MAY BE MORE APPROPRIATE FOR MACHINES OTHER THAN THE AMDAHL 470V/6 OR WITH A RATE STRUCTURE OTHER THAN ONE FOR WHICH THE COST OF 1 CPU SECOND EQUALS THE COST OF 200 VMI PAGE-SECONDS (AS AT UM). 00303/002A SORT SORT PGM UC G S0027 DISTRB FSNAME=SORTUPDATE D4.2T1 148 SORT.SORT_PGM.UU.002 1 LINE 72 6 PAGE UM ENGLE MAR. 02, 1979 17:49:43 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00303/003A SORT *SORT PHASE 2 OC G S0027 DISTRB FSNAME=1178SRT D4.2T1 149 SORT.*SORT_PHASE_2.OC.003 1 LINE 80 10 PAGE UM ENGLE MAR. 02, 1979 17:49:56 0 Referenced by comments of: 303/1 00303/004A SORT *SORT OC O S0027 DISTRB FSNAME=SRT D4.2T1 150 SORT.*SORT.OC.004 1 LINE 80 9 PAGE UM ENGLE MAR. 02, 1979 17:50:20 *SORT 0 Referenced by comments of: 303/1 00303/005A SORT SORT SUBR PH 2 OC G S0027 DISTRB FSNAME=1178SRT1 D4.2T1 151 SORT.SORT_SUBR_PH_2.OC.005 1 LINE 80 10 PAGE UM ENGLE MAR. 02, 1979 17:50:25 0 Referenced by comments of: 303/1 00303/006 SORT SORT SUBR OC O S0027 DISTRB FSNAME=SRT1 D4.2T1 152 SORT.SORT_SUBR.OC.006 1 LINE 80 10 PAGE UM ENGLE MAR. 02, 1979 17:50:30 0 Referenced by comments of: 303/1 1 THU SEP 12/96 23:39:34 Page 99 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00303/007 SORT SORT2/3/4 SUBR SA G SRT2 S0027 DISTRB FSNAME=SORT2 D4.2T1 153 SORT.SORT2/3/4_SUBR.SA.007 1 LINE 80 36 PAGE UM ENGLE FEB. 05, 1979 11:09:04 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/008 SORT SORT2/3/4 SUBR UC G # S0027 DISTRB FSNAME=SORT2UPDATE D4.2T1 154 SORT.SORT2/3/4_SUBR.UU.008 1 LINE 70 1 PAGE UM ENGLE JAN. 04, 1979 15:41:48 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00303/009 SORT SORT2/3/4 SUBR OC G S0027 DISTRB FSNAME=SRT2 D4.2T1 155 SORT.SORT2/3/4_SUBR.OC.009 1 LINE 80 5 PAGE UM ENGLE FEB. 05, 1979 11:09:10 00303/010 SORT MESSAGE SA G MSG S0027 DISTRB FSNAME=MESSAGE D4T1 738 SORT.MESSAGE.SA.006 1 LINE 80 4 PAGE UM ENGLE MAY 18, 1976 11:01:21 0 MODULE TO PRINT SORT ERROR MESSAGES (303/12). 0 Referenced by comments of: 303/16 00303/011 SORT MESSAGE OE G S0027 DISTRB FSNAME=MSG D4T1 739 SORT.MESSAGE.OE.007 1 LINE 80 1 PAGE UM ENGLE MAY 18, 1976 11:01:36 00303/012 SORT MESSAGES M S0027 DISTRB FSNAME=SORTMESSAGES D4.2T1 156 SORT.MESSAGES.M.012 1 LINE 81 3 PAGE UM ENGLE JAN. 04, 1979 15:49:18 0 SORT ERROR MESSAGES. NOTE: LINE NUMBERS ARE IMPORTANT IN THIS FILE. 0 Referenced by comments of: 303/10, 303/16 00303/013 SORT CHECK SA G CHK S0027 DISTRB FSNAME=CHECK D4T1 741 SORT.CHECK.SA.009 1 LINE 80 8 PAGE UM ENGLE JULY 08, 1976 14:36:37 0 MODULE TO IMPLEMENT THE SORT "CHK" PARAMETER. 0 Referenced by comments of: 303/16 00303/014 SORT CHECK OE G S0027 DISTRB FSNAME=CHK D4T1 742 SORT.CHECK.OE.010 1 LINE 80 2 PAGE UM ENGLE JULY 08, 1976 14:36:44 00303/015 SORT DOC WT S0027 DISTRB FSNAME=SORTWRITEUP D4.2T1 157 SORT.DOC.WT.015 1 LINE 256 51 PAGE UM ENGLE JAN. 04, 1979 15:54:23 0 TEXT/360 MASTER FOR MTS VOLUME 5 SORT WRITEUP INCLUDING PRELIMINARY ADDITIONS AND CORRECTIONS SINCE COMPUTING CENTER MEMO 368 (UPDATE 1 TO VOLUME 5, OCT/77). 1 THU SEP 12/96 23:39:34 Page 100 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00303/016 SORT *SORTLM G *SORTLM D4.2T1 158 SORT.*SORTLM..016 1 LINE 2657 4 PAGE UM ENGLE MAR. 26, 1979 02:39:06 *SORTLM 0 FILE CONTAINING ERROR MESSAGE PROGRAM (303/10), MESSAGES (303/12), CHECK ROUTINE (303/13), AND TAPESORT (303/23). THE VERSION OF TAPESORT IN THIS COMPONENT IS THE SAME AS 303/24 EXCEPT THAT IT SPECIFIES MODE=6250 FOR THE POOL TAPES. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00303/017 SORT SRTTMTST SA G SRTT S0027 DISTRB FSNAME=SRTTMTST D4T1 745 SORT.SRTTMTST.SA.013 1 LINE 80 4 PAGE UM ENGLE JAN. 24, 1977 16:01:14 0 MAIN PROGRAM TO PRODUCE CPU AND VMI TIMING RESULTS WHEN LOADED WITH *SORT. 00303/018 SORT SRTTMTST OC G S0027 DISTRB FSNAME=SRTT D4T1 746 SORT.SRTTMTST.OC.014 1 LINE 80 1 PAGE UM ENGLE JAN. 24, 1977 16:02:11 00303/019 SORT SORTPLOT SF G SRTP S0027 DISTRB FSNAME=SORTPLOT D4T1 747 SORT.SORTPLOT.SF.015 1 LINE 80 7 PAGE UM ENGLE MAY 18, 1976 11:19:41 0 PROGRAM TO GENERATE CALCOMP TIMING PLOTS FOR THE SORT WRITEUP. IT ASSUMES THE EXISTENCE OF THE PENCHG SUBROUTINE FOR MULTICOLOR PLOTS. A DUMMY SUBROUTINE MAY BE SUBSTITUTED. INTERNAL STATEMENT NUMBER 87 SHOULD BE SKIPPED TO ELIMINATE THE PLOTTING OF DATA POINTS. 00303/020 SORT SORTPLOT OC G S0027 DISTRB FSNAME=SRTP D4T1 748 SORT.SORTPLOT.OC.016 1 LINE 3500 4 PAGE UM ENGLE MAY 18, 1976 11:23:17 00303/021 SORT SORTPLOT D G S0027 DISTRB FSNAME=SRTPDATA D4T1 749 SORT.SORTPLOT.D.017 1 LINE 28 3 PAGE UM ENGLE SEP. 09, 1977 16:40:18 0 DATA FOR SORT TIMING PLOTS, MEASURED ON AMDAHL 470V/6. 00303/022 SORT SORTPLOT D G S0027 DISTRB FSNAME=SRTPPLOT D4T1 750 SORT.SORTPLOT.D.018 1 LINE 254 15 PAGE UM ENGLE SEP. 09, 1977 16:40:39 0 CALCOMP PLOT FILE FOR SORT TIMING PLOTS IN SORT WRITEUP. CONTAINS PPEN RECORDS FOR MULTICOLOR PLOTTING. 00303/023 SORT TAPESORT SA G TSRT S0027 DISTRB FSNAME=TAPESORT D4T1 751 SORT.TAPESORT.SA.019 1 LINE 80 18 PAGE UM ENGLE SEP. 02, 1976 12:02:04 0 MODULE TO IMPLEMENT THE TAPE MERGE OPTION IN SORT. CONTAINS A GBLC SYMBOL &MODE WITH VALUE '1600' WHICH SPECIFIES THE MODE (DENSITY) FOR THE POOL TAPES MOUNTED BY THIS PROGRAM. 0 Referenced by comments of: 303/16 00303/024 SORT TAPESORT OC G S0027 DISTRB FSNAME=TSRT D4T1 752 SORT.TAPESORT.OC.020 1 LINE 80 3 PAGE UM ENGLE SEP. 02, 1976 12:02:08 1 THU SEP 12/96 23:39:34 Page 101 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00303/025 SORT SRT2TIME SG G S0027 DISTRB FSNAME=SRT2TIME D4T1 753 SORT.SRT2TIME.SG.021 1 LINE 72 4 PAGE UM ENGLE SEP. 09, 1977 16:42:55 0 PROGRAM TO PRODUCE CPU TIMING RESULTS FOR SORT2, SORT3, AND SORT4. MAY BE USED TO TIME ONE OR MORE VERSIONS OF THESE SUBROUTINES. INFORMATION REQUESTED BY PROMPTING INCLUDES LOCATIONS (FILE NAMES ENTERED ONE/LINE TERMINATED BY EOF) OF ADDITIONAL VERSIONS (BESIDES THE ONE LOADED WITH THE PROGRAM), WHETHER THE RESULTS OF EACH INDIVIDUAL REPETITION ARE TO BE PRINTED, THE NUMBER OF REPETITIONS (0 OR MORE) FOR EACH TEST (RANDOM NUMBERS, ALREADY ORDERED, REVERSE ORDER, AND ALL EQUAL), ELEMENTS/ARRAY, ELEMENT LENGTH (LENGTH IS SAME FOR TAG ELEMENTS FOR SORT3), AND STARTING RANDOM NUMBER. IF ELEMENTS/ARRAY OR ELEMENT LENGTH IS ZERO, A NEW SET OF NUMBER OF REPETITIONS WILL BE REQUESTED. 00303/026 SORT SRT2TIME OC G S0027 DISTRB FSNAME=S2TM D4T1 754 SORT.SRT2TIME.OC.022 1 LINE 80 8 PAGE UM ENGLE SEP. 09, 1977 16:44:10 0 >>>>>>>> NOTE: REP CARD IN THIS OBJECT CAUSES THE TIMES TO BE PRINTED AS TIME/N RATHER THAN TIME/(N*LOG2(N)). 00303/027 SORT MEMO 379 WT W098:M379 D4.2T1 159 SORT.MEMO_379.WT.027 1 LINE 77 1 PAGE UM ENGLE MAR. 26, 1979 02:39:07 0 THIS IS COMPUTING CENTER MEMO 379 -- "SORT DELETE OUTPUT RECORDS PARAMETER AND SORT SIGNED DECIMAL AND ZONED DECIMAL FIELD LENGTH CHANGES." 00303/028 SORT MEMO 391 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M391SORT D4.2T1 160 SORT.MEMO_391.WF.028 1 LINE 80 3 PAGE UM ENGLE SEP. 13, 1978 14:08:30 0 THIS IS COMPUTING CENTER MEMO 391 -- "CHANGES TO THE SORT PROGRAMS." 00304/001 TAPE DIAGNOSTIC *TPD C *TPD D4.2T1 161 TAPE_DIAGNOSTIC.*TPD.C.001 1 LINE 61 1 PAGE UM WSG MAR. 26, 1979 02:39:10 *TPD 0 COMMAND FILE TO RUN THE SYSTEM TAPE DIAGNOSTIC PROGRAM (304/2). INVOKED BY ENTERING "MTS *TPD" ON THE OPERATOR'S CONSOLE. 00304/002 TAPE DIAGNOSTIC SA G TDIA WSG:TAPEDIAG(1,999) D4T1 756 TAPE_DIAGNOSTIC..SA.002 1 LINE 80 8 PAGE UM WSG JULY 27, 1977 02:24:20 WSG.:TAPEDIAG 0 SIMPLE TAPE DIAGNOSTIC PROGRAM. READS AND WRITES RANDOM LENGTH, RANDOM DATA RECORDS. WORKS ON BOTH 7- AND 9-TRACK. WHEN IT ASKS FOR A TAPE DRIVE, PARAMETERS MAY BE GIVEN AFTER THE DRIVE NAME AS FOLLOWS: 800 - FOR 9-TRACK, TEST 800 BPI. 1600 - FOR 9-TRACK, TEST 1600 BPI. 6250 - FOR 9-TRACK, TEST 6250 BPI. ALL - TEST THE ENTIRE TAPE RATHER THAN THE DEFAULT 300 READ/WRITE ATTEMPTS. IF NONE OF THE FIRST THREE PARAMETERS IS GIVEN, ALL 9-TRACK DENSITIES WILL BE TESTED IN SUCCESSION (800, 1600, AND 6250). IF ANY OF THESE DENSITIES IS NOT SUPPORTED BY THE DRIVE BEING TESTED, A WARNING MESSAGE WILL BE PRODUCED AND THAT DENSITY IS SKIPPED. ALL THREE 7-TRACK DENSITIES ARE ALWAYS TESTED ON AN INTERLEAVED RECORD-BY-RECORD BASIS. 1 THU SEP 12/96 23:39:34 Page 102 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 304/1 00304/003 TAPE DIAGNOSTIC OC G WSG:TAPEDIAG(1000) D4T1 757 TAPE_DIAGNOSTIC..OC.003 1 LINE 80 3 PAGE UM WSG JULY 27, 1977 02:24:22 00305/001 *FTNTOPL1 SLCPF4 SP O LCP S0721 'D3T2' FSNAME=FTNTOPL1.SLCPF4.SP.1(1) 177 D4T1 758 FTNTOPL1.SLCPF4.SP.001 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 22:47.13 0 IBM PROGRAM 360-CV-710: LCP FORTRAN-IV TO PL/I, VERSION 1 LEVEL 0. THE SOURCE DECKS (305/1 THRU 305/20) SHOULD BE STORED IN FILES NAMED AS INDICATED. THE UPDATE DECK (305/21) WILL CONVERT THESE FILES, WHICH ARE UNMODIFIED IBM SOURCE, INTO A VERSION THAT WILL RUN IN MTS. MOST OF THESE PROGRAMS ARE WRITTEN IN PL/I VERSION 4 WITH SORGMIN=(2,41). THE ONLY PROGRAMS WHICH ARE NOT PL/I ARE SCONVER, SPUTTBS, AND SLBLNK, WHICH ARE ASSEMBLY LANGUAGE. UNCHANGED SINCE DIST 2. 00305/002 *FTNTOPL1 SCONVER SA O CON S0721 'D3T2' FSNAME=FTNTOPL1.SCONVER.SA.2(1) 178 D4T1 759 FTNTOPL1.SCONVER.SA.002 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:47.14 00305/003 *FTNTOPL1 SPUTTBS SA O PUT S0721 'D3T2' FSNAME=FTNTOPL1.SPUTTBS.SA.3(1) 179 D4T1 760 FTNTOPL1.SPUTTBS.SA.003 1 SEQ 80 24 PAGE UM TIFFANY JULY 31, 1973 22:47.18 0 Referenced by comments of: 305/21 00305/004 *FTNTOPL1 SLTCOL SP O LTC S0721 'D3T2' FSNAME=FTNTOPL1.SLTCOL.SP.4(1) 180 D4T1 761 FTNTOPL1.SLTCOL.SP.004 1 SEQ 80 12 PAGE UM TIFFANY JULY 31, 1973 22:47.22 00305/005 *FTNTOPL1 SIPPRS SP O IPP S0721 'D3T2' FSNAME=FTNTOPL1.SIPPRS.SP.5(1) 181 D4T1 762 FTNTOPL1.SIPPRS.SP.005 1 SEQ 80 27 PAGE UM TIFFANY JULY 31, 1973 22:47.25 00305/006 *FTNTOPL1 SPH10 SP O PH1 S0721 'D3T2' FSNAME=FTNTOPL1.SPH10.SP.6(1) 182 D4T1 763 FTNTOPL1.SPH10.SP.006 1 SEQ 80 11 PAGE UM TIFFANY JULY 31, 1973 22:47.28 00305/007 *FTNTOPL1 SFNPRO SP O FNP S0721 'D3T2' FSNAME=FTNTOPL1.SFNPRO.SP.7(1) 183 D4T1 764 FTNTOPL1.SFNPRO.SP.007 1 SEQ 80 10 PAGE UM TIFFANY JULY 31, 1973 22:47.30 00305/008 *FTNTOPL1 SDMPRO SP O DMP S0721 'D3T2' FSNAME=FTNTOPL1.SDMPRO.SP.8(1) 184 D4T1 765 FTNTOPL1.SDMPRO.SP.008 1 SEQ 80 18 PAGE UM TIFFANY JULY 31, 1973 22:47.32 00305/009 *FTNTOPL1 SNLPRO SP O NLP S0721 'D3T2' FSNAME=FTNTOPL1.SNLPRO.SP.9(1) 185 D4T1 766 FTNTOPL1.SNLPRO.SP.009 1 SEQ 80 9 PAGE UM TIFFANY JULY 31, 1973 22:47.34 00305/010 *FTNTOPL1 SFTPRO SP O FTP S0721 'D3T2' FSNAME=FTNTOPL1.SFTPRO.SP.10(1) 186 D4T1 767 FTNTOPL1.SFTPRO.SP.010 1 SEQ 80 21 PAGE UM TIFFANY JULY 31, 1973 22:47.38 00305/011 *FTNTOPL1 SRTPRO SP O RTP S0721 'D3T2' FSNAME=FTNTOPL1.SRTPRO.SP.11(1) 187 D4T1 768 FTNTOPL1.SRTPRO.SP.011 1 SEQ 80 10 PAGE UM TIFFANY JULY 31, 1973 22:47.40 00305/012 *FTNTOPL1 SIOPRO SP O IOP S0721 'D3T2' FSNAME=FTNTOPL1.SIOPRO.SP.12(1) 188 D4T1 769 FTNTOPL1.SIOPRO.SP.012 1 SEQ 80 25 PAGE UM TIFFANY JULY 31, 1973 22:47.43 00305/013 *FTNTOPL1 SARPRO SP O ARP S0721 'D3T2' FSNAME=FTNTOPL1.SARPRO.SP.13(1) 189 D4T1 770 FTNTOPL1.SARPRO.SP.013 1 SEQ 80 27 PAGE UM TIFFANY JULY 31, 1973 22:47.47 1 THU SEP 12/96 23:39:34 Page 103 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00305/014 *FTNTOPL1 SCAPRO SP O CAP S0721 'D3T2' FSNAME=FTNTOPL1.SCAPRO.SP.14(1) 190 D4T1 771 FTNTOPL1.SCAPRO.SP.014 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:47.49 00305/015 *FTNTOPL1 SIFPRO SP O IFP S0721 'D3T2' FSNAME=FTNTOPL1.SIFPRO.SP.15(1) 191 D4T1 772 FTNTOPL1.SIFPRO.SP.015 1 SEQ 80 6 PAGE UM TIFFANY JULY 31, 1973 22:47.52 00305/016 *FTNTOPL1 SALPRO SP O ALP S0721 'D3T2' FSNAME=FTNTOPL1.SALPRO.SP.16(1) 192 D4T1 773 FTNTOPL1.SALPRO.SP.016 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 22:47.54 00305/017 *FTNTOPL1 SPH20 SP O PH2 S0721 'D3T2' FSNAME=FTNTOPL1.SPH20.SP.17(1) 193 D4T1 774 FTNTOPL1.SPH20.SP.017 1 SEQ 80 16 PAGE UM TIFFANY JULY 31, 1973 22:47.58 00305/018 *FTNTOPL1 SPH30 SP O PH3 S0721 'D3T2' FSNAME=FTNTOPL1.SPH30.SP.18(1) 194 D4T1 775 FTNTOPL1.SPH30.SP.018 1 SEQ 80 41 PAGE UM TIFFANY JULY 31, 1973 22:48.03 00305/019 *FTNTOPL1 SLBLNK SA O SLBL S0721 'D3T2' FSNAME=FTNTOPL1.SLBLNK.SA.19(1) 195 D4T1 776 FTNTOPL1.SLBLNK.SA.019 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:48.07 00305/020 *FTNTOPL1 SUT1 SP O S0721 'D3T2' FSNAME=FTNTOPL1.SUT1.SP.20(1) 196 D4T1 777 FTNTOPL1.SUT1.SP.020 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 22:48.08 00305/021 *FTNTOPL1 UPDATE UU O S0563 D4T1 VLO FSNAME=FTNTOPL1.UPDATE.UU.021(1) 778 D4T1 778 FTNTOPL1.UPDATE.UU.021 1 LINE 80 4 PAGE UM TIFFANY JULY 27, 1977 02:25:15 0 UPDATE DECK, INCLUDING MTS COMMANDS, TO PRODUCE IN A FILE "NEWLCP" A VERSION OF *FTNTOPL1 THAT WILL RUN IN MTS. THIS DECK WILL HAVE TO BE CHANGED TO MEET LOCAL CONDITIONS - IT CURRENTLY USES THE DATA CELL. LATEST VERSION CORRECTS SPUTTBS (305/3) SO THAT THERE CAN BE MORE THAN 200 INPUT CARDS. 0 Referenced by comments of: 305/1 00305/022 *FTNTOPL1 OC O *FTNTOPL1 D4T1 779 FTNTOPL1..OC.022 1 SEQ 22330 46 PAGE UM TIFFANY JULY 27, 1977 02:25:17 *FTNTOPL1 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00306/001 *WIREWRAP WW.S.MAIN SA G WWMN S0767 'SAVETAPE' FSNAME=WW.S.MAIN D4T1 780 WIREWRAP.WW.S.MAIN.SA.001 1 LINE 80 55 PAGE UM GOEN AUG. 21, 1975 11:54:24 0 PROGRAM TO PRODUCE ALL SORTS OF NEAT OUTPUT ABOUT WIRING BACKPANELS FOR HARDWARE DEVICES. INPUT TO THE PROGRAM IS A MACRO-ORIENTED LANGUAGE FOR DESCRIBING HARDWARE DEVICES FROM LOGIC DIAGRAMS. OUTPUT INCLUDES LISTS OF SIGNALS, WIRE-CHAINS, IC'S USED, COST AND POWER TOTALS, AND A PUNCHED CARD DECK FOR AUTOMATICALLY DRIVING ANY GARDNER-DENVER WIREWRAP MACHINE. THE WIREWRAP PROGRAM CONSISTS OF THREE CSECTS: WW.S.MAIN (306/1), WW.S.AUX (306/2), AND WW.S.MACR (306/3). EACH REQUIRES COPY SECTIONS WWCOPY (306/5) AND WWDATA (306/6) AND MACRO LIBRARIES WWMAC (306/7) AND *SYSMAC. THE OBJECT MODULE (*WIREWRAP) MUST BE RUN IN CONJUNCTION WITH THE *WWLIB (306/9) LIBRARY FILE OR MUST BE CONCATENATED WITH A PRIVATE SUBROUTINE PACKAGE USED TO DEFINE THE CHARACTERISTICS OF THE IC MOUNTING TECHNIQUE. SOURCE FILE WWJOB (306/8) WILL ASSEMBLE *WIREWRAP. 0 Referenced by comments of: 306/1 1 THU SEP 12/96 23:39:34 Page 104 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/002 *WIREWRAP WW.S.AUX SA G WWAU S0767 'SAVETAPE' FSNAME=WW.S.AUX D4T1 781 WIREWRAP.WW.S.AUX.SA.002 1 LINE 80 42 PAGE UM GOEN AUG. 21, 1975 11:54:30 0 Referenced by comments of: 306/1 00306/003 *WIREWRAP WW.S.MACR SA G WWMC S0767 'SAVETAPE' FSNAME=WW.S.MACR D4T1 782 WIREWRAP.WW.S.MACR.SA.003 1 LINE 80 29 PAGE UM GOEN AUG. 21, 1975 11:54:38 0 Referenced by comments of: 306/1 00306/004 *WIREWRAP *WIREWRAP OE G *WIREWRAP D4T1 783 WIREWRAP.*WIREWRAP.OE.004 1 SEQ 12724 15 PAGE UM GOEN JULY 27, 1977 02:29:07 *WIREWRAP 00306/005 *WIREWRAP WWCOPY SA G WWCO S0767 'SAVETAPE' FSNAME=WWCOPY D4T1 784 WIREWRAP.WWCOPY.SA.005 1 LINE 80 4 PAGE UM GOEN AUG. 21, 1975 11:55:07 0 COPY SECTION USED BY 306/1, 306/2, AND 306/3 0 Referenced by comments of: 306/1 00306/006 *WIREWRAP WWDATA SA G WWDA S0767 'SAVETAPE' FSNAME=WWDATA D4T1 785 WIREWRAP.WWDATA.SA.006 1 LINE 80 8 PAGE UM GOEN AUG. 21, 1975 11:55:02 0 COPY SECTION USED BY 306/1, 306/2, AND 306/3 0 Referenced by comments of: 306/1 00306/007 *WIREWRAP WWMAC SM G S0767 'SAVETAPE' FSNAME=WWMAC D4T1 786 WIREWRAP.WWMAC.SM.007 1 LINE 73 3 PAGE UM GOEN AUG. 21, 1975 11:54:50 0 MACRO LIB USED BY 306/1, 306/2, AND 306/3 0 Referenced by comments of: 306/1 00306/008 *WIREWRAP WWJOB C G S0767 'SAVETAPE' FSNAME=WWJOB D4T1 787 WIREWRAP.WWJOB.C.008 1 LINE 92 1 PAGE UM GOEN AUG. 21, 1975 11:54:55 0 Referenced by comments of: 306/1 00306/009 *WIREWRAP *WWLIB OL G *WWLIB D4.1T1 99 WIREWRAP.*WWLIB.OL.009 1 LINE 2948 37 PAGE UM GOEN MAY 13, 1978 17:10:10 *WWLIB 0 NON-STANDARD LIBRARY FILE USED BY *WIREWRAP TO OBTAIN CHARACTERISTICS OF THE IC MOUNTING TECHNIQUE. CONSISTS OF A DIRECTORY FOLLOWED BY THE LINK-EDITED OBJECT MODULES FOR BAY TYPES: LAB, LAB16, IC, MSERIES, PG1, PG3, PG5, PG13, UG1, MIC, RSERIES, 8SERIES, CHIP, AND DOUGLAS. THE *WIREWRAP USER'S GUIDE (306/33) DESCRIBES MOST OF THESE BAY TYPES. 8SERIES IS USED FOR CLASSIC PDP-8 MINCOMPUTERS. CHIP AND DOUGLAS ARE DESCRIBED IN THEIR RESPECTIVE FORTRAN SOURCE CODES. THIS LIBRARY ALSO MAKES USE OF OBJECT FILES *WWSQGRD (306/11), *WWSTGRD1 (306/13), AND *WWSTGRD2 (306/15). 0 Referenced by comments of: 306/1, 306/16, 306/17, 306/18, 306/19, 306/20, 306/21, 306/22, 306/23, 306/24, 306/25, 1 THU SEP 12/96 23:39:34 Page 105 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 306/26, 306/27, 306/28, 306/29 00306/010 *WIREWRAP SQGRD SA G SQGR S0767 'SAVETAPE' FSNAME=SQGRD.S D4T1 789 WIREWRAP.SQGRD.SA.010 1 LINE 80 7 PAGE UM GOEN DEC. 13, 1973 12:57.39 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/011 *WIREWRAP SQGRD OE G *WWSQGRD D4T1 790 WIREWRAP.SQGRD.OE.011 1 SEQ 606 1 PAGE UM GOEN JULY 27, 1977 02:29:46 *WWSQGRD 0 Referenced by comments of: 306/9 00306/012 *WIREWRAP STGRD1 SA G STG1 S0767 'SAVETAPE' FSNAME=STGRD1.S D4T1 791 WIREWRAP.STGRD1.SA.012 1 LINE 80 8 PAGE UM GOEN DEC. 13, 1973 12:57.57 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/013 *WIREWRAP STGRD1 OE G *WWSTGRD1 D4T1 792 WIREWRAP.STGRD1.OE.013 1 SEQ 726 1 PAGE UM GOEN JULY 27, 1977 02:29:50 *WWSTGRD1 0 Referenced by comments of: 306/9 00306/014 *WIREWRAP STGRD2 SA G STG2 S0767 'SAVETAPE' FSNAME=STGRD2.S D4T1 793 WIREWRAP.STGRD2.SA.014 1 LINE 80 8 PAGE UM GOEN DEC. 13, 1973 12:58.13 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/015 *WIREWRAP STGRD2 OE G *WWSTGRD2 D4T1 794 WIREWRAP.STGRD2.OE.015 1 SEQ 5718 2 PAGE UM GOEN JULY 27, 1977 02:29:55 *WWSTGRD2 0 Referenced by comments of: 306/9 00306/016 *WIREWRAP LAB SF G LAB S0767 'SAVETAPE' FSNAME=LAB.S D4T1 795 WIREWRAP.LAB.SF.016 1 LINE 80 5 PAGE UM GOEN FEB. 20, 1976 14:55:25 0 SUBROUTINE PACKAGE FOR BAY TYPE 'LAB'. OBJECT MODULE IN *WWLIB (306/9). 00306/017 *WIREWRAP LAB16 SF G S0767 'SAVETAPE' FSNAME=LAB16.S D4.1T1 100 WIREWRAP.LAB16.SF.017 1 LINE 70 3 PAGE UM GOEN MAR. 13, 1978 15:48:56 0 SUBROUTINE PACKAGE FOR BAY TYPE 'LAB16', WHICH IS THE SAME AS 'LAB' EXCEPT IT ALLOWS FOR 14- OR 16-PIN CHIPS. OBJECT MODULE IN *WWLIB (306/9). 00306/018 *WIREWRAP MSERIES SF G MSER S0767 'SAVETAPE' FSNAME=MSERIES.S D4T1 796 WIREWRAP.MSERIES.SF.017 1 LINE 80 5 PAGE UM GOEN DEC. 13, 1973 12:56.06 0 SUBROUTINE PACKAGE FOR BAY TYPE 'MSERIES'. OBJECT MODULE IN *WWLIB (306/9). 1 THU SEP 12/96 23:39:34 Page 106 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/019 *WIREWRAP RSERIES SF G RSER S0767 'SAVETAPE' FSNAME=RSERIES.S D4T1 797 WIREWRAP.RSERIES.SF.018 1 LINE 80 5 PAGE UM GOEN DEC. 13, 1973 12:56.35 0 SUBROUTINE PACKAGE FOR BAY TYPE 'RSERIES'. OBJECT MODULE IN *WWLIB (306/9). 00306/020 *WIREWRAP IC SF G IC S0767 'SAVETAPE' FSNAME=IC.S D4T1 798 WIREWRAP.IC.SF.019 1 LINE 80 5 PAGE UM GOEN DEC. 13, 1973 12:55.30 0 SUBROUTINE PACKAGE FOR BAY TYPE 'IC'. OBJECT MODULE IN *WWLIB (306/9). 00306/021 *WIREWRAP MIC SF G MIC S0767 'SAVETAPE' FSNAME=MIC.S D4T1 799 WIREWRAP.MIC.SF.020 1 LINE 80 6 PAGE UM GOEN JAN. 16, 1974 13:12.44 0 SUBROUTINE PACKAGE FOR BAY TYPE 'MIC'. OBJECT MODULE IN *WWLIB (306/9). 00306/022 *WIREWRAP PG1 SF G PG1 S0767 'SAVETAPE' FSNAME=79.PG1SOU D4T1 800 WIREWRAP.PG1.SF.021 1 LINE 80 6 PAGE UM GOEN DEC. 13, 1973 13:35.38 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG1'. OBJECT MODULE IN *WWLIB (306/9). 00306/023 *WIREWRAP PG3 SF G PG3 S0767 'SAVETAPE' FSNAME=79.PG3SOU D4T1 801 WIREWRAP.PG3.SF.022 1 LINE 80 7 PAGE UM GOEN DEC. 13, 1973 13:36.09 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG3'. OBJECT MODULE IN *WWLIB (306/9). 00306/024 *WIREWRAP PG5 SF G PG5 S0767 'SAVETAPE' FSNAME=79.PG5SOU D4T1 802 WIREWRAP.PG5.SF.023 1 LINE 80 6 PAGE UM GOEN DEC. 13, 1973 13:36.26 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG5'. OBJECT MODULE IN *WWLIB (306/9). 00306/025 *WIREWRAP PG13 SF G PG13 S0767 'SAVETAPE' FSNAME=79.PG13SOU D4T1 803 WIREWRAP.PG13.SF.024 1 LINE 80 7 PAGE UM GOEN DEC. 13, 1973 13:35.53 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG13'. OBJECT MODULE IN *WWLIB (306/9). 00306/026 *WIREWRAP UG1 SA G UG1 S0767 'SAVETAPE' FSNAME=AUGATUG1.S D4T1 804 WIREWRAP.UG1.SA.025 1 LINE 80 20 PAGE UM GOEN JAN. 16, 1974 13:13.19 0 SUBROUTINE PACKAGE FOR BAY TYPE 'UG1'. OBJECT MODULE IN *WWLIB (306/9). 00306/027 *WIREWRAP CHIP SF G S0767 'SAVETAPE' FSNAME=CHIP.S D4T1 805 WIREWRAP.CHIP.SF.026 1 LINE 69 3 PAGE UM GOEN FEB. 20, 1976 14:54:28 0 SUBROUTINE PACKAGE FOR BAY TYPE 'CHIP'. USEFUL FOR "BREADBOARDING" APPLICATIONS; I.E. STICKING WIREWRAP SOCKETS INTO VECTOR BOARD. COMPLETE DOCUMENTATION IS IN THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE. OBJECT MODULE IN *WWLIB (306/9). 00306/028 *WIREWRAP DOUGLAS SF G S0767 'SAVETAPE' FSNAME=DOUGLAS.S D4T1 806 WIREWRAP.DOUGLAS.SF.027 1 LINE 69 4 PAGE UM GOEN FEB. 20, 1976 14:58:54 0 SUBROUTINE PACKAGE FOR BAY TYPE 'DOUGLAS' -- THE DEC-BAY-COMPATIBLE '10-DE-77' SOCKET BOARD. DOCUMENTATION IS IN THE FORTRAN SOURCE FOR THE FIRST SUBROUTINE. OBJECT MODULE IN *WWLIB (306/9). 1 THU SEP 12/96 23:39:34 Page 107 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/029 *WIREWRAP 8SERIES SF G S0767 'SAVETAPE' FSNAME=8SERIES.S D4T1 807 WIREWRAP.8SERIES.SF.028 1 LINE 73 3 PAGE UM GOEN DEC. 13, 1973 12:57.00 0 SUBROUTINE PACKAGE FOR BAY TYPE '8SERIES' -- FOR DEC'S PDP-8 CLASSIC MINI-COMPUTER. OBJECT MODULE IN *WWLIB (306/9). 00306/030 *WIREWRAP *WWICMAC D *WWICMAC D4.2T1 162 WIREWRAP.*WWICMAC.D.030 1 LINE 65 4 PAGE UM GOEN MAR. 26, 1979 02:39:11 *WWICMAC 0 THIS FILE CONTAINS "WIREWRAP MACROS" FOR MOST OF THE IC'S USED FOR LOGIC DESIGN AT THE UM COMPUTING CENTER. THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES "PAR=TYPE=IC" FOR THE MOUNTING TECHNIQUE. 00306/031 *WIREWRAP *WWLABMAC D *WWLABMAC D4.2T1 163 WIREWRAP.*WWLABMAC.D.031 1 LINE 55 3 PAGE UM GOEN MAR. 26, 1979 02:39:12 *WWLABMAC 0 THIS FILE CONTAINS A "WIREWRAP MACRO" DICTIONARY FOR IC'S USED IN THE LOGIC LAB "SUITCASE" USED IN ECE DEPARTMENT CLASSES AT UM. THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES "PAR=TYPE=LAB" FOR THE MOUNTING TECHNIQUE. 00306/032 *WIREWRAP TTLMAC D G S0767 'SAVETAPE' FSNAME=TTLMAC D4T1 810 WIREWRAP.TTLMAC.D.031 1 LINE 91 4 PAGE UM GOEN JUNE 18, 1976 13:38:55 0 ANOTHER "WIREWRAP MACRO" DICTIONARY. 00306/033 *WIREWRAP MEMO 267 WT S0563 D4T1 VLO FSNAME=WIREWRAP.MEMO_267.WT.032(1) 811 D4T1 811 WIREWRAP.MEMO_267.WT.032 1 LINE 81 49 PAGE UM GOEN FEB. 03, 1977 16:58:19 0 THIS IS COMPUTING CENTER MEMO 267 -- "*WIREWRAP USER'S GUIDE" 0 Referenced by comments of: 306/9 00307 *OBJCONV SA # (OBSOLETE) D3T2 220 OBJCONV..SA.1 1 SEQ 80 1 PAGE UM JULY 31, 1973 22:54.21 00308/001 *FMT MAIN SA O W030:UBCFMT D4.2T1 164 FMT.MAIN.SA.001 1 LINE 73 91 PAGE UBC LIFT MAR. 26, 1979 02:39:12 0 FORMAT TEXT PROCESSING LANGUAGE, KNOWN AS *FMT THROUGHOUT MTS-LAND EXCEPT AT UM WHERE IT IS CALLED *FORMAT. THIS IS THE MAIN PROGRAM AND "MAIN LINE" SUBROUTINES. ALL ROUTINES USING THE FMT#DS COPY SECTION (308/4) ARE INCLUDED HERE, NAMELY FMT, FMTCC, FMTOUT, AND CONCARD. THIS VERSION HAS MULTIPLE COLUMN SUPPORT AND SUPERFMT. ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC. 0 Referenced by comments of: 560/1 00308/002 *FMT SUBROUTINES SA O W030:UBCFMTRTN D4.2T1 165 FMT.SUBROUTINES.SA.002 1 LINE 77 29 PAGE UBC LIFT MAR. 26, 1979 02:39:23 0 SUBROUTINES WHICH DO NOT COPY FMT#DS. THE ROUTINE FMTOPTS SHOULD BE REASSEMBLED TO CHANGE THE NAME OF THE FUNCTION LIBRARY (ETC:FMTLIB) IF NECESSARY. ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC. 1 THU SEP 12/96 23:39:34 Page 108 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00308/003 *FMT MORE SUBRS SA O W030:UBCFMTRTN1 D4T1 814 FMT.MORE_SUBRS.SA.003 1 LINE 80 99 PAGE UBC LIFT JULY 27, 1977 02:36:32 0 ADDITIONAL SUBROUTINES WHICH ARE ALSO USED BY THE FUNCTIONS (308/7 ET SEQ). ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC. 00308/004 *FMT FMT#DS SA G W030:UBCFMTDS D4T1 815 FMT.FMT#DS.SA.004 1 LINE 80 13 PAGE UBC LIFT JULY 27, 1977 02:36:38 0 FMT#DS COPY SECTION. 0 Referenced by comments of: 308/1 00308/005 *FMT UBCMACLIB SM G W030:UBCMACLIB D4T1 816 FMT.UBCMACLIB.SM.005 1 LINE 80 15 PAGE UBC LIFT JULY 27, 1977 02:36:40 0 Referenced by comments of: 308/1, 308/2, 308/3, 308/8, 308/10 00308/006 *FMT OBJECT OE O *FORMAT D4.2T1 166 FMT.OBJECT.OE.006 1 SEQ 31983 14 PAGE UBC LIFT MAR. 26, 1979 02:39:25 *FORMAT 0 OBJECT FROM 308/1, 308/2, AND 308/3. 0 Referenced by comments of: 308/8 00308/007 *FMT HYPHEN S3 O W030:FMTHYPHEN D4T1 818 FMT.HYPHEN.S3.007 1 LINE 70 21 PAGE UBC LIFT JULY 27, 1977 02:36:45 0 THIS COMPONENT AND THOSE FOLLOWING ARE THE SOURCE FOR THE FMT DYNAMICALLY LOADED FUNCTION LIBRARY (ETC:FMTLIB). THIS IS THE HYPHEN FUNCTION AND ITS SUBROUTINES. IT HAS $CONTINUE WITHS WHICH ARE SELF-REFERENCING. AFTER COMPILATION, REFERENCES IN THE OBJECT TO INFREE1 SHOULD BE CHANGED TO INFREE#. THIS FUNCTION REFERENCES THE DATA FILE ETC:FMTDICT (308/18). 00308/008 *FMT GSPFRSP SA O W030:FMTHYPHEN1 D4T1 819 FMT.GSPFRSP.SA.008 1 LINE 80 4 PAGE UBC LIFT JULY 27, 1977 02:36:48 0 SUBROUTINE CALLED BY HYPHEN (308/6). ASSEMBLE USING UBCMACLIB (308/5) AND *SYSMAC. 00308/009 *FMT INDEX SF O W030:FMTINDEX D4T1 820 FMT.INDEX.SF.009 1 LINE 80 10 PAGE UBC LIFT JULY 27, 1977 02:36:50 0 INDEX FUNCTION AND SEVERAL SUBROUTINES. 00308/010 *FMT ASMFNS SA O W030:FMTASMFNS D4T1 821 FMT.ASMFNS.SA.010 1 LINE 80 11 PAGE UBC LIFT JULY 27, 1977 02:36:52 0 FUNCTIONS UCTRAN, IFDEF, IFNUL, BLOCK, CAPIT, DOUBLE, GETPAR, FMTCHAR, MOST, AND ALL. ASSEMBLE WITH PAR=B USING UBCMACLIB (308/5) AND *SYSMAC. 1 THU SEP 12/96 23:39:34 Page 109 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00308/011 *FMT CONTENTS SF O W030:FMTCONTENTS D4T1 822 FMT.CONTENTS.SF.011 1 LINE 73 4 PAGE UBC LIFT JULY 27, 1977 02:36:54 0 AFTER COMPILATION, CHANGE THE NAME "CONTNS " TO "CONTENTS" IN THE OBJECT. 00308/012 *FMT COUNT SF G W030:FMTCOUNT D4T1 823 FMT.COUNT.SF.012 1 LINE 72 3 PAGE UBC LIFT JULY 27, 1977 02:36:56 00308/013 *FMT DATE S3 O W030:FMTDATE D4T1 824 FMT.DATE.S3.013 1 LINE 71 4 PAGE UBC LIFT JULY 27, 1977 02:36:59 00308/014 *FMT FTNFNS SF O W030:FMTFTNFNS D4T1 825 FMT.FTNFNS.SF.014 1 LINE 72 6 PAGE UBC LIFT JULY 27, 1977 02:37:01 0 FUNCTIONS STACK, NULL, CENTER, TEST, INPUT, MYSORT, PAD, FOR, SPREAD, EXIST, JUST, AND FMTCNTRL. AFTER COMPILATION, CHANGE THE NAME "FMTCTL " TO "FMTCNTRL" IN THE OBJECT. 00308/015 *FMT SORT SF O W030:FMTSORT D4T1 826 FMT.SORT.SF.015 1 LINE 64 1 PAGE UBC LIFT JULY 27, 1977 02:37:03 0 AFTER COMPILATION, CHANGE THE NAME "FMTSRT " TO FMTSORT" IN THE OBJECT. 00308/016 *FMT PAGE SF O W030:FMTPAGE D4T1 827 FMT.PAGE.SF.016 1 LINE 80 7 PAGE UBC LIFT JULY 27, 1977 02:37:05 0 PAGE FUNCTION AND FMTPAG SUBROUTINE. 00308/017 *FMT FMTLIB OL O ETC:FMTLIB D4T1 828 FMT.FMTLIB.OL.017 1 SEQ 6314 26 PAGE UBC LIFT JULY 27, 1977 02:37:07 ETC.:FMTLIB 0 FUNCTION LIBRARY CONSISTING OF OBJECT FROM 308/7 THROUGH 308/16. 00308/018 *FMT DICT D ETC:FMTDICT D4T1 829 FMT.DICT.D.018 1 LINE 80 3 PAGE UBC LIFT JULY 27, 1977 02:37:09 ETC.:FMTDICT 0 HYPHENATION DICTIONARY DATA FILE USED BY 308/7. 0 Referenced by comments of: 308/7 00309 *STASS360 SA # (OBSOLETED BY *ASSIST, COMP 669) D3T2 225 STASS360.MONITOR.SA.1 1 SEQ 80 11 PAGE UM JULY 31, 1973 22:55.58 00311 *VARRLIST S # (OBSOLETE) D2T1 333 UM 00313 1130 RJE SUPPORT PROGRAM S # (OBSOLETE) D2T1 096 UM 1 THU SEP 12/96 23:39:34 Page 110 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00314/001 *LABELSNIFF SA G LBT:LBLSNIFF.S D4T1 830 LABELSNIFF..SA.001 1 LINE 80 53 PAGE UM TIFFANY JULY 27, 1977 02:37:11 0 THIS PROGRAM (ALSO KNOWN IN SOME LANDS AS *TAPESNIFF) FORMATS AND PRINTS INFORMATION ABOUT TAPES. FOR D4, THIS PROGRAM HAS BEEN CHANGED TO SUPPORT BOTH UNLABELED AS WELL AS LABELED TAPES, 6250 BPI, AND SPECIAL HANDLING FOR *FS TAPES. IT NOW PRINTS THE RACK NUMBER AND OTHER ITEMS SUCH AS "RING=IN". BETTER ERROR RECOVERY IS INCLUDED FOR 7-TRACK MIXED PARITY TAPES. UNLABELED TAPES ARE PROCESSED UP TO A DOUBLE FILE MARK WHICH IS TREATED AS THE LOGICAL END OF TAPE. *FS TAPES ARE DETECTED AND THE OUTPUT LISTING IS SIMILAR TO THAT PRODUCED BY THE *FS LIST COMMAND. A "METRIC" PARAMETER HAS BEEN ADDED TO USE METRIC MEASUREMENT INSTEAD OF FEET. THE "ENGLISH" PARAMETER IS THE DEFAULT HOWEVER. ANY INPUT LINE BEGINNING WITH A DOLLAR SIGN IS TREATED AS AN MTS COMMAND. COPIES *SENSEDSECT (3025). 00314/002 *LABELSNIFF OE G *LABELSNIFF D4T1 831 LABELSNIFF..OE.002 1 SEQ 8056 6 PAGE UM TIFFANY JULY 27, 1977 02:37:15 *LABELSNIFF 00315 *ANS SA # (OBSOLETE) D2T1 155 UM 00316 GENLIB SA # (OBSOLETED BY 389) D3T2 236 GENLIB..SA. 1 SEQ 80 6 PAGE UNE JULY 31, 1973 22:59.46 00318/001 *XPL SUBMONITOR SA G XMON S0296 S296 'JOH XPL' POSN=XMON@S 12 D4T1 832 XPL.SUBMONITOR.SA.001 1 SEQ 80 24 PAGE UM SHERRY JULY 27, 1977 02:39:23 0 XPL COMPILER AND EXECUTION CONTROL (SEE 1968 FJCC PROC, PP 617-636). ONE NEVER $RUNS AN XPL OBJECT DECK SINCE THE OBJECT CODE IS STORED IN A FORMAT UNIQUE TO XPL. RATHER, ONE RUNS THE XPL SUBMONITOR, WHICH IN TURN LOADS THE XPL PROGRAM AND PROVIDES A RUN-TIME INTERFACE TO MTS. SINCE THE COMPILER ITSELF IS ALSO AN XPL PROGRAM, IT MUST BE RUN IN THE SAME MANNER, I.E. IT MUST BE RUN UNDER CONTROL OF THE SUBMONITOR. THE 2 FILES *XPL AND *XPLGO CONTAIN MTS OBJECT FOR A SET OF DEFAULT FILE NAMES FOR THE COMPILER AND COMPILED CODE EXECUTION RESPECTIVELY. EACH ENDS WITH "$CONTINUE WITH *XMON" SO THAT BY $RUNNING *XPL OR *XPLGO, THE SUBMONITOR (*XMON), WITH APPROPRIATE DEFAULTS, IS INVOKED. MODIFIED UBC SOURCE FOR THE XPL SUBMONITOR (*XMON). 00318/002 *XPL SUBMONITOR OC G S0296 S296 'JOH XPL' POSN=XMON@O 14 D4T1 833 XPL.SUBMONITOR.OC.002 1 SEQ 80 2 PAGE UM SHERRY JULY 27, 1977 02:39:26 0 THIS FILE PLUS THE OBJECT FOR TRACE (318/4) CONSTITUTE *XMON. THE FOLLOWING PATCH SHOULD BE INSERTED INTO THIS OBJECT FILE: REP 0008C6 01,0700,0700 TRACE DIES IF LEFT IN 0 Referenced by comments of: 318/4 00318/003 *XPL TRACE SA G TRAC S0296 S296 'JOH XPL' POSN=TRACE@S 4 D4T1 834 XPL.TRACE.SA.003 1 SEQ 80 33 PAGE UM SHERRY JULY 27, 1977 02:39:35 0 UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON) AND *SPL (336). 1 THU SEP 12/96 23:39:34 Page 111 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00318/004 *XPL TRACE OC G S0296 S296 'JOH XPL' POSN=TRACE@O 6 D4T1 835 XPL.TRACE.OC.004 1 SEQ 80 2 PAGE UM SHERRY JULY 27, 1977 02:39:38 0 THE SUBMONITOR OBJECT (318/2) PLUS THIS FILE CONSTITUTE *XMON. THE FOLLOWING 2 LOADER CARDS SHOULD ALSO BE ADDED AT THE END OF *XMON: LCS LCSYMBOL LDT XPLSM 0 Referenced by comments of: 318/2 00318/005 *XPL *XMON OE G *XMON D4T1 836 XPL.*XMON.OE.005 1 SEQ 4384 2 PAGE UM SHERRY JULY 27, 1977 02:39:38 *XMON 00318/006 *XPL DEFAULTS SA G DFLT S0296 S296 'JOH XPL' POSN=DFLT@S 1 D4T1 837 XPL.DEFAULTS.SA.006 1 SEQ 80 1 PAGE UM SHERRY JULY 27, 1977 02:39:44 0 SOURCE FOR THE 2 SETS OF SUBMONITOR DEFAULTS, THE FIRST FOR THE EXECUTION OF THE COMPILER (*XPL) AND THE SECOND FOR THE EXECUTION OF COMPILED CODE (*XPLGO). 00318/007 *XPL *XPL OC G *XPL D4T1 838 XPL.*XPL.OC.007 1 LINE 80 1 PAGE UM SHERRY JULY 27, 1977 02:39:44 *XPL 0 OBJECT FOR THE FIRST DEFAULTS PROGRAM. CONTAINS A "$CONTINUE WITH *XMON" LINE. 00318/008 *XPL *XPLGO OC G *XPLGO D4T1 839 XPL.*XPLGO.OC.008 1 LINE 80 1 PAGE UM SHERRY JULY 27, 1977 02:39:46 *XPLGO 0 OBJECT FOR THE SECOND DEFAULTS PROGRAM. CONTAINS A "$CONTINUE WITH *XMON" LINE. 00318/009 *XPL COMPILER SX G *XCOM D4T1 840 XPL.COMPILER.SX.009 1 LINE 80 54 PAGE UM SHERRY JULY 27, 1977 02:39:48 *XCOM 0 XPL SOURCE FOR THE XPL COMPILER (*XCOM). THIS VERSION IS MODIFIED FROM AN EARLY STANFORD RELEASE; IT IS NOT THE SHARE RELEASE. IT WAS USED QUITE HEAVILY AT UM AND IS RELATIVELY BUG-FREE. MOST XPL USERS NOW USE *EXPL (495) BECAUSE INDEPENDENTLY COMPILABLE PROCEDURES REDUCE THE COST OF COMPILER DEVELOPMENT. THE COMPILER SOURCE IS KEPT IN A PUBLIC FILE (*XCOM) SO THAT PARTS OF IT ARE AVAILABLE FOR EXTRACTION BY STUDENTS IN COMPILER WRITING COURSES. 00318/010 *XPL COMPILER O G *XPLCOMPILER D4T1 841 XPL.COMPILER.O.010 1 SEQ 240 29 PAGE UM SHERRY JULY 27, 1977 02:39:57 *XPLCOMPILER 0 XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER). 00318/011 *XPL *XPLIBRARY SX G *XPLIBRARY D4T1 842 XPL.*XPLIBRARY.SX.011 1 SEQ 80 1 PAGE UM SHERRY JULY 27, 1977 02:39:59 *XPLIBRARY 0 SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL. 1 THU SEP 12/96 23:39:34 Page 112 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00318/012 *XPL *SKELETON SX G *SKELETON D4T1 843 XPL.*SKELETON.SX.012 1 LINE 80 10 PAGE UM SHERRY JULY 27, 1977 02:40:01 *SKELETON 0 THIS IS THE MINIMAL FRAMEWORK FOR A TABLE-DRIVEN COMPILER. USER IS EXPECTED TO REPLACE THE SYNTAX TABLES WITH APPROPRIATE TABLES PRODUCED BY *ANALYZER AND COMPLETE THE COMPILER BY WRITING THE CODE SYNTHESIZER SECTION. 0 Referenced by comments of: 495/9 00318/013 *XPL ANALYZER SX G S0296 S296 'JOH XPL' POSN=ANAL@S 15 D4T1 844 XPL.*ANALYZER.SX.013 1 SEQ 80 33 PAGE UM SHERRY JULY 27, 1977 02:40:20 0 XPL PROGRAM TO ANALYZE A BNF DESCRIPTION OF A LANGUAGE AND PRODUCE TABLES FOR COMPILING IT. 0 Referenced by comments of: 495/8 00318/014 *XPL *ANALYZER O G *ANALYZER D4T1 845 XPL.*ANALYZER.O.014 1 SEQ 240 24 PAGE UM SHERRY JULY 27, 1977 02:40:21 *ANALYZER 0 XPL FORMAT OBJECT FILE. 00318/015 *XPL XPLBNF D G S0296 S296 'JOH XPL' POSN=XPLBNF 10 D4T1 846 XPL.XPLBNF.D.015 1 SEQ 80 3 PAGE UM SHERRY JULY 27, 1977 02:40:28 0 BNF DESCRIPTION OF XPL SUITABLE FOR INPUT TO *ANALYZER. 00318/016 *XPL MEMO 230 WF S0563 D4T1 VLO FSNAME=XPL.MEMO_230.WF.016(1) 847 D4T1 847 XPL.MEMO_230.WF.016 1 LINE 127 4 PAGE UM SHERRY JAN. 25, 1977 18:03:50 0 THIS IS COMPUTING CENTER MEMO 230 -- "XPL USER'S GUIDE" 00319 *FLIKPLT OC # (OBSOLETE) D3T2 251 FLIKPLT..OC. 1 LINE 80 15 PAGE UM JULY 31, 1973 23:03.29 00321 *PIB OC # (OBSOLETE) D3T2 252 PIB..OC. 1 LINE 80 122 PAGE UM JULY 31, 1973 23:03.31 00322/001 *2260RTN SA G S0563 D4T1 VLO FSNAME=2260RTN..SA.001(1) 848 D4T1 848 2260RTN..SA.001 1 LINE 80 56 PAGE UM MTA JULY 27, 1977 02:40:36 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 2260 DISPLAY. SUPPORT FOR THE @MAXLEN MODIFIER HAS BEEN ADDED, BUT NOT TESTED DUE TO LACK OF HARDWARE AT UM. ASSEMBLE USING COPY:MTS.MACROS (344/3). 00322/002 *2260RTN OC G *2260RTN D4T1 849 2260RTN..OC.002 1 LINE 80 6 PAGE UM MTA JULY 27, 1977 02:40:40 *2260RTN 1 THU SEP 12/96 23:39:34 Page 113 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00324/001 EDITOR - OLD SA G # (OBSOLETE) D3T2 255 EDITOR..SA.1 1 LINE 80 97 PAGE UM FEB. 02, 1973 21:38.36 00324/002 EDITOR - OLD MESSAGES M # (OBSOLETE) D3T2 258 EDITOR.MESSAGES.M.4 1 LINE 70 8 PAGE UM JULY 31, 1973 23:08.21 00324/003 EDITOR - OLD *ED SA G # (OBSOLETE) D3T2 259 EDITOR.*ED.SA.5 1 LINE 80 3 PAGE UM JULY 31, 1973 23:08.24 00326/001 STAT MONTHLY SUMMARY MAIN PGM SP G S0027 DISTRB FSNAME=SYSSTAT D4.2T1 167 STAT_MONTHLY_SUMMARY.MAIN.SP.001 1 LINE 99 17 PAGE UM ENGLE JAN. 10, 1979 16:58:17 0 READS STATISTICS (*STATISTICS) TAPES OR FILES AND PRINTS MANY PAGES OF INTERESTING (HOPEFULLY) INFORMATION ABOUT A MONTHS RUNNING OF THE SYSTEM. IT ALSO READS CPU UTILIZATION AND HASP BATCH QUEUE STATISTICS FROM SSRTN (413/1) (NORMALLY IN SYS:SSRTNSUMM) AND PRINTS THAT INFORMATION. THE FOLLOWING LOGICAL I/O UNITS ARE USED: 0 INPUT OF SSRTN (413/1) SUMMARY DATA. SPRINT OUTPUT. THE FOLLOWING PL/I FILE NAMES ARE USED: ERROR LOG OF SKIPPED INPUT RECORDS, LIST OF WEEKDAY MINUTES DURING WHICH THE MOST USERS WERE SIGNED ON, AND LIST OF WEEKEND MINUTES DURING WHICH THE MOST USERS WERE SIGNED ON. THE NUMBER OF MINUTES FOR EACH CATEGORY IS APPROXIMATELY 1% OF THE TOTAL MINUTES FOR THE COMBINED CATEGORIES. SAVE SAVE OR RESTORE INTERMEDIATE INFORMATION (SEE BELOW). SCARDS USES GET LIST FOR 6 OR 7 ITEMS, FOLLOWED BY GET DATA FOR 2 VARIABLES: 1) 'MM' MONTH TO ANALYZE, OR '00' LOOK AT ALL INPUT (REQUIRES 'FULL', Â'CPU', AND Â'MIXED') 2) 'YYYY' YEAR 3) 'PART' USE DATA FROM WHATEVER PART OF MONTH IS PRESENT, OR 'FULL' EXPECT DATA FROM ENTIRE MONTH, OR '9TO5' FILTERS ALL DATA EXCEPT 9AM TO 5PM, OR '5TOM' FILTERS ALL DATA EXCEPT 5PM TO MIDNIGHT, OR 'COUR' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS BEGINNING WITH "1", "2", OR "3", OR 'UGRD' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS 1AWA, 1BF4, 1AAA, 1AGA, 1APA, 1AVA, 1CXA, OR 1HGA. 4) 'REST' RESTORE DATA (CHECKPOINT) FROM SAVE, OR 'SAVE' SAVE (CHECKPOINT) DATA ON SAVE, OR 'USER' SAVE NUM OF USERS VERSUS TIME DATA ONLY ON SAVE, OR 'CPU.' SKIP EVERYTHING EXCEPT JOBS PROGRAM STATISTICS, OR 'NONE' NONE OF ABOVE 5) 'CPU' PROCESS JOBS STATISTICS DATA (SEE COMP 413/10), OR 'YES' SAME AS 'CPU', OR 'NOT' OMIT PROCESSING OF JOBS STATISTICS 1 THU SEP 12/96 23:39:34 Page 114 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 6) 'WHOLE' NO RATE CHANGE DURING PERIOD OF COMPUTATION, OR 'MIXED' RATE CHANGE OCCURRED 7) 'DD' FIRST DAY (OF MONTH) FOR NEW RATES. GIVE ONLY IF 'MIXED' GIVEN. 8) TESTCOUNT=N NUMBER OF INPUT RECORDS TO ECHO ON SPRINT (DEBUG) 9) DEBUG='1'B PRODUCES GENERAL DEBUG OUTPUT. PRINTS FOR ONLY N RECORDS IF TESTCOUNT GIVEN. THIS IS FOLLOWED BY ONE OR MORE LINES EACH CONTAINING A MOUNT REQUEST OR FILE NAME FOR STATISTICS RECORDS. THE LIST OF INPUT FILES IS TERMINATED BY "DONE" OR AN END-OF-FILE. AT UM, THE NORMAL INPUT USED IS: 'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE' ; STATM 9TP *T* VOL=STATM 'MMM 19YY MONTHLY STATISTICS' STAT 9TP *T* VOL=STAT 'MMM+1 1, 19YY, 1 A.M. DAILY STATISTICS' BILL 9TP *T* VOL=STAT 'MMM 19YY DAILY MTS STATISTICS FILE CHARGES' DONE 00326/002 STAT MONTHLY SUMMARY PPAGES SUBR SP G S0027 DISTRB FSNAME=SYSSTAT2000 D4.2T1 168 STAT_MONTHLY_SUMMARY.PPAG.SP.002 1 LINE 99 7 PAGE UM ENGLE JAN. 10, 1979 16:59:12 0 SUBROUTINE CALLED BY MAIN PROGRAM. 00326/003 STAT MONTHLY SUMMARY CPUSE SUBR SG G S0027 DISTRB FSNAME=CPUSE D4.1T1 104 STAT_MONTHLY_SUMMARY.CPUS.SG.003 1 LINE 179 4 PAGE UM ENGLE DEC. 13, 1977 16:12:06 0 SUBROUTINE WHICH READS SSRTN SUMMARY DATA (SEE COMP 413/1) AND PRINTS THE RESULTS. CALLED ONLY IF 'CPU' IS SPECIFIED FOR THE FIFTH PARAMETER OR 'CPU.' IS SPECIFIED FOR THE FOURTH PARAMETER. 0 Referenced by comments of: 413/1 00326/004 STAT MONTHLY SUMMARY SETRATE SP G SRAT S0027 DISTRB FSNAME=SYSSTAT4000 D4.2T1 169 STAT_MONTHLY_SUMMARY.SETR.SP.004 1 LINE 80 6 PAGE UM ENGLE JAN. 10, 1979 17:03:02 0 SUBROUTINES WHICH FILL IN A RATE STRUCTURE BY CALLING GETRATES AND DECOMPOSE A RATE NUMBER INTO SUBSCRIPTS. ASSUMPTION OF HOW RATE NUMBER IS COMPUTED IS BUILT-IN, SEE LINE 68 FF. 326/1 CALLS SETRATE TO DYNAMICALLY CONSTRUCT THE CURRENT AND OLD RATES. EXTERNAL REFERENCE TO GETRATE ON ESD CARD IN OBJECT DECK MUST BE CHANGED TO GETRATES. RUN WITH PROT=OFF. 00326/005 STAT MONTHLY SUMMARY OBJECT OE G S0027 DISTRB FSNAME=SYST D4.2T1 170 STAT_MONTHLY_SUMMARY.OBJE.OE.005 1 LINE 32767 80 PAGE UM ENGLE JAN. 10, 1979 17:03:32 0 OBJECT MODULES FOR 326/1, 326/2, 326/3, AND 326/4. 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 THU SEP 12/96 23:39:34 Page 115 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00326/006 STAT MONTHLY SUMMARY BATCHID D S0027 DISTRB FSNAME=BATCHID D4T1 855 STAT_MONTHLY_SUMMARY.BATC.D.006 1 LINE 4 1 PAGE UM ENGLE JAN. 21, 1977 14:35:03 0 100-LINE DATA FILE REFERENCED TO DEFINE THE MAPPING BETWEEN THE FIRST TWO DIGITS OF THE S-8 NUMBER AND THE REMOTE BATCH STATION ID'S. 00328 ALLLINES SA # (OBSOLETE) D2T1 264 UM 00330/001 ABKGET SP O W041:ABKGET.S4 D4T1 856 ABKGET..SP.001 1 LINE 80 4 PAGE UM DWB JULY 27, 1977 02:41:12 0 PROGRAM TO SORT AND TABULATE TERMINAL ANSWERBACK STATISTICS FROM *STATISTICS DATA. WILL READ INPUT FROM EITHER AN INDIVIDUAL OR MONTHLY STATISTICS TAPE. FIRST LINE OF INPUT MUST BE MONTH AND YEAR, SECOND AND SUCCEEDING LINES MUST BE FILE OR TAPE NAMES, OR MOUNT REQUESTS, TERMINATED BY AN END-OF-FILE OR "DONE" -- FOR EXAMPLE '01' '1977' (LINE MUST HAVE TRAILING BLANK) STATM 9TP *T* VOL=STATM 'JAN 1977' STAT 9TP *T* VOL=STAT '1 FEB 1977 01:00' DONE 00330/002 ABKGET OC O W041:ABKGET.O4 D4T1 857 ABKGET..OC.002 1 LINE 80 9 PAGE UM DWB JULY 27, 1977 02:41:15 00334/001 *SNOBOL4B MAIN SA G S0721 'D3T2' FSNAME=SNOBOL4B.S4.SA.1(1) 267 D4T1 858 SNOBOL4B.MAIN.SA.001 1 SEQ 80 107 PAGE UM SWARTZ JULY 31, 1973 23:13.39 0 BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.0). THIS FILE IS ASSUMED TO BE FILE 1 ON THE INPUT TAPE FOR THE UPDATE. COPIES MLINK (182/11), PARMS (182/12), AND MDATA (182/13). 0 Referenced by comments of: 334/8 00334/002 *SNOBOL4B SUBR SA G S0721 'D3T2' FSNAME=SNOBOL4B.SUBR.SA.2(1) 268 D4T1 859 SNOBOL4B.SUBR.SA.002 1 SEQ 80 49 PAGE UM SWARTZ JULY 31, 1973 23:14.01 0 BELL LABS SOURCE FOR SUBROUTINES. THIS FILE IS ASSUMED TO BE FILE 6 ON THE INPUT TAPE FOR THE UPDATE. 00334/003 *SNOBOL4B CLEANIO SA G S0721 'D3T2' FSNAME=SNOBOL4B.CLEANIO.SA.5(1) 271 D4T1 860 SNOBOL4B.CLEANIO.SA.003 1 SEQ 80 8 PAGE UM SWARTZ JULY 31, 1973 23:14.24 0 BELL LABS SOURCE FOR CLEANIO. THIS FILE IS ASSUMED TO BE FILE 5 ON THE INPUT TAPE FOR THE UPDATE. 00334/004 *SNOBOL4B BASIC MACROS SA G S0721 'D3T2' FSNAME=SNOBOL4B.BASIC_MACROS.SA.3(1) 269 D4T1 861 SNOBOL4B.BASIC_MACROS.SA.004 1 SEQ 80 41 PAGE UM SWARTZ JULY 31, 1973 23:14.15 0 BELL LABS SOURCE FOR BASIC MACROS. THIS FILE IS ASSUMED TO BE FILE 4 ON THE INPUT TAPE FOR THE UPDATE. 1 THU SEP 12/96 23:39:34 Page 116 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00334/005 *SNOBOL4B NEW MACROS SA G S0721 'D3T2' FSNAME=SNOBOL4B.NEW_MACROS.SA.4(1) 270 D4T1 862 SNOBOL4B.NEW_MACROS.SA.005 1 SEQ 80 5 PAGE UM SWARTZ JULY 31, 1973 23:14.21 0 BELL LABS SOURCE FOR NEW MACROS. THIS FILE IS ASSUMED TO BE FILE 3 ON THE INPUT TAPE FOR THE UPDATE. 00334/006 *SNOBOL4B GENERATE C S0540 'SNOBOL4B FS' FSNAME=S4B.GEN D4T1 863 SNOBOL4B.GENERATE.C.006 1 LINE 128 1 PAGE UM SWARTZ MAY 08, 1975 14:44:26 0 MTS COMMANDS TO UPDATE, ASSEMBLE, AND TEST THE MTS VERSION OF SNOBOL4B. 00334/007 *SNOBOL4B LINKEDIT C S0540 'SNOBOL4B FS' FSNAME=S4B.LINK D4T1 864 SNOBOL4B.LINKEDIT.C.007 1 LINE 56 1 PAGE UM SWARTZ MAY 08, 1975 14:44:28 0 MTS COMMANDS TO LINKEDIT, AND TEST THE MTS VERSION OF SNOBOL4B. 00334/008 *SNOBOL4B UPDATE UU G S0540 'SNOBOL4B FS' FSNAME=S4B.MTS.U D4T1 865 SNOBOL4B.UPDATE.UU.008 1 LINE 80 22 PAGE UM SWARTZ MAY 08, 1975 14:44:18 0 *UPDATE DECK TO MODIFIY BELL LABS SOURCE (334/1) TO BRING IT UP TO VERSION 3.10 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.10) AND TO ADD THE CHANGES NECESSARY TO RUN IT IN MTS. 00334/009 *SNOBOL4B OBJECT OE G *SNOBOL4B D4T1 866 SNOBOL4B.OBJECT.OE.009 1 SEQ 32767 41 PAGE UM SWARTZ JULY 27, 1977 02:45:10 *SNOBOL4B 0 OBJECT FROM ASSEMBLY OF MAIN, SUBR, AND CLEANIO PLUS FTN.O WHICH HAS BEEN COMBINED AND PURGED BY *LINKEDIT. 00334/010 *SNOBOL4B FTN.O OE G S0540 'SNOBOL4B FS' FSNAME=S4B.FTN.O D4T1 867 SNOBOL4B.FTN.O.OE.010 1 LINE 255 5 PAGE UM SWARTZ MAY 08, 1975 14:44:42 0 FORTRAN I/O ROUTINES FOR USED BY SNOBOL4B. 00334/011 *SNOBOL4B MACLEAN # (SEE COMP 182) UM SWARTZ 00334/012 *SNOBOL4B TEST PGMS SS G S0540 'SNOBOL4B FS' FSNAME=S4B.TEST D4T1 868 SNOBOL4B.TEST_PGMS.SS.012 1 LINE 74 5 PAGE UM SWARTZ MAY 08, 1975 14:44:44 0 PROGRAMS FOR TESTING SNOBOL4B. 00335/001 *DITTO SA G S0791 FMTJNK 'FORMAT' FSNAME=DITTO D4T1 869 DITTO..SA.001 1 LINE 80 10 PAGE UM LIFT JULY 27, 1977 02:45:21 0 PROGRAM TO PRODUCE DITTO (OR OTHER DUPLICATING PROCESS) MASTERS ON A 2741 OR 1050 FROM PRINTED OUTPUT (SUCH AS FROM *FORMAT) WHICH MAY INCLUDE OVERPRINTING. 00335/002 *DITTO OE G *DITTO D4T1 870 DITTO..OE.002 1 SEQ 2070 2 PAGE UM LIFT JULY 27, 1977 02:45:21 *DITTO 1 THU SEP 12/96 23:39:34 Page 117 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00336/001 *SPL SUBMONITOR SA # (NOT DISTRIBUTED) D3T2 277 SPL.SUBMONITOR.SA.1 1 SEQ 80 21 PAGE UM JULY 31, 1973 23:16.06 0 Referenced by comments of: 318/3 00336/002 *SPL COMPILER SX # (NOT DISTRIBUTED) D3T2 279 SPL.COMPILER.SX.4 1 SEQ 80 160 PAGE UM JULY 31, 1973 23:16.33 00337/001 PRINTTRACE SA G MTA:PRINTTRACE(1,999) D4.2T1 171 PRINTTRACE..SA.001 1 LINE 79 3 PAGE UM MTA MAR. 26, 1979 02:39:38 MTA.:PRINTTRACE 0 SUBROUTINE TO PRINT TRACE TABLE ENTRIES FROM DUMP TAPE OR STAT JOB TAPE. TO GET TRACE TABLE ON STAT JOB TAPE TYPE "TRCTP" ON OPERATORS CONSOLE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 400/1, 400/13, 1028/3 00337/002 PRINTTRACE OC G MTA:PRINTTRACE(1000,1999) D4.2T1 172 PRINTTRACE..OC.002 1 LINE 80 4 PAGE UM MTA MAR. 26, 1979 02:39:39 00338/001 RIPPLE PN/QN SA O MTA:RIPPLE(1,999) D4T1 873 RIPPLE.PN/QN.SA.001 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 02:45:27 MTA.:RIPPLE 0 PROGRAM TO RIPPLE PRINT ON A PN OR QN PRINTER. USEFUL FOR CLEANING A TRAIN OR CHECKING OUT A PRINTER. OLTEP (458) DOES A BETTER JOB. 00338/002 RIPPLE PN/QN OC O MTA:RIPPLE(1000) D4T1 874 RIPPLE.PN/QN.OC.002 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 02:45:29 00338/003 RIPPLE *RIP C *RIP D4T1 875 RIPPLE.*RIP.C.003 1 LINE 36 1 PAGE UM MTA JULY 27, 1977 02:45:32 *RIP 0 COMMAND FILE TO RUN MTA:RIPPLE(1000). INVOKED BY ENTERING "MTS *RIP , PTRX" ON THE OPERATOR'S CONSOLE, WHERE PTRX IS THE PRINTER TO BE RIPPLED. 0 Referenced by comments of: 338/6 00338/004 RIPPLE TN SA O MTA:TNRIP(1,999) D4T1 876 RIPPLE.TN.SA.004 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 02:45:34 MTA.:TNRIP 0 SAME AS 338/1 EXCEPT FOR TN PRINTERS. 00338/005 RIPPLE TN OC O MTA:TNRIP(1000) D4T1 877 RIPPLE.TN.OC.005 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 02:45:36 00338/006 RIPPLE *TNR C *TNR D4T1 878 RIPPLE.*TNR.C.006 1 LINE 18 1 PAGE UM MTA JULY 27, 1977 02:45:38 *TNR 0 SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000). 1 THU SEP 12/96 23:39:34 Page 118 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00339 WRITE80 S # (OBSOLETE) D2T1 165 UM 00340/001 READRESTP SA O S0938 FSAVE2 VLO FSNAME=READRESTP(1) D4T1 879 READRESTP..SA.001 1 LINE 80 11 PAGE UM MTA JAN. 07, 1977 01:57:29 0 PROGRAM WHICH WILL READ A DUMP/RESTORE TAPE AND EXTRACT THINGS FROM AN OS 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. OBJECT AT LINE 1000. 00340/002 READRESTP SUBROUTINE SA O # (PART OF 340/1) UM MTA 0 SUBROUTINE CALLED BY 340/1. 00340/003 READRESTP OC O # (PART OF 340/1) UM MTA 00341/001 RDRSTP UNLINK SA # (OBSOLETED BY *UNLINKER, COMP 562) D2T1 168 UM 00341/002 RDRSTP BLKRTN SA # (OBSOLETED BY *UNLINKER) D2T1 169 UM 00342 LIBPRINT S # (OBSOLETE) D2T1 171 UM 00343 MTS.CONTAB SA # (OBSOLETED BY 344) D3.2T1 180 MTS.CONTAB..SA. 1 LINE 80 4 PAGE UM MAR. 21, 1975 01:24:57 00344/001 MTS.MACROS MASTER SOURCE SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=MTS.MACROS D4.1T1 106 MTS.MACROS..SM. 1 LINE 80 75 PAGE UM MTS HELFFRICH MAY 13, 1978 17:12:45 0 D4.1 MASTER SOURCE FOR THE MTS MACRO LIBRARY WHICH IS USED TO ASSEMBLE MTS (042) AND THE "MTS SUBROUTINES" (AS LISTED UNDER THE COMMENTS FOR 042/2) IN ADDITION TO MANY OTHER PROGRAMS. 00344/002B MTS.MACROS UPDATE UC G MTS:MACROSUPD RD16T1 36 MTS.MACROS.UPDATE.UC.002 1 LINE 72 11 PAGE UM MTS HELFFRICH JULY 12, 1979 22:27:46 MTS.:MACROSUPD 0 MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING THE D4.1 SOURCE AS BASE. THE UPDATED SOURCE, WHEN RUN THROUGH *MACUTIL, WILL PRODUCE THE CURRENT MACRO LIBRARY (344/3). 00344/003B MTS.MACROS MACRO LIBRARY SM G COPY:MTS.MACROS RD16T1 37 MTS.MACROS.MACRO_LIBRARY.SM.003 1 LINE 72 45 PAGE UM MTS HELFFRICH JULY 12, 1979 22:27:48 COPY:MTS.MACROS 0 THIS IS "COPY:MTS.MACROS" WHICH IS PRODUCED BY *MACUTIL, USING AS INPUT THE 1 THU SEP 12/96 23:39:34 Page 119 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 OUTPUT FROM THE *CDUPDATE RUN OF 344/2 AGAINST 344/1. 0 Referenced by comments of: 1/5, 42/1, 101/1, 116/1, 135/1, 198/1, 322/1, 344/2, 354/1, 354/5, 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 388/1, 388/2, 400/3, 413/5, 447/1, 464/1, 482/51, 500/34, 509/1, 513/1, 531/1, 531/6, 531/13, 535/1, 535/3, 535/9, 539/1, 553/1, 553/2, 553/5, 567/1, 570/1, 578/1, 585/1, 600/1, 600/4, 600/6, 600/8, 600/10, 615/13, 629/1, 631/1, 635/1, 636/1, 637/1, 638/1, 639/1, 648/1, 648/7, 648/9, 648/14, 648/17, 651/10, 725/1, 732/1, 761/1, 761/3, 1067/5, 3024/1, 4000/1 00345 MTS.EQU SA # (OBSOLETED BY 344) D3.2T1 182 MTS.EQU..SA. 1 LINE 80 4 PAGE UM MAR. 21, 1975 01:25:01 00346 MTS.DSECT SA # (OBSOLETED BY 344) D3.2T1 183 MTS.DSECT..SA. 1 LINE 80 20 PAGE UM MAR. 21, 1975 01:25:03 00347 MTS.EQU2 SA # (OBSOLETED BY 344) D3.2T1 184 MTS.EQU2..SA. 1 LINE 81 4 PAGE UM MAR. 21, 1975 01:25:08 00348 MTS.RHTABLE SA # (OBSOLETED BY 344) D3.2T1 185 MTS.RHTABLE..SA. 1 LINE 80 3 PAGE UM MAR. 21, 1975 01:25:10 00350 BLOCKLETTER SA # (OBSOLETE) D2T1 252 UM 00353/001 BABYSIT *BBS C *BBS D4T1 881 BABYSIT.*BBS.C.001 1 LINE 67 1 PAGE UM WSG JULY 27, 1977 02:49:58 *BBS 0 COMMAND FILE INVOKED BY ENTERING "MTS *BBS" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "SYS." AND RUNS WSG:BBSIT(1000) WITH I/O ON THE OPERATOR'S CONSOLE. 00353/002 BABYSIT SA O BBST WSG:BBSIT(1,999) D4T1 882 BABYSIT..SA.002 1 LINE 80 4 PAGE UM WSG JULY 27, 1977 02:50:00 WSG.:BBSIT 0 PROGRAM TO WATCH FOR SPECIFIED USERS TO SIGNON OR SIGNOFF. USEFUL FOR CATCHING A PIRATE. RUN WITH PROT=OFF. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). 00353/003 BABYSIT OC O WSG:BBSIT(1000) D4T1 883 BABYSIT..OC.003 1 LINE 80 1 PAGE UM WSG JULY 27, 1977 02:50:02 00354/001 LLXU D4 MASTER SA G LLXU S0917 MTSSD4 'MASTER D4.0' POSN=LLXU D4T1 884 LLXU.D4_MASTER.SA.001 1 SEQ 80 51 PAGE UM MTS SHERRY JULY 27, 1977 02:50:07 0 LOAD/LINK/XCTL/UNLOAD SUBROUTINES, THE INTERFACE BETWEEN MTS AND UMLOAD. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 00354/002B LLXU UPDATE UC G MTS:LLXUUPD RD16T1 38 LLXU.UPDATE.UC.002 1 LINE 82 10 PAGE UM MTS SHERRY JULY 12, 1979 22:27:53 MTS.:LLXUUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=LLXU. 1 THU SEP 12/96 23:39:34 Page 120 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00354/003B LLXU OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS SHERRY 00354/004B LLXU L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=LLXU.LIST 9 RD16T1 39 LLXU..L.004 1 SEQ 133 144 PAGE UM MTS SHERRY JULY 12, 1979 22:27:57 00354/005 LLXU LLXUTEST SA G LLXT W009:LLXUTEST.S D4T1 888 LLXU.LLXUTEST.SA.007 1 LINE 80 77 PAGE UM SHERRY JULY 27, 1977 02:54:50 0 PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD. ASSEMBLE USING *SYSMAC AND COPY:MTS.MACROS (344/3). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 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/006 LLXU LLXUTEST OC G W009:LLXUTEST.O D4T1 889 LLXU.LLXUTEST.OC.008 1 LINE 80 21 PAGE UM SHERRY JULY 27, 1977 02:55:01 00354/007 LLXU FAKEGATE SA G W009:FAKEGATE.S D4T1 890 LLXU.FAKEGATE.SA.009 1 LINE 67 1 PAGE UM SHERRY JULY 27, 1977 02:55:04 0 DUMMY VERSIONS OF ROUTINES IN GATEKEEP WHICH LLXU CALLS -- REQUIRED FOR LLXUTEST (354/5). 00354/008 LLXU FAKEGATE OC G W009:FAKEGATE.O D4T1 891 LLXU.FAKEGATE.OC.010 1 LINE 176 1 PAGE UM SHERRY JULY 27, 1977 02:55:06 00354/009 LLXU TOXCTL SA G TXTL W009:LLXUTEST.XTL(1000) D4T1 892 LLXU.TOXCTL.SA.011 1 LINE 80 1 PAGE UM SHERRY JULY 27, 1977 02:55:08 0 INTERFACE TO XCTL WHICH PERMITS XCTL TO BE TESTED BY LLXUTEST (354/5) WITHOUT UNLOADING THE TEST PROGRAM. 0 Referenced by comments of: 354/5 00354/010 LLXU TOXCTL OC G W009:LLXUTEST.XTL(1,999) D4T1 893 LLXU.TOXCTL.OC.012 1 LINE 80 1 PAGE UM SHERRY JULY 27, 1977 02:55:10 00354/011 LLXU TEST WRITEUP WF W009:LLXUTEST.W D4T1 894 LLXU.TEST_WRITEUP.WF.013 1 LINE 119 14 PAGE UM SHERRY JULY 27, 1977 02:55:12 0 WRITEUP DESCRIBING LLXUTEST (354/5). 0 Referenced by comments of: 354/5 00355/001 STATSCN SA G STSC WSG:STATSCN(1,999) D4T1 895 STATSCN..SA.001 1 LINE 80 7 PAGE UM WSG JULY 27, 1977 02:55:19 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 1 THU SEP 12/96 23:39:34 Page 121 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 WSG. 05-08-73 STRT 04-XX-73 DONE *TAPE* *STATISTICS DONE WILL SCAN THROUGH THE TAPE *TAPE* AND THE FILE *STATISTICS LOOKING FOR ALL STATISTICS RECORDS FOR USER "WSG." ON 8 MAY 1973 AND USER "STRT" ON ANY DAY IN APRIL 1973 (NOTE THAT XX'S MAY BE USED IN ANY FIELD(S) OF THE DATE OR "XXXX" GIVEN TO ACCEPT ANY USER ID). THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE). THE LISTSTAT PROGRAM (071) CAN THEN BE USED TO PRINT THE STATISTICS RECORDS. COPIES COPY:STATDSECT (620). 00355/002 STATSCN OC G WSG:STATSCN(1000) D4T1 896 STATSCN..OC.002 1 LINE 80 2 PAGE UM WSG JULY 27, 1977 02:55:21 00357/001 RCALL/ADROF SUBRS SA G RCAL S0027 DISTRB FSNAME=RCALL D4.1T1 110 RCALL/ADROF_SUBRS..SA.001 1 SEQ 80 2 PAGE UM ENGLE MAY 05, 1978 13:26:44 0 RCALL ALLOWS FORTRAN PROGRAMS TO CALL SUBROUTINES WITH R TYPE CALLING SEQUENCES, E.G. GETFD. ADROF ALLOWS FORTRAN PROGRAMS TO GET THE ADDRESS OF A VARIABLE, E.G. ADROF('ABC'). UNCHANGED FROM DIST 2.0. 00357/002 RCALL/ADROF SUBRS OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00358/001 *TAPECOPY SA G TPCP WSG:TAPECOPY(1,999) D4.1T1 111 TAPECOPY..SA.001 1 LINE 80 17 PAGE UM WSG MAY 13, 1978 17:13:14 WSG.:TAPECOPY 0 MULTIPLE FILE TAPE COPY PROGRAM. COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK. 00358/002 *TAPECOPY OC G *TAPECOPY D4.1T1 112 TAPECOPY..OC.002 1 LINE 80 3 PAGE UM WSG MAY 13, 1978 17:13:17 *TAPECOPY 00360/001 TIME SUBR SA G TIME W013:TIME D4T1 900 TIME_SUBR..SA.001 1 LINE 80 17 PAGE UM ENGLE AUG. 14, 1977 19:27:52 0 SUBROUTINE TO DO THINGS WITH THE TIME (DATE/TIME, CPU, AND ELAPSED). COPIES GRDEF (104/68) AND *CNFGINFODSECT (654). 0 Referenced by comments of: 534/8, 716/6 00360/002 TIME SUBR OC G SEG2:TIME D4T1 901 TIME_SUBR..OC.002 1 LINE 80 2 PAGE UM ENGLE AUG. 14, 1977 19:27:55 SEG2:TIME 0 LOADED INTO SHARED VM BY PISTLE. 00387/001B HASP MAIN SA G HSP S0996 HASP 'MODULAR HASP' FSNAME=HASP.MAIN RD16T1 40 HASP.MAIN.SA.001 1 LINE 80 212 PAGE UM HANSEN MAY 22, 1979 15:32:28 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 1 THU SEP 12/96 23:39:34 Page 122 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PCE'S, DCT'S, AND MESSAGE BLOCKS. COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9), AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 0 Referenced by comments of: 243/1, 570/3 00387/002B HASP EXEC SA G EXEC S0996 HASP 'MODULAR HASP' FSNAME=HASP.EXEC RD16T1 41 HASP.EXEC.SA.002 1 LINE 80 55 PAGE UM HANSEN MAY 22, 1979 15:34:51 0 COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9), AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/003B HASP RDR SA G RDR S0996 HASP 'MODULAR HASP' FSNAME=HASP.RDR RD16T1 42 HASP.RDR.SA.003 1 LINE 80 75 PAGE UM HANSEN MAY 22, 1979 15:33:43 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/004B HASP PPR SA G PPR S0996 HASP 'MODULAR HASP' FSNAME=HASP.PPR RD16T1 43 HASP.PPR.SA.004 1 LINE 80 26 PAGE UM HANSEN MAY 22, 1979 15:35:03 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/005B HASP DATA SA G DATA S0996 HASP 'MODULAR HASP' FSNAME=HASP.DATA RD16T1 44 HASP.DATA.SA.005 1 LINE 80 10 PAGE UM HANSEN MAY 22, 1979 15:35:11 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/006B HASP MACROS SM G MACS S0996 HASP 'MODULAR HASP' FSNAME=HASP.MACLIB RD16T1 45 HASP.MACROS.SM.006 1 LINE 80 130 PAGE UM HANSEN MAY 22, 1979 15:31:50 0 HASP MACRO LIBRARY. 0 Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 387/27, 387/30, 387/32, 387/34, 387/36 00387/007B HASP OPER SA G OPER S0996 HASP 'MODULAR HASP' FSNAME=HASP.OPER RD16T1 46 HASP.OPER.SA.007 1 LINE 80 96 PAGE UM HANSEN MAY 22, 1979 15:32:58 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/008B HASP MXMTR SA G MXMT S0996 HASP 'MODULAR HASP' FSNAME=HASP.MXMTR RD16T1 47 HASP.MXMTR.SA.008 1 LINE 80 17 PAGE UM HANSEN MAY 22, 1979 15:35:08 0 MERIT BATCH TRANSMITTER PROCESSOR. ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/009 HASP SEG2:HASP OC G S0996 HASP 'MODULAR HASP' FSNAME=HASP.D.SEG2 D4.2T1 181 HASP.SEG2:HASP.OC.009 1 LINE 80 39 PAGE UM HANSEN FEB. 16, 1979 10:37:36 SEG2:HASP 0 THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL. THIS FILE ALSO CONTAINS THE 1 THU SEP 12/96 23:39:34 Page 123 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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). 00387/010 HASP LISTING L S1019 HASPLS 'HASP LISTING' POSN=HASP.LIST D4.2T1 182 HASP.LISTING.L.010 1 SEQ 132 1067 PAGE UM HANSEN MAR. 26, 1979 02:44:08 00387/011 HASP HRTP1130 SA G 1130 W092:HRTP1130.U D4T1 916 HASP.HRTP1130.SA.015 1 LINE 80 176 PAGE UM HANSEN JULY 27, 1977 03:03:38 0 REMOTE TERMINAL PROGRAM FOR 1130. THIS IS THE OS VERSION WITH A FEW BUGS FIXED. 00387/012 HASP HRTPLOAD SA G LOAD W092:HRTPLOAD.U D4T1 917 HASP.HRTPLOAD.SA.016 1 LINE 80 38 PAGE UM HANSEN JULY 27, 1977 03:03:49 0 LOADER FOR REMOTE 1130 PROGRAM. THIS IS THE OS VERSION WITH A FEW BUGS FIXED. 00387/013 HASP HRTPB360 SA G B360 W092:HRTP360.ASM D4T1 918 HASP.HRTPB360.SA.017 1 LINE 80 104 PAGE UM HANSEN JULY 27, 1977 03:03:52 0 REMOTE PROGRAM FOR 360'S (BOTH MODEL 20 AND OTHER). THIS IS THE OS VERSION WITH BUGS FIXED. NOTE: THIS REMOTE PROGRAM IS FROM HASP II VERSION 3.1, ALTHOUGH IT WORKS OK WITH MTS HASP (WHICH WAS DERIVED PRINCIPALLY FROM HASP II VERSION 2.3). INCLUDES TN PRINTER SUPPORT. 00387/014 HASP HRTPSYS3 SA G SYS3 S0721 'D3T2' FSNAME=HASP.HRTPSYS3.SA.13(1) 321 D4T1 919 HASP.HRTPSYS3.SA.018 1 LINE 80 102 PAGE UM HANSEN AUG. 02, 1973 02:31.26 0 REMOTE PROGRAM FOR IBM SYSTEM/3. HERE AGAIN, THIS VERSION IS FROM HASP II VERSION 3.1. 00387/015 HASP RTPBOOT B G S0721 'D3T2' FSNAME=HASP.RTPBOOT.B.14(1) 322 D4T1 920 HASP.RTPBOOT.B.019 1 LINE 160 1 PAGE UM HANSEN AUG. 02, 1973 02:31.40 0 BOOTSTRAP LOADER FOR 1130 REMOTE PROGRAM. THESE ARE THE SIX BINARY CARDS THAT THE HASP MANUAL TELLS YOU TO HAND PUNCH. THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN AND PLACED AT THE BEGINNING OF THE 1130 REMOTE PROGRAM DECK. NO SOURCE AVAILABLE. 00387/016 HASP LETRRIP SA G LETI S0721 'D3T2' FSNAME=HASP.LETRRIP.SA.15(1) 323 D4T1 921 HASP.LETRRIP.SA.020 1 LINE 80 2 PAGE UM HANSEN AUG. 02, 1973 02:31.42 0 PARTIAL SOURCE FOR AN MTS PROGRAM TO CONVERT 1130 OBJECT PROGRAMS ASSEMBLED BY *ASMG FROM ASMG OBJECT FORMAT TO 1130 BINARY OBJECT CARD FORMAT. READS FROM SCARDS, WRITES ON SPUNCH. 00387/017 HASP LETRRIP OC G S0721 'D3T2' FSNAME=HASP.LETRRIP.OC.16(1) 324 D4T1 922 HASP.LETRRIP.OC.021 1 LINE 80 6 PAGE UM HANSEN AUG. 02, 1973 02:31.44 0 OBJECT IS IN 3 PARTS: (1) THE OS/360 OBJECT FOR LETRRIP FROM HASP WITH REP CARDS TO PATCH ALL OS SVC'S INTO INVALID OP-CODES (TO PRODUCE PROGRAM INTERRUPTS WHICH CAN BE FIELDED), (2) THE OBJECT FROM 387/16, AND (3) THE OBJECT FOR THE ALGOL COMPILER (OR LIBRARY) MTS INTERFACE (COMP 505/2 OR 505/22). 1 THU SEP 12/96 23:39:34 Page 124 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00387/018 HASP *HSP C *HSP D4T1 923 HASP.*HSP.C.022 1 LINE 9 1 PAGE UM WSG JULY 27, 1977 03:04:50 STRT:*HSP 0 COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:HSP (387/19). INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE. 00387/019 HASP HSP C MTS:TST.HSP D4.2T1 183 HASP.HSP.C.019 1 LINE 23 1 PAGE UM WSG MAR. 26, 1979 02:44:20 STRT:HSP 0 THIS FILE ISSUES BUNCHES OF HASP COMMANDS ($START ET AL.). THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE I/O DEVICES IN USE AT EACH INSTALLATION. THE UM LOCAL VERSION (NOT THE DISTRIBUTED VERSION) STARTS *HLG (752). 0 Referenced by comments of: 387/18 00387/020 HASP *DRN C *DRN D4T1 925 HASP.*DRN.C.024 1 LINE 9 1 PAGE UM WSG JULY 27, 1977 03:04:54 STRT:*DRN 0 COMMAND FILE WHICH SIGNS ON UNDER USER ID "STRT" AND SOURCES TO STRT:DRN (387/21). INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE. 00387/021 HASP STRT:DRN C STRT:DRN D4T1 926 HASP.STRT:DRN.C.025 1 LINE 16 1 PAGE UM WSG JULY 27, 1977 03:04:56 STRT:DRN 0 THIS FILE ISSUES "$DRAIN SAXX" HASP COMMANDS USED TO DRAIN HASP PRIOR TO SHUTDOWN. THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE RJE LINES AVAILABLE (IF ANY) AT EACH INSTALLATION. 0 Referenced by comments of: 387/20 00387/022 HASP OPER MANUAL WF W225:HSPM.CI D4.2T1 184 HASP.OPER_MANUAL.WF.022 1 LINE 225 28 PAGE UM DONNELLY MAR. 26, 1979 02:44:20 0 MTS HASP OPERATOR'S MANUAL. NOTE: SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592). 00387/023 HASP ASM JOB C W167:HSP.GEND4.2 D4.2T1 185 HASP.ASM_JOB.C.023 1 LINE 96 2 PAGE UM HANSEN MAR. 26, 1979 02:44:28 0 COMMANDS TO ASSEMBLE HASP. 00387/024 HASP PCE SNIFFER SA PCE W167:PCE(1,999) D4T1 929 HASP.PCE_SNIFFER.SA.028 1 LINE 80 4 PAGE UM HANSEN JULY 27, 1977 03:05:11 MTS.:PCE 0 PCE SNIFFER UTILITY PROGRAM. EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE: F:N1 B:N2 T: N3P N4U N5B 1 THU SEP 12/96 23:39:34 Page 125 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S, N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION, N3 IS THE NUMBER OF *PRINT* PCE'S, N4 IS THE NUMBER OF *PUNCH* PCE'S, AND N5 IS THE NUMBER OF *BATCH* PCE'S. IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS FROM THE PREVIOUS LINE PRINTED. IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE USER THEY THINK THEY ARE. IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS FROM THE JCT ID, IT PRINTS: PCE: AAAAA JCTID: IIII JOB TABLE: PPPPPPPP JOB N WHERE AAAAA IS THE HEX LOCN OF THE PCE, IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL), PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER), AND N IS THE JOB NUMBER. USES IOH (278) FOR OUTPUT FORMATTING AND REQUIRES THE HASP COPY SECTIONS. 00387/025 HASP PCE SNIFFER OC W167:PCE(1000) D4.1T1 128 HASP.PCE_SNIFFER.OC.029 1 LINE 80 1 PAGE UM HANSEN MAY 17, 1978 15:41:20 00387/026 HASP WRITEUP WF S0996 HASP 'MODULAR HASP' FSNAME=HASP.WRUP D4.2T1 186 HASP.WRITEUP.WF.026 1 LINE 116 17 PAGE UM HANSEN FEB. 15, 1979 17:51:11 0 A DISCUSSION OF THE D4.2 HASP COMPONENTS AND CHANGES WITH A DESCRIPTION OF HOW TO ASSEMBLE IT. 00387/027B HASP DUMP/ANAL SA S0996 HASP 'MODULAR HASP' FSNAME=D/A.ASM RD16T1 48 HASP.DUMP/ANAL.SA.027 1 LINE 130 53 PAGE UM HANSEN MAY 22, 1979 15:35:15 0 THIS PROGRAM PERMITS A SYSTEM PROGRAMMER TO LOOK AT MEMORY OR A DUMP TAPE (VIA A DUMP TAPE OPTIONALLY ASSIGNED TO UNIT 1) AND PRINT IT IN AN EASILY READABLE FORM. FORMS PERMITTED ARE PRIMARILY HASP DSECT FORMATS (E.G., PCE AND DCT) AND JOBTABLE OR DUMP FORMATS. A HELP COMMAND PROVIDES COMPREHENSIVE DESCRIPTIONS AS OBTAINED FROM 387/29. COPIES COPY:GLOBALSETS (1026/2) AND COPY:LLMPSEQU (087). REQUIRES ASSEMBLY WITH THE HASP MACROS (387/6). CONTAINS MTS COMMANDS AT THE BEGINNING OF THE FILE TO ASSEMBLE IT. IT ALSO CONTAINS A SPECIAL VERSION OF THE SYSADR SUBROUTINE (400/7) WHICH READS FROM THE DUMP TAPE. IT REQUIRES THE VMFIND SUBROUTINE (400/2). 0 Referenced by comments of: 387/29 00387/028 HASP DUMP/ANAL OC S0996 HASP 'MODULAR HASP' FSNAME=D/A.D D4.2T1 188 HASP.DUMP/ANAL.OC.028 1 LINE 24312 21 PAGE UM HANSEN FEB. 15, 1979 17:50:09 MTS.:HASP.D/A 00387/029B HASP DUMP/ANAL HELP M S0996 HASP 'MODULAR HASP' FSNAME=D/A.HELP RD16T1 49 HASP.DUMP/ANAL_HELP.M.029 1 LINE 68 5 PAGE UM HANSEN NOV. 14, 1978 15:34:22 0 HELP MESSAGE FILE FOR USE BY DUMP/ANAL (387/27). THIS FILE IS IN THE FORM OF AN 1 THU SEP 12/96 23:39:34 Page 126 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ASSEMBLER MACRO LIBRARY. 00387/030 HASP HASPTRACKS SA O S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.S D4.1T1 133 HASP.HASPTRACKS.SA.034 1 LINE 95 4 PAGE UM HANSEN MAR. 28, 1978 20:37:30 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. CALLS THE SYSADR (400/7) SUBROUTINE. 0 Referenced by comments of: 387/31 00387/031 HASP HASPTRACKS OC O S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS D4.1T1 134 HASP.HASPTRACKS.OC.035 1 LINE 256 5 PAGE UM HANSEN MAR. 28, 1978 20:38:55 0 OBJECT FOR HASPTRACKS (387/30) PLUS THE OBJECT FOR SYSADR (400/7). 00387/032 HASP QUESCAN SA O S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.S D4.1T1 135 HASP.QUESCAN.SA.036 1 LINE 91 5 PAGE UM HANSEN MAR. 28, 1978 20:39:08 0 PROGRAM TO SCAN THE HASP QUEUE, VERIFYING THAT ALL ENTRIES ARE PROPERLY LINKED, LOCATING UNATTACHED SEGMENTS, AND MAKING OTHER TESTS. THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM. COPIES THE HASP COPY SECTIONS AND REQUIRES THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY. CALLS THE SYSADR (400/7) SUBR. 0 Referenced by comments of: 387/33 00387/033 HASP QUESCAN OC O S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN D4.1T1 136 HASP.QUESCAN.OC.037 1 LINE 256 5 PAGE UM HANSEN MAR. 28, 1978 20:39:25 0 OBJECT FOR QUESCAN (387/32) PLUS THE OBJECT FOR SYSADR (400/7). 00387/034B HASP HASPSTAT SA O S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.S RD16T1 50 HASP.HASPSTAT.SA.034 1 LINE 111 3 PAGE UM HANSEN MAY 22, 1979 15:35:56 0 PROGRAM TO LOOK AT HASP WHILE IT'S RUNNING AND CHECK FOR POSSIBLE PROBLEMS. IF FOUND, THEY ARE PRINTED ON SERCOM. THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM. COPIES COPY:GLOBALSETS (1026/2). REQUIRES THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY. CALLS THE SYSADR (400/7) SUBR. 0 Referenced by comments of: 387/35 00387/035 HASP HASPSTAT OC O S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.D D4.2T1 191 HASP.HASPSTAT.OC.035 1 LINE 256 5 PAGE UM HANSEN FEB. 15, 1979 17:50:01 0 OBJECT FOR HASPSTAT (387/34) PLUS THE OBJECT FOR SYSADR (400/7). 00387/036 HASP HASPCKPT SA O S0996 HASP 'MODULAR HASP' FSNAME=HASPCKPT D4.1T1 139 HASP.HASPCKPT.SA.040 1 LINE 95 3 PAGE UM HANSEN MAR. 28, 1978 20:41:54 0 PROGRAM TO REFORMAT THE HASP CHECKPOINT RECORD TO AVOID DOING A COLD START WHEN CHANGING FROM 16- TO 32-BYTE $ROUTAB ENTRIES. COULD BE USED FOR OTHER CHECKPOINT RECORD CHANGES TOO. THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM. COPIES THE HASP COPY SECTIONS AND REQUIRES THE HASP MACRO 1 THU SEP 12/96 23:39:34 Page 127 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LIBRARY (387/6) FOR ASSEMBLY. OBJECT NOT DISTRIBUTED. 00388/001 HASPLING MAIN SA G HSPL S0996 HASP 'MODULAR HASP' FSNAME=HASPLING D4.2T1 192 HASPLING.MAIN.SA.001 1 LINE 80 26 PAGE UM HANSEN JAN. 30, 1979 18:56:42 0 COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 387/9 00388/002 HASPLING MNET SA G HSPM S0996 HASP 'MODULAR HASP' FSNAME=HSPLNG.MNET D4.2T1 193 HASPLING.MNET.SA.002 1 LINE 80 19 PAGE UM HANSEN JAN. 30, 1979 18:56:46 0 ASSEMBLE USING COPY:MTS.MACROS (344/3). 00388/003 HASPLING OBJECT OC G # (PART OF 387/13) UM HANSEN 00389/001 *GENLIB SA G GENL LBT:GENLIB.S D4T1 938 GENLIB..SA.001 1 LINE 80 143 PAGE UM TIFFANY JULY 27, 1977 03:05:47 0 NEW VERSION OF *GENLIB. PARAMETERS SEQL, POINT, AND LINE NO LONGER SUPPORTED. 00389/002 *GENLIB OE G *GENLIB D4.2T1 194 GENLIB..OE.002 1 LINE 12279 14 PAGE UM TIFFANY MAR. 26, 1979 02:46:18 *GENLIB 00389/003 *GENLIB MESSAGES M ETC:GENLIBHELP D4T1 940 GENLIB.MESSAGES.M.003 1 LINE 66 10 PAGE UM TIFFANY JULY 27, 1977 03:06:15 ETC.:GENLIBHELP 0 MESSAGE FILE REFERENCED FOR THE EXPLAIN COMMAND. 00390/001 *QUE C *QUE(1,999) D4T1 941 QUE..C.001 1 LINE 30 1 PAGE UM WSG AUG. 14, 1977 19:29:14 *QUE 0 COMMAND FILE TO PRINT A LISTING (ON *PRINT*) OF THE HASP QUEUE. INVOKED BY ENTERING "MTS *QUE" ON THE OPERATOR'S CONSOLE. 00390/002 *QUE PGM SA G HSPQ S0721 'D3T2' FSNAME=QUE..SA.1(1) 334 D4T1 942 QUE.PGM.SA.002 1 SEQ 80 2 PAGE UM WSG AUG. 02, 1973 02:35.17 0 PROGRAM TO PRINT OUT HASP QUEUE. 00390/003 *QUE PGM OC G *QUE(1000) D4T1 943 QUE.PGM.OC.003 1 LINE 80 1 PAGE UM WSG AUG. 14, 1977 19:29:15 00391 FILE STATISTICS SP # (OBSOLETE) D2T1 123 UM 1 THU SEP 12/96 23:39:34 Page 128 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00392 *FSAVE SA # (OBSOLETED BY COMP 548) D2.2 116 UM 0 Referenced by comments of: 549/1 00399/001 DUMP SA G S0563 D4T1 VLO FSNAME=DUMP..SA.001(1) 944 D4T1 944 DUMP..SA.001 1 LINE 80 13 PAGE UM MTA JULY 27, 1977 03:06:22 MTA.:DUMP 0 THIS IS THE UMMPS SYSTEM DUMP PROGRAM. IT TAKES A DUMP OF ALL OF REAL MEMORY PLUS, OPTIONALLY, THE VM FOR A SPECIFIED JOB. IT WRITES THE DUMP UNFORMATED ONTO A 9-TRACK LABELED TAPE FOR WHICH THE VOLUME LABEL MUST BE 'DUMPXX'. THE PRINTDUMP PROGRAM (400) WILL PRINT SELECTED PARTS OF A DUMP TAPE. COPIES COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 400/1 00399/002 DUMP UPDATE UC G MTA:DUMP.U D4.2T1 195 DUMP.UPDATE.UC.002 1 LINE 65 1 PAGE UM MTA MAR. 26, 1979 02:46:19 0 UPDATES TO THE D4.0 SOURCE. 00399/003 DUMP OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00400/001B PRINTDUMP MAIN SA G MTA:DMPLST(1000) RD16T1 51 PRINTDUMP.MAIN.SA.001 1 LINE 72 29 PAGE UM MTA JULY 12, 1979 22:34:35 MTA.:DMPLST 0 PRINTS DUMP TAPES PRODUCED BY SYSTEM DUMP (399). A SEPARATE DUMP PROGRAM IS ALSO AVAILABLE FOR HASP (SEE COMP 387). PRINTDUMP REQUIRES PRINTTRACE (337), THE MSG ROUTINES (1023), AND IOH (278) FOR THE "TRACE" COMMAND ONLY. COPIES COPY:LLMPSEQU (087), COPY:PCBDSECT (470), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), *SENSEDSECT (3025), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 399/1, 534/9 00400/002 PRINTDUMP VMFIND SUBR SA G MTA:DMPLST.VMFIN(1,999) D4T1 946 PRINTDUMP.VMFIND_SUBR.SA.002 1 LINE 80 4 PAGE UM MTA JULY 27, 1977 03:06:29 MTA.:DMPLST.VMFIN 0 SUBROUTINE TO FIND A VM PAGE ON A DUMP TAPE. 0 Referenced by comments of: 387/27 00400/003 PRINTDUMP D4 SSCN SUBR SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=SSCN D4T1 947 PRINTDUMP.SSCN_SUBR.SA.003 1 LINE 80 11 PAGE UM MTS MTA JULY 27, 1977 03:06:31 MTA.:DMPLST.SSCN 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:RMGRMACLIB (1054/1). 1 THU SEP 12/96 23:39:34 Page 129 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 400/6, 534/10 00400/004B PRINTDUMP SSCN SUBR UPD UC G MTS:SSCNUPD RD16T1 52 PRINTDUMP.SSCN_SUBR_UPD.UC.004 1 LINE 72 3 PAGE UM MTS MTA JULY 12, 1979 22:34:43 MTS.:SSCNUPD 0 UPDATE TO D4 MASTER TO PRODUCE CURRENT SOURCE. UPDATE USES $CONTROL *IN* POSN=SSCN. 00400/005C PRINTDUMP SSCN SUBR LIST L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=SSCN.LIST 15 RD16T1 53 PRINTDUMP.SSCN_SUBR_LIST.L.005 1 SEQ 133 38 PAGE UM MTS MTA JULY 12, 1979 22:34:51 00400/006 PRINTDUMP DUMP SUBR SA G MTA:DMPLST.ADUMP(1,999) D4T1 948 PRINTDUMP.DUMP_SUBR.SA.004 1 LINE 80 5 PAGE UM MTA JULY 27, 1977 03:06:33 MTA.:DMPLST.ADUMP 0 SUBROUTINE TO FORMAT DUMP OUTPUT. CALLED BY SSCN (400/3). 00400/007 PRINTDUMP SYSADR SUBR SA G MTA:DMPLST.SYSAD(1,999) D4.1T1 144 PRINTDUMP.SYSADR_SUBR.SA.006 1 LINE 80 4 PAGE UM MTA MAY 13, 1978 17:16:52 MTA.:DMPLST.SYSAD 0 SUBROUTINE TO RESOLVE A NAME FROM THE UMLOAD SYMBOL TABLE FOR THE RESIDENT SYSTEM ON A DUMP TAPE. 0 Referenced by comments of: 387/27, 387/30, 387/31, 387/32, 387/33, 387/34, 387/35 00400/008 PRINTDUMP TASKSTAT SUBR SA G MTA:DMPLST.TSTAT(1,999) D4.2T1 198 PRINTDUMP.TASKSTAT_SUBR.SA.007 1 LINE 86 5 PAGE UM MTA MAR. 26, 1979 02:46:27 MTA.:DMPLST.TSTAT 0 VERSION OF TASKSTAT SUBROUTINE (647) WHICH WORKS WITH A DUMP TAPE. COPIES COPY:GLOBALS(1026/3), COPY:LLMPSEQU (087), AND COPY:JOBSTA (413/9). ASSEMBLE USING COPY:SETPARM (653) AND DMPLST.MACROS (400/12). 00400/009 PRINTDUMP LOADCLAS SUBR SA G MTA:DMPLST.LOADC(1,999) D4.2T1 199 PRINTDUMP.LOADCLAS_SUBR.SA.008 1 LINE 72 3 PAGE UM MTA MAR. 26, 1979 02:46:28 MTA.:DMPLST.LOADC 0 SUBROUTINE TO PRODUCE A SUBSET OF LOADCLAS (540/7) OUTPUT FROM A DUMP TAPE. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:SETPARM (653) AND DMPLST.MACROS (400/11). 00400/010 PRINTDUMP ICTAB SUBR SA G MTA:DMPLST.ICTAB(1,999) D4T1 952 PRINTDUMP.ICTAB_SUBR.SA.008 1 LINE 80 21 PAGE UM MTA JULY 27, 1977 03:06:43 MTA.:DMPLST.ICTAB 0 SUBROUTINE WHICH IMPLEMENTS THE ICTAB COMMAND FOR PRINTDUMP. THIS IS A MODIFIED VERSION OF TABLMOD (554). ASSEMBLE USING COPY:FILE.MACROS (482/33). 1 THU SEP 12/96 23:39:34 Page 130 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00400/011 PRINTDUMP ICSTAT SUBR SA G MTA:DMPLST.ICSTA(1,999) D4T1 953 PRINTDUMP.ICSTAT_SUBR.SA.009 1 LINE 80 6 PAGE UM MTA JULY 27, 1977 03:06:45 MTA.:DMPLST.ICSTA 0 VERSION OF THE ICSTAT SUBROUTINE (PART OF 482/25) THAT WORKS FROM A DUMP TAPE. ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 400/9 00400/012 PRINTDUMP MACROS SM G MTA:DMPLST.MACROS D4.2T1 200 PRINTDUMP.MACROS.SM.011 1 LINE 63 1 PAGE UM MTA MAR. 26, 1979 02:46:29 MTA:DMPLST.MACROS 0 MACRO LIBRARY. 0 Referenced by comments of: 400/8, 1012/1 00400/013B PRINTDUMP OC G MTA:PRINTDUMP RD16T1 54 PRINTDUMP..OC.013 1 LINE 8832 15 PAGE UM MTA JULY 12, 1979 22:34:52 MTS.:PRINTDUMP 0 THIS FILE CONTAINS THE OBJECT FOR ALL OF PRINTDUMP PLUS PRINTTRACE (337). HAS A $CONTINUE WITH SEG2:UNITS RETURN (1012/2) RECORD. 00400/014 PRINTDUMP GETDUMP SA G SYS:GETDUMP(1000) D4.2T1 202 PRINTDUMP.GETDUMP.SA.013 1 LINE 72 1 PAGE UM OGDEN MAR. 26, 1979 02:46:32 SYS:GETDUMP 0 PROGRAM INVOKED BY 400/16. COPIES *SENSEDSECT (3025). 00400/015 PRINTDUMP GETDUMP OC G SYS:GETDUMP(1,999) D4.2T1 203 PRINTDUMP.GETDUMP.OC.014 1 LINE 80 3 PAGE UM OGDEN MAR. 26, 1979 02:46:33 00400/016 PRINTDUMP DUMP C SYS:DUMP D4.2T1 204 PRINTDUMP.DUMP.C.015 1 LINE 37 1 PAGE UM OGDEN MAR. 26, 1979 02:46:33 SYS:DUMP 0 SOURCE FILE TO AUTOMATICALLY MOUNT AND PRINT A DUMP TAPE. PROMPTS USER FOR DUMP TAPE NUMBER AND DUMPS OUTPUT ON *PRINT*. ASSUMES THAT FILE IS SOURCED TO FROM THE ID SYS. 00400/017 PRINTDUMP WRITEUP WF MTA:PRINTDUMP.W D4.1T1 844 PRINTDUMP.WRITEUP.WF.014 1 LINE 78 3 PAGE UM MTA MAY 25, 1978 18:03:26 MTA.:PRINTDUMP.W 0 DESCRIPTION OF HOW TO USE PRINTDUMP. 00410/001 *ASMTIDY SA S ATID DWB:ASMTIDY.S(1) D4T1 958 ASMTIDY..SA.001 1 LINE 80 17 PAGE UBC TIFFANY JULY 27, 1977 03:06:57 DWB.:ASMTIDY.S 0 PROGRAM TO CLEAN UP AND ENTER ASSEMBLY PROGRAMS INTO FILES. REQUIRES THAT USER "$SET SEQFCHK=OFF" IF OUTPUT IS INTO A SEQUENTIAL FILE. UBC VERSION OF JAN 27, 1976 CHANGED ONLY TO DEFAULT SEQID ON, TO CHECK FOR INPUT 1 THU SEP 12/96 23:39:34 Page 131 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 RECORDS > 256 BYTES, AND TO WATCH FOR RC=4 ON WRITING OUTPUT. THIS VERSION DOES NOT USE INFREE. ASSEMBLE USING UBC MACROS (1024). UM WRITEUP IS IN MTS VOLUME 14 (SEE COMP 665). 0 Referenced by comments of: 1024/1 00410/002 *ASMTIDY OC S *ASMTIDY D4T1 959 ASMTIDY..OC.002 1 SEQ 80 3 PAGE UBC TIFFANY JULY 27, 1977 03:06:59 *ASMTIDY 00410/003 *ASMTIDY NEW ASMTIDY SS G S0684 UNSP FSNAME=ASMTIDY.S D4.2T1 205 ASMTIDY.NEW_ASMTIDY.SS.003 1 LINE 108 6 PAGE UM UNSP SHERRY JAN. 18, 1979 22:27:46 0 NEW VERSION OF ASMTIDY WHICH WORKS CORRECTLY. THERE IS NO ICTL CAPABILITY. IT INDENTS STRUCTURED PROGRAMMING MACROS AND NOW PROCESSES PARAMETERS DESCRIBED IN 410/5. IT READS THE SOURCE ON SCARDS, WRITES ONLY THE CHANGED LINES ON SPUNCH (@I), AND PRINTS A LISTING ON SPRINT WITH NESTING LINES AND *FRAMES EXPANDED. USES UNSP:SPITPAR (757/2). 00410/004 *ASMTIDY NEW ASMTIDY OE G UNSP:ASMTIDY D4.2T1 206 ASMTIDY.NEW_ASMTIDY.OE.004 1 LINE 15828 8 PAGE UM UNSP SHERRY MAR. 26, 1979 02:50:31 UNSP:ASMTIDY 0 HAS A "$CONTINUE WITH UNSP:SPITPAR" (757/2) CARD. 00410/005 *ASMTIDY NEW ASMTIDY WF S0684 UNSP FSNAME=ASMTIDY.F D4.2T1 207 ASMTIDY.NEW_ASMTIDY.WF.005 1 LINE 79 3 PAGE UM UNSP SHERRY JAN. 18, 1979 22:27:41 00413/001B SYSTEM STATUS SSRTN SA G WSG:SSRTN RD16T1 55 SYSTEM_STATUS.SSRTN.SA.001 1 LINE 72 41 PAGE UM WSG JULY 12, 1979 22:34:53 WSG.:SSRTN 0 THE SYSTEM STATUS ROUTINE (SSRTN) COMPUTES SYSTEM LOAD (CPU, PAGING, DISK, CHANNEL, AND DRUM SPACE) DURING EVERY 20 SECONDS OF SYSTEM OPERATION. IT IS A SUBROUTINE CALLED BY THE OPERATOR JOB (634), THE JOBS JOB (413/3) AND THE MTS $SYSTEMSTATUS CLS (413/5). IT ALSO HAS A SEPARATE ENTRY POINT (SSFMT) WHICH ONLY PRODUCES THE FORMATED OUTPUT VECTOR AS PRINTED BY THE "LOAD" COMMAND. THIS ENTRY IS CALLED BY THE OPERATOR JOB (TO PRODUCE THE TOP LINE ON THE CONSOLE SCREEN) AND BY THE 3270 %ACTIVITY COMMAND (629/4). THE "MASTER" COMMAND CAN ONLY BE ACTIVATED BY ONE TASK AT A TIME. WHEN ISSUED, IT CAUSES THAT TASK TO PERFORM THE LOAD CALCULATION EVERY 20 SECONDS UPDATING THE INFORMATION IN THE JOBSTA VECTOR (413/7) FOR USE BY OTHER TASKS AND ALSO LOGGING THE DATA VIA CMDSTAT (AS RECORD TYPE 8). CALLS BJPMOD (650), CHECKFE (731), TASKSTAT (647), TSKFMT (019), AND CMDSTATS (531). COPIES COPY:BJPDSCT (650/3), COPY:JOBSTA (413/9), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654). ASSEMBLE WITH PAR=SIZE=12. CHANGED AS FOLLOWS SINCE D4.0: (1) SSFMT EXPANDED TO ALSO RETURN THE HEADER LINE FOR "LOAD" OUTPUT. (2) DISPLAY COMMAND CHANGED TO ALLOW OPTIONAL JOB=N PARAMETER IMMEDIATELY BEFORE THE DISPLAY ADDRESS IF ISSUED BY OPERATOR JOB, JOBS JOB, OR $SY WITH USER ID MTS. WHEN JOB=N IS GIVEN, THE PRIVATE VM FOR JOB N IS DISPLAYED, RATHER THAN THE CURRENT JOB. (3) DISPLAY COMMAND CHANGED TO ALLOW "DISPLAY LOCK N" FOR DISPLAYING WHICH JOB (IF ANY) CURRENTLY HAS SUPERVISOR LOCK N SET. IN ORDER FOR THIS 1 THU SEP 12/96 23:39:34 Page 132 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COMMAND TO WORK, UMMPS MUST HAVE A DEF CARD DEFINING "LOCKTBL". (4) THE LENGTH OF THE HASP $ROUTAB TABLE ENTRIES HAS BEEN PARAMETERIZED SINCE THE UM HASP NOW SUPPORTS RJE PASSWORDS (REQUIRING 32-BYTE $ROUTAB ENTRIES INSTEAD OF 16). (5) THE MASTER COMMAND NOW PRODUCES A SUMMARY RECORD EVERY 10 MINUTES (VIA A NEW CMDSTAT CALL -- TYPE 19) WHICH CONTAINS CURRENTLY ONLY 10 BYTES OF DATA (ALL HALFWORDS): SUMMARY PERIOD LENGTH (SECONDS), AVERAGE CPU UTILIZATION OVER SUMMARY PERIOD (PERCENT * 100), AVERAGE HASP EXEC QUEUE LENGTH OVER SUMMARY PERIOD, MAX HASP EXEC QUEUE LENGTH DURING PERIOD, AND MIN HASP EXEC QUEUE LENGTH DURING PERIOD. THE "SVEC" COMMAND HAS BEEN REMOVED. THE SUMMARY DATA IS PLACED IN THE FILE SYS:SSRTNSUMM BY *DWB (531/12) AND MAY BE PRINTED BY SUMMPRT (413/10) OR SUMMARIZED BY THE CPUSE SUBR (326/3) ON A MONTHLY BASIS. (6) IF THE EXTERNAL SYMBOL "CHECKFE" IS DEFINED, THE NEW "CHECK FRONT END" SUBR (731) IS CALLED EVERY SEVERAL MINUTES TO CHECK ON THE STATUS (UP, DOWN, OFFLINE, ETC.) OF FRONT END PROCESSORS. IT WILL INFORM THE OPERATOR OF ANY ABNORMAL CONDITIONS IT NOTICES. SYMBOLS IN JOBSTA (413/9) ARE USED TO CONTROL THE CHECKING OF THE FRONT ENDS AND TO REPORT THEIR STATUS. AT UM, THE SYMBOLS JSCAS, JSCBS, JSCCS, AND JSMNS ARE USED FOR THE STATUS OF THE THREE DATA CONCENTRATORS AND THE MERIT FRONT END RESPECTIVELY. (7) ALLOWS FOR MORE THAN 999 REAL PAGES IN VARIOUS OUTPUT FORMATS. (8) CHANGED TO MAINTAIN A COUNT OF THE NUMBER OF AVAILABLE (FREE) JOB TABLES AS WELL AS A COUNT OF THE NUMBER OF ADDITIONAL GRABS WHICH CAN BE DONE BY 3270 JOBS. (9) MESSAGES NOW APPEAR IN UPPER/LOWER CASE. (10) MINOR CHANGES FOR CHECKFE. 0 Referenced by comments of: 19/1, 326/1, 413/3, 413/5, 413/7, 413/10, 540/9, 647/1, 650/1, 731/1 00413/002B SYSTEM STATUS SSRTN OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00413/003 SYSTEM STATUS JOBS JOB SA G JOBS S0792 WSGFS FSNAME=JOBS.SA D4T1 963 SYSTEM_STATUS.JOBS_JOB.SA.003 1 LINE 80 3 PAGE UM WSG JULY 27, 1977 03:07:17 0 UMMPS JOB PROGRAM (NAMED "JOBS") TO INTERFACE TO SSRTN (413/1) FROM THE JOB PROGRAM LEVEL. 0 Referenced by comments of: 413/1 00413/004 SYSTEM STATUS JOBS JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00413/005 SYSTEM STATUS SYS STAT CLS SA G SCLS WSG:SSTA.CLS(1,999) D4.1T1 150 SYSTEM_STATUS.SYS_STAT_CL.SA.005 1 LINE 80 14 PAGE UM WSG MAY 13, 1978 17:17:12 WSG.:SSTA.CLS 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 1 THU SEP 12/96 23:39:34 Page 133 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00413/006 SYSTEM STATUS SYS STAT CLS OC G *CLSSSTA D4.1T1 151 SYSTEM_STATUS.SYS_STAT_CL.OC.006 1 LINE 80 2 PAGE UM WSG MAY 13, 1978 17:17:15 *CLSSSTA 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE. 00413/007 SYSTEM STATUS JOBSTA VECTOR SA G SVEC WSG:SSTA.VEC(1,999) D4.2T1 208 SYSTEM_STATUS.JOBSTA_VECT.SA.007 1 LINE 80 1 PAGE UM WSG MAR. 26, 1979 02:50:33 WSG.:SSTA.VEC 0 SYSTEM STATUS INFORMATION VECTOR MAINTAINED BY SSRTN (413/1). COPIES COPY:JOBSTA (413/9). 0 Referenced by comments of: 413/1, 540/9 00413/008B SYSTEM STATUS JOBSTA VECTOR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 0 THIS OBJECT DECK SHOULD BE KEPT IN SEGMENT 0 TO REDUCE THE OVERHEAD OF THE SVC WAYT IN SSRTN. 00413/009B SYSTEM STATUS JOBSTA DSECT SA G COPY:JOBSTA RD16T1 56 SYSTEM_STATUS.JOBSTA_DSEC.SA.009 1 LINE 71 3 PAGE UM WSG JULY 12, 1979 22:35:03 COPY:JOBSTA 0 THIS IS THE DSECT FOR THE SYSTEM STATUS VECTOR. 0 Referenced by comments of: 42/1, 101/1, 198/1, 387/1, 387/2, 400/8, 413/1, 413/7, 634/1, 647/1, 650/1, 731/1, 3024/3, 4000/33 00413/010 SYSTEM STATUS SUMMPRT SG G WSG:SUMMPRT(1,999) D4.2T1 210 SYSTEM_STATUS.SUMMPRT.SG.010 1 LINE 121 1 PAGE UM WSG MAR. 26, 1979 02:50:34 WSG.:SUMMPRT 0 GOM PROGRAM TO PRINT SUMMARY DATA COLLECTED BY SSRTN (413/1). 0 Referenced by comments of: 413/1 00413/011 SYSTEM STATUS SUMMPRT OC G WSG:SUMMPRT(1000) D4.2T1 211 SYSTEM_STATUS.SUMMPRT.OC.011 1 LINE 80 2 PAGE UM WSG MAR. 26, 1979 02:50:35 0 Referenced by comments of: 540/9 00413/012 SYSTEM STATUS DOCUMENTATION WF WSG:SSRTN.DOC D4.2T1 212 SYSTEM_STATUS.DOCUMENTATI.WF.012 1 LINE 106 3 PAGE UM WSG MAR. 26, 1979 02:50:35 WSG.:SSRTN.DOC 0 WRITEUP DESCRIBING THE SYSTEM LOAD COMPUTATION ALGORITHM AND JOB SCHEDULING MECHANISM. 00414/001 *TAPEDUMP SA G TDMP WSG:TAPEDUMP(1,999) D4.2T1 213 TAPEDUMP..SA.001 1 LINE 80 18 PAGE UM WSG MAR. 26, 1979 02:50:36 WSG.:TAPEDUMP 0 PROGRAM TO DUMP 7- OR 9-TRACK TAPES OR FILES. 1 THU SEP 12/96 23:39:34 Page 134 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00414/002 *TAPEDUMP OE G *TAPEDUMP D4.2T1 214 TAPEDUMP..OE.002 1 LINE 3883 3 PAGE UM WSG MAR. 26, 1979 02:50:40 *TAPEDUMP 00418 *HBT S # (OBSOLETED BY *...*) D2T1 183 UM 00421 *SCN S # (OBSOLETED BY *...*) D2T1 199 UM 00422 FORTRAN LIBRARY SA # (OBSOLETED BY COMP 1002) D3T2 350 FORTRAN_LIBRARY.IBCOM#.SA.1 1 LINE 80 29 PAGE UM AUG. 02, 1973 02:49.57 00436/001 GTDJMSR SA DWB:GRJTM(1,124) D4T1 975 GTDJMSR..SA.001 1 LINE 77 3 PAGE UM DWB JULY 27, 1977 03:11:05 DWB.:GRJTM 0 SUBROUTINE TO CONVERT GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900. SIMILAR TO GRGJULTM (518), BUT TAKES DIFFERENT ARGUMENTS. 00436/002 GTDJMSR OC # *LIBRARY (SEE COMP 524) UM DWB 00436/003 GTDJMSR GTDJMS SA DWB:GTDJMS(1,999) D4T1 976 GTDJMSR.GTDJMS.SA.003 1 LINE 77 1 PAGE UM DWB JULY 27, 1977 03:11:07 DWB.:GTDJMS 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO GTDJMSR. CONVERTS GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900. 00436/004 GTDJMSR GTDJMS OC # *LIBRARY (SEE COMP 524) UM DWB 00437/001 JMSGTDR/JTUGTDR SA DWB:JMSGTDR(125,999) D4T1 977 JMSGTDR/JTUGTDR..SA.001 1 LINE 77 4 PAGE UM DWB JULY 27, 1977 03:11:09 DWB.:JMSGTDR 0 SUBROUTINE TO CONVERT JULIAN MICRO-SECONDS TO GREGORIAN TIME AND DATE. SIMILAR TO JULGRGTM (522), BUT TAKES DIFFERENT ARGUMENTS. HAS ALTERNATE ENTRY POINT (JTUGTDR) WHICH CONVERTS JULIAN TIMER-UNITS TO GREGORIAN TIME AND DATE. THIS IS THE UBC-CORRECTED VERSION OF FEB/77 WITH A FEW ADDITIONAL UM CORRECTIONS ADDED. 00437/002 JMSGTDR/JTUGTDR OC # *LIBRARY (SEE COMP 524) UM DWB 0 NOTE: *ANALYSIS CALLS A SUBROUTINE (JULGRGTM/JULGRGTU) WHICH IS ESSENTIALLY THE SAME AS THIS, BUT WITH DIFFERENT NAMES. THE OBJECT FOR THAT SUBROUTINE IS PART OF *ANALYSIS. *ANALYSIS COULD (SHOULD) BE CHANGED TO USE THIS SUBR OUT OF *LIBRARY. 1 THU SEP 12/96 23:39:34 Page 135 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00437/003 JMSGTDR/JTUGTDR JMSGTD SA DWB:JMSGTD(1,999) D4T1 978 JMSGTDR/JTUGTDR.JMSGTD.SA.003 1 LINE 77 1 PAGE UM DWB JULY 27, 1977 03:11:11 DWB.:JMSGTD 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JMSGTDR. 00437/004 JMSGTDR/JTUGTDR JMSGTD OC # *LIBRARY (SEE COMP 524) UM DWB 00437/005 JMSGTDR/JTUGTDR JTUGTD SA DWB:JTUGTD(1,999) D4T1 979 JMSGTDR/JTUGTDR.JTUGTD.SA.005 1 LINE 77 1 PAGE UM DWB JULY 27, 1977 03:11:14 DWB.:JTUGTD 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JTUGTDR. 00437/006 JMSGTDR/JTUGTDR JTUGTD OC # *LIBRARY (SEE COMP 524) UM DWB 00441 *FILEUSE SA G # (OBSOLETED BY $FILESTATUS, COMP 529) D3T2 369 FILEUSE..SA.1 1 LINE 80 5 PAGE UM AUG. 02, 1973 02:54.05 00442/001 CCATL SA O CCAT FILE:CCATL D4.2T1 215 CCATL..SA.001 1 LINE 80 18 PAGE UM HELFFRICH MAR. 26, 1979 02:50:40 FILE:CCATL 0 PROGRAM TO CONSTRUCT A CATALOG FROM SCRATCH IF THAT SHOULD EVER BECOME NECESSARY. THIS PROGRAM HAS BEEN REWORKED EXTENSIVELY FOR D4. THE GENERAL OPERATION IS NOW 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 ON FOUR SEPARATE EXTENTS (AND VOLUMES) OR SOMEWHERE IN BETWEEN DEPENDING ON HOW THE EXTENT SIZES AND CATALOG SIZES ARE SPECIFIED. (AT UM, WE PUT THE MICAT, SYSCAT, AND SFCAT ON THREE SEPARATE VOLUMES TO MINIMIZE CONTENTION.) ASSEMBLE USING COPY:FILE.MACROS (482/33). SEE COMP 682/2 FOR A WRITEUP. 0 Referenced by comments of: 682/2 00442/002 CCATL OC O FILE:CCATL.O D4.2T1 216 CCATL..OC.002 1 LINE 80 5 PAGE UM HELFFRICH MAR. 26, 1979 02:50:43 FILE:CCATL.O 00443 FORMAT-TEXT360 CONVERTER SS S W073:FORMAT2T360 D4T1 982 FORMAT-TEXT360_CONVERTER..SS. 1 LINE 90 9 PAGE UM SALISBURY JULY 27, 1977 03:11:21 0 SNOBOL PROGRAM TO CONVERT INPUT FOR *FORMAT TO INPUT FOR TEXT/360. THIS PROGRAM HAS MANY LIMITATIONS AND SOME KNOWN BUGS, BUT IS USUALLY BETTER THAN RETYPING. 00444/001 MTS VOLUME 2 MASTER WT S0485 MTSV2 'MTS MANUALS' POSN=NEWM10.V2 D4.2T1 217 MTS_VOLUME_2.MASTER.WT.001 1 SEQ 132 290 PAGE UM MANUAL MAR. 26, 1979 02:53:01 0 TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUALS (DECEMBER 1978). 1 THU SEP 12/96 23:39:34 Page 136 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 EDITOR: RICHARD A. SALISBURY 00444/002 MTS VOLUME 2 PRINT PT S0485 MTSV2 'MTS MANUALS' POSN=PRINT10.V2 D4.2T1 218 MTS_VOLUME_2.PRINT.PT.002 1 SEQ 132 497 PAGE UM MANUAL MAR. 26, 1979 02:53:13 0 TEXT/360 PRINT FILE. 00444/003 MTS VOLUME 2 FLOWCHART P S0485 MTSV2 'MTS MANUALS' POSN=FLOWCHART D4.2T1 219 MTS_VOLUME_2.FLOWCHART.P.003 1 SEQ 133 6 PAGE UM MANUAL MAR. 26, 1979 02:54:14 0 *FLOWCHART EXAMPLE -- MUST BE PRINTED AT 8 LINES/INCH. 00447/001 MOUNT STATISTICS MNTSTAT SUBR SA G MSTA S0792 WSGFS FSNAME=MNTSTAT D4T1 986 MOUNT_STATISTICS.MNTSTAT.SA.001 1 LINE 80 3 PAGE UM WSG JAN. 14, 1977 15:13:26 0 THE MOUNT STATISTICS FACILITY IS USED TO SAVE INFORMATION ABOUT MOUNTS AND ATTEMPTED MOUNTS WHICH FAIL. THIS INFORMATION IS COLLECTED VIA THE CMDSTAT FACILITY (531) AS RECORD TYPE 16. THE CMDSTAT FACILITY PERIODICALLY PLACES THE MNTSTAT RECORDS IN THE FILE SYS:MOUNTSTAT. THE SAVMS PROGRAM (447/3) SHOULD BE RUN ABOUT MONTHLY TO DUMP THE DATA FROM THIS FILE ONTO TAPE. THE SAVMS PROGRAM WILL LEAVE THE RECORD FOR THE LAST REFERENCE TO EACH RACK NUMBER IN THE FILE FOR ACCESS BY THE MSSCN PROGRAM (447/5) AND DELETE OLDER RECORDS. THE MSDEL PROGRAM (447/8) CAN BE USED TO DELETE ANY ADDITIONAL UNWANTED RECORDS AFTER SAVMS HAS BEEN RUN. MNTSTAT IS A SUBROUTINE CALLED BY THE MOUNT COMMAND (101/1) TO LOG STATISTICS RECORDS ABOUT EACH MOUNT REQUEST. ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 101/1, 101/2, 447/3, 447/8 00447/002 MOUNT STATISTICS MNTSTAT SUBR OC G # *CLSMOUNT (SEE COMP 101/2) UM WSG 00447/003 MOUNT STATISTICS SAVMS PGM SA G SVMS WSG:SAVMS(1,999) D4.2T1 220 MOUNT_STATISTICS.SAVMS_PG.SA.003 1 LINE 80 7 PAGE UM WSG MAR. 26, 1979 02:54:15 WSG.:SAVMS 0 PROGRAM TO DUMP THE MOUNT STATISTICS FROM SYS:MOUNTSTAT TO TAPE. THIS PROGRAM IS RUN MONTHLY AT UM. IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A TAPE AND THEN DELETES ALL BUT THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH RACK NUMBER. AT UM, THIS LEAVES ABOUT 100 PAGES WORTH OF MOUNT STATISTICS. THIS IS DONE SO THAT AN ONLINE FILE CONTAINING THE LAST REFERENCE (AND LAST POTENTIAL CHANGE) FOR EACH TAPE IS AVAILABLE FOR THE MSSCN PROGRAM (447/5). THE FILE SYS:MOUNTSTAT MUST BE A LINE FILE. THE TAPE IS BLOCKED VB(16379,255). AT UM, WE COPY EACH MONTH'S TAPE ONTO THE END OF A LARGER TAPE, SAVING THE MOUNT STATISTICS INDEFINITELY. IT IS ADVISABLE TO OCCASIONALLY OPTIMIZE SYS:MOUNTSTAT BY COPYING IT TO ANOTHER FILE AND BACK SINCE THE PROCESS OF DELETING THE OLD RECORDS (BY SAVMS) CAUSES THE FILE TO BECOME UNOPTIMIZED. THIS PROGRAM WILL HANDLE A MIXTURE OF BOTH THE RECORDS PRODUCED BY MNTSTAT (447/1) VIA CMDSTAT AND THE OLDER RECORDS PRODUCED BY THE D3.0 TAPESTAT PROGRAM. 0 Referenced by comments of: 447/1 1 THU SEP 12/96 23:39:34 Page 137 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00447/004 MOUNT STATISTICS SAVMS PGM OC G WSG:SAVMS(1000) D4.2T1 221 MOUNT_STATISTICS.SAVMS_PG.OC.004 1 LINE 80 2 PAGE UM WSG MAR. 26, 1979 02:54:16 00447/005 MOUNT STATISTICS MSSCN PGM SA G MSSN WSG:MSSCN(1,999) D4.2T1 222 MOUNT_STATISTICS.MSSCN_PG.SA.005 1 LINE 80 13 PAGE UM WSG MAR. 26, 1979 02:54:16 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 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, 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 D4.2T1 223 MOUNT_STATISTICS.MSSCN_PG.OC.006 1 LINE 80 3 PAGE UM WSG MAR. 26, 1979 02:54:18 SYS.:MSSCN 00447/007 MOUNT STATISTICS *MSS C *MSS D4.2T1 224 MOUNT_STATISTICS.*MSS.C.007 1 LINE 54 1 PAGE UM WSG MAR. 26, 1979 02:54:18 *MSS 0 COMMAND FILE USED BY THE OPERATORS TO RUN MSSCN (447/5). INVOKED BY ENTERING "MTS *MSS" ON THE OPERATOR'S CONSOLE. 00447/008 MOUNT STATISTICS MSDEL PGM SA G MSDL WSG:MSDEL(1,999) D4T1 992 MOUNT_STATISTICS.MSDEL_PG.SA.008 1 LINE 80 4 PAGE UM WSG JULY 27, 1977 03:20:25 WSG.:MSDEL 0 PROGRAM USED TO DELETE UNWANTED RECORDS FROM THE MOUNT STATISTICS FILE SYS:MOUNTSTAT. IT ASKS FOR RACK NUMBERS TO BE DELETED, WHICH MUST BE ENTERED ONE PER LINE, FOLLOWED BY AN END-OF-FILE. IT MAKES ONE PASS THROUGH SYS:MOUNTSTAT, WHICH IS LOCKED FOR MODIFICATION, AND DELETES ANY RECORD WHICH HAS ONE OF THE SPECIFIED RACK NUMBERS. AT UM, THIS PROGRAM IS RUN PERIODICALLY TO CLEAN OUT OLD SERIES OF RACK NUMBERS TO KEEP SYS:MOUNTSTAT AT A REASONABLE SIZE. THIS PROGRAM WILL NEVER DELETE ANY RECORD WHICH HAS NOT BEEN PREVIOUSLY SAVED ON TAPE AND WILL HANDLE A FILE WHICH IS A MIXTURE OF RECORDS PRODUCED BY MNTSTAT (447/1) AND THE D3.0 TAPESTAT PROGRAM (NOW OBSOLETE). 0 Referenced by comments of: 447/1 1 THU SEP 12/96 23:39:34 Page 138 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00447/009 MOUNT STATISTICS MSDEL PGM OC G WSG:MSDEL(1000) D4T1 993 MOUNT_STATISTICS.MSDEL_PG.OC.009 1 LINE 80 2 PAGE UM WSG JULY 27, 1977 03:20:27 00447/010 MOUNT STATISTICS SYS:MOUNTSTAT D # MTS:TST.MOUNTSTA UM WSG SYS:MOUNTSTAT 00449 *DEB S # (OBSOLETED BY *SORT) D2T1 341 UM 00451 CATALOG VERIFY - VNTD # (SEE COMP 682) UM 00453/001 DRUM INIT SA DNIT S0722 'D3T3' FSNAME=DRUM_INIT_..SA.1(1) 15 D4T1 994 DRUM_INIT_..SA.001 1 SEQ 80 7 PAGE UM DWB AUG. 01, 1973 18:21.35 0 STAND ALONE PROGRAM TO FORMAT DRUMS. HAS REP CARDS TO DEFINE CERTAIN PARAMETERS. UNCHANGED SINCE DIST 2.0 00453/002 DRUM INIT OC S0722 'D3T3' FSNAME=DRUM_INIT_..OC.2(1) 16 D4T1 995 DRUM_INIT_..OC.002 1 SEQ 80 6 PAGE UM DWB AUG. 01, 1973 18:21.37 00455 DBS:MAC SM # (OBSOLETE) D3T3 17 DBS:MAC..SM. 1 LINE 66 3 PAGE UM AUG. 01, 1973 18:21.38 00456 *CONFIG SA # (OBSOLETE) D2T1 318 UM 00457 TPSBUFFER SA # (OBSOLETE) D2T1 147 UM 00458/001 OLTEP 21.7 SOURCE SA G S0710 OLTEP 1 D4T1 996 OLTEP.21.7_SOURCE.SA.001 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 03:23:06 0 458/1 THROUGH 458/76 CONTAIN THE SOURCE FOR OS/360 RELEASE 21.7 OLTEP. THIS IS ASSEMBLED WITH *OSMAC AND OLTEPMACLIB (458/77). OLTEP IS RUN UNDER FAKEOS (SEE COMP 545). 0 Referenced by comments of: 338/1 00458/002 OLTEP 21.7 SOURCE SA G S0710 OLTEP 2 D4T1 997 OLTEP.21.7_SOURCE.SA.002 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:07 00458/003 OLTEP 21.7 SOURCE SA G S0710 OLTEP 3 D4T1 998 OLTEP.21.7_SOURCE.SA.003 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:09 00458/004 OLTEP 21.7 SOURCE SA G S0710 OLTEP 4 D4T1 999 OLTEP.21.7_SOURCE.SA.004 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:12 00458/005 OLTEP 21.7 SOURCE SA G S0710 OLTEP 5 D4T1 1000 OLTEP.21.7_SOURCE.SA.005 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 03:23:14 1 THU SEP 12/96 23:39:34 Page 139 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/006 OLTEP 21.7 SOURCE SA G S0710 OLTEP 6 D4T1 1001 OLTEP.21.7_SOURCE.SA.006 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 03:23:16 00458/007 OLTEP 21.7 SOURCE SA G S0710 OLTEP 7 D4T1 1002 OLTEP.21.7_SOURCE.SA.007 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 03:23:18 00458/008 OLTEP 21.7 SOURCE SA G S0710 OLTEP 8 D4T1 1003 OLTEP.21.7_SOURCE.SA.008 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:21 00458/009 OLTEP 21.7 SOURCE SA G S0710 OLTEP 9 D4T1 1004 OLTEP.21.7_SOURCE.SA.009 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:23 00458/010 OLTEP 21.7 SOURCE SA G S0710 OLTEP 10 D4T1 1005 OLTEP.21.7_SOURCE.SA.010 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:25 00458/011 OLTEP 21.7 SOURCE SA G S0710 OLTEP 11 D4T1 1006 OLTEP.21.7_SOURCE.SA.011 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:28 00458/012 OLTEP 21.7 SOURCE SA G S0710 OLTEP 12 D4T1 1007 OLTEP.21.7_SOURCE.SA.012 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:30 00458/013 OLTEP 21.7 SOURCE SA G S0710 OLTEP 13 D4T1 1008 OLTEP.21.7_SOURCE.SA.013 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:32 00458/014 OLTEP 21.7 SOURCE SA G S0710 OLTEP 14 D4T1 1009 OLTEP.21.7_SOURCE.SA.014 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:35 00458/015 OLTEP 21.7 SOURCE SA G S0710 OLTEP 15 D4T1 1010 OLTEP.21.7_SOURCE.SA.015 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 03:23:37 00458/016 OLTEP 21.7 SOURCE SA G S0710 OLTEP 16 D4T1 1011 OLTEP.21.7_SOURCE.SA.016 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:39 00458/017 OLTEP 21.7 SOURCE SA G S0710 OLTEP 17 D4T1 1012 OLTEP.21.7_SOURCE.SA.017 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:41 00458/018 OLTEP 21.7 SOURCE SA G S0710 OLTEP 18 D4T1 1013 OLTEP.21.7_SOURCE.SA.018 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 03:23:44 00458/019 OLTEP 21.7 SOURCE SA G S0710 OLTEP 19 D4T1 1014 OLTEP.21.7_SOURCE.SA.019 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:46 00458/020 OLTEP 21.7 SOURCE SA G S0710 OLTEP 20 D4T1 1015 OLTEP.21.7_SOURCE.SA.020 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:48 00458/021 OLTEP 21.7 SOURCE SA G S0710 OLTEP 21 D4T1 1016 OLTEP.21.7_SOURCE.SA.021 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:51 00458/022 OLTEP 21.7 SOURCE SA G S0710 OLTEP 22 D4T1 1017 OLTEP.21.7_SOURCE.SA.022 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:53 1 THU SEP 12/96 23:39:34 Page 140 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/023 OLTEP 21.7 SOURCE SA G S0710 OLTEP 23 D4T1 1018 OLTEP.21.7_SOURCE.SA.023 1 SEQ 80 1 PAGE UM MTA JULY 27, 1977 03:23:55 00458/024 OLTEP 21.7 SOURCE SA G S0710 OLTEP 24 D4T1 1019 OLTEP.21.7_SOURCE.SA.024 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:23:58 00458/025 OLTEP 21.7 SOURCE SA G S0710 OLTEP 25 D4T1 1020 OLTEP.21.7_SOURCE.SA.025 1 SEQ 80 11 PAGE UM MTA JULY 27, 1977 03:24:00 00458/026 OLTEP 21.7 SOURCE SA G S0710 OLTEP 26 D4T1 1021 OLTEP.21.7_SOURCE.SA.026 1 SEQ 80 12 PAGE UM MTA JULY 27, 1977 03:24:02 00458/027 OLTEP 21.7 SOURCE SA G S0710 OLTEP 27 D4T1 1022 OLTEP.21.7_SOURCE.SA.027 1 SEQ 80 35 PAGE UM MTA JULY 27, 1977 03:24:06 00458/028 OLTEP 21.7 SOURCE SA G S0710 OLTEP 28 D4T1 1023 OLTEP.21.7_SOURCE.SA.028 1 SEQ 80 19 PAGE UM MTA JULY 27, 1977 03:24:07 00458/029 OLTEP 21.7 SOURCE SA G S0710 OLTEP 29 D4T1 1024 OLTEP.21.7_SOURCE.SA.029 1 SEQ 80 24 PAGE UM MTA JULY 27, 1977 03:24:10 00458/030 OLTEP 21.7 SOURCE SA G S0710 OLTEP 30 D4T1 1025 OLTEP.21.7_SOURCE.SA.030 1 SEQ 80 12 PAGE UM MTA JULY 27, 1977 03:24:12 00458/031 OLTEP 21.7 SOURCE SA G S0710 OLTEP 31 D4T1 1026 OLTEP.21.7_SOURCE.SA.031 1 SEQ 80 26 PAGE UM MTA JULY 27, 1977 03:24:14 00458/032 OLTEP 21.7 SOURCE SA G S0710 OLTEP 32 D4T1 1027 OLTEP.21.7_SOURCE.SA.032 1 SEQ 80 11 PAGE UM MTA JULY 27, 1977 03:24:16 00458/033 OLTEP 21.7 SOURCE SA G S0710 OLTEP 33 D4T1 1028 OLTEP.21.7_SOURCE.SA.033 1 SEQ 80 23 PAGE UM MTA JULY 27, 1977 03:24:19 00458/034 OLTEP 21.7 SOURCE SA G S0710 OLTEP 34 D4T1 1029 OLTEP.21.7_SOURCE.SA.034 1 SEQ 80 21 PAGE UM MTA JULY 27, 1977 03:24:21 00458/035 OLTEP 21.7 SOURCE SA G S0710 OLTEP 35 D4T1 1030 OLTEP.21.7_SOURCE.SA.035 1 SEQ 80 8 PAGE UM MTA JULY 27, 1977 03:24:23 00458/036 OLTEP 21.7 SOURCE SA G S0710 OLTEP 36 D4T1 1031 OLTEP.21.7_SOURCE.SA.036 1 SEQ 80 7 PAGE UM MTA JULY 27, 1977 03:24:25 00458/037 OLTEP 21.7 SOURCE SA G S0710 OLTEP 37 D4T1 1032 OLTEP.21.7_SOURCE.SA.037 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 03:24:27 00458/038 OLTEP 21.7 SOURCE SA G S0710 OLTEP 38 D4T1 1033 OLTEP.21.7_SOURCE.SA.038 1 SEQ 80 9 PAGE UM MTA JULY 27, 1977 03:24:30 00458/039 OLTEP 21.7 SOURCE SA G S0710 OLTEP 39 D4T1 1034 OLTEP.21.7_SOURCE.SA.039 1 SEQ 80 11 PAGE UM MTA JULY 27, 1977 03:24:32 1 THU SEP 12/96 23:39:34 Page 141 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/040 OLTEP 21.7 SOURCE SA G S0710 OLTEP 40 D4T1 1035 OLTEP.21.7_SOURCE.SA.040 1 SEQ 80 16 PAGE UM MTA JULY 27, 1977 03:24:35 00458/041 OLTEP 21.7 SOURCE SA G S0710 OLTEP 41 D4T1 1036 OLTEP.21.7_SOURCE.SA.041 1 SEQ 80 8 PAGE UM MTA JULY 27, 1977 03:24:37 00458/042 OLTEP 21.7 SOURCE SA G S0710 OLTEP 42 D4T1 1037 OLTEP.21.7_SOURCE.SA.042 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 03:24:39 00458/043 OLTEP 21.7 SOURCE SA G S0710 OLTEP 43 D4T1 1038 OLTEP.21.7_SOURCE.SA.043 1 SEQ 80 37 PAGE UM MTA JULY 27, 1977 03:24:42 00458/044 OLTEP 21.7 SOURCE SA G S0710 OLTEP 44 D4T1 1039 OLTEP.21.7_SOURCE.SA.044 1 SEQ 80 17 PAGE UM MTA JULY 27, 1977 03:24:44 00458/045 OLTEP 21.7 SOURCE SA G S0710 OLTEP 45 D4T1 1040 OLTEP.21.7_SOURCE.SA.045 1 SEQ 80 15 PAGE UM MTA JULY 27, 1977 03:24:46 00458/046 OLTEP 21.7 SOURCE SA G S0710 OLTEP 46 D4T1 1041 OLTEP.21.7_SOURCE.SA.046 1 SEQ 80 31 PAGE UM MTA JULY 27, 1977 03:24:49 00458/047 OLTEP 21.7 SOURCE SA G S0710 OLTEP 47 D4T1 1042 OLTEP.21.7_SOURCE.SA.047 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:24:51 00458/048 OLTEP 21.7 SOURCE SA G S0710 OLTEP 48 D4T1 1043 OLTEP.21.7_SOURCE.SA.048 1 SEQ 80 12 PAGE UM MTA JULY 27, 1977 03:24:53 00458/049 OLTEP 21.7 SOURCE SA G S0710 OLTEP 49 D4T1 1044 OLTEP.21.7_SOURCE.SA.049 1 SEQ 80 15 PAGE UM MTA JULY 27, 1977 03:24:56 00458/050 OLTEP 21.7 SOURCE SA G S0710 OLTEP 50 D4T1 1045 OLTEP.21.7_SOURCE.SA.050 1 SEQ 80 10 PAGE UM MTA JULY 27, 1977 03:24:58 00458/051 OLTEP 21.7 SOURCE SA G S0710 OLTEP 51 D4T1 1046 OLTEP.21.7_SOURCE.SA.051 1 SEQ 80 5 PAGE UM MTA JULY 27, 1977 03:25:00 00458/052 OLTEP 21.7 SOURCE SA G S0710 OLTEP 52 D4T1 1047 OLTEP.21.7_SOURCE.SA.052 1 SEQ 80 24 PAGE UM MTA JULY 27, 1977 03:25:03 00458/053 OLTEP 21.7 SOURCE SA G S0710 OLTEP 53 D4T1 1048 OLTEP.21.7_SOURCE.SA.053 1 SEQ 80 27 PAGE UM MTA JULY 27, 1977 03:25:05 00458/054 OLTEP 21.7 SOURCE SA G S0710 OLTEP 54 D4T1 1049 OLTEP.21.7_SOURCE.SA.054 1 SEQ 80 24 PAGE UM MTA JULY 27, 1977 03:25:07 00458/055 OLTEP 21.7 SOURCE SA G S0710 OLTEP 55 D4T1 1050 OLTEP.21.7_SOURCE.SA.055 1 SEQ 80 33 PAGE UM MTA JULY 27, 1977 03:25:10 00458/056 OLTEP 21.7 SOURCE SA G S0710 OLTEP 56 D4T1 1051 OLTEP.21.7_SOURCE.SA.056 1 SEQ 80 11 PAGE UM MTA JULY 27, 1977 03:25:12 1 THU SEP 12/96 23:39:34 Page 142 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/057 OLTEP 21.7 SOURCE SA G S0710 OLTEP 57 D4T1 1052 OLTEP.21.7_SOURCE.SA.057 1 SEQ 80 39 PAGE UM MTA JULY 27, 1977 03:25:15 00458/058 OLTEP 21.7 SOURCE SA G S0710 OLTEP 58 D4T1 1053 OLTEP.21.7_SOURCE.SA.058 1 SEQ 80 32 PAGE UM MTA JULY 27, 1977 03:25:17 00458/059 OLTEP 21.7 SOURCE SA G S0710 OLTEP 59 D4T1 1054 OLTEP.21.7_SOURCE.SA.059 1 SEQ 80 21 PAGE UM MTA JULY 27, 1977 03:25:19 00458/060 OLTEP 21.7 SOURCE SA G S0710 OLTEP 60 D4T1 1055 OLTEP.21.7_SOURCE.SA.060 1 SEQ 80 20 PAGE UM MTA JULY 27, 1977 03:25:21 00458/061 OLTEP 21.7 SOURCE SA G S0710 OLTEP 61 D4T1 1056 OLTEP.21.7_SOURCE.SA.061 1 SEQ 80 18 PAGE UM MTA JULY 27, 1977 03:25:23 00458/062 OLTEP 21.7 SOURCE SA G S0710 OLTEP 62 D4T1 1057 OLTEP.21.7_SOURCE.SA.062 1 SEQ 80 8 PAGE UM MTA JULY 27, 1977 03:25:25 00458/063 OLTEP 21.7 SOURCE SA G S0710 OLTEP 63 D4T1 1058 OLTEP.21.7_SOURCE.SA.063 1 SEQ 80 10 PAGE UM MTA JULY 27, 1977 03:25:28 00458/064 OLTEP 21.7 SOURCE SA G S0710 OLTEP 64 D4T1 1059 OLTEP.21.7_SOURCE.SA.064 1 SEQ 80 12 PAGE UM MTA JULY 27, 1977 03:25:30 00458/065 OLTEP 21.7 SOURCE SA G S0710 OLTEP 65 D4T1 1060 OLTEP.21.7_SOURCE.SA.065 1 SEQ 80 38 PAGE UM MTA JULY 27, 1977 03:25:33 00458/066 OLTEP 21.7 SOURCE SA G S0710 OLTEP 66 D4T1 1061 OLTEP.21.7_SOURCE.SA.066 1 SEQ 80 7 PAGE UM MTA JULY 27, 1977 03:25:34 00458/067 OLTEP 21.7 SOURCE SA G S0710 OLTEP 67 D4T1 1062 OLTEP.21.7_SOURCE.SA.067 1 SEQ 80 3 PAGE UM MTA JULY 27, 1977 03:25:37 00458/068 OLTEP 21.7 SOURCE SA G S0710 OLTEP 68 D4T1 1063 OLTEP.21.7_SOURCE.SA.068 1 SEQ 80 19 PAGE UM MTA JULY 27, 1977 03:25:39 00458/069 OLTEP 21.7 SOURCE SA G S0710 OLTEP 69 D4T1 1064 OLTEP.21.7_SOURCE.SA.069 1 SEQ 80 13 PAGE UM MTA JULY 27, 1977 03:25:42 00458/070 OLTEP 21.7 SOURCE SA G S0710 OLTEP 70 D4T1 1065 OLTEP.21.7_SOURCE.SA.070 1 SEQ 80 15 PAGE UM MTA JULY 27, 1977 03:25:44 00458/071 OLTEP 21.7 SOURCE SA G S0710 OLTEP 71 D4T1 1066 OLTEP.21.7_SOURCE.SA.071 1 SEQ 80 24 PAGE UM MTA JULY 27, 1977 03:25:47 00458/072 OLTEP 21.7 SOURCE SA G S0710 OLTEP 72 D4T1 1067 OLTEP.21.7_SOURCE.SA.072 1 SEQ 80 11 PAGE UM MTA JULY 27, 1977 03:25:48 00458/073 OLTEP 21.7 SOURCE SA G S0710 OLTEP 73 D4T1 1068 OLTEP.21.7_SOURCE.SA.073 1 SEQ 80 2 PAGE UM MTA JULY 27, 1977 03:25:50 1 THU SEP 12/96 23:39:34 Page 143 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/074 OLTEP 21.7 SOURCE SA G S0710 OLTEP 74 D4T1 1069 OLTEP.21.7_SOURCE.SA.074 1 SEQ 80 21 PAGE UM MTA JULY 27, 1977 03:25:53 00458/075 OLTEP 21.7 SOURCE SA G S0710 OLTEP 75 D4T1 1070 OLTEP.21.7_SOURCE.SA.075 1 SEQ 80 26 PAGE UM MTA JULY 27, 1977 03:25:56 00458/076 OLTEP 21.7 SOURCE SA G S0710 OLTEP 76 D4T1 1071 OLTEP.21.7_SOURCE.SA.076 1 SEQ 80 9 PAGE UM MTA JULY 27, 1977 03:25:58 00458/077 OLTEP OLTEPMACLIB SM G S0938 FSAVE2 VLO FSNAME=OLTEPMACLIB(1) D4T1 1072 OLTEP.OLTEPMACLIB.SM.077 1 LINE 72 56 PAGE UM MTA SEP. 23, 1975 00:49:30 0 MACROS, SOME OF WHICH ARE USED BY OLTEP -- NOT SURE WHICH MACROS ARE NOT NEEDED. 0 Referenced by comments of: 458/1 00458/078 OLTEP OBJECT OC G ETC:OLTEP D4T1 1073 OLTEP.OBJECT.OC.078 1 SEQ 920 2 PAGE UM MTA JULY 27, 1977 03:26:41 ETC.:OLTEP 0 OBJECT FOR OLTEP MAIN PROGRAM AND IFDOLT59, WHICH IS INCLUDED TO GET THE RIGHT DEFINITION OF SOME MULTIPLY DEFINED SYMBOLS. 00458/079 OLTEP OLTEPLIB OL G ETC:OLTEPLIB D4.2T1 225 OLTEP.OLTEPLIB.OL.079 1 LINE 2572 64 PAGE UM MTA MAR. 26, 1979 02:54:19 ETC.:OLTEPLIB 0 OBJECT LIBRARY FOR THE REST OF OLTEP. SOME MODULES WHICH ARE NOT USED IN MTS ARE INCLUDED. THE FOLLOWING PATCHES ARE INCLUDED BECAUSE THESE MODULES USE MACROS WHICH ARE NOT IN *OSMAC: TO IFDOLT20: REP 000000 0141F00020,07FE TO IFDOLT22: REP 000386 014700 0 Referenced by comments of: 458/80 00458/080 OLTEP OLTEPBLDLIN D G MTA:OLTEPBLDLIN D4.2T1 226 OLTEP.OLTEPBLDLIN.D.080 1 LINE 60 1 PAGE UM MTA MAR. 26, 1979 02:54:23 MTA.:OLTEPBLDLIN 0 INPUT TO CREBLDL (545/36) FOR OLTEP. CONTAINS ENTRIES FOR THINGS IN OLTEPLIB (458/79), BUT NOT OLTEPCDSLIB (458/86) OR OLTEPTSTLIB (458/82). 00458/081 OLTEP OLTEPBLDL D G ETC:OLTEPBLDL D4.2T1 227 OLTEP.OLTEPBLDL.D.081 1 SEQ 242 9 PAGE UM MTA MAR. 26, 1979 02:54:23 ETC.:OLTEPBLDL 0 BLDL INFO FOR OLTEP. CREATED BY CREBLDL (545/36) USING 458/80, 458/83, AND 458/85 AS INPUT. 00458/082 OLTEP OLTEPTSTLIB OL G MTS:OLTEPTSTLIB D4.2T1 228 OLTEP.OLTEPTSTLIB.OL.082 1 LINE 26386 242 PAGE UM MTA MAR. 26, 1979 02:54:24 ETC.:OLTEPTSTLIB 0 OBJECT LIBRARY FOR TEST SECTIONS AND CDS (CONFIGURATION DATA SET) MODULES. INCLUDES TESTS FOR: 2400, 2301, 2540, 2541, 2501, 1403, 1 THU SEP 12/96 23:39:34 Page 144 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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). PUT THIS IN ETC:OLTEPTSTLIB. 0 Referenced by comments of: 458/80 00458/083 OLTEP OLTEPTSTBLDL D MTA:OLTEPTSTBLDL D4.2T1 229 OLTEP.OLTEPTSTBLDL.D.083 1 LINE 60 7 PAGE UM MTA MAR. 26, 1979 02:54:36 MTA:OLTEPTSTBLDL 0 INPUT TO CREBLDL (545/36) FOR 458/82. 0 Referenced by comments of: 458/82 00458/084 OLTEP OLTEPCDS D MTA:OLTEPCDS D4.2T1 230 OLTEP.OLTEPCDS.D.084 1 LINE 64 8 PAGE UM MTA MAR. 26, 1979 02:54:37 MTA.:OLTEPCDS 0 INPUT TO SOSPB TO PRODUCE A CDS FOR THE UM HARDWARE CONFIGURATION. THIS MUST BE COPIED TO A TAPE AND THE TAPE USED AS INPUT TO SOSPB (WITH THE OLTSEP TAPE AND AN OUTPUT TAPE ALSO AVAILABLE). 0 Referenced by comments of: 458/86 00458/085 OLTEP OLTEPCDSBLDL D MTA:OLTEPCDSBLDL D4.2T1 231 OLTEP.OLTEPCDSBLDL.D.085 1 LINE 60 11 PAGE UM MTA MAR. 26, 1979 02:54:38 MTA.:OLTEPCDSBLDL 0 INPUT TO CREBLDL FOR THE UM CONFIGURATION CDS. 00458/086 OLTEP OLTEPCDSLIB OL G ETC:OLTEPCDSLIB D4.2T1 232 OLTEP.OLTEPCDSLIB.OL.086 1 LINE 6552 40 PAGE UM MTA MAR. 26, 1979 02:54:40 ETC.:OLTEPCDSLIB 0 LIBRARY OF CDS ENTRIES FOR THE UM CONFIGURATION PRODUCED BY SOSP READING OLTEPCDS (458/84). 0 Referenced by comments of: 458/80 00458/087 OLTEP OLTEPOBJCVT SA O MTA:OLTEPOBJCVT(1,999) D4T1 1081 OLTEP.OLTEPOBJCVT.SA.086 1 LINE 80 4 PAGE UM MTA JULY 27, 1977 03:27:09 MTA.:OLTEPOBJCVT 0 PROGRAM TO CONVERT OLTSEP, OLTEP, OR CDS DECKS WITH OR WITHOUT OS LINKEDIT CONTROL CARDS TO MTS FORMAT AND PRODUCE INPUT TO CREBLDL FOR THEM. THE INPUT IS READ FROM SCARDS; THE MTS OBJECT DECKS ARE WRITTEN ON SPUNCH; A PROTOTYPE BLDL RECORD IS READ FROM UNIT 0; AND BLDL OUTPUT RECORDS WITH CORRECT NAME AND LENGTH ARE WRITTEN ON UNIT 1. 1 THU SEP 12/96 23:39:34 Page 145 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00458/088 OLTEP OLTEPOBJCVT OC O MTA:OLTEPOBJCVT(1000) D4T1 1082 OLTEP.OLTEPOBJCVT.OC.087 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 03:27:11 00458/089 OLTEP OLTEPCMD C MTA:OLTEPCMD D4T1 1083 OLTEP.OLTEPCMD.C.088 1 LINE 95 1 PAGE UM MTA JULY 27, 1977 03:27:14 MTA.:OLTEPCMD 0 THE FOLLOWING PROCEDURES SHOULD BE USED FOR RELEASE 21.7 OLTEP. TO RUN OLTEP, ISSUE THE FOLLOWING COMMAND: $SOURCE OLTEPCMD WHERE OLTEPCMD IS 458/89 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. 00459 *ICSERIES S # (OBSOLETE) D2T2 155 UM 00460 WIREWRAP TEST # (OBSOLETE) D2T2 156 UM 00461/001 DISTRIBUTION DEDIT SA G WSG:DEDIT D4.2T1 233 DISTRIBUTION.DEDIT.SA.001 1 LINE 72 28 PAGE UM WSG MAR. 26, 1979 02:54:43 WSG.:DEDIT 0 DISTRIBUTION DRIVER FILE EDITOR USED TO CONSTRUCT AND EDIT DRIVER FILES. COPIES COPY:DRDSECT (461/11) AND *CNFGINFODSECT (654). 0 Referenced by comments of: 461/11 00461/002 DISTRIBUTION *DEDIT OE G *DEDIT D4.2T1 234 DISTRIBUTION.*DEDIT.OE.002 1 LINE 11192 6 PAGE UM WSG MAR. 26, 1979 02:54:45 *DEDIT 00461/003 DISTRIBUTION 5-LINE SA G 5LIN S0722 'D3T3' FSNAME=DISTRIBUTION.5-LINE.SA.7(1) 31 D4T1 1086 DISTRIBUTION.5-LINE.SA.003 1 LINE 80 8 PAGE UBC HOGG MAR. 01, 1973 19:33:27 0 PROGRAM TO PRINT THE FIRST 5 AND LAST 5 LINES OF EACH FILE ON A *FS TAPE. USED TO VERIFY DIST TAPE CONTENTS. 00461/004 DISTRIBUTION 5-LINE OC G MTS:FS5L D4T1 1087 DISTRIBUTION.5-LINE.OC.004 1 LINE 80 3 PAGE UBC HOGG JULY 27, 1977 03:27:34 MTS.:FS5L 1 THU SEP 12/96 23:39:34 Page 146 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00461/005B DISTRIBUTION 6250 DRIVER D MTS:DRIVER6250 RD16T2 381 DISTRIBUTION.6250_DRIVER.D.005 1 LINE 263 282 PAGE UM SWEET JULY 23, 1979 17:00:00 MTS:DRIVER6250 0 THIS IS THE COMPLETE DRIVER FILE FOR THE 6250 BPI VERSION OF UM RD16. ITEMS INCLUDED IN RD16 ARE MARKED WITH REVISION LEVELS AS FOLLOWS: REVL=B LATER VERSIONS OF COMPONENTS SENT ON D4.2. THESE WILL ALSO BE SENT OUT WITH THE NEXT REGULAR SYSTEM DISTRIBUTION. REVL=C NEW SUBCOMPONENTS WHICH HAVE BEEN ADDED TO THE PRODUCTION SYSTEM AT UM SINCE D4.2 AND WHICH ARE TO BE INCLUDED IN THE NEXT REGULAR DISTRIBUTION. REVL=D PRELIMINARY VERSIONS OF PROGRAMS FOR PERUSAL AND/OR TESTING BY OTHER INSTALLATIONS. THIS CATEGORY IS INTENDED FOR COMPONENTS WHICH MAY BE DESTINED TO BECOME A PART OF THE PRODUCTION SYSTEM AT UM, BUT, DUE TO THEIR CURRENT PRELIMINARY STATE ARE NOT YET SUITABLE FOR INCLUSION. DEPENDING UPON WHETHER OR NOT IT HAS BEEN DECIDED IF THE COMPONENT WILL DEFINITELY BE INCLUDED IN THE PRODUCTION SYSTEM EVENTUALLY, EITHER A COMPONENT NUMBER IN UM'S RANGE WAS ASSIGNED OR IT WAS GIVEN A NUMBER IN THE "THROWAWAY" RANGE 9000 TO 9999. REVL=X COMPONENTS WHICH ARE TO BE SENT ONLY ON A REDISTRIBUTION TAPE. THESE COMPONENTS HAVE NUMBERS IN THE RANGE 9000 TO 9999. 0 Referenced by comments of: 461/13 00461/006B DISTRIBUTION 1600 DRIVER D = MTS:DRIVER1600 D4.2T2 559 DISTRIBUTION.1600_DRIVER.D.006 1 LINE 263 273 PAGE UM SWEET APR. 16, 1979 03:32:43 MTS:DRIVER1600 0 THIS IS THE COMPLETE DRIVER FILE FOR THE 1600 BPI VERSION OF UM RD16. ITEMS INCLUDED IN RD16 ARE MARKED WITH REVISION LEVELS AS INDICATED IN THE COMMENTS FOR 461/5. 0 Referenced by comments of: 461/14 00461/007B DISTRIBUTION DRIVER COMMENT D MTS:COMM RD16T2 382 DISTRIBUTION.DRIVER_COMME.D.007 1 LINE 138 135 PAGE UM SWEET JULY 23, 1979 17:00:00 MTS:COMM 0 THIS IS THE COMMENT FILE FOR THE RD16 DRIVER FILES (461/5 AND 461/6). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 1 THU SEP 12/96 23:39:34 Page 147 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00461/008 DISTRIBUTION NEW SYSTEMS WF S1320 D4.2T2 VLO FSNAME=DISTRIBUTION.NEW_SYSTEMS.WF.008(1) 551 D4.2T2 551 DISTRIBUTION.NEW_SYSTEMS.WF.008 1 LINE 147 3 PAGE UM WSG APR. 16, 1979 03:24:51 WSG.:NEWSYS.WF 0 A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.2 AT NEW INSTALLATIONS, I.E. INSTALLATIONS WHICH HAVE NOT PREVIOUSLY USED MTS. 00461/009 DISTRIBUTION OLD SYSTEMS WF S1320 D4.2T2 VLO FSNAME=DISTRIBUTION.OLD_SYSTEMS.WF.009(1) 552 D4.2T2 552 DISTRIBUTION.OLD_SYSTEMS.WF.009 1 LINE 76 7 PAGE UM WSG APR. 16, 1979 03:24:52 WSG.:OLDSYS.WF 0 A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.2 AT OLD INSTALLATIONS, I.E. INSTALLATIONS WHICH HAVE PREVIOUSLY USED MTS. 00461/010 DISTRIBUTION GENERAL NOTES WF W095:GEN.NOTES D4.2T1 235 DISTRIBUTION.GENERAL_NOTE.WF.010 1 LINE 147 9 PAGE UM WSG MAR. 26, 1979 02:55:05 0 GENERAL NOTES ON DISTRIBUTION 4.2. 00461/011 DISTRIBUTION DRIVER DSECT SA G DRVD COPY:DRDSECT D4.1T1 163 DISTRIBUTION.DRIVER_DSECT.SA.010 1 LINE 80 3 PAGE UM WSG MAY 13, 1978 17:21:51 COPY:DRDSECT 0 COPY SECTION FOR THE DRIVER FILE DSECT USED BY *FS (548) AND *DEDIT (461/1). IT DEFINES THE STRUCTURE OF A DISTRIBUTION DRIVER FILE RECORD. 0 Referenced by comments of: 461/1, 548/1 00461/012 DISTRIBUTION DRIV INDEX GEN C MTS:DISTINDEX D4.2T1 236 DISTRIBUTION.DRIV_INDEX_G.C.012 1 LINE 133 1 PAGE UM SWEET MAR. 26, 1979 02:55:09 MTS.:DISTINDEX 0 COMMAND FILE TO PRODUCE A DRIVER FILE ALPHABETIZED INDEX. 00461/013 DISTRIBUTION 6250 INDEX P MTS:INDEX6250 D4.2T2 561 DISTRIBUTION.6250_INDEX.P.013 1 LINE 133 164 PAGE UM SWEET APR. 16, 1979 03:33:10 MTS:INDEX6250 0 INDEX FOR THE 6250 BPI DRIVER FILE (461/5). COPY TO A TN PRINTER. 00461/014 DISTRIBUTION 1600 INDEX P MTS:INDEX1600 D4.2T2 562 DISTRIBUTION.1600_INDEX.P.014 1 LINE 133 164 PAGE UM SWEET APR. 16, 1979 03:33:34 MTS:INDEX1600 0 INDEX FOR THE 1600 BPI DRIVER FILE (461/6). COPY TO A TN PRINTER. 00461/015 DISTRIBUTION D4.2 MEMO LIST WF W095:MEMOLIST D4.2T1 237 DISTRIBUTION.D4.2_MEMO_LI.WF.015 1 LINE 112 5 PAGE UM SWEET MAR. 26, 1979 02:55:17 0 WRITEUP SHOWING THE STATUS OF ALL COMPUTING CENTER MEMOS AT THE TIME OF D4.2. DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6). 1 THU SEP 12/96 23:39:34 Page 148 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00461/016 DISTRIBUTION CHG FORMS CMDS C MTS:CHANGEFORMS D4.1T1 166 DISTRIBUTION.CHG_FORMS_CM.C.014 1 LINE 66 1 PAGE UM DWB MAY 13, 1978 17:21:58 MTS.:CHANGEFORMS 0 COMMAND FILE TO RUN THE DISTRIBUTION CHANGE FORM GENERATION PROGRAM (461/17) WHICH READS THE CHANGE FORM DATA FILE (461/18) TO PRODUCE CHANGE FORMS IN THE FILE -FORMS. 00461/017 DISTRIBUTION CHG FORMS PGM SS G MTS:CHGFORMPGM D4.2T2 518 DISTRIBUTION.CHG_FORMS_PG.SS.017 1 LINE 78 3 PAGE UM DWB APR. 09, 1979 00:16:29 MTS.:CHGFORMPGM 0 SPITBOL PROGRAM TO PROCESS THE CHANGE FORM DATA FILE (461/18) AND PRODUCE CHANGE FORMS. 0 Referenced by comments of: 461/16, 461/18 00461/018B DISTRIBUTION CHG FORMS DATA D MTS:CHGFORMDATA RD16T1 57 DISTRIBUTION.CHG_FORMS_DA.D.018 1 LINE 89 79 PAGE UM DWB JULY 12, 1979 22:39:49 MTS.:CHGFORMDATA 0 DATA FILE OF CHANGE FORMS RELEVANT TO THE D4 DISTRIBUTION. TO BE USED AS INPUT TO THE CHANGE FORM PROGRAM (461/17) TO PRODUCE THE ACTUAL PRINTED FORMS. THE CONSTRUCTION OF THIS DATA FILE IS DESCRIBED IN 461/19. 0 Referenced by comments of: 461/16, 461/17, 461/19 00461/019 DISTRIBUTION CHG FORMS DESC WF DWB:CHGFORMNOTE D4.1T1 169 DISTRIBUTION.CHG_FORMS_DE.WF.017 1 LINE 68 3 PAGE UM DWB MAY 13, 1978 17:22:07 DWB.:CHGFORMNOTE 0 MEMO TO UM COMPUTING CENTER STAFF ABOUT HOW TO CONSTRUCT THE CHANGE FORMS DATA FILE (461/18). 00461/020 DISTRIBUTION MEMO 378 WF W098:M378 D4.1T1 170 DISTRIBUTION.MEMO_378.WF.018 1 LINE 92 11 PAGE UM PIRKOLA MAY 13, 1978 17:22:07 0 THIS IS COMPUTING CENTER MEMO 378 -- "SUPPORT CATEGORIES FOR COMPUTING CENTER SOFTWARE." 00461/021 DISTRIBUTION FM.GEN SS G WSG:FM.GEN D4.2T1 238 DISTRIBUTION.FM.GEN.SS.021 1 LINE 75 2 PAGE UM WSG MAR. 26, 1979 03:04:25 WSG:FM.GEN 0 MTS COMMANDS AND A SPITBOL PROGRAM TO GENERATE INPUT FOR THE FILE MOVE PROGRAM (1020) WHICH CAN BE USED TO BUILD A TEST PACK BASED ON A DRIVER FILE. THE PROGRAM WILL ASK FOR THE FOLLOWING: (1) THE NAME OF A FILE WHICH CONTAINS A COMPLETE LIST OF THE FILES CURRENTLY ON THE TEST PACK (POSSIBLY NULL), (2) THE NAME OF THE DRIVER FILE, AND (3) THE DRIVER FILE REVISION LEVEL TO BE USED (ENTER A NULL LINE FOR A FULL DISTRIBUTION). THE PROGRAM WILL READ THROUGH THE DRIVER FILE AND, FOR LINES WHICH HAVE A NON-BLANK DISK NAME FIELD (SEE *DEDIT WRITEUP) AND THE APPROPRIATE 1 THU SEP 12/96 23:39:34 Page 149 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 REVISION LEVEL, IT WILL OUTPUT (ON SPUNCH) RECORDS WHICH CAN BE USED AS INPUT TO FILE MOVE. THE PROGRAM WILL PRINT AN ERROR MESSAGE (ON SPRINT) FOR ANY COMPONENT (AT THE SPECIFIED REVISION LEVEL) WHICH HAS A BAD SAVE CONTROL FIELD OR WHICH IS LOCATED ON TAPE (SINCE FILE MOVE CAN'T READ TAPES). IT WILL ALSO OUTPUT (ON UNIT 0) A NEW FILE LIST FOR THE PACK, I.E., A LIST OF WHAT FILES WILL BE ON THE PACK AFTER FILE MOVE IS RUN. 00461/022 DISTRIBUTION MTS421 FILES D S1320 D4.2T2 VLO FSNAME=DISTRIBUTION.MTS421_FILES.D.022(1) 553 D4.2T2 553 DISTRIBUTION.MTS421_FILES.D.022 1 LINE 17 7 PAGE UM WSG APR. 16, 1979 03:24:59 MTS:MTS421.FILES 0 A LIST OF ALL THE FILES ON THE D4.2 DUMP/RESTORE PACK. 00461/023 DISTRIBUTION DEDIT WRITEUP PT = S1319 D4.2T1 VLO FSNAME=DISTRIBUTION.DEDIT_WRITEU.PT.023(1) 239 D4.2T1 239 DISTRIBUTION.DEDIT_WRITEU.PT.023 1 LINE 103 14 PAGE UM WSG MAR. 26, 1979 03:04:30 WSG.:DEDIT.PT 0 TEMPORARY VOLUME 2 WRITEUP FOR D4.2 *DEDIT. COPY TO A TN PRINTER @MCC. DESCRIBES THE FOLLOWING NEW FEATURES: (1) "WITH PROMPT" OPTION ON INSERT COMMAND. (2) UPDATE  ALL|/COMMAND¬ COMMAND. (3) /DISKNAME COMMAND 00461/024C DISTRIBUTION MTS BIB WF W098:EAS.PUBLIT RD16T1 58 DISTRIBUTION.MTS_BIB.WF.024 1 LINE 69 2 PAGE UM SWEET JULY 12, 1979 22:41:15 0 BIBLIOGRAPHY OF PUBLISHED PAPERS ABOUT MTS AND FRIENDS. 00462 CHECKSUM SA # (OBSOLETED BY PROTECTION) D3T3 36 CHECKSUM..SA.1 1 SEQ 80 3 PAGE UM AUG. 01, 1973 18:30.28 00463/001 STDDMP SUBR SA G MTS:STDDMP(1000) D4.2T1 240 STDDMP_SUBR..SA.001 1 LINE 72 5 PAGE UM MTA MAR. 26, 1979 03:04:31 MTS:STDDMP 0 PRODUCES STANDARD FORMAT DUMPS. SEE ALSO SDUMP (049). 00463/002 STDDMP SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00464/001 PLIMIT D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=PLIM D4T1 1094 PLIMIT.D4_MASTER.SA.001 1 SEQ 80 3 PAGE UM MTS HELFFRICH JULY 27, 1977 03:28:49 0 CHECKS PAGE AND PUNCH LIMITS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 00464/002B PLIMIT UPDATE UC G MTS:PLIMUPD RD16T1 59 PLIMIT.UPDATE.UC.002 1 LINE 68 1 PAGE UM MTS HELFFRICH JULY 12, 1979 22:41:16 MTS.:PLIMUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=PLIM. 1 THU SEP 12/96 23:39:34 Page 150 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00464/003B PLIMIT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00464/004B PLIMIT L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=PLIM.LIST 8 RD16T1 60 PLIMIT..L.004 1 SEQ 133 19 PAGE UM MTS HELFFRICH JULY 12, 1979 22:41:38 00465/001B *APL MTS INTERFACE SA G W170:APL.MTS(1000) RD16T1 61 APL.MTS_INTERFACE.SA.001 1 LINE 72 31 PAGE UM HELFFRICH JULY 12, 1979 22:41:38 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), *GFINFODSECT (593) AND *CNFGINFODSECT (654). THIS IS A 370-ONLY VERSION OF APL, AND DOES NOT EVER NEED TO BE RUN WITH PROT=OFF. PREVIOUSLY, THIS HAD TO BE DONE IF APL WAS LOADED INTO SHARED VM SO IT WOULD MODIFY ITSELF TO USE MVCL LOGIC TO CLEAR WORKSPACES IF RUNNING ON A 370. 00465/002 *APL TRTABS SA G TRTA S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TRTA.S D4T1 1099 APL.TRTABS.SA.002 1 LINE 80 43 PAGE UM HELFFRICH MAR. 04, 1977 19:14:31 0 SOURCE FOR THE APL TRANSLATE TABLES TO CONVERT APL INTERNAL CHARACTERS TO EXTERNAL CHARACTERS. INCLUDES TABLES FOR: 1052, 1050, 2741, CORRESPONDENCE 2741, TTY 38 APL ASSIGNMENT #3, GSI300/DTC300/DTC302, APL2 DEVICES (DDI265), LA36, AND ASCII DEVICES. ASSEMBLE USING THE APL MACRO LIBRARY (465/3). 00465/003 *APL MACRO LIBRARY SM G ALIB S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.MACROS D4T1 1100 APL.MACRO_LIBRARY.SM.003 1 LINE 80 21 PAGE UM HELFFRICH MAR. 04, 1977 19:05:51 0 MACRO LIBRARY CONTAINING MACROS AND COPY SECTIONS REQUIRED FOR ASSEMBLING ALL THE APL SOURCE COMPONENTS. 0 Referenced by comments of: 465/1, 465/2, 465/4, 465/5, 465/6, 465/7, 465/8, 465/9, 465/10, 465/11, 465/12, 465/13 00465/004 *APL ARTH UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.ARTH.U D4T1 1101 APL.ARTH_UPDATE.UU.004 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:17:46 0 UPDATE TO BE APPLIED TO ORIGINAL SOURCE TO YIELD CURRENT UM SOURCE FOR ARTH MODULE. THE SUCCEEDING SUB-COMPONENTS (365/5 THROUGH 365/12) ARE SIMILAR. ARTH CHANGES: MACRO FIXUP AND RECOGNITION OF "REVERSAL ALONG FIRST DIMENSION" OPERATOR. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/005 *APL DEXP UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DEXP.U D4T1 1102 APL.DEXP_UPDATE.UU.005 1 LINE 61 1 PAGE UM HELFFRICH MAR. 04, 1977 19:18:21 0 SEE COMMENTS FOR 465/4. DEXP CHANGES: FIX OF BUG CAUSING OCCASIONAL WRONG SIGN OF VALUE RETURNED BY SQUARE ROOT. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/006 *APL DYIB UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.DYIB.U D4T1 1103 APL.DYIB_UPDATE.UU.006 1 LINE 65 1 PAGE UM HELFFRICH MAR. 04, 1977 19:18:55 0 SEE COMMENTS FOR 465/4. DYIB CHANGES: IMPLEMENTATION OF PRIVILEGED DYADIC OPERATIONS. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 1 THU SEP 12/96 23:39:34 Page 151 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00465/007 *APL IBAR UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.IBAR.U D4T1 1104 APL.IBAR_UPDATE.UU.007 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:19:29 0 SEE COMMENTS FOR 465/4. IBAR CHANGES: CHANGE TO RETRIEVAL METHOD FOR TIME OF DAY IBEAM. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/008 *APL OCTL UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.OCTL.U D4T1 1105 APL.OCTL_UPDATE.UU.008 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:20:01 0 SEE COMMENTS FOR 465/4. OCTL CHANGES: CHANGES FOR CATN. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/009 *APL REDU UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.REDU.U D4T1 1106 APL.REDU_UPDATE.UU.009 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:20:30 0 SEE COMMENTS FOR 465/4. REDU CHANGES: YIELDS NONCE ERROR IF "SCAN" OPERATION IS ATTEMPTED. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/010 *APL SLCT UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.SLCT.U D4T1 1107 APL.SLCT_UPDATE.UU.010 1 LINE 72 1 PAGE UM HELFFRICH MAR. 04, 1977 19:21:01 0 SEE COMMENTS FOR 465/4. SLCT CHANGES: RECOGNITION OF EXPANSION AND COMPRESSION ALONG FIRST DIMENSION SYMBOLS. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/011 *APL TPIN UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.TPIN.U D4.2T1 242 APL.TPIN_UPDATE.UU.011 1 LINE 72 12 PAGE UM HELFFRICH JAN. 16, 1979 15:32:03 0 SEE COMMENTS FOR 465/4. TPIN CHANGES: )SYMBOLS COMMAND IMPLEMENTED; BUG RELATING TO IGNORING OF INPUT AFTER ATTN INTERRUPT FIXED; CHANGES TO OBTAIN DATE DIFFERENTLY; )COPY AND )PCOPY ERROR REPORTING ADDED. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/012 *APL VECT UPDATE UU G S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.VECT.U D4T1 1109 APL.VECT_UPDATE.UU.012 1 LINE 65 1 PAGE UM HELFFRICH MAR. 04, 1977 19:22:13 0 SEE COMMENTS FOR 465/4. VECT CHANGES: CALLS ERROR$ RATHER THAN ERROR. ASSEMBLE RESULT USING THE APL MACRO LIBRARY (465/3). 00465/013 *APL CATN SA G ACTN S0984 ARCHIV 'APL ARCHIVE' FSNAME=APL.CATN.S D4.1T1 179 APL.CATN.SA.013 1 LINE 80 13 PAGE UM HELFFRICH FEB. 02, 1978 15:13:19 0 REWRITE OF CATENATION PROCESSOR TO PROVIDE FULL CATENATION CAPABILITIES IN APL/MTS. COPIES OPSECT AND APLDEFN FROM THE APL MACRO LIBRARY (465/3). 00465/014B *APL OBJECT OC G SEG2:S2APL RD16T1 62 APL.OBJECT.OC.014 1 LINE 11225 110 PAGE UM HELFFRICH JULY 12, 1979 22:41:46 SEG2:S2APL 0 APL OBJECT LOADED INTO SHARED VM BY PISTLE AT IPL. 0 Referenced by comments of: 465/15 1 THU SEP 12/96 23:39:34 Page 152 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00465/015 *APL *APL OC G *APL D4T1 1112 APL.*APL.OC.015 1 LINE 24 1 PAGE UM HELFFRICH JULY 27, 1977 03:35:49 *APL 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM APL (465/14). 00465/016 *APL MEMO 382 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M382APL D4.2T1 244 APL.MEMO_382.WF.016 1 LINE 130 12 PAGE UM HELFFRICH SEP. 07, 1978 17:00:42 0 THIS IS COMPUTING CENTER MEMO 382 -- "MTS APL USERS' GUIDE". NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY. 00466/001 ACTIVCNT/ASTATSUB SA G ACAS MTS:ACTIVCNT(1,99) D4T1 1114 ACTIVCNT/ASTATSUB..SA.001 1 LINE 80 1 PAGE UM DWB JULY 27, 1977 03:35:53 MTS.:ACTIVCNT 0 ACTIVCNT CONTAINS THE NUMBER OF USERS SIGNED ON AND ASTATSUB IS USED TO COMMUNICATE BETWEEN MTS AND THE STAT JOB. ACTIVCNT HAS BEEN EXPANDED SINCE DIST 2.0 FROM ONE TO THREE WORDS. THE EXTRA TWO WORDS (ONE FOR BATCH, ONE FOR TERMINAL) ARE INCREMENTED WHENEVER ANYONE SIGNS OFF. THIS PERMITS PROGRAMS TO MEASURE JOB THROUGHPUT CONVENIENTLY. ASTATSUB IS UNCHANGED SINCE DIST 2.0. 00466/002 ACTIVCNT/ASTATSUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00467/001 ENDSEG2 SA G MTS:ENDSEG2.S D4.1T1 181 ENDSEG2..SA.001 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 17:23:16 0 ASSEMBLY TO MARK THE END OF THE IPLED PART OF SHARED VM. 00467/002 ENDSEG2 OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00468/001 RESIDENT SYSTEM D4.2 SYS D MTS:D4.2SYS D4.2T2 554 RESIDENT_SYSTEM.D4.2_SYS.D.001 1 SEQ 4100 140 PAGE UM WSG APR. 16, 1979 03:25:00 *IPL.D4.2 0 RAMROD IPL FILE FOR D4.2 SYSTEM (WITH DUMMY TABLES) ON DUMP/RESTORE PACK. 0 Referenced by comments of: 482/4, 482/26 00468/002 RESIDENT SYSTEM D4.2 UM SYS D MTS:TST.IPL.0 D4.2T2 555 RESIDENT_SYSTEM.D4.2_UM_S.D.002 1 SEQ 4100 145 PAGE UM WSG APR. 16, 1979 03:25:05 *IPL.0 0 RAMROD IPL FILE FOR D4.2 SYSTEM WITH UM I/O CONFIGURATION, BUT ONLY MTS421. THIS IS THE "CURRENT" SYSTEM ON THE D4.2 DUMP/RESTORE PACK. 00468/003B RESIDENT SYSTEM UM RAMROD D MTS:ROD RD16T1 63 RESIDENT_SYSTEM.UM_RAMROD.D.003 1 SEQ 32767 1441 PAGE UM WSG JULY 12, 1979 22:41:58 MTS.:ROD 0 CURRENT UM RAMROD FILE. 1 THU SEP 12/96 23:39:34 Page 153 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 00468/004 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/005 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/006 RESIDENT SYSTEM WRITEUP WF S1320 D4.2T2 VLO FSNAME=RESIDENT_SYSTEM.WRITEUP.WF.006(1) 557 D4.2T2 557 RESIDENT_SYSTEM.WRITEUP.WF.006 1 LINE 144 4 PAGE UM WSG APR. 16, 1979 03:25:20 WSG.:RESSYS.WF 0 A WRITEUP DESCRIBING THE STRUCTURE OF THE SYSTEM OBJECT DECKS. 00469 360/20 RJE SUPPORT PGM S # (OBSOLETE) D2T1 094 UM 00470 PCB DSECT COPY:PCBDSECT SA G COPY:PCBDSECT D4.2T1 245 PCB_DSECT.COPY:PCBDSECT.SA. 1 LINE 72 2 PAGE UM MTA MAR. 26, 1979 03:15:00 COPY:PCBDSECT 0 DSECT FOR THE PAGE CONTROL BLOCK. COPIED BY THE SUPERVISOR, PDP, AND CONFIG AMONG OTHERS. 0 Referenced by comments of: 44/1, 45/1, 46/1, 400/1, 577/2 1 THU SEP 12/96 23:39:34 Page 154 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00471 REX SA # (OBSOLETE) D3.2T1 303 REX.MONITOR.SA.01 1 LINE 80 78 PAGE UM JULY 16, 1974 13:04:27 00472/001 *ST360 MAIN PGM SA G S0722 'D3T3' FSNAME=ST360.MAIN_PGM.SA.1(1) 59 D4T1 1118 ST360.MAIN_PGM.SA.001 1 SEQ 80 41 PAGE UM MTA AUG. 01, 1973 18:40.02 0 THE STUDENT VIRTUAL MACHINE SIMULATOR. THE SIMULATED MACHINE HAS THE FOLLOWING CHARACTERISTICS: 1. THE SYSTEM/360 UNIVERSAL INSTRUCTION SET 2. NO INTERVAL TIMER 3. NO MEMORY PROTECTION 4. 32K BYTES OF STORAGE 5. AN I/O COMPLEMENT CONSISTING OF: A. 1052 OPERATOR'S CONSOLE ADDRESS 0009 B. 2540 CARD READER ADDRESS 000C C. 2540 CARD PUNCH ADDRESS 000D D. 1403 LINE PRINTER ADDRESS 000E E. 2 2401 9-TRACK TAPE DRIVES ADDRESSES 0180-0181 6. EXCEPT AT IPL, SELF-MODIFYING CCW'S ARE NOT ALLOWED 7. INSTANTANEOUS I/O NOTE: THE STANDARD VIRTUAL MACHINE (558) NOW HAS AN ASSEMBLY PARAMETER TO PRODUCE A STUDENT VERSION. 00472/002 *ST360 CCWTRANS SUBR SA G S0722 'D3T3' FSNAME=ST360.CCWTRANS_SUBR.SA.2(1) 60 D4T1 1119 ST360.CCWTRANS_SUBR.SA.002 1 SEQ 80 12 PAGE UM MTA AUG. 01, 1973 18:49.51 0 SUBROUTINE CALLED BY 472/1 TO TRANSLATE CCW LISTS. UNCHANGED SINCE DIST 2.0. 00472/003 *ST360 OBJECT OE G *ST360 D4T1 1120 ST360.OBJECT.OE.003 1 SEQ 8720 5 PAGE UM MTA JULY 27, 1977 03:36:53 *ST360 00473/001 *1130ASM CCD SA S0722 'D3T3' FSNAME=1130ASM.CCD.SA.1(1) 62 D4T1 1121 1130ASM.CCD.SA.001 1 SEQ 80 48 PAGE UM LUBBERS AUG. 01, 1973 18:51.47 0 IBM ASSEMBLER FOR THE IBM 1130 AND IBM 1800 COMPUTERS. THIS VERSION HAS BEEN MODIFIED TO RUN IN MTS. THIS THING APPEARS TO CONSIST OF 4 ASSEMBLIES AND 1 COPY SECTION. THE QUESTION IS WHICH IS WHICH. WE SUGGEST THAT THE FIRST MAY BE THE COPY SECTION, BUT WE'RE NOT SURE. 00473/002 *1130ASM M0 SA S0722 'D3T3' FSNAME=1130ASM.M0.SA.2(1) 63 D4T1 1122 1130ASM.M0.SA.002 1 SEQ 80 2 PAGE UM LUBBERS AUG. 01, 1973 18:51.57 00473/003 *1130ASM M12 SA S0722 'D3T3' FSNAME=1130ASM.M12.SA.3(1) 64 D4T1 1123 1130ASM.M12.SA.003 1 SEQ 80 74 PAGE UM LUBBERS AUG. 01, 1973 18:52.43 00473/004 *1130ASM M3 SA S0722 'D3T3' FSNAME=1130ASM.M3.SA.4(1) 65 D4T1 1124 1130ASM.M3.SA.004 1 SEQ 80 89 PAGE UM LUBBERS AUG. 01, 1973 18:53.47 1 THU SEP 12/96 23:39:34 Page 155 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00473/005 *1130ASM M4 SA S0722 'D3T3' FSNAME=1130ASM.M4.SA.5(1) 66 D4T1 1125 1130ASM.M4.SA.005 1 SEQ 80 25 PAGE UM LUBBERS AUG. 01, 1973 18:54.12 00473/006 *1130ASM OBJECT OC *1130ASM D4T1 1126 1130ASM.OBJECT.OC.006 1 SEQ 80 18 PAGE UM LUBBERS JULY 27, 1977 03:46:47 *1130ASM 00475 OS SIMULATION PACKAGE S # (OBSOLETE) D2T1 284 UM 00476 DBS:MSG S # (OBSOLETE) D2T1 441 UM 00480 APF SA # (OBSOLETE) D2T1 329 UM 00481 FILE SAVE - OLD VERSION O # (OBSOLETE) D2T1 001 UM 00482/001 FILE SYSTEM DASDUC SA G FILE:DASDUC D4T1 1127 FILE_SYSTEM.DASDUC.SA.001 1 LINE 80 18 PAGE UM HELFFRICH JULY 27, 1977 03:46:49 FILE:DASDUC 0 2311/2314/2321/2301 UNIT CHECK ROUTINES. 00482/002 FILE SYSTEM DASDUC OC G FILE:DASDUC.O D4T1 1128 FILE_SYSTEM.DASDUC.OC.002 1 LINE 80 3 PAGE UM HELFFRICH JULY 27, 1977 03:46:51 FILE:DASDUC.O 00482/003 FILE SYSTEM MOVE SA G FILE:MOVE D4T1 1129 FILE_SYSTEM.MOVE.SA.003 1 LINE 80 4 PAGE UM HELFFRICH JULY 27, 1977 03:46:54 FILE:MOVE 0 SUBROUTINE TO MOVE CORE AROUND. COPIES *CNFGINFODSECT (654). 00482/004 FILE SYSTEM MOVE OC G FILE:MOVE.O UM HELFFRICH FILE:MOVE.O 0 OBJECT ALSO PART OF THE RESIDENT SYSTEM (468/1). 0 Referenced by comments of: 482/40 00482/005 FILE SYSTEM VOLGET SA G FILE:VOLGET(1000) D4.2T1 246 FILE_SYSTEM.VOLGET.SA.005 1 LINE 72 14 PAGE UM HELFFRICH MAR. 26, 1979 03:15:00 FILE:VOLGET 0 BASIC LOW LEVEL DISK SUBROUTINES TO EXECUTE CHANNEL PROGRAMS, ETC. ASSEMBLE USING COPY:FILE.MACROS (482/33). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). 0 Referenced by comments of: 534/5 1 THU SEP 12/96 23:39:34 Page 156 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/006 FILE SYSTEM VOLGET OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/007 FILE SYSTEM TRAK SA G FILE:TRAK(1000) D4.2T1 247 FILE_SYSTEM.TRAK.SA.007 1 LINE 72 15 PAGE UM HELFFRICH MAR. 26, 1979 03:15:03 FILE:TRAK 0 BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE PHYSICAL RECORDS. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). NOTE: THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S. 0 Referenced by comments of: 482/51 00482/008 FILE SYSTEM TRAK OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/009 FILE SYSTEM READI SA G FILE:READI(1000) D4.2T1 248 FILE_SYSTEM.READI.SA.009 1 LINE 72 6 PAGE UM HELFFRICH MAR. 26, 1979 03:15:06 FILE:READI 0 SUBROUTINE TO READ FROM A LINE FILE. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/010 FILE SYSTEM READI OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/011B FILE SYSTEM WRITEI SA G FILE:WRITEI(1000) RD16T1 64 FILE_SYSTEM.WRITEI.SA.011 1 LINE 72 33 PAGE UM HELFFRICH JULY 12, 1979 22:43:06 FILE:WRITEI 0 ***************************************************************************** THIS SUBCOMPONENT WAS MISTAKENLY PUT ON THE RD16 TAPES. IT IS EXACTLY THE SAME AS THE D4.2 VERSION!!!!! ***************************************************************************** 00482/012 FILE SYSTEM WRITEI OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/013 FILE SYSTEM READL SA G FILE:READL(1000) D4.2T1 250 FILE_SYSTEM.READL.SA.013 1 LINE 72 10 PAGE UM HELFFRICH MAR. 26, 1979 03:15:13 FILE:READL 0 SUBROUTINE TO FIND THE FIRST OR LAST LINE NUMBER IN A FILE. ALSO CONTAINS SUBROUTINES TO RENUMBER, COUNT, RETURN, AND SET LINES IN A LINE FILE. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/014 FILE SYSTEM READL OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 1 THU SEP 12/96 23:39:34 Page 157 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/015B FILE SYSTEM OPEN SA G FILE:OPEN(1000) RD16T1 65 FILE_SYSTEM.OPEN.SA.015 1 LINE 80 87 PAGE UM HELFFRICH JULY 12, 1979 22:43:15 FILE:OPEN 0 SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/016 FILE SYSTEM OPEN OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/017 FILE SYSTEM GETDSK SA G FILE:GETDSK(1000) D4.2T1 252 FILE_SYSTEM.GETDSK.SA.017 1 LINE 72 18 PAGE UM HELFFRICH MAR. 26, 1979 03:15:27 FILE:GETDSK 0 SUBROUTINES TO ALLOCATE AND RELEASE DISK SPACE. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/018 FILE SYSTEM GETDSK OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/019 FILE SYSTEM FLINE SA G FILE:FLINE(1000) D4.2T1 253 FILE_SYSTEM.FLINE.SA.019 1 LINE 72 6 PAGE UM HELFFRICH MAR. 26, 1979 03:15:30 FILE:FLINE 0 SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/020 FILE SYSTEM FLINE OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/021B FILE SYSTEM CATALOG SA G FILE:CATALOG(1000) RD16T1 66 FILE_SYSTEM.CATALOG.SA.021 1 LINE 72 45 PAGE UM HELFFRICH JULY 12, 1979 22:43:30 FILE:CATALOG 0 SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/022 FILE SYSTEM CATALOG OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/023 FILE SYSTEM RWSEQ SA G FILE:RWSEQ(1000) D4.2T1 255 FILE_SYSTEM.RWSEQ.SA.023 1 LINE 72 15 PAGE UM HELFFRICH MAR. 26, 1979 03:15:37 FILE:RWSEQ 0 SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/024 FILE SYSTEM RWSEQ OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 1 THU SEP 12/96 23:39:34 Page 158 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/025 FILE SYSTEM TABLRTN SA G FILE:TABLRTN D4.2T1 256 FILE_SYSTEM.TABLRTN.SA.025 1 LINE 78 31 PAGE UM GOODRICH MAR. 26, 1979 03:15:39 FILE:TABLRTN 0 SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE. ASSEMBLE USING COPY:FILE.MACROS (482/33). ASSEMBLE STARTING AT LINE 1. 0 Referenced by comments of: 482/40, 534/5 00482/026 FILE SYSTEM TABLRTN OC G FILE:TABLRTN.O D4.2T1 257 FILE_SYSTEM.TABLRTN.OC.026 1 LINE 80 15 PAGE UM GOODRICH MAR. 26, 1979 03:15:56 FILE:TABLRTN.O 0 OBJECT ALSO PART OF THE RESIDENT SYSTEM (468/1). 00482/027 FILE SYSTEM GETFINF SA G FILE:GETFINF(1000) D4.2T1 258 FILE_SYSTEM.GETFINF.SA.027 1 LINE 70 8 PAGE UM HELFFRICH MAR. 26, 1979 03:15:57 FILE:GETFINF 0 SUBROUTINE TO RETURN INFORMATION ABOUT A FILE. CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF). ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/028 FILE SYSTEM GETFINF OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/029 FILE SYSTEM TEST DSACC SA G FILE:DSACC(1,999) D4T1 1144 FILE_SYSTEM.TEST_DSACC.SA.031 1 LINE 80 1 PAGE UM HELFFRICH JULY 27, 1977 03:47:50 FILE:DSACC 0 SPECIAL NOP VERSION OF DSACC. 0 Referenced by comments of: 482/37 00482/030 FILE SYSTEM TEST DSACC OC G FILE:DSACC(1000) D4T1 1145 FILE_SYSTEM.TEST_DSACC.OC.032 1 LINE 80 1 PAGE UM HELFFRICH JULY 27, 1977 03:47:52 0 Referenced by comments of: 682/40 00482/031 FILE SYSTEM FSTEST SA G FILE:FSTEST(1005) D4.2T1 259 FILE_SYSTEM.FSTEST.SA.031 1 LINE 68 13 PAGE UM HELFFRICH MAR. 26, 1979 03:15:59 FILE:FSTEST 0 FILE SYSTEM TEST PROGRAM. ASSEMBLE USING COPY:FILE.MACROS (482/33) AND *SYSMAC. USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES. 0 Referenced by comments of: 682/11 00482/032 FILE SYSTEM FSTEST OC G FILE:FSTEST(1,1004.999) D4.2T1 260 FILE_SYSTEM.FSTEST.OC.032 1 LINE 80 6 PAGE UM HELFFRICH MAR. 26, 1979 03:16:02 1 THU SEP 12/96 23:39:34 Page 159 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/033B FILE SYSTEM FILE.MACROS SM G COPY:FILE.MACROS RD16T1 67 FILE_SYSTEM.FILE.MACROS.SM.033 1 LINE 72 9 PAGE UM HELFFRICH JULY 12, 1979 22:43:38 COPY:FILE.MACROS 0 MACRO LIBRARY USED TO ASSEMBLE THE FILE SYSTEM AND RELATED ROUTINES. FOR D4, THE FOLLOWING COPY SECTIONS HAVE BEEN CONVERTED INTO MACROS AND PLACED IN COPY:FILE.MACROS: COPY SECTION FILE NAME MACRO NAME COPY:CATEQU CATEQU COPY:FCBEQU FCBEQU,BCBEQU COPY:DSCBDSCT DSCBDSCT COPY:DSKDSCT DSKDSCT COPY:PATEQU PATEQU COPY:ICEQU ICEQU 0 Referenced by comments of: 4/1, 4/4, 67/1, 67/2, 67/3, 73/2, 92/3, 97/6, 104/104, 104/108, 400/10, 400/11, 442/1, 482/5, 482/9, 482/13, 482/15, 482/17, 482/19, 482/21, 482/23, 482/25, 482/27, 482/31, 482/40, 482/42, 482/51, 502/1, 502/7, 502/9, 509/1, 539/1, 540/16, 546/1, 554/1, 554/3, 578/1, 598/1, 599/1, 621/2, 629/4, 644/1, 671/1, 671/5, 682/18, 682/20, 682/24, 682/26, 682/28, 682/32, 682/43, 716/2, 716/6, 1020/1, 1021/1, 1021/3, 1021/5, 1030/1, 3024/37 00482/034 FILE SYSTEM PDLIST PGM SA G FILE:PDLIST(-1000,-1) D4.1T1 200 FILE_SYSTEM.PDLIST_PGM.SA.037 1 LINE 72 3 PAGE UM HELFFRICH MAY 13, 1978 17:24:55 FILE:PDLIST 0 PROGRAM TO PRINT THE PHYSICAL DRIVE ADDRESS FOR EACH PUBLIC DISK VOLUME. THIS PROGRAM IS DEPENDENT ON THE SENSE DATA FORMAT AND SO WILL NOT WORK ON SOME MANUFACTURERS DISKS, E.G., STC. 0 Referenced by comments of: 482/36 00482/035 FILE SYSTEM PDLIST PGM OC G FILE:PDLIST(1) D4.1T1 201 FILE_SYSTEM.PDLIST_PGM.OC.038 1 LINE 80 2 PAGE UM HELFFRICH MAY 13, 1978 17:24:56 00482/036 FILE SYSTEM *PDL C *PDL D4.2T1 262 FILE_SYSTEM.*PDL.C.036 1 LINE 29 1 PAGE UM HELFFRICH MAR. 26, 1979 03:16:05 *PDL 0 OPERATOR FILE TO RUN PDLIST (482/34). INVOKED BY ENTERING "MTS *PDL" ON THE OPERATORS CONSOLE. 00482/037 FILE SYSTEM TEST FILERTNS OC G FILE:FILERTNS D4.2T1 263 FILE_SYSTEM.TEST_FILERTNS.OC.037 1 LINE 38 1 PAGE UM HELFFRICH MAR. 26, 1979 03:16:06 FILE:FILERTNS 0 A SERIES OF $CONTINUE WITHS TO PICK UP THE VARIOUS FILE SYSTEM OBJECT DECKS, A TEST VERSION OF TABLES (482/38), AND A TEST VERSION OF DSACC (482/29). 0 Referenced by comments of: 482/38 1 THU SEP 12/96 23:39:34 Page 160 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00482/038 FILE SYSTEM TEST TABLES SA G FILE:TBLS.TEST.S D4T1 1159 FILE_SYSTEM.TEST_TABLES.SA.046 1 LINE 56 1 PAGE UM HELFFRICH JULY 27, 1977 03:51:43 FILE:TBLS.TEST.S 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 (TMTS01), AND CATALOG ROOT ENTRIES. USED WITH THE TEST VERSION OF THE FILE ROUTINES (482/37). 0 Referenced by comments of: 482/37 00482/039 FILE SYSTEM TEST TABLES OC G FILE:TABLES.TEST D4T1 1160 FILE_SYSTEM.TEST_TABLES.OC.047 1 LINE 80 1 PAGE UM HELFFRICH JULY 27, 1977 03:51:45 FILE:TABLES.TEST 00482/040 FILE SYSTEM TABLRTN TEST SA G FILE:TABLTST D4.1T1 203 FILE_SYSTEM.TABLRTN_TEST.SA.042 1 LINE 80 35 PAGE UM GOODRICH MAY 13, 1978 17:24:57 FILE:TABLTST 0 PROGRAM TO TEST THE SHARED FILE TABLE ROUTINES TABLRTN (482/25). TO USE THIS, THE SHARED FILE TABLE ROUTINES MUST BE RE-ASSEMBLED STARTING AT LINE 0, SO THAT ALL SVC'S ARE REPLACED WITH SUBROUTINE CALLS TO ENTRY POINTS IN THIS TABLE TEST PROGRAM. THE COMMANDS ACCEPTED BY THIS PROGRAM ARE DOCUMENTED IN THE SOURCE. THIS PROGRAM SHOULD BE ASSEMBLED USING *SYSMAC AND COPY:FILE.MACROS (482/33). THIS PROGRAM REQUIRES A COPY OF MOVE (482/4) IN ORDER TO LOAD PROPERLY. 00482/041 FILE SYSTEM TABLRTN TEST OC G FILE:TABLTST.O D4.1T1 204 FILE_SYSTEM.TABLRTN_TEST.OC.043 1 LINE 80 5 PAGE UM GOODRICH MAY 13, 1978 17:25:01 FILE:TABLTST.O 00482/042 FILE SYSTEM CATALOG SCAN SA G FILE:CATSCAN(1000) D4.2T1 264 FILE_SYSTEM.CATALOG_SCAN.SA.042 1 LINE 70 8 PAGE UM HELFFRICH MAR. 26, 1979 03:16:06 FILE:CATSCAN 0 A PROGRAM WHICH GOES THROUGH THE CATALOG BY USER ID AND GATHERS INFORMATION OF INTEREST (E.G. THE NUMBER OF FILES WITH SPECIFIC SHARING DESCRIPTORS ETC.). IT TAKES A LONG TIME TO RUN. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00482/043 FILE SYSTEM CATALOG SCAN OC G FILE:CATSCAN(1,999) D4.2T1 265 FILE_SYSTEM.CATALOG_SCAN.OC.043 1 LINE 80 6 PAGE UM HELFFRICH MAR. 26, 1979 03:16:08 00482/044 FILE SYSTEM DOCUMENTATION WF S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOCUMENTATION.WF.052(1) 1165 D4T1 1165 FILE_SYSTEM.DOCUMENTATION.WF.052 1 LINE 190 63 PAGE UM HELFFRICH DEC. 10, 1976 17:23:53 0 FORMAT INPUT FOR THE MTS FILE SYSTEM INTERNAL DOCUMENTATION. THE FORMAT OUTPUT SHOULD BE RUN THROUGH THE INDEX PROGRAM (482/45) TO PRODUCE AN INDEX FOR THE FRONT OF THIS WRITEUP. COMPONENT 482/46 CONTAINS COMMANDS TO DO THIS. SEE ALSO COMP 682/1 FOR ADDITIONAL DOCUMENTATION RELATED TO THE FILE SYSTEM. 0 Referenced by comments of: 482/46 00482/045 FILE SYSTEM INDEX SS G S0563 D4T1 VLO FSNAME=FILE_SYSTEM.INDEX.SS.053(1) 1166 D4T1 1166 FILE_SYSTEM.INDEX.SS.053 1 LINE 68 1 PAGE UM HELFFRICH DEC. 10, 1976 17:24:07 0 SNOBOL PROGRAM TO PRODUCE A TABLE OF CONTENTS FOR THE FILE SYSTEM INTERNAL DOCUMENTATION. 1 THU SEP 12/96 23:39:34 Page 161 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 482/44, 482/46 00482/046 FILE SYSTEM DOC CMDS C S0563 D4T1 VLO FSNAME=FILE_SYSTEM.DOC_CMDS.C.054(1) 1167 D4T1 1167 FILE_SYSTEM.DOC_CMDS.C.054 1 LINE 65 1 PAGE UM HELFFRICH DEC. 10, 1976 17:24:15 0 A COMMAND FILE TO PRODUCE THE COMPLETE FILE SYSTEM INTERNAL DOCUMENTATION. IT REFERENCES THE FORMAT INPUT (482/44) AND THE INDEX PROGRAM (482/45). 00482/047 FILE SYSTEM DSECTLIST1 SS G FILE:DSECTLIST D4T1 1168 FILE_SYSTEM.DSECTLIST1.SS.055 1 LINE 53 1 PAGE UM HELFFRICH JULY 27, 1977 03:56:53 FILE:DSECTLIST 0 THIS SNOBOL PROGRAM AND THE ONE FOLLOWING ARE USED TO CONVERT AN ASSEMBLY LANGUAGE DSECT INTO FORMAT INPUT WHICH INCLUDES SYMBOL VALUES FOR INCLUSION IN A WRITEUP. 00482/048 FILE SYSTEM DSECTLIST2 SS G FILE:DSECT2 D4T1 1169 FILE_SYSTEM.DSECTLIST2.SS.056 1 LINE 63 1 PAGE UM HELFFRICH JULY 27, 1977 03:56:55 FILE:DSECT2 0 THE SPUNCH OUTPUT FROM 482/47 SHOULD BE RUN THROUGH THIS PROGRAM, THE SPUNCH OUTPUT FROM THIS PROGRAM THEN BEING FORMAT INPUT. 00482/049 FILE SYSTEM DSECTLIST CMDS C FILE:SODSECT D4T1 1170 FILE_SYSTEM.DSECTLIST_CMD.C.057 1 LINE 71 1 PAGE UM HELFFRICH JULY 27, 1977 03:56:57 FILE:SODSECT 0 THIS COMMAND FILE WILL RUN THE DSECTLIST PROGRAMS AND SLIGHTLY EDIT THE OUTPUT FOR EACH OF THE FILE SYSTEM DSECTS (FCBEQU, BCBEQU, CATEQU, DSKDSCT, DSCBDSCT, PATEQU, ICEQU, AND FDUBDSECT). THE RESULTING OUTPUT IS INCLUDED AS PART OF 482/44. 00482/050B FILE SYSTEM SCRATCH SIZES C FILE:SCRATCHSIZES(1) RD16T1 68 FILE_SYSTEM.SCRATCH_SIZES.C.050 1 LINE 72 3 PAGE UM HELFFRICH JULY 12, 1979 22:43:40 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/051 FILE SYSTEM TRAKSTAT SA O FILE:TRAKSTAT(1000) D4.2T1 267 FILE_SYSTEM.TRAKSTAT.SA.051 1 LINE 72 7 PAGE UM HELFFRICH MAR. 26, 1979 03:16:10 FILE:TRAKSTAT 0 PROGRAM TO DISPLAY HISTOGRAMS (PREFERABLY ON A 3270 DEVICE) OF CURRENT DISK ACTIVITY IN VARIOUS CATEGORIES: LINE DIRECTORY, DATA, CATALOG, PAT, AND DSCB. TAKES THE FOLLOWING PAR FIELD PARAMETERS: NOHIST TO SUPPRESS HISTOGRAMS 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 1 THU SEP 12/96 23:39:34 Page 162 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TRIGGERS STATISTICS COLLECTION DEFAULT PARAMETERS ARE DT=15S, RESET=YES. COPIES COPY:FILE.MACROS (482/33) AND COPY:MTS.MACROS (344/3). 00482/052 FILE SYSTEM TRAKSTAT OC O FILE:TRAKSTAT(1,999) D4.2T1 268 FILE_SYSTEM.TRAKSTAT.OC.052 1 LINE 80 4 PAGE UM HELFFRICH MAR. 26, 1979 03:16:16 00482/053 FILE SYSTEM TRAKSTATAREA SA O FILE:TRAKSTATAREA(1000) D4.2T1 269 FILE_SYSTEM.TRAKSTATAREA.SA.053 1 LINE 62 1 PAGE UM HELFFRICH MAR. 26, 1979 03:16:18 FILE:TRAKSTATAREA 0 THIS REGION MUST BE PISTLED BEFORE FILE SYSTEM STATISTICS MAY BE GENERATED. THE FIRST WORD OF THIS REGION IS A COUNT RELATING TO HOW MANY PUBLIC VOLUMES FOR WHICH STATISTICS MAY BE ACCUMULATED. 00482/054 FILE SYSTEM TRAKSTATAREA OC O FILE:TRAKSTATAREA(1,999) D4.2T1 270 FILE_SYSTEM.TRAKSTATAREA.OC.054 1 LINE 80 1 PAGE UM HELFFRICH MAR. 26, 1979 03:16:19 00483/001 *WATFIV UPDATE UU G W159:WAT5.SGEN D4.1T1 205 WATFIV.UPDATE.UU.001 1 LINE 80 30 PAGE UM SHERRY MAY 13, 1978 17:25:02 0 THE WATFIV UPDATE DECK (483/1) IS ORGANIZED (BY LINE NUMBER) AS FOLLOWS: LINE NUMBERS FILE # NAME (2000,2999) *2* ACCT (9000,9999) *9* ARITH (11000,11999) *11* CDEFN (17000,17999) *17* COMMR (34000,34999) *34* DODO (42000,42999) *42* ERROR (44000,44999) *44* ERRTEXTS (46000,46999) *46* EXTRN (49000,49999) *49* FORMAT (50000,50999) *50* FORMCONV (51000,51999) *51* FRIOSCAN (53000,53999) *53* FUNCTION (55000,55999) *55* IBCOM# (58000,58999) *58* INOUT (60000,60999) *60* LANDR (61000,61999) *61* MAIN (66000,66999) *66* NAMELIST (68000,68999) *68* OPTIONS (71000,71999) *71* SCAN (75000,75999) *75* SPEX (76000,76999) *76* STARTA (77000,77999) *77* STARTB (78000,78999) *78* STOP# (79000,79999) *79* SYS (84000,84999) *84* WATIO (85000,85999) *85* WATLOAD (86000,86999) *86* ZMONTH LINE NUMBERS IN THIS FILE ARE IMPORTANT. 1 THU SEP 12/96 23:39:34 Page 163 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS COMPONENT SHOULD BE RESTORED TO A FILE NAMED WAT5.SGEN SINCE THE COMMAND FILE (483/7) HAS NUMEROUS REFERENCES TO THIS FILE. 0 Referenced by comments of: 483/1, 483/7 00483/002 *WATFIV FIOCS SA G FIOC W159:WAT5.FIOCS.S D4T1 1173 WATFIV.FIOCS.SA.002 1 LINE 80 21 PAGE UM SHERRY JULY 27, 1977 03:57:06 0 ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO. 0 Referenced by comments of: 483/8 00483/003 *WATFIV DIOCS SA G DIOC W159:WAT5.DIOCS.S D4T1 1174 WATFIV.DIOCS.SA.003 1 LINE 80 3 PAGE UM SHERRY JULY 27, 1977 03:57:08 0 ASSEMBLE USING *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO. 0 Referenced by comments of: 483/8 00483/004 *WATFIV DEFAULT SA G DFLT W159:WAT5.DFALT.S D4T1 1175 WATFIV.DEFAULT.SA.004 1 LINE 80 4 PAGE UM SHERRY JULY 27, 1977 03:57:10 0 SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER. ASSEMBLE USING *SYSMAC. NOTE: THIS ROUTINE IS ALSO USED BY ALGOLW (528) AND PLC (485). 0 Referenced by comments of: 483/8 00483/005 *WATFIV OBJECT OE G # *WATFIV UM SHERRY 0 NOTE: BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED. 00483/006 *WATFIV TEST DECKS SF G W159:WAT5.TEST D4T1 1176 WATFIV.TEST_DECKS.SF.006 1 LINE 80 7 PAGE UM SHERRY JULY 27, 1977 03:57:12 0 THE FIRST FEW LINES ON THIS FILE CONTAIN THE MTS COMMANDS NEEDED TO COMPILE THE TEST DECKS WHICH START AT LINE 1000. THEY MUST BE RUN WITH THE FOLLOWING I/O ASSIGNMENTS (TEMPORARY FILES): 1 A SEQUENTIAL FILE 2 A LINE FILE 3 ANOTHER LINE FILE LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00483/007 *WATFIV REASS C W159:WAT5.REASS D4T1 1177 WATFIV.REASS.C.007 1 LINE 127 4 PAGE UM SHERRY JULY 27, 1977 03:57:14 0 THIS FILE CONTAINS ALL THE MTS COMMANDS NECESSARY TO GENERATE THE VARIOUS COMPONENTS OF WATFIV. THE MTS COMMADS ARE ORGANIZED (BY LINE NUMBER) IDENTICALLY TO COMP 483/1, E.G. THE SOURCE COMMANDS NECESSARY TO ASSEMBLE WATIO (TAPE FILE #84) ARE LOCATED IN THE LINE RANGE (84000,84999) AS ARE THE CORRESPONDING UPDATE CONTROL CARDS IN WAT5.SGEN (483/1). LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE 1 THU SEP 12/96 23:39:34 Page 164 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 483/8 CONTAINS REFERENCES BY LINE NUMBER. THIS FIRST HUNDRED LINES OF THIS FILE CONTAIN DESCRIPTIONS OF THE VARIOUS SOURCE COMMANDS. THIS FILE CONTAINS TWO $MOUNT COMMANDS-- ONE TO MOUNT THE WATERLOO DISTRIBUTION TAPE AND ANOTHER TO MOUNT A TAPE WHICH RECEIVES THE UNLOADED WATFIV SOURCE FILES. THE MOUNT COMMANDS ARE AT LINE NUMBERS 101 AND 201, RESPECTIVELY, AND SHOULD BE REPLACED APPROPRIATELY. 0 Referenced by comments of: 483/1, 483/8 00483/008 *WATFIV $SOU C W159:WAT5.$SOU D4T1 1178 WATFIV.$SOU.C.008 1 LINE 55 1 PAGE UM SHERRY JULY 27, 1977 03:57:16 0 THIS FILE CONTAINS ALL THE "$SOURCE WAT5.REASS(---)" (483/7) COMMANDS NECESSARY TO GENERATE THE MTS VERSION OF WATFIV. THIS IS A FIVE STEP PROCEDURE: (1) THE SOURCE CODE FOR WATFIV IS UNLOADED FROM THE WATERLOO DISTRIBUTION TAPE (WATFIV V1L4) ONTO ANOTHER TAPE; A MACRO LIBRARY IS UNLOADED; AND THE FUNCTION OBJECT DECK LIBRARY IS UNLOADED AND UPDATED. (2) THE COPY SECTIONS ACCT, CDEFN, COMMR, ERRTEXTS, EXTRN, OPTIONS, STARTA, STARTB, AND SYS ARE GENERATED (A DISK FILE WITH THE SAME NAME IS PRODUCED FOR EACH COPY SECTION). (3) THE WATFIV CSECTS ARE ASSEMBLED. (4) THE LOCAL MTS ORIGINATED ROUTINES FIOCS (483/2), DIOCS (483/3), DFLT (483/4), TIME (483/9), AND MTSFUN (483/10) ARE ASSEMBLED. (5) THE RESULTING OBJECT DECKS ARE LINKEDITED VIA THE PROCEDURE (483/11) AND THE OUTPUT IS PLACED IN A FILE NAMED WAT5, WHICH MAY BE COPIED TO THE PUBLIC FILE *WATFIV. THUS, WATFIV WILL BE GENERATED IF THIS FILE IS $SOURCED TO. 00483/009 *WATFIV TIME SA O TIME W159:WAT5.TIME.S D4T1 1179 WATFIV.TIME.SA.009 1 LINE 80 7 PAGE UM SHERRY JULY 27, 1977 03:57:19 0 VERSION OF THE MTS TIME SUBROUTINE RECODED TO CONFORM TO WATFIV CALLING CONVENTIONS. PROGRAM WRITTEN AT UBC. ASSEMBLE USING *SYSMAC AND THE TWO WATERLOO MACRO LIBRARIES. 0 Referenced by comments of: 483/8 00483/010 *WATFIV MTSFUN SA G MTSF W159:WAT5.MTSFUNS D4T1 1180 WATFIV.MTSFUN.SA.010 1 LINE 80 4 PAGE UM SHERRY JULY 27, 1977 03:57:21 0 CODE FOR BUILTIN SUBROUTINES RAND, SCLOCK, CLOCK, IEOR, IOR, IAND, AND ICOMPL. ASSEMBLE USING *SYSMAC AND THE TWO WATERLOO MACRO LIBRARIES. 0 Referenced by comments of: 483/8 00483/011 *WATFIV RELINK C W159:WAT5.RELINK D4T1 1181 WATFIV.RELINK.C.011 1 LINE 29 1 PAGE UM SHERRY JULY 27, 1977 03:57:23 0 LINKEDITOR COMMANDS REQUIRED TO LINKEDIT WATFIV. "INCLUDES" WAT5.O (483/12). 0 Referenced by comments of: 483/8 1 THU SEP 12/96 23:39:34 Page 165 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00483/012 *WATFIV WAT5.O OC G W159:WAT5.O D4T1 1182 WATFIV.WAT5.O.OC.012 1 LINE 80 1 PAGE UM SHERRY JULY 27, 1977 03:57:25 0 THIS FILE CONTAINS A SERIES OF "$CONTINUE WITH" RECORDS, THE OBJECT FOR SPIE, AND SOME LOADER CONTROL RECORDS TO CAUSE THE VARIOUS WATFIV SUB-COMPONENTS TO BE LOADED WHEN THIS FILE IS $RUN. ALSO REFERENCED BY 483/11 TO LINKEDIT WATFIV. 0 Referenced by comments of: 483/11 00484 *ACCRESTORE OE G *ACCRESTORE D4.1T1 206 ACCRESTORE..OE. 1 LINE 3464 3 PAGE UM ENGLE MAY 13, 1978 17:25:05 *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/30), THE MAIN PROGRAM, PLUS CURSIG (104/82), ACATALOG (104/105), GETFILE (104/103), ACCIO (104/23), ACCFLUPD (104/78), FILERATE (104/16), AND SYSDEFS. THIS FILE MUST BE PERMITTED AS FOLLOWS: U/N,R (P=W&PKEY=*MTS.RUN,USERID&PKEY=*MTS.ETC.RUN) WHERE "USERID" SHOULD BE REPLACED BY THE USER ID USED TO RUN DEADFILES (502). THIS FILE MUST BE GIVEN THE PROGRAM KEY *ACRESTORE. 0 Referenced by comments of: 136/2 00485/001 *PLC INSTALLATION PF S0548 PLCARC 'PL/C ARCHIVE' FSNAME=INSTALL D4.1T1 207 PLC.INSTALLATION.PF.001 1 LINE 69 5 PAGE UM BODWIN APR. 19, 1978 17:48:47 0 DUE TO COPYRIGHT RESTRICTIONS, THE MASTER SOURCE FOR PL/C CANNOT BE DISTRIBUTED; YOU MUST OBTAIN IT DIRECTLY FROM CORNELL UNIVERSITY. 485/1 CONSISTS OF INSTRUCTIONS FOR INSTALLING PL/C RELEASE 7.6 IN MTS. $COPY IT TO A TN PRINTER. 0 Referenced by comments of: 483/4 00485/002 *PLC PLCGEN C S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLCGEN D4.1T1 208 PLC.PLCGEN.C.002 1 LINE 110 4 PAGE UM BODWIN APR. 19, 1978 17:48:50 0 MTS COMMAND FILE TO GENERATE MTS PL/C. HAS "$CONTINUE WITH"S TO MANY OF THE DISTRIBUTED FILES -- SEE 485/1 FOR DETAILS. 00485/003B *PLC CONT UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.U RD16T1 69 PLC.CONT.UU.003 1 LINE 72 8 PAGE UM BODWIN MAY 30, 1979 16:59:06 0 MTS UPDATE FOR THE COLLECTION OF CSECTS WHICH CONTROL THE SEQUENCING OF THE COMPILER PHASES AND PROVIDE INTERFACING BETWEEN PL/C AND THE LOW LEVEL ROUTINES. 00485/004B *PLC CONT OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 1 THU SEP 12/96 23:39:34 Page 166 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00485/005 *PLC DGIO UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DGIO.U D4.2T1 272 PLC.DGIO.UU.005 1 LINE 72 1 PAGE UM BODWIN DEC. 14, 1978 16:11:11 0 MTS UPDATE FOR THE I/O CODE GENERATOR. 00485/006 *PLC DGIO OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DGIO.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/007 *PLC ERMW UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=ERMW.U D4.1T1 211 PLC.ERMW.UU.007 1 LINE 72 4 PAGE UM BODWIN APR. 19, 1978 17:47:30 0 MTS UPDATE FOR THE MODULE WHICH PRODUCES THE ERROR MESSAGES. 00485/008 *PLC ERMW OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=ERMW.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/009 *PLC EXRI UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXRI.U D4.1T1 212 PLC.EXRI.UU.009 1 LINE 72 1 PAGE UM BODWIN APR. 19, 1978 17:47:33 0 MTS UPDATE FOR THE MODULE WHICH PERFORMS RECORD I/O. 00485/010 *PLC EXRI OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=EXRI.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/011 *PLC GPCR UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=GPCR.U D4.1T1 213 PLC.GPCR.UU.011 1 LINE 17 1 PAGE UM BODWIN APR. 19, 1978 17:47:35 0 MTS UPDATE FOR THE MODULE WHICH PERFORMS CONVERSIONS. 00485/012 *PLC GPCR OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=GPCR.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/013 *PLC IM UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=IM.U D4.2T1 273 PLC.IM.UU.013 1 LINE 72 7 PAGE UM BODWIN DEC. 18, 1978 14:51:13 0 MTS UPDATE FOR THE INSTALLATION DEPENDANT MODULE. 00485/014 *PLC IM OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=IM.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/015B *PLC MIMO UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.U RD16T1 70 PLC.MIMO.UU.015 1 LINE 72 6 PAGE UM BODWIN MAY 30, 1979 16:59:18 0 MTS UPDATE FOR THE MODULE WHICH GAINS INITIAL CONTROL IN PL/C. 1 THU SEP 12/96 23:39:34 Page 167 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00485/016B *PLC MIMO OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/017 *PLC OPTB UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTB.U D4.2T1 275 PLC.OPTB.UU.017 1 LINE 72 1 PAGE UM BODWIN DEC. 14, 1978 16:11:42 0 MTS UPDATE FOR THE MODULE WHICH DEFINES THE DEFAULT OPTIONS FOR PL/C. 00485/018 *PLC OPTB OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTB.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/019 *PLC OPTN UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTN.U D4.2T1 276 PLC.OPTN.UU.019 1 LINE 72 4 PAGE UM BODWIN FEB. 02, 1979 01:20:38 0 MTS UPDATE FOR THE MODULE WHICH PERFORMS THE COMPILER OPTIONS SCANNING. 00485/020 *PLC OPTN OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=OPTN.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/021B *PLC SYSO UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.U RD16T1 71 PLC.SYSO.UU.021 1 LINE 72 24 PAGE UM BODWIN JUNE 18, 1979 22:10:30 0 MTS UPDATE FOR THE MODULE WHICH INTERFACES WITH THE OPERATING SYSTEM. 00485/022B *PLC SYSO OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.O UM BODWIN 0 NOTE: BECAUSE OF CORNELL RESTRICTIONS, THE PL/C OBJECT CANNOT BE DISTRIBUTED. 00485/023 *PLC DEFAULT SA G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.S D4.1T1 219 PLC.DEFAULT.SA.023 1 LINE 71 3 PAGE UM BODWIN APR. 19, 1978 17:48:53 0 SUBROUTINE TO HANDLE DEFAULT PAGE AND TIME ESTIMATES IN MTS -- NOT PART OF THE CORNELL SOURCE. 00485/024 *PLC DEFAULT OC G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=DEFAULT.O D4.1T1 220 PLC.DEFAULT.OC.024 1 LINE 80 1 PAGE UM BODWIN APR. 19, 1978 17:48:00 00485/025 *PLC MACDIR SM G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MACDIR D4.1T1 221 PLC.MACDIR.SM.025 1 LINE 15 2 PAGE UM BODWIN APR. 19, 1978 18:12:00 0 THE DIRECTORY FOR THE PL/C MACRO LIBRARY, WHICH CANNOT ITSELF BE DISTRIBUTED BECAUSE OF CORNELL RESTRICTIONS. 00485/026 *PLC MACROS SM G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MACROS D4.1T1 222 PLC.MACROS.SM.026 1 LINE 72 5 PAGE UM BODWIN APR. 19, 1978 18:12:07 0 ADDITIONAL MACROS FOR THE PL/C MACRO LIBRARY. 1 THU SEP 12/96 23:39:34 Page 168 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00485/027 *PLC OBJECT OC G # S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLC.O UM BODWIN 0 CORNELL PL/C OBJECT WITH "$CONTINUE WITH"S TO THE VARIOUS OBJECT FILES FOR THE MODULES WHICH ARE DIFFERENT IN MTS. BECAUSE OF CORNELL RESTRICTIONS, THIS FILE CANNOT BE DISTRIBUTED. 00485/028 *PLC TEST PGMS SP G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=PLC.TEST D4.1T1 223 PLC.TEST_PGMS.SP.028 1 LINE 91 9 PAGE UM BODWIN APR. 19, 1978 18:45:59 0 TEST PROGRAMS TO EXERCISE THE MTS VERSION OF PL/C. THE LAST EXAMPLES ILLUSTRATE KNOWN BUGS. 00486 *HBQ SA # (OBSOLETED BY $SYSTEMSTATUS) D4T1 1196 HBQ..SA.001 1 LINE 80 18 PAGE UM FEB. 25, 1975 16:41:55 0 PROGRAM TO PRINT HASP STATUS OF A PARTICULAR BATCH JOB (BY RECEIPT NUMBER) OR THE BACKLOG AT A PARTICULAR REMOTE STATION OR THE ENTIRE SYSTEM. *** NOTE: THIS PROGRAM IS NOW OBSOLETE SINCE ALL OF ITS FUNCTIONS ARE PROVIDED BY THE MTS $SYSTEMSTATUS COMMAND. 00487/001 *LABEL MAIN PGM SA G S1237 TAPES 'TAPEFS' FSNAME=LABEL D4.1T1 224 LABEL.MAIN_PGM.SA.001 1 LINE 80 6 PAGE UM LIFT APR. 20, 1978 20:30:09 0 PROGRAM TO INITIALIZE LABELED OR UNLABELED MAGNETIC TAPES. CALLS TPINIT SUBROUTINE (487/4). SOURCE IN LINES (1,999). 0 Referenced by comments of: 135/1, 487/3 00487/002 *LABEL MAIN PGM OC G *LABEL D4.1T1 225 LABEL.MAIN_PGM.OC.002 1 LINE 1840 1 PAGE UM LIFT MAY 13, 1978 17:29:09 *LABEL 00487/003 *LABEL *LBL C *LBL D4T1 1200 LABEL.*LBL.C.003 1 LINE 32 1 PAGE UM LIFT JULY 27, 1977 04:07:25 *LBL 0 COMMAND FILE TO RUN *LABEL (487/1) FOR THE OPERATORS. INVOKED BY ENTERING "MTS *LBL" ON THE OPERATOR'S CONSOLE. 00487/004 *LABEL TPINIT SUBR SA G S1237 TAPES 'TAPEFS' FSNAME=TAPEINIT D4.2T1 278 LABEL.TPINIT_SUBR.SA.004 1 LINE 80 4 PAGE UM LIFT OCT. 19, 1978 15:42:09 0 SUBROUTINE, WITH ALTERNATE ENTRY TAPEINIT, WHICH INITIALIZES TAPES (LABELED OR UNLABELED). SOURCE IN LINES (1,999). 0 Referenced by comments of: 487/1 00487/005 *LABEL TPINIT SUBR OC G # *LIBRARY (SEE COMP 524) UM LIFT 1 THU SEP 12/96 23:39:34 Page 169 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00488 CONTROL SA # (OBSOLETE) D2.3 035 UM 00489/001 TAPETEST SA G TT WSG:TT(1,999) D4.2T1 279 TAPETEST..SA.001 1 LINE 80 15 PAGE UM WSG MAR. 26, 1979 03:22:13 WSG.:TT 0 THE TAPETEST (TT) PROGRAM WAS DESIGNED TO CHECK OUT THE MTS MAG TAPE ROUTINES (135). HOWEVER, IT SEEMS TO BE A RATHER MORE GENERALLY USEFUL UTILITY FOR PERFORMING I/O. IT FIELDS ATTENTION INTERRUPTS AND DSR ERRORS. COPIES *SENSEDSECT (3025). IT WILL ACCEPT THE FOLLOWING COMMANDS (ON GUSER): ATTACH FDNAME ATTACH A FILE OR DEVICE (CALL "GETFD"). CONTROL STRING CALL "CONTROL" WITH STRING AS THE ARGUMENT. HELP FOR A LIST OF COMMANDS. LEN N SET MAXIMUM INPUT LENGTH TO N. IF N IS NON-ZERO, THE READ AND RDBKWD COMMANDS WILL USE THE @MAXLEN MODIFIER. MTS STRING CALL "CMD" (WITH STRING) OR "MTS" (IF STRING OMITTED). READ N READ THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA. RBKWD N READ BACKWARD THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA. RETURN TO QUIT. SNS ISSUE A "SNS" CONTROL COMMAND AND PRINT THE "SENSE DATA" IN A READABLE FORMAT. STA IDENTICAL TO "SNS" EXCEPT FOR LABELED TAPES, IN WHICH CASE IT DOES NOT CAUSE THE NEXT FILE TO BE OPENED. STOP TO QUIT. WRITE FDNAME WRITE RECORDS READ FROM FDNAME (OR *MSOURCE* IF OMITTED) ON THE ATTACHED UNIT. NOTES: COMMANDS MAY BE ABBREVIATED BY THEIR FIRST LETTER EXCEPT FOR "RBKWD" AND "STA" WHICH REQUIRE TWO LETTERS. ANY COMMAND BEGINNING WITH A $ IS PASSED TO MTS FOR PROCESSING. EXAMPLE: $MOUNT POOL 9TP *T* $RUN TT(1000) A *T* C DSN TEST1 C FMT FB(8000,80) W TESTFILE C WTM C DSN TWO W HELLO $ENDFILE C POSN TWO LEN 50 R 5 LEN 0 RB SNS C REW $RUN *TAPEDUMP 0=*T* SPRINT=*PRINT* 1 THU SEP 12/96 23:39:34 Page 170 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00489/002 TAPETEST OC G WSG:TT(1000) D4.2T1 280 TAPETEST..OC.002 1 LINE 80 5 PAGE UM WSG MAR. 26, 1979 03:22:14 00490 *LAR C *LAR D4T1 1203 LAR..C. 1 LINE 29 1 PAGE UM MTA JULY 27, 1977 04:07:31 STRT:*LAR 0 COMMAND FILE TO RUN UNITS (1012) TO RESET ALL 2703 (AND SIMILAR) LINES. IT RESETS EVERYTHING WITH DEVICE TYPE MRXA, SDA, TTY, OR 2741. INVOKED BY ENTERING "MTS *LAR" ON THE OPERATOR'S CONSOLE. IT SHOULD ONLY BE USED WHEN A 2703 OR MEMOREX 1270 HAS DROPPED ITS LINES SINCE IT FAKES A UNIT CHECK ON EACH 2703 ADDRESS. 00491/001 *SCRAMBLE SF O S0683 OGDEN FSNAME=SCRAMBLE.S D4T1 1204 SCRAMBLE..SF.001 1 LINE 50 1 PAGE UM OGDEN JUNE 06, 1976 22:11:25 0 THE PREVIOUSLY SCRAMBLED SOURCE FOR *SCRAMBLE HAS NOW BEEN UNSCRAMBLED (IF ANYONE CARES, SINCE THIS PROGRAM IS NOW CONSIDERED TO BE OBSOLETE AT UM). *ENCRYPT (677) IS A BETTER PROGRAM FOR THE SAME PURPOSE. 0 Referenced by comments of: 677/1 00491/002 *SCRAMBLE OC O S0683 OGDEN FSNAME=SCRAMBLE.O D4T1 1205 SCRAMBLE..OC.002 1 LINE 175 3 PAGE UM OGDEN JUNE 06, 1976 22:11:42 00491/003 *SCRAMBLE WRITEUP WT O S0780 'D3.1T1' FSNAME=SCRAMBLE.WRITEUP.WT.2(1) 293 D4T1 1206 SCRAMBLE.WRITEUP.WT.003 1 LINE 132 4 PAGE UM ENGLE JAN. 08, 1974 16:05.57 0 GENERAL WRITEUP ON SCRAMBLE ALGORITHMNS. 00492/001 *DCALC SP G S0722 'D3T3' FSNAME=DCALC..SP.1(1) 123 D4T1 1207 DCALC..SP.001 1 LINE 80 13 PAGE UM MTA AUG. 03, 1973 21:27.08 0 PL/I DESK CALCULATOR PROGRAM. 00492/002 *DCALC OE G *DCALC D4T1 1208 DCALC..OE.002 1 SEQ 21678 9 PAGE UM MTA JULY 27, 1977 04:12:43 *DCALC 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00493/001 *TALLY MAIN SA O TALY W044:TALLYSOU D4T1 1209 TALLY.370_MAIN.SA.001 1 LINE 80 9 PAGE UM SALISBURY JULY 27, 1977 04:12:45 0 TALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO COUNT THE NUMBER OF TIMES EACH MACHINE INSTRUCTION IS EXECUTED. 00493/002 *TALLY SIM SUBR SA O TSIM W044:TALLYSIMSOU D4T1 1210 TALLY.370_SIM_SUBR.SA.002 1 LINE 80 36 PAGE UM SALISBURY JULY 27, 1977 04:12:47 1 THU SEP 12/96 23:39:34 Page 171 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00493/003 *TALLY OBJECT OC O *TALLY UM SALISBURY *TALLY 00494/001 *CSMP SA G CSMP W020:CSMPDISTR(1,341) D4T1 1215 CSMP..SA.001 1 LINE 80 8 PAGE UM FLANIGAN JULY 27, 1977 04:12:59 0 CONTINUOUS SYSTEM MODELING PROGRAM (MODIFIED FROM IBM). *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS. 00494/002 *CSMP OE G *CSMP D4T1 1216 CSMP..OE.002 1 SEQ 80 2 PAGE UM FLANIGAN JULY 27, 1977 04:13:02 *CSMP 00494/003 *CSMP CSMPTRAN SA G CPTR W020:CSMPDISTR(500,720) D4T1 1217 CSMP.*CSMPTRAN.SA.003 1 LINE 80 6 PAGE UM FLANIGAN JULY 27, 1977 04:13:03 0 TRANSLATION CONTROL. ASSEMBLE USING *SYSMAC AND PUT IN *CSMPTRAN. ADD "$CONTINUE WITH *CSMPLIB" AT END. 00494/004 *CSMP *CSMPTRAN OE G *CSMPTRAN D4T1 1218 CSMP.*CSMPTRAN.OE.004 1 SEQ 80 1 PAGE UM FLANIGAN JULY 27, 1977 04:13:05 *CSMPTRAN 0 ENDS WITH A "$CONTINUE WITH *CSMPLIB" CARD. 00494/005 *CSMP CSMPEXEC SA G CPEX W020:CSMPDISTR(1000,1107) D4T1 1219 CSMP.*CSMPEXEC.SA.005 1 LINE 80 4 PAGE UM FLANIGAN JULY 27, 1977 04:13:08 0 EXECUTION CONTROL 00494/006 *CSMP *CSMPEXEC OE G *CSMPEXEC D4T1 1220 CSMP.*CSMPEXEC.OE.006 1 SEQ 80 1 PAGE UM FLANIGAN JULY 27, 1977 04:13:10 *CSMPEXEC 00494/007 *CSMP CSMPLIB IBM S G S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80) 2 D4T1 1221 CSMP.*CSMPLIB.S.007 1 SEQ 80 155 PAGE UM FLANIGAN JULY 28, 1977 00:34:43 0 ORIGINAL IBM SOURCE (FORTRAN AND ASM). 00494/008 *CSMP CSMPLIB UPD UU G W020:CSMPDISTR(2000,2175) D4T1 1222 CSMP.*CSMPLIB.UU.008 1 LINE 80 4 PAGE UM FLANIGAN JULY 28, 1977 00:34:48 0 THIS UPDATE DECK APPLIES ALL KNOWN IBM APARS PLUS LOCAL CHANGES. IT ASSUMES THE FOLLOWING: (1) IBM SOURCE IS ON TAPE *S* (2) A POOL (SCRATCH) TAPE HAS BEEN MOUNTED AS *P* (3) AN EMPTY SEQUENTIAL FILE -A EXISTS THIS UPDATE PUTS THE UPDATED CSMP FORTRAN ROUTINES ON *P* (BLOCKING FACTOR 100), REWINDS IT, PUTS THE UPDATED CSMP ASSEMBLER ROUTINES IN -A, AND REWINDS AND UNLOADS *S*. 1 THU SEP 12/96 23:39:34 Page 172 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00494/009 *CSMP CSMPLIB ASM SA G W020:CSMPDISTR(1500,1531) D4T1 1223 CSMP.*CSMPLIB.SA.009 1 LINE 70 1 PAGE UM FLANIGAN JULY 28, 1977 00:34:50 0 TWO ASM ROUTINES USED DURING DYNAMIC LINKING. 00494/010 *CSMP *CSMPLIB OL G *CSMPLIB D4T1 1224 CSMP.*CSMPLIB.OL.010 1 SEQ 6924 32 PAGE UM FLANIGAN JULY 28, 1977 00:34:52 *CSMPLIB 0 LIBRARY MADE FROM ASM AND FTN ROUTINES UPDATED BY 494/8 AND ASM ROUTINES FROM COMPONENT 494/9. (NOTE: FORTRANH HAS BEEN USED.) 00495/001 EXPL SUBMONITOR SA XMON W052:EXMON.S D4.2T1 281 EXPL.SUBMONITOR.SA.001 1 LINE 80 40 PAGE UM SHERRY MAR. 26, 1979 03:22:15 0 EXTENDED VERSION OF XPL. USING THIS VERSION, AN XPL PROGRAM CAN CONSIST OF A COLLECTION OF INDEPENDENTLY COMPILED PROCEDURES. THIS VERSION PRODUCES NORMAL MTS OBJECT DECKS, RATHER THAN SPECIAL OBJECT MODULES. THE SUBMONITOR CONSISTS OF 4 CSECTS: XMON, XPLDFLTS, COMPACT#, AND SORTIT. ASSEMBLE USING *SYSMAC. COPIES *GDINFODSECT (594). THIS VERSION SUPPORTS CHANGES DESCRIBED IN 495/12. 0 Referenced by comments of: 318/9 00495/002C EXPL SUBMON UPDATE UC G W226:EXMON RD16T1 72 EXPL.SUBMON_UPDATE.UC.002 1 LINE 80 3 PAGE UM PICKELMAN JULY 12, 1979 22:48:10 0 THIS IS AN UPDATE TO BE APPLIED TO 495/1. THE OBJECT (495/14) IS NOT INSTALLED AS THE EXPL SUBMONITOR AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003). 00495/003 EXPL SUBMONITOR OC W052:EXMON.O D4.2T1 282 EXPL.SUBMONITOR.OC.002 1 LINE 5618 5 PAGE UM SHERRY MAR. 26, 1979 03:22:18 00495/004 EXPL *EXPLIB OE *EXPLIB D4.2T1 283 EXPL.*EXPLIB.OE.003 1 LINE 6364 4 PAGE UM SHERRY MAR. 26, 1979 03:22:19 *EXPLIB 0 *EXPLIB SHOULD BE A LINKEDIT OF XMON, COMPACT#, AND SORTIT, PLUS THE XPLDFLTS CSECT WHICH SPECIFIES A FREE STRING AREA SIZE (FSASIZE) OF 5 PAGES. ALL SYMBOLS SHOULD BE PURGED EXCEPT XPLSM, XPLSM@SP, COMPACTI, AND TIMEXOFX. IN ADDITION, TIMEXOFX SHOULD BE CHANGED TO TIME_OF_ AND AN ENT CARD SPECIFYING XPLSM AS THE ENTRY POINT SHOULD BE INSERTED INTO THE OBJECT MODULE. 00495/005 EXPL *EXCOM SX *EXCOM D4.2T1 284 EXPL.*EXCOM.SX.004 1 LINE 96 68 PAGE UM SHERRY MAR. 26, 1979 03:22:19 *EXCOM 0 EXPL SOURCE FOR THE EXTENDED XPL COMPILER. THE RESULTING OBJECT MUST BE RUN CONCATENATED WITH *EXPLIB. 00495/006C EXPL *EXCOM UPDATE UC G W226:EXCOM RD16T1 73 EXPL.*EXCOM_UPDATE.UC.006 1 LINE 68 1 PAGE UM PICKELMAN JULY 12, 1979 22:48:12 0 THIS IS AN UPDATE TO BE APPLIED TO 495/5. THE OBJECT (495/13) IS NOT 1 THU SEP 12/96 23:39:34 Page 173 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 INSTALLED AS *EXPL AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003). 00495/007 EXPL *EXPL OE *EXPL D4.2T1 285 EXPL.*EXPL.OE.005 1 SEQ 32767 41 PAGE UM SHERRY MAR. 26, 1979 03:22:24 *EXPL 0 IT IS MOST CONVENIENT TO LINKEDIT THE COMPILER AND SUBMONITOR TOGETHER TO MAKE *EXPL. NOTE THAT THE ENTRY POINT MUST BE XPLSM. WHEN LINKEDITING, THE XPLDFLTS CSECT WHICH SETS THE FREE STRING AREA SIZE (FSASIZE) TO 15 PAGES SHOULD BE USED. 00495/008 EXPL *EXPLBNF D *EXPLBNF D4T1 1230 EXPL.*EXPLBNF.D.006 1 LINE 73 3 PAGE UM SHERRY JULY 28, 1977 00:37:44 *EXPLBNF 0 SUITABLE INPUT TO *ANALYZER (318/13) TO PRODUCE THE NECESSARY DECLARATIONS FOR DRIVING THE PARSING ALGORITHM FOR *EXPL. 00495/009 EXPL *EXSKELETON SX G *EXSKELETON D4T1 1231 EXPL.*EXSKELETON.SX.007 1 LINE 80 12 PAGE UM SHERRY JULY 28, 1977 00:37:46 *EXSKELETON 0 THIS IS A VERSION OF SKELETON (318/12), A PROTO-COMPILER FOR USE WITH *EXPL. IT CONSISTS OF SEVERAL INDEPENDENTLY COMPILABLE EXTERNAL PROCEDURES WHICH FORM THE FRAMEWORK FOR A TABLE-DRIVEN COMPILER. 00495/010 EXPL CREATE C S0579 SAVE 'JWS-SAVE' FSNAME=EXPL.CREATE D4T1 1232 EXPL.CREATE.C.008 1 LINE 31 1 PAGE UM SHERRY APR. 08, 1977 09:42:10 0 SOURCE FILE WHICH LINKEDITS THE APPROPRIATE PIECES OF THE SUBMONITOR AND EXCOM INTO AN EXPL COMPILER. 00495/011 EXPL MEMO 343 WF S0563 D4T1 VLO FSNAME=EXPL.MEMO_343.WF.009(1) 1233 D4T1 1233 EXPL.MEMO_343.WF.009 1 LINE 115 5 PAGE UM SHERRY JAN. 24, 1977 21:36:39 0 THIS IS COMPUTING CENTER MEMO 343 -- "EXPL--EXTENDED XPL" 00495/012 EXPL MEMO 390 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M390EXPL D4.2T1 286 EXPL.MEMO_390.WF.010 1 LINE 95 3 PAGE UM SHERRY SEP. 07, 1978 16:15:58 0 THIS IS COMPUTING CENTER MEMO 390 -- "CHANGES TO EXPL." 00495/013C EXPL SUBMONITOR OC G W226:EXMON.O RD16T1 74 EXPL.SUBMONITOR.OC.013 1 LINE 5250 5 PAGE UM PICKELMAN JULY 12, 1979 22:48:12 0 THIS IS THE OBJECT OF 495/1, WITH 495/2 UPDATE APPLIED. THIS IS NOT INSTALLED AS THE EXPL SUBMONITOR AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003). 0 Referenced by comments of: 495/6, 9003/1 00495/014C EXPL COMPILER OC G W226:EXPL RD16T1 75 EXPL.COMPILER.OC.014 1 LINE 32767 40 PAGE UM PICKELMAN JULY 12, 1979 22:48:13 0 THIS IS THE OBJECT OF 495/5, WITH THE 495/6 UPDATE APPLIED. THIS IS NOT 1 THU SEP 12/96 23:39:34 Page 174 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 INSTALLED AS *EXPL AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003). 0 Referenced by comments of: 495/2, 9003/36 00496/001 *APC SA G W062:APC.S D4.2T1 287 APC..SA.001 1 LINE 73 69 PAGE UM TIFFANY MAR. 26, 1979 03:23:17 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 *CNFGINFODSECT (654). ASSEMBLE WITH PAR=SIZE=32. 0 Referenced by comments of: 629/12, 746/1, 1016/1, 1024/1 00496/002C *APC UPDATE UC G W062:APC.UP RD16T1 76 APC.UPDATE.UC.002 1 LINE 68 3 PAGE UM TIFFANY JULY 12, 1979 22:48:16 0 UPDATE TO 496/1. USES TR3270 (629/12). 00496/003B *APC OE G *APC RD16T1 77 APC..OE.003 1 LINE 21255 8 PAGE UM TIFFANY JULY 12, 1979 22:48:17 *APC 0 HAS A $CONTINUE WITH *LIBRARY RECORD. 00496/004 *APC EXPLAIN MSG M ETC:APCEXP D4.1T1 229 APC.EXPLAIN_MSG.M.003 1 LINE 66 10 PAGE UM TIFFANY MAY 13, 1978 17:29:42 ETC.:APCEXP 0 EXPLAIN MESSAGE FILE FOR *APC. 00497/001 *SNAP SF G S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80) 1 D4T1 1240 SNAP..SF.001 1 SEQ 80 132 PAGE UM FLANIGAN JULY 28, 1977 00:40:58 00497/002 *SNAP UU G S0722 'D3T3' FSNAME=SNAP..UU.2(1) 147 D4T1 1241 SNAP..UU.002 1 LINE 73 1 PAGE UM FLANIGAN JULY 30, 1973 20:45.57 00497/003 *SNAP OE G *SNAP D4T1 1242 SNAP..OE.003 1 SEQ 5212 27 PAGE UM FLANIGAN JULY 28, 1977 00:43:57 *SNAP 00498/001D *IG DI SA G GRAF:IG.DI.S RD16T1 78 IG.DI.SA.001 1 LINE 84 72 PAGE UM GOODRICH JULY 12, 1979 22:48:19 0 ***************************************************************************** RD16 VERSION: COMPONENTS 498/1 AND 498/4 ARE NOT INTENDED FOR INSTALLATION -- THEY WILL NOT FUNCTION CORRECTLY IF USED SINCE THEY INCLUDE PORTIONS OF A NEW EGP IMPLEMENTATION. HOWEVER, THEY ARE BEING REDISTRIBUTED SINCE THEY NOW INCLUDE UNE-DEPENDENT CODE UNDER CONDITIONAL STATEMENTS. CORRECTIONS TO THIS AND SIMILAR CODE FOR OTHER SITES SHOULD BE SENT BACK TO U OF M FOR INCLUSION. ***************************************************************************** 1 THU SEP 12/96 23:39:34 Page 175 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/002 *IG DSM SA G S0933 IGDIST FSNAME=IG.DSM.S D4.2T1 290 IG.DSM.SA.002 1 LINE 86 38 PAGE UM GOODRICH MAR. 24, 1979 02:04:03 0 SOURCE FOR DATA STRUCTURE MANIPULATON CSECT (DSM). 00498/003 *IG PD SA G S0933 IGDIST FSNAME=IG.PD.S D4.2T1 291 IG.PD.SA.003 1 LINE 87 16 PAGE UM GOODRICH MAR. 24, 1979 02:05:03 0 SOURCE FOR PICTURE DESCRIPTION CSECT (PD). 00498/004D *IG GETDD SA G GRAF:IG.GETDD.S RD16T1 79 IG.GETDD.SA.004 1 LINE 91 22 PAGE UM GOODRICH JULY 12, 1979 22:48:43 0 SOURCE FOR GET DEVICE DEPENDENT ROUTINE CSECT (#IGETDD). 00498/005 *IG EGP SA G S0933 IGDIST FSNAME=IG.EGP.S D4.2T1 293 IG.EGP.SA.005 1 LINE 86 10 PAGE UM GOODRICH MAR. 24, 1979 02:04:46 0 SOURCE FOR GET EXTERNAL GRAPHICS PROCEDURE CSECT (#IGETEGP). 00498/006 *IG ERRCOM SA G S0933 IGDIST FSNAME=IG.ERRCOM.S D4T1 1248 IG.ERRCOM.SA.006 1 LINE 85 3 PAGE UM GOODRICH AUG. 05, 1976 21:11:45 0 SOURCE FOR ERROR COMMENT PRINTING CSECT (ERRCOM#). 00498/007 *IG LOAD SA G S0933 IGDIST FSNAME=IG.LOAD.S D4T1 1249 IG.LOAD.SA.007 1 LINE 88 12 PAGE UM GOODRICH JULY 09, 1977 14:00:42 0 SOURCE FOR OBJECT LOADING FACILITY (LOAD). 00498/008 *IG *IG OL G *IG D4.2T1 294 IG.*IG.OL.008 1 SEQ 20060 20 PAGE UM GOODRICH MAR. 26, 1979 03:25:47 *IG 0 OBJECT LIBRARY FOR INTEGRATED GRAPHICS ROUTINES. 00498/009 *IG COPY:IG.COPY.M SM G COPY:IG.COPY.M D4.2T1 295 IG.COPY:IG.COPY.M.SM.009 1 LINE 75 16 PAGE UM GOODRICH MAR. 26, 1979 03:25:48 COPY:IG.COPY.M 0 MACRO LIBRARY OF COPY SECTIONS USED BY THE VARIOUS COMPONENTS OF IG. 00498/010 *IG TEST SF G W114:IG.TEST.S D4.2T1 296 IG.TEST.SF.010 1 LINE 85 21 PAGE UM GOODRICH MAR. 26, 1979 03:25:54 0 FORTRAN SOURCE FOR THE PROGRAM TO TEST OUT NEW VERSIONS OF IG. 00498/011 *IG DUMP SA G S0933 IGDIST FSNAME=IG.DUMP.S D4T1 1253 IG.DUMP.SA.011 1 LINE 88 8 PAGE UM GOODRICH MAY 01, 1977 16:08:35 0 SOURCE FOR IG DATA STRUCTURE DUMPING ROUTINE. 1 THU SEP 12/96 23:39:34 Page 176 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/012 *IG DUMP OE G S0933 IGDIST FSNAME=IG.DUMP.O D4T1 1254 IG.DUMP.OE.012 1 LINE 80 3 PAGE UM GOODRICH JULY 09, 1977 21:48:05 0 OBJECT FOR IG DATA STRUCTURE DUMPING ROUTINE. 00498/013 *IG BRANCH MONITOR SA G S0933 IGDIST FSNAME=BMON.S D4T1 1255 IG.BRANCH_MONITOR.SA.013 1 LINE 69 4 PAGE UM GOODRICH JUNE 01, 1976 14:21:53 0 SOURCE FOR A PROGRAM WHICH MONITORS ALL THE BRANCHES IN A SPECIFIED ROUTINE. 00498/014 *IG BRANCH MONITOR OE G S0933 IGDIST FSNAME=BMON.O D4T1 1256 IG.BRANCH_MONITOR.OE.014 1 LINE 255 1 PAGE UM GOODRICH JULY 09, 1977 21:48:02 0 OBJECT FOR A PROGRAM WHICH MONITORS ALL THE BRANCHES IN A SPECIFIED ROUTINE. 00498/015 *IG RELINK C W114:IG.RELINK D4.1T1 237 IG.RELINK.C.015 1 LINE 61 1 PAGE UM GOODRICH MAY 13, 1978 17:31:40 0 COMMANDS TO LINKEDIT AND CREATE A LIBRARY FOR A NEW VERSION OF IG. 00498/016 *IG STATS SAVE C S0933 IGDIST FSNAME=IG.SHUFFLE D4.1T1 238 IG.STATS_SAVE.C.016 1 LINE 50 1 PAGE UM GOODRICH APR. 08, 1978 16:57:22 0 COMMANDS TO SAVE THE CONTENTS OF THE STATISTICS FILE (498/95) MAINTAINED BY IG. THE TAPE MOUNT COMMAND IN THIS FILE MUST BE CHANGED FOR EACH INSTALLATION BEFORE IT IS OF USE. 00498/017 *IG MEMO 299 WF S0563 D4T1 VLO FSNAME=IG.MEMO_299.WF.017(1) 1259 D4T1 1259 IG.MEMO_299.WF.017 1 LINE 235 61 PAGE UM GOODRICH MAR. 04, 1977 14:29:58 0 THIS IS COMPUTING CENTER MEMO 299 -- "INTEGRATED GRAPHICS SYSTEM USER'S GUIDE" 00498/018 *IG IMPLEMENTATION WF S0933 IGDIST FSNAME=IGIG.W D4.2T1 297 IG.IMPLEMENTATION.WF.018 1 LINE 145 25 PAGE UM GOODRICH AUG. 29, 1978 01:29:16 0 THE INTEGRATED GRAPHICS INTERNAL GUTS AND IMPLEMENTATION GUIDE. 00498/019 *IG STATS CALC SF G S0933 IGDIST FSNAME=IG.STATC.S D4T1 1261 IG.STATS_CALC.SF.019 1 LINE 67 2 PAGE UM GOODRICH JUNE 16, 1976 19:12:11 0 FORTRAN SOURCE FOR A PROGRAM WHICH CALCULATES AND GROUPS INFORMATION ON IG USAGE FROM THE STATISTICS GATHERED BY IG. 00498/020 *IG STATS SCAN SA G S0933 IGDIST FSNAME=IG.STATSCN.S D4T1 1262 IG.STATS_SCAN.SA.020 1 LINE 87 3 PAGE UM GOODRICH JUNE 16, 1976 19:12:16 0 FORTRAN SOURCE FOR A PROGRAM TO SCAN SELECTIVELY FOR CERTAIN RECORDS IN THE STATISTICS FILE MAINTAINED BY IG. 00498/021 *IG PWRIT SA G S0933 IGDIST FSNAME=IG.PWRIT.S D4.1T1 240 IG.PWRIT.SA.021 1 LINE 93 10 PAGE UM GOODRICH APR. 08, 1978 16:56:35 0 SOURCE FOR THE *PLOTSYS INTERFACE WHICH ALLOWS CALCOMP PLOTTING PROGRAMS TO RUN WITH IG INSTEAD. 1 THU SEP 12/96 23:39:34 Page 177 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/022 *IG UBPWRIT SF G S0933 IGDIST FSNAME=IG.UBPWRIT.S D4T1 1264 IG.UBPWRIT.SF.022 1 LINE 72 3 PAGE UM GOODRICH JUNE 16, 1976 19:12:46 0 SOURCE FOR THE UBC PWRIT PROGRAM USED TO INTERFACE THEIR PLOTTING ROUTINES TO ALLOW PROGRAMS TO RUN WITH IG INSTEAD. 00498/023 *IG IGRI.339 S S0596 BLAH 'IG ROUTINES' FSNAME=W114:IGRI.339.S D4T1 1265 IG.IGRI.339.S.023 1 LINE 79 13 PAGE UM GOODRICH DEC. 21, 1974 16:04.29 0 SOURCE FOR AN OPERATING SYSTEM FOR THE DEC 339 / PDP-9 WHICH ALLOWS THE RUNNING OF IG. 00498/024 *IG FIGURES SF G S0933 IGDIST FSNAME=IG.FIGS.S D4T1 1266 IG.FIGURES.SF.024 1 LINE 82 4 PAGE UM GOODRICH JUNE 16, 1976 19:12:54 0 FORTRAN SOURCE FOR A PROGRAM TO GENERATE THE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE. 00498/025 *IG FIGURES 1 SG G S0933 IGDIST FSNAME=IG.FIGS1.S D4T1 1267 IG.FIGURES_1.SG.025 1 LINE 56 1 PAGE UM GOODRICH JUNE 16, 1976 19:12:57 0 GOM SOURCE FOR A PROGRAM TO GENERATE MORE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE. 00498/026 *IG FIGURES DATA D S0933 IGDIST FSNAME=IG.FIGS.D D4T1 1268 IG.FIGURES_DATA.D.026 1 LINE 252 6 PAGE UM GOODRICH JUNE 16, 1976 19:12:52 0 DATA FOR THE PROGRAMS USED TO GENERATE THE FIGURES FOR THE INTEGRATED GRAPHICS USERS GUIDE. 00498/027 *IG GREEKFONT SA G S0933 IGDIST FSNAME=IG.GREEKF.S D4T1 1269 IG.GREEKFONT.SA.027 1 LINE 92 4 PAGE UM GOODRICH JULY 09, 1977 21:47:50 0 SOURCE FOR THE GREEK CHARACTER SET USED BY IG. OBJECT IS AT LINES (400,999) OF 498/28. 0 Referenced by comments of: 498/28 00498/028 *IG ETC:IG.FONTS OC G ETC:IG.FONTS D4T1 1270 IG.ETC:IG.FONTS.OC.028 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 00:50:39 ETC.:IG.FONTS 0 THIS FILE CONTAINS THE OBJECT FOR THE IG CHARACTER FONTS, CURRENTLY ONLY THE GREEK FONT (498/27). EACH FONT STARTS ON A MULTIPLE OF LINE 100. LINES 0 TO 99 CURRENTLY CONTAIN A SNOBOL PROGRAM TO CONVERT THE OLD BYTE-STYLE CHARACTER SET SOURCE TO THE NEW HALFWORD DEFINITION SOURCE. THIS MAY BE DELETED WHEN NO LONGER NEEDED. 00498/029 *IG *IG.AGT SA G S0933 IGDIST FSNAME=IG.AGT.S D4T1 1271 IG.*IG.AGT.SA.029 1 LINE 89 8 PAGE UM GOODRICH FEB. 26, 1977 20:24:08 0 SOURCE FOR THE DDR FOR THE ADAGE 10 REFRESH DISPLAY. 00498/030 *IG *IG.AGT OC G S0933 IGDIST FSNAME=IG.AGT.O D4T1 1272 IG.*IG.AGT.OC.030 1 LINE 80 3 PAGE UM GOODRICH MAY 11, 1977 18:47:58 1 THU SEP 12/96 23:39:34 Page 178 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/031 *IG *IG.AJ830 SA G S0933 IGDIST FSNAME=IG.AJ830.S D4T1 1273 IG.*IG.AJ830.SA.031 1 LINE 93 10 PAGE UM GOODRICH JULY 09, 1977 14:04:41 0 SOURCE FOR THE DDR FOR THE ANDERSON-JACOBSON 830 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION. 00498/032 *IG *IG.AJ830 OC G *IG.AJ830 D4T1 1274 IG.*IG.AJ830.OC.032 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 00:51:01 *IG.AJ830 00498/033 *IG *IG.CCMP SA G S0933 IGDIST FSNAME=IG.CCMP.S D4.1T1 241 IG.*IG.CCMP.SA.033 1 LINE 108 8 PAGE UM GOODRICH APR. 08, 1978 16:54:34 0 SOURCE FOR THE DDR FOR THE CALCOMP PLOTTER VIA *PLOTSYS. 00498/034 *IG *IG.CCMP OC G *IG.CCMP D4.1T1 242 IG.*IG.CCMP.OC.034 1 SEQ 80 2 PAGE UM GOODRICH MAY 13, 1978 17:32:04 *IG.CCMP 0 HAS A "$CONTINUE WITH *PLOTSYS" CARD. 00498/035 *IG *IG.CK400 SA G S0933 IGDIST FSNAME=IG.CK400.S D4.1T1 243 IG.*IG.CK400.SA.035 1 LINE 90 11 PAGE UM GOODRICH DEC. 07, 1977 23:26:43 0 SOURCE FOR THE DDR FOR THE COMPUTEK 400 STORAGE TUBE DISPLAY. 00498/036 *IG *IG.CK400 OC G *IG.CK400 D4.1T1 244 IG.*IG.CK400.OC.036 1 SEQ 80 3 PAGE UM GOODRICH MAY 13, 1978 17:32:09 *IG.CK400 00498/037 *IG *IG.DTC300 SA G S0933 IGDIST FSNAME=IG.DTC300.S D4T1 1279 IG.*IG.DTC300.SA.037 1 LINE 95 9 PAGE UM GOODRICH JULY 09, 1977 14:04:56 0 SOURCE FOR THE DDR FOR THE DATA TERMINALS CORPORATION 300 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION. 00498/038 *IG *IG.DTC300 OC G *IG.DTC300 D4T1 1280 IG.*IG.DTC300.OC.038 1 SEQ 80 2 PAGE UM GOODRICH JULY 28, 1977 00:51:13 *IG.DTC300 00498/039 *IG *IG.DTC302 SA G S0933 IGDIST FSNAME=IG.DTC302.S D4T1 1281 IG.*IG.DTC302.SA.039 1 LINE 95 9 PAGE UM GOODRICH JULY 09, 1977 14:05:02 0 SOURCE FOR THE DDR FOR THE DATA TERMINALS CORPORATION 302 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION. 00498/040 *IG *IG.DTC302 OC G *IG.DTC302 D4T1 1282 IG.*IG.DTC302.OC.040 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 00:51:18 *IG.DTC302 00498/041 *IG *IG.GT40 SA G S0933 IGDIST FSNAME=IG.GT40.S D4T1 1283 IG.*IG.GT40.SA.041 1 LINE 91 10 PAGE UM GOODRICH MAY 01, 1977 16:06:13 0 SOURCE FOR THE DDR FOR THE DIGITAL EQUIPMENT CORPORATION GT40 REFRESH DISPLAY. 1 THU SEP 12/96 23:39:34 Page 179 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/042 *IG *IG.GT40 OC G *IG.GT40 D4T1 1284 IG.*IG.GT40.OC.042 1 SEQ 80 3 PAGE UM GOODRICH JULY 28, 1977 00:51:22 *IG.GT40 00498/043 *IG *IG.HP2648 SA G = S0933 IGDIST FSNAME=IG.HP2648.S UM GOODRICH 0 SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 2648 VIDEO-GRAPHICS TERMINAL. (NOT READY FOR DISTRIBUTION) 00498/044 *IG *IG.HP2648 OC G = *IG.HP2648 UM GOODRICH 0 (NOT READY FOR DISTRIBUTION) 00498/045 *IG *IG.HP7203 SA G S0933 IGDIST FSNAME=IG.HP7203.S D4T1 1285 IG.*IG.HP7203.SA.043 1 LINE 95 9 PAGE UM GOODRICH MAY 01, 1977 16:06:18 0 SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 7203A PLOTTER WITH EIA INTERFACE. 00498/046 *IG *IG.HP7203 OC G *IG.HP7203 D4T1 1286 IG.*IG.HP7203.OC.044 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 00:51:26 *IG.HP7203 00498/047C *IG *IG.HP7221 SA G S0933 IGDIST FSNAME=IG.HP7221.S RD16T1 80 IG.*IG.HP7221.SA.047 1 LINE 102 17 PAGE UM GOODRICH AUG. 29, 1978 01:25:18 0 SOURCE FOR THE DDR FOR THE HEWLITT-PACKARD 7221A 4-PEN PLOTTER WITH EIA INTERFACE. 00498/048C *IG *IG.HP7221 OC G *IG.HP7221 RD16T1 81 IG.*IG.HP7221.OC.048 1 LINE 80 5 PAGE UM GOODRICH JULY 12, 1979 22:51:57 00498/049 *IG *IG.HUGHES SA G S0933 IGDIST FSNAME=IG.HUGHES.S D4.1T1 245 IG.*IG.HUGHES.SA.045 1 LINE 92 19 PAGE UM GOODRICH OCT. 11, 1977 19:01:24 0 SOURCE FOR THE DDR FOR THE HUGHES GRAPHICS TERMINAL. 00498/050 *IG *IG.HUGHES OC G *IG.HUGHES D4.1T1 246 IG.*IG.HUGHES.OC.046 1 LINE 80 4 PAGE UM GOODRICH MAY 13, 1978 17:32:14 *IG.HUGHES 00498/051 *IG *IG.MX12000 SA G S0933 IGDIST FSNAME=IG.MX12000.S D4T1 1287 IG.*IG.MX12000.SA.045 1 LINE 94 13 PAGE UM GOODRICH JULY 09, 1977 14:06:49 0 SOURCE FOR THE DDR FOR THE MAGNAVOX 12000 PLASMA TERMINAL. 00498/052 *IG *IG.MX12000 OC G *IG.MX12000 D4T1 1288 IG.*IG.MX12000.OC.046 1 LINE 80 4 PAGE UM GOODRICH JULY 28, 1977 00:51:31 *IG.MX12000 00498/053 *IG *IG.PEP SA G S0933 IGDIST FSNAME=IG.PEP.S D4T1 1289 IG.*IG.PEP.SA.047 1 LINE 96 11 PAGE UM GOODRICH JULY 09, 1977 14:06:57 0 SOURCE FOR THE DDR FOR THE PRINCETON ELECTRONIC PRODUCTS 801 LITHICON DISPLAY. 1 THU SEP 12/96 23:39:34 Page 180 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/054 *IG *IG.PEP OC G *IG.PEP D4T1 1290 IG.*IG.PEP.OC.048 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 00:51:35 *IG.PEP 00498/055 *IG *IG.PRNT SA G S0933 IGDIST FSNAME=IG.PRNT.S D4T1 1291 IG.*IG.PRNT.SA.049 1 LINE 91 4 PAGE UM GOODRICH MAY 01, 1977 16:06:34 0 SOURCE FOR THE DDR FOR PRINTER PLOTS. (WILL BE REPLACED SOON BY CODE FROM UBC). 00498/056 *IG *IG.PRNT OC G *IG.PRNT D4T1 1292 IG.*IG.PRNT.OC.050 1 LINE 80 2 PAGE UM GOODRICH JULY 28, 1977 00:51:39 *IG.PRNT 00498/057 *IG *IG.QUMES5 SA G S0933 IGDIST FSNAME=IG.QUMES5.S D4.2T1 298 IG.*IG.QUMES5.SA.057 1 LINE 92 10 PAGE UM GOODRICH JAN. 04, 1979 18:38:55 0 SOURCE FOR THE DDR FOR THE QUME SPRINT5 TERMINAL WITH DIABLO-STYLE PRINTER. 00498/058 *IG *IG.QUMES5 OC G *IG.QUMES5 D4.2T1 299 IG.*IG.QUMES5.OC.058 1 LINE 80 4 PAGE UM GOODRICH MAR. 26, 1979 03:28:33 *IG.QUMES5 00498/059 *IG *IG.SAVE SA G S0933 IGDIST FSNAME=IG.SAVE.S D4T1 1293 IG.*IG.SAVE.SA.051 1 LINE 91 9 PAGE UM GOODRICH JULY 09, 1977 14:07:07 0 SOURCE FOR THE FAKE DDR WHICH DOES SAVING OF OBJECTS. 00498/060 *IG *IG.SAVE OC G *IG.SAVE D4T1 1294 IG.*IG.SAVE.OC.052 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 00:51:43 *IG.SAVE 00498/061 *IG *IG.TD4000 SA G S0933 IGDIST FSNAME=IG.TD4000.S D4T1 1295 IG.*IG.TD4000.SA.053 1 LINE 92 9 PAGE UM GOODRICH JULY 09, 1977 14:07:12 0 SOURCE FOR THE DDR FOR THE TREND DATA 4000 TERMINAL WITH DIABLO PRINTER AND PLOT OPTION. 00498/062 *IG *IG.TD4000 OC G *IG.TD4000 D4T1 1296 IG.*IG.TD4000.OC.054 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 00:51:48 *IG.TD4000 00498/063 *IG *IG.TTY SA G S0933 IGDIST FSNAME=IG.TTY.S D4T1 1297 IG.*IG.TTY.SA.055 1 LINE 99 10 PAGE UM GOODRICH JULY 11, 1977 15:01:03 0 SOURCE FOR THE DDR FOR THE TELETYPE DEBUGGING ROUTINES. 00498/064 *IG *IG.TTY OC G *IG.TTY D4T1 1298 IG.*IG.TTY.OC.056 1 SEQ 80 3 PAGE UM GOODRICH JULY 28, 1977 00:52:09 *IG.TTY 00498/065 *IG *IG.TX4002 SA G S0933 IGDIST FSNAME=IG.TX4002.S D4T1 1299 IG.*IG.TX4002.SA.057 1 LINE 96 10 PAGE UM GOODRICH JULY 09, 1977 14:07:23 0 SOURCE FOR THE DDR FOR THE TEKTRONIX 4002 STORAGE TUBE DISPLAY. 1 THU SEP 12/96 23:39:34 Page 181 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/066 *IG *IG.TX4002 OC G *IG.TX4002 D4T1 1300 IG.*IG.TX4002.OC.058 1 SEQ 80 2 PAGE UM GOODRICH JULY 28, 1977 00:52:36 *IG.TX4002 00498/067 *IG *IG.TX4006 SA G S0933 IGDIST FSNAME=IG.TX4006.S D4T1 1301 IG.*IG.TX4006.SA.059 1 LINE 95 11 PAGE UM GOODRICH JULY 09, 1977 14:07:28 0 SOURCE FOR THE DDR FOR THE TEKTRONIX 4006 STORAGE TUBE DISPLAY. 00498/068 *IG *IG.TX4006 OC G *IG.TX4006 D4T1 1302 IG.*IG.TX4006.OC.060 1 LINE 80 4 PAGE UM GOODRICH JULY 28, 1977 00:52:41 *IG.TX4006 00498/069 *IG *IG.TX4010 SA G S0933 IGDIST FSNAME=IG.TX4010.S D4T1 1303 IG.*IG.TX4010.SA.061 1 LINE 95 12 PAGE UM GOODRICH JULY 09, 1977 21:46:11 0 SOURCE FOR THE DDR FOR THE TEKTRONIX 4010 STORAGE TUBE DISPLAY. 00498/070 *IG *IG.TX4010 OC G *IG.TX4010 D4T1 1304 IG.*IG.TX4010.OC.062 1 SEQ 80 3 PAGE UM GOODRICH JULY 28, 1977 00:52:45 *IG.TX4010 00498/071 *IG *IG.TX4014 SA G S0933 IGDIST FSNAME=IG.TX4014.S D4.1T1 247 IG.*IG.TX4014.SA.065 1 LINE 105 12 PAGE UM GOODRICH OCT. 11, 1977 19:01:55 0 SOURCE FOR THE DDR FOR THE TEKTRONIX 4014 STORAGE TUBE DISPLAY. 00498/072 *IG *IG.TX4014 OC G *IG.TX4014 D4.1T1 248 IG.*IG.TX4014.OC.066 1 SEQ 80 3 PAGE UM GOODRICH MAY 13, 1978 17:32:17 *IG.TX4014 00498/073 *IG *IG.TX4025 SA G S0933 IGDIST FSNAME=IG.TX4025.S D4.1T1 249 IG.*IG.TX4025.SA.067 1 LINE 95 11 PAGE UM GOODRICH APR. 08, 1978 16:57:48 0 SOURCE FOR THE DDR FOR THE TEKTRONIX 4025 STORAGE TUBE DISPLAY. 00498/074 *IG *IG.TX4025 OC G *IG.TX4025 D4.1T1 250 IG.*IG.TX4025.OC.068 1 LINE 80 4 PAGE UM GOODRICH MAY 13, 1978 17:32:32 *IG.TX4025 00498/075 *IG *IG.TX4662 SA G S0933 IGDIST FSNAME=IG.TX4662.S D4.2T1 300 IG.*IG.TX4662.SA.075 1 LINE 102 12 PAGE UM GOODRICH JAN. 04, 1979 18:39:03 0 SOURCE FOR THE DDR FOR THE TEKTRONIX 4662 DIGITAL PLOTTER. 00498/076 *IG *IG.TX4662 OC G *IG.TX4662 D4.2T1 301 IG.*IG.TX4662.OC.076 1 LINE 80 4 PAGE UM GOODRICH MAR. 26, 1979 03:28:38 *IG.TX4662 00498/077 *IG *IG.VUCOM SA G S0933 IGDIST FSNAME=IG.VUCOM.S D4T1 1309 IG.*IG.VUCOM.SA.067 1 LINE 93 6 PAGE UM GOODRICH FEB. 26, 1977 20:28:30 0 SOURCE FOR THE DDR FOR THE VUCOM TERMINAL. 1 THU SEP 12/96 23:39:34 Page 182 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/078 *IG *IG.VUCOM OC G S0933 IGDIST FSNAME=IG.VUCOM.O D4T1 1310 IG.*IG.VUCOM.OC.068 1 LINE 80 3 PAGE UM GOODRICH JUNE 16, 1976 19:09:45 00498/079 *IG *IG.XX1620 SA G S0933 IGDIST FSNAME=IG.XX1620.S D4T1 1311 IG.*IG.XX1620.SA.069 1 LINE 95 9 PAGE UM GOODRICH JULY 09, 1977 21:46:28 0 SOURCE FOR THE DDR FOR THE XEROX 1620 TERMINAL WITH DIABLO PRINTER. 00498/080 *IG *IG.XX1620 OC G *IG.XX1620 D4T1 1312 IG.*IG.XX1620.OC.070 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 00:53:02 *IG.XX1620 00498/081 *IG *IG.ZETA SA G S0933 IGDIST FSNAME=IG.ZETA.S D4T1 1313 IG.*IG.ZETA.SA.071 1 LINE 86 14 PAGE UM GOODRICH FEB. 26, 1977 20:19:25 0 SOURCE FOR THE DDR FOR THE ZETA PLOTTER DEVELOPED BY NCSS. NEEDS SOME CHANGES TO RUN IN MTS. OBJECT NOT DISTRIBUTED. 00498/082 *IG *IG.3270 SA G S0933 IGDIST FSNAME=IG.3270.S D4.1T1 253 IG.*IG.3270.SA.076 1 LINE 88 9 PAGE UM GOODRICH APR. 08, 1978 16:57:58 0 SOURCE FOR THE DDR FOR THE IBM 3270 AND COMPATIBLE TERMINALS. 00498/083 *IG *IG.3270 OC G *IG.3270 D4.1T1 254 IG.*IG.3270_-_370.OC.077 1 SEQ 80 2 PAGE UM GOODRICH MAY 13, 1978 17:32:36 *IG.3270 00498/084 *IG *IG.339 SA G S0933 IGDIST FSNAME=IG.339.S D4.1T1 256 IG.*IG.339.SA.080 1 LINE 96 6 PAGE UM GOODRICH APR. 08, 1978 16:58:02 0 SOURCE FOR THE DDR FOR THE DIGITAL EQUIPMENT CORPORATION 339 REFRESH DISPLAY. 00498/085 *IG *IG.339 OC G *IG.339 D4.1T1 257 IG.*IG.339.OC.081 1 SEQ 80 2 PAGE UM GOODRICH MAY 13, 1978 17:32:39 *IG.339 00498/086 *IG INTERACTIVE IG SG O S0933 IGDIST FSNAME=IAIG.S D4.1T1 258 IG.INTERACTIVE_IG.SG.082 1 LINE 115 24 PAGE UM GOODRICH APR. 08, 1978 17:10:19 0 SOURCE FOR AN INTERACTIVE VERSION OF IG REQUIRING NO PROGRAMMING ON PART OF USER. REQUIRES NEW:GOMLIB. ALSO MAY BE USED AS A GRAPHICS MONITOR FOR PROGRAMS BY CALLING THE ENTRY REIAIG. 0 Referenced by comments of: 498/89, 498/91, 659/34 00498/087 *IG INTERACTIVE IG OC O S0933 IGDIST FSNAME=IAIG.O D4.1T1 259 IG.INTERACTIVE_IG.OC.083 1 LINE 80 23 PAGE UM GOODRICH APR. 08, 1978 17:10:40 0 HAS A "$CONTINUE WITH NEW:GOMLIB+W081:SPANBREAK.O" CARD. 00498/088 *IG INTERACTIVE IG WF O S0933 IGDIST FSNAME=IAIG.W D4T1 1321 IG.INTERACTIVE_IG.WF.079 1 LINE 142 4 PAGE UM GOODRICH JULY 09, 1977 21:52:00 1 THU SEP 12/96 23:39:34 Page 183 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00498/089 *IG SPAN BREAK SA G S0933 IGDIST FSNAME=SPANBREAK.S D4T1 1322 IG.SPAN_BREAK.SA.080 1 LINE 76 4 PAGE UM GOODRICH JULY 09, 1977 21:52:04 0 SNOBOL STYLE SPAN AND BREAK FUNCTIONS USED BY INTERACTIVE IG (498/86). 00498/090 *IG SPAN BREAK OC G S0933 IGDIST FSNAME=SPANBREAK.O D4T1 1323 IG.SPAN_BREAK.OC.081 1 LINE 80 1 PAGE UM GOODRICH JULY 09, 1977 21:52:02 00498/091 *IG IAIGCMD SS G S0933 IGDIST FSNAME=IAIGCMD.S D4.1T1 260 IG.IAIGCMD.SS.087 1 LINE 73 1 PAGE UM GOODRICH APR. 08, 1978 17:10:27 0 SNOBOL PROGRAM WHICH GENERATES GOM VECTOR VALUES STATEMENTS FOR COMMAND SCANNER DATA FOR INTERACTIVE IG (498/86). 00498/092 *IG VERSION LABLER SG G S0933 IGDIST FSNAME=VERLAB.S D4T1 1325 IG.VERSION_LABLER.SG.083 1 LINE 151 3 PAGE UM GOODRICH JULY 09, 1977 21:50:06 0 SOURCE FOR VERSION LABEL PROGRAM WHICH GENERATES A HEAD SHEET FOR EACH IG COMPONENT'S LISTING WHEN IT IS ASSEMBLED. 00498/093 *IG VERSION LABLER OC G S0933 IGDIST FSNAME=VERLAB.O D4T1 1326 IG.VERSION_LABLER.OC.084 1 LINE 80 4 PAGE UM GOODRICH JULY 09, 1977 21:50:04 00498/094 *IG MEMO 356 WF S0563 D4T1 VLO FSNAME=IG.MEMO_356.WF.085(1) 1327 D4T1 1327 IG.MEMO_356.WF.085 1 LINE 235 17 PAGE UM GOODRICH AUG. 14, 1977 21:30:55 0 THIS IS COMPUTING CENTER MEMO 356 -- "RECENT CHANGES AND ADDITIONS TO THE INTEGRATED GRAPHICS SYSTEM" 00498/095 *IG ETC:IG.STAT D # MTS:TST.EMPSEQWE UM GOODRICH ETC.:IG.STAT 0 FILE FOR ACCUMULATING USAGE STATISTICS. 0 Referenced by comments of: 498/16 00500/001 BILLING BLSIGCK SG G S0027 DISTRB FSNAME=BLSIGCK D4.2T1 302 BILLING.BLSIGCK.SG.001 1 LINE 94 3 PAGE UM ENGLE JAN. 09, 1979 13:10:41 0 PROGRAM TO LIST ALL SIGNONS WHICH WERE MADE DURING THE BILLING PERIOD AND ARE STILL SIGNED ON OR WHICH STILL HAVE A STATISTICS RECORD IN THE STATISTICS FILE. IF SIGONSCN (500/34) 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/34 00500/002 BILLING BLSIGCK OC G S0027 DISTRB FSNAME=BLSC D4.2T1 303 BILLING.BLSIGCK.OC.002 1 LINE 80 4 PAGE UM ENGLE JAN. 09, 1979 13:10:44 1 THU SEP 12/96 23:39:34 Page 184 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/003 BILLING BILLRFT SP G BLRF S0027 DISTRB FSNAME=BILLRFT D4.2T1 304 BILLING.BILLRFT.SP.003 1 LINE 80 21 PAGE UM ENGLE JAN. 09, 1979 17:15:02 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/13, 500/20, 500/26 00500/004 BILLING BILLRFT OC G S0027 DISTRB FSNAME=BLRF D4.2T1 305 BILLING.BILLRFT.OC.004 1 LINE 80 21 PAGE UM ENGLE JAN. 09, 1979 17:15:48 0 REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';). 00500/005 BILLING BILLRFT OC G S0027 DISTRB FSNAME=NETBLRF D4.2T1 306 BILLING.BILLRFT.OC.005 1 LINE 80 18 PAGE UM ENGLE JAN. 09, 1979 17:17:11 0 REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/006 BILLING BILLING SP G BILL S0027 DISTRB FSNAME=BILLING D4.1T1 261 BILLING.BILLING.SP.004 1 LINE 80 31 PAGE UM ENGLE JAN. 20, 1978 13:27:30 0 PROGRAM TO DO MAIN PART OF BILLING AFTER SORT. 0 Referenced by comments of: 500/13, 500/15, 500/28 00500/007 BILLING BILLING OC G S0027 DISTRB FSNAME=BILL D4.1T1 262 BILLING.BILLING.OC.005 1 LINE 80 27 PAGE UM ENGLE JAN. 20, 1978 13:27:41 0 REGULAR BILLING (COMPILED WITH %NET='';). 00500/008 BILLING BILLING OC G S0027 DISTRB FSNAME=NETBILL D4T2 6 BILLING.BILLING.OC.006 1 LINE 80 11 PAGE UM ENGLE MAY 17, 1976 12:54:28 0 NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/009 BILLING BILPRNT SP G BLPR S0027 DISTRB FSNAME=BILPRNT D4.2T1 307 BILLING.BILPRNT.SP.009 1 LINE 80 13 PAGE UM ENGLE JAN. 10, 1979 14:41:29 0 PROGRAM TO PRINT BILLING REPORTS. 0 Referenced by comments of: 500/14, 500/30 00500/010 BILLING BILPRNT OC G S0027 DISTRB FSNAME=BLPR D4.2T1 308 BILLING.BILPRNT.OC.010 1 LINE 80 15 PAGE UM ENGLE JAN. 10, 1979 14:42:54 00500/011 BILLING BILLWRITEUP WF G S0027 DISTRB FSNAME=BILLWRITEUP D4.2T1 309 BILLING.BILLWRITEUP.WF.011 1 LINE 159 8 PAGE UM ENGLE JAN. 09, 1979 16:20:05 0 WRITEUP FOR RUNNING BILLING. 00500/012 BILLING BILLSOURCE C S0027 DISTRB FSNAME=BILLSOURCE D4.2T1 310 BILLING.BILLSOURCE.C.012 1 LINE 123 1 PAGE UM ENGLE JAN. 09, 1979 16:38:01 0 COMMAND FILE FOR RUNNING BILLING. LINE NUMBERS IN THIS FILE ARE IMPORTANT TO 1 THU SEP 12/96 23:39:34 Page 185 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE RESTART FILE (500/16). 0 Referenced by comments of: 500/16 00500/013 BILLING BILLTABLES D S0027 DISTRB FSNAME=BILLTABLES D4T2 11 BILLING.BILLTABLES.D.011 1 LINE 76 4 PAGE UM ENGLE MAY 17, 1976 12:57:23 0 MACHINE READABLE TABLE OF INFORMATION USED BY BILLING. READ DURING EXECUTION OF BILLRFT (500/3) AND BILLING (500/6). 00500/014 BILLING DIVISION D BILL:DIVISION D4T2 12 BILLING.DIVISION.D.012 1 LINE 104 22 PAGE UM ENGLE JULY 28, 1977 01:22:52 0 MACHINE READABLE TABLE OF UNIVERSITY UNITS ACCORDING TO UNIT CODE. READ AND WRITTEN BY BILPRNT (500/9). 00500/015 BILLING COVER D S0027 DISTRB FSNAME=COVER D4T2 13 BILLING.COVER.D.013 1 LINE 66 1 PAGE UM ENGLE DEC. 05, 1975 13:40:06 0 MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS. READ BY BILLING (500/6). 00500/016 BILLING RESTART C S0027 DISTRB FSNAME=RESTART D4.2T1 311 BILLING.RESTART.C.016 1 LINE 51 1 PAGE UM ENGLE JAN. 09, 1979 16:41:39 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/12). 0 Referenced by comments of: 500/12 00500/017 BILLING BILLLIB OL G S0027 DISTRB FSNAME=BILLLIB D4.2T1 312 BILLING.BILLLIB.OL.017 1 LINE 504 19 PAGE UM ENGLE FEB. 12, 1979 11:52:33 0 LIBRARY FOR BILLING PROGRAMS. ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00500/018 BILLING FLUSH SP G FLSH S0722 'D3T3' FSNAME=BILLING.FLUSH.SP.17(1) 197 D4T2 16 BILLING.FLUSH.SP.016 1 LINE 80 1 PAGE UM ENGLE JUNE 07, 1973 10:28.44 0 SUBROUTINE TO FORCE A LINE OF OUTPUT TO A PL/I STREAM FILE (PUT STATEMENTS) TO BE PRINTED NOW (DAMNIT), E.G., ON A TERMINAL FOR PROMPTING FOR INPUT. 00500/019 BILLING FLUSH OC G S0780 'D3.1T1' FSNAME=BILLING.FLUSH.OC.17(1) 306 D4T2 17 BILLING.FLUSH.OC.017 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1974 15:46.26 00500/020 BILLING BLPRJFL SA G S0964 'D3.2T1' FSNAME=BILLING.BLPRJFL.SA.18(1) 394 D4T2 18 BILLING.BLPRJFL.SA.018 1 LINE 80 4 PAGE UM ENGLE DEC. 06, 1974 13:12.59 0 SUBROUTINE TO READ THE NEXT PROJECT RECORD FROM *PROJECT. CALLED BY BILLRFT (500/3). COPIES ACCPROJFMT (104/2). 00500/021 BILLING BLPRJFL OC G S0964 'D3.2T1' FSNAME=BILLING.BLPRJFL.OC.19(1) 395 D4T2 19 BILLING.BLPRJFL.OC.019 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 13:13.11 1 THU SEP 12/96 23:39:34 Page 186 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/022 BILLING PNLIST SP G PNLS S0027 DISTRB FSNAME=PNLIST D4.2T1 313 BILLING.PNLIST.SP.022 1 LINE 80 5 PAGE UM ENGLE JAN. 10, 1979 16:34:56 0 PROGRAM TO PRODUCE LISTINGS OF PROJECT NUMBERS IN *PROJECT SORTED BY UNIVERSITY ACCOUNT NUMBER, INTER-DEPARTMENTAL REQUISITION NUMBER, UNIT CODE, AND NAME. 0 Referenced by comments of: 500/24 00500/023 BILLING PNLIST OC G S0027 DISTRB FSNAME=PNLS D4.2T1 314 BILLING.PNLIST.OC.023 1 LINE 80 6 PAGE UM ENGLE FEB. 12, 1979 11:52:37 00500/024 BILLING PNLSEXTR SA G S0964 'D3.2T1' FSNAME=BILLING.PNLSEXTR.SA.22(1) 398 D4T2 22 BILLING.PNLSEXTR.SA.022 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 13:16.12 0 SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/22). CALLED BY PRJLIST (104/42) WHICH IS CALLED BY PNLIST. COPIES ACCPROJFMT (104/2). 00500/025 BILLING PNLSEXTR OC G S0964 'D3.2T1' FSNAME=BILLING.PNLSEXTR.OC.23(1) 399 D4T2 23 BILLING.PNLSEXTR.OC.023 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 13:16.32 00500/026 BILLING BLRECPR SP G S0964 'D3.2T1' FSNAME=BILLING.BLRECPR.SP.24(1) 400 D4T2 24 BILLING.BLRECPR.SP.024 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 14:16.05 0 PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/3). 00500/027 BILLING BLRECPR OC G S0964 'D3.2T1' FSNAME=BILLING.BLRECPR.OC.25(1) 401 D4T2 25 BILLING.BLRECPR.OC.025 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 14:16.20 00500/028 BILLING POSIFIL SP G S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.SP.26(1) 312 D4T2 26 BILLING.POSIFIL.SP.026 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1974 15:49.10 0 SUBROUTINE CALLED BY BILLING (500/6) TO POSITION PL/1 FILES FOR RESTART. 00500/029 BILLING POSIFIL OC G S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.OC.27(1) 313 D4T2 27 BILLING.POSIFIL.OC.027 1 LINE 80 2 PAGE UM ENGLE JAN. 08, 1974 15:49.29 00500/030 BILLING BLDVSRTE SA G BDSE S0027 DISTRB FSNAME=BLDVSRTE D4.2T1 315 BILLING.BLDVSRTE.SA.030 1 LINE 80 4 PAGE UM ENGLE JAN. 10, 1979 14:53:17 0 SORT EXIT SUBROUTINES TO DO DIVISION SORT FOR BILPRNT (500/9). COPIES GRDEF (104/68). 00500/031 BILLING BLDVSRTE OC G S0027 DISTRB FSNAME=BDSE D4.2T1 316 BILLING.BLDVSRTE.OC.031 1 LINE 80 2 PAGE UM ENGLE FEB. 12, 1979 11:52:41 00500/032 BILLING BILLMNT SG G S0027 DISTRB FSNAME=BILLMNT D4T2 30 BILLING.BILLMNT.SG.030 1 LINE 73 1 PAGE UM ENGLE MAR. 01, 1977 17:10:37 0 GOM PROGRAM TO MOUNT THE BILLING REPORT TAPE. 00500/033 BILLING BILLMNT OC G S0027 DISTRB FSNAME=BMNT D4T2 31 BILLING.BILLMNT.OC.031 1 LINE 80 3 PAGE UM ENGLE MAR. 01, 1977 17:10:40 1 THU SEP 12/96 23:39:34 Page 187 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/034 BILLING SIGONSCN SA G SSCN S0027 DISTRB FSNAME=SIGONSCN D4.2T1 317 BILLING.SIGONSCN.SA.034 1 LINE 80 4 PAGE UM ENGLE JAN. 09, 1979 13:13:20 0 SUBROUTINE TO SCAN THE JOB TABLE FOR SIGNONS MADE DURING THE BILLING PERIOD. CALLED BY BLSIGCK (500/1). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 500/1 00500/035 BILLING SIGONSCN OC G S0027 DISTRB FSNAME=SSCN D4.2T1 318 BILLING.SIGONSCN.OC.035 1 LINE 80 5 PAGE UM ENGLE JAN. 09, 1979 13:13:26 00500/036 BILLING TAPMNT SG G S0027 DISTRB FSNAME=TAPMNT D4.2T1 319 BILLING.TAPMNT.SG.036 1 LINE 72 3 PAGE UM ENGLE JAN. 09, 1979 13:48:40 0 SUBROUTINE TO ACQUIRE SUCCESSIVE FILES FOR A SPECIFIED RANGE FROM TAPE DIRECTORY TAPES. 00500/037 BILLING TAPMNT OC G S0027 DISTRB FSNAME=TMNT D4.2T1 320 BILLING.TAPMNT.OC.037 1 LINE 80 5 PAGE UM ENGLE JAN. 09, 1979 13:50:32 00501/001 MTS VOLUME 3 MASTER WT S1167 MTSV3 'MTS MANUALS' POSN=NEWM13.V3 D4.2T1 321 MTS_VOLUME_3.MASTER.WT.001 1 SEQ 132 322 PAGE UM MANUAL APR. 01, 1979 22:21:10 0 TEXT/360 MASTER FOR VOLUME 3 "SYSTEM SUBROUTINE DESCRIPTIONS" OF THE UM MTS MANUALS (OCTOBER 1976, UPDATED JUNE 1977, FEBRUARY 1978, AND JULY 1978.) EDITOR: RICHARD A. SALISBURY 00501/002 MTS VOLUME 3 PRINT PT S1167 MTSV3 'MTS MANUALS' POSN=PRINT13.V3 D4.2T1 322 MTS_VOLUME_3.PRINT.PT.002 1 SEQ 132 676 PAGE UM MANUAL APR. 01, 1979 22:21:46 0 TEXT/360 PRINT FILE. 00501/003 MTS VOLUME 3 UPDATE 1 PT W073:TNLV3.JUN77 D4.2T1 323 MTS_VOLUME_3.UPDATE_1.PT.003 1 LINE 147 100 PAGE UM MANUAL APR. 01, 1979 22:22:21 0 THIS IS COMPUTING CENTER MEMO 358 -- "UPDATE 1 TO MTS VOLUME 3," (JUNE 1977). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00501/004 MTS VOLUME 3 UPDATE 2 PT W073:TNLV3.FEB78 D4.2T1 324 MTS_VOLUME_3.UPDATE_2.PT.004 1 LINE 106 77 PAGE UM MANUAL APR. 01, 1979 22:22:36 0 THIS IS COMPUTING CENTER MEMO 374 -- "UPDATE 2 TO MTS VOLUME 3," (FEBRUARY 1978). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00501/005 MTS VOLUME 3 UPDATE 3 PT W073:TNLV3.JUL78 D4.2T1 325 MTS_VOLUME_3.UPDATE_3.PT.005 1 LINE 133 44 PAGE UM MANUAL APR. 01, 1979 22:22:45 0 THIS IS COMPUTING CENTER MEMO 385 -- "UPDATE 3 TO MTS VOLUME 3," (JULY 1978). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 1 THU SEP 12/96 23:39:34 Page 188 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00502/001 DEADFILES SCANFILES SA G SCFL S0027 DISTRB FSNAME=SCANFILE D4T2 34 DEADFILES.SCANFILES.SA.001 1 LINE 80 9 PAGE UM ENGLE APR. 18, 1977 14:40:28 0 DEADFILES IS A SERIES OF PROGRAMS USED TO REMOVE FILES WHICH BELONG TO EXPIRED USER ID'S. AT UM, THIS IS DONE ONCE PER MONTH AND THE TAPE(S) GENERATED ARE SAVED INDEFINITELY. THE OPERATOR'S MANUAL (592) DESCRIBES THE PROCEDURE. HOWEVER, IT SAYS TO USE USER ID W035 (WHICH IS NOT ON THE DISTRIBUTED PACK). USE USER ID RSTR INSTEAD AND USE THE PROGRAMS RSTR:SCANFILES AND RSTR:FIX INSTEAD OF THE CORRESPONDING PROGRAMS UNDER W035. SCANFILES COPIES ACCFORMAT (104/1). ASSEMBLE USING COPY:FILE.MACROS (482/33). RUN WITH PROT=OFF. 0 Referenced by comments of: 92/1, 104/141, 104/142, 484/1 00502/002 DEADFILES SCANFILES OE G MTS:TST.SCANFILE D4T2 35 DEADFILES.SCANFILES.OE.002 1 LINE 3320 3 PAGE UM ENGLE APR. 18, 1977 14:43:09 RSTR:SCANFILES 00502/003 DEADFILES DESTROY SA G DSTR RSTR:DEADFILEDES(1001) D4T2 36 DEADFILES.DESTROY.SA.003 1 LINE 80 3 PAGE UM HELFFRICH JULY 28, 1977 01:37:10 RSTR:DEADFILEDES 0 PROGRAM TO DESTROY A LIST OF FILES. CALLS DESTROY DIRECTLY, NOT THE MTS INTERFACE TO IT. ASSEMBLE USING *SYSMAC. 00502/004 DEADFILES DESTROY OC G RSTR:DEADFILEDES(1,998) D4T2 37 DEADFILES.DESTROY.OC.004 1 LINE 80 1 PAGE UM HELFFRICH JULY 28, 1977 01:37:13 00502/005B DEADFILES CATDES SA G CDES RSTR:DEADUCATDES(1000) RD16T1 82 DEADFILES.CATDES.SA.005 1 LINE 80 4 PAGE UM HELFFRICH JULY 12, 1979 22:51:58 RSTR:DEADUCATDES 0 PROGRAM TO DESTROY USER CATALOGS. IT DOES NOT CHECK TO SEE IF THERE ARE ANY FILES IN THE CATALOG BEFORE DESTROYING IT (WHICH IT SHOULD). 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 USERIDS FROM THE ONLINE FILESAVE MASTER FILE DIRECTORY SO THAT THE FILES MAY NOT BE RESTORED USING *RESTORE. ASSEMBLE USING THE FILESAVE MACROS (716/14) AND *SYSMAC. **************************************************************************** RD16 CHANGES: CHANGED TO BUILD NEW MASTER FILE DIRECTORY IN RSTR:FILEDIR.NEW RATHER THAN IN PLACE IN RSTR:FILEDIR.MAS. THIS MAKES *RESTORE USABLE DURING THE PERIOD WHEN CATDES IS RUNNING. **************************************************************************** 00502/006B DEADFILES CATDES OC G RSTR:DEADUCATDES(1,998) RD16T1 83 DEADFILES.CATDES.OC.006 1 LINE 80 3 PAGE UM HELFFRICH JULY 12, 1979 22:51:59 0 THIS FILE SHOULD HAVE THE PROGRAM KEY RSTR:DEADUCATDES 1 THU SEP 12/96 23:39:34 Page 189 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00502/007 DEADFILES SAVEFILES SA G SVFL RSTR:DEADSAVE(1005) D4.1T1 267 DEADFILES.SAVEFILES.SA.007 1 LINE 80 6 PAGE UM HELFFRICH MAY 13, 1978 17:34:05 RSTR:DEADSAVE 0 PROGRAM TO SAVE A SPECIFIC SET OF FILES IN THE SAME FORMAT AS FILESAVE (067). ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33). CALLS THE FOLLOWING SUBROUTINES: SAVEFILE (067/2), TAPEOUT (067/3), AND FILEDSCB (502/9). 0 Referenced by comments of: 502/9 00502/008 DEADFILES SAVEFILES OE G RSTR:DEADSAVE(1,998) D4.1T1 268 DEADFILES.SAVEFILES.OE.008 1 LINE 80 3 PAGE UM HELFFRICH MAY 13, 1978 17:34:06 00502/009 DEADFILES FILEDSCB SUBR SA G DSCB RSTR:FILEDSCB(1001) D4T2 42 DEADFILES.FILEDSCB_SUBR.SA.009 1 LINE 80 5 PAGE UM HELFFRICH JULY 28, 1977 01:37:24 RSTR:FILEDSCB 0 SUBROUTINE CALLED BY SAVEFILES (502/7) AND THE ONLINE FILESAVE (716) TO GET DSCB'S FOR A FILE. ASSEMBLE USING COPY:FILE.MACROS (482/33) AND *SYSMAC. 0 Referenced by comments of: 502/7, 716/2 00502/010 DEADFILES FILEDSCB SUBR OC G RSTR:FILEDSCB(1,998) D4T2 43 DEADFILES.FILEDSCB_SUBR.OC.010 1 LINE 80 2 PAGE UM HELFFRICH JULY 28, 1977 01:37:27 00502/011 DEADFILES FIX SA G S0564 D4T2 VLO FSNAME=DEADFILES.FIX.SA.011(1) 44 D4T2 44 DEADFILES.FIX.SA.011 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1973 17:58.20 0 PROGRAM TO UPDATE THE FILE INFORMATION IN AN ACCOUNTING RECORD TO ADJUST FOR THE FILES DESTROYED. CALLS *ACCRESTORE. RUN WITH PROT=OFF. 0 Referenced by comments of: 104/141, 104/142 00502/012 DEADFILES FIX OC G MTS:TST.FIX D4T2 45 DEADFILES.FIX.OC.012 1 LINE 80 1 DISK UM ENGLE JAN. 08, 1973 17:59.15 RSTR:FIX 00504/001 MTS VOLUME 1 MASTER WT S0488 MTSV1 'MTS MANUALS' POSN=NEWM7.V1 24 D4.2T1 328 MTS_VOLUME_1.MASTER.WT.001 1 SEQ 132 355 PAGE UM MANUAL APR. 01, 1979 22:24:48 0 TEXT/360 MASTER FOR VOLUME 1, "MICHIGAN TERMINAL SYSTEM," OF THE UM MTS MANUALS (OCTOBER 1978). EDITOR: RICHARD A. SALISBURY 00504/002 MTS VOLUME 1 PRINT PT S0488 MTSV1 'MTS MANUALS' POSN=PRINT7.V1 25 D4.2T1 329 MTS_VOLUME_1.PRINT.PT.002 1 SEQ 132 577 PAGE UM MANUAL APR. 01, 1979 22:25:04 0 TEXT/360 PRINT FILE. 00504/003 MTS VOLUME 1 ERROR DUMP P S0488 MTSV1 'MTS MANUALS' POSN=ERRORDUMP.7 26 D4.2T1 330 MTS_VOLUME_1.ERROR_DUMP.P.003 1 SEQ 133 3 PAGE UM MANUAL APR. 01, 1979 22:25:11 0 PRINTED OUTPUT FOR EXAMPLE OF USING ERROR DUMPS AND LOAD MAPS. 1 THU SEP 12/96 23:39:34 Page 190 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00504/004 MTS VOLUME 1 DEBUG DUMP P S0488 MTSV1 'MTS MANUALS' POSN=DEBUGDUMP.7 27 D4.2T1 331 MTS_VOLUME_1.DEBUG_DUMP.P.004 1 SEQ 105 3 PAGE UM MANUAL APR. 01, 1979 22:25:12 0 PRINTED OUTPUT FOR EXAMPLE IN DEBUG MODE SECTION. 00504/005 MTS VOLUME 1 INDEX SOURCE D S0488 MTSV1 'MTS MANUALS' POSN=V1INDEXSOU.7 29 D4.2T1 332 MTS_VOLUME_1.INDEX_SOURCE.D.005 1 SEQ 121 7 PAGE UM MANUAL APR. 01, 1979 22:25:13 00504/006 MTS VOLUME 1 VISUAL MODE WT S0488 MTSV1 'MTS MANUALS' POSN=VISUALMODE.7 28 D4.2T1 333 MTS_VOLUME_1.VISUAL_MODE.WT.006 1 SEQ 88 4 PAGE UM MANUAL APR. 01, 1979 22:25:14 0 TEXT360 SOURCE FOR VISUAL MODE DIAGRAMS IN "EDIT MODE" SECTION OF MTS VOLUME 1. 00505/001 *ALGOL DUMPRESTORE C S0504 'UBC -> UM #6' FMT=U(255) 1 D4T2 51 ALGOL.DUMPRESTORE.C.001 1 SEQ 44 2 PAGE UNE SALISBURY JULY 28, 1977 01:42:52 0 MTS COMMANDS USED TO GENERATE OR RESTORE THE ALGOL FILES ON THE UNE ALGOL DISTRIBUTION TAPE. ALTHOUGH THESE COMMANDS ARE NOT APPROPRIATE FOR RESTORING THE ALGOL FILES FROM THE DIST 3 TAPE, THEY ARE INCLUDED BECAUSE THEY SHOW THE ORGANIZATION OF THE UNE ALGOL. 00505/002 *ALGOL CINTSORC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 4 D4T2 52 ALGOL.CINTSORC.SA.002 1 SEQ 80 30 PAGE UNE SALISBURY JULY 28, 1977 01:42:56 0 COMPILER/MTS INTERFACE MODULE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 505/19 00505/003 *ALGOL FSACONV SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 5 D4T2 53 ALGOL.FSACONV.SA.003 1 SEQ 80 2 PAGE UNE SALISBURY JULY 28, 1977 01:42:56 0 COPY SECTION COPIED BY COMPILER. 00505/004 *ALGOL FSAREA SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 6 D4T2 54 ALGOL.FSAREA.SA.004 1 SEQ 80 3 PAGE UNE SALISBURY JULY 28, 1977 01:42:59 0 COPY SECTION COPIED BY COMPILER. 00505/005 *ALGOL IEX50T SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 7 D4T2 55 ALGOL.IEX50T.SA.005 1 SEQ 80 95 PAGE UNE SALISBURY JULY 28, 1977 01:43:04 0 COPY SECTION COPIED BY COMPILER. 00505/006 *ALGOL IEX60000 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 8 D4T2 56 ALGOL.IEX60000.SA.006 1 SEQ 80 15 PAGE UNE SALISBURY JULY 28, 1977 01:43:06 0 COPY SECTION COPIED BY COMPILER. 00505/007 *ALGOL OSALG00 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 14 D4T2 57 ALGOL.OSALG00.SA.007 1 SEQ 80 10 PAGE UNE SALISBURY JULY 28, 1977 01:43:17 0 COMPS 505/7 THROUGH 505/16 ARE OS/360 ALGOL COMPILER SOURCE. EACH MUST BE ASSEMBLED USING THE SPECIAL OS MACRO LIBRARY (505/17). 1 THU SEP 12/96 23:39:34 Page 191 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00505/008 *ALGOL OSALG01 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 15 D4T2 58 ALGOL.OSALG01.SA.008 1 SEQ 80 4 PAGE UNE SALISBURY JULY 28, 1977 01:43:17 00505/009 *ALGOL OSALG10 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 16 D4T2 59 ALGOL.OSALG10.SA.009 1 SEQ 80 22 PAGE UNE SALISBURY JULY 28, 1977 01:43:20 00505/010 *ALGOL OSALG11 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 17 D4T2 60 ALGOL.OSALG11.SA.010 1 SEQ 80 88 PAGE UNE SALISBURY JULY 28, 1977 01:43:25 00505/011 *ALGOL OSALG20 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 18 D4T2 61 ALGOL.OSALG20.SA.011 1 SEQ 80 16 PAGE UNE SALISBURY JULY 28, 1977 01:43:26 00505/012 *ALGOL OSALG30 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 19 D4T2 62 ALGOL.OSALG30.SA.012 1 SEQ 80 62 PAGE UNE SALISBURY JULY 28, 1977 01:43:30 00505/013 *ALGOL OSALG40 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 20 D4T2 63 ALGOL.OSALG40.SA.013 1 SEQ 80 17 PAGE UNE SALISBURY JULY 28, 1977 01:43:32 00505/014 *ALGOL OSALG50 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 21 D4T2 64 ALGOL.OSALG50.SA.014 1 SEQ 80 96 PAGE UNE SALISBURY JULY 28, 1977 01:43:37 00505/015 *ALGOL OSALG51 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 22 D4T2 65 ALGOL.OSALG51.SA.015 1 SEQ 80 24 PAGE UNE SALISBURY JULY 28, 1977 01:43:39 00505/016 *ALGOL OSALG51M SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 23 D4T2 66 ALGOL.OSALG51M.SA.016 1 SEQ 80 9 PAGE UNE SALISBURY JULY 28, 1977 01:43:41 00505/017 *ALGOL OSMAC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 24 D4T2 67 ALGOL.OSMAC.SA.017 1 SEQ 80 103 PAGE UNE SALISBURY JULY 28, 1977 01:43:46 0 SPECIAL OS INTERFACE MACROS. MUST BE USED TO ASSEMBLE COMPS 505/7 THROUGH 505/16. 0 Referenced by comments of: 505/7, 505/20, 505/21 00505/018 *ALGOL WORKAREA SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 25 D4T2 68 ALGOL.WORKAREA.SA.018 1 SEQ 80 4 PAGE UNE SALISBURY JULY 28, 1977 01:43:48 0 COPY SECTION COPIED BY COMPILER AND LIBRARY. 00505/019 *ALGOL *ALGOL OC G *ALGOL D4T2 69 ALGOL.*ALGOL.OC.019 1 SEQ 80 31 PAGE UM SALISBURY JULY 28, 1977 01:43:50 *ALGOL 0 COMPLETE COMPILER OBJECT FILE. CONSISTS OF OBJECT OF COMPS 505/7 THROUGH 505/16 (THE OS/360 SOURCE) PLUS THE COMPILER/MTS INTERFACE MODULE (505/2) AND AN " ENT COMENTRY" LOADER CARD TO SPECIFY THE COMPILER ENTRY POINT. 00505/020 *ALGOL LIBSORC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 11 D4T2 70 ALGOL.LIBSORC.SA.020 1 SEQ 80 181 PAGE UNE SALISBURY JULY 28, 1977 01:44:18 0 OS/360 LIBRARY SOURCE. ASSEMBLE USING OSMAC (505/17). 1 THU SEP 12/96 23:39:34 Page 192 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00505/021 *ALGOL LIBSORC1 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 12 D4T2 71 ALGOL.LIBSORC1.SA.021 1 SEQ 80 37 PAGE UNE SALISBURY JULY 28, 1977 01:44:22 0 MORE OS/360 LIBRARY SOURCE. ASSEMBLE USING OSMAC (505/17). 00505/022 *ALGOL LINTSORC SA G S0722 'D3T3' FSNAME=ALGOL.LINTSORC.SA.22(1) 248 D4T2 72 ALGOL.LINTSORC.SA.022 1 LINE 80 28 PAGE UM SALISBURY AUG. 03, 1973 22:24.23 0 LIBRARY/MTS INTERFACE MODULE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 505/23 00505/023 *ALGOL *ALGOLLIB OL G *ALGOLLIB D4T2 73 ALGOL.*ALGOLLIB.OL.023 1 SEQ 3963 11 PAGE UM SALISBURY JULY 28, 1977 01:45:30 *ALGOLLIB 0 COMPLETE LIBRARY OBJECT FILE. CONSISTS OF OBJECT OF COMPS 505/20 AND 505/21 (THE OS/360 LIBRARY SOURCE) PLUS THE LIBRARY/MTS INTERFACE MODULE (505/22) AND AN " ENT LIBENTRY" LOADER CARD TO SPECIFY THE LIBRARY ENTRY POINT. 00505/024 *ALGOL KDFSORC S G S0504 'UBC -> UM #6' FMT=FB(3200,80) 10 D4T2 74 ALGOL.KDFSORC.S.024 1 SEQ 80 45 PAGE UNE SALISBURY JULY 28, 1977 01:45:40 0 SOURCE FOR THE "KDF9" I/O LIBRARY. MAY BE USED BY USERS WHO ARE ACCUSTOMED TO RUNNING ALGOL PROGRAMS ON THE KDF9 COMPUTER. THE SOURCE IS ENTIRELY IN ALGOL EXCEPT FOR "FORMAT" WHICH IS ASSEMBLE LANGUAGE. 00505/025 *ALGOL *KDFLIB OL G *KDFLIB D4T2 75 ALGOL.*KDFLIB.OL.025 1 SEQ 348 56 PAGE UM SALISBURY JULY 28, 1977 01:45:43 *KDFLIB 0 KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB. NOTE: THIS VERSION OF KDFLIB USES SHORT FLOATING POINT ARITHMETIC. PAR=LONG,PROCEDURE SHOULD BE USED TO RECOMPILE THE LIBRARY IF LONG FLOATING POINT ARITHMETIC IS DESIRED. 00505/026 *ALGOL KDFLIBTEST S G S0722 'D3T3' FSNAME=ALGOL.KDFLIBTEST.S.26(1) 252 D4T2 76 ALGOL.KDFLIBTEST.S.026 1 LINE 67 1 PAGE UM SALISBURY AUG. 03, 1973 22:25.28 0 ALGOL PROGRAM TO TEST *KDFLIB. 00506/001 PL1 MAINTENANCE CRELCS SA G CLCS S0410 MTSPL1 'PL1LIB' POSN=CRELCS 37 D4T2 77 PL1_MAINTENANCE.CRELCS.SA.001 1 SEQ 80 5 PAGE UM TIFFANY JULY 28, 1977 01:46:04 0 CREATE LOW-CORE SYMBOL TABLES, ESPECIALLY PL1SYM AND INTSUBS. 0 Referenced by comments of: 506/6, 506/7 00506/002 PL1 MAINTENANCE CRELCSPR SA G LCSP S0410 MTSPL1 'PL1LIB' POSN=CRELCSPR.D4 D4T2 78 PL1_MAINTENANCE.CRELCSPR.SA.002 1 LINE 80 6 PAGE UM TIFFANY JULY 28, 1977 01:46:04 0 SAME AS 506/1 EXCEPT FOR PSEUDO-REGISTERS. IHEPRD IS GENERATED. 0 Referenced by comments of: 233/44 1 THU SEP 12/96 23:39:34 Page 193 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00506/003 PL1 MAINTENANCE RUN SA G S0410 MTSPL1 'PL1LIB' POSN=RUN.S D4.1T1 269 PL1_MAINTENANCE.RUN.SA.003 1 SEQ 80 25 PAGE UM TIFFANY MAY 13, 1978 17:34:55 0 PROGRAM USED TO SIMULATE THE LOADING PROCESS WITH THE PL/I LIBRARY IN USER VM, RATHER THAN SHARED VM (FOR CHECKOUT). SIMILAR TO UBC'S *RUN PROGRAM (NOT DISTRIBUTED), BUT WITH EXTRA FEATURE (SPECIFIED BY "S2L=" KEYWORD) FOR LOADING LIBRARIES (SUCH AS FIX, SHAREDPL1LIB, ETC.) INTO SEGMENT 12 INSTEAD OF SHARED VM. KEYWORDS "PGM=" (OR "PROGRAM=") HAVE ALSO BEEN ADDED. SEE THE SOURCE FOR USAGE INSTRUCTIONS. COPIES *LOADINFODSECT (001/4). ASSEMBLE WITH PAR=BATCH USING MTS:UBCMACLIB (1024). 00506/004 PL1 MAINTENANCE SYMBOLS SA G SYMB S0410 MTSPL1 'PL1LIB' POSN=SYMBOLS 44 D4T2 81 PL1_MAINTENANCE.SYMBOLS.SA.005 1 SEQ 80 5 PAGE UM TIFFANY JULY 28, 1977 01:46:12 0 PRINT PL1LIB SYMBOLS AND THEIR CURRENT ADDRESSES. 00506/005 PL1 MAINTENANCE REMOVELIBS SA G RMVL S0410 MTSPL1 'PL1LIB' POSN=REMOVELIBS 45 D4T2 82 PL1_MAINTENANCE.REMOVELIB.SA.006 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 01:46:14 0 REMOVE LOADER CARDS LIKE RIP, LIB, ETC. 00506/006 PL1 MAINTENANCE PL1SYMBOLS D S0410 MTSPL1 'PL1LIB' POSN=PL1SYMBOLS.D4 D4T2 83 PL1_MAINTENANCE.PL1SYMBOL.D.007 1 LINE 117 2 PAGE UM TIFFANY JULY 28, 1977 01:46:16 0 LIST OF PL/I SYMBOL NAMES. USED BY CRELCS (506/1). 00506/007 PL1 MAINTENANCE INTSUBS D S0410 MTSPL1 'PL1LIB' POSN=INTSUBS 48 D4T2 84 PL1_MAINTENANCE.INTSUBS.D.008 1 SEQ 56 1 PAGE UM TIFFANY JULY 28, 1977 01:46:20 0 LIST OF INTERNAL SUBROUTINES. USED BY CRELCS (506/1). 00506/008 PL1 MAINTENANCE PATCHER SA G PAT W062:PATCH D4.2T1 334 PL1_MAINTENANCE.PATCHER.SA.008 1 LINE 80 3 PAGE UM TIFFANY APR. 01, 1979 22:25:15 0 MODULE TO INSERT PATCHES INTO PL1 COMPILER AS IT IS LOADED. 00506/009 PL1 MAINTENANCE LLXU SA G LLXU W062:LOAD.S D4.2T1 335 PL1_MAINTENANCE.LLXU.SA.009 1 LINE 80 18 PAGE UM TIFFANY APR. 01, 1979 22:26:43 0 SIMULATE OS LINK/LOAD/XCTL WITH GOODIES. COPIES *GDINFODSECT (594). 00506/010 PL1 MAINTENANCE SETUP DIRECTRY SA G SETP W062:SETUP(1,999) D4T2 87 PL1_MAINTENANCE.SETUP_DIR.SA.011 1 LINE 80 4 PAGE UM TIFFANY JULY 28, 1977 01:46:27 0 PROGRAM TO SET UP *PL1DIRECTOR FOR PL/I COMPILER. 00506/011 PL1 MAINTENANCE SQUEEZE SA G SQIZ W062:SQUEEZE(1,999) D4T2 88 PL1_MAINTENANCE.SQUEEZE.SA.012 1 LINE 80 7 PAGE UM TIFFANY JULY 28, 1977 01:46:29 0 PROGRAM TO REMOVE PL/I COMPILER MODULES WHICH ARE NO LONGER IN USE TO SAVE FILE SPACE. 1 THU SEP 12/96 23:39:34 Page 194 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00506/012 PL1 MAINTENANCE INSTALLATION WF S0410 MTSPL1 'PL1LIB' POSN=INSTALL.D4 D4T2 89 PL1_MAINTENANCE.INSTALLAT.WF.013 1 LINE 140 18 PAGE UM TIFFANY JULY 28, 1977 01:46:32 0 INSTRUCTIONS FOR INSTALLATION OF PL/I IN MTS AND DOCUMENTATION ON OS SIMULATION PACKAGE. 00507/001 TIMELIMIT *LIM C *LIM D4.2T1 336 TIMELIMIT.*LIM.C.001 1 LINE 60 1 PAGE UM WSG APR. 01, 1979 22:26:49 *LIM 0 COMMAND FILE USED BY OPERATORS TO FIND OUT HOW MUCH CPU TIME IS REMAINING FOR AN EXECUTING BATCH JOB. INVOKED BY ENTERING "MTS *LIM" ON OPERATOR'S CONSOLE. 00507/002 TIMELIMIT TLIMIT PGM SA G TLIM S0792 WSGFS FSNAME=TLIMIT D4T2 91 TIMELIMIT.TLIMIT_PGM.SA.002 1 LINE 80 5 PAGE UM WSG JAN. 13, 1977 16:30:08 0 PROGRAM TO COMPUTE HOW MUCH TIME IS LEFT BEFORE A JOB EXCEEDS ITS GLOBAL TIME LIMIT. OPERATOR ENTERS EITHER AN UMMPS JOB NUMBER OR USER ID TO SPECIFY THE JOB(S) FOR WHICH THE REMAINING TIME IS TO BE CALCULATED. END-OF-FILE TERMINATES PROGRAM. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654). SOURCE IN LINES (1,999). 00507/003 TIMELIMIT TLIMIT PGM OC G SYS:TLIMIT D4T2 92 TIMELIMIT.TLIMIT_PGM.OC.003 1 LINE 80 1 PAGE UM WSG JULY 28, 1977 01:48:19 SYS.:TLIMIT 00508/001 *BASIC STRT1 C W070:BASIC.STRT1 D4T2 93 BASIC.STRT1.C.001 1 LINE 70 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:22 0 MTS COMMANDS TO RESTORE FILES NEEDED TO GENERATE BASIC, 508/2 THROUGH 508/18 AND 508/28 THROUGH 508/30, WHICH IT ASSUMES ARE ON A *FS TAPE BY THEMSELVES. 00508/002 *BASIC STRT2 C W070:BASIC.STRT2 D4T2 94 BASIC.STRT2.C.002 1 LINE 122 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:24 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 TAPE. 00508/003 *BASIC BIFDSECT SA G W070:BIFDSECT D4T2 95 BASIC.BIFDSECT.SA.003 1 LINE 66 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:26 0 THE DSECT USED BY "BUILT-IN" FUNCTIONS. 00508/004 *BASIC CLIDSECT SA G W070:CLIDSECT D4T2 96 BASIC.CLIDSECT.SA.004 1 LINE 72 3 PAGE UM FRONCZAK JULY 28, 1977 01:48:28 0 THE DSECT USED BY COMMAND AND CMNDINIT. 00508/005 *BASIC DS6A SA G W070:DS6A D4T2 97 BASIC.DS6A.SA.005 1 LINE 72 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:30 0 THE DSECT USED BY LOADER. 1 THU SEP 12/96 23:39:34 Page 195 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/006 *BASIC DSECTCOMM SA G W070:DSECTCOMM D4T2 98 BASIC.DSECTCOMM.SA.006 1 LINE 70 3 PAGE UM FRONCZAK JULY 28, 1977 01:48:33 0 THE BASIC COMMON DSECT. 00508/007 *BASIC DSECT9A SA G W070:DSECT9A D4.2T1 337 BASIC.DSECT9A.SA.007 1 LINE 69 2 PAGE UM FRONCZAK APR. 01, 1979 22:26:50 0 THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH. 00508/008 *BASIC FHDRDSECT SA G W070:FHDRDSECT D4T2 100 BASIC.FHDRDSECT.SA.008 1 LINE 72 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:37 0 THE "FILE HEADER" DSECT. 00508/009 *BASIC GLOBALSYM SA G W070:GLOBALSYM D4T2 101 BASIC.GLOBALSYM.SA.009 1 LINE 66 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:39 0 CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE INSTALLATION NAME. 00508/010 *BASIC INTFACMAC SM G W070:INTFACMAC D4T2 102 BASIC.INTFACMAC.SM.010 1 LINE 58 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:41 0 BASIC MACRO LIBRARY. 00508/011 *BASIC LDICDSCT SA G W070:LDICDSCT D4T2 103 BASIC.LDICDSCT.SA.011 1 LINE 72 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:44 0 THE "LOADING DIRECTORY" DSECT. 00508/012 *BASIC MAPDSECT SA G W070:MAPDSECT D4T2 104 BASIC.MAPDSECT.SA.012 1 LINE 68 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:46 0 THE "MAP ENTRY DESCRIPTION" DSECT. 00508/013 *BASIC OPDEFEQUS SA G W070:OPDEFEQUS D4T2 105 BASIC.OPDEFEQUS.SA.013 1 LINE 70 2 PAGE UM FRONCZAK JULY 28, 1977 01:48:48 0 "EQUS" USED IN OPERATOR DEFINITIONS. 00508/014 *BASIC OPDEFMACROS SM G W070:OPDEFMACROS D4T2 106 BASIC.OPDEFMACROS.SM.014 1 LINE 72 3 PAGE UM FRONCZAK JULY 28, 1977 01:48:50 0 MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS. 00508/015 *BASIC PDSECT SA G W070:PDSECT D4T2 107 BASIC.PDSECT.SA.015 1 LINE 72 3 PAGE UM FRONCZAK JULY 28, 1977 01:48:52 0 THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----). 1 THU SEP 12/96 23:39:34 Page 196 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/016 *BASIC SYMTABDEF SA G W070:SYMTABDEF D4T2 108 BASIC.SYMTABDEF.SA.016 1 LINE 33 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:55 0 THE SYMBOL TABLE DSECT (UNDOCUMENTED). 00508/017 *BASIC SYMTABSECT SA G W070:SYMTABSECT D4T2 109 BASIC.SYMTABSECT.SA.017 1 LINE 70 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:57 0 THE SYMBOL TABLE DSECT (DOCUMENTED). 00508/018 *BASIC WSLAYOUT SA G W070:WSLAYOUT D4T2 110 BASIC.WSLAYOUT.SA.018 1 LINE 68 1 PAGE UM FRONCZAK JULY 28, 1977 01:48:59 0 THE "WORKING STORAGE LAYOUT" DSECT. 00508/019 *BASIC CLI SA G S0842 BSCSD POSN=*BASIC.CLI 1 D4T2 111 BASIC.CLI.SA.019 1 SEQ 80 123 PAGE UM FRONCZAK JULY 28, 1977 01:49:58 00508/020 *BASIC LEX SA G S0358 BSCSEF POSN=*BASIC.LEX D4.1T1 270 BASIC.LEX.SA.020 1 SEQ 80 108 PAGE UM FRONCZAK MAY 13, 1978 17:35:22 00508/021 *BASIC CMP SA G S0842 BSCSD POSN=*BASIC.CMP 3 D4T2 113 BASIC.CMP.SA.021 1 SEQ 80 101 PAGE UM FRONCZAK JULY 28, 1977 01:50:11 00508/022 *BASIC CPS SA G S0358 BSCSEF POSN=*BASIC.CPS D4.1T1 271 BASIC.CPS.SA.022 1 SEQ 80 79 PAGE UM FRONCZAK MAY 13, 1978 17:35:31 00508/023 *BASIC NUM SA G S0842 BSCSD POSN=*BASIC.NUM 5 D4T2 115 BASIC.NUM.SA.023 1 SEQ 80 62 PAGE UM FRONCZAK JULY 28, 1977 01:50:19 00508/024 *BASIC VFL SA G S0842 BSCSD POSN=*BASIC.VFL 6 D4T2 116 BASIC.VFL.SA.024 1 SEQ 80 40 PAGE UM FRONCZAK JULY 28, 1977 01:50:22 00508/025 *BASIC BIO SA G S0842 BSCSD POSN=*BASIC.BIO 7 D4T2 117 BASIC.BIO.SA.025 1 SEQ 80 51 PAGE UM FRONCZAK JULY 28, 1977 01:50:25 00508/026 *BASIC INF SA G S0842 BSCSD POSN=*BASIC.INF 8 D4T2 118 BASIC.INF.SA.026 1 SEQ 80 47 PAGE UM FRONCZAK JULY 28, 1977 01:50:27 00508/027 *BASIC BSI SA G S0842 BSCSD POSN=*BASIC.BSI 9 D4T2 119 BASIC.BSI.SA.027 1 SEQ 80 5 PAGE UM FRONCZAK JULY 28, 1977 01:50:29 00508/028 *BASIC LIBSYM SA G W070:LIBSYM D4T2 120 BASIC.LIBSYM.SA.028 1 LINE 66 1 PAGE UM FRONCZAK JULY 28, 1977 01:50:32 0 PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER. 00508/029 *BASIC SPECIALRATES SA G W070:SPECIALRATES D4T2 121 BASIC.SPECIALRATES.SA.029 1 LINE 70 1 PAGE UM FRONCZAK JULY 28, 1977 01:50:33 0 THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR: %PRINT BALANCE AND STATISTICS PRINTING. 1 THU SEP 12/96 23:39:34 Page 197 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/030 *BASIC OBJECT OC G SEG2:BASIC D4.2T1 338 BASIC.OBJECT.OC.030 1 LINE 80 120 PAGE UM FRONCZAK APR. 01, 1979 22:26:50 SEG2:BASIC 0 OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY PISTLE. 0 Referenced by comments of: 508/31 00508/031 *BASIC *BASIC OC G *BASIC D4T2 123 BASIC.*BASIC.OC.031 1 SEQ 24 1 PAGE UM FRONCZAK JULY 28, 1977 01:50:43 *BASIC 0 CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SHARED VM BASIC (508/30). 00508/032 *BASIC BASICHELPC M ETC:BASICHELPC D4T2 124 BASIC.BASICHELPC.M.032 1 LINE 68 2 PAGE UM FRONCZAK JULY 28, 1977 01:50:45 ETC.:BASICHELPC 0 BASIC HELP COMMAND FILE. 00508/033 *BASIC INSTALLATION P W070:T360SYSGENPR D4T2 125 BASIC.INSTALLATION.P.033 1 SEQ 100 4 PAGE UM FRONCZAK JULY 28, 1977 01:50:47 0 NOTES ON THE INSTALLATION OF BASIC. COPY TO A TN PRINTER @MCC. 00509/001 PERMIT COMMAND SA G DWB:PK.PERMIT(1) D4.2T1 339 PERMIT_COMMAND..SA.001 1 LINE 80 44 PAGE UM DWB APR. 01, 1979 22:26:59 DWB.:PK.PERMIT 0 THIS IS THE SOURCE FOR THE MTS $PERMIT COMMAND AND THE PERMIT, SETKEY, 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, AND SETFSAVE. CALLS MANY OF THE FILE ROUTINES DIRECTLY. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:FILE.MACROS (482/33). NOTE: SOURCE STARTS AT LINE 1, COMMANDS TO ASSEMBLE START AT LINE 0. 00509/002 PERMIT COMMAND OC G *CLSPERMIT D4.2T1 340 PERMIT_COMMAND..OC.002 1 LINE 7802 4 PAGE UM DWB APR. 01, 1979 22:27:35 *CLSPERMIT 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL. THE LOADER COM CARD DEFINES THE SYMBOLS PERCMD, PERMIT, SETKEY, AND SETFSAVE IN LCSYMBOL. 00509/003 PERMIT COMMAND *PERSUB OC G *PERSUB D4T2 128 PERMIT_COMMAND.*PERSUB.OC.003 1 LINE 26 1 PAGE UM DWB JULY 28, 1977 01:50:56 *PERSUB 0 THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "PERMIT" FOLLOWED BY A "$CONTINUE WITH *CLSPERMIT" CARD. IT IS USED AS THE FILE NAME IN THE LOADT TABLE IN MTS, AND IS LOADED FROM IF THE PERMIT SUBROUTINE IS NOT DEFINED IN LCSYMBOL. 1 THU SEP 12/96 23:39:34 Page 198 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00509/004 PERMIT COMMAND *SKEYSUB OC G *SKEYSUB D4T2 129 PERMIT_COMMAND.*SKEYSUB.OC.004 1 LINE 26 1 PAGE UM DWB JULY 28, 1977 01:50:58 *SKEYSUB 0 THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETKEY" FOLLOWED BY A "$CONTINUE WITH *CLSPERMIT" CARD. IT IS USED AS THE FILE NAME IN THE LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETKEY SUBROUTINE IS NOT DEFINED IN LCSYMBOL. 00509/005 PERMIT COMMAND *SFSAVSUB OC G *SFSAVSUB D4T2 130 PERMIT_COMMAND.*SFSAVSUB.OC.005 1 LINE 26 1 PAGE UM DWB JULY 28, 1977 01:51:01 *SFSAVSUB 0 THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETFSAVE" FOLLOWED BY A "$CONTINUE WITH *CLSPERMIT" CARD. IT IS USED AS THE FILE NAME IN THE LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETFSAVE SUBROUTINE IS NOT DEFINED IN LCSYMBOL. 00509/006 PERMIT COMMAND *SPRIVSUB OC G *SPRIVSUB D4T2 131 PERMIT_COMMAND.*SPRIVSUB.OC.006 1 LINE 25 1 PAGE UM DWB JULY 28, 1977 01:51:03 *SPRIVSUB 0 THIS FILE CONTAINS AN ENT CARD FOR THE SYMBOL "SETFPRIV" FOLLOWED BY A "$CONTINUE WITH *CLSPERMIT" CARD. IT IS USED AS THE FILE NAME IN THE LOADT TABLE IN MTS, AND IS LOADED FROM IF THE SETFPRIV SUBROUTINE IS NOT DEFINED IN LCSYMBOL. 00509/007 PERMIT COMMAND SUBR TEST PGM SF DWB:PERSTEST D4T2 133 PERMIT_COMMAND.SUBR_TEST.SF.008 1 LINE 70 1 PAGE UM DWB JULY 28, 1977 01:52:57 DWB.:PERSTEST 0 PROGRAM TO TEST THE PERMIT SUBROUTINE. THIS FILE ALSO CONTAINS A FAKE SDMOD SUBROUTINE FOR PERMIT TO CALL. THE FAKE SDMOD JUST PRINTS OUT THE CALLING PARAMETERS. THIS PROGRAM WILL CALL PERMIT SEVERAL TIMES WITH AN ASSORTMENT OF PARAMETERS AND ISSUE A $FILESTATUS COMMAND AFTER EACH. IN ORDER TO USE THIS PROGRAM, YOU MAY ALSO WANT TO SUPPLY A FAKE (E.G. NOP) SDWRITE SUBROUTINE FOR PERMIT TO CALL. OR YOU CAN JUST RUN THE FIRST MODULE WITH THE REAL SDMOD AND SDWRITE ROUTINES. 00510/001 MTS VOLUME 13 WF S0723 'D3T4' FSNAME=MTS_VOLUME_13..WF.1(1) 62 D4T2 134 MTS_VOLUME_13..WF.001 1 LINE 159 61 PAGE UM MANUAL AUG. 01, 1973 22:10.11 0 FORMAT INPUT FOR VOLUME 13 "DATA CONCENTRATOR USER'S GUIDE" OF THE UM MTS MANUAL (AUGUST 1973). EDITOR: RICHARD A. SALISBURY NOTE: THIS MANUAL IS OBSOLETE AND WILL NOT BE REISSUED. 00510/002 MTS VOLUME 13 PF S0723 'D3T4' FSNAME=MTS_VOLUME_13..PF.2(1) 63 D4T2 135 MTS_VOLUME_13..PF.002 1 LINE 80 81 PAGE UM MANUAL AUG. 01, 1973 22:11.01 0 PRINT FILE FOR VOLUME 13. COPY TO A TN PRINTER. 1 THU SEP 12/96 23:39:34 Page 199 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00511/001 *OBJLIST SA G OBJL LBT:OBJLIST.S D4.1T1 273 OBJLIST..SA.001 1 LINE 80 55 PAGE UM TIFFANY MAY 13, 1978 17:35:44 0 PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT. READS *ASMH (737) SYM RECORDS. 00511/002 *OBJLIST OE G *OBJLIST D4.1T1 274 OBJLIST..OE.002 1 SEQ 7253 4 PAGE UM TIFFANY MAY 13, 1978 17:35:48 *OBJLIST 00512/001 MTS VOLUME 11 MASTER WT S0549 MTSV11 'MTS MANUALS' POSN=NEWM3.V11 D4.2T1 341 MTS_VOLUME_11.MASTER.WT.001 1 SEQ 132 83 PAGE UM MANUAL APR. 01, 1979 22:29:11 0 TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUALS (AUGUST 1978). EDITOR: GAIL H. LIFT 00512/002 MTS VOLUME 11 PRINT PT S0549 MTSV11 'MTS MANUALS' POSN=PRINT3.V11 D4.2T1 342 MTS_VOLUME_11.PRINT.PT.002 1 SEQ 132 174 PAGE UM MANUAL APR. 01, 1979 22:29:19 0 TEXT/360 PRINT FILE. 00512/003 MTS VOLUME 11 FIGURES SG G S0549 MTSV11 'MTS MANUALS' POSN=V11FIGS.MAIN D4.2T1 343 MTS_VOLUME_11.FIGURES.SG.003 1 SEQ 80 2 PAGE UM MANUAL APR. 01, 1979 22:29:54 0 GOM SOURCE FOR MAIN PROGRAM TO CALL SUBROUTINES WHICH GENERATE FIGURES FOR VOLUME 11. 00512/004 MTS VOLUME 11 FIGURES SF G S0549 MTSV11 'MTS MANUALS' POSN=V11FIGS.SUBR D4.2T1 344 MTS_VOLUME_11.FIGURES.SF.004 1 SEQ 256 42 PAGE UM MANUAL APR. 01, 1979 22:29:56 0 FORTRAN SOURCE FOR SUBROUTINES WHICH GENERATE FIGURES FOR VOLUME 11. 00512/005 MTS VOLUME 11 INDEX SOURCE D S0549 MTSV11 'MTS MANUALS' POSN=V11INDEXSOU D4.2T1 345 MTS_VOLUME_11.INDEX_SOURC.D.005 1 SEQ 37 3 PAGE UM MANUAL APR. 01, 1979 22:30:35 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 11. 00513/001 DYSSUB D4 MASTER SA G MTS:DYSSUB(1,999) D4T2 142 DYSSUB..SA.001 1 LINE 72 5 PAGE UM MTS HELFFRICH JULY 28, 1977 01:54:59 MTS.:DYSSUB 0 SUBROUTINE TO PROCESS SOME $DISPLAY PARAMETERS. IT IS LOADED INTO SHARED VM AFTER IPL BY PISTLE. COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), *GDINFODSECT (594), AND *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 00513/002B DYSSUB UPDATE UC G MTS:DYSUPD RD16T1 84 DYSSUB.UPDATE.UC.002 1 LINE 68 1 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:00 MTS.:DYSUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=DYS. 1 THU SEP 12/96 23:39:34 Page 200 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00513/003B DYSSUB OC G *DYSSUB RD16T1 85 DYSSUB..OC.003 1 LINE 80 3 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:01 *DYSSUB 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE. 00513/004B DYSSUB L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DYS.LIST 14 RD16T1 86 DYSSUB..L.004 1 SEQ 133 42 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:10 00514/001 *PL1TIDY SP G W062:NEATENED D4T2 144 PL1TIDY..SP.001 1 LINE 72 18 PAGE UM TIFFANY JULY 28, 1977 01:55:02 0 THIS IS A REVISED VERSION OF THE IBM "NEATER" PROGRAM. NOTE: AFTER COMPILATION, THE SYMBOL IHESAPC IN THE OBJECT MUST BE CHANGED TO IHESAPE. 00514/002 *PL1TIDY OE G *PL1TIDY D4T2 145 PL1TIDY..OE.002 1 SEQ 25530 9 PAGE UM TIFFANY JULY 28, 1977 01:55:04 *PL1TIDY 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00515/001 *11ASR 11ASMJOB C S0806 DIST4 FSNAME=11ASMJOB D4T2 146 11ASR.11ASMJOB.C.001 1 LINE 94 1 PAGE UM GOODRICH MAY 15, 1975 11:11:20 0 MTS COMMANDS TO ASSEMBLE AND LINK EDIT ALL THE CSECTS FOR THE PDP-11 ASSEMBLER ORIGINALLY WRITTEN BY THE MERIT COMPUTER NETWORK PROJECT. THE REQUIRED MACRO LIBRARY IS ALSO GENERATED. 0 Referenced by comments of: 516/1, 660/1, 660/14, 755/1, 755/3 00515/002 *11ASR MACRO SM G S0806 DIST4 FSNAME=MACRO D4T2 147 11ASR.MACRO.SM.002 1 LINE 68 4 PAGE UM GOODRICH OCT. 18, 1976 16:11:24 0 MACRO LIBRARY USED TO ASSEMBLE COMPS 515/3 THROUGH 515/7. 00515/003 *11ASR UATS/MAL SA G S0806 DIST4 FSNAME=UATS/MAL D4T2 148 11ASR.UATS/MAL.SA.003 1 LINE 86 105 PAGE UM GOODRICH JULY 19, 1977 11:06:25 0 CAPABILTIES FOR EXPRESSION EVALUATION IN LENGTH AND REPLICATION FACTORS IN DC AND DS STATEMENT HAVE BEEN ADDED. LOGICAL OPERATORS IN ADDRESS CALCULATIONS HAVE BEEN ADDED, AS HAS THE SPLITTING OF LONG SOURCE STATEMENTS INTO SEVERAL OUTPUT LINES. 0 Referenced by comments of: 515/11 00515/004 *11ASR DCEVAL.SOU SA G S0806 DIST4 FSNAME=DCEVAL.SOU D4T2 149 11ASR.DCEVAL.SOU.SA.004 1 LINE 75 17 PAGE UM GOODRICH MAY 15, 1975 11:07:38 00515/005 *11ASR REPSCAN SA O S0806 DIST4 FSNAME=REPSCAN D4T2 150 11ASR.REPSCAN.SA.005 1 LINE 63 3 DISK UM GOODRICH FEB. 22, 1973 16:48.41 00515/006 *11ASR MAC SA O S0806 DIST4 FSNAME=MAC D4T2 151 11ASR.MAC.SA.006 1 LINE 70 39 PAGE UM GOODRICH OCT. 16, 1976 15:53:03 1 THU SEP 12/96 23:39:34 Page 201 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00515/007 *11ASR EXTF11.SOU SA G S0806 DIST4 FSNAME=EXTF11.SOU D4T2 152 11ASR.EXTF11.SOU.SA.007 1 LINE 72 7 PAGE UM GOODRICH OCT. 03, 1975 12:38:19 00515/008 *11ASR OPCODES11 SA G S0806 DIST4 FSNAME=OPCODES11 D4T2 153 11ASR.OPCODES11.SA.008 1 LINE 72 15 PAGE UM GOODRICH MAR. 08, 1976 11:15:41 00515/009 *11ASR MICROP SA G S0806 DIST4 FSNAME=MICROP D4T2 154 11ASR.MICROP.SA.009 1 LINE 72 6 PAGE UM GOODRICH JULY 19, 1977 11:30:16 00515/010 *11ASR OBJECT OE G *11ASR D4T2 155 11ASR.OBJECT.OE.010 1 SEQ 30652 14 PAGE UM GOODRICH JULY 28, 1977 01:58:38 *11ASR 00515/011 *11ASR 11ASRERROR M G ETC:11ASRERROR D4T2 156 11ASR.11ASRERROR.M.011 1 LINE 70 4 PAGE UM GOODRICH JULY 28, 1977 01:58:40 ETC.:11ASRERROR 0 ERROR COMMENT FILE REFERENCED BY UATS/MAL (515/3) ON LINE 2762. 00515/012 *11ASR MERIT OPCODES OE G ETC:11ASROPMER D4T2 157 11ASR.MERIT_OPCODES.OE.012 1 SEQ 4368 2 PAGE UM GOODRICH JULY 28, 1977 01:58:42 ETC.:11ASROPMER 0 OBJECT MODULE LOADED FROM ETC:11ASROPMER BY *11ASR TO ALLOW ASSEMBLY OF SOURCE USING THE SO-CALLED "MERIT" PDP-11 OPCODES. 00515/013 *11ASR LAM OPCODES OE G ETC:11ASROPMLAM D4T2 158 11ASR.LAM_OPCODES.OE.013 1 SEQ 3120 1 PAGE UM GOODRICH JULY 28, 1977 01:58:45 ETC.:11ASROPMLAM 0 OBJECT MODULE LOADED FROM ETC:11ASROPMLAM BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR THE UM DATA CONCENTRATOR LINE ADAPTER MICROPROCESSOR (LAM). 00515/014 *11ASR 11/470 OPCODES OE G ETC:11ASROPM360 D4T2 159 11ASR.11/470_OPCODES.OE.014 1 SEQ 1560 1 PAGE UM GOODRICH JULY 28, 1977 01:58:47 ETC.:11ASROPM360 0 OBJECT MODULE LOADED FROM ETC:11ASROPM360 BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR THE UM DATA CONCENTRATOR PDP-11/AMDAHL 470 (360/370) CHANNEL INTERFACE MICROPROCESSOR. 00515/015 *11ASR 11/03 OPCODES OE G ETC:11ASROP03 D4T2 160 11ASR.11/03_OPCODES.OE.015 1 SEQ 3576 2 PAGE UM GOODRICH JULY 28, 1977 01:58:49 ETC.:11ASROP03 0 OBJECT MODULE LOADED FROM ETC:11ASROP03 BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR THE PDP-11/03 (LSI) COMPUTER. 00515/016 *11ASR 11/45 OPCODES OE G ETC:11ASROP45 D4T2 161 11ASR.11/45_OPCODES.OE.016 1 SEQ 4608 2 PAGE UM GOODRICH JULY 28, 1977 01:58:52 ETC.:11ASROP45 0 OBJECT MODULE LOADED FROM ETC:11ASROP45 BY *11ASR TO ALLOW ASSEMBLY OF SOURCE FOR THE PDP-11/45 COMPUTER. 1 THU SEP 12/96 23:39:34 Page 202 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00515/017 *11ASR MEMO 286 WT S0564 D4T2 VLO FSNAME=11ASR.MEMO_286.WT.017(1) 162 D4T2 162 11ASR.MEMO_286.WT.017 1 LINE 80 49 PAGE UM GOODRICH JAN. 26, 1977 20:17:02 0 THIS IS COMPUTING CENTER MEMO 286 -- "THE PDP-11 ASSEMBLER AND LINK EDITOR: A USER'S GUIDE TO *11ASR AND *LINK11" 00516/001 *LINK11 SA G S0806 DIST4 FSNAME=LINKSOU D4T2 163 LINK11..SA.001 1 LINE 100 44 PAGE UM GOODRICH OCT. 16, 1976 15:53:41 0 LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515). NEW VERSION ALLOWS UP TO 1024 EXTERNAL SYMBOLS (INSTEAD OF 256). 0 Referenced by comments of: 660/1 00516/002 *LINK11 OE G *LINK11 D4T2 164 LINK11..OE.002 1 SEQ 11140 3 PAGE UM GOODRICH JULY 28, 1977 01:59:54 *LINK11 00516/003 *LINK11 USER'S GUIDE WT # (SEE COMP 515/17) UM GOODRICH 00517/001 LOGICAL OPERATORS SA G S0564 D4T2 VLO FSNAME=LOGICAL_OPERATORS..SA.001(1) 165 D4T2 165 LOGICAL_OPERATORS..SA.001 1 LINE 70 4 PAGE UM HARDING JULY 28, 1977 01:59:54 0 SUBROUTINES TO PROVIDE THE FOLLOWING SYSTEM/360 MACHINE OPERATIONS: MVC, CLC, NC, OC, XC, TR, TRT, ED, AND EDMK. REWRITTEN SINCE DIST 2.0. 00517/002 LOGICAL OPERATORS OC G # *LIBRARY (SEE COMP 524) UM HARDING 00518/001 GRGJUL SUBRS SA G GRJL S0027 DISTRB FSNAME=GRGJULTM D4T2 166 GRGJUL_SUBRS..SA.001 1 LINE 80 5 PAGE UM ENGLE DEC. 05, 1975 16:10:51 0 GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC). 0 Referenced by comments of: 436/1, 529/1 00518/002 GRGJUL SUBRS OC G # (PART OF COMP 143) UM ENGLE 0 THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE" BY PISTLE AT IPL. 00519/001 GRJLDT/GRJLTM SUBRS GRJLDT SA G GJDT S0027 DISTRB FSNAME=GRJLDT D4.1T1 277 GRJLDT/GRJLTM_SUBRS.GRJLD.SA.001 1 LINE 80 1 PAGE UM ENGLE JAN. 20, 1978 13:32:33 0 GREGORIAN-TO-JULIAN CONVERSION SUBROUTINES (TWO OF MANY -- TOO MANY). 00519/002 GRJLDT/GRJLTM SUBRS GRJLDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 1 THU SEP 12/96 23:39:34 Page 203 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00519/003 GRJLDT/GRJLTM SUBRS GRJLTM SA G GJTM S0027 DISTRB FSNAME=GRJLTM D4.1T1 278 GRJLDT/GRJLTM_SUBRS.GRJLT.SA.003 1 LINE 80 1 PAGE UM ENGLE JAN. 20, 1978 13:33:56 00519/004 GRJLDT/GRJLTM SUBRS GRJLTM OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00520/001 GROSDT SA G GODT S0027 DISTRB FSNAME=GROSDT D4.1T1 279 GROSDT..SA.001 1 LINE 80 2 PAGE UM ENGLE JAN. 20, 1978 13:36:51 0 GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE. 00520/002 GROSDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00521/001 JLGRDT/JLGRTM JLGRDT SA G JGDT S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRDT.SA.1(1) 89 D4T2 170 JLGRDT/JLGRTM.JLGRDT.SA.001 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:55.50 0 JULIAN-TO-GREGORIAN CONVERSION SUBROUTINES. 00521/002 JLGRDT/JLGRTM JLGRDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00521/003 JLGRDT/JLGRTM JLGRTM SA G JGTM S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRTM.SA.3(1) 90 D4T2 171 JLGRDT/JLGRTM.JLGRTM.SA.003 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:57.15 00521/004 JLGRDT/JLGRTM JLGRTM OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00522/001 JULGRG SUBRS SA G JLGR S0723 'D3T4' FSNAME=JULGRG_SUBRS..SA.1(1) 91 D4T2 172 JULGRG_SUBRS..SA.001 1 LINE 80 5 PAGE UM ENGLE MAY 03, 1973 10:00.10 0 JULIAN TO GREGORIAN DATE/TIME CONVERSION SUBROUTINES (JULGRGDT, JULGRGTM, AND JLGRSEC). 0 Referenced by comments of: 437/1, 529/1, 716/6 00522/002 JULGRG SUBRS OC G SEG2:CFE D4T2 173 JULGRG_SUBRS..OC.002 1 LINE 80 1 PAGE UM ENGLE JULY 28, 1977 02:06:33 SEG2:CFE 0 THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE" BY PISTLE AT IPL. 00523/001 OSGRDT SA G OGDT S0027 DISTRB FSNAME=OSGRDT D4.1T1 280 OSGRDT..SA.001 1 LINE 80 2 PAGE UM ENGLE JAN. 20, 1978 13:38:52 0 OS/360 (YYDDD) TO GREGORIAN DATE CONVERSION SUBROUTINE. 00523/002 OSGRDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 1 THU SEP 12/96 23:39:34 Page 204 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00524/001 *LIBRARY OL *LIBRARY D4.2T1 349 LIBRARY..OL.001 1 LINE 13448 26 PAGE UM SALISBURY APR. 01, 1979 22:32:26 *LIBRARY 0 OBJECT LIBRARY FOR SYSTEM NON-RESIDENT SUBROUTINES. THE SOURCE FILES FOR THE PROGRAMS CONTAINED IN THIS LIBRARY ARE GIVEN ELSEWHERE IN THIS DISTRIBUTION UNDER THE SPECIFIC SUBROUTINE NAME. THIS LIBRARY IS AUTOMATICALLY SEARCHED WHEN PROGRAMS ARE LOADED IF THERE ARE UNRESOLVED SYMBOLS. 0 Referenced by comments of: 278/2, 278/4, 744/1, 744/6 00524/002 *LIBRARY CREATELIB C LIB:CREATELIB D4T2 176 LIBRARY.CREATELIB.C.002 1 LINE 91 1 PAGE UM SALISBURY SEP. 16, 1977 10:40:01 0 MTS COMMAND FILE TO CONSTRUCT A NEW LIBRARY FILE; IT COPIES THE INDIVIDUAL MODULES INTO A FILE, LINK EDITS THE FILE, AND THEN RUN *GENLIB. NOTE: THIS COMMAND FILE HAS MANY "$CONTINUE WITH" LINES FOR PRIVATE FILES (NOT DISTRIBUTED) WHICH CONSTITUTE THE COMPONENTS OF *LIBRARY. 0 Referenced by comments of: 524/3 00524/003 *LIBRARY ENTERLIB C LIB:ENTERLIB D4T2 177 LIBRARY.ENTERLIB.C.003 1 LINE 37 1 PAGE UM SALISBURY JULY 28, 1977 02:06:41 0 MTS COMMAND FILE TO ENTER THE NEW LIBRARY FILE CONSTRUCTED BY CREATELIB (524/2) INTO *LIBRARY. WITH RSF, THIS CAN BE DONE DURING NORMAL SYSTEM OPERATION. 00524/004A *LIBRARY WF W098:EAS.MODLIB UM SALISBURY 00525/001 ELEM FUNC LIB SQRT SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.SQRT.SA.001(1) 178 D4T2 178 ELEM_FUNC_LIB.SQRT.SA.001 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:02.02 0 THE ELEMENTARY FUNCTION LIBRARY CONTAINS THE MATHEMATICAL AND IMPLICITLY CALLED SUBROUTINES USUALLY ASSOCIATED WITH THE FORTRAN IV LANGUAGE AS WELL AS A FEW ADDITIONAL FUNCTIONS WHICH, INEXPLICABLY, ARE NOT PART OF THE IBM FORTRAN LIBRARY. THESE FUNCTIONS ARE ALL RE-ENTRANT AND, THEREFORE, ARE NORMALLY LOADED INTO SHARED VM. COMPS 525/1 THROUGH 525/46 SHOULD ALL BE ASSEMBLED WITH THE EFL.MACLIB MACRO LIBRARY (525/47). 0 Referenced by comments of: 527/1, 1000/48 00525/002 ELEM FUNC LIB EXP SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EXP.SA.002(1) 179 D4T2 179 ELEM_FUNC_LIB.EXP.SA.002 1 LINE 71 3 PAGE UM HARDING SEP. 24, 1974 09:04.04 00525/003 ELEM FUNC LIB ALOG10/ALOG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALOG10/ALOG.SA.003(1) 180 D4T2 180 ELEM_FUNC_LIB.ALOG10/ALOG.SA.003 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.13 00525/004 ELEM FUNC LIB COS/SIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COS/SIN.SA.004(1) 181 D4T2 181 ELEM_FUNC_LIB.COS/SIN.SA.004 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.18 00525/005 ELEM FUNC LIB COTAN/TAN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COTAN/TAN.SA.005(1) 182 D4T2 182 ELEM_FUNC_LIB.COTAN/TAN.SA.005 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.23 1 THU SEP 12/96 23:39:34 Page 205 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00525/006 ELEM FUNC LIB ARCOS/ARSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006(1) 183 D4T2 183 ELEM_FUNC_LIB.ARCOS/ARSIN.SA.006 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:02.28 00525/007 ELEM FUNC LIB ATAN2/ATAN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ATAN2/ATAN.SA.007(1) 184 D4T2 184 ELEM_FUNC_LIB.ATAN2/ATAN.SA.007 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:02.33 00525/008 ELEM FUNC LIB COSH/SINH SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.COSH/SINH.SA.008(1) 185 D4T2 185 ELEM_FUNC_LIB.COSH/SINH.SA.008 1 LINE 71 1 DISK UM HARDING JUNE 27, 1972 12:02.38 00525/009 ELEM FUNC LIB TANH SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.TANH.SA.009(1) 186 D4T2 186 ELEM_FUNC_LIB.TANH.SA.009 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:02.42 00525/010 ELEM FUNC LIB ERFC/ERF SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERFC/ERF.SA.010(1) 187 D4T2 187 ELEM_FUNC_LIB.ERFC/ERF.SA.010 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.46 00525/011 ELEM FUNC LIB ALGAMA/GAMMA SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011(1) 188 D4T2 188 ELEM_FUNC_LIB.ALGAMA/GAMM.SA.011 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:02.51 00525/012 ELEM FUNC LIB DSQRT SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DSQRT.SA.012(1) 189 D4T2 189 ELEM_FUNC_LIB.DSQRT.SA.012 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:02.56 00525/013 ELEM FUNC LIB DEXP SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DEXP.SA.013(1) 190 D4T2 190 ELEM_FUNC_LIB.DEXP.SA.013 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:03.00 00525/014 ELEM FUNC LIB DLOG10/DLOG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLOG10/DLOG.SA.014(1) 191 D4T2 191 ELEM_FUNC_LIB.DLOG10/DLOG.SA.014 1 LINE 67 2 DISK UM HARDING JUNE 27, 1972 12:03.05 00525/015 ELEM FUNC LIB DCOS/DSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOS/DSIN.SA.015(1) 192 D4T2 192 ELEM_FUNC_LIB.DCOS/DSIN.SA.015 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.11 00525/016 ELEM FUNC LIB DCOTAN/DTAN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016(1) 193 D4T2 193 ELEM_FUNC_LIB.DCOTAN/DTAN.SA.016 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:03.15 00525/017 ELEM FUNC LIB DARCOS/DARSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DARCOS/DARS.SA.017(1) 194 D4T2 194 ELEM_FUNC_LIB.DARCOS/DARS.SA.017 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.20 00525/018 ELEM FUNC LIB DATAN2/DATAN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DATAN2/DATA.SA.018(1) 195 D4T2 195 ELEM_FUNC_LIB.DATAN2/DATA.SA.018 1 LINE 70 2 DISK UM HARDING FEB. 16, 1973 09:37.48 00525/019 ELEM FUNC LIB DCOSH/DSINH SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DCOSH/DSINH.SA.019(1) 196 D4T2 196 ELEM_FUNC_LIB.DCOSH/DSINH.SA.019 1 LINE 68 2 DISK UM HARDING JUNE 27, 1972 12:03.32 00525/020 ELEM FUNC LIB DTANH SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DTANH.SA.020(1) 197 D4T2 197 ELEM_FUNC_LIB.DTANH.SA.020 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:03.36 00525/021 ELEM FUNC LIB DERFC/DERF SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DERFC/DERF.SA.021(1) 198 D4T2 198 ELEM_FUNC_LIB.DERFC/DERF.SA.021 1 LINE 72 2 DISK UM HARDING JUNE 27, 1972 12:03.39 00525/022 ELEM FUNC LIB DLGAMA/DGAMMA SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022(1) 199 D4T2 199 ELEM_FUNC_LIB.DLGAMA/DGAM.SA.022 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:03.42 1 THU SEP 12/96 23:39:34 Page 206 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00525/023 ELEM FUNC LIB CABS SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CABS.SA.023(1) 200 D4T2 200 ELEM_FUNC_LIB.CABS.SA.023 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:03.46 00525/024 ELEM FUNC LIB CSQRT SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CSQRT.SA.024(1) 201 D4T2 201 ELEM_FUNC_LIB.CSQRT.SA.024 1 LINE 67 2 DISK UM HARDING JUNE 27, 1972 12:03.50 00525/025 ELEM FUNC LIB CEXP SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CEXP.SA.025(1) 202 D4T2 202 ELEM_FUNC_LIB.CEXP.SA.025 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:03.54 00525/026 ELEM FUNC LIB CLOG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CLOG.SA.026(1) 203 D4T2 203 ELEM_FUNC_LIB.CLOG.SA.026 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.57 00525/027 ELEM FUNC LIB CCOS/CSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CCOS/CSIN.SA.027(1) 204 D4T2 204 ELEM_FUNC_LIB.CCOS/CSIN.SA.027 1 LINE 69 2 PAGE UM HARDING JULY 27, 1973 12:18.03 00525/028 ELEM FUNC LIB CDABS SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDABS.SA.028(1) 205 D4T2 205 ELEM_FUNC_LIB.CDABS.SA.028 1 LINE 69 1 DISK UM HARDING JUNE 27, 1972 12:04.04 00525/029 ELEM FUNC LIB CDSQRT SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDSQRT.SA.029(1) 206 D4T2 206 ELEM_FUNC_LIB.CDSQRT.SA.029 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:04.08 00525/030 ELEM FUNC LIB CDEXP SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDEXP.SA.030(1) 207 D4T2 207 ELEM_FUNC_LIB.CDEXP.SA.030 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:04.12 00525/031 ELEM FUNC LIB CDLOG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDLOG.SA.031(1) 208 D4T2 208 ELEM_FUNC_LIB.CDLOG.SA.031 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:04.16 00525/032 ELEM FUNC LIB CDCOS/CDSIN SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032(1) 209 D4T2 209 ELEM_FUNC_LIB.CDCOS/CDSIN.SA.032 1 LINE 63 2 DISK UM HARDING JUNE 27, 1972 12:04.19 00525/033 ELEM FUNC LIB FIXPI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FIXPI#.SA.033(1) 210 D4T2 210 ELEM_FUNC_LIB.FIXPI#.SA.033 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:04.23 00525/034 ELEM FUNC LIB FRXPI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPI#.SA.034(1) 211 D4T2 211 ELEM_FUNC_LIB.FRXPI#.SA.034 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:04.25 00525/035 ELEM FUNC LIB FDXPI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPI#.SA.035(1) 212 D4T2 212 ELEM_FUNC_LIB.FDXPI#.SA.035 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:04.28 00525/036 ELEM FUNC LIB FCXPI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCXPI#.SA.036(1) 213 D4T2 213 ELEM_FUNC_LIB.FCXPI#.SA.036 1 LINE 67 1 DISK UM HARDING JUNE 27, 1972 12:04.31 00525/037 ELEM FUNC LIB FCDXI# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FCDXI#.SA.037(1) 214 D4T2 214 ELEM_FUNC_LIB.FCDXI#.SA.037 1 LINE 71 1 DISK UM HARDING JUNE 27, 1972 12:04.34 00525/038 ELEM FUNC LIB FRXPR# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FRXPR#.SA.038(1) 215 D4T2 215 ELEM_FUNC_LIB.FRXPR#.SA.038 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:04.37 00525/039 ELEM FUNC LIB FDXPD# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.FDXPD#.SA.039(1) 216 D4T2 216 ELEM_FUNC_LIB.FDXPD#.SA.039 1 LINE 67 1 DISK UM HARDING JUNE 27, 1972 12:04.43 1 THU SEP 12/96 23:39:34 Page 207 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00525/040 ELEM FUNC LIB CMPY# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CMPY#.SA.040(1) 217 D4T2 217 ELEM_FUNC_LIB.CMPY#.SA.040 1 LINE 61 1 DISK UM HARDING JUNE 27, 1972 12:04.46 00525/041 ELEM FUNC LIB CDVD# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDVD#.SA.041(1) 218 D4T2 218 ELEM_FUNC_LIB.CDVD#.SA.041 1 LINE 55 1 DISK UM HARDING JUNE 27, 1972 12:04.50 00525/042 ELEM FUNC LIB CDMPY# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDMPY#.SA.042(1) 219 D4T2 219 ELEM_FUNC_LIB.CDMPY#.SA.042 1 LINE 61 1 DISK UM HARDING JUNE 27, 1972 12:04.54 00525/043 ELEM FUNC LIB CDDVD# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.CDDVD#.SA.043(1) 220 D4T2 220 ELEM_FUNC_LIB.CDDVD#.SA.043 1 LINE 55 1 DISK UM HARDING JUNE 27, 1972 12:04.56 00525/044 ELEM FUNC LIB DREAL SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DREAL.SA.044(1) 221 D4T2 221 ELEM_FUNC_LIB.DREAL.SA.044 1 LINE 58 1 DISK UM HARDING JUNE 27, 1972 12:05.00 00525/045 ELEM FUNC LIB DIMAG SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.DIMAG.SA.045(1) 222 D4T2 222 ELEM_FUNC_LIB.DIMAG.SA.045 1 LINE 58 1 DISK UM HARDING JUNE 27, 1972 12:05.02 00525/046 ELEM FUNC LIB MINMAX SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.MINMAX.SA.046(1) 223 D4T2 223 ELEM_FUNC_LIB.MINMAX.SA.046 1 LINE 65 2 DISK UM HARDING JUNE 27, 1972 12:05.05 00525/047 ELEM FUNC LIB EFL.MACLIB SM G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.EFL.MACLIB.SM.047(1) 224 D4T2 224 ELEM_FUNC_LIB.EFL.MACLIB.SM.047 1 LINE 65 1 DISK UM HARDING JUNE 27, 1972 12:05.10 0 EFL MACRO LIBRARY REQUIRED FOR ASSEMBLING COMPS 525/1 THROUGH 525/46. 0 Referenced by comments of: 525/1 00525/048 ELEM FUNC LIB ERRMON# SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB.ERRMON#.SA.048(1) 225 D4T2 225 ELEM_FUNC_LIB.ERRMON#.SA.048 1 LINE 70 9 PAGE UM HARDING JULY 28, 1977 02:09:29 0 EFL ERROR MONITOR. 0 Referenced by comments of: 527/1 00525/049 ELEM FUNC LIB SA G S0564 D4T2 VLO FSNAME=ELEM_FUNC_LIB..SA.049(1) 226 D4T2 226 ELEM_FUNC_LIB..SA.049 1 LINE 57 3 PAGE UM HARDING SEP. 24, 1974 09:03.35 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 D4T2 227 ELEM_FUNC_LIB.OBJECT.OC.050 1 LINE 80 17 PAGE UM HARDING JULY 28, 1977 02:09:34 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. 1 THU SEP 12/96 23:39:34 Page 208 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00526/001 SIOC SUBR SA G S0564 D4T2 VLO FSNAME=SIOC_SUBR..SA.001(1) 228 D4T2 228 SIOC_SUBR..SA.001 1 LINE 80 42 PAGE UM HARDING JULY 28, 1977 02:09:37 0 AN I/O CONVERSION PROGRAM TO PERFORM FLOATING POINT, INTEGER, LOGICAL, AND HEX CONVERSIONS. THE CONVERSIONS AVAILABLE CORRESPOND TO THOSE USUALLY ASSOCIATED WITH THE D, E, F, G, I, L, AND Z FORTRAN FORMAT SPECIFICATIONS. THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, IS NORMALLY LOADED INTO SHARED VM. 00526/002 SIOC SUBR OC G SEG2:SIOC D4T2 229 SIOC_SUBR.370_OBJECT.OC.002 1 LINE 80 3 PAGE UM HARDING JULY 28, 1977 02:09:46 SEG2:SIOC 00526/003 SIOC SUBR SIOCP SA G S0564 D4T2 VLO FSNAME=SIOC_SUBR.SIOCP.SA.004(1) 231 D4T2 231 SIOC_SUBR.SIOCP.SA.004 1 LINE 80 6 PAGE UM HARDING JULY 28, 1977 02:09:50 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 COMP 525/50) UM HARDING 00527/001 TRACER SUBR SA G S0564 D4T2 VLO FSNAME=TRACER_SUBR..SA.001(1) 232 D4T2 232 TRACER_SUBR..SA.001 1 LINE 80 52 PAGE UM HARDING SEP. 24, 1974 09:04.21 0 THE TRACEBACK PROGRAM FORMERLY PROVIDED CONVERSATIONAL ERROR PROCESSING FOR ERROR CONDITIONS DETECTED BY THE ELEMENTARY FUNCTION LIBRARY (525) AS WELL AS PROGRAM AND ATTENTION INTERRUPT PROCESSING. COMMANDS ARE AVAILABLE FOR DISPLAYING AND ALTERING FLOATING POINT, INTEGER, CHARACTER, AND HEX DATA. THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, CAN BE LOADED INTO SHARED VM. NOTE: AT UM, THIS COMPONENT IS CONSIDERED TO BE OBSOLETE AND WILL PROBABLY BE REMOVED FROM THE SYSTEM IN THE NEAR FUTURE SINCE THE CURRENT VERSION OF THE EFL ERROR MONITOR (525/48) NO LONGER CALLS IT. 00527/002 TRACER SUBR OC G # (PART OF COMM 525) UM HARDING 0 OBJECT IS PART OF FILE "SEG2:EFL". 00527/003 TRACER SUBR MEMO 218 WF # OBSOLETE (NO REPLACEMENT) 233 D4T2 233 TRACER_SUBR.MEMO_218.WF.003 1 LINE 147 10 PAGE UM HARDING JAN. 24, 1977 20:18:34 00528/001 ALGOLW INSTALLATION WF S0467 ALGOLW 'ALGOL W' FSNAME=ALW.INSTALL D4T2 234 ALGOLW.INSTALLATION.WF.001 1 LINE 117 3 PAGE UNE HUNTER BODWIN MAR. 09, 1977 22:18:03 0 INSTRUCTIONS ON HOW TO ASSEMBLE ALL THE FOLLOWING JUNK INTO THE TWO ALGOLW COMPILERS. 0 Referenced by comments of: 483/4 00528/002 ALGOLW X MAIN SA G XM S0467 ALGOLW 'ALGOL W' FSNAME=ALW.XMAIN.S D4T2 235 ALGOLW.X_MAIN.SA.002 1 LINE 80 22 PAGE UNE HUNTER BODWIN JAN. 17, 1977 15:51:33 0 SOURCE FOR COMPILE- AND RUN-TIME SYSTEM INTERFACE FOR *XALGOLW. 1 THU SEP 12/96 23:39:34 Page 209 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/003 ALGOLW X LOADER S3 G S0689 UQVD06 FSNAME=ALGOLW.LOADCARD.S3.10(1) 120 D4T2 236 ALGOLW.X_LOADER.S3.003 1 LINE 80 6 PAGE UNE HUNTER BODWIN MAY 05, 1975 18:31.27 0 PL360 BASE SOURCE FOR XALGOLW PSEUDO-LOADER. 00528/004 ALGOLW X LOADER UU G S0467 ALGOLW 'ALGOL W' FSNAME=ALW.XLOAD.U D4T2 237 ALGOLW.X_LOADER.UU.004 1 LINE 72 4 PAGE UNE HUNTER BODWIN JAN. 17, 1977 15:44:14 0 UPDATE DECK TO BE APPLIED TO 528/3 TO YIELD SOURCE FOR XALGOLW PSEUDO-LOADER. 00528/005 ALGOLW DEFAULT SA G # (SEE COMP 483/4) UNE HUNTER BODWIN 0 SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER. 00528/006 ALGOLW *XALGOLW OE G *XALGOLW D4T2 238 ALGOLW.*XALGOLW.OE.006 1 SEQ 3402 2 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:13:51 *XALGOLW 0 XALGOLW COMPILER OBJECT COMPRISED OF 528/2, 528/3 UPDATED BY 528/4, AND 528/5. THE REST OF THE XALGOLW OBJECT IS IN *ALGOLWXLIB (528/10) AND IN SHARED VM (SEE 528/16). 00528/007 ALGOLW LIBRARY S3 G S0879 UNE11 3 D4T2 239 ALGOLW.LIBRARY.S3.007 1 SEQ 80 74 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:14:43 0 BASE SOURCE FOR ALGOLW RUN-TIME LIBRARIES. UPDATE DECK 528/8 APPLIES TO THIS SOURCE. 00528/008 ALGOLW LIBRARY UU O S0467 ALGOLW 'ALGOL W' FSNAME=ALW.XLIB.U D4T2 240 ALGOLW.LIBRARY.UU.008 1 LINE 69 2 PAGE UNE HUNTER BODWIN MAY 26, 1976 16:53:22 0 APPLICATION OF THIS UPDATE DECK TO 528/7 YIELDS THE CURRENT *XALGOLW AND *ALGOLW RUN-TIME LIBRARY SOURCE. 00528/009 ALGOLW XLIB LOAD VECT SA G S0467 ALGOLW 'ALGOL W' FSNAME=ALW.XLVCT.S D4T2 241 ALGOLW.XLIB_LOAD_VECT.SA.009 1 LINE 57 1 PAGE UNE HUNTER BODWIN MAY 26, 1976 16:51:21 0 SOURCE FOR LOAD VECTOR OF XALGOLW TO ENABLE ITS LOADER TO RESOLVE EXTERNAL SYMBOLS. 00528/010 ALGOLW XLIBRARY OE G *ALGOLWXLIB D4T2 242 ALGOLW.XLIBRARY.OE.010 1 SEQ 19420 8 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:14:59 *ALGOLWXLIB 0 EMBODIES SOURCE OF 528/7, 528/8, AND 528/9. DYNAMICALLY LOADED BY *XALGOLW COMPILER FOR EXECUTION OF COMPILED PROGRAM. 0 Referenced by comments of: 528/6 00528/011 ALGOLW MAIN SA G ALWM S0467 ALGOLW 'ALGOL W' FSNAME=ALW.MAIN.S D4T2 243 ALGOLW.MAIN.SA.011 1 LINE 80 13 PAGE UNE HUNTER BODWIN MAY 26, 1976 16:55:02 0 SOURCE FOR *ALGOLW COMPILER SYSTEM INTERFACE AND MAIN PROGRAM. 1 THU SEP 12/96 23:39:34 Page 210 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/012 ALGOLW *ALGOLW OE G *ALGOLW D4T2 244 ALGOLW.*ALGOLW.OE.012 1 SEQ 3044 1 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:15:04 *ALGOLW 0 ALGOLW COMPILER OBJECT COMPRISED OF 528/11 AND 528/5. THE REST OF THE ALGOLW OBJECT IS IN SHARED VM (SEE 528/16). 00528/013 ALGOLW PHASE A S3 G AWA S0467 ALGOLW 'ALGOL W' FSNAME=ALW.PA.S D4T2 245 ALGOLW.PHASE_A.S3.013 1 LINE 80 159 PAGE UNE HUNTER BODWIN MAY 26, 1976 16:57:00 0 COMPLETE SOURCE FOR AL STAVELY'S REWRITE OF PHASE A OF ALGOLW. 00528/014 ALGOLW PHASE B S3 G S0879 UNE11 2 D4T2 246 ALGOLW.PHASE_B.S3.014 1 SEQ 80 104 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:15:24 0 PHASE B BASE SOURCE. 528/15 UPDATE DECK APPLIES TO THIS SOURCE. 00528/015 ALGOLW PHASE B UU O S0467 ALGOLW 'ALGOL W' FSNAME=ALW.PB.U D4T2 247 ALGOLW.PHASE_B.UU.015 1 LINE 72 1 PAGE UNE HUNTER BODWIN MAR. 09, 1977 22:16:55 0 UPDATE DECK TO BE APPLIED TO 528/14 TO YIELD CURRENT PHASE B SOURCE. 00528/016 ALGOLW SHARED OBJECT OC O SEG2:ALGW D4T2 248 ALGOLW.SHARED_OBJECT.OC.016 1 LINE 80 69 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:15:38 SEG2:ALGW 0 OBJECT LOADED INTO SHARED VM AT IPL BY PISTLE. THIS OBJECT EMBODIES 528/13, 528/14, AND 528/15. 00528/017 ALGOLW LIBRARY SA G ALWL S0467 ALGOLW 'ALGOL W' FSNAME=ALW.RUN.S D4T2 249 ALGOLW.LIBRARY.SA.017 1 LINE 80 13 PAGE UNE HUNTER BODWIN MAY 26, 1976 16:59:54 0 SOURCE FOR ENTRY POINT OF ALL *ALGOLW-COMPILED PROGRAMS, RESIDENT IN RUNTIME LIBRARY. THE MODULE IS ALSO THE OPERATING SYSTEM INTERFACE FOR EXECUTING *ALGOLW-COMPILED PROGRAMS. 00528/018 ALGOLW LIBRARY OE O *ALGOLWLIB D4T2 250 ALGOLW.LIBRARY.OE.018 1 SEQ 19420 8 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:16:06 *ALGOLWLIB 0 EMBODIES SOURCE OF 528/5, 528/7, 528/8, AND 528/17. ALL *ALGOLW-COMPILED PROGRAMS CONTAIN A "$CONTINUE WITH *ALGOLWLIB RETURN" RECORD TO PICK UP THE RUNTIME SUPPORT ROUTINES. 00528/019 ALGOLW X TEST PGMS S W040:ALW.XPROGS D4T2 251 ALGOLW.X_TEST_PGMS.S.019 1 LINE 117 16 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:16:08 0 *XALGOLW TEST PROGRAM SERIES. 00528/020 ALGOLW TEST PGMS C W040:ALW.PROGS D4T2 252 ALGOLW.TEST_PGMS.C.020 1 LINE 72 17 PAGE UNE HUNTER BODWIN JULY 28, 1977 02:16:12 0 *ALGOLW TEST PROGRAM SERIES. 1 THU SEP 12/96 23:39:34 Page 211 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/021 ALGOLW MEMO 372 WF # OBSOLETE (SEE COMP. 741) D4.1T1 281 ALGOLW.MEMO_372.WF.021 1 LINE 165 57 PAGE UM BODWIN MAY 13, 1978 17:35:54 00528/022 ALGOLW UNSP I/O SA O ALIO S0684 UNSP FSNAME=ALGOLIO.S D4.2T1 350 ALGOLW.UNSP_I/O.SA.022 1 LINE 80 5 PAGE UM UNSP FEB. 23, 1979 04:51:31 0 THREE ROUTINES THAT ALLOW ACCESS TO THE MTS I/O SUBROUTINES. OBJECT IS IN UNSP:LIBRARY (685/4). 00529/001B FILESTATUS COMMAND SA DWB:FSTATCMD4P(1) RD16T1 87 FILESTATUS_COMMAND..SA.001 1 LINE 80 85 PAGE UM DWB JULY 12, 1979 22:52:12 DWB.:FSTATCMD4P 0 SOURCE FOR FILESTATUS COMMAND WHICH IS NORMALLY LOADED BY PISTLE AT IPL AND EXECUTED WHENEVER A $FILESTATUS COMMAND IS ISSUED. (THIS COMMAND PRINTS INFO ABOUT FILES.) THE FILESTATUS COMMAND, LIKE THE PERMIT COMMAND, WAS IMPLEMENTED AS A COMMAND LANGUAGE SUBSYSTEM (CLS) EVEN THOUGH IT REALLY ISN'T A CLS (SEE THE COMMENTS FOR COMP 509/1). COPIES *GFINFODSECT (593) AND *GDINFODSECT (594). REQUIRES SHARED VM SUBROUTINES JULGRGDT (522) AND GRGJULDT (518). ***************************************************************************** RD16 CHANGES: CHANGED TO USE TYPE 20 RHS SUBSTRINGS INSTEAD OF TYPE 6, SO AS TO MATCH DOCUMENTATION AND EXPECTED BEHAVIOR. ***************************************************************************** 00529/002B FILESTATUS COMMAND OC *CLSFILESTATUS RD16T1 88 FILESTATUS_COMMAND..OC.002 1 LINE 80 17 PAGE UM DWB JULY 12, 1979 22:52:36 *CLSFILESTATUS 00530/001 *AMENDS SA S0564 D4T2 VLO FSNAME=AMENDS..SA.001(1) 256 D4T2 256 AMENDS..SA.001 1 LINE 80 6 PAGE UM DWB JULY 28, 1977 02:17:36 DWB.:UNEPA.S 0 CHANGED TO PROMPT FOR OLD AND NEW COPIES IF UNITS 0 AND/OR 1 ARE NOT ASSIGNED. 00530/002 *AMENDS OC *AMENDS D4T2 257 AMENDS..OC.002 1 LINE 80 3 PAGE UM DWB JULY 28, 1977 02:17:38 *AMENDS 00531/001 COMMAND STATISTICS CMDSTAT D4.1 SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=CMDSTAT D4.1T1 284 COMMAND_STATISTICS.CMDSTA.SA.001 1 LINE 80 13 PAGE UM MTS HELFFRICH MAY 13, 1978 17:36:26 0 GENERAL SYSTEM LOGGING FACILITY TO LOG ALL MTS COMMANDS, THE HASP LOG, THE OPERATOR'S CONSOLE LOG, UNIT AND MACHINE CHECK RECORDS, ETC. COPIES COPY:CMDAREADSECT (531/18), CMDSTAT.D (531/19), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3). CURRENTLY THE FOLLOWING RECORD TYPES ARE ASSIGNED: TYPE 1 = MTS COMMANDS 2 = OVERFLOW 3 = RELOAD 1 THU SEP 12/96 23:39:34 Page 212 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 4 = UNIT-CHECK DATA 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 13 = LOADER STATISTICS 14 = PLOTTER USER STATISTICS 15 = SPIRES STATISTICS 16 = MOUNT STATISTICS 17 = MERIT STATISTICS 18 = PLOTTER LOAD STATISTICS 19 = SSRTN SUMMARY DATA 20 = DISK MANAGER STATISTICS (TRAK TO START) RECORDS ARE LOGGED BY CALLING THE S-TYPE ENTRY TO CMDSTAT AS FOLLOWS: CALL CMDSTATS,(LOC,LEN,TYPE) WHERE LOC IS THE LOCATION OF THE RECORD LEN IS THE HALFWORD LENGTH OF THE RECORD TYPE IS THE FULLWORD RECORD TYPE AND RC=0 IS NORMAL RC=4 MEAN ALL DROP AREAS ARE FULL; THE RECORD HAS NOT BEEN LOGGED. 0 Referenced by comments of: 413/1, 447/1, 752/1 00531/002B COMMAND STATISTICS CMDSTAT UPDATE UC G MTS:CMDSTATUPD RD16T1 89 COMMAND_STATISTICS.CMDSTA.UC.002 1 LINE 72 3 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:38 MTS.:CMDSTATUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.1 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=CMDSTAT. REQUIRES THE RD16 VERSION OF CMDPIKUP (531/6). 00531/003B COMMAND STATISTICS CMDSTAT OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00531/004B COMMAND STATISTICS CMDSTAT LIST L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=CMDSTAT.LIST 16 RD16T1 90 COMMAND_STATISTICS.CMDSTA.L.004 1 SEQ 133 39 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:40 00531/005B COMMAND STATISTICS *CMD C G *CMD RD16T1 91 COMMAND_STATISTICS.*CMD.C.005 1 LINE 77 1 PAGE UM DWB JULY 12, 1979 22:52:41 *CMD 0 THIS COMMAND FILE IS INVOKED BY INIT:INTCMD (097/2) WHENEVER THE SYSTEM IS IPLED. AFTER SIGNON, *CMD RUNS CMDPIKUP (531/6). AN ERROR FILE (CMDERRORS) MUST EXIST UNDER THE USER ID USED FOR *CMD. THE LOGGED RECORDS FILL UP A 384 PAGE FILE ABOUT 3 TIMES PER DAY UNDER BUSY CONDITIONS. TWO SUCH FILES ARE USED ALTERNATELY. THE TAPES ONTO WHICH THEY ARE DUMPED FILL UP IN ABOUT 2 WEEKS. 0 Referenced by comments of: 97/2 1 THU SEP 12/96 23:39:34 Page 213 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/006B COMMAND STATISTICS CMDPIKUP SA G CMDP SYS:CMDPIKUP(1000) RD16T1 92 COMMAND_STATISTICS.CMDPIK.SA.006 1 LINE 80 21 PAGE UM DWB JULY 12, 1979 22:52:42 SYS:CMDPIKUP 0 PROGRAM TO PICKUP LOG RECORDS (FROM CMDSTAT) AND SAVE THEM IN FILES; FILENAMES ARE SPECIFIED BY THE CMDDIR FILE (531/9). WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC STRTJB TO START "MTS *DWB" (531/12) WHICH DUMPS THE FILLED FILE ONTO TAPE ACCORDING TO DIRECTORY INFORMATION IN CMDDIR. IN ADDITION, MACHINE AND CHANNEL CHECK RECORDS (TYPE 10) ARE ALSO WRITTEN ON UNIT 10 WHICH IS ASSIGNED TO THE FILE INIT:MCFILE. DISK UNIT CHECK RECORDS (TYPE 4) ARE ALSO WRITTEN ON UNIT 4 WHICH IS ASSIGNED TO THE FILE INIT:UC3330LOG(*L+1). CMDPIKUP REQUIRES AN EMPTY FILE NAMED CMDSTATLOCK WHICH IS USED TO MAKE SURE THAT ONLY ONE COPY OF THIS PROGRAM IS RUNNING AT A TIME. WHEN CMDPIKUP IS STARTED, IT FIRST SCANS THE DIRECTORY FILE LOOKING FOR BUSY ENTRIES. IF IT FINDS ANY, IT CHANGES FILE BUSY TO FILE FULL AND TAPE BUSY TO TAPE ACTIVE (SEE 531/35), AND THEN SETS THINGS UP SO A FILE-TO-TAPE TASK (531/12) WILL BE STARTED UP ABOUT 4 MINUTES AFTER CMDPIKUP STARTED (THIS DELAY IS TO ALLOW PISTLE TO FINISH LOADING MOUNT IF THE SYSTEM HAS JUST BEEN IPLED). NOTE: THE FILE "CMDDIR" (531/9) IS REFERENCED DIRECTLY BY THIS PROGRAM. CMDPIKUP COPIES COPY:CMDAREADSECT (531/18), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), CMDSTAT.D (531/18), *GFINFODSECT (593), AND *GDINFODSECT (594). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND MTA:MCHMAC (577/6). 0 Referenced by comments of: 531/2, 531/5, 531/8, 531/35, 603/1 00531/007B COMMAND STATISTICS CMDPIKUP OC G SYS:CMDPIKUP(1,999) RD16T1 93 COMMAND_STATISTICS.CMDPIK.OC.007 1 LINE 80 6 PAGE UM DWB JULY 12, 1979 22:52:47 00531/008 COMMAND STATISTICS CMDSTATLOCK D # MTS:TST.EMPTY UM DWB SYS:CMDSTATLOCK 0 FILE USED BY CMDPIKUP (531/6) TO MAKE SURE ONLY ONE COPY AT A TIME IS RUNNING. 00531/009 COMMAND STATISTICS SYS:CMDDIR D MTS:TST.CMDDIR D4.1T1 285 COMMAND_STATISTICS.SYS:CM.D.007 1 LINE 70 1 PAGE UM DWB MAY 13, 1978 17:36:30 SYS.:CMDDIR 0 THIS FILE SPECIFIES THE NAMES OF THE DATA FILES USED FOR DUMPING THE LOGGED RECORDS. IT ALSO SPECIFIES THE TAPE PARAMETERS USED FOR DUMPING EACH FILE TO TAPE WHEN FULL. *** WARNING *** WHEN EDITTING THIS FILE WITH THE EDITOR, NEVER USE VISUAL MODE OR THE REPLACE COMMAND SINCE THE LINES CONTAINING TAPE INFORMATION HAVE HEX FIELDS WHICH WILL BE CLOBBERED. 0 Referenced by comments of: 531/6, 531/13 00531/010 COMMAND STATISTICS SYS:CMDSTAT1 D # MTS:TST.CMDSTATX UM DWB SYS:CMDSTAT1 00531/011 COMMAND STATISTICS SYS:CMDSTAT2 D # MTS:TST.CMDSTATX UM DWB SYS:CMDSTAT2 1 THU SEP 12/96 23:39:34 Page 214 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/012 COMMAND STATISTICS *DWB C G MTS:TST.DWB D4.2T1 353 COMMAND_STATISTICS.*DWB.C.012 1 LINE 161 1 PAGE UM DWB APR. 01, 1979 22:38:12 *DWB 0 COMMAND FILE INVOKED BY CMDPIKUP TO RUN THE CMDTAPE PROGRAM (531/13) WHICH DUMPS A FULL LOG FILE TO TAPE AND UPDATES THE CMDFDIR DIRECTORY TO ADD A LINE OF INFORMATION FOR EACH FILE WRITTEN. THE CMDTAPE PROGRAM ALSO WRITES ALL MOUNT STATISTICS RECORDS (TYPE 16) ON UNIT 16 WHICH IS ASSIGNED TO THE FILE SYS:MOUNTSTAT(*L+1) AND MERIT NETWORK USAGE STATISTICS RECORDS (TYPE 17) ON UNIT 17 WHICH IS ASSIGNED TO THE FILE MNET:STAT(*L+1). THE FILE CMDERRORS IS REQUIRED FOR LOGGING. IT WOULD SEEM THAT DON COULD OF THOUGHT OF SOME NAME MORE ORIGINAL THAN HIS INITIALS. DON'S RESPONSE: "SINCE NO ONE WOULD NAME AN SVC AFTER ME, I WAS FORCED ... " 0 Referenced by comments of: 413/1, 531/6 00531/013 COMMAND STATISTICS CMDTAPE SA G DWB:CMDTAPE.370(1,999) D4.2T1 354 COMMAND_STATISTICS.CMDTAP.SA.013 1 LINE 72 8 PAGE UM DWB APR. 01, 1979 22:38:13 DWB.:CMDTAPE.370 0 PROGRAM TO COPY CMDSTAT LOG FILES TO TAPE. RUN BY *DWB. NOTE: THE FILES CMDDIR (531/9) AND CMDFDIR (531/15) ARE REFERENCED DIRECTLY BY THIS PROGRAM. COPIES COPY:CMDAREADSECT (531/18), *GDINFODSECT (594), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 531/12, 531/15, 531/16, 531/31 00531/014 COMMAND STATISTICS CMDTAPE OC G SYS:CMDTAPE.O D4.2T1 355 COMMAND_STATISTICS.CMDTAP.OC.014 1 LINE 820 6 PAGE UM DWB APR. 01, 1979 22:38:16 SYS.:CMDTAPE.O 0 OBJECT OF 531/13 AND 722/1. 00531/015 COMMAND STATISTICS SYS:CMDFDIR D # MTS:TST.CMDFDIR D4T2 266 COMMAND_STATISTICS.SYS:CM.D.010 1 LINE ? 1 PAGE UM DWB JULY 28, 1977 02:18:13 SYS.:CMDFDIR 0 DATA FILE, MAINTAINED BY THE CMDTAPE PROGRAM (531/13), WHICH HAS ONE LINE FOR EACH FILE ON A COMMAND STATISTICS TAPE. IT HAS THE EARLIEST AND LATEST TIMES FOR THAT FILE, THE FILE NUMBER, AND THE MOUNT INFORMATION. IT IS ORDERED BY THE EARLIEST TIME. SOME PROGRAMS USE THIS FILE TO DETERMINE WHAT TAPE TO USE, GIVEN A TIME RANGE. 0 Referenced by comments of: 531/13 00531/016 COMMAND STATISTICS CMDERRORS D # MTS:TST.EMPSEQF UM DWB SYS:CMDERRORS 0 LOG FILE FOR CMDTAPE (531/13). 00531/017 COMMAND STATISTICS CMDAREAPRINT SA # (SUPERCEDED BY 531/25) D3T4 179 COMMAND_STATISTICS.PRINT_P.SA.10 1 LINE 80 5 PAGE UM AUG. 01, 1973 22:44.44 0 Referenced by comments of: 531/33 1 THU SEP 12/96 23:39:34 Page 215 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/018B COMMAND STATISTICS CMDAREADSECT SA G CMDA COPY:CMDAREADSECT RD16T1 94 COMMAND_STATISTICS.CMDARE.SA.018 1 LINE 80 3 PAGE UM DWB JULY 12, 1979 22:52:49 COPY:CMDAREADSECT 0 COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD. 0 Referenced by comments of: 12/1, 45/1, 46/1, 531/1, 531/6, 531/13, 531/31, 531/33, 540/9, 577/2, 603/1, 621/2, 621/4, 621/8, 621/10, 655/2, 707/1, 707/2, 718/1, 753/1, 753/3 00531/019 COMMAND STATISTICS CMDSTATDATA SA G CMDD DWB:CMDSTAT.D D4T2 268 COMMAND_STATISTICS.CMDSTA.SA.013 1 LINE 80 1 PAGE UM DWB JULY 28, 1977 02:20:51 DWB.:CMDSTAT.D 0 COPY SECTION FOR CMDSTAT DATA. 0 Referenced by comments of: 531/1 00531/020 COMMAND STATISTICS CHECKTIME SA G CHKT DWB:CMDCHECKTIME(1,999) D4T2 269 COMMAND_STATISTICS.CHECKT.SA.014 1 LINE 80 5 PAGE UM DWB JULY 28, 1977 02:20:53 DWB.:CMDCHECKTIME 0 PROGRAM TO CHECK COMMAND STATISTICS OUTPUT TIMES TO SEE IF SOMETHING IS MISSING OR WHATEVER. IT PRINTS THE TIME/DATE OF THE FIRST AND LAST RECORDS AND OTHER RECORDS IF THE DIFFERENCE FROM THE PREVIOUS RECORD IS AT LEAST 1 SECOND AND IS GREATER THAN 128 TIMES THE AVERAGE OF THE LAST 8 DIFFERENCES, OR IF THE DIFFERENCE IS GREATER THAN 10 MINUTES. IF THE DIFFERENCE IS NEGATIVE, IT DOES THE SAME THING EXCEPT THAT IT USES 16 TIMES THE AVERAGE OF THE LAST 8. IF PAR=M IS GIVEN, IT GOES THROUGH MULTIPLE FILES. IF PAR=S IS GIVEN, IT PRINTS EVERY 128TH RECORD INSTEAD OF MAKING THE ABOVE CHECKS. 00531/021 COMMAND STATISTICS CHECKTIME OC G DWB:CMDCHECKTIME(1000) D4T2 270 COMMAND_STATISTICS.CHECKT.OC.015 1 LINE 80 3 PAGE UM DWB JULY 28, 1977 02:20:56 00531/022 COMMAND STATISTICS CMDXTRACT SF DWB:CMDXTRACT(1,999) D4.2T1 357 COMMAND_STATISTICS.CMDXTR.SF.022 1 LINE 71 1 PAGE UM DWB APR. 01, 1979 22:38:18 DWB.:CMDXTRACT 0 PROGRAM TO EXTRACT COMMAND LINES FOR A GIVEN USERID AND TIME RANGE. TAKES STATISTICS INPUT ON SCARDS, PRINTS LINES (WITH TIME,DATE,ID PROJ NO,AND TASK NUMBER) ON 6. 5 (INPUT) AND SPRINT (OUTPUT) SHOULD BE ATTACHED TO TERMINAL. IT WILL ASK QUESTIONS FOR ITS PARAMETERS. 00531/023 COMMAND STATISTICS CMDXTRACT OC DWB:CMDXTRACT(1000) D4.2T1 358 COMMAND_STATISTICS.CMDXTR.OC.023 1 LINE 914 2 PAGE UM DWB APR. 01, 1979 22:38:19 00531/024 COMMAND STATISTICS CMDXTRACT3 SF DWB:CMDXTRACT3(1,999) D4.2T1 359 COMMAND_STATISTICS.CMDXTR.SF.024 1 LINE 65 1 PAGE UM DWB APR. 01, 1979 22:38:19 DWB.:CMDXTRACT3 0 PROGRAM TO EXTRACT HASP LOG ITEMS AND OTHER THINGS. ASKS FOR A RECORD TYPE AND A "THING" (E.G. AN S8 NUMBER) TO SEARCH FOR. RUN IT LIKE 531/22. 1 THU SEP 12/96 23:39:34 Page 216 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00531/025 COMMAND STATISTICS CMDXTRACT3 OC DWB:CMDXTRACT3(1000) D4.2T1 360 COMMAND_STATISTICS.CMDXTR.OC.025 1 LINE 778 2 PAGE UM DWB APR. 01, 1979 22:38:20 00531/026 COMMAND STATISTICS CMDXTRACT4 SF DWB:CMDXTRACT4(1,999) D4.2T1 361 COMMAND_STATISTICS.CMDXTR.SF.026 1 LINE 71 2 PAGE UM DWB APR. 01, 1979 22:38:21 DWB.:CMDXTRACT4 0 EXTRACTS TYPES 1 THROUGH 4 FOR A GIVEN TIME INTERVAL AND OPTIONALLY FOR A GIVEN USERID. RUN LIKE 531/22. 00531/027 COMMAND STATISTICS CMDXTRACT4 OC DWB:CMDXTRACT4(1000) D4.2T1 362 COMMAND_STATISTICS.CMDXTR.OC.027 1 LINE 954 2 PAGE UM DWB APR. 01, 1979 22:38:21 00531/028 COMMAND STATISTICS PROCESSING SF DWB:CMDPROC.S D4.2T1 363 COMMAND_STATISTICS.PROCES.SF.028 1 LINE 75 9 PAGE UM DWB APR. 01, 1979 22:38:22 DWB.:CMDPROC.S 0 PROGRAM TO READ AND GENERATE VARIOUS STATISTICS ON COMMAND DATA (USAGE OF VARIOUS COMMANDS FOR VARIOUS CATEGORIES OF USERS, AVERAGE LENGTH OF COMMANDS AND COMMAND NAMES,USAGE OF ABBREVIATIONS,...) SCARDS-DATA IN 6 -PRINT OUT 5 -PROMPT INPUT SPRINT-PROMPT OUTPUT (ASKS FOR NUMBER OF FILES TO PROCESS) 00531/029 COMMAND STATISTICS PROCESSING OC DWB:CMDPROC.O D4.2T1 364 COMMAND_STATISTICS.PROCES.OC.029 1 LINE 20186 11 PAGE UM DWB APR. 01, 1979 22:38:23 DWB.:CMDPROC.O 00531/030 COMMAND STATISTICS SCANCMD SA # (OBSOLETE) D3.2T1 435 COMMAND_STATISTICS.SCANCMD.SA.22 1 LINE 80 7 PAGE UM MAR. 21, 1975 01:49:37 00531/031 COMMAND STATISTICS SELECTCMD SA G MTS:SELECTCMD(1,999) D4T2 277 COMMAND_STATISTICS.SELECT.SA.023 1 LINE 80 6 PAGE UM MTA JULY 28, 1977 02:21:14 MTS.:SELECTCMD 0 PROGRAM TO RETRIEVE DATA FROM CMDSTAT TAPES USING DIRECTORY BUILT BY CMDTAPE (531/13). CALLS READBFR ROUTINE (709). COPIES COPY:CMDAREADSECT (531/18). 0 Referenced by comments of: 709/1 00531/032 COMMAND STATISTICS SELECTCMD OC G MTS:SELECTCMD(1000) D4T2 278 COMMAND_STATISTICS.SELECT.OC.024 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 02:21:16 00531/033 COMMAND STATISTICS CMDUTIL SA G CMDU DWB:CMDUTIL(1,999) D4T2 279 COMMAND_STATISTICS.CMDUTI.SA.025 1 LINE 80 9 PAGE UM DWB JULY 28, 1977 02:21:19 DWB.:CMDUTIL 0 PROGRAM TO PRINT OR COPY (OR BOTH) COMMAND STATISTICS RECORDS BASED ON RECORD TYPES. THIS PROGRAM REPLACES AND EXTENDS CMDAREAPRINT (531/17). IF NO PARAMETER IS GIVEN, IT WILL PROMPT FOR PRINT|COPY|BOTH AND FOR THE RECORD TYPES. CURRENTLY, RECORDS WHICH ARE NOT COMMAND STATISTICS (I.E. NOT TYPES 1, 2, 3, OR 5) ARE JUST 1 THU SEP 12/96 23:39:34 Page 217 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PRINTED AS BCD. THIS IS FINE FOR THE HASP AND CONSOLE LOGS, BUT NOT FOR OTHERS. ROUTINES TO FORMAT OTHER RECORD TYPES FOR PRINTING CAN BE INCLUDED WHEN WRITTEN. IF PAR=COUNT IS GIVEN, THEN IT WILL NEITHER COPY NOR PRINT, BUT INSTEAD SIMPLY REPORT THE NUMBER OF RECORDS OF EACH TYPE FOUND. IT READS CMDSTAT DATA FROM SCARDS AND PRINTS OUTPUT ON SPRINT. IF THE COPY FUNCTION IS SPECIFIED, THEN RECORD TYPE N IS WRITTEN ON MTS I/O UNIT N. COPIES COPY:CMDAREADSECT (531/18). 00531/034 COMMAND STATISTICS CMDUTIL OC G DWB:CMDUTIL(1000) D4T2 280 COMMAND_STATISTICS.CMDUTI.OC.026 1 LINE 80 4 PAGE UM DWB JULY 28, 1977 02:21:22 00531/035 COMMAND STATISTICS CARE & FEEDING WF DWB:CMDSTAT.CF D4T2 281 COMMAND_STATISTICS.CARE_&.WF.027 1 LINE 112 3 PAGE UM DWB JULY 28, 1977 02:21:24 DWB.:CMDSTAT.CF 0 WRITEUP DESCRIBING NORMAL BEHAVIOR OF COMMAND STATISTICS PICKUP AND WHAT TO DO WHEN ABNORMALITIES OCCUR. THE CMDPIKUP PROGRAM (531/6) HAS BEEN CHANGED TO ATTEMPT TO REPAIR ANY PROBLEMS (BUSY ENTRIES) FOUND WHEN IT FIRST STARTS UP. THUS SIMPLE CAUSES OF CONSTIPATION SUCH AS DESCRIBED IN THE THIS WRITEUP SHOULD NO LONGER OCCUR. HOWEVER, MORE COMPLEX CASES, SUCH AS A FILE BEING LEFT UNREADABLE DUE TO A DISK ERROR, WILL STILL REQUIRE THE CORRECTIVE ACTIONS DESCRIBED HEREIN. 00532/001 *PLOTSEE SA G S0933 IGDIST FSNAME=PLOTSEE.S D4.2T1 365 PLOTSEE..SA.001 1 LINE 71 11 PAGE UM GOODRICH JAN. 04, 1979 18:39:22 0 PLOT PREVIEWING PROGRAM. USER OF ANY IG-SUPPORTED DISPLAY CAN VIEW PDS PLOT FILES PRODUCED VIA *PLOTSYS. HAS "WINDOWING" FACILITY. USES PLOT SYSTEM ROUTINE PSYM (615/6) ASSEMBLED WITH THE &WHAT SETC SYMBOL SET TO 'IG'. 00532/002 *PLOTSEE OE G *PLOTSEE D4.2T1 366 PLOTSEE..OE.002 1 LINE 4904 9 PAGE UM GOODRICH APR. 01, 1979 22:41:01 *PLOTSEE 0 CONTAINS A "$CONTINUE WITH *IG RETURN" LINE. 00533 *FRISK SA # (OBSOLETED BY COMP 727) D4T2 284 FRISK.MAIN.SA.001 1 LINE 72 44 PAGE UBC JULY 18, 1977 15:53:27 0 Referenced by comments of: 727/1 00534/001 TMTS JOB LIST ENTRY SA G MTS:TMTSJLE(1,999) D4T2 287 TMTS.JOB_LIST_ENTRY.SA.001 1 LINE 60 1 PAGE UM MTA JULY 28, 1977 02:28:32 MTS.:TMTSJLE 0 "TEST MTS" JOB LIST ENTRY. NORMALLY, IT POINTS TO TMTS FAKE JOB-PROGRAM (534/3), WHICH WHEN ACTIVATED, SAYS "NO TEST SYSTEM LOADED." RUNNING THE LOADMTS PROGRAM (534/5) LOADS A TEST VERSION OF MTS AND FRIENDS INTO SHARED VM AND PLUGS THE MTS ENTRY POINT INTO THIS JOB LIST ENTRY. THIS PROVIDES A WAY OF CHECKING OUT NEW VERSIONS OF MTS WITHOUT USING THE VIRTUAL MACHINE. 0 Referenced by comments of: 534/3 1 THU SEP 12/96 23:39:34 Page 218 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00534/002 TMTS JOB LIST ENTRY OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00534/003 TMTS FAKE JOB-PGM SA G MTS:TMTSFAKE(1,999) D4T2 288 TMTS.FAKE_JOB-PGM.SA.003 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 02:28:35 MTS.:TMTSFAKE 0 DUMMY JOB PROGRAM POINTED TO BY TMTS JOB LIST ENTRY (534/1). 0 Referenced by comments of: 534/1 00534/004 TMTS FAKE JOB-PGM OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00534/005 TMTS LOADMTS SA G TMTS:LOADMTS(2000) D4.2T1 367 TMTS.LOADMTS.SA.005 1 LINE 71 9 PAGE UM MTA APR. 01, 1979 22:41:01 TMTS:LOADMTS 0 PROGRAM TO LOAD A TEST VERSION OF MTS AND FRIENDS INTO SHARED VM AND PLANT THE ENTRY POINT IN THE TMTS JOB LIST ENTRY. I/O UNIT USAGE: GUSER - FOR USER INPUT SERCOM - FOR PROMPTING SPRINT - MAP, MESSAGES, AND EVERYTHING WRITTEN ON SERCOM TWO PARAMETERS MAY BE GIVEN: PAR=TEST (THE DEFAULT) MEANS LOAD THE TEST SYSTEM INTO PRIVATE VM AND DON'T CHANGE THE ENTRY POINT IN THE TMTS JOB LIST, PAR=NOTEST MEANS LOAD THE TEST SYSTEM INTO SHARED VM AND CHANGE THE TMTS JOB LIST ENTRY POINT. THE PROGRAM FINDS THE FIRST UNUSED ADDRESS IN SHARED VM USING ENDSEG2 AND ASKS IF IT IS OK TO START LOADING THERE. REPLY "OK" OR WITH A NEW ADDRESS IN SHARED VM. THE PROGRAM PROMPTS FOR THE NAME OF A FILE TO LOAD FROM, WHICH SHOULD CONTAIN THOSE PARTS OF THE SYSTEM TO BE TESTED, BUT MUST CONTAIN AT LEAST THE FOLLOWING: MTS, MTS SUBRS (GETSPACE/FREESPAC, GUINFO/CUINFO, PLIMIT, LLXU, TIMER, CMDS, RSF, GATE, USUB, FSUB, DSRS, DSRI), COST, CFDUB, SYSDEFS, GETRATES, RATEVEC, RATENBR, DYSSUB, CHARGE, STDDMP, MSG, AND ENDSEG2. GATE SHOULD BE ASSEMBLED WITH &TMTS SET TO 1. OTHER COMPONENTS MAY ALSO BE INCLUDED, BUT NEITHER VOLGET (482/5) NOR TABLRTN (482/25) SHOULD BE INCLUDED. COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 534/1 00534/006 TMTS LOADMTS OC G TMTS:LOADMTS(1,1999) D4.2T1 368 TMTS.LOADMTS.OC.006 1 LINE 3655 3 PAGE UM MTA APR. 01, 1979 22:41:03 00534/007 TMTS TMTSLIB OL O TMTS:TMTSLIB D4.2T1 369 TMTS.TMTSLIB.OL.007 1 LINE 32767 92 PAGE UM MTA APR. 01, 1979 22:41:04 TMTS:TMTSLIB 0 THIS IS A SPECIAL (AND NOT CURRENT) VERSION OF *LIBRARY WHICH INCLUDES ADDITIONAL 1 THU SEP 12/96 23:39:34 Page 219 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 00534/008 TMTS POSTIPL C G TMTS:POSTIPL D4T2 292 TMTS.POSTIPL.C.008 1 LINE 86 1 PAGE UM MTA JULY 28, 1977 02:28:48 TMTS:POSTIPL 0 LINES 1 TO 9 OF THIS FILE CONTAIN COMMANDS TO RUN PISTLE TO LOAD SEG2:STDTV (535/3) AND SEG2:TIME (360/1) INTO SHARED VM AND DEFINE THEIR 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. THE PROCEDURE IS TO FIRST LOAD TMTS, START A TMTS TASK, SIGNON, AND $SOURCE TO THIS COMMAND FILE. 00534/009 TMTS PRINTDUMP OC G TMTS:PRINTDUMP D4T2 293 TMTS.PRINTDUMP.OC.009 1 LINE 42 1 PAGE UM MTA JULY 28, 1977 02:28:50 TMTS:PRINTDUMP 0 CONTAINS THE TWO LINES: $CONTINUE WITH MTA:PRINTDUMP(1,999) RETURN $CONTINUE WITH TMTS:MTSSSCN TO PICK UP THE APPROPRIATE OBJECT DECKS FOR A VERSION OF PRINTDUMP (400) WHICH WILL PRINT TMTS JOB DUMPS. 00534/010 TMTS MTSSSCN OC G TMTS:MTSSSCN D4.2T1 370 TMTS.MTSSSCN.OC.010 1 LINE 80 3 PAGE UM MTA APR. 01, 1979 22:41:14 TMTS:MTSSSCN 0 OBJECT FOR PRINTDUMP SSCN SUBROUTINE (400/3) USED FOR PRINTING TMTS JOB DUMPS (SEE 534/9). 00535/001 CLS INTERFACE CLS DRIVER PGM SA O DRIV W044:MTSSOU D4T2 295 CLS_INTERFACE.CLS_DRIVER.SA.001 1 LINE 80 49 PAGE UM SALISBURY JULY 28, 1977 02:28:55 0 PROGRAM TO FAKE AN MTS/CLS INTERFACE FOR DEBUGGING A NEW CLS. SINCE IT EXECUTES AS A NORMAL PROGRAM, SDS CAN BE USED IN THE DEBUGGING. ASSEMBLE USING COPY:MTS.MACROS (344/3). 00535/002 CLS INTERFACE CLS DRIVER PGM OC O W044:MTS D4T2 296 CLS_INTERFACE.CLS_DRIVER.OC.002 1 LINE 80 9 PAGE UM SALISBURY JULY 28, 1977 02:28:58 0 Referenced by comments of: 9001/8 00535/003B CLS INTERFACE STDTV SA G STTV MTS:STDTV RD16T1 95 CLS_INTERFACE.STDTV.SA.003 1 LINE 80 1 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:52 MTS.:STDTV 0 STANDARD CLS TRANSFER VECTOR WHICH CAN BE USED WHEN CALLING A CLS FROM EXECUTION MODE. ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 534/8 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00535/004B CLS INTERFACE STDTV OC G SEG2:STDTV RD16T1 96 CLS_INTERFACE.STDTV.OC.004 1 LINE 80 3 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:53 SEG2:STDTV 0 LOADED INTO SHARED VM BY PISTLE AFTER IPL. 00535/005 CLS INTERFACE PLAN COPY SECT SA # (OBSOLETED BY 344) D3.2T1 447 CLS_INTERFACE.PLAN_COPY_SE.SA.01 1 LINE 80 3 PAGE UM MAR. 21, 1975 01:50:18 00535/006 CLS INTERFACE T/V DSECT SA # (OBSOLETED BY CLSTV MACRO IN 344) D3.2T1 448 CLS_INTERFACE.T/V_DSECT.SA.02 1 LINE 80 3 PAGE UM MAR. 21, 1975 01:50:21 00535/007 CLS INTERFACE T/V STD ADCONS SA # (OBSOLETED BY 344) D3.2T1 449 CLS_INTERFACE.T/V_STD_ADCO.SA.03 1 LINE 80 3 PAGE UM MAR. 21, 1975 01:50:23 00535/008 CLS INTERFACE CLSAREA SA # (OBSOLETED BY 344) D3.2T2 42 CLSAREA..SA. 1 LINE 80 2 PAGE UM MAR. 21, 1975 02:20:53 00535/009B CLS INTERFACE GOM T/V DSECT SG G COPY:CLSTV.SG RD16T1 97 CLS_INTERFACE.GOM_T/V_DSE.SG.009 1 LINE 97 1 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:53 COPY:CLSTV.SG 0 THIS IS THE GOM EQUIVALENT OF 535/6, I.E., THE CLSTV MACRO IN MTS.MACROS (344/3). 0 Referenced by comments of: 659/71, 659/74 00536 *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) D4T2 299 COBOLU.EXECUTOR.SA.001 1 LINE 80 3 PAGE UM H YOUNG JULY 28, 1977 02:29:06 MTA.:COBOLU 0 THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC. 00538/002 *COBOLU EXECUTOR OE G *COBOLU D4T2 300 COBOLU.EXECUTOR.OE.002 1 SEQ 614 1 PAGE UM H YOUNG JULY 28, 1977 02:29:08 *COBOLU 00538/003 *COBOLU BLDLIN D MTA:COBOL.BLDLIN D4T2 301 COBOLU.BLDLIN.D.003 1 LINE 44 1 PAGE UM H YOUNG JULY 28, 1977 02:29:10 MTA.:COBOL.BLDLIN 0 SCARDS INPUT TO CREBLDL (545/36) TO BUILD 538/4. 00538/004 *COBOLU BLDL D ETC:COBOL.BLDL D4T2 302 COBOLU.BLDL.D.004 1 SEQ 238 1 PAGE UM H YOUNG JULY 28, 1977 02:29:12 ETC.:COBOL.BLDL 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00538/005 *COBOLU IKFCBL00 OE O ETC:IKFCBL00 D4T2 303 COBOLU.IKFCBL00.OE.005 1 SEQ 1024 4 PAGE UM H YOUNG JULY 28, 1977 02:29:15 ETC.:IKFCBL00 0 COMPONENTS 538/5 THROUGH 538/16 ARE THE UNMODIFIED OS/360 OBJECT FOR THE ANSI COBOL COMPILER (RELEASE 21.6, VERSION 2). 00538/006 *COBOLU IKFCBL01 OE O ETC:IKFCBL01 D4T2 304 COBOLU.IKFCBL01.OE.006 1 SEQ 6144 5 PAGE UM H YOUNG JULY 28, 1977 02:29:17 ETC.:IKFCBL01 0 OBJECT HAS REP CARD TO CHANGE DEFAULT PAR FIELD. 00538/007 *COBOLU IKFCBL1B OE O ETC:IKFCBL1B D4T2 305 COBOLU.IKFCBL1B.OE.007 1 SEQ 1024 7 PAGE UM H YOUNG JULY 28, 1977 02:29:19 ETC.:IKFCBL1B 00538/008 *COBOLU IKFCBL10 OE O ETC:IKFCBL10 D4T2 306 COBOLU.IKFCBL10.OE.008 1 SEQ 1024 12 PAGE UM H YOUNG JULY 28, 1977 02:29:21 ETC.:IKFCBL10 00538/009 *COBOLU IKFCBL20 OE O ETC:IKFCBL20 D4T2 307 COBOLU.IKFCBL20.OE.009 1 SEQ 1024 13 PAGE UM H YOUNG JULY 28, 1977 02:29:23 ETC.:IKFCBL20 00538/010 *COBOLU IKFCBL30 OE O ETC:IKFCBL30 D4T2 308 COBOLU.IKFCBL30.OE.010 1 SEQ 1024 4 PAGE UM H YOUNG JULY 28, 1977 02:29:26 ETC.:IKFCBL30 00538/011 *COBOLU IKFCBL40 OE O ETC:IKFCBL40 D4T2 309 COBOLU.IKFCBL40.OE.011 1 SEQ 1024 11 PAGE UM H YOUNG JULY 28, 1977 02:29:28 ETC.:IKFCBL40 00538/012 *COBOLU IKFCBL50 OE O ETC:IKFCBL50 D4T2 310 COBOLU.IKFCBL50.OE.012 1 SEQ 1024 9 PAGE UM H YOUNG JULY 28, 1977 02:29:30 ETC.:IKFCBL50 00538/013 *COBOLU IKFCBL51 OE O ETC:IKFCBL51 D4T2 311 COBOLU.IKFCBL51.OE.013 1 SEQ 1024 10 PAGE UM H YOUNG JULY 28, 1977 02:29:32 ETC.:IKFCBL51 00538/014 *COBOLU IKFCBL6A OE O ETC:IKFCBL6A D4T2 312 COBOLU.IKFCBL6A.OE.014 1 SEQ 1024 1 PAGE UM H YOUNG JULY 28, 1977 02:29:35 ETC.:IKFCBL6A 00538/015 *COBOLU IKFCBL60 OE O ETC:IKFCBL60 D4T2 313 COBOLU.IKFCBL60.OE.015 1 SEQ 1024 8 PAGE UM H YOUNG JULY 28, 1977 02:29:37 ETC.:IKFCBL60 00538/016 *COBOLU IKFCBL70 OE O ETC:IKFCBL70 D4T2 314 COBOLU.IKFCBL70.OE.016 1 SEQ 1024 13 PAGE UM H YOUNG JULY 28, 1977 02:29:39 ETC.:IKFCBL70 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00538/017 *COBOLU *COBLIB OL O *COBLIB D4T2 315 COBOLU.*COBLIB.OL.017 1 SEQ 1024 9 PAGE UM H YOUNG JULY 28, 1977 02:29:41 *COBLIB 0 OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY. NOTE: *GENLIB COMPLAINS ABOUT THIS (MULTIPLY DEFINED SYMBOLS). IGNORE IT. 00538/018 *COBOLU TEST PGM #1 SC MTA:COBTEST D4T2 316 COBOLU.TEST_PGM_#1.SC.018 1 LINE 67 1 PAGE UM H YOUNG JULY 28, 1977 02:29:43 MTA.:COBTEST 0 TEST PROGRAM. 00538/019 *COBOLU TEST PGM #2 SC MTA:COBTEST2 D4T2 317 COBOLU.TEST_PGM_#2.SC.019 1 LINE 73 4 PAGE UM H YOUNG JULY 28, 1977 02:29:46 MTA.:COBTEST2 0 ANOTHER TEST PROGRAM. 00538/020 *COBOLU TEST PGM #3 SC MTA:COBTEST3 D4T2 318 COBOLU.TEST_PGM_#3.SC.020 1 LINE 59 1 PAGE UM H YOUNG JULY 28, 1977 02:29:48 MTA.:COBTEST3 0 TESTS THE SORT VERB. 00539/001 TIMNTRP D4 MASTER SA G S0917 MTSSD4 'MASTER D4.0' POSN=TIMT D4T2 319 TIMNTRP.D4_MASTER.SA.001 1 SEQ 80 24 PAGE UM MTS MTA JULY 28, 1977 02:30:36 0 MTS TIMER INTERRUPT ROUTINES (USER CALLABLE): SETIME, RSTIME, GETIME, AND TIMNTRP. ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:RMGRMACLIB (1054/1), AND COPY:FILE.MACROS (482/33). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 00539/002B TIMNTRP UPDATE UC G MTS:TIMTUPD RD16T1 98 TIMNTRP.UPDATE.UC.002 1 LINE 68 3 PAGE UM MTS MTA JULY 12, 1979 22:52:54 MTS.:TIMTUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=TIMT. 00539/003B TIMNTRP OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS MTA 00539/004B TIMNTRP L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=TIMT.LIST 10 RD16T1 99 TIMNTRP..L.004 1 SEQ 133 73 PAGE UM MTS MTA JULY 12, 1979 22:53:04 00539/005 TIMNTRP TEST PROGRAM SA O MTA:TESTTI(1,999) D4T2 323 TIMNTRP.TEST_PROGRAM.SA.007 1 LINE 80 6 PAGE UM MTS MTA JULY 28, 1977 02:37:30 MTA.:TESTTI 0 DRIVER FOR TESTING TIMER ROUTINES. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00539/006 TIMNTRP TEST PROGRAM OC O MTA:TESTTI(1000) D4T2 324 TIMNTRP.TEST_PROGRAM.OC.008 1 LINE 80 3 PAGE UM MTS MTA JULY 28, 1977 02:37:32 00540/001 SYSTEM WATCHERS PDPBUG SA G MTA:PDPBUG(1000) D4.2T1 372 SYSTEM_WATCHERS.PDPBUG.SA.001 1 LINE 68 4 PAGE UM MTA APR. 01, 1979 22:41:16 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 EITHER THE SUPERVISOR OR 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). 00540/002 SYSTEM WATCHERS PDPBUG OC G MTA:PDPBUG(1,999) D4.2T1 373 SYSTEM_WATCHERS.PDPBUG.OC.002 1 LINE 80 3 PAGE UM MTA APR. 01, 1979 22:41:18 00540/003 SYSTEM WATCHERS PRNTCNTS SA G MTA:PRNTCNTS(1000) D4.2T1 374 SYSTEM_WATCHERS.PRNTCNTS.SA.003 1 LINE 74 11 PAGE UM MTA APR. 01, 1979 22:41:19 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). 00540/004 SYSTEM WATCHERS PRNTCNTS OC G MTA:PRNTCNTS(1,999) D4.2T1 375 SYSTEM_WATCHERS.PRNTCNTS.OC.004 1 LINE 80 6 PAGE UM MTA APR. 01, 1979 22:41:24 00540/005 SYSTEM WATCHERS HOGS SA G MTA:HOGS(1000) D4.2T1 376 SYSTEM_WATCHERS.HOGS.SA.005 1 LINE 68 2 PAGE UM MTA APR. 01, 1979 22:41:27 MTA.:HOGS 0 PROGRAM TO FIND THE JOBS WHICH ARE USING THE MOST CPU TIME, VM, AND DRUM READS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (026/5). ASSEMBLE USING COPY:SETPARM (653). 00540/006 SYSTEM WATCHERS HOGS OC G MTA:HOGS(1,999) D4.2T1 377 SYSTEM_WATCHERS.HOGS.OC.006 1 LINE 80 1 PAGE UM MTA APR. 01, 1979 22:41:28 00540/007 SYSTEM WATCHERS LOADCLAS SA G MTA:LOADCLAS.S D4.2T1 378 SYSTEM_WATCHERS.LOADCLAS.SA.007 1 LINE 71 4 PAGE UM MTA APR. 01, 1979 22:41:29 MTA.:LOADCLAS.S 0 PROGRAM TO CALL TASKSTAT (647) FOR EVERY JOB IN THE SYSTEM EVERY 30 SECONDS AND SUMMARIZE THE RESULTS. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). 0 Referenced by comments of: 400/9, 647/1 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00540/008 SYSTEM WATCHERS LOADCLAS OC G MTA:LOADCLAS D4.2T1 379 SYSTEM_WATCHERS.LOADCLAS.OC.008 1 LINE 80 4 PAGE UM MTA APR. 01, 1979 22:41:30 MTA.:LOADCLAS 00540/009B SYSTEM WATCHERS DBJP SA G DPBJ MTS:DBJP(1000) RD16T1 100 SYSTEM_WATCHERS.DBJP.SA.009 1 LINE 80 8 PAGE UM OGDEN JULY 12, 1979 22:53:05 MTS.:DBJP 0 PROGRAM TO DISPLAY BIG JOB PARAMETERS (AND OTHER STUFF). EVERY 20 SECONDS IT PRINTS STATISTICS RELATING TO THE SYSTEM LOAD. IF SCARDS IS EXPLICITLY ASSIGNED, THEN TYPE 8 CMDSTAT RECORDS GENERATED BY SSRTN (413) ARE USED TO GENERATE THE STATISTICS. OTHERWISE, THE INCORE JOBSTA VECTOR (413/7) IS USED AS THE SOURCE OF INFORMATION. DBJP CAN ALSO BE USED TO TEST NEW VERSION OF BJPMOD (650) BY CONCATENATING DBJP TO THE NEW BJPMOD OBJECT (BJPMOD MUST PRECEDE DBJP). COPIES COPY:GLOBALS (1026/3), COPY:JOBSTA (413/11), COPY:BJPDSCT (650/3), COPY:CMDAREADSECT (531/18), *GDINFODSECT (594), AND *CNFGINFODSECT (654). 00540/010B SYSTEM WATCHERS DBJP OC G MTS:DBJP(1,999) RD16T1 101 SYSTEM_WATCHERS.DBJP.OC.010 1 LINE 80 4 PAGE UM OGDEN JULY 12, 1979 22:53:07 00540/011 SYSTEM WATCHERS DPBJ SA G MTA:DPBJ(1000) D4.2T1 382 SYSTEM_WATCHERS.DPBJ.SA.011 1 LINE 52 1 PAGE UM MTA APR. 01, 1979 22:41:34 MTA.:DPBJ 0 EVERY 20 SECONDS, THIS PROGRAM PRINTS THE NUMBER OF JOBS (IN EACH OF 4 CATEGORIES) THAT HAVE USED ANY CPU TIME IN THE PREVIOUS 20 SECONDS. THE CATEGORIES ARE DETERMINED BY WHETHER THE JOB IS PAGING BOUND AND WHETHER IT IS OVER THE BIG JOB THRESHOLD (BIGJTH). 00540/012 SYSTEM WATCHERS DPBJ OC G MTA:DPBJ(1,999) D4.2T1 383 SYSTEM_WATCHERS.DPBJ.OC.012 1 LINE 80 1 PAGE UM MTA APR. 01, 1979 22:41:35 00540/013 SYSTEM WATCHERS DRUMSTAT SA O MTA:DRUMSTAT(1000) D4.2T1 384 SYSTEM_WATCHERS.DRUMSTAT.SA.013 1 LINE 72 3 PAGE UM MTA APR. 01, 1979 22:41:36 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 PER LOOP), T/PI, T/CP, AND %SS (PERCENT SUPERVISOR STATE) FOR THE PDP. 00540/014 SYSTEM WATCHERS DRUMSTAT OC O MTA:DRUMSTAT(1,999) D4.2T1 385 SYSTEM_WATCHERS.DRUMSTAT.OC.014 1 LINE 80 2 PAGE UM MTA APR. 01, 1979 22:41:36 00540/015 SYSTEM WATCHERS GTUNIT MAIN SG G S0683 OGDEN FSNAME=GTDRIVER.S D4.1T1 305 SYSTEM_WATCHERS.GTUNIT_MA.SG.015 1 LINE 44 1 PAGE UM OGDEN NOV. 10, 1977 20:40:15 0 MAIN PROGRAM TO CALL THE GTUNIT SUBR (540/16) EVERY 20 SECONDS. CALLS THE PAR (687/1) AND ATRAP (689/1) SUBROUTINES. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00540/016 SYSTEM WATCHERS GTUNIT SUBR SA G GTUN S0683 OGDEN FSNAME=GTUNIT.S D4.1T1 306 SYSTEM_WATCHERS.GTUNIT_SU.SA.016 1 LINE 80 4 PAGE UM OGDEN FEB. 03, 1978 15:16:59 0 SUBROUTINE TO COUNT THE NUMBER OF GTUNIT WAITS OUTSTANDING FOR EACH PUBLIC DISK VOLUME, AND PRINT THE NON-ZERO RESULTS ON SPRINT. CALLS TASKSTAT (647/1). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 540/15, 647/1 00540/017 SYSTEM WATCHERS GTUNIT OE G FILE:GTUNIT D4.1T1 307 SYSTEM_WATCHERS.GTUNIT.OE.017 1 LINE 652 2 PAGE UM OGDEN MAY 13, 1978 17:40:58 FILE:GTUNIT 0 OBJECT FOR 540/15 AND 540/16. 00540/018 SYSTEM WATCHERS TTPRINT SA G MTA:TTPRINT.S D4.2T1 386 SYSTEM_WATCHERS.TTPRINT.SA.018 1 LINE 71 3 PAGE UM MTA APR. 01, 1979 22:41:37 MTA.:TTPRINT.S 0 PROGRAM TO PRINT THE SUPERVISOR TRACE TABLE AT THE TIME IT IS RUN, I.E., FROM MEMORY. 00540/019 SYSTEM WATCHERS TTPRINT OC G MTA:TTPRINT D4.2T1 387 SYSTEM_WATCHERS.TTPRINT.OC.019 1 LINE 440 4 PAGE UM MTA APR. 01, 1979 22:41:38 MTA.:TTPRINT 00540/020 SYSTEM WATCHERS UPTIME CMDS C *LRL D4T3 227 UPTIME.*LRL.C.001 1 LINE 8 1 PAGE UM MTA JULY 28, 1977 23:53:31 *LRL 0 COMMAND FILE USED BY THE OPERATORS TO PRINT THE REASON FOR THE LAST SYSTEM RELOAD AND THE ELAPSED TIME SINCE THAT RELOAD. INVOKED BY ENTERING "MTS *LRL" ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 540/21 00540/021 SYSTEM WATCHERS UPTIME CMDS C SYS:LRL D4T3 228 UPTIME.LRL.C.002 1 LINE 38 1 PAGE UM MTA JULY 28, 1977 23:53:34 SYS.:LRL 0 COMMAND FILE SOURCED TO BY *LRL (540/20) TO GET THE REASON FOR THE LAST RELOAD AND RUN THE UPTIME PROGRAM (540/22). 00540/022 SYSTEM WATCHERS UPTIME PGM SA G MTA:UPTIME(1000) D4.2T1 388 SYSTEM_WATCHERS.UPTIME_PG.SA.022 1 LINE 72 1 PAGE UM MTA APR. 01, 1979 22:41:40 MTA.:UPTIME 0 PROGRAM TO PRINT THE ELAPSED TIME SINCE THE LAST IPL. NOTE: THIS PROGRAM ONLY WORKS ON A 370 OR 470. 0 Referenced by comments of: 540/21 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00540/023 SYSTEM WATCHERS UPTIME PGM OC G MTA:UPTIME(1,999) D4.2T1 389 SYSTEM_WATCHERS.UPTIME_PG.OC.023 1 LINE 80 1 PAGE UM MTA APR. 01, 1979 22:41:41 00540/024 SYSTEM WATCHERS PWCT CMDS C *PWC D4.2T1 390 SYSTEM_WATCHERS.PWCT_CMDS.C.024 1 LINE 58 1 PAGE UM OGDEN APR. 01, 1979 22:41:41 *PWC 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE PWCT PROGRAM (540/25) TO PRINT WAIT COUNTS FOR MTS JOBS. INVOKED BY ENTERING "MTS *PWC" ON THE OPERATOR'S CONSOLE. 00540/025 SYSTEM WATCHERS PWCT PGM SA G PWCT MTS:PWC(1000) D4.2T1 391 SYSTEM_WATCHERS.PWCT_PGM.SA.025 1 LINE 80 20 PAGE UBC HOGG OGDEN APR. 01, 1979 22:41:42 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:RMGRMACLIB (1054/1). 0 Referenced by comments of: 540/24, 647/1 00540/026 SYSTEM WATCHERS PWCT PGM OC G MTS:PWC(1,999) D4.2T1 392 SYSTEM_WATCHERS.PWCT_PGM.OC.026 1 LINE 2584 4 PAGE UBC HOGG OGDEN APR. 01, 1979 22:41:46 00541/001 *DECODE SA G S0723 'D3T4' FSNAME=DECODE..SA.1(1) 220 D4T2 339 DECODE..SA.001 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 22:56.50 0 PROGRAM TO PROVIDE HASP-TYPE DECOMPRESSION/DEBLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE. 00541/002 *DECODE OC G *DECODE D4.2T1 393 DECODE..OC.002 1 LINE 80 1 PAGE UM MTA APR. 01, 1979 22:41:47 *DECODE 00542/001 *DF SA # (NOT DISTRIBUTED) D3T4 222 DF..SA.1 1 LINE 72 93 PAGE UM GOODRICH AUG. 01, 1973 22:56.58 00542/002 *DF PSECT SA # (NOT DISTRIBUTED) D3T4 223 DF.PSECT.SA.2 1 LINE 72 3 PAGE UM GOODRICH AUG. 01, 1973 22:57.15 00542/003 *DF OL # (NOT DISTRIBUTED) D3T4 224 DF..OL.3 1 SEQ 3536 6 PAGE UM GOODRICH AUG. 01, 1973 22:57.19 00543/001 *ENCODE SA G S0723 'D3T4' FSNAME=ENCODE..SA.1(1) 225 D4T2 341 ENCODE..SA.001 1 LINE 80 10 PAGE UM MTA AUG. 01, 1973 22:57.23 0 PROGRAM TO PROVIDE HASP-TYPE COMPRESSION/BLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE. 00543/002 *ENCODE OC G *ENCODE D4.2T1 394 ENCODE..OC.002 1 LINE 80 3 PAGE UM MTA APR. 01, 1979 22:41:48 *ENCODE 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00544 *ENDJUNK OC G *ENDJUNK D4T2 343 ENDJUNK..OC. 1 LINE 24 1 PAGE UM MTA JULY 28, 1977 02:38:57 *ENDJUNK 0 CONTAINS THE TWO LOADER CARDS: LCS LCSYMBOL LDT 00545/001 *FAKEOS INSTALLATION WF S0989 UQV15 FSNAME=FAKEOS.INSTALLATION(1) 15 D4T2 344 FAKEOS.INSTALLATION.WF.001 1 LINE 100 3 PAGE UM MTA FEB. 17, 1976 20:04:00 0 SOMEWHAT OUT-OF-DATE WRITEUP DESCRIBING THE ORGANIZATION AND INSTALLATION OF *FAKEOS. 0 Referenced by comments of: 762/2 00545/002 *FAKEOS WRITEUP WF S0989 UQV15 FSNAME=FAKEOS.WRITEUP(1) 14 D4T2 345 FAKEOS.WRITEUP.WF.002 1 LINE 148 11 PAGE UM MTA FEB. 17, 1976 20:03:19 0 UQV USER LEVEL WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS. UM USER LEVEL DOCUMENTATION IS IN MTS VOLUME 2. 00545/003 *FAKEOS MAIN MASTER SA G S0689 UQVD06 FSNAME=FAKEOS.FAKEOSB.SA.4(1) 134 D4T2 346 FAKEOS.MAIN_MASTER.SA.003 1 SEQ 4000 188 PAGE UM MTA FEB. 19, 1975 06:22.20 0 MASTER SOURCE FOR THE FAKEOS MAIN PROGRAM. COPIES COPY:GLOBALDEFS (1026/1), FAKEOS.GBLS (545/19), COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU (087), *LOADINFODSECT (001/4), *GDINFODSECT (594), AND *SENSEDSECT (3025). ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (ON UNIT 0), AND FOS.MACLIB (545/21). 00545/004 *FAKEOS PREFIX MASTER SA G S0689 UQVD06 FSNAME=FAKEOS.FAKEOSPFX.SA.3(1) 133 D4T2 347 FAKEOS.PREFIX_MASTER.SA.004 1 SEQ 4000 45 PAGE UM MTA FEB. 19, 1975 06:22.12 0 MASTER SOURCE FOR FAKEOS PREFIX. COPIES FAKEOS.GBLS (545/19), *GDINFODSECT (594), AND *CNFGINFODSECT (654). ASSEMBLE USING *SYSMAC (ON UNIT 2), *OSMAC (ON UNIT 0), AND FOS.MACLIB (545/21). 00545/005 *FAKEOS UPDATE 1 UU G S1319 D4.2T1 VLO FSNAME=FAKEOS.UPDATES.UU.005 395 UM MTA 0 UPDATES TO PRODUCE D4.2 FAKEOS FROM D4.0 VERSION. CONTAINS COMMANDS AND UPDATES TO ASSEMBLE 545/3 AND 545/4. 00545/006C *FAKEOS UPDATES UC G MTA:FOS.UPDATES RD16T1 102 FAKEOS.UPDATES.UC.006 1 LINE 76 1 PAGE UM MTA JULY 12, 1979 22:53:08 MTA.:FOS.UPDATES 0 POST D4.2 UPDATES TO FAKEOS PREFIX (LINE 1) AND MAIN PROGRAM (LINE 10000). 00545/007C *FAKEOS ASSEMBLY CMDS C MTA:FOS.ASM RD16T1 103 FAKEOS.ASSEMBLY_CMDS.C.007 1 LINE 91 1 PAGE UM MTA JULY 12, 1979 22:53:09 0 COMMANDS TO ASSEMBLE FAKEOS PREFIX (AT LINE 1) AND MAIN PROGRAM (AT LINE 1000). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00545/008 *FAKEOS OS LOWCORE SA MTA:FOS.OSLC D4T2 349 FAKEOS.OS_LOWCORE.SA.006 1 LINE 42 4 PAGE UM MTA JULY 28, 1977 02:40:56 MTA.:FOS.OSLC 0 CONTENTS OF FIRST HALF-PAGE OF OS. 00545/009 *FAKEOS BDAM SIMULATOR SA MTA:FOS.BDAM D4.2T1 396 FAKEOS.BDAM_SIMULATOR.SA.007 1 LINE 87 69 PAGE UM MTA APR. 01, 1979 22:42:20 MTA.:FOS.BDAM 0 SOURCE FOR OS BDAM SIMULATOR. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21). 00545/010 *FAKEOS BDAM SIMULATOR OE ETC:BDAM D4.2T1 397 FAKEOS.BDAM_SIMULATOR.OE.008 1 SEQ 15140 4 PAGE UM MTA APR. 01, 1979 22:42:40 ETC.:BDAM 00545/011 *FAKEOS DDNAME SCANNER SA S0938 FSAVE2 VLO FSNAME=FOS.DDEF(3) 402 D4T2 352 FAKEOS.DDNAME_SCANNER.SA.009 1 LINE 80 20 PAGE UM MTA JULY 28, 1977 02:41:08 MTA.:FOS.DDEF 0 SOURCE FOR DDNAME SCANNER. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21). 00545/012 *FAKEOS DDNAME SCANNER OC # (PART OF 545/37) D3.2T1 455 FAKEOS.VOSDDEF.OE.18 1 SEQ 2586 1 PAGE UM MTA MAR. 21, 1975 01:50:37 00545/013 *FAKEOS EXCP SIMULATOR SA MTA:FOS.EXCP D4.2T1 398 FAKEOS.EXCP_SIMULATOR.SA.011 1 LINE 72 8 PAGE UM MTA APR. 01, 1979 22:42:41 MTA.:FOS.EXCP 0 SOURCE FOR NON-OLTEP EXCP SIMULATOR. ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21). 00545/014 *FAKEOS EXCP SIMULATOR OE ETC:FAKEOS.EXCP D4.2T1 399 FAKEOS.EXCP_SIMULATOR.OE.012 1 SEQ 2492 1 PAGE UM MTA APR. 01, 1979 22:42:43 ETC.:FAKEOS.EXCP 00545/015 *FAKEOS OLTEP EXCP SIM SA MTA:FOS.OLTSEXCP D4T2 355 FAKEOS.OLTEP_EXCP_SIM.SA.013 1 LINE 71 5 PAGE UM MTA JULY 28, 1977 02:41:15 MTA.:FOS.OLTSEXCP 0 SOURCE FOR OLTEP EXCP SIMULATOR. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21). 00545/016 *FAKEOS OS SVC 59 SIML SA MTA:FOS.SVC59 D4T2 356 FAKEOS.OS_SVC_59_SIML.SA.014 1 LINE 71 6 PAGE UM MTA JULY 28, 1977 02:41:18 MTA.:FOS.SVC59 0 SOURCE FOR OS SVC 59 SIMULATOR. COPIES FAKEOS.GLBS (545/18) AND *CNFGINFODSECT (654). 1 THU SEP 12/96 23:39:34 Page 229 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21). 00545/017 *FAKEOS FOS.OLTS OE ETC:FOS.OLTS D4T2 357 FAKEOS.FOS.OLTS.OE.015 1 LINE 1638 4 PAGE UM MTA JULY 28, 1977 02:41:20 ETC.:FOS.OLTS 0 OBJECT FROM 545/15 AND 545/16. MUST BE CONCATENATED WITH *FAKEOS (545/38) WHEN RUNNING OLTEP. 00545/018 *FAKEOS IERRCO00 SA MTA:FOS.IERRCO00 D4.1T1 318 FAKEOS.IERRCO00.SA.016 1 LINE 72 16 PAGE UM MTA MAY 13, 1978 17:41:39 MTA.:FOS.IERRCO00 0 SOURCE FOR THE FAKEOS SORT INTERFACE SUBROUTINE. 0 Referenced by comments of: 545/16 00545/019 *FAKEOS FAKEOS.GBLS SA MTA:FAKEOS.GBLS D4.2T1 400 FAKEOS.FAKEOS.GBLS.SA.017 1 LINE 72 1 PAGE UM MTA APR. 01, 1979 22:42:43 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/32, 737/3 00545/020 *FAKEOS FOS.LPA SA MTA:FOS.LPA D4.1T1 319 FAKEOS.FOS.LPA.SA.018 1 LINE 55 1 PAGE UM MTA MAY 13, 1978 17:41:41 MTA:FOS.LPA 0 SYMBOL TABLE FOR MODULES MOVED FROM FOS.IGG TO *FAKEOS. OBJECT IN *FAKEOS (545/38). 00545/021 *FAKEOS FOS.MACLIB SM MTA:FOS.MACLIB D4.2T1 401 FAKEOS.FOS.MACLIB.SM.019 1 LINE 72 26 PAGE UM MTA APR. 01, 1979 22:42:44 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/32 00545/022 *FAKEOS IERRCO00 TEST SA G MTA:FOS.IERR.TEST(1,999) D4.1T1 320 FAKEOS.IERRCO00_TEST.SA.020 1 LINE 80 6 PAGE UM MTA MAY 13, 1978 17:41:42 MTA.:FOS.IERR.TES 0 TEST PROGRAM FOR IERRCO00. RUNS WITHOUT FAKEOS. ALL THE SORT TEST DATA IS INTERNAL TO IT. SETS THE "DIAG" PARAMETER TO IERRCO00 SO A LOT OF SORT TRACE OUTPUT IS PRODUCED. CHECKS THE RESULT OF THE SORT AND PRINTS ERROR COMMENTS IF BAD. 00545/023 *FAKEOS IERRCO00 TEST OC G MTA:FOS.IERR.TEST(1000) D4.1T1 321 FAKEOS.IERRCO00_TEST.OC.021 1 LINE 80 4 PAGE UM MTA MAY 13, 1978 17:41:43 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00545/024 *FAKEOS BSAM TEST SA MTA:FOS.TESTBSAM(1,999) D4.2T1 402 FAKEOS.BSAM_TEST.SA.022 1 LINE 65 1 PAGE UM MTA APR. 01, 1979 22:42:48 MTA.:FOS.TESTBSAM 0 PROGRAM TO TEST BSAM BY COPYING FROM INPUT TO SYSPRINT USING BSAM WITH DOUBLE BUFFERING ON BOTH. ASSEMBLE USING *OSMAC (ON UNIT 2) AND *SYSMAC (ON UNIT 0). 00545/025 *FAKEOS BSAM TEST OC MTA:FOS.TESTBSAM(1000) D4.2T1 403 FAKEOS.BSAM_TEST.OC.023 1 LINE 80 3 PAGE UM MTA APR. 01, 1979 22:42:49 00545/026 *FAKEOS QSAM TEST SA MTA:FOS.TESTQSAM(1,999) D4T2 365 FAKEOS.QSAM_TEST.SA.023 1 LINE 69 1 PAGE UM MTA JULY 28, 1977 02:41:44 MTA.:FOS.TESTQSAM 0 PROGRAM TO TEST QSAM BY COPYING INPUT TO OUTPUT USING QSAM. ECHOS EACH LINE ON MTS UNIT 1. GENERAL ENOUGH TO ALLOW ANY MODE OF GET AND PUT (MOVE, LOCATE, DATA) AND ANY RECORD FORMAT (NO MEAN TRICK IN OS!). ASSEMBLE USING *SYSMAC (ON UNIT 2) AND *OSMAC (ON UNIT 0) (SIC). 00545/027 *FAKEOS QSAM TEST OC MTA:FOS.TESTQSAM(1000) D4T2 366 FAKEOS.QSAM_TEST.OC.024 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 02:41:47 00545/028 *FAKEOS UPDATE TEST SA MTA:FOS.TSTUPDAT(1,999) D4T2 367 FAKEOS.UPDATE_TEST.SA.025 1 LINE 66 1 PAGE UM MTA JULY 28, 1977 02:41:49 MTA.:FOS.TSTUPDAT 0 TEST PROGRAM WHICH READS INPUT USING BSAM WITH DOUBLE BUFFERING AND REWRITES ANY LINE BEGINNING WITH "A" AFTER CHANGING THE "A" TO "B". ALSO ECHOS LINES READ ON SYSPRINT USING QSAM. ASSEMBLE WITH *SYSMAC (ON UNIT 0) AND *OSMAC (ON UNIT 2). 00545/029 *FAKEOS UPDATE TEST OC MTA:FOS.TSTUPDAT(1000) D4T2 368 FAKEOS.UPDATE_TEST.OC.026 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 02:41:51 00545/030 *FAKEOS TIMER TEST SA MTA:FOS.TESTTIME(1,999) D4T2 369 FAKEOS.TIMER_TEST.SA.027 1 LINE 69 1 PAGE UM MTA JULY 28, 1977 02:41:53 MTA.:FOS.TESTTIME 0 PROGRAM WHICH TESTS STIMER AND TTIMER IN OS. PRINTS MESSAGES TELLING WHAT IT'S DOING. ASSEMBLE USING *SYSMAC (ON UNIT 0) AND *OSMAC (ON UNIT 2). IF ASSEMBLED WITH *SYSMAC ONLY, IT WILL TEST STIMER AND TTIMER IN MTS. 00545/031 *FAKEOS TIMER TEST OC MTA:FOS.TESTTIME(1000) D4T2 370 FAKEOS.TIMER_TEST.OC.028 1 LINE 80 2 PAGE UM MTA JULY 28, 1977 02:41:56 00545/032 *FAKEOS BDAM DUMP SA MTA:FOS.BDAMDUMP(1000) D4.2T1 404 FAKEOS.BDAM_DUMP.SA.030 1 LINE 72 5 PAGE UM MTA APR. 01, 1979 22:42:49 MTA.:FOS.BDAMDUMP 0 SOURCE FOR PROGRAM TO DUMP BDAM FAKEOS FILES. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00545/033 *FAKEOS BDAM DUMP OC MTA:FOS.BDAMDUMP(1,999) D4.2T1 405 FAKEOS.BDAM_DUMP.OC.031 1 LINE 80 4 PAGE UM MTA APR. 01, 1979 22:42:51 00545/034 *FAKEOS FAKEOSTRACE SA MTA:FOS.TRACE(1,999) D4T2 373 FAKEOS.*FAKEOSTRACE.SA.031 1 LINE 66 3 PAGE UM MTA JULY 28, 1977 02:42:03 MTA.:FOS.TRACE 0 SOURCE FOR PROGRAM TO PRINT FAKEOS TRACE FILE. ASSEMBLE USING *SYSMAC. 00545/035 *FAKEOS *FAKEOSTRACE OE *FAKEOSTRACE D4.2T1 406 FAKEOS.*FAKEOSTRACE.OE.033 1 LINE 2764 2 PAGE UM MTA APR. 01, 1979 22:42:53 *FAKEOSTRACE 00545/036 *FAKEOS FAKEOSCREBLDL SA MTA:FOS.CREBLDL(1,999) D4T2 375 FAKEOS.*FAKEOSCREBLDL.SA.033 1 LINE 68 3 PAGE UM MTA JULY 28, 1977 02:42:07 MTA.:FOS.CREBLDL 0 PROGRAM TO CREATE A DIRECTORY THAT FAKEOS WILL USE WHEN DOING A BLDL ON LINKLIB. TAKES INPUT DATA ON SCARDS, OUTPUT DIRECTORY WRITTEN ON UNIT 0. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 458/80, 458/81, 458/83, 538/3 00545/037 *FAKEOS *FAKEOSCREBLDL OE *FAKEOSCREBLDL D4.2T1 407 FAKEOS.*FAKEOSCREBLDL.OE.035 1 SEQ 1620 1 PAGE UM MTA APR. 01, 1979 22:42:54 *FAKEOSCREBLDL 0 Referenced by comments of: 737/5, 737/6, 762/5, 762/6 00545/038B *FAKEOS *FAKEOS OE G *FAKEOS RD16T1 104 FAKEOS.*FAKEOS.OE.038 1 LINE 32767 17 PAGE UM MTA JULY 12, 1979 22:53:11 *FAKEOS 0 CURRENT OBJECT FOR FAKEOS. 0 Referenced by comments of: 545/17, 545/20 00545/039 *FAKEOS MESSAGE FILE M ETC:FAKEOS.MSG D4.2T1 409 FAKEOS.MESSAGE_FILE.M.037 1 LINE 121 4 PAGE UM MTA APR. 01, 1979 22:42:56 ETC.:FAKEOS.MSG 0 ERROR MESSAGE FILE FOR FAKEOS. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00545/040 *FAKEOS OS DATA MANAGE OL ETC:FOS.IGG D4.1T1 323 FAKEOS.OS_DATA_MANAGE.OL.038 1 LINE 3668 6 PAGE UM MTA MAY 13, 1978 17:41:45 ETC.:FOS.IGG 0 LIBRARY OF OS DATA MANAGEMENT MODULES FROM REL 21.8 AND IERRCO00. >>>>>> NOTE: OBJECT HAS REP CARDS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00546/001 *VALIDATEFILE SA G VALD RSTR:VALIDATEFILE(1005) D4.2T1 410 VALIDATEFILE..SA.001 1 LINE 80 38 PAGE UM HELFFRICH APR. 01, 1979 22:42:57 RSTR:VALIDATEFILE 0 PROGRAM TO VALIDATE LINE FILES FOR CONSISTENCY. CAN BE USED (BY USERS) AFTER A SYSTEM CRASH DURING WHICH A FILE WAS OPEN. PROMPTS FOR INPUT. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00546/002 *VALIDATEFILE OE G *VALIDATEFILE D4.2T1 411 VALIDATEFILE..OE.002 1 LINE 80 7 PAGE UM HELFFRICH APR. 01, 1979 22:43:19 *VALIDATEFILE 00547 *FOREVER D *FOREVER D4T2 383 FOREVER..D. 1 LINE 51 3 PAGE UM MTA JULY 28, 1977 02:42:26 *FOREVER 0 A FILE CONTAINING ABOUT 300 LINES OF JUNK, ENDING WITH "$CONTINUE WITH *FOREVER" SO THAT IT APPEARS TO CONTAIN EVEN MORE. 00548/001 *FS SA G MTS:FS.S D4.2T1 412 FS..SA.001 1 LINE 77 90 PAGE UBC MTA APR. 01, 1979 22:43:20 MTS.:FS.S 0 USER PROGRAM TO SAVE AND RESTORE FILES ON MAGNETIC TAPE, MAINTAINING A DIRECTORY AND PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION. THIS PROGRAM IS ALSO USED TO GENERATE MTS DISTRIBUTION TAPES. CALLS SNIFF SUBROUTINE (548/2). COPIES COPY:DRDSECT (461/11), *GFINFODSECT (593), AND *GDINFODSECT (594). 0 Referenced by comments of: 461/11, 549/1 00548/002 *FS SNIFF SUBR SA G MTS:FS.SNIFF(1,999) D4T2 385 FS.SNIFF_SUBR.SA.002 1 LINE 80 4 PAGE UBC MTA AUG. 14, 1977 21:51:13 MTS.:FS.SNIFF 0 SUBROUTINE TO DETERMINE THE AMOUNT OF SPACE REQUIRED BY A FILE. CALLED BY *FS. COPIES *GFINFODSECT (593). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 548/1 00548/003 *FS OE G *FS D4.2T1 413 FS..OE.003 1 LINE 32315 12 PAGE UBC MTA APR. 01, 1979 22:44:14 *FS 00549/001 *FSCON SA G MTS:FSCON.S(1,1449) D4T2 387 FSCON..SA.001 1 LINE 80 33 PAGE UM MTA JULY 28, 1977 02:43:20 MTS.:FSCON.S 0 PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT. NO LONGER REQUIRES THE FSZ SUBROUTINE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00549/002 *FSCON OE G *FSCON D4.2T1 414 FSCON..OE.002 1 SEQ 8116 3 PAGE UM MTA APR. 01, 1979 22:44:15 *FSCON 00550 *FSCOPY SA # (OBSOLETED BY 548) D3T4 270 FSCOPY..SA.1 1 LINE 80 30 PAGE UBC AUG. 01, 1973 23:05.32 00551/001 *FTN SA G S1099 FORTRN FSNAME=FTN.S D4.2T1 415 FTN..SA.001 1 LINE 85 51 PAGE UM HANSEN MAR. 02, 1979 12:24:24 0 THIS VERSION OF *FTN INTERFACES TO THE FORTRAN G (204) AND FORTRAN H (298) COMPILERS AND ALSO TO OVERDRIVE (667), THE FORTRAN PREPROCESSOR. IT IS LOADED INTO SHARED VM AT IPL BY PISTLE WITH THE SINGLE SYMBOL FTN DEFINED IN LCSYMBOL. THERE ARE 4 REFERENCES TO FILE NAMES IN THIS VERSION AT LINES 922 THROUGH 925. AS DISTRIBUTED, THEY ARE *FORTRANH, *FORTRANG, *FTNGTEST, AND *OVERDRIVE RESPECTIVELY. COPIES *GDINFODSECT (594). 0 Referenced by comments of: 699/1 00551/002 *FTN SHARED OBJECT OC G SEG2:FTN D4.2T1 416 FTN.SHARED_OBJECT.OC.002 1 LINE 80 11 PAGE UM HANSEN APR. 01, 1979 22:46:11 SEG2:FTN 0 LOADED INTO SHARED VM AT IPL BY PISTLE. 00551/003 *FTN OC G *FTN D4T2 391 FTN..OC.003 1 SEQ 24 1 PAGE UM HANSEN JULY 28, 1977 02:45:44 *FTN 0 CONTAINS ONLY THE LOADER CARDS: RIP FTN LCS LCSYMBOL LDT FTN 00552/001 *GASP SF G GASP S0282 SYSSAV 'FLANIGAN SYSTEM SAVE TAPE' FSNAME=GASPII.S D4T2 392 GASP..SF.001 1 LINE 80 30 PAGE UM FLANIGAN APR. 18, 1975 08:59:55 0 FTN SOURCE FOR GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION. NOTE: SOURCE CONTAINS MANY "$CONTINUE WITH *GASPCOM RETURN" LINES. 00552/002 *GASP SA G GASP W020:GASP.ASMB(1,14) D4T2 393 GASP..SA.002 1 LINE 80 1 PAGE UM FLANIGAN JULY 28, 1977 02:46:12 0 ASMG SOURCE FOR GASP ERROR EXIT ROUTINE. 00552/003 *GASP OL G *GASP D4T2 394 GASP..OL.003 1 SEQ 6930 15 PAGE UM FLANIGAN JULY 28, 1977 02:46:12 *GASP 0 OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN 552/1 AND 552/2. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00552/004 *GASP *GASPCOM SF G GPCM *GASPCOM(0,7) D4T2 395 GASP.*GASPCOM.SF.004 1 LINE 80 1 PAGE UM FLANIGAN JULY 28, 1977 02:46:14 *GASPCOM 00552/005 *GASP MEMO 246 WF S0564 D4T2 VLO FSNAME=GASP.MEMO_246.WF.005(1) 396 D4T2 396 GASP.MEMO_246.WF.005 1 LINE 127 11 PAGE UM FLANIGAN JAN. 24, 1977 20:29:16 0 THIS IS COMPUTING CENTER MEMO 246 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM" 00552/006 *GASP INTERNAL DESC P G W020:GASPINFO(1,1488) D4T2 397 GASP.INTERNAL_DESC.P.006 1 LINE 80 28 PAGE UM FLANIGAN JULY 28, 1977 02:46:54 0 DESCRIPTION OF THE INTERNALS OF GASP. 00553/001B NETWORK CLS SA G NETC S0683 OGDEN FSNAME=NET.S RD16T1 105 NETWORK_CLS..SA.001 1 LINE 80 43 PAGE UM OGDEN JUNE 27, 1979 05:08:46 0 COMMAND LANGUAGE SUB-SYSTEM FOR MERIT COMPUTER NETWORK ($NET COMMAND). DESCRIBED IN "MERIT NETWORK USER'S GUIDE" IN MTS VOLUME 4. CALLS COPY SUBROUTINE (553/2) TO IMPLEMENT THE .COPY NETWORK COMMAND. COPIES *GDINFODSECT (594) AND *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3). 00553/002 NETWORK CLS COPY SUBR SA G S0683 OGDEN FSNAME=NETCOPY.S D4.2T1 418 NETWORK_CLS.COPY_SUBR.SA.002 1 LINE 71 38 PAGE UM OGDEN FEB. 10, 1979 21:55:28 0 SUBROUTINES TO IMPLEMENT THE .COPY NETWORK COMMAND. ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 553/1 00553/003B NETWORK CLS OC G *CLSNET RD16T1 106 NETWORK_CLS..OC.003 1 LINE 10144 11 PAGE UM OGDEN JULY 12, 1979 22:56:38 *CLSNET 0 OBJECT FROM 553/1 AND 553/2, NORMALLY LOADED INTO SHARED VM BY PISTLE AFTER IPL. 00553/004 NETWORK CLS MNET:NETCOPY OC G MNET:NETCOPY D4T2 401 NETWORK_CLS.MNET:NETCOPY.OC.004 1 LINE 24 1 PAGE UM OGDEN JULY 28, 1977 02:48:09 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM NETCOPY SUBROUTINE. THIS FILE IS $RUN AUTOMATICALLY WHEN A .COPY NETWORK COMMAND (OR EQUIVALENT AT A NON-MTS HOST) IS ISSUED AT A REMOTE HOST TO COPY A FILE TO OR FROM THE LOCAL MTS HOST. 00553/005 NETWORK CLS NET TEST PGM SA G TNET S0683 OGDEN FSNAME=TNET.S D4T2 403 NETWORK_CLS.NET_TEST_PGM.SA.006 1 LINE 80 3 PAGE UM OGDEN MAR. 03, 1977 12:42:13 0 PROGRAM TO CALL THE NET CLS -- ALLOWS TESTING WITH SDS. CALLS MSG ROUTINES (1023). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND WITH SIZE=20. 00553/006 NETWORK CLS NET TEST PGM OC G W163:TNET D4T2 404 NETWORK_CLS.NET_TEST_PGM.OC.007 1 LINE 80 3 PAGE UM OGDEN JULY 28, 1977 02:48:46 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00554/001 TABLMOD JOB PROGRAM SA G TBJP FILE:TABLMOD D4.2T1 420 TABLMOD.JOB_PROGRAM.SA.001 1 LINE 80 28 PAGE UM GOODRICH APR. 01, 1979 22:55:06 FILE:TABLMOD 0 UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE SHARED FILE TABLE. INVOKED BY ENTERING "TABLMOD" ON THE OPERATOR'S CONSOLE. THE FOLLOWING COMMANDS ARE AVAILABLE: VERIFY VERIFYS (ENTRY AND ELEMENT) ALLOCATIONS ARE CONSISTANT BY CHASING THROUGH VARIOUS CHAINS IN SHARED FILE TABLE. ALSO PRINTS THE NUMBER OF OPEN FILES, MATRIX COMPUTATIONS, AND DEADLOCK DETECTIONS. TRACE PRINTS OUT THE ENTIRE SHARED FILE TABLE. EACH ENTRY CONSISTS OF A FILE NAME, JOB NUMBER, OPEN STATUS ("OPEN" OR "NOTO"), LOCK STATUS ("LOCKR", "LOCKM", OR "LOCKD"), AND WAIT STATUS ("WAITO", "WAITR", "WAITM", OR "WAITD"). LSTAT PRINTS THE INFORMATION ASSOCIATED WITH A SINGLE FILE ("LSTAT FILE FNAME") OR A SINGLE JOB ("LSTAT JOB N") IN THE SAME FORMAT AS THE TRACE COMMAND. LOCATE PRINTS THE HALF-WORD OFFSET INTO THE SHARED FILE TABLE FOR THE ENTRY ASSOCIATED WITH A PARTICULAR FILE ("LOCATE FILE FNAME"). CLEAN TAKES THE SPECIFIED JOB ("CLEAN JOB N") OFF ALL OPEN OR LOCKED AND WAITING LISTS. CLEANF SAME AS "CLEAN" EXCEPT FOR ONE FILE ONLY ("CLEANF JOB N FILE FNAME"). DEQ TAKES THE SPECIFIED JOB ("DEQ JOB N") OFF ALL WAITING LISTS. DEQF SAME AS "DEQ" EXCEPT FOR ONE FILE ONLY ("DEQF JOB N FILE FNAME"). THE TABLMOD PROGRAM TERMINATES WHEN AN END-OF-FILE IS ENTERED. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:FILE.MACROS (482/33). SEE COMP 682/9 FOR A WRITEUP. 0 Referenced by comments of: 400/10, 554/3, 682/9 00554/002 TABLMOD TABLMOD JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM GOODRICH 00554/003 TABLMOD MTS PROGRAM SA G # (SAME AS COMP 554/1) UM GOODRICH 0 MTS PROGRAM TO ALLOW SYSTEM PROGRAMMERS TO INTERROGATE AND ALTER THE SYSTEM-WIDE SHARED FILE TABLE. TAKES THE SAME COMMANDS AS TABLMOD JOB (554/1) AS WELL AS A "DUMP" COMMAND TO DUMP THE WHOLE SHARED FILE TABLE. IT CALLS SDUMP TO DO THIS. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:FILE.MACROS (482/33) STARTING AT LINE 0 TO INCLUDE THE CODE NECESSARY FOR THE MTS PROGRAM. CONTAINS A "$CONTINUE WITH W045:TABLMOD(2)" LINE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00554/004 TABLMOD MTS PROGRAM OC G FILE:TABLMODMP.O D4.2T1 421 TABLMOD.MTS_PROGRAM.OC.004 1 LINE 80 4 PAGE UM GOODRICH APR. 01, 1979 22:55:09 FILE:TABLMODMP.O 00555/001 MESSAGE MANUAL PGM SS G W070:MESSAGEPGM(4) D4T2 407 MESSAGE_MANUAL.PGM.SS.001 1 LINE 70 11 PAGE UM FRONCZAK JULY 28, 1977 02:48:53 0 SPITBOL PROGRAM TO PRODUCE MESSAGE MANUAL FROM DATA IN 555/4. RUN AS FOLLOWS: $RUN *SPITBOL SCARDS=MESSAGEPGM(5) 5=MESSAGEDATA 4=*MSOURCE* 6=*MSINK* 7=MSGMANPRT SPRINT=*PRINT* PAR=SIZE=MAX *PRINT* SHOULD BE SPECIFIED AS A TN PRINTER. THE PRINTOUT CONSISTS OF USER MESSAGES (ALPHABETICAL) AND OPERATOR MESSAGES (ALPHABETICAL). INSTRUCTIONS ON PROGRAM USAGE MAY BE OBTAINED VIA &HELP. 00555/002 MESSAGE MANUAL SPITBLK SA G W070:MSGPGMBLK.S D4T2 408 MESSAGE_MANUAL.SPITBLK.SA.002 1 LINE 79 3 PAGE UM FRONCZAK JULY 28, 1977 02:48:56 0 ROUTINE TO INTERFACE SPITBOL TO THE BLOKLETR SUBR (572). 00555/003 MESSAGE MANUAL SPITBLK OC G W070:MSGPGMBLK.O D4T2 409 MESSAGE_MANUAL.SPITBLK.OC.003 1 LINE 80 1 PAGE UM FRONCZAK JULY 28, 1977 02:48:58 00555/004 MESSAGE MANUAL DATA D W070:MESSAGEDATA D4T2 410 MESSAGE_MANUAL.DATA.D.004 1 LINE 107 52 PAGE UM FRONCZAK JULY 28, 1977 02:49:01 0 A DATA FILE DESCRIBING THE VARIOUS SYSTEM MESSAGES. THE FORMAT OF THE FILE IS AS FOLLOWS: 1. LOCATION OF MESSAGES A) MTS "FMSG" MESSAGES ARE FOUND STARTING AT THE LINE NUMBER WHICH IS THE FMSG NUMBER. B) MTS "CMSG" MESSAGES START AT LINE 2000. C) OTHER MESSAGES START AT LINE 3000. 2. FORMAT OF LINES A GROUP OF CONSECTIVE LINES IN THE FILE HAS INFORMATION ABOUT A GIVEN MESSAGE. THE FIRST LINE SPECIFIES THE MESSAGE TEXT, WHILE SUCCEEDING LINES IN THE GROUP INDENTIFY THE DESTINATION, SOURCE, AND MEANING. EACH LINE IS IDENTIFIED BY ITS LEADING CHARACTERS, WHICH MUST BE UPPERCASE; THE TEXT OF MESSAGES MAYBE OF MIXED CASE. THE FOLLOWING LINE FORMATS ARE SPECIFIED (ALL COMPONENT NAMES MUST BE GIVEN IN UPPERCASE): A) MESSAGE LINE BEGINS WITH "## "; MESSAGE, STARTING IN COLUMN 4, USUALLY IN UPPERCASE WITH GENERIC PARTS IN LOWERCASE. B) TEXT ELIMINATION LINE BEGINS WITH " ELIM " FOLLOWED BY THE EXACT TEXT TO BE ELIMINATED FROM THE MESSAGE LINE FOR SORTING PURPOSES ONLY, DELIMITED BY A CHARACTER WHICH MUST NOT APPEAR IN THE ELIMINATION TEXT. FOR EXAMPLE, ELIM 'STRING' C) DESTINATION OF MESSAGE 1 THU SEP 12/96 23:39:34 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 BEGINS WITH " DEST OPER" IF OPERATOR MESSAGE; NO DESTINATION LINE IF NORMAL MESSAGE. D) LOCATION OF MESSAGE TEXT BEGINS WITH " TXTLOC "; TEXT LOCATION NAME STARTING IN COLUMN 8, SUCH AS FSMG 21. FOR EXAMPLE, TXTLOC PERMIT,509,SDM51,PRMT0445. E) WHO ISSUED MESSAGE (MAY BE SEVERAL OF THESE IN A GROUP) BEGINS WITH " SOURCE "; INFORMATION STARTING IN COLUMN 9: COMPONENT NAME, COMPONENT NUMBER, LABEL, SEQUENCE ID. FOR EXAMPLE, SOURCE PERMIT,509,SDM51,PRMT0445. F) EXPLANATIONS OF MESSAGE (AS MANY LINES AS NEEDED) BEGINS WITH 3 BLANKS; TEXT STARTING IN COLUMN 4. ALL LINES ARE USER-LEVEL EXPLANATION LINES UNTIL "#S " APPEARS IN COLUMNS 1-3, IN WHICH CASE, THAT LINE AND SUBSEQUENT LINES DEFINE THE SYSTEM-LEVEL EXPLANATION. THIS FILE CURRENTLY CONTAINS COMPLETE COVERAGE OF MTS ITSELF AND MOST CLS'S. 00555/005 MESSAGE MANUAL OUTPUT P W070:MSGMANPRT D4T2 411 MESSAGE_MANUAL.OUTPUT.P.005 1 LINE 98 191 PAGE UM FRONCZAK JULY 28, 1977 02:49:29 0 COPY THIS OUTPUT TO A TN PRINTER FOR A COPY OF THE MESSAGE MANUAL. 00556/001 *REDUCE2 MTS MASTER S G WATF:RDC2SOU D4.2T1 422 REDUCE2.MTS_MASTER.S.001 1 LINE 80 165 PAGE UM MTA APR. 01, 1979 22:55:09 0 REDUCE 2 IS A LISP 1.5 PROGRAM DESIGNED FOR GENERAL ALGEBRAIC COMPUTATIONS. THIS IS THE OS/360 VERSION OF REDUCE2 MODIFIED TO RUN IN MTS. THE LISP COMPILER IS EXPECTED TO BE IN THE FILE "COMPILE" UNDER THE USER ID COMPILING REDUCE2. 0 Referenced by comments of: 210/1, 556/3 00556/002 *REDUCE2 OS SOURCE S G WATF:RDC2UG125 D4T2 413 REDUCE2.OS_SOURCE.S.002 1 LINE 80 158 PAGE UM MTA JULY 28, 1977 02:50:01 0 OS/360 SOURCE FOR REDUCE2 (VERSION NOV 30, 1973). 0 Referenced by comments of: 556/3 00556/003 *REDUCE2 UPDATE UC G WATF:RDC2UPD D4.2T1 423 REDUCE2.UPDATE.UC.003 1 LINE 80 10 PAGE UM MTA APR. 01, 1979 22:55:20 0 UPDATE DECK TO CONVERT OS/360 SOURCE (556/2) TO MTS VERSION (556/1). 00556/004 *REDUCE2 CHKPOINT O G ETC:RDC2.CKPT D4.2T1 424 REDUCE2.CHKPOINT.O.004 1 LINE 80 61 PAGE UM MTA APR. 01, 1979 22:55:23 ETC.:RDC2.CKPT 0 FILE IN LISP OBJECT FORMAT CONTAINING CHECKPOINT OF REDUCE2. THIS FILE IS REFERENCED BY *REDUCE2. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00556/005 *REDUCE2 *REDUCE2 C *REDUCE2 D4T2 416 REDUCE2.*REDUCE2.C.005 1 LINE 66 1 PAGE UM MTA JULY 28, 1977 02:50:17 *REDUCE2 0 FILE TO WHICH USERS $SOURCE TO INVOKE REDUCE2. IT RUNS THE REDUCE VERSION OF LISP AND THEN LOADS THE REDUCE2 CHECKPOINT. 00556/006 *REDUCE2 UPDCOMP C WATF:RDC2JOB D4.2T1 425 REDUCE2.UPDCOMP.C.006 1 LINE 78 1 PAGE UM MTA APR. 01, 1979 22:55:27 0 COMMANDS TO UPDATE AND COMPILE REDUCE2. THIS COMMAND FILE PRODUCES A CHECKPOINT FOR A "TEST" VERSION OF REDUCE IN THE FILE "RDC2.NEW" UNDER THE ID RUNNING IT. TO PRODUCE A PRODUCTION VERSION OF REDUCE (FOR ETC:RDC2.CKPT OR EQUIVALENT) DO THE FOLLOWING: EMPTY ETC:RDC2.CKPT RUN ETC:RDC2.LISP PAR=R=90P RESTORE ($$$RDC2.NEW$) REMCMP () CONDENSE (2400 11000) CHKPOINT ($$$ETC:RDC2.CKPT$) THIS REMOVES THE LISP COMPILER AND REDUCES THE MEMORY REQUIRED BY REDUCE. 00556/007 *REDUCE2 EXAMPLE S WATF:RDC2TEST D4T2 418 REDUCE2.EXAMPLE.S.007 1 LINE 72 3 PAGE UM MTA JULY 28, 1977 02:50:22 0 EXAMPLE OF REDUCE2 INPUT. THIS IS THE INPUT THAT PRODUCES *REDUCE2EXAMP. 00556/008 *REDUCE2 EXAMPLE OUTPUT P *REDUCE2EXAMP D4T2 419 REDUCE2.EXAMPLE_OUTPUT.P.008 1 LINE 132 7 PAGE UM MTA JULY 28, 1977 02:50:24 *REDUCE2EXAMP 0 EXAMPLE OF THE OUTPUT FROM *REDUCE2. PRODUCED BY FEEDING 556/7 TO *REDUCE2. 00556/009 *REDUCE2 LISP OS/MAS SA G WATF:LISP.PR066 D4T2 420 REDUCE2.LISP_OS/MAS.SA.009 1 LINE 80 179 PAGE UM MTA JULY 28, 1977 02:50:26 0 SOURCE FOR THE LISP/360 INTERPRETER (OS/360 VERSION) AS DISTRIBUTED WITH REDUCE2. THE LISP 1.5 LANGUAGE IS DESCRIBED IN "LISP 1.5 PROGRAMMER'S MANUAL" BY J. MC CARTHY, ET AL, MIT PRESS, 1966. 0 Referenced by comments of: 556/10 00556/010 *REDUCE2 LISP UPDATE UU G WATF:LISPUPD D4.2T1 426 REDUCE2.LISP_UPDATE.UU.010 1 LINE 72 24 PAGE UM MTA APR. 01, 1979 22:55:27 0 UPDATE TO GO FROM OS/360 SOURCE (556/9) TO MTS VERSION. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00556/011 *REDUCE2 LISP OBJECT OE G ETC:RDC2.LISP D4.2T1 427 REDUCE2.LISP_OBJECT.OE.011 1 LINE 32767 15 PAGE UM MTA APR. 01, 1979 22:55:32 ETC.:RDC2.LISP 00556/012 *REDUCE2 LISP COMPILER S G S0923 'REDUCE' FMT=FB(720,80) 3 D4T2 423 REDUCE2.LISP_COMPILER.S.012 1 SEQ 80 41 PAGE UM MTA JULY 28, 1977 02:51:08 0 LISP/360 COMPILER AND ASSEMBLY PROGRAM. FEED THIS FILE TO LISP AND CHECKPOINT THE RESULT. 00556/013 *REDUCE2 LISP COMPILER UU G WATF:COMPUPDAR055 D4T2 424 REDUCE2.LISP_COMPILER.UU.013 1 LINE 80 4 PAGE UM MTA JULY 28, 1977 02:51:11 0 UPDATE TO BRING COMPILER UP TO MARCH 5, 1975 OS VERSION. 00556/014 *REDUCE2 LISP COMPILER UU G WATF:COMPUPD D4T2 425 REDUCE2.LISP_COMPILER.UU.014 1 LINE 85 1 PAGE UM MTA JULY 28, 1977 02:51:11 0 UPDATE TO CHANGE OS COMPILER INTO MTS VERSION. APPLY AFTER 556/13. 00556/015 *REDUCE2 LISP COMPILER O G WATF:COMPILE D4.2T1 428 REDUCE2.LISP_COMPILER.O.015 1 SEQ 80 19 PAGE UM MTA APR. 01, 1979 22:55:34 0 CHECKPOINTED LISP/360 COMPILER AND ASSEMBLY PROGRAM. LISP OBJECT FORMAT. 00556/016 *REDUCE2 LISP COMPILER C G WATF:GENCOMPILE D4T2 427 REDUCE2.LISP_COMPILER.C.016 1 LINE 60 1 PAGE UM MTA JULY 28, 1977 02:51:16 0 COMMANDS TO GENERATE THE LISP COMPILER. 00556/017 *REDUCE2 LISP DEBUG S O WATF:LISPBREAK D4T2 428 REDUCE2.LISP_DEBUG.S.017 1 LINE 105 5 PAGE UM MTA JULY 28, 1977 02:51:19 0 THIS PROGRAM (WRITTEN IN LISP) DEFINES TWO FUNCTIONS: BREAK AND UNBREAK. BREAK TAKES A LIST OF FUNCTION NAMES AND SETS A BREAKPOINT AT THE ENTRY AND EXIT TO EACH OF THEM. UNBREAK TAKES A LIST OF FUNCTION NAMES AND RESETS THE BREAKPOINT AT EACH. ALL FUNCTIONS MUST BE PREVIOUSLY DEFINED. BOTH BREAK AND UNBREAK ARE DEFINED AS FEXPR'S SO THAT THEIR ARGUMENTS ARE NOT EVALUATED. WHEN A FUNCTION WHICH HAS A BREAKPOINT SET IS CALLED, THE MESSAGE ">>> ENTERING NAME TYPE ARGS" IS TYPED, WHERE "NAME" IS THE NAME OF THE FUNCTION, "TYPE" IS SUBR, FSUBR, EXPR, OR FEXPR, AND "ARGS" ARE THE NAMES OF THE ARGUMENTS. WHEN THE FUNCTION EXITS, THE MESSAGE ">>> EXITING NAME" IS TYPED. BOTH MESSAGES ARE FOLLOWED BY THE MESSAGE "LISTENING" AND LINES ARE READ AND PASSED TO EVAL UNTIL "T" IS ENTERED. THE ATOM "VALUE" WILL BE BOUND TO THE RESULT OF THE FUNCTION ON EXIT, AND THE ARGUMENTS WILL BE BOUND BOTH TIMES. CONDITIONAL BREAKPOINTS MAY BE SET BY MAKING ONE OF THE ARGUMENTS OF BREAK A LIST. CAR OF THE LIST IS THE NAME OF THE FUNCTION AND CADR OF THE LIST IS A CONDITION WHICH MUST BE TRUE FOR THE BREAKPOINT TO OCCUR. THE CONDITION IS TESTED WHEN THE FUNCTION IS CALLED. EXAMPLE: BREAK (FN (FN2 (EQ ARG1 1))) WILL ALWAYS BREAK AT FUNCTION FN AND BREAK AT FN2 IF ARG1 IS 1 (ASSUMING ARG1 IS THE FIRST ARGUMENT OF FN2). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00557/001 FLOATEST SA O FLOT MTS:FLOATEST D4T2 429 FLOATEST..SA.001 1 LINE 80 4 PAGE UM DWB JULY 28, 1977 02:51:21 MTS.:FLOATEST 0 PROGRAM TO TEST THAT FLOATING-POINT REGISTERS AND PROGRAM MASK ARE PRESERVED ACROSS ABNORMAL PROGRAM EXITS. DESIGNED TO BE RUN BOTH BY $RUN COMMAND AND UNDER CONTROL OF SDS ($DEBUG OR $SET DEBUG=ON AND $RUN). 00557/002 FLOATEST OC O MTS:FLOATEST.O D4T2 430 FLOATEST..OC.002 1 LINE 80 3 PAGE UM DWB JULY 28, 1977 02:51:23 MTS.:FLOATEST.O 00558/001B VIRTUAL MACHINE MAIN PGM SA G MTA:VMN.S RD16T1 107 VIRTUAL_MACHINE.MAIN_PGM.SA.001 1 LINE 72 75 PAGE UM MTA JULY 12, 1979 22:56:40 MTA.:VMN.S 0 PROGRAM TO PROVIDE A SYSTEM/360 OR SYSTEM/370 VIRTUAL MACHINE. USES ASSEMBLY PARAMETERS TO SELECT VIRTUAL 370, 360/67, OR STANDARD 360. ANY OPTION WILL RUN ON EITHER A 360/67 OR 370 REAL MACHINE. COPIES S2301 (558/4), *CNFGINFODSECT (654), V370.S (558/2), AND OC.S (558/3). AN ADDITIONAL ASSEMBLY PARAMETER IS PROVIDED TO PRODUCE A STUDENT VIRTUAL MACHINE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 472/1 00558/002 VIRTUAL MACHINE V370 SUPPORT SA G MTA:V370.S D4.1T1 334 VIRTUAL_MACHINE.V370_SUPP.SA.002 1 LINE 80 17 PAGE UM MTA MAY 13, 1978 17:43:20 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 D4.2T1 430 VIRTUAL_MACHINE.3066_SUPP.SA.003 1 LINE 68 6 PAGE UM MTA APR. 01, 1979 22:55:42 MTA.:OC.S 0 COPY SECTION CONTAINING THE 3066 SIMULATION CODE. 0 Referenced by comments of: 558/1 00558/004 VIRTUAL MACHINE 2301 SUPPORT SA G MTA:S2301 D4.2T1 431 VIRTUAL_MACHINE.2301_SUPP.SA.004 1 LINE 70 6 PAGE UM MTA APR. 01, 1979 22:55:43 MTA.:S2301 0 COPY SECTION CONTAINING VIRTUAL 2301 DRUM SUPPORT. THE DRUM IS SIMULATED USING VIRTUAL MEMORY. 0 Referenced by comments of: 558/1 00558/005 VIRTUAL MACHINE DEVICE LIST SA G MTA:V370DEV.UM(1,999) D4.2T1 432 VIRTUAL_MACHINE.DEVICE_LI.SA.005 1 LINE 64 1 PAGE UM MTA APR. 01, 1979 22:55:45 MTA.:V370DEV.UM 0 DEVICE LIST FOR UM 470 I/O CONFIGURATION. COPIES V370DEV.MAC (558/6). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00558/006 VIRTUAL MACHINE DEVLIST MACROS SM O MTA:V370DEV.MAC D4T2 436 VIRTUAL_MACHINE.DEVLIST_M.SM.006 1 LINE 69 3 PAGE UM MTA JULY 28, 1977 02:51:44 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/007B VIRTUAL MACHINE 370 OBJECT OC G MTA:V370 RD16T1 108 VIRTUAL_MACHINE.370_OBJEC.OC.007 1 LINE 11359 14 PAGE UM MTA JULY 12, 1979 22:56:48 MTA.:V370 0 OBJECT FOR UM VIRTUAL 370, I.E. 558/1 WITH Â&DUPLEX, Â&M67, Â&ST, AND &S370. 00558/008 VIRTUAL MACHINE WRITEUP P MTA:V67WRUP D4T2 439 VIRTUAL_MACHINE.WRITEUP.P.009 1 LINE 75 12 PAGE UM MTA JULY 28, 1977 02:51:52 MTA.:V67WRUP 0 WRITEUP TO BE COPIED TO A TN PRINTER. NOTE: WRITEUP IS NOT UP TO DATE. 00559/001 PISTLE *S2L C G *S2L D4.2T1 434 PISTLE.*S2L.C.001 1 LINE 88 1 PAGE UM SHERRY APR. 01, 1979 22:55:48 SEG2:*S2L 0 COMMAND FILE TO RUN PISTLE (POST-IPL SYSTEM LOADER). INVOKED BY INIT:INITCMD (097/2) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN SEG2:S2FILES. 0 Referenced by comments of: 97/2 00559/002 PISTLE SA G PIST W009:PISTLE.S D4.2T1 435 PISTLE..SA.002 1 LINE 80 28 PAGE UM SHERRY APR. 01, 1979 22:55:48 W009:PISTLE.S 0 PROGRAM TO LOAD THINGS INTO UNUSED AREA AT THE END OF SHARED VM. READS A LIST OF FILE NAMES (NORMALLY SEG2:S2FILES) FROM SCARDS WHICH CONTAIN THE OBJECT DECKS TO BE LOADED. UNLESS THE IPL OPTION IS GIVEN AFTER A FILE NAME, THE FILE MUST BEGIN WITH A LOADER "COM" CARD ON WHICH ENTRY POINT(S) TO THE MODULES IN THAT FILE ARE GIVEN. THESE NAMES WILL BE ADDED TO LCSYMBOL WHEN PISTLE FINISHES. IF PAR=NOTEST IS NOT GIVEN, PISTLE LOADS INTO PRIVATE VM AND DOES NOT CHANGE LCSYMBOL. IF PAR=NOTEST IS GIVEN AND SPRINT IS NOT ASSIGNED, PISTLE WILL DEFAULT THE SPRINT OUTPUT TO SEG2:S2MAP(*L+1). PISTLE ALLOWS PARAMETERS TO BE GIVEN AFTER THE FILE NAME ON INPUT LINES FROM SCARDS. ALLOWABLE PARAMETERS ARE: IPL USE LOADER TABLES GENERATED BY RAMROD. IPLCS USE LOADER TABLES GENERATED BY RAMROD, BUT ALSO DO LCSYMBOL INSERTIONS (FOR SYMBOLS GIVEN ON THE COM CARD). NOMAP SUPPRESS PRINTING OF MAP FOR THE LOADING OF THIS COMPONENT. NN SPECIFY STORAGE INDEX NUMBER TO BE USED FOR LOADING THIS COMPONENT. ALIGN ALLOCATE STORAGE ON HALF-PAGE BOUNDRY. THESE PARAMETERS ARE FULLY DESCRIBED IN THE PISTLE WRITEUP (559/5), WHICH ALSO 1 THU SEP 12/96 23:39:34 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 DOCUMENTS ALL CHANGES MADE SINCE THE LAST DISTRIBUTION. COPIES *CNFGINFODSECT. 0 Referenced by comments of: 4000/7 00559/003 PISTLE OC G SEG2:S2L D4.2T1 436 PISTLE..OC.003 1 LINE 5727 4 PAGE UM SHERRY APR. 01, 1979 22:55:50 SEG2:S2L 00559/004 PISTLE S2FILES D MTS:TST.S2FILES D4.2T1 437 PISTLE.S2FILES.D.004 1 LINE 19 1 PAGE UM DWB APR. 13, 1979 01:20:05 SEG2:S2FILES 0 A LIST OF FILES FROM WHICH PISTLE WILL LOAD PROGRAMS AT IPL. 0 Referenced by comments of: 387/9 00559/005 PISTLE WRITEUP WF W009:PISTLE.W D4.2T1 438 PISTLE.WRITEUP.WF.005 1 LINE 147 3 PAGE UM SHERRY APR. 01, 1979 22:55:52 W009:PISTLE.W 0 Referenced by comments of: 559/2 00559/006 PISTLE SETTIME SF G S0564 D4T2 VLO FSNAME=PISTLE.SETTIME.SF.006(1) 445 D4T2 445 PISTLE.SETTIME.SF.006 1 LINE 54 1 PAGE UM ENGLE AUG. 14, 1977 21:52:29 0 PROGRAM RUN BY *S2L TO CALL THE TIME SUBROUTINE (WITH PROTECT OFF) TO CAUSE IT TO INITIALIZE ITSELF. 00559/007 PISTLE SETTIME OC G SEG2:SETTIME D4T2 446 PISTLE.SETTIME.OC.007 1 LINE 146 1 PAGE UM ENGLE AUG. 14, 1977 21:52:30 SEG2:SETTIME 00559/008 PISTLE PRINTMAP SA G SEG2:PRINTMAP(1000) D4T2 447 PISTLE.PRINTMAP.SA.008 1 LINE 67 1 PAGE UM SHERRY AUG. 14, 1977 21:52:31 SEG2:PRINTMAP 0 PROGRAM TO SEE IF THE MAP PRODUCED BY PISTLE HAS CHANGED SINCE THE LAST SYSTEM RELOAD AND PRINT A MESSAGE TO THE OPERATOR IF IT HAS ADVISING THAT A NEW COPY OF THE MAP SHOULD BE PRINTED. 00559/009 PISTLE PRINTMAP OC G SEG2:PRINTMAP(1,999) D4T2 448 PISTLE.PRINTMAP.OC.009 1 LINE 80 1 PAGE UM SHERRY AUG. 14, 1977 21:52:31 00559/010 PISTLE S2MAP D # MTS:TST.S2MAP UM SHERRY SEG2:S2MAP 0 FILE WHERE PISTLE WRITES THE SYSTEM MAP. 00560 *TYPEIT C *TYPEIT D4T2 449 TYPEIT..C. 1 LINE 69 2 PAGE UM LIFT JULY 28, 1977 02:52:06 *TYPEIT 0 A $SOURCE FILE WHICH CAN BE USED TO AID IN THE PREPARATION OF MATERIAL PRODUCED IN 1 THU SEP 12/96 23:39:34 Page 243 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *FORMAT (308). WE HAVE ATTEMPTED TO DISTRIBUTE ALL *FORMAT MACHINE-READABLE DOCUMENTATION IN THE FORM OF DIRECT INPUT TO *FORMAT AND NOT IN THE FORM USED WITH *TYPEIT. 00561/001 *UNEDIT SA G WATF:UNEDIT(1,999) D4T2 450 UNEDIT..SA.001 1 LINE 80 14 PAGE UM MTA JULY 28, 1977 02:52:08 0 PROGRAM TO COMPARE THE CURRENT VERSION OF A LINE FILE WITH A PREVIOUS VERSION AND PRODUCE THE APPROPRIATE MTS EDITOR COMMANDS FOR TRANSFORMING THE OLD VERSION TO THE NEW, I.E. THIS PROGRAM PRODUCES AN "UPDATE" DECK WHICH IS IN EDITOR FORMAT RATHER THAN *UPDATE FORMAT. CALL SCANPAR SUBROUTINE (267/3). 0 Referenced by comments of: 267/3 00561/002 *UNEDIT OE G *UNEDIT D4T2 451 UNEDIT..OE.002 1 SEQ 2536 2 PAGE UM MTA JULY 28, 1977 02:52:10 *UNEDIT 00562/001 *UNLINKER SA G UNLK W062:UNLINKER.S D4.1T1 341 UNLINKER..SA.001 1 LINE 80 39 PAGE UM TIFFANY MAY 13, 1978 17:43:31 0 PROGRAM TO CHANGE OS/VS LOAD MODULES INTO MTS OBJECT DECKS. 0 Referenced by comments of: 291/1, 340/1 00562/002 *UNLINKER BLKRTN SUBR SA G BLKR W062:BLK.S D4.2T1 439 UNLINKER.BLKRTN_SUBR.SA.002 1 LINE 80 33 PAGE UM TIFFANY APR. 01, 1979 22:55:53 0 SUBROUTINE TO READ OS/VS IEBCOPY OR IEHMOVE TAPES. 0 Referenced by comments of: 291/1 00562/003 *UNLINKER OE G *UNLINKER D4.2T1 440 UNLINKER..OE.003 1 SEQ 8154 9 PAGE UM TIFFANY APR. 01, 1979 22:56:03 *UNLINKER 00563/001 CHAR MANIP SUBRS BTD SA BTD S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.BTD.SA.1(1) 316 D4T2 455 CHAR_MANIP_SUBRS.BTD.SA.001 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.19 0 THESE ARE THE UBC CHARACTER MANIPULATION SUBROUTINES. 00563/002 CHAR MANIP SUBRS LCOMC/COMC SA COMC W114:LCOMC D4T2 456 CHAR_MANIP_SUBRS.LCOMC/CO.SA.002 1 LINE 80 3 PAGE UBC GOODRICH JULY 28, 1977 02:53:01 00563/003 CHAR MANIP SUBRS DTB SA DTB S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.DTB.SA.3(1) 318 D4T2 457 CHAR_MANIP_SUBRS.DTB.SA.003 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.29 00563/004 CHAR MANIP SUBRS FINDC SA FINC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDC.SA.4(1) 319 D4T2 458 CHAR_MANIP_SUBRS.FINDC.SA.004 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.35 00563/005 CHAR MANIP SUBRS FINDST SA FINS S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDST.SA.5(1) 320 D4T2 459 CHAR_MANIP_SUBRS.FINDST.SA.005 1 LINE 80 4 PAGE UBC GOODRICH AUG. 01, 1973 23:11.40 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00563/006 CHAR MANIP SUBRS IGC SA IGC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.IGC.SA.6(1) 321 D4T2 460 CHAR_MANIP_SUBRS.IGC.SA.006 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.45 00563/007 CHAR MANIP SUBRS MOVEC SA MOVC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.MOVEC.SA.7(1) 322 D4T2 461 CHAR_MANIP_SUBRS.MOVEC.SA.007 1 LINE 80 1 PAGE UBC GOODRICH AUG. 01, 1973 23:11.51 00563/008 CHAR MANIP SUBRS SETC SA SETC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.SETC.SA.8(1) 323 D4T2 462 CHAR_MANIP_SUBRS.SETC.SA.008 1 LINE 80 1 PAGE UBC GOODRICH AUG. 01, 1973 23:11.58 00563/009 CHAR MANIP SUBRS TRNC SA TRNC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNC.SA.9(1) 324 D4T2 463 CHAR_MANIP_SUBRS.TRNC.SA.009 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:12.02 00563/010 CHAR MANIP SUBRS TRNST SA TRNS S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNST.SA.10(1) 325 D4T2 464 CHAR_MANIP_SUBRS.TRNST.SA.010 1 LINE 80 4 PAGE UBC GOODRICH AUG. 01, 1973 23:12.07 00563/011 CHAR MANIP SUBRS EQUC SA S0780 'D3.1T1' FSNAME=CHAR_MANIP_SUBRS.EQUC.SA.11(1) 420 D4T2 465 CHAR_MANIP_SUBRS.EQUC.SA.011 1 LINE 80 1 PAGE UBC GOODRICH MAR. 06, 1974 22:01.57 00563/012 CHAR MANIP SUBRS OBJECT OC # *LIBRARY (SEE COMP 524) UM GOODRICH 00564/001 SYMBOL XREF PROGRAM SA G MTA:SSXREF(1,999) D4T2 466 SYMBOL_XREF_PROGRAM..SA.001 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 02:53:57 MTA.:SSXREF 0 PROGRAM READS ASSEMBLY SOURCE PROGRAMS FROM SCARDS AND WRITES EACH LINE WHICH CONTAINS A SEQUENCE OR SET SYMBOL ON SPUNCH WITH THE SYMBOL PREFIXED TO THE BEGINNING OF THE LINE (FOR SORTING). ASSEMBLE USING *SYSMAC. 00564/002 SYMBOL XREF PROGRAM OC G MTA:SSXREF(1000) D4T2 467 SYMBOL_XREF_PROGRAM..OC.002 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 02:53:58 00565/001B STOR PROTECT DIAGNOSTIC SA G MTS:TESTPROTECT(1,999) RD16T1 109 STOR_PROTECT_DIAGNOSTIC..SA.001 1 LINE 60 3 PAGE UM MTA JULY 12, 1979 22:56:50 0 HARDWARE STORAGE PROTECT DIAGNOSTIC TO TEST ALL OF CORE ABOVE X'1000'. PSW RESTART WILL RERUN THE TEST. ASSUMES A 1052 TYPEWRITER AT ADDRESS 740. IBM DOESN'T SEEM TO PROVIDE A DIAGNOSTIC TO PERFORM THE FUNCTIONS PROVIDED BY THIS PROGRAM. THE FOLLOWING ERRORS ARE REPORTED BY NUMBER ALONG WITH THE FAILING ADDRESS: 1. INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 10. 2. KEY NOT EQUAL TO 14 AFTER TEST 1. 3. NO INTERRUPT ON STORE WITH PSW KEY 2 AND STORAGE KEY 10. 4. KEY NOT EQUAL TO 16 AFTER TEST 3. 5. STORAGE CHANGED AFTER TEST 3 OR INTERRUPT LOOKING. 6. NO INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 18. 7. KEY NOT EQUAL TO 1C AFTER TEST 6. 8. INTERRUPT ON LOAD WITH PSW KEY 1 AND STORAGE KEY 18. 9. KEY NOT EQUAL TO 1C AFTER TEST 8. 10. INTERRUPT ON STORE WITH PSW KEY 1 AND STORAGE KEY 18. 11. STORAGE NOT CHANGED CORRECTLY AFTER TEST 10 OR INTERRUPT LOOKING. 12. KEY NOT EQUAL TO 1E AFTER TEST 10. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00565/002B STOR PROTECT DIAGNOSTIC OC G MTS:TESTPROTECT(1000) RD16T1 110 STOR_PROTECT_DIAGNOSTIC..OC.002 1 LINE 80 1 PAGE UM MTA JULY 12, 1979 22:56:50 0 NEEDS AN ABSOLUTE LOADER. IPL ON A REAL OR VIRTUAL MACHINE. 00566/001 *PIL MACLIB SM G S0543 MTSPIL 'MTSPIL2' POSN=MACLIB 1 D4T2 470 PIL.MACLIB.SM.001 1 SEQ 80 14 PAGE UM TIFFANY JULY 28, 1977 02:54:18 0 *PIL IS LATEST VERSION OF THE PITTSBURGH INTERPRETIVE LANGUAGE. NOTE: MACLIB IS THE ONLY MACRO LIBRARY USED IN ASSEMBLING *PIL. 00566/002 *PIL DSECT SA G S0543 MTSPIL 'MTSPIL2' POSN=DSECT 2 D4T2 471 PIL.DSECT.SA.002 1 SEQ 80 4 PAGE UM TIFFANY JULY 28, 1977 02:54:19 0 COMPS 566/2 THROUGH 566/10 ARE COPY SECTIONS. 00566/003 *PIL EQUS SA G S0543 MTSPIL 'MTSPIL2' POSN=EQUS 3 D4T2 472 PIL.EQUS.SA.003 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:21 00566/004 *PIL EVOUTPUT SA G S0543 MTSPIL 'MTSPIL2' POSN=EVOUTPUT 4 D4T2 473 PIL.EVOUTPUT.SA.004 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:23 00566/005 *PIL FORMDS SA G S0543 MTSPIL 'MTSPIL2' POSN=FORMDS 5 D4T2 474 PIL.FORMDS.SA.005 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:25 00566/006 *PIL KEYCODES SA G S0543 MTSPIL 'MTSPIL2' POSN=KEYCODES 6 D4T2 475 PIL.KEYCODES.SA.006 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:27 00566/007 *PIL PARTDS SA G S0543 MTSPIL 'MTSPIL2' POSN=PARTDS 7 D4T2 476 PIL.PARTDS.SA.007 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:29 00566/008 *PIL SCRDS SA G S0543 MTSPIL 'MTSPIL2' POSN=SCRDS 8 D4T2 477 PIL.SCRDS.SA.008 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:31 00566/009 *PIL STACKDS SA G S0543 MTSPIL 'MTSPIL2' POSN=STACKDS 9 D4T2 478 PIL.STACKDS.SA.009 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:33 00566/010 *PIL STEPDS SA G S0543 MTSPIL 'MTSPIL2' POSN=STEPDS 10 D4T2 479 PIL.STEPDS.SA.010 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:54:35 00566/011 *PIL PILL SA G S0543 MTSPIL 'MTSPIL2' POSN=PILL 56 D4T2 480 PIL.PILL.SA.011 1 LINE 80 5 PAGE UM TIFFANY MAY 21, 1976 11:24:40 0 COMPS 566/11 THROUGH 566/48 ARE THE ASMG SOURCE FOR *PIL. 00566/012 *PIL READIT SA G S0543 MTSPIL 'MTSPIL2' POSN=READIT.D4 49 D4T2 481 PIL.READIT.SA.012 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:57:02 00566/013 *PIL TYPEIT SA G S0543 MTSPIL 'MTSPIL2' POSN=TYPEIT 13 D4T2 482 PIL.TYPEIT.SA.013 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:57:14 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00566/014 *PIL PAGEMSG SA G S0543 MTSPIL 'MTSPIL2' POSN=PAGEMSG 14 D4T2 483 PIL.PAGEMSG.SA.014 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:57:15 00566/015 *PIL CANIT SA G S0543 MTSPIL 'MTSPIL2' POSN=CANIT 15 D4T2 484 PIL.CANIT.SA.015 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:57:17 00566/016 *PIL PIL2 SA G S0543 MTSPIL 'MTSPIL2' POSN=PIL2.D4 50 D4T2 485 PIL.PIL2.SA.016 1 SEQ 80 11 PAGE UM TIFFANY JULY 28, 1977 02:57:34 00566/017 *PIL DSBRK SA G S0543 MTSPIL 'MTSPIL2' POSN=DSBRK 17 D4T2 486 PIL.DSBRK.SA.017 1 SEQ 80 8 PAGE UM TIFFANY JULY 28, 1977 02:57:48 00566/018 *PIL BKDOWN SA G S0543 MTSPIL 'MTSPIL2' POSN=BKDOWN 18 D4T2 487 PIL.BKDOWN.SA.018 1 SEQ 80 21 PAGE UM TIFFANY JULY 28, 1977 02:57:49 00566/019 *PIL FORMPROC SA G S0543 MTSPIL 'MTSPIL2' POSN=FORMPROC 19 D4T2 488 PIL.FORMPROC.SA.019 1 SEQ 80 44 PAGE UM TIFFANY JULY 28, 1977 02:57:53 00566/020 *PIL PILSQRT SA G S0543 MTSPIL 'MTSPIL2' POSN=PILSQRT 20 D4T2 489 PIL.PILSQRT.SA.020 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:57:54 00566/021 *PIL PILATAN SA G S0543 MTSPIL 'MTSPIL2' POSN=PILATAN 21 D4T2 490 PIL.PILATAN.SA.021 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:57:56 00566/022 *PIL PILSINE SA G S0543 MTSPIL 'MTSPIL2' POSN=PILSINE 22 D4T2 491 PIL.PILSINE.SA.022 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:57:58 00566/023 *PIL PILLOGE SA G S0543 MTSPIL 'MTSPIL2' POSN=PILLOGE 23 D4T2 492 PIL.PILLOGE.SA.023 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:58:00 00566/024 *PIL PILETX SA G S0543 MTSPIL 'MTSPIL2' POSN=PILETX 24 D4T2 493 PIL.PILETX.SA.024 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:58:03 00566/025 *PIL LOOKPS SA G S0543 MTSPIL 'MTSPIL2' POSN=LOOKPS 25 D4T2 494 PIL.LOOKPS.SA.025 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:58:05 00566/026 *PIL WANT16 SA G S0543 MTSPIL 'MTSPIL2' POSN=WANT16 57 D4T2 495 PIL.WANT16.SA.026 1 LINE 80 4 PAGE UM TIFFANY MAY 21, 1976 11:26:01 00566/027 *PIL MOVPOL SA G S0543 MTSPIL 'MTSPIL2' POSN=MOVPOL 27 D4T2 496 PIL.MOVPOL.SA.027 1 SEQ 80 4 PAGE UM TIFFANY JULY 28, 1977 02:58:09 00566/028 *PIL FORTROL SA G S0543 MTSPIL 'MTSPIL2' POSN=FORTROL 28 D4T2 497 PIL.FORTROL.SA.028 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:58:11 00566/029 *PIL RETHEAD SA G S0543 MTSPIL 'MTSPIL2' POSN=RETHEAD 29 D4T2 498 PIL.RETHEAD.SA.029 1 SEQ 80 5 PAGE UM TIFFANY JULY 28, 1977 02:58:13 00566/030 *PIL TALPL SA G S0543 MTSPIL 'MTSPIL2' POSN=TALPL 30 D4T2 499 PIL.TALPL.SA.030 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:58:15 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00566/031 *PIL CONVERT SA G S0543 MTSPIL 'MTSPIL2' POSN=CONVERT 31 D4T2 500 PIL.CONVERT.SA.031 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:58:17 00566/032 *PIL STEPMESS SA G S0543 MTSPIL 'MTSPIL2' POSN=STEPMESS 32 D4T2 501 PIL.STEPMESS.SA.032 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:58:19 00566/033 *PIL FUNCS SA G S0543 MTSPIL 'MTSPIL2' POSN=FUNCS.D4 51 D4T2 502 PIL.FUNCS.SA.033 1 SEQ 80 30 PAGE UM TIFFANY JULY 28, 1977 02:58:32 00566/034 *PIL LOPL SA G S0543 MTSPIL 'MTSPIL2' POSN=LOPL 34 D4T2 503 PIL.LOPL.SA.034 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:58:43 00566/035 *PIL DELVALS SA G S0543 MTSPIL 'MTSPIL2' POSN=DELVALS.D4 54 D4T2 504 PIL.DELVALS.SA.035 1 SEQ 80 25 PAGE UM TIFFANY JULY 28, 1977 02:58:56 00566/036 *PIL XFORMX SA G S0543 MTSPIL 'MTSPIL2' POSN=XFORMX 36 D4T2 505 PIL.XFORMX.SA.036 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:59:09 00566/037 *PIL EXTRANS SA G S0543 MTSPIL 'MTSPIL2' POSN=EXTRANS 37 D4T2 506 PIL.EXTRANS.SA.037 1 SEQ 80 3 PAGE UM TIFFANY JULY 28, 1977 02:59:09 00566/038 *PIL TYPEPS SA G S0543 MTSPIL 'MTSPIL2' POSN=TYPEPS.D4 52 D4T2 507 PIL.TYPEPS.SA.038 1 SEQ 80 15 PAGE UM TIFFANY JULY 28, 1977 02:59:20 00566/039 *PIL XPRES SA G S0543 MTSPIL 'MTSPIL2' POSN=XPRES 39 D4T2 508 PIL.XPRES.SA.039 1 SEQ 80 19 PAGE UM TIFFANY JULY 28, 1977 02:59:31 00566/040 *PIL MINDIR SA G S0543 MTSPIL 'MTSPIL2' POSN=MINDIR 40 D4T2 509 PIL.MINDIR.SA.040 1 SEQ 80 5 PAGE UM TIFFANY JULY 28, 1977 02:59:32 00566/041 *PIL HEADINS SA G S0543 MTSPIL 'MTSPIL2' POSN=HEADINS 41 D4T2 510 PIL.HEADINS.SA.041 1 SEQ 80 1 PAGE UM TIFFANY JULY 28, 1977 02:59:34 00566/042 *PIL STROP SA G S0543 MTSPIL 'MTSPIL2' POSN=STROP 42 D4T2 511 PIL.STROP.SA.042 1 SEQ 80 15 PAGE UM TIFFANY JULY 28, 1977 02:59:36 00566/043 *PIL SETUP SA G S0543 MTSPIL 'MTSPIL2' POSN=SETUP 43 D4T2 512 PIL.SETUP.SA.043 1 SEQ 80 6 PAGE UM TIFFANY JULY 28, 1977 02:59:38 00566/044 *PIL SPLIT SA G S0543 MTSPIL 'MTSPIL2' POSN=SPLIT 44 D4T2 513 PIL.SPLIT.SA.044 1 SEQ 80 2 PAGE UM TIFFANY JULY 28, 1977 02:59:40 00566/045 *PIL FORBREAK SA G S0543 MTSPIL 'MTSPIL2' POSN=FORBREAK.D4 55 D4T2 514 PIL.FORBREAK.SA.045 1 SEQ 80 10 PAGE UM TIFFANY JULY 28, 1977 02:59:50 00566/046 *PIL EVAL SA G S0543 MTSPIL 'MTSPIL2' POSN=EVAL.D4 53 D4T2 515 PIL.EVAL.SA.046 1 SEQ 80 28 PAGE UM TIFFANY JULY 28, 1977 02:59:55 00566/047 *PIL TYPARRY SA G S0543 MTSPIL 'MTSPIL2' POSN=TYPARRY 47 D4T2 516 PIL.TYPARRY.SA.047 1 SEQ 80 12 PAGE UM TIFFANY JULY 28, 1977 03:00:03 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00566/048 *PIL PROCESS SA G S0543 MTSPIL 'MTSPIL2' POSN=PROCESS 48 D4T2 517 PIL.PROCESS.SA.048 1 SEQ 80 51 PAGE UM TIFFANY JULY 28, 1977 03:00:07 00566/049B *PIL *PIL OC G *PIL RD16T1 111 PIL.*PIL.OC.049 1 LINE 256 20 PAGE UM TIFFANY JULY 12, 1979 22:56:51 *PIL 0 ***************************************************************************** RD16 CHANGES: NO LONGER IN SEGMENT 2. ***************************************************************************** 00566/050 *PIL PLM WT G S0543 MTSPIL 'MTSPIL2' POSN=PILMASTER D4T2 520 PIL.PLM.WT.051 1 LINE 256 37 PAGE UM TIFFANY JULY 28, 1977 03:00:13 0 TEXT/360 MASTER FILE FOR WRITEUP DESCRIBING THE INTERNAL STRUCTURE OF PIL/2 FOR PROSPECTIVE DEVELOPERS. 00567/001 *1052RTN SA O S0564 D4T2 VLO FSNAME=1052RTN..SA.001(1) 521 D4T2 521 1052RTN..SA.001 1 LINE 80 40 PAGE UM MTA JULY 28, 1977 03:00:16 0 MTS DEVICE SUPPORT ROUTINES FOR 1052 OPERATOR'S CONSOLE. ALLOWS USE OF 1052 CONSOLE OR 2150 AS AN MTS TERMINAL. AWRITE AND HALTIO ENTRIES ADDED BUT NOT TESTED. ASSEMBLE USING COPY:MTS.MACROS (344/3). 00567/002 *1052RTN OC O *1052RTN D4T2 522 1052RTN..OC.002 1 LINE 80 4 PAGE UM MTA JULY 28, 1977 03:00:21 *1052RTN 00568 *TIMETALLY # (OBSOLETED BY SDS) D3.2T1 492 TIMETALLY..SA.01 1 LINE 80 45 PAGE UM MAR. 21, 1975 01:53:09 00569 PCE SNIFFER # (SEE COMP 387) UM 00570/001B *MNETRTN SA G MNET W267:MNETRTN.S(1) RD16T1 112 MNETRTN..SA.001 1 LINE 80 83 PAGE UM EADIE JULY 12, 1979 22:56:53 0 MTS DEVICE SUPPORT ROUTINES FOR THE MERIT COMPUTER NETWORK INTERACTIVE SERVICE. COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), AND COPY:GLOBALSETS (1026/2). ASSEMBLE USING *SYSMAC (225/2) AND COPY:MTS.MACROS (344/3). 00570/002B *MNETRTN OC G *MNETRTN RD16T1 113 MNETRTN..OC.002 1 LINE 10469 7 PAGE UM EADIE JULY 12, 1979 22:59:19 *MNETRTN 00570/003 *MNETRTN ASCII XLATE SA G MASC S0792 WSGFS FSNAME=MNET.TABLES D4T2 525 MNETRTN.ASCII_XLATE.SA.003 1 LINE 80 4 PAGE UM EADIE FEB. 05, 1976 00:43:33 0 MERIT ASCII/EBCDIC TRANSLATE TABLES MASCEBC AND EBCMASC WHICH ARE USED BOTH BY THE MERIT DSR AND HASP (387). 0 Referenced by comments of: 387/9 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00570/004 *MNETRTN ASCII XLATE OC G # (PART OF 387/13) UM EADIE 00571/001 APL LIBRARY WS ADVANCEDE D APL:001ADVANCEDE D4T2 526 APL_LIBRARY_WS.ADVANCEDE.D.001 1 LINE 255 6 PAGE UM HELFFRICH JULY 28, 1977 03:00:56 APL.:001ADVANCEDE 0 THE APL LIBRARY WORKSPACES MUST BE RESTORED AS FILES UNDER USER ID "APL." USING AS FILE NAMES THE 3 DIGIT (WITH LEADING ZEROS) LIBRARY FILE NUMBER FOLLOWED BY THE WORKSPACE NAME, I.E., USE THE SAME NAMES AS WERE USED TO GENERATE THE DISTRIBUTION TAPE. 00571/002 APL LIBRARY WS APLCOURSE D APL:001APLCOURSE D4T2 527 APL_LIBRARY_WS.APLCOURSE.D.002 1 LINE 255 6 PAGE UM HELFFRICH JULY 28, 1977 03:00:59 APL.:001APLCOURSE 00571/003 APL LIBRARY WS CLASS D APL:001CLASS D4T2 528 APL_LIBRARY_WS.CLASS.D.003 1 LINE 255 7 PAGE UM HELFFRICH JULY 28, 1977 03:01:01 APL.:001CLASS 00571/004 APL LIBRARY WS NEWS D APL:001NEWS D4.1T1 343 APL_LIBRARY_WS.NEWS.D.004 1 SEQ 28136 8 PAGE UM HELFFRICH MAY 13, 1978 17:43:35 APL.:001NEWS 00571/005 APL LIBRARY WS OLDNEWS D APL:_OLDNEWS D4.2T1 443 APL_LIBRARY_WS.OLDNEWS.D.005 1 SEQ 28284 8 PAGE UM HELFFRICH APR. 01, 1979 22:56:13 APL.:_OLDNEWS 0 THE WORKSPACE 1 NEWS (751/4) WITH THE BIG VARIABLES REMOVED. 00571/006 APL LIBRARY WS PLOTFORMA D APL:001PLOTFORMA D4T2 530 APL_LIBRARY_WS.PLOTFORMA.D.005 1 LINE 255 6 PAGE UM HELFFRICH JULY 28, 1977 03:01:06 APL.:001PLOTFORMA 00571/007 APL LIBRARY WS TYPEDRILL D APL:001TYPEDRILL D4T2 531 APL_LIBRARY_WS.TYPEDRILL.D.006 1 LINE 255 4 PAGE UM HELFFRICH JULY 28, 1977 03:01:08 APL.:001TYPEDRILL 00571/008 APL LIBRARY WS WSFNS D APL:001WSFNS D4T2 532 APL_LIBRARY_WS.WSFNS.D.007 1 LINE 255 3 PAGE UM HELFFRICH JULY 28, 1977 03:01:11 APL.:001WSFNS 00571/009 APL LIBRARY WS EIGENVALUE D APL:001EIGENVALUE D4T2 533 APL_LIBRARY_WS.EIGENVALUE.D.008 1 SEQ 12980 4 PAGE UM HELFFRICH JULY 28, 1977 03:01:13 APL.:001EIGENVALU 00571/010 APL LIBRARY WS BRFNS D APL:001BRFNS D4.2T1 444 APL_LIBRARY_WS.BRFNS.D.010 1 SEQ 8044 3 PAGE UM HELFFRICH APR. 01, 1979 22:56:14 APL.:001BRFNS 00571/011 APL LIBRARY WS CATALOG D APL:002CATALOG D4T2 534 APL_LIBRARY_WS.CATALOG.D.009 1 LINE 255 4 PAGE UM HELFFRICH JULY 28, 1977 03:01:16 APL.:002CATALOG 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00571/012 APL LIBRARY WS STP1 D APL:002STP1 D4T2 535 APL_LIBRARY_WS.STP1.D.010 1 LINE 255 9 PAGE UM HELFFRICH JULY 28, 1977 03:01:18 APL.:002STP1 00571/013 APL LIBRARY WS STP2 D APL:002STP2 D4T2 536 APL_LIBRARY_WS.STP2.D.011 1 LINE 255 6 PAGE UM HELFFRICH JULY 28, 1977 03:01:21 APL.:002STP2 00571/014 APL LIBRARY WS STP3 D APL:002STP3 D4T2 537 APL_LIBRARY_WS.STP3.D.012 1 LINE 255 4 PAGE UM HELFFRICH JULY 28, 1977 03:01:23 APL.:002STP3 00571/015 APL LIBRARY WS STP4 D APL:002STP4 D4T2 538 APL_LIBRARY_WS.STP4.D.013 1 LINE 255 9 PAGE UM HELFFRICH JULY 28, 1977 03:01:25 APL.:002STP4 00571/016 APL LIBRARY WS STP5 D APL:002STP5 D4T2 539 APL_LIBRARY_WS.STP5.D.014 1 LINE 255 4 PAGE UM HELFFRICH JULY 28, 1977 03:01:28 APL.:002STP5 00571/017 APL LIBRARY WS STP6 D APL:002STP6 D4T2 540 APL_LIBRARY_WS.STP6.D.015 1 LINE 255 5 PAGE UM HELFFRICH JULY 28, 1977 03:01:30 APL.:002STP6 00571/018 APL LIBRARY WS STP7 D APL:002STP7 D4T2 541 APL_LIBRARY_WS.STP7.D.016 1 LINE 255 4 PAGE UM HELFFRICH JULY 28, 1977 03:01:32 APL.:002STP7 00571/019 APL LIBRARY WS STP8 D APL:002STP8 D4T2 542 APL_LIBRARY_WS.STP8.D.017 1 LINE 255 5 PAGE UM HELFFRICH JULY 28, 1977 03:01:34 APL.:002STP8 00571/020 APL LIBRARY WS COMPLEX D APL:003COMPLEX D4T2 543 APL_LIBRARY_WS.COMPLEX.D.018 1 LINE 255 4 PAGE UM HELFFRICH JULY 28, 1977 03:01:37 APL.:003COMPLEX 00571/021 APL LIBRARY WS INDEX D APL:003INDEX D4T2 544 APL_LIBRARY_WS.INDEX.D.019 1 LINE 255 4 PAGE UM HELFFRICH JULY 28, 1977 03:01:39 APL.:003INDEX 00571/022 APL LIBRARY WS UTIL D APL:003UTIL D4T2 545 APL_LIBRARY_WS.UTIL.D.020 1 LINE 255 3 PAGE UM HELFFRICH JULY 28, 1977 03:01:42 APL.:003UTIL 00571/023 APL LIBRARY WS ALGFORM D APL:005ALGFORM D4T2 546 APL_LIBRARY_WS.ALGFORM.D.021 1 LINE 255 6 PAGE UM HELFFRICH JULY 28, 1977 03:01:44 APL.:005ALGFORM 00571/024 APL LIBRARY WS COGO D APL:005COGO D4T2 547 APL_LIBRARY_WS.COGO.D.022 1 LINE 255 9 PAGE UM HELFFRICH JULY 28, 1977 03:01:46 APL.:005COGO 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00571/025 APL LIBRARY WS COMPCENT D APL:005COMPCENT D4T2 548 APL_LIBRARY_WS.COMPCENT.D.023 1 LINE 255 3 PAGE UM HELFFRICH JULY 28, 1977 03:01:49 APL.:005COMPCENT 00571/026 APL LIBRARY WS CW D APL:005CW D4T2 549 APL_LIBRARY_WS.CW.D.024 1 LINE 255 7 PAGE UM HELFFRICH JULY 28, 1977 03:01:51 APL.:005CW 00571/027 APL LIBRARY WS EDIT D APL:005EDIT D4T2 550 APL_LIBRARY_WS.EDIT.D.025 1 LINE 255 7 PAGE UM HELFFRICH JULY 28, 1977 03:01:54 APL.:005EDIT 00571/028 APL LIBRARY WS MATRIXALG D APL:005MATRIXALG D4T2 551 APL_LIBRARY_WS.MATRIXALG.D.026 1 LINE 255 8 PAGE UM HELFFRICH JULY 28, 1977 03:01:56 APL.:005MATRIXALG 00571/029 APL LIBRARY WS SNOBOL D APL:005SNOBOL D4T2 552 APL_LIBRARY_WS.SNOBOL.D.027 1 LINE 255 6 PAGE UM HELFFRICH JULY 28, 1977 03:01:58 APL.:005SNOBOL 00571/030 APL LIBRARY WS SRADEMO D APL:005SRADEMO D4T2 553 APL_LIBRARY_WS.SRADEMO.D.028 1 LINE 255 9 PAGE UM HELFFRICH JULY 28, 1977 03:02:01 APL.:005SRADEMO 00571/031 APL LIBRARY WS KINGDOM D APL:006KINGDOM D4T2 554 APL_LIBRARY_WS.KINGDOM.D.029 1 SEQ 17208 5 PAGE UM HELFFRICH JULY 28, 1977 03:02:03 APL.:006KINGDOM 0 XM6 APL REWORK OF ALBERTA'S SV APL 'KINGDOM' SIMULATION GAME. 00571/032 APL LIBRARY WS TESTS D APL:999TESTS D4T2 555 APL_LIBRARY_WS.TESTS.D.030 1 SEQ 3080 2 PAGE UM HELFFRICH JULY 28, 1977 03:02:06 APL.:999TESTS 0 WORKSPACE INTENDED FOR PROVIDING A TEST FACILITY FOR THE TRIAL OF NEW APL DEVICES. 00572/001B BLOKLETR SUBR SA G BKLT DWB:BLOKLETR.S RD16T1 114 BLOKLETR_SUBR..SA.001 1 LINE 80 10 PAGE UM DWB JULY 12, 1979 22:59:21 DWB.:BLOKLETR.S 0 SUBROUTINE CALLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS. ******************************************************************** RD16 CHANGES: LOWERCASE LETTERS ADDED, COMPLIMENTS OF TOM VALERIO. ******************************************************************** 0 Referenced by comments of: 555/2 00572/002B BLOKLETR SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00573/001 MTS VOLUME 5 MASTER WT S0451 MTSV5 'MTS MANUALS' POSN=NEWM5.V5 D4.2T1 445 MTS_VOLUME_5.MASTER.WT.001 1 SEQ 132 253 PAGE UM MANUAL APR. 01, 1979 22:57:30 0 TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" OF THE UM MTS MANUALS (JUNE 1976, UPDATED OCTOBER 1977 AND FEBRUARY 1979). EDITOR: RICHARD A. SALISBURY 00573/002 MTS VOLUME 5 PRINT PT S0451 MTSV5 'MTS MANUALS' POSN=PRINT5.V5 D4.2T1 446 MTS_VOLUME_5.PRINT.PT.002 1 SEQ 132 410 PAGE UM MANUAL APR. 01, 1979 22:57:42 0 TEXT/360 PRINT FILE. 00573/003 MTS VOLUME 5 LOADER MAP P S0451 MTSV5 'MTS MANUALS' POSN=V5LOADERMAP.2 D4.1T1 346 MTS_VOLUME_5.LOADER_MAP.P.003 1 SEQ 128 2 PAGE UM MANUAL MAY 13, 1978 17:47:12 0 PRINTED OUTPUT FOR THE EXAMPLE LOADER MAP IN VOLUME 5. 00573/004 MTS VOLUME 5 INDEX SOURCE D S0451 MTSV5 'MTS MANUALS' POSN=V5INDEXSOU.4 D4.2T1 447 MTS_VOLUME_5.INDEX_SOURCE.D.004 1 SEQ 148 6 PAGE UM MANUAL APR. 01, 1979 22:57:48 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 5. 00573/005 MTS VOLUME 5 UPDATE 1 PT W073:TNLV5.OCT77 D4.2T1 448 MTS_VOLUME_5.UPDATE_1.PT.005 1 LINE 106 155 PAGE UM MANUAL APR. 01, 1979 22:57:49 0 THIS IS COMPUTING CENTER MEMO 368 -- "UPDATE 1 TO MTS VOLUME 5" (OCTOBER 1977). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00573/006 MTS VOLUME 5 UPDATE 2 PT W073:TNLV5.FEB79 D4.2T1 449 MTS_VOLUME_5.UPDATE_2.PT.006 1 LINE 122 106 PAGE UM MANUAL APR. 01, 1979 22:58:02 0 THIS IS COMPUTING CENTER MEMO 398 -- "UPDATE 2 TO MTS VOLUME 5" (OCTOBER 1977). COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00574/001 MTS VOLUME 10 MASTER WT S0546 MTSV10 'MTS MANUALS' POSN=NEWM2.V10 D4T2 561 MTS_VOLUME_10.MASTER.WT.001 1 SEQ 132 174 PAGE UM MANUAL JULY 28, 1977 03:05:05 0 TEXT/360 MASTER FOR VOLUME 10 "BASIC IN MTS" OF THE UM MTS MANUALS (SEPTEMBER 1974). EDITOR: EDWARD J. FRONCZAK 00574/002 MTS VOLUME 10 OUTPUT P S0546 MTSV10 'MTS MANUALS' POSN=VOL10SEPT74 D4T2 562 MTS_VOLUME_10.OUTPUT.P.002 1 SEQ 132 327 PAGE UM MANUAL JULY 28, 1977 03:05:27 0 THIS FILE SHOULD BE COPIED DIRECTLY TO A PRINTER @MCC. IT IS NOT A TEXT/360 PRINT FILE; IT IS THE OUTPUT FROM *PRINT WITH AN INDEX INSERTED. 00575/001 MTS VOLUME 4 MASTER WT S0616 MTSV4 'MTS MANUALS' POSN=NEWM4.V4 D4T2 563 MTS_VOLUME_4.MASTER.WT.001 1 SEQ 132 215 PAGE UM MANUAL JULY 28, 1977 03:06:55 0 TEXT/360 MASTER FOR VOLUME 4 "TERMINALS AND TAPES" OF THE UM MTS MANUALS (AUGUST 1974, UPDATED OCT 1976 AND JAN 1977). 1 THU SEP 12/96 23:39:34 Page 253 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 EDITOR: RICHARD A. SALISBURY 00575/002 MTS VOLUME 4 PRINT PT S0616 MTSV4 'MTS MANUALS' POSN=PRINT4.V4 D4T2 564 MTS_VOLUME_4.PRINT.PT.002 1 SEQ 132 338 PAGE UM MANUAL JULY 28, 1977 03:07:15 0 TEXT/360 PRINT FILE. 00575/003 MTS VOLUME 4 KEYBOARD PLOT SF W032:KBDPLOTSOU D4T2 565 MTS_VOLUME_4.KEYBOARD_PLO.SF.003 1 LINE 80 11 PAGE UM MANUAL EMERY JULY 28, 1977 03:07:22 0 FORTRAN PROGRAM TO PRODUCE THE CALCOMP KEYBOARD PLOTS USED IN THE MEMOREX 1270 (IBM 2703) USERS' GUIDE IN VOLUME 4. REQUIRES THE CALCOMP ROUTINES PALPHA, PSYM, AND PSMLEN. USES EBCDDEFN (038/9) AND GOLFPTTC (038/10) (OR GOLFCORR (038/11)) AS INPUT DURING EXECUTION. ALSO USES KBDPALPHA (575/4). OBJECT NOT DISTRIBUTED. 0 Referenced by comments of: 575/4 00575/004 MTS VOLUME 4 KBDPALPHA D W032:KBDPALPHA D4T2 566 MTS_VOLUME_4.KBDPALPHA.D.004 1 LINE 1053 1 PAGE UM MANUAL EMERY JULY 28, 1977 03:07:24 0 DATA FILE CONTAINING CHARACTER DEFINITIONS FOR THE MTS VOLUME 4 KEYBOARD PLOTS. FILE CONSISTS OF THREE LINES OF BINARY DATA AND IS REFERENCED VIA CALL PALPHA('W032:KBDPALPHA',1,&N) IN THE KEYBOARD PLOT PROGRAM (575/3). 0 Referenced by comments of: 575/3 00575/005 MTS VOLUME 4 INDEX SOURCE D S0616 MTSV4 'MTS MANUALS' POSN=V4INDEXSOU D4.2T1 450 MTS_VOLUME_4.INDEX_SOURCE.D.005 1 SEQ 254 9 PAGE UM MANUAL APR. 01, 1979 22:59:11 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 4. 00575/006 MTS VOLUME 4 UPDATE 1 PT W073:TNLV4.OCT76 D4.2T1 451 MTS_VOLUME_4.UPDATE_1.PT.006 1 LINE 105 64 PAGE UM MANUAL APR. 01, 1979 22:59:12 0 THIS IS COMPUTING CENTER MEMO 340 -- "UPDATE 1 TO MTS VOLUME 4," (OCTOBER 1976). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00575/007 MTS VOLUME 4 UPDATE 2 PT W073:TNLV4.JAN77 D4.2T1 452 MTS_VOLUME_4.UPDATE_2.PT.007 1 LINE 106 144 PAGE UM MANUAL APR. 01, 1979 22:59:22 0 THIS IS COMPUTING CENTER MEMO 346 -- "UPDATE 2 TO MTS VOLUME 4," (JANUARY 1977). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00576/001 CVTOMR SA G COMR DWB:CVTOMR.D3(1,999) D4T2 567 CVTOMR..SA.001 1 LINE 80 15 PAGE UM DWB JULY 28, 1977 03:07:26 DWB.:CVTOMR.D3 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). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00576/002 CVTOMR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 0 Referenced by comments of: 86/2 00577/001 MACHINE CHECK RECOVERY 360/67 SA G # (OBSOLETE) D4T2 568 MACHINE_CHECK_RECOVERY.67.SA.001 1 LINE 80 19 PAGE UM FEB. 13, 1975 23:51:55 0 THE MTS 360/67 MACHINE CHECK ERROR RECOVERY. MODIFIED (AND DEBUGGED) FROM TSS/360 BY UBC AND UM. 00577/002B MACHINE CHECK RECOVERY 370 MCHCCH SA G MTA:MCHCCH.S RD16T1 115 MACHINE_CHECK_RECOVERY.37.SA.002 1 LINE 80 13 PAGE UM MTA JULY 12, 1979 22:59:22 MTA.:MCHCCH.S 0 370 MODEL-INDEPENDENT MACHINE AND CHANNEL CHECK HANDLER. ASSEMBLE USING COPY:SETPARM (653), *SYSMAC, AND MCHMAC (577/6). COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CMDAREADSECT (531/18), COPY:GLOBALS (1026/3), AND COPY:BJPDSCT (650/3). 0 Referenced by comments of: 577/7, 589/2, 655/2 00577/003B MACHINE CHECK RECOVERY 370 MCHCCH OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00577/004 MACHINE CHECK RECOVERY 370 LOGGER SA G S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.37.SA.055(1) 607 D4T2 607 MACHINE_CHECK_RECOVERY.37.SA.055 1 LINE 80 4 PAGE UBC MTA MAR. 21, 1975 01:55:46 0 THIS IS A PROGRAM THAT PRODUCES ON SPUNCH A STANDALONE PROGRAM TO BE WRITTEN TO A TAPE AND IPL'D AFTER A HARD MACHINE CHECK. THE STANDALONE PROGRAM COPIES THE 370 MACHINE CHECK RECORD (I.E. PSA PLUS EXTENDED LOGOUT AREA) TO THE SECOND FILE OF THE TAPE FROM WHICH IT WAS IPL'D. THE RECORD ON TAPE HAS THE SAME FORMAT AS NORMAL MTS MACHINE CHECK LOGOUTS. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND COPY:PSA (162). THIS PROGRAM HAS NEVER BEEN USED AT UM. 00577/005 MACHINE CHECK RECOVERY 370 LOGGER OC G S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.37.OC.056(1) 608 D4T2 608 MACHINE_CHECK_RECOVERY.37.OC.056 1 LINE 80 3 PAGE UBC MTA MAR. 21, 1975 01:55:49 00577/006 MACHINE CHECK RECOVERY MACROS SM G MTA:MCHMAC D4.2T1 454 MACHINE_CHECK_RECOVERY.MA.SM.006 1 LINE 72 28 PAGE UM MTA APR. 01, 1979 22:59:41 MTA.:MCHMAC 0 MACROS FOR ASSEMBLING EREP AND MACHINE CHECK RECOVERY. 0 Referenced by comments of: 46/1, 531/6, 577/2, 577/7, 589/2, 589/4, 589/5, 589/6, 589/8, 655/2 00577/007B MACHINE CHECK RECOVERY MCHSUBR SA G MTA:MCHSUBR(1,999) RD16T1 116 MACHINE_CHECK_RECOVERY.MC.SA.007 1 LINE 72 6 PAGE UM MTA JULY 12, 1979 22:59:26 MTA.:MCHSUBR 0 MCHCCH (577/2) HAS A WXTRN FOR MCHSUBR AND IF IT IS PRESENT, MCHCCH CALLS IT TO DO MODEL DEPENDENT RECOVERY FOR A MACHINE CHECK. THIS VERSION OF MCHSUBR (THE ONLY ONE SO FAR) IS FOR THE AMDAHL 470 AND IS A NOP ON ANY OTHER MACHINE. IT CAN 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 BE DELETED FROM THE SYSTEM IF NOT NEEDED. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162). ASSEMBLE USING MCHMAC (577/6) AND COPY:SETPARM (653). 00577/008B MACHINE CHECK RECOVERY MCHSUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00577/009 MACHINE CHECK RECOVERY GETLOGS SA G MTA:GETLOGS(1000) D4.2T1 456 MACHINE_CHECK_RECOVERY.GE.SA.009 1 LINE 69 3 PAGE UM MTA APR. 01, 1979 22:59:50 MTA.:GETLOGS 0 PROGRAM TO RETREIVE LOGS FROM THE CPS DISK ON AN AMDAHL 470 AND WRITE THEM (FORMATTED) ON SPRINT. WHEN RUN, IT PRINTS (ON SERCOM) THE KEY FOR ALL LOGS ON THE DISK AND ASKS WHICH ONE YOU WANT (ON GUSER). RUN WITH PROT=OFF. 00577/010 MACHINE CHECK RECOVERY GETLOGS OC G MTA:GETLOGS(1,999) D4.2T1 457 MACHINE_CHECK_RECOVERY.GE.OC.010 1 LINE 80 3 PAGE UM MTA APR. 01, 1979 22:59:51 00577/011 MACHINE CHECK RECOVERY INIT:MCFILE D # MTS:TST.MCFILE UM MTA INIT:MCFILE 0 LOG FILE USED BY THE CMDSTAT PICKUP PROGRAM (*CMD) TO SAVE TYPE 10 (MACHINE CHECK) RECORDS. 00577/012 MACHINE CHECK RECOVERY 67 CHACST SA G S0564 D4T2 VLO FSNAME=MACHINE_CHECK_RECOVERY.67.SA.028(1) 582 D4T2 582 MACHINE_CHECK_RECOVERY.67.SA.028 1 LINE 80 2 PAGE UM MTA FEB. 13, 1975 23:52:51 0 COPY SECTION FOR CPU STATUS TABLE (PART OF 360/67 MACHINE CHECK RECOVERY). THIS COMPONENT IS STILL REQUIRED BECAUSE LOCKSTAT (611) COPIES IT. 0 Referenced by comments of: 611/1 00578/001 RSF D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=RSF D4T2 613 RSF.D4_MASTER.SA.001 1 SEQ 80 82 PAGE UM MTS HELFFRICH JULY 28, 1977 03:19:14 0 REALLY SHARED FILES (RSF) PORTION OF MTS. COPIES *GFINFODSECT (593), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), AND COPY:RATEVEC (651/2). ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:RMGRMACLIB (1054/1), AND COPY:FILE.MACROS (482/33). 00578/002B RSF UPDATE UC G MTS:RSFUPD RD16T1 117 RSF.UPDATE.UC.002 1 LINE 71 6 PAGE UM MTS HELFFRICH JULY 12, 1979 22:59:28 MTS.:RSFUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=RSF. 00578/003B RSF OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00578/004B RSF L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=RSF.LIST 11 RD16T1 118 RSF..L.004 1 SEQ 133 221 PAGE UM MTS HELFFRICH JULY 12, 1979 22:59:35 00579/001B SYSDEFS SA G MTS:SYSDEFS(1,999) RD16T1 119 SYSDEFS..SA.001 1 LINE 70 3 PAGE UM MTS MTA JULY 12, 1979 22:59:38 MTS.:SYSDEFS 0 THIS IS A LOW-CORE SYMBOL TABLE FOR THE DEFINITION OF SYMBOLS USED FOR SYSTEMS WORK, I.E. NOT REQUIRED BY USER PROGRAMS. TO REFERENCE THIS SYMBOL TABLE, THE FOLLOWING 3 LOADER CARDS ARE REQUIRED AT THE END OF AN OBJECT DECK: RIP SYSDEFS LCS LCSYMBOL LCS SYSDEFS COPIES COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 682/40 00579/002B SYSDEFS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS MTA 00579/003 SYSDEFS COPY:SYSDEFS OC G COPY:SYSDEFS D4.1T1 354 SYSDEFS.COPY:SYSDEFS.OC.004 1 LINE 24 1 PAGE UM MTS MTA MAY 13, 1978 17:47:57 COPY:SYSDEFS 0 CONTAINS THE 3 LOADER CARDS: RIP SYSDEFS LCS LCSYMBOL LCS SYSDEFS 0 Referenced by comments of: 682/44, 752/5 00580/001 *INDEX SP O INDX S0027 DISTRB FSNAME=INDEX D4.2T1 459 INDEX..SP.001 1 LINE 80 15 PAGE UM ENGLE JAN. 10, 1979 16:47:28 0 PROGRAM TO PRODUCE MANUAL INDICES. WILL PRODUCE INDEX AS TEXT/360 INPUT, FORMAT INPUT, OR REGULAR PRINTED OUTPUT. 0 Referenced by comments of: 512/5, 573/4, 575/5, 665/3, 669/3, 675/3, 676/3, 683/3, 717/3, 733/3, 741/3, 748/3 00580/002 *INDEX OC O *INDEX D4.2T1 460 INDEX..OC.002 1 LINE 29050 11 PAGE UM ENGLE APR. 01, 1979 23:03:45 *INDEX 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00581 INDEXGT SA G # (OBSOLETE) D3T5 5 INDEXGT..SA.1 1 LINE 80 3 PAGE UM AUG. 02, 1973 00:15.05 00582 LIBRARY INDEX PROGRAM C # (OBSOLETE) D3T5 7 LIBRARY_INDEX_PROGRAM..C.1 1 LINE 138 1 PAGE UM AUG. 02, 1973 00:15.08 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00583/001 KWIC/360 PHASE A SP S0979 DWBSV1 'DWBSAVE' FSNAME=KWIC/360(1) 19 D4T2 621 KWIC/360.PHASE_A.SP.001 1 LINE 80 30 PAGE UM DWB JUNE 04, 1975 22:19:07 0 MODIFIED VERSION OF IBM PROGRAM 360D-06.7.014. PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION. SOURCE FOR PHASES A THROUGH D AND THE SCAN2 AND TRANS SUBROUTINES. 00583/002 KWIC/360 PHASE A OC S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_A.OC.002(1) 622 D4T2 622 KWIC/360.PHASE_A.OC.002 1 SEQ 80 7 PAGE UM DWB JULY 28, 1977 03:22:37 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/003 KWIC/360 PHASE B SP # (PART OF 583/1) UM DWB 0 SOURCE FOR PHASE B. 00583/004 KWIC/360 PHASE B OC S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_B.OC.004(1) 623 D4T2 623 KWIC/360.PHASE_B.OC.004 1 SEQ 80 3 PAGE UM DWB JULY 28, 1977 03:22:39 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/005 KWIC/360 PHASE C SP # (PART OF 583/1) UM DWB 0 SOURCE FOR PHASE C. 00583/006 KWIC/360 PHASE C OC S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_C.OC.006(1) 624 D4T2 624 KWIC/360.PHASE_C.OC.006 1 SEQ 80 4 PAGE UM DWB JULY 28, 1977 03:22:42 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/007 KWIC/360 PHASE D SP # (PART OF 583/1) UM DWB 0 SOURCE FOR PHASE D. 00583/008 KWIC/360 PHASE D OC S0564 D4T2 VLO FSNAME=KWIC/360.PHASE_D.OC.008(1) 625 D4T2 625 KWIC/360.PHASE_D.OC.008 1 SEQ 80 4 PAGE UM DWB JULY 28, 1977 03:22:44 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/009 KWIC/360 SCAN2 SUBR SA # (PART OF 583/1) UM DWB 0 SUBROUTINE CALLED BY PHASE A. OBJECT IS IN 583/2. 00583/010 KWIC/360 TRANS SUBR SA # (PART OF 583/1) UM DWB 0 SUBROUTINE CALLED BY BOTH PHASE A AND PHASE B. OBJECT IS IN 583/2 AND 583/4. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00583/011 KWIC/360 TEST DATA D # (PART OF 583/1) UM DWB 0 INPUT FOR TEST RUN IS AS FOLLOWS: LINES 1068-1083 ARE PRIMARY STOPWORDS LINES 1084-1085 ARE SECONDARY STOPWORDS LINES 1086-LAST ARE INPUT CARDS 00584/001 QUIC PHASE 1 SP S0979 DWBSV1 'DWBSAVE' FSNAME=QUIC.S(1) 69 D4T2 626 QUIC.PHASE_1.SP.001 1 LINE 81 35 PAGE UM DWB MAY 13, 1976 20:59:32 0 THIS IS THE IBM PROGRAM 360D-06.7.022. IT IS USED AS FOLLOWS: RUN PHASE 1 (QUIC1), THEN *SORT, THEN PHASE 2 (QUIC2). PAPER DOCUMENTATION WAS ENCLOSED WITH DISTRIBUTION D3.0 AND IS AVAILABLE UPON REQUEST FROM DON BOETTNER AT UM. THE SOURCE FOR PHASE 1 IS IN LINES 252 THROUGH 1249. 00584/002 QUIC PHASE 1 OC S0564 D4T2 VLO FSNAME=QUIC.PHASE_1.OC.002(1) 627 D4T2 627 QUIC.PHASE_1.OC.002 1 LINE 80 21 PAGE UM DWB JULY 28, 1977 03:23:21 00584/003 QUIC PHASE 2 SP # (PART OF 584/1) UM DWB 0 THE SOURCE FOR PHASE 2 IS IN LINES 1347 THROUGH 1496. 00584/004 QUIC PHASE 2 OC S0564 D4T2 VLO FSNAME=QUIC.PHASE_2.OC.004(1) 628 D4T2 628 QUIC.PHASE_2.OC.004 1 LINE 80 4 PAGE UM DWB JULY 28, 1977 03:23:22 00584/005 QUIC TEST DATA D # (PART OF 584/1) UM DWB 0 TEST DATA IS IN LINES 1269 THROUGH 1320. 00585/001 CALC CLS SA G CALC W070:CALC.S(6) D4.2T1 461 CALC_CLS..SA.001 1 LINE 80 55 PAGE UM FRONCZAK APR. 01, 1979 23:03:46 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). 00585/002 CALC CLS OC G *CLSCALC D4.2T1 462 CALC_CLS..OC.002 1 LINE 80 8 PAGE UM FRONCZAK APR. 01, 1979 23:03:54 *CLSCALC 00586/001 COST SUBR SA G COST S0027 DISTRB FSNAME=COST D4T2 631 COST_SUBR..SA.001 1 LINE 80 8 PAGE UM ENGLE JAN. 25, 1977 15:31:03 0 SUBROUTINE TO COMPUTE CURRENT COST OF RUN. (E.G. CALLED BY MTS FOR $DISPLAY $). COPIES ACCFORMAT (104/1), AND GRDEF (104/68). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00586/002 COST SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM ENGLE 00587/001 RESEQUENCING PGM SA G RSEQ MTS:RSEQ(1,999) D4T2 632 RESEQUENCING_PGM..SA.001 1 LINE 80 4 PAGE UBC HOGG DWB JULY 28, 1977 03:31:57 MTS.:RSEQ 0 TO USE THIS PROGRAM: $RUN RSEQ SCARDS=INPUT SPUNCH=OUTPUT SERCOM=ERRORS PAR=SEQNAME WHERE SEQNAME IS A 1 TO 8 CHARACTER SEQUENCE FIELD INITIALIZER. IF OMITTED, THE SEQUENCE DEFAULTS TO 00000001, 00000002, ETC. IF THE LAST CHARACTER OF SEQNAME IS 1, THE SEQUENCING TAKES PLACE AT THAT COLUMN. FOR EXAMPLE, IF PAR=BARF IS GIVEN, THE SEQUENCE IS BARF0001, BARF0002, ETC. IF PAR=BARF01 IS GIVEN, THE SEQUENCE IS BARF0100, BARF0200, ETC. SEQUENCING INTRUDES INTO THE ALPHABETIC FIELD IF NECESSARY. FOR EXAMPLE, THE SEQUENCE ID FOLLOWING BARF9999 IS BARG0000. WRITES ON SPUNCH @I TO PRESERVE INPUT LINE NUMBERS. 00587/002 RESEQUENCING PGM OC G MTS:RSEQ(1000) D4T2 633 RESEQUENCING_PGM..OC.002 1 LINE 80 2 PAGE UBC HOGG DWB JULY 28, 1977 03:31:59 00588 INTERCOM SA EAIC # (OBSOLETE) D4T2 634 INTERCOM..SA.001 1 LINE 80 13 PAGE UM FEB. 13, 1975 23:51:52 0 INTER-CPU COMMUNICATION PROGRAM USED ON 360/67 BY SUPERVISOR AND MACHINE CHECK ERROR RECOVERY. MODIFIED FROM TSS/360. 00589/001 CHANNEL CHECK RECOVERY 360/67 SA G # (OBSOLETE) D4T2 635 CHANNEL_CHECK_RECOVERY.36.SA.001 1 LINE 80 8 PAGE UM FEB. 13, 1975 23:53:49 00589/002 CHANNEL CHECK RECOVERY 370 CCHSUBR SA G MTA:CCHSUBR(1,999) D4T2 636 CHANNEL_CHECK_RECOVERY.37.SA.003 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 03:32:09 MTA.:CCHSUBR 0 MCHCCH (577/2) HAS A WXTRN FOR CCHSUBR AND IF IT IS PRESENT, MCHCCH CALLS IT TO DO MODEL DEPENDENT RECOVERY FOR A CHANNEL CHECK. THIS VERSION OF CCHSUBR IS SIMPLY AN INTERFACE WHICH LOOKS AT THE MODEL NUMBER AND CHANNEL TYPE AND CALLS ONE OF IGFC60 (589/4), IGFC70 (589/5), IGFC80 (589/6), OR A#VCCH47 (589/8). THESE ARE REFERENCED WITH WXTRNS AND MAY BE DELETED FROM THE SYSTEM IF NOT NEEDED. ASSEMBLE USING MCHMAC (577/6). 360/67 I/O INBOARD ERROR RECORDING. MODIFIED FROM TSS/360. 0 Referenced by comments of: 589/8 00589/003 CHANNEL CHECK RECOVERY 370 CCHSUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00589/004 CHANNEL CHECK RECOVERY IGFC60 SA S0938 FSAVE2 VLO FSNAME=VS2CCH(1) 128 D4T2 637 CHANNEL_CHECK_RECOVERY.IG.SA.005 1 LINE 80 26 PAGE UM MTA NOV. 08, 1975 00:31:31 0 VS2 SUBROUTINE TO CONVERT A 2860 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT. ASSEMBLE USING MCHMAC (577/6). 0 Referenced by comments of: 589/2, 655/2 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00589/005 CHANNEL CHECK RECOVERY IGFC70 SA # (PART OF 589/4) UM MTA 0 VS2 SUBROUTINE TO CONVERT A 2870 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT. ASSEMBLE USING MCHMAC (577/6). 0 Referenced by comments of: 589/2, 655/2 00589/006 CHANNEL CHECK RECOVERY IGFC80 SA # (PART OF 589/4) UM MTA 0 VS2 SUBROUTINE TO CONVERT A 2880 CHANNEL LOGOUT INTO A 370 LIMITED CHANNEL LOGOUT. ASSEMBLE USING MCHMAC (577/6). 0 Referenced by comments of: 589/2, 655/2 00589/007 CHANNEL CHECK RECOVERY VS2CCH OC # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 0 OBJECT FOR 589/4, 589/5, AND 589/6. 00589/008 CHANNEL CHECK RECOVERY A#VCCH47 SA G MTA:470CCH(1,999) D4T2 638 CHANNEL_CHECK_RECOVERY.A#.SA.009 1 LINE 80 10 PAGE UM MTA JULY 28, 1977 03:32:31 MTA.:470CCH 0 SUBROUTINE CALLED BY CCHSUBR (589/2) FOR CHANNEL CHECK RECOVERY IF RUNNING ON AN AMDAHL 470. THIS PROGRAM PRODUCES A LIMITED CHANNEL LOGOUT FROM A FULL LOG. ASSEMBLE USING MCHMAC (577/6). 0 Referenced by comments of: 589/2, 655/2 00589/009 CHANNEL CHECK RECOVERY A#VCCH47 OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00590/001 *SPITBOL MAIN UPDATE UU G W086:SPIT.M.U D4.1T1 360 SPITBOL.MAIN_UPDATE.UU.001 1 LINE 72 13 PAGE UM SWARTZ MAY 13, 1978 17:48:20 0 BY CONTRACT, THE SOURCE AND OBJECT FOR SPITBOL CANNOT BE DISTRIBUTED. CONTACT ROBERT DE WAR AT THE ILLINOIS INSTITUTE OF TECHNOLOGY, CHICAGO, IL, USA. UPDATE DECK TO BRING THE SPITBOL COMPILER AND LIBRARY FROM VERSION 2.2.0 TO 2.2.6. COPIES DEFLMOD (590/3) AND WORK AREA (590/4). 00590/002 *SPITBOL XFACE UPDATE UU G W086:SPIT.I.U D4.1T1 361 SPITBOL.XFACE_UPDATE.UU.002 1 LINE 72 40 PAGE UM SWARTZ MAY 13, 1978 17:48:22 0 UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6. COPIES DEFLMOD (590/3) AND WORK AREA (590/4). 00590/003 *SPITBOL DEFLMOD SA G W086:DEFLMOD D4.1T1 362 SPITBOL.DEFLMOD.SA.003 1 LINE 39 1 PAGE UM SWARTZ MAY 13, 1978 17:48:26 0 COPY SECTION TO SET INSTALLATION AND COMPILER/LIBRARY GLOBAL VARIABLES. 1 THU SEP 12/96 23:39:34 Page 261 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 590/1, 590/2 00590/004 *SPITBOL WORK AREA SA G W086:SPIT.WORK D4.1T1 363 SPITBOL.WORK_AREA.SA.004 1 LINE 80 3 PAGE UM SWARTZ MAY 13, 1978 17:48:27 0 COPY SECTION OF SPITBOL WORK AREA. 0 Referenced by comments of: 590/1, 590/2 00590/005 *SPITBOL ZAP CONVERT SS G W086:ZAPCNV D4T2 641 SPITBOL.ZAP_CONVERT.SS.003 1 LINE 72 1 PAGE UM SWARTZ JULY 28, 1977 03:34:16 0 SNOBOL PROGRAM TO CONVERT SPITBOL SUPERZAP DECKS INTO MTS COM AND REP LOADER CARDS. 00590/006 *SPITBOL *SPITBOL OC G *SPITBOL D4T2 642 SPITBOL.*SPITBOL.OC.004 1 SEQ 24 1 PAGE UM SWARTZ JULY 28, 1977 03:34:18 0 LOADER CARDS TO FORCE REFERENCE TO THE SHARED VM SPITBOL. 00590/007 *SPITBOL ETC:SPITDEFLIB OL G S0997 'SPITBOL FS' FSNAME=W086:LIBRARY D4T2 643 SPITBOL.ETC:SPITDEFLIB.OC.005 1 LINE 24 1 PAGE UM SWARTZ JULY 20, 1977 03:40:47 0 LOADER CARDS USED AS A DEFAULT LIBRARY FOR THE SPITBOL LOAD FUNCTION TO FORCE REFERENCE TO EFL AND LCSYMBOLS. 00590/008 *SPITBOL *SPITERR M *SPITERR D4T2 644 SPITBOL.*SPITERR.M.006 1 LINE 175 4 PAGE UM SWARTZ JULY 28, 1977 03:38:31 0 SPITBOL ERROR MESSAGES. 00590/009B *SPITBOL *SPITDEBUG SS O *SPITDEBUG RD16T1 120 SPITBOL.*SPITDEBUG.SS.009 1 LINE 111 4 PAGE UM SWARTZ JULY 12, 1979 22:59:40 *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/29). USE THE "HELP" COMMAND TO EXPLAIN FUNCTIONS. ***************************************************************************** RD16 CHANGES: BREAK COMMAND ADDED. ***************************************************************************** 0 Referenced by comments of: 590/30 00590/010 *SPITBOL UNSP CMD SA G SCMD S0684 UNSP FSNAME=SCMD.S D4T2 646 SPITBOL.UNSP_CMD.SA.008 1 LINE 80 3 PAGE UM UNSP DEC. 23, 1975 19:33:48 0 THIS FOLLOWING SUBCOMPONENTS ARE THE SOURCE FOR THE "UNSUPPORTED" SPITBOL FUNCTION LIBRARY, UNSP:SPITLIB (590/29). WRITEUP FOR THESE FUNCTIONS ARE IN UNSP:WRITEUPS (685/2). THESE FUNCTIONS SHOULD NOT BE CONFUSED WITH THOSE IN *SPITLIB. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00590/011 *SPITBOL UNSP CREATE SA G SCRE S0684 UNSP FSNAME=SCREATE.S D4T2 647 SPITBOL.UNSP_CREATE.SA.009 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:34:35 00590/012 *SPITBOL UNSP CREPLY SA G SCRP S0684 UNSP FSNAME=SCREPLY.S D4.2T1 463 SPITBOL.UNSP_CREPLY.SA.013 1 LINE 80 2 PAGE UM UNSP SEP. 01, 1978 08:19:41 00590/013 *SPITBOL UNSP GDINFO SA G SGDI S0684 UNSP FSNAME=SGDINFO.S D4T2 649 SPITBOL.UNSP_GDINFO.SA.011 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:34:40 0 ASSEMBLE USING UNSP:MACLIB (685/5). 00590/014 *SPITBOL UNSP GETFD SA G SGET S0684 UNSP FSNAME=SGETFD.S D4T2 650 SPITBOL.UNSP_GETFD.SA.012 1 LINE 80 3 PAGE UM UNSP SEP. 02, 1976 12:34:44 0 ASSEMBLE USING UNSP:MACLIB (685/5). 00590/015 *SPITBOL UNSP GUINFO SA G SGUI S0684 UNSP FSNAME=SGUINFO.S D4T2 651 SPITBOL.UNSP_GUINFO.SA.013 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:34:51 0 ASSEMBLE USING UNSP:MACLIB (685/5). 00590/016 *SPITBOL UNSP MTSCMD SA G SMTS S0684 UNSP FSNAME=SMTSCMD.S D4T2 652 SPITBOL.UNSP_MTSCMD.SA.014 1 LINE 80 3 PAGE UM UNSP DEC. 23, 1975 19:34:03 0 ASSEMBLE USING UNSP:MACLIB (685/5). 00590/017 *SPITBOL UNSP READ SA G SREA S0684 UNSP FSNAME=SREAD.S D4T2 653 SPITBOL.UNSP_READ.SA.015 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:35:05 0 ASSEMBLE USING UNSP:MACLIB (685/5). 00590/018 *SPITBOL UNSP SETPFX SA G SSET S0684 UNSP FSNAME=SSETPFX.S D4T2 654 SPITBOL.UNSP_SETPFX.SA.016 1 LINE 80 3 PAGE UM UNSP JAN. 13, 1976 11:29:00 0 ASSEMBLE USING UNSP:MACLIB (685/5). 00590/019 *SPITBOL UNSP SNS SA G SSNS S0684 UNSP FSNAME=SNS.S D4T2 655 SPITBOL.UNSP_SNS.SA.017 1 LINE 80 3 PAGE UM UNSP SEP. 02, 1976 12:34:54 0 ASSEMBLE USING UNSP:MACLIB (685/5). 00590/020 *SPITBOL UNSP WRITE SA G SWRI S0684 UNSP FSNAME=SWRITE.S D4T2 656 SPITBOL.UNSP_WRITE.SA.018 1 LINE 80 4 PAGE UM UNSP SEP. 02, 1976 12:35:12 0 ASSEMBLE USING UNSP:MACLIB (685/5). 00590/021 *SPITBOL UNSP SNOOP SA G SSNO S0684 UNSP FSNAME=SSNOOP.S D4T2 657 SPITBOL.UNSP_SNOOP.SA.019 1 LINE 80 3 PAGE UM UNSP JULY 12, 1976 13:42:24 00590/022 *SPITBOL UNSP SPITATTN SA G SATN S0684 UNSP FSNAME=SPITATTN.S D4T2 658 SPITBOL.UNSP_SPITATTN.SA.020 1 LINE 80 5 PAGE UM UNSP NOV. 30, 1976 14:22:13 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00590/023 *SPITBOL UNSP SGETRC SA G SGRC S0684 UNSP FSNAME=SGETRC.S D4T2 659 SPITBOL.UNSP_SGETRC.SA.021 1 LINE 80 1 PAGE UM UNSP SEP. 02, 1976 12:34:47 00590/024 *SPITBOL UNSP SPUTRC SA G SPRC S0684 UNSP FSNAME=SPUTRC.S D4T2 660 SPITBOL.UNSP_SPUTRC.SA.022 1 LINE 80 1 PAGE UM UNSP SEP. 02, 1976 12:35:01 00590/025 *SPITBOL UNSP STI SA G STIA S0684 UNSP FSNAME=STI.S D4T2 661 SPITBOL.UNSP_STI.SA.023 1 LINE 80 2 PAGE UM UNSP SEP. 02, 1976 12:35:09 0 "STR" IS AN ALTERNATE ENTRY. ASSEMBLE USING UNSP:MACLIB (685/5). 00590/026 *SPITBOL UNSP ITR SA G ITRA S0684 UNSP FSNAME=ITR.S D4T2 662 SPITBOL.UNSP_ITR.SA.024 1 LINE 80 1 PAGE UM UNSP SEP. 02, 1976 12:35:20 0 "RTI" IS AN ALTERNATE ENTRY. 00590/027 *SPITBOL UNSP ITS SA G ITSA S0684 UNSP FSNAME=ITS.S D4T2 663 SPITBOL.UNSP_ITS.SA.025 1 LINE 80 1 PAGE UM UNSP SEP. 02, 1976 12:35:16 0 "RTS" IS AN ALTERNATE ENTRY. 00590/028 *SPITBOL UNSP SETLIO SA G S0684 UNSP FSNAME=SSETLIO.S D4.2T1 464 SPITBOL.UNSP_SETLIO.SA.029 1 LINE 66 1 PAGE UM UNSP FEB. 23, 1979 04:51:29 0 SPITBOL ROUTINE WHICH CALLS THE MTS SETLIO SUBROUTINE. OBJECT IS IN UNSP:SPITLIB (590/29). 00590/029 *SPITBOL UNSP LIBRARY OL G UNSP:SPITLIB D4.2T1 465 SPITBOL.UNSP_LIBRARY.OL.030 1 LINE 32767 17 PAGE UM UNSP APR. 01, 1979 23:04:31 UNSP:SPITLIB 0 Referenced by comments of: 590/9, 590/10, 590/28, 678/1, 1042/65, 1042/68 00590/030C *SPITBOL CONVSPIT SS G UNSP:CONVSPIT(1000) RD16T1 121 SPITBOL.CONVSPIT.SS.030 1 LINE 53 1 PAGE UM UNSP JULY 12, 1979 22:59:41 UNSP:CONVSPIT 0 AN INTERACTIVE SPITBOL. USES *SPITLIB (NOT DISTRIBUTED) AND *SPITDEBUG (590/9). 00590/031C *SPITBOL CONVSPIT OE G UNSP:CONVSPIT(1,999) RD16T1 122 SPITBOL.CONVSPIT.OE.031 1 LINE 10408 6 PAGE UM UNSP JULY 12, 1979 22:59:42 00591/001 CFDUB SUBR SA G MTS:CFDUB(1,999) D4T2 665 CFDUB_SUBR..SA.001 1 LINE 80 2 PAGE UM MTA JULY 28, 1977 03:46:29 MTS.:CFDUB 0 SUBROUTINE TO COMPARE TWO FDUBS TO SEE IF THEY ARE ASSIGNED TO THE SAME THING. TO USE, CALL CFDUB(F1,F2) WHERE F1 AND F2 ARE CHKFDUB THINGS. RC=0 MEANS THAT THEY'RE THE SAME, RC=4 MEANS THEY'RE DIFFERENT, RC=8 MEANS THAT AT LEAST ONE IS INVALID. FOR EXAMPLE, CALL CFDUB('SPUNCH ','SPRINT ',&1,&2). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00591/002 CFDUB SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00592 OPERATORS MANUAL WF W225:OPRML.CI D4.2T1 466 OPERATORS_MANUAL..WF. 1 LINE 236 118 PAGE UM DONNELLY APR. 01, 1979 23:04:32 0 MTS OPERATOR'S MANUAL. 0 Referenced by comments of: 50/3, 387/22, 502/1, 610/1, 615/18, 615/42, 615/47, 642/1, 642/3, 642/9, 642/14, 655/1 00593 *GFINFODSECT SA G *GFINFODSECT D4.1T1 366 GFINFODSECT..SA. 1 LINE 80 4 PAGE UM HELFFRICH MAY 13, 1978 17:49:24 *GFINFODSECT 0 COPY SECTION FOR DSECTS DEFINING INFORMATION REGIONS USED IN CONJUNCTION WITH THE GFINFO SUBROUTINE (PART OF 578/1). 0 Referenced by comments of: 465/1, 529/1, 531/6, 548/1, 548/2, 578/1, 630/1, 1019/2, 3003/56 00594 *GDINFODSECT SA G *GDINFODSECT D4.2T1 467 GDINFODSECT..SA. 1 LINE 80 2 PAGE UM DWB APR. 01, 1979 23:04:42 *GDINFODSECT 0 COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE. 0 Referenced by comments of: 57/1, 64/1, 278/3, 495/1, 496/1, 506/9, 513/1, 529/1, 531/6, 531/13, 540/9, 545/3, 545/4, 548/1, 551/1, 553/1, 619/23, 648/7, 680/1, 706/6, 709/1, 721/1, 727/1, 737/3, 738/1, 746/1, 749/1, 752/1, 1002/1, 1002/2, 1002/6, 1021/5, 3003/56, 3011/3, 3024/1, 9005/1 00595/001 APL - GMRL INSTALLATION P S0625 GMAPL 'APL SOURCE' FSNAME=DESCRIPTION 1 D4T2 669 APL_-_GMRL.INSTALLATION.P.001 1 LINE 73 1 PAGE UM TIFFANY JULY 16, 1973 01:42.51 0 THIS IS THE GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE (APL), NOT TO BE CONFUSED WITH COMPONENT 465 (*APL). APL (PRONOUNCED "APPLE") IS A SUPERSET OF PL/I, WHICH HAS EXTENSIONS IN THE AREA OF DATA STRUCTURE PROCESSING. IT IS INTENDED PRIMARILY FOR LARGE SCALE STRUCTURAL DESIGN APPLICATIONS, PARTICULARLY THOSE INVOLVING INTERACTIVE GRAPHICS. COMPONENT 595/1 EXPLAINS THE CONTENTS OF COMPONENTS 595/2 THROUGH 595/92 AND TELLS HOW TO GENERATE THE SEVERAL COMPONENTS WHICH MAKE UP APL. 00595/002 APL - GMRL *APLGM OE G *APLGM D4T2 670 APL_-_GMRL.*APLGM.OE.002 1 SEQ 1812 1 PAGE UM TIFFANY JULY 28, 1977 03:48:35 *APLGM 0 COMPONENTS 595/2 THROUGH 595/5 ARE THE FOUR APL OBJECT FILES AS DESCRIBED IN CCMEMO 236 (SEE 595/93). 00595/003 APL - GMRL *APLTRAN OE G *APLTRAN D4T2 671 APL_-_GMRL.*APLTRAN.OE.003 1 SEQ 32767 47 PAGE UM TIFFANY JULY 28, 1977 03:48:38 *APLTRAN 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00595/004 APL - GMRL *APLLIB OL G *APLLIB D4T2 672 APL_-_GMRL.*APLLIB.OL.004 1 SEQ 4222 21 PAGE UM TIFFANY JULY 28, 1977 03:48:40 *APLLIB 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/005 APL - GMRL *APLEDCL OE G *APLEDCL D4T2 673 APL_-_GMRL.*APLEDCL.OE.005 1 SEQ 10704 7 PAGE UM TIFFANY JULY 28, 1977 03:48:45 *APLEDCL 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/006 APL - GMRL APLLL0 SA G S0625 GMAPL 'APL SOURCE' FSNAME=APLLL0 6 D4T2 674 APL_-_GMRL.APLLL0.SA.006 1 LINE 68 4 PAGE UM TIFFANY JULY 16, 1973 01:43.54 0 THE SOURCE FOR *APLGM. ASSEMBLE USING *SYSMAC. 00595/007 APL - GMRL XAPL SP G S0625 GMAPL 'APL SOURCE' FSNAME=XAPL 7 D4T2 675 APL_-_GMRL.XAPL.SP.007 1 LINE 72 6 PAGE UM TIFFANY JULY 16, 1973 01:45.18 0 COMPONENTS 595/7 THROUGH 595/48 ARE THE SOURCE FOR *APLTRAN. 00595/008 APL - GMRL MINITERM SP G S0625 GMAPL 'APL SOURCE' FSNAME=MINITERM 8 D4T2 676 APL_-_GMRL.MINITERM.SP.008 1 LINE 73 4 PAGE UM TIFFANY JULY 16, 1973 01:45.20 00595/009 APL - GMRL MAPLGET SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGET 9 D4T2 677 APL_-_GMRL.MAPLGET.SP.009 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:45.23 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/010 APL - GMRL MCARDGET SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCARDGET 10 D4T2 678 APL_-_GMRL.MCARDGET.SP.010 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.26 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/011 APL - GMRL MCHMOVE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHMOVE 11 D4T2 679 APL_-_GMRL.MCHMOVE.SP.011 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.30 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/012 APL - GMRL MCHSCAN SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHSCAN 12 D4T2 680 APL_-_GMRL.MCHSCAN.SP.012 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.33 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00595/013 APL - GMRL MAPLGOOF SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGOOF 13 D4T2 681 APL_-_GMRL.MAPLGOOF.SP.013 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.36 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/014 APL - GMRL MAPLPUT SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLPUT 14 D4T2 682 APL_-_GMRL.MAPLPUT.SP.014 1 LINE 71 3 PAGE UM TIFFANY JULY 16, 1973 01:45.39 00595/015 APL - GMRL MCARDPUT SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCARDPUT 15 D4T2 683 APL_-_GMRL.MCARDPUT.SP.015 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.42 00595/016 APL - GMRL MAPLNAME SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLNAME 16 D4T2 684 APL_-_GMRL.MAPLNAME.SP.016 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.46 00595/017 APL - GMRL MCHNAM1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM1 17 D4T2 685 APL_-_GMRL.MCHNAM1.SP.017 1 LINE 71 2 PAGE UM TIFFANY JULY 16, 1973 01:45.49 00595/018 APL - GMRL MCHNAM2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM2 18 D4T2 686 APL_-_GMRL.MCHNAM2.SP.018 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:45.52 00595/019 APL - GMRL MCHNAM3 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM3 19 D4T2 687 APL_-_GMRL.MCHNAM3.SP.019 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:45.55 00595/020 APL - GMRL MBEGPRC SP G S0625 GMAPL 'APL SOURCE' FSNAME=MBEGPRC 20 D4T2 688 APL_-_GMRL.MBEGPRC.SP.020 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:45.59 00595/021 APL - GMRL MDIAGNS SP G S0625 GMAPL 'APL SOURCE' FSNAME=MDIAGNS 21 D4T2 689 APL_-_GMRL.MDIAGNS.SP.021 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.02 00595/022 APL - GMRL MENTDCL SP G S0625 GMAPL 'APL SOURCE' FSNAME=MENTDCL 22 D4T2 690 APL_-_GMRL.MENTDCL.SP.022 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:46.05 00595/023 APL - GMRL MSCOPE01 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE01 23 D4T2 691 APL_-_GMRL.MSCOPE01.SP.023 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:46.08 00595/024 APL - GMRL MSCOPE02 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE02 24 D4T2 692 APL_-_GMRL.MSCOPE02.SP.024 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:46.11 00595/025 APL - GMRL MSCOPE03 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE03 25 D4T2 693 APL_-_GMRL.MSCOPE03.SP.025 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.15 00595/026 APL - GMRL MSCOPE04 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE04 26 D4T2 694 APL_-_GMRL.MSCOPE04.SP.026 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.18 00595/027 APL - GMRL MSCOPE05 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE05 27 D4T2 695 APL_-_GMRL.MSCOPE05.SP.027 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.21 00595/028 APL - GMRL MSCOPE06 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE06 28 D4T2 696 APL_-_GMRL.MSCOPE06.SP.028 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:46.25 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00595/029 APL - GMRL MSUBDCL SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSUBDCL 29 D4T2 697 APL_-_GMRL.MSUBDCL.SP.029 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:46.28 00595/030 APL - GMRL MXCREATE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXCREATE 30 D4T2 698 APL_-_GMRL.MXCREATE.SP.030 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.31 00595/031 APL - GMRL MXDCL SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL 31 D4T2 699 APL_-_GMRL.MXDCL.SP.031 1 LINE 72 8 PAGE UM TIFFANY JULY 16, 1973 01:46.35 00595/032 APL - GMRL MXDCL1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL1 32 D4T2 700 APL_-_GMRL.MXDCL1.SP.032 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:46.38 00595/033 APL - GMRL MXDCL2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL2 33 D4T2 701 APL_-_GMRL.MXDCL2.SP.033 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:46.41 00595/034 APL - GMRL MXDELETE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXDELETE 34 D4T2 702 APL_-_GMRL.MXDELETE.SP.034 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.44 00595/035 APL - GMRL MXEND SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXEND 35 D4T2 703 APL_-_GMRL.MXEND.SP.035 1 LINE 71 3 PAGE UM TIFFANY JULY 16, 1973 01:46.47 00595/036 APL - GMRL MXFIND SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND 36 D4T2 704 APL_-_GMRL.MXFIND.SP.036 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.51 00595/037 APL - GMRL MXFIND1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND1 37 D4T2 705 APL_-_GMRL.MXFIND1.SP.037 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.54 00595/038 APL - GMRL MXINSERT SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXINSERT 38 D4T2 706 APL_-_GMRL.MXINSERT.SP.038 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:46.57 00595/039 APL - GMRL MXLET SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXLET 39 D4T2 707 APL_-_GMRL.MXLET.SP.039 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:47.00 00595/040 APL - GMRL MXON SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXON 40 D4T2 708 APL_-_GMRL.MXON.SP.040 1 LINE 71 2 PAGE UM TIFFANY JULY 16, 1973 01:47.03 00595/041 APL - GMRL MXPLI SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXPLI 41 D4T2 709 APL_-_GMRL.MXPLI.SP.041 1 LINE 72 5 PAGE UM TIFFANY JULY 16, 1973 01:47.06 00595/042 APL - GMRL MXQUEST SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXQUEST 42 D4T2 710 APL_-_GMRL.MXQUEST.SP.042 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:47.09 00595/043 APL - GMRL MXREMOVE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXREMOVE 43 D4T2 711 APL_-_GMRL.MXREMOVE.SP.043 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:47.12 00595/044 APL - GMRL MX4EACH SP G S0625 GMAPL 'APL SOURCE' FSNAME=MX4EACH 44 D4T2 712 APL_-_GMRL.MX4EACH.SP.044 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:47.15 00595/045 APL - GMRL MAPLGO SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGO 45 D4T2 713 APL_-_GMRL.MAPLGO.SP.045 1 LINE 68 1 PAGE UM TIFFANY JULY 16, 1973 01:47.18 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00595/046 APL - GMRL XPLEMES SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLEMES(1) 46 D4T2 714 APL_-_GMRL.XPLEMES.SP.046 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:47.22 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB. 00595/047 APL - GMRL MXXLOCSET SA G S0625 GMAPL 'APL SOURCE' FSNAME=MXXLOCSET 47 D4T2 715 APL_-_GMRL.MXXLOCSET.SA.047 1 LINE 67 1 PAGE UM TIFFANY JULY 16, 1973 01:47.25 0 ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88). 00595/048 APL - GMRL XPLFORM SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFORM(1) 48 D4T2 716 APL_-_GMRL.XPLFORM.SA.048 1 LINE 71 4 PAGE UM TIFFANY JULY 16, 1973 01:47.28 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB. ASSEMBLE USING *SYSMAC AND PL1MACLIB (595/88). 00595/049 APL - GMRL XPLCONA SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLCONA 49 D4T2 717 APL_-_GMRL.XPLCONA.SP.049 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:47.31 0 COMPONENTS 595/49 THROUGH 595/86 PLUS 595/46 AND 595/48 ARE THE SOURCE FOR *APLLIB. 00595/050 APL - GMRL XPLCON SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLCON 50 D4T2 718 APL_-_GMRL.XPLCON.SP.050 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:47.34 00595/051 APL - GMRL XPLCRT1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT1 51 D4T2 719 APL_-_GMRL.XPLCRT1.SP.051 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:47.38 00595/052 APL - GMRL XPLCRT2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT2 52 D4T2 720 APL_-_GMRL.XPLCRT2.SP.052 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:47.41 00595/053 APL - GMRL XPLDEL1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL1 53 D4T2 721 APL_-_GMRL.XPLDEL1.SP.053 1 LINE 70 1 PAGE UM TIFFANY JULY 16, 1973 01:47.44 00595/054 APL - GMRL XPLDEL2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL2 54 D4T2 722 APL_-_GMRL.XPLDEL2.SP.054 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:47.47 00595/055 APL - GMRL XPLDEL3 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL3 55 D4T2 723 APL_-_GMRL.XPLDEL3.SP.055 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:47.51 00595/056 APL - GMRL XPLESET SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLESET 56 D4T2 724 APL_-_GMRL.XPLESET.SP.056 1 LINE 63 1 PAGE UM TIFFANY JULY 16, 1973 01:47.54 00595/057 APL - GMRL XPLEVAR SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLEVAR 58 D4T2 725 APL_-_GMRL.XPLEVAR.SP.057 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:48.00 00595/058 APL - GMRL XPLFND1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND1 59 D4T2 726 APL_-_GMRL.XPLFND1.SP.058 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:48.03 00595/059 APL - GMRL XPLFND2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND2 60 D4T2 727 APL_-_GMRL.XPLFND2.SP.059 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:48.07 00595/060 APL - GMRL XPLFND3 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND3 61 D4T2 728 APL_-_GMRL.XPLFND3.SP.060 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:48.10 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00595/061 APL - GMRL XPLGO SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLGO 62 D4T2 729 APL_-_GMRL.XPLGO.SP.061 1 LINE 68 1 PAGE UM TIFFANY JULY 16, 1973 01:48.13 00595/062 APL - GMRL XPLGARB SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLGARB 63 D4T2 730 APL_-_GMRL.XPLGARB.SP.062 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:48.16 00595/063 APL - GMRL XPLNUMB SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLNUMB 64 D4T2 731 APL_-_GMRL.XPLNUMB.SP.063 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:48.19 00595/064 APL - GMRL XPLINDX SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLINDX 65 D4T2 732 APL_-_GMRL.XPLINDX.SP.064 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:48.23 00595/065 APL - GMRL XPLNOBL SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLNOBL 66 D4T2 733 APL_-_GMRL.XPLNOBL.SP.065 1 LINE 71 3 PAGE UM TIFFANY JULY 16, 1973 01:48.26 00595/066 APL - GMRL XPLNSRT SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLNSRT 67 D4T2 734 APL_-_GMRL.XPLNSRT.SP.066 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:48.29 00595/067 APL - GMRL XPLOWNI SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWNI(3) 99 D4T2 735 APL_-_GMRL.XPLOWNI.SP.067 1 LINE 72 1 PAGE UM TIFFANY MAY 05, 1975 17:39:10 00595/068 APL - GMRL XPLOWRS SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWRS 69 D4T2 736 APL_-_GMRL.XPLOWRS.SP.068 1 LINE 70 1 PAGE UM TIFFANY JULY 16, 1973 01:48.35 00595/069 APL - GMRL XPLREL0 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL0 70 D4T2 737 APL_-_GMRL.XPLREL0.SP.069 1 LINE 70 1 PAGE UM TIFFANY JULY 16, 1973 01:48.38 00595/070 APL - GMRL XPLREL1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL1 71 D4T2 738 APL_-_GMRL.XPLREL1.SP.070 1 LINE 70 1 PAGE UM TIFFANY JULY 16, 1973 01:48.42 00595/071 APL - GMRL XPLSNAM SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLSNAM 72 D4T2 739 APL_-_GMRL.XPLSNAM.SP.071 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:48.45 00595/072 APL - GMRL XPLRMV1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV1 73 D4T2 740 APL_-_GMRL.XPLRMV1.SP.072 1 LINE 72 4 PAGE UM TIFFANY JULY 16, 1973 01:48.48 00595/073 APL - GMRL XPLRMV2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV2 74 D4T2 741 APL_-_GMRL.XPLRMV2.SP.073 1 LINE 72 2 PAGE UM TIFFANY JULY 16, 1973 01:48.51 00595/074 APL - GMRL XPLTYPE SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLTYPE 75 D4T2 742 APL_-_GMRL.XPLTYPE.SA.074 1 LINE 59 1 PAGE UM TIFFANY JULY 16, 1973 01:48.55 0 COMPONENTS 595/74 THROUGH 595/86 SHOULD BE ASSEMBLED WITH *SYSMAC AND PL1MACLIB (595/88). 00595/075 APL - GMRL XPLUDAT SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLUDAT 76 D4T2 743 APL_-_GMRL.XPLUDAT.SA.075 1 LINE 72 7 PAGE UM TIFFANY JULY 16, 1973 01:48.58 00595/076 APL - GMRL XPLADDR SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLADDR 77 D4T2 744 APL_-_GMRL.XPLADDR.SA.076 1 LINE 40 1 PAGE UM TIFFANY JULY 16, 1973 01:49.01 00595/077 APL - GMRL XPLALOC SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLALOC(2) 95 D4T2 745 APL_-_GMRL.XPLALOC.SA.077 1 LINE 72 3 PAGE UM TIFFANY SEP. 27, 1974 12:40.15 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00595/078 APL - GMRL XPLDREC SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLDREC 79 D4T2 746 APL_-_GMRL.XPLDREC.SA.078 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:49.07 00595/079 APL - GMRL XPLEV SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLEV 80 D4T2 747 APL_-_GMRL.XPLEV.SA.079 1 LINE 56 1 PAGE UM TIFFANY JULY 16, 1973 01:49.11 00595/080 APL - GMRL XPLFREE SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFREE 81 D4T2 748 APL_-_GMRL.XPLFREE.SA.080 1 LINE 72 1 PAGE UM TIFFANY JULY 16, 1973 01:49.14 00595/081 APL - GMRL XPLOC SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLOC 83 D4T2 749 APL_-_GMRL.XPLOC.SA.081 1 LINE 72 3 PAGE UM TIFFANY JULY 16, 1973 01:49.20 00595/082 APL - GMRL XIRMIN SA G S0625 GMAPL 'APL SOURCE' FSNAME=XIRMIN 84 D4T2 750 APL_-_GMRL.XIRMIN.SA.082 1 LINE 72 9 PAGE UM TIFFANY JULY 16, 1973 01:49.23 00595/083 APL - GMRL XIRMOUT SA G S0625 GMAPL 'APL SOURCE' FSNAME=XIRMOUT 85 D4T2 751 APL_-_GMRL.XIRMOUT.SA.083 1 LINE 72 9 PAGE UM TIFFANY JULY 16, 1973 01:49.26 00595/084 APL - GMRL RRIN SA G S0625 GMAPL 'APL SOURCE' FSNAME=RRIN 86 D4T2 752 APL_-_GMRL.RRIN.SA.084 1 LINE 72 5 PAGE UM TIFFANY JULY 16, 1973 01:49.29 00595/085 APL - GMRL RROUT SA G S0625 GMAPL 'APL SOURCE' FSNAME=RROUT 87 D4T2 753 APL_-_GMRL.RROUT.SA.085 1 LINE 72 5 PAGE UM TIFFANY JULY 16, 1973 01:49.32 00595/086 APL - GMRL SYSVM SA G S0625 GMAPL 'APL SOURCE' FSNAME=SYSVM(3) 105 D4T2 754 APL_-_GMRL.SYSVM.SA.086 1 LINE 69 8 PAGE UM TIFFANY OCT. 13, 1976 18:05:24 00595/087 APL - GMRL CHGSCR SA G S0625 GMAPL 'APL SOURCE' FSNAME=CHGSCR 89 D4T2 755 APL_-_GMRL.CHGSCR.SA.087 1 LINE 71 1 PAGE UM TIFFANY JULY 16, 1973 01:49.38 0 COPY SECTION USED BY SEVERAL MODULES IN *APLLIB. 00595/088 APL - GMRL PL1MACLIB SM G S0625 GMAPL 'APL SOURCE' FSNAME=PL1MACLIB 90 D4T2 756 APL_-_GMRL.PL1MACLIB.SM.088 1 LINE 80 15 PAGE UM TIFFANY JULY 16, 1973 01:49.58 0 MACRO LIBRARY REQUIRED BY ASSEMBLY LANGUAGE MODULES IN *APLTRAN AND *APLLIB. 0 Referenced by comments of: 595/47, 595/48, 595/74 00595/089 APL - GMRL BLDTRAN C S0625 GMAPL 'APL SOURCE' FSNAME=BLDTRAN 91 D4T2 757 APL_-_GMRL.BLDTRAN.C.089 1 LINE 82 1 PAGE UM TIFFANY JULY 16, 1973 01:50.08 0 A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLTRAN. HAS MANY "$CONTINUE WITH" LINES. 00595/090 APL - GMRL BLDLIB C S0625 GMAPL 'APL SOURCE' FSNAME=BLDLIB 92 D4T2 758 APL_-_GMRL.BLDLIB.C.090 1 LINE 74 1 PAGE UM TIFFANY JULY 16, 1973 01:50.17 0 A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLLIB. HAS MANY "$CONTINUE WITH" LINES. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00595/091 APL - GMRL APLTRAN.SEP OE G S0625 GMAPL 'APL SOURCE' FSNAME=APLTRAN.SEP 93 D4T2 759 APL_-_GMRL.APLTRAN.SEP.OE.091 1 SEQ 11606 54 PAGE UM TIFFANY JULY 16, 1973 01:51.03 0 OBJECT MODULES FOR *APLTRAN, LINK-EDITTED, BUT NOT COMBINED, SO THAT INDIVIDUAL MODULES CAN BE REPLACED. 00595/092 APL - GMRL APLEDCL.S SP G S0625 GMAPL 'APL SOURCE' FSNAME=APLEDCL.S(2) 98 D4T2 760 APL_-_GMRL.APLEDCL.S.SP.092 1 LINE 72 4 PAGE UM TIFFANY MAY 05, 1975 17:39:07 0 THE SOURCE FOR *APLEDCL CONSISTS OF THIS COMPONENT, PLUS MAPLGET (595/9), MCARDGET (595/10), MCHSCAN (595/12), MCHMOVE (595/11), AND MAPLGOOF (595/13). 00595/093 APL - GMRL MEMO 236 WF S0724 'D3T5' FSNAME=APL_-_GMRL.USER'S_GUIDE.WF.93(1) 135 D4T2 761 APL_-_GMRL.MEMO_236.WF.093 1 LINE 114 8 PAGE UM TIFFANY JULY 17, 1973 17:39.33 0 THIS IS COMPUTING CENTER MEMO 236 -- "GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE" ONLY PART OF CCMEMO 236 IS INCLUDED HERE SINCE THE BULK OF IT IS SIMPLY REPRODUCED FROM THE GENERAL MOTORS APL USER'S MANUAL (PUBLICATION GMR-1219 OF THE GENERAL MOTORS RESEARCH LAB). 00596 ZAP SA # (OBSOLETED BY 1019) D3.1T1 455 ZAP..SA.1 1 LINE 80 13 PAGE UM MAR. 06, 1974 22:30.58 00597 CHKVTOC # (SEE COMP 682) UM 00598/001 DASDI SA G DASD FILE:DASDI.S D4.1T1 367 DASDI..SA.001 1 LINE 80 16 PAGE UM HELFFRICH MAY 13, 1978 17:49:26 FILE:DASDI.S 0 PROGRAM TO VAM2-FORMAT DASDI 3330 OR 3330-11 DISKS. INPUT DESCRIBED IN SOURCE COMMENTS. MARKS 3330-11 DISKS AS "333B" IN LABEL ACCORDING TO TSS CONVENTION. COPIES COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:FILE.MACROS (482/33), COPY:SETPARM (653), AND *SYSMAC. SEE COMP 682/5 FOR A WRITEUP. >>> WARNING: THIS PROGRAM ASSUMES THAT THE PAT STARTS ON A CYLINDER BOUNDARY SO THAT THE CLEARPAT OR CLEARPAT IPL OPTIONS WILL NOT WORK CORRECTLY IF THIS PROGRAM IS USED ON A DISK WHICH HAS BEEN PREVIOUSLY INITIALIZED WITH A PAT WHICH DOESN'T START ON A CYLINDER BOUNDARY. 0 Referenced by comments of: 682/5 00598/002 DASDI OC G FILE:DASDI D4.1T1 368 DASDI.370_OBJECT.OC.002 1 LINE 80 5 PAGE UM HELFFRICH MAY 13, 1978 17:49:29 FILE:DASDI 00599/001 CHONID SA G CHON FILE:CHONID(1,999) D4T2 765 CHONID..SA.001 1 LINE 80 4 PAGE UM HELFFRICH JULY 28, 1977 03:53:38 FILE:CHONID 0 PROGRAM (NOT FOR GENERAL USE) TO CHANGE THE OWNERID (IN THE CATALOG) OF A PUBLIC FILE. USED BY SYSTEM PROGRAMMERS TO ASSIGN APPROPRIATE OWNERS TO PUBLIC FILES. IT TAKES INPUT IN THE FORM "*FILENAME USERID" AND STOPS WHEN AN END-OF-FILE IS ENTERED. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33). SEE COMP 682/6 FOR A WRITEUP. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 682/6 00599/002 CHONID OC G FILE:CHONID(1000) D4T2 766 CHONID..OC.002 1 LINE 80 1 PAGE UM HELFFRICH JULY 28, 1977 03:53:40 00600/001 SDS CLS CLSSOU SA G W059:SDSCLSSOU D4.2T1 468 SDS_CLS.CLSSOU.SA.001 1 LINE 75 163 PAGE UM SWARTZ APR. 01, 1979 23:04:43 0 SDS, THE SYMBOLIC DEBUGGING SYSTEM. 600/1 AND 600/2 ARE THE SOURCE FOR THE CLS INTERFACE TO SDS. 600/1 COPIES *CNFGINFODSECT (654), COPY:GLOBALS (1026/3), AND SDSPSECT (600/13). ASSEMBLE USING *SYSMAC, SDSMACROS (600/12), AND COPY:MTS.MACROS (344/3). 00600/002 SDS CLS UTSDSSOU SA G W059:SDSUTILSOU D4.2T1 469 SDS_CLS.UTSDSSOU.SA.002 1 LINE 72 20 PAGE UM SWARTZ APR. 01, 1979 23:05:01 0 COPIES SDSCONSTANT (600/15). 00600/003 SDS CLS CLS OC G W059:SDSCLS D4.2T1 470 SDS_CLS.CLS.OC.003 1 LINE 80 56 PAGE UM SWARTZ APR. 01, 1979 23:05:03 0 OBJECT FOR 600/1 AND 600/2. 00600/004 SDS CLS CLI SA G W059:SDSCLISOU D4.2T1 471 SDS_CLS.CLI.SA.004 1 LINE 72 89 PAGE UM SWARTZ APR. 01, 1979 23:05:08 0 THE SDS COMMAND LANGUAGE INTERPRETER. COPIES SDSBT (600/14), SDSCONSTANT (600/15), AND SDSPSECT (600/13). ASSEMBLE USING SDSMACROS (600/12), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/005 SDS CLS CLI OC G W059:SDSCLI D4.2T1 472 SDS_CLS.CLI.OC.005 1 LINE 80 33 PAGE UM SWARTZ APR. 01, 1979 23:05:15 00600/006 SDS CLS IOC SA G W059:SDSIOCSOU D4T2 772 SDS_CLS.IOC.SA.006 1 LINE 80 18 PAGE UM SWARTZ SEP. 16, 1977 11:34:55 0 THE SDS I/O CONTROL MODULE. COPIES SDSPSECT (600/13), SDSCONSTANT (600/15), COPY:GLOBALS (1026/3), AND SDSBT (600/14). ASSEMBLE USING SDSMACROS (600/12), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/007 SDS CLS IOC OC G W059:SDSIOC D4T2 773 SDS_CLS.IOC.OC.007 1 LINE 80 13 PAGE UM SWARTZ SEP. 16, 1977 11:35:01 00600/008 SDS CLS SIMULATOR SA G W059:SDSSIMLSOU D4T2 774 SDS_CLS.SIMULATOR.SA.008 1 LINE 70 30 PAGE UM SWARTZ SEP. 16, 1977 11:35:05 0 THE SDS INSTRUCTION SIMULATOR. COPIES SDSPSECT (600/13) AND *CNFGINFODSECT (654). ASSEMBLE USING SDSMACROS (600/12) AND COPY:MTS.MACROS (344/3). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00600/009 SDS CLS SIMULATOR OC G W059:SDSSIML D4T2 775 SDS_CLS.SIMULATOR.OC.009 1 LINE 80 17 PAGE UM SWARTZ SEP. 16, 1977 11:35:19 00600/010 SDS CLS EDITOR SA G W059:SDSEDTRSOU D4.2T1 473 SDS_CLS.EDITOR.SA.010 1 LINE 72 38 PAGE UM SWARTZ APR. 01, 1979 23:05:18 0 THE SDS EDITOR. COPIES SDSBT (600/14), SDSCONSTANT (600/15), AND SDSPSECT (600/13). ASSEMBLE USING SDSMACROS (600/12), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/011 SDS CLS EDITOR OC G W059:SDSEDTR D4.2T1 474 SDS_CLS.EDITOR.OC.011 1 LINE 80 18 PAGE UM SWARTZ APR. 01, 1979 23:05:21 00600/012 SDS CLS SDSMACROS SM G SDSM W059:SDSMACROS D4T2 778 SDS_CLS.SDSMACROS.SM.012 1 LINE 80 14 PAGE UM SWARTZ SEP. 16, 1977 11:35:40 0 SDS MACRO LIBRARY. 0 Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 00600/013 SDS CLS SDSPSECT SA G W059:SDSPSECT D4.2T1 475 SDS_CLS.SDSPSECT.SA.013 1 LINE 72 38 PAGE UM SWARTZ APR. 01, 1979 23:05:23 0 COPY SECTION FOR SDS DSECTS. 0 Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 00600/014 SDS CLS SDSBT SA G W059:SDSBT D4.2T1 476 SDS_CLS.SDSBT.SA.014 1 LINE 70 3 PAGE UM SWARTZ APR. 01, 1979 23:05:26 0 COPY SECTION FOR BRANCH TABLES. 0 Referenced by comments of: 600/4, 600/6, 600/10 00600/015 SDS CLS SDSCONSTANT SA G W059:SDSCONSTANT D4T2 781 SDS_CLS.SDSCONSTANT.SA.015 1 LINE 68 1 PAGE UM SWARTZ SEP. 16, 1977 11:36:01 0 COPY SECTION FOR CONSTANTS. 0 Referenced by comments of: 600/2, 600/4, 600/6, 600/10 00600/016 SDS CLS OBJECT OE G *CLSSDS D4.2T1 477 SDS_CLS.OBJECT.OE.016 1 LINE 255 88 PAGE UM SWARTZ APR. 01, 1979 23:05:26 *CLSSDS 0 THE SDS OBJECT IS LOADED INTO SHARED VM BY PISTLE AT IPL. 00600/017 SDS CLS TEST PROGRAM C W044:ASMSDSTEST D4T2 783 SDS_CLS.TEST_PROGRAM.C.017 1 LINE 80 1 PAGE UM SWARTZ JULY 28, 1977 03:54:48 0 SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAM (600/18). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00600/018 SDS CLS TEST PGM 1 SA W044:SDSTESTSOU D4T2 784 SDS_CLS.TEST_PGM_1.SA.018 1 LINE 63 6 PAGE UM SWARTZ JULY 28, 1977 03:54:50 0 Referenced by comments of: 600/17 00600/019 SDS CLS TEST PGM 1 OC W044:SDSTEST D4T2 785 SDS_CLS.TEST_PGM_1.OC.019 1 LINE 80 8 PAGE UM SWARTZ JULY 28, 1977 03:54:52 00600/020 SDS CLS TEST PGM 2 SP W044:PL1TESTSOU D4T2 786 SDS_CLS.TEST_PGM_2.SP.020 1 LINE 92 5 PAGE UM SWARTZ JULY 28, 1977 03:54:55 00600/021 SDS CLS TEST PGM 2 OC W044:PL1TEST D4T2 787 SDS_CLS.TEST_PGM_2.OC.021 1 LINE 80 13 PAGE UM SWARTZ JULY 28, 1977 03:54:57 00601 SLT INSTRUCTION DIAGRAM P S0724 'D3T5' FSNAME=SLT_INSTRUCTION_DIAGRAM..P.(1) 163 D4T2 788 SLT_INSTRUCTION_DIAGRAM..P. 1 LINE 75 1 PAGE UM ? AUG. 02, 1973 00:33.08 0 PRINTER DIAGRAM SHOWING OPERATION OF SYSTEM/360 SLT (SEARCH LIST) INSTRUCTION. 00602 NOT-RESEQUENCER SS DWB:NONRESEQ D4T2 789 NOT-RESEQUENCER..SS. 1 LINE 63 2 PAGE UM DWB JULY 28, 1977 03:55:16 DWB.:NONRESEQ 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 SA G MTA:UC3330(1,999) D4T2 790 UC3330..SA.001 1 LINE 80 22 PAGE UM MTA JULY 28, 1977 03:55:18 MTA.:UC3330 0 UNIT CHECK ROUTINES FOR ITEL 7330 OR IBM 3330 DISKS ON EITHER A 2860 OR 2880 CHANNEL, IBM 2305 FHF, AND IBM 2301 DRUM. DOES NOT SUPPORT OTHER DASD DEVICES SUCH AS 2314 AND 2311. LOGS UNIT CHECK MESSAGES IN SUCH A WAY THAT THE COMMAND STAT PICK-UP PROGRAM (531/6) WILL WRITE THEM INTO A FILE. COPIES COPY:CMDAREADSECT (531/18). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 621/4, 655/2 00603/002 UC3330 OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00603/003 UC3330 TEST PGM SA G S0219 FSAVE FSNAME=TESTUC D4T2 791 UC3330.TEST_PGM.SA.003 1 LINE 80 7 PAGE UM MTA OCT. 02, 1974 00:05.36 0 TEST PROGRAM TO 3330 UNIT CHECK ROUTINES. TO USE, ASSEMBLE 603/1 WITH &TEST SETB 1. 00603/004 UC3330 TEST PGM OC G # (PART OF 603/3) UM MTA 00604 PRNTCNTS # (SEE COMP 540) UM 00605/001 TWAIT SUBR SA G MTA:TIMESUBRS(1,199) D4T2 792 TWAIT_SUBR..SA.001 1 LINE 80 4 PAGE UM MTA JULY 28, 1977 04:02:04 MTA.:TIMESUBRS 0 USER CALLABLE SUBROUTINE TO WAIT FOR A SPECIFIED REAL TIME INTERVAL AND THEN RETURN. 0 Referenced by comments of: 606/1 00605/002 TWAIT SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00606/001 TICALL SUBR SA G MTA:TIMESUBRS(200,299) D4T2 793 TICALL_SUBR..SA.001 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 04:02:05 0 SUBROUTINE TO PROVIDE AN INTERFACE TO THE MTS TIMER INTERRUPT SUBROUTINES (605) FROM FORTRAN PROGRAMS. 00606/002 TICALL SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00607/001 STIMER SUBR SA G MTA:TIMESUBRS(300) D4T2 794 STIMER_SUBR..SA.001 1 LINE 80 5 PAGE UM MTA JULY 28, 1977 04:02:07 0 SUBROUTINE TO PROVIDE MTS SUPPORT FOR THE OS/360 STIMER AND TTIMER MACROS WHICH ARE AVAILABLE IN *SYSMAC. SEE 545/30 IN FAKEOS FOR A TEST PROGRAM. 00607/002 STIMER SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00608/001 *MVC SA G MVC W032:MVCSOU4.0 D4T2 795 MVC..SA.001 1 LINE 80 38 PAGE UM EMERY JULY 28, 1977 04:02:09 0 RECORD REFORMATTING PROGRAM. 00608/002 *MVC OC G *MVC D4T2 796 MVC..OC.002 1 LINE 80 4 PAGE UM EMERY JULY 28, 1977 04:02:12 *MVC 00609/001 7330 CCW SCANNER 360/67 SA G # (OBSOLETE) D4T2 797 7330_CCW_SCANNER..SA.001 1 LINE 80 5 PAGE UM FEB. 14, 1975 00:29:06 0 360/67 PROGRAM TO SCAN ITEL 7330 DISK CHANNEL PROGRAMS TO FIND RESTART ADDRESS FOR SOFTWARE COMMAND RETRY. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00609/002 7330 CCW SCANNER COPY:CPSCNPAR SA G COPY:CPSCNPAR D4T2 798 7330_CCW_SCANNER.COPY:CPS.SA.003 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 04:02:27 COPY:CPSCNPAR 0 COPY SECTION FOR ITEL 7330 CCW SCANNER PARAMETER AND SCRATCH AREAS. 0 Referenced by comments of: 45/1 00610/001 FILE SAVE TAPE COPY SA RSTR:FSTAPECOPY(1001) D4.1T1 374 FILE_SAVE_TAPE_COPY..SA.001 1 LINE 76 15 PAGE UM HELFFRICH MAY 13, 1978 17:49:44 RSTR:FSTAPECOPY 0 PROGRAM TO MAKE COPIES OF FILESAVE TAPES (AS PRODUCED BY 067 OR 716). 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 (716/14). 00610/002 FILE SAVE TAPE COPY OC RSTR:FSTAPECOPY(1,999) D4.1T1 375 FILE_SAVE_TAPE_COPY..OC.002 1 LINE 80 14 PAGE UM HELFFRICH MAY 13, 1978 17:49:56 00610/003 FILE SAVE TAPE COPY *FSC C *FSC D4T2 801 FILE_SAVE_TAPE_COPY.*FSC.C.003 1 LINE 67 1 PAGE UM HELFFRICH JULY 28, 1977 20:58:15 RSTR:*FSC 0 COMMAND FILE TO START THE FILESAVE TAPE COPY PROGRAM. INVOKED BY ENTERING "MTS *FSC" ON THE OPERATOR'S CONSOLE. 00611/001 LOCKSTAT SA G S0724 'D3T5' FSNAME=LOCKSTAT..SA.1(1) 179 D4T2 802 LOCKSTAT..SA.001 1 LINE 80 6 PAGE UM MTA AUG. 02, 1973 00:36.13 0 PROGRAM TO PRINT LOCK BYTE COUNTS AND TIMES FROM THE SUPERVISOR (045). THE SUPERVISOR MUST BE REASSEMBLED WITH &NOLOKC SET TO 0. COPIES COPY:PSA (162) AND COPY:CHACST (577/12). ASSEMBLE USING *SYSMAC. NOTE: THIS PROGRAM HAS EQUS FOR THE LOCATION OF THE LOCK BYTE COUNTS IN THE PSA. 0 Referenced by comments of: 577/12 00611/002 LOCKSTAT OC G S0724 'D3T5' FSNAME=LOCKSTAT..OC.2(1) 180 D4T2 803 LOCKSTAT..OC.002 1 LINE 80 3 PAGE UM MTA AUG. 02, 1973 00:36.15 00612/001 LETGO SUBR SA G LETG S0792 WSGFS FSNAME=LETGO D4.1T1 376 LETGO_SUBR..SA.001 1 LINE 80 5 PAGE UM WSG APR. 21, 1978 18:32:23 0 FORTRAN CALLABLE SUBROUTINE TO UNLOCK AND RELOCK FILES AT SPECIFIED INTERVALS OF REAL TIME. SOURCE IN LINES (1,999). 00612/002 LETGO SUBR OC G # *LIBRARY (SEE COMP 524) UM WSG 00613/001 LONGREAD SA S S0564 D4T2 VLO FSNAME=LONGREAD..SA.001(1) 805 D4T2 805 LONGREAD..SA.001 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:36.19 0 PROGRAM TO DEBLOCK MAGNETIC TAPE BLOCKS WHICH ARE UP TO 65534 BYTES LONG USING MTS MAG TAPE DSR. NOT FOR GENERAL USE SINCE IT REQUIRES THAT THE SIZE PARAMETER IN THE TAPERTN DSECT BE PATCHED. SEE COMMENTS IN LISTING. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00613/002 LONGREAD OC S S0564 D4T2 VLO FSNAME=LONGREAD..OC.002(1) 806 D4T2 806 LONGREAD..OC.002 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:36.21 00614 START JOB # (OBSOLETED BY $SY COMMAND) D3T5 184 START_JOB..SA.1 1 LINE 80 1 PAGE UM AUG. 02, 1973 00:36.23 00615/001 PLOT SYSTEM MACROS SM G W030:CCMACROS D4T2 807 PLOT_SYSTEM.MACROS.SM.001 1 LINE 80 3 PAGE UM LIFT JULY 28, 1977 21:01:47 0 THE UM MTS CALCOMP PLOT ROUTINES. SEVERAL OF THE SOURCE SUB-COMPONENTS OF THE PLOT SYSTEM CONSIST OF MORE THAN ONE ASSEMBLY, SO ASSEMBLE WITH PAR=B. 615/1 CONTAINS PLOT SYSTEM MACRO LIBRARY USED TO ASSEMBLE SOME OF THE ROUTINES. 0 Referenced by comments of: 615/2, 615/4 00615/002 PLOT SYSTEM PSYMB SA B W030:PSYMB D4T2 808 PLOT_SYSTEM.PSYMB.SA.002 1 LINE 80 15 PAGE UM LIFT JULY 28, 1977 21:01:49 0 SUBROUTINES IN *PLOTSYS. ALSO USED IN *CPCORE. ASSEMBLE USING PLOT MACROS (615/1) AND *SYSMAC. 00615/003A PLOT SYSTEM PLTBGN SA G W030:PLTBGN D4T2 809 PLOT_SYSTEM.PLTBGN.SA.003 1 LINE 80 29 PAGE UM LIFT JULY 28, 1977 21:01:51 0 SUBROUTINE IN *PLOTSYS. ASSEMBLE USING *SYSMAC. 00615/004A PLOT SYSTEM ASM SA G = W030:CCASM D4T2 810 PLOT_SYSTEM.ASM.SA.004 1 LINE 80 39 PAGE UM LIFT JULY 28, 1977 21:01:58 0 SUBROUTINES IN *PLOTSYS. ASSEMBLE USING PLOT MACROS (615/1) AND *SYSMAC. 00615/005A PLOT SYSTEM FORT SF G = W030:CCFORT D4.1T1 377 PLOT_SYSTEM.FORT.SF.005 1 LINE 76 17 PAGE UM LIFT MAY 13, 1978 17:51:40 0 SUBROUTINES IN *PLOTSYS. 00615/006 PLOT SYSTEM PSYM SA G W030:PSYM D4.1T1 378 PLOT_SYSTEM.PSYM.SA.006 1 LINE 68 14 PAGE UM LIFT MAY 13, 1978 17:51:44 0 A NEW VARIETY OF PSYMB (BUT CALLED PSYM) WHICH USES 256 CHARACTER ALPHABETS, ALLOWS SLANTING OF LETTERS, AND CHANGING PROPORTIONS AND SPACING. SEE THE INSTALLATION INSTRUCTIONS (615/24) FOR AN EXPLANATION OF THE &WHAT ASSEMBLY PARAMETER. COPIES CBDSECT (615/8). 0 Referenced by comments of: 532/1, 615/7, 615/8 00615/007 PLOT SYSTEM PALPHA SA G W030:PALPHA D4.2T1 478 PLOT_SYSTEM.PALPHA.SA.007 1 LINE 68 10 PAGE UM LIFT APR. 01, 1979 23:05:34 0 THIS ROUTINE IS USED WITH PSYM (615/6). THE STANDARD ALPHABET ACTUALLY RESIDES HERE. HOWEVER, PALPHA CAN OBTAIN ALTERNATE ALPHABETS FROM ETC:PLOTALPHA (615/9) OR FROM A USER FILE. COPIES CBDSECT (615/8). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 615/8, 615/9 00615/008 PLOT SYSTEM CBDSECT SA G W030:CBDSECT D4.2T1 479 PLOT_SYSTEM.CBDSECT.SA.008 1 LINE 69 1 PAGE UM LIFT APR. 01, 1979 23:05:35 0 DSECT COPIED BY PSYM (615/6) AND PALPHA (615/7) WHICH DESCRIBES THE STRUCTURE OF CHARACTER SETS (ALPHABETS). 0 Referenced by comments of: 615/6, 615/7 00615/009 PLOT SYSTEM ETC:PLOTALPHA D ETC:PLOTALPHA D4.1T1 380 PLOT_SYSTEM.ETC:PLOTALPHA.D.009 1 LINE 22530 53 PAGE UM LIFT MAY 13, 1978 17:51:47 ETC.:PLOTALPHA 0 A DATA FILE FOR STANDARD SYSTEM CHARACTER SETS (ALPHABETS). THE FORMAT OF THE FILE IS DESCRIBED IN THE SOURCE FOR PALPHA (615/7); THE FORMAT OF THE CHARACTER SETS IS DESCRIBED IN MTS VOLUME 11 (AUGUST 1978). 0 Referenced by comments of: 615/7, 3018/138 00615/010A PLOT SYSTEM *PLOTSYS OL G *PLOTSYS D4.2T1 480 PLOT_SYSTEM.*PLOTSYS.OL.010 1 LINE 5456 21 PAGE UM LIFT APR. 01, 1979 23:05:36 *PLOTSYS 0 OBJECT LIBRARY GENERATED FROM 615/2 + 615/3 + 615/4 + 615/5 + 615/6 + 615/7. 00615/011B PLOT SYSTEM PLOTTER SA G W030:PLOTTER RD16T1 123 PLOT_SYSTEM.PLOTTER.SA.011 1 LINE 72 20 PAGE UM LIFT JULY 12, 1979 23:05:04 0 PLOTTER AND ZIGZAG ROUTINES USED TO READ AND TRANSLATE PDF'S FOR *CCQUEUE (615/14) AND SYS:CCP (615/16). SEE THE INSTALLATION INSTRUCTIONS (615/24) FOR AN EXPLANATION OF THE &WHAT ASSEMBLY PARAMETER WHICH CONTROLS THE PRODUCTION OF DIFFERENT VERSIONS. ASSEMBLE USING W030:PLOTTER.MAC (615/12). 00615/012B PLOT SYSTEM MACROS SM G W030:PLOTTER.MAC RD16T1 124 PLOT_SYSTEM.MACROS.SM.012 1 LINE 66 3 PAGE UM LIFT JULY 12, 1979 23:05:09 0 MACRO LIBRARY USED BY POST-PROCESSING ROUTINES. 0 Referenced by comments of: 615/11, 615/13, 615/15, 615/30, 615/32, 615/39, 615/45 00615/013B PLOT SYSTEM *CCQUEUE SA G W030:CCQ RD16T1 125 PLOT_SYSTEM.*CCQUEUE.SA.013 1 LINE 70 19 PAGE UM LIFT JULY 12, 1979 23:05:10 0 MAIN PROGRAM FOR *CCQUEUE, AND SUBROUTINES CCQCNCL AND PLOTCOST. COPIES COPY:RATEVEC (651/2), COPY:GLOBALS (1026/3), AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3), AND W030:PLOTTER.MAC (615/12). 00615/014B PLOT SYSTEM *CCQUEUE OE G *CCQUEUE RD16T1 126 PLOT_SYSTEM.*CCQUEUE.OE.014 1 SEQ 6214 6 PAGE UM LIFT JULY 12, 1979 23:05:12 *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/13 + 1 THU SEP 12/96 23:39:34 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 615/11 + 615/6 + 615/7. 0 Referenced by comments of: 615/11 00615/015B PLOT SYSTEM CCP SA G W030:CCP RD16T1 127 PLOT_SYSTEM.CCP.SA.015 1 LINE 68 19 PAGE UM LIFT JULY 12, 1979 23:05:13 0 MAIN PROGRAM FOR *CCP PLUS SUBROUTINE TAPECON. COPIES COPY:GLOBALS (1026/3). ASSEMBLE USING W030:PLOTTER.MAC (615/12). 0 Referenced by comments of: 615/38 00615/016B PLOT SYSTEM CCP OE G SYS:CCP RD16T1 128 PLOT_SYSTEM.CCP.OE.016 1 LINE 5244 5 PAGE UM LIFT JULY 12, 1979 23:05:15 SYS.:CCP 0 POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/17) USED BY THE SYSTEM OPERATOR TO GENERATE PLOT TAPES. CONSISTS OF OBJECT FROM 615/15 + 615/11 + 615/6 + 615/7. 0 Referenced by comments of: 615/11, 615/17, 615/36 00615/017 PLOT SYSTEM *CCP C *CCP D4T2 823 PLOT_SYSTEM.*CCP.C.017 1 LINE 10 1 PAGE UM LIFT JULY 28, 1977 21:02:41 *CCP 0 COMMAND FILE INVOKED BY ENTERING "MTS *CCP" ON OPERATOR'S CONSOLE. USED BY THE SYSTEM OPERATOR TO GENERATE THE PLOT TAPES. RUNS THE SYS:CCP PROGRAM (615/16). 0 Referenced by comments of: 615/16, 615/32, 615/34, 615/39 00615/018B PLOT SYSTEM PLOTCON SA G W030:PLOTCON RD16T1 129 PLOT_SYSTEM.PLOTCON.SA.018 1 LINE 70 18 PAGE UM LIFT JULY 12, 1979 23:05:16 0 PROGRAM USED BY THE OPERATOR TO PLOT THE QUEUED PLOTS ON THE UM ONLINE 936 PLOTTER. DOES NOT TRANSLATE PDF'S -- JUST COPIES PLOTS FROM THE PLOT TAPE (VIA A FILE) TO THE PLOTTER. SEE THE WRITEUP IN THE OPERATOR'S MANUAL (592). 0 Referenced by comments of: 615/37 00615/019B PLOT SYSTEM PLOTCON OE G SYS:PLT RD16T1 130 PLOT_SYSTEM.PLOTCON.OE.019 1 LINE 4228 9 PAGE UM LIFT JULY 12, 1979 23:05:24 SYS.:PLT 00615/020 PLOT SYSTEM CCPOST SA # (OBSOLETE) D4T2 826 PLOT_SYSTEM.CCPOST.SA.020 1 SEQ 80 6 PAGE UM JULY 28, 1977 21:02:58 0 SOURCE FOR *CCPOST FOR THE 780/763 PLOTTER. 00615/021 PLOT SYSTEM CPCORE SA # (OBSOLETE) D4T2 827 PLOT_SYSTEM.CPCORE.SA.021 1 SEQ 80 36 PAGE UM JULY 28, 1977 21:03:00 0 THE REST OF THE SOURCE FOR *CCPOST. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00615/022 PLOT SYSTEM PSYMCHK SF # (OBSOLETE) D4T2 828 PLOT_SYSTEM.PSYMCHK.SF.022 1 SEQ 80 2 PAGE UM JULY 28, 1977 21:03:03 0 SYMBOL STRING CHECK FOR PSYM LINE PROCESSING AND GENERATION. 00615/023 PLOT SYSTEM *CCPOST OE # (OBSOLETE) D4T2 829 PLOT_SYSTEM.*CCPOST.OE.023 1 SEQ 4666 4 PAGE UM JULY 28, 1977 21:03:06 0 PROGRAM TO ALLOW USERS TO POST-PROCESS THEIR OWN PLOTS. OBJECT FROM 615/20 + 615/21 + 615/2 + 615/22. 00615/024 PLOT SYSTEM INSTALLATION P S0876 CCGHL 'CALCOMP' FSNAME=PLOTINFO D4.1T1 388 PLOT_SYSTEM.INSTALLATION.P.024 1 LINE 71 3 PAGE UM LIFT DEC. 02, 1977 22:35:45 0 INSTRUCTIONS FOR PUTTING THE PLOT SYSTEM TOGETHER. 0 Referenced by comments of: 615/6, 615/11 00615/025 PLOT SYSTEM PDSTOMNET SA G S0981 W114 'W114SAVE' FSNAME=PDSTOMNET.S D4T2 834 PLOT_SYSTEM.*PDSTOMNET.SA.028 1 LINE 76 8 PAGE UM GOODRICH JUNE 12, 1977 21:56:34 0 THIS IS A UTILITY TO CONVERT A PLOT DESCRIPTION SYSTEM (PDS) PLOT FILE TO A PLOT FILE IN MERIT NETWORK STANDARD FORM. 00615/026 PLOT SYSTEM *PDSTOMNET OC G *PDSTOMNET D4T2 835 PLOT_SYSTEM.*PDSTOMNET.OC.029 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 21:06:44 *PDSTOMNET 0 ENDS WITH "$CONTINUE WITH *PLOTSYS" 00615/027 PLOT SYSTEM MNETTOPDS SA G S0981 W114 'W114SAVE' FSNAME=MNETTOPDS.S D4T2 836 PLOT_SYSTEM.*MNETTOPDS.SA.030 1 LINE 89 5 PAGE UM GOODRICH FEB. 15, 1976 18:12:38 0 THIS IS A UTILITY TO CONVERT A MERIT NETWORK STANDARD PLOT FILE TO A PLOT DESCRIPTION (PDS) PLOT FILE. 00615/028 PLOT SYSTEM *MNETTOPDS OC G *MNETTOPDS D4T2 837 PLOT_SYSTEM.*MNETTOPDS.OC.031 1 LINE 80 3 PAGE UM GOODRICH JULY 28, 1977 21:07:02 *MNETTOPDS 0 ENDS WITH "$CONTINUE WITH *PLOTSYS" 00615/029 PLOT SYSTEM *CCT C *CCT D4.1T1 389 PLOT_SYSTEM.*CCT.C.032 1 LINE 10 1 PAGE UM LIFT MAY 13, 1978 17:52:57 *CCT 0 COMMAND FILE USED TO RUN THE CCT PROGRAM (615/30). INVOKED BY ENTERING "MTS *CCT" ON THE OPERATORS CONSOLE. 00615/030 PLOT SYSTEM CCT PGM SA G S0876 CCGHL 'CALCOMP' FSNAME=CCT D4.1T1 390 PLOT_SYSTEM.CCT_PGM.SA.033 1 LINE 80 3 PAGE UM LIFT NOV. 02, 1977 12:28:11 0 PROGRAM TO COMPUTE AND PRINT THE TIME REQUIRED TO PLOT THE PLOTS CURRENTLY IN THE PLOT QUEUE (*CCPFILE). ASSEMBLE USING W030:PLOTTER.MAC (615/12). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 615/29 00615/031 PLOT SYSTEM CCT PGM OC G SYS:CCT D4.1T1 391 PLOT_SYSTEM.CCT_PGM.OC.034 1 LINE 80 1 PAGE UM LIFT MAY 13, 1978 17:53:00 SYS.:CCT 00615/032 PLOT SYSTEM PLOTTAPE SA G W030:PLOTTAPE D4.1T1 392 PLOT_SYSTEM.PLOTTAPE.SA.035 1 LINE 80 6 PAGE UM LIFT MAY 13, 1978 17:53:00 0 PROGRAM USED FOR TWO FUNCTIONS: (1) INITIALIZING PLOT TAPES FOR USE BY BY *CCP (615/17), AND (2) CONSTRUCTING PLOT PRIORITY INFORMATION (IN THE FILE SYS:CCPPRIO (615/34)) FOR USE BY *CCP. ASSEMBLE USING W030:PLOTTER.MAC (615/12). 00615/033 PLOT SYSTEM PLOTTAPE OC G W030:PLOTTAPE(1000) D4.1T1 393 PLOT_SYSTEM.PLOTTAPE.OC.036 1 LINE 80 3 PAGE UM LIFT MAY 13, 1978 17:53:02 00615/034 PLOT SYSTEM PRIORITY FILE D SYS.:CCPPRIO D4.2T1 485 PLOT_SYSTEM.PRIORITY_FILE.D.034 1 LINE 96 1 PAGE UM LIFT APR. 01, 1979 23:09:19 SYS.:CCPPRIO 0 FILE CONTAINING PLOT PRIORITY INFORMATION USED BY *CCP (615/17) AND *CCD (615/44). 0 Referenced by comments of: 615/32, 615/45 00615/035 PLOT SYSTEM *CCPFILE D # MTS:TST.CCPFILE UM LIFT SYS:*CCPFILE 0 THIS IS THE SYSTEM PLOT QUEUE FILE. 0 Referenced by comments of: 615/36 00615/036 PLOT SYSTEM BACKUPQ D # MTS:TST.EMPTY UM LIFT SYS:BACKUPQ 0 USED BY CCP (615/16) TO BACKUP *CCPFILE (615/35). 00615/037 PLOT SYSTEM PLOTDIR D # MTS:TST.EMPTY UM LIFT SYS:PLOTDIR 0 PLOT DIRECTORY FILE USED BY PLOTCON (615/18) TO POINT TO PLOT DATA STORED IN OTHER PERMANENT FILES, WHICH IT WILL CREATE. 00615/038 PLOT SYSTEM PLOTREBAT D # MTS:TST.EMPTY UM LIFT SYS:PLOTREBAT 0 DATA WRITTEN INTO THIS FILE BY CCP (615/15) FOR CANCELLED PLOTS IS USED BY CCREBATE (632/9) TO GENERATE INPUT RECORDS FOR THE REBATE PROGRAM. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00615/039 PLOT SYSTEM CCPINIT SA G S0876 CCGHL 'CALCOMP' FSNAME=CCPINIT D4.2T1 486 PLOT_SYSTEM.CCPINIT.SA.039 1 LINE 80 8 PAGE UM LIFT NOV. 07, 1978 10:05:42 0 PROGRAM USED BY THE SYSTEM OPERATOR TO INITIALIZE (SET VOLUME LABEL AND IDENT FILE) PLOT TAPES FOR USE BY *CCP (615/17). INSTRUCTIONS WITHIN AND IN OPERATOR'S MANUAL. SOURCE IN LINES (1,999). ASSEMBLE USING W030:PLOTTER.MAC (615/12). 00615/040 PLOT SYSTEM CCPINIT OC G SYS:CCPINIT D4.2T1 487 PLOT_SYSTEM.CCPINIT.OC.040 1 LINE 80 3 PAGE UM LIFT APR. 01, 1979 23:10:55 SYS.:CCPINIT 0 Referenced by comments of: 615/41 00615/041 PLOT SYSTEM *CCL C *CCL D4.1T1 398 PLOT_SYSTEM.*CCL.C.045 1 LINE 38 1 PAGE UM LIFT MAY 13, 1978 17:53:08 *CCL 0 COMMAND FILE INVOKED BY ENTERING "MTS *CCL" ON OPERATOR'S CONSOLE. USED BY THE SYSTEM OPERATOR TO INITIALIZE PLOT TAPES. RUNS THE SYS:CCPINIT PROGRAM (615/40). 00615/042 PLOT SYSTEM CCPDEFER SA G S0876 CCGHL 'CALCOMP' FSNAME=CCPDEFER D4.1T1 399 PLOT_SYSTEM.CCPDEFER.SA.046 1 LINE 80 5 PAGE UM LIFT APR. 28, 1978 20:17:20 0 PROGRAM USED BY SYSTEM OPERATOR TO TELL CCP TO PUT PLOTS FOR CERTAIN CCIDS ON "DEFERRED" PLOT TAPE. INSTRUCTIONS AND DESCRIPTIONS WITHIN, AND IN OPERATOR'S MANUAL (592). SOURCE IN LINES (1,999). 00615/043 PLOT SYSTEM CCPDEFER OC G SYS:CCPDEFER D4.1T1 400 PLOT_SYSTEM.CCPDEFER.OC.047 1 LINE 80 2 PAGE UM LIFT MAY 13, 1978 17:53:11 SYS.:CCPDEFER 0 Referenced by comments of: 615/44 00615/044 PLOT SYSTEM *CCD C *CCD D4.2T1 488 PLOT_SYSTEM.*CCD.C.044 1 LINE 37 1 PAGE UM LIFT APR. 01, 1979 23:10:56 *CCD 0 COMMAND FILE INVOKED BY ENTERING "MTS *CCD" ON OPERATOR'S CONSOLE. USED BY THE SYSTEM OPERATOR TO PUT PLOTS FOR CERTAIN CCIDS ON "DEFERRED" PLOT TAPE. RUNS THE SYS:CCPDEFER PROGRAM (615/43). 0 Referenced by comments of: 615/34 00615/045 PLOT SYSTEM PIDENT SA G S0876 CCGHL 'CALCOMP' FSNAME=PIDENT D4.2T1 489 PLOT_SYSTEM.PIDENT.SA.045 1 LINE 80 4 PAGE UM LIFT FEB. 19, 1979 22:09:23 0 PROGRAM TO PRINT PLOT TAPE IDENTIFICATION, INCLUDING DATE LAST USED, MINIMUM TIME BETWEEN USES, AND THE LINE IN CCPPRIO (615/34) WHICH CONTAINS THE PLOT PRIORITY INFORMATION. SOURCE IN LINES (1,999). ASSEMBLE USING W030:PLOTTER.MAC (615/12). 1 THU SEP 12/96 23:39:34 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 Referenced by comments of: 615/47 00615/046 PLOT SYSTEM PIDENT OC G SYS:PIDENT D4.2T1 490 PLOT_SYSTEM.PIDENT.OC.046 1 LINE 80 1 PAGE UM LIFT APR. 01, 1979 23:20:29 SYS.:PIDENT 00615/047 PLOT SYSTEM *PLB C *PLB D4.2T1 491 PLOT_SYSTEM.*PLB.C.047 1 LINE 38 1 PAGE UM LIFT APR. 01, 1979 23:20:30 *PLB 0 COMMANDS TO RUN PIDENT (615/45) FROM OPERATOR'S CONSOLE. DOCUMENTATION IS IN THE OPERATOR'S MANUAL (592). 00615/048 PLOT SYSTEM MEMO 392 WT S1024 CCMEMO 'DOCUMENT' FSNAME=M392PLOTSYS.PENCHG D4.2T1 492 PLOT_SYSTEM.MEMO_392.WT.048 1 LINE 87 1 PAGE UM LIFT JAN. 05, 1979 13:21:30 0 THIS IS COMPUTING CENTER MEMO 392 -- "PENCHG: PEN SIZE CHANGES." 00616/001B TERM USAGE STATISTICS SA G DCST WSG:DCSTAT(1,999) RD16T1 131 TERM_USAGE_STATISTICS..SA.001 1 LINE 80 22 PAGE UM WSG JULY 12, 1979 23:05:26 WSG.:DCSTAT 0 PROGRAM TO COMPUTE SYSTEM USAGE BY VARIOUS TERMINAL TYPES, CLASSES, AND SPEEDS. IT READS *STATISTICS DATA AND PRINTS THE TOTAL USAGE (ELAPSED TIME, CPU TIME, CPU VMI, AND WAIT VMI) FOR EACH TERMINAL TYPE AND SUMMARY LINES FOR CLASSES OF TERMINALS. THE DISTRIBUTED VERSION IS SET UP FOR THE UM TERMINAL I/O CONFIGURATION (3 DATA CONCENTRATORS, MEMOREX 1270 (2703), MERIT, 3270, ETC.). THE FILE CONTAINING THE STATISTICS DATA MAY BE SPECIFIED IN THE PAR= FIELD OR A TAPE MAY BE SPECIFIED BY GIVING "PAR=TAPE-VOL 'TAPE ID'" WHERE VOL IS THE VOLUME NAME OF THE TAPE TO BE MOUNTED AND 'TAPE ID' IS THE EXTERNAL LABEL ("PAR=TAPE" MEANS THE TAPE IS UNLABELED). IF THE STATISTICS TAPE DIRECTORY SYSTEM (742) IS BEING USED, THEN "PAR=DATE=MM-DD(-YY)(...MM-DD(-YY))(,TIME=HH:MM...HH:MM)" SHOULD BE GIVEN TO SPECIFY A DATE/TIME RANGE (ITEMS IN () ARE OPTIONAL). IF NO PAR= IS GIVEN, THE DATA IS READ FROM *STATISTICS. CALLS THE STATIO ROUTINE (617/2). COPIES COPY:STATDSECT (620). ASSEMBLE USING 617/3. 00616/002B TERM USAGE STATISTICS OC G WSG:DCSTAT(1000) RD16T1 132 TERM_USAGE_STATISTICS..OC.002 1 LINE 80 7 PAGE UM WSG JULY 12, 1979 23:05:30 0 OBJECT FROM 616/1 + 617/2. ENDS WITH A "$CONTINUE WITH SYS:DIRLIB" CARD. 00617/001 USAGE STATISTICS STAT PGM SA G W116:STAT.S D4.2T1 495 USAGE_STATISTICS.STAT_PGM.SA.001 1 LINE 80 30 PAGE UM H YOUNG APR. 01, 1979 23:48:50 0 PROGRAM TO PRINT SYSTEM USAGE FOR SPECIFIED USER ID'S, ANSWERBACKS, AND MASTER SOURCE DEVICE NAMES. FOR EACH RECORD FOUND, THE USER ID, PROJECT NUMBER, SIGNON AND OFF TIMES, DATE, ANSWERBACK, ELAPSED TIME, AND MERIT CONNECT TIME ARE PRINTED ON SPRINT AND THE TOTAL ELAPSED TIME FOR ALL JOBS FOUND IS PRINTED ON SERCOM. INPUT COMMANDS ARE READ FROM GUSER IN RESPONSE TO THE PROMPT "READY:" ON SERCOM. THE FOLLOWING COMMANDS ARE ACCEPTED: DATE MM-DD MM-DD SPECIFY DATE RANGE FOR SUBSEQUENT SEARCHES. TIME HH:MM HH:MM SPECIFY TIME RANGE FOR SUBSEQUENT SEARCHES. U USERID SCAN FOR ALL RUNS FOR THIS USERID. D NAME SCAN FOR ALL RUNS FROM THIS MSOURCE DEVICE. A ANSWERBACK SCAN FOR ALL RUNS WITH THIS ANSWERBACK CODE. 1 THU SEP 12/96 23:39:34 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 N SCAN FOR ALL RUNS USING MERIT OUTBOUND CONNECTIONS. NOTE: THE CHARACTER "#" IS USED AS A FILL CHARACTER FOR THE MATCHING DONE BY THE U, D, AND A COMMANDS. FOR EXAMPLE "D LA##" WILL FIND ALL JOBS ON ANY "LA" (1270) LINE. THE FILE FROM WHICH THE INPUT STATISTICS DATA IS READ MAY BE SPECIFIED IN THE PAR FIELD OR A TAPE MAY BE SPECIFIED BY GIVING "PAR=TAPE-VOL 'TAPE ID'" WHERE VOL IS THE VOLUME NAME OF THE TAPE TO BE MOUNTED AND 'TAPE ID' IS THE THE EXTERNAL LABEL ("PAR=TAPE" MEANS THE TAPE IS UNLABELED). NOTE: IF NO PAR IS GIVEN, THE TAPES WILL BE AUTOMATICALLY MOUNTED AS NECESSARY WHEN THE DATE COMMAND IS ENTERED (THE TIME IS OPTIONAL). THIS FACILITY MAKES USE OF THE TAPE DIRECTORY ROUTINES (742) AND SYS:DIRECTORY (50/6), WHICH ACCESSES TAPE INFORMATION. IF NO DATE COMMAND IS ENTERED, *STATISTICS IS ACCESSED. COPIES COPY:STATDSECT (620). ASSEMBLE USING 617/3. 00617/002 USAGE STATISTICS STATIO SUBR SA O W116:STATTAPE.S D4.2T1 496 USAGE_STATISTICS.STATIO_S.SA.002 1 LINE 72 16 PAGE UM H YOUNG APR. 01, 1979 23:48:53 0 ROUTINE TO DO I/O TO STATISTICS FILES. THERE ARE THREE EQU'S AT THE FRONT OF THIS ASSEMBLY FOR FILETBLN, TAPETBLN, AND FDUBTBLN WHICH SPECIFY THE MAXIMUM NUMBER OF STATISTICS FILES, TAPES, AND TAPE DRIVES THE PROGRAM CAN USE. THE DISTRIBUTED VERSION IS SET FOR 100, 20, AND 10 RESPECTIVELY. THIS ROUTINE HANDLES ALL I/O AND MOUNTING OF ALL TAPES NEEDED TO SATISFY THE SPECIFIED DATE/TIME RANGE. ASSEMBLE USING 617/3. 0 Referenced by comments of: 616/1 00617/003 USAGE STATISTICS MACROS SM G W116:STATLIB D4.2T1 497 USAGE_STATISTICS.MACROS.SM.003 1 LINE 72 3 PAGE UM H YOUNG APR. 01, 1979 23:49:02 0 MACRO LIBRARY FOR 617/1 AND 617/2. 00617/004 USAGE STATISTICS OC O W108:STAT D4.2T1 498 USAGE_STATISTICS..OC.004 1 LINE 80 6 PAGE UM H YOUNG APR. 01, 1979 23:49:03 0 OBJECT FROM 617/1 + 617/2. ENDS WITH A "$CONTINUE WITH SYS:DIRLIB" CARD. 00618/001 BUFSTAT SA G BUFS WSG:BUFSTAT(1,999) D4T2 842 BUFSTAT..SA.001 1 LINE 80 4 PAGE UM WSG JULY 28, 1977 21:07:12 WSG.:BUFSTAT 0 PROGRAM TO PRINT WHICH JOBS ARE USING WHICH LOW-CORE TERMINAL BUFFERS, HOW MANY ARE NOT BEING USED, AND APPROXIMATELY HOW MANY MORE ARE REQUIRED WHEN THEY ARE ALL IN USE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). 0 Referenced by comments of: 9/1 00618/002 BUFSTAT OC G WSG:BUFSTAT(1000) D4T2 843 BUFSTAT..OC.002 1 LINE 80 1 PAGE UM WSG JULY 28, 1977 21:07:15 00619/001 *ASMT *ASMTSYSMAC SM O SYSM *ASMTSYSMAC D4.2T1 499 ASMT.*ASMTSYSMAC.SM.001 1 LINE 80 167 PAGE UM TIFFANY APR. 01, 1979 23:49:04 *ASMTSYSMAC 0 THE IBM TSS/360 ASSEMBLER MODIFIED TO RUN IN MTS. 1 THU SEP 12/96 23:39:34 Page 285 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *ASMTSYSMAC IS THE ASMT VERSION OF *SYSMAC. 00619/002 *ASMT MACROS SM G MAC S0683 OGDEN FSNAME=ASMTMACROS D4T2 845 ASMT.MACROS.SM.002 1 LINE 80 75 PAGE UM TIFFANY JUNE 17, 1976 22:40:31 0 MACRO LIBRARY USED TO ASSEMBLE COMPS 619/3 THROUGH 619/23. CONTAINS DSECTS, PSECTS, AND OTHER TID BITS. 0 Referenced by comments of: 619/3 00619/003 *ASMT PHASE 1.1 SA S A1 S0683 OGDEN FSNAME=CEVA1.S D4T2 846 ASMT.PHASE_1.1.SA.003 1 LINE 80 45 PAGE UM TIFFANY MAR. 02, 1976 00:11:50 0 COMPS 619/3 THROUGH 619/23 SHOULD ALL BE ASSEMBLED USING THE ASMTMACROS MACRO LIBRARY (619/2) AND *SYSMAC. 00619/004 *ASMT PHASE 1.2 SA S A2 S0683 OGDEN FSNAME=CEVA2.S D4T2 847 ASMT.PHASE_1.2.SA.004 1 LINE 80 52 PAGE UM TIFFANY JAN. 15, 1975 21:41:40 00619/005 *ASMT PHASE 1.3 SA S A3 S0683 OGDEN FSNAME=CEVA3.S D4T2 848 ASMT.PHASE_1.3.SA.005 1 LINE 80 50 PAGE UM TIFFANY JAN. 15, 1975 21:41:45 00619/006 *ASMT PHASE 1.4 SA S A4 S0683 OGDEN FSNAME=CEVA4.S D4T2 849 ASMT.PHASE_1.4.SA.006 1 LINE 80 42 PAGE UM TIFFANY JAN. 15, 1975 21:41:50 00619/007 *ASMT PHASE 1.5 SA S A5 S0683 OGDEN FSNAME=CEVA5.S D4T2 850 ASMT.PHASE_1.5.SA.007 1 LINE 80 51 PAGE UM TIFFANY JAN. 15, 1975 21:41:53 00619/008 *ASMT PHASE 1.6 SA S A6 S0683 OGDEN FSNAME=CEVA6.S D4T2 851 ASMT.PHASE_1.6.SA.008 1 LINE 80 48 PAGE UM TIFFANY JAN. 15, 1975 21:41:59 00619/009 *ASMT PHASE 1.7 SA S A7 S0683 OGDEN FSNAME=CEVA7.S D4T2 852 ASMT.PHASE_1.7.SA.009 1 LINE 80 41 PAGE UM TIFFANY JAN. 15, 1975 21:42:03 00619/010 *ASMT PHASE 1.8 SA S A8 S0683 OGDEN FSNAME=CEVA8.S D4T2 853 ASMT.PHASE_1.8.SA.010 1 LINE 80 19 PAGE UM TIFFANY JAN. 15, 1975 21:42:07 00619/011 *ASMT PHASE 1.9 SA S A9 S0683 OGDEN FSNAME=CEVA9.S D4T2 854 ASMT.PHASE_1.9.SA.011 1 LINE 80 10 PAGE UM TIFFANY JAN. 15, 1975 21:42:09 00619/012 *ASMT PHASE 2.1 SA S B1 S0683 OGDEN FSNAME=CEVB1.S D4T2 855 ASMT.PHASE_2.1.SA.012 1 LINE 80 30 PAGE UM TIFFANY JAN. 15, 1975 21:42:11 00619/013 *ASMT PHASE 2.2 SA S C1 S0683 OGDEN FSNAME=CEVC1.S D4T2 856 ASMT.PHASE_2.2.SA.013 1 LINE 80 42 PAGE UM TIFFANY JAN. 15, 1975 21:42:14 00619/014 *ASMT PHASE 2.3 SA S D1 S0683 OGDEN FSNAME=CEVD1.S D4T2 857 ASMT.PHASE_2.3.SA.014 1 LINE 80 20 PAGE UM TIFFANY FEB. 11, 1975 01:57:51 00619/015 *ASMT PHASE 3.1 SA S E1 S0683 OGDEN FSNAME=CEVE1.S D4T2 858 ASMT.PHAS1_3.1.SA.015 1 LINE 80 65 PAGE UM TIFFANY MAR. 10, 1976 17:14:58 00619/016 *ASMT PHASE 3.2 SA S E2 S0683 OGDEN FSNAME=CEVE2.S D4T2 859 ASMT.PHASE_3.2.SA.016 1 LINE 80 65 PAGE UM TIFFANY FEB. 13, 1976 03:55:40 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00619/017 *ASMT PHASE 4 SA S F1 S0683 OGDEN FSNAME=CEVF1.S D4T2 860 ASMT.PHASE_4.SA.017 1 LINE 80 59 PAGE UM TIFFANY JAN. 15, 1975 21:42:34 00619/018 *ASMT ASMTGO SA B GO S0683 OGDEN FSNAME=ASMTGO.S D4T2 861 ASMT.ASMTGO.SA.018 1 LINE 80 4 PAGE UM TIFFANY JAN. 15, 1975 21:41:15 00619/019 *ASMT ASMTDEFS SA DEFS S0683 OGDEN FSNAME=ASMTDEFS.S D4T2 862 ASMT.ASMTDEFS.SA.019 1 LINE 80 4 PAGE UM TIFFANY JAN. 15, 1975 21:41:12 0 ASMT LOW-CORE SYMBOL TABLE. 00619/020 *ASMT CEVAR SA S AR S0683 OGDEN FSNAME=CEVAR.S D4T2 863 ASMT.CEVAR.SA.020 1 LINE 80 8 PAGE UM TIFFANY JAN. 15, 1975 21:41:34 0 ASMT PSECTS. ASSEMBLE WITH PAR=BATCH. 00619/021 *ASMT LPC SA O LPC S0683 OGDEN FSNAME=ASMTLPC.S D4T2 864 ASMT.LPC.SA.021 1 LINE 80 20 PAGE UM TIFFANY JUNE 01, 1975 23:30:22 0 ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT). 00619/022 *ASMT OBJ PRODUCER SA O DECK S0683 OGDEN FSNAME=DECK.S D4T2 865 ASMT.OBJ_PRODUCER.SA.022 1 LINE 80 28 PAGE UM TIFFANY FEB. 13, 1976 03:55:47 0 PROGRAM TO CONVERT TSS OBJECT TO MTS FORMAT OBJECT DECK. 00619/023 *ASMT CEVML SA O ML S0683 OGDEN FSNAME=CEVML.S D4.1T1 403 ASMT.CEVML.SA.023 1 LINE 80 10 PAGE UM TIFFANY APR. 24, 1978 01:52:36 0 MACRO AND COPY LIBRARY RETRIEVAL. COPIES *GDINFODSECT (594). 00619/024B *ASMT *ASMT OE O *ASMT RD16T1 133 ASMT.*ASMT.OE.024 1 LINE 3236 101 PAGE UM TIFFANY JULY 12, 1979 23:05:33 *ASMT 0 ***************************************************************************** RD16 CHANGES: ASMT IS NO LONGER IN SEGMENT 2 DUE TO LOW USE COUNT. ***************************************************************************** 00619/025 *ASMT DOCUMENTATION WF S0683 OGDEN FSNAME=ASMTDOC D4T2 869 ASMT.DOCUMENTATION.WF.026 1 LINE 153 5 PAGE UM TIFFANY JAN. 15, 1975 21:41:13 0 *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION. FILE HAS A "$CONTINUE WITH *DUMMY*" LINE. NOTE: THIS FILE HAS COMMANDS AT NEGATIVE LINE NUMBERS. 00619/026 *ASMT FRAME SA G FRAM S0683 OGDEN FSNAME=FRAME.S D4T2 870 ASMT.FRAME.SA.027 1 LINE 80 4 PAGE UM TIFFANY APR. 22, 1977 15:08:31 0 SUBROUTINE TO INTERCEPT SCARDS CALLS AND EXPAND "*FRAME" BOXES. ALSO USABLE WITH *ASMG. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00619/027 *ASMT FRAME OE G S0683 OGDEN FSNAME=FRAME.O D4T2 871 ASMT.FRAME.OE.028 1 SEQ 862 1 PAGE UM TIFFANY APR. 22, 1977 15:08:32 00620/001 STAT DSECT SA G STAD COPY:STATDSECT D4T2 872 STAT_DSECT..SA. 1 LINE 80 3 PAGE UM MTS HELFFRICH AUG. 14, 1977 22:00:00 COPY:STATDSECT 0 THIS IS "COPY:STATDSECT" WHICH IS A COPY SECTION FOR THE *STATISTICS RECORD FORMAT DSECT. 0 Referenced by comments of: 71/1, 355/1, 616/1, 617/1, 707/1, 753/1, 753/3 00620/002 STAT DSECT GOM SOURCE SG G COPY:STATDSECT.SG D4.2T1 500 STAT_DSECT.GOM_SOURCE.SG.002 1 LINE 95 3 PAGE UM MTS HELFFRICH APR. 01, 1979 23:49:18 COPY:STATDSECT.SG 0 GOM VERSION OF *STATISTICS RECORD DSECT. 00621/001 DIRECT ACCESS ERROR LOG *DLG C *DLG D4T2 873 DIRECT_ACCESS_ERROR_LOG.*.C.001 1 LINE 36 1 PAGE UM MTA JULY 28, 1977 21:15:04 *DLG 0 COMMAND FILE, INVOKED AT UM AS PART OF *LAS (154), WHICH RUNS THE READ3330LOG PROGRAM (621/2) TO READ THE 3330 AND 2305 BUFFERED ERROR LOGS HOURLY. THIS FILE COULD ALSO BE SETUP TO RUN THE CONSOLE WATCH PROGRAM (621/6) IF 2314 DISKS ARE BEING USED. NOTE: THE FILE ETC:3330LOCK IS LOCKED BY *DLG (WITH QUIT) TO KEEP TWO COPIES OF *DLG FROM RUNNING SIMULTANEOUSLY. 00621/002 DIRECT ACCESS ERROR LOG READ3330LOG SA G MTA:READ3330LOG(1,999) D4.1T1 405 DIRECT_ACCESS_ERROR_LOG.R.SA.002 1 LINE 80 5 PAGE UM MTA MAY 13, 1978 17:53:25 MTA.:READ3330LOG 0 WHEN FIRST RUN AND EVERY HOUR THEREAFTER, THIS PROGRAM READS THE BUFFERED HARDWARE ERROR LOG FROM EVERY PUBLIC 3330 VOLUME AND 2305 AND LOGS THE RESULTS IN THE FORM OF UC ERROR MESSAGES. COPIES COPY:CMDAREADSECT (531/18), COPY:GLOBALS (1026/3), AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 621/1, 621/4, 621/6 00621/003 DIRECT ACCESS ERROR LOG READ3330LOG OC G MTA:READ3330LOG(1000) D4.1T1 406 DIRECT_ACCESS_ERROR_LOG.R.OC.003 1 LINE 80 2 PAGE UM MTA MAY 13, 1978 17:53:26 00621/004 DIRECT ACCESS ERROR LOG PRINT UC 3330 SA G MTA:PRINTUC3330(1,999) D4T2 876 DIRECT_ACCESS_ERROR_LOG.P.SA.004 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 21:15:11 MTA.:PRINTUC3330 0 PROGRAM TO READ UNIT CHECK LOG RECORDS, AS SAVED BY READ3330LOG (621/2), UC3330 (603), OR ANY OTHER UNIT CHECK ROUTINE. READS FROM SCARDS, PRINTS ON SPRINT. IT IGNORES ALL RECORDS THAT ARE NOT OF TYPE 4. "PAR=ERRORS" MEANS TO PRINT ONLY THOSE RECORDS WHICH ARE REALLY ERRORS. CALLS READBFR ROUTINE (709) AND PRUC3330 (621/10). COPIES COPY:CMDAREADSECT (531/18). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00621/005 DIRECT ACCESS ERROR LOG PRINT UC 3330 OC G MTA:PRINTUC3330(1000) D4T2 877 DIRECT_ACCESS_ERROR_LOG.P.OC.005 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 21:15:13 00621/006 DIRECT ACCESS ERROR LOG CONSOLE WATCH SA O S0724 'D3T5' FSNAME=DISK_ERROR_LOG.CONSOLE_WAT.SA.6(1) 242 D4T2 878 DIRECT_ACCESS_ERROR_LOG.C.SA.006 1 LINE 80 2 PAGE UM MTA AUG. 02, 1973 00:53.48 0 PROGRAM TO KEEP WATCHING OUTPUT PRINTED ON OPERATORS CONSOLE LOOKING FOR 2314 DISK UNIT CHECK MESSAGES AND WRITES THEM IN A FILE. READ3330LOG (621/2) IS A REPLACEMENT FOR THIS PROGRAM WHEN 3330 AND 2305 HARDWARE IS BEING USED. 0 Referenced by comments of: 621/1 00621/007 DIRECT ACCESS ERROR LOG CONSOLE WATCH OC O S0724 'D3T5' FSNAME=DISK_ERROR_LOG.CONSOLE_WAT.OC.7(1) 243 D4T2 879 DIRECT_ACCESS_ERROR_LOG.C.OC.007 1 LINE 80 1 PAGE UM MTA AUG. 02, 1973 00:53.50 00621/008 DIRECT ACCESS ERROR LOG SORT AND PRINT SA G MTA:PRINTUC D4T2 880 DIRECT_ACCESS_ERROR_LOG.S.SA.008 1 LINE 80 21 PAGE UM MTA JULY 28, 1977 21:16:31 MTA.:PRINTUC 0 PROGRAM TO SORT AND SUMMARIZE UNIT CHECK AND BUFFERED LOG DATA FOR 3330 AND 2305. ACCEPTS PAR=STC (FOR STC DRIVES, SEE BELOW), 2305 (TO PRINT 2305 ERRORS ONLY), OR BOTH (FOR BOTH 2305 AND 3330 ERRORS). IF NEITHER 2305 NOR BOTH IS GIVEN, IT PROMTS. COPIES COPY:CMDAREADSECT (531/18). CALLS PRUC3330 (621/10) AND JVCT (674). HAS ASSEMBLY PARAMETER (&UM) WHICH REMAPS STC DRIVE IDS ACCORDING THE MESS STC MADE OF THEM AT UM. 00621/009 DIRECT ACCESS ERROR LOG SORT AND PRINT OC G MTA:PUC D4T2 881 DIRECT_ACCESS_ERROR_LOG.S.OC.009 1 LINE 80 6 PAGE UM MTA JULY 28, 1977 21:16:40 MTA.:PUC 0 HAS A "$CONTINUE WITH MTA:PRUC3330(1000)+W030:UBCDATEX RETURN" RECORD. THE REFERENCE TO W030:UBCDATEX IS FOR THE OBJECT FOR JVCT (674). 00621/010 DIRECT ACCESS ERROR LOG PRUC3330 SA G MTA:PRUC3330(1,999) D4T2 882 DIRECT_ACCESS_ERROR_LOG.P.SA.010 1 LINE 80 7 PAGE UM MTA JULY 28, 1977 21:16:43 MTA.:PRUC3330 0 SUBROUTINE CALLED BY 621/4 AND 621/8. COPIES COPY:CMDAREADSECT (531/18). 0 Referenced by comments of: 621/4, 621/8 00621/011 DIRECT ACCESS ERROR LOG INIT:UC3330LOG D # MTS:TST.3330LOG UM MTA INIT:UC3330LOG 0 LOG FILE USED BY THE CMDSTAT PICKUP PROGRAM (*CMD) TO SAVE TYPE 4 (DIRECT ACCESS UNIT CHECK) RECORDS. 00621/012 DIRECT ACCESS ERROR LOG PRUC3330 OC G MTA:PRUC3330(1000) D4T2 883 DIRECT_ACCESS_ERROR_LOG.P.OC.011 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 21:16:45 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00621/013 DIRECT ACCESS ERROR LOG ETC:3330LOCK D # MTS:TST.3330LOCK UM MTA ETC:3330LOCK 0 EMPTY FILE LOCKED BY *DLG TO PREVENT MORE THAN ONE COPY RUNNING AT ONCE. 00622 FCBDSECT SA # (OBSOLETED BY 344) D3.2T2 7 FCBDSECT..SA. 1 LINE 80 4 PAGE UM MAR. 21, 1975 02:15:34 00623 FDUBDSECT SA # (OBSOLETED BY 344) D3.2T2 8 FDUBDSECT..SA. 1 LINE 80 3 PAGE UM MAR. 21, 1975 02:15:37 00624 WOPTRDSECT SA # (OBSOLETED BY 344) D3.2T2 9 WOPTRDSECT..SA. 1 LINE 80 1 PAGE UM MAR. 21, 1975 02:15:39 00625/001 *TAPEFIXER SA O S1237 TAPES 'TAPEFS' FSNAME=TAPEFIXER D4.1T1 407 TAPEFIXER..SA.001 1 LINE 73 13 PAGE UM LIFT SEP. 28, 1977 16:56:00 0 PROGRAM TO RECOVER DATA FROM A 9-TRACK LABELED TAPE WHICH HAS BEEN PARTIALLY DESTROYED OR CONTAINS UNREADABLE BLOCKS. 00625/002 *TAPEFIXER OE O *TAPEFIXER D4.1T1 408 TAPEFIXER..OE.002 1 LINE 7503 4 PAGE UM LIFT MAY 13, 1978 17:53:50 *TAPEFIXER 00626/001 ATNTRP SUBR SA G ATRP S0579 SAVE 'JWS-SAVE' FSNAME=ATNTRP.S D4T2 886 ATNTRP_SUBR..SA.001 1 LINE 80 1 PAGE UM DWB JULY 26, 1974 09:21.43 0 SUBROUTINE TO ALLOW FORTRAN USERS TO CALL ATTNTRP. MISSED IN DIST 3.0. 00626/002 ATNTRP SUBR OC G # *LIBRARY (SEE COMP 524) UM DWB 00627/001 GDINF SUBR SA G GDIN S0579 SAVE 'JWS-SAVE' FSNAME=GDINF.S D4T2 887 GDINF_SUBR..SA.001 1 LINE 80 1 PAGE UM DWB MAR. 04, 1976 10:29:29 0 SUBROUTINE TO ALLOW FORTRAN USERS TO CALL GDINFO. MISSED IN DIST 3.0. 00627/002 GDINF SUBR OC G # *LIBRARY (SEE COMP 524) UM DWB 00628/001B *3284RTN DSR SA B S0683 OGDEN FSNAME=3284.S RD16T1 134 3284RTN.DSR.SA.001 1 LINE 69 2 PAGE UM OGDEN JUNE 27, 1979 05:08:41 0 DSR FOR IBM 3284, 3286, 3287, AND SIMILAR PRINTERS. USES THE TR3270 TABLES (629/12). 0 Referenced by comments of: 629/12 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00628/002B *3284RTN DSR OC B *3284RTN RD16T1 135 3284RTN.DSR.OC.002 1 LINE 80 1 PAGE UM OGDEN JULY 12, 1979 23:05:40 *3284RTN 00628/003 *3284RTN UNIT CHECK SA G MTS:UC3284(1,999) D4T2 888 UC3284..SA.001 1 LINE 72 3 PAGE UM OGDEN JULY 28, 1977 21:20:35 MTS.:UC3284 0 UNIT CHECK ROUTINES FOR IBM 3284, 3286, 3287, AND SIMILAR PRINTERS. 00628/004 *3284RTN UNIT CHECK OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00629/001B *3270RTN SA G S0683 OGDEN FSNAME=3270.S RD16T1 136 3270RTN..SA.001 1 LINE 73 86 PAGE UBC SAYLE OGDEN APR. 08, 1979 16:32:39 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), *SENSEDSECT (3025), COPY:GLOBALS (1026/3), AND COPY:LLMPSEQUS (087). 0 Referenced by comments of: 629/2, 629/12 00629/002C *3270RTN UPDATE UC G S0683 OGDEN FSNAME=3270UPD RD16T1 137 3270RTN.UPDATE.UC.002 1 LINE 98 25 PAGE UBC SAYLE OGDEN JULY 12, 1979 12:26:35 0 UPDATE TO PRODUCE CURRENT *3270RTN SOURCE FROM D4.2 SOURCE (629/1). 00629/003C *3270RTN IO3066 SA G SCON S0683 OGDEN FSNAME=IO3066.S RD16T1 138 3270RTN.IO3066.SA.003 1 LINE 80 14 PAGE UM OGDEN JUNE 27, 1979 05:09:55 0 SUBROUTINE TO SIMULATE A 3270 ON A 3066 BY INTERPRETING A 3270 CHANNEL PROGRAM. ASSEMBLE USING *SYSMAC. 00629/004 *3270RTN ACTIVITY SUBR SA G S0683 OGDEN FSNAME=ACTIVITY.S D4.2T2 529 3270RTN.ACTIVITY_SUBR.SA.002 1 LINE 80 11 PAGE UBC SAYLE OGDEN DEC. 03, 1978 06:55:28 0 GENERATES %ACTIVITY DISPLAY. CALLED BY 629/1. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 413/1, 629/8, 647/1 00629/005B *3270RTN OC G *3270RTN RD16T1 139 3270RTN..OC.005 1 LINE 2159 11 PAGE UBC SAYLE OGDEN JULY 12, 1979 23:06:08 *3270RTN 0 OBJECT FOR 629/1, 629/3, AND 629/4. 00629/006 *3270RTN GRAB3270 SA G S0683 OGDEN FSNAME=GRAB3270.S D4.2T2 531 3270RTN.GRAB3270.SA.004 1 LINE 59 1 PAGE UBC SAYLE OGDEN DEC. 03, 1978 04:08:59 0 THIS IS THE SHARED TABLE FOR USE WITH THE %GRAB AND %FLIP COMMANDS IN THE 3270 DSR. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00629/007 *3270RTN GRAB3270 OC G SEG2:GRAB3270 D4.2T2 532 3270RTN.GRAB3270.OC.005 1 LINE 80 1 PAGE UBC SAYLE OGDEN APR. 09, 1979 00:21:25 SEG2:GRAB3270 0 THIS OBJECT SHOULD BE LOADED BY PISTLE PRIOR TO LOADING THE 3270 DSR. 00629/008 *3270RTN TEST ACTIVITY SF G TACT S0683 OGDEN FSNAME=TACTIVITY.S D4.1T1 411 3270RTN.TEST_ACTIVITY.SF.006 1 LINE 80 3 PAGE UM OGDEN APR. 30, 1978 14:24:15 0 A MAIN PROGRAM WHICH CALLS THE ACTIVITY SUBROUTINE (629/4) AND PRINTS THE RESULTS ON SPRINT. FOR TESTING PURPOSES ONLY. 00629/009 *3270RTN TEST ACTIVITY OC G S0683 OGDEN FSNAME=TA D4.1T1 412 3270RTN.TEST_ACTIVITY.OC.007 1 LINE 516 1 PAGE UM OGDEN APR. 30, 1978 14:24:17 00629/010B *3270RTN 3066RTN OC G *3066RTN RD16T1 140 3270RTN.3066RTN.OC.010 1 LINE 24 1 PAGE UBC SAYLE OGDEN JULY 12, 1979 23:06:09 *3066RTN 0 CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD. 00629/011C *3270RTN 3036RTN OC G *3036RTN RD16T1 141 3270RTN.3036RTN.OC.011 1 LINE 24 1 PAGE UBC SAYLE OGDEN JULY 12, 1979 23:06:10 0 CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD. 00629/012C *3270RTN TR3270 SA G S0683 OGDEN FSNAME=TR3270.S RD16T1 142 3270RTN.TR3270.SA.012 1 LINE 72 3 PAGE UM OGDEN JUNE 27, 1979 05:08:44 0 PROVIDES THE TR AND TRT TABLES USED BY THE 3270 DSR (629/1), THE 3284 DSR (628/1), THE EDITOR (648), *APC (496), AND THE OPERATOR JOB (634). 0 Referenced by comments of: 496/2, 628/1, 629/1, 634/1, 648/4 00629/013C *3270RTN TR3270 OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00630/001 TRUNCATE SA G TRUN S0684 UNSP FSNAME=TRUNCATE.S D4T2 897 TRUNCATE..SA.001 1 LINE 80 7 PAGE UM UNSP MAR. 27, 1976 12:24:30 0 SCANS FILES ON USERS ACCOUNT AND TRUNCATES THOSE THAT NEED IT. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. COPIES *GFINFODSECT (593). 00630/002 TRUNCATE OE G UNSP:TRUNCATE D4T2 898 TRUNCATE..OE.002 1 SEQ 2693 3 PAGE UM UNSP JULY 28, 1977 21:26:04 UNSP:TRUNCATE 00631/001 ACCOUNTING CLS CLSTV SA G CLST S0027 DISTRB FSNAME=CLSTV D4T2 899 ACCOUNTING_CLS.CLSTV.SA.001 1 LINE 80 3 PAGE UM ENGLE DEC. 07, 1976 17:26:08 0 PROGRAM TO PRODUCE CLSTRANSVEC WHICH IS A COPY SECTION FOR ACCCLS. COPIES GRDEF (104/68). ASSEMBLE USING COPY:MTS.MACROS (344/3). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00631/002 ACCOUNTING CLS CLSTV OC G CLST S0027 DISTRB FSNAME=CLST D4T2 900 ACCOUNTING_CLS.CLSTV.OC.002 1 LINE 80 3 PAGE UM ENGLE MAY 20, 1976 16:46:03 0 Referenced by comments of: 631/3 00631/003 ACCOUNTING CLS CLSTRANSVEC SA G S0027 DISTRB FSNAME=CLSTRANSVEC D4T2 901 ACCOUNTING_CLS.CLSTRANSVE.SA.003 1 LINE 19 1 PAGE UM ENGLE MAY 20, 1976 16:46:09 0 COPY SECTION FOR ACCCLS PRODUCED BY RUNNING CLSTV (631/2). 0 Referenced by comments of: 631/4 00631/004 ACCOUNTING CLS ACCCLS SA G ACLS S0027 DISTRB FSNAME=ACCCLS D4T2 902 ACCOUNTING_CLS.ACCCLS.SA.004 1 LINE 80 7 PAGE UM ENGLE MAY 20, 1976 16:46:12 0 INTERFACE BETWEEN ACCOUNTING CLS CALL AND ACCMXMAT. COPIES GRDEF (104/68) AND CLSTRANSVEC (631/3). 00631/005 ACCOUNTING CLS ACCCLS OC G ACLS S0027 DISTRB FSNAME=ACLS D4T2 903 ACCOUNTING_CLS.ACCCLS.OC.005 1 LINE 80 3 PAGE UM ENGLE MAY 20, 1976 16:46:16 0 Referenced by comments of: 631/13 00631/006 ACCOUNTING CLS ACCMXMAT SA G AMXM S0027 DISTRB FSNAME=ACCMXMAT D4.2T1 501 ACCOUNTING_CLS.ACCMXMAT.SA.006 1 LINE 80 56 PAGE UM ENGLE FEB. 05, 1979 17:30:33 0 ACCOUNTING MAXIMUM MAINTENANCE (MAIN PROGRAM FOR ACCOUNTING CLS). THE EXTERNAL SYMBOL ACCLOGFL CONTAINS THE NAME OF A FILE (ACC:ACCLOG) INTO WHICH A LOG IS WRITTEN. COPIES ACCFORMAT (104/1), ACCPROJFMT (104/2), AND COPY:RATEVEC (651/2). IF &STAPRJ IS SET TO 1, THE OBJECT FOR ACC:STAPROJECT (104/66) 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: 104/66 00631/007 ACCOUNTING CLS ACCMXMAT UC G S0027 DISTRB FSNAME=ACCMXMATUPD D4.2T1 502 ACCOUNTING_CLS.ACCMXMAT.UC.007 1 LINE 73 3 PAGE UM ENGLE FEB. 05, 1979 17:30:40 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00631/008 ACCOUNTING CLS ACCMXMAT OC G S0027 DISTRB FSNAME=AMXM D4.2T1 503 ACCOUNTING_CLS.ACCMXMAT.OC.008 1 LINE 80 12 PAGE UM ENGLE JAN. 25, 1979 16:32:11 0 Referenced by comments of: 104/67, 631/13 00631/009 ACCOUNTING CLS ACUSPRNT SA G AUPR S0027 DISTRB FSNAME=ACUSPRNT D4T2 906 ACCOUNTING_CLS.ACUSPRNT.SA.008 1 LINE 80 8 PAGE UM ENGLE DEC. 15, 1975 14:45:51 0 PRINT SUBROUTINE FOR ACCOUNTING CLS. COPIES ACCFORMAT (104/1). THIS PROGRAM USES A SETC SYMBOL &DC TO CONTROL ASSEMBLY OF DATA CELL INSTRUCTIONS. IF IT IS SET TO '0', THE DATA CELL INSTRUCTIONS WILL NOT BE ASSEMBLED. SEE THE SOURCE FOR THE VALUE TO BE USED FOR DATA CELL. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00631/010 ACCOUNTING CLS ACUSPRNT OC G S0027 DISTRB FSNAME=AUPR D4T2 907 ACCOUNTING_CLS.ACUSPRNT.OC.009 1 LINE 80 3 PAGE UM ENGLE DEC. 15, 1975 14:46:14 0 Referenced by comments of: 631/13 00631/011 ACCOUNTING CLS FASTIOCK SA G FIOC S0967 'D3.2T2' FSNAME=ACCOUNTING_CLS.FASTIOCK.SA.10(1) 19 D4T2 908 ACCOUNTING_CLS.FASTIOCK.SA.010 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 12:48.35 0 SUBROUTINE TO DETERMINE IF AN I/O UNIT IS "FAST." USED IN ACCOUNTING CLS. COPIES GRDEF (104/68). 00631/012 ACCOUNTING CLS FASTIOCK OC G S0967 'D3.2T2' FSNAME=ACCOUNTING_CLS.FASTIOCK.OC.11(1) 20 D4T2 909 ACCOUNTING_CLS.FASTIOCK.OC.011 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 12:48.53 0 Referenced by comments of: 104/1, 631/13 00631/013 ACCOUNTING CLS *CLSACC OE G *CLSACC D4.2T1 504 ACCOUNTING_CLS.*CLSACC.OE.013 1 SEQ 12084 8 PAGE UM ENGLE FEB. 02, 1979 14:41:14 *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/103) + DIRECTRY (104/58) + ACCIO (104/23) + FILENAME (104/56) +ACUSPRNT (631/10) + FASTIOCK (631/12) + IOLOKCK (104/112) + TIMETRP (104/94) + *LCS. THIS FILE MUST BE PERMITTED AS FOLLOWS: U/N,R PKEY=*ACC 00631/014 ACCOUNTING CLS *PRJACCSTAT D # MTS:TST.PRJACCST UM ENGLE *PRJACCSTAT 0 FILE USED TO HOLD ERROR COMMENTS FROM THE ACCOUNTING MAINTENANCE PROGRAM. SHOULD BE PERMITTED: P/N, WE PKEY=*ACC 00632/001 REBATE REBATE SP G S0811 REBATE 'REBATES' FSNAME=REBATE D4T2 911 REBATE.REBATE.SP.001 1 LINE 77 26 PAGE UM LIFT JAN. 03, 1977 22:59:27 0 PROGRAM TO REBATE CHARGES FOR MTS JOBS. 00632/002 REBATE REBATE OC G ACC:REBATE D4T2 912 REBATE.REBATE.OC.002 1 LINE 80 28 PAGE UM LIFT JAN. 03, 1977 22:59:53 ACC:REBATE 0 OBJECT FOR 631/1 PRECEDED BY COMMANDS TO RUN IT. RUN WITH PROT=OFF. LINE 2 CONTAINS "SPUNCH=BILL:HAND". REPLACE BILL:HAND WITH THE NAME OF THE FILE INTO WHICH HAND BILLING RECORDS FOR REBATE RECORDS ARE TO BE PLACED. SEE COMPONENT 500/11 FOR A DESCRIPTION OF HAND BILLING. 00632/003 REBATE RBATACC SA G RBTA S0027 DISTRB FSNAME=RBATACC D4T2 913 REBATE.RBATACC.SA.003 1 LINE 80 6 PAGE UM ENGLE DEC. 05, 1975 14:31:44 0 SUBROUTINE CALLED BY REBATE TO COMPUTE COST OF REBATE AND TO UPDATE USERS ACCOUNTING RECORD. USED IN ACCLIB (104/39). COPIES GRDEF (104/68), COPY:RATEVEC (651/2), AND ACCFORMAT (104/1). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00632/004 REBATE RBATACC OC G S0027 DISTRB FSNAME=RBTA D4T2 914 REBATE.RBATACC.OC.004 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1975 14:43:37 0 Referenced by comments of: 104/1 00632/005 REBATE STAREAD SA G S0811 REBATE 'REBATES' FSNAME=STAREAD D4.1T1 416 REBATE.STAREAD.SA.005 1 LINE 77 3 PAGE UM LIFT MAR. 07, 1978 16:07:58 0 SUBROUTINE CALLED BY REBATE TO READ A RECORD FROM *STATISTICS. 00632/006 REBATE STAREAD OC G S0811 REBATE 'REBATES' FSNAME=STAREAD.O D4.1T1 417 REBATE.STAREAD.OC.006 1 LINE 80 2 PAGE UM LIFT MAR. 07, 1978 16:08:02 0 OBJECT ALSO IN ACCLIB (104/39). 0 Referenced by comments of: 104/1 00632/007 REBATE WRITEUP WF G S0811 REBATE 'REBATES' FSNAME=REBATEWRUP D4T2 917 REBATE.WRITEUP.WF.007 1 LINE 80 6 PAGE UM LIFT JAN. 03, 1977 22:34:23 0 WRITEUP DESCRIBING HOW TO RUN THE REBATE PROGRAM. 00632/008 REBATE REQUEST FORM C W012:REBATE D4T2 918 REBATE.REQUEST_FORM.C.008 1 LINE 112 2 PAGE UM LIFT JULY 28, 1977 21:33:19 0 COMMANDS AND FORMAT INPUT FOR REBATE REQUEST FORM. IT IS ASSUMED THAT THIS IS THE CONTENTS OF A FILE NAMED "REBATE" AND THAT THE LINE NUMBERS ARE RETAINED. 00632/009 REBATE CCREBATE SA G S0811 REBATE 'REBATES' FSNAME=CCREBATE UM LIFT 0 PROGRAM TO TAKE QUEUE RECORDS FROM SYS:PLOTREBAT AND PRODUCE INPUT TO THE REBATE PROGRAM. THE OUTPUT FROM THIS PROGRAM IS WRITTEN INTO ACC:PLOTREBAT. 0 Referenced by comments of: 615/38, 632/11 00632/010 REBATE CCREBATE OC G ACC:CCREBATE UM LIFT ACC:CCREBATE 00632/011 REBATE ACC:PLOTREBAT D # MTS:TST.EMPTY UM LIFT ACC:PLOTREBAT 0 DATA FILE USED FOR OUTPUT FROM CCREBATE (632/9). 00633/001 *PL1SCAN IBM SOURCE SA G S0696 OSSRC6 POSN=PL552 D4T2 919 PL1SCAN.IBM_SOURCE.SA.001 1 SEQ 80 220 PAGE UM TIFFANY JULY 28, 1977 21:37:24 0 IBM OS/360 (RELEASE 21.7) SOURCE FOR PL/I SYNTAX SCANNING PROGRAM. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00633/002 *PL1SCAN MTS UPDATE UU G S0410 MTSPL1 'PL1LIB' POSN=PL1SCANUP.D4 D4T2 920 PL1SCAN.MTS_UPDATE.UU.002 1 LINE 80 4 PAGE UM TIFFANY JULY 28, 1977 21:37:30 0 *IEBUPDAT DECK FOR MTS CHANGES. ASSEMBLE OUTPUT OF UPDATE USING IKM (633/3). COPIES IKMBASE (633/4). 00633/003 *PL1SCAN IKM SM G S0410 MTSPL1 'PL1LIB' POSN=PL1SCNIKM.D4 D4T2 921 PL1SCAN.IKM.SM.003 1 LINE 80 20 PAGE UM TIFFANY JULY 28, 1977 21:37:30 0 Referenced by comments of: 633/2 00633/004 *PL1SCAN IKMBASE SA G S0410 MTSPL1 'PL1LIB' POSN=PL1SCNIKMBASE.D4 D4T2 922 PL1SCAN.IKMBASE.SA.004 1 LINE 80 11 PAGE UM TIFFANY JULY 28, 1977 21:37:33 0 A SECTION COPIED BY THE IKM002 MODULE. 0 Referenced by comments of: 633/2 00633/005 *PL1SCAN INTERFACE SA G S0410 MTSPL1 'PL1LIB' POSN=PL1SCAN.S.D4 D4T2 923 PL1SCAN.INTERFACE.SA.005 1 LINE 72 14 PAGE UM TIFFANY JULY 28, 1977 21:37:35 0 MTS INTERFACE MODULE. ASSEMBLE USING MACROLIB (633/6). 00633/006 *PL1SCAN MACROLIB SM G S0564 D4T2 VLO FSNAME=PL1SCAN.MACROLIB.SM.006(1) 924 D4T2 924 PL1SCAN.MACROLIB.SM.006 1 LINE 38 1 PAGE UM TIFFANY JULY 28, 1977 21:37:37 0 Referenced by comments of: 633/5 00633/007 *PL1SCAN OE G *PL1SCAN D4T2 925 PL1SCAN..OE.007 1 SEQ 4032 9 PAGE UM TIFFANY JULY 28, 1977 21:37:39 *PL1SCAN 0 THIS OBJECT COULD BE LOADED INTO SHARED VM BY PISTLE IF DESIRED. 00634/001 OPERATOR JOB SA G S0683 OGDEN FSNAME=OP.S D4.2T2 533 OPERATOR_JOB..SA.001 1 LINE 80 66 PAGE UM OGDEN APR. 07, 1979 02:25:34 0 JOB PROGRAM TO SUPPORT IBM 3270 AS OPERATOR'S CONSOLE. USES THE TR3270 TABLES (629/12). COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/3), COPY:JOBSTA (413/9), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:SETPARM (653) AND COPY:MISC.MACROS (728). 0 Referenced by comments of: 413/1, 629/12, 634/4 00634/002C OPERATOR JOB UPDATE UC G S0683 OGDEN FSNAME=OPUPD RD16T1 143 OPERATOR_JOB.UPDATE.UC.002 1 LINE 91 1 PAGE UM OGDEN JULY 12, 1979 12:23:23 00634/003B OPERATOR JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00634/004 OPERATOR JOB CONSIO SA G CONS S0683 OGDEN FSNAME=CONSIO.S D4.2T1 505 OPERATOR_JOB.CONSIO.SA.003 1 LINE 80 14 PAGE UM OGDEN MAR. 22, 1979 23:34:00 0 SUBROUTINE TO DO STAND-ALONE I/O TO A 3270, 1052, OR 3066. ALSO PROVIDES INTERFACE TO OPERATOR JOB (634/1) IF USED. IF OPERATOR JOB IS NOT USED, CONSIO 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 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/005 OPERATOR JOB CONSIO OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00634/006 OPERATOR JOB WRITEUP WF S0683 OGDEN FSNAME=OP.F D4.2T1 506 OPERATOR_JOB.WRITEUP.WF.005 1 LINE 143 6 PAGE UM OGDEN MAR. 25, 1978 15:00:40 0 OPERATOR'S GUIDE TO USING THE IBM 3270 OPERATOR'S CONSOLE. 00634/007C OPERATOR JOB CONSOLE SA G S0683 OGDEN FSNAME=CONSOLE.S RD16T1 144 OPERATOR_JOB.CONSOLE.SA.007 1 LINE 69 4 PAGE UBC O'REILLY OGDEN MAY 21, 1979 17:47:53 MTS:CONSOLE.S 0 PROGRAM TO DISPLAY THE OPERATORS' CONSOLE ON A 3270 TYPE TERMINAL. 00634/008C OPERATOR JOB CONSOLE OC G MTS:CONSOLE RD16T1 145 OPERATOR_JOB.CONSOLE.OC.008 1 LINE 80 4 PAGE UBC O'REILLY OGDEN JULY 12, 1979 23:06:22 MTS:CONSOLE 00635/001 FSUB D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=FSUB D4T2 929 FSUB.D4_MASTER.SA.001 1 SEQ 80 79 PAGE UM MTS HELFFRICH JULY 28, 1977 21:39:25 0 COMPOSED OF THE FDGET, HOPENIT, GIVEBACK, FILE LOCKING AND UNLOCKING, ETC. SECTIONS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 00635/002B FSUB UPDATE UC G MTS:FSUBUPD RD16T1 146 FSUB.UPDATE.UC.002 1 LINE 72 15 PAGE UM MTS HELFFRICH JULY 12, 1979 23:06:24 MTS.:FSUBUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=FSUB. 00635/003B FSUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00635/004B FSUB L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=FSUB.LIST 2 RD16T1 147 FSUB..L.004 1 SEQ 133 237 PAGE UM MTS HELFFRICH JULY 12, 1979 23:06:41 00636/001 CMDS D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=CMDS D4T2 933 CMDS.D4_MASTER.SA.001 1 SEQ 80 147 PAGE UM MTS HELFFRICH SEP. 16, 1977 11:41:58 0 MTS COMMAND PROCESSORS. COPIES COPY:LLMPSEQU (087) COPY:GLOBALS (1026/3), *CNFGINFODSECT (654), AND COPY:RATEVEC (651/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00636/002B CMDS UPDATE UC G MTS:CMDSUPD RD16T1 148 CMDS.UPDATE.UC.002 1 LINE 80 27 PAGE UM MTS HELFFRICH JULY 12, 1979 23:06:44 MTS.:CMDSUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS A "$CONTINUE WITH" LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=CMDS. 00636/003B CMDS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00636/004B CMDS L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=CMDS.LIST 3 RD16T1 149 CMDS..L.004 1 SEQ 133 446 PAGE UM MTS HELFFRICH JULY 12, 1979 23:06:56 00637/001 DSRS D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=DSRS D4T2 937 DSRS.D4_MASTER.SA.001 1 SEQ 80 54 PAGE UM MTS HELFFRICH JULY 28, 1977 21:42:26 0 MTS INTERNAL DSR'S AND HASP INTERFACE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 00637/002B DSRS UPDATE UC G MTS:DSRSUPD RD16T1 150 DSRS.UPDATE.UC.002 1 LINE 71 10 PAGE UM MTS HELFFRICH JULY 12, 1979 23:07:01 MTS.:DSRSUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=DSRS. 00637/003B DSRS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00637/004B DSRS L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DSRS.LIST 5 RD16T1 151 DSRS..L.004 1 SEQ 133 158 PAGE UM MTS HELFFRICH JULY 12, 1979 23:07:06 00638/001 USUB D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=USUB D4T2 941 USUB.D4_MASTER.SA.001 1 SEQ 80 33 PAGE UM MTS HELFFRICH JULY 28, 1977 21:43:20 0 MTS USER SUBROUTINES. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 00638/002B USUB UPDATE UC G MTS:USUBUPD RD16T1 152 USUB.UPDATE.UC.002 1 LINE 80 22 PAGE UM MTS HELFFRICH JULY 12, 1979 23:07:08 MTS.:USUBUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=USUB. 00638/003B USUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00638/004B USUB L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=USUB.LIST 4 RD16T1 153 USUB..L.004 1 SEQ 133 148 PAGE UM MTS HELFFRICH JULY 12, 1979 23:07:18 00639/001 DSRI D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=DSRI D4T2 945 DSRI.D4_MASTER.SA.001 1 SEQ 80 32 PAGE UM MTS HELFFRICH JULY 28, 1977 21:45:46 0 MTS DSR INTERFACE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 00639/002B DSRI UPDATE UC G MTS:DSRIUPD RD16T1 154 DSRI.UPDATE.UC.002 1 LINE 72 13 PAGE UM MTS HELFFRICH JULY 12, 1979 23:07:20 MTS.:DSRIUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=DSRI. 00639/003B DSRI OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00639/004B DSRI L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=SUBR.LIST 18 RD16T1 155 DSRI..L.004 1 SEQ 133 107 PAGE UM MTS HELFFRICH JULY 12, 1979 23:07:35 00639/005 DSRI TESTIO SA G MTS:TESTIO(1,999) D4T2 949 DSRI.TESTIO.SA.007 1 LINE 80 8 PAGE UM MTA JULY 28, 1977 21:46:11 MTS.:TESTIO 0 TEST PROGRAM FOR DSR INTERFACE. 0 Referenced by comments of: 639/7, 639/8, 639/9, 639/10 00639/006 DSRI TESTIO OC G MTS:TESTIO(1000) D4T2 950 DSRI.TESTIO.OC.008 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 21:46:12 00639/007 DSRI TESTIO DATA D MTS:TESTIODATA D4T2 951 DSRI.TESTIO_DATA.D.009 1 LINE 44 1 PAGE UM MTA JULY 28, 1977 21:46:14 MTS.:TESTIODATA 0 COMMANDS TO TESTIO PROGRAM (639/5), READ ON SCARDS. 00639/008 DSRI TESTIO FILE 1 D MTS:TESTIOFILE D4T2 952 DSRI.TESTIO_FILE_1.D.010 1 LINE 5 1 PAGE UM MTA JULY 28, 1977 21:46:16 MTS.:TESTIOFILE 0 TESTIO (639/5) TEST FILE NUMBER 1. 00639/009 DSRI TESTIO FILE 2 D MTS:TESTIOFILE2 D4T2 953 DSRI.TESTIO_FILE_2.D.011 1 LINE 5 1 PAGE UM MTA JULY 28, 1977 21:46:18 MTS.:TESTIOFILE2 0 TESTIO (639/5) TEST FILE NUMBER 2. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00639/010 DSRI TESTIO BASE D MTS:TESTIOBASE D4T2 954 DSRI.TESTIO_BASE.D.012 1 LINE 132 3 PAGE UM MTA JULY 28, 1977 21:46:20 MTS.:TESTIOBASE 0 EXPECTED SPRINT OUTPUT WHEN TESTIO (639/5) IS RUN USING TESTIO DATA (639/5) AS INPUT. 00640 MTS.TV SA # (OBSOLETED BY 344) D3.2T2 41 MTS.TV..SA. 1 LINE 56 1 PAGE UM MAR. 21, 1975 02:20:51 00642/001 MERIT UTILITIES *MNS C *MNS D4T2 955 MERIT_UTILITIES.*MNS.C.001 1 LINE 9 1 PAGE UM OGDEN JULY 28, 1977 21:46:23 0 COMMAND FILE USED BY THE OPERATORS TO START THE MERIT TERMINAL SERVICE AFTER IPL. INVOKED BY ENTERING "MTS *MNS" ON THE OPERATOR'S CONSOLE. DESCRIBED IN THE OPERATOR'S MANUAL (592). 0 Referenced by comments of: 642/2 00642/002 MERIT UTILITIES MNS C STRT:MNS D4T2 956 MERIT_UTILITIES.MNS.C.002 1 LINE 60 1 PAGE UM OGDEN JULY 28, 1977 21:46:25 0 COMMAND FILE SOURCED TO BY *MNS (642/1). 00642/003 MERIT UTILITIES *MND C *MND D4T2 957 MERIT_UTILITIES.*MND.C.003 1 LINE 9 1 PAGE UM OGDEN JULY 28, 1977 21:46:27 0 COMMAND FILE USED BY THE OPERATORS TO PREVENT USAGE OF THE MERIT NETWORK WHEN IT IS DOWN. INVOKED BY ENTERING "MTS *MND" ON THE OPERATOR'S CONSOLE. DESCRIBED IN THE OPERATOR'S MANUAL (592). 0 Referenced by comments of: 642/4 00642/004 MERIT UTILITIES MND C STRT:MND D4T2 958 MERIT_UTILITIES.MND.C.004 1 LINE 22 1 PAGE UM OGDEN JULY 28, 1977 21:46:30 0 COMMAND FILE SOURCED TO BY *MND (642/3) WHICH CHANGES MNET:AUTH (642/5) TO PREVENT NETWORK ACCESS. 00642/005 MERIT UTILITIES AUTHORIZATION D MNET:AUTH D4T2 959 MERIT_UTILITIES.AUTHORIZA.D.005 1 LINE 44 1 PAGE UM OGDEN JULY 28, 1977 21:46:32 0 DATA FILE USED TO CONTROL WHICH USERS CAN USE THE NETWORK AND AT WHAT TIMES. 0 Referenced by comments of: 642/4 00642/006 MERIT UTILITIES SETDATE SF G SETD MNET:SETDATE(1000) D4T2 960 MERIT_UTILITIES.SETDATE.SF.006 1 LINE 80 5 PAGE UM OGDEN JULY 28, 1977 21:46:34 0 MTS PROGRAM TO SET THE TIME AND DATE IN THE MERIT PDP-11. CALLS THE PAR SUBROUTINE FROM UNSP:LIBRARY (685/4). 0 Referenced by comments of: 642/8 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00642/007 MERIT UTILITIES SETDATE OE G MNET:SETDATE(1,999) D4T2 961 MERIT_UTILITIES.SETDATE.OE.007 1 LINE 4610 4 PAGE UM OGDEN JULY 28, 1977 21:46:37 00642/008 MERIT UTILITIES SETDATE WF S0683 OGDEN FSNAME=SETDATE.F D4T2 962 MERIT_UTILITIES.SETDATE.WF.008 1 LINE 79 1 PAGE UM OGDEN MAY 16, 1977 23:44:13 0 A DESCRIPTION OF THE SETDATE PROGRAM (642/6). 00642/009 MERIT UTILITIES *MLD C *MLD D4T2 963 MERIT_UTILITIES.*MLD.C.009 1 LINE 16 1 PAGE UM OGDEN JULY 28, 1977 21:46:42 0 COMMAND FILE USED BY THE OPERATORS TO RELOAD THE MERIT PDP-11. INVOKED BY ENTERING "MTS *MLD" ON THE OPERATOR'S CONSOLE. DESCRIBED IN THE OPERATOR'S MANUAL (592). 0 Referenced by comments of: 642/10 00642/010 MERIT UTILITIES RELOAD C MNET:RELOAD D4T2 964 MERIT_UTILITIES.RELOAD.C.010 1 LINE 83 1 PAGE UM OGDEN JULY 28, 1977 21:46:44 0 COMMAND FILE SOURCED TO BY *MLD (642/9) TO RUN 11LOAD (642/11). 00642/011 MERIT UTILITIES 11LOAD SA G LOAD MNET:11LOAD(1000) D4T2 965 MERIT_UTILITIES.11LOAD.SA.011 1 LINE 80 19 PAGE UM OGDEN JULY 28, 1977 21:46:47 0 Referenced by comments of: 642/10, 642/13, 715/41 00642/012 MERIT UTILITIES 11LOAD OE G MNET:11LOAD(1,999) D4T2 966 MERIT_UTILITIES.11LOAD.OE.012 1 LINE 5344 3 PAGE UM OGDEN JULY 28, 1977 21:46:49 00642/013 MERIT UTILITIES 11LOAD WF S0683 OGDEN FSNAME=11LOAD.F D4T2 967 MERIT_UTILITIES.11LOAD.WF.013 1 LINE 176 3 PAGE UM OGDEN MAR. 25, 1977 11:52:19 0 THIS IS MERIT MEMO ND-77-288, A DESCRIPTION OF 11LOAD (642/11). 00642/014 MERIT UTILITIES *MUP C *MUP D4.2T1 507 MERIT_UTILITIES.*MUP.C.014 1 LINE 39 1 PAGE UM OGDEN APR. 01, 1979 23:50:07 0 COMMAND FILE USED BY THE OPERATORS TO DETERMINE IF THE MERIT PDP-11 IS UP BY RUNNING MUP (642/15). INVOKED BY ENTERING "MTS *MUP" ON THE OPERATOR'S CONSOLE. DESCRIBED IN THE OPERATOR'S MANUAL (592). 00642/015 MERIT UTILITIES MUP SG G S0683 OGDEN FSNAME=MUP.S D4.2T1 508 MERIT_UTILITIES.MUP.SG.015 1 LINE 111 3 PAGE UM OGDEN FEB. 10, 1979 23:17:16 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/21, 734/3 00642/016 MERIT UTILITIES CKMNJOBS SUBR SA G CKMN S0683 OGDEN FSNAME=CKMNJOBS.S D4.1T1 437 MERIT_UTILITIES.CKMNJOBS.SA.016 1 LINE 80 4 PAGE UM OGDEN DEC. 04, 1977 23:10:02 0 SUBROUTINE CALLED BY MUP (642/15) TO COUNT THE NUMBER AND TYPE OF UMMPS JOBS 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 USING MERIT NETWORK DEVICES. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 0 Referenced by comments of: 642/15 00642/017 MERIT UTILITIES CKNET SUBR SG G S0683 OGDEN FSNAME=CKNET.S D4.1T1 438 MERIT_UTILITIES.CKNET_SUB.SG.017 1 LINE 90 1 PAGE UM OGDEN MAR. 25, 1978 16:25:25 0 SUBROUTINE CALLED BY MUP (642/15) WHICH ATTEMPTS TO OPEN CONNECTIONS ACROSS THE MERIT NETWORK AND WHICH RETURNS ERROR MESSAGES IN CASE OF FAILURE. 0 Referenced by comments of: 642/15 00642/018 MERIT UTILITIES CKAUTH SUBR SA G CKAU S0683 OGDEN FSNAME=CKAUTH.S D4.1T1 439 MERIT_UTILITIES.CKAUTH_SU.SA.018 1 LINE 80 5 PAGE UM OGDEN DEC. 04, 1977 23:09:48 0 SUBROUTINE CALLED BY MUP (642/15) WHICH CHECKS THE FILE MNET:AUTH. 0 Referenced by comments of: 642/15 00642/019 MERIT UTILITIES CHKDEV SUBR SA G S0683 OGDEN FSNAME=CHKDEV.S D4.2T1 509 MERIT_UTILITIES.CHKDEV_SU.SA.019 1 LINE 72 3 PAGE UM OGDEN SEP. 01, 1978 08:27:05 0 SUBROUTINE CALLED BY MUP (642/15) TO CHECK THE STATUS OF THE MERIT PDP-11. 00642/020 MERIT UTILITIES MUP OC G MNET:MUP D4.2T1 510 MERIT_UTILITIES.MUP.OC.020 1 LINE 2076 5 PAGE UM OGDEN APR. 01, 1979 23:50:41 0 OBJECT FOR 642/15, 642/16, 642/17, 642/18, 642/19, AND 734/3. 00642/021 MERIT UTILITIES MUP WF S0683 OGDEN FSNAME=MUP.F D4T2 971 MERIT_UTILITIES.MUP.WF.017 1 LINE 83 2 PAGE UM OGDEN MAR. 03, 1977 12:41:56 0 A DESCRIPTION OF THE MUP PROGRAM (642/15). 00642/022 MERIT UTILITIES TNTH SA O TNTH S0683 OGDEN FSNAME=TNTH.S D4T2 972 MERIT_UTILITIES.TNTH.SA.018 1 LINE 80 24 PAGE UM OGDEN APR. 07, 1977 21:50:14 0 TEST PROGRAM AND BATCHDSR SUBROUTINE TO RECEIVE NETWORK BATCH JOBS. ASSEMBLE WITH PAR=B. 00642/023 MERIT UTILITIES TNTH OC O MNET:TNTH D4T2 973 MERIT_UTILITIES.TNTH.OC.019 1 LINE 80 4 PAGE UM OGDEN JULY 28, 1977 21:47:11 00642/024 MERIT UTILITIES THTN SA G THTN S0683 OGDEN FSNAME=THTN.S D4T2 974 MERIT_UTILITIES.THTN.SA.020 1 LINE 80 7 PAGE UM OGDEN MAR. 03, 1977 12:42:11 0 TEST PROGRAM TO TRANSMIT NETWORK BATCH JOBS. CALLS MSG ROUTINE (1023). 00642/025 MERIT UTILITIES THTN OC G MNET:THTN D4T2 975 MERIT_UTILITIES.THTN.OC.021 1 LINE 80 3 PAGE UM OGDEN JULY 28, 1977 21:47:17 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00642/026 MERIT UTILITIES CONSOLE SG G MNET:CONSOLE(1000) D4.2T1 511 MERIT_UTILITIES.CONSOLE.SG.026 1 LINE 95 4 PAGE UM OGDEN APR. 01, 1979 23:50:42 0 A PROGRAM THAT CAN BE $RUN TO SEND COMMANDS TO, AND RECEIVE OUTPUT FROM, ALL OF THE MERIT COMMUNICATIONS COMPUTERS. CALLS THE ATRAP ROUTINES FROM UNSP:LIBRARY (685/4). 00642/027 MERIT UTILITIES CONSOLE OC G MNET:CONSOLE(1,999) D4.2T1 512 MERIT_UTILITIES.CONSOLE.OC.027 1 LINE 3830 4 PAGE UM OGDEN APR. 01, 1979 23:50:42 00643/001 PAGLOAD SA G MTA:PAGLOAD(1000) D4.1T1 441 PAGLOAD..SA.001 1 LINE 80 8 PAGE UM MTA MAY 15, 1978 15:52:37 MTA.:PAGLOAD 0 A VARIABLE PAGING LOAD GENERATOR. ALSO CHECKS FOR CORRECT PAGES. THIS IS A REPLACEMENT FOR PAGEIT (196). A DESCRIPTION OF THE PARAMETERS IS IN THE SOURCE. ASSEMBLE USING *SYSMAC. 00643/002 PAGLOAD OC G MTA:PAGLOAD(1,999) D4.1T1 442 PAGLOAD..OC.002 1 LINE 80 3 PAGE UM MTA MAY 15, 1978 15:52:42 00644/001 DISK SPACE SA G FILE:DS D4T2 978 DISK_SPACE..SA.001 1 LINE 72 3 PAGE UBC HOGG MTA JULY 28, 1977 21:47:24 FILE:DS 0 PROGRAM TO PRINT AVAILABLE DISK SPACE. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00644/002 DISK SPACE OC G FILE:DS.O D4T2 979 DISK_SPACE..OC.002 1 LINE 80 2 PAGE UBC HOGG MTA JULY 28, 1977 21:47:26 FILE:DS.O 0 Referenced by comments of: 644/3 00644/003 DISK SPACE C *DSO D4.2T1 513 DISK_SPACE..C.003 1 LINE 34 1 PAGE UBC HOGG MTA APR. 01, 1979 23:50:43 *DSO 0 COMMAND FILE INVOKED BY ENTERING "MTS *DSO" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "OPER" AND RUNS FILE:DS.O (644/2) WITH OUTPUT TO A TEMPORARY FILE, THE END OF WHICH (SHOWING THE TOTALS) IS THEN COPIED TO THE OPERATOR'S CONSOLE. 00645 UBCDSECTS SA # (OBSOLETED BY 344) D3.2T2 48 UBCDSECTS..SA. 1 LINE 71 1 PAGE UBC MAR. 21, 1975 02:21:05 00646/001 SYSTEM DOCUMENTATION LECTURE 1 WF MTS:LECTURE1 D4T2 981 SYSTEM_DOCUMENTATION.LECT.WF.001 1 LINE 134 8 PAGE UM OGDEN JULY 28, 1977 21:47:30 MTS.:LECTURE1 0 FORMAT SOURCE FOR LECTURE 1 OF THE MTS SYSTEMS LECTURES AS UPDATED TO RELECT D4 MTS (AT LEAST AS VIEWED BY DON). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00646/002 SYSTEM DOCUMENTATION VOL 99 PGM SG G DWB:VOLUME99.S D4T2 982 SYSTEM_DOCUMENTATION.VOL.SG.002 1 LINE 97 9 PAGE UM OGDEN JULY 28, 1977 21:47:33 DWB.:VOLUME99.S 0 A PROGRAM TO IMPLEMENT THE FINDING AND EXTRACTION OF SYSTEM INTERNAL DOCUMENTATION BASED ON THE CLASSIFICATION SCHEME (PREVIOUSLY PUBLISHED IN THE MTS NEWSLETTER, NO. 37, PP. 113-119). WHEN RUN WITHOUT ANY PARAMETER, IT WILL ASK FOUR QUESTIONS VIA SERCOM/GUSER. OUTPUT FROM THE PROGRAM IS WRITTEN ON SPRINT. IT MAY ALSO BE RUN WITH A PAR= GIVING THE ANSWERS TO THE QUESTIONS SEPARATED BY COMMAS WITH MISSING ITEMS ASSUMED TO BE "ALL". IN EITHER PROMPT OR PAR= MODE, ADDITIONAL INFORMATION MAY BE SUPPLIED TO BYPASS THE REMAINING QUESTIONS. THE QUESTIONS ARE: (1) "PRINT CLASSIFICATION, DOCUMENTS, OR BOTH" RESPONSE: "C" (FOR CLASSIFICATION ONLY), "D" (FOR DOCUMENTS ONLY), OR "B" (FOR BOTH); OR TO CONTROL PRINTING MORE PRECISELY, "C=(C|X)(U)(D)(V)" WHERE (PARENS REPRESENTING OPTIONS) C MEANS PRINT CLASSIFICATION INFO, X IS SAME AS C BUT PRINTS ONLY IF THERE IS DOCUMENT INFO, U MEANS PRINT USAGE INFO, D MEANS PRINT DOCUMENT INFO, V MEANS PRINT VERSION INFO; OR "(D|C)=", OR "(D|C)= ", OR "(D|C)=" (2) "GIVE CLASSIFICATION NUMBER" RESPONSE: "ALL" (OR A NULL LINE), OR N OR N1-N2, WHERE N IS A CLASSIFICATION NUMBER NNN.(N(N)) (3) "ENTER USAGE NUMBER" RESPONSE: "ALL" (OR A NULL LINE), /N, WHERE N IS A USAGE NUMBER, OR ? (TO GET A DESCRIPTION OF USAGE NUMBERS) (4) "ENTER OTHER INFO" RESPONSE: ONE OR MORE OF THE FOLLOWING: "ALL" (OR A NULL LINE), MM-DD-YY (TO GET ENTRIES SINCE THE SPECIFIED DATE), D=NNNN (TO GET A SPECIFIC DOCUMENT), OR V=(NNN|LAST) (TO GET A SPECIFIC VERSION OR THE MOST RECENT) THE DEFAULT FOR THE VERSION IS "ALL" IF CLASSIFICATION INFORMATION IS BEING OBTAINED, "LAST" IF DOCUMENTS ARE BEING EXTRACTED. 00646/003 SYSTEM DOCUMENTATION VOL 99 PGM OC G SYS:VOLUME99 D4T2 983 SYSTEM_DOCUMENTATION.VOL.OC.003 1 LINE 80 13 PAGE UM OGDEN JULY 28, 1977 21:47:38 SYS.:VOLUME99 0 HAS EMBEDDED FILE NAMES FOR "SYS:INTCLASS" AND "SYS:INTDOCDATA". 00646/004 SYSTEM DOCUMENTATION VOL 99 CLASS D SYS:INTCLASS D4.1T1 443 SYSTEM_DOCUMENTATION.VOL.D.004 1 LINE 101 4 PAGE UM OGDEN MAY 15, 1978 15:52:44 SYS.:INTCLASS 0 DATA FILE CONTAINING THE CLASSIFICATION INFORMATION AND INFORMATION ABOUT THE DOCUMENTS. LINES NUMBERS IN THIS FILE ARE IMPORTANT; HAS NEGATIVE LINE NUMBERS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00646/005 SYSTEM DOCUMENTATION VOL 99 DOC D SYS:INTDOCDATA D4.1T1 444 SYSTEM_DOCUMENTATION.VOL.D.005 1 LINE 190 240 PAGE UM OGDEN MAY 15, 1978 15:52:46 SYS.:INTDOCDATA 0 THE "STANDARD FILE" FOR CONTAINING DOCUMENTATION; POINTED TO BY 646/4. DOCUMENTATION MAY ALSO BE IN OTHER FILES. NOTE: THIS FILE IS CURRENTLY VERY INCOMPLETE SINCE DOCUMENTS HAVE ONLY RECENTLY BEEN ENTERED INTO THE FILE. 00646/006 SYSTEM DOCUMENTATION PROTECTION WF FILE:PROTECTPAPR D4T2 986 SYSTEM_DOCUMENTATION.PROT.WF.006 1 LINE 183 14 PAGE UM PIRKOLA JULY 28, 1977 21:48:18 FILE:PROTECTPAPR 0 DOCUMENTATION ON MTS PROTECTION OF INFORMATION IN FILES AND VM. THIS IS A PAPER PRESENTED AT THE IEEE SYMPOSIUM ON COMPUTER SECURITY AND INTEGRITY, AT THE (U.S.) NATIONAL BUREAU OF STANDARDS, MAY 1977, BY GARY PIRKOLA AND JOHN SANGUINETTI. 00647/001B TASKSTAT SUBR SA G TKST S0683 OGDEN FSNAME=TASKSTAT.S RD16T1 156 TASKSTAT_SUBR..SA.001 1 LINE 80 9 PAGE UM OGDEN MAY 09, 1979 15:24:36 0 RE-ENTRANT SUBROUTINE TO RETURN STATE OF AN ACTIVE TASK AS FOLLOWS: CALL TASKSTAT,(JOBTABLE,CODE,INFO,PSW,DESC) JOBTABLE CONTAINS A POINTER TO GUESS WHAT. CODE WILL CONTAIN A FULLWORD INTEGER DESCRIBING THE STATE OF THE TASK: 0 = READY 7 = FILE WAIT 14 = INACTIVE JOB TABLE 1 = PAGE WAIT 8 = UNKNOWN WAYT 15 = DASD GTUNIT WAIT 2 = DASD I/O WAIT 9 = IDLE 16 = HASP WAYT 3 = OTHER I/O WAIT (ÂDASD) 10 = DORMANT (NO CPU Q) 17 = INTERTASK WAIT 4 = TIME WAIT 11 = JOBSTA WAIT 18 = INTERTASK BUSY 5 = SVC LOCK WAIT 12 = CMDSTA WAIT 19 = INTERTASK RDY 6 = GTUNIT WAIT (ÂDASD) 13 = OPER WAIT 20 = SNARKED (MTS/TMTS ONLY) INFO WILL CONTAIN A FULLWORD VALUE DEPENDING ON CODE. FOR CODES 0 AND 1: INFO = 0 -> NEUTRAL, 1 -> PRIV, 2 -> NON-PRIV FOR CODES 2, 3, 6, 15: INFO = DEVICE LIST POINTER FOR CODE 5: INFO = LOCK NUMBER FOR CODES 8, 16: INFO = WAYT FLAG FOR OTHER CODES: INFO = 0 PSW WILL CONTAIN THE RIGHT HALF OF THE PSW IF THERE IS ONE, OTHERWISE ZERO. DESC WILL CONTAIN A 12-BYTE READY-TO-PRINT DESCRIPTION OF THE CURRENT STATE. CALLED BY TASKS JOB (019), SSRTN (413/1), LOADCLAS (540/7), THE 3270 DSR %ACTIVITY COMMAND (629/4), PWCT PGM (540/25), AND GTUNIT (540/16). THE %ACTIVITY COMMAND CALLS AN ALTERNATE ENTRY POINT NAMED PREVSTAT, WHICH REQUIRES AN ADDITIONAL PARAMETER (SA) WHICH IS A SAVE AREA CONTAINING THE TASK'S GR0, GR1, AND GR2 FOR THE NEXT LOWER LOCAL CPU QUEUE LEVEL AND USES THE FOURTH PARAMETER (PSW) AS AN INPUT RATHER THAN AN OUTPUT ARGUMENT. COPIES COPY:LLMPSEQU (087), *CNFGINFODSECT (654), COPY:GLOBALS (1026/3), AND COPY:JOBSTA (413/9). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 400/8, 413/1, 540/7, 540/16 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00647/002B TASKSTAT SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00648/001 EDITOR CLS SA G S1137 EDITOR FSNAME=ED.MAIN.S D4.2T1 515 EDITOR.CLS.SA.001 1 LINE 129 49 PAGE UM GOODRICH MAR. 23, 1979 23:56:39 0 THE MTS CONTEXT EDITOR WITH PATTERN MATCHING AND VARIABLE HANDLING. ASSEMBLE WITH *ASMH (737) USING COPY:MTS.MACROS (344/3) AND THE EDITOR MACRO LIBRARY (648/16). THE EDITOR SUGGEST COMMAND ALLOWS USERS TO ENTER SUGGESTIONS WHICH ARE LOGGED IN THE FILE ETC:EDSUGGEST IF IT EXISTS. THIS FILE SHOULD BE PERMITTED WE TO ALL. 0 Referenced by comments of: 629/12, 648/17 00648/002B EDITOR CMMDS A TO M SA G S1137 EDITOR FSNAME=ED.CMDATOM.S RD16T1 157 EDITOR.CMMDS_A_TO_M.SA.002 1 LINE 138 49 PAGE UM GOODRICH JULY 11, 1979 15:44:06 0 ASSEMBLE USING *ASMH (737); *ASMG WILL PRODUCE WARNING MESSAGES. USES INSTSET MACRO. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. 00648/003B EDITOR CMMDS N TO Z SA G S1137 EDITOR FSNAME=ED.CMDNTOZ.S RD16T1 158 EDITOR.CMMDS_N_TO_Z.SA.003 1 LINE 120 27 PAGE UM GOODRICH JULY 11, 1979 15:45:06 0 ASSEMBLE USING *ASMH (737); *ASMG WILL PRODUCE WARNING MESSAGES. USES INSTSET MACRO. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. 0 Referenced by comments of: 648/8 00648/004B EDITOR VISUAL CMMD SA G S1137 EDITOR FSNAME=ED.VISUAL.S RD16T1 159 EDITOR.VISUAL_CMMD.SA.004 1 LINE 109 25 PAGE UM GOODRICH JULY 11, 1979 15:49:29 0 ASSEMBLE USING *ASMH (737); *ASMG WILL PRODUCE WARNING MESSAGES. USES INSTSET MACRO. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. ***************************************************************************** RD16 CHANGES: CODE TO DIFFERENTIATE BETWEEN VARIOUS 3270 MODELS AND 3066 HAS BEEN ADDED. THIS COMPONENT NOW NEEDS TR3270 (629/12). ***************************************************************************** 00648/005B EDITOR PRIMITIV PARSE SA G S1137 EDITOR FSNAME=ED.PRPARSE.S RD16T1 160 EDITOR.PRIMITIV_PARSE.SA.005 1 LINE 138 34 PAGE UM GOODRICH JULY 11, 1979 15:47:01 0 ASSEMBLE USING *ASMH (737); *ASMG WILL PRODUCE WARNING MESSAGES. USES INSTSET MACRO. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. 00648/006 EDITOR EST SUBR SA G S0564 D4T2 VLO FSNAME=EDITOR.EST_SUBR.SA.002(1) 989 D4T2 989 EDITOR.EST_SUBR.SA.002 1 LINE 80 6 PAGE UM GOODRICH JUNE 30, 1977 12:31:56 0 SUBROUTINE TO CALCULATE INSERTION LINE NUMBER SPACING. 0 Referenced by comments of: 721/1, 738/1, 738/2 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00648/007 EDITOR I/O SUPPORT SA G S1137 EDITOR FSNAME=ED.IO.S D4.2T1 520 EDITOR.I/O_SUPPORT.SA.007 1 LINE 115 44 PAGE UM GOODRICH MAR. 23, 1979 23:56:32 0 ASSEMBLE WITH PAR=SIZE=32 AND USING COPY:MTS.MACROS (344/3) AND THE 648/16 MACRO LIBRARY. COPIES *GDINFODSECT (594). 00648/008B EDITOR VIRTUAL FILES SA G S1137 EDITOR FSNAME=ED.VF.S RD16T1 161 EDITOR.VIRTUAL_FILES.SA.008 1 LINE 92 15 PAGE UM GOODRICH JULY 11, 1979 15:49:38 0 A SET OF ROUTINES WHICH ARE USED LIKE LINE FILES, BUT USE VM FOR STORAGE. THE CALLING SEQUENCES ARE SIMILAR TO THOSE USED WITHIN THE EDITOR TO ACCESS THE I/O SUPPORT (648/3). ASSEMBLE USING THE 648/16 MACRO FILE. *************************************************************************** RD16 CHANGES: THE VFFREE ROUTINE HAS BEEN ADDED TO FREE A VIRTUAL FILE DSECT AND ALL ITS FILES. *************************************************************************** 00648/009 EDITOR CLS INTERFACE SA G S1137 EDITOR FSNAME=ED.CLS.S D4.2T1 521 EDITOR.CLS_INTERFACE.SA.009 1 LINE 114 4 PAGE UM GOODRICH MAR. 23, 1979 23:55:53 0 CLS INTERFACE TO THE EDITOR. ASSEMBLE USING COPY:MTS.MACROS (344/3) AND THE 648/16 MACRO LIBRARY. 00648/010B EDITOR OBJECT OC G *CLSED RD16T1 162 EDITOR.OBJECT.OC.010 1 LINE 16674 89 PAGE UM GOODRICH JULY 12, 1979 23:10:13 *CLSED 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL. 00648/011 EDITOR ETC:EDEXPLAIN M ETC.:EDEXPLAIN D4.2T1 523 EDITOR.ETC:EDEXPLAIN.M.011 1 LINE 69 38 PAGE UM GOODRICH APR. 02, 1979 00:14:08 ETC.:EDEXPLAIN 0 TEXT USED BY THE EXPLAIN COMMAND. 0 Referenced by comments of: 648/12 00648/012 EDITOR EXPLAIN GEN SA G W078:EXPLAINGEN(1,999) D4.2T1 524 EDITOR.EXPLAIN_GEN.SA.012 1 LINE 83 3 PAGE UM GOODRICH APR. 02, 1979 00:14:12 0 PROGRAM TO GENERATE A DIRECTORY FOR THE EDITOR EXPLAIN COMMAND. WORKS LIKE MACGEN (293/1), EXCEPT THAT THERE IS AN EXTRA FIELD WHICH CONTAINS ENDING LINE NUMBERS. EXPLAINGEN TAKES ETC:EDEXPLAIN(1000) (648/11) AS SCARDS AND PRODUCES THE DIRECTORY ON SPUNCH, WHICH SHOULD BE ASSIGNED TO ETC:EDEXPLAIN(1,999). 00648/013 EDITOR EXPLAIN GEN OC G W078:EXPLAINGEN(1000) D4.2T1 525 EDITOR.EXPLAIN_GEN.OC.013 1 LINE 80 2 PAGE UM GOODRICH APR. 02, 1979 00:14:12 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00648/014 EDITOR *ED PROGRAM SA G S1137 EDITOR FSNAME=ED.CALLER.S D4.1T1 457 EDITOR.*ED_PROGRAM.SA.014 1 LINE 110 3 PAGE UM GOODRICH APR. 27, 1978 00:02:26 0 PROGRAM INTERFACE TO EDITOR. ASSEMBLE USING COPY:MTS.MACROS (344/3) AND THE EDITOR MACRO LIBRARY (648/16). 00648/015 EDITOR *ED PROGRAM OE G S1137 EDITOR FSNAME=ED.CALLER.O D4.1T1 458 EDITOR.*ED_PROGRAM.OE.015 1 LINE 755 1 PAGE UM GOODRICH APR. 27, 1978 00:02:23 00648/016B EDITOR MACROS SM G COPY:ED.COPY.M RD16T1 163 EDITOR.MACROS.SM.016 1 LINE 72 50 PAGE UM GOODRICH JULY 12, 1979 23:10:21 COPY:ED.COPY.M 0 Referenced by comments of: 278/11, 648/1, 648/14, 648/17, 648/20, 671/3, 671/5, 677/1 00648/017B EDITOR SUBROUTINES SA G S1137 EDITOR FSNAME=ED.SUBRTNS.S RD16T1 164 EDITOR.SUBROUTINES.SA.017 1 LINE 138 41 PAGE UM GOODRICH JULY 11, 1979 15:46:31 0 COMMON SUBROUTINES, FORMERLY PART OF EDITOR CLS SOURCE (648/1), USED BY OTHER EDITOR SUBCOMPONENTS. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. ASSEMBLE USING *ASMH (737), COPY:MTS.MACROS (344/3), AND THE EDITOR MACRO LIBRARY (648/16). 00648/018B EDITOR PATTERN SA G S1137 EDITOR FSNAME=ED.PATTERN.S RD16T1 165 EDITOR.PATTERN.SA.018 1 LINE 138 67 PAGE UM GOODRICH JULY 11, 1979 15:47:49 0 PATTERN MATCHING ROUTINES FOR EDITOR, AS WELL AS USER-CALLABLE PATTERN ROUTINES. ASSEMBLE USING *ASMH (737); *ASMG WILL PRODUCE WARNING MESSAGES. USES INSTSET MACRO. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. ******************************************************************************* RD16 CHANGES: THE SYNTAX OF EDITOR PATTERN MATCHING HAS BEEN CHANGED SINCE D4.2. THIS VERSION OF PATTERNS MAY BE RELEASED TO USERS. ******************************************************************************* 00648/019B EDITOR PATTERN P G W081:PATTERNS RD16T1 166 EDITOR.PATTERN.P.019 1 LINE 70 11 PAGE UM GOODRICH JULY 12, 1979 23:10:34 0 DESCRIPTION OF THE EDITOR PATTERN MATCHING FACILITIES. COPY TO A TN PRINTER. 00648/020B EDITOR SYMBOL TABLE SA G S1137 EDITOR FSNAME=ED.SYMTAB.S RD16T1 167 EDITOR.SYMBOL_TABLE.SA.020 1 LINE 104 15 PAGE UM GOODRICH JULY 11, 1979 15:49:20 0 ROUTINES TO MANAGE THE EDITOR'S VARIABLES. FILE CONTAINS MTS COMMANDS AT FRONT FOR ASSEMBLING. ASSEMBLE USING THE EDITOR MACRO LIBRARY (648/16). THESE ROUTINES PROBABLY WILL NOT BE DISTRIBUTED AFTER THE CONDITIONAL COMMAND FACILITY IS ADDED TO MTS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00649/001 SNOBOLTIDY SA G STID S0684 UNSP FSNAME=SNOBOLTIDY.S D4T2 999 SNOBOLTIDY..SA.001 1 LINE 80 9 PAGE UM UNSP SEP. 30, 1975 11:00:41 0 A SNOBOL4 SOURCE TIDYING PROGRAM WHICH ESTABLISHES A CORRESPONDENCE BETWEEN MTS LINE NUMBERS AND THE INTERNAL STATEMENT NUMBERS USED BY THE COMPILERS. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. ASSEMBLE USING *SYSMAC. 00649/002 SNOBOLTIDY OE G UNSP:SNOBOLTIDY D4T2 1000 SNOBOLTIDY..OE.002 1 SEQ 1382 2 PAGE UM UNSP JULY 28, 1977 21:52:17 UNSP:SNOBOLTIDY 00650/001B BJPMOD SA G BJPM S0683 OGDEN FSNAME=BJPMOD.S RD16T1 168 BJPMOD..SA.001 1 LINE 80 6 PAGE UM OGDEN MAY 10, 1979 15:54:38 0 SUBROUTINE CALLED BY SSRTN (413/1) TO DYNAMICALLY ADJUST THE SUPERVISOR PAGING PARAMETERS BASED ON THE SYSTEM LOAD. COPIES COPY:GLOBALS (1026/3), COPY:JOBSTA (413/9), AND COPY:BJPDSCT (650/3). 0 Referenced by comments of: 413/1, 540/9 00650/002B BJPMOD OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00650/003 BJPMOD BJP DSECT SA G BJPD COPY:BJPDSCT D4T2 1002 BJPMOD.BJP_DSECT.SA.003 1 LINE 80 1 PAGE UM OGDEN JULY 28, 1977 21:53:18 COPY:BJPDSCT 0 DSECT FOR SUPERVISOR'S BIG JOB PARAMETER VECTOR. 0 Referenced by comments of: 413/1, 540/9, 577/2, 650/1 00650/004B BJPMOD WRITEUP WF S0683 OGDEN FSNAME=BJPMOD.F RD16T1 169 BJPMOD.WRITEUP.WF.004 1 LINE 69 3 PAGE UM OGDEN MAY 21, 1979 17:44:54 0 NOTES ON BJPMOD AND CPU SCHEDULING. 00651/001 RATES RATEFILEFMT SA G RTFL S0027 DISTRB FSNAME=RATEFILEFMT D4T2 1004 RATES.RATEFILEFMT.SA.001 1 LINE 80 1 PAGE UM ENGLE DEC. 05, 1975 14:24:36 0 DESCRIBES MTS RATE LINES IN *RATEFILE. 0 Referenced by comments of: 651/3 00651/002 RATES COPY:RATEVEC SA G COPY:RATEVEC D4T2 1005 RATES.COPY:RATEVEC.SA.002 1 LINE 80 2 PAGE UM ENGLE JULY 28, 1977 21:53:38 COPY:RATEVEC 0 DSECT COPIED UNDER THE NAME "COPY:RATEVEC" TO DESCRIBE "RATEVEC" IN SHARED VM AND THE INFORMATION RETURNED BY GETRATES (651/8). 0 Referenced by comments of: 42/1, 71/1, 104/16, 578/1, 615/13, 631/6, 632/3, 636/1, 651/8, 651/10, 651/13, 708/1 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00651/003 RATES RATEGEN SA G RGEN S0027 DISTRB FSNAME=RATEGEN D4T2 1006 RATES.RATEGEN.SA.003 1 LINE 80 10 PAGE UM ENGLE MAY 17, 1976 14:32:01 0 PROGRAM TO GENERATE *RATEFILE. EACH LINE IN *RATEFILE IS PRODUCED BY A MACRO EXPANSION. CONSEQUENTLY, MACRO CALLS MUST BE CHANGED OR ADDED AND THE PROGRAM REASSEMBLED FOR EACH CHANGE IN THE RATES. COPIES RATEFILEFMT (651/1). 0 Referenced by comments of: 651/7 00651/004 RATES RATEGEN OC G S0027 DISTRB FSNAME=RGEN D4T2 1007 RATES.RATEGEN.OC.004 1 LINE 80 9 PAGE UM ENGLE MAY 17, 1976 14:33:01 00651/005 RATES RATEPRNT SA G S0967 'D3.2T2' FSNAME=RATES.RATEPRNT.SA.05(1) 56 D4T2 1008 RATES.RATEPRNT.SA.005 1 LINE 80 4 PAGE UM ENGLE MAY 03, 1974 14:42.03 0 PROGRAM TO PRINT THE CONTENTS OF *RATEFILE. RATE LINES ARE PRINTED AS IF THEY FORMED A COLUMN MAJOR MATRIX CONTAINING 3 ROWS. 00651/006 RATES RATEPRNT OC G S0967 'D3.2T2' FSNAME=RATES.RATEPRNT.OC.06(1) 57 D4T2 1009 RATES.RATEPRNT.OC.006 1 LINE 80 1 PAGE UM ENGLE MAY 03, 1974 14:42.23 00651/007 RATES *RATEFILE D G MTS:TST.RATEFILE D4T2 1010 RATES.*RATEFILE.D.007 1 LINE 222 1 PAGE UM ENGLE JULY 28, 1977 21:54:03 *RATEFILE 0 FILE USED BY MTS AND BILLING FOR CHARGE RATES. DOES NOT AGREE WITH DISTRIBUTED VERSION OF RATEGEN (651/3)-- HAS EXTRA CHEAP RATES (FREE). 00651/008 RATES GETRATES SA G MTS:GETRATES(1,999) D4T2 1011 RATES.GETRATES.SA.008 1 LINE 80 6 PAGE UM MTA JULY 28, 1977 21:54:04 MTS.:GETRATES 0 SUBROUTINE TO RETURN RATES GIVEN A RATE NUMBER. THIS IS THE ONLY PROGRAM OUTSIDE OF THE ACCOUNTING AND BILLING PROGRAMS WHICH ACCESSES *RATEFILE. COPIES COPY:RATEVEC (651/2). 0 Referenced by comments of: 71/1, 651/2 00651/009 RATES GETRATES OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00651/010 RATES RATENBR D4 MAS SA G S0564 D4T2 VLO FSNAME=RATES.RATENBR.SA.010(1) 1012 D4T2 1012 RATES.RATENBR.SA.010 1 LINE 80 14 PAGE UM MTS MTA JULY 28, 1977 21:54:06 MTS.:RATENBR 0 SUBROUTINE TO COMPUTE THE APPROPRIATE RATE NUMBER FOR THE CURRENT JOB. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU(100) (087), COPY:RATEVEC (651/2), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:RMGRMACLIB (1054/1). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00651/011B RATES RATENBR UPD UC G MTS:RNBRUPD RD16T1 170 RATES.RATENBR_UPD.UC.011 1 LINE 68 2 PAGE UM MTS MTA JULY 12, 1979 23:10:39 MTS.:RNBRUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=RNBR. 00651/012B RATES RATENBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS MTA 00651/013 RATES RATEVEC SA G MTS:RATEVEC(1,999) D4T2 1013 RATES.RATEVEC.SA.012 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 21:54:08 MTS.:RATEVEC 0 INITIAL VALUES FOR RATE VECTOR. COPIES COPY:RATEVEC (651/2). 00651/014 RATES RATEVEC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00651/015 RATES DOCUMENTATION WF S0938 FSAVE2 VLO FSNAME=VBLRATEDOC(1) D4T2 1014 RATES.DOCUMENTATION.WF.014 1 LINE 126 5 PAGE UM MTA SEP. 23, 1975 00:16:54 0 A WRITEUP DESCRIBING THE MTS VARIABLE RATES IMPLEMENTATION. 00652/001 MTS VOLUME 12 MASTER WT S0909 MTSV12 'MTS MANUALS' POSN=NEWM1.V12 D4T2 1015 MTS_VOLUME_12.MASTER.WT.001 1 SEQ 132 108 PAGE UM MANUAL JULY 28, 1977 21:55:28 0 TEXT/360 MASTER FOR VOLUME 12 "PIL/2 IN MTS" OF THE UM MTS MANUALS (DECEMBER 1974). EDITOR: RICHARD A. SALISBURY 00652/002 MTS VOLUME 12 PRINT PT S0909 MTSV12 'MTS MANUALS' POSN=PRINT1.V12 D4T2 1016 MTS_VOLUME_12.PRINT.PT.002 1 SEQ 132 248 PAGE UM MANUAL JULY 28, 1977 21:55:38 0 TEXT/360 PRINT FILE. 00653/001 SETPARM ASMG VERSION SM G COPY:SETPARM D4.2T1 533 SETPARM.ASMG_VERSION.SM.001 1 LINE 71 1 PAGE UM MTA APR. 02, 1979 00:16:27 COPY:SETPARM 0 MACRO LIBRARY CONTAINING ONLY THE SETPARM MACRO WHICH GENERATES SETB STATEMENTS FOR THE COPY:GLOBALDEFS (1026/1) SYMBOLS BASED ON THE SYSPARM FIELD GIVEN TO *ASMG. FOR EXAMPLE, IF A PROGRAM HAS A SETPARM MACRO (AFTER COPYING COPY:GLOBALS) AND IS ASSEMBLED WITH PAR=SYSPARM=0001100101023 THEN ADDITIONAL SET STATEMENTS WILL BE GENERATED AS FOLLOWS: &S370 SETB 0 &OC3066 SETB 0 &CRTY SETB 0 &SIMPLEX SETB 1 &OPERJOB SETB 1 &PROT SETB 0 &AMD470 SETB 0 1 THU SEP 12/96 23:39:34 Page 311 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 &BLKMPX SETB 1 &IO370 SETB 0 &NOSLT SETB 1 &OMR SETC 'NO' &JTBLPOL SETA 2 &DTBLPOL SETA 3 0 Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 46/1, 79/1, 399/1, 400/1, 400/8, 400/9, 540/5, 577/2, 577/7, 579/1, 598/1, 634/1, 634/4, 647/1, 1021/1, 1021/3 00653/002 SETPARM ASMH VERSION SA G # SEE COPY:SETPARM (653/1) D4.1T1 462 SETPARM.ASMH_VERSION.SA.002 1 LINE 72 3 PAGE UM MTA MAY 13, 1978 18:07:40 0 ASMH VERSION OF SETPARM MACRO. 00654 *CNFGINFODSECT SA G *CNFGINFODSECT D4.2T1 534 CNFGINFODSECT..SA. 1 LINE 80 4 PAGE UM MTA APR. 02, 1979 00:16:28 *CNFGINFODSECT 0 DSECT FOR TABLE DESCRIBING SYSTEM CONFIGURATION (E.G. CPU TYPE AND FEATURES). 0 Referenced by comments of: 4/1, 4/4, 46/1, 49/1, 97/10, 104/14, 104/57, 104/132, 116/1, 135/1, 303/1, 303/7, 360/1, 400/1, 413/1, 461/1, 465/1, 482/3, 496/1, 507/2, 534/5, 540/1, 540/9, 545/4, 545/16, 558/1, 600/1, 600/8, 610/1, 629/1, 634/1, 636/1, 647/1, 651/10, 655/2, 682/41, 682/43, 716/6, 721/1, 721/3, 738/1, 1002/3, 1002/6, 3003/56, 3018/30 00655/001 EREP/370 COMMANDS C MTA:EREPCMD D4.2T1 535 EREP/370.COMMANDS.C.001 1 LINE 110 1 PAGE UM MTA APR. 02, 1979 00:16:29 MTA.:EREPCMD 0 IBM VS2 EREP PROGRAM (IFCEREP0) TO PRINT CPU AND CHANNEL LOGOUTS AND 3330 AND 2305 DIRECT ACCESS ERRORS. TO USE EREP IN MTS, ENTER THE FOLLOWING COMMANDS: $SINK $SOURCE EREPCMD WHERE IS THE OUTPUT FDNAME, E.G. *PRINT*, EREPCMD IS THE FILE CONTAINING 655/1 MODIFIED FOR LOCAL FILE NAMES, AND ARE ANY OF THE PARAMETERS FOR THE IBM EREP PROGRAM AS SHOWN IN THE IBM DOCUMENTATION (FORM GC28-0677). USAGE OF THIS PROGRAM IS DESCRIBED IN THE OPERATOR'S MANUAL (592). 00655/002 EREP/370 CNVTEREP SA O MTA:CNVTEREP(1,999) D4.2T1 536 EREP/370.CNVTEREP.SA.002 1 LINE 72 6 PAGE UM MTA APR. 02, 1979 00:16:30 MTA.:CNVTEREP 0 PROGRAM TO CONVERT LOG RECORDS GENERATED BY MCHCCH (577/2) AND UC3330 (603) TO A FORMAT ACCEPTABLE TO THE IBM EREP PROGRAM WHICH IS RUN UNDER *FAKEOS IN MTS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 CALLS JVCT (674) AND MAY CALL IGFC60 (589/4), IGFC70 (589/5), IGFC80 (589/6), IGFCIC (NOT DISTRIBUTED), OR A#VCCH47 (589/8) IF VERY OLD DATA IS PROCESSED. COPIES COPY:CMDAREADSECT (531/18) AND *CNFGINFODSECT (654). ASSEMBLE USING MCHMAC (577/6). 00655/003 EREP/370 CNVTEREP OC O MTA:CNVTEREP(1000) D4.2T1 537 EREP/370.CNVTEREP.OC.003 1 LINE 80 5 PAGE UM MTA APR. 02, 1979 00:16:33 00655/004 EREP/370 470 RMS SOURCE SA G S1217 ADQ651 'RMS5.2' POSN=ZU0052.SOURCE D4.2T1 538 EREP/370.470_RMS_SOURCE.SA.004 1 SEQ 80 175 PAGE AMD MTA APR. 02, 1979 00:17:21 00655/005 EREP/370 470 LIBRARY OL G ETC:EREP470LIB D4.2T1 539 EREP/370.470_LIBRARY.OL.005 1 LINE 14515 13 PAGE AMD MTA APR. 02, 1979 00:17:23 ETC.:EREP470LIB 00655/006 EREP/370 ALIASES SS O MTA:EREP.ALIPGM D4T2 1028 EREP/370.ALIASES.SS.010 1 LINE 65 1 PAGE UM MTA JULY 28, 1977 21:57:00 MTA.:EREP.ALIPGM 0 SPITBOL PROGRAM WHICH READS THE OS/VS LINKEDIT INPUT FOR EREP (655/7) ON UNIT 0, THE BLDL OUTPUT (655/8) PRODUCED BY *UNLINKER ON UNIT 2, AND PRODUCES UMLOAD ALI RECORDS ON UNIT 1 AND ADDITIONAL BLDL RECORDS ON UNIT 3. UNITS 2 AND 3 ARE THEN FED TO CREBLDL AND UNIT 1 OUTPUT IS PUT AT THE FRONT OF EREPLIB (655/10). 0 Referenced by comments of: 655/8 00655/007 EREP/370 LINKEDIT INPUT D S0938 FSAVE2 VLO FSNAME=EREP.LKED(1) 192 D4T2 1029 EREP/370.LINKEDIT_INPUT.D.011 1 LINE 49 4 PAGE UM MTA DEC. 19, 1976 20:47:11 0 OS/VS LINKEDIT CONTROL CARDS FOR EREP FOR ALL POSSIBLE OPTIONS, I.E. UNION OF ALL POSSIBLE OUTPUT FROM EREP.SGMAC (655/12). CORRESPONDS TO VS2 REL 3.7. 0 Referenced by comments of: 655/6 00655/008 EREP/370 BLDL IN D O MTA:EREPBLDLIN D4T2 1030 EREP/370.BLDL_IN.D.012 1 LINE 64 5 PAGE UM MTA JULY 28, 1977 21:57:07 MTA.:EREPBLDLIN 0 INPUT TO CREBLDL FOR EREP. LINES (1,999) ARE OUTPUT FROM *UNLINKER. LINES (1000,*L) ARE OUTPUT FROM ALIASES (655/6). 0 Referenced by comments of: 655/6 00655/009 EREP/370 BLDL OUT D ETC:EREPBLDL D4T2 1031 EREP/370.BLDL_OUT.D.013 1 SEQ 254 4 PAGE UM MTA JULY 28, 1977 21:57:10 ETC.:EREPBLDL 0 OUTPUT FROM CREBLDL FOR EREP. 00655/010 EREP/370 LIBRARY OL O ETC:EREPLIB D4.2T1 540 EREP/370.LIBRARY.OL.010 1 LINE 6144 183 PAGE UM MTA APR. 02, 1979 00:17:24 ETC.:EREPLIB 0 LIBRARY CONTAINING ALL OF EREP (VS2 REL 3.7) FOR ALL MODELS OF 370. 1 THU SEP 12/96 23:39:34 Page 313 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 >>>>>>>CONTAINS A REP CARD.<<<<<<< 0 Referenced by comments of: 655/6 00655/011 EREP/370 OBJECT OE O S0938 FSAVE2 VLO FSNAME=EREPOBJ(3) 190 D4T2 1033 EREP/370.OBJECT.OE.015 1 LINE 6144 188 PAGE UM MTA DEC. 19, 1976 20:36:47 0 EREP OBJECT MUCH AS IT CAME FROM VS2 (REL 3.7). CHANGED TO ADD "MTS" TO THE TABLE OF SYSTEM NAMES IN EACH MODULE. THE FOLLOWING MODULES ARE NOT REFERENCED IN THE SYSGEN MACRO (655/12) AND SHOULD BE DELETED BEFORE MAKING THIS INTO A LIBRARY SINCE THEY CAUSE DUPLICATE SYMBOLS: IFCE3330 (LINE 709) IFCS3340 (LINE 807, ENTRY POINT IFCSAXXC) IFCE3800 (LINE 932, ENTRY POINT IFCEXXXF) IFCS3800 (LINE 939, ENTRY POINT IFCSXXXF) IFCEXXXF (LINE 1070) IFCSXXXF (LINE 1077, ALIAS IFCST00C) ALSO DELETE THE BLDL LINES FROM EREPBLDLIN. THE FOLLOWING MODULES ARE REFERENCED IN THE SYSGEN MACRO BUT ARE NOT INCLUDED: IFCE0135, IFCS0135, AND IFCEI135. SEVERAL OTHER MODULES HAVE A MEMBER NAME DIFFERENT FROM THE ENTRY POINT NAME BUT, IN ALL CASES, THE ENTRY POINT NAME IS GIVEN AS AN ALIAS OR MEMBER NAME IN THE SYSGEN MACRO SO EVERYTHING WORKS. >>>>> NOTE: HAS MANY REP CARDS. 00655/012 EREP/370 SYSGEN MACRO SA G S0938 FSAVE2 VLO FSNAME=EREP.SGMAC(1) 191 D4T2 1034 EREP/370.SYSGEN_MACRO.SA.016 1 LINE 80 13 PAGE UM MTA DEC. 19, 1976 20:46:48 0 VS2 REL 3.7 EREP SYSGEN MACRO SGIFB400. IT IS NOT INTENDED THAT THIS MACRO BE ASSEMBLED AS IS; IT IS INCLUDED ONLY TO INDICATE WHAT PART OF EREP SUPPORTS WHAT DEVICE OR FEATURE. 655/7 IS THE RESULT OF ASSEMBLING AN EDITED VERSION OF THIS. 0 Referenced by comments of: 655/7, 655/11 00656/001 GT40 GRAPHICS SYSTEM SYST S O S0933 IGDIST FSNAME=GT40.SYST.S D4T2 1035 GT40_GRAPHICS_SYSTEM.SYST.S.001 1 LINE 85 33 PAGE UM GOODRICH AUG. 12, 1976 15:57:09 0 GRAPHICS OPERATING SYSTEM FOR DEC GT40 DISPLAY. COPIES W081:GT40.EQU.C (656/2). 00656/002 GT40 GRAPHICS SYSTEM EQUS S G S0981 W114 'W114SAVE' FSNAME=GT40.EQU.C D4T2 1036 GT40_GRAPHICS_SYSTEM.EQUS.S.002 1 LINE 72 1 PAGE UM GOODRICH APR. 03, 1975 17:27:56 0 Referenced by comments of: 656/1 00656/003 GT40 GRAPHICS SYSTEM SYST O O S0933 IGDIST FSNAME=GT40.SYST D4T2 1037 GT40_GRAPHICS_SYSTEM.SYST.O.003 1 LINE 55 3 PAGE UM GOODRICH MAY 16, 1977 17:49:15 0 HAS A "$CONTINUE WITH SBWB:LOADER RETURN" CARD TO PICK UP THE OBJECT FOR 656/4. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00656/004 GT40 GRAPHICS SYSTEM LOADER S G S0933 IGDIST FSNAME=GT40.LOAD.S D4T2 1038 GT40_GRAPHICS_SYSTEM.LOAD.S.004 1 LINE 82 3 PAGE UM GOODRICH AUG. 12, 1976 15:57:22 0 PROGRAM TO LOAD A DEC GT40 DISPLAY VIA TELEPHONE LINE. 00656/005 GT40 GRAPHICS SYSTEM LOADER O G S0933 IGDIST FSNAME=GT40.LOAD D4T2 1039 GT40_GRAPHICS_SYSTEM.LOAD.O.005 1 LINE 76 1 PAGE UM GOODRICH MAY 16, 1977 17:49:13 00657/001 *ASCEBCD SA G ASCE S0792 WSGFS FSNAME=ASCEBCD D4.2T1 541 ASCEBCD..SA.001 1 LINE 80 5 PAGE UM WSG DEC. 21, 1978 19:21:23 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 D4.2T1 542 ASCEBCD..OC.002 1 LINE 80 1 PAGE UM WSG APR. 02, 1979 00:19:18 *ASCEBCD 00658/001 *EBCDASC SA G EBAS S0792 WSGFS FSNAME=EBCDASC D4.2T1 543 EBCDASC..SA.001 1 LINE 80 7 PAGE UM WSG DEC. 21, 1978 19:22:02 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/002 *EBCDASC OC G *EBCDASC D4.2T1 544 EBCDASC..OC.002 1 LINE 80 2 PAGE UM WSG APR. 02, 1979 00:19:19 *EBCDASC 00659/001B GOM COMPILER FTN SF G DWB:GOM.S RD16T1 171 GOM.COMPILER_FTN.SF.001 1 LINE 100 108 PAGE UM DWB JULY 12, 1979 23:10:41 DWB.:GOM.S 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/11), GOM.MATRIX (659/12), AND GOM.SYMTAB (659/13). NOTE: COMPILING THESE WILL PRODUCE THREE WARNING MESSAGES FROM THE COMPILATION OF THE STMTYP MODULE (31000,31999). 0 Referenced by comments of: 659/5, 659/19 00659/002B GOM COMPILER FTN OC G DWB:GOM.O RD16T1 172 GOM.COMPILER_FTN.OC.002 1 LINE 24100 157 PAGE UM DWB JULY 12, 1979 23:12:50 DWB.:GOM.O 0 OBJECT CORRESPONDING TO 659/1, PLUS THE OBJECT FOR THE MODULE WHOSE SOURCE IS IN LINES (1000,1999) OF 659/3 SINCE THIS IS THE ONLY GOM MODULE WHICH IS REQUIRED. THIS ALLOWS CHECKOUT TO BE DONE USING 659/2 + 659/6. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/003B GOM COMPILER GOM SG G DWB:GOM.SG RD16T1 173 GOM.COMPILER_GOM.SG.003 1 LINE 85 4 PAGE UM DWB JULY 12, 1979 23:13:05 DWB.:GOM.SG 0 GOM PIECES OF THE COMPILER, I.E. PORTIONS OF THE COMPILER WRITTEN IN ITSELF. REFERENCES CNFGINFO IN LCSYMBOL. AS OF THIS TIME, IT HAPPENS THAT NONE OF THE PIECES GENERATES MVCL'S, SO THEY WILL WORK ON EITHER A 360 OR 370. THIS MAY CHANGE IN LATER VERSIONS, HOWEVER, IN WHICH CASE RECOMPILATION WITH PAR=360 WILL BE NECESSARY. "$CONTINUE WITH" FILE: GOM.COMMONG (659/9). 00659/004B GOM COMPILER GOM OC G DWB:GOM.OG RD16T1 174 GOM.COMPILER_GOM.OC.004 1 LINE 1888 6 PAGE UM DWB JULY 12, 1979 23:13:06 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/005B GOM SEQUENCES SA G SEQS DWB:GOM.SEQS RD16T1 175 GOM.SEQUENCES.SA.005 1 LINE 80 133 PAGE UM DWB JULY 12, 1979 23:13:07 DWB.:GOM.SEQS 0 THIS IS NOT EXECUTABLE. THE FORTRAN SOURCE PIECES (659/1) TREAT THIS AS A COMMON SECTION THAT IS AN ARRAY OF HALFWORDS. 00659/006B GOM SEQUENCES OC G DWB:GOM.SEQS.O RD16T1 176 GOM.SEQUENCES.OC.006 1 LINE 80 38 PAGE UM DWB JULY 12, 1979 23:13:30 DWB.:GOM.SEQS.O 0 OBJECT CORRESPONDING TO 659/5. 00659/007B GOM OBJECT OE G NEW:GOM RD16T1 177 GOM.OBJECT.OE.007 1 LINE 32767 93 PAGE UM DWB JULY 12, 1979 23:13:34 NEW.:GOM 0 RESULT OF RUNNING *LINKEDIT WITH THE FOLLOWING COMMANDS: INCLUDE GOM.O INCLUDE GOM.SEQS.O UPDATE GOM.OG COMBINE@BC PURGE $EMPTY NEW:GOM PUNCH NEW:GOM NOTE: THE UPDATE COMMAND IN THE ABOVE SEQUENCE WILL CAUSE *LINKEDIT TO EMIT A WARNING MESSAGE TO THE EFFECT THAT THERE ARE STRUCTURAL DIFFERENCES IN THE MODULES DEFINING MTRXPR. THIS IS OK. AN ALMOST ALL-FORTRAN VERSION CAN BE PRODUCED BY THE FOLLOWING *LINKEDIT COMMANDS: INCLUDE GOM.O INCLUDE GOM.SEQS.O COMBINE@BC PURGE $EMPTY NEW:GOM PUNCH NEW:GOM 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/008B GOM COMMON DECLAR SF G DWB:GOM.COMMON RD16T1 178 GOM.COMMON_DECLAR.SF.008 1 LINE 71 1 PAGE UM DWB JULY 12, 1979 23:13:39 DWB.:GOM.COMMON 0 "$CONTINUE WITH"ED BY ALL FORTRAN MODULES. CONTAINS COMMON DEFINITIONS AND COMMON DECLARATIONS. 0 Referenced by comments of: 659/1, 659/14 00659/009B GOM COMMON DECLAR SG G DWB:GOM.COMMONG RD16T1 179 GOM.COMMON_DECLAR.SG.009 1 LINE 83 2 PAGE UM DWB JULY 12, 1979 23:13:40 DWB.:GOM.COMMONG 0 GOM "COPY SECTION" EQUIVALENT TO 659/8. "$CONTINUE WITH"ED BY ALL GOM MODULES. 0 Referenced by comments of: 659/3, 659/14 00659/010 GOM DEPEND DECLAR SF G DWB:GOM.COMMOND D4.2T1 554 GOM.DEPEND_DECLAR.SF.010 1 LINE 71 1 PAGE UM DWB APR. 02, 1979 00:28:31 DWB.:GOM.COMMOND 0 "$CONTINUE WITH"ED BY ALL MODULES WHICH ARE CHARACTER OR MACHINE DEPENDENT. CONTAINS COMMON SECTIONS AND DEFINITIONS. 0 Referenced by comments of: 659/1 00659/011 GOM CON TAB DECLAR SF G DWB:GOM.CONTAB D4.2T1 555 GOM.CON_TAB_DECLAR.SF.011 1 LINE 71 1 PAGE UM DWB APR. 02, 1979 00:28:31 DWB.:GOM.CONTAB 0 "$CONTINUE WITH"ED BY THOSE MODULES DEALING WITH THE CONSTANT TABLE. CONTAINS ALL DEFINITIONS FOR CONSTANT TABLE. 0 Referenced by comments of: 659/1 00659/012 GOM TRIPLES TABLE SF G DWB:GOM.MATRIX D4.1T1 476 GOM.TRIPLES_TABLE.SF.012 1 LINE 38 1 PAGE UM DWB MAY 13, 1978 18:09:23 DWB.:GOM.MATRIX 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/013B GOM SYM TAB DECLAR SF G DWB:GOM.SYMTAB RD16T1 180 GOM.SYM_TAB_DECLAR.SF.013 1 LINE 69 1 PAGE UM DWB JULY 12, 1979 23:13:41 DWB.:GOM.SYMTAB 0 "$CONTINUE WITH"ED BY ALL MODULES HANDLING THE SYMBOL TABLE. CONTAINS ALL DEFINITIONS FOR SYMBOL TABLE. 0 Referenced by comments of: 659/1 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/014 GOM COPY SECT CVT SS G DWB:GOM.CONVERT D4T2 1057 GOM.COPY_SECT_CVT.SS.014 1 LINE 70 1 PAGE UM DWB JULY 28, 1977 22:02:01 DWB.:GOM.CONVERT 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/015 GOM NEWS FILE P DWB:GOMNEWS D4.2T1 557 GOM.NEWS_FILE.P.015 1 LINE 78 21 PAGE UM DWB APR. 02, 1979 00:28:33 DWB.:GOMNEWS 0 CONTAINS DESCRIPTIONS OF RECENT ADDITIONS TO THE LANGUAGE. 0 Referenced by comments of: 659/16 00659/016 GOM USER'S MANUAL WF DWB:GOMMANUAL D4.2T1 558 GOM.USER'S_MANUAL.WF.016 1 LINE 147 42 PAGE UM DWB APR. 02, 1979 00:28:36 DWB.:GOMMANUAL 0 A USER'S MANUAL FOR GOM CONSISTING MOSTLY OF THE OLD 7090 MAD MANUAL CHAPTER II, WITH DELETIONS, ADDITIONS, AND REVISIONS FOR GOM. NOT EVER QUITE UP TO DATE. ALWAYS SEE GOMNEWS (659/15). 00659/017 GOM DOCUMENTATION WF DWB:GOM.PROGWRUP D4T2 1061 GOM.DOCUMENTATION.WF.018 1 LINE 108 4 PAGE UM DWB JULY 28, 1977 22:02:22 DWB.:GOM.PROGWRUP 0 WRITEUP DESCRIBING THE STRUCTURE OF AN OBJECT MODULE PRODUCED BY GOM. 00659/018 GOM DOCUMENTATION WF DWB:GOM.LISTWRUP D4.2T1 559 GOM.DOCUMENTATION.WF.018 1 LINE 120 6 PAGE UM DWB APR. 02, 1979 00:28:47 DWB.:GOM.LISTWRUP 0 WRITEUP DESCRIBING THE INTERNALS OF THE COMPILER AND HOW TO READ THE COMPILER LISTINGS. 0 Referenced by comments of: 659/19 00659/019 GOM DOCUMENTATION SS G DWB:GOM.PEEL D4.2T1 560 GOM.DOCUMENTATION.SS.019 1 LINE 74 1 PAGE UM DWB APR. 02, 1979 00:28:47 DWB.:GOM.PEEL 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/18). 00659/020 GOM READ DATA SUBR SA G RDAT DWB:GOM.RDATA(1,999) D4T2 1064 GOM.READ_DATA_SUBR.SA.021 1 LINE 80 17 PAGE UM DWB JULY 28, 1977 22:02:29 DWB.:GOM.RDATA 0 SUBROUTINE CALLED BY "READ DATA" AND "READ AND PRINT DATA" STATEMENTS. 0 Referenced by comments of: 659/27 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/021 GOM READ DATA SUBR OC G DWB:GOM.RDATA(1000) D4T2 1065 GOM.READ_DATA_SUBR.OC.022 1 LINE 80 4 PAGE UM DWB JULY 28, 1977 22:02:32 0 OBJECT ALSO IN *LIBRARY. 00659/022 GOM PRINT RES SUBR SA G PRSL DWB:GOM.PRSLT(1,999) D4T2 1066 GOM.PRINT_RES_SUBR.SA.023 1 LINE 80 13 PAGE UM DWB JULY 28, 1977 22:02:34 DWB.:GOM.PRSLT 0 SUBROUTINE CALLED BY "PRINT RESULTS", "PRINT BCD RESULTS", AND "PRINT HEX RESULTS" STATEMENTS. 0 Referenced by comments of: 659/26 00659/023 GOM PRINT RES SUBR OC G DWB:GOM.PRSLT(1000) D4T2 1067 GOM.PRINT_RES_SUBR.OC.024 1 LINE 80 3 PAGE UM DWB JULY 28, 1977 22:02:37 0 OBJECT ALSO IN *LIBRARY. HAS A "$CONTINUE WITH *EXPLIB" LINE. 00659/024 GOM TEST PROGRAMS C G DWB:GOM.EXAMP D4T2 1069 GOM.TEST_PROGRAMS.C.026 1 LINE 43 1 PAGE UM DWB JULY 28, 1977 22:02:41 0 COMMANDS FOR A BATCH JOB WHICH COMPILES AND EXECUTES THREE TEST PROGRAMS (659/25). 0 Referenced by comments of: 659/25 00659/025 GOM TEST PROGRAMS SG G DWB:TESTMAD D4T2 1070 GOM.TEST_PROGRAMS.SG.027 1 LINE 81 5 PAGE UM DWB JULY 28, 1977 22:02:44 0 A MOTLEY ASSORTMENT OF OLD-MAD PROGRAMS, SOME OF WHICH HAVE BEEN MODIFIED FOR GOM AND ARE USED BY GOM.EXAMP (659/24). 0 Referenced by comments of: 659/24 00659/026 GOM TEST PROGRAMS SA G TPRS DWB:GOM.PRSLT.T(1,999) D4T2 1071 GOM.TEST_PROGRAMS.SA.028 1 LINE 80 2 PAGE UM DWB JULY 28, 1977 22:02:46 0 TEST PROGRAM FOR PRINT RESULTS SUBROUTINE (659/22). 00659/027 GOM TEST PROGRAMS SG G DWB:GOM.RDATA.T D4T2 1072 GOM.TEST_PROGRAMS.SG.029 1 LINE 37 1 PAGE UM DWB JULY 28, 1977 22:02:48 0 TEST PROGRAM FOR READ DATA SUBROUTINE (659/20). 00659/028 GOM TEST PROGRAMS SG G DWB:GOM.TEST.SDS D4T2 1073 GOM.TEST_PROGRAMS.SG.030 1 LINE 32 1 PAGE UM DWB JULY 28, 1977 22:02:50 0 RUN GOM WITH PAR=TEST ON THIS SOURCE TO CHECK SYM CARD GENERATION. CURRENT PECULARITIES OF GOM SYM CARDS ARE: (1) THEY ARE PL3 CARDS, (2) SINCE SDS NEVER HEARD OF STARTING ARRAYS AT SUBSCRIPT 0 INSTEAD OF 1, ARRAY REFERENCES ARE OFF BY ONE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 THESE WILL BE FIXED SOMETIME WHEN A GOM CARD IS DEFINED AND SDS SUPPORTS IT. 00659/029 GOM TEST PROGRAMS SG G DWB:GOM.SIMPLE D4T2 1074 GOM.TEST_PROGRAMS.SG.031 1 LINE 42 1 PAGE UM DWB JULY 28, 1977 22:02:53 0 THIS COMPONENT AND THOSE WHICH FOLLOW ARE MISCELLANEOUS TEST INPUT FOR THE COMPILER. THEY ARE (OBVIOUSLY) NOT TO BE EXECUTED AFTER COMPILATION. 00659/030 GOM TEST PROGRAMS SG G DWB:GOM.TEST.FN D4T2 1075 GOM.TEST_PROGRAMS.SG.032 1 LINE 50 1 PAGE UM DWB JULY 28, 1977 22:02:55 0 FIFTEEN TEST PROGRAMS (STARTING AT LINES 1, 1000, 2000, ...) TO TEST EXTERNAL AND INTERNAL FUNCTIONS. 00659/031 GOM TEST PROGRAMS SG G DWB:GOM.TEST D4T2 1076 GOM.TEST_PROGRAMS.SG.033 1 LINE 53 1 PAGE UM DWB JULY 28, 1977 22:02:57 00659/032 GOM TEST PROGRAMS SG G DWB:GOM.TEST2 D4T2 1077 GOM.TEST_PROGRAMS.SG.034 1 LINE 41 1 PAGE UM DWB JULY 28, 1977 22:03:00 00659/033 GOM TEST PROGRAMS SG G DWB:GOM.TEST3 D4T2 1078 GOM.TEST_PROGRAMS.SG.035 1 LINE 33 1 PAGE UM DWB JULY 28, 1977 22:03:02 00659/034 GOM TEST PROGRAMS SG G DWB:GOM.TEST4 D4T2 1079 GOM.TEST_PROGRAMS.SG.036 1 LINE 45 1 PAGE UM DWB JULY 28, 1977 22:03:04 0 AN EARLY VERSION OF A PROGRAM WHICH IS USEFUL FOR TESTING ARRAYS OF STATEMENT LABEL CONSTANTS. SEE ALSO THE INTERACTIVE VERSION OF IG (498/86) FOR THE LATEST VERSION. 00659/035 GOM TEST PROGRAMS SG G DWB:GOM.TEST5 D4T2 1080 GOM.TEST_PROGRAMS.SG.037 1 LINE 34 1 PAGE UM DWB JULY 28, 1977 22:03:07 0 TEST PROGRAM WHICH TESTS VECTOR VALUES AND SHIFTS. 00659/036 GOM TEST PROGRAMS SG G DWB:GOM.TEST6 D4T2 1081 GOM.TEST_PROGRAMS.SG.038 1 LINE 30 1 PAGE UM DWB JULY 28, 1977 22:03:09 0 TEST PROGRAM WHICH TESTS ARRAY ACCESSING. 00659/037 GOM TEST PROGRAMS SG G DWB:GOM.TEST7 D4T2 1082 GOM.TEST_PROGRAMS.SG.039 1 LINE 41 1 PAGE UM DWB JULY 28, 1977 22:03:11 0 EIGHT TEST SECTIONS (AT LINES 1, 100, 200, ...) TO TEST PROGRAM COMMON. 00659/038 GOM TEST PROGRAMS SG G DWB:GOM.TEST8 D4T2 1083 GOM.TEST_PROGRAMS.SG.040 1 LINE 30 1 PAGE UM DWB JULY 28, 1977 22:03:13 0 TEST PROGRAM WHICH TESTS EXPONENTIATION. 00659/039 GOM TEST PROGRAMS SG G DWB:GOM.TEST9 D4T2 1084 GOM.TEST_PROGRAMS.SG.041 1 LINE 51 1 PAGE UM DWB JULY 28, 1977 22:03:16 0 TEST PROGRAM WHICH TESTS THE .LOC. AND .IND. OPERATORS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/040 GOM TEST PROGRAMS SG G DWB:GOM.TEST10 D4T2 1085 GOM.TEST_PROGRAMS.SG.042 1 LINE 24 1 PAGE UM DWB JULY 28, 1977 22:03:18 0 TEST PROGRAM WHICH TESTS SHORT INTEGER AND BYTE INTEGER DATA TYPES. 00659/041B GOM TEST PROGRAMS SG G DWB:GOM.TEST11 RD16T1 181 GOM.TEST_PROGRAMS.SG.041 1 LINE 44 1 PAGE UM DWB JULY 12, 1979 23:13:42 0 TEST PROGRAM WHICH TESTS CHARACTER SUBSTRING OPERATION. 00659/042 GOM TEST PROGRAMS SG G DWB:GOM.TEST12 D4T2 1087 GOM.TEST_PROGRAMS.SG.044 1 LINE 24 1 PAGE UM DWB JULY 28, 1977 22:03:23 0 TEST PROGRAM WHICH TESTS THE "@" CONSTANT QUALIFIER. 00659/043 GOM TEST PROGRAMS SG G DWB:GOM.TEST13 D4T2 1088 GOM.TEST_PROGRAMS.SG.045 1 LINE 40 1 PAGE UM DWB JULY 28, 1977 22:03:25 0 TEST PROGRAM WHICH TESTS THE ADDRESSING OF NEW DATA TYPES WHEN THEY ARE IN PROGRAM COMMON. (SAME AS 659/40 EXCEPT ALL VARIABLES ARE IN PROGRAM COMMON.) 00659/044 GOM TEST PROGRAMS SG G DWB:GOM.TEST14 D4T2 1089 GOM.TEST_PROGRAMS.SG.046 1 LINE 46 1 PAGE UM DWB JULY 28, 1977 22:03:27 0 TEST PROGRAM WHICH TESTS THE LONG INTEGER DATA TYPE AND THE .AS. OPERATOR. 00659/045 GOM TEST PROGRAMS SG G DWB:GOM.TEST15 D4T2 1090 GOM.TEST_PROGRAMS.SG.047 1 LINE 62 1 PAGE UM DWB JULY 28, 1977 22:03:30 0 EXTERNAL FUNCTION TO DO HEX OUTPUT IN 6 STATEMENTS. IT ILLUSTRATES THE .RS. AND .A. OPERATORS, THE @X CONSTANT MODIFIER, AND SUBSCRIPTION OF A CONSTANT. 00659/046 GOM TEST PROGRAMS SG G DWB:GOM.TEST16 D4T2 1091 GOM.TEST_PROGRAMS.SG.048 1 LINE 46 1 PAGE UM DWB JULY 28, 1977 22:03:32 0 TEST PROGRAM WHICH TESTS "PRINT RESULTS" FOR THE SHORT INTEGER, BYTE INTEGER, CHARACTER, AND LONG INTEGER DATA TYPES. 00659/047 GOM TEST PROGRAMS SG G DWB:GOM.TEST17 D4T2 1092 GOM.TEST_PROGRAMS.SG.049 1 LINE 45 1 PAGE UM DWB JULY 28, 1977 22:03:34 0 TEST PROGRAM WHICH TESTS "READ DATA" FOR VARIED DATA TYPES. 00659/048 GOM TEST PROGRAMS SG G DWB:GOM.TEST18 D4T2 1093 GOM.TEST_PROGRAMS.SG.050 1 LINE 52 1 PAGE UM DWB JULY 28, 1977 22:03:36 0 SMALL TEST PROGRAM WHICH CHECKS IF LOOP-END TERMINATION IS CORRECT. 00659/049B GOM TEST PROGRAMS SG G DWB:GOM.TEST19 RD16T1 182 GOM.TEST_PROGRAMS.SG.049 1 LINE 53 1 PAGE UM DWB JULY 12, 1979 23:13:43 0 TEST PROGRAM WHICH CHECKS THE R-TYPE CALLING SEQUENCE GENERATION. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/050B GOM TEST PROGRAMS SG G DWB:GOM.TEST20 RD16T1 183 GOM.TEST_PROGRAMS.SG.050 1 LINE 54 1 PAGE UM DWB JULY 12, 1979 23:13:43 0 TEST PROGRAM WHICH TESTS DYNAMIC RECORDS, AND ALLOCATE, RELEASE, USING POINTER, AND THE .SIZE. OPERATOR. 00659/051B GOM TEST PROGRAMS SG G DWB:GOM.TEST21 RD16T1 184 GOM.TEST_PROGRAMS.SG.051 1 LINE 56 1 PAGE UM DWB JULY 12, 1979 23:13:44 0 TEST PROGRAM WHICH TESTS RETURN CODE EXTRACTION AND TESTING FOR FORMATTED I/O STATEMENTS. 00659/052 GOM TEST PROGRAMS SG G DWB:GOM.TEST22 D4T2 1097 GOM.TEST_PROGRAMS.SG.054 1 LINE 41 1 PAGE UM DWB JULY 28, 1977 22:03:46 0 TEST PROGRAM WHICH TESTS ALTERNATE STRING DELIMITERS. 00659/053 GOM TEST PROGRAMS SG G DWB:GOM.TEST23 D4.1T1 481 GOM.TEST_PROGRAMS.SG.055 1 LINE 33 1 PAGE UM DWB MAY 13, 1978 18:09:39 0 TEST PROGRAM WHICH TESTS THE "CONSTANT" STATEMENT. 00659/054 GOM TEST PROGRAMS SG G DWB:GOM.TEST24 D4T2 1099 GOM.TEST_PROGRAMS.SG.056 1 LINE 35 1 PAGE UM DWB JULY 28, 1977 22:03:50 0 TEST PROGRAM WHICH TESTS PART 1 ERROR COMMENTS. (ALMOST EVERY STATEMENT SHOULD GET AN ERROR COMMENT FROM THE FIRST PHASE OF THE COMPILER.) 00659/055 GOM TEST PROGRAMS SG G DWB:GOM.TEST25 D4.1T1 482 GOM.TEST_PROGRAMS.SG.057 1 LINE 31 1 PAGE UM DWB MAY 13, 1978 18:09:39 0 TEST PROGRAM WHICH CHECKS STATEMENT LABEL CONSTANTS (SCALAR AND ARRAYS) AND STATEMENT LABEL VARIABLES (SCALARS AND ARRAYS). 00659/056 GOM TEST PROGRAMS SG G DWB:GOM.TEST26 D4T2 1101 GOM.TEST_PROGRAMS.SG.058 1 LINE 57 1 PAGE UM DWB JULY 28, 1977 22:03:55 0 TEST PROGRAM TO SEE IF ILLEGAL UNARY "/" OPERATOR IS CAUGHT. 00659/057 GOM TEST PROGRAMS SG G DWB:GOM.TEST27 D4T2 1102 GOM.TEST_PROGRAMS.SG.059 1 LINE 26 1 PAGE UM DWB JULY 28, 1977 22:03:57 0 PROGRAM TO TEST THAT CONSTANTS ARE ALLOCATED CORRECTLY IN THE CASE THAT THE FIRST OCCURRENCE OF THE CONSTANT "1" APPEARS AS THE FIRST CONSTANT FOLLOWING A VECTOR VALUES STATEMENT WHICH IS INITIALIZING AN ARRAY WHICH HAS ALREADY BEEN PARTIALLY INITIALIZED BY A PREVIOUS VECTOR VALUES STATEMENT. WOW! 00659/058 GOM TEST PROGRAMS SG G DWB:GOM.TEST28 D4T2 1103 GOM.TEST_PROGRAMS.SG.060 1 LINE 70 1 PAGE UM DWB JULY 28, 1977 22:03:59 0 PROGRAM TO TEST THAT TEMPORARIES ARE PROPERLY USED WHEN IT RUNS OUT OF REGISTERS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/059 GOM TEST PROGRAMS SG G DWB:GOM.TEST29 D4T2 1104 GOM.TEST_PROGRAMS.SG.061 1 LINE 34 1 PAGE UM DWB JULY 28, 1977 22:04:02 0 PROGRAM TO TEST PARSING OF HEX CONSTANTS AND PROPER INSERTION OF SAME AND CHARACTER CONSTANTS IN VECTOR VALUES STATEMENTS. 00659/060 GOM TEST PROGRAMS SG G DWB:GOM.TEST30 D4T2 1105 GOM.TEST_PROGRAMS.SG.062 1 LINE 67 1 PAGE UM DWB JULY 28, 1977 22:04:04 0 PROGRAM TO TEST THE INITIALIZATION OF ARRAYS WITH NAMES OF INTERNAL AND EXTERNAL FUNCTIONS, STATEMENT LABELS, AND MIXTURES OF SAME TOGETHER WITH INTEGERS. 00659/061 GOM TEST PROGRAMS SG G DWB:GOM.TEST31 D4T2 1106 GOM.TEST_PROGRAMS.SG.063 1 LINE 62 1 PAGE UM DWB JULY 28, 1977 22:04:06 0 PROGRAM TO TEST TO SEE THAT TEMPORARIES USED BY AN INTERNAL FUNCTION ARE NOT THE SAME TEMPORARIES USED TO SAVE COMPUTED PARAMETERS ON THE CALL TO THAT FUNCTION. 00659/062 GOM TEST PROGRAMS SG G DWB:GOM.TEST32 D4T2 1107 GOM.TEST_PROGRAMS.SG.064 1 LINE 58 1 PAGE UM DWB JULY 28, 1977 22:04:09 0 TEST OF FUNCTION CALLS WITH AND WITHOUT (A) ARGUMENT LISTS, (B) RETURN CODE EXTRACTION, AND (C) WHETHER IN EXPRESSION OR STAND-ALONE. 00659/063 GOM TEST PROGRAMS SG G DWB:GOM.TEST33 D4T2 1108 GOM.TEST_PROGRAMS.SG.065 1 LINE 66 1 PAGE UM DWB JULY 28, 1977 22:04:11 0 TEST FOR FOUR MISCELLANEOUS PROBLEMS. 00659/064 GOM TEST PROGRAMS SG G DWB:GOM.TEST34 D4T2 1109 GOM.TEST_PROGRAMS.SG.066 1 LINE 140 1 PAGE UM DWB JULY 28, 1977 22:04:13 0 TEST FOR LONG INPUT LINES IN THE SOURCE (FOR WRAPAROUND ON THE LISTING). 00659/065 GOM TEST PROGRAMS SG G DWB:GOM.TEST35 D4T2 1110 GOM.TEST_PROGRAMS.SG.067 1 LINE 74 1 PAGE UM DWB JULY 28, 1977 22:04:16 0 TEST FOR PROPER CODE IN THE CASE THAT A USING IS IN EFFECT, AND THE POINTER IS A DUMMY VARIABLE, IS IN COMMON, OR IS IN ANOTHER DYNAMIC RECORD WHOSE POINTER MAY BE IN YET ANOTHER DYNAMIC RECORD (OR IN COMMON, OR A DUMMY VARIABLE)... 00659/066 GOM TEST PROGRAMS SG G DWB:GOM.TEST36 D4.1T1 483 GOM.TEST_PROGRAMS.SG.068 1 LINE 60 1 PAGE UM DWB MAY 13, 1978 18:09:40 0 TEST SIMPLE I/O AND FORMATTED I/O WHEN I/O UNIT OR FDUB IS SPECIFIED. 00659/067 GOM TEST PROGRAMS SG G DWB:GOM.TEST37 D4.1T1 484 GOM.TEST_PROGRAMS.SG.069 1 LINE 61 1 PAGE UM DWB MAY 13, 1978 18:09:41 0 TESTS FORMATTED I/O WHEN I/O UNIT OR FDUB IS SPECIFIED AND THERE IS NO SYMBOL TABLE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/068 GOM TEST PROGRAMS SG G DWB:GOM.TEST38 D4.1T1 485 GOM.TEST_PROGRAMS.SG.070 1 LINE 40 1 PAGE UM DWB MAY 13, 1978 18:09:42 0 TESTS FORMAT VARIABLE STATEMENT AND USE OF FORMAT VARIABLES. 00659/069 GOM TEST PROGRAMS SG G DWB:GOM.TEST39 D4.1T1 486 GOM.TEST_PROGRAMS.SG.071 1 LINE 57 1 PAGE UM DWB MAY 13, 1978 18:09:42 0 TESTS LONG INTEGER EXPRESSIONS IN COMPARATIVES. 00659/070 GOM TEST PROGRAMS SG G DWB:GOM.TEST40 D4.2T1 561 GOM.TEST_PROGRAMS.SG.070 1 LINE 80 1 PAGE UM DWB APR. 02, 1979 00:28:48 0 PROGRAM TO TEST SUPERVISOR CALL STATEMENT. 00659/071 GOM TEST PROGRAMS SG G DWB:GOM.TEST41 D4.2T1 562 GOM.TEST_PROGRAMS.SG.071 1 LINE 67 2 PAGE UM DWB APR. 02, 1979 00:28:49 0 THIS IS A PROGRAM WHICH IS REPEATED 15 TIMES TO TEST FOR VARIATIONS OF ENTRY SEQUENCES. VARIATIONS BEGIN AT LINE NUMBERS 1000 TO 15000. SEE THE COMMENTS IN LINE 1. HAS SEVERAL $CONTINUE WITH COPY:CLSTV.SG (535/9) RECORDS. 0 Referenced by comments of: 659/74 00659/072 GOM TEST PROGRAMS SG G DWB:GOM.TEST42 D4.2T1 563 GOM.TEST_PROGRAMS.SG.072 1 LINE 39 1 PAGE UM DWB APR. 02, 1979 00:28:50 0 PROGRAM TO TEST R-TYPE SUBROUTINE ENTRY. 00659/073B GOM TEST PROGRAMS SG G DWB:GOM.TEST43 RD16T1 185 GOM.TEST_PROGRAMS.SG.073 1 LINE 38 1 PAGE UM DWB JULY 12, 1979 23:13:45 0 PROGRAM TO TEST FUNCTION ENTRIES WITH VARIABLE NUMBER OF ARGUMENTS. 00659/074 GOM TEST PROGRAMS SG G DWB:GOM.TEST44 D4.2T1 565 GOM.TEST_PROGRAMS.SG.074 1 LINE 65 2 PAGE UM DWB APR. 02, 1979 00:28:51 0 THIS IS THE SAME PROGRAM AS TEST 41 (659/71), BUT EACH OF THE VERSIONS HAS GLOBAL AREAS TO TEST AND THE LINKAGE=CLSMTS OPTION HAS BEEN ADDED. HAS SEVERAL $CONTINUE WITH COPY:CLSTV.SG (535/9) RECORDS. 00659/075 GOM TEST PROGRAMS SG G DWB:GOM.TEST45 D4.2T1 566 GOM.TEST_PROGRAMS.SG.075 1 LINE 44 1 PAGE UM DWB APR. 02, 1979 00:28:52 0 TEST OF SPECIFYING SUBSTRING AS "BEG|LEN" AS WELL AS "BEG...END". 00659/076 GOM TEST PROGRAMS SG G DWB:GOM.TEST46 D4.2T1 567 GOM.TEST_PROGRAMS.SG.076 1 LINE 35 1 PAGE UM DWB APR. 02, 1979 00:28:54 0 PROGRAM TO TEST THE ITERATE STATEMENT. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/077 GOM TEST PROGRAMS SG G DWB:GOM.TEST47 D4.2T1 568 GOM.TEST_PROGRAMS.SG.077 1 LINE 56 1 PAGE UM DWB APR. 02, 1979 00:28:54 0 PROGRAM AND RECURSIVE SUBROUTINE TO TEST STACKSIZE=NNNP OPTION ("RXENTER") AND LINKAGE=MTS OPTIONS, RESPECTIVELY. COMPUTES ACKERMAN'S FUNCTION. 00659/078 GOM TEST PROGRAMS SG G DWB:GOM.TEST48 D4.2T1 569 GOM.TEST_PROGRAMS.SG.078 1 LINE 56 1 PAGE UM DWB APR. 02, 1979 00:28:55 0 PROGRAM TO TEST MULTIPLE-DIMENSIONING CODE. THIS SHOULD NOT BE RUN. 00659/079 GOM TEST PROGRAMS SG G DWB:GOM.TEST49 D4.2T1 570 GOM.TEST_PROGRAMS.SG.079 1 LINE 58 1 PAGE UM DWB APR. 02, 1979 00:28:56 0 PROGRAM TO TEST MULTIPLE SUBSCRIPTION (SHOULD BE RUN). NUMBERS THAT ARE PRINTED ARE PRODUCED BY ACCESSING THE ARRAYS IN TWO MANNERS (ONCE AS A WHOLE STORAGE BLOCK; ONCE BY SUBSCRIPT FOR EACH ELEMENT) AND SHOULD BE THE SAME IF SUBSCRIPT CALCULATIONS ARE CORRECT. 00659/080 GOM TEST PROGRAMS SG G DWB:GOM.TEST50 D4.2T1 571 GOM.TEST_PROGRAMS.SG.080 1 LINE 48 1 PAGE UM DWB APR. 02, 1979 00:28:57 0 PROGRAM TO TEST INCLUDE STATEMENT AND THE IF, ELSEIF, ELSE, ENDIF, LOOP, AND ENDLOOP ALTERNATE FORMS. 00659/081 GOM TEST PROGRAMS SG G DWB:GOM.TEST51 D4.2T1 572 GOM.TEST_PROGRAMS.SG.081 1 LINE 60 1 PAGE UM DWB APR. 02, 1979 00:28:57 0 PROGRAM TO TEST LONG INTEGER CONSTANTS AND MODIFIERS. 00659/082C GOM TEST PROGRAMS SG G DWB:GOM.TEST52 RD16T1 186 GOM.TEST_PROGRAMS.SG.082 1 LINE 56 1 PAGE UM DWB JULY 12, 1979 23:13:46 0 PROGRAM TO TEST PUTTING ITEMS IN VECTOR VALUES STATEMENT FOR PROPER LENGTHS AT PROPER DISPLACEMENTS. 00659/083C GOM TEST PROGRAMS SG G DWB:GOM.TEST53 RD16T1 187 GOM.TEST_PROGRAMS.SG.083 1 LINE 80 1 PAGE UM DWB JULY 12, 1979 23:13:47 0 COMMANDS AND SOURCE OF GOM DRIVER PROGRAM, GOM SUBROUTINE AND PLUS SUBROUTINE TO TEST LINKAGES. BOTH SUBPROGRAMS PRINT "HELLO THERE". 00659/084C GOM TEST PROGRAMS SG G DWB:GOM.TEST54 RD16T1 188 GOM.TEST_PROGRAMS.SG.084 1 LINE 53 1 PAGE UM DWB JULY 12, 1979 23:13:48 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/085C GOM TEST PROGRAMS SG G DWB:GOM.TEST55 RD16T1 189 GOM.TEST_PROGRAMS.SG.085 1 LINE 43 1 PAGE UM DWB JULY 12, 1979 23:13:49 0 PROGRAM TO TEST PASSING FUNCTION NAME CONSTANT TO SUBROUTINE WHICH WILL THEN USE IT IN A CALL. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00659/086C GOM TEST PROGRAMS SG G DWB:GOM.TEST56 RD16T1 190 GOM.TEST_PROGRAMS.SG.086 1 LINE 72 1 PAGE UM DWB JULY 12, 1979 23:13:50 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/087C GOM TEST PROGRAMS SG G DWB:GOM.TEST57 RD16T1 191 GOM.TEST_PROGRAMS.SG.087 1 LINE 36 1 PAGE UM DWB JULY 12, 1979 23:13:51 0 PROGRAM TO CHECK PASSING OF ARGUMENTS TO INTERNAL FUNCTIONS BEING REENTRANT FOR REENTRANT OR RECURSIVE EXTERNAL FUNCTIONS. 00660/001 MCS-11 SUPERVISOR S G W051:MCS11 D4.2T1 573 MCS-11.SUPERVISOR.S.001 1 LINE 84 51 PAGE UM LUBBERS APR. 02, 1979 00:28:58 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 MCS11COM (660/6). 0 Referenced by comments of: 660/2, 660/3, 660/16 00660/002 MCS-11 DEVICES S G W051:MCS11.DEV D4.2T1 574 MCS-11.DEVICES.S.002 1 LINE 85 131 PAGE UM LUBBERS APR. 02, 1979 00:29:03 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 MCS11COM (660/6), W051:SUPEREXTRN (660/7), W051:TASKSEXTRN (660/8), AND W051:CC.EBCDIC (660/9). 0 Referenced by comments of: 660/3, 660/16 00660/003 MCS-11 TASKS S G W051:MCS11.TSK D4.2T1 575 MCS-11.TASKS.S.003 1 LINE 174 83 PAGE UM LUBBERS APR. 02, 1979 00:29:12 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 MCS11COM (660/6), W051:SUPEREXTRN (660/7), W051:DEVICESEXTRN (660/10), AND W051:CC.EBCDIC (660/9). 0 Referenced by comments of: 660/16 00660/004 MCS-11 TABLES S G W051:MCS11.TAB D4.2T1 576 MCS-11.TABLES.S.004 1 LINE 91 50 PAGE UM LUBBERS APR. 02, 1979 00:29:19 0 THIS IS THE TABLES CSECT FOR MCS. IT CONTAINS THE TRANSLATE TABLES FOR THE DSR'S IN THE SYSTEM. COPIES MCS11COM (660/6) AND W051:CC.EBCDIC (660/9). 0 Referenced by comments of: 660/16 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00660/005 MCS-11 STORAGE S G S0914 W051 FSNAME=MCS11.STO D4T2 1115 MCS-11.STORAGE.S.005 1 LINE 74 1 PAGE UM LUBBERS MAY 15, 1975 11:08:57 0 THIS IS THE STORAGE CSECT FOR MCS. IT CONTAINS STORAGE DEFINITIONS FOR THE SYSTEM. 00660/006 MCS-11 COMMON S G W051:MCS11COM D4.2T1 577 MCS-11.COMMON.S.006 1 LINE 83 22 PAGE UM LUBBERS APR. 02, 1979 00:29:23 0 THIS IS THE COPY SECTION FOR MANY COMPONENTS OF MCS. IT, IN TURN, COPIES WHICHCONC (660/15) 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/16 00660/007 MCS-11 SUPEREXTRN S G W051:SUPEREXTRN D4.2T1 578 MCS-11.SUPEREXTRN.S.007 1 LINE 84 3 PAGE UM LUBBERS APR. 02, 1979 00:29:25 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 W051:TASKSEXTRN D4.2T1 579 MCS-11.TASKSEXTRN.S.008 1 LINE 82 1 PAGE UM LUBBERS APR. 02, 1979 00:29:25 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 W051:CC.EBCDIC D4T2 1119 MCS-11.CC.EBCDIC.S.009 1 LINE 62 1 PAGE UM LUBBERS JULY 28, 1977 22:48:50 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 W051:DEVICESEXTRN D4.2T1 580 MCS-11.DEVICESEXTRN.S.010 1 LINE 82 3 PAGE UM LUBBERS APR. 02, 1979 00:29:26 0 THIS IS COPIED BY CSECTS TO GET EXTERNAL SYMBOLS FOR DEVICES. 0 Referenced by comments of: 660/3 00660/011 MCS-11 CBJOB C W051:CBJOB D4.2T1 581 MCS-11.CBJOB.C.011 1 LINE 74 1 PAGE UM LUBBERS APR. 02, 1979 00:29:27 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 W051:CCJOB D4.2T1 582 MCS-11.CCJOB.C.012 1 LINE 74 1 PAGE UM LUBBERS APR. 02, 1979 00:29:27 0 MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR C. ALSO AT 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 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 LSIJOB C W051:LSIJOB D4.2T1 583 MCS-11.LSIJOB.C.013 1 LINE 79 1 PAGE UM LUBBERS APR. 02, 1979 00:29:28 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/014 MCS-11 DEBUG/LOAD S G DIAG:HCOR.S D4.2T1 584 MCS-11.DEBUG/LOAD.S.014 1 LINE 81 30 PAGE UM GOEN APR. 02, 1979 00:29:28 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/15) AND WHICHCONC (660/16). ASSEMBLE USING *11ASR (515). 0 Referenced by comments of: 660/16 00660/015 MCS-11 HCORDATA S G DIAG:HCORDATA D4.2T1 585 MCS-11.HCORDATA.S.015 1 LINE 80 1 PAGE UM GOEN APR. 02, 1979 00:29:32 0 COPY SECTION USED BY 660/14. 0 Referenced by comments of: 660/6, 660/14 00660/016 MCS-11 WHICHCONC S G W051:WHICHCONC D4.2T1 586 MCS-11.WHICHCONC.S.016 1 LINE 20 1 PAGE UM LUBBERS APR. 02, 1979 00:29:33 0 THIS IS COPIED BY DEBUG/LOAD (660/14) 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", OR "LSI". 0 Referenced by comments of: 660/14 00660/017 MCS-11 MCP SPEC WF CRT:MCP.DOC D4.2T1 587 MCS-11.MCP_SPEC.WF.017 1 LINE 101 10 PAGE UM CASHMAN APR. 02, 1979 00:29:33 0 WRITEUP DESCRIBING THE MICHIGAN COMMUNICATIONS PROTOCOL (MCP) USED FOR COMPUTER-TO-COMPUTER COMMUNICATIONS AT UM. 00661/001 RAMP RAMPINT S G S0806 DIST4 FSNAME=RAMPINT D4T2 1122 RAMP.RAMPINT.S.001 1 LINE 88 76 PAGE UM LUBBERS JUNE 02, 1976 20:33:19 0 THIS IS THE REAL-TIME PAR OF RAMP, THE OPERATING SYSTEM FOR THE UM PDP-8 AND PDP-8E DATA CONCENTRATOR FRONT ENDS. IT SHOULD BE ASSEMBLED USING *8ASR (234) WITH PAR='NRAMP EQU 1' FOR THE PDP-8E VERSION AND PAR='NRAMP EQU 0' FOR THE PDP-8. COPIES W105:RAMPEQU (661/9) AND W105:RAMPCOMA (661/10). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 661/2, 661/3, 661/4, 661/5, 661/6, 661/7, 661/8 00661/002 RAMP RAMP470 S G S0806 DIST4 FSNAME=RAMP470 D4T2 1123 RAMP.RAMP470.S.002 1 LINE 91 18 PAGE UM LUBBERS JUNE 02, 1976 20:33:33 0 THIS IS THE IBM OR AMDAHL CHANNEL INTERFACE SUB-SYSTEM OF RAMP (REAL-TIME). IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1). COPIES W105:RAMPEQU (661/9) AND W105:RAMPCOMA (661/10). 00661/003 RAMP RAMP103 S G S0806 DIST4 FSNAME=RAMP103 D4T2 1124 RAMP.RAMP103.S.003 1 LINE 89 34 PAGE UM LUBBERS JUNE 02, 1976 20:33:43 0 THIS IS THE 103 DATA-SET (110-, 135-, 150-, AND 300-BAUD ASYNCHRONOUS) SUB-SYSTEM. IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1). COPIES W105:RAMPEQU (661/9) AND W105:RAMPCOMA (661/10). 00661/004 RAMP RAMP201 S G S0806 DIST4 FSNAME=RAMP201 D4T2 1125 RAMP.RAMP201.S.004 1 LINE 97 17 PAGE UM LUBBERS JUNE 02, 1976 20:33:54 0 THIS IS THE 201 DATA-SET (2000-BAUD SYNCHRONOUS) SUB-SYSTEM OF RAMP (REAL-TIME). IT IS PRESENT ONLY IN THE PDP-8 DATA CONCENTRATOR. IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1). COPIES W105:RAMPEQU (661/9) AND W105:RAMPCOMA (661/10). 00661/005 RAMP RAMPTSK S G S0806 DIST4 FSNAME=RAMPTSK D4T2 1126 RAMP.RAMPTSK.S.005 1 LINE 92 89 PAGE UM LUBBERS JUNE 02, 1976 20:34:04 0 THIS IS THE TASK-TIME PART OF RAMP. IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1). COPIES W105:RAMPEQU (661/9), W105:RAMPCOMA (661/10), AND W105:RAMPVERS (661/12). 0 Referenced by comments of: 661/12 00661/006 RAMP RAMPTAB S G S0806 DIST4 FSNAME=RAMPTAB D4T2 1127 RAMP.RAMPTAB.S.006 1 LINE 91 58 PAGE UM LUBBERS JUNE 02, 1976 20:34:40 0 THIS ASSEMBLY CONTAINS THE TRANSLATE TABLES USED BY RAMP. IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1). COPIES W105:RAMPEQU (661/9).2). 00661/007 RAMP RAMPSTO S G S0806 DIST4 FSNAME=RAMPSTO D4T2 1128 RAMP.RAMPSTO.S.007 1 LINE 87 4 PAGE UM LUBBERS JUNE 02, 1976 20:35:12 0 THIS IS THE DEFINITION OF WORKING-STORAGE USED BY RAMP. IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1). COPIES W105:RAMPEQU (661/9).2). 00661/008 RAMP RAMPSCN S G S0806 DIST4 FSNAME=RAMPSCN D4T2 1129 RAMP.RAMPSCN.S.008 1 LINE 81 2 PAGE UM LUBBERS JUNE 02, 1976 20:35:33 0 THIS ASSEMBLY DEFINES THE AREA OF CORE USED AS BUFFERS BY THE SCAN-CONTROL HARDWARE ON THE PDP-8 DATA CONCENTRATOR. IT SHOULD BE ASSEMBLED IN THE SAME WAY AS RAMPINT (661/1). COPIES W105:RAMPEQU (661/9).2). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00661/009 RAMP RAMPEQU S G S0806 DIST4 FSNAME=RAMPEQU D4T2 1130 RAMP.RAMPEQU.S.009 1 LINE 90 11 PAGE UM LUBBERS JUNE 02, 1976 20:35:42 0 THIS IS THE RAMP COPY SECTION REQUIRED BY ALL COMPONENTS. 0 Referenced by comments of: 661/1, 661/2, 661/3, 661/4, 661/5, 661/6, 661/7, 661/8 00661/010 RAMP RAMPCOMA S G S0806 DIST4 FSNAME=RAMPCOMA D4T2 1131 RAMP.RAMPCOMA.S.010 1 LINE 84 3 PAGE UM LUBBERS JUNE 02, 1976 20:35:50 0 THIS IS THE PAGE-ZERO DSECT FOR THE REAL-TIME PART OF RAMP. 0 Referenced by comments of: 661/1, 661/2, 661/3, 661/4, 661/5 00661/011 RAMP RAMPCOMB S G S0806 DIST4 FSNAME=RAMPCOMB D4T2 1132 RAMP.RAMPCOMB.S.011 1 LINE 84 3 PAGE UM LUBBERS JUNE 02, 1976 20:35:56 0 THIS IS THE PAGE-ZERO DSECT FOR THE TASK-TIME PART OF RAMP. 00661/012 RAMP RAMPVERS S G S0806 DIST4 FSNAME=RAMPVERS D4T2 1133 RAMP.RAMPVERS.S.012 1 LINE 19 1 PAGE UM LUBBERS JUNE 02, 1976 20:36:04 0 THIS FILE IS COPIED BY RAMPTSK (661/5). IT CONTAINS DC STATEMENTS TO DEFINE THE VERSION NUMBER OF RAMP. 0 Referenced by comments of: 661/5 00661/013 RAMP RAMPJOB C S0806 DIST4 FSNAME=RAMPJOB D4T2 1134 RAMP.RAMPJOB.C.013 1 LINE 76 1 PAGE UM LUBBERS JUNE 02, 1976 20:36:15 0 THIS FILE CONTAINS MTS COMMANDS TO ASSEMBLE AND LINK-EDIT A VERSION OF RAMP FOR THE PDP-8 DATA CONCENTRATOR. LINES 21-24 OF THIS FILE SHOULD BE DELETED AT A NON-UM INSTALLATION. 00661/014 RAMP NRAMPJOB C S0806 DIST4 FSNAME=NRAMPJOB D4T2 1135 RAMP.NRAMPJOB.C.014 1 LINE 77 1 PAGE UM LUBBERS JUNE 02, 1976 20:36:23 0 THIS FILE CONTAINS MTS COMMANDS TO ASSEMBLE AND LINK-EDIT A VERSION OF RAMP FOR THE PDP-8E DATA CONCENTRATOR. LINES 21-24 OF THIS FILE SHOULD BE DELETED AT A NON-UM INSTALLATION. 00662 *3066RTN # (SEE COMPONENT 629) UM 00663/001 *SIDEDATE SX O S0579 SAVE 'JWS-SAVE' FSNAME=SIDEDATE.S D4T2 1138 SIDEDATE..SX.001 1 LINE 80 10 PAGE UM SHERRY AUG. 27, 1976 20:51:39 0 PROGRAM TO COMPARE TWO *UPDATE FILES WHICH UPDATE THE SAME BASE. IT PRINTS A RECORD OF THEIR DIFFERENCES AND MERGES THE TWO TO PRODUCE A SINGLE *UPDATE FILE. IT IS WRITTEN IN EXTENDED XPL AND MUST BE COMPILED USING *EXPL. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00663/002 *SIDEDATE OC O *SIDEDATE D4T2 1139 SIDEDATE..OC.002 1 LINE 240 8 PAGE UM SHERRY JULY 28, 1977 22:57:04 0 OBJECT ALSO IN *LIBRARY. HAS A "$CONTINUE WITH *EXPLIB" LINE. 00663/003 *SIDEDATE WRITEUP WF S0579 SAVE 'JWS-SAVE' FSNAME=SIDEDATE.W D4T2 1140 SIDEDATE.WRITEUP.WF.003 1 LINE 82 2 PAGE UM SHERRY FEB. 20, 1976 11:49:50 0 WRITEUP DESCRIBING *SIDEDATE. 00664/001B PASCAL COMPILER SW S W264:PASCAL RD16T1 192 PASCAL.COMPILER.SW.001 1 LINE 80 89 PAGE UM HELFFRICH JULY 12, 1979 23:13:52 0 OS/360 VERSION OF PASCAL COMPILER (FROM GRENOBLE) CONVERTED TO MTS. THIS IS THE PASCAL SOURCE FOR THE CURRENT COMPILER. 00664/002B PASCAL PGNT ROUTINE SA G PASM W264:PAS.MONITOR 30 RD16T1 193 PASCAL.PGNT_ROUTINE.SA.002 1 LINE 80 4 PAGE UM HELFFRICH JULY 12, 1979 23:14:05 0 AUX ROUTINE TO LOG USAGE STATISTICS (FUTURE OF UM PASCAL IS UNCERTAIN) AND PROGRAM INTERRUPTS IN THE FILE ETC:PASCALINFO. DUE TO OS/360 ORIGIN OF COMPILER, IT IS FRAUGHT WITH PAGE ZERO REFERENCES WHICH THE ROUTINE IGNORES, BUT LOGS. 00664/003B PASCAL OBJECT OE S UNSP:PASCAL.GN RD16T1 194 PASCAL.OBJECT.OE.003 1 LINE 32767 37 PAGE UM HELFFRICH JULY 12, 1979 23:14:06 NEW.:PASCAL 0 COMPILER REQUIRES FILES NAMED ETC:PASCALINFO (FOR RECORDING USAGE AND INTERRUPT STATISTICS) AND ETC:PASCALERRS (664/8). THIS FILE CONTAINS THE OBJECT FROM 664/1 AND 664/2. 00664/004B PASCAL XREF SW G W264:PAS.XREF.S 33 RD16T1 195 PASCAL.XREF.SW.004 1 LINE 73 5 PAGE UM HELFFRICH JULY 12, 1979 23:14:09 0 PASCAL SOURCE FOR A CROSS-REFERENCE PROGRAM. SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS. 00664/005B PASCAL XREF OC G W264:PAS.XREF RD16T1 196 PASCAL.XREF.OC.005 1 LINE 80 5 PAGE UM HELFFRICH JULY 12, 1979 23:14:10 00664/006B PASCAL USAGE UTIL SA G W264:PAS.USESNIFF(-1000,-1) RD16T1 197 PASCAL.USAGE_UTIL.SA.006 1 LINE 72 4 PAGE UM HELFFRICH JULY 12, 1979 23:14:11 0 SOURCE FOR A PROGRAM TO MAKE THE USAGE RECORDS WRITTEN BY 665/2 LEGIBLE. SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS. NOTE: THE SOURCE BEGINS AT LINE -1000. 00664/007B PASCAL USAGE UTIL OC G W264:PAS.USESNIFF(1,*L) RD16T1 198 PASCAL.USAGE_UTIL.OC.007 1 LINE 80 1 PAGE UM HELFFRICH JULY 12, 1979 23:14:11 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00664/008B PASCAL ERROR MESSAGES M ETC:PASCALERRS RD16T1 199 PASCAL.ERROR_MESSAGES.M.008 1 LINE 79 3 PAGE UM HELFFRICH JULY 12, 1979 23:14:12 ETC.:PASCALERRS 0 ERROR MESSAGES REFERENCED BY THE COMPILER FROM THE FILE ETC:PASCALERRS. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 0 Referenced by comments of: 664/3 00664/009B PASCAL USER MANUAL WF W264:PAS.MANUAL RD16T1 200 PASCAL.USER_MANUAL.WF.009 1 LINE 109 11 PAGE UM HELFFRICH JULY 12, 1979 23:14:13 0 PASCAL/MTS USER'S MANUAL CONTAINING "HOW TO USE" INFORMATION PLUS SOME INTERNAL IMPLEMENTATION NOTES. 00664/010 PASCAL USAGE STATS D ETC:PASCALINFO D4.2T1 588 PASCAL.USAGE_STATS.D.010 1 LINE 72 44 PAGE UM HELFFRICH APR. 02, 1979 00:29:38 ETC:PASCALINFO 0 THIS IS A FILE WHICH LOGS USAGE STATISTICS AND PROGRAM INTERRUPTS RELATING TO PASCAL. 00665/001 MTS VOLUME 14 MASTER WT S0951 MTSV14 'MTS MANUALS' POSN=NEWM5.V14 D4.2T1 589 MTS_VOLUME_14.MASTER.WT.001 1 SEQ 132 195 PAGE UM MANUAL APR. 02, 1979 00:31:05 0 TEXT/360 MASTER FOR VOLUME 14 "360/370 ASSEMBLER LANGUAGES IN MTS" OF THE UM MTS MANUALS (AUGUST 1978). EDITOR: RICHARD A. SALISBURY 0 Referenced by comments of: 66/93 00665/002 MTS VOLUME 14 PRINT PT S0951 MTSV14 'MTS MANUALS' POSN=PRINT5.V14 D4.2T1 590 MTS_VOLUME_14.PRINT.PT.002 1 SEQ 132 351 PAGE UM MANUAL APR. 02, 1979 00:31:19 0 TEXT/360 PRINT FILE. 00665/003 MTS VOLUME 14 INDEX SOURCE D S0951 MTSV14 'MTS MANUALS' POSN=V14INDEXSOU D4.2T1 591 MTS_VOLUME_14.INDEX_SOURC.D.003 1 SEQ 110 4 PAGE UM MANUAL APR. 02, 1979 00:32:20 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 14. 00666/001 AMS SUBR SF G AMS S1223 TAXIR8 FSNAME=AMS.8.S D4.2T1 592 AMS_SUBR..SF.001 1 LINE 80 7 PAGE UM BRILL NOV. 16, 1978 10:21:07 0 DYNAMIC ARRAY MANAGEMENT FOR FORTRAN PROGRAMS. COMPILE WITH FTN-G OR H. SEE MTS VOLUMES 3 OR 6 FOR DESCRIPTION. 00666/002 AMS SUBR OC G # *LIBRARY (SEE COMP 524) UM BRILL 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00667/001 OVERDRIVE S O S0103 FS 'FRED SWARTZ' FSNAME=OD.S D4.2T1 593 OVERDRIVE..S.001 1 LINE 95 40 PAGE UM SWARTZ MAY 18, 1978 14:20:25 0 A FORTRAN PREPROCESSOR WHICH IS WRITTEN IN SNOSTORM (SEE COMP 678). USES THE SPITBOL LOAD FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB. FILE CONTAINS MTS COMMANDS AT BEGINNING FOR ASSEMBLING. 0 Referenced by comments of: 551/1 00667/002 OVERDRIVE OC O *OVERDRIVE D4.2T1 594 OVERDRIVE..OC.002 1 LINE 80 74 PAGE UM SWARTZ APR. 02, 1979 00:37:04 *OVERDRIVE 0 HAS A "$CONTINUE WITH *SPITLIB" CARD. 00668/001 *TAXIR FLECS SOURCE SF G TAX S1223 TAXIR8 FSNAME=TAXIR.8.S D4.2T1 595 TAXIR.FLECS_SOURCE.SF.001 1 LINE 80 194 PAGE UM BRILL JAN. 26, 1979 10:18:07 0 SOURCE FOR THE FLECS PORTION OF THE TAXIR INFORMATION RETRIEVAL SYSTEM, VERSION 8. IT SHOULD BE PROCESSED BY THE FLECS PRE-PROCESSOR (673) AND THEN COMPILED USING FTN-H WITH PAR=XL (TO GET *LIBRARY FUNCTIONS LAND, LOR, LXOR, LCOMPL, SHFTR, AND SHFTL COMPILED INLINE). 00668/002 *TAXIR FLECS LISTING L G S1223 TAXIR8 FSNAME=TAXIRFLECSLIST.8 D4.2T1 596 TAXIR.FLECS_LISTING.L.002 1 LINE 121 316 PAGE UM BRILL JAN. 26, 1979 10:19:11 0 FLECS INDENTED LISTING OF TAXIR, VERSION 8. (OUTPUT LISTING PRODUCED BY FLECS.) 00668/003 *TAXIR ASM SOURCE SA G TAX S1223 TAXIR8 FSNAME=TAXIRASM.8.S D4.2T1 597 TAXIR.ASM_SOURCE.SA.003 1 LINE 80 18 PAGE UM BRILL NOV. 16, 1978 10:20:26 0 SOURCE FOR THE ASSEMBLY LANGUAGE PORTION OF TAXIR, VERSION 8. 00668/004 *TAXIR *TAXIR OE G *TAXIR D4.2T1 598 TAXIR.*TAXIR.OE.004 1 SEQ 32767 45 PAGE UM BRILL APR. 02, 1979 00:37:40 *TAXIR 0 LINKEDITED OBJECT MODULE FOR VERSION 8 OF TAXIR. 00668/005 *TAXIR ETC:TAXERRORS M S1223 TAXIR8 FSNAME=TAXIRERRORS.8 D4.2T1 599 TAXIR.ETC:TAXERRORS.M.005 1 LINE 72 3 PAGE UM BRILL JAN. 08, 1979 16:12:13 ETC.:TAXERRORS 0 FILE OF ERROR AND BROADCAST MESSAGES USED BY TAXIR, VERSION 8. THIS FILE IS READ @I BY TAXIR, SO LINE NUMBERS ARE IMPORTANT. THE FIRST LINE NUMBER IS -2. THE FILE SHOULD BE PERMITTED READ TO ALL. 00668/006 *TAXIR ETC:TAXMONITOR D # MTS:TST.EMPSEQWE UM BRILL ETC:TAXMONITOR 0 THIS IS A SEQUENTIAL FILE USED BY TAXIR TO RECORD USAGE STATISTICS. ITS 1 THU SEP 12/96 23:39:34 Page 333 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CONTENTS ARE NOT DISTRIBUTED SINCE AN EMPTY SEQUENTIAL FILE IS ALL THAT IS INITIALLY REQUIRED. TAXIR MAY BE USED TO ANALYZE THE ACCUMULATED USAGE STATISTICS. THE FILE SHOULD BE PERMITTED WRITE-EXPAND (WE) TO ALL. 00668/007 *TAXIR PRIMER WF S1223 TAXIR8 FSNAME=TAXIRPRIMER.3.F D4.2T1 600 TAXIR.PRIMER.WF.007 1 LINE 221 70 PAGE UM BRILL JAN. 24, 1979 14:36:53 0 THIS IS THE TAXIR PRIMER, MTS VERSION, THIRD EDITION, AUG. 1978. IT IS MISSING ART WORK AND SPECIAL CHARACTERS ADDED BY HAND BEFORE PUBLICATION. 00668/008 *TAXIR DATA BANK D S1223 TAXIR8 FSNAME=TAXIRMODULES.8 D4.2T1 601 TAXIR.DATA_BANK.D.008 1 LINE 1244 3 PAGE UM BRILL JAN. 24, 1979 15:21:33 0 THIS IS A TAXIR DATA BANK OF MODULE RELATIONSHIPS IN TAXIR, VERSION 8. EACH ITEM IS A CALLER-CALLED PAIR AND INCLUDES THE TYPE OF THE CALLED MODULE, WHICH MAY BE FLX (WRITTEN IN FLECS), FOR (WRITTEN IN FORTRAN), ASM (WRITTEN IN ASSEMBLER), COM (A COMMON BLOCK), OR EXT (AN EXTERNAL ROUTINE, E.G., MTS SUBROUTINE, *LIBRARY SUBROUTINE, ETC.). THIS IS NOT AN ESSENTIAL COMPONENT, BUT IS USEFUL FOR DEBUGGING TAXIR. 0 Referenced by comments of: 668/9 00668/009 *TAXIR DATA BANK PGM D S1223 TAXIR8 FSNAME=TAXIRMODQUERY.8 D4.2T1 602 TAXIR.DATA_BANK_PGM.D.009 1 LINE 45 1 PAGE UM BRILL JAN. 26, 1979 10:24:10 0 THIS IS A FILE OF TAXIR STATEMENTS FOR GENERATING THREE REPORTS FROM THE DATA BANK (668/8): "TAXIR MODULES AND THE MODULES THEY CALL," "TAXIR MODULES AND THEIR CALLERS," AND "LIST OF TAXIR MODULES BY TYPE." 00668/010 *TAXIR MOD REPORT P S1223 TAXIR8 FSNAME=TAXIRMODREPORT.8 D4.2T1 603 TAXIR.MOD_REPORT.P.010 1 LINE 69 25 PAGE UM BRILL JAN. 24, 1979 15:22:04 0 A TAXIR-GENERATED REPORT OF MODULE RELATIONSHIPS IN TAXIR, VERSION 8. PRODUCED BY ISSUING TAXIR COMMANDS IN 668/9 FOR DATA IN 668/8. 00668/011 *TAXIR INSTALL GUIDE P S1223 TAXIR8 FSNAME=TAXIRINSTGUIDE.8 D4.2T1 604 TAXIR.INSTALL_GUIDE.P.011 1 LINE 83 6 PAGE UM BRILL JAN. 26, 1979 11:48:33 0 INSTALLATION AND MAINTENANCE GUIDE FOR TAXIR, VERSION 8. 00669/001B MTS VOLUME 9 MASTER WT S1051 MTSV9 'MTS MANUALS' POSN=NEWM2.V9 RD16T1 201 MTS_VOLUME_9.MASTER.WT.001 1 SEQ 132 114 PAGE UM MANUAL JULY 12, 1979 23:15:26 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/002B MTS VOLUME 9 PRINT PT S1051 MTSV9 'MTS MANUALS' POSN=PRINT2.V9 RD16T1 202 MTS_VOLUME_9.PRINT.PT.002 1 SEQ 132 175 PAGE UM MANUAL JULY 12, 1979 23:15:31 0 TEXT/360 PRINT FILE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00669/003C MTS VOLUME 9 INDEX SOURCE D S1051 MTSV9 'MTS MANUALS' POSN=V9INDEXSOU RD16T1 203 MTS_VOLUME_9.INDEX_SOURCE.D.003 1 SEQ 82 5 PAGE UM MANUAL JULY 12, 1979 23:15:35 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 9 00669/004C MTS VOLUME 9 UPDATE 1 PT W073:TNLV9.JUN79 RD16T1 204 MTS_VOLUME_9.UPDATE_1.PT.004 1 LINE 108 78 PAGE UM MANUAL JULY 12, 1979 23:15:36 0 THIS IS COMPUTING CENTER MEMO 401 -- UPDATE 1 TO MTS VOLUME 9," (SEPT. 1975). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00670/001 PL1LINK SA G LINK S0410 MTSPL1 'PL1LIB' POSN=PL1LLXU.D4 D4T2 1168 PL1LINK..SA.001 1 LINE 80 6 PAGE UM TIFFANY JULY 28, 1977 23:01:26 0 AN EXPERIMENTAL PROGRAM TO ALLOW DYNAMIC LINKING TO PL1 SUBROUTINES. 00670/002 PL1LINK OC G S0410 MTSPL1 'PL1LIB' POSN=PL1LINK.D4 D4T2 1169 PL1LINK..OC.002 1 LINE 80 3 PAGE UM TIFFANY JULY 28, 1977 23:01:27 00671/001 FILE RESTORE - FAST REGULAR SA G FRST FILE:FASTRSTR.S D4T2 1170 FILE_RESTORE_-_FAST.REGUL.SA.001 1 LINE 80 20 PAGE UM HELFFRICH SEP. 16, 1977 12:28:36 FILE:FASTRSTR.S 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 WORKS WITH FILESAVE TAPES WHEN THE ONLINE FILESAVE (716) IS NOT BEING USED, I.E. IT DOES NOT USE ANY DIRECTORY. ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 104/108, 682/26, 682/28, 682/30, 682/36, 682/38 00671/002 FILE RESTORE - FAST REGULAR OC G FILE:FASTRSTR.O D4T2 1171 FILE_RESTORE_-_FAST.REGUL.OC.002 1 LINE 4020 4 PAGE UM HELFFRICH SEP. 16, 1977 12:28:40 FILE:FASTRSTR.O 0 THIS FILE SHOULD BE LOADED WITH PISTLE IF MORE THAN ONE STREAM IS TO BE RUN CONCURRENTLY. 00671/003 FILE RESTORE - FAST FASTRESTORE SA G FRES RSTR:FASTRESTORE(1000) D4.2T1 605 FILE_RESTORE_-_FAST.FASTR.SA.003 1 LINE 80 15 PAGE UM HELFFRICH APR. 02, 1979 00:38:07 RSTR:FASTRESTORE 0 671/3 AND 671/5 WORK WITH FILESAVE TAPES WHEN THE ONLINE FILESAVE (716) IS BEING USED AND THE FILESAVE DIRECTORY "FILEDIR.MAS" IS AVAILABLE TO AID IN THE RESTORATION. 671/3 CALLS THE FASTRSTR SUBROUTINE (671/5); IT TAKES A LIST OF FILES AND AN INDICATION OF WHAT IS TO BE DONE WITH EACH AS PRODUCED BY AMALGAMATE (682/41), MOUNTS AND SCANS TAPES, AND CALLS FASTRSTR TO DO THE RESTORING. ASSEMBLE USING THE EDITOR MACROS (648/16). 0 Referenced by comments of: 682/41 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00671/004 FILE RESTORE - FAST FASTRESTORE OC G RSTR:FASTRESTORE(1,999) D4.2T1 606 FILE_RESTORE_-_FAST.FASTR.OC.004 1 LINE 80 5 PAGE UM HELFFRICH APR. 02, 1979 00:38:10 0 HAS A $CONTINUE WITH RSTR:FASTRSTR+COPY:SYSDEFS RECORD. 00671/005 FILE RESTORE - FAST FASTRSTR SUBR SA O FRST RSTR:FASTRSTR(1001) D4.2T1 607 FILE_RESTORE_-_FAST.FASTR.SA.005 1 LINE 80 22 PAGE UM HELFFRICH APR. 02, 1979 00:38:11 RSTR:FASTRSTR 0 SUBROUTINE CALLED BY 671/3 TO DO FAST RESTORING. ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE EDITOR MACROS (648/16). 0 Referenced by comments of: 671/3 00671/006 FILE RESTORE - FAST FASTRSTR SUBR OC O RSTR:FASTRSTR(1,999) D4.2T1 608 FILE_RESTORE_-_FAST.FASTR.OC.006 1 LINE 80 6 PAGE UM HELFFRICH APR. 02, 1979 00:38:15 00672/001 *WATBOL INSTALLATION WF S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.D4.0.W D4T2 1178 WATBOL.INSTALLATION.WF.001 1 LINE 78 1 PAGE UM SWARTZ NOV. 04, 1976 22:59:17 0 UNIVERSITY OF WATERLOO WATBOL V2L0 COBOL. THE SOURCE AND OBJECT CANNOT BE DISTRIBUTED DUE TO WATERLOO RESTRICTIONS. THIS SUB-COMPONENT DESCRIBES THE WATBOL INSTALLATION PROCEDURE FOR MTS. 00672/002 *WATBOL START.S SA G S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.START.S D4T2 1179 WATBOL.START.S.SA.002 1 LINE 73 1 PAGE UM SWARTZ JULY 15, 1976 03:12:34 0 AN INSTALLATION-DEPENDENT PREFIX OF ASSEMBLER GBL'S TO BE PLACED AT THE HEAD OF MOST ALL OF THE ASSEMBLER SOURCE GENERATED BY THE FOLLOWING UPDATE DECKS. 00672/003 *WATBOL END.S SA G S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.END.S D4T2 1180 WATBOL.END.S.SA.003 1 LINE 12 1 PAGE UM SWARTZ JULY 15, 1976 03:14:13 0 AN ASSEMBLER END CARD TO SUFFIX ASSEMBLIES OF SOURCE GENERATED BY THE FOLLOWING UPDATE DECKS. 00672/004 *WATBOL ACCT.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=ACCT.U 1 D4T2 1181 WATBOL.ACCT.U.UU.004 1 LINE 83 8 PAGE UM SWARTZ FEB. 28, 1976 13:35:59 00672/005 *WATBOL DATFX.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DATFX.U 2 D4T2 1182 WATBOL.DATFX.U.UU.005 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:36:08 00672/006 *WATBOL DEBUG.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DEBUG.U 3 D4T2 1183 WATBOL.DEBUG.U.UU.006 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:36:20 00672/007 *WATBOL EOSTA.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=EOSTA.U 4 D4T2 1184 WATBOL.EOSTA.U.UU.007 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:36:36 00672/008 *WATBOL FD.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=FD.U 5 D4T2 1185 WATBOL.FD.U.UU.008 1 LINE 78 3 PAGE UM SWARTZ FEB. 28, 1976 13:36:48 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00672/009 *WATBOL JOBJOB.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=JOBJOB.U 6 D4T2 1186 WATBOL.JOBJOB.U.UU.009 1 LINE 72 4 PAGE UM SWARTZ FEB. 28, 1976 13:37:06 00672/010 *WATBOL LOADR.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=LOADR.U 7 D4T2 1187 WATBOL.LOADR.U.UU.010 1 LINE 72 6 PAGE UM SWARTZ FEB. 28, 1976 13:37:23 00672/011 *WATBOL MAIN.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=MAIN.U 8 D4T2 1188 WATBOL.MAIN.U.UU.011 1 LINE 81 17 PAGE UM SWARTZ FEB. 28, 1976 13:38:08 00672/012 *WATBOL OPEN.U UU G S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.OPEN.U D4T2 1189 WATBOL.OPEN.U.UU.012 1 LINE 72 1 PAGE UM SWARTZ NOV. 04, 1976 22:58:48 00672/013 *WATBOL RINIT.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=RINIT.U 10 D4T2 1190 WATBOL.RINIT.U.UU.013 1 LINE 72 3 PAGE UM SWARTZ FEB. 28, 1976 13:56:43 00672/014 *WATBOL SD.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SD.U 11 D4T2 1191 WATBOL.SD.U.UU.014 1 LINE 72 4 PAGE UM SWARTZ FEB. 28, 1976 13:42:42 00672/015 *WATBOL SERVICE.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SERVICE.U 12 D4T2 1192 WATBOL.SERVICE.U.UU.015 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:54:31 00672/016 *WATBOL SYSINT.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SYSINT.U 13 D4T2 1193 WATBOL.SYSINT.U.UU.016 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:54:51 00672/017 *WATBOL DIAC.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=DIAC.U 14 D4T2 1194 WATBOL.DIAC.U.UU.017 1 LINE 72 4 PAGE UM SWARTZ FEB. 28, 1976 13:55:19 00672/018 *WATBOL FORMT.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=FORMT.U 15 D4T2 1195 WATBOL.FORMT.U.UU.018 1 LINE 72 1 PAGE UM SWARTZ FEB. 28, 1976 13:55:51 00672/019 *WATBOL IOSUP.U UU G S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.IOSUP.U 29 D4T2 1196 WATBOL.IOSUP.U.UU.019 1 LINE 73 18 PAGE UM SWARTZ JULY 15, 1976 03:33:59 00672/020 *WATBOL RUN.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=RUN.U 17 D4T2 1197 WATBOL.RUN.U.UU.020 1 LINE 75 3 PAGE UM SWARTZ FEB. 28, 1976 13:57:00 00672/021 *WATBOL SORTR.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=SORTR.U 18 D4T2 1198 WATBOL.SORTR.U.UU.021 1 LINE 72 7 PAGE UM SWARTZ FEB. 28, 1976 13:57:18 00672/022 *WATBOL TRAC.U UU G S0913 WATBOL 'UBC V2L0 WATBOL' FSNAME=TRAC.U 19 D4T2 1199 WATBOL.TRAC.U.UU.022 1 LINE 72 3 PAGE UM SWARTZ FEB. 28, 1976 13:57:33 00672/023 *WATBOL TIME.S SA G S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.TIME.S 21 D4T2 1200 WATBOL.TIME.S.SA.023 1 LINE 71 3 PAGE UM SWARTZ JULY 15, 1976 03:12:51 00672/024 *WATBOL MACROS SM G S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.MACROS 25 D4T2 1201 WATBOL.MACROS.SM.024 1 LINE 80 16 PAGE UM SWARTZ JULY 15, 1976 03:16:17 0 MACRO LIBRARY NEEDED TO ASSEMBLE SOURCE RESULTING FROM 672/4 THRU 672/23. 00672/025 *WATBOL OBJECT OC G # S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.WATBOL UM SWARTZ 0 UNLINK-EDITED OBJECT FOR WATBOL. NOT DISTRIBUTED DUE TO WATERLOO RESTRICTIONS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00672/026 *WATBOL OBJECT OE G # *WATBOL UM SWARTZ 0 NOT DISTRIBUTED DUE TO WATERLOO RESTRICTIONS. 00672/027 *WATBOL LIBRARY GEN SA G WBLG S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.LIBGEN.S 24 D4T2 1202 WATBOL.LIBRARY_GEN.SA.027 1 LINE 80 30 PAGE UM SWARTZ JULY 15, 1976 03:15:10 0 SOURCE FOR WATBOL LIBRARY GENERATION PROGRAM. ASSEMBLE USING *SYSMAC. 00672/028 *WATBOL LIBRARY GEN OC G *WATBOLLIBGEN D4T2 1203 WATBOL.LIBRARY_GEN.OC.028 1 SEQ 80 4 PAGE UM SWARTZ JULY 28, 1977 23:04:44 *WATBOLLIBGEN 00672/029 *WATBOL MEMO 323 WF S0564 D4T2 VLO FSNAME=WATBOL.MEMO_323.WF.029(1) 1204 D4T2 1204 WATBOL.MEMO_323.WF.029 1 LINE 124 5 PAGE UM SWARTZ JAN. 24, 1977 21:06:30 0 THIS IS COMPUTING CENTER MEMO 323 -- "WATBOL LIBRARY FACILITIES" 00672/030 *WATBOL LIBRARY D G *WATBOLLIB D4T2 1205 WATBOL.LIBRARY.D.030 1 LINE 69 4 PAGE UM SWARTZ JULY 28, 1977 23:05:58 *WATBOLLIB 0 DEFAULT UM WATBOL LIBRARY. 00672/031 *WATBOL TEST PROGRAMS S G S0924 WATBOL 'WATBOL ARCHIVE' FSNAME=WAT.PROGS D4T2 1206 WATBOL.TEST_PROGRAMS.S.031 1 LINE 82 49 PAGE UM SWARTZ NOV. 10, 1976 20:22:05 0 TEST PROGRAM SERIES FOR WATBOL V2L0 COMPILER. SEE 672/1 FOR INSTRUCTIONS. 00673/001 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=C.FLX D4T3 1 FLECS.OREGON_SOURCE.SF.001 1 LINE 80 38 PAGE UM UNSP DEC. 16, 1974 20:57.44 0 UNIVERSITY OF OREGON'S FORTRAN PREPROCESSOR. AT UM, THIS PROGRAM IS CONSIDERED TO BE IN THE CATEGORY OF "UNSUPPORTED" SOFTWARE. A FLECS WRITEUP IS INCLUDED IN UNSP:WRITEUPS (685/2). A HARDCOPY OF THIS WRITEUP AND OTHER DOCUMENTATION IS INCLUDED WITH D4. THIS COMPONENT AND THE NEXT 10 ARE THE ORIGINAL FLECS SOURCE FROM THE UNIVERSITY OF OREGON. THEY ARE REFERRED TO AS FILES 1 THROUGH 11 IN THE MTS FLECS INSTALLATION GUIDE (673/36). 0 Referenced by comments of: 668/1 00673/002 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=C.F4 D4T3 2 FLECS.OREGON_SOURCE.SF.002 1 LINE 80 42 PAGE UM UNSP DEC. 16, 1974 20:59.11 0 FILE 2 00673/003 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=SC.FLX D4T3 3 FLECS.OREGON_SOURCE.SF.003 1 LINE 80 16 PAGE UM UNSP DEC. 16, 1974 20:59.41 0 FILE 3 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00673/004 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=SC.F4 D4T3 4 FLECS.OREGON_SOURCE.SF.004 1 LINE 80 8 PAGE UM UNSP DEC. 16, 1974 21:00.25 0 FILE 4 00673/005 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=M.FLX D4T3 5 FLECS.OREGON_SOURCE.SF.005 1 LINE 80 22 PAGE UM UNSP DEC. 16, 1974 21:01.13 0 FILE 5 00673/006 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=M.F4 D4T3 6 FLECS.OREGON_SOURCE.SF.006 1 LINE 80 24 PAGE UM UNSP DEC. 16, 1974 21:02.06 0 FILE 6 00673/007 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=A.FLX D4T3 7 FLECS.OREGON_SOURCE.SF.007 1 LINE 80 14 PAGE UM UNSP DEC. 16, 1974 21:03.11 0 FILE 7 00673/008 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=A.F4 D4T3 8 FLECS.OREGON_SOURCE.SF.008 1 LINE 80 14 PAGE UM UNSP DEC. 16, 1974 21:03.58 0 FILE 8 00673/009 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=L.FLX D4T3 9 FLECS.OREGON_SOURCE.SF.009 1 LINE 80 13 PAGE UM UNSP DEC. 16, 1974 21:04.46 0 FILE 9 00673/010 FLECS OREGON SOURCE SF O S0684 UNSP FSNAME=L.F4 D4T3 10 FLECS.OREGON_SOURCE.SF.010 1 LINE 80 11 PAGE UM UNSP DEC. 16, 1974 21:05.45 0 FILE 10 00673/011 FLECS OREGON SOURCE SA O S0684 UNSP FSNAME=ASMFLX.S D4T3 11 FLECS.OREGON_SOURCE.SA.011 1 LINE 80 13 PAGE UM UNSP DEC. 16, 1974 21:06.34 0 FILE 11 00673/012 FLECS STANDALONE XLT S O FLE S0684 UNSP FSNAME=F.FLECS D4T3 12 FLECS.STANDALONE_XLT.S.012 1 LINE 80 49 PAGE UM UNSP AUG. 08, 1975 14:16:20 0 FILE 12 -- FLECS SOURCE FOR 3 PART MTS STANDALONE TRANSLATOR. 00673/013 FLECS STANDALONE XLT S O S0684 UNSP FSNAME=S.FLECS D4T3 13 FLECS.STANDALONE_XLT.S.013 1 LINE 80 46 PAGE UM UNSP AUG. 08, 1975 14:17:31 0 FILE 13 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR MTS STANDALONE TRANSLATOR. 00673/014 FLECS STANDALONE XLT OC O S0684 UNSP FSNAME=O.FLECS D4T3 14 FLECS.STANDALONE_XLT.OC.014 1 LINE 240 9 PAGE UM UNSP AUG. 08, 1975 14:18:07 0 FILE 14 -- OBJECT FOR MTS STANDALONE TRANSLATOR. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00673/015 FLECS STANDALONE XLT S O FLE1 S0684 UNSP FSNAME=F.FLECS.SC D4T3 15 FLECS.STANDALONE_XLT.S.015 1 LINE 80 8 PAGE UM UNSP AUG. 08, 1975 14:19:03 0 FILE 15 -- FLECS SOURCE FOR STANDALONE TRANSLATOR SUPPORT ROUTINES. 00673/016 FLECS STANDALONE XLT S O S0684 UNSP FSNAME=S.FLECS.SC D4T3 16 FLECS.STANDALONE_XLT.S.016 1 LINE 80 11 PAGE UM UNSP AUG. 08, 1975 14:20:41 0 FILE 16 -- ASSEMBLY SOURCE AND FORTRAN TARGET FOR STANDALONE TRANSLATOR SUPPORT ROUTINES. 00673/017 FLECS STANDALONE XLT OC O S0684 UNSP FSNAME=O.FLECS.SC D4T3 17 FLECS.STANDALONE_XLT.OC.017 1 LINE 244 5 PAGE UM UNSP AUG. 08, 1975 14:22:01 0 FILE 17 -- OBJECT FOR STANDALONE TRANSLATOR SUPPORT ROUTINES. 00673/018 FLECS STANDALONE XLT OE O S0684 UNSP FSNAME=FLECS D4T3 18 FLECS.STANDALONE_XLT.OE.018 1 SEQ 24628 9 PAGE UM UNSP AUG. 08, 1975 14:22:37 0 FILE 18 -- LINKEDITED OBJECT FOR MTS STANDALONE TRANSLATOR. 00673/019 FLECS STANDALONE XLT SF O FLE2 S0684 UNSP FSNAME=COM.FLECS D4T3 19 FLECS.STANDALONE_XLT.SF.019 1 LINE 80 2 PAGE UM UNSP AUG. 08, 1975 14:23:26 0 FILE 19 -- COMMON SECTIONS USED BY STANDALONE TRANSLATOR. 00673/020 FLECS FLX WRITEUP WF S0684 UNSP FSNAME=F.FFIWR D4.2T1 609 FLECS.FLX_WRITEUP.WF.020 1 LINE 244 16 PAGE UM UNSP OCT. 08, 1978 22:53:11 0 FILE 20 -- FORMAT SOURCE FOR THE FLX MTS INTERFACE WRITEUP. 00673/021 FLECS NOTES WF S0684 UNSP FSNAME=FLECS.NOTES D4T3 21 FLECS.NOTES.WF.021 1 LINE 63 1 PAGE UM UNSP MAY 22, 1977 17:34:48 0 NOTES DESCRIBING THE CHANGES BETWEEN THIS VERSION AND THE PREVIOUS REDISTRIBUTION. 00673/022 FLECS USER'S MANUAL WF S0684 UNSP FSNAME=FLECS.F D4T3 22 FLECS.USER'S_MANUAL.WF.022 1 LINE 183 13 PAGE UM UNSP DEC. 15, 1975 08:57:40 00673/023 FLECS FLX SF O FLX S0684 UNSP FSNAME=COM.FLX D4T3 23 FLECS.FLX.SF.023 1 LINE 80 3 PAGE UM UNSP MAY 22, 1977 17:37:47 0 FILE 23 -- FORTRAN COMMON SECTIONS USED BY FLECS/FORTRAN INTERFACE. 0 Referenced by comments of: 673/27, 673/32 00673/024 FLECS FLX S O FLX1 S0684 UNSP FSNAME=F.FLX D4T3 24 FLECS.FLX.S.024 1 LINE 80 50 PAGE UM UNSP MAY 22, 1977 17:40:01 0 FILE 24 -- FLECS SOURCE FOR FLXT TRANSLATOR. 0 Referenced by comments of: 673/28 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00673/025 FLECS FLX S O FLX2 S0684 UNSP FSNAME=F.FLX.SC D4T3 25 FLECS.FLX.S.025 1 LINE 80 8 PAGE UM UNSP MAY 22, 1977 17:41:16 0 FILE 25 -- FLECS SOURCE FOR FFI/FLXT INTERFACE. 0 Referenced by comments of: 673/29 00673/026 FLECS FLX SA O FLX3 S0684 UNSP FSNAME=S.FLX.AU D4T3 26 FLECS.FLX.SA.026 1 LINE 80 26 PAGE UM UNSP MAY 22, 1977 17:46:03 0 FILE 26 -- ASSEMBLY SOURCE FOR FLXT UTILITY ROUTINES. 00673/027 FLECS FLX OC O S0684 UNSP FSNAME=O.FLX D4T3 27 FLECS.FLX.OC.027 1 LINE 9072 8 PAGE UM UNSP MAY 22, 1977 17:44:12 0 FILE 27 -- OBJECT FOR F.FLX (673/23). 00673/028 FLECS FLX OC O S0684 UNSP FSNAME=O.FLX.SC D4T3 28 FLECS.FLX.OC.028 1 LINE 1004 4 PAGE UM UNSP MAY 22, 1977 17:45:02 0 FILE 28 -- OBJECT FOR F.SC (673/24). 00673/029 FLECS FLX OC O S0684 UNSP FSNAME=O.FLX.AU D4T3 29 FLECS.FLX.OC.029 1 LINE 80 3 PAGE UM UNSP MAY 22, 1977 17:43:04 0 FILE 29 -- OBJECT FOR S.AU (673/25). 00673/030 FLECS FLX OE O UNSP:FLXT D4T3 30 FLECS.FLX.OE.030 1 LINE 11124 11 PAGE UM UNSP JULY 28, 1977 23:10:29 UNSP:FLXT 0 FILE 30 -- LINKEDITED OBJECT FOR FLXT, THE TRANSLATOR THAT RUNS UNDER FFI. 00673/031 FLECS FLX SA O FLX2 S0684 UNSP FSNAME=FLXDEF D4T3 31 FLECS.FLX.SA.031 1 LINE 80 8 PAGE UM UNSP MAY 22, 1977 17:41:57 0 FILE 31 -- MACROS AND COPY SECTIONS. 0 Referenced by comments of: 673/32 00673/032 FLECS FLX SA O FFI S0684 UNSP FSNAME=S.FFI D4.2T1 610 FLECS.FLX.SA.032 1 LINE 80 77 PAGE UM UNSP OCT. 08, 1978 22:50:10 0 FILE 32 -- ASSEMBLY SOURCE FOR FFI. COPIES FLX FORTRAN COMMON SECTIONS (673/23) AND FLX MACROS (673/31). 00673/033 FLECS FLX OC O S0684 UNSP FSNAME=O.FFI D4T3 33 FLECS.FLX.OC.033 1 LINE 80 8 PAGE UM UNSP MAY 22, 1977 17:43:27 00673/034 FLECS FLX OE O UNSP:FLX D4.2T1 611 FLECS.FLX.OE.034 1 LINE 1956 6 PAGE UM UNSP APR. 02, 1979 00:41:37 UNSP:FLX 0 FILE 34 -- LINKEDITED OBJECT FOR FFI. LINKS TO FLXT AND *FORTRANG OR *FORTRANH. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00673/035 FLECS EXAMPLE 1 S S FEX1 S0684 UNSP FSNAME=DRKEXAMPLE D4T3 35 FLECS.EXAMPLE_1.S.035 1 LINE 80 25 PAGE UM UNSP DEC. 09, 1976 22:36:39 0 FILE 35 -- EXAMPLE FLECS PROGRAMS. 00673/036 FLECS EXAMPLE 2 S S FEX2 S0684 UNSP FSNAME=HBGEXAMPLE D4T3 36 FLECS.EXAMPLE_2.S.036 1 LINE 80 14 PAGE UM UNSP JAN. 21, 1976 15:16:56 0 FILE 36 -- EXAMPLE FLECS PROGRAM. 0 Referenced by comments of: 673/1 00673/037 FLECS INSTALLATION WF S0684 UNSP FSNAME=FLECSINSTALL.F D4T3 37 FLECS.INSTALLATION.WF.037 1 LINE 145 12 PAGE UM UNSP MAY 22, 1977 17:33:57 0 FILE 37 -- FORMAT SOURCE FOR THE MTS FLECS INSTALLATION GUIDE. 00674/001 JVCT SUBR SA G S0811 REBATE 'REBATES' FSNAME=UBCDATE D4T3 38 JVCT_SUBR..SA.001 1 LINE 72 10 PAGE UBC HOGG LIFT JULY 28, 1977 23:15:58 0 SUBROUTINE TO CONVERT FREE FORM TIME AND DATE FROM BCD TO MTS STANDARD INTERNAL TIME, I.E. MICROSECONDS SINCE 1 MARCH 1900. SEE SOURCE FOR USAGE DESCRIPTION. 0 Referenced by comments of: 621/8, 621/9, 655/2, 707/3, 753/4, 3024/31 00674/002 JVCT SUBR OC G MTS:UBCDATEX D4T3 39 JVCT_SUBR..OC.002 1 LINE 80 3 PAGE UBC HOGG LIFT AUG. 14, 1977 22:38:03 MTS.:UBCDATEX 00675/001 MTS VOLUME 6 MASTER WT S0273 MTSV6 'MTS MANUALS' POSN=NEWM3.V6 D4.2T1 612 MTS_VOLUME_6.MASTER.WT.001 1 SEQ 132 360 PAGE UM MANUAL APR. 02, 1979 00:42:17 0 TEXT/360 MASTER FOR VOLUME 6 "FORTRAN IN MTS" OF THE UM MTS MANUALS (DECEMBER 1978). EDITOR: RICHARD A. SALISBURY 00675/002 MTS VOLUME 6 PRINT PT S0273 MTSV6 'MTS MANUALS' POSN=PRINT3.V6 D4.2T1 613 MTS_VOLUME_6.PRINT.PT.002 1 SEQ 132 557 PAGE UM MANUAL APR. 02, 1979 00:42:31 0 TEXT/360 PRINT FILE. 00675/003 MTS VOLUME 6 INDEX SOURCE D S0273 MTSV6 'MTS MANUALS' POSN=V6INDEXSOU 10 D4.2T1 614 MTS_VOLUME_6.INDEX_SOURCE.D.003 1 SEQ 82 6 PAGE UM MANUAL APR. 02, 1979 00:42:38 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 6. 00676/001 MTS VOLUME 8 MASTER WT S0950 MTSV8 'MTS MANUALS' POSN=NEWM2.V8 D4.2T1 615 MTS_VOLUME_8.MASTER.WT.001 1 SEQ 132 100 PAGE UM MANUAL APR. 02, 1979 00:43:01 0 TEXT/360 MASTER FOR VOLUME 8 "LISP AND SLIP IN MTS" OF THE UM MTS MANUALS (JUNE 1976, UPDATED FEBRUARY 1979). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 EDITOR: RICHARD A. SALISBURY 00676/002 MTS VOLUME 8 PRINT PT S0950 MTSV8 'MTS MANUALS' POSN=PRINT2.V8 D4.2T1 616 MTS_VOLUME_8.PRINT.PT.002 1 SEQ 132 170 PAGE UM MANUAL APR. 02, 1979 00:43:06 0 TEXT/360 PRINT FILE. 00676/003 MTS VOLUME 8 INDEX SOURCE D S0950 MTSV8 'MTS MANUALS' POSN=V8INDEXSOU D4.2T1 617 MTS_VOLUME_8.INDEX_SOURCE.D.003 1 SEQ 68 5 PAGE UM MANUAL APR. 02, 1979 00:43:08 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 8. 00676/004 MTS VOLUME 8 UPDATE 1 PT W073:TNLV8.FEB79 D4.2T1 618 MTS_VOLUME_8.UPDATE_1.PT.004 1 LINE 106 56 PAGE UM MANUAL APR. 02, 1979 00:43:09 0 THIS IS COMPUTING CENTER MEMO 399 -- "UPDATE 1 TO MTS VOLUME 8," (JUNE 1976). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00677/001B *ENCRYPT SA O ENCR NEW:ENCRYPT(-10000,-1) RD16T1 205 ENCRYPT..SA.001 1 LINE 80 17 PAGE UM OGDEN JULY 12, 1979 23:15:43 *ENCRYPT 0 THIS PROGRAM TO SCRAMBLE AND UNSCRAMBLE FILES BASED ON A SECRET KEY IS INTENDED AS A REPLACEMENT FOR *SCRAMBLE (491). ASSEMBLE WITH PAR=BATCH USING UNSP:MACLIB (685/5) AND THE EDITOR MACROS (648/16). 0 Referenced by comments of: 491/1 00677/002B *ENCRYPT OE O NEW:ENCRYPT(1,999) RD16T1 206 ENCRYPT..OE.002 1 LINE 3372 4 PAGE UM OGDEN JULY 12, 1979 23:15:44 00678/001B SNOSTORM S* O W008:SNO.S RD16T1 207 SNOSTORM..S*.001 1 LINE 99 19 PAGE UM SWARTZ JULY 12, 1979 23:15:45 0 SNOSTORM IS A PREPROCESSOR FOR THE SNOBOL4 LANGUAGE. IT AUGMENTS SNOBOL4 WITH THE STRUCTURES IF, LOOP, CASE, AND PROC. USES THE SPITBOL LOAD FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB (590/29). FILE CONTAINS MTS COMMANDS AT BEGINNING FOR ASSEMBLING. 0 Referenced by comments of: 9001/1 00678/002B SNOSTORM OC O *SNOSTORM RD16T1 208 SNOSTORM..OC.002 1 LINE 80 37 PAGE UM SWARTZ JULY 12, 1979 23:16:15 0 HAS A "$CONTINUE WITH *SPITLIB" CARD. 00679/001 INTRO GUIDE: INTRO TO CC WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO78.SOU D4.2T1 624 INTRO_GUIDE:_INTRO_TO_CC..WF.001 1 LINE 222 60 PAGE UM MANUAL SEP. 11, 1978 19:57:45 0 FORMAT SOURCE FOR "INTRODUCTION TO THE COMPUTING CENTER" (SEPTEMBER 1978). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00679/002 INTRO GUIDE: INTRO TO CC PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO78.OUT D4.2T1 625 INTRO_GUIDE:_INTRO_TO_CC..PF.002 1 LINE 135 92 PAGE UM MANUAL SEP. 11, 1978 19:57:53 0 FORMAT PRINT FILE. 00680/001 *CKID SA G MTS:CKID.S D4T3 51 CKID..SA.001 1 LINE 80 15 PAGE UBC HOGG MTA JULY 28, 1977 23:21:03 MTS.:CKID.S 0 PROGRAM TO PROVIDE ADDITONAL SIGNON SECURITY FOR ACCOUNTS WHICH ARE SHARED BY SEVERAL USERS WITHOUT REQUIRING THAT THE PASSWORD FOR THE SHARED ACCOUNT BE CHANGED REGULARLY. COPIES COPY:ACCFORMAT (725) AND *GDINFODSECT (594). 0 Referenced by comments of: 3003/98 00680/002 *CKID OE G *CKID D4.2T1 626 CKID..OE.002 1 LINE 2256 3 PAGE UBC HOGG MTA APR. 02, 1979 00:45:41 *CKID 00681/001 AUDIO RESP SYS - VOTRAX INSTALLATION PT W070:ARS.SYSWRP.P D4T3 53 AUDIO_RESP_SYS_-_VOTRAX.I.PT.001 1 LINE 100 7 PAGE UM FRONCZAK SEP. 18, 1977 22:09:36 0 INSTRUCTIONS FOR THE INSTALLATION OF THE VOTRAX AUDIO RESPONSE SYSTEM WHICH USES THE VOTRAX VS-6 SPEECH SYNTHESIZER AND "TOUCH-TONE" TELEPHONE COMMUNICATION TO PROVIDE MTS INTERACTIVE FACILITIES IN CONJUNCTION WITH THE DATA CONCENTRATOR DEVICE SUPPORT ROUTINES PDP8RTN (116). COPY TO A TN PRINTER @MCC. 00681/002 AUDIO RESP SYS - VOTRAX VTRX SA G W070:VOTRX.S(6) D4.2T1 627 AUDIO_RESP_SYS_-_VOTRAX.V.SA.002 1 LINE 81 36 PAGE UM FRONCZAK APR. 02, 1979 00:45:41 0 SUBROUTINES VTRXINIT, VTRXIN, VTRXOUT, VTRXCTRL, AND VTRXCLOS WHICH ARE CALLED BY PDP8RTN (116) TO PROCESS VOTRAX I/O AND CONTROL COMMANDS. THESE ROUTINES CALL CVTPB (681/4) AND DICTINIT, DICTADD, AND DICTLOOK (681/6) AS WELL AS REFERENCING THE VOTRAX VOCABULARY (681/14). 00681/003 AUDIO RESP SYS - VOTRAX VTRX OC G # *PDP8RTN (SEE COMP 116) UM FRONCZAK 00681/004 AUDIO RESP SYS - VOTRAX CVTPB SA G W070:VOTRX.CVT.S(5) D4T3 55 AUDIO_RESP_SYS_-_VOTRAX.C.SA.004 1 LINE 71 3 PAGE UM FRONCZAK SEP. 18, 1977 22:09:47 0 SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION ROUTINE. 0 Referenced by comments of: 681/2, 681/8 00681/005 AUDIO RESP SYS - VOTRAX CVTPB OC G # *PDP8RTN (SEE COMP 116) UM FRONCZAK 00681/006 AUDIO RESP SYS - VOTRAX DICT SA G W070:VOTRX.DICT.S(4) D4T3 56 AUDIO_RESP_SYS_-_VOTRAX.D.SA.006 1 LINE 81 10 PAGE UM FRONCZAK SEP. 18, 1977 22:09:48 0 MORPH DIRECTORY MANIPULATION ROUTINES. 1 THU SEP 12/96 23:39:34 Page 344 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 681/2, 681/8 00681/007 AUDIO RESP SYS - VOTRAX DICT OC G # *PDP8RTN (SEE COMP 116) UM FRONCZAK 00681/008 AUDIO RESP SYS - VOTRAX RVGN SA G W070:VOTRX.RVGN.S(6) D4T3 57 AUDIO_RESP_SYS_-_VOTRAX.R.SA.008 1 LINE 67 9 PAGE UM FRONCZAK SEP. 18, 1977 22:09:53 0 PROGRAM TO READ A SYMBOLIC VOCABULARY FILE (E.G. *ARUVOC) AND GENERATE ASSEMBLER INPUT WHICH, WHEN ASSEMBLED, PRODUCES AN OBJECT DECK FOR THE TREE STRUCTURE VOCABULARY. THIS PROGRAM CALLS CVTPB (681/4), DICT (681/6), RVST (681/10) AND REQUIRES *PLOTSYS. 0 Referenced by comments of: 681/12, 681/13 00681/009 AUDIO RESP SYS - VOTRAX RVGN OC G W070:VOTRX.RVGN.O D4T3 58 AUDIO_RESP_SYS_-_VOTRAX.R.OC.009 1 LINE 80 3 PAGE UM FRONCZAK SEP. 18, 1977 22:09:54 00681/010 AUDIO RESP SYS - VOTRAX RVST SF G W070:VOTRX.RVST.S(6) D4T3 59 AUDIO_RESP_SYS_-_VOTRAX.R.SF.010 1 LINE 71 4 PAGE UM FRONCZAK SEP. 18, 1977 22:09:55 0 SUBROUTINES TO COMPUTE, PRINT, AND PLOT VOCABULARY STATISTICS. 0 Referenced by comments of: 681/8 00681/011 AUDIO RESP SYS - VOTRAX RVST OC G W070:VOTRX.RVST.O D4T3 60 AUDIO_RESP_SYS_-_VOTRAX.R.OC.011 1 LINE 248 5 PAGE UM FRONCZAK SEP. 18, 1977 22:09:56 00681/012 AUDIO RESP SYS - VOTRAX TREEDEF SA G W070:VTREEDEF D4T3 61 AUDIO_RESP_SYS_-_VOTRAX.T.SA.012 1 LINE 65 2 PAGE UM FRONCZAK SEP. 18, 1977 22:09:57 0 THE OUTPUT (WHICH IS ASSEMBLER SOURCE) FROM RVGN (681/8) STARTS WITH A COPY PSEUDO-OP FOR "W070:VTREEDEF" WHICH COPIES THE INITIAL PART OF THE SOURCE. 00681/013 AUDIO RESP SYS - VOTRAX VOCABULARY D *ARUVOC D4T3 62 AUDIO_RESP_SYS_-_VOTRAX.V.D.013 1 LINE 95 31 PAGE UM FRONCZAK SEP. 18, 1977 22:09:57 *ARUVOC 0 MORPH SYMBOLIC DIRECTORY FOR STANDARD VOTRAX VOCABULARY WHICH, WHEN RUN THROUGH RVGN (681/8), PRODUCES THE ASSEMBLER INPUT FOR THE VOCABULARY WHICH, WHEN ASSEMBLED, YIELDS THE SHARED VM VOCABULARY OBJECT (681/14). 00681/014 AUDIO RESP SYS - VOTRAX VOCABULARY OC G # *PDP8RTN (SEE COMP 116) UM FRONCZAK 0 STANDARD SYSTEM VOTRAX TREE STRUCTURE VOCABULARY. 0 Referenced by comments of: 681/2, 681/13 00681/015 AUDIO RESP SYS - VOTRAX VOCAB EDITOR SF G W070:VOTRX.EVOC.S D4T3 63 AUDIO_RESP_SYS_-_VOTRAX.V.SF.015 1 LINE 70 2 PAGE UM FRONCZAK SEP. 18, 1977 22:10:01 0 VOTRAX VOCABULARY LINE FILE EDITOR WITH AURAL VERIFICATION. SEE THE SOURCE FOR USAGE DIRECTIONS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00681/016 AUDIO RESP SYS - VOTRAX VOCAB EDITOR OC G W070:VOTRX.EVOC D4T3 64 AUDIO_RESP_SYS_-_VOTRAX.V.OC.016 1 LINE 254 3 PAGE UM FRONCZAK SEP. 18, 1977 22:10:02 0 CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD. 00681/017 AUDIO RESP SYS - VOTRAX TALK SF G W070:VOTRX.TALK.S D4T3 65 AUDIO_RESP_SYS_-_VOTRAX.T.SF.017 1 LINE 64 1 PAGE UM FRONCZAK SEP. 18, 1977 22:10:03 0 SYMBOLIC-TO-BINARY PHONEME CODE CONVERSION PROGRAM WITH AURAL VERIFICATION. SEE THE SOURCE FOR USAGE DIRECTIONS. 00681/018 AUDIO RESP SYS - VOTRAX TALK OC G W070:VOTRX.TALK D4T3 66 AUDIO_RESP_SYS_-_VOTRAX.T.OC.018 1 SEQ 340 1 PAGE UM FRONCZAK SEP. 18, 1977 22:10:04 0 CONTAINS A "$CONTINUE WITH VOTRX.CVT.O" RECORD. 00681/019 AUDIO RESP SYS - VOTRAX DSR TEST SA G W070:VOTRX.TEST.S(4) D4.2T1 628 AUDIO_RESP_SYS_-_VOTRAX.D.SA.019 1 LINE 72 8 PAGE UM FRONCZAK APR. 02, 1979 00:45:49 0 PROGRAM TO INDEPENDENTLY TEST THE VOTRAX ROUTINES WHICH ARE CALLED BY PDP8RTN (116). SEE THE SOURCE FOR USAGE DIRECTIONS. 00681/020 AUDIO RESP SYS - VOTRAX DSR TEST OC G W070:VOTRX.TEST.O D4.2T1 629 AUDIO_RESP_SYS_-_VOTRAX.D.OC.020 1 LINE 80 3 PAGE UM FRONCZAK APR. 02, 1979 00:45:50 00681/021 AUDIO RESP SYS - VOTRAX TEXT INSERTION D # *ARUDEF (SEE COMP 084) UM FRONCZAK 0 TEXT DEFINITION FILE FOR TEXT INSERTION MODE. 00682/001 FILE SYSTEM RECOVERY DOCUMENTATION WF FILE:UBC.DISK.W D4T3 69 FILE_SYSTEM_RECOVERY.DOCU.WF.001 1 LINE 92 7 PAGE UM HELFFRICH JULY 28, 1977 23:21:58 FILE:UBC.DISK.W 0 THIS COMPONENT CONTAINS A COLLECTION OF PROGRAMS WHICH CAN BE USED TO RECOVER FROM HARDWARE AND SOFTWARE DISK DISASTERS. COMP 682/1 IS A WRITEUP DESCRIBING THE USAGE OF THE SEVERAL PROGRAMS AND A DESCRIPTION OF THE DISK ORGANIZATION. THE FORMAT INCLUDE FUNCTION IS USED TO REFERENCE THE VARIOUS PIECES OF THIS WRITEUP (682/2 THROUGH 682/17). 00682/002 FILE SYSTEM RECOVERY CCATL DESC WF FILE:CCATL.W D4.2T1 630 FILE_SYSTEM_RECOVERY.CCAT.WF.002 1 LINE 93 2 PAGE UM HELFFRICH APR. 02, 1979 00:45:51 FILE:CCATL.W 0 WRITEUP DESCRIBING THE CCATL PROGRAM (442). 00682/003 FILE SYSTEM RECOVERY PM DESC WF FILE:PM.W D4T3 71 FILE_SYSTEM_RECOVERY.PM_D.WF.003 1 LINE 62 2 PAGE UBC O'REILLY HELFFRICH JULY 28, 1977 23:22:03 FILE:PM.W 0 WRITEUP DESCRIBING THE PACK MAP PROGRAM (1030). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00682/004 FILE SYSTEM RECOVERY DSKMAN DESC WF FILE:DSKMAN.W D4T3 72 FILE_SYSTEM_RECOVERY.DSKM.WF.004 1 LINE 63 1 PAGE UM HELFFRICH JULY 28, 1977 23:22:05 FILE:DSKMAN.W 0 WRITEUP DESCRIBING THE DSKMAN (*DSK) PROGRAM (073). 00682/005 FILE SYSTEM RECOVERY DASDI DESC WF FILE:DASDI.W D4T3 73 FILE_SYSTEM_RECOVERY.DASD.WF.005 1 LINE 66 1 PAGE UM HELFFRICH JULY 28, 1977 23:22:08 FILE:DASDI.W 0 WRITEUP DESCRIBING THE DASDI PROGRAM (598). 00682/006 FILE SYSTEM RECOVERY CHONID DESC WF FILE:CHONID.W D4T3 74 FILE_SYSTEM_RECOVERY.CHON.WF.006 1 LINE 64 1 PAGE UM HELFFRICH JULY 28, 1977 23:22:10 FILE:CHONID.W 0 WRITEUP DESCRIBING THE CHONID PROGRAM (599). 00682/007 FILE SYSTEM RECOVERY FM DESC WF FILE:FM.W D4.2T1 631 FILE_SYSTEM_RECOVERY.FM_D.WF.007 1 LINE 68 1 PAGE UBC HOGG HELFFRICH APR. 02, 1979 00:45:52 FILE:FM.W 0 WRITEUP DESCRIBING THE FILE MOVE PROGRAM (1020). 00682/008 FILE SYSTEM RECOVERY CHKVTOC DESC WF FILE:CHKVTOC.W D4T3 76 FILE_SYSTEM_RECOVERY.CHKV.WF.008 1 LINE 73 1 PAGE UM HELFFRICH AUG. 14, 1977 22:41:35 FILE:CHKVTOC.W 0 WRITEUP DESCRIBING THE CHKVTOC PROGRAM (682/20). 00682/009 FILE SYSTEM RECOVERY TABLMOD DESC WF FILE:TABLMOD.W D4T3 77 FILE_SYSTEM_RECOVERY.TABL.WF.009 1 LINE 76 1 PAGE UM GOODRICH JULY 28, 1977 23:22:18 FILE:TABLMOD.W 0 WRITEUP DESCRIBING THE TABLMOD PROGRAM (554). 00682/010 FILE SYSTEM RECOVERY VNTD DESC WF FILE:VNTD.W D4T3 78 FILE_SYSTEM_RECOVERY.VNTD.WF.010 1 LINE 68 1 PAGE UM HELFFRICH AUG. 14, 1977 22:41:36 FILE:VNTD.W 0 WRITEUP DESCRIBING THE VNTD PROGRAM (682/18). 00682/011 FILE SYSTEM RECOVERY FSTEST DESC WF FILE:FSTEST.W D4.1T1 494 FILE_SYSTEM_RECOVERY.FSTE.WF.011 1 LINE 101 4 PAGE UM HELFFRICH MAY 13, 1978 18:11:22 FILE:FSTEST.W 0 WRITEUP DESCRIBING THE FSTEST PROGRAM (482/31). 00682/012 FILE SYSTEM RECOVERY VAMREC DESC WF FILE:VAMREC.WRUP D4.1T1 495 FILE_SYSTEM_RECOVERY.VAMR.WF.012 1 LINE 108 5 PAGE SFU BENET HELFFRICH MAY 13, 1978 18:11:23 FILE:VAMREC.WRUP 0 WRITEUP DESCRIBING THE VAMREC PROGRAM (682/22). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00682/013 FILE SYSTEM RECOVERY RECOVERING WF FILE:RECOVERING D4T3 81 FILE_SYSTEM_RECOVERY.RECO.WF.013 1 LINE 177 5 PAGE UM HELFFRICH AUG. 14, 1977 22:41:39 FILE:RECOVERING 0 DESCRIPTION OF PROCEDURES SUGGESTED FOR RECOVERING FROM DISK DISASTERS. 00682/014 FILE SYSTEM RECOVERY LINE FILE DESC WF FILE:DOC.DESC.LNE D4T3 82 FILE_SYSTEM_RECOVERY.LINE.WF.014 1 LINE 136 4 PAGE UM HELFFRICH AUG. 14, 1977 22:41:40 FILE:DOC.DESC.LNE 0 DESCRIPTION OF MTS LINE FILE ORGANIZATION. 00682/015 FILE SYSTEM RECOVERY SEQ FILE DESC WF FILE:DOC.DESC.SEQ D4T3 83 FILE_SYSTEM_RECOVERY.SEQ.WF.015 1 LINE 130 4 PAGE UM HELFFRICH AUG. 14, 1977 22:41:41 FILE:DOC.DESC.SEQ 0 DESCRIPTION OF MTS SEQ FILE ORGANIZATION. 00682/016 FILE SYSTEM RECOVERY CAT DESC WF FILE:DOC.DESC.CAT D4T3 84 FILE_SYSTEM_RECOVERY.CAT.WF.016 1 LINE 190 7 PAGE UM HELFFRICH AUG. 14, 1977 22:41:41 FILE:DOC.DESC.CAT 0 DESCRIPTION OF MTS FILE CATALOG ORGANIZATION. 00682/017 FILE SYSTEM RECOVERY TAB DESC WF FILE:DOC.DESC.TAB D4T3 85 FILE_SYSTEM_RECOVERY.TAB.WF.017 1 LINE 131 5 PAGE UM HELFFRICH AUG. 14, 1977 22:41:44 FILE:DOC.DESC.TAB 0 DESCRIPTION OF MTS SHARED FILE TABLE ORGANIZATION. 00682/018 FILE SYSTEM RECOVERY VNTD SA G VNTD FILE:VNTD D4T3 86 FILE_SYSTEM_RECOVERY.VNTD.SA.018 1 LINE 80 35 PAGE UM HELFFRICH AUG. 14, 1977 22:41:45 FILE:VNTD 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. THIS PROGRAM ASSUMES 3330 TYPE DISKS AND PUBLIC VOLUME NUMBERS LESS THAN 256 IN ITS ERROR CHECKING. SEE COMP 682/10 FOR A WRITEUP. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 682/10, 682/26 00682/019 FILE SYSTEM RECOVERY VNTD OC G FILE:VNTD.O D4T3 87 FILE_SYSTEM_RECOVERY.VNTD.OC.019 1 LINE 80 8 PAGE UM HELFFRICH AUG. 14, 1977 22:41:48 FILE:VNTD.O 00682/020 FILE SYSTEM RECOVERY CHKVTOC SA G CHKV FILE:CHKVTOC(1000) D4.2T1 632 FILE_SYSTEM_RECOVERY.CHKV.SA.020 1 LINE 80 21 PAGE UM HELFFRICH APR. 02, 1979 00:45:52 FILE:CHKVTOC 0 PROGRAM TO CHECK CONSISTENCY OF PAGE ASSIGNMENT TABLE (PAT) WITH TYPE E'S AND TYPE F'S FOR A PARTICULAR VOLUME. REQUIRES SYMBOLS IN SYSDEFS. ASSEMBLE USING COPY:FILE.MACROS (482/33) AND *SYSMAC. CALLS VTOCREAD SUBROUTINE (067/4). SEE COMP 682/8 FOR A WRITEUP. 0 Referenced by comments of: 682/8 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00682/021 FILE SYSTEM RECOVERY CHKVTOC OC G FILE:CHKVTOC(1,999) D4.2T1 633 FILE_SYSTEM_RECOVERY.CHKV.OC.021 1 LINE 80 5 PAGE UM HELFFRICH APR. 02, 1979 00:45:58 0 CONTAINS A "$CONTINUE WITH RSTR:VTOCREAD+COPY:SYSDEFS" LINE. 00682/022 FILE SYSTEM RECOVERY VAMREC SA G VMRC FILE:VAMREC(1005) D4.1T1 498 FILE_SYSTEM_RECOVERY.VAMR.SA.022 1 LINE 80 66 PAGE SFU BENET HELFFRICH MAY 13, 1978 18:11:30 FILE:VAMREC 0 THE VAMREC DISK UTILITY. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). SEE COMP 682/12 FOR A WRITEUP. 0 Referenced by comments of: 682/12 00682/023 FILE SYSTEM RECOVERY VAMREC OC G FILE:VAMREC(1,999) D4.1T1 499 FILE_SYSTEM_RECOVERY.VAMR.OC.023 1 LINE 80 13 PAGE SFU BENET HELFFRICH MAY 13, 1978 18:11:51 00682/024 FILE SYSTEM RECOVERY FIXEH SA G FXEH FILE:FIXEH(1,999) D4.1T1 500 FILE_SYSTEM_RECOVERY.FIXE.SA.024 1 LINE 80 5 PAGE UM HELFFRICH MAY 13, 1978 18:11:59 FILE:FIXEH 0 PROGRAM TO FIX EXTENT HEADERS IN THE CATALOG BY CLEARING THE IN-USE BITS FOR ALL SEGMENTS IN A RECORD OF THE CATALOG WHICH IS ALL ZERO. IT WILL ALSO CHECK THAT THE RECORD HEADER OF ANY NON-ZERO RECORD (WITH A SEGMENT FLAGGED AS BEING IN-USE) IS CORRECT. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00682/025 FILE SYSTEM RECOVERY FIXEH OC G FILE:FIXEH(1000) D4.1T1 501 FILE_SYSTEM_RECOVERY.FIXE.OC.025 1 LINE 80 2 PAGE UM HELFFRICH MAY 13, 1978 18:12:00 00682/026 FILE SYSTEM RECOVERY FIXCAT SA G FCAT FILE:FIXCAT(1,999) D4.1T1 502 FILE_SYSTEM_RECOVERY.FIXC.SA.026 1 LINE 80 8 PAGE UM HELFFRICH MAY 13, 1978 18:12:00 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 ACATSUB (104/108) AND FASTRSTR (671). ASSEMBLE USING COPY:FILE.MACROS (482/33). 00682/027 FILE SYSTEM RECOVERY FIXCAT OC G FILE:FIXCAT(1000) D4.1T1 503 FILE_SYSTEM_RECOVERY.FIXC.OC.027 1 LINE 80 3 PAGE UM HELFFRICH MAY 13, 1978 18:12:01 00682/028 FILE SYSTEM RECOVERY FIXSD SA G FXSD FILE:FIXSD(1,999) D4T3 96 FILE_SYSTEM_RECOVERY.FIXS.SA.028 1 LINE 80 6 PAGE UM HELFFRICH JULY 28, 1977 23:22:56 FILE:FIXSD 0 PROGRAM TO FIX SHARING DESCRIPTORS BY ZEROING ANY SD WHICH IS NOT POINTED TO BY A FD OR SD. IT ALSO WILL ZERO THE PREVIOUS POINTER IN THE FD OR SD FOR ANY LOST SD. IT TAKES AS INPUT THE OUTPUT FROM VNTD (703/2) AND PROVIDES AS OUTPUT A LIST OF FILES WHICH LOST SHARING INFORMATION. THIS OUTPUT IS THEN USED FOR INPUT TO FASTRSTR (671). ASSEMBLE USING COPY:FILE.MACROS (482/33). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00682/029 FILE SYSTEM RECOVERY FIXSD OC G FILE:FIXSD(1000) D4T3 97 FILE_SYSTEM_RECOVERY.FIXS.OC.029 1 LINE 80 3 PAGE UM HELFFRICH JULY 28, 1977 23:22:59 00682/030 FILE SYSTEM RECOVERY WHATSLEFT SA G WHAT FILE:WHATSLEFT(1,999) D4T3 98 FILE_SYSTEM_RECOVERY.WHAT.SA.030 1 LINE 80 2 PAGE UM HELFFRICH JULY 28, 1977 23:23:01 FILE:WHATSLEFT 0 PROGRAM TO GENERATE A LIST OF FILES WHICH DID NOT GET DATA OR CATALOG RESTORED BY FASTRSTR (671). SEE THE SOURCE FOR DETAILS ON USAGE. 00682/031 FILE SYSTEM RECOVERY WHATSLEFT OC G FILE:WHATSLEFT(1000) D4T3 99 FILE_SYSTEM_RECOVERY.WHAT.OC.031 1 LINE 80 1 PAGE UM HELFFRICH JULY 28, 1977 23:23:04 00682/032 FILE SYSTEM RECOVERY RECATALOG SA G RCAT FILE:RECATALOG(1,999) D4T3 100 FILE_SYSTEM_RECOVERY.RECA.SA.032 1 LINE 80 4 PAGE UM HELFFRICH AUG. 14, 1977 22:42:13 FILE:RECATALOG 0 SUBROUTINE TO RECATALOG A FILE FROM SCRATCH. IT TAKES AS INPUT, A FILENAME AND DSCB ADDRESS. IT ALSO DETERMINES THE FILE TYPE AND SETS IT ACCORDINGLY. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00682/033 FILE SYSTEM RECOVERY RECATALOG OC G FILE:RECATALOG(1000) D4T3 101 FILE_SYSTEM_RECOVERY.RECA.OC.033 1 LINE 80 1 PAGE UM HELFFRICH AUG. 14, 1977 22:42:14 00682/034 FILE SYSTEM RECOVERY CALLDR SA G CLDR FILE:CALLDR(1,999) D4T3 102 FILE_SYSTEM_RECOVERY.CALL.SA.034 1 LINE 80 3 PAGE UM HELFFRICH JULY 28, 1977 23:23:12 FILE:CALLDR 0 PROGRAM WHICH CALLS DESTRYR TO DESTROY FILES. SEE THE SOURCE FOR USAGE DETAILS. 00682/035 FILE SYSTEM RECOVERY CALLDR OC G FILE:CALLDR(1000) D4T3 103 FILE_SYSTEM_RECOVERY.CALL.OC.035 1 LINE 80 1 PAGE UM HELFFRICH JULY 28, 1977 23:23:14 00682/036 FILE SYSTEM RECOVERY FILES SA G STAR FILE:STARFILES(1,999) D4T3 104 FILE_SYSTEM_RECOVERY.*FIL.SA.036 1 LINE 80 7 PAGE UM HELFFRICH JULY 28, 1977 23:23:17 FILE:STARFILES 0 PROGRAM TO PRINT WHICH USERS FILES HAVE BEEN AFFECTED AND HOW BY A DISK CRASH. IT TAKES AS INPUT DATA IN FILE:FILELIST (SEE THE SOURCE FOR DETAILS ON THE FORMAT OF THIS FILE). THE OUTPUT FROM FASTRSTR (671) IS BASICALLY WHAT IS USED TO GENERATE THIS DATA FILE WITH THE HELP OF COMBLIST (703/23). 0 Referenced by comments of: 682/38 00682/037 FILE SYSTEM RECOVERY FILES OC G FILE:STARFILES(1000) D4T3 105 FILE_SYSTEM_RECOVERY.*FIL.OC.037 1 LINE 80 3 PAGE UM HELFFRICH JULY 28, 1977 23:23:19 0 PUT THIS IN *FILES AFTER A DISK CRASH. 00682/038 FILE SYSTEM RECOVERY COMBLIST SA G CLST FILE:COMBLIST(1,999) D4T3 106 FILE_SYSTEM_RECOVERY.COMB.SA.038 1 LINE 80 2 PAGE UM HELFFRICH JULY 28, 1977 23:23:22 FILE:COMBLIST 0 PROGRAM TO TAKE THE TWO SORTED LISTS OF OUTPUT FROM FASTRSTR (671), I.E. THE 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 LIST OF FILES WITH DATA RESTORES AND THE LIST OF FILES WITH CATALOG RESTORES, AND PRODUCE A THIRD LIST WHICH IS INPUT TO STARFILES (682/36). 00682/039 FILE SYSTEM RECOVERY COMBLIST OC G FILE:COMBLIST(1000) D4T3 107 FILE_SYSTEM_RECOVERY.COMB.OC.039 1 LINE 80 2 PAGE UM HELFFRICH JULY 28, 1977 23:23:24 00682/040 FILE SYSTEM RECOVERY FILE UPDATE OC G FILE:FILEUPD D4.2T1 634 FILE_SYSTEM_RECOVERY.FILE.OC.040 1 LINE 80 3 PAGE UM MTA APR. 02, 1979 00:46:01 FILE:FILEUPD 0 OBJECT FOR ACCRDWRT (104/31), ACCUPDAT (104/24), AND A DUMMY PRINT ROUTINE, PLUS $CONTINUE WITHS FOR ACATALOG (104/106), ACATSUB (104/108), VTOCREAD (067/4), TEST DSACC (482/30), ACCLIB (104/39), 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 CARE TO INCREASE SPEED BY KEEPING ACCOUNTING FILES LOCKED MORE. 00682/041 FILE SYSTEM RECOVERY AMALGAMATE SA G FILE:AMALGAMATE(1000) D4.2T1 635 FILE_SYSTEM_RECOVERY.AMAL.SA.041 1 LINE 72 6 PAGE UM HELFFRICH APR. 02, 1979 00:46:02 FILE:AMALGAMATE 0 PROGRAM TO TAKE A LIST OF FILES AND USE "FILEDIR.MAS" TO APPEND TAPE LOCATION INFORMATION FOR USE BY FASTRESTORE (671/3). ALSO COMPARES "FILEDIR.MAS" WITH FILE SYSTEM CATALOG TO LOCATE FILES WHOSE DATA IS LOST (NOT ON ANY RESTORE TAPES) AND WHOSE SHARING INFORMATION HAS BEEN DAMAGED (ALSO NOT ON ANY RESTORE TAPES). COPIES *CNFGINFODSECT (654). NOTE: THE DIRECTORY FILES RSTR:FILEDIR.MAS, RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR MUST BE PERMITTED WITH READ ACCESS TO FILE&PKEY=DISASTER. 0 Referenced by comments of: 671/3, 682/43 00682/042 FILE SYSTEM RECOVERY AMALGAMATE OC G FILE:AMALGAMATE(1,999) D4.2T1 636 FILE_SYSTEM_RECOVERY.AMAL.OC.042 1 LINE 80 4 PAGE UM HELFFRICH APR. 02, 1979 00:46:07 0 HAS A "$CONTINUE WITH MTS:UBCDATEX+FILE:CHKFILE RETURN" LINE. 00682/043 FILE SYSTEM RECOVERY CHKFILE SUBR SA G CKF2 FILE:CHKFILE(1000) D4.2T1 637 FILE_SYSTEM_RECOVERY.CHKF.SA.043 1 LINE 80 7 PAGE UM HELFFRICH APR. 02, 1979 00:46:10 FILE:CHKFILE 0 ALTERNATE VERSION OF SYSTEM CHKFILE ROUTINE FOR USE BY MERGE (716/6) AND AMALGAMATE (682/41). COPIES *CNFGINFODSECT (654). ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 716/6 00682/044 FILE SYSTEM RECOVERY CHKFILE SUBR OC G FILE:CHKFILE(1,999) D4.2T1 638 FILE_SYSTEM_RECOVERY.CHKF.OC.044 1 LINE 80 3 PAGE UM HELFFRICH APR. 02, 1979 00:46:10 0 CONTAINS A "$CONTINUE WITH COPY:SYSDEFS" (579/3) RECORD. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00682/045 FILE SYSTEM RECOVERY CALLRELDSK SA G FILE:CALLRELDSK D4.2T1 639 FILE_SYSTEM_RECOVERY.CALL.SA.045 1 LINE 80 3 PAGE UM HELFFRICH APR. 02, 1979 00:46:11 FILE:CALLRELDSK 0 PROGRAM TO TAKE ACATSUB OUTPUT AND CALL RELDSK TO DESTROY UNCATALOGED FILES. 00682/046 FILE SYSTEM RECOVERY CALLRELDSK OC G FILE:CALLRELDSK(1000) D4.2T1 640 FILE_SYSTEM_RECOVERY.CALL.OC.046 1 LINE 80 1 PAGE UM HELFFRICH APR. 02, 1979 00:46:12 00682/047 FILE SYSTEM RECOVERY VAMREC-CHKVTOC SS G FILE:VAMREC->CHKV D4.2T1 641 FILE_SYSTEM_RECOVERY.VAMR.SS.047 1 LINE 66 1 PAGE UM HELFFRICH APR. 02, 1979 00:46:12 FILE:VAMREC->CHKV 0 SPITBOL PROGRAM TO TAKE DISK I/O ERROR OUTPUT FROM VAMREC AND GENERATE CHKVTOC INPUT. THIS IS TO ALLOW ONE TO LOCATE FILES WHOSE DATA PAGES ARE GIVING DATA CHECKS. 00683/001 MTS VOLUME 15 MASTER WT S1062 MTSV15 'MTS MANUALS' POSN=NEWM2.V15 D4.2T1 642 MTS_VOLUME_15.MASTER.WT.001 1 SEQ 132 158 PAGE UM MANUAL APR. 02, 1979 00:46:49 0 TEXT/360 MASTER FOR VOLUME 15 "FORMAT AND TEXT360" OF THE UM MTS MANUALS (APRIL 1977, UPDATED FEBRUARY 1979). EDITOR: RICHARD A. SALISBURY 00683/002 MTS VOLUME 15 PRINT PT S1062 MTSV15 'MTS MANUALS' POSN=PRINT2.V15 D4.2T1 643 MTS_VOLUME_15.PRINT.PT.002 1 SEQ 132 277 PAGE UM MANUAL APR. 02, 1979 00:47:01 0 TEXT/360 PRINT FILE. 00683/003 MTS VOLUME 15 INDEX SOURCE D S1062 MTSV15 'MTS MANUALS' POSN=V15INDEXSOU D4.2T1 644 MTS_VOLUME_15.INDEX_SOURC.D.003 1 SEQ 147 5 PAGE UM MANUAL APR. 02, 1979 00:47:16 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 15. 00683/004 MTS VOLUME 15 UPDATE 1 PT W073:TNLV15.FEB79 D4.2T1 645 MTS_VOLUME_15.UPDATE_1.PT.004 1 LINE 133 59 PAGE UM MANUAL APR. 02, 1979 00:47:17 0 THIS IS COMPUTING CENTER MEMO 396 -- "UPDATE 1 TO MTS VOLUME 15," (APRIL 1977). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00684/001 OXFORD SA G OXON MTS:OXFORD.S D4T3 111 OXFORD..SA.001 1 LINE 80 24 PAGE UBC HOGG DWB JULY 28, 1977 23:24:13 MTS.:OXFORD.S 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. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00684/002 OXFORD OC G MTS:OXFORD D4T3 112 OXFORD..OC.002 1 LINE 80 3 PAGE UBC HOGG DWB JULY 28, 1977 23:24:15 MTS.:OXFORD 00685/001 UNSUPPORTED SOFTWARE WRITEUPS WF S0684 UNSP FSNAME=W.F D4.2T1 646 UNSUPPORTED_SOFTWARE.WRIT.WF.001 1 LINE 135 31 PAGE UM UNSP JAN. 12, 1979 16:59:04 0 FORMAT SOURCE TO PRODUCE BRIEF (AS IN VOLUMES 2 AND 3) WRITEUPS FOR THE UNSUPPORTED SOFTWARE. THE OUTPUT FROM FORMAT MUST HAVE THE TABLE OF CONTENTS MOVED TO THE BEGINNING OF THE FILE IN ORDER TO COMPLETELY AGREE WITH THE FILE UNSP:WRITEUPS (685/2). NOTE: NOT ALL OF THE ITEMS DESCRIBED IN THESE WRITEUPS ARE INCLUDED IN THE DISTRIBUTION. 00685/002 UNSUPPORTED SOFTWARE WRITEUPS PF UNSP:WRITEUPS D4.2T1 647 UNSUPPORTED_SOFTWARE.WRIT.PF.002 1 LINE 70 51 PAGE UM UNSP APR. 02, 1979 00:47:31 UNSP:WRITEUPS 0 THIS FILE CONTAINS BRIEF WRITEUPS (AS IN VOLUMES 2 AND 3) FOR THE SEVERAL "UNSUPPORTED" SOFTWARE COMPONENTS. 0 Referenced by comments of: 590/10, 673/1, 685/1, 736/1 00685/003 UNSUPPORTED SOFTWARE CATALOG P UNSP:CATALOG D4.2T1 648 UNSUPPORTED_SOFTWARE.CATA.P.003 1 LINE 68 4 PAGE UM UNSP APR. 02, 1979 00:47:36 UNSP:CATALOG 0 LIST OF UNSP FILES AVAILABLE AT UM. NOTE: NOT ALL OF THE ITEMS IN THIS LIST ARE INCLUDED IN THE DISTRIBUTION. 00685/004 UNSUPPORTED SOFTWARE SUBR LIBRARY OL O UNSP:LIBRARY D4.2T1 649 UNSUPPORTED_SOFTWARE.SUBR.OL.004 1 LINE 1382 3 PAGE UM UNSP APR. 02, 1979 00:47:37 UNSP:LIBRARY 0 SUBROUTINE LIBRARY -- ROUTINES INCLUDED SEPARATELY. 0 Referenced by comments of: 528/22, 642/6, 642/26, 765/1 00685/005B UNSUPPORTED SOFTWARE MACRO LIBRARY SM G UNSP:MACLIB RD16T1 209 UNSUPPORTED_SOFTWARE.MACR.SM.005 1 LINE 72 5 PAGE UM UNSP MTA JULY 12, 1979 23:16:18 UNSP:MACLIB 0 MACRO LIBRARY CONTAINING CLCL, MVCL, AND SEXIT MACROS AMONG OTHERS. THESE MACROS ARE DESCRIBED IN 685/6 WRITEUP. 0 Referenced by comments of: 590/13, 590/14, 590/15, 590/16, 590/17, 590/18, 590/19, 590/20, 590/25, 677/1, 685/6 00685/006 UNSUPPORTED SOFTWARE MACRO LIBRARY WF S0684 UNSP FSNAME=MACLIB.F D4.2T1 651 UNSUPPORTED_SOFTWARE.MACR.WF.006 1 LINE 72 4 PAGE UM UNSP MTA JAN. 15, 1979 15:28:38 0 A WRITEUP DESCRIBING THE MACROS THAT ARE AVAILABLE IN UNSP:MACROS (685/5). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00685/007B UNSUPPORTED SOFTWARE MACRO TEST PGM SA MTA:MIFMACTEST RD16T1 210 UNSUPPORTED_SOFTWARE.MACR.SA.007 1 LINE 72 2 PAGE UM UNSP MTA JULY 12, 1979 23:16:19 MTA.:MIFMACTEST 0 TEST PROGRAM FOR "MIF" MACROS. COPIES COPY:GLOBALS (1026/3). ASSEMBLE, BUT DON'T RUN IT. 00685/008A UNSUPPORTED SOFTWARE NEWS P UNSP:NEWS D4.2T1 653 UNSUPPORTED_SOFTWARE.NEWS.P.008 1 LINE 69 6 PAGE UM UNSP APR. 02, 1979 00:47:40 0 LIST OF MOST CHANGES MADE TO UNSUPPORTED SOFTWARE AT UM. **************************************************************************** D5.0 CHANGES: NOW CONTAINS $CONTINUE WITH UNSP:NEWSNEW" (685/9) AND "$CONTINUE WITH UNSP:NEWSOLD" (685/10). **************************************************************************** 00685/009A UNSUPPORTED SOFTWARE NEWSNEW P UNSP:NEWSNEW UM UNSP 0 CONTAINS NEWS ITEMS WHICH HAVE NOT YET APPEARED IN THE COMPUTING CENTER NEWSLETTER. 0 Referenced by comments of: 685/8 00685/010A UNSUPPORTED SOFTWARE NEWSOLD P UNSP:NEWSOLD UM UNSP 0 CONTAINS NEWS ITEMS SENT OUT ON THE LAST REGULAR DISTRIBUTION. 0 Referenced by comments of: 685/8 00686/001 MICRO CROSS-ASSEMBLER GENCODE SA G S0806 DIST4 FSNAME=ASM.GENCODE D4.2T1 654 MICRO_CROSS-ASSEMBLER.GEN.SA.001 1 LINE 72 55 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:22:05 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. THESE WERE ORIGINALLY WRITTEN BY CLARK LUBBERS AT UM, WHERE THEY ARE CLASSIFIED AS "UNSUPPORTED" SOFTWARE. SHORT WRITEUPS ARE GIVEN IN 685/2. THIS SUBCOMPONENT IS GENERAL SYSTEM-INDEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/002 MICRO CROSS-ASSEMBLER KWIC SA G S0806 DIST4 FSNAME=ASM.KWIC D4.2T1 655 MICRO_CROSS-ASSEMBLER.KWI.SA.002 1 LINE 80 14 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:22:36 0 SYSTEM-INDEPENDENT KEYWORD SCANNER ROUTINE. ASSEMBLE USING 686/15. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00686/003 MICRO CROSS-ASSEMBLER SYMTAB SA G S0806 DIST4 FSNAME=ASM.SYM D4.2T1 656 MICRO_CROSS-ASSEMBLER.SYM.SA.003 1 LINE 78 12 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:23:16 0 SYSTEM-INDEPENDENT SYMBOL TABLE ROUTINES. ASSEMBLE USING 686/15. 00686/004 MICRO CROSS-ASSEMBLER SYSCODE SA G S0806 DIST4 FSNAME=ASM.SYSCODE D4.2T1 657 MICRO_CROSS-ASSEMBLER.SYS.SA.004 1 LINE 72 13 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:23:20 0 MTS-DEPENDENT, ASSEMBLER-INDEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/005 MICRO CROSS-ASSEMBLER M6800I SA G S0806 DIST4 FSNAME=ASM.M6800I D4.2T1 658 MICRO_CROSS-ASSEMBLER.M68.SA.005 1 LINE 72 42 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:23:04 0 M6800 SYSTEM-INDEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/006 MICRO CROSS-ASSEMBLER M6800MTS SA G S0806 DIST4 FSNAME=ASM.M6800MTS D4.2T1 659 MICRO_CROSS-ASSEMBLER.M68.SA.006 1 LINE 72 5 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:23:13 0 M6800 MTS-DEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/007 MICRO CROSS-ASSEMBLER M650XI SA G S0806 DIST4 FSNAME=ASM.M650XI D4.2T1 660 MICRO_CROSS-ASSEMBLER.M65.SA.007 1 LINE 72 43 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:22:51 0 MCS650X SYSTEM-INDEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/008 MICRO CROSS-ASSEMBLER M650XMTS SA G S0806 DIST4 FSNAME=ASM.M650XMTS D4.2T1 661 MICRO_CROSS-ASSEMBLER.M65.SA.008 1 LINE 72 5 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:23:00 0 MCS650X MTS-DEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/009 MICRO CROSS-ASSEMBLER I8080I SA G S0806 DIST4 FSNAME=ASM.I8080I D4.2T1 662 MICRO_CROSS-ASSEMBLER.I80.SA.009 1 LINE 72 43 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:22:20 0 I8080 SYSTEM-INDEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/010 MICRO CROSS-ASSEMBLER I8080MTS SA G S0806 DIST4 FSNAME=ASM.I8080MTS D4.2T1 663 MICRO_CROSS-ASSEMBLER.I80.SA.010 1 LINE 72 5 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:22:32 0 I8080 MTS-DEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/011 MICRO CROSS-ASSEMBLER Z80I SA G S0806 DIST4 FSNAME=ASM.Z80I D4.2T1 664 MICRO_CROSS-ASSEMBLER.Z80.SA.011 1 LINE 72 50 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:23:25 0 Z80 SYSTEM-INDEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00686/012 MICRO CROSS-ASSEMBLER Z80MTS SA G S0806 DIST4 FSNAME=ASM.Z80MTS D4.2T1 665 MICRO_CROSS-ASSEMBLER.Z80.SA.012 1 LINE 72 5 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:23:36 0 Z80 MTS-DEPENDENT CODE. COPIES 686/14. ASSEMBLE USING 686/15. 00686/013 MICRO CROSS-ASSEMBLER MESSAGES M ETC:M6800ASRERR D4.2T1 666 MICRO_CROSS-ASSEMBLER.MES.M.013 1 LINE 65 1 PAGE UM UNSP LUBBERS APR. 02, 1979 00:50:22 ETC.:M6800ASRERR 0 ERROR MESSAGES. 00686/014 MICRO CROSS-ASSEMBLER COPY SECTION SA G S0806 DIST4 FSNAME=ASM.DSECT D4.2T1 667 MICRO_CROSS-ASSEMBLER.COP.SA.014 1 LINE 78 9 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:22:01 00686/015 MICRO CROSS-ASSEMBLER MACRO LIB SM G S0806 DIST4 FSNAME=ASM.MACRO D4.2T1 668 MICRO_CROSS-ASSEMBLER.MAC.SM.015 1 LINE 68 3 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:22:41 00686/016 MICRO CROSS-ASSEMBLER M6800ASR OE G S0806 DIST4 FSNAME=UNSP:M6800ASR D4.2T1 669 MICRO_CROSS-ASSEMBLER.M68.OE.016 1 LINE 31360 10 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:28:14 UNSP:M6800ASR 0 OBJECT FOR MOTOROLA M6800 MICROPROCESSOR CROSS-ASSEMBLER. 00686/017 MICRO CROSS-ASSEMBLER MCS650ASR OE G UNSP:MCS650XASR D4.2T1 670 MICRO_CROSS-ASSEMBLER.MCS.OE.017 1 LINE 31144 10 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:27:58 UNSP:MCS650XASR 0 OBJECT FOR MCS TECHNOLOGY 6500 SERIES MICROCOMPUTERS CROSS-ASSEMBLER. 00686/018 MICRO CROSS-ASSEMBLER I8080ASR OE G UNSP:I8080ASR D4.2T1 671 MICRO_CROSS-ASSEMBLER.I80.OE.018 1 LINE 31232 10 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:27:30 UNSP:I8080ASR 0 OBJECT FOR INTEL 8080 MICROCOMPUTER CROSS-ASSEMBLER. 0 Referenced by comments of: 756/1 00686/019 MICRO CROSS-ASSEMBLER Z80ASR OE G UNSP:Z80ASR D4.2T1 672 MICRO_CROSS-ASSEMBLER.Z80.OE.019 1 LINE 32767 10 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:28:26 UNSP:Z80ASR 0 OBJECT FOR ZILOG Z80 MICROPROCESSOR CROSS-ASSEMBLER. 00686/020 MICRO CROSS-ASSEMBLER MANUAL WF S0806 DIST4 FSNAME=ASM.MAN D4.2T1 673 MICRO_CROSS-ASSEMBLER.MAN.WF.020 1 LINE 80 35 PAGE UM UNSP LUBBERS JAN. 11, 1979 17:22:44 0 MANUAL FOR USAGE OF MICRO PROCESSOR CROSS-ASSEMBLERS. 00687/001 PAR SUBR SA O PAR S0683 OGDEN FSNAME=PAR.S D4.1T1 510 PAR_SUBR..SA.001 1 LINE 80 3 PAGE UM OGDEN MAR. 23, 1978 15:53:44 0 SUBROUTINE TO GIVE FORTRAN USERS ACCESS TO THE $RUN PAR STRING. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 540/15, 3024/31 00687/002 PAR SUBR OC O # *LIBRARY (SEE COMP 524) UM OGDEN 00688/001 TRAP SUBR SA O TRAP S0684 UNSP FSNAME=TRAP.S D4T3 136 TRAP_SUBR..SA.001 1 LINE 80 6 PAGE UM UNSP OCT. 28, 1975 23:42:21 0 EXPANDED VERSION OF UBC'S TRAP ROUTINE WHICH ALLOWS FORTRAN USERS TO FIELD PROGRAM INTERRUPTS. AT UM, THIS SUBROUTINE IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. SEE THE WRITEUP IN 685/2. 0 Referenced by comments of: 689/1 00688/002 TRAP SUBR OC O # UNSP:LIBRARY (SEE COMP 685) UM UNSP 00689/001 ATRAP SUBR SA O ATRA S0684 UNSP FSNAME=ATRAP.S D4T3 137 ATRAP_SUBR..SA.001 1 LINE 80 5 PAGE UM UNSP MAR. 23, 1976 12:19:34 0 SIMILAR TO THE TRAP SUBROUTINE (688), BUT ALLOWS FORTRAN USERS TO FIELD ATTENTION INTERRUPTS. AT UM, THIS SUBROUTINE IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. SEE THE WRITEUP IN 685/2. 0 Referenced by comments of: 540/15 00689/002 ATRAP SUBR OC O # UNSP:LIBRARY (SEE COMP 685) UM UNSP 00690/001 DISASM SA S DASM S0684 UNSP FSNAME=DISASM.S D4T3 138 DISASM..SA.001 1 LINE 80 147 PAGE UM UNSP APR. 15, 1976 01:14:16 0 A DISASSEMBLER FROM THE IBM/SHARE CONTRIBUTED PROGRAM LIBRARY (360D-05.3.001) VIA UQV. MODIFIED BY UM. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. NO USER WRITEUP IS AVAILABLE. ASSEMBLE USING *SYSMAC. 00690/002 DISASM OE S UNSP:DISASM D4T3 139 DISASM..OE.002 1 LINE 3364 16 PAGE UM UNSP JULY 28, 1977 23:31:11 UNSP:DISASM 00690/003 DISASM NOTES P S0684 UNSP FSNAME=DISASM.NOTES D4T3 140 DISASM.NOTES.P.003 1 LINE 61 1 PAGE UM UNSP JULY 09, 1976 12:03:21 0 COMMENTS, NOTES, AND BUGS. 00691/001 PFILES SF O PFIL S0684 UNSP FSNAME=PFILES.S D4T3 141 PFILES..SF.001 1 LINE 80 5 PAGE UM UNSP MAY 18, 1977 23:00:16 0 PROGRAM TO PRODUCE A COLUMNAR LISTING OF A USERS FILES FLAGGING THOSE WHICH HAVE NOT BEEN REFERENCED IN THE LAST 30 DAYS. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00691/002 PFILES OE O UNSP:PFILES D4T3 142 PFILES..OE.002 1 LINE 1428 4 PAGE UM UNSP JULY 28, 1977 23:31:57 UNSP:PFILES 00692/001 SPELER SUBR SA O SPEL S0684 UNSP FSNAME=SPELER.S D4T3 143 SPELER_SUBR..SA.001 1 LINE 80 5 PAGE UBC UNSP OCT. 28, 1975 23:42:33 0 SUBROUTINE TO TEST TWO STRINGS AND DETERMINE IF THE SECOND IS A LIKELY MISSPELLING OF THE FIRST; SEE CACM, VOL 13, NO 2, FEB 1970. AT UM, THIS SUBROUTINE IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 00692/002 SPELER SUBR OC O # UNSP:LIBRARY (SEE COMP 685) UBC UNSP 00693/001A TAPEDRIVES SA G TDRI S0684 UNSP FSNAME=TAPEDRIVES.S D4.2T1 674 TAPEDRIVES..SA.001 1 LINE 80 6 PAGE UBC UNSP JAN. 15, 1979 15:28:01 0 A MUCH REWORKED VERSION OF THE UBC *TAPEDRIVES PROGRAM. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING *SYSMAC, WITH PAR=BATCH. *************************************************************************** D5.0 CHANGES: OUTPUT FORMAT CHANGED SLIGHTLY. *************************************************************************** 00693/002A TAPEDRIVES OE G UNSP:TAPEDRIVES D4.2T1 675 TAPEDRIVES..OE.002 1 LINE 711 1 PAGE UBC UNSP APR. 02, 1979 00:51:00 UNSP:TAPEDRIVES 00693/003 TAPEDRIVES *TPS C *TPS D4.2T1 676 TAPEDRIVES.*TPS.C.003 1 LINE 33 1 PAGE UBC UNSP APR. 02, 1979 00:51:01 *TPS 0 OPERATOR FILE TO RUN UNSP:TAPEDRIVES. INVOKED BY ENTERING "MTS *TPS" ON OPERATORS CONSOLE. 00694/001 DOC SF O DOC S0684 UNSP FSNAME=DOC.S D4T3 146 DOC..SF.001 1 LINE 80 5 PAGE UM UNSP OCT. 03, 1975 16:46:13 0 A PROGRAM TO HELP PRODUCE PROGRAM AND SUBROUTINE DOCUMENTATION. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 00694/002 DOC OE O UNSP:DOC D4T3 147 DOC..OE.002 1 SEQ 2002 2 PAGE UM UNSP JULY 28, 1977 23:32:39 UNSP:DOC 00694/003 DOC DOCCOM D UNSP:DOCCOM D4T3 148 DOC.DOCCOM.D.003 1 LINE 35 1 PAGE UM UNSP JULY 28, 1977 23:32:41 UNSP:DOCCOM 0 A DATA FILE REFERENCED BY 694/1. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00694/004 DOC DOCCOM2 D UNSP:DOCCOM2 D4T3 149 DOC.DOCCOM2.D.004 1 LINE 31 1 PAGE UM UNSP JULY 28, 1977 23:32:43 UNSP:DOCCOM2 0 A DATA FILE WHICH CAN BE USED WITH 694/1. 00694/005 DOC DOCCOM3 D UNSP:DOCCOM3 D4T3 150 DOC.DOCCOM3.D.005 1 LINE 31 1 PAGE UM UNSP JULY 28, 1977 23:32:50 UNSP:DOCCOM3 0 A DATA FILE WHICH CAN BE USED WITH 694/1. 00695/001 SNOOP SUBR SF G SNOO S0684 UNSP FSNAME=SNOOP.S D4T3 151 SNOOP.SUBR.SF.001 1 LINE 80 3 PAGE UM UNSP JAN. 13, 1976 11:28:21 0 THIS SUBROUTINE IS CALLED (EITHER DIRECTLY OR VIA CSNOOP) BY MOST OF THE UM "UNSUPPORTED" SOFTWARE COMPONENTS TO RECORD PROGRAM USAGE STATISTICS. A WRITEUP IS INCLUDED IN 685/2. 00695/002 SNOOP SUBR OC G # UNSP:LIBRARY (SEE COMP 685) UM UNSP 00695/003 SNOOP CSNOOP SA O CSNO S0684 UNSP FSNAME=CSNOOP.S D4T3 152 SNOOP.CSNOOP.SA.003 1 LINE 80 1 PAGE UM UNSP JUNE 21, 1976 13:03:43 0 A "MAIN" PROGRAM WHICH CALLS THE SNOOP SUBROUTINE AND THEN CALLS THE REAL MAIN PROGRAM. 00695/004 SNOOP CSNOOP OC O UNSP:CSNOOP.O D4T3 153 SNOOP.CSNOOP.OC.004 1 LINE 80 1 PAGE UM UNSP JULY 28, 1977 23:33:59 UNSP:CSNOOP.O 00696/001 CDCEBCD SA O CDCE S0684 UNSP FSNAME=CDCEBCD.S D4T3 154 CDCEBCD..SA.001 1 LINE 80 5 PAGE UM UNSP JULY 14, 1977 21:18:49 0 PROGRAM TO DEBLOCK CDC 6000 SERIES 7-TRACK SCOPE CODED TAPES AND CONVERT THE DATA FROM CDC "CONSOLE DISPLAY CODE" INTO EBCDIC. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED "SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 00696/002 CDCEBCD OC O UNSP:CDCEBCD D4T3 155 CDCEBCD..OC.002 1 LINE 80 3 PAGE UM UNSP JULY 28, 1977 23:36:29 UNSP:CDCEBCD 00697/001 SIGFILE SF G SIGF S0684 UNSP FSNAME=SIGFILE.S D4T3 156 SIGFILE..SF.001 1 LINE 80 4 PAGE UM UNSP JULY 14, 1977 21:18:46 0 A PROGRAM, SOMEWHAT LIKE UBC'S PROFILE PROGRAM, WHICH IS DESIGNED TO BE RUN FROM SIGFILES. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00697/002 SIGFILE OE G UNSP:SIGFILE D4T3 157 SIGFILE..OE.002 1 SEQ 4632 2 PAGE UM UNSP JULY 28, 1977 23:36:33 UNSP:SIGFILE 00698/001 LIST SF O LIST S0684 UNSP FSNAME=LIST.S D4T3 158 LIST..SF.001 1 LINE 80 3 PAGE UM UNSP JULY 02, 1977 12:29:01 0 PROGRAM TO ALLOW LONG LINES TO BE PRINTED ON *PRINT* -- NOT TO BE CONFUSED WITH THE UBC LIST PROGRAM. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 00698/002 LIST OE O UNSP:LIST D4T3 159 LIST..OE.002 1 SEQ 788 1 PAGE UM UNSP JULY 28, 1977 23:36:42 UNSP:LIST 00699/001 FTNREP SA O FTNR S0684 UNSP FSNAME=FTNREP.S D4T3 160 FTNREP..SA.001 1 LINE 80 4 PAGE UM UNSP DEC. 01, 1976 22:00:25 0 A PROGRAM WHICH COMPILES FORTRAN SOURCE BY LINKING TO *FTN (551) AND THEN EDITS THE OBJECT INTO EXISTING OBJECT FILES BY LINKING TO OBJREP (700). AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 700/1 00699/002 FTNREP OE O UNSP:FTNREP D4T3 161 FTNREP..OE.002 1 LINE 1382 3 PAGE UM UNSP JULY 28, 1977 23:37:30 UNSP:FTNREP 00700/001 OBJREP SA O OBJR S0684 UNSP FSNAME=OBJREP.S D4T3 162 OBJREP..SA.001 1 LINE 80 16 PAGE UM UNSP OCT. 03, 1975 16:46:40 0 AN OBJECT FILE EDITOR/UPDATER WHICH IS LINKED TO BY FTNREP (699) OR CAN BE RUN DIRECTLY. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 0 Referenced by comments of: 699/1 00700/002 OBJREP OE O UNSP:OBJREP D4T3 163 OBJREP..OE.002 1 SEQ 4358 4 PAGE UM UNSP JULY 28, 1977 23:37:55 UNSP:OBJREP 00701/001 ECMD SF O ECMD S0684 UNSP FSNAME=ECMD.S D4T3 164 ECMD..SF.001 1 LINE 80 17 PAGE UM UNSP JULY 02, 1977 12:23:42 0 A SIMPLE COMMAND EXPANDER WHICH ALLOWS ALL MTS COMMANDS TO MAKE USE OF THE NOTATION ACCEPTED BY $FILESTATUS. CALLS THE FSTARTNS SUBROUTINE (701/2). AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 00701/002 ECMD FSTARTNS SUBR SA O FSTA S0684 UNSP FSNAME=FSTARTN.S D4T3 165 ECMD.FSTARTNS_SUBR.SA.002 1 LINE 80 18 PAGE UM UNSP JULY 10, 1976 17:44:16 0 ROUTINES TAKEN FROM $FILESTATUS TO SCAN FILE CATALOG FOR PARTIAL FILENAMES. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 701/1 00701/003 ECMD OE O UNSP:ECMD D4T3 166 ECMD..OE.003 1 LINE 12684 7 PAGE UM UNSP JULY 28, 1977 23:40:39 UNSP:ECMD 00702/001 MCCTOCC SA G MCCT S0684 UNSP FSNAME=MCCTOCC.S D4T3 167 MCCTOCC..SA.001 1 LINE 80 3 PAGE UM UNSP SEP. 30, 1975 11:00:22 0 PROGRAM TO CONVERT MACHINE CARRIAGE CONTROL TO LOGICAL CARRIAGE CONTROL. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. A WRITEUP IS INCLUDED IN 685/2. 00702/002 MCCTOCC OE G UNSP:MCCTOCC D4T3 168 MCCTOCC..OE.002 1 SEQ 1382 2 PAGE UM UNSP JULY 28, 1977 23:40:58 UNSP:MCCTOCC 00703/001 DIGLIB PERSYS SF G PERS S0684 UNSP FSNAME=PERSYS.S D4T3 169 DIGLIB.PERSYS.SF.001 1 LINE 80 16 PAGE UM UNSP AUG. 30, 1976 15:52:15 0 DIGLIB IS A LIBRARY OF DEVICE INDEPENDENT GRAPHICS (DIG) SUBROUTINES. AT UM, THESE ROUTINES ARE CLASSIFIED AS "UNSUPPORTED" SOFTWARE. BRIEF WRITEUPS ARE INCLUDED IN 685/2. THE PERSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING A TWO-DIMENSIONAL VIEW OF A THREE-DIMENSIONAL SURFACE. 0 Referenced by comments of: 104/108 00703/002 DIGLIB PERSYS WRITEUP WF G S0684 UNSP FSNAME=PERSYS.F D4T3 170 DIGLIB.PERSYS_WRITEUP.WF.002 1 LINE 195 15 PAGE UM UNSP AUG. 30, 1976 15:52:33 0 CONTAINS A "$CONTINUE WITH PERSYS.S(---)" RECORD. 0 Referenced by comments of: 682/28 00703/003 DIGLIB CONSYS SF G CONS S0684 UNSP FSNAME=CONSYS.S D4T3 171 DIGLIB.CONSYS.SF.003 1 LINE 80 18 PAGE UM UNSP AUG. 30, 1976 15:51:52 0 THE CONSYS ROUTINES PRODUCE COORDINATE PAIRS FOR THE STRAIGHT-LINE VECTORS FORMING A CONTOUR MAP. 00703/004 DIGLIB CONSYS WRITEUP WF G S0684 UNSP FSNAME=CONSYS.F D4T3 172 DIGLIB.CONSYS_WRITEUP.WF.004 1 LINE 221 17 PAGE UM UNSP AUG. 30, 1976 23:21:01 0 CONTAINS A "$CONTINUE WITH CONSYS.S(---)" RECORD. 00703/005 DIGLIB OBJECT LIB OL G UNSP:DIGLIB D4T3 173 DIGLIB.OBJECT_LIB.OL.005 1 LINE 5024 7 PAGE UM UNSP JULY 28, 1977 23:41:57 UNSP:DIGLIB 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00704/001 11PAL SIMULATOR SA SIMU S0684 UNSP FSNAME=11SIMULATOR.S D4T3 174 11PAL.SIMULATOR.SA.001 1 LINE 80 35 PAGE UNE UNSP MAY 17, 1977 21:55:21 0 A PDP-11 ASSEMBLER AND SIMULATOR WHICH ORIGINALLY CAME FROM THE POLYTECHNIC INSTITUTE OF BROOKLYN (NEW YORK) -- ADAPTED FOR MTS BY UNE. AT UM, THIS PROGRAM IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. 00704/002 11PAL ASSEMBLER SA ASSE S0684 UNSP FSNAME=11ASSEMBLER.S D4T3 175 11PAL.ASSEMBLER.SA.002 1 LINE 80 63 PAGE UNE UNSP MAY 17, 1977 21:55:33 00704/003 11PAL MONITOR SA MONI S0684 UNSP FSNAME=11MONITOR.S D4T3 176 11PAL.MONITOR.SA.003 1 LINE 80 14 PAGE UNE UNSP OCT. 22, 1976 12:34:15 00704/004 11PAL OBJECT OE UNSP:11PAL D4T3 177 11PAL.OBJECT.OE.004 1 LINE 14130 9 PAGE UNE UNSP JULY 28, 1977 23:42:43 UNSP:11PAL 00704/005 11PAL WRITEUP WF S0684 UNSP FSNAME=11PAL.F D4T3 178 11PAL.WRITEUP.WF.005 1 LINE 95 15 PAGE UNE UNSP OCT. 22, 1976 12:33:13 0 IN ADDITION TO THIS WRITEUP, THERE IS ALSO A BRIEF DESCRIPTION INCLUDED IN 685/2. 00705/001 REPORT GENERATOR DESCRIP SA O S0684 UNSP FSNAME=RG.DESCRIP.S D4.2T1 677 REPORT_GENERATOR.DESCRIP.SA.001 1 LINE 81 16 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:41:14 0 AT UM, RG IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. ALL RG SOURCE PROGRAMS COPY THE RG COPY SECTION (705/13). ALL BUT 705/7 ASSEMBLE IT AS A DSECT. PHASE 1 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS: 1 - DATA INITIALIZATION , PARAMETER SCANNING 2 - PROCESS ITEM , ENTRY , AND FIELD COMMANDS 00705/002 REPORT GENERATOR COMPILE SA O S0684 UNSP FSNAME=RG.COMPILE.S D4.2T1 678 REPORT_GENERATOR.COMPILE.SA.002 1 LINE 79 15 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:42:21 0 PHASE 2 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS: 1 - PROCESS EXTRACT , ORDER , TABLE , CALL , TITLE , PRINT COMMANDS 2 - GENERATE APPROPRIATE BLOCKS OF DATA DEFINING THE REQUIRED OPERATION. 00705/003 REPORT GENERATOR ACTION SA O S0684 UNSP FSNAME=RG.ACTION.S D4.2T1 679 REPORT_GENERATOR.ACTION.SA.003 1 LINE 78 17 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:41:45 0 PHASE 3 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS: READS THE DATA FILE AND TRANSFERS THE EXTRACTED DATA RECORDS TO THE TEMPORARY SEQUENTIAL FILE -TEMPNAME. 00705/004 REPORT GENERATOR PRINT SA O S0684 UNSP FSNAME=RG.PRINT.S D4.2T1 680 REPORT_GENERATOR.PRINT.SA.004 1 LINE 74 13 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:45:41 0 PHASE 4 OF RG WHICH PERFORMS THE FOLLOWING FUNCTIONS: PRINT PRINTS THE REQUIRED REPORTS. PRINT , TITLE , CALL , TABLE ALL ARE HANDLED HERE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00705/005 REPORT GENERATOR SUBS SA O S0684 UNSP FSNAME=RG.SUBS.S D4.2T1 681 REPORT_GENERATOR.SUBS.SA.005 1 LINE 72 4 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:47:44 0 EXTERNAL SUBROUTINES TO HANDLE OVERFLOW AND CAPITALIZATION FOR PRINT. MADE EXTERNAL BECAUSE OF BASE REGISTER PROBLEMS AND USE OF REGISTERS. 00705/006 REPORT GENERATOR SUBROUTINES SA O S0684 UNSP FSNAME=RG.SUBROUTINES.S D4.2T1 682 REPORT_GENERATOR.SUBROUTI.SA.006 1 LINE 98 20 PAGE UBC STEVENS UNSP OCT. 01, 1978 16:47:15 0 SUBROUTINES USED BY RG - ALL CALLED BY " BALR LINK,LINK " SCAN - GET ANOTHER FIELD SSCAN - " " " ( SPECIAL FIELD) GNUMBER - GET A NUMERIC FIELD GFIELD - GET A FIELD FNAME - INSURE FIELD IS A LEGAL FIELD NUM - CONVERT A FIELD TO NUMERIC 00705/007 REPORT GENERATOR DATA SA O S0684 UNSP FSNAME=RG.DATA.S D4.2T1 683 REPORT_GENERATOR.DATA.SA.007 1 LINE 84 1 PAGE UBC STEVENS UNSP OCT. 01, 1978 16:43:25 0 GENERATES THE PSECT AS A CSECT TO DEFINE ALL REQUIRED CONSTANTS. COPIES COPYSEC (705/13), AS DO ALL OTHER RG SOURCE ROUTINES. 0 Referenced by comments of: 705/13 00705/008 REPORT GENERATOR MACLIB SM O S0684 UNSP FSNAME=RG.MACLIB D4.2T1 684 REPORT_GENERATOR.MACLIB.SM.008 1 LINE 72 7 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:44:46 0 MACRO LIBRARY USED BY ALL RG SOURCE ROUTINES. 00705/009 REPORT GENERATOR INTERNAL DOC WF S0684 UNSP FSNAME=RG.INTERNAL.F D4.2T1 685 REPORT_GENERATOR.INTERNAL.WF.009 1 LINE 81 9 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:48:38 0 USES UBC FORMAT AND JON:MACLIB. PRINT FILE (705/10) IS INCLUDED FOR INSTALLATIONS WHICH DON'T HAVE THESE. 00705/010 REPORT GENERATOR INTERNAL DOC PF S0684 UNSP FSNAME=RG.INTERNAL D4.2T1 686 REPORT_GENERATOR.INTERNAL.PF.010 1 LINE 69 10 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:50:22 0 Referenced by comments of: 705/9 00705/011 REPORT GENERATOR OBJECT OC O UNSP:RG D4.2T1 687 REPORT_GENERATOR.OBJECT.OC.011 1 LINE 7102 11 PAGE UBC COCKLE UNSP APR. 02, 1979 00:51:26 UNSP:RG 00705/012 REPORT GENERATOR OUTPUT SA O S0684 UNSP FSNAME=RG.OUTPUT.S D4.2T1 688 REPORT_GENERATOR.OUTPUT.SA.012 1 LINE 78 5 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:45:15 0 ROUTINE TO OUTPUT ERROR COMMENTS (MARK) AND OUTPUT FORMATTING TO SPRINT AND ECHOING OF INPUT LINES IF REQUESTED. MUST BE ASSEMBLED WITH *ASMG (066). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00705/013 REPORT GENERATOR COPYSEC SA O S0684 UNSP FSNAME=RG.COPYSEC.S D4.2T1 689 REPORT_GENERATOR.COPYSEC.SA.013 1 LINE 72 10 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:43:07 0 COPY SECTION COPIED BY ALL RG SOURCE PROGRAMS. ALL BUT DATA (705/7) ASSEMBLE IT AS A DSECT. 0 Referenced by comments of: 705/1, 705/7 00705/014 REPORT GENERATOR TEST PROGRAMS C S0684 UNSP FSNAME=RG.TEST_PROGRAMS D4.2T1 690 REPORT_GENERATOR.TEST_PRO.C.014 1 LINE 255 28 PAGE UBC COCKLE UNSP OCT. 01, 1978 17:25:22 0 A SOURCE FILE TO TEST RG WITH A SERIES OF TEST PROGRAMS. 00705/015 REPORT GENERATOR USER WRITEUP WF S0684 UNSP FSNAME=RG.WRITEUP.F D4.2T1 691 REPORT_GENERATOR.USER_WRI.WF.015 1 LINE 101 43 PAGE UBC COCKLE UNSP OCT. 01, 1978 16:49:14 0 USES UBC FORMAT AND JON:MACLIB. FOR INSTALLATIONS WHICH DO NOT HAVE THESE, THE PRINT FILE (705/16) IS INCLUDED. 00705/016 REPORT GENERATOR USER WRITEUP PF UNSP:RG.W D4.2T1 692 REPORT_GENERATOR.USER_WRI.PF.016 1 LINE 77 53 PAGE UBC COCKLE UNSP APR. 02, 1979 00:51:37 UNSP:RG.W 0 Referenced by comments of: 705/15 00705/017 REPORT GENERATOR UM EXAMPLE C UNSP:RG.EXAMPLE D4.2T1 693 REPORT_GENERATOR.UM_EXAMP.C.017 1 LINE 128 3 PAGE UBC COCKLE UNSP APR. 02, 1979 00:51:42 UNSP:RG.EXAMPLE 0 A FILE THAT CAN BE $SOURCED TO TO PRODUCE A SAMPLE RG RUN. 00706/001 SIMSCRIPT SIM25 INSTALL WF S0684 UNSP FSNAME=S25INSTALL.F D4.2T1 694 SIMSCRIPT.SIM25_INSTALL.WF.001 1 LINE 71 3 PAGE UM UNSP JAN. 04, 1979 05:39:45 0 INSTALLATION INSTRUCTIONS FOR THE CACI INC. SIMSCRIPT II.5 (RELEASE 8G) COMPILER AS MODIFIED FOR USE IN MTS. DUE TO RESTRICTIONS, THIS COMPILER CANNOT BE DISTRIBUTED, BUT SHOULD BE AVAILABLE "FREE" TO UNIVERSITIES ONCE AN AGREEMENT WITH CACI INC. IS SIGNED. THIS COMILER IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE AT UM. 00706/002 SIMSCRIPT SIM25 SPCOMP SA G S0684 UNSP FSNAME=S25SPCOMP.S D4.2T1 695 SIMSCRIPT.SIM25_SPCOMP.SA.002 1 LINE 80 12 PAGE UM UNSP JAN. 04, 1979 05:19:17 0 MTS REPLACEMENTS FOR THE STANDARD CACI COMPILER ROUTINES ROPN AND RSET$R. ASSEMBLE WITH PAR=BATCH. 00706/003 SIMSCRIPT SIM25 SPCOMP OC G S0684 UNSP FSNAME=S25SPCOMP D4.2T1 696 SIMSCRIPT.SIM25_SPCOMP.OC.003 1 LINE 80 5 PAGE UM UNSP JAN. 04, 1979 05:19:20 00706/004 SIMSCRIPT SIM25 SPLIB SA G S0684 UNSP FSNAME=S25SPLIB.S D4.2T1 697 SIMSCRIPT.SIM25_SPLIB.SA.004 1 LINE 80 40 PAGE UM UNSP JAN. 04, 1979 05:19:22 0 MTS REPLACEMENTS FOR THE STANDARD CACI RUN-TIME LIBRARY AND COMPILER ROUTINES RCRE, RDATE, RPUT, RRDR, RRWD, RSTP, LKAH, LERR, AND THE RUN-TIME LIBRARY 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 ROUTINES ROPN AND RSET$R. ASSEMBLE WITH PAR=BATCH. 00706/005 SIMSCRIPT SIM25 SPLIB OC G S0684 UNSP FSNAME=S25SPLIB D4.2T1 698 SIMSCRIPT.SIM25_SPLIB.OC.005 1 LINE 80 9 PAGE UM UNSP JAN. 04, 1979 05:20:34 00706/006 SIMSCRIPT SIM25 INTERFAC SA G S25I S0684 UNSP FSNAME=S25INTER.S D4.2T1 699 SIMSCRIPT.SIM25_INTERFAC.SA.006 1 LINE 80 10 PAGE UM UNSP JAN. 04, 1979 05:20:57 0 THE MTS TO OS INTERFACE ROUTINES THAT ARE ADDED TO THE STANDARD CACI RUN-TIME LIBRARY AND COMPILER ROUTINES. ASSEMBLE WITH PAR=BATCH. COPIES *GDINFODSECT (594). 00706/007 SIMSCRIPT SIM25 INTERFAC OC G S0684 UNSP FSNAME=S25INTER D4.2T1 700 SIMSCRIPT.SIM25_INTERFAC.OC.007 1 LINE 80 6 PAGE UM UNSP JAN. 04, 1979 05:21:07 00706/008 SIMSCRIPT SIM25 MAC SM G S0684 UNSP FSNAME=S25MAC D4.2T1 701 SIMSCRIPT.SIM25_MAC.SM.008 1 LINE 80 12 PAGE UM UNSP JAN. 04, 1979 05:21:19 00706/009 SIMSCRIPT SIM25 CACI COM OC G # S0684 UNSP FSNAME=S25CACICOMP UM UNSP 0 OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G COMPILER AS DISTRIBUTED BY CACI. 00706/010 SIMSCRIPT SIM25 COMP OE G # UNSP:SIM25 UM UNSP 0 LINKEDITED OBJECT FOR THE MTS VERSION OF THE RELEASE 8G COMPILER. 00706/011 SIMSCRIPT SIM25 MAP P G # S0684 UNSP FSNAME=S25MAP UM UNSP 0 MAP OUTPUT FROM *LINKEDIT FOR 706/10. 00706/012 SIMSCRIPT SIM25 CACI LIB OC G # S0684 UNSP FSNAME=S25CACILIB UM UNSP 0 OS OBJECT AND LINKAGE EDITOR CONTROL CARDS FOR THE RELEASE 8G RUN-TIME LIBRARY AS DISTRIBUTED BY CACI. 00706/013 SIMSCRIPT SIM25 LIB OL G # UNSP:SIM25LIB UM UNSP 0 MTS VERSION OF THE RELEASE 8G RUN-TIME LIBRARY. 00706/014 SIMSCRIPT SIM25 ERRMSGS M UNSP:SIM25ERR D4.2T1 702 SIMSCRIPT.SIM25_ERRMSGS.M.014 1 LINE 79 4 PAGE UM UNSP APR. 02, 1979 00:52:01 UNSP:SIM25ERR 0 ERROR MESSAGE FILE FOR RELEASE 8G. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00706/015 SIMSCRIPT SIM25 WRITEUP WF S0684 UNSP FSNAME=SIM25.F D4.2T1 703 SIMSCRIPT.SIM25_WRITEUP.WF.015 1 LINE 69 3 PAGE UM UNSP JAN. 04, 1979 06:08:16 00706/016 SIMSCRIPT SIM25 TEST 1 S G S0684 UNSP FSNAME=S2TEST1 D4.2T1 704 SIMSCRIPT.SIM25_TEST_1.S.016 1 LINE 78 1 PAGE UM UNSP JAN. 09, 1979 12:28:22 0 FIRST OF THREE SIMSCRIPT SOURCE TEST PROGRAMS. 00706/017 SIMSCRIPT SIM25 TEST 2 S G S0684 UNSP FSNAME=S2TEST2 D4.2T1 705 SIMSCRIPT.SIM25_TEST_2.S.017 1 LINE 68 1 PAGE UM UNSP JAN. 09, 1979 12:28:28 00706/018 SIMSCRIPT SIM25 TEST 3 S G S0684 UNSP FSNAME=S2TEST3 D4.2T1 706 SIMSCRIPT.SIM25_TEST_3.S.018 1 LINE 68 1 PAGE UM UNSP JAN. 09, 1979 12:28:33 0 COMPILE WITH PAR=NEWIF. 00707/001 RSCAN SA O W030:RSCAN D4.2T1 707 RSCAN..SA.001 1 LINE 68 12 PAGE UM LIFT APR. 02, 1979 00:52:08 0 PROGRAM TO PRINT MTS COMMANDS FOR JOBS BASED ON USER ID, JOB NUMBER, OR MTS COMMAND NAME FOR A SET OF TIME/DATE RANGES. COPIES COPY:CMDAREADSECT (531/18) AND COPY:STATDSECT (620/1). RSCAN IS SLOWLY BEING REPLACE BY SCAN (753). 0 Referenced by comments of: 71/1, 707/3 00707/002 RSCAN LISTCMD SUBR SA G S0811 REBATE 'REBATES' FSNAME=LISTCMD D4T3 203 RSCAN.LISTCMD_SUBR.SA.002 1 LINE 80 4 PAGE UM LIFT JULY 28, 1977 23:47:35 0 SUBROUTINE TO LIST CMDSTAT TYPE 1 (MTS COMMAND) RECORDS. COPIES COPY:CMDAREADSECT (531/18). 0 Referenced by comments of: 707/3 00707/003 RSCAN OC O W030:RSCANX D4.2T1 708 RSCAN..OC.003 1 LINE 80 10 PAGE UM LIFT APR. 02, 1979 00:52:11 0 OBJECT FROM RSCAN (707/1), LISTCMD (707/2), LISTSTAT (071), AND JVCT (674). RUN WITH PROT=OFF. 00707/004 RSCAN WRITEUP WF S0811 REBATE 'REBATES' FSNAME=RSCAN.WF D4T3 205 RSCAN.WRITEUP.WF.004 1 LINE 94 3 PAGE UM LIFT JAN. 13, 1977 16:33:14 0 PRELIMINARY WRITEUP DESCRIBING THE USE OF RSCAN. 00708/001 CHARGE SUBR SA G CHRG S0027 DISTRB FSNAME=CHARGE D4T3 206 CHARGE_SUBR..SA.001 1 LINE 80 7 PAGE UM ENGLE JAN. 25, 1977 15:31:23 0 SUBROUTINE TO COMPUTE THE CHARGE FOR SPECIFIED QUANTITIES OF RESOURCES USING THE CURRENT RATES. CHARGERN IS A PRIVATE ENTRY POINT WHICH ALLOWS A SPECIFIC RATE NUMBER TO BE SPECIFIED. COPIES GRDEF (104/68) AND COPY:RATEVEC (651/2). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00708/002 CHARGE SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM ENGLE 00709/001 READBFR SUBR SA G S0565 D4T3 VLO FSNAME=READBFR_SUBR..SA.001(1) 208 D4T3 208 READBFR_SUBR..SA.001 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 23:52:05 0 SUBROUTINE TO PROVIDE "LOCATE MODE" INPUT WHEN INPUT RECORD LENGTH IS UNKNOWN. USES GDINFO AND @NOTIFY TO ALLOCATE INPUT BUFFER. CALLED BY SELECTCMD (531/31). COPIES *GDINFODSECT (594). 0 Referenced by comments of: 531/31, 621/4 00709/002 READBFR SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00710 SQUASH # (OBSOLETE - SEE COMP. 721 FOR OPTIMIZE SUBR) D4T3 209 SQUASH..SA.001 1 LINE 80 6 PAGE UM JULY 28, 1977 23:52:07 0 Referenced by comments of: 721/3 00711/001 COMP CNTR PUBLICATIONS MEMO 387 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M387MEMOLIST D4.2T1 709 COMP_CNTR_PUBLICATIONS.ME.WF.001 1 LINE 194 6 PAGE UM K YOUNG SEP. 07, 1978 16:11:01 0 THIS IS COMPUTING CENTER MEMO 387 -- "LIST AND SUBJECT INDEX OF CCMEMOS" (JULY 1978). DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6). 00711/002 COMP CNTR PUBLICATIONS MEMO 388 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M388PUBLICATIONS D4.2T1 710 COMP_CNTR_PUBLICATIONS.ME.WF.002 1 LINE 162 6 PAGE UM K YOUNG SEP. 07, 1978 16:14:11 0 THIS IS COMPUTING CENTER MEMO 388 -- "COMPUTING CENTER PUBLICATIONS" (JULY 1978). 00711/003 COMP CNTR PUBLICATIONS INDEX FUNC SA O S0791 FMTJNK 'FORMAT' FSNAME=INDEX D4T3 216 COMP_CNTR_PUBLICATIONS.IN.SA.003 1 LINE 80 13 PAGE UM LIFT AUG. 14, 1977 22:43:51 0 *FORMAT INDEX AND INDEXOUT FUNCTIONS USED IN UM PUBLICATIONS. THESE ARE CALLED BY THE IND AND INDOUT FUNCTIONS (711/4) TO CONSTRUCT AN INDEX. THE CALLING SEQUENCE IS DESCRIBED IN THE SOURCE. 0 Referenced by comments of: 711/4 00711/004 COMP CNTR PUBLICATIONS IND FUNC SG O S0791 FMTJNK 'FORMAT' FSNAME=IND D4T3 217 COMP_CNTR_PUBLICATIONS.IN.SG.004 1 LINE 78 2 PAGE UM LIFT MAY 31, 1977 12:48:48 0 *FORMAT IND AND INDOUT "USER-DEFINED FUNCTIONS" USED IN UM PUBLICATIONS TO CONSTRUCT AN INDEX. THESE DIFFER FROM THE *FORMAT INDEX FUNCTION IN THAT PAGE NUMBERS ARE EXPLICITLY GIVEN AND TREATED AS CHARACTER STRINGS, AND ENTRIES ARE ALPHABETIZED WITHOUT REGARD TO UPPER OR LOWER CASE. THESE FUNCTIONS CALL INDEX AND INDEXOUT (711/3). 0 Referenced by comments of: 711/3 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00711/005 COMP CNTR PUBLICATIONS NRIGHT FUNC SF G S0791 FMTJNK 'FORMAT' FSNAME=NRIGHT D4T3 218 COMP_CNTR_PUBLICATIONS.NR.SF.005 1 LINE 80 1 PAGE UM LIFT MAY 16, 1977 12:33:05 0 *FORMAT NRIGHT "USER-DEFINED FUNCTION" USED IN UM PUBLICATIONS TO GO TO A RIGHT HAND PAGE, LEAVING A BLANK PAGE IF NECESSARY. 00711/006 COMP CNTR PUBLICATIONS FUNC LIB OL O ETC:FORMFUN D4T3 219 COMP_CNTR_PUBLICATIONS.FU.OL.006 1 LINE 1762 3 PAGE UM LIFT AUG. 14, 1977 22:43:55 ETC.:FORMFUN 0 OBJECT LIBRARY OF *FORMAT "USER-DEFINED FUNCTIONS" 711/3, 711/4, AND 711/5. 0 Referenced by comments of: 461/15, 711/1, 714/1 00712/001B *RESTORE MAIN PGM SA G OLRS RSTR:RESTORE(1000) RD16T1 211 RESTORE.MAIN_PGM.SA.001 1 LINE 80 25 PAGE UM HELFFRICH JULY 12, 1979 23:16:20 RSTR:RESTORE 0 USER RUNNABLE PROGRAM TO RESTORE FILES SAVED BY THE SYSTEM ONLINE FILE SAVE PROGRAM (716). CALLS AUTOREST (712/2), AND RSTFMT2 (092/3). ASSEMBLE USING THE FILESAVE MACROS (716/14). 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. **************************************************************************** RD16 CHANGES: THIS VERSION FIXES PROBLEMS CAUSED BY RESTORATION TO FILES LOCKED BY OTHER TASKS, AND ELIMINATES REPORTS OF "ERROR DESTROYING TEMPORARY FILE" ON SIGNOFF. **************************************************************************** 0 Referenced by comments of: 67/1, 92/3, 712/2, 716/2 00712/002B *RESTORE AUTOREST SUBR SA G ARES RSTR:AUTOREST(1000) RD16T1 212 RESTORE.AUTOREST_SUBR.SA.002 1 LINE 80 11 PAGE UM HELFFRICH JULY 12, 1979 23:16:38 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. 0 Referenced by comments of: 712/1 00712/003B *RESTORE OBJECT OE G *RESTORE RD16T1 213 RESTORE.OBJECT.OE.003 1 LINE 7278 7 PAGE UM HELFFRICH JULY 12, 1979 23:16:41 RSTR:*RESTORE 0 OBJECT FOR 712/1, 712/2, AND RSTFMT2 (092/3). NOTE: THE PKEY FOR THIS FILE MUST BE *RESTORE. 00712/004 *RESTORE *RES C *RES D4.2T1 714 RESTORE.*RES.C.004 1 LINE 64 1 PAGE UM HELFFRICH APR. 02, 1979 00:53:27 RSTR:*RES 0 COMMAND FILE TO RUN *RESTORE FOR THE OPERATORS (712/5). INVOKED BY ENTERING 1 THU SEP 12/96 23:39:34 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 "MTS *RES" ON THE OPERATOR'S CONSOLE. 00713 UPTIME # (SEE COMP 540) UM 00714/001 INTRO GUIDE: FORMAT WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FORMAT.SOU D4T3 231 INTRO_GUIDE:_FORMAT..WF.001 1 LINE 158 34 PAGE UM MANUAL JUNE 22, 1977 13:47:51 0 FORMAT SOURCE FOR "INTRODUCTION TO FORMAT" (JUNE 1977), THE SECOND IN A SERIES OF MTS INTRODUCTORY GUIDES. REQUIRES FORMAT MACROS (714/2) AND DYNAMICALLY LOADS THE NRIGHT FUNCTION FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6). 00714/002 INTRO GUIDE: FORMAT MACROS WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FMT.MACLIB D4T3 232 INTRO_GUIDE:_FORMAT.MACRO.WF.002 1 LINE 110 6 PAGE UM MANUAL JULY 28, 1977 23:53:47 0 FORMAT MACROS REQUIRED BY 714/1. 0 Referenced by comments of: 714/1 00714/003 INTRO GUIDE: FORMAT PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=FORMAT.OUT D4T3 233 INTRO_GUIDE:_FORMAT..PF.003 1 LINE 133 78 PAGE UM MANUAL JUNE 22, 1977 13:49:54 0 FORMAT PRINT FILE. 00715/001 MERIT CC SUPPORT 360 EQUS S G C1294 MERIT6 FSNAME=360EQUS D4T3 234 MERIT_CC_SUPPORT.360_EQUS.S.001 1 LINE 83 2 PAGE UM MERIT MAR. 28, 1977 16:17:58 0 THIS COMPONENT IS THE SOURCE FOR THE MERIT COMPUTER NETWORK PDP-11 COMMUNICATIONS COMPUTER (CC) SUPPORT AND RELATED UTILITY PROGRAMS AND COMMAND FILES. INCLUDED IS THE NECESSARY PDP-11 CODE FOR THE CDC 6500 SUPPORT AS WELL AS FOR MTS (IBM/AMDAHL). 715/1 IS THE *11ASR SOURCE FOR EQUS WHICH DEFINE THE HARDWARE REGISTERS, CSW, CCW, AND SENSE DATA FOR THE IBM/AMDAHL CHANNEL INTERFACE. 00715/002 MERIT CC SUPPORT MCS11COM S G C1294 MERIT6 FSNAME=MCS11COM D4T3 235 MERIT_CC_SUPPORT.MCS11COM.S.002 1 LINE 100 8 PAGE UM MERIT MAR. 28, 1977 16:17:17 0 *11ASR SOURCE FOR THE COPY SECTION FOR THE MERIT DIRECT TERMINAL SUPPORT (HERMES). 00715/003 MERIT CC SUPPORT LA EQUS S G C1294 MERIT6 FSNAME=LAEQUS D4T3 236 MERIT_CC_SUPPORT.LA_EQUS.S.003 1 LINE 83 3 PAGE UM MERIT MAR. 28, 1977 16:16:43 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 C1294 MERIT6 FSNAME=NIMBLK D4T3 237 MERIT_CC_SUPPORT.NIMBLK_D.S.004 1 LINE 82 1 PAGE UM MERIT MAR. 28, 1977 16:16:30 0 *11ASR SOURCE FOR THE DSECT FOR THE TERMINAL ACCESS SOCKET (HERMES). 00715/005 MERIT CC SUPPORT CLI COPY SECT S G C1294 MERIT6 FSNAME=CLISTUFF D4T3 238 MERIT_CC_SUPPORT.CLI_COPY.S.005 1 LINE 71 1 PAGE UM MERIT MAR. 28, 1977 16:16:09 0 *11ASR SOURCE FOR THE DSECT AND EQUS USED BY THE COMMAND LANGUAGE INTERPRETER (CLI). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00715/006 MERIT CC SUPPORT FORMAT EQUS S O C1294 MERIT6 FSNAME=FORMATEQUS D4T3 239 MERIT_CC_SUPPORT.FORMAT_E.S.006 1 LINE 79 2 PAGE UM MERIT MAR. 28, 1977 16:15:42 0 *11ASR SOURCE FOR THE EQUS FOR THE OUTPUT FORMATTING ROUTINE (FMTXT). 00715/007 MERIT CC SUPPORT IVECTOR DSECT S G C1294 MERIT6 FSNAME=IVECTOR D4T3 240 MERIT_CC_SUPPORT.IVECTOR.S.007 1 LINE 99 1 PAGE UM MERIT MAR. 28, 1977 16:15:30 0 *11ASR SOURCE FOR THE HOST-TO-NETWORK INTERFACE TRANSFER VECTOR. 00715/008 MERIT CC SUPPORT CCB DSECT S G C1294 MERIT6 FSNAME=CCB D4T3 241 MERIT_CC_SUPPORT.CCB_DSEC.S.008 1 LINE 83 1 PAGE UM MERIT MAR. 28, 1977 16:15:15 0 *11ASR SOURCE FOR THE CLOCK CONTROL BLOCK (CCB). 00715/009 MERIT CC SUPPORT RQCB DSECT S G C1294 MERIT6 FSNAME=RQCB D4T3 242 MERIT_CC_SUPPORT.RQCB_DSE.S.009 1 LINE 77 1 PAGE UM MERIT MAR. 28, 1977 16:15:04 0 *11ASR SOURCE FOR THE RECORD QUEUE CONTROL BLOCK (RQCB). 00715/010 MERIT CC SUPPORT OPEN BCB DSECT S G C1294 MERIT6 FSNAME=OPENBCB D4T3 243 MERIT_CC_SUPPORT.OPEN_BCB.S.010 1 LINE 87 1 PAGE UM MERIT MAR. 28, 1977 16:14:50 0 *11ASR SOURCE FOR THE OPEN BUFFER CONTROL BLOCK. 00715/011 MERIT CC SUPPORT BCB DSECT S G C1294 MERIT6 FSNAME=BCB D4T3 244 MERIT_CC_SUPPORT.BCB_DSEC.S.011 1 LINE 83 1 PAGE UM MERIT MAR. 28, 1977 16:14:31 0 *11ASR SOURCE FOR THE BUFFER CONTROL BLOCK (BCB). 00715/012 MERIT CC SUPPORT SCB DSECT S G C1294 MERIT6 FSNAME=SCB D4T3 245 MERIT_CC_SUPPORT.SCB_DSEC.S.012 1 LINE 89 2 PAGE UM MERIT MAR. 28, 1977 16:14:07 0 *11ASR SOURCE FOR THE SOCKET CONTROL BLOCK (SCB). 00715/013 MERIT CC SUPPORT TCB DSECT S G C1294 MERIT6 FSNAME=TCB D4T3 246 MERIT_CC_SUPPORT.TCB_DSEC.S.013 1 LINE 83 1 PAGE UM MERIT MAR. 28, 1977 16:13:51 0 *11ASR SOURCE FOR THE TASK CONTROL BLOCK (TCB). 00715/014 MERIT CC SUPPORT GLOBAL EQUS S G C1294 MERIT6 FSNAME=EQUS D4T3 247 MERIT_CC_SUPPORT.GLOBAL_E.S.014 1 LINE 100 3 PAGE UM MERIT MAR. 28, 1977 16:13:40 0 *11ASR SOURCE FOR THE GLOBAL EQUS. 00715/015 MERIT CC SUPPORT MACROS S G C1294 MERIT6 FSNAME=MACROS D4T3 248 MERIT_CC_SUPPORT.MACROS.S.015 1 LINE 65 1 PAGE UM MERIT MAR. 28, 1977 16:13:18 0 *11ASR SOURCE FOR THE MACROS. 00715/016 MERIT CC SUPPORT SWITCHES EQUS S G C1294 MERIT6 FSNAME=SWITCHES D4T3 249 MERIT_CC_SUPPORT.SWITCHES.S.016 1 LINE 90 3 PAGE UM MERIT MAR. 28, 1977 16:13:02 0 *11ASR SOURCE FOR THE MERIT RECORD SWITCH BIT DEFINITIONS. THIS IS USED ONLY 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 FOR DOCUMENTATION; IT IS NOT COPIED. 00715/017 MERIT CC SUPPORT CDC EQUS S G C1294 MERIT6 FSNAME=CDCEQUS D4T3 250 MERIT_CC_SUPPORT.CDC_EQUS.S.017 1 LINE 74 3 PAGE UM MERIT MAR. 28, 1977 16:18:27 0 *11ASR SOURCE FOR THE EQUS FOR THE CDC 6500 HARDWARE INTERFACE. 00715/018 MERIT CC SUPPORT VECTORS S G C1294 MERIT6 FSNAME=VECTORS.S D4T3 251 MERIT_CC_SUPPORT.VECTORS.S.018 1 LINE 91 9 PAGE UM MERIT MAR. 28, 1977 16:18:46 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 C1294 MERIT6 FSNAME=SYSTEM.S D4T3 252 MERIT_CC_SUPPORT.SYSTEM.S.019 1 LINE 104 56 PAGE UM MERIT MAR. 28, 1977 16:18:59 0 *11ASR SOURCE FOR THE BASIC MINOS SUBROUTINES. 00715/020 MERIT CC SUPPORT TAPE S G C1294 MERIT6 FSNAME=TAPE.S D4T3 253 MERIT_CC_SUPPORT.TAPE.S.020 1 LINE 92 4 PAGE UM MERIT MAR. 28, 1977 16:19:41 0 *11ASR SOURCE FOR THE PAPER TAPE AND COMMUNICATIONS COMPUTER (CC) "HOST" SUPPORT. 00715/021 MERIT CC SUPPORT TIMER S O C1294 MERIT6 FSNAME=TIMER.S D4T3 254 MERIT_CC_SUPPORT.TIMER.S.021 1 LINE 88 9 PAGE UM MERIT MAR. 28, 1977 16:19:54 0 *11ASR SOURCE FOR THE MINOS INTERVAL TIMER SUPPORT ROUTINES. 00715/022 MERIT CC SUPPORT PARSER S G C1294 MERIT6 FSNAME=PARSE.S D4T3 255 MERIT_CC_SUPPORT.PARSER.S.022 1 LINE 90 16 PAGE UM MERIT MAR. 28, 1977 16:20:09 0 *11ASR SOURCE FOR THE MINOS CLI PARSER. 00715/023 MERIT CC SUPPORT COMMANDS S G C1294 MERIT6 FSNAME=CMNDS.S D4T3 256 MERIT_CC_SUPPORT.COMMANDS.S.023 1 LINE 136 27 PAGE UM MERIT MAR. 28, 1977 16:21:23 0 *11ASR SOURCE FOR THE MINOS COMMAND DEFINITIONS AND EXECUTION ROUTINES. 00715/024 MERIT CC SUPPORT TELECOMM S G C1294 MERIT6 FSNAME=TELECOMM.S D4T3 257 MERIT_CC_SUPPORT.TELECOMM.S.024 1 LINE 102 39 PAGE UM MERIT MAR. 28, 1977 16:22:53 0 *11ASR SOURCE FOR THE MERIT SYNCHRONOUS TELECOMMUNICATIONS AND ROUTING. 00715/025 MERIT CC SUPPORT NIM S G C1294 MERIT6 FSNAME=NIM.S D4T3 258 MERIT_CC_SUPPORT.NIM.S.025 1 LINE 125 26 PAGE UM MERIT MAR. 28, 1977 16:23:28 0 *11ASR SOURCE FOR THE TASK TIME ROUTINES FOR TERMINAL SUPPORT (NIM=NETWORK INTERFACE MODULE). 00715/026 MERIT CC SUPPORT NIBBLE S G C1294 MERIT6 FSNAME=NIBBLE.S D4T3 259 MERIT_CC_SUPPORT.NIBBLE.S.026 1 LINE 77 9 PAGE UM MERIT MAR. 28, 1977 16:23:52 0 *11ASR SOURCE FOR THE NIBBLE BUFFER MANAGEMENT FOR TERMINAL SUPPORT. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00715/027 MERIT CC SUPPORT SSDST S G C1294 MERIT6 FSNAME=SSDST.S D4T3 260 MERIT_CC_SUPPORT.SSDST.S.027 1 LINE 103 6 PAGE UM MERIT MAR. 28, 1977 16:24:52 0 *11ASR SOURCE FOR THE START/STOP (ASYNCHRONOUS) DEVICE SUPPORT TASK (RING SNIFFER AND HANG-UP DETECTOR). 00715/028 MERIT CC SUPPORT DEVICES S G C1294 MERIT6 FSNAME=DEVICES.S D4T3 261 MERIT_CC_SUPPORT.DEVICES.S.028 1 LINE 86 55 PAGE UM MERIT MAR. 28, 1977 16:25:08 0 *11ASR SOURCE FOR THE INTERRUPT ROUTINES FOR THE TERMINAL SUPPORT. 00715/029 MERIT CC SUPPORT GETOUT S G C1294 MERIT6 FSNAME=GETOUT.S D4T3 262 MERIT_CC_SUPPORT.GETOUT.S.029 1 LINE 82 6 PAGE UM MERIT MAR. 28, 1977 16:26:15 0 *11ASR SOURCE FOR THE LOWER LEVEL TERMINAL SUPPORT ROUTINES. 00715/030 MERIT CC SUPPORT SSTABLE S G C1294 MERIT6 FSNAME=SSTABLE.S D4T3 263 MERIT_CC_SUPPORT.SSTABLE.S.030 1 LINE 91 21 PAGE UM MERIT MAR. 28, 1977 16:26:56 0 *11ASR SOURCE FOR THE TRANSLATE TABLE FOR 2741 SUPPORT. 00715/031 MERIT CC SUPPORT VERSNO S G C1294 MERIT6 FSNAME=VERSNO.S D4T3 264 MERIT_CC_SUPPORT.VERSNO.S.031 1 LINE 55 1 PAGE UM MERIT MAR. 28, 1977 16:27:45 0 *11ASR SOURCE FOR THE CODE TO GENERATE THE SYSTEM VERSION NUMBER. 00715/032 MERIT CC SUPPORT SSTRACE S O C1294 MERIT6 FSNAME=SSTRACE.S D4T3 265 MERIT_CC_SUPPORT.SSTRACE.S.032 1 LINE 88 1 PAGE UM MERIT MAR. 28, 1977 16:31:42 0 *11ASR SOURCE FOR THE INTERRUPT TRACING/DEBUGGING FACILITY FOR TERMINAL SUPPORT. 00715/033 MERIT CC SUPPORT MTS RARE S B C1294 MERIT6 FSNAME=MTSRARE.S D4T3 266 MERIT_CC_SUPPORT.MTS_RARE.S.033 1 LINE 83 18 PAGE UM MERIT MAR. 28, 1977 16:32:14 0 *11ASR SOURCE FOR THE MTS-DEPENDENT HOST INTERFACE SUPPORT. 00715/034 MERIT CC SUPPORT CDC RARE S G C1294 MERIT6 FSNAME=CDCRARE.S D4T3 267 MERIT_CC_SUPPORT.CDC_RARE.S.034 1 LINE 115 14 PAGE UM MERIT MAR. 28, 1977 16:33:17 0 *11ASR SOURCE FOR THE CDC-DEPENDENT HOST INTERFACE SUPPORT. 00715/035 MERIT CC SUPPORT END S G C1294 MERIT6 FSNAME=END.S D4T3 268 MERIT_CC_SUPPORT.END.S.035 1 LINE 84 1 PAGE UM MERIT APR. 05, 1976 13:55:11 0 *11ASR SOURCE WHICH DEFINES ALLOCATABLE STORAGE WITHIN THE PDP-11. 00715/036 MERIT CC SUPPORT LINK C C1294 MERIT6 FSNAME=LINK D4T3 269 MERIT_CC_SUPPORT.LINK.C.036 1 LINE 66 1 PAGE UM MERIT MAR. 28, 1977 16:37:39 0 MTS AND *LINK11 COMMANDS TO BUILD A MINOS SYSTEM. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00715/037 MERIT CC SUPPORT MTS LOADDUMP S G C1294 MERIT6 FSNAME=LODMP.S D4T3 270 MERIT_CC_SUPPORT.MTS_LOAD.S.037 1 LINE 61 3 PAGE UM MERIT MAR. 28, 1977 16:35:27 0 *11ASR SOURCE FOR THE STAND-ALONE PROGRAM TO DUMP AND LOAD THE PDP-11 FROM MTS VIA THE IBM/AMDAHL CHANNEL INTERFACE. 00715/038 MERIT CC SUPPORT CDC LOADDUMP S G C1294 MERIT6 FSNAME=CDCLODMP.S D4T3 271 MERIT_CC_SUPPORT.CDC_LOAD.S.038 1 LINE 68 1 PAGE UM MERIT MAR. 28, 1977 16:36:15 0 *11ASR SOURCE FOR THE STAND-ALONE PROGRAM TO DUMP AND LOAD THE PDP-11 VIA THE CDC CHANNEL INTERFACE. 00715/039 MERIT CC SUPPORT EVANS SP G EVNP C1294 MERIT6 FSNAME=EVANS.S D4T3 272 MERIT_CC_SUPPORT.EVANS.SP.039 1 LINE 80 30 PAGE UM MERIT APR. 04, 1977 11:13:13 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/40, 715/41 00715/040 MERIT CC SUPPORT DMPRD SA G DMPR C1294 MERIT6 FSNAME=DMPRD.S D4T3 273 MERIT_CC_SUPPORT.DMPRD.SA.040 1 LINE 80 3 PAGE UM MERIT APR. 04, 1977 11:14:04 0 SUBROUTINE CALLED BY EVANS (715/39) TO READ A PDP-11 CORE IMAGE FROM AN FDNAME AND BUILD AN INTERNAL DATA STRUCTURE. 00715/041 MERIT CC SUPPORT CRUNCH C C1294 MERIT6 FSNAME=CRUNCH D4T3 274 MERIT_CC_SUPPORT.CRUNCH.C.041 1 LINE 85 1 PAGE UM MERIT MAR. 28, 1977 16:38:05 0 MTS AND EVANS (715/39) COMMANDS TO CRUNCH A DUMP TAKEN USING 11LOAD (642/11). 00716/001 FILE SAVE - ONLINE *SAV C *SAV D4.2T1 715 FILE_SAVE_-_ONLINE.*SAV.C.001 1 LINE 65 1 PAGE UM HELFFRICH APR. 02, 1979 00:53:28 RSTR:*SAV 0 COMMAND FILE TO START THE ONLINE FILESAVE AND MERGE OPERATIONS. INVOKED BY ENTERING "MTS *SAV" ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 67/1, 502/9, 671/1, 671/3, 712/1 00716/002B FILE SAVE - ONLINE SAVE PGM SA G OLFS RSTR:DSF(1000) RD16T1 214 FILE_SAVE_-_ONLINE.SAVE_P.SA.002 1 LINE 80 19 PAGE UM HELFFRICH JULY 12, 1979 23:16:42 RSTR:DSF 0 SOURCE FOR THE ONLINE FILESAVE PROGRAM WHICH CREATES FILES OF THE FORM "FILEDIRNN" (WHERE NN=01,02,...) WHICH GET MERGED AND DESTROYED BY THE MERGE PROGRAM (716/6) INTO THE FILES "FILEDIR.MAS" AND "FILEDIR.NEW" USED BY *RESTORE (712). CALLS SAVEFILE (067/2), FILEDSCB (502/9), AND TAPEOUT (716/4). ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE FILESAVE MACROS (716/14). 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 THU SEP 12/96 23:39:34 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 RD16 CHANGES: CHANGED TO ELIMINATE USAGE OF FDVSER FIELD IN THE CATALOG. ALL ERRORS ENCOUNTERED ARE REPORTED ON OPER/SERCOM AND PREFIXED WITH "*** FILE SAVE ERROR" (FOR COMPREHENSIBILITY) SO THAT SCANNING OF OUTPUT LISTINGS IS UNNECESSARY. **************************************************************************** 0 Referenced by comments of: 716/4 00716/003B FILE SAVE - ONLINE SAVE PGM OC G RSTR:OLFSOBJ RD16T1 215 FILE_SAVE_-_ONLINE.SAVE_P.OC.003 1 LINE 80 16 PAGE UM HELFFRICH JULY 12, 1979 23:16:51 RSTR:OLFSOBJ 00716/004 FILE SAVE - ONLINE TAPEOUT SA G TPDO RSTR:TAPEOUT(1005) D4.1T1 522 FILE_SAVE_-_ONLINE.TAPEOU.SA.004 1 LINE 80 23 PAGE UM HELFFRICH MAY 13, 1978 18:16:22 RSTR:TAPEOUT 0 SUBROUTINE CALLED BY THE SAVE PROGRAM (716/2) 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. 0 Referenced by comments of: 716/2 00716/005 FILE SAVE - ONLINE TAPEOUT OC G RSTR:TAPEOUT(1,999) D4.1T1 523 FILE_SAVE_-_ONLINE.TAPEOU.OC.005 1 LINE 80 8 PAGE UM HELFFRICH MAY 13, 1978 18:16:32 00716/006 FILE SAVE - ONLINE MERGE PGM SA G MERG RSTR:MERGE(1005) D4.1T1 524 FILE_SAVE_-_ONLINE.MERGE.SA.006 1 LINE 80 16 PAGE UM HELFFRICH MAY 13, 1978 18:16:36 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/43). PROGRAM WILL CREATE AND PERMIT THE APPROPRIATE FILESAVE DIRECTORY FILES IF THEY DON'T ALREADY EXIST. COPIES *CNFGINFODSECT (654). ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE FILESAVE MACROS (716/14). 0 Referenced by comments of: 682/43, 716/2 00716/007 FILE SAVE - ONLINE MERGE PGM OC G RSTR:MERGE(1,999) D4.1T1 525 FILE_SAVE_-_ONLINE.MERGE.OC.007 1 LINE 80 5 PAGE UM HELFFRICH MAY 13, 1978 18:16:43 0 CONTAINS TWO "ALI" RECORDS AND "$CONTINUE WITH SEG2:CFE+SEG2:TIME+FILE:CHKFILE+*LIBRARY". 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00716/008 FILE SAVE - ONLINE TAPEDIRLIST SA G TPDL RSTR:TAPEDIRLIST(1001) D4.1T1 526 FILE_SAVE_-_ONLINE.TAPEDI.SA.008 1 LINE 80 4 PAGE UM HELFFRICH MAY 13, 1978 18:16:46 RSTR:TAPEDIRLIST 0 PROGRAM TO LIST THE "TAPEDIR" FILE IN READABLE FORM. ASSEMBLE USING THE FILESAVE MACROS (716/14). 00716/009 FILE SAVE - ONLINE TAPEDIRLIST OC G RSTR:TAPEDIRLIST(1,999) D4.1T1 527 FILE_SAVE_-_ONLINE.TAPEDI.OC.009 1 LINE 80 2 PAGE UM HELFFRICH MAY 13, 1978 18:16:47 00716/010 FILE SAVE - ONLINE REGENERATE SA G RSTR:REGENERATE(1005) D4.2T1 718 FILE_SAVE_-_ONLINE.REGENE.SA.010 1 LINE 72 3 PAGE UM HELFFRICH APR. 02, 1979 00:53:36 RSTR:REGENERATE 0 PROGRAM TO REGENERATE LOST PORTIONS OF THE MASTER FILE AND TAPE DIRECTORY FILES IF A DISK DISASTER (OR SOMETHING ELSE) DESTROYS THEM. ASSEMBLE USING THE FILESAVE MACRO LIBRARY (716/14). 00716/011 FILE SAVE - ONLINE REGENERATE OC G RSTR:REGENERATE(1,998) D4.2T1 719 FILE_SAVE_-_ONLINE.REGENE.OC.011 1 LINE 80 3 PAGE UM HELFFRICH APR. 02, 1979 00:53:36 0 CONTAINS A "$CONTINUE WITH *ENDJUNK" CARD. 00716/012 FILE SAVE - ONLINE *FSM C *FSM D4.2T1 720 FILE_SAVE_-_ONLINE.*FSM.C.012 1 LINE 28 1 PAGE UM HELFFRICH APR. 02, 1979 00:53:37 RSTR:*FSM 0 COMMAND FILE TO START THE ONLINE FILESAVE MERGE OPERATION ONLY. INVOKED BY ENTERING "MTS *FSM" ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 97/2 00716/013 FILE SAVE - ONLINE WRITEUP WF RSTR:OLFS.W D4T3 290 FILE_SAVE_-_ONLINE.WRITEU.WF.016 1 LINE 102 5 PAGE UM HELFFRICH SEP. 18, 1977 22:14:43 RSTR:OLFS.W 0 INFORMAL DOCUMENTATION FOR THE ONLINE FILE SAVE. 00716/014 FILE SAVE - ONLINE MACROS SM G RSTR:FS.MACROS D4.1T1 530 FILE_SAVE_-_ONLINE.MACROS.SM.014 1 LINE 71 2 PAGE UM HELFFRICH MAY 13, 1978 18:16:49 RSTR:FS.MACROS 0 FILESAVE MACRO LIBRARY. 0 Referenced by comments of: 67/1, 502/5, 610/1, 712/1, 716/2, 716/6, 716/8, 716/10 00716/015 FILE SAVE - ONLINE RECOVER SA G RSTR:RECOVER(1001) D4.1T1 531 FILE_SAVE_-_ONLINE.RECOVE.SA.015 1 LINE 72 1 PAGE UM HELFFRICH MAY 13, 1978 18:16:50 RSTR:RECOVER 0 SMALL PROGRAM TO COPY AND RE-LABEL A SET OF WEEKLY FILESAVE TAPES ERRONEOUSLY WRITTEN BY FILESAVE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00716/016 FILE SAVE - ONLINE RECOVER OC G RSTR:RECOVER(1,999) D4.1T1 532 FILE_SAVE_-_ONLINE.RECOVE.OC.016 1 LINE 80 2 PAGE UM HELFFRICH MAY 13, 1978 18:16:50 00716/017 FILE SAVE - ONLINE FILEDIR.MAS D # MTS:TST.FILEDIR UM HELFFRICH RSTR:FILEDIR.MAS 0 ONLINE FILESAVE FILE DIRECTORY FILE. 00716/018 FILE SAVE - ONLINE FILEDIR.NEW D # MTS:TST.FILEDIR UM HELFFRICH RSTR:FILEDIR.NEW 0 ONLINE FILESAVE FILE DIRECTORY FILE. 00716/019 FILE SAVE - ONLINE TAPEDIR D # MTS:TST.TAPEDIR UM HELFFRICH RSTR:TAPEDIR 0 ONLINE FILESAVE TAPE DIRECTORY FILE. 00716/020 FILE SAVE - ONLINE FSLOG D # MTS:TST.EMPTY UM HELFFRICH RSTR:FSLOG 0 FILESAVE LOG FILE. 00716/021 FILE SAVE - ONLINE RECOVERING WF RSTR:RECOVERING D4.2T1 721 FILE_SAVE_-_ONLINE.RECOVE.WF.021 1 LINE 106 3 PAGE UM HELFFRICH APR. 02, 1979 00:53:38 RSTR:RECOVERING 0 WRITEUP DESCRIBING HOW TO REGENERATE THE FILE SAVE DIRECTORIES IF THEY ARE DAMAGED AS A RESULT OF A DISK DISASTER. 00717/001 MTS VOLUME 7 MASTER WT S0562 MTSV7 'MTS MANUALS' POSN=NEWM2.V7 D4.2T1 722 MTS_VOLUME_7.MASTER.WT.001 1 SEQ 132 172 PAGE UM MANUAL APR. 02, 1979 00:53:56 0 TEXT/360 MASTER FOR VOLUME 7 "PL/I IN MTS" OF THE UM MTS MANUALS (JULY 1977, UPDATED FEBRUARY 1979). EDITOR: RICHARD A. SALISBURY 00717/002 MTS VOLUME 7 PRINT PT S0562 MTSV7 'MTS MANUALS' POSN=PRINT2.V7 D4.2T1 723 MTS_VOLUME_7.PRINT.PT.002 1 SEQ 132 300 PAGE UM MANUAL APR. 02, 1979 00:54:04 0 TEXT/360 PRINT FILE. 00717/003 MTS VOLUME 7 INDEX SOURCE D S0562 MTSV7 'MTS MANUALS' POSN=V7INDEXSOU.2 D4.2T1 724 MTS_VOLUME_7.INDEX_SOURCE.D.003 1 SEQ 77 4 PAGE UM MANUAL APR. 02, 1979 00:54:08 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 7. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00717/004 MTS VOLUME 7 UPDATE 1 PT W073:TNLV7.FEB79 D4.2T1 725 MTS_VOLUME_7.UPDATE_1.PT.004 1 LINE 106 106 PAGE UM MANUAL APR. 02, 1979 00:54:09 0 THIS IS COMPUTING CENTER MEMO 397 -- "UPDATE 1 TO MTS VOLUME 7," (JULY 1977). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00718/001 TURNAROUND SA O MTA:TURNAROUND(1,999) D4T3 294 TURNAROUND..SA.001 1 LINE 80 13 PAGE UM MTA JULY 28, 1977 23:57:58 MTA.:TURNAROUND 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/18). 00718/002 TURNAROUND OC O MTA:TURNAROUND(1000) D4T3 295 TURNAROUND..OC.002 1 LINE 80 4 PAGE UM MTA JULY 28, 1977 23:57:59 0 HAS A "$CONTINUE WITH MTA:READBFR(1000)+*ANALYSIS(-600,-401) RETURN" CARD WHICH REFERS TO COMPS 709 AND 140/7. 00719/001 IEBUPDTE SIMULATOR SA G WATF:IEBUPDTE(1,999) D4T3 296 IEBUPDTE_SIMULATOR..SA.001 1 LINE 80 16 PAGE UM MTA JULY 28, 1977 23:58:01 0 PROGRAM TO APPLY UPDATES INTENDED FOR THE OS IEBUPDTE PROGRAM. UNIT 0 MUST BE ASSIGNED TO A LABELED INPUT TAPE, UNIT 1 TO A LABELED OUTPUT TAPE, BOTH OF WHICH MUST BE FORMAT FB WITH A LRECL OF 80. THE PROGRAM USES THE INPUT TAPE DSNAMES AS MODULE NAMES. CONTROL CARDS ARE READ FROM SCARDS; A RECORD OF WHAT WAS UPDATED IN PRODUCED ON SPRINT. ON ANY ERROR, THE PROGRAM PRINTS THE INPUT, OLD MASTER POSITION, AND NEW MASTER POSITION ON SERCOM AND THEN CALLS MTS. IF RESTARTED, IT ATTEMPTS TO IGNORE THE ERROR AND CONTINUE PROCESSING. FOR INPUT (FROM SCARDS), IF COLUMNS 1 AND 2 ARE NOT "./" THEN THE INPUT RECORD IS A DATA CARDS AND IS ADDED TO THE TAPE ON UNIT 1 IN SEQUENCE USING COLUMNS 73-80. IF COLUMNS 1 AND 2 ARE "./" THEN THE INPUT RECORD IS A CONTROL CARD AS FOLLOWS: ./ ADD NAME=X ADDS A NEW MODULE AFTER THE CURRENT ONE ON UNIT 1. ./ CHANGE NAME=X UPDATES X FROM UNIT 0 TO UNIT 1 COPYING ALL MODULES BEFORE IT. ./ REPL NAME=X REPLACE X. POSITION UNIT 0 AFTER IT, COPYING ALL MODULES BEFORE IT. ./ DELETE SEQ1=S1 SEQ2=S2 S1 AND S2 MUST BE ALL NUMERIC. THE SEQ2 PARAMETER IS OPTIONAL. ./ ENDUP 00719/002 IEBUPDTE SIMULATOR OC G WATF:IEBUPDTE(1000) D4T3 297 IEBUPDTE_SIMULATOR..OC.002 1 LINE 80 5 PAGE UM MTA JULY 28, 1977 23:58:03 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00720/001 LKEDCONV SA O S0565 D4T3 VLO FSNAME=LKEDCONV..SA.001(1) 298 D4T3 298 LKEDCONV..SA.001 1 LINE 80 60 PAGE SFU BENET MTA JULY 28, 1977 23:58:06 0 A LARGE PROGRAM TO AID IN CONVERTING OS/VS OBJECT LIBRARIES (EITHER FROM *UNLINKER OR AS OS LINK EDITOR INPUT) FOR USE IN MTS. COMMENTS IN THE SOURCE DESCRIBE HOW TO USE IT. 00720/002 LKEDCONV OC O S0565 D4T3 VLO FSNAME=LKEDCONV..OC.002(1) 299 D4T3 299 LKEDCONV..OC.002 1 LINE 80 12 PAGE SFU BENET MTA JULY 28, 1977 23:58:18 00721/001 *OBJUTIL SA G OBJU W067:OBJUTIL.S D4.2T1 726 OBJUTIL..SA.001 1 LINE 80 237 PAGE UM SHERRY APR. 02, 1979 00:54:17 0 OBJECT FILE EDITOR PROGRAM. CALLS THE OPTIMIZE SUBROUTINE (721/3) AND THE EDITOR EST SUBROUTINE (648/6). THE NEGATIVE LINES CONTAIN COMMANDS TO ASSEMBLE IT. COPIES *GDINFODSECT (594) AND *CNFGINFODSECT (654). ASSEMBLE WITH *ASMH (737) USING THE OBJUTIL MACROS (721/4) 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. 00721/002 *OBJUTIL IOCVT SUBR SA G IOC W067:OBJU.IOCVT.S D4.1T1 534 OBJUTIL.IOCVT_SUBR.SA.002 1 LINE 80 27 PAGE UM SHERRY MAY 13, 1978 18:17:09 0 I/O CONVERSION ROUTINES FOR THE DISPLAY, MODIFY, AND SCAN COMMANDS. 00721/003 *OBJUTIL OPTIMIZE SUBR SA G OPT W067:OPTIMIZE.S D4.2T1 727 OBJUTIL.OPTIMIZE_SUBR.SA.003 1 LINE 80 25 PAGE UM SHERRY APR. 02, 1979 00:54:38 0 A RE-ENTRANT ROUTINE TO OPTIMIZE OBJECT MODULES FOR OBJUTIL. THIS IS A NEW VERSION WITH A SLIGHTLY CHANGED CALLING SEQUENCE. SEE THE SOURCE COMMENTS FOR DETAILS. ASSEMBLE WITH OBJUTIL MACROS (721/4). COPIES *CNFGINFODSECT (654). THIS SUBCOMPONENT WAS FORMERLY A PART OF SQUASH (710). 0 Referenced by comments of: 721/1 00721/004B *OBJUTIL MACROS SM G W067:MAC RD16T1 216 OBJUTIL.MACROS.SM.004 1 LINE 73 18 PAGE UM SHERRY JULY 12, 1979 23:16:53 0 Referenced by comments of: 721/1, 721/3, 738/1, 746/1, 749/1, 757/1 00721/005 *OBJUTIL SHARED OBJECT OE G SEG2:OBJUTIL D4.2T1 729 OBJUTIL.SHARED_OBJECT.OE.005 1 LINE 16992 45 PAGE UM SHERRY APR. 02, 1979 00:54:51 SEG2:OBJUTIL 0 370/470 OBJECT FOR OBJUTIL, IOCVT, EST, AND OPTIMIZE. LOADED INTO SHARED VM BY PISTLE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00721/006 *OBJUTIL *OBJUTIL OC G *OBJUTIL D4.2T1 730 OBJUTIL.*OBJUTIL.OC.006 1 LINE 24 1 PAGE UM SHERRY APR. 02, 1979 00:54:56 *OBJUTIL 0 CONTAINS THE APPROPRIATE LOADER CARDS TO FORCE A REFERENCE TO THE SHARED VM OBJUTIL. 00721/007 *OBJUTIL EXPLAIN FILE M ETC:OBJUTILEXP D4.2T1 731 OBJUTIL.EXPLAIN_FILE.M.007 1 LINE 74 22 PAGE UM SHERRY APR. 02, 1979 00:54:56 ETC.:OBJUTILEXP 0 EXPLAIN COMMAND MESSAGES. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00721/008 *OBJUTIL MEMO 359 WT # OBSOLETE (SEE 573/5) D4.1T1 539 OBJUTIL.MEMO_359.WT.007 1 LINE 104 12 PAGE UM SHERRY MAY 13, 1978 18:17:25 00721/009 *OBJUTIL WRITEUP WT W067:OBJUTIL.V5.W D4.2T1 732 OBJUTIL.WRITEUP.WT.009 1 LINE 107 16 PAGE UM SHERRY APR. 02, 1979 00:54:59 0 VOLUME 5 WRITEUP FOR *OBJUTIL. 00722/001 BLOCKHEADER SA O W009:BLKHDR.S D4T3 309 BLOCKHEADER..SA.001 1 LINE 69 4 PAGE UM SHERRY JULY 28, 1977 23:59:05 W009:BLKHDR.S 0 PROGRAM TO PRODUCE BLOCKLETTER HEADERS FOR PRINTED LISTINGS. REFERENCED BY MTSASM (042/4). WRITES ON SPRINT (DEFAULTING TO *PRINT*). ACCEPTS THE FOLLOWING PARAMETERS IN THE PAR FIELD: HEADER=STRING, CENTER=STRING, FOOTER=STRING, MCC|LCC (MACHINE OR LOGICAL CARRIAGE CONTROL), AND EJECT (WHICH PRODUCES A PAGE EJECT AFTER THE LAST HEADING. STRING MUST BE < 10 CHARACTERS AND IF IT IS "" THEN THE VERSION CODE CORRESPONDING TO TODAY'S DATE IS PRODUCED. 00722/002 BLOCKHEADER OE O W009:BLKHDR D4T3 310 BLOCKHEADER..OE.002 1 LINE 820 1 PAGE UM SHERRY JULY 28, 1977 23:59:07 W009:BLKHDR 00723/001 FNAMETRT SA G MTS:FNAMETRT(1,999) D4T3 311 FNAMETRT..SA.001 1 LINE 72 1 PAGE UM MTS HELFFRICH JULY 28, 1977 23:59:09 MTS.:FNAMETRT 0 TRANSLATE TABLE USED BY FNAME TO DECIDE WHAT CHARACTERS ARE LEGAL IN FILE NAMES. 00723/002 FNAMETRT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00724/001 DISKCOPY SA O FILE:DISKCOPY.S D4T3 312 DISKCOPY..SA.001 1 LINE 72 9 PAGE UM HELFFRICH JULY 28, 1977 23:59:11 FILE:DISKCOPY.S 0 PROGRAM TO DO PACK-TO-PACK DISK COPY. SEE THE SOURCE FOR USAGE DESCRIPTION. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00724/002 DISKCOPY OC O FILE:DISKCOPY D4T3 313 DISKCOPY..OC.002 1 LINE 80 4 PAGE UM HELFFRICH JULY 28, 1977 23:59:21 FILE:DISKCOPY 00725 B ACCFORMAT SA G ACCF COPY:ACCFORMAT RD16T1 217 ACCFORMAT..SA. 1 LINE 80 4 PAGE UM MTS HELFFRICH JULY 12, 1979 23:16:57 COPY:ACCFORMAT 0 COPY SECTION DESCRIBING THE FORMAT OF THE MTS ACCOUNTING RECORD. THIS FILE IS COPIED BY ANY PROGRAM USING THE THEDSECT MACRO IN MTS.MACROS (344/3). 0 Referenced by comments of: 680/1 00726 CNFGSOU SA # (OBSOLETE) D4T3 315 CNFGSOU..SA.001 1 LINE 80 3 PAGE UM JULY 28, 1977 23:59:24 00727/001 *FTNTIDY SA G W062:FTNTIDY.S D4.2T1 735 FTNTIDY..SA.001 1 LINE 124 80 PAGE UM TIFFANY APR. 02, 1979 00:55:02 0 REPLACEMENT PROGRAM FOR *TIDY (229) AND *FRISK (533). SOURCE IS ORDERED LIKE A MACRO LIBRARY. LINES AT FRONT OF SOURCE CONTAIN COMMANDS FOR ASSEMBLING; THE SOURCE STARTS AT LINE 1000. ASSEMBLE USING THE FTNTIDY MACLIB (727/2) AND WITH PAR=BATCH,SIZE=32. COPIES *GDINFODSECT (594). >>> NOTE: *FTNTIDY CURRENTLY UNDERSTANDS FORTRAN 77 (SUBJECT TO CHANGES); E.G., IT PROPERLY INDENTS IF ... ELSEIF ... ENDIF. NO ATTEMPT IS MADE TO PROCESS INPUT FOR PREPROCESSORS SUCH AS OVERDRIVE, FLECS, RATFOR, AND STRUCTURED WATFIV. 0 Referenced by comments of: 9002/1 00727/002 *FTNTIDY MACLIB SM G W062:FTNTIDYMAC D4.2T1 736 FTNTIDY.MACLIB.SM.002 1 LINE 72 7 PAGE UM TIFFANY APR. 02, 1979 00:55:50 0 Referenced by comments of: 727/1 00727/003 *FTNTIDY OE G *FTNTIDY D4.2T1 737 FTNTIDY..OE.003 1 LINE 10521 20 PAGE UM TIFFANY APR. 02, 1979 00:55:51 *FTNTIDY 00728 B MISC.MACROS SM G COPY:MISC.MACROS RD16T1 218 MISC.MACROS..SM. 1 LINE 72 4 PAGE UM MTA JULY 12, 1979 23:16:58 COPY:MISC.MACROS 0 CONTAINS VARIOUS MISCELLANEOUS SYSTEM MACROS INCLUDING CONSDSCT (THE CONSIO DSECT USED BY THE OPERATOR JOB, CONSIO SUBROUTINE, AND CONFIG JOB), IPLTVDCT USED BY IPLREAD AND CONFIG, AND THE MIF MACROS. DOCUMENTATION FOR THE MIF MACROS IS AVAILABLE IN 685/6. 0 Referenced by comments of: 4/4, 21/1, 46/1, 629/1, 634/1, 634/4, 3024/1 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00729/001 FIND LABEL *FLB C *FLB D4.2T1 739 FIND_LABEL.*FLB.C.001 1 LINE 47 1 PAGE UM WSG APR. 02, 1979 00:55:53 *FLB 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE FNDLBL PROGRAM (729/1). INVOKED BY ENTERING MTS *FLB ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 135/1, 729/1 00729/002 FIND LABEL FNDLBL PGM SA G FLBL S0792 WSGFS FSNAME=FNDLBL D4.2T1 740 FIND_LABEL.FNDLBL_PGM.SA.002 1 LINE 80 5 PAGE UM WSG AUG. 28, 1978 14:24:33 0 PROGRAM TO READ A TAPE, PRINTING OUT THE VOLUME LABEL AND DENSITY. SOURCE IN LINES (1,999). 00729/003 FIND LABEL FNDLBL PGM OC G SYS:FNDLBL D4.2T1 741 FIND_LABEL.FNDLBL_PGM.OC.003 1 LINE 80 2 PAGE UM WSG APR. 02, 1979 00:55:56 SYS.:FNDLBL 00730 TSS UTILITIES OC G MTS:TSS/REL2.UTL D4.1T1 550 TSS_UTILITIES..OC. 1 SEQ 80 29 PAGE UM WSG MAY 13, 1978 18:21:19 MTS:TSS/REL2.UTL 0 IPL-ABLE DECKS FOR TSS RELEASE 2 UTILITIES (DASDI, DUMP/RESTORE, AND VAM2 UTILITIES). MODIFIED IBM OBJECT TO ALLOW ALL 16 CHANNELS. 00731/001 CHECKFE SUBR SA G CKFE S0683 OGDEN FSNAME=CHECKFE.S D4.1T1 551 CHECKFE_SUBR..SA.001 1 LINE 80 4 PAGE UM OGDEN DEC. 04, 1977 23:08:50 0 SUBROUTINE CALLED BY SSRTN (413/1) TO CHECK THE STATUS OF THE THREE DATA CONCENTRATORS AND THE MERIT PDP-11, STORE THE STATUS CODE IN THE JOBSTA VECTOR, AND, OPTIONALLY, START AN MTS JOB IF "BAD" STATUS IS RETURNED. CALLS THE FESNIFF SUBROUTINE (731/3). COPIES COPY:JOBSTA (413/9). 0 Referenced by comments of: 413/1, 731/3 00731/002 CHECKFE SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00731/003 CHECKFE SUBR FESNIFF SUBR SA G FESN S0683 OGDEN FSNAME=FESNIFF.S D4.2T1 742 CHECKFE_SUBR.FESNIFF_SUBR.SA.003 1 LINE 80 6 PAGE UM OGDEN FEB. 10, 1979 21:55:19 0 SUBROUTINE CALLED BY CHECKFE (731/1) AND CHKDEV (734/3) TO ACTUALLY DETERMINE THE STATUS OF ONE OF THE DATA CONCENTRATORS OR THE MERIT PDP-11. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). 0 Referenced by comments of: 731/1, 734/3 00731/004 CHECKFE SUBR FESNIFF SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00732/001 STOR SA G STOR W170:STOR(1005) D4.1T1 553 STOR..SA.001 1 LINE 80 37 PAGE UM HELFFRICH MAY 13, 1978 18:21:48 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). 00732/002 STOR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00732/003 STOR TEST PROGRAM SA G W170:STOR.DUMP(1001) D4.1T1 554 STOR.TEST_PROGRAM.SA.003 1 LINE 72 3 PAGE UM HELFFRICH MAY 13, 1978 18:22:05 W170:STOR.DUMP 0 TEST PROGRAM TO BE $DEBUGED WITH 732/2 TO TEST IT. STORAGE REQUESTS CAN BE SIMULATED BY CHANGING REGISTER CONTENTS AND GO-ING TO THE ROUTINE ENTRY POINT. A CALL TO ROUTINE STORDUMP CAN BE SET UP TO DUMP THE RESULTANT CONTROL BLOCK STRUCTURE. SEE COMMENTS IN LISTING. 00732/004 STOR TEST PROGRAM OC G W170:STOR.DUMP(1,999) D4.1T1 555 STOR.TEST_PROGRAM.OC.004 1 LINE 80 3 PAGE UM HELFFRICH MAY 13, 1978 18:22:06 00733/001 INTRO GUIDE: TERMINALS WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERMINAL.SOU D4.1T1 556 INTRO_GUIDE:_TERMINALS..WF.001 1 LINE 116 49 PAGE UM MANUAL DEC. 12, 1977 22:20:36 0 FORMAT SOURCE FOR "INTRODUCTION TO TERMINALS" (NOV 1977). 00733/002 INTRO GUIDE: TERMINALS PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERMINAL.OUT D4.1T1 557 INTRO_GUIDE:_TERMINALS..PF.002 1 LINE 135 79 PAGE UM MANUAL DEC. 12, 1977 22:20:59 0 FORMAT PRINT FILE. 00733/003 INTRO GUIDE: TERMINALS INDEX D S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TERM.INDEXSO D4.1T1 558 INTRO_GUIDE:_TERMINALS.IN.D.003 1 LINE 100 3 PAGE UM MANUAL DEC. 12, 1977 22:21:30 0 INPUT TO *INDEX (580) FOR THE INDEX. 00734/001 HUH *HUH C *HUH D4.2T1 743 HUH.*HUH.C.001 1 LINE 58 1 PAGE UM OGDEN APR. 02, 1979 00:56:02 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 S0683 OGDEN FSNAME=HUH.S D4.1T1 560 HUH.HUH_PGM.SG.002 1 LINE 106 1 PAGE UM OGDEN DEC. 04, 1977 23:08:57 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 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00734/003 HUH CHKDEV SUBR SA G CHKD S0683 OGDEN FSNAME=CHKDEV.S D4.1T1 561 HUH.CHKDEV_SUBR.SA.003 1 LINE 80 3 PAGE UM OGDEN DEC. 04, 1977 23:09:17 0 SUBROUTINE CALLED BY MUP (642/15) AND HUH (734/2) TO DETERMINE THE STATE OF THE MERIT PDP-11 OR ONE OF THE DATA CONCENTRATORS AND TO RETURN THE STATE AND AN ASSOCIATED TEXT STRING. CALLS FESNIFF (731/3). 0 Referenced by comments of: 642/15, 731/3, 734/2, 734/4 00734/004 HUH OC G SYS:HUH D4.1T1 562 HUH..OC.004 1 LINE 1620 3 PAGE UM OGDEN MAY 13, 1978 18:22:52 0 OBJECT FOR HUH (734/2) AND CHKDEV (734/3). 00735/001 RESOURCES FILEDEF D DBME:RES.FD D4.1T1 563 RESOURCES.FILEDEF.D.001 1 LINE 87 9 PAGE UM OGDEN MAY 13, 1978 18:22:52 0 THE FILE DEFINITION FOR THE SPIRES FILE DBME.RESOURCES, A CATALOG OF PROGRAMS, SUBROUTINES, AND DATA FILES AVAILABLE AT MICHIGAN COLLEGES AND UNIVERSITIES (UM, WSU, MSU, AND WMU). THIS FILE SHOULD BE USED WITH SPIRES 5.0 OR LATER VERSIONS ONLY AND SHOULD NOT BE RENUMBERED. ALWAYS COPY @-IC. 00735/002 RESOURCES NOTES WF S0683 OGDEN FSNAME=RES.NOTES.F D4.1T1 564 RESOURCES.NOTES.WF.002 1 LINE 65 2 PAGE UM OGDEN JAN. 30, 1978 12:11:52 0 NOTES ON INSTALLING DBME.RESOURCES. 00735/003 RESOURCES /A FILE D DBME:RESOURCES/A D4.2T1 744 RESOURCES./A_FILE.D.003 1 LINE 2048 822 PAGE UM OGDEN APR. 02, 1979 00:56:03 0 THE /A FILE FOR DBME.RESOURCES. 00735/004 RESOURCES /Q FILE D DBME:RESOURCES/Q D4.2T1 745 RESOURCES./Q_FILE.D.004 1 LINE 2048 3 PAGE UM OGDEN APR. 02, 1979 00:56:53 0 THE /Q FILE FOR DBME.RESOURCES. 00735/005 RESOURCES FORMATS D DBME:RES.FORMATS D4.2T1 746 RESOURCES.FORMATS.D.005 1 LINE 82 15 PAGE UM OGDEN APR. 02, 1979 00:56:53 0 THE FORMATS ASSOCIATED WITH DBME.RESOURCES. THIS FILE IS ORGANIZED BY 1000S. 00735/006 RESOURCES THESAURUS D DBME:RES.THE D4.1T1 568 RESOURCES.THESAURUS.D.006 1 LINE 87 8 PAGE UM OGDEN MAY 13, 1978 18:23:59 0 BATCH INPUT USED TO BUILD THE THESAURUS ASSOCIATED WITH THE SPIRES SUBFILE RES-SUBJECTS. 00735/007 RESOURCES RES-SUBCHK D DBME:RES.SUBCHK D4.1T1 569 RESOURCES.RES-SUBCHK.D.007 1 LINE 113 11 PAGE UM OGDEN MAY 13, 1978 18:24:01 0 BATCH INPUT USED TO BUILD THE SPIRES SUBFILE RES-SUBCHK. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00735/008 RESOURCES JUG SUB. CODES P DBME:RES.SUBJECT D4.1T1 570 RESOURCES.JUG_SUB._CODES.P.008 1 LINE 72 6 PAGE UM OGDEN MAY 13, 1978 18:24:05 0 A "READABLE" LIST OF THE MODIFIED JOINT USERS GROUP (JUG) SUBJECT CODES. 00736/001 PLM PASS 0 SF O PLMO S0684 UNSP FSNAME=PLM80.S D4.1T1 571 PLM.PASS_0.SF.001 1 LINE 80 1 PAGE UM UNSP DEC. 19, 1977 11:41:29 0 THE INTEL PL/M CROSS COMPILER (VERSION 2) FOR THE 8080 MICROPROCESSOR. THIS IS A SHORT FORTRAN PROGRAM THAT SETS UP SOME DEFAULT I/O UNIT ASSIGNMENTS BY CALLING FTNCMD AND THEN LINKS TO PASS1 (736/3) AND PASS2 (736/5) OF THE COMPILER. DOCUMENTATION IS INCLUDED IN UNSP:WRITEUPS (685/2). 00736/002 PLM PASS 0 OE O UNSP:PLM D4.1T1 572 PLM.PASS_0.OE.002 1 LINE 1162 1 PAGE UM UNSP MAY 13, 1978 18:24:09 UNSP:PLM 00736/003 PLM PASS 1 SF O S0684 UNSP FSNAME=PLM81.S D4.1T1 573 PLM.PASS_1.SF.003 1 LINE 80 83 PAGE UM UNSP DEC. 19, 1977 11:41:42 0 PASS 1 OF VERSION 2 OF INTEL'S PL/M CROSS COMPILER. 0 Referenced by comments of: 736/1 00736/004 PLM PASS 1 OE O UNSP:PLM81 D4.1T1 574 PLM.PASS_1.OE.004 1 LINE 31604 24 PAGE UM UNSP MAY 13, 1978 18:24:12 UNSP:PLM81 00736/005 PLM PASS 2 SF O S0684 UNSP FSNAME=PLM82.S D4.1T1 575 PLM.PASS_2.SF.005 1 LINE 80 137 PAGE UM UNSP DEC. 19, 1977 11:42:30 0 PASS 2 OF VERSION 2 OF INTEL'S PL/M CROSS COMPILER. 0 Referenced by comments of: 736/1 00736/006 PLM PASS 2 OE O UNSP:PLM82 D4.1T1 576 PLM.PASS_2.OE.006 1 LINE 32767 29 PAGE UM UNSP MAY 13, 1978 18:24:19 UNSP:PLM82 00736/007 PLM SAMPLE PGM S G UNSP:PLM.SAMPLE D4.2T1 747 PLM.SAMPLE_PGM.S.007 1 LINE 72 1 PAGE UM UNSP APR. 02, 1979 00:56:57 0 A SAMPLE PLM PROGRAM. 00737/001 *ASMH BASIC MATERIAL O O # S0858 'ASMH PTF 21' FMT=FB(3440,80) 1 UM MTA 0 IBM ASMH PROGRAM PRODUCT ASSEMBLER, WHICH CANNOT BE DISTRIBUTED, BUT MUST BE OBTAINED DIRECTLY FROM IBM. THE MTS DISTRIBUTION CONSISTS ONLY OF DOCUMENTATION AND COMMANDS, PROGRAMS, AND UPDATES TO THE IBM SOURCE TO INSTALL ASMH IN MTS. COMPONENTS 737/1 - 737/9 ARE THE OS VERSION WHICH IS INTENDED TO BE USED UNDER *FAKEOS TO ASSEMBLE THE MTS 1 THU SEP 12/96 23:39:34 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 VERSION, WHICH BEGINS WITH COMPONENT 737/10. 737/1, THE BASIC MATERIAL, IS THE IBM SUPPLIED TAPE FOR PTF 21 ASMH. THE PAPER LABEL ON THE IBM TAPE HAS THE FOLLOWING FORM: *************************** **** 5734-AS1 **** *** *** ** LICEN-PROGRAM IBM PROPERTY ** * COPYRIGHT 1970 IBM CORP. * * * * F0021 PF02 * * 987-G3-30 ***** V05 M00 * * 5806171 *** *** 9TR/1600 * * #0535 ** ** B0064 * ***************** ***************** 0 Referenced by comments of: 511/1, 648/1, 648/2, 648/3, 648/4, 648/5, 648/17, 648/18, 721/1 00737/002 *ASMH OS INFO WF S1143 D4.1T1 VLO FSNAME=ASMH.OS_INFO.WF.002(1) 577 D4.1T1 577 ASMH.OS_INFO.WF.002 1 LINE 98 2 PAGE UM MTA MAY 13, 1978 18:24:21 MTA.:ASMHINFO.OS 0 COMPUTING CENTER INTERNAL STAFF MEMO DESCRIBING THE USE OF ASMH UNDER *FAKEOS. 00737/003 *ASMH INVOKER SA G S1143 D4.1T1 VLO FSNAME=ASMH.INVOKER.SA.003(1) 578 D4.1T1 578 ASMH.INVOKER.SA.003 1 LINE 71 3 PAGE UM MTA MAY 13, 1978 18:24:22 MTA.:ASMHINVK 0 PROGRAM TO INVOKE *FAKEOS TO RUN THE OS VERSION OF ASMH. COPIES FAKEOS.GBLS (545/19) AND *GDINFODSECT (594). THE OBJECT PROGRAM USES NEW:ASMHSYSMAC (737/9), -ASMH#UT1, &ASMHID:ASMHLIB (737/7), AND &ASMHID:ASMHBLDL (737/6). 0 Referenced by comments of: 737/6, 737/7 00737/004 *ASMH INVOKER OE G S1143 D4.1T1 VLO FSNAME=ASMH.INVOKER.OE.004(1) 579 D4.1T1 579 ASMH.INVOKER.OE.004 1 SEQ 853 1 PAGE UM MTA MAY 13, 1978 18:24:23 00737/005 *ASMH BLDL INPUT D S1143 D4.1T1 VLO FSNAME=ASMH.BLDL_INPUT.D.005(1) 580 D4.1T1 580 ASMH.BLDL_INPUT.D.005 1 LINE 60 1 PAGE UM MTA MAY 13, 1978 18:24:24 MTA.:ASMHBLDLIN 0 INPUT TO *FAKEOSCREBLDL (545/37) FOR ASMH OS OBJECT DECKS. 00737/006 *ASMH BLDL D S1143 D4.1T1 VLO FSNAME=ASMH.BLDL.D.006(1) 581 D4.1T1 581 ASMH.BLDL.D.006 1 SEQ 250 1 PAGE UM MTA MAY 13, 1978 18:24:25 0 OUTPUT FROM *FAKEOSCREBLDL (545/37) FOR OS VERSION OF ASMH. USED BY ASMHINVK (737/3). 0 Referenced by comments of: 737/3 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00737/007 *ASMH OS LIBRARY OL O # ETC:ASMHLIB UM MTA 0 OBJECT LIBRARY VERSION OF OS ASMH. USED BY ASMHINVK (737/3). THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 737/3 00737/008 *ASMH BLOCK MACROS SS O S0938 FSAVE2 VLO FSNAME=ASMHBLOCKMAC D4.1T1 582 ASMH.BLOCK_MACROS.SS.008 1 LINE 70 1 PAGE UM MTA MAR. 09, 1978 22:41:24 0 PROGRAM TO BLOCK A MACRO LIBRARY FOR THE OS VERSION OF ASMH. THIS MAKES IT RUN FASTER AND ALLOWS LARGER LIBRARIES BY USING FEWER LINE NUMBERS. USES UNSP:SPITLIB. 00737/009 *ASMH SYSMAC SM G S1143 D4.1T1 VLO FSNAME=ASMH.SYSMAC.SM.009(1) 583 D4.1T1 583 ASMH.SYSMAC.SM.009 1 LINE 4000 98 PAGE UM MTA MAY 13, 1978 18:26:10 0 VERSION OF *SYSMAC FOR OS ASMH. THIS AGREED WITH *SYSMAC WHEN IT WAS PRODUCED EXCEPT FOR A FEW CHANGES WHICH WORK ONLY IN THE MTS VERSION OF ASMH. 0 Referenced by comments of: 737/3, 737/19 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/22 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/14 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00737/012 *ASMH INFO WF S1143 D4.1T1 VLO FSNAME=ASMH.INFO.WF.012(1) 584 D4.1T1 584 ASMH.INFO.WF.012 1 LINE 140 4 PAGE UM MTA MAY 13, 1978 18:26:16 MTA.:ASMHINFO 0 MEMO TO COMPUTING CENTER STAFF DESCRIBING THE MTS (NOT *FAKEOS) VERSION OF *ASMH. 00737/013 *ASMH INFO2 WF S0938 FSAVE2 VLO FSNAME=ASMHINFO2(1) 448 D4.2T1 748 ASMH.INFO2.WF.013 1 LINE 80 2 PAGE UM MTA NOV. 01, 1978 02:17:47 0 ADDENDUM TO 737/12. 00737/014 *ASMH UTILITY SS O MTA:ASMHUTIL D4.2T1 749 ASMH.UTILITY.SS.014 1 LINE 117 4 PAGE UM MTA APR. 02, 1979 00:58:59 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/24), ASMHDIR (737/15), ASMHUPD (737/17), ASMHUPDBUGS (737/18), ASMHUPDMTS (737/19), ASMHUPDNUM (737/20), ASMHUPDEXTEN (737/21), ASMHOBJ (737/24), VARIOUS SCRATCH FILES, UNSP:SPITLIB, ASMHLOG, AND MTS:UBCUPDATE (1036). 0 Referenced by comments of: 737/15 00737/015B *ASMH DIR D MTA:ASMHDIR RD16T1 219 ASMH.DIR.D.015 1 LINE 208 3 PAGE UM MTA JULY 12, 1979 23:16:59 MTA.:ASMHDIR 0 DIRECTORY OF LOCATION OF *ASMH COMPONENTS USED BY ASMHUTIL (737/14). 0 Referenced by comments of: 737/14 00737/016 *ASMH INSTALL C MTA:ASMHINSTALL D4.2T1 751 ASMH.INSTALL.C.016 1 LINE 50 1 PAGE UM MTA APR. 02, 1979 00:59:01 MTA.:ASMHINSTALL 0 COMMANDS TO CREATE A NEW VERSION OF SEG2:ASMH IN -SEG2. 00737/017 *ASMH FIRST UPDATE UC G MTA:ASMHUPD D4.1T1 587 ASMH.FIRST_UPDATE.UC.015 1 LINE 43 3 PAGE UM MTA MAY 13, 1978 18:26:20 MTA.:ASMHUPD 0 UPDATE TO GET RID OF THE ./ CARDS AND IRRELEVANT COMPONENTS IN THE SOURCE ON THE IBM TAPE. MUST BE THE FIRST UPDATE APPLIED. THE OTHERS SHOULD WORK IN ANY ORDER, BUT MAY NOT. THE ORDER USED HERE IS BUGS, MTS, NUM, AND EXTEN. HAS $CONTINUE WITHS TO ASMHUPDBUGS (737/18), ASMHUPDMTS (737/19), ASMHUPDNUM (737/20), AND ASMHUPDEXTEN (737/21). 0 Referenced by comments of: 737/14 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00737/018 *ASMH BUGS UPDATE UC G MTA:ASMHUPDBUGS D4.1T1 588 ASMH.BUGS_UPDATE.UC.016 1 LINE 71 18 PAGE UM MTA MAY 13, 1978 18:26:21 MTA.:ASMHUPDBUGS 0 UPDATE TO FIX BUGS AND CLEAN UP ASMH, INCLUDING SEVERAL SPEED IMPROVEMENTS. 0 Referenced by comments of: 737/14, 737/17 00737/019 *ASMH MTS UPDATE UC G MTA:ASMHUPDMTS D4.1T1 589 ASMH.MTS_UPDATE.UC.017 1 LINE 78 28 PAGE UM MTA MAY 13, 1978 18:26:32 MTA.:ASMHUPDMTS 0 UPDATE TO MAKE ASMH WORK IN MTS. THREE " COPY *GDINFODSECT" STATEMENTS IN THIS FILE MUST BE CHANGED TO " COPY GDDSECT" FOR THE FIRST ASSEMBLY OF ASMH (UNDER *FAKEOS) SINCE THE OS VERSION RESTRICTS COPY SECTION NAMES TO EIGHT-CHARACTER IDENTIFIERS. ALSO, A MACRO LIBRARY CONTAINING ASMHSYSMAC (737/9), ASMHMACLIB (737/24), AND GDDSECT, MUST BE BUILT, SINCE ONLY ONE MACRO LIBRARY IS ALLOWED BY THE OS VERSION. 0 Referenced by comments of: 737/14, 737/17 00737/020 *ASMH NUM UPDATE UC G MTA:ASMHUPDNUM D4.1T1 590 ASMH.NUM_UPDATE.UC.018 1 LINE 70 5 PAGE UM MTA MAY 13, 1978 18:26:51 MTA.:ASMHUPDNUM 0 UPDATE TO ADD NUM OPTION. 0 Referenced by comments of: 737/14, 737/17 00737/021 *ASMH EXTEN OPTION UC G MTA:ASMHUPDEXTEN D4.2T1 752 ASMH.EXTEN_OPTION.UC.021 1 LINE 72 11 PAGE UM MTA APR. 02, 1979 00:59:02 MTA.:ASMHUPDEXTEN 0 UPDATE TO ADD FEATURES CONTROLLED BY EXTEN OPTION. 0 Referenced by comments of: 737/14, 737/17 00737/022B *ASMH MACRO UPDATE UC G MTA:ASMHMACUPD RD16T1 220 ASMH.MACRO_UPDATE.UC.022 1 LINE 77 13 PAGE UM MTA JULY 12, 1979 23:17:00 MTA.:ASMHMACUPD 0 UPDATE TO PRODUCE THE MTS MACRO LIBRARY FROM THE IBM SOURCE (737/10). 00737/023B *ASMH NEW UPDATES UC G MTA:ASMHUPDNEW RD16T1 221 ASMH.NEW_UPDATES.UC.023 1 LINE 75 36 PAGE UM MTA JULY 12, 1979 23:17:05 MTA:ASMHUPDNEW 0 POST D4.1 UDPATES, IN CHRONOLOGICAL ORDER, TO ASMH. ***************************************************************************** RD16 NOTE: UPDATES BETWEEN LINE 2533 AND 2928 HAVE BEEN PARTIALLY DEBUGGED, BUT MAY STILL HAVE BUGS. UPDATES AFTER LINE 2928 HAVE NEVER BEEN TRIED. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 ***************************************************************************** 00737/024B *ASMH MACRO LIBRARY SM G # WATF:ASMHMACLIB UM MTA 0 OUTPUT FROM 737/22 UPDATE. 0 Referenced by comments of: 737/14, 737/19, 737/27 00737/025 *ASMH MAIN PGM SA G MTA:ASMHMAIN(1,999) D4.1T1 593 ASMH.MAIN_PGM.SA.022 1 LINE 38 1 PAGE UM MTA MAY 13, 1978 18:27:00 MTA.:ASMHMAIN 0 MAIN PROGRAM TO CALL IEV90. THIS PLUS IEV60 AND IEV61 ARE IN *ASMH. THE REST MAY BE EITHER THERE OR IN SHARED VM. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 737/29 00737/026 *ASMH MAIN PGM OC G MTA:ASMHMAIN(1000) D4.1T1 594 ASMH.MAIN_PGM.OC.023 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 18:27:01 0 ENDS WITH A "$CONTINUE WITH MTA:ASMHOBJ" RECORD. 00737/027 *ASMH OPTIONS ASMBLY SA G S1143 D4.1T1 VLO FSNAME=ASMH.OPTIONS_ASMBLY.SA.024(1) 595 D4.1T1 595 ASMH.OPTIONS_ASMBLY.SA.024 1 LINE 49 1 PAGE UM MTA MAY 13, 1978 18:27:02 MTA.:ASMHOPTIONS 0 SOURCE FOR THE "SYSGEN OPTIONS" ASSEMBLY WHICH PRODUCES IEV61 WITH LOCAL OPTIONS. ASSEMBLE USING ASMHMACLIB (737/24). 00737/028B *ASMH OBJECT OC G # MTA:ASMHOBJ UM MTA 0 FULL OBJECT WITH SYM CARDS. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 00737/029 *ASMH *ASMH OE G # *ASMH UM MTA 0 COMBINED AND PURGED OBJECT OF ASMHMAIN (737/25), IEV60, AND IEV61. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 00737/030B *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/031 *ASMH TEST PGM #1 SA G MTA:ASMHT1 D4.1T1 596 ASMH.TEST_PGM_#1.SA.028 1 LINE 54 1 PAGE UM MTA MAY 13, 1978 18:27:03 0 PROGRAM TO TEST SS INSTRUCTIONS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00737/032 *ASMH TEST PGM #2 SA G MTA:ASMHT2 D4.1T1 597 ASMH.TEST_PGM_#2.SA.029 1 LINE 72 1 PAGE UM MTA MAY 13, 1978 18:27:03 0 PROGRAM TO TEST NEW SYSTEM SET SYMBOLS. START AT LINE *F. 00737/033 *ASMH TEST PGM #3 SA G MTA:ASMHT3 D4.2T1 755 ASMH.TEST_PGM_#3.SA.033 1 LINE 72 1 PAGE UM MTA APR. 02, 1979 00:59:13 0 PROGRAM TO TEST LITERALS IN EQU STATEMENTS AND EXPRESSIONS. 00737/034 *ASMH TEST PGM #4 SA G MTA:ASMHT4 D4.1T1 599 ASMH.TEST_PGM_#4.SA.031 1 LINE 76 1 PAGE UM MTA MAY 13, 1978 18:27:05 0 PROGRAM TO TEST LINE NUMBER PRINTING. START AT LINE *F. 00737/035 *ASMH TEST PGM #5 SA G MTA:ASMHT5 D4.1T1 600 ASMH.TEST_PGM_#5.SA.032 1 LINE 77 1 PAGE UM MTA MAY 13, 1978 18:27:06 0 PROGRAM TO TEST COPY AND LIBRARY MACROS. START AT LINE 10 AND ASSIGN 0 TO THIS FILE TOO. 00737/036 *ASMH TEST PGM #6 SA G MTA:ASMHT6 D4.1T1 601 ASMH.TEST_PGM_#6.SA.033 1 LINE 70 1 PAGE UM MTA MAY 13, 1978 18:27:07 0 PROGRAM TO TEST OPDEF, INSTSET, AND 360/67 INSTRUCTIONS. 00737/037 *ASMH TEST PGM #7 SA G MTA:ASMHT7 D4.1T1 602 ASMH.TEST_PGM_#7.SA.034 1 LINE 58 1 PAGE UM MTA MAY 13, 1978 18:27:08 0 PROGRAM TO TEST NULL TYPE C CONSTANTS IN DC OR DS STATEMENTS. 00737/038 *ASMH TEST PGM #8 SA G MTA:ASMHT8 D4.1T1 603 ASMH.TEST_PGM_#8.SA.035 1 LINE 72 1 PAGE UM MTA MAY 13, 1978 18:27:09 0 PROGRAM TO TEST "*NNN" ON LCLC OR GBLC DECLARATIONS. 00737/039 *ASMH TEST PGM #9 SA G MTA:ASMHT9 D4.1T1 604 ASMH.TEST_PGM_#9.SA.036 1 LINE 63 1 PAGE UM MTA MAY 13, 1978 18:27:10 0 PROGRAM TO TEST ILLEGAL USE OF & THAT BLOWS THE OS VERSION. START AT LINE 10 AND ASSIGN 0 TO THIS FILE. 00737/040 *ASMH TEST PGM #10 SA G MTA:ASMHT10 D4.1T1 605 ASMH.TEST_PGM_#10.SA.037 1 LINE 72 1 PAGE UM MTA MAY 13, 1978 18:27:11 0 PROGRAM TO TEST INNER MACRO DEFINITION. 00737/041B *ASMH TEST PGM #11 SA G MTA:ASMHT11 RD16T1 222 ASMH.TEST_PGM_#11.SA.041 1 LINE 72 3 PAGE UM MTA JULY 12, 1979 23:17:13 0 PROGRAM TO TEST ORDINARY SYMBOLS IN CONDITIONAL ASSEMBLY. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00737/042B *ASMH TEST PGM #12 SA G MTA:ASMHT12 RD16T1 223 ASMH.TEST_PGM_#12.SA.042 1 LINE 59 1 PAGE UM MTA JULY 12, 1979 23:17:14 0 PROGRAM TO TEST SYM CARDS. 00737/043 *ASMH TEST PGM #13 SA G MTA:ASMHT13 D4.2T1 757 ASMH.TEST_PGM_#13.SA.043 1 LINE 72 3 PAGE UM MTA APR. 02, 1979 00:59:14 0 PROGRAM TO TEST MACRO PARAMETER SCANNING. 00737/044 *ASMH TEST PGM #14 SA G MTA:ASMHT14 D4.1T1 609 ASMH.TEST_PGM_#14.SA.041 1 LINE 72 1 PAGE UM MTA MAY 13, 1978 18:27:16 0 PROGRAM TO TEST SERCOM OUTPUT. 00737/045 *ASMH TEST PGM #15 SA G MTA:ASMHT15 D4.1T1 610 ASMH.TEST_PGM_#15.SA.042 1 LINE 79 1 PAGE UM MTA MAY 13, 1978 18:27:17 0 PROGRAM TO TEST INTERMEDIATE TEXT FILE AND PRINT ONLY TEXT. 00737/046 *ASMH TEST PGM #16 SA G MTA:ASMHT16 D4.1T1 611 ASMH.TEST_PGM_#16.SA.043 1 LINE 45 1 PAGE UM MTA MAY 13, 1978 18:27:18 0 PROGRAM TO TEST REDEFINITION OF MACROS. 00737/047 *ASMH TEST PGM #17 SA G MTA:ASMHT17 D4.1T1 612 ASMH.TEST_PGM_#17.SA.044 1 LINE 61 1 PAGE UM MTA MAY 13, 1978 18:27:19 0 PROGRAM TO TEST AREAD. 00737/048 *ASMH TEST PGM #18 SA G MTA:ASMHT18 D4.1T1 613 ASMH.TEST_PGM_#18.SA.045 1 LINE 53 1 PAGE UM MTA MAY 13, 1978 18:27:21 0 PROGRAM TO TEST MSGLEVEL PARAMETER AND SERCOM OUTPUT. RUN WITH MSGLEVEL=9. 00737/049 *ASMH TEST PGM #19 SA G MTA:ASMHT19 D4.1T1 614 ASMH.TEST_PGM_#19.SA.046 1 LINE 75 1 PAGE UM MTA MAY 13, 1978 18:27:22 0 PROGRAM TO TEST CONTINUATION AT FUNNY PLACES WHICH DON'T WORK IN OS VERSION. 00737/050 *ASMH TEST PGM #20 SA G MTA:ASMHT20 D4.1T1 615 ASMH.TEST_PGM_#20.SA.047 1 LINE 28 1 PAGE UM MTA MAY 13, 1978 18:27:23 0 PROGRAM TO TEST REPRO. 00737/051 *ASMH TEST PGM #21 SA G MTA:ASMHT21 D4.2T1 758 ASMH.TEST_PGM_#21.SA.051 1 LINE 74 2 PAGE UM MTA APR. 02, 1979 00:59:16 0 PROGRAM TO TEST MNOTE AND PUNCH. 00737/052B *ASMH TEST PGM #22 SA G MTA:ASMHT22 RD16T1 224 ASMH.TEST_PGM_#22.SA.052 1 LINE 72 1 PAGE UM MTA JULY 12, 1979 23:17:16 0 PROGRAM TO TEST TITLE, EJECT, SPACE, AND PRINT. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00737/053 *ASMH TEST PGM #23 SA G MTA:ASMHT23 D4.1T1 618 ASMH.TEST_PGM_#23.SA.050 1 LINE 39 1 PAGE UM MTA MAY 13, 1978 18:27:27 0 PROGRAM TO TEST RS AND SI INSTRUCTIONS. 00737/054B *ASMH TEST PGM #24 SA G MTA:ASMHT24 RD16T1 225 ASMH.TEST_PGM_#24.SA.054 1 LINE 61 1 PAGE UM MTA JULY 12, 1979 23:17:17 0 PROGRAM TO TEST ADCONS IN DSECTS. 00737/055 *ASMH TEST PGM #25 SA G MTA:ASMHT25 D4.1T1 620 ASMH.TEST_PGM_#25.SA.052 1 LINE 72 1 PAGE UM MTA MAY 13, 1978 18:27:29 0 PROGRAM TO TEST TYPE X, B, AND C CONSTANTS. 00737/056 *ASMH TEST PGM #26 SA G MTA:ASMHT26 D4.1T1 621 ASMH.TEST_PGM_#26.SA.053 1 LINE 37 1 PAGE UM MTA MAY 13, 1978 18:27:29 0 PROGRAM TO TEST EJECT AT BOTTOM OF PAGE WHICH GIVES A BLANK PAGE IN OS VERSION. 00737/057 *ASMH TEST PGM #27 SA G MTA:ASMHT27 D4.1T1 622 ASMH.TEST_PGM_#27.SA.054 1 LINE 64 1 PAGE UM MTA MAY 13, 1978 18:27:30 0 PROGRAM TO TEST TRUNCATED SETC EXPRESSIONS. 00737/058 *ASMH TEST PGM #28 SA G MTA:ASMHT28 D4.1T1 623 ASMH.TEST_PGM_#28.SA.055 1 LINE 72 1 PAGE UM MTA MAY 13, 1978 18:27:31 0 PROGRAM TO TEST BLANK CARDS WITH AND WITHOUT LABELS. 00737/059 *ASMH TEST PGM #29 SA G MTA:ASMHT29 D4.1T1 624 ASMH.TEST_PGM_#29.SA.056 1 LINE 55 1 PAGE UM MTA MAY 13, 1978 18:27:32 0 PROGRAM TO TEST LENGTH ATTRIBUTE WITH LITERALS, SET SYMBOLS, AND PARAMETERS. 00737/060 *ASMH TEST PGM #30 SA G MTA:ASMHT30 D4.1T1 625 ASMH.TEST_PGM_#30.SA.057 1 LINE 54 1 PAGE UM MTA MAY 13, 1978 18:27:33 0 PROGRAM TO TEST TITLES WITH SET SYMBOLS AND IN MACROS. 00737/061 *ASMH TEST PGM #31 SA G MTA:ASMHT31 D4.1T1 626 ASMH.TEST_PGM_#31.SA.058 1 LINE 67 1 PAGE UM MTA MAY 13, 1978 18:27:34 0 PROGRAM TO TEST MHELP 8 OUTPUT. 00737/062B *ASMH TEST PGM #32 SA G MTA:ASMHT32 RD16T1 226 ASMH.TEST_PGM_#32.SA.062 1 LINE 65 1 PAGE UM MTA JULY 12, 1979 23:17:19 0 PROGRAM TO TEST UNREFERENCED DXD'S. 00737/063 *ASMH TEST PGM #33 SA G MTA:ASMHT33 D4.2T1 760 ASMH.TEST_PGM_#33.SA.063 1 LINE 66 1 PAGE UM MTA APR. 02, 1979 00:59:17 0 PROGRAM TO TEST EXPRESSIONS IN Q TYPE CONSTANTS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00737/064C *ASMH TEST PGM #34 SA G MTA:ASMHT34 RD16T1 227 ASMH.TEST_PGM_#34.SA.064 1 LINE 72 4 PAGE UM MTA JULY 12, 1979 23:17:20 0 PROGRAM TO TEST ORG AND LOCTR. CONTAINS SEVERAL ASSEMBLIES. 00737/065C *ASMH TEST PGM #35 SA G MTA:ASMHT35 RD16T1 228 ASMH.TEST_PGM_#35.SA.065 1 LINE 72 1 PAGE UM MTA JULY 12, 1979 23:17:21 0 PROGRAM TO TEST TRAILING COMMAS ON VARIOUS ASSEMBLER STATEMENTS. 00737/066C *ASMH TEST PGM #36 SA G MTA:ASMHT36 RD16T1 229 ASMH.TEST_PGM_#36.SA.066 1 LINE 58 1 PAGE UM MTA JULY 12, 1979 23:17:22 0 TEST PROGRAM FOR PEXIT SUBROUTINE AND PARAMETER AND OCTL. INTENDED TO BE USED WITH 737/68. 00737/067C *ASMH PEXIT TEST SA G MTA:ASMH.PEXIT(1000) RD16T1 230 ASMH.PEXIT_TEST.SA.067 1 LINE 72 1 PAGE UM MTA JULY 12, 1979 23:17:23 0 SAMPLE PEXIT SUBROUTINE WHICH WRITES ITS PARAMETERS AND LINE AS UNIT 19. 00737/068C *ASMH PEXIT TEST OC G MTA:ASMH.PEXIT(1,999) RD16T1 231 ASMH.PEXIT_TEST.OC.068 1 LINE 80 1 PAGE UM MTA JULY 12, 1979 23:17:24 00737/069 *ASMH CALLER SA G MTA:ASMHCALLER(1,999) D4.1T1 628 ASMH.CALLER.SA.060 1 LINE 67 1 PAGE UM MTA MAY 13, 1978 18:27:36 0 PROGRAM TO TEST DYNAMIC INVOCATION OF ASMH. ASSEMBLE USING *SYSMAC. 00737/070 *ASMH CALLER OC G S1143 D4.1T1 VLO FSNAME=ASMH.CALLER.OC.061(1) 629 D4.1T1 629 ASMH.CALLER.OC.061 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 18:27:37 00738/001 *MACUTIL SOURCE SA G LBT:MACUTIL.S D4.2T1 761 MACUTIL.SOURCE.SA.001 1 LINE 73 93 PAGE UM TIFFANY APR. 02, 1979 00:59:18 0 *MACUTIL WAS ADAPTED FROM *OBJUTIL WITH MANY MODIFICATIONS FOR MACROS INSTEAD OF OBJECT MODULES; THE COMMAND LANGUAGE IS SIMILAR TO THAT OF *OBJUTIL. THE PROGRAM IS REENTRANT AND MAY BE LOADED INTO SHARED VM. *MACUTIL CALLS THE EDITOR EST SUBROUTINE (648/6). COMMANDS TO ASSEMBLE ARE AT NEGATIVE LINE NUMBERS. ASSEMBLE USING THE MACUTIL MACROS (738/7) AND THE OBJUTIL MACROS (721/4). COPIES *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. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00738/002 *MACUTIL OBJECT OE G *MACUTIL D4.2T1 762 MACUTIL.OBJECT.OE.002 1 LINE 13072 11 PAGE UM TIFFANY APR. 02, 1979 00:59:36 *MACUTIL 0 CONTAINS EDITOR EST SUBROUTINE (648/6). 00738/003 *MACUTIL WRITEUP WT W062:MACUTIL.W D4.1T1 632 MACUTIL.WRITEUP.WT.003 1 LINE 124 13 PAGE UM TIFFANY MAY 13, 1978 18:27:48 00738/004 *MACUTIL GENEXPLAIN SS G W062:GENEXPLAIN.S D4.1T1 633 MACUTIL.GENEXPLAIN.SS.004 1 LINE 90 3 PAGE UM TIFFANY MAY 13, 1978 18:27:52 0 SPITBOL SOURCE FOR PROGRAM TO GENERATE EXPLAIN MESSAGE FILE (738/6) FROM TEXT360 PRINT FILE. 0 Referenced by comments of: 738/6 00738/005 *MACUTIL GENEXPLAIN OE G W062:GENEXPLAIN D4.1T1 634 MACUTIL.GENEXPLAIN.OE.005 1 LINE 18216 9 PAGE UM TIFFANY MAY 13, 1978 18:27:53 0 SPITBOL OBJECT FOR GENEXPLAIN. 00738/006 *MACUTIL EXPLAIN M ETC:MACUTILEXP D4.1T1 635 MACUTIL.EXPLAIN.M.006 1 LINE 75 15 PAGE UM TIFFANY MAY 13, 1978 18:27:54 ETC.:MACUTILEXP 0 EXPLAIN MESSAGE FILE GENERATED BY GENEXPLAIN (738/4). 0 Referenced by comments of: 738/4 00738/007 *MACUTIL MACLIB SM G W062:NEWMAC D4.2T1 763 MACUTIL.MACLIB.SM.007 1 LINE 72 5 PAGE UM TIFFANY APR. 02, 1979 00:59:37 0 MACRO LIBRARY FOR *MACUTIL. 0 Referenced by comments of: 738/1 00739/001 LOGPURGE LOGPURGE SG G S0027 DISTRB FSNAME=LOGPURGE D4.1T1 636 LOGPURGE.LOGPURGE.SG.001 1 LINE 84 3 PAGE UM ENGLE FEB. 24, 1978 17:56:37 0 PROGRAM TO PURGE LINES FROM A LOG FILE AFTER A SPECIFIED RETENTION PERIOD. REQUIRES THE DATE OF THE RECORD, WHICH MAY BE MM/DD/YY, OR DAYS, MINUTES, SECONDS, OR MICROSECONDS STARTING WITH 3/1/0, TO BE IN A FIXED POSITION IN EACH RECORD. SEE SOURCE FOR RUN INSTRUCTIONS. 0 Referenced by comments of: 104/150 00739/002 LOGPURGE LOGPURGE OC G S0027 DISTRB FSNAME=LOGP D4.1T1 637 LOGPURGE.LOGPURGE.OC.002 1 LINE 80 3 PAGE UM ENGLE FEB. 24, 1978 17:57:14 00739/003 LOGPURGE LOGPKWFN SG G S0027 DISTRB FSNAME=LOGPKWFN D4.1T1 638 LOGPURGE.LOGPKWFN.SG.003 1 LINE 53 1 PAGE UM ENGLE FEB. 24, 1978 17:57:47 0 LOGPURGE SUBROUTINE CALLED BY KWSCAN. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00739/004 LOGPURGE LOGPKWFN OC G S0027 DISTRB FSNAME=LPKF D4.1T1 639 LOGPURGE.LOGPKWFN.OC.004 1 LINE 80 1 PAGE UM ENGLE FEB. 24, 1978 17:58:27 00739/005 LOGPURGE OBJECT OE G NEW:LOGPURGE D4.1T1 640 LOGPURGE.OBJECT.OE.005 1 LINE 1948 2 PAGE UM ENGLE MAY 13, 1978 18:28:06 NEW:LOGPURGE 0 LINKEDITED COMBINATION OF 739/1 AND 739/3 00740/001 CKSIG CKSIG SG G S0027 DISTRB FSNAME=CKSIG D4.1T1 641 CKSIG.CKSIG.SG.001 1 LINE 78 4 PAGE UM ENGLE FEB. 24, 1978 17:49:35 0 PROGRAM TO AUTHENTICATE A SIGNON BY CHECKING ANY OF THE FOLLOWING: TIME OF SIGNON, DAY OF THE WEEK, GUINFO ITEMS, OR SNS DATA FOR *MSOURCE*. RECORDING THE SIGNON IN A LOG FILE AND, FOR PROJECT NUMBERS STARTING WITH "W", REQUESTING VERIFICATION FROM OPER IF THE SIGNON WOULD OTHERWISE FAIL ARE OPTIONAL. SEE SOURCE FOR RUN INSTRUCTIONS. 00740/002 CKSIG CKSIG OC G S0027 DISTRB FSNAME=CKSG D4.1T1 642 CKSIG.CKSIG.OC.002 1 LINE 80 4 PAGE UM ENGLE FEB. 24, 1978 17:51:20 00740/003 CKSIG CKSIGKW1 SG G S0027 DISTRB FSNAME=CKSIGKW1 D4.1T1 643 CKSIG.CKSIGKW1.SG.003 1 LINE 72 2 PAGE UM ENGLE FEB. 24, 1978 17:51:51 0 CKSIG LEVEL 1 SUBROUTINES CALLED BY KWSCAN. 00740/004 CKSIG CKSIGKW1 OC G S0027 DISTRB FSNAME=CSK1 D4.1T1 644 CKSIG.CKSIGKW1.OC.004 1 LINE 80 4 PAGE UM ENGLE FEB. 24, 1978 17:52:41 00740/005 CKSIG CKSIGKW2 SG G S0027 DISTRB FSNAME=CKSIGKW2 D4.1T1 645 CKSIG.CKSIGKW2.SG.005 1 LINE 72 3 PAGE UM ENGLE FEB. 24, 1978 17:53:14 0 CKSIG LEVEL 2 SUBROUTINES CALLED BY KWSCAN. 00740/006 CKSIG CKSIGKW2 OC G S0027 DISTRB FSNAME=CSK2 D4.1T1 646 CKSIG.CKSIGKW2.OC.006 1 LINE 80 5 PAGE UM ENGLE FEB. 24, 1978 17:54:00 00740/007 CKSIG CKSIGKW3 SG G S0027 DISTRB FSNAME=CKSIGKW3 D4.1T1 647 CKSIG.CKSIGKW3.SG.007 1 LINE 71 1 PAGE UM ENGLE FEB. 24, 1978 17:54:46 0 CKSIG LEVEL 3 SUBROUTINES CALLED BY KWSCAN. 00740/008 CKSIG CKSIGKW3 OC G S0027 DISTRB FSNAME=CSK3 D4.1T1 648 CKSIG.CKSIGKW3.OC.008 1 LINE 80 2 PAGE UM ENGLE FEB. 24, 1978 17:55:30 00740/009 CKSIG OBJECT OE G NEW:CKSIG D4.1T1 649 CKSIG.OBJECT.OE.009 1 LINE 6361 5 PAGE UM ENGLE MAY 13, 1978 18:28:14 NEW:CKSIG 0 LINKEDITED OBJECT. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00741/001 MTS VOLUME 16 MASTER WT S1163 MTSV16 'MTS MANUALS' POSN=NEWM2.V16 D4.2T1 764 MTS_VOLUME_16.MASTER.WT.001 1 SEQ 132 147 PAGE UM MANUAL APR. 02, 1979 01:00:05 0 TEXT/360 MASTER FOR VOLUME 16 "ALGOL W IN MTS" OF THE UM MTS MANUALS (AUGUST 1978, UPDATED FEBRUARY 1979). 00741/002 MTS VOLUME 16 PRINT PT S1163 MTSV16 'MTS MANUALS' POSN=PRINT2.V16 D4.2T1 765 MTS_VOLUME_16.PRINT.PT.002 1 SEQ 132 275 PAGE UM MANUAL APR. 02, 1979 01:00:17 0 TEXT/360 PRINT FILE. 00741/003 MTS VOLUME 16 INDEX SOURCE D S1163 MTSV16 'MTS MANUALS' POSN=V16INDEXSOU D4.2T1 766 MTS_VOLUME_16.INDEX_SOURC.D.003 1 SEQ 62 7 PAGE UM MANUAL APR. 02, 1979 01:00:32 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 16. 00741/004 MTS VOLUME 16 UPDATE 1 PT W073:TNLV16.FEB79 D4.2T1 767 MTS_VOLUME_16.UPDATE_1.PT.004 1 LINE 106 37 PAGE UM MANUAL APR. 02, 1979 01:00:33 0 THIS IS COMPUTING CENTER MEMO 400 -- "UPDATE 1 TO MTS VOLUME 16," (AUGUST 1978). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00742/001 TAPE DIRECTORY MAIN PGM SG G W044:TAPEDIR.S D4.2T1 768 TAPE_DIRECTORY.MAIN_PGM.SG.001 1 LINE 130 15 PAGE UM SALISBURY APR. 02, 1979 01:00:36 0 CONVERSATIONAL PROGRAM TO CREATE AND MAINTAIN A TAPE DIRECTORY. THE USE OF THIS PROGRAM IS DESCRIBED BY COMPONENT 742/6. 0 Referenced by comments of: 50/6, 616/1, 617/1, 742/3 00742/002 TAPE DIRECTORY KWFCN FUNCTION SG G W044:TAPEDIR.SF D4.2T1 769 TAPE_DIRECTORY.KWFCN_FUNC.SG.002 1 LINE 90 3 PAGE UM SALISBURY APR. 02, 1979 01:00:51 0 SOURCE FOR THE KWSCAN FUNCTION, "KWFCN". 00742/003 TAPE DIRECTORY DIRECTORY FUNC SG G W044:DIRLIB.S D4.2T1 770 TAPE_DIRECTORY.DIRECTORY.SG.003 1 LINE 126 14 PAGE UM SALISBURY APR. 02, 1979 01:00:51 0 SUBROUTINE LIBRARY USED TO ACCESS A TAPE DIRECTORY. MAY BE USED AS A STAND-ALONE SUBROUTINE LIBRARY (THERE ARE MANY ENTRY POINTS) OR IN CONJUNCTION WITH THE TAPE DIRECTORY PROGRAM (742/1). 00742/004 TAPE DIRECTORY OBJECT OC G SYS:DIRPROGRAM D4.2T1 771 TAPE_DIRECTORY.OBJECT.OC.004 1 LINE 80 28 PAGE UM SALISBURY APR. 02, 1979 01:01:07 SYS.:DIRPROGRAM 0 OBJECT OF 742/1, 742/2, AND 742/3. 00742/005 TAPE DIRECTORY DIRECTORY FUNC OC G SYS:DIRLIB D4.2T1 772 TAPE_DIRECTORY.DIRECTORY.OC.005 1 LINE 80 18 PAGE UM SALISBURY APR. 02, 1979 01:01:09 SYS.:DIRLIB 0 OBJECT OF 742/3, WHICH MAY BE USED SEPARATELY FOR EASY REFERENCE BY OTHER SYSTEM COMPONENTS. THE USE OF THIS PROGRAM IS DESCRIBED BY 742/6. 1 THU SEP 12/96 23:39:34 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 Referenced by comments of: 50/4, 753/4 00742/006 TAPE DIRECTORY WRITEUP WT W044:DIR.WRITEUP D4.2T1 773 TAPE_DIRECTORY.WRITEUP.WT.006 1 LINE 93 15 PAGE UM SALISBURY APR. 02, 1979 01:01:10 0 DESCRIPTION OF THE TAPE DIRECTORY PROGRAM AND FUNCTIONS. 00742/007 TAPE DIRECTORY WRITEUP PT W044:DIR.PRINT D4.2T1 774 TAPE_DIRECTORY.WRITEUP.PT.007 1 LINE 132 31 PAGE UM SALISBURY APR. 02, 1979 01:01:12 0 LINE PRINTER OUTPUT FOR 742/6. COPY TO A TN PRINTER @MCC. 00743 HARDWARE CONFIG PLOT SF G CNFG W032:CONFIGPLOT D4.2T1 775 HARDWARE_CONFIG_PLOT..SF.001 1 LINE 80 49 PAGE UM EMERY APR. 02, 1979 01:01:15 0 THIS IS THE FORTRAN SOURCE FOR THE MACHINE CONFIGURATION PLOT GENERATION PROGRAM. IT CONSISTS OF A MAIN PROGRAM, WHICH IS STRONGLY INSTALLATION DEPENDENT, AND VARIOUS SUBROUTINES THAT ARE INSTALLATION INDEPENDENT. NO ATTEMPT IS MADE TO ISOLATE THE INSTALLATION DEPENDENCIES FROM THE PROGRAM BY PUTTING THEM IN AN AUXILIARY INPUT FILE. CONSEQUENTLY, ANY INSTALLATION WISHING TO USE THIS PROGRAM WILL HAVE TO MODIFY AND RECOMPILE IT TO SUIT THE LOCAL CONFIGURATION. 00744/001C DAVE.GENLIB MAIN S* O W234:BLD.DAVE.SNO RD16T1 232 DAVE.GENLIB.MAIN.S*.001 1 LINE 93 5 PAGE UM WEISER JULY 12, 1979 23:17:25 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. 00744/002C DAVE.GENLIB ASM SUBRS SA O W234:BLD.DAVE.ASM RD16T1 233 DAVE.GENLIB.ASM_SUBRS.SA.002 1 LINE 67 1 PAGE UM WEISER JULY 12, 1979 23:17:27 0 ASSEMBLY LANGUAGE SUBROUTINES. THIS FILE ALSO CONTAINS COMMANDS TO ASSEMBLE IT. 00744/003C DAVE.GENLIB FTN SUBRS SF O W234:BLD.DAVE.FTN RD16T1 234 DAVE.GENLIB.FTN_SUBRS.SF.003 1 LINE 81 3 PAGE UM WEISER JULY 12, 1979 23:17:28 0 FORTRAN LANGUAGE SUBROUTINES. THIS FILE ALSO CONTAINS THE COMMANDS TO COMPILE IT. 00744/004C DAVE.GENLIB SUBR LIB OL O W234:BLD.DAVE.LIB RD16T1 235 DAVE.GENLIB.SUBR_LIB.OL.004 1 LINE 1424 4 PAGE UM WEISER JULY 12, 1979 23:17:29 0 OBJECT OF 744/2 AND 744/3. 00744/005C DAVE.GENLIB *DAVE.GENLIB OE O *DAVE.GENLIB RD16T1 236 DAVE.GENLIB.*DAVE.GENLIB.OE.005 1 LINE 22942 7 PAGE UM WEISER JULY 12, 1979 23:17:30 0 OBJECT OF 744/1, 744/2, AND 744/3. 0 Referenced by comments of: 744/6, 744/7 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00744/006C DAVE.GENLIB *LIBRARY DESCR D W234:VOL-3.DESCRI RD16T1 237 DAVE.GENLIB.*LIBRARY_DESC.D.006 1 LINE 74 12 PAGE UM WEISER JULY 12, 1979 23:17:31 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). 00744/007C DAVE.GENLIB DAVE.EXT D W234:DAVE.EXT RD16T1 238 DAVE.GENLIB.DAVE.EXT.D.007 1 LINE 2660 7 PAGE UM WEISER JULY 12, 1979 23:17:33 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/008C DAVE.GENLIB MEMO 402 WF W098:KAY.M402 RD16T1 239 DAVE.GENLIB.MEMO_402.WF.008 1 LINE 70 3 PAGE UM WEISER JULY 12, 1979 23:17:34 0 THIS IS COMPUTING CENTER MEMO 402 -- "*DAVE.GENLIB". 00745/001 *LALRGEN SP G S1228 LALR 'LALRGEN' FSNAME=LALRGEN.S D4.2T1 776 LALRGEN..SP.001 1 LINE 85 31 PAGE UM GOURLAY FEB. 13, 1979 10:21:49 0 SOURCE FOR AN LALR(1) PARSE TABLE GENERATOR. COMPILE WITH PAR=SORMGIN=(2,72,1),MACRO. 00745/002 *LALRGEN OE G *LALRGEN D4.2T1 777 LALRGEN..OE.002 1 LINE 32767 19 PAGE UM GOURLAY APR. 02, 1979 01:02:01 *LALRGEN 0 THIS FILE IS OBTAINED FROM THE PL/1 OBJECT AS FOLLOWS: $RUN *LINKEDIT INCLUDE LALRGEN.O RENAME IHESAPC IHESAPE INCLUDE@SLI *PL1LIB INCLUDE@SLI *LIBRARY INCLUDE *LCS COMBINE PUNCH LALRGEN.L STOP 00746/001B COMPARE SA G W062:COMPARE.S RD16T1 240 COMPARE..SA.001 1 LINE 92 35 PAGE UM TIFFANY JULY 12, 1979 23:17:35 0 A FAST COMPARISON PROGRAM. ASSEMBLE USING OBJUTIL MACROS (721/4). COPIES *GDINFODSECT (594). THIS PROGRAM MAY BE INCORPORATED INTO *APC (496) IN THE FUTURE. 00746/002B COMPARE OE G W062:COMPARE RD16T1 241 COMPARE..OE.002 1 LINE 6060 11 PAGE UM TIFFANY JULY 12, 1979 23:17:42 UNSP:COMPARE 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00746/003B COMPARE WRITEUP WF W062:COMPARE.W1 RD16T1 242 COMPARE.WRITEUP.WF.003 1 LINE 104 3 PAGE UM TIFFANY JULY 12, 1979 23:17:44 0 WRITEUP DESCRIBING THE COMPARE PROGRAM. 00747/001D SIDELABEL S G ALWB:SIDELABEL.S RD16T1 243 SIDELABEL..S.001 1 LINE 88 3 PAGE UM BODWIN JULY 12, 1979 23:17:44 0 OVERDRIVE SOURCE FOR SIDELABEL, A PROGRAM TO LABEL THE EDGE OF PRINTOUTS. 00747/002D SIDELABEL SF G ALWB:SIDELABEL.F RD16T1 244 SIDELABEL..SF.002 1 LINE 72 3 PAGE UM BODWIN JULY 12, 1979 23:17:46 0 FORTRAN SOURCE FOR SIDELABEL. 00747/003D SIDELABEL OC G ALWB:SIDELABEL RD16T1 245 SIDELABEL..OC.003 1 LINE 2290 2 PAGE UM BODWIN JULY 12, 1979 23:17:46 0 OBJECT OF 747/1 AND 747/2. 0 Referenced by comments of: 9001/1 00748/001 INTRO GUIDE: MTS WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.SOU D4.2T1 781 INTRO_GUIDE:_MTS..WF.001 1 LINE 154 132 PAGE UM MANUAL SEP. 11, 1978 19:58:08 0 FORMAT SOURCE FOR "INTRODUCTION TO MTS" (SEPTEMBER 1978). 00748/002 INTRO GUIDE: MTS PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.OUT D4.2T1 782 INTRO_GUIDE:_MTS..PF.002 1 LINE 81 184 PAGE UM MANUAL SEP. 11, 1978 19:58:23 0 FORMAT PRINT FILE. 00748/003 INTRO GUIDE: MTS INDEX D S0702 MTS.UG 'MTS USER GUIDES' FSNAME=MTS.INDEXSOU D4.2T1 783 INTRO_GUIDE:_MTS.INDEX.D.003 1 LINE 140 14 PAGE UM MANUAL SEP. 11, 1978 19:59:09 0 INPUT TO *INDEX (580) FOR THE INDEX TO "INTRODUCTION TO MTS." 00749/001 MACSCAN SA G S0684 UNSP FSNAME=MACSCAN.S D4.2T1 784 MACSCAN..SA.001 1 LINE 72 18 PAGE UM UNSP FEB. 14, 1979 16:50:55 0 PROGRAM TO SCAN ASSEMBLY LANGUAGE PROGRAMS AND LIST MACROS AND COPY SECTIONS USED. ASSEMBLE WITH *OBJUTIL MACROS (721/4). COPIES *GDINFODSECT (594). 00749/002 MACSCAN OE G UNSP:MACSCAN D4.2T1 785 MACSCAN..OE.002 1 LINE 2294 3 PAGE UM UNSP APR. 02, 1979 01:02:26 UNSP:MACSCAN 00749/003 MACSCAN 360 INSTS D UNSP:MACSCAN.360 D4.2T1 786 MACSCAN.360_INSTS.D.003 1 LINE 74 1 PAGE UM UNSP APR. 02, 1979 01:02:26 UNSP:MACSCAN.360 0 A LIST OF 360 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00749/004 MACSCAN 370 INSTS D UNSP:MACSCAN.370 D4.2T1 787 MACSCAN.370_INSTS.D.004 1 LINE 74 1 PAGE UM UNSP APR. 02, 1979 01:02:27 UNSP:MACSCAN.370 0 A LIST OF 370 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME. 00749/005 MACSCAN WRITEUP WF S0684 UNSP FSNAME=MACSCAN.F D4.2T1 788 MACSCAN.WRITEUP.WF.005 1 LINE 81 1 PAGE UM UNSP SEP. 18, 1978 19:26:41 0 FORMAT SOURCE FOR MACSCAN WRITEUP. 00750/001 XREF SS O S0684 UNSP FSNAME=XREF.S D4.2T1 789 XREF..SS.001 1 LINE 101 3 PAGE UBC BALLARD UNSP DEC. 20, 1978 23:16:56 0 A GENERAL CROSS REFERENCE PROGRAM WRITTEN AT UBC. AT UM, THIS PROGRAM IS CLASSIFIED AS UNSUPPORTED SOFTWARE. 00750/002 XREF OC O UNSP:XREF D4.2T1 790 XREF..OC.002 1 LINE 80 7 PAGE UBC BALLARD UNSP APR. 02, 1979 01:02:52 UNSP:XREF 0 HAS A $CONTINUE WITH *SPITLIB CARD. 00751/001 ILLBEBACK SG G S0684 UNSP FSNAME=ILLBEBACK.S D4.2T1 791 ILLBEBACK..SG.001 1 LINE 76 1 PAGE UM UNSP JAN. 02, 1979 17:18:11 0 PROGRAM TO LOCK A TERMINAL SESSION. 00751/002 ILLBEBACK OC G UNSP:ILLBEBACK D4.2T1 792 ILLBEBACK..OC.002 1 LINE 80 1 PAGE UM UNSP APR. 02, 1979 01:02:54 UNSP:ILLBEBACK 00751/003 ILLBEBACK WRITEUP WF S0684 UNSP FSNAME=ILLBEBACK.F D4.2T1 793 ILLBEBACK.WRITEUP.WF.003 1 LINE 67 1 PAGE UM UNSP JAN. 09, 1979 16:52:07 00752/001 HASP LOG COLLECTION PGM SA O W116:HSP.COLLCT.S D4.2T1 794 HASP_LOG.COLLECTION_PGM.SA.001 1 LINE 75 39 PAGE UM UNSP H YOUNG APR. 02, 1979 01:06:14 0 AT UM, THIS PROGRAM IS STARTED AFTER A SYSTEM RELOAD TO EXAMINE FILES CREATED BY CMDSTAT (531/1) WITH NAMES OF THE FORM HASPLOGXXXXX. THESE FILES CONTAIN ALL INFORMATION CURRENTLY OUTPUTTED TO THE HASP LOG PRINTER. THE PROGRAM CONDENSES THE INFORMATION AND PLACES IT INTO FILES HAVING NAMES OF THE FORM HSYYMMDDHH WHERE YYMMDDHH IS THE TIME THE FILE IS CREATED. NORMALLY THERE IS ONLY ONE HSYYMMDHH FILE FOR EACH DAY. THE PROGRAM DESTROYS THE HASPLOGXXXXX FILES AS THEY ARE PROCESSED. THE HSYYMMDDHH FILES ARE KEPT FOR 7 DAYS AND THEN DESTROYED. IN ADDITION TO THE ABOVE FILES, THE PROGRAM ALSO MAINTAINS THE FOLLOWING FILES: UNKHSPMSGS -- ALL HASP MESSAGES THAT CAN NOT CURRENTLY BE HANDLED BY THE COLLECTION PROGRAM ARE RECORDED HERE. HSDEVTBLES -- USED FOR INTERNAL BOOKKEEPING AND TO LET THE 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 RETRIEVAL PROGRAM KNOW WHICH HSYYMMDDHH FILES ARE AVAILABLE. THE COLLECTION PROGRAM ASSUMES IT IS BEING RUN UNDER THE SAME ID AS THE CMDSTAT PROGRAM. TO START THE PROGRAM SOME HASPLOGXXXXX FILES MUST BE AVAILABLE AS WELL AS EMPTY FILES OF THE FOLLOWING NAMES: HS78010100, UNKHSPMSGS, AND HSDEVTBLES. ASSEMBLE WITH PAR=BATCH. USES HSP.MACLIB (752/7). COPIES *GFINFODSECT (594). 0 Referenced by comments of: 387/19, 752/3, 752/4 00752/002 HASP LOG COLLECTION PGM OC O SYS:HLOG D4.2T1 795 HASP_LOG.COLLECTION_PGM.OC.002 1 LINE 80 16 PAGE UM UNSP H YOUNG APR. 02, 1979 01:08:15 00752/003 HASP LOG *HLG C *HLG D4.2T1 796 HASP_LOG.*HLG.C.003 1 LINE 36 1 PAGE UM UNSP H YOUNG APR. 02, 1979 01:08:16 0 COMMAND FILE TO RUN THE HASP LOG COLLECTION PROGRAM (752/1). INVOKED BY ENTERING "MTS *HLG" ON THE OPERATOR'S CONSOLE. 00752/004 HASP LOG RETRIEVAL PGM SA O W116:HSP.RETRIV.S D4.2T1 797 HASP_LOG.RETRIEVAL_PGM.SA.004 1 LINE 73 28 PAGE UM UNSP H YOUNG APR. 02, 1979 01:10:01 0 PROVIDES INTERACTIVE RETRIEVAL OF INFORMATION ABOUT HASP JOBS. USES FILES WITH NAMES OF THE FORM HSYYMMDDHH AS BUILT BY THE COLLECTION PROGRAM (752/1) AND USES THE FILE HSDEVTBLES AS MAINTAINED BY THE COLLECTION PROGRAM TO DETERMINE WHICH HSYYMMDDHH FILES ARE AVAILABLE. THIS PROGRAM ASSUMES THAT THE COLLECTION PROGRAM IS BEING RUN UNDER THE USER ID SYS. IF IT IS TO RUN UNDER AN ID OTHER THAN SYS, ALL REFERENCES OF THE FORM "SYS:FDNAME" MUST BE REPLACED WITH ONE OF THE FORM "USERID:FDNAME" WHERE "USERID" IS THE USER ID OF THE TASK RUNNING THE COLLECTION PROGRAM. ASSEMBLE WITH PAR=BATCH. USES HSP.MACLIB (752/7). 00752/005 HASP LOG RETRIEVAL PGM OC O UNSP:HASPLOG D4.2T1 798 HASP_LOG.RETRIEVAL_PGM.OC.005 1 LINE 280 11 PAGE UM UNSP H YOUNG APR. 02, 1979 01:10:04 0 REFERENCES IN COPY:SYSDEFS (579/3) MUST BE APPENDED TO THE END. 00752/006 HASP LOG RETRIEVAL DOC P UNSP:HASPLOG.W D4.2T1 799 HASP_LOG.RETRIEVAL_DOC.P.006 1 LINE 77 3 PAGE UM UNSP H YOUNG APR. 02, 1979 01:10:05 0 WRITEUP DESCRIBING THE USE OF THE RETRIEVAL PROGRAM. 00752/007 HASP LOG MACRO LIB SM G W116:HSP.MACLIB D4.2T1 800 HASP_LOG.MACRO_LIB.SM.007 1 LINE 72 13 PAGE UM UNSP H YOUNG APR. 02, 1979 01:10:06 0 MACRO LIBRARY USED BY 752/1 AND 752/4. 0 Referenced by comments of: 752/1, 752/4 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00753/001 SCAN MAIN PGM SA O W030:SCAN D4.2T1 801 SCAN.MAIN_PGM.SA.001 1 LINE 69 10 PAGE UM LIFT APR. 02, 1979 01:10:08 0 MAIN CSECT OF PROGRAM TO SEARCH STATISTICS TAPES FOR RECORDS. SEARCH CRITERIA MAY BE SPECIFIED IN COMMANDS OR BY WRITING SUBROUTINES SCAN WILL USE. IMPLEMENTATION IS FAR FROM COMPLETE (E. G., SEARCHING FOR CMDSTAT RECORDS NEEDS TO BE ADDED), BUT WHAT IS IMPLEMENTED WORKS. COPIES COPY:CMDAREADSECT (531/18) AND COPY:STATDSECT (620). ASSEMBLE WITH 2=W030:SCANDS (753/5). 0 Referenced by comments of: 707/1, 753/4 00753/002 SCAN CSTAT SUBR SA O W030:CSTAT(1,999) D4.2T1 802 SCAN.CSTAT_SUBR.SA.002 1 LINE 67 4 PAGE UM LIFT APR. 02, 1979 01:10:13 0 SUBROUTINE FOR SCAN TO HANDLE THE STA COMMAND. ASSEMBLE WITH 2=W030:SCANDS (753/5). 0 Referenced by comments of: 753/4 00753/003 SCAN CCOPY SUBR SA O W030:CCOPY(1,999) D4.2T1 803 SCAN.CCOPY_SUBR.SA.003 1 LINE 69 5 PAGE UM LIFT APR. 02, 1979 01:10:14 0 SUBROUTINE FOR SCAN TO HANDLE COPY AND LIST COMMANDS. ASSEMBLE WITH 2=W030:SCANDS (753/5). COPIES COPY:CMDAREADSECT (531/18) AND COPY:STATDSECT (620). 0 Referenced by comments of: 753/4 00753/004 SCAN OBJECT OC O W030:SCANX D4.2T1 804 SCAN.OBJECT.OC.004 1 LINE 80 11 PAGE UM LIFT APR. 02, 1979 01:10:15 0 OBJECT OF SCAN MAIN PROGRAM (753/1) CSTAT SUBROUTINE (753/2), LISTSTAT (71/1), CCOPY SUBROUTINE (753/3), AND JVCT SUBROUTINE (674/1). HAS A $CONTINUE WITH SYS:DIRLIB RETURN (742/5) RECORD. 00753/005 SCAN MACRO LIBRARY SM O W030:SCANDS D4.2T1 805 SCAN.MACRO_LIBRARY.SM.005 1 LINE 70 1 PAGE UM LIFT APR. 02, 1979 01:10:16 0 MACRO LIBRARY USED BY 753/1, 753/2, AND 753/3. 0 Referenced by comments of: 753/1, 753/2, 753/3 00753/006 SCAN WRITEUP WX W030:SCAN.W(1,999) D4.2T1 806 SCAN.WRITEUP.WX.006 1 LINE 80 4 PAGE UM LIFT APR. 02, 1979 01:10:17 0 WRITEUP FOR SCAN. DESCRIBES ONLY WHAT'S ACTUALLY IMPLEMENTED. 00753/007 SCAN WRITEUP PX W030:SCAN.W(1000) D4.2T1 807 SCAN.WRITEUP.PX.007 1 LINE 76 5 PAGE UM LIFT APR. 02, 1979 01:10:18 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00754/001 F8ASR SF O S0684 UNSP FSNAME=F8ASR.S D4.2T1 808 F8ASR..SF.001 1 LINE 79 25 PAGE UM UNSP JUNE 23, 1978 20:42:24 0 FORTRAN SOURCE FOR A MOSTEK F8 CROSS-ASSEMBLER. COPIES OF THE "MOSTEK F8 MICROPROCESSOR SOFTWARE SUPPORT OPERATIONS MANUAL: FORTRAN IV CROSS ASSEMBLER" (10 PAGES) ARE AVAILABLE UPON REQUEST. 00754/002 F8ASR OE O UNSP:F8ASR D4.2T1 809 F8ASR..OE.002 1 LINE 11980 7 PAGE UM UNSP APR. 02, 1979 01:10:35 UNSP:F8ASR 00754/003 F8ASR WF S1319 D4.2T1 VLO FSNAME=F8ASR..WF.003(1) 810 D4.2T1 810 F8ASR..WF.003 1 LINE 143 10 PAGE UM UNSP APR. 02, 1979 01:10:36 0 THIS IS THE "MOSTEK F8 MICROPROCESSOR SOFTWARE SUPPORT OPERATIONS MANUAL: FORTRAN IV CROSS ASSEMBLER" (10 PAGES). 00755/001 FEP HARDWARE LAM PGM S G W051:LAM D4.2T1 811 FEP_HARDWARE.LAM_PGM.S.001 1 LINE 81 25 PAGE UM GOEN APR. 02, 1979 01:10:41 0 THIS COMPONENT CONTAINS SOFTWARE RELATED TO THE UM DATA CONCENTRATORS (FRONT END PROCESSORS). SOURCE FOR LINE ADAPTER MICROPROCESSOR PROGRAM. ASSEMBLE USING *11ASR (515). 00755/002 FEP HARDWARE LAM DESC WF S0767 'SAVETAPE' FSNAME=LAMMAN.S D4.2T1 812 FEP_HARDWARE.LAM_DESC.WF.002 1 LINE 120 36 PAGE UM GOEN JAN. 17, 1979 10:02:27 0 MANUAL DESCRIBING LAM HARDWARE AND PROGRAM. 00755/003 FEP HARDWARE CHAN XFACE PGM S G W051:11-360IF D4.2T1 813 FEP_HARDWARE.CHAN_XFACE_P.S.003 1 LINE 87 10 PAGE UM GOEN APR. 02, 1979 01:12:53 0 MICROPROGRAM FOR 360-CHANNEL-TO-PDP-11-INTERFACE. ASSEMBLE USING *11ASR (515). 00755/004 FEP HARDWARE CHAN XFACE MAN WF S0767 'SAVETAPE' FSNAME=360MANUAL D4.2T1 814 FEP_HARDWARE.CHAN_XFACE_M.WF.004 1 LINE 156 64 PAGE UM GOEN MAR. 07, 1974 08:55.40 0 MANUAL DESCRIBING CHANNEL INTERFACE PROGRAM. 00756/001 ONTEL SOFTWARE OP/MCP S G CRT:OP/MCP D4.2T1 815 ONTEL_SOFTWARE.OP/MCP.S.001 1 LINE 142 56 PAGE UM CASHMAN APR. 02, 1979 01:15:27 0 SOURCE FOR THE UM ONTEL TERMINAL MICROPROCESS SOFTWARE. THERE ARE VARIOUS CONDITIONAL ASSEMBLY PARAMETERS: 1) OPTION='ROM' -- TO RUN IN ROM MEMORY OPTION='RAM' -- TO RUN IN RAM MEMORY OPTION='DOS' -- TO RUN IN RAM UNDER ONTEL'S DISK SYSTEM 2) MACHIN='OP-1' -- TO RUN IN OP-1 MACHINE MACHIN='OPR' -- TO RUN IN OP-1R MACHINE 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 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 ASSEMBLE USING I8080ASR (686/18). 00756/002 ONTEL SOFTWARE USER'S GUIDE WF CRT:OP/MTS.MAN D4.2T1 816 ONTEL_SOFTWARE.USER'S_GUI.WF.002 1 LINE 76 18 PAGE UM CASHMAN APR. 02, 1979 01:15:33 00757/001 SPITPAR SA G S0684 UNSP FSNAME=SPITPAR.S D4.2T1 817 SPITPAR..SA.001 1 LINE 72 1 PAGE UM UNSP SHERRY JAN. 19, 1979 00:39:56 0 A MAIN PROGRAM FOR USE WITH SPITBOL PROGRAMS WHICH ALLOWS THEM TO BE RUN WITH OR WITHOUT THE SEMICOLON IN THE PAR FIELD. ASSEMBLE USING *OBJUTIL MACROS (721/4). 00757/002 SPITPAR OC G UNSP:SPITPAR D4.2T1 818 SPITPAR..OC.002 1 LINE 80 1 PAGE UM UNSP SHERRY APR. 02, 1979 01:15:57 UNSP:SPITPAR 0 HAS A $CONTINUE WITH *SPITLIB CARD. 0 Referenced by comments of: 410/3, 410/4 00758/001 SOFTCHK SA G MTA:SOFTCHK(1,999) D4.2T1 819 SOFTCHK..SA.001 1 LINE 72 3 PAGE UM MTA APR. 02, 1979 01:15:58 MTA:SOFTCHK 0 SOFTCHK JOB PROGRAM TO ENABLE OR DISABLE SOFT MACHINE CHECKS. 00758/002 SOFTCHK OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00759/001 G11 JOB SA G S0938 FSAVE2 VLO FSNAME=G11.S D4.2T1 820 G11_JOB..SA.001 1 LINE 61 2 PAGE UM MTA FEB. 10, 1979 16:50:08 0 LOADS THE CHARACTER AND FORMS CONTROL BUFFERS OF A 3211 PRINTER FOR THE G11 PRINT TRAIN. ASSUMES 6 LINES PER INCH ON 11 INCH PAPER UNLESS THE "8LPI" PARAMETER IS GIVEN, IN WHICH CASE IT ASSUMES 8 LINES PER INCH ON 8 1/2 INCH PAPER. 00759/002 G11 JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00760/001 BENCHMARK - BATCH SCR C BNCH:BATCH.SCR D4.2T2 1 BENCHMARK_-_BATCH.SCR.C.001 1 LINE 76 1 PAGE UQV OGDEN APR. 02, 1979 01:23:45 BNCH:BATCH.SCR 0 MTS COMMAND FILE TO RUN A BATCH BENCHMARK. 00760/002 BENCHMARK - BATCH BATCH SUBMIT SF O BNCH:SUBMIT.S D4.2T2 2 BENCHMARK_-_BATCH.BATCH_S.SF.002 1 LINE 80 4 PAGE UQV OGDEN APR. 02, 1979 01:23:46 BNCH:SUBMIT.S 0 PROGRAM TO SUBMIT JOBS TO *BATCH* OR SOME OTHER FDNAME OPTIONALLY MAKING MODIFICATIONS TO THE SIGNON COMMANDS. READS A DRIVER FILE (SEE 760/4 FOR AN EXAMPLE). SEE THE SOURCE CODE FOR COMMENTS EXPLAINING THE FORMAT. 0 Referenced by comments of: 760/4, 760/5, 760/20 00760/003 BENCHMARK - BATCH SUBMIT OC O BNCH:SUBMIT D4.2T2 3 BENCHMARK_-_BATCH.SUBMIT.OC.003 1 LINE 240 3 PAGE UQV OGDEN APR. 02, 1979 01:23:46 BNCH:SUBMIT 00760/004 BENCHMARK - BATCH BATCH DRIVER D BNCH:DRIVER D4.2T2 4 BENCHMARK_-_BATCH.BATCH_D.D.004 1 LINE 26 1 PAGE UQV OGDEN APR. 02, 1979 01:23:47 BNCH:DRIVER 0 SAMPLE DRIVER FILE FOR BATCH SUBMIT PROGRAM (760/2). 00760/005 BENCHMARK - BATCH BM00 JOB C BNCH:BM00 D4.2T2 5 BENCHMARK_-_BATCH.BM00_JO.C.005 1 LINE 136 2 PAGE UQV OGDEN APR. 02, 1979 01:23:48 BNCH:BM00 0 BATCH JOB THAT CAN BE SUBMITTED USING SUBMIT (760/2). ONCE KNOWN AS SUN OR SUP. 00760/006 BENCHMARK - BATCH BM00 DATA D BNCH:ADEPT.F D4.2T2 6 BENCHMARK_-_BATCH.BM00_DA.D.006 1 LINE 77 19 PAGE UQV OGDEN APR. 02, 1979 01:23:48 BNCH:ADEPT.F 0 DATA FILE USED BY BM00 JOB. 00760/007 BENCHMARK - BATCH BM00 DATA D BNCH:AX D4.2T2 7 BENCHMARK_-_BATCH.BM00_DA.D.007 1 LINE 240 1 PAGE UQV OGDEN APR. 02, 1979 01:23:50 BNCH:AX 0 DATA FILE USED BY BM00 JOB. 00760/008 BENCHMARK - BATCH BM00 DATA D BNCH:CHOLX D4.2T2 8 BENCHMARK_-_BATCH.BM00_DA.D.008 1 LINE 80 9 PAGE UQV OGDEN APR. 02, 1979 01:23:51 BNCH:CHOLX 0 DATA FILE USED BY BM00 JOB. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00760/009 BENCHMARK - BATCH BM00 DATA D BNCH:CX D4.2T2 9 BENCHMARK_-_BATCH.BM00_DA.D.009 1 SEQ 80 2 PAGE UQV OGDEN APR. 02, 1979 01:23:52 BNCH:CX 0 DATA FILE USED BY BM00 JOB. 00760/010 BENCHMARK - BATCH BM00 DATA D BNCH:ELASTODATA D4.2T2 10 BENCHMARK_-_BATCH.BM00_DA.D.010 1 LINE 80 1 PAGE UQV OGDEN APR. 02, 1979 01:23:52 BNCH:ELASTODATA 0 DATA FILE USED BY BM00 JOB. 00760/011 BENCHMARK - BATCH BM00 DATA D BNCH:ELASTOPLAST D4.2T2 11 BENCHMARK_-_BATCH.BM00_DA.D.011 1 SEQ 28240 39 PAGE UQV OGDEN APR. 02, 1979 01:23:53 BNCH:ELASTOPLAST 0 DATA FILE USED BY BM00 JOB. 00760/012 BENCHMARK - BATCH BM00 DATA D BNCH:GOMOKU.P D4.2T2 12 BENCHMARK_-_BATCH.BM00_DA.D.012 1 LINE 80 4 PAGE UQV OGDEN APR. 02, 1979 01:23:55 BNCH:GOMOKU.P 0 DATA FILE USED BY BM00 JOB. 00760/013 BENCHMARK - BATCH BM00 SUBR LIB OL O BNCH:LIBRARY D4.2T2 13 BENCHMARK_-_BATCH.BM00_SU.OL.013 1 SEQ 13728 187 PAGE UQV OGDEN APR. 02, 1979 01:23:55 BNCH:LIBRARY 0 SUBROUTINE LIBRARY USED BY BM00 JOB. 00760/014 BENCHMARK - BATCH BM00 DATA D BNCH:PLOT D4.2T2 14 BENCHMARK_-_BATCH.BM00_DA.D.014 1 SEQ 240 7 PAGE UQV OGDEN APR. 02, 1979 01:24:00 BNCH:PLOT 0 DATA FILE USED BY BM00 JOB. 00760/015 BENCHMARK - BATCH BM00 DATA D BNCH:PLOTDATA D4.2T2 15 BENCHMARK_-_BATCH.BM00_DA.D.015 1 LINE 40 1 PAGE UQV OGDEN APR. 02, 1979 01:24:01 BNCH:PLOTDATA 0 DATA FILE USED BY BM00 JOB. 00760/016 BENCHMARK - BATCH BM00 DATA D BNCH:PRPLOT D4.2T2 16 BENCHMARK_-_BATCH.BM00_DA.D.016 1 SEQ 4554 9 PAGE UQV OGDEN APR. 02, 1979 01:24:01 BNCH:PRPLOT 0 DATA FILE USED BY BM00 JOB. 00760/017 BENCHMARK - BATCH BM00 DATA D BNCH:STAT.P D4.2T2 17 BENCHMARK_-_BATCH.BM00_DA.D.017 1 LINE 85 10 PAGE UQV OGDEN APR. 02, 1979 01:24:02 BNCH:STAT.P 0 DATA FILE USED BY BM00 JOB. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00760/018 BENCHMARK - BATCH BM00 DATA D BNCH:WATBOL.C D4.2T2 18 BENCHMARK_-_BATCH.BM00_DA.D.018 1 LINE 81 14 PAGE UQV OGDEN APR. 02, 1979 01:24:03 BNCH:WATBOL.C 0 DATA FILE USED BY BM00 JOB. 00760/019 BENCHMARK - BATCH BM00 DATA D BNCH:3270.BENCH.S D4.2T2 19 BENCHMARK_-_BATCH.BM00_DA.D.019 1 LINE 80 92 PAGE UQV OGDEN APR. 02, 1979 01:24:04 BNCH:3270.BENCH.S 0 DATA FILE USED BY BM00 JOB. 00760/020 BENCHMARK - BATCH BM01 JOB C BNCH:BM01 D4.2T2 20 BENCHMARK_-_BATCH.BM01_JO.C.020 1 LINE 80 17 PAGE UQV OGDEN APR. 02, 1979 01:24:11 BNCH:BM01 0 THE FOLLOWING 49 FILES, BM01-BM26 AND BN01-BN51, ARE BATCH JOBS THAT CAN BE SUBMITTED USING SUBMIT (760/2). ONCE KNOWN AS SAN OR SAP. 00760/021 BENCHMARK - BATCH BM04 JOB C BNCH:BM04 D4.2T2 21 BENCHMARK_-_BATCH.BM04_JO.C.021 1 LINE 74 7 PAGE UQV OGDEN APR. 02, 1979 01:24:13 BNCH:BM04 00760/022 BENCHMARK - BATCH BM05 JOB C BNCH:BM05 D4.2T2 22 BENCHMARK_-_BATCH.BM05_JO.C.022 1 LINE 80 17 PAGE UQV OGDEN APR. 02, 1979 01:24:14 BNCH:BM05 00760/023 BENCHMARK - BATCH BM06 JOB C BNCH:BM06 D4.2T2 23 BENCHMARK_-_BATCH.BM06_JO.C.023 1 LINE 71 2 PAGE UQV OGDEN APR. 02, 1979 01:24:16 BNCH:BM06 00760/024 BENCHMARK - BATCH BM08 JOB C BNCH:BM08 D4.2T2 24 BENCHMARK_-_BATCH.BM08_JO.C.024 1 LINE 73 6 PAGE UQV OGDEN APR. 02, 1979 01:24:16 BNCH:BM08 00760/025 BENCHMARK - BATCH BM09 JOB C BNCH:BM09 D4.2T2 25 BENCHMARK_-_BATCH.BM09_JO.C.025 1 LINE 77 1 PAGE UQV OGDEN APR. 02, 1979 01:24:17 BNCH:BM09 00760/026 BENCHMARK - BATCH BM11 JOB C BNCH:BM11 D4.2T2 26 BENCHMARK_-_BATCH.BM11_JO.C.026 1 LINE 73 7 PAGE UQV OGDEN APR. 02, 1979 01:24:17 BNCH:BM11 00760/027 BENCHMARK - BATCH BM12 JOB C BNCH:BM12 D4.2T2 27 BENCHMARK_-_BATCH.BM12_JO.C.027 1 LINE 69 1 PAGE UQV OGDEN APR. 02, 1979 01:24:18 BNCH:BM12 00760/028 BENCHMARK - BATCH BM13 JOB C BNCH:BM13 D4.2T2 28 BENCHMARK_-_BATCH.BM13_JO.C.028 1 LINE 72 3 PAGE UQV OGDEN APR. 02, 1979 01:24:19 BNCH:BM13 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00760/029 BENCHMARK - BATCH BM14 JOB C BNCH:BM14 D4.2T2 29 BENCHMARK_-_BATCH.BM14_JO.C.029 1 LINE 74 2 PAGE UQV OGDEN APR. 02, 1979 01:24:20 BNCH:BM14 00760/030 BENCHMARK - BATCH BM18 JOB C BNCH:BM18 D4.2T2 30 BENCHMARK_-_BATCH.BM18_JO.C.030 1 LINE 71 2 PAGE UQV OGDEN APR. 02, 1979 01:24:20 BNCH:BM18 00760/031 BENCHMARK - BATCH BM19 JOB C BNCH:BM19 D4.2T2 31 BENCHMARK_-_BATCH.BM19_JO.C.031 1 LINE 69 1 PAGE UQV OGDEN APR. 02, 1979 01:24:21 BNCH:BM19 00760/032 BENCHMARK - BATCH BM20 JOB C BNCH:BM20 D4.2T2 32 BENCHMARK_-_BATCH.BM20_JO.C.032 1 LINE 72 3 PAGE UQV OGDEN APR. 02, 1979 01:24:21 BNCH:BM20 00760/033 BENCHMARK - BATCH BM21 JOB C BNCH:BM21 D4.2T2 33 BENCHMARK_-_BATCH.BM21_JO.C.033 1 LINE 80 4 PAGE UQV OGDEN APR. 02, 1979 01:24:22 BNCH:BM21 00760/034 BENCHMARK - BATCH BM23 JOB C BNCH:BM23 D4.2T2 34 BENCHMARK_-_BATCH.BM23_JO.C.034 1 LINE 73 17 PAGE UQV OGDEN APR. 02, 1979 01:24:22 BNCH:BM23 00760/035 BENCHMARK - BATCH BM26 JOB C BNCH:BM26 D4.2T2 35 BENCHMARK_-_BATCH.BM26_JO.C.035 1 LINE 73 11 PAGE UQV OGDEN APR. 02, 1979 01:24:24 BNCH:BM26 00760/036 BENCHMARK - BATCH BN01 JOB C BNCH:BN01 D4.2T2 36 BENCHMARK_-_BATCH.BN01_JO.C.036 1 LINE 80 58 PAGE UQV OGDEN APR. 02, 1979 01:24:25 BNCH:BN01 00760/037 BENCHMARK - BATCH BN02 JOB C BNCH:BN02 D4.2T2 37 BENCHMARK_-_BATCH.BN02_JO.C.037 1 LINE 80 1 PAGE UQV OGDEN APR. 02, 1979 01:24:30 BNCH:BN02 00760/038 BENCHMARK - BATCH BN03 JOB C BNCH:BN03 D4.2T2 38 BENCHMARK_-_BATCH.BN03_JO.C.038 1 LINE 76 9 PAGE UQV OGDEN APR. 02, 1979 01:24:31 BNCH:BN03 00760/039 BENCHMARK - BATCH BN04 JOB C BNCH:BN04 D4.2T2 39 BENCHMARK_-_BATCH.BN04_JO.C.039 1 LINE 73 2 PAGE UQV OGDEN APR. 02, 1979 01:24:32 BNCH:BN04 00760/040 BENCHMARK - BATCH BN05 JOB C BNCH:BN05 D4.2T2 40 BENCHMARK_-_BATCH.BN05_JO.C.040 1 LINE 80 1 PAGE UQV OGDEN APR. 02, 1979 01:24:33 BNCH:BN05 00760/041 BENCHMARK - BATCH BN06 JOB C BNCH:BN06 D4.2T2 41 BENCHMARK_-_BATCH.BN06_JO.C.041 1 LINE 73 7 PAGE UQV OGDEN APR. 02, 1979 01:24:33 BNCH:BN06 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00760/042 BENCHMARK - BATCH BN07 JOB C BNCH:BN07 D4.2T2 42 BENCHMARK_-_BATCH.BN07_JO.C.042 1 LINE 73 2 PAGE UQV OGDEN APR. 02, 1979 01:24:34 BNCH:BN07 00760/043 BENCHMARK - BATCH BN08 JOB C BNCH:BN08 D4.2T2 43 BENCHMARK_-_BATCH.BN08_JO.C.043 1 LINE 59 1 PAGE UQV OGDEN APR. 02, 1979 01:24:35 BNCH:BN08 00760/044 BENCHMARK - BATCH BN09 JOB C BNCH:BN09 D4.2T2 44 BENCHMARK_-_BATCH.BN09_JO.C.044 1 LINE 80 4 PAGE UQV OGDEN APR. 02, 1979 01:24:35 BNCH:BN09 00760/045 BENCHMARK - BATCH BN10 JOB C BNCH:BN10 D4.2T2 45 BENCHMARK_-_BATCH.BN10_JO.C.045 1 LINE 80 3 PAGE UQV OGDEN APR. 02, 1979 01:24:36 BNCH:BN10 00760/046 BENCHMARK - BATCH BN11 JOB C BNCH:BN11 D4.2T2 46 BENCHMARK_-_BATCH.BN11_JO.C.046 1 LINE 78 6 PAGE UQV OGDEN APR. 02, 1979 01:24:37 BNCH:BN11 00760/047 BENCHMARK - BATCH BN12 JOB C BNCH:BN12 D4.2T2 47 BENCHMARK_-_BATCH.BN12_JO.C.047 1 LINE 69 2 PAGE UQV OGDEN APR. 02, 1979 01:24:38 BNCH:BN12 00760/048 BENCHMARK - BATCH BN13 JOB C BNCH:BN13 D4.2T2 48 BENCHMARK_-_BATCH.BN13_JO.C.048 1 LINE 73 3 PAGE UQV OGDEN APR. 02, 1979 01:24:38 BNCH:BN13 00760/049 BENCHMARK - BATCH BN15 JOB C BNCH:BN15 D4.2T2 49 BENCHMARK_-_BATCH.BN15_JO.C.049 1 LINE 59 1 PAGE UQV OGDEN APR. 02, 1979 01:24:39 BNCH:BN15 00760/050 BENCHMARK - BATCH BN16 JOB C BNCH:BN16 D4.2T2 50 BENCHMARK_-_BATCH.BN16_JO.C.050 1 LINE 75 3 PAGE UQV OGDEN APR. 02, 1979 01:24:40 BNCH:BN16 00760/051 BENCHMARK - BATCH BN17 JOB C BNCH:BN17 D4.2T2 51 BENCHMARK_-_BATCH.BN17_JO.C.051 1 LINE 80 2 PAGE UQV OGDEN APR. 02, 1979 01:24:40 BNCH:BN17 00760/052 BENCHMARK - BATCH BN30 JOB C BNCH:BN30 D4.2T2 52 BENCHMARK_-_BATCH.BN30_JO.C.052 1 LINE 80 4 PAGE UQV OGDEN APR. 02, 1979 01:24:41 BNCH:BN30 00760/053 BENCHMARK - BATCH BN31 JOB C BNCH:BN31 D4.2T2 53 BENCHMARK_-_BATCH.BN31_JO.C.053 1 LINE 71 4 PAGE UQV OGDEN APR. 02, 1979 01:24:42 BNCH:BN31 00760/054 BENCHMARK - BATCH BN32 JOB C BNCH:BN32 D4.2T2 54 BENCHMARK_-_BATCH.BN32_JO.C.054 1 LINE 80 6 PAGE UQV OGDEN APR. 02, 1979 01:24:42 BNCH:BN32 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00760/055 BENCHMARK - BATCH BN33 JOB C BNCH:BN33 D4.2T2 55 BENCHMARK_-_BATCH.BN33_JO.C.055 1 LINE 72 3 PAGE UQV OGDEN APR. 02, 1979 01:24:44 BNCH:BN33 00760/056 BENCHMARK - BATCH BN34 JOB C BNCH:BN34 D4.2T2 56 BENCHMARK_-_BATCH.BN34_JO.C.056 1 LINE 72 3 PAGE UQV OGDEN APR. 02, 1979 01:24:45 BNCH:BN34 00760/057 BENCHMARK - BATCH BN35 JOB C BNCH:BN35 D4.2T2 57 BENCHMARK_-_BATCH.BN35_JO.C.057 1 LINE 72 4 PAGE UQV OGDEN APR. 02, 1979 01:24:46 BNCH:BN35 00760/058 BENCHMARK - BATCH BN36 JOB C BNCH:BN36 D4.2T2 58 BENCHMARK_-_BATCH.BN36_JO.C.058 1 LINE 72 2 PAGE UQV OGDEN APR. 02, 1979 01:24:47 BNCH:BN36 00760/059 BENCHMARK - BATCH BN37 JOB C BNCH:BN37 D4.2T2 59 BENCHMARK_-_BATCH.BN37_JO.C.059 1 LINE 80 9 PAGE UQV OGDEN APR. 02, 1979 01:24:47 BNCH:BN37 00760/060 BENCHMARK - BATCH BN38 JOB C BNCH:BN38 D4.2T2 60 BENCHMARK_-_BATCH.BN38_JO.C.060 1 LINE 80 25 PAGE UQV OGDEN APR. 02, 1979 01:24:48 BNCH:BN38 00760/061 BENCHMARK - BATCH BN39 JOB C BNCH:BN39 D4.2T2 61 BENCHMARK_-_BATCH.BN39_JO.C.061 1 LINE 80 15 PAGE UQV OGDEN APR. 02, 1979 01:24:50 BNCH:BN39 00760/062 BENCHMARK - BATCH BN40 JOB C BNCH:BN40 D4.2T2 62 BENCHMARK_-_BATCH.BN40_JO.C.062 1 LINE 80 14 PAGE UQV OGDEN APR. 02, 1979 01:24:51 BNCH:BN40 00760/063 BENCHMARK - BATCH BN41 JOB C BNCH:BN41 D4.2T2 63 BENCHMARK_-_BATCH.BN41_JO.C.063 1 LINE 80 5 PAGE UQV OGDEN APR. 02, 1979 01:24:53 BNCH:BN41 00760/064 BENCHMARK - BATCH BN42 JOB C BNCH:BN42 D4.2T2 64 BENCHMARK_-_BATCH.BN42_JO.C.064 1 LINE 72 4 PAGE UQV OGDEN APR. 02, 1979 01:24:53 BNCH:BN42 00760/065 BENCHMARK - BATCH BN43 JOB C BNCH:BN43 D4.2T2 65 BENCHMARK_-_BATCH.BN43_JO.C.065 1 LINE 72 3 PAGE UQV OGDEN APR. 02, 1979 01:24:54 BNCH:BN43 00760/066 BENCHMARK - BATCH BN44 JOB C BNCH:BN44 D4.2T2 66 BENCHMARK_-_BATCH.BN44_JO.C.066 1 LINE 72 4 PAGE UQV OGDEN APR. 02, 1979 01:24:55 BNCH:BN44 00760/067 BENCHMARK - BATCH BN50 JOB C BNCH:BN50 D4.2T2 67 BENCHMARK_-_BATCH.BN50_JO.C.067 1 LINE 73 21 PAGE UQV OGDEN APR. 02, 1979 01:24:55 BNCH:BN50 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00760/068 BENCHMARK - BATCH BN51 JOB C BNCH:BN51 D4.2T2 68 BENCHMARK_-_BATCH.BN51_JO.C.068 1 LINE 80 4 PAGE UQV OGDEN APR. 02, 1979 01:24:58 BNCH:BN51 00761/001 HARDWIRED TERMINALS *HWTERM SA G S0683 OGDEN FSNAME=TST.HWTERM.S D4.2T2 69 HARDWIRED_TERMINALS.*HWTE.SA.001 1 LINE 66 1 PAGE UM OGDEN FEB. 10, 1979 14:41:49 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. ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 761/3 00761/002 HARDWIRED TERMINALS *HWTERM OC G MTS:TST.HWTERM D4.2T2 70 HARDWIRED_TERMINALS.*HWTE.OC.002 1 LINE 80 1 PAGE UM OGDEN APR. 02, 1979 01:26:54 *HWTERM 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM AFTER IPL BY PISTLE. 00761/003 HARDWIRED TERMINALS HWTPRINT SA G STRT:HWTPRINT(1000) D4.2T2 71 HARDWIRED_TERMINALS.HWTPR.SA.003 1 LINE 72 1 PAGE UM OGDEN APR. 02, 1979 01:26:55 STRT:HWTPRINT 0 PROGRAM TO PRINT THE CONTENTS OF THE HARDWIRED TERMINAL TABLE (761/1) CURRENTLY IN USE. CALLS RJECHECK SUBROUTINE (IN HASP). ASSEMBLE USING COPY:MTS.MACROS (344/3). 00761/004 HARDWIRED TERMINALS HWTPRINT OC G STRT:HWTPRINT(1,999) D4.2T2 72 HARDWIRED_TERMINALS.HWTPR.OC.004 1 LINE 492 1 PAGE UM OGDEN APR. 02, 1979 01:26:56 00762/001 FIDS COMMAND FILE C MTA:FIDSCMD D4.2T2 73 FIDS.COMMAND_FILE.C.001 1 LINE 95 1 PAGE UM MTA APR. 02, 1979 01:26:57 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/7 WRITEUP. 00762/002 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/3. CONTAINS REP CARDS TO MAKE FIDS WORK IN *FAKEOS (545): 1 THU SEP 12/96 23:39:34 Page 411 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 MODULE RDFW5208 (MRXFIDS): REP 00492C 0147F0 DELETE DEBCHK CALL REP 004B64 0147F0 DELETE DEBCHK CALL MODULE RDFW5209 (MRXINIT): REP 000706 019003D004,4100B738,41100040,5000B738,D201B75ABFFC,9200B757 REP 000720 010A3B,D203C038B740,9803D004,95FFB757,0787,47F07004 REP 000738 0100000000,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/003 FIDS OS OBJECT OC # S0938 FSAVE2 VLO FSNAME=FIDS.FILE2(1) 235 UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS OS LINKEDIT INPUT FOR FIDS, COPIED FROM FILE 2 OF THE MEMOREX TAPE CURRENT ON APRIL 6, 1977. THIS IS VERSION 2.2 OF FIDS, ACCORDING TO THE MESSAGE IT PRINTS WHEN IT IS RUN. 00762/004 FIDS EXIT ROUTINE OC # S0938 FSAVE2 VLO FSNAME=FIDS.FILE3(1) 236 UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS THE OBJECT FOR AN EXIT ROUTINE USED BY OS FIDS TO GET CONTROL IN SUPERVISOR STATE (FILE 3 OF THE SAME TAPE AS 762/3). IT IS NOT USED IN MTS (OR MVS). 00762/005 FIDS BLDL D ETC:FIDS.BLDL D4.2T2 74 FIDS.BLDL.D.005 1 SEQ 250 1 PAGE UM MTA APR. 02, 1979 01:26:57 ETC:FIDS.BLDL 0 BLDL FILE FOR FIDS. OUTPUT FROM *FAKEOSCREBLDL (545/37). 00762/006 FIDS BLDL INPUT D MTA:FIDS.BLDLIN D4.2T2 75 FIDS.BLDL_INPUT.D.006 1 LINE 38 1 PAGE UM MTA APR. 02, 1979 01:26:58 MTA:FIDS.BLDLIN 0 INPUT TO *FAKEOSCREBLDLF (545/37) TO CREATE 762/5. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00762/007 FIDS WRITEUP WF S1320 D4.2T2 VLO FSNAME=FIDS.WRITEUP.WF.007(1) 76 D4.2T2 76 FIDS.WRITEUP.WF.007 1 LINE 67 1 PAGE UM MTA APR. 02, 1979 01:26:59 0 INSTRUCTIONS FOR RUNNING FIDS IN MTS. 00763/001 BLDGPLOT SOURCE SF G S0409 'BLDGPLOT' FSNAME=BPRGM D4.2T2 77 BLDGPLOT.SOURCE.SF.001 1 LINE 77 22 PAGE UM EMERY MAR. 09, 1979 12:06:11 0 THIS IS THE FORTRAN SOURCE PROGRAM FOR THE UM COMPUTING CENTER BUILDING PLOT. EXECUTION OF THE OBJECT VERSION (763/2) UTILIZES 3 INPUT FILES THAT ARE ASSIGNED TO LOGICAL I/O UNITS 2, 3, AND 4. THE PLOT DESCRIPTION IS DIRECTED TO LOGICAL I/O UNIT 9. THE FIRST INPUT FILE CONTAINS STRUCTURAL INFORMATION ABOUT THE BUILDING, THE SECOND CONTAINS PHYSICAL DESCRIPTIONS OF THE SIZE OF VARIOUS COMPUTER COMPONENTS AND FURNITURE ITEMS, AND THE THIRD CONTAINS INFORMATION ON WHICH COMPONENT IS INSTALLED AT A GIVEN BUILDING LOCATION FOR A SPECIFIED TIME PERIOD. 0 Referenced by comments of: 763/2 00763/002 BLDGPLOT OBJECT OC G S0409 'BLDGPLOT' FSNAME=BOBJ D4.2T2 78 BLDGPLOT.OBJECT.OC.002 1 LINE 9522 22 PAGE UM EMERY MAR. 12, 1979 12:39:46 0 OBJECT FOR BLDGPLOT PROGRAM (763/1). 0 Referenced by comments of: 763/1 00763/003 BLDGPLOT WALLS D S0409 'BLDGPLOT' FSNAME=BWALLS D4.2T2 79 BLDGPLOT.WALLS.D.003 1 LINE 81 23 PAGE UM EMERY MAR. 09, 1979 12:10:03 0 THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 2 WHEN PRODUCING A PLOT OF THE UM COMPUTING CENTER BUILDING. IT CONTAINS STRUCTURAL INFORMATION ON THE WALLS, WINDOWS, ELECTRICAL SERVICE OUTLETS, TELEPHONE SERVICE OUTLETS, ETC. 00763/004 BLDGPLOT DEVICES D S0409 'BLDGPLOT' FSNAME=BDEV D4.2T2 80 BLDGPLOT.DEVICES.D.004 1 LINE 94 5 PAGE UM EMERY MAR. 09, 1979 12:12:05 0 THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 3 WHEN PRODUCING A PLOT OF THE UM COMPUTING CENTER BUILDING. IT CONTAINS INFORMATION ABOUT THE SIZE OF VARIOUS COMPUTER COMPONENTS, TERMINALS, FURNITURE ITEMS, ETC. WHEN APPROPRIATE IT ALSO CONTAINS INFORMATION ABOUT THE LOCATION OF CABLE CUTOUTS IN COMPUTER COMPONENTS. 00763/005 BLDGPLOT DATA D S0409 'BLDGPLOT' FSNAME=BDATA D4.2T2 81 BLDGPLOT.DATA.D.005 1 LINE 79 33 PAGE UM EMERY MAR. 09, 1979 12:13:34 0 THIS IS THE DATA FILE ASSIGNED TO LOGICAL I/O UNIT 4 WHEN PRODUCING A PLOT OF THE UM COMPUTING CENTER BUILDING. IT CONTAINS INFORMATION ON WHICH COMPUTER COMPONENT, DESK, TERMINAL, BOOKCASE, ETC. WAS "INSTALLED" AT A PARTICULAR LOCATION IN THE BUILDING FOR A SPECIFIED TIME PERIOD. 0 Referenced by comments of: 763/6 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00763/006 BLDGPLOT LABELS D S0409 'BLDGPLOT' FSNAME=BLABEL D4.2T2 82 BLDGPLOT.LABELS.D.006 1 LINE 80 3 PAGE UM EMERY MAR. 09, 1979 12:16:02 0 THIS FILE MAY BE ASSIGNED TO LOGICAL I/O UNIT 4 WHEN PRODUCING A PLOT OF THE UM COMPUTING CENTER BUILDING. THE FILE CONTAINS INFORMATION DESCRIBING THE CONTENT AND LOCATION OF LABELS THAT SHOULD APPEAR IN THE PLOT. WHEN APPROPRIATE IT MAY BE CONCATENATED TO THE DATA FILE (763/5). 00764/001C APPEND SS O S0684 UNSP FSNAME=APPEND.S RD16T1 246 APPEND..SS.001 1 LINE 80 1 PAGE UM UNSP JAN. 03, 1979 14:01:22 0 APPEND IS A SPITBOL PROGRAM TO CONCATENATE LINES OF ONE FILE ONTO LINES OF ANOTHER, GIVEN 2 SPECIFIED COLUMN WIDTHS. 00764/002C APPEND OC O UNSP:APPEND RD16T1 247 APPEND..OC.002 1 LINE 5048 3 PAGE UM UNSP JULY 12, 1979 23:22:11 0 HAS A "$CONTINUE WITH *SPITLIB" CARD. 00764/003C APPEND WF S0684 UNSP FSNAME=APPEND.F RD16T1 248 APPEND..WF.003 1 LINE 67 1 PAGE UM UNSP JUNE 13, 1979 03:08:59 00765/001C DAVE/M MAIN SF G W234:DAVE/M.MAIN RD16T1 249 DAVE/M.MAIN.SF.001 1 LINE 72 12 PAGE UM WEISER JULY 12, 1979 23:22:31 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/4). 0 Referenced by comments of: 744/1, 765/3, 765/5, 765/7, 765/9, 765/13 00765/002C DAVE/M *DAVE OE G *DAVE RD16T1 250 DAVE/M.*DAVE.OE.002 1 LINE 20369 10 PAGE UM WEISER JULY 12, 1979 23:22:33 0 OBJECT OF 765/2. 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/003C DAVE/M PHASE0 SF G W234:PHASE0 RD16T1 251 DAVE/M.PHASE0.SF.003 1 LINE 73 28 PAGE UM WEISER JULY 12, 1979 23:22:34 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/004C DAVE/M PHASE0 OE G W234:DAVE.0 RD16T1 252 DAVE/M.PHASE0.OE.004 1 LINE 1532 12 PAGE UM WEISER JULY 12, 1979 23:22:38 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00765/005C DAVE/M PHASE1 SF G W234:PHASE1 RD16T1 253 DAVE/M.PHASE1.SF.005 1 LINE 73 93 PAGE UM WEISER JULY 12, 1979 23:22:39 0 SOURCE CODE FOR PHASE 1, THE PARSER. DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/006C DAVE/M PHASE1 OE G W234:DAVE.1 RD16T1 254 DAVE/M.PHASE1.OE.006 1 LINE 2346 35 PAGE UM WEISER JULY 12, 1979 23:23:13 00765/007C DAVE/M PHASE2 SF G W234:PHASE2 RD16T1 255 DAVE/M.PHASE2.SF.007 1 LINE 73 100 PAGE UM WEISER JULY 12, 1979 23:23:15 0 SOURCE CODE FOR PHASE 2, THE ANALYZER. DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/008C DAVE/M PHASE2 OE G W234:DAVE.2 RD16T1 256 DAVE/M.PHASE2.OE.008 1 LINE 7524 44 PAGE UM WEISER JULY 12, 1979 23:23:34 00765/009C DAVE/M PHASE3 SF G W234:PHASE3 RD16T1 257 DAVE/M.PHASE3.SF.009 1 LINE 75 29 PAGE UM WEISER JULY 12, 1979 23:23:38 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/010C DAVE/M PHASE3 OE G W234:DAVE.3 RD16T1 258 DAVE/M.PHASE3.OE.010 1 LINE 7225 19 PAGE UM WEISER JULY 12, 1979 23:23:48 00765/011C DAVE/M ASM SUBRS SA G W234:DAVE.ASM RD16T1 259 DAVE/M.ASM_SUBRS.SA.011 1 LINE 72 5 PAGE UM WEISER JULY 12, 1979 23:23:50 0 DAVE ASSEMBLER LANGUAGE SUBROUTINES. 00765/012C DAVE/M FTN SUBRS SF G W234:DATAB RD16T1 260 DAVE/M.FTN_SUBRS.SF.012 1 LINE 73 46 PAGE UM WEISER JULY 12, 1979 23:23:51 0 DAVE FORTRAN LANGUAGE SUBROUTINES. 00765/013C DAVE/M SUBR LIB OL G W234:DAVESUB RD16T1 261 DAVE/M.SUBR_LIB.OL.013 1 LINE 2058 25 PAGE UM WEISER JULY 12, 1979 23:26:55 0 OBJECT OF 765/11 AND 765/12. DYMANICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/014C DAVE/M DAVE.CMD C W234:DAVE.CMD RD16T1 262 DAVE/M.DAVE.CMD.C.014 1 LINE 64 1 PAGE UM WEISER JULY 12, 1979 23:26:58 0 COMMANDS TO CONSTRUCT A DAVE/M SYSTEM. WHEN THIS FILE IS SOURCED TO, THE 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 FORTRAN COMPILER PRODUCES ERROR MESSAGES WHICH SHOULD BE IGNORED. DAVE.CMD.LIST (765/15) IS THE OUTPUT GENERATED BY SOURCING TO THIS FILE. 00765/015C DAVE/M DAVE.CMD.LIST L W234:DAVE.CMD.LIST RD16T1 263 DAVE/M.DAVE.CMD.LIST.L.015 1 LINE 96 9 PAGE UM WEISER JULY 12, 1979 23:26:59 0 OUTPUT GENERATED WHEN 765/14 IS SOURCED TO. 0 Referenced by comments of: 765/14 00765/016C DAVE/M DATA BASE SF G W234:DBINIT RD16T1 264 DAVE/M.DATA_BASE.SF.016 1 LINE 73 22 PAGE UM WEISER JULY 12, 1979 23:27:00 0 SOURCE FOR THE PROGRAM USED TO GENERATE DAVE.INIT (765/19), AN INTERNAL DATA BASE USED BY DAVE/M. 0 Referenced by comments of: 765/19 00765/017C DAVE/M DATA BASE OE G W234:DBINB RD16T1 265 DAVE/M.DATA_BASE.OE.017 1 LINE 3160 14 PAGE UM WEISER JULY 12, 1979 23:27:03 0 OBJECT OF 765/16. 0 Referenced by comments of: 765/18 00765/018C DAVE/M DATA BASE D W234:NUDATA RD16T1 266 DAVE/M.DATA_BASE.D.018 1 LINE 67 4 PAGE UM WEISER JULY 12, 1979 23:27:04 0 INPUT DATA TO BE FED TO DBINB (765/17) TO CREATE DAVE.INIT (765/19). 0 Referenced by comments of: 765/19 00765/019C DAVE/M DATA BASE D W234:DAVE.INIT RD16T1 267 DAVE/M.DATA_BASE.D.019 1 LINE 3256 2 PAGE UM WEISER JULY 12, 1979 23:27:05 0 THIS IS THE DATA BASE PRODUCED BY THE DAVE/M DATA BASE PROGRAM (765/16), FROM DATA IN NUDATA (765/18). DAVE.INIT IS USED TO INITIALIZE DAVE/M. 0 Referenced by comments of: 765/16, 765/18 00765/020C DAVE/M TEST PROG SF G W234:TESTFL RD16T1 268 DAVE/M.TEST_PROG.SF.020 1 LINE 72 3 PAGE UM WEISER JULY 12, 1979 23:27:05 0 THIS IS A TEST PROGRAM FOR THE DAVE/M SYSTEM. 00765/021C DAVE/M DAVE.STAT D # MTS:TST.LOG UM WEISER 0 THIS IS THE LOG FILE WHICH IS REQUIRED BY DAVE/M. AT MICHIGAN, IT IS CALLED DAVE.STAT. THIS NAME MAY BE CHANGED BY OTHER INSTALLATIONS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 00765/022C DAVE/M MEMO 394 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M394 RD16T1 269 DAVE/M.MEMO_394.WF.022 1 LINE 84 12 PAGE UM WEISER MAY 09, 1979 16:33:53 0 THIS IS COMPUTING CENTER MEMO 394 -- "*DAVE". 01000/001 INTERACTIVE_FORTRAN INSTALL.PROC WF G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INSTAL.WF.01(1) 447 D4.2T2 83 INTERACTIVE_FORTRAN.INSTA.WF.001 1 LINE 80 2 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:31:37 0 DESCRIPTION OF THE PROCEDURE FOR INSTALLING INTERACTIVE FORTRAN. ************************************************************************* * THIS VERSION OF IF INTERFACES WITH THE REAL MTS EDITOR * * * * THE NEW VERSION FIXES MANY BUGS THAT HAVE BEEN REPORTED, * * PROVIDES A TOTALLY EXTERNAL INTERFACE TO THE SYSTEM EDITOR, * * AND PROVIDES THE FOLLOWING NEW FEATURES: * * * * -- A "/DISPLAY GRS" COMMAND TO DISPLAY GENERAL REGISTERS * * AFTER AN EXTERNAL INTERRUPT * * -- A "/DISPLAY /COMMON/" COMMAND TO DISPLAY THE STATUS * * OF A PARTICULAR COMMON BLOCK IN ALL ROUTINES * * -- MUCH BETTER MESSAGES IN THE CASES WHERE LOADING * * EXTERNAL ROUTINES FAILS * * -- ABBREVIATED KEYWORD LEFT HAND SIDES ARE ALLOWED * * (E. G.:" /RUN MAIN S=FILE") * * -- ERR= AND END= ARE IMPLEMENTED ON WRITE STATEMENTS * * -- CHARACTER VARIABLES ARE IMPLEMENTED, BUT UBC HAS * * CHOSEN NOT TO DOCUMENT THEM YET (AWAITING THE * * FORTRAN 77 STANDARD). * * -- THE VALUE OF THE LOGICAL CONSTANT THAT IF USES * * IS NOW THE SAME AS FORTRAN G * * -- THE DCONJG PROBLEM HAS BEEN FIXED * * * * * ************************************************************************* 0 Referenced by comments of: 1000/9 01000/002 INTERACTIVE_FORTRAN *IF SA G W167:IF.S D4.2T2 84 INTERACTIVE_FORTRAN.*IF.SA.002 1 LINE 80 9 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:36:13 0 ASSEMBLER SOURCE CODE FOR ROUTINE WHICH CALLS IF. MAY REQUIRE LOCAL MODS - READ THE COMMENTS IN THIS MODULE CAREFULLY. 0 Referenced by comments of: 1000/5, 1000/6, 1000/7 01000/003 INTERACTIVE_FORTRAN *IF OC G *IF D4.2T2 85 INTERACTIVE_FORTRAN.*IF.OC.003 1 LINE 80 3 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:36:15 *IF 0 CORRESPONDING OBJECT DECK FOR IF CALLING ROUTINE; NOTE THAT THIS CONTAINS A LCS CARD AND A LDT CARD. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01000/004 INTERACTIVE_FORTRAN MACLIB SM G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.MACLIB.SM.04(1) 450 D4.2T2 86 INTERACTIVE_FORTRAN.MACLI.SM.004 1 LINE 83 59 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:31:39 0 MACRO LIBRARY CONTAINING MACROS AND COPY SECTIONS USED BY ALL IF MODULES; COMMAND STREAMS FOR ASSEMBLING ANY COMPONENT MAY BE FOUND IN THE NEGATIVE LINE NUMBER AREA OF EACH SOURCE FILE. ALL COPY SECTIONS (EXCEPT THE INTERPRETER DSECTS) HAVE BEEN INCLUDED IN THIS MACRO LIBRARY. 01000/005 INTERACTIVE_FORTRAN ELMQQSV M G ETC:IF.ELMQQSV D4.2T2 87 INTERACTIVE_FORTRAN.ELMQQ.M.005 1 LINE 108 45 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:36:17 ETC:IF.ELMQQSV 0 IF ERROR MESSAGE FILE - MUST BE IMPLEMENTED @I. THE NEGATIVE LINE NUMBER REGION OF THIS FILE CONTAINS A SERIES OF MESSAGES WHICH ARE PRINTED WHEN A DUMP OCCURS -- THESE MESSAGES SHOULD BE CHANGED TO SUIT THE INSTALLATION. THE ERROR MESSAGE FILE IS FORMATTED AS FOLLOWS: TERSE MESSAGES : LINES 1-4999 NORMAL MESSAGES : LINES 5000-9999 LONG MESSAGES : LINES 10000-14999 VERBOSE MESSAGES : LINES 15000-19999 IF YOU CHANGE A MESSAGE, BE SURE TO CHANGE ALL 4 VERBOSITIES. SEE THE COMMENTS IN *IF (1000/2) FOR MORE INFORMATION. 01000/006 INTERACTIVE_FORTRAN DUMPS D G # ETC:IF.DUMP RD15 452 INTERACTIVE_FORTRAN.DUMPS.M.06 1 SEQ 72 3 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:31:50 ETC:IF.DUMP 0 FILE WHICH COLLECTS DUMP INFORMATION (PROGRAM INTERRUPTS IN IF). SEE THE COMMENTS IN *IF (1000/2) FOR MORE INFORMATION. NOTE THIS MUST BE A SEQUENTIAL FILE; THE OTHER AUXILIARY FILES ARE LINE FILES. DUMPS ARE ACTUALLY ONLY PROGRAM INTERRUPTS IN IF, AND USUALLY OCCUR AS THE RESULT OF A USER PROGRAM CLOBBERING IF CONTROL INFORMATION. YOU MAY SEE SEVERAL PIECES OF INFORMATION APPENDED TO THE FIRST LINE OF THE DUMP: "EXT" - MEANS THAT AN EXTERNAL ROUTINE WAS CALLED AT LEAST ONCE, WHICH ADDS WEIGHT TO THE HYPOTHESIS THAT THE DUMP WAS CAUSED BY A BUG IN AN EXTERNAL ROUTINE, RATHER THAN BY A BUG IN IF. "ARG" - MEANS THAT THE "/SET ARGCHK=ON" FEATURE WAS ENABLED AND WAS USED AT LEAST ONCE, WHICH ALSO ADDS WEIGHT TO THE HYPOTHESIS THAT THE DUMP WAS NOT CAUSED BY A BUG IN IF. DUMPS ARE LOGGED TO THIS FILE BY THE MDEBUG SUBCOMPONENT (1000/36). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01000/007 INTERACTIVE_FORTRAN EXPLAIN M G ETC:IF.EXPLAIN D4.2T2 88 INTERACTIVE_FORTRAN.EXPLA.M.007 1 LINE 79 23 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:36:21 ETC:IF.EXPLAIN 0 IF COMMAND EXPLAIN FILE; SEE THE COMMENTS IN *IF (1000/2) FOR FURTHER INFORMATION. THIS FILE IS GENERATED BY USING THE FORMAT SOURCE FOR THE IF MANUAL (1000/10) AS A DATABASE. NOTE THAT THE DESCRIPTION OF /SET ALIGN=ON,OFF HAS BEEN ADDED TO THE EXPLANATION OF THE /SET COMMAND (DO A /EXPLAIN /SET). 01000/008 INTERACTIVE_FORTRAN STATISTICS D G # ETC:IF.STAT RD15 454 INTERACTIVE_FORTRAN.STATIS.M.08 1 LINE 62 109 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:31:53 ETC:IF.STAT 0 USE STATISTICS COLLECTION FILE; NOTE THAT LINE 0 OF THIS FILE MAY CONTAIN A MESSAGE TO BE DISPLAYED UPON INVOCATION OF IF (THIS FACILITY EXISTED BEFORE THE LOADER SUPPORTED "MSG" CARDS). IF LINE 0 DOES CONTAIN AN INVOCATION MESSAGE, THE FILE SHOULD BE PERMITTED RWEXP OTHERS; IF LINE 0 DOES NOT CONTAIN AN INVOCATION MESSAGE, THE FILE SHOULD BE PERMITTED WEXP OTHERS. 01000/009 INTERACTIVE_FORTRAN SEG2IF OE G SEG2:IF D4.2T2 89 INTERACTIVE_FORTRAN.SEG2I.OE.009 1 LINE 32767 73 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:36:23 SEG2:IF 0 SHARED VM PORTION OF IF; THIS IS SQUASHED AND COMBINED AND PURGED OBJECT CODE. SEE THE INSTALLATION NOTES (1000/1) FOR MORE DETAILS. THIS PROBABLY CAN BE INSTALLED DIRECTLY INTO SHARED VM DURING THE POST-IPL LOADING SEQUENCE. THIS FILE IS CREATED BY COMBINING AND PURGING THE OBJECT DECKS IN THE TEST VERSION USING THE LINKAGE EDITOR. 0 Referenced by comments of: 1000/12 01000/010 INTERACTIVE_FORTRAN WRITEUP WF G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.WRITEU.WF.10(1) 456 D4.2T2 90 INTERACTIVE_FORTRAN.WRITE.WF.010 1 LINE 93 58 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:03 0 THIS IS THE FORMAT SOURCE FOR THE IF WRITEUP. 0 Referenced by comments of: 1000/7 01000/011 INTERACTIVE_FORTRAN WRITEUP PF G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.WRITEU.PF.11(1) 457 D4.2T2 91 INTERACTIVE_FORTRAN.WRITE.PF.011 1 LINE 117 101 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:08 0 THIS IS THE IF WRITEUP, SUITABLE FOR COPYING TO A PRINTER. 01000/012 INTERACTIVE_FORTRAN TEST.VERSION OC G W167:IF.TEST D4.2T2 92 INTERACTIVE_FORTRAN.TEST..OC.012 1 LINE 32767 73 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:36:33 0 TEST VERSION OF IF. ALL OF THE OBJECT MODULES COMPRISING THE RE-ENTRANT PROCESSOR (SOURCE IN COMP 1000/13 THRU 1000/48 AND 1000/51) ARE IN THIS FILE. THEY ARE SQUASHED BUT NOT COMBINED OR PURGED SO THAT INDIVIDUAL CSECTS ARE STILL ACCESSIBLE AND 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 REPLACEABLE. A SHARED VM VERSION OF IF (1000/9) IS CREATED BY COMBINING AND PURGING THE OBJECT DECKS IN THIS FILE USING THE LINKAGE EDITOR. 01000/013 INTERACTIVE_FORTRAN DIRECT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.DIRECT.SA.13(1) 459 D4.2T2 93 INTERACTIVE_FORTRAN.DIREC.SA.013 1 LINE 72 35 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:20 0 MAIN COMMAND PROCESSOR; APPEARS IN |MAP AS DIR. 01000/014 INTERACTIVE_FORTRAN EL SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.EL.SA.14(1) 460 D4.2T2 94 INTERACTIVE_FORTRAN.EL.SA.014 1 LINE 72 18 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:24 0 ERROR MESSAGE PRINTER; APPEARS IN |MAP AS EL. 01000/015 INTERACTIVE_FORTRAN GSC SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.GSC.SA.15(1) 461 D4.2T2 95 INTERACTIVE_FORTRAN.GSC.SA.015 1 LINE 72 36 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:26 0 SEMANTIC CODE GENERATOR; APPEARS IN |MAP AS GENCODE. 01000/016 INTERACTIVE_FORTRAN IFRD SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.IFRD.SA.16(1) 462 D4.2T2 96 INTERACTIVE_FORTRAN.IFRD.SA.016 1 LINE 72 18 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:29 0 FREE FORMAT INPUT ROUTINE; APPEARS IN |MAP AS IFRDCODE. 01000/017 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.17(1) 463 D4.2T2 97 INTERACTIVE_FORTRAN.INT.SA.017 1 LINE 83 1 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:31 0 A FILE CONTAINING $CONTINUE WITH'S FOR ASSEMBLING THE INTERPRETER. 99654 THE INTERPRETER APPEARS IN |MAP AS INTE. 01000/018 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.18(1) 464 D4.2T2 98 INTERACTIVE_FORTRAN.INT.SA.018 1 LINE 72 19 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:32 0 99653 01000/019 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.19(1) 465 D4.2T2 99 INTERACTIVE_FORTRAN.INT.SA.019 1 LINE 72 21 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:34 0 99652 01000/020 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.20(1) 466 D4.2T2 100 INTERACTIVE_FORTRAN.INT.SA.020 1 LINE 72 17 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:35 0 99651 01000/021 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.21(1) 467 D4.2T2 101 INTERACTIVE_FORTRAN.INT.SA.021 1 LINE 70 16 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:37 0 99650 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01000/022 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.22(1) 468 D4.2T2 102 INTERACTIVE_FORTRAN.INT.SA.022 1 LINE 72 21 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:39 0 99649 01000/023 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.23(1) 469 D4.2T2 103 INTERACTIVE_FORTRAN.INT.SA.023 1 LINE 72 19 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:41 0 99648 CONTAINS REP CARD TO MAKE OBJECT AGREE WITH SOURCE. 01000/024 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.24(1) 470 D4.2T2 104 INTERACTIVE_FORTRAN.INT.SA.024 1 LINE 72 19 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:43 0 99647 01000/025 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.25(1) 471 D4.2T2 105 INTERACTIVE_FORTRAN.INT.SA.025 1 LINE 72 18 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:45 0 99646 01000/026 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.26(1) 472 D4.2T2 106 INTERACTIVE_FORTRAN.INT.SA.026 1 LINE 72 14 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:46 0 99645 01000/027 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.27(1) 473 D4.2T2 107 INTERACTIVE_FORTRAN.INT.SA.027 1 LINE 72 8 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:48 0 99644 01000/028 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.28(1) 474 D4.2T2 108 INTERACTIVE_FORTRAN.INT.SA.028 1 LINE 72 17 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:49 0 99643 01000/029 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.29(1) 475 D4.2T2 109 INTERACTIVE_FORTRAN.INT.SA.029 1 LINE 72 15 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:50 0 99642 01000/030 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.30(1) 476 D4.2T2 110 INTERACTIVE_FORTRAN.INT.SA.030 1 LINE 72 15 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:51 0 99641 01000/031 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.31(1) 477 D4.2T2 111 INTERACTIVE_FORTRAN.INT.SA.031 1 LINE 72 17 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:53 0 99640 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01000/032 INTERACTIVE_FORTRAN INT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.INT.SA.32(1) 478 D4.2T2 112 INTERACTIVE_FORTRAN.INT.SA.032 1 LINE 72 7 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:54 0 THE INTERPRETERS DSECTS. THESE DSECTS ARE ALSO COPIED BY MON AND OUT. 01000/033 INTERACTIVE_FORTRAN IS SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.IS.SA.33(1) 479 D4.2T2 113 INTERACTIVE_FORTRAN.IS.SA.033 1 LINE 97 41 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:32:56 0 SEMANTIC CHECKING ROUTINE; APPEARS IN |MAP AS SIMLATOR. 01000/034 INTERACTIVE_FORTRAN LEX SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.LEX.SA.34(1) 480 D4.2T2 114 INTERACTIVE_FORTRAN.LEX.SA.034 1 LINE 73 28 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:02 0 LEXICAL SCANNER; APPEARS IN |MAP AS LEX. 01000/035 INTERACTIVE_FORTRAN LIN SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.LIN.SA.35(1) 481 D4.2T2 115 INTERACTIVE_FORTRAN.LIN.SA.035 1 LINE 73 26 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:06 0 LEXICAL SCANNER INPUT ROUTINE; APPEARS IN |MAP AS LIN. 01000/036 INTERACTIVE_FORTRAN MDEBUG SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.MDEBUG.SA.36(1) 482 D4.2T2 116 INTERACTIVE_FORTRAN.MDEBU.SA.036 1 LINE 73 31 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:09 0 BUILT-IN SDS-LIKE DEBUGGING FACILITY; DOCUMENTATION IS A SEPARATE COMPONENT (1000/49). HAS BREAKPOINTS, ATPOINTS, AND AN INSTRUCTION SIMULATOR MUCH LIKE SDS. APPEARS IN |MAP AS MDG. 0 Referenced by comments of: 1000/6, 1000/49 01000/037 INTERACTIVE_FORTRAN MON SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.MON.SA.37(1) 483 D4.2T2 117 INTERACTIVE_FORTRAN.MON.SA.037 1 LINE 72 15 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:13 0 COMPILER MONITOR; CONTAINS ENTRY POINT NAMED "IF". APPEARS IN |MAP AS MON. 01000/038 INTERACTIVE_FORTRAN OUT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.OUT.SA.38(1) 484 D4.2T2 118 INTERACTIVE_FORTRAN.OUT.SA.038 1 LINE 72 31 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:16 0 ANOTHER COMMAND PROCESSOR; APPEARS IN |MAP AS SUBOUT. NOTE: THIS MODULE COPIES THE INTERPRETER DSECTS. 01000/039 INTERACTIVE_FORTRAN PARSE SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.PARSE.SA.39(1) 485 D4.2T2 119 INTERACTIVE_FORTRAN.PARSE.SA.039 1 LINE 73 49 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:19 0 THE PARSER; APPEARS IN |MAP AS PARSER. 01000/040 INTERACTIVE_FORTRAN SCOM SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SCOM.SA.40(1) 486 D4.2T2 120 INTERACTIVE_FORTRAN.SCOM.SA.040 1 LINE 72 23 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:26 0 COMMON ROUTINE; APPEARS IN |MAP AS SCOM#. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01000/041 INTERACTIVE_FORTRAN SEQV SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SEQV.SA.41(1) 487 D4.2T2 121 INTERACTIVE_FORTRAN.SEQV.SA.041 1 LINE 72 18 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:28 0 EQUIVALENCE ROUTINE; APPEARS IN |MAP AS SEQV#. 01000/042 INTERACTIVE_FORTRAN SIM SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SIM.SA.42(1) 488 D4.2T2 122 INTERACTIVE_FORTRAN.SIM.SA.042 1 LINE 97 19 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:35 0 COMPILATION MONITOR; APPEARS IN |MAP AS SIM. 01000/043 INTERACTIVE_FORTRAN SLABEL SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SLABEL.SA.43(1) 489 D4.2T2 123 INTERACTIVE_FORTRAN.SLABE.SA.043 1 LINE 72 10 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:38 0 LABEL CHECKING ROUTINE; APPEARS IN |MAP AS SLABEL. 01000/044 INTERACTIVE_FORTRAN SPACE SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.SPACE.SA.44(1) 490 D4.2T2 124 INTERACTIVE_FORTRAN.SPACE.SA.044 1 LINE 73 19 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:39 0 VIRTUAL MEMORY MANAGEMENT; APPEARS IN |MAP AS CORE. 01000/045 INTERACTIVE_FORTRAN SYMBOL SA G W167:IF.SYMBOL D4.2T2 125 INTERACTIVE_FORTRAN.SYMBO.SA.045 1 LINE 104 32 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:37:03 0 SYMBOL TABLE ROUTINES; APPEARS IN |MAP AS SYMBOL. 01000/046 INTERACTIVE_FORTRAN TPUT SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.TPUT.SA.46(1) 492 D4.2T2 126 INTERACTIVE_FORTRAN.TPUT.SA.046 1 LINE 101 22 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:44 0 INTERFACE TO OPERATING SYSTEM; 99% OF SYSTEM DEPENDENCY IS GATED THROUGH THIS MODULE (IN FACT, IF RUNS UNDER TSS). APPEARS IN |MAP AS TPUT. 01000/047 INTERACTIVE_FORTRAN XLOADER SA G W167:IF.XLOADER D4.2T2 127 INTERACTIVE_FORTRAN.XLOAD.SA.047 1 LINE 86 95 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:37:07 0 IF'S EXTERNAL LOADER AND INTERFACE TO UMLOAD. APPEARS IN |MAP AS XLD. 01000/048 INTERACTIVE_FORTRAN FUNCTIONS SA G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.FUNCTI.SA.48(1) 494 D4.2T2 128 INTERACTIVE_FORTRAN.FUNCT.SA.048 1 LINE 71 7 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:58 0 CODE FOR ELEMENTARY FUNCTIONS NOT FOUND IN EFL (525); THESE ARE TYPICALLY THE "IN-LINE" FORTRAN FUNCTIONS. THIS ALSO SERVES AS THE ERROR MONITOR FOR EFL. IF USES EFL AND FIX (1002). 01000/049 INTERACTIVE_FORTRAN MDEBUG WF G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.MDEBUG.WF.49(1) 495 D4.2T2 129 INTERACTIVE_FORTRAN.MDEBU.WF.049 1 LINE 89 8 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:33:59 0 DOCUMENTATION FOR MDEBUG, THE IF SDS-LIKE DEBUGGING FACILITY (1000/36). 0 Referenced by comments of: 1000/36 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01000/050 INTERACTIVE_FORTRAN CALLINGIF WF G S1200 RD15T1 VLO FSNAME=INTERACTIVE_FORTRAN.CALLIN.WF.50(1) 496 D4.2T2 130 INTERACTIVE_FORTRAN.CALLI.WF.050 1 LINE 87 4 PAGE UBC O'REILLY HANSEN AUG. 30, 1978 22:34:00 0 WRITEUP DESCRIBING HOW TO CALL RESIDENT IF AS A SUBROUTINE. 01000/051 INTERACTIVE_FORTRAN EDITOR SA O W167:IF.EDITOR 497 D4.2T2 131 INTERACTIVE_FORTRAN.EDITO.SA.051 1 LINE 162 30 PAGE UBC O'REILLY HANSEN APR. 02, 1979 01:37:20 0 THIS IS THE INTERFACE TO THE NEW MTS EDITOR. IT USES SOME OF THE SAME MACROS THAT THE EDITOR USES (IF, THEN, ELSE, AND FRIENDS), AND ALSO THE MSG MACROS IN *SYSMAC (225). ************************************************************************** 1) THERE IS CURRENTLY A BUG IN THE EDITOR INTERFACE: WHEN RENUMBERING OF LINES IS UNDONE, IF MAY LOOSE TRACK OF, OR OTHERWISE GARBLE INTERPRETATION OF, BREAK POINTS SET AT LINE NUMBERS WITHIN THAT RANGE. ************************************************************************** 01002/001 FIX IBCOM# SA G S0850 FIXUM 'FIX-UM' FSNAME=IBCOM.S D4.2T2 132 FIX.IBCOM#.SA.001 1 LINE 102 17 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 10:57:56 0 -THIS IS THE FIX VERSION OF IBM'S IBCOM# 99999 -CONTAINS THE INITIAL TRANSFER VECTOR, AND CODE TO CONTROL UNFORMATTED IO -PROGRAMS WHICH STORE INFORMATION IN THE AREA AFTER THE INITIAL TRANFER VECTOR (EG: SNOBOL) WILL NOT WORK WITH A SEGMENT 2 VERSION OF FIX. THEY WILL EITHER HAVE TO BE MODIFIED, OR WILL HAVE TO RUN WITH A NON-RESIDENT VERSION OF FIX. SPACE HAS BEEN LEFT IN THE TRANSFER FOR THE LATTER PURPOSE. -TWO EXTRA WORDS HAVE BEEN ADDED TO THE TRANSFER VECTOR: (1) ENTRY FOR IF (INTERACTIVE FORTRAN) (2) ENTRY FOR STOP FROM FIODEBUG ******************************************************** * THIS IS VERSION 1.0 OF FORTRAN I/O (FINALLY) * * ALL ROUTINES HAVE BEEN RE-NUMBERED AND TIDIED * * THEY WILL NOT BE CHANGED UNTIL VERSION 2.0 * * PLEASE SEND CHANGES TO SOURCE CODE TO US AND WE * * WILL ATTEMPT TO INCORPORATE THEM EITHER BY USING * * THE CODE OR ADDING VIA CONDITIONAL ASSEMBLY * ******************************************************** -FORTRANH EXTENDED CODE ADDED BY CONDITIONAL ASSEMBLY TO HANDLE LIST DIRECTED I/O, PARTIAL SHORT LIST ARRAYS, AND AUTODOUBLE. SOME OF THE CODE INSERTED HAS NOT BEEN FULLY TESTED AS WE DO NOT YET HAVE FTNX. THE TEST FILES SENT BY WSU ALL TESTED OK. -THIS SHOULD BE THE FIRST ROUTINE IN THE OBJECT FILE. USED DURING PGNT PROCESSING TO DETERMINE IF IT OCCURRED INSIDE FIX. ------ 1 THU SEP 12/96 23:39:34 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 BUG FOUND IN FORTRAN-H EXTENDED STUFF AFTER SAVING SOURCE REPLACE "IPSLNXT(7)" OLD IS " SR WKA,ONE " NEW " S WKA,=F'1'" MOST OF THIS STUFF IS ASSEMBLED OUT UNLESS &FTNX IS REQUESTED. ***************************** * VERSION 1.1 OF FIX * ***************************** - PROGRAM INTERRUPT HANDLING HAS CHANGED. IF BEFORE FIRST CALL ON FIX A PGNTTRP HAS ALREADY BEEN SET, THEN IT IS NOT RESET. - UNITS 20-99 ARE NOW AVAILABLE THROUGH THE "ASSIGN" COMMAND ONLY. THIS FACILITY IS AVAILABLE BY CONDITIONAL ASSEMBLY (&U99). - FIODEBUG HAS BEEN SPLIT TO REMOVE THE ERROR TABLE AND ASSOCIATED CODE SO AS ENABLE CHEAP ERROR CHANGES. (SEE "ERRTABS") - ROUTINE "FTNERR" IS NOW AVAILABLE TO CALL THE ERROR MONITOR TO PRINT ERROR MESSAGES. USED BY EFL TO REMOVE ITS DEPENDENCE ON FIX. - ##READ AND ##WRITE HAVE BEEN ADDED TO THE TRANSFER VECTOR. THIS ALLOWS THE BASIC READ AND WRITE ROUTINES TO BE ALTERED IF NECESSARY. THIS CHANGE WAS MADE TO ENABLE ASSIST TO USE FIX. - DEBUG NOW CHECKS FOR SUBSCRIPTS OUT OF RANGE BELOW 1. - DISPLAY NAMELIST NOW AVAILABLE TO DISPLAY ALL VARIABLE NAMES AND THEIR DIMENSIONS. - FAKE "LIST DIRECTED I/O" HAS BEEN IMPLEMENTED BY CHECKING FOR '*' AS THE FIRST CHARACTER OF A VARIABLE FORMAT. - MODIFY COMMAND MAY NOW BE USED TO MODIFY SEVERITY LEVEL OF ANY ERROR MESSAGE. - "CLOSE" AND "RELEASE" COMMANDS IMPLEMENTED TO ALLOW USERS TO RELEASE VM THEY ARE NOT USING. ******************************* * VERSION 1.2 * ******************************* This is officially distributed FORTRAN I/O system incorporating the following changes: 1) QUERY command implemented. 2) A number of bug fixes. ------------------------------- Changes made to IBCOM include the following: 1) PGNT processing changed so that if ERRORDUMP is ON then ERROR is called to allow memory dump. 2) If running in IF and using dynamic loading, then program being loaded returned to If regardless of the MERGE setting. COPIES *GDINFODSECT (594). ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 0 Referenced by comments of: 1000/48, 3023/9 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01002/002 FIX UNIT.CONTROL SA G S0850 FIXUM 'FIX-UM' FSNAME=UCR.S D4.2T2 133 FIX.UNIT.CONTROL.SA.002 1 LINE 102 20 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 10:58:28 0 -THIS IS THE SOURCE CODE FOR THE FIX VERSION OF IBM'S FIOCS# 99998 -KNOWN AS THE "UNIT CONTROL ROUTINES" (UCR) -CONTAINS ENTRY POINTS FOR READ, WRITE, GETBUF, SETLNR REWIND, BACKSPACE, ENDFILE, DEFINE FILE -ENTRY CONVENTION HAS BEEN CHANGED FROM A TRANSFER VECTOR TO DIRECT CALLS -INDEXED READ/WRITE AND FIND CALL "SETLNR" WHICH JUST SETS THE INDEXED BIT AND STORES THE LINE NUMBER. -"ENDFILE=NEVER" SWITCH CHECKED AT "$END" PROCESSING AND $END RECORD IS RETURNED AS DATA IF ON. ---------------- Changes to the UCR routines include the following: 1) No check on length of record when thought a $END record was read leading to incorrect end of file returns. 2) If a NOTIFY occurred during an indexed read, then the read after the notify lost the indexed bit. 3) Changes made by UM to allow interaction with SIOERR. Note that a further change is required but not implemented in this version: if an error return is detected which does not have a DSR error message associated then FIODEBUG gets into trouble. 4) Changes made for D4.0 including implementation of DEFINE FILE using line files. Bug found just before distributing: 5) (2) above solved only problem with true indexed read. Did not solve problem when FIND followed by seq. READ. At UNOTR1 save and restore #DUMOD around call to UREOPN. COPIES *GDINFODSECT (594). ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/003 FIX INITIALIZER SA G S0850 FIXUM 'FIX-UM' FSNAME=INIT.S D4.2T2 134 FIX.INITIALIZER.SA.003 1 LINE 102 6 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 10:59:02 0 -SOURCE CODE FOR FIXINIT, THE FIX PSECTS INITIALIZER 99997 -FOUR MAIN FUNCTIONS: 1: ACQUIRE AND INITIALIZE GLOBAL FIX PSECT, ACQUIRED VIA MTS SUBROUTINES GPSECT,QPSECT 2: RE-INITIALIZE GLOBAL FIX PSECT 3: INITIALIZE A UNIT DSECT 4: FIXEND - TERMINATE (RESTORES FPRS NOW) -FIXINIT ALSO COLLECTS STATISTICS ON FIX USAGE AND LOGS THEM TO THE FILE "STATFILE". A SPECIAL CALL TO GUINFO RETRIEVES THE NAME OF THE LOAD MODULE INVOLVED IN THE USAGE OF FIX. THIS FEATURE IS DEPENDENT ON THE &DEBUG FLAG. ---------------- Only minor changes have occurred in this module - mostly to initialize other items required by other changes. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 COPIES *CNFGINFODSECT (654). ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/004 FIX MISCELLANEOUS SA G S0850 FIXUM 'FIX-UM' FSNAME=FIXM.S D4.2T2 135 FIX.MISCELLANEOUS.SA.004 1 LINE 101 11 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 10:59:22 0 -A BUNCH OF MISCELLEOUS SMALL SUBROUTINES 99996 -SOURCE CODE FOR SETDSR,GETIHC,PUTIHC,SETBLK,SETSTA (WHICH ARE ALL ESSENTIALLY DUMMY ROUTINES NOW) -ALSO CONTAINS SOURCE CODE FOR SETDSN WHICH CALLS SETLIO TO ASSIGN THE UNIT -ALSO CONTAINS SOURCE CODE FOR IPDCODI IPDCODI DECODES THE INITIAL PARAMETER LISTS PASSED BY FORTRAN -SLITE/SLITET/DVCHK/OVFLOW ROUTINES. THESE ROUTINES HAVE BEEN MADE AVAILABLE BUT DON'T REALLY WORK AS PGNT TRAPS DON'T SET ANY FLAGS FOR THESE ROUTINES TO FIND. -GRAB/FOSP/FASP. GETSPACE/FREESPACE ROUTINES FOR FIX. FASP IS USED WHEN ALL SPACE IS TO BE RELEASED. ---------------- Only minor changes have occurred in this module. ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/005 FIX DEBUG.PACKAGE SA G S0850 FIXUM 'FIX-UM' FSNAME=DEBUG.S D4.2T2 136 FIX.DEBUG.PACKAGE.SA.005 1 LINE 102 11 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 10:59:43 0 -SOURCE CODE FOR THE FORTRAN DEBUG PACKAGE 99995 -COMPLETE DEBUG PACKAGE HAS NOW BEEN IMPLEMENTED -MORE OR LESS THE SAME AS THE ORIGINAL DEBUG PACKAGE EXCEPT THAT WHEN I/O MUST BE SAVED, SPACE IS ACQUIRED FOR EACH OUTPUT LINE INSTEAD OF IN CHUNKS OF 256. -DIPLAY FEATURE USES A SEPARATE ENTRY POINT INTO NAMELIST TO DO THE REQUIRED I/O. -NEW FEATURE ADDED: WHEN SUBTRACE IS ON, THEN THE NAME OF THE ROUTINE IS PRINTED ON ENTRY AND EXIT -UNDEFINED VARIABLES (X'81') NOW PRINT "U"'S. ---------------- ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/006 FIX ERROR.MONITOR SA G S0850 FIXUM 'FIX-UM' FSNAME=FIODEBUG.S D4.2T2 137 FIX.ERROR.MONITOR.SA.006 1 LINE 105 101 PAGE UBC BUCKLAND TIFFANY DEC. 07, 1978 11:00:03 0 -SOURCE CODE FOR THE ERROR MONITOR 99994 -CURRENTLY HANDLES ALL IO ERRORS, IHC ERRORS WHICH CALL IBCOM#, AND PROGRAM INTERRUPTS (TAKING ADVANTAGE OF THE INITIAL CALL TO IBCOM# TO SET THE PROGRAM INTERRUPT TRAP). -IN THE FUTURE, MAY BE EXTENDED TO HANDLE ELEMENTARY FUNCTION ERRORS. -GIVES TRACEBACKS AFTER IO ERRORS AND PROGRAM INTERRUPTS BUT DOES NOT USE TRACER -HOOKS ARE THERE FOR HANDLING ELEMENTARY FUNCTION ERRORS -ENTRY POINT FTNCMD - USER CALLABLE SUBROUTINE. CC COMMANDS @@@UNIT AND @@@PSECT USE PRDSCT (1006/1) TO 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 DUMP THE UNIT DSECT AND THE MAIN PSECT RESPECTIVELY. -NOW ACCEPTS NEW PAR LIST - STRING TERMINATED BY ';'. -SHOULD BE THE LAST OBJECT MODULE IN THE LOAD FILE - THIS FACT IS USED TO DETERMINE IF A PGNT OCCURRED IN FIX. ---------------- ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). COPIES *GDINFODSECT (594) AND *CNFGINFODSECT (654). 01002/007 FIX NAMELIST SA G S0850 FIXUM 'FIX-UM' FSNAME=NAMEL.S D4.2T2 138 FIX.NAMELIST.SA.007 1 LINE 102 27 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 11:01:15 0 -SOURCE CODE FOR THE NAMELIST ROUTINE 99993 -ESSENTIALLY COMPATIBLE WITH IBM'S NAMELIST, EXCEPT WILL PRODUCE BETTER ERROR CHECKS -TWO BASIC INPUT FORMATS ARE SUPPORTED: 1: IBM FORMAT, ASSUMED IF "&" IS FOUND IN COLUMN TWO OF FIRST CARD 2: FREE FORMAT, OTHERWISE WITH BLANKS,COMMAS SERVING AS DELIMITERS -ERROR RECOVERY HAS BEEN ADDED. CONVERSATIONAL USER MAY NOW MODIFY ILLEGAL INPUT. ---------------- Bug fixed which did not distinguish between array subscripts and values if a blank preceded the "=". ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/008 FIX VARIABLE.FMT SA G S0850 FIXUM 'FIX-UM' FSNAME=VDCODE.S D4.2T2 139 FIX.VARIABLE.FMT.SA.008 1 LINE 103 16 PAGE UBC BUCKLAND TIFFANY DEC. 07, 1978 11:01:43 0 -SOURCE CODE FOR ROUTINE WHICH DECODES VARIABLE FORMATS 99992 -SAVES THE FORMAT AND CHECKS FOR EQUALITY IF CALLED AGAIN IN AN ATTEMPT TO SAVE DECODING EFFORT -STRINGENT ERROR CHECKS -LIST DIRECTED I/O IMPLEMENTED BY CHECKING FOR '*' IN THE FIRST CHARACTER OF A VARIABLE FORMAT. ---------------- ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/009 FIX FORMATTED.IO SA G S0850 FIXUM 'FIX-UM' FSNAME=FORMAT.S D4.2T2 140 FIX.FORMATTED.IO.SA.009 1 LINE 103 31 PAGE UBC BUCKLAND TIFFANY DEC. 07, 1978 11:02:03 0 -SOURCE CODE FOR ROUTINE WHICH CONTROLS FORMATTED IO 99991 -NO KNOWN BUGS -ERROR RECOVERY IMPLEMENTED ---------------- ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01002/010 FIX LLXU SA G S0850 FIXUM 'FIX-UM' FSNAME=LLXUF.S D4.2T2 141 FIX.LLXU.SA.010 1 LINE 102 13 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 11:02:35 0 -DYNAMIC LOADING INTERFACE ROUTINES WRITTEN BY UM (FROM LATEST 99990 REDISTRIBUTION TAPE) -SLIGHTLY MODIFIED BY UBC TO REQUIRE ALL UNITS TO BE RE-OPENED ON RETURN FROM LINKED ROUTINE. ---------------- HAVE MADE SOME MINOR MODIFICATIONS TO CONFORM TO OUR LOADER: - SI# NOT RETURNED AS FUNCTION VALUE IN R0 HERE ------------------------------- Changes made to make these routines recognize the MERGE setting properly. Conditional assembly parameters available to control the length of the parameter list available to LOADF. Here at UBC we do not advertise that LOAD can have a variable number of parameters and do not support them. ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/011 FIX DEFAULTS SA G S0850 FIXUM 'FIX-UM' FSNAME=DEFAULTS.S D4.2T2 142 FIX.DEFAULTS.SA.011 1 LINE 105 1 PAGE UBC BUCKLAND TIFFANY DEC. 07, 1978 11:02:59 0 THIS IS A TABLE OF DEFAULTS WHICH CONTROLS WHICH UNITS 99989 ARE TO BE DEFAULTED IF NOT SPECIFIED ON THE RUN COMMAND. CURRENTLY, IT IS SET UP TO DEFAULT: 5 - *SOURCE* 6 - *SINK* ---------------- ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/012 FIX LIST_DIRECTED SA G S0850 FIXUM 'FIX-UM' FSNAME=LSTDIO.S D4.2T2 143 FIX.LIST_DIRECTED.SA.012 1 LINE 103 21 PAGE UBC BUCKLAND TIFFANY DEC. 07, 1978 11:03:18 0 -ROUTINE TO IMPLEMENT THE FORTRAN-H EXTENDED FEATURE 99988 LIST DIRECTED I/O. THIS ROUTINE IS CALLED BY IBCOM# WHEN REQUIRED (LDFIO# ENTRY) OR BY THE FORMATTING ROUTINES IF A VARIABLE FORMAT ('*') IS DETECTED. ---------------- ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/013 FIX LCS.SOURCE SA G S0850 FIXUM 'FIX-UM' FSNAME=FIXLCS.S D4.2T2 144 FIX.LCS.SOURCE.SA.013 1 LINE 103 1 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 11:03:43 0 -SOURCE FOR THE LOW CORE SYMBOL DICTIONARY FOR FIX. 99987 DESCRIBES ALL CURRENT REQUIRED USER ENTRY POINTS. -ROOM FOR 12 EXTRA ENTRY POINTS AT THE END OF THE TABLE ---------------- A number of extra entry points were added in D4.0 for SDS. ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01002/014 FIX ERRTABS SA G S0850 FIXUM 'FIX-UM' FSNAME=ERRTABS.S D4.2T2 145 FIX.ERRTABS.SA.014 1 LINE 104 1 PAGE UBC BUCKLAND TIFFANY DEC. 07, 1978 11:03:55 0 ---------------- 99965 NEW MODULE ADDED. ITS AN OFFSHOOT FROM FIODEBUG. DONE TO MINIMIZE THE COST OF ADDING OR CHANGING ONE OR MORE ERRORS. ASSEMBLE USING THE FIX MACRO LIBRARIES (1002/16 AND 1002/17). 01002/015 FIX DUMP SA G S0850 FIXUM 'FIX-UM' FSNAME=DUMP.S D4.2T2 146 FIX.DUMP.SA.015 1 LINE 72 7 PAGE UBC O'REILLY TIFFANY DEC. 07, 1978 11:04:22 0 SOURCE TO IMPLEMENT FORTRAN DUMP/PDUMP. 99984 RESIDES IN THE GENERAL LIBRARY AS IT IS NOT USED VERY MUCH. ---------------- 01002/016 FIX MACRO_LIB SM G S0850 FIXUM 'FIX-UM' FSNAME=MACLIB D4.2T2 147 FIX.MACRO_LIB.SM.016 1 LINE 73 15 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 11:04:41 0 -MACRO LIBRARY USED BY ALL FIX MODULES 99976 ---------------- This library has been updated to use the new facilities and now contains copy sections as well as macros. FIODSCT and UNITDSCT were not included as they are required by PRDSCT during dumping on error. 01002/017 FIX MACRO_LIB2 SM G S0850 FIXUM 'FIX-UM' FSNAME=MAC2LIB D4.2T2 148 FIX.MACRO_LIB2.SM.017 1 LINE 72 12 PAGE UBC STEVENS TIFFANY DEC. 07, 1978 11:05:11 0 This auxiliary macro library consists of two copy sections: FIODSCT (1002/19) and UNITDSCT (1002/20). 01002/018 FIX UM_UPDATES UC G W062:FIX.UP D4.2T2 149 FIX.UM_UPDATES.UC.018 1 LINE 68 3 PAGE UBC STEVENS TIFFANY APR. 13, 1979 16:14:43 0 THIS FILE CONTAINS UM'S UPDATES TO THE VARIOUS SUBCOMPONENTS OF UBC'S FIX. 01002/019 FIX FIX.PSECT SA G ETC:FIX.FIODSCT D4.2T2 150 FIX.FIX.PSECT.SA.019 1 LINE 72 11 PAGE UBC ALL TIFFANY APR. 02, 1979 01:39:30 ETC.:FIX.FIODSCT 0 -ASSEMBLER CODE FOR THE GLOBAL FIX PSECT 99980 -ALL FIX MODULES " COPY FIODSCT " -THE PSECT IS ACQUIRED BY GPSECT -REQUIRED TO BE PERMITTED READ TO ALL AS PRDSCT IS USED TO DUMP THE DSECT ON SERIOUS ERRORS. (PRDSCT = 1006/1) ---------------- Restore to &ID:&FILEPFX.FIODSCT (ETC.:FIX.FIODSCT at UM). 0 Referenced by comments of: 1002/17, 3023/9 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01002/020 FIX UNIT.PSECT SA G ETC:FIX.UNITDSCT D4.2T2 151 FIX.UNIT.PSECT.SA.020 1 LINE 72 3 PAGE UBC STEVENS TIFFANY APR. 02, 1979 01:39:32 ETC.:FIX.UNITDSCT 0 -SEPARATE FILE CONTAINING THE SOURCE CODE TO DEFINE THE DSECT FOR 99977 -THE UNITS. -MUST BE "READ" PERMITTED TO ALL USERS (PRDSCT = 1006/1). -INCLUDED BY "COPY UNITDSCT" ---------------- Restore to &ID:&FILEPFX.UNITDSCT (ETC.:FIX.UNITDSCT at UM). 0 Referenced by comments of: 1002/17 01002/021 FIX ERROR.MESSAGES M G ETC:FIX.MESSAGES D4.2T2 152 FIX.ERROR.MESSAGES.M.021 1 LINE 190 6 PAGE UBC ALL TIFFANY APR. 02, 1979 01:39:32 ETC.:FIX.MESSAGES 0 -THE MESSAGE FILE FOR ALL IO ERRORS 99973 -LINE N HAS THE MESSAGE FOR ERROR NUMBER N -CURRENTLY MESSAGES CANNOT BE MULTI-LINE -LINE N+5000 HAS THE DEFAULT MESSAGE FOR THAT ERROR -MUST BE PERMITTED FOR READING BY EVERYBODY -IMPLEMENT THIS FILE @I ---------------- Restore this to &ID:&FILEPFX.MESSAGES (ETC.:FIX.MESSAGES at UM). 01002/022 FIX EXPLAIN.MSGS M G ETC:FIX.EXPLAIN D4.2T2 153 FIX.EXPLAIN.MSGS.M.022 1 LINE 70 8 PAGE UBC BUCKLAND TIFFANY APR. 02, 1979 01:39:33 ETC.:FIX.EXPLAIN 0 -FILE ACCESSED BY THE ERROR MONITOR, ERRMON.S, IN 99972 RESPONSE TO THE "EXPLAIN COMMAND". -MUST BE IMPLEMENTED @I, AND MUST BE PERMITTED FOR EVERYONE TO READ ---------------- Restore this to &ID:&FILEPFX.EXPLAIN (ETC.:FIX.EXPLAIN at UM). 01002/023 FIX SHARED.OBJECT OE G SEG2:FIX D4.2T2 154 FIX.SHARED.OBJECT.OE.023 1 LINE 32767 49 PAGE UBC ALL TIFFANY APR. 13, 1979 01:05:35 SEG2:FIX 01002/024 FIX INTERNAL.DOC WF G S0850 FIXUM 'FIX-UM' FSNAME=FIX.WS D4.2T2 155 FIX.INTERNAL.DOC.WF.024 1 LINE 77 30 PAGE UBC BUCKLAND TIFFANY DEC. 07, 1978 11:12:28 0 -COMPREHENSIVE INTERNAL DOCUMENTATION FOR THE FIX PROJECT 99971 -THE WRITEUP DOES NOT REFLECT THE FINAL STATUS OF THE PROJECT. ---------------- ALL CHANGES TO ALL SOURCE PROGRAMS ARE DOCUMENTED HERE TO SAVE HAVING TO ADD THESE THINGS TO THE DRIVER FILE. (AT LEAST THE MAJOR ONES) 0 Referenced by comments of: 1002/25 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01002/025 FIX INTERNAL.DOC.P PF G S0850 FIXUM 'FIX-UM' FSNAME=FIX.W D4.2T2 156 FIX.INTERNAL.DOC.P.PF.025 1 LINE 79 46 PAGE UBC BUCKLAND TIFFANY DEC. 07, 1978 11:14:02 0 A printout produced by UBC *FORMAT from FIX.WS (1002/24). 01005/001 FREAD SUBR FREAD# SA G S0579 SAVE 'JWS-SAVE' FSNAME=FREAD#.S D4T3 389 FREAD_SUBR.FREAD#.SA.001 1 LINE 77 52 PAGE UBC STEVENS TIFFANY JUNE 15, 1977 09:37:11 0 THIS IS THE REENTRANT PART OF FREAD, THE FREE FORMAT INPUT FACILITY. COPIES THE FREAD.COPY COPY SECTION (1005/5). 0 Referenced by comments of: 1005/3 01005/002 FREAD SUBR FREAD# OC G SEG2:FREAD D4T3 390 FREAD_SUBR.FREAD#.OC.002 1 LINE 80 11 PAGE UBC STEVENS TIFFANY JULY 29, 1977 00:10:49 SEG2:FREAD 0 THIS OBJECT IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE. 01005/003 FREAD SUBR FREAD SA G S0579 SAVE 'JWS-SAVE' FSNAME=FREAD.S D4T3 391 FREAD_SUBR.FREAD.SA.003 1 LINE 77 3 PAGE UBC STEVENS TIFFANY MAY 12, 1977 16:17:34 0 THIS IS THE NON-REENTRANT PART OF FREAD WHICH INTERFACES TO THE REENTRANT PART (1005/1). COPIES THE FREAD.COPY COPY SECTION (1005/5). 01005/004 FREAD SUBR FREAD OC G # *LIBRARY (SEE COMP 524) UBC STEVENS TIFFANY 01005/005 FREAD SUBR FREAD.COPY SA G S0579 SAVE 'JWS-SAVE' FSNAME=FREAD.COPY D4T3 392 FREAD_SUBR.FREAD.COPY.SA.005 1 LINE 72 4 PAGE UBC STEVENS TIFFANY JUNE 13, 1977 11:51:56 0 COPY SECTION USED BY 1005/1 AND 1005/3. 0 Referenced by comments of: 1005/1, 1005/3 01006/001 PRDSCT SA W062:PRDSCT.S D4.1T1 650 PRDSCT..SA.001 1 LINE 83 21 PAGE UBC STEVENS TIFFANY MAY 13, 1978 18:28:15 0 ROUTINE TO PRINT A FORMATTED DUMP OF A DSECT. ASSEMBLE USING THE UBC MACRO LIBRARY (1024). 0 Referenced by comments of: 1002/6 01006/002 PRDSCT OC ETC:FIX.PRDSCT D4.1T1 651 PRDSCT..OC.002 1 LINE 5843 3 PAGE UBC STEVENS TIFFANY MAY 13, 1978 18:28:17 ETC:FIX.PRDSCT 01012/001B UNITS JOB PROGRAM SA G MTA:UNITS.S(1,1999) RD16T1 270 UNITS.JOB_PROGRAM.SA.001 1 LINE 79 20 PAGE UBC BERRYMAN MTA JULY 12, 1979 23:29:33 MTA.:UNITS.S 0 JOB PROGRAM INTERFACE FOR THE UNITS JOB AND A SUBROUTINE CALLED BY IT AND ALSO BY THE MTS UNITS PROGRAM (1012/3). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). ASSEMBLE USING DMPLST.MACROS (400/12). 1 THU SEP 12/96 23:39:34 Page 432 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 490/1, 1012/3 01012/002B UNITS JOB PROGRAM OC G # RESIDENT SYSTEM (SEE 468/1) D4T3 396 UNITS.JOB_PROGRAM.OC.002 1 LINE 80 6 PAGE UBC BERRYMAN MTA JULY 29, 1977 00:11:35 0 Referenced by comments of: 400/13 01012/003 UNITS MTS PROGRAM SA G MTA:UNITS.S(2000) D4.2T2 546 UNITS.MTS_PROGRAM.SA.003 1 LINE 57 1 PAGE UBC BERRYMAN MTA APR. 09, 1979 00:22:55 0 MTS PROGRAM TO FORMAT PARAMETERS AND CALL THE UNITS SUBROUTINE (1012/1). 0 Referenced by comments of: 1012/1 01012/004 UNITS MTS PROGRAM OE G MTA:UNITS.O D4.2T2 547 UNITS.MTS_PROGRAM.OE.004 1 LINE 80 1 PAGE UBC BERRYMAN MTA APR. 09, 1979 00:22:57 MTA.:UNITS.O 0 MUST BE RUN WITH PROT=OFF UNLESS A SET OF TABLES IS CONCATENATED WITH IT. 01016 STEVENS MACRO LIB SM S1200 RD15T1 VLO FSNAME=STEVENS.MACRO.LIB..SM.01 D4T3 399 STEVENS_MACRO_LIB..SM. 1 LINE 73 6 PAGE UBC STEVENS DWB JULY 29, 1977 00:11:42 DWB.:JESMACLIB 0 MACROS NEEDED BY *APC (496). 01019/001 RAMROD SERVICE MODULE SA G MTS:RAMROD.SR.S(1) D4.2T2 158 RAMROD.SERVICE_MODULE.SA.001 1 LINE 75 53 PAGE UBC MTA APR. 02, 1979 01:39:48 MTS.:RAMROD.SR.S 0 SERVICE ROUTINES FOR RAMROD. ASSEMBLE USING RAMROD MACROS (1019/3). 0 Referenced by comments of: 1019/4 01019/002 RAMROD INTER SA G MTS:RAMROD.CS.S(1) D4.2T2 159 RAMROD.INTER.SA.002 1 LINE 80 88 PAGE UBC BERRYMAN MTA APR. 02, 1979 01:40:02 MTS.:RAMROD.CS.S 0 SOURCE FOR THE RAMROD COMMAND LANGUAGE INTERPRETER. REQUIRES THE MSG ROUTINES (1023). REQUIRES THE EXISTENCE OF A FILE (PRESENTLY NAMED MTS:RAMRODLOG BY DEFAULT, BUT SETABLE) WHICH IS PERMITTED WRITE-EXTEND (AT LEAST) FOR ITS TRANSACTION LOG. IT ALSO REQUIRES AN EXPLAIN FILE (1019/5). ALL FILENAMES OF THIS SORT ARE ASSEMBLY PARAMETERS. COPIES *GFINFODSECT (593). ASSEMBLE USING RAMROD.MACROS (1019/3). 0 Referenced by comments of: 1019/4 01019/003 RAMROD MACROS SM G MTS:RAMROD.MACS D4T3 402 RAMROD.MACROS.SM.003 1 LINE 72 4 PAGE UBC BERRYMAN MTA JULY 29, 1977 00:12:55 MTS.:RAMROD.MACS 0 THESE MACROS AND COPY SECTIONS ARE USED FOR BOTH THE COMMAND LANGUAGE INTERPRETER AND THE SERVICE MODULE. 1 THU SEP 12/96 23:39:34 Page 433 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1019/1, 1019/2, 1019/6 01019/004 RAMROD OBJECT OC G MTS:RAMROD D4.2T2 160 RAMROD.OBJECT.OC.004 1 LINE 3869 51 PAGE UBC MTA APR. 02, 1979 01:40:51 MTS.:RAMROD 0 CONTAINS THE OBJECT FOR THE COMMAND LANGUAGE INTERPRETER (1019/2) AND THE SERVICE MODULE (1019/1). 01019/005 RAMROD EXPLAIN M MTS:RAMRODEXP D4T3 404 RAMROD.EXPLAIN.M.005 1 LINE 79 3 PAGE UBC BERRYMAN MTA JULY 29, 1977 00:13:03 MTS.:RAMRODEXP 0 EXPLAIN FILE FOR RAMROD. AS DISTRIBUTED, RAMROD EXPECTS THIS FILE TO BE NAMED MTS:RAMRODEXP. NOTE: LINE NUMBERS IN THIS FILE ARE IMPORTANT AND THE FILE STARTS AT LINE 0. 0 Referenced by comments of: 1019/2 01019/006 RAMROD DUMP SA G MTS:RRDMP.S D4T3 405 RAMROD.DUMP.SA.006 1 LINE 72 8 PAGE UBC MTA JULY 29, 1977 00:13:05 MTS.:RRDMP.S 0 RAMROD FILE DIRECTORY DUMP PROGRAM. ASSEMBLE USING RAMROD MACROS (1019/3). 01019/007 RAMROD DUMP OC G MTS:RRDMP D4T3 406 RAMROD.DUMP.OC.007 1 LINE 80 7 PAGE UBC MTA JULY 29, 1977 00:13:08 MTS.:RRDMP 01019/008 RAMROD INTRO WF S0031 UBC46 FSNAME=RAMROD.DOCUMENT.WF.13(1) 52 D4T3 407 RAMROD.INTRO.WF.008 1 LINE 79 4 PAGE UBC HOGG MTA MAR. 22, 1976 14:33:16 0 INTRODUCTION TO RAMROD AND IPL READER (1021). RELEVANT MAINLY TO INSTALLATIONS CONVERTING FROM PRE-IPLREADER VERSIONS OF RAMROD. 01019/009 RAMROD WRITEUP WF MTS:RAMROD.W D4.1T1 654 RAMROD.WRITEUP.WF.009 1 LINE 115 11 PAGE UBC BERRYMAN MTA MAY 13, 1978 18:28:38 MTS.:RAMROD.W 0 WRITEUP DESCRIBING THE RAMROD UTILITY. 01019/010 RAMROD MTS:RAMRODLOG D # MTS:TST.RAMRLOG UBC BERRYMAN MTA MTS:RAMRODLOG 0 RAMROD LOG FILE. 01020/001 FILE MOVE SA G FILE:FM.S D4.2T2 161 FILE_MOVE..SA.001 1 LINE 72 11 PAGE UBC HOGG HELFFRICH APR. 02, 1979 01:40:56 FILE:FM.S 0 PROGRAM TO MOVE FILES FROM A PRODUCTION FILE SYSTEM TO A TEST PACK. SEE THE DESCRIPTION OF THIS PROGRAM IN 682/7. ASSEMBLE USING COPY:FILE.MACROS (482/33). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 461/21, 682/7, 3024/36, 3024/39 01020/002 FILE MOVE OC G FILE:FM D4.2T2 162 FILE_MOVE..OC.002 1 LINE 80 5 PAGE UBC HOGG HELFFRICH APR. 02, 1979 01:40:58 FILE:FM 01021/001 IPL READER IPLBOOT SA G MTS:IPLBOOT.S(1) D4.2T2 163 IPL_READER.IPLBOOT.SA.001 1 LINE 72 16 PAGE UBC O'REILLY MTA APR. 02, 1979 01:40:59 MTS.:IPLBOOT.S 0 SEE COMP 1019/8 FOR AN INTRODUCTORY WRITEUP ON RAMROD AND THE IPL READER. THIS IS A BOOTSTRAP PROGRAM FOR THE IPLREADER. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162). ASSEMBLE USING COPY:SETPARM (653) AND COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 4/4, 1019/8, 1021/5 01021/002 IPL READER IPLBOOT OC G MTS:IPLBOOT.O D4.2T2 164 IPL_READER.IPLBOOT.OC.002 1 LINE 80 3 PAGE UBC O'REILLY MTA APR. 02, 1979 01:41:02 MTS.:IPLBOOT.O 01021/003 IPL READER IPLREAD SA G MTS:IPLREAD.S(1) D4.2T2 165 IPL_READER.IPLREAD.SA.003 1 LINE 77 70 PAGE UBC O'REILLY MTA APR. 02, 1979 01:41:03 MTS.:IPLREAD.S 0 MAIN PART OF IPL READER. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162). ASSEMBLE USING COPY:SETPARM (653) AND COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 1021/5 01021/004 IPL READER IPLREAD OC G MTS:IPLREAD.O D4.2T2 166 IPL_READER.IPLREAD.OC.004 1 LINE 80 9 PAGE UBC O'REILLY MTA APR. 02, 1979 01:41:18 MTS.:IPLREAD.O 01021/005 IPL READER IPLINIT SA G MTS:IPLINIT.S(1) D4T3 415 IPL_READER.IPLINIT.SA.005 1 LINE 80 21 PAGE UBC O'REILLY MTA SEP. 18, 1977 22:18:36 MTS.:IPLINIT.S 0 PROGRAM TO WRITE IPLBOOT (1021/1), IPLREAD (1021/3), AND UMLOAD (001/1) ON A DISK IN SELF LOADING FORM. COPIES *GDINFODSECT (594). ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 1021/7 01021/006 IPL READER IPLINIT OC G MTS:IPLINIT.O D4T3 416 IPL_READER.IPLINIT.OC.006 1 LINE 80 3 PAGE UBC O'REILLY MTA SEP. 18, 1977 22:18:40 MTS.:IPLINIT.O 01021/007 IPL READER IPLGTUM SA G MTS:IPLGTUM.S D4T3 417 IPL_READER.IPLGTUM.SA.007 1 LINE 72 3 PAGE UBC O'REILLY MTA JULY 29, 1977 00:14:25 MTS.:IPLGTUM.S 0 SUBROUTINE TO LOAD UMLOAD (001/1) FOR IPLINIT (1021/5). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01021/008 IPL READER IPLGTUM OC G MTS:IPLGTUM.O D4T3 418 IPL_READER.IPLGTUM.OC.008 1 LINE 80 1 PAGE UBC O'REILLY MTA JULY 29, 1977 00:14:28 MTS.:IPLGTUM.O 01021/009 IPL READER WRITEUP WF MTS:IPLREAD.W D4.2T2 167 IPL_READER.WRITEUP.WF.009 1 LINE 71 6 PAGE UBC O'REILLY MTA APR. 02, 1979 01:41:19 MTS.:IPLREAD.W 0 DESCRIPTION OF IPL READER. 01023/001B MSG ROUTINE SA MTS:MSG.S RD16T1 271 MSG_ROUTINE..SA.001 1 LINE 71 19 PAGE UBC BERRYMAN MTA JULY 12, 1979 23:29:36 MTS.:MSG.S 0 SOURCE FOR MSG ROUTINE. THIS IS A REENTRANT GENERAL-PURPOSE MESSAGE ROUTINE WITH A VARIETY OF FEATURES. DOCUMENTATION IS INCLUDED IN MTS VOLUME 14 AND IN THE SOURCE. THE ROUTINE IS MAINLY DESIGNED TO BE USED WITH MACROS (IN *SYSMAC) 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. 0 Referenced by comments of: 400/1, 553/5, 642/24, 1019/2 01023/002B MSG ROUTINE OC # RESIDENT SYSTEM (SEE COMP 468/1) UBC BERRYMAN MTA 01024 UBC MACROS SM S1200 RD15T1 VLO FSNAME=UBC_MACROS..SM.01 D4T3 421 UBC_MACROS..SM. 1 LINE 73 10 PAGE UBC DWB JULY 29, 1977 00:14:36 MTS.:UBCMACLIB 0 UBC COMPUTING CENTRE STAFF MACRO LIBRARY. USED TO ASSEMBLE *APC (496) AND *ASMTIDY (410). 0 Referenced by comments of: 410/1, 506/3, 1006/1 01026/001B GLOBAL SYSTEM PARS GLOBALDEFS SA G COPY:GLOBALDEFS RD16T1 272 GLOBAL_SYSTEM_PARS.GLOBAL.SA.001 1 LINE 80 1 PAGE UM MTA JULY 12, 1979 23:29:40 COPY:GLOBALDEFS 0 CONTAINS GBLB DEFINITIONS FOR: &S370 SYSTEM/370 &OC3066 3066 CONSOLE PRESENT &CRTY ITEL 7830 COMMAND RETRY &SIMPLEX SINGLE PROCESSOR &OPERJOB OPERATOR JOB BEING USED &PROT PROTECTION &AMD470 AMDAHL 470 &BLKMPX BLOCK MULTIPLEXOR CHANNEL &IO370 370 I/O INSTRUCTIONS &NOSLT NO SEARCH LIST INSTRUCTION &OMR 2501 OMR FEATURE 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 &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 0 Referenced by comments of: 4/1, 42/1, 45/1, 101/1, 116/1, 135/1, 400/1, 545/3, 570/1, 653/1, 3024/1 01026/002B GLOBAL SYSTEM PARS GLOBALSETS SA G COPY:GLOBALSETS RD16T1 273 GLOBAL_SYSTEM_PARS.GLOBAL.SA.002 1 LINE 80 1 PAGE UM MTA JULY 12, 1979 23:29:41 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/27, 387/34, 400/1, 545/3, 570/1, 3024/1 01026/003 GLOBAL SYSTEM PARS GLOBALS SA G COPY:GLOBALS D4T3 425 GLOBAL_SYSTEM_PARS.GLOBAL.SA.004 1 LINE 37 1 PAGE UM MTA JULY 29, 1977 00:14:46 COPY:GLOBALS 0 CONTAINS: $CONTINUE WITH COPY:GLOBALDEFS RETURN $CONTINUE WITH COPY:GLOBALSETS RETURN 0 Referenced by comments of: 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 24/1, 44/1, 46/1, 79/1, 80/1, 87/1, 162/1, 198/1, 353/2, 354/1, 354/5, 388/1, 399/1, 400/3, 400/9, 413/1, 464/1, 482/5, 482/7, 500/34, 507/2, 509/1, 513/1, 531/1, 531/6, 531/13, 539/1, 540/1, 540/3, 540/7, 540/9, 540/16, 540/25, 554/1, 554/3, 577/2, 577/4, 577/7, 578/1, 579/1, 598/1, 600/1, 600/6, 615/13, 615/15, 618/1, 621/2, 629/1, 629/4, 634/1, 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 650/1, 651/10, 682/22, 685/7, 693/1, 731/3, 732/1, 1012/1, 1021/1, 1021/3, 4000/1 01027/001 P11 JOB SA G S0938 FSAVE2 VLO FSNAME=P11.S D4.2T2 170 P11_JOB..SA.001 1 LINE 61 2 PAGE UBC MTA FEB. 10, 1979 16:50:01 0 JOB PROGRAM TO LOAD THE CHARACTER AND CARRIAGE CONTROL BUFFERS OF A 3211 PRINTER FOR THE P11 PRINT TRAIN. LOADS FCB FOR 6 LINES PER INCH ON 11 INCH PAPER UNLESS THE "8LPI" PARAMETER IS GIVEN, IN WHICH CASE IT LOADS FOR 8 LINES PER INCH ON 8 1/2 INCH PAPER. 01027/002 P11 JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) D4T3 427 P11_JOB..OC.002 1 LINE 80 1 PAGE UBC MTA MAR. 15, 1975 16:00:44 01028/001 STAND-ALONE DUMP IPL MODULE SA S0939 UBC53 FSNAME=STAND-ALONE_DUMP.IPL_MODUL.SA.01(1) 20 D4T3 429 STAND-ALONE_DUMP.IPL_MODU.SA.001 1 LINE 72 5 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:44:58 0 ASSEMBLER SOURCE FOR STAND-ALONE DUMP PROGRAM. THIS VERSION (JAN '77) 1 THU SEP 12/96 23:39:34 Page 437 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 REPLACES THE PREVIOUS VERSION, WHICH WAS FROM IBM. THE SOURCE INCLUDES INSTRUCTIONS FOR GENERATING AN IPL-ABLE STAND-ALONE DUMP TAPE FROM THE OBJECT. THE DUMPS PRODUCED BY THIS PROGRAM ARE FORMATTED DIFFERENTLY FROM THOSE PRODUCED BY THE IBM STAND-ALONE DUMP PROGRAM. A VERSION OF THE STAND-ALONE DUMP PRINT PROGRAM THAT SUPPORTS THIS NEW FORMAT IS INCLUDED IN 1028/3 THROUGH 1028/9. NOTE: THIS PROGRAM HAS NEVER BEEN USED AT UM. 01028/002 STAND-ALONE DUMP IPL MODULE OC S0939 UBC53 FSNAME=STAND-ALONE_DUMP.IPL_MODUL.OC.02(1) 21 D4T3 430 STAND-ALONE_DUMP.IPL_MODU.OC.002 1 LINE 80 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:00 0 OBJECT FOR THE STAND-ALONE DUMP PROGRAM. THIS IS THE ASSEMBLER OUTPUT, UN-DIDDLED FOR IPL'ING FROM. SEE 1028/1 FOR DIDDLING INSTRUCTIONS. 01028/003 STAND-ALONE DUMP MAIN SP S0939 UBC53 FSNAME=STAND-ALONE_DUMP.MAIN_PROG.SP.03(1) 22 D4T3 431 STAND-ALONE_DUMP.MAIN.SP.003 1 LINE 88 4 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:01 0 PL/1 SOURCE FOR MAIN PROGRAM OF STAND-ALONE DUMP PRINTER. COMPLETE PROGRAM CONSISTS OF THE MAIN PROGRAM, THE PL/1-TO-PRTRACE INTERFACE PSD.PT, A VERSION OF PRTRACE (337) OF YOUR CHOICE, AND THE TIME-CONVERTING SUBROUTINE PSD.CT. A COMPLETE LINKEDITED LOAD MODULE IS IN 1028/9. 01028/004 STAND-ALONE DUMP MAIN OC S0939 UBC53 FSNAME=STAND-ALONE_DUMP.MAIN_PROG.OC.06(1) 25 D4T3 432 STAND-ALONE_DUMP.MAIN.OC.004 1 LINE 80 9 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:06 01028/005 STAND-ALONE DUMP PSD.PT SA S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.PT.SA.04(1) 23 D4T3 433 STAND-ALONE_DUMP.PSD.PT.SA.005 1 LINE 61 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:03 0 SOURCE FOR THE PL/1-TO-PRTRACE INTERFACE FOR THE STAND-ALONE DUMP PRINT PROGRAM. 01028/006 STAND-ALONE DUMP PSD.PT OC S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.PT.OC.07(1) 26 D4T3 434 STAND-ALONE_DUMP.PSD.PT.OC.006 1 LINE 80 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:09 01028/007 STAND-ALONE DUMP PSD.CT SA S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.CT.SA.05(1) 24 D4T3 435 STAND-ALONE_DUMP.PSD.CT.SA.007 1 LINE 72 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:04 0 SOURCE FOR THE TIME-CONVERTING SUBROUTINE USED BY THE STAND-ALONE DUMP PRINTER. 01028/008 STAND-ALONE DUMP PSD.CT OC S0939 UBC53 FSNAME=STAND-ALONE_DUMP.PSD.CT.OC.08(1) 27 D4T3 436 STAND-ALONE_DUMP.PSD.CT.OC.008 1 LINE 80 1 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:12 01028/009 STAND-ALONE DUMP COMPLETE PROG OE S0939 UBC53 FSNAME=STAND-ALONE_DUMP.COMPLETE.OE.09(1) 28 D4T3 437 STAND-ALONE_DUMP.COMPLETE.OE.009 1 SEQ 10118 8 PAGE UBC O'REILLY MTA JAN. 31, 1977 10:45:13 0 LINKEDITED VERSION OF THE STAND-ALONE-DUMP PRINT PROGRAM INCLUDING ALL THE REQUIRED JUNK AND A $CONTINUE WITH *PL1LIB. 01030/001 PACK MAP MAIN PROGRAM SA G PM FILE:PM.S D4T3 438 PACK_MAP.MAIN_PROGRAM.SA.001 1 LINE 80 25 PAGE UBC O'REILLY HELFFRICH JULY 29, 1977 00:16:48 FILE:PM.S 0 PROGRAM TO PRINT COMPLETE MAP OF A PAGE-FORMATTED DISK PACK. FOR INSTRUCTIONS ON USAGE, SEE COMMENTS AT BEGINNING OF THE SOURCE. CALLS ISORT (1030/2) AND 1 THU SEP 12/96 23:39:34 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 AND VTOCREAD (067/4). ASSEMBLE USING COPY:FILE.MACROS (482/33). SEE COMP 682/3 FOR A WRITEUP. >>>> NOTE: THIS PROGRAM HAS NOT BEEN TESTED RECENTLY AND MAY NOT WORK FOR 3330-11'S. 0 Referenced by comments of: 682/3 01030/002 PACK MAP ISORT SUBR SA G ISRT FILE:PMAP.ISORT.S D4T3 439 PACK_MAP.ISORT_SUBR.SA.002 1 LINE 80 15 PAGE UBC O'REILLY HELFFRICH JULY 29, 1977 00:16:52 FILE:PMAP.ISORT.S 0 IN CORE SORT ROUTINE USED BY PACKMAP. 0 Referenced by comments of: 1030/1 01030/003 PACK MAP OC G FILE:PM D4T3 440 PACK_MAP..OC.003 1 LINE 80 6 PAGE UBC O'REILLY HELFFRICH JULY 29, 1977 00:16:53 FILE:PM 0 OBJECT FOR PACKMAP, CONTAINS ISORT OBJECT AND VTOCREAD OBJECT. 01032/001 BCPL INSTALL.NOTES P S0684 UNSP FSNAME=BCPL.INSTALL.NOTES.P.01 D4T3 441 BCPL.INSTALL.NOTES.P.001 1 LINE 69 2 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:33 0 THIS WRITEUP DESCIBES HOW TO INSTALL THE BCPL PROGRAMMING LANGUAGE. IT SHOULD BE COPIED TO A PRINTER@CC. BCPL IS NOT SUPPORTED BY THE UBC COMPUTING CENTRE, BUT BY VINCE MANIS OF THE UBC COMPUTING SCIENCE DEPARTMENT. AT UM, BCPL IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. 01032/002 BCPL BCPL.BLIB.S S S S0684 UNSP FSNAME=BCPL.BCPL.BLIB.S.S.02 D4T3 442 BCPL.BCPL.BLIB.S.S.002 1 LINE 73 4 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:12 01032/003 BCPL BCPL.CGEN.S S S S0684 UNSP FSNAME=BCPL.BCPL.CGEN.S.S.03 D4T3 443 BCPL.BCPL.CGEN.S.S.003 1 LINE 78 20 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:14 01032/004 BCPL BCPL.COMP.S S S S0684 UNSP FSNAME=BCPL.BCPL.COMP.S.S.04 D4T3 444 BCPL.BCPL.COMP.S.S.004 1 LINE 76 22 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:20 01032/005 BCPL BCPL.DSECT S S S0684 UNSP FSNAME=BCPL.BCPL.DSECT.S.05 D4T3 445 BCPL.BCPL.DSECT.S.005 1 LINE 69 2 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:26 01032/006 BCPL BCPL.GEN.HDR S S S0684 UNSP FSNAME=BCPL.BCPL.GEN.HDR.S.06 D4T3 446 BCPL.BCPL.GEN.HDR.S.006 1 LINE 69 3 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:28 01032/007 BCPL BCPL.INSTALL W S S0684 UNSP FSNAME=BCPL.BCPL.INSTALL.W.07 D4T3 447 BCPL.BCPL.INSTALL.W.007 1 LINE 79 2 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:29 01032/008 BCPL BCPL.MSTR.S S S S0684 UNSP FSNAME=BCPL.BCPL.MSTR.S.S.08 D4T3 448 BCPL.BCPL.MSTR.S.S.008 1 LINE 80 7 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:31 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01032/009 BCPL BCPL.SYN.HDR S S S0684 UNSP FSNAME=BCPL.BCPL.SYN.HDR.S.09 D4T3 449 BCPL.BCPL.SYN.HDR.S.009 1 LINE 68 1 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:34 01032/010 BCPL BCPL.TRN.HDR S S S0684 UNSP FSNAME=BCPL.BCPL.TRN.HDR.S.10 D4T3 450 BCPL.BCPL.TRN.HDR.S.010 1 LINE 71 2 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:36 01032/011 BCPL C OE S S0684 UNSP FSNAME=BCPL.C.O.11 D4T3 451 BCPL.C.OE.011 1 SEQ 32767 24 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:37 01032/012 BCPL HDR S S S0684 UNSP FSNAME=BCPL.HDR.S.12 D4T3 452 BCPL.HDR.S.012 1 LINE 71 1 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:39 01032/013 BCPL IO.S SA S S0684 UNSP FSNAME=BCPL.IO.S.S.13 D4T3 453 BCPL.IO.S.SA.013 1 LINE 72 16 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:40 01032/014 BCPL LIB OE S S0684 UNSP FSNAME=BCPL.LIB.O.14 D4T3 454 BCPL.LIB.OE.014 1 SEQ 11616 4 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:46 01032/015 BCPL MACLIB SM S S0684 UNSP FSNAME=BCPL.MACLIB.SM.15 D4T3 455 BCPL.MACLIB.SM.015 1 LINE 66 1 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:47 01032/016 BCPL MON.S SA S S0684 UNSP FSNAME=BCPL.MON.S.S.16 D4T3 456 BCPL.MON.S.SA.016 1 LINE 70 6 PAGE UBC MANIS UNSP MAR. 25, 1976 09:36:49 01032/017 BCPL LANGUAGE.DESC WF S0684 UNSP FSNAME=BCPL.LANGUAGE.DESC.WF.17 D4T3 457 BCPL.LANGUAGE.DESC.WF.017 1 LINE 164 29 PAGE UBC MANIS UNSP MAY 04, 1976 09:59:19 0 COMPREHENSIVE DOCUMENT DESCRIBING THE BCPL LANGUAGE. 01033/001 COURSEWRITER COURSES M S S0684 UNSP FSNAME=COURSEWRITER.COURSES.M.01 D4T3 458 COURSEWRITER.COURSES.M.001 1 LINE 74 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:04 0 THE MTS IMPLEMENTATION OF THIS VERSION OF COURSEWRITER WAS NOT DONE BY THE UBC COMPUTING CENTRE, BUT BY BILL WEBB OF THE UBC DEPARTMENT OF ANIMAL RESOURCE ECOLOGY. THE SUBCOMPONENT NAMED "INSTRUCTIONS" (1033/54) TELLS ABOUT HOW TO GENERATE A COURSEWRITER SYSTEM; AND THE SUBCOMPONENT NAMED "DIRECTORY" (1033/18) TELLS ABOUT SOME OF THE FILES. AT UM, COURSEWRITER IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. 01033/002 COURSEWRITER WEBB.Q OC S S0684 UNSP FSNAME=COURSEWRITER.WEBB.Q.O.02 D4T3 459 COURSEWRITER.WEBB.Q.OC.002 1 LINE 25 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:05 01033/003 COURSEWRITER HELP M S S0684 UNSP FSNAME=COURSEWRITER.HELP.M.03 D4T3 460 COURSEWRITER.HELP.M.003 1 LINE 74 4 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:06 01033/004 COURSEWRITER SYSLIB OE S S0684 UNSP FSNAME=COURSEWRITER.SYSLIB.OE.04 D4T3 461 COURSEWRITER.SYSLIB.OE.004 1 SEQ 2826 5 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:07 01033/005 COURSEWRITER CAL OE S S0684 UNSP FSNAME=COURSEWRITER.CAL.OE.05 D4T3 462 COURSEWRITER.CAL.OE.005 1 SEQ 7660 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:10 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01033/006 COURSEWRITER AUTHOR OE S S0684 UNSP FSNAME=COURSEWRITER.AUTHOR.OE.06 D4T3 463 COURSEWRITER.AUTHOR.OE.006 1 SEQWL 32767 11 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:11 01033/007 COURSEWRITER STUDENT OE S S0684 UNSP FSNAME=COURSEWRITER.STUDENT.OE.07 D4T3 464 COURSEWRITER.STUDENT.OE.007 1 SEQWL 32094 9 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:14 01033/008 COURSEWRITER LABELS OE S S0684 UNSP FSNAME=COURSEWRITER.LABELS.O.08 D4T3 465 COURSEWRITER.LABELS.OE.008 1 LINE 255 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:16 01033/009 COURSEWRITER AUTHOR.S SA S S0684 UNSP FSNAME=COURSEWRITER.AUTHOR.S.SA.09 D4T3 466 COURSEWRITER.AUTHOR.S.SA.009 1 LINE 72 14 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:18 01033/010 COURSEWRITER CAILCS.S SA S S0684 UNSP FSNAME=COURSEWRITER.CAILCS.S.SA.10 D4T3 467 COURSEWRITER.CAILCS.S.SA.010 1 LINE 72 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:21 01033/011 COURSEWRITER CAL.S SA S S0684 UNSP FSNAME=COURSEWRITER.CAL.S.SA.11 D4T3 468 COURSEWRITER.CAL.S.SA.011 1 LINE 72 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:22 01033/012 COURSEWRITER CALC.S SA S S0684 UNSP FSNAME=COURSEWRITER.CALC.S.SA.12 D4T3 469 COURSEWRITER.CALC.S.SA.012 1 LINE 70 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:24 01033/013 COURSEWRITER CAL.ASM C S S0684 UNSP FSNAME=COURSEWRITER.CAL.ASM.C.13 D4T3 470 COURSEWRITER.CAL.ASM.C.013 1 LINE 91 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:25 01033/014 COURSEWRITER LINK.ASM C S S0684 UNSP FSNAME=COURSEWRITER.LINK.ASM.C.14 D4T3 471 COURSEWRITER.LINK.ASM.C.014 1 LINE 93 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:26 01033/015 COURSEWRITER WEBB.ASM C S S0684 UNSP FSNAME=COURSEWRITER.WEBB.ASM.C.15 D4T3 472 COURSEWRITER.WEBB.ASM.C.015 1 LINE 82 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:27 01033/016 COURSEWRITER SYSLIB.ASM C S S0684 UNSP FSNAME=COURSEWRITER.SYSLIB.ASM.C.16 D4T3 473 COURSEWRITER.SYSLIB.ASM.C.016 1 LINE 82 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:28 01033/017 COURSEWRITER MACLIB SM S S0684 UNSP FSNAME=COURSEWRITER.MACLIB.SM.17 D4T3 474 COURSEWRITER.MACLIB.SM.017 1 LINE 61 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:29 01033/018 COURSEWRITER DIRECTORY P S S0684 UNSP FSNAME=COURSEWRITER.DIRECTORY.P.18 D4T3 475 COURSEWRITER.DIRECTORY.P.018 1 LINE 81 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:30 0 Referenced by comments of: 1033/1 01033/019 COURSEWRITER CHAIN.S SA S S0684 UNSP FSNAME=COURSEWRITER.CHAIN.S.SA.19 D4T3 476 COURSEWRITER.CHAIN.S.SA.019 1 LINE 72 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:31 01033/020 COURSEWRITER SYSGEN C S S0684 UNSP FSNAME=COURSEWRITER.SYSGEN.C.20 D4T3 477 COURSEWRITER.SYSGEN.C.020 1 LINE 60 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:33 01033/021 COURSEWRITER CAL.BATCH C S S0684 UNSP FSNAME=COURSEWRITER.CAL.BATCH.C.21 D4T3 478 COURSEWRITER.CAL.BATCH.C.021 1 LINE 75 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:35 01033/022 COURSEWRITER CHKSAVE.S SA S S0684 UNSP FSNAME=COURSEWRITER.CHKSAVE.S.SA.22 D4T3 479 COURSEWRITER.CHKSAVE.S.SA.022 1 LINE 93 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:53 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01033/023 COURSEWRITER CMDN.S SA S S0684 UNSP FSNAME=COURSEWRITER.CMDN.S.SA.23 D4T3 480 COURSEWRITER.CMDN.S.SA.023 1 LINE 47 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:54 01033/024 COURSEWRITER CWRIT2 SA S S0684 UNSP FSNAME=COURSEWRITER.CWRIT2.SA.24 D4T3 481 COURSEWRITER.CWRIT2.SA.024 1 LINE 73 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:55 01033/025 COURSEWRITER DEFLT.S SF S S0684 UNSP FSNAME=COURSEWRITER.DEFLT.S.SF.25 D4T3 482 COURSEWRITER.DEFLT.S.SF.025 1 LINE 67 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:56 01033/026 COURSEWRITER DEFVAR.S SF S S0684 UNSP FSNAME=COURSEWRITER.DEFVAR.S.SF.26 D4T3 483 COURSEWRITER.DEFVAR.S.SF.026 1 LINE 63 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:57 01033/027 COURSEWRITER DO.S SA S S0684 UNSP FSNAME=COURSEWRITER.DO.S.SA.27 D4T3 484 COURSEWRITER.DO.S.SA.027 1 LINE 67 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:58 01033/028 COURSEWRITER DUMMIES.S SA S S0684 UNSP FSNAME=COURSEWRITER.DUMMIES.S.SA.28 D4T3 485 COURSEWRITER.DUMMIES.S.SA.028 1 LINE 67 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:38:59 01033/029 COURSEWRITER DUMP.S SF S S0684 UNSP FSNAME=COURSEWRITER.DUMP.S.SF.29 D4T3 486 COURSEWRITER.DUMP.S.SF.029 1 LINE 61 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:00 01033/030 COURSEWRITER ECB.DS SA S S0684 UNSP FSNAME=COURSEWRITER.ECB.DS.SA.30 D4T3 487 COURSEWRITER.ECB.DS.SA.030 1 LINE 68 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:01 01033/031 COURSEWRITER ENDSTUD.S SA S S0684 UNSP FSNAME=COURSEWRITER.ENDSTUD.S.SA.31 D4T3 488 COURSEWRITER.ENDSTUD.S.SA.031 1 LINE 20 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:02 01033/032 COURSEWRITER EQCLC.S SA S S0684 UNSP FSNAME=COURSEWRITER.EQCLC.S.SA.32 D4T3 489 COURSEWRITER.EQCLC.S.SA.032 1 SEQ 53 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:03 01033/033 COURSEWRITER EVAL.S SA S S0684 UNSP FSNAME=COURSEWRITER.EVAL.S.SA.33 D4T3 490 COURSEWRITER.EVAL.S.SA.033 1 LINE 73 8 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:04 01033/034 COURSEWRITER EVALDEF.S SA S S0684 UNSP FSNAME=COURSEWRITER.EVALDEF.S.SA.34 D4T3 491 COURSEWRITER.EVALDEF.S.SA.034 1 LINE 62 4 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:06 01033/035 COURSEWRITER EVALGET.S SA S S0684 UNSP FSNAME=COURSEWRITER.EVALGET.S.SA.35 D4T3 492 COURSEWRITER.EVALGET.S.SA.035 1 LINE 57 4 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:07 01033/036 COURSEWRITER EVALI.S SA S S0684 UNSP FSNAME=COURSEWRITER.EVALI.S.SA.36 D4T3 493 COURSEWRITER.EVALI.S.SA.036 1 LINE 71 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:09 01033/037 COURSEWRITER EVALOPS.S SA S S0684 UNSP FSNAME=COURSEWRITER.EVALOPS.S.SA.37 D4T3 494 COURSEWRITER.EVALOPS.S.SA.037 1 LINE 68 8 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:10 01033/038 COURSEWRITER EVALOPT.S SA S S0684 UNSP FSNAME=COURSEWRITER.EVALOPT.S.SA.38 D4T3 495 COURSEWRITER.EVALOPT.S.SA.038 1 LINE 69 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:12 01033/039 COURSEWRITER EVALRAND.S SA S S0684 UNSP FSNAME=COURSEWRITER.EVALRAND.S.SA.39 D4T3 496 COURSEWRITER.EVALRAND.S.SA.039 1 LINE 63 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:13 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01033/040 COURSEWRITER EVALSTOP.S SA S S0684 UNSP FSNAME=COURSEWRITER.EVALSTOP.S.SA.40 D4T3 497 COURSEWRITER.EVALSTOP.S.SA.040 1 LINE 76 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:14 01033/041 COURSEWRITER FAKGSP.S SA S S0684 UNSP FSNAME=COURSEWRITER.FAKGSP.S.SA.41 D4T3 498 COURSEWRITER.FAKGSP.S.SA.041 1 LINE 73 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:15 01033/042 COURSEWRITER FDGET.S SA S S0684 UNSP FSNAME=COURSEWRITER.FDGET.S.SA.42 D4T3 499 COURSEWRITER.FDGET.S.SA.042 1 LINE 25 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:16 01033/043 COURSEWRITER FN.DS SA S S0684 UNSP FSNAME=COURSEWRITER.FN.DS.SA.43 D4T3 500 COURSEWRITER.FN.DS.SA.043 1 LINE 72 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:22 01033/044 COURSEWRITER GCONVERT.S SA S S0684 UNSP FSNAME=COURSEWRITER.GCONVERT.S.SA.44 D4T3 501 COURSEWRITER.GCONVERT.S.SA.044 1 LINE 70 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:24 01033/045 COURSEWRITER GETLABS.S SA S S0684 UNSP FSNAME=COURSEWRITER.GETLABS.S.SA.45 D4T3 502 COURSEWRITER.GETLABS.S.SA.045 1 LINE 67 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:25 01033/046 COURSEWRITER GETSAVE.S SA S S0684 UNSP FSNAME=COURSEWRITER.GETSAVE.S.SA.46 D4T3 503 COURSEWRITER.GETSAVE.S.SA.046 1 LINE 64 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:27 01033/047 COURSEWRITER GO.S SA S S0684 UNSP FSNAME=COURSEWRITER.GO.S.SA.47 D4T3 504 COURSEWRITER.GO.S.SA.047 1 LINE 67 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:28 01033/048 COURSEWRITER HASH.S SA S S0684 UNSP FSNAME=COURSEWRITER.HASH.S.SA.48 D4T3 505 COURSEWRITER.HASH.S.SA.048 1 LINE 91 10 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:30 01033/049 COURSEWRITER HCONVERT.S SA S S0684 UNSP FSNAME=COURSEWRITER.HCONVERT.S.SA.49 D4T3 506 COURSEWRITER.HCONVERT.S.SA.049 1 LINE 63 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:32 01033/050 COURSEWRITER IHASHF.S SA S S0684 UNSP FSNAME=COURSEWRITER.IHASHF.S.SA.50 D4T3 507 COURSEWRITER.IHASHF.S.SA.050 1 SEQWL 67 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:34 01033/051 COURSEWRITER INBITS.S SA S S0684 UNSP FSNAME=COURSEWRITER.INBITS.S.SA.51 D4T3 508 COURSEWRITER.INBITS.S.SA.051 1 LINE 72 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:35 01033/052 COURSEWRITER INFREE.S SA S S0684 UNSP FSNAME=COURSEWRITER.INFREE.S.SA.52 D4T3 509 COURSEWRITER.INFREE.S.SA.052 1 SEQWL 17 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:37 01033/053 COURSEWRITER INFREE#.S SA S S0684 UNSP FSNAME=COURSEWRITER.INFREE#.S.SA.53 D4T3 510 COURSEWRITER.INFREE#.S.SA.053 1 LINE 73 14 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:38 01033/054 COURSEWRITER INSTRUCTIONS P S S0684 UNSP FSNAME=COURSEWRITER.INSTRUCTIONS.P.54 D4T3 511 COURSEWRITER.INSTRUCTIONS.P.054 1 LINE 72 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:41 0 Referenced by comments of: 1033/1 01033/055 COURSEWRITER WEBB.MACLIB SM S S0684 UNSP FSNAME=COURSEWRITER.WEBB.MACLIB.SM.55 D4T3 512 COURSEWRITER.WEBB.MACLIB.SM.055 1 LINE 79 23 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:42 01033/056 COURSEWRITER IOT.S SA S S0684 UNSP FSNAME=COURSEWRITER.IOT.S.SA.56 D4T3 513 COURSEWRITER.IOT.S.SA.056 1 LINE 56 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:46 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01033/057 COURSEWRITER LCONVERT.S SA S S0684 UNSP FSNAME=COURSEWRITER.LCONVERT.S.SA.57 D4T3 514 COURSEWRITER.LCONVERT.S.SA.057 1 LINE 66 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:47 01033/058 COURSEWRITER LD.S SA S S0684 UNSP FSNAME=COURSEWRITER.LD.S.SA.58 D4T3 515 COURSEWRITER.LD.S.SA.058 1 LINE 72 4 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:49 01033/059 COURSEWRITER LEN.S SA S S0684 UNSP FSNAME=COURSEWRITER.LEN.S.SA.59 D4T3 516 COURSEWRITER.LEN.S.SA.059 1 LINE 56 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:50 01033/060 COURSEWRITER LINKF.S SA S S0684 UNSP FSNAME=COURSEWRITER.LINKF.S.SA.60 D4T3 517 COURSEWRITER.LINKF.S.SA.060 1 LINE 67 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:52 01033/061 COURSEWRITER LKECB.DS SA S S0684 UNSP FSNAME=COURSEWRITER.LKECB.DS.SA.61 D4T3 518 COURSEWRITER.LKECB.DS.SA.061 1 LINE 68 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:53 01033/062 COURSEWRITER LOADFN.S SA S S0684 UNSP FSNAME=COURSEWRITER.LOADFN.S.SA.62 D4T3 519 COURSEWRITER.LOADFN.S.SA.062 1 LINE 71 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:56 01033/063 COURSEWRITER LOOKUP.S SA S S0684 UNSP FSNAME=COURSEWRITER.LOOKUP.S.SA.63 D4T3 520 COURSEWRITER.LOOKUP.S.SA.063 1 LINE 63 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:39:59 01033/064 COURSEWRITER MAIL.S SA S S0684 UNSP FSNAME=COURSEWRITER.MAIL.S.SA.64 D4T3 521 COURSEWRITER.MAIL.S.SA.064 1 LINE 10 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:02 01033/065 COURSEWRITER MASKMV.S SA S S0684 UNSP FSNAME=COURSEWRITER.MASKMV.S.SA.65 D4T3 522 COURSEWRITER.MASKMV.S.SA.065 1 LINE 92 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:03 01033/066 COURSEWRITER MASKMV#.S SA S S0684 UNSP FSNAME=COURSEWRITER.MASKMV#.S.SA.66 D4T3 523 COURSEWRITER.MASKMV#.S.SA.066 1 LINE 93 5 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:05 01033/067 COURSEWRITER MASKSP.S SA S S0684 UNSP FSNAME=COURSEWRITER.MASKSP.S.SA.67 D4T3 524 COURSEWRITER.MASKSP.S.SA.067 1 LINE 67 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:07 01033/068 COURSEWRITER MPTR.S SA S S0684 UNSP FSNAME=COURSEWRITER.MPTR.S.SA.68 D4T3 525 COURSEWRITER.MPTR.S.SA.068 1 LINE 49 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:08 01033/069 COURSEWRITER OPTEST.S SA S S0684 UNSP FSNAME=COURSEWRITER.OPTEST.S.SA.69 D4T3 526 COURSEWRITER.OPTEST.S.SA.069 1 LINE 72 9 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:10 01033/070 COURSEWRITER PLIST.S SA S S0684 UNSP FSNAME=COURSEWRITER.PLIST.S.SA.70 D4T3 527 COURSEWRITER.PLIST.S.SA.070 1 LINE 58 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:13 01033/071 COURSEWRITER PMSG.S SA S S0684 UNSP FSNAME=COURSEWRITER.PMSG.S.SA.71 D4T3 528 COURSEWRITER.PMSG.S.SA.071 1 LINE 72 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:14 01033/072 COURSEWRITER PUTLABS.S SA S S0684 UNSP FSNAME=COURSEWRITER.PUTLABS.S.SA.72 D4T3 529 COURSEWRITER.PUTLABS.S.SA.072 1 LINE 58 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:15 01033/073 COURSEWRITER PUTSAVE.S SA S S0684 UNSP FSNAME=COURSEWRITER.PUTSAVE.S.SA.73 D4T3 530 COURSEWRITER.PUTSAVE.S.SA.073 1 LINE 64 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:17 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01033/074 COURSEWRITER READPW.S SF S S0684 UNSP FSNAME=COURSEWRITER.READPW.S.SF.74 D4T3 531 COURSEWRITER.READPW.S.SF.074 1 LINE 73 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:19 01033/075 COURSEWRITER RELFD.S SA S S0684 UNSP FSNAME=COURSEWRITER.RELFD.S.SA.75 D4T3 532 COURSEWRITER.RELFD.S.SA.075 1 LINE 64 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:21 01033/076 COURSEWRITER RESET.S SA S S0684 UNSP FSNAME=COURSEWRITER.RESET.S.SA.76 D4T3 533 COURSEWRITER.RESET.S.SA.076 1 LINE 72 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:22 01033/077 COURSEWRITER RPERM.S SA S S0684 UNSP FSNAME=COURSEWRITER.RPERM.S.SA.77 D4T3 534 COURSEWRITER.RPERM.S.SA.077 1 SEQWL 65 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:23 01033/078 COURSEWRITER SAVE.DS SA S S0684 UNSP FSNAME=COURSEWRITER.SAVE.DS.SA.78 D4T3 535 COURSEWRITER.SAVE.DS.SA.078 1 LINE 72 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:25 01033/079 COURSEWRITER SETPW.S SA S S0684 UNSP FSNAME=COURSEWRITER.SETPW.S.SA.79 D4T3 536 COURSEWRITER.SETPW.S.SA.079 1 LINE 60 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:27 01033/080 COURSEWRITER STUDENT.DS SA S S0684 UNSP FSNAME=COURSEWRITER.STUDENT.DS.SA.80 D4T3 537 COURSEWRITER.STUDENT.DS.SA.080 1 LINE 72 3 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:28 01033/081 COURSEWRITER STUDENT.S SA S S0684 UNSP FSNAME=COURSEWRITER.STUDENT.S.SA.81 D4T3 538 COURSEWRITER.STUDENT.S.SA.081 1 LINE 113 24 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:30 01033/082 COURSEWRITER TYPER.S SA S S0684 UNSP FSNAME=COURSEWRITER.TYPER.S.SA.82 D4T3 539 COURSEWRITER.TYPER.S.SA.082 1 LINE 71 5 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:34 01033/083 COURSEWRITER VLOOK.S SA S S0684 UNSP FSNAME=COURSEWRITER.VLOOK.S.SA.83 D4T3 540 COURSEWRITER.VLOOK.S.SA.083 1 LINE 58 2 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:36 01033/084 COURSEWRITER XCTLF.S SA S S0684 UNSP FSNAME=COURSEWRITER.XCTLF.S.SA.84 D4T3 541 COURSEWRITER.XCTLF.S.SA.084 1 LINE 72 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:38 01033/085 COURSEWRITER WEBB.O OC S S0684 UNSP FSNAME=COURSEWRITER.WEBB.O.O.85 D4T3 542 COURSEWRITER.WEBB.O.OC.085 1 SEQ 80 8 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:41 01033/086 COURSEWRITER WBLIB OL S S0684 UNSP FSNAME=COURSEWRITER.WBLIB.OL.86 D4T3 543 COURSEWRITER.WBLIB.OL.086 1 SEQ 252 9 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:43 01033/087 COURSEWRITER LKLIB OL S S0684 UNSP FSNAME=COURSEWRITER.LKLIB.OL.87 D4T3 544 COURSEWRITER.LKLIB.OL.087 1 SEQ 528 8 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:45 01033/088 COURSEWRITER MAIL.O OC S S0684 UNSP FSNAME=COURSEWRITER.MAIL.O.O.88 D4T3 545 COURSEWRITER.MAIL.O.OC.088 1 LINE 80 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:47 01033/089 COURSEWRITER CAL.O OC S S0684 UNSP FSNAME=COURSEWRITER.CAL.O.O.89 D4T3 546 COURSEWRITER.CAL.O.OC.089 1 SEQ 80 7 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:49 01033/090 COURSEWRITER LABELS.S SA S S0684 UNSP FSNAME=COURSEWRITER.LABELS.S.SA.90 D4T3 547 COURSEWRITER.LABELS.S.SA.090 1 LINE 73 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:51 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01033/091 COURSEWRITER SYSLIB.O OE S S0684 UNSP FSNAME=COURSEWRITER.SYSLIB.O.O.91 D4T3 548 COURSEWRITER.SYSLIB.O.OE.091 1 SEQ 1514 17 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:40:52 01033/092 COURSEWRITER JOAN:ANOVA D S S0684 UNSP FSNAME=COURSEWRITER.JOAN:ANOVA.D.92 D4T3 549 COURSEWRITER.JOAN:ANOVA.D.092 1 LINE 75 92 PAGE UBC OSTERLIN UNSP JUNE 18, 1976 14:36:52 0 A DEMONSTRATION COURSE ABOUT ANALYSIS OF VARIANCE. 01033/093 COURSEWRITER CAI:STOCK D S S0684 UNSP FSNAME=COURSEWRITER.CAI:STOCK.D.93 D4T3 550 COURSEWRITER.CAI:STOCK.D.093 1 LINE 100 4 PAGE UBC OSTERLIN UNSP JUNE 18, 1976 14:37:38 0 A DEMONSTRATION COURSE ABOUT BUYING AND SELLING STOCKS. 01033/094 COURSEWRITER FDINFO.S SA S S0684 UNSP FSNAME=COURSEWRITER.FDINFO.S.SA.94 D4T3 551 COURSEWRITER.FDINFO.S.SA.094 1 LINE 57 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:41:22 01033/095 COURSEWRITER F3270.S SF S S0684 UNSP FSNAME=COURSEWRITER.F3270.S.SA.95 D4T3 552 COURSEWRITER.F3270.S.SF.095 1 LINE 39 1 PAGE UBC OSTERLIN UNSP JUNE 04, 1976 10:41:24 01036/001 *CDUPDATE SS G MTS:UBCUPDATE.S D4.2T2 171 CDUPDATE..SS.001 1 LINE 104 24 PAGE UBC BALLARD SHERRY APR. 02, 1979 01:43:48 MTS.:UBCUPDATE.S 0 SPITBOL SOURCE FOR THE CONTEXT-DIRECTED, MULTILEVEL UPDATE PROGRAM. 0 Referenced by comments of: 737/14 01036/002 *CDUPDATE OE G *CDUPDATE D4.2T2 172 CDUPDATE..OE.002 1 LINE 30268 13 PAGE UBC BALLARD SHERRY APR. 02, 1979 01:43:51 *CDUPDATE 0 HAS A "$CONTINUE WITH *SPITLIB" CARD. 01036/003 *CDUPDATE WRITEUP #1 PF MTS:UBCUPDATE.W D4.1T1 663 CDUPDATE.WRITEUP_#1.PF.003 1 LINE 133 10 PAGE UBC BALLARD SHERRY MAY 13, 1978 18:29:07 MTS.:UBCUPDATE.W 0 WRITEUP DESCRIBING CONTEXT-DIRECTED UPDATE PROGRAM. COPY TO A TN PRINTER. 01036/004 *CDUPDATE WRITEUP #2 PF MTS:UBCUPDATE.W2 D4.1T1 664 CDUPDATE.WRITEUP_#2.PF.004 1 LINE 65 3 PAGE UBC BALLARD SHERRY MAY 13, 1978 18:29:09 MTS:UBCUPDATE.W2 0 ANOTHER WRITEUP (FROM UBC60) DESCRIBING CONTEXT-DIRECTED UPDATE PROGRAM. COPY TO A TN PRINTER. 01036/005 *CDUPDATE WRITEUP #3 WF MTS:UBCUPDATE.W3 D4.1T1 665 CDUPDATE.WRITEUP_#3.WF.005 1 LINE 88 2 PAGE UBC BALLARD SHERRY MAY 13, 1978 18:29:10 MTS:UBCUPDATE.W3 0 AND STILL ANOTHER WRITEUP DESCRIBING CONTEXT-DIRECTED UPDATE PROGRAM. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01041/001C RESOURCE MANAGER MACRO LIBRARY SM G COPY:RM.MACROS RD16T1 274 RESOURCE_MANAGER.MACRO_LI.SM.001 1 LINE 73 21 PAGE UBC BERRYMAN MTA JULY 12, 1979 23:29:42 0 RESOURCE MANAGER AND SUBTASKING MONITOR MACRO LIBRARY. THESE MACROS WERE FORMERLY A PART OF 1054/1. 0 Referenced by comments of: 1054/1 01042/001 PLUS_470 COMPILER OE O NEW:PLUS D4.2T2 173 PLUS_470.COMPILER.OE.001 1 LINE 32767 67 PAGE UBC BALLARD HANSEN APR. 02, 1979 01:43:52 NEW.:PLUS 0 ******************************************************************* * P L U S * * COPYRIGHT 1979 ALAN BALLARD AND PAUL WHALEY * ******************************************************************* THIS IS THE CURRENT, COMPLETE, LINKEDITTED VERSION OF THE COMPILER. SEE INSTALLATION NOTES (1042/61) FOR DETAILS. 01042/002 PLUS_470 COMPILER OC O S1222 UMPLUS FSNAME=PLUS.TEST D4.2T2 174 PLUS_470.COMPILER.OC.002 1 LINE 7904 102 PAGE UBC BALLARD HANSEN FEB. 26, 1979 17:45:45 0 THIS IS THE CURRENT, COMPLETE UNLINKEDITTED VERSION OF THE COMPILER. SEE INSTALLATION NOTES FOR DETAILS. 01042/003 PLUS_470 MESSAGES M ETC:PLUSMESSAGES D4.2T2 175 PLUS_470.MESSAGES.M.003 1 LINE 112 5 PAGE UBC BALLARD HANSEN APR. 02, 1979 01:44:33 ETC.:PLUSMESSAGES 0 MESSAGE FILE ACCESSED BY THE COMPILER. SEE INSTALLATION NOTES FOR DETAILS. 01042/004 PLUS_470 MTSLIB S+ O COPY:PLUSINCLUDES D4.2T2 176 PLUS_470.MTSLIB.S+.004 1 LINE 70 20 PAGE UBC BALLARD HANSEN APR. 02, 1979 01:44:34 COPY:PLUSINCLUDES 0 DEFAULT SOURCE LIBRARY ASSUMED IF UNIT 0 IS NOT SPECIFIED WHEN RUNNING COMPILER. THIS LIBRARY CONTAINS A NUMBER OF USEFUL DECLARATIONS. DOCUMENTATION IS NOT YET AVAILABLE. BASICALLY, THE CONTENTS ARE: A) SOME USEFUL TYPES SUCH AS INTEGER, BOOLEAN, ETC. B) DEFINITIONS OF SOME 370/470 MACHINE CHARACTERISTICS, SUCH AS THE WORD SIZE, THE OPERATION CODES, ETC. C) DECLARATIONS FOR THE STANDARD RUN-TIME SUPPORT. D) DECLARATIONS FOR THE USEFUL ROUTINES IN 1042/49. E) DECLARATIONS FOR MOST OF THE MTS SYSTEM SUBROUTINES. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 1042/49 01042/005 PLUS_470 LISTING L S0656 PLUS FSNAME=PLUS_470.LISTING.L.05(1) 5 D4.2T2 177 PLUS_470.LISTING.L.005 1 LINE 151 666 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:22:41 0 COMPLETE SOURCE LISTING FOR CURRENT VERSION OF COMPILER. $COPY TO PRINTER WITH PAGES=800. 01042/006 PLUS_470 SOURCE S O S0656 PLUS FSNAME=PLUS_470.SOURCE.S.06(1) 6 D4.2T2 178 PLUS_470.SOURCE.S.006 1 LINE 41 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:14 0 COMPONENTS 1042/7 TO 1042/42 ARE PLUS SOURCE FOR THE COMPILER. SEE INSTALLATION NOTES FOR INSTRUCTIONS ON COMPILING ANY OF THESE. THIS FILE CONTAINS JUST A SERIES OF $CONTINUE WITH'S SPECIFYING ALL THE FILES (UNDER ID SUEN, AT UBC) CONSTITUTING THE COMPILER. IT IS USED BY THE COMPILER BOOTSTRAPPING JOB (1042/61). 01042/007 PLUS_470 MAIN S+ O S1222 UMPLUS FSNAME=MAIN.S D4.2T2 179 PLUS_470.MAIN.S+.007 1 LINE 68 8 PAGE UBC BALLARD HANSEN JAN. 29, 1979 16:07:51 0 COMPILER MAIN PROGRAM AND INITIALIZATION/TERMINATION. 01042/008 PLUS_470 VERSION NUMBER S+ O S0656 PLUS FSNAME=PLUS_470.VERSION_NUMBER.SQ.08(1) 8 D4.2T2 180 PLUS_470.VERSION_NUMBER.S+.008 1 LINE 67 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:16 0 THIS ROUTINE JUST RETURNS THE CURRENT COMPILER VERSION NUMBER. 01042/009 PLUS_470 TRAP S+ O S1222 UMPLUS FSNAME=TRAP.S D4.2T2 181 PLUS_470.TRAP.S+.009 1 LINE 83 5 PAGE UBC BALLARD HANSEN FEB. 26, 1979 17:43:41 0 COMPILER PROGRAM INTERRUPT HANDLER. 99995 01042/010 PLUS_470 TABLE RTNS S+ O S0656 PLUS FSNAME=PLUS_470.TABLE_RTNS.SQ.10(1) 10 D4.2T2 182 PLUS_470.TABLE_RTNS.S+.010 1 LINE 71 10 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:18 0 ROUTINES USED BY COMPILER TO ALLOCATE AND MAINTAIN VARIABLE-SIZE ARRAYS AND TABLES. 01042/011 PLUS_470 STRING S+ O S0656 PLUS FSNAME=PLUS_470.STRING.SQ.11(1) 11 D4.2T2 183 PLUS_470.STRING.S+.011 1 LINE 68 4 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:20 0 COMPILER STRING-TABLE PROCESSING ROUTINES. 01042/012 PLUS_470 MESSAGE RTNS S+ O S0656 PLUS FSNAME=PLUS_470.MESSAGE_RTNS.SQ.12(1) 12 D4.2T2 184 PLUS_470.MESSAGE_RTNS.S+.012 1 LINE 68 3 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:20 0 ROUTINES WHICH BUILD AND PRINT COMPILER MESSAGES. 99992 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01042/013 PLUS_470 CONVERT S+ O S0656 PLUS FSNAME=PLUS_470.CONVERT.SQ.13(1) 13 D4.2T2 185 PLUS_470.CONVERT.S+.013 1 LINE 68 5 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:21 0 VARIOUS ROUTINES WHICH CONVERT THINGS TO CHARACTER STRINGS, MOSTLY FOR PRINTING IN MESSAGES. 01042/014 PLUS_470 CONST RTNS S+ O S0656 PLUS FSNAME=PLUS_470.CONST_RTNS.SQ.14(1) 14 D4.2T2 186 PLUS_470.CONST_RTNS.S+.014 1 LINE 68 6 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:22 0 CONSTANT PROCESSING ROUTINES. 01042/015 PLUS_470 I/O RTNS S+ O S0656 PLUS FSNAME=PLUS_470.I/O_RTNS.SQ.15(1) 15 D4.2T2 187 PLUS_470.I/O_RTNS.S+.015 1 LINE 68 9 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:24 0 I/O INTERFACING ROUTINES. 01042/016 PLUS_470 INCLUDE S+ O S0656 PLUS FSNAME=PLUS_470.INCLUDE.SQ.16(1) 16 D4.2T2 188 PLUS_470.INCLUDE.S+.016 1 LINE 68 6 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:26 0 ROUTINES FOR PROCESSING SOURCE LIBRARIES, %INCLUDE. 99988 01042/017 PLUS_470 SCANNER S+ O S0656 PLUS FSNAME=PLUS_470.SCANNER.SQ.17(1) 17 D4.2T2 189 PLUS_470.SCANNER.S+.017 1 LINE 68 12 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:27 0 INPUT SCANNER. 99987 01042/018 PLUS_470 PARAGRAPHER S+ O S0656 PLUS FSNAME=PLUS_470.PARAGRAPHER.SQ.18(1) 18 D4.2T2 190 PLUS_470.PARAGRAPHER.S+.018 1 LINE 92 9 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:29 0 SOURCE PARAGRAPHER. 99986 01042/019 PLUS_470 PARSER S+ O S0656 PLUS FSNAME=PLUS_470.PARSER.SQ.19(1) 19 D4.2T2 191 PLUS_470.PARSER.S+.019 1 LINE 68 7 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:31 0 INPUT PARSER. DRIVEN BY TABLES IN 1042/47. 01042/020 PLUS_470 SYMBOL_TABLE S+ O S0656 PLUS FSNAME=PLUS_470.SYMBOL_TABLE.SQ.20(1) 20 D4.2T2 192 PLUS_470.SYMBOL_TABLE.S+.020 1 LINE 95 6 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:32 0 SYMBOL TABLE PROCESSING ROUTINES. 99984 01042/021 PLUS_470 EXT NAME RTNS S+ O S0656 PLUS FSNAME=PLUS_470.EXT_NAME_RTNS.SQ.21(1) 21 D4.2T2 193 PLUS_470.EXT_NAME_RTNS.S+.021 1 LINE 68 5 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:33 0 ROUTINES WHICH MAINTAIN A TABLE OF EXTERNAL NAMES FOR CROSS-CHECKING 99983 IF TWO ROUTINES/GLOBALS RESULT IN SAME ESDNAME. ALSO, USED TO PRINT OUT INDEX AT END OF COMPILATION. 01042/022 PLUS_470 EXTERNAL S+ O S0656 PLUS FSNAME=PLUS_470.EXTERNAL.SQ.22(1) 22 D4.2T2 194 PLUS_470.EXTERNAL.S+.022 1 LINE 68 7 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:34 0 PASS 1 SEMANTICS FOR COMPILATION UNITS (PROCEDURES, GLOBALS). 99982 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01042/023 PLUS_470 MACROS S+ O S1222 UMPLUS FSNAME=MACROS.S D4.2T2 195 PLUS_470.MACROS.S+.023 1 LINE 73 5 PAGE UBC BALLARD HANSEN JAN. 29, 1979 16:08:10 0 PASS 1 SEMANTICS FOR MACRO DEFINITION AND EXPANSION. 99981 01042/024 PLUS_470 TYPES S+ O S0656 PLUS FSNAME=PLUS_470.TYPES.SQ.24(1) 24 D4.2T2 196 PLUS_470.TYPES.S+.024 1 LINE 78 21 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:37 0 PASS 1 SEMANTICS FOR PROCESSING TYPE DEFINITIONS. 99980 01042/025 PLUS_470 VARIABLES S+ O S0656 PLUS FSNAME=PLUS_470.VARIABLES.SQ.25(1) 25 D4.2T2 197 PLUS_470.VARIABLES.S+.025 1 LINE 133 9 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:40 0 PASS 1 SEMANTICS FOR PROCESSING VARIABLES. 99979 01042/026 PLUS_470 DECLARATIONS S+ O S0656 PLUS FSNAME=PLUS_470.DECLARATIONS.SQ.26(1) 26 D4.2T2 198 PLUS_470.DECLARATIONS.S+.026 1 LINE 68 6 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:42 0 PASS 1 SEMANTICS FOR PROCESSING DECLARATIONS. 99978 01042/027 PLUS_470 STATEMENTS S+ O S0656 PLUS FSNAME=PLUS_470.STATEMENTS.SQ.27(1) 27 D4.2T2 199 PLUS_470.STATEMENTS.S+.027 1 LINE 68 3 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:44 0 PASS 1 SEMANTICS FOR PROCESSING STATEMENTS. 99977 01042/028 PLUS_470 EXPRESSIONS S+ O S1222 UMPLUS FSNAME=EXPR.S D4.2T2 200 PLUS_470.EXPRESSIONS.S+.028 1 LINE 68 37 PAGE UBC BALLARD HANSEN FEB. 26, 1979 17:43:17 0 PASS 1 SEMANTICS FOR PROCESSING EXPRESSIONS. 99976 01042/029 PLUS_470 CONTROL_STRUCT S+ O S0656 PLUS FSNAME=PLUS_470.CONTROL_STRUCT.SQ.29(1) 29 D4.2T2 201 PLUS_470.CONTROL_STRUCT.S+.029 1 LINE 68 7 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:52 0 PASS 1 SEMANTICS FOR PROCESSING CONTROL STRUCTURES. 99975 01042/030 PLUS_470 TREE S+ O S1222 UMPLUS FSNAME=TREE.S D4.2T2 202 PLUS_470.TREE.S+.030 1 LINE 68 13 PAGE UBC BALLARD HANSEN JAN. 29, 1979 16:08:24 0 PASS 1 ROUTINES USED TO BUILD INTERMEDIATE CODE TREE. 99974 01042/031 PLUS_470 ERRORS S+ O S1222 UMPLUS FSNAME=ERROR.S D4.2T2 203 PLUS_470.ERRORS.S+.031 1 LINE 78 3 PAGE UBC BALLARD HANSEN FEB. 26, 1979 17:43:37 0 PASS 1 ERROR RECOVERY SEMANTICS. 99973 01042/032 PLUS_470 VIRTUAL S+ O S1222 UMPLUS FSNAME=VIRTUAL.S D4.2T2 204 PLUS_470.VIRTUAL.S+.032 1 LINE 68 4 PAGE UBC BALLARD HANSEN FEB. 26, 1979 17:43:00 0 ROUTINES TO PROCESS "VIRTUAL REGISTERS". 01042/033 PLUS_470 STREAM S+ O S0656 PLUS FSNAME=PLUS_470.STREAM.SQ.33(1) 33 D4.2T2 205 PLUS_470.STREAM.S+.033 1 LINE 68 6 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:58 0 ROUTINES FOR MAINTAINING THE "STREAM CODE" ARRAY. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01042/034 PLUS_470 TEMPORARIES S+ O S0656 PLUS FSNAME=PLUS_470.TEMPORARIES.SQ.34(1) 34 D4.2T2 206 PLUS_470.TEMPORARIES.S+.034 1 LINE 68 4 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:24:59 0 TEMPORARY MANANGEMENT ROUTINES. 01042/035 PLUS_470 STREAM GEN S+ O S0656 PLUS FSNAME=PLUS_470.STREAM_GEN.SQ.35(1) 35 D4.2T2 207 PLUS_470.STREAM_GEN.S+.035 1 LINE 82 41 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:00 0 PASS WHICH TOURS THE TREE AND PRODUCES "STREAM CODE". 99967 01042/036 PLUS_470 STREAM UTIL S+ O S1222 UMPLUS FSNAME=STREAM_UT.S D4.2T2 208 PLUS_470.STREAM_UTIL.S+.036 1 LINE 77 20 PAGE UBC BALLARD HANSEN FEB. 26, 1979 17:43:11 0 AUXILIARY ROUTINES USED BY STREAM CODE GENERATION. 99966 01042/037 PLUS_470 CONST TABLE S+ O S0656 PLUS FSNAME=PLUS_470.CONST_TABLE.SQ.37(1) 37 D4.2T2 209 PLUS_470.CONST_TABLE.S+.037 1 LINE 68 3 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:08 0 ROUTINES WHICH MANAGE THE CONSTANT TABLE USED FOR CONSTANTS EMITTED 99965 DURING CODE GENERATION. 01042/038 PLUS_470 STREAM OPT S+ O S0656 PLUS FSNAME=PLUS_470.STREAM_OPT.SQ.38(1) 38 D4.2T2 210 PLUS_470.STREAM_OPT.S+.038 1 LINE 68 8 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:09 0 OPTIMIZATION PERFORMED ON THE STREAM CODE. 99963 (CURRENTLY, COMBINATION OF "VIRTUAL REGISTERS", REDUNDANT BRANCH REMOVAL, UNREACHABLE CODE REMOVAL) 01042/039 PLUS_470 OBJECT GEN S+ O S0656 PLUS FSNAME=PLUS_470.OBJECT_GEN.SQ.39(1) 39 D4.2T2 211 PLUS_470.OBJECT_GEN.S+.039 1 LINE 68 16 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:10 0 ROUTINES WHICH TOUR STREAM CODE AND PRODUCE OBJECT CODE. 99961 01042/040 PLUS_470 OBJECT EMIT S+ O S1222 UMPLUS FSNAME=OBJ_EMIT.S D4.2T2 212 PLUS_470.OBJECT_EMIT.S+.040 1 LINE 68 5 PAGE UBC BALLARD HANSEN FEB. 26, 1979 17:43:49 0 ROUTINES WHICH BUILD AN ARRAY CONTAINING THE OBJECT TEXT. 99960 01042/041 PLUS_470 OBJECT LIST S+ O S0656 PLUS FSNAME=PLUS_470.OBJECT_LIST.SQ.41(1) 41 D4.2T2 213 PLUS_470.OBJECT_LIST.S+.041 1 LINE 106 7 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:14 0 ROUTINES WHICH PRODUCE THE LISTING OF EMITTED OBJECT CODE. 99959 01042/042 PLUS_470 OBJECT RTNS S+ O S0656 PLUS FSNAME=PLUS_470.OBJECT_RTNS.SQ.42(1) 42 D4.2T2 214 PLUS_470.OBJECT_RTNS.S+.042 1 LINE 68 8 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:15 0 ROUTINES WHICH MANAGE THE OBJECT MODULE. 99958 01042/043 PLUS_470 PLUSLIB S+ O S0656 PLUS FSNAME=PLUS_470.PLUSLIB.SQ.43(1) 43 D4.2T2 215 PLUS_470.PLUSLIB.S+.043 1 LINE 38 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:17 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 1042/44, 1042/45, AND 1042/4. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01042/044 PLUS_470 GLOBALLIB S+ G S1222 UMPLUS FSNAME=GLOBALLIB D4.2T2 216 PLUS_470.GLOBALLIB.S+.044 1 LINE 92 32 PAGE UBC BALLARD HANSEN JAN. 29, 1979 16:08:46 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/45 01042/045 PLUS_470 PROCDECLLIB S+ G S0656 PLUS FSNAME=PLUS_470.PROCDECLLIB.SQ.45(1) 45 D4.2T2 217 PLUS_470.PROCDECLLIB.S+.045 1 LINE 68 26 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:24 0 LIBRARY CONTAINING PROCEDURE DECLARATIONS FOR ALL PROCEDURES CONSTITUTING THE PLUS COMPILER. (EXCEPT, CURRENTLY, FOR A FEW THAT ARE IN GLOBALLIB (1042/44) FOR HISTORICAL REASONS.) 01042/046 PLUS_470 COMPILER INT SA G S0656 PLUS FSNAME=PLUS_470.COMPILER_INT.SA.46(1) 46 D4.2T2 218 PLUS_470.COMPILER_INT.SA.046 1 LINE 68 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:28 0 ASSEMBLER INTERFACE ROUTINE FOR RUNNING THE PLUS COMPILER. ALLOCATES AND INITIALIZES THE STACK AND CALLS THE MAIN ROUTINE OF THE COMPILER. 01042/047 PLUS_470 PARSE TABLES S3 G S0656 PLUS FSNAME=PLUS_470.PARSE_TABLES.S3.47(1) 47 D4.2T2 219 PLUS_470.PARSE_TABLES.S3.047 1 LINE 62 10 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:28 0 PL360 SOURCE FOR PARSE TABLES USED TO DRIVE THE PARSER. THESE TABLES ARE GENERATED BY AN LALR(1) PARSER GENERATOR WRITTEN IN SUE. THE PARSER GENERATOR HAS NOT BEEN DISTRIBUTED. IT IS CURRENTLY BEING REWRITTEN IN PLUS, AND SHOULD BE INCLUDED ON THE NEXT DISTRIBUTION OF PLUS FROM UBC. 0 Referenced by comments of: 1042/48 01042/048 PLUS_470 GRAMMAR D S0656 PLUS FSNAME=PLUS_470.GRAMMAR.D.48(1) 48 D4.2T2 220 PLUS_470.GRAMMAR.D.048 1 LINE 100 4 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:30 0 GRAMMAR FOR PLUS USED AS INPUT TO THE PARSER GENERATOR TO GENERATE THE DISTRIBUTED PARSER TABLES (1042/47). THE SYNTAX DESCRIPTION IS BASICALLY THE VARIANT OF BNF USED FOR ALGOL 68. THAT IS, : SEPARATES NONTERMINAL LHS OF A RULE FROM THE RHS. ; SEPARATES ALTERNATIVE PRODUCTIONS FOR THE SAME NONTERMINAL. , SEPARATES SYMBOLS OF A PRODUCTION'S RHS. . TERMINATES THE ALTERNATIVES FOR A NONTERMINAL. THE CONVENTION IS USED THAT NON-TERMINALS ARE SURROUNDED BY QUOTES. 01042/049 PLUS_470 LIBRARY OL G NEW:PLUSLIB D4.2T2 221 PLUS_470.LIBRARY.OL.049 1 LINE 3068 6 PAGE UBC BALLARD HANSEN APR. 02, 1979 01:51:35 NEW:PLUSLIB 0 OBJECT LIBRARY CONTAINING OBJECT CODE FOR VARIOUS USEFUL ROUTINES (SOURCE IN PLUS:LIB.S (1042/50)), SOME SMALL ASSEMBLER INTERFACE ROUTINES 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 (SOURCE IN PLUS:LIB_INT.SA (1042/52)). INCLUDES THE STANDARD RUN-TIME SUPPORT FOR ALLOCATING THE STACK AND HANDLING RUN-TIME ERRORS. DECLARATIONS FOR ALL ROUTINES IN THE LIBRARY ARE IN THE DEFAULT SOURCE LIBRARY, PLUS:MTSLIB (1042/4). CURRENTLY, THE ONLY DOCUMENTATION FOR THESE ROUTINES IS THAT CONTAINED IN THE SOURCE (SORRY), EXCEPT FOR THE ROUTINE PICTURE_FORMAT, WHICH IS DESCRIBED BY 1042/57. 01042/050 PLUS_470 LIBRARY S+ G S0656 PLUS FSNAME=PLUS_470.LIBRARY.SQ.50(1) 50 D4.2T2 222 PLUS_470.LIBRARY.S+.050 1 LINE 88 15 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:32 0 PLUS SOURCE FOR SOME USEFUL ROUTINES. 0 Referenced by comments of: 1042/49 01042/051 PLUS_470 LIBRARY L S0656 PLUS FSNAME=PLUS_470.LIBRARY.L.51(1) 51 D4.2T2 223 PLUS_470.LIBRARY.L.051 1 LINE 130 43 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:35 0 LISTING OF PLUS LIBRARY ROUTINES. $COPY WITH PAGES=60. 01042/052 PLUS_470 LIBRARY SA G S0656 PLUS FSNAME=PLUS_470.LIBRARY.SA.52(1) 52 D4.2T2 224 PLUS_470.LIBRARY.SA.052 1 LINE 65 3 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:40 0 ASSEMBLER SOURCE FOR A FEW INTERFACING ROUTINES THAT ARE INCLUDED IN 1042/49. 0 Referenced by comments of: 1042/49 01042/053 PLUS_470 SUPERVISOR LIB S+ O S0656 PLUS FSNAME=PLUS_470.SUPERVISOR_LIB.SQ.53(1) 53 D4.2T2 225 PLUS_470.SUPERVISOR_LIB.S+.053 1 LINE 65 2 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:41 0 UBC PLANS, EVENTUALLY, TO PRODUCE A SERIES OF LIBRARIES PARALLELING THE ASSEMBLER LIBRARIES FOR THE VARIOUS COMPONENTS OF THE SYSTEM. (UBC NOW ATTEMPTS TO KEEP ALL SYSTEM COPY SECTIONS IN ONE OF A SMALL NUMBER OF LIBRARIES.) THESE LIBRARIES WILL CONTAIN PLUS DEFINITIONS OF VARIOUS INTERNAL CONTROL BLOCKS, INTERNAL ENTRY POINTS OF THE SYSTEM ETC. THIS SUBCOMPONENT WILL CONTAIN SUPERVISOR-RELATED DEFINITIONS. CURRENTLY, HOWEVER, ALL IT CONTAINS IS CONSTANT DEFINITIONS FOR ALL THE UMMPS SVC'S. 01042/054 PLUS_470 WRITEUP WF S0656 PLUS FSNAME=PLUS_470.WRITEUP.WF.54(1) 54 D4.2T2 226 PLUS_470.WRITEUP.WF.054 1 LINE 139 50 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:41 0 FMT SOURCE FOR PLUS WRITEUP. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 CONTAINS REFERENCE TO JON:MACLIB AT LINE 1, WHICH WILL NEED CHANGING ELSEWHERE. (JON:MACLIB IS DISTRIBUTED AS 1042/55) 01042/055 PLUS_470 FMT MACROS WF G S0656 PLUS FSNAME=PLUS_470.FMT_MACROS.WF.55(1) 55 D4.2T2 227 PLUS_470.FMT_MACROS.WF.055 1 LINE 110 8 PAGE UBC NIGHTINGA HANSEN JAN. 09, 1979 13:25:47 0 THE INFAMOUS JON:MACLIB FROM UBC, ONCE AGAIN. PROBABLY ANY VERSION DISTRIBUTED IN THE LAST YEAR OR SO WOULD WORK, BUT JUST IN CASE, THIS IS THE COPY CURRENTLY USED HERE. 01042/056 PLUS_470 WRITEUP PF S0656 PLUS FSNAME=PLUS_470.WRITEUP.PF.56(1) 56 D4.2T2 228 PLUS_470.WRITEUP.PF.056 1 LINE 77 64 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:49 0 $COPYABLE FORM OF PLUS WRITEUP. ALLOW 100 PAGES, TN PRINTER. 01042/057 PLUS_470 PICTURE WRITEU P S0656 PLUS FSNAME=PLUS_470.PICTURE_WRITEU.P.57(1) 57 D4.2T2 229 PLUS_470.PICTURE_WRITEU.P.057 1 LINE 77 3 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:25:59 0 THIS IS A BRIEF DESCRIPTION OF THE PICTURE CONVERSION ROUTINE IN 1042/49. IT IS IN $COPYABLE FORM, NOT FMT. 01042/058 PLUS_470 BUGLIST P W167:PLUS.BUGS D4.2T2 230 PLUS_470.BUGLIST.P.058 1 LINE 84 2 PAGE UBC BALLARD HANSEN APR. 02, 1979 01:51:49 0 DESCRIPTION OF CURRENT KNOWN BUGS IN THE COMPILER. 01042/059 PLUS_470 NEWS P W167:PLUS.NEWS D4.2T2 231 PLUS_470.NEWS.P.059 1 LINE 74 1 PAGE UBC BALLARD HANSEN APR. 02, 1979 01:51:50 0 CURRENT NEWS FILE FOR PLUS. 01042/060 PLUS_470 DIST LETTER PF S0656 PLUS FSNAME=PLUS_470.DIST_LETTER.PF.60(1) 60 D4.2T2 232 PLUS_470.DIST_LETTER.PF.060 1 LINE 69 3 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:01 0 THIS IS A COVERING LETTER FROM UBC TO UM WHICH ACCOMPANIED THIS DISTRIBUTION OF PLUS. IT DESCRIBES THE CURRENT STATUS, AND EXPRESSES UBC'S WISHES REGARDING DISTRIBUTION AND MAINTENANCE OF THE COMPILER. ALL INSTALLATIONS RECEIVING PLUS SHOULD READ THIS. 01042/061 PLUS_470 INSTALL NOTES P S1222 UMPLUS FSNAME=INST.NOTES D4.2T2 233 PLUS_470.INSTALL_NOTES.P.061 1 LINE 78 3 PAGE UBC BALLARD HANSEN FEB. 09, 1979 17:35:48 0 INSTRUCTIONS FOR INSTALLING PLUS. 0 Referenced by comments of: 1042/1, 1042/6 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01042/062 PLUS_470 BOOTSTRAP C S0656 PLUS FSNAME=PLUS_470.BOOTSTRAP.C.62(1) 62 D4.2T2 234 PLUS_470.BOOTSTRAP.C.062 1 LINE 120 3 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:03 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. SEE INSTALLATION NOTES, AND $COMMENT LINES IN THE COMMAND FILE. 01042/063 PLUS_470 ROLLOVER C S0656 PLUS FSNAME=PLUS_470.ROLLOVER.C.63(1) 63 D4.2T2 235 PLUS_470.ROLLOVER.C.063 1 LINE 68 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:04 0 BATCH JOB USED AFTER GENERATING A NEW PRIVATE VERSION OF THE PLUS COMPILER (AS WITH 1042/62), TO INSTALL IT AS THE NEW PUBLIC VERSION, PRODUCING APPROPRIATE BACKUP ETC. 01042/064 PLUS_470 COMPARE SS G S0656 PLUS FSNAME=PLUS_470.COMPARE.SS.64(1) 64 D4.2T2 236 PLUS_470.COMPARE.SS.064 1 LINE 62 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:05 0 THIS IS A SPITBOL GLP WHICH WE USE IN BOOTSTRAPPING A NEW VERSION OF THE 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. 01042/065 PLUS_470 XREF SS G S1222 UMPLUS FSNAME=PLUS.XREF.S D4.2T2 237 PLUS_470.XREF.SS.065 1 LINE 101 4 PAGE UBC BALLARD HANSEN FEB. 05, 1979 18:03:44 0 ANOTHER SPITBOL PROGRAM, WHICH WE USE TO PRODUCE A CROSS-REFERENCE OF THE PLUS SOURCE FILES. USES ROUTINES SGETFO AND SREAD FROM UNSP:SPITLIB (590/29) TO GET LINE NUMBERS WHEN THE VARIABLE READ_TYPE AT LINE 54.5 IS SET TO "UM", OTHERWISE USES THE ROUTINE MTSLNR AS IN UBC'S SPITBOL. IT MAY BE NECESSARY TO CHANGE THIS AT OTHER INSTALLATIONS. 01042/066 PLUS_470 XREF D O S0656 PLUS FSNAME=PLUS_470.XREF.D.66(1) 66 D4.2T2 238 PLUS_470.XREF.D.066 1 LINE 10 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:07 0 LIST OF WORDS THAT WE DON'T WANT CROSS REFERENCED WHEN XREFING THE PLUS COMPILER. THIS CONSISTS OF THE RESERVED WORDS, AND A FEW BUILTIN OR COMPILER PROCEDURES. 01042/067 PLUS_470 XREF L O S0656 PLUS FSNAME=PLUS_470.XREF.L.67(1) 67 D4.2T2 239 PLUS_470.XREF.L.067 1 LINE 133 266 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:08 0 CROSS REFERENCE OF FILES CONSTITUTING DISTRIBUTED PLUS COMPILER 1 THU SEP 12/96 23:39:34 Page 455 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 AS GENERATED BY XREF PROGRAM. $COPY WITH PAGES=200. 01042/068 PLUS_470 LIBRARY GENERA SS O S0656 PLUS FSNAME=PLUS_470.LIBRARY_GENERA.SS.68(1) 68 D4.2T2 240 PLUS_470.LIBRARY_GENERA.SS.068 1 LINE 147 3 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:25 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/29). 01042/069 PLUS_470 HANOI S+ G S0656 PLUS FSNAME=PLUS_470.HANOI.SQ.69(1) 69 D4.2T2 241 PLUS_470.HANOI.S+.069 1 LINE 68 1 PAGE UBC BALLARD HANSEN JAN. 09, 1979 13:26:27 0 SIMPLE EXAMPLE OF PLUS PROGRAM THAT PERFORMS TOWERS OF HANOI. 01042/070 PLUS_470 TAPE RPT EXAMP S+ G S0656 PLUS FSNAME=PLUS_470.TAPE_RPT_EXAMP.SQ.70(1) 70 D4.2T2 242 PLUS_470.TAPE_RPT_EXAMP.S+.070 1 LINE 91 14 PAGE UBC HOGG HANSEN JAN. 09, 1979 13:26:28 0 COMPONENTS 1042/70 - 1042/74 ARE A PLUS PROGRAM USED AT UBC FOR PRODUCING TAPE ERROR REPORTS FROM THE INFORMATION LOGGED TO CMDSTAT BY THE UBC TAPE SUPPORT. IT IS DISTRIBUTED HERE ONLY AS AN EXAMPLE OF A NON-TRIVIAL PLUS PROGRAM. SEE CAVEATS AT BEGINNING OF SOURCE. THE COMPLETE PROGRAM CONSISTS OF THIS FILE, TOGETHER WITH EITHER 1042/71 OR 1042/72 (FOR IBM OR STC DRIVES RESPECTIVELY), THE ROUTINE IN 1042/73 AND 1042/49. SEE COMMENTS IN SOURCE FOR FURTHER DETAILS. 01042/071 PLUS_470 TAPE RPT IBM S+ G S0656 PLUS FSNAME=PLUS_470.TAPE_RPT_IBM.SQ.71(1) 71 D4.2T2 243 PLUS_470.TAPE_RPT_IBM.S+.071 1 LINE 80 3 PAGE UBC HOGG HANSEN JAN. 09, 1979 13:26:30 0 PART OF TAPE REPORT PROGRAM USED WITH IBM DRIVES. 01042/072 PLUS_470 TAPE RPT STC S+ G S0656 PLUS FSNAME=PLUS_470.TAPE_RPT_STC.SQ.72(1) 72 D4.2T2 244 PLUS_470.TAPE_RPT_STC.S+.072 1 LINE 79 3 PAGE UBC HOGG HANSEN JAN. 09, 1979 13:26:31 0 PART OF TAPE REPORT PROGRAM USED WITH STC DRIVES. 01042/073 PLUS_470 TAPE RPT UTIL OC G S0656 PLUS FSNAME=PLUS_470.TAPE_RPT_UTIL.OC.73(1) 73 D4.2T2 245 PLUS_470.TAPE_RPT_UTIL.OC.073 1 LINE 80 1 PAGE UBC HOGG HANSEN JAN. 09, 1979 13:26:32 0 OBJECT CODE FOR ROUTINE TO CONVERT DATE TO DAY-DATE FORMAT, USED BY TAPE REPORTING PROGRAM. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01042/074 PLUS_470 TAPE RPT DATA D S0656 PLUS FSNAME=PLUS_470.TAPE_RPT_DATA.D.74(1) 74 D4.2T2 246 PLUS_470.TAPE_RPT_DATA.D.074 1 LINE 97 10 PAGE UBC HOGG HANSEN JAN. 09, 1979 13:26:33 0 SAMPLE DATA FOR THE TAPE REPORT PROGRAM (PRODUCED BY IBM DRIVES). 01042/075 PLUS_470 TAPE EXERCISER S+ G S0656 PLUS FSNAME=PLUS_470.TAPE_EXERCISER.SQ.75(1) 75 D4.2T2 247 PLUS_470.TAPE_EXERCISER.S+.075 1 LINE 68 3 PAGE UBC HOGG HANSEN JAN. 09, 1979 13:26:35 0 ANOTHER EXAMPLE PROGRAM. THIS ONE IS A TAPE DRIVE EXERCISER. SEE COMMENTS IN SOURCE FOR EXPLANATIONS. 01052/001D UBC PASCAL COMP.SRC SW O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.COMP.SRC RD16T1 275 PASCAL/UBC.COMP.SRC.SW.001 1 LINE 90 157 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 03:52:17 0 THIS IS THE SOURCE FOR THE UBC PASCAL COMPILER. AS NOTED IN THE COMMAND FILE (1052/4), TWO LOCAL CHANGES MUST BE MADE WHEN THE COMPILER IS MOVED. THEY ARE: 1. CHANGE 'PSCL:PASCALLIB' TO THE LOCATION OF THE PASCAL LIBRARY (1052/9). 2. CHANGE 'PSCL:ERRCNT' TO THE LOCATION OF THE ERROR FILE. IF NO ERROR FILE IS SPECIFIED, UBC PASCAL WILL THROW AWAY THE LOG. NOTE ALSO THAT THE COMPILER SWITCH 'LIST' IS SET TO 'LIST-'. SUBCOMPONENTS 1052/4 AND 1052/10 CONTAIN FURTHER INFORMATION ABOUT HOW TO INSTALL THE SYSTEM. 01052/002D UBC PASCAL CPU.COMP.OBJ OC O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.CPU.COMP.OBJ RD16T1 276 PASCAL/UBC.CPU.COMP.OBJ.OC.002 1 LINE 757 1 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 03:53:52 0 THIS IS A SINGLE OBJECT MODULE, FDGET, WHICH IS USED TO GET THE ERROR COUNT FILE WITHOUT USING A RCALL. THE SOURCE FOR THIS WAS NOT DISTRIBUTED BY UBC. 01052/003D UBC PASCAL COMP OE O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.COMP.O RD16T1 277 PASCAL/UBC.COMP.OE.003 1 LINE 32767 62 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 02:15:30 0 THIS IS THE LINKEDITED PASCAL COMPILER. 0 Referenced by comments of: 1052/4 01052/004D UBC PASCAL MAKE.COMP C O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.MAKE.COMP RD16T1 278 PASCAL/UBC.MAKE.COMP.C.004 1 LINE 95 1 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 02:18:51 0 THIS FILE CONTAINS THE COMMANDS NECESSARY TO MAKE THE PASCAL COMPILER (1052/3). IT ASSUMES THAT ONE ALREADY HAS THE OBJECT CODE VERSION OF THE COMPILER, AND THAT ONE HAS MADE A PASCAL RUNTIME LIBRARY (1052/9). 0 Referenced by comments of: 1052/1 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01052/005D UBC PASCAL MON.SRC SA O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.MON.SRC RD16T1 279 PASCAL/UBC.MON.SRC.SA.005 1 LINE 73 32 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 03:53:01 0 THIS FILE CONTAINS THE LIBRARY ASSEMBLER SOURCE MODULES. WHEN THIS SOURCE IS MOVED, 'PSCL:PASCALLIB' AND 'PSCL:DEBUG.LINK' MUST BE CHANGED TO LOCAL NAMES. 0 Referenced by comments of: 1052/11 01052/006D UBC PASCAL LIB.SRC SW O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.LIB.SRC RD16T1 280 PASCAL/UBC.LIB.SRC.SW.006 1 LINE 80 13 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 02:15:50 0 THIS FILE CONTAINS THE PASCAL SOURCE LIBRARY MODULES. 01052/007D UBC PASCAL DEBUG.SRC SW O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.DEBUG.SRC RD16T1 281 PASCAL/UBC.DEBUG.SRC.SW.007 1 LINE 81 52 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 02:16:07 0 THIS FILE CONTAINS THE PASCAL SOURCE CODE FOR THE PASCAL POST-MORTEM ANALYSIS (PMD) PACKAGE. 01052/008D UBC PASCAL CPU.MON.OBJ OC O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.CPU.MON.OBJ RD16T1 282 PASCAL/UBC.CPU.MON.OBJ.OC.008 1 LINE 757 1 PAGE UBC JOLLIFFE UNSP MAR. 17, 1979 20:33:28 0 THIS IS A SET OF 3 OBJECT MODULES, FDFREE, FEMPTY, AND GFNAME. THESE ARE CALLED BY SOME OF THE 1052/5 MODULES. THE SOURCE FOR THIS WAS NOT DISTRIBUTED BY UBC. 01052/009D UBC PASCAL RUNTIME OL O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.RUNTIME.OBJ RD16T1 283 PASCAL/UBC.RUNTIME.OL.009 1 LINE 5535 41 PAGE UBC JOLLIFFE UNSP JUNE 08, 1979 01:31:23 0 THIS IS THE PASCAL RUN TIME LIBRARY. IT IS THE OBJECT OF 1052/5, 1052/6, 1052/7, AND 1052/8. COMPONENT 1052/10 CONTAINS COMMANDS TO ASSEMBLE THE LIBRARY. 0 Referenced by comments of: 1052/1, 1052/4, 1052/10, 1052/11 01052/010D UBC PASCAL MAKE.LIB C O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.MAKE.LIB RD16T1 284 PASCAL/UBC.MAKE.LIB.C.010 1 LINE 100 1 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 02:14:46 0 A SET OF COMMANDS FOR BUILDING A NEW PASCAL LIBRARY (1052/9) FROM SOURCE. 01052/011D UBC PASCAL DEBUG.LOAD OC O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.DEBUG.LOAD RD16T1 285 PASCAL/UBC.DEBUG.LOAD.OC.011 1 LINE 30 1 PAGE UBC JOLLIFFE UNSP JUNE 08, 1979 01:32:13 0 THIS FILE CONTAINS ONLY AN ENT RECORD AND A $CONTINUE WITH RECORD. IT IS LOADED BY THE LIBRARY (1052/9) WHEN THE DEBUGGER (1052/5) IS CALLED. 01052/012D UBC PASCAL COMMENTS P O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.COMMENTS RD16T1 286 PASCAL/UBC.COMMENTS.P.012 1 LINE 68 2 PAGE UBC JOLLIFFE UNSP JUNE 12, 1979 20:32:15 0 THIS FILE CONTAINS A DESCRIPTION (FROM WHICH THE COMMENTS FOR THIS COMPONENT WERE TAKEN) OF SOME OF THE FILES ON THE PASCAL DISTRIBUTION TAPE RECEIVED FROM UBC. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01052/013D UBC PASCAL INTRO P O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.INTRO RD16T1 287 PASCAL/UBC.INTRO.P.013 1 LINE 72 16 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 02:22:16 0 THIS IS AN INTRODUCTION (WRITTEN BY BARY POLLACK OF UBC) TO PASCAL. THE DOCUMENT DESCRIBES MOST OF THE FEATURES PECULIAR TO UBC PASCAL AND ALSO DESCRIBES MOST OF THE PASCAL LANGUAGE. 01052/014D UBC PASCAL GUIDE P O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.GUIDE RD16T1 288 PASCAL/UBC.GUIDE.P.014 1 LINE 73 54 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 02:22:38 0 THIS IS A COMPREHENSIVE GUIDE TO THE PASCAL/UBC COMPILER. THE DOCUMENT IS A LOOSE REFERENCE WORK, WHICH ASSUMES A KNOWLEDGE OF THE LANGUAGE AND GIVES THE UBC DIFFERENCES. 01052/015D UBC PASCAL NEWS P O S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.NEWS RD16T1 289 PASCAL/UBC.NEWS.P.015 1 LINE 77 5 PAGE UBC JOLLIFFE UNSP MAR. 01, 1979 02:23:05 0 CONTAINS THE PASCAL NEWS AS OF FEBRUARY 1979. 01054/001B CODING CONVENTIONS RMGR MACRO LIB SM G COPY:RMGRMACLIB RD16T1 290 CODING_CONVENTIONS.RMGR_M.SM.001 1 LINE 73 110 PAGE UBC BERRYMAN MTA JULY 12, 1979 23:33:14 COPY:RMGRMACLIB 0 RESOURCE MANAGER MACRO LIBRARY. BASED ON UBC70 VERSION WITH CHANGES. THIS IS BEING SENT OUT ON RD16 FOR ONE LAST TIME BEFORE WE RETIRE IT, SINCE IT HAS BEEN DIVIDED INTO TWO SUBCOMPONENTS, COPY:RM.MACROS (1041/1) AND COPY:CC.MACROS (1054/2). 0 Referenced by comments of: 42/1, 198/1, 354/1, 400/3, 464/1, 513/1, 539/1, 540/25, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1, 651/10, 1054/3, 1067/1, 1067/2, 4000/1 01054/002C CODING CONVENTIONS CC MACRO LIB SM G COPY:CC.MACROS RD16T1 291 CODING_CONVENTIONS.CC_MAC.SM.002 1 LINE 130 85 PAGE UBC BERRYMAN MTA JULY 12, 1979 23:33:24 0 CURRENT VERSION OF THE NEW MTS CODING CONVENTION MACROS. THIS WAS FORMERLY A PART OF 1054/1. 0 Referenced by comments of: 1054/1 01054/003 CODING CONVENTIONS WRITEUP PF S1191 UBC63 FSNAME=CODING_CONVENTIONS.MTS_WRI.PF.05 212 D4.2T2 249 CODING_CONVENTIONS.WRITEU.PF.002 1 LINE 70 16 PAGE UBC BERRYMAN MTA AUG. 30, 1978 22:45:08 0 WRITEUP DESCRIBING CODING CONVENTIONS MACROS IN COPY:RMGRMACLIB (1054/1). 01067/001 TAPESHARE MAIN PGM SA G S1237 TAPES 'TAPEFS' FSNAME=TAPESHARE D4.2T2 250 TAPESHARE.MAIN_PGM.SA.001 1 LINE 80 4 PAGE UBC WHALEY UNSP DEC. 22, 1978 12:58:59 0 PROGRAM TO ALLOW USERS TO CONTROL WHICH OF THEIR TAPES CAN BE READ FROM, OR OPTIONALLY WRITTEN ON, BY OTHER USERS. THIS UM VERSION OF TAPESHARE PARSES RACK NAMES BY USING THE INITIAL NON-NUMERIC PART OF THE NAME (PREFIXED BY "ETC.:TAPE") AS THE NAME OF A FILE WHICH CONTAINS THE DATA INDICATING TAPE ACCESS RESTRICTIONS. FOR EXAMPLE, FOR RACK NAME "C1000" TAPESHARE WILL ACCESS FILE ETC.:TAPEC TO SEE IF C1000 CAN BE MOUNTED BY THE REQUESTING USER (AND IN WHAT WAY). IF THE FILE IN QUESTION DOES NOT EXIST 1 THU SEP 12/96 23:39:34 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 (NO SUCH FILES EXIST ON THE DISTRIBUTED TEST PACK), THEN ACCESS TO THE TAPE IS ALWAYS ALLOWED. IF THE FILE DOES EXIST, BUT IS NOT ACCESSIBLE BY THE USER TRYING TO MOUNT THE TAPE, THEN THE MOUNT IS NOT ALLOWED. THE MAIN PROGRAM CALLS TSHARESUB (1067/2). ASSEMBLE USING COPY:RMGRMACLIB (1054/1). COPIES *GDINFODSECT(594). 0 Referenced by comments of: 1067/4 01067/002 TAPESHARE TSHARESUB SA G S1237 TAPES 'TAPEFS' FSNAME=TSHARESUB D4.2T2 251 TAPESHARE.TSHARESUB.SA.002 1 LINE 73 44 PAGE UBC WHALEY UNSP DEC. 22, 1978 12:59:34 0 SUBROUTINE THAT DOES MOST OF THE WORK. INSTALLATIONS MAY WANT TO CHANGE THE FOLLOWING THINGS BEFORE USING: 1) LIST OF PRIVILEGED IDS 2) "PRJNO" AND "P" MIGHT BE CHANGED TO "DEPT" AND "D" ASSEMBLE USING COPY:RMGRMACLIB (1054/1). 0 Referenced by comments of: 1067/1, 1067/4 01067/003 TAPESHARE ATTNQ SA G S1237 TAPES 'TAPEFS' FSNAME=TS.ATTNQ D4.2T2 252 TAPESHARE.ATTNQ.SA.003 1 LINE 80 2 PAGE UBC WHALEY UNSP DEC. 22, 1978 13:26:17 0 ATTENTION TRAPPING ROUTINES FOR USE BY INSTALLATIONS WHICH DO NOT HAVE UBC'S ATTNQ, ATTNTEST, AND ATTNNOQ. SOURCE IN LINES (1,999). 0 Referenced by comments of: 1067/4 01067/004 TAPESHARE OE G UNSP:TAPESHARE D4.2T2 253 TAPESHARE..OE.004 1 LINE 14684 5 PAGE UBC WHALEY UNSP APR. 02, 1979 01:56:51 UNSP:TAPESHARE 0 LINKEDITED OBJECT OF TAPESHARE (1067/1), TSHARESUB (1067/2), AND ATTNQ (1067/3). 01067/005 TAPESHARE CHECK SUBR SA G S1237 TAPES 'TAPEFS' FSNAME=TSCHECK D4.2T2 254 TAPESHARE.CHECK_SUBR.SA.005 1 LINE 80 6 PAGE UBC WHALEY UNSP DEC. 22, 1978 13:00:32 0 SUBROUTINE CALLED BY MOUNT (101/1) TO CHECK ACCESS TO A TAPE. MOUNT HAS A WXTRN FOR IT. OBJECT IS IN *CLSMOUNT(101/2). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 101/1 01067/006 TAPESHARE CHECK SUBR OC G # *CLSMOUNT (SEE COMP 101/2) UBC WHALEY UNSP 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 01067/007 TAPESHARE TSHELP D ETC:TSHELP D4.2T2 255 TAPESHARE.TSHELP.D.007 1 LINE 70 3 PAGE UBC WHALEY UNSP APR. 02, 1979 01:56:56 ETC.:TSHELP 0 TEXT FOR TAPESHARE'S HELP COMMAND. 01067/008 TAPESHARE TSMANUAL P S1237 TAPES 'TAPEFS' FSNAME=TS.LIBRMANUAL D4.2T2 256 TAPESHARE.TSMANUAL.P.008 1 LINE 76 4 PAGE UBC WHALEY UNSP DEC. 22, 1978 13:03:50 0 TAPESHARE MANUAL FOR TAPE LIBRARIAN. INCLUDES PRIVILEGED COMMANDS. 01067/009 TAPESHARE WRITEUP WT S1237 TAPES 'TAPEFS' FSNAME=TS.V2WRITEUP D4.2T2 257 TAPESHARE.WRITEUP.WT.009 1 LINE 71 3 PAGE UBC WHALEY UNSP DEC. 22, 1978 13:04:19 0 VOLUME 2 STYLE USER WRITEUP. 01067/010 TAPESHARE WRITEUP PT UNSP:TAPESHARE.W D4.2T2 258 TAPESHARE.WRITEUP.PT.010 1 LINE 83 4 PAGE UBC WHALEY UNSP APR. 02, 1979 01:56:59 UNSP:TAPESHARE.W 02000/001C ALW AWA S3 G ALWB:AWA.S RD16T1 292 ALW.AWA.S3.011 1 LINE 80 152 PAGE UM HUNTER BODWIN JULY 12, 1979 23:33:32 0 REPLACEMENT FOR NEWCASTLE PHASE A (SCAN AND PARSE). THIS MAY BECOME THE NEW BASE SOURCE FOR PHASE A. NO UPDATES SHOULD BE APPLIED. CORRESPONDS TO THE RD16 UNE 2000/11 WITH RD16 UNE 2000/80, RD16 UNE 2000/87, AND MICHIGAN CHANGES (FOR WHICH NO UPDATE DECK IS BEING DISTRIBUTED) APPLIED. 02000/002C ALW R1L1A OC G ALWB:AWA.O RD16T1 293 ALW.R1L1A.OC.084 1 LINE 80 41 PAGE UM HUNTER BODWIN JULY 12, 1979 23:34:00 0 OBJECT OF UM RD16 2000/11. 03003/001 *SPIRES DIST NOTES WF S0777 SPIRES FSNAME=D4.DISTNOTES D4.1T1 669 SPIRES.DIST_NOTES.WF.001 1 LINE 145 19 PAGE UM STERKEN FEB. 15, 1978 11:23:10 0 SPIRES (THE STANFORD PUBLIC INFORMATION RETRIEVAL SYSTEM) IS A PROPRIETARY INFORMATION RETRIEVAL SYSTEM FROM STANFORD UNIVERSITY, STANFORD, CALIFORNIA. THE MTS DISTRIBUTION CONSISTS ONLY OF UPDATES TO THE STANFORD SOURCE (WHICH MUST BE OBTAINED DIRECTLY FROM STANFORD) WHICH MODIFY SPIRES TO RUN IN MTS. 3003/1 AND THE GENSYS $SOURCE FILES, CONTAIN ALL THE NECESSARY INSTRUCTIONS FOR INSTALLING SPIRES IN MTS. 03003/002 *SPIRES D4.GENSYS.1 C S0777 SPIRES FSNAME=D4.GENSYS.1 D4.1T1 670 SPIRES.D4.GENSYS.1.C.002 1 LINE 69 6 PAGE UM STERKEN JAN. 11, 1978 08:26:58 0 MTS COMMANDS FOR INITIALIZING DBMS, READING IN FILES FROM THE DISTRIBUTION TAPE, AND EXPANDING THE *UPDATE AND *UNEDIT DECKS FOR THE D4 VERSION. 03003/003 *SPIRES D3.GENSYS.1 C S0777 SPIRES FSNAME=D3.GENSYS.1 D4.1T1 671 SPIRES.D3.GENSYS.1.C.003 1 LINE 69 6 PAGE UM STERKEN JAN. 11, 1978 08:27:01 0 MTS COMMANDS FOR INITIALIZING DBMS, READING IN FILES FROM THE DISTRIBUTION 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 TAPE, AND EXPANDING THE *UPDATE AND *UNEDIT DECKS FOR THE D3 VERSION. 03003/004 *SPIRES D4.GENSYS.2 C S0777 SPIRES FSNAME=D4.GENSYS.2 D4.1T1 672 SPIRES.D4.GENSYS.2.C.004 1 LINE 83 3 PAGE UM STERKEN JAN. 11, 1978 08:27:03 0 MTS COMMANDS TO COMPILE AND ASSEMBLE THE PL360 AND ASMG MODULES FOR D4 VERSION. 03003/005 *SPIRES D3.GENSYS.2 C S0777 SPIRES FSNAME=D3.GENSYS.2 D4.1T1 673 SPIRES.D3.GENSYS.2.C.005 1 LINE 83 3 PAGE UM STERKEN JAN. 11, 1978 08:27:06 0 MTS COMMANDS TO COMPILE AND ASSEMBLE THE PL360 AND ASMG MODULES FOR D3 VERSION. 03003/006 *SPIRES D4.GENSYS.3 C S0777 SPIRES FSNAME=D4.GENSYS.3 D4.1T1 674 SPIRES.D4.GENSYS.3.C.006 1 LINE 76 1 PAGE UM STERKEN JAN. 11, 1978 08:27:08 0 MTS COMMANDS TO LINKEDIT THE SPIRES PROCESSORS FOR THE D4 VERSION. 03003/007 *SPIRES D3.GENSYS.3 C S0777 SPIRES FSNAME=D3.GENSYS.3 D4.1T1 675 SPIRES.D3.GENSYS.3.C.007 1 LINE 76 1 PAGE UM STERKEN JAN. 11, 1978 08:27:10 0 MTS COMMANDS TO LINKEDIT THE SPIRES PROCESSORS FOR THE D3 VERSION. 03003/008 *SPIRES D4.GENSYS.4 C S0777 SPIRES FSNAME=D4.GENSYS.4 D4.1T1 676 SPIRES.D4.GENSYS.4.C.008 1 LINE 66 1 PAGE UM STERKEN JAN. 11, 1978 08:27:13 0 MTS COMMANDS TO GENERATE THE NON-SHARED D4 VERSION OF SPIRES. 03003/009 *SPIRES D3.GENSYS.4 C S0777 SPIRES FSNAME=D3.GENSYS.4 D4.1T1 677 SPIRES.D3.GENSYS.4.C.009 1 LINE 66 1 PAGE UM STERKEN JAN. 11, 1978 08:27:15 0 MTS COMMANDS TO GENERATE THE NON-SHARED D3 VERSION OF SPIRES. 03003/010 *SPIRES D4.GENSYS.5 C S0777 SPIRES FSNAME=D4.GENSYS.5 D4.1T1 678 SPIRES.D4.GENSYS.5.C.010 1 LINE 66 2 PAGE UM STERKEN JAN. 11, 1978 08:27:17 0 MTS COMMANDS TO GENERATE THE SHARED D4 VERSION OF SPIRES. 03003/011 *SPIRES D3.GENSYS.5 C S0777 SPIRES FSNAME=D3.GENSYS.5 D4.1T1 679 SPIRES.D3.GENSYS.5.C.011 1 LINE 66 2 PAGE UM STERKEN JAN. 11, 1978 08:27:20 0 MTS COMMANDS TO GENERATE THE SHARED D3 VERSION OF SPIRES. 03003/012 *SPIRES *FS TAPE GEN C S0777 SPIRES FSNAME=D4.GENDIST D4.1T1 680 SPIRES.*FS_TAPE_GEN.C.012 1 LINE 69 12 PAGE UM STERKEN JAN. 11, 1978 08:27:22 0 MTS COMMANDS TO GENERATE THE SPIRES *FS TAPE. THIS FILE IS INCLUDED ONLY FOR INFORMATIONAL PURPOSES. 03003/013 *SPIRES IFTEST MODS P S0777 SPIRES FSNAME=IFTEST.MODS D4.1T1 681 SPIRES.IFTEST_MODS.P.013 1 LINE 128 78 PAGE UM STERKEN JAN. 13, 1978 09:41:14 0 A REFERENCE LISTING, IN A MORE READABLE FORM THAN THE *DOWNDATE OUTPUT, OF ALL MTS CHANGES TO THE SPIRES PL360 CODE AND THE BNFS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/014 *SPIRES DPHLIO UU G S0777 SPIRES FSNAME=DPHLIO.UU D4.1T1 682 SPIRES.DPHLIO.UU.014 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:27:38 0 *UPDATE DECK FOR DPHLIO. 03003/015 *SPIRES DPTER UU G S0777 SPIRES FSNAME=DPTER.UU D4.1T1 683 SPIRES.DPTER.UU.015 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:27:40 0 *UPDATE DECK FOR DPTER. 03003/016 *SPIRES DSDSECTS UU G S0777 SPIRES FSNAME=DSDSECTS.UU D4.1T1 684 SPIRES.DSDSECTS.UU.016 1 LINE 19 1 PAGE UM STERKEN JAN. 11, 1978 08:27:42 0 *UPDATE DECK FOR DSDSECTS. 03003/017 *SPIRES DSERVICE UU G S0777 SPIRES FSNAME=DSERVICE.UU D4.1T1 685 SPIRES.DSERVICE.UU.017 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:27:44 0 *UPDATE DECK FOR DSERVICE. 03003/018 *SPIRES DSSEMANT UU G S0777 SPIRES FSNAME=DSSEMANT.UU D4.1T1 686 SPIRES.DSSEMANT.UU.018 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:27:46 0 *UPDATE DECK FOR DSSEMANT. 03003/019 *SPIRES FDINTFCE UU G S0777 SPIRES FSNAME=FDINTFCE.UU D4.1T1 687 SPIRES.FDINTFCE.UU.019 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:27:48 0 *UPDATE DECK FOR FDINTFCE. 03003/020 *SPIRES FILESERV UU G S0777 SPIRES FSNAME=FILESERV.UU D4.1T1 688 SPIRES.FILESERV.UU.020 1 LINE 80 3 PAGE UM STERKEN JAN. 11, 1978 08:27:50 0 *UPDATE DECK FOR FILESERV. 03003/021 *SPIRES FORBILD UU G S0777 SPIRES FSNAME=FORBILD.UU D4.1T1 689 SPIRES.FORBILD.UU.021 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:27:52 0 *UPDATE DECK FOR FORBILD. 03003/022 *SPIRES FORMATS UU G S0777 SPIRES FSNAME=FORMATS.UU D4.1T1 690 SPIRES.FORMATS.UU.022 1 LINE 80 3 PAGE UM STERKEN JAN. 11, 1978 08:27:54 0 *UPDATE DECK FOR FORMATS. 03003/023 *SPIRES INPROC UU G S0777 SPIRES FSNAME=INPROC.UU D4.1T1 691 SPIRES.INPROC.UU.023 1 LINE 80 4 PAGE UM STERKEN JAN. 11, 1978 08:27:57 0 *UPDATE DECK FOR INPROC. 03003/024 *SPIRES MSG UU G S0777 SPIRES FSNAME=MSG.UU D4.1T1 692 SPIRES.MSG.UU.024 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:28:00 0 *UPDATE DECK FOR MSG. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/025 *SPIRES MSGDATA UU G S0777 SPIRES FSNAME=MSGDATA.UU D4.1T1 693 SPIRES.MSGDATA.UU.025 1 LINE 80 14 PAGE UM STERKEN JAN. 11, 1978 08:28:02 0 *UPDATE DECK FOR MSGDATA. 03003/026 *SPIRES MSGDOC UU G S0777 SPIRES FSNAME=MSGDOC.UU D4.1T1 694 SPIRES.MSGDOC.UU.026 1 LINE 80 5 PAGE UM STERKEN JAN. 11, 1978 08:28:06 0 *UPDATE DECK FOR MSGDOC. 03003/027 *SPIRES OUTPROC UU G S0777 SPIRES FSNAME=OUTPROC.UU D4.1T1 695 SPIRES.OUTPROC.UU.027 1 LINE 80 3 PAGE UM STERKEN JAN. 11, 1978 08:28:08 0 *UPDATE DECK FOR OUTPROC. 03003/028 *SPIRES PARDSECT UU G S0777 SPIRES FSNAME=PARDSECT.UU D4.1T1 696 SPIRES.PARDSECT.UU.028 1 LINE 19 1 PAGE UM STERKEN JAN. 11, 1978 08:28:10 0 *UPDATE DECK FOR PARDSECT. 03003/029 *SPIRES PARSEM UU G S0777 SPIRES FSNAME=PARSEM.UU D4.1T1 697 SPIRES.PARSEM.UU.029 1 LINE 80 8 PAGE UM STERKEN JAN. 11, 1978 08:28:12 0 *UPDATE DECK FOR PARSEM. 03003/030 *SPIRES PARSER UU G S0777 SPIRES FSNAME=PARSER.UU D4.1T1 698 SPIRES.PARSER.UU.030 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:28:15 0 *UPDATE DECK FOR PARSER. 03003/031 *SPIRES PARTIAL UU G S0777 SPIRES FSNAME=PARTIAL.UU D4.1T1 699 SPIRES.PARTIAL.UU.031 1 LINE 80 4 PAGE UM STERKEN JAN. 11, 1978 08:28:17 0 *UPDATE DECK FOR PARTIAL. 03003/032 *SPIRES PROCS UU G S0777 SPIRES FSNAME=PROCS.UU D4.1T1 700 SPIRES.PROCS.UU.032 1 LINE 19 1 PAGE UM STERKEN JAN. 11, 1978 08:28:19 0 *UPDATE DECK FOR PROCS. 03003/033 *SPIRES R11DBILD UU G S0777 SPIRES FSNAME=R11DBILD.UU D4.1T1 701 SPIRES.R11DBILD.UU.033 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:28:21 0 *UPDATE DECK FOR R11DBILD. 03003/034 *SPIRES R11DSECT UU G S0777 SPIRES FSNAME=R11DSECT.UU D4.1T1 702 SPIRES.R11DSECT.UU.034 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:28:23 0 *UPDATE DECK FOR R11DSECT. 03003/035 *SPIRES R12DSECT UU G S0777 SPIRES FSNAME=R12DSECT.UU D4.1T1 703 SPIRES.R12DSECT.UU.035 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:28:25 0 *UPDATE DECK FOR R12DSECT. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/036 *SPIRES SEARCH UU G S0777 SPIRES FSNAME=SEARCH.UU D4.1T1 704 SPIRES.SEARCH.UU.036 1 LINE 80 11 PAGE UM STERKEN JAN. 11, 1978 08:28:27 0 *UPDATE DECK FOR SEARCH. 03003/037 *SPIRES SPIBILD UU G S0777 SPIRES FSNAME=SPIBILD.UU D4.1T1 705 SPIRES.SPIBILD.UU.037 1 LINE 80 27 PAGE UM STERKEN JAN. 11, 1978 08:28:29 0 *UPDATE DECK FOR SPIBILD. 03003/038 *SPIRES SPICOMP UU G S0777 SPIRES FSNAME=SPICOMP.UU D4.1T1 706 SPIRES.SPICOMP.UU.038 1 LINE 80 4 PAGE UM STERKEN JAN. 11, 1978 08:28:33 0 *UPDATE DECK FOR SPICOMP. 03003/039 *SPIRES SPIRES UU G S0777 SPIRES FSNAME=SPIRES.UU D4.1T1 707 SPIRES.SPIRES.UU.039 1 LINE 80 9 PAGE UM STERKEN JAN. 11, 1978 08:28:36 0 *UPDATE DECK FOR SPIRES. 03003/040 *SPIRES UTILSERV UU G S0777 SPIRES FSNAME=UTILSERV.UU D4.1T1 708 SPIRES.UTILSERV.UU.040 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:28:38 0 *UPDATE DECK FOR UTILSERV. 03003/041 *SPIRES ANALSEMANT UU G S0777 SPIRES FSNAME=ANALSEMANT.UU D4.1T1 709 SPIRES.ANALSEMANT.UU.041 1 LINE 80 6 PAGE UM STERKEN JAN. 11, 1978 08:28:41 0 *UPDATE DECK FOR ANALSEMANT. 03003/042 *SPIRES SPIRES BNF UE G S0777 SPIRES FSNAME=SPIRES.BN.UE D4.1T1 710 SPIRES.SPIRES_BNF.UE.042 1 LINE 64 4 PAGE UM STERKEN JAN. 13, 1978 09:38:00 0 *UNEDIT DECK FOR THE SPIRES BNF. 03003/043 *SPIRES SPICOMP BNF UE G S0777 SPIRES FSNAME=SPICOMP.BN.UE D4.1T1 711 SPIRES.SPICOMP_BNF.UE.043 1 LINE 64 2 PAGE UM STERKEN JAN. 13, 1978 09:38:07 0 *UNEDIT DECK FOR THE SPICOMP BNF. 03003/044 *SPIRES SPIBILD BNF UE G S0777 SPIRES FSNAME=SPIBILD.BN.UE D4.1T1 712 SPIRES.SPIBILD_BNF.UE.044 1 LINE 66 2 PAGE UM STERKEN JAN. 13, 1978 09:38:19 0 *UNEDIT DECK FOR THE SPIBILD BNF. 03003/045 *SPIRES FASTBILD BNF UE G S0777 SPIRES FSNAME=FAST.BN.UE D4.1T1 713 SPIRES.FASTBILD_BNF.UE.045 1 LINE 105 3 PAGE UM STERKEN JAN. 13, 1978 09:38:30 0 *UNEDIT DECK FOR THE FASTBILD BNF. 03003/046 *SPIRES ANALYZER BNF UE G S0777 SPIRES FSNAME=ANAL.BN.UE D4.1T1 714 SPIRES.ANALYZER_BNF.UE.046 1 LINE 65 1 PAGE UM STERKEN JAN. 11, 1978 08:28:52 0 *UNEDIT DECK FOR THE ANALYZER BNF. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/047 *SPIRES ANALYZER OC O S0777 SPIRES FSNAME=ANALYZER D4.1T1 715 SPIRES.ANALYZER.OC.047 1 LINE 34 1 PAGE UM STERKEN JAN. 11, 1978 08:28:54 0 THIS FILE $CONTINUE WITHS THE PIECES OF THE SPIRES BNF ANALYZER: PARSER.O, ANALSEMANT.O, ANALINTF.O, ANALDRIVER.O, AND ANAL.BN.O. TO USE IT: $RUN ANALYZER SCARDS= SPUNCH= SPRINT= ANALYZE STOP THIS STAND-ALONE VERSION OF THE BNF ANALYZER NEEDS A LITTLE WORK IF IT IS TO BE USED MORE GENERALLY. 03003/048 *SPIRES ANALDRIVER.S SA O S0777 SPIRES FSNAME=ANALDRIVER.S D4.1T1 716 SPIRES.ANALDRIVER.S.SA.048 1 LINE 71 1 PAGE UM STERKEN JAN. 11, 1978 08:28:56 0 DRIVER ROUTINES TO START UP THE BNF ANALYZER. THE PROCEDURE IS SIMILAR TO THAT USED IN MTSINTF TO START UP THE OTHER SPIRES PROCESSORS. 03003/049 *SPIRES ANALINTF.S S3 O S0777 SPIRES FSNAME=ANALINTF.S D4.1T1 717 SPIRES.ANALINTF.S.S3.049 1 LINE 72 3 PAGE UM STERKEN JAN. 11, 1978 08:28:59 0 A SET OF MTS-INTERFACE ROUTINES TO PROVIDE SYSTEM SERVICES FOR THE STAND-ALONE BNF ANALYZER. THEIR FUNCTION IS SIMILAR TO THAT OF MTSINTF IN THE OTHER SPIRES PROCESSORS. 03003/050 *SPIRES ANAL.BN.O OC O S0777 SPIRES FSNAME=ANAL.BN.O D4.1T1 718 SPIRES.ANAL.BN.O.OC.050 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:29:01 0 COMPILED BNF OBJECT -- PARSER TABLES FOR THE SPIRES BNF ANALYZER. 03003/051 *SPIRES FAST.BN.O OC G S0777 SPIRES FSNAME=FAST.BN.O D4.1T1 719 SPIRES.FAST.BN.O.OC.051 1 LINE 80 2 PAGE UM STERKEN JAN. 13, 1978 09:42:33 0 COMPILED BNF OBJECT -- PARSER TABLES FOR FASTBILD. 03003/052 *SPIRES SPIBILD.BN.O OC G S0777 SPIRES FSNAME=SPIBILD.BN.O D4.1T1 720 SPIRES.SPIBILD.BN.O.OC.052 1 LINE 80 3 PAGE UM STERKEN JAN. 13, 1978 09:42:19 0 COMPILED BNF OBJECT -- PARSER TABLES FOR SPIBILD. 03003/053 *SPIRES SPICOMP.BN.O OC G S0777 SPIRES FSNAME=SPICOMP.BN.O D4.1T1 721 SPIRES.SPICOMP.BN.O.OC.053 1 LINE 80 4 PAGE UM STERKEN JAN. 13, 1978 09:42:08 0 COMPILED BNF OBJECT -- PARSER TABLES FOR SPICOMP. 03003/054 *SPIRES SPIRES.BN.O OC G S0777 SPIRES FSNAME=SPIRES.BN.O D4.1T1 722 SPIRES.SPIRES.BN.O.OC.054 1 LINE 80 6 PAGE UM STERKEN JAN. 13, 1978 09:41:52 0 COMPILED BNF OBJECT -- PARSER TABLES FOR SPIRES. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/055 *SPIRES AVEC.S SA G S0777 SPIRES FSNAME=AVEC.S D4.1T1 723 SPIRES.AVEC.S.SA.055 1 LINE 25 1 PAGE UM STERKEN JAN. 11, 1978 08:29:14 0 SHORT MODULE USED IN LINKING THE SPIRES MODULES TOGETHER. 03003/056 *SPIRES MTSINTF.S SA G S0777 SPIRES FSNAME=MTSINTF.S D4.1T1 724 SPIRES.MTSINTF.S.SA.056 1 LINE 83 99 PAGE UM STERKEN FEB. 15, 1978 11:22:51 0 MTS INTERFACE ROUTINES FOR SPIRES. COPIES *CNFGINFODSECT (654), *GDINFODSECT (594), AND *GFINFODSECT (593). 03003/057 *SPIRES MTSPRODS.S S3 G S0777 SPIRES FSNAME=MTSPRODS.S D4.1T1 725 SPIRES.MTSPRODS.S.S3.057 1 LINE 70 4 PAGE UM STERKEN JAN. 11, 1978 08:29:32 0 GENERAL PURPOSE SEMANTIC MODULE USED IN IMPLEMENTING VARIOUS MTS-SPECIFIC FEATURES. 03003/058 *SPIRES SPIRLCS.S SA G S0777 SPIRES FSNAME=SPIRLCS.S D4.1T1 726 SPIRES.SPIRLCS.S.SA.058 1 LINE 62 1 PAGE UM STERKEN JAN. 11, 1978 08:29:34 0 "SPIRLCS" LOWCORE SYMBOL TABLE USED BY THE SHARED VM VERSION OF SPIRES. 03003/059 *SPIRES EXPLAIN.BI D S0777 SPIRES FSNAME=EXPLAIN.BI D4.1T1 727 SPIRES.EXPLAIN.BI.D.059 1 LINE 73 115 PAGE UM STERKEN JAN. 11, 1978 08:32:17 0 SOURCE INPUT RECORDS FOR THE EXPLAIN SUBFILE. 03003/060 *SPIRES FILEDEF.BI D S0777 SPIRES FSNAME=FILEDEF.BI D4.1T1 728 SPIRES.FILEDEF.BI.D.060 1 LINE 73 24 PAGE UM STERKEN JAN. 11, 1978 08:32:29 0 SOURCE INPUT RECORDS FOR THE FILEDEF SUBFILE. 03003/061 *SPIRES FORMATS.BI D S0777 SPIRES FSNAME=FORMATS.BI D4.1T1 729 SPIRES.FORMATS.BI.D.061 1 LINE 73 16 PAGE UM STERKEN JAN. 11, 1978 08:32:34 0 SOURCE INPUT RECORDS FOR THE FORMATS SUBFILE. 03003/062 *SPIRES MACROS.BI D S0777 SPIRES FSNAME=MACROS.BI D4.1T1 730 SPIRES.MACROS.BI.D.062 1 LINE 71 3 PAGE UM STERKEN JAN. 11, 1978 08:32:38 0 SOURCE INPUT RECORDS FOR THE MACROS SUBFILE. 03003/063 *SPIRES MESSAGES.BI D S0777 SPIRES FSNAME=MESSAGES.BI D4.1T1 731 SPIRES.MESSAGES.BI.D.063 1 LINE 73 45 PAGE UM STERKEN JAN. 11, 1978 08:32:40 0 SOURCE INPUT RECORDS FOR THE SYSTEM MESSAGES SUBFILE. 03003/064 *SPIRES PROTOCOL.BI D S0777 SPIRES FSNAME=PROTOCOL.BI D4.1T1 732 SPIRES.PROTOCOL.BI.D.064 1 LINE 73 16 PAGE UM STERKEN JAN. 11, 1978 08:32:46 0 SOURCE INPUT RECORDS FOR THE PROTOCOL SUBFILE -- NOT YET FULLY CONVERTED TO MTS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/065 *SPIRES SYSPROTO.BI D S0777 SPIRES FSNAME=SYSPROTO.BI D4.1T1 733 SPIRES.SYSPROTO.BI.D.065 1 LINE 31 4 PAGE UM STERKEN JAN. 11, 1978 08:32:50 0 SOURCE INPUT RECORDS FOR THE SYS PROTO SUBFILE. 03003/066 *SPIRES TUTORIAL.BI D S0777 SPIRES FSNAME=TUTORIAL.BI D4.1T1 734 SPIRES.TUTORIAL.BI.D.066 1 LINE 73 9 PAGE UM STERKEN JAN. 11, 1978 08:32:52 0 SOURCE INPUT RECORDS FOR THE TUTORIALS SUBFILE -- AN IMPROVED MTS VERSION IS BEING WRITTEN AT UQV. 03003/067 *SPIRES VGROUPS.BI D S0777 SPIRES FSNAME=VGROUPS.BI D4.1T1 735 SPIRES.VGROUPS.BI.D.067 1 LINE 31 1 PAGE UM STERKEN JAN. 11, 1978 08:32:54 0 SOURCE INPUT RECORDS FOR THE FORSTAT SUBFILE. 03003/068 *SPIRES DOC.CHANGES P S0777 SPIRES FSNAME=DOC.CHANGES D4.1T1 736 SPIRES.DOC.CHANGES.P.068 1 LINE 82 30 PAGE UM STERKEN JAN. 11, 1978 09:22:38 0 THIS FILE, WHICH WAS RECEIVED FROM STANFORD ON A TAPE OTHER THAN THE REGULAR DISTRIBUTION TAPE, CONTAINS A SKETCHY LOG OF ALL CHANGES TO THEIR VERSION OF SPIRES OVER THE PAST FEW YEARS. 03003/069 *SPIRES DOC.DEVICE P S0777 SPIRES FSNAME=DOC.DEVICE D4.1T1 737 SPIRES.DOC.DEVICE.P.069 1 LINE 83 49 PAGE UM STERKEN JAN. 11, 1978 08:32:58 0 DOCUMENTATION FOR THE "DEVICE SERVICE" PROCESSOR WHICH PROVIDES AMONG OTHER THINGS FULLFACE CRT SUPPORT FOR USE WITH SPIRES INPUT AND OUTPUT FORMATS. THIS PROCESSOR IS NOT IMPLEMENTED IN THE MTS VERSION OF SPIRES. 03003/070 *SPIRES DOC.FASTBILD PF S0777 SPIRES FSNAME=DOC.FASTBILD D4.1T1 738 SPIRES.DOC.FASTBILD.PF.070 1 LINE 75 3 PAGE UM STERKEN JAN. 11, 1978 08:33:05 0 FORMAT OUTPUT FOR 3003/71. 03003/071 *SPIRES FMT.FASTBILD WF S0777 SPIRES FSNAME=FMT.FASTBILD D4.1T1 739 SPIRES.FMT.FASTBILD.WF.071 1 LINE 107 3 PAGE UM STERKEN JAN. 11, 1978 08:33:07 0 FORMAT SOURCE FOR SOME PRELIMINARY DOCUMENTATION FOR THE FASTBILD PROCESSOR. THIS MATERIAL WILL EVENTUALLY BE INCORPORATED INTO THE FILE DEFINITION MANUAL. 03003/072 *SPIRES DOC.FILEDEF PF S0777 SPIRES FSNAME=DOC.FILEDEF D4.1T1 740 SPIRES.DOC.FILEDEF.PF.072 1 LINE 106 215 PAGE UM STERKEN JAN. 11, 1978 08:33:10 0 FORMAT OUTPUT FOR 3003/73. 03003/073 *SPIRES FMT.FILEDEF WF S0777 SPIRES FSNAME=FMT.FILEDEF D4.1T1 741 SPIRES.FMT.FILEDEF.WF.073 1 LINE 145 193 PAGE UM STERKEN JAN. 11, 1978 08:33:28 0 FORMAT SOURCE FOR THE MTS VERSION OF THE SPIRES FILE DEFINITION MANUAL. USES THE FORMAT INDEXING FEATURES. THIS IS THE VERSION PRODUCED AT UQV, IT IS NOT FULLY REVISED FOR MTS YET...BUT ITS CLOSE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/074 *SPIRES DOC.FORMATS P S0777 SPIRES FSNAME=DOC.FORMATS D4.1T1 742 SPIRES.DOC.FORMATS.P.074 1 LINE 85 79 PAGE UM STERKEN JAN. 11, 1978 08:34:18 0 THIS IS THE CURRENT VERSION OF THE STANFORD SPIRES FORMATS MANUAL WHICH IS MUCH IN NEED OF REVISION. IT IS CURRENTLY BEING REWRITTEN AT STANFORD AND THEN WILL BE CONVERTED FOR MTS. 03003/075 *SPIRES DOC.INTRO P S0777 SPIRES FSNAME=DOC.INTRO D4.1T1 743 SPIRES.DOC.INTRO.P.075 1 LINE 90 18 PAGE UM STERKEN JAN. 11, 1978 08:34:26 0 INTRODUCTORY NOTES USED FOR A SPIRES CLASS AT STANFORD -- NOT OF TOO MUCH VALUE FOR MTS-SPIRES USERS. 03003/076 *SPIRES DOC.NEWS P S0777 SPIRES FSNAME=DOC.NEWS D4.1T1 744 SPIRES.DOC.NEWS.P.076 1 LINE 81 11 PAGE UM STERKEN JAN. 11, 1978 08:34:30 0 SPIRES NEWS ITEMS DESCRIBING THE USER LEVEL CHANGES TO MTS-SPIRES OVER THE PAST FEW YEARS. 03003/077 *SPIRES DOC.PARTIAL P S0777 SPIRES FSNAME=DOC.PARTIAL D4.1T1 745 SPIRES.DOC.PARTIAL.P.077 1 LINE 69 5 PAGE UM STERKEN JAN. 11, 1978 08:34:33 0 AN OLD STANFORD INTERNAL MEMO DESCRIBING THE PARTIAL RECORD PROCESSING COMMANDS. IT IS NOT COMPLETE AND CONTAINS VERY FEW EXAMPLES. UQV IS WORKING ON A BETTER VERSION. 03003/078 *SPIRES DOC.PROTOCOL P S0777 SPIRES FSNAME=DOC.PROTOCOL D4.1T1 746 SPIRES.DOC.PROTOCOL.P.078 1 LINE 85 92 PAGE UM STERKEN JAN. 11, 1978 08:34:36 0 STANFORD VERSION OF THE SPIRES PROTOCOLS MANUAL. UM IS IN THE PROCESS OF CONVERTING IT FOR MTS USAGE. 03003/079 *SPIRES DOC.RECMANAG PF S0777 SPIRES FSNAME=DOC.RECMANAG D4.1T1 747 SPIRES.DOC.RECMANAG.PF.079 1 LINE 73 22 PAGE UM STERKEN JAN. 11, 1978 08:34:47 0 FORMAT OUTPUT FOR 3003/80. 03003/080 *SPIRES FMT.RECMANAG WF S0777 SPIRES FSNAME=FMT.RECMANAG D4.1T1 748 SPIRES.FMT.RECMANAG.WF.080 1 LINE 71 1 PAGE UM STERKEN JAN. 11, 1978 08:34:51 0 FORMAT SOURCE FOR THE SPIRES RECORD MANAGEMENT MANUAL CURRENTLY BEING WRITTEN AT UQV. THIS IS ONLY A PRELIMINARY DRAFT. 03003/081 *SPIRES DOC.SORTING P S0777 SPIRES FSNAME=DOC.SORTING D4.1T1 749 SPIRES.DOC.SORTING.P.081 1 LINE 79 5 PAGE UM STERKEN JAN. 11, 1978 08:34:53 0 A STANFORD DOCUMENT INCLUDED FOR GENERAL INFORMATION DESCRIBING THE VARIOUS TYPES OF SORTING AVAILABLE FOR THE STANFORD VERSION OF SPIRES. SOME OF THESE WE HAVE...SOME WE DON'T. 03003/082 *SPIRES DOC.SPIDOC P S0777 SPIRES FSNAME=DOC.SPIDOC D4.1T1 750 SPIRES.DOC.SPIDOC.P.082 1 LINE 83 106 PAGE UM STERKEN JAN. 11, 1978 08:34:56 0 A STANFORD DOCUMENT DESCRIBING THE SPIDOC ONLINE DOCUMENTATION FACILITY 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 AVAILABLE THROUGH SPIRES AT STANFORD. THIS FACILITY HAS NOT BEEN IMPLEMENTED FOR MTS. 03003/083 *SPIRES MEMO 337 PF S0565 D4T3 VLO FSNAME=SPIRES.MEMO_337.PF.074(1) 629 D4T3 629 SPIRES.MEMO_337.PF.074 1 LINE 86 121 PAGE UM STERKEN JUNE 25, 1977 11:06:52 0 FORMAT OUTPUT FOR 3003/84. 03003/084 *SPIRES MEMO 337 WF S0565 D4T3 VLO FSNAME=SPIRES.MEMO_337.WF.073(1) 628 D4T3 628 SPIRES.MEMO_337.WF.073 1 LINE 147 89 PAGE UM STERKEN JULY 29, 1977 00:27:24 0 THIS IS COMPUTING CENTER MEMO 337 -- "SPIRES SEARCHING AND UPDATING". IT USES FORMAT INDEXING FEATURES. 03003/085 *SPIRES UT.ADDUPDATE SS G S0777 SPIRES FSNAME=UT.ADDUPDATE D4.1T1 751 SPIRES.UT.ADDUPDATE.SS.085 1 LINE 99 5 PAGE UM STERKEN JAN. 11, 1978 08:35:31 0 SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) TO GENERATE A SOURCE DECK FOR *UPDATE AND *UNEDIT RUNS. OBJECT AT POSITIVE LINE NUMBERS. 03003/086 *SPIRES UT.CHANGEID C S0777 SPIRES FSNAME=UT.CHANGEID D4.1T1 752 SPIRES.UT.CHANGEID.C.086 1 LINE 55 1 PAGE UM STERKEN JAN. 11, 1978 08:35:33 0 COMMAND FILE FOR USE IN SCANNING AN OBJECT DECK FOR "DBMS" AND CHANGING EACH OCCURENCE TO SOME OTHER CCID. HANDLES THE CASE WHERE THE CCID MAY BE SPLIT ONTO TWO LINES. 03003/087 *SPIRES UT.COMPARE SS G S0777 SPIRES FSNAME=UT.COMPARE D4.1T1 753 SPIRES.UT.COMPARE.SS.087 1 LINE 110 12 PAGE UM STERKEN JAN. 11, 1978 08:35:35 0 SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) TO GENERATE A SOURCE DECK FOR USE IN COMPARING SPIRES MODULES ON DIFFERENT DISTRIBUTION TAPES. OBJECT AT POSITIVE LINE NUMBERS. 03003/088 *SPIRES UT.DOWNDATE SA G S0777 SPIRES FSNAME=UT.DOWNDATE D4.1T1 754 SPIRES.UT.DOWNDATE.SA.088 1 LINE 80 9 PAGE UM STERKEN JAN. 11, 1978 08:35:39 0 A SLIGHTLY MODIFIED VERSION OF *DOWNDATE (267) WHICH KEEPS THE SEQUENCE ID FIELD (WHERE STANFORD PUTS THE LINE NUMBERS IN THEIR DISTRIBUTIONS) IN THE *UPDATE DECKS IT PRODUCES. SOURCE AT NEGATIVE LINE NUMBERS; OBJECT AT POSITIVE. 03003/089 *SPIRES UT.FORMAT SS G S0777 SPIRES FSNAME=UT.FORMAT D4.1T1 755 SPIRES.UT.FORMAT.SS.089 1 LINE 89 7 PAGE UM STERKEN JAN. 11, 1978 08:35:42 0 SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) USED ON PL360 MODULES FROM STANFORD. IN "UNPACK" MODE IT GENERATES A NEW VERSION OF THE MODULE WITH THE SEQUENCE ID BEING ASSUMED TO BE A LINE NUMBER. "PACK" MODE DOES THE INVERSE OPERATION. OBJECT AT POSITIVE LINE NUMBERS. 03003/090 *SPIRES UT.IFTEST SS G S0777 SPIRES FSNAME=UT.IFTEST D4.1T1 756 SPIRES.UT.IFTEST.SS.090 1 LINE 88 7 PAGE UM STERKEN JAN. 11, 1978 08:35:44 0 SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) FOR SCANNING PL360 MODULES AND PRINTING OUT SELECTED $IF-TEST CODE SECTIONS. OBJECT AT POSITIVE LINE NUMBERS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/091 *SPIRES UT.LOCKMOD SG G S0777 SPIRES FSNAME=UT.LOCKMOD D4.1T1 757 SPIRES.UT.LOCKMOD.SG.091 1 LINE 80 2 PAGE UM STERKEN JAN. 11, 1978 08:35:47 0 GOM PROGRAM (AT NEGATIVE LINE NUMBERS) TO LOCK A FILE FOR MOD. WHILE WAITING TO LOCK IT LETS THROUGH TASKS WHICH ONLY NEED TO LOCK FOR READ. 03003/092 *SPIRES UT.STANUPD SS G S0777 SPIRES FSNAME=UT.STANUPD D4.1T1 758 SPIRES.UT.STANUPD.SS.092 1 LINE 132 12 PAGE UM STERKEN JAN. 11, 1978 08:35:49 0 SPITBOL PROGRAM (AT NEGATIVE LINE NUMBERS) TO APPLY STANFORD-PRODUCED PL360 UPDATE DECKS TO THE CORRESPONDING MTS FILES. 03003/093 *SPIRES *OVRFDEF C S0777 SPIRES FSNAME=*OVRFDEF D4.1T1 759 SPIRES.*OVRFDEF.C.093 1 LINE 67 1 PAGE UM STERKEN JAN. 11, 1978 08:35:53 0 SPIRES "OVERNIGHT" PROCESSOR FOR THE FILEDEF SUBFILE. 03003/094 *SPIRES *OVRFMT C S0777 SPIRES FSNAME=*OVRFMT D4.1T1 760 SPIRES.*OVRFMT.C.094 1 LINE 67 1 PAGE UM STERKEN JAN. 11, 1978 08:35:55 0 SPIRES "OVERNIGHT" PROCESSOR FOR THE FORMATS SUBFILE. 03003/095 *SPIRES *OVRPEOP C S0777 SPIRES FSNAME=*OVRPEOP D4.1T1 761 SPIRES.*OVRPEOP.C.095 1 LINE 66 1 PAGE UM STERKEN JAN. 11, 1978 08:35:57 0 SPIRES "OVERNIGHT" PROCESSOR FOR THE PEOPLE SUBFILE. 03003/096 *SPIRES *OVRREST C S0777 SPIRES FSNAME=*OVRREST D4.1T1 762 SPIRES.*OVRREST.C.096 1 LINE 70 1 PAGE UM STERKEN JAN. 11, 1978 08:36:00 0 SPIRES "OVERNIGHT" PROCESSOR FOR THE RESTAURANTS SUBFILE. 03003/097 *SPIRES ONCEADAY C S0777 SPIRES FSNAME=ONCEADAY D4.1T1 763 SPIRES.ONCEADAY.C.097 1 LINE 87 2 PAGE UM STERKEN JAN. 11, 1978 08:36:02 0 COMMAND FILE USED PERIODICALLY TO CHECK THE STATUS OF *SPIRES. 03003/098 *SPIRES SIGFILE-CKID C S0777 SPIRES FSNAME=SIGFILE-CKID D4.1T1 764 SPIRES.SIGFILE-CKID.C.098 1 LINE 50 1 PAGE UM STERKEN JAN. 11, 1978 08:36:04 0 SIGFILE CURRENTLY BEING USED FOR USER ID DBMS. MAKES USE OF *CKID (680). 03003/099 *SPIRES BC.EXPS D S0777 SPIRES FSNAME=BC.EXPS D4.1T1 765 SPIRES.BC.EXPS.D.099 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:36:07 0 BUILD CHARACTERISTICS FOR THE EXPLAIN FILE. 03003/100 *SPIRES BC.FDEF D S0777 SPIRES FSNAME=BC.FDEF D4.1T1 766 SPIRES.BC.FDEF.D.100 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:36:09 0 BUILD CHARACTERISTICS FOR THE FILEDEF FILE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/101 *SPIRES BC.FORM D S0777 SPIRES FSNAME=BC.FORM D4.1T1 767 SPIRES.BC.FORM.D.101 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:36:12 0 BUILD CHARACTERISTICS FOR THE FORMATS FILE. 03003/102 *SPIRES BC.FUNS D S0777 SPIRES FSNAME=BC.FUNS D4.1T1 768 SPIRES.BC.FUNS.D.102 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:36:14 0 BUILD CHARACTERISTICS FOR THE DATA FILE (RECORD 1). 03003/103 *SPIRES BC.MAIL D S0777 SPIRES FSNAME=BC.MAIL D4.1T1 769 SPIRES.BC.MAIL.D.103 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:36:17 0 BUILD CHARACTERISTICS FOR THE MAIL FILE. 03003/104 *SPIRES BC.VARS D S0777 SPIRES FSNAME=BC.VARS D4.1T1 770 SPIRES.BC.VARS.D.104 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:36:19 0 BUILD CHARACTERISTICS FOR THE DATA FILE (RECORD 2). 03003/105 *SPIRES BC.XEQS D S0777 SPIRES FSNAME=BC.XEQS D4.1T1 771 SPIRES.BC.XEQS.D.105 1 LINE 80 1 PAGE UM STERKEN JAN. 11, 1978 08:36:21 0 BUILD CHARACTERISTICS FOR THE XEQSFILE FILE. 03003/106 *SPIRES FILEDEF/A D S0777 SPIRES FSNAME=FILEDEF/A D4.1T1 772 SPIRES.FILEDEF/A.D.106 1 LINE 2048 21 PAGE UM STERKEN JAN. 11, 1978 08:50:17 0 PART OF THE FILEDEF SPIRES-FILE (D4 VERSION). 03003/107 *SPIRES FILEDEF/Q D S0777 SPIRES FSNAME=FILEDEF/Q D4.1T1 773 SPIRES.FILEDEF/Q.D.107 1 LINE 2048 3 PAGE UM STERKEN JAN. 11, 1978 08:50:20 0 PART OF THE FILEDEF SPIRES-FILE (D4 VERSION). 03003/108 *SPIRES FILEDEF%R D S0777 SPIRES FSNAME=FILEDEF%R D4.1T1 774 SPIRES.FILEDEF%R.D.108 1 SEQ 2048 12 PAGE UM STERKEN JAN. 11, 1978 08:50:43 0 PART OF THE FILEDEF SPIRES-FILE (D3 VERSION). 03003/109 *SPIRES FILEDEF%S D S0777 SPIRES FSNAME=FILEDEF%S D4.1T1 775 SPIRES.FILEDEF%S.D.109 1 SEQ 2048 5 PAGE UM STERKEN JAN. 11, 1978 08:50:46 0 PART OF THE FILEDEF SPIRES-FILE (D3 VERSION). 03003/110 *SPIRES FILEDEF%1 D S0777 SPIRES FSNAME=FILEDEF%1 D4.1T1 776 SPIRES.FILEDEF%1.D.110 1 SEQ 2048 4 PAGE UM STERKEN JAN. 11, 1978 08:50:48 0 PART OF THE FILEDEF SPIRES-FILE (D3 VERSION). 03003/111 *SPIRES FILEDEF%Q D S0777 SPIRES FSNAME=FILEDEF%Q D4.1T1 777 SPIRES.FILEDEF%Q.D.111 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 08:50:50 0 PART OF THE FILEDEF SPIRES-FILE (D3 VERSION). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/112 *SPIRES DATA/A D S0777 SPIRES FSNAME=DATA/A D4.1T1 778 SPIRES.DATA/A.D.112 1 LINE 2048 5 PAGE UM STERKEN JAN. 11, 1978 08:52:40 0 PART OF THE DATA SPIRES-FILE (D4 VERSION). 03003/113 *SPIRES DATA/Q D S0777 SPIRES FSNAME=DATA/Q D4.1T1 779 SPIRES.DATA/Q.D.113 1 LINE 2048 3 PAGE UM STERKEN JAN. 11, 1978 08:52:44 0 PART OF THE DATA SPIRES-FILE (D4 VERSION). 03003/114 *SPIRES DATA%R D S0777 SPIRES FSNAME=DATA%R D4.1T1 780 SPIRES.DATA%R.D.114 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 08:53:00 0 PART OF THE DATA SPIRES-FILE (D3 VERSION). 03003/115 *SPIRES DATA%S D S0777 SPIRES FSNAME=DATA%S D4.1T1 781 SPIRES.DATA%S.D.115 1 SEQ 2048 3 PAGE UM STERKEN JAN. 11, 1978 08:53:03 0 PART OF THE DATA SPIRES-FILE (D3 VERSION). 03003/116 *SPIRES DATA%Q D S0777 SPIRES FSNAME=DATA%Q D4.1T1 782 SPIRES.DATA%Q.D.116 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 08:53:07 0 PART OF THE DATA SPIRES-FILE (D3 VERSION). 03003/117 *SPIRES MAIL/A D S0777 SPIRES FSNAME=MAIL/A D4.1T1 783 SPIRES.MAIL/A.D.117 1 LINE 2048 22 PAGE UM STERKEN JAN. 11, 1978 08:56:15 0 PART OF THE MAIL SPIRES-FILE (D4 VERSION). 03003/118 *SPIRES MAIL/Q D S0777 SPIRES FSNAME=MAIL/Q D4.1T1 784 SPIRES.MAIL/Q.D.118 1 LINE 2048 3 PAGE UM STERKEN JAN. 11, 1978 08:56:19 0 PART OF THE MAIL SPIRES-FILE (D4 VERSION). 03003/119 *SPIRES MAIL%R D S0777 SPIRES FSNAME=MAIL%R D4.1T1 785 SPIRES.MAIL%R.D.119 1 SEQ 2048 18 PAGE UM STERKEN JAN. 11, 1978 08:56:44 0 PART OF THE MAIL SPIRES-FILE (D3 VERSION). 03003/120 *SPIRES MAIL%S D S0777 SPIRES FSNAME=MAIL%S D4.1T1 786 SPIRES.MAIL%S.D.120 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 08:56:47 0 PART OF THE MAIL SPIRES-FILE (D3 VERSION). 03003/121 *SPIRES MAIL%1 D S0777 SPIRES FSNAME=MAIL%1 D4.1T1 787 SPIRES.MAIL%1.D.121 1 SEQ 2048 3 PAGE UM STERKEN JAN. 11, 1978 08:56:49 0 PART OF THE MAIL SPIRES-FILE (D3 VERSION). 03003/122 *SPIRES MAIL%Q D S0777 SPIRES FSNAME=MAIL%Q D4.1T1 788 SPIRES.MAIL%Q.D.122 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 08:56:51 0 PART OF THE MAIL SPIRES-FILE (D3 VERSION). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/123 *SPIRES EXPLAIN/A D S0777 SPIRES FSNAME=EXPLAIN/A D4.1T1 789 SPIRES.EXPLAIN/A.D.123 1 LINE 2048 117 PAGE UM STERKEN JAN. 11, 1978 09:00:21 0 PART OF THE EXPLAIN SPIRES-FILE (D4 VERSION). 03003/124 *SPIRES EXPLAIN/Q D S0777 SPIRES FSNAME=EXPLAIN/Q D4.1T1 790 SPIRES.EXPLAIN/Q.D.124 1 LINE 2048 3 PAGE UM STERKEN JAN. 11, 1978 09:00:30 0 PART OF THE EXPLAIN SPIRES-FILE (D4 VERSION). 03003/125 *SPIRES EXPLAIN%R D S0777 SPIRES FSNAME=EXPLAIN%R D4.1T1 791 SPIRES.EXPLAIN%R.D.125 1 SEQ 2048 102 PAGE UM STERKEN JAN. 11, 1978 09:01:16 0 PART OF THE EXPLAIN SPIRES-FILE (D3 VERSION). 03003/126 *SPIRES EXPLAIN%S D S0777 SPIRES FSNAME=EXPLAIN%S D4.1T1 792 SPIRES.EXPLAIN%S.D.126 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:01:21 0 PART OF THE EXPLAIN SPIRES-FILE (D3 VERSION). 03003/127 *SPIRES EXPLAIN%1 D S0777 SPIRES FSNAME=EXPLAIN%1 D4.1T1 793 SPIRES.EXPLAIN%1.D.127 1 SEQ 2048 14 PAGE UM STERKEN JAN. 11, 1978 09:01:23 0 PART OF THE EXPLAIN SPIRES-FILE (D3 VERSION). 03003/128 *SPIRES EXPLAIN%Q D S0777 SPIRES FSNAME=EXPLAIN%Q D4.1T1 794 SPIRES.EXPLAIN%Q.D.128 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:01:26 0 PART OF THE EXPLAIN SPIRES-FILE (D3 VERSION). 03003/129 *SPIRES MACROS/A D S0777 SPIRES FSNAME=MACROS/A D4.1T1 795 SPIRES.MACROS/A.D.129 1 LINE 2048 6 PAGE UM STERKEN JAN. 11, 1978 09:03:26 0 PART OF THE MACROS SPIRES-FILE (D4 VERSION). 03003/130 *SPIRES MACROS/Q D S0777 SPIRES FSNAME=MACROS/Q D4.1T1 796 SPIRES.MACROS/Q.D.130 1 LINE 2048 3 PAGE UM STERKEN JAN. 11, 1978 09:03:28 0 PART OF THE MACROS SPIRES-FILE (D4 VERSION). 03003/131 *SPIRES MACROS%R D S0777 SPIRES FSNAME=MACROS%R D4.1T1 797 SPIRES.MACROS%R.D.131 1 SEQ 2048 3 PAGE UM STERKEN JAN. 11, 1978 09:03:43 0 PART OF THE MACROS SPIRES-FILE (D3 VERSION). 03003/132 *SPIRES MACROS%S D S0777 SPIRES FSNAME=MACROS%S D4.1T1 798 SPIRES.MACROS%S.D.132 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:03:45 0 PART OF THE MACROS SPIRES-FILE (D3 VERSION). 03003/133 *SPIRES MACROS%1 D S0777 SPIRES FSNAME=MACROS%1 D4.1T1 799 SPIRES.MACROS%1.D.133 1 SEQ 2048 1 PAGE UM STERKEN JAN. 11, 1978 09:03:47 0 PART OF THE MACROS SPIRES-FILE (D3 VERSION). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/134 *SPIRES MACROS%Q D S0777 SPIRES FSNAME=MACROS%Q D4.1T1 800 SPIRES.MACROS%Q.D.134 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:03:49 0 PART OF THE MACROS SPIRES-FILE (D3 VERSION). 03003/135 *SPIRES FORMATS/A D S0777 SPIRES FSNAME=FORMATS/A D4.1T1 801 SPIRES.FORMATS/A.D.135 1 LINE 2048 33 PAGE UM STERKEN JAN. 11, 1978 09:09:45 0 PART OF THE FORMATS SPIRES-FILE (D4 VERSION). 03003/136 *SPIRES FORMATS/Q D S0777 SPIRES FSNAME=FORMATS/Q D4.1T1 802 SPIRES.FORMATS/Q.D.136 1 LINE 2048 3 PAGE UM STERKEN JAN. 11, 1978 09:09:49 0 PART OF THE FORMATS SPIRES-FILE (D4 VERSION). 03003/137 *SPIRES FORMATS%R D S0777 SPIRES FSNAME=FORMATS%R D4.1T1 803 SPIRES.FORMATS%R.D.137 1 SEQ 2048 26 PAGE UM STERKEN JAN. 11, 1978 09:10:14 0 PART OF THE FORMATS SPIRES-FILE (D3 VERSION). 03003/138 *SPIRES FORMATS%S D S0777 SPIRES FSNAME=FORMATS%S D4.1T1 804 SPIRES.FORMATS%S.D.138 1 SEQ 2048 3 PAGE UM STERKEN JAN. 11, 1978 09:10:17 0 PART OF THE FORMATS SPIRES-FILE (D3 VERSION). 03003/139 *SPIRES FORMATS%1 D S0777 SPIRES FSNAME=FORMATS%1 D4.1T1 805 SPIRES.FORMATS%1.D.139 1 SEQ 2048 5 PAGE UM STERKEN JAN. 11, 1978 09:10:19 0 PART OF THE FORMATS SPIRES-FILE (D3 VERSION). 03003/140 *SPIRES FORMATS%Q D S0777 SPIRES FSNAME=FORMATS%Q D4.1T1 806 SPIRES.FORMATS%Q.D.140 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:10:21 0 PART OF THE FORMATS SPIRES-FILE (D3 VERSION). 03003/141 *SPIRES SYSLOG/A D S0777 SPIRES FSNAME=SYSLOG/A D4.1T1 807 SPIRES.SYSLOG/A.D.141 1 LINE 2048 4 PAGE UM STERKEN JAN. 11, 1978 09:12:22 0 PART OF THE SYSLOG SPIRES-FILE (D4 VERSION). 03003/142 *SPIRES SYSLOG/Q D S0777 SPIRES FSNAME=SYSLOG/Q D4.1T1 808 SPIRES.SYSLOG/Q.D.142 1 LINE 2048 3 PAGE UM STERKEN JAN. 11, 1978 09:12:24 0 PART OF THE SYSLOG SPIRES-FILE (D4 VERSION). 03003/143 *SPIRES SYSLOG%R D S0777 SPIRES FSNAME=SYSLOG%R D4.1T1 809 SPIRES.SYSLOG%R.D.143 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:12:34 0 PART OF THE SYSLOG SPIRES-FILE (D3 VERSION). 03003/144 *SPIRES SYSLOG%S D S0777 SPIRES FSNAME=SYSLOG%S D4.1T1 810 SPIRES.SYSLOG%S.D.144 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:12:36 0 PART OF THE SYSLOG SPIRES-FILE (D3 VERSION). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/145 *SPIRES SYSLOG%Q D S0777 SPIRES FSNAME=SYSLOG%Q D4.1T1 811 SPIRES.SYSLOG%Q.D.145 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:12:38 0 PART OF THE SYSLOG SPIRES-FILE (D3 VERSION). 03003/146 *SPIRES XEQSFILE/A D S0777 SPIRES FSNAME=XEQSFILE/A D4.1T1 812 SPIRES.XEQSFILE/A.D.146 1 LINE 2048 4 PAGE UM STERKEN JAN. 11, 1978 09:14:27 0 PART OF THE XEQSFILE SPIRES-FILE (D4 VERSION). 03003/147 *SPIRES XEQSFILE/Q D S0777 SPIRES FSNAME=XEQSFILE/Q D4.1T1 813 SPIRES.XEQSFILE/Q.D.147 1 LINE 2048 3 PAGE UM STERKEN JAN. 11, 1978 09:14:29 0 PART OF THE XEQSFILE SPIRES-FILE (D4 VERSION). 03003/148 *SPIRES XEQSFILE%R D S0777 SPIRES FSNAME=XEQSFILE%R D4.1T1 814 SPIRES.XEQSFILE%R.D.148 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:14:40 0 PART OF THE XEQSFILE SPIRES-FILE (D3 VERSION). 03003/149 *SPIRES XEQSFILE%S D S0777 SPIRES FSNAME=XEQSFILE%S D4.1T1 815 SPIRES.XEQSFILE%S.D.149 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:14:42 0 PART OF THE XEQSFILE SPIRES-FILE (D3 VERSION). 03003/150 *SPIRES XEQSFILE%Q D S0777 SPIRES FSNAME=XEQSFILE%Q D4.1T1 816 SPIRES.XEQSFILE%Q.D.150 1 SEQ 2048 2 PAGE UM STERKEN JAN. 11, 1978 09:14:45 0 PART OF THE XEQSFILE SPIRES-FILE (D3 VERSION). 03003/151 *SPIRES REST.FD D S0777 SPIRES FSNAME=REST.FD D4.1T1 817 SPIRES.REST.FD.D.151 1 LINE 72 3 PAGE UM STERKEN JAN. 11, 1978 09:17:24 0 FILE DEFINITION FOR UM'S RESTAURANTS SUBFILE (FOR TESTING). 03003/152 *SPIRES REST.FMT D S0777 SPIRES FSNAME=REST.FMT D4.1T1 818 SPIRES.REST.FMT.D.152 1 LINE 56 1 PAGE UM STERKEN JAN. 11, 1978 09:17:28 0 OUTPUT FORMAT FOR USE WITH UM'S RESTAURANTS SUBFILE (FOR TESTING). 03003/153 *SPIRES REST.BI D S0777 SPIRES FSNAME=REST.BI D4.1T1 819 SPIRES.REST.BI.D.153 1 LINE 72 4 PAGE UM STERKEN JAN. 11, 1978 09:17:30 0 SAMPLE INPUT RECORDS FOR THE UM RESTAURANTS SUBFILE (FOR TESTING). 03003/154 *SPIRES PEOPLE.FD D S0777 SPIRES FSNAME=PEOPLE.FD D4.1T1 820 SPIRES.PEOPLE.FD.D.154 1 LINE 72 3 PAGE UM STERKEN JAN. 11, 1978 09:17:34 0 FILE DEFINITION FOR UM'S PEOPLE SUBFILE (FOR TESTING). 03003/155 *SPIRES PEOPLE.BI D S0777 SPIRES FSNAME=PEOPLE.BI D4.1T1 821 SPIRES.PEOPLE.BI.D.155 1 LINE 73 4 PAGE UM STERKEN JAN. 11, 1978 09:17:36 0 SAMPLE INPUT RECORDS FOR THE UM PEOPLE SUBFILE (FOR TESTING). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03003/156 *SPIRES D4.COMZ D S0777 SPIRES FSNAME=D4.COMZ D4.1T1 822 SPIRES.D4.COMZ.D.156 1 LINE 256 1 PAGE UM STERKEN JAN. 11, 1978 09:17:40 0 SYSTEM FILE FOR STORING MESSAGE-OF-THE-DAY AND THE CURRENT MASTER ACCOUNTS (D4 VERSION). 03003/157 *SPIRES D3.COMZ D S0777 SPIRES FSNAME=D3.COMZ D4.1T1 823 SPIRES.D3.COMZ.D.157 1 SEQ 256 1 PAGE UM STERKEN JAN. 11, 1978 09:17:45 0 SYSTEM FILE FOR STORING MESSAGE-OF-THE-DAY AND THE CURRENT MASTER ACCOUNTS (D3 VERSION). 03003/158 *SPIRES TESTLOAD OC G S0777 SPIRES FSNAME=TESTLOAD D4.1T1 824 SPIRES.TESTLOAD.OC.158 1 LINE 85 1 PAGE UM STERKEN JAN. 11, 1978 09:17:47 0 FILE USED IN LOADING NON-LINKEDITED TEST VERSIONS OF SPIRES. 03006 *PL1SYN # (NOT DISTRIBUTED) UQV JACKSON 03007 APLUTIL # (NOT DISTRIBUTED) UQV WEBSTER 03011/001 *FLOWCHART IBM SOURCE SA O S0689 UQVD06 FSNAME=FLOWCHARTS.IBM_SOURCE.SA.1 208 D4T3 681 FLOWCHART.IBM_SOURCE.SA.001 1 SEQ 80 387 PAGE UQV WARD DWB OCT. 10, 1974 12:28.56 0 THIS IS THE SOURCE FOR THE IBM FLOWCHARTING PROGRAM. IT DOES NOT FLOWCHART ANYTHING AUTOMATICALLY; YOU HAVE TO TELL IT (VIA ITS INPUT LANGUAGE) WHAT KIND OF BOXES TO DRAW AND HOW THEY ARE TO BE CONNECTED. SEE THE BRIEF DESCRIPTION IN MTS VOLUME 2. FOR MORE COMPLETE INFORMATION, SEE IBM FORM GH20-0293. 0 Referenced by comments of: 3011/2, 3011/3 03011/002 *FLOWCHART MTS UPDATE UU O S0979 DWBSV1 'DWBSAVE' FSNAME=FLOWCHART.U(2) 189 D4.1T1 825 FLOWCHART.MTS_UPDATE.UU.002 1 LINE 72 42 PAGE UQV WARD DWB APR. 03, 1978 20:17:23 0 *UPDATE DECK TO PRODUCE MTS VERSION OF FLOWCHART FROM ORIGINAL IBM SOURCE (3011/1). 0 Referenced by comments of: 3011/3 03011/003 *FLOWCHART MTS SOURCE SA O S0979 DWBSV1 'DWBSAVE' FSNAME=FLOWCHART.UMS(1) 186 D4.1T1 826 FLOWCHART.MTS_SOURCE.SA.003 1 LINE 80 359 PAGE UQV WARD DWB JAN. 09, 1978 18:10:51 0 RESULT OF APPLYING ABOVE UPDATE (3011/2) TO IBM SOURCE (3011/1). COPIES *GDINFODSECT (594). 0 Referenced by comments of: 3011/4 03011/004 *FLOWCHART OBJECT OC O S0979 DWBSV1 'DWBSAVE' FSNAME=FLOWCHART.O(2) 188 D4.1T1 827 FLOWCHART.OBJECT.OC.004 1 LINE 2846 51 PAGE UQV WARD DWB APR. 03, 1978 20:17:11 0 OBJECT FROM ASSEMBLY OF MTS SOURCE (3011/3). 0 Referenced by comments of: 3011/5 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03011/005 *FLOWCHART MTS OBJECT OE O *FLOWCHART D4.1T1 828 FLOWCHART.MTS_OBJECT.OE.005 1 LINE 25588 18 PAGE UQV WARD DWB MAY 13, 1978 18:42:04 *FLOWCHART 0 LINK-EDITED RESULT FROM ABOVE OBJECT (3011/4). 03011/006 *FLOWCHART TEST 1 D DWB:FLOWCHART.T1 D4T3 684 FLOWCHART.TEST_1.D.004 1 LINE 72 1 PAGE UQV WARD DWB JULY 29, 1977 00:34:36 DWB.:FLOWCHART.T1 0 THIS COMPONENT AND THE NEXT 5 ARE *FLOWCHART TEST PROGRAMS. 03011/007 *FLOWCHART TEST 2 D DWB:FLOWCHART.T2 D4T3 685 FLOWCHART.TEST_2.D.005 1 LINE 62 1 PAGE UQV WARD DWB JULY 29, 1977 00:34:38 DWB.:FLOWCHART.T2 03011/008 *FLOWCHART TEST 3 D DWB:FLOWCHART.T3 D4T3 686 FLOWCHART.TEST_3.D.006 1 LINE 75 1 PAGE UQV WARD DWB JULY 29, 1977 00:34:40 DWB.:FLOWCHART.T3 03011/009 *FLOWCHART TEST 4 D DWB:FLOWCHART.T4 D4T3 687 FLOWCHART.TEST_4.D.007 1 LINE 68 1 PAGE UQV WARD DWB JULY 29, 1977 00:34:42 DWB.:FLOWCHART.T4 03011/010 *FLOWCHART TEST 5 D DWB:FLOWCHART.T5 D4T3 688 FLOWCHART.TEST_5.D.008 1 LINE 62 1 PAGE UQV WARD DWB JULY 29, 1977 00:34:45 DWB.:FLOWCHART.T5 03011/011 *FLOWCHART TEST 6 D DWB:FLOWCHART.T6 D4T3 689 FLOWCHART.TEST_6.D.009 1 LINE 72 4 PAGE UQV WARD DWB JULY 29, 1977 00:34:47 DWB.:FLOWCHART.T6 03013/001 ALGOL68C COMPILER OE O S0684 UNSP FSNAME=ALGOL68C.COMPILER.OE.001 D4T3 690 ALGOL68C.COMPILER.OE.001 1 SEQ 32767 45 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:56:32 0 THIS VERSION OF ALGOL68C WAS RECEIVED AT UM FROM UQV IN OCT/76 AND IS VERSION 242 OF THE ALGOL68C COMPILER, WHICH WAS OBTAINED FROM CAMBRIDGE, ENGLAND. IT HAS NOT BEEN MODIFIED, EXCEPT FOR BEING LINK-EDITED. THE COMPILER TRANSLATES FROM ALGOL68C TO Z-CODE - THE ASSEMBLY LANGUAGE FOR THE MYTHICAL MACHINE, Z. THIS VERSION USES THE UPPER CASE/LOWER CASE TRANSLATE TABLE (E.G. INT I;). THIS COMPONENT NEEDS COMPONENTS 3013/2, 3013/7, AND 3013/27 TO RUN. TO TRANSLATE FROM Z-CODE TO /360-CODE, USE COMPONENT 3013/4. AT UM, ALGOL68C IS CLASSIFIED AS "UNSUPPORTED" SOFTWARE. NOTE: THIS VERSION HAS NOT BEEN INSTALLED AT UM AS OF 20 FEB/79. 03013/002 ALGOL68C COMPILER OE O S0684 UNSP FSNAME=ALGOL68C.COMPILER.OS.002 D4T3 691 ALGOL68C.COMPILER.OE.002 1 LINE 255 1 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:56:36 0 THIS IS THE FILE THAT YOU $RUN TO JUST COMPILE. USAGE: $RUN AL68:COMPILER SCARDS=INPUT SPRINT=LISTING 1=ZCODE-OUTPUT -  2=XREFTABLES¬  7=ENVIRON-OUTPUT¬   PAR= PRELUDE=FDNAME¬ ;XREF¬ ¬ IT CONTAINS A MODIFIED INITIALIZATION (3013/13) AND $CONTINUES WITH COMPONENTS 3013/1, 3013/7, AND 3013/29. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03013/003 ALGOL68C TRANSLATOR OE O S0684 UNSP FSNAME=ALGOL68C.TRANSLATOR.OE.003 D4T3 692 ALGOL68C.TRANSLATOR.OE.003 1 SEQ 32767 11 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:56:43 0 THIS IS VERSION 116 OF THE Z-CODE TO /360-CODE TRANSLATOR. IT IS MUCH IMPROVED OVER THE PREVIOUSLY DISTRIBUTED TRANSLATOR. IT PRODUCES RE-ENTRANT CODE. SINCE THE RUN-TIME LIBRARY ROUTINES ARE ALSO RE-ENTRANT, THIS MEANS THAT ALL ALGOL68C PROGRAMS, INCLUDING THE COMPILER, TRANSLATOR, AND CROSS-REFERENCER, ARE RE-ENTRANT. THIS PROGRAM HAS BEEN MODIFIED TO CHANGE THE FILE ID'S USED. 03013/004 ALGOL68C TRANSLATOR OE O S0684 UNSP FSNAME=ALGOL68C.TRANSLATOR.OS.004 D4T3 693 ALGOL68C.TRANSLATOR.OE.004 1 LINE 255 2 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:56:50 0 THIS IS THE FILE THAT YOU $RUN TO JUST TRANSLATE. USAGE: $RUN AL68:TRANSLAT SCARDS=ZCODE-INPUT SPRINT=LISTING SPUNCH=OBJECT-OUTPUT IT CONTAINS A MODIFIED INITIALIZATION (3013/13) AND $CONTINUES WITH COMPONENTS 3013/3, 3013/7, AND 3013/29. 03013/005 ALGOL68C CROSSREF OE S S0684 UNSP FSNAME=ALGOL68C.CROSSREF.OE.005 D4T3 694 ALGOL68C.CROSSREF.OE.005 1 SEQ 7690 3 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:56:57 0 A PROGRAM TO PRODUCE A CROSS-REFERENCE LISTING FOR AN ALGOL68C PROGRAM. THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE COMPILER. USAGE: $RUN AL68:XREF SCARDS=XREFTABLES SPRINT=LISTING THE FILE $CONTINUES WITH COMPONENT 3013/31. 03013/006 ALGOL68C COMPILER O O S0684 UNSP FSNAME=ALGOL68C.COMPILER.OS.006 D4T3 695 ALGOL68C.COMPILER.O.006 1 LINE 255 3 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:57:04 0 THIS IS A MONITOR WHICH: 1) APPEARS AS THE COMPILER TO THE USER. USAGE: $RUN AL68:A68C SCARDS=INPUT SPRINT=LISTING SPUNCH=OUTPUT  7=ENVIRONMENT OUTPUT¬ PARAMETERS: LIST/NOLIST NEWS/NONEWS XREF/NOXREF DEFAULTS: LIST, NEWS, NOXREF 2) INVOKES THE COMPILER, TRANSLATOR, AND, OPTIONALLY, THE CROSS-REFERENCER. 3) TRANSLATES SQUARE BRACKETS PRINTED BY THE COMPILER INTO EBCDIC 4) OPTIONALLY LISTS THE SOURCE PROGRAM 5) OPTIONALLY COPIES AL68:NEWS THE PROGRAM WRITES A MESSAGE TO AL68:USECNTR EACH TIME IT IS RUN. THE FILE $CONTINUES WITH COMPONENTS 3013/2, 3013/4, AND 3013/5. 03013/007 ALGOL68C RUN-TIME LIB OL O S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.OL.007 D4T3 696 ALGOL68C.RUN-TIME_LIB.OL.007 1 SEQ 2048 16 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:57:11 0 THE RUN-TIME LIBRARY. THIS FILE IS NEEDED BY EVERY ALGOL68C OBJECT PROGRAM. THE SOURCE FILES ARE COMPONENTS 3013/8 AND 3013/9. 03013/008 ALGOL68C RUN-TIME LIB SA O S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.SA.008 D4T3 697 ALGOL68C.RUN-TIME_LIB.SA.008 1 LINE 71 35 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:57:18 0 THE SOURCE FOR ALGOL68C SUBROUTINES WRITTEN IN ASSEMBLER, BUT CALLABLE FROM ALGOL68C PROGRAMS. PROCEDURE NUMBER NN STARTS AT LINE NN*1000. THIS FILE NEEDS COMPONENTS 3013/10, 3013/11, AND 3013/12 TO BE ASSEMBLED; IT DOES NOT NEED *SYSMAC. THERE IS NO END LINE IN THIS FILE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03013/009 ALGOL68C RUN-TIME LIB SA O S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.SA.009 D4T3 698 ALGOL68C.RUN-TIME_LIB.SA.009 1 LINE 72 25 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:57:25 0 THE SOURCE FOR ALGOL68C SUBROUTINES WRITTEN IN ASSEMBLER, BUT NOT CALLABLE FROM ALGOL68C PROGRAMS. EACH PROCEDURE STARTS ON LINE N*1000, WHERE -3 <= N <= 12. THERE IS A DIRECTORY AT LINE 1. THESE ROUTINES ARE CALLED BY THE ROUTINES IN COMPONENT 3013/8. THIS FILE NEEDS COMPONENTS 3013/10, 3013/11, AND 3013/12 TO BE ASSEMBLED; IT DOES NOT NEED *SYSMAC. IT ALSO NEEDS ALL THE LINES IN THE NEGATIVE NUMBERS IN COMPONENT 3013/8. THERE IS NO END LINE IN THIS FILE. 03013/010 ALGOL68C RUN-TIME LIB SM O S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.SM.010 D4T3 699 ALGOL68C.RUN-TIME_LIB.SM.010 1 LINE 72 12 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:57:33 0 MTS-INDEPENDENT MACROS ESPECIALLY FOR ALGOL68C. 03013/011 ALGOL68C RUN-TIME LIB SM O S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.SM.011 D4T3 700 ALGOL68C.RUN-TIME_LIB.SM.011 1 LINE 71 5 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:57:40 0 MTS-DEPENDENT MACROS ESPECIALLY FOR ALGOL68C. 03013/012 ALGOL68C GENERAL MACROS SM O S0684 UNSP FSNAME=ALGOL68C.GENERAL_MACROS.SM.012 D4T3 701 ALGOL68C.GENERAL_MACROS.SM.012 1 LINE 72 7 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:57:48 0 GENERAL-PURPOSE MACROS USED BY COMPONENTS 3013/8 AND 3013/9. 03013/013 ALGOL68C RUN-TIME LIB OE O S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.OS.013 D4T3 702 ALGOL68C.RUN-TIME_LIB.OE.013 1 LINE 255 1 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:57:55 0 THE INITIALIZATION SECTION FOR EVERY ALGOL68C OBJECT PROGRAM. IT PROCESSES PARAMETERS BEFORE THE FIRST ";" IN THE PAR= STRING, AND PASSES THE REST TO THE USER. 0 Referenced by comments of: 3013/2, 3013/4 03013/014 ALGOL68C COMPILER INIT D S0684 UNSP FSNAME=ALGOL68C.COMPILER_INIT.D.014 D4T3 703 ALGOL68C.COMPILER_INIT.D.014 1 LINE 96 1 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:58:03 0 THE COMPILER INITIALIZATION FILE. IT CONTAINS ALL THE KEYWORDS RECOGNIZED BY THE COMPILER. THIS COMPENENT (AND STD ENV1, SAMPLE PROGS, AND STD ENV2) USES BOTH UPPER AND LOWER CASE. COMPONENT 3013/28 NEEDS COMPILER INIT AND STD ENV1 WITH ALL KEYWORDS AND IDENTIFIERS CHANGED TO MATCH ITS STROPPING CONVENTION. 03013/015 ALGOL68C STD ENV1 D S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.D.015 D4T3 704 ALGOL68C.STD_ENV1.D.015 1 LINE 73 3 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:58:10 0 AN ENVIRONMENT FILE DESCRIBING THE BARE Z MACHINE AND SOME OF THE ROUTINES PROVIDED IN COMPONENT 3013/7. THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION. 03013/016 ALGOL68C STD ENV1 D S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.D.016 D4T3 705 ALGOL68C.STD_ENV1.D.016 1 LINE 46 2 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:58:17 0 AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE. IT POINTS AT COMPONENT 3013/15. THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03013/017 ALGOL68C STD ENV1 D S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.D.017 D4T3 706 ALGOL68C.STD_ENV1.D.017 1 LINE 46 2 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:58:24 0 AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE. IT POINTS AT COMPONENT 3013/16. THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION. 03013/018 ALGOL68C STD ENV1 D S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.D.018 D4T3 707 ALGOL68C.STD_ENV1.D.018 1 LINE 46 2 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 08:58:31 0 AN ENVIRONMENT FILE DESCRIBING SOME OF THE STANDARD PRELUDE. IT POINTS AT COMPONENT 3013/17. THIS HAS BEEN MINIMALLY CHANGED FROM THE OS VERSION. 03013/019 ALGOL68C URM PF B S0684 UNSP FSNAME=ALGOL68C.URM.PF.019 D4T3 708 ALGOL68C.URM.PF.019 1 LINE 83 69 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:12:20 0 THIS IS THE REFERENCE MANUAL RECEIVED FROM CAMBRIDGE. IT IS DATED JUNE 1975. IT DESCRIBES ALGOL68C AS IT WAS CONCEIVED, NOT AS IT REALLY IS. MANY OF THE DISCREPANCIES BETWEEN THIS MANUAL AND REALITY ARE NOTED BY THE COMPILER AS "NOT YET IMPLEMENTED." THIS MANUAL DESCRIBES THE TRANSPUT AS PROVIDED BY SUB-COMPONENT STD ENV1. THE MANUAL IS 8.2" WIDE, EXCLUDING THE RIGHT MARGIN. 03013/020 ALGOL68C SAMPLE PROGS S6 S S0684 UNSP FSNAME=ALGOL68C.SAMPLE_PROGS.S6.020 D4T3 709 ALGOL68C.SAMPLE_PROGS.S6.020 1 LINE 94 7 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:12:27 0 THIS IS A PSEUDO-LIBRARY OF ALGOL68C PROGRAMS. THEY ARE MOSTLY TESTS OF THE COMPILER. 03013/021 ALGOL68C STD ENV2 S6 S S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.S6.021 D4T3 710 ALGOL68C.STD_ENV2.S6.021 1 LINE 108 8 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:12:33 0 A MORE COMPREHENSIVE STANDARD ENVIRONMENT THAN STD ENV1. IT INCLUDES ALL THE ROUTINES IN COMPONENT 3013/7, AND (IN TWO PARTS) MOST OF THE UNFORMATTED TRANSPUT DESCRIBED IN THE REVISED REPORT. MAJOR ADDITIONS TO STD ENV1 INCLUDE 'READREAL', 'READSTRING', 'READBITS', AND THE OPERATORS FOR COMPL. STD ENV2 IS NOT YET DEBUGGED!! THIS PARTICULAR COMPONENT IS A MOST GLOBAL PROGAM SEGMENT. 03013/022 ALGOL68C STD ENV2 S6 S S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.S6.022 D4T3 711 ALGOL68C.STD_ENV2.S6.022 1 LINE 76 4 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:12:40 0 PART II OF A MORE COMPREHENSIVE STANDARD ENVIRONMENT. THIS PROGRAM IS CONCEPTUALLY A PART OF COMPONENT 3013/21; I.E. IT IS A SECOND-LEVEL PROGRAM SEGMENT. 03013/023 ALGOL68C STD ENV2 D S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.D.023 D4T3 712 ALGOL68C.STD_ENV2.D.023 1 LINE 45 3 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:12:47 0 THE ENVIRONMENT FILE OUTPUT OF COMPONENT 3013/21; IT POINTS AT COMPONENT 3013/27. 03013/024 ALGOL68C STD ENV2 D S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.D.024 D4T3 713 ALGOL68C.STD_ENV2.D.024 1 LINE 37 3 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:12:54 0 THE ENVIRONMENT FILE OUTPUT OF COMPONENT 3013/22; IT POINTS AT COMPONENT 3013/23. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03013/025 ALGOL68C STD ENV2 OC S S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.OC.025 D4T3 714 ALGOL68C.STD_ENV2.OC.025 1 SEQ 11568 4 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:13:01 0 THE OBJECT FILE OUTPUT OF COMPONENT 3013/21. 03013/026 ALGOL68C STD ENV2 OC S S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.OC.026 D4T3 715 ALGOL68C.STD_ENV2.OC.026 1 LINE 73 5 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:13:08 0 THE OBJECT FILE OUTPUT OF COMPONENT 3013/22. 03013/027 ALGOL68C STD ENV2 D S0684 UNSP FSNAME=ALGOL68C.STD_ENV2.D.027 D4T3 716 ALGOL68C.STD_ENV2.D.027 1 LINE 95 4 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:13:15 0 THIS IS COMPONENT 3013/15 MODIFIED TO INCLUDE THE NAMES OF ALL THE ROUTINES IN 3013/7 WHICH CAME FROM 3013/8 (I.E. ARE CALLABLE FROM ALGOL68C). 03013/028 ALGOL68C COMPILER OE O S0684 UNSP FSNAME=ALGOL68C.COMPILER.OE.028 D4T3 717 ALGOL68C.COMPILER.OE.028 1 SEQ 32767 45 PAGE UQV MAILLOUX UNSP MAR. 20, 1976 08:46:50 0 THIS IS THE SAME AS COMPONENT 3013/1, BUT IT HAS A DIFFERENT TRANSLATE TABLE (STROPPING CONVENTION). IT USES A SINGLE CASE WITH KEYWORDS PREFIXED BY AN APOSTROPHE; E.G. 'BEGIN 'INT I; READ(I); PRINT(I); 'SKIP 'END 03013/029 ALGOL68C RUN-TIME LIB OL O S0684 UNSP FSNAME=ALGOL68C.RUN-TIME_LIB.OL.029 D4T3 718 ALGOL68C.RUN-TIME_LIB.OL.029 1 SEQ 255 2 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:16:30 0 SOME SUBROUTINES USED BY COMPONENT 3013/7 WHICH USE S-TYPE LINKAGE. THE ROUTINES INCLUDE: DTSTAMP: RETURNS A 16-CHARACTER DATE AND TIME-OF-DAY STRING IN THE FORMAT "YY-MM-DD @ HH:MM" ERRMSG: LIKE SERCOM, BUT ALSO WRITES ON *SINK* AND *MSINK* IF DIFFERENT ZDREAL: CONVERTS (ZONED DECIMAL(18),INTEGER) TO REAL(8) REALZD: CONVERTS REAL(8) TO (ZONED DECIMAL(18),INTEGER) 03013/030 ALGOL68C STD ENV1 OE O S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.OE.030 D4T3 719 ALGOL68C.STD_ENV1.OE.030 1 SEQ 3402 2 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:16:32 0 THE OBJECT FILE SUPPORTING FEATURES DESCRIBED IN COMPONENTS 3013/16, 3013/17, AND 3013/18. IT CONTAINS ROUTINES AVAILABLE TO ALGOL68C PROGRAMS. IT USE SOME ROUTINES FROM COMPONENT 3013/7. 03013/031 ALGOL68C STD ENV1 OC G S0684 UNSP FSNAME=ALGOL68C.STD_ENV1.OC.031 D4T3 720 ALGOL68C.STD_ENV1.OC.031 1 LINE 34 1 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:16:39 0 THIS IS JUST AN ABBREVIATION FOR "AL68:USER+AL68:ZLIB+AL68:LIBRARY." I.E. COMPONENTS 3013/30, 3013/7, 3013/29. 03013/032 ALGOL68C COMPILER D S0684 UNSP FSNAME=ALGOL68C.COMPILER.D.032 D4T3 721 ALGOL68C.COMPILER.D.032 1 LINE 120 1 PAGE UQV MAILLOUX UNSP OCT. 11, 1976 09:16:46 0 THE NEWS FILE USED BY COMPONENT 3013/6. THE OLD NEWS IS IN THE NEGATIVE LINE RANGE. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/001 TEXTFORM DESIGN SPECS WF # NOT DISTRIBUTED BY UQV UQVD06 246 TEXTFORM.DESIGN_SPECS.WF.1 1 LINE 172 20 PAGE UQV TXTFGROUP LIFT FEB. 17, 1976 10:56:30 0 This is the final version of the TEXTFORM design specifications. The members of the "TXTFGROUP" are: Grant Crawford Dave Holberton Earl Culham Debbie Reinhart 03018/002 TEXTFORM DESIGN SPECS PF # NOT DISTRIBUTED BY UQV UQVD06 247 TEXTFORM.DESIGN_SPECS.PF.2 1 LINE 193 68 PAGE UQV TXTFGROUP LIFT FEB. 17, 1976 10:56:46 0 Printer copy of 3018/1. 03018/003 TEXTFORM RESTORE C TXTF:CREATES D4.2T2 259 TEXTFORM.RESTORE.C.003 1 LINE 143 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:57:00 0 For installations installing TEXTFORM for the first time: Component 3018/5 (Internals manual) should be printed, and the section entitled "Installation Guide" should be read before proceeding further. For installations who already have TEXTFORM running: Component 3018/5 (Internals manual) lines 1 to 1278 should be printed, (however you may print the whole manual if you wish since it has been updated since Version .97). Read the section entitled "Installation Guide" before proceeding further. There are changes. 03018/004 TEXTFORM INTERNALS WX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTERNALS.WX.004 D4.2T2 260 TEXTFORM.INTERNALS.WX.004 1 LINE 255 306 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:49:56 0 This is the PLM - set up for the 1403. The first few lines of the file contain notes on the options available, but what you need (the whole thing) is produced by the defaults. 0 Referenced by comments of: 3018/13, 3018/62, 3018/82, 3018/126, 3018/127, 3018/128, 3018/129, 3018/158, 3018/163, 3018/164, 3018/165, 3018/169 03018/005 TEXTFORM INTERNALS PX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTERNALS.PX.005 D4.2T2 261 TEXTFORM.INTERNALS.PX.005 1 LINE 108 1036 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:50:48 0 Print file for 3018/4 - about 1000 pages of TN. (The Table of Contents is at the end of the print file.) 03018/006 TEXTFORM INTRODUCTION WX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.INTRODUCTION.WX.006 D4.2T2 262 TEXTFORM.INTRODUCTION.WX.006 1 LINE 229 56 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:53:00 0 The INTRODUCTION manual - set up for the 1403. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/007 TEXTFORM USERS WX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.USERS.WX.007 D4.2T2 263 TEXTFORM.USERS.WX.007 1 LINE 236 58 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:54:31 0 The USERS manual - set up for the 1403. 03018/008 TEXTFORM REFERENCE WX S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.REFERENCE.WX.008 D4.2T2 264 TEXTFORM.REFERENCE.WX.008 1 LINE 210 49 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:55:40 0 The REFERENCE manual - set up for the 1403. (Note - Due to a bug in the handling of large structures, it will not run successfully.) 03018/009 TEXTFORM LAYOUT_DEF WX # (NOT AVAILABLE YET) UQV TXTFGROUP LIFT 0 The layout definition manual will go here. 03018/010 TEXTFORM *TEXTFORM OE G *TEXTFORM D4.2T2 265 TEXTFORM.*TEXTFORM.OE.010 1 LINE 4092 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:35 *TEXTFORM 0 The user-loaded portion of Version 1.0 of TEXTFORM. OBJECT OF TEXTFORM (3018/56) AND NUCLEUS (3018/34). 0 Referenced by comments of: 3018/56, 3018/64, 3018/65 03018/011 TEXTFORM SEG2TXTF OC G SEG2:TEXTFORM D4.2T2 266 TEXTFORM.SEG2TXTF.OC.011 1 LINE 13324 56 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:35 SEG2:TEXTFORM 0 The re-entrant part of the code - to live in shared vm. 0 Referenced by comments of: 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/22, 3018/24, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/43, 3018/48, 3018/50, 3018/52, 3018/53, 3018/54, 3018/55, 3018/57, 3018/67, 3018/78, 3018/118, 3018/119, 3018/120 03018/012 TEXTFORM TXTFMSGS M ETC:TXTFMSGS D4.2T2 267 TEXTFORM.TXTFMSGS.M.012 1 LINE 88 6 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:40 ETC:TXTFMSGS 0 ERROR MESSAGES. 03018/013 TEXTFORM AMWID SA G TXTF:AMWID.S D4.2T2 268 TEXTFORM.AMWID.SA.013 1 LINE 80 16 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:41 0 PROGRAM FOR BUILDING AM748 PHOTOTYPESETTER WIDTH TABLES. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/014 TEXTFORM AM748N SA G TXTF:AM748N.S D4.2T2 269 TEXTFORM.AM748N.SA.014 1 LINE 80 55 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:42 0 AM748 PHOTOTYPESETTER OUTPUT DEVICE PROCESSOR (OD). COPIES GBLC (3018/123), 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 GBLS (3018/23), AND XODTGETM (3018/147). OBJECT IN TXTFODS (3018/159). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/015 TEXTFORM ATPAC SA G TXTF:ATPAC.S D4.2T2 270 TEXTFORM.ATPAC.SA.015 1 LINE 80 10 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:48 0 CONTAINS THE ATEXEC, ATERASE, ATINS, ATRAINS, ATRAERS, ECQSTRG, AND EXDG SUBROUTINES FOR AT-POINT PROCESSING. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/016 TEXTFORM CHPAC SA G TXTF:CHPAC.S D4.2T2 271 TEXTFORM.CHPAC.SA.016 1 LINE 80 37 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:49 0 CONTAINS THE GETVAL, RETVAL, SETATTR, SETVAL, GETPV, SECHG, PSVTAB, ASSIGN, HCHANGE, AND ERSVTAB SUBROUTINES FOR SYMBOL TABLE PROCESSING. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/017 TEXTFORM CONVPAC SA G TXTF:CONVPAC.S D4.2T2 272 TEXTFORM.CONVPAC.SA.017 1 LINE 80 47 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:52 0 CONTAINS SUBROUTINES FOR CASE, LANGUAGE, STRING, AND NUMBER CONVERSION. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/018 TEXTFORM CWKDAY SA G TXTF:CWKDAY.S D4.2T2 273 TEXTFORM.CWKDAY.SA.018 1 LINE 80 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:58 0 CONTAINS DATA AND TIME SUBROUTINE. OBJECT IN 3018/78 AND SEG2:TEXTFORM (3018/11). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/019 TEXTFORM DEVPAC SA G TXTF:DEVPAC.S D4.2T2 274 TEXTFORM.DEVPAC.SA.019 1 LINE 80 16 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 01:59:58 0 COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). OBJECT IN SEG2:TEXTFORM (3018/11). 03018/020 TEXTFORM EXPAC SA G TXTF:EXPAC.S D4.2T2 275 TEXTFORM.EXPAC.SA.020 1 LINE 80 73 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:00 0 CONTAINS THE TXTFDRVR, GCI, PARSER, COMDEXEC SUBROUTINES AND FRIENDS. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/155 03018/021 TEXTFORM EXPRPAC SA G TXTF:EXPRPAC.S D4.2T2 276 TEXTFORM.EXPRPAC.SA.021 1 LINE 80 28 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:09 0 CONTAINS THE EVALUATE, EXPREV, AND EXEVAL SUBROUTINES FOR EXPRESSION EVALUATION. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/022 TEXTFORM FUNPAC SA G TXTF:FUNPAC.S D4.2T2 277 TEXTFORM.FUNPAC.SA.022 1 LINE 80 35 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:12 0 TEXTFORM FUNCTIONS. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/023 TEXTFORM GBLS SA G TXTF:GBLS D4.2T2 278 TEXTFORM.GBLS.SA.023 1 LINE 80 6 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:16 0 COPY SECTION OF GLOBAL SYMBOLS INCLUDING INSTALLATION OPTIONS. COPIES GBLD (3018/122). COPIED BY MANY TEXTFORM SUBCOMPONENTS. 0 Referenced by comments of: 3018/14, 3018/15, 3018/16, 3018/17, 3018/19, 3018/20, 3018/21, 3018/22, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36, 3018/37, 3018/38, 3018/39, 3018/42, 3018/43, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/57, 3018/118, 3018/119, 3018/120, 3018/139, 3018/140, 3018/150, 3018/152, 3018/154, 3018/155, 3018/161 03018/024 TEXTFORM GFDSTAR SA G TXTF:GFDSTAR.S D4.2T2 279 TEXTFORM.GFDSTAR.SA.024 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:17 0 CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON TEXTFORM REFERENCED/LOADED FILES. THIS IS THE PUBLIC FILE (OWNER ETC:) VERSION. COPIES GBLC (3018/123) AND GBLS (3018/23). OBJECT IN 3018/67 AND SEG2:TEXTFORM (3018/11). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/025 TEXTFORM GFDN SA G TXTF:GFDN.S D4.2T2 280 TEXTFORM.GFDN.SA.025 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:18 0 CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON TEXTFORM REFERENCED/LOADED FILES. THIS IS THE NEW: VERSION. COPIES GBLC (3018/123) AND GBLS (3018/23). OBJECT IN 3018/68. ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/026 TEXTFORM GFDO SA G TXTF:GFDO.S D4.2T2 281 TEXTFORM.GFDO.SA.026 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:18 0 CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON TEXTFORM REFERENCED/LOADED FILES. THIS IS THE OLD: VERSION. COPIES GBLC (3018/123) AND GBLS (3018/23). OBJECT IN 3018/66. ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/027 TEXTFORM GFDT SA G TXTF:GFDT.S D4.2T2 282 TEXTFORM.GFDT.SA.027 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:19 0 CONTAINS THE GFD, RUNNER, AND LOADMOD SUBROUTINES TO PUT PROPER CCID ON TEXTFORM REFERENCED/LOADED FILES. THIS IS THE TXTF: VERSION. COPIES (3018/123) AND GBLS (3018/23). OBJECT IN 3018/69. ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/028 TEXTFORM GOPAC SA G TXTF:GOPAC.S D4.2T2 283 TEXTFORM.GOPAC.SA.028 1 LINE 80 21 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:20 0 CONTAINS THE TXTFINIT AND TXTFTERM SUBROUTINES TO INITIALIZE AND TERMINATE TEXTFORM. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/029 TEXTFORM HYPAC SA G TXTF:HYPAC.S D4.2T2 284 TEXTFORM.HYPAC.SA.029 1 LINE 80 25 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:22 0 CONTAINS HYPHENATION SUBROUTINES. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/030 TEXTFORM INTRFACE SA G TXTF:INTRFACE.S D4.2T2 285 TEXTFORM.INTRFACE.SA.030 1 LINE 80 8 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:24 0 CONTAINS THE INTERFACE TO SYSTEM SUBROUTINES. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES *CNFGINFODSECT (654), GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/031 TEXTFORM LISTPAC SA G TXTF:LISTPAC.S D4.2T2 286 TEXTFORM.LISTPAC.SA.031 1 LINE 80 10 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:26 0 CONTAINS THE LISTER, ALTLIST, CHLIST, CR, AND XREFIT SUBROUTINES FOR SOURCE LISTING. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/032 TEXTFORM MACPAC SA G TXTF:MACPAC.S D4.2T2 287 TEXTFORM.MACPAC.SA.032 1 LINE 80 50 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:27 0 CONTAINS THE TXTFINPT SUBROUTINE AND FRIENDS FOR INPUT GETTING, AND THE ROUTINES FOR, IF, WHILE, EXECUTE PROCESSING, ETC. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/033 TEXTFORM NPP SA G TXTF:NPP.S D4.2T2 288 TEXTFORM.NPP.SA.033 1 LINE 80 57 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:31 0 CONTAINS THE PAGEPROC SUBROUTINE FOR PAGE PROCESSING. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/034 TEXTFORM NUCLEUS CSECT SA G TXTF:NUCLEUS.S D4.2T2 289 TEXTFORM.NUCLEUS_CSECT.SA.034 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:37 0 THIS IS THE NUCLEUS CSECT WHICH CONTAINS ALL OF THE VALUES THAT TEXTFORM NEEDS TO KEEP TRACK OF WHAT'S WHAT. COPIES THE NUCLEUS DSECT (3018/121), GBLC (3018/123), AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/10 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/035 TEXTFORM OD.AJ832 SA G TXTF:OD.AJ832.S D4.2T2 290 TEXTFORM.OD.AJ832.SA.035 1 LINE 80 32 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:37 0 THE OUTPUT DEVICE PROCESSOR FOR THE ANDERSON-JACOBSON 832 TERMINAL. OBJECT IN TXTFODS (3108/159). COPIES GBLC (3018/123), GBLS (3018/23), AND XODTGETM (3018/147). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/036 TEXTFORM OD.DECWR SA G TXTF:OD.DECWR.S D4.2T2 291 TEXTFORM.OD.DECWR.SA.036 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:40 0 THE OUTPUT DEVICE PROCESSOR FOR THE DECWRITER TERMINAL. OBJECT IN TXTFODS (3018/159). COPIES GBLC (3018/123), GBLS (3018/23), OD.1403.M (3018/41), AND XODTGETM (3018/147). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/037 TEXTFORM OD.DOC SA G TXTF:OD.DOC.S D4.2T2 292 TEXTFORM.OD.DOC.SA.037 1 LINE 80 23 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:41 0 CONTAINS THE ODDOC SUBROUTINE WHICH PRODUCES OUTPUT DEVICE AND FONT DESCRIPTIONS. USES TXTF.ODW (3018/59) AS DATA. OBJECT IN 3018/165. COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/59 03018/038 TEXTFORM OD.SKEL SA G TXTF:OD.SKEL.S D4.2T2 293 TEXTFORM.OD.SKEL.SA.038 1 LINE 80 15 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:43 0 SKELETON FOR OUTPUT DEVICE PROCESSORS. USEFUL AS A BASIS FOR WRITING AN OD. COPIES XODTGETM (3018/147), GBLC (3018/123), AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/039 TEXTFORM OD.TBLGEN SA G TXTF:OD.TBLGEN.S D4.2T2 294 TEXTFORM.OD.TBLGEN.SA.039 1 LINE 80 32 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:45 0 CONTAINS THE GENTAB SUBROUTINE WHICH PRODUCES OUTPUT DEVICE PROCESSOR WIDTH TABLES. COPIES GBLS (3018/23), AND GBLC (3018/123). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). OBJECT IN 3018/163. 0 Referenced by comments of: 3018/92, 3018/96, 3018/97, 3018/98, 3018/99, 3018/100, 3018/101, 3018/102, 3018/105, 3018/107, 3018/110, 3018/127, 3018/141, 3018/142, 3018/143, 3018/144, 3018/145, 3018/146, 3018/153, 3018/162 03018/040 TEXTFORM OD.1403.D SA G TXTF:OD.1403.D.S D4.2T2 295 TEXTFORM.OD.1403.D.SA.040 1 LINE 80 7 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:48 0 DSECTS FOR OUTPUT DEVICE PROCESSORS FOR IBM 1403-COMPATIBLE PRINTERS. COPIED BY 3018/41 AND 3018/44. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 03018/041 TEXTFORM OD.1403.M SA G TXTF:OD.1403.M.S D4.2T2 296 TEXTFORM.OD.1403.M.SA.041 1 LINE 80 57 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:49 0 CODE FOR OUTPUT DEVICE PROCESSORS FOR IBM 1403-COMPATIBLE PRINTERS. COPIES 3018/40. COPIED BY 3018/36, 3018/42, 3018/45, 3018/46, AND 3018/47. 1 THU SEP 12/96 23:39:34 Page 488 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/36, 3018/42, 3018/45, 3018/46, 3018/47 03018/042 TEXTFORM OD.1403 SA G TXTF:OD.1403.S D4.2T2 297 TEXTFORM.OD.1403.SA.042 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:56 0 OUTPUT DEVICE PROCESSOR FOR IBM 1403. OBJECT IN TXTFODS (3018/159). COPIES GBLC (3018/123), GBLS (3018/23), XODTGETM (3018/147), AND OD.1403.M (3018/41). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/043 TEXTFORM ODM SA G TXTF:ODM.S D4.2T2 298 TEXTFORM.ODM.SA.043 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:57 0 CONTAINS TXTFODCM, THE OUTPUT DEVICE LOADER. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLS (3018/23) AND ODPD.M (3018/44). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/44, 3018/150 03018/044 TEXTFORM ODPD.M SA G TXTF:ODPD.M.S D4.2T2 299 TEXTFORM.ODPD.M.SA.044 1 LINE 80 21 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:00:58 0 COPIES 3018/40. COPIED BY ODM (3018/43) AND PDM (3018/48). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/43, 3018/48 03018/045 TEXTFORM OSOD.1403 SA G TXTF:OSOD.1403.S D4.2T2 300 TEXTFORM.OSOD.1403.SA.045 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:00 0 IBM 1403 PRINTER OUTPUT DEVICE PROCESSOR FOR OS. COPIES OD.1403.M (3018/41). OBJECT IN TXTFODS (3018/159). COPIES GBLC (3018/123), GBLS (3018/23), AND XODTGETM (3018/147). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/046 TEXTFORM OSPD.1403 SA G TXTF:OSPD.1403.S D4.2T2 301 TEXTFORM.OSPD.1403.SA.046 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:01 0 IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR OS. COPIES OD.1403.M (3018/41), XODTGETM.S (3018/147), GBLS (3018/23), AND GBLC (3018/123). OBJECT IN TXTFODS (3018/159). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/047 TEXTFORM PD.1403 SA G TXTF:PD.1403.S D4.2T2 302 TEXTFORM.PD.1403.SA.047 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:02 0 IBM 1403 PRINTER PROOF DEVICE PROCESSOR. COPIES OD.1403.M (3018/41), XODTGETM.S (3018/147), GBLS (3018/23), AND GBLC (3018/123). OBJECT IN TXTFODS (3018/159). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/048 TEXTFORM PDM SA G TXTF:PDM.S D4.2T2 303 TEXTFORM.PDM.SA.048 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:02 0 CONTAINS TXTFPDCM, THE PROOF DEVICE LOADER. COPIES GBLS (3018/23), GBLC (3018/123), AND ODPD.M (3018/44). OBJECT IN SEG2:TEXTFORM (3018/11). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/44, 3018/150 03018/049 TEXTFORM PPEXT SA G TXTF:PPEXT.S D4.2T2 304 TEXTFORM.PPEXT.SA.049 1 LINE 80 17 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:03 0 CONTAINS THE CALLPUSH AND CALLPOP SUBROUTINES TO CALL PUSH AND POP, AND PPUNDO, THE INTERNAL PAGE DUMPER. COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/050 TEXTFORM PPPAC SA G TXTF:PPPAC.S D4.2T2 305 TEXTFORM.PPPAC.SA.050 1 LINE 82 85 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:05 0 CONTAINS THE PAGE AND TEXT PROCESSING SUBROUTINES. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/051 TEXTFORM PROOF SA G TXTF:PROOF.S D4.2T2 306 TEXTFORM.PROOF.SA.051 1 LINE 82 49 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:13 0 IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR THE AM748 AND APS5 PHOTOTYPESETTERS. OBJECT IN TXTFODS (3018/159). COPIES GBLC (3018/123), GBLS (3018/23), AND XODTGETM (3018/147). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/052 TEXTFORM SCPAC SA G TXTF:SCPAC.S D4.2T2 307 TEXTFORM.SCPAC.SA.052 1 LINE 81 68 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:18 0 CONTAINS MANY SUBROUTINES FOR COMMAND PROCESSING, ETC. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/053 TEXTFORM SSPAC SA G TXTF:SSPAC.S D4.2T2 308 TEXTFORM.SSPAC.SA.053 1 LINE 80 12 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:26 0 CONTAINS THE REPACK, CRECHECK, DESCHECK, TSKIP, CONVMSG, FIXFDUBS, AND SATRACE SUBROUTINES (MISCELLANEOUS UTILITIES). OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/054 TEXTFORM STPAC SA G TXTF:STPAC.S D4.2T2 309 TEXTFORM.STPAC.SA.054 1 LINE 80 49 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:28 0 CONTAINS THE ATXRSYMB AND READSYMB SUBROUTINES AND FRIENDS FOR SYMBOL TABLE AND LAYOUT PROCESSING. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/055 TEXTFORM SYSPAC SA G TXTF:SYSPAC.S D4.2T2 310 TEXTFORM.SYSPAC.SA.055 1 LINE 80 22 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:34 0 CONTAINS THE ERROR, TIMER, ATTN, AND PGNT SUBROUTINES. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/056 TEXTFORM TEXTFORM SA G TXTF:TEXTFORM.S D4.2T2 311 TEXTFORM.TEXTFORM.SA.056 1 LINE 80 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:36 0 CONTAINS TEXTFORM, THE MAIN CSECT. OBJECT IN *TEXTFORM (3018/10). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/10 03018/057 TEXTFORM TP SA G TXTF:TP.S D4.2T2 312 TEXTFORM.TP.SA.057 1 LINE 80 31 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:37 0 CONTAINS TEXTPROC, THE TEXT PROCESSOR. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/058 TEXTFORM ODT.TN.IWD D G TXTF:ODT.TN.IWD D4.2T2 313 TEXTFORM.ODT.TN.IWD.D.058 1 LINE 65 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:40 0 CONTAINS WIDTH TABLES (INPUT TO GENTAB, 3018/39) FOR THE IBM 1403 PRINTER OUTPUT DEVICE PROCESSOR, TN PRINT TRAIN. 03018/059 TEXTFORM TXTF.ODW D G TXTF:TXTF.ODW D4.2T2 314 TEXTFORM.TXTF.ODW.D.059 1 LINE 118 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:41 0 DESCRIPTIONS OF OUTPUT DEVICES AND FONTS. USED BY OD.DOC (3018/37). 0 Referenced by comments of: 3018/37 03018/060 TEXTFORM MACROS SM G TXTF:MACROS D4.2T2 315 TEXTFORM.MACROS.SM.060 1 LINE 81 96 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:41 0 MOST TEXTFORM SUBCOMPONENTS REQUIRE THIS MACRO LIBRARY FOR ASSEMBLY. 0 Referenced by comments of: 3018/13, 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/22, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36, 3018/37, 3018/38, 3018/39, 3018/41, 3018/42, 3018/43, 3018/44, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/57, 3018/80, 3018/118, 3018/119, 3018/120, 3018/131, 3018/139, 3018/140, 3018/152, 3018/154, 3018/155, 3018/161 03018/061 TEXTFORM DSECTS SM G TXTF:DSECTS D4.2T2 316 TEXTFORM.DSECTS.SM.061 1 LINE 80 47 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:49 0 MOST TEXTFORM SUBCOMPONENTS REQUIRE THIS DSECT LIBRARY FOR ASSEMBLY. 0 Referenced by comments of: 3018/13, 3018/14, 3018/15, 3018/16, 3018/17, 3018/18, 3018/19, 3018/20, 3018/21, 3018/22, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36, 3018/37, 3018/38, 3018/39, 3018/41, 3018/42, 3018/43, 3018/44, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/57, 3018/80, 3018/118, 3018/119, 3018/120, 3018/131, 3018/139, 3018/140, 3018/152, 3018/154, 3018/155, 3018/161 03018/062 TEXTFORM SYMBIN D G TXTF:SYMBIN D4.2T2 317 TEXTFORM.SYMBIN.D.062 1 LINE 255 20 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:53 0 TEXTFORM INPUT TO BUILD THE SYMBOL TABLE ("ENVIRONMENT") IN 3018/64. SEE THE 1 THU SEP 12/96 23:39:34 Page 491 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 INTERNALS MANUAL (3018/4) FOR INSTRUCTIONS. 03018/063 TEXTFORM BOOTSYMB D G TXTF:BOOTSYMB D4.2T2 318 TEXTFORM.BOOTSYMB.D.063 1 LINE 4096 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:56 0 THE BOOTSTRAP SYMBOL TABLE (, , ). 03018/064 TEXTFORM ENVIRONMENT D G ETC:TXTFENVIR D4.2T2 319 TEXTFORM.ENVIRONMENT.D.064 1 LINE 32000 18 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:57 ETC:TXTFENVIR 0 THE SYMBOL TABLE USED IN RUNNING *TEXTFORM (3018/10). 03018/065 TEXTFORM TXTFLAYOUTS D G ETC:TXTFLAYOUTS D4.2T2 320 TEXTFORM.TXTFLAYOUTS.D.065 1 LINE 252 69 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:01:59 ETC:TXTFLAYOUTS 0 THE LAYOUTS USED BY *TEXTFORM (3018/10). 03018/066 TEXTFORM GFDO OC G TXTF:GFDO.O D4.2T2 321 TEXTFORM.GFDO.OC.066 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:05 0 OBJECT OF 3018/26. 03018/067 TEXTFORM GFDSTAR OC G TXTF:GFDSTAR.O D4.2T2 322 TEXTFORM.GFDSTAR.OC.067 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:06 0 OBJECT OF 3018/24. THIS IS THE VERSION IN SEG2:TEXTFORM (3018/11). 03018/068 TEXTFORM GFDN OC G TXTF:GFDN.O D4.2T2 323 TEXTFORM.GFDN.OC.068 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:07 0 OBJECT OF 3018/25. 03018/069 TEXTFORM GFDT OC G TXTF:GFDT.O D4.2T2 324 TEXTFORM.GFDT.OC.069 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:07 0 OBJECT OF 3018/27. 03018/070 TEXTFORM NEWOLD C TXTF:NEWOLD D4.2T2 325 TEXTFORM.NEWOLD.C.070 1 LINE 83 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:08 0 COMMANDS TO CREATE A VERSION OF TEXTFORM UNDER OLD:, FROM THE PUBLIC FILE VERSION. 03018/071 TEXTFORM NEWPUB C TXTF:NEWPUB D4.2T2 326 TEXTFORM.NEWPUB.C.071 1 LINE 88 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:08 0 COMMANDS TO COPY THE FILE TXTF:TEXTFORM TO *TEXTFORM AND MAKE AN ENTRY TO THE FILE LINKLOG. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/072 TEXTFORM NEWSTAR C TXTF:NEWSTAR D4.2T2 327 TEXTFORM.NEWSTAR.C.072 1 LINE 83 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:09 0 COMMANDS TO CREATE THE PUBLIC FILE VERSION OF TEXTFORM FROM THE NEW: VERSION. 03018/073 TEXTFORM NEWNEW C TXTF:NEWNEW D4.2T2 328 TEXTFORM.NEWNEW.C.073 1 LINE 79 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:10 0 COMMANDS TO CREATE A VERSION OF TEXTFORM UNDER NEW: FROM FILES UNDER TXTF:. 03018/074 TEXTFORM PERCOLATE C # TXTF:PERCOLATE Z99491 71 TEXTFORM.PERCOLATE.C.074 1 LINE 64 1 PAGE UQV TXTFGROUP LIFT MAR. 31, 1978 09:08:49 0 This file is not distributed because it is full of $EXEC commands which none of you have. 03018/075 TEXTFORM LIB C G S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LIB.C.075 D4.2T2 329 TEXTFORM.LIB.C.075 1 LINE 75 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:59:40 03018/076 TEXTFORM LINK C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LINK.C.076 D4.2T2 330 TEXTFORM.LINK.C.076 1 LINE 40 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:59:41 03018/077 TEXTFORM XCSYMB C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.XCSYMB.C.077 D4.2T2 331 TEXTFORM.XCSYMB.C.077 1 LINE 29 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:59:41 0 COMMANDS TO COPY ENVIR2 --> TXTFENVIR --> OLDENVIR (THE SYMBOL TABLE). 03018/078 TEXTFORM CWKDAY OC G TXTF:CWKDAY.O D4.2T2 332 TEXTFORM.CWKDAY.OC.078 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:28 0 OBJECT OF 3018/18. ALSO INCLUDED IN SEG2:TEXTFORM (3018/11). 03018/079 TEXTFORM LOGJOB C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.LOGJOB.C.079 D4.2T2 333 TEXTFORM.LOGJOB.C.079 1 LINE 111 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 21:59:43 0 COMMANDS TO *FS TO SAVE ETC:TXTFLOG (3018/166). 0 Referenced by comments of: 3018/80, 3018/166 03018/080 TEXTFORM LOG SA G TXTF:LOG.S D4.2T2 334 TEXTFORM.LOG.SA.080 1 LINE 80 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:29 0 PROGRAM WHICH DECIDES WHEN TO START LOGJOB (3018/79). READS 3018/79. ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/081 TEXTFORM LOG OC G TXTF:LOG.O D4.2T2 335 TEXTFORM.LOG.OC.081 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:30 0 OBJECT OF 3018/80. 03018/082 TEXTFORM LAY.SKEL D G TXTF:LAY.SKEL D4.2T2 336 TEXTFORM.LAY.SKEL.D.082 1 LINE 229 6 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:30 0 A SKELETON, OR SAMPLE, FOR BUILDING LAYOUTS. SEE "HOW TO BUILD A LAYOUT" 1 THU SEP 12/96 23:39:34 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 IN THE INTERNALS MANUAL (3018/4). 03018/083 TEXTFORM LAY.THES D G TXTF:LAY.THES D4.2T2 337 TEXTFORM.LAY.THES.D.083 1 LINE 202 6 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:31 0 THE THESIS LAYOUT. 03018/084 TEXTFORM LAY.TUT D G TXTF:LAY.TUT D4.2T2 338 TEXTFORM.LAY.TUT.D.084 1 LINE 229 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:32 0 THE TUTORIAL LAYOUT. 03018/085 TEXTFORM LAY.NEWS D G TXTF:LAY.NEWS D4.2T2 339 TEXTFORM.LAY.NEWS.D.085 1 LINE 140 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:32 0 THE NEWSLETTER LAYOUT. 03018/086 TEXTFORM LAY.OUT D G TXTF:LAY.OUT D4.2T2 340 TEXTFORM.LAY.OUT.D.086 1 LINE 246 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:33 0 This used to be Layout REPORT, but it is now Layout OUTLINE. 03018/087 TEXTFORM LAY.REF D G TXTF:LAY.REF D4.2T2 341 TEXTFORM.LAY.REF.D.087 1 LINE 229 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:34 0 THE REFERENCE LAYOUT. 03018/088 TEXTFORM LAY.TECH D G TXTF:LAY.TECH D4.2T2 342 TEXTFORM.LAY.TECH.D.088 1 LINE 229 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:34 0 THE TECHNICAL LAYOUT. 03018/089 TEXTFORM LAY.UBC D G TXTF:LAY.UBC D4.2T2 343 TEXTFORM.LAY.UBC.D.089 1 LINE 187 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:35 0 LAYOUT UBC. 03018/090 TEXTFORM LAY.UM D O TXTF:LAY.UM D4.2T2 344 TEXTFORM.LAY.UM.D.090 1 LINE 158 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:36 0 LAYOUT UM. THIS NEEDS SOME CHANGES, BUT IT DOES WORK. 03018/091 TEXTFORM HYPHDICT D G ETC:TXTFHYPHDICT D4.2T2 345 TEXTFORM.HYPHDICT.D.091 1 LINE 22 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:36 ETC:TXTFHYPHDICT 0 THE HYPHENATION DICTIONARY. 03018/092 TEXTFORM WIDTHS D G ETC:TXTFWIDS D4.2T2 346 TEXTFORM.WIDTHS.D.092 1 LINE 1653 152 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:37 ETC:TXTFWIDS 0 WIDTH TABLES "LIBRARY" FOR OUTPUT PROCESSORS, AS CREATED BY TBLGEN (3018/39). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/093 TEXTFORM FUNCDEFS D G TXTF:SYSFUNCS D4.2T2 347 TEXTFORM.FUNCDEFS.D.093 1 LINE 137 8 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:45 03018/094 TEXTFORM NEWOBJ OC G TXTF:NEWSYS D4.2T2 348 TEXTFORM.NEWOBJ.OC.094 1 LINE 32 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:46 0 CONTAINS A COM CARD, AND $CONTINUE WITHS FOR THE OBJECT MODULES IN TEXTFORM. USED BY BUILD (3018/112). 03018/095 TEXTFORM BUILD.SUPP C TXTF:BUILD.SUPP D4.2T2 349 TEXTFORM.BUILD.SUPP.C.095 1 LINE 127 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:47 0 REFERS TO "*FORTG". 03018/096 TEXTFORM ODT.AJ.IWD D TXTF:ODT.AJ.IWD D4.2T2 350 TEXTFORM.ODT.AJ.IWD.D.096 1 LINE 58 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:47 0 GENTAB (3018/39) INPUT FOR ANDERSON-JACOBSON 832 TERMINAL WIDTH/INTERNAL TABLES. 03018/097 TEXTFORM ODT.ALA.IWD D TXTF:ODT.ALA.IWD D4.2T2 351 TEXTFORM.ODT.ALA.IWD.D.097 1 LINE 65 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:48 0 GENTAB (3018/39) INPUT FOR IBM 1403 PRINTER ALA PRINT TRAIN WIDTH/INTERNAL TABLES. 03018/098 TEXTFORM ODT.AMM.IWD D TXTF:ODT.AMM.IWD D4.2T2 352 TEXTFORM.ODT.AMM.IWD.D.098 1 LINE 107 22 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:49 0 GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER MATH DISK WIDTH/INTERNAL TABLES. 03018/099 TEXTFORM ODT.AMS.IWD D TXTF:ODT.AMS.IWD D4.2T2 353 TEXTFORM.ODT.AMS.IWD.D.099 1 LINE 79 17 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:51 0 GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER SCHOOLBOOK DISK WIDTH/INTERNAL TABLES. 03018/100 TEXTFORM ODT.AMT.IWD D TXTF:ODT.AMT.IWD D4.2T2 354 TEXTFORM.ODT.AMT.IWD.D.100 1 LINE 79 15 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:52 0 GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER TIMES-ROMAN DISK WIDTH/INTERNAL TABLES. 03018/101 TEXTFORM ODT.AMU.IWD D TXTF:ODT.AMU.IWD D4.2T2 355 TEXTFORM.ODT.AMU.IWD.D.101 1 LINE 79 17 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:54 0 GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER UNIVERS DISK WIDTH/INTERNAL TABLES. 03018/102 TEXTFORM ODT.APL.IWD D TXTF:ODT.APL.IWD D4.2T2 356 TEXTFORM.ODT.APL.IWD.D.102 1 LINE 67 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:55 0 GENTAB (3018/39) INPUT FOR IBM 1403 PRINTER APL PRINT TRAIN WIDTH/INTERNAL 1 THU SEP 12/96 23:39:34 Page 495 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TABLES. 03018/103 TEXTFORM ODT.CHK D TXTF:ODT.CHK D4.2T2 357 TEXTFORM.ODT.CHK.D.103 1 LINE 84 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:56 03018/104 TEXTFORM ODT.CHSPCN D # TXTF:ODT.CHSPCN Z99491 101 TEXTFORM.ODT.CHSPCN.D.104 1 LINE 56 3 PAGE UQV TXTFGROUP LIFT MAR. 31, 1978 09:09:29 0 No longer required. 03018/105 TEXTFORM ODT.DECWR.IW D TXTF:ODT.DECWR.IW D4.2T2 358 TEXTFORM.ODT.DECWR.IW.D.105 1 LINE 65 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:57 0 GENTAB (3018/39) INPUT FOR DECWRITER TERMINAL WIDTH/INTERNAL TABLES. 03018/106 TEXTFORM ODT.DSECT.CH C TXTF:ODT.DSECT.CH D4.2T2 359 TEXTFORM.ODT.DSECT.CH.C.106 1 LINE 69 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:57 0 COMMANDS TO GENERATE WIDTH AND INTERNAL TABLES FOR OUTPUT DEVICE AND PROOF PROCESSORS. DTC302 TERMINAL SUPPORT IS NOT YET INCLUDED. CONTAINS MANY $CONTINUE WITH RECORDS FOR TEXTFORM SOURCE COMPONENTS (SOME OF WHICH HAVE NOT BEEN DISTRIBUTED BY UQV). 03018/107 TEXTFORM ODT.P1403M.I D TXTF:ODT.P1403M.I D4.2T2 360 TEXTFORM.ODT.P1403M.I.D.107 1 LINE 65 10 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:58 0 GENTAB (3018/39) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR AM748 PHOTOTYPESETTER MATH DISK. 03018/108 TEXTFORM ODT.P1403S.I D # TXTF:ODT.P1403S.I Z99491 105 TEXTFORM.ODT.P1403S.I.D.108 1 LINE 68 7 PAGE UQV TXTFGROUP LIFT MAR. 31, 1978 09:09:33 0 This information is now included in 3018/110 03018/109 TEXTFORM ODT.P1403T.I D # TXTF:ODT.P1403T.I Z99491 106 TEXTFORM.ODT.P1403T.I.D.109 1 LINE 68 7 PAGE UQV TXTFGROUP LIFT MAR. 31, 1978 09:09:34 0 This information is now included in 3018/110 03018/110 TEXTFORM ODT.P1403U.I D TXTF:ODT.P1403U.I D4.2T2 361 TEXTFORM.ODT.P1403U.I.D.110 1 LINE 68 7 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:02:59 0 GENTAB (3018/39) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF DEVICE PROCESSOR FOR AM748 PHOTOTYPESETTER DISKS. 03018/111 TEXTFORM PERMITS C TXTF:PERMITS D4.2T2 362 TEXTFORM.PERMITS.C.111 1 LINE 66 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:00 0 COMMANDS TO CREATE AND PERMIT FILES NEEDED FOR A NEW: VERSION OF TEXTFORM. 03018/112 TEXTFORM BUILD C TXTF:BUILD D4.2T2 363 TEXTFORM.BUILD.C.112 1 LINE 155 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:01 0 Command file to assemble all of TEXTFORM. 1 THU SEP 12/96 23:39:34 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 Referenced by comments of: 3018/94 03018/113 TEXTFORM INTRO CRSE WX TXTF:I.OUT D4.2T2 364 TEXTFORM.INTRO_CRSE.WX.113 1 LINE 69 7 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:01 0 MATERIAL FOR INTRODUCTION TO TEXTFORM COURSE. 03018/114 TEXTFORM ADVANCED CRSE WX TXTF:A.OUT D4.2T2 365 TEXTFORM.ADVANCED_CRSE.WX.114 1 LINE 121 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:02 0 MATERIAL FOR ADVANCES TOPICS IN TEXTFORM COURSE. 03018/115 TEXTFORM PUBLISH CRSE WX TXTF:PUB.OUT D4.2T2 366 TEXTFORM.PUBLISH_CRSE.WX.115 1 LINE 121 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:03 0 MATERIAL FOR COMPUTER ASSISTED PUBLISHING WITH TEXTFORM COURSE. 03018/116 TEXTFORM AM CHAR TEST WX TXTF:AMCST D4.2T2 367 TEXTFORM.AM_CHAR_TEST.WX.116 1 LINE 124 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:03 0 AM748 PHOTOTYPESETTER DESCRIPTION. 03018/117 TEXTFORM APS CHAR TEST WX TXTF:APSCST D4.2T2 368 TEXTFORM.APS_CHAR_TEST.WX.117 1 LINE 100 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:04 0 APS5 PHOTOTYPESETTER DESCRIPTION. 03018/118 TEXTFORM CMDPAC SA G TXTF:CMDPAC.S D4.2T2 369 TEXTFORM.CMDPAC.SA.118 1 LINE 80 23 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:05 0 INTERNAL PAGE COMMAND BUILDER SUBROUTINES. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/119 TEXTFORM PPDPAC SA G TXTF:PPDPAC.S D4.2T2 370 TEXTFORM.PPDPAC.SA.119 1 LINE 72 10 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:07 0 LOGICAL BACKSPACE, TABLE PRINTER, AND OTHER SUBROUTINES. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/120 TEXTFORM LPPAC SA G TXTF:LPPAC.S D4.2T2 371 TEXTFORM.LPPAC.SA.120 1 LINE 80 49 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:08 0 TABLE AND LOGICAL PAGE SUBROUTINES. OBJECT IN SEG2:TEXTFORM (3018/11). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/121 TEXTFORM NUCLEUS DSECT SA G TXTF:NUCLEUS D4.2T2 372 TEXTFORM.NUCLEUS_DSECT.SA.121 1 LINE 80 35 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:11 0 CONTAINS THE NUCLEUS DSECT, WHICH IS COPIED BY MOST PARTS OF TEXTFORM VIA THE TENTER MACRO. 0 Referenced by comments of: 3018/34 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/122 TEXTFORM GBLD SA G TXTF:GBLD D4.2T2 373 TEXTFORM.GBLD.SA.122 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:13 0 CONTAINS GLOBAL SYMBOL DEFINITIONS, WHICH ARE COPIED BY MANY TEXTFORM SUBCOMPONENTS. 0 Referenced by comments of: 3018/23, 3018/123 03018/123 TEXTFORM GBLC SA G TXTF:GBLC D4.2T2 374 TEXTFORM.GBLC.SA.123 1 LINE 80 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:14 0 COMMENTS DESCRIBING SYMBOLS IN GBLD (3018/122). THIS IS COPIED BY MANY TEXTFORM SUBCOMPONENTS. 0 Referenced by comments of: 3018/14, 3018/15, 3018/16, 3018/17, 3018/19, 3018/20, 3018/21, 3018/22, 3018/24, 3018/25, 3018/26, 3018/27, 3018/28, 3018/29, 3018/30, 3018/31, 3018/32, 3018/33, 3018/34, 3018/35, 3018/36, 3018/37, 3018/38, 3018/39, 3018/42, 3018/45, 3018/46, 3018/47, 3018/48, 3018/49, 3018/50, 3018/51, 3018/52, 3018/53, 3018/54, 3018/55, 3018/56, 3018/57, 3018/118, 3018/119, 3018/120, 3018/139, 3018/140, 3018/150, 3018/152, 3018/154, 3018/155, 3018/161 03018/124 TEXTFORM FILES C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.FILES.C.124 D4.2T2 375 TEXTFORM.FILES.C.124 1 LINE 70 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 22:01:19 0 PROTOTYPE FOR COMMAND FILE TO COPY FILES BETWEEN NEW:, OLD:, AND ETC:. USE $EDIT TO PUT IN THE IDS. 03018/125 TEXTFORM XCWID C S1245 TXTFV1 'TXTFRMV1' FSNAME=TEXTFORM.XCWID.C.125 D4.2T2 376 TEXTFORM.XCWID.C.125 1 LINE 72 1 PAGE UQV TXTFGROUP LIFT FEB. 20, 1979 22:01:19 0 COMMANDS TO COPY TXTFWIDS --> TXTFWIDS --> OLDTWIDS (THE WIDTH TABLES). 03018/126 TEXTFORM APSWID D TXTF:APS.WID.D D4.2T2 377 TEXTFORM.APSWID.D.126 1 LINE 400 10 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:24 0 CHARACTER WIDTHS FOR THE APS5 PHOTOTYPESETTER. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/127 TEXTFORM APSWID C TXTF:APSWID.C D4.2T2 378 TEXTFORM.APSWID.C.127 1 LINE 94 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:25 0 COMMANDS TO CREATE GENTAB (3018/39) INPUT FOR THE APS5 PHOTOTYPESETTER. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/128 TEXTFORM APSCOM D TXTF:APSKOM.C D4.2T2 379 TEXTFORM.APSCOM.D.128 1 LINE 94 7 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:25 0 APS5 PHOTOTYPESETTER CHARACTER NAMES. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/129 TEXTFORM APSMERGE SF G TXTF:APSMERG.FS D4.2T2 380 TEXTFORM.APSMERGE.SF.129 1 LINE 80 17 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:26 0 PROGRAM USED IN CONSTRUCTING APS5 PHOTOTYPESETTER WIDTH/INTERNAL TABLES. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 3018/156 03018/130 TEXTFORM APSDUMP SF G TXTF:APSDMP.FS D4.2T2 381 TEXTFORM.APSDUMP.SF.130 1 LINE 70 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:27 03018/131 TEXTFORM APSDUMP SA G TXTF:APSDMP.S D4.2T2 382 TEXTFORM.APSDUMP.SA.131 1 LINE 72 7 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:28 0 ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/132 TEXTFORM APSREPAGE SF G TXTF:APSREPG.FS D4.2T2 383 TEXTFORM.APSREPAGE.SF.132 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:29 03018/133 TEXTFORM LAY.APA D TXTF:LAY.APA D4.2T2 384 TEXTFORM.LAY.APA.D.133 1 LINE 244 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:30 0 LAYOUT APA. 03018/134 TEXTFORM LAY.JPAL D TXTF:LAY.JPAL D4.2T2 385 TEXTFORM.LAY.JPAL.D.134 1 LINE 251 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:31 0 LAYOUT JPALEON. 03018/135 TEXTFORM LAY.NUM D TXTF:LAY.NUM D4.2T2 386 TEXTFORM.LAY.NUM.D.135 1 LINE 254 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:31 0 LAYOUT NUMERATE. (LOCATION OF DOCUMENTATION UNKNOWN.) 03018/136 TEXTFORM LAY.SPI D TXTF:LAY.SPI D4.2T2 387 TEXTFORM.LAY.SPI.D.136 1 LINE 229 5 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:32 0 LAYOUT SPIRES. 03018/137 TEXTFORM LAY.THENUM D TXTF:LAY.THENUM D4.2T2 388 TEXTFORM.LAY.THENUM.D.137 1 LINE 246 6 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:33 0 LAYOUT THESISNUMERATE. 03018/138 TEXTFORM LISTCALCHARS SF G TXTF:LISTPLOT.FS D4.2T2 389 TEXTFORM.LISTCALCHARS.SF.138 1 LINE 73 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:33 0 PROGRAM TO PRODUCE WIDTH/INTERNAL TABLES FOR THE CALCOMP OUPUT DEVICE PROCESSOR (3018/140). READS ETC:PLOTALPHA (615/9). 0 Referenced by comments of: 3018/158 03018/139 TEXTFORM OD.APS5 SA G TXTF:OD.APS5.S D4.2T2 390 TEXTFORM.OD.APS5.SA.139 1 LINE 80 56 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:34 0 OUTPUT DEVICE PROCESSOR FOR THE APS5 PHOTOTYPESETTER. OBJECT IS IN TXTFODS (3018/159). COPIES GBLC (3018/123), GBLS (3018/23), AND XODGETM (3018/147). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/140A TEXTFORM OD.CALCOMP SA G = TXTF:OD.CALCOMP.S D4.2T2 391 TEXTFORM.OD.CALCOMP.SA.140 1 LINE 80 27 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:38 0 CALCOMP OUTPUT DEVICE PROCESSOR. USES UQV'S PLOTLIB; OTHER INSTALLATIONS MAY HAVE TO MAKE MINOR CHANGES SO THAT IT WILL WORK. COPIES XODGETM (3018/147), GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 0 Referenced by comments of: 3018/138 03018/141 TEXTFORM ODT.AMC.IWD D TXTF:ODT.AMC.IWD D4.2T2 392 TEXTFORM.ODT.AMC.IWD.D.141 1 LINE 79 16 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:40 0 GENTAB (3018/39) INPUT FOR AM748 PHOTOTYPESETTER CHELMSFORD DISK WIDTH/INTERNAL TABLES. 03018/142 TEXTFORM ODT.CALC.ID D TXTF:ODT.CALC.ID D4.2T2 393 TEXTFORM.ODT.CALC.ID.D.142 1 LINE 91 37 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:41 0 GENTAB (3018/39) INPUT FOR CALCOMP OUTPUT DEVICE PROCESSOR INTERNAL TABLES. 03018/143 TEXTFORM ODT.SKEL.IWD D TXTF:ODT.SKEL.IWD D4.2T2 394 TEXTFORM.ODT.SKEL.IWD.D.143 1 LINE 65 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:45 0 GENTAB (3018/39) INPUT FOR SKELETON OR SAMPLE WIDTH/INTERNAL TABLES. USEFUL WHEN WRITING A NEW OUTPUT DEVICE PROCESSOR. 03018/144 TEXTFORM ODT.APS.ID D TXTF:ODT.APS.ID D4.2T2 395 TEXTFORM.ODT.APS.ID.D.144 1 LINE 56 157 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:45 0 GENTAB (3018/39) INPUT FOR INTERNAL TABLES FOR APS5 PHOTOTYPESETTER OUTPUT DEVICE PROCESSOR. 03018/145 TEXTFORM ODT.APS.WD D TXTF:ODT.APS.WD D4.2T2 396 TEXTFORM.ODT.APS.WD.D.145 1 LINE 56 153 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:03:56 0 GENTAB (3018/39) INPUT FOR WIDTH TABLES FOR APS5 PHOTOTYPESETTER OUTPUT DEVICE PROCESSOR. 03018/146 TEXTFORM ODT.PAPS.IWD D TXTF:ODT.PAPS.IWD D4.2T2 397 TEXTFORM.ODT.PAPS.IWD.D.146 1 LINE 73 17 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:06 0 GENTAB (3018/39) INPUT FOR INTERNAL TABLES FOR IBM 1403 PRINTER PROOF DEVICE FOR APS5 OUTPUT DEVICE PROCESSOR. 03018/147 TEXTFORM ODPDTESTMACS SA G TXTF:XODTGETM.S D4.2T2 398 TEXTFORM.ODPDTESTMACS.SA.147 1 LINE 80 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:07 0 THIS IS A FILE WHICH CURRENTLY CONTAINS ONLY COMMENTS, BUT WHICH IS INTENDED TO CONTAIN MACROS AND/OR COPY SECTIONS COPIED BY OUTPUT DEVICE AND PROOF DEVICE PROCESSORS. 0 Referenced by comments of: 3018/14, 3018/35, 3018/36, 3018/38, 3018/42, 3018/45, 3018/46, 3018/47, 3018/51, 3018/139, 3018/140 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/148 TEXTFORM AJDITTO SF G TXTF:TDIT.FS D4.2T2 399 TEXTFORM.AJDITTO.SF.148 1 LINE 71 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:08 0 AN *DITTO-LIKE PROGRAM FOR TEXTFORM OUTPUT TO THE ANDERSON-JACOBSON 832 TERMINAL. 03018/149 TEXTFORM AJDITTO WX TXTF:TDIT.TW D4.2T2 400 TEXTFORM.AJDITTO.WX.149 1 LINE 144 2 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:09 0 DOCUMENTATION FOR 3108/148. 03018/150 TEXTFORM WIDCONV SA G TXTF:WIDCONV.S D4.2T2 401 TEXTFORM.WIDCONV.SA.150 1 LINE 80 20 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:09 0 FUNCTION WHICH TAKES WIDTH/INTERNAL TABLES AND ADDS DIRECTORY INFORMATION REQUIRED BY TXTFODCM (3018/43) AND TXTFPDCM (3018/48). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS AND 3=DSECTS. 0 Referenced by comments of: 3018/151, 3018/152 03018/151 TEXTFORM WIDCONV D TXTF:WCONV.D D4.2T2 402 TEXTFORM.WIDCONV.D.151 1 LINE 371 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:11 0 DATA FOR WIDCONV (3018/150). 03018/152 TEXTFORM WIDPAC SA O TXTF:WIDPAC.S D4.2T2 403 TEXTFORM.WIDPAC.SA.152 1 LINE 80 22 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:12 0 CPRDNET (ETC.) USED BY WIDCONV (3018/150). COPIES GBLC (3018/123), AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/153 TEXTFORM ODT.CALC.WD D TXTF:ODT.CALC.WD D4.2T2 404 TEXTFORM.ODT.CALC.WD.D.153 1 LINE 95 37 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:14 0 GENTAB (3018/39) INPUT FOR CALCOMP OUTPUT DEVICE PROCESSOR WIDTH TABLES. 03018/154 TEXTFORM FNCHI SA G TXTF:FNCHI.S D4.2T2 405 TEXTFORM.FNCHI.SA.154 1 LINE 80 16 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:17 0 CONTAINS THE FONTINFO AND CHARINFO SUBROUTINES TO GET FONT OR CHARACTER INFORMATION. OBJECT IN TXTFFNS (3018/160). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 03018/155 TEXTFORM GETDATA SA G TXTF:GTXTDAT.S D4.2T2 406 TEXTFORM.GETDATA.SA.155 1 LINE 80 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:18 0 CONTAINS THE GTXTDAT SUBROUTINES TO READ TEXT FROM GUSER AND PASS IT TO TXTFDRVR (3018/20). OBJECT IN TXTFFNS (3018/160). COPIES GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/156 TEXTFORM APS.DCT.D D TXTF:APS.DCT.D D4.2T2 407 TEXTFORM.APS.DCT.D.D.156 1 LINE 279 4 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:19 0 DATA TO APSMERG (3018/129). 03018/157 TEXTFORM CALCWID C TXTF:CALCWID.C D4.2T2 408 TEXTFORM.CALCWID.C.157 1 LINE 65 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:20 03018/158 TEXTFORM CALC.ID D TXTF:CALC.ID D4.2T2 409 TEXTFORM.CALC.ID.D.158 1 LINE 85 45 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:20 0 DATA TO LISTCALCHARS (3018/138). SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/159 TEXTFORM TXTFODS OL O ETC:TXTFODS D4.2T2 410 TEXTFORM.TXTFODS.OL.159 1 LINE 7828 32 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:23 ETC:TXTFODS 0 OBJECT OF ALL OUTPUT DEVICE PROCESSORS. 0 Referenced by comments of: 3018/14, 3018/36, 3018/42, 3018/45, 3018/46, 3018/47, 3018/51, 3018/139, 3018/161 03018/160 TEXTFORM TXTFFNS OL G ETC:TXTFFNS D4.2T2 411 TEXTFORM.TXTFFNS.OL.160 1 LINE 1805 3 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:25 ETC:TXTFFNS 0 CONTAINS THE FONTINFO, CHARINFO AND TXTDAT SUBROUTINES. SOURCE IN 3018/154 AND 3018/155. 0 Referenced by comments of: 3018/154, 3018/155 03018/161 TEXTFORM OD.DTC302 SA O TXTF:OD.DTC302.S D4.2T2 412 TEXTFORM.OD.DTC302.SA.161 1 LINE 72 16 PAGE UM LIFT APR. 02, 1979 02:04:26 0 OUTPUT DEVICE PROCESSOR FOR A DTC302 "DAISY-WHEEL" TERMINAL. HAS 1/60 INCH HORIZONTAL. THE FOLLOWING FEATURES ARE NOT YET IMPLEMENTED: SUBSCRIPTS, SUPERSCRIPTS, 1/48 INCH VERTICAL UNIT, SPECIAL CHARACTERS, MID-PAGE WHEEL CHANGES, AND OTHERS. OBJECT IN TXTFODS (3018/159). ASSEMBLE USING *ASMH WITH 2=MACROS (3018/60), 3=DSECTS (3018/61). COPIES GBLC (3018/123) AND GBLS (3018/23). 03018/162 TEXTFORM DTC302 TABLES D TXTF:WIDDTC302 D4.2T2 413 TEXTFORM.DTC302_TABLES.D.162 1 LINE 64 1 PAGE UM LIFT APR. 02, 1979 02:04:32 0 WIDTH TABLES FOR DTC302. PROCESS WITH TBLGEN (3018/39). NEEDS IMPROVEMENTS, BUT USABLE AS IS. 03018/163 TEXTFORM OD.TBLGEN OC G TXTF:OD.TBLGEN.O D4.2T2 414 TEXTFORM.OD.TBLGEN.OC.163 1 LINE 80 11 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:33 0 OBJECT OF 3018/39. EXECUTES AS A TEXTFORM FUNCTION. SEE THE INTERNALS 1 THU SEP 12/96 23:39:34 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 MANUAL (3018/4) FOR A DESCRIPTION. 03018/164 TEXTFORM WIDCONV OC G TXTF:WIDCONV.O D4.2T2 415 TEXTFORM.WIDCONV.OC.164 1 LINE 80 9 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:34 0 OBJECT OF 3018/150. EXECUTES AS A TEXTFORM FUNCTION. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/165 TEXTFORM OD.DOC OC G TXTF:OD.DOC.O D4.2T2 416 TEXTFORM.OD.DOC.OC.165 1 LINE 80 10 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:35 0 OBJECT OF 3018/37. EXECUTES AS A TEXTFORM FUNCTION. SEE THE INTERNALS MANUAL (3018/4) FOR A DESCRIPTION. 03018/166 TEXTFORM TXTFLOG D # MTS:TST.EMPTY UQV TXTFGROUP LIFT ETC:TXTFLOG 0 LOG FILE WRITTEN BY *TEXTFORM FOR EACH RUN OF *TEXTFORM BY A USER. CONTENTS SAVED ON TAPE BY WEEKLY PROCEDURE. SEE LOGJOB (3018/79). THIS SHOULD BE PERMITTED WE (PKEY=NEW:TEXTFORM,PKEY=*TEXTFORM,PKEY=OLD:TEXTFORM). 0 Referenced by comments of: 3018/79, 3018/167, 3018/169, 3018/170 03018/167 TEXTFORM LOG SA G TXTF:LOG(1,999) D4.2T2 417 TEXTFORM.LOG.SA.167 1 LINE 69 3 PAGE UM LIFT LIFT APR. 02, 1979 02:04:36 0 THIS IS THE LOGSAVING PROGRAM DEVELOPED AND USED BY UM. IT DETERMINES IF ETC:TXTFLOG (3018/166), THE TEXTFORM STATISTICS FILE, SHOULD BE SAVED, BASED ON THE TIME OF THE LAST SAVE. IF THE PROGRAM DETERMINES THAT THE STATISTICS FILE SHOULD BE SAVED, IT SUBMITS A BATCH JOB, 3018/169, WHICH WILL RUN THE LOGSAVE PROGRAM, 3018/170, TO SAVE THE STATISTICS FILE ON TAPE. IT ALSO REPORTS ERRORS WHICH OCCURRED WHILE SAVING ETC:TXTFLOG. 03018/168 TEXTFORM LOG OC G TXTF:LOG(1000) D4.2T2 418 TEXTFORM.LOG.OC.168 1 LINE 80 2 PAGE UM LIFT LIFT APR. 02, 1979 02:04:36 03018/169 TEXTFORM LOGJOB C G TXTF:LOGSAVEJOB D4.2T2 419 TEXTFORM.LOGJOB.C.169 1 LINE 53 1 PAGE UM LIFT LIFT APR. 02, 1979 02:04:37 0 BATCH JOB TO SAVE ETC:TXTFLOG (3018/166), THE TEXTFORM STATISTICS FILE, ON TAPE. THESE COMMANDS RUN THE LOGSAVE PROGRAM (3018/4). NEGATIVE LINE NUMBERS CONTAIN INFORMATION USED BY LOGSAVE (3018/170). THE PASSWORD MUST BE SUPPLIED ON LINE 2 AND THE MOUNT COMMAND ON LINE -1 MUST BE MODIFIED BEFORE IT IS ACTUALLY USED. 03018/170 TEXTFORM LOGSAVE SA G TXTF:LOGSAVE(1,999) D4.2T2 420 TEXTFORM.LOGSAVE.SA.170 1 LINE 67 4 PAGE UM LIFT LIFT APR. 02, 1979 02:04:37 0 PROGRAM TO SAVE ETC:TXTFLOG (3018/166), THE TEXTFORM STATISTICS FILE, ON TAPE. THE PROGRAM IS RUN BY COMMANDS IN 3018/169. 0 Referenced by comments of: 3018/169 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03018/171 TEXTFORM LOGSAVE OC G TXTF:LOGSAVE(1000) D4.2T2 421 TEXTFORM.LOGSAVE.OC.171 1 LINE 80 3 PAGE UM LIFT LIFT APR. 02, 1979 02:04:38 03018/172 TEXTFORM BUGS P TXTF:TEXTFORM.BUG D4.2T2 422 TEXTFORM.BUGS.P.172 1 LINE 68 1 PAGE UQV TXTFGROUP LIFT APR. 02, 1979 02:04:39 0 LIST OF SOME VERSION 1 BUGS. 03018/173 TEXTFORM INSTNOTES WX TXTF:INSTNOTES D4.2T2 423 TEXTFORM.INSTNOTES.WX.173 1 LINE 69 4 PAGE UM LIFT APR. 02, 1979 02:04:40 0 NOTES COMPILED WHILE INSTALLING VERSION 1 OF TEXTFORM AT UM. 03023/001 *ASSIST SERVICE MODULE SA G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE2 D4T3 724 ASSIST.SERVICE_MODULE.SA.003 1 LINE 80 143 PAGE UQV BODWIN JUNE 22, 1977 22:07:17 0 BASE SOURCE FOR ASSIST SERVICE MODULE (I.E., I/O, MAIN PROGRAM, INTERRUPTS, ETC.). 03023/002 *ASSIST SERVICE MODULE UU G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASSIST2.U 62 D4.2T2 424 ASSIST.SERVICE_MODULE.UU.002 1 LINE 72 30 PAGE UQV BODWIN DEC. 17, 1978 15:40:57 0 UPDATE TO BE APPLIED TO 3023/1 TO YIELD SERVICE MODULE SOURCE. ASSEMBLE UPDATED SOURCE USING ASSISTMACLIB (3023/10). 03023/003 *ASSIST ASSEMBLER SA G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE3 D4T3 726 ASSIST.ASSEMBLER.SA.005 1 LINE 80 185 PAGE UQV BODWIN JUNE 22, 1977 22:07:35 0 BASE SOURCE FOR ASSEMBLER OF THE ASSIST PACKAGE. 03023/004 *ASSIST ASSEMBLER UU G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASSIST3.U 63 D4.2T2 425 ASSIST.ASSEMBLER.UU.004 1 LINE 72 7 PAGE UQV BODWIN DEC. 17, 1978 15:41:04 0 UPDATE TO BE APPLIED TO 3023/3 TO YIELD ASSEMBLER SOURCE. ASSEMBLE UPDATED SOURCE USING ASSISTMACLIB (3023/10). 03023/005 *ASSIST MACRO PHASE SA G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SOURCE5 D4T3 728 ASSIST.MACRO_PHASE.SA.007 1 LINE 80 139 PAGE UQV BODWIN JUNE 22, 1977 22:07:59 0 BASE SOURCE FOR MACRO PROCESSOR OF ASSIST PACKAGE. 03023/006 *ASSIST MACRO PHASE UU G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASSIST5.U 64 D4.2T2 426 ASSIST.MACRO_PHASE.UU.006 1 LINE 72 1 PAGE UQV BODWIN DEC. 17, 1978 15:41:09 0 UPDATE TO BE APPLIED TO 3023/5 TO YIELD MACRO PROCESSOR SOURCE. ASSEMBLE UPDATED SOURCE USING ASSISTMACLIB (3023/10). 0 Referenced by comments of: 3023/11 03023/007 *ASSIST SIMULATOR SA G SIM S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.SIM.S D4.2T2 427 ASSIST.SIMULATOR.SA.007 1 LINE 80 74 PAGE UQV BODWIN FEB. 12, 1979 16:01:18 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03023/008 *ASSIST SIMULATOR UU G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SIMULATOR.U 65 D4.2T2 428 ASSIST.SIMULATOR.UU.008 1 LINE 72 5 PAGE UQV BODWIN DEC. 17, 1978 15:41:37 0 UPDATE TO BE APPLIED TO 3023/7 TO YIELD SIMULATOR SOURCE. 03023/009 *ASSIST INTERFACE SA G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=SIMINT.S D4.2T2 429 ASSIST.INTERFACE.SA.009 1 LINE 80 5 PAGE UQV BODWIN DEC. 17, 1978 15:50:37 0 INTERFACE TO FIX (1002) FOR ASSIST I/0. COPIES FIODSECT (1002/19). 03023/010 *ASSIST MACRO LIB SM G S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASSISTMACLIB 70 D4.2T2 430 ASSIST.MACRO_LIB.SM.010 1 LINE 80 108 PAGE UQV BODWIN DEC. 18, 1978 15:22:02 0 MACRO LIBRARY USED BY UPDATED 3023/1, 3023/3, AND 3023/5. INCLUDES THE OLD (NO LONGER DISTRIBUTED) SOURCE1 (SUNDRIES) AS A COPY SECTION. OLD SOURCE1 UPDATES INCLUDED. 0 Referenced by comments of: 3023/2, 3023/4, 3023/6 03023/011 *ASSIST *ASSIST OE G *ASSIST D4.2T2 431 ASSIST.*ASSIST.OE.011 1 SEQ 28756 17 PAGE UQV BODWIN APR. 02, 1979 02:07:31 *ASSIST 0 CURRENT, LINKEDITED ASSIST OBJECT COMPRISED OF OBJECT FROM 3023/2, 3023/4, 3023/6, 3023/8, 3023/9, AND 3023/10. THE SYSTEM MACRO LIBRARY FEATURE (3023/6) REFERENCES THE FILE *ASSISTMAC (3023/12). HAS A $CONTINUE WITH *LIBRARY RECORD. 03023/012 *ASSIST *ASSISTMAC SM *ASSISTMAC D4T3 734 ASSIST.*ASSISTMAC.SM.013 1 LINE 72 5 PAGE UQV BODWIN JULY 29, 1977 00:39:31 *ASSISTMAC 0 ASSIST "SYSTEM" MACRO LIBRARY, REFERENCED BY 3023/11. 0 Referenced by comments of: 3023/11 03023/013 *ASSIST TEST PROGRAMS SA S0128 ARCHIV 'ASSIST ARCHIVE' FSNAME=ASS.PROGS D4T3 735 ASSIST.TEST_PROGRAMS.SA.014 1 LINE 73 9 PAGE UQV BODWIN JUNE 10, 1977 13:20:14 0 TEST PROGRAMS TO EXERCISE ALL FEATURES OF ASSIST. 03024/001 BENCHMARK - TERMINAL DSR SA G BNCH:DSR.S D4.2T2 432 BENCHMARK_-_TERMINAL.DSR.SA.001 1 LINE 72 30 PAGE UM MTA APR. 02, 1979 02:07:32 BNCH:DSR.S 0 BENCHMARK DSR. ALLOWS SIMULATION OF MANY TERMINAL USERS ENTERING INPUT AS SPECIFIED IN *SCRIPTN AT A SPECIFIED TYPING RATE WITH SPECIFIED "THINK" TIMES AND WITH OUTPUT (THROWN AWAY) AT A SPECIFIED RATE. COPIES COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:LLMPSEQU(100) (087), COPY:CDCADSECT (3024/25), *GDINFODSECT (594), AND *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728). 0 Referenced by comments of: 3024/23, 3024/30 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03024/002 BENCHMARK - TERMINAL DSR OC G *BNCHRTN D4.2T2 433 BENCHMARK_-_TERMINAL.DSR.OC.002 1 LINE 7356 3 PAGE UM MTA APR. 02, 1979 02:07:38 *BNCHRTN 03024/003 BENCHMARK - TERMINAL MONITOR SA G BNCH:MONITOR.S D4.2T2 434 BENCHMARK_-_TERMINAL.MONI.SA.003 1 LINE 71 10 PAGE UM MTA APR. 02, 1979 02:07:38 BNCH:MONITOR.S 0 PROGRAM TO CONTROL BENCHMARK RUNS. COPIES COPY:CDCADSECT (3024/25) AND COPY:JOBSTA (413/9). 0 Referenced by comments of: 3024/23, 3024/27, 3024/29 03024/004 BENCHMARK - TERMINAL MONITOR OC G BNCH:MONITOR D4.2T2 435 BENCHMARK_-_TERMINAL.MONI.OC.004 1 LINE 1668 7 PAGE UM MTA APR. 02, 1979 02:07:40 BNCH:MONITOR 03024/005 BENCHMARK - TERMINAL ANALYSIS SF O BNCH:ANALYSIS.S D4.2T2 436 BENCHMARK_-_TERMINAL.ANAL.SF.005 1 LINE 73 3 PAGE UM MTA APR. 02, 1979 02:07:41 BNCH:ANALYSIS.S 0 PROGRAM TO PRINT THE DATA COLLECTED BY 3024/1. 03024/006 BENCHMARK - TERMINAL ANALYSIS OC O BNCH:ANALYSIS D4.2T2 437 BENCHMARK_-_TERMINAL.ANAL.OC.006 1 LINE 1668 4 PAGE UM MTA APR. 02, 1979 02:07:42 BNCH:ANALYSIS 03024/007 BENCHMARK - TERMINAL SCRIPT POINTER D *SCRIPTPTRFILE D4.2T2 438 BENCHMARK_-_TERMINAL.SCRI.D.007 1 LINE 24 1 PAGE UM MTA APR. 02, 1979 02:07:42 *SCRIPTPTRFILE 0 DATA FILE USED BY MTS TO MAP THE PSEUDO-DEVICE NAMES *SN* INTO SCRIPT FILE NAMES. 03024/008 BENCHMARK - TERMINAL SCRIPT 1 C *SCRIPT1 D4.2T2 439 BENCHMARK_-_TERMINAL.SCRI.C.008 1 LINE 90 3 PAGE UM MTA APR. 02, 1979 02:07:43 *SCRIPT1 0 SCRIPT WHICH USES EDITOR FAST INSERT MODE. 03024/009 BENCHMARK - TERMINAL SCRIPT 2 C *SCRIPT2 D4.2T2 440 BENCHMARK_-_TERMINAL.SCRI.C.009 1 LINE 40 1 PAGE UM MTA APR. 02, 1979 02:07:44 *SCRIPT2 0 SCRIPT WHICH USES THE EDITOR. 03024/010 BENCHMARK - TERMINAL SCRIPT 3 C *SCRIPT3 D4.2T2 441 BENCHMARK_-_TERMINAL.SCRI.C.010 1 LINE 56 1 PAGE UM MTA APR. 02, 1979 02:07:44 *SCRIPT3 0 SCRIPT WHICH ENTERS, COMPILES, AND RUNS THE ETEST (COMPUTE E TO 2500 DECIMAL PLACES) PROGRAM. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03024/011 BENCHMARK - TERMINAL SCRIPT 4 C *SCRIPT4 D4.2T2 442 BENCHMARK_-_TERMINAL.SCRI.C.011 1 LINE 58 1 PAGE UM MTA APR. 02, 1979 02:07:45 *SCRIPT4 0 INTERACTIVE FORTRAN (IF) SCRIPT. 03024/012 BENCHMARK - TERMINAL SCRIPT 5 C *SCRIPT5 D4.2T2 443 BENCHMARK_-_TERMINAL.SCRI.C.012 1 LINE 86 1 PAGE UM MTA APR. 02, 1979 02:07:45 *SCRIPT5 0 ASSEMBLER SCRIPT. 03024/013 BENCHMARK - TERMINAL SCRIPT 5 DATA SA BNCH:WSG.TAPE D4T3 748 BENCHMARK.SCRIPT_5_DATA.SA.013 1 LINE 72 47 PAGE UM MTA JULY 29, 1977 00:40:14 BNCH:WSG.TAPE 0 ASSEMBLY SOURCE FOR PROGRAM ASSEMBLED BY SCRIPT 5. 03024/014 BENCHMARK - TERMINAL SCRIPT 6 C *SCRIPT6 D4.2T2 444 BENCHMARK_-_TERMINAL.SCRI.C.014 1 LINE 40 1 PAGE UM MTA APR. 02, 1979 02:07:46 *SCRIPT6 0 FAST FOURIER TRANSFORM SCRIPT. 03024/015 BENCHMARK - TERMINAL SCRIPT 6 PGM SF G S0792 WSGFS FSNAME=FFT.SF D4T3 750 BENCHMARK.SCRIPT_6_PGM.SF.015 1 LINE 71 6 PAGE UM MTA AUG. 28, 1975 17:00:57 0 DOUBLE PRECISION FFT PROGRAM IN FTN H WHICH IS RUN BY SCRIPT 6. 0 Referenced by comments of: 3024/17 03024/016 BENCHMARK - TERMINAL SCRIPT 6 PGM OE G BNCH:FFT.HD D4T3 751 BENCHMARK.SCRIPT_6_PGM.OE.016 1 SEQ 1440 2 PAGE UM MTA JULY 29, 1977 00:42:31 BNCH:FFT.HD 03024/017 BENCHMARK - TERMINAL SCRIPT 6 DATA D BNCH:FFT.DATA D4T3 752 BENCHMARK.SCRIPT_6_DATA.D.017 1 LINE 11 1 PAGE UM MTA JULY 29, 1977 00:42:31 BNCH:FFT.DATA 0 DATA FOR SCRIPT 6 FFT PROGRAM (3024/15). 03024/018 BENCHMARK - TERMINAL SCRIPT 7 C *SCRIPT7 D4.2T2 445 BENCHMARK_-_TERMINAL.SCRI.C.018 1 LINE 51 1 PAGE UM MTA APR. 02, 1979 02:07:47 *SCRIPT7 0 BIG FORTRAN SCRIPT. 03024/019 BENCHMARK - TERMINAL SCRIPT 7 PGM SF G BNCH:SCRIPT7PGM D4.2T2 446 BENCHMARK_-_TERMINAL.SCRI.SF.019 1 LINE 72 4 PAGE UM MTA APR. 02, 1979 02:07:47 BNCH:SCRIPT7PGM 0 PROGRAM USED BY SCRIPT 7. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03024/020 BENCHMARK - TERMINAL SCRIPT 8 C *SCRIPT8 D4.2T2 447 BENCHMARK_-_TERMINAL.SCRI.C.020 1 LINE 69 1 PAGE UM MTA APR. 02, 1979 02:07:48 *SCRIPT8 0 TAXIR SCRIPT. 03024/021 BENCHMARK - TERMINAL SCRIPT 8 DATA D BNCH:USE.T D4.2T2 448 BENCHMARK_-_TERMINAL.SCRI.D.021 1 LINE 32764 92 PAGE UM MTA APR. 02, 1979 02:07:49 BNCH:USE.T 03024/022 BENCHMARK - TERMINAL SCRIPT 9 C *SCRIPT9 D4.2T2 449 BENCHMARK_-_TERMINAL.SCRI.C.022 1 LINE 36 1 PAGE UM MTA APR. 02, 1979 02:07:53 *SCRIPT9 0 PAGELOAD SCRIPT. NOT NORMALLY USED IN TERMINAL BENCHMARKS. 03024/023 BENCHMARK - TERMINAL COMM AREA SA G BNCH:SEG2.S D4.2T2 450 BENCHMARK_-_TERMINAL.COMM.SA.023 1 LINE 69 1 PAGE UM MTA APR. 02, 1979 02:07:54 BNCH:SEG2.S 0 COMMUNICATIONS AREA USED BY BNCH:DSR.S (3024/1) AND BNCH:MONITOR.S (3024/3). MUST BE LOADED INTO SHARED VM PRIOR TO RUNNING BNCH:MONITOR. COPIES COPY:CDCADSECT (3024/25). 03024/024 BENCHMARK - TERMINAL COMM AREA OC G BNCH:SEG2 D4.2T2 451 BENCHMARK_-_TERMINAL.COMM.OC.024 1 LINE 80 4 PAGE UM MTA APR. 02, 1979 02:07:55 BNCH:SEG2 03024/025 BENCHMARK - TERMINAL CDCADSECT SA G COPY:CDCADSECT D4T3 755 BENCHMARK.CDCADSECT.SA.020 1 LINE 60 1 PAGE UM MTA JULY 29, 1977 00:42:39 COPY:CDCADSECT 0 COPY SECTION DESCRIBING THE FORMAT OF AN ENTRY IN THE COMMUNICATIONS AREA. 0 Referenced by comments of: 3024/1, 3024/3, 3024/23 03024/026 BENCHMARK - TERMINAL SOURCE FILE C BNCH:SCR D4.2T2 452 BENCHMARK_-_TERMINAL.SOUR.C.026 1 LINE 76 2 PAGE UM MTA APR. 02, 1979 02:07:55 BNCH:SCR 0 COMMAND FILE TO RUN A TERMINAL BENCHMARK. 0 Referenced by comments of: 3024/27 03024/027 BENCHMARK - TERMINAL START COMMANDS D BNCH:CMDS D4.2T2 453 BENCHMARK_-_TERMINAL.STAR.D.027 1 LINE 9 1 PAGE UM MTA APR. 02, 1979 02:07:56 BNCH:CMDS 0 BNCH:MONITOR (3024/3) START COMMANDS, USED BY BNCH:SCR (3024/26). 03024/028 BENCHMARK - TERMINAL TEST SCRIPTS C BNCH:TEST D4.2T2 454 BENCHMARK_-_TERMINAL.TEST.C.028 1 LINE 62 1 PAGE UM MTA APR. 02, 1979 02:07:57 BNCH:TEST 0 COMMAND FILE TO PRODUCE A PRINTED COPY OF THE EXECUTION OF ONE OF THE SCRIPTS 1 THU SEP 12/96 23:39:34 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 TO CHECK THAT IT WORKS CORRECTLY. 03024/029 BENCHMARK - TERMINAL MON WRITEUP WF BNCH:MONITOR.F D4.2T2 455 BENCHMARK_-_TERMINAL.MON.WF.029 1 LINE 129 5 PAGE UM MTA APR. 02, 1979 02:07:57 BNCH:MONITOR.F 0 WRITEUP DESCRIBING BNCH:MONITOR (3024/3). 03024/030 BENCHMARK - TERMINAL DSR WRITEUP WF BNCH:DSR.F D4.2T2 456 BENCHMARK_-_TERMINAL.DSR.WF.030 1 LINE 97 6 PAGE UM MTA APR. 02, 1979 02:07:58 BNCH:DSR.F 0 WRITEUP DESCRIBING THE BENCHMARK DSR (3024/1). 03024/031 BENCHMARK - TERMINAL STATSUM SG G BNCH:STATSUM.S D4.2T2 457 BENCHMARK_-_TERMINAL.STAT.SG.031 1 LINE 104 3 PAGE UM MTA APR. 02, 1979 02:07:59 BNCH:STATSUM.S 0 PROGRAM TO READ *STATISTICS DATA AND PRODUCE MEAN, SD, MIN, AND MAX FIGURES BY SCRIPT FOR CPU TIME, VMI, WAIT VMI, AND ELAPSED TIME. CALLS THE PAR SUBR (687/1), THE JVCT SUBR (674), AND THE BECORI SUBR WHICH IS PART OF NAAS:IMSL (NOT CURRENTLY DISTRIBUTED). 03024/032 BENCHMARK - TERMINAL STATSUM OE G BNCH:STATSUM D4.2T2 458 BENCHMARK_-_TERMINAL.STAT.OE.032 1 LINE 3770 5 PAGE UM MTA APR. 02, 1979 02:08:00 BNCH:STATSUM 03024/033 BENCHMARK - TERMINAL BNCH:STATS D # MTS:TST.EMPSEQWE UM MTA BNCH:STATS 0 FILE USED TO COLLECT DATA DURING BENCHMARK RUNS. 03024/034 BENCHMARK - TERMINAL BNCH:OUTPUT D # MTS:TST.EMPSEQWE UM MTA BNCH:OUTPUT 0 FILE USED TO SAVE OUTPUT WHILE TESTING BENCHMARK SCRIPTS. 03024/035 BENCHMARK - TERMINAL BNCH:TSTATS D # MTS:TST.EMPSEQWE UM MTA BNCH:TSTATS 0 FILE USED TO SAVE DSR STATISTICS WHILE TESTING BENCHMARK SCRIPTS. 03024/036 BENCHMARK - TERMINAL CRE FM INPUT C BNCH:CREFMINPUT D4.2T2 459 BENCHMARK_-_TERMINAL.CRE.C.036 1 LINE 67 1 PAGE UM MTA APR. 02, 1979 02:08:01 BNCH:CREFMINPUT 0 COMMAND FILE THAT MAY BE $SOURCED TO TO CREATE FILEMOVE (1020/1) INPUT AS THE FIRST STEP IN MOVING FROM A ONE-PACK TO A MULTI-PACK SYSTEM. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 03024/037 BENCHMARK - TERMINAL LISTFILES SA G BNCH:LISTFILES.S D4.2T2 460 BENCHMARK_-_TERMINAL.LIST.SA.037 1 LINE 72 2 PAGE UM MTA APR. 02, 1979 02:08:02 BNCH:LISTFILES.S 0 PROGRAM TO PROCURE A LIST OF ALL FILES IN THE FILE SYSTEM ON SPUNCH. ASSEMBLE USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 3024/39 03024/038 BENCHMARK - TERMINAL LISTFILES OC G BNCH:LISTFILES D4.2T2 461 BENCHMARK_-_TERMINAL.LIST.OC.038 1 LINE 80 1 PAGE UM MTA APR. 02, 1979 02:08:02 BNCH:LISTFILES 03024/039 BENCHMARK - TERMINAL ASSIGNVOL SS G BNCH:ASSIGNVOL.S D4.2T2 462 BENCHMARK_-_TERMINAL.ASSI.SS.039 1 LINE 66 1 PAGE UM MTA APR. 02, 1979 02:08:03 BNCH:ASSIGNVOL.S 0 PROGRAM WHICH TAKES A VOLUME NAME PREFIX AND MAXIMUM VOLUME NUMBER PLUS THE FILE LIST PRODUCED BY THE LISTFILE PROGRAM (3024/37) AND PROCURES OUTPUT THAT CAN BE USED AS INPUT TO FILEMOVE (1020/1). 03024/040 BENCHMARK - TERMINAL ASSIGNVOL OC G BNCH:ASSIGNVOL D4.2T2 463 BENCHMARK_-_TERMINAL.ASSI.OC.040 1 LINE 80 4 PAGE UM MTA APR. 02, 1979 02:08:04 BNCH:ASSIGNVOL 0 HAS A $CONTINUE WITH *SPITLIB CARD. 03025 *SENSEDSECT SA G *SENSEDSECT D4.2T2 464 SENSEDSECT..SA. 1 LINE 80 4 PAGE SFU BENET DWB APR. 02, 1979 02:08:04 *SENSEDSECT 0 UQV DSECT FOR MAG TAPE SNS DATA -- NOW EXTENDED (GROSSLY) BY UM TO ADD SNS DATA FOR *...* AND TERMINAL DSR'S. 0 Referenced by comments of: 135/1, 314/1, 400/1, 400/14, 489/1, 513/1, 545/3, 553/1, 629/1, 3024/1 03030 VAMREC # (SEE COMP 682) UQV 04000/001 GATE D4 MASTER SA G GATE S0917 MTSSD4 'MTS MASTER D4.0' POSN=GATE D4T3 764 GATE.D4_MASTER.SA.001 1 SEQ 80 17 PAGE UM MTS HELFFRICH JULY 29, 1977 00:44:13 0 GATE IS A NEW COMPONENT WHICH REPLACES LCSYMBOL (043). THIS COMPONENT 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:RMGRMACLIB (1054/1). 0 Referenced by comments of: 4000/6 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 04000/002B GATE UPDATE UC G MTS:GATEUPD RD16T1 294 GATE.UPDATE.UC.002 1 LINE 90 4 PAGE UM MTS HELFFRICH JULY 12, 1979 23:34:40 MTS.:GATEUPD 0 UPDATE TO PRODUCE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF UPDATE WITH THE D4.2 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=GATE. 04000/003B GATE OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 04000/004B GATE L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=GATE.LIST 12 RD16T1 295 GATE..L.004 1 SEQ 133 454 PAGE UM MTS HELFFRICH JULY 12, 1979 23:34:53 04000/005 GATE STAT FILES P S1200 RD15T1 VLO FSNAME=GATE.STAT_FILES.P.007(1) 161 D4.2T2 465 GATE.STAT_FILES.P.005 1 LINE 73 3 PAGE UM HELFFRICH SEP. 27, 1978 00:00:43 0 SUBCOMPONENTS 4000/5 THROUGH 4000/46 COMPRISE THE UNIVERSITY OF MICHIGAN GATE STATISTICS COLLECTION FACILITY. STAT FILES (4000/5) IS A PRINT FILE CONTAINING A LIST OF ALL FILES, TOGETHER WITH A DESCRIPTION OF THEIR CONTENTS, WHICH MAKE UP THE COLLECTION FACILITY. 0 Referenced by comments of: 4000/5 04000/006 GATE STAT UPDATE UC G S1200 RD15T1 VLO FSNAME=GATE.STAT_UPDATE.UC.008(1) 162 D4.2T2 466 GATE.STAT_UPDATE.UC.006 1 LINE 68 3 PAGE UM HELFFRICH SEP. 27, 1978 00:00:45 0 CONTAINS UPDATE DECKS FOR APPLYING THE GATE STATISTICS COLLECTION FACILITY TO THE GATE (4000/1). ALSO UPDATES THE GATE SOURCE TO WORK WITH ASSEMBLER H. 04000/007 GATE STATON SA G S1200 RD15T1 VLO FSNAME=GATE.STATON.SA.009(1) 163 D4.2T2 467 GATE.STATON.SA.007 1 LINE 69 3 PAGE UM HELFFRICH SEP. 27, 1978 00:00:47 0 CONTAINS ASSEMBLY LANGUAGE SOURCE FOR THE STATON PROGRAM, WHICH ACTIVATES THE COUNTERS IN THE GATE. STATON CALLS THE LOADSVM SUBROUTINE ENTRY POINT TO PISTLE (559/2). 04000/008 GATE STATON OC G S1200 RD15T1 VLO FSNAME=GATE.STATON.OC.010(1) 164 D4.2T2 468 GATE.STATON.OC.008 1 LINE 80 1 PAGE UM HELFFRICH SEP. 27, 1978 00:00:49 0 04000/009 GATE GATESTAT CSECT SA G S1200 RD15T1 VLO FSNAME=GATE.GATESTAT_CSECT.SA.011(1) 165 D4.2T2 469 GATE.GATESTAT_CSECT.SA.009 1 LINE 72 1 PAGE UM HELFFRICH SEP. 27, 1978 00:00:51 0 THIS IS THE ASSEMBLY LANGUAGE SOURCE FOR THE GATESTAT CSECT, WHICH IS LOADED INTO SHARED VM TO PROVIDE A PLACE FOR THE GATE TO MAINTAIN ITS USE COUNTERS. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 04000/010 GATE GATESTAT CSECT OC G S1200 RD15T1 VLO FSNAME=GATE.GATESTAT_CSECT.OC.012(1) 166 D4.2T2 470 GATE.GATESTAT_CSECT.OC.010 1 LINE 80 3 PAGE UM HELFFRICH SEP. 27, 1978 00:00:53 04000/011 GATE STATOFF SA G S1200 RD15T1 VLO FSNAME=GATE.STATOFF.SA.013(1) 167 D4.2T2 471 GATE.STATOFF.SA.011 1 LINE 68 2 PAGE UM HELFFRICH SEP. 27, 1978 00:00:55 0 THIS IS THE ASSEMBLY LANGUAGE SOURCE FOR THE STATOFF PROGRAM, WHICH IS USED TO DEACTIVATE THE USE COUNTERS IN THE GATE. COPIES COPY:SYSDEFS. 04000/012 GATE STATOFF OC G S1200 RD15T1 VLO FSNAME=GATE.STATOFF.OC.014(1) 168 D4.2T2 472 GATE.STATOFF.OC.012 1 LINE 80 1 PAGE UM HELFFRICH SEP. 27, 1978 00:00:57 04000/013 GATE STAT REC MAIN SF G S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_MAIN.SF.015(1) 169 D4.2T2 473 GATE.STAT_REC_MAIN.SF.013 1 LINE 63 1 PAGE UM HELFFRICH SEP. 27, 1978 00:00:59 0 FORTRAN SOURCE FOR THE MAIN PROGRAM OF THE GATE STATISTICS RECORDING SYSTEM. 04000/014 GATE STAT REC MAIN OC G S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_MAIN.OC.016(1) 170 D4.2T2 474 GATE.STAT_REC_MAIN.OC.014 1 LINE 90 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:01 04000/015 GATE GETUSR SUBR SF G S1200 RD15T1 VLO FSNAME=GATE.GETUSR_SUBR.SF.017(1) 171 D4.2T2 475 GATE.GETUSR_SUBR.SF.015 1 LINE 68 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:03 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM GETUSR SUBROUTINE, WHICH GETS PARAMETER VALUES FROM THE USER. USES COMMON AREAS FROM FTN COMMON (4000/35). 04000/016 GATE GETUSR SUBR OE G S1200 RD15T1 VLO FSNAME=GATE.GETUSR_SUBR.OE.018(1) 172 D4.2T2 476 GATE.GETUSR_SUBR.OE.016 1 LINE 692 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:05 04000/017 GATE INIT SUBR SF G S1200 RD15T1 VLO FSNAME=GATE.INIT_SUBR.SF.019(1) 173 D4.2T2 477 GATE.INIT_SUBR.SF.017 1 LINE 67 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:07 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM INIT SUBROUTINE. THIS SUBROUTINE PROMPTS THE USER FOR RUN-TIME PARAMETER VALUES, INITIALIZES THE SYMBOL TABLE, AND WRITES THE HEADER FOR MIDAS OUTPUT. USES COMMON AREAS FROM FTN COMMON (4000/35). 04000/018 GATE INIT SUBR OC G S1200 RD15T1 VLO FSNAME=GATE.INIT_SUBR.OC.020(1) 174 D4.2T2 478 GATE.INIT_SUBR.OC.018 1 LINE 166 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:09 04000/019 GATE PUTHDR SUBR SF G S1200 RD15T1 VLO FSNAME=GATE.PUTHDR_SUBR.SF.021(1) 175 D4.2T2 479 GATE.PUTHDR_SUBR.SF.019 1 LINE 61 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:11 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTHDR SUBROUTINE, WHICH PUTS OUT A HEADER IN THE MIDAS STATISTICS FILE. THE HEADER INCLUDES A TIME STAMP AND MIDAS RUN AND READ COMMANDS. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/020 GATE PUTHDR SUBR OE G S1200 RD15T1 VLO FSNAME=GATE.PUTHDR_SUBR.OE.022(1) 176 D4.2T2 480 GATE.PUTHDR_SUBR.OE.020 1 LINE 1332 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:14 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 04000/021 GATE PUTMID SUBR SF G S1200 RD15T1 VLO FSNAME=GATE.PUTMID_SUBR.SF.023(1) 177 D4.2T2 481 GATE.PUTMID_SUBR.SF.021 1 LINE 60 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:16 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTMID SUBROUTINE, WHICH PUTS OUT USE STATISTICS IN MIDAS-COMPATIBLE FORMAT. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/022 GATE PUTMID SUBR OE G S1200 RD15T1 VLO FSNAME=GATE.PUTMID_SUBR.OE.024(1) 178 D4.2T2 482 GATE.PUTMID_SUBR.OE.022 1 LINE 340 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:18 04000/023 GATE PUTUSR SUBR SF G S1200 RD15T1 VLO FSNAME=GATE.PUTUSR_SUBR.SF.025(1) 179 D4.2T2 483 GATE.PUTUSR_SUBR.SF.023 1 LINE 63 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:20 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM PUTUSR SUBROUTINE, WHICH PUTS OUT USE STATISTICS ON A TERMINAL. USES COMMON AREA DEFINED BY FTN COMMON (4000/35). 04000/024 GATE PUTUSR SUBR OE G S1200 RD15T1 VLO FSNAME=GATE.PUTUSR_SUBR.OE.026(1) 180 D4.2T2 484 GATE.PUTUSR_SUBR.OE.024 1 LINE 348 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:22 04000/025 GATE SAMPLE SUBR SF G S1200 RD15T1 VLO FSNAME=GATE.SAMPLE_SUBR.SF.027(1) 181 D4.2T2 485 GATE.SAMPLE_SUBR.SF.025 1 LINE 67 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:24 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM SAMPLE SUBROUTINE, WHICH SETS UP TIMER INTERRUPTS AND EXAMINES AND WRITES OUT USE COUNTERS FOR EACH TIME PERIOD. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/026 GATE SAMPLE SUBR OE G S1200 RD15T1 VLO FSNAME=GATE.SAMPLE_SUBR.OE.028(1) 182 D4.2T2 486 GATE.SAMPLE_SUBR.OE.026 1 LINE 630 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:26 04000/027 GATE TBLDEF SUBR SF G S1200 RD15T1 VLO FSNAME=GATE.TBLDEF_SUBR.SF.029(1) 183 D4.2T2 487 GATE.TBLDEF_SUBR.SF.027 1 LINE 65 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:28 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM TBLDEF SUBROUTINE, WHICH INITIALIZES THE SYMBOL TABLES USING ONLY THOSE ROUTINES WHOSE COUNTERS HAVE BEEN INCREMENTED FROM THEIR INITIAL VALUES. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/028 GATE TBLDEF SUBR OE G S1200 RD15T1 VLO FSNAME=GATE.TBLDEF_SUBR.OE.030(1) 184 D4.2T2 488 GATE.TBLDEF_SUBR.OE.028 1 LINE 394 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:30 04000/029 GATE TBLUSR SUBR SF G S1200 RD15T1 VLO FSNAME=GATE.TBLUSR_SUBR.SF.031(1) 185 D4.2T2 489 GATE.TBLUSR_SUBR.SF.029 1 LINE 68 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:32 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM TBLUSR SUBROUTINE, WHICH READS FROM THE USER A LIST OF ROUTINES TO MONITOR. IT INITIALIZES THE TABLES BASED ON THIS LIST. USES COMMON AREAS DEFINED BY FTN COMMON (4000/35). 04000/030 GATE TBLUSR SUBR OE G S1200 RD15T1 VLO FSNAME=GATE.TBLUSR_SUBR.OE.032(1) 186 D4.2T2 490 GATE.TBLUSR_SUBR.OE.030 1 LINE 856 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:34 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 04000/031 GATE DBLMATH SUBR SA G S1200 RD15T1 VLO FSNAME=GATE.DBLMATH_SUBR.SA.033(1) 187 D4.2T2 491 GATE.DBLMATH_SUBR.SA.031 1 LINE 72 3 PAGE UM HELFFRICH SEP. 27, 1978 00:01:36 0 SOURCE FOR THE GATE STATISTICS RECORDING SYSTEM DOUBLE-WORD MATH ROUTINES. 04000/032 GATE DBLMATH SUBR OC G S1200 RD15T1 VLO FSNAME=GATE.DBLMATH_SUBR.OC.034(1) 188 D4.2T2 492 GATE.DBLMATH_SUBR.OC.032 1 LINE 80 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:38 04000/033 GATE GETSTAT SUBR SA G S1200 RD15T1 VLO FSNAME=GATE.GETSTAT_SUBR.SA.035(1) 189 D4.2T2 493 GATE.GETSTAT_SUBR.SA.033 1 LINE 73 8 PAGE UM HELFFRICH SEP. 27, 1978 00:01:40 0 SOURCE FOR SEVERAL LOW-LEVEL STATISTICS ACCESS ROUTINES, WHICH ARE USED BY THE GATE STATISTICS RECORDING SYSTEM TO ACCESS THE COUNTS OF GATE ACTIVITY. COPIES COPY:JOBSTA (413/9). 04000/034 GATE GETSTAT SUBR OC G S1200 RD15T1 VLO FSNAME=GATE.GETSTAT_SUBR.OC.036(1) 190 D4.2T2 494 GATE.GETSTAT_SUBR.OC.034 1 LINE 80 3 PAGE UM HELFFRICH SEP. 27, 1978 00:01:43 04000/035 GATE FTN COMMON SF G S1200 RD15T1 VLO FSNAME=GATE.FTN_COMMON.SF.037(1) 191 D4.2T2 495 GATE.FTN_COMMON.SF.035 1 LINE 66 2 PAGE UM HELFFRICH SEP. 27, 1978 00:01:45 0 SOURCE FOR FORTRAN COMMON AREA DEFINITIONS USED BY ALL FORTRAN SUBROUTINES (4000/13 THROUGH 4000/30) IN THE GATE STATISTICS RECORDING SYSTEM. 0 Referenced by comments of: 4000/15, 4000/17, 4000/19, 4000/21, 4000/23, 4000/25, 4000/27, 4000/29, 4000/36, 4000/38 04000/036 GATE STAT REC USER SF G S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_USER.SF.038(1) 192 D4.2T2 496 GATE.STAT_REC_USER.SF.036 1 LINE 52 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:47 0 SOURCE FOR FORTRAN BLOCK DATA WHICH ASSIGNS LOGICAL I/O UNITS FOR CONVENIENT USE FROM A TERMINAL. USES COMMON AREAS FROM FTN COMMON (4000/35). 04000/037 GATE STAT REC USER OC G S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_USER.OC.039(1) 193 D4.2T2 497 GATE.STAT_REC_USER.OC.037 1 LINE 72 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:49 0 OBJECT FILE FOR THE GATE STATISTICS RECORDING SYSTEM (4000/13 - 4000/34) IN A FORM WHICH CAN BE $RUN. THE OBJECT FOR 4000/36 IS INCLUDED, ALONG WITH $CONTINUE WITHS FOR ALL OTHER FILES IN THE GATE STATISTICS RECORDING SYSTEM (4000/13 THROUGH 4000/34) AND A "$CONTINUE WITH COPY:SYSDEFS RETURN" LINE. 04000/038 GATE STAT REC OPER SF G S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_OPER.SF.040(1) 194 D4.2T2 498 GATE.STAT_REC_OPER.SF.038 1 LINE 52 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:51 0 SOURCE FOR FORTRAN BLOCK DATA WHICH ASSIGNS LOGICAL I/O UNITS FOR USE WITH *GSA (4000/40). USES COMMON AREAS FROM FTN COMMON (4000/35). 04000/039 GATE STAT REC OPER OC G S1200 RD15T1 VLO FSNAME=GATE.STAT_REC_OPER.OC.041(1) 195 D4.2T2 499 GATE.STAT_REC_OPER.OC.039 1 LINE 72 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:53 0 OBJECT FILE FOR THE GATE STATISTICS RECORDING SYSTEM (4000/13 - 4000/34) IN A FORM WHICH CAN BE $RUN. SAME AS 4000/37, EXCEPT THAT I/O UNITS ARE ASSIGNED FOR USE WITH *GSA. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 04000/040 GATE *GSA C S1200 RD15T1 VLO FSNAME=GATE.*GSA.C.042(1) 196 D4.2T2 500 GATE.*GSA.C.040 1 LINE 77 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:55 0 COMMAND FILE TO ACTIVATE THE GATE STATISTICS COLLECTION SYSTEM. CONTAINS A "$CONTINUE WITH MTS:GS.STATPARS RETURN" LINE. 0 Referenced by comments of: 4000/38, 4000/44 04000/041 GATE LOCK D # SYS:GS.LOCK UM HELFFRICH 0 EMPTY FILE USED BY *GSA. 04000/042 GATE NEWSTAT D # SYS:GS.NEWSTAT UM HELFFRICH 0 EMPTY FILE USED BY *GSA. 04000/043 GATE OLDSTAT D # SYS:GS.OLDSTAT UM HELFFRICH 0 EMPTY FILE USED BY *GSA. 04000/044 GATE STAT PARAMS D S1200 RD15T1 VLO FSNAME=GATE.STAT_PARAMS.D.046(1) 197 D4.2T2 501 GATE.STAT_PARAMS.D.044 1 LINE 56 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:58 0 CONTAINS PARAMETERS READ BY THE STATISTICS RECORDING SYSTEM WHEN IT IS STARTED BY USING THE OPERATOR FILE *GSA (4000/40). CONTAINS A LIST OF PARAMETERS NORMALLY SUPPLIED BY THE USER IF THE STATISTICS RECORDING IS RUN FROM A TERMINAL. 04000/045 GATE *GSD C S1200 RD15T1 VLO FSNAME=GATE.*GSD.C.047(1) 198 D4.2T2 502 GATE.*GSD.C.045 1 LINE 55 1 PAGE UM HELFFRICH SEP. 27, 1978 00:01:59 0 COMMAND FILE TO DEACTIVATE THE GATE STATISTICS COLLECTION SYSTEM. 04000/046 GATE WRITEUP WF S1200 RD15T1 VLO FSNAME=GATE.WRITEUP.WF.048(1) 199 D4.2T2 503 GATE.WRITEUP.WF.046 1 LINE 97 9 PAGE UM HELFFRICH SEP. 27, 1978 00:02:01 0 STRUCTURAL DESCRIPTION AND USER'S GUIDE TO THE GATESTAT GATE STATISTICS COLLECTION SYSTEM. 09000/001X CONFER MTS:FORUM P W163:FORUM RD16T1 296 CONFER.MTS:FORUM.P.001 1 LINE 82 190 PAGE UM OGDEN JULY 12, 1979 23:34:59 0 ITEMS FROM MTS:FORUM. SHOULD BE COPIED TO A TN PRINTER. 09000/002X CONFER TXTF:FORUM P W163:TXTFITEMS RD16T1 297 CONFER.TXTF:FORUM.P.002 1 LINE 72 13 PAGE UM OGDEN JULY 12, 1979 23:35:18 0 ITEMS FROM TXTF:FORUM. SHOULD BE COPIED TO A TN PRINTER. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 09000/003X CONFER CONFER REF MAN P W163:CONFER.REF RD16T1 298 CONFER.CONFER_REF_MAN.P.003 1 LINE 81 24 PAGE UM OGDEN JULY 12, 1979 23:35:19 0 THE CONFER REFERENCE MANUAL. 09000/004X CONFER CONFER DOC P CRLT:CONFER.DOC RD16T1 299 CONFER.CONFER_DOC.P.004 1 LINE 81 11 PAGE UM OGDEN JULY 12, 1979 23:35:22 0 A LIST OF "RECENT" CHANGES TO CONFER. 09000/005X CONFER CONFER UG P CRLT:CONFER.UG RD16T1 300 CONFER.CONFER_UG.P.005 1 LINE 79 33 PAGE UM OGDEN JULY 12, 1979 23:35:24 0 THE CONFER USER'S GUIDE. 09001/001D CMD MACRO MODEL S* O DWB:MACRO.MODEL2 RD16T1 301 CMD_MACRO_MODEL..S*.001 1 LINE 135 27 PAGE UM DWB JULY 12, 1979 23:35:33 0 COMMANDS AND SNOSTORM (678) SOURCE FOR THE MACRO FACILITY PROTOTYPE. SOURCE STARTS AT LINE .999 OR LINE 1, DEPENDING ON WHETHER THE CLS OR NON-CLS VERSION IS BEING PRODUCED. COMMANDS IN FILE: 1) AT LINE 0, COMMANDS TO PRODUCE NON-CLS VERSION AND RUN ON THE 9001/10 TEST DATA. 2) AT LINE -100, COMMANDS TO PRODUCE CLS VERSION AND PUT PIECES TOGETHER IN THE FILE MACRO (9001/5). THE "$CONTINUE WITH *SPITLIB" LINE IN MACRO.INTF(0,0) (9001/2), THE OBJECT OF THE INTERFACE (9001/3), AND THE OBJECT OF UBC HELP (9001/6) ARE COPIED BY THESE LINES. 3) AT LINE -200, COMMANDS TO TAKE THE TWO PRINT FILES PRODUCED BY SEQUENCES AT LINE 0 OR AT LINE -100, PUT APPROPRIATE PIECES OF THEM TOGETHER, AND RUN THE RESULT THROUGH SIDELABEL (747/3). USES *SPITLIB AND UBC HELP (9001/5). 0 Referenced by comments of: 9001/4 09001/002D CMD MACRO MODEL MACRO INTERFAC SA O DWB:MACRO.INTF(0,999) RD16T1 302 CMD_MACRO_MODEL.MACRO_INT.SA.002 1 LINE 68 6 PAGE UM DWB JULY 12, 1979 23:36:01 0 SOURCE FOR THE INTERFACE TO ALLOW A SPITBOL PROGRAM TO BE RUN AS A CLS USING THE # COMMAND. LINE 0 IS A "$CONTINUE WITH *SPITLIB" LINE, WHICH IS COPIED BY MACRO.MODEL2(-100). THIS FILE MUST BE SET UP BEFORE SOURCING TO MACRO.MODEL2(-100). 0 Referenced by comments of: 9001/1 09001/003D CMD MACRO MODEL MACRO INTERFAC OC O DWB:MACRO.INTF(1000) RD16T1 303 CMD_MACRO_MODEL.MACRO_INT.OC.003 1 LINE 80 4 PAGE UM DWB JULY 12, 1979 23:36:04 0 MACRO INTERFACE OBJECT, CONTINUES WITH MACRO.MODEL2(-100). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 9001/1 09001/004D CMD MACRO MODEL OC O DWB:MACRO RD16T1 304 CMD_MACRO_MODEL..OC.004 1 LINE 80 43 PAGE UM DWB JULY 12, 1979 23:36:06 0 RESULT OF SOURCING TO MACRO.MODEL2(-100) (9001/1). READY TO BE USED WITH THE # COMMAND AS A CLS. CONTINUES WITH *SPITLIB. 0 Referenced by comments of: 9001/8 09001/005D CMD MACRO MODEL UBC HELP SA O DWB:HELP.S RD16T1 305 CMD_MACRO_MODEL.UBC_HELP.SA.005 1 LINE 68 17 PAGE UM DWB JULY 12, 1979 23:36:11 0 SOURCE FOR THE UBC HELP FACILITY, WHICH IS USED BY 9001/1. 0 Referenced by comments of: 9001/1 09001/006D CMD MACRO MODEL UBC HELP OC O DWB:HELP RD16T1 306 CMD_MACRO_MODEL.UBC_HELP.OC.006 1 LINE 80 3 PAGE UM DWB JULY 12, 1979 23:36:13 0 Referenced by comments of: 9001/1 09001/007D CMD MACRO MODEL HELP DATA D DWB:MACRO.H RD16T1 307 CMD_MACRO_MODEL.HELP_DATA.D.007 1 LINE 70 7 PAGE UM DWB JULY 12, 1979 23:36:14 0 HELP DATA FILE FOR MACRO EXPLANATIONS. 09001/008D CMD MACRO MODEL CLS TEST SA O DWB:TCLS(1,999) RD16T1 308 CMD_MACRO_MODEL.CLS_TEST.SA.008 1 LINE 72 1 PAGE UM DWB JULY 12, 1979 23:36:16 0 DRIVER PROGRAM TO TEST THE CLS VERSION OF THE COMMAND MACROS (USE SDS TO DEBUG THE OBJECT (9001/9) AND DWB:MACRO(2) (9001/4)). THE REGULAR CLS DRIVER PROGRAM (535/2) CANNOT BE USED DUE TO INCORRECT EXTERNAL SYMBOL RESOLUTION. 09001/009D CMD MACRO MODEL CLS TEST OC O DWB:TCLS(1000) RD16T1 309 CMD_MACRO_MODEL.CLS_TEST.OC.009 1 LINE 80 3 PAGE UM DWB JULY 12, 1979 23:36:17 0 Referenced by comments of: 9001/8 09001/010D CMD MACRO MODEL TEST DATA D DWB:MACTEST RD16T1 310 CMD_MACRO_MODEL.TEST_DATA.D.010 1 LINE 79 1 PAGE UM DWB JULY 12, 1979 23:36:18 09002/001X OS FTNTIDY SA G S0120 TIDY 'LIST' POSN=FTNTIDY RD16T1 311 OS_FTNTIDY..SA.001 1 SEQ 80 140 PAGE UM TIFFANY JULY 12, 1979 23:38:36 0 SOURCE FOR AN OS VERSION OF FTNTIDY (727). THE SOURCE IS IN IEBUPDTE FORMAT AND CAN BE INSTALLED INTO A PARTITIONED DATA SET BY AN OS INSTALLATION. ASSEMBLE WITH SYSPARM=OS, WITH MACRO LIBRARIES FTNTIDYMAC (9002/5), SYSMAC (9002/6) AND STANDARD OS MACRO LIBRARY, IN THAT ORDER. OS VERSION OF FTNTIDY USES DDNAMES SYSIN, SYSPRINT, SYSPUNCH, AND SYSTERM INSTEAD OF MTS LOGICAL I/O UNITS SCARDS, SPRINT, SPUNCH, AND SERCOM, RESPECTIVELY. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 09002/002X OS FTNTIDY SA G S0120 TIDY 'LIST' POSN=OTHERS RD16T1 312 OS_FTNTIDY..SA.002 1 SEQ 80 89 PAGE UM TIFFANY JULY 12, 1979 23:38:45 0 THIS IS THE SOURCE FOR THE MODIFIED KWSCAN, SPELLCHK, AND MSG MODULES, WHICH ARE IN IEBUPDTE INPUT FORMAT. 09002/003X OS FTNTIDY SA G S0120 TIDY 'LIST' POSN=SIOC RD16T1 313 OS_FTNTIDY..SA.003 1 SEQ 80 39 PAGE UM TIFFANY JULY 12, 1979 23:38:48 0 SOURCE FOR MODIFIED MODULE SIOC. 09002/004X OS FTNTIDY OC G S0120 TIDY 'LIST' POSN=OBJECT RD16T1 314 OS_FTNTIDY..OC.004 1 SEQ 80 22 PAGE UM TIFFANY JULY 12, 1979 23:39:04 0 OBJECT OF 9002/1, 9002/2, AND 9002/3, READY TO BE LINKEDITED. 09002/005X OS FTNTIDY FTNTIDYMAC SM G S0120 TIDY 'LIST' POSN=FTNTIDYMAC RD16T1 315 OS_FTNTIDY.FTNTIDYMAC.SM.005 1 SEQ 80 11 PAGE UM TIFFANY JULY 12, 1979 23:39:20 0 MODIFIED FTNTIDYMAC, IN IEBUPDTE FORMAT. 0 Referenced by comments of: 9002/1 09002/006X OS FTNTIDY SYSMAC SM G S0120 TIDY 'LIST' POSN=SYSMAC RD16T1 316 OS_FTNTIDY.SYSMAC.SM.006 1 SEQ 80 75 PAGE UM TIFFANY JULY 12, 1979 23:39:24 0 MODIFIED *SYSMAC, IN IEBUPDTE FORMAT. 0 Referenced by comments of: 9002/1 09003/001D PASCAL/SB OS/COMMENTS P O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.COMMENTS RD16T1 317 PASCAL/SB.OS/COMMENTS.P.001 1 LINE 80 14 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:39:46 0 THIS IS THE STONY BROOK PASCAL COMPILER, RELEASE 2.1. SUBCOMPONENTS INCLUDE MODULES OF THE OS VERSION AS RECEIVED FROM STONY BROOK (SUBCOMPONENTS 9003/1 - 9003/30) AND THOSE MODIFIED FOR THE MTS VERSION (SUBCOMPONENTS 9003/31 - 9003/56). 9003/1 IS THE DESCRIPTION, FROM STONY BROOK, OF THE OS VERSION. OTHER SUBCOMPONENTS WHICH MAY BE HELPFUL TO THOSE INSTALLING PASCAL/SB ARE 9003/31 AND 9003/32. TO INSTALL THE SYSTEM AS RUN AT MICHIGAN, RESTORE CUBCOMPONENTS 9003/47, 9003/50, AND 9003/53, ALONG WITH 9003/33, 9003/34 (WRITEUPS) AND 9003/54 AND 9003/55 (TEST PROGRAMS). THE XPL PROGRAMS MODIFIED BY MICHIGAN (COMPONENTS 9003/31 AND BEYOND) USE THE VERSION OF THE XPL SUBMONITOR SENT OUT AS (495/13) ON RD16. 0 Referenced by comments of: 495/2, 495/6, 495/13, 495/14 09003/002D PASCAL/SB OS/OMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.OMONITOR.ASM RD16T1 318 PASCAL/SB.OS/OMONITOR.SA.002 1 LINE 80 41 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:40:08 0 THIS IS THE PASCAL/SB OVERLAY MONITOR, A MUTATION OF XPLSM WHICH SUPPORTS THE MULTIPASS ARCHITECTURE OF THE STONY BROOK PASCAL 360 COMPILER. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 09003/003D PASCAL/SB OS/CORE FILE SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.COREFILE.ASM RD16T1 319 PASCAL/SB.OS/CORE_FILE.SA.003 1 LINE 72 5 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:40:25 0 THIS FILE CONTAINS THE ASSEMBLER SOURCE ROUTINE THAT SIMULATES OS/360 QSAM FILES BY USING LINKED, IN-CORE STORAGE BLOCKS. 09003/004D PASCAL/SB OS/RMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.RMONITOR.ASM RD16T1 320 PASCAL/SB.OS/RMONITOR.SA.004 1 LINE 80 36 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:40:36 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. 09003/005D PASCAL/SB OS/PASCAL SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PA$CAL.ASM RD16T1 394 PASCAL/SB.OS/PASCAL.SA.005 1 LINE 80 39 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:41:00 0 THIS FILE CONTAINS A SMALL VERSION OF 9003/2. IT IS LOADED IN CONJUNCTION WITH OBJECT MODULES PRODUCED BY THE PASCAL LINKER (9003/15) AND PROVIDES THE RUNTIME ENVIRONMENT NEEDED BY THE DIAGNOSTICS PACKAGE (PMD). 09003/006D PASCAL/SB OS/OBJECT OL O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.R.PASCAL.NEWLMODS RD16T1 321 PASCAL/SB.OS/OBJECT.OL.006 1 LINE 80 16 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:41:31 0 THIS FILE CONTAINS LOAD MODULES TO PROVIDE THE EXECUTION ENVIRONMENTS FOR THE STONY BROOK PASCAL COMPILER AND FOR COMPILED PASCAL PROGRAMS. 09003/007D PASCAL/SB OS/PASS1 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS1.XPL RD16T1 322 PASCAL/SB.OS/PASS1.SX.007 1 LINE 80 68 PAGE UM UNSP PICKELMAN MAY 24, 1979 17:52:49 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: 9003/18 09003/008D PASCAL/SB OS/PASS1 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS1.OBJ RD16T1 323 PASCAL/SB.OS/PASS1.O.008 1 LINE 7200 33 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:43:59 0 THIS IS THE OBJECT OF 9003/7, WHICH CAN BE USED BY 9003/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 09003/009D PASCAL/SB OS/PASS2 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS2.XPL RD16T1 324 PASCAL/SB.OS/PASS2.SX.009 1 LINE 80 98 PAGE UM UNSP PICKELMAN MAY 24, 1979 17:52:57 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: 9003/20 09003/010D PASCAL/SB OS/PASS2 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS2.OBJ RD16T1 325 PASCAL/SB.OS/PASS2.O.010 1 LINE 7200 44 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:44:33 0 THIS IS THE OBJECT OF 9003/9, WHICH CAN BE USED BY 9003/2 AND OTHER 1 THU SEP 12/96 23:39:34 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 VERSIONS OF THE XPL SUBMONITOR. 09003/011D PASCAL/SB OS/PASS3 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS3.XPL RD16T1 326 PASCAL/SB.OS/PASS3.SX.011 1 LINE 80 55 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:44:38 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. 09003/012D PASCAL/SB OS/PASS3 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS3.OBJ RD16T1 327 PASCAL/SB.OS/PASS3.O.012 1 LINE 7200 35 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:44:52 0 THIS IS THE OBJECT OF 9003/11, WHICH CAN BE USED BY 9003/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 09003/013D PASCAL/SB OS/PMD SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PMD.XPL RD16T1 328 PASCAL/SB.OS/PMD.SX.013 1 LINE 80 15 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:45:08 0 THIS FILE CONTAINS THE SOURCE CODE FOR THE POST-MORTEM ANALYSIS ROUTINES (PMD). 09003/014D PASCAL/SB OS/PMD O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PMD.OBJ RD16T1 329 PASCAL/SB.OS/PMD.O.014 1 LINE 7200 14 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:45:22 0 THIS IS THE OBJECT OF 9003/13, WHICH CAN BE USED BY 9003/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 09003/015D PASCAL/SB OS/LINKER SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.LINKER.XPL RD16T1 330 PASCAL/SB.OS/LINKER.SX.015 1 LINE 80 20 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:45:33 0 THIS FILE CONTAINS THE SOURCE CODE FOR THE STONY BROOK PASCAL LINKER. 0 Referenced by comments of: 9003/5 09003/016D PASCAL/SB OS/LINKER O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.LINKER.OBJ RD16T1 331 PASCAL/SB.OS/LINKER.O.016 1 LINE 7200 23 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:45:46 0 THIS IS THE OBJECT OF 9003/15, WHICH CAN BE USED BY 9003/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 09003/017D PASCAL/SB OS/PASS1S U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.EDITXPL.XPL RD16T1 395 PASCAL/SB.OS/PASS1S.U.017 1 LINE 80 3 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:50:02 0 THIS FILE CONTAINS AN UPDATE TO 9003/7 TO PRODUCE PASS1S, THE "STUDENT" VERSION OF THE COMPILER, IMPLEMENTING ONLY STANDARD PASCAL. THE UPDATE SHOULD BE APPLIED USING OS/EDITXPL (9003/27). 09003/018D PASCAL/SB OS/PASS1S O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS1S.OBJ RD16T1 332 PASCAL/SB.OS/PASS1S.O.018 1 LINE 7200 32 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:46:54 0 THIS FILE CONTAINS THE XPL OBJECT OF PASS1 (9003/7), AS UPDATED BY 9003/17. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 09003/019D PASCAL/SB OS/PASS2S U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS2S.EDITXPL RD16T1 333 PASCAL/SB.OS/PASS2S.U.019 1 LINE 80 3 PAGE UM UNSP PICKELMAN MAY 23, 1979 14:01:21 0 THIS FILE CONTAINS AN UPDATE TO 9003/9 TO PRODUCE PASS2S, IMPLEMENTING ONLY STANDARD PASCAL. THIS UPDATE SHOULD BE APPLIED USING OS/EDITXPL (9003/27). 09003/020D PASCAL/SB OS/PASS2S O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PASS2S.OBJ RD16T1 334 PASCAL/SB.OS/PASS2S.O.020 1 LINE 7200 37 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:47:18 0 THIS FILE CONTAINS THE XPL OBJECT OF PASS2 (9003/9), AS UPDATED BY 9003/19. 09003/021D PASCAL/SB OS/BNCHMARK SW O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.BNCHMARK.PROGRAMS RD16T1 335 PASCAL/SB.OS/BNCHMARK.SW.021 1 LINE 80 12 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:47:57 0 A SET OF TEST PROGRAMS AND JCL TO TEST PASCAL/SB. 09003/022D PASCAL/SB OS/XPLSM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.XPLSM.ASM RD16T1 336 PASCAL/SB.OS/XPLSM.SA.022 1 LINE 80 38 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:48:17 0 THIS FILE CONTAINS AN ASSEMBLY LANGUAGE VERSION OF THE XPL SUBMONITOR, XPLSM. FOR USE WITH 9003/23. 09003/023D PASCAL/SB OS/XCOM4 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.XCOM4.OBJ RD16T1 337 PASCAL/SB.OS/XCOM4.O.023 1 LINE 7200 33 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:48:41 0 THIS IS THE OBJECT OF XPL (9003/24) THAT HAS BEEN USED TO COMPILE THE STONY BROOK PASCAL COMPILER. 09003/024D PASCAL/SB OS/XCOM4 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.XCOM4.XPL RD16T1 338 PASCAL/SB.OS/XCOM4.SX.024 1 LINE 80 51 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:48:58 0 THIS FILE CONTAINS THE SOURCE FOR XCOM4 (SEE 9003/23). 0 Referenced by comments of: 9003/23 09003/025D PASCAL/SB OS/XPLIB SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.XPLIB.XPL RD16T1 339 PASCAL/SB.OS/XPLIB.SX.025 1 LINE 80 1 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:49:19 0 THIS FILE CONTAINS THE SOURCE FOR COMPACTIFY, THE XPL PROCEDURE WHICH IS AUTOMATICALLY CONCATENATED ON TO THE FRONT OF EVERY XPL PROGRAM. 09003/026D PASCAL/SB OS/XPLXREF SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.XPLXREF.XPL RD16T1 396 PASCAL/SB.OS/XPLXREF.SX.026 1 LINE 80 9 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:49:38 0 THIS FILE CONTAINS THE XPL SOURCE FOR A CROSS-REFERENCE LISTINGS PROGRAM FOR XPL SOURCE. 09003/027D PASCAL/SB OS/EDITXPL SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.EDITXPL.XPL RD16T1 340 PASCAL/SB.OS/EDITXPL.SX.027 1 LINE 80 3 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:50:02 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. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 0 Referenced by comments of: 9003/17, 9003/19 09003/028D PASCAL/SB OS/EDITXPL OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.EDITXPL.OBJ RD16T1 341 PASCAL/SB.OS/EDITXPL.OC.028 1 LINE 7200 7 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:50:13 09003/029D PASCAL/SB OS/REFORMAT SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.REFORMAT.ASM RD16T1 342 PASCAL/SB.OS/REFORMAT.SA.029 1 LINE 80 10 PAGE UM UNSP PICKELMAN MAY 23, 1979 14:01:25 0 THIS FILE CONTAINS THE SOURCE OF A UTILITY PROGRAM THAT CAN BE USED TO REFORMAT XPL OBJECT MODULES ONTO A DISK. 09003/030D PASCAL/SB OS/PREFIX SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBR2.PREFIX.EDITXPL RD16T1 343 PASCAL/SB.OS/PREFIX.SX.030 1 LINE 80 11 PAGE UM UNSP PICKELMAN OCT. 24, 1978 22:50:46 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. 09003/031D PASCAL/SB COMMENTS P O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.COMMENTS RD16T1 344 PASCAL/SB.COMMENTS.P.031 1 LINE 66 1 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:38:52 0 INTERNAL DOCUMENTATION, WITH REFERENCES, FOR PASCAL/SB. NOT YET VERY COMPLETE. 09003/032D PASCAL/SB INSTALL C O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.INSTALL RD16T1 345 PASCAL/SB.INSTALL.C.032 1 LINE 231 3 PAGE UM UNSP PICKELMAN JUNE 12, 1979 22:04:56 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. 09003/033D PASCAL/SB NEWS P O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.NEWS RD16T1 346 PASCAL/SB.NEWS.P.033 1 LINE 70 3 PAGE UM UNSP PICKELMAN JUNE 29, 1979 16:44:56 0 A USER-LEVEL LIST OF CHANGES TO PASCAL/SB AS MADE. CURENTLY HAS SOME THINGS IN IT WHICH NEED TO BE ADDED TO THE USERS MANUAL (9003/34). 09003/034D PASCAL/SB USERS MANUAL WF O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.USERS_MANUAL RD16T1 347 PASCAL/SB.USERS_MANUAL.WF.034 1 LINE 80 18 PAGE UM UNSP PICKELMAN JUNE 29, 1979 16:45:55 0 USER-LEVEL DOCUMENTATION FOR PASCAL/SB. NOT YET MODIFIED FOR MTS. 0 Referenced by comments of: 9003/33 09003/035D PASCAL/SB PASS 1 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS1 RD16T1 348 PASCAL/SB.PASS_1.SX.035 1 LINE 105 68 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:18:32 0 THIS IS COMPONENT 9003/7, AS MODIFIED FOR MTS. 09003/036D PASCAL/SB PASS 2 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS2 RD16T1 349 PASCAL/SB.PASS_2.SX.036 1 LINE 82 96 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:18:41 0 THIS IS COMPONENT 9003/9, AS MODIFIED FOR MTS. MUST BE COMPILED WITH THE RD16 VERSION OF XPL (495/14), SINCE IT IS VERY LARGE, AND PREVIOUS 1 THU SEP 12/96 23:39:34 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 VERSIONS OF XPL WILL FAIL ON PROGRAMS SO BIG. 09003/037D PASCAL/SB PASS 3 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS3 RD16T1 350 PASCAL/SB.PASS_3.SX.037 1 LINE 88 54 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:18:58 0 THIS IS COMPONENT 9003/11, AS MODIFIED FOR MTS. 09003/038D PASCAL/SB PMD SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PMD RD16T1 351 PASCAL/SB.PMD.SX.038 1 LINE 80 15 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:19:16 0 THIS IS COMPONENT 9003/13, AS MODIFIED FOR MTS. 09003/039D PASCAL/SB LINKER SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINKER RD16T1 352 PASCAL/SB.LINKER.SX.039 1 LINE 80 21 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:19:06 0 THIS IS COMPONENT 9003/15, AS MODIFIED FOR MTS. 09003/040D PASCAL/SB XPL SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.XPL RD16T1 353 PASCAL/SB.XPL.SX.040 1 LINE 67 4 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:12:47 0 XPL SUBROUTINES USED BY PASCAL/SB INCLUDING MISCELLANEOUS SUBROUTINES USEFUL WHEN PROGRAMMING IN XPL. 09003/041D PASCAL/SB ASM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.ASM RD16T1 354 PASCAL/SB.ASM.SA.041 1 LINE 110 8 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:12:38 0 ASSEMBLY LANGUAGE SUBROUTINES USED BY PASCAL/SB. USES THE 9003/43 PASCAL MACRO LIBRARY. 0 Referenced by comments of: 9003/43 09003/042D PASCAL/SB PASTIME SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASTIME RD16T1 355 PASCAL/SB.PASTIME.SA.042 1 LINE 80 30 PAGE UM UNSP PICKELMAN JUNE 12, 1979 23:12:09 0 THE RUNTIME SUPPORT FOR PASCAL/SB PROGRAMS. USES THE 9003/43 PASCAL MACRO LIBRARY. 09003/043D PASCAL/SB MACRO LIB SM O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.MACLIB RD16T1 356 PASCAL/SB.MACRO_LIB.SM.043 1 LINE 42 1 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:13:00 0 A MACRO LIBRARY FOR USE BY THE ASSEMBLER ROUTINES (9003/41). 09003/044D PASCAL/SB LIBRARY OL O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LIB RD16T1 357 PASCAL/SB.LIBRARY.OL.044 1 LINE 32767 114 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:19:56 0 AN OBJECT LIBRARY WITH MODULES FOR EVERYTHING EXCEPT THE 3 EXPL MAIN PROGRAMS (9003/45, 9003/48, AND 9003/51), WHICH ALL HAVE TO HAVE THE SAME NAME. 09003/045D PASCAL/SB MAIN PROGRAM SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASCAL RD16T1 358 PASCAL/SB.MAIN_PROGRAM.SX.045 1 LINE 68 2 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:13:33 0 XPL MAIN PROGRAM FOR THE COMPILER. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 09003/046D PASCAL/SB MAIN PROGRAM OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_PASCAL RD16T1 359 PASCAL/SB.MAIN_PROGRAM.OC.046 1 LINE 32767 13 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:13:40 0 OBJECT OF 9003/45. 09003/047D PASCAL/SB PASCAL OBJECT OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASCAL* RD16T1 360 PASCAL/SB.PASCAL_OBJECT.OE.047 1 LINE 32767 115 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:11:17 0 LINKEDITED PASCAL COMPILER, READY TO BE $RUN. 09003/048D PASCAL/SB RUN SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.RUN RD16T1 361 PASCAL/SB.RUN.SX.048 1 LINE 60 1 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:18:02 0 XPL MAIN PROGRAM FOR RUNTIME SUPPORT (PMD). 09003/049D PASCAL/SB RUN OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_RUN RD16T1 362 PASCAL/SB.RUN.OC.049 1 LINE 444 1 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:18:11 09003/050D PASCAL/SB RUN OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.RUN* RD16T1 363 PASCAL/SB.RUN.OE.050 1 LINE 32767 13 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:11:43 0 LINKEDITED VERSION OF RUNTIME SUPPORT, READY TO BE RUN WITH A PASCAL OBJECT MODULE. 09003/051D PASCAL/SB LINK SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINK RD16T1 364 PASCAL/SB.LINK.SX.051 1 LINE 63 1 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:17:22 0 XPL MAIN PROGRAM FOR THE LINKER. 09003/052D PASCAL/SB LINK OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LINK RD16T1 365 PASCAL/SB.LINK.OC.052 1 LINE 440 1 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:17:30 09003/053D PASCAL/SB LINK OE O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINK* RD16T1 366 PASCAL/SB.LINK.OE.053 1 LINE 32767 21 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:11:26 0 LINK EDITED VERSION OF THE LINKER. $RUN THIS TO COMBINE NON-STANDARD MODULES, FORMING STANDARD ONES. 09003/054D PASCAL/SB TEST C O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TEST RD16T1 367 PASCAL/SB.TEST.C.054 1 LINE 48 2 PAGE UM UNSP PICKELMAN JUNE 12, 1979 21:21:41 0 SOURCE FILE TO TEST THE COMPILER. $CONTINUES WITH 9003/55. 09003/055D PASCAL/SB TEST SW O S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.PROGRAMS RD16T1 368 PASCAL/SB.TEST.SW.055 1 LINE 90 47 PAGE UM UNSP PICKELMAN JULY 05, 1979 15:44:56 0 SEVERAL PASCAL PROGRAMS TO TEST PASCAL/SB. 09003/056D PASCAL/SB LOG D # MTS:TST.LOG UM UNSP PICKELMAN 0 THIS IS THE LOG FILE FOR PASCAL/SB. AS DISTRIBUTED, IT MUST BE CREATED WITH THE NAME UNSP:PAS.SB.LOG. TO CHANGE THIS, USERRLOG IN 9003/41 MUST BE ALTERED. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 09004/001D PASCAL/8000 OS/JCL O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.JCL... RD16T1 369 PASCAL/8000.OS/JCL..001 1 LINE 80 10 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:12:25 0 THIS IS THE AUSTRALIAN ATOMIC ENERGY COMMISSION PASCAL/8000 COMPILER, WHICH HAS BEEN MODIFIED TO RUN IN MTS. SUBCOMPONENTS 9004/1 THROUGH 9004/11 ARE COMPONENTS OF THE OS VERSION; 9004/12 THROUGH 9004/19 ARE COMPONENTSOF THE MTS VERSION. THIS SUBCOMPONENT CONTAINS OS JCL AND COMMENTS. 09004/002D PASCAL/8000 OS/LINK SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.LINK RD16T1 370 PASCAL/8000.OS/LINK.SW.002 1 LINE 111 85 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:17:04 0 OS OBJECT-MODULE-PRODUCING COMPILER. 09004/003D PASCAL/8000 OS/ASM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ASM RD16T1 371 PASCAL/8000.OS/ASM.SA.003 1 LINE 80 172 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:15:18 0 OS RUNTIME SUPPORT. 09004/004D PASCAL/8000 OS/OBJECT OL O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.OBJECT RD16T1 372 PASCAL/8000.OS/OBJECT.OL.004 1 LINE 80 52 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:13:01 0 OS LIBRARY WITH OBJECT FOR THE STANDARD COMPILER AND RUNTIME SUPPORT. 09004/005D PASCAL/8000 OS/CMPGO SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMPGO RD16T1 373 PASCAL/8000.OS/CMPGO.SW.005 1 LINE 111 80 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:15:56 0 OS COMPILE AND GO COMPILER AND NONSTANDARD OBJECT MODULE. 09004/006D PASCAL/8000 OS/CMP1 OC O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP1 RD16T1 374 PASCAL/8000.OS/CMP1.OC.006 1 LINE 1024 24 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:13:30 0 FILE 1 (NONSTANDARD OBJECT) FOR COMPILE AND GO COMPILER. 09004/007D PASCAL/8000 OS/CMP2 OC O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP2 RD16T1 375 PASCAL/8000.OS/CMP2.OC.007 1 LINE 80 1 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:14:09 0 FILE 2 FOR COMPILE AND GO COMPILER. 09004/008D PASCAL/8000 OS/ERRORS M S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ERRORS RD16T1 376 PASCAL/8000.OS/ERRORS.M.008 1 LINE 75 3 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:14:30 0 ERROR MESSAGE FILE USED BY BOTH PASCAL/8000 COMPILERS (9004/2 AND 9004/5). 09004/009D PASCAL/8000 EDITOR SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.EDITOR RD16T1 377 PASCAL/8000.EDITOR.SW.009 1 LINE 72 4 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:17:43 0 AN UPDATING PROGRAM. 09004/010D PASCAL/8000 OS/MANUAL P S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.MANUAL RD16T1 378 PASCAL/8000.OS/MANUAL.P.010 1 LINE 74 44 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:18:01 0 A WRITEUP FOR THE OS VERSION OF PASCAL/8000. 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 09004/011D PASCAL/8000 COMMENTS P S1210 PASDIS 'PASCAL DIST' FSNAME=8000.COMMENTS RD16T1 379 PASCAL/8000.COMMENTS.P.011 1 LINE 68 1 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:12:01 0 THIS IS A (VERY BRIEF) DESCRIPTION OF THE AUSTRALIAN ATOMIC ENERGY COMMISSION PASCAL/8000 COMPILER, AND THE MTS VERSION THEREOF. SEE ALSO COMP 9004/12. 09004/012D PASCAL/8000 INSTALL.INFO P S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.INSTALL.INFO RD16T1 380 PASCAL/8000.INSTALL.INFO.P.012 1 LINE 69 4 PAGE RPI ABDALI UNSP MAR. 09, 1979 22:10:16 0 A DESCRIPTION AND INSTALLATION INSTRUCTIONS FOR THE MTS VERSION OF PASCAL/8000. 09004/013D PASCAL/8000 COMPILER SW O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.PAS RD16T1 381 PASCAL/8000.COMPILER.SW.013 1 LINE 111 86 PAGE RPI ABDALI UNSP JUNE 15, 1979 22:35:02 0 MTS VERSION OF THE PASCAL/8000 COMPILER. 09004/014D PASCAL/8000 COMPILER OC O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.OBJ RD16T1 382 PASCAL/8000.COMPILER.OC.014 1 LINE 73 37 PAGE RPI ABDALI UNSP JUNE 15, 1979 22:35:23 09004/015D PASCAL/8000 RUNMACLIB SM O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNMACLIB RD16T1 383 PASCAL/8000.RUNMACLIB.SM.015 1 LINE 73 3 PAGE RPI ABDALI UNSP MAR. 09, 1979 22:10:53 0 A MACRO LIBRARY USED BY 9004/16. 09004/016D PASCAL/8000 RUNTIME SA O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNTIME.ASM RD16T1 384 PASCAL/8000.RUNTIME.SA.016 1 LINE 73 46 PAGE RPI ABDALI UNSP MAR. 10, 1979 21:18:42 0 THE RUNTIME SUPPORT. ASSEMBLE WITH PAR=BATCH. USES THE 9004/15 MACRO LIBRARY. 09004/017D PASCAL/8000 RUNTIME OC O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNTIME.OBJ RD16T1 385 PASCAL/8000.RUNTIME.OC.017 1 LINE 80 9 PAGE RPI ABDALI UNSP MAR. 10, 1979 21:18:48 09004/018D PASCAL/8000 ERROR MSGS M O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.PSCLERRMSGS RD16T1 386 PASCAL/8000.ERROR_MSGS.M.018 1 LINE 76 3 PAGE RPI ABDALI UNSP JUNE 24, 1979 16:47:56 0 ERROR MESSAGES USED BY THE 9004/13 COMPILER. 09004/019D PASCAL/8000 MANUAL P O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.PASCALMANUAL RD16T1 387 PASCAL/8000.MANUAL.P.019 1 LINE 74 45 PAGE RPI ABDALI UNSP MAR. 10, 1979 01:34:45 0 USER LEVEL DESCRIPTION OF THE PASCAL/8000 SYSTEM AND HOW TO USE IT. 09005/001X IEBUPDTE CONV SA G W062:IEBUPDTE(1,999) RD16T1 388 IEBUPDTE_CONV..SA.001 1 LINE 72 3 PAGE UM TIFFANY JULY 12, 1979 23:44:52 0 A UTILITY PROGRAM THAT AUTOMATICALY CONVERTS MACRO LIBRARIES (AND SIMILAR THINGS) INTO IEBUPDTE INPUT SUITABLE FOR OS INSTALLATIONS. ASSUMES THAT EACH MACRO IS TERMINATED WITH $ENDFILE. USES THE FOLLOWING LOGICAL I/O UNITS: SCARDS - INPUT MACRO LIBRARY SPUNCH - IEBUPDTE INPUT, EACH MEMBER AUTOMATICALLY RENUMBERED IN COLUMNS 73-80. COPIES *GDINFODSECT (594). 1 THU SEP 12/96 23:39:34 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 + ______________ _____________________ 09005/002X IEBUPDTE CONV OE G W062:IEBUPDTE(1000) RD16T1 389 IEBUPDTE_CONV..OE.002 1 LINE 1303 3 PAGE UM TIFFANY JULY 12, 1979 23:44:53 09006/001X KWSCAN DECODER SA O SYS:KWIC.D.S RD16T1 390 KWSCAN_DECODER..SA.001 1 LINE 71 7 PAGE UM HELFFRICH JULY 12, 1979 23:44:54 0 PRINTS ALL VALID KEYWORD EXPRESSIONS DESCRIBED BY A KEYWORD TABLE. 09006/002X KWSCAN DECODER OC O SYS:KWIC.D.O RD16T1 391 KWSCAN_DECODER..OC.002 1 LINE 1743 2 PAGE UM HELFFRICH JULY 12, 1979 23:44:55 09006/003X KWSCAN DECODER TEST SA O SYS:KWIC.D.TESTER(1,999) RD16T1 392 KWSCAN_DECODER.TEST.SA.003 1 LINE 53 1 PAGE UM HELFFRICH JULY 12, 1979 23:44:55 0 A PROGRAM TO TEST 9006/1. 09006/004X KWSCAN DECODER TEST OC O SYS:KWIC.D.TESTER(1000) RD16T1 393 KWSCAN_DECODER.TEST.OC.004 1 LINE 80 2 PAGE UM HELFFRICH JULY 12, 1979 23:44:56