1 SUN SEP 08/96 19:03:19 Page 1 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00001/001A UMLOAD D4.3 MASTER SA G W009:UMLOAD.S 4.3T1 1 UMLOAD.D4.3_MASTER.SA.001 1 LINE 72 86 PAGE UM SHERRY APR. 05, 1980 13:34:03 0 THE MTS RELOCATABLE LOADER. ********************************************************************************** D4.3 VERSION: NEW MASTER GENERATED FOR THIS VERSION WITH SEVERAL OF THE UBC AND UQV UPDATES APPLIED. CHECK THE 001/2 UPDATE FOR DETAILS. ********************************************************************************** 0 Referenced by comments of: 1/2, 1021/7, 1021/10 00001/002A UMLOAD UPDATE UC G W009:UMLOAD.U 4.3T1 2 UMLOAD.UPDATE.UC.002 1 LINE 71 5 PAGE UM SHERRY APR. 05, 1980 13:34:15 W009:UMLOAD.U 0 UPDATE DECK TO PRODUCE CURRENT UMLOAD SOURCE (001/1) FROM D4.2 UMLOAD. 00001/003A 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, 721/1, 1023/1 00001/005A UMLOAD INFO CLS SA O INF W009:CLSINFO.S 4.3T1 3 UMLOAD.INFO_CLS.SA.005 1 LINE 80 53 PAGE UM SHERRY APR. 05, 1980 13:34:17 W009:CLSINFO.S 0 A CLS-CODED PROGRAM (I.E. USE VIA THE MTS #CLS COMMAND) TO ALLOW THE USER TO EXAMINE LOADER TABLES (INCLUDING THE RESIDENT IPL LOADER PSECT) AND LOW CORE SYMBOL TALES (LCSYMBOL, SYSDEFS, , ETC.). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND THE *OBJUTIL MISCELLANEOUS MACROS (721/14). COPIES *CNFGINFODSECT (654). REQUIRES THE MSG ROUTINES (1023/1). **************************************************************************** D4.3 VERSION: REQUIRES THE MSG ROUTINES (1023/1). **************************************************************************** 00001/006A UMLOAD INFO CLS OE O W009:CLSINFO.O 4.3T1 4 UMLOAD.INFO_CLS.OE.006 1 LINE 8744 7 PAGE UM SHERRY APR. 05, 1980 13:34:35 W009:I 1 SUN SEP 08/96 19:03:19 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/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. 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/009A UMLOAD CLSDRV SA O W009:CLSDRV.S 4.3T1 5 UMLOAD.CLSDRV.SA.009 1 LINE 109 1 PAGE UM SHERRY APR. 05, 1980 13:34:38 W009:CLSDRV.S 0 THIS IS AN INTERFACE PROGRAM WHICH PERMITS THE INFO CLS TO BE RUN AS A NORMAL PROGRAM. ASSEMBLE WITH COPY:MTS.MACROS (344/3) AND THE *OBJUTIL MACROS (721/13). 00001/010A UMLOAD CLSDRV OC O W009:CLSDRV.O 4.3T1 6 UMLOAD.CLSDRV.OC.010 1 LINE 604 1 PAGE UM SHERRY APR. 05, 1980 13:34:40 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/001A TABLES SA G TABL WSG:TABLES 4.3T1 7 TABLES..SA.001 1 LINE 80 27 PAGE UM WSG MAY 21, 1980 22:59:01 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=REL2 TO SUPPRESS THESE WARNINGS. 0 Referenced by comments of: 482/38 00004/002A TABLES OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00004/003A TABLES WRITEUP WF W163:TABLES.F 4.3T1 8 TABLES.WRITEUP.WF.003 1 LINE 147 13 PAGE UM WSG APR. 05, 1980 13:34:46 WSG.:TABLES.WF 0 *************** FILE DOESN'T EXIST *************** 00004/004A TABLES DECKGEN SA G DCKP MTS:DCKPCHR.S 4.3T1 9 TABLES.DECKGEN.SA.004 1 LINE 80 76 PAGE UBC HELFFRICH APR. 05, 1980 13:34:48 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 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. ****************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): UPDATED TO COPE WITH NEW LCH TABLE FORMAT. _______________________________________________________________________________ D4.3 CHANGES: REASSEMBLED FOR D4.3 DSKTAB FORMAT. ****************************************************************************** 00004/005A TABLES DECKGEN OC G MTS:DCKPCHR.O 4.3T1 10 TABLES.DECKGEN.OC.005 1 LINE 80 8 PAGE UBC HELFFRICH APR. 05, 1980 13:34:57 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/006A TABLES *IPL.DECKGEN D MTS:IPL.DECKGEN 4.3T1 11 TABLES.*IPL.DECKGEN.D.006 1 SEQ 4100 30 PAGE UBC HELFFRICH APR. 05, 1980 13:34:59 *IPL.DECKGEN 0 OBJECT FOR DECKGEN SUITABLE FOR LOADING BY THE IPL READER. 00004/007A TABLES DECKGEN DESCR WF MTS:DCKPCHR.W 4.3T1 12 TABLES.DECKGEN_DESCR.WF.007 1 LINE 126 7 PAGE UBC HELFFRICH APR. 05, 1980 13:35:02 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00005/001 JBRP D4 SOURCE 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 0 JOB REQUEST PROCESSOR (TASK INITIALIZATION). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 5/2 00005/002C JBRP UPDATE UC G MTA:JBRP.U 16 4.3T1 13 JBRP.UPDATE.UC.002 1 LINE 76 1 PAGE UM MTA APR. 05, 1980 13:35:05 0 UPDATE TO PRODUCE CURRENT SOURCE FROM D4.0 SOURCE (005/1). 00005/003A 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 0 FIND JOB TABLE. 00006/002 FNDJTL OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00007/001 FBJTJL D4 SOURCE SA G S0563 D4T1 VLO FSNAME=FBJTJL..SA.001(1) 18 D4T1 18 FBJTJL..SA.001 1 LINE 80 5 PAGE UM MTA JULY 27, 1977 21:23:59 0 FREE BUFFERS AND JOB TABLE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 00007/002C FBJTJL UPDATE UC G MTA:FBJTJL.U 18 4.3T1 14 FBJTJL.UPDATE.UC.002 1 LINE 68 1 PAGE UM MTA APR. 05, 1980 13:35:07 0 UPDATE TO PRODUCE THE CURRENT SOURCE USING THE D4.0 SOURCE AS BASE. 00007/003A 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 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 S0563 D4T1 VLO FSNAME=BUFALLOC..SA.001(1) 20 D4T1 20 BUFALLOC..SA.001 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 21:24:03 0 SUBROUTINE TO ALLOCATE AND RELEASE 128-BYTE, LOW-CORE, TERMINAL, I/O BUFFERS. 1 SUN SEP 08/96 19:03:19 Page 5 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/001A EXIT SA G MTA:EXIT(1,999) 4.3T1 15 EXIT..SA.001 1 LINE 75 2 PAGE UM MTA APR. 05, 1980 13:35:10 MTA.:EXIT 0 KILLS CALLING TASK. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:SETPARM (653). 00010/002A 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). 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00014/002 PUNUC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00016/001A CCTB SA G S0683 OGDEN FSNAME=CCTB.S 4.3T1 16 CCTB..SA.001 1 LINE 80 3 PAGE UM MTA SEP. 25, 1979 03:33:30 0 USED BY MTS TO TRANSLATE LOGICAL CARRIAGE CONTROL TO PRINTER COMMANDS. RECENTLY CHANGED TO DEFINE "8" AS BOTTOM OF LOGICAL PAGE. SEE THE DSR UPDATE (637/2) FOR DETAILS. 00016/002A 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 S1143 D4.1T1 VLO FSNAME=TASKS_JOB..SA.001(1) 9 D4.1T1 9 TASKS_JOB..SA.001 1 LINE 80 11 PAGE UM WSG MAY 13, 1978 16:52:12 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 00019/002A 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/001A BROADCST SA G BDCS MTS:BROADCST(1000) 4.3T1 17 BROADCST..SA.001 1 LINE 80 14 PAGE UM OGDEN APR. 05, 1980 13:40:04 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00021/002A BROADCST OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 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 S0563 D4T1 VLO FSNAME=TPMOVE_JOBS..SA.001(1) 31 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/001A ONLINE/OFFLINE SA G MTS:ON/OFFLINE(1,999) 4.3T1 18 ONLINE/OFFLINE..SA.001 1 LINE 80 8 PAGE UM MTA APR. 05, 1980 13:40:12 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 ... 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/002A 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A TSFO SA G TSF W032:TSFOSOU4.3 4.3T1 19 TSFO..SA.001 1 LINE 80 244 PAGE UM EMERY APR. 05, 1980 13:40:14 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). ********************************************************************************** D4.3 VERSION: SEE 038/13 FOR A DESCRIPTION OF THE CHANGES MADE TO TSFO FOR D4.3. ********************************************************************************** 00038/002A TSFO *2741RTN OC G *2741RTN 4.3T1 20 TSFO.*2741RTN.OC.002 1 LINE 80 17 PAGE UM EMERY APR. 05, 1980 13:40:31 *2741RTN 0 THIS IS THE TSFO OBJECT FILE WHICH IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL. THE "COM" CARD AT THE BEGINNING TELLS PISTLE TO DEFINE THE FOLLOWING SYMBOLS IN LCSYMBOL: TSFO ENTRY POINT FOR DEVICE TYPE 2741 TEL2 ENTRY POINT FOR DEVICE TYPE TTY MRXA ENTRY POINT FOR DEVICE TYPE MRXA 00038/003 TSFO *TTYRTN OC G *TTYRTN 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. 1 SUN SEP 08/96 19:03:19 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/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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00038/012 TSFO MEMO 366 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M366 D4T1 767 TSFO.MEMO_366.WF.014 1 LINE 110 3 PAGE UM EMERY SEP. 19, 1977 16:54:45 0 THIS IS COMPUTING CENTER MEMO 366 -- "ADDITIONS TO MEMOREX 1270 DEVICE SUPPORT ROUTINE" 00038/013C TSFO P W032:TSFOCHANGES 4.3T1 21 TSFO..P.013 1 LINE 69 3 PAGE UM EMERY APR. 05, 1980 13:40:33 0 A DESCRIPTION OF THE CHANGES TO TSFO FOR D4.3. 00039/001A CASECONV SA CASE MTS:CASECONV 37 4.3T1 22 CASECONV..SA.001 1 LINE 80 1 PAGE UM EMERY APR. 05, 1980 13:40:36 0 TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE. ALL OTHER CHARACTERS ARE UNCHANGED. 00039/002A 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, 559/2 00040/002A KEYWRD SCANNER UPDATE UC G W170:KWIC(10000) 4.3T1 23 KEYWRD_SCANNER.UPDATE.UC.002 1 LINE 69 1 PAGE UM HELFFRICH APR. 05, 1980 13:40:37 0 UPDATE DECK TO YIELD CURRENT KEYWORD SCANNER SOURCE CODE. 00040/003A KEYWRD SCANNER OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00040/004A KEYWRD SCANNER SPELLING CORR SA G W170:KWIC.SPELL(1000) 4.3T1 24 KEYWRD_SCANNER.SPELLING_C.SA.004 1 LINE 70 3 PAGE UM HELFFRICH APR. 05, 1980 13:40:42 W170:KWIC.SPELL 0 SPELLING CORRECTION SUBROUTINE USED BY MTS AND THE KEYWORD SCANNER (40/1). ALSO USER-CALLABLE. 00040/005A 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). 1 SUN SEP 08/96 19:03:19 Page 11 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), AND *SYSMAC. 0 Referenced by comments of: 344/1 00042/002A MTS UPDATE UC G MTS:MTSUPD 4.3T1 25 MTS.UPDATE.UC.002 1 LINE 76 38 PAGE UM MTS HELFFRICH APR. 05, 1980 13:40:45 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/003A MTS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00042/004A MTS ASM JOB C MTS:MTSASM 4.3T1 26 MTS.ASM_JOB.C.004 1 LINE 121 5 PAGE UM MTS HELFFRICH APR. 05, 1980 13:40:57 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 IF THE D4.0 SOURCE IS USED AS A BASE, THE VARIOUS ...UPD FILES MUST HAVE CERTAIN $CONTINUE WITH LINES REMOVED FROM THEM. 00042/005A MTS L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=MTS.LIST 1 4.3T1 27 MTS..L.005 1 SEQ 133 610 PAGE UM MTS HELFFRICH APR. 05, 1980 13:43:39 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00044/001A PDP SA G MTA:PDP.S 4.3T1 28 PDP..SA.001 1 LINE 72 35 PAGE UM MTA APR. 05, 1980 13:43:47 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/002A 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). ASSEMBLE WITH COPY:SETPARM (653/1) AND COPY:UMMPS.MACROS (1081/5). 0 Referenced by comments of: 45/2, 540/3, 611/1, 1081/1 00045/002A SUPERVISOR UPDATE UC G MTA:UMMPS.U 4.3T1 29 SUPERVISOR.UPDATE.UC.002 1 LINE 94 70 PAGE UM MTA APR. 28, 1980 19:29:26 MTA:UMMPS.U 0 UPDATE TO D4.0 UMMPS (045/1) TO PRODUCE CURRENT UMMPS. 00045/003A SUPERVISOR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00045/004A SUPERVISOR L S0707 UMMPSL POSN=UMMPS.LISTING.370 4.3T1 30 SUPERVISOR..L.004 1 SEQ 133 732 PAGE UM MTA APR. 28, 1980 19:31:38 00045/005A SUPERVISOR SVC WRITEUP WT S0683 OGDEN FSNAME=SVCDESCR 4.3T1 31 SUPERVISOR.SVC_WRITEUP.WT.005 1 LINE 122 38 PAGE UM OGDEN APR. 24, 1980 23:38:24 0 TEXT/360 INPUT FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS. 00045/006A SUPERVISOR SVC WRITEUP PT MTS:SVC.W 4.3T1 32 SUPERVISOR.SVC_WRITEUP.PT.006 1 LINE 105 88 PAGE UM OGDEN APR. 28, 1980 19:35:38 MTS.:SVC.W 0 COPY THIS TO A TN PRINTER @CC (NOT @MCC). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 S1319 D4.2T1 VLO FSNAME=SUPERVISOR.DOCUMENTATION.WF.013(1) 14 D4.2T1 14 SUPERVISOR.DOCUMENTATION.WF.013 1 LINE 94 6 PAGE UM MTA MAR. 26, 1979 02:15:12 0 SUMMARY OF SECTIONS OF UMMPS AND WHAT THEY DO. PREPARED FOR A LECTURE TO A GRADUATE PROGRAMMING CLASS. 00045/014C SUPERVISOR MACROS SM G COPY:UMMPS.MACROS 4.3T1 33 SUPERVISOR.MACROS.SM.014 1 LINE 73 5 PAGE UM MTA APR. 05, 1980 13:47:02 COPY:UMMPS.MACROS 00045/015C SUPERVISOR BJP DESCRIP WX S0938 FSAVE2 VLO FSNAME=BJPDESCR 521 4.3T1 34 SUPERVISOR.BJP_DESCRIP.WX.015 1 LINE 82 3 PAGE UM MTA NOV. 02, 1979 22:29:25 0 DESCRIPTION OF HOW UMMPS USES THE PARAMETERS SET BY BJPMOD (650). 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00046/002A CONFIG UPDATE UC G MTA:CONFIG.U 4.3T1 35 CONFIG.UPDATE.UC.002 1 LINE 76 14 PAGE UM MTA APR. 05, 1980 13:51:08 MTA.:CONFIG.U 0 UDATE TO 046/1 TO PRODUCE CURRENT CONFIG. 00046/003A CONFIG OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00046/004A CONFIG L S0707 UMMPSL POSN=CNFG.LISTING.370 4.3T1 36 CONFIG..L.004 1 SEQ 133 169 PAGE UM MTA APR. 05, 1980 13:51:26 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 (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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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 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 1 SUN SEP 08/96 19:03:19 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/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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A DISKDUMP SA G DSKD FILE:DISKDUMP(1000) 4.3T1 37 DISKDUMP..SA.001 1 LINE 80 12 PAGE UM HELFFRICH APR. 05, 1980 13:51:30 0 PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS. DOESN'T CALL MTS FILE ROUTINES. ****************************************************************************** D4.3 CHANGES: 1) UPDATED FOR 3350 SUPPORT. 2) DEPENDENCE ON MTS DSECT ELIMINATED. ****************************************************************************** 00053/002A DISKDUMP OC G FILE:DISKDUMP(1,900) 4.3T1 38 DISKDUMP..OC.002 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 13:51:32 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 00056 *2250RTN SA # (OBSOLETE) D4T1 91 2250RTN..SA. 1 SEQ 80 26 PAGE UM JULY 30, 1973 23:28.54 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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: 686/1, 705/12 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 1 SUN SEP 08/96 19:03:19 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/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 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 1 SUN SEP 08/96 19:03:19 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/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 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 1 SUN SEP 08/96 19:03:19 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/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 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 1 SUN SEP 08/96 19:03:19 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/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 S0003 FSWATF FSNAME=ASMGMOD 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 # PART OF 66/68 D4T1 165 ASMG.ASMGMOD.OC.069 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 21:53:37 00066/070 *ASMG GTIMEST OC G S0563 D4T1 VLO FSNAME=ASMG.GTIMEST.OC.070(1) 166 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 1 SUN SEP 08/96 19:03:19 Page 23 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 FOR THIS SUBROUTINE HAS BEEN LOST, BUT COULD BE REGENERATED IF REALLY NECESSARY. 00066/071 *ASMG ASMGUPD UU G S0003 FSWATF FSNAME=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 S0003 FSWATF FSNAME=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 S0003 FSWATF FSNAME=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 S0003 FSWATF FSNAME=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 S0003 FSWATF FSNAME=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. 00066/076A *ASMG *ASMG OE G *ASMG 4.3T1 39 ASMG.*ASMG.OE.076 1 SEQ 8849 3 PAGE UM MTA APR. 05, 1980 13:51:34 *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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 ---- ----------- -------- *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 ******************************************************************************** D4.3 CHANGES: MSG LINES ADDED. ******************************************************************************** 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/078A *ASMG ASMGF1 OE G ETC:ASMGF1 4.3T1 40 ASMG.ASMGF1.OE.078 1 SEQ 9088 3 PAGE UM MTA APR. 05, 1980 13:51:36 ETC.:ASMGF1 0 ******************************************************************************** D4.3 CHANGES: REP CARDS ADDED TO CHANGE MACRO LIBRARY TO *ASMGSYSMAC (66/95). ******************************************************************************** 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 1 SUN SEP 08/96 19:03:19 Page 25 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/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 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. 1 SUN SEP 08/96 19:03:19 Page 26 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/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. 00066/095C *ASMG *ASMGSYSMAC SM G *ASMGSYSMAC 4.3T1 41 ASMG.*ASMGSYSMAC.SM.095 1 LINE 80 81 PAGE UM MTA APR. 05, 1980 13:51:38 *ASMGSYSMAC 0 *ASMGSYSMAC IS THE ASMG VERSION OF *SYSMAC. 0 Referenced by comments of: 66/78, 225/1 00067/001A FILE SAVE MAIN SA G FSAV RSTR:FILESAVE(1000) 4.3T1 42 FILE_SAVE.MAIN.SA.001 1 LINE 80 33 PAGE UM HELFFRICH APR. 05, 1980 13:51:45 RSTR:FILESAVE 0 THIS COMPONENT IS A COMBINATION OF WHAT WERE PREVIOUSLY TWO COMPONENTS, FILE SAVE (067) AND FILE SAVE - ONLINE (716). 67/1 IS THE 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 (67/17) 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 (67/29). ***************************************************************************** D4.3 CHANGES: 1) UPDATED FOR VAMX SUPPORT. 2) FILE LISTING NOW CONTAINS HEADER ON EACH PAGE IDENTIFYING TIME, DATE, TAPE SERIES, AND VOLUMES OF SAVE. ----------------------------------------------------------------------------- THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2A/RD16): 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. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 67/1, 67/37, 92/1, 502/7 00067/002A FILE SAVE SAVEFILE SA G SFIL RSTR:SAVEFILE(1000) 4.3T1 43 FILE_SAVE.SAVEFILE.SA.002 1 LINE 80 10 PAGE UM HELFFRICH APR. 05, 1980 13:51:52 RSTR:SAVEFILE 0 ASSEMBLE USING COPY:FILE.MACROS (482/33), COPY:MISC.MACROS (728) AND *SYSMAC. ***************************************************************************** D4.3 CHANGES: 1) CHANGED FOR VAMX SUPPORT 2) CHANGED TO ERASE PARTIALLY SAVED FILE FROM SAVE TAPE IF DISK ERROR ENCOUNTERED WHILE SAVING FILE. ----------------------------------------------------------------------------- THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): CHANGED TO BLOCK FILE SAVE TAPE AT A 7 DISK PAGE PER TAPE BLOCK FACTOR. ***************************************************************************** 0 Referenced by comments of: 67/17, 502/7 00067/003A FILE SAVE VTOCRD SA G VTOC RSTR:VTOCREAD(1000) 4.3T1 44 FILE_SAVE.VTOCRD.SA.003 1 LINE 80 14 PAGE UM HELFFRICH APR. 05, 1980 13:51:54 RSTR:VTOCREAD 0 SUBROUTINE TO READ ENTIRE VTOC OF DISK VOLUME. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33). ***************************************************************************** D4.3 CHANGES: UPDATED FOR VAMX SUPPORT. ***************************************************************************** 0 Referenced by comments of: 67/37, 104/111, 502/7, 1030/2 00067/004A FILE SAVE OBJECT OC G RSTR:FILESAVEOBJ 4.3T1 45 FILE_SAVE.OBJECT.OC.004 1 LINE 80 20 PAGE UM HELFFRICH APR. 05, 1980 13:51:57 RSTR:FILESAVEOBJ 0 OBJECT FROM 067/1, 067/2, 067/3, AND 67/19. 0 Referenced by comments of: 104/110, 682/20, 682/36, 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 1 SUN SEP 08/96 19:03:19 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 THE PARTIALLY WRITTEN TAPES OF THE SET WHEN RESTARTED. THIS PROGRAM IS A KLUDGE. ASSEMBLE WITH THE FILE SAVE MACROS (67/29). 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 00067/016A FILE SAVE *SAV C *SAV 4.3T1 46 FILE_SAVE.*SAV.C.016 1 LINE 65 1 PAGE UM HELFFRICH APR. 05, 1980 13:52:00 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/39 00067/017A FILE SAVE SAVE PGM SA G OLFS RSTR:DSF(1000) 4.3T1 47 FILE_SAVE.SAVE_PGM.SA.017 1 LINE 80 19 PAGE UM HELFFRICH APR. 05, 1980 13:52:02 RSTR:DSF 0 SOURCE FOR THE ONLINE FILESAVE. THIS PROGRAM SAVES THE CHANGED FILES IN THE SYSTEM AND CREATES FILES WITH NAMES OF THE FORM "FILEDIRNN" (NN=01,02,...), WHICH CONSTITUTE THE INPUT TO THE MERGE PROGRAM (67/21). THE MERGE PROGRAM ULTIMATELY MAKES THE SAVE TIMES FOR THE FILES SAVED BY THE ONLINE FILE SAVE AVAILABLE TO *RESTORE (712). CALLS SAVEFILE (67/2), FILEDSCB (502/9) AND TAPEOUT (67/19). ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE 1 SUN SEP 08/96 19:03:19 Page 30 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 FILESAVE MACROS (67/29). 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. **************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16): 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: 67/1, 67/19, 67/37, 671/1 00067/018A FILE SAVE SAVE PGM OC G RSTR:OLFSOBJ 4.3T1 48 FILE_SAVE.SAVE_PGM.OC.018 1 LINE 80 16 PAGE UM HELFFRICH APR. 05, 1980 13:52:11 RSTR:OLFSOBJ 0 CONTAINS OBJECT OF 67/2, 67/17, 67/19, AND 502/9. 00067/019A FILE SAVE TAPEOUT SA G TPDO RSTR:TAPEOUT(1000) 4.3T1 49 FILE_SAVE.TAPEOUT.SA.019 1 LINE 80 25 PAGE UM HELFFRICH APR. 05, 1980 13:52:14 RSTR:TAPEOUT 0 SUBROUTINE CALLED BY THE SAVE PROGRAM (67/17) 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. ***************************************************************************** D4.3 CHANGES: PARTIALLY SAVED FILES WILL BE ELIMINATED FROM TAPE IF A DISK ERROR EVER OCCURS WHILE SAVING THE FILE. ----------------------------------------------------------------------------- THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2C): 1) SAVE TAPES NOW BLOCKED AT 7 PAGES PER BLOCK. 2) A "SLOP FACTOR" WAS DEFINED FOR TAPE RE-USE. IN THIS TIME FRAME, TAPES WILL BE REUSED IN AN ARBITRARY RATHER THAN OLDEST-FIRST ORDER. 3) FIXED BUG WHICH WOULD CAUSE FLAKEY TAPE HARDWARE TO WRITE A TAPE MARK AT THE FRONT OF THE TAPE FOLLOWING AN ERROR BSR-ING AT THE END OF A TAPE. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 Page 31 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 67/17 00067/020A FILE SAVE TAPEOUT OC G RSTR:TAPEOUT(1,999) 4.3T1 50 FILE_SAVE.TAPEOUT.OC.020 1 LINE 80 8 PAGE UM HELFFRICH APR. 05, 1980 13:52:31 00067/021A FILE SAVE MERGE PGM SA G MERG RSTR:MERGE(1000) 4.3T1 51 FILE_SAVE.MERGE_PGM.SA.021 1 LINE 80 17 PAGE UM HELFFRICH APR. 05, 1980 13:52:38 RSTR:MERGE 0 PROGRAM TO MERGE FILEDIRNN FILES WITH THE CURRENT FILEDIR.MAS MAKING NOTE OF FILES WHICH NO LONGER EXIST AND REMOVING ENTRIES WHICH ARE NO LONGER AVAILABLE (ACCORDING TO TAPEDIR) BECAUSE THE TAPE HAS BEEN REUSED. IT ALSO DESTROYS FILEDIRNN FILES. FILEDIR.NEW IS USED SO THAT THE MERGE PROCESS IS "CRASH- PROOF" -- IT MAY BE STOPPED AND RESTARTED. CALLS NON-RESIDENT COPIES (IN CASE PISTLE HAS NOT BEEN RUN) OF THE TIME (360) AND JULGRG (522) SUBROUTINES AND THE CHKFILE SUBROUTINE (682/39). PROGRAM WILL CREATE AND PERMIT THE APPROPRIATE FILESAVE DIRECTORY FILES (RSTR:FILEDIR.MAS AND RSTR:FILEDIR.NEW) IF THEY DON'T ALREADY EXIST. COPIES *CNFGINFODSECT (654). ASSEMBLE USING THE FILESAVE MACROS (67/29). *********************************************************************************** D4.3 CHANGES: SOME BUGS IN THE HANDLING OF NOSAVE ENTRIES HAVE BEEN FIXED, AND AN OPTION PERTAINING TO DISASTER RECOVERY HAS BEEN ADDED (SEE 682/13). *********************************************************************************** 0 Referenced by comments of: 67/17, 682/39 00067/022A FILE SAVE MERGE PGM OC G RSTR:MERGE(1,999) 4.3T1 52 FILE_SAVE.MERGE_PGM.OC.022 1 LINE 80 5 PAGE UM HELFFRICH APR. 05, 1980 13:52:43 0 CONTAINS TWO "ALI" RECORDS AND "$CONTINUE WITH SEG2:CFE+SEG2:TIME+FILE:CHKFILE+*LIBRARY". 00067/023A FILE SAVE TAPEDIRLIST SA G TPDL RSTR:TAPEDIRLIST(1000) 4.3T1 53 FILE_SAVE.TAPEDIRLIST.SA.023 1 LINE 80 4 PAGE UM HELFFRICH APR. 05, 1980 13:52:45 RSTR:TAPEDIRLIST 0 PROGRAM TO LIST THE "TAPEDIR" FILE IN READABLE FORM. ASSEMBLE USING THE FILESAVE MACROS (67/29). ********************************************************************************** D4.3 CHANGES: CHANGED TO ACCEPT PARAMETER IN PAR FIELD WHICH GIVES NAME OF FILE TO LIST. DEFAULT IS RSTR:FILEDIR.MAS. ********************************************************************************** 00067/024A FILE SAVE TAPEDIRLIST OC G RSTR:TAPEDIRLIST(1,999) 4.3T1 54 FILE_SAVE.TAPEDIRLIST.OC.024 1 LINE 80 2 PAGE UM HELFFRICH APR. 05, 1980 13:52:48 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00067/025 FILE SAVE 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 (67/29). 00067/026 FILE SAVE 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. 00067/027 FILE SAVE *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 00067/028 FILE SAVE 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. 00067/029A FILE SAVE MACROS SM G RSTR:FS.MACROS 4.3T1 55 FILE_SAVE.MACROS.SM.029 1 LINE 72 3 PAGE UM HELFFRICH APR. 05, 1980 13:52:50 RSTR:FS.MACROS 0 FILESAVE MACRO LIBRARY. 0 Referenced by comments of: 67/1, 67/5, 67/17, 67/21, 67/23, 67/25, 67/39, 610/1, 671/1, 671/3, 682/37, 712/1, 712/2 00067/030 FILE SAVE 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. 00067/031 FILE SAVE 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 00067/032 FILE SAVE FILEDIR.MAS D # MTS:TST.FILEDIR UM HELFFRICH RSTR:FILEDIR.MAS 0 ONLINE FILESAVE FILE DIRECTORY FILE. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00067/033 FILE SAVE FILEDIR.NEW D # MTS:TST.FILEDIR UM HELFFRICH RSTR:FILEDIR.NEW 0 ONLINE FILESAVE FILE DIRECTORY FILE. 00067/034 FILE SAVE TAPEDIR D # MTS:TST.TAPEDIR UM HELFFRICH RSTR:TAPEDIR 0 ONLINE FILESAVE TAPE DIRECTORY FILE. 00067/035 FILE SAVE FSLOG D # MTS:TST.EMPTY UM HELFFRICH RSTR:FSLOG 0 FILESAVE LOG FILE. 00067/036 FILE SAVE 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. 00067/037C FILE SAVE TESTER SA O RSTR:FSTEST(1000) 4.3T1 56 FILE_SAVE.TESTER.SA.037 1 LINE 46 1 PAGE UM HELFFRICH APR. 05, 1980 13:52:53 0 SERIES OF OBJECT MODULES TO BE CONCATENATED TO ONLINE FILESAVE (67/17) TO DEBUG IT. $CONTINUES WITH FILEDSCB (502/9) + SAVEFILE (67/1) + VTOCREAD (67/3) + COPY:SYSDEFS (579/3). 00067/038C FILE SAVE TESTER OC O RSTR:FSTEST(1,999) 4.3T1 57 FILE_SAVE.TESTER.OC.038 1 LINE 80 1 PAGE UM HELFFRICH APR. 05, 1980 13:52:55 RSTR:FSTEST 00067/039C FILE SAVE TAPE PREVIEW SA O RSTR:TAPEPREVIEW(1000) 4.3T1 58 FILE_SAVE.TAPE_PREVIEW.SA.039 1 LINE 72 5 PAGE UM HELFFRICH APR. 05, 1980 13:52:57 0 PROGRAM INVOKED BY *SAV (67/16) TO PRINT OUT THE NEXT "N" ONLINE FILESAVE TAPES TO BE USED. TAKES THE NUMBER "N" IN THE PARAMETER FIELD, WHERE "N" IS THE NUMBER OF TAPES TO PRINT OUT. ASSEMBLE USING THE FILE SAVE MACROS (67/29). 00067/040C FILE SAVE TAPE PREVIEW OC O RSTR:TAPEPREVIEW(1,999) 4.3T1 59 FILE_SAVE.TAPE_PREVIEW.OC.040 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 13:53:00 RSTR:TAPEPREVIEW 00069 *DRAW SA # (OBSOLETE) D4T1 210 DRAW..SA. 1 SEQ 80 13 PAGE UM JULY 30, 1973 23:38.23 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 OBTAIN A SET OF RATES USED TO PRINT THE COST OF THE JOB. OTHERWISE, RATES ARE OBTAINED FROM ASSEMBLED-IN TABLES. FOR THIS REASON, THE PROGRAM WILL HAVE TO BE REASSEMBLED AT EACH INSTALLATION SINCE THE RATE TABLES WILL BE WRONG. ASSEMBLE USING COPY:MTS.MACROS (344/3). COPIES COPY:RATEVEC(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 SYS:DSK (073/4). INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE. 0 Referenced by comments of: 682/4 00073/002A *DSK *DSO C *DSO 4.3T1 60 DSK.*DSO.C.002 1 LINE 21 1 PAGE UBC HOGG MTA APR. 05, 1980 13:53:03 *DSO 0 COMMAND FILE INVOKED BY ENTERING "MTS *DSO" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "SYS" AND RUNS SYS:DSK (073/4) WITH OUTPUT TO A TEMPORARY FILE, THE END OF WHICH (SHOWING THE TOTAL DISK SPACE USED AND AVAILABLE) IS THEN COPIED TO THE OPERATOR'S CONSOLE. THIS WAS FORMERLY A PART OF DISK SPACE (644), WHICH HAS BEEN REPLACED BY *DSK. 00073/003A *DSK DSKMAN SA G DMAN FILE:DSKMAN(1000) 4.3T1 61 DSK.DSKMAN.SA.003 1 LINE 80 9 PAGE UM HELFFRICH APR. 05, 1980 13:53:05 FILE:DSKMAN 0 THIS PROGRAM IS A FRONT-END TO THE VOLREL SUBROUTINE (IN 482/5). IT ALLOWS THE OPERATORS TO MANIPULATE INFORMATION IN THE SYSTEM'S DSKTAB ENTRIES, WHICH AFFECT THE AVAILABILITY AND CERTAIN ATTRIBUTES OF THE MTS PUBLIC VOLUMES. VOLUMES CAN BE ADDED TO, REMOVED FROM, OR TEMPORARILY "FORGOTTEN" BY THE SYSTEM. ADDITIONALLY, THEY CAN ALSO BE DESIGNATED TO HAVE THE FOLLOWING CHARACTERISTICS: NO CATALOG PERMITTED; NO FILES CREATED ON THEM UNLESS EXPLICITLY REQUESTED. THE PROGRAM WILL ALSO DISPLAY INFORMATION IN THE DSKTAB ENTRIES WHICH ARE OF OPERATOR INTEREST, E.G., THE NUMBER OF FREE PAGES ON EACH DISK. ASSEMBLE USING COPY:FILE.MACROS (482/33). SEE 682/4 1 SUN SEP 08/96 19:03:19 Page 35 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 FOR A WRITEUP. 00073/004A *DSK DSKMAN OC G SYS:DSK 4.3T1 62 DSK.DSKMAN.OC.004 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 13:53:07 SYS.:DSK 0 Referenced by comments of: 73/1, 73/2 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. 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 S0563 D4T1 VLO FSNAME=STATBUFF..SA.001(1) 220 D4T1 220 STATBUFF..SA.001 1 LINE 80 1 PAGE UM HELFFRICH JULY 27, 1977 21:56:41 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 S0563 D4T1 VLO FSNAME=STAT_SUBROUTINE..SA.001(1) 221 D4T1 221 STAT_SUBROUTINE..SA.001 1 LINE 80 4 PAGE UM HELFFRICH JULY 27, 1977 21:56:44 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). 1 SUN SEP 08/96 19:03:19 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 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 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". REQUIRES HAND-INSERTED CHARACTERS. 0 Referenced by comments of: 140/2, 140/7 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00083/001A *EBCDBCD SA G S0792 WSGFS FSNAME=EBCDBCD 4.3T1 63 EBCDBCD..SA.001 1 LINE 80 3 PAGE UM WSG JAN. 11, 1980 17:33:39 0 PROGRAM TO TRANSLATE ARBITRARY LENGTH 029 KEYPUNCH RECORDS TO 026. SOURCE IN LINES (1,999). 00083/002A *EBCDBCD OC G *EBCDBCD 4.3T1 64 EBCDBCD..OC.002 1 LINE 80 1 PAGE UM WSG APR. 05, 1980 13:55:17 *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. 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. 1 SUN SEP 08/96 19:03:19 Page 38 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 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 A LLMPSEQU SA G COPY:LLMPSEQU 4.3T1 65 LLMPSEQU..SA. 1 LINE 80 13 PAGE UM MTA APR. 28, 1980 19:39:25 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/83, 116/1, 135/1, 198/1, 353/2, 354/1, 354/5, 387/1, 387/2, 387/7, 387/26, 388/1, 400/1, 400/4, 400/10, 400/12, 400/18, 413/1, 464/1, 482/5, 482/7, 500/50, 507/2, 509/1, 513/1, 531/1, 531/6, 531/13, 539/1, 540/1, 540/3, 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 540/6, 540/8, 540/18, 540/27, 545/3, 545/16, 554/1, 554/3, 570/1, 577/2, 577/4, 577/7, 578/1, 615/15, 618/1, 621/2, 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, 777/1, 1012/1, 1021/1, 1021/4, 1081/1, 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/001A FILE RESTORE RSTFMT0 SA G FMT RSTR:RSTFMT0(1000) 4.3T1 66 FILE_RESTORE.RSTFMT0.SA.001 1 LINE 80 48 PAGE UM HELFFRICH APR. 05, 1980 13:55:22 RSTR:RSTFMT0 0 MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502). ASSEMBLE USING *SYSMAC. ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): CHANGED TO HANDLE NEW TAPE BLOCKING FACTORS. ***************************************************************************** 00092/002A FILE RESTORE RSTFMT1 SA G FMT1 RSTR:RSTFMT1(1000) 4.3T1 67 FILE_RESTORE.RSTFMT1.SA.002 1 LINE 80 31 PAGE UM HELFFRICH APR. 05, 1980 13:55:30 RSTR:RSTFMT1 0 SUBROUTINE CALLED BY 092/1. ASSEMBLE USING *SYSMAC. ****************************************************************************** D4.3 CHANGES: INCREASED FILE ROUTINE SCRATCH AREA SIZES. ****************************************************************************** 00092/003A FILE RESTORE RSTFMT2 SA G FMT2 RSTR:RSTFMT2(1000) 4.3T1 68 FILE_RESTORE.RSTFMT2.SA.003 1 LINE 80 41 PAGE UM HELFFRICH APR. 05, 1980 13:55:36 RSTR:RSTFMT2 0 SUBROUTINE CALLED BY 092/1 AND *RESTORE (712). ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33). ***************************************************************************** THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT: RD4.2A (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. RD4.2C CHANGES: 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 CHANGED TO HANDLE NEW TAPE BLOCKING FACTORS. ***************************************************************************** 0 Referenced by comments of: 712/1, 712/2, 712/3 00092/004A FILE RESTORE OC G RSTR:RST 4.3T1 69 FILE_RESTORE..OC.004 1 LINE 80 25 PAGE UM HELFFRICH APR. 05, 1980 13:55:49 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY ACCINITL IN INIT:INIT TO PRODUCE LISTS OF THE USER IDS WHICH WERE NOT PROPERLY SIGNED OFF WHEN THE SYSTEM LAST WENT DOWN (IF ANY) SO THAT THEY MAY BE "FIXED". 00097/002A INIT INIT:INITCMD C INIT:INITCMD 4.3T1 70 INIT.INIT:INITCMD.C.002 1 LINE 62 1 PAGE UM MTA APR. 05, 1980 13:55:51 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 FF00, FF08, FF10, FF18, AND FF20. (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(2000), 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 (67/27) 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 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/003A INIT INIT:INIT OE G INIT:INIT 4.3T1 71 INIT.INIT:INIT.OE.003 1 LINE 1430 4 PAGE UM ENGLE APR. 05, 1980 13:55:53 INIT:INIT 0 PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN. THIS FILE MUST BE GIVEN THE PROGRAM KEY INIT. THIS PROGRAM REFERENCES INIT1, INIT2, ETC. TO GET THE USER IDS TO BE FIXED. THESE LISTS ARE BUILT BY THE PROGRAM 1 SUN SEP 08/96 19:03:19 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 AT INIT(1000). 0 Referenced by comments of: 97/2, 104/81 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 "REASONABLE" TIME AND DATE. COPIES GRDEF (104/70). 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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/001A MOUNT COMMAND SA G MNT WSG:MOUNTCMD 4.3T1 72 MOUNT_COMMAND..SA.001 1 LINE 80 71 PAGE UM WSG APR. 05, 1980 13:55:56 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, FLOPPY DISKS, 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 USING COPY:MTS.MACROS (344/3) AND COPY:SETPARM (653/1). 1 SUN SEP 08/96 19:03:19 Page 46 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): FLOPPY DISK (FDSK) SUPPORT ADDED. ***************************************************************************** 0 Referenced by comments of: 101/2, 447/1, 1067/5 00101/002A MOUNT COMMAND OC G *CLSMOUNT 4.3T1 73 MOUNT_COMMAND..OC.002 1 LINE 80 7 PAGE UM WSG APR. 05, 1980 13:56:03 *CLSMOUNT 0 OBJECT FOR THE MOUNT COMMAND CLS (101/1), THE MOUNT SUBROUTINE (271/1), THE MNTSTAT SUBROUTINE (447/1), THE DISMOUNT SUBROUTINE (270/1), AND THE TAPESHARE CHECK SUBROUTINE (1067/5). 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 ACC:ACCDISPLAY ADSP+ACCLIB ACC:ACCERRORSCAN ACNS+ACCLIB ACC:ACCFILCHARGE ADSP+AFLC+ACCLIB ACC:ACCHEXDISP ADSP+AXPR+ACCLIB 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 1 SUN SEP 08/96 19:03:19 Page 47 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/20, 104/31, 104/50, 104/53, 104/64, 104/66, 104/79, 104/81, 104/86, 104/88, 104/91, 104/97, 502/1, 586/1, 631/8, 631/11, 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/20, 104/35, 104/42, 104/53, 104/134, 500/36, 500/40, 631/8 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). 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/127 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. 1 SUN SEP 08/96 19:03:19 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/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/014A ACCOUNTING STATUS SA G STAT S0027 DISTRB FSNAME=STATUS 4.3T1 74 ACCOUNTING.STATUS.SA.014 1 LINE 80 26 PAGE UM ENGLE FEB. 20, 1980 10:22:27 0 MAIN PROGRAM FOR *STATUS. COPIES ACCFORMAT (104/1). THIS PROGRAM HAS A GLOBAL SYMBOL &CLS. IF &CLS IS 0, THE OBJECT FOR *STATUS IS PRODUCED. IF &CLS IS 1, A SUBROUTINE TO BE CALLED BY THE ACCOUNTING CLS IS PRODUCED. THIS LATTER ASSEMBLY USES COPY:MTS.MACROS (344/3). ********************************************************************************* D4.3 VERSION: N.B. THE VERSION USED WITH THE ACCOUNTING CLS HAS NOT BEEN ANNOUNCED AND SPECIFICATIONS ARE SUBJECT TO CHANGE. IT SHOULD BE CONSIDERED EXPERIMENTAL. ********************************************************************************* 00104/015C ACCOUNTING STATUS UC G S0027 DISTRB FSNAME=STATUSUPD 4.3T1 75 ACCOUNTING.STATUS.UC.015 1 LINE 79 11 PAGE UM ENGLE FEB. 20, 1980 10:23:14 00104/016A ACCOUNTING STATUS OC G S0027 DISTRB FSNAME=STAT 4.3T1 76 ACCOUNTING.STATUS.OC.016 1 LINE 80 5 PAGE UM ENGLE FEB. 20, 1980 10:23:20 0 OBJECT FOR *STATUS. 0 Referenced by comments of: 129/2 00104/017C ACCOUNTING STATUS OC G S0027 DISTRB FSNAME=STATCLS 4.3T1 77 ACCOUNTING.STATUS.OC.017 1 LINE 80 6 PAGE UM ENGLE FEB. 20, 1980 10:23:28 0 OBJECT FOR ACCOUNTING CLS SUBROUTINE. ********************************************************************************* 1 SUN SEP 08/96 19:03:19 Page 49 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 D4.3 VERSION: SEE WARNING FOR 104/14. ********************************************************************************* 0 Referenced by comments of: 631/8, 631/15 00104/018 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/70) AND COPY:RATEVEC (651/2). 0 Referenced by comments of: 484/1 00104/019 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/020 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/021 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/022 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/127 00104/023 ACCOUNTING ACCMAINT OE G # ACC:ACCMAINT UM ENGLE ACC:ACCMAINT 0 Referenced by comments of: 104/125 00104/024 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/41 00104/025 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. 1 SUN SEP 08/96 19:03:19 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: 484/1, 631/15 00104/026 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/33). 0 Referenced by comments of: 104/33, 682/36 00104/027 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/028 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/029 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/030 ACCOUNTING ACCDSPLA OC G # ACC:ACCDISPLAY UM ENGLE ACC:ACCDISPLAY 00104/031 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/032 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/033 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/26) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION. 0 Referenced by comments of: 104/26, 682/36 00104/034 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/66 00104/035 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 TO USE, RUN PRJLIST (104/45) + PCONVERT + ACCLIB (104/41). NEW PROJECT FILE IS PRODUCED ON SPUNCH. COPIES ACCPROJFMT (104/2). 00104/036 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 00104/037 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/127 00104/038 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/039 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/040 ACCOUNTING ACCPRJMT OE G # ACC:PROJECTMAINT UM ENGLE ACC:PROJECTMAINT 00104/041A ACCOUNTING ACCLIB OL G S0027 DISTRB FSNAME=ACCLIB 4.3T1 78 ACCOUNTING.ACCLIB.OL.041 1 LINE 768 24 PAGE UM ENGLE FEB. 22, 1980 17:38:39 ACC:ACCLIB 0 THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/24) TO PUBLIC FILES. THIS FILE MUST BE PERMITTED AS FOLLOWS: R PKEY=FILEINFO. 0 Referenced by comments of: 104/35, 632/3, 632/6, 682/36 00104/042 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/127 00104/043 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/044 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/40 1 SUN SEP 08/96 19:03:19 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/045 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/35 00104/046 ACCOUNTING PRJLIST OC G # ACC:PROJECTLIST UM ENGLE ACC:PROJECTLIST 00104/047 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/048 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/049 ACCOUNTING PRJDSPLA OC G # ACC:PROJECTDISP UM ENGLE ACC:PROJECTDISP 00104/050 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/147, 104/148, 104/155 00104/051 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/052 ACCOUNTING ACCPASWD OE G # WPSW:PROGRAM1 UM ENGLE ACC:ACCPASWD 00104/053 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/127 00104/054 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/055 ACCOUNTING ACONSIST OC G # ACC:ACCERRORSCAN UM ENGLE ACC:ACCERRORSCAN 1 SUN SEP 08/96 19:03:19 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/056 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. 0 Referenced by comments of: 104/141 00104/057 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/058 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/15 00104/059 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/060 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/15 00104/061 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/062 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/063 ACCOUNTING DIRLIST OC G # ACC:DIRLIST UM ENGLE ACC:DIRLIST 00104/064 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/147, 104/148 1 SUN SEP 08/96 19:03:19 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/065 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/066 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/34). COPIES ACCFORMAT (104/1). 00104/067 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/068A ACCOUNTING STAPROJECT OC G S0027 DISTRB FSNAME=STAPROJECT 4.3T1 79 ACCOUNTING.STAPROJECT.OC.068 1 LINE 80 5 PAGE UM ENGLE FEB. 20, 1980 10:26:04 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/8 00104/069A ACCOUNTING STAPROJECT OE G # ACC:STAPROJECT UM ENGLE ACC:STAPROJECT 0 LINKEDITED VERSION OF 104/68 + AUPR (631/8) + "$CONTINUE WITH ACC:ACCLIB". 00104/070 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/18, 104/79, 104/81, 104/83, 104/91, 104/95, 104/102, 104/114, 104/134, 360/1, 500/46, 586/1, 631/1, 631/5, 631/13, 632/3, 708/1 00104/071 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/78). 00104/072 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/073 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/074 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00104/075 ACCOUNTING DIRDSPLA OC G # ACC:DIRDISPLAY UM ENGLE ACC:DIRDISPLAY 00104/076 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/077 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 00104/078 ACCOUNTING INITCHK # (SEE COMP 097/5 AND 097/6) UM ENGLE 0 Referenced by comments of: 104/71 00104/079 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/70). 00104/080 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/081 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/70). 00104/082 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/083 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/70) 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/084 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/085 ACCOUNTING DEDFLFIX # (SEE COMP 502/9 AND 502/10) UM ENGLE 1 SUN SEP 08/96 19:03:19 Page 56 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/086 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/127 00104/087 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/088 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). 00104/089 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/090 ACCOUNTING ACCFLCHG OE G # ACC:ACCFILCHARGE UM ENGLE ACC:ACCFILCHARGE 0 ACCDSPLA+ACCFLCHG 00104/091 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/70). 00104/092 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/093 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/094 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/095 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/70). 00104/096 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/15 1 SUN SEP 08/96 19:03:19 Page 57 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/097 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/147, 104/148, 104/155 00104/098 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/099 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. 0 Referenced by comments of: 104/129 00104/100 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/101 ACCOUNTING ACCSAVE OE G # ACC:ACCSAVE UM ENGLE ACC:ACCSAVE 00104/102 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/70). 00104/103 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/104 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/105 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: 484/1, 631/15 00104/106A ACCOUNTING ACATALOG SA G ACAT FILE:ACATALOG(1000) 4.3T1 80 ACCOUNTING.ACATALOG.SA.106 1 LINE 80 4 PAGE UM HELFFRICH APR. 05, 1980 14:00:53 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). ********************************************************************************** D4.3 CHANGES: 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 UPDATED FOR DISK MANAGER (769) COMPATABILITY. ********************************************************************************** 00104/107A ACCOUNTING ACATALOG OC G FILE:ACATALOG(1,998) 4.3T1 81 ACCOUNTING.ACATALOG.OC.107 1 LINE 80 2 PAGE UM HELFFRICH APR. 05, 1980 14:00:55 FILE:ACATALOG 0 Referenced by comments of: 484/1 00104/108 ACCOUNTING ACATALOG SA G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACATALOG.SA.092(1) 369 D4T1 369 ACCOUNTING.ACATALOG.SA.092 1 LINE 80 3 PAGE UM MTA JULY 27, 1977 22:18:36 0 THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION, BUT CALLS THE ACATSUB SUBROUTINE (104/110) 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/110, 682/36 00104/109 ACCOUNTING ACATALOG OC G S0563 D4T1 VLO FSNAME=ACCOUNTING.ACATALOG.OC.093(1) 370 D4T1 370 ACCOUNTING.ACATALOG.OC.093 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 22:18:38 MTA:ACATALOG 00104/110A ACCOUNTING ACATSUB SA G FILE:ACATSUB(1,999) 4.3T1 82 ACCOUNTING.ACATSUB.SA.110 1 LINE 72 8 PAGE UM MTA APR. 28, 1980 19:40:45 FILE:ACATSUB 0 SUBROUTINE CALLED BY SUPER ACATALOG (104/108) 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 USING COPY:FILE.MACROS (482/33). 0 Referenced by comments of: 104/108, 682/36 00104/111A ACCOUNTING ACATSUB OC G FILE:ACATSUB(1000) 4.3T1 83 ACCOUNTING.ACATSUB.OC.111 1 LINE 80 4 PAGE UM MTA APR. 28, 1980 19:40:48 0 HAS A $CONTINUE WITH RSTR:VTOCREAD (67/3) + COPY:SYSDEFS (579/3) RECORD. 1 SUN SEP 08/96 19:03:19 Page 59 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/112 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/113 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/114 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/70). 0 Referenced by comments of: 631/15 00104/115 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 00104/116 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/118) FROM ACC:ACCLIB+NEW:GOMLIB. 00104/117 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/118A ACCOUNTING ACCFLINF SG G S0027 DISTRB FSNAME=ACCFLINF 4.3T1 84 ACCOUNTING.ACCFLINF.SG.118 1 LINE 100 3 PAGE UM ENGLE FEB. 20, 1980 10:33:58 0 MAIN FUNCTION TO READ THE ACCOUNTING FILES AND PRINT STATISTICS ON FILE USAGE. 0 Referenced by comments of: 104/116, 104/121, 104/123, 104/125 1 SUN SEP 08/96 19:03:19 Page 60 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/119A ACCOUNTING ACCFLINF UC G S0027 DISTRB FSNAME=ACCFLINFUPD 4.3T1 85 ACCOUNTING.ACCFLINF.UC.119 1 LINE 81 1 PAGE UM ENGLE FEB. 20, 1980 10:34:06 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00104/120A ACCOUNTING ACCFLINF OC G S0027 DISTRB FSNAME=AFIN 4.3T1 86 ACCOUNTING.ACCFLINF.OC.120 1 LINE 80 7 PAGE UM ENGLE FEB. 20, 1980 10:34:12 00104/121 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/118). 00104/122 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/123 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/118). 00104/124 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 00104/125 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/118) AND ACCSCAN AND ACCCLOSE (104/23). 00104/126 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/127 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/86), ACPRJPRT (104/42), ACCMAINT (104/22), ACCPRJMT (104/37), AND ACONSIST (104/53). 00104/128 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/129 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/99) 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/132 1 SUN SEP 08/96 19:03:19 Page 61 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/130 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/131 ACCOUNTING ACCRETRV OE G # ACC:ACCRETRIEVE UM ENGLE ACC.:ACCRETRIEVE 0 ACCRETRV+ACCTAPRD 00104/132 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/129). 00104/133 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/134 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/70), ACCPROJFMT (104/2) AND *CNFGINFODSECT (654). 00104/135 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/136 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/137 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/138 ACCOUNTING ACCPRJID OE G # ACC:PROJECTIDS UM ENGLE ACC.:PROJECTIDS 00104/139 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/140 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/141C ACCOUNTING ACCKILL SG O S0027 DISTRB FSNAME=ACCKILL 4.3T1 87 ACCOUNTING.ACCKILL.SG.141 1 LINE 110 3 PAGE UM ENGLE MAR. 07, 1980 17:47:11 0 PROGRAM TO BE RUN BY THE OPERATORS TO CHANGE A PASSWORD TO AN UNKNOWN VALUE. PROGRAM PROMPTS FOR OPERATOR'S NAME, NAME OF PERSON REQUESTING THE CHANGE, 1 SUN SEP 08/96 19:03:19 Page 62 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE SIGNON ID, AND THE SIGNON ID A SECOND TIME FOR VERIFICATION. INFORMATION ABOUT THE CHANGE IS WRITTEN IN ACCLOGFL (SEE FILENAME (104/56)). 00104/142 ACCOUNTING ACCKILL UC G S0027 DISTRB FSNAME=ACCKILLUPD UM ENGLE 0 UPDATES SOURCE FROM THE PREVIOUS REGULAR DISTRIBUTION TO THE CURRENT DISTRIBUTION. 00104/143C ACCOUNTING ACCKILL OC O S0027 DISTRB FSNAME=AKIL 4.3T1 88 ACCOUNTING.ACCKILL.OC.143 1 LINE 80 4 PAGE UM ENGLE MAR. 07, 1980 17:47:20 00104/144A ACCOUNTING LOG SG G S0027 DISTRB FSNAME=LOGSOURCE 4.3T1 89 ACCOUNTING.LOG.SG.144 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 10:41:31 0 SUBROUTINE TO WRITE AN AUDIT TRAIL IN A LOG FILE. 0 Referenced by comments of: 631/15 00104/145C ACCOUNTING LOG UC G S0027 DISTRB FSNAME=LOGUPD 4.3T1 90 ACCOUNTING.LOG.UC.145 1 LINE 67 1 PAGE UM ENGLE FEB. 20, 1980 10:41:38 00104/146A ACCOUNTING LOG OC G S0027 DISTRB FSNAME=LOG 4.3T1 91 ACCOUNTING.LOG.OC.146 1 LINE 80 4 PAGE UM ENGLE FEB. 20, 1980 10:41:45 00104/147A 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=INIT:INIT, PKEY=(ACCPASWD (104/50)),PKEY=(ACCSGATR (104/97)),PKEY=(FIX (502/11)), PKEY=*ACRESTORE,PKEY=(SCANFILES (502/1))),WE PKEY=INIT:INITCHK,RW ACC., RWE PKEY=(FILUPDAT (104/64)) THE DISTRIBUTED SYSTEM HAS THE FOLLOWING USERIDS: ACC., APL., BB00 ... BB99, BNCH, B001 ... B500, COPY, DIST, DWB., ETC., FILE, FIX., INIT, MTA., MTS., NEW., NPRV, RSTR, SEG2, STRT, SYS., TMTS, UNSP, WSG., W009, AND W170. 00104/148A ACCOUNTING *ACCOUNTING1 D # MTS:$ACCOUNTING1 UM ENGLE *ACCOUNTING1 0 THE AUXILIARY ACCOUNTING FILES (*ACCOUNTING1, *ACCOUNTING2, ETC.) CONTAIN THE ACTUAL ACCOUNTING RECORDS, ONE FOR EACH USER ID. THE FILES MUST BE PERMITTED AS FOLLOWS: R/N,RWC (PKEY=*SYS.ACC,PKEY=*ACC,PKEY=INIT:INIT,PKEY=(FIX (502/11)),PKEY=*ACRESTORE, PKEY=(FILUPDAT (104/64)),PKEY=(SCANFILES (502/1)),PKEY=(ACCPASWD (104/50)), PKEY=(ACCSGATR (104/97))),R PKEY=ACC.:FILEINFO,RW ACC. 1 SUN SEP 08/96 19:03:19 Page 63 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/149A ACCOUNTING *ACCOUNTING2 D # MTS:$ACCOUNTING2 UM ENGLE *ACCOUNTING2 00104/150A ACCOUNTING *ACCOUNTING3 D # MTS:$ACCOUNTING3 UM ENGLE *ACCOUNTING3 00104/151A ACCOUNTING *ACCOUNTING4 D # MTS:$ACCOUNTING4 UM ENGLE *ACCOUNTING4 00104/152A ACCOUNTING *ACCOUNTING5 D # MTS:$ACCOUNTING5 UM ENGLE *ACCOUNTING5 00104/153A 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,PKEY=*SYS.MESSAGE) THIS FILE MUST ALSO BE PERMITTED READ TO THE USER ID WHICH RUNS THE BILLING PROGRAMS. 00104/154A 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,PKEY=*SYS.MESSAGE) 00104/155 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/50) OR ACCSGATR (104/97) WILL LEAVE SOME EVIDENCE. IN THEORY, THESE PROGAMS ARE NOT AVAILABLE TO USERS. 00104/156 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00108/001A *PL360 COMPILER S3 DBMS:PL360COMP.S 4.3T1 92 PL360.COMPILER.S3.001 1 LINE 80 81 PAGE UM BLOCK APR. 05, 1980 14:02:01 0 THIS VERSION OF PL360 IS BASED ON ONE RECEIVED FROM STANFORD IN LATE 1977 AND INSTALLED AT UM IN JANUARY, 1978. A SET OF UPDATES FROM STANFORD HAS BEEN APPLIED, AS HAVE SOME LOCAL CHANGES TO THE SYM RECORDS OUTPUT UNDER THE TEST OPTION. THE PL360 COMPILER CONSISTS OF TWO PARTS. PL360COMP IS WRITTEN IN PL360 AND CONTAINS ALL SYSTEM INDEPENDENT PORTIONS OF THE COMPILER. PL360INTF IS WRITTEN IN ASSEMBLY AND IS THE MTS INTERFACE TO PL360. THE ENTRY POINT IS IN PL360COMP. ONCE *PL360 IS BOOTSTRAPPED, THE OBJECT MODULES ARE OBTAINED AS FOLLOWS: $RUN *PL360 SCARDS=PL360COMP.S SPUNCH=PL360COMP.O SPRINT=*PRINT* PAR=SIZE=100 $RUN *ASMH SCARDS=PL360INTF.S SPUNCH=PL360INTF.O SPRINT=*PRINT* *PL360 IS THEN LINKEDITED AS FOLLOWS: $RUN *LINKEDIT INCLUDE 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/002A *PL360 MTS INTERFACE SA DBMS:PL360INTF.S 4.3T1 93 PL360.MTS_INTERFACE.SA.002 1 LINE 80 14 PAGE UM BLOCK APR. 05, 1980 14:02:06 0 SOURCE FOR MTS INTERFACE OF PL/360. 00108/003A *PL360 *PL360 OE *PL360 4.3T1 94 PL360.*PL360.OE.003 1 SEQ 26292 10 PAGE UM BLOCK APR. 05, 1980 14:02:08 *PL360 00108/004A *PL360 LIBRARY SA DBMS:PL360LIB.S 4.3T1 95 PL360.LIBRARY.SA.004 1 LINE 80 3 PAGE UM BLOCK APR. 05, 1980 14:02:11 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 PL360LIB.S CONTAINS THE ASSEMBLY SOURCE FOR *PL360LIB. 00108/005A *PL360 *PL360LIB OE *PL360LIB 4.3T1 96 PL360.*PL360LIB.OE.005 1 LINE 572 1 PAGE UM BLOCK APR. 05, 1980 14:02:13 *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/001A *PDP8RTN SA G PDP8 WSG:PDP8 4.3T1 97 PDP8RTN..SA.001 1 LINE 80 74 PAGE UM WSG MAY 21, 1980 23:06:51 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), *CNFGINFODSECT (654), AND *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 681/1, 681/2, 681/19 00116/002A *PDP8RTN OC G *PDP8RTN 4.3T1 98 PDP8RTN..OC.002 1 LINE 8976 28 PAGE UM WSG MAY 21, 1980 23:06:59 *PDP8RTN 00116/003 *PDP8RTN MEMO 370 WF S0672 CCMEMO 'CCMEMOS' FSNAME=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." 00116/004 *PDP8RTN MEMO 375 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M375DECWRITER D4.2T1 106 PDP8RTN.MEMO_375.WF.006 1 LINE 104 10 PAGE UM P.O. SEP. 07, 1978 15:03:42 0 THIS IS COMPUTING CENTER MEMO 375 -- "THE DECWRITER TERMINAL AND MTS." 00116/005C *PDP8RTN MEMO 413 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M413 4.3T1 99 PDP8RTN.MEMO_413.WF.005 1 LINE 68 3 PAGE UM LUBBERS FEB. 29, 1980 10:17:22 0 THIS IS COMPUTING CENTER MEMO 413 -- "GUIDE FOR USING DECWRITER TERMINALS WITH 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 VARIOUS TERMINAL CONTROLLERS." 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 S1143 D4.1T1 VLO FSNAME=REWIND_SUBR..SA.001(1) 64 D4.1T1 64 REWIND_SUBR..SA.001 1 LINE 80 1 PAGE UM MTA MAY 13, 1978 17:05:05 0 FORTRAN CALLABLE REWIND SUBROUTINE. ASSEMBLE USING *SYSMAC. 00120/002 REWIND SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00121/001A *USERS SG G MTS:USERS.S 4.3T1 100 USERS..SG.001 1 LINE 75 1 PAGE UM MTA APR. 05, 1980 14:06:21 0 GOM PROGRAM TO ISSUE A "$SYSTEMSTATUS USERS" COMMAND (GRUDGINGLY). IT IS SUGGESTED THAT THIS PROGRAM NOT BE INSTALLED AT NEW INSTALLATIONS. 00121/002A *USERS OC G *USERS 4.3T1 101 USERS..OC.002 1 LINE 80 1 PAGE UM MTA APR. 05, 1980 14:06:23 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! 00129/001 *STATUS SA G # (SEE COMP 104) UM ENGLE 0 PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 RUN WITH PROT=OFF. 00129/002A *STATUS OE G *STATUS 4.3T1 102 STATUS..OE.002 1 LINE 6148 3 PAGE UM ENGLE APR. 05, 1980 14:06:25 *STATUS 0 CONSISTS OF: STATUS (104/16) + *LCS (164). THIS FILE MUST BE PERMITTED AS FOLLOWS: U/N,R PKEY=*MTS.RUN THIS FILE MUST BE GIVEN THE PROGRAM KEY *STATUS. 00131 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/001A *TAPERTN SA G TAPE WSG:TAPE 4.3T1 103 TAPERTN..SA.001 1 LINE 80 110 PAGE UM WSG APR. 05, 1980 14:06:27 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) AND COPY:SETPARM (653/1). 0 Referenced by comments of: 489/1 00135/002A *TAPERTN OC G *TAPERTN 4.3T1 104 TAPERTN..OC.002 1 LINE 80 7 PAGE UM WSG APR. 05, 1980 14:06:44 *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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/017A *TEXT360 *T360MASTCONV SP G S0701 RD16T1 VLO FSNAME=TEXT360.*T360MASTCONV.SP.017(1) 18 4.3T1 105 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/018A *TEXT360 *T360MASTCONV SA G S0701 RD16T1 VLO FSNAME=TEXT360.*T360MASTCONV.SA.018(1) 19 4.3T1 106 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/019A *TEXT360 *T360MASTCONV OE G *T360MASTCONV 4.3T1 107 TEXT360.*T360MASTCONV.OE.019 1 LINE 5598 5 PAGE UM TIFFANY APR. 05, 1980 14:08:28 *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 393 (079/6). 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 CCMEMO 393 (079/6). 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 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/010 *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. 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 S0563 D4T1 VLO FSNAME=TASKS..SA.001(1) 452 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 00160 FRONCOPY S # (OBSOLETE) D2T1 387 UM 00162 A PSA DSECT SA G COPY:PSA 4.3T1 108 PSA_DSECT..SA. 1 LINE 72 4 PAGE UM MTA APR. 05, 1980 14:08:29 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/4 00163/001A PL1 COMPILER MACLIB SM G MAC W062:OSMACLIB 4.3T1 109 PL1_COMPILER.MACLIB.SM.001 1 LINE 80 27 PAGE UM TIFFANY APR. 05, 1980 14:08:31 0 PL/I(F) VERSION 5.5 COMPILER (RELEASE 21.8). 1 SUN SEP 08/96 19:03:19 Page 74 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ******************************************************************** THIS VERSION OF THE PL/I(F) COMPILER HAVE ALREADY BEEN SENT OUT ON RD4.2C. IT DIFFERS FROM THE PREVIOUS VERSION IN THE FOLLOWING WAYS: 1) FASTER AND CHEAPER COMPILATION. 2) INPUT RECORDS OVER 100 BYTES WILL BE TRUNCATED WITH A WARNING. 3) COMPILER OPTIONS NO LONGER SET TO DEFAULT AT THE SECOND (AND SUBSEQUENT) COMPILATION. THEY WILL BE THE SAME AS AT THE FIRST COMPILATION UNLESS OVERRIDDEN BY THE %PROCESS RECORD. 4) OPTION DIAG IS THE DEFAULT IF SERCOM IS DIFFERENT THAN SPRINT OR IF SPRINT IS NOT USED. 5) IF SPRINT IS SET TO A TERMINAL BY DEFAULT, THEN OPTIONS NOOPLIST, NOSOURCE2, NOSOURCE, NOXREF, NOATR, NOEXTREF, AND NOLIST ARE ASSUMED. 6) TWO NEW OPTIONS HAVE BEEN ADDED. A) THE MTS/OS OPTION PRODUCES OBJECT MODULES THAT ARE INTENDED FOR MTS OR OS, RESPECTIVELY. THE DEFAULT IS MTS. B) NUM/NONUM CONTROLS THE PRINTING OF MTS LINE NUMBERS IN THE SOURCE LISTING. THE DEFAULT IS NUM. 7) THE WORK FILE -SYSUT4 IS NOW A VIRTUAL MEMORY FILE. ******************************************************************** THIS SUBCOMPONENT, MACLIB, IS A MACRO LIBRARY FOR THE SIMULATION OF OS/360 STUFF IN MTS. 0 Referenced by comments of: 163/13, 233/41, 595/6 00163/002A PL1 COMPILER MACLIB SM G W062:MAC 4.3T1 110 PL1_COMPILER.MACLIB.SM.002 1 LINE 73 8 PAGE UM TIFFANY APR. 05, 1980 14:08:33 0 ANOTHER MACRO LIBRARY. 0 Referenced by comments of: 233/32 00163/003A PL1 COMPILER REPLACE SA G RPLC W062:IOPACK(1000,1999) 4.3T1 111 PL1_COMPILER.REPLACE.SA.003 1 LINE 80 3 PAGE UM TIFFANY APR. 05, 1980 14:08:35 0 ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE. ASSEMBLE USING THE 163/1 MACRO LIBRARY. 00163/004A PL1 COMPILER CHKLIO SA G CKL W062:IOPACK(2000,2999) 4.3T1 112 PL1_COMPILER.CHKLIO.SA.004 1 LINE 80 3 PAGE UM TIFFANY APR. 05, 1980 14:09:00 0 ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT. 00163/005A PL1 COMPILER NONSENSE SA G NONE W062:IOPACK(3000,3999) 4.3T1 113 PL1_COMPILER.NONSENSE.SA.005 1 LINE 80 3 PAGE UM TIFFANY APR. 05, 1980 14:09:27 0 ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE. ASSEMBLE USING THE 163/1 MACRO LIBRARY. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00163/006A PL1 COMPILER FREEDDEF SA G FREE W062:IOPACK(4000,4999) 4.3T1 114 PL1_COMPILER.FREEDDEF.SA.006 1 LINE 80 2 PAGE UM TIFFANY APR. 05, 1980 14:09:53 0 ROUTINE TO FREE ALL DDEF'S. ASSEMBLE USING THE 163/1 MACRO LIBRARY. 00163/007A PL1 COMPILER FINDTIOT SA G FIND W062:IOPACK(5000,5999) 4.3T1 115 PL1_COMPILER.FINDTIOT.SA.007 1 LINE 80 2 PAGE UM TIFFANY APR. 05, 1980 14:10:19 0 ROUTINE TO FIND A TIOT GIVEN A "DDNAME." ASSEMBLE USING THE 163/1 MACRO LIBRARY. 00163/008A PL1 COMPILER DDEF SA G DDEF W062:IOPACK(6000,6999) 4.3T1 116 PL1_COMPILER.DDEF.SA.008 1 LINE 80 10 PAGE UM TIFFANY APR. 05, 1980 14:10:46 0 ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH. ASSEMBLE USING THE 163/1 MACRO LIBRARY. 00163/009A PL1 COMPILER OPEN SA G OPEN W062:IOPACK(7000,7999) 4.3T1 117 PL1_COMPILER.OPEN.SA.009 1 LINE 80 16 PAGE UM TIFFANY APR. 05, 1980 14:11:16 0 SIMULATE OS/360 OPEN. CURRENTLY ONLY BSAM AND QSAM ARE SUPPORTED. ASSEMBLE USING THE 163/1 MACRO LIBRARY. 00163/010A PL1 COMPILER ROUT SA G RUTE W062:IOPACK(8000,8999) 4.3T1 118 PL1_COMPILER.ROUT.SA.010 1 LINE 80 32 PAGE UM TIFFANY APR. 05, 1980 14:12:18 0 LIST OF VARIOUS ROUTINES. MODIFIED TO FIX @NOTIFY PROBLEM. ASSEMBLE USING THE 163/1 MACRO LIBRARY. 00163/011A PL1 COMPILER CLOSE SA G CLOS W062:IOPACK(9000,9999) 4.3T1 119 PL1_COMPILER.CLOSE.SA.011 1 LINE 80 5 PAGE UM TIFFANY APR. 05, 1980 14:13:12 0 SIMULATE OS/360 CLOSE. ASSEMBLE USING THE 163/1 MACRO LIBRARY. 00163/012A PL1 COMPILER SETPFX SA G SPFX W062:IOPACK(10000,10999) 4.3T1 120 PL1_COMPILER.SETPFX.SA.012 1 LINE 80 7 PAGE UM TIFFANY APR. 05, 1980 14:13:46 0 ALTERNATE ROUTINES: SETPFX, GETPFX WITH MULTICHARACTER PREFIX FEATURES. 00163/013A PL1 COMPILER UPDATE UC W062:PL1.UP 4.3T1 121 PL1_COMPILER.UPDATE.UC.013 1 LINE 73 40 PAGE UM TIFFANY APR. 05, 1980 14:14:13 0 *CDUPDATE INPUT TO PRODUCE CURRENT MTS PL/I COMPILER FROM OS/360 RELEASE 21.8 SOURCE. THE COMPILER MAY BE PRODUCED IN THE FOLLOWING WAY: 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 1) USE PL/1 MAINTENANCE HENPECKER (506/8) TO PICK UP THE SPECIFIC MODULE SOURCES FROM IEBUPDT OS RELEASE 21.8 SOURCE. 2) APPLY UPDATE (THIS SUBCOMPONENT). 3) RUN *ASMH (737/30) WITH MACRO LIBRARY OSMACLIB (163/1). SEE 506/10 FOR INFORMATION REGARDING THE INSTALLATION AND MAINTENANCE OF VERSION 5.5 OF THE PL/I-F COMPILER. ***************************************************************************** D4.3 CHANGES: MODULES IEMFE AND IEMQJ UPDATED. ***************************************************************************** 00163/014A PL1 COMPILER ESDLIST SA G ESDL W062:PL1LCS(1,999) 4.3T1 122 PL1_COMPILER.ESDLIST.SA.014 1 LINE 80 2 PAGE UM TIFFANY APR. 05, 1980 14:14:37 0 TABLE OF SOMETHING OR OTHER USED BY PL/1 MAINTENANCE LLXU (506/7). SOURCE GENERATED BY PL/1 MAINTENANCE CRELCS (506/1). 00163/015A PL1 COMPILER IEMTM SA G TM W062:IEMTM 4.3T1 123 PL1_COMPILER.IEMTM.SA.015 1 LINE 80 42 PAGE UM TIFFANY APR. 05, 1980 14:14:39 0 COMPILER PHASE "TM" WHICH PRODUCES THE SYMPL1 RECORDS IF THE "TEST" OPTION IS USED. 00163/016A PL1 COMPILER *PL1 OE G *PL1 4.3T1 124 PL1_COMPILER.*PL1.OE.016 1 LINE 5196 9 PAGE UM TIFFANY APR. 05, 1980 14:14:48 *PL1 0 Referenced by comments of: 163/17 00163/017A PL1 COMPILER PL1LINKLIB OE G ETC:PL1LINKLIB 4.3T1 125 PL1_COMPILER.PL1LINKLIB.OE.017 1 LINE 17741 238 PAGE UM TIFFANY APR. 05, 1980 14:14:50 ETC:PL1LINKLIB 0 A DIR-TYPE LIBRARY LINE FILE FROM WHICH *PL1 (163/16) LOADS PHASES DURING COMPILATION. 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 0 Referenced by comments of: 129/2, 303/4, 631/15, 739/4, 740/4 00170 *LISTVTOC SA # (OBSOLETE) D2T1 105 UM 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00171 *BATCH SA # (OBSOLETED BY *BATCH*) D2T1 327 UM 00172/001A *UMIST MACRO LIB SM S0600 UMIST FSNAME=UMIST.MAC 4.3T1 126 UMIST.MACRO_LIB.SM.001 1 LINE 72 8 PAGE UM WELTER SEP. 07, 1979 09:14:41 0 172/1 THRU 172/9 REPRESENT THE CURRENT SOURCE FOR *UMIST. IT CONSISTS OF 1 MACRO LIBRARY, 2 COPY SECTIONS, AND 6 ASSEMBLIES. TO ASSEMBLE UMIST CREATE AND FILL UMIST.SYMS (172/2) AND UMIST.PSECT (172/3) (THE COPY SECTIONS), CREATE THE MACRO LIBRARY, AND ASSEMBLE ANY OR ALL OF THE ASSEMBLIES USING BOTH *SYSMAC AND THE SPECIAL MACRO LIBRARY. COMPONENT 172/1 IS THE MACRO LIBRARY READY FOR COPYING INTO A FILE. ************************************************************************** D4.3 UMIST CHANGES: REMOVED SWAP REGISTER INSTRUCTIONS AND FIXED MISCELLANEOUS BUGS. ************************************************************************** 00172/002A *UMIST /SYMBOLS SA S0600 UMIST FSNAME=UMIST.SYMS 4.3T1 127 UMIST./SYMBOLS.SA.002 1 LINE 72 3 PAGE UM WELTER SEP. 07, 1979 09:16:28 0 THIS IS THE UMIST.SYMS COPY SECTION 0 Referenced by comments of: 172/1 00172/003A *UMIST /PSECT SA S0600 UMIST FSNAME=UMIST.PSECT 4.3T1 128 UMIST./PSECT.SA.003 1 LINE 72 4 PAGE UM WELTER SEP. 07, 1979 09:16:38 0 THIS IS THE UMIST.PSECT COPY SECTION 0 Referenced by comments of: 172/1 00172/004A *UMIST /ENTRY SA S0600 UMIST FSNAME=UMIST.ENT.AS 4.3T1 129 UMIST./ENTRY.SA.004 1 LINE 71 5 PAGE UM WELTER SEP. 07, 1979 09:17:28 0 "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH AS POSSIBLE. 00172/005A *UMIST /TABLES SA S0600 UMIST FSNAME=UMIST.TAB.AS 4.3T1 130 UMIST./TABLES.SA.005 1 LINE 73 5 PAGE UM WELTER SEP. 07, 1979 09:17:51 0 MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS. CALLED "/TABLES" 00172/006A *UMIST /MISC SA S0600 UMIST FSNAME=UMIST.MIS.AS 4.3T1 131 UMIST./MISC.SA.006 1 LINE 72 1 PAGE UM WELTER SEP. 07, 1979 09:18:10 0 "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK, INPUT BUFFER, AND FREE STORAGE. 00172/007A *UMIST /UTILITIES SA S0600 UMIST FSNAME=UMIST.UTL.AS 4.3T1 132 UMIST./UTILITIES.SA.007 1 LINE 77 24 PAGE UM WELTER SEP. 07, 1979 09:18:57 0 "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH SUPPORT PRIMITIVE FUNCTIONS. THIS ASSEMBLY USES THE "SWPR" RPQ'ED INSTRUCTION. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00172/008A *UMIST /FCNS/1 SA S0600 UMIST FSNAME=UMIST.FN1.AS 4.3T1 133 UMIST./FCNS/1.SA.008 1 LINE 71 27 PAGE UM WELTER SEP. 07, 1979 09:19:10 0 "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS. 00172/009A *UMIST /FCNS/2 SA S0600 UMIST FSNAME=UMIST.FN2.AS 4.3T1 134 UMIST./FCNS/2.SA.009 1 LINE 71 19 PAGE UM WELTER SEP. 07, 1979 09:19:24 0 "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS. 00172/010A *UMIST TEST DECK D S0600 UMIST FSNAME=UMIST.TEST 4.3T1 135 UMIST.TEST_DECK.D.010 1 LINE 80 3 PAGE UM WELTER SEP. 07, 1979 09:20:43 0 "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF. 00172/011A *UMIST OBJECT OE G *UMIST 4.3T1 136 UMIST.OBJECT.OE.011 1 LINE 15736 8 PAGE UM WELTER APR. 05, 1980 14:17:22 *UMIST 0 THIS IS *UMIST, THE LINKEDITED OBJECT OF 172/1 THROUGH 172/9. 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). 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 0 Referenced by comments of: 545/32 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 00197 A *SMDS M *SMDS 4.3T1 137 SMDS..M. 1 LINE 168 6 PAGE UM MTS APR. 05, 1980 14:17:24 *SMDS 0 MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET). USED IN CONJUNCTION WITH FMSG MACRO IN MTS. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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:CC.MACROS (1054/3). 00198/002A GUINFO/CUINFO SUBRS UPDATE UC G MTS:INFOUPD 4.3T1 138 GUINFO/CUINFO_SUBRS.UPDAT.UC.002 1 LINE 72 7 PAGE UM MTS HELFFRICH APR. 05, 1980 14:17:26 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/003A GUINFO/CUINFO SUBRS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00198/004A GUINFO/CUINFO SUBRS L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=INFO.LIST 7 4.3T1 139 GUINFO/CUINFO_SUBRS..L.004 1 SEQ 133 55 PAGE UM MTS HELFFRICH APR. 05, 1980 14:18:28 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. COMPONENTS 201/1 THROUGH 201/11 ARE THE OS/360 SOURCE FOR GPSS VERSION 1 MODIFICATION LEVEL 3. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A *LISP SA G C4541C GO FSNAME=LISPSOURCE.ASMG(2) 4.3T1 140 LISP..SA.001 1 LINE 71 105 PAGE UM GOODRICH DEC. 07, 1979 09:47:53 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00210/002A *LISP OE G *LISP 4.3T1 141 LISP..OE.002 1 SEQ 80 41 PAGE UM GOODRICH APR. 05, 1980 14:20:32 *LISP 00210/003A *LISP TRANSIT SA G C4541C GO FSNAME=TRANSIT.ASMG 4.3T1 142 LISP.TRANSIT.SA.003 1 LINE 93 7 PAGE UM GOODRICH JAN. 06, 1979 12:43:54 0 THIS COMPONENT CONTAINS THE "HYPOTHETICAL WORLDS" FUNCTIONS, RPLACA2, RPLACD2, SETA2, NEWWORLD, REALWORLD, GETWORLD. 00210/004A *LISP EDITOR S G C4541C GO FSNAME=EDIT.LISP 4.3T1 143 LISP.EDITOR.S.004 1 LINE 152 6 PAGE UM GOODRICH JAN. 06, 1979 12:43:25 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/005A *LISP BREAK S G C4541C GO FSNAME=DEBUG.LISP 4.3T1 144 LISP.BREAK.S.005 1 LINE 126 5 PAGE UM GOODRICH JAN. 06, 1979 12:42:46 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/006A *LISP COMPILER S G C4541C GO FSNAME=COMPILER.LISP 4.3T1 145 LISP.COMPILER.S.006 1 LINE 116 29 PAGE UM GOODRICH DEC. 07, 1979 09:48:26 0 THIS IS THE LISP SOURCE FOR THE LISP COMPILER. 00210/007A *LISP *LISPLIB O G *LISPLIB 4.3T1 146 LISP.*LISPLIB.O.007 1 LINE 32517 74 PAGE UM GOODRICH APR. 05, 1980 14:21:08 *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 S0563 D4T1 VLO FSNAME=SIOERR_SUBR..SA.001(1) 586 D4T1 586 SIOERR_SUBR..SA.001 1 LINE 80 1 PAGE UM MTA JULY 27, 1977 23:54:04 0 FORTRAN INTERFACE TO SETIOERR. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00223/002 SIOERR SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00225/001A *SYSMAC SM G MTA:SYSMAC 4.3T1 147 SYSMAC..SM.001 1 LINE 80 124 PAGE UM MTA APR. 05, 1980 14:21:11 0 MTS GENERAL SYSTEM MACRO LIBRARY FOR *ASMH. THIS VERSION IS THE SAME AS *SYSMAC ON THE TEST PACK (225/2) EXCEPT THAT THE COMMENTS HAVE NOT BEEN REMOVED. SEE ALSO *ASMGSYSMAC (066/95) FOR *ASMG MACRO LIBRARY AND *ASMTSYSMAC (619/1) FOR THE *ASMT MACRO LIBRARY. 0 Referenced by comments of: 1000/51 00225/002A *SYSMAC SM G NEW:SYSMAC 4.3T1 148 SYSMAC..SM.002 1 LINE 80 93 PAGE UM MTA APR. 05, 1980 14:21:24 *SYSMAC 0 Referenced by comments of: 225/1, 545/32, 570/1, 1023/1, 1023/3, 1081/11, 1081/12, 1081/13, 1081/14, 1081/15, 1081/21, 1081/23, 1081/25 00225/003A *SYSMAC TEST PGM 1 SA G MTA:TESTIOMAC 4.3T1 149 SYSMAC.TEST_PGM_1.SA.003 1 LINE 72 10 PAGE UM MTA APR. 05, 1980 14:21:37 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. 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 0 ***************************************************************************** D4.3 PL1 LIBRARY: THE PL1 LIBRARY DOES NOT YET USE THE LATEST VERSION OF 163/3 THROUGH 163/11. ***************************************************************************** 00233/002 PL1 LIBRARY SAMEQU SA # (SEE COMP 163) UM TIFFANY 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00233/003 PL1 LIBRARY REPLACE SA # (SEE COMP 163) UM TIFFANY 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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), OSMACLIB (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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 S0563 D4T1 VLO FSNAME=8ASR.8ASRMAC.SM.001(1) 628 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 00234/002 8ASR 8ASREQU.C SA G S0563 D4T1 VLO FSNAME=8ASR.8ASREQU.C.SA.002(1) 629 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 S0563 D4T1 VLO FSNAME=8ASR.8ASRST.C.SA.003(1) 630 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 S0563 D4T1 VLO FSNAME=8ASR.MAIN_PROGRAM.SA.004(1) 631 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00234/005 8ASR MAIN PROGRAM OC G S0563 D4T1 VLO FSNAME=8ASR.MAIN_PROGRAM.OC.005(1) 632 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 S0563 D4T1 VLO FSNAME=8ASR.SUBROUTINES.SA.006(1) 633 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). 00234/007 8ASR SUBROUTINES OC G S0563 D4T1 VLO FSNAME=8ASR.SUBROUTINES.OC.007(1) 634 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 S0563 D4T1 VLO FSNAME=8ASR.PDP-8_OP_TBLS.SA.008(1) 635 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 S0563 D4T1 VLO FSNAME=8ASR.PDP-8_OP_TBLS.OC.009(1) 636 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 S0563 D4T1 VLO FSNAME=8ASR.PDP-9_OP_TBLS.SA.011(1) 638 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 S0563 D4T1 VLO FSNAME=8ASR.PDP-9_OP_TBLS.OC.012(1) 639 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 S0563 D4T1 VLO FSNAME=8ASR.PDP-1_OP_TBLS.SA.014(1) 641 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 S0563 D4T1 VLO FSNAME=8ASR.PDP-1_OP_TBLS.OC.015(1) 642 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 S0563 D4T1 VLO FSNAME=8ASR.FRIDEN_TR_TBL.SA.016(1) 643 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00234/017 8ASR FRIDEN TR TBL OC S0563 D4T1 VLO FSNAME=8ASR.FRIDEN_TR_TBL.OC.017(1) 644 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 00234/019 8ASR OS INTERFACE SA S0563 D4T1 VLO FSNAME=8ASR.OS_INTERFACE.SA.019(1) 646 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 S0563 D4T1 VLO FSNAME=8ASR.LINK_EDITOR.SA.020(1) 647 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 S0563 D4T1 VLO FSNAME=8ASR.LINK_EDITOR.OC.021(1) 648 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 S0563 D4T1 VLO FSNAME=8ASR.PDP8_SIMULATOR.SA.022(1) 649 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 S0563 D4T1 VLO FSNAME=8ASR.PDP8_SIMULATOR.OC.023(1) 650 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 S0563 D4T1 VLO FSNAME=8ASR.8PANEL.SA.024(1) 651 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" 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 S0563 D4T1 VLO FSNAME=BINEBCD..SA.001(1) 656 D4T1 656 BINEBCD..SA.001 1 LINE 80 4 PAGE UM MTA JULY 27, 1977 02:04:19 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 S0563 D4T1 VLO FSNAME=BINEBCD..SA.003(1) 657 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 00256/002 STATISTICS COMBINE COMBINE PGM SA G S1319 D4.2T1 VLO FSNAME=STATISTICS_COMBINE.COMBIN.SA.002(1) 129 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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). 1 SUN SEP 08/96 19:03:19 Page 99 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 267/3 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). 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 S0563 D4T1 VLO FSNAME=DISMOUNT_SUBR..SA.001(1) 679 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 S0563 D4T1 VLO FSNAME=MOUNT_SUBR..SA.001(1) 680 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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/23, 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 THE EDITOR MACRO LIBRARY (648/16). 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 S1143 D4.1T1 VLO FSNAME=SKIP_SUBR..SA.001(1) 91 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 0 Referenced by comments of: 528/31 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00296 CHECKDASD SA # (OBSOLETE) D2T1 119 UM 00297/001A *LINKEDIT LKEDCMD SP G W052:LINK.CMD.S 4.3T1 150 LINKEDIT.LKEDCMD.SP.001 1 LINE 99 33 PAGE UM SHERRY APR. 05, 1980 14:21:42 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) ***************************************************************************** THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT ON D4.2 (UNDOCUMENTED), RD4.2A/RD16, OR RD4.2C: 1) TERSE NOW DEFAULTS TO THE MTS SETTING. 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: FORWARD REFERENCED ENTRY POINTS OF A BUFFERED CONTROL SECTION ARE NOW RESOLVED AND DEFINED PROPERLY. 6) 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. 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 MESSAGE TO BE PRINTED AND THEN CRAPS OUT. 9) BUG FIXED IN RENAME SUBROUTINE THAT CAUSED CIRCULAR HASH CHAINS FOR SYMBOLS HASHING TO SAME CHAIN LOCATION. 10) BUG FIXED IN INCLUDE BUFREAD WHICH CAUSED PGNT IF TWO MODULES WITH LENGTH ON END CARD WERE INCLUDED IN THE SAME COMMAND. ***************************************************************************** 0 Referenced by comments of: 297/11, 297/16, 721/1, 3031/1 00297/002A *LINKEDIT INCLUDE SP G W052:LINK.INCL.S 4.3T1 151 LINKEDIT.INCLUDE.SP.002 1 LINE 100 17 PAGE UM SHERRY APR. 05, 1980 14:21:51 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) 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/006A *LINKEDIT LINK.COM SP G W052:LINK.COM 4.3T1 152 LINKEDIT.LINK.COM.SP.006 1 LINE 100 6 PAGE UM SHERRY APR. 05, 1980 14:21:54 0 COPY SECTION REQUIRED TO COMPILE THE INDIVIDUAL ROUTINES. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 0 Referenced by comments of: 297/1, 297/2, 297/3, 297/4, 297/5, 297/8, 297/9, 297/10, 297/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/009A *LINKEDIT UTIL SP G W052:LINK.UTIL.S 4.3T1 153 LINKEDIT.UTIL.SP.009 1 LINE 88 3 PAGE UM SHERRY APR. 05, 1980 14:21:56 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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) 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/017A *LINKEDIT LINKLOAD OC G W052:LINKLOAD 4.3T1 154 LINKEDIT.LINKLOAD.OC.017 1 LINE 32767 121 PAGE UM SHERRY APR. 05, 1980 14:21:59 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00297/019A *LINKEDIT OBJECT OE G *LINKEDIT 4.3T1 155 LINKEDIT.OBJECT.OE.019 1 SEQ 32767 71 PAGE UM SHERRY APR. 05, 1980 14:22:07 *LINKEDIT 0 THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT. 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 4.3T1 156 SORT.SORT_PGM.SA.001 1 LINE 80 90 PAGE UM ENGLE FEB. 22, 1980 14:33:55 0 GENERAL SORT PROGRAM. COPIES *CNFGINFODSECT (654). ASSEMBLE AS FOLLOWS FOR THE TWO VERSIONS: &SUB SETB 0 FOR *SORT VERSION (303/4). &SUB SETB 1 FOR SORT SUBROUTINE VERSION (303/5). NOTE: OTHER VALUES FOR MBYI AND MBYT MAY BE MORE APPROPRIATE FOR MACHINES OTHER THAN THE AMDAHL 470V/7 OR WITH A RATE STRUCTURE OTHER THAN ONE FOR WHICH THE COST OF 1 CPU SECOND EQUALS THE COST OF 200 VMI PAGE-SECONDS (AS AT UM). 00303/002A SORT SORT PGM UC G S0027 DISTRB FSNAME=SORTUPDATE 4.3T1 157 SORT.SORT_PGM.UC.002 1 LINE 80 13 PAGE UM ENGLE FEB. 22, 1980 14:38:45 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00303/003A SORT *SORT OC G S0027 DISTRB FSNAME=SRT 4.3T1 158 SORT.*SORT.OC.003 1 LINE 80 10 PAGE UM ENGLE FEB. 22, 1980 14:38:48 00303/004C SORT *SORT OE G *SORT 4.3T1 159 SORT.*SORT.OE.004 1 SEQ 7584 4 PAGE UM ENGLE APR. 05, 1980 14:23:31 *SORT 0 LINKEDITED COMBINATION OF 303/3 AND *LCS (164). 0 Referenced by comments of: 303/1 00303/005A SORT SORT SUBR OC G S0027 DISTRB FSNAME=SRT1 4.3T1 160 SORT.SORT_SUBR.OC.005 1 LINE 80 10 PAGE UM ENGLE FEB. 22, 1980 14:38:52 0 Referenced by comments of: 303/1 00303/006A SORT SORT2/3/4 SUBR SA G SRT2 S0027 DISTRB FSNAME=SORT2 4.3T1 161 SORT.SORT2/3/4_SUBR.SA.006 1 LINE 80 38 PAGE UM ENGLE FEB. 20, 1980 12:39:33 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. 1 SUN SEP 08/96 19:03:19 Page 108 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 1030/1 00303/007A SORT SORT2/3/4 SUBR UC G S0027 DISTRB FSNAME=SORT2UPDATE 4.3T1 162 SORT.SORT2/3/4_SUBR.UC.007 1 LINE 72 3 PAGE UM ENGLE FEB. 20, 1980 12:39:42 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00303/008A SORT SORT2/3/4 SUBR OC G S0027 DISTRB FSNAME=SRT2 4.3T1 163 SORT.SORT2/3/4_SUBR.OC.008 1 LINE 80 5 PAGE UM ENGLE FEB. 20, 1980 12:39:49 00303/009 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/11). 0 Referenced by comments of: 303/15 00303/010 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/011A SORT MESSAGES M S0027 DISTRB FSNAME=SORTMESSAGES 4.3T1 164 SORT.MESSAGES.M.011 1 LINE 81 3 PAGE UM ENGLE FEB. 20, 1980 12:41:58 0 SORT ERROR MESSAGES. NOTE: LINE NUMBERS ARE IMPORTANT IN THIS FILE. 0 Referenced by comments of: 303/9, 303/15 00303/012 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/15 00303/013 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/014A SORT DOC WT S0027 DISTRB FSNAME=SORTWRITEUP 4.3T1 165 SORT.DOC.WT.014 1 LINE 256 52 PAGE UM ENGLE MAR. 05, 1980 11:06:43 0 TEXT/360 MASTER FOR MTS VOLUME 5 SORT WRITEUP INCLUDING PRELIMINARY ADDITIONS AND CORRECTIONS SINCE COMPUTING CENTER MEMO 397 (UPDATE 2 TO VOLUME 5, FEB/79). 00303/015A SORT *SORTLM G *SORTLM 4.3T1 166 SORT.*SORTLM..015 1 LINE 2753 4 PAGE UM ENGLE APR. 05, 1980 14:23:56 *SORTLM 0 FILE CONTAINING ERROR MESSAGE PROGRAM (303/9), MESSAGES (303/11), CHECK ROUTINE (303/12), AND TAPESORT (303/22). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00303/016 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/017 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/018 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/019 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/020A SORT SORTPLOT D G S0027 DISTRB FSNAME=SRTPDATA 4.3T1 167 SORT.SORTPLOT.D.020 1 LINE 28 3 PAGE UM ENGLE FEB. 20, 1980 12:55:36 0 DATA FOR SORT TIMING PLOTS, MEASURED ON AMDAHL 470V/7. 00303/021A SORT SORTPLOT D G S0027 DISTRB FSNAME=SRTPPLOT 4.3T1 168 SORT.SORTPLOT.D.021 1 LINE 3670 35 PAGE UM ENGLE FEB. 20, 1980 12:55:45 0 CALCOMP PLOT FILE FOR SORT TIMING PLOTS IN SORT WRITEUP. CONTAINS PPEN RECORDS FOR MULTICOLOR PLOTTING. 00303/022A SORT TAPESORT SA G TSRT S0027 DISTRB FSNAME=TAPESORT 4.3T1 169 SORT.TAPESORT.SA.022 1 LINE 80 18 PAGE UM ENGLE OCT. 24, 1979 16:41:35 0 MODULE TO IMPLEMENT THE TAPE MERGE OPTION IN SORT. CONTAINS A GBLC SYMBOL &MODE WITH VALUE '6250' WHICH SPECIFIES THE MODE (DENSITY) FOR THE POOL TAPES MOUNTED BY THIS PROGRAM. 0 Referenced by comments of: 303/15 00303/023A SORT TAPESORT UC G S0027 DISTRB FSNAME=TAPESORTUPD 4.3T1 170 SORT.TAPESORT.UC.023 1 LINE 72 3 PAGE UM ENGLE OCT. 24, 1979 16:42:42 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00303/024A SORT TAPESORT OC G S0027 DISTRB FSNAME=TSRT 4.3T1 171 SORT.TAPESORT.OC.024 1 LINE 80 3 PAGE UM ENGLE OCT. 24, 1979 16:43:40 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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/027C SORT SORT4F SA G S4F S0027 DISTRB FSNAME=SORT4F 4.3T1 172 SORT.SORT4F.SA.027 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 13:49:43 0 SORT4F IS A SUBROUTINE TO SORT AN ARRAY OF FORTRAN INDEXES BASED ON THE DATA TO WHICH THE INDEXES REFER. 00303/028C SORT SORT4F OC G S0027 DISTRB FSNAME=SRT4F 4.3T1 173 SORT.SORT4F.OC.028 1 LINE 80 1 PAGE UM ENGLE FEB. 20, 1980 13:49:51 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. 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) 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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, 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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). 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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). 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A *FMT MAIN SA O W030:UBCFMT 4.3T1 174 FMT.MAIN.SA.001 1 LINE 73 91 PAGE UBC LIFT APR. 05, 1980 14:24:43 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. ********************************************************************************** D4.3 CHANGE: CSECT CONCARD CHANGED TO FIX BUG IN TRANS CONTROL CMD PARSING. ********************************************************************************** 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/006A *FMT OBJECT OE O *FORMAT 4.3T1 175 FMT.OBJECT.OE.006 1 SEQ 31983 14 PAGE UBC LIFT APR. 05, 1980 14:24:54 *FORMAT 0 OBJECT FROM 308/1, 308/2, AND 308/3. 0 Referenced by comments of: 308/8 00308/007 *FMT HYPHEN S3 O S0791 FMTJNK 'FORMAT' FSNAME=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 S0791 FMTJNK 'FORMAT' FSNAME=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/009A *FMT INDEX SF O S0791 FMTJNK 'FORMAT' FSNAME=FMTINDEX 4.3T1 176 FMT.INDEX.SF.009 1 LINE 80 10 PAGE UBC LIFT AUG. 01, 1979 20:25:37 0 INDEX FUNCTION AND SEVERAL SUBROUTINES. ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): CHANGED FOR SORT CALLS. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00308/010 *FMT ASMFNS SA O S0791 FMTJNK 'FORMAT' FSNAME=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. 00308/011 *FMT CONTENTS SF O S0791 FMTJNK 'FORMAT' FSNAME=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 S0791 FMTJNK 'FORMAT' FSNAME=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 S0791 FMTJNK 'FORMAT' FSNAME=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 S0791 FMTJNK 'FORMAT' FSNAME=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/015A *FMT SORT SF O S0791 FMTJNK 'FORMAT' FSNAME=FMTSORT 4.3T1 177 FMT.SORT.SF.015 1 LINE 64 1 PAGE UBC LIFT AUG. 01, 1979 20:25:24 0 AFTER COMPILATION, CHANGE THE NAME "FMTSRT " TO FMTSORT" IN THE OBJECT. ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): CHANGED FOR SORT CALLS. ***************************************************************************** 00308/016 *FMT PAGE SF O S0791 FMTJNK 'FORMAT' FSNAME=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/017A *FMT FMTLIB OL O ETC:FMTLIB 4.3T1 178 FMT.FMTLIB.OL.017 1 SEQ 6322 26 PAGE UBC LIFT APR. 05, 1980 14:26:58 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00308/019A *FMT JONMACLIB SM O UNSP:JONMACLIBFMT 4.3T1 179 FMT.JONMACLIB.SM.019 1 LINE 110 7 PAGE UBC NIGHTINGA UNSP APR. 05, 1980 14:26:59 UNSP:JONMACLIBFMT 0 UBC'S JON:MACLIB -- FMT MACROS USED IN UBC DOCUMENTATION. DOCUMENTATION FOR JON:MACLIB IS IN UBC DGUIDE (CURRENTLY NOT DISTRIBUTED IN REGULAR DISTRIBUTION PROCESS). THERE MAY BE SOME PROBLEM USING UM'S *FORMAT (BUT NOT NECESSARILY). AT UM, THIS FILE IS PERMITTED ONLY TO P=W?. 0 Referenced by comments of: 705/9, 705/15, 1042/86 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 SAME MANNER, I.E. IT MUST BE RUN UNDER CONTROL OF THE SUBMONITOR. THE 2 FILES *XPL AND *XPLGO CONTAIN MTS OBJECT FOR A SET OF DEFAULT FILE NAMES FOR THE COMPILER AND COMPILED CODE EXECUTION RESPECTIVELY. EACH ENDS WITH "$CONTINUE WITH *XMON" SO THAT BY $RUNNING *XPL OR *XPLGO, THE SUBMONITOR (*XMON), WITH APPROPRIATE DEFAULTS, IS INVOKED. MODIFIED UBC SOURCE FOR THE XPL SUBMONITOR (*XMON). 00318/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). 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/001A STAT MONTHLY SUMMARY MAIN PGM SP G S0027 DISTRB FSNAME=SYSSTAT 4.3T1 180 STAT_MONTHLY_SUMMARY.MAIN.SP.001 1 LINE 99 17 PAGE UM ENGLE FEB. 20, 1980 14:01:47 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 1 SUN SEP 08/96 19:03:19 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 '00' LOOK AT ALL INPUT (REQUIRES 'FULL', Â'CPU', AND Â'MIXED') 2) 'YYYY' YEAR 3) 'PART' USE DATA FROM WHATEVER PART OF MONTH IS PRESENT, OR 'FULL' EXPECT DATA FROM ENTIRE MONTH, OR '9TO5' FILTERS ALL DATA EXCEPT 9AM TO 5PM, OR '5TOM' FILTERS ALL DATA EXCEPT 5PM TO MIDNIGHT, OR 'COUR' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS BEGINNING WITH "1", "2", OR "3", OR 'UGRD' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS 1AWA, 1BF4, 1AAA, 1AGA, 1APA, 1AVA, 1CXA, OR 1HGA. 4) 'REST' RESTORE DATA (CHECKPOINT) FROM SAVE, OR 'SAVE' SAVE (CHECKPOINT) DATA ON SAVE, OR 'USER' SAVE NUM OF USERS VERSUS TIME DATA ONLY ON SAVE, OR 'CPU.' SKIP EVERYTHING EXCEPT JOBS PROGRAM STATISTICS, OR 'NONE' NONE OF ABOVE 5) 'CPU' PROCESS JOBS STATISTICS DATA (SEE COMP 413/10), OR 'YES' SAME AS 'CPU', OR 'NOT' OMIT PROCESSING OF JOBS STATISTICS 6) 'WHOLE' NO RATE CHANGE DURING PERIOD OF COMPUTATION, OR 'MIXED' RATE CHANGE OCCURRED 7) 'DD' FIRST DAY (OF MONTH) FOR NEW RATES. GIVE ONLY IF 'MIXED' GIVEN. 8) TESTCOUNT=N NUMBER OF INPUT RECORDS TO ECHO ON SPRINT (DEBUG) 9) DEBUG='1'B PRODUCES GENERAL DEBUG OUTPUT. PRINTS FOR ONLY N RECORDS IF TESTCOUNT GIVEN. 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/002C STAT MONTHLY SUMMARY MAIN PGM UC G S0027 DISTRB FSNAME=SYSSTATUPD 4.3T1 181 STAT_MONTHLY_SUMMARY.MAIN.UC.002 1 LINE 71 1 PAGE UM ENGLE FEB. 20, 1980 14:02:06 00326/003 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00326/004 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/005 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/006A STAT MONTHLY SUMMARY OBJECT OE G S0027 DISTRB FSNAME=SYST 4.3T1 182 STAT_MONTHLY_SUMMARY.OBJE.OE.006 1 LINE 32767 81 PAGE UM ENGLE FEB. 20, 1980 14:02:11 0 OBJECT MODULES FOR 326/1, 326/3, 326/4, AND 326/5. CONTAINS A SYSDEFS RIP CARD AND A $CONTINUE WITH *PL1LIB CARD. RUN WITH PROT=OFF. TO RUN, ISSUE SOMETHING LIKE: $RUN SYST 0=SYS:SSRTNSUMM SPRINT=OUT PAR=ERROR=-ERROR 00326/007A STAT MONTHLY SUMMARY BATCHID D S0027 DISTRB FSNAME=BATCHID 4.3T1 183 STAT_MONTHLY_SUMMARY.BATC.D.007 1 LINE 4 1 PAGE UM ENGLE FEB. 20, 1980 14:02:26 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/001A ABKGET SP O W041:ABKGET.S4 4.3T1 184 ABKGET..SP.001 1 LINE 80 5 PAGE UM DWB APR. 05, 1980 14:27: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/002A ABKGET OC O W041:ABKGET.O4 4.3T1 185 ABKGET..OC.002 1 LINE 80 9 PAGE UM DWB APR. 05, 1980 14:27:14 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/001A PRINTTRACE SA G MTA:PRINTTRACE(1,999) 4.3T1 186 PRINTTRACE..SA.001 1 LINE 71 4 PAGE UM MTA APR. 05, 1980 14:27:17 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/20, 1028/3 00337/002A PRINTTRACE OC G MTA:PRINTTRACE(1000,1999) 4.3T1 187 PRINTTRACE..OC.002 1 LINE 80 4 PAGE UM MTA APR. 05, 1980 14:27:19 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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). 00339 WRITE80 S # (OBSOLETE) D2T1 165 UM 00340/001A READRESTP SA O MTA:READRESTP(1,999) 4.3T1 188 READRESTP..SA.001 1 LINE 80 9 PAGE UM MTA APR. 05, 1980 14:27:21 0 PROGRAM WHICH WILL READ A DUMP/RESTORE TAPE AND EXTRACT THINGS FROM AN OS, DOS, OR VS DATA SET. IT PRODUCES OUTPUT THAT CAN BE USED AS INPUT TO *UNLINKER (562). IT WILL PROCESS ANY OS DATA SET WHICH HAS NO MORE THAN 3 EXTENTS AND NO NOTE LISTS. IT PROMPTS FOR DATA SET NAMES USING GUSER AND SERCOM, READS FROM UNIT 0, AND WRITES ON UNIT 1. "LIST NAMES" ON GUSER WILL GET A LIST OF DSNAMES IN THE VTOC. 00340/002A READRESTP SUBROUTINE SA O # (PART OF 340/1) UM MTA 0 SUBROUTINE CALLED BY 340/1. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00340/003A READRESTP OC O MTA:READRESTP(1000) 4.3T1 189 READRESTP..OC.003 1 LINE 80 5 PAGE UM MTA APR. 05, 1980 14:27:24 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/002A MTS.MACROS UPDATE UC G MTS:MACROSUPD 4.3T1 190 MTS.MACROS.UPDATE.UC.002 1 LINE 80 28 PAGE UM MTS HELFFRICH APR. 05, 1980 14:27:26 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/003A MTS.MACROS MACRO LIBRARY SM G COPY:MTS.MACROS 4.3T1 191 MTS.MACROS.MACRO_LIBRARY.SM.003 1 LINE 72 51 PAGE UM MTS HELFFRICH APR. 05, 1980 14:27:33 COPY:MTS.MACROS 0 THIS IS "COPY:MTS.MACROS" WHICH IS PRODUCED BY *MACUTIL, USING AS INPUT THE OUTPUT FROM THE *CDUPDATE RUN OF 344/2 AGAINST 344/1. 0 Referenced by comments of: 1/5, 1/9, 42/1, 71/1, 101/1, 104/14, 116/1, 135/1, 198/1, 322/1, 344/2, 354/1, 354/5, 355/1, 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 388/1, 388/2, 400/4, 413/5, 447/1, 464/1, 482/51, 500/50, 513/1, 531/1, 531/6, 531/13, 535/1, 535/8, 539/1, 553/1, 553/2, 553/5, 567/1, 570/1, 578/1, 585/1, 600/1, 600/3, 600/5, 600/7, 600/9, 615/15, 616/1, 617/1, 620/1, 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, 707/1, 725/1, 732/1, 753/1, 753/3, 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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:CC.MACROS (1054/3). 0 Referenced by comments of: 1002/22 00354/002A LLXU UPDATE UC G MTS:LLXUUPD 4.3T1 192 LLXU.UPDATE.UC.002 1 LINE 82 10 PAGE UM MTS SHERRY APR. 05, 1980 14:27:39 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. 00354/003A LLXU OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS SHERRY 00354/004A LLXU L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=LLXU.LIST 9 4.3T1 193 LLXU..L.004 1 SEQ 133 145 PAGE UM MTS SHERRY APR. 05, 1980 14:27:45 00354/005A LLXU LLXUTEST SA G W009:LLXUTEST.S 4.3T1 194 LLXU.LLXUTEST.SA.005 1 LINE 158 47 PAGE UM SHERRY APR. 05, 1980 14:27:47 0 PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD. ASSEMBLE USING *SYSMAC, COPY:MTS.MACROS (344/3), AND THE *OBJUTIL MISCELLANEOUS MACROS (721/14). USES 1 SUN SEP 08/96 19:03:19 Page 130 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE MSG ROUTINES (1023/1). COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND *CNFGINFODSECT (654). CONTAINS REFERENCE TO W009:LLXUTEST.XTL (354/9). DOCUMENTATION ON THE USE OF THIS PROGRAM IS CONTAINED IN THE WRITEUP (354/11). WRITEUP (354/11). *********************************************************************** D4.3 VERSION: USES THE NEW MESSAGE ROUTINES (1023/1). *********************************************************************** 0 Referenced by comments of: 354/7, 354/9, 354/11 00354/006A LLXU LLXUTEST OC G W009:LLXUTEST.O 4.3T1 195 LLXU.LLXUTEST.OC.006 1 LINE 10032 17 PAGE UM SHERRY APR. 05, 1980 14:28:06 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/001A STATSCN SA G STSC WSG:STATSCN(1,999) 4.3T1 196 STATSCN..SA.001 1 LINE 80 7 PAGE UM WSG APR. 05, 1980 14:28:10 WSG.:STATSCN 0 PROGRAM TO READ THROUGH *STATISTICS DATA (FROM FILE OR TAPE) LOOKING FOR SPECIFIED USERID-DATE COMBINATIONS. RECORDS FOR ANY OF THE SPECIFIED USERS ON THE SPECIFIED DATES ARE WRITTEN ON SPUNCH. FOR EXAMPLE: $RUN STATSCN(1000) SPUNCH=-F WSG. 05-08-73 STRT 04-XX-73 2A?? 06-XX-XX 1 SUN SEP 08/96 19:03:19 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 DONE *TAPE* *STATISTICS DONE WILL SCAN THROUGH THE TAPE *TAPE* AND THE FILE *STATISTICS LOOKING FOR ALL STATISTICS RECORDS FOR USER "WSG." ON 8 MAY 1973, USER "STRT" ON ANY DAY IN APRIL 1973, OR ANY USER ID BEGINNING WITH "2A" ON ANY DAY IN JUNE OF ANY YEAR. NOTE THAT XX'S MAY BE USED IN ANY FIELD(S) OF THE DATE. USER IDS MAY BE SPECIFIED AS "XXXX" (TO ACCEPT ANY USER ID) OR MAY CONTAIN A QUESTION MARK IN THE SECOND, THIRD, AND/OR FOURTH CHARACTER (TO ACCEPT ANY CHARACTER IN THE CORRESPONDING POSITION(S)). THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE). THE LISTSTAT PROGRAM (071) CAN THEN BE USED TO PRINT THE STATISTICS RECORDS. ASSEMBLE USING COPY:MTS.MACROS (344/3). 00355/002 STATSCN OC G WSG:STATSCN(1000) 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/001A *TAPECOPY SA G TPCP WSG:TAPECOPY(1,999) 4.3T1 197 TAPECOPY..SA.001 1 LINE 80 17 PAGE UM WSG APR. 05, 1980 14:28:12 WSG.:TAPECOPY 0 MULTIPLE FILE TAPE COPY PROGRAM. COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK. 00358/002A *TAPECOPY OC G *TAPECOPY 4.3T1 198 TAPECOPY..OC.002 1 LINE 4743 3 PAGE UM WSG APR. 05, 1980 14:28:15 *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/70) AND *CNFGINFODSECT (654). 0 Referenced by comments of: 67/21, 534/8 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00387/001A HASP MAIN SA G HSP S0996 HASP 'MODULAR HASP' FSNAME=HASP.MAIN 4.3T1 199 HASP.MAIN.SA.001 1 LINE 80 214 PAGE UM HANSEN MAR. 13, 1980 22:06:01 0 SOURCE FOR MAIN ASSEMBLY OF MTS HASP, WHICH IS DERIVED FROM IBM HASP II VERSION 2.3. THIS VERSION USES THE SLT (SEARCH LIST) INSTRUCTION, OPTIONALLY (&NOSLT), TO SEARCH PCE'S, DCT'S, AND MESSAGE BLOCKS. COPIES COPY:GLOBALSETS (1026/2), COPY:JOBSTA (413/9), AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 0 Referenced by comments of: 243/1, 570/4 00387/002A HASP EXEC SA G EXEC S0996 HASP 'MODULAR HASP' FSNAME=HASP.EXEC 4.3T1 200 HASP.EXEC.SA.002 1 LINE 80 56 PAGE UM HANSEN APR. 15, 1980 18:13:40 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/003A HASP RDR SA G RDR S0996 HASP 'MODULAR HASP' FSNAME=HASP.RDR 4.3T1 201 HASP.RDR.SA.003 1 LINE 80 76 PAGE UM HANSEN MAR. 13, 1980 22:06:25 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/004A HASP PPR SA G PPR S0996 HASP 'MODULAR HASP' FSNAME=HASP.PPR 4.3T1 202 HASP.PPR.SA.004 1 LINE 80 26 PAGE UM HANSEN MAR. 13, 1980 22:06:40 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/005A HASP DATA SA G DATA S0996 HASP 'MODULAR HASP' FSNAME=HASP.DATA 4.3T1 203 HASP.DATA.SA.005 1 LINE 80 10 PAGE UM HANSEN MAR. 13, 1980 22:06:48 0 COPIES COPY:GLOBALSETS (1026/2). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/006A HASP MACROS SM G MACS S0996 HASP 'MODULAR HASP' FSNAME=HASP.MACLIB 4.3T1 204 HASP.MACROS.SM.006 1 LINE 80 134 PAGE UM HANSEN MAR. 13, 1980 22:05:49 0 HASP MACRO LIBRARY. 0 Referenced by comments of: 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 387/26, 387/29, 387/31, 387/34, 387/36 00387/007A HASP OPER SA G OPER S0996 HASP 'MODULAR HASP' FSNAME=HASP.OPER 4.3T1 205 HASP.OPER.SA.007 1 LINE 80 98 PAGE UM HANSEN MAR. 13, 1980 22:06:16 0 COPIES COPY:GLOBALSETS (1026/2) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). 00387/008A HASP MXMTR SA G MXMT S0996 HASP 'MODULAR HASP' FSNAME=HASP.MXMTR 4.3T1 206 HASP.MXMTR.SA.008 1 LINE 80 17 PAGE UM HANSEN MAR. 13, 1980 22:06:45 0 MERIT BATCH TRANSMITTER PROCESSOR. ASSEMBLE USING COPY:MTS.MACROS (344/3) AND HASP.MACROS (387/6). COPIES COPY:GLOBALSETS (1026/2). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00387/009A HASP SEG2:HASP OC G S0996 HASP 'MODULAR HASP' FSNAME=HASP.D.SEG2 4.3T1 207 HASP.SEG2:HASP.OC.009 1 LINE 80 40 PAGE UM HANSEN APR. 15, 1980 18:14:52 SEG2:HASP 0 THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL. THIS FILE ALSO CONTAINS THE HASPLING (388) OBJECT. IF MERIT SUPPORT IS INCLUDED, THE MERIT ASCII/EBCDIC TRANSLATION TABLE (570/4) 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/010A HASP LISTING L S1019 HASPLS POSN=HASP.LIST 4.3T1 208 HASP.LISTING.L.010 1 SEQ 132 1224 PAGE UM HANSEN APR. 21, 1980 17:23:50 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 1 SUN SEP 08/96 19:03:19 Page 134 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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). 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/019A HASP HSP C MTS:TST.HSP 4.3T1 209 HASP.HSP.C.019 1 LINE 23 1 PAGE UM WSG APR. 05, 1980 14:35:08 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/022A HASP OPER MANUAL WF W225:HSPM.FMT 4.3T1 210 HASP.OPER_MANUAL.WF.022 1 LINE 225 29 PAGE UM DONNELLY APR. 05, 1980 14:35:09 0 MTS HASP OPERATOR'S MANUAL. NOTE: SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592). 00387/023 HASP PCE SNIFFER SA PCE HASP: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 WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S, 1 SUN SEP 08/96 19:03:19 Page 135 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/024 HASP PCE SNIFFER OC HASP:PCE(1000) D4.1T1 128 HASP.PCE_SNIFFER.OC.029 1 LINE 80 1 PAGE UM HANSEN MAY 17, 1978 15:41:20 00387/025A HASP WRITEUP WF S0996 HASP 'MODULAR HASP' FSNAME=HASP.WRUP 4.3T1 211 HASP.WRITEUP.WF.025 1 LINE 116 17 PAGE UM HANSEN MAR. 14, 1980 19:15:10 0 A DISCUSSION OF THE D4.3 HASP COMPONENTS AND CHANGES WITH A DESCRIPTION OF HOW TO ASSEMBLE IT. 00387/026A HASP DUMP/ANAL SA S0996 HASP 'MODULAR HASP' FSNAME=D/A.ASM 4.3T1 212 HASP.DUMP/ANAL.SA.026 1 LINE 72 53 PAGE UM HANSEN MAR. 13, 1980 22:07:14 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/28. 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/28 00387/027A HASP DUMP/ANAL OC S0996 HASP 'MODULAR HASP' FSNAME=D/A.D 4.3T1 213 HASP.DUMP/ANAL.OC.027 1 LINE 24896 22 PAGE UM HANSEN MAR. 13, 1980 22:07:04 MTS.:HASP.D/A 00387/028A HASP DUMP/ANAL HELP M S0996 HASP 'MODULAR HASP' FSNAME=D/A.HELP 4.3T1 214 HASP.DUMP/ANAL_HELP.M.028 1 LINE 68 5 PAGE UM HANSEN NOV. 14, 1978 15:34:22 0 HELP MESSAGE FILE FOR USE BY DUMP/ANAL (387/26). THIS FILE IS IN THE FORM OF AN ASSEMBLER MACRO LIBRARY. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00387/029A HASP HASPTRACKS SA O S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.S 4.3T1 215 HASP.HASPTRACKS.SA.029 1 LINE 95 4 PAGE UM HANSEN NOV. 14, 1978 15:32:22 0 PROGRAM TO CHECK FOR DUPLICATE OR MISSING TRACKS ON A HASP SPOOL PACK AND TO REPAIR (VERIFICATION REQUIRED) THE CYLINDER MAP IN MEMORY. THE FILE BEGINS WITH MTS COMMANDS TO ASSEMBLE THE PROGRAM. REQUIRES THE HASP MACRO LIBRARY (387/6) FOR ASSEMBLY. COPIES COPY:GLOBALSETS (1026/2). CALLS THE SYSADR (400/7) SUBROUTINE. 0 Referenced by comments of: 387/30 00387/030A HASP HASPTRACKS OC O S0996 HASP 'MODULAR HASP' FSNAME=HASPTRACKS.D 4.3T1 216 HASP.HASPTRACKS.OC.030 1 LINE 256 6 PAGE UM HANSEN MAR. 13, 1980 22:07:01 0 OBJECT FOR HASPTRACKS (387/29) PLUS THE OBJECT FOR SYSADR (400/7). 00387/031A HASP QUESCAN SA O S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.S 4.3T1 217 HASP.QUESCAN.SA.031 1 LINE 91 5 PAGE UM HANSEN JULY 13, 1979 16:48:06 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. COPIES COPY:GLOBALSETS (1026/2). 0 Referenced by comments of: 387/32 00387/032A HASP QUESCAN OC O S0996 HASP 'MODULAR HASP' FSNAME=QUESCAN.D 4.3T1 218 HASP.QUESCAN.OC.032 1 LINE 256 6 PAGE UM HANSEN MAR. 13, 1980 22:08:52 0 OBJECT FOR QUESCAN (387/31) PLUS THE OBJECT FOR SYSADR (400/7). 00387/033C HASP HASPSTAT CMDS C # MTS:TST.HPS UM HANSEN *HPS 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE HASPSTAT PROGRAM (387/34) TO CHECK FOR POSSIBLE HASP PROBLEMS. 00387/034A HASP HASPSTAT SA O S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.S 4.3T1 219 HASP.HASPSTAT.SA.034 1 LINE 111 3 PAGE UM HANSEN JULY 13, 1979 16:48:03 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/33, 387/35 00387/035A HASP HASPSTAT OC O S0996 HASP 'MODULAR HASP' FSNAME=HASPSTAT.D 4.3T1 220 HASP.HASPSTAT.OC.035 1 LINE 256 5 PAGE UM HANSEN MAR. 13, 1980 22:08:45 SYS:HASPSTAT 0 OBJECT FOR HASPSTAT (387/34) PLUS THE OBJECT FOR SYSADR (400/7). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 LIBRARY (387/6) FOR ASSEMBLY. OBJECT NOT DISTRIBUTED. 00388/001A HASPLING MAIN SA G HSPL S0996 HASP 'MODULAR HASP' FSNAME=HASPLING 4.3T1 221 HASPLING.MAIN.SA.001 1 LINE 80 27 PAGE UM HANSEN MAR. 13, 1980 22:06:51 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/002A HASPLING MNET SA G HSPM S0996 HASP 'MODULAR HASP' FSNAME=HSPLNG.MNET 4.3T1 222 HASPLING.MNET.SA.002 1 LINE 80 19 PAGE UM HANSEN MAR. 13, 1980 22:06:55 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 THIS IS THE SOURCE FOR *GENLIB. NOTE: *GENLIB IS STILL SUPPORTED BY UM, BUT *OBJUTIL (721) IS PREFERRED. 0 Referenced by comments of: 3031/1 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 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/001 PRINTDUMP D4 MAIN SA G S0563 D4T1 VLO FSNAME=PRINTDUMP.MAIN.SA.001 945 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), AND *CNFGINFODSECT (654). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 399/1, 400/2, 534/9, 4003/1 00400/002C PRINTDUMP MAIN UPDATE UC G MTA:DMPLST.U 4.3T1 223 PRINTDUMP.MAIN_UPDATE.UC.002 1 LINE 72 33 PAGE UM MTA APR. 05, 1980 14:40:02 0 UPDATE TO PRODUCE THE CURRENT SOURCE FOR THE MAIN PROGRAM FROM THE D4.O SOURCE (400/1). 1 SUN SEP 08/96 19:03:19 Page 139 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 387/26 00400/003A PRINTDUMP VMFIND SUBR SA G MTA:DMPLST.VMFIN(1,999) 4.3T1 224 PRINTDUMP.VMFIND_SUBR.SA.003 1 LINE 68 5 PAGE UM MTA APR. 05, 1980 14:40:05 MTA.:DMPLST.VMFIN 0 SUBROUTINE TO FIND A VM PAGE ON A DUMP TAPE. ********************************************************************************** D4.3 CHANGES: COMPLETELY REWRITTEN FOR D4.3. ********************************************************************************** 0 Referenced by comments of: 400/7, 534/10 00400/004 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 0 D4.0 MASTER SOURCE FOR SUBROUTINE TO DUMP THE VM OF AN MTS TASK, FORMATTING IT APPROPRIATELY. MUST BE REASSEMBLED WHENEVER THE MTS DSECT IS CHANGED. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 00400/005A PRINTDUMP SSCN SUBR UPD UC G MTS:SSCNUPD 4.3T1 225 PRINTDUMP.SSCN_SUBR_UPD.UC.005 1 LINE 72 6 PAGE UM MTS MTA APR. 05, 1980 14:40:08 MTS.:SSCNUPD 0 MTS COMMANDS AND *CDUPDATE INPUT TO PRODUCE THE CURRENT SOURCE. FILE CONTAINS $CONTINUE WITH LINE TO ALLOW USE OF THE UPDATE WITH THE RD16 SOURCE AS BASE. THIS LINE SHOULD BE REMOVED WHEN USING THE D4.0 SOURCE AS BASE. UPDATE USES $CONTROL *IN* POSN=SSCN. 00400/006A PRINTDUMP SSCN SUBR LIST L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=SSCN.LIST 15 4.3T1 226 PRINTDUMP.SSCN_SUBR_LIST.L.006 1 SEQ 133 41 PAGE UM MTS MTA APR. 05, 1980 14:40:18 00400/007 PRINTDUMP DUMP SUBR SA G S0563 D4T1 VLO FSNAME=PRINTDUMP.DUMP_SUBR.SA.004(1) 948 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). 0 Referenced by comments of: 387/26, 387/29, 387/30, 387/31, 387/32, 387/34, 387/35 00400/008 PRINTDUMP 4.1 SYSADR SUB SA G S1143 D4.1T1 VLO FSNAME=PRINTDUMP.SYSADR_SUBR.SA.006(1) 144 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: 400/9 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00400/009C PRINTDUMP SYSADR UPDATE UC G MTA:DMPLST.ADR.U 4.3T1 227 PRINTDUMP.SYSADR_UPDATE.UC.009 1 LINE 68 1 PAGE UM MTA APR. 05, 1980 14:40:18 0 UPDATE TO PRODUCE CURRENT SOURCE FROM THE D4.1 SOURCE (400/8). 00400/010 PRINTDUMP 4.2 TASKSTAT SA G S1319 D4.2T1 VLO FSNAME=PRINTDUMP.TASKSTAT_SUBR.SA.007(1) 198 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). 0 Referenced by comments of: 400/11 00400/011C PRINTDUMP TASKSTAT UPD UC G MTA:DMPLST.TST.U 4.3T1 228 PRINTDUMP.TASKSTAT_UPD.UC.011 1 LINE 66 1 PAGE UM MTA APR. 05, 1980 14:40:21 0 UPDATE TO PRODUCE CURRENT SOURCE FROM THE D4.2 SOURCE (400/10). 0 Referenced by comments of: 400/12 00400/012 PRINTDUMP 4.2 LOADCLAS SA G S1319 D4.2T1 VLO FSNAME=PRINTDUMP.LOADCLAS_SUBR.SA.008(1) 199 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/8) 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). 0 Referenced by comments of: 400/10, 400/13, 1012/1 00400/013C PRINTDUMP LOADCLAS UPD UC G MTA:DMPLST.LC.U 4.3T1 229 PRINTDUMP.LOADCLAS_UPD.UC.013 1 LINE 66 1 PAGE UM MTA APR. 05, 1980 14:40:24 0 UPDATE TO PRODUCE CURRENT SOURCE FROM THE D4.2 SOURCE (400/12). 00400/014 PRINTDUMP D4 ICTAB SUBR SA G S0563 D4T1 VLO FSNAME=PRINTDUMP.ICTAB_SUBR.SA.008(1) 952 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). 00400/015 PRINTDUMP D4 ICSTAT SUBR SA G S0563 D4T1 VLO FSNAME=PRINTDUMP.ICSTAT_SUBR.SA.009(1) 953 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00400/016C PRINTDUMP CMDREAD SUBR SA G MTA:DMPLST.CMDRE(1,999) 4.3T1 230 PRINTDUMP.CMDREAD_SUBR.SA.016 1 LINE 72 7 PAGE UM MTA APR. 05, 1980 14:40:26 0 SUBROUTINE TO READ COMMANDS. ASSEMBLE WITH COPY:CC.MACROS (1054/3). COPIES *GDINFODSECT (594). 00400/017C PRINTDUMP IOSETUP SUBR SA G MTA:DMPLST.IOSET(1,999) 4.3T1 231 PRINTDUMP.IOSETUP_SUBR.SA.017 1 LINE 72 4 PAGE UM MTA APR. 05, 1980 14:40:29 0 SUBROUTINE TO FIND A DUMP TAPE. COPIES *GDINFODSECT (594). 00400/018C PRINTDUMP ITDUMP SUBR SA G MTA:DMPLST.ITDUMP(1,999) 4.3T1 232 PRINTDUMP.ITDUMP_SUBR.SA.018 1 LINE 71 10 PAGE UM MTA APR. 05, 1980 14:40:31 0 DUMPS UBC INTERTASK STUFF (1081). ASSEMBLE WITH THE PRINTDUMP MACROS (400/19). COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:IT.COPY_SECT (1081/4). 0 Referenced by comments of: 1081/4 00400/019 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/18 00400/020A PRINTDUMP OC G MTA:PRINTDUMP 4.3T1 233 PRINTDUMP..OC.020 1 LINE 10626 23 PAGE UM MTA APR. 05, 1980 14:40:34 MTS.:PRINTDUMP 0 THIS FILE CONTAINS THE OBJECT FOR ALL OF PRINTDUMP PLUS PRINTTRACE (337). 00400/021 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/022 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/023 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00410/001 *ASMTIDY SA S S0563 D4T1 VLO FSNAME=ASMTIDY..SA.001(1) 958 D4T1 958 ASMTIDY..SA.001 1 LINE 80 17 PAGE UBC TIFFANY JULY 27, 1977 03:06:57 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 RECORDS > 256 BYTES, AND TO WATCH FOR RC=4 ON WRITING OUTPUT. THIS VERSION DOES NOT USE INFREE. UM WRITEUP IS IN MTS VOLUME 14 (SEE COMP 665). 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/001A SYSTEM STATUS SSRTN SA G WSG:SSRTN 4.3T1 234 SYSTEM_STATUS.SSRTN.SA.001 1 LINE 72 41 PAGE UM WSG APR. 05, 1980 14:40:37 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 1 SUN SEP 08/96 19:03:19 Page 143 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 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/4) 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, INCLUDING CALLING IT EVERY INTERVAL AND ADDING JSCDS FOR THE FOURTH DATA CONCENTRATOR. (11) ADDITIONAL JOBSTA ITEMS ADDED FOR USE BY BJPMOD. 0 Referenced by comments of: 19/1, 326/1, 413/3, 413/5, 413/7, 413/10, 540/10, 647/1, 650/1, 731/1 00413/002A SYSTEM STATUS SSRTN OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00413/003 SYSTEM STATUS JOBS JOB SA G S0563 D4T1 VLO FSNAME=SYSTEM_STATUS.JOBS_JOB.SA.003(1) 963 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/005A SYSTEM STATUS SYS STAT CLS SA G SCLS WSG:SSTA.CLS(1,999) 4.3T1 235 SYSTEM_STATUS.SYS_STAT_CL.SA.005 1 LINE 80 15 PAGE UM WSG APR. 05, 1980 14:40:47 WSG.:SSTA.CLS 0 $SYSTEMSTATUS CLS FOR INTERFACING WITH SSRTN (413/1) FROM MTS COMMAND LEVEL. ASSEMBLE USING COPY:MTS.MACROS (344/3). 1 SUN SEP 08/96 19:03:19 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 Referenced by comments of: 413/1 00413/006A SYSTEM STATUS SYS STAT CLS OC G *CLSSSTA 4.3T1 236 SYSTEM_STATUS.SYS_STAT_CL.OC.006 1 LINE 80 2 PAGE UM WSG APR. 05, 1980 14:40:50 *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/10 00413/008A 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/009A SYSTEM STATUS JOBSTA DSECT SA G COPY:JOBSTA 4.3T1 237 SYSTEM_STATUS.JOBSTA_DSEC.SA.009 1 LINE 71 3 PAGE UM WSG APR. 05, 1980 14:40:53 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/10, 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/10 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 Page 146 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *ANALYSIS COULD (SHOULD) BE CHANGED TO USE THIS SUBR OUT OF *LIBRARY. 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/001A CCATL SA O CCAT FILE:CCATL(1000) 4.3T1 238 CCATL..SA.001 1 LINE 80 18 PAGE UM HELFFRICH APR. 05, 1980 14:40:56 FILE:CCATL 0 THE GENERAL OPERATION OF THIS PROGRAM IS TO ALLOCATE AN *MASTER.CATALOG0 OF THE REQUESTED SIZE AND THEN SUBALLOCATE TO THE MICAT, SYSCAT, SFCAT, AND USER CATALOG AS REQUESTED, ALLOCATING ADDITIONAL *MASTER.CATALOGN'S AS NECESSARY. AS A RESULT THE FOUR "LOGICAL PIECES" OF THE CATALOG MAY BE MADE TO ALL FALL WITHIN THE SAME EXTENT OR AN FOUR SEPARATE EXTENTS (AND VOLUMES) OR SOMEWHERE IN BETWEEN DEPENDING ON HOW THE EXTENT SIZES AND CATALOG SIZES ARE SPECIFIED. (AT UM, PUT THE MICAT, SYSCAT, AND SFCAT ON THREE SEPARATE VOLUMES TO MINIMIZE CONTENTION.) ASSEMBLE USING COPY:FILE.MACROS (482/33). SEE COMP 682/2 FOR A WRITEUP. *********************************************************************************** D4.3 CHANGES: 1) INCREASED SCRATCH AREA SIZE AND ELIMINATED CONFLICT WITH NAME DEFINED IN BCBEQU. 2) MADE COMPATIBLE WITH DISK MANAGER (769) FILE ROUTINES. *********************************************************************************** 0 Referenced by comments of: 682/2 00442/002A CCATL OC O FILE:CCATL(1,999) 4.3T1 239 CCATL..OC.002 1 LINE 80 5 PAGE UM HELFFRICH APR. 05, 1980 14:41:00 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00444/001A MTS VOLUME 2 MASTER WT S0485 MTSV2 'MTS MANUALS' POSN=NEWM12.V2 4.3T1 240 MTS_VOLUME_2.MASTER.WT.001 1 SEQ 132 260 PAGE UM MANUAL APR. 05, 1980 14:42:56 0 TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUALS (DECEMBER 1978, UPDATED OCTOBER 1979 AND APRIL 1980). EDITOR: RICHARD A. SALISBURY 00444/002A MTS VOLUME 2 PRINT PT S0485 MTSV2 'MTS MANUALS' POSN=PRINT12.V2 4.3T1 241 MTS_VOLUME_2.PRINT.PT.002 1 SEQ 132 509 PAGE UM MANUAL APR. 05, 1980 14:43:10 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. 00444/004A MTS VOLUME 2 UPDATE 1 PT W073:TNLV2.OCT79 4.3T1 242 MTS_VOLUME_2.UPDATE_1.PT.004 1 LINE 152 99 PAGE UM MANUAL APR. 05, 1980 14:43:20 0 THIS IS COMPUTING CENTER MEMO 410 -- "UPDATE 1 TO MTS VOLUME 2," (OCTOBER 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00444/005C MTS VOLUME 2 UPDATE 2 PT W073:TNLV2.APR80 4.3T1 243 MTS_VOLUME_2.UPDATE_2.PT.005 1 LINE 105 41 PAGE UM MANUAL APR. 05, 1980 14:43:28 0 THIS IS "UPDATE 2 TO MTS VOLUME 2," (APRIL 1980). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00447/001 MOUNT STATISTICS MNTSTAT SUBR SA G S0563 D4T1 VLO FSNAME=MOUNT_STATISTICS.MNTSTAT.SA.001(1) 986 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/005A MOUNT STATISTICS MSSCN PGM SA G MSSN WSG:MSSCN(1,999) 4.3T1 244 MOUNT_STATISTICS.MSSCN_PG.SA.005 1 LINE 80 13 PAGE UM WSG APR. 05, 1980 14:43:32 WSG.:MSSCN 0 PROGRAM TO SCAN MOUNT STATISTICS RECORDS (FROM FILE OR TAPE) LOOKING FOR SPECIFIED RACK NUMBERS OR USERS FOR SPECIFIED DATE RANGES. IT PRINTS THE RECORDS ON SPRINT SORTED BY RACK NUMBER AND DATE/TIME. FOR EXAMPLE, $RUN MSSCN(1000) SCARDS=SYS:MOUNTSTAT R S0622 03-25-76 05-22-76 U WSG. 01-14-77 P ABCD R S08## $ENDFILE WILL SCAN SYS:MOUNTSTAT FOR ALL MOUNTS OF TAPE S0622 FROM 25 MAR 76 TO 22 MAY 76, FOR ALL MOUNTS BY USER WSG ON 14 JAN 77, FOR ALL MOUNTS BY PROJECT ABCD, AND FOR ALL MOUNTS OF TAPES WITH RACK NUMBERS BEGINNING WITH S08 FOLLOWED BY ANY TWO CHARACTERS. IF SCARDS IS NOT ASSIGNED, MSSCN WILL PROMPT FOR FDNAMES TO BE SCANNED. IF MORE THAN 500 RECORDS ARE LIKELY TO BE OUTPUT, THE PROGRAM SHOULD BE RUN WITH PAR=N, WHERE N IS AN UPPER BOUND (USED FOR SORTING). THIS PROGRAM WILL ALSO ACCEPT THE OLDER RECORDS PRODUCED BY THE D3.0 TAPESTAT PROGRAM (NOW OBSOLETE). 0 Referenced by comments of: 447/1, 447/3, 447/7 00447/006A MOUNT STATISTICS MSSCN PGM OC G SYS:MSSCN 4.3T1 245 MOUNT_STATISTICS.MSSCN_PG.OC.006 1 LINE 80 3 PAGE UM WSG APR. 05, 1980 14:43:34 SYS.:MSSCN 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 Page 155 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/38) FOR OLTEP. CONTAINS ENTRIES FOR THINGS IN OLTEPLIB (458/79), BUT NOT OLTEPCDSLIB (458/86) OR OLTEPTSTLIB (458/82). 00458/081A OLTEP OLTEPBLDL D G ETC:OLTEPBLDL 4.3T1 246 OLTEP.OLTEPBLDL.D.081 1 SEQ 250 10 PAGE UM MTA APR. 05, 1980 14:43:37 ETC.:OLTEPBLDL 0 BLDL INFO FOR OLTEP. CREATED BY CREBLDL (545/38) USING 458/80, 458/83, AND 458/85 AS INPUT. 00458/082A OLTEP OLTEPTSTLIB OL G MTS:OLTEPTSTLIB 4.3T1 247 OLTEP.OLTEPTSTLIB.OL.082 1 LINE 26386 239 PAGE UM MTA APR. 05, 1980 14:43:40 ETC.:OLTEPTSTLIB 0 OBJECT LIBRARY FOR TEST SECTIONS AND CDS (CONFIGURATION DATA SET) MODULES. INCLUDES TESTS FOR: 2400, 2301, 2540, 2541, 2501, 1403, 2305, 2671, 2835, 3270, AND 3274. ALSO INCLUDES SOSP FOR USE IN BUILDING CDS ENTRIES AND RETRIEVING TEST SECTIONS FROM THE OLTSEP TAPE. SOSP IS VERSION 8.0. TO ADD NEW TEST SECTIONS, SIMPLY PUT THEM IN THIS LIBRARY AND ADD A LINE FOR EACH TO OLTEPTSTBLDL (458/83) (AND RUN IT THROUGH CREBLDL). EACH TEST SECTION MUST HAVE AN ENTRY WITH THE SAME NAME AS THE SECTION (E.G. T2400A). 0 Referenced by comments of: 458/80 00458/083A OLTEP OLTEPTSTBLDL D MTA:OLTEPTSTBLDL 4.3T1 248 OLTEP.OLTEPTSTBLDL.D.083 1 LINE 60 7 PAGE UM MTA APR. 05, 1980 14:43:58 MTA:OLTEPTSTBLDL 0 INPUT TO CREBLDL (545/38) FOR 458/82. 0 Referenced by comments of: 458/82 00458/084A OLTEP OLTEPCDS D MTA:OLTEPCDS 4.3T1 249 OLTEP.OLTEPCDS.D.084 1 LINE 64 9 PAGE UM MTA APR. 05, 1980 14:44:01 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00458/085A OLTEP OLTEPCDSBLDL D MTA:OLTEPCDSBLDL 4.3T1 250 OLTEP.OLTEPCDSBLDL.D.085 1 LINE 60 14 PAGE UM MTA APR. 05, 1980 14:44:03 MTA.:OLTEPCDSBLDL 0 INPUT TO CREBLDL FOR THE UM CONFIGURATION CDS. 00458/086A OLTEP OLTEPCDSLIB OL G ETC:OLTEPCDSLIB 4.3T1 251 OLTEP.OLTEPCDSLIB.OL.086 1 LINE 8760 26 PAGE UM MTA APR. 05, 1980 14:44:06 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. 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/089C OLTEP CDS CREATE PGM SA G MTA:OLTEPCRECDS(1,999) 4.3T1 252 OLTEP.CDS_CREATE_PGM.SA.089 1 LINE 72 4 PAGE UM MTA APR. 05, 1980 14:44:09 MTA:OLTEPCRECDS 0 PROGRAM TO READ CDS DEFINITION CARDS (E.G., 458/84) AND PRODUCE DECKS FOR THE CDS MODULES ON SPUNCH. ASSEMBLE USING COPY:CC.MACROS (1054/3) AND *SYSMAC. 00458/090C OLTEP CDS CREATE PGM OC G MTA:OLTEPCRECDS(1000) 4.3T1 253 OLTEP.CDS_CREATE_PGM.OC.090 1 LINE 80 4 PAGE UM MTA APR. 05, 1980 14:44:11 00458/091A OLTEP OLTEPCMD C MTA:OLTEPCMD 4.3T1 254 OLTEP.OLTEPCMD.C.091 1 LINE 95 1 PAGE UM MTA APR. 05, 1980 14:44: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/91 MODIFIED FOR LOCAL FILE NAMES. THIS WILL LOAD THE SPECIAL VERSION OF FAKEOS AND START OLTEP WITH THE COMMENT "IFD102I OLTS RUNNING" BEING PRINTED. FURTHER OPERATOR COMMUNICATION WITH OLTEP IS DESCRIBED IN THE IBM MANUAL (FORM GC28-6650-6) ON PAGES 41-47. THE OPERATION OF OLTEP IN MTS IS AS DESCRIBED IN THIS MANUAL EXCEPT FOR THE FOLLOWING: (1) PAGES 1-40 DESCRIBE HOW TO INSTALL AND INVOKE OLTEP IN OS AND ARE IRRELEVANT. (2) THE PROCEDURE REQUIRED TO INTERRUPT A TEST IS TO PRESS THE ATTENTION KEY. 1 SUN SEP 08/96 19:03:19 Page 157 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (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 00461/005A DISTRIBUTION 6250 DRIVER D DIST:DRIVER6250 4.3T2 573 DISTRIBUTION.6250_DRIVER.D.005 1 LINE 264 307 PAGE UM SWEET MAY 22, 1980 03:10:25 DIST:DRIVER6250 0 THIS IS THE COMPLETE DRIVER FILE FOR THE 6250 BPI VERSION OF UM D4.3. ITEMS INCLUDED IN D4.3 ARE MARKED WITH REVISION LEVELS AS FOLLOWS: REVL=A COMPONENTS WHICH HAVE CHANGED SINCE D4.2. THESE MAY HAVE BEEN SENT ON RD4.2A (RD16), RD4.2B, OR RD4.2C. REVL=C NEW SUBCOMPONENTS WHICH HAVE BEEN ADDED TO THE PRODUCTION SYSTEM AT UM SINCE RD4.2C. 0 Referenced by comments of: 461/13 00461/006A DISTRIBUTION 1600 DRIVER D DIST:DRIVER1600 4.3T2 574 DISTRIBUTION.1600_DRIVER.D.006 1 LINE 264 307 PAGE UM SWEET MAY 22, 1980 03:13:25 DIST:DRIVER1600 0 THIS IS THE COMPLETE DRIVER FILE FOR THE 1600 BPI VERSION OF UM D4.3. ITEMS INCLUDED IN D4.3 ARE MARKED WITH REVISION LEVELS AS FOLLOWS: 1 SUN SEP 08/96 19:03:19 Page 158 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 REVL=A COMPONENTS WHICH HAVE CHANGED SINCE D4.2. THESE MAY HAVE BEEN SENT ON RD4.2A (RD16), RD4.2B, OR RD4.2C. REVL=C NEW SUBCOMPONENTS WHICH HAVE BEEN ADDED TO THE PRODUCTION SYSTEM AT UM SINCE RD4.2C. 0 Referenced by comments of: 461/14 00461/007A DISTRIBUTION DRIVER COMMENT D DIST:COMM 4.3T2 575 DISTRIBUTION.DRIVER_COMME.D.007 1 LINE 138 177 PAGE UM SWEET MAY 22, 1980 03:13:45 DIST:COMM 0 THIS IS THE COMMENT FILE FOR THE RD16 DRIVER FILES (461/5 AND 461/6). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00461/008A DISTRIBUTION NEW SYSTEMS WF DIST:NEWSYS.WF 4.3T2 558 DISTRIBUTION.NEW_SYSTEMS.WF.008 1 LINE 167 5 PAGE UM WSG MAY 22, 1980 01:48:26 DIST: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. ***************** Does this need to be updated for d5.0? ***************** 00461/009A DISTRIBUTION OLD SYSTEMS WF DIST:OLDSYS.WF 4.3T2 559 DISTRIBUTION.OLD_SYSTEMS.WF.009 1 LINE 118 9 PAGE UM WSG MAY 22, 1980 01:48:28 DIST:OLDSYS.WF 0 A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 4.2 AT OLD INSTALLATIONS, I.E. INSTALLATIONS WHICH HAVE PREVIOUSLY USED MTS. ***************** Does this need to be updated for d5.0? ***************** 00461/010A DISTRIBUTION GENERAL NOTES WF DIST:GENNOTES.WF 4.3T2 560 DISTRIBUTION.GENERAL_NOTE.WF.010 1 LINE 147 11 PAGE UM WSG MAY 22, 1980 01:48:30 DIST:GENNOTES.WF 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00461/012 DISTRIBUTION DRIV INDEX GEN C DIST:DISTINDEX D4.2T1 236 DISTRIBUTION.DRIV_INDEX_G.C.012 1 LINE 133 1 PAGE UM SWEET MAR. 26, 1979 02:55:09 DIST:DISTINDEX 0 COMMAND FILE TO PRODUCE A DRIVER FILE ALPHABETIZED INDEX. 00461/013A DISTRIBUTION 6250 INDEX P DIST:INDEX6250 4.3T2 576 DISTRIBUTION.6250_INDEX.P.013 1 LINE 133 184 PAGE UM SWEET MAY 22, 1980 03:14:00 DIST:INDEX6250 0 INDEX FOR THE 6250 BPI DRIVER FILE (461/5). COPY TO A TN PRINTER. 00461/014A DISTRIBUTION 1600 INDEX P DIST:INDEX1600 4.3T2 577 DISTRIBUTION.1600_INDEX.P.014 1 LINE 133 184 PAGE UM SWEET MAY 22, 1980 03:14:10 DIST:INDEX1600 0 INDEX FOR THE 1600 BPI DRIVER FILE (461/6). COPY TO A TN PRINTER. 00461/015A DISTRIBUTION D4.3 MEMO LIST WF DIST:MEMOLIST 4.3T1 255 DISTRIBUTION.D4.3_MEMO_LI.WF.015 1 LINE 110 3 PAGE UM SWEET APR. 05, 1980 15:07:10 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). 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/018A DISTRIBUTION CHG FORMS DATA D MTS:CHGFORMDATA 4.3T1 256 DISTRIBUTION.CHG_FORMS_DA.D.018 1 LINE 91 81 PAGE UM DWB APR. 05, 1980 15:07:11 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 S0672 CCMEMO 'CCMEMOS' FSNAME=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/021A DISTRIBUTION FM.GEN SS G WSG:FM.GEN 4.3T1 257 DISTRIBUTION.FM.GEN.SS.021 1 LINE 75 2 PAGE UM WSG APR. 05, 1980 15:07:20 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 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/022A DISTRIBUTION MTS431 FILES D DIST:MTS431.FILES 4.3T2 561 DISTRIBUTION.MTS431_FILES.D.022 1 LINE 17 7 PAGE UM WSG MAY 22, 1980 01:48:35 DIST:MTS431.FILES 0 A LIST OF ALL THE FILES ON THE D4.3 DUMP/RESTORE PACK. 00461/023A DISTRIBUTION MTS BIB WF DIST:MTS.BIB 4.3T1 258 DISTRIBUTION.MTS_BIB.WF.023 1 LINE 69 2 PAGE UM SWEET APR. 05, 1980 15:07:23 0 BIBLIOGRAPHY OF PUBLISHED PAPERS ABOUT MTS AND FRIENDS. 00461/024C DISTRIBUTION DRIVERSCAN SS G DIST:DRIVERSCAN.S 4.3T1 259 DISTRIBUTION.DRIVERSCAN.SS.024 1 LINE 68 4 PAGE UBC BERRYMAN WSG APR. 05, 1980 15:07:25 0 SOURCE FOR A SPITBOL PROGRAM THAT SCANS A DISTRIBUTION DRIVER FILE AND PRINTS A LIST OF COMPONENT NUMBERS THAT AREN'T IN IT. THE PROGRAM ALSO PERFORMS A NUMBER OF SIMPLE CHECKS ON COMPONENT NAMES, SUBCOMPONENT NAMES, COMPONENT NUMBERS, AND SUBCOMPONENT NUMBERS. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00461/025C DISTRIBUTION DRIVERSCAN OC G DIST:DRIVERSCAN 4.3T1 260 DISTRIBUTION.DRIVERSCAN.OC.025 1 LINE 8024 5 PAGE UBC BERRYMAN WSG APR. 05, 1980 15:07:27 0 CONTAINS A $CONTINUE WITH *SPITLIB RECORD. 00462 CHECKSUM SA # (OBSOLETED BY PROTECTION) D3T3 36 CHECKSUM..SA.1 1 SEQ 80 3 PAGE UM AUG. 01, 1973 18:30.28 00463/001A STDDMP SUBR SA G MTS:STDDMP(1000) 4.3T1 261 STDDMP_SUBR..SA.001 1 LINE 72 5 PAGE UM MTA APR. 05, 1980 15:07:30 MTS:STDDMP 0 PRODUCES STANDARD FORMAT DUMPS. SEE ALSO SDUMP (049). 00463/002A 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:CC.MACROS (1054/3). 00464/002A PLIMIT UPDATE UC G MTS:PLIMUPD 4.3T1 262 PLIMIT.UPDATE.UC.002 1 LINE 68 1 PAGE UM MTS HELFFRICH APR. 05, 1980 15:07:32 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. 00464/003A PLIMIT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00464/004A PLIMIT L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=PLIM.LIST 8 4.3T1 263 PLIMIT..L.004 1 SEQ 133 17 PAGE UM MTS HELFFRICH APR. 05, 1980 15:07:57 00465/001A *APL MTS INTERFACE SA G W170:APL.MTS(1000) 4.3T1 264 APL.MTS_INTERFACE.SA.001 1 LINE 72 31 PAGE UM HELFFRICH APR. 05, 1980 15:07:57 0 THE APL-MTS INTERFACE. ASSEMBLE USING THE APL MACRO LIBRARY (465/3). CONTAINS THE OBJECT AT LINE 1 AND THE SOURCE AT LINE 1000. COPIES APLDEFN, DIRSECT, ZSYMBOLS, AND PERTERM FROM THE APL MACRO LIBRARY (465/3), AND *GFINFODSECT (593). 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. ************************************************************************************* D4.3 CHANGES: APL NOW PERMITS ALL WORKSPACES IT CREATES R PKEY=*APL. ************************************************************************************* 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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). 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/014A *APL OBJECT OC G SEG2:S2APL 4.3T1 265 APL.OBJECT.OC.014 1 LINE 11225 110 PAGE UM HELFFRICH APR. 05, 1980 15:08:07 SEG2:S2APL 0 APL OBJECT LOADED INTO SHARED VM BY PISTLE AT IPL. 0 Referenced by comments of: 465/15 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 1 SUN SEP 08/96 19:03:19 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 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/001A RESIDENT SYSTEM D4.3 SYS D MTS:D4.3SYS 4.3T2 562 RESIDENT_SYSTEM.D4.3_SYS.D.001 1 SEQ 4100 161 PAGE UM WSG MAY 22, 1980 01:48:36 *IPL.D4.3 0 RAMROD IPL FILE FOR D4.3 SYSTEM (WITH DUMMY TABLES) ON DUMP/RESTORE PACK. 0 Referenced by comments of: 482/4, 482/26 00468/002A RESIDENT SYSTEM D4.3 UM SYS D MTS:TST.IPL.0 4.3T2 563 RESIDENT_SYSTEM.D4.3_UM_S.D.002 1 SEQ 4100 172 PAGE UM WSG MAY 22, 1980 01:48:42 *IPL.0 0 RAMROD IPL FILE FOR D4.3 SYSTEM WITH UM I/O CONFIGURATION, BUT ONLY MTS431. THIS IS THE "CURRENT" SYSTEM ON THE D4.3 DUMP/RESTORE PACK. 00468/003A RESIDENT SYSTEM UM RAMROD D MTS:D4.3ROD 4.3T2 564 RESIDENT_SYSTEM.UM_RAMROD.D.003 1 SEQ 32767 522 PAGE UM WSG MAY 22, 1980 01:48:48 MTS.:ROD 0 CURRENT UM RAMROD FILE. THE FOLLOWING PROCEDURES ARE USED IN MAINTAINING THIS FILE. WHENEVER A NEW SYSTEM IS INSTALLED (I.E. WRITTEN TO *IPL.0), THREE THINGS ARE DONE: (1) THE NAME OF THE SYSTEM INSTALLED IS CHANGED TO THE "MODEL NUMBER" OF THE DATE IT IS INSTALLED, E.G. "AY108" FOR MAY 10, 1978. (2) THE SYSTEM INSTALLED IS MADE THE CURRENT SYSTEM. (3) THE OLDEST SYSTEM IS DELETED SO THAT THERE ARE ABOUT FIVE SYSTEMS-- THE CURRENT ONE AND THE FOUR PRECEDING. WHEN SOMEONE WISHES TO CHANGE A COMPONENT, BUT NOT INSTALL A NEW SYSTEM, A NEW SYSTEM CALLED "NEWSYS" IS CREATED FROM THE CURRENT SYSTEM (IF IT DOESN'T ALREADY EXIST) AND THE DESIRED CHANGES MADE AND NOTED USING THE "ANNOTATE" COMMAND. THEN WHEN THE NEWSYS SYSTEM IS ACTUALLY TO BE INSTALLED AS THE RUNNING SYSTEM, THE PROCEDURE ABOVE IS FOLLOWED. A TEST SYSTEM CAN BE CREATED AT ANY TIME WITH ANY NAME, BUT WHEN THE NEW COMPONENTS ARE READY TO BE INSTALLED, THEY SHOULD BE PUT IN "NEWSYS" AND THE TEST SYSTEM DESTROYED. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00468/004A RESIDENT SYSTEM *IPL.1 D # *IPL.1 UM WSG *IPL.1 0 UM FIRST BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER. NOTE: THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE. 00468/005A RESIDENT SYSTEM *IPL.2 D # *IPL.2 UM WSG *IPL.2 0 UM SECOND BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER. NOTE: THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE. 00468/006C RESIDENT SYSTEM *IPL.3 D # *IPL.3 UM WSG *IPL.3 0 UM THIRD BACKUP SYSTEM OBJECT IN FORM SUITABLE FOR LOADING BY THE IPL READER. NOTE: THIS SYSTEM ASSUMES THE UM (RATHER THAN TEST PACK) VERSION OF *RATEFILE. 00468/007A RESIDENT SYSTEM WRITEUP WF DIST:RESSYS.WF 557 4.3T1 266 RESIDENT_SYSTEM.WRITEUP.WF.007 1 LINE 145 4 PAGE UM WSG APR. 05, 1980 15:08:19 DIST: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 A PCB DSECT COPY:PCBDSECT SA G COPY:PCBDSECT 4.3T1 267 PCB_DSECT.COPY:PCBDSECT.SA. 1 LINE 72 2 PAGE UM MTA APR. 05, 1980 15:08:21 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 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 1 SUN SEP 08/96 19:03:19 Page 166 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 C. 2540 CARD PUNCH ADDRESS 000D D. 1403 LINE PRINTER ADDRESS 000E E. 2 2401 9-TRACK TAPE DRIVES ADDRESSES 0180-0181 6. EXCEPT AT IPL, SELF-MODIFYING CCW'S ARE NOT ALLOWED 7. INSTANTANEOUS I/O NOTE: THE STANDARD VIRTUAL MACHINE (558) NOW HAS AN ASSEMBLY PARAMETER TO PRODUCE A STUDENT VERSION. 0 Referenced by comments of: 4240/1 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00480 APF SA # (OBSOLETE) D2T1 329 UM 00481 FILE SAVE - OLD VERSION O # (OBSOLETE) D2T1 001 UM 00482/001 FILE SYSTEM DASDUC SA # (SEE COMP. 787/7) UM 00482/002 FILE SYSTEM DASDUC OC # (SEE COMP. 787/8) UM 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/005A FILE SYSTEM VOLGET SA G FILE:VOLGET(1000) 4.3T1 268 FILE_SYSTEM.VOLGET.SA.005 1 LINE 72 17 PAGE UM HELFFRICH APR. 05, 1980 15:08:23 FILE:VOLGET 0 BASIC LOW LEVEL DISK SUBROUTINES TO EXECUTE CHANNEL PROGRAMS, ETC. ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE DISK MANAGER MACROS (769/8). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ********************************************************************************* D4.3 CHANGES: 1) VAMX SUPPORT ADDED 2) PRELIMINARY DISK MANAGER (769) SUPPORT INSTALLED IN A COMPATIBLE FASHION. ********************************************************************************* 0 Referenced by comments of: 534/5 00482/006A FILE SYSTEM VOLGET OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/007A FILE SYSTEM TRAK SA G FILE:TRAK(1000) 4.3T1 269 FILE_SYSTEM.TRAK.SA.007 1 LINE 72 16 PAGE UM HELFFRICH APR. 05, 1980 15:08:30 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). ASSEMBLE WITH COPY:FILE.MACROS 1 SUN SEP 08/96 19:03:19 Page 168 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (482/33). NOTE: THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S. ***************************************************************************** D4.3 CHANGES: VAMX SUPPORT ADDED. ***************************************************************************** 0 Referenced by comments of: 482/51 00482/008A 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/011A FILE SYSTEM WRITEI SA G FILE:WRITEI(1000) 4.3T1 270 FILE_SYSTEM.WRITEI.SA.011 1 LINE 72 34 PAGE UM HELFFRICH APR. 05, 1980 15:08:34 FILE:WRITEI 0 SUBROUTINE TO WRITE LINE FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33). ***************************************************************************** THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2C): 1) BUG FIXED IN THE PROCEDURE WHICH SPLITS ONE-PAGE FILES INTO MULTI-PAGE FILES IF SEGMENTED DATA LINES ARE PRESENT. 2) VAMX SUPPORT ADDED 3) DISK MANAGER (769) COMPATIBILITY ADDED. ***************************************************************************** 00482/012A 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00482/014 FILE SYSTEM READL OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/015A FILE SYSTEM OPEN SA G FILE:OPEN(1000) 4.3T1 271 FILE_SYSTEM.OPEN.SA.015 1 LINE 80 86 PAGE UM HELFFRICH APR. 05, 1980 15:08:41 FILE:OPEN 0 SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33). ***************************************************************************** D4.3 CHANGES: 1) VAMX SUPPORT ADDED. 2) CHANGED TO CHECK WHETHER BUFFERS ARE ACTUALLY ATTACHED TO BCBS BEFORE FREEING THEM. ***************************************************************************** 00482/016A FILE SYSTEM OPEN OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/017A FILE SYSTEM GETDSK SA G FILE:GETDSK(1000) 4.3T1 272 FILE_SYSTEM.GETDSK.SA.017 1 LINE 72 19 PAGE UM HELFFRICH APR. 05, 1980 15:09:02 FILE:GETDSK 0 SUBROUTINES TO ALLOCATE AND RELEASE DISK SPACE. ASSEMBLE USING COPY:FILE.MACROS (482/33). ***************************************************************************** D4.3 CHANGES: VAMX SUPPORT ADDED. ***************************************************************************** 00482/018A 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/021A FILE SYSTEM CATALOG SA G FILE:CATALOG(1000) 4.3T1 273 FILE_SYSTEM.CATALOG.SA.021 1 LINE 71 45 PAGE UM HELFFRICH APR. 05, 1980 15:09:08 FILE:CATALOG 0 SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33). 1 SUN SEP 08/96 19:03:19 Page 170 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ***************************************************************************** D4.3 CHANGES: VAMX SUPPORT ADDED. ***************************************************************************** 00482/022A FILE SYSTEM CATALOG OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00482/023A FILE SYSTEM RWSEQ SA G FILE:RWSEQ(1000) 4.3T1 274 FILE_SYSTEM.RWSEQ.SA.023 1 LINE 72 15 PAGE UM HELFFRICH APR. 05, 1980 15:09:25 FILE:RWSEQ 0 SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES. ASSEMBLE USING COPY:FILE.MACROS (482/33). ***************************************************************************** D4.3 CHANGES: VAMX SUPPORT ADDED. ***************************************************************************** 00482/024A FILE SYSTEM RWSEQ OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/36 00482/031A FILE SYSTEM FSTEST SA G FILE:FSTEST(1005) 4.3T1 275 FILE_SYSTEM.FSTEST.SA.031 1 LINE 68 13 PAGE UM HELFFRICH APR. 05, 1980 15:09:29 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. ***************************************************************************** D4.3 CHANGES: UPDATED FOR VAMX AND DISK MANAGER (769) SUPPORT. ***************************************************************************** 0 Referenced by comments of: 682/11 00482/032A FILE SYSTEM FSTEST OC G FILE:FSTEST(1,1004.999) 4.3T1 276 FILE_SYSTEM.FSTEST.OC.032 1 LINE 80 6 PAGE UM HELFFRICH APR. 05, 1980 15:09:34 00482/033A FILE SYSTEM FILE.MACROS SM G COPY:FILE.MACROS 4.3T1 277 FILE_SYSTEM.FILE.MACROS.SM.033 1 LINE 72 10 PAGE UM HELFFRICH APR. 05, 1980 15:09:36 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 ***************************************************************************** D4.3 CHANGES: VAMX SUPPORT ADDED. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 Page 172 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 4/1, 4/4, 67/1, 67/2, 67/3, 67/17, 73/3, 92/3, 97/6, 104/106, 104/110, 400/14, 400/15, 442/1, 482/5, 482/7, 482/9, 482/11, 482/13, 482/15, 482/17, 482/19, 482/21, 482/23, 482/25, 482/27, 482/31, 482/34, 482/40, 482/42, 482/51, 502/1, 502/7, 502/9, 509/1, 539/1, 540/18, 546/1, 554/1, 554/3, 578/1, 598/1, 599/1, 621/2, 629/4, 644/1, 671/3, 682/18, 682/20, 682/22, 682/24, 682/26, 682/28, 682/30, 682/39, 682/41, 724/1, 769/4, 769/9, 790/2, 790/4, 790/5, 790/7, 1020/1, 1021/1, 1021/4, 1021/7, 1030/1, 3024/37 00482/034A FILE SYSTEM PDLIST PGM SA G FILE:PDLIST(1000) 4.3T1 278 FILE_SYSTEM.PDLIST_PGM.SA.034 1 LINE 71 4 PAGE UM HELFFRICH APR. 05, 1980 15:09:39 FILE:PDLIST 0 PROGRAM TO PRINT THE PHYSICAL DRIVE ADDRESS FOR EACH PUBLIC DISK VOLUME. ASSEMBLE WITH COPY:FILE.MACROS (482/33) AND COPY:MISC.MACROS (728). ***************************************************************************** D4.3 CHANGES: ADDED 3350 SUPPORT. ***************************************************************************** 0 Referenced by comments of: 482/36 00482/035A FILE SYSTEM PDLIST PGM OC G FILE:PDLIST(1,999) 4.3T1 279 FILE_SYSTEM.PDLIST_PGM.OC.035 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 15:09:41 0 HAS A $CONTINUE WITH COPY:SYSDEFS (579/3) RECORD. 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/037A FILE SYSTEM TEST FILERTNS OC G FILE:FILERTNS 4.3T1 280 FILE_SYSTEM.TEST_FILERTNS.OC.037 1 LINE 38 1 PAGE UM HELFFRICH APR. 05, 1980 15:09:44 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 00482/038A FILE SYSTEM TEST TABLES SA G FILE:TABLES.TEST(1000) 4.3T1 281 FILE_SYSTEM.TEST_TABLES.SA.038 1 LINE 56 1 PAGE UM HELFFRICH APR. 05, 1980 15:09:46 0 A CUT-DOWN VERSION OF TABLES (004) CONTAINING ONLY A DEVICE LIST WITH TWO DISKS (D340 AND D350), A DSKTAB WITH ONLY ONE PACK, AND CATALOG ROOT ENTRIES. USED WITH THE TEST VERSION OF THE FILE ROUTINES (482/37). ***************************************************************************** D4.3 CHANGES: UPDATED FOR VAMX SUPPORT. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 Page 173 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 482/37 00482/039A FILE SYSTEM TEST TABLES OC G FILE:TABLES.TEST(1,998) 4.3T1 282 FILE_SYSTEM.TEST_TABLES.OC.039 1 LINE 80 1 PAGE UM HELFFRICH APR. 05, 1980 15:09:49 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/042A FILE SYSTEM CATALOG SCAN SA G FILE:CATSCAN(1000) 4.3T1 283 FILE_SYSTEM.CATALOG_SCAN.SA.042 1 LINE 70 9 PAGE UM HELFFRICH APR. 05, 1980 15:09:52 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). ***************************************************************************** D4.3 CHANGES: UPDATED FOR VAMX AND DISK MANAGER (769) SUPPORT. ***************************************************************************** 00482/043A FILE SYSTEM CATALOG SCAN OC G FILE:CATSCAN(1,999) 4.3T1 284 FILE_SYSTEM.CATALOG_SCAN.OC.043 1 LINE 80 7 PAGE UM HELFFRICH APR. 05, 1980 15:09:54 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. 0 Referenced by comments of: 482/44, 482/46 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/050A FILE SYSTEM SCRATCH SIZES C FILE:SCRATCHSIZES(1) 4.3T1 285 FILE_SYSTEM.SCRATCH_SIZES.C.050 1 LINE 72 3 PAGE UM HELFFRICH APR. 05, 1980 15:09:57 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. ***************************************************************************** D4.3 CHANGES: UPDATED FOR VAMX SUPPORT. ***************************************************************************** 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 1 SUN SEP 08/96 19:03:19 Page 175 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 NOCLEAR TO SUPPRESS CLEARING OF CUMULATIVE I/O COUNTS DT= NS|NM|NH¬ TO DEFINE SAMPLE INTERVAL RESET= NO|YES¬ TO RESET SWITCH IN TRAK (482/7) WHICH TRIGGERS STATISTICS COLLECTION 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 (85000,85999) *85* WATLOAD (86000,86999) *86* ZMONTH LINE NUMBERS IN THIS FILE ARE IMPORTANT. THIS COMPONENT SHOULD BE RESTORED TO A FILE NAMED WAT5.SGEN SINCE THE COMMAND FILE (483/7) HAS NUMEROUS REFERENCES TO THIS FILE. 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 1 SUN SEP 08/96 19:03:19 Page 177 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COMPONENTS OF WATFIV. THE MTS COMMANDS 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 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 A *ACCRESTORE OE G *ACCRESTORE 4.3T1 286 ACCRESTORE..OE. 1 LINE 3648 3 PAGE UM ENGLE APR. 05, 1980 15:10:00 *ACCRESTORE 0 PROGRAM TO COMPUTE NUMBER OF CURRENT SIGNONS AND CURRENT DISK SPACE FOR A USERID AND THEN UPDATE THE ACCOUNTING RECORD. FILE IS LINKEDIT OF ACCSTRUP (104/32), THE MAIN PROGRAM, PLUS CURSIG (104/84), ACATALOG (104/107), GETFILE (104/105), ACCIO (104/25), ACCFLUPD (104/80), FILERATE (104/18), 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/003A *PLC CONT UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=CONT.U 4.3T1 287 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/004A *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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/015A *PLC MIMO UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=MIMO.U 4.3T1 288 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00485/016A *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/021A *PLC SYSO UU G S0548 PLCARC 'PL/C ARCHIVE' FSNAME=SYSO.U 4.3T1 289 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/022A *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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/002A EXPL SUBMON UPDATE UC G S1210 PASDIS 'PASCAL DIST' FSNAME=EXMON.CDU 4.3T1 290 EXPL.SUBMON_UPDATE.UC.002 1 LINE 80 3 PAGE UM UNSP FEB. 25, 1980 15:13:15 0 THIS IS AN UPDATE TO BE APPLIED TO 495/1. THE OBJECT (495/13) 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. 0 Referenced by comments of: 782/60 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00495/006A EXPL *EXCOM UPDATE UC G S1210 PASDIS 'PASCAL DIST' FSNAME=EXCOM.CDU 4.3T1 291 EXPL.*EXCOM_UPDATE.UC.006 1 LINE 68 1 PAGE UM UNSP FEB. 25, 1980 15:07:25 0 THIS IS AN UPDATE TO BE APPLIED TO 495/5. THE OBJECT (495/14) IS NOT INSTALLED AS *EXPL AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003). FIXES PROBLEMS ENCOUNTERED BY LARGE PROGRAMS. 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/013A EXPL SUBMONITOR OC G S1210 PASDIS 'PASCAL DIST' FSNAME=EXMON 4.3T1 292 EXPL.SUBMONITOR.OC.013 1 LINE 5290 5 PAGE UM UNSP FEB. 25, 1980 15:15:37 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). ******************************************************************************** 1 SUN SEP 08/96 19:03:19 Page 187 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 D4.3 CHANGE: CHANGED TO FIX BUG IN THE COMPACTIFY SUBROUTINE. ******************************************************************************** 0 Referenced by comments of: 495/2 00495/014A EXPL COMPILER OC G S1210 PASDIS 'PASCAL DIST' FSNAME=EXPL 4.3T1 293 EXPL.COMPILER.OC.014 1 LINE 32767 41 PAGE UM UNSP FEB. 25, 1980 15:08:32 0 THIS IS THE OBJECT OF 495/5, WITH THE 495/6 UPDATE APPLIED. THIS IS NOT INSTALLED AS *EXPL AT UM, BUT IS A SPECIAL VERSION USED BY PASCAL/SB (9003). 0 Referenced by comments of: 495/6 00496/001A *APC SA G LBT:APC.S 4.3T1 294 APC..SA.001 1 LINE 90 67 PAGE UM TIFFANY APR. 05, 1980 15:16:35 0 THIS IS THE ALL-PURPOSE COMPARE PROGRAM WHICH IS USED PRIMARILY TO TEST FOR EQUALITY BETWEEN RECORDS OF TWO FILES OR DEVICES. COPIES *GDINFODSECT (594) AND *SENSEDSECT (3025). 0 Referenced by comments of: 629/12, 746/1, 1016/1 00496/002A *APC OE G *APC 4.3T1 295 APC..OE.002 1 LINE 21255 15 PAGE UM TIFFANY APR. 05, 1980 15:16:41 *APC 00496/003 *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/001 *IG DI SA G S0933 IGDIST FSNAME=IG.DI.S RD16T1 78 IG.DI.SA.001 1 LINE 84 72 PAGE UM GOODRICH JULY 12, 1979 22:48:19 0 THE INTEGRATED GRAPHICS (IG) SYSTEM IS A LIBRARY OF FORTRAN CALLABLE SUBROUTINES FOR PERFORMING GRAPHICS OPERATIONS ON A WIDE VARIETY OF GRAPHIC TERMINALS. IT CONSISTS OF *IG AND ROUTINES FOR DEVICE DEPENDENT I/O SUPPORT. EACH SOURCE MODULE FOR THIS COMPONENT ALSO CONTAINS THE MTS COMMANDS FOR ASSEMBLING IT; EACH SHOULD BE ASSEMBLED USING THE COPY:IG.COPY.M MACRO LIBRARY (498/9). 1 SUN SEP 08/96 19:03:19 Page 188 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 498/1 IS THE SOURCE FOR THE DEVICE INTERFACE CSECT (DI). 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/004 *IG GETDD SA G S0933 IGDIST FSNAME=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. 0 Referenced by comments of: 498/1 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/047A *IG *IG.HP7221 SA G S0933 IGDIST FSNAME=IG.HP7221.S 4.3T1 296 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/048A *IG *IG.HP7221 OC G *IG.HP7221 4.3T1 297 IG.*IG.HP7221.OC.048 1 LINE 80 5 PAGE UM GOODRICH APR. 05, 1980 15:19:52 *IG.HP7221 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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/41 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/50) DETECTS AN INCONSISTENCY, THIS PROGRAM ATTEMPTS TO CORRECT THE SITUATION BY REASSEMBLING THE SUBROUTINE ON THE ASSUMPTION THAT THE MTS DSECT HAS BEEN CHANGED. PKEY=BILL:BLSIGCK. RUN WITH PROT=OFF. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 500/50 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 00500/003A BILLING BILLRFT SP G BLRF S0027 DISTRB FSNAME=BILLRFT 4.3T1 298 BILLING.BILLRFT.SP.003 1 LINE 80 21 PAGE UM ENGLE FEB. 20, 1980 11:20:33 0 PROGRAM TO REFORMAT STATISTICS RECORDS, HAND BILLING RECORDS, OS/360 BILLING RECORDS, AND NETWORK RECORDS FOR BILLING SORT. 0 Referenced by comments of: 500/28, 500/36, 500/42 00500/004C BILLING BILLRFT UC G S0027 DISTRB FSNAME=BILLRFTUPD 4.3T1 299 BILLING.BILLRFT.UC.004 1 LINE 76 1 PAGE UM ENGLE FEB. 20, 1980 11:20:40 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/005A BILLING BILLRFT OC G S0027 DISTRB FSNAME=BLRF 4.3T1 300 BILLING.BILLRFT.OC.005 1 LINE 80 21 PAGE UM ENGLE FEB. 20, 1980 11:20:44 0 REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';). 00500/006A BILLING BILLRFT OC G S0027 DISTRB FSNAME=NETBLRF 4.3T1 301 BILLING.BILLRFT.OC.006 1 LINE 80 18 PAGE UM ENGLE FEB. 20, 1980 11:21:16 0 REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/007A BILLING BILLING SP G BILL S0027 DISTRB FSNAME=BILLING 4.3T1 302 BILLING.BILLING.SP.007 1 LINE 80 31 PAGE UM ENGLE FEB. 20, 1980 11:23:54 0 PROGRAM TO DO MAIN PART OF BILLING AFTER SORT. 0 Referenced by comments of: 500/28, 500/30, 500/44 00500/008C BILLING BILLING UC G S0027 DISTRB FSNAME=BILLINGUPD 4.3T1 303 BILLING.BILLING.UC.008 1 LINE 72 1 PAGE UM ENGLE FEB. 20, 1980 11:24:01 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/009A BILLING BILLING OC G S0027 DISTRB FSNAME=BILL 4.3T1 304 BILLING.BILLING.OC.009 1 LINE 80 27 PAGE UM ENGLE FEB. 20, 1980 11:24:04 0 REGULAR BILLING (COMPILED WITH %NET='';). 00500/010A BILLING BILLING OC G S0027 DISTRB FSNAME=NETBILL 4.3T1 305 BILLING.BILLING.OC.010 1 LINE 80 16 PAGE UM ENGLE FEB. 20, 1980 11:24:19 0 NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/011 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. 1 SUN SEP 08/96 19:03:19 Page 198 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 500/29, 500/46 00500/012 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/013C BILLING BILLUTIL SG G S0027 DISTRB FSNAME=BILLUTIL 4.3T1 306 BILLING.BILLUTIL.SG.013 1 LINE 131 2 PAGE UM ENGLE FEB. 20, 1980 11:27:33 0 PROGRAM TO EXTRACT MONTHLY INFORMATION FROM THE FILE DIVISION (500/29) AND ENTER IT INTO THE UTILIZATION DATA BANK (500/31). 0 Referenced by comments of: 500/54 00500/014 BILLING BILLUTIL UC G S0027 DISTRB FSNAME=BILLUTILUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 0 Referenced by comments of: 500/31 00500/015C BILLING BILLUTIL OC G S0027 DISTRB FSNAME=BLUT 4.3T1 307 BILLING.BILLUTIL.OC.015 1 LINE 80 4 PAGE UM ENGLE FEB. 20, 1980 11:27:36 00500/016C BILLING BLPRVUTL SG G S0027 DISTRB FSNAME=BLPRVUTL 4.3T1 308 BILLING.BLPRVUTL.SG.016 1 LINE 72 1 PAGE UM ENGLE FEB. 20, 1980 11:28:47 0 PROGRAM TO PRODUCE INPUT FOR TAXIR (668) SPECIFYING THE HEADING, MONTH, AND YEAR FOR A REPORT FOR THE PREVIOUS MONTH. 00500/017 BILLING BLPRVUTL UC G S0027 DISTRB FSNAME=BLPRVUTLUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/018C BILLING BLPRVUTL OC G S0027 DISTRB FSNAME=BPRU 4.3T1 309 BILLING.BLPRVUTL.OC.018 1 LINE 80 1 PAGE UM ENGLE FEB. 20, 1980 11:28:51 00500/019C BILLING UTILSORT SG G S0027 DISTRB FSNAME=UTILSORT 4.3T1 310 BILLING.UTILSORT.SG.019 1 LINE 71 1 PAGE UM ENGLE FEB. 20, 1980 11:30:16 0 PROGRAM TO SORT TAXIR (668) OUTPUT FROM THE UTILIZATION DATA BANK (500/31). SEE CMPUTLSOURCE (500/27) FOR SOURCE COMMANDS UTILIZING THIS PROGRAM. 00500/020 BILLING UTILSORT UC G S0027 DISTRB FSNAME=UTILSORTUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/021C BILLING UTILSORT OC G S0027 DISTRB FSNAME=UTLS 4.3T1 311 BILLING.UTILSORT.OC.021 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 11:30:19 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00500/022C BILLING STATEMNT SG G S0027 DISTRB FSNAME=STATEMNT 4.3T1 312 BILLING.STATEMNT.SG.022 1 LINE 149 6 PAGE UM ENGLE FEB. 20, 1980 11:31:55 0 PROGRAM TO PRODUCE COMPARATIVE STATEMENTS SHOWING FIGURES FOR "CURRENT" MONTH AND YEAR-TO-DATE FOR BOTH THE "CURRENT" YEAR AND THE PREVIOUS YEAR. AN INDICATION OF THE VALUES FOR THE PAR= FIELD IS GIVEN AT THE BEGINNING OF THE PROGRAM. SEE CMPUTLSOURCE (500/27) FOR SOURCE COMMANDS UTILIZING THIS PROGRAM. FIRST LINE OF REPORT IS "THE UNIVERSITY OF MICHIGAN COMPUTING CENTER." 00500/023 BILLING STATEMNT UC G S0027 DISTRB FSNAME=STATEMNTUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/024C BILLING STATEMNT OC G S0027 DISTRB FSNAME=STMT 4.3T1 313 BILLING.STATEMNT.OC.024 1 LINE 80 10 PAGE UM ENGLE FEB. 20, 1980 11:32:02 00500/025A BILLING BILLWRITEUP WF G S0027 DISTRB FSNAME=BILLWRITEUP 4.3T1 314 BILLING.BILLWRITEUP.WF.025 1 LINE 159 9 PAGE UM ENGLE FEB. 20, 1980 11:34:41 0 WRITEUP FOR RUNNING BILLING. 00500/026A BILLING BILLSOURCE C S0027 DISTRB FSNAME=BILLSOURCE 4.3T1 315 BILLING.BILLSOURCE.C.026 1 LINE 535 2 PAGE UM ENGLE FEB. 20, 1980 11:35:33 0 COMMAND FILE FOR RUNNING BILLING. LINE NUMBERS IN THIS FILE ARE IMPORTANT TO THE RESTART FILE (500/32). 0 Referenced by comments of: 500/32 00500/027C BILLING CMPUTLSOURCE C S0027 DISTRB FSNAME=CMPUTLSOURCE 4.3T1 316 BILLING.CMPUTLSOURCE.C.027 1 LINE 348 3 PAGE UM ENGLE MAR. 25, 1980 15:03:24 0 COMMAND FILE FOR PRODUCING COMPARATIVE REPORTS UTILIZING THE INFORMATION IN THE UTILIZATION DATA BANK (500/31). THE THREE-CHARACTER ABBREVIATION FOR THE CURRENT MONTH AND THE CURRENT AND PREVIOUS FISCAL YEARS MUST BE SET APPROPRIATELY, E.G., A@A /F 'JAN'FEB' A@A /F '79-80'80-81' A@A /F '78-79'79-80' 0 Referenced by comments of: 500/19, 500/22 00500/028 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/7). 00500/029 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/11). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 500/13, 500/54 00500/030 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/7). 00500/031C BILLING UTILIZATION G S0027 DISTRB FSNAME=UTILIZATION 4.3T1 317 BILLING.UTILIZATION..031 1 LINE 420 1 PAGE UM ENGLE FEB. 20, 1980 11:48:38 0 SKELETON TAXIR (668) UTILIZATION DATA BANK (I.E., THE DATA BANK WITHOUT THE DATA). CALENDAR YEAR RANGE IS 1979 THROUGH 1985. FISCAL YEAR RANGE IS 79-80 THROUGH 85-86. THIS DATA BANK IS UPDATED USING BILLUTIL (500/14). 0 Referenced by comments of: 500/13, 500/19, 500/27 00500/032A BILLING RESTART C S0027 DISTRB FSNAME=RESTART 4.3T1 318 BILLING.RESTART.C.032 1 LINE 51 1 PAGE UM ENGLE FEB. 20, 1980 11:49:44 0 COMMAND FILE TO RESTART IN THE MIDDLE OF THE BILLING PROCESS AFTER SOME PARTS HAVE BEEN COMPLETED. HAS $CONTINUE WITH'S TO BILLSOURCE (500/26). LINE NUMBERS IN THIS FILE ARE IMPORTANT. 0 Referenced by comments of: 500/26 00500/033A BILLING BILLLIB OL G S0027 DISTRB FSNAME=BILLLIB 4.3T1 319 BILLING.BILLLIB.OL.033 1 LINE 276 9 PAGE UM ENGLE FEB. 22, 1980 17:01:36 0 LIBRARY FOR BILLING PROGRAMS. ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00500/034 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/035 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/036 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/037 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 00500/038 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/40 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00500/039 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/040 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/38). CALLED BY PRJLIST (104/44) WHICH IS CALLED BY PNLIST. COPIES ACCPROJFMT (104/2). 00500/041 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/042 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/043 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/044 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/7) TO POSITION PL/1 FILES FOR RESTART. 00500/045 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/046 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/11). COPIES GRDEF (104/70). 00500/047 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/048 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/049 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 00500/050 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00500/051 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/052 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/053 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 00500/054C BILLING DIVTOTXR SG G S0027 DISTRB FSNAME=DIVTOTXR 4.3T1 320 BILLING.DIVTOTXR.SG.054 1 LINE 99 3 PAGE UM ENGLE FEB. 20, 1980 11:51:13 0 PROGRAM TO PRODUCE TAXIR INPUT DATA FROM THE MONTHLY INFORMATION IN THE FILE DIVISION (500/29). THIS CAN BE RUN SEPARATELY WITH OUTPUT ON SPUNCH OR CALLED AS A SUBROUTINE BY BILLUTIL (500/13). 00500/055 BILLING DIVTOTXR UC G S0027 DISTRB FSNAME=DIVTOTXRUPD UM ENGLE 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00500/056C BILLING DIVTOTXR OC G S0027 DISTRB FSNAME=DTXR 4.3T1 321 BILLING.DIVTOTXR.OC.056 1 LINE 80 4 PAGE UM ENGLE FEB. 20, 1980 11:51:16 00501/001A MTS VOLUME 3 MASTER WT S1167 MTSV3 'MTS MANUALS' POSN=NEWM15.V3 4.3T1 322 MTS_VOLUME_3.MASTER.WT.001 1 SEQ 132 330 PAGE UM MANUAL APR. 05, 1980 15:23:40 0 TEXT/360 MASTER FOR VOLUME 3 "SYSTEM SUBROUTINE DESCRIPTIONS" OF THE UM MTS MANUALS (OCTOBER 1976, UPDATED JUNE 1977, FEBRUARY 1978, JULY 1978, OCTOBER 1979, AND APRIL 1980). EDITOR: RICHARD A. SALISBURY 00501/002A MTS VOLUME 3 PRINT PT S1167 MTSV3 'MTS MANUALS' POSN=PRINT15.V3 4.3T1 323 MTS_VOLUME_3.PRINT.PT.002 1 SEQ 132 687 PAGE UM MANUAL APR. 05, 1980 15:23:59 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 00501/006A MTS VOLUME 3 UPDATE 4 PT W073:TNLV3.OCT79 4.3T1 324 MTS_VOLUME_3.UPDATE_4.PT.006 1 LINE 152 129 PAGE UM MANUAL APR. 05, 1980 15:24:11 0 THIS IS COMPUTING CENTER MEMO 409 -- "UPDATE 4 TO MTS VOLUME 3," (OCTOBER 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00501/007C MTS VOLUME 3 UPDATE 5 PT W073:TNLV3.APR80 4.3T1 325 MTS_VOLUME_3.UPDATE_5.PT.007 1 LINE 103 26 PAGE UM MANUAL APR. 05, 1980 15:24:23 0 THIS IS "UPDATE 5 TO MTS VOLUME 3" (APRIL 1980). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 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/147, 104/148, 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/003A DEADFILES DESTROY SA G DSTR RSTR:DEADFILEDES(1000) 4.3T1 326 DEADFILES.DESTROY.SA.003 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 15:24:31 RSTR:DEADFILEDES 0 PROGRAM TO DESTROY A LIST OF FILES. CALLS THE FILE ROUTINES' DESTROY ENTRY POINT DIRECTLY TO CIRCUMVENT DENIAL OF DESTROY ACCESS. ASSEMBLE USING *SYSMAC. ******************************************************************************** D4.3 CHANGES: CHANGED TO READ FILE LIST @ÂTRIM. ******************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00502/004A DEADFILES DESTROY OC G RSTR:DEADFILEDES(1,998) 4.3T1 327 DEADFILES.DESTROY.OC.004 1 LINE 80 1 PAGE UM HELFFRICH APR. 05, 1980 15:24:34 00502/005A DEADFILES CATDES SA G CDES RSTR:DEADUCATDES(1000) 4.3T1 328 DEADFILES.CATDES.SA.005 1 LINE 80 4 PAGE UM HELFFRICH APR. 05, 1980 15:24:36 RSTR:DEADUCATDES 0 PROGRAM TO DESTROY USER CATALOGS. RUNNING THIS PROGRAM IS THE ONLY WAY THAT CATALOG SPACE IS EVER RECLAIMED AND IF THIS PROGRAM IS NOT RUN, THE CATALOG WILL ONLY GET BIGGER. THIS PROGRAM ALSO DELETES FILE ENTRIES FOR EXPIRED USER IDS FROM THE FILESAVE MASTER FILE DIRECTORY SO THAT THE FILES MAY NOT BE RESTORED USING *RESTORE. ASSEMBLE USING *SYSMAC. ***************************************************************************** D4.3 CHANGES: 1) READS USER ID INPUT LIST @ÂTRIM. 2) SCRATCH AREA INCREASED FOR VAMX SUPPORT. 3) CHANGED TO CHECK FOR PRESENCE OF FILES IN THE USER CATALOG BEFORE DESTROYING THE CATALOG. ----------------------------------------------------------------------------- THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT: RD4.2A/RD16: 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/006A DEADFILES CATDES OC G RSTR:DEADUCATDES(1,998) 4.3T1 329 DEADFILES.CATDES.OC.006 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 15:24:38 0 THIS FILE SHOULD HAVE THE PROGRAM KEY RSTR:DEADUCATDES 00502/007A DEADFILES SAVEFILES SA G SVFL RSTR:DEADSAVE(1000) 4.3T1 330 DEADFILES.SAVEFILES.SA.007 1 LINE 80 7 PAGE UM HELFFRICH APR. 05, 1980 15:24:41 0 PROGRAM TO SAVE A SPECIFIC SET OF FILES - USUALLY THE LIST OF DEAD FILES, BUT IT READS AN ARBITRARY LIST - 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). ****************************************************************************** D4.3 CHANGES: UPDATED FOR VAMX SUPPORT. ****************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 502/9 00502/008A DEADFILES SAVEFILES OC G RSTR:DEADSAVE(1,998) 4.3T1 331 DEADFILES.SAVEFILES.OC.008 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 15:24:43 RSTR:DEADSAVE 00502/009A DEADFILES FILEDSCB SUBR SA G DSCB RSTR:FILEDSCB(1000) 4.3T1 332 DEADFILES.FILEDSCB_SUBR.SA.009 1 LINE 80 5 PAGE UM HELFFRICH APR. 05, 1980 15:24:46 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), COPY:MISC.MACROS (728) AND *SYSMAC. ****************************************************************************** D4.3 CHANGES: UPDATED FOR VAMX SUPPORT. ****************************************************************************** 0 Referenced by comments of: 67/17, 67/37, 502/7 00502/010A DEADFILES FILEDSCB SUBR OC G RSTR:FILEDSCB(1,998) 4.3T1 333 DEADFILES.FILEDSCB_SUBR.OC.010 1 LINE 80 2 PAGE UM HELFFRICH APR. 05, 1980 15:24:48 RSTR:FILEDSCB 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/147, 104/148 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/001A MTS VOLUME 1 MASTER WT S0488 MTSV1 'MTS MANUALS' POSN=NEWM8.V1 4.3T1 334 MTS_VOLUME_1.MASTER.WT.001 1 SEQ 132 353 PAGE UM MANUAL APR. 05, 1980 15:26:54 0 TEXT/360 MASTER FOR VOLUME 1, "MICHIGAN TERMINAL SYSTEM," OF THE UM MTS MANUALS (DECEMBER 1979). EDITOR: RICHARD A. SALISBURY 0 Referenced by comments of: 648/18 00504/002A MTS VOLUME 1 PRINT PT S0488 MTSV1 'MTS MANUALS' POSN=PRINT8.V1 4.3T1 335 MTS_VOLUME_1.PRINT.PT.002 1 SEQ 132 608 PAGE UM MANUAL APR. 05, 1980 15:27:12 0 TEXT/360 PRINT FILE. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00504/003A MTS VOLUME 1 ERROR DUMP P S0488 MTSV1 'MTS MANUALS' POSN=ERRORDUMP.8 4.3T1 336 MTS_VOLUME_1.ERROR_DUMP.P.003 1 SEQ 133 3 PAGE UM MANUAL APR. 05, 1980 15:27:21 0 PRINTED OUTPUT FOR EXAMPLE OF USING ERROR DUMPS AND LOAD MAPS. 00504/004A MTS VOLUME 1 DEBUG DUMP P S0488 MTSV1 'MTS MANUALS' POSN=DEBUGDUMP.8 4.3T1 337 MTS_VOLUME_1.DEBUG_DUMP.P.004 1 SEQ 105 3 PAGE UM MANUAL APR. 05, 1980 15:27:23 0 PRINTED OUTPUT FOR EXAMPLE IN DEBUG MODE SECTION. 00504/005A MTS VOLUME 1 INDEX SOURCE D S0488 MTSV1 'MTS MANUALS' POSN=V1INDEXSOU.8 4.3T1 338 MTS_VOLUME_1.INDEX_SOURCE.D.005 1 SEQ 121 8 PAGE UM MANUAL APR. 05, 1980 15:27:26 00504/006A MTS VOLUME 1 VISUAL MODE WT S0488 MTSV1 'MTS MANUALS' POSN=VISUALMODE.8 4.3T1 339 MTS_VOLUME_1.VISUAL_MODE.WT.006 1 SEQ 88 4 PAGE UM MANUAL APR. 05, 1980 15:28:57 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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). 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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). 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/001A PL1 MAINTENANCE CRELCS SA G CLCS S0410 MTSPL1 'PL1LIB' POSN=CRELCS 37 4.3T1 340 PL1_MAINTENANCE.CRELCS.SA.001 1 SEQ 80 5 PAGE UM TIFFANY APR. 05, 1980 15:30:20 0 CREATES LOW-CORE SYMBOL TABLES, ESPECIALLY PL1SYM, INTSUBS, AND INESD. REQUESTS ON GUSER THE NAME OF LCS TABLE, SUCH AS INESD. THEN REQUESTS, ON SCARDS, THE COMPLETE LIST OF LOW-CORE SYMBOLS. 0 Referenced by comments of: 163/14, 506/5, 506/6 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 UBC MACROS (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 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/006 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/007A PL1 MAINTENANCE LLXU SA G LLXU W062:NEWLOAD.S 4.3T1 341 PL1_MAINTENANCE.LLXU.SA.007 1 LINE 80 20 PAGE UM TIFFANY APR. 05, 1980 15:30:22 0 SIMULATE OS LINK/LOAD/XCTL WITH GOODIES. THIS ROUTINE DOESN'T CALL UMLOAD, LLXU, AND FRIENDS; IT HAS A SIMPLE LOADER TO SPEED UP THE COMPILER. COPIES *GDINFODSECT (594). 0 Referenced by comments of: 163/14 00506/008A PL1 MAINTENANCE HENPECKER SA G W062:PECKER.S 4.3T1 342 PL1_MAINTENANCE.HENPECKER.SA.008 1 LINE 121 9 PAGE UM TIFFANY APR. 05, 1980 15:30:24 0 PROGRAM TO PICK UP THE SOURCE MODULES FROM IEHUPDTE INPUT TAPE SUCH AS THE PL/1 COMPILER. COPIES *GDINFODSECT (594) AND *CNFGINFODSECT (654). 0 Referenced by comments of: 163/13 00506/009 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 1 SUN SEP 08/96 19:03:19 Page 210 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 PACKAGE. 00506/010A PL1 MAINTENANCE INSTALLATION WF W062:PL1INSTALL.W 4.3T1 343 PL1_MAINTENANCE.INSTALLAT.WF.010 1 LINE 134 5 PAGE UM TIFFANY APR. 05, 1980 15:30:28 0 WRITEUP INDICATING HOW TO INSTALL AND MAINTAIN THE NEW VERSION 5.5 OF THE PL/I-F COMPILER. 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 S0564 D4T2 VLO FSNAME=TIMELIMIT.TLIMIT_PGM.SA.002(1) 91 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/002A *BASIC STRT2 C W070:BASIC.STRT2 4.3T1 344 BASIC.STRT2.C.002 1 LINE 128 1 PAGE UM FRONCZAK APR. 05, 1980 15:30:30 0 MTS COMMANDS TO ASSEMBLE (VIA *ASMH) AND LINK-EDIT THE BASIC SOURCE, 508/19 THROUGH 508/27, WHICH IT ASSUMES ARE ON A REGULAR (NON-*FS) BLOCKED, LABELED TAPE. ***************************************************************************** CONTAINS UQV UPDATES (10/79) PLUS POST D4.2 UM CHANGES, INCLUDING CHANGE FORM 4205. ***************************************************************************** 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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----). 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/019A *BASIC CLI SA G S0842 BSCSD POSN=*BASIC.CLI 1 4.3T1 345 BASIC.CLI.SA.019 1 SEQ 80 124 PAGE UM FRONCZAK APR. 05, 1980 15:31:27 00508/020A *BASIC LEX SA G S0842 BSCSD POSN=*BASIC.LEX 2 4.3T1 346 BASIC.LEX.SA.020 1 SEQ 80 108 PAGE UM FRONCZAK APR. 05, 1980 15:31:34 00508/021A *BASIC CMP SA G S0842 BSCSD POSN=*BASIC.CMP 3 4.3T1 347 BASIC.CMP.SA.021 1 SEQ 80 107 PAGE UM FRONCZAK APR. 05, 1980 15:31:40 00508/022A *BASIC CPS SA G S0842 BSCSD POSN=*BASIC.CPS 4 4.3T1 348 BASIC.CPS.SA.022 1 SEQ 80 80 PAGE UM FRONCZAK APR. 05, 1980 15:31:45 00508/023A *BASIC NUM SA G S0842 BSCSD POSN=*BASIC.NUM 5 4.3T1 349 BASIC.NUM.SA.023 1 SEQ 80 62 PAGE UM FRONCZAK APR. 05, 1980 15:31:50 00508/024A *BASIC VFL SA G S0842 BSCSD POSN=*BASIC.VFL 6 4.3T1 350 BASIC.VFL.SA.024 1 SEQ 80 41 PAGE UM FRONCZAK APR. 05, 1980 15:31:53 00508/025A *BASIC BIO SA G S0842 BSCSD POSN=*BASIC.BIO 7 4.3T1 351 BASIC.BIO.SA.025 1 SEQ 80 51 PAGE UM FRONCZAK APR. 05, 1980 15:31:57 00508/026A *BASIC INF SA G S0842 BSCSD POSN=*BASIC.INF 8 4.3T1 352 BASIC.INF.SA.026 1 SEQ 80 48 PAGE UM FRONCZAK APR. 05, 1980 15:32:00 00508/027A *BASIC BSI SA G S0842 BSCSD POSN=*BASIC.BSI 9 4.3T1 353 BASIC.BSI.SA.027 1 SEQ 80 5 PAGE UM FRONCZAK APR. 05, 1980 15:32:02 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 00508/030A *BASIC OBJECT OC G SEG2:BASIC 4.3T1 354 BASIC.OBJECT.OC.030 1 LINE 14752 33 PAGE UM FRONCZAK APR. 05, 1980 15:32:05 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/032A *BASIC BASICHELPC M ETC:BASICHELPC 4.3T1 355 BASIC.BASICHELPC.M.032 1 LINE 68 1 PAGE UM FRONCZAK APR. 05, 1980 15:32:08 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. 00508/034C *BASIC SIGNONM FILE D ETC:BASICSIGNONM 4.3T1 356 BASIC.SIGNONM_FILE.D.034 1 LINE 55 1 PAGE UM FRONCZAK APR. 05, 1980 15:32:10 ETC:BASICSIGNONM 0 FILE CONTAINING BASIC "SIGNON" MESSAGE. 00509/001A PERMIT COMMAND SA G MTS:PERMIT.S 4.3T1 357 PERMIT_COMMAND..SA.001 1 LINE 130 46 PAGE UM DWB APR. 05, 1980 15:32:12 MTS:PERMIT.S 0 THIS IS THE SOURCE FOR THE MTS $PERMIT COMMAND AND THE PERMIT, SETKEY, SETFPRIV, AND SETFSAVE SUBROUTINES. THE PERMIT COMMAND IS IMPLEMENTED AS A CLS ALTHOUGH IT REALLY ISN'T SINCE IT HAS NO SUB-COMMANDS. THIS WAS DONE SOLELY FOR EASE OF ISOLATION, CHECKOUT, AND MODIFICATION. HAS $PERMIT CLS ENTRY POINT PERCMD AND SUBROUTINE ENTRY POINTS PERMIT, SETKEY, SETFPRIV, AND SETFSAVE. CALLS MANY OF THE FILE ROUTINES DIRECTLY. COPIES COPY:GLOBALS (1026/3), *CNFGINFODSECT (654), AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3O AND COPY:FILE.MACROS (482/33). NOTE: SOURCE STARTS AT LINE 1, COMMANDS TO ASSEMBLE START AT LINE 0. ****************************************************************************** THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2C): 1 SUN SEP 08/96 19:03:19 Page 214 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 1) ACCEPTS PARTIALLY SPECIFIED CCID, PROJECTS, AND PKEYS FOLLOWED BY A QUESTION MARK. 2) PRINTS A WARNING IF PARTIALLY SPECIFIED CCIDS, PROJECTS, AND PKEYS ARE NOT FOLLOWED BY A QUESTION MARK. THE WARNING INCLUDES A DATE WHICH IS INSTALLATION-DEPENDENT. 3) PRINTS WARNINGS WHEN FILES ARE PERMITTED UNLIM, FULL, OR PERMIT TO OTHERS. 4) MAKES DEF OTHERS ILLEGAL. 5) DOES BETTER CHECKING FOR ILLEGAL CHARACTERS IN CCIDS, PROJECTS, AND PKEYS (BUT WILL REQUIRE CHANGES TO ALLOW BLANKS IN PROJECTS IF THIS IS LEGAL). ------------------------------------------------------------------------------ ------------------------------------------------------------------------------ D4.3 CHANGES: 1) FINISHED CHANGES TO $PERMIT AND THE PERMIT SUBROUTINE THAT ALLOW PARTIALLY SPECIFIED CCIDS, PROJECTS, AND PKEYS TO END WITH A TRAILING QUESTION MARK. THESE CHANGES WERE STARTED IN THE D4.2C VERSION. THEY REQUIRE NEW VERSIONS OF FILESTATUS (529), GFINFO, AND FILEMOVE (1020/1). 2) IMPROVED CHECKING OF PKEYS FOR ILLEGAL CHARACTERS. 3) FIXED A BUG HAVING TO DO WITH THE ADDRESSABILITY OF A KEYWORD TABLE. ****************************************************************************** 00509/002A PERMIT COMMAND OC G *CLSPERMIT 4.3T1 358 PERMIT_COMMAND..OC.002 1 LINE 80 5 PAGE UM DWB APR. 05, 1980 15:32:17 *CLSPERMIT 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE, USING THE IPL OPTION. THE LOADER COM CARD DEFINES THE SYMBOLS PERCMD AND SETFPRIV IN LCSYMBOL. THE OTHER SUBROUTINES ARE NAMED IN THE GATE (4000) (LCSYMBOL) AND SO CAN NOT BE INCLUDED IN THE COM CARD. 00509/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. 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 1 SUN SEP 08/96 19:03:19 Page 215 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/007A PERMIT COMMAND SUBR TEST PGM SF MTS:TESTPERSUB(1,999) 4.3T1 359 PERMIT_COMMAND.SUBR_TEST.SF.007 1 LINE 72 3 PAGE UM DWB APR. 05, 1980 15:32:19 MTS:TESTPERSUB 0 PROGRAM TO TEST THE PERMIT SUBROUTINE. 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. 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/001A MTS VOLUME 11 MASTER WT S0549 MTSV11 'MTS MANUALS' POSN=NEWM4.V11 4.3T1 360 MTS_VOLUME_11.MASTER.WT.001 1 SEQ 132 85 PAGE UM MANUAL APR. 05, 1980 15:34:11 0 TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUALS 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 (AUGUST 1978, UPDATED APRIL 1980). EDITOR: GAIL H. LIFT 00512/002A MTS VOLUME 11 PRINT PT S0549 MTSV11 'MTS MANUALS' POSN=PRINT4.V11 4.3T1 361 MTS_VOLUME_11.PRINT.PT.002 1 SEQ 132 174 PAGE UM MANUAL APR. 05, 1980 15:34:21 0 TEXT/360 PRINT FILE. 00512/003A MTS VOLUME 11 FIGURES SG G W073:V11FIGS.MAIN 4.3T1 362 MTS_VOLUME_11.FIGURES.SG.003 1 LINE 55 1 PAGE UM MANUAL APR. 05, 1980 15:34:27 0 GOM SOURCE FOR MAIN PROGRAM TO CALL SUBROUTINES WHICH GENERATE FIGURES FOR VOLUME 11. 00512/004A MTS VOLUME 11 FIGURES SF G W073:V11FIGS.SUBR 4.3T1 363 MTS_VOLUME_11.FIGURES.SF.004 1 LINE 1534 47 PAGE UM MANUAL APR. 05, 1980 15:34:28 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. 00512/006C MTS VOLUME 11 UPDATE 1 PT W073:TNLV11.APR80 4.3T1 364 MTS_VOLUME_11.UPDATE_1.PT.006 1 LINE 103 19 PAGE UM MANUAL APR. 05, 1980 15:34:35 0 THIS IS "UPDATE 1 TO MTS VOLUME 11" (APRIL 1980). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00513/001 DYSSUB D4 MASTER SA G S0917 MTSSD4 'MTS MASTER D4.0' POSN=DYS D4T2 142 DYSSUB..SA.001 1 LINE 72 5 PAGE UM MTS HELFFRICH JULY 28, 1977 01:54:59 0 SUBROUTINE TO PROCESS SOME $DISPLAY PARAMETERS. COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), *GDINFODSECT (594), AND *SENSEDSECT (3025). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 00513/002A DYSSUB UPDATE UC G MTS:DYSUPD 4.3T1 365 DYSSUB.UPDATE.UC.002 1 LINE 72 4 PAGE UM MTS HELFFRICH APR. 05, 1980 15:34:37 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. 00513/003A DYSSUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) 4.2CT1 117 DYSSUB..OC.003 1 LINE 80 3 PAGE UM MTS HELFFRICH NOV. 27, 1979 23:12:48 0 NEW VERSIONS CAN BE LOADED INTO SHARED VM USING PISTLE (559), EVEN THOUGH DYSSUB IS INITIALLY LOADED AS PART OF THE RESIDENT SYSTEM. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00513/004A DYSSUB L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DYS.LIST 14 4.3T1 366 DYSSUB..L.004 1 SEQ 133 55 PAGE UM MTS HELFFRICH APR. 05, 1980 15:34:48 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/001A *11ASR INSTAL C W267:11ASR.INSTAL 4.3T1 367 11ASR.INSTAL.C.001 1 LINE 125 1 PAGE UM EADIE APR. 05, 1980 15:34:49 0 MTS COMMANDS TO ASSEMBLE AND LINK EDIT ALL THE CSECTS FOR THE PDP-11 ASSEMBLER. ASSEMBLE USING *SYSMAC AND COPY:MISC.MACROS (728). 0 Referenced by comments of: 516/1, 660/1, 660/15, 755/1, 755/3 00515/002A *11ASR MACLIB SM G W267:11ASR.MACLIB 4.3T1 368 11ASR.MACLIB.SM.002 1 LINE 64 4 PAGE UM EADIE APR. 05, 1980 15:34:51 0 MACRO LIBRARY USED TO ASSEMBLE COMPS. 515/3 THROUGH 515/7. 00515/003A *11ASR KERNAL SA G W267:11ASR.KERNAL 4.3T1 369 11ASR.KERNAL.SA.003 1 LINE 86 105 PAGE UM EADIE APR. 05, 1980 15:34:54 0 ********************************************************************************* D4.3 CHANGES: SOME VERY MINOR BUGS HAVE BEEN REMOVED. ********************************************************************************* 0 Referenced by comments of: 515/11 00515/004A *11ASR DCEVAL SA G W267:11ASR.DCEVAL 4.3T1 370 11ASR.DCEVAL.SA.004 1 LINE 80 18 PAGE UM EADIE APR. 05, 1980 15:35:07 00515/005A *11ASR REPSCN SA O W267:11ASR.REPSCN 4.3T1 371 11ASR.REPSCN.SA.005 1 LINE 80 5 PAGE UM EADIE APR. 05, 1980 15:35:10 00515/006A *11ASR MACPRO SA O W267:11ASR.MACPRO 4.3T1 372 11ASR.MACPRO.SA.006 1 LINE 70 38 PAGE UM EADIE APR. 05, 1980 15:35:12 0 ********************************************************************************* D4.3 CHANGES: THERE IS A MODIFICATION TO THE 11ASR MACROPROCESSOR WHICH ALLOWS MACRO PARAMETERS WITH EMBEDDED PRIMES TO BE PASSED WITHOUT THE PRIMES BEING STRIPPED. IF THE PARAMETER IS DELIMITED BY PRIMES, THEN IT IS TREATED AS 1 SUN SEP 08/96 19:03:19 Page 218 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 BEFORE (SINGLE PRIMES - STRIPPED, DOUBLE PRIMES - SINGLED). ********************************************************************************* 00515/007A *11ASR EXTF11 SA G W267:11ASR.EXTF11 4.3T1 373 11ASR.EXTF11.SA.007 1 LINE 72 7 PAGE UM EADIE APR. 05, 1980 15:35:23 00515/008A *11ASR OPCODE SA G W267:11ASR.OPCODE 4.3T1 374 11ASR.OPCODE.SA.008 1 LINE 72 15 PAGE UM EADIE APR. 05, 1980 15:35:26 00515/009A *11ASR MICROP SA G W267:11ASR.MICROP 4.3T1 375 11ASR.MICROP.SA.009 1 LINE 72 6 PAGE UM EADIE APR. 05, 1980 15:35:28 00515/010A *11ASR OBJECT OE G *11ASR 4.3T1 376 11ASR.OBJECT.OE.010 1 SEQ 13480 39 PAGE UM EADIE APR. 05, 1980 15:35:30 *11ASR 0 ************************************************************************************* D4.3 VERSION: NOTE: THE OBJECT IN THIS FILE IS THE UM PUBLIC FILE. TO GET THE NEW MACRO PROCESSOR, YOU SHOULD REASSEMBLE THIS PROGRAM. ************************************************************************************* 00515/011A *11ASR 11ASRERROR M G ETC:11ASRERROR 4.3T1 377 11ASR.11ASRERROR.M.011 1 LINE 70 4 PAGE UM EADIE APR. 05, 1980 15:35:33 ETC.:11ASRERROR 0 ERROR COMMENT FILE REFERENCED BY UATS/MAL (515/3) ON LINE 7455. 00515/012 *11ASR MEMO 286 WT W267:11ASR.MANUAL D4T2 162 11ASR.MEMO_286.WT.017 1 LINE 80 49 PAGE UM EADIE 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/001A *LINK11 SA G W267:LINK11.SA 4.3T1 378 LINK11..SA.001 1 LINE 85 46 PAGE UM EADIE APR. 05, 1980 15:35:35 0 LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515). 0 Referenced by comments of: 660/1 00516/002A *LINK11 OE G *LINK11 4.3T1 379 LINK11..OE.002 1 SEQ 13152 6 PAGE UM EADIE APR. 05, 1980 15:35:42 *LINK11 00516/003 *LINK11 USER'S GUIDE WT # (SEE COMP 515/12) UM EADIE 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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: 67/21, 437/1, 529/1 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 00524/001A *LIBRARY OL *LIBRARY 4.3T1 380 LIBRARY..OL.001 1 LINE 13448 27 PAGE UM SALISBURY APR. 05, 1980 15:35:44 *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, 677/1, 744/1, 744/6, 773/1 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 4.3T1 381 LIBRARY..WF.004 1 LINE 68 1 PAGE UM SALISBURY APR. 05, 1980 15:35:47 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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, 528/51, 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/041A ELEM FUNC LIB CDVD# SA G W060:ASM.CDVD 4.3T1 382 ELEM_FUNC_LIB.CDVD#.SA.041 1 LINE 67 1 PAGE UM HARDING APR. 05, 1980 15:35:49 0 ***************************************************************************** D4.3 CHANGES: OLD VERSION REPLACED BY COMPLETELY NEW VERSION. ***************************************************************************** 00525/042 ELEM FUNC LIB CDMPY# SA G S0562 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/043A ELEM FUNC LIB CDDVD# SA G W060:ASM.CDDVD 4.3T1 383 ELEM_FUNC_LIB.CDDVD#.SA.043 1 LINE 67 1 PAGE UM HARDING APR. 05, 1980 15:35:51 0 ***************************************************************************** D4.3 CHANGES: OLD VERSION REPLACED BY COMPLETELY NEW VERSION. ***************************************************************************** 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/050A ELEM FUNC LIB OBJECT OC G SEG2:EFL 4.3T1 384 ELEM_FUNC_LIB.OBJECT.OC.050 1 LINE 80 17 PAGE UM HARDING APR. 05, 1980 15:35:53 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. 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/003A SIOC SUBR SIOCP SA G W060:ASM.SIOCP 4.3T1 385 SIOC_SUBR.SIOCP.SA.003 1 LINE 80 6 PAGE UM HARDING APR. 05, 1980 15:35:56 0 SUBROUTINE TO TRANSLATE FORTRAN FORMAT-LIKE CHARACTER STRINGS INTO THE DATA BLOCK REQUIRED FOR CALLING SIOC. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 ***************************************************************************** D4.3 CHANGES: ERROR CORRECTED. ***************************************************************************** 00526/004A 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 COMP 525) UM HARDING 0 OBJECT IS PART OF FILE "SEG2:EFL". 00528/001A ALGOLW ALGOLW OC O *ALGOLW 4.3T1 386 ALGOLW.ALGOLW.OC.001 1 LINE 24 1 PAGE UNE HUNTER BODWIN APR. 05, 1980 15:35:58 *ALGOLW 0 ALW ********************************************************* ALW ALW * * ALW ALW * U N E A L G O L W - R E L E A S E 6 . 2 * ALW ALW * (Version EB040) * ALW ALW * * ALW ALW ********************************************************* ALW The following are not yet implemented or not yet completed: 1) The "Algol W Reference Manual" document (comp. 528/34) 2) The LINK standard function (procedure callback mechanism) 3) The document describing the KXSCAN subroutine (comp. 528/26) 4) The debug system (GOODGUYS), but PMDUMP is in, see comp. 582/9 ALW ========================================================= ALW Contact people: Alan Hunter (all modules except AWA, 528/4, and AWB, 528/5 through 528/7) NUMAC Computing Service Computing Laboratory 1 SUN SEP 08/96 19:03:19 Page 226 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 The University of Newcastle upon Tyne NEWCASTLE NE1 7RU England Jim Bodwin (AWA, 528/4, and AWB, 528/5 through 528/7) Computing Center The University of Michigan 1075 Beal Avenue Ann Arbor MICHIGAN 48109 U.S.A. ALW ========================================================= ALW Installation of the Algol W system from this distribution is described in subcomponent 528/21. A system design overview is given in paper 2L of the MTS Workshop IV (Newcastle) Proceedings and the user manual (based on UM material) is subcomponent 538/33. The writeups included with this distribution should be $COPied to a TN printer @MCC. ALW ========================================================= ALW All subcomponents should be restored to filenames formed from: . ALW ========================================================= ALW This subcomponent: This is the public file *ALGOLW. It is now the only public file in the Algol W system, but contains only the loader records required to link into the post IPL loaded system. The compiler/monitor entry point name is AWDRIVER, in the post IPL Algol W system - subcomponent 528/2. To install without re-assembly only 528/1 and 528/2 are required. 0 Referenced by comments of: 483/4 00528/002A ALGOLW ALGOLW OE O NEW:ALGOLW 4.3T1 387 ALGOLW.ALGOLW.OE.002 1 LINE 32767 57 PAGE UNE HUNTER BODWIN APR. 05, 1980 15:36:01 SEG2:ALGOLW 0 Contains the re-entrant Algol W system, which may run in either post-IPL loaded shared storage or in user segments. It is built from the individual object decks by the set of MTS commands in subcomponent 528/12. To use in user segments this subcomponent should be restored and $RUN. A source file, subcomponent 528/37, may be used to transfer the contents of this file to the file SEG2:ALGOLW, which is normally the 1 SUN SEP 08/96 19:03:19 Page 227 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 production Algol W system. The COM card defining LCSYMBOL entries is: COM AWDRIVER AWSYSTEM KXSCAN This subcomponent contains the assembled object decks from the following source decks: DRIVER.SA (528/14) -- Compiler system control routine SERVICES.SA (528/49) -- Compiler service routines LOADER.SA (528/28) -- Loader for CLG / Monitor SCAN.S3 (528/47) -- Compiler phase A : scan PARSE.S3 (528/40) -- Compiler phase A : parse AWB.S3 (528/07) -- Compiler phase B : code generate RENTALIB.SA (528/45) -- Run time initialisation and interrupt exits IOPACK.SA (528/24) -- I/O system entries SYSPACK.SA (528/53) -- I/O system unit control FMTPACK.SA (528/16) -- I/O system format routines BADGUYS.SA (528/09) -- Run time error processor GOODGUYS.SA (528/20) -- Run time debug processor FUNRTNS.SA (528/18) -- Function entries SHORTFNS.SA (528/51) -- Short real and complex analytic functions LONGFNS.SA (528/30) -- Long real and complex analytic functions RECORDS.S3 (528/43) -- Record allocation WOLFPACK.SA (528/56) -- Keyword / expression scanner MTSSIM.SA (528/36) -- MTS system interface module DEFAULT.SA (791/01) -- MTS time and page limit defaults The file is terminated by the following loader cards: LCS LCSYMBOL LDT 0 Referenced by comments of: 528/37 00528/003A ALGOLW ASM C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.ASM.C.003(1) 3 4.3T1 388 ALGOLW.ASM.C.003 1 LINE 114 1 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:00:06 0 MTS skeleton command deck to assemble a mythical Algol W component "XYZ". Copy it to a scratch file, say "-ASM", and edit/source: $EDIT -ASM :CHANGE@ALL /FILE ;XYZ;; $SOURCE -ASM to assemble the subcomponent called . 00528/004A ALGOLW AWA C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.AWA.C.004(1) 4 4.3T1 389 ALGOLW.AWA.C.004 1 LINE 84 1 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:00:11 0 MTS commands to compile the compiler, Phase A. The scanner is in 528/52, and its object is in 528/51. The parser is in 528/40, and its object is in 528/39. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00528/005A ALGOLW AWB C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.AWB.C.005(1) 5 4.3T1 390 ALGOLW.AWB.C.005 1 LINE 70 1 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:00:17 0 MTS commands to compiler the compiler, Phase B. The source is in 528/7, and the object is in 528/6. 00528/006A ALGOLW AWB OC O ALGW:AWB.O3 4.3T1 391 ALGOLW.AWB.OC.006 1 LINE 80 52 PAGE UNE HUNTER BODWIN APR. 05, 1980 15:36:59 0 Compiler scan and parse phase object produced by 528/5 from 528/7. 00528/007A ALGOLW AWB S3 O ALGW:AWB.S3 4.3T1 392 ALGOLW.AWB.S3.007 1 LINE 72 79 PAGE UNE HUNTER BODWIN APR. 05, 1980 15:37:04 0 Source (PL360) for the Algol W compiler, phase B. 0 Referenced by comments of: 528/2 00528/008A ALGOLW BADGUYS OC O ALGW:BADGUYS.OA 4.3T1 393 ALGOLW.BADGUYS.OC.008 1 LINE 80 21 PAGE UNE HUNTER BODWIN APR. 05, 1980 15:37:13 0 Object deck assembled from subcomponent 528/9. 00528/009A ALGOLW BADGUYS SA O ALGW:BADGUYS.SA 4.3T1 394 ALGOLW.BADGUYS.SA.009 1 LINE 72 48 PAGE UNE HUNTER BODWIN APR. 05, 1980 15:37:15 0 Assembler source for the Algol W run time error and exception processor. SD: AWXERROR LD: ** None ** 0 Referenced by comments of: 528/2 00528/010A ALGOLW BUILD C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.BUILD.C.010(1) 10 4.3T1 395 ALGOLW.BUILD.C.010 1 LINE 68 10 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:08:09 0 Contains an MTS command deck to build the driver file for this distribution, from scratch, in a file called "_DRIVER". It runs *DEDIT - comments are stored in the driver file negative line range. 00528/011A ALGOLW COMMON S3 O ALGW:COMMON.S3 4.3T1 396 ALGOLW.COMMON.S3.011 1 LINE 72 4 PAGE UNE HUNTER BODWIN APR. 05, 1980 15:37:23 0 Compiler scan and parse phase : source for data segments and procedures common to both 528/47 and 528/40. 0 Referenced by comments of: 528/40, 528/47 00528/012A ALGOLW DECKGEN C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.DECKGEN.C.012(1) 12 4.3T1 397 ALGOLW.DECKGEN.C.012 1 LINE 113 3 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:09:31 0 A command deck to assemble/compile all of the object decks for the 1 SUN SEP 08/96 19:03:19 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 ALW system. 00528/013A ALGOLW DRIVER OC O ALGW:DRIVER.OA 4.3T1 398 ALGOLW.DRIVER.OC.013 1 LINE 80 11 PAGE UNE HUNTER BODWIN APR. 05, 1980 15:37:27 0 Object deck assembled from subcomponent 528/14. 00528/014A ALGOLW DRIVER SA O ALGW:DRIVER.SA 4.3T1 399 ALGOLW.DRIVER.SA.014 1 LINE 72 34 PAGE UNE HUNTER BODWIN APR. 05, 1980 17:59:42 0 Assembler source for the Algol W compiler system driver routine. All scheduling of source programs through the compiler, and in CLG/Monitor mode, loading and execution of compiled programs, is performed by this control section. This includes processing of compiler parameters and those given on control cards. Copies COPY:GLOBALS (1026/3). SD: AWDRIVER Compiler system (*ALW) entry point LD: ** None ** 0 Referenced by comments of: 528/2 00528/015A ALGOLW FMTPACK OC O ALGW:FMTPACK.OA 4.3T1 400 ALGOLW.FMTPACK.OC.015 1 LINE 80 13 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:03:42 0 Object deck assembled from subcomponent 528/16. 00528/016A ALGOLW FMTPACK SA O ALGW:FMTPACK.SA 4.3T1 401 ALGOLW.FMTPACK.SA.016 1 LINE 72 49 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:03:43 0 Assembler source for the Algol W I/O format conversion routines. Processes input and output data conversion. These are stack linked "Q-routines". SD: AWFMTPAK Q-routine transfer vector LD: ** None ** 0 Referenced by comments of: 528/2 00528/017A ALGOLW FUNRTNS OC O ALGW:FUNRTNS.OA 4.3T1 402 ALGOLW.FUNRTNS.OC.017 1 LINE 80 5 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:03:47 0 Object deck assembled from subcomponent 528/18. 00528/018A ALGOLW FUNRTNS SA O ALGW:FUNRTNS.SA 4.3T1 403 ALGOLW.FUNRTNS.SA.018 1 LINE 72 14 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:03:49 0 Assembler source for the Algol W standard function entries control section. Provides entries to implicit functions (powers, complex arithmetic, etc.) and the link through to standard functions of analysis provided by 528/51 and 528/30. SD: AWFUNLIB 1 SUN SEP 08/96 19:03:19 Page 230 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LD: AWCHKASR Assertion check AWTIMEFN Clock function - TIME AWTRACER Debug trace - TRACE AWFMCALL Formal call AWFPARCV Formal parameter conversion AWREFCHK Reference check AWEXPNFN Exponent function - EXPONENT AWSANALF Real analytic functions - 528/51 AWLANALF Long real analytic functions - 528/30 AWSCANLF Complex analytic functions - 528/51 AWLCANLF Long complex analytic functions - 528/30 AWPOWERS Powers evaluation AWRICVFN Real to integer conversion functions - ENTIER, ROUND, TRUNCATE AWCARITH Complex arithmetic 0 Referenced by comments of: 528/2 00528/019A ALGOLW GOODGUYS OC O ALGW:GOODGUYS.OA 4.3T1 404 ALGOLW.GOODGUYS.OC.019 1 LINE 80 4 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:03:51 0 Object deck assembled from subcomponent 528/20. 00528/020C ALGOLW GOODGUYS SA O ALGW:GOODGUYS.SA 4.3T1 405 ALGOLW.GOODGUYS.SA.020 1 LINE 68 3 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:03:54 0 Assembler source for the Algol W run time debug processor routines processor. Doesn't do anything yet. SD: AWXDEBUG LD: AWPMDUMP + others to be finalised 0 Referenced by comments of: 528/2 00528/021A ALGOLW INSTALL P O S1397 UNE26 'UNE26' FSNAME=ALGOLW.INSTALL.P.021(1) 21 4.3T1 406 ALGOLW.INSTALL.P.021 1 LINE 76 4 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:15:58 0 Print file from subcomponent 528/22. Copy to a TN printer. 00528/022A ALGOLW INSTALL WX O S1397 UNE26 'UNE26' FSNAME=ALGOLW.INSTALL.WX.022(1) 22 4.3T1 407 ALGOLW.INSTALL.WX.022 1 LINE 68 4 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:16:07 0 TEXTFORM source for: ========================================================== = Algol W Installation Guide = = by - Alan Hunter = = July 1978 = ========================================================== This short document describes how to install Algol W in the MTS operating system. It is intended for the "keeper" of Algol W at each particular installation. 1 SUN SEP 08/96 19:03:19 Page 231 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 The print file is subcomponent 528/21. 00528/023A ALGOLW IOPACK OC O ALGW:IOPACK.OA 4.3T1 408 ALGOLW.IOPACK.OC.023 1 LINE 80 7 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:02 0 Object deck assembled from subcomponent 528/24. 00528/024A ALGOLW IOPACK SA O ALGW:IOPACK.SA 4.3T1 409 ALGOLW.IOPACK.SA.024 1 LINE 72 18 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:04 0 Assembler source for the Algol W I/O system entries control section. Provides initial entries for all I/O entry standard procedures, and for string conversion functions. SD: AWIOPACK LD: AWRDEDIT Basic input - READ, READON, READCARD AWWREDIT Basic output - WRITE, WRITEON, WRITECARD AWGTEDIT Unit input - GET, GETON AWPTEDIT Unit output - PUT, PUTON AWGTCONV Read internal string - GETSTRING AWPTCONV Write internal string - PUTSTRING AWGETSTR Unit string input - GETCARD, XGETCARD AWPUTSTR Unit string output - PUTCARD, XPUTCARD AWDELETE Unit indexed delete - XDELETE AWIOSYSP Control procedures - READER, WRITER, IOCONTROL, NEWLINE, RELEASE, PROTECT, REWIND, EMPTY, FLUSH, ATTNTRAP, OBEY, STOP AWASSIGN Unit allocation - ASSIGN AWQUACON Unit control - CONTROL, QUALIFY AWSENSIO Unit information - SENSE AWSTRCVF String conversion functions - INTBASE10, INTBASE16, BASE10, LONGBASE10, BASE16, LONGBASE16, DATE 0 Referenced by comments of: 528/2 00528/025A ALGOLW KXSCAN P O S1397 UNE26 'UNE26' FSNAME=ALGOLW.KXSCAN.P.025(1) 25 4.3T1 410 ALGOLW.KXSCAN.P.025 1 LINE 88 6 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:16:58 0 Print file from subcomponent 528/26. Copy to a TN printer. 00528/026A ALGOLW KXSCAN WX O S1397 UNE26 'UNE26' FSNAME=ALGOLW.KXSCAN.WX.026(1) 26 4.3T1 411 ALGOLW.KXSCAN.WX.026 1 LINE 102 3 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:17:12 0 TEXTFORM source for: ========================================================== = Newcastle University Computing Laboratory = = NUMAC Document S21 = = KXSCAN - A Keyword and Expression Scanner = = by - Alan Hunter = = December 1979 (incomplete) = ========================================================== 1 SUN SEP 08/96 19:03:19 Page 232 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 This document describes the KXSCAN subroutine used for all keyword and expression decoding within Algol W. It is completely independent of both Algol W and any operating system, and has been used in the OS/MVT and OS/VS2 3.7 systems at NUMAC. The print file is subcomponent 528/25. Copyright: The University of Newcastle upon Tyne 00528/027A ALGOLW LOADER OC O ALGW:LOADER.OA 4.3T1 412 ALGOLW.LOADER.OC.027 1 LINE 80 5 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:11 0 Object deck assembled from subcomponent 528/28. 00528/028A ALGOLW LOADER SA O ALGW:LOADER.SA 4.3T1 413 ALGOLW.LOADER.SA.028 1 LINE 72 17 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:13 0 Assembler source for the Algol W system loader. Used by the compiler driver to load programs compiled in CLG or Monitor mode. SD: AWLOADER Algol W loader LD: ** None ** 0 Referenced by comments of: 528/2 00528/029A ALGOLW LONGFNS OC O ALGW:LONGFNS.OA 4.3T1 414 ALGOLW.LONGFNS.OC.029 1 LINE 80 6 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:15 0 Object deck assembled from subcomponent 528/30. 00528/030A ALGOLW LONGFNS SA O ALGW:LONGFNS.SA 4.3T1 415 ALGOLW.LONGFNS.SA.030 1 LINE 72 23 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:18 0 Assembler source for the Algol W short precision analytic functions. Code adapted from the University of Michigan Elementary Function Library, which was in turn adapted from the Chicago routines. SD: AWLRLFNS Long real function transfer vector - LONGSQRT, LONGEXP, LONGLN, LONGLOG, LONGSIN, LONGCOS, LONGARCTAN, LONGCOT, LONGARCSIN, LONGARCCOS, LONGSINH, LONGCOSH, LONGTANH, LONGERF, LONGERFC, LONGGAMMA, LONGLNGAMMA LD: AWLCXFNS Long complex function transfer vector - LONGCXSIN, LONGCXCOS, LONGCXSQRT, LONGCXLN, LONGCXEXP 0 Referenced by comments of: 528/2 00528/031A ALGOLW MACROS C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.MACROS.C.031(1) 31 4.3T1 416 ALGOLW.MACROS.C.031 1 LINE 59 1 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:19:16 0 An MTS command deck to produce the Algol W system macro library from the macro source in 528/32. Contains commands to $RUN *MACGEN (293/2). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00528/032A ALGOLW MACROS UI O S1397 UNE26 'UNE26' FSNAME=ALGOLW.MACROS.UI.032(1) 32 4.3T1 417 ALGOLW.MACROS.UI.032 1 LINE 72 40 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:19:21 0 Contains the source for the Algol W system macro library. This subcomponent is maintained as an IEBUPDTE source deck (in fact it is a complete OS job deck). Changes to Algol W system macros should be made in this file, and a new system library set up by sourcing subcomponent 528/31. 00528/033A ALGOLW MANUAL P O S1397 UNE26 'UNE26' FSNAME=ALGOLW.MANUAL.P.033(1) 33 4.3T1 418 ALGOLW.MANUAL.P.033 1 LINE 88 215 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:21:34 0 Print file from subcomponent 528/34. Copy to a TN printer. 00528/034A ALGOLW MANUAL WX O S1397 UNE26 'UNE26' FSNAME=ALGOLW.MANUAL.WX.034(1) 34 4.3T1 419 ALGOLW.MANUAL.WX.034 1 LINE 167 189 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:29:25 0 TEXTFORM source for: ========================================================== = Newcastle University Computing Laboratory = = NUMAC Document U78 = = Algol W Reference Manual = = by - Blanche Grosswald (UM) = = revised - Alan Hunter (UNE) = = February 1980 (incomplete) = ========================================================== This document is the new Algol W user manual. It is based on the University of Michigan: "MTS Volume 16 - Algol W in MTS", written by Blanche Grosswald with help from other UM staff. It has been revised at Newcastle by Alan Hunter (incorporating some UQV material by Tony Marsland) in the light of our enhancements. The print file is subcomponent 528/33. Copyright 1979 by the University of Newcastle upon Tyne, Computing Laboratory. All rights reserved, subject to exceptions specified in the University of Michigan copyright to which this document is also subject. Copyright 1978 by the Regents of the University of Michigan. Copying is permitted for nonprofit, educational use provided that each reproduction is done without alteration, and that the volume reference and date of publication are included. Permission to republish any portions of this manual should be obtained in writing from the Director of the University of Michigan Computing Center, or the Information Officer at Newcastle. The following layouts are suitable: LAY.TYNE (3018/178) -- NUMAC Documentation group standards LAY.DEE (3018/179) -- NUMAC general layout with numbered headings 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00528/035A ALGOLW MTSSIM OC O ALGW:MTSSIM.OA 4.3T1 420 ALGOLW.MTSSIM.OC.035 1 LINE 80 5 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:36 0 Object deck assembled from subcomponent 528/36. 00528/036A ALGOLW MTSSIM SA O ALGW:MTSSIM.SA 4.3T1 421 ALGOLW.MTSSIM.SA.036 1 LINE 72 29 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:38 0 Assembler source for the Algol W <--> MTS system interface module. All communication between Algol W and the operating system is performed by calls to these entries. SD: AWSIMRTN LD: AWSIMBGN SIM initialisation AWSIMEND SIM close down AWGTMAIN Get main storage AWFRMAIN Return main storage AWXCLOCK System clock AWRDRECD Read in a record AWWRRECD Write out a record AWDSOPEN Open a dataset AWDSCLOS Close a dataset AWDSFREE Free (release) a dataset AWDSRWND Rewind a dataset AWDSUNIT Assign a dataset to DDname AWDSCTRL Control operation on dataset AWDSSENS Return dataset information AWDSCLEA Reset or empty a dataset AWCNRPLY Query conversational AWDDNAME Get Device Definition names AWPREFIX Set terminal prefix character AWATTNTR Set attention interrupt exit AWPGNTTR Set program interrupt exit AWTIMNTR Set timer interrupt exit AWSIMXIT Emergency exit AWSYSCMD Issue system command AWGETLCS Return A(system LCS table) AWIDVLOG Monitor ID verify and log AWEDITOR Invoke system editor AWLIBOBJ Supply library file inclusion directive AWEXLOAD Load external object modules AWCCLOOP Supply information for page limit check AWDEFALT Supply installation defaults (calls DEFAULTS (791/1)) Copies COPY:GLOBALS (1026/3). 0 Referenced by comments of: 528/2 00528/037A ALGOLW NEWSYS C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.NEWSYS.C.037(1) 37 4.3T1 422 ALGOLW.NEWSYS.C.037 1 LINE 66 1 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:39:37 0 This contains a set of MTS commands to change the current post-IPL (production) Algol W system. It should be sourced from the id 1 SUN SEP 08/96 19:03:19 Page 235 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 "SEG2". Be sure that you are aware of the consequences of using this, and that you have the permission of your local Senior Systems Programmer to change files on "SEG2". The new system is built using *OBJUTIL (749) using the file NEW:ALGOLW (528/2) as a basis. 00528/038A ALGOLW OBJBUILD C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.OBJBUILD.C.038(1) 38 4.3T1 423 ALGOLW.OBJBUILD.C.038 1 LINE 66 1 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:39:41 0 Contains an MTS command deck to set up 528/2 from the individual object decks. During the conversion, SYM loader cards are deleted. This file is copied by 528/12. 00528/039A ALGOLW PARSE OC O ALGW:PARSE.O3 4.3T1 424 ALGOLW.PARSE.OC.039 1 LINE 80 44 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:45 0 Compiler scan and parse phase object produced by 528/4 from 528/40. 00528/040C ALGOLW PARSE S3 O ALGW:PARSE.S3 4.3T1 425 ALGOLW.PARSE.S3.040 1 LINE 72 73 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:04:48 0 PL360 source for the Algol W compiler, phase A, recursive descent parser. Has a $CONTINUE WITH COMMON.S3 (528/11) record. 0 Referenced by comments of: 528/2 00528/041A ALGOLW RECORDS C O S1397 UNE26 'UNE26' FSNAME=ALGOLW.RECORDS.C.046(1) 46 4.3T1 426 ALGOLW.RECORDS.C.041 1 LINE 117 1 PAGE UNE HUNTER BODWIN FEB. 28, 1980 15:46:18 0 Contains an MTS command deck to compile the record allocation library routine 528/43. 00528/042A ALGOLW RECORDS OC O ALGW:RECORDS.O3 4.3T1 427 ALGOLW.RECORDS.OC.042 1 LINE 80 3 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:00 0 Object deck compiled from subcomponent 528/43. 00528/043A ALGOLW RECORDS S3 O ALGW:RECORDS.S3 4.3T1 428 ALGOLW.RECORDS.S3.043 1 LINE 72 5 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:01 0 PL360 source for the Algol W record allocation routine. SD: AWRCALOC Record allocator LD: ** None ** 0 Referenced by comments of: 528/2 00528/044A ALGOLW RENTALIB OC O ALGW:RENTALIB.OA 4.3T1 429 ALGOLW.RENTALIB.OC.044 1 LINE 80 9 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:03 0 Object deck assembled from subcomponent 528/45. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00528/045A ALGOLW RENTALIB SA O ALGW:RENTALIB.SA 4.3T1 430 ALGOLW.RENTALIB.SA.045 1 LINE 69 16 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:05 0 Assembler source for the Algol W library root control section. Provides the initialization entry for the run time ststem, with dummy section initialization code, and also the interrupt exits. SD: AWSYSTEM Initial run time entry 0 Referenced by comments of: 528/2 00528/046A ALGOLW SCAN O3 O ALGW:SCAN.O3 4.3T1 431 ALGOLW.SCAN.O3.046 1 LINE 80 18 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:08 0 Compiler scan and parse phase object produced by 528/4 from 528/47. 00528/047C ALGOLW SCAN S3 O ALGW:SCAN.S3 4.3T1 432 ALGOLW.SCAN.S3.047 1 LINE 72 24 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:10 0 Source (PL360) for the Algol W compiler, phase A, scanner. Has a $CONTINUE WITH COMMON.S3 (528/11) record. 0 Referenced by comments of: 528/2 00528/048A ALGOLW SERVICES OC O ALGW:SERVICES.OA 4.3T1 433 ALGOLW.SERVICES.OC.048 1 LINE 80 8 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:12 0 Object deck assembled from subcomponent 528/49. 00528/049A ALGOLW SERVICES SA O ALGW:SERVICES.SA 4.3T1 434 ALGOLW.SERVICES.SA.049 1 LINE 71 32 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:14 0 Assembler source for the Algol W compiler service routines. These supply I/O and other facilities to the compiler phases. Their addresses are contained in a transfer vector in 528/14. SD: AWCSRTNS LD: AWGETCRD Source cards input AWPUTLNE Listing/Diagnostics output AWVFLIST Virtual file listing routines AWXRFRTN Cross reference AWPUTCRD Object card output AWGTSTOR Nested storage allocation AWFRSTOR Nested storage release AWGTTIME Processor time clock AWPUTMSG Messages, AWCSRTNS + AWDRIVER 0 Referenced by comments of: 528/2 00528/050A ALGOLW SHORTFNS OC O ALGW:SHORTFNS.OA 4.3T1 435 ALGOLW.SHORTFNS.OC.050 1 LINE 80 6 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:17 0 Object deck assembled from subcomponent 528/51. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00528/051A ALGOLW SHORTFNS SA O ALGW:SHORTFNS.SA 4.3T1 436 ALGOLW.SHORTFNS.SA.051 1 LINE 72 20 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:19 0 Assembler source for the Algol W short precision analytic functions. Code adapted from the University of Michigan Elementary Function Library (525), which was in turn adapted from the Chicago routines. SD: AWSRLFNS Short real function transfer vector - SQRT, EXP,LN, LOG, SIN, COS, ARCTAN, TAN, COT, ARCSIN, ARCCOS, SINH, COSH, TANH, ERF, ERFC, GAMMA, LNGAMMA LD: AWSCXFNS Short complex function transfer vector - CXSIN, CXCOS, CXSQRT, CXLN, CXEXP 0 Referenced by comments of: 528/2 00528/052A ALGOLW SYSPACK OC O ALGW:SYSPACK.OA 4.3T1 437 ALGOLW.SYSPACK.OC.052 1 LINE 80 14 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:21 0 Object deck assembled from subcomponent 528/53. 00528/053A ALGOLW SYSPACK SA O ALGW:SYSPACK.SA 4.3T1 438 ALGOLW.SYSPACK.SA.053 1 LINE 72 32 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:24 0 Assembler source for the Algol W I/O system record and device control routines. These are stack linked "Q-routines". Copies COPY:GLOBALS (1026/3). SD: AWSYSPAK Q-routine transfer vector LD: AWFMSCAN Format string decoder (O/S type I rtn) 0 Referenced by comments of: 528/2 00528/054A ALGOLW TESTPGMS SW O ALGW:TESTPGMS.SW 4.3T1 439 ALGOLW.TESTPGMS.SW.054 1 LINE 81 5 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:26 0 Contains a set of small Algol W programs to test *ALGOLW as a compiler (source to object deck). To use: $RUN *ALGOLW SCARDS=TESTPGMS.SW 00528/055A ALGOLW WOLFPACK OC O ALGW:WOLFPACK.OA 4.3T1 440 ALGOLW.WOLFPACK.OC.055 1 LINE 80 11 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:28 0 Object deck assembled from subcomponent 528/56. 00528/056A ALGOLW WOLFPACK SA O ALGW:WOLFPACK.SA 4.3T1 441 ALGOLW.WOLFPACK.SA.056 1 LINE 72 48 PAGE UNE HUNTER BODWIN APR. 05, 1980 18:05:31 0 Assembler source for the Algol W system independent subroutines. Provides a keyword/expression scanner and a block letter routine. SD: AWINDRTN ld: AWKXSCAN Keyword and expression processing AWCVREAL Convert real routine 1 SUN SEP 08/96 19:03:19 Page 238 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 AWBLKLTR Block letter generation AWSPACES Stop on space table AWSPACOM Stop on space or comma table AWNSPACE Stop on not space table AWNSPACM Stop on not space or comma table AWUCTOLC Translate UC alpha to LC alpha table AWATSIGN Stop on an "@" table KXSCAN Tourist synonym for AWKXSCAN 0 Referenced by comments of: 528/2 00528/057 ALGOLW *XALGOLW OE O # (OBSOLETE) D4T2 238 ALGOLW.*XALGOLW.OE.006 1 SEQ 3402 2 PAGE UM BODWIN JULY 28, 1977 02:13:51 0 *XALGOLW IS NO LONGER SUPPORTED AT UM. 00528/058C ALGOLW MEMO 403 WX S0672 CCMEMO 'CCMEMOS' FSNAME=M403SOURCE 4.3T1 442 ALGOLW.MEMO_403.WX.058 1 LINE 255 27 PAGE UM BODWIN OCT. 09, 1979 08:49:33 0 THIS IS COMPUTING CENTER MEMO 403 -- "ALGOLW: RELEASE 6.1." 00528/059 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 THE OBJECT OF THIS IS IN UNSP:LIBRARY (685/4). THIS MODULE IS USABLE, BUT IT HAS BEEN OUTDATED BY NEW FEATURES OF *ALGOLW. 00529/001A FILESTATUS COMMAND SA MTS:FILESTATUS.S 4.3T1 443 FILESTATUS_COMMAND..SA.001 1 LINE 110 86 PAGE UM DWB APR. 05, 1980 18:05:56 MTS:FILESTATUS.S 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). ***************************************************************************** THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT: D4.2A (RD16) CHANGES: CHANGED TO USE TYPE 20 RHS SUBSTRINGS INSTEAD OF TYPE 6, SO AS TO MATCH DOCUMENTATION AND EXPECTED BEHAVIOR. D4.2C CHANGES: PRINTS PARTIALLY SPECIFIED CCID, PROJECTS, AND PKEYS WITH A TRAILING QUESTION MARK. IN ADDITION, A BUG WAS FIXED. ----------------------------------------------------------------------------- 1 SUN SEP 08/96 19:03:19 Page 239 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ----------------------------------------------------------------------------- D4.3 CHANGES: 1) CHANGED TO ACCEPT INITIAL SUBSTRING LEFTHAND SIDES THAT MATCH THE INITIAL RIGHT-HAND SIDES IT ALREADY ACCEPTS. 2) CHANGED TO ALLOW GFINFO TO SUPPLY THE TRAILING QUESTION MARKS ON PARTIALLY SPECIFIED CCIDS, PROJECTS, AND PKEYS AND TO TRIM TRAILING BLANKS FROM CCIDS, PROJECTS, AND PKEYS BEFORE PRINTING IN SHARING INFORMATION. 3) ENABLED SPELLING CORRECTION ACCORDING TO MTS SPELLCOR SWITCH. 4) FIXED BUGS HAVING TO DO WITH THE SCANNING OF CATALOGS THAT INCLUDED PRIVATE FILES WHOSE NAMES STARTED WITH "*", OR THE CURRENT SCRATCH FILE CHARACTER, OR WHOSE NAMES CONTAIN THE CURRENT SHARED FILE SEPARATOR CHARACTER AS ONE OF THE FIRST 5 CHARACTERS OF THE NAME. 5) FIXED A BUG CAUSING HOLES TO NOT BE PRINTED SOMETIMES. 6) CHANGED WHAT GETS PRINTED FOR LOCATION (LOC) TO BE 2311, 2314, CELL, 3330, OR 3350 RATHER THAN 2311, 2314, CELL, DISK, AND DISK (REQUIRES A CHANGE TO GFINFO). 7) MADE THE MESSAGE PRINTED FOR A CCID THAT HAS NO CATALOG THE SAME AS THE ONE FOR AN ID WITH AN EMPTY CATALOG. ***************************************************************************** 0 Referenced by comments of: 509/1 00529/002A FILESTATUS COMMAND OC *CLSFILESTATUS 4.3T1 444 FILESTATUS_COMMAND..OC.002 1 LINE 80 17 PAGE UM DWB APR. 05, 1980 18:06:07 *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 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 4 = UNIT-CHECK DATA 5 = END-OF-USER (HAS BEEN SIGNED-OFF) 6 = 3270 DSR STATISTICS 7 = HASP LOG 8 = SSRTN JOBSTA DATA 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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) 21 = HASP DEVICE STATISTICS (E.G., OMR CARDS) 22 = RESERVED FOR PW FAILURE STATISTICS (WORK BEING DONE AT RPI) 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/002A COMMAND STATISTICS CMDSTAT UPDATE UC G MTS:CMDSTATUPD 4.3T1 445 COMMAND_STATISTICS.CMDSTA.UC.002 1 LINE 72 3 PAGE UM MTS HELFFRICH APR. 05, 1980 18:06:10 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/003A COMMAND STATISTICS CMDSTAT OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00531/004A COMMAND STATISTICS CMDSTAT LIST L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=CMDSTAT.LIST 16 4.3T1 446 COMMAND_STATISTICS.CMDSTA.L.004 1 SEQ 133 38 PAGE UM MTS HELFFRICH APR. 05, 1980 18:06:13 00531/005A COMMAND STATISTICS *CMD C G *CMD 4.3T1 447 COMMAND_STATISTICS.*CMD.C.005 1 LINE 81 1 PAGE UM DWB APR. 05, 1980 18:06:15 *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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00531/006A COMMAND STATISTICS CMDPIKUP SA G CMDP SYS:CMDPIKUP(1000) 4.3T1 448 COMMAND_STATISTICS.CMDPIK.SA.006 1 LINE 80 21 PAGE UM DWB APR. 05, 1980 18:06:17 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 00531/007A COMMAND STATISTICS CMDPIKUP OC G SYS:CMDPIKUP(1,999) 4.3T1 449 COMMAND_STATISTICS.CMDPIK.OC.007 1 LINE 80 6 PAGE UM DWB APR. 05, 1980 18:06:23 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00531/012A COMMAND STATISTICS *DWB C G MTS:TST.DWB 4.3T1 450 COMMAND_STATISTICS.*DWB.C.012 1 LINE 161 1 PAGE UM DWB APR. 05, 1980 18:06:25 *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 SPIRES STATISTICS RECORDS (TYPE 15) ON UNIT 15, WHICH IS ASSIGNED TO THE FILE DBMS:SPIRESLOG(*L+1); ALL MOUNT STATISTICS RECORDS (TYPE 16) ON UNIT 16 WHICH IS ASSIGNED TO THE FILE SYS:MOUNTSTAT(*L+1); ALL MERIT NETWORK USAGE STATISTICS RECORDS (TYPE 17) ON UNIT 17 WHICH IS ASSIGNED TO THE FILE MNET:STAT(*L+1); AND ALL HASP STATISTICS RECORDS (TYPE 21) ON UNIT 18, WHICH IS ASSIGNED TO THE FILE SYS:HASPCOUNTS(*L+1). THE FILE CMDERRORS IS REQUIRED FOR LOGGING. IT WOULD SEEM THAT DON COULD HAVE THOUGHT OF SOME NAME MORE ORIGINAL THAN HIS INITIALS. DON'S RESPONSE: "SINCE NO ONE WOULD NAME AN SVC AFTER ME, I WAS FORCED ... " 0 Referenced by comments of: 413/1, 531/6 00531/013A COMMAND STATISTICS CMDTAPE SA G DWB:CMDTAPE.370(1,999) 4.3T1 451 COMMAND_STATISTICS.CMDTAP.SA.013 1 LINE 72 8 PAGE UM DWB APR. 05, 1980 18:06:28 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. IT ALSO WRITES *PRINT* RECEIPT NUMBERS IN THE FILE SYS:HASPRECEIPTS (531/17) FOR THE PRINTED HASP LOG IT PRODUCES. 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/17, 531/31 00531/014A COMMAND STATISTICS CMDTAPE OC G SYS:CMDTAPE.O 4.3T1 452 COMMAND_STATISTICS.CMDTAP.OC.014 1 LINE 1660 7 PAGE UM DWB APR. 05, 1980 18:06:32 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00531/017C COMMAND STATISTICS HASP RECEIPTS D # MTS:TST.EMPTY UM DWB SYS:HASPRECEIPTS 0 LOG FILE, USED BY THE CMDTAPE PROGRAM (531/13), WHICH LOGS THE *PRINT* RECEIPT NUMBERS FOR THE PRINTED HASP LOGS PRODUCED BY IT. 0 Referenced by comments of: 531/13, 531/33 00531/018A COMMAND STATISTICS CMDAREADSECT SA G CMDA COPY:CMDAREADSECT 4.3T1 453 COMMAND_STATISTICS.CMDARE.SA.018 1 LINE 80 3 PAGE UM DWB APR. 05, 1980 18:06:35 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/10, 577/2, 621/2, 621/4, 621/8, 621/10, 655/2, 707/1, 707/2, 718/1, 753/1, 753/3, 787/3, 787/9, 787/11 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/033A COMMAND STATISTICS CMDUTIL SA G CMDU DWB:CMDUTIL(1,999) 4.3T1 454 COMMAND_STATISTICS.CMDUTI.SA.033 1 LINE 80 9 PAGE UM DWB APR. 05, 1980 18:06:37 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 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). ***************************************************************************** D4.3 CHANGES: CHANGED SO THAT RECORDS OF TYPE N WHERE N>19 ARE COPIED TO UNIT 0. ***************************************************************************** 00531/034A COMMAND STATISTICS CMDUTIL OC G DWB:CMDUTIL(1000) 4.3T1 455 COMMAND_STATISTICS.CMDUTI.OC.034 1 LINE 80 4 PAGE UM DWB APR. 05, 1980 18:06:40 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/5) 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/005A TMTS LOADMTS SA G TMTS:LOADMTS(2000) 4.3T1 456 TMTS.LOADMTS.SA.005 1 LINE 71 9 PAGE UM JWS APR. 05, 1980 18:06:43 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. 1 SUN SEP 08/96 19:03:19 Page 247 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/007A TMTS TMTSLIB OL O TMTS:TMTSLIB 4.3T1 457 TMTS.TMTSLIB.OL.007 1 LINE 32767 102 PAGE UM JWS APR. 05, 1980 18:06:45 TMTS:TMTSLIB 0 THIS IS A SPECIAL (AND NOT CURRENT) VERSION OF *LIBRARY WHICH INCLUDES ADDITIONAL SUBROUTINES WHICH NORMALLY ARE IN SHARED VM AND NOT PART OF *LIBRARY. THE TEST SYSTEM SHOULD REFERENCE THIS FILE AND NOT *LIBRARY. THE FOLLOWING COMMAND WILL CAUSE THIS TO BE DONE: $SET LIBSRCH=TMTS:TMTSLIB *LIBRARY=OFF 0 Referenced by comments of: 534/8 00534/008A TMTS POSTIPL C G TMTS:POSTIPL 4.3T1 458 TMTS.POSTIPL.C.008 1 LINE 82 1 PAGE UM JWS APR. 05, 1980 18:06:51 TMTS:POSTIPL 0 LINES 1 TO 9 OF THIS FILE CONTAIN COMMANDS TO RUN PISTLE TO LOAD SEG2:TIME (360/1) INTO SHARED VM AND DEFINE ITS SYMBOLS IN THE TMTS LCSYMBOL. THIS FILE ALSO CONTAINS THE SOURCE (AT LINE 10) AND OBJECT (AT LINE 1000) FOR A SMALL FORTRAN PROGRAM WHICH CALLS THE TIME SUBROUTINE (WITH PROT=OFF) TO CAUSE IT TO INITIALIZE ITSELF. IT ALSO CONTAINS A $CONTINUE WITH TMTS:TMTSLIB (534/7) RECORD. 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 00535/003 CLS INTERFACE STDTV SA G STTV # (OBSOLETED BY 636) RD16T1 95 CLS_INTERFACE.STDTV.SA.003 1 LINE 80 1 PAGE UM MTS HELFFRICH JULY 12, 1979 22:52:52 0 THIS SUBCOMPONENT IS NOW OBSOLETE. IT HAS BEEN INCLUDED IN THE CMDS ASSEMBLY (636). 00535/004 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/005 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/006 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/007 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/008A CLS INTERFACE GOM T/V DSECT SG G COPY:CLSTV.SG 4.3T1 459 CLS_INTERFACE.GOM_T/V_DSE.SG.008 1 LINE 97 1 PAGE UM MTS HELFFRICH APR. 05, 1980 18:06:53 COPY:CLSTV.SG 0 THIS IS THE GOM EQUIVALENT OF THE CLSTV MACRO IN MTS.MACROS (344/3). 00536 *BRAILLE # (OBSOLETE) D3T4 199 BRAILLE..SA.1 1 LINE 73 21 PAGE UM JULY 30, 1973 03:34.19 00538/001A *COBOLU EXECUTOR SA G COBU MTA:COBOLU(1,999) 4.3T1 460 COBOLU.EXECUTOR.SA.001 1 LINE 80 4 PAGE UM H YOUNG APR. 05, 1980 18:06:55 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/002A *COBOLU EXECUTOR OE G *COBOLU 4.3T1 461 COBOLU.EXECUTOR.OE.002 1 LINE 746 1 PAGE UM H YOUNG APR. 05, 1980 18:06:58 *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/38) TO BUILD 538/4. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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:CC.MACROS (1054/3), AND COPY:FILE.MACROS (482/33). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 00539/002A TIMNTRP UPDATE UC G MTS:TIMTUPD 4.3T1 462 TIMNTRP.UPDATE.UC.002 1 LINE 72 4 PAGE UM MTS MTA APR. 05, 1980 18:07:00 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/003A TIMNTRP OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS MTA 00539/004A TIMNTRP L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=TIMT.LIST 10 4.3T1 463 TIMNTRP..L.004 1 SEQ 133 73 PAGE UM MTS MTA APR. 05, 1980 18:07:11 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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/001A SYSTEM WATCHERS PDPBUG SA G MTA:PDPBUG(1000) 4.3T1 464 SYSTEM_WATCHERS.PDPBUG.SA.001 1 LINE 68 4 PAGE UM MTA APR. 05, 1980 18:07:12 MTA.:PDPBUG 0 THIS COMPONENT CONSISTS OF PROGRAMS WHICH MONITOR THE ACTIVITY OF VARIOUS PARTS OF THE SYSTEM. PDPBUG IS A PROGRAM TO PRINT STATISTICS ABOUT SYSTEM PAGING. COMMENTS IN THE SOURCE CODE DESCRIBE THE OUTPUT. MUST BE RE-ASSEMBLED IF THE PDP IS RE-ASSEMBLED. THE ITEMS TO BE CHANGED ARE DOCUMENTED IN SOURCE COMMENTS. COPIES COPY:LLMPSEQU(100) (087), COPY:GLOBALS (1026/3), AND *CNFGINFODSECT (654). ASSEMBLE WITH COPY:SETPARM (653/1). 00540/002A SYSTEM WATCHERS PDPBUG OC G MTA:PDPBUG(1,999) 4.3T1 465 SYSTEM_WATCHERS.PDPBUG.OC.002 1 LINE 80 3 PAGE UM MTA APR. 05, 1980 18:07:14 00540/003A SYSTEM WATCHERS PRNTCNTS SA G MTA:PRNTCNTS(1000) 4.3T1 466 SYSTEM_WATCHERS.PRNTCNTS.SA.003 1 LINE 74 11 PAGE UM MTA APR. 05, 1980 18:07:16 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) AND COPY:LLMPSEQU (087). 00540/004A SYSTEM WATCHERS PRNTCNTS OC G MTA:PRNTCNTS(1,999) 4.3T1 467 SYSTEM_WATCHERS.PRNTCNTS.OC.004 1 LINE 80 8 PAGE UM MTA APR. 05, 1980 18:07:27 00540/005C SYSTEM WATCHERS HOGS CMDS C *HGS 4.3T1 468 SYSTEM_WATCHERS.HOGS_CMDS.C.005 1 LINE 40 1 PAGE UM MTA APR. 05, 1980 18:07:35 *HGS 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE HOGS PROGRAM (540/6) TO FIND OUT WHICH JOBS ARE USING THE MOST CPU TIME, VM, AND DRUM READS. 00540/006 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). 0 Referenced by comments of: 540/5 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00540/007 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/008 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/12, 647/1 00540/009 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/010A SYSTEM WATCHERS DBJP SA G DPBJ MTS:DBJP(1000) 4.3T1 469 SYSTEM_WATCHERS.DBJP.SA.010 1 LINE 80 8 PAGE UM OGDEN APR. 05, 1980 18:07:37 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/011A SYSTEM WATCHERS DBJP OC G MTS:DBJP(1,999) 4.3T1 470 SYSTEM_WATCHERS.DBJP.OC.011 1 LINE 1792 3 PAGE UM OGDEN APR. 05, 1980 18:07:40 00540/012 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/013 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/014A SYSTEM WATCHERS DRUMSTAT SA O MTA:DRUMSTAT(1000) 4.3T1 471 SYSTEM_WATCHERS.DRUMSTAT.SA.014 1 LINE 72 3 PAGE UM MTA APR. 05, 1980 18:07:43 MTA.:DRUMSTAT 0 EVERY 30 SECONDS, THIS PROGRAM PRINTS DRUMIN, DRUMOUT, DISKIN, DISKOUT, LOOPS, NRP (NUMBER OF RELEASED PAGES), SKPREAD (NUMBER OF READS SKIPPED TO WAIT FOR MORE WORK), NCP (NUMBER OF CHANNEL PROGRAMS), NWPD (NUMBER OF WRITE PAGES DISCARDED, I.E. UNCHANGED), NGWP (NUMBER OF PAGES FROM GETWP), NOXACNT (NUMBER OF PAGES ON PIQ WITH NO EXTERNAL ADDRESS), PI/LOOP (PAGE INS PER LOOP), PI/CP, T/LOOP (TIME 1 SUN SEP 08/96 19:03:19 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 PER LOOP), T/PI, T/CP, AND %SS (PERCENT SUPERVISOR STATE) FOR THE PDP. 00540/015A SYSTEM WATCHERS DRUMSTAT OC O MTA:DRUMSTAT(1,999) 4.3T1 472 SYSTEM_WATCHERS.DRUMSTAT.OC.015 1 LINE 80 2 PAGE UM MTA APR. 05, 1980 18:07:45 00540/016C SYSTEM WATCHERS GTUNIT CMDS C *GTU 4.3T1 473 SYSTEM_WATCHERS.GTUNIT_CM.C.016 1 LINE 28 1 PAGE UM OGDEN APR. 05, 1980 18:07:48 *GTU 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE GTUNIT PROGRAM (540/17 AND 540/18) TO PRINT THE NUMBER OF GTUNIT WAITS FOR EACH PUBLIC DISK VOLUME EVERY 20 SECONDS. 00540/017 SYSTEM WATCHERS GTUNIT MAIN SG G 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/18) EVERY 20 SECONDS. CALLS THE PAR (687/1) AND ATRAP (689/1) SUBROUTINES. 00540/018 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/17, 647/1 00540/019 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/17 AND 540/18. 00540/020 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/021 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/022 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. 1 SUN SEP 08/96 19:03:19 Page 254 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 540/23 00540/023 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/22) TO GET THE REASON FOR THE LAST RELOAD AND RUN THE UPTIME PROGRAM (540/24). 00540/024 SYSTEM WATCHERS UPTIME PGM SA G MTA:UPTIME(1000) 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/23 00540/025 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/026 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/27) TO PRINT WAIT COUNTS FOR MTS JOBS. INVOKED BY ENTERING "MTS *PWC" ON THE OPERATOR'S CONSOLE. 00540/027A SYSTEM WATCHERS PWCT PGM SA G PWCT MTS:PWC(1000) 4.3T1 474 SYSTEM_WATCHERS.PWCT_PGM.SA.027 1 LINE 80 21 PAGE UBC HOGG OGDEN APR. 05, 1980 18:07:50 MTS.:PWC 0 PROGRAM TO PRINT WAIT COUNTS, I.E., COUNTS OF HOW MANY MTS TASKS ARE WAITING FOR WHAT. IT TAKES THREE OPTIONAL INTEGER NUMBERS IN THE PAR FIELD SEPARATED BY BLANKS: NUMBER OF SECONDS BETWEEN SAMPLES, NUMBER OF LINES OF OUTPUT BETWEEN HEADINGS, AND THE TOTAL NUMBER OF LINES OF OUTPUT BEFORE QUITTING. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 540/26, 647/1 00540/028A SYSTEM WATCHERS PWCT PGM OC G MTS:PWC(1,999) 4.3T1 475 SYSTEM_WATCHERS.PWCT_PGM.OC.028 1 LINE 80 5 PAGE UBC HOGG OGDEN APR. 05, 1980 18:07:54 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/3 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/006A *FAKEOS UPDATES UC G MTA:FOS.UPDATES 4.3T1 476 FAKEOS.UPDATES.UC.006 1 LINE 81 4 PAGE UM MTA APR. 05, 1980 18:07:57 MTA.:FOS.UPDATES 0 POST D4.2 UPDATES TO FAKEOS PREFIX (LINE 1) AND MAIN PROGRAM (LINE 10000). 00545/007A *FAKEOS ASSEMBLY CMDS C MTA:FOS.ASM 4.3T1 477 FAKEOS.ASSEMBLY_CMDS.C.007 1 LINE 91 1 PAGE UM MTA APR. 05, 1980 18:08:00 0 COMMANDS TO ASSEMBLE FAKEOS PREFIX (AT LINE 1) AND MAIN PROGRAM (AT LINE 1000). 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/009A *FAKEOS BDAM SIMULATOR SA S0938 FSAVE2 VLO FSNAME=FOS.BDAM 4.3T1 478 FAKEOS.BDAM_SIMULATOR.SA.009 1 LINE 87 69 PAGE UM MTA MAR. 07, 1980 23:48:27 0 SOURCE FOR OS BDAM SIMULATOR. COPIES FAKEOS.GBLS (545/19). ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21). 00545/010A *FAKEOS BDAM SIMULATOR OE ETC:BDAM 4.3T1 479 FAKEOS.BDAM_SIMULATOR.OE.010 1 SEQ 15140 4 PAGE UM MTA APR. 05, 1980 18:08:09 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 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/016A *FAKEOS OS SVC 59 SIML SA MTA:FOS.SVC59 4.3T1 480 FAKEOS.OS_SVC_59_SIML.SA.016 1 LINE 71 6 PAGE UM MTA APR. 05, 1980 18:08:10 MTA.:FOS.SVC59 0 SOURCE FOR OS SVC 59 SIMULATOR. COPIES FAKEOS.GLBS (545/19), COPY:GLOBALS (1026/3), *CNFGINFODSECT (654), AND COPY:LLMPSEQU (087). ASSEMBLE USING *SYSMAC, *OSMAC, AND FOS.MACLIB (545/21). 00545/017A *FAKEOS FOS.OLTS OE ETC:FOS.OLTS 4.3T1 481 FAKEOS.FOS.OLTS.OE.017 1 LINE 1694 4 PAGE UM MTA APR. 05, 1980 18:08:13 ETC.:FOS.OLTS 0 OBJECT FROM 545/15 AND 545/16. MUST BE CONCATENATED WITH *FAKEOS (545/40) 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. 00545/019A *FAKEOS FAKEOS.GBLS SA MTA:FAKEOS.GBLS 4.3T1 482 FAKEOS.FAKEOS.GBLS.SA.019 1 LINE 80 1 PAGE UM MTA APR. 05, 1980 18:08:15 MTA.:FAKEOS.GBLS 0 GLOBAL PARAMETERS COPY SECTION. EACH INSTALLATION SHOULD RE-DEFINE &OWNER, &COBUID, &MPSID, &FAKEID, &FAKMAIN, &ICENAME, AND &ETCID. 0 Referenced by comments of: 538/1, 545/3, 545/4, 545/9, 545/11, 545/15, 545/16, 545/34, 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/40). 00545/021A *FAKEOS FOS.MACLIB SM MTA:FOS.MACLIB 4.3T1 483 FAKEOS.FOS.MACLIB.SM.021 1 LINE 80 26 PAGE UM MTA APR. 05, 1980 18:08:18 MTA.:FOS.MACLIB 0 FAKEOS MACRO LIBRARY. 1 SUN SEP 08/96 19:03:19 Page 258 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 545/3, 545/4, 545/9, 545/11, 545/13, 545/15, 545/16, 545/34 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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/032C *FAKEOS WTO/WTOR TEST SA O MTA:FOS.WTOTST(1,999) 4.3T1 484 FAKEOS.WTO/WTOR_TEST.SA.032 1 LINE 72 1 PAGE UM MTA APR. 05, 1980 18:08:21 MTA:FOS.WTOTST 0 TESTS WTO (WRITE TO OPERATOR) AND WTOR (WRITE TO OPERATOR WITH REPLY). ASSEMBLE WITH *OSMAC (193/1) ON UNIT 0 AND *SYSMAC (225/2) ON UNIT 2. 00545/033C *FAKEOS WTO/WTOR TEST OC O MTA:FOS.WTOTST(1000) 4.3T1 485 FAKEOS.WTO/WTOR_TEST.OC.033 1 LINE 80 1 PAGE UM MTA APR. 05, 1980 18:08:24 00545/034 *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). 00545/035 *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/036 *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/037 *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/038 *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/039 *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/7, 762/8 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00545/040A *FAKEOS *FAKEOS OE G *FAKEOS 4.3T1 486 FAKEOS.*FAKEOS.OE.040 1 LINE 32767 17 PAGE UM MTA APR. 05, 1980 18:08:26 *FAKEOS 0 CURRENT OBJECT FOR FAKEOS. 0 Referenced by comments of: 545/17, 545/20 00545/041A *FAKEOS MESSAGE FILE M ETC:FAKEOS.MSG 4.3T1 487 FAKEOS.MESSAGE_FILE.M.041 1 LINE 120 4 PAGE UM MTA APR. 05, 1980 18:08:29 ETC.:FAKEOS.MSG 0 ERROR MESSAGE FILE FOR FAKEOS. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00545/042 *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. 00546/001A *VALIDATEFILE SA G VALD RSTR:VALIDATEFILE(1000) 4.3T1 488 VALIDATEFILE..SA.001 1 LINE 80 39 PAGE UM HELFFRICH APR. 05, 1980 18:08:31 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). ********************************************************************************* D4.3 CHANGES: SCRATCH AREA SIZE INCREASED FOR VAMX SUPPORT. ********************************************************************************* 00546/002A *VALIDATEFILE OE G *VALIDATEFILE 4.3T1 489 VALIDATEFILE..OE.002 1 LINE 5643 6 PAGE UM HELFFRICH APR. 05, 1980 18:08:35 *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), 1 SUN SEP 08/96 19:03:19 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 *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. 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: 1 SUN SEP 08/96 19:03:19 Page 262 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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/001A NETWORK CLS SA G NETC S0683 OGDEN FSNAME=NET.S 4.3T1 490 NETWORK_CLS..SA.001 1 LINE 80 43 PAGE UM OGDEN JAN. 31, 1980 01:18:32 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00553/003A NETWORK CLS OC G *CLSNET 4.3T1 491 NETWORK_CLS..OC.003 1 LINE 18144 6 PAGE UM OGDEN APR. 05, 1980 18:12:38 *CLSNET 0 OBJECT FROM 553/1 AND 553/2, NORMALLY LOADED INTO SHARED VM BY PISTLE AFTER IPL. 00553/004A NETWORK CLS MNET:NETCOPY OC G MNET:NETCOPY 4.3T1 492 NETWORK_CLS.MNET:NETCOPY.OC.004 1 LINE 10144 4 PAGE UM OGDEN APR. 05, 1980 18:12:39 0 CONTAINS LOADER CARDS (RIP, COM, LCS,) TO FORCE REFERENCE TO SHARED VM NETCOPY SUBROUTINE, IF NET CLS IS LOADED IN SHARED VM. THIS FILE IS $RUN AUTOMATICALLY WHEN A .COPY NETWORK COMMAND (OR EQUIVALENT AT A NON-MTS HOST) IS ISSUED AT A REMOTE HOST TO COPY A FILE TO OR FROM THE LOCAL MTS HOST. 00553/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 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. 1 SUN SEP 08/96 19:03:19 Page 264 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/14, 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. 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 1 SUN SEP 08/96 19:03:19 Page 265 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 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. 1 SUN SEP 08/96 19:03:19 Page 266 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 BREAK TAKES A LIST OF FUNCTION NAMES AND SETS A BREAKPOINT AT THE ENTRY AND EXIT TO EACH OF THEM. UNBREAK TAKES A LIST OF FUNCTION NAMES AND RESETS THE BREAKPOINT AT EACH. ALL FUNCTIONS MUST BE PREVIOUSLY DEFINED. BOTH BREAK AND UNBREAK ARE DEFINED AS FEXPR'S SO THAT THEIR ARGUMENTS ARE NOT EVALUATED. WHEN A FUNCTION WHICH HAS A BREAKPOINT SET IS CALLED, THE MESSAGE ">>> ENTERING NAME TYPE ARGS" IS TYPED, WHERE "NAME" IS THE NAME OF THE FUNCTION, "TYPE" IS SUBR, FSUBR, EXPR, OR FEXPR, AND "ARGS" ARE THE NAMES OF THE ARGUMENTS. WHEN THE FUNCTION EXITS, THE MESSAGE ">>> EXITING NAME" IS TYPED. BOTH MESSAGES ARE FOLLOWED BY THE MESSAGE "LISTENING" AND LINES ARE READ AND PASSED TO EVAL UNTIL "T" IS ENTERED. THE ATOM "VALUE" WILL BE BOUND TO THE RESULT OF THE FUNCTION ON EXIT, AND THE ARGUMENTS WILL BE BOUND BOTH TIMES. CONDITIONAL BREAKPOINTS MAY BE SET BY MAKING ONE OF THE ARGUMENTS OF BREAK A LIST. CAR OF THE LIST IS THE NAME OF THE FUNCTION AND CADR OF THE LIST IS A CONDITION WHICH MUST BE TRUE FOR THE BREAKPOINT TO OCCUR. THE CONDITION IS TESTED WHEN THE FUNCTION IS CALLED. EXAMPLE: BREAK (FN (FN2 (EQ ARG1 1))) WILL ALWAYS BREAK AT FUNCTION FN AND BREAK AT FN2 IF ARG1 IS 1 (ASSUMING ARG1 IS THE FIRST ARGUMENT OF FN2). 00557/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/001A VIRTUAL MACHINE MAIN PGM SA G MTA:VMN.S 4.3T1 493 VIRTUAL_MACHINE.MAIN_PGM.SA.001 1 LINE 72 67 PAGE UM MTA APR. 05, 1980 18:12:41 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/002A VIRTUAL MACHINE V370 SUPPORT SA G MTA:V370.S 4.3T1 494 VIRTUAL_MACHINE.V370_SUPP.SA.002 1 LINE 72 10 PAGE UM MTA APR. 05, 1980 18:12:50 MTA.:V370.S 0 COPY SECTION CONTAINING THE 370 INSTRUCTION SIMULATION CODE. 0 Referenced by comments of: 558/1 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00558/003A VIRTUAL MACHINE 3066 SUPPORT SA G MTA:OC.S 4.3T1 495 VIRTUAL_MACHINE.3066_SUPP.SA.003 1 LINE 68 6 PAGE UM MTA APR. 05, 1980 18:12:52 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 AND 2305 DRUM SUPPORT. THE DRUM IS SIMULATED USING VIRTUAL MEMORY. 0 Referenced by comments of: 558/1 00558/005A VIRTUAL MACHINE DEVICE LIST SA G MTA:V370DEV.UM(1,999) 4.3T1 496 VIRTUAL_MACHINE.DEVICE_LI.SA.005 1 LINE 66 1 PAGE UM MTA APR. 05, 1980 18:12:55 MTA.:V370DEV.UM 0 DEVICE LIST FOR UM 470 I/O CONFIGURATION. COPIES V370DEV.MAC (558/6). 00558/006A VIRTUAL MACHINE DEVLIST MACROS SM O MTA:V370DEV.MAC 4.3T1 497 VIRTUAL_MACHINE.DEVLIST_M.SM.006 1 LINE 69 3 PAGE UM MTA APR. 05, 1980 18:12:57 MTA.:V370DEV.MAC 0 MACROS, AND SOME CALLS TO THEM, TO MAKE IT EASIER TO ASSEMBLE A DEVICE LIST FOR THE VIRTUAL MACHINE. DOCUMENTATION IS INCLUDED IN THE COMMENTS. 0 Referenced by comments of: 558/5 00558/007A VIRTUAL MACHINE 370 OBJECT OC G MTA:V370 4.3T1 498 VIRTUAL_MACHINE.370_OBJEC.OC.007 1 LINE 10687 13 PAGE UM MTA APR. 05, 1980 18:13:00 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/001A PISTLE *S2L C G *S2L 4.3T1 499 PISTLE.*S2L.C.001 1 LINE 88 1 PAGE UM SHERRY APR. 05, 1980 18:13:03 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, 513/3 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00559/002A PISTLE SA G W009:PISTLE.S 4.3T1 500 PISTLE..SA.002 1 LINE 139 17 PAGE UM SHERRY APR. 05, 1980 18:13:05 W009:PISTLE.S 0 ******************************************************************** D4.3 VERSION: THIS IS A NEW VERSION OF THE POST-IPL LOADER. THIS VERSION CONTAINS MANY INTERNAL CHANGES TO SUPPORT THE FOLLOWING EXTERNAL DIFFERENCES: 1. A SUBROUTINE INTERFACE ENTRY POINT CALLED LOADSVM IN NOW AVAILABLE. THIS WAS DESIGNED FOR USE BY CREP (NOT READY FOR DISTRIBUTION) AND IS DOCUMENTED IN THE 559/11 WRITEUP. 2. PISTLE WILL NOW SUPPRESS THE PROMPT FOR CONFIRMATION WHEN REPLACING LCS SYMBOLS THAT WERE DEFINED AS WXTRN IN LCSYMBOL, I.E., THOSE SYMBOLS IN LCSYMBOL THAT HAVE A ZERO-VALUED ADDRESS WILL BE UPDATED WITHOUT COMPLAINT. 3. A NEW PARAMETER IS NOW ACCEPTED IN THE PAR FIELD OF THE $RUN COMMAND: PAR=TESTSHAREDVM WHICH MAY BE ABBREVIATED TESTSVM, WILL CAUSE THE SPECIFIED COMPONENT TO BE TEST LOADED INTO SHARED VM, BEGINNING AT THE CURRENT END OF SHARED VM AS SPECIFIED BY ENDSEG2. THIS ACTION IS THE SAME AS PAR=NOTEST EXCEPT THAT LCSYMBOL AND ENDSEG2 WILL NOT BE UPDATED. THIS ALLOWS A NEW COMPONENT TO BE TESTED FOR REENTRANCY IN SHARED VIRTUAL MEMORY WITHOUT MAKING IT GENERALLY AVAILABLE THROUGH A REFERENCE IN LCSYMBOL. PISTLE WILL PRINT A SAMPLE DEF CARD AT THE END OF ITS LOAD PROCESS WHICH MAY BE USED TO INVOKE THE NEWLY LOADED COMPONENT VIA THE $RUN OR #CLS COMMANDS. NOTE THAT SINCE ENDSEG2 IS NOT UPDATED ANY SUBSEQUENT PISTLE OR LOADMTS RUNS WILL CLOBBER THE TEST LOADED COMPONENT. 4. THE KEYWORD SCANNER (40/1) IS NOW USED TO PROCESS PARAMETERS IN THE PAR FIELD OF THE $RUN COMMAND. AS A RESULT, PISTLE PARAMETERS MAY NOW BE SPELLED OUT IN FULL OR ABBREVIATED AS FOLLOWS: TESTUSERVM OR TEST TESTSHAREDVM OR TESTSVM NOTEST QUERY OR Q 5. ALBERTA'S UPDATE TO LOG POST-*S2L SHARED VM COMPONENT CHANGES ON THE OPERATOR'S CONSOLE IS NOW INCLUDED AS A CONDITIONAL ASSEMBLY AND IS NOW USED AT UM. 6. IF PISTLE ENCOUNTERS A NON-RECOVERABLE LOADER ERROR WHEN RUNNING IN NOTEST MODE, IT NOW SETS THE VALUE OF ENDSEG2 TO THE BEGINNING OF THE ERRONEOUS COMPONENT, INSTEAD OF THE END. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 BY RECLAIMING THIS SHARED VM SPACE, IT MIGHT BE POSSIBLE TO POST-IPL A "GOOD" VERSION OF THE BAD COMPONENT INSTEAD OF RE-IPLING. 7. IF PISTLE IS RUN WITH PAR=NOTEST FROM A TERMINAL (I.E., NOT BY *S2L), IT NOW PRINTS A NEW MESSAGE AFTER THE "POST-IPL OK" ONE THAT TELLS YOU HOW MUCH SPACE IS LEFT IN SHARED VM AFTER LOADING A COMPONENT. IF PAR=TEST WAS SPECIFIED, IT PRINTS THE SIZE OF THE TEST LOADED COMPONENT AND HOW MUCH SPACE WOULD BE LEFT IN SHARED VM IF YOU REALLY LOADED IT. ******************************************************************** PISTLE REQUIRES THE MSG ROUTINES (1023). COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 559/11, 4000/7 00559/003A PISTLE OC G SEG2:S2L 4.3T1 501 PISTLE..OC.003 1 LINE 6772 4 PAGE UM SHERRY APR. 05, 1980 18:13:10 SEG2:S2L 00559/004A PISTLE S2FILES D MTS:TST.S2FILES 4.3T1 502 PISTLE.S2FILES.D.004 1 LINE 19 1 PAGE UM DWB APR. 28, 1980 19:58:11 SEG2:S2FILES 0 A LIST OF FILES FROM WHICH PISTLE WILL LOAD PROGRAMS AT IPL. 0 Referenced by comments of: 387/9 00559/005A PISTLE WRITEUP WF W009:PISTLE.W 4.3T1 503 PISTLE.WRITEUP.WF.005 1 LINE 124 3 PAGE UM SHERRY APR. 05, 1980 18:13:14 W009:PISTLE.W 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/008A PISTLE PRINTMAP SA G SEG2:PRINTMAP(1000) 4.3T1 504 PISTLE.PRINTMAP.SA.008 1 LINE 67 2 PAGE UM SHERRY APR. 05, 1980 18:13:16 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/009A PISTLE PRINTMAP OC G SEG2:PRINTMAP(1,999) 4.3T1 505 PISTLE.PRINTMAP.OC.009 1 LINE 80 2 PAGE UM SHERRY APR. 05, 1980 18:13:18 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00559/010A PISTLE S2MAP D # MTS:TST.S2MAP UM SHERRY SEG2:S2MAP 0 FILE WHERE PISTLE WRITES THE SYSTEM MAP. 00559/011C PISTLE LOADSVM DOC WF W009:LOADSVM.W 4.3T1 506 PISTLE.LOADSVM_DOC.WF.011 1 LINE 88 3 PAGE UM SHERRY APR. 05, 1980 18:13:21 0 WRITEUP DESCRIBING THE PISTLE SUBROUTINE INTERFACE LOADSVM (559/2). 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 *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, 3031/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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 BRILL 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 BRILL 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 BRILL 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 BRILL 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 BRILL AUG. 01, 1973 23:11.40 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 BRILL 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 BRILL 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 BRILL 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 BRILL 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 BRILL 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 BRILL MAR. 06, 1974 22:01.57 00563/012 CHAR MANIP SUBRS OBJECT OC # *LIBRARY (SEE COMP 524) UM BRILL 00564/001 SYMBOL XREF PROGRAM SA G S0564 D4T2 VLO FSNAME=SYMBOL_XREF_PROGRAM..SA.001(1) 466 D4T2 466 SYMBOL_XREF_PROGRAM..SA.001 1 LINE 80 3 PAGE UM MTA JULY 28, 1977 02:53:57 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 S0564 D4T2 VLO FSNAME=SYMBOL_XREF_PROGRAM..OC.002(1) 467 D4T2 467 SYMBOL_XREF_PROGRAM..OC.002 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 02:53:58 00565/001A STOR PROTECT DIAGNOSTIC SA G MTS:TESTPROTECT(1,999) 4.3T1 507 STOR_PROTECT_DIAGNOSTIC..SA.001 1 LINE 60 3 PAGE UM MTA APR. 05, 1980 18:13:23 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; THIS MAY BE CHANGED BY PATCHING IN A NEW CONSOLE ADDRESS AT LOCATION B02. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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. THE PROGRAM WILL GO INTO WAIT STATE AT LOCATION ZERO WHEN IT FINISHES. IF YOU PATCH LOCATION E30 TO 47F00B00, THE PROGRAM WILL START OVER AGAIN AFTER TESTING ALL OF MEMORY (WITHOUT COMMENT). NOTE: IF YOU GET GET ERROR 4(14) ON EVERY HALF-PAGE, THEN PATCH THE PROGRAM BY CHANGING LOCATION F1F TO X'14'. 00565/002A STOR PROTECT DIAGNOSTIC OC G MTS:TESTPROTECT(1000) 4.3T1 508 STOR_PROTECT_DIAGNOSTIC..OC.002 1 LINE 80 1 PAGE UM MTA APR. 05, 1980 18:13:25 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/011A *PIL PILL SA G S0543 MTSPIL 'MTSPIL2' POSN=PILL.D4.3 59 4.3T1 509 PIL.PILL.SA.011 1 SEQ 80 5 PAGE UM TIFFANY APR. 05, 1980 18:15:20 0 COMPS 566/11 THROUGH 566/48 ARE THE ASMG SOURCE FOR *PIL. REQUIRES *CNFGINFODSECT (654) FOR ASSEMBLY. 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/026A *PIL WANT16 SA G S0543 MTSPIL 'MTSPIL2' POSN=WANT16.D4.3 60 4.3T1 510 PIL.WANT16.SA.026 1 SEQ 80 4 PAGE UM TIFFANY APR. 05, 1980 18:15:21 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/049A *PIL *PIL OC G *PIL 4.3T1 511 PIL.*PIL.OC.049 1 LINE 928 21 PAGE UM TIFFANY APR. 05, 1980 18:15:25 *PIL 0 ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16): NO LONGER IN SEGMENT 2, DUE TO LOW USE COUNT. ***************************************************************************** 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00567/002A *1052RTN OC O *1052RTN 4.3T1 512 1052RTN..OC.002 1 LINE 80 4 PAGE UM MTA APR. 05, 1980 18:15:27 *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/001A *MNETRTN SA G W267:MNETRTN.S(1) 4.3T1 513 MNETRTN..SA.001 1 LINE 80 44 PAGE UM EADIE APR. 05, 1980 18:15:29 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), COPY:MTS.MACROS (344/3), AND THE PEXIT MACROS (775/2). 00570/002C *MNETRTN UPDATE UC G W267:MNETRTN.UC 4.3T1 514 MNETRTN.UPDATE.UC.002 1 LINE 70 13 PAGE UM EADIE APR. 05, 1980 18:15:36 0 UPDATE TO BE APPLIED TO 570/1. 00570/003A *MNETRTN OC G *MNETRTN 4.3T1 515 MNETRTN..OC.003 1 LINE 10486 4 PAGE UM EADIE APR. 05, 1980 18:15:38 *MNETRTN 00570/004 *MNETRTN ASCII XLATE SA G S0564 D4T2 VLO FSNAME=MNETRTN.ASCII_XLATE.SA.003(1) 525 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 00570/005 *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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/004A APL LIBRARY WS NEWS D APL:001NEWS 4.3T1 516 APL_LIBRARY_WS.NEWS.D.004 1 SEQ 27576 8 PAGE UM HELFFRICH APR. 05, 1980 18:15:41 APL.:001NEWS 0 ************************************************************************************** D4.3 CHANGES: SOME NEWS ITEMS UPDATED. ************************************************************************************** 00571/005 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/006 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/007 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/008 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/009 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/010 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 00571/011 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/012 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/013 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00571/014 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/015 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/016 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/017 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/018 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/019 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/020 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/021 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/022 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/023 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 00571/024 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/025 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/026 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00571/027 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/028A APL LIBRARY WS SNOBOL D APL:005SNOBOL 4.3T1 517 APL_LIBRARY_WS.SNOBOL.D.028 1 SEQ 17176 5 PAGE UM HELFFRICH APR. 05, 1980 18:15:43 APL.:005SNOBOL 0 THIS SNOBOL INTERPRETER, WHICH DIDN'T WORK PREVIOUSLY, WAS FIXED BY A USER. 00571/029 APL LIBRARY WS SRADEMO D APL:005SRADEMO D4T2 553 APL_LIBRARY_WS.SRADEMO.D.028 1 LINE 255 9 PAGE UM HELFFRICH JULY 28, 1977 03:02:01 APL.:005SRADEMO 00571/030 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/031 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/001A BLOKLETR SUBR SA G BKLT W059:BLOKLETR.S 4.3T1 518 BLOKLETR_SUBR..SA.001 1 LINE 80 11 PAGE UM VALERIO APR. 05, 1980 18:15:45 0 SUBROUTINE CALLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS. ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16): LOWERCASE LETTERS ADDED. ***************************************************************************** 0 Referenced by comments of: 555/2 00572/002A BLOKLETR SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM VALERIO 00573/001A MTS VOLUME 5 MASTER WT S0451 MTSV5 'MTS MANUALS' POSN=NEWM6.V5 4.3T1 519 MTS_VOLUME_5.MASTER.WT.001 1 SEQ 132 248 PAGE UM MANUAL APR. 05, 1980 18:17:25 0 TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" OF THE UM MTS MANUALS (APRIL 1980). EDITOR: RICHARD A. SALISBURY 00573/002A MTS VOLUME 5 PRINT PT S0451 MTSV5 'MTS MANUALS' POSN=PRINT6.V5 4.3T1 520 MTS_VOLUME_5.PRINT.PT.002 1 SEQ 132 404 PAGE UM MANUAL APR. 05, 1980 18:17:37 0 TEXT/360 PRINT FILE. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/004A MTS VOLUME 5 INDEX SOURCE D S0451 MTSV5 'MTS MANUALS' POSN=V5INDEXSOU.5 4.3T1 521 MTS_VOLUME_5.INDEX_SOURCE.D.004 1 SEQ 145 6 PAGE UM MANUAL APR. 05, 1980 18:17:44 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 5. 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). 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 S0564 D4T2 VLO FSNAME=CVTOMR..SA.001(1) 567 D4T2 567 CVTOMR..SA.001 1 LINE 80 15 PAGE UM DWB JULY 28, 1977 03:07:26 0 SUBROUTINE CALLED BY BOTH HASP (ONLY IF FIRST CARD FOLLOWING A DECK (S8) CARD IS AN OMR CARD) AND MTS (FOR ALL OTHER CONVERSION) TO CONVERT OMR CARDS TO EBCDIC. NOTE: THIS ROUTINE CURRENTLY HANDLES THE WATERLOO OMR CARD FORMAT (2-4-6 MARK IN COLUMN 1), AND THE UM MTS-AND-FORTRAN CARD (1-5-7 MARK IN COLUMN 1). 00576/002 CVTOMR OC G # 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/002A MACHINE CHECK RECOVERY 370 MCHCCH SA G MTA:MCHCCH.S 4.3T1 522 MACHINE_CHECK_RECOVERY.37.SA.002 1 LINE 80 14 PAGE UM MTA APR. 05, 1980 18:17:48 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/003A 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 1 SUN SEP 08/96 19:03:19 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 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/006A MACHINE CHECK RECOVERY MACROS SM G MTA:MCHMAC 4.3T1 523 MACHINE_CHECK_RECOVERY.MA.SM.006 1 LINE 72 29 PAGE UM MTA APR. 05, 1980 18:17:51 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/007A MACHINE CHECK RECOVERY MCHSUBR SA G MTA:MCHSUBR(1,999) 4.3T1 524 MACHINE_CHECK_RECOVERY.MC.SA.007 1 LINE 78 12 PAGE UM MTA APR. 05, 1980 18:17:54 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 BE DELETED FROM THE SYSTEM IF NOT NEEDED. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), COPY:PSA (162), AND *CNFGINFODSECT (654). ASSEMBLE USING MCHMAC (577/6) AND COPY:SETPARM (653). 00577/008A 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). 1 SUN SEP 08/96 19:03:19 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 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:CC.MACROS (1054/3), AND COPY:FILE.MACROS (482/33). 00578/002A RSF UPDATE UC G MTS:RSFUPD 4.3T1 525 RSF.UPDATE.UC.002 1 LINE 72 9 PAGE UM MTS HELFFRICH APR. 05, 1980 18:17:56 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/003A RSF OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00578/004A RSF L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=RSF.LIST 11 4.3T1 526 RSF..L.004 1 SEQ 133 225 PAGE UM MTS HELFFRICH APR. 05, 1980 18:18:03 00579/001A SYSDEFS SA G MTS:SYSDEFS(1,999) 4.3T1 527 SYSDEFS..SA.001 1 LINE 70 3 PAGE UM MTS MTA APR. 05, 1980 18:18:07 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/36 00579/002A 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 67/37, 104/111, 482/35, 682/23, 682/40, 724/2, 752/5 00580/001A *INDEX SP O INDX S0027 DISTRB FSNAME=INDEX 4.3T1 528 INDEX..SP.001 1 LINE 80 15 PAGE UM ENGLE FEB. 20, 1980 12:05:43 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, 766/3 00580/002C *INDEX UC O S0027 DISTRB FSNAME=INDEXUPD 4.3T1 529 INDEX..UC.002 1 LINE 69 1 PAGE UM ENGLE FEB. 20, 1980 12:05:49 00580/003A *INDEX OC O *INDEX 4.3T1 530 INDEX..OC.003 1 LINE 29274 11 PAGE UM ENGLE APR. 05, 1980 18:18:14 *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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A CALC CLS SA G W070:CALC.S 4.3T1 531 CALC_CLS..SA.001 1 LINE 92 54 PAGE UM FRONCZAK APR. 05, 1980 18:18:15 0 THIS IS THE SOURCE FOR THE MTS $CALC COMMAND. THE CALC COMMAND IS IMPLEMENTED AS A COMMAND LANGUAGE SUB-SYSTEM (CLS). ASSEMBLE USING COPY:MTS.MACROS (344/3). LINES 1,5 CONTAIN MTS COMMANDS FOR ASSEMBLY. ***************************************************************************** D4.3 CHANGES: MINIMUM COMMAND LENGTH CHANGED FROM 3 TO 2. ***************************************************************************** 00585/002A CALC CLS OC G *CLSCALC 4.3T1 532 CALC_CLS..OC.002 1 LINE 80 5 PAGE UM FRONCZAK APR. 05, 1980 18:18:19 *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/70). 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 S0564 D4T2 VLO FSNAME=CHANNEL_CHECK_RECOVERY.37.SA.003(1) 636 D4T2 636 CHANNEL_CHECK_RECOVERY.37.SA.003 1 LINE 80 1 PAGE UM MTA JULY 28, 1977 03:32:09 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00589/008A CHANNEL CHECK RECOVERY A#VCCH47 SA G MTA:470CCH(1,999) 4.3T1 533 CHANNEL_CHECK_RECOVERY.A#.SA.008 1 LINE 72 11 PAGE UM MTA APR. 05, 1980 18:18:21 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/009A 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). 0 Referenced by comments of: 678/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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/008A *SPITBOL *SPITERR M *SPITERR 4.3T1 534 SPITBOL.*SPITERR.M.008 1 LINE 175 4 PAGE UM SWARTZ APR. 05, 1980 18:18:23 0 SPITBOL ERROR MESSAGES. 00590/009A *SPITBOL *SPITDEBUG SS O *SPITDEBUG 4.3T1 535 SPITBOL.*SPITDEBUG.SS.009 1 LINE 111 4 PAGE UM SWARTZ APR. 05, 1980 18:18:26 *SPITDEBUG 0 ALLOWS CONTINUING, DISPLAYING, MODIFYING, ETC. OF DATA AFTER AN ERROR IN SPITBOL. USED BY INCLUDING "-COPY *SPITDEBUG" IN THE SPITBOL SOURCE PROGRAM. USES SUBROUTINES IN UNSP:SPITLIB (590/30). USE THE "HELP" COMMAND TO EXPLAIN FUNCTIONS. ***************************************************************************** THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT: RD4.2A/RD16: BREAK COMMAND ADDED. RD4.2C: BUGS FIXED. ***************************************************************************** 0 Referenced by comments of: 590/31 00590/010A *SPITBOL NEWS FILE P S0103 FS 'FRED SWARTZ' FSNAME=SDEBUG.NEWS 4.3T1 536 SPITBOL.NEWS_FILE.P.010 1 LINE 65 1 PAGE UM SWARTZ NOV. 09, 1979 12:04:51 0 THIS FILE CONTAINS *SPITDEBUG NEWS ITEMS. 00590/011 *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/30). WRITEUP FOR THESE FUNCTIONS ARE IN UNSP:WRITEUPS (685/2). THESE FUNCTIONS SHOULD NOT BE CONFUSED WITH THOSE IN *SPITLIB. 00590/012 *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/013 *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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00590/014 *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/015 *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/016 *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/017 *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/018 *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/019 *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/020 *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/021 *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/022 *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/023 *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 00590/024 *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/025 *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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00590/026 *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/027 *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/028 *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/029 *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/30). 00590/030 *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/11, 590/29, 678/1, 737/15, 1042/73 00590/031A *SPITBOL CONVSPIT SS G UNSP:CONVSPIT(1000) 4.3T1 537 SPITBOL.CONVSPIT.SS.031 1 LINE 53 1 PAGE UM UNSP APR. 05, 1980 18:26:36 0 AN INTERACTIVE SPITBOL. USES *SPITLIB (NOT DISTRIBUTED) AND *SPITDEBUG (590/9). 00590/032A *SPITBOL CONVSPIT OE G UNSP:CONVSPIT(1,999) 4.3T1 538 SPITBOL.CONVSPIT.OE.032 1 LINE 10408 6 PAGE UM UNSP APR. 05, 1980 18:26:37 UNSP:CONVSPIT 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). 00591/002 CFDUB SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00592 A OPERATORS MANUAL WF W225:OPRML.FMT 4.3T1 539 OPERATORS_MANUAL..WF. 1 LINE 236 129 PAGE UM DONNELLY APR. 05, 1980 18:26:39 0 MTS OPERATOR'S MANUAL. 0 Referenced by comments of: 50/3, 387/22, 502/1, 610/1, 615/20, 615/41, 615/46, 642/1, 642/3, 642/9, 642/14, 655/1 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00593 A *GFINFODSECT SA G *GFINFODSECT 4.3T1 540 GFINFODSECT..SA. 1 LINE 80 4 PAGE UM HELFFRICH APR. 05, 1980 18:26:57 *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, 774/1, 1019/2, 3003/24 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, 400/16, 400/17, 495/1, 496/1, 506/7, 506/8, 513/1, 529/1, 531/6, 531/13, 540/10, 545/3, 545/4, 548/1, 551/1, 553/1, 595/6, 619/23, 634/7, 648/7, 677/1, 680/1, 706/6, 709/1, 721/1, 721/2, 721/3, 721/6, 721/9, 721/12, 727/1, 737/3, 738/1, 746/1, 749/1, 752/1, 771/1, 774/1, 1002/15, 1002/23, 1021/7, 1067/1, 3003/24, 3011/3, 3024/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/002A APL - GMRL *APLGM OE G *APLGM 4.3T1 541 APL_-_GMRL.*APLGM.OE.002 1 SEQ 2436 2 PAGE UM TIFFANY APR. 05, 1980 18:26:59 *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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00595/006A APL - GMRL APLLL0 SA G S0625 GMAPL 'APL SOURCE' FSNAME=APLLL0 4.3T1 542 APL_-_GMRL.APLLL0.SA.006 1 LINE 95 4 PAGE UM TIFFANY DEC. 21, 1979 09:31:21 0 THE SOURCE FOR *APLGM. ASSEMBLE USING *SYSMAC. COPIES *GDINFODCEST (594). ***************************************************************************** D4.3 VERSION: CHANGED SO THAT IT WOULD WORK FOR THE LATEST VERSION OF THE PL1 COMPILER (163). ***************************************************************************** 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A DASDI SA G FILE:DASDI.S 4.3T2 565 DASDI..SA.001 1 LINE 83 45 PAGE UM HELFFRICH MAY 22, 1980 01:49:09 FILE:DASDI.S 0 PROGRAM TO VAM2- OR VAMX-FORMAT DASDI 2311, 2314, 3330, 333B, 3340, 3344, AND 3350 DISKS. MARKS 3330-11 DISKS AS "333B" IN LABEL ACCORDING TO TSS CONVENTION. ASSEMBLE USING COPY:FILE.MACROS (482/33), COPY:MISC.MACROS (728), AND *SYSMAC. INPUT DESCRIBED IN SOURCE COMMENTS. 0 Referenced by comments of: 682/5 00598/002A DASDI OC G FILE:DASDI 4.3T2 566 DASDI..OC.002 1 LINE 80 14 PAGE UM HELFFRICH MAY 22, 1980 01:49:13 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. 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/001A SDS CLS CLSSOU SA G W059:SDSCLSSOU 4.3T1 543 SDS_CLS.CLSSOU.SA.001 1 LINE 75 175 PAGE UM VALERIO APR. 05, 1980 18:34:16 0 SDS, THE SYMBOLIC DEBUGGING SYSTEM. 600/1 IS THE SOURCE FOR THE CLS INTERFACE TO SDS. IT COPIES *CNFGINFODSECT (654), COPY:GLOBALS (1026/3), SDSCONSTANT (600/14), AND SDSPSECT (600/12). ASSEMBLE USING *SYSMAC, SDSMACROS (600/11), AND COPY:MTS.MACROS (344/3). 0 Referenced by comments of: 721/18 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00600/002A SDS CLS CLS OC G W059:SDSCLS 4.3T1 544 SDS_CLS.CLS.OC.002 1 LINE 80 58 PAGE UM VALERIO APR. 05, 1980 18:34:31 0 OBJECT FOR 600/1. 00600/003A SDS CLS CLI SA G W059:SDSCLISOU 4.3T1 545 SDS_CLS.CLI.SA.003 1 LINE 72 85 PAGE UM VALERIO APR. 05, 1980 18:34:39 0 THE SDS COMMAND LANGUAGE INTERPRETER. COPIES SDSBT (600/13), SDSCONSTANT (600/14), AND SDSPSECT (600/12). ASSEMBLE USING SDSMACROS (600/11), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/004A SDS CLS CLI OC G W059:SDSCLI 4.3T1 546 SDS_CLS.CLI.OC.004 1 LINE 80 34 PAGE UM VALERIO APR. 05, 1980 18:34:47 00600/005A SDS CLS IOC SA G W059:SDSIOCSOU 4.3T1 547 SDS_CLS.IOC.SA.005 1 LINE 80 18 PAGE UM VALERIO APR. 05, 1980 18:34:51 0 THE SDS I/O CONTROL MODULE. COPIES SDSPSECT (600/12), SDSCONSTANT (600/14), AND SDSBT (600/13). ASSEMBLE USING SDSMACROS (600/11), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/006A SDS CLS IOC OC G W059:SDSIOC 4.3T1 548 SDS_CLS.IOC.OC.006 1 LINE 80 14 PAGE UM VALERIO APR. 05, 1980 18:34:54 00600/007A SDS CLS SIMULATOR SA G W059:SDSSIMLSOU 4.3T1 549 SDS_CLS.SIMULATOR.SA.007 1 LINE 70 30 PAGE UM VALERIO APR. 05, 1980 18:34:56 0 THE SDS INSTRUCTION SIMULATOR. COPIES SDSPSECT (600/12) AND *CNFGINFODSECT (654). ASSEMBLE USING SDSMACROS (600/11) AND COPY:MTS.MACROS (344/3). 00600/008A SDS CLS SIMULATOR OC G W059:SDSSIML 4.3T1 550 SDS_CLS.SIMULATOR.OC.008 1 LINE 80 18 PAGE UM VALERIO APR. 05, 1980 18:34:58 00600/009A SDS CLS EDITOR SA G W059:SDSEDTRSOU 4.3T1 551 SDS_CLS.EDITOR.SA.009 1 LINE 72 38 PAGE UM VALERIO APR. 05, 1980 18:35:01 0 THE SDS EDITOR. COPIES SDSBT (600/13), SDSCONSTANT (600/14), AND SDSPSECT (600/12). ASSEMBLE USING SDSMACROS (600/11), COPY:MTS.MACROS (344/3), AND *SYSMAC. 00600/010A SDS CLS EDITOR OC G W059:SDSEDTR 4.3T1 552 SDS_CLS.EDITOR.OC.010 1 LINE 80 18 PAGE UM VALERIO APR. 05, 1980 18:35:04 00600/011A SDS CLS SDSMACROS SM G SDSM W059:SDSMACROS 4.3T1 553 SDS_CLS.SDSMACROS.SM.011 1 LINE 80 14 PAGE UM VALERIO APR. 05, 1980 18:35:06 0 SDS MACRO LIBRARY. 0 Referenced by comments of: 600/1, 600/3, 600/5, 600/7, 600/9 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00600/012A SDS CLS SDSPSECT SA G W059:SDSPSECT 4.3T1 554 SDS_CLS.SDSPSECT.SA.012 1 LINE 72 38 PAGE UM VALERIO APR. 05, 1980 18:35:09 0 COPY SECTION FOR SDS DSECTS. 0 Referenced by comments of: 600/1, 600/3, 600/5, 600/7, 600/9 00600/013A SDS CLS SDSBT SA G W059:SDSBT 4.3T1 555 SDS_CLS.SDSBT.SA.013 1 LINE 70 3 PAGE UM VALERIO APR. 05, 1980 18:35:12 0 COPY SECTION FOR BRANCH TABLES. 0 Referenced by comments of: 600/3, 600/5, 600/9 00600/014A SDS CLS SDSCONSTANT SA G W059:SDSCONSTANT 4.3T1 556 SDS_CLS.SDSCONSTANT.SA.014 1 LINE 68 1 PAGE UM VALERIO APR. 05, 1980 18:35:14 0 COPY SECTION FOR CONSTANTS. 0 Referenced by comments of: 600/1, 600/3, 600/5, 600/9 00600/015A SDS CLS OBJECT OE G *CLSSDS 4.3T1 557 SDS_CLS.OBJECT.OE.015 1 LINE 32767 88 PAGE UM VALERIO APR. 05, 1980 18:35:16 *CLSSDS 0 THE SDS OBJECT IS LOADED INTO SHARED VM BY PISTLE AT IPL. 00600/016A SDS CLS TEST PROGRAM C W059:ASMSDSTEST 4.3T1 558 SDS_CLS.TEST_PROGRAM.C.016 1 LINE 63 1 PAGE UM VALERIO APR. 05, 1980 18:35:25 0 SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAMS (600/17 AND 600/18). 00600/017A SDS CLS TEST PGM 1 SA W059:SDSTEST.S 4.3T1 559 SDS_CLS.TEST_PGM_1.SA.017 1 LINE 63 6 PAGE UM VALERIO APR. 05, 1980 18:35:27 00600/018A SDS CLS TEST PGM 1 OC W059:SDSTEST.O 4.3T1 560 SDS_CLS.TEST_PGM_1.OC.018 1 LINE 80 8 PAGE UM VALERIO APR. 05, 1980 18:35:30 00600/019A SDS CLS TEST PGM 2 SP W059:PL1TESTSOU 4.3T1 561 SDS_CLS.TEST_PGM_2.SP.019 1 LINE 92 5 PAGE UM VALERIO APR. 05, 1980 18:35:32 00600/020A SDS CLS TEST PGM 2 OC W059:PL1TEST 4.3T1 562 SDS_CLS.TEST_PGM_2.OC.020 1 LINE 80 14 PAGE UM VALERIO APR. 05, 1980 18:35:34 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 S0564 D4T2 VLO FSNAME=NOT-RESEQUENCER..SS.(1) 789 D4T2 789 NOT-RESEQUENCER..SS. 1 LINE 63 2 PAGE UM DWB JULY 28, 1977 03:55:16 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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 UC3330 # (SEE COMP 787) UM 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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/001A FILE SAVE TAPE COPY SA RSTR:FSTAPECOPY(1000) 4.3T1 563 FILE_SAVE_TAPE_COPY..SA.001 1 LINE 72 16 PAGE UM HELFFRICH APR. 05, 1980 18:35:37 RSTR:FSTAPECOPY 0 PROGRAM TO MAKE COPIES OF FILESAVE TAPES (AS PRODUCED BY 067). WILL OPTIONALLY MAKE A LISTING OF THE FILES ON THE TAPE (WITH OR WITHOUT COPYING). DOES NOT REQUIRE THAT OUTPUT TAPE BE PHYSICALLY LONGER THAN INPUT TAPE. SEE THE OPERATORS MANUAL (592) FOR USAGE DIRECTIONS. COPIES *CNFGINFODSECT (654). ASSEMBLE WITH THE FILESAVE MACROS (67/29). ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): 1) CHANGED TO FIX BUG IN INPUT TAPE REPOSITIONING WHEN AN ERROR OCCURS ON WRITING THE OUTPUT TAPE. 2) WILL NOW ACQUIRE ALL USER VM IT CAN TO BUILD FILE TABLE IF A LISTING IS BEING MADE OF THE TAPE. ***************************************************************************** 00610/002A FILE SAVE TAPE COPY OC RSTR:FSTAPECOPY(1,999) 4.3T1 564 FILE_SAVE_TAPE_COPY..OC.002 1 LINE 80 14 PAGE UM HELFFRICH APR. 05, 1980 18:35:48 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 S1143 D4.1T1 VLO FSNAME=LETGO_SUBR..SA.001(1) 376 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. 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/3 00615/002A PLOT SYSTEM PLTBGN SA G W030:PLTBGN 4.3T1 565 PLOT_SYSTEM.PLTBGN.SA.002 1 LINE 71 14 PAGE UM LIFT APR. 05, 1980 18:35:54 0 SUBROUTINE IN *PLOTSYS. ASSEMBLE USING *SYSMAC. 00615/003A PLOT SYSTEM ASM SA G W030:CCASM 4.3T1 566 PLOT_SYSTEM.ASM.SA.003 1 LINE 80 36 PAGE UM LIFT APR. 05, 1980 18:36:00 0 SUBROUTINES IN *PLOTSYS. ASSEMBLE USING PLOT MACROS (615/1) AND *SYSMAC. ***************************************************************************** D4.3 CHANGES: 1) PSYMB MOVED (NO VISIBLE EFFECTS). 2) CALCOMP STUFF CHANGED. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00615/004A PLOT SYSTEM FORT SF G W030:CCFORT 4.3T1 567 PLOT_SYSTEM.FORT.SF.004 1 LINE 76 17 PAGE UM LIFT APR. 05, 1980 18:36:05 0 SUBROUTINES IN *PLOTSYS. ***************************************************************************** D4.3 CHANGES: 1) CALCOMP STUFF CHANGED. 2) PPSYM ELIMINATED. 3) BUG IN PFLINE FIXED. ***************************************************************************** 00615/005 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 CHARACTER GENERATION ROUTINE WHICH USES 256-CHARACTER ALPHABETS, ALLOWS SLANTING OF LETTERS, AND CHANGING PROPORTIONS AND SPACING. SEE THE INSTALLATION INSTRUCTIONS (615/23) FOR AN EXPLANATION OF THE &WHAT ASSEMBLY PARAMETER. COPIES CBDSECT (615/7). 0 Referenced by comments of: 532/1, 615/6, 615/7 00615/006 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/5). THE STANDARD ALPHABET ACTUALLY RESIDES HERE. HOWEVER, PALPHA CAN OBTAIN ALTERNATE ALPHABETS FROM ETC:PLOTALPHA (615/8) OR FROM A USER FILE. COPIES CBDSECT (615/7). 0 Referenced by comments of: 615/7, 615/8 00615/007 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/5) AND PALPHA (615/6) WHICH DESCRIBES THE STRUCTURE OF CHARACTER SETS (ALPHABETS). 0 Referenced by comments of: 615/5, 615/6 00615/008 PLOT SYSTEM ETC:PLOTALPHA D ETC:PLOTALPHA 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/6); THE FORMAT OF THE CHARACTER SETS IS DESCRIBED IN MTS VOLUME 11 (AUGUST 1978). 0 Referenced by comments of: 615/6, 3018/138 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00615/009A PLOT SYSTEM *PLOTSYS OL G *PLOTSYS 4.3T1 568 PLOT_SYSTEM.*PLOTSYS.OL.009 1 LINE 5456 23 PAGE UM LIFT APR. 05, 1980 18:36:10 *PLOTSYS 0 OBJECT LIBRARY GENERATED FROM 615/2 + 615/3 + 615/4 + 615/5 + 615/6. 0 Referenced by comments of: 3018/140 00615/010A PLOT SYSTEM PLOTTER SA G W030:PLOTTER 4.3T1 569 PLOT_SYSTEM.PLOTTER.SA.010 1 LINE 72 20 PAGE UM LIFT APR. 05, 1980 18:36:13 0 PLOTTER ROUTINE (FOR CALCOMP 936 AND 1051) AND ZIGZAG ROUTINE (FOR CALCOMP 936 ONLY). THESE ROUTINES ARE USED TO READ AND TRANSLATE PDF'S FOR *CCQUEUE (615/16) AND SYS:CCP (615/18). SEE THE INSTALLATION INSTRUCTIONS (615/23) FOR AN EXPLANATION OF THE &WHAT ASSEMBLY PARAMETER WHICH CONTROLS THE PRODUCTION OF DIFFERENT VERSIONS. ASSEMBLE USING W030:PLOTTER.MAC (615/14). ********************************************************************************** D4.3 CHANGE: BUG IN CHECKING LEGALITY OF PEN COMBINATIONS FIXED. ********************************************************************************** 00615/011C PLOT SYSTEM ZIGZAG 1051 SA G W030:ZIGZAG 4.3T1 570 PLOT_SYSTEM.ZIGZAG_1051.SA.011 1 LINE 80 8 PAGE UM LIFT APR. 05, 1980 18:36:17 0 THIS SUBROUTINE REPLACES THE ZIGZAG ROUTINE IN 615/10 FOR USE WITH THE CALCOMP 1051. 00615/012C PLOT SYSTEM ENDPLOT SA G W030:ENDPLOT 4.3T1 571 PLOT_SYSTEM.ENDPLOT.SA.012 1 LINE 80 2 PAGE UM LIFT APR. 05, 1980 18:36:20 0 SUBROUTINE TO PRINT "END OF PLOTS ....." FOR PLOTCON (615/20). 00615/013C PLOT SYSTEM TEARLINE SA G W030:TEARLINE 4.3T1 572 PLOT_SYSTEM.TEARLINE.SA.013 1 LINE 80 3 PAGE UM LIFT APR. 05, 1980 18:36:22 0 SUBROUTINE TO PUT SPACE AND DASHED LINES (TEAR HERE) BETWEEN PLOTS. IT HAS BEEN ADDED AS A SEPARATE SUBROUTINE BECAUSE THE OPERATIONS STAFF AT MICHIGAN LIKES TO VARY THIS SORT OF THING. 00615/014A PLOT SYSTEM MACROS SM G W030:PLOTTER.MAC 4.3T1 573 PLOT_SYSTEM.MACROS.SM.014 1 LINE 66 3 PAGE UM LIFT APR. 05, 1980 18:36:25 0 MACRO LIBRARY USED BY POST-PROCESSING ROUTINES. 0 Referenced by comments of: 615/10, 615/15, 615/17, 615/20, 615/29, 615/31, 615/38, 615/44 00615/015A PLOT SYSTEM *CCQUEUE SA G W030:CCQ 4.3T1 574 PLOT_SYSTEM.*CCQUEUE.SA.015 1 LINE 70 19 PAGE UM LIFT APR. 05, 1980 18:36:27 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/14). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00615/016A PLOT SYSTEM *CCQUEUE OE G *CCQUEUE 4.3T1 575 PLOT_SYSTEM.*CCQUEUE.OE.016 1 SEQ 6214 6 PAGE UM LIFT APR. 05, 1980 18:36:30 *CCQUEUE 0 PROGRAM TO QUEUE USERS PLOTS FOR POST-PROCESSING BY *CCP. ADDS A LINE TO *CCPFILE (NOT DISTRIBUTED) INDICATING THE PLOT TO BE PROCESSED. OBJECT FROM 615/15 + 615/10 + 615/5 + 615/6. 0 Referenced by comments of: 615/10 00615/017A PLOT SYSTEM CCP SA G W030:CCP 4.3T1 576 PLOT_SYSTEM.CCP.SA.017 1 LINE 68 19 PAGE UM LIFT APR. 05, 1980 18:36:32 0 MAIN PROGRAM FOR *CCP PLUS SUBROUTINE TAPECON. COPIES COPY:GLOBALS (1026/3). ASSEMBLE USING W030:PLOTTER.MAC (615/14). 0 Referenced by comments of: 615/37 00615/018A PLOT SYSTEM CCP OE G SYS:CCP 4.3T1 577 PLOT_SYSTEM.CCP.OE.018 1 LINE 5252 5 PAGE UM LIFT APR. 05, 1980 18:36:35 SYS.:CCP 0 POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/19) USED BY THE SYSTEM OPERATOR TO GENERATE PLOT TAPES. CONSISTS OF OBJECT FROM 615/17 + 615/10 + 615/5 + 615/6. 0 Referenced by comments of: 615/10, 615/19, 615/35 00615/019 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/18). 0 Referenced by comments of: 615/18, 615/31, 615/33, 615/38 00615/020A PLOT SYSTEM PLOTCON SA G W030:PLOTCON 4.3T1 578 PLOT_SYSTEM.PLOTCON.SA.020 1 LINE 70 18 PAGE UM LIFT APR. 05, 1980 18:36:37 0 PROGRAM USED BY THE OPERATOR TO PLOT THE QUEUED PLOTS ON THE UM ONLINE PLOTTER. SEE THE WRITEUP IN THE OPERATORS' MANUAL (592). ASSEMBLEUSING W030:PLOTTER.MAC (615/14). ********************************************************************************** D4.3 CHANGE: COPIES PDF'S FROM TAPE TO FILE, THEN TRANSLATES THEM TO PLOTTER INSTRUCTIONS AS IT PLOTS THEM. ********************************************************************************** 0 Referenced by comments of: 615/12, 615/36 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00615/021A PLOT SYSTEM PLOTCON OE G SYS:PLT 4.3T1 579 PLOT_SYSTEM.PLOTCON.OE.021 1 LINE 4228 9 PAGE UM LIFT APR. 05, 1980 18:36:46 SYS.:PLT 0 OBJECT FOR 615/5, 615/6, 615/10 (PLOTTER AND ZIGZAG), 615/12, 615/13, AND 615/20. THIS FILE IS FOR USE WITH THE CALCOMP 936. 00615/022C PLOT SYSTEM PLOTCON OE G SYS:PLT1 4.3T1 580 PLOT_SYSTEM.PLOTCON.OE.022 1 LINE 4192 8 PAGE UM LIFT APR. 05, 1980 18:36:49 0 OBJECT FOR 615/5, 615/6, 615/10 (PLOTTER ONLY), 615/11, 615/12, 615/13, AND 615/20. THIS FILE IS FOR USE WITH THE CALCOMP 1051. 00615/023A PLOT SYSTEM INSTALLATION P S0876 CCGHL 'CALCOMP'FSNAME=PLOTINFO 4.3T1 581 PLOT_SYSTEM.INSTALLATION.P.023 1 LINE 71 3 PAGE UM LIFT FEB. 20, 1980 19:28:49 0 Referenced by comments of: 615/5, 615/10 00615/024 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/025 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/026 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/027 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/028 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/29). INVOKED BY ENTERING "MTS *CCT" ON THE OPERATORS CONSOLE. 00615/029 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/14). 1 SUN SEP 08/96 19:03:19 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 Referenced by comments of: 615/28 00615/030 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/031 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/19), AND (2) CONSTRUCTING PLOT PRIORITY INFORMATION (IN THE FILE SYS:CCPPRIO (615/33)) FOR USE BY *CCP. ASSEMBLE USING W030:PLOTTER.MAC (615/14). 00615/032 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/033 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/19) AND *CCD (615/43). 0 Referenced by comments of: 615/31, 615/44 00615/034 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/35 00615/035 PLOT SYSTEM BACKUPQ D # MTS:TST.EMPTY UM LIFT SYS:BACKUPQ 0 USED BY CCP (615/18) TO BACKUP *CCPFILE (615/34). 00615/036 PLOT SYSTEM PLOTDIR D # MTS:TST.EMPTY UM LIFT SYS:PLOTDIR 0 PLOT DIRECTORY FILE USED BY PLOTCON (615/20) TO POINT TO PLOT DATA STORED IN OTHER PERMANENT FILES, WHICH IT WILL CREATE. 00615/037 PLOT SYSTEM PLOTREBAT D # MTS:TST.EMPTY UM LIFT SYS:PLOTREBAT 0 DATA WRITTEN INTO THIS FILE BY CCP (615/17) FOR CANCELLED PLOTS IS USED BY CCREBATE (632/9) TO GENERATE INPUT RECORDS FOR THE REBATE PROGRAM. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00615/038 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/19). INSTRUCTIONS WITHIN AND IN OPERATOR'S MANUAL. SOURCE IN LINES (1,999). ASSEMBLE USING W030:PLOTTER.MAC (615/14). 00615/039 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/40 00615/040 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/39). 00615/041 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/042 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/43 00615/043 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/42). 0 Referenced by comments of: 615/33 00615/044 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/33) WHICH CONTAINS THE PLOT PRIORITY INFORMATION. SOURCE IN LINES (1,999). ASSEMBLE USING W030:PLOTTER.MAC (615/14). 1 SUN SEP 08/96 19:03:19 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 Referenced by comments of: 615/46 00615/045 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/046 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/44) FROM OPERATOR'S CONSOLE. DOCUMENTATION IS IN THE OPERATOR'S MANUAL (592). 00615/047 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/001A TERM USAGE STATISTICS SA G DCST WSG:DCSTAT(1,999) 4.3T1 582 TERM_USAGE_STATISTICS..SA.001 1 LINE 80 22 PAGE UM WSG APR. 05, 1980 18:40:40 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). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND THE USAGE STATISTICS MACROS (617/3). 00616/002A TERM USAGE STATISTICS OC G WSG:DCSTAT(1000) 4.3T1 583 TERM_USAGE_STATISTICS..OC.002 1 LINE 80 7 PAGE UM WSG APR. 05, 1980 18:40:47 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. ASSEMBLE USING COPY:MTS.MACROS (344/3) AND THE USAGE STATISTICS MACROS (617/3). 00617/002 USAGE STATISTICS STATIO SUBR SA G 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. 0 Referenced by comments of: 616/1, 617/1 00617/004 USAGE STATISTICS OC G 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00619/001 *ASMT *ASMTSYSMAC SM O *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. *ASMTSYSMAC IS THE ASMT VERSION OF *SYSMAC. 0 Referenced by comments of: 225/1 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/024A *ASMT *ASMT OE O *ASMT 4.3T1 584 ASMT.*ASMT.OE.024 1 LINE 3236 101 PAGE UM TIFFANY APR. 05, 1980 18:40:50 *ASMT 0 ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16): 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. 1 SUN SEP 08/96 19:03:19 Page 317 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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 COPY:STATDSECT SA G # (OBSOLETED BY 344/3) D4T2 872 STAT_DSECT..SA. 1 LINE 80 3 PAGE UM AUG. 14, 1977 22:00:00 0 THE STAT DSECT IS AVAILABLE FROM THE STATFMT MACRO IN COPY:MTS.MACROS (344/3). 00620/002 STAT DSECT GOM STAT DSECT 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/001A DIRECT ACCESS ERROR LOG *DLG C *DLG 4.3T1 585 DIRECT_ACCESS_ERROR_LOG.*.C.001 1 LINE 36 1 PAGE UM MTA APR. 05, 1980 18:40:57 *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/002A DIRECT ACCESS ERROR LOG READ3330LOG SA G MTA:READ3330LOG(1,999) 4.3T1 586 DIRECT_ACCESS_ERROR_LOG.R.SA.002 1 LINE 72 3 PAGE UM MTA APR. 05, 1980 18:40:59 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/003A DIRECT ACCESS ERROR LOG READ3330LOG OC G MTA:READ3330LOG(1000) 4.3T1 587 DIRECT_ACCESS_ERROR_LOG.R.OC.003 1 LINE 80 3 PAGE UM MTA APR. 05, 1980 18:41:02 00621/004A DIRECT ACCESS ERROR LOG PRINT UC 3330 SA G MTA:PRINTUC3330(1,999) 4.3T1 588 DIRECT_ACCESS_ERROR_LOG.P.SA.004 1 LINE 57 1 PAGE UM MTA APR. 05, 1980 18:41:05 MTA.:PRINTUC3330 0 PROGRAM TO READ UNIT CHECK LOG RECORDS, AS SAVED BY READ3330LOG (621/2), OR THE UNIT CHECK ROUTINES (787). READS FROM SCARDS, PRINTS ON SPRINT. IT IGNORES ALL RECORDS THAT ARE NOT OF TYPE 4. "PAR=ERRORS" MEANS TO PRINT ONLY THOSE RECORDS WHICH ARE REALLY ERRORS. CALLS READBFR ROUTINE (709) AND PRUC3330 (621/10). 1 SUN SEP 08/96 19:03:19 Page 318 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COPIES COPY:CMDAREADSECT (531/18). 00621/005A DIRECT ACCESS ERROR LOG PRINT UC 3330 OC G MTA:PRINTUC3330(1000) 4.3T1 589 DIRECT_ACCESS_ERROR_LOG.P.OC.005 1 LINE 80 1 PAGE UM MTA APR. 05, 1980 18:41:07 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/008A DIRECT ACCESS ERROR LOG SORT AND PRINT SA G MTA:PRINTUC 4.3T1 590 DIRECT_ACCESS_ERROR_LOG.S.SA.008 1 LINE 72 11 PAGE UM MTA APR. 05, 1980 18:41:10 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/009A DIRECT ACCESS ERROR LOG SORT AND PRINT OC G MTA:PUC 4.3T1 591 DIRECT_ACCESS_ERROR_LOG.S.OC.009 1 LINE 80 7 PAGE UM MTA APR. 05, 1980 18:41:18 MTA.:PUC 0 HAS A "$CONTINUE WITH MTA:PRUC3330(1000)+MTS:UBCDATEX RETURN" RECORD. THE REFERENCE TO MTS:UBCDATEX IS FOR THE OBJECT FOR JVCT (674). 00621/010A DIRECT ACCESS ERROR LOG PRUC3330 SA G MTA:PRUC3330(1,999) 4.3T1 592 DIRECT_ACCESS_ERROR_LOG.P.SA.010 1 LINE 71 3 PAGE UM MTA APR. 05, 1980 18:41:21 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/011A DIRECT ACCESS ERROR LOG PRUC3330 OC G MTA:PRUC3330(1000) 4.3T1 593 DIRECT_ACCESS_ERROR_LOG.P.OC.011 1 LINE 80 3 PAGE UM MTA APR. 05, 1980 18:41:24 00621/012 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 S0564 D4T2 VLO FSNAME=GDINF_SUBR..SA.001(1) 887 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/001A *3284RTN DSR SA B S0683 OGDEN FSNAME=3284.S 4.3T1 594 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00628/002A *3284RTN DSR OC B *3284RTN 4.3T1 595 3284RTN.DSR.OC.002 1 LINE 80 1 PAGE UM OGDEN APR. 05, 1980 18:45:20 *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/001A *3270RTN SA G W261:3270.S 4.3T1 596 3270RTN..SA.001 1 LINE 73 86 PAGE UBC SAYLE BLOCK APR. 05, 1980 18:45:22 0 DSR FOR IBM 3277 (MODELS 1 AND 2), 3278 (MODELS 1, 2, 3, AND 4), 3066, AND 3036 DISPLAY TERMINALS. USES THE TR3270 TABLES (629/12). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:MISC.MACROS (728). COPIES *CNFGINFODSECT (654). 0 Referenced by comments of: 629/2, 629/12 00629/002A *3270RTN UPDATE UC G W261:3270.UPD 4.3T1 597 3270RTN.UPDATE.UC.002 1 LINE 98 27 PAGE UBC SAYLE BLOCK APR. 05, 1980 18:45:34 0 UPDATE TO PRODUCE CURRENT *3270RTN SOURCE FROM D4.2 SOURCE (629/1). 00629/003A *3270RTN IO3066 SA G SCON S0683 OGDEN FSNAME=IO3066.S 4.3T1 598 3270RTN.IO3066.SA.003 1 LINE 80 14 PAGE UM BLOCK 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/004A *3270RTN ACTIVITY SUBR SA G S0683 OGDEN FSNAME=ACTIVITY.S(4) 4.3T2 567 3270RTN.ACTIVITY_SUBR.SA.004 1 LINE 80 11 PAGE UBC SAYLE BLOCK JAN. 31, 1980 01:17:33 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/005A *3270RTN OC G *3270RTN 4.3T1 599 3270RTN..OC.005 1 LINE 18926 9 PAGE UBC SAYLE BLOCK APR. 05, 1980 18:45:46 *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 BLOCK 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00629/007 *3270RTN GRAB3270 OC G SEG2:GRAB3270 D4.2T2 532 3270RTN.GRAB3270.OC.005 1 LINE 80 1 PAGE UBC SAYLE BLOCK 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 BLOCK 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 BLOCK APR. 30, 1978 14:24:17 00629/010A *3270RTN *3066RTN OC G *3066RTN 4.3T1 600 3270RTN.*3066RTN.OC.010 1 LINE 24 1 PAGE UBC SAYLE BLOCK APR. 05, 1980 18:45:48 *3066RTN 0 CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD. 00629/011A *3270RTN *3036RTN OC G *3036RTN 4.3T1 601 3270RTN.*3036RTN.OC.011 1 LINE 24 1 PAGE UBC SAYLE BLOCK APR. 05, 1980 18:45:51 *3036RTN 0 CONTAINS ONLY A "$CONTINUE WITH *3270RTN" RECORD. 00629/012A *3270RTN TR3270 SA G S0683 OGDEN FSNAME=TR3270.S 4.3T1 602 3270RTN.TR3270.SA.012 1 LINE 72 3 PAGE UM BLOCK 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: 628/1, 629/1, 634/1, 648/4 00629/013A *3270RTN TR3270 OC G SEG2:TR3270 4.3T1 603 3270RTN.TR3270.OC.013 1 LINE 80 4 PAGE UM BLOCK APR. 05, 1980 18:45:57 SEG2:TR3270 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00631/001A ACCOUNTING CLS CLSTV SA G CLST S0027 DISTRB FSNAME=CLSTV 4.3T1 604 ACCOUNTING_CLS.CLSTV.SA.001 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 10:48:08 0 PROGRAM TO PRODUCE CLSTRANSVEC WHICH IS A COPY SECTION FOR ACCCLS. COPIES GRDEF (104/70). ASSEMBLE USING COPY:MTS.MACROS (344/3). 00631/002C ACCOUNTING CLS CLSTV UC G S0027 DISTRB FSNAME=CLSTVUPD 4.3T1 605 ACCOUNTING_CLS.CLSTV.UC.002 1 LINE 49 1 PAGE UM ENGLE FEB. 20, 1980 10:48:14 0 Referenced by comments of: 631/4 00631/003A ACCOUNTING CLS CLSTV OC G CLST S0027 DISTRB FSNAME=CLST 4.3T1 606 ACCOUNTING_CLS.CLSTV.OC.003 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 10:48:24 0 Referenced by comments of: 631/5 00631/004A ACCOUNTING CLS CLSTRANSVEC SA G S0027 DISTRB FSNAME=CLSTRANSVEC 4.3T1 607 ACCOUNTING_CLS.CLSTRANSVE.SA.004 1 LINE 19 1 PAGE UM ENGLE FEB. 20, 1980 10:49:09 0 COPY SECTION FOR ACCCLS PRODUCED BY RUNNING CLSTV (631/2). 00631/005A ACCOUNTING CLS ACCCLS SA G ACLS S0027 DISTRB FSNAME=ACCCLS 4.3T1 608 ACCOUNTING_CLS.ACCCLS.SA.005 1 LINE 80 6 PAGE UM ENGLE FEB. 20, 1980 10:52:14 0 INTERFACE BETWEEN ACCOUNTING CLS CALL AND ACCMXMAT. COPIES GRDEF (104/70) AND CLSTRANSVEC (631/3). 0 Referenced by comments of: 631/15 00631/006C ACCOUNTING CLS ACCCLS UC G S0027 DISTRB FSNAME=ACCCLSUPD 4.3T1 609 ACCOUNTING_CLS.ACCCLS.UC.006 1 LINE 65 1 PAGE UM ENGLE FEB. 20, 1980 10:53:07 0 Referenced by comments of: 104/68 00631/007A ACCOUNTING CLS ACCCLS OC G ACLS S0027 DISTRB FSNAME=ACLS 4.3T1 610 ACCOUNTING_CLS.ACCCLS.OC.007 1 LINE 80 3 PAGE UM ENGLE FEB. 20, 1980 10:53:13 00631/008A ACCOUNTING CLS ACCMXMAT SA G AMXM S0027 DISTRB FSNAME=ACCMXMAT 4.3T1 611 ACCOUNTING_CLS.ACCMXMAT.SA.008 1 LINE 80 58 PAGE UM ENGLE FEB. 20, 1980 11:17:25 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/68) 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. ********************************************************************************** D4.3 VERSION: N.B. THE INCLUSION OF STATUS (104/17) HAS NOT BEEN ANNOUNCED AND SPECIFICATIONS ARE SUBJECT TO CHANGE. IT SHOULD BE CONSIDERED EXPERIMENTAL. ********************************************************************************** 1 SUN SEP 08/96 19:03:19 Page 323 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 104/69, 631/15 00631/009A ACCOUNTING CLS ACCMXMAT UC G S0027 DISTRB FSNAME=ACCMXMATUPD 4.3T1 612 ACCOUNTING_CLS.ACCMXMAT.UC.009 1 LINE 71 2 PAGE UM ENGLE FEB. 20, 1980 11:17:33 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00631/010A ACCOUNTING CLS ACCMXMAT OC G S0027 DISTRB FSNAME=AMXM 4.3T1 613 ACCOUNTING_CLS.ACCMXMAT.OC.010 1 LINE 80 13 PAGE UM ENGLE FEB. 20, 1980 11:17:42 0 Referenced by comments of: 631/15 00631/011 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. 00631/012 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: 104/1, 631/15 00631/013 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/70). 00631/014 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 00631/015A ACCOUNTING CLS *CLSACC OE G *CLSACC 4.3T1 614 ACCOUNTING_CLS.*CLSACC.OE.015 1 SEQ 12244 10 PAGE UM ENGLE APR. 05, 1980 19:11:24 *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/105) + DIRECTRY (104/60) + ACCIO (104/25) + LOG (104/144) + FILENAME (104/58) +ACUSPRNT (631/10) + STATUS (104/17) + FASTIOCK (631/12) + IOLOKCK (104/114) + TIMETRP (104/96) + *LCS (164). THIS FILE MUST BE PERMITTED AS FOLLOWS: U/N,R PKEY=*ACC ********************************************************************************** D4.3 VERSION: N.B. THE INCLUSION OF STATUS (104/17) HAS NOT BEEN ANNOUNCED AND SPECIFICATIONS ARE SUBJECT TO CHANGE. IT SHOULD BE CONSIDERED EXPERIMENTAL. ********************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00631/016 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/25 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/41). COPIES GRDEF (104/70), COPY:RATEVEC (651/2), AND ACCFORMAT (104/1). 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/41). 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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/37, 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/002A OPERATOR JOB UPDATE UC G S0683 OGDEN FSNAME=OPUPD 4.3T1 615 OPERATOR_JOB.UPDATE.UC.002 1 LINE 94 3 PAGE UM OGDEN NOV. 10, 1979 17:22:58 00634/003A OPERATOR JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00634/004A OPERATOR JOB CONSIO SA G CONS S0683 OGDEN FSNAME=CONSIO.S 4.3T1 616 OPERATOR_JOB.CONSIO.SA.004 1 LINE 80 14 PAGE UM OGDEN SEP. 25, 1979 03:31:18 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 MAY BE ASSEMBLED WITH &OPERJOB=0 TO REDUCE ITS SIZE. COPIES COPY:GLOBALS (1026/3), COPY:LLMPSEQU (087), AND COPY:PSA (162). ASSEMBLE USING COPY:SETPARM (653) AND COPY:MISC.MACROS (728). 00634/005A OPERATOR JOB CONSIO OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00634/006A OPERATOR JOB WRITEUP WF S0683 OGDEN FSNAME=OP.F 4.3T1 617 OPERATOR_JOB.WRITEUP.WF.006 1 LINE 143 7 PAGE UM OGDEN APR. 07, 1979 02:25:31 0 OPERATOR'S GUIDE TO USING THE IBM 3270 OPERATOR'S CONSOLE. 00634/007A OPERATOR JOB CONSOLE SA G MTS:CONSOLE(1000) 4.3T1 618 OPERATOR_JOB.CONSOLE.SA.007 1 LINE 68 4 PAGE UBC O'REILLY OGDEN APR. 05, 1980 19:18:17 MTS:CONSOLE 0 PROGRAM TO DISPLAY THE OPERATORS' CONSOLE ON A 3270 TYPE TERMINAL. COPIES *GDINFODSECT (594). 00634/008A OPERATOR JOB CONSOLE OC G MTS:CONSOLE(1,999) 4.3T1 619 OPERATOR_JOB.CONSOLE.OC.008 1 LINE 80 4 PAGE UBC O'REILLY OGDEN APR. 05, 1980 19:18:19 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:CC.MACROS (1054/3). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00635/002A FSUB UPDATE UC G MTS:FSUBUPD 4.3T1 620 FSUB.UPDATE.UC.002 1 LINE 72 22 PAGE UM MTS HELFFRICH APR. 05, 1980 19:18:22 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/003A FSUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00635/004A FSUB L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=SUBR.LIST 18 4.3T1 621 FSUB..L.004 1 SEQ 133 253 PAGE UM MTS HELFFRICH APR. 05, 1980 19:19:56 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:CC.MACROS (1054/3). 0 Referenced by comments of: 535/3 00636/002A CMDS UPDATE UC G MTS:CMDSUPD 4.3T1 622 CMDS.UPDATE.UC.002 1 LINE 80 38 PAGE UM MTS HELFFRICH APR. 05, 1980 19:20:00 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/003A CMDS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00636/004A CMDS L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=CMDS.LIST 3 4.3T1 623 CMDS..L.004 1 SEQ 133 472 PAGE UM MTS HELFFRICH APR. 05, 1980 19:20:30 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:CC.MACROS (1054/3). 00637/002A DSRS UPDATE UC G MTS:DSRSUPD 4.3T1 624 DSRS.UPDATE.UC.002 1 LINE 71 11 PAGE UM MTS HELFFRICH APR. 05, 1980 19:20:36 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. 0 Referenced by comments of: 16/1 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00637/003A DSRS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00637/004A DSRS L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DSRS.LIST 5 4.3T1 625 DSRS..L.004 1 SEQ 133 160 PAGE UM MTS HELFFRICH APR. 05, 1980 19:20:42 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:CC.MACROS (1054/3). 00638/002A USUB UPDATE UC G MTS:USUBUPD 4.3T1 626 USUB.UPDATE.UC.002 1 LINE 80 28 PAGE UM MTS HELFFRICH APR. 05, 1980 19:20:44 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/003A USUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00638/004A USUB L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=USUB.LIST 4 4.3T1 627 USUB..L.004 1 SEQ 133 166 PAGE UM MTS HELFFRICH APR. 05, 1980 19:20:55 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:CC.MACROS (1054/3). 00639/002A DSRI UPDATE UC G MTS:DSRIUPD 4.3T1 628 DSRI.UPDATE.UC.002 1 LINE 72 14 PAGE UM MTS HELFFRICH APR. 05, 1980 19:20:57 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/003A DSRI OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00639/004A DSRI L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=DSRI.LIST 6 4.3T1 629 DSRI..L.004 1 SEQ 133 108 PAGE UM MTS HELFFRICH APR. 05, 1980 19:21:03 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/006A MERIT UTILITIES SETDATE SF G SETD MNET:SETDATE(1000) 4.3T1 630 MERIT_UTILITIES.SETDATE.SF.006 1 LINE 80 6 PAGE UM OGDEN APR. 05, 1980 19:21:06 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 00642/007A MERIT UTILITIES SETDATE OE G MNET:SETDATE(1,999) 4.3T1 631 MERIT_UTILITIES.SETDATE.OE.007 1 LINE 5038 4 PAGE UM OGDEN APR. 05, 1980 19:21:07 00642/008A MERIT UTILITIES SETDATE WF S0683 OGDEN FSNAME=SETDATE.F 4.3T1 632 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/40 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/015A MERIT UTILITIES MUP SG G S0683 OGDEN FSNAME=MUP.S 4.3T1 633 MERIT_UTILITIES.MUP.SG.015 1 LINE 111 3 PAGE UM OGDEN JAN. 31, 1980 01:26:30 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/20, 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 USING MERIT NETWORK DEVICES. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 0 Referenced by comments of: 642/15 00642/017A MERIT UTILITIES CKNET SUBR SG G S0683 OGDEN FSNAME=CKNET.S 4.3T1 634 MERIT_UTILITIES.CKNET_SUB.SG.017 1 LINE 99 2 PAGE UM OGDEN JULY 28, 1979 13:36:29 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/019A MERIT UTILITIES MUP OC G MNET:MUP 4.3T1 635 MERIT_UTILITIES.MUP.OC.019 1 LINE 2132 5 PAGE UM OGDEN APR. 05, 1980 19:23:50 0 OBJECT FOR 642/15, 642/16, 642/17, 642/18, AND 734/3. 00642/020 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00642/021 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/022 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/023 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/024 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 00642/025A MERIT UTILITIES CONSOLE SG G MNET:CONSOLE(1000) 4.3T1 636 MERIT_UTILITIES.CONSOLE.SG.025 1 LINE 95 4 PAGE UM OGDEN APR. 05, 1980 19:23:53 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/026A MERIT UTILITIES CONSOLE OC G MNET:CONSOLE(1,999) 4.3T1 637 MERIT_UTILITIES.CONSOLE.OC.026 1 LINE 3910 6 PAGE UM OGDEN APR. 05, 1980 19:23:56 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. 0 Referenced by comments of: 643/3 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 00643/003C PAGLOAD *PAG C *PAG 4.3T1 638 PAGLOAD.*PAG.C.003 1 LINE 46 1 PAGE UM MTA APR. 22, 1980 12:45:18 *PAG 0 COMMAND FILE USED TO RUN THE PAGLOAD PROGRAM (643/1) TO GENERATE AN ARTIFICIAL PAGE LOAD. INVOKED BY ENTERING "MTS *PAG" ON THE OPERATORS CONSOLE. 00644 DISK SPACE # (OBSOLETED BY COMP. 073) D4T2 978 DISK_SPACE..SA.001 1 LINE 72 3 PAGE UBC JULY 28, 1977 21:47:24 0 PROGRAM TO PRINT AVAILABLE DISK SPACE. ASSEMBLE USING COPY:FILE.MACROS (482/33). 1 SUN SEP 08/96 19:03:19 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 Referenced by comments of: 73/2 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). 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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/001A TASKSTAT SUBR SA G TKST S0683 OGDEN FSNAME=TASKSTAT.S 4.3T1 639 TASKSTAT_SUBR..SA.001 1 LINE 80 9 PAGE UM OGDEN MAR. 13, 1980 19:13:46 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 = UNUSED 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. 1 SUN SEP 08/96 19:03:19 Page 335 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CALLED BY TASKS JOB (019), SSRTN (413/1), LOADCLAS (540/8), THE 3270 DSR %ACTIVITY COMMAND (629/4), PWCT PGM (540/27), AND GTUNIT (540/18). THE %ACTIVITY COMMAND CALLS AN ALTERNATE ENTRY POINT NAMED PREVSTAT, WHICH REQUIRES AN ADDITIONAL PARAMETER (SA) WHICH IS A SAVE AREA CONTAINING THE TASK'S GR0, GR1, AND GR2 FOR THE NEXT LOWER LOCAL CPU QUEUE LEVEL AND USES THE FOURTH PARAMETER (PSW) AS AN INPUT RATHER THAN AN OUTPUT ARGUMENT. COPIES COPY:LLMPSEQU (087), *CNFGINFODSECT (654), COPY:GLOBALS (1026/3), AND COPY:JOBSTA (413/9). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 400/10, 413/1, 540/8, 540/18 00647/002A 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/002A EDITOR CMMDS A TO M SA G W078:ED.CMDATOM.S 4.3T1 640 EDITOR.CMMDS_A_TO_M.SA.002 1 LINE 142 64 PAGE UM GOODRICH APR. 22, 1980 12:48:30 0 ASSEMBLE WITH *ASMH (737) USING THE EDITOR MACRO LIBRARY (648/16); *ASMG WILL PRODUCE WARNING MESSAGES. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. 00648/003A EDITOR CMMDS N TO Z SA G W078:ED.CMDNTOZ.S 4.3T1 641 EDITOR.CMMDS_N_TO_Z.SA.003 1 LINE 142 31 PAGE UM GOODRICH APR. 22, 1980 12:51:59 0 ASSEMBLE WITH *ASMH (737)USING THE EDITOR MACRO LIBARY (648/16); *ASMG WILL WILL PRODUCE WARNING MESSAGES. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. 0 Referenced by comments of: 648/8 00648/004A EDITOR VISUAL CMMD SA G W078:ED.VISUAL.S 4.3T1 642 EDITOR.VISUAL_CMMD.SA.004 1 LINE 141 26 PAGE UM GOODRICH APR. 22, 1980 12:53:07 0 ASSEMBLE WITH *ASMH (737)USING THE EDITOR MACRO LIBRARY (648/16); *ASMG WILL PRODUCE WARNING MESSAGES. USES TR3270 (629/12). FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. ***************************************************************************** THE FOLLOWING HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16): CODE TO DIFFERENTIATE BETWEEN VARIOUS 3270 MODELS AND 3066 HAS BEEN ADDED. THIS COMPONENT NOW NEEDS TR3270 (629/12). ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00648/005A EDITOR PRIMITIV PARSE SA G W078:ED.PRPARSE.S 4.3T1 643 EDITOR.PRIMITIV_PARSE.SA.005 1 LINE 142 42 PAGE UM GOODRICH APR. 22, 1980 12:53:24 0 ASSEMBLE WITH *ASMH (737) USING THE EDITOR MACRO LIBRARY (648/16); *ASMG WILL PRODUCE WARNING MESSAGES. 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 00648/007A EDITOR I/O SUPPORT SA G W078:ED.IO.S 4.3T1 644 EDITOR.I/O_SUPPORT.SA.007 1 LINE 137 44 PAGE UM GOODRICH APR. 22, 1980 12:53:54 0 ASSEMBLE WITH PAR=SIZE=32 AND USING COPY:MTS.MACROS (344/3) AND THE 648/16 MACRO LIBRARY. COPIES *GDINFODSECT (594). 00648/008A EDITOR VIRTUAL FILES SA G W078:ED.VF.S 4.3T1 645 EDITOR.VIRTUAL_FILES.SA.008 1 LINE 137 15 PAGE UM GOODRICH APR. 22, 1980 12:54:17 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. ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16): 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/010A EDITOR OBJECT OC G W078:*CLSED 4.3T1 646 EDITOR.OBJECT.OC.010 1 LINE 19176 118 PAGE UM GOODRICH APR. 22, 1980 12:54:35 *CLSED 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM BY PISTLE AT IPL. 00648/011A EDITOR ETC:EDEXPLAIN M ETC.:EDEXPLAIN 4.3T1 647 EDITOR.ETC:EDEXPLAIN.M.011 1 LINE 72 41 PAGE UM GOODRICH APR. 22, 1980 12:55:08 ETC.:EDEXPLAIN 0 TEXT USED BY THE EXPLAIN COMMAND. 0 Referenced by comments of: 648/12 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/016A EDITOR MACROS SM G COPY:ED.MACROS 4.3T1 648 EDITOR.MACROS.SM.016 1 LINE 72 57 PAGE UM GOODRICH APR. 22, 1980 12:55:21 COPY:ED.MACROS 0 Referenced by comments of: 278/11, 648/1, 648/2, 648/3, 648/4, 648/5, 648/14, 648/17, 648/18, 648/19, 648/20 00648/017A EDITOR SUBROUTINES SA G W078:ED.SUBRTNS.S 4.3T1 649 EDITOR.SUBROUTINES.SA.017 1 LINE 140 53 PAGE UM GOODRICH APR. 22, 1980 12:56:15 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/018A EDITOR PATTERN SA G W078:ED.PATTERN.S 4.3T1 650 EDITOR.PATTERN.SA.018 1 LINE 142 69 PAGE UM GOODRICH APR. 22, 1980 12:56:32 0 PATTERN MATCHING ROUTINES FOR EDITOR, AS WELL AS USER-CALLABLE PATTERN ROUTINES. ASSEMBLE WITH *ASMH (737) USING THE EDITOR MACRO LIBRARY (648/16); *ASMG WILL PRODUCE WARNING MESSAGES. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. ***************************************************************************** THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT: RD4.2A/RD16: THE SYNTAX OF EDITOR PATTERN MATCHING HAS BEEN CHANGED SINCE D4.2. THIS VERSION OF PATTERNS MAY BE RELEASED TO USERS. RD4.2C: THE DOCUMENTATION FOR PATTERN MATCHING IS NOW IN MTS VOL. 1, DECEMBER 1979 VERSION (504). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 ***************************************************************************** 00648/019C EDITOR EXPRESSIONS SA G W078:ED.EXPRTNS.S 4.3T1 651 EDITOR.EXPRESSIONS.SA.019 1 LINE 155 4 PAGE UM GOODRICH APR. 22, 1980 12:56:41 0 THIS FILE CONTAINS THE PREDEFINED VARIABLE ROUTINES AND EXPRESSION PARSER ADDED IN ANTICIPATION OF MTS CONDITIONAL COMMANDS. ASSEMBLE WITH *ASMH (737) USING THE EDITOR MACRO LIBRARY (648/16); *ASMG WILL PRODUCE WARNING MESSAGES. FILE CONTAINS MTS COMMANDS AT THE BEGINNING FOR ASSEMBLING. 00648/020A EDITOR SYMBOL TABLE SA G W078:ED.SYMTAB.S 4.3T1 652 EDITOR.SYMBOL_TABLE.SA.020 1 LINE 120 16 PAGE UM GOODRICH APR. 22, 1980 12:56:44 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. 00648/021C EDITOR CHANGES P W078:ED.CHANGES 4.3T1 653 EDITOR.CHANGES.P.021 1 LINE 76 5 PAGE UM GOODRICH APR. 22, 1980 12:56:53 0 CONTAINS A LIST OF CHANGES MADE TO THE EDITOR SINCE IT WAS LAST DISTRIBUTED. CONTAINS COMMANDS AT THE FRONT TO GENERATE A *PRINT* JOB. 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/001A BJPMOD SA G BJPM S0683 OGDEN FSNAME=BJPMOD.S 4.3T1 654 BJPMOD..SA.001 1 LINE 80 7 PAGE UM OGDEN DEC. 21, 1979 01:39:53 0 SUBROUTINE CALLED BY SSRTN (413/1) TO DYNAMICALLY ADJUST THE SUPERVISOR PAGING PARAMETERS BASED ON THE SYSTEM LOAD. COPIES COPY:JOBSTA (413/9), AND COPY:BJPDSCT (650/3). ******************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): REQUIRES THE NEW COPY:JOBSTA (413/9). ******************************************************************************** 0 Referenced by comments of: 45/15, 413/1, 540/10 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00650/002A BJPMOD OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00650/003A BJPMOD BJP DSECT SA G BJPD COPY:BJPDSCT 4.3T1 655 BJPMOD.BJP_DSECT.SA.003 1 LINE 80 1 PAGE UM OGDEN APR. 05, 1980 19:27:42 COPY:BJPDSCT 0 DSECT FOR SUPERVISOR'S BIG JOB PARAMETER VECTOR. 0 Referenced by comments of: 413/1, 540/10, 577/2, 650/1 00650/004A BJPMOD WRITEUP WF S0683 OGDEN FSNAME=BJPMOD.F 4.3T1 656 BJPMOD.WRITEUP.WF.004 1 LINE 69 3 PAGE UM OGDEN MAR. 13, 1980 22:21:24 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/18, 578/1, 615/15, 631/8, 632/3, 636/1, 651/8, 651/10, 651/13, 708/1 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/007A RATES *RATEFILE D G MTS:TST.RATEFILE 4.3T1 657 RATES.*RATEFILE.D.007 1 LINE 222 5 PAGE UM ENGLE APR. 05, 1980 19:28:00 *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 S0917 MTSSD4 'MTS MASTER D4.0' POSN=RNBR 14 D4T2 1012 RATES.RATENBR.SA.010 1 LINE 80 14 PAGE UM MTS MTA JULY 28, 1977 21:54:06 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:CC.MACROS (1054/3). 0 Referenced by comments of: 761/1 00651/011A RATES RATENBR UPD UC G MTS:RNBRUPD 4.3T1 658 RATES.RATENBR_UPD.UC.011 1 LINE 68 3 PAGE UM MTS MTA APR. 05, 1980 19:28:02 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/012A 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A SETPARM ASMG VERSION SM G COPY:SETPARM 4.3T1 659 SETPARM.ASMG_VERSION.SM.001 1 LINE 72 3 PAGE UM MTA APR. 05, 1980 19:28:04 COPY:SETPARM 0 MACRO LIBRARY CONTAINING ONLY THE SETPARM AND SETPARMH MACROS WHICH GENERATE SET STATEMENTS FOR THE COPY:GLOBALDEFS (1026/1) SYMBOLS BASED ON THE SYSPARM FIELD GIVEN TO *ASMG OR *ASMH. 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 &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, 45/1, 46/1, 79/1, 101/1, 135/1, 399/1, 400/1, 400/10, 400/12, 540/1, 540/6, 577/2, 577/7, 579/1, 634/1, 634/4, 647/1, 732/1, 1021/1, 1021/4, 1081/1 00653/002A 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. SCANS SYSPARM FOR NAME=TVAL WHERE "NAME" IS A SYMBOL NAME, "T" IS A, B, C, OR E FOR SETA, SETB, SETC, OR EQU ASSIGNMENT, AND "VAL" IS A VALUE, POSSIBLY ENCLOSED IN QUOTES OR PARENS. NAME=TVAL MAY BE REPEATED AND MUST BE SEPARATED FROM PREVIOUS ITEMS USING A COMMA. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00654 A *CNFGINFODSECT SA G *CNFGINFODSECT 4.3T1 660 CNFGINFODSECT..SA. 1 LINE 80 4 PAGE UM MTA APR. 05, 1980 19:28:07 *CNFGINFODSECT 0 DSECT FOR TABLE DESCRIBING SYSTEM CONFIGURATION (E.G. CPU TYPE AND FEATURES). 0 Referenced by comments of: 1/5, 4/1, 4/4, 46/1, 49/1, 67/21, 97/10, 104/59, 104/134, 116/1, 135/1, 303/1, 303/6, 354/5, 360/1, 400/1, 413/1, 461/1, 482/3, 506/8, 507/2, 509/1, 534/5, 540/1, 540/10, 545/4, 545/16, 558/1, 559/2, 566/11, 577/7, 600/1, 600/7, 610/1, 629/1, 634/1, 636/1, 647/1, 651/10, 655/2, 671/3, 682/37, 682/39, 721/1, 721/11, 721/18, 738/1, 1002/13, 1002/23, 1020/1, 3003/24, 3018/30 00655/001A EREP/370 COMMANDS C MTA:EREPCMD 4.3T1 661 EREP/370.COMMANDS.C.001 1 LINE 109 1 PAGE UM MTA APR. 05, 1980 19:28:09 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/002A EREP/370 CNVTEREP SA O MTA:CNVTEREP(1,999) 4.3T1 662 EREP/370.CNVTEREP.SA.002 1 LINE 72 8 PAGE UM MTA APR. 05, 1980 19:28:11 MTA.:CNVTEREP 0 PROGRAM TO CONVERT LOG RECORDS GENERATED BY MCHCCH (577/2) AND UC3330 (787) TO A FORMAT ACCEPTABLE TO THE IBM EREP PROGRAM WHICH IS RUN UNDER *FAKEOS IN MTS. 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/003A EREP/370 CNVTEREP OC O MTA:CNVTEREP(1000) 4.3T1 663 EREP/370.CNVTEREP.OC.003 1 LINE 80 6 PAGE UM MTA APR. 05, 1980 19:28:16 00655/004A EREP/370 470 RMS SOURCE SA G S0081 ADV254 'RMS6.0' POSN=MS.UPGRADE.SOURCE 6 4.3T1 664 EREP/370.470_RMS_SOURCE.SA.004 1 SEQ 80 196 PAGE AMD MTA APR. 05, 1980 19:29:42 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00655/005A EREP/370 470 LIBRARY OL G ETC:EREP470LIB 4.3T1 665 EREP/370.470_LIBRARY.OL.005 1 LINE 14866 12 PAGE AMD MTA APR. 05, 1980 19:29:47 ETC.:EREP470LIB 00655/006 EREP/370 ALIASES SS O S0938 FSAVE2 FSNAME=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 S0938 FSAVE2 FSNAME=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/010A EREP/370 LIBRARY OL O ETC:EREPLIB 4.3T1 666 EREP/370.LIBRARY.OL.010 1 LINE 6144 183 PAGE UM MTA APR. 05, 1980 19:29:48 ETC.:EREPLIB 0 LIBRARY CONTAINING ALL OF EREP (VS2 REL 3.7) FOR ALL MODELS OF 370. >>>>>>>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 1 SUN SEP 08/96 19:03:19 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 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00657/001A *ASCEBCD SA G S0792 WSGFS FSNAME=ASCEBCD 4.3T1 667 ASCEBCD..SA.001 1 LINE 80 3 PAGE UM WSG JAN. 11, 1980 17:35:45 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/002A *ASCEBCD OC G *ASCEBCD 4.3T1 668 ASCEBCD..OC.002 1 LINE 80 1 PAGE UM WSG APR. 05, 1980 19:32:36 *ASCEBCD 00658/001A *EBCDASC SA G S0792 WSGFS FSNAME=EBCDASC 4.3T1 669 EBCDASC..SA.001 1 LINE 80 5 PAGE UM WSG JAN. 11, 1980 17:37:01 0 PROGRAM TO TRANSLATE ARBITRARY LENGTH RECORDS FROM EBCDIC TO ASCII USING EITHER THE MTS OR IBM ASCII TRANSLATE TABLE. SOURCE IN LINES (1,999). 00658/002A *EBCDASC OC G *EBCDASC 4.3T1 670 EBCDASC..OC.002 1 LINE 80 2 PAGE UM WSG APR. 05, 1980 19:32:42 *EBCDASC 00659/001A GOM COMPILER FTN SF G DWB:GOM.S 4.3T1 671 GOM.COMPILER_FTN.SF.001 1 LINE 100 110 PAGE UM DWB APR. 05, 1980 19:32:43 0 COMPILER FOR "GOOD OLD MAD" -- A LANGUAGE SIMILAR TO THE 7090 MAD LANGUAGE. THIS FILE HAS 75 FORTRAN MODULES. SOURCE BEGINS AT LINES 1000, 2000, ... 75000. "$CONTINUE WITH" FILES: GOM.COMMON (659/8), GOM.COMMOND (659/10), GOM.CONTAB (659/12), GOM.MATRIX (659/14), AND GOM.SYMTAB (659/15). NOTE: COMPILING THESE WILL PRODUCE THREE WARNING MESSAGES FROM THE COMPILATION OF THE STMTYP MODULE (31000,31999). ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): THIS VERSION OF GOM INCORPORATES THE R12 - R13 REGISTER SWITCH FOR LINKAGE=MTS OR CLSMTS AND THE USE OF PSEUDOREGISTERS FOR GLOBAL AREAS IF LINKAGE IS CLSMTS. ***************************************************************************** 0 Referenced by comments of: 659/5, 659/25 00659/002A GOM COMPILER FTN OC G DWB:GOM.O 4.3T1 672 GOM.COMPILER_FTN.OC.002 1 LINE 25920 158 PAGE UM DWB APR. 05, 1980 19:34:30 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. 00659/003A GOM COMPILER GOM SG G DWB:GOM.SG 4.3T1 673 GOM.COMPILER_GOM.SG.003 1 LINE 153 17 PAGE UM DWB APR. 05, 1980 19:34:41 0 GOM PIECES OF THE COMPILER, I.E. PORTIONS OF THE COMPILER WRITTEN IN ITSELF. REFERENCES CNFGINFO IN LCSYMBOL. "$CONTINUE WITH" FILES: GOM.COMMONG (659/9), GOM.COMMONDG (659/11), AND GOM.CONTABG (659/13). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/004A GOM COMPILER GOM OC G DWB:GOM.OG 4.3T1 674 GOM.COMPILER_GOM.OC.004 1 LINE 16100 17 PAGE UM DWB APR. 05, 1980 19:34:48 DWB.:GOM.OG 0 OBJECT CORRESPONDING TO 659/3, EXCEPT FOR THE MODULE WHOSE SOURCE IS IN LINES (1000,1999) OF 659/3 WHICH HAS ITS OBJECT IN 659/2. 00659/005A GOM SEQUENCES SA G SEQS DWB:GOM.SEQS 4.3T1 675 GOM.SEQUENCES.SA.005 1 LINE 80 137 PAGE UM DWB APR. 05, 1980 19:34:51 0 THIS IS NOT EXECUTABLE. THE FORTRAN SOURCE PIECES (659/1) TREAT THIS AS A COMMON SECTION THAT IS AN ARRAY OF HALFWORDS. 00659/006A GOM SEQUENCES OC G DWB:GOM.SEQS.O 4.3T1 676 GOM.SEQUENCES.OC.006 1 LINE 80 39 PAGE UM DWB APR. 05, 1980 19:35:13 DWB.:GOM.SEQS.O 0 OBJECT CORRESPONDING TO 659/5. 00659/007A GOM OBJECT OE G *GOM 4.3T1 677 GOM.OBJECT.OE.007 1 LINE 32767 93 PAGE UM DWB APR. 05, 1980 19:35:15 *GOM 0 RESULT OF RUNNING *LINKEDIT WITH THE FOLLOWING COMMANDS: INCLUDE GOM.O INCLUDE GOM.SEQS.O INCLUDE GOM.SYMOPG(1000) UPDATE GOM.OG COMBINE@BC PURGE $EMPTY 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 ******************************************************************************* D4.3 CHANGES: "INCLUDE GOM.SYMOPG(1000)" NOW REQUIRED AS COMMAND TO *LINKEDIT FOR THE MIXED GOM/FTN VERSION (AS GIVEN ABOVE). GOM.SYMOPG IS DISTRIBUTED AS 659/16 AND 659/17 BELOW. ******************************************************************************* 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/008A GOM COMMON DECLAR SF G DWB:GOM.COMMON 4.3T1 678 GOM.COMMON_DECLAR.SF.008 1 LINE 71 1 PAGE UM DWB APR. 05, 1980 19:35:20 0 "$CONTINUE WITH"ED BY ALL FORTRAN MODULES. CONTAINS COMMON DEFINITIONS AND COMMON DECLARATIONS. 0 Referenced by comments of: 659/1, 659/20 00659/009A GOM COMMON DECLAR SG G DWB:GOM.COMMONG 4.3T1 679 GOM.COMMON_DECLAR.SG.009 1 LINE 83 3 PAGE UM DWB APR. 05, 1980 19:35:22 0 GOM "COPY SECTION" EQUIVALENT TO 659/8. "$CONTINUE WITH"ED BY ALL GOM MODULES. 0 Referenced by comments of: 659/3, 659/20 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 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/011C GOM DEPEND DECLAR SG G DWB:GOM.COMMONDG 4.3T1 680 GOM.DEPEND_DECLAR.SG.011 1 LINE 79 1 PAGE UM DWB APR. 05, 1980 19:35:24 0 GOM EQUIVALENT OF 659/10. 0 Referenced by comments of: 659/3 00659/012 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 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/013C GOM CON TAB DECLAR SG G DWB:GOM.CONTABG 4.3T1 681 GOM.CON_TAB_DECLAR.SG.013 1 LINE 71 1 PAGE UM DWB APR. 05, 1980 19:35:27 0 GOM EQUIVALENT OF 659/12. 0 Referenced by comments of: 659/3 00659/014 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/015A GOM SYM TAB DECLAR SF G DWB:GOM.SYMTAB 4.3T1 682 GOM.SYM_TAB_DECLAR.SF.015 1 LINE 69 1 PAGE UM DWB APR. 05, 1980 19:35:29 0 "$CONTINUE WITH"ED BY ALL MODULES HANDLING THE SYMBOL TABLE. CONTAINS ALL DEFINITIONS FOR SYMBOL TABLE. 0 Referenced by comments of: 659/1 00659/016C GOM SYM TAB OPER SA G DWB:GOM.SYMOPG(1,999) 4.3T1 683 GOM.SYM_TAB_OPER.SA.016 1 LINE 70 4 PAGE UM DWB APR. 05, 1980 19:35:32 0 BUILT-IN OPERATORS FOR GOM VERSION OF THE SYMBOL TABLE ROUTINES (IN 659/3). THIS DEFINES DATA IN THE COMMON SECTION DECOMP (IN 659/8 AND 659/9). 00659/017C GOM SYM TAB OPER OC G DWB:GOM.SYMOPG(1000) 4.3T1 684 GOM.SYM_TAB_OPER.OC.017 1 LINE 80 6 PAGE UM DWB APR. 05, 1980 19:35:36 00659/018C GOM DATA INIT RTN SA G DWB:GOM.DIN(1,999) 4.3T1 685 GOM.DATA_INIT_RTN.SA.018 1 LINE 60 1 PAGE UM DWB APR. 05, 1980 19:35:39 0 THE SOURCE FOR THE DATA-INITIALIZATION SUBROUTINE (ENTRY POINT GOMDIN#) USED IN REENTRANT AND RECURSIVE ROUTINES. THIS USED TO BE GENERATED AS PART OF EVERY REENTRANT OR RECURSIVE MODULE; IT IS NOW A SEPARATE PIECE, TO CUT THE SIZE DOWN IN CASES WHERE THERE ARE MANY MODULES (E.G., $MESSAGESYSTEM - NOT YET DISTRIBUTED). 00659/019C GOM DATA INIT RTN OC G DWB:GOM.DIN(1000) 4.3T1 686 GOM.DATA_INIT_RTN.OC.019 1 LINE 80 1 PAGE UM DWB APR. 05, 1980 19:35:43 0 THE OBJECT FOR 659/17. IT WILL EVENTUALLY GO INTO "SEGMENT 2." 00659/020 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 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/021A GOM NEWS FILE P DWB:GOMNEWS 4.3T1 687 GOM.NEWS_FILE.P.021 1 LINE 78 22 PAGE UM DWB APR. 05, 1980 19:35:47 0 CONTAINS DESCRIPTIONS OF RECENT ADDITIONS TO THE LANGUAGE. 0 Referenced by comments of: 659/22 00659/022 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 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/21). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/023 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 0 WRITEUP DESCRIBING THE STRUCTURE OF AN OBJECT MODULE PRODUCED BY GOM. 00659/024 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 0 WRITEUP DESCRIBING THE INTERNALS OF THE COMPILER AND HOW TO READ THE COMPILER LISTINGS. 0 Referenced by comments of: 659/25 00659/025A GOM DOCUMENTATION SS G DWB:GOM.PEEL 4.3T1 688 GOM.DOCUMENTATION.SS.025 1 LINE 74 1 PAGE UM DWB APR. 05, 1980 19:35:51 0 SNOBOL PROGRAM TO READ THROUGH THE FORTRAN SOURCE (659/1) AND PRODUCE THE LISTS OF MODULES AND WHAT THEY COPY THAT IS TO BE ATTACHED TO THE END OF THE GOM.LISTWRUP WRITEUP (659/24). 00659/026C GOM DOCUMENTATION P W008:F77.COM.DOC 4.3T1 689 GOM.DOCUMENTATION.P.026 1 LINE 68 6 PAGE UM SWARTZ DWB APR. 05, 1980 19:35:55 0 CONTAINS EXPLANATION OF EACH SYMBOL IN A GOM COMMON SECTION. ALSO HAS THE SYMBOLS ADDED FOR THE FORTRAN77 PROJECT. 00659/027 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 0 SUBROUTINE CALLED BY "READ DATA" AND "READ AND PRINT DATA" STATEMENTS. 0 Referenced by comments of: 659/34 00659/028 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 DWB:GOM.RDATA 0 OBJECT ALSO IN *LIBRARY. 00659/029 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 0 SUBROUTINE CALLED BY "PRINT RESULTS", "PRINT BCD RESULTS", AND "PRINT HEX RESULTS" STATEMENTS. 0 Referenced by comments of: 659/33 00659/030 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 DWB.:GOM.PRSLT 0 OBJECT ALSO IN *LIBRARY. HAS A "$CONTINUE WITH *EXPLIB" LINE. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/031 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/32). 0 Referenced by comments of: 659/32 00659/032 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/31). 0 Referenced by comments of: 659/31 00659/033 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/29). 00659/034 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/27). 00659/035 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. THESE WILL BE FIXED SOMETIME WHEN A GOM CARD IS DEFINED AND SDS SUPPORTS IT. 00659/036 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/037 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/038 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/039 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/040 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/041 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/042 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/043 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/044 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/045 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/046 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. 00659/047 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/048A GOM TEST PROGRAMS SG G DWB:GOM.TEST11 4.3T1 690 GOM.TEST_PROGRAMS.SG.048 1 LINE 44 1 PAGE UM DWB APR. 05, 1980 19:35:59 0 TEST PROGRAM WHICH TESTS CHARACTER SUBSTRING OPERATION. 00659/049 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/050 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/47 EXCEPT ALL VARIABLES ARE IN PROGRAM COMMON.) 00659/051 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/052 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/053 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/054 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/055 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/056A GOM TEST PROGRAMS SG G DWB:GOM.TEST19 4.3T1 691 GOM.TEST_PROGRAMS.SG.056 1 LINE 53 1 PAGE UM DWB APR. 05, 1980 19:36:03 0 TEST PROGRAM WHICH CHECKS THE R-TYPE CALLING SEQUENCE GENERATION. 00659/057A GOM TEST PROGRAMS SG G DWB:GOM.TEST20 4.3T1 692 GOM.TEST_PROGRAMS.SG.057 1 LINE 54 1 PAGE UM DWB APR. 05, 1980 19:36:07 0 TEST PROGRAM WHICH TESTS DYNAMIC RECORDS, AND ALLOCATE, RELEASE, USING POINTER, AND THE .SIZE. OPERATOR. 00659/058A GOM TEST PROGRAMS SG G DWB:GOM.TEST21 4.3T1 693 GOM.TEST_PROGRAMS.SG.058 1 LINE 56 1 PAGE UM DWB APR. 05, 1980 19:36:09 0 TEST PROGRAM WHICH TESTS RETURN CODE EXTRACTION AND TESTING FOR FORMATTED I/O STATEMENTS. 00659/059 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/060 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/061 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/062 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/063 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/064 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/065 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. 00659/066 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/067 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/068 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/069 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/070 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/071 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/072 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/073 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/074 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. 00659/075 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/076 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. 0 Referenced by comments of: 659/81 00659/077 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/078 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. 00659/079 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/080A GOM TEST PROGRAMS SG G DWB:GOM.TEST43 4.3T1 694 GOM.TEST_PROGRAMS.SG.080 1 LINE 38 1 PAGE UM DWB APR. 05, 1980 19:36:12 0 PROGRAM TO TEST FUNCTION ENTRIES WITH VARIABLE NUMBER OF ARGUMENTS. 00659/081 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/76), 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/082 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/083 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. 00659/084 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/085 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/086 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/087 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/088 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/089A GOM TEST PROGRAMS SG G DWB:GOM.TEST52 4.3T1 695 GOM.TEST_PROGRAMS.SG.089 1 LINE 56 1 PAGE UM DWB APR. 05, 1980 19:36:15 0 PROGRAM TO TEST PUTTING ITEMS IN VECTOR VALUES STATEMENT FOR PROPER LENGTHS AT PROPER DISPLACEMENTS. 00659/090A GOM TEST PROGRAMS SG G DWB:GOM.TEST53 4.3T1 696 GOM.TEST_PROGRAMS.SG.090 1 LINE 80 1 PAGE UM DWB APR. 05, 1980 19:36:17 0 COMMANDS AND SOURCE OF GOM DRIVER PROGRAM, GOM SUBROUTINE AND PLUS SUBROUTINE TO TEST LINKAGES. BOTH SUBPROGRAMS PRINT "HELLO THERE". 00659/091A GOM TEST PROGRAMS SG G DWB:GOM.TEST54 4.3T1 697 GOM.TEST_PROGRAMS.SG.091 1 LINE 53 1 PAGE UM DWB APR. 05, 1980 19:36:20 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/092A GOM TEST PROGRAMS SG G DWB:GOM.TEST55 4.3T1 698 GOM.TEST_PROGRAMS.SG.092 1 LINE 43 1 PAGE UM DWB APR. 05, 1980 19:36:22 0 PROGRAM TO TEST PASSING FUNCTION NAME CONSTANT TO SUBROUTINE WHICH WILL THEN USE IT IN A CALL. 00659/093A GOM TEST PROGRAMS SG G DWB:GOM.TEST56 4.3T1 699 GOM.TEST_PROGRAMS.SG.093 1 LINE 72 1 PAGE UM DWB APR. 05, 1980 19:36:25 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/094A GOM TEST PROGRAMS SG G DWB:GOM.TEST57 4.3T1 700 GOM.TEST_PROGRAMS.SG.094 1 LINE 36 1 PAGE UM DWB APR. 05, 1980 19:36:27 0 PROGRAM TO CHECK PASSING OF ARGUMENTS TO INTERNAL FUNCTIONS BEING REENTRANT FOR REENTRANT OR RECURSIVE EXTERNAL FUNCTIONS. 00659/095C GOM TEST PROGRAMS SG G DWB:GOM.TEST58 4.3T1 701 GOM.TEST_PROGRAMS.SG.095 1 LINE 80 7 PAGE UM DWB APR. 05, 1980 19:36:29 0 PROGRAM TO TEST HAVING MORE THAN ONE PAGE OF CONSTANTS. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00659/096C GOM TEST PROGRAMS SG G DWB:GOM.TEST59 4.3T1 702 GOM.TEST_PROGRAMS.SG.096 1 LINE 35 1 PAGE UM DWB APR. 05, 1980 19:36:32 0 PROGRAM TO TEST OPT=1. 00659/097C GOM TEST PROGRAMS SG G DWB:GOM.TEST60 4.3T1 703 GOM.TEST_PROGRAMS.SG.097 1 LINE 59 1 PAGE UM DWB APR. 05, 1980 19:36:34 0 PROGRAM TO TEST .BIT., .SETBIT., AND .RESETBIT. OPERATORS. 00660/001A MCS-11 SUPERVISOR S G FEP:SUPER 4.3T1 704 MCS-11.SUPERVISOR.S.001 1 LINE 84 52 PAGE UM EADIE APR. 05, 1980 19:36:37 0 THIS IS THE SUPERVISOR FOR THE MICHIGAN COMMUNICATIONS SYSTEMS (MCS) FOR THE UM PDP-11 DATA CONCENTRATOR FRONT END. THE MCS COMPONENTS SHOULD BE ASSEMBLED AND LINK-EDITED WITH *11ASR (515) AND *LINK11 (516). THE SUPERVISOR COPIES COMMON (660/6). 0 Referenced by comments of: 660/2, 660/3, 660/17 00660/002A MCS-11 DEVICES S G FEP:DEVICES 4.3T1 705 MCS-11.DEVICES.S.002 1 LINE 85 136 PAGE UM EADIE APR. 05, 1980 19:36:42 0 THIS IS THE DEVICES CSECT OF MCS. IT CONTAINS DSR'S FOR ALL DEVICES IN THE SYSTEM. IT SHOULD BE ASSEMBLED AFTER THE SUPERVISOR (660/1). COPIES COMMON (660/6), SUPEREXTRN (660/7), TASKSEXTRN (660/8), AND CC.EBCDIC (660/9). 0 Referenced by comments of: 660/3, 660/17 00660/003A MCS-11 TASKS S G FEP:TASKS 4.3T1 706 MCS-11.TASKS.S.003 1 LINE 174 93 PAGE UM EADIE APR. 05, 1980 19:36:50 0 THIS IS THE TASKS CSECT FOR MCS. IT CONTAINS THE TASKS FOR THE SYSTEM. IT SHOULD BE ASSEMBLED AFTER THE SUPERVISOR (660/1) AND DEVICES (660/2). COPIES COMMON (660/6), SUPEREXTRN (660/7), DEVICESEXTRN (660/10), AND CC.EBCDIC (660/9). 0 Referenced by comments of: 660/17 00660/004A MCS-11 TABLES S G FEP:TABLES 4.3T1 707 MCS-11.TABLES.S.004 1 LINE 91 50 PAGE UM EADIE APR. 05, 1980 19:36:58 0 THIS IS THE TABLES CSECT FOR MCS. IT CONTAINS THE TRANSLATE TABLES FOR THE DSR'S IN THE SYSTEM. COPIES COMMON (660/6) AND CC.EBCDIC (660/9). 0 Referenced by comments of: 660/17 00660/005A MCS-11 STORAGE S G FEP:STORAGE 4.3T1 708 MCS-11.STORAGE.S.005 1 LINE 74 1 PAGE UM EADIE APR. 05, 1980 19:37:02 0 THIS IS THE STORAGE CSECT FOR MCS. IT CONTAINS STORAGE DEFINITIONS FOR THE SYSTEM. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00660/006A MCS-11 COMMON S G FEP:COMMON 4.3T1 709 MCS-11.COMMON.S.006 1 LINE 83 22 PAGE UM EADIE APR. 05, 1980 19:37:05 0 THIS IS THE COPY SECTION FOR MANY COMPONENTS OF MCS. IT, IN TURN, COPIES WHICHCONC (660/17) TO SET UP CONDITIONAL ASSEMBLY PARAMETERS FOR DATA CONCENTRATOR B OR C OR THE REMOTE DATA CONCENTRATOR. 0 Referenced by comments of: 660/1, 660/2, 660/3, 660/4, 660/17 00660/007A MCS-11 SUPEREXTRN S G FEP:SUPEREXTRN 4.3T1 710 MCS-11.SUPEREXTRN.S.007 1 LINE 84 3 PAGE UM EADIE APR. 05, 1980 19:37:07 0 THIS IS COPIED BY SEVERAL CSECTS TO GET EXTERNAL SYMBOLS FOR THE SUPERVISOR. 0 Referenced by comments of: 660/2, 660/3 00660/008A MCS-11 TASKSEXTRN S G FEP:TASKSEXTRN 4.3T1 711 MCS-11.TASKSEXTRN.S.008 1 LINE 82 1 PAGE UM EADIE APR. 05, 1980 19:37:09 0 THIS IS COPIED BY SOME CSECTS TO GET EXTERNAL SYMBOLS FOR TASKS. 0 Referenced by comments of: 660/2 00660/009A MCS-11 CC.EBCDIC S G FEP:CC.EBCDIC 4.3T1 712 MCS-11.CC.EBCDIC.S.009 1 LINE 62 1 PAGE UM EADIE APR. 05, 1980 19:37:11 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/010A MCS-11 DEVICESEXTRN S G FEP:DEVICESEXTRN 4.3T1 713 MCS-11.DEVICESEXTRN.S.010 1 LINE 82 3 PAGE UM EADIE APR. 05, 1980 19:37:14 0 THIS IS COPIED BY CSECTS TO GET EXTERNAL SYMBOLS FOR DEVICES. 0 Referenced by comments of: 660/3 00660/011A MCS-11 CBJOB C FEP:CBJOB 4.3T1 714 MCS-11.CBJOB.C.011 1 LINE 67 1 PAGE UM EADIE APR. 05, 1980 19:37:16 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/012A MCS-11 CCJOB C FEP:CCJOB 4.3T1 715 MCS-11.CCJOB.C.012 1 LINE 67 1 PAGE UM EADIE APR. 05, 1980 19:37:18 0 MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR C. ALSO AT LINE 1000 AND 1001, THERE ARE TWO EQUS FOR LENGTHS. WHEN ASSEMBLING COMPONENTS IN ORDER OF POSITION IN MEMORY, THIS ALLOWS LISTING ADDRESSES TO MATCH MEMORY ADDRESSES (I.E. NO RELOCATION NEEDED). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00660/013C MCS-11 CDJOB C FEP:CDJOB 4.3T1 716 MCS-11.CDJOB.C.013 1 LINE 67 1 PAGE UM EADIE APR. 05, 1980 19:37:21 0 MTS COMMANDS TO ASSEMBLE AND LINKEDIT MCS FOR DATA CONCENTRATOR D. ALSO AT LINE 1000 AND 1001, THERE ARE TWO EQUS FOR LENGTHS. WHEN ASSEMBLING COMPONENTS IN ORDER OF POSITION IN MEMORY, THIS ALLOWS LISTING ADDRESSES TO MATCH MEMORY ADDRESSES (I.E. NO RELOCATION NEEDED). 00660/014A MCS-11 LSIJOB C FEP:LSIJOB 4.3T1 717 MCS-11.LSIJOB.C.014 1 LINE 71 1 PAGE UM EADIE APR. 05, 1980 19:37:23 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/015A MCS-11 DEBUG/LOAD S G DIAG:HCOR.S 4.3T1 718 MCS-11.DEBUG/LOAD.S.015 1 LINE 81 30 PAGE UM EADIE APR. 05, 1980 19:37:25 0 "HIGH CORE" SYSTEM USED IN FRONT END PROCESSOR FOR DEBUGGING AND LOADING. DESCRIPTION OF THE PROGRAM IS AT THE FRONT OF THE SOURCE. COPIES HCORDATA (660/16) AND "WHICHCONC", WHICH IS THE SAME AS FEP:WHICHCONC (660/17). ASSEMBLE USING *11ASR (515). 0 Referenced by comments of: 660/17 00660/016A MCS-11 HCORDATA S G DIAG:HCORDATA 4.3T1 719 MCS-11.HCORDATA.S.016 1 LINE 80 1 PAGE UM EADIE APR. 05, 1980 19:37:29 0 COPY SECTION USED BY 660/15. 0 Referenced by comments of: 660/15 00660/017A MCS-11 WHICHCONC S G FEP:WHICHCONC 4.3T1 720 MCS-11.WHICHCONC.S.017 1 LINE 19 1 PAGE UM EADIE APR. 05, 1980 19:37:31 0 THIS IS COPIED BY DEBUG/LOAD (660/15) AND COMMON (660/6), WHICH IS COPIED BY THE SUPERVISOR (660/1), DEVICES (660/2), TASKS (660/3), AND TABLES (660/4). IT CONTAINS TWO LINES: 1) A "SPACE 1" FOR ESTHETICS, AND 2) "&CONC SETC '?'", WHERE ? IS "CB", "CC", "CD", OR "LSI". 0 Referenced by comments of: 660/6, 660/15 00660/018A MCS-11 MCP SPEC WF CRT:MCP.DOC 4.3T1 721 MCS-11.MCP_SPEC.WF.018 1 LINE 101 10 PAGE UM EADIE APR. 05, 1980 19:37:34 0 WRITEUP DESCRIBING THE MICHIGAN COMMUNICATIONS PROTOCOL (MCP) USED FOR COMPUTER-TO-COMPUTER COMMUNICATIONS AT UM. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00660/019A MCS-11 MCP EXAMPLE WF CRT:MCP.EXAMPLE 4.3T1 722 MCS-11.MCP_EXAMPLE.WF.019 1 LINE 109 4 PAGE UM EADIE APR. 05, 1980 19:37:36 0 SAMPLE TERMINAL SESSION USING MCP. 00661 RAMP # (NO LONGER DISTRIBUTED) D4T2 1122 RAMP.RAMPINT.S.001 1 LINE 88 76 PAGE UM JUNE 02, 1976 20:33:19 0 RAMP, THE OPERATING SYSTEM FOR THE UM PDP-8 AND PDP-8E DATA CONCENTRATOR FRONT ENDS. IT WAS DISTRIBUTED FOR THE FINAL TIME ON D4.0, TAPE 2, FILES 1122 THROUGH 1135. 00662 *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. 00663/002 *SIDEDATE OC O *SIDEDATE D4T2 1139 SIDEDATE..OC.002 1 LINE 240 8 PAGE UM SHERRY JULY 28, 1977 22:57:04 *SIDEDATE 0 OBJECT ALSO IN *LIBRARY. HAS A "$CONTINUE WITH *EXPLIB" LINE. 00664/001A PASCAL/GN COMPILER SW S W264:PASCAL 4.3T1 723 PASCAL.COMPILER.SW.001 1 LINE 80 91 PAGE UM GREENING APR. 05, 1980 19:37:39 0 OS/360 VERSION OF PASCAL COMPILER (FROM GRENOBLE) CONVERTED TO MTS. THIS IS THE PASCAL SOURCE FOR THE CURRENT COMPILER. 0 Referenced by comments of: 685/11 00664/002A PASCAL/GN PGNT ROUTINE SA G PASM W264:PAS.MONITOR 30 4.3T1 724 PASCAL.PGNT_ROUTINE.SA.002 1 LINE 80 4 PAGE UM GREENING APR. 05, 1980 19:37:58 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/003A PASCAL/GN OBJECT OE S UNSP:PASCAL.GN 4.3T1 725 PASCAL.OBJECT.OE.003 1 LINE 32767 37 PAGE UM GREENING APR. 05, 1980 19:38:00 UNSP:PASCAL.GN 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00664/004A PASCAL/GN XREF SW G W264:PAS.XREF.S 33 4.3T1 726 PASCAL.XREF.SW.004 1 LINE 73 5 PAGE UM GREENING APR. 05, 1980 19:38:03 0 PASCAL SOURCE FOR A CROSS-REFERENCE PROGRAM. SEE THE COMMENTS AT THE BEGINNING OF THE SOURCE FOR USAGE INSTRUCTIONS. 00664/005A PASCAL/GN XREF OC G W264:PAS.XREF 4.3T1 727 PASCAL.XREF.OC.005 1 LINE 80 5 PAGE UM GREENING APR. 05, 1980 19:38:05 00664/006A PASCAL/GN USAGE UTIL SA G W264:PAS.USESNIFF(-1000,-1) 4.3T1 728 PASCAL.USAGE_UTIL.SA.006 1 LINE 72 4 PAGE UM GREENING APR. 05, 1980 19:38:07 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/007A PASCAL/GN USAGE UTIL OC G W264:PAS.USESNIFF(1,*L) 4.3T1 729 PASCAL.USAGE_UTIL.OC.007 1 LINE 80 1 PAGE UM GREENING APR. 05, 1980 19:38:09 00664/008A PASCAL/GN ERROR MESSAGES M ETC:PASCALERRS 4.3T1 730 PASCAL.ERROR_MESSAGES.M.008 1 LINE 79 3 PAGE UM GREENING APR. 05, 1980 19:38: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/009A PASCAL/GN USER MANUAL WF W264:PAS.MANUAL 4.3T1 731 PASCAL.USER_MANUAL.WF.009 1 LINE 109 11 PAGE UM GREENING APR. 05, 1980 19:38:14 0 PASCAL/MTS USER'S MANUAL CONTAINING "HOW TO USE" INFORMATION PLUS SOME INTERNAL IMPLEMENTATION NOTES. 00664/010 PASCAL/GN USAGE STATS D ETC:PASCALINFO D4.2T1 588 PASCAL.USAGE_STATS.D.010 1 LINE 72 44 PAGE UM GREENING APR. 02, 1979 00:29:38 ETC:PASCALINFO 0 THIS IS A FILE WHICH LOGS USAGE STATISTICS AND PROGRAM INTERRUPTS RELATING TO PASCAL. 00665/001A MTS VOLUME 14 MASTER WT S0951 MTSV14 'MTS MANUALS' POSN=NEWM7.V14 4.3T1 732 MTS_VOLUME_14.MASTER.WT.001 1 SEQ 132 183 PAGE UM MANUAL APR. 05, 1980 19:40:38 0 TEXT/360 MASTER FOR VOLUME 14 "360/370 ASSEMBLER LANGUAGES IN MTS" OF THE UM MTS MANUALS (AUGUST 1978, UPDATED OCTOBER 1979 AND APRIL 1980). EDITOR: RICHARD A. SALISBURY 0 Referenced by comments of: 66/93 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00665/002A MTS VOLUME 14 PRINT PT S0951 MTSV14 'MTS MANUALS' POSN=PRINT7.V14 4.3T1 733 MTS_VOLUME_14.PRINT.PT.002 1 SEQ 132 364 PAGE UM MANUAL APR. 05, 1980 19:40:58 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. 00665/004A MTS VOLUME 14 UPDATE 1 PT W073:TNLV14.OCT79 4.3T1 734 MTS_VOLUME_14.UPDATE_1.PT.004 1 LINE 103 95 PAGE UM MANUAL APR. 05, 1980 19:41:05 0 THIS IS COMPUTING CENTER MEMO 411 -- "UPDATE 1 TO MTS VOLUME 14," (OCTOBER 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00665/005C MTS VOLUME 14 UPDATE 2 PT W073:TNLV14.APR80 4.3T1 735 MTS_VOLUME_14.UPDATE_2.PT.005 1 LINE 103 9 PAGE UM MANUAL APR. 05, 1980 20:27:36 0 THIS IS "UPDATE 2 TO MTS VOLUME 14," (APRIL 1980). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 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 00667/001A OVERDRIVE S* O W008:OD.S 4.3T1 736 OVERDRIVE..S*.001 1 LINE 98 49 PAGE UM SWARTZ APR. 05, 1980 20:27:38 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/002A OVERDRIVE SS O W008:OD.INTERMED 4.3T1 737 OVERDRIVE..SS.002 1 LINE 95 53 PAGE UM SWARTZ APR. 05, 1980 20:27:47 0 INTERMEDIATE SOURCE FOR *OVERDRIVE (667/3). IN SPITBOL, AS PRODUCED FROM 667/1. 00667/003A OVERDRIVE OC O *OVERDRIVE 4.3T1 738 OVERDRIVE..OC.003 1 LINE 32767 50 PAGE UM SWARTZ APR. 05, 1980 20:27:51 *OVERDRIVE 0 HAS A "$CONTINUE WITH *SPITLIB" CARD. 0 Referenced by comments of: 667/2 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00668/001A *TAXIR FLECS SOURCE SF G TAX S1223 TAXIR8 FSNAME=TAXIR.8.S 4.3T1 739 TAXIR.FLECS_SOURCE.SF.001 1 LINE 80 195 PAGE UM BRILL DEC. 13, 1979 13:19:13 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). *************************************************************************** D4.3 VERSION: THIS DISTRIBUTION IS EXACTLY LIKE THAT DISTRIBUTED WITH D4.2, EXCEPT THAT A FEW BUGS HAVE BEEN FIXED AND ONLY THE AFFECTED COMPONENTS ARE DISTRIBUTED, NAMELY: 668/1 FLECS SOURCE 668/2 FLECS LISTING 668/3 ASM SOURCE 668/4 *TAXIR USE THE INSTALLATION GUIDE DISTRIBUTED WITH D4.2, BUT WHEREVER THE ABOVE COMPONENTS ARE REFERENCED, USE THE D4.3 COMPONENTS. *************************************************************************** 0 Referenced by comments of: 500/16, 500/19, 500/31 00668/002A *TAXIR FLECS LISTING L G S1223 TAXIR8 FSNAME=TAXIRFLECSLIST.8 4.3T1 740 TAXIR.FLECS_LISTING.L.002 1 LINE 121 317 PAGE UM BRILL FEB. 01, 1980 15:14:04 0 FLECS INDENTED LISTING OF TAXIR, VERSION 8. (OUTPUT LISTING PRODUCED BY FLECS.) 00668/003A *TAXIR ASM SOURCE SA G TAX S1223 TAXIR8 FSNAME=TAXIRASM.8.S 4.3T1 741 TAXIR.ASM_SOURCE.SA.003 1 LINE 80 18 PAGE UM BRILL FEB. 01, 1980 15:15:38 0 SOURCE FOR THE ASSEMBLY LANGUAGE PORTION OF TAXIR, VERSION 8. 00668/004A *TAXIR *TAXIR OE G *TAXIR 4.3T1 742 TAXIR.*TAXIR.OE.004 1 SEQ 32767 45 PAGE UM BRILL APR. 05, 1980 20:29:47 *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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/001A MTS VOLUME 9 MASTER WT S1051 MTSV9 'MTS MANUALS' POSN=NEWM2.V9 4.3T1 743 MTS_VOLUME_9.MASTER.WT.001 1 SEQ 132 114 PAGE UM MANUAL APR. 05, 1980 20:31:27 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00669/002A MTS VOLUME 9 PRINT PT S1051 MTSV9 'MTS MANUALS' POSN=PRINT2.V9 4.3T1 744 MTS_VOLUME_9.PRINT.PT.002 1 SEQ 132 175 PAGE UM MANUAL APR. 05, 1980 20:31:33 0 TEXT/360 PRINT FILE. 00669/003A MTS VOLUME 9 INDEX SOURCE D S1051 MTSV9 'MTS MANUALS' POSN=V9INDEXSOU 4.3T1 745 MTS_VOLUME_9.INDEX_SOURCE.D.003 1 SEQ 82 5 PAGE UM MANUAL APR. 05, 1980 20:31:36 0 INPUT TO *INDEX (580) FOR INDEX TO VOLUME 9 00669/004A MTS VOLUME 9 UPDATE 1 PT W073:TNLV9.JUN79 4.3T1 746 MTS_VOLUME_9.UPDATE_1.PT.004 1 LINE 108 78 PAGE UM MANUAL APR. 05, 1980 20:31:41 0 THIS IS COMPUTING CENTER MEMO 401 -- UPDATE 1 TO MTS VOLUME 9," (JUNE 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00670 PL1LINK SA # (OBSOLETE) D4T2 1168 PL1LINK..SA.001 1 LINE 80 6 PAGE UM JULY 28, 1977 23:01:26 0 AN EXPERIMENTAL PROGRAM TO ALLOW DYNAMIC LINKING TO PL1 SUBROUTINES. 00671/001A FILE RESTORE - FAST FASTRESTORE SA G FRES RSTR:FASTRESTORE(1000) 4.3T1 747 FILE_RESTORE_-_FAST.FASTR.SA.001 1 LINE 80 15 PAGE UM HELFFRICH APR. 05, 1980 20:31:49 RSTR:FASTRESTORE 0 THE FAST FILE RESTORE PROGRAMS ARE USED TO RESTORE THE ENTIRE FILE SYSTEM (FROM FILE SAVE TAPES), AS QUICKLY AS POSSIBLE, ON A PAGE AT A TIME BASIS, WHEN NEW DISKS ARE BEING INSTALLED OR AFTER A MAJOR DISASTER. THEY CANNOT BE USED TO CONVERT FILE FORMATS. SEE THE COMMENTS IN THE SOURCE FOR DETAILS ON USAGE. 671/1 AND 671/3 WORK WITH FILESAVE TAPES WHEN THE ONLINE FILESAVE (67/17) IS BEING USED AND THE FILESAVE DIRECTORY "FILEDIR.MAS" IS AVAILABLE TO AID IN THE RESTORATION. 671/1 CALLS THE FASTRSTR SUBROUTINE (671/3); IT TAKES A LIST OF FILES AND AN INDICATION OF WHAT IS TO BE DONE WITH EACH AS PRODUCED BY AMALGAMATE (682/38), MOUNTS AND SCANS TAPES, AND CALLS FASTRSTR TO DO THE RESTORING. ASSEMBLE WITH THE FILE SAVE MACROS (67/29). ********************************************************************************* D4.3 COMMENTS: FIXED BUG WHICH WOULD CAUSE FILES TO BE RESTORED TWICE IF THE RESTORATIONS WERE RESTARTED THROUGH THE USE OF THE UNIT 0 OUTPUT LIST. ********************************************************************************* 0 Referenced by comments of: 104/110, 682/37 00671/002A FILE RESTORE - FAST FASTRESTORE OC G RSTR:FASTRESTORE(1,999) 4.3T1 748 FILE_RESTORE_-_FAST.FASTR.OC.002 1 LINE 80 5 PAGE UM HELFFRICH APR. 05, 1980 20:31:55 0 HAS A $CONTINUE WITH RSTR:FASTRSTR+COPY:SYSDEFS RECORD. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00671/003A FILE RESTORE - FAST FASTRSTR SUBR SA G FRST RSTR:FASTRSTR(1000) 4.3T1 749 FILE_RESTORE_-_FAST.FASTR.SA.003 1 LINE 80 23 PAGE UM HELFFRICH APR. 05, 1980 20:31:58 RSTR:FASTRSTR 0 SUBROUTINE CALLED BY 671/1 TO DO FAST RESTORING. ASSEMBLE USING COPY:FILE.MACROS (482/33) AND THE FILE SAVE MACROS (67/29). COPIES *CNFGINFODSECT (654). ********************************************************************************* D4.3 COMMENTS: UPDATED FOR VAMX SUPPORT. ********************************************************************************* 0 Referenced by comments of: 671/1 00671/004A FILE RESTORE - FAST FASTRSTR SUBR OC G RSTR:FASTRSTR(1,999) 4.3T1 750 FILE_RESTORE_-_FAST.FASTR.OC.004 1 LINE 80 6 PAGE UM HELFFRICH APR. 05, 1980 20:32:03 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/030 *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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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). EDITOR: RICHARD A. SALISBURY 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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," (FEBRUARY 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00677/001A *ENCRYPT SA O ENCR *ENCRYPT(1000) 4.3T1 751 ENCRYPT..SA.001 1 LINE 80 18 PAGE UM GREENING APR. 05, 1980 20:32:06 *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 COPY:CC.MACROS (1054/3). COPIES *GDINFODSECT (594). THIS IS ALSO THE SOURCE FOR THE CRYPT SUBROUTINE IN *LIBARY (524/1). 0 Referenced by comments of: 491/1 00677/002A *ENCRYPT OE O *ENCRYPT(1,999) 4.3T1 752 ENCRYPT..OE.002 1 LINE 3372 4 PAGE UM GREENING APR. 05, 1980 20:32:08 00678/001A SNOSTORM PREPROCESSOR S* G W008:SNO.S 4.3T1 753 SNOSTORM.PREPROCESSOR.S*.001 1 LINE 99 25 PAGE UM SWARTZ APR. 05, 1980 20:32:10 0 SNOSTORM IS A PREPROCESSOR FOR THE SNOBOL4 LANGUAGE. IT AUGMENTS SNOBOL4 WITH THE STRUCTURES IF, LOOP, CASE, AND PROC. THIS SUBCOMPONENT IS THE SOURCE FOR THE SNOSTORM PREPROCESSOR (678/3), AND IS WRITTEN IN THE SNOSTORM LANGUAGE. FOR THE INITIAL INSTALLATION OF SNOSTORM, THIS FILE IS RUN THROUGH SNOSTORM AND AN INTERMEDIATE SOURCE, 678/2, WHICH IS IN SPITBOL, IS PRODUCED. THIS SUBCOMPONENT USES THE LOAD FUNCTION TO LOAD SUBROUTINES FROM UNSP:SPITLIB (590/30). FILE CONTAINS MTS COMMANDS AT BEGINNING FOR COMPILING. 00678/002A SNOSTORM PREPROCESSOR SS G W008:SNO.S2 4.3T1 754 SNOSTORM.PREPROCESSOR.SS.002 1 LINE 99 17 PAGE UM SWARTZ APR. 05, 1980 20:32:27 0 THIS IS THE SOURCE FOR THE SNOSTORM PREPROCESSOR, DERIVED BY RUNNING 678/1 THROUGH SNOSTORM. THIS FILE IS IN SPITBOL, AND IS USEFUL FOR "BOOTSTRAPPING" FOR THE INITIAL INSTALLATION OF SNOSTORM. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00678/003A SNOSTORM PREPROCESSOR OC G ETC:SNOSTORM 4.3T1 755 SNOSTORM.PREPROCESSOR.OC.003 1 LINE 32767 28 PAGE UM SWARTZ APR. 05, 1980 20:32:30 ETC:SNOSTORM 0 THIS IS THE OBJECT FOR THE SNOSTROM PREPROCESSOR (678/1 AND 678/2). IT CONTAINS A "$CONTINUE WITH *SPITLIB" RECORD. 0 Referenced by comments of: 678/1, 678/4 00678/004A SNOSTORM MAIN PROGRAM SA G W008:SNOMAIN.S 4.3T1 756 SNOSTORM.MAIN_PROGRAM.SA.004 1 LINE 73 3 PAGE UM SWARTZ APR. 05, 1980 20:32:32 0 THIS IS A SMALL MAIN PROGRAM WHICH LINKS TO THE SNOSTORM PREPROCESSOR (678/3) AND THEN TO *SPITBOL (590). 00678/005A SNOSTORM *SNOSTORM OE G *SNOSTORM 4.3T1 757 SNOSTORM.*SNOSTORM.OE.005 1 LINE 1221 1 PAGE UM SWARTZ APR. 05, 1980 20:32:35 *SNOSTORM 0 THE OBJECT OF 678/4. 00678/006A SNOSTORM TEST PGM S* O W008:SNO.T 4.3T1 758 SNOSTORM.TEST_PGM.S*.006 1 LINE 74 3 PAGE UM SWARTZ APR. 05, 1980 20:32:37 00678/007A SNOSTORM NEWS FILE P W008:SNO.NEWS 4.3T1 759 SNOSTORM.NEWS_FILE.P.007 1 LINE 68 3 PAGE UM SWARTZ APR. 05, 1980 20:32:39 0 THIS FILE CONTAINS SNOSTORM NEWS ITEMS. 00679/001 INTRO GUIDE: INTRO TO CC WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO79.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 1979). 00679/002 INTRO GUIDE: INTRO TO CC PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=INTRO79.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/001A *CKID SA G MTS:CKID.S 4.3T1 760 CKID..SA.001 1 LINE 77 9 PAGE UBC HOGG MTA APR. 05, 1980 20:32:42 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). **************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): CHANGED TO USE THE NEW MTS ROUTINE GETACCRE (PART OF USUB -- COMP. 638/1) TO READ THE ACCOUNTING FILES. **************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00680/002A *CKID OE G *CKID 4.3T1 761 CKID..OE.002 1 LINE 2100 1 PAGE UBC HOGG MTA APR. 05, 1980 20:32:44 *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/002A AUDIO RESP SYS - VOTRAX VTRX SA G W070:VOTRX.S(6) 4.3T1 762 AUDIO_RESP_SYS_-_VOTRAX.V.SA.002 1 LINE 81 36 PAGE UM FRONCZAK APR. 05, 1980 20:32:46 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). ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): CHANGED DEF AND VOC FILE READS TO USE NOATTN MODIFIER (TO PREVENT RECURSION IN DSR). ALSO, CHANGED THE VOTRAX PEEL ROUTINE. ***************************************************************************** 00681/003A 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. 0 Referenced by comments of: 681/2, 681/8 00681/007 AUDIO RESP SYS - VOTRAX DICT OC G # *PDP8RTN (SEE COMP 116) UM FRONCZAK 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 *ARUDEF D *ARUDEF UM FRONCZAK *ARUDEF 0 PUBLIC TEXT DEFINITION FILE FOR TEXT INSERTION MODE. 00682/001A FILE SYSTEM RECOVERY DOCUMENTATION WF FILE:UBC.DISK.W 4.3T1 763 FILE_SYSTEM_RECOVERY.DOCU.WF.001 1 LINE 92 7 PAGE UM HELFFRICH APR. 05, 1980 20:32:55 FILE:UBC.DISK.W 0 THIS COMPONENT CONTAINS A COLLECTION OF REFERENCE INFORMATION AND PROGRAM DESCRIPTIONS WHICH CAN BE USED TO RECOVER FROM HARDWARE AND SOFTWARE DISK DISASTERS. 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/002A FILE SYSTEM RECOVERY CCATL DESC WF FILE:CCATL.W 4.3T1 764 FILE_SYSTEM_RECOVERY.CCAT.WF.002 1 LINE 93 2 PAGE UM HELFFRICH APR. 05, 1980 20:32:58 FILE:CCATL.W 0 WRITEUP DESCRIBING THE CCATL PROGRAM (442). 00682/003A FILE SYSTEM RECOVERY PM DESC WF FILE:PM.W 4.3T1 765 FILE_SYSTEM_RECOVERY.PM_D.WF.003 1 LINE 62 2 PAGE UBC O'REILLY HELFFRICH APR. 05, 1980 20:33:01 FILE:PM.W 0 WRITEUP DESCRIBING THE PACK MAP PROGRAM (1030). 00682/004A FILE SYSTEM RECOVERY DSKMAN DESC WF FILE:DSKMAN.W 4.3T1 766 FILE_SYSTEM_RECOVERY.DSKM.WF.004 1 LINE 67 1 PAGE UM HELFFRICH APR. 05, 1980 20:33:03 FILE:DSKMAN.W 0 WRITEUP DESCRIBING THE DSKMAN (*DSK) PROGRAM (073). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00682/005A FILE SYSTEM RECOVERY DASDI DESC WF FILE:DASDI.W 4.3T1 767 FILE_SYSTEM_RECOVERY.DASD.WF.005 1 LINE 80 2 PAGE UM HELFFRICH APR. 05, 1980 20:33:06 FILE:DASDI.W 0 WRITEUP DESCRIBING THE 3330 DASDI PROGRAM (598). 00682/006A FILE SYSTEM RECOVERY CHONID DESC WF FILE:CHONID.W 4.3T1 768 FILE_SYSTEM_RECOVERY.CHON.WF.006 1 LINE 76 1 PAGE UM HELFFRICH APR. 05, 1980 20:33:09 FILE:CHONID.W 0 WRITEUP DESCRIBING THE CHONID PROGRAM (599). 00682/007A FILE SYSTEM RECOVERY FM DESC WF FILE:FM.W 4.3T1 769 FILE_SYSTEM_RECOVERY.FM_D.WF.007 1 LINE 71 1 PAGE UBC HOGG HELFFRICH APR. 05, 1980 20:33:11 FILE:FM.W 0 WRITEUP DESCRIBING THE FILE MOVE PROGRAM (1020). 00682/008A FILE SYSTEM RECOVERY CHKVTOC DESC WF FILE:CHKVTOC.W 4.3T1 770 FILE_SYSTEM_RECOVERY.CHKV.WF.008 1 LINE 73 1 PAGE UM HELFFRICH APR. 05, 1980 20:33:14 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/010A FILE SYSTEM RECOVERY VNTD DESC WF FILE:VNTD.W 4.3T1 771 FILE_SYSTEM_RECOVERY.VNTD.WF.010 1 LINE 71 1 PAGE UM HELFFRICH APR. 05, 1980 20:33:17 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/012A FILE SYSTEM RECOVERY VAMREC DESC WF FILE:VAMREC.WRUP 4.3T1 772 FILE_SYSTEM_RECOVERY.VAMR.WF.012 1 LINE 108 5 PAGE SFU BENET HELFFRICH APR. 05, 1980 20:33:19 FILE:VAMREC.WRUP 0 WRITEUP DESCRIBING THE VAMREC PROGRAM (682/22). 00682/013A FILE SYSTEM RECOVERY RECOVERING WF FILE:RECOVERING 4.3T1 773 FILE_SYSTEM_RECOVERY.RECO.WF.013 1 LINE 182 6 PAGE UM HELFFRICH MAY 21, 1980 23:19:49 FILE:RECOVERING 0 DESCRIPTION OF PROCEDURES SUGGESTED FOR RECOVERING FROM DISK DISASTERS. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00682/014A FILE SYSTEM RECOVERY LINE FILE DESC WF FILE:DOC.DESC.LNE 4.3T1 774 FILE_SYSTEM_RECOVERY.LINE.WF.014 1 LINE 136 4 PAGE UM HELFFRICH APR. 05, 1980 20:33:25 FILE:DOC.DESC.LNE 0 DESCRIPTION OF MTS LINE FILE ORGANIZATION. 00682/015A FILE SYSTEM RECOVERY SEQ FILE DESC WF FILE:DOC.DESC.SEQ 4.3T1 775 FILE_SYSTEM_RECOVERY.SEQ.WF.015 1 LINE 130 4 PAGE UM HELFFRICH APR. 05, 1980 20:33:27 FILE:DOC.DESC.SEQ 0 DESCRIPTION OF MTS SEQ FILE ORGANIZATION. 00682/016A FILE SYSTEM RECOVERY CAT DESC WF FILE:DOC.DESC.CAT 4.3T1 776 FILE_SYSTEM_RECOVERY.CAT.WF.016 1 LINE 190 7 PAGE UM HELFFRICH APR. 05, 1980 20:33:30 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/018A FILE SYSTEM RECOVERY VNTD SA G VNTD FILE:VNTD(1000) 4.3T1 777 FILE_SYSTEM_RECOVERY.VNTD.SA.018 1 LINE 80 39 PAGE UM HELFFRICH APR. 05, 1980 20:33:32 0 PROGRAM TO VERIFY, TRACE, AND/OR DUMP THE FILE SYSTEM CATALOG. IT WILL VERIFY, TRACE, AND/OR DUMP THE ENTIRE CATALOG, A PARTICULAR USER CATALOG, OR A PARTICULAR USER FILE. SEE COMP 682/10 FOR A WRITEUP. ASSEMBLE USING *SYSMAC AND COPY:FILE.MACROS (482/33). ***************************************************************************** D4.3 CHANGES: 1) FIXED IOH FORMATS WHICH CAUSED SOME NUMERIC FIELD WIDTHS TO BE OVERFLOWED. 2) INCREASED SIZE OF CATALOG SEGMENT TABLE FOR LARGE USER IDS. 3) UPDATED FOR VAMX SUPPORT. ***************************************************************************** 0 Referenced by comments of: 682/10, 682/26 00682/019A FILE SYSTEM RECOVERY VNTD OC G FILE:VNTD(1,998) 4.3T1 778 FILE_SYSTEM_RECOVERY.VNTD.OC.019 1 LINE 80 9 PAGE UM HELFFRICH APR. 05, 1980 20:33:37 FILE:VNTD 00682/020A FILE SYSTEM RECOVERY CHKVTOC SA G CHKV FILE:CHKVTOC(1000) 4.3T1 779 FILE_SYSTEM_RECOVERY.CHKV.SA.020 1 LINE 80 23 PAGE UM HELFFRICH APR. 05, 1980 20:33:40 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. ********************************************************************************* 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 D4.3 CHANGES: REVISED FOR VAMX SUPPORT. ********************************************************************************* 0 Referenced by comments of: 682/8 00682/021A FILE SYSTEM RECOVERY CHKVTOC OC G FILE:CHKVTOC(1,999) 4.3T1 780 FILE_SYSTEM_RECOVERY.CHKV.OC.021 1 LINE 80 6 PAGE UM HELFFRICH APR. 05, 1980 20:33:44 0 CONTAINS A "$CONTINUE WITH RSTR:VTOCREAD+COPY:SYSDEFS" LINE. 00682/022A FILE SYSTEM RECOVERY VAMREC SA G VMRC FILE:VAMREC(1000) 4.3T1 781 FILE_SYSTEM_RECOVERY.VAMR.SA.022 1 LINE 80 108 PAGE SFU BENET HELFFRICH APR. 22, 1980 13:19:07 FILE:VAMREC 0 THE VAMREC DISK UTILITY. COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE WITH COPY:FILE.MACROS (482/33), COPY:CC.MACROS (1054/3), COPY:UC.MACROS (787/1), AND COPY:MISC.MACROS (728). (FILE CONTAINS COMMANDS AT LINE 0 TO ASSEMBLE). SEE COMPONENT 682/12 FOR A WRITEUP. ********************************************************************************* D4.3 CHANGES: THIS IS A NEW VERSION OF VAMREC WHICH USES THE RESOURCE MANAGER CODING CONVENTIONS AND STRUCTURED MACROS. IT USED THE OLD VAMREC AS ITS BASE, BUT MAJOR CHANGES IN STRUCTURE WERE MADE SO THE SOURCE CODE IS QUITE DIFFERENT. THIS VERSION OF VAMREC CAN BE USED ON BOTH VAM2- AND VAMX-FORMAT PACKS. ********************************************************************************* 0 Referenced by comments of: 682/12, 682/43 00682/023A FILE SYSTEM RECOVERY VAMREC OC G FILE:VAMREC(1,999) 4.3T1 782 FILE_SYSTEM_RECOVERY.VAMR.OC.023 1 LINE 20580 18 PAGE SFU BENET HELFFRICH APR. 22, 1980 13:20:20 0 HAS $CONTINUE WITH COPY:SYSDEFS (579/3) RECORDS. 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/026A FILE SYSTEM RECOVERY FIXCAT SA G FCAT FILE:FIXCAT(1000) 4.3T1 783 FILE_SYSTEM_RECOVERY.FIXC.SA.026 1 LINE 80 8 PAGE UM HELFFRICH MAY 21, 1980 23:20:47 FILE:FIXCAT 0 PROGRAM TO RECHAIN CATALOG SEGMENTS BACK TOGETHER AND ADD OR REMOVE MASTER INDEX 1 SUN SEP 08/96 19:03:19 Page 381 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ENTRIES AS REQUIRED. IT TAKES AS INPUT, THE OUTPUT FROM VNTD (682/18) AND PRODUCES AS OUTPUT A LIST OF USERIDS WHOSE CATALOGS WERE AFFECTED. THIS OUTPUT IS THEN USED FOR INPUT TO AMALGAMATE (682/37). ASSEMBLE USING COPY:FILE.MACROS (482/33). ***************************************************************************** D4.3 CHANGES: UPDATED FOR VAMX SUPPORT. ***************************************************************************** 00682/027A FILE SYSTEM RECOVERY FIXCAT OC G FILE:FIXCAT(1,999) 4.3T1 784 FILE_SYSTEM_RECOVERY.FIXC.OC.027 1 LINE 80 3 PAGE UM HELFFRICH MAY 21, 1980 23:20:48 00682/028A FILE SYSTEM RECOVERY FIXSD SA G FXSD FILE:FIXSD(1,999) 4.3T1 785 FILE_SYSTEM_RECOVERY.FIXS.SA.028 1 LINE 80 6 PAGE UM HELFFRICH APR. 05, 1980 20:34:11 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 AMALGAMATE (682/37). ASSEMBLE USING COPY:FILE.MACROS (482/33). ***************************************************************************** D4.3 CHANGES: 1) FIXED BUG IN PROGRAM CAUSING DRIVE NOT TO BE RELEASED IF ERROR ENCOUNTERED. 2) UPDATED FOR VAMX SUPPORT. ***************************************************************************** 00682/029A FILE SYSTEM RECOVERY FIXSD OC G FILE:FIXSD(1000) 4.3T1 786 FILE_SYSTEM_RECOVERY.FIXS.OC.029 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 20:34:14 00682/030A FILE SYSTEM RECOVERY RECATALOG SA G RCAT FILE:RECATALOG(1,999) 4.3T1 787 FILE_SYSTEM_RECOVERY.RECA.SA.030 1 LINE 80 4 PAGE UM HELFFRICH APR. 05, 1980 20:34:16 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). ********************************************************************************* D4.3 CHANGES: SCRATCH AREA SIZE INCREASED FOR VAMX SUPPORT. ********************************************************************************* 00682/031A FILE SYSTEM RECOVERY RECATALOG OC G FILE:RECATALOG(1000) 4.3T1 788 FILE_SYSTEM_RECOVERY.RECA.OC.031 1 LINE 80 1 PAGE UM HELFFRICH APR. 05, 1980 20:34:19 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00682/032 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/033 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/034A FILE SYSTEM RECOVERY FILES SA G FILE:STARFILES(1,999) 4.3T1 789 FILE_SYSTEM_RECOVERY.FILE.SA.034 1 LINE 74 3 PAGE UM HELFFRICH APR. 05, 1980 20:34:22 FILE:STARFILES 0 PROGRAM TO PRINT WHICH USERS FILES HAVE BEEN AFFECTED AND HOW BY A DISK CRASH. IT TAKES AS INPUT A DESCRIPTION OF THE DISASTER AND OTHER DATA IN FILE:FILELIST (SEE THE SOURCE FOR DETAILS ON THE FORMAT OF THIS FILE). THE OUTPUT FROM AMALGAMATE (682/37) IS BASICALLY WHAT IS USED TO GENERATE THIS DATA FILE WITH THE HELP OF *MVC, *COMBINE, THE EDITOR, ETC. 00682/035A FILE SYSTEM RECOVERY FILES OC G FILE:STARFILES(1000) 4.3T1 790 FILE_SYSTEM_RECOVERY.FILE.OC.035 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 20:34:24 0 PUT THIS IN *FILES AFTER A DISK CRASH. 00682/036 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/33), ACCUPDAT (104/26), AND A DUMMY PRINT ROUTINE, PLUS $CONTINUE WITHS FOR ACATALOG (104/108), ACATSUB (104/110), VTOCREAD (067/4), TEST DSACC (482/30), ACCLIB (104/41), AND SYSDEFS (579), WHICH WHEN RUN WITH UNIT ZERO ASSIGNED TO *DUMMY* AND UNIT ONE ASSIGNED TO AN EMPTY FILE WILL UPDATE THE FILE SPACE FIELDS IN THE ACCOUNTING RECORDS FOR ALL USERS (QUICKLY). CONTAINS REP CARD TO INCREASE SPEED BY KEEPING ACCOUNTING FILES LOCKED MORE. 00682/037A FILE SYSTEM RECOVERY AMALGAMATE SA G FILE:AMALGAMATE(1000) 4.3T1 791 FILE_SYSTEM_RECOVERY.AMAL.SA.037 1 LINE 72 6 PAGE UM HELFFRICH APR. 05, 1980 20:34:27 FILE:AMALGAMATE 0 PROGRAM TO TAKE A LIST OF FILES AND USE "FILEDIR.MAS" TO APPEND TAPE LOCATION INFORMATION FOR USE BY FASTRESTORE (671/1). ALSO COMPARES "FILEDIR.MAS" WITH FILE SYSTEM CATALOG TO LOCATE FILES WHOSE DATA IS LOST (NOT ON ANY RESTORE TAPES) AND WHOSE SHARING INFORMATION HAS BEEN DAMAGED (ALSO NOT ON ANY RESTORE TAPES). COPIES *CNFGINFODSECT (654). ASSEMBLE WITH THE FILE SAVE MACROS (67/29). NOTE: THE DIRECTORY FILES RSTR:FILEDIR.MAS, RSTR:FILEDIR.NEW, AND RSTR:TAPEDIR MUST BE PERMITTED WITH READ ACCESS TO FILE&PKEY=DISASTER. ********************************************************************************* D4.3 CHANGES: AMALGAMATE HAS BEEN UPDATED TO SUPPLY A CATALOG FD LOCATION TO FASTRESTORE (671) TO SPEED UP CATALOG SEARCHING. ********************************************************************************* 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 682/26, 682/28, 682/34, 682/39 00682/038A FILE SYSTEM RECOVERY AMALGAMATE OC G FILE:AMALGAMATE(1,999) 4.3T1 792 FILE_SYSTEM_RECOVERY.AMAL.OC.038 1 LINE 80 4 PAGE UM HELFFRICH APR. 05, 1980 20:34:30 0 HAS A "$CONTINUE WITH MTS:UBCDATEX+FILE:CHKFILE RETURN" LINE. 0 Referenced by comments of: 671/1 00682/039A FILE SYSTEM RECOVERY CHKFILE SUBR SA G CKF2 FILE:CHKFILE(1000) 4.3T1 793 FILE_SYSTEM_RECOVERY.CHKF.SA.039 1 LINE 80 7 PAGE UM HELFFRICH APR. 05, 1980 20:34:32 FILE:CHKFILE 0 ALTERNATE VERSION OF SYSTEM CHKFILE ROUTINE FOR USE BY MERGE (67/21) AND AMALGAMATE (682/37). COPIES *CNFGINFODSECT (654). ASSEMBLE USING COPY:FILE.MACROS (482/33). ********************************************************************************* D4.3 CHANGES: CHANGED (TO OPERATE WITH NEW VERSION OF AMALGAMATE (682/37)) TO RETURN FILE FD LOCATION IN GR0. ********************************************************************************* 0 Referenced by comments of: 67/21, 752/1 00682/040A FILE SYSTEM RECOVERY CHKFILE SUBR OC G FILE:CHKFILE(1,999) 4.3T1 794 FILE_SYSTEM_RECOVERY.CHKF.OC.040 1 LINE 80 3 PAGE UM HELFFRICH APR. 05, 1980 20:34:35 0 CONTAINS A "$CONTINUE WITH COPY:SYSDEFS" (579/3) RECORD. 00682/041A FILE SYSTEM RECOVERY CALLRELDSK SA G FILE:CALLRELDSK(1000) 4.3T1 795 FILE_SYSTEM_RECOVERY.CALL.SA.041 1 LINE 72 1 PAGE UM HELFFRICH APR. 05, 1980 20:34:38 FILE:CALLRELDSK 0 PROGRAM TO TAKE ACATSUB OUTPUT AND CALL RELDSK TO DESTROY UNCATALOGED FILES. ASSEMBLE WITH COPY:FILE.MACROS (482/33). ********************************************************************************* D4.3 CHANGES: UPDATED FOR VAMX SUPPORT. ********************************************************************************* 00682/042A FILE SYSTEM RECOVERY CALLRELDSK OC G FILE:CALLRELDSK(1,999) 4.3T1 796 FILE_SYSTEM_RECOVERY.CALL.OC.042 1 LINE 80 1 PAGE UM HELFFRICH APR. 05, 1980 20:34:40 00682/043 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. 1 SUN SEP 08/96 19:03:19 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 ********************************************************************************* D4.3 VERSION: THIS PROGRAM PROBABLY WILL NOT WORK WITH THE CURRENT VERSION OF VAMREC (682/22). ********************************************************************************* 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," (FEBRUARY 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00684/001 OXFORD SA G S0565 D4T3 VLO FSNAME=OXFORD..SA.001(1) 111 D4T3 111 OXFORD..SA.001 1 LINE 80 24 PAGE UBC HOGG DWB JULY 28, 1977 23:24:13 0 IF THIS DECK IS PRESENT IN THE RESIDENT SYSTEM, MTS WILL PRODUCE "FRED WORDS" (FOUR LETTER ENGLISH WORDS) IN THE INTERSTICES OF THE EDGELINE FOR BATCH AND *PRINT* OUTPUT DESIGNED TO AID SEPARATION OF PRINTED OUTPUT. MTS HAS A WXTRN FOR OXFORD AND TESTS IT FOR ZERO TO SKIP THE CALL IF NOT PRESENT. 00684/002 OXFORD OC G S0565 D4T3 VLO FSNAME=OXFORD..OC.002(1) 112 D4T3 112 OXFORD..OC.002 1 LINE 80 3 PAGE UBC HOGG DWB JULY 28, 1977 23:24:15 00685/001A UNSUPPORTED SOFTWARE WRITEUPS WF S0684 UNSP FSNAME=W.F 4.3T1 797 UNSUPPORTED_SOFTWARE.WRIT.WF.001 1 LINE 135 31 PAGE UM UNSP NOV. 29, 1979 15:05:01 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/002A UNSUPPORTED SOFTWARE WRITEUPS PF UNSP:WRITEUPS 4.3T1 798 UNSUPPORTED_SOFTWARE.WRIT.PF.002 1 LINE 70 49 PAGE UM UNSP APR. 05, 1980 20:39:16 UNSP:WRITEUPS 0 THIS FILE CONTAINS BRIEF WRITEUPS (AS IN VOLUMES 2 AND 3) FOR THE SEVERAL "UNSUPPORTED" 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 SOFTWARE COMPONENTS. 0 Referenced by comments of: 590/11, 673/1, 685/1, 736/1 00685/003A UNSUPPORTED SOFTWARE CATALOG P UNSP:CATALOG 4.3T1 799 UNSUPPORTED_SOFTWARE.CATA.P.003 1 LINE 68 6 PAGE UM UNSP APR. 05, 1980 20:39:22 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/59, 642/6, 642/25, 765/1, 773/3, 774/2, 783/14, 784/3, 785/2, 785/3, 1052/2 00685/005A UNSUPPORTED SOFTWARE MACRO LIBRARY SM G UNSP:MACLIB 4.3T1 800 UNSUPPORTED_SOFTWARE.MACR.SM.005 1 LINE 72 5 PAGE UM UNSP MTA APR. 05, 1980 20:39:27 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/14, 590/15, 590/16, 590/17, 590/18, 590/19, 590/20, 590/21, 590/26, 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). 00685/007A UNSUPPORTED SOFTWARE MACRO TEST PGM SA S0938 FSAVE2 VLO FSNAME=MIFMACTEST 4.3T1 801 UNSUPPORTED_SOFTWARE.MACR.SA.007 1 LINE 72 2 PAGE UM UNSP MTA NOV. 02, 1979 23:04:04 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 4.3T1 802 UNSUPPORTED_SOFTWARE.NEWS.P.008 1 LINE 68 4 PAGE UM UNSP APR. 05, 1980 20:43:21 0 LIST OF MOST CHANGES MADE TO UNSUPPORTED SOFTWARE AT UM. **************************************************************************** D4.3 CHANGES: NOW CONTAINS $CONTINUE WITH UNSP:NEWSNEW" (685/9) AND "$CONTINUE WITH UNSP:NEWSOLD" (685/10). **************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00685/009A UNSUPPORTED SOFTWARE NEWSNEW P UNSP:NEWSNEW 4.3T1 803 UNSUPPORTED_SOFTWARE.NEWS.P.009 1 LINE 68 3 PAGE UM UNSP APR. 05, 1980 20:43:24 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 4.3T1 804 UNSUPPORTED_SOFTWARE.NEWS.P.010 1 LINE 69 6 PAGE UM UNSP APR. 05, 1980 20:43:27 0 CONTAINS NEWS ITEMS SENT OUT ON THE LAST REGULAR DISTRIBUTION. 0 Referenced by comments of: 685/8 00685/011A UNSUPPORTED SOFTWARE PASCAL NEWS P UNSP:PASCAL.NEWS 4.3T1 805 UNSUPPORTED_SOFTWARE.PASC.P.011 1 LINE 68 14 PAGE UM UNSP APR. 05, 1980 20:43:29 0 THIS FILE CONTAINS INFORMATION ABOUT THE CHANGES TO ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM. CURRENTLY, THOSE COMPILERS INCLUDE PASCAL/UBC (1052), PASCAL/SB (STONY BROOK) (9003), AND PASCAL/8000 (9004). IT CONTAINS NO INFORMATION ABOUT THE GRENOBLE PASCAL (664). 0 Referenced by comments of: 1052/1 00686/001A MICRO CROSS-ASSEMBLER GENCODE SA G MINI:ASM.GENCODE 4.3T1 806 MICRO_CROSS-ASSEMBLER.GEN.SA.001 1 LINE 72 57 PAGE UM UNSP LUBBERS APR. 05, 1980 20:43:33 0 M6800ASR IS A CROSS-ASSEMBLER FOR THE MOTOROLA M6800 MICROPROCESSOR. MCS650XASR IS A CROSS-ASSEMBLER FOR THE MOS TECHNOLOGY MCS6500 FAMILY OF MICROCOMPUTERS. I8080ASR IS A CROSS-ASSEMBLER FOR THE INTEL 8080 MICROPROCESSOR. Z80ASR IS A CROSS-ASSEMBLER FOR THE ZILOG Z80 MICROPROCESSOR. THESE WERE ORIGINALLY WRITTEN BY CLARK LUBBERS AT UM, WHERE THEY ARE CLASSIFIED AS "UNSUPPORTED" SOFTWARE. SHORT WRITEUPS ARE GIVEN IN 685/2. NOTE: ALL SUBCOMPONENTS OF 686 SHOULD BE ASSEMBLED USING *ASMG (066). THIS SUBCOMPONENT IS GENERAL SYSTEM-INDEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/002A MICRO CROSS-ASSEMBLER KWIC SA G MINI:ASM.KWIC 4.3T1 807 MICRO_CROSS-ASSEMBLER.KWI.SA.002 1 LINE 80 14 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:31 0 SYSTEM-INDEPENDENT KEYWORD SCANNER ROUTINE. ASSEMBLE USING 686/17. 00686/003A MICRO CROSS-ASSEMBLER SYMTAB SA G MINI:ASM.SYM 4.3T1 808 MICRO_CROSS-ASSEMBLER.SYM.SA.003 1 LINE 80 13 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:34 0 SYSTEM-INDEPENDENT SYMBOL TABLE ROUTINES. ASSEMBLE USING 686/17. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00686/004A MICRO CROSS-ASSEMBLER SYSCODE SA G MINI:ASM.SYSCODE 4.3T1 809 MICRO_CROSS-ASSEMBLER.SYS.SA.004 1 LINE 72 13 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:36 0 MTS-DEPENDENT, ASSEMBLER-INDEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/005A MICRO CROSS-ASSEMBLER M6800I SA G MINI:ASM.M6800I 4.3T1 810 MICRO_CROSS-ASSEMBLER.M68.SA.005 1 LINE 72 43 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:39 0 M6800 SYSTEM-INDEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/006A MICRO CROSS-ASSEMBLER M6800MTS SA G MINI:ASM.M6800MTS 4.3T1 811 MICRO_CROSS-ASSEMBLER.M68.SA.006 1 LINE 72 5 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:43 0 M6800 MTS-DEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/007A MICRO CROSS-ASSEMBLER M650XI SA G MINI:ASM.M650XI 4.3T1 812 MICRO_CROSS-ASSEMBLER.M65.SA.007 1 LINE 72 43 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:46 0 MCS650X SYSTEM-INDEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/008A MICRO CROSS-ASSEMBLER M650XMTS SA G MINI:ASM.M650XMTS 4.3T1 813 MICRO_CROSS-ASSEMBLER.M65.SA.008 1 LINE 72 5 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:51 0 MCS650X MTS-DEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/009A MICRO CROSS-ASSEMBLER I8080I SA G MINI:ASM.I8080I 4.3T1 814 MICRO_CROSS-ASSEMBLER.I80.SA.009 1 LINE 72 43 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:53 0 I8080 SYSTEM-INDEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/010A MICRO CROSS-ASSEMBLER I8080MTS SA G MINI:ASM.I8080MTS 4.3T1 815 MICRO_CROSS-ASSEMBLER.I80.SA.010 1 LINE 72 5 PAGE UM UNSP LUBBERS APR. 06, 1980 12:16:59 0 I8080 MTS-DEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/011A MICRO CROSS-ASSEMBLER Z80I SA G MINI:ASM.Z80I 4.3T1 816 MICRO_CROSS-ASSEMBLER.Z80.SA.011 1 LINE 72 50 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:01 0 Z80 SYSTEM-INDEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/012A MICRO CROSS-ASSEMBLER Z80MTS SA G MINI:ASM.Z80MTS 4.3T1 817 MICRO_CROSS-ASSEMBLER.Z80.SA.012 1 LINE 72 5 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:07 0 Z80 MTS-DEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00686/013C MICRO CROSS-ASSEMBLER M6809I SA G MINI:ASM.M6809I 4.3T1 818 MICRO_CROSS-ASSEMBLER.M68.SA.013 1 LINE 72 50 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:09 0 M6809 SYSTEM INDEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/014C MICRO CROSS-ASSEMBLER M6809MTS SA G MINI:ASM.M6809MTS 4.3T1 819 MICRO_CROSS-ASSEMBLER.M68.SA.014 1 LINE 72 5 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:14 0 M6809 MTS-DEPENDENT CODE. COPIES 686/16. ASSEMBLE USING 686/17. 00686/015A MICRO CROSS-ASSEMBLER MESSAGES M ETC:M6800ASRERR 4.3T1 820 MICRO_CROSS-ASSEMBLER.MES.M.015 1 LINE 65 2 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:17 ETC.:M6800ASRERR 0 ERROR MESSAGES. 00686/016A MICRO CROSS-ASSEMBLER COPY SECTION SA G MINI:ASM.DSECT 4.3T1 821 MICRO_CROSS-ASSEMBLER.COP.SA.016 1 LINE 78 10 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:20 00686/017A MICRO CROSS-ASSEMBLER MACRO LIB SM G MINI:ASM.MACRO 4.3T1 822 MICRO_CROSS-ASSEMBLER.MAC.SM.017 1 LINE 71 3 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:22 00686/018A MICRO CROSS-ASSEMBLER M6800ASR OE G UNSP:M6800ASR 4.3T1 823 MICRO_CROSS-ASSEMBLER.M68.OE.018 1 LINE 32712 11 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:25 UNSP:M6800ASR 0 OBJECT FOR MOTOROLA M6800 MICROPROCESSOR CROSS-ASSEMBLER. 00686/019A MICRO CROSS-ASSEMBLER MCS650ASR OE G UNSP:MCS650XASR 4.3T1 824 MICRO_CROSS-ASSEMBLER.MCS.OE.019 1 LINE 31888 10 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:27 UNSP:MCS650XASR 0 OBJECT FOR MCS TECHNOLOGY 6500 SERIES MICROCOMPUTERS CROSS-ASSEMBLER. 00686/020A MICRO CROSS-ASSEMBLER I8080ASR OE G UNSP:I8080ASR 4.3T1 825 MICRO_CROSS-ASSEMBLER.I80.OE.020 1 LINE 32040 10 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:30 UNSP:I8080ASR 0 OBJECT FOR INTEL 8080 MICROCOMPUTER CROSS-ASSEMBLER. 0 Referenced by comments of: 756/1 00686/021A MICRO CROSS-ASSEMBLER Z80ASR OE G UNSP:Z80ASR 4.3T1 826 MICRO_CROSS-ASSEMBLER.Z80.OE.021 1 LINE 32767 10 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:33 UNSP:Z80ASR 0 OBJECT FOR ZILOG Z80 MICROPROCESSOR CROSS-ASSEMBLER. 00686/022C MICRO CROSS-ASSEMBLER M6809ASR OE G UNSP:M6809ASR 4.3T1 827 MICRO_CROSS-ASSEMBLER.M68.OE.022 1 LINE 32767 10 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:35 0 OBJECT FOR MOTOROLA M6809 MICROCOMPUTER CROSS-ASSEMBLER. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00686/023A MICRO CROSS-ASSEMBLER MANUAL WF MINI:ASM.MAN 4.3T1 828 MICRO_CROSS-ASSEMBLER.MAN.WF.023 1 LINE 80 36 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:38 0 MANUAL FOR USAGE OF MICRO PROCESSOR CROSS-ASSEMBLERS. 00686/024C MICRO CROSS-ASSEMBLER NEWS P MINI:NEWS 4.3T1 829 MICRO_CROSS-ASSEMBLER.NEW.P.024 1 LINE 70 3 PAGE UM UNSP LUBBERS APR. 06, 1980 12:17:42 0 ******************************************************************************** D4.3 VERSION: THIS IS A PRINT FILE CONTAINING A DESCRIPTION OF THE CHANGES TO MICRO CROSS ASSEMBLERS FOR D4.3. ******************************************************************************** 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. 0 Referenced by comments of: 540/17, 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/17 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) 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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. 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 4.3T1 830 TAPEDRIVES..SA.001 1 LINE 80 5 PAGE UBC UNSP JUNE 26, 1979 17:08:41 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. *************************************************************************** D4.3 CHANGES: OUTPUT FORMAT CHANGED SLIGHTLY. *************************************************************************** 00693/002A TAPEDRIVES OE G UNSP:TAPEDRIVES 4.3T1 831 TAPEDRIVES..OE.002 1 LINE 695 1 PAGE UBC UNSP APR. 06, 1980 12:22:11 UNSP:TAPEDRIVES 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 0 Referenced by comments of: 772/2, 773/3, 774/2 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. 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 LIST (OBSOLETED BY 774) D4T3 158 LIST..SF.001 1 LINE 80 3 PAGE UM 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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. 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/110 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 (308/19). 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). 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 (308/19). 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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). ASSEMBLE USING COPY:MTS.MACROS (344/3). RSCAN IS SLOWLY BEING REPLACE BY SCAN (753). 0 Referenced by comments of: 71/1, 707/3 00707/002 RSCAN LISTCMD SUBR SA G S0811 REBATE 'REBATES' FSNAME=LISTCMD 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/70) AND COPY:RATEVEC (651/2). 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/11 00711/001A COMP CNTR PUBLICATIONS MEMO 404 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M404LIST 4.3T1 832 COMP_CNTR_PUBLICATIONS.ME.WF.001 1 LINE 97 5 PAGE UM P.O. OCT. 09, 1979 08:49:49 0 THIS IS COMPUTING CENTER MEMO 404 -- "LIST AND SUBJECT INDEX OF CCMEMOS" (AUGUST 1979). DYNAMICALLY LOADS THE IND FUNCTIONS FROM THE PUBLICATIONS FUNCTION LIBRARY (711/6). 00711/002A COMP CNTR PUBLICATIONS MEMO 405 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M405CCPUB 4.3T1 833 COMP_CNTR_PUBLICATIONS.ME.WF.002 1 LINE 132 6 PAGE UM P.O. OCT. 09, 1979 08:50:02 0 THIS IS COMPUTING CENTER MEMO 405 -- "COMPUTING CENTER PUBLICATIONS" (AUGUST 1979). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 00711/007C COMP CNTR PUBLICATIONS TXTF MACROS WX W278:MEMO.LAYOUT 4.3T1 834 COMP_CNTR_PUBLICATIONS.TX.WX.007 1 LINE 92 1 PAGE UM LIFT APR. 06, 1980 12:26:44 00712/001A *RESTORE MAIN PGM SA G OLRS RSTR:RESTORE(1000) 4.3T1 835 RESTORE.MAIN_PGM.SA.001 1 LINE 80 24 PAGE UM HELFFRICH APR. 06, 1980 12:26:45 RSTR:RESTORE 0 USER RUNNABLE PROGRAM TO RESTORE FILES SAVED BY THE SYSTEM ONLINE FILE SAVE PROGRAM (67). CALLS AUTOREST (712/2), AND RSTFMT2 (092/3). ASSEMBLE USING THE FILESAVE MACROS (67/29). 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. ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2A/RD16): THIS VERSION FIXES PROBLEMS CAUSED BY RESTORATION TO FILES LOCKED BY OTHER TASKS, AND ELIMINATES REPORTS OF "ERROR DESTROYING TEMPORARY FILE" ON SIGNOFF. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 67/1, 67/17, 92/3, 712/2 00712/002A *RESTORE AUTOREST SUBR SA G ARES RSTR:AUTOREST(1000) 4.3T1 836 RESTORE.AUTOREST_SUBR.SA.002 1 LINE 80 11 PAGE UM HELFFRICH APR. 06, 1980 12:27:07 RSTR:AUTOREST 0 SUBROUTINE WHICH TAKES A LIST OF FILES FROM THE MAIN PROGRAM (712/1) AND MOUNTS AND SCANS TAPES CALLING RSTFMT2 (092/3) TO RESTORE FILES. ASSEMBLE WITH THE FILE SAVE MACROS (67/29). 0 Referenced by comments of: 712/1 00712/003A *RESTORE OBJECT OE G *RESTORE 4.3T1 837 RESTORE.OBJECT.OE.003 1 LINE 7308 7 PAGE UM HELFFRICH APR. 06, 1980 12:27:10 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 "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/001A MERIT CC SUPPORT 360 EQUS S G K1Y9:360EQUS 4.3T1 838 MERIT_CC_SUPPORT.360_EQUS.S.001 1 LINE 84 3 PAGE UM EADIE APR. 06, 1980 12:27:13 0 -------------------------------------------------------------------- This component is the source for the Merit computer network PDP-11 communications computer (CC) support, related utility programs and 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 command files. Included is the necessary PDP-11 code for the CDC support as well as for MTS (IBM/Amdahl). Anyone considering assembling these components ought to use the ID K1Y9 (it will make life a great deal easier)! -------------------------------------------------------------------- (715/1) is the *11ASR source for EQUS which define the hardware registers, CSW, CCW and sense data for the IBM Amdahl channel interface. 0 Referenced by comments of: 715/1 00715/002A MERIT CC SUPPORT MCS11COM S G K1Y9:MCS11COM 4.3T1 839 MERIT_CC_SUPPORT.MCS11COM.S.002 1 LINE 100 9 PAGE UM EADIE APR. 06, 1980 12:27:15 0 *11ASR source for the copy section for the Merit direct terminal support (Hermes). 00715/003A MERIT CC SUPPORT LA EQUS S G K1Y9:LAEQUS 4.3T1 840 MERIT_CC_SUPPORT.LA_EQUS.S.003 1 LINE 83 4 PAGE UM EADIE APR. 06, 1980 12:27:18 0 *11ASR source for equs which define the hardware registers for the asynchronous line adapter (LA32). 00715/004A MERIT CC SUPPORT NIMBLK DSECT S G K1Y9:NIMBLK 4.3T1 841 MERIT_CC_SUPPORT.NIMBLK_D.S.004 1 LINE 83 2 PAGE UM EADIE APR. 06, 1980 12:27:20 0 *11ASR source for the DSECT for the terminal access socket (Hermes). 00715/005A MERIT CC SUPPORT CLI COPY SECT S G K1Y9:CLISTUFF 4.3T1 842 MERIT_CC_SUPPORT.CLI_COPY.S.005 1 LINE 71 1 PAGE UM EADIE APR. 06, 1980 12:27:23 0 *11ASR source for the DSECT and EQUS used by the command language interpreter (CLI). 00715/006A MERIT CC SUPPORT FORMAT EQUS S O K1Y9:FORMATEQUS 4.3T1 843 MERIT_CC_SUPPORT.FORMAT_E.S.006 1 LINE 83 3 PAGE UM EADIE APR. 06, 1980 12:27:26 0 *11ASR source for the EQUS for the output formatting routine (FMTXT). 00715/007A MERIT CC SUPPORT IVECTOR DSECT S G K1Y9:IVECTOR 4.3T1 844 MERIT_CC_SUPPORT.IVECTOR.S.007 1 LINE 99 2 PAGE UM EADIE APR. 06, 1980 12:27:28 0 *11ASR source for the host-to-network interface transfer vector. 00715/008A MERIT CC SUPPORT CCB DSECT S G K1Y9:CCB 4.3T1 845 MERIT_CC_SUPPORT.CCB_DSEC.S.008 1 LINE 83 1 PAGE UM EADIE APR. 06, 1980 12:27:31 0 *11ASR source for the clock control block (CCB). 00715/009A MERIT CC SUPPORT RQCB DSECT S G K1Y9:RQCB 4.3T1 846 MERIT_CC_SUPPORT.RQCB_DSE.S.009 1 LINE 77 1 PAGE UM EADIE APR. 06, 1980 12:27:33 0 *11ASR source for the record queue control block (RQCB). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00715/010A MERIT CC SUPPORT OPEN BCB DSECT S G K1Y9:OPENBCB 4.3T1 847 MERIT_CC_SUPPORT.OPEN_BCB.S.010 1 LINE 87 1 PAGE UM EADIE APR. 06, 1980 12:27:36 0 *11ASR source for the open buffer control block. Copies 715/11. 00715/011A MERIT CC SUPPORT BCB DSECT S G K1Y9:BCB 4.3T1 848 MERIT_CC_SUPPORT.BCB_DSEC.S.011 1 LINE 89 1 PAGE UM EADIE APR. 06, 1980 12:27:39 0 *11ASR source for the buffer control block (BCB). 00715/012A MERIT CC SUPPORT SCB DSECT S G K1Y9:SCB 4.3T1 849 MERIT_CC_SUPPORT.SCB_DSEC.S.012 1 LINE 89 3 PAGE UM EADIE APR. 06, 1980 12:27:41 0 *11ASR source for the socket control block (SCB). 00715/013A MERIT CC SUPPORT TCB DSECT S G K1Y9:TCB 4.3T1 850 MERIT_CC_SUPPORT.TCB_DSEC.S.013 1 LINE 82 1 PAGE UM EADIE APR. 06, 1980 12:27:44 0 *11ASR source for the task control block (TCB). 00715/014A MERIT CC SUPPORT GLOBAL EQUS S G K1Y9:EQUS 4.3T1 851 MERIT_CC_SUPPORT.GLOBAL_E.S.014 1 LINE 83 4 PAGE UM EADIE APR. 06, 1980 12:27:47 0 *11ASR source for the global equs. 00715/015A MERIT CC SUPPORT MACROS S G K1Y9:MACROS 4.3T1 852 MERIT_CC_SUPPORT.MACROS.S.015 1 LINE 72 1 PAGE UM EADIE APR. 06, 1980 12:27:49 0 *11ASR source for the macros. 00715/016A MERIT CC SUPPORT SWITCHES EQUS S G K1Y9:SWITCHES 4.3T1 853 MERIT_CC_SUPPORT.SWITCHES.S.016 1 LINE 90 3 PAGE UM EADIE APR. 06, 1980 12:27:52 0 *11ASR source for the Merit record switch bit definitions. This is used only for documentation; it is not copied. 00715/017A MERIT CC SUPPORT CDC EQUS S G K1Y9:CDCEQUS 4.3T1 854 MERIT_CC_SUPPORT.CDC_EQUS.S.017 1 LINE 74 3 PAGE UM EADIE APR. 06, 1980 12:27:54 0 *11ASR source for the EQUS for the CDC hardware interface. 00715/018A MERIT CC SUPPORT VECTORS S G K1Y9:VECTORS.S 4.3T1 855 MERIT_CC_SUPPORT.VECTORS.S.018 1 LINE 102 8 PAGE UM EADIE APR. 06, 1980 12:27:57 0 *11ASR source for the low-core system vectors and parameters for the Merit PDP-11 operating system (MINOS). 00715/019A MERIT CC SUPPORT SYSTEM S G K1Y9:SYSTEM.S 4.3T1 856 MERIT_CC_SUPPORT.SYSTEM.S.019 1 LINE 120 55 PAGE UM EADIE APR. 06, 1980 12:28:00 0 *11ASR source for the basic MINOS subroutines. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00715/020A MERIT CC SUPPORT TAPE S G K1Y9:TAPE.S 4.3T1 857 MERIT_CC_SUPPORT.TAPE.S.020 1 LINE 92 4 PAGE UM EADIE APR. 06, 1980 12:28:09 0 *11ASR source for the paper tape and communications computer (CC) "host" support. 00715/021A MERIT CC SUPPORT TIMER S O K1Y9:TIMER.S 4.3T1 858 MERIT_CC_SUPPORT.TIMER.S.021 1 LINE 88 9 PAGE UM EADIE APR. 06, 1980 12:28:12 0 *11ASR source for the MINOS interval timer support routines. 00715/022A MERIT CC SUPPORT PARSER S G K1Y9:PARSE.S 4.3T1 859 MERIT_CC_SUPPORT.PARSER.S.022 1 LINE 90 16 PAGE UM EADIE APR. 06, 1980 12:28:14 0 *11ASR source for the MINOS CLI parser. 00715/023A MERIT CC SUPPORT COMMANDS S G K1Y9:CMNDS.S 4.3T1 860 MERIT_CC_SUPPORT.COMMANDS.S.023 1 LINE 117 33 PAGE UM EADIE APR. 06, 1980 12:28:17 0 *11ASR source for the MINOS command definitions and execution routines. 00715/024A MERIT CC SUPPORT NIM S G K1Y9:NIM.S 4.3T1 861 MERIT_CC_SUPPORT.NIM.S.024 1 LINE 137 30 PAGE UM EADIE APR. 06, 1980 12:28:22 0 *11ASR source for the task time routines for terminal support (NIM: network interface module). 00715/025A MERIT CC SUPPORT NIBBLE S G K1Y9:NIBBLE.S 4.3T1 862 MERIT_CC_SUPPORT.NIBBLE.S.025 1 LINE 77 9 PAGE UM EADIE APR. 06, 1980 12:28:28 0 *11ASR source for the nibble buffer management for terminal support. 00715/026A MERIT CC SUPPORT SSDST S G K1Y9:SSDST.S 4.3T1 863 MERIT_CC_SUPPORT.SSDST.S.026 1 LINE 103 14 PAGE UM EADIE APR. 06, 1980 12:28:30 0 *11ASR source for the start/stop (asynchronous) device support task (ring sniffer and hang-up detector). 00715/027A MERIT CC SUPPORT DEVICES S G K1Y9:DEVICES.S 4.3T1 864 MERIT_CC_SUPPORT.DEVICES.S.027 1 LINE 84 52 PAGE UM EADIE APR. 06, 1980 12:28:33 0 *11ASR source for the interrupt routines for the terminal support. 00715/028A MERIT CC SUPPORT GETOUT S G K1Y9:GETOUT.S 4.3T1 865 MERIT_CC_SUPPORT.GETOUT.S.028 1 LINE 94 6 PAGE UM EADIE APR. 06, 1980 12:28:39 0 *11ASR source for the lower level terminal support routines. 00715/029A MERIT CC SUPPORT TABLE S G K1Y9:TABLE.S 4.3T1 866 MERIT_CC_SUPPORT.TABLE.S.029 1 LINE 91 21 PAGE UM EADIE APR. 06, 1980 12:28:41 0 *11ASR source for the translate table for 2741 support. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00715/030A MERIT CC SUPPORT VERSNO S G K1Y9:VERSNO 4.3T1 867 MERIT_CC_SUPPORT.VERSNO.S.030 1 LINE 55 1 PAGE UM EADIE APR. 06, 1980 12:28:46 0 *11ASR source for the code to generate the system version number. 00715/031A MERIT CC SUPPORT MTS RARE S B K1Y9:MTSRARE.S 4.3T1 868 MERIT_CC_SUPPORT.MTS_RARE.S.031 1 LINE 92 18 PAGE UM EADIE APR. 06, 1980 12:28:48 0 *11ASR source for the MTS-dependent host interface support. 00715/032A MERIT CC SUPPORT CDC RARE S G K1Y9:CDCRARE.S 4.3T1 869 MERIT_CC_SUPPORT.CDC_RARE.S.032 1 LINE 115 12 PAGE UM EADIE APR. 06, 1980 12:28:51 0 *11ASR source for the CDC-dependent host interface support. 00715/033C MERIT CC SUPPORT INP S G K1Y9:INP.S 4.3T1 870 MERIT_CC_SUPPORT.INP.S.033 1 LINE 103 27 PAGE UM EADIE APR. 06, 1980 12:28:53 0 *11ASR source for the Merit internodal protocol support. 00715/034C MERIT CC SUPPORT SDA S G K1Y9:SDA.S 4.3T1 871 MERIT_CC_SUPPORT.SDA.S.034 1 LINE 94 10 PAGE UM EADIE APR. 06, 1980 12:28:57 0 *11ASR source for the Merit Synchronous Data Adapter support. 00715/035C MERIT CC SUPPORT INPUCB S G K1Y9:INPUCB.S 4.3T1 872 MERIT_CC_SUPPORT.INPUCB.S.035 1 LINE 86 1 PAGE UM EADIE APR. 06, 1980 12:29:00 0 *11ASR source for the Merit internodal protocol unit control block. 00715/036A MERIT CC SUPPORT GENERATE C G K1Y9:LINK.AN 4.3T1 873 MERIT_CC_SUPPORT.GENERATE.C.036 1 LINE 61 1 PAGE UM EADIE APR. 06, 1980 12:29:02 0 MTS and *LINK11 commands to build a MINOS system for Ann Arbor node. 00715/037A MERIT CC SUPPORT MTS LOADDUMP S G MNET:11LOAD(1000) 4.3T1 874 MERIT_CC_SUPPORT.MTS_LOAD.S.037 1 LINE 72 11 PAGE UM EADIE APR. 06, 1980 12:29:05 0 *11ASR source for the stand-alone program to dump and load the PDP-11 from MTS via the IBM/Amdahl channel interface. 00715/038A MERIT CC SUPPORT EVANS SP G K1YZ:EVANS.S(1000,2999) 4.3T1 875 MERIT_CC_SUPPORT.EVANS.SP.038 1 LINE 73 16 PAGE UM EADIE APR. 06, 1980 12:29:09 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/39, 715/40 00715/039A MERIT CC SUPPORT DMPRD SA G K1YZ:EVANS.S(3000) 4.3T1 876 MERIT_CC_SUPPORT.DMPRD.SA.039 1 LINE 72 1 PAGE UM EADIE APR. 06, 1980 12:29:13 0 SUBROUTINE CALLED BY EVANS (715/38) TO READ A PDP-11 CORE IMAGE FROM AN FDNAME AND BUILD AN INTERNAL DATA STRUCTURE. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00715/040A MERIT CC SUPPORT CRUNCH C MNET:CRUNCH 4.3T1 877 MERIT_CC_SUPPORT.CRUNCH.C.040 1 LINE 176 1 PAGE UM EADIE APR. 06, 1980 12:29:16 0 MTS AND EVANS (715/38) COMMANDS TO CRUNCH A DUMP TAKEN USING 11LOAD (642/11). 00715/041A MERIT CC SUPPORT SDA EQUS S G K1Y9:SDAEQUS 4.3T1 878 MERIT_CC_SUPPORT.SDA_EQUS.S.041 1 LINE 74 3 PAGE UM EADIE APR. 06, 1980 12:29:18 00715/042A MERIT CC SUPPORT SDA DSECTS S G K1Y9:SDADSECTS 4.3T1 879 MERIT_CC_SUPPORT.SDA_DSEC.S.042 1 LINE 81 4 PAGE UM EADIE APR. 06, 1980 12:29:21 00715/043A MERIT CC SUPPORT DO/IF MACROS SM G K1Y9:11SYSMAC 4.3T1 880 MERIT_CC_SUPPORT.DO/IF_MA.SM.043 1 LINE 67 3 PAGE UM EADIE APR. 06, 1980 12:29:24 0 *11ASR MACROS WHICH PROVIDE SIMILAR FACILITIES TO THE "STRUCTURED PROGRAMMING MACROS" IN *SYSMAC. 00716 FILE SAVE - ONLINE # (SEE COMP. 067) UM 0 Referenced by comments of: 67/1, 502/9 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. 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," (FEBRUARY 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 00718/001 TURNAROUND SA O S0938 FSAVE2 VLO FSNAME=TURNAROUND D4T3 294 TURNAROUND..SA.001 1 LINE 80 13 PAGE UM MTA JULY 28, 1977 23:57:58 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 (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 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/001A *OBJUTIL MAIN SA G W067:OBJUTIL.S 4.3T1 881 OBJUTIL.MAIN.SA.001 1 LINE 82 22 PAGE UM SHERRY APR. 06, 1980 12:29:26 0 OBJECT FILE EDITOR MAIN PROGRAM. CALLS THE EDITOR EST SUBROUTINE (648/6). THE NEGATIVE LINES CONTAIN COMMANDS TO ASSEMBLE IT. COPIES *GDINFODSECT (594), *LOADINFODSECT (001/4), AND *CNFGINFODSECT (654). ASSEMBLE WITH *ASMH (737) USING THE OBJUTIL MACROS (721/13, 721/14, AND 721/15) AND 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 *SYSMAC. USES THE MSG ROUTINES (1023/1). 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. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- THE FOLLOWING CHANGES HAVE ALREADY BEEN SENT OUT (ON RD4.2C): THIS VERSION OF THE OBJECT FILE EDITOR IS A SUBSTANTIAL REORGANIZATION OF THE PROGRAM TO CONFORM TO THE "STANDARD" CODING CONVENTIONS (ALTHOUGH THE RESOURCE MANAGER MACROS ARE NOT USED, YET). THE MAIN PROGRAM WAS DIVIDED INTO TEN SEPARATE ASSEMBLIES. BESIDES FIXING SEVERAL BUGS, THIS VERSION HAS A COUPLE OF NEW FEATURES, VIZ., 1) A NEW COMMAND: LIST REFERENCES SYMBOL<,SYMBOL> ... WHICH LISTS THE NAMES OF ALL OBJECT MODULES THAT CONTAIN SOME SORT OF REFERENCE TO THE SPECIFIED SYMBOL(S). THIS IS LIKE THE SECOND PART OF AN XREF COMMAND BUT JUST FOR A SPECIFIED SYMBOL. 2) IT IS NOW POSSIBLE TO INCLUDE $CONTINUE WITH RECORDS FROM AN EXTERNAL FILE, E. G., TO ADD A LIBRARY REFERENCE FOR A PL/1 PROGRAM: ADD *SOURCE*@-IC $CONTINUE WITH *PL1LIB THIS $CW RECORD WILL BE CALLED "ENDJUNK". IF IT HAS A "RETURN" CLAUSE THEN IT WILL BE NAMED "" (WHERE "N" IS SOME UNIQUE NUMBER) ALA *LINKEDIT (297). OBJUTIL NO LONGER READS @IC, SO YOU CAN SPECIFY AN FDNAME MODIFIER OR $SET IC=OFF. SEE 721/22 FOR A LIST OF ALL CHANGES. ***************************************************************************** 0 Referenced by comments of: 389/1, 721/13 00721/002A *OBJUTIL COMMANDS SA G W067:OBJU.CMD.S 4.3T1 882 OBJUTIL.COMMANDS.SA.002 1 LINE 84 39 PAGE UM SHERRY APR. 06, 1980 12:29:31 0 COMMAND PROCESSOR ROUTINES. NEGATIVE LINE NUMBER RANGE CONTAINS $RUN COMMAND TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE MSG ROUTINES (1023/1), *GDINFODSECT (594), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00721/003A *OBJUTIL PARSE SA G W067:OBJU.PARSE.S 4.3T1 883 OBJUTIL.PARSE.SA.003 1 LINE 82 10 PAGE UM SHERRY APR. 06, 1980 12:29:36 0 ROUTINES FOR PARSING COMMAND LINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE MSG ROUTINES (1023/1), *GDINFODSECT (594), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 00721/004A *OBJUTIL PATCH SA G W067:OBJU.PATCH.S 4.3T1 884 OBJUTIL.PATCH.SA.004 1 LINE 72 4 PAGE UM SHERRY APR. 06, 1980 12:29:40 0 ROUTINES TO GENERATE REP CARDS. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE MSG ROUTINES (1023/1), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 00721/005A *OBJUTIL PRINTER SA G W067:OBJU.PRINT.S 4.3T1 885 OBJUTIL.PRINTER.SA.005 1 LINE 68 6 PAGE UM SHERRY APR. 06, 1980 12:29:42 0 ROUTINES TO FORMAT AND PRINT OUTPUT LINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACRO LIBRARIES (721/13, 721/14, AND 721/15), THE MSG ROUTINES (1023/1), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 00721/006A *OBJUTIL READSUBR SA G W067:OBJU.READ.S 4.3T1 886 OBJUTIL.READSUBR.SA.006 1 LINE 83 22 PAGE UM SHERRY APR. 06, 1980 12:29:44 0 ROUTINES THAT READ OBJECT FILES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE MSG ROUTINES (1023/1), *GDINFODSECT (594), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00721/007A *OBJUTIL STORAGE SA G W067:OBJU.STOR.S 4.3T1 887 OBJUTIL.STORAGE.SA.007 1 LINE 72 5 PAGE UM SHERRY APR. 06, 1980 12:29:49 0 STORAGE ALLOCATION ROUTINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE MSG ROUTINES (1023/1), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 00721/008A *OBJUTIL SYMTABLE SA G W067:OBJU.SYMT.S 4.3T1 888 OBJUTIL.SYMTABLE.SA.008 1 LINE 72 6 PAGE UM SHERRY APR. 06, 1980 12:29:52 0 SYMBOL TABLE MANAGEMENT ROUTINES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE MSG ROUTINES (1023/1), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 00721/009A *OBJUTIL WRITING SA G W067:OBJU.WRIT.S 4.3T1 889 OBJUTIL.WRITING.SA.009 1 LINE 83 18 PAGE UM SHERRY APR. 06, 1980 12:29:54 0 ROUTINES TO WRITE OBJECT FILES. NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE IT. USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), COPY SECTION *GDINFODSECT (594), THE MSG ROUTINES (1023/1), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 00721/010 *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/011A *OBJUTIL OPTIMIZE SUBR SA G W067:OPTIMIZE.S 4.3T1 890 OBJUTIL.OPTIMIZE_SUBR.SA.011 1 LINE 135 15 PAGE UM SHERRY APR. 06, 1980 12:29:58 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/13, 721/14, 721/15). USES THE MSG ROUTINES (1023/1). COPIES *CNFGINFODSECT (654). THIS SUBCOMPONENT WAS FORMERLY A PART OF SQUASH (710). 1 SUN SEP 08/96 19:03:19 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 ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 00721/012C *OBJUTIL MISC RTNS SA G W067:OBJU.RTN.S 4.3T1 891 OBJUTIL.MISC_RTNS.SA.012 1 LINE 72 11 PAGE UM SHERRY APR. 06, 1980 12:30:02 0 MISCELLANEOUS SUBROUTINES. THE NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE. USES THE OBJUTIL MACROS (721/13, 721/14, AND 721/15), THE MSG ROUTINES (1023/1), *GDINFODSECT (594), AND *SYSMAC. ***************************************************************************** D4.3 VERSION: USES THE NEW MSG ROUTINES (1023/1). ***************************************************************************** 00721/013A *OBJUTIL OBJUTIL MACROS SM G W067:OBJU.MAC 4.3T1 892 OBJUTIL.OBJUTIL_MACROS.SM.013 1 LINE 72 25 PAGE UM SHERRY APR. 06, 1980 12:30:04 0 OBJECT FILE EDITOR MACROS. CONTAINS ROUTINE LINKAGE MACROS, MACROS THAT WERE FORMERLY IN THE SOURCE OF OBJUTIL (721/1), AND SEVERAL COPY SECTIONS INCLUDING THE PSECT DEFINITION, AND DATA STRUCTURE DSECTS. 0 Referenced by comments of: 1/9 00721/014A *OBJUTIL MISC MACROS SM G W067:MAC 4.3T1 893 OBJUTIL.MISC_MACROS.SM.014 1 LINE 73 13 PAGE UM SHERRY APR. 06, 1980 12:30:08 0 MISCELLANEOUS MACROS. 0 Referenced by comments of: 1/5, 354/5, 746/1, 775/1 00721/015A *OBJUTIL DCI MACROS SM G W067:DCI 4.3T1 894 OBJUTIL.DCI_MACROS.SM.015 1 LINE 72 14 PAGE UM SHERRY APR. 06, 1980 12:30:11 0 MACRO LIBRARY CONTAINING DCI MACROS USED TO INITIALIZE STORAGE IN DSECTS AND STACKS. 0 Referenced by comments of: 746/1 00721/016A *OBJUTIL SHARED OBJECT OE G SEG2:OBJUTIL 4.3T1 895 OBJUTIL.SHARED_OBJECT.OE.016 1 LINE 19755 69 PAGE UM SHERRY APR. 06, 1980 12:30:14 SEG2:OBJUTIL 0 370/470 OBJECT FOR THE OBJECT FILE EDITOR. LOADED INTO SHARED VM BY PISTLE. 00721/017 *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 1 SUN SEP 08/96 19:03:19 Page 412 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 OBJUTIL. 0 Referenced by comments of: 721/18 00721/018C *OBJUTIL OBJDUMP SA O W067:OBJU.DUMP.S 4.3T1 896 OBJUTIL.OBJDUMP.SA.018 1 LINE 72 6 PAGE UM SHERRY APR. 06, 1980 12:30:21 0 STAND-ALONE PROGRAM USED WITH SDS (600) TO PRODUCE A SYMBOLIC DUMP FROM INFORMATION LOGGED BY *OBJUTIL (721/17) UPON FATAL TERMINATION. COMMENTS IN THE SOURCE FILE DESCRIBE THE USE OF THIS PROGRAM. THE NEGATIVE LINE NUMBER RANGE CONTAINS COMMANDS TO ASSEMBLE. USES THE OBJUTIL MACROS (721/13, 721/14, 721/15), COPY:CC.MACROS (1054/3), *CNFGINFIDSECT (654) AND *SYSMAC. 00721/019C *OBJUTIL OBJDUMP OE O W067:OBJU.DUMP 4.3T1 897 OBJUTIL.OBJDUMP.OE.019 1 LINE 1520 5 PAGE UM SHERRY APR. 06, 1980 12:30:23 0 THIS PROGRAM MUST BE RUN FROM SDS AS: $DEB OBJU.DUMP 0=ETC:OBJUTIL.ERR SPRINT=*PRINT* SET ECHO=OFF OUTPUT=*PRINT* RUN THE FILE ETC:OBJUTIL.ERR, IF IT EXISTS, IS USED TO COLLECT ERRORS. THIS PROGRAM REQUIRES THE MSG ROUTINES (1023/1). SEE THE COMMENTS IN THE SOURCE FOR COMPLETE DETAILS. 00721/020A *OBJUTIL EXPLAIN FILE M ETC:OBJUTILEXP 4.3T1 898 OBJUTIL.EXPLAIN_FILE.M.020 1 LINE 74 22 PAGE UM SHERRY APR. 06, 1980 12:30:25 ETC.:OBJUTILEXP 0 EXPLAIN COMMAND MESSAGES. LINE NUMBERS IN THIS FILE ARE IMPORTANT. 00721/021A *OBJUTIL TEST DECK D W067:OBJUTIL.T 4.3T1 899 OBJUTIL.TEST_DECK.D.021 1 LINE 57 3 PAGE UM SHERRY APR. 06, 1980 12:30:28 0 THIS FILE CONTAINS SEVERAL TEST STREAMS FOR CHECKING THE OBJECT FILE EDITOR. IT IS USED AS FOLLOWS: $RUN *OBJUTIL SCARDS=OBJUTIL.T THE RESULTING OUTPUT IS INSPECTED TO VERIFY THE PROGRAM'S CORRECTNESS. 00721/022A *OBJUTIL CHANGES WX W067:OBJUTIL.CX 4.3T1 900 OBJUTIL.CHANGES.WX.022 1 LINE 70 4 PAGE UM SHERRY APR. 06, 1980 12:30:31 0 *TEXTFORM WRITEUP DESCRIBING NEW VERSION OF THE OBJECT FILE EDITOR, INCLUDING BUG FIXES AND NEW FEATURES. 00722/001A BLOCKHEADER SA O W009:BLKHDR.S 4.3T1 901 BLOCKHEADER..SA.001 1 LINE 136 5 PAGE UM SHERRY APR. 06, 1980 12:30:33 W009:BLKHDR.S 0 PROGRAM TO PRODUCE BLOCKLETTER HEADERS FOR PRINTED LISTINGS. WRITES ON 1 SUN SEP 08/96 19:03:19 Page 413 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 SPRINT (DEFAULTING TO *PRINT*). ACCEPTS THE FOLLOWING PARAMETERS IN THE PAR FIELD: HEADER=STRING, CENTER=STRING, FOOTER=STRING, MCC|LCC (MACHINE LOGICAL CARRIAGE CONTROL), AND EJECT (WHICH PRODUCES A PAGE EJECT AFTER THE LAST HEADING). STRING MUST BE < 10 CHARACTERS AND MAY BE ONE OF THE FOLLOWING SPECIAL CODES WHICH CAUSE AN APPROPRIATE TEXT SUBSTITUTION: = MTS VERSION CODE = CURRENT DATE AS "MM/DD/YY" = CURRENT MONTH SPELLED OUT = CURRENT YEAR SPELLED OUT = CURRENT TIME SPELLED OUT = CURRENT DATE AS "MMMDDYY" 00722/002A BLOCKHEADER OE O W009:BLKHDR 4.3T1 902 BLOCKHEADER..OE.002 1 LINE 1982 3 PAGE UM SHERRY APR. 06, 1980 12:30:36 W009:BLKHDR 00723/001A FNAMETRT SA G MTS:FNAMETRT(1,999) 4.3T1 903 FNAMETRT..SA.001 1 LINE 72 1 PAGE UM MTS HELFFRICH APR. 06, 1980 12:30:38 MTS.:FNAMETRT 0 TRANSLATE TABLE USED BY FNAME TO DECIDE WHAT CHARACTERS ARE LEGAL IN FILE NAMES. 00723/002A FNAMETRT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 00724/001A DISKCOPY SA G FILE:DISKCOPY.AS 4.3T2 568 DISKCOPY..SA.001 1 LINE 100 31 PAGE UM HELFFRICH MAY 22, 1980 02:05:32 FILE:DISKCOPY.AS 0 PROGRAM TO COPY THE CONTENTS OF PAGE-FORMATTED DISKS TO DISK OR TAPE. INSTRUCTIONS APPEAR AS COMMENTS AT THE BEGINNING OF THE PROGRAM. ASSEMBLE USING COPY:FILE.MACROS (482/33), COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041), COPY:UC.MACROS (787/1), AND *SYSMAC. ********************************************************************************* D4.3 VERSION: THIS PROGRAM HAS BEEN COMPLETELY REWRITTEN. THE PREVIOUS VERSION ONLY COPIED THE CONTENTS OF ONE 3330 TO ANOTHER (ERROR-FREE) 3330 DISK. THIS VERSION WORKS WITH TAPES AS WELL AS VAM2 AND VAMX FORMATTED DISKS. IT RELOCATES PAGES AS NECESSARY AND ATTEMPTS TO RECOVER FROM DISK ERRORS. IT MAKE IT POSSIBLE TO COPY THE CONTENTS OF A 3330 TO A 3350 (AND BACK AGAIN). THE TAPE FORMAT IS COMPATIBLE WITH TSS DUMP/RESTORE, PROVIDED THAT THE TAPE IS UNLABELED. THE PROGRAM IS WRITTEN TO WORK WITH ANY PAGE-FORMATTED DISK BUT HAS ONLY BEEN TESTED ON 3330-11S AND 3350S. ********************************************************************************* 00724/002A DISKCOPY NORMAL OBJ OC G FILE:DISKCOPY 4.3T2 569 DISKCOPY.NORMAL_OBJ.OC.002 1 LINE 80 54 PAGE UM HELFFRICH MAY 22, 1980 02:06:19 FILE:DISKCOPY 0 OBJECT FOR 724/1. USES THE UBC SUBTASKING MONITOR (1053) AND REFERENCES SYMBOLS IN COPY:SYSDEFS (579/3). CONTAINS A $CONTINUE WITH DMGR:MONITOR 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 (1058/14) RECORD. 00724/003A DISKCOPY SPECIAL OBJ OC O FILE:D4.2D/R 4.3T2 570 DISKCOPY.SPECIAL_OBJ.OC.003 1 LINE 9858 91 PAGE UM HELFFRICH MAY 22, 1980 02:06:24 0 OBJECT FOR 724/1, THE D4.3 SUBTASKING MONITOR (1053), AND THE OBJECT FOR VARIOUS OTHER D4.3 COMPONENTS SO AS TO MAKE THIS OBJECT DECK RUNNABLE IN A D4.2 SYSTEM. THE ONLY PURPOSE OF THIS DECK IS TO ALLOW THE RESTORATION OF THE D4.3 DUMP/RESTORE TAPE(S) BEFORE A D4.3 SYSTEM IS AVAILABLE. 00725 ACCFORMAT SA # (OBSOLETED BY 344/3) RD16T1 217 ACCFORMAT..SA. 1 LINE 80 4 PAGE UM JULY 12, 1979 23:16:57 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/001A *FTNTIDY SA G W062:FTNTIDY.S 4.3T1 904 FTNTIDY..SA.001 1 LINE 132 80 PAGE UM TIFFANY APR. 06, 1980 12:30:41 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. 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/003A *FTNTIDY OE G *FTNTIDY 4.3T1 905 FTNTIDY..OE.003 1 LINE 10521 20 PAGE UM TIFFANY APR. 06, 1980 12:31:25 *FTNTIDY 00728 A MISC.MACROS SM G COPY:MISC.MACROS 4.3T1 906 MISC.MACROS..SM. 1 LINE 72 4 PAGE UM MTA APR. 06, 1980 12:31:27 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, 67/2, 482/34, 502/9, 515/1, 598/1, 629/1, 634/1, 634/4, 682/22, 732/1, 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 769/9, 777/1, 787/11, 790/2, 790/4, 3024/1 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 S1319 D4.2T1 VLO FSNAME=FIND_LABEL.FNDLBL_PGM.SA.002(1) 740 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/001A CHECKFE SUBR SA G CKFE S0683 OGDEN FSNAME=CHECKFE.S 4.3T1 907 CHECKFE_SUBR..SA.001 1 LINE 80 4 PAGE UM OGDEN MAY 22, 1979 07:40:40 0 SUBROUTINE CALLED BY SSRTN (413/1) TO CHECK THE STATUS OF THE DATA CONCENTRATORS AND THE MERIT PDP-11, STORE THE STATUS CODE IN THE JOBSTA VECTOR, AND, OPTIONALLY, START AN MTS JOB IF "BAD" STATUS IS RETURNED. CALLS THE FESNIFF SUBROUTINE (731/3). COPIES COPY:JOBSTA (413/9). 0 Referenced by comments of: 413/1, 731/3 00731/002A CHECKFE SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00731/003A CHECKFE SUBR FESNIFF SUBR SA G FESN S0683 OGDEN FSNAME=FESNIFF.S 4.3T1 908 CHECKFE_SUBR.FESNIFF_SUBR.SA.003 1 LINE 80 6 PAGE UM OGDEN FEB. 29, 1980 00:58:09 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/004A CHECKFE SUBR FESNIFF SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00731/005C CHECKFE SUBR *FIXFEP C *FIXFEP 4.3T1 909 CHECKFE_SUBR.*FIXFEP.C.005 1 LINE 20 1 PAGE UM OGDEN APR. 06, 1980 12:36:24 *FIXFEP 0 OPERATOR FILE STARTED AUTOMATICALLY BY CHECKFE WHEN IT DETECTS SOMETHING ABNORMAL WITH ONE OF THE FRONT END PROCESSORS. $SOURCES TO SYS:FIXFEP (731/6). 00731/006C CHECKFE SUBR SYS:FIXFEP C SYS:FIXFEP 4.3T1 910 CHECKFE_SUBR.SYS:FIXFEP.C.006 1 LINE 82 1 PAGE UM OGDEN APR. 06, 1980 12:36:27 SYS:FIXFEP 0 COMMAND FILE $SOURCED TO BY 731/5. $RUNS SYS:HUH (734/4). 0 Referenced by comments of: 731/5 00731/007C CHECKFE SUBR SYS:FIXLOG D # MTS:TST.EMPTY UM OGDEN SYS:FIXLOG 0 LOG FILE USED BY SYS:FIXFEP. 00732/001A STOR SA G STOR W170:STOR(1000) 4.3T1 911 STOR..SA.001 1 LINE 80 39 PAGE UM HELFFRICH APR. 06, 1980 12:36:30 W170:STOR 0 STORAGE ALLOCATION ROUTINES (WHICH ARE INDEPENDENT OF MTS). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU(100) (087). ASSEMBLE USING COPY:MTS.MACROS (344/3), COPY:CC.MACROS (1054/3), COPY:MISC.MACROS (728), AND COPY:SETPARM (653/1). ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): CHANGED TO DEFINE SUBROUTINES TO SET AND RETRIEVE STORAGE KEYS AND REF/CHANGE BITS IN REAL OR VIRTUAL MACHINE MODE. ***************************************************************************** 00732/002A STOR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HELFFRICH 00732/003 STOR TEST PROGRAM SA G W170:STOR.DUMP(1000) 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A HUH *HUH C *HUH 4.3T1 912 HUH.*HUH.C.001 1 LINE 63 1 PAGE UM OGDEN APR. 06, 1980 12:36:52 0 COMMAND FILE USED BY THE OPERATORS TO RUN THE HUH PROGRAM (734/2). INVOKED BY ENTERING "MTS *HUH" ON THE OPERATORS CONSOLE. 00734/002A HUH HUH PGM SG G S0683 OGDEN FSNAME=HUH.S 4.3T1 913 HUH.HUH_PGM.SG.002 1 LINE 106 1 PAGE UM OGDEN MAY 22, 1979 07:40:38 0 PROGRAM WHICH CALLS THE CHKDEV SUBROUTINE (734/3) TO DETERMINE THE STATUS OF THE THREE DATA CONCENTRATORS AND THE MERIT PDP-11. 0 Referenced by comments of: 734/1, 734/3, 734/4 00734/003A HUH CHKDEV SUBR SA G CHKD S0683 OGDEN FSNAME=CHKDEV.S 4.3T1 914 HUH.CHKDEV_SUBR.SA.003 1 LINE 80 3 PAGE UM OGDEN MAY 22, 1979 07:40:42 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/004A HUH OC G SYS:HUH 4.3T1 915 HUH..OC.004 1 LINE 1182 3 PAGE UM OGDEN APR. 06, 1980 12:37:27 0 OBJECT FOR HUH (734/2) AND CHKDEV (734/3). 0 Referenced by comments of: 731/6 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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, 648/19, 721/1, 749/3, 749/4 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 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 0 INPUT TO *FAKEOSCREBLDL (545/39) 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/39) FOR OS VERSION OF ASMH. USED BY ASMHINVK (737/3). 0 Referenced by comments of: 737/3 00737/007 *ASMH OS LIBRARY OL O # ETC:ASMHLIB UM MTA 0 OBJECT LIBRARY VERSION OF OS ASMH. USED BY ASMHINVK (737/3). THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 737/3 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/20 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/23 00737/011 *ASMH OPTNL MATERIAL SA O # S0991 'ASMH SOURCE' FMT=FB(3440,80) 2 UM MTA 0 SOURCE FOR THE OS VERSION OF ASMH. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 737/15 00737/012 *ASMH INFO WF S1143 D4.1T1 VLO FSNAME=ASMH.INFO.WF.012(1) 584 D4.1T1 584 ASMH.INFO.WF.012 1 LINE 140 4 PAGE UM MTA MAY 13, 1978 18:26:16 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/014A *ASMH INFO3 WX S0938 FSAVE2 VLO FSNAME=ASMHMEMO 520 4.3T2 1 ASMH.INFO3.WX.014 1 LINE 106 5 PAGE UM MTA NOV. 02, 1979 22:27:02 0 A MEMO GIVING DETAILS ABOUT RECENT CHANGES TO *ASMH. 00737/015A *ASMH UTILITY SS O MTA:ASMHUTIL 4.3T2 2 ASMH.UTILITY.SS.015 1 LINE 117 4 PAGE UM MTA APR. 06, 1980 13:06:01 MTA.:ASMHUTIL 0 SPITBOL PROGRAM AND MTS COMMANDS TO MAKE ASSEMBLING LESS THAN ALL OF *ASMH POSSIBLE. $SOURCE TO IT AND SAY HELP FOR EXPLANATION. IT KEEPS A LOG OF CHANGES IN ASMHLOG. IT ASSUMES THE MACRO UPDATE HAS BEEN DONE. THE FOLLOWING FILES ARE REFERENCED: SYS:ASMHMASTER (737/11), WATF:ASMHMACLIB (737/25), ASMHDIR (737/16), ASMHUPD (737/18), ASMHUPDBUGS (737/19), ASMHUPDMTS (737/20), ASMHUPDNUM (737/21), ASMHUPDEXTEN (737/22), ASMHOBJ (737/29), VARIOUS SCRATCH FILES, UNSP:SPITLIB (590/30), ASMHLOG, AND 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 *CDUPDATE (1036/2). 0 Referenced by comments of: 737/16 00737/016A *ASMH DIR D MTA:ASMHDIR 4.3T2 3 ASMH.DIR.D.016 1 LINE 256 3 PAGE UM MTA APR. 06, 1980 13:06:03 MTA.:ASMHDIR 0 DIRECTORY OF LOCATION OF *ASMH COMPONENTS USED BY ASMHUTIL (737/15). 0 Referenced by comments of: 737/15 00737/017 *ASMH INSTALL C MTA:ASMHINSTALL 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/018 *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/19), ASMHUPDMTS (737/20), ASMHUPDNUM (737/21), AND ASMHUPDEXTEN (737/22). 0 Referenced by comments of: 737/15 00737/019 *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/15, 737/18 00737/020 *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/25), AND GDDSECT, MUST BE BUILT, SINCE ONLY ONE MACRO LIBRARY IS ALLOWED BY THE OS VERSION. 0 Referenced by comments of: 737/15, 737/18 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00737/021 *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/15, 737/18 00737/022 *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/15, 737/18 00737/023A *ASMH MACRO UPDATE UC G MTA:ASMHMACUPD 4.3T2 4 ASMH.MACRO_UPDATE.UC.023 1 LINE 77 23 PAGE UM MTA APR. 06, 1980 13:06:05 MTA.:ASMHMACUPD 0 UPDATE TO PRODUCE THE MTS MACRO LIBRARY FROM THE IBM SOURCE (737/10). 00737/024A *ASMH NEW UPDATES UC G MTA:ASMHUPDNEW 4.3T2 5 ASMH.NEW_UPDATES.UC.024 1 LINE 76 79 PAGE UM MTA APR. 06, 1980 13:06:10 MTA:ASMHUPDNEW 0 POST D4.1 UDPATES, IN CHRONOLOGICAL ORDER, TO ASMH. 00737/025A *ASMH MACRO LIBRARY SM G # WATF:ASMHMACLIB UM MTA 0 OUTPUT FROM 737/23 UPDATE. 0 Referenced by comments of: 737/15, 737/20, 737/28 00737/026 *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/30 00737/027 *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/028 *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 0 SOURCE FOR THE "SYSGEN OPTIONS" ASSEMBLY WHICH PRODUCES IEV61 WITH LOCAL OPTIONS. 1 SUN SEP 08/96 19:03:19 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 ASSEMBLE USING ASMHMACLIB (737/25). 00737/029A *ASMH OBJECT OC G # MTA:ASMHOBJ UM MTA 0 FULL OBJECT WITH SYM CARDS. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 737/15 00737/030A *ASMH *ASMH OE G # *ASMH UM MTA 0 COMBINED AND PURGED OBJECT OF ASMHMAIN (737/26), IEV60, AND IEV61. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 0 Referenced by comments of: 163/13, 775/1 00737/031A *ASMH SHARED VM OBJ OE G # SEG2:ASMH UM MTA 0 OBJECT WITHOUT SYM CARDS FOR THE SHARED VM PART OF ASMH. IT INCLUDES ALL MODULES EXCEPT IEV60 AND IEV61. THIS FILE CANNOT BE DISTRIBUTED DUE TO IBM COPYRIGHT RESTRICTIONS. 00737/032A *ASMH TEST PGM #1 SA G MTA:ASMHT1 4.3T2 6 ASMH.TEST_PGM_#1.SA.032 1 LINE 54 1 PAGE UM MTA APR. 06, 1980 13:06:23 0 PROGRAM TO TEST SS INSTRUCTIONS. 00737/033A *ASMH TEST PGM #2 SA G MTA:ASMHT2 4.3T2 7 ASMH.TEST_PGM_#2.SA.033 1 LINE 72 1 PAGE UM MTA APR. 06, 1980 13:06:26 0 PROGRAM TO TEST NEW SYSTEM SET SYMBOLS. START AT LINE *F. 00737/034A *ASMH TEST PGM #3 SA G MTA:ASMHT3 4.3T2 8 ASMH.TEST_PGM_#3.SA.034 1 LINE 72 1 PAGE UM MTA APR. 06, 1980 13:06:28 0 PROGRAM TO TEST LITERALS IN EQU STATEMENTS AND EXPRESSIONS. 00737/035 *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/036 *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/037 *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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00737/038 *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/039 *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/040 *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/041 *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/042A *ASMH TEST PGM #11 SA G MTA:ASMHT11 4.3T2 9 ASMH.TEST_PGM_#11.SA.042 1 LINE 72 3 PAGE UM MTA APR. 06, 1980 13:06:30 0 PROGRAM TO TEST ORDINARY SYMBOLS IN CONDITIONAL ASSEMBLY. 00737/043A *ASMH TEST PGM #12 SA G MTA:ASMHT12 4.3T2 10 ASMH.TEST_PGM_#12.SA.043 1 LINE 59 1 PAGE UM MTA APR. 06, 1980 13:06:33 0 PROGRAM TO TEST SYM CARDS. 00737/044 *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/045 *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/046 *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/047 *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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00737/048 *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/049 *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/050 *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/051 *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/052 *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/053A *ASMH TEST PGM #22 SA G MTA:ASMHT22 4.3T2 11 ASMH.TEST_PGM_#22.SA.053 1 LINE 72 1 PAGE UM MTA APR. 06, 1980 13:06:35 0 PROGRAM TO TEST TITLE, EJECT, SPACE, AND PRINT. 00737/054 *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/055A *ASMH TEST PGM #24 SA G MTA:ASMHT24 4.3T2 12 ASMH.TEST_PGM_#24.SA.055 1 LINE 61 1 PAGE UM MTA APR. 06, 1980 13:06:38 0 PROGRAM TO TEST ADCONS IN DSECTS. 00737/056 *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/057 *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/058 *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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00737/059 *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/060 *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/061 *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/062A *ASMH TEST PGM #31 SA G MTA:ASMHT31 4.3T2 13 ASMH.TEST_PGM_#31.SA.062 1 LINE 67 1 PAGE UM MTA APR. 06, 1980 13:06:40 0 PROGRAM TO TEST MHELP 8 OUTPUT. 00737/063A *ASMH TEST PGM #32 SA G MTA:ASMHT32 4.3T2 14 ASMH.TEST_PGM_#32.SA.063 1 LINE 65 1 PAGE UM MTA APR. 06, 1980 13:06:42 0 PROGRAM TO TEST UNREFERENCED DXD'S. 00737/064 *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. 00737/065A *ASMH TEST PGM #34 SA G MTA:ASMHT34 4.3T2 15 ASMH.TEST_PGM_#34.SA.065 1 LINE 72 4 PAGE UM MTA APR. 06, 1980 13:06:45 0 PROGRAM TO TEST ORG AND LOCTR. CONTAINS SEVERAL ASSEMBLIES. 00737/066A *ASMH TEST PGM #35 SA G MTA:ASMHT35 4.3T2 16 ASMH.TEST_PGM_#35.SA.066 1 LINE 72 1 PAGE UM MTA APR. 06, 1980 13:06:47 0 PROGRAM TO TEST TRAILING COMMAS ON VARIOUS ASSEMBLER STATEMENTS. 00737/067A *ASMH TEST PGM #36 SA G MTA:ASMHT36 4.3T2 17 ASMH.TEST_PGM_#36.SA.067 1 LINE 58 1 PAGE UM MTA APR. 06, 1980 13:06:49 0 TEST PROGRAM FOR PEXIT SUBROUTINE AND PARAMETER AND OCTL. INTENDED TO BE USED WITH 737/69. 00737/068A *ASMH PEXIT TEST SA G MTA:ASMH.PEXIT(1000) 4.3T2 18 ASMH.PEXIT_TEST.SA.068 1 LINE 72 1 PAGE UM MTA APR. 06, 1980 13:06:52 0 SAMPLE PEXIT SUBROUTINE WHICH WRITES ITS PARAMETERS AND LINE AS UNIT 19. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00737/069A *ASMH PEXIT TEST OC G MTA:ASMH.PEXIT(1,999) 4.3T2 19 ASMH.PEXIT_TEST.OC.069 1 LINE 80 1 PAGE UM MTA APR. 06, 1980 13:06:54 00737/070A *ASMH TEST PGM #37 SA G MTA:ASMHT37 4.3T2 20 ASMH.TEST_PGM_#37.SA.070 1 LINE 47 1 PAGE UM MTA APR. 06, 1980 13:06:57 0 TEST "_" AS AN ALPHEBETIC CHARACTER 00737/071A *ASMH TEST PGM #38 SA G MTA:ASMHT38 4.3T2 21 ASMH.TEST_PGM_#38.SA.071 1 LINE 72 1 PAGE UM MTA APR. 06, 1980 13:06:59 0 TEST CHANGES TO PASS 2 UNDEFINED SYMBOL PROCESSING 00737/072A *ASMH TEST PGM #39 SA G MTA:ASMHT39 4.3T2 22 ASMH.TEST_PGM_#39.SA.072 1 LINE 71 3 PAGE UM MTA APR. 06, 1980 13:07:01 0 TEST RELOCATABLE AND QUALIFIED USINGS 00737/073A *ASMH TEST PGM #40 SA G MTA:ASMHT40 4.3T2 23 ASMH.TEST_PGM_#40.SA.073 1 LINE 64 2 PAGE UM MTA APR. 06, 1980 13:07:04 0 TEST PASS2 ERRORS 00737/074 *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/075 *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/001A *MACUTIL SOURCE SA G LBT:MACUTIL.S 4.3T2 24 MACUTIL.SOURCE.SA.001 1 LINE 73 93 PAGE UM TIFFANY APR. 06, 1980 13:07:06 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). COPIES *GDINFODSECT (594) AND *CNFGINFODSECT (654). THE SYSTEM PARAMETERS MAY BE SPECIFIED IN THE ASSEMBLY PARAMETER SYSPARM, E.G., 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 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00738/002A *MACUTIL OBJECT OE G *MACUTIL 4.3T2 25 MACUTIL.OBJECT.OE.002 1 LINE 12944 11 PAGE UM TIFFANY APR. 06, 1980 13:07:17 *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/007A *MACUTIL MACLIB SM G W062:OLD.MACUMAC 4.3T2 26 MACUTIL.MACLIB.SM.007 1 LINE 73 16 PAGE UM TIFFANY APR. 06, 1980 13:07:20 0 MACRO LIBRARY FOR *MACUTIL. 0 Referenced by comments of: 738/1 00739/001A *LOGPURGE SG G S0027 DISTRB FSNAME=LOGPURGE 4.3T2 27 LOGPURGE..SG.001 1 LINE 111 3 PAGE UM ENGLE FEB. 20, 1980 12:12:24 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/156 00739/002C *LOGPURGE UC G S0027 DISTRB FSNAME=LOGPURGEUPD 4.3T2 28 LOGPURGE..UC.002 1 LINE 111 1 PAGE UM ENGLE FEB. 20, 1980 12:12:31 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00739/003A *LOGPURGE OC G S0027 DISTRB FSNAME=LOGP 4.3T2 29 LOGPURGE..OC.003 1 LINE 80 4 PAGE UM ENGLE FEB. 20, 1980 12:12:37 00739/004A *LOGPURGE OE G NEW:LOGPURGE 4.3T2 30 LOGPURGE..OE.004 1 LINE 2868 2 PAGE UM ENGLE APR. 06, 1980 13:09:23 NEW:LOGPURGE 0 LINKEDITED COMBINATION OF 739/1 AND *LCS (164). 00740/001A *CKSIG SG G S0027 DISTRB FSNAME=CKSIG 4.3T2 31 CKSIG..SG.001 1 LINE 78 8 PAGE UM ENGLE MAR. 17, 1980 13:57:32 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/002C *CKSIG UC G S0027 DISTRB FSNAME=CKSIGUPD 4.3T2 32 CKSIG..UC.002 1 LINE 72 4 PAGE UM ENGLE MAR. 17, 1980 13:57:36 0 UPDATES SOURCE FROM PREVIOUS REGULAR DISTRIBUTION TO CURRENT DISTRIBUTION. 00740/003A *CKSIG OC G S0027 DISTRB FSNAME=CKSG 4.3T2 33 CKSIG..OC.003 1 LINE 80 14 PAGE UM ENGLE MAR. 17, 1980 13:58:03 00740/004A *CKSIG OE G NEW:CKSIG 4.3T2 34 CKSIG..OE.004 1 LINE 8804 6 PAGE UM ENGLE APR. 06, 1980 13:09:40 NEW:CKSIG 0 LINKEDITED COMBINATION OF 740/1 AND *LCS (164). 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," (FEBRUARY 1979). $COPY TO A TN PRINTER USING THE @MCC MODIFIER. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/004A TAPE DIRECTORY OBJECT OC G SYS:DIRPROGRAM 4.3T2 35 TAPE_DIRECTORY.OBJECT.OC.004 1 LINE 80 28 PAGE UM SALISBURY APR. 06, 1980 13:09:41 SYS.:DIRPROGRAM 0 OBJECT OF 742/1, 742/2, AND 742/3. CONTAINS A $CONTINUE WITH SYS:DIRLIB (742/5) RECORD. 00742/005 TAPE DIRECTORY DIRECTORY FUNC OC G SYS:DIRLIB 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. 0 Referenced by comments of: 50/4, 742/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 1 SUN SEP 08/96 19:03:19 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 WISHING TO USE THIS PROGRAM WILL HAVE TO MODIFY AND RECOMPILE IT TO SUIT THE LOCAL CONFIGURATION. 00744/001A DAVE.GENLIB MAIN S* O W234:BLD.DAVE.SNO 4.3T2 36 DAVE.GENLIB.MAIN.S*.001 1 LINE 93 5 PAGE UM BRILL APR. 06, 1980 13:09:43 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. ********************************************************************************** D4.3 CHANGES: CHANGED TO FIX BUG. ********************************************************************************** 00744/002A DAVE.GENLIB ASM SUBRS SA O W234:BLD.DAVE.ASM 4.3T2 37 DAVE.GENLIB.ASM_SUBRS.SA.002 1 LINE 67 1 PAGE UM BRILL APR. 06, 1980 13:09:46 0 ASSEMBLY LANGUAGE SUBROUTINES. THIS FILE ALSO CONTAINS COMMANDS TO ASSEMBLE IT. 00744/003A DAVE.GENLIB FTN SUBRS SF O W234:BLD.DAVE.FTN 4.3T2 38 DAVE.GENLIB.FTN_SUBRS.SF.003 1 LINE 81 3 PAGE UM BRILL APR. 06, 1980 13:09:48 0 FORTRAN LANGUAGE SUBROUTINES. THIS FILE ALSO CONTAINS THE COMMANDS TO COMPILE IT. 00744/004A DAVE.GENLIB SUBR LIB OL O W234:BLD.DAVE.LIB 4.3T2 39 DAVE.GENLIB.SUBR_LIB.OL.004 1 LINE 1424 4 PAGE UM BRILL APR. 06, 1980 13:09:51 0 OBJECT OF 744/2 AND 744/3. 00744/005A DAVE.GENLIB *DAVE.GENLIB OE O *DAVE.GENLIB 4.3T2 40 DAVE.GENLIB.*DAVE.GENLIB.OE.005 1 LINE 80 16 PAGE UM BRILL APR. 06, 1980 13:09:53 *DAVE.GENLIB 0 OBJECT OF 744/1, 744/2, AND 744/3. HAS A $CONTINUE WITH *SPITLIB RECORD. ********************************************************************************** D4.3 CHANGES: REASSEMBLED WITH CHANGED 744/1. ********************************************************************************** 0 Referenced by comments of: 744/6, 744/7 00744/006A DAVE.GENLIB *LIBRARY DESCR D W234:VOL-3.DESCRI 4.3T2 41 DAVE.GENLIB.*LIBRARY_DESC.D.006 1 LINE 74 12 PAGE UM BRILL APR. 06, 1980 13:09:56 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 1 SUN SEP 08/96 19:03:19 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 ALL OF THE FORTRAN-CALLABLE SUBROUTINES IN *LIBRARY (524/1). 00744/007A DAVE.GENLIB DAVE.EXT D ETC:DAVE.EXT 4.3T2 42 DAVE.GENLIB.DAVE.EXT.D.007 1 LINE 2660 7 PAGE UM BRILL APR. 06, 1980 13:09:59 ETC:DAVE.EXT 0 EXTERNAL SUBROUTINE LIBRARY REQUIRED BY *DAVE (765/2). DAVE.EXT IS CREATED BY *DAVE.GENLIB (744/5) USING THE 744/6 DATA. 0 Referenced by comments of: 744/6, 765/2 00744/008A DAVE.GENLIB MEMO 402 WF S1024 CCMEMO 'DOCUMENT' FSNAME=M402DAVE.GENLIB 4.3T2 43 DAVE.GENLIB.MEMO_402.WF.008 1 LINE 70 3 PAGE UM BRILL JULY 13, 1979 11:27:39 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 BODWIN FEB. 13, 1979 10:21:49 0 SOURCE FOR AN LALR(1) PARSE TABLE GENERATOR. COMPILE WITH PAR=SORMGIN=(2,72,1),MACRO. 0 Referenced by comments of: 1042/86 00745/002 *LALRGEN OE G *LALRGEN D4.2T1 777 LALRGEN..OE.002 1 LINE 32767 19 PAGE UM BODWIN 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/001A COMPARE SA G W062:COMPARE.S 4.3T2 44 COMPARE..SA.001 1 LINE 142 36 PAGE UM TIFFANY APR. 06, 1980 13:11:53 0 A FAST COMPARISON PROGRAM. ASSEMBLE USING MACROS IN ORDER: THE PEXIT MACROS (775/2), THE COMPARE MACROS (746/3), OBJUTIL MISCELLANEOUS MACROS (721/14), AND OBJUTIL DCI MACROS (721/15) WITH PEXIT=W067:PEXIT (775/3). COPIES *GDINFODSECT (594). THIS PROGRAM MAY BE INCORPORATED INTO *APC (496) IN THE FUTURE. ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): PCEQ CHANGED FROM 1% TO 25%. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00746/002A COMPARE OE G W062:COMPARE 4.3T2 45 COMPARE..OE.002 1 LINE 12948 11 PAGE UM TIFFANY APR. 06, 1980 13:12:05 UNSP:COMPARE 00746/003A COMPARE PROC.MAC SM G W062:PROC.MAC 4.3T2 46 COMPARE.PROC.MAC.SM.003 1 LINE 73 13 PAGE UM TIFFANY APR. 06, 1980 13:12:07 0 CONTAINS MACROS PROC, ENDPROC, RETURN, INVOKE, ETC., USED BY THE ASSEMBLY OF OF COMPARE PROGRAM. 0 Referenced by comments of: 746/1, 749/1 00746/004A COMPARE WRITEUP WF W062:COMPARE.W1 4.3T2 47 COMPARE.WRITEUP.WF.004 1 LINE 104 3 PAGE UM TIFFANY APR. 06, 1980 13:12:17 0 WRITEUP DESCRIBING THE COMPARE PROGRAM. 00747/001A SIDELABEL S G S0701 RD16T1 VLO FSNAME=SIDELABEL..S.001(1) 243 4.3T2 48 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/002A SIDELABEL SF G S0701 RD16T1 VLO FSNAME=SIDELABEL..SF.002(1) 244 4.3T2 49 SIDELABEL..SF.002 1 LINE 72 3 PAGE UM BODWIN JULY 12, 1979 23:17:46 0 FORTRAN SOURCE FOR SIDELABEL. 00747/003A SIDELABEL OC G S0701 RD16T1 VLO FSNAME=SIDELABEL..OC.003(1) 245 4.3T2 50 SIDELABEL..OC.003 1 LINE 2290 2 PAGE UM BODWIN JULY 12, 1979 23:17:46 0 OBJECT OF 747/1 AND 747/2. 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/001A MACSCAN SA G W062:MACSCAN.S 4.3T2 51 MACSCAN..SA.001 1 LINE 74 17 PAGE UM UNSP TIFFANY APR. 06, 1980 13:14:43 0 PROGRAM TO SCAN ASSEMBLY LANGUAGE PROGRAMS AND LIST MACROS AND COPY SECTIONS USED. ASSEMBLE WITH THE FOLLOWING MACRO LIBRARIES: 2=W062:PROC.MAC (746/3), THE *OBJUTIL MACROS 721/14 AND 721/15, AND THE *PEXIT MACROS (775/2). COPIES *GDINFODSECT (594). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 528/37 00749/002A MACSCAN OE G UNSP:MACSCAN 4.3T2 52 MACSCAN..OE.002 1 LINE 5698 6 PAGE UM UNSP TIFFANY APR. 06, 1980 13:15:00 UNSP:MACSCAN 00749/003A MACSCAN 360 INSTS D UNSP:MACSCAN.360 4.3T2 53 MACSCAN.360_INSTS.D.003 1 LINE 74 1 PAGE UM UNSP TIFFANY APR. 06, 1980 13:15:02 UNSP:MACSCAN.360 0 A LIST OF 360 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME. ***************************************************************************** D4.3 CHANGES: 1) ADDED SOME ASMH (737) PSEUDO-OPS. 2) EXTENDED BRANCH INSTRUCTIONS, SUCH AS BEQ, ETC. ADDED. ***************************************************************************** 00749/004A MACSCAN 370 INSTS D UNSP:MACSCAN.370 4.3T2 54 MACSCAN.370_INSTS.D.004 1 LINE 74 1 PAGE UM UNSP TIFFANY APR. 06, 1980 13:15:04 UNSP:MACSCAN.370 0 A LIST OF 370 INSTRUCTIONS READ BY MACSCAN AT EXECUTION TIME. ***************************************************************************** D4.3 CHANGES: 1) ADDED SOME ASMH (737) PSEUDO-OPS. 2) EXTENDED BRANCH INSTRUCTIONS, SUCH AS BEQ, ETC. ADDED. ***************************************************************************** 00749/005A MACSCAN WRITEUP WF W062:MACSCAN.W 4.3T2 55 MACSCAN.WRITEUP.WF.005 1 LINE 81 1 PAGE UM UNSP TIFFANY APR. 06, 1980 13:15:07 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 RETRIEVAL PROGRAM KNOW WHICH HSYYMMDDHH FILES ARE AVAILABLE. THE PROGRAM ALSO REQUIRES THAT THIS FILE EXIST SO THAT IT CAN KEEP TRACK OF THE NEXT JOB ON THE PRINTER, THE PUNCH, ETC. HLOGPRV -- THE HASPLOG COLLECTION PROGRAM CALLS CHKFILE (682/39) TO GET SHARING DESCRIPTORS THAT THE ID WHICH IS RUNNING THE PROGRAM HAS TO THIS FILE. A USER'S ACCESS DETERMINES THE AMOUNT AND TYPE OF INFORMATION HE CAN HAVE RETURNED BY HASPLOG. THE COLLECTION PROGRAM ASSUMES IT IS BEING RUN UNDER THE SAME ID AS THE CMDSTAT PROGRAM. TO START THE PROGRAM SOME HASPLOGXXXXX FILES MUST BE AVAILABLE AS WELL AS EMPTY FILES OF THE FOLLOWING NAMES: HS78010100, 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/003A HASP LOG *HLG C *HLG 4.3T2 56 HASP_LOG.*HLG.C.003 1 LINE 36 1 PAGE UM UNSP H YOUNG APR. 06, 1980 13:15:09 0 COMMAND FILE TO RUN THE HASP LOG COLLECTION PROGRAM (752/1). INVOKED BY 1 SUN SEP 08/96 19:03:19 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 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 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). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 USING COPY:MTS.MACROS (344/3) AND WITH 2=W030:SCANDS (753/5). COPIES COPY:CMDAREADSECT (531/18). 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 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). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00755/001 UM 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 UM 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 UM 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 UM 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/001A ONTEL SOFTWARE OP/MCP S G CRT:OPSOU 4.3T2 57 ONTEL_SOFTWARE.OP/MCP.S.001 1 LINE 189 71 PAGE UM CASHMAN APR. 06, 1980 13:15:11 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='OP1' -- TO RUN IN OP-1 MACHINE MACHIN='OPR' -- TO RUN IN OP-1R MACHINE 3) MCP=0 -- USES THE STANDARD DATA CONCENTRATOR PROTOCOL MCP=1 -- USES THE MICHIGAN COMMUNICATIONS PROTOCOL 4) KEY='ONT' -- THE STANDARD ONTEL KEYBOARD LAYOUT KEY='327' -- COURIER-TYPE KEYBOARD LAYOUT 5) SIZE=N -- WHERE N IS THE SIZE OF MEMORY FOR DOS VERSION SIZE=4 -- FOR ROM VERSION WHICH FITS IN 4K OF ROM MEMORY 6) STARPR=0 -- NO EXTRA CODE STARPR=1 -- GENERATE CODE TO DUMP BUFFER TO MTS (%DUMP) 7) DEBUG=ON -- LINK TO RESIDENT KENOBI MONITOR (756/2) DEBUG=OFF -- NO LINK TO MONITOR ASSEMBLE USING I8080ASR (686/20). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00756/002C ONTEL SOFTWARE KENOBI S G CRT:KENOBI 4.3T2 58 ONTEL_SOFTWARE.KENOBI.S.002 1 LINE 117 31 PAGE UM CASHMAN APR. 06, 1980 13:15:20 0 SOURCE FOR THE ONTEL DEBUGGING MONITOR. THE FOLLOWING ARE CONDITIONAL ASSEMBLY PARAMETERS: 1) OPTION='ROM' -- TO RUN IN ROM MEMORY OPTION='RAM' -- TO RUN IN RAM MEMORY 2) DEBUG=ON -- KENOBI IS ENTERED FROM 3270 EMULATOR DEBUG=OFF -- MONITOR IS STAND-ALONE 0 Referenced by comments of: 756/1 00756/003A ONTEL SOFTWARE USER'S GUIDE P CRT:OP/MTS.MAN 4.3T2 59 ONTEL_SOFTWARE.USER'S_GUI.P.003 1 LINE 133 36 PAGE UM CASHMAN APR. 06, 1980 13:15:23 00756/004C ONTEL SOFTWARE MEMO 415 WX S0672 CCMEMO 'CCMEMOS' FSNAME=M415.TEXT 4.3T2 60 ONTEL_SOFTWARE.MEMO_415.WX.004 1 LINE 92 10 PAGE UM HARTMAN MAR. 26, 1980 09:41:24 0 THIS IS COMPUTING CENTER MEMO 415 -- "INTRODUCTION TO THE ONTEL TERMINAL." REQUIRES THE 711/7 TEXTFORM MACROS. COMPONENT 756/5 CONTAINS TABLES TO BE INSERTED ON P. 15 FF. REQUIRES OTHER HAND INSERTED DIAGRAMS, WHICH MAY BE OBTAINED FROM THE COMPUTING CENTER PUBLICATIONS OFFICE. 00756/005C ONTEL SOFTWARE MEMO 415 P S0672 CCMEMO 'CCMEMOS' FSNAME=M415.TABLES 4.3T2 61 ONTEL_SOFTWARE.MEMO_415.P.005 1 LINE 81 5 PAGE UM HARTMAN MAR. 26, 1980 09:47:11 0 CONTAINS DIAGRAM TO BE INSERTED ON P. 15 FF. OF 756/4. 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/13, 721/14, AND 721/15). 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/001A SOFTCHK SA G MTA:SOFTCHK(1,999) 4.3T2 62 SOFTCHK..SA.001 1 LINE 72 3 PAGE UM MTA APR. 06, 1980 13:18:56 MTA:SOFTCHK 0 SOFTCHK JOB PROGRAM TO ENABLE OR DISABLE SOFT MACHINE CHECKS. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00758/002A 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/001A HARDWIRED TERMINALS *HWTERM SA G S0683 OGDEN FSNAME=TST.HWTERM.S 4.3T2 63 HARDWIRED_TERMINALS.*HWTE.SA.001 1 LINE 65 1 PAGE UM OGDEN NOV. 16, 1979 14:21:13 0 SOURCE FOR CSECT WHICH DEFINES THE LOCATION AND DEFAULT *...* ROUTING FOR HARDWIRED TERMINALS. IN THIS WAY, HARDWIRED TERMINALS LOCATED IN THE VICINITY OF RJE STATIONS CAN HAVE *...* OUTPUT ROUTED APPROPRIATELY BY DEFAULT. IN ADDITION, HARDWIRED "EXPRESS" TERMINALS CAN BE IDENTIFIED SO THAT USERS OF SUCH TERMINALS CAN BE AUTOMATICALLY REMINDED BY MTS AFTER 5 MINUTES THAT THE TERMINAL IS RESERVED FOR EXPRESS USE. AS DISTRIBUTED, THIS CSECT CONTAINS NO IDENTIFIED HARDWIRED TERMINALS; EACH INSTALLATION HAVING TERMINALS WHICH SHOULD BE IDENTIFIED FOR THESE PURPOSES SHOULD REASSEMBLE. AT MICHIGAN, INFORMATION FROM THIS TABLE IS ALSO USED TO IDENTIFY "HIGH-SPEED LINES" IN RATENUMBER (651/10). ASSEMBLE USING COPY:MTS.MACROS (344/3). ****************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): THE FORMAT OF THE HWTERM TABLE HAS CHANGED FROM THE D4.2 VERSION. ****************************************************************************** 0 Referenced by comments of: 761/3 00761/002A HARDWIRED TERMINALS *HWTERM OC G MTS:TST.HWTERM 4.3T2 64 HARDWIRED_TERMINALS.*HWTE.OC.002 1 LINE 80 1 PAGE UM OGDEN APR. 06, 1980 13:22:54 *HWTERM 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM AFTER IPL BY PISTLE. 00761/003A HARDWIRED TERMINALS HWTPRINT SA G STRT:HWTPRINT(1000) 4.3T2 65 HARDWIRED_TERMINALS.HWTPR.SA.003 1 LINE 72 1 PAGE UM OGDEN APR. 06, 1980 13:22:56 STRT:HWTPRINT 0 PROGRAM TO PRINT THE CONTENTS OF THE HARDWIRED TERMINAL TABLE (761/1) CURRENTLY IN USE. CALLS RJECHECK SUBROUTINE (IN HASP). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 ASSEMBLE USING COPY:MTS.MACROS (344/3). 00761/004A HARDWIRED TERMINALS HWTPRINT OC G STRT:HWTPRINT(1,999) 4.3T2 66 HARDWIRED_TERMINALS.HWTPR.OC.004 1 LINE 80 1 PAGE UM OGDEN APR. 06, 1980 13:22:59 00762/001A FIDS COMMAND FILE C MTA:FIDSCMD 4.3T2 67 FIDS.COMMAND_FILE.C.001 1 LINE 95 1 PAGE UM MTA APR. 06, 1980 13:23:02 MTA:FIDSCMD 0 COMMANDS TO RUN THE MEMOREX FAULT ISOLATION DIAGNOSTIC SYSTEM (FIDS) IN MTS. IT WILL READ INITIALIZATION STATEMENTS, INCLUDING AT LEAST ONE CONFIG STATEMENT, FOLLOWED BY ENDC, AND THEN WAIT FOR INPUT. SEE THE 762/9 WRITEUP. 00762/002C FIDS MAIN PROGRAM OE # ETC:FIDS.MAIN UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS THE MAIN PROGRAM OF FIDS. 00762/003A FIDS LIBRARY OL # ETC:FIDS.LIB UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS A LIBRARY OF FIDS MODULES SET UP TO RUN IN MTS. CORRESPONDS TO 762/4 AND 762/5. CONTAINS REP CARDS TO MAKE FIDS WORK IN *FAKEOS (545): MODULE MCPINIT: REP 000746 01,9003D004,4100B778,41100040,5000B778,D201B79AC03C,9200B797 REP 000760 01,0A3B,D203C078B780,9803D004,95FFB797,0787,47F07004 REP 000778 01,00000000,00000001 REPLACES UCB SEARCH WITH A CALL TO SVC 59. EQUIVALENT TO STM R0,R3,4(RD) LA R0,PARS LA R1,X'40' "GET DEVICE" CODE FOR SVC 59 ST R0,PARS MVC PARS+34(2),X'FFC'(RB) BUILD A FAKE OLTEP DEVTAB ENTRY MVI PARS+31,0 SVC 59 MVC X'38'(4,RC),PARS+8 THE UCB ADDRESS LM R0,R3,4(RD) CLI PARS+31,255 BER R7 GOT IT B 4(0,R7) NOT AVAILABLE PARS DC F'0,1' 00762/004A FIDS OS OBJECT 1 OC # S0938 FSAVE2 VLO FSNAME=FIDS.FILE2(2) 512 UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS OS LINKEDIT INPUT FOR FIDS, COPIED FROM FILE 2 OF THE MEMOREX TAPE CURRENT ON SEPT. 13, 1979. THIS IS VERSION 2.4 OF FIDS, ACCORDING 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 TO THE MESSAGE IT PRINTS WHEN IT IS RUN. 00762/005A FIDS OS OBJECT 2 OC # S0938 FSAVE2 VLO FSNAME=FIDS.FILE2(3) 515 UM MTA 0 THIS SUBCOMPONENT IS NOT DISTRIBUTED DUE TO COPYRIGHT RESTRICTIONS. IT IS AN ADDENDUM FOR 3350S KNOWN AS THE "SKIP DEFECT" VERSION. 00762/006 FIDS EXIT ROUTINE OC # S0938 FSAVE2 VLO FSNAME=FIDS.FILE3(2) 511 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/4). IT IS NOT USED IN MTS (OR MVS). 00762/007A FIDS BLDL D ETC:FIDS.BLDL 4.3T2 68 FIDS.BLDL.D.007 1 SEQ 250 1 PAGE UM MTA APR. 06, 1980 13:23:05 ETC:FIDS.BLDL 0 BLDL FILE FOR FIDS. OUTPUT FROM *FAKEOSCREBLDL (545/39). 00762/008A FIDS BLDL INPUT D S0938 FSAVE2 FSNAME=FIDS.BLDLIN 4.3T2 69 FIDS.BLDL_INPUT.D.008 1 LINE 60 2 PAGE UM MTA MAR. 07, 1980 23:45:47 0 INPUT TO *FAKEOSCREBLDL (545/39) TO CREATE 762/7. 00762/009 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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/001A APPEND SS O S0684 UNSP FSNAME=APPEND.S 4.3T2 70 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/002A APPEND OC O UNSP:APPEND 4.3T2 71 APPEND..OC.002 1 LINE 5048 3 PAGE UM UNSP APR. 06, 1980 13:27:42 UNSP:APPEND 0 HAS A "$CONTINUE WITH *SPITLIB" CARD. 00764/003A APPEND WF S0684 UNSP FSNAME=APPEND.F 4.3T2 72 APPEND..WF.003 1 LINE 67 1 PAGE UM UNSP JUNE 13, 1979 03:08:59 00765/001A DAVE/M MAIN SF G W234:DAVE/M.MAIN 4.3T2 73 DAVE/M.MAIN.SF.001 1 LINE 72 12 PAGE UM BRILL APR. 06, 1980 13:28:02 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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/002A DAVE/M *DAVE OE G *DAVE 4.3T2 74 DAVE/M.*DAVE.OE.002 1 LINE 19309 9 PAGE UM BRILL APR. 06, 1980 13:28:04 *DAVE 0 OBJECT OF 765/1. DYNAMICALLY LOADS PHASE0 (765/3), PHASE1 (765/5), PHASE2 (765/7), PHASE3 (765/9) AND DAVE.SUB (765/13). CALLS DAVE.EXT (744/7). 0 Referenced by comments of: 744/7 00765/003A DAVE/M PHASE0 SF G W234:PHASE0 4.3T2 75 DAVE/M.PHASE0.SF.003 1 LINE 73 28 PAGE UM BRILL APR. 06, 1980 13:28:06 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/004A DAVE/M PHASE0 OE G ETC:DAVE.0 4.3T2 76 DAVE/M.PHASE0.OE.004 1 LINE 22894 8 PAGE UM BRILL APR. 06, 1980 13:28:09 ETC:DAVE.0 00765/005A DAVE/M PHASE1 SF G W234:PHASE1 4.3T2 77 DAVE/M.PHASE1.SF.005 1 LINE 73 93 PAGE UM BRILL APR. 06, 1980 13:28:11 0 SOURCE CODE FOR PHASE 1, THE PARSER. DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/006A DAVE/M PHASE1 OE G ETC:DAVE.1 4.3T2 78 DAVE/M.PHASE1.OE.006 1 LINE 32767 22 PAGE UM BRILL APR. 06, 1980 13:28:41 ETC:DAVE.1 00765/007A DAVE/M PHASE2 SF G W234:PHASE2 4.3T2 79 DAVE/M.PHASE2.SF.007 1 LINE 73 100 PAGE UM BRILL APR. 06, 1980 13:28:43 0 SOURCE CODE FOR PHASE 2, THE ANALYZER. DYNAMICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/008A DAVE/M PHASE2 OE G ETC:DAVE.2 4.3T2 80 DAVE/M.PHASE2.OE.008 1 LINE 32767 32 PAGE UM BRILL APR. 06, 1980 13:29:03 ETC:DAVE.2 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00765/009A DAVE/M PHASE3 SF G W234:PHASE3 4.3T2 81 DAVE/M.PHASE3.SF.009 1 LINE 75 29 PAGE UM BRILL APR. 06, 1980 13:29:05 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/010A DAVE/M PHASE3 OE G ETC:DAVE.3 4.3T2 82 DAVE/M.PHASE3.OE.010 1 LINE 32767 16 PAGE UM BRILL APR. 06, 1980 13:29:13 ETC:DAVE.3 00765/011A DAVE/M ASM SUBRS SA G W234:DAVE.ASM 4.3T2 83 DAVE/M.ASM_SUBRS.SA.011 1 LINE 72 5 PAGE UM BRILL APR. 06, 1980 13:29:15 0 DAVE ASSEMBLER LANGUAGE SUBROUTINES. 00765/012A DAVE/M FTN SUBRS SF G W234:DATAB 4.3T2 84 DAVE/M.FTN_SUBRS.SF.012 1 LINE 73 46 PAGE UM BRILL APR. 06, 1980 13:29:17 0 DAVE FORTRAN LANGUAGE SUBROUTINES. 00765/013A DAVE/M SUBR LIB OL G ETC:DAVESUB 4.3T2 85 DAVE/M.SUBR_LIB.OL.013 1 LINE 32767 17 PAGE UM BRILL APR. 06, 1980 13:29:23 ETC:DAVESUB 0 OBJECT OF 765/11 AND 765/12. DYMANICALLY LOADED BY THE MAIN PROGRAM (765/1). 0 Referenced by comments of: 765/2 00765/014A DAVE/M DAVE.CMD C W234:DAVE.CMD 4.3T2 86 DAVE/M.DAVE.CMD.C.014 1 LINE 64 1 PAGE UM BRILL APR. 06, 1980 13:29:26 0 COMMANDS TO CONSTRUCT A DAVE/M SYSTEM. WHEN THIS FILE IS SOURCED TO, THE FORTRAN COMPILER PRODUCES ERROR MESSAGES WHICH SHOULD BE IGNORED. DAVE.CMD.LIST (765/15) IS THE OUTPUT GENERATED BY SOURCING TO THIS FILE. 00765/015A DAVE/M DAVE.CMD.LIST L W234:DAVE.CMD.LIS 4.3T2 87 DAVE/M.DAVE.CMD.LIST.L.015 1 LINE 96 9 PAGE UM BRILL APR. 06, 1980 13:29:28 0 OUTPUT GENERATED WHEN 765/14 IS SOURCED TO. 0 Referenced by comments of: 765/14 00765/016A DAVE/M DATA BASE SF G W234:DBINIT 4.3T2 88 DAVE/M.DATA_BASE.SF.016 1 LINE 73 22 PAGE UM BRILL APR. 06, 1980 13:29:30 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00765/017A DAVE/M DATA BASE OE G W234:DBINB 4.3T2 89 DAVE/M.DATA_BASE.OE.017 1 LINE 3160 14 PAGE UM BRILL APR. 06, 1980 13:29:33 0 OBJECT OF 765/16. 0 Referenced by comments of: 765/18 00765/018A DAVE/M DATA BASE D W234:NUDATA 4.3T2 90 DAVE/M.DATA_BASE.D.018 1 LINE 67 4 PAGE UM BRILL APR. 06, 1980 13:29:35 0 INPUT DATA TO BE FED TO DBINB (765/17) TO CREATE DAVE.INIT (765/19). 0 Referenced by comments of: 765/19 00765/019A DAVE/M DATA BASE D ETC:DAVE.INIT 4.3T2 91 DAVE/M.DATA_BASE.D.019 1 LINE 3256 2 PAGE UM BRILL APR. 06, 1980 13:29:37 ETC:DAVE.INIT 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/020A DAVE/M TEST PROG SF G W234:TESTFL 4.3T2 92 DAVE/M.TEST_PROG.SF.020 1 LINE 72 3 PAGE UM BRILL APR. 06, 1980 13:29:40 0 THIS IS A TEST PROGRAM FOR THE DAVE/M SYSTEM. 00765/021A DAVE/M DAVE.STAT D # MTS:TST.LOG UM BRILL 0 THIS IS THE LOG FILE WHICH IS REQUIRED BY DAVE/M. AT MICHIGAN, IT IS CALLED W234:DAVE.STAT. THIS NAME MAY BE CHANGED BY OTHER INSTALLATIONS. 00765/022A DAVE/M MEMO 394 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M394 4.3T2 93 DAVE/M.MEMO_394.WF.022 1 LINE 84 12 PAGE UM BRILL MAY 09, 1979 16:33:53 0 THIS IS COMPUTING CENTER MEMO 394 -- "*DAVE". 00765/023A DAVE/M KNOWN BUGS P W234:KNOWN_BUGS 4.3T2 94 DAVE/M.KNOWN_BUGS.P.023 1 LINE 67 1 PAGE UM BRILL APR. 06, 1980 13:30:17 0 DESCRIPTION OF THE TWO KNOWN BUGS IN DAVE/M. REFERENCES 765/24 AS AN EXAMPLE. 00765/024A DAVE/M DAVE_BUG1 SF W234:DAVE_BUG1 4.3T2 95 DAVE/M.DAVE_BUG1.SF.024 1 LINE 26 1 PAGE UM BRILL APR. 06, 1980 13:30:20 0 A PROGRAM WHICH CAUSES DAVE/M TO FAIL. 00765/025A DAVE/M DAVE.INTERNAL P W234:DAVE.INTERNA 4.3T2 96 DAVE/M.DAVE.INTERNAL.P.025 1 LINE 61 3 PAGE UM BRILL APR. 06, 1980 13:30:22 0 A BRIEF INSTALLATION GUIDE FOR DAVE/M. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00766/001A INTRO GUIDE: MAG TAPES WF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TAPE.SOU 4.3T2 97 INTRO_GUIDE:_MAG_TAPES..WF.001 1 LINE 148 59 PAGE UM MANUAL AUG. 24, 1979 13:34:58 0 FORMAT SOURCE FOR "INTRODUCTION TO MAGNETIC TAPES" (SEPTEMBER 1979). 00766/002A INTRO GUIDE: MAG TAPES PF S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TAPE.OUT 4.3T2 98 INTRO_GUIDE:_MAG_TAPES..PF.002 1 LINE 129 79 PAGE UM MANUAL AUG. 24, 1979 13:37:39 0 FORMAT PRINT FILE. 00766/003A INTRO GUIDE: MAG TAPES D S0702 MTS.UG 'MTS USER GUIDES' FSNAME=TAPE.INDEXSOU 4.3T2 99 INTRO_GUIDE:_MAG_TAPES..D.003 1 LINE 59 6 PAGE UM MANUAL AUG. 24, 1979 13:38:44 0 INPUT TO *INDEX (580) FOR THE INDEX TO "INTRODUCTION TO MAGNETIC TAPES." 00767/001A SIGLOG SA O S0684 UNSP FSNAME=SIGLOG.S 4.3T2 100 SIGLOG..SA.001 1 LINE 72 4 PAGE UM UNSP AUG. 31, 1979 01:00:49 0 SIGLOG IS A PROGRAM INTENDED TO BE RUN FROM A SIGFILE, WHICH RECORDS INFORMATION (DATE, TIME, CCID, ETC.) IN A FILE EACH TIME IT IS RUN, OR WHICH PRINTS A SORTED COPY OF SUCH A FILE. 00767/002A SIGLOG OC O UNSP:SIGLOG 4.3T2 101 SIGLOG..OC.002 1 LINE 2819 2 PAGE UM UNSP APR. 06, 1980 13:32:35 UNSP:SIGLOG 00767/003A SIGLOG P UNSP:SIGLOG.W 4.3T2 102 SIGLOG..P.003 1 LINE 76 3 PAGE UM UNSP APR. 06, 1980 13:32:37 0 A PRINT FILE CONTAINING A DESCRIPTION OF THE SIGLOG PROGRAM. 00768/001A SIGCHECK$ SA O S0684 UNSP FSNAME=SIGCHECK$.S 4.3T2 103 SIGCHECK$..SA.001 1 LINE 72 4 PAGE UM UNSP AUG. 31, 1979 00:59:45 0 A PROGRAM DESIGNED TO BE RUN FROM A SIGFILE, WHICH PUTS A MESSAGE IN A FILE IF THE ACCOUNT BALANCE IS BELOW A SPECIFIED LEVEL. 00768/002A SIGCHECK$ OC O UNSP:SIGCHECK$ 4.3T2 104 SIGCHECK$..OC.002 1 LINE 2318 1 PAGE UM UNSP APR. 06, 1980 13:32:41 UNSP:SIGCHECK$ 00768/003A SIGCHECK$ P UNSP:SIGCHECK$.W 4.3T2 105 SIGCHECK$..P.003 1 LINE 77 3 PAGE UM UNSP APR. 06, 1980 13:32:43 0 A PRINT FILE CONTAINING A DESCRIPTION OF THE SIGCHECK$ PROGRAM. 00769/001 DISK MANAGER MAIN SA G # DMGR:DM.ABSMAIN.S 4.2BT1 70 DISK_MANAGER.MAIN.SA.001 1 LINE 122 4 PAGE UM GOODRICH OCT. 17, 1979 21:34:08 0 THIS IS A PRELIMINARY TEST VERSION OF THE DISK MANAGER. THIS SUBCOMPONENT IS THE MAIN PROGRAM OF THE MTS DISK MANAGER FOR USE AS AN ABSOLUTE TASK. THE COMMANDS FOR ASSEMBLING IT START AT LINE 1 IN THE FILE AND MAY BE $SOURCED TO. REQUIRES DMGR:DM.MACROS (769/8), COPY:CC.MACROS 1 SUN SEP 08/96 19:03:19 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 (1054/3), AND COPY:RM.MACROS (1041/1). 0 Referenced by comments of: 104/106, 442/1, 482/5, 482/11, 482/31, 482/42 00769/002 DISK MANAGER MTS MAIN SA G # DMGR:DM.MTSMAIN.S 4.2BT1 71 DISK_MANAGER.MTS_MAIN.SA.002 1 LINE 131 5 PAGE UM GOODRICH OCT. 17, 1979 21:34:09 0 THIS IS THE MTS VERSION OF THE MAIN PROGRAM OF THE DISK MANAGER. IT REPLACES THE ABSOLUTE VERSION FOR TESTING PURPOSES. IT CONTAINS THE COMMANDS TO ASSEMBLE IT AT LINE 1 AND MAY BE $SOURCED TO. REQUIRES DMGR:DM.MACROS (769/8), COPY:CC.MACROS (1054/3), AND COPY:RM.MACROS (1041/1). 00769/003 DISK MANAGER DISPATCH SA G # DMGR:DM.DISPTCH.S 4.2BT1 72 DISK_MANAGER.DISPATCH.SA.003 1 LINE 146 11 PAGE UM GOODRICH OCT. 17, 1979 21:34:11 0 THIS IS THE DISPATCH SUBTASK OF THE DISK MANAGER, WHICH DOES THE FOLLOWING THINGS: 1) ADDS AND DELETES DISK DRIVES 2) SENDS REQUESTS TO LOCKMNGR (769/5) FOR LOCK AND UNLOCK PROCESSING 3) SORTS REQUESTS FROM THE SUPERVISOR AND THOSE RECEIVED BACK FROM THE LOCKMNGR TO THE APPROPRIATE DISKLING (769/4) SUBTASK 4) REQUESTS PAGE-IN OPERATIONS OF SUPERVISOR FOR DISKLINGS 5) POSTS FINISHED REQUESTS TO SUPERVISOR. THIS SUBCOMPONENT ALSO INCLUDES THE DMWAIT SUBROUTINE, WHICH REPLACES THE RMWAIT SUBROUTINE IN THE SUBTASKING MONITOR. CONTAINS COMMANDS STARTING AT LINE 1 FOR ASSEMBLY AND MAY BE $SOURCED TO. REQUIRES DMGR:DM.MACROS (769/8), COPY:CC.MACROS (1054/3), AND COPY:RM.MACROS (1041/1). 0 Referenced by comments of: 769/4, 769/6 00769/004 DISK MANAGER DISK INTERFACE SA G # DMGR:DM.DISKXF.S 4.2BT1 73 DISK_MANAGER.DISK_INTERFA.SA.004 1 LINE 160 17 PAGE UM GOODRICH OCT. 17, 1979 21:34:21 0 THIS IS THE DISK INTERFACE OF THE DISK MANAGER. IT CONTAINS THE DISKLING AND IOMNGR SUBTASKS. THESE SUBTASKS PERFORM THE FUNCTIONS LISTED BELOW. DISKLING: 1) SCHEDULES I/O OPERATIONS TO BE DONE FROM REQUESTS FOR THE DISK DRIVE. IT SERVICES AND GIVES THEM TO IOMNGR SUBTASK (SEE BELOW) 2) ASKS FOR PAGE-IN OPERATIONS OF DISPATCH (769/3) 3) POST FINISHES REQUESTS TO DISPATCH IOMNGR: PERFORMS ACTUAL I/O AND WAITS FOR DEVICE END FOR ITS DISK DRIVE (THERE IS ONE SUCH SUBTASK FOR EACH DISK DRIVE) CONTAINS COMMANDS AT LINE 1 FOR ASSEMBLY AND MAY BE $SOURCED TO. REQUIRES DMGR:DM.MACROS (769/8), COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041/1), AND COPY.FILE.MACROS (482/33). 0 Referenced by comments of: 769/3 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00769/005 DISK MANAGER LOCKING SA G # DMGR:DM.LOCK.S 4.2BT1 74 DISK_MANAGER.LOCKING.SA.005 1 LINE 140 19 PAGE UM GOODRICH OCT. 17, 1979 21:34:55 0 THESE ARE THE LOCKING ROUTINES AND THE LOCKMNGR SUBTASK, WHICH LOCKS AND UNLOCKS PAGES AND VOLUMES FOR REQUESTS. COMMANDS FOR ASSEMBLY START AT LINE 1 SO THAT THE FILE MAY BE $SOURCED TO. REQUIRES DMGR:DM.MACROS (769/8), COPY:CC.MACROS (1054/3), AND COPY:RM.MACROS (1041/1). 0 Referenced by comments of: 769/3 00769/006 DISK MANAGER MISCELLANEOUS SA G # DMGR:DM.MISC.S 4.2BT1 75 DISK_MANAGER.MISCELLANEOU.SA.006 1 LINE 140 3 PAGE UM GOODRICH OCT. 17, 1979 21:35:18 0 THIS SUBCOMPONENT CONSISTS OF MISCELLANEOUS SUBTASKS AND ROUTINES, INCLUDING THE EXITMNGR AND ITSKMNGR SUBTASKS. THE EXITMNGR WAITS FOR TASK EXITS FROM THE SUPERVISOR AND CREATES OTHER STATIC TASKS, AND THE ITSKMNGR WAITS FOR MESSAGES ON THE INTERTASK NETWORK FOR "DISK MANAGER CONTROL" AND INFORMS THE DISPATCH SUBTASK (769/3) OF WHAT IS REQUESTED. COMMANDS FOR ASSEMBLY START AT LINE 1 SO THAT THE FILE MAY BE SOURCED TO. REQUIRES DMGR:DM.MACROS (769/8), COPY:CC.MACROS (1054/3), AND COPY:RM.MACROS (1041/1). 00769/007 DISK MANAGER OBJECT OE G # DMGR:DM.O UM GOODRICH 0 THIS IS THE OBJECT OF 769/1 AND 769/3 THROUGH 769/6, THE ABSOLUTE VERSION OF THE MTS DISK MANAGER. WHEN IT IS INSTALLED, IT WILL BE LOADED BY THE IPL LOADER. INCLUDES CODE FOR THE UBC SUBTASKING MONITOR (COMP. 1058, NOT DISTRIBUTED BY UM). 00769/008A DISK MANAGER MACROS SM G DMGR:DM.MACROS 4.3T2 106 DISK_MANAGER.MACROS.SM.008 1 LINE 72 19 PAGE UM GOODRICH APR. 06, 1980 13:32:45 0 THIS IS THE MACRO LIBRARY FOR THE MTS DISK MANAGER. IT ALSO CONTAINS COPY SECTIONS. 0 Referenced by comments of: 482/5, 769/1, 769/2, 769/3, 769/4, 769/5, 769/6, 769/9 00769/009C DISK MANAGER MONITOR RTNS SA O # DMGR:DM.MNTR(1000) UM HELFFRICH 0 DISK MANAGER SPECIFIC CODE TO PROVIDE THE SUBTASKING MONITOR (1068) FUNCTION OF ALLOCATING AND DEALLOCATING DISK DRIVES. ASSEMBLE USING COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041), COPY:MISC.MACROS (728), COPY:FILE.MACROS (482/33), AND DMGR:DM.MACROS (769/8). 00770/001A DTYPE SA S DTYP MTS:DTYPE(2000) 4.3T2 107 DTYPE..SA.001 1 LINE 80 2 PAGE UM MTA APR. 06, 1980 13:32:51 0 A GLP THAT ALLOWS YOU TO CHANGE THE TYPE OF A GIVEN DEVICE (USUALLY TO OR FROM TYPE "TEST"). SHOULD COPY COPY:LLMPSEQU AND COPY:GLOBALS, BUT DOESN'T. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00770/002A DTYPE OC S MTS:DTYPE(1000,1999) 4.3T2 108 DTYPE..OC.002 1 LINE 80 1 PAGE UM MTA APR. 06, 1980 13:32:54 00771/001A *COMBINE SA G S1210 PASDIS 'PASCAL DIST' FSNAME=COMBINE.ASM 4.3T2 109 COMBINE..SA.001 1 LINE 81 33 PAGE UM PICKELMAN OCT. 18, 1979 01:33:13 0 PROGRAM TO COMBINE RECORDS OR PORTIONS OF RECORDS FROM SEVERAL FILES. COPIES *GDINFODSECT (594). ORIGINALLY WRITTEN BY JASON HALM AT UBC. 00771/002A *COMBINE OE G *COMBINE 4.3T2 110 COMBINE..OE.002 1 LINE 10684 5 PAGE UM PICKELMAN APR. 06, 1980 13:35:49 *COMBINE 00771/003A *COMBINE MEMO 412 WF S0672 CCMEMO 'CCMEMOS' FSNAME=M412 4.3T2 111 COMBINE.MEMO_412.WF.003 1 LINE 74 5 PAGE UM PICKELMAN FEB. 29, 1980 10:17:12 0 THIS IS COMPUTING CENTER MEMO 412 -- "*COMBINE: A RECORD-COMBINING PROGRAM." 00772/001A COUNTW SF O S0684 UNSP FSNAME=COUNTW.FTN 4.3T2 112 COUNTW..SF.001 1 LINE 77 8 PAGE UM UNSP OCT. 06, 1979 04:41:28 0 A PROGRAM TO SCAN A FILE AND PRINT SOME STATISTICS AND A LIST OF ALL THE WORDS FOUND. WRITTEN BY JOHN COULTHARD AND ALAN MILLER AT UBC. USES UBC LIBRARY (1050). 00772/002A COUNTW OE O UNSP:COUNTW 4.3T2 113 COUNTW..OE.002 1 LINE 20832 8 PAGE UM UNSP APR. 06, 1980 13:36:28 UNSP:COUNTW 0 LINKEDITED OBJECT OF COUNTW, ROUTINES FROM UBC LIBRARY (1050), AND A MODIFIED CSNOOP.O (695/4). 00772/003A COUNTW WF S0684 UNSP FSNAME=COUNTW.F 4.3T2 114 COUNTW..WF.003 1 LINE 106 8 PAGE UM UNSP OCT. 15, 1979 18:41:10 00773/001A CONCORD FORTRAN SOU SF O S0684 UNSP FSNAME=CONCORD.FTN 4.3T2 115 CONCORD.FORTRAN_SOU.SF.001 1 LINE 68 4 PAGE UM UNSP OCT. 06, 1979 04:44:29 0 A PROGRAM TO PRINT CONCORDANCES OF MTS FILE. USES THE CONCORD ASSEMBLER ROUTINES (773/2), SOME OF WHICH HAVE THE SAME NAMES AS SOME CHARACTER MANIPULATION ROUTINES IN *LIBRARY (524/1), BUT DIFFERENT FUNCTIONS. ORIGINALLY WRITTEN BY JOHN COULTHARD AT UBC. MODIFIED AT UM SO THAT IT DOESN'T USE ROUTINES NOT AVAILABLE HERE. 00773/002A CONCORD ASSEMBLY SOU SA O S0684 UNSP FSNAME=CONCORD.ASM 4.3T2 116 CONCORD.ASSEMBLY_SOU.SA.002 1 LINE 72 3 PAGE UM UNSP OCT. 06, 1979 04:43:32 0 Referenced by comments of: 773/1 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00773/003A CONCORD OE O UNSP:CONCORD 4.3T2 117 CONCORD..OE.003 1 LINE 3264 3 PAGE UM UNSP APR. 06, 1980 13:36:37 UNSP:CONCORD 0 LINKEDITED OBJECT OF FORTRAN AND ASSEMBLER SOURCE (773/1 AND 773/2) AND A MODIFIED VERSION OF CSNOOP.O (695/4). USES UNSP:LIBRARY (685/4). 00773/004A CONCORD WF O S0684 UNSP FSNAME=CONCORD.F 4.3T2 118 CONCORD..WF.004 1 LINE 67 3 PAGE UM UNSP OCT. 06, 1979 04:44:46 00774/001A LISTER SA O S0684 UNSP FSNAME=LISTER.ASM 4.3T2 119 LISTER..SA.001 1 LINE 101 39 PAGE UM UNSP OCT. 06, 1979 04:45:16 0 A PROGRAM TO LIST FILES. IT HANDLES LONG LINES, FORMATS OUTPUT INTO COLUMNS, AND HAS MANY OTHER OPTIONS. ORIGINALLY WRITTEN BY TONY BUCKLAND AT UBC. USES MTSLNR FROM UBC LIBRARY (1050). COPIES *GDINFODSECT (594) AND *GFINFODSECT (593). ASSEMBLE WITH PAR=BATCH. 00774/002A LISTER OE O UNSP:LISTER 4.3T2 120 LISTER..OE.002 1 LINE 6352 4 PAGE UM UNSP APR. 06, 1980 13:36:44 UNSP:LISTER 0 LINKEDITED OBJECT OF LISTER AND SOME ROUTINES FROM UBC LIBRARY (1050), ALONG WITH A MODIFIED VERSION OF CSNOOP.O (695/4). USES UNSP:LIBRARY (685/4). 00774/003A LISTER WF S0684 UNSP FSNAME=LISTER.F 4.3T2 121 LISTER..WF.003 1 LINE 173 10 PAGE UM UNSP OCT. 06, 1979 04:45:40 00775/001A PEXIT SA O W067:PEXIT.S 4.3T2 122 PEXIT..SA.001 1 LINE 92 15 PAGE UM SHERRY APR. 06, 1980 13:36:48 0 THIS IS AN EXPERIMENTAL PRINT EXIT ROUTINE TO BE USED WITH ASSEMBLER H (737/30). IT POST-PROCESSES THE LISTINGS PRODUCED BY ASSEMBLER H TO INSERT LEVEL NUMBERS FOR THE STRUCTURED PROGRAMMING MACROS IN *SYSMAC AMONG OTHER THINGS. SEE THE WRITEUP IN 775/4 FOR A DESCRIPTION OF WHAT IT DOES AND HOW TO USE IT. USES PEXIT.MAC (775/2), THE OBJUTIL MISC MACROS (721/14), AND *SYSMAC. ASSEMBLE WITH ASMH (737/30) WITH PAR=PEXIT=PEXIT. *********************************************************************** D4.3 VERSION: THIS COMPONENT IS FOR USE WITH THE VERSION OF *ASMH INCLUDED WITH THIS DISTRIBUTION (NOT PREVIOUS VERSIONS). *********************************************************************** 00775/002A PEXIT MACROS SM G W067:PEXIT.MAC 4.3T2 123 PEXIT.MACROS.SM.002 1 LINE 73 8 PAGE UM SHERRY APR. 06, 1980 13:37:05 0 MACRO LIBRARY REQUIRED TO ASSEMBLE PROGRAMS CONTAINING THE ASMEDIT MACRO WHICH IS USED WITH THE ASSEMBLER H PEXIT ROUTINE. 0 Referenced by comments of: 570/1, 746/1, 749/1, 775/1 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00775/003A PEXIT OE O W067:PEXIT 4.3T2 124 PEXIT..OE.003 1 LINE 4164 5 PAGE UM SHERRY APR. 06, 1980 13:37:07 0 OBJECT LOADED BY ASMH (737/30 -- AS DISTRIBUTED ON RD4.2B) IF PAR=PEXIT=PEXIT IS SPECIFIED. 0 Referenced by comments of: 746/1 00775/004A PEXIT WX W067:PEXIT.WX 4.3T2 125 PEXIT..WX.004 1 LINE 85 3 PAGE UM SHERRY APR. 06, 1980 13:37:09 0 TEXTFORM WRITEUP DESCRIBING THE ASSEMBLER H PRINT EXIT PEXIT. 00776 C *PFORT # (NOT DISTRIBUTED) UM BRILL 0 THE PFORT VERIFIER, DEVELOPED BY BELL LABORATORIES, CHECKS FORTRAN PROGRAMS FOR ADHERENCE TO PFORT, A PORTABLE SUBSET OF THE 1966 VERSION OF AMERICAN NATIONAL STANDARD FORTRAN. UM ACQUIRED PFORT FROM BELL LABS AND MODIFIED IT TO RUN IN MTS. PFORT IS A PROPRIETARY PROGRAM AND HENCE, MAY NOT BE DISTRIBUTED. ANY INSTALLATION DESIRING PFORT MUST REQUEST IT FROM BELL LABS AND PAY THEIR FEE. THE PFORT YOU GET WILL BE A MORE RECENT VERSION THAN THE ONE WE HAVE. IF YOU SHOULD WISH TO SEE THE CHANGES WE MADE, WE WILL SEND YOU A COPY OF THEM, BUT BE WARNED THAT THEY CANNOT BE APPLIED TO THE VERSION OF PFORT YOU'LL GET FROM BELL LABS. AT BEST, OUR CHANGES CAN GIVE YOU A ROUGH IDEA OF THE MODIFICATIONS WE MADE. WE WILL ALSO SEND YOU A COPY OF COMPUTING CENTER MEMO 406, "*PFORT," SHOULD YOU REQUEST ONE. WE DO NOT DISTRIBUTE THIS MEMO BECAUSE IT IS BASED LARGELY ON BELL LABS' COPYRIGHTED DOCUMENT. 00777/001A STARTUP/SHUTDOWN SA G MTS:SHUTDOWN(1,999) 4.3T2 126 STARTUP/SHUTDOWN..SA.001 1 LINE 72 3 PAGE UM OGDEN APR. 06, 1980 13:37:11 0 THE STARTUP AND SHUTDOWN JOB PROGRAMS, RECENTLY MOVED TO AN ASSEMBLY OF THEIR OWN AND OUT OF CMDS. ASSEMBLE USING COPY:MISC.MACROS (728). COPIES COPY:GLOBALS (1026/3) AND COPY:LLMPSEQU (087). 00777/002A STARTUP/SHUTDOWN OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00778/001A SIGNONM SA G MTS:SIGNONM(1,999) 4.3T2 127 SIGNONM..SA.001 1 LINE 71 1 PAGE UM OGDEN APR. 06, 1980 13:37:14 0 THE SIGNONM (SIGNON MESSAGE) JOB PROGRAM, RECENTLY MOVED OUT OF CMDS AND INTO AN ASSEMBLY OF ITS OWN. ASSEMBLE USING COPY:MISC.MACROS. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00778/002A SIGNONM OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM OGDEN 00779/001C TRANSLATE TABLES SA G W078:TRTABLES.S 4.3T2 128 TRANSLATE_TABLES..SA.001 1 LINE 89 3 PAGE UM GOODRICH APR. 06, 1980 13:37:16 0 TRANSLATE TABLES USED BY MANY PARTS OF THE SYSTEM. CONTAINS COMMANDS AT FRONT SO THAT IT MAY BE $SOURCED TO. 00779/002C TRANSLATE TABLES O G SEG2:TRTABLES 4.3T2 129 TRANSLATE_TABLES..O.002 1 LINE 80 3 PAGE UM GOODRICH APR. 06, 1980 13:37:18 SEG2:TRTABLES 0 OBJECT FOR THE TRANSLATE AND TRANSLATE AND TEST TABLES LOADED BY THE SEGMENT 2 LOADER. 00780/001C MESS STUDENT VERS SF O S1073 UNSP FSNAME=MESS3SBSOR 4.3T2 130 MESS.STUDENT_VERS.SF.001 1 LINE 72 10 PAGE UM UNSP DEC. 21, 1974 14:06.40 0 THIS COMPONENT IS THE MICHIGAN EXPERIMENTAL SIMULATION SUPERVISOR (MESS), A GENERAL SUPERVISOR FOR COMPUTER-SIMULATED EXPERIMENTS. MESS, THE MICHIGAN EXPERIMENT SIMULATION SUPERVISOR, WAS DEVELOPED AT THE UNIVERSITY OF MICHIGAN HIGHWAY SAFETY RESEARCH INSTITUTE BY RICHARD HALSTEAD-NUSSLOCH, ALONG WITH DANA MAIN AND ROBERT L STOUT. MESS IS USED BY THE MESS EXPR-SIM EXPERIMENTS (780/13 - 780/33), A COLLECTION OF EXPERIMENTS WHICH SIMULATE VARIOUS PSYCHOLOGICAL EXPERIMENTS. MESS IS VERY GENERAL AND COULD BE USED FOR OTHER TYPES OF EXPERIMENTS. THIS SUBCOMPONENT CONTAINS THE SOURCE FOR THE "STUDENT" VERSION OF MESS. USES THE MESS LIBRARY (780/10). 00780/002C MESS STUDENT VERS OC O UNSP:EXPR_MESS3SB 4.3T2 131 MESS.STUDENT_VERS.OC.002 1 LINE 10454 6 PAGE UM UNSP APR. 06, 1980 13:46:31 UNSP:EXPR_MESS3SB 00780/003C MESS INSTRUCT VERS SF O S1073 UNSP FSNAME=MESS3PSOR 4.3T2 132 MESS.INSTRUCT_VERS.SF.003 1 LINE 72 16 PAGE UM UNSP MAY 31, 1975 17:51:05 0 THIS IS THE SOURCE FOR THE "INSTRUCTORS'" VERSION OF MESS. USES THE MESS LIBRARY (780/10). 0 Referenced by comments of: 780/13, 780/16, 780/19, 780/22, 780/25, 780/28, 780/31 00780/004C MESS INSTRUCT VERS OC O UNSP:EXPR_MESS3P 4.3T2 133 MESS.INSTRUCT_VERS.OC.004 1 LINE 18282 9 PAGE UM UNSP APR. 06, 1980 13:46:36 UNSP:EXPR_MESS3P 00780/005C MESS CARD VERSION SF O S1073 UNSP FSNAME=MESS3SCSOR 4.3T2 134 MESS.CARD_VERSION.SF.005 1 LINE 72 10 PAGE UM UNSP DEC. 21, 1974 13:58.50 0 THIS IS THE SOURCE FOR THE "CARD" VERSION OF MESS. IT USES ONLY FORMATTED READS OF RECORDS UP TO 80 CHARACTER IN LENGTH. NOT NEEDED ON MTS. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00780/006C MESS CARD VERSION OC O S0684 UNSP FSNAME=MESS3SCOBJ 4.3T2 135 MESS.CARD_VERSION.OC.006 1 LINE 14220 7 PAGE UM UNSP FEB. 20, 1980 05:40:11 00780/007C MESS FORMAT RTNS SF O S1073 UNSP FSNAME=FPOUTSOR 4.3T2 136 MESS.FORMAT_RTNS.SF.007 1 LINE 72 5 PAGE UM UNSP MAY 31, 1975 17:52:58 0 GENERAL FORMATTING ROUTINES USED BY MESS. 00780/008C MESS NUM & STAT RTN SF O S1073 UNSP FSNAME=LIBSOR 4.3T2 137 MESS.NUM_&_STAT_RTN.SF.008 1 LINE 74 8 PAGE UM UNSP MAY 31, 1975 17:50:48 0 NUMERICAL AND STATISTICAL ROUTINES USED BY MESS. 00780/009C MESS AUX RTNS SF O S1073 UNSP FSNAME=AUXSOR 4.3T2 138 MESS.AUX_RTNS.SF.009 1 LINE 75 13 PAGE UM UNSP MAY 31, 1975 17:46:53 0 MISCELLANEOUS AUXILIARY ROUTINES USED BY MESS. 00780/010C MESS LIBRARY OL O UNSP:EXPR_MESSLIB 4.3T2 139 MESS.LIBRARY.OL.010 1 LINE 5912 13 PAGE UM UNSP APR. 06, 1980 13:46:57 UNSP:EXPR_MESSLIB 0 THE MESS LIBRARY. CONTAINS THE OBJECT OF 780/7, 780/8, AND 780/9. 0 Referenced by comments of: 780/1, 780/3 00780/011C MESS INSTALL P S0684 UNSP FSNAME=EXPR.COMMENTS 4.3T2 140 MESS.INSTALL.P.011 1 LINE 67 1 PAGE UM UNSP DEC. 13, 1979 02:26:07 0 A BRIEF INTRODUCTION TO MESS AND THE MESS EXPR-SIM EXPERIMENTS (780/13 - 780/33), INTENDED FOR INSTALLATIONS RECEIVING THIS DISTRIBUTION. THE FOLLOWING DOCUMENTATION IS AVAILABLE FOR MESS AND EXPER-SIM: PROGRAMMER'S GUIDE TO MESS VERSION 3-P, 3-SB, AND 3-SC, BY ROBERT L. STOUT EXPER-SIM ON MICHIGAN EXPERIMENTAL SIMULATION SUPERVISOR (MESS), REVISED EDITION, BY DANA B. MAIN AND RICHARD HALSTEAD-NUSSLOCH IF YOU ARE INTERESTED IN RECEIVING XEROX COPIES OF THESE DOCUMENTS, SEND YOUR REQUEST TO: ELIZABETH SWEET COMPUTING CENTER UNIVERSITY OF MICHIGAN 1075 BEAL AVE. ANN ARBOR, MI 48109 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00780/012C MESS WRITEUP P UNSP:EXPR.W 4.3T2 141 MESS.WRITEUP.P.012 1 LINE 70 1 PAGE UM UNSP APR. 06, 1980 13:47:01 0 CONTAINS A DIRECTORY TO THE MESS AND MESS EXPR-SIM (780/13 - 780/33) FILES AT UM. 00780/013C MESS EXPR-SIM DEMO O O UNSP:EXPR.DEMO 4.3T2 142 MESS.EXPR-SIM_DEMO.O.013 1 LINE 15804 21 PAGE UM UNSP APR. 06, 1980 13:47:04 UNSP:EXPR.DEMO 0 A DEMONSTRATION GENERATED USING 780/14 AND 780/15. THIS FILE CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA (THE RESULT OF RUNNING THE DATA FILE (780/15) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3)), AND THE OBJECT OF THE 780/14 FORTRAN MODEL PROGRAM. 00780/014C MESS EXPR-SIM DEMO SF O S1073 UNSP FSNAME=DEMO2SOR 4.3T2 143 MESS.EXPR-SIM_DEMO.SF.014 1 LINE 72 4 PAGE UM UNSP DEC. 21, 1974 14:26.35 0 THIS IS THE MODEL PROGRAM FOR A DEMONSTRATION EXPERIMENT. 00780/015C MESS EXPR-SIM DEMO D S1073 UNSP FSNAME=DEMO2DAT1 4.3T2 144 MESS.EXPR-SIM_DEMO.D.015 1 LINE 64 1 PAGE UM UNSP DEC. 21, 1974 14:27.08 0 THIS IS THE DATA FOR 780/13. 0 Referenced by comments of: 780/13 00780/016C MESS EXPR-SIM DOPE O O UNSP:EXPR.DOPE 4.3T2 145 MESS.EXPR-SIM_DOPE.O.016 1 LINE 15800 20 PAGE UM UNSP APR. 06, 1980 13:47:14 UNSP:EXPR.DOPE 0 THIS IS AN EXPERIMENT ENTITLED "DRUG OBSERVATIONS: PROGRAM FOR EXPERIMENTS." IT WAS GENERATED USING 780/17 AND 780/18. THIS FILE CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA (THE RESULT OF RUNNING THE DATA FILE (780/18) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3)), AND THE OBJECT OF THE 780/17 FORTRAN MODEL PROGRAM. 00780/017C MESS EXPR-SIM DOPE SF O S1073 UNSP FSNAME=DOPESOR 4.3T2 146 MESS.EXPR-SIM_DOPE.SF.017 1 LINE 79 5 PAGE UM UNSP MAY 31, 1975 17:47:55 00780/018C MESS EXPR-SIM DOPE D S1073 UNSP FSNAME=DOPEDAT1 4.3T2 147 MESS.EXPR-SIM_DOPE.D.018 1 LINE 54 1 PAGE UM UNSP DEC. 21, 1974 14:23.37 0 Referenced by comments of: 780/16 00780/019C MESS EXPR IMPRINT O O UNSP:EXPR.IMPRINT 4.3T2 148 MESS.EXPR_IMPRINT.O.019 1 LINE 15800 18 PAGE UM UNSP APR. 06, 1980 13:47:21 UNSP:EXPR.IMPRINT 0 AN EXPERIMENT ON IMPRINTING GENERATED USING 780/20 AND 780/21. THIS FILE CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA (THE RESULT OF RUNNING THE DATA FILE (780/21) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3)), AND THE OBJECT OF THE 780/20 FORTRAN 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 MODEL PROGRAM. 00780/020C MESS EXPR IMPRINT SF O S1073 UNSP FSNAME=IMPSOR 4.3T2 149 MESS.EXPR_IMPRINT.SF.020 1 LINE 72 3 PAGE UM UNSP DEC. 21, 1974 14:06.06 00780/021C MESS EXPR IMPRINT D S1073 UNSP FSNAME=IMPDAT1 4.3T2 150 MESS.EXPR_IMPRINT.D.021 1 LINE 63 1 PAGE UM UNSP DEC. 21, 1974 14:22.37 0 Referenced by comments of: 780/19 00780/022C MESS EXPR MOTIV O O UNSP:EXPR.MOTIVE 4.3T2 151 MESS.EXPR_MOTIV.O.022 1 LINE 15800 19 PAGE UM UNSP APR. 06, 1980 13:47:29 UNSP:EXPR.MOTIVE 0 AN EXPERIMENT ON MOTIVATION IN ROUTINE TASKS, GENERATED USING 780/23 AND 780/24. CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA (THE RESULT OF RUNNING THE DATA FILE (780/24) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3)), AND THE OBJECT OF THE 780/23 FORTRAN MODEL PROGRAM. 00780/023C MESS EXPR MOTIV SF O S1073 UNSP FSNAME=MOTSOR 4.3T2 152 MESS.EXPR_MOTIV.SF.023 1 LINE 71 3 PAGE UM UNSP DEC. 21, 1974 14:09.42 00780/024C MESS EXPR MOTIV D S1073 UNSP FSNAME=MOTDAT1 4.3T2 153 MESS.EXPR_MOTIV.D.024 1 LINE 71 1 PAGE UM UNSP DEC. 21, 1974 14:08.33 0 Referenced by comments of: 780/22 00780/025C MESS EXPR-SIM RATS O O UNSP:EXPR.RATS 4.3T2 154 MESS.EXPR-SIM_RATS.O.025 1 LINE 15804 21 PAGE UM UNSP APR. 06, 1980 13:47:36 UNSP:EXPR.RATS 0 AN EXPERIMENT ENTITLED "RATS: SELF-STIMULATION SIMULATION", GENERATED BY 780/26 AND 780/27. THIS FILE CONTAINS A VARIETY OF THINGS, INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA (THE RESULT OF RUNNING THE DATA FILE (780/27) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3)), AND THE OBJECT OF THE 780/26 FORTRAN MODEL PROGRAM. 00780/026C MESS EXPR-SIM RATS SF O S1073 UNSP FSNAME=RATSSOR 4.3T2 155 MESS.EXPR-SIM_RATS.SF.026 1 LINE 75 5 PAGE UM UNSP MAY 31, 1975 17:48:33 00780/027C MESS EXPR-SIM RATS D S1073 UNSP FSNAME=RATSDAT1 4.3T2 156 MESS.EXPR-SIM_RATS.D.027 1 LINE 52 1 PAGE UM UNSP DEC. 21, 1974 14:16.50 0 Referenced by comments of: 780/25 00780/028C MESS EXPR-SIM SCHIZ O O UNSP:EXPR.SCHIZ 4.3T2 157 MESS.EXPR-SIM_SCHIZ.O.028 1 LINE 15800 16 PAGE UM UNSP APR. 06, 1980 13:47:43 UNSP:EXPR.SCHIZ 0 AN EXPERIMENT ENTITLED "THE ETIOLOGY OF SCHIZOPHRENIA", GENERATED USING 780/29 AND 780/30. THIS FILE CONTAINS A VARIETY OF THINGS, INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA (THE RESULT OF RUNNING THE DATA FILE (780/30) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3)), AND THE OBJECT 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 OF THE 780/29 FORTRAN MODEL PROGRAM. 00780/029C MESS EXPR-SIM SCHIZ SF O S1073 UNSP FSNAME=SCHIZSOR 4.3T2 158 MESS.EXPR-SIM_SCHIZ.SF.029 1 LINE 72 1 PAGE UM UNSP DEC. 21, 1974 14:10.48 00780/030C MESS EXPR-SIM SCHIZ D S1073 UNSP FSNAME=SCHIZDAT1 4.3T2 159 MESS.EXPR-SIM_SCHIZ.D.030 1 LINE 67 1 PAGE UM UNSP DEC. 21, 1974 14:10.18 0 Referenced by comments of: 780/28 00780/031C MESS EXPR SOC FAC O O UNSP:EXPR.SOCFAC 4.3T2 160 MESS.EXPR_SOC_FAC.O.031 1 LINE 15800 19 PAGE UM UNSP APR. 06, 1980 13:47:51 UNSP:EXPR.SOCFAC 0 AN EXPERIMENT IN SOCIAL FACILITATION, GENERATED USING 780/32 AND 780/33. CONTAINS A VARIETY OF THINGS INCLUDING MTS COMMANDS SO THAT IT MAY BE $SOURCED TO, THE SIMULATION DATA (THE RESULT OF RUNNING THE DATA FILE (780/33) THROUGH THE INSTRUCTOR'S VERSION OF MESS (780/3)), AND THE OBJECT OF THE 780/32 FORTRAN MODEL PROGRAM. 00780/032C MESS EXPR SOC FAC SF O S1073 UNSP FSNAME=SFACSOR 4.3T2 161 MESS.EXPR_SOC_FAC.SF.032 1 LINE 69 4 PAGE UM UNSP SEP. 07, 1973 14:40.51 00780/033C MESS EXPR SOC FAC D S1073 UNSP FSNAME=SFACDAT1 4.3T2 162 MESS.EXPR_SOC_FAC.D.033 1 LINE 76 1 PAGE UM UNSP SEP. 07, 1973 14:42.30 0 Referenced by comments of: 780/31 00781/001C PASCAL VALIDATION SUITE TAPE DESC P # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.CHARSET UM PICKELMAN 0 THE PASCAL VALIDATION SUITE IS A SET OF OVER 300 PASCAL PROGRAMS DESIGNED TO TEST A COMPILER'S COMPLIANCE WITH THE DRAFT PASCAL STANDARD (SEE THE PASCAL NEWS, NO. 16, OCT. 1979). THE SUITE ITSELF CANNOT BE DISTRIBUTED, BUT MAY BE OBTAINED FROM THE FOLLOWING DISTRIBUTORS: NORTH AMERICA: EUROPE: RICHARD J. CICHELLI DR. B. WICHMANN ANPA RESEARCH INSTITUTE NATIONAL PHYSICS LABORATORY BOX 598 TEDDINGTON, TW11 0LW EASTON, PA 18042 MIDDLESEX U.S.A. ENGLAND THIS SUBCOMPONENT CONTAINS A DESCRIPTION OF THE PASCAL VALIDATION SUITE DISTRIBUTION TAPE. 00781/002C PASCAL VALIDATION SUITE SKELETON SW G # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SKELETON UM PICKELMAN 0 A PROGRAM TO LIST, SELECT, OR ADD COMMANDS TO RUN THE 781/4 PROGRAMS. 0 Referenced by comments of: 781/8 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00781/003C PASCAL VALIDATION SUITE DOCUMENTATION P # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.DOCUMENTATION UM PICKELMAN 0 A DESCRIPTION OF THE PASCAL VALIDATION SUITE. 00781/004C PASCAL VALIDATION SUITE SUITE SW G # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SUITE UM PICKELMAN 0 THE PASCAL VALIDATION SUITE TEST PROGRAMS. 00781/005C PASCAL VALIDATION SUITE STANDARD P # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.STANDARD UM PICKELMAN 0 THE VERSION OF THE DRAFT PASCAL STANDARD TO WHICH THE PASCAL VALIDATION SUITE CORRESPONDS. 00781/006C PASCAL VALIDATION SUITE REPORTS P # S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.REPORTS UM PICKELMAN 0 RESULTS OF THE PASCAL VALIDATION SUITE, AS REPORTED TO ITS AUTHORS. 00781/007C PASCAL VALIDATION SUITE UM REPORTS P S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.360REPORTS 4.3T2 163 PASCAL_VALIDATION_SUITE.U.P.007 1 LINE 82 12 PAGE UM PICKELMAN JAN. 21, 1980 14:52:47 0 RESULTS OF THE PASCAL VALIDATION SUITE AT UM. 00781/008C PASCAL VALIDATION SUITE SELECT UC O S1210 PASDIS 'PASCAL DIST' FSNAME=PVS.SELECT.CDU 4.3T2 164 PASCAL_VALIDATION_SUITE.S.UC.008 1 LINE 68 3 PAGE UM PICKELMAN FEB. 25, 1980 15:21:19 0 UPDATE TO THE SKELETON (781/2). PRODUCES OBJECT (781/9) FOR USE WITH THE PASCAL COMPILERS AVAILABLE UNDER MTS. 00781/009C PASCAL VALIDATION SUITE SELECT OC O S1210 PASDIS 'PASCAL DIST' FSNAME=PVS_SELECT 4.3T2 165 PASCAL_VALIDATION_SUITE.S.OC.009 1 LINE 7532 4 PAGE UM PICKELMAN JAN. 21, 1980 15:00:09 0 HAS A $CONTINUE WITH UNSP:PAS.SP.RUN (782/55) RECORD. 0 Referenced by comments of: 781/8 00782/001A PASCAL/SB OS/COMMENTS P O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.COMMENTS 4.3T2 166 PASCAL/SB.OS/COMMENTS.P.001 1 LINE 91 16 PAGE UM UNSP OCT. 20, 1979 19:26:23 0 THIS IS THE STONY BROOK PASCAL COMPILER, RELEASE 3.1. SUBCOMPONENTS INCLUDE MODULES OF THE OS VERSION AS RECEIVED FROM STONY BROOK (SUBCOMPONENTS 782/1 - 782/35) AND THOSE MODIFIED FOR THE MTS VERSION (SUBCOMPONENTS 782/36 - 782/67). 782/1 IS THE DESCRIPTION, FROM STONY BROOK, OF THE OS VERSION. OTHER SUBCOMPONENTS WHICH MAY BE HELPFUL TO THOSE INSTALLING PASCAL/SB ARE 782/36 AND 782/37. TO INSTALL THE SYSTEM AS RUN AT MICHIGAN, RESTORE SUBCOMPONENTS 782/52, 782/55, AND 782/58, ALONG WITH 782/38, 782/39 (WRITEUPS) AND 782/61, 782/62 AND 782/63 (TEST PROGRAMS). THE XPL PROGRAMS MODIFIED BY MICHIGAN (COMPONENTS 782/36 AND BEYOND) USE 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 THE VERSION OF THE 495/13 VERSION OF THE XPL SUBMONITOR. COMPONENT 685/11 IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES TO ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM. 00782/002A PASCAL/SB OS/OMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.OMONITOR.ASM 4.3T2 167 PASCAL/SB.OS/OMONITOR.SA.002 1 LINE 80 41 PAGE UM UNSP OCT. 20, 1979 19:26:26 0 THIS IS THE PASCAL/SB OVERLAY MONITOR, A MUTATION OF XPLSM WHICH SUPPORTS THE MULTIPASS ARCHITECTURE OF THE STONY BROOK PASCAL 360 COMPILER. 0 Referenced by comments of: 782/3 00782/003C PASCAL/SB OS/OMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASCAL2S.ASM 4.3T2 168 PASCAL/SB.OS/OMONITOR.SA.003 1 LINE 80 37 PAGE UM UNSP OCT. 20, 1979 19:28:22 0 A VERSION OF THE OVERLAY MONITOR (782/2) THAT USES COREFILES AND A "STEP LIB". 00782/004A PASCAL/SB OS/OMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PA$CAL.ASM 4.3T2 169 PASCAL/SB.OS/OMONITOR.SA.004 1 LINE 80 39 PAGE UM UNSP OCT. 20, 1979 19:26:39 0 THIS FILE CONTAINS A SMALL VERSION OF 782/2. IT IS LOADED IN CONJUNCTION WITH OBJECT MODULES PRODUCED BY THE PASCAL LINKER (782/20) AND PROVIDES THE RUNTIME ENVIRONMENT NEEDED BY THE DIAGNOSTICS PACKAGE (PMD). 00782/005A PASCAL/SB OS/CORE FILE SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.COREFILE.ASM 4.3T2 170 PASCAL/SB.OS/CORE_FILE.SA.005 1 LINE 72 5 PAGE UM UNSP OCT. 20, 1979 19:26:31 0 THIS FILE CONTAINS THE ASSEMBLER SOURCE ROUTINE THAT SIMULATES OS/360 QSAM FILES BY USING LINKED, IN-CORE STORAGE BLOCKS. 00782/006A PASCAL/SB OS/RMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONITOR.ASM 4.3T2 171 PASCAL/SB.OS/RMONITOR.SA.006 1 LINE 80 41 PAGE UM UNSP OCT. 20, 1979 19:26:33 0 THIS FILE CONTAINS THE SOURCE CODE FOR THE PASCAL RUN MONITOR, WHICH LOADS PASCAL PROGRAMS AND PROVIDES THE RUN-TIME ENVIRONMENT NEEDED FOR THEIR EXECUTION. 0 Referenced by comments of: 782/7, 782/8 00782/007C PASCAL/SB OS/RMONITOR SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONR2.ASM 4.3T2 172 PASCAL/SB.OS/RMONITOR.SA.007 1 LINE 80 36 PAGE UM UNSP OCT. 20, 1979 19:28:29 0 THE RELEASE 2 VERSION OF THE RUN MONITOR (782/6). THIS IS USED BY THE 782/4 VERSION OF THE OVERLAY MONITOR. IT SHOULD BE POSSIBLE TO GET AN EQUIVALENT VERSION BY SETTING &INCORE TO 1 AND &ISEXT TO 0, BUT THIS HASN'T BEEN CHECKED. 00782/008C PASCAL/SB OS/RMONITOR U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.RMONITOR.EDITXPL 4.3T2 173 PASCAL/SB.OS/RMONITOR.U.008 1 LINE 63 1 PAGE UM UNSP JAN. 22, 1980 14:49:27 0 AN EDIT XPL (782/32) UPDATE TO THE RUN MONITOR (782/6). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00782/009A PASCAL/SB OS/OBJECT OL O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASCAL.LMODS 4.3T2 174 PASCAL/SB.OS/OBJECT.OL.009 1 LINE 80 17 PAGE UM UNSP OCT. 20, 1979 19:26:43 0 THIS FILE CONTAINS LOAD MODULES TO PROVIDE THE EXECUTION ENVIRONMENTS FOR THE STONY BROOK PASCAL COMPILER AND FOR COMPILED PASCAL PROGRAMS. 00782/010A PASCAL/SB OS/PASS1 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.XPL 4.3T2 175 PASCAL/SB.OS/PASS1.SX.010 1 LINE 80 68 PAGE UM UNSP OCT. 20, 1979 19:26:46 0 THIS FILE CONTAINS THE SOURCE CODE FOR PASS 1 OF THE STONY BROOK PASCAL 360 COMPILER. PASS 1 IS RESPONSIBLE FOR LEXICAL AND SYNTACTIC ANALYSIS OF PASCAL PROGRAMS AND PRODUCES ABSTRACT SYTAX TREES AS OUTPUT. 0 Referenced by comments of: 782/11, 782/23 00782/011C PASCAL/SB OS/PASS1 U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.EDITXPL 4.3T2 176 PASCAL/SB.OS/PASS1.U.011 1 LINE 80 1 PAGE UM UNSP OCT. 20, 1979 19:28:34 0 AN EDITXPL (782/32) UPDATE TO PASS 1 (782/10). 00782/012A PASCAL/SB OS/PASS1 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1.OBJ 4.3T2 177 PASCAL/SB.OS/PASS1.O.012 1 LINE 7200 32 PAGE UM UNSP OCT. 20, 1979 19:26:52 0 THIS IS THE OBJECT OF 782/10 WHICH CAN BE USED BY 782/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/013A PASCAL/SB OS/PASS2 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.XPL 4.3T2 178 PASCAL/SB.OS/PASS2.SX.013 1 LINE 80 97 PAGE UM UNSP OCT. 20, 1979 19:26:55 0 THIS FILE CONTAINS THE SOURCE CODE FOR PASS 2 OF THE STONY BROOK PASCAL 360 COMPILER. PASS 2 IS RESPONSIBLE FOR TYPE CHECKING, AND GENERATING SYMBOLIC TRIPLES SUITABLE FOR INTERPRTATION OR FURTHER PROCESSING BY A CODE GENERATOR. 0 Referenced by comments of: 782/14, 782/25 00782/014C PASCAL/SB OS/PASS2 U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.EDITXPL 4.3T2 179 PASCAL/SB.OS/PASS2.U.014 1 LINE 80 4 PAGE UM UNSP OCT. 20, 1979 19:28:27 0 AN EDITXPL (782/32) UPDATE TO PASS 2 (782/13). 00782/015A PASCAL/SB OS/PASS2 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2.OBJ 4.3T2 180 PASCAL/SB.OS/PASS2.O.015 1 LINE 7200 40 PAGE UM UNSP OCT. 20, 1979 19:27:07 0 THIS IS THE OBJECT OF 782/13, WHICH CAN BE USED BY 782/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/016A PASCAL/SB OS/PASS3 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS3.XPL 4.3T2 181 PASCAL/SB.OS/PASS3.SX.016 1 LINE 80 55 PAGE UM UNSP OCT. 20, 1979 19:27:12 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00782/017A PASCAL/SB OS/PASS3 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS3.OBJ 4.3T2 182 PASCAL/SB.OS/PASS3.O.017 1 LINE 7200 32 PAGE UM UNSP OCT. 20, 1979 19:27:18 0 THIS IS THE OBJECT OF 782/16, WHICH CAN BE USED BY 782/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/018A PASCAL/SB OS/PMD SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PMD.XPL 4.3T2 183 PASCAL/SB.OS/PMD.SX.018 1 LINE 80 15 PAGE UM UNSP OCT. 20, 1979 19:27:22 0 THIS FILE CONTAINS THE SOURCE CODE FOR THE POST-MORTEM ANALYSIS ROUTINES (PMD). 00782/019A PASCAL/SB OS/PMD O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PMD.OBJ 4.3T2 184 PASCAL/SB.OS/PMD.O.019 1 LINE 7200 12 PAGE UM UNSP OCT. 20, 1979 19:27:25 0 THIS IS THE OBJECT OF 782/18, WHICH CAN BE USED BY 782/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/020A PASCAL/SB OS/LINKER SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.LINKER.XPL 4.3T2 185 PASCAL/SB.OS/LINKER.SX.020 1 LINE 80 20 PAGE UM UNSP OCT. 20, 1979 19:27:28 0 THIS FILE CONTAINS THE SOURCE CODE FOR THE STONY BROOK PASCAL LINKER. 0 Referenced by comments of: 782/4 00782/021A PASCAL/SB OS/LINKER O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.LINKER.OBJ 4.3T2 186 PASCAL/SB.OS/LINKER.O.021 1 LINE 7200 21 PAGE UM UNSP OCT. 20, 1979 19:27:34 0 THIS IS THE OBJECT OF 782/20, WHICH CAN BE USED BY 782/2 AND OTHER VERSIONS OF THE XPL SUBMONITOR. 00782/022A PASCAL/SB OS/PASS1S U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1S.EDITXPL 4.3T2 187 PASCAL/SB.OS/PASS1S.U.022 1 LINE 80 3 PAGE UM UNSP OCT. 20, 1979 19:27:37 0 THIS FILE CONTAINS AN UPDATE TO 782/10 TO PRODUCE PASS1S, THE "STUDENT" VERSION OF THE COMPILER, IMPLEMENTING ONLY STANDARD PASCAL. THE UPDATE SHOULD BE APPLIED USING OS/EDITXPL (782/32). 00782/023A PASCAL/SB OS/PASS1S O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS1S.OBJ 4.3T2 188 PASCAL/SB.OS/PASS1S.O.023 1 LINE 7200 30 PAGE UM UNSP OCT. 20, 1979 19:27:39 0 THIS FILE CONTAINS THE XPL OBJECT OF PASS1 (782/10), AS UPDATED BY 782/22. 00782/024A PASCAL/SB OS/PASS2S U O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2S.EDITXPL 4.3T2 189 PASCAL/SB.OS/PASS2S.U.024 1 LINE 80 3 PAGE UM UNSP OCT. 20, 1979 19:27:43 0 THIS FILE CONTAINS AN UPDATE TO 782/13 TO PRODUCE PASS2S, IMPLEMENTING ONLY STANDARD PASCAL. THIS UPDATE SHOULD BE APPLIED USING OS/EDITXPL (782/32). 00782/025A PASCAL/SB OS/PASS2S O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PASS2S.OBJ 4.3T2 190 PASCAL/SB.OS/PASS2S.O.025 1 LINE 7200 35 PAGE UM UNSP OCT. 20, 1979 19:27:45 0 THIS FILE CONTAINS THE XPL OBJECT OF PASS2 (782/13), AS UPDATED BY 782/24. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00782/026A PASCAL/SB OS/BNCHMARK SW O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.BNCHMARK.PROGRAMS 4.3T2 191 PASCAL/SB.OS/BNCHMARK.SW.026 1 LINE 80 12 PAGE UM UNSP OCT. 20, 1979 19:27:49 0 A SET OF TEST PROGRAMS AND JCL TO TEST PASCAL/SB. 00782/027A PASCAL/SB OS/XPLSM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLSM.ASM 4.3T2 192 PASCAL/SB.OS/XPLSM.SA.027 1 LINE 80 38 PAGE UM UNSP OCT. 20, 1979 19:27:52 0 THIS FILE CONTAINS AN ASSEMBLY LANGUAGE VERSION OF THE XPL SUBMONITOR, XPLSM. FOR USE WITH 782/29. 00782/028A PASCAL/SB OS/XCOM4 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XCOM4.XPL 4.3T2 193 PASCAL/SB.OS/XCOM4.SX.028 1 LINE 80 51 PAGE UM UNSP OCT. 20, 1979 19:28:01 0 THIS FILE CONTAINS THE SOURCE FOR XCOM4 (SEE 782/29). 0 Referenced by comments of: 782/29 00782/029A PASCAL/SB OS/XCOM4 O O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XCOM4.OBJ 4.3T2 194 PASCAL/SB.OS/XCOM4.O.029 1 LINE 7200 30 PAGE UM UNSP OCT. 20, 1979 19:27:58 0 THIS IS THE OBJECT OF XPL (782/28) THAT HAS BEEN USED TO COMPILE THE STONY BROOK PASCAL COMPILER. 00782/030A PASCAL/SB OS/XPLIB SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLIB.XPL 4.3T2 195 PASCAL/SB.OS/XPLIB.SX.030 1 LINE 80 1 PAGE UM UNSP OCT. 20, 1979 19:28:07 0 THIS FILE CONTAINS THE SOURCE FOR COMPACTIFY, THE XPL PROCEDURE WHICH IS AUTOMATICALLY CONCATENATED ON TO THE FRONT OF EVERY XPL PROGRAM. 00782/031A PASCAL/SB OS/XPLXREF SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.XPLXREF.XPL 4.3T2 196 PASCAL/SB.OS/XPLXREF.SX.031 1 LINE 80 9 PAGE UM UNSP OCT. 20, 1979 19:28:09 0 THIS FILE CONTAINS THE XPL SOURCE FOR A CROSS-REFERENCE LISTINGS PROGRAM FOR XPL SOURCE. 00782/032A PASCAL/SB OS/EDITXPL SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.EDITXPL.XPL 4.3T2 197 PASCAL/SB.OS/EDITXPL.SX.032 1 LINE 80 3 PAGE UM UNSP OCT. 20, 1979 19:28:13 0 THIS FILE CONTAINS THE XPL SOURCE FOR A CARD-IMAGE EDITOR, TO BE USED TO EDIT UPDATE PATCHES INTO THE PASCAL COMPILER SOURCE FILES. 0 Referenced by comments of: 782/8, 782/11, 782/14, 782/22, 782/24, 782/59 00782/033A PASCAL/SB OS/EDITXPL OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.EDITXPL.OBJ 4.3T2 198 PASCAL/SB.OS/EDITXPL.OC.033 1 LINE 7200 5 PAGE UM UNSP OCT. 20, 1979 19:28:15 00782/034A PASCAL/SB OS/REFORMAT SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.REFORMAT.ASM 4.3T2 199 PASCAL/SB.OS/REFORMAT.SA.034 1 LINE 80 10 PAGE UM UNSP OCT. 20, 1979 19:28:17 0 THIS FILE CONTAINS THE SOURCE OF A UTILITY PROGRAM THAT CAN BE USED TO REFORMAT XPL OBJECT MODULES ONTO A DISK. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00782/035A PASCAL/SB OS/PREFIX SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SBOS.PREFIX.XPL 4.3T2 200 PASCAL/SB.OS/PREFIX.SX.035 1 LINE 80 11 PAGE UM UNSP OCT. 20, 1979 19:28:20 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. 00782/036A PASCAL/SB COMMENTS P O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.COMMENTS 4.3T2 201 PASCAL/SB.COMMENTS.P.036 1 LINE 68 1 PAGE UM UNSP FEB. 10, 1980 17:44:03 0 INTERNAL DOCUMENTATION, WITH REFERENCES, FOR PASCAL/SB. NOT YET VERY COMPLETE. 00782/037A PASCAL/SB INSTALL C O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.INSTALL 4.3T2 202 PASCAL/SB.INSTALL.C.037 1 LINE 213 3 PAGE UM UNSP FEB. 10, 1980 17:10:59 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. 00782/038A PASCAL/SB NEWS P O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.NEWS 4.3T2 203 PASCAL/SB.NEWS.P.038 1 LINE 85 8 PAGE UM UNSP FEB. 10, 1980 17:12:14 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 (782/39). 00782/039A PASCAL/SB USERS MANUAL WF O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.USERS_MANUAL 4.3T2 204 PASCAL/SB.USERS_MANUAL.WF.039 1 LINE 127 35 PAGE UM UNSP NOV. 22, 1979 05:15:49 0 USER-LEVEL DOCUMENTATION FOR PASCAL/SB. NOT YET MODIFIED FOR MTS. 0 Referenced by comments of: 782/38 00782/040A PASCAL/SB PASS 1 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS1 4.3T2 205 PASCAL/SB.PASS_1.SX.040 1 LINE 105 69 PAGE UM UNSP MAR. 03, 1980 19:16:47 0 THIS IS COMPONENT 782/10, AS MODIFIED FOR MTS. 00782/041A PASCAL/SB PASS 2 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS2 4.3T2 206 PASCAL/SB.PASS_2.SX.041 1 LINE 113 98 PAGE UM UNSP MAR. 11, 1980 19:46:39 0 THIS IS COMPONENT 782/13, AS MODIFIED FOR MTS. MUST BE COMPILED WITH THE 495/14 VERSION OF XPL, SINCE IT IS VERY LARGE, AND PREVIOUS VERSIONS OF XPL WILL FAIL ON PROGRAMS SO BIG. 00782/042A PASCAL/SB PASS 3 SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASS3 4.3T2 207 PASCAL/SB.PASS_3.SX.042 1 LINE 88 56 PAGE UM UNSP MAR. 20, 1980 13:51:53 0 THIS IS COMPONENT 782/16, AS MODIFIED FOR MTS. 00782/043A PASCAL/SB PMD SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PMD 4.3T2 208 PASCAL/SB.PMD.SX.043 1 LINE 80 13 PAGE UM UNSP MAR. 01, 1980 19:26:36 0 THIS IS COMPONENT 782/18, AS MODIFIED FOR MTS. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00782/044A PASCAL/SB LINKER SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINKER 4.3T2 209 PASCAL/SB.LINKER.SX.044 1 LINE 80 22 PAGE UM UNSP MAR. 30, 1980 18:00:13 0 THIS IS COMPONENT 782/20, AS MODIFIED FOR MTS. 00782/045A PASCAL/SB XPL SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.XPL 4.3T2 210 PASCAL/SB.XPL.SX.045 1 LINE 68 5 PAGE UM UNSP MAR. 03, 1980 19:18:17 0 XPL SUBROUTINES USED BY PASCAL/SB INCLUDING MISCELLANEOUS SUBROUTINES USEFUL WHEN PROGRAMMING IN XPL. 00782/046A PASCAL/SB ASM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.ASM 4.3T2 211 PASCAL/SB.ASM.SA.046 1 LINE 102 10 PAGE UM UNSP FEB. 25, 1980 15:17:59 0 ASSEMBLY LANGUAGE SUBROUTINES USED BY PASCAL/SB. USES THE 782/48 PASCAL MACRO LIBRARY. 0 Referenced by comments of: 782/48 00782/047A PASCAL/SB PASTIME SA O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASTIME 4.3T2 212 PASCAL/SB.PASTIME.SA.047 1 LINE 86 20 PAGE UM UNSP MAR. 01, 1980 19:26:05 0 THE RUNTIME SUPPORT FOR PASCAL/SB PROGRAMS. USES THE 782/48 PASCAL MACRO LIBRARY. 00782/048A PASCAL/SB MACRO LIB SM O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.MACLIB 4.3T2 213 PASCAL/SB.MACRO_LIB.SM.048 1 LINE 51 1 PAGE UM UNSP FEB. 10, 1980 17:18:30 0 A MACRO LIBRARY FOR USE BY THE ASSEMBLER ROUTINES (782/46). 00782/049A PASCAL/SB LIBRARY OL O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LIB 4.3T2 214 PASCAL/SB.LIBRARY.OL.049 1 LINE 32767 116 PAGE UM UNSP MAR. 30, 1980 18:00:32 0 AN OBJECT LIBRARY WITH MODULES FOR EVERYTHING EXCEPT THE 3 EXPL MAIN PROGRAMS (782/50, 782/53, AND 782/56), WHICH ALL HAVE TO HAVE THE SAME NAME. 00782/050A PASCAL/SB MAIN PROGRAM SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.PASCAL 4.3T2 215 PASCAL/SB.MAIN_PROGRAM.SX.050 1 LINE 91 3 PAGE UM UNSP MAR. 03, 1980 19:16:14 0 XPL MAIN PROGRAM FOR THE COMPILER. 00782/051A PASCAL/SB MAIN PROGRAM OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_PASCAL 4.3T2 216 PASCAL/SB.MAIN_PROGRAM.OC.051 1 LINE 32767 17 PAGE UM UNSP FEB. 10, 1980 17:20:56 0 OBJECT OF 782/50. 00782/052A PASCAL/SB PASCAL OBJECT OE O UNSP:PAS.SB 4.3T2 217 PASCAL/SB.PASCAL_OBJECT.OE.052 1 LINE 32767 121 PAGE UM UNSP APR. 06, 1980 13:54:00 UNSP:PAS.SB 0 LINKEDITED PASCAL COMPILER, READY TO BE $RUN. LOGS USAGE STATISTICS IN UNSP:STATS (IF PRESENT) AND INTERRUPTS IN UNSP:PAS.SB.LOG (782/64). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00782/053A PASCAL/SB RUN SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.RUN 4.3T2 218 PASCAL/SB.RUN.SX.053 1 LINE 60 1 PAGE UM UNSP FEB. 10, 1980 17:24:33 0 XPL MAIN PROGRAM FOR RUNTIME SUPPORT (PMD). 00782/054A PASCAL/SB RUN OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_RUN 4.3T2 219 PASCAL/SB.RUN.OC.054 1 LINE 444 1 PAGE UM UNSP FEB. 10, 1980 17:24:02 00782/055A PASCAL/SB RUN OE O UNSP:PAS.SB.RUN 4.3T2 220 PASCAL/SB.RUN.OE.055 1 LINE 32767 12 PAGE UM UNSP APR. 06, 1980 13:54:11 UNSP:PAS.SB.RUN 0 LINKEDITED VERSION OF RUNTIME SUPPORT, READY TO BE RUN WITH A PASCAL OBJECT MODULE. 0 Referenced by comments of: 781/9, 784/3 00782/056A PASCAL/SB LINK SX O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.LINK 4.3T2 221 PASCAL/SB.LINK.SX.056 1 LINE 63 1 PAGE UM UNSP FEB. 10, 1980 17:27:59 0 XPL MAIN PROGRAM FOR THE LINKER. 00782/057A PASCAL/SB LINK OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_LINK 4.3T2 222 PASCAL/SB.LINK.OC.057 1 LINE 440 1 PAGE UM UNSP FEB. 10, 1980 17:27:25 00782/058A PASCAL/SB LINK OE O UNSP:PAS.SB.LINK 4.3T2 223 PASCAL/SB.LINK.OE.058 1 LINE 32767 22 PAGE UM UNSP APR. 06, 1980 13:54:18 UNSP:PAS.SB.LINK 0 LINKEDITED VERSION OF THE LINKER. $RUN THIS TO COMBINE NON-STANDARD MODULES, FORMING STANDARD ONES. 00782/059C PASCAL/SB EDITXPL UC G S1210 PASDIS 'PASCAL DIST' FSNAME=SB.EDITXPL.CDU 4.3T2 224 PASCAL/SB.EDITXPL.UC.059 1 LINE 84 1 PAGE UM UNSP FEB. 25, 1980 09:57:47 0 A CDUPDATE TO THE STONY BROOK UPDATE PROGRAM EDITXPL (782/32), WHICH CONVERTS IT TO EXPL AND MTS. OBJECT IS IN 782/60. 00782/060C PASCAL/SB EDITXPL OC O S1210 PASDIS 'PASCAL DIST' FSNAME=SB_EDITXPL 4.3T2 225 PASCAL/SB.EDITXPL.OC.060 1 LINE 2540 3 PAGE UM UNSP FEB. 25, 1980 09:55:17 0 HAS A $CONTINUE WITH *EXPLIB (495/4) RECORD. 00782/061A PASCAL/SB TEST C O S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TEST 4.3T2 226 PASCAL/SB.TEST.C.061 1 LINE 48 3 PAGE UM UNSP FEB. 10, 1980 17:29:45 0 SOURCE FILE TO TEST THE COMPILER. $CONTINUES WITH 782/62 AND 782/63. 00782/062A PASCAL/SB TEST SW O S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.PROGRAMS 4.3T2 227 PASCAL/SB.TEST.SW.062 1 LINE 90 48 PAGE UM UNSP NOV. 22, 1979 05:40:15 0 SEVERAL PASCAL PROGRAMS TO TEST PASCAL/SB. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00782/063A PASCAL/SB TEST D O S1210 PASDIS 'PASCAL DIST' FSNAME=PASCAL.DATA 4.3T2 228 PASCAL/SB.TEST.D.063 1 LINE 68 1 PAGE UM UNSP SEP. 13, 1979 01:58:42 0 DATA FOR USE WITH 782/62. 00782/064A PASCAL/SB LOG D # UNSP:PAS.SB.LOG UM UNSP UNSP:PAS.SB.LOG 0 THIS IS THE LOG FILE FOR PASCAL/SB. IN THE DISTRIBUTED VERSION OF PASCAL/SB, THE LOG FILE MUST BE CREATED WITH THE NAME UNSP:PAS.SB.LOG. TO CHANGE THIS, USERRLOG IN 782/46 MUST BE ALTERED. 0 Referenced by comments of: 782/52 00782/065A PASCAL/SB TM1.1 WF S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM1.1 4.3T2 229 PASCAL/SB.TM1.1.WF.065 1 LINE 73 5 PAGE UM UNSP SEP. 13, 1979 01:59:59 0 THIS IS PASCAL TECHNICAL MEMO 1.1: "THE STONY BROOK PASCAL/360 COMPILER," A 7-PAGE OVERVIEW OF THE COMPILER. 00782/066A PASCAL/SB TM5.1 WF S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM5.1 4.3T2 230 PASCAL/SB.TM5.1.WF.066 1 LINE 136 12 PAGE UM UNSP SEP. 13, 1979 02:00:11 0 THIS IS PASCAL TECHNICAL MEMO 5.1: "DOCUMENTATION OF INTERNAL STRUCTURE," A 16-PAGE DESCRIPTION OF PASS 1. 00782/067A PASCAL/SB TM5.2 WF S1210 PASDIS 'PASCAL DIST' FSNAME=SB.TM5.2 4.3T2 231 PASCAL/SB.TM5.2.WF.067 1 LINE 84 31 PAGE UM UNSP SEP. 13, 1979 02:00:26 0 THIS IS PASCAL TECHNICAL MEMO 5.2: "PASS 2 - SEMANTIC ANALYSIS AND GENERATION OF SYMBOLIC TRIPLES," A 50-PAGE DESCRIPTION OF PASS 2 AND THE TRIPLES USED BY PASS 3. 00783/001A PASCAL/8000 OS/JCL O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.JCL... 4.3T2 232 PASCAL/8000.OS/JCL..001 1 LINE 80 10 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:12:25 0 THIS IS THE AUSTRIALIAN ATOMIC ENERGY COMMISSION PASCAL/8000 COMPILER, WHICH HAS BEEN MODIFIED TO RUN IN MTS. SUBCOMPONENTS 783/1 THROUGH 783/10 ARE THE COMPONENTS OF THE OS VERSION; 783/11 THROUGH 783/21 ARE COMPONENTS OF THE MTS VERSION. COMPONENT 685/11 IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES TO ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM. THIS SUBCOMPONENT CONTAINS OS JCL AND COMMENTS. 00783/002A PASCAL/8000 OS/LINK SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.LINK 4.3T2 233 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00783/003A PASCAL/8000 OS/ASM SA O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ASM 4.3T2 234 PASCAL/8000.OS/ASM.SA.003 1 LINE 80 172 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:15:18 0 OS RUNTIME SUPPORT. 00783/004A PASCAL/8000 OS/OBJECT OL O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.OBJECT 4.3T2 235 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. 00783/005A PASCAL/8000 OS/CMPGO SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMPGO 4.3T2 236 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. 00783/006A PASCAL/8000 OS/CMP1 OC O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP1 4.3T2 237 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. 00783/007A PASCAL/8000 OS/CMP2 OC O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.CMP2 4.3T2 238 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. 00783/008A PASCAL/8000 OS/ERRORS M S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.ERRORS 4.3T2 239 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 OS COMPILERS (783/2 AND 783/5). 00783/009A PASCAL/8000 EDITOR SW O S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.EDITOR 4.3T2 240 PASCAL/8000.EDITOR.SW.009 1 LINE 72 4 PAGE RPI ABDALI UNSP JUNE 08, 1979 00:17:43 0 AN UPDATING PROGRAM. 00783/010A PASCAL/8000 OS/MANUAL P S1210 PASDIS 'PASCAL DIST' FSNAME=AAEC.MANUAL 4.3T2 241 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. 00783/011A PASCAL/8000 COMMENTS P S1210 PASDIS 'PASCAL DIST' FSNAME=8000.COMMENTS 4.3T2 242 PASCAL/8000.COMMENTS.P.011 1 LINE 68 1 PAGE RPI ABDALI UNSP FEB. 10, 1980 17:48:32 0 THIS IS A (VERY BRIEF) DESCRIPTION OF THE AUSTRALIAN ATOMIC ENERGY COMMISSION PASCAL/8000 COMPILER, AND THE MTS VERSION THEREOF. SEE ALSO COMP 783/12. 00783/012A PASCAL/8000 INSTALL.INFO P S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.INSTALL.INFO 4.3T2 243 PASCAL/8000.INSTALL.INFO.P.012 1 LINE 74 5 PAGE RPI ABDALI UNSP AUG. 16, 1979 17:22:33 0 A DESCRIPTION AND INSTALLATION INSTRUCTIONS FOR THE MTS VERSION OF PASCAL/8000. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00783/013A PASCAL/8000 COMPILER SW O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.PAS 4.3T2 244 PASCAL/8000.COMPILER.SW.013 1 LINE 111 93 PAGE RPI ABDALI UNSP JAN. 13, 1980 22:42:34 0 MTS VERSION OF THE PASCAL/8000 COMPILER. 00783/014C PASCAL/8000 COMPILER UC O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.COMPILER.CDU 4.3T2 245 PASCAL/8000.COMPILER.UC.014 1 LINE 79 3 PAGE RPI ABDALI UNSP FEB. 25, 1980 09:54:06 0 AN UPDATE DECK FOR LOCAL CHANGES. ADDS A CALL TO SNOOP IN UNSP:LIBRARY (685/4) TO RECORD USAGE STATISTICS IN THE FILE UNSP:STATS (IF IT EXISTS). COMPILE WITH PAR=;C=1024 AND T=15 (ON AN AMDAHL V/7). 00783/015A PASCAL/8000 COMPILER OC O UNSP:PAS.8000 4.3T2 246 PASCAL/8000.COMPILER.OC.015 1 LINE 32767 33 PAGE RPI ABDALI UNSP APR. 06, 1980 13:57:03 UNSP:PAS.8000 0 CONTAINS A $CONTINUE WITH UNSP:PAS.8000.RUN (783/18) RECORD. 00783/016A PASCAL/8000 RUNMACLIB SM O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNMACLIB 4.3T2 247 PASCAL/8000.RUNMACLIB.SM.016 1 LINE 73 3 PAGE RPI ABDALI UNSP MAR. 09, 1979 22:10:53 00783/017A PASCAL/8000 RUNTIME SA O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.RUNTIME.ASM 4.3T2 248 PASCAL/8000.RUNTIME.SA.017 1 LINE 73 47 PAGE RPI ABDALI UNSP SEP. 08, 1979 20:04:25 0 THE RUNTIME SUPPORT. ASSEMBLE WITH PAR=BATCH. USES THE 783/16 MACRO LIBRARY. 00783/018A PASCAL/8000 RUNTIME OC O UNSP:PAS.8000.RUN 4.3T2 249 PASCAL/8000.RUNTIME.OC.018 1 LINE 4484 6 PAGE RPI ABDALI UNSP APR. 06, 1980 13:57:28 UNSP:PAS.8000.RUN 0 Referenced by comments of: 783/15 00783/019A PASCAL/8000 ERROR MSGS M O UNSP:PAS.8000.ERR 4.3T2 250 PASCAL/8000.ERROR_MSGS.M.019 1 LINE 75 3 PAGE RPI ABDALI UNSP APR. 06, 1980 13:57:31 UNSP:PAS.8000.ERR 0 ERROR MESSAGES USED BY THE 783/14 COMPILER. 00783/020A PASCAL/8000 MANUAL P O S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.PASCALMANUAL 4.3T2 251 PASCAL/8000.MANUAL.P.020 1 LINE 78 52 PAGE RPI ABDALI UNSP SEP. 08, 1979 19:57:36 0 USER LEVEL DESCRIPTION OF THE PASCAL/8000 SYSTEM AND HOW TO USE IT. 00783/021A PASCAL/8000 TEST SW G S1210 PASDIS 'PASCAL DIST' FSNAME=RPI.TEST 4.3T2 252 PASCAL/8000.TEST.SW.021 1 LINE 89 9 PAGE RPI ABDALI UNSP SEP. 08, 1979 20:06:13 0 SOURCE FILE CONTAINING PASCAL PROGRAMS AND MTS COMMANDS TO TEST THE COMPILER. 00784/001C CRLFASCEBC SW G S0684 UNSP FSNAME=CRLFASCEBC.PAS 4.3T2 253 CRLFASCEBC..SW.001 1 LINE 64 1 PAGE UM UNSP FEB. 14, 1980 16:04:59 0 THIS PROGRAM CONVERTS STREAM-ORIENTED ASCII FILES WITH EMBEDDED CARRIAGE CONTROL TO RECORD-ORIENTED EBCDIC FILES WITH CARRIAGE CONTROL CHARACTERS 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 IN COLUMN 1. THE ASCII CHARACTERS , , AND ARE DELETED AND APPROPRIATE CARRIAGE CONTROL CHARACTERS ARE ADDED. COMPONENT 784/4 CONTAINS A WRITEUP. 00784/002C CRLFASCEBC SUBROUTINE SA G S0684 UNSP FSNAME=CRLFASCEBC.ASM 4.3T2 254 CRLFASCEBC.SUBROUTINE.SA.002 1 LINE 62 1 PAGE UM UNSP FEB. 14, 1980 16:05:51 0 SUBROUTINE CALLED FROM 784/1 TO DO THE ACTUAL TRANSLATION. 00784/003C CRLFASCEBC OC G UNSP:CRLFASCEBC 4.3T2 255 CRLFASCEBC..OC.003 1 LINE 1358 2 PAGE UM UNSP APR. 06, 1980 13:57:45 UNSP:CRLFASCEBC 0 OBJECT OF 784/1 AND 784/2. CONTAINS A $CONTINUE WITH UNSP:LIBRARY (685/4) AND A $CONTINUE WITH UNSP:PAS.SB.RUN (782/55) RECORD. 00784/004C CRLFASCEBC WRITEUP P UNSP:CRLFASCEBC.W 4.3T2 256 CRLFASCEBC.WRITEUP.P.004 1 LINE 71 1 PAGE UM UNSP APR. 06, 1980 13:57:47 00785/001C SOUNDEX SF G S0684 UNSP FSNAME=SOUNDEX.FTN 4.3T2 257 SOUNDEX..SF.001 1 LINE 68 1 PAGE UM UNSP FEB. 14, 1980 16:03:28 0 THE SOUNDEX SYSTEM IS BASED ON AN ALGORITHM WHICH ENCODES NAMES INTO A FOUR-CHARACTER CODE SO THAT SIMILAR SOUNDING NAMES ARE ENCODED INTO SIMILAR CODES. IT IS USEFUL WHEN EXACT SPELLING OF NAMES IS NOT KNOWN, FOR EXAMPLE, IN AIRLINE RESERVATION SYSTEMS. THIS SUBCOMPONENT CONTAINS A PROGRAM TO READ A LIST OF NAMES AND ENCODE THEM. 00785/002C SOUNDEX OC G UNSP:SOUNDEX 4.3T2 258 SOUNDEX..OC.002 1 LINE 730 1 PAGE UM UNSP APR. 06, 1980 13:57:52 UNSP:SOUNDEX 0 OBJECT OF 785/1. CONTAINS A $CONTINUE WITH UNSP:LIBRARY (685/4) RECORD. 00785/003C SOUNDEX SUBROUTINE SA G S0684 UNSP FSNAME=SOUNDEX.ASM 4.3T2 259 SOUNDEX.SUBROUTINE.SA.003 1 LINE 72 2 PAGE UM UNSP FEB. 14, 1980 16:02:39 0 SUBROUTINE TO ENCODE NAMES USING THE SOUNDEX ALGORITHM. OBJECT IS IN UNSP:LIBRARY (685/4). 00785/004C SOUNDEX WRITEUP P UNSP:SOUNDEX.W 4.3T2 260 SOUNDEX.WRITEUP.P.004 1 LINE 70 1 PAGE UM UNSP APR. 06, 1980 13:57:56 00786 C CONSTANTS D UNSP:CONSTANTS 4.3T2 261 CONSTANTS..D. 1 LINE 126 2 PAGE UM UNSP APR. 06, 1980 13:57:59 0 A LIST OF COMMONLY SEEN CONSTANTS, EACH CONVERTED IN VARIOUS WAYS. 00787/001A UNIT CHECK ROUTINES MACROS SM G COPY:UC.MACROS 4.3T2 262 UNIT_CHECK_ROUTINES.MACRO.SM.001 1 LINE 72 3 PAGE UM HELFFRICH APR. 06, 1980 13:58:01 0 COMPONENT 787 IS A NEW COMPONENT, WHICH IS A COMBINATION OF COMPONENTS 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 WHICH WERE ALREADY A PART OF THE DRIVER FILE: COMPONENTS 603 AND 482/1 AND 482/2. THIS SUBCOMPONENT IS THE UNIT CHECK ROUTINES MACRO LIBRARY. 0 Referenced by comments of: 621/4, 655/2, 682/22, 724/1, 787/3, 787/5, 1058/4, 1058/7, 1058/9, 1058/10, 1058/11, 1058/13 00787/002A UNIT CHECK ROUTINES DESIGN PAPER WT W170:PROTO.PAPER 4.3T2 263 UNIT_CHECK_ROUTINES.DESIG.WT.002 1 LINE 140 7 PAGE UM HELFFRICH APR. 06, 1980 13:58:03 0 ARCHITECTURAL DESCRIPTION OF UNIT CHECK ROUTINE INTERFACE AND CHARACTERISTICS. 00787/003A UNIT CHECK ROUTINES 3330 COMPAT SA G FILE:UCDISK(1000) 4.3T2 264 UNIT_CHECK_ROUTINES.3330.SA.003 1 LINE 72 16 PAGE UM HELFFRICH APR. 06, 1980 13:58:06 FILE:UCDISK 0 SUBTASKING MONITOR (1058) COMPATIBLE UNIT CHECK ROUTINES FOR 3330, 3350, 2301, AND 2305 DEVICES. COPIES COPY:UC.MACROS (787/1) AND COPY:CMDAREADSECT (531/18). ********************************************************************************* D4.3 VERSION: THIS IS A COMPLETELY NEW VERSION OF UC3330. ********************************************************************************* 00787/004A UNIT CHECK ROUTINES 3330 COMPAT OC G # RESIDENT SYSTEM (SEE COMP. 468/1) UM HELFFRICH 00787/005A UNIT CHECK ROUTINES FRONT-END SA G FILE:UC3330(1000) 4.3T2 265 UNIT_CHECK_ROUTINES.FRONT.SA.005 1 LINE 72 5 PAGE UM HELFFRICH APR. 06, 1980 13:58:13 FILE:UC3330 0 FRONT-END TO NEW UC3330 ROUTINES TO MAKE THEM COMPATIBLE WITH THE OLD VERSION. COPIES COPY:UC.MACROS (787/1). 00787/006A UNIT CHECK ROUTINES FRONT-END OC G # RESIDENT SYSTEM (SEE COMP. 468/1) UM HELFFRICH 00787/007A UNIT CHECK ROUTINES DASDUC SA G FILE:DASDUC(1000) 4.3T2 266 UNIT_CHECK_ROUTINES.DASDU.SA.007 1 LINE 72 9 PAGE UM HELFFRICH APR. 06, 1980 13:58:16 0 2311/2314/2321/2301 UNIT CHECK ROUTINES. ***************************************************************************** D4.3 CHANGES: FIXED BUG WHICH WOULD CAUSE PROGRAM INTERRUPT IF A CSW LEFT-HALF OF ZERO WERE ENCOUNTERED. ***************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00787/008A UNIT CHECK ROUTINES DASDUC OC G FILE:DASDUC(1,999) 4.3T2 267 UNIT_CHECK_ROUTINES.DASDU.OC.008 1 LINE 80 3 PAGE UM HELFFRICH APR. 06, 1980 13:58:18 FILE:DASDUC 00787/009C UNIT CHECK ROUTINES 3330 TESTER SA O FILE:UCDISK.TEST(1000) 4.3T2 268 UNIT_CHECK_ROUTINES.3330.SA.009 1 LINE 72 3 PAGE UM HELFFRICH APR. 06, 1980 13:58:21 0 TEST PROGRAM TO DEBUG NEW VERSIONS OF 3330 COMPATIBLE UNIT CHECK ROUTINES. ASSEMBLE USING COPY:CC.MACROS (1054/3). COPIES COPY:CMDAREADSECT (531/18). 00787/010C UNIT CHECK ROUTINES 3330 TESTER OC O FILE:UCDISK.TEST(1,998) 4.3T2 269 UNIT_CHECK_ROUTINES.3330.OC.010 1 LINE 80 4 PAGE UM HELFFRICH APR. 06, 1980 13:58:24 00787/011C UNIT CHECK ROUTINES UC3330 TESTER SA O FILE:UC3330.TEST(1000) 4.3T2 270 UNIT_CHECK_ROUTINES.UC333.SA.011 1 LINE 72 3 PAGE UM HELFFRICH APR. 06, 1980 13:58:26 0 TEST PROGRAM TO DEBUG NEW VERSIONS OF UC3330. ASSEMBLE USING COPY:CC.MACROS (1054/3) AND COPY:MISC.MACROS (728). COPIES COPY:CMDAREADSECT (531/18). 00787/012C UNIT CHECK ROUTINES UC3330 TESTER OC O FILE:UC3330.TEST(1,998) 4.3T2 271 UNIT_CHECK_ROUTINES.UC333.OC.012 1 LINE 80 4 PAGE UM HELFFRICH APR. 06, 1980 13:58:29 00788/001C DUMMY CLS SOURCE SA G MTS:CLSDUMMY.S 4.3T2 272 DUMMY_CLS.SOURCE.SA.001 1 LINE 55 1 PAGE UM OGDEN APR. 06, 1980 13:58:32 MTS:CLSDUMMY.S 0 THIS IS A SIMPLE CLS TO PRINT THE FOLLOWING MESSAGE FOR UNIMPLEMENTED COMMANDS: "THIS COMMAND IS NOT YET IMPLEMENTED" 00788/002C DUMMY CLS *CLSNEW OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSNEW 0 FOR TESTING NEW CLS'S. 00788/003C DUMMY CLS *CLSNEW2 OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSNEW2 0 FOR TESTING NEW CLS'S. 00788/004C DUMMY CLS *CLSNEW3 OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSNEW3 0 FOR TESTING NEW CLS'S. 00788/005C DUMMY CLS *CLSLOG OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSLOG 0 THIS WILL BE THE $LOG COMMAND FOR FDNAME LOGGING. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 00788/006C DUMMY CLS *CLSMSG OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSMSG 0 THIS WILL BE THE MESSAGE CLS. 00788/007C DUMMY CLS *CLSPMF OC G # MTS:TST.CLSDUMMY UM OGDEN *CLSPMF 0 THIS WILL BE THE $#PMF (PROGRAM MANAGEMENT FACILITY) CLS. THE # IS JUST UNTIL WE THINK OF A BETTER NAME. 00789/001C SHUTDOWN MESSAGE *SDM C *SDM 4.3T2 273 SHUTDOWN_MESSAGE.*SDM.C.001 1 LINE 63 1 PAGE UM OGDEN APR. 06, 1980 13:58:34 *SDM 0 OPERATOR FILE TO PUT IN SHUTDOWN MESSAGE FOR UM DATA CONCENTRATORS AND MERIT COMPUTER NETWORK. 00789/002C SHUTDOWN MESSAGE SYS:SDM SG G S0683 OGDEN FSNAME=SDM.S 4.3T2 274 SHUTDOWN_MESSAGE.SYS:SDM.SG.002 1 LINE 77 1 PAGE UM OGDEN DEC. 21, 1979 01:39:48 0 PROGRAM TO READ A SHUTDOWN MESSAGE FROM THE OPERATORS' CONSOLE AND PLACE IT IN THE PDP-11 DATA CONCENTRATORS. 00789/003C SHUTDOWN MESSAGE SYS:SDM OC G SYS:SDM(1,999) 4.3T2 275 SHUTDOWN_MESSAGE.SYS:SDM.OC.003 1 LINE 1526 2 PAGE UM OGDEN APR. 06, 1980 13:58:39 SYS:SDM 00789/004C SHUTDOWN MESSAGE SYS:MSDM SG G S0683 OGDEN FSNAME=MSDM.S 4.3T2 276 SHUTDOWN_MESSAGE.SYS:MSDM.SG.004 1 LINE 77 1 PAGE UM OGDEN DEC. 21, 1979 01:39:51 0 PROGRAM TO READ A SHUTDOWN MESSAGE FROM THE OPERATORS' CONSOLE AND TO PLACE IT IN THE MERIT COMPUTER NETWORK PDP-11. 00789/005C SHUTDOWN MESSAGE SYS:MSDM OC G SYS:MSDM(1,999) 4.3T2 277 SHUTDOWN_MESSAGE.SYS:MSDM.OC.005 1 LINE 80 3 PAGE UM OGDEN APR. 06, 1980 13:58:47 00790/001C VAMX CONVERSION DESCRIPTION WF FILE:CONVERTING 4.3T2 278 VAMX_CONVERSION.DESCRIPTI.WF.001 1 LINE 76 3 PAGE UM HELFFRICH APR. 06, 1980 13:58:49 FILE:CONVERTING 0 WRITEUP DESCRIBING PROCEDURE TO BE FOLLOWED TO CONVERT VAM2 OR OLD-STYLE VAMX PACKS TO THE NEW VAMX FORMAT. THIS SHOULD BE LOOKED AT BEFORE ATTEMPTING TO USE THE CONVERSION PROGRAMS. 00790/002C VAMX CONVERSION PAT/DSCB CONV SA O FILE:CONVV2VX.AS 4.3T2 279 VAMX_CONVERSION.PAT/DSCB.SA.002 1 LINE 79 5 PAGE UM HELFFRICH APR. 06, 1980 13:58:51 FILE:CONVV2VX.AS 0 THIS IS THE SOURCE (ADAPTED FROM 790/4) TO CONVERT OLD-STYLE VAMX OR VAM2 TO NEW STYLE VAMX FORMAT. SEE 790/1 FOR FURTHER DETAILS. ASSEMBLE USING COPY:FILE.MACROS (482/33) AND COPY:MISC.MACROS (728). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 WARNING: THIS PROGRAM HAS NEVER BEEN USED TO COMPLETELY CONVERT AN OLD-STYLE VAMX PACK OR A VAM2 PACK TO A NEW-STYLE PACK. 00790/003C VAMX CONVERSION PAT/DSCB CONV OC O FILE:CONVV2VX 4.3T2 280 VAMX_CONVERSION.PAT/DSCB.OC.003 1 LINE 80 4 PAGE UM HELFFRICH APR. 06, 1980 13:58:54 FILE:CONVV2VX 00790/004C VAMX CONVERSION PAT/DSCB CONV SA G FILE:CONVV2VX.ORI 4.3T2 281 VAMX_CONVERSION.PAT/DSCB.SA.004 1 LINE 79 5 PAGE UM HELFFRICH APR. 06, 1980 13:58:57 0 SOURCE FOR THE VERSION OF THE PROGRAM USED BY UM TO CONVERT FROM V2 TO VX FORMAT. 790/2 WAS ADAPTED FROM THIS PROGRAM. SEE 790/1 FOR DETAILS. ASSEMBLE USING COPY:FILE.MACROS (482/33) AND COPY:FILE.MISC.MACROS (728). 00790/005C VAMX CONVERSION CATALOG CONV SA O FILE:CONV.CAT(1000) 4.3T2 282 VAMX_CONVERSION.CATALOG_C.SA.005 1 LINE 72 10 PAGE UM HELFFRICH APR. 06, 1980 13:59:00 FILE:CONV.CAT 0 THIS IS THE SOURCE (ADAPTED FROM 790/7) TO CONVERT OLD-STYLE VAMX OR VAM2 TO NEW STYLE VAMX FORMAT. SEE 790/1 FOR FURTHER DETAILS. ASSEMBLE USING COPY:FILE.MACROS (482/33). WARNING: THIS PROGRAM HAS NEVER BEEN USED TO COMPLETELY CONVERT AN OLD-STYLE VAMX PACK OR A VAM2 PACK TO A NEW-STYLE PACK. 00790/006C VAMX CONVERSION CATALOG CONV OC O FILE:CONV.CAT(1,999) 4.3T2 283 VAMX_CONVERSION.CATALOG_C.OC.006 1 LINE 80 4 PAGE UM HELFFRICH APR. 06, 1980 13:59:02 00790/007C VAMX CONVERSION CATALOG CONV SA G FILE:CONV.CAT.ORIG(1000) 4.3T2 284 VAMX_CONVERSION.CATALOG_C.SA.007 1 LINE 72 10 PAGE UM HELFFRICH APR. 06, 1980 13:59:05 0 SOURCE FOR THE VERSION OF THE PROGRAM USED BY UM TO CONVERT FROM V2 TO VX FORMAT. 790/5 WAS ADAPTED FROM THIS PROGRAM. SEE 790/1 FOR DETAILS. ASSEMBLE USING COPY:FILE.MACROS (482/33). 00791/001C DEFAULT SA G ALGW:DEFAULT.SA 4.3T2 285 DEFAULT..SA.001 1 LINE 96 3 PAGE UM BODWIN APR. 06, 1980 13:59:08 0 ROUTINES PAGSLFT AND TIMELFT, WHICH RETURN THE MTS PAGE AND TIME LIMITS (THE MINIMUM OF LOCAL AND GLOBAL) OR 0 IF NO LIMIT IS IN EFFECT. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 528/2, 528/36 00791/002C DEFAULT OC G ALGW:DEFAULT.OA 4.3T2 286 DEFAULT..OC.002 1 LINE 80 1 PAGE UM BODWIN APR. 06, 1980 13:59:10 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. ************************************************************************* 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 * 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. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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). 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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#. 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 OTHERWISE GARBLE INTERPRETATION OF, BREAK POINTS SET AT LINE NUMBERS WITHIN THAT RANGE. ************************************************************************** 01002/001A FIX USER_OBJECT OC G NEW:FIO 4.3T2 287 FIX.USER_OBJECT.OC.001 1 LINE 32767 21 PAGE UBC TIFFANY APR. 06, 1980 13:59:13 0 This is the unlinked object file containing SYM records. 96525 This file should not be used for the shared VM load as it does not include the necessary low core symbol table nor the COM record for PISTLE. Other components required include: 1) SIOC (C 526) number conversions 2) EFL/FIX interface routines (C 525/51 - 52) 3) PRDSCT (C 1006/4) LINKed to to symbolically dump FIX PSECT ------------------- MAY 1979 ( UBC COMMENTS) --------------- This is VERSION 1.9 of FIX. This distribution does NOT include WSU's extended precision updates. Unfortunately nobody brought this back from the Workshop (probably just as well as time to install and test might have delayed the whole thing.) This version sent with the following GLOBAL symbols set: &ID = 'ETC.' &SEP = ':' &FILEPFX = 'NEW.' We had hoped that this would be our official version, but it isn't (yet). It has been our test version since May 13 and is scheduled to become permanent on Aug. 1, 1979. **************************************************************************** THIS IS THE UM VERSION OF 1002/1. CONTAINS A REP CARD. **************************************************************************** 0 Referenced by comments of: 1000/48, 3023/9 01002/002A FIX SHARED_OBJECT OE G SEG2:FIX 4.3T2 288 FIX.SHARED_OBJECT.OE.002 1 LINE 32767 50 PAGE UBC STEVENS TIFFANY APR. 06, 1980 13:59:15 SEG2:FIX 0 This is the linkeditted version containing all necessary 96524 items for inclusion as the resident version. ------------------- May 1979 --------------- **************************************************************************** THIS IS THE UM VERSION OF 1002/2. CONTAINS A REP CARD. **************************************************************************** 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01002/003A FIX MESSAGE M G ETC:FIX.MESSAGES 4.3T2 289 FIX.MESSAGE.M.003 1 LINE 190 6 PAGE UBC STEVENS TIFFANY APR. 06, 1980 13:59:19 ETC:FIX.MESSAGES 0 This is the message file for all FIX error messages. The 96523 name of this file is determined by the setting of items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.MESSAGES. This is an indexed file and must be restored @I. ------------------- May 1979 --------------- Some of the messages have been changed to upper/lower case. This will continue as time permits. **************************************************************************** THIS IS THE UM VERSION OF 1002/3. **************************************************************************** 01002/004A FIX EXPLAIN D G ETC:FIX.EXPLAIN 4.3T2 290 FIX.EXPLAIN.D.004 1 LINE 70 8 PAGE UBC STEVENS TIFFANY APR. 06, 1980 13:59:21 ETC:FIX.EXPLAIN 0 This file contains the text for the EXPLAIN command. 96522 The name of this file is determined by the setting of items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.EXPLAIN. This is an indexed file and must be restored @I. ------------------- May 1979 --------------- **************************************************************************** THIS IS THE UM VERSION OF 1002/4. **************************************************************************** 01002/005A FIX FIX_PSECT SA G ETC:FIX.FIODSCT 4.3T2 291 FIX.FIX_PSECT.SA.005 1 LINE 72 11 PAGE UBC STEVENS TIFFANY APR. 06, 1980 13:59:23 ETC:FIX.FIODSCT 0 The main FIX PSECT. Required as a separate file for system 96521 dumps for mnemonic dumping via PRDSCT. The name of this file is determined by the setting of items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.FIODSCT. ------------------- May 1979 --------------- 01002/006A FIX UNIT_PSECT SA G ETC:FIX.UNITDSCT 4.3T2 292 FIX.UNIT_PSECT.SA.006 1 LINE 72 3 PAGE UBC STEVENS TIFFANY APR. 06, 1980 13:59:26 ETC:FIX.UNITDSCT 0 The FIX unit dsect. Required as a separate file for system 96520 dumps for mnemonic dumping via PRDSCT. The name of this file is determined by the setting of items in the GLOBALS copy section: FDNAME=&ID.&SEP.&FILEPFX.UNITDSCT. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 ------------------- May 1979 --------------- 01002/007A FIX NEWS SA G S0701 RD16T1 VLO FSNAME=FIX.NEWS.SA.007(1) 527 4.3T2 293 FIX.NEWS.SA.007 1 LINE 63 2 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:45:37 0 The UBC news file regarding changes in the FORTRAN status. 96519 ------------------- May 1979 --------------- 01002/008A FIX DOCUMENTATION WF B S0701 RD16T1 VLO FSNAME=FIX.DOCUMENTATION.WF.008(1) 528 4.3T2 294 FIX.DOCUMENTATION.WF.008 1 LINE 168 70 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:45:38 0 The UBC document describing FIX. 96518 ------------------- May 1979 --------------- ***************************************************************************** Flash!!!! UBC (i.e., John Stevens) tells us that there is a problem with this source, which causes the output, 1002/9, to produce garbage. Their fix is: "add a !FTN macro (which just prints FORTRAN in upper case) to this file." This fix was not successful at UM. ***************************************************************************** 01002/009A FIX DOCUMENTATION PF B S0701 RD16T1 VLO FSNAME=FIX.DOCUMENTATION.PF.009(1) 529 4.3T2 295 FIX.DOCUMENTATION.PF.009 1 LINE 132 99 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:45:46 0 The print ready version of the UBC documentation. 96517 ------------------- May 1979 --------------- ***************************************************************************** To obtain a reasonable print file (rather than this "garbage"), add the !FTN macro to 1002/8. ***************************************************************************** 01002/010A FIX INTERNAL_DOC WF G S0701 RD16T1 VLO FSNAME=FIX.INTERNAL_DOC.WF.010(1) 530 4.3T2 296 FIX.INTERNAL_DOC.WF.010 1 LINE 80 30 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:45:59 0 The *FMT source for the internal documentation describing 96516 how FIX is put together. ------------------- May 1979 --------------- 01002/011A FIX INTERNAL_DOC PF G S0701 RD16T1 VLO FSNAME=FIX.INTERNAL_DOC.PF.011(1) 531 4.3T2 297 FIX.INTERNAL_DOC.PF.011 1 LINE 69 41 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:04 0 The print ready version of the internal documentation. 96515 1 SUN SEP 08/96 19:03:19 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 ------------------- May 1979 --------------- 01002/012A FIX MACRO_LIBRARY SM G W062:FIX.MACLIB 4.3T2 298 FIX.MACRO_LIBRARY.SM.012 1 LINE 80 16 PAGE UBC STEVENS TIFFANY APR. 06, 1980 14:00:50 0 The macro library to be used with all assemblies. Only two 96514 copy sections are not included here - FIODSCT and UNITDSCT C1002/5, 1002/6). These should be restored as separate files. ------------------- May 1979 --------------- The copy section GLOBALS has been updated for other installations as per their requests. We have not had any requests from RPI or Brazil in this regard and have not yet added these - hopefully we can add one as "standard" (perhaps UM?) and reduce the number of different types. A new macro ADRYTEST has been added to test the addressability of a given address. Used mainly by FIODEBUG. **************************************************************************** THIS IS THE UM VERSION OF 1002/12. **************************************************************************** 0 Referenced by comments of: 1002/13, 1002/14, 1002/15, 1002/16, 1002/17, 1002/18, 1002/19, 1002/20, 1002/21, 1002/22, 1002/23, 1002/25, 1002/27, 1002/28 01002/013A FIX INIT SA G S0701 RD16T1 VLO FSNAME=FIX.INIT.SA.013(1) 533 4.3T2 299 FIX.INIT.SA.013 1 LINE 87 6 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:17 0 The PSECT initializer routine. This routine contains the 96513 entry points FIXINIT, UINIT, and UINITI. The first call to FIXINIT causes the PSECT to be initialized (FIXINITI), including the default &ID as specified in the GLOBALS copy section. If your defaults are the same as UBC, except for &ID then just re-assemble this module and replace in the distributed object module. The PSECT may also be re-initialized via a call to FIXINITI. The code to acquire and initialize a unit dsect is also contained in this module (UINIT). The entry FIXEND is called to restore all necessary things before returning to the FORTRAN program. Currently this consists of restoring the floating point registers. Dependent on the setting of the assembly flag &DEBUG, this module also collects statistics of usage. This was useful during the growing stage of FIX. All source routines which STEVENS is responsible for will have untidied Assembler source lines except for new releases. The purpose of this is to leave an "audit" trail of changes made to the particular routine. This is my own "checkpoint" feature which few (if any) others use. If it bothers you, I will send only tidied source in the future. ------------------- May 1979 --------------- 1 SUN SEP 08/96 19:03:19 Page 492 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ******************************************************************** COPIES *CNFGINFODSECT (654). ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). ******************************************************************** 01002/014A FIX FTN_TRANSFER SA G S0701 RD16T1 VLO FSNAME=FIX.FTN_TRANSFER.SA.014(1) 534 4.3T2 300 FIX.FTN_TRANSFER.SA.014 1 LINE 81 17 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:18 0 This is the FIX version of IBM's IBCOM#. The initial transfer 96512 vector is included along with the code to perform unformatted I/O. The define file entry DIOCS# is also included in this module. Programs which store information in the area after the initial transfer vector (eg: SNOBOL) will not work with a resident version of FIX. They will have to run with a non-resident version of FIX. Space has been left in the transfer vector for those routines which use this area for various purposes. Two extra words have been added to the transfer vector: (1) An entry for IF (INTERACTIVE FORTRAN) (2) An entry for STOP from the error monitor. As well, the FTNX branch has been added to the table. This should be the first loaded routine. On program interrupts, ERRMON uses the address of IBCOM and end of ERRMON to determine if the interrupt occurred in FIX. Most FORTRAN I/O calls are made to this module via a transfer vector. Only calls not made are NAMELIST, DEBUG, FTNCMD. ------------------- May 1979 --------------- ******************************************************************** ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). ******************************************************************** 01002/015A FIX UNIT_CONTROL SA G S0701 RD16T1 VLO FSNAME=FIX.UNIT_CONTROL.SA.015(1) 535 4.3T2 301 FIX.UNIT_CONTROL.SA.015 1 LINE 83 21 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:21 0 This is the source code for the FIX version of IBM's FIOCS# known 96511 as the "UNIT CONTROL ROUTINES" (UCR). Calls to UCR are via direct calls rather than IBM's transfer vector method. All I/O to FORTRAN units is done through this module. Processing of $ENDFILE records is determined by the &ENDFILE global symbol in the GLOBALS copy section. ------------------- May 1979 --------------- The following changes have been made to the unit control routines since the last distribution: 1) Problems with indexed I/O and concatenated files have forced us to disallow this feature to users. All indexed I/O is now done with explicit and implicit concatenation turned off. 1 SUN SEP 08/96 19:03:19 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 2) A check has been made for no error message returned by GDINFO on an error return from READ or WRITE (TAPE DSR returns no message for RC=4 on write). **************************************************************************** COPIES *CDINFODSECT (594). ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). **************************************************************************** 0 Referenced by comments of: 1002/28 01002/016A FIX FORMAT_IO SA G S0701 RD16T1 VLO FSNAME=FIX.FORMAT_IO.SA.016(1) 536 4.3T2 302 FIX.FORMAT_IO.SA.016 1 LINE 72 32 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:46:23 0 The module for decoding compiled formats and performing the 96510 necessary conversions. ------------------- May 1979 --------------- **************************************************************************** ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). **************************************************************************** 01002/017A FIX VARIABLE_FMT SA G S0701 RD16T1 VLO FSNAME=FIX.VARIABLE_FMT.SA.017(1) 537 4.3T2 303 FIX.VARIABLE_FMT.SA.017 1 LINE 72 16 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:46:28 0 The module for decoding variable formats. List-directed I/O 96509 implemented here by checking for "*" as first character of the format. If true, then flag set to call LSTDIO instead of FINIT. The format is saved to be able to check for duplicate calls with the same format to save decoding time. Only one level save. ------------------- May 1979 --------------- **************************************************************************** ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). **************************************************************************** 01002/018A FIX MISCELLANEOUS SA G S0701 RD16T1 VLO FSNAME=FIX.MISCELLANEOUS.SA.018(1) 538 4.3T2 304 FIX.MISCELLANEOUS.SA.018 1 LINE 78 11 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:30 0 This source file contains a number of small miscellaneous 96508 routines. UM's original SETxxx routines are mostly implemented as dummy routines. IBM's SLITE/SLITET/DVCHK/OVFLOW are also included. FIX's space allocation/de-allocation routines are included here as well as the routine to decode the initial FORTRAN parameter list. ------------------- May 1979 --------------- **************************************************************************** ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). **************************************************************************** 0 Referenced by comments of: 1002/28 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01002/019A FIX LIST_DIRECTED SA G S0701 RD16T1 VLO FSNAME=FIX.LIST_DIRECTED.SA.019(1) 539 4.3T2 305 FIX.LIST_DIRECTED.SA.019 1 LINE 72 21 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:46:31 0 The module for implementing FTNH-X list-directed I/O. Control 96507 is passed to this routine from IBCOM# if a variable format which contains an "*" as the first character is detected. Provision is made to call this routine if using FTNX via the LDFIO# entry point (contained in IBCOM) for "true" list directed I/O. Both calls yield identical results. ------------------- May 1979 --------------- **************************************************************************** ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). **************************************************************************** 0 Referenced by comments of: 3023/9 01002/020A FIX NAMELIST SA G S0701 RD16T1 VLO FSNAME=FIX.NAMELIST.SA.020(1) 540 4.3T2 306 FIX.NAMELIST.SA.020 1 LINE 91 27 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:37 0 The module for implementing NAMELIST read and NAMELIST write 96506 statements. Two types of NAMELIST formats are supported - IBM fixed format and UBC's free format. 1) IBM format is assumed (input) if "&" found in col. 2 of the first record. 2) FREE format is assumed otherwise. Blanks and commas serve as delimiters in this case. Either format may be set via the appropriate SET command in FTNCMD. ------------------- May 1979 --------------- The following changes have been made to NAMELIST since the last distribution: 1) The number of subscripts is now checked for correctness. Two new error messages have been added for this purpose: too few subscripts specified, too many specified. 2) The output field width of real numbers has been increased to 16.8 from 16.7 to allow maximum values to be read in correctly. **************************************************************************** ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). **************************************************************************** 01002/021A FIX DEBUG SA G S0701 RD16T1 VLO FSNAME=FIX.DEBUG.SA.021(1) 541 4.3T2 307 FIX.DEBUG.SA.021 1 LINE 81 11 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:42 0 The module for the FORTRAN DEBUG package which has been 96505 implemented in much the same manner as IBM. Exceptions are: 1) When an output line must be saved then space is acquired 1 SUN SEP 08/96 19:03:19 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 for each output line rather than in chunks and cramming. 2) Undefined values are detected and printed as "U"'s. 3) SUBTRACE feature extended to print the name of the routine. 4) DISPLAY command uses a special entry point into NAMELIST to print the data. ------------------- May 1979 --------------- **************************************************************************** ASSEMBLE WITH THE FIX MACRO LIBRARY (1002/12). **************************************************************************** 01002/022A FIX LLXU_FORTRAN SA G S0701 RD16T1 VLO FSNAME=FIX.LLXU_FORTRAN.SA.022(1) 542 4.3T2 308 FIX.LLXU_FORTRAN.SA.022 1 LINE 91 13 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:46:43 0 The module for dynamic linking in FORTRAN written by UM. 96504 Depending on the setting of the merge flag in the loading call, FIX either obtains a fresh PSECT or uses the current one. Since UBC has not released the full calls to the system loader routines, only a subset of these calls are available to FORTRAN users. This option is controlled by the &LLXUX global symbol in copy section GLOBALS. ------------------- May 1979 --------------- The following changes have been made to LLXUF since the last distribution: 1) Conditional assembly statements have been corrected to yield proper code for those who use &LLXUX=1. 2) LOADF return codes are now defined via a global SETC array to allow each installation to have their own. Unfortunately, UBC had documented them differently than UM and in fact, differently than implemented. This led to 3 separate sets. ASSEMBLE WITH THE FIX MACROS (1002/12). *************************************************************************** D4.3 CHANGES (FROM UM): LLXU (354) CHANGED. *************************************************************************** 0 Referenced by comments of: 1002/28 01002/023A FIX ERROR_MONITOR SA G S0701 RD16T1 VLO FSNAME=FIX.ERROR_MONITOR.SA.023(1) 543 4.3T2 309 FIX.ERROR_MONITOR.SA.023 1 LINE 85 102 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:46:45 0 The main part of the FORTRAN I/O error monitor. The error 96503 monitor is called via FTNCMD (user call) or from within FIX (error call). It is called initially by FIXINIT to set up the program interrupt exit unless one has already been set up. The subroutine DEFAULTS is called to initialize the default setting of undefined units. Whenever an error occurs, the table contained in the ERROR_TABLE is referenced to determine the actions 1 SUN SEP 08/96 19:03:19 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 required by this error. This should be the last module in the object file so that the determination of whether an interrupt occurred within FIX. IBCOM# should be the first one. ------------------- May 1979 --------------- The following changes have been made to FIODEBUG since the last distribution: 1) The check for legal space has been made more rigorous so that programs running in an unprotected system don't think that segment 0 is addressable (eg. virtual machines). 2) SET SEMIFREE=ON/OFF has been added to allow turning off the default "free-format" input. 3) Abbreviations have been standardized. 4) FTNCMD multiple substitution bug fixed. 5) QUERY command returns FDname with trailing blank. 6) The system now prints MAP/GRs/FPRs instead of ERRMON. 7) A reasonable message is issued when intervening actions prevent prompting for replacement of an input line with an error. 8) A bug in the printing of a variable format in the debug output was fixed. ******************************************************************** COPIES *GDINFODSECT (594) AND *CNFGINFODSECT (654). ASSEMBLE WITH THE FIX MACROS (1002/12). ******************************************************************** 0 Referenced by comments of: 1002/28 01002/024A FIX UNIT_DEFAULTS SA G S0701 RD16T1 VLO FSNAME=FIX.UNIT_DEFAULTS.SA.024(1) 544 4.3T2 310 FIX.UNIT_DEFAULTS.SA.024 1 LINE 49 1 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:47:00 0 The subroutine to the error monitor to set unit defaults. 96502 The current status of this is to set the following defaults: unit 5 - *SOURCE* unit 6 - *SINK* ------------------- May 1979 --------------- 01002/025A FIX ERROR_TABLE SA G S0701 RD16T1 VLO FSNAME=FIX.ERROR_TABLE.SA.025(1) 545 4.3T2 311 FIX.ERROR_TABLE.SA.025 1 LINE 64 2 PAGE UBC BUCKLAND TIFFANY JUNE 29, 1979 14:47:01 0 The external error table, to allow adding/changing of errors 96501 without needing to re-assemble the whole error monitor. To change the action of one or more errors, make the appropriate change(s) to the error macro call in MACLIB and re-assemble this module. ------------------- May 1979 --------------- **************************************************************************** ASSEMBLE WITH THE FIX MACROS (1002/12). 1 SUN SEP 08/96 19:03:19 Page 497 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 **************************************************************************** 01002/026A FIX DUMP SA G S0850 FIXUM 'FIX-UM' FSNAME=DUMP.S 4.3T2 312 FIX.DUMP.SA.026 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/027A FIX LCS_SOURCE SA G S0701 RD16T1 VLO FSNAME=FIX.LCS_SOURCE.SA.027(1) 546 4.3T2 313 FIX.LCS_SOURCE.SA.027 1 LINE 84 1 PAGE UBC STEVENS TIFFANY JUNE 29, 1979 14:47:02 0 The source for generating the low core symbol table for all 96499 required FIX entry points. There is room at the end for an extra 12 entry points if required (patching purposes). ------------------- May 1979 --------------- **************************************************************************** ASSEMBLE WITH THE FIX MACROS (1002/12). **************************************************************************** 01002/028A FIX UM_UPDATES UC G W062:FIX.UP 4.3T2 314 FIX.UM_UPDATES.UC.028 1 LINE 68 4 PAGE UBC STEVENS TIFFANY APR. 06, 1980 14:03:29 0 THIS FILE CONTAINS UM'S UPDATES TO THE VARIOUS SUBCOMPONENTS OF UBC'S FIX AND THE FIX MACRO LIBRARY. CURRENT SUBCOMPONENTS THAT ARE UPDATED ARE: 1) MISCELLANEOUS (1002/18) 2) MACRO_LIBRARY (1002/12) 3) ERROR_MONITOR (1002/23) 4) UNIT_CONTROL (1002/15) 5) LLXU_FORTRAN (1002/22) 01003 TAPEAID # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL UTILITY PROGRAM FOR INTERACTIVE MANIPULATION OF TAPES. 01004 DSRMON # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DSR MONITOR PROGRAM FOR TESTING OUT DSR'S. 01005/001 FREAD SUBR FREAD# SA G 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 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 01007 ROBJ # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO REPLACE OBJECT MODULES BY NAME. 01008 PATCH # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO PATCH OBJECT MODULES FREE-FORMAT OR REP RECORD INPUT. 01009 RUN # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO EXECUTE PROGRAMS FROM A LIBRARY OF PROGRAMS, SO THAT USERS NEED TO MAINTAIN ONLY A SINGLE FILE OF PROGRAMS. THIS IN TURN DECREASES THE NUMBER OF FILES TO MAINTAIN AND REMEMBER. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01011 ALIST # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN ASSEMBLY/FORTRAN LIST PROGRAM. 01012/001A UNITS JOB PROGRAM SA G MTA:UNITS.S(1,1999) 4.3T2 315 UNITS.JOB_PROGRAM.SA.001 1 LINE 79 21 PAGE UBC BERRYMAN MTA APR. 06, 1980 14:03:30 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). 0 Referenced by comments of: 490/1, 1012/3 01012/002A 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 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. 01014 MARKIV # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A DATA MANAGEMENT REPORT GENERATION PROGRAM. 01015 ROTOF # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO REORDER LINES IN A SEQUENTIAL FILE AND TO REORDER FILES ON A TAPE. 01016 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 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). 1 SUN SEP 08/96 19:03:19 Page 500 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A FILE MOVE SA G FILE:FM.S 4.3T2 316 FILE_MOVE..SA.001 1 LINE 106 11 PAGE UBC HOGG HELFFRICH APR. 06, 1980 14:03:34 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). COPIES *CNFGINFODSECT (654). ****************************************************************************** D4.3 CHANGES: 1) CHANGED TO USE CNFGINFO TO LOCATE THE END OF SHARED VM RATHER THAN A CONSTANT. 2) CHANGED TO STRIP TRAILING QUESTION MARKS FROM THE SHARING INFORMATION RETURNED BY THE D4.3 VERSION OF GFINFO. ****************************************************************************** 0 Referenced by comments of: 461/21, 509/1, 682/7, 3024/36, 3024/39 01020/002A FILE MOVE OC G FILE:FM 4.3T2 317 FILE_MOVE..OC.002 1 LINE 80 6 PAGE UBC HOGG HELFFRICH APR. 06, 1980 14:03:38 FILE:FM 01021/001 IPL READER 4.2 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/7 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01021/002C IPL READER IPLBOOT UPD UC G MTS:IPLBOOT.S(*F,0) 4.3T2 318 IPL_READER.IPLBOOT_UPD.UC.002 1 LINE 72 3 PAGE UBC O'REILLY MTA APR. 06, 1980 14:03:40 0 UPDATE TO PRODUCE THE CURRENT VERSION OF IPLBOOT, BASED ON THE D4.2 SOURCE. 01021/003A IPL READER IPLBOOT OC G MTS:IPLBOOT.O 4.3T2 319 IPL_READER.IPLBOOT.OC.003 1 LINE 80 3 PAGE UBC O'REILLY MTA APR. 06, 1980 14:03:43 MTS.:IPLBOOT.O 01021/004 IPL READER 4.2 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/7 01021/005C IPL READER IPLREAD UPD UC G MTS:IPLREAD.S(*F,0) 4.3T2 320 IPL_READER.IPLREAD_UPD.UC.005 1 LINE 76 5 PAGE UBC O'REILLY MTA APR. 06, 1980 14:03:46 0 UPDATE TO PRODUCE THE CURRENT VERSION OF IPLREAD, BASED ON THE D4.2 SOURCE. 01021/006A IPL READER IPLREAD OC G MTS:IPLREAD.O 4.3T2 321 IPL_READER.IPLREAD.OC.006 1 LINE 80 9 PAGE UBC O'REILLY MTA APR. 06, 1980 14:03:55 MTS.:IPLREAD.O 01021/007 IPL READER 4.2 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/4), 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/10 01021/008C IPL READER IPLINIT UPD UC G MTS:IPLINIT.S(*F,0) 4.3T2 322 IPL_READER.IPLINIT_UPD.UC.008 1 LINE 72 6 PAGE UBC O'REILLY MTA APR. 06, 1980 14:03:58 0 UPDATE TO PRODUCE THE CURRENT VERSION OF IPLINIT, BASED ON THE D4.2 SOURCE. 01021/009A IPL READER IPLINIT OC G MTS:IPLINIT.O 4.3T2 323 IPL_READER.IPLINIT.OC.009 1 LINE 80 4 PAGE UBC O'REILLY MTA APR. 06, 1980 14:04:01 MTS.:IPLINIT.O 01021/010 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/7). 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01021/011 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/012A IPL READER WRITEUP WF MTS:IPLREAD.W 4.3T2 324 IPL_READER.WRITEUP.WF.012 1 LINE 71 6 PAGE UBC O'REILLY MTA APR. 06, 1980 14:04:04 MTS.:IPLREAD.W 0 DESCRIPTION OF IPL READER. 01023/001A MSG ROUTINE SA W267:MSG.S 4.3T2 325 MSG_ROUTINE..SA.001 1 LINE 80 59 PAGE UBC SAYLE EADIE APR. 06, 1980 14:04:06 0 SOURCE FOR MSG ROUTINE. THIS IS A REENTRANT GENERAL-PURPOSE MESSAGE ROUTINE WITH A VARIETY OF FEATURES. THE ROUTINE IS MAINLY DESIGNED TO BE USED WITH MACROS AND IS DESIGNED TO BE RESIDENT. CONSEQUENTLY, IT REFERENCES CMDSUB RATHER THAN CMD AND ZWRITEE RATHER THAN WRITE ETC. FOR NON-RESIDENT USE, ALL THAT MUST BE DONE IS TO CHANGE THESE REFERENCES TO THEIR EXTERNAL COUNTERPARTS. ASSEMBLE USING NEW:SYSMAC (225/2) AND COPY:CC.MACROS (1054/3). COPIES *LOADINFODSECT (001/4). ************************************************************************** D4.3 CHANGES: THIS IS A TOTALLY NEW IMPLEMENTATION OF THE MSG FACILITY. IT IS COMPATIBLE WITH THE OLD, AND CONTAINS MANY NEW FEATURES. ************************************************************************** 0 Referenced by comments of: 1/5, 354/5, 400/1, 553/5, 559/2, 642/23, 721/1, 721/2, 721/3, 721/4, 721/5, 721/6, 721/7, 721/8, 721/9, 721/11, 721/12, 721/19, 1019/2 01023/002A MSG ROUTINE OC # RESIDENT SYSTEM (SEE COMP 468/1) UBC SAYLE EADIE 01023/003C MSG ROUTINE PICTURE SA G W267:PIC.S(1) 4.3T2 326 MSG_ROUTINE.PICTURE.SA.003 1 LINE 72 7 PAGE UBC SAYLE EADIE APR. 06, 1980 14:04:12 0 "PICTURE" PROCESSING CSECT FOR MSG ROUTINE. ASSEMBLE USING NEW:SYSMAC (225/2) AND COPY:CC.MACROS (1054/3). 01023/004C MSG ROUTINE MACROS SM G W267:MSG.MACROS 4.3T2 327 MSG_ROUTINE.MACROS.SM.004 1 LINE 72 25 PAGE UBC SAYLE EADIE APR. 06, 1980 14:04:14 01023/005C MSG ROUTINE WRITEUP P G W267:MSG.W 4.3T2 328 MSG_ROUTINE.WRITEUP.P.005 1 LINE 70 17 PAGE UBC SAYLE EADIE APR. 06, 1980 14:04:18 0 WRITEUP FOR THE MSG ROUTINES. $COPY TO A TN PRINTER. 01024 UBC MACROS SM # (NOT DISTRIBUTED) D4T3 421 UBC_MACROS..SM. 1 LINE 73 10 PAGE UBC STEVENS JULY 29, 1977 00:14:36 0 UBC COMPUTING CENTRE STAFF MACRO LIBRARY. THIS COMPONENT IS NOT DISTRIBUTED BY UM. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 Referenced by comments of: 506/3 01025 LCS_PRINTER # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE WHICH ALLOWS ONE TO LIST THE CONTENTS OF VARIOUS LOW-CORE SYMBOL TABLES. 01026/001A GLOBAL SYSTEM PARS GLOBALDEFS SA G COPY:GLOBALDEFS 4.3T2 329 GLOBAL_SYSTEM_PARS.GLOBAL.SA.001 1 LINE 80 2 PAGE UM MTA APR. 06, 1980 14:04:21 COPY:GLOBALDEFS 0 CONTAINS GBL 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 &JTBLPOL POOL ENTRIES IN JOB TABLE &DTBLPOL POOL ENTRIES IN DEVICE TABLE &LFILENM LENGTH OF FILE NAMES &NDC NO DATA CELL &SPELC SPELLING CORRECTION &SPELCP SPELLING CORRECTION PROMPT &BRCPRNT BATCH RC PRINT &TRCPRNT TERM RC PRINT &BEBM DEFAULT BATCH EXEC BEGINS MSG &BETM DEFAULT BATCH EXEC TERM MSG &TEBM DEFAULT TERM EXEC BEGINS MSG &TETM DEFAULT TERM EXEC TERM MSG &INSTALL THE INSTALLATION'S SHARE CODE &SYSPROJ INITIAL SUBSTRINGS FOR THOSE PROJECTS THAT BELONG TO SYSTEM PROGRAMMERS. &IPLPROJ INITIAL SUBSTRINGS FOR THOSE PROJECTS FOR WHICH THE ACCOUNTING RECORD IN USE BIT CAN BE IGNORED. 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/002A GLOBAL SYSTEM PARS GLOBALSETS SA G COPY:GLOBALSETS 4.3T2 330 GLOBAL_SYSTEM_PARS.GLOBAL.SA.002 1 LINE 80 1 PAGE UM MTA APR. 06, 1980 14:04:23 COPY:GLOBALSETS 0 THIS FILE DEFINES VALUES FOR THE SYMBOLS IN GLOBALDEFS AS APPROPRIATE FOR THE UM AMDAHL 470 VERSION OF MTS. 0 Referenced by comments of: 4/1, 42/1, 45/1, 101/1, 116/1, 135/1, 387/1, 387/2, 387/3, 387/4, 387/5, 387/7, 387/8, 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 387/26, 387/29, 387/31, 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/4, 400/12, 400/18, 413/1, 464/1, 482/5, 482/7, 500/50, 507/2, 509/1, 513/1, 528/14, 528/36, 528/53, 531/1, 531/6, 531/13, 539/1, 540/1, 540/3, 540/8, 540/10, 540/18, 540/27, 545/16, 554/1, 554/3, 577/2, 577/4, 577/7, 578/1, 579/1, 600/1, 615/15, 615/17, 618/1, 621/2, 629/4, 634/1, 634/4, 635/1, 636/1, 637/1, 638/1, 639/1, 642/16, 647/1, 651/10, 682/22, 685/7, 693/1, 731/3, 732/1, 777/1, 1012/1, 1021/1, 1021/4, 1081/1, 1081/11, 1081/12, 1081/13, 1081/14, 1081/15, 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) 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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/001A PACK MAP MAIN PROGRAM SA G PM FILE:PM.S 4.3T2 331 PACK_MAP.MAIN_PROGRAM.SA.001 1 LINE 80 26 PAGE UBC O'REILLY HELFFRICH APR. 06, 1980 14:04:26 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 VTOCREAD (067/4). ASSEMBLE USING COPY:FILE.MACROS (482/33). SEE COMP 682/3 FOR A WRITEUP. ********************************************************************************* D4.3 VERSION: 1) UPDATED FOR VAMX SUPPORT. 2) SUBSTITUTED USAGE OF SORT2 SUBROUTINE (303/6) FOR ISORT. ********************************************************************************* 0 Referenced by comments of: 682/3 01030/002A PACK MAP OC G FILE:PM 4.3T2 332 PACK_MAP..OC.002 1 LINE 80 7 PAGE UBC O'REILLY HELFFRICH APR. 06, 1980 14:04:29 FILE:PM 0 OBJECT FOR PACKMAP, CONTAINS VTOCREAD OBJECT (067/3). 01031 FO # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE "FILE OPTIMIZER" PROGRAM, WHICH WAS WRITTEN TO OPTIMIZE THE AMOUNT OF FILE SPACE 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 USED BY A FILE. 01032/001A BCPL INSTALL_GUIDE P O S0651 UNE21 FSNAME=BCPL_UNE.INSTALL_GUIDE.W.001(1) 4.3T2 333 BCPL.INSTALL_GUIDE.P.001 1 LINE 79 1 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:38 0 THIS VERSION OF BCPL, WRITTEN AT UNE, IS DERIVED FROM A RECENT VERSION OF THE CAMBRIDGE COMPILER. THE LIBRARY HAS BEEN COMPLETELY REWRITTEN (ALMOST ENTIRELY IN BCPL), AND INCLUDES VARIOUS MTS-SPECIFIC FEATURES SUCH AS ACCESS TO LINE NUMBERS. THIS COMPILER CAN GENERATE AN INTERNAL SYMBOL TABLE, WHICH IS USED BY A LIBRARY POST-MORTEM ROUTINE TO GIVE SYMBOLIC DUMPS. VARIOUS UTILITIES ARE PROVIDED, SUCH AS A SOURCE RE-FORMATTER (TIDY, 1032/16), A CROSS-REFERENCE PROGRAM (1032/18) THAT HANDLES SCOPES CORRECTLY, AND AN INTERACTIVE DEBUGGING SYSTEM (1032/12). THE INSTALLATION GUIDE (THIS SUBCOMPONENT) TELLS HOW TO INSTALL AND RECOMPILE THE VARIOUS SUBCOMPONENTS OF THE SYSTEM. 01032/002A BCPL CHANGELOG P O S0651 UNE21 FSNAME=BCPL_UNE.CHANGELOG.P.018(1) 4.3T2 334 BCPL.CHANGELOG.P.002 1 LINE 74 1 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:20 0 A CHRONOLOGICAL LIST OF CHANGES TO THE UNE BCPL SYSTEM. (THIS IS ONE OF THE COMPONENTS SENT FROM UNE, AND DETAILS THE CHANGES THAT WERE MADE AT NEWCASTLE, NOT THE CHANGES MADE AT UM.) 01032/003C BCPL COMMENTS P S0684 UNSP FSNAME=BCPL.COMMENTS 4.3T2 335 BCPL.COMMENTS.P.003 1 LINE 66 1 PAGE UM UNSP DEC. 08, 1979 20:00:45 0 A BRIEF DESCRIPTION OF THE CHANGES BETWEEN UNE AND UM (MOSTLY FILENAMES). 01032/004C BCPL INSTALL C S0684 UNSP FSNAME=BCPL.INSTALL 4.3T2 336 BCPL.INSTALL.C.004 1 LINE 94 3 PAGE UM UNSP DEC. 08, 1979 20:00:49 0 THE COMMANDS USED TO INSTALL BCPL AT UM. 01032/005A BCPL COMPILER S O S0651 UNE21 FSNAME=BCPL_UNE.COMPILER.S.004(1) 4.3T2 337 BCPL.COMPILER.S.005 1 LINE 117 48 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:42 0 CONTAINS ALL THE COMPILER MODULES (WRITTEN IN BCPL), AND THEIR ASSOCIATED HEADER FILES, AS A 'PDS' WHERE LINES 1-99 CONTAIN THE MODULE NAME, AND THE CORRESPONDING LINE NUMBER RANGE FOR THE SOURCE. TO COMPILE, THE HEADER FILES MUST BE EXTRACTED INTO REAL MTS FILES, IN ORDER THAT THE 'GET' COMMANDS WILL WORK. 0 Referenced by comments of: 1032/14 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01032/006A BCPL COMPILER OC O UNSP:BCPL.COMPILER 4.3T2 338 BCPL.COMPILER.OC.006 1 LINE 9496 20 PAGE UNE HEAL UNSP APR. 06, 1980 14:07:45 UNSP:BCPL.COMPILER 0 OBJECT OF THE COMPILER - $CONTINUES WITH USNP:BCPL.LIBRARY (1032/7). 01032/007A BCPL LIBRARY S O S0651 UNE21 FSNAME=BCPL_UNE.LIBRARY.S.011(1) 4.3T2 339 BCPL.LIBRARY.S.007 1 LINE 124 48 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:02 0 SOURCE OF LIBRARY AS A 'PDS'. WRITTEN IN BCPL. 0 Referenced by comments of: 1032/6, 1032/8, 1032/10 01032/008C BCPL LIBRARY UC O S0684 UNSP FSNAME=BCPL.BCPLSYS 4.3T2 340 BCPL.LIBRARY.UC.008 1 LINE 62 1 PAGE UM UNSP DEC. 08, 1979 20:00:42 0 AN UPDATE TO SECTION BCPLSYS IN THE LIBRARY SOURCE (1032/7). USES GPSECT IN THE RESIDENT SYSTEM TO GET AROUND PROTECTION-INDUCED CHANGES IN SCANSTOR (ALSO IN THE RESIDENT SYSTEM). 01032/009A BCPL LIBRARY S O UNSP:BCPL.LIBHDR 4.3T2 341 BCPL.LIBRARY.S.009 1 LINE 57 2 PAGE UNE HEAL UNSP APR. 06, 1980 14:07:57 UNSP:BCPL.LIBHDR 0 HEADER FILE FOR LIBRARY, WRITTEN IN BCPL. 01032/010A BCPL LIBRARY S O UNSP:BCPL.STREAMH 4.3T2 342 BCPL.LIBRARY.S.010 1 LINE 90 2 PAGE UNE HEAL UNSP APR. 06, 1980 14:07:58 UNSP:BCPL.STREAMH 0 HEADER GIVING INTERNAL STRUCTURE OF BCPL STREAMS - NEEDED BY UNSP:BCPL.LIBRARY (1032/7) AND ADVANCED USERS ONLY. WRITTEN IN BCPL. 01032/011A BCPL LIBRARY OL O UNSP:BCPL.LIBRARY 4.3T2 343 BCPL.LIBRARY.OL.011 1 LINE 14056 12 PAGE UNE HEAL UNSP APR. 06, 1980 14:08:00 UNSP:BCPL.LIBRARY 0 BCPL LIBRARY, THE LINKEDITED OBJECT OF 1032/7, 1032/8, 1032/9, AND 1032/10. CONTAINS SECTIONS BCPLSYS, BCPLIO, BCPLRLIB, BCPLBLIB, BCPLFLIB, AND BCPLMISC. ALSO CONTAINS BCPLPM AND GLOBUSE, WHICH ARE USED BY THE DEBUGGER (1032/12), BUT FOR WHICH WE DID NOT RECEIVE SOURCE FROM UNE. 0 Referenced by comments of: 1032/13, 1032/17, 1032/19, 1032/21 01032/012A BCPL DEBUGGER S O S0651 UNE21 FSNAME=BCPL_UNE.DEBUGGER.S.006(1) 4.3T2 344 BCPL.DEBUGGER.S.012 1 LINE 91 19 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:51 0 SOURCE OF DEBUGGING SYSTEM, WRITTEN IN BCPL. 0 Referenced by comments of: 1032/1, 1032/11, 1032/14, 1032/21 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01032/013A BCPL DEBUGGER OE O UNSP:BCPL.DEBUG 4.3T2 345 BCPL.DEBUGGER.OE.013 1 LINE 14328 9 PAGE UNE HEAL UNSP APR. 06, 1980 14:08:07 UNSP:BCPL.DEBUG 0 WORKING OBJECT OF THE DEBUGGER. $CONTINUES WITH UNSP:BCPL.LIBRARY (1032/11). 01032/014A BCPL BCPLOPTS S O S0651 UNE21 FSNAME=BCPL_UNE.BCPLOPTS.S.019(1) 4.3T2 346 BCPL.BCPLOPTS.S.014 1 LINE 92 7 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:20 0 SET OF ROUTINES BORROWED FROM LEXICAL ANALYSER IN THE COMPILER (1032/5) FOR READING USER OPTIONS IN PROGRAMS. WRITTEN IN BCPL. USED BY THE DEBUGGER (1032/12). 01032/015A BCPL MACROS SM O S0651 UNE21 FSNAME=BCPL_UNE.MACROS.SM.010(1) 4.3T2 347 BCPL.MACROS.SM.015 1 LINE 80 13 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:00 0 MACRO LIBRARY FOR USE IN ASSEMBLING THE ASSEMBLER PARTS OF THE LIBRARY - I. E., BCPLSYS, BCPLFLIB, BCPLRLIB. 01032/016A BCPL TIDY S O S0651 UNE21 FSNAME=BCPL_UNE.TIDY.S.013(1) 4.3T2 348 BCPL.TIDY.S.016 1 LINE 100 21 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:12 0 SOURCE OF SOURCE RE-FORMATTER PROGRAM, TIDY. WRITTEN IN BCPL. 0 Referenced by comments of: 1032/21 01032/017A BCPL TIDY OE O UNSP:BCPL.TIDY 4.3T2 349 BCPL.TIDY.OE.017 1 LINE 6640 8 PAGE UNE HEAL UNSP APR. 06, 1980 14:08:24 UNSP:BCPL.TIDY 0 OBJECT OF 1032/16. $CONTINUES WITH UNSP:BCPL.LIBRARY (1032/11). 01032/018A BCPL XREFFER S O S0651 UNE21 FSNAME=BCPL_UNE.XREFFER.S.017(1) 4.3T2 350 BCPL.XREFFER.S.018 1 LINE 101 16 PAGE UNE HEAL UNSP AUG. 02, 1979 19:02:17 0 SOURCE FOR THE BCPL CROSS-REFERENCER. WRITTEN IN BCPL. 0 Referenced by comments of: 1032/1, 1032/21 01032/019A BCPL XREFFER OE O UNSP:BCPL.XREF 4.3T2 351 BCPL.XREFFER.OE.019 1 LINE 6488 6 PAGE UNE HEAL UNSP APR. 06, 1980 14:08:28 UNSP:BCPL.XREF 0 OBJECT OF THE BCPL CROSS-REFERENCER. $CONTINUES WITH UNCP:BCPL.LIBRARY (1032/11). 01032/020A BCPL MANUAL P O S0651 UNE21 FSNAME=BCPL_UNE.MANUAL.P.008(1) 4.3T2 352 BCPL.MANUAL.P.020 1 LINE 74 25 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:55 0 THIS IS A PRINT FILE CONTAINING THE BCPL MANUAL WRITTEN AT CAMBRIDGE, WHICH DESCRIBES BCPL WITH OS DEPENDENCIES. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01032/021A BCPL USERGUIDE WX O S0651 UNE21 FSNAME=BCPL_UNE.USERGUIDE.W.005(1) 4.3T2 353 BCPL.USERGUIDE.WX.021 1 LINE 111 12 PAGE UNE HEAL UNSP AUG. 02, 1979 19:01:49 0 TEXTFORM SOURCE OF A MANUAL ENTITLED 'HOW TO USE BCPL IN MTS.' THIS MANUAL IS A GUIDE TO THE USE OF BCPL IN MTS, AND MTS-SPECIFIC PARTS OF THE LIBRARY (1032/11). IT ALSO CONTAINS DOCUMENTATION FOR THE DEBUGGER (1032/12), XREF (1032/18), AND TIDY PROGRAMS (1032/16). THE TEXTFORM LAYOUT USED TO PRODUCE THIS AT UNE WAS NOT DISTRIBUTED, SO A PRINT FILE (1032/22) IS ALSO BEING INCLUDED. 01032/022A BCPL USERGUIDE P O UNSP:BCPL.W 4.3T2 354 BCPL.USERGUIDE.P.022 1 LINE 80 38 PAGE UNE HEAL UNSP APR. 06, 1980 14:08:41 0 A PRINT FILE FOR 1032/21. 0 Referenced by comments of: 1032/21 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. *********************************************************************** THERE ARE SEVERAL ROUTINES MISSING FROM COURSEWRITER (AS RECEIVED FROM UBC), AND HENCE, IT WILL NOT WORK AS CURRENTLY DISTRIBUTED. *********************************************************************** 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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 01034 MACEDIT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL PURPOSE ASSEMBLER UTILITY PROGRAM. 01035 LANGUAGE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE LANGUAGES DATA BASE FOR ALL LANGUAGES AVAILABLE AT UBC. 01036/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: 4200/1 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. 0 Referenced by comments of: 737/15 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. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 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. 01037 FORTRAN MESSAGE ROUTINE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A FORTRAN-CALLABLE MESSAGE ROUTINE. 01039 READPAGE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A DISK UTILITY TO READ ANY PAGE ON ANY VOLUME ANY NUMBER OF TIMES. 01040 DISK # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN UMMPS JOB TO LOCK A PUBLIC VOLUME SO THAT IT CAN BE MOVED TO ANOTHER DRIVER, OR POSSIBLY ANOTHER CONTROL UNIT. 01041 A RESOURCE MANAGER MACRO LIBRARY SM G COPY:RM.MACROS 4.3T2 355 RESOURCE_MANAGER.MACRO_LIBRA.SM. 1 LINE 73 22 PAGE UBC BERRYMAN MTA APR. 06, 1980 14:08:45 COPY:RM.MACROS 0 RESOURCE MANAGER AND SUBTASKING MONITOR MACRO LIBRARY. THESE MACROS WERE FORMERLY A PART OF COPY:RMGRMACLIB. 0 Referenced by comments of: 724/1, 769/1, 769/2, 769/3, 769/4, 769/5, 769/6, 769/9, 1054/5, 1058/3, 1058/4, 1058/5, 1058/6, 1058/7, 1058/8, 1058/9, 1058/10, 1058/11, 1058/12, 1067/1 01042/001A PLUS_470 COMPILER OE O NEW:PLUS 4.3T2 356 PLUS_470.COMPILER.OE.001 1 LINE 32767 76 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:08:48 NEW:PLUS 0 ******************************************************************* 99999 * P L U S * * copyright 1979 Alan Ballard and Paul Whaley * ******************************************************************* This is the current, complete, linkeditted version of the compiler. It refers to files ETC:PLUSMESSAGES (1042/3), NEW:PLUS.SOURCEL (1042/4) and ETC:PLUSLOG (the PLUS compiler statistics file, which is not distributed). See installation notes (1042/66) for details. ********************************************************************************** D4.3 CHANGES: 1 SUN SEP 08/96 19:03:19 Page 518 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS IS THE VERSION WHICH WAS REDISTRIBUTED ON RD4.2C. ********************************************************************************** 0 Referenced by comments of: 3003/69, 3003/76, 3003/77, 3003/78 01042/002A PLUS_470 COMPILER OC O S0931 UBC74 VLO FSNAME=PLUS_470.COMPILER.OC.002(1) 3 4.3T2 357 PLUS_470.COMPILER.OC.002 1 LINE 13440 109 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:00:32 0 This is the current, complete unlinkeditted version of the compiler. 99998 It is identical to 1042/1, except that it references PLUS:PLUSMESSAGE> rather than ETC:PLUSMESSAGES (1042/3), PLUS:SOURCELIB instead of NEW:PLUS.SOURCEL (1042/4), and PLUS:PLUSLOG instead of ETC:PLUSLOG (the PLUS compiler statistics file, which is not distributed). See installation notes (1042/66) for details. 01042/003A PLUS_470 MESSAGES M ETC:PLUSMESSAGES 4.3T2 358 PLUS_470.MESSAGES.M.003 1 LINE 112 5 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:10:49 ETC:PLUSMESSAGES 0 Message file accessed by the compiler. 99997 Install as ccid:PLUSMESSAGES for linkeditted version of compiler, and as ccid:PLUSMESSAGE> for the test version of the compiler, if used. See installation notes (1042/66) for details. 0 Referenced by comments of: 1042/1, 1042/2 01042/004A PLUS_470 SOURCELIB S+ O NEW:PLUS.SOURCEL 4.3T2 359 PLUS_470.SOURCELIB.S+.004 1 LINE 92 26 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:10:51 NEW:PLUS.SOURCEL 0 This is a revised version of the source library assumed if unit 99996 0 is not specified when running the compiler. There are some minor changes since the RD16 version, to make use of new compiler features. This version of the library will not work with the D4.2 compiler. Note this version is substantially different from the D4.2 version. The file PLUS:NEWS (1042/62) describes the major differences between this version of the library and the D4.2 version (which was called PLUS:MTSLIB, not PLUS:SOURCELIB). The library contains a number of useful declarations. Basically, the contents are: a) Some useful types such as Integer, Boolean, etc. b) Definitions of some 370/470 machine characteristics, such as the word size, the operation codes, etc. c) Declarations for the standard run-time support. d) Declarations for the useful routines in PLUS:OBJLIB. e) Declarations for most of the MTS system subroutines. 1 SUN SEP 08/96 19:03:19 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 A preliminary writeup is included with this distribution. (1042/59). ********************************************************************************** D4.3 CHANGES: SOME BUGS IN THIS FILE HAVE BEEN FIXED AT MICHIGAN SINCE IT WAS REDISTRIBUTED ON RD4.2C. ********************************************************************************** 0 Referenced by comments of: 1042/1, 1042/2, 1042/43, 1042/50, 1042/54, 1042/59, 1042/75, 1042/104, 1076/3, 3003/78 01042/005A PLUS_470 LISTING L S0931 UBC74 VLO FSNAME=PLUS_470.LISTING.L.005(1) 6 4.3T2 360 PLUS_470.LISTING.L.005 1 LINE 155 679 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:00:47 0 Complete source listing for current version of compiler. 99995 $COPY to printer with PAGES=800. 01042/006A PLUS_470 SOURCE S O S0931 UBC74 VLO FSNAME=PLUS_470.SOURCE.S.006(1) 7 4.3T2 361 PLUS_470.SOURCE.S.006 1 LINE 41 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:44 0 THIS IS A PROGRAM WHICH MAY BE USED INTERACTIVELY TO ANALYZE THE PLUS COMPILER STATISTICS FILE (AT MICHIGAN, THIS FILE IS CALLED ETC:PLUSLOG). CONTAINS $CONTINUE WITH PLUS:PARSER.OL (1076/6) + NEW:PLUS.OBJLIB (1042/50) + PLUS:PSTAT.SQD (1042/106) RECORDS. DOCUMENTATION FOR STATSCAN IS IN STATSCAN HELP (1042/85). 0 Referenced by comments of: 1042/82 01042/007A PLUS_470 MAIN S+ O S0931 UBC74 VLO FSNAME=PLUS_470.MAIN.S+.007(1) 8 4.3T2 362 PLUS_470.MAIN.S+.007 1 LINE 68 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:47 0 Compiler main program and initialization/termination. 99993 01042/008A PLUS_470 VERSION NUMBER S+ O S0931 UBC74 VLO FSNAME=PLUS_470.VERSION_NUMBER.S+.008(1) 9 4.3T2 363 PLUS_470.VERSION_NUMBER.S+.008 1 LINE 68 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:50 0 This routine just returns the current compiler version number. It 99992 is recompiled when the version number (in GLOBALLIB - comp. 1042/44) is changed. 01042/009A PLUS_470 TRAP S+ O S0931 UBC74 VLO FSNAME=PLUS_470.TRAP.S+.009(1) 10 4.3T2 364 PLUS_470.TRAP.S+.009 1 LINE 81 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:53 0 Compiler program interrupt handler. 99991 01042/010A PLUS_470 TABLE RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.TABLE_RTNS.S+.010(1) 11 4.3T2 365 PLUS_470.TABLE_RTNS.S+.010 1 LINE 70 9 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:56 0 Routines used by compiler to allocate and maintain variable-size 99990 arrays and tables. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01042/011A PLUS_470 STRING S+ O S0931 UBC74 VLO FSNAME=PLUS_470.STRING.S+.011(1) 12 4.3T2 366 PLUS_470.STRING.S+.011 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:01:59 0 Compiler string-table processing routines. 99989 01042/012A PLUS_470 MESSAGE RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.MESSAGE_RTNS.S+.012(1) 13 4.3T2 367 PLUS_470.MESSAGE_RTNS.S+.012 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:02 0 Routines which build and print compiler messages. 99988 01042/013A PLUS_470 CONVERT S+ O S0931 UBC74 VLO FSNAME=PLUS_470.CONVERT.S+.013(1) 14 4.3T2 368 PLUS_470.CONVERT.S+.013 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:05 0 Various routines which convert things to character strings, mostly 99987 for printing in messages. 01042/014A PLUS_470 CONST RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.CONST_RTNS.S+.014(1) 15 4.3T2 369 PLUS_470.CONST_RTNS.S+.014 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:08 0 Constant processing routines. 99986 01042/015A PLUS_470 I/O RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.I/O_RTNS.S+.015(1) 16 4.3T2 370 PLUS_470.I/O_RTNS.S+.015 1 LINE 68 8 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:12 0 I/O interfacing routines. 99985 01042/016A PLUS_470 INCLUDE S+ O S0931 UBC74 VLO FSNAME=PLUS_470.INCLUDE.S+.016(1) 17 4.3T2 371 PLUS_470.INCLUDE.S+.016 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:15 0 Routines for processing source libraries, %Include. 99984 01042/017A PLUS_470 SCANNER S+ O S0931 UBC74 VLO FSNAME=PLUS_470.SCANNER.S+.017(1) 18 4.3T2 372 PLUS_470.SCANNER.S+.017 1 LINE 68 12 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:18 0 Input scanner. 99983 01042/018A PLUS_470 PARAGRAPHER S+ O S0931 UBC74 VLO FSNAME=PLUS_470.PARAGRAPHER.S+.018(1) 19 4.3T2 373 PLUS_470.PARAGRAPHER.S+.018 1 LINE 92 9 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:22 0 Source paragrapher. 99982 01042/019A PLUS_470 PARSER S+ O S0931 UBC74 VLO FSNAME=PLUS_470.PARSER.S+.019(1) 20 4.3T2 374 PLUS_470.PARSER.S+.019 1 LINE 68 8 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:25 0 Input parser. This is driven by tables (1042/48) generated by the UBC LALR(1) analyzer (1042/102). 0 Referenced by comments of: 1042/92 01042/020A PLUS_470 SYMBOL_TABLE S+ O S0931 UBC74 VLO FSNAME=PLUS_470.SYMBOL_TABLE.S+.020(1) 21 4.3T2 375 PLUS_470.SYMBOL_TABLE.S+.020 1 LINE 95 6 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:29 0 Symbol table processing routines. 99980 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01042/021A PLUS_470 EXT NAME RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.EXT_NAME_RTNS.S+.021(1) 22 4.3T2 376 PLUS_470.EXT_NAME_RTNS.S+.021 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:32 0 Routines which maintain a table of external names for cross-checking 99979 if two routines/globals result in same ESDname. Also, used to print out index at end of compilation. 01042/022A PLUS_470 EXTERNAL S+ O S0931 UBC74 VLO FSNAME=PLUS_470.EXTERNAL.S+.022(1) 23 4.3T2 377 PLUS_470.EXTERNAL.S+.022 1 LINE 68 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:35 0 Pass 1 semantics for compilation units (procedures, globals). 99978 01042/023A PLUS_470 MACROS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.MACROS.S+.023(1) 24 4.3T2 378 PLUS_470.MACROS.S+.023 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:38 0 Pass 1 semantics for macro definition and expansion. 99977 01042/024A PLUS_470 TYPES S+ O S0931 UBC74 VLO FSNAME=PLUS_470.TYPES.S+.024(1) 25 4.3T2 379 PLUS_470.TYPES.S+.024 1 LINE 78 21 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:41 0 Pass 1 semantics for processing type definitions. 99976 01042/025A PLUS_470 VARIABLES S+ O S0931 UBC74 VLO FSNAME=PLUS_470.VARIABLES.S+.025(1) 26 4.3T2 380 PLUS_470.VARIABLES.S+.025 1 LINE 137 9 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:46 0 Pass 1 semantics for processing variables. 99975 01042/026A PLUS_470 DECLARATIONS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.DECLARATIONS.S+.026(1) 27 4.3T2 381 PLUS_470.DECLARATIONS.S+.026 1 LINE 68 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:49 0 Pass 1 semantics for processing declarations. 99974 01042/027A PLUS_470 STATEMENTS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.STATEMENTS.S+.027(1) 28 4.3T2 382 PLUS_470.STATEMENTS.S+.027 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:53 0 Pass 1 semantics for processing statements. 99973 01042/028A PLUS_470 EXPRESSIONS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.EXPRESSIONS.S+.028(1) 29 4.3T2 383 PLUS_470.EXPRESSIONS.S+.028 1 LINE 68 36 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:02:56 0 Pass 1 semantics for processing expressions. 99972 01042/029A PLUS_470 CONTROL_STRUCT S+ O S0931 UBC74 VLO FSNAME=PLUS_470.CONTROL_STRUCT.S+.029(1) 30 4.3T2 384 PLUS_470.CONTROL_STRUCT.S+.029 1 LINE 68 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:02 0 Pass 1 semantics for processing control structures. 99971 01042/030A PLUS_470 TREE S+ O S0931 UBC74 VLO FSNAME=PLUS_470.TREE.S+.030(1) 31 4.3T2 385 PLUS_470.TREE.S+.030 1 LINE 68 12 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:06 0 Pass 1 routines used to build intermediate code tree. 99970 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01042/031A PLUS_470 ERRORS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.ERRORS.S+.031(1) 32 4.3T2 386 PLUS_470.ERRORS.S+.031 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:09 0 Pass 1 error recovery semantics. 99969 01042/032A PLUS_470 VIRTUAL S+ O S0931 UBC74 VLO FSNAME=PLUS_470.VIRTUAL.S+.032(1) 33 4.3T2 387 PLUS_470.VIRTUAL.S+.032 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:12 0 Routines to process "virtual registers". 99968 01042/033A PLUS_470 STREAM S+ O S0931 UBC74 VLO FSNAME=PLUS_470.STREAM.S+.033(1) 34 4.3T2 388 PLUS_470.STREAM.S+.033 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:15 0 Routines for maintaining the "stream code" array. 99967 01042/034A PLUS_470 TEMPORARIES S+ O S0931 UBC74 VLO FSNAME=PLUS_470.TEMPORARIES.S+.034(1) 35 4.3T2 389 PLUS_470.TEMPORARIES.S+.034 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:18 0 Temporary manangement routines. 99966 01042/035A PLUS_470 SDS SYMS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.SDS_SYMS.S+.035(1) 36 4.3T2 390 PLUS_470.SDS_SYMS.S+.035 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:21 0 Routines to generate SYM records from symbol and variable table information. 01042/036A PLUS_470 STREAM GEN S+ O S0931 UBC74 VLO FSNAME=PLUS_470.STREAM_GEN.S+.036(1) 37 4.3T2 391 PLUS_470.STREAM_GEN.S+.036 1 LINE 68 40 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:25 0 Pass which tours the tree and produces "stream code". 99965 01042/037A PLUS_470 STREAM UTIL S+ O S0931 UBC74 VLO FSNAME=PLUS_470.STREAM_UTIL.S+.037(1) 38 4.3T2 392 PLUS_470.STREAM_UTIL.S+.037 1 LINE 68 19 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:31 0 Auxiliary routines used by stream code generation. 99964 01042/038A PLUS_470 CONST TABLE S+ O S0931 UBC74 VLO FSNAME=PLUS_470.CONST_TABLE.S+.038(1) 39 4.3T2 393 PLUS_470.CONST_TABLE.S+.038 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:35 0 Routines which manage the constant table used for constants emitted 99963 during code generation. 01042/039A PLUS_470 STREAM OPT S+ O S0931 UBC74 VLO FSNAME=PLUS_470.STREAM_OPT.S+.039(1) 40 4.3T2 394 PLUS_470.STREAM_OPT.S+.039 1 LINE 68 8 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:39 0 Optimization performed on the stream code. 99962 (Currently, combination of "virtual registers", redundant branch removal, unreachable code removal) 01042/040A PLUS_470 OBJECT GEN S+ O S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_GEN.S+.040(1) 41 4.3T2 395 PLUS_470.OBJECT_GEN.S+.040 1 LINE 68 18 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:42 0 Routines which tour stream code and produce object code. 99961 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01042/041A PLUS_470 OBJECT EMIT S+ O S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_EMIT.S+.041(1) 42 4.3T2 396 PLUS_470.OBJECT_EMIT.S+.041 1 LINE 68 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:47 0 Routines which emit object code by calling object module 99960 building routines (1042/55). 01042/042A PLUS_470 OBJECT LIST S+ O S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_LIST.S+.042(1) 43 4.3T2 397 PLUS_470.OBJECT_LIST.S+.042 1 LINE 68 6 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:50 0 Routines which produce the listing of emitted object code. 99959 01042/043A PLUS_470 PLUSLIB S+ O S0931 UBC74 VLO FSNAME=PLUS_470.PLUSLIB.S+.043(1) 44 4.3T2 398 PLUS_470.PLUSLIB.S+.043 1 LINE 39 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:54 0 Source library used to compile any of the PLUS compiler source 99957 components. This file simply contains $CONTINUE WITH's for the actual libraries used, namely SUEN:PARSDECLLIB (1042/49) PLUS:LALRPARSE*SL (1042/88) PLUS:OBJRTNS*SL (1042/55) SUEN:GLOBALLIB (1042/44) SUEN:PROCDECLLIB(1042/45) PLUS:SOURCELIB (1042/4) 01042/044A PLUS_470 GLOBALLIB S+ O S0931 UBC74 VLO FSNAME=PLUS_470.GLOBALLIB.S+.044(1) 45 4.3T2 399 PLUS_470.GLOBALLIB.S+.044 1 LINE 92 27 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:03:57 0 PLUS library containing global blocks, types, etc. that are required by 99956 more than one of the source files. 0 Referenced by comments of: 1042/43 01042/045A PLUS_470 PROCDECLLIB S+ O S0931 UBC74 VLO FSNAME=PLUS_470.PROCDECLLIB.S+.045(1) 46 4.3T2 400 PLUS_470.PROCDECLLIB.S+.045 1 LINE 68 28 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:04 0 Library containing procedure declarations for all procedures constituting 99955 the PLUS compiler. (Except, currently, for a few that are in GLOBALLIB for historical reasons.) 01042/046A PLUS_470 COMPILER INT SA O S0931 UBC74 VLO FSNAME=PLUS_470.COMPILER_INT.SA.046(1) 47 4.3T2 401 PLUS_470.COMPILER_INT.SA.046 1 LINE 68 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:10 0 Assembler interface routine for running the PLUS compiler. Allocates 99954 and initializes the stack and pseudo-register vector and calls the main routine of the compiler. 01042/047A PLUS_470 GRAMMAR S S0931 UBC74 VLO FSNAME=PLUS_470.GRAMMAR.S.047(1) 48 4.3T2 402 PLUS_470.GRAMMAR.S.047 1 LINE 112 5 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:13 0 Grammar for PLUS used as input to the LALR analyzer (1042/102) to produce the distributed parser tables (1042/48). 1 SUN SEP 08/96 19:03:19 Page 524 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 The convention is used that non-terminals are surrounded by quotes. 0 Referenced by comments of: 1042/86 01042/048A PLUS_470 PARSER TABLES OC G S0931 UBC74 VLO FSNAME=PLUS_470.PARSER_TABLES.OC.048(1) 49 4.3T2 403 PLUS_470.PARSER_TABLES.OC.048 1 LINE 254 7 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:16 0 Parser tables generated by UBC LALR (1042/102) from PLUS grammar. 0 Referenced by comments of: 1042/19, 1042/47 01042/049A PLUS_470 PARSER DECLS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.PARSER_DECLS.S+.049(1) 50 4.3T2 404 PLUS_470.PARSER_DECLS.S+.049 1 LINE 98 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:19 0 PLUS source library generated by UBC LALR (1042/102) containing declarations for production names, symbol names, tables sizes. 0 Referenced by comments of: 1042/43 01042/050A PLUS_470 LIBRARY OL O NEW:PLUS.OBJLIB 4.3T2 405 PLUS_470.LIBRARY.OL.050 1 LINE 3160 6 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:35:59 NEW:PLUS.OBJLIB 0 Object library containing object code for various useful routines 99951 (source in PLUS:LIB*S (1042/51)), some small assembler interface routines (source in PLUS:LIB*SA (1042/52)). Includes the standard run-time support for allocating the stack and handling run-time errors. Declarations for all routines in the library are in the default source library, PLUS:SOURCELIB (1042/4). A first pass at documentation for these routines is now included as 1042/59. 0 Referenced by comments of: 1042/6, 1042/52, 1042/82, 1042/84, 1042/102, 1076/1, 3003/76 01042/051A PLUS_470 LIBRARY S+ O S0931 UBC74 VLO FSNAME=PLUS_470.LIBRARY.S+.051(1) 52 4.3T2 406 PLUS_470.LIBRARY.S+.051 1 LINE 86 18 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:25 0 PLUS source for some useful routines. 99950 0 Referenced by comments of: 1042/50 01042/052A PLUS_470 LIBRARY SA O S0931 UBC74 VLO FSNAME=PLUS_470.LIBRARY.SA.052(1) 53 4.3T2 407 PLUS_470.LIBRARY.SA.052 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:29 0 Assembler source for a few interfacing routines that are 99948 included in PLUS:OBJLIB (1042/50). Now sets up pseudo-register vector. 0 Referenced by comments of: 1042/50 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 01042/053A PLUS_470 LIBRARY L S0931 UBC74 VLO FSNAME=PLUS_470.LIBRARY.L.053(1) 54 4.3T2 408 PLUS_470.LIBRARY.L.053 1 LINE 133 62 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:32 0 Listing of PLUS library routines. 99949 $COPY with PAGES=100. 01042/054A PLUS_470 OBJECT RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_RTNS.S+.054(1) 55 4.3T2 409 PLUS_470.OBJECT_RTNS.S+.054 1 LINE 68 13 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:39 0 Routines that can be used to build and punch MTS object modules. These have been separated out from the PLUS compiler so they can used by other programs too. Currently, they are used by the UBC LALR analyzer (1042/102) and by the "Spires" Analyzer (1076). The routines require some storage management routines. A set are provided in PLUS:UTILITY*OL (1042/77), although these are not used by the PLUS compiler, which has its own. The PLUS compiler also does not use the routine Punch_Record which is included in this file. To compile these routines, unit 0 must specify the following three libraries: PLUS:OBJRTNS*SL (1042/55) PLUS:UTILITY*SL (1042/76) PLUS:SOURCELIB (1042/4) 0 Referenced by comments of: 1042/55, 1042/75 01042/055A PLUS_470 OBJECT RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_RTNS.S+.055(1) 56 4.3T2 410 PLUS_470.OBJECT_RTNS.S+.055 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:43 0 Library containing declarations for the object module routines (1042/54). This library is required to compile the routines or to compile any program using the routines. 0 Referenced by comments of: 1042/41, 1042/43, 1042/54, 1042/104, 1076/3 01042/056A PLUS_470 OBJECT RTNS OL O S0931 UBC74 VLO FSNAME=PLUS_470.OBJECT_RTNS.OL.056(1) 57 4.3T2 411 PLUS_470.OBJECT_RTNS.OL.056 1 LINE 992 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:46 0 Object library containing the PLUS object module routines. 0 Referenced by comments of: 1042/102, 1076/1 01042/057A PLUS_470 WRITEUP WF S0931 UBC74 VLO FSNAME=PLUS_470.WRITEUP.WF.057(1) 58 4.3T2 412 PLUS_470.WRITEUP.WF.057 1 LINE 146 52 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:04:50 0 FMT source for PLUS writeup. 99946 Contains reference to JON:MACLIB at line 1, which will need changing elsewhere. 1 SUN SEP 08/96 19:03:19 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 + ______________ _____________________ 0 (JON:MACLIB IS DISTRIBUTED BY MICHIGAN AS 308/19.) 0 Referenced by comments of: 1042/62 01042/058A PLUS_470 WRITEUP PF S0931 UBC74 VLO FSNAME=PLUS_470.WRITEUP.PF.058(1) 59 4.3T2 413 PLUS_470.WRITEUP.PF.058 1 LINE 77 66 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:09 0 $COPYable form of PLUS writeup. Allow 100 pages, TN printer. 99944 01042/059A PLUS_470 LIB WRITEUP WX S0931 UBC74 VLO FSNAME=PLUS_470.LIB_WRITEUP.WX.059(1) 60 4.3T2 414 PLUS_470.LIB_WRITEUP.WX.059 1 LINE 95 34 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:19 0 Textform source for preliminary version of writeup describing PLUS:SOURCELIB (1042/4) contents. Since RD16, this has been extended to include documentation on system subroutines declarations from PLUS:SOURCELIB. Note it contains $CONTINUE WITH TXTF:TXTF.PROLOG which must be changed elsewhere. (TXTF.PROLOG IS DISTRIBUTED BY MICHIGAN AS UNSP:JONMACLIBTXT (3018/177). Ignore the large number of error messages generated when this is run through Textform. 0 Referenced by comments of: 1042/4 01042/060A PLUS_470 LIB WRITEUP PX S0931 UBC74 VLO FSNAME=PLUS_470.LIB_WRITEUP.PX.060(1) 61 4.3T2 415 PLUS_470.LIB_WRITEUP.PX.060 1 LINE 69 15 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:26 0 $COPYable form of writeup for PLUS:SOURCELIB. Allow 100 pages, TN printer. 01042/061A PLUS_470 BUGLIST P S0931 UBC74 VLO FSNAME=PLUS_470.BUGLIST.P.061(1) 62 4.3T2 416 PLUS_470.BUGLIST.P.061 1 LINE 68 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:31 0 Description of current known bugs in the compiler. 99942 01042/062A PLUS_470 NEWS P S0931 UBC74 VLO FSNAME=PLUS_470.NEWS.P.062(1) 63 4.3T2 417 PLUS_470.NEWS.P.062 1 LINE 72 6 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:34 0 Current news file for PLUS. 99941 This describes all changes that have been made since the first (D4.2) distribution of PLUS. The PLUS writeup (1042/57) has been updated to incorporate all changes described in this file. 0 Referenced by comments of: 1042/4 1 SUN SEP 08/96 19:03:19 Page 527 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/063A PLUS_470 WORKLIST P S0931 UBC74 VLO FSNAME=PLUS_470.WORKLIST.P.063(1) 64 4.3T2 418 PLUS_470.WORKLIST.P.063 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:37 0 This is a file containing a list of things we hope to do with PLUS. This is intended for use by the PLUS implementors, and is probably not very comprehensible to anyone else, but may give some idea of current plans. 01042/064A PLUS_470 CHANGELOG P S0931 UBC74 VLO FSNAME=PLUS_470.CHANGELOG.P.064(1) 65 4.3T2 419 PLUS_470.CHANGELOG.P.064 1 LINE 73 6 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:40 0 This file contains a history of (almost) all changes to the compiler since the first (D4.2) distribution. It is mainly of interest to the compiler implementors, since the NEWS file details the changes that are visible to users of PLUS. 01042/065A PLUS_470 DIST LETTER PF S0931 UBC74 VLO FSNAME=PLUS_470.DIST_LETTER.PF.065(1) 66 4.3T2 420 PLUS_470.DIST_LETTER.PF.065 1 LINE 69 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:44 0 This is a covering letter to Jim Hansen which accompanies this 99940 distribution of PLUS. It describes the current status, and expresses our wishes regarding distribution and maintenance of the compiler. All installations receiving PLUS should read this. 01042/066A PLUS_470 INSTALL NOTES P S0931 UBC74 VLO FSNAME=PLUS_470.INSTALL_NOTES.P.066(1) 67 4.3T2 421 PLUS_470.INSTALL_NOTES.P.066 1 LINE 76 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:47 0 Instructions for installing PLUS. 99939 Slightly revised for second distribution. 0 Referenced by comments of: 1042/1, 1042/2, 1042/3 01042/067A PLUS_470 BOOTSTRAP C S0931 UBC74 VLO FSNAME=PLUS_470.BOOTSTRAP.C.067(1) 68 4.3T2 422 PLUS_470.BOOTSTRAP.C.067 1 LINE 159 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:50 0 This file contains a complete sample batch job to compile the entire 99938 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. 1 SUN SEP 08/96 19:03:19 Page 528 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/068A PLUS_470 ROLLOVER C S0931 UBC74 VLO FSNAME=PLUS_470.ROLLOVER.C.068(1) 69 4.3T2 423 PLUS_470.ROLLOVER.C.068 1 LINE 68 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:05:54 0 Batch job used after generating a new private version of the PLUS 99937 compiler (as with SUEN:BOOT), to install it as the new public version, producing appropriate backup etc. 01042/069 PLUS_470 COMPARE SS G S0656 PLUS FSNAME=PLUS_470.COMPARE.SS.64(1) 64 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 99936 compiler, to verify that the first compilation and the second one resulted in the same object decks. It just compares the two files, ignoring END records. Note: This program will probably require changing if it is to be used elsewhere since it uses a library routine MTSLNR() which probably isn't in anybody else's Spitbol in order to get the source line number of lines read. Unchanged since D4.2 distribution of PLUS. 01042/070 PLUS_470 XREF SS G S1222 UMPLUS FSNAME=PLUS.XREF.S 71 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 99935 of the PLUS source files. This is the same as the D4.2 version (as modified by Jim Hansen). Line 59 should be changed to set variable READ_TYPE to "UM" to use UNSP:SPITLIB routines instead of UBC routines. Reads a list of "reserved words" from unit 0, and a list of files to XREF from SCARDS. 01042/071A PLUS_470 XREF D S0931 UBC74 VLO FSNAME=PLUS_470.XREF.D.071(1) 72 4.3T2 424 PLUS_470.XREF.D.071 1 LINE 10 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:03 0 List of words that we don't want cross referenced when XREFing the PLUS 99934 compiler. This consists of the reserved words, and a few builtin or compiler procedures. 01042/072A PLUS_470 XREF L S0931 UBC74 VLO FSNAME=PLUS_470.XREF.L.072(1) 73 4.3T2 425 PLUS_470.XREF.L.072 1 LINE 133 280 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:05 0 Cross reference of files constituting distributed PLUS compiler 99933 as generated by XREF program. $COPY with PAGES=200. 1 SUN SEP 08/96 19:03:19 Page 529 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/073A PLUS_470 LIBRARY GENERA SS O S0931 UBC74 VLO FSNAME=PLUS_470.LIBRARY_GENERA.SS.073(1) 74 4.3T2 426 PLUS_470.LIBRARY_GENERA.SS.073 1 LINE 157 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:22 0 Another Spitbol GLP, again requiring the UBC routine to get at 99932 MTS line numbers, and also local routines for interfacing to read and write. We use this one to regenerate a PLUS library from an old one -- useful for cleaning up the line numbers, or recreating it if the file is accidently renumbered. For use at other installations, could be changed to use routines in UNSP:SPITLIB (590/30). Unchanged from the RD16 version. 01042/074A PLUS_470 HANOI S+ O S0931 UBC74 VLO FSNAME=PLUS_470.HANOI.S+.074(1) 75 4.3T2 427 PLUS_470.HANOI.S+.074 1 LINE 68 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:25 0 Simple example of PLUS program that performs Towers of Hanoi. 99931 01042/075A PLUS_470 UTILITY RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.UTILITY_RTNS.S+.075(1) 76 4.3T2 428 PLUS_470.UTILITY_RTNS.S+.075 1 LINE 68 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:28 0 This is source for a collection of auxiliary PLUS subroutines that 99930 are getting used in various places, but which we don't think belong in PLUS:OBJLIB. The routines currently in this file are various procedures for allocating arrays and linked lists. Used in this distribution by the LALR analyzer (1042/102) and the Spires Analyzer (1076). These routines, or substitutes for them, are required by the object module punching routines (1042/54). (Note the compiler provides substitutes -- it does not uses these ones.) Compile with 0=UTILITY*SL+PLUS:SOURCELIB (1042/76) (1042/4) 01042/076A PLUS_470 UTILITY RTNS S+ O S0931 UBC74 VLO FSNAME=PLUS_470.UTILITY_RTNS.S+.076(1) 77 4.3T2 429 PLUS_470.UTILITY_RTNS.S+.076 1 LINE 68 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:31 0 PLUS Source library containing the declarations for the above routines. 99929 Used when compiling the routines, or by any program that uses the routines. 0 Referenced by comments of: 1042/54, 1042/75, 1042/104, 1076/1, 1076/3 1 SUN SEP 08/96 19:03:19 Page 530 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/077A PLUS_470 UTILITY RTNS OL O S0931 UBC74 VLO FSNAME=PLUS_470.UTILITY_RTNS.OL.077(1) 78 4.3T2 430 PLUS_470.UTILITY_RTNS.OL.077 1 LINE 292 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:34 0 Object library containing the utility routines from 1042/75. 0 Referenced by comments of: 1042/54, 1042/102 01042/078A PLUS_470 SUPERVISOR LIB S+ O S0931 UBC74 VLO FSNAME=PLUS_470.SUPERVISOR_LIB.S+.078(1) 79 4.3T2 431 PLUS_470.SUPERVISOR_LIB.S+.078 1 LINE 72 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:06:37 0 UBC plans eventually to produce a series of libraries paralleling the assembler libraries for the various components of the system. (UBC now keeps all system copy sections in one of a small number of libraries.) These libraries will contain PLUS definitions of the various internal control blocks, internal entry poins of the system, etc. This subcomponent, in the file COPY:SUPER*42SQL at UBC, will contain supervisor-related definitions corresponding to the file COPY:SUPER*42M at UBC). Currently, however, all it contains is constant definitions for all the UMMPS SVC's, and a very rough description of the job table. 0 Referenced by comments of: 1077/1 01042/079A PLUS_470 DSP LIB S+ S S0931 UBC74 VLO FSNAME=PLUS_470.DSP_LIB.S+.079(1) 80 4.3T2 432 PLUS_470.DSP_LIB.S+.079 1 LINE 68 3 PAGE UBC O'REILLY HANSEN SEP. 27, 1979 22:06:40 0 This is a PLUS source library defining resource-manager DSP entry points and control blocks. It is preliminary and has never been used. Distributed here in case it is of any interest to anyone elsewhere. 01042/080A PLUS_470 INTERTASK LIB S+ S S0931 UBC74 VLO FSNAME=PLUS_470.INTERTASK_LIB.S+.080(1) 81 4.3T2 433 PLUS_470.INTERTASK_LIB.S+.080 1 LINE 68 3 PAGE UBC O'REILLY HANSEN SEP. 27, 1979 22:06:44 0 This is a PLUS source library containing intertask-related definitions. It is preliminary and has never been used. Distributed here in case it is of any interest to anyone elsewhere. 01042/081A PLUS_470 MONITOR LIB S+ S S0931 UBC74 VLO FSNAME=PLUS_470.MONITOR_LIB.S+.081(1) 82 4.3T2 434 PLUS_470.MONITOR_LIB.S+.081 1 LINE 68 5 PAGE UBC O'REILLY HANSEN SEP. 27, 1979 22:06:47 0 This is a PLUS source library containing definitions of the resource manager monitor procedures and control blocks. It is preliminary and has never been used. Distributed here in case it is of any interest to anyone elsewhere. 1 SUN SEP 08/96 19:03:19 Page 531 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/082A PLUS_470 STATSCAN S+ O PLUS:STATSCAN(1000,9999) 4.3T2 435 PLUS_470.STATSCAN.S+.082 1 LINE 101 13 PAGE UM HANSEN APR. 06, 1980 14:37:17 0 THIS IS A PROGRAM WHICH MAY BE USED INTERACTIVELY TO ANALYZE THE PLUS COMPILER STATISTICS FILE (AT MICHIGAN, THIS FILE IS CALLED ETC:PLUSLOG). CONTAINS $CONTINUE WITH PLUS:PARSER.OL (1042/6) + NEW:PLUS.OBJLIB (1042/50) + PLUS:PSTAT.SQD (1042/106). DOCUMENTATION FOR STATSCAN IS IN STATSCAN HELP (1042/85). 01042/083A PLUS_470 STATSCN GRAMMR S G PLUS:STATSCAN(10000) 4.3T2 436 PLUS_470.STATSCN_GRAMMR.S.083 1 LINE 83 3 PAGE UM HANSEN APR. 06, 1980 14:37:30 0 GRAMMAR FOR THE UBC ANALYZER (1076/1) USED TO PRODUCE PARSER TABLES INCLUDED IN 1042/84. 0 Referenced by comments of: 1042/106 01042/084A PLUS_470 STATSCAN O O PLUS:STATSCAN(1,999) 4.3T2 437 PLUS_470.STATSCAN.O.084 1 LINE 3612 12 PAGE UM HANSEN APR. 06, 1980 14:37:40 0 OBJECT OF 1042/82 AND 1042/83. MUST BE COMPILED WITH THE PLUS COMPILER VERSION 15 (OCTOBER 1979). $CONTINUES WITH PLUS:PARSER.OL (1076/6) AND PLUS:OBJLIB (1042/50). USES THE STATSCAN HELP FILE (1042/85) AND ETC:PLUSLOG (THE PLUS COMPILER STATISTICS FILE, WHICH IS NOT DISTRIBUTED). 0 Referenced by comments of: 1042/85 01042/085A PLUS_470 STATSCAN HELP D PLUS:PSTAT.HELP 4.3T2 438 PLUS_470.STATSCAN_HELP.D.085 1 LINE 68 2 PAGE UM HANSEN APR. 06, 1980 14:37:47 0 HELP FILE FOR THE PLUS STATISTICS FILE SCANNER (1042/84). $CONTINUES WITH PLUS:PSTAT.HELP (1042/106). 0 Referenced by comments of: 1042/6, 1042/82, 1042/84 01042/086A PLUS_470 LALR WRITEUP WF S0931 UBC74 VLO FSNAME=UBC_LALR.WRITEUP.WF.002(1) 110 4.3T2 439 PLUS_470.LALR_WRITEUP.WF.086 1 LINE 66 3 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:05 0 LALR (subcomponents 1042/86 - 1042/105), a program similar to *LALRGEN (745), produces syntax tables, and some auxiliary PLUS declarations from a BNF grammar. The grammar must be LALR(1). It is the only LALR(1) grammar UBC knows of that will correctly process the PLUS grammar (1042/47). UBC hopes to rewrite the lookahead algorithm sometime to use the efficient calculation described in SIGPLAN Symposium on Compiler Construction (SIGPLAN Notices, Vol. 14, number 8), but they haven't had a chance yet. This subcomponent contains FMT source for brief notes describing input and output from LALR. It assumes the reader is familiar with 1 SUN SEP 08/96 19:03:19 Page 532 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 similar programs. Uses UNSP:JONMACLIBFMT (308/19). ******************************************************************************** D4.3 CHANGES: SUBCOMPONENTS 1042/86 THROUGH 1042/105 COMPRISE UBC LALR, A PROGRAM MUCH LIKE *LALRGEN (745). THEY WERE RECEIVED FROM UBC AS SUBCOMPONENTS 1080/1 THROUGH 1080/20. SINCE WE DO NOT FORSEE USING LALR FOR ANYTHING NOT PLUS-RELATED, WE HAVE APPENDED IT TO THE END OF THE PLUS COMPONENT. ******************************************************************************** 01042/087A PLUS_470 LALR WRITEUP PF S0931 UBC74 VLO FSNAME=UBC_LALR.WRITEUP.PF.003(1) 111 4.3T2 440 PLUS_470.LALR_WRITEUP.PF.087 1 LINE 69 3 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:13 0 $COPYable writeup for LALR (5 pages) 01042/088A PLUS_470 LALR DECLAR S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.DECLARATIONS.S+.004(1) 112 4.3T2 441 PLUS_470.LALR_DECLAR.S+.088 1 LINE 68 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:16 0 PLUS source library containing the definition of the parser tables. 0 Referenced by comments of: 1042/43, 1042/104 01042/089A PLUS_470 LALR SOURCE S O S0931 UBC74 VLO FSNAME=UBC_LALR.SOURCE.S.005(1) 113 4.3T2 442 PLUS_470.LALR_SOURCE.S.089 1 LINE 35 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:20 0 Components 1042/90 to 1080/99 are PLUS source for the LALR analyzer. This file contains just a series of $CONTINUE WITH's specifying all the files constituting the analyzer. The pieces of the analyzer may be compiled independently or all concatenated together and compiled at once. Compiling any of the pieces requires several PLUS source libraries. Component 1042/104 $CONTINUES WITH all the required libraries. 01042/090A PLUS_470 LALR MAIN S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.MAIN.S+.006(1) 114 4.3T2 443 PLUS_470.LALR_MAIN.S+.090 1 LINE 68 4 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:26 0 LALR main program and initialization and some auxiliary procedures. 01042/091A PLUS_470 LALR INPUT S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.INPUT.S+.007(1) 115 4.3T2 444 PLUS_470.LALR_INPUT.S+.091 1 LINE 68 4 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:36 0 Input reading and scanning components. 01042/092A PLUS_470 LALR PARSER S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.PARSER.S+.008(1) 116 4.3T2 445 PLUS_470.LALR_PARSER.S+.092 1 LINE 68 4 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:48 0 LALR analyzer input parser. This file contains the procedures to parse and recover from syntax errors 1 SUN SEP 08/96 19:03:19 Page 533 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 in the input to LALR. It serves as an example of the structure of the parser required by the tables generated by LALR. The PLUS compiler has its own version (1042/19). 01042/093A PLUS_470 LALR PRINT S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.PRINT.S+.009(1) 117 4.3T2 446 PLUS_470.LALR_PRINT.S+.093 1 LINE 68 6 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:51 0 This component produces listing of the grammar, and other printed output produced by LALR. 01042/094A PLUS_470 LALR LR0 S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.LR0.S+.010(1) 118 4.3T2 447 PLUS_470.LALR_LR0.S+.094 1 LINE 68 5 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:55 0 Procedures to produce the LR(0) machine from the grammar. 01042/095A PLUS_470 LALR SLR1 S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.SLR1.S+.011(1) 119 4.3T2 448 PLUS_470.LALR_SLR1.S+.095 1 LINE 68 3 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:09:58 0 Procedures to try SLR(1) lookahead. 01042/096A PLUS_470 LALR LALR1 S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.LALR1.S+.012(1) 120 4.3T2 449 PLUS_470.LALR_LALR1.S+.096 1 LINE 68 8 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:01 0 Procedures to try LALR(1) lookahead. 01042/097A PLUS_470 LALR MATRX GEN S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.MATRIX_GEN.S+.013(1) 121 4.3T2 450 PLUS_470.LALR_MATRX_GEN.S+.097 1 LINE 68 7 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:15 0 LALR generates tables which represent the parser in a matrix form (intended to improve parser speed at some cost in space). These procedures compute the matrix representation. 01042/098A PLUS_470 LALR PUNCH S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.PUNCH.S+.014(1) 122 4.3T2 451 PLUS_470.LALR_PUNCH.S+.098 1 LINE 68 7 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:18 0 Routines to generate object module from the matrix representation. The routines in component 1042/56 are used. 01042/099A PLUS_470 LALR MEMBER S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.MEMBER.S+.015(1) 123 4.3T2 452 PLUS_470.LALR_MEMBER.S+.099 1 LINE 67 2 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:22 0 These routines generate an output PLUS library containing declarations for use when writing programs to use the parser tables. 1 SUN SEP 08/96 19:03:19 Page 534 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01042/100A PLUS_470 LALR GRAMMAR S O S0931 UBC74 VLO FSNAME=UBC_LALR.GRAMMAR.S.016(1) 124 4.3T2 453 PLUS_470.LALR_GRAMMAR.S.100 1 LINE 56 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:25 0 Simple grammar in the form required by LALR defining the input to LALR. 01042/101A PLUS_470 LALR GRAMMAR OC O S0931 UBC74 VLO FSNAME=UBC_LALR.GRAMMAR_OBJ.OC.017(1) 125 4.3T2 454 PLUS_470.LALR_GRAMMAR.OC.101 1 LINE 136 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:28 0 Syntax tables generated by LALR for the grammar in 1080/16. This object deck is part of LALR. 01042/102A PLUS_470 LALR OBJECT OE O S0931 UBC74 VLO FSNAME=UBC_LALR.OBJECT.OE.001(1) 109 4.3T2 455 PLUS_470.LALR_OBJECT.OE.102 1 LINE 32767 17 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:08:54 0 This is the complete, linkeditted object for the UBC LALR analyzer. The complete program consists of: object from 1042/90 through 1042/99 object generated by LALR from grammar 1042/100 object module routines (1042/56) (INCLUDE@SLI) Utility routines (1042/77) (INCLUDE@SLI) PLUS:OBJLIB (1042/50) (INCLUDE@SLI) 0 Referenced by comments of: 1042/19, 1042/47, 1042/48, 1042/49, 1042/54, 1042/75 01042/103A PLUS_470 LALR DECLS S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.LALR_DECLS.S+.018(1) 126 4.3T2 456 PLUS_470.LALR_DECLS.S+.103 1 LINE 71 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:31 0 PLUS source library generated by LALR from the grammar in 1080/16. 0 Referenced by comments of: 1042/104 01042/104A PLUS_470 LALR SOU LIB S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.SOURCE_LIB.S+.019(1) 127 4.3T2 457 PLUS_470.LALR_SOU_LIB.S+.104 1 LINE 39 1 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:34 0 This file just contains $CONTINUE WITH's for the set of libraries required to compile any of the files constituting the analyzer. These are: LALR*SL (1042/105) LALRDECL*SL (1042/103) PLUS:LALRPARSE*SL (1042/88) PLUS:UTILITY*SL (1042/76) PLUS:OBJRTNS*SL (1042/55) PLUS:SOURCELIB (1042/4) 01042/105A PLUS_470 LALR SOU LIB S+ O S0931 UBC74 VLO FSNAME=UBC_LALR.SOURCE_LIB.S+.020(1) 128 4.3T2 458 PLUS_470.LALR_SOU_LIB.S+.105 1 LINE 68 7 PAGE UBC WHALEY HANSEN SEP. 27, 1979 22:10:38 0 PLUS source library containing declarations required by more than one of the files constituting LALR. 1 SUN SEP 08/96 19:03:19 Page 535 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 1042/104 01042/106C PLUS_470 PSTAT PLUS:PSTAT.SQD 4.3T2 459 PLUS_470.PSTAT..106 1 LINE 68 1 PAGE UM HANSEN APR. 06, 1980 14:38:40 0 PLUS DECLARATIONS EMITTED BY PLUS:ANALYZER (1076/1) WHEN GIVEN THE STATSCAN GRAMMAR (1042/83). 0 Referenced by comments of: 1042/6, 1042/82, 1042/85 01043 JVCT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO CONVERT A BCD TIME/DATE TO JULIAN MICROSECONDS SINCE MARCH 1, 1900. 01044 JMSBTDR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO CONVERT FROM JULIAN MICROSECONDS TO BINARY GREGORIAN TIME, A FORMAT IN WHICH EACH COMPONENT OF THE TIME (YEAR, MONTH, DAY, HOUR, MINUTE, AND SO ON) HAS ITS OWN FULLWORD. 01045 BTDJMSR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO CONVERT FROM BINARY GREGORIAN TIME TO STANDARD MTS JULIAN MICROSECONDS. 01046 DAYDAT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO CONVERT MM-DD-YY TO MMM DD, YYYY. 01047 PRINTER DSR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A NEW 1403/1443 PRINTER DSR. 01048 S # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO PRINT THE NEAREST RESIDENT SYMBOL GIVEN AN ADDRESS OR THE ADDRESS NEAREST A GIVEN SYMBOL. 01049 PRINT_MODIFIERS # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO PRINT THE INTEGER/HEXADECIMAL EQUIVALENTS OF A GIVEN SET OF MODIFIERS. 1 SUN SEP 08/96 19:03:19 Page 536 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01051 VIRTUAL DEVICE SUPPORT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 01052/001A PASCAL/UBC COMPILER SW O S1367 UBC75 FSNAME=UBC_PASCAL.PASCAL*SW.SW.012 43 4.3T2 460 PASCAL/UBC.COMPILER.SW.001 1 LINE 94 198 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:25:53 0 THIS IS THE SOURCE FOR THE UBC PASCAL COMPILER. SUBCOMPONENT 1052/2 IS AN UPDATE TO THIS SOURCE FOR THREE LOCAL CHANGES. SUBCOMPONENTS 1052/11 AND 1052/12 CONTAIN FURTHER INFORMATION ABOUT HOW TO INSTALL THE SYSTEM. SUBCOMPONENT 685/11 IS A PRINT FILE CONTAINING INFORMATION ABOUT THE CHANGES TO ALL THE PASCAL COMPILERS AVAILABLE UNDER UNSP AT UM. ***************************************************************************** THIS VERSION DIFFERS FROM THE PREVIOUS ONE IN AT LEAST THE FOLLOWING WAYS. * SOME BUGS HAVE BEEN FIXED AND AT LEAST ONE ADDED. SEE UNSP:PASCAL.NEWS (685/11). * THE WRITEUP (1052/13) HAS BEEN UPDATED. * THE NEW SECTION "INITIAL" HAS BEEN ADDED AND APPEARS TO BE REPLACING "VALUE". * THE "LOOP" AND "EXIT" STATEMENTS HAVE BEEN ADDED. * THE COMPILER NOW KEEPS TRACK OF THE LAST FEW SYMBOLS SCANNED APPARENTLY TO IMPROVE ERROR RECOVERY. * THE CODE GENERATION FOR EXPRESSIONS HAS BEEN REWRITTEN. THE "OUT OF REGISTERS" ERROR SEEMS TO HAVE BEEN ELIMINATED AND BETTER CODE GENERATED IN SOME CASES. THIS VERSION ALSO DIFFERS IN THE FOLLOWING WAYS, OF INTEREST TO INSTALLERS. * THE NAME OF THE ENTRY FOR THE DEBUGGER WAS CHANGED FROM "PSCLPMD$" TO "PSC#PMD$". * THE SOURCE AND OBJECT FOR THE COMPILER DON'T AGREE, BUT ARE VERY CLOSE. * THE "CPU" ROUTINES ARE NOW INCLUDED WITH THE MONITOR (1052/4). ***************************************************************************** 0 Referenced by comments of: 685/11, 1052/3 01052/002C PASCAL/UBC COMPILER UC G S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.PASCAL.CDU 4.3T2 461 PASCAL/UBC.COMPILER.UC.002 1 LINE 68 1 PAGE UBC JOLLIFFE UNSP FEB. 25, 1980 09:52:52 0 THE UM UPDATES TO THE COMPILER. ************************************************************************************* D4.3 CHANGES INCLUDE: 1. THE NAME OF THE RUNTIME LIBRARY (1052/8) IS CHANGED TO "UNSP:PAS.BC.LIB". 1 SUN SEP 08/96 19:03:19 Page 537 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 2. THE NAME OF THE ERROR STATISTICS FILE (1052/10) IS CHANGED TO "UNSP:PAS.BC.ERR". 3. CALLS SNOOP IN UNSP:LIBRARY (685/4) TO RECORD USAGE IN THE FILE UNSP:STATS, IF IT EXISTS. 4. TURNS ON THE LIST AND XREF SWITCHES. 5. CHANGES THE DEFAULT FOR THE STANDARD OPTION FROM "$S-" TO "$S+". ************************************************************************************* 01052/003A PASCAL/UBC COMPILER OE O UNSP:PAS.BC 4.3T2 462 PASCAL/UBC.COMPILER.OE.003 1 LINE 32767 73 PAGE UBC JOLLIFFE UNSP APR. 06, 1980 14:41:13 UNSP:PAS.BC 0 THIS IS THE LINKEDITED OBJECT OF THE PASCAL COMPILER (1052/1) (WITH THE 1052/2 UPDATE APPLIED) AND THE RUNTIME SUPPORT LIBRARY (1052/7). 01052/004A PASCAL/UBC MONITOR SRC SA O S1367 UBC75 FSNAME=UBC_PASCAL.MON*SA.SA.003 34 4.3T2 463 PASCAL/UBC.MONITOR_SRC.SA.004 1 LINE 73 36 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:14:11 0 THIS FILE CONTAINS THE RUNTIME LIBRARY ASSEMBLER SOURCE MODULES. THESE ROUTINES DO LOW LEVEL I/O AND PASCAL PROGRAM INITIALIZATION. THE OBJECT OF THIS SUBCOMPONENT IS IN THE 1052/8 LIBRARY. 0 Referenced by comments of: 1052/1 01052/005C PASCAL/UBC MONITOR UPD UC G S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.MONITOR.CDU 4.3T2 464 PASCAL/UBC.MONITOR_UPD.UC.005 1 LINE 61 1 PAGE UM UNSP FEB. 10, 1980 17:37:47 0 THIS IS AN UPDATE TO CHANGE THE FILE NAMES FOR 1052/8 TO "UNSP:PAS.BC.LIB" AND FOR 1052/9 TO "UNSP:PAS.BC.DEBUG". 01052/006A PASCAL/UBC LIB SRC SW O S1367 UBC75 FSNAME=UBC_PASCAL.PASCALIBR.SW.005 36 4.3T2 465 PASCAL/UBC.LIB_SRC.SW.006 1 LINE 94 14 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:25:17 0 THIS FILE CONTAINS THE RUNTIME LIBRARY (1052/8) SOURCE MODULES, WRITTEN IN PASCAL. MOST OF THE ROUTINES ARE HIGH LEVEL I/O ROUTINES. 01052/007A PASCAL/UBC DEBUG SRC SW O S1367 UBC75 FSNAME=UBC_PASCAL.DEBUG*SW.SW.007 38 4.3T2 466 PASCAL/UBC.DEBUG_SRC.SW.007 1 LINE 82 58 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:25:24 0 THIS FILE CONTAINS THE SOURCE CODE, WRITTEN IN PASCAL, FOR THE PASCAL POST-MORTEM ANALYSIS (PMD) PACKAGE. 0 Referenced by comments of: 1052/3, 1052/9 01052/008A PASCAL/UBC RUNTIME LIB OL O UNSP:PAS.BC.LIB 4.3T2 467 PASCAL/UBC.RUNTIME_LIB.OL.008 1 LINE 5846 45 PAGE UBC JOLLIFFE UNSP APR. 06, 1980 14:41:48 UNSP:PAS.BC.LIB 0 THIS IS THE PASCAL RUNTIME LIBRARY. IT CONTAINS THE OBJECT OF 1052/4 (WITH THE 1052/5 UPDATE APPLIED), 1052/6, AND 1052/7. COMPONENT 1052/12 CONTAINS COMMANDS TO ASSEMBLE THE LIBRARY. 0 Referenced by comments of: 1052/2, 1052/6, 1052/9, 1052/12 1 SUN SEP 08/96 19:03:19 Page 538 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01052/009A PASCAL/UBC DEBUG.LOAD OC O UNSP:PAS.BC.DEBUG 4.3T2 468 PASCAL/UBC.DEBUG.LOAD.OC.009 1 LINE 30 1 PAGE UBC JOLLIFFE UNSP APR. 06, 1980 14:41:52 UNSP:PAS.BC.DEBUG 0 THIS FILE CONTAINS ONLY AN ENT RECORD AND A $CONTINUE WITH UNSP:PAS.BC.LIB RECORD. IT IS LOADED BY THE RUNTIME LIBRARY (1052/8) WHEN THE DEBUGGER (1052/7) IS CALLED. 01052/010A PASCAL/UBC ERRORLOG D S1367 UBC75 FSNAME=UBC_PASCAL.ERRCNT.S.013 44 4.3T2 469 PASCAL/UBC.ERRORLOG.D.010 1 LINE 76 4 PAGE UBC JOLLIFFE UNSP NOV. 19, 1979 15:26:49 0 IF THIS FILE IS CREATED WITH THE NAME 'UNSP:PAS.BC.ERR' AND WITH THE GIVEN FORMAT, THE COMPILER WILL RECORD STATISTICS ABOUT THE ERROR MESSAGES IT ISSUES. IF THE FILE DOESN'T EXIST, NO LOGGING IS DONE. AS DISTRIBUTED, THE ERROR COUNTS ARE ZERO. THE LINE NUMBERS IN THIS FILE ARE IMPORTANT, SINCE IT ALSO CONTAINS THE TEXT OF THE ERROR MESSAGES IN THE NEGATIVE LINE NUMBER RANGE. 0 Referenced by comments of: 1052/2 01052/011A PASCAL/UBC COMMENTS P S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.COMMENTS 4.3T2 470 PASCAL/UBC.COMMENTS.P.011 1 LINE 68 3 PAGE UBC JOLLIFFE UNSP FEB. 10, 1980 17:43:44 0 THIS FILE CONTAINS A DESCRIPTION OF SOME OF THE FILES ON THE PASCAL DISTRIBUTION TAPE RECEIVED FROM UBC. 01052/012C PASCAL/UBC INSTALL C S1210 PASDIS 'PASCAL DIST' FSNAME=UBC.INSTALL 4.3T2 471 PASCAL/UBC.INSTALL.C.012 1 LINE 79 3 PAGE UM UNSP DEC. 04, 1979 06:42:18 0 THESE ARE THE MTS COMMANDS USED TO INSTALL PASCAL/UBC AT UM. THERE ARE SOME INSTALLATION-DEPENDENCIES (LIKE TAPE RACK NUMBERS) WHICH WILL NEED TO BE CHANGED AT OTHER INSTALLATION. CONTAINS A $CONTINUE WITH UNSP:PAS.BC.LIB (1052/8) RECORD. 01052/013A PASCAL/UBC MANUAL P UNSP:PAS.BC.W 4.3T2 472 PASCAL/UBC.MANUAL.P.013 1 LINE 71 80 PAGE UBC JOLLIFFE UNSP APR. 06, 1980 14:42:23 0 "PASCAL/UBC USER'S GUIDE" (SEPT. 1979 EDITION). 0 Referenced by comments of: 1052/1 01053 *NUMLIB # (NOT DISTRIBUTED) UBC 0 Referenced by comments of: 724/2, 724/3 01054/001A CODING CONVENTIONS MACRO SOURCE SA G S0466 MTSS42 'MTS D4.2 INTERMEDIATE' POSN=CC_MACROS 4.3T2 473 CODING_CONVENTIONS.MACRO.SA.001 1 SEQ 80 155 PAGE UBC BERRYMAN HELFFRICH APR. 06, 1980 14:43:44 0 BASE SOURCE FOR THE NEW MTS CODING CONVENTION MACRO LIBRARY. THIS SOURCE DOES NOT MATCH THE SOURCE SENT OUT ON RD4.2A (RD16), BUT ALL FUTURE UPDATES TO THE CODING CONVENTION MACROS WILL BE BASED ON THIS SOURCE. 1 SUN SEP 08/96 19:03:19 Page 539 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01054/002A CODING CONVENTIONS MACRO UPDATES C G MTS.:CCMACROSUPD 4.3T2 474 CODING_CONVENTIONS.MACRO.C.002 1 LINE 104 10 PAGE UBC BERRYMAN HELFFRICH APR. 06, 1980 14:43:49 0 UPDATE FILE TO BE APPLIED TO 1054/1 TO YIELD CURRENT MACRO LIBRARY (1054/3). ALL CHANGES TO THE CODING CONVENTION MACROS SHOULD BE MADE USING CDUPDATE AND JEFF BERRYMAN AT UBC SHOULD BE KEPT INFORMED. 01054/003A CODING CONVENTIONS CC MACRO LIB SM G COPY:CC.MACROS 4.3T2 475 CODING_CONVENTIONS.CC_MAC.SM.003 1 LINE 78 66 PAGE UBC BERRYMAN HELFFRICH APR. 06, 1980 14:43:50 COPY:CC.MACROS 0 CURRENT VERSION OF THE NEW MTS CODING CONVENTION MACROS. THIS VERSION REPLACES COPY:RMGRMACLIB (1054/5) WHEN ASSEMBLING MTS AND FRIENDS AND SHOULD EVENTUALLY REPLACE COPY:RMGRMACLIB COMPLETELY. NOTE: IN THIS VERSION OF CC.MACROS THE REGISTER CONVENTIONS FOR R12 AND R13 HAVE BEEN REVERSED. 0 Referenced by comments of: 42/1, 198/1, 354/1, 400/4, 400/16, 458/89, 464/1, 513/1, 539/1, 540/27, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1, 651/10, 677/1, 682/22, 721/18, 724/1, 732/1, 769/1, 769/2, 769/3, 769/4, 769/5, 769/6, 769/9, 787/9, 787/11, 1023/1, 1023/3, 1054/2, 1054/5, 1058/3, 1058/4, 1058/5, 1058/6, 1058/7, 1058/8, 1058/9, 1058/10, 1058/11, 1058/12, 1058/13, 4000/1 01054/004 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 HELFFRICH AUG. 30, 1978 22:45:08 0 WRITEUP DESCRIBING CODING CONVENTIONS MACROS. 01054/005A CODING CONVENTIONS RMGR MACRO LIB SM G # COPY:RMGRMACLIB (OBSOLETE) RD16T1 290 CODING_CONVENTIONS.RMGR_M.SM.001 1 LINE 73 110 PAGE UBC BERRYMAN MTA JULY 12, 1979 23:33:14 0 THIS IS THE OBSOLETE RESOURCE MANAGER MACRO LIBRARY. IT HAS BEEN REPLACED BY COPY:RM.MACROS (1041/1) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 1054/3, 1067/2 01055 UBC FEP (PDP-11) # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE UBC FRONT-END PROCESSOR SOFTWARE. 01056 MM # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE MESSAGE MULTIPLEXOR. 01057 UBC FEPDSR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE UBC FRONT-ENDR. PROCESSOR DSR. 1 SUN SEP 08/96 19:03:19 Page 540 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01058/001C SUBTASKING MONITOR WRITEUP P DMGR:MONITOR.W 4.3T2 476 SUBTASKING_MONITOR.WRITEU.P.001 1 LINE 69 16 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:43:58 0 WRITEUP DESCRIBING THE SUBTASKING MONITOR ROUTINES. THIS IS NOT UP-TO-DATE. 0 Referenced by comments of: 787/3 01058/002C SUBTASKING MONITOR APPENDIX P DMGR:MNTNOTES 4.3T2 477 SUBTASKING_MONITOR.APPEND.P.002 1 LINE 68 4 PAGE UM HELFFRICH APR. 06, 1980 14:44:01 0 INFORMAL DESCRIPTION OF DIFFERENCES BETWEEN UM AND UBC VERSIONS OF THE SUBTASKING MONITOR. 01058/003C SUBTASKING MONITOR KERNEL SA G DMGR:MNTMNTR(1000) 4.3T2 478 SUBTASKING_MONITOR.KERNEL.SA.003 1 LINE 72 17 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:03 0 KERNEL SUBTASKING MONITOR ROUTINES WHICH HANDLE SUBTASK SCHEDULING. ASSEMBLE USING COPY:CC.MACROS (1054/3) AND COPY:RM.MACROS (1041). 01058/004C SUBTASKING MONITOR GSFS SA G DMGR:MNTGSFS(1000) 4.3T2 479 SUBTASKING_MONITOR.GSFS.SA.004 1 LINE 72 12 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:10 0 MONITOR GETSPACE/FREESPACE ROUTINES. ASSEMBLE WITH COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041), AND COPY:UC.MACROS (787/1). 01058/005C SUBTASKING MONITOR GFICB SA G DMGR:MNTGFICB.S 4.3T2 480 SUBTASKING_MONITOR.GFICB.SA.005 1 LINE 130 3 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:16 0 INTERRUPT CONTROL BLOCK GET/FREE ROUTINES. ASSEMBLE WITH COPY:CC.MACROS (1054/3) AND COPY:RM.MACROS (1041). 01058/006C SUBTASKING MONITOR GFBUF SA G DMGR:MNTGFBUF.S 4.3T2 481 SUBTASKING_MONITOR.GFBUF.SA.006 1 LINE 130 4 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:18 0 BUFFER GET/FREE ROUTINES. ASSEMBLE WITH COPY:CC.MACROS (1054/3) AND COPY:RM.MACROS (1041). 01058/007C SUBTASKING MONITOR PRV SA G DMGR:MNTPRV(1000) 4.3T2 482 SUBTASKING_MONITOR.PRV.SA.007 1 LINE 71 4 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:21 0 PROTOTYPE MONITOR PSEUDOREGISTER VECTOR AND PSEUDOREGISTER VECTOR INITIALIZATION ROUTINES. ASSEMBLE WITH COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041), AND COPY:UC.MACROS (787/1). 01058/008C SUBTASKING MONITOR ON UNIT SA G DMGR:MNTONUNIT.S 4.3T2 483 SUBTASKING_MONITOR.ON_UNI.SA.008 1 LINE 131 4 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:24 0 MONITOR ROUTINES TO MANAGE THE PROGRAM INTERRUPT AND MESSAGE ON-UNIT STRUCTURES. ASSEMBLE WITH COPY:CC.MACROS (1054/3) AND COPY:RM.MACROS (1041). 01058/009C SUBTASKING MONITOR ASYNCH WAIT SA G DMGR:MNTWAIT(1000) 4.3T2 484 SUBTASKING_MONITOR.ASYNCH.SA.009 1 LINE 72 17 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:26 0 MONITOR SUBROUTINES WHICH CAN CAUSE SUBTASK WAITING. THESE ROUTINES WILL 1 SUN SEP 08/96 19:03:19 Page 541 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CAUSE DISPATCHING OF OTHER NONWAITING SUBTASKS, THUS EFFECTING THE "PARALLEL PROCESSING" OFFERED BY THE MONITOR. ASSEMBLE WITH COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041), AND COPY:UC.MACROS (787/1). 0 Referenced by comments of: 1058/10 01058/010C SUBTASKING MONITOR SYNCH WAIT SA G DMGR:MNTSYNCWAIT(1000) 4.3T2 485 SUBTASKING_MONITOR.SYNCH.SA.010 1 LINE 71 5 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:35 0 MONITOR SUBROUTINES WHICH CAN REPLACE THE ASYNCHRONOUS WAIT ROUTINES (1058/9) IF SYNCHRONOUS OPERATION IS DESIRED. DOING THIS MEANS THAT THE MONITOR NEED NOT BE RUNNING, THAT IS, THE MNTINIT OR MNTMTSI ENTRIES NEED NOT BE INVOKED. ASSEMBLE WITH COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041), AND COPY:UC.MACROS (787/1). 01058/011C SUBTASKING MONITOR SERVICE SA G DMGR:MNTSERV(1000) 4.3T2 486 SUBTASKING_MONITOR.SERVIC.SA.011 1 LINE 72 11 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:37 0 BASIC MONITOR SERVICE ROUTINES TO PROVIDE I/O, INTERTASK MESSAGE, AND INTRATASK MESSAGE-RELATED CAPABILITIES. ASSEMBLE WITH COPY:CC.MACROS (1054/3), COPY:RM.MACROS (1041), AND COPY:UC.MACROS (787/1). 01058/012C SUBTASKING MONITOR DUMP SA G DMGR:MNTDUMP(1000) 4.3T2 487 SUBTASKING_MONITOR.DUMP.SA.012 1 LINE 72 9 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:42 0 MONITOR ROUTINE TO PRODUCE A FORMATTED DUMP OF MONITOR SUBTASK STORAGE. ASSEMBLE WITH COPY:CC.MACROS (1054/3) AND COPY:RM.MACROS (1041). 01058/013C SUBTASKING MONITOR UNIT/NODE RTNS SA G DMGR:MNTUNND(1000) 4.3T2 488 SUBTASKING_MONITOR.UNIT/N.SA.013 1 LINE 72 11 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:45 0 MONITOR I/O UNIT AND INTERTASK NETWORK NODE ALLOCATION AND DEALLOCATION ROUTINES. ASSEMBLE USING COPY:CC.MACROS (1054/3), COPY:RM.MACROS(1041), AND COPY:UC.MACROS (787/1). 01058/014C SUBTASKING MONITOR OBJECT OC G DMGR:MONITOR 4.3T2 489 SUBTASKING_MONITOR.OBJECT.OC.014 1 LINE 4904 22 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:50 0 SUBTASKING MONITOR OBJECT. CONTAINS NCA CARDS FOR MSGRM, RMSTATS, RMACCTNG, AND AN LCS CARD FOR SYSDEFS. 0 Referenced by comments of: 724/2 01058/015C SUBTASKING MONITOR TEST PROGRAM SA G DMGR:MNTTEST(1000) 4.3T2 490 SUBTASKING_MONITOR.TEST_P.SA.015 1 LINE 71 3 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:54 0 DIDDLELY MONITOR TEST PROGRAM. 01058/016C SUBTASKING MONITOR TEST PROGRAM OC G DMGR:MNTTEST(1,998) 4.3T2 491 SUBTASKING_MONITOR.TEST_P.OC.016 1 LINE 80 4 PAGE UBC BOWLER HELFFRICH APR. 06, 1980 14:44:56 1 SUN SEP 08/96 19:03:19 Page 542 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01059 GENERAL_TRANSLATOR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A GENERAL TRANSLATING ROUTINE WHICH OBSOLETES *EBCASC, *ASCEBC, *BCDEBCD, AND *EBCBCD, AS WELL AS PROVIDING SOME NEW TRANSLATING FEATURES. 01060 FILE_CREATE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A ROUTINE TO ATTEMPT TO CREATE ONE OR MORE FILES AND TO CAUSE THE USER TO BE SIGNED OFF IF ANY OF THE FILE CREATE ATTEMPTS FAIL. 01061 PROFILE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, ESTABLISHES DEFAULTS FROM A SIGFILE. 01062 UBC FEP INTERFACE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT INSTALLED AT MICHIGAN. 01064 PDADSR # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A RUDIMENTARY DSR WHICH WILL COMMUNICATE WITH UBC'S PDP-11 FEP OVER THE SINGLE-ADDRESS 2701 INTERFACE. 01065 UBC FEP LOAD & DUMP # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS THE ROM BOOTSTRAP LOADER FOR THE UBC PDP-11S. 01066 SWAT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE MTS DEBUGGING MONITOR. 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 SUN SEP 08/96 19:03:19 Page 543 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (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:RM.MACROS (1041/1). COPIES *GDINFODSECT (594). 0 Referenced by comments of: 1067/4 01067/002A TAPESHARE TSHARESUB SA G S1237 TAPES 'TAPEFS' FSNAME=TSHARESUB 4.3T2 492 TAPESHARE.TSHARESUB.SA.002 1 LINE 73 44 PAGE UBC WHALEY UNSP DEC. 17, 1979 12:30:20 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/5). ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): ADDED P=W? PERMIT STATUS (INITIAL SUBSTRING PERMITTING) AND INCREASED THE NUMBER OF TAPES ONE USER CAN OWN. ***************************************************************************** 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/004A TAPESHARE OE G UNSP:TAPESHARE 4.3T2 493 TAPESHARE..OE.004 1 LINE 14788 5 PAGE UBC WHALEY UNSP APR. 06, 1980 14:46:10 UNSP:TAPESHARE 0 LINKEDITED OBJECT OF TAPESHARE (1067/1), TSHARESUB (1067/2), AND ATTNQ (1067/3). 01067/005A TAPESHARE CHECK SUBR SA G S1237 TAPES 'TAPEFS' FSNAME=TSCHECK 4.3T2 494 TAPESHARE.CHECK_SUBR.SA.005 1 LINE 80 6 PAGE UBC WHALEY UNSP JULY 02, 1979 22:17:23 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). ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): 1 SUN SEP 08/96 19:03:19 Page 544 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ADDED P=W? PERMIT STATUS (INITIAL SUBSTRING PERMITTING) AND INCREASED THE NUMBER OF TAPES ONE USER CAN OWN. ***************************************************************************** 0 Referenced by comments of: 101/1, 101/2 01067/006A TAPESHARE CHECK SUBR OC G # *CLSMOUNT (SEE COMP 101/2) UBC WHALEY UNSP 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 TSHAREID D # MTS:TST.TSHAREID UBC WHALEY UNSP ETC.:TSHAREID 0 DATA FILE USED BY UNSP:TAPESHARE WHICH LISTS THE TAPES OWNED BY EACH USER. THIS FILE IS EMPTY ON THE TEST PACK, WHICH MEANS THAT THERE ARE NO TAPES OWNED BY ANYBODY AND IF TAPES ARE ADDED, THE CORRESPONDING ETC:TAPEx FILE(S) MUST BE CREATED FIRST. USER ID "MTS." MAY BE USED TO PERFORM SUCH TAPE LIBRARIAN FUNCTIONS. 01067/009 TAPESHARE TSMANUAL P S1237 TAPES 'TAPEFS' FSNAME=TS.LIBRMANUAL 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/010A TAPESHARE WRITEUP WT S1237 TAPES 'TAPEFS' FSNAME=TS.V2WRITEUP 4.3T2 495 TAPESHARE.WRITEUP.WT.010 1 LINE 71 3 PAGE UBC WHALEY UNSP JULY 02, 1979 22:14:34 0 VOLUME 2 STYLE USER WRITEUP. ***************************************************************************** THE FOLLOWING CHANGE HAS ALREADY BEEN SENT OUT (ON RD4.2C): CHANGED TO REFLECT ADDITION OF INITIAL SUBSTRING PERMITTING. ***************************************************************************** 01067/011 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 01069 FAKE MM # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT INSTALLED AT MICHIGAN, IS A UTILITY WRITTEN TO TEST THE UBC FEP PROTOCOL. 1 SUN SEP 08/96 19:03:19 Page 545 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01071 3066_JOB # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 01072 UBC TAPE CATALOGUE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT INSTALLED AT MICHIGAN. 01073 SENSE.DATA.INTERPRETER # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 01074 DYNAMIC_STORAGE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 01075 TAPE_REPORT # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 01076/001A MTS/SPIRES PARSER ANALYZER OE O PLUS:ANALYZER 4.3T2 496 MTS/SPIRES_PARSER.ANALYZE.OE.001 1 LINE 32767 15 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:46:19 0 This is complete, linkeditted Analyzer. It is a replacement for the Spires analyzer. The input language processed is completely different. The program contains a reference to the file CODE:ANAL.SYSTERM (1076/2). This is a directory defining the system terminals that are to be recognized. The reference can be changed with the editor. The complete object consists of: PLUS object from ANALYZER*SQ (1076/3) ANALYZER object for Analyzer grammar (1076/5) parser routines from PARSER*OL (1076/6) (INCLUDE@SLI) object module building routines (1042/56) (INCLUDE@SLI) auxiliary table management rtns (1042/76) (INCLUDE@SLI) PLUS:OBJLIB (1042/50) (INCLUDE@SLI) 0 Referenced by comments of: 1042/54, 1042/75, 1042/83, 1042/106 01076/002A MTS/SPIRES PARSER SYS TERMINALS D PLUS:ANAL.SYSTERM 4.3T2 497 MTS/SPIRES_PARSER.SYS_TER.D.002 1 LINE 33 1 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:46:21 0 This file is read by the Analyzer during initialization to define the names and corresponding numbers for the currently allowed system terminals. 1 SUN SEP 08/96 19:03:19 Page 546 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 It contains simply a series of PLUS constant declarations. These declarations are the goal symbol definitions generated by the Analyzer from the grammar defining the syntax of system terminals (1076/10). 0 Referenced by comments of: 1076/1 01076/003A MTS/SPIRES PARSER ANALYZER SRC S+ O S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.ANALYZE.S+.003(1) 87 4.3T2 498 MTS/SPIRES_PARSER.ANALYZE.S+.003 1 LINE 75 18 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:15 0 PLUS source for the Analyzer. Compile this with the following libraries (concatenate together on unit 0): PARSER*SQL (1076/9) PLUS:OBJRTNS*SL (1042/55) PLUS:UTILITY*SL (1042/76) PLUS:SOURCELIB (1042/4) See 1076/1 for description of all the pieces that make up the Analyzer. 0 Referenced by comments of: 1076/1 01076/004A MTS/SPIRES PARSER GRAMMAR S O S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.GRAMMAR.S.004(1) 88 4.3T2 499 MTS/SPIRES_PARSER.GRAMMAR.S.004 1 LINE 107 3 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:19 0 Grammar (input to the Analyzer) defining the analyzer input language. The grammar defines three goals, used for parsing the "system terminals directory", the PAR field from the RUN command, and the actual input grammar. 01076/005A MTS/SPIRES PARSER GRAMMAR OBJ OC O S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.GRAMMAR.OC.005(1) 89 4.3T2 500 MTS/SPIRES_PARSER.GRAMMAR.OC.005 1 LINE 1431 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:23 0 Object code generated by current version of the Analyzer from the current Analyzer grammar. 0 Referenced by comments of: 1076/1 01076/006A MTS/SPIRES PARSER PARSER OL G PLUS:PARSER.OL 4.3T2 501 MTS/SPIRES_PARSER.PARSER.OL.006 1 LINE 3344 11 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:46:33 0 A COPY OF UBC'S PARSER OBJECT LIBRARY WITH A FEW BUGS FIXED AND FILE NAMES CHANGED FOR UM INSTALLATION. 0 Referenced by comments of: 1042/6, 1042/84, 1076/1 01076/007A MTS/SPIRES PARSER PARSER HELP D PLUS:PARSE.HELP 4.3T2 502 MTS/SPIRES_PARSER.PARSER.D.007 1 LINE 71 1 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:46:36 0 This is a help file used by the parser in responding to HELP requests during the built-in error correction 1 SUN SEP 08/96 19:03:19 Page 547 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 process. 0 Referenced by comments of: 1076/8 01076/008A MTS/SPIRES PARSER PARSER SRC S+ G PLUS:PARSER.SQ 4.3T2 503 MTS/SPIRES_PARSER.PARSER.S+.008 1 LINE 101 23 PAGE UBC BALLARD HANSEN APR. 06, 1980 14:46:39 0 A COPY OF UBC'S PARSER WITH A FEW BUGS FIXED. REFERS TO PLUS:PARSE.HELP (1076/7). 01076/009A MTS/SPIRES PARSER PARSER LIB S+ O S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.PARSER.S+.009(1) 93 4.3T2 504 MTS/SPIRES_PARSER.PARSER.S+.009 1 LINE 68 4 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:38 0 This is a PLUS source library containing the definitions of the various parser routines and types. It is required to compile the parser, and any PLUS program using the parser. 0 Referenced by comments of: 1076/3 01076/010A MTS/SPIRES PARSER SYS TERMINALS S O S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.SYS_TER.S.010(1) 94 4.3T2 505 MTS/SPIRES_PARSER.SYS_TER.S.010 1 LINE 92 2 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:42 0 This is the grammar which defines the currently implemented system terminals. The object produced by the analyzer for this grammar is added to the parser library, in effect forming part of the parser. The semantics for these terminals are in the procedure System_Semantics in 1076/8. Note that the declarations produced by the Analyzer from this grammar are inserted in 1076/8, and that a copy of the constant declarations is placed in 1076/2 to define the system terminals to the Analyzer. 0 Referenced by comments of: 1076/2, 1076/11 01076/011A MTS/SPIRES PARSER SYS TERMINALS OC O S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.SYS_TER.OC.011(1) 95 4.3T2 506 MTS/SPIRES_PARSER.SYS_TER.OC.011 1 LINE 660 1 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:45 0 Object generated by Analyzer for the system terminals grammar (1076/10). 01076/012A MTS/SPIRES PARSER WRITEUP WX S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.WRITEUP.WX.012(1) 96 4.3T2 507 MTS/SPIRES_PARSER.WRITEUP.WX.012 1 LINE 114 26 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:48 0 Textform source for writeup on the parser. Note file contains $CONTINUE WITH TXTF:TXTF.PROLOG which must be changed for use elsewhere. (TXTF.PROLOG is distributed by Michigan as UNSP:JONMACLIBTXT (3018/177). Ignore the large number of error messages generated when this is run 1 SUN SEP 08/96 19:03:19 Page 548 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 through Textform. 01076/013A MTS/SPIRES PARSER WRITEUP PX S0931 UBC74 VLO FSNAME=MTS/SPIRES_PARSER.WRITEUP.PX.013(1) 97 4.3T2 508 MTS/SPIRES_PARSER.WRITEUP.PX.013 1 LINE 79 35 PAGE UBC BALLARD HANSEN SEP. 27, 1979 22:07:53 0 $COPYable form of parser writeup. Allow 60 pages, TN printer. 01077/001C SETUP SOURCE S+ G W267:SETUP.SQ(0) 4.3T2 509 SETUP.SOURCE.S+.001 1 LINE 112 18 PAGE UM EADIE APR. 06, 1980 14:46:57 0 PROGRAM FOR SELECTIVE EXECUTION OF MTS COMMANDS AND DEVICE COMMANDS (OF MOST USE IN SIGFILES). COMMANDS IN LINES 0 THROUGH 0.9 INDICATE HOW THIS COMPONENT SHOULD BE INSTALLED. NEEDS GRAMMAR (1077/3) AND THE PLUS SUPERVISOR LIBRARY (1042/78). 01077/002C SETUP OBJECT OE G UNSP:SIGSETUP 4.3T2 510 SETUP.OBJECT.OE.002 1 LINE 32767 10 PAGE UM EADIE UNSP APR. 06, 1980 14:47:01 01077/003C SETUP GRAMMAR D W267:SETUP.GR 4.3T2 511 SETUP.GRAMMAR.D.003 1 LINE 100 3 PAGE UM EADIE APR. 06, 1980 14:47:03 0 Referenced by comments of: 1077/1 01077/004C SETUP WRITEUP P UNSP:SIGSETUP.W 4.3T2 512 SETUP.WRITEUP.P.004 1 LINE 69 6 PAGE UM EADIE UNSP APR. 06, 1980 14:47:05 01078 *VSS # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 01079 UBC VIRTUAL MACHINE # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 01081/001C INTERTASK SA G MTA:IT.S 4.3T2 513 INTERTASK..SA.001 1 LINE 73 53 PAGE UBC O'REILLY MTA APR. 06, 1980 14:47:08 MTA:IT.S 0 SUBROUTINE CALLED BY UMMPS (045/1) TO HANDLE THE INTERTASK SVC. COPIES LLMPSEQU (087), COPY:GLOBALS (1026/3), COPY:IT.DSECTS (1081/3), AND COPY:IT.COPY_SECT (1081/4). ASSEMBLE WITH COPY:UMMPS.MACROS (1081/5) AND COPY:SETPARM (653/1). WARNING: ALTHOUGH THIS HAS BEEN DEBUGGED USING *ITX (1081/16), IT IS NOT USED AT UM AND MAY CONTAIN BUGS. 0 Referenced by comments of: 400/18, 1081/4 1 SUN SEP 08/96 19:03:19 Page 549 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 01081/002C INTERTASK OC G # RESIDENT SYSTEM (SEE COMP 468/1) UBC O'REILLY MTA 01081/003C INTERTASK COPY SECTION 1 SA G COPY:IT.DSECTS 4.3T2 514 INTERTASK.COPY_SECTION_1.SA.003 1 LINE 72 7 PAGE UBC O'REILLY MTA APR. 06, 1980 14:47:22 COPY:IT.DSECTS 0 THIS IS A COPY SECTION THAT SHOULD BE COPIED BY ANY ASSEMBLER PROGRAM THAT USES INTERTASK. IT CONTAINS EQUATES FOR THE VARIOUS INTERTASK OPERATION CODES AND FLAGS, AND ALSO CONTAINS A VARIETY OF DSECTS INTENDED TO BE USED WITH THE SEND, SET EXIT, LIST, AND SENSE OPERATIONS. THE INTERTASK MACROS (1081/5) REQUIRE THE EQUATES IN THIS COPY SECTION. 0 Referenced by comments of: 1081/1, 1081/8, 1081/11, 1081/12, 1081/13, 1081/14, 1081/15, 1081/21, 1081/23, 1081/25 01081/004C INTERTASK COPY SECTION 2 SA G COPY:IT.COPY_SECT 4.3T2 515 INTERTASK.COPY_SECTION_2.SA.004 1 LINE 71 7 PAGE UBC O'REILLY MTA APR. 06, 1980 14:47:24 COPY:IT.COPY_SECT 0 THIS IS A COPY SECTION THAT IS COPIED ONLY BY THE INTERTASK SUBROUTINE ITSELF (1081/1) AND BY THE PRINT DUMP SUBROUTINE (400/18) FOR INTERTASK. IT DEFINES DATA STRUCTURES INTERNAL TO INTERTASK. 0 Referenced by comments of: 400/18, 1081/1 01081/005C INTERTASK MACROS SA G COPY:IT.MACROS 4.3T2 516 INTERTASK.MACROS.SA.005 1 LINE 72 19 PAGE UBC O'REILLY MTA APR. 06, 1980 14:47:27 0 MACROS TO CALL INTERTASK SVC. 0 Referenced by comments of: 45/1, 1081/1, 1081/3, 1081/12, 1081/13, 1081/14, 1081/15 01081/006C INTERTASK WRITEUP WF S0261 UBC55 FSNAME=INTERTASK.DOCUMENTATION.WF.08 8 4.3T2 517 INTERTASK.WRITEUP.WF.006 1 LINE 96 19 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:42:24 0 A WRITEUP DESCRIBING HOW TO USE INTERTASK. 01081/007C INTERTASK WRITEUP PF S0261 UBC55 FSNAME=INTERTASK.DOCUMENTATION.W.09 9 4.3T2 518 INTERTASK.WRITEUP.PF.007 1 LINE 71 22 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:42:32 0 PRINT FILE FOR 1081/6. 01081/008C INTERTASK JOB PROGRAM SA G MTA:IT.JOBPGM.S 4.3T2 519 INTERTASK.JOB_PROGRAM.SA.008 1 LINE 76 11 PAGE UBC O'REILLY MTA APR. 06, 1980 14:50:53 MTA:IT.JOBPGM.S 0 THIS IS THE SOURCE CODE FOR THE INTERTASK JOB PROGRAM. THE JOB PROGRAM DOES NOT PROCESS JOB PARAMETERS, BUT RATHER READS COMMANDS DIRECTLY FROM THE CONSOLE. CURRENTLY, THERE ARE ONLY 2 COMMANDS: LIST AND SENSE. LIST 1 SUN SEP 08/96 19:03:19 Page 550 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 FUNCTION: TO OBTAIN A LIST OF THE NAMES OF ALL NETWORKS IN EXISTENCE. THE LIST COMMAND DOES NOT TAKE PARAMETERS. SENSE NET-NAME FUNCTION: TO SENSE A PARTICULAR NETWORK. THE NETWORK NAME MUST BE SPECIFIED. A SUMMARY OF THE INFORMATION IN THE NETWORK CONTROL BLOCK AND ONE LINE OF INFORMATION PER NODE IS PRINTED. THE INFORMATION IN THE SUMMARY IS SELF-EXPLANATORY. THE INFORMATION IN THE NODE DESCRIPTORS IS LARGELY SELF-EXPLANATORY EXCEPT, PERHAPS, FOR THE INFORMATION APPEARING UNDER THE COLUMN HEADING "STATUS". THIS INFORMATION APPEARS AS A SERIES OF LETTERS; THE LETTERS SHOULD BE INTERPRETED AS FOLLOWS: D -> MEANS NODE HAS BEEN DELETED X -> MEANS NODE HAS AN EXIT SET S -> MEANS EXIT IS SYNCHRONOUS Q -> MEANS NODE HAS A NONEMPTY QUEUE OF MSGS, RECEIPTS, AND NOTIFICATIONS B -> MEANS NODE HAS BEEN BLASTED THE OPTIONAL MODIFIERS ARE: NOHEADER -> TO SUPPRESS THE PRINTING OF THE SUMMARY OF THE INFORMATION FROM THE NETWORK CONTROL BLOCK NONODES -> TO SUPPRESS THE PRINTING OF THE INDIVIDUAL NODE DESCRIPTORS NOTE THAT THIS PROGRAM IS ALSO RUNNABLE DIRECTLY AS A NORMAL MTS PROGRAM. REQUIRES COPY:IT.DSECTS (1081/3). 01081/009C INTERTASK JOB PROGRAM OC G # RESIDENT SYSTEM (SEE COMP 468/1) UBC O'REILLY MTA 01081/010C INTERTASK JOB LIST ENTRY SA G MTA:IT.JLE 4.3T2 520 INTERTASK.JOB_LIST_ENTRY.SA.010 1 LINE 80 1 PAGE UBC O'REILLY MTA APR. 06, 1980 14:50:55 0 JOB LIST ENTRY. 01081/011C INTERTASK ITX SA G S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.29(1) 29 4.3T2 521 INTERTASK.ITX.SA.011 1 LINE 69 13 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:29 0 THIS IS THE SOURCE CODE FOR THE INTERTASK EXERCISER MONITOR. THE INTERTASK EXERCISER IS A FACILITY FOR STARTING UP AN ARBITRARY NUMBER OF REAL TASKS WHICH USE THE INTERTASK FACILITY. WHAT NETWORKS ARE CREATED AND WHICH INTERTASK OPERATIONS ARE USED IS DEFINED BY THE SET OF REPERTOIRE ROUTINES WHICH ARE LOADED ALONG WITH THE INTERTASK EXERCISER MONITOR. 1 SUN SEP 08/96 19:03:19 Page 551 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE PURPOSE OF THE MONITOR IS TO DETERMINE WHICH REPERTOIRE ROUTINES ARE LOADED, AND TO CONTROL THEIR EXECUTION (WHICH MAY BE OVERLAPPED IF REPERTOIRE ROUTINES CHOOSE TO DO THINGS ASYNCHRONOUSLY). IN ESSENCE, THE MONITOR IS A REPERTOIRE ROUTINE DISPATCHER. THE MONITOR IS COMMAND DRIVEN. THERE ARE CURRENTLY 3 COMMANDS: MTS, STOP, AND EXECUTE. FOR A DESCRIPTION OF THESE COMMANDS, REFER TO THE SOURCE LISTING. REQUIRES THE MSG MACROS IN NEW:SYSMAC (225/2), COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3). 0 Referenced by comments of: 1081/19 01081/012C INTERTASK ITX #001 SA G S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.30(1) 30 4.3T2 522 INTERTASK.ITX_#001.SA.012 1 LINE 80 9 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:41 0 THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #001. THIS ROUTINE ONLY USES SYNCHRONOUS INTERTASK OPERATIONS. REQUIRES THE MSG MACROS IN NEW:SYSMAC (225/2), COPY:IT.MACROS (1081/5), COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3). 01081/013C INTERTASK ITX #002 SA G S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.31(1) 31 4.3T2 523 INTERTASK.ITX_#002.SA.013 1 LINE 80 9 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:45 0 THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #002. THIS ROUTINE ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS. REQUIRES THE MSG MACROS IN NEW:SYSMAC (225/2), COPY:IT.MACROS (1081/5), COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3). 01081/014C INTERTASK ITX #003 SA G S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.32(1) 32 4.3T2 524 INTERTASK.ITX_#003.SA.014 1 LINE 80 10 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:52 0 THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #003. THIS ROUTINE ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS AND USES RANDOM MESSAGE LENGTHS AND EXIT BUFFER LENGTHS. REQUIRES THE MSG MACROS IN NEW:SYSMAC (225/2), COPY:IT.MACROS (1081/5), COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3). 01081/015C INTERTASK ITX #004 SA G S0261 UBC55 FSNAME=INTERTASK.EXERCISER.SA.33(1) 33 4.3T2 525 INTERTASK.ITX_#004.SA.015 1 LINE 80 11 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:56 0 THIS IS THE SOURCE CODE FOR THE REPERTOIRE ROUTINE #004. THIS ROUTINE ONLY USES ASYNCHRONOUS INTERTASK OPERATIONS, USES RANDOM MESSAGE LENGTHS AND EXIT BUFFER LENGTHS, AND EXERCISES A FEW OF THE OTHER MORE OBSCURE INTERTASK OPERATIONS LIKE CANCEL MESSAGE, CANCEL EXIT, AND CHANGE NODE ACCESS. REQUIRES THE MSG MACROS IN NEW:SYSMAC (225/2), COPY:IT.MACROS (1081/5), 1 SUN SEP 08/96 19:03:19 Page 552 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COPY:GLOBALS (1026/3), AND COPY:IT.DSECTS (1081/3). 01081/016C INTERTASK ITX OC G SYS:ITX 4.3T2 526 INTERTASK.ITX.OC.016 1 LINE 80 17 PAGE UBC O'REILLY MTA APR. 06, 1980 14:51:20 SYS:ITX 0 OBJECT FOR 1081/11 THROUGH 1081/15 AND 1081/20. NOTE: THIS ALL CAME FROM UBC55 AND THE SOURCE AND OBJECT DO NOT AGREE, BUT THIS FILE WORKS. 0 Referenced by comments of: 1081/1 01081/017C INTERTASK ITX C *ITX 4.3T2 527 INTERTASK.ITX.C.017 1 LINE 24 1 PAGE UBC O'REILLY MTA APR. 06, 1980 14:51:22 *ITX 0 COMMAND FILE TO START 5 TASKS RUNNING ITX FOR 5000 CALLS TO EACH #NNN ROUTINE. USES SYS:ITXCMD (1081/18). 01081/018C INTERTASK ITX C SYS:ITXCMD 4.3T2 528 INTERTASK.ITX.C.018 1 LINE 43 1 PAGE UBC O'REILLY MTA APR. 06, 1980 14:51:24 SYS:ITXCMD 0 Referenced by comments of: 1081/17 01081/019C INTERTASK GETMSG SA G S0261 UBC55 FSNAME=INTERTASK.UTILITY.SA.21(1) 21 4.3T2 529 INTERTASK.GETMSG.SA.019 1 LINE 68 4 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:14 0 THIS IS THE SOURCE CODE FOR A UTILITY PROGRAM WHICH WILL RETURN AN ERROR MESSAGE GIVEN GR0 AND GR1 FROM AN INTERTASK OPERATION. THE CODE IS REENTRANT AND IS INTENDED SOME DAY TO BE PART OF THE RESIDENT SYSTEM. SEE THE SOURCE LISTING FOR DETAILS. CURRENTLY, IT IS USED BY INTERTASK ITX (1081/11). 01081/020C INTERTASK GETMSG OC G S0261 UBC55 FSNAME=INTERTASK.UTILITY.O.22(1) 22 4.3T2 530 INTERTASK.GETMSG.OC.020 1 LINE 80 3 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:15 01081/021C INTERTASK XITPTR SA G S0261 UBC55 FSNAME=INTERTASK.UTILITY.SA.23(1) 23 4.3T2 531 INTERTASK.XITPTR.SA.021 1 LINE 71 4 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:17 0 THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF AN EXIT BUFFER IN A READABLE FORMAT. THIS PROGRAM IS INTENDED TO BE USED FOR DEBUGGING PROGRAMS THAT USE INTERTASK. COPIES COPY:IT.DSECTS (1081/3). ASSEMBLE USING THE MSG MACROS IN NEW:SYSMAC (225/2). 01081/022C INTERTASK XITPTR OC G S0261 UBC55 FSNAME=INTERTASK.UTILITY.O.24(1) 24 4.3T2 532 INTERTASK.XITPTR.OC.022 1 LINE 80 3 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:19 01081/023C INTERTASK SNSPTR SA G S0261 UBC55 FSNAME=INTERTASK.UTILITY.SA.25(1) 25 4.3T2 533 INTERTASK.SNSPTR.SA.023 1 LINE 68 3 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:21 0 THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF A 1 SUN SEP 08/96 19:03:19 Page 553 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 BUFFER AS RETURNED BY AN INTERTASK SENSE OPERATION IN A READABLE FORMAT. THIS PROGRAM IS INTENDED TO BE USED FOR DEBUGGING PROGRAMS THAT USE INTERTASK. COPIES COPY:IT.DSECTS (1081/3). ASSEMBLE USING THE MSG MACROS IN NEW:SYSMAC (225/2). 01081/024C INTERTASK SNSPTR OC G S0261 UBC55 FSNAME=INTERTASK.UTILITY.O.26(1) 26 4.3T2 534 INTERTASK.SNSPTR.OC.024 1 LINE 80 3 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:23 01081/025C INTERTASK LSTPTR SA G S0261 UBC55 FSNAME=INTERTASK.UTILITY.SA.27(1) 27 4.3T2 535 INTERTASK.LSTPTR.SA.025 1 LINE 68 2 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:25 0 THIS IS THE SOURCE CODE FOR A UTILITY WHICH WILL PRINT THE CONTENTS OF A BUFFER AS RETURNED BY AN INTERTASK LIST OPERATION IN A READABLE FORMAT. THIS PROGRAM IS INTENDED TO BE USED FOR DEBUGGING PROGRAMS THAT USE INTERTASK. COPIES COPY:IT.DSECTS (1081/3). ASSEMBLE USING THE MSG MACROS IN NEW:SYSMAC (225/2). 01081/026C INTERTASK LSTPTR OC G S0261 UBC55 FSNAME=INTERTASK.UTILITY.O.28(1) 28 4.3T2 536 INTERTASK.LSTPTR.OC.026 1 LINE 80 1 PAGE UBC O'REILLY MTA AUG. 31, 1977 13:43:27 01082 INDIRECT/RCMSG ROUTINES # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SET OF SUBROUTINES USED BY THE UBC MAIL SYSTEM. THE SUBROUTINES PROVIDE ERROR MESSAGES FOR MOST OF THE MAIL SYSTEM (OS-CALLABLE) SUBROUTINES. 01083 MESSAGE FACILITY # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE RESOURCE MANAGER MESSAGE FACILITY. 01084 TIME ROUTINES # (NOT DISTRIBUTED) UBC 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SET OF TIME AND DATE ROUTINES, WRITTEN IN PLUS. 02001 UNEMAIL # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A MAIL SYSTEM WRITTEN FOR SIGFILE USE. 02002 DIABLO # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO DRIVE A DIABLO PRINTER. 1 SUN SEP 08/96 19:03:19 Page 554 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 02004 NUNET # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT IS NOT INSTALLED AT MICHIGAN. 02005 PRIVATE_DISKS # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE UNE PRIVATE DISK SCHEME. 02006 *TOTPAGES # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, LISTS FREE SPACE ON A NAMED VOLUME, OR ON ALL PUBLIC DISKS IF NO PARAMETER IS GIVEN. 02008 DEVSNIFF # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS PART OF UNE'S IPL SEQUENCE. IT NOTES PRIVATE VOLUMES ALREADY MOUNTED AT IPL IN SHARED STORAGE TABLE. 02013 ASM.PREP # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN ASSEMBLER PREPROCESSOR. 02015 LONG # (NOT DISTRIBUTED) UNE 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PACKAGE TO DO INTEGER ARITHMETIC ON VERY LARGE NUMBERS. 03003/001A *SPIRES DIST NOTES WF DBMS:DISTNOTES 4.3T2 537 SPIRES.DIST_NOTES.WF.001 1 LINE 145 17 PAGE UM BLOCK APR. 06, 1980 14:51:50 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 (3003/2 - 3003/8) files, contain all the necessary instructions for installing SPIRES in MTS. 03003/002 *SPIRES GENSYS.1 C DBMS:GENSYS.1 D4.1T1 670 SPIRES.D4.GENSYS.1.C.002 1 LINE 69 6 PAGE UM BLOCK JAN. 11, 1978 08:26:58 0 MTS commands for setting up the SPIRES files on the ID DBMS. Copies files off the regular Stanford SPIRES distribution and restores files from the distribution tape containing MTS SPIRES. 1 SUN SEP 08/96 19:03:19 Page 555 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03003/003 *SPIRES GENSYS.2 C DBMS:GENSYS.2 D4.1T1 672 SPIRES.D4.GENSYS.2.C.004 1 LINE 83 3 PAGE UM BLOCK JAN. 11, 1978 08:27:03 0 MTS commands for compiling and assembling all the SPIRES source modules. 03003/004 *SPIRES GENSYS.3 C DBMS:GENSYS.3 D4.1T1 674 SPIRES.D4.GENSYS.3.C.006 1 LINE 76 1 PAGE UM BLOCK JAN. 11, 1978 08:27:08 0 MTS commands to set up a linkedited version of SPIRES. 03003/005 *SPIRES GENSYS.4 C DBMS:GENSYS.4 D4.1T1 676 SPIRES.D4.GENSYS.4.C.008 1 LINE 66 1 PAGE UM BLOCK JAN. 11, 1978 08:27:13 0 MTS commands to set up a non-resident public version of SPIRES. The following object files, which must be $CREATEd and $PERMITted before $SOURCing this command file, are constructed: *SPIRES Linkedited object for modules common to all four SPIRES processors. Includes the MTS interface (3003/24), the parser (proprietary source distributed by Stanford), and the build characteristics for the SPIRES system databases (3003/84 - 3003/90). ETC:SPIR.LOAD Linkedited object for the searching and updating SPIRES processor (what you normally get when you $run *SPIRES). Dynamically loaded by SPIRES. ETC:SPIB.LOAD Linkedited object for the "SPIBILD" SPIRES processor (used by the file owner for data base manager sorts of things, i.e., incorporating queued up changes into the data base, adding large amounts of data, etc.). Dynamically loaded by SPIRES. ETC:FAST.LOAD Linkedited object for the "FASTBILD" SPIRES processor (used for adding large amounts of data to a data base, more efficient than SPIBILD for this purpose). Dynamically loaded by SPIRES. ETC:SPIC.LOAD Linkedited object for the "SPICOMP" SPIRES processor (the SPIRES "compiler," used for compiling the various things that need compiling in SPIRES, i.e., data base definitions, SPIRES format definitions, SPIRES protocols, etc.). Dynamically loaded by SPIRES. 03003/006 *SPIRES GENSYS.5 C DBMS:GENSYS.5 D4.1T1 678 SPIRES.D4.GENSYS.5.C.010 1 LINE 66 2 PAGE UM BLOCK JAN. 11, 1978 08:27:17 0 MTS commands to set up a shared VM version of SPIRES. Constructs the the same object files as described in the comments for 3003/5, with the addition of: SEG2:SPIRES Linkedited object for SPIRES modules to be included in shared VM. 1 SUN SEP 08/96 19:03:19 Page 556 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 NOTE: The distributed version of this file places the object contained (in the non-resident version) in the file *SPIRES and ETC:SPIR.LOAD in shared VM. This file can be changed to include more (or less) of SPIRES in shared VM. 03003/007 *SPIRES GENSYS.6 C DBMS:GENSYS.6 UM BLOCK 0 MTS commands to overlay a new version of SPIRES on top of an existing shared VM version. *** Use with extreme care *** ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/008 *SPIRES GENSYS.7 C DBMS:GENSYS.7 UM BLOCK 0 MTS commands to set up the MTS-Spires documentation files. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/009 *SPIRES GENDIST C DBMS:GENDIST D4.1T1 680 SPIRES.*FS_TAPE_GEN.C.012 1 LINE 69 12 PAGE UM BLOCK JAN. 11, 1978 08:27:22 0 MTS commands to generate an MTS-SPIRES distribution tape. Included for informational purposes only. 03003/010A *SPIRES MODS.MTS U DBMS:MODS.MTS 4.3T2 538 SPIRES.MODS.MTS.U.010 1 LINE 142 85 PAGE UM BLOCK APR. 06, 1980 14:51:57 0 MTS changes (in DBMS:UT.UPDATE, comp. 3003/69, form) to all of the SPIRES modules. 03003/011 *SPIRES MODS.790508 U DBMS:MODS.790508 UM BLOCK 0 Stanford updates of 5/8/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 0 Referenced by comments of: 3003/68 1 SUN SEP 08/96 19:03:19 Page 557 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03003/012 *SPIRES MODS.790601 U DBMS:MODS.790601 UM BLOCK 0 Stanford updates of 6/1/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/013 *SPIRES MODS.790604 U DBMS:MODS.790604 UM BLOCK 0 Stanford updates of 6/4/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/014 *SPIRES MODS.790614 U DBMS:MODS.790614 UM BLOCK 0 Stanford updates of 6/14/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/015 *SPIRES MODS.790705 U DBMS:MODS.790705 UM BLOCK 0 Stanford updates of 7/5/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/016 *SPIRES MODS.790710 U DBMS:MODS.790710 UM BLOCK 0 Stanford updates of 7/10/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 1 SUN SEP 08/96 19:03:19 Page 558 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03003/017 *SPIRES MODS.790712 U DBMS:MODS.790712 UM BLOCK 0 Stanford updates of 7/12/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/018 *SPIRES MODS.790713 U DBMS:MODS.790713 UM BLOCK 0 Stanford updates of 7/13/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/019 *SPIRES MODS.790802 U DBMS:MODS.790802 UM BLOCK 0 Stanford updates of 8/2/79. Apply using UT.STANUPD (3003/67). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/020 *SPIRES ANALDRIVER.S SA O DBMS:ANALDRIVER.S D4.1T1 716 SPIRES.ANALDRIVER.S.SA.048 1 LINE 71 1 PAGE UM BLOCK JAN. 11, 1978 08:28:56 0 Driver routines to start up the BNF analyzer. The procedure is similar to that used in MTSINTF (3003/24) to start up the other SPIRES processors. 03003/021 *SPIRES ANALINTF.S S3 O DBMS:ANALINTF.S D4.1T1 717 SPIRES.ANALINTF.S.S3.049 1 LINE 72 3 PAGE UM BLOCK 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 (3003/24) in the other SPIRES processors. 03003/022 *SPIRES ANAL.BN.O OC O DBMS:ANAL.BN.O D4.1T1 718 SPIRES.ANAL.BN.O.OC.050 1 LINE 80 1 PAGE UM BLOCK JAN. 11, 1978 08:29:01 0 Compiled BNF object -- parser tables for the SPIRES BNF analyzer. 1 SUN SEP 08/96 19:03:19 Page 559 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03003/023 *SPIRES AVEC.S SA G DBMS:AVEC.S D4.1T1 723 SPIRES.AVEC.S.SA.055 1 LINE 25 1 PAGE UM BLOCK JAN. 11, 1978 08:29:14 0 Short module used in linking the SPIRES modules together. 03003/024A *SPIRES MTSINTF.S SA G DBMS:MTSINTF.S 4.3T2 539 SPIRES.MTSINTF.S.SA.024 1 LINE 101 114 PAGE UM BLOCK APR. 06, 1980 14:52:12 0 MTS interface routines for SPIRES. Copies *CNFGINFODSECT (654), *GDINFODSECT (594), and *GFINFODSECT (593). 0 Referenced by comments of: 3003/5, 3003/20, 3003/21 03003/025A *SPIRES MTSPRODS.S S3 G DBMS:MTSPRODS.S 4.3T2 540 SPIRES.MTSPRODS.S.S3.025 1 LINE 70 4 PAGE UM BLOCK APR. 06, 1980 14:52:28 0 General purpose semantic module used in implementing various MTS-specific features. 03003/026 *SPIRES SPIRLCS.S SA G DBMS:SPIRLCS.S D4.1T1 726 SPIRES.SPIRLCS.S.SA.058 1 LINE 62 1 PAGE UM BLOCK JAN. 11, 1978 08:29:34 0 "SPIRLCS" lowcore symbol table used by the shared VM version of SPIRES. 03003/027 *SPIRES FILLER.S SA G DBMS:FILLER.S UM BLOCK 0 Defines a 2-page filler region, added at the end of the shared VM version of SPIRES to facilitate overlaying a new version. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/028 *SPIRES SPISORT.S S3 O DBMS:SPISORT.S UM BLOCK 0 Module used by SPIRES for sorting (DEFINE/GENERATE SET commands). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/029 *SPIRES MSGDATA S3 G DBMS:MSGDATA UM BLOCK 0 Error message table used by MSG module of SPIRES to print error messages. Constructed from data in the SYSTEM MESSAGES subfile (3003/35) by the GEN.MSG protocol in PUBLIC PROTOCOLS (3003/36). ********************************************************************************* 1 SUN SEP 08/96 19:03:19 Page 560 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/030 *SPIRES MSGDOC S3 G DBMS:MSGDOC UM BLOCK 0 A list (in the form of PL360 comments) of all the SPIRES error messages. Constructed from data in the SYSTEM MESSAGES subfile (3003/35) by the GEN.MSG protocol in PUBLIC PROTOCOLS (3003/36). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/031 *SPIRES EXPLAIN.BI D S1225 SPIRES FSNAME=EXPLAIN.BI D4.1T1 727 SPIRES.EXPLAIN.BI.D.059 1 LINE 73 115 PAGE UM BLOCK JAN. 11, 1978 08:32:17 0 Source input records for the EXPLAIN subfile. 03003/032 *SPIRES FILEDEF.BI D S1225 SPIRES FSNAME=FILEDEF.BI D4.1T1 728 SPIRES.FILEDEF.BI.D.060 1 LINE 73 24 PAGE UM BLOCK JAN. 11, 1978 08:32:29 0 Source input records for the FILEDEF subfile. 03003/033 *SPIRES FORMATS.BI D S1225 SPIRES FSNAME=FORMATS.BI D4.1T1 729 SPIRES.FORMATS.BI.D.061 1 LINE 73 16 PAGE UM BLOCK JAN. 11, 1978 08:32:34 0 Source input records for the FORMATS subfile. 03003/034 *SPIRES MACROS.BI D S1225 SPIRES FSNAME=MACROS.BI D4.1T1 730 SPIRES.MACROS.BI.D.062 1 LINE 71 3 PAGE UM BLOCK JAN. 11, 1978 08:32:38 0 Source input records for the MACROS subfile. 03003/035 *SPIRES MESSAGES.BI D S1225 SPIRES FSNAME=MESSAGES.BI D4.1T1 731 SPIRES.MESSAGES.BI.D.063 1 LINE 73 45 PAGE UM BLOCK JAN. 11, 1978 08:32:40 0 Source input records for the SYSTEM MESSAGES subfile. 0 Referenced by comments of: 3003/29, 3003/30 03003/036A *SPIRES PROTOCOL.BI D S1225 SPIRES FSNAME=PROTOCOL.BI 4.3T2 541 SPIRES.PROTOCOL.BI.D.036 1 LINE 120 16 PAGE UM BLOCK AUG. 12, 1979 22:20:19 0 Source input records for the PROTOCOL subfile. 0 Referenced by comments of: 3003/29, 3003/30 1 SUN SEP 08/96 19:03:19 Page 561 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03003/037 *SPIRES SYSPROTO.BI D S1225 SPIRES FSNAME=SYSPROTO.BI D4.1T1 733 SPIRES.SYSPROTO.BI.D.065 1 LINE 31 4 PAGE UM BLOCK JAN. 11, 1978 08:32:50 0 Source input records for the SYS PROTO subfile. 03003/038 *SPIRES TUTORIAL.BI D S1225 SPIRES FSNAME=TUTORIAL.BI D4.1T1 734 SPIRES.TUTORIAL.BI.D.066 1 LINE 73 9 PAGE UM BLOCK JAN. 11, 1978 08:32:52 0 Source input records for the TUTORIALS subfile. 03003/039 *SPIRES VGROUPS.BI D S1225 SPIRES FSNAME=VGROUPS.BI D4.1T1 735 SPIRES.VGROUPS.BI.D.067 1 LINE 31 1 PAGE UM BLOCK JAN. 11, 1978 08:32:54 0 Source input records for the VGROUPS subfile. 03003/040 *SPIRES COMMENTS.BI D S1225 SPIRES FSNAME=COMMENTS.BI UM BLOCK 0 Source input records for the COMMENTS subfile. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/041 *SPIRES M.FILEDEF.BI D S1225 SPIRES FSNAME=DBMD:M.FILEDEF.BI UM BLOCK 0 Source input records for the FILEDEF MANUAL subfile. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/042 *SPIRES M.FORMATS.BI D S1225 SPIRES FSNAME=DBMD:M.FORMATS.BI UM BLOCK 0 Source input records for the FORMATS MANUAL subfile. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/043 *SPIRES M.PROTO.BI D S1225 SPIRES FSNAME=DBMD:M.PROTO.BI UM BLOCK 0 Source input records for the PROTOCOLS MANUAL subfile. ********************************************************************************* 1 SUN SEP 08/96 19:03:19 Page 562 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/044A *SPIRES M.USER.BI D S1225 SPIRES FSNAME=DBMD:M.USER.BI 4.3T2 542 SPIRES.M.USER.BI.D.044 1 LINE 121 185 PAGE UM BLOCK AUG. 12, 1979 22:21:20 0 Source input records for the USER MANUAL subfile. 03003/045 *SPIRES M.PRIMER.BI D S1225 SPIRES FSNAME=DBMD:M.PRIMER.BI UM BLOCK 0 Source input records for the PRIMER subfile. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/046 *SPIRES M.MANAGE.BI D S1225 SPIRES FSNAME=DBMD:M.MANAGE.BI UM BLOCK 0 Source input records for the DATA BASE MANAGEMENT subfile. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/047 *SPIRES M.NOTES.BI D S1225 SPIRES FSNAME=DBMD:M.NOTES.BI UM BLOCK 0 Source input records for the CLASS NOTES subfile. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/048 *SPIRES STANWORDS.BI D S1225 SPIRES FSNAME=DBMD:STANWORDS.BI UM BLOCK 0 Source input records for the FILEDEF.SW subfile. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 1 SUN SEP 08/96 19:03:19 Page 563 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03003/049 *SPIRES MANUAL.BI D S1225 SPIRES FSNAME=DBMD:MANUAL.BI UM BLOCK 0 Source input records for the MANUALS subfile. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/050 *SPIRES DOC.FILEDEF P DBMD:DOC.FILEDEF D4.1T1 740 SPIRES.DOC.FILEDEF.PF.072 1 LINE 106 215 PAGE UM BLOCK JAN. 11, 1978 08:33:10 0 The Stanford SPIRES File Definition Manual. (..PUBLISHed from the FILEDEF MANUAL subfile, comp. 3003/41) 0 Referenced by comments of: 3003/58 03003/051 *SPIRES DOC.FORMATS P DBMD:DOC.FORMATS D4.1T1 742 SPIRES.DOC.FORMATS.P.074 1 LINE 85 79 PAGE UM BLOCK JAN. 11, 1978 08:34:18 0 The Stanford FORMATS Manual, not complete, not revised for MTS. It will be rewritten at Stanford - currently it's all there is. (..PUBLISHed from the FORMATS MANUAL subfile, comp. 3003/42.) 03003/052 *SPIRES DOC.PROTOCOL P DBMD:DOC.PROTOCOL D4.1T1 746 SPIRES.DOC.PROTOCOL.P.078 1 LINE 85 92 PAGE UM BLOCK JAN. 11, 1978 08:34:36 0 The Stanford PROTOCOLS Manual. Not revised for MTS. (..PUBLISHed from the PROTOCOLS MANUAL subfile, comp. 3003/43.) 03003/053A *SPIRES DOC.USER PF DBMD:DOC.USER 4.3T2 543 SPIRES.DOC.USER.PF.053 1 LINE 78 142 PAGE UM BLOCK APR. 06, 1980 14:55:45 0 The Stanford SPIRES User Manual. Not revised for MTS. (..PUBLISHed from the USER MANUAL subfile, comp. 3003/44.) 03003/054 *SPIRES DOC.PRIMER P DBMD:DOC.PRIMER UM BLOCK 0 The Stanford "Introduction to SPIRES" sort of manual. Not revised for MTS. (..PUBLISHed from the PRIMER subfile, comp. 3003/45.) ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/055 *SPIRES DOC.MANAGE P DBMD:DOC.MANAGE UM BLOCK 0 The unrevised Stanford Data Base Management manual. Similar in content 1 SUN SEP 08/96 19:03:19 Page 564 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 to Ron Senda's Record Management Manual. (..PUBLISHed from the DATA BASE MANAGEMENT subfile, comp. 3003/46.) ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/056 *SPIRES DOC.NOTES P DBMD:DOC.NOTES D4.1T1 743 SPIRES.DOC.INTRO.P.075 1 LINE 90 18 PAGE UM BLOCK JAN. 11, 1978 08:34:26 0 A set of notes used with an introductory class on SPIRES at Stanford. (..PUBLISHed from the CLASS NOTES subfile, comp. 3003/47.) 03003/057 *SPIRES DOC.NEWS P DBMD:DOC.NEWS D4.1T1 744 SPIRES.DOC.NEWS.P.076 1 LINE 81 11 PAGE UM BLOCK JAN. 11, 1978 08:34:30 0 A file of SPIRES news items describing changes to SPIRES over the past several years. For some features, the only documentation available is in this file. 03003/058 *SPIRES DOC.FASTBILD PF DBMD:DOC.FASTBILD D4.1T1 738 SPIRES.DOC.FASTBILD.PF.070 1 LINE 75 3 PAGE UM BLOCK JAN. 11, 1978 08:33:05 0 Preliminary documentation for the FASTBILD processor. Eventually will be incorporated into the File Definition manual (3003/50). 03003/059 *SPIRES FMT.FASTBILD WF DBMD:FMT.FASTBILD D4.1T1 739 SPIRES.FMT.FASTBILD.WF.071 1 LINE 107 3 PAGE UM BLOCK JAN. 11, 1978 08:33:07 0 *FORMAT source for DOC.FASTBILD. 03003/060 *SPIRES DOC.PARTIAL P DBMD:DOC.PARTIAL D4.1T1 745 SPIRES.DOC.PARTIAL.P.077 1 LINE 69 5 PAGE UM BLOCK JAN. 11, 1978 08:34:33 0 An old, partially obsolete, document on the Partial Record Processing commands. Will be ditched when the Record Management Manual (being written at UQV by Ron Senda) is completed. 03003/061 *SPIRES DOC.SORTING PF DBMD:DOC.SORTING D4.1T1 749 SPIRES.DOC.SORTING.P.081 1 LINE 79 5 PAGE UM BLOCK JAN. 11, 1978 08:34:53 0 A discussion, written at Stanford and revised for MTS, of the various sorting techniques available in SPIRES. Eventually will be incorporated in one of the other manuals. 03003/062 *SPIRES FMT.SORTING WF DBMD:FMT.SORTING UM BLOCK 0 *FORMAT source for DOC.SORTING. ********************************************************************************* 1 SUN SEP 08/96 19:03:19 Page 565 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/063 *SPIRES DOC.RECMANAG P DBMD:DOC.RECMAN D4.1T1 747 SPIRES.DOC.RECMANAG.PF.079 1 LINE 73 22 PAGE UM BLOCK JAN. 11, 1978 08:34:47 0 A preliminary draft of the Record Management Manual being written at UQV. A more recent version is available from Ron Senda at UQV. 03003/064 *SPIRES MEMO 337 PF DBMD:DOC.MEMO337 D4T3 629 SPIRES.MEMO_337.PF.074 1 LINE 86 121 PAGE UM BLOCK JUNE 25, 1977 11:06:52 0 UM Computing Center Memo 337, "SPIRES Searching and Updating". 03003/065 *SPIRES MEMO 337 WF DBMD:FMT.MEMO337 D4T3 628 SPIRES.MEMO_337.WF.073 1 LINE 147 89 PAGE UM BLOCK JULY 29, 1977 00:27:24 0 *FORMAT source for Memo 337. 03003/066 *SPIRES UT.STANUPD OC DBMS:UT.STANUPD UM BLOCK 0 SPITBOL program to apply Stanford-produced update decks to the various PL360 source (and SPIRES BNF) source modules. 03003/067 *SPIRES UT.STANUPD.S SS G DBMS:UT.STANUPD.S D4.1T1 758 SPIRES.UT.STANUPD.SS.092 1 LINE 132 12 PAGE UM BLOCK JAN. 11, 1978 08:35:49 0 SPITBOL source for UT.STANUPD. 0 Referenced by comments of: 3003/11, 3003/12, 3003/13, 3003/14, 3003/15, 3003/16, 3003/17, 3003/18, 3003/19 03003/068 *SPIRES UT.UPDATE OC DBMS:UT.UPDATE UM BLOCK 0 PLUS program used to process the MTS SPIRES updates contained in the file MODS.MTS (3003/11). $CONTINUEs WITH DBMS:PLUS.FCNS (3003/76). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 0 Referenced by comments of: 3003/69 03003/069 *SPIRES UT.UPDATE.S S+ G DBMS:UT.UPDATE.S UM BLOCK 0 PLUS (1042) source for UT.UPDATE. Lines 0 to .999 contains commands for compilation into UT.UPDATE (3003/68). 1 SUN SEP 08/96 19:03:19 Page 566 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 0 Referenced by comments of: 3003/76 03003/070 *SPIRES UT.UPDATELIB S+ DBMS:UT.UPDATELIB UM BLOCK 0 PLUS source library to be used when compiling UT.UPDATE.S. $CONTINUEs WITH PLUS.SLIB (3003/78). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/071 *SPIRES UT.UPDATE.W P DBMS:UT.UPDATE.W UM BLOCK 0 Description of the UT.UPDATE program. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/072 *SPIRES UT.LOCKMOD SG G DBMS:UT.LOCKMOD D4.1T1 757 SPIRES.UT.LOCKMOD.SG.091 1 LINE 80 2 PAGE UM BLOCK JAN. 11, 1978 08:35:47 0 GOM program (in negative line number range) to lock a file for MOD. While waiting to lock, it lets through tasks which only need to lock for read. 03003/073 *SPIRES UT.BCFILES C DBMS:UT.BCFILES UM BLOCK 0 A source file which can be used to construct the various BC.? files (3003/84 -3003/90) for a working version of SPIRES. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/074 *SPIRES UT.CHANGEID C DBMS:UT.CHANGEID D4.1T1 752 SPIRES.UT.CHANGEID.C.086 1 LINE 55 1 PAGE UM BLOCK JAN. 11, 1978 08:35:33 0 A source file for use in scanning an object deck for "DBMS" and changing each occurence to some other ccid. Useful for bringing up a test version 1 SUN SEP 08/96 19:03:19 Page 567 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 of SPIRES on an id other than DBMS. 03003/075 *SPIRES UT.DEBUG C DBMS:UT.DEBUG UM BLOCK 0 An SDS command file useful when debugging SPIRES (the usual sequence is: $Debug TESTLOAD +set input=UT.DEBUG ). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/076 *SPIRES PLUS.FCNS OC DBMS:PLUS.FCNS UM BLOCK 0 A collection of general PLUS (1042) functions used by UT.UPDATE (3003/69). $CONTINUEs with NEW:PLUS.OBJLIB (1042/50), the PLUS object library. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 0 Referenced by comments of: 3003/68, 3003/77 03003/077 *SPIRES PLUS.FCNS.S S+ G S1225 SPIRES FSNAME=PLUS.FCNS.S UM BLOCK 0 PLUS (1042) source for PLUS.FCNS (3003/76). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 0 Referenced by comments of: 3003/78 03003/078 *SPIRES PLUS.SLIB S+ G DBMS:PLUS.SLIB UM BLOCK 0 A general PLUS (1042) source library, containing definitions of the functions in PLUS.FCNS (3003/77) and some useful type declarations and system subroutine interfaces (for PLUS). $CONTINUEs WITH NEW:PLUS.SOURCEL (1042/4), the PLUS source library. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. 1 SUN SEP 08/96 19:03:19 Page 568 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ********************************************************************************* 0 Referenced by comments of: 3003/70 03003/079 *SPIRES *OVRFDEF C *OVRFDEF D4.1T1 759 SPIRES.*OVRFDEF.C.093 1 LINE 67 1 PAGE UM BLOCK JAN. 11, 1978 08:35:53 0 SPIRES "overnight" processor for the FILEDEF subfile. 03003/080 *SPIRES *OVRFMT C *OVRFMT D4.1T1 760 SPIRES.*OVRFMT.C.094 1 LINE 67 1 PAGE UM BLOCK JAN. 11, 1978 08:35:55 0 SPIRES "overnight" processor for the FORMATS subfile. 03003/081 *SPIRES *OVRPEOP C *OVRPEOP D4.1T1 761 SPIRES.*OVRPEOP.C.095 1 LINE 66 1 PAGE UM BLOCK JAN. 11, 1978 08:35:57 0 SPIRES "overnight" processor for the PEOPLE subfile. 03003/082 *SPIRES *OVRREST C *OVRREST D4.1T1 762 SPIRES.*OVRREST.C.096 1 LINE 70 1 PAGE UM BLOCK JAN. 11, 1978 08:36:00 0 SPIRES "overnight" processor for the RESTAURANTS subfile. 03003/083 *SPIRES ONCEAWEEK C DBMS:ONCEAWEEK D4.1T1 763 SPIRES.ONCEADAY.C.097 1 LINE 87 2 PAGE UM BLOCK JAN. 11, 1978 08:36:02 0 Command file used periodically to check the status of *SPIRES. 03003/084 *SPIRES BC.EXPS D S1225 SPIRES FSNAME=BC.EXPS D4.1T1 765 SPIRES.BC.EXPS.D.099 1 LINE 80 1 PAGE UM BLOCK JAN. 11, 1978 08:36:07 0 Build characteristics for the EXPLAIN file. 03003/085 *SPIRES BC.FDEF D S1225 SPIRES FSNAME=BC.FDEF D4.1T1 766 SPIRES.BC.FDEF.D.100 1 LINE 80 1 PAGE UM BLOCK JAN. 11, 1978 08:36:09 0 Build characteristics for the FILEDEF file. 03003/086 *SPIRES BC.FORM D S1225 SPIRES FSNAME=BC.FORM D4.1T1 767 SPIRES.BC.FORM.D.101 1 LINE 80 1 PAGE UM BLOCK JAN. 11, 1978 08:36:12 0 Build characteristics for the FORMATS file. 03003/087 *SPIRES BC.FUNS D S1225 SPIRES FSNAME=BC.FUNS D4.1T1 768 SPIRES.BC.FUNS.D.102 1 LINE 80 1 PAGE UM BLOCK JAN. 11, 1978 08:36:14 0 Build characteristics for the DATA file (record 1). 03003/088 *SPIRES BC.MAIL D S1225 SPIRES FSNAME=BC.MAIL D4.1T1 769 SPIRES.BC.MAIL.D.103 1 LINE 80 1 PAGE UM BLOCK JAN. 11, 1978 08:36:17 0 Build characteristics for the MAIL file. 1 SUN SEP 08/96 19:03:19 Page 569 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03003/089 *SPIRES BC.VARS D S1225 SPIRES FSNAME=BC.VARS D4.1T1 770 SPIRES.BC.VARS.D.104 1 LINE 80 1 PAGE UM BLOCK JAN. 11, 1978 08:36:19 0 Build characteristics for the DATA file (record 2). 03003/090 *SPIRES BC.XEQS D S1225 SPIRES FSNAME=BC.XEQS D4.1T1 771 SPIRES.BC.XEQS.D.105 1 LINE 80 1 PAGE UM BLOCK JAN. 11, 1978 08:36:21 0 Build characteristics for the XEQSFILE file. 03003/091 *SPIRES FILEDEF/A D S1225 SPIRES FSNAME=FILEDEF/A D4.1T1 772 SPIRES.FILEDEF/A.D.106 1 LINE 2048 21 PAGE UM BLOCK JAN. 11, 1978 08:50:17 0 Part of the FILEDEF SPIRES-file. 03003/092 *SPIRES FILEDEF/Q D S1225 SPIRES FSNAME=FILEDEF/Q D4.1T1 773 SPIRES.FILEDEF/Q.D.107 1 LINE 2048 3 PAGE UM BLOCK JAN. 11, 1978 08:50:20 0 Part of the FILEDEF SPIRES-file. 03003/093 *SPIRES DATA/A D S1225 SPIRES FSNAME=DATA/A D4.1T1 778 SPIRES.DATA/A.D.112 1 LINE 2048 5 PAGE UM BLOCK JAN. 11, 1978 08:52:40 0 Part of the DATA SPIRES-file. 03003/094 *SPIRES DATA/Q D S1225 SPIRES FSNAME=DATA/Q D4.1T1 779 SPIRES.DATA/Q.D.113 1 LINE 2048 3 PAGE UM BLOCK JAN. 11, 1978 08:52:44 0 Part of the DATA SPIRES-file. 03003/095 *SPIRES MAIL/A D S1225 SPIRES FSNAME=MAIL/A D4.1T1 783 SPIRES.MAIL/A.D.117 1 LINE 2048 22 PAGE UM BLOCK JAN. 11, 1978 08:56:15 0 Part of the MAIL SPIRES-file. 03003/096 *SPIRES MAIL/Q D S1225 SPIRES FSNAME=MAIL/Q D4.1T1 784 SPIRES.MAIL/Q.D.118 1 LINE 2048 3 PAGE UM BLOCK JAN. 11, 1978 08:56:19 0 Part of the MAIL SPIRES-file. 03003/097 *SPIRES EXPLAIN/A D S1225 SPIRES FSNAME=EXPLAIN/A D4.1T1 789 SPIRES.EXPLAIN/A.D.123 1 LINE 2048 117 PAGE UM BLOCK JAN. 11, 1978 09:00:21 0 Part of the EXPLAIN SPIRES-file. 03003/098 *SPIRES EXPLAIN/Q D S1225 SPIRES FSNAME=EXPLAIN/Q D4.1T1 790 SPIRES.EXPLAIN/Q.D.124 1 LINE 2048 3 PAGE UM BLOCK JAN. 11, 1978 09:00:30 0 Part of the EXPLAIN SPIRES-file. 03003/099 *SPIRES MACROS/A D S1225 SPIRES FSNAME=MACROS/A D4.1T1 795 SPIRES.MACROS/A.D.129 1 LINE 2048 6 PAGE UM BLOCK JAN. 11, 1978 09:03:26 0 Part of the MACROS SPIRES-file. 1 SUN SEP 08/96 19:03:19 Page 570 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03003/100 *SPIRES MACROS/Q D S1225 SPIRES FSNAME=MACROS/Q D4.1T1 796 SPIRES.MACROS/Q.D.130 1 LINE 2048 3 PAGE UM BLOCK JAN. 11, 1978 09:03:28 0 Part of the MACROS SPIRES-file. 03003/101 *SPIRES FORMATS/A D S1225 SPIRES FSNAME=FORMATS/A D4.1T1 801 SPIRES.FORMATS/A.D.135 1 LINE 2048 33 PAGE UM BLOCK JAN. 11, 1978 09:09:45 0 Part of the FORMATS SPIRES-file. 03003/102 *SPIRES FORMATS/Q D S1225 SPIRES FSNAME=FORMATS/Q D4.1T1 802 SPIRES.FORMATS/Q.D.136 1 LINE 2048 3 PAGE UM BLOCK JAN. 11, 1978 09:09:49 0 Part of the FORMATS SPIRES-file. 03003/103 *SPIRES SYSLOG/A D S1225 SPIRES FSNAME=SYSLOG/A D4.1T1 807 SPIRES.SYSLOG/A.D.141 1 LINE 2048 4 PAGE UM BLOCK JAN. 11, 1978 09:12:22 0 Part of the SYSLOG SPIRES-file. 03003/104 *SPIRES SYSLOG/Q D S1225 SPIRES FSNAME=SYSLOG/Q D4.1T1 808 SPIRES.SYSLOG/Q.D.142 1 LINE 2048 3 PAGE UM BLOCK JAN. 11, 1978 09:12:24 0 Part of the SYSLOG SPIRES-file. 03003/105 *SPIRES XEQSFILE/A D S1225 SPIRES FSNAME=XEQSFILE/A D4.1T1 812 SPIRES.XEQSFILE/A.D.146 1 LINE 2048 4 PAGE UM BLOCK JAN. 11, 1978 09:14:27 0 Part of the XEQSFILE SPIRES-file. 03003/106 *SPIRES XEQSFILE/Q D S1225 SPIRES FSNAME=XEQSFILE/Q D4.1T1 813 SPIRES.XEQSFILE/Q.D.147 1 LINE 2048 3 PAGE UM BLOCK JAN. 11, 1978 09:14:29 0 Part of the XEQSFILE SPIRES-file. 03003/107 *SPIRES REPORT/A D S1225 SPIRES FSNAME=REPORT/A UM BLOCK 0 Part of the REPORT file (used by TRG - Table Report Generator). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/108 *SPIRES REPORT/Q D S1225 SPIRES FSNAME=REPORT/Q UM BLOCK 0 Part of the REPORT file. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. 1 SUN SEP 08/96 19:03:19 Page 571 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ********************************************************************************* 03003/109 *SPIRES LOG/A D S1225 SPIRES FSNAME=LOG/A UM BLOCK 0 Part of the LOG file (used by the *OVR-jobs and ONCEAWEEK). ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/110 *SPIRES LOG/Q D S1225 SPIRES FSNAME=LOG/Q UM BLOCK 0 Part of the LOG file. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/111 *SPIRES COMMENTS/A D S1225 SPIRES FSNAME=COMMENTS/A UM BLOCK 0 Part of the COMMENTS file. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/112 *SPIRES COMMENTS/Q D S1225 SPIRES FSNAME=COMMENTS/Q UM BLOCK 0 Part of the COMMENTS file. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/113 *SPIRES PROTO.FD D DBMS:PROTO.FD UM BLOCK 0 The file definition of a general user PROTOCOL subfile. Used by the BUILD.PROTOCOL.FILE protocol in PUBLIC PROTOCOLS. ********************************************************************************* 1 SUN SEP 08/96 19:03:19 Page 572 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/114 *SPIRES PROTO.F D DBMS:PROTO.F UM BLOCK 0 The format for a general user PROTOCOL subfile. Used by the BUILD.PROTOCOL.FILE protocol in PUBLIC PROTOCOLS. ********************************************************************************* THIS WAS PREVIOUSLY DISTRIBUTED ON THE STANFORD MTS DISTRIBUTION. ********************************************************************************* 03003/115 *SPIRES REST.FD D S1225 SPIRES FSNAME=REST.FD D4.1T1 817 SPIRES.REST.FD.D.151 1 LINE 72 3 PAGE UM BLOCK JAN. 11, 1978 09:17:24 0 File definition for UM's RESTAURANTS subfile (for testing). 03003/116 *SPIRES REST.FMT D S1225 SPIRES FSNAME=REST.FMT D4.1T1 818 SPIRES.REST.FMT.D.152 1 LINE 56 1 PAGE UM BLOCK JAN. 11, 1978 09:17:28 0 Output format for use with UM's RESTAURANTS subfile (for testing). 03003/117 *SPIRES REST.BI D S1225 SPIRES FSNAME=REST.BI D4.1T1 819 SPIRES.REST.BI.D.153 1 LINE 72 4 PAGE UM BLOCK JAN. 11, 1978 09:17:30 0 Sample input records for the UM RESTAURANTS subfile (for testing). 03003/118 *SPIRES PEOPLE.FD D S1225 SPIRES FSNAME=PEOPLE.FD D4.1T1 820 SPIRES.PEOPLE.FD.D.154 1 LINE 72 3 PAGE UM BLOCK JAN. 11, 1978 09:17:34 0 File definition for UM's PEOPLE subfile (for testing). 03003/119 *SPIRES PEOPLE.BI D S1225 SPIRES FSNAME=PEOPLE.BI D4.1T1 821 SPIRES.PEOPLE.BI.D.155 1 LINE 73 4 PAGE UM BLOCK JAN. 11, 1978 09:17:36 0 Sample input records for the UM PEOPLE subfile (for testing). 03003/120 *SPIRES SPIRES/COMZ D S1225 SPIRES FSNAME=SPIRES/COMZ D4.1T1 822 SPIRES.D4.COMZ.D.156 1 LINE 256 1 PAGE UM BLOCK JAN. 11, 1978 09:17:40 0 System file for storing message-of-the-day and the current master accounts. 03003/121 *SPIRES TESTLOAD OC G DBMS:TESTLOAD D4.1T1 824 SPIRES.TESTLOAD.OC.158 1 LINE 85 1 PAGE UM BLOCK JAN. 11, 1978 09:17:47 0 File used in loading non-linkedited test versions of SPIRES. 1 SUN SEP 08/96 19:03:19 Page 573 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03006 *PL1SYN # (NOT DISTRIBUTED) UQV 03007 APLUTIL # (NOT DISTRIBUTED) UQV 03011/001 *FLOWCHART IBM SOURCE SA O S0565 D4T3 VLO FSNAME=FLOWCHART.IBM_SOURCE.SA.001(1) 681 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 S1143 D4.1T1 VLO FSNAME=FLOWCHART.MTS_UPDATE.UU.002(1) 825 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 S1143 D4.1T1 VLO FSNAME=FLOWCHART.MTS_SOURCE.SA.003(1) 826 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 S1143 D4.1T1 VLO FSNAME=FLOWCHART.OBJECT.OC.004(1) 827 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 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. 1 SUN SEP 08/96 19:03:19 Page 574 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 03012 TYPESET # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN.Y 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. 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. 1 SUN SEP 08/96 19:03:19 Page 575 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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. 1 SUN SEP 08/96 19:03:19 Page 576 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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. 1 SUN SEP 08/96 19:03:19 Page 577 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 Page 578 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 03014 UQV FEP # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE 360 SIDEY OF THE UQV FRONT END DSR. 1 SUN SEP 08/96 19:03:19 Page 579 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03016 APLSV # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE SV VERSION OF APL. 03017 *DES # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DATA ENTRY SYSTEM, A HOME-GROWN VERSION OF VIDEO 370. 03018/001 TEXTFORM DESIGN SPECS WF # NOT DISTRIBUTED BY UQV 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 1 SUN SEP 08/96 19:03:19 Page 580 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 Page 581 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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), 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). 1 SUN SEP 08/96 19:03:19 Page 582 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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) 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, 3018/174 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). 1 SUN SEP 08/96 19:03:19 Page 583 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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). 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). 1 SUN SEP 08/96 19:03:19 Page 584 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 03018/035A TEXTFORM OD.AJ832 SA G TXTF:OD.AJ832.S 4.3T2 544 TEXTFORM.OD.AJ832.SA.035 1 LINE 80 31 PAGE UQV TXTFGROUP LIFT APR. 06, 1980 14:55:58 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). _*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_* THIS DISTRIBUTION, D4.3, REFLECTS THE CURRENTLY INSTALLED VERSION OF TEXTFORM AT UM, AND NOT THE MARCH 1980 TAPE DISTRIBUTED BY ALBERTA. _*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_* ***************************************************************************** D4.3 CHANGES: FIXED FONT-CHANGING BUG. ***************************************************************************** 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 1 SUN SEP 08/96 19:03:19 Page 585 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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). 1 SUN SEP 08/96 19:03:19 Page 586 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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). 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). 1 SUN SEP 08/96 19:03:19 Page 587 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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). 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). 1 SUN SEP 08/96 19:03:19 Page 588 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/150, 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/150, 3018/152, 3018/154, 3018/155, 3018/161, 3018/174 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 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. 1 SUN SEP 08/96 19:03:19 Page 589 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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). 1 SUN SEP 08/96 19:03:19 Page 590 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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" 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. 1 SUN SEP 08/96 19:03:19 Page 591 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/092A TEXTFORM WIDTHS D G ETC:TXTFWIDS 4.3T2 545 TEXTFORM.WIDTHS.D.092 1 LINE 1653 152 PAGE UQV TXTFGROUP LIFT APR. 06, 1980 14:56:02 ETC:TXTFWIDS 0 WIDTH TABLES "LIBRARY" FOR OUTPUT PROCESSORS, AS CREATED BY TBLGEN (3018/39). ***************************************************************************** D4.3 CHANGES: WIDTH TABLES FOR SPINWRITER AND DIABLO 1620 ADDED. THESE ARE IDENTICAL TO THE TABLES IN 3018/162, BUT ARE INCLUDED IN THIS DISTRIBUTION FOR THE SAKE OF COMPLETENESS. ***************************************************************************** 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. 1 SUN SEP 08/96 19:03:19 Page 592 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 Page 593 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 $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. 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. 1 SUN SEP 08/96 19:03:19 Page 594 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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, 1 SUN SEP 08/96 19:03:19 Page 595 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 1 SUN SEP 08/96 19:03:19 Page 596 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/8). 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). 03018/140A TEXTFORM OD.CALCOMP SA G TXTF:OD.CALCOMP.S 4.3T2 546 TEXTFORM.OD.CALCOMP.SA.140 1 LINE 80 28 PAGE UQV TXTFGROUP LIFT APR. 06, 1980 14:56:10 0 CALCOMP OUTPUT DEVICE PROCESSOR. USES UM'S PLOTSYS (615/9); OTHER INSTALLATIONS MAY HAVE TO MAKE MINOR CHANGES SO THAT IT WILL WORK. COPIES XODGETM (3018/147), GBLC (3018/123) AND GBLS (3018/23). ASSEMBLE WITH 2=MACROS (3018/60) AND 3=DSECTS (3018/61). ***************************************************************************** D4.3 CHANGES: NOW USES UM'S PLOTSYS (605/9) RATHER THAN UQV'S PLOTLIB. ***************************************************************************** 0 Referenced by comments of: 3018/138 1 SUN SEP 08/96 19:03:19 Page 597 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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. 1 SUN SEP 08/96 19:03:19 Page 598 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 (3018/60) AND 3=DSECTS (3018/61). 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). 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 1 SUN SEP 08/96 19:03:19 Page 599 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/159A TEXTFORM TXTFODS OL O ETC:TXTFODS 4.3T2 547 TEXTFORM.TXTFODS.OL.159 1 LINE 7828 34 PAGE UQV TXTFGROUP LIFT APR. 06, 1980 14:56:12 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/161A TEXTFORM OD.DTC302 SA O TXTF:OD.DTC302.S 4.3T2 548 TEXTFORM.OD.DTC302.SA.161 1 LINE 72 17 PAGE UM LIFT APR. 06, 1980 14:56:14 0 OUTPUT DEVICE PROCESSOR FOR A DTC302 AND DIABLO 1620 "DAISY-WHEEL" TERMINALS AND NEC SPINWRITER S520. 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. SEE ASSEMBLY PARAMETER &WHICH TO GET TERMINAL TYPE. 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). ****************************************************************************** D4.3 VERSION: CODE ADDED FOR DIABLO 1620 AND SPINWRITER. SPINWRITER CODE IS NOT TOO WELL TESTED YET, AND IS NOT INSTALLED IN TXTFODS (3018/159). ****************************************************************************** 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 SUN SEP 08/96 19:03:19 Page 600 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 Page 601 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 03018/174A TEXTFORM WIDUTIL SA S TXTF:WIDUTIL 4.3T2 549 TEXTFORM.WIDUTIL.SA.174 1 LINE 72 14 PAGE UM LIFT APR. 06, 1980 14:56:17 0 OBJUTIL FOR OUTPUT PROCESSOR WIDTH TABLE LIBRARIES (E.G., ETC:TXTFWIDS, COMP. 3018/92). THIS IS A STAND-ALONE PROGRAM. ASSEMBLE WITH 2=DSECTS (3018/61). COPIES GBLS (3018/23). THIS IS A PRELIMINARY VERSION. 03018/175A TEXTFORM WIDUTIL OC S TXTF:WIDUTILX 4.3T2 550 TEXTFORM.WIDUTIL.OC.175 1 LINE 80 5 PAGE UM LIFT APR. 06, 1980 14:56:19 03018/176A TEXTFORM WIDUTIL WX TXTF:WWIDUTIL 4.3T2 551 TEXTFORM.WIDUTIL.WX.176 1 LINE 72 4 PAGE UM LIFT APR. 06, 1980 14:56:22 0 USAGE AND INTERNALS WRITEUP FOR THE PRELIMINARY VERSION OF WIDUTIL. 03018/177C TEXTFORM MACROS WX S UNSP:JONMACLIBTXT 4.3T2 552 TEXTFORM.MACROS.WX.177 1 LINE 143 7 PAGE UBC DUKE UNSP APR. 06, 1980 14:56:24 0 THIS FILE CONTAINS A LARGE NUMBER OF TEXTFORM MACROS, ETC. (DEVELOPED BY JON NIGHTINGALE AND TINA DUKE), TO CORRESPOND TO JON:MACLIB (DISTRIBUTED BY MICHIGAN AS 308/19) FOR PRODUCING DOCUMENTS IN UBC STYLE. THIS IS A PRELIMINARY VERSION. 0 Referenced by comments of: 1042/59, 1076/12 03018/178C TEXTFORM LAY.TYNE D O S1055 UNE24 'ALGOLW' FSNAME=TXTF:LAY.TYNE 4.3T2 553 TEXTFORM.LAY.TYNE.D.178 1 LINE 160 9 PAGE UNE HUNTER LIFT FEB. 09, 1980 16:08:43 0 NUMAC documentation group standards layout. 0 Referenced by comments of: 528/34 03018/179C TEXTFORM LAY.DEE D O S1055 UNE24 'ALGOLW' FSNAME=TXTF:LAY.DEE 4.3T2 554 TEXTFORM.LAY.DEE.D.179 1 LINE 187 9 PAGE UNE HUNTER LIFT FEB. 09, 1980 16:08:49 0 NUMAC general layout with numbered headings. 0 Referenced by comments of: 528/34 1 SUN SEP 08/96 19:03:19 Page 602 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03019 VAM748 # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO SIMULATE THE AM748 ON A LINE PRINTER. 03020 FASTSET # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO CONVERT EBCDIC TEXT (PLUS A BUNCH OF CONTROLS) TO AM748 PHOTOTYPESETTER INPUT. 03021 SETUP-DECK MAKER # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO GENERATE SETUP DECKS USING VARYING CARD STOCKS. 03023/001 *ASSIST SERVICE MODULE SA G 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 1 SUN SEP 08/96 19:03:19 Page 603 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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/001A BENCHMARK - TERMINAL DSR SA G BNCH:DSR.S 4.3T2 571 BENCHMARK_-_TERMINAL.DSR.SA.001 1 LINE 72 30 PAGE UM MTA MAY 22, 1980 02:06:35 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 SUN SEP 08/96 19:03:19 Page 604 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03024/002A BENCHMARK - TERMINAL DSR OC G *BNCHRTN 4.3T2 572 BENCHMARK_-_TERMINAL.DSR.OC.002 1 LINE 7356 3 PAGE UM MTA MAY 22, 1980 02:06:43 *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 SUN SEP 08/96 19:03:19 Page 605 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0565 D4T3 VLO FSNAME=BENCHMARK.SCRIPT_6_PGM.SF.015(1) 750 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 SUN SEP 08/96 19:03:19 Page 606 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 SUN SEP 08/96 19:03:19 Page 607 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 SUN SEP 08/96 19:03:19 Page 608 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 A *SENSEDSECT SA G *SENSEDSECT 4.3T2 555 SENSEDSECT..SA. 1 LINE 80 4 PAGE SFU BENET DWB APR. 06, 1980 14:58:49 *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: 116/1, 135/1, 314/1, 400/21, 489/1, 496/1, 513/1, 545/3, 553/1, 3024/1 03028 PATCHSYS # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO DYNAMICALLY PATCH THE SYSTEM AT POST-IPL TIME. 03030 VAMREC # (SEE COMP 682) UQV 03031 LKED CONVERTER # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM THAT WILL READ OS LINKAGE EDITOR INPUT OR THE COMBINED OBJECT AND MEMBER-RECORD FILES OUTPUT BY *UNLINKER (562). ONE WOULD USE THIS PROGRAM AS ONE OF FOUR PROGRAMS TO TAKE AN OS LOAD MODULE PDS FROM TAPE AND GENERATE AN MTS LINK LIBRARY (THE FOUR PROGRAMS BEING *UNLINKER (562), THIS PROGRAM, *LINKEDIT (297) AND *GENLIB (389)). 1 SUN SEP 08/96 19:03:19 Page 609 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03036 C+ # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE C+ SYSTEM PROGRAMMING LANGUAGE. 03037 METRIC # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM FOR DISPLAYING INFORMATION ABOUT SYSTEM ACTIVITY. 03038 MOVECAT # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A FILE SYSTEM UTILITY FOR MAKING AN EXACT COPY OF THE FILE SYSTME CATALOG. 03043 FILE RELOCATE # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SMALL UTILITY TO MOVE FILES FROM ONE PACK TO ANOTHER, USED BY THE OPERATIONS STAFF AT UQV. 03045 SCB DOCUMENTOR # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE SYSTEM CONTROL BLOCK DESCRIPTOR SYSTEM. 03046 XEROX 9700 JSL # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE JOBS DESCRIPTION SOURCE FOR THE XEROX 9700. 03047 XEROX 9700 FSL # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE FORMS LANGUAGE SOURCE FILES FOR THE XEROX 9700. 03048 XEROX 9700 FNT # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE XEROX 9700 FONTS. 03050 PAGE PRINTER SUBRTN # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 1 SUN SEP 08/96 19:03:19 Page 610 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 03051 PAGE PRINTER TBLS # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT IS NOT CURRENTLY INSTALLED AT MICHIGAN. 03053 FPAPRTN # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE DSR FOR THE FLOATING POINT SYSTEMS 190L ARRAY PROCESSOR. 03054 APSUB # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A NEW PART OF MTS TO DEAL WITH THE ARRAY PROCESSOR. 03055 AP SOFTWARE # (NOT DISTRIBUTED) UQV 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS UPDATES TO FLOATING POINT SYSTEMS SOFTWARE. 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, WHICH REPLACES LCSYMBOL (043), IS AN INTERFACE FROM USER PROGRAMS TO MTS-PROVIDED SUBROUTINES. IT DEFINES LCSYMBOL AND FURNISHES THE ENTRY POINTS FOR ALL USER-CALLABLE SYSTEM SUBROUTINES WHICH MUST RUN IN SYSTEM MODE -- I.E., THOSE WHICH REQUIRE ACCESS TO THE MTS SYSTEM SEGMENT (CURRENTLY SEGMENT 5) OR ISSUE PRIVILEGED SVCS. THIS COMPONENT ALSO PROVIDES THE RETURN POINT FOR THESE SUBROUTINES. AT THE ENTRY (PORT), AN SVC SYSTEM IS ISSUED TO SWITCH TO SYSTEM MODE; AT THE RETURN, AN SVC TRAX IS USED TO RETURN TO THE ORIGINAL CALLER IN USER MODE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/3). ASSEMBLE USING COPY:MTS.MACROS (344/3) AND COPY:CC.MACROS (1054/3). 0 Referenced by comments of: 509/2, 4000/6 04000/002A GATE UPDATE UC G MTS:GATEUPD 4.3T2 556 GATE.UPDATE.UC.002 1 LINE 90 5 PAGE UM MTS HELFFRICH APR. 06, 1980 14:58:50 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/003A GATE OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTS HELFFRICH 04000/004A GATE L S1088 MTSCL 'POST D4.0 LISTINGS' POSN=GATE.LIST 12 4.3T2 557 GATE..L.004 1 SEQ 133 461 PAGE UM MTS HELFFRICH APR. 06, 1980 15:00:50 1 SUN SEP 08/96 19:03:19 Page 611 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 Page 612 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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). 1 SUN SEP 08/96 19:03:19 Page 613 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 SUN SEP 08/96 19:03:19 Page 614 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 1 SUN SEP 08/96 19:03:19 Page 615 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 04001 NONPRIV KWIC # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT IS NOT INSTALLED AT MICHIGAN. 04003 DUMPER # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO DUMP THE DUMPS FROM THE PAGING DISK TO TAPE, WHICH IS INPUT TO THE PRINTDUMP PROGRAM (400). 04009 ACCESS # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A SUBROUTINE TO RETURN ACCESS INFORMATION ABOUT A FILE. 04010 SVMR # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS GETSVM, FEESVM, AND SCANSVM, STORAGE MANAGEMENT SUBROUTINES FOR SHARED VIRTUAL MEMORY. 0 Referenced by comments of: 4011/1 1 SUN SEP 08/96 19:03:19 Page 616 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 04011 SVMTABLE # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS THE CONTROL BLOCK FOR SVMR (4010). 04014 WHIZBANG # (NOT DISTRIBUTED) WSU 0 THIS COMPONENT IS NOT INSTALLED AT MICHIGAN. 04200 UNCDUPDATE # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO COMPARE TWO FILES AND OUTPUT THEIR DIFFERENCES IN THE FORM OF *CDUPDATE (1036) CONTROL STATEMENTS AND INSERTION RECORDS. 04201 RPI REMOTE OPCONSOLE # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE RPI REMOTE OPERATOR'S CONSOLE PROGRAM. 04222 FILE MOVER # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM TO MOVE FILES FROM ONE VOLUME TO ANOTHER. 04240 STUDENT IPL ROUTINE # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS AN IPL LOADER FOR USE WITH ST360 (472). 04241 3277 SCREEN I/O ROUTINE # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, CONTAINS SUBROUTINES TO CREATE SCREEN FIELDS, READ SCREEN FIELDS, UPDATE SCREEN FIELDS, AND INTERCEPT THE ATTENTION KEYS. 04242 LCLPRINT # (NOT DISTRIBUTED) RPI 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS A PROGRAM WHICH SUPPORTS THE COURIER 8700 PRINTERS AS NON-SPOOLED PRINT-STATIONS AT REMOTE TERMINAL SITES. 04401 PN3203 JOB # (NOT DISTRIBUTED) SFU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS THE JOB 1 SUN SEP 08/96 19:03:19 Page 617 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THAT LOADS THE UCSB AND FCB BUFFERS FOR THE 3203-4 PRINTER WITH A PN PRINT TRAIN. 04403 DIVMIXED # (NOT DISTRIBUTED) SFU 0 THIS COMPONENT, WHICH IS NOT CURRENTLY INSTALLED AT MICHIGAN, IS USED TO PERFORM MIXED PRECISION DIVISION WHEN A NORMAL DIVISION FAILS.