1 FRI AUG 02/96 19:04:25 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/01 UMLOAD D3 MASTER SA G UMLD S0720 'D3T1' FSNAME=UMLOAD..SA.1 1 D3T1 1 UMLOAD..SA.1 1 LINE 80 91 PAGE UM DE JONG JULY 30, 1973 22:55.46 0 D3.0 VERSION OF MTS RELOCATABLE LOADER. 0 Referenced by comments of: 1/2, 254/1 00001/02 UMLOAD UU G W009:UMLDNEW.U D3.2T1 1 UMLOAD..UU.02 1 LINE 72 12 PAGE UM DE JONG MAR. 21, 1975 00:50:22 0 UPDATE DECK TO PRODUCE CURRENT UMLOAD FROM D3.0 MASTER SOURCE (001/1). 00001/03 UMLOAD OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DE JONG 00003/01 JOBLIST SA G JBLS = ???? D3.1T1 3 JOBLIST..SA.1 1 LINE 80 8 PAGE UM MTA MAR. 06, 1974 03:15.04 0 MANY ASSEMBLIES WHICH TOGETHER FORM THE LIST OF AVAILABLE JOBS IN UMMPS. ASSEMBLE WITH PAR=B. 00003/02 JOBLIST OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00004/01 TABLES SA G TABL WSG:TABLES(1,999) D3.2T1 2 TABLES..SA.01 1 LINE 80 25 PAGE UM WSG MAR. 21, 1975 00:50:39 0 TABLES THAT DEFINE THE HARDWARE CONFIGURATION FOR THE UM 370/168, THE NUMBER OF LOW-CORE TERMINAL I/O BUFFERS, THE LIST OF PUBLIC DISK VOLUME NAMES AND CORRESPONDING DISK DRIVES. NOTE: THE FORMAT OF THE LOGICAL CHANNEL TABLE HAS BEEN CHANGED FOR THE NEW SUPERVISOR. COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:DSKDSCT (482/42), AND *CNFGINFODSECT(2) (654). THIS DECK IS DISTRIBUTED AS AN EXAMPLE OF AN I/O CONFIGURATION; OBVIOUSLY, EACH INSTALLATION MUST SUPPLY TABLES FOR THE LOCAL CONFIGURATION. 0 Referenced by comments of: 482/10 00004/02 TABLES OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00004/03 TABLES WRITEUP WF S0720 'D3T1' FSNAME=TABLES.WRITEUP.WF.3 5 D3T1 5 TABLES.WRITEUP.WF.3 1 LINE 133 13 PAGE UM WSG JULY 30, 1973 22:59.04 0 WRITEUP IS OUT-OF-DATE. 00004/004 TABLES DECKGEN SA G DCKP W047:DCKPCHR.S D3.2T1 3 TABLES.DECKGEN.SA.05 1 LINE 80 70 PAGE UM HAMILTON MAR. 21, 1975 00:50:41 0 STAND-ALONE PROGRAM WRITTEN AT UBC AND MODIFIED AT UM WHICH GENERATES AN MTS OBJECT DECK FOR TABLES BASED ON INPUT ENTERED FROM THE OPERATOR'S CONSOLE. IT WILL ALSO COPY A COMPLETE OBJECT DECK FROM ONE TAPE TO ANOTHER, INSERTING THE NEW TABLES DECK AS IT DOES. COPIES COPY:DSKDSCT (482/42) AND *CNFGINFODSECT (654). 1 FRI AUG 02/96 19:04:25 Page 2 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00004/005 TABLES DECKGEN OC G W047:DCKPCHR.O D3.2T1 4 TABLES.DECKGEN.OC.06 1 LINE 80 7 PAGE UM HAMILTON MAR. 21, 1975 00:50:49 0 THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE. 00004/006 TABLES DECKGEN DESCR WF W047:DCKPCHR.W D3.2T1 5 TABLES.DECKGEN_DESCR.WF.07 1 LINE 108 6 PAGE UM HAMILTON MAR. 21, 1975 00:50:50 0 WRITEUP DESCRIBING HOW TO USE THE DECKGEN PROGRAM TO GENERATE A TABLES OBJECT DECK. A COPY IS INCLUDED WITH THE PAPER DOCUMENTATION. 00005/01 JBRP SA G JBRP MTA:JBRP D3.2T1 6 JBRP..SA.01 1 LINE 80 8 PAGE UM MTA MAR. 21, 1975 00:50:53 0 JOB REQUEST PROCESSOR (TASK INITIALIZATION). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). ASSEMBLE USING COPY:SETPARM (653). 00005/02 JBRP 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00005/03 JBRP 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00006/01 FNDJTL SA G FNDJ S0720 'D3T1' FSNAME=FNDJTL..SA.1 7 D3T1 7 FNDJTL..SA.1 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:00.56 0 FIND JOB TABLE. UNCHANGED SINCE DIST 1.0. 00006/02 FNDJTL OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00007/01 FBJTJL SA G FBJT MTA:FBJTJL(1,999) D3.2T1 7 FBJTJL..SA.01 1 LINE 80 5 PAGE UM MTA MAR. 21, 1975 00:50:55 0 FREE BUFFERS AND JOB TABLE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). NOTE: &S370 CAUSES THE 360 AND 370 OBJECT TO BE DIFFERENT. ASSEMBLE USING COPY:SETPARM (653). 00007/02 FBJTJL 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00007/03 FBJTJL 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00008/01 FIDCQ SA G FIDC MTA:FIDCQ D3.2T1 8 FIDCQ..SA.01 1 LINE 80 3 PAGE UM MTA MAR. 21, 1975 00:50:57 0 FREE I/O DEVICES AND CPU QUEUE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). ASSEMBLE USING COPY:SETPARM (653). 1 FRI AUG 02/96 19:04:25 Page 3 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00008/02 FIDCQ OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00009/01 BUFALLOC SA G BUFA MTA:BUFALLOC(1,999) D3T1 10 BUFALLOC..SA.1 1 LINE 80 3 PAGE UM MTA JULY 30, 1973 23:01.01 0 SUBROUTINE TO ALLOCATE AND RELEASE 128-BYTE, LOW-CORE, TERMINAL, I/O BUFFERS. THIS ROUTINE IS CALLED BY SEVERAL TERMINAL DEVICE SUPPORT ROUTINES (TSFO, PDP8RTN, MNETRTN, ETC). IT ALLOCATES BUFFERS FROM A POOL OF BUFFERS WHICH ARE PART OF TABLES AND WHICH BUFALLOC REFERENCES WITH THE TABLES EXTERNAL SYMBOL 'TERMBFRS'. THE PURPOSE OF THESE BUFFERS IS TO HAVE THE TERMINAL ROUTINES DOING I/O INTO REAL-CORE BUFFERS, THUS AVOIDING THE OVERHEAD OF HAVING MANY VM PAGES LOCKED IN CORE DURING TERMINAL I/O. THE BUFSTAT PROGRAM (618) PRINTS WHICH JOB IS USING WHICH BUFFER(S). 00009/02 BUFALLOC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00010/01 EXIT SA G EXIT MTA:EXIT(1,999) D3.2T1 9 EXIT..SA.01 1 LINE 80 4 PAGE UM MTA MAR. 21, 1975 00:50:59 0 KILLS CALLING TASK. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). NOTE: &S370 CAUSES THE 360 AND 370 OBJECT TO BE DIFFERENT. ASSEMBLE USING COPY:SETPARM (653). 00010/02 EXIT 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00010/03 EXIT 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00011/01 CARDUC SA G CDUC S0720 'D3T1' FSNAME=CARDUC..SA.1 12 D3T1 12 CARDUC..SA.1 1 LINE 80 9 PAGE UM MTA JULY 30, 1973 03:30.59 0 2501 AND 2540 READER UNIT CHECK ROUTINES. 00011/02 CARDUC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00012/01 TAPEUC SA TPUC WSG:TAPEUC(1,999) D3T1 13 TAPEUC..SA.1 1 LINE 80 15 PAGE UM WSG JULY 30, 1973 23:01.16 0 MAGNETIC TAPE UNIT CHECK ROUTINES. 00012/02 TAPEUC OC # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00013/01 PTRUC SA G PTUC MTA:PTRUC D3T1 14 PTRUC..SA.1 1 LINE 80 9 PAGE UM MTA JULY 30, 1973 23:01.23 0 1403 AND 1443 PRINTER UNIT CHECK ROUTINES. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00013/02 PTRUC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00014/01 PCHUC SA G PCUC S0720 'D3T1' FSNAME=PCHUC..SA.1 15 D3T1 15 PCHUC..SA.1 1 LINE 80 6 PAGE UM MTA JULY 30, 1973 03:31.18 0 2540 PUNCH UNIT CHECK ROUTINES. 00014/02 PCHUC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00015 DASDUC # (SEE COMP 482) UM 00016/01 CCTRANTB SA G CCTR S0720 'D3T1' FSNAME=CCTRANTB..SA.1 16 D3T1 16 CCTRANTB..SA.1 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:01.33 0 USED BY MTS TO TRANSLATE LOGICAL CARRIAGE CONTROL TO PRINTER COMMANDS. UNCHANGED SINCE DIST 1.0. 00016/02 CCTRANTB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00017/01 PN XLATE TABLE SA G PNXL S0720 'D3T1' FSNAME=PN_XLATE_TABLE..SA.1 17 D3T1 17 PN_XLATE_TABLE..SA.1 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:01.33 0 USED TO TRANSLATE 7090 EXTENDED BCD FOR THE PN TRAIN. USED BY CPCC (026) AND OTHERWISE COMPLETELY WORTHLESS. UNCHANGED SINCE DIST 1.0. 00017/02 PN XLATE TABLE OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00018/01 STOP/BLAST/GOOSE JOBS SA G STOP S0720 'D3T1' FSNAME=STOP/BLAST/GOOSE_JOBS..SA.1 18 D3T1 18 STOP/BLAST/GOOSE_JOBS..SA.1 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:01.54 0 THE STOP, BLAST, AND GOOSE UMMPS JOB PROGRAMS. UNCHANGED SINCE DIST 1.0. 00018/02 STOP/BLAST/GOOSE JOBS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00019/01 TASKS JOB SA G TSKS WSG:UTASKS(1,999) D3.2T1 10 TASKS_JOB..SA.01 1 LINE 80 11 PAGE UM WSG MAR. 21, 1975 00:51:01 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/4). NOTE: THE TSKFMT CALLING SEQUENCE HAS BEEN CHANGED. 0 Referenced by comments of: 145/1, 647/1 00019/02 TASKS JOB 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00019/03 TASKS JOB 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM WSG 00020/01 JOBDUMP JOB SA G JBDM S0720 'D3T1' FSNAME=JOBDUMP_JOB..SA.1 20 D3T1 20 JOBDUMP_JOB..SA.1 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:03.31 0 UMMPS "JOBDUMP" JOB. USES SVC XJOBDUMP TO DUMP THE SPECIFIED JOB. UNCHANGED SINCE DIST 2.0. 00020/02 JOBDUMP JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00021/01 BROADCST SA G BDCS WSG:BDCS(1,999) D3.2T1 11 BROADCST..SA.01 1 LINE 80 9 PAGE UM WSG MAR. 21, 1975 00:51:03 0 JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR TO ALL USERS. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). HAS A SETB SYMBOL (&DC) WHICH CONTROLS CONDITIONAL ASSEMBLY OF EXTRA BROADCAST CODE FOR THE UM DATA CONCENTRATORS. 00021/02 BROADCST OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 0 OBJECT ASSEMBLED WITH &DC SETB 1. 00022 LOWCORE # (OBSOLETE) UM 00023/01 REW ET AL SA O TPMV S0720 'D3T1' FSNAME=REW_ET_AL..SA.1 22 D3T1 22 REW_ET_AL..SA.1 1 SEQ 80 4 PAGE UM MTA JULY 30, 1973 23:03.39 0 JOBS TO MOVE A TAPE (REW, WTM, BSF, BSR, FSF, FSR, ERG) THE WTM JOB DOESN'T USE A MODESET, SO THE DENSITY WILL BE UNPREDICTABLE ON DUAL-DENSITY TAPE CONTROLS. UNCHANGED SINCE DIST 1.0. 00023/02 REW ET AL OC O # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00024/01 ONLINE/OFFLINE SA G ONOF MTS:ON/OFFLINE(1,999) D3.2T1 12 ONLINE/OFFLINE..SA.01 1 LINE 80 18 PAGE UM MTA MAR. 21, 1975 00:51:05 0 JOB TO ONLINE OR OFFLINE A DEVICE, CONTROL UNIT, CHANNEL, OR CHANNEL-CONTROL UNIT PATH. COPIES COPY:GLOBALS (1026/4) 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 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 0 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/02 ONLINE/OFFLINE OC O # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00025/01 QN/PN/TN JOBS SA G UCSI S0720 'D3T1' FSNAME=QN/PN/TN_JOBS..SA.1 24 D3T1 24 QN/PN/TN_JOBS..SA.1 1 SEQ 80 5 PAGE UM MTA JULY 30, 1973 23:03.42 0 THREE ASSEMBLIES THAT LOAD THE 1403 UCS BUFFER FOR QN, PN, OR TN CHARACTER SETS. THE QN JOB CONTAINS A SUBROUTINE USED BY ALL THE REST OF THEM. FOR EXAMPLE, ENTERING "PN PTR1 ECHO" ON THE OPERATOR'S CONSOLE WILL LOAD THE UCS BUFFER FOR PTR1 WITH THE PN CHARACTER SET AND ECHO THE CHARACTERS TO THE PRINTER FOR VERIFICATION. UNCHANGED SINCE DIST 2.0. 0 Referenced by comments of: 1027/1 00025/02 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 0 Referenced by comments of: 17/1 00027 MOVIT # (SEE COMP 482) UM 00029 VTOC # (SEE COMP 482) UM 00030 READT # (SEE COMP 482) UM 00031 GTZ # OBSOLETE D2.1 036 UM 00032 READI # (SEE COMP 482) UM 00033 WRITEI # (SEE COMP 482) UM 00034 READL # (SEE COMP 482) UM 00036 OPEN SCRTCH ETC # (SEE COMP 482) UM 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00037 GETDSK ETC # (SEE COMP 482) UM 00038/01 TSFO SA G TSFO W032:TSFOSOU3.1 D3.1T1 11 TSFO..SA.1 1 LINE 80 166 PAGE UM EMERY MAR. 06, 1974 03:15.55 0 SOURCE FOR DIST 3.0 TSFO (TWENTY-SEVEN-FORTY-ONE), THE MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2703 (DEVICE TYPES TTY AND 2741) OR THE MEMOREX 1270 WITH AUTO-SPEED (DEVICE TYPE MRXA). AFTER TSFO ANSWERS THE PHONE FOR TYPE 2741, IT ASKS THE USER TO TYPE "GO" SO THAT IS CAN IDENTIFY THE KEYBOARD TYPE. THE RESPONSE "GONNN" WHERE NNN IS A DEFINED GOLF BALL TYPE (LAST 3 DIGITS) CAUSES TSFO TO SET UP FOR THAT GOLFBALL TYPE. THE %GOLF=NNN DEVICE COMMAND CAN ALSO BE USED. WHEN IT ANSWERS THE PHONE FOR TYPE MRXA, NOTHING HAPPENS UNTIL THE USER TYPES "GO" AT WHICH POINT THE 1270 DETERMINES THE BAUD RATE (110, 135, 150, OR 300) AND FRAME SIZE. USING A 1270 WITH AUTO-SPEED MEANS THAT (FOR DIAL-UP TERMINALS) IT IS NOT NECESSARY TO SEGREGATE THE TELEPHONE LINES INTO TWO GROUPS (TTY AND 2741) AS IS NECESSARY FOR A 2703 OR 1270 WITHOUT AUTO-SPEED. IN ADDITION, ASCII TERMINALS AT 150 AND 300 BAUD ARE SUPPORTED FOR TYPE MRXA. TSFO INCLUDES AN ASSEMBLY PARAMETER FOR THE AUTO-SPEED MRXA OPTION. WHEN YOU CHANGE THE GOLF BALL TYPE YOU ALSO CHANGE THE CHARACTERS USED FOR LINE DELETE, ETC. CHARACTERS USED FOR APL ARE: DEVICE COMMAND UP ARROW LITERAL NEXT RIGHT ARROW END OF FILE DOWN ARROW DELETE LINE UNDERSCORE DELETE CHARACTER BACKSPACE OF COURSE, WHEN APL ITSELF IS RUNNING THE CHARACTERS ARE AS DEFINED BY APL. THIS SET IS USED ONLY WHEN USING THE APL GOLFBALL WITH PROGRAMS OTHER THAN APL. 00038/02 TSFO *2741RTN OC G *2741RTN D3.1T1 12 TSFO.*2741RTN.OC.2 1 LINE 80 11 PAGE UM EMERY MAR. 06, 1974 03:16.23 0 THIS IS THE TSFO OBJECT FILE WHICH IS NORMALLY LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. THE "COM" CARD AT THE BEGINNING TELLS THE SEG 2 LOADER TO DEFINE THE FOLLOWING SYMBOLS IN LCSYMBOL: TSFO ENTRY POINT FOR DEVICE TYPE 2741 TEL2 ENTRY POINT FOR DEVICE TYPE TTY MRXA ENTRY POINT FOR DEVICE TYPE MRXA IF THIS FILE IS NOT LOADED BY THE SEG 2 LOADER (I.E. MTS FINDS THAT THE SYMBOL TSFO IS NOT DEFINED IN LCSYMBOL), THEN *2741RTN IS DYNAMICALLY LOADED INTO SEG 4 (PRIVATE SYSTEM STORAGE) WHEN A DEVICE OF TYPE 2741 IS USED. 00038/03 TSFO *TTYRTN OC G *TTYRTN D3T1 28 TSFO.*TTYRTN.OC.3 1 LINE 30 1 PAGE UM EMERY JULY 30, 1973 23:04.34 0 THIS FILE CONSISTS OF: $CONTINUE WITH *2741RTN RETURN LDT TEL2 IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL TEL2 IS UNDEFINED IN LCSYMBOL. NORMALLY TEL2 IS DEFINED BY TH1 SEG 2 LOADER AT IPL. 1 FRI AUG 02/96 19:04:25 Page 8 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00038/04 TSFO *MRXARTN OC G *MRXARTN D3T1 29 TSFO.*MRXARTN.OC.4 1 LINE 30 1 PAGE UM EMERY JULY 30, 1973 23:04.36 0 THIS FILE CONSISTS OF: $CONTINUE WITH *2741RTN RETURN LDT MRXA IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL MRXA IS UNDEFINED IN LCSYMBOL. NORMALLY MRXA IS DEFINED BY THE SEG 2 LOADER AT IPL. 00038/05 TSFO TRTBLGEN SA TGEN W032:TRTBLGEN(1,500) D3T1 30 TSFO.TRTBLGEN.SA.5 1 LINE 80 11 PAGE UM EMERY JULY 30, 1973 23:04.38 0 PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE ALL NON-ASCII TABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY ARBITRARY TRANSLATE TABLES. LOGICAL I/O UNITS USED ARE: 1 DEFINITION OF NAMES OF CHARACTERS (038/9). 2 DEFINITION OF CHARACTER SET ON THE GOLFBALL. 038/10 AND 038/11 ARE EXAMPLES. 3 DEFINITION OF THE CODE SET BEING USED (EITHER 038/7 OR 038/8). SPRINT PRINTED OUTPUT AND ERROR COMMENTS. SPUNCH NEW TRANSLATE TABLES. THE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK. 00038/06 TSFO TRTBLGEN OC W032:TRTBLGEN(2000) D3T1 31 TSFO.TRTBLGEN.OC.6 1 LINE 80 3 PAGE UM EMERY JULY 30, 1973 23:04.41 00038/07 TSFO KBD2741PTTC D W032:KBD2741PTTC D3T1 32 TSFO.KBD2741PTTC.D.7 1 LINE 41 1 PAGE UM EMERY JULY 30, 1973 23:04.43 0 SEE 038/5. THIS IS THE 2741 PTTC KEYBOARD DEFINITION. 00038/08 TSFO KBD2741CORR D W032:KBD2741CORR D3T1 33 TSFO.KBD2741CORR.D.8 1 LINE 41 1 PAGE UM EMERY JULY 30, 1973 23:04.45 0 SEE 038/5. THIS IS THE 2741 CORRESPONDENCE KEYBOARD DEFINITION. 00038/09 TSFO EBCDDEFN D W032:EBCDDEFN D3T1 34 TSFO.EBCDDEFN.D.9 1 LINE 32 3 PAGE UM EMERY JULY 30, 1973 23:04.47 0 SEE 038/5. THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT. 0 Referenced by comments of: 38/5, 575/3 00038/10 TSFO GOLFPTTC D W032:GOLFPTTC D3T1 35 TSFO.GOLFPTTC.D.10 1 LINE 72 3 PAGE UM EMERY JULY 30, 1973 23:04.50 0 SEE 038/5. THIS FILE CONTAINS DEFINITIONS OF PTTC GOLF BALLS. THE DEFINITONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER. CONTAINS "$CONTINUE WITH W032:GOLFPTTC" LINES. 0 Referenced by comments of: 575/3 1 FRI AUG 02/96 19:04:25 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/11 TSFO GOLFCORR D W032:GOLFCORR D3T1 36 TSFO.GOLFCORR.D.11 1 LINE 72 8 PAGE UM EMERY JULY 30, 1973 23:04.52 0 SEE 038/5. THIS FILE CONTAINS DEFINITIONS OF CORRESPONDENCE GOLF BALLS. THE DEFINITIONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER. CONTAINS "$CONTINUE WITH W032:GOLFCORR" LINES. 0 Referenced by comments of: 575/3 00038/12 TSFO MEMO M248 WF WSG:M248 D3.1T1 13 TSFO.MEMO_M248.WF.12 1 LINE 115 1 PAGE UM EMERY MAR. 06, 1974 03:16.26 0 THIS IS COMPUTING CENTER MEMO M248 -- "MEMOREX 1270: 2 MINOR CHANGES" 00038/13 TSFO MEMO M253 WF W098:KDM253 D3.1T1 14 TSFO.MEMO_M253.WF.13 1 LINE 127 5 PAGE UM EMERY MAR. 06, 1974 03:16.28 0 THIS IS COMPUTING CENTER MEMO M253 -- "BASIC USE OF THE MODEL 35 TELETYPE WITH THE MEMOREX 1270" 00039/01 CASECONV SA CASE W032:CASECONV D3T1 37 CASECONV..SA.1 1 LINE 80 1 PAGE UM EMERY JULY 30, 1973 23:04.54 0 TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE. ALL OTHER CHARACTERS ARE UNCHANGED. 00039/02 CASECONV OC # RESIDENT SYSTEM (SEE COMP 468/1) UM EMERY 00040/01 KWIC D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=KWIC 2 D3T1 38 KWIC..SA.1 1 SEQ 80 14 PAGE UM DWB JULY 30, 1973 23:08.27 0 KEY WORD SCANNER FOR MTS AND OTHERS. COPIES COPY:MTS.EQU (345), COPY:MTS.RHTABLE (348), COPY:MTS.DSECT (346), COPY:MTS.CONTAB (343), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640). REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. 0 Referenced by comments of: 40/2, 344/1, 348/1 00040/02 KWIC UPDATE UU G MTS:KWICUPD D3.2T1 13 KWIC.UPDATE.UU.02 1 LINE 72 1 PAGE UM DWB MAR. 21, 1975 00:51:09 0 UPDATE TO D3 MASTER (040/1) TO PRODUCE CURRENT SOURCE. UPDATE DECK USES %POSN *IN* KWIC. 00040/03 KWIC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00041/01 GETSPACE/FREESPAC D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=GSFS 3 D3T1 39 GETSPACE/FREESPAC..SA.1 1 SEQ 80 20 PAGE UM DWB JULY 30, 1973 23:08.31 0 MTS STORAGE (VM) ALLOCATION SUBROUTINES. COPIES COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640). NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. 1 FRI AUG 02/96 19:04:25 Page 10 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 41/2, 344/1 00041/02 GETSPACE/FREESPAC UPDATE UU G MTS:GSFSUPD D3.2T1 14 GETSPACE/FREESPAC.UPDATE.UU.02 1 LINE 64 2 PAGE UM DWB MAR. 21, 1975 00:51:11 0 UPDATE TO D3 MASTER (041/1) TO PRODUCE CURRENT SOURCE. UPDATE DECK USES %POSN *IN* GSFS. 00041/03 GETSPACE/FREESPAC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00042/01 MTS D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=MTS 1 D3T1 40 MTS..SA.1 1 SEQ 80 373 PAGE UM DWB JULY 30, 1973 23:09.19 0 MASTER SOURCE FOR DIST 3.0 MTS. COPIES COPY:MTS.EQU (345), COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:MTS.RHTABLE (348), COPY:CLSPLAN (535/1), AND COPY:JOBSTA (413/14). REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. 0 Referenced by comments of: 42/2, 344/1, 348/1, 635/2, 636/2, 637/2, 638/2, 639/2 00042/02 MTS UPDATE UU G MTS:MTSUPD D3.2T1 15 MTS.UPDATE.UU.02 1 LINE 72 10 PAGE UM DWB MAR. 21, 1975 00:51:13 0 UPDATE DECK TO PRODUCE CURRENT SOURCE FROM D3 MTS MASTER SOURCE (042/1). NOTE: UPDATE DECK USES %POSN *IN* MTS. THE FOLLOWING IS A COMPLETE LIST OF THE MTS SUBROUTINES: KWIC 040 GETSPACE/FREESPAC 041 GUINFO/CUINFO 198 LLXU 354 CHECKSUM 462 PLIMIT 464 TIMNTRP 539 RSF 578 FSUB 635 CMDS 636 DSRS 637 USUB 638 DSRI 639 00042/03 MTS OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00042/04 MTS ASM JOB C MTS:MTSASM D3.2T1 16 MTS.ASM_JOB.C.04 1 LINE 105 2 PAGE UM DWB MAR. 21, 1975 00:51:19 0 AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES FOR A 360. AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES FOR A 360. AT LINE 2000, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES FOR A 370. AT LINE 3000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES FOR A 370. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00043/01 LCSYMBOL SA G LCSY MTS:LCSYMBOL(1,999) D3.2T1 17 LCSYMBOL..SA.01 1 LINE 80 7 PAGE UM DWB MAR. 21, 1975 00:51:20 0 LOW-CORE SYMBOL TABLE. CONTAINS DEFINITIONS OF SYMBOLS IN SEGMENTS 0 AND 2 THAT USERS REFER TO. COPIES COPY:GLOBALS (1026/4). 00043/02 LCSYMBOL 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00043/03 LCSYMBOL 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM DWB 00044/01 PDP SA G PDP0 W047:PDP.S D3.2T1 18 PDP..SA.01 1 LINE 80 58 PAGE UM HAMILTON MAR. 21, 1975 00:51:24 0 THE PAGING DRUM PROCESSOR. COPIES COPY:PCBDSECT (470), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/4). 0 Referenced by comments of: 604/1 00044/02 PDP 37O OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HAMILTON 00044/03 PDP 36O OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM HAMILTON 0 360 OBJECT ALSO AVAILABLE IN W047:PDP.360.O. 00045/01 SUPERVISOR UMMPS.360 UU G S0699 D3TAPE POSN=UMMPS.360.UPD 12 D3.2T1 19 SUPERVISOR.UMMPS.360.UU.01 1 SEQ 80 32 PAGE UM MTA MAR. 21, 1975 00:52:56 0 UPDATE DECK TO APPLY TO D3.0 SUPERVISOR SOURCE TO PRODUCE THE LAST VERSION WHICH SUPPORTED THE 360/67 ONLY (45/2). 0 Referenced by comments of: 604/1, 609/1, 611/1 00045/02 SUPERVISOR UMMPS.360 SA G S0699 D3TAPE POSN=UMMPS.360 13 D3.2T1 20 SUPERVISOR.UMMPS.360.SA.02 1 SEQ 80 252 PAGE UM MTA MAR. 21, 1975 00:53:09 0 MASTER SOURCE FOR LAST 360/67 VERSION. ASSEMBLY PARAMETERS ARE SET TO USE THE SLT RPQ, INITIALLY CLEAR VM, AND NOT TIME THINGS LIKE TS LOOPS. THESE ARE THE ONLY CONFIGURATION DEPENDENT ASPECTS. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:PSA (162), COPY:PCBDSECT (470), AND COPY:CPSCNPAR (609/3). ASSEMBLE USING *SYSMAC. NOTE: THE SUPERVISOR HAS 3 PARAMETERS WHICH CONTROL THE OPERATION OF THE PRIVILEDGED JOB MECHANISM. THIS MECHANISM ATTEMPTS TO CONTROL THRASHING BY DETECTING JOBS WHICH REQUIRE A SIZEABLE AMOUNT OF REAL CORE AND ONLY LETTING SUCH JOBS RUN IF THE ESTIMATED WORKING SET SIZE OF ALL SUCH JOBS DOES NOT EXCEED A CERTAIN GLOBAL VALUE. ONE OF THE 3 PARAMETERS DETERMINES THE THRESHOLD (IN REAL PAGES) AT WHICH THE SUPERVISOR DECIDES (FOR ANY JOB WHICH MANAGES TO ACQUIRE THAT MANY REAL PAGES) WHETHER OR NOT THE JOB MAY GO FROM "NEUTRAL" TO "PRIVILEDED" AND CONTINUE TO EXECUTE (WITH A LARGER TIME SLICE). IF THE ANSWER IS NO, THE JOB IS MADE "NON-PRIVILEDGED" FOR A WHILE AND NOT ALLOWED TO EXECUTE. THE ANSWER IS BASED ON THE SECOND OF THE 3 PARAMETERS, WHICH SPECIFIES HOW MANY REAL PAGES (MAXIMUM) ARE TO BE DEVOTED TO "BIG JOBS", I.E. PRIVILEDGED JOBS. ACTUALLY, WHEN THE TEST IS MADE FOR A JOB WHICH HAS ACHIEVED THE PARAMETER 1 (BIGJTH) THRESHOLD, THE GREATER 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 0 OF THE JOB'S ACTUAL REAL PAGES AND HIS ESTIMATED WORKING SET IS USED TO DETERMINE IF THIS JOB WILL "BREAK THE CAMEL'S BACK", I.E. EXCEED THE PARAMETER 2 (ADDBIGJ) THRESHOLD. FOR THIS REASON, THE SECOND PARAMETER THRESHOLD MAY BE REACHED BEFORE THE CURRENT BIG JOBS COLLECTIVELY HAVE THAT MANY REAL PAGES IF THE CURRENT WORKING SET ESTIMATE FOR ANY OF THE JOBS IS TOO HIGH. THESE 3 PARAMETERS ARE ADJUSTED DYNAMICALLY BY BJPMOD (650/1) IN RESPONSE TO THE SYSTEM LOAD. 0 Referenced by comments of: 45/1, 45/3 00045/03 SUPERVISOR UMMPS.370 UU G MTA:UMMPS.U-370 D3.2T1 21 SUPERVISOR.UMMPS.370.UU.03 1 LINE 71 33 PAGE UM MTA MAR. 21, 1975 00:53:21 0 UPDATE TO UMMPS.360 MASTER (45/2) TO PRODUCE THE CURRENT 370 SUPERVISOR. COPIES COPY:CMDAREADSECT (631/12) IN ADDITION TO ITEMS LISTED FOR 45/2. NOTE: THIS VERSION OF THE SUPERVISOR HAS NOT BEEN TESTED WITH &S370 SET TO 0. 00045/04 SUPERVISOR 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00045/05 SUPERVISOR 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00045/06 SUPERVISOR SVC WRITEUP WT MTS:SVCDESCR D3T1 52 SUPERVISOR.SVC_WRITEUP.WT.7 1 LINE 80 31 PAGE UM HAMILTON JULY 30, 1973 23:24.13 0 TEXT/360 MASTER FOR A WRITEUP DESCRIBING ALL UMMPS SUPERVISOR CALL (SVC) INSTRUCTIONS. 00045/07 SUPERVISOR SVC WRITEUP PT MTS:SVCPRINT D3T1 53 SUPERVISOR.SVC_WRITEUP.PT.8 1 SEQ 132 91 PAGE UM HAMILTON JULY 30, 1973 23:24.22 0 TEXT/360 PRINT FILE. 00045/08 SUPERVISOR TEST SVC STIO SA G TSIO MTA:TESTSTIO(1,999) D3.2T1 22 SUPERVISOR.TEST_SVC_STIO.SA.08 1 LINE 80 3 PAGE UM MTA MAR. 21, 1975 00:53:38 0 TEST PROGRAM FOR SVC STIO TO BE USED IN THE VIRTUAL MACHINE. 00045/09 SUPERVISOR TEST SVC STIO OC G MTA:TESTSTIO(1000) D3.2T1 23 SUPERVISOR.TEST_SVC_STIO.OC.09 1 LINE 80 2 PAGE UM MTA MAR. 21, 1975 00:53:40 00046/01 CONFIG 360 UPDATE UU G S0699 D3TAPE POSN=CONFIG.360.UPD 10 D3.2T1 24 CONFIG.360_UPDATE.UU.01 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 00:53:53 0 UPDATE TO D3.0 SOURCE TO PRODUCE 46/2. 00046/02 CONFIG 360 MASTER SA G S0699 D3TAPE POSN=CONFIG.360 11 D3.2T1 25 CONFIG.360_MASTER.SA.02 1 SEQ 80 23 PAGE UM MTA MAR. 21, 1975 00:53:55 0 CONFIGURATION PROGRAM MASTER SOURCE FOR "360 ONLY" VERSION. COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:GLOBALS (1026/4), COPY:PCBDSECT (470), COPY:CHAERC (577/30), AND COPY:CHASYS.2 (577/35). 00046/03 CONFIG 370 UPDATE UU G MTA:CONFIG.U-370 D3.2T1 26 CONFIG.370_UPDATE.UU.03 1 LINE 72 8 PAGE UM MTA MAR. 21, 1975 00:53:58 0 UPDATE TO 046/2 TO PRODUCE CURRENT 370 CONFIG. COPIES *CNFGINFOSECT (654) 1 FRI AUG 02/96 19:04:25 Page 13 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 IN ADDITION TO FILES LISTED FOR 046/2. 00046/04 CONFIG OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 0 ***** NOTE: THIS OBJECT CONTAINS A REP CARD TO CHANGE THE VERSION DATE TO 01-01-75. 00047/01 *CATALOG SA G CATL W045:PF.LCATALOG D3T1 56 CATALOG..SA.1 1 LINE 80 8 PAGE UM PIRKOLA JULY 30, 1973 23:26.21 0 PROGRAM TO PRINT NAMES OF USERS FILES (CALLED *FILES AT UBC). COPIES *GFINFODSECT (593). ALSO COPIES COPY:LLMPSEQU (087). MAINTAINED FOR HISTORICAL REASONS ONLY. USE $FILES 00047/02 *CATALOG OC G *CATALOG D3T1 57 CATALOG..OC.2 1 LINE 80 3 PAGE UM PIRKOLA JULY 30, 1973 23:26.23 00049/01 SDUMP SA SDMP W032:SDUMP(1,700) D3T1 58 SDUMP..SA.1 1 LINE 80 16 PAGE UM EMERY JULY 30, 1973 23:26.25 0 MTS SUBROUTINE TO PRODUCE DUMPS. REQUIRES *SYSMAC. 0 Referenced by comments of: 463/1 00049/02 SDUMP OC # RESIDENT SYSTEM (SEE COMP 468/1) UM EMERY 00050/01 STATISTICS *STA C *STA D3T1 59 STATISTICS.*STA.C.1 1 LINE 29 1 PAGE UM WSG JULY 30, 1973 23:26.29 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO RUN THE STATISTICS SAVE PROGRAM. INVOKED BY ENTERING "MTS *STA" ON THE OPERATOR'S CONSOLE. THE SAVE PROGRAM DUMPS THE MTS JOB STATISTICS FILE (*STATISTICS) TO TAPE. MTS AUTOMATICALLY WARNS THE OPERATOR WHEN *STATISTICS IS NEARLY FULL BY PRINTING "*** *STATISTICS IS FULL ***" ON THE CONSOLE. WHEN THIS HAPPENS, THE OPERATOR SHOULD IMMEDIATELY ENTER "MTS *STA" TO BEGIN THE SAVE PROGRAM BEFORE IT IS REALLY FULL (JOBS WILL BEGIN TO "SNARK" WHEN IT IS REALLY FULL). 00050/02 STATISTICS SAVE PROGRAM SA G SSAV WSG:SSAV(1,999) D3T1 60 STATISTICS.SAVE_PROGRAM.SA.2 1 LINE 80 8 PAGE UM WSG JULY 30, 1973 23:26.31 0 PROGRAM TO SAVE *STATISTICS ON TAPE. THIS PROGRAM IS RUN BY ENTERING "MTS *STA" ON THE OPERATOR'S CONSOLE. IT FIRST ASKS THE OPERATOR FOR THE NAME OF THE 9-TRACK TAPE DRIVE ON WHICH HE HAS MOUNTED AN "INDIVIDUAL" STAT TAPE (WITH THE RING IN). THE INDIVIDUAL TAPE (300 FEET IS LONG ENOUGH) SHOULD BE LABELED WITH "STAT " AS THE VOLUME NAME. THIS PROGRAM WILL THEN COPY *STATISTICS(3,LAST) TO THIS TAPE WHICH IS BLOCKED VB(16379,255). THE CURRENT TIME AND DATE WILL BE USED AS THE DATA SET NAME. THE DATA READ FROM *STATISTICS IS ALSO SAVED IN VM AND THE TAPE IS REWOUND AND COMPARED WITH THE VM COPY. IF THE COMPARE IS SUCCESSFUL, LINE 2 OF *STATISTICS (USED TO FIND THE CURRENT FILE ON THE MONTHLY TAPE) IS SAVED AND THE FILE IS EMPTIED. LINE 1 (USED BY MTS FOR HISTORICAL REASONS TO INDICATE THE LAST LINE NUMBER CURRENTLY IN THE FILE) IS SET TO "00002" AND LINE 2 IS RESTORED AFTER BEING UPDATED BY 1. THE FILE IS THEN UNLOCKED WHICH ALLOWS ANY WAITING USERS TO SIGNOFF. THE INDIVIDUAL TAPE IS UNLOADED AND THE OPERATOR IS ASKED TO ENTER THE NAME OF THE TAPE DRIVE WHERE THE MONTHLY TAPE IS MOUNTED (RING IN). THE MONTHLY TAPE SHOULD HAVE "STATM " AS THE VOLUME NAME. THE TAPE WILL BE SPACED OUT TO THE FILE NUMBER SPECIFIED BY LINE 2 OF *STATISTICS AND THE VM COPY OF THE DATA WILL BE ADDED TO THE MONTHLY TAPE AS A NEW FILE. IF THE MONTHLY TAPE HAS NO FILES ON IT (FRESHLY LABELED), THE PROGRAM WILL ASK THE OPERATOR IF HE IS BEGINNING A NEW MONTHLY TAPE AND IF HE REPLIES "YES" THEN IT RESETS LINE 2 OF *STATISTICS. 1 FRI AUG 02/96 19:04:25 Page 14 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THERE IS NOTHING IN THE PROGRAM (OTHER THAN TERMINOLOGY) WHICH IS ORIENTED TO A MONTHLY CYCLE OF TAPES. THE CYCLE IS CONTROLLED BY THE OPERATOR STARTING A NEW "MONTHLY" TAPE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). 0 Referenced by comments of: 256/2 00050/03 STATISTICS SAVE PROGRAM OC G SYS:STA D3T1 61 STATISTICS.SAVE_PROGRAM.OC.3 1 LINE 80 3 PAGE UM WSG JULY 30, 1973 23:26.33 00051/01 *WATFOR ARITH S # (OBSOLETE) D2T2 011 UM 00051/02 *WATFOR DODO S # (OBSOLETE) D2T2 012 UM 00051/03 *WATFOR DUMMY S # (OBSOLETE) D2T2 013 UM 00051/04 *WATFOR DUMMYFUN S # (OBSOLETE) D2T2 014 UM 00051/05 *WATFOR FIOCS S # (OBSOLETE) D2T2 015 UM 00051/06 *WATFOR FIOSTAB S # (OBSOLETE) D2T2 016 UM 00051/07 *WATFOR FORMAT S # (OBSOLETE) D2T2 017 UM 00051/08 *WATFOR FORMCONV S # (OBSOLETE) D2T2 018 UM 00051/09 *WATFOR FRIOSCAN S # (OBSOLETE) D2T2 019 UM 00051/10 *WATFOR FUNCTION S # (OBSOLETE) D2T2 020 UM 00051/11 *WATFOR INOUT S # (OBSOLETE) D2T2 021 UM 00051/12 *WATFOR LINKR S # (OBSOLETE) D2T2 022 UM 00051/13 *WATFOR MAIN S # (OBSOLETE) D2T2 023 UM 00051/14 *WATFOR MESSAGE S # (OBSOLETE) D2T2 024 UM 1 FRI AUG 02/96 19:04:25 Page 15 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00051/15 *WATFOR RELOC S # (OBSOLETE) D2T2 025 UM 00051/16 *WATFOR SCAN S # (OBSOLETE) D2T2 026 UM 00051/17 *WATFOR SPECS S # (OBSOLETE) D2T2 027 UM 00051/18 *WATFOR OPTIONS S # (OBSOLETE) D2T2 028 UM 00051/19 *WATFOR CDEFN S # (OBSOLETE) D2T2 029 UM 00051/20 *WATFOR COMMR S # (OBSOLETE) D2T2 030 UM 00051/21 *WATFOR STARTA S # (OBSOLETE) D2T2 031 UM 00051/22 *WATFOR WATMAC S # (OBSOLETE) D2T2 032 UM 00051/23 *WATFOR UAT O # (OBSOLETE) D2T2 033 UM 00051/24 *WATFOR UPDATE U # (OBSOLETE) D2.2 091 UM 00051/25 *WATFOR DIAGS S # (OBSOLETE) D2T2 035 UM 00051/26 *WATFOR DIAGS O # (OBSOLETE) D2T2 036 UM 00052/01 *COINFLIP SA CNFL S0720 'D3T1' FSNAME=COINFLIP..SA.1 62 D3T1 62 COINFLIP..SA.1 1 SEQ 80 3 PAGE UM HENRIKSEN JULY 30, 1973 23:27.01 0 DEMONSTARTION PROGRAM. 00052/02 *COINFLIP OE *COINFLIP D3T1 63 COINFLIP..O.2 1 LINE 255 1 PAGE UM HENRIKSEN JULY 30, 1973 23:27.02 00053/01 DISKDUMP SA G DSKD MTS:DISKDUMP.S D3T1 64 DISKDUMP..SA.1 1 LINE 80 11 PAGE UM PIRKOLA JULY 30, 1973 23:27.03 0 PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS. DOESN'T CALL MTS FILE ROUTINES. 00053/02 DISKDUMP OC G MTS:DISKDUMP D3T1 65 DISKDUMP..OC.2 1 LINE 80 3 PAGE UM PIRKOLA JULY 30, 1973 23:27.08 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00054/01 *TPS S # (OBSOLETE) D2T1 145 UM 00054/02 *TPS LL PTR UC S # (OBSOLETE) D2T1 146 UM 00055/01 *BCDEBCD SA G BCDE S0720 'D3T1' FSNAME=BCDEBCD..SA.1 66 D3T1 66 BCDEBCD..SA.1 1 SEQ 80 2 PAGE UM ENGLE JULY 30, 1973 23:27.43 0 TRANSLATE SCIENTIFIC 026 CODE TO EBCD. 00055/02 *BCDEBCD OC G *BCDEBCD D3T1 67 BCDEBCD..O.2 1 LINE 80 1 PAGE UM ENGLE JULY 30, 1973 23:27.44 00056 *2250RTN SA O R225 S0720 'D3T1' FSNAME=2250RTN..SA. 68 D3T1 68 2250RTN..SA. 1 SEQ 80 26 PAGE UM PIRKOLA JULY 30, 1973 23:28.54 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 2250 DISPLAY. HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 00057/01 *TABEDIT SA O TBED W045:NEWTABEDIT 69 D3T1 69 TABEDIT..SA.1 1 SEQ 80 3 PAGE UM PIRKOLA JULY 30, 1973 23:30.09 00057/02 *TABEDIT OC O *TABEDIT D3T1 70 TABEDIT..OC.2 1 LINE 80 1 PAGE UM PIRKOLA JULY 30, 1973 23:30.09 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 00062 FLINE # (SEE COMP 482) UM 00063 *PTSKRTN SA O PTSK S0720 'D3T1' FSNAME=PTSKRTN..SA. 71 D3T1 71 PTSKRTN..SA. 1 SEQ 80 14 PAGE UM PIRKOLA JULY 30, 1973 23:30.18 0 PROGRAM TO DISPLAY TASK STATUS ON A 2250. HASN'T BEEN TRIED IN YEARS AND MAY NOT WORK ANYMORE. THIS IS A SUBROUTINE CALLED BY 123. OBJECT NOT DISTRIBUTED. COPIES *LLMPSEQU (WHICH SHOULD BE COPY:LLMPSEQU (087)) TWICE. 0 Referenced by comments of: 123/1 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00064/01 *OBJSCAN SA G OBJS W062:SCN D3.1T1 23 OBJSCAN..SA.1 1 SEQ 80 20 PAGE UM TIFFANY MAR. 06, 1974 03:17.04 0 SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER RANGES FOR EACH MODULE ENCOUNTERED. PROGRAM CHANGED FOR STANDARDIZATION. 00064/02 *OBJSCAN OE G *OBJSCAN D3.1T1 24 OBJSCAN..OE.2 1 SEQ 4940 2 PAGE UM TIFFANY MAR. 06, 1974 03:17.09 00065 *ASMERR S # (OBSOLETE) D2T1 323 UM 00066/01 *ASMG ASMGASM SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGASM 1 D3.1T1 25 ASMG.ASMGASM.SA.1 1 SEQ 80 19 PAGE UM MTA MAR. 06, 1974 03:17.55 0 COMPONENTS 066/1 THROUGH 066/61 ARE THE MASTER OS/360 SOURCE FOR THE G LEVEL ASSEMBLER (ASMG) VERSION 2, LEVEL 5, FROM THE UNIVERSITY OF WATERLOO. THE UPDATE DECK (066/64) WILL PRODUCE AN ASMG WHICH RUNS IN MTS. COMPONENT 66/65 CONTAINS COMMANDS TO UPDATE AND ASSEMBLE ASMG. 00066/02 *ASMG ASMGBUFF SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGBUFF 2 D3.1T1 26 ASMG.ASMGBUFF.SA.2 1 SEQ 80 51 PAGE UM MTA MAR. 06, 1974 03:18.01 00066/03 *ASMG ASMGFD SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGFD 3 D3.1T1 27 ASMG.ASMGFD.SA.3 1 SEQ 80 22 PAGE UM MTA MAR. 06, 1974 03:18.07 00066/04 *ASMG ASMGFEX SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGFEX 4 D3.1T1 28 ASMG.ASMGFEX.SA.4 1 SEQ 80 19 PAGE UM MTA MAR. 06, 1974 03:18.11 00066/05 *ASMG ASMGFI SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGFI 5 D3.1T1 29 ASMG.ASMGFI.SA.5 1 SEQ 80 12 PAGE UM MTA MAR. 06, 1974 03:18.14 00066/06 *ASMG ASMGFPP SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGFPP 6 D3.1T1 30 ASMG.ASMGFPP.SA.6 1 SEQ 80 31 PAGE UM MTA MAR. 06, 1974 03:18.18 00066/07 *ASMG ASMGF1 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF1 7 D3.1T1 31 ASMG.ASMGF1.SA.7 1 SEQ 80 32 PAGE UM MTA MAR. 06, 1974 03:18.23 00066/08 *ASMG ASMGF2 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF2 8 D3.1T1 32 ASMG.ASMGF2.SA.8 1 SEQ 80 85 PAGE UM MTA MAR. 06, 1974 03:18.34 00066/09 *ASMG ASMGF2A SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF2A 9 D3.1T1 33 ASMG.ASMGF2A.SA.9 1 SEQ 80 59 PAGE UM MTA MAR. 06, 1974 03:18.45 00066/10 *ASMG ASMGF3 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF3 10 D3.1T1 34 ASMG.ASMGF3.SA.10 1 SEQ 80 60 PAGE UM MTA MAR. 06, 1974 03:18.55 00066/11 *ASMG ASMGF7C SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7C 11 D3.1T1 35 ASMG.ASMGF7C.SA.11 1 SEQ 80 25 PAGE UM MTA MAR. 06, 1974 03:19.02 00066/12 *ASMG ASMGF7D SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7D 12 D3.1T1 36 ASMG.ASMGF7D.SA.12 1 SEQ 80 25 PAGE UM MTA MAR. 06, 1974 03:19.06 1 FRI AUG 02/96 19:04:25 Page 18 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/13 *ASMG ASMGF7E SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7E 13 D3.1T1 37 ASMG.ASMGF7E.SA.13 1 SEQ 80 26 PAGE UM MTA MAR. 06, 1974 03:19.10 00066/14 *ASMG ASMGF7G SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7G 14 D3.1T1 38 ASMG.ASMGF7G.SA.14 1 SEQ 80 3 PAGE UM MTA MAR. 06, 1974 03:19.13 00066/15 *ASMG ASMGF7I SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7I 15 D3.1T1 39 ASMG.ASMGF7I.SA.15 1 SEQ 80 15 PAGE UM MTA MAR. 06, 1974 03:19.16 00066/16 *ASMG ASMGF7L SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7L 16 D3.1T1 40 ASMG.ASMGF7L.SA.16 1 SEQ 80 2 PAGE UM MTA MAR. 06, 1974 03:19.18 00066/17 *ASMG ASMGF7N SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7N 17 D3.1T1 41 ASMG.ASMGF7N.SA.17 1 SEQ 80 13 PAGE UM MTA MAR. 06, 1974 03:19.20 00066/18 *ASMG ASMGF7S SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7S 18 D3.1T1 42 ASMG.ASMGF7S.SA.18 1 SEQ 80 8 PAGE UM MTA MAR. 06, 1974 03:19.23 00066/19 *ASMG ASMGF7V SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7V 19 D3.1T1 43 ASMG.ASMGF7V.SA.19 1 SEQ 80 19 PAGE UM MTA MAR. 06, 1974 03:19.25 00066/20 *ASMG ASMGF7X SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF7X 20 D3.1T1 44 ASMG.ASMGF7X.SA.20 1 SEQ 80 28 PAGE UM MTA MAR. 06, 1974 03:19.30 00066/21 *ASMG ASMGF8A SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8A 21 D3.1T1 45 ASMG.ASMGF8A.SA.21 1 SEQ 80 22 PAGE UM MTA MAR. 06, 1974 03:19.34 00066/22 *ASMG ASMGF8C SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8C 22 D3.1T1 46 ASMG.ASMGF8C.SA.22 1 SEQ 80 6 PAGE UM MTA MAR. 06, 1974 03:19.37 00066/23 *ASMG ASMGF8D SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8D 23 D3.1T1 47 ASMG.ASMGF8D.SA.23 1 SEQ 80 23 PAGE UM MTA MAR. 06, 1974 03:19.40 00066/24 *ASMG ASMGF8I SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8I 24 D3.1T1 48 ASMG.ASMGF8I.SA.24 1 SEQ 80 15 PAGE UM MTA MAR. 06, 1974 03:19.44 00066/25 *ASMG ASMGF8L SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8L 25 D3.1T1 49 ASMG.ASMGF8L.SA.25 1 SEQ 80 3 PAGE UM MTA MAR. 06, 1974 03:19.45 00066/26 *ASMG ASMGF8M SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8M 26 D3.1T1 50 ASMG.ASMGF8M.SA.26 1 SEQ 80 26 PAGE UM MTA MAR. 06, 1974 03:19.49 00066/27 *ASMG ASMGF8N SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8N 27 D3.1T1 51 ASMG.ASMGF8N.SA.27 1 SEQ 80 13 PAGE UM MTA MAR. 06, 1974 03:19.53 00066/28 *ASMG ASMGF8P SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8P 28 D3.1T1 52 ASMG.ASMGF8P.SA.28 1 SEQ 80 20 PAGE UM MTA MAR. 06, 1974 03:19.56 00066/29 *ASMG ASMGF8S SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8S 29 D3.1T1 53 ASMG.ASMGF8S.SA.29 1 SEQ 80 3 PAGE UM MTA MAR. 06, 1974 03:19.58 1 FRI AUG 02/96 19:04:25 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/30 *ASMG ASMGF8V SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGF8V 30 D3.1T1 54 ASMG.ASMGF8V.SA.30 1 SEQ 80 19 PAGE UM MTA MAR. 06, 1974 03:20.01 00066/31 *ASMG ASMGIS00 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS00 31 D3.1T1 55 ASMG.ASMGIS00.SA.31 1 SEQ 80 11 PAGE UM MTA MAR. 06, 1974 03:20.04 00066/32 *ASMG ASMGIS09 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS09 33 D3.1T1 56 ASMG.ASMGIS09.SA.32 1 SEQ 80 9 PAGE UM MTA MAR. 06, 1974 03:20.07 00066/33 *ASMG ASMGIS20 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS20 34 D3.1T1 57 ASMG.ASMGIS20.SA.33 1 SEQ 80 5 PAGE UM MTA MAR. 06, 1974 03:20.08 00066/34 *ASMG ASMGIS44 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS44 35 D3.1T1 58 ASMG.ASMGIS44.SA.34 1 SEQ 80 9 PAGE UM MTA MAR. 06, 1974 03:20.11 00066/35 *ASMG ASMGIS60 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS60 36 D3.1T1 59 ASMG.ASMGIS60.SA.35 1 SEQ 80 10 PAGE UM MTA MAR. 06, 1974 03:20.13 00066/36 *ASMG ASMGIS67 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS67 37 D3.1T1 60 ASMG.ASMGIS67.SA.36 1 SEQ 80 11 PAGE UM MTA MAR. 06, 1974 03:20.15 00066/37 *ASMG ASMGIS70 SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGIS70 38 D3.1T1 61 ASMG.ASMGIS70.SA.37 1 SEQ 80 11 PAGE UM MTA MAR. 06, 1974 03:20.18 00066/38 *ASMG ASMGRTA SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGRTA 39 D3.1T1 62 ASMG.ASMGRTA.SA.38 1 SEQ 80 5 PAGE UM MTA MAR. 06, 1974 03:20.19 00066/39 *ASMG ASMGUP SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGUP 40 D3.1T1 63 ASMG.ASMGUP.SA.39 1 SEQ 80 20 PAGE UM MTA MAR. 06, 1974 03:20.23 00066/40 *ASMG ASMGSET SA G S0714 ASMGOS 'ASMGOS 26' POSN=ASMGSET 41 D3.1T1 64 ASMG.ASMGSET.SA.40 1 SEQ 80 2 PAGE UM MTA MAR. 06, 1974 03:20.25 00066/41 *ASMG COMMENCE SM G S0714 ASMGOS 'ASMGOS 26' POSN=COMMENCE 42 D3.1T1 65 ASMG.COMMENCE.SM.41 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.27 00066/42 *ASMG COMMON SM G S0714 ASMGOS 'ASMGOS 26' POSN=COMMON 43 D3.1T1 66 ASMG.COMMON.SM.42 1 SEQ 80 21 PAGE UM MTA MAR. 06, 1974 03:20.31 00066/43 *ASMG DCBOUT SM G S0714 ASMGOS 'ASMGOS 26' POSN=DCBOUT 44 D3.1T1 67 ASMG.DCBOUT.SM.43 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.33 00066/44 *ASMG DEFCHAR SM G S0714 ASMGOS 'ASMGOS 26' POSN=DEFCHAR 45 D3.1T1 68 ASMG.DEFCHAR.SM.44 1 SEQ 80 3 PAGE UM MTA MAR. 06, 1974 03:20.35 00066/45 *ASMG ENTRYOUT SM G S0714 ASMGOS 'ASMGOS 26' POSN=ENTRYOUT 46 D3.1T1 69 ASMG.ENTRYOUT.SM.45 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.37 00066/46 *ASMG FDIMEN SM G S0714 ASMGOS 'ASMGOS 26' POSN=FDIMEN 47 D3.1T1 70 ASMG.FDIMEN.SM.46 1 SEQ 80 9 PAGE UM MTA MAR. 06, 1974 03:20.39 1 FRI AUG 02/96 19:04:25 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/47 *ASMG FINISH SM G S0714 ASMGOS 'ASMGOS 26' POSN=FINISH 48 D3.1T1 71 ASMG.FINISH.SM.47 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.41 00066/48 *ASMG GETT SM G S0714 ASMGOS 'ASMGOS 26' POSN=GETT 49 D3.1T1 72 ASMG.GETT.SM.48 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.43 00066/49 *ASMG INST SM G S0714 ASMGOS 'ASMGOS 26' POSN=INST 50 D3.1T1 73 ASMG.INST.SM.49 1 SEQ 80 2 PAGE UM MTA MAR. 06, 1974 03:20.45 00066/50 *ASMG INSTSET SM G S0714 ASMGOS 'ASMGOS 26' POSN=INSTSET 51 D3.1T1 74 ASMG.INSTSET.SM.50 1 SEQ 80 2 PAGE UM MTA MAR. 06, 1974 03:20.47 00066/51 *ASMG LIST1EQU SM G S0714 ASMGOS 'ASMGOS 26' POSN=LIST1EQU 52 D3.1T1 75 ASMG.LIST1EQU.SM.51 1 SEQ 80 2 PAGE UM MTA MAR. 06, 1974 03:20.49 00066/52 *ASMG MESSAGE SM G S0714 ASMGOS 'ASMGOS 26' POSN=MESSAGE 53 D3.1T1 76 ASMG.MESSAGE.SM.52 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.51 00066/53 *ASMG PRINTOUT SM G S0714 ASMGOS 'ASMGOS 26' POSN=PRINTOUT 54 D3.1T1 77 ASMG.PRINTOUT.SM.53 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.53 00066/54 *ASMG PRNT SM G S0714 ASMGOS 'ASMGOS 26' POSN=PRNT 55 D3.1T1 78 ASMG.PRNT.SM.54 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.55 00066/55 *ASMG PUTT SM G S0714 ASMGOS 'ASMGOS 26' POSN=PUTT 56 D3.1T1 79 ASMG.PUTT.SM.55 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.57 00066/56 *ASMG RD SM G S0714 ASMGOS 'ASMGOS 26' POSN=RD 57 D3.1T1 80 ASMG.RD.SM.56 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:20.59 00066/57 *ASMG SETR SM G S0714 ASMGOS 'ASMGOS 26' POSN=SETR 58 D3.1T1 81 ASMG.SETR.SM.57 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:21.02 00066/58 *ASMG SNAPDATA SM G S0714 ASMGOS 'ASMGOS 26' POSN=SNAPDATA 59 D3.1T1 82 ASMG.SNAPDATA.SM.58 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:21.03 00066/59 *ASMG SNAPOUT SM G S0714 ASMGOS 'ASMGOS 26' POSN=SNAPOUT 60 D3.1T1 83 ASMG.SNAPOUT.SM.59 1 SEQ 80 2 PAGE UM MTA MAR. 06, 1974 03:21.05 00066/60 *ASMG TIMEOUT SM G S0714 ASMGOS 'ASMGOS 26' POSN=TIMEOUT 61 D3.1T1 84 ASMG.TIMEOUT.SM.60 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:21.07 00066/61 *ASMG TRANSLAT SM G S0714 ASMGOS 'ASMGOS 26' POSN=TRANSLAT 62 D3.1T1 85 ASMG.TRANSLAT.SM.61 1 SEQ 80 1 PAGE UM MTA MAR. 06, 1974 03:21.09 00066/62 *ASMG ASMGMOD SA G MOD0 WATF:ASMGMOD(1,999) D3.1T1 86 ASMG.ASMGMOD.SA.62 1 LINE 80 1 PAGE UM MTA MAR. 06, 1974 03:21.13 0 SOURCE FOR THE MODULE LIST INDICATING FROM WHICH FILE TO LOAD EACH PART OF ASMG. 00066/63 *ASMG ASMGMOD OC G WATF:ASMGMOD(1000) D3.1T1 87 ASMG.ASMGMOD.OC.63 1 LINE 80 1 PAGE UM MTA MAR. 06, 1974 03:21.15 1 FRI AUG 02/96 19:04:25 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/64 *ASMG ASMGUPD UU G WATF:ASMGUPD D3.2T1 27 ASMG.ASMGUPD.UU.64 1 LINE 83 35 PAGE UM MTA MAR. 21, 1975 00:54:00 0 UPDATE DECK TO CONVERT ALL OF THE OS VERSION OF ASMG (066/1 THROUGH 066/61) TO RUN IN MTS. 0 Referenced by comments of: 66/1, 66/65 00066/65 *ASMG ASMGJOB C WATF:ASMGJOB D3.1T1 89 ASMG.ASMGJOB.C.65 1 LINE 110 1 PAGE UM MTA MAR. 06, 1974 03:21.33 0 THIS JOB UPDATES AND ASSEMBLES THE G ASSEMBLER FOR MTS. THE FOLLOWING FILES AND TAPES ARE USED: ASMGUPD - UPDATE DECK FOR ALL OF ASMG (066/64) ASMGSET - EMPTIED AND WRITTEN WITH A COPY SECTION ASMGMACROS - EMPTIED AND WRITTEN WITH A MACRO LIBRARY S714 VOL=ASMGOS - MASTER TAPE, CONTAINS CURRENT OS VERSION OF ASMG (066/1 THROUGH 066/61) ***NOTE*** DATA SET NAMES ON THIS TAPE MUST NOT BE CHANGED SINCE ASMGUPD CONTAINS %POSN COMMANDS TO POSITION THE TAPE. S416 VOL=UPDATE - WRITTEN WITH NEW SOURCE FOR ASMG (MTS VERSION) S111 VOL=ASMGL - WRITTEN WITH LISTINGS FOR ASMG (MTS VERSION) NEWASMG - EMPTIED AND WRITTEN WITH OBJECT FOR ASMG (MTS VERSION) THE LISTINGS ARE NOT PRINTED. A SEPARATE JOB IS REQUIRED. 0 Referenced by comments of: 66/67 00066/66 *ASMG ASMGJOB2 C WATF:ASMGJOB2 D3.1T1 90 ASMG.ASMGJOB2.C.66 1 LINE 115 1 PAGE UM MTA MAR. 06, 1974 03:21.35 0 COMMAND FILE TO ASSEMBLE SELECTED PARTS OF ASMG. 00066/67 *ASMG ASMGLINK C WATF:ASMGLINK D3.1T1 91 ASMG.ASMGLINK.C.67 1 LINE 112 1 PAGE UM MTA MAR. 06, 1974 03:21.37 0 COMMAND FILE TO PUT OUTPUT OF ASMGJOB (066/65) INTO PRIVATE FILES FOR TESTING. 0 Referenced by comments of: 66/68 00066/68 *ASMG ASMGCOPY C WATF:ASMGCOPY D3.1T1 92 ASMG.ASMGCOPY.C.68 1 LINE 22 1 PAGE UM MTA MAR. 06, 1974 03:21.40 0 COMMAND FILE TO MOVE THE OUTPUT OF ASMGLINK (066/67) INTO THE PUBLIC FILES. 00066/69 *ASMG *ASMG OE G *ASMG D3.1T1 93 ASMG.*ASMG.OE.69 1 SEQ 8660 3 PAGE UM MTA MAR. 06, 1974 03:21.42 0 THE OBJECT FOR ASMG IS STORED IN 15 SEQUENTIAL, PUBLIC FILES IN MTS (066/69 THROUGH 066/83). THE FILES AND THEIR CONTENTS BY MODULE NAME ARE: FILE ENTRY POINT CONTENTS ---- ----------- -------- *ASMG ASMGASM ASMGASM,ASMGBUFF,ASMGMOD *ASMBLR ASMGASM (EXACTLY THE SAME CONTENTS AS *ASMG) ETC:ASMGFPP ASMGFPP ASMGFPP,ASMGFD,ASMGFEX 1 FRI AUG 02/96 19:04:25 Page 22 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ETC:ASMGF2 ASMGF1 ASMGF1,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:ASMGRTA ASMGRTA ASMGRTA ETC:ASMGUP ASMGUP ASMGUP 00066/70 *ASMG ASMGFPP OE G ETC:ASMGFPP D3.1T1 94 ASMG.*ASMGFPP.OE.70 1 SEQ 12232 5 PAGE UM MTA MAR. 06, 1974 03:21.44 00066/71 *ASMG ASMGF2 OE G ETC:ASMGF2 D3.2T1 28 ASMG.ASMGF2.OE.71 1 SEQ 23168 7 PAGE UM MTA MAR. 21, 1975 00:54:24 0 OBJECT IS PATCHED TO DEFAULT IS=70 AS FOLLOWS: REP 0017EC 0B00000046 IN MODULE ASMGF1 00066/72 *ASMG ASMGF3 OE G ETC:ASMGF3 D3.1T1 96 ASMG.*ASMGF3.OE.72 1 SEQ 8052 3 PAGE UM MTA MAR. 06, 1974 03:21.49 00066/73 *ASMG ASMGF7 OE G ETC:ASMGF7 D3.1T1 97 ASMG.*ASMGF7.OE.73 1 SEQ 12888 6 PAGE UM MTA MAR. 06, 1974 03:21.51 00066/74 *ASMG ASMGF8 OE G ETC:ASMGF8 D3.1T1 98 ASMG.*ASMGF8.OE.74 1 SEQ 9280 6 PAGE UM MTA MAR. 06, 1974 03:21.53 00066/75 *ASMG ASMGIS00 OE G ETC:ASMGIS00 D3.1T1 99 ASMG.*ASMGIS00.OE.75 1 SEQ 2137 1 PAGE UM MTA MAR. 06, 1974 03:21.55 00066/76 *ASMG ASMGIS09 OE G ETC:ASMGIS09 D3.1T1 100 ASMG.*ASMGIS09.OE.76 1 SEQ 1834 1 PAGE UM MTA MAR. 06, 1974 03:21.57 00066/77 *ASMG ASMGIS20 OE G ETC:ASMGIS20 D3.1T1 101 ASMG.*ASMGIS20.OE.77 1 SEQ 1180 1 PAGE UM MTA MAR. 06, 1974 03:21.59 00066/78 *ASMG ASMGIS44 OE G ETC:ASMGIS44 D3.1T1 102 ASMG.*ASMGIS44.OE.78 1 SEQ 1847 1 PAGE UM MTA MAR. 06, 1974 03:22.02 00066/79 *ASMG ASMGIS60 OE G ETC:ASMGIS60 D3.1T1 103 ASMG.*ASMGIS60.OE.79 1 SEQ 2055 1 PAGE UM MTA MAR. 06, 1974 03:22.04 00066/80 *ASMG ASMGIS67 OE G ETC:ASMGIS67 D3.1T1 104 ASMG.*ASMGIS67.OE.80 1 SEQ 2141 1 PAGE UM MTA MAR. 06, 1974 03:22.06 1 FRI AUG 02/96 19:04:25 Page 23 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/81 *ASMG ASMGIS70 OE G ETC:ASMGIS70 D3.1T1 105 ASMG.*ASMGIS70.OE.81 1 SEQ 2270 1 PAGE UM MTA MAR. 06, 1974 03:22.08 00066/82 *ASMG ASMGRTA OE G ETC:ASMGRTA D3.1T1 106 ASMG.*ASMGRTA.OE.82 1 SEQ 1280 1 PAGE UM MTA MAR. 06, 1974 03:22.10 00066/83 *ASMG ASMGUP OE G ETC:ASMGUP D3.1T1 107 ASMG.*ASMGUP.OE.83 1 SEQ 3626 1 PAGE UM MTA MAR. 06, 1974 03:22.12 00066/84 *ASMG USER'S GUIDE P S0631 ASMG26 POSN=ASMG.GUIDE.USERS 3 D3.1T1 108 ASMG.USER'S_GUIDE.P.84 1 SEQ 132 103 PAGE UM MTA MAR. 06, 1974 03:23.18 0 WATERLOO USER'S GUIDE FOR OS/360 ASMG. COPY TO A TN PRINTER @MCC. 00066/85 *ASMG MODS WRITEUP WF S0720 'D3T1' FSNAME=ASMG.MODS_WRITEUP.WF.78 150 D3T1 150 ASMG.MODS_WRITEUP.WF.78 1 LINE 105 1 DISK UM MTA MAR. 15, 1973 18:04.14 0 THIS IS COMPUTING CENTER MEMO M171 -- "CHANGES TO *ASMG AND *ASMBLR." THIS WRITEUP IS OUT OF DATE. 00066/86 *ASMG IMPLEMENTATION P S0631 ASMG26 POSN=ASMG.GUIDE.IMPL 4 D3.1T1 109 ASMG.IMPLEMENTATION.P.86 1 SEQ 132 39 PAGE UM MTA MAR. 06, 1974 03:23.28 0 IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG. COPY TO A TN PRINTER @MCC. 00067/01 FILE SAVE MAIN SA G FSAV RSTR:FILESAVE(1000) D3.2T1 29 FILE_SAVE.MAIN.SA.01 1 LINE 80 31 PAGE UM BERSTIS MAR. 21, 1975 00:54:26 0 MTS FILESAVE (BACKUP) PROGRAM. THIS PROGRAM IS RUN 6 TIMES PER WEEK AT UM TO BACKUP DISK FILES IN CASE OF HARDWARE (OR SOFTWARE) PROBLEMS. A "FULL SAVE" IS RUN ONCE PER WEEK, A "PARTIAL SAVE" 5 TIMES PER WEEK. THE PARTIAL SAVE SAVES ONLY THOSE FILES WHICH HAVE BEEN REFERENCED SINCE THE PREVIOUS FILE SAVE. THE TAPES GENERATED BY THE PARTIAL SAVE ARE RE-CYCLED ON A WEEKLY BASIS. THE TAPES GENERATED BY THE FULL SAVE ARE COPIED (SEE 610) AND SAVED FOR SEVERAL MONTHS. SIX WEEK INTERVALS OF THESE FULL TAPES ARE SAVED FOR SEVERAL YEARS. WE HAVE FOUND THAT THIS PROCEDURE (WHICH INCLUDES STORING THE FULL TAPES IN ANOTHER BUILDING) SEEMS TO PROVIDE A REASONABLE BACKUP. SOURCE FOR THE FILESAVE MAIN PROGRAM. COPIES COPY:CATEQU (482/28), COPY:DSCBDSCT (482/41), COPY:PATEQU (482/43), AND COPY:DSKDSCT (482/42). ASSEMBLE WITH *SYSMAC. CHANGED TO ALLOW MORE THAN 10 TAPES AND TO WORK WITH THE NEW VTOCREAD (067/4). 0 Referenced by comments of: 92/1, 502/11 00067/02 FILE SAVE SAVEFILE SA G SFIL RSTR:SAVEFILE(1000) D3.2T1 30 FILE_SAVE.SAVEFILE.SA.02 1 LINE 80 11 PAGE UM BERSTIS MAR. 21, 1975 00:54:31 0 SUBROUTINE WHICH COPIES COPY:FCBEQU (482/27), COPY:CATEQU (482/28), COPY:DSKDSCT (482/42), AND COPY:DSCBDSCT (482/41). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 502/11 1 FRI AUG 02/96 19:04:25 Page 24 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00067/03 FILE SAVE TAPEOUT SA G TOUT RSTR:TAPEOUT(1000) D3.2T1 31 FILE_SAVE.TAPEOUT.SA.03 1 LINE 80 8 PAGE UM BERSTIS MAR. 21, 1975 00:54:34 0 ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 502/11 00067/04 FILE SAVE VTOCRD SA G VTOC RSTR:VTOCREAD(1000) D3.2T1 32 FILE_SAVE.VTOCRD.SA.04 1 LINE 80 11 PAGE UM BERSTIS MAR. 21, 1975 00:54:36 0 SUBROUTINE WHICH COPIES COPY:DSKDSCT (482/42), COPY:DSCBDSCT (482/41), COPY:PATEQU (482/43), AND COPY:FCBEQU (482/27). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 67/1, 104/94, 597/1, 642/1 00067/05 FILE SAVE OBJECT OE G RSTR:FILESAVEOBJ D3.2T1 33 FILE_SAVE.OBJECT.OE.05 1 SEQ 8192 5 PAGE UM BERSTIS MAR. 21, 1975 00:54:41 00067/06 FILE SAVE SVSTART C RSTR:SVSTART D3T1 157 FILE_SAVE.SVSTART.C.6 1 LINE 42 1 PAGE UM BERSTIS JULY 30, 1973 23:37.56 0 COMMAND AND DATA FILE WHICH IS SOURCED TO BY *SVW (067/8) AND *SVD (067/13). THIS FILE STARTS UP THE SEVERAL (2 OR 4) STREAMS WHICH ARE USED FOR THE SHORT (PARTIAL) OR LONG (FULL) SAVE. 00067/07 FILE SAVE FSS C RSTR:FSS D3T1 158 FILE_SAVE.FSS.C.7 1 LINE 100 1 PAGE UM BERSTIS JULY 30, 1973 23:37.57 0 COMMAND AND DATA FILE SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4, *SVA, *SVB, *SVC, AND *SVE). THIS FILE CONTAINS THE VOLUME SERIAL NUMBERS OF THE VOLUMES TO BE SAVED BY EACH STREAM. IN ADDITION, 2 CODE LETTERS FOLLOW THE VOLUME SERIAL NUMBERS TO INDICATE WHETHER THE LABEL FOR EACH TAPE IS TO BE CHECKED (C) AND WHETHER ALL FILES (A FULL SAVE) ARE TO BE SAVED (A), OR JUST THOSE WHICH HAVE BEEN REFERENCED SINCE THE LAST FILE SAVE (A PARTIAL SAVE). THIS FILE WILL HAVE TO BE CHANGED BY EACH INSTALLATION TO REFLECT THE NUMBER OF DISK PACKS IN USE AND THEIR VOLUME SERIAL NUMBERS. 00067/08 FILE SAVE WEEKLY START C *SVW D3T1 159 FILE_SAVE.WEEKLY_START.C.8 1 LINE 24 1 PAGE UM BERSTIS JULY 30, 1973 23:38.00 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE WEEKLY (FULL) FILESAVE PROCESS. ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN. THIS FILE WILL SOURCE TO RSTR:SVSTART WHICH WILL START UP 3 MORE STREAMS (*SV2, *SV3, AND *SV4) AUTOMATICALLY SO THAT THE FULL SAVE IS DONE IN 4 STREAMS. EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED, DEPENDING ON THE NUMBER OF DISK DRIVES AND CONTROLS, AND TAPE DRIVES AND CONTROLS WHICH ARE AVAILABLE. INVOKED BY ENTERING "MTS *SVW" ON THE OPERATORS CONSOLE. 0 Referenced by comments of: 67/6 00067/09 FILE SAVE WKLY STREAM #1 C *SV1 D3T1 160 FILE_SAVE.WKLY_STREAM_#1.C.9 1 LINE 19 1 PAGE UM BERSTIS JULY 30, 1973 23:38.02 0 THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART WEEKLY (FULL) STREAM #1. 1 FRI AUG 02/96 19:04:25 Page 25 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00067/10 FILE SAVE WKLY STREAM #2 C *SV2 D3T1 161 FILE_SAVE.WKLY_STREAM_#2.C.10 1 LINE 19 1 PAGE UM BERSTIS JULY 30, 1973 23:38.04 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #2. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #2. 00067/11 FILE SAVE WKLY STREAM #3 C *SV3 D3T1 162 FILE_SAVE.WKLY_STREAM_#3.C.11 1 LINE 19 1 PAGE UM BERSTIS JULY 30, 1973 23:38.07 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #3. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #3. 00067/12 FILE SAVE WKLY STREAM #4 C *SV4 D3T1 163 FILE_SAVE.WKLY_STREAM_#4.C.12 1 LINE 19 1 PAGE UM BERSTIS JULY 30, 1973 23:38.09 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #4. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #4. 00067/13 FILE SAVE DAILY START C *SVD D3T1 164 FILE_SAVE.DAILY_START.C.13 1 LINE 23 1 PAGE UM BERSTIS JULY 30, 1973 23:38.12 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE DAILY (PARTIAL) FILESAVE PROCESS. ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN. THIS FILE WILL SOURCE TO RSTR:SVSTART WHICH WILL START UP 3 MORE STREAMS (*SVB, *SVC, AND *SVE) AUTOMATICALLY SO THAT THE PARTIAL SAVE IS DONE IN 4 STREAMS. EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED. INVOKED BY ENTERING "MTS *SVD" ON THE OPERATORS CONSOLE. 0 Referenced by comments of: 67/6 00067/14 FILE SAVE DAILY STREAM 1 C *SVA D3T1 165 FILE_SAVE.DAILY_STREAM_1.C.14 1 LINE 20 1 PAGE UM BERSTIS JULY 30, 1973 23:38.14 0 THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART DAILY (PARTIAL) STREAM #1. 00067/15 FILE SAVE DAILY STREAM 2 C *SVB D3T1 166 FILE_SAVE.DAILY_STREAM_2.C.15 1 LINE 20 1 PAGE UM BERSTIS JULY 30, 1973 23:38.16 0 COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #2. THIS FILE IS AUTOMATICALLY INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #2. 00067/16 FILE SAVE DAILY STREAM 3 C *SVC UM BERSTIS 0 COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #3. THIS FILE IS AUTOMATICALLY INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #3. 00067/17 FILE SAVE DAILY STREAM 4 C *SVE UM BERSTIS 0 COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #4. THIS FILE IS AUTOMATICALLY INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #4. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00068 *LINPG # (NOT DISTRIBUTED) UM HARDING 00069 *DRAW SA O DRAW S0720 'D3T1' FSNAME=DRAW..SA. 167 D3T1 167 DRAW..SA. 1 SEQ 80 13 PAGE UM PIRKOLA JULY 30, 1973 23:38.23 0 PROGRAM TO DO SIMPLE DRAWING ON A 2250. HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 00071/01 LISTSTAT SA G LSTA WSG:LISTSTAT(1,999) D3.2T1 34 LISTSTAT..SA.01 1 LINE 80 16 PAGE UM WSG MAR. 21, 1975 00:54:43 0 PROGRAM TO PRINT *STATISTICS RECORDS. WILL READ RECORDS (ON SCARDS) FROM A FILE OR BLOCKED TAPE (SUCH AS PRODUCED BY *CMB). WRITES PRINTED OUTPUT ON SPRINT. 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. COPIES COPY:STATDSECT (620) AND COPY:RATEVEC(5) (651/2). 0 Referenced by comments of: 355/1 00071/02 LISTSTAT OC G WSG:LISTSTAT(1000) D3.2T1 35 LISTSTAT..OC.02 1 LINE 80 9 PAGE UM WSG MAR. 21, 1975 00:54:46 00072/01 *FORTEDIT SA O FTED S0720 'D3T1' FSNAME=FORTEDIT..SA.1 170 D3T1 170 FORTEDIT..SA.1 1 SEQ 80 20 PAGE UM TIFFANY JULY 30, 1973 23:39.26 0 CONVERSATIONAL PROGRAM TO EDIT FORTRAN SOURCE FILES. 00072/02 *FORTEDIT OC O *FORTEDIT D3T1 171 FORTEDIT..OC.2 1 LINE 80 3 PAGE UM TIFFANY JULY 30, 1973 23:39.27 0 OBJECT DECK CONTAINS REP CARDS. 00073/01 *DSK C *DSK D3T1 172 DSK..C.1 1 LINE 30 1 PAGE UM PIRKOLA JULY 30, 1973 23:39.29 0 COMMAND FILE TO RUN DSKMAM (073/3). INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE. 00073/02 *DSK DSKMAN SA G DMAN W047:DSKMAN(1,999) D3T1 173 DSK.DSKMAN.SA.2 1 LINE 80 6 PAGE UM PIRKOLA JULY 30, 1973 23:39.31 0 PROGRAM USED BY OPERATORS TO MANIPULATE THE LIST OF MTS DISK VOLUMES. PROGRAM ALLOWS VOLUMES TO BE ADDED AND REMOVED FROM THE SYSTEM DYNAMICALLY AS WELL AS ALLOWING THE DRIVE ADDRESS FOR A VOLUME TO BE FORGOTTEN, THUS CAUSING MTS TO SEARCH THROUGH ALL DRIVE ADDRESSES LOOKING FOR THAT VOLUME ON THE NEXT REFERENCE. THIS IS PARTICULARLY USEFUL WHEN THE OPERATOR WISHES TO MOVE A VOLUME TO A DRIVE WITH A DIFFERENT ADDRESS. COPIES COPY:DSKDSCT (482/42). 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00073/03 *DSK DSKMAN OC G SYS:DSK D3T1 174 DSK.DSKMAN.OC.3 1 LINE 80 2 PAGE UM PIRKOLA JULY 30, 1973 23:39.34 0 Referenced by comments of: 73/1 00074 *2250EDIT SA O E225 S0720 'D3T1' FSNAME=2250EDIT..SA. 175 D3T1 175 2250EDIT..SA. 1 SEQ 80 29 PAGE UM PIRKOLA JULY 30, 1973 23:39.56 0 PROGRAM TO EDIT FILES USING 2250 DISPLAY. HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 00075 *ROSSPRINT # (OBSOLETE) UM 00076/01 RESERVE DISK *RSV C *RSV D3T1 176 RESERVE_DISK.*RSV.C.1 1 LINE 42 1 PAGE UM MTA JULY 30, 1973 23:39.59 0 COMMAND FILE TO RUN THE DISK RESERVE PROGRAM (076/3). INVOKED BY ENTERING "MTS *RSV" ON OPERATOR'S CONSOLE. 00076/02 RESERVE DISK RESERVE PGM SA G RSV0 S0720 'D3T1' FSNAME=RESERVE_DISK.RESERVE_PGM.SA.2 177 D3T1 177 RESERVE_DISK.RESERVE_PGM.SA.2 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:40.00 0 PROGRAM TO EXECUTE A RESERVE COMMAND FOR A DISK PACK. USED ONLY WITH 2844 OR 2 TAIL SWITCH. 00076/03 RESERVE DISK RESERVE PGM OC G W000:RSV D3T1 178 RESERVE_DISK.RESERVE_PGM.OC.3 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:40.02 0 Referenced by comments of: 76/1 00077/01 STATBUFF SA G STBF MTA:STATBUFF D3T1 179 STATBUFF..SA.1 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:40.05 0 POINTS TO THE BUFFER USED BY THE STAT JOB (079) IF IT IS ACTIVE. THE SECOND WORD POINTS TO THE STAT JOB'S JOB TABLE. 00077/02 STATBUFF OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00078/01 STAT SUBROUTINE SA G STSB MTA:STATSUB D3T1 180 STAT_SUBROUTINE..SA.1 1 LINE 80 4 PAGE UM MTA JULY 30, 1973 23:40.07 0 SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O. 00078/02 STAT SUBROUTINE OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00079/01 STAT JOB SA G STAT MTA:STATSOU D3.2T1 36 STAT_JOB..SA.01 1 LINE 80 17 PAGE UM MTA MAR. 21, 1975 00:54:47 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/4) AND COPY:LLMPSEQU (087). ASSEMBLE USING COPY:SETPARM (653). 1 FRI AUG 02/96 19:04:25 Page 28 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 77/1, 140/1 00079/02 STAT JOB 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00079/03 STAT JOB 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00080/01 INIT JOB SA G INIT MTA:INITJOB(1,999) 78 D3.1T1 114 INIT_JOB..SA.1 1 LINE 80 2 PAGE UM MTA MAR. 06, 1974 03:23.50 0 AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST). AFTER FINDING THE MTS DISK CATALOGS, THIS JOB TURNS OVER THE REMAINING WORK OF INITIALIZING THE SYSTEM TO MTS BY USING THE SVC STRTJB TO START "MTS *INIT" (SEE COMP 097). 00080/02 INIT JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00082/01 DMOD SA G DMOD W045:PF.DMOD D3.2T1 37 DMOD..SA.01 1 LINE 80 7 PAGE UM PIRKOLA MAR. 21, 1975 00:54:50 0 PROGRAM TO PATCH A DISK PAGE. USE WITH EXTREME CAUTION. AVAILABLE COMMANDS ARE: RNNNNPPPP READ RELATIVE PAGE PPPP ON PUBLIC VOLUME NUMBER NNNN. RHNNNNPPPP SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. (H MEANS HOLD) R READ PAGE USING THE LAST NNNNPPPP SPECIFIED. RH SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. WNNNNPPPP WRITE RELATIVE PAGE PPPP ON PUBLIC VOLUME NUMBER NNNN. WHNNNNPPPP SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. W WRITE PAGE USING THE LAST NNNNPPPP SPECIFIED. WH SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. D DUMP PAGE ON SPRINT. I INTERRUPT (CALL ERROR). USED TO RETURN TO MTS SO THAT $MOD CAN BE USED TO PATCH THE PAGE, THEN $RESTART AND WRITE IT OUT. 00082/02 DMOD OC G W045:PF.DMOD.O D3.2T1 38 DMOD..OC.02 1 LINE 80 2 PAGE UM PIRKOLA MAR. 21, 1975 00:54:52 00083/01 *EBCDBCD SA G EBCD WSG:EBCDBCD(1,999) D3T1 185 EBCDBCD..SA.1 1 SEQ 80 2 PAGE UM WSG JULY 30, 1973 23:41.00 0 PROGRAM TO TRANSLATE 029 KEYPUNCH RECORDS TO 026. NEW VERSION ACCEPTS LONG RECORDS. 00083/02 *EBCDBCD OC O *EBCDBCD D3T1 186 EBCDBCD..OC.2 1 LINE 80 1 PAGE UM WSG JULY 30, 1973 23:41.00 00084/01 ARU *ARURTN SA G S0001 'SMITH' FSNAME=ARURTN.S D3T1 187 ARU.*ARURTN.SA.1 1 LINE 72 23 DISK UM FRONCZAK NOV. 21, 1972 16:31.23 0 DEVICE SUPPORT ROUTINES FOR THE IBM 7772 AUDIO RESPONSE UNIT. REQUIRES DBS:MAC MACRO LIB (455) AND REFERENCES *ARUDEF (084/4) AND *SPEAK (084/3). 1 FRI AUG 02/96 19:04:25 Page 29 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 84/3, 84/4, 455/1 00084/02 ARU *ARURTN OC G *ARURTN D3T1 188 ARU.*ARURTN.OC.2 1 SEQ 80 3 PAGE UM FRONCZAK JULY 30, 1973 23:42.24 00084/03 ARU *SPEAK D G *SPEAK D3T1 189 ARU.*SPEAK.D.3 1 LINE 255 60 PAGE UM FRONCZAK JULY 30, 1973 23:42.25 0 VOCABULARY FILE FOR *ARURTN (084/1). 0 Referenced by comments of: 84/1 00084/04 ARU *ARUDEF D G *ARUDEF D3T1 190 ARU.*ARUDEF.D.4 1 LINE 10 1 PAGE UM FRONCZAK JULY 30, 1973 23:42.34 0 PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1) 0 Referenced by comments of: 84/1 00084/05 ARU DCVD SUBR SA G # (PART OF 084/1) D2T1 420 UM FRONCZAK 0 SUBROUTINE TO CONVERT DIGITALLY CODED VOICE FROM THE FORMAT EXPECTED BY THE 7772 TO A MORE REASONABLE FORMAT. REQUIRES DBS:MAC MACRO LIB (455). 0 Referenced by comments of: 84/13, 84/14, 84/16 00084/06 ARU DCVD SUBR OC G # *LIBRARY (SEE COMP 524) UM FRONCZAK 00084/07 ARU DCVC SUBR SA G # (PART OF 084/1) D2T1 419 UM FRONCZAK 0 SUBROUTINE TO CONVERT DIGITALLY CODED VOICE TO THE FORMAT EXPECTED BY THE 7772. REQUIRES DBS:MAC MACRO LIB (455). 0 Referenced by comments of: 84/13, 84/14, 84/16 00084/08 ARU DCVC SUBR OC G # *LIBRARY (SEE COMP 524) UM FRONCZAK 00084/09 ARU DCVG SUBR SA G # (PART OF 084/1) UM FRONCZAK 0 SUBROUTINE TO RETRIEVE THE DIGITALLY CODED VOICE USED BY THE 7772. 0 Referenced by comments of: 84/13, 84/14, 84/16 00084/10 ARU DCVG SUBR OC G # *LIBRARY (SEE COMP 524) UM FRONCZAK 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00084/11 ARU *ARUVOC D G *ARUVOC D3T1 191 ARU.*ARUVOC.D.11 1 LINE 102 11 PAGE UM FRONCZAK JULY 30, 1973 23:42.36 0 LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING. 00084/12 ARU *CREVOC SA G # (PART OF 084/1) D2T2 207 UM FRONCZAK 0 PROGRAM TO CREATE AN ARU VOCABULARY FILE. REQUIRES DBS:MAC MACRO LIB (455). 00084/13 ARU *CREVOC OC G *CREVOC D3T1 192 ARU.*CREVOC.OC.13 1 LINE 80 3 PAGE UM FRONCZAK JULY 30, 1973 23:42.39 0 CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9). ENDS WITH A "$CONTINUE WITH DBS:LM1" WHICH PRINTS MESSAGES (SEE 303/6). 00084/14 ARU *VLIST SA G # (PART OF 084/1) D2T2 208 UM FRONCZAK 0 PROGRAM TO EITHER SPEAK OR PRINT AN AUDIO RESPONSE UNIT VOCABULARY FILE. REQUIRES DBS:MAC MACRO LIB (455). CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9). 00084/15 ARU *VLIST OC G *VLIST D3T1 193 ARU.*VLIST.OC.15 1 LINE 80 1 PAGE UM FRONCZAK JULY 30, 1973 23:42.41 00084/16 ARU *DCVDEC SF G S0001 'SMITH' FSNAME=DCVDEC.S D3T1 194 ARU.*DCVDEC.SF.16 1 LINE 67 1 DISK UM FRONCZAK AUG. 14, 1972 17:42.40 0 PROGRAM TO FORM AND LIST THE INFO WHICH WOULD BE TRANSMITTED TO THE ARU FOR A TEXT LINE. CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9). 00084/17 ARU *DCVDEC OC G *DCVDEC D3T1 195 ARU.*DCVDEC.O.17 1 LINE 72 1 PAGE UM FRONCZAK JULY 30, 1973 23:43.00 00084/18 ARU *FSK D G *FSK D3T1 196 ARU.*FSK.D.18 1 LINE 31 1 PAGE UM FRONCZAK JULY 30, 1973 23:43.01 0 AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO 11-BIT (FRAME SIZE) ASCII CODE. 00084/19 ARU *IM D G *IM D3T1 197 ARU.*IM.D.19 1 LINE 87 1 PAGE UM FRONCZAK JULY 30, 1973 23:43.03 0 AN ARU VOCABULARY THAT TRANSLATES ALL OUTPUT TO INTERNATIONAL MORSE CODE. 00084/20 ARU *NOTES D G *NOTES D3T1 198 ARU.*NOTES.D.20 1 LINE 91 2 PAGE UM FRONCZAK JULY 30, 1973 23:43.05 0 AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES. 1 FRI AUG 02/96 19:04:25 Page 31 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00084/21 ARU @ UM FRONCZAK 0 I/O SUPPORT USED IN CONJUNCTION WITH PDP8RTN (116) TO DRIVE THE "VOTRAX" AUDIO RESPONSE UNITS. 00085 DRUM INIT INIT:DINIT # (SEE COMP 97/8 AND 97/9) UM 00086/01 *2501RTN SA G TFZO DWB:UBCTFZO.S D3T1 199 2501RTN..SA.1 1 LINE 80 16 PAGE UM DWB JULY 30, 1973 23:43.07 0 MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2501 CARD READER. CALLS BINEBCD (243). 0 Referenced by comments of: 243/1 00086/02 *2501RTN OC G *2501RTN D3T1 200 2501RTN..OC.2 1 LINE 80 3 PAGE UM DWB JULY 30, 1973 23:43.10 0 OBJECT FOR 2501 ROUTINES AND OMR CONVERT SUBR (576/2). 00087 LLMPSEQU SA G COPY:LLMPSEQU D3.2T1 39 LLMPSEQU..SA. 1 LINE 72 8 PAGE UM MTA MAR. 21, 1975 00:54:54 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/4). 0 Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 24/1, 40/1, 41/1, 42/1, 44/1, 45/2, 46/2, 47/1, 50/2, 63/1, 79/1, 101/1, 102/1, 104/69, 116/1, 123/1, 135/1, 198/1, 343/1, 353/1, 354/1, 355/1, 387/1, 400/1, 413/1, 413/6, 441/1, 447/1, 447/3, 447/5, 447/7, 462/1, 464/1, 487/1, 507/2, 531/1, 531/4, 531/8, 539/1, 540/1, 545/45, 554/1, 554/3, 570/1, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 577/53, 577/55, 578/1, 588/1, 589/1, 616/1, 616/3, 617/1, 618/1, 634/1, 635/1, 636/1, 637/1, 638/1, 639/1, 647/1, 651/10 00089 CLEAN # (SEE COMP 97/6 AND 97/7) UM 00090/01 *HEXLIST SA G HEXL W045:NEWHEXLIST D3T1 202 HEXLIST..SA.1 1 LINE 80 6 PAGE UM PIRKOLA JULY 30, 1973 23:43.29 0 PRINTS OBJECT DECKS IN HEX. 00090/02 *HEXLIST OC G *HEXLIST D3T1 203 HEXLIST..O.2 1 LINE 80 3 PAGE UM PIRKOLA JULY 30, 1973 23:43.31 00091/01 *DOUBLE SA O DBLE S0720 'D3T1' FSNAME=DOUBLE..SA.1 204 D3T1 204 DOUBLE..SA.1 1 LINE 80 16 PAGE UQV BENET JULY 27, 1973 22:03.05 0 CONVERTS DOUBLE (NOT LONG) PRECISION CONSTANTS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00091/02 *DOUBLE OC O *DOUBLE D3T1 205 DOUBLE..OC.2 1 LINE 80 3 PAGE UQV BENET JULY 30, 1973 23:43.35 00092/01 FILE RESTORE RSTFMT0 SA G FMT0 RSTR:RSTFMT0 D3.1T1 116 FILE_RESTORE.RSTFMT0.SA.1 1 LINE 80 42 PAGE UM BERSTIS MAR. 06, 1974 03:23.54 0 MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 502/1 00092/02 FILE RESTORE RSTFMT1 SA G FMT1 RSTR:RSTFMT1 D3T1 207 FILE_RESTORE.RSTFMT1.SA.2 1 LINE 80 23 PAGE UM BERSTIS JULY 30, 1973 23:43.48 0 SUBROUTINE CALLED BY 092/1. COPIES COPY:CATEQU (482/28) AND COPY:FCBEQU (482/27). ASSEMBLE WITH *SYSMAC. 00092/03 FILE RESTORE OC G RSTR:RST D3.1T1 117 FILE_RESTORE..OC.3 1 SEQ 8534 9 PAGE UM BERSTIS MAR. 06, 1974 03:24.08 00092/04 FILE RESTORE *RST C *RST D3T1 209 FILE_RESTORE.*RST.C.4 1 LINE 35 1 PAGE UM BERSTIS JULY 30, 1973 23:43.55 0 COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST). INVOKED BY ENTERING "MTS *RST" ON OPERATOR'S CONSOLE. 00094/01 *TIME SA G TIME W062:TIME D3T1 210 TIME..SA.1 1 SEQ 80 1 PAGE UM TIFFANY JULY 30, 1973 23:44.08 0 PROGRAM TO PRINT TIME AND DATE. CHANGED FOR STANDARDIZATION. 00094/02 *TIME OC G *TIME D3T1 211 TIME..OC.2 1 SEQ 80 1 PAGE UM TIFFANY JULY 30, 1973 23:44.09 00096/01 *SYMBOLS SA G SYMB W009:SYMBOL.S D3T1 212 SYMBOLS..SA.1 1 LINE 80 12 PAGE UM DE JONG JULY 30, 1973 23:44.10 0 PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL. 00096/02 *SYMBOLS OC G *SYMBOLS D3T1 213 SYMBOLS..OC.2 1 LINE 255 3 PAGE UM DE JONG JULY 30, 1973 23:44.14 00097/01 INIT *INIT C *INIT D3.2T1 40 INIT.*INIT.C.01 1 LINE 45 1 PAGE UM ENGLE MAR. 21, 1975 00:54:56 0 THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL. NO OPERATOR ACTION IS REQUIRED. THIS COMMAND FILE SIGNS ON UNDER USER ID INIT AND SOURCES TO INIT:INITCMD. *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY ACCINITL IN INIT:INIT TO PRODUCE LISTS OF THE USER IDS WHICH WERE NOT PROPERLY SIGNED OFF WHEN THE SYSTEM LAST WENT DOWN (IF ANY) SO THAT THEY MAY BE "FIXED." 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00097/02 INIT INIT:INITCMD C INIT:INITCMD D3.2T1 41 INIT.INIT:INITCMD.C.02 1 LINE 59 1 PAGE UM MTA MAR. 21, 1975 00:54:57 0 THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RE-LOAD ON A 370. THE FOLLOWING FUNCTIONS ARE PERFORMED BY INITCMD: (1) THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF IN *STATISTICS TO VERIFY (AT LEAST PARTIALLY) THAT THE OPERATOR HASN'T SCREWED UP. (2) THE PROGRAM INITLOG IS RUN. IT PRINTS THE CURRENT HARDWARE CONFIGURATION AND THE REASON FOR RELOADING (AS OBTAINED FROM THE OPERATOR) AT THE END OF THE FILE INIT:LOG. (3) FMT2305 (1025) 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 ONLY FHF0. (4) THE PDP IS STARTED. (5) THE POST-IPL LOADER (MTS *S2L) IS STARTED. (6) MTS *CMD (531/3) IS STARTED TO BEGIN COLLECTING COMMAND STATISTICS, DASD ERRORS, AND THE HASP LOG. (7) THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED. (8) THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE SYSTEM LAST WENT DOWN. (9) THE INIT PROGRAM IS RUN. IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE A LIST (IN 5 FILES) OF ALL OF THE USER IDS WHICH WERE IN USE (SIGNED-ON) WHEN THE SYSTEM LAST WENT DOWN. WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS AVAILABLE" ON THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS. WHEN FINISHED, THE TOTAL NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE. NO BATCH JOBS SHOULD BE ALLOWED TO RUN (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE IT IS POSSIBLE THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH ARE STILL BEING FIXED. IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING FILE AVAILABLE" MESSAGE PRINTS AND AFTER THE "SEGMENT 2 LOADED OK" MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE ABLE TO SIGNON UNTIL THEIR USER IDS HAVE BEEN FIXED. THESE USERS WILL GET A MESSAGE WHICH INDICATES THAT THEIR IDS ARE TEMPORARILY UNAVAILABLE. 0 Referenced by comments of: 531/3 00097/03 INIT INIT:INITCMD C = ??? D3.1T1 118 INIT.INIT:INITCMD.C.2 1 LINE 82 1 PAGE UM MTA MAR. 06, 1974 03:24.11 0 THIS FILE CONTAINS THE COMMANDS NECESSARY TO INITIALIZE THE SYSTEM AFTER A RE-LOAD ON A 360/67. THE FOLLOWING FUNCTIONS ARE PERFORMED BY INITCMD: (1) THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF IN *STATISTICS TO VERIFY (AT LEAST PARTIALLY) THAT THE OPERATOR HASN'T SCREWED UP. (2) THE PROGRAM CZASE IS RUN. IT TAKES ANY MACHINE CHECK LOGOUTS (FOUND IN THE DRUM CRACKS), FORMATS THEM, AND WRITES THEM AT THE END OF THE FILE INIT:LOGOUT. IT ALSO WRITES THEM IN INIT:DRUMCRACKS UNFORMATTED. (3) THE PROGRAM INITLOG IS RUN. IT PRINTS THE CURRENT HARDWARE CONFIGURATION AND THE REASON FOR RELOADING (AS OBTAINED FROM THE OPERATOR) AT THE END OF THE FILE INIT:LOG. (4) DINIT IS RUN TO INITIALIZE THE DRUMS (ASSUMES DRM1 AND DRM2). (5) DRMINIT IS RUN TO WRITE THE MACHINE CHECK RECOVERY CODE ONTO THE DRUMS. INIT:MCFILES HAS A LIST OF FILES CONTAINING THE CODE. A MAP IS WRITTEN ON INIT:MCMAP. (6) THE PDP IS STARTED. (7) THE POST-IPL LOADER (MTS *S2L) IS STARTED. (8) MTS *CMD (531/3) IS STARTED TO BEGIN COLLECTING COMMAND STATISTICS, DASD ERRORS, AND THE HASP LOG. (9) THE SYSTEM STATUS MASTER JOB (JOBS MAS) IS STARTED. (10) THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE SYSTEM LAST WENT DOWN. 1 FRI AUG 02/96 19:04:25 Page 34 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (11) THE INIT PROGRAM IS RUN. IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE A LIST (IN 5 FILES) OF ALL OF THE USER IDS WHICH WERE IN USE (SIGNED-ON) WHEN THE SYSTEM LAST WENT DOWN. WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS AVAILABLE" ON THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS. WHEN FINISHED, THE TOTAL NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE. NO BATCH JOBS SHOULD BE ALLOWED TO RUN (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE IT IS POSSIBLE THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH ARE STILL BEING FIXED. IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING FILE AVAILABLE" MESSAGE PRINTS AND AFTER THE "SEGMENT 2 LOADED OK" MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE ABLE TO SIGNON UNTIL THEIR USER IDS HAVE BEEN FIXED. THESE USERS WILL GET A MESSAGE WHICH INDICATES THAT THEIR IDS ARE TEMPORARILY UNAVAILABLE. 0 Referenced by comments of: 97/13 00097/04 INIT INIT:INIT OC G S0027 DISTRB FSNAME=INIT D3.2T1 42 INIT.INIT:INIT.OC.04 1 LINE 80 6 PAGE UM ENGLE MAR. 12, 1975 11:58:10 0 PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN. PATCHED TO CHANGE THE NAMES IN ACCIO TO PUBLIC FILES AND TO CORRECT ACCINSCN. HAS "$CONTINUE WITH *RATENBR" LINE. 0 Referenced by comments of: 104/67 00097/05 INIT INIT:INITCHK SA G ICHK S0027 DISTRB FSNAME=INITCHK D3T1 217 INIT.INIT:INITCHK.SA.4 1 LINE 80 4 PAGE UM ENGLE JAN. 08, 1973 17:46.49 0 PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "RESONABLE" TIME AND DATE. COPIES GRDEF (104/57). 00097/06 INIT INIT:INITCHK OC G S0027 DISTRB FSNAME=ICHK D3T1 218 INIT.INIT:INITCHK.OC.5 1 LINE 80 2 DISK UM ENGLE JAN. 08, 1973 17:47.02 00097/07 INIT INIT:CLEAN SA G SFDS W045:PF.SFDESTRY D3.2T1 43 INIT.INIT:CLEAN.SA.07 1 LINE 80 3 PAGE UM PIRKOLA MAR. 21, 1975 00:58:10 0 PROGRAM TO DESTROY SCRATCH FILES. COPIES COPY:CATEQU (482/28). 00097/08 INIT INIT:CLEAN OC G INIT:CLEAN D3.2T1 44 INIT.INIT:CLEAN.OC.08 1 LINE 80 1 PAGE UM PIRKOLA MAR. 21, 1975 00:58:12 00097/09 INIT INIT:DINIT SA O DNIT DWB:DRUMINIT-S(1) D3T1 221 INIT.INIT:DINIT.SA.8 1 LINE 80 7 PAGE UM DWB AUG. 01, 1973 00:54.09 0 DRUM INITIALIZATION PROGRAM. HAS TABLE OF DRUM NAMES TO USE ASSEMBLED IN. AS DISTRIBUTED, THE TABLE CONTAINS TWO NAMES: DRM1 AND DRM2. IF THE PROGRAM CAN'T ACQUIRE ANY OF THE SPECIFIED DRUMS FROM THE SUPERVISOR, IT PRINTS "NNNN NOT AVAILABLE" AND GOES ON TO THE NEXT DRUM. THIS PROGRAM IS ONLY USED IN 360 VERSION ON MTS. 00097/10 INIT INIT:DINIT OC INIT:DINIT D3T1 222 INIT.INIT:DINIT.O.9 1 LINE 80 4 PAGE UM DWB JULY 30, 1973 23:46.37 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00097/11 INIT INIT:INITLOG SA G INIL MTA:INITLOG(1,999) D3.2T1 45 INIT.INIT:INITLOG.SA.11 1 LINE 80 4 PAGE UM MTA MAR. 21, 1975 00:58:14 0 PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD. COPIES COPY:CHACST (577/28) AND *CNFGINFODSECT (654). ASSEMBLE WITH *SYSMAC. 00097/12 INIT INIT:INITLOG OC G INIT:INITLOG D3.2T1 46 INIT.INIT:INITLOG.OC.12 1 LINE 80 2 PAGE UM MTA MAR. 21, 1975 00:58:16 0 NOTE: THIS OBJECT FILE CONTAINS AN NCA CARD FOR CNFIGTBL, SINCE THERE IS NO CNFIGTBL ON A 370. 00097/13 INIT FMT2305 SA G PFMT W047:FMT2305.S D3.2T1 47 INIT.FMT2305.SA.13 1 LINE 80 8 PAGE UBC HAMILTON MAR. 21, 1975 00:58:19 0 MTS PROGRAM TO INITIALIZE (I.E. FORMAT) A 2305 OR ITS UNDERSTUDY. THIS PROGRAM IS RUN FROM INIT:INITCMD (097/3) ON 370 SYSTEM STARTUP TO FORMAT A 2305 BEFORE STARTING THE PDP. 00097/14 INIT FMT2305 OC G INIT:FMT2305 D3.2T1 48 INIT.FMT2305.OC.14 1 SEQ 1373 1 PAGE UBC HAMILTON MAR. 21, 1975 00:58:21 00098 *SQUASH SA # (OBSOLETED BY *LINKEDIT) D2T1 278 UM 00099 *IHC M O *IHC D3T1 225 IHC..M. 1 LINE 68 1 PAGE UM TIFFANY JULY 30, 1973 23:46.44 0 LINE N CONTAINS ERROR COMMENT FOR ERROR COMMENT IHCNI 00100/01 *FILEDUMP SA G FILD W045:NEWFILEDUMP D3T1 226 FILEDUMP..SA.1 1 LINE 80 7 PAGE UM PIRKOLA JULY 30, 1973 23:46.46 0 USE *TAPEDUMP INSTEAD. (THIS HAS BEEN REMOVED FORM UM DOCUMENTATION) 00100/02 *FILEDUMP OC G *FILEDUMP D3T1 227 FILEDUMP..O.2 1 LINE 80 2 PAGE UM PIRKOLA JULY 30, 1973 23:46.48 00101/01 MOUNT SA G MNT0 WSG:MOUNT D3.2T1 49 MOUNT..SA.01 1 LINE 80 63 PAGE UM WSG MAR. 21, 1975 00:58:23 0 PROGRAM TO MOUNT PRIVATE DEVICES. SUPPORT MAGNETIC TAPES, 2671 PAPER TAPE READER, PAPER TAPE PUNCHES ON THE UM DATA CONCENTRATOR, 7772 AUDIO RESPONSE UNIT, AND THE MERIT COMPUTER NETWORK. THIS PROGRAM IS INVOKED AS A CLS BY THE MTS $MOUNT COMMAND OR BY A CALL ON THE MOUNT SUBROUTINE (OR RUNNING *MOUNT). THERE ARE TWO ENTRY POINTS: (1) "MOUNT" (SUBR AND *MOUNT) SETS UP A FAKE CLS TRANSFER VECTOR AND CALLS (2) "MOUNTCMD" (CLS ENTRY) WHICH DOES THE WORK. MTS VOLUME 4 DESCRIBES EACH OF THE DEVICE TYPES WHICH CAN BE MOUNTED. MOUNT CONTAINS GLOBAL ASSEMBLY PARAMETERS FOR THE MAXIMUM NUMBER OF DEVICES OF EACH TYPE (IF ZERO, IT DELETES THE CODE AND TABLES NECESSARY FOR MOUNTING THAT DEVICE TYPE AND MAKES THE TYPE ILLEGAL). THE DISTRIBUTED VERSION HAS 10 9-TRACK TAPES, 2 7-TRACK TAPES, AND NOTHING ELSE-- SEE THE COMMENTS IN THE ASSEMBLY LISTING. MOUNT USES A SET SYMBOL FOR THE SUPERVISOR LOCK NUMBER TO BE USED FOR INTERLOCKING OPERATOR CONSOLE COMMUNICATION. IF &LOCKNR IS SET TO ZERO, NO CONSOLE INTERLOCKING IS DONE. AT UM, WE USE NO INTERLOCKING WITH OUR 3270 OPERATOR'S CONSOLE. MOUNT CALLS THE TAPESTAT 1 FRI AUG 02/96 19:04:25 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 SUBR (447/1) TO ACCUMULATE MOUNT STATISTICS (NOT FOR BILLING). IT ALSO CALLS CUINFO FOR EACH SUCCESSFUL MOUNT TO INCREMENT THE MOUNT COUNT (FOR BILLING). COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:CLSVECTOR (535/2), AND COPY:FDUBDSECT (623). 0 Referenced by comments of: 447/1 00101/02 MOUNT *CLSMOUNT OC G WSG:MNTOBJ.D D3.2T1 50 MOUNT.*CLSMOUNT.OC.02 1 LINE 80 5 PAGE UM WSG MAR. 21, 1975 00:58:32 0 OBJECT FOR MOUNT SUBROUTINE (MOUNT) AND CLS MOUNT (MOUNTCMD). NORMALLY *CLSMOUNT IS LOADED INTO SHARED VM AT IPL BY PISTLE. HOWEVER, IF IT IS NOT, THE MTS $MOUNT COMMAND WILL DYNAMICALLY LOAD A PRIVATE COPY, BUT THE MOUNT SUBROUTINE WILL BE UNDEFINED IN LCS. NOTE THAT THE LDT CARD AT THE END OF THIS DECK CAUSES THE ENTRY POINT TO BE SET TO MOUNTCMD, SINCE THIS IS THE CLS ENTRY. THIS FILE ALSO CONTAINS THE OBJECT FOR THE TAPESTAT SUBROUTINE (447/1) AND DISMOUNT (102/1). 0 Referenced by comments of: 101/3, 447/2 00101/03 MOUNT *MOUNT OC G *MOUNT D3T1 230 MOUNT.*MOUNT.OC.3 1 LINE 24 1 PAGE UM WSG JULY 30, 1973 23:47.04 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM MOUNT (101/2). 00102/01 DISMOUNT SA G DMNT WSG:DISMOUNT(1,999) D3.2T1 51 DISMOUNT..SA.01 1 LINE 80 6 PAGE UM WSG MAR. 21, 1975 00:58:34 0 PROGRAM TO DISMOUNT THINGS MOUNTED BY MOUNT. SINCE THIS CAN NOW BE DONE VIA THE $RELEASE COMMAND, THE PROGRAM IS PRIMARILY USEFUL AS A SUBROUTINE. THE PROGRAM IS RE-ENTRANT SO IT CAN BE LOADED INTO SHARED VM (THE PRACTICE AT UM). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). 0 Referenced by comments of: 101/2 00102/02 DISMOUNT OC G # (PART OF 101/2) UM WSG 00102/03 DISMOUNT *DISMOUNT OC G *DISMOUNT D3T1 232 DISMOUNT.*DISMOUNT.OC.3 1 LINE 24 1 PAGE UM WSG JULY 30, 1973 23:47.08 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SHARED VM DISMOUNT (PART OF 101/2). 00104/01 ACCOUNTING ACCFORMAT SA G AFMT S0027 DISTRB FSNAME=ACCFORMAT D3.2T1 52 ACCOUNTING.ACCFORMAT.SA.01 1 SEQ 80 2 PAGE UM ENGLE MAY 03, 1974 11:48.47 0 COMPONENT 104 CONTAINS THE SOURCE AND OBJECT FOR THE MTS ACCOUNTING ROUTINES. THE FOLLOWING PROGRAMS CAN BE CONSTRUCTED BY COMBINING THE OBJECT FILES AS INDICATED BELOW: *STATUS STAT+AIO+GTFL ACC:ACCMAINT AMAT+ACCLIB INIT:INIT(1,999) (PROGRAM TO SET CWPF BIT)+AINT+AFLU+AIO+ACAT+CSIG+GTFL+SYSDEFS INIT:INIT(1000) (PROGRAM TO SET CWPF BIT)+AINS+FLNM+GTFL *ACCRESTORE ASTR+AFLU+AIO+GTFL+ACAT+CSIG+SYSDEFS ACC:PROJECTMAINT APMT+ACCLIB 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 0 ACC:PROJECTLIST APLS+ACCLIB ACC:PROJECTDISP APDS+ACCLIB ACC:DIRLIST DLST+ACCLIB ACCUPDAT ARDW+PRINT+AIO+TTRP+GTFL+OLDPRINT+ACCPRINT+ACCUPDAT ACC:ACCLISTING ALST+ACCLIB ACC:ACCDISPLAY ADSP+ACCLIB ACC:ACCERRORSCAN ACNS+ACCLIB ACC:ACCHEXDISP ADSP+AXPR+ACCLIB ACC:ACCFILCHARGE ADSP+AFLC+ACCLIB ACC:ACCSAVE ASAV+ACCLIB ACC:DIRDISPLAY DDSP+ACCLIB ACC:STAPROJECT SPCL+(AMXM PATCHED FROM SPPA)+AUPR+ACCLIB ACC:ACCPASWD APSW+GTFL+AIO+FLNM ACC:GETFILECHG FLUP+AIO+TTRP+GTFL ACC:ACCLIB ACAT+AERR+AFLU+AIO+ALPR+ALST+APLS+APPR+APRT+CSIG+DIR+DPRT+FIOC+FLNM+FLRT+FLSH+GTFL +IOLC+RBTA+STRD+TTRP+SYSDEFS (SEE ACCOUNTING CLS FOR FIOC (631/11) AND REBATE FOR RBTA (632/4) AND STRD (632/6)). ACCFORMAT (104/1) IS THE COPY SECTION THAT DESCRIBES THE ACCOUNTING FILE RECORD FORMAT. IT IS COPIED UNDER THE NAME "ACCFORMAT" BY COMPONENTS OF THE ACCOUNTING SYSTEM. ****** NOTE: 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/3, 104/5, 104/9, 104/11, 104/15, 104/23, 104/38, 104/40, 104/48, 104/50, 104/65, 104/67, 104/72, 104/74, 104/76, 104/82, 442/1, 502/1, 586/1, 631/6, 631/8, 632/3 00104/02 ACCOUNTING ACCPROJFMT SA G APFT S0027 DISTRB FSNAME=ACCPROJFMT D3.2T1 53 ACCOUNTING.ACCPROJFMT.SA.02 1 SEQ 80 1 PAGE UM ENGLE MAY 03, 1974 11:49.29 0 COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT. 0 Referenced by comments of: 104/15, 104/27, 104/32, 104/40, 500/18, 500/22, 631/6 00104/03 ACCOUNTING ACCERROR SA G AERR S0027 DISTRB FSNAME=ACCERROR D3.2T1 54 ACCOUNTING.ACCERROR.SA.03 1 LINE 80 8 PAGE UM ENGLE MAR. 11, 1975 15:47:24 0 CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN. COPIES ACCFORMAT (104/1). 00104/04 ACCOUNTING ACCERROR OC G S0027 DISTRB FSNAME=AERR D3.2T1 55 ACCOUNTING.ACCERROR.OC.04 1 LINE 80 2 PAGE UM ENGLE MAR. 11, 1975 15:47:32 00104/05 ACCOUNTING ACCPRINT SA G APRT S0027 DISTRB FSNAME=ACCPRINT D3.2T1 56 ACCOUNTING.ACCPRINT.SA.05 1 LINE 80 9 PAGE UM ENGLE MAY 03, 1974 12:07.43 0 FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS. COPIES ACCFORMAT (104/1). 1 FRI AUG 02/96 19:04:25 Page 38 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/06 ACCOUNTING ACCPRINT OC G S0027 DISTRB FSNAME=APRT D3.2T1 57 ACCOUNTING.ACCPRINT.OC.06 1 LINE 80 5 PAGE UM ENGLE MAY 03, 1974 12:07.52 00104/07 ACCOUNTING ACCLIST SA G ALST S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.SA.8 240 D3T1 240 ACCOUNTING.ACCLIST.SA.8 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 16:22.45 0 READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD. 00104/08 ACCOUNTING ACCLIST OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCLIST.OC.9 241 D3T1 241 ACCOUNTING.ACCLIST.OC.9 1 LINE 80 1 DISK UM ENGLE OCT. 03, 1972 15:12.04 00104/09 ACCOUNTING ACCINITL SA G AINT S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCINITL.SA.10 130 D3.1T1 130 ACCOUNTING.ACCINITL.SA.10 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 13:31.37 0 RESTORES LOCK BITS AND FILE SPACE FIELDS FOR ALL RECORDS WITH CURRENT NUMBER OF SIGNONS > 0. COPIES ACCFORMAT (104/1). 00104/10 ACCOUNTING ACCINITL OC G S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCINITL.OC.11 131 D3.1T1 131 ACCOUNTING.ACCINITL.OC.11 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 13:31.49 00104/11 ACCOUNTING STATUS SA G STAT S0027 DISTRB FSNAME=STATUS D3.2T1 58 ACCOUNTING.STATUS.SA.11 1 LINE 80 13 PAGE UM ENGLE DEC. 06, 1974 11:22.15 0 MAIN PROGRAM FOR *STATUS. COPIES ACCFORMAT (104/1) AND COPY:RATEVEC (651/2). 00104/12 ACCOUNTING STATUS OC G S0027 DISTRB FSNAME=STAT D3.2T1 59 ACCOUNTING.STATUS.OC.12 1 LINE 80 4 PAGE UM ENGLE DEC. 06, 1974 11:23.11 0 Referenced by comments of: 129/2 00104/13 ACCOUNTING FILERATE SA G FLRT S0027 DISTRB FSNAME=FILERATE D3.2T1 60 ACCOUNTING.FILERATE.SA.13 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 11:24.55 0 SUBROUTINE TO RETURN A CURRENT RATE NUMBER AND THE FILE RATES FOR A SIGNON ID. COPIES GRDEF (104/57) AND COPY:RATEVEC (651/2). 00104/14 ACCOUNTING FILERATE OC G S0027 DISTRB FSNAME=FLRT D3.2T1 61 ACCOUNTING.FILERATE.OC.14 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 11:25.34 00104/15 ACCOUNTING ACCMAINT SA G AMAT S0027 DISTRB FSNAME=ACCMAINT D3.2T1 62 ACCOUNTING.ACCMAINT.SA.15 1 LINE 80 57 PAGE UM ENGLE DEC. 06, 1974 11:26.44 0 MAIN PROGRAM FOR ACCMAINT. COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2). 00104/16 ACCOUNTING ACCMAINT OC G S0027 DISTRB FSNAME=AMAT D3.2T1 63 ACCOUNTING.ACCMAINT.OC.16 1 LINE 80 9 PAGE UM ENGLE DEC. 06, 1974 11:27.45 00104/17 ACCOUNTING ACCIO SA G AIO S0027 DISTRB FSNAME=ACCIO D3.2T1 64 ACCOUNTING.ACCIO.SA.17 1 LINE 80 15 PAGE UM ENGLE DEC. 06, 1974 11:29.08 0 GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S). 1 FRI AUG 02/96 19:04:25 Page 39 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 104/31, 502/1 00104/18 ACCOUNTING ACCIO OC G S0027 DISTRB FSNAME=AIO D3.2T1 65 ACCOUNTING.ACCIO.OC.18 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 11:29.40 0 Referenced by comments of: 129/2, 484/1, 631/12 00104/19 ACCOUNTING ACCGFUPD SA G W013:ACCGFUPD(100) D3.2T1 66 ACCOUNTING.ACCGFUPD.SA.19 1 LINE 80 1 PAGE UM ENGLE MAR. 21, 1975 01:02:18 0 PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS. RUN WITH ACCRDWRT (104/25). 0 Referenced by comments of: 104/25 00104/20 ACCOUNTING ACCGFUPD OC G W013:ACCGFUPD(1,98) D3.2T1 67 ACCOUNTING.ACCGFUPD.OC.20 1 LINE 80 1 PAGE UM ENGLE MAR. 21, 1975 01:02:21 00104/21 ACCOUNTING ACCDSPLA SA G ADSP S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.SA.22 254 D3T1 254 ACCOUNTING.ACCDSPLA.SA.22 1 LINE 80 3 PAGE UM ENGLE OCT. 05, 1972 12:08.13 0 PROGRAM TO READ A SPECIFIC RECORD OF THE ACCOUNTING FILE AND CALL ACCPRINT FOR IT. 00104/22 ACCOUNTING ACCDSPLA OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCDSPLA.OC.23 255 D3T1 255 ACCOUNTING.ACCDSPLA.OC.23 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 12:08.26 00104/23 ACCOUNTING ACCSTRUP SA G ASTR S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSTRUP.SA.24 137 D3.1T1 137 ACCOUNTING.ACCSTRUP.SA.24 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 13:43.30 0 MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS. COPIES ACCFORMAT (104/1). 00104/24 ACCOUNTING ACCSTRUP OC G S0027 DISTRB FSNAME=ASTR D3.2T1 68 ACCOUNTING.ACCSTRUP.OC.24 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 12:19.25 0 Referenced by comments of: 484/1 00104/25 ACCOUNTING ACCRDWRT SA G ARDW S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.SA.26 258 D3T1 258 ACCOUNTING.ACCRDWRT.SA.26 1 LINE 80 6 PAGE UM ENGLE OCT. 05, 1972 12:20.15 0 PROGRAM TO PERFORM GENERAL REFORMATTING OPERATION ON THE ACCOUNTING FILE. IT CALLS A USER PROVIDED SUBROUTINE CALLED ACCUPDAT TO DO THE ACTUAL REFORMATTING. ACCGFUPD (104/19) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION. 0 Referenced by comments of: 104/19 00104/26 ACCOUNTING ACCRDWRT OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCRDWRT.OC.27 259 D3T1 259 ACCOUNTING.ACCRDWRT.OC.27 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 12:20.35 0 Referenced by comments of: 104/50 00104/27 ACCOUNTING PCONVERT SA G PCNV S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.SA.28 139 D3.1T1 139 ACCOUNTING.PCONVERT.SA.28 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:33.24 0 PRJPRINT SUBROUTINE TO CONVERT A DISTRIBUTION 3.0 PROJECT FILE TO DISTRIBUTION 3.1 BY ADDING NETWORK FIELDS AND FLAG. 1 FRI AUG 02/96 19:04:25 Page 40 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TO USE, RUN PRJLIST (104/35) + PCONVERT + ACCLIB (104/31). NEW PROJECT FILE IS PRODUCED ON SPUNCH. COPIES ACCPROJFMT (104/2). 00104/28 ACCOUNTING PCONVERT OC G S0780 'D3.1T1' FSNAME=ACCOUNTING.PCONVERT.OC.29 140 D3.1T1 140 ACCOUNTING.PCONVERT.OC.29 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:33.42 00104/29 ACCOUNTING ACCPRJMT SA G APMT S0027 DISTRB FSNAME=ACCPRJMT D3.2T1 69 ACCOUNTING.ACCPRJMT.SA.29 1 LINE 80 27 PAGE UM ENGLE MAY 03, 1974 12:21.05 0 MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT. 00104/30 ACCOUNTING ACCPRJMT OC G S0027 DISTRB FSNAME=APMT D3.2T1 70 ACCOUNTING.ACCPRJMT.OC.30 1 LINE 80 5 PAGE UM ENGLE MAY 03, 1974 12:21.14 00104/31 ACCOUNTING ACCLIB OL G S0027 DISTRB FSNAME=ACCLIB D3.2T1 71 ACCOUNTING.ACCLIB.OL.31 1 LINE 80 15 PAGE UM ENGLE DEC. 06, 1974 11:33.09 0 THERE ARE REP CARDS IN THIS LIBRARY TO CHANGE FILE NAMES IN ACCIO (104/17) TO PUBLIC FILES AND TO CORRECT ACCLSTPR (104/72). 0 Referenced by comments of: 104/27, 632/1, 632/3, 632/5 00104/32 ACCOUNTING ACPRJPRT SA G APPR S0027 DISTRB FSNAME=ACPRJPRT D3.2T1 72 ACCOUNTING.ACPRJPRT.SA.32 1 LINE 80 9 PAGE UM ENGLE MAY 03, 1974 12:28.30 0 SUBROUTINE TO PRINT A RECORD FROM *PROJECT. COPIES ACCPROJFMT (104/2). 00104/33 ACCOUNTING ACPRJPRT OC G S0027 DISTRB FSNAME=APPR D3.2T1 73 ACCOUNTING.ACPRJPRT.OC.33 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 12:28.42 00104/34 ACCOUNTING PRJLIST SA G APLS S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.SA.35 267 D3T1 267 ACCOUNTING.PRJLIST.SA.35 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 15:13.34 0 PROGRAM TO READ EACH RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT. 0 Referenced by comments of: 500/22 00104/35 ACCOUNTING PRJLIST OC G S0720 'D3T1' FSNAME=ACCOUNTING.PRJLIST.OC.36 268 D3T1 268 ACCOUNTING.PRJLIST.OC.36 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:13.55 0 Referenced by comments of: 104/27 00104/36 ACCOUNTING PRJDSPLA SA G APDS S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.SA.37 269 D3T1 269 ACCOUNTING.PRJDSPLA.SA.37 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 15:17.03 0 PROGRAM TO READ A SPECIFIC RECORD FROM *PROJECT AND CALL PRJPRINT FOR IT. 00104/37 ACCOUNTING PRJDSPLA OC G S0720 'D3T1' FSNAME=ACCOUNTING.PRJDSPLA.OC.38 270 D3T1 270 ACCOUNTING.PRJDSPLA.OC.38 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:17.49 1 FRI AUG 02/96 19:04:25 Page 41 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/38 ACCOUNTING ACCPASWD SA G APSW S0720 'D3T1' FSNAME=ACCOUNTING.ACCPASWD.SA.39 271 D3T1 271 ACCOUNTING.ACCPASWD.SA.39 1 LINE 80 5 PAGE UM ENGLE OCT. 05, 1972 15:22.09 0 PROGRAM TO GENERATE A RANDOM PASSWORD FOR AN ACCOUNTING RECORD AND PRINT THE NEW PASSWORD PLUS THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET. COPIES ACCFORMAT (104/1). 00104/39 ACCOUNTING ACCPASWD OC G S0027 DISTRB FSNAME=APSW D3.2T1 74 ACCOUNTING.ACCPASWD.OC.39 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 12:29.54 00104/40 ACCOUNTING ACONSIST SA G ACNS S0027 DISTRB FSNAME=ACONSIST D3.2T1 75 ACCOUNTING.ACONSIST.SA.40 1 LINE 80 13 PAGE UM ENGLE DEC. 06, 1974 11:33.54 0 MAIN PROGRAM FOR ACCERRORSCAN. COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/2). 00104/41 ACCOUNTING ACONSIST OC G S0027 DISTRB FSNAME=ACNS D3.2T1 76 ACCOUNTING.ACONSIST.OC.41 1 LINE 80 4 PAGE UM ENGLE DEC. 06, 1974 11:34.22 00104/42 ACCOUNTING FILENAME SA G FLNM S0720 'D3T1' FSNAME=ACCOUNTING.FILENAME.SA.43 275 D3T1 275 ACCOUNTING.FILENAME.SA.43 1 LINE 80 1 PAGE UM ENGLE OCT. 05, 1972 15:37.25 0 CONTAINS THE NAMES OF THE FILES *ACCOUNTING, *PWSTAT, *PROJECT, *PROJDIRECTORY, AND *STATISTICS. 00104/43 ACCOUNTING FILENAME OC G S0720 'D3T1' FSNAME=ACCOUNTING.FILENAME.OC.44 276 D3T1 276 ACCOUNTING.FILENAME.OC.44 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:37.58 0 Referenced by comments of: 631/12 00104/44 ACCOUNTING DIRECTRY SA G DIR S0027 DISTRB FSNAME=DIRECTRY D3.2T1 77 ACCOUNTING.DIRECTRY.SA.44 1 LINE 80 17 PAGE UM ENGLE DEC. 06, 1974 11:35.19 0 I/O SUBROUTINES FOR THE DIRECTORY FILE. COPIES *CNFGINFODSECT (654). 00104/45 ACCOUNTING DIRECTRY OC G S0027 DISTRB FSNAME=DIR D3.2T1 78 ACCOUNTING.DIRECTRY.OC.45 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 11:35.55 0 Referenced by comments of: 631/12 00104/46 ACCOUNTING DIRLIST SA G DLST S0027 DISTRB FSNAME=DIRLIST D3.2T1 79 ACCOUNTING.DIRLIST.SA.46 1 LINE 80 4 PAGE UM ENGLE DEC. 06, 1974 11:36.26 0 MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY. 00104/47 ACCOUNTING DIRLIST OC G S0027 DISTRB FSNAME=DLST D3.2T1 80 ACCOUNTING.DIRLIST.OC.47 1 LINE 80 2 PAGE UM ENGLE DEC. 06, 1974 11:36.55 00104/48 ACCOUNTING FILUPDAT SA G FLUP S0027 DISTRB FSNAME=FILUPDAT D3.2T1 81 ACCOUNTING.FILUPDAT.SA.48 1 LINE 80 5 PAGE UM ENGLE MAY 03, 1974 12:33.34 0 PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE MONTH OR EXPIRATION TIME. IT BOTH UPDATES THE ACCOUNTING RECORD AND WRITES A STATISTICS RECORD FOR BILLING. COPIES ACCFORMAT (104/1). 1 FRI AUG 02/96 19:04:25 Page 42 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/49 ACCOUNTING FILUPDAT OC G S0027 DISTRB FSNAME=FLUP D3.2T1 82 ACCOUNTING.FILUPDAT.OC.49 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 12:33.46 00104/50 ACCOUNTING ACONVERT SA G ACNV S0027 DISTRB FSNAME=ACONVERT D3.2T1 83 ACCOUNTING.ACONVERT.SA.50 1 LINE 80 1 PAGE UM ENGLE MAR. 12, 1975 10:34:06 0 ACCUPDAT SUBROUTINE TO CONVERT A DISTRIBUTION 3.1 ACCOUNTING FILE TO THE NEW FORMAT FOR DIFFERENTIAL RATES BY DELETING RATE FIELDS. USE WITH ACCRDWRT (104/26). COPIES ACCFORMAT (104/1). 00104/51 ACCOUNTING ACONVERT OC G S0027 DISTRB FSNAME=ACNV D3.2T1 84 ACCOUNTING.ACONVERT.OC.51 1 LINE 80 1 PAGE UM ENGLE MAR. 12, 1975 10:34:18 00104/52 ACCOUNTING STAPRJPA SA G SPPA S0027 DISTRB FSNAME=STAPRJPA D3.2T1 85 ACCOUNTING.STAPRJPA.SA.52 1 LINE 80 2 PAGE UM ENGLE DEC. 06, 1974 11:38.52 0 TXT PATCH RECORDS FOR ACCMXMAT USED IN ACC:STAPROJECT (104/54). 00104/53 ACCOUNTING STAPRJPA OC G S0027 DISTRB FSNAME=SPPA D3.2T1 86 ACCOUNTING.STAPRJPA.OC.53 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 11:41.20 00104/54 ACCOUNTING STAPRJCL SA G SPCL S0027 DISTRB FSNAME=STAPRJCL D3.2T1 87 ACCOUNTING.STAPRJCL.SA.54 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 11:42.30 0 MAIN PROGRAM FOR ACC:STAPROJECT. CALLS ACCMXMAT WHICH HAS BEEN PATCHED WITH TXT RECORDS FROM STAPRJPA. 0 Referenced by comments of: 104/52 00104/55 ACCOUNTING STAPRJCL OC G S0027 DISTRB FSNAME=STCL D3.2T1 88 ACCOUNTING.STAPRJCL.OC.55 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 11:43.39 00104/56 ACCOUNTING STAPROJECT OC G S0027 DISTRB FSNAME=STAPROJECT D3.2T1 89 ACCOUNTING.STAPROJECT.OC.56 1 LINE 80 7 PAGE UM ENGLE DEC. 06, 1974 11:59.29 0 PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT. CONTAINS A "$CONTINUE WITH ACC:ACCLIB" RECORD. 00104/57 ACCOUNTING GRDEF SA G GRDF S0720 'D3T1' FSNAME=ACCOUNTING.GRDEF.SA.58 290 D3T1 290 ACCOUNTING.GRDEF.SA.58 1 SEQ 80 1 PAGE UM ENGLE JAN. 10, 1973 17:16.39 0 COPY SECTION. 0 Referenced by comments of: 97/5, 104/13, 104/65, 104/67, 104/69, 104/76, 104/80, 104/86, 104/97, 586/1, 631/1, 631/4, 631/10, 632/3, 632/5 00104/58 ACCOUNTING WKDAY SA G WKDA S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.SA.59 291 D3T1 291 ACCOUNTING.WKDAY.SA.59 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1973 12:14.08 0 SUBROUTINE TO PRODUCE THE DAY OF THE WEEK FOR A GIVEN DATE. USED IN INITCHK (104/64). 00104/59 ACCOUNTING WKDAY OC G S0720 'D3T1' FSNAME=ACCOUNTING.WKDAY.OC.60 292 D3T1 292 ACCOUNTING.WKDAY.OC.60 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 12:14.29 1 FRI AUG 02/96 19:04:25 Page 43 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/60 ACCOUNTING DIRDSPLA SA G DDSP S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.SA.61 293 D3T1 293 ACCOUNTING.DIRDSPLA.SA.61 1 LINE 80 3 PAGE UM ENGLE JAN. 12, 1973 13:57.36 0 PROGRAM TO READ A SPECIFIC RECORD FROM *PRJDIRECTORY AND CALL DIRPRINT FOR IT. 00104/61 ACCOUNTING DIRDSPLA OC G S0720 'D3T1' FSNAME=ACCOUNTING.DIRDSPLA.OC.62 294 D3T1 294 ACCOUNTING.DIRDSPLA.OC.62 1 LINE 80 1 DISK UM ENGLE JAN. 12, 1973 13:57.46 00104/62 ACCOUNTING DIRPRINT SA G DPRT S0027 DISTRB FSNAME=DIRPRINT D3.2T1 90 ACCOUNTING.DIRPRINT.SA.62 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/63 ACCOUNTING DIRPRINT OC G S0027 DISTRB FSNAME=DPRT D3.2T1 91 ACCOUNTING.DIRPRINT.OC.63 1 LINE 80 2 PAGE UM ENGLE DEC. 06, 1974 12:00.34 00104/64 ACCOUNTING INITCHK # (SEE COMP 097/5 AND 097/6) UM ENGLE 0 Referenced by comments of: 104/58 00104/65 ACCOUNTING ACCFLUPD SA G AFLU S0027 DISTRB FSNAME=ACCFLUPD D3.2T1 92 ACCOUNTING.ACCFLUPD.SA.65 1 LINE 80 6 PAGE UM ENGLE DEC. 06, 1974 12:01.51 0 SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD. COPIES ACCFORMAT (104/1) AND GRDEF (104/57). 00104/66 ACCOUNTING ACCFLUPD OC G S0027 DISTRB FSNAME=AFLU D3.2T1 93 ACCOUNTING.ACCFLUPD.OC.66 1 LINE 80 2 PAGE UM ENGLE DEC. 06, 1974 12:02.12 0 Referenced by comments of: 484/1 00104/67 ACCOUNTING ACCINSCN SA G AINS S0027 DISTRB FSNAME=ACCINSCN D3.2T1 94 ACCOUNTING.ACCINSCN.SA.67 1 LINE 80 6 PAGE UM ENGLE MAR. 12, 1975 10:38:47 0 USED IN INIT:INIT (097/4). COPIES ACCFORMAT (104/1) AND GRDEF (104/57). 00104/68 ACCOUNTING ACCINSCN OC G S0027 DISTRB FSNAME=AINS D3.2T1 95 ACCOUNTING.ACCINSCN.OC.68 1 LINE 80 3 PAGE UM ENGLE MAR. 12, 1975 10:39:06 0 PATCHED TO AGREE WITH SOURCE. 00104/69 ACCOUNTING CURSIG SA G CSIG S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.SA.70 301 D3T1 301 ACCOUNTING.CURSIG.SA.70 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1973 17:55.52 0 SUBROUTINE TO DETERMINE NUMBER OF CURRENT SIGNONS. COPIES GRDEF (104/57) 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/70 ACCOUNTING CURSIG OC G S0720 'D3T1' FSNAME=ACCOUNTING.CURSIG.OC.71 302 D3T1 302 ACCOUNTING.CURSIG.OC.71 1 LINE 80 1 DISK UM ENGLE JAN. 08, 1973 17:56.03 0 Referenced by comments of: 484/1 1 FRI AUG 02/96 19:04:25 Page 44 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/71 ACCOUNTING DEDFLFIX # (SEE COMP 502/13 AND 502/14) UM ENGLE 00104/72 ACCOUNTING ACCLSTPR SA G ALPR S0027 DISTRB FSNAME=ACCLSTPR D3.2T1 96 ACCOUNTING.ACCLSTPR.SA.72 1 LINE 80 8 PAGE UM ENGLE MAR. 12, 1975 10:45:36 0 SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT. COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/31 00104/73 ACCOUNTING ACCLSTPR OC G S0027 DISTRB FSNAME=ALPR D3.2T1 97 ACCOUNTING.ACCLSTPR.OC.73 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 13:13.17 0 PATCHED TO AGREE WITH SOURCE. 00104/74 ACCOUNTING ACCFLCHG SA G AFLC S0027 DISTRB FSNAME=ACCFLCHG D3.2T1 98 ACCOUNTING.ACCFLCHG.SA.74 1 LINE 80 4 PAGE UM ENGLE MAY 03, 1974 13:14.32 0 SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD. CALLED BY ACCDSPLA. COPIES ACCFORMAT (104/1). 00104/75 ACCOUNTING ACCFLCHG OC G S0027 DISTRB FSNAME=AFLC D3.2T1 99 ACCOUNTING.ACCFLCHG.OC.75 1 LINE 80 1 PAGE UM ENGLE MAY 03, 1974 13:14.38 00104/76 ACCOUNTING APSWDISP SA G APWD S0720 'D3T1' FSNAME=ACCOUNTING.APSWDISP.SA.77 307 D3T1 307 ACCOUNTING.APSWDISP.SA.77 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1973 18:07.38 0 SUBROUTINE TO PRINT INTERNAL PASSWORD REPRESENTATION AND LAST DATE AND TIME SET FOR AN ACCOUNTING RECORD. CALLED BY ACCDSPLA. COPIES ACCFORMAT (104/1) AND GRDEF (104/57). 00104/77 ACCOUNTING APSWDISP OC G S0027 DISTRB FSNAME=APWD D3.2T1 100 ACCOUNTING.APSWDISP.OC.77 1 LINE 80 1 PAGE UM ENGLE MAY 03, 1974 13:15.32 00104/78 ACCOUNTING ACCHEXPR SA O AXPR S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.SA.79 309 D3T1 309 ACCOUNTING.ACCHEXPR.SA.79 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1973 10:55.07 0 SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN HEX. CALLED BY ACCDSPLA. 00104/79 ACCOUNTING ACCHEXPR OC O S0720 'D3T1' FSNAME=ACCOUNTING.ACCHEXPR.OC.80 310 D3T1 310 ACCOUNTING.ACCHEXPR.OC.80 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 10:55.43 00104/80 ACCOUNTING TIMETRP SA G TTRP S0027 DISTRB FSNAME=TIMETRP D3.2T1 101 ACCOUNTING.TIMETRP.SA.80 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/57). 00104/81 ACCOUNTING TIMETRP OC G S0027 DISTRB FSNAME=TTRP D3.2T1 102 ACCOUNTING.TIMETRP.OC.81 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 12:04.41 0 Referenced by comments of: 631/12 1 FRI AUG 02/96 19:04:25 Page 45 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/82 ACCOUNTING ACCSGATR SA G ASAR S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.SA.83 165 D3.1T1 165 ACCOUNTING.ACCSGATR.SA.83 1 LINE 80 5 PAGE UM ENGLE JAN. 08, 1974 14:50.39 0 PROGRAM TO RESET SIGNON ATTENTION FLAG IN A USERS ACCOUNTING RECORD. COPIES ACCFORMAT (104/1) 00104/83 ACCOUNTING ACCSGATR OC G ASAR S0780 'D3.1T1' FSNAME=ACCOUNTING.ACCSGATR.OC.84 166 D3.1T1 166 ACCOUNTING.ACCSGATR.OC.84 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1974 14:53.32 00104/84 ACCOUNTING ACCSAVE SA G ASAV S0027 DISTRB FSNAME=ACCSAVE D3.2T1 103 ACCOUNTING.ACCSAVE.SA.84 1 LINE 80 7 PAGE UM ENGLE DEC. 06, 1974 12:05.23 0 MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE. 00104/85 ACCOUNTING ACCSAVE OC G S0027 DISTRB FSNAME=ASAV D3.2T1 104 ACCOUNTING.ACCSAVE.OC.85 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 12:05.43 00104/86 ACCOUNTING ACCTAPRD SA G ATRD S0027 DISTRB FSNAME=ACCTAPRD D3.2T1 105 ACCOUNTING.ACCTAPRD.SA.86 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 12:06.26 0 VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES. COPIES GRDEF (104/57). 00104/87 ACCOUNTING ACCTAPRD OC G S0027 DISTRB FSNAME=ATRD D3.2T1 106 ACCOUNTING.ACCTAPRD.OC.87 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 12:06.35 00104/88 ACCOUNTING GETFILE SA G GTFL S0027 DISTRB FSNAME=GETFILE D3.2T1 107 ACCOUNTING.GETFILE.SA.88 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 12:07.09 0 SUBROUTINE TO GET A FDUB, ETC. 0 Referenced by comments of: 502/1 00104/89 ACCOUNTING GETFILE OC G S0027 DISTRB FSNAME=GTFL D3.2T1 108 ACCOUNTING.GETFILE.OC.89 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 12:07.15 0 Referenced by comments of: 129/2, 484/1, 631/12 00104/90 ACCOUNTING ACATALOG SA G ACAT W045:PF.ACATALOG D3.2T1 109 ACCOUNTING.ACATALOG.SA.90 1 LINE 80 4 PAGE UM PIRKOLA MAR. 21, 1975 01:08:57 0 SUBROUTINE THAT GETS THE CURRENT DISK AND DATA CELL SPACE FOR A USER FROM THE CATALOG AND DSCB. USED BY ACC:ACCMAINT, INIT:INIT, AND *ACCRESTORE. COPIES COPY:CATEQU (482/28). 00104/91 ACCOUNTING ACATALOG OC G W045:PF.ACATALOG.O D3.2T1 110 ACCOUNTING.ACATALOG.OC.91 1 LINE 80 1 PAGE UM PIRKOLA MAR. 21, 1975 01:09:00 0 Referenced by comments of: 484/1 00104/92 ACCOUNTING ACATALOG SA G ACAT MTA:ACATALOG(1,999) D3.2T1 111 ACCOUNTING.ACATALOG.SA.92 1 LINE 80 3 PAGE UM MTA MAR. 21, 1975 01:09:02 0 THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION, 1 FRI AUG 02/96 19:04:25 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 BUT CALLS THE ACATSUB SUBROUTINE (104/94) TO BUILD A TABLE OF USER ID VERSUS FILE SPACE FOR ALL USERS ON THE FIRST CALL TO ACATALOG. FROM THEN ON, IT JUST DOES A TABLE LOOKUP TO GET THE SIZE-- THE RESULT BEING A VERY FAST ACATALOG. THIS VERSION IS ONLY USED WHEN EVERY USER'S FILE SPACE IS TO BE RECALCULATED. AT UM, IT HAS ONLY BEEN USED WHEN NEW FILE SYSTEMS ARE INSTALLED, I.E. WHEN A COMPLETE FILE SAVE AND RESTORE HAVE BEEN DONE. COPIES COPY:CATEQU (482/28) AND COPY:FCBEQU (482/27). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 104/94 00104/93 ACCOUNTING ACATALOG OC G MTA:ACATALOG(1000) D3.2T1 112 ACCOUNTING.ACATALOG.OC.93 1 LINE 80 1 PAGE UM MTA MAR. 21, 1975 01:09:05 00104/94 ACCOUNTING ACATSUB SA G ACSB MTA:ACATSUB(1,999) D3.2T1 113 ACCOUNTING.ACATSUB.SA.94 1 LINE 80 13 PAGE UM MTA MAR. 21, 1975 01:09:07 0 SUBROUTINE CALLED BY SUPER ACATALOG (104/92). COPIES COPY:CATEQU (482/28), COPY:FCBEQU (482/27), AND COPY:DSCBDSCT (482/41). ASSEMBLE USING *SYSMAC. CALLS VTOCREAD (067/4). 0 Referenced by comments of: 104/92 00104/95 ACCOUNTING ACATSUB OC G MTA:ACATSUB(1000) D3.2T1 114 ACCOUNTING.ACATSUB.OC.95 1 LINE 80 8 PAGE UM MTA MAR. 21, 1975 01:09:09 00104/96 ACCOUNTING WRITEUP WF G S0027 DISTRB FSNAME=ACCWRITEUP D3.2T1 115 ACCOUNTING.WRITEUP.WF.96 1 LINE 80 7 PAGE UM ENGLE MAY 03, 1974 13:17.55 0 A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS. 00104/97 ACCOUNTING IOLOKCK SA G IOLC S0027 DISTRB FSNAME=IOLOKCK D3.2T1 116 ACCOUNTING.IOLOKCK.SA.97 1 LINE 80 5 PAGE UM ENGLE DEC. 06, 1974 13:38.21 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/57). 0 Referenced by comments of: 129/2, 631/12 00104/98 ACCOUNTING IOLOKCK OC G S0027 DISTRB FSNAME=IOLC D3.2T1 117 ACCOUNTING.IOLOKCK.OC.98 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 13:39.01 00107 ACATALOG # (SEE COMP 104) UM 00108/01 PL/360 ASSEMBLER S3 W016:PL360.S D3T1 328 PL/360.ASSEMBLER.S3.1 1 LINE 73 38 PAGE UM LEADER JULY 31, 1973 00:08.12 0 MAY 1971 VERSION OF PL/360 FROM UNE. MODIFIED BY UM TO PRODUCE SYM CARDS. THIS FILE REQUIRES THE OBJECT IN *PL360 TO ASSEMBLE ITSELF. 00108/02 PL/360 MTS INTERFACE SA W016:PL360SUP.S D3T1 329 PL/360.MTS_INTERFACE.SA.2 1 LINE 83 3 PAGE UM LEADER JULY 31, 1973 00:08.20 0 SOURCE IN ASMG FOR MTS INTERFACE OF PL/360. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00108/03 PL/360 *PL360 OE *PL360 D3T1 330 PL/360.*PL360.OE.3 1 SEQ 22059 9 PAGE UM LEADER JULY 31, 1973 00:08.22 00108/04 PL/360 *PL360LIB SA W016:PL360LIB.S D3T1 331 PL/360.*PL360LIB.SA.4 1 LINE 80 3 PAGE UM LEADER JULY 31, 1973 00:08.24 0 SOURCE FOR THE RUN TIME PL360 LIBRARY - *PL360LIB. 00108/05 PL/360 *PL360LIB OC *PL360LIB D3T1 332 PL/360.*PL360LIB.OC.5 1 LINE 80 1 PAGE UM LEADER JULY 31, 1973 00:08.26 00108/06 PL/360 *PL360SLIB SA W016:PL360SLIB.S D3T1 333 PL/360.*PL360SLIB.SA.6 1 LINE 80 3 PAGE UM LEADER JULY 31, 1973 00:08.28 0 SOURCE FOR ANOTHER RUN TIME PL360 LIBRARY - *PL360SLIB. THE ONLY DIFFERENCE BETWEEN THIS AND *PL360LIB IS THAT THIS ONE WRITES LINES @ÂCC (WITHOUT CARRIAGE CONTROL). 00108/07 PL/360 *PL360SLIB OC *PL360SLIB D3T1 334 PL/360.*PL360SLIB.OC.7 1 SEQ 80 1 PAGE UM LEADER JULY 31, 1973 00:08.31 00110/01 TNL *TNL SA *TNL S0720 'D3T1' FSNAME=TNL.*TNL.S.1 335 D3T1 335 TNL.*TNL.S.1 1 SEQ 80 30 PAGE UM DWB JULY 31, 1973 00:08.57 0 PROGRAM TO PRINT TNLS FOR USERS. REQUIRES DATA FILE *MTSTNL. THIS PROGRAM HAS NEVER BEEN USED, BUT MIGHT BE (SOMEDAY) IF THE PEOPLE HERE (UM) EVER CARE ABOUT DOCUMENTATION. 00110/02 TNL *TNL OC *TNL D3T1 336 TNL.*TNL.O.2 1 LINE 80 6 PAGE UM DWB JULY 31, 1973 00:09.00 00110/03 TNL *TNLBUILD SA # (SEE COMP 110/1) UM DWB 0 PROGRAM TO ADD TNLS TO *MTSTNL. 00110/04 TNL *TNLBUILD OC *TNLBUILD D3T1 337 TNL.*TNLBUILD.O.4 1 LINE 80 4 PAGE UM DWB JULY 31, 1973 00:09.02 00111/01 *PTPRRTN SA G PTPR WSG:PTAPE D3T1 338 PTPRRTN..SA.1 1 LINE 80 18 PAGE UM WSG JULY 31, 1973 00:09.04 0 DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER. ASSEMBLE USING *SYSMAC. 00111/02 *PTPRRTN OC G *PTPRRTN D3T1 339 PTPRRTN..OC.2 1 LINE 80 2 PAGE UM WSG JULY 31, 1973 00:09.08 00112 MAD1 # (NOT DISTRIBUTED) UM GALLER 0 OBJECT (AND PROBABLY SOURCE) FOR THE MAD1 COMPILER ARE AVAILABLE ON REQUEST. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00113 SCANFILES # (SEE COMP 502) UM 00116/01 *PDP8RTN SA G PDP8 WSG:PDP8 D3.1T1 170 PDP8RTN..SA.1 1 LINE 80 46 PAGE UM WSG MAR. 06, 1974 03:31.03 0 MTS DEVICE SUPPORT ROUTINES FOR THE UM PDP-8, PDP-8E, AND PDP-11 DATA CONCENTRATORS. INCLUDES SUPPORT FOR "VOTRAX" AUDIO RESPONSE UNITS BY CALLING SPECIAL SUBROUTINES TO PERFORM I/O CONVERSION (SEE COMP 084). COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), AND COPY:FDUBDSECT (623). 0 Referenced by comments of: 84/21 00116/02 *PDP8RTN OC G *PDP8RTN D3.1T1 171 PDP8RTN..OC.2 1 LINE 80 4 PAGE UM WSG MAR. 06, 1974 03:31.13 00116/03 *PDP8RTN MEMO M254 WF G W098:KDM254 D3.1T1 172 PDP8RTN.MEMO_M254.WF.3 1 LINE 125 5 PAGE UM JLD MAR. 06, 1974 03:31.14 0 THIS IS COMPUTING CENTER MEMO M254 -- "BASIC USE OF THE MODEL 35 TELETYPE WITH THE DATA CONCENTRATOR" 00117 *GRAPHMAC SM O GRPM S0720 'D3T1' FSNAME=GRAPHMAC..SM. 342 D3T1 342 GRAPHMAC..SM. 1 SEQ 80 63 PAGE UM PIRKOLA JULY 31, 1973 00:14.26 0 MACROS TO SUPPORT AN EXTENSION OF EXPRESS GRAPHICS ON 2250'S IN MTS. CALLS SUBROUTINES IN *GRAPHLIB (231). 0 Referenced by comments of: 231/1 00119/01 SYN360 SS S0720 'D3T1' FSNAME=SYN360..SS.1 343 D3T1 343 SYN360..SS.1 1 SEQ 80 5 PAGE UM DWB JULY 31, 1973 00:15.37 0 PROGRAM (IN SNOBOL) TO PRODUCE THE SYNTAX TABLES THAT SNOBOL USES TO PARSE ITS INPUT. USED AS "CPU BURNER" AND "PAGER" FOR SYSTEM TESTING. 00119/02 SYN360 TABLES DATA D S0720 'D3T1' FSNAME=SYN360.TABLES_DATA.D.2 344 D3T1 344 SYN360.TABLES_DATA.D.2 1 SEQ 80 3 PAGE UM DWB JULY 31, 1973 00:15.38 0 INPUT TO 119/1. ENDS WITH A "$CONTINUE WITH SYNTBL" CARD. 00120/01 REWIND SUBR SA G REW0 MTA:REWIND(1,999) D3T1 345 REWIND_SUBR..SA.1 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 00:15.39 0 FORTRAN CALLABLE REWIND SUBROUTINE. ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 143/1 00120/02 REWIND SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00121/01 *USERS MAIN PGM SA G USER MTA:USERS(1,999) D3.2T1 118 USERS.MAIN_PGM.SA.01 1 LINE 80 4 PAGE UM MTA MAR. 21, 1975 01:10:23 0 USER-LEVEL PROGRAM TO PRINT THE CURRENT NUMBER OF TERMINAL USERS AND BATCH JOBS. IN ADDITION, FOR A 360/67 1 FRI AUG 02/96 19:04:25 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 IT PRINTS THE CURRENT HARDWARE CONFIGURATION (PROCESSORS, CHANNEL CONTROLLERS, AND STORAGE). NOTE: USERSCON (121/2) IS REFERENCED BY A WEAK EXTERN AND WILL BE CALLED ONLY IF PRESENT. COPIES COPY:JOBSTA (413/14). 00121/02 *USERS 67 CONF SUBR SA G CONF S0938 FSAVE2 FSNAME=USERSCONF.S D3.2T1 119 USERS.67_CONF_SUBR.SA.02 1 LINE 80 3 PAGE UM MTA FEB. 14, 1975 00:54:01 0 SUBR TO PRINT 360/67 HARDWARE CONFIGURATION. COPIES COPY:CHACST (577/28). 0 Referenced by comments of: 121/1 00121/03 *USERS 67 CONF SUBR OC G S0938 FSAVE2 FSNAME=USERSCONF.O D3.2T1 120 USERS.67_CONF_SUBR.OC.03 1 LINE 80 1 PAGE UM MTA FEB. 14, 1975 00:54:57 00121/04 *USERS 370 OBJECT OC G *USERS D3.2T1 121 USERS.370_OBJECT.OC.04 1 LINE 255 1 PAGE UM MTA MAR. 21, 1975 01:12:47 0 *USERS SHOULD CONTAIN THE OBJECT FROM 121/1 FOR A 370 SYSTEM OR THE OBJECT FROM BOTH 121/1 AND 121/3 FOR A 360/67 SYSTEM. 00121/05 *USERS *USE C *USE D3T1 349 USERS.*USE.C.4 1 LINE 35 1 PAGE UM MTA JULY 31, 1973 00:15.48 0 COMMAND FILE INVOKED BY ENTERING "MTS *USE" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "OPER" AND RUNS *USERS WITH OUTPUT ON THE OPERATOR'S CONSOLE. 00122 *STA C # (SEE COMP 050) UM 00123 *PTASKS SA O PTSK S0720 'D3T1' FSNAME=PTASKS..SA. 350 D3T1 350 PTASKS..SA. 1 SEQ 80 17 PAGE UM PIRKOLA JULY 31, 1973 00:15.58 0 PROGRAM TO DISPLAY TASK STATUS ON A 2250 DISPLAY. CALLS *PTSKRTN (063). COPIES *LLMPSEQU, WHICH SHOULD BE CHANGED TO COPY COPY:LLMPSEQU (087). OBJECT NOT DISTRIBUTED. 00126/01 BLSTDEV SA G BLDV S0720 'D3T1' FSNAME=BLSTDEV..SA.1 351 D3T1 351 BLSTDEV..SA.1 1 LINE 80 3 PAGE UM MTA JULY 30, 1973 03:31.46 0 SUBROUTINE TO RESET A DEVICE FOR A NEW OPERATION. USED BY SEVERAL DSR'S. 00126/02 BLSTDEV OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00127 SAVEFILES # (SEE COMP 502) UM 00128 *PTPPRTN SA S PTPP S0720 'D3T1' FSNAME=PTPPRTN..SA. 352 D3T1 352 PTPPRTN..SA. 1 SEQ 80 19 PAGE UM WSG JULY 31, 1973 00:17.03 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 1018 PAPER TAPE PUNCH. HAS BUGS AND HAS NOT BEEN USED AT UM FOR MANY YEARS. OBJECT NOT DISTRIBUTED; WASTE YOUR OWN MONEY ASSEMBLING IT! 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00129/01 *STATUS SA G # (SEE COMP 104) UM ENGLE 0 PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD. 00129/02 *STATUS OE G *STATUS D3.2T1 122 STATUS..OE.02 1 LINE 255 4 PAGE UM ENGLE MAR. 21, 1975 01:12:50 0 CONSISTS OF: STATUS (104/12) + ACCIO (104/18) + IOLOKCK (104/97) + GETFILE (104/89). 00131 STRTPDP # (OBSOLETE, SEE COMP 614) D2T1 149 UM 00132/01 *PERMIT SA G PMIT W045:OLDPERMITANU D3T1 354 PERMIT..SA.1 1 LINE 80 6 PAGE UM PIRKOLA JULY 31, 1973 00:17.06 0 ACTUALLY *PERMIT IS NO LONGER NEEDED SINCE THE ADVENT OF THE $PERMIT COMMAND. HOWEVER, THIS VERSION WORKS WITH THE NEW FILE ROUTINES SO THAT STUBBORN USERS CAN STILL HAVE *PERMIT. CALLS PERMIT SUBROUTINE. 00132/02 *PERMIT OE G *PERMIT D3T1 355 PERMIT..O.2 1 LINE 255 1 PAGE UM PIRKOLA JULY 31, 1973 00:17.08 00133/01 *PLOT SA PLOT W030:CPLOT D3.2T1 123 PLOT..SA.01 1 LINE 80 14 PAGE UM LIFT MAR. 21, 1975 01:12:52 0 CONVERSATIONAL INTERFACE TO PRINTER PLOT SUBROUTINES (282). 00133/02 *PLOT OC *PLOT D3.2T1 124 PLOT..OC.02 1 LINE 80 3 PAGE UM LIFT MAR. 21, 1975 01:12:55 00135/01 *TAPERTN SA G TAPE WSG:TAPE D3.2T1 125 TAPERTN..SA.01 1 LINE 80 86 PAGE UM WSG MAR. 21, 1975 01:12:56 0 MTS DEVICE SUPPORT ROUTINES FOR MAGNETIC TAPES. COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), *CNFGINFODSECT (654), AND COPY:FDUBDSECT (623). SPECIAL GLITCH: THE LABEL PROGRAMS (SEE COMP 487) RELY ON THE LOCATION OF THE "CHKLABEL" BIT IN THE TAPERTN DSECT, SO THEY WILL HAVE TO BE REASSEMBLED IF CHKLABEL IS MOVED. THERE IS A CONTROL COMMAND (NOT IN THE MANUAL) WHICH ONLY WORKS IF ISSUED BY USER ID MTS. THE "NLC" (NO LABEL CHECK) COMMAND CAN BE USED TO DETERMINE WHAT A TAPE'S VOLUME LABEL IS AS FOLLOWS: $SIG MTS $GET >T900 $CONTROL >T900 NLC $LIST $RELEASE CURRENT VERSION USES MVCL IF EXECUTING ON A 370 AND CHECKS EXPIRATION DATE BEFORE ALLOWING INIT COMMAND. 0 Referenced by comments of: 487/4, 489/1 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00135/02 *TAPERTN OC G WSG:TAPERTN.D D3.2T1 126 TAPERTN..OC.02 1 LINE 80 6 PAGE UM WSG MAR. 21, 1975 01:13:06 0 *TAPERTN IS NORMALLY LOADED INTO SHARED VM BY PISTLE. 00136/01 *FIX C G *FIX D3T1 360 FIX..C.1 1 LINE 7 1 PAGE UM ENGLE JULY 31, 1973 00:17.34 0 COMMAND FILE USED BY OPERATORS TO CLEAN UP A USERID (E.G. AFTER A SNARK). THIS WILL SET THE CORRECT NUMBER OF CURRENT SIGNONS IN THE USER'S ACCOUNTING RECORD AND UPDATE HIS FILE SPACE INFORMATION. THIS FILE SOURCES TO FIX:FIX (136/2). INVOKED BY ENTERING "MTS *FIX" ON OPERATORS CONSOLE. 00136/02 *FIX FIX:FIX C G FIX:FIX D3T1 361 FIX.FIX:FIX.C.2 1 LINE 49 1 PAGE UM ENGLE JULY 31, 1973 00:17.35 0 COMMAND FILE TO SET LIBRARY FILE CHANGE BIT (CWPF) IN MTS DSECT AND THEN RUN *ACCRESTORE (484). 0 Referenced by comments of: 136/1 00136/03 *FIX FIX:Q OC G FIX:Q D3T1 362 FIX.FIX:Q.OC.3 1 LINE 80 1 PAGE UM ENGLE JULY 31, 1973 00:17.37 0 PROGRAM TO SET LIBRARY FILE CHANGE BIT (CWPF) IN MTS DSECT. NO SOURCE AVAILABLE. 00137/01 *UPDATE SA G UPDT W086:UPDATE.S D3T1 363 UPDATE..SA.1 1 LINE 80 29 PAGE UM DE JONG JULY 31, 1973 00:17.39 0 D3.0 SOURCE FOR *UPDATE. REQUIRES D3.0 QSAM ROUTINES (283). 00137/02 *UPDATE UU G W086:UPDATE.U D3T1 364 UPDATE..UU.2 1 LINE 72 9 PAGE UM DE JONG JULY 31, 1973 00:17.45 0 UPDATE DECK TO PRODUCE D3.0 *UPDATE FROM D2.0. 00137/03 *UPDATE OE G *UPDATE D3T1 365 UPDATE..O.3 1 LINE 255 4 PAGE UM DE JONG JULY 31, 1973 00:17.47 00138/01 TEXT/360 *PRESCAN SA O PRES S0720 'D3T1' FSNAME=TEXT/360.*PRESCAN.SA.1 366 D3T1 366 TEXT/360.*PRESCAN.SA.1 1 SEQ 80 35 PAGE UM TIFFANY JULY 31, 1973 00:21.04 0 SINCE ALMOST ALL OF THE TEXT/360 PROGRAMS WERE COMPILED BY THE PL/I(F) VERSION 4 COMPILER, THERE ARE SEVERAL INCOMPATIBILITIES IN COMPILING THESE IN PL/I(F) VERSION 5 (THE CURRENT VERSION), ESPECIALLY SINCE VERSION 5 REALLY IMPLEMENTS HALFWORDS. FOR THIS REASON, THE OBJECT FOR *FMAINT, *BLDLIN, *PLAOUT, AND *POSTPR IS VERSION 4 OBJECT WHICH HAS BEEN PATCHED SINCE THE VERSION 4 COMPILER'S OBJECT CODE DOESN'T WORK WHEN LOADED INTO SEGMENT 5. *PRESCAN IS THE TEXT/360 PRESCAN PROGRAM. MODIFIED FROM OS/360. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00138/02 TEXT/360 *PRESCAN OC O *PRESCAN D3T1 367 TEXT/360.*PRESCAN.OC.2 1 LINE 80 5 PAGE UM TIFFANY JULY 31, 1973 00:21.07 0 OBJECT HAS A REP 00138/03 TEXT/360 *FMAINT SP O FMAI S0720 'D3T1' FSNAME=TEXT/360.*FMAINT.SP.3 368 D3T1 368 TEXT/360.*FMAINT.SP.3 1 SEQ 80 35 PAGE UM TIFFANY JULY 31, 1973 00:21.12 0 TEXT/360 PHASE 1 -- FILE MAINTENANCE. PL/I VERSION 4. 00138/04 TEXT/360 *FMAINT OE O *FMAINT D3T1 369 TEXT/360.*FMAINT.OE.4 1 SEQ 23106 9 PAGE UM TIFFANY JULY 31, 1973 00:21.15 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/05 TEXT/360 *BLDLIN 1 SP O BLD1 S0720 'D3T1' FSNAME=TEXT/360.*BLDLIN_1.SP.5 370 D3T1 370 TEXT/360.*BLDLIN_1.SP.5 1 SEQ 80 64 PAGE UM TIFFANY JULY 31, 1973 00:21.23 0 TEXT/360 PHASE 2 -- BUILD LINES. PL/I VERSION 4. 00138/06 TEXT/360 *BLDLIN 2 SP O BLD2 S0720 'D3T1' FSNAME=TEXT/360.*BLDLIN_2.SP.6 371 D3T1 371 TEXT/360.*BLDLIN_2.SP.6 1 SEQ 80 6 PAGE UM TIFFANY JULY 31, 1973 00:21.28 0 TEXT/360 PHASE 2 SUBROUTINE TO HYPHENATE WORDS. PL/I VERSION 4. 00138/07 TEXT/360 *BLDLIN OE O *BLDLIN D3T1 372 TEXT/360.*BLDLIN.OE.7 1 SEQ 32751 14 PAGE UM TIFFANY JULY 31, 1973 00:21.29 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/08 TEXT/360 *PLAOUT SP O PLAO S0720 'D3T1' FSNAME=TEXT/360.*PLAOUT.SP.8 373 D3T1 373 TEXT/360.*PLAOUT.SP.8 1 SEQ 80 46 PAGE UM TIFFANY JULY 31, 1973 00:21.36 0 TEXT/360 PHASE 3 -- PAGE LAY OUT. PL/I VERSION 4. 00138/09 TEXT/360 *PLAOUT OE O *PLAOUT D3T1 374 TEXT/360.*PLAOUT.OE.9 1 SEQ 28222 9 PAGE UM TIFFANY JULY 31, 1973 00:21.39 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/10 TEXT/360 *POSTPR 1 SP O PPR1 S0720 'D3T1' FSNAME=TEXT/360.*POSTPR_1.SP.10 375 D3T1 375 TEXT/360.*POSTPR_1.SP.10 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:21.41 0 TEXT/360 PHASE 4 -- POST PROCESSOR. PL/I VERSION 4. 00138/11 TEXT/360 *POSTPR 2 SP O PPR2 S0720 'D3T1' FSNAME=TEXT/360.*POSTPR_2.SP.11 376 D3T1 376 TEXT/360.*POSTPR_2.SP.11 1 SEQ 80 28 PAGE UM TIFFANY JULY 31, 1973 00:21.47 0 TEXT/360 PHASE 4 SUBROUTINE. PL/I VERSION 4. 00138/12 TEXT/360 *POSTPR 3 SP O PPR3 S0720 'D3T1' FSNAME=TEXT/360.*POSTPR_3.SP.12 377 D3T1 377 TEXT/360.*POSTPR_3.SP.12 1 SEQ 80 6 PAGE UM TIFFANY JULY 31, 1973 00:21.50 0 TEXT/360 PHASE 4 SUBROUTINE. PL/I VERSION 4. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00138/13 TEXT/360 *POSTPR OE O *POSTPR D3T1 378 TEXT/360.*POSTPR.OE.13 1 SEQ 15558 10 PAGE UM TIFFANY JULY 31, 1973 00:21.52 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/14 TEXT/360 *PRINT SA O PRNT S0720 'D3T1' FSNAME=TEXT/360.*PRINT.SA.14 379 D3T1 379 TEXT/360.*PRINT.SA.14 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 00:22.33 0 TEXT/360 OUTPUT PRINTING PROGRAM. 00138/15 TEXT/360 *PRINT OC O *PRINT D3T1 380 TEXT/360.*PRINT.OC.15 1 LINE 80 3 PAGE UM TIFFANY JULY 31, 1973 00:22.34 00138/16 TEXT/360 *T90T360 SP O T90T S0720 'D3T1' FSNAME=TEXT/360.*T90T360.SP.16 381 D3T1 381 TEXT/360.*T90T360.SP.16 1 SEQ 80 5 PAGE UM TIFFANY JULY 31, 1973 00:22.40 0 CONVERT TEXT/90 MASTER TAPES TO TEXT/360. THIS IS IBM'S PROGRAM. PL/I VERSION 4. 00138/17 TEXT/360 *T90T360 OC O *T90T360 D3T1 382 TEXT/360.*T90T360.OC.17 1 LINE 80 5 PAGE UM TIFFANY JULY 31, 1973 00:22.41 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/18 TEXT/360 *DICTUPD SP O DICT S0720 'D3T1' FSNAME=TEXT/360.*DICTUPD.SP.18 383 D3T1 383 TEXT/360.*DICTUPD.SP.18 1 SEQ 80 5 PAGE UM TIFFANY JULY 31, 1973 00:22.44 0 PROGRAM TO MAINTAIN TEXT/360 SPELLING DICTIONARY. 00138/19 TEXT/360 *DICTUPD OC O *DICTUPD D3T1 384 TEXT/360.*DICTUPD.OC.19 1 LINE 80 6 PAGE UM TIFFANY JULY 31, 1973 00:22.46 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/20 TEXT/360 *DICT D S0720 'D3T1' FSNAME=TEXT/360.*DICT.D.20 385 D3T1 385 TEXT/360.*DICT.D.20 1 SEQ 80 8 PAGE UM TIFFANY JULY 31, 1973 00:22.49 0 TEXT/360 SPELLING DICTIONARY. THIS FILE IS APPARENTLY NOT COMPATIBLE WITH *DICTUPD. 00138/21 TEXT/360 CONVERT SUBR SA O UCLC S0720 'D3T1' FSNAME=TEXT/360.CONVERT_SUBR.SA.21 386 D3T1 386 TEXT/360.CONVERT_SUBR.SA.21 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 00:22.51 0 UPPER CASE - LOWER CASE CONVERSION SUBROUTINE USED BY *FMAINT AND *BLDLIN. 00138/22 TEXT/360 CVTUPC SUBR SA O LCUC S0720 'D3T1' FSNAME=TEXT/360.CVTUPC_SUBR.SA.22 387 D3T1 387 TEXT/360.CVTUPC_SUBR.SA.22 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 00:22.53 0 LOWER CASE - UPPER CASE CONVERSION SUBROUTINE USED BY *BLDLIN. 00138/23 TEXT/360 CVSPEL SUBR SA O SPEC S0720 'D3T1' FSNAME=TEXT/360.CVSPEL_SUBR.SA.23 388 D3T1 388 TEXT/360.CVSPEL_SUBR.SA.23 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 00:22.55 0 SPELLING CONVERION SUBROUTINE USED BY *POSTPR. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00139 COPYSAVE # (SEE COMP 502/3 AND 502/4) UM 00140/01 *ANALYSIS SA G ANAL MTA:ANALYSIS(1,9999) D3.2T1 127 ANALYSIS..SA.01 1 LINE 80 64 PAGE UM MTA MAR. 21, 1975 01:13:08 0 PROGRAM USED IN ANALYZING THE STATISTICS PRODUCED ON MAGNETIC TAPE BY THE STAT JOB (079). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 79/1 00140/02 *ANALYSIS OC G *ANALYSIS(1) D3.2T1 128 ANALYSIS..OC.02 1 LINE 255 15 PAGE UM MTA MAR. 21, 1975 01:13:25 0 THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000. SEE CCMEMO M294 (140/9). 00140/03 *ANALYSIS PL/1 MAIN PGM SP S0219 FSTAPE FSNAME=PL1STAT UM MTA 0 PL/1 MAIN PROGRAM FOR USE WITH *ANALSIS. 00140/04 *ANALYSIS PL/1 MAIN PGM OC *ANALYSIS(0,.999) UM MTA 00140/05 *ANALYSIS EXAMPLE STP2 SA G STP2 MTA:KIPSSTP2(1,9999) D3T1 391 ANALYSIS.EXAMPLE_STP2.SA.3 1 LINE 80 40 PAGE UM MTA JULY 31, 1973 00:23.40 0 EXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS. CALLS THE HISTOGRAM SUBROUTINE (140/7). COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC. 0 Referenced by comments of: 140/7 00140/06 *ANALYSIS EXAMPLE STP2 OC G MTA:KIPSSTP2(10000) D3T1 392 ANALYSIS.EXAMPLE_STP2.OC.4 1 LINE 80 25 PAGE UM MTA JULY 31, 1973 00:23.52 00140/07 *ANALYSIS HISTOGRAM SA G HIST *ANALYSIS(-400,-1) D3T1 393 ANALYSIS.HISTOGRAM.SA.5 1 LINE 80 11 PAGE UM MTA JULY 31, 1973 00:23.58 0 SUBROUTINE TO PLOT HISTOGRAMS, VAGUELY RELATED TO *ANALYSIS AND BRIEFLY DESCRIBED IN THE *ANALYSIS WRITEUP (140/9). CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/5). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 140/5 00140/08 *ANALYSIS HISTOGRAM OC G *ANALYSIS(-600,-401) D3T1 394 ANALYSIS.HISTOGRAM.OC.6 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 00:24.01 00140/09 *ANALYSIS WRITEUP WF = (BEING REVISED) D3T1 395 ANALYSIS.WRITEUP.WF.7 1 LINE 128 15 DISK UM MTA MAR. 15, 1973 18:35.48 0 THIS IS COMPUTING CENTER MEMO M294 -- "DATA COLLECTION FACILITY" 0 Referenced by comments of: 140/2, 140/7 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00141/01 *GPAKDRAW S # (NO SOURCE AVAILABLE) UM PIRKOLA 0 PROGRAM TO DO DRAWING ON A 2250 DISPLAY. REQUIRES *GPAKLIB (175) AND *GRAPHLIB (231). THIS PROGRAM HASN'T BEEN TRIED IN YEARS. 00141/02 *GPAKDRAW OC O S0720 'D3T1' FSNAME=GPAKDRAW..OC.2 396 D3T1 396 GPAKDRAW..OC.2 1 LINE 80 2 DISK UM PIRKOLA JAN. 22, 1973 22:09.16 00143/01 REWIND# SUBR SA G REW# W045:PF.REWIND# D3T1 397 REWIND#_SUBR..SA.1 1 LINE 80 3 PAGE UM PIRKOLA JULY 31, 1973 00:24.31 0 INTERNAL SUBROUTINE TO REWIND THINGS. CALLED BY REWIND (120) AND FORTRAN LIBRARY. LOADED INTO SHARED VM BY SEG 2 LOADER AT IPL. COPIES COPY:FCBEQU (482/27) AND COPY:FDUBDSECT (623). 00143/02 REWIND# SUBR OC G SEG2:REWIND#&CFE D3T1 398 REWIND#_SUBR..OC.2 1 LINE 80 2 PAGE UM PIRKOLA JULY 31, 1973 00:24.34 0 CONTAINS OBJECT FOR REWIND#, GRGJUL SUBRS (518), AND JULGRG SUBRS (522). 00144/01 *ASA SA O ASA0 LBT:ASA(1,999) D3T1 399 ASA..SA.1 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 00:25.26 0 PRINTS OUTPUT WITH ASA STANDARD CARRIAGE CONTROL. 00144/02 *ASA OC O *ASA D3T1 400 ASA..OC.2 1 LINE 80 1 PAGE UM TIFFANY JULY 31, 1973 00:25.26 00145/01 *TASKS SA G TSKS WSG:MTASKS(1,999) D3.2T1 129 TASKS..SA.01 1 LINE 80 5 PAGE UM WSG MAR. 21, 1975 01:13:28 0 MTS PROGRAM TO PRINT TASK STATUS IN SAME FORMAT AS TASKS JOB (019). CALLS TSKFMT SUBROUTINE WHICH IS PART OF TASKS JOB (019). 0 Referenced by comments of: 19/1 00145/02 *TASKS OC G *TASKS D3.2T1 130 TASKS..OC.02 1 LINE 80 1 PAGE UM WSG MAR. 21, 1975 01:13:30 00146 *OLDED SA # (OBSOLETE) D2T1 325 UM 00147/01 *FILESCAN SA G FSCN S0027 DISTRB FSNAME=FILESCAN D3T1 403 FILESCAN..SA.1 1 LINE 80 8 PAGE UM ENGLE JAN. 05, 1973 12:33.28 0 MTS FILE SCANNING PROGRAM. 00147/02 *FILESCAN OE G S0027 DISTRB FSNAME=FSCN D3T1 404 FILESCAN..O.2 1 LINE 80 3 PAGE UM ENGLE JULY 31, 1973 00:28.03 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00148 *WATLIB SF *WATLIB D3T1 405 WATLIB..SF. 1 LINE 73 3 PAGE UM SHERRY JULY 31, 1973 00:28.04 0 THIS IS THE SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES WHICH *WATFIV ASSUMES AS THE DEFAULT LIBRARY WHEN ATTEMPTING TO RESOLVE UNDEFINED SYMBOLS IN WATFIV PROGRAMS. 00150 *T90T360 # (SEE COMP 138) UM 00151 *CONVSNOBOL SS G *CONVSNOBOL D3T1 406 CONVSNOBOL..SS. 1 LINE 69 1 PAGE UM DE JONG JULY 31, 1973 00:28.06 0 $SOURCE FILE WHICH RUNS A SNOBOL PROGRAM TO ENHANCE CONVERSATIONAL USE OF SNOBOL. 00152 *COPIES # (OBSOLETE) UM 00153 *MADTOPL1 SS MPL1 *MADTOPL1 D3T1 407 MADTOPL1..SS. 1 LINE 80 20 PAGE UM GALLER JULY 31, 1973 00:28.08 0 CONVERT MAD 7090 TO PL/I 00154/01 *LAS C *LAS D3T1 408 LAS..C.1 1 LINE 9 1 PAGE UM WSG JULY 31, 1973 00:28.11 0 COMMAND FILE FOR STARTING MTS TERMINAL LINES. INVOKED BY ENTERING "MTS *LAS" ON OPERATORS CONSOLE. SIGNS ON AND SOURCES TO STRT:LAS (154/2). 0 Referenced by comments of: 413/10, 621/1 00154/02 *LAS STRT:LAS C STRT:LAS D3T1 409 LAS.STRT:LAS.C.2 1 LINE 74 1 PAGE UM WSG JULY 31, 1973 00:28.13 0 COMMAND FILE WHICH 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/01 IPL PROGRAM SA G IPL0 MTS:IPL.S D3.2T1 131 IPL_PROGRAM..SA.01 1 LINE 80 13 PAGE UM MTA MAR. 21, 1975 01:13:31 0 PROGRAM TO WRITE A SELF LOADING RECORD ON A DISK. MUST BE PATCHED WITH THE ADDRESS OF THE DISK DRIVE ON WHICH PACK MTS001 HAS BEEN MOUNTED. THIS PROGRAM IS LOADED BY THE IPL BOOTSTRAP (157) AFTER "MTS" HAS BEEN LOADED INTO CORE FROM CARDS OR TAPE. THIS PROGRAM THEN WRITES A SELF LOADING RECORD ONTO MTS001 WHICH CAN THEN BE IPLED FROM. THE "MTS" DECK REFERRED TO IS THE ENTIRE SYSTEM OBJECT DECK (468). THIS PROCESS (LOADING "MTS" FROM CARDS OR TAPE, THEN LOADING 157+156) IS COMMONLY REFERRED TO AS "WRITING THE DISK." THE DECK COMBINATION 157+156+REP CARDS IS REFERRED TO AS THE "DISK WRITE DECK." COPIES COPY:GLOBALS (1026/4). ASSEMBLE USING COPY:SETPARM (653). 0 Referenced by comments of: 157/1 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00156/02 IPL PROGRAM 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 0 THIS OBJECT DECK (ALONG WITH 157 AND SOME REP CARDS) IS LOCATED AT THE END (AFTER THE LDT CARD) OF THE RESIDENT SYSTEM DECK. 00156/03 IPL PROGRAM 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00157/01 IPL BOOTSTRAP SA G IPLB W047:ABSLDR(1,999) D3.2T1 132 IPL_BOOTSTRAP..SA.01 1 LINE 80 4 PAGE UM HAMILTON MAR. 21, 1975 01:13:33 0 ABSOLUTE LOADER FOR THE DISK WRITE PROGRAM (156). SEE COMMENT FOR COMP 156/1. THE OBJECT DECK FOR THIS PROGRAM MUST BE MASSAGED BY HAND (OR KEYPUNCH) BEFORE IT WILL IPL (SEE COMMENTS IN LISTING IF IT BECOMES NECESSARY TO RE-ASSEMBLE -- UNLIKELY). 157/2 HAS ALREADY BEEN APPROPRIATELY FIXED. 0 Referenced by comments of: 156/1 00157/02 IPL BOOTSTRAP OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HAMILTON 0 THIS OBJECT DECK (ALONG WITH 156 AND SOME REP CARDS) IS LOCATED AT THE END (AFTER THE LDT CARD) OF THE RESIDENT SYSTEM DECK. 00159 *CCQUEUE # (SEE COMP 615) UM 00160 FRONCOPY S # OBSOLETE D2T1 387 UM 00162 PSA DSECT SA G COPY:PSA D3.2T1 133 PSA_DSECT..SA. 1 LINE 72 6 PAGE UM MTA MAR. 21, 1975 01:13:36 0 DEFINITION OF PREFIXED STORAGE AREA (PSA). COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS. REQUIRES THAT COPY:GLOBALS (1026/4) BE COPIED FIRST. 0 Referenced by comments of: 45/2, 46/2, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 577/53, 577/55, 588/1, 589/1, 611/1 00163/01 PL1 COMPILER MACLIB SM G MAC0 S0410 MTSPL1 'PL1LIB' POSN=MACLIB 1 D3T1 414 PL1_COMPILER.MACLIB.SM.1 1 SEQ 80 51 PAGE UM TIFFANY JULY 31, 1973 00:31.15 0 PL/I(F) VERSION 5 COMPILER (RELEASE 20.1). MACLIB IS A MACRO LIBRARY FOR THE SIMULATION OF OS/360 STUFF IN MTS. 00163/02 PL1 COMPILER SAMEQU SA G SAMQ S0410 MTSPL1 'PL1LIB' POSN=SAMEQU 2 D3T1 415 PL1_COMPILER.SAMEQU.SA.2 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 00:31.20 0 COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE 0 Referenced by comments of: 163/3, 163/4, 163/5, 163/6, 163/7, 163/8, 163/9, 163/10, 163/11, 163/14, 233/32 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00163/03 PL1 COMPILER REPLACE SA G RPLC S0410 MTSPL1 'PL1LIB' POSN=REPLACE 3 D3T1 416 PL1_COMPILER.REPLACE.SA.3 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 00:31.21 0 ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE. COPIES SAMEQU (163/2). 00163/04 PL1 COMPILER CKLIO SA G CKL0 S0410 MTSPL1 'PL1LIB' POSN=CKLIO 4 D3T1 417 PL1_COMPILER.CKLIO.SA.4 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:31.24 0 ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT. COPIES SAMEQU (163/2). 00163/05 PL1 COMPILER NONSENSE SA G NONE S0410 MTSPL1 'PL1LIB' POSN=NONSENSE 5 D3T1 418 PL1_COMPILER.NONSENSE.SA.5 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 00:31.26 0 ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE. COPIES SAMEQU (163/2). 00163/06 PL1 COMPILER FREEDDEF SA G FREE S0410 MTSPL1 'PL1LIB' POSN=FREEDDEF 6 D3T1 419 PL1_COMPILER.FREEDDEF.SA.6 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:31.28 0 ROUTINE TO FREE ALL DDEF'S. COPIES SAMEQU (163/2). 00163/07 PL1 COMPILER FINDTIOT SA G FIND S0410 MTSPL1 'PL1LIB' POSN=FINDTIOT 7 D3T1 420 PL1_COMPILER.FINDTIOT.SA.7 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:31.31 0 ROUTINE TO FIND A TIOT GIVEN A "DDNAME." COPIES SAMEQU (163/2). 00163/08 PL1 COMPILER DDEF SA G DDEF S0410 MTSPL1 'PL1LIB' POSN=DDEF 8 D3T1 421 PL1_COMPILER.DDEF.SA.8 1 SEQ 80 8 PAGE UM TIFFANY JULY 31, 1973 00:31.34 0 ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH. COPIES SAMEQU (163/2). 00163/09 PL1 COMPILER OPEN SA G OPEN S0410 MTSPL1 'PL1LIB' POSN=OPEN 9 D3T1 422 PL1_COMPILER.OPEN.SA.9 1 SEQ 80 17 PAGE UM TIFFANY JULY 31, 1973 00:31.37 0 SIMULATE OS/360 OPEN. COPIES SAMEQU (163/2). 00163/10 PL1 COMPILER ROUT SA G RUTE S0410 MTSPL1 'PL1LIB' POSN=DMTROUTE 10 D3T1 423 PL1_COMPILER.ROUT.SA.10 1 SEQ 80 26 PAGE UM TIFFANY JULY 31, 1973 00:31.41 0 LIST OF VARIOUS ROUTINES. COPIES SAMEQU (163/2). 00163/11 PL1 COMPILER CLOSE SA G CLOS S0410 MTSPL1 'PL1LIB' POSN=CLOSE 11 D3T1 424 PL1_COMPILER.CLOSE.SA.11 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 00:31.44 0 SIMULATE OS/360 CLOSE. COPIES SAMEQU (163/2). 00163/12 PL1 COMPILER QUIT SA G QUIT S0410 MTSPL1 'PL1LIB' POSN=QUIT 12 D3T1 425 PL1_COMPILER.QUIT.SA.12 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:31.46 0 QUIT ONLY IN BATCH 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00163/13 PL1 COMPILER UPDATE UI S0720 'D3T1' FSNAME=PL1_COMPILER.UPDATE.UI.13 426 D3T1 426 PL1_COMPILER.UPDATE.UI.13 1 LINE 73 17 PAGE UM TIFFANY JULY 30, 1973 03:32.05 0 *IEBUPDAT INPUT TO PRODUCE CURRENT MTS PL/I COMPILER FROM OS/360 RELEASE 20.1 SOURCE. 00163/14 PL1 COMPILER TIOT SA G TIOT S0410 MTSPL1 'PL1LIB' POSN=PL1TIOT 54 D3T1 427 PL1_COMPILER.TIOT.SA.14 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:32.26 0 YES IT REALLY IS A TIOT. COPIES SAMEQU (163/2). 00163/15 PL1 COMPILER ESDLIST SA G ESDL S0410 MTSPL1 'PL1LIB' POSN=INESD 55 D3T1 428 PL1_COMPILER.ESDLIST.SA.15 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:32.27 0 TABLE OF SOMETHING OR OTHER 00163/16 PL1 COMPILER *PL1 OE G *PL1 D3T1 429 PL1_COMPILER.*PL1.OE.16 1 SEQ 4796 7 PAGE UM TIFFANY JULY 31, 1973 00:32.28 00163/17 PL1 COMPILER *PL1DIRECTOR D *PL1DIRECTOR D3T1 430 PL1_COMPILER.*PL1DIRECTOR.D.17 1 SEQ 4096 2 PAGE UM TIFFANY JULY 31, 1973 00:32.31 00163/18 PL1 COMPILER *PLI OL G *PLI D3T1 431 PL1_COMPILER.*PLI.OL.18 1 SEQ 7340 18 PAGE UM TIFFANY JULY 31, 1973 00:32.33 0 THERE IS A REP CARD IN THIS FILE 00163/19 PL1 COMPILER *PL1LINKLIB1 OE G *PL1LINKLIB1 D3T1 432 PL1_COMPILER.*PL1LINKLIB1.OE.19 1 SEQ 7340 231 PAGE UM TIFFANY JULY 31, 1973 00:32.36 0 THERE ARE SEVERAL REP CARDS IN THIS FILE 00163/20 PL1 COMPILER PL/I ADDENDUM WF S0720 'D3T1' FSNAME=PL1_COMPILER.PL/I_ADDENDUM.WF.20 433 D3T1 433 PL1_COMPILER.PL/I_ADDENDUM.WF.20 1 LINE 123 2 DISK UM TIFFANY MAR. 15, 1973 18:35.28 0 THIS IS COMPUTING CENTER MEMO M195 -- "ADDENDUM TO PL/I USER'S GUIDE" 00164 *LCS OC G *LCS D3T1 434 LCS..OC. 1 LINE 24 1 PAGE UM MTA JULY 31, 1973 00:33.12 0 CONTAINS THE SINGLE LOADER CARD: LCS LCSYMBOL 00166 *WATERR # (OBSOLETE) UM 00168 *DICTUPD # (SEE COMP 138) UM 00169 *DICT # (SEE COMP 138) UM 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00170 *LISTVTOC SA # (OBSOLETE) D2T1 105 UM 00171 *BATCH SA # (OBSOLETED BY *BATCH*) D2T1 327 UM 00172/01 *UMIST MACRO LIB SM ISTM S0720 'D3T1' FSNAME=UMIST.MACRO_LIB.SM.1 435 D3T1 435 UMIST.MACRO_LIB.SM.1 1 SEQ 80 14 PAGE UM SALISBURY JULY 31, 1973 00:35.25 0 172/1 THRU 172/9 REPRESENT THE CURRENT SOURCE FOR *UMIST. IT CONSISTS OF 1 MACRO LIBRARY, 2 COPY SECTIONS, AND 6 ASSEMBLIES. TO ASSEMBLE UMIST CREATE AND FILL /SYMBOLS AND /PSECT (THE COPY SECTIONS), CREATE THE MACRO LIBRARY, AND ASSEMBLE ANY OR ALL OF THE ASSEMBLIES USING BOTH *SYSMAC AND THE SPECIAL MACRO LIBRARY. COMPONENT 172/1 IS THE MACRO LIBRARY READY FOR COPYING INTO A FILE. UMIST IS THE UM VERSION OF THE TRAC STRING PROCESSING LANGUAGE AND IS UNCHANGED SINCE 2.0. 00172/02 *UMIST /SYMBOLS SA ISC1 S0720 'D3T1' FSNAME=UMIST./SYMBOLS.SA.2 436 D3T1 436 UMIST./SYMBOLS.SA.2 1 SEQ 80 4 PAGE UM SALISBURY JULY 31, 1973 00:35.27 0 THIS IS THE "/SYMBOLS" COPY SECTION 00172/03 *UMIST /PSECT SA ISC2 S0720 'D3T1' FSNAME=UMIST./PSECT.SA.3 437 D3T1 437 UMIST./PSECT.SA.3 1 SEQ 80 7 PAGE UM SALISBURY JULY 31, 1973 00:35.29 0 THIS IS THE "/PSECT" COPY SECTION 00172/04 *UMIST /ENTRY SA IST1 S0720 'D3T1' FSNAME=UMIST./ENTRY.SA.4 438 D3T1 438 UMIST./ENTRY.SA.4 1 SEQ 80 7 PAGE UM SALISBURY JULY 31, 1973 00:35.31 0 "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH AS POSSIBLE. 00172/05 *UMIST /TABLES SA IST2 S0720 'D3T1' FSNAME=UMIST./TABLES.SA.5 439 D3T1 439 UMIST./TABLES.SA.5 1 SEQ 80 9 PAGE UM SALISBURY JULY 31, 1973 00:35.33 0 MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS. CALLED "/TABLES" 00172/06 *UMIST /MISC SA IST3 S0720 'D3T1' FSNAME=UMIST./MISC.SA.6 440 D3T1 440 UMIST./MISC.SA.6 1 SEQ 80 2 PAGE UM SALISBURY JULY 31, 1973 00:35.35 0 "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK, INPUT BUFFER, AND FREE STORAGE. 00172/07 *UMIST /UTILITIES SA IST4 S0720 'D3T1' FSNAME=UMIST./UTILITIES.SA.7 441 D3T1 441 UMIST./UTILITIES.SA.7 1 SEQ 80 32 PAGE UM SALISBURY JULY 31, 1973 00:35.40 0 "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH SUPPORT PRIMITIVE FUNCTIONS. THIS ASSEMBLY USES THE "SWPR" RPQ'ED INSTRUCTION. 00172/08 *UMIST /FCNS/1 SA IST5 S0720 'D3T1' FSNAME=UMIST./FCNS/1.SA.8 442 D3T1 442 UMIST./FCNS/1.SA.8 1 SEQ 80 37 PAGE UM SALISBURY JULY 31, 1973 00:35.46 0 "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00172/09 *UMIST /FCNS/2 SA IST6 S0720 'D3T1' FSNAME=UMIST./FCNS/2.SA.9 443 D3T1 443 UMIST./FCNS/2.SA.9 1 SEQ 80 30 PAGE UM SALISBURY JULY 31, 1973 00:35.51 0 "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS. 00172/10 *UMIST TEST DECK D S0720 'D3T1' FSNAME=UMIST.TEST_DECK.D.10 444 D3T1 444 UMIST.TEST_DECK.D.10 1 SEQ 80 3 PAGE UM SALISBURY JULY 31, 1973 00:35.54 0 "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF. 00172/11 *UMIST OBJECT OC *UMIST D3T1 445 UMIST.OBJECT.O.11 1 LINE 80 16 PAGE UM SALISBURY JULY 31, 1973 00:35.55 00173 PRINTSAVE # (SEE COMP 502) UM 00175 *GPAKLIB OL S0720 'D3T1' FSNAME=GPAKLIB..OL. 446 D3T1 446 GPAKLIB..OL. 1 SEQ 3888 40 DISK UM PIRKOLA JAN. 22, 1973 18:22.11 0 GRAPHIC LIBRARY FROM OS CONVERTED FOR MTS. REQUIRES *GRAPHLIB (231). THIS IS AN ANCIENT VERSION AND DOES NOT CORRESPOND TO ANYTHING CURRENTLY IN OS. SOURCE IS NOT AVAILABLE. THERE ARE MANY (!!) REP CARDS IN THIS. 0 Referenced by comments of: 141/1, 179/1 00178/01 *PIL SA S PIL0 S0720 'D3T1' FSNAME=PIL..SA.1 447 D3T1 447 PIL..SA.1 1 SEQ 80 215 PAGE UM TIFFANY JULY 31, 1973 00:38.27 0 SOURCE FOR *PIL (PITTSBURGH INTERPRETIVE LANGUAGE). UNCHANGED FROM DIST 2. AT UM, *PIL WILL BE REPLACED BY *PIL/2 (566) LATER IN 1973. 00178/02 *PIL OC S *PIL D3T1 448 PIL..OC.2 1 LINE 100 21 PAGE UM TIFFANY JULY 31, 1973 00:38.47 0 CONTAINS REP CARDS IN OBJECT WHICH ARE NOT REFLECTED IN SOURCE. 00179 *GPAKGRID OC O S0720 'D3T1' FSNAME=GPAKGRID..OC. 449 D3T1 449 GPAKGRID..OC. 1 LINE 80 7 DISK UM PIRKOLA JAN. 22, 1973 22:06.14 0 PROGRAM TO PLOT ON A 2250 DISPLAY. REQUIRES *GPAKLIB (175) AND *GRAPHLIB (231). NO SOURCE AVAILABLE. 00180 SCANDASD SA # OBSOLETE D2T1 117 UM 00182/01 *SNOBOL4 S4 SA G S0099 S4V3 'SNOBOL4 VERSION 3' POSN=MAIN1 3 D3T1 450 SNOBOL4.S4.SA.1 1 SEQ 80 138 PAGE UM DE JONG JULY 31, 1973 00:40.21 0 BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4. 0 Referenced by comments of: 182/4 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00182/02 *SNOBOL4 SUBR SA G S0099 S4V3 'SNOBOL4 VERSION 3' POSN=SUBR 5 D3T1 451 SNOBOL4.SUBR.SA.2 1 SEQ 80 46 PAGE UM DE JONG JULY 31, 1973 00:41.01 0 BELL LABS SOURCE FOR SUBROUTINES. 00182/03 *SNOBOL4 MACROS SA G S0099 S4V3 'SNOBOL4 VERSION 3' POSN=SNOMAC 6 D3T1 452 SNOBOL4.MACROS.SA.3 1 SEQ 80 41 PAGE UM DE JONG JULY 31, 1973 00:44.08 0 BELL LABS SOURCE FOR MACROS. 00182/04 *SNOBOL4 UPDATE UU G S0101 'SNOBOL4 SCRATCH' FMT=FB(3200,80) 1 D3T1 453 SNOBOL4.UPDATE.UU.4 1 SEQ 80 35 PAGE UM DE JONG JULY 31, 1973 00:45.31 0 *UPDATE DECK TO MODIFIY BELL LABS SOURCE (182/1) TO BRING IT UP TO VERSION 3.6 SNOBOL 4 AND TO ADD THE CHANGES NECESSARY TO RUN IT IN MTS. 00182/05 *SNOBOL4 OBJECT OE G *SNOBOL4 D3T1 454 SNOBOL4.OBJECT.O.5 1 SEQ 32767 27 PAGE UM DE JONG JULY 31, 1973 00:45.35 00182/06 *SNOBOL4 MACLEAN SP G S0720 'D3T1' FSNAME=SNOBOL4.MACLEAN.SP.6 455 D3T1 455 SNOBOL4.MACLEAN.SP.6 1 SEQ 80 1 PAGE UM DE JONG JULY 31, 1973 00:47.21 0 SOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSEMBLY. UNCHANGED SINCE DIST 2.2. 00182/07 *SNOBOL4 MACLEAN OC G W086:MACLEAN D3T1 456 SNOBOL4.MACLEAN.OC.7 1 SEQ 80 2 PAGE UM DE JONG JULY 31, 1973 00:47.23 0 REQUIRES *PL1LIB. 00182/08 *SNOBOL4 WRITEUP WF S0720 'D3T1' FSNAME=SNOBOL4.WRITEUP.WF.8 457 D3T1 457 SNOBOL4.WRITEUP.WF.8 1 LINE 113 1 DISK UM DE JONG MAR. 15, 1973 18:04.35 0 THIS IS COMPUTING CENTER MEMO M179 -- "*SNOBOL4 AND *SNOBOL4B" 00183 *FMAINT # (SEE COMP 138) UM 00185 *PRESCAN # (SEE COMP 138) UM 00186 *BLDLIN # (SEE COMP 138) UM 00187 *POSTPR # (SEE COMP 138) UM 00188 *PLAOUT # (SEE COMP 138) UM 00191 *TRANSNOBOL SS G S0720 'D3T1' FSNAME=TRANSNOBOL..SS. 458 D3T1 458 TRANSNOBOL..SS. 1 SEQ 80 7 PAGE UM DE JONG JULY 31, 1973 00:48.59 0 CONVERT SNOBOL3 TO SNOBOL4. UNCHANGED SINCE DIST 1. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00192 *DCS C # (NOT DISTRIBUTED) UM 00193/01 *OSMAC SM *OSMAC D3T2 1 OSMAC..SM.1 1 LINE 72 129 PAGE UM YOUNG JULY 31, 1973 20:57.35 0 MACRO LIBRARY FOR OS/360 RELEASE 21.0 00193/02 *OSMAC BUILD PROGRAM SA MACB S0652 SOURCE POSN=MACBLD 1 D3T2 2 OSMAC.BUILD_PROGRAM.SA.2 1 SEQ 80 11 PAGE UM YOUNG JULY 31, 1973 20:59.15 0 THIS IS A PROGRAM TO BUILD *OSMAC. IT READS NAMES OF MACROS (UP TO 255 CHARS PER LINE) FROM SCARDS, DELETING ANY NAMES WHICH ARE DUPLICATES OR WHICH ARE LONGER THAN 8 CHARS. THE LIST OF MACRO NAMES IS TERMINATED BY AN END-OF-FILE FROM SCARDS. THE NAMES ARE SORTED INTO ALPHABETICAL ORDER AND THE MACRO TAPE IS THEN READ FROM LOGICAL I/O UNIT 0. THE SPECIFIED MACROS ARE WRITTEN IN THE MACRO LIBRARY FILE (LOGICAL I/O UNIT 1) BEGINNING AT LINE 3000. THE READING IS TERMINATED WHEN ALL SPECIFIED MACROS HAVE BEEN FOUND OR WHEN 2 CONSEQUTIVE END-OF-FILES HAVE BEEN READ. A DIRECTORY SHOWING THE STARTING LINE NUMBER FOR EACH MACRO IS PRINTED ON SPRINT. NORMALLY, THIS PROGRAM DELETES SEQUENCE ID FROM THE MACROS TO SAVE FILE SPACE (A LOT). STATEMENTS 201 AND 202 SHOULD BE DELETED IF SEQUENCE ID IS TO BE PRESERVED: LA 1,72 STH 1,LEN 00193/03 *OSMAC BUILD PROGRAM OC W116:BUILDMAC D3T2 3 OSMAC.BUILD_PROGRAM.O.3 1 LINE 80 3 PAGE UM YOUNG JULY 31, 1973 20:59.22 00195 *EDHELP OC # (OBSOLETE) UM 00196 PAGEIT SA # (OBSOLETED BY COMP 643) D3T2 4 PAGEIT..SA.1 1 LINE 80 3 PAGE UM JULY 31, 1973 20:59.23 0 Referenced by comments of: 643/1 00197 *SMDS M G *SMDS D3.2T1 134 SMDS..M. 1 LINE 118 3 PAGE UM MTA MAR. 21, 1975 01:13:38 0 MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET). USED IN CONJUNCTION WITH FMSG MACRO IN MTS. 00198/01 GUINFO/CUINFO D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=INFO 4 D3T2 7 GUINFO/CUINFO..SA.1 1 SEQ 80 9 PAGE UM DWB JULY 31, 1973 21:01.35 0 SUBROUTINES TO ALLOW USERS TO ACCESS (OR CHANGE) CERTAIN INFORMATION IN THE MTS DSECT. COPIES COPY:MTS.DSECT (346), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:LLMPSEQU (087), AND COPY:GLOBALS (1026/4). NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. 0 Referenced by comments of: 198/2, 344/1 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00198/02 GUINFO/CUINFO UPDATE UU G MTS:INFOUPD D3.2T1 135 GUINFO/CUINFO.UPDATE.UU.02 1 LINE 61 1 PAGE UM DWB MAR. 21, 1975 01:13:40 0 UPDATE TO D3 MASTER (198/1) TO PRODUCE CURRENT SOURCE. UPDATE DECK USES %POSN *IN* INFO. 00198/03 GUINFO/CUINFO OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00200/01 *SDARTN SA SDA0 W032:SDASOU092970 D3T2 8 SDARTN..SA.1 1 LINE 80 94 PAGE UM EMERY JULY 31, 1973 21:01.58 0 DEVICE SUPPORT ROUTINES FOR RJE FROM A REMOTE COMPUTER OR 2780 THROUGH A 2701 OR 2703 SDA TYPE II. THIS IS MTS DIRECT RJE (NOT HASP), I.E. IT IS NOT SPOOLED. HAS NOT BEEN USED AT UM FOR MANY YEARS, ALTHOUGH SHOULD STILL WORK. FORMAT OF DEVICE DESCRIPTION RECORD AVAILABLE ON REQUEST (INCLUDED WITH DIST 2.0). REQUIRES *SYSMAC. 00200/02 *SDARTN OC *SDARTN D3T2 9 SDARTN..O.2 1 LINE 80 7 PAGE UM EMERY JULY 31, 1973 21:02.27 00201/01 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 14 D3T2 10 GPSS/360.OS_SOURCE.SA.1 1 SEQ 80 20 PAGE UM FLANIGAN JULY 31, 1973 21:03.57 0 THE MTS IMPLEMENTATION OF GPSS OFFERS SEVERAL FEATURES NOT PROVIDED BY THE IBM VERSION: (1) IMPROVED LISTING CONTROL WITH BATCH AND TERMINAL DEFAULTS. (2) LINE NUMBERS IN THE LISTING. (3) SENSIBLE CARRIAGE CONTROL (FAR FEWER PAGE SKIPS). (4) CAPABILITY OF DIRECTLY INTERFACING WITH SUBROUTINES THAT USE OS/I CALLING SEQUENCES. (5) SUBROUTINES TO ALLOW MANIPULATION OF GPSS DATA FROM FORTRAN PROGRAMS. (6) TIME ESTIMATES TO ALLOW ERROR OUTPUT TO BE PRINTED BEFORE MTS TERMINATES A JOB. (7) ATTENTION INTERRUPT CONTROL TO TELL THE USER WHERE HIS PROGRAM IS AND HOW MUCH HAS BEEN SPENT. (8) PADDING AND TRUNCATION OF JOBTAPES FOR DISK SPACE ECONOMY. (9) ERROR MESSAGE SUMMARY. THREE PRINCIPLE APPENDAGES ARE TACKED ONTO THE IBM MODULES TO MAKE THESE IMPROVEMENTS. FIRST, A DRIVER PROGRAM IS PROVIDED TO SCAN THE PAR= FIELD AND SET-UP DEFAULTS; AND, AT THE CONCLUSION OF A RUN, TO PRINT AN ERROR SUMMARY WHERE APPROPRIATE. SECOND, A SET OF INTERFACE SUBROUTINES PROVIDE A SIMULATED OS/360 ENVIRONMENT. ONE NOTABLE FEATURE OF THIS INTERFACE IS THAT SCRATCH FILE I/O IS IMPLEMENTED BY USE OF VIRTUAL MEMORY FILES. THIRD, A SET OF SMALL "HOOK" SUBROUTINES IS PROVIDED. BECAUSE OF THE VOLATILITY OF THE RATHER POOR IBM CODE, SUCH FUNCTIONS AS IMPROVED LISTING CONTROL WERE IMPLEMENTED BY ASSEMBLING "HOOKS" INTO THE IBM CODE, EACH "HOOK" RESULTING IN A CALL TO A "HOOK" SUBROUTINE. WHILE THE "HOOK" SUBROUTINES EXHIBIT WHAT WOULD APPEAR TO BE BAD PROGRAMMING PRACTICES (E.G. ABSOLUTE DISPLACEMENTS IN INSTRUCTIONS), THEY HAVE BEEN CODED IN SUCH A WAY AS TO BE INSENSITIVE TO REASSEMBLY OF THE IBM MODULES. COMPONENTS 201/1 THROUGH 201/11 ARE THE OS/360 SOURCE FOR GPSS VERSION 1 MODIFICATION LEVEL 3. 00201/02 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 15 D3T2 11 GPSS/360.OS_SOURCE.SA.2 1 SEQ 80 11 PAGE UM FLANIGAN JULY 31, 1973 21:04.01 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00201/03 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 16 D3T2 12 GPSS/360.OS_SOURCE.SA.3 1 SEQ 80 8 PAGE UM FLANIGAN JULY 31, 1973 21:04.03 00201/04 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 17 D3T2 13 GPSS/360.OS_SOURCE.SA.4 1 SEQ 80 62 PAGE UM FLANIGAN JULY 31, 1973 21:04.11 00201/05 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 18 D3T2 14 GPSS/360.OS_SOURCE.SA.5 1 SEQ 80 102 PAGE UM FLANIGAN JULY 31, 1973 21:04.28 00201/06 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 19 D3T2 15 GPSS/360.OS_SOURCE.SA.6 1 SEQ 80 22 PAGE UM FLANIGAN JULY 31, 1973 21:04.44 00201/07 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 20 D3T2 16 GPSS/360.OS_SOURCE.SA.7 1 SEQ 80 88 PAGE UM FLANIGAN JULY 31, 1973 21:04.55 00201/08 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 21 D3T2 17 GPSS/360.OS_SOURCE.SA.8 1 SEQ 80 112 PAGE UM FLANIGAN JULY 31, 1973 21:05.20 00201/09 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 22 D3T2 18 GPSS/360.OS_SOURCE.SA.9 1 SEQ 80 152 PAGE UM FLANIGAN JULY 31, 1973 21:05.46 00201/10 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 23 D3T2 19 GPSS/360.OS_SOURCE.SA.10 1 SEQ 80 109 PAGE UM FLANIGAN JULY 31, 1973 21:06.10 00201/11 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 24 D3T2 20 GPSS/360.OS_SOURCE.SA.11 1 SEQ 80 57 PAGE UM FLANIGAN JULY 31, 1973 21:06.25 00201/12 GPSS/360 GPSSUPDATE UU G S0289 S289 'GPSS/360' FSNAME=GPSSUPDATE D3.1T1 183 GPSS/360.GPSSUPDATE.UU.12 1 LINE 80 7 PAGE UM FLANIGAN FEB. 24, 1974 19:32.29 0 UPDATE DECK TO BE APPLIED TO 11 OS SOURCE FILES. A TAPE-TO-TAPE UPDATE VIA *UPDATE USING *IBM* TO *MTS* IS ASSUMED. 00201/13 GPSS/360 GPSS.OS.O OE G S0289 S289 'GPSS/360' FSNAME=GPSS.OS.O D3.1T1 184 GPSS/360.GPSS.OS.O.OE.13 1 LINE 255 36 PAGE UM FLANIGAN JAN. 16, 1974 16:26.50 0 OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES. 00201/14 GPSS/360 GPSSMAC SA G GMAC S0289 S289 'GPSS/360' FSNAME=GPSSMAC D3T2 23 GPSS/360.GPSSMAC.SA.14 1 LINE 80 7 PAGE UM FLANIGAN DEC. 13, 1972 20:57.52 0 MACRO LIBRARY NEEDED FOR ALL ASSEMBLIES. 00201/15 GPSS/360 GPSS.S SA G GPSS S0289 S289 'GPSS/360' FSNAME=GPSS.S D3T2 24 GPSS/360.GPSS.S.SA.15 1 LINE 80 6 PAGE UM FLANIGAN DEC. 13, 1972 20:58.07 0 SOURCE FOR MTS DRIVER PROGRAM. 00201/16 GPSS/360 GPSSPKG.S SA G GPKG S0289 S289 'GPSS/360' FSNAME=GPSSPKG.S D3T2 25 GPSS/360.GPSSPKG.S.SA.16 1 LINE 80 7 PAGE UM FLANIGAN DEC. 13, 1972 20:58.45 0 SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00201/17 GPSS/360 HOOKSECT.S SA G GHOK S0289 S289 'GPSS/360' FSNAME=HOOKSECT.S D3.1T1 185 GPSS/360.HOOKSECT.S.SA.17 1 LINE 80 15 PAGE UM FLANIGAN JAN. 16, 1974 16:26.40 0 SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE. 00201/18 GPSS/360 JUNK.S SA G GJNK S0289 S289 'GPSS/360' FSNAME=JUNK.S D3T2 27 GPSS/360.JUNK.S.SA.18 1 LINE 80 3 PAGE UM FLANIGAN DEC. 13, 1972 20:59.09 0 SOURCE FOR SEVERAL SUBROUTINES. 00201/19 GPSS/360 GPSS.MTS.O OE G S0289 S289 'GPSS/360' FSNAME=GPSS.MTS.O D3.1T1 186 GPSS/360.GPSS.MTS.O.OE.19 1 LINE 255 5 PAGE UM FLANIGAN JAN. 16, 1974 16:26.47 0 OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S. 00201/20 GPSS/360 *GPSS OL G *GPSS D3.1T1 187 GPSS/360.*GPSS.OL.20 1 SEQ 32767 34 PAGE UM FLANIGAN MAR. 06, 1974 03:34.15 0 LINKEDIT OF GPSS.OS.O AND GPSS.MTS.O WITH ENTRY POINT ESD ITEMS PURGED. NOTE: GPSS CALL THE FOLLOWING LIBRARY SUBROUTINES: COST, SETIME, AND TIMNTRP. 00201/21 GPSS/360 *GPSSLIB SA G GHLP S0289 S289 'GPSS/360' FSNAME=HELPLIB.S D3T2 30 GPSS/360.*GPSSLIB.SA.21 1 LINE 80 8 PAGE UM FLANIGAN DEC. 13, 1972 20:59.21 0 SOURCE FOR SUBROUTINES WHICH ALLOW THE MANIPULATION OF GPSS DATA FROM FORTRAN SUBROUTINES. 00201/22 GPSS/360 *GPSSLIB OC G *GPSSLIB D3T2 31 GPSS/360.*GPSSLIB.O.22 1 SEQ 80 1 PAGE UM FLANIGAN JULY 31, 1973 21:11.46 00201/23 GPSS/360 *GPSSERR M G *GPSSERR D3.1T1 188 GPSS/360.*GPSSERR.M.23 1 LINE 73 9 PAGE UM FLANIGAN MAR. 06, 1974 03:34.18 0 ERROR MESSAGE FILE. 00201/24 GPSS/360 TESTPROG S G TEST S0289 S289 'GPSS/360' FSNAME=TESTPROG D3T2 33 GPSS/360.TESTPROG.S.24 1 LINE 80 1 PAGE UM FLANIGAN DEC. 13, 1972 20:59.42 0 SOURCE FOR TEST PROGRAM. 00201/25 GPSS/360 TESTOUTPUT D G S0289 S289 'GPSS/360' FSNAME=TESTOUTPUT D3.1T1 189 GPSS/360.TESTOUTPUT.D.25 1 SEQ 129 1 DISK UM FLANIGAN MAY 18, 1973 17:17.38 0 OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM. 00201/26 GPSS/360 NOTES WF W098:HEN D3.1T1 190 GPSS/360.D3.1_NOTES.WF.26 1 LINE 107 1 PAGE UM FLANIGAN MAR. 06, 1974 03:34.46 0 WRITEUP DESCRIBING GPSS/360. 00203 *TNLBUILD # (SEE COMP 110) UM 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00204/01 FORTRANG IEYFORT SA G IEYF S0579 SAVE 'JWS-SAVE' FSNAME=SOURCE.FORT D3T2 35 FORTRANG.IEYFORT.SA.1 1 LINE 80 20 PAGE UM JWS JULY 31, 1973 21:12.20 0 THIS IS THE MTS VERSION OF THE CONTROL MODULE OF THE FORTRAN G COMPILER. IT INCORPORATES THE FUNCTIONS OF THE OS MODULES IEYFORT AND IEYFORT2. 00204/02 FORTRANG *FORTRANG OE G *FORTRANG D3T2 36 FORTRANG.*FORTRANG.O.2 1 SEQ 18732 17 PAGE UM JWS JULY 31, 1973 21:12.25 00204/03 FORTRANG IEYFORT W/ SYM SA G IEYF S0579 SAVE 'JWS-SAVE' FSNAME=SOURCE.FORTD D3T2 37 FORTRANG.IEYFORT_W/_SYM.SA.3 1 LINE 80 20 PAGE UM JWS JULY 31, 1973 21:12.28 0 THIS VERSION OF THE FORTRAN G CONTROL MODULE CALLS IEYSYM AT THE APPROPRIATE TIMES TO PRODUCE SYM RECORDS IN THE OBJECT DECK. 00204/04 FORTRANG IEYSYM SA G IEYS S0579 SAVE 'JWS-SAVE' FSNAME=SOURCE.SDS D3T2 38 FORTRANG.IEYSYM.SA.4 1 LINE 80 24 PAGE UM JWS JULY 31, 1973 21:12.33 0 THIS MODULE PRODUCES "SYM" RECORDS FOR THE FORTRAN G COMPILER. 00204/05 FORTRANG SYM CARD VERS OE G *FTNGTEST D3T2 39 FORTRANG.SYM_CARD_VERS.O.5 1 SEQ 32767 17 PAGE UM JWS JULY 31, 1973 21:12.39 00204/06 FORTRANG WRITEUP WF S0721 'D3T2' FSNAME=FORTRANG.WRITEUP.WF.6 40 D3T2 40 FORTRANG.WRITEUP.WF.6 1 LINE 113 8 DISK UM JWS MAR. 15, 1973 17:26.11 0 THIS IS COMPUTING CENTER MEMO M137 -- "*FORTRANG" 00207 *GPSSGRAPH # (OBSOLETE) UM 00208 *SWAT # (OBSOLETE, SEE COMP 051) UM 00210/01 *LISP SA G C1945 LISP 'WR2' POSN=LISP.SOURCE.ASMG UM HAMILTON 0 NEW LISP COMPILER WRITTEN BY UM MENTAL HEALTH RESEARCH INSTITUTE. THE OLD OS/360 LISP IS NOW USED ONLY IN CONJUNCTION WITH REDUCE2 (556). 00210/02 *LISP OE G *LISP UM HAMILTON 00210/03 *LISP TRANSIT SA G C1945 LISP 'WR2' POSN=TRANSIT.ASMG.LISP UM HAMILTON 0 THIS COMPONENT CONTAINS THE "HYPOTHETICAL WORLDS" FUNCTIONS, RPLACA2, RPLACD2, SETA2, NEWWORLD, REALWORLD, GETWORLD. 00210/04 *LISP EDITOR S G C1945 LISP 'WR2' POSN=EDIT.SOURCE.LISP UM HAMILTON 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. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00210/05 *LISP BREAK S G C1945 LISP 'WR2' POSN=BREAK.SOURCE.LISP UM HAMILTON 0 THIS COMPONENT CONTAINS THE LISP SOURCE FOR A LISP DEBUGGING PACKAGE. IT WAS WRITTEN AT UBC AND MAY BE DOCUMENTED IN MTS VOLUME 8. 00210/06 *LISP COMPILER S O = ????? UM HAMILTON 0 THIS IS THE LISP SOURCE FOR THE LISP COMPILER. 00210/07 *LISP *LISPLIB O G *LISPLIB UM HAMILTON 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/01 *FILESNIFF SA G FSNF W045:NEWFILESNIF D3T2 49 FILESNIFF..SA.1 1 LINE 80 6 PAGE UM PIRKOLA JULY 31, 1973 21:17.52 0 PROGRAM TO PRINT INFO ABOUT LOCATION, SIZE, NUMBER OF EXTENTS, TYPE, AND PERMIT STATUS OF FILES. CALLS GFINFO SUBROUTINE AND COPIES *GFINFODSECT (593). MAINTAINED FOR HISTORICAL REANSONS ONLY. USE $FILESTATUS INSTEAD. 00212/02 *FILESNIFF OE G *FILESNIFF D3T2 50 FILESNIFF..O.2 1 LINE 255 1 PAGE UM PIRKOLA JULY 31, 1973 21:17.59 00214 *CCPOST # (SEE COMP 615) UM 00217 *LIBTOFASTLIB S # (OBSOLETE) D2T1 289 UM 00220 *GOMAD S # (OBSOLETE) D2T1 293 UM 00221 **TP S # (OBSOLETE) D2T1 140 UM 00222 *CCP # (SEE COMP 615) UM 00223/01 SIOERR SUBR SA G SERR MTA:SIOERR(1,999) D3T2 51 SIOERR_SUBR..SA.1 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 21:18.00 0 FORTRAN INTERFACE TO SETIOERR. 00223/02 SIOERR SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00225/01 *SYSMAC SM G SYSM *SYSMAC D3.2T1 136 SYSMAC..SM.01 1 LINE 80 68 PAGE UM MTA MAR. 21, 1975 01:13:42 0 MTS SYSTEM MACRO LIBRARY FOR GENERAL USE. NOTE: SOME MACROS (E.G. DFAD ET AL) REFERENCE &S370. ALL OTHERS WILL WORK ON EITHER A 360 OR 370. 00225/02 *SYSMAC TEST PGM SA G TMAC MTA:TESTIOMAC UM MTA 0 TEST PROGRAM FOR MANY MACROS IN *SYSMAC. 00229/01 *TIDY SF S TIDY S0721 'D3T2' FSNAME=TIDY..SF.1 53 D3T2 53 TIDY..SF.1 1 SEQ 80 60 PAGE UM LIN JULY 31, 1973 21:20.10 0 WILL "TIDY" UP FORTRAN SOURCE FILES. UNCHANGED SINCE DIST 1. 00229/02 *TIDY OC S *TIDY D3T2 54 TIDY..O.2 1 LINE 80 29 PAGE UM LIN JULY 31, 1973 21:20.16 00231 *GRAPHLIB SA O GLIB S0721 'D3T2' FSNAME=GRAPHLIB..S. 55 D3T2 55 GRAPHLIB..S. 1 SEQ 80 211 PAGE UM PIRKOLA JULY 31, 1973 21:21.10 0 SUBROUTINE TO SUPPORT AN EXTENSION OF EXPRESS GRAPHICS ON A 2250 IN MTS. CALLED BY MACROS IN *GRAPHMAC (117). THIS IS AN ANCIENT VERSION AND HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 0 Referenced by comments of: 117/1, 141/1, 175/1, 179/1 00232 FCBEQU # (SEE COMP 482) UM 00233/01 PL1 LIBRARY MACLIB SM # (SEE COMP 163) UM TIFFANY 00233/02 PL1 LIBRARY SAMEQU SA # (SEE COMP 163) UM TIFFANY 00233/03 PL1 LIBRARY REPLACE SA # (SEE COMP 163) UM TIFFANY 00233/04 PL1 LIBRARY CKLIO SA # (SEE COMP 163) UM TIFFANY 00233/05 PL1 LIBRARY NONSENSE SA # (SEE COMP 163) UM TIFFANY 00233/06 PL1 LIBRARY FREEDDEF SA # (SEE COMP 163) UM TIFFANY 00233/07 PL1 LIBRARY FINDTIOT SA # (SEE COMP 163) UM TIFFANY 1 FRI AUG 02/96 19:04:25 Page 70 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/08 PL1 LIBRARY DDEF SA # (SEE COMP 163) UM TIFFANY 00233/09 PL1 LIBRARY OPEN SA # (SEE COMP 163) UM TIFFANY 00233/10 PL1 LIBRARY ROUT SA # (SEE COMP 163) UM TIFFANY 00233/11 PL1 LIBRARY CLOSE SA # (SEE COMP 163) UM TIFFANY 00233/12 PL1 LIBRARY QUIT SA # (SEE COMP 163) UM TIFFANY 00233/13 PL1 LIBRARY PL1MACLIB SM G PL1M S0410 MTSPL1 'PL1LIB' POSN=PL1MACLIB 13 D3T2 56 PL1_LIBRARY.PL1MACLIB.SM.13 1 SEQ 80 14 PAGE UM TIFFANY JULY 31, 1973 21:23.47 0 MACRO LIBRARY FOR PL/I LIBRARY ROUTINES. 00233/14 PL1 LIBRARY SNAP SA G SNAP S0410 MTSPL1 'PL1LIB' POSN=SNAP 14 D3T2 57 PL1_LIBRARY.SNAP.SA.14 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 21:23.49 0 EACH INSTALLATION MAY WANT TO GENERATE ITS OWN VERSION OF THIS BECAUSE OF FILE NAMES. 00233/15 PL1 LIBRARY CNTL SA G CNTL S0410 MTSPL1 'PL1LIB' POSN=CNTL 15 D3T2 58 PL1_LIBRARY.CNTL.SA.15 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 21:23.51 0 SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND MTS 'CONTROL' SUBROUTINE. 00233/16 PL1 LIBRARY RAND SA G RAND W062:RAND(1,999) D3T2 59 PL1_LIBRARY.RAND.SA.16 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:23.53 0 RANDOM NUMBER GENERATOR 00233/17 PL1 LIBRARY USERID SA G USER S0410 MTSPL1 'PL1LIB' POSN=USERID 17 D3T2 60 PL1_LIBRARY.USERID.SA.17 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:23.56 0 RUN TIME SUBR 00233/18 PL1 LIBRARY BATCH SA G BTCH S0410 MTSPL1 'PL1LIB' POSN=BATCH 18 D3T2 61 PL1_LIBRARY.BATCH.SA.18 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:23.58 0 RUN TIME SUBROUTINE TO CALL CANREPLY 00233/19 PL1 LIBRARY ELAPSED SA G ELPS S0410 MTSPL1 'PL1LIB' POSN=ELAPSED 19 D3T2 62 PL1_LIBRARY.ELAPSED.SA.19 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.00 0 RUN TIME SUBROUTINE 00233/20 PL1 LIBRARY CPUTIME SA G CPUT S0410 MTSPL1 'PL1LIB' POSN=CPUTIME 20 D3T2 63 PL1_LIBRARY.CPUTIME.SA.20 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.02 0 RUN TIME SUBROUTINE 1 FRI AUG 02/96 19:04:25 Page 71 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/21 PL1 LIBRARY UN-QSAM SA G ITBA S0410 MTSPL1 'PL1LIB' POSN=IHEITB 21 D3T2 64 PL1_LIBRARY.UN-QSAM.SA.21 1 SEQ 80 16 PAGE UM TIFFANY JULY 31, 1973 21:24.06 0 I/O ROUTINES FOR NON-STANDARD PL/I FILES -- IHEITB 00233/22 PL1 LIBRARY KEY SA G NKEY S0410 MTSPL1 'PL1LIB' POSN=NEXTKEY 22 D3T2 65 PL1_LIBRARY.KEY.SA.22 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 21:24.08 0 NEXTKEY AND LASTKEY 00233/23 PL1 LIBRARY ATTACH SA G ATCH S0410 MTSPL1 'PL1LIB' POSN=ATTACH 23 D3T2 66 PL1_LIBRARY.ATTACH.SA.23 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.10 0 PROGRAM TO CALL DDEF AT RUN TIME 00233/24 PL1 LIBRARY DISPLAY SA G DSPA S0410 MTSPL1 'PL1LIB' POSN=IHEDSP 24 D3T2 67 PL1_LIBRARY.DISPLAY.SA.24 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 21:24.12 0 REPLACEMENT FOR AN IBM SUBROUTINE. OUTPUT ON SERCOM, INPUT FROM GUSER. 00233/25 PL1 LIBRARY IHEMAIN SA G MAIN S0410 MTSPL1 'PL1LIB' POSN=IHEMAIN 25 D3T2 68 PL1_LIBRARY.IHEMAIN.SA.25 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.14 0 MAIN PROGRAM IF USER DOES NOT GIVE ONE 00233/26 PL1 LIBRARY IHEOST SA G OSTA S0410 MTSPL1 'PL1LIB' POSN=IHEOST 26 D3T2 69 PL1_LIBRARY.IHEOST.SA.26 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.17 0 GIVES TIME AND DATE. 00233/27 PL1 LIBRARY SIGNOFF SA G SIGN S0410 MTSPL1 'PL1LIB' POSN=SIGNOFF 27 D3T2 70 PL1_LIBRARY.SIGNOFF.SA.27 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.19 0 RUN TIME SUBR 00233/28 PL1 LIBRARY SYSERR SA G SERR S0410 MTSPL1 'PL1LIB' POSN=SYSERR 28 D3T2 71 PL1_LIBRARY.SYSERR.SA.28 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.21 0 SYSTEM AND ERROR 00233/29 PL1 LIBRARY IHELTT SA G LTTA S0410 MTSPL1 'PL1LIB' POSN=IHELTT 29 D3T2 72 PL1_LIBRARY.IHELTT.SA.29 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.24 0 TRANSFER VECTOR TABLE IN *PL1LIB. 00233/30 PL1 LIBRARY IHELTV SA G LTVA S0410 MTSPL1 'PL1LIB' POSN=IHELTV 30 D3T2 73 PL1_LIBRARY.IHELTV.SA.30 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.26 0 TRANSFER VECTOR TABLE IN SHAREDPL1LIB. 00233/31 PL1 LIBRARY IHESAP SA G SAPA S0410 MTSPL1 'PL1LIB' POSN=IHESAP 31 D3T2 74 PL1_LIBRARY.IHESAP.SA.31 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 21:24.29 0 PL/I PROGRAM INITIALIZER. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00233/32 PL1 LIBRARY FINFO SA G FINF S0410 MTSPL1 'PL1LIB' POSN=FINFO 32 D3T2 75 PL1_LIBRARY.FINFO.SA.32 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 21:24.31 0 ROUTINE TO GET INFORMATION FOR A PL/I FILE. COPIES SAMEQU (163/2). 00233/33 PL1 LIBRARY READ/WRITE SA G READ S0410 MTSPL1 'PL1LIB' POSN=IHEREAD 33 D3T2 76 PL1_LIBRARY.READ/WRITE.SA.33 1 SEQ 80 5 PAGE UM TIFFANY JULY 31, 1973 21:24.33 0 ROUTINES IHEREAD AND IHERITE. 00233/34 PL1 LIBRARY NOTE/POINT SA G PNTS S0410 MTSPL1 'PL1LIB' POSN=IHENOTE 34 D3T2 77 PL1_LIBRARY.NOTE/POINT.SA.34 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 21:24.35 0 SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND THE MTS SUBROUTINES 'NOTE' AND 'POINT'. 00233/35 PL1 LIBRARY UPDATE UI G S0410 MTSPL1 'PL1LIB' POSN=PL1LIB.UPDATE 35 D3T2 78 PL1_LIBRARY.UPDATE.UI.35 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 21:24.38 0 *IEBUPDAT INPUT TO PRODUCE CURRENT PL1 LIBRARY. UM RECEIVED ONLY PART OF THE NEW PL/I LIBRARY FROM IBM. 00233/36 PL1 LIBRARY 18.0 UPDATE UI S0410 MTSPL1 'PL1LIB' POSN=OLD.UPDATE 36 D3T2 79 PL1_LIBRARY.18.0_UPDATE.UI.36 1 SEQ 80 12 PAGE UM TIFFANY JULY 31, 1973 21:24.41 0 *IEBUPDAT INPUT TO PRODUCE OS RELEASE 18.0 PL1 LIBRARY. REQUIRES RELEASE 18.0 OS PL1 SOURCE. 00233/37 PL1 LIBRARY ENDPL1LIB OC G W062:ENDPL1LIB 40 D3T2 80 PL1_LIBRARY.ENDPL1LIB.OC.37 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.44 0 CONTAINS 5 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD). 00233/38 PL1 LIBRARY *PL1LIB OL G *PL1LIB D3T2 81 PL1_LIBRARY.*PL1LIB.O.38 1 SEQ 256 3 PAGE UM TIFFANY JULY 31, 1973 21:24.47 0 NON-REENTRANT PART OF RUN-TIME LIBRARY; THE REMAINDER IS IN SHAREDPL1LIB. 00233/39 PL1 LIBRARY SHAREDPL1LIB OE G SEG2:SHAREDPL1LIB D3.2T1 137 PL1_LIBRARY.SHAREDPL1LIB.OE.39 1 SEQ 256 60 PAGE UM TIFFANY MAR. 21, 1975 01:13:47 0 REENTRANT PART OF RUN-TIME LIBRARY; LOADED INTO SHARED VM AT IPL BY SEG 2 LOADER. CONTAINS IHEPRD WHICH IS SET UP CORRECTLY BY CRELCSPR (506/2). >>> NOTE: CONTAINS SEVERAL REP CARDS INCLUDING CHANGES NECESSARY FOR THE MTS @NOTIFY CHANGE. INSTALL THIS IF AND ONLY IF THE MTS @NOTIFY CHANGE IS ALSO INSTALLED. 00233/40 PL1 LIBRARY *LINEPL1LIB O # (OBSOLETE) UM 00233/41 PL1 LIBRARY *PL1LINKLIB O # (OBSOLETE) UM 1 FRI AUG 02/96 19:04:25 Page 73 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00234/01 8ASR MACLIB SM G MAC8 S0676 PDP-8 FSNAME=8ASRMAC 4 D3T2 83 8ASR.MACLIB.SM.1 1 LINE 80 15 PAGE UM JLD JUNE 29, 1973 21:30.56 0 MACRO LIBRARY FOR DEC ASSEMBLERS. 0 Referenced by comments of: 234/4, 234/6 00234/02 8ASR 8ASREQU SA G DEF8 S0676 PDP-8 FSNAME=8ASREQU 5 D3T2 84 8ASR.8ASREQU.SA.2 1 LINE 80 4 PAGE UM JLD JUNE 29, 1973 21:31.59 0 COPY SECTION. 0 Referenced by comments of: 234/4, 234/6 00234/03 8ASR 8ASRST SA G COP8 S0676 PDP-8 FSNAME=8ASRST 6 D3T2 85 8ASR.8ASRST.SA.3 1 LINE 80 6 PAGE UM JLD JUNE 29, 1973 21:32.23 0 COPY SECTION. 0 Referenced by comments of: 234/4, 234/6 00234/04 8ASR MAIN PROGRAM SA G ASR8 S0676 PDP-8 FSNAME=8ASRM 7 D3T2 86 8ASR.MAIN_PROGRAM.SA.4 1 LINE 80 42 PAGE UM JLD JUNE 29, 1973 21:33.03 0 MAIN PROGRAM FOR *8ASR, *9ASR, AND *1ASR. COPIES 8ASREQU (234/2) AND 8ASRST (234/3) AND REQUIRES MACLIB (234/1). 00234/05 8ASR MAIN PROGRAM OC G S0676 PDP-8 FSNAME=8ASRMOBJ 17 D3T2 87 8ASR.MAIN_PROGRAM.OC.5 1 LINE 80 4 DISK UM JLD JUNE 29, 1973 21:44.03 00234/06 8ASR SUBROUTINES SA G COM8 S0676 PDP-8 FSNAME=8ASRCOM 8 D3T2 88 8ASR.SUBROUTINES.SA.6 1 LINE 80 16 PAGE UM JLD JUNE 29, 1973 21:34.39 0 SUBROUTINES USED BY 234/4. COPIES 8ASREQU (234/2) AND 8ASRST (234/3) AND REQUIRES MACLIB (234/1). 00234/07 8ASR SUBROUTINES OC G S0676 PDP-8 FSNAME=8ASRCOMOBJ 18 D3T2 89 8ASR.SUBROUTINES.OC.7 1 LINE 80 2 DISK UM JLD JUNE 29, 1973 21:44.23 00234/08 8ASR PDP-8 OP TBLS SA G OPS8 S0676 PDP-8 FSNAME=8OPS 9 D3T2 90 8ASR.PDP-8_OP_TBLS.SA.8 1 LINE 80 8 PAGE UM JLD JUNE 29, 1973 21:35.56 0 ASSEMBLY TO DEFINE PDP-8 OPERATION CODES FOR *8ASR. 00234/09 8ASR PDP-8 OP TBLS OC G S0676 PDP-8 FSNAME=8OPSOBJ 19 D3T2 91 8ASR.PDP-8_OP_TBLS.OC.9 1 LINE 80 2 DISK UM JLD JUNE 29, 1973 21:44.52 00234/10 8ASR *8ASR OE G *8ASR D3T2 92 8ASR.*8ASR.OE.10 1 SEQ 8095 6 PAGE UM JLD JULY 31, 1973 21:26.46 0 OBJECT CONSISTING OF 234/5 + 234/7 + 234/9 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00234/11 8ASR PDP-9 OP TBLS SA G OPS9 S0676 PDP-8 FSNAME=9OPS 20 D3T2 93 8ASR.PDP-9_OP_TBLS.SA.11 1 LINE 80 7 PAGE UM JLD JUNE 29, 1973 21:45.09 0 ASSEMBLY TO DEFINE PDP-9 OPERATION CODES FOR *9ASR. 00234/12 8ASR PDP-9 OP TBLS OC G S0676 PDP-8 FSNAME=9OPSOBJ 21 D3T2 94 8ASR.PDP-9_OP_TBLS.OC.12 1 LINE 80 2 DISK UM JLD JUNE 29, 1973 21:45.44 00234/13 8ASR *9ASR OE G *9ASR D3T2 95 8ASR.*9ASR.OE.13 1 SEQ 8095 6 PAGE UM JLD JULY 31, 1973 21:26.53 0 OBJECT CONSISTING OF 234/5 + 234/7 +234/12 00234/14 8ASR PDP-1 OP TBLS SA G OPS1 S0676 PDP-8 FSNAME=1OPS 11 D3T2 96 8ASR.PDP-1_OP_TBLS.SA.14 1 LINE 80 9 PAGE UM JLD JUNE 29, 1973 21:37.18 0 ASSEMBLY TO DEFINE PDP-1 OPERATION CODES FOR *1ASR. 00234/15 8ASR PDP-1 OP TBLS OC G S0676 PDP-8 FSNAME=1OPSOBJ 22 D3T2 97 8ASR.PDP-1_OP_TBLS.OC.15 1 LINE 80 2 DISK UM JLD JUNE 29, 1973 21:46.03 00234/16 8ASR FRIDEN TR TBL SA TDEC S0676 PDP-8 FSNAME=TDEC 12 D3T2 98 8ASR.FRIDEN_TR_TBL.SA.16 1 LINE 80 5 PAGE UM JLD JUNE 29, 1973 21:37.53 0 ASSEMBLY TO DEFINE TRANSLATE TABLE FOR FRIDEN TERMINAL USED IN CONNECTION WITH *1ASR. 00234/17 8ASR FRIDEN TR TBL OC S0676 PDP-8 FSNAME=TDECOBJ 23 D3T2 99 8ASR.FRIDEN_TR_TBL.OC.17 1 LINE 80 2 DISK UM JLD JUNE 29, 1973 21:46.33 00234/18 8ASR *1ASR OE G *1ASR D3T2 100 8ASR.*1ASR.OE.18 1 SEQ 8095 6 PAGE UM JLD JULY 31, 1973 21:27.14 0 OBJECT CONSISTING OF 234/5 + 234/7 + 234/15 + 234/17 00234/19 8ASR OS INTERFACE SA BARF S0676 PDP-8 FSNAME=BIGOS 13 D3T2 101 8ASR.OS_INTERFACE.SA.19 1 LINE 80 8 PAGE UM JLD JUNE 29, 1973 21:38.49 0 SUBROUTINES TO PROVIDE MTS ENVIRONMENT FOR 8ASR IN OS/360. NOT COMPLETELY CHECKED OUT. OBJECT NOT DISTRIBUTED. ASSEMBLE WITH *OSMAC OR USE OS/360. 00234/20 8ASR LINK EDITOR SA G LNK8 S0676 PDP-8 FSNAME=8LINK 37 D3T2 102 8ASR.LINK_EDITOR.SA.20 1 LINE 80 75 PAGE UM JLD JUNE 29, 1973 21:41.06 0 PROGRAM TO LINK-EDIT RELOCATIBLE PDP-8 OBJECT TO PRODUCE LOADABLE FILE OR TAPE. COPIES PANEL (234/24). 00234/21 8ASR LINK EDITOR OC G S0676 PDP-8 FSNAME=8LINKOBJ 39 D3T2 103 8ASR.LINK_EDITOR.OC.21 1 LINE 80 5 DISK UM JLD JUNE 29, 1973 21:46.59 00234/22 8ASR PDP8 SIMULATOR SA G SIM8 S0676 PDP-8 FSNAME=8SIM 15 D3T2 104 8ASR.PDP8_SIMULATOR.SA.22 1 LINE 80 27 PAGE UM JLD JUNE 29, 1973 21:42.44 0 PDP-8 SIMULATOR SECTION OF *8LINK. COPIES PANEL (234/24). 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00234/23 8ASR PDP8 SIMULATOR OC G S0676 PDP-8 FSNAME=8SIMOBJ 25 D3T2 105 8ASR.PDP8_SIMULATOR.OC.23 1 LINE 80 2 DISK UM JLD JUNE 29, 1973 21:47.24 00234/24 8ASR PANEL SA G PANL S0676 PDP-8 FSNAME=8PANEL 16 D3T2 106 8ASR.PANEL.SA.24 1 LINE 80 3 PAGE UM JLD JUNE 29, 1973 21:43.27 0 COPY SECTION. 0 Referenced by comments of: 234/20, 234/22 00234/25 8ASR *8LINK OE G *8LINK D3T2 107 8ASR.*8LINK.OE.25 1 SEQ 7776 5 PAGE UM JLD JULY 31, 1973 21:28.37 0 LINK EDIT OF 234/21 + 234/23. 00234/26 8ASR *8LINK WRITEUP WF S0721 'D3T2' FSNAME=8ASR.*8LINK_WRITEUP.WF.26 108 D3T2 108 8ASR.*8LINK_WRITEUP.WF.26 1 LINE 110 8 DISK UM JLD MAR. 15, 1973 17:02.58 0 THIS IS COMPUTING CENTER MEMO M133 -- "*8LINK" 00234/27 8ASR *8ASR WRITEUP WF S0721 'D3T2' FSNAME=8ASR.*8ASR_WRITEUP.WF.27 109 D3T2 109 8ASR.*8ASR_WRITEUP.WF.27 1 LINE 153 13 DISK UM JLD MAR. 16, 1973 21:15.47 0 THIS IS COMPUTING CENTER MEMO M165 -- "*8ASR, PDP-8 ASSEMBLER" 00234/28 8ASR *8LINK/*8ASR WF S0721 'D3T2' FSNAME=8ASR.*8LINK/*8ASR.WF.28 110 D3T2 110 8ASR.*8LINK/*8ASR.WF.28 1 LINE 108 2 DISK UM JLD MAR. 16, 1973 16:01.45 0 THIS IS COMPUTING CENTER MEMO M220 -- "CHANGES TO *8LINK AND *8ASR" 00234/29 8ASR TAPE-CARD UTIL SA # (OBSOLETE) D2T2 108 UM 00234/30 8ASR 8ASR-PAL CNVRT SA # (OBSOLETE) D2T2 109 UM 00235 *9ASR # (SEE COMP 234) UM 00238 *2250PLOT SA O P225 S0721 'D3T2' FSNAME=2250PLOT..SA. 111 D3T2 111 2250PLOT..SA. 1 SEQ 80 4 PAGE UM PIRKOLA JULY 31, 1973 21:29.07 0 PROGRAM TO PLOT ON A 2250 DISPLAY. HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 00239 *8LINK # (SEE COMP 234) UM 00241 *TRACK SA O *TRK S0721 'D3T2' FSNAME=TRACK..SA. 112 D3T2 112 TRACK..SA. 1 SEQ 80 8 PAGE UM PIRKOLA JULY 31, 1973 21:29.51 0 EXPERIMENTAL PROGRAM TO DO LIGHT PEN TRACKING ON A MOD 3 2250. HASN'T BEEN TRIED IN YEARS, PROBABLY WON'T WORK ANYMORE. OBJECT NOT DISTRIBUTED. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00243/01 BINEBCD SA G BBCD MTA:BINEBCD(1,999) D3T2 113 BINEBCD..SA.1 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 21:29.54 0 SUBROUTINE TO CONVERT AN EBCDIC CARD WHICH WAS READ IN COLUMN BINARY BACK TO EBCDIC. CALLED BY *2501RTN (086) AND BY HASP (387). THIS VERSION DOES NO ERROR CHECKING. 0 Referenced by comments of: 86/1 00243/02 BINEBCD OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00243/03 BINEBCD SA G BBCD MTA:BINEBCD(2000) D3T2 114 BINEBCD..SA.3 1 LINE 80 4 PAGE UM MTA JULY 31, 1973 21:29.56 0 SAME SUBROUTINE, BUT WITH ERROR CHECKING. OBJECT NOT DISTRIBUTED. 00244/01 **CT S # (OBSOLETE) D2T1 138 UM 00244/02 **CT TAPE SUBR S # (OBSOLETE) D2T1 139 UM 00245 DESTROY # (SEE COMP 502) UM 00246 *8EDIT SF # (OBSOLETE) UM 00247 *SPEAK D # (SEE COMP 084) UM 00249/01 *COPY SA O COPY W045:NEWFILECOPY D3T2 115 COPY..SA.1 1 LINE 80 4 PAGE UM PIRKOLA JULY 31, 1973 21:29.58 0 PROGRAM TO COPY A FILE FROM ANOTHER USER. IT IS MAINTAINED ONLY FOR HISTORICAL REASONS (SOME USER'S NEVER GIVE UP) AND SHOULD NOT BE USED. TRY $COPY, YOU'LL LIKE IT. 00249/02 *COPY OE O *COPY D3T2 116 COPY..O.2 1 LINE 255 1 PAGE UM PIRKOLA JULY 31, 1973 21:30.02 00251/01 *IEBUPDAT SA O S0721 'D3T2' FSNAME=IEBUPDAT..SA.1 117 D3T2 117 IEBUPDAT..SA.1 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 21:31.45 0 A PROGRAM TO COPY TAPES CONTAINING CARD IMAGES CONFORMING TO THE IBM IEBUPDAT OR IEBUPDTE PROGRAMS. THIS PROGRAM WILL MAKE INSERTIONS AND DELETIONS. 00251/02 *IEBUPDAT OC O *IEBUPDAT D3T2 118 IEBUPDAT..OC.2 1 LINE 80 5 PAGE UM TIFFANY JULY 31, 1973 21:31.46 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00253 LINE DIRECTORY SORT SA # (OBSOLETED BY COMP 546) D2T1 121 UM 00254/01 BSLOAD D3.1 MASTER SA G BSLD S0780 'D3.1T1' FSNAME=BSLOAD..SA.1 192 D3.1T1 192 BSLOAD..SA.1 1 LINE 80 26 PAGE UM DE JONG MAR. 06, 1974 03:34.57 0 ABSOLUTE LOADER THAT LOADS UMLOAD (001) TO LOAD THE SYSTEM FROM CARDS OR TAPE. ONCE THE SYSTEM HAS BEEN LOADED FROM CARDS OR TAPE, A SELF-LOADING DISK RECORD IS WRITTEN ON MTS001 (SEE COMP 156 AND 157). 0 Referenced by comments of: 254/2 00254/02 BSLOAD UU G W009:BSLDNEW.U D3.2T1 138 BSLOAD..UU.02 1 LINE 71 4 PAGE UM DE JONG MAR. 21, 1975 01:13:53 0 UPDATE TO D3.1 MASTER (254/1) TO PRODUCE CURRENT SOURCE. 00254/03 BSLOAD OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DE JONG 00255 UIDFIND S # (OBSOLETE) UM 00256/01 STATISTICS COMBINE *CMB C *CMB D3T2 120 STATISTICS_COMBINE.*CMB.C.1 1 LINE 29 1 PAGE UM WSG JULY 31, 1973 21:31.54 0 COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2). INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 326/1 00256/02 STATISTICS COMBINE COMBINE PGM SA G CMB0 WSG:CMB(1,999) D3T2 121 STATISTICS_COMBINE.COMBINE.SA.2 1 LINE 80 5 PAGE UM WSG JULY 31, 1973 21:31.55 0 PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/2). PROGRAM WILL ASK FOR TAPE DRIVE WHERE OUTPUT TAPE IS MOUNTED, THEN ASK FOR INPUT TAPE DRIVE NAMES. COMBINE PROCESS IS ENDED BY ENTERING "DONE" FOR AN INPUT DRIVE NAME. THIS PROGRAM PRODUCES TAPES WHICH ARE BLOCKED IN A RATHER NON-STANDARD MANNER. HOWEVER, ALL SYSTEM PROGRAMS WHICH READ *STATISTICS DATA, ARE ABLE TO DEBLOCK THESE TAPES. 0 Referenced by comments of: 256/1 00256/03 STATISTICS COMBINE COMBINE PGM OC G SYS:CMB D3T2 122 STATISTICS_COMBINE.COMBINE.OC.3 1 LINE 80 2 PAGE UM WSG JULY 31, 1973 21:31.57 00257 *MOMS OC S0721 'D3T2' FSNAME=MOMS..OC. 123 D3T2 123 MOMS..OC. 1 LINE 255 12 DISK UM GALLER FEB. 22, 1973 17:18.51 0 2250 MATHEMATICAL ANALYSIS PROGRAM. SOURCE NOT DISTRIBUTED, BUT WE MIGHT BE ABLE TO FIND IT ON REQUEST. OBJECT HAS MANY REP CARDS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00258/01 RECEIPT CARDS *RCP C *RCP D3T2 124 RECEIPT_CARDS.*RCP.C.1 1 LINE 29 1 PAGE UM EMERY JULY 31, 1973 21:32.11 0 COMMAND FILE TO RUN BATCH RECEIPT (S-8) CARD GENERATOR PROGRAM (258/3). INVOKED BY ENTERING "MTS *RCP" FROM OPERATORS CONSOLE. 00258/02 RECEIPT CARDS RECEIPT PGM SA RECP W032:RCP D3T2 125 RECEIPT_CARDS.RECEIPT_PGM.SA.2 1 LINE 80 5 PAGE UM EMERY JULY 31, 1973 21:32.12 0 PROGRAM TO GENERATE MTS BATCH RECEIPT CARDS. 00258/03 RECEIPT CARDS RECEIPT PGM OC SYS:RCP D3T2 126 RECEIPT_CARDS.RECEIPT_PGM.OC.3 1 LINE 80 2 PAGE UM EMERY JULY 31, 1973 21:32.15 0 Referenced by comments of: 258/1 00259 *LIST SA # (OBSOLETE) D2T1 332 UM 00260/01 SSP *SSP OC G *SSP D3T2 127 SSP.*SSP.O.1 1 LINE 32 1 PAGE UM HARDING JULY 31, 1973 21:32.18 0 IBM'S SCIENTIFIC SUBROUTINE PACKAGE AS DESCRIBED IN FORM H20-0205-3. THE CHANGES DESCRIBED IN TNL N20-1944 HAVE NOT YET BEEN MADE. FOR CONSISTENT DOCUMENTATION, THIS TNL SHOULD NOT BE INSTALLED IN THE SSP MANUAL (H20-0205-3). NO FUTURE CHANGES WILL BE MADE TO THIS COMPONENT. SOURCE FOR SSP IS NOT NORMALLY DISTRIBUTED, BUT IS AVAILABLE ON REQUEST. THE FILE *SSP CONTAINS ONE LINE WHICH IS "$CONTINUE WITH *SSPSTAT+*SSPMATH". 00260/02 SSP *SSPSTAT OL G *SSPSTAT D3T2 128 SSP.*SSPSTAT.OL.2 1 LINE 255 30 PAGE UM HARDING JULY 31, 1973 21:32.20 00260/03 SSP *SSPMATH OL G *SSPMATH D3T2 129 SSP.*SSPMATH.OL.3 1 LINE 255 129 PAGE UM HARDING JULY 31, 1973 21:32.27 00261/01 *SLIP PRIMITIVES SA G PRIM W081:SLIPPRIM.S D3.1T1 193 SLIP.PRIMITIVES.SA.1 1 LINE 80 11 PAGE UM GOODRICH MAR. 06, 1974 03:35.01 0 FORTRAN CALLABLE LIST PROCESSING PACKAGE. NEW VERSION FOR DISTRIBUTION 3.1. 00261/02 *SLIP LIBRARY SF G W081:SLIPLIB.S D3.1T1 194 SLIP.LIBRARY.SF.2 1 LINE 104 26 PAGE UM GOODRICH MAR. 06, 1974 03:35.04 00261/03 *SLIP *SLIP OL G *SLIP D3.1T1 195 SLIP.*SLIP.OL.3 1 SEQ 254 38 PAGE UM GOODRICH MAR. 06, 1974 03:35.15 00261/04 *SLIP *SLIPDEC SF G SDEC *SLIPDEC D3.1T1 196 SLIP.*SLIPDEC.SF.4 1 LINE 80 3 PAGE UM GOODRICH MAR. 06, 1974 03:35.20 0 THIS IS A SET OF FORTRAN DECLARATIONS FOR ALL SLIP FUNCTIONS. FOR USE BY USERS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00261/05 *SLIP WRITEUP WF = W098:SLIPGUIDE D3T2 132 SLIP.WRITEUP.WF.3 1 LINE 115 3 DISK UM GOODRICH MAR. 15, 1973 18:35.38 0 THIS IS COMPUTING CENTER MEMO M273 -- "SLIP IN MTS ??????????????" ****** NOT RELEASED YET *********** 00262 *PLOTSYS # (SEE COMP 615) UM 00265 *1 SM *1 D3T2 133 1..SM. 1 LINE 80 30 PAGE UM SALISBURY JULY 31, 1973 21:33.27 0 MACRO LIBRARY FOR LIST PROCESSING IN ASSEMBLY LANGUAGE. SIMILAR TO L6. 00267/01 *DOWNDATE SA O DNDT WATF:DOWNDATE(1,999) D3T2 134 DOWNDATE..SA.1 1 LINE 80 7 PAGE UM MTA JULY 31, 1973 21:33.36 0 THE INVERSE OF *UPDATE. WILL PRODUCE AN UPDATE DECK FROM TWO SOURCE TAPES. CALLS SCANPAR SUBROUTINE (267/3). 0 Referenced by comments of: 267/3 00267/02 *DOWNDATE OC O *DOWNDATE D3T2 135 DOWNDATE..OC.2 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 21:33.38 00267/03 *DOWNDATE SCANPAR SA SCNP WATF:SCANPAR(1,999) UM MTA 0 SUBROUTINE CALLED BY DOWNDATE (267/1) AND UNEDIT (561/1) TO SCAN PARAMETERS. 0 Referenced by comments of: 267/1, 561/1 00267/04 *DOWNDATE SCANPAR OC WATF:SCANPAR(1000) UM MTA 00268 @TESTITP S # (OBSOLETE) D2T1 421 UM 00270 DISMOUNT SUBR SA # (SEE COMP 102) D2T1 426 UM 00271 MOUNT SUBR SA # (SEE COMP 101) D2T1 427 UM 00273/01 FPC SA G FPC0 WSG:FPC D3T2 136 FPC..SA.1 1 LINE 80 6 PAGE UM WSG JULY 31, 1973 21:33.40 0 SUBROUTINES E7090, D7090, E7090P, D7090P TO CONVERT IBM 7090 SERIES FLOATING POINT NUMBERS TO SYSTEM/360 LONG AND SHORT FORM. 00273/02 FPC OC G # *LIBRARY (SEE COMP 524) UM WSG 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00274 GLINT S # (NOT DISTRIBUTED) D2T1 395 UM HARDING 0 GAUSS-LEGENDRE INTEGRATION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00275/01 IHCLOGIC SUBR SA G IHCL S0721 'D3T2' FSNAME=IHCLOGIC_SUBR..SA.1 137 D3T2 137 IHCLOGIC_SUBR..SA.1 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 21:34.32 0 SUBROUTINES AND, LAND, OR, LOR, XOR, LXOR, COMPL, LCOMPL, SHFTL, AND SHFTR USED FOR LOGICAL OPERATIONS IN FORTRAN. UNCHANGED SINCE DIST 1. 00275/02 IHCLOGIC SUBR OC G # *LIBRARY (SEE COMP 524) UM TIFFANY 00278/01 IOH SA G IOH0 W016:IOH D3.2T1 139 IOH..SA.01 1 LINE 80 157 PAGE UM LEADER MAR. 21, 1975 01:13:56 0 I/O CONVERSION PACKAGE. ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 400/1, 569/1 00278/02 IOH OC G W016:IOH370 D3.2T1 140 IOH..OC.02 1 LINE 80 16 PAGE UM LEADER MAR. 21, 1975 01:14:40 00278/03 IOH IOPKG SA G W016:IOHPKG.NEW D3.2T1 141 IOH.IOPKG.SA.03 1 LINE 80 14 PAGE UM LEADER MAR. 21, 1975 01:14:42 00278/04 IOH IOPKG OC G W016:IOHPKG.NEWO D3.2T1 142 IOH.IOPKG.OC.04 1 LINE 80 3 PAGE UM LEADER MAR. 21, 1975 01:14:44 00278/05 IOH TEST PGM SA G IOHT MTA:TESTIOH.S D3.2T1 143 IOH.TEST_PGM.SA.05 1 LINE 80 10 PAGE UM MTA MAR. 21, 1975 01:14:46 0 PROGRAM TO TEST IOH. 00278/06 IOH TEST PGM OC G MTA:TESTIOH.O D3.2T1 144 IOH.TEST_PGM.OC.06 1 LINE 80 13 PAGE UM MTA MAR. 21, 1975 01:14:53 00278/07 IOH IOHDBLIN SA = ????? UM LEADER 00278/08 IOH IOHDBLIN OC = ETC:IOHDBLIN UM LEADER 00278/09 IOH IOHDBLOUT SA = ??????? UM LEADER 00278/10 IOH IOHDBLOUT OC = ETC:IOHDBLOUT UM LEADER 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00278/11 IOH IOHEVAL SA = ????????? UM LEADER 00278/12 IOH IOHEVAL OC = ETC:IOHEVAL UM LEADER 00279 LINPG SUBR S # (NOT DISTRIBUTED) D2T1 396 UM HARDING 0 SOLVE LINEAR PROGRAMMING PROBLEMS. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00282/01 PRINTER PLOT SUBR SA G W030:PRPLOT D3.2T1 145 PRINTER_PLOT_SUBR..SA.01 1 LINE 69 21 PAGE UM LIFT MAR. 21, 1975 01:14:55 0 PRINTER PLOT HAS BEEN REWRITTEN IN ORDER TO FIX SOME BUGS. COPIES "PLOTDS" (282/2). ASSEMBLE WITH PAR=B. 0 Referenced by comments of: 133/1 00282/02 PRINTER PLOT SUBR COPY SECTION SA G W030:PLOTDS D3.2T1 146 PRINTER_PLOT_SUBR.COPY_SEC.SA.02 1 LINE 69 3 PAGE UM LIFT MAR. 21, 1975 01:15:06 0 "PLOTDS" COPY SECTION COPIED BY 282/1. 0 Referenced by comments of: 282/1 00282/03 PRINTER PLOT SUBR OC G # *LIBRARY (SEE COMP 524) UM LIFT 00283/01 QSAM SA G QSAM MTA:QSAM(1,999) D3T2 140 QSAM..SA.1 1 LINE 80 19 PAGE UM MTA JULY 31, 1973 21:35.33 0 LIBRARY SUBROUTINES TO PERFORM FIXED BLOCKING (FORMAT FB) ON FILES, TAPES, ETC. ENTRY POINTS: QGETUCB (QGTUCB), QOPEN, QGET, QPUT, QCLOSE, QCNTRL, AND QFREEUCB (QFRUCB). 0 Referenced by comments of: 137/1 00283/02 QSAM OC G # *LIBRARY (SEE COMP 524) UM MTA 00285/01 SKIP SA G SKIP WSG:SKIP(1,999) D3T2 141 SKIP..SA.1 1 LINE 80 5 PAGE UM WSG JULY 31, 1973 21:35.40 0 SUBR TO SPACE A FILE OR MAG TAPE FORWARD OR BACKWARD BY RECORDS AND/OR FILES. 00285/02 SKIP OC G # *LIBRARY (SEE COMP 524) UM WSG 00286/01 MATH SUBRS SLE S # (NOT DISTRIBUTED) D2T1 389 UM HARDING 0 SIMULTANEOUS LINEAR EQUATIONS LIBRARY SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00286/02 MATH SUBRS INV S # (NOT DISTRIBUTED) D2T1 390 UM HARDING 0 MATRIX INVERSION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00286/03 MATH SUBRS INV1 S # (NOT DISTRIBUTED) D2T1 391 UM HARDING 0 MATRIX INVERSION SUBR WHICH ASSUMES PREVIOUS CALL ON LRD (286/4). APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00286/04 MATH SUBRS LRD S # (NOT DISTRIBUTED) D2T1 392 UM HARDING 0 MATRIX DECOMPOSITION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 0 Referenced by comments of: 286/3 00286/05 MATH SUBRS DBS S # (NOT DISTRIBUTED) D2T1 393 UM HARDING 0 DOUBLE BACK SUBSTITUTION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00286/06 MATH SUBRS DBST S # (NOT DISTRIBUTED) D2T1 394 UM HARDING 0 DOUBLE BACK SUBSTITUTION SUBR FOR TRANSFORMED SYSTEM. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00287/01 SPIE SUBR SA G SPIE MTA:SPIE(1,999) D3T2 142 SPIE_SUBR..SA.1 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 21:35.41 0 SUBROUTINE TO INTERFACE OS/360 'SPIE' MACRO WITH MTS 'PGNTTRP' SUBROUTINE. 00287/02 SPIE SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00289 LOADCALL S # (OBSOLETE) UM 00291/01 *IEHMOVE SA G IEH0 W062:IEHMOVE.S D3T2 143 IEHMOVE..SA.1 1 SEQ 80 16 PAGE UM TIFFANY JULY 31, 1973 21:35.54 0 PROGRAM TO READ UNLOADED OS/360 DATA SETS IN MTS. SEE ALSO *UNLINKER (562). PROGRAM CHANGED FOR STANDARDIZATION. NOTE: THE BLKRTN SUBROUTINE TO EXTRACT INFORMATION FROM IEHMOVE TAPES IS PART OF THIS FILE. 00291/02 *IEHMOVE OC G *IEHMOVE D3T2 147 IEHMOVE..OC.5 1 LINE 80 7 PAGE UM TIFFANY JULY 31, 1973 21:36.05 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00291/03 *IEHMOVE VS/2 BLKRTN SA G BLKR MTA:IEBCOPY.BLK(1,999) D3.2T1 147 IEHMOVE.VS/2_BLKRTN.SA.03 1 LINE 80 14 PAGE UM MTA MAR. 21, 1975 01:15:08 0 SPECIAL VERSION OF BLKRTN SUBROUTINE USED BY *IEHMOVE AND *UNLINKER (562) WHICH READS VS/2 IEBCOPY UNLOADED DATA SETS. THIS SUBROUTINE READS A LIST OF MEMBERS TO PROCESS FROM UNIT 19 IF IT IS ASSIGNED. 00291/04 *IEHMOVE VS/2 BLKRTN OC G MTA:IEBCOPY.BLK(1000) D3.2T1 148 IEHMOVE.VS/2_BLKRTN.OC.04 1 LINE 80 9 PAGE UM MTA MAR. 21, 1975 01:15:12 00292 *CPCORE # (SEE COMP 615) UM 00293/01 *MACGEN SA G MACG = WATF:MACGEN(1,999) D3T2 148 MACGEN..SA.1 1 LINE 80 3 PAGE UM ??? JULY 31, 1973 21:36.07 0 GENERATE THE DIRECTORY FOR A MACRO LIBRARY. ASSEMBLE WITH *SYSMAC. 00293/02 *MACGEN OC G = *MACGEN D3T2 149 MACGEN..OC.2 1 LINE 255 1 PAGE UM ??? JULY 31, 1973 21:36.08 00295 *PL360LIB # (SEE COMP 108) UM 00296 CHECKDASD SA # OBSOLETE D2T1 119 UM 00297/01 *LINKEDIT LKEDCMD SP G W052:LINK.CMD.S D3.1T1 201 LINKEDIT.LKEDCMD.SP.1 1 LINE 98 19 PAGE UM DE JONG MAR. 06, 1974 03:36.22 0 MTS LINKAGE EDITOR REQUIRES COPY SECTION LINK.COM (297/6). 00297/02 *LINKEDIT INCLUDE SP G W052:LINK.INCL.S D3.1T1 202 LINKEDIT.INCLUDE.SP.2 1 LINE 100 15 PAGE UM DE JONG MAR. 06, 1974 03:36.38 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. 00297/03 *LINKEDIT PUNCH SP G W052:LINK.PUNCH.S D3.1T1 203 LINKEDIT.PUNCH.SP.3 1 LINE 100 6 PAGE UM DE JONG MAR. 06, 1974 03:36.42 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. 00297/04 *LINKEDIT COMBINE SP G W052:LINK.COMB.S D3.1T1 204 LINKEDIT.COMBINE.SP.4 1 LINE 99 9 PAGE UM DE JONG MAR. 06, 1974 03:36.44 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. 00297/05 *LINKEDIT SUBR SP G W052:LINK.SUBR.S D3.1T1 205 LINKEDIT.SUBR.SP.5 1 LINE 91 3 PAGE UM DE JONG MAR. 06, 1974 03:36.47 0 CONTAINS "$CONTINUE WITH W052:LINK.COM" (297/6) RECORDS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00297/06 *LINKEDIT LINK.COM SP G W052:LINK.COM D3.1T1 206 LINKEDIT.LINK.COM.SP.6 1 LINE 100 5 PAGE UM DE JONG MAR. 06, 1974 03:36.49 0 COPY SECTION REQUIRED TO COMPILE THE INDIVUAL ROUTINES. 0 Referenced by comments of: 297/1, 297/2, 297/3, 297/4, 297/5, 297/8, 297/9, 297/10 00297/07 *LINKEDIT ASMSUBR SA G W052:LINK.ALIB.S D3.1T1 207 LINKEDIT.ASMSUBR.SA.7 1 LINE 72 2 PAGE UM DE JONG MAR. 06, 1974 03:36.51 0 ASMG SUBROUTINES. 00297/08 *LINKEDIT DUMP SP G W052:LINK.DUMP.S D3.1T1 208 LINKEDIT.DUMP.SP.8 1 LINE 91 4 PAGE UM DE JONG MAR. 06, 1974 03:36.53 0 SUBROUTINE TO PRODUCE ERROR DUMPS. CONTAINS "$CONTINUE WITH LINK.COM" (297/6) 00297/09 *LINKEDIT UTIL SP G W052:LINK.UTIL.S UM DE JONG 0 MISCELLANEOUS UTILITY SUBROUTINES. CONTAINS "$CONTINUE WITH LINK.COM" (297/6) 00297/10 *LINKEDIT UNLK SP G W052:LINK.UNLK.S UM DE JONG 0 SUBROUTINE TO UNLINK MULTIPLE-CSECT MODULES. CONTAINS "$CONTINUE WITH LINK.COM" (297/6) 00297/11 *LINKEDIT OBJECT OE G *LINKEDIT D3.1T1 209 LINKEDIT.OBJECT.OE.9 1 SEQ 32767 39 PAGE UM DE JONG MAR. 06, 1974 03:36.55 0 THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT. 00298/01 *FORTRANH COMPILER SA S0579 SAVE 'JWS-SAVE' FSNAME=FSDSOURCE D3.2T1 149 FORTRANH.COMPILER.SA.01 1 LINE 80 77 PAGE UM JWS MAR. 15, 1975 17:54:28 0 THIS COMPONENT IS THE SOURCE FOR ALL MODULES WHICH HAVE BEEN CHANGED FROM THE OS VERSION. IT HAS BEEN MODIFIED TO USE ESSENTIALLY THE SAME CALLING SEQUENCES AS IEYFORT (*FORTRANG) AND CAN BE CALLED BY *FTN (551) OR RUN DIRECTLY. 0 Referenced by comments of: 551/1 00298/02 *FORTRANH COMPILER OC S0579 SAVE 'JWS-SAVE' FSNAME=FSDOBJ D3.2T1 150 FORTRANH.COMPILER.OC.02 1 LINE 80 9 PAGE UM JWS MAR. 15, 1975 18:02:38 0 THIS OBJECT CORRESPONDS TO THE SOURCE IN 298/1 AND, AS SUCH, MUST BE COMBINED WITH 298/3 TO PRODUCE THE CURRENT FORTRAN H COMPILER, *FORTRANH (298/4). 00298/03 *FORTRANH OS OBJECT OE O S0721 'D3T2' FSNAME=FORTRANH.OS_OBJECT.O.4 163 D3T2 163 FORTRANH.OS_OBJECT.O.4 1 SEQ 1024 63 DISK UM JWS JUNE 23, 1972 12:54.06 0 OBJECT MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS. NO PTF'S ARE 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 0 INCLUDED IN THIS FILE. 00298/04 *FORTRANH *FORTRANH OC S0579 SAVE 'JWS - SAVE' FSNAME=FORTRANH D3.2T1 151 FORTRANH.*FORTRANH.OC.04 1 SEQ 22004 113 PAGE UM JWS MAR. 15, 1975 18:03:44 0 COMPLETE, UN-LINKEDITED FORTRANH COMPILER. 0 Referenced by comments of: 298/2 00299 *LOVOC S # (OBSOLETE) D2T2 205 UM 00300 *LODEF S # (OBSOLETE) D2T2 206 UM 00302/01 *SSPSOURCE SF G SSPS S0190 LJH.FS FSNAME=SNATCH.SSP D3T2 167 SSPSOURCE..SF.1 1 LINE 80 5 PAGE UM HARDING FEB. 17, 1972 13:31.13 0 PROGRAM TO RETRIEVE SSP SOURCE FOR USERS. EXPECTS THE IBM SSP DISTRIBUTION TAPE (2 SOURCE FILES AND 15 EXAMPLE FILES) AS INPUT. 00302/02 *SSPSOURCE OC G *SSPSOURCE D3T2 168 SSPSOURCE..O.2 1 SEQ 3334 2 PAGE UM HARDING JULY 31, 1973 22:37.40 00303/01 SORT *SORT SA G SORT S0027 DISTRB FSNAME=SORT D3.2T1 152 SORT.*SORT.SA.01 1 LINE 80 60 PAGE UM ENGLE MAR. 11, 1975 16:05:50 0 GENERAL SORT PROGRAM. COPIES *CNFGINFODSECT (654). ASSEMBLE AS FOLLOWS FOR THE TWO VERSIONS: &SUB SETB 0 FOR *SORT VERSION (303/2) &SUB SETB 1 FOR SORT SUBROUTINE VERSION (303/3) 00303/02 SORT *SORT OC G S0027 DISTRB FSNAME=SRT D3.2T1 153 SORT.*SORT.OC.02 1 LINE 80 7 PAGE UM ENGLE MAR. 11, 1975 16:06:03 0 Referenced by comments of: 303/1 00303/03 SORT SORT SUBR OC G S0027 DISTRB FSNAME=SRT1 D3.2T1 154 SORT.SORT_SUBR.OC.03 1 LINE 80 7 PAGE UM ENGLE MAR. 11, 1975 16:06:13 0 Referenced by comments of: 303/1 00303/04 SORT SORT2/3 SUBRS SA G SRT2 S0027 DISTRB FSNAME=SORT2 D3.2T1 155 SORT.SORT2/3_SUBRS.SA.04 1 LINE 80 24 PAGE UM ENGLE MAR. 11, 1975 16:06:57 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. COPIES *CNFGINFODSECT (654). 00303/05 SORT SORT2/3 SUBRS OC G S0027 DISTRB FSNAME=SRT2 D3.2T1 156 SORT.SORT2/3_SUBRS.OC.05 1 LINE 80 4 PAGE UM ENGLE MAR. 11, 1975 16:07:07 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00303/06 SORT MESSAGE SA G MSG S0027 DISTRB FSNAME=MESSAGE D3.2T1 157 SORT.MESSAGE.SA.06 1 LINE 80 3 PAGE UM ENGLE DEC. 05, 1974 13:28.10 0 MODULE TO PRINT SORT ERROR MESSAGES (303/8). ASSEMBLE WITH SORTMAC (303/13). 0 Referenced by comments of: 303/12 00303/07 SORT MESSAGE OE G S0027 DISTRB FSNAME=MSG D3.2T1 158 SORT.MESSAGE.OE.07 1 LINE 255 1 PAGE UM ENGLE DEC. 05, 1974 13:29.43 00303/08 SORT MESSAGES M S0027 DISTRB FSNAME=SORTMESSAGES D3.2T1 159 SORT.MESSAGES.M.08 1 LINE 81 2 PAGE UM ENGLE MAR. 11, 1975 16:11:30 0 SORT ERROR MESSAGES. NOTE: LINE NUMBERS ARE IMPORTANT IN THIS FILE. 0 Referenced by comments of: 303/6, 303/12 00303/09 SORT CHECK SA G CHK0 S0027 DISTRB FSNAME=CHECK D3.2T1 160 SORT.CHECK.SA.09 1 LINE 80 7 PAGE UM ENGLE MAR. 11, 1975 16:18:24 0 MODULE TO IMPLEMENT THE SORT "CHK" PARAMETER. 0 Referenced by comments of: 303/12 00303/10 SORT CHECK OE G S0027 DISTRB FSNAME=CHK D3.2T1 161 SORT.CHECK.OE.10 1 LINE 255 1 PAGE UM ENGLE MAR. 11, 1975 16:18:37 00303/11 SORT DOC WT G S0027 DISTRB FSNAME=SORTWRITEUP D3.2T1 162 SORT.DOC.WT.11 1 SEQ 80 47 PAGE UM ENGLE MAR. 11, 1975 16:20:57 00303/12 SORT *SORTLM G S0027 DISTRB FSNAME=*SORTLM D3.2T1 163 SORT.*SORTLM..12 1 LINE 255 3 PAGE UM ENGLE MAR. 11, 1975 16:21:34 0 FILE CONTAINING ERROR MESSAGE PROGRAM (303/6), MESSAGES (303/8), AND CHECK ROUTINE (303/9). NOTE: LINE NUMBERS ARE IMPORTANT IN THIS FILE. 00303/13 SORT SORTMAC SM G S0027 DISTRB FSNAME=SORTMAC D3.2T1 164 SORT.SORTMAC.SM.13 1 LINE 66 3 PAGE UM ENGLE DEC. 05, 1974 13:39.47 0 MACROS USED IN ASSEMBLING COMPONENTS OF SORT. IN THE FUTURE, WE HOPE TO ELIMINATE THIS COMPONENT. 0 Referenced by comments of: 303/6 00303/14 SORT SRTTMTST SA G SRTT S0027 DISTRB FSNAME=SRTTMTST D3.2T1 165 SORT.SRTTMTST.SA.14 1 LINE 80 3 PAGE UM ENGLE MAR. 11, 1975 16:23:09 0 MAIN PROGRAM TO PRODUCE CPU AND VMI TIMING RESULTS WHEN LOADED WITH *SORT. 00303/15 SORT SRTTMTST OC G S0027 DISTRB FSNAME=SRTT D3.2T1 166 SORT.SRTTMTST.OC.15 1 LINE 80 1 PAGE UM ENGLE MAR. 11, 1975 16:24:59 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00303/16 SORT SORTPLOT SF G SRTP S0027 DISTRB FSNAME=SORTPLOT D3.2T1 167 SORT.SORTPLOT.SF.16 1 LINE 80 6 PAGE UM ENGLE MAR. 11, 1975 16:27:52 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 NUMBERS 69-71 SHOULD BE SKIPPED TO ELIMINATE THE PLOTTING OF DATA POINTS. 00303/17 SORT SORTPLOT OC G S0027 DISTRB FSNAME=SRTP D3.2T1 168 SORT.SORTPLOT.OC.17 1 LINE 244 4 PAGE UM ENGLE MAR. 11, 1975 16:28:10 00303/18 SORT SORTPLOT D G S0027 DISTRB FSNAME=SRTPDATA D3.2T1 169 SORT.SORTPLOT.D.18 1 LINE 28 3 PAGE UM ENGLE MAR. 11, 1975 17:05:32 0 DATA FOR SORT TIMING PLOTS, MEASURED ON 370/168. 00303/19 SORT SORTPLOT D G S0027 DISTRB FSNAME=SRTPPLOT D3.2T1 170 SORT.SORTPLOT.D.19 1 LINE 254 25 PAGE UM ENGLE MAR. 12, 1975 17:20:32 0 CALCOMP PLOT FILE FOR SORT TIMING PLOTS IN SORT WRITEUP. CONTAINS PPEN RECORDS FOR MULTICOLOR PLOTTING. 00304 *TPD SA # (NOT DISTRIBUTED) D2T1 137 UM WSG 00305/01 *FTNTOPL1 SLCPF4 SP O LCP0 S0721 'D3T2' FSNAME=FTNTOPL1.SLCPF4.SP.1 177 D3T2 177 FTNTOPL1.SLCPF4.SP.1 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 22:47.13 0 IBM PROGRAM 360-CV-710: LCP FORTRAN-IV TO PL/I, VERSION 1 LEVEL 0. THE SOURCE DECKS (305/1 THRU 305/20) SHOULD BE STORED IN FILES NAMED AS INDICATED. THE UPDATE DECK (305/21) WILL CONVERT THESE FILES, WHICH ARE UNMODIFIED IBM SOURCE, INTO A VERSION THAT WILL RUN IN MTS. MOST OF THESE PROGRAMS ARE WRITTEN IN PL/I 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/02 *FTNTOPL1 SCONVER SA O CON0 S0721 'D3T2' FSNAME=FTNTOPL1.SCONVER.SA.2 178 D3T2 178 FTNTOPL1.SCONVER.SA.2 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:47.14 00305/03 *FTNTOPL1 SPUTTBS SA O PUT0 S0721 'D3T2' FSNAME=FTNTOPL1.SPUTTBS.SA.3 179 D3T2 179 FTNTOPL1.SPUTTBS.SA.3 1 SEQ 80 24 PAGE UM TIFFANY JULY 31, 1973 22:47.18 0 Referenced by comments of: 305/21 00305/04 *FTNTOPL1 SLTCOL SP O LTC0 S0721 'D3T2' FSNAME=FTNTOPL1.SLTCOL.SP.4 180 D3T2 180 FTNTOPL1.SLTCOL.SP.4 1 SEQ 80 12 PAGE UM TIFFANY JULY 31, 1973 22:47.22 00305/05 *FTNTOPL1 SIPPRS SP O IPP0 S0721 'D3T2' FSNAME=FTNTOPL1.SIPPRS.SP.5 181 D3T2 181 FTNTOPL1.SIPPRS.SP.5 1 SEQ 80 27 PAGE UM TIFFANY JULY 31, 1973 22:47.25 00305/06 *FTNTOPL1 SPH10 SP O PH10 S0721 'D3T2' FSNAME=FTNTOPL1.SPH10.SP.6 182 D3T2 182 FTNTOPL1.SPH10.SP.6 1 SEQ 80 11 PAGE UM TIFFANY JULY 31, 1973 22:47.28 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00305/07 *FTNTOPL1 SFNPRO SP O FNP0 S0721 'D3T2' FSNAME=FTNTOPL1.SFNPRO.SP.7 183 D3T2 183 FTNTOPL1.SFNPRO.SP.7 1 SEQ 80 10 PAGE UM TIFFANY JULY 31, 1973 22:47.30 00305/08 *FTNTOPL1 SDMPRO SP O DMP0 S0721 'D3T2' FSNAME=FTNTOPL1.SDMPRO.SP.8 184 D3T2 184 FTNTOPL1.SDMPRO.SP.8 1 SEQ 80 18 PAGE UM TIFFANY JULY 31, 1973 22:47.32 00305/09 *FTNTOPL1 SNLPRO SP O NLP0 S0721 'D3T2' FSNAME=FTNTOPL1.SNLPRO.SP.9 185 D3T2 185 FTNTOPL1.SNLPRO.SP.9 1 SEQ 80 9 PAGE UM TIFFANY JULY 31, 1973 22:47.34 00305/10 *FTNTOPL1 SFTPRO SP O FTP0 S0721 'D3T2' FSNAME=FTNTOPL1.SFTPRO.SP.10 186 D3T2 186 FTNTOPL1.SFTPRO.SP.10 1 SEQ 80 21 PAGE UM TIFFANY JULY 31, 1973 22:47.38 00305/11 *FTNTOPL1 SRTPRO SP O RTP0 S0721 'D3T2' FSNAME=FTNTOPL1.SRTPRO.SP.11 187 D3T2 187 FTNTOPL1.SRTPRO.SP.11 1 SEQ 80 10 PAGE UM TIFFANY JULY 31, 1973 22:47.40 00305/12 *FTNTOPL1 SIOPRO SP O IOP0 S0721 'D3T2' FSNAME=FTNTOPL1.SIOPRO.SP.12 188 D3T2 188 FTNTOPL1.SIOPRO.SP.12 1 SEQ 80 25 PAGE UM TIFFANY JULY 31, 1973 22:47.43 00305/13 *FTNTOPL1 SARPRO SP O ARP0 S0721 'D3T2' FSNAME=FTNTOPL1.SARPRO.SP.13 189 D3T2 189 FTNTOPL1.SARPRO.SP.13 1 SEQ 80 27 PAGE UM TIFFANY JULY 31, 1973 22:47.47 00305/14 *FTNTOPL1 SCAPRO SP O CAP0 S0721 'D3T2' FSNAME=FTNTOPL1.SCAPRO.SP.14 190 D3T2 190 FTNTOPL1.SCAPRO.SP.14 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:47.49 00305/15 *FTNTOPL1 SIFPRO SP O IFP0 S0721 'D3T2' FSNAME=FTNTOPL1.SIFPRO.SP.15 191 D3T2 191 FTNTOPL1.SIFPRO.SP.15 1 SEQ 80 6 PAGE UM TIFFANY JULY 31, 1973 22:47.52 00305/16 *FTNTOPL1 SALPRO SP O ALP0 S0721 'D3T2' FSNAME=FTNTOPL1.SALPRO.SP.16 192 D3T2 192 FTNTOPL1.SALPRO.SP.16 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 22:47.54 00305/17 *FTNTOPL1 SPH20 SP O PH20 S0721 'D3T2' FSNAME=FTNTOPL1.SPH20.SP.17 193 D3T2 193 FTNTOPL1.SPH20.SP.17 1 SEQ 80 16 PAGE UM TIFFANY JULY 31, 1973 22:47.58 00305/18 *FTNTOPL1 SPH30 SP O PH30 S0721 'D3T2' FSNAME=FTNTOPL1.SPH30.SP.18 194 D3T2 194 FTNTOPL1.SPH30.SP.18 1 SEQ 80 41 PAGE UM TIFFANY JULY 31, 1973 22:48.03 00305/19 *FTNTOPL1 SLBLNK SA O SLBL S0721 'D3T2' FSNAME=FTNTOPL1.SLBLNK.SA.19 195 D3T2 195 FTNTOPL1.SLBLNK.SA.19 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:48.07 00305/20 *FTNTOPL1 SUT1 SP O S0721 'D3T2' FSNAME=FTNTOPL1.SUT1.SP.20 196 D3T2 196 FTNTOPL1.SUT1.SP.20 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 22:48.08 00305/21 *FTNTOPL1 UPDATE UU O W062:UP 314 D3T2 197 FTNTOPL1.UPDATE.UU.21 1 SEQ 80 8 PAGE UM TIFFANY JULY 31, 1973 22:48.11 0 UPDATE DECK, INCLUDING MTS COMMANDS, TO PRODUCE IN A FILE "NEWLCP" A VERSION OF *FTNTOPL1 THAT WILL RUN IN MTS. THIS DECK WILL HAVE TO BE CHANGED TO MEET LOCAL CONDITIONS - IT CURRENTLY USES THE DATA CELL. LATEST VERSION CORRECTS SPUTTBS (305/3) SO THAT THERE CAN BE MORE THAN 200 INPUT CARDS. 0 Referenced by comments of: 305/1 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00305/22 *FTNTOPL1 OC O *FTNTOPL1 D3T2 198 FTNTOPL1..OC.22 1 LINE 80 75 PAGE UM TIFFANY JULY 31, 1973 22:48.12 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00306/01 WIREWRAP WW.S.MAIN SA G WWMN S0767 'SAVETAPE' FSNAME=WW.S.MAIN D3.1T1 211 WIREWRAP.WW.S.MAIN.SA.1 1 LINE 80 52 PAGE UM GERSCH JAN. 16, 1974 13:11.37 0 PROGRAM TO PRODUCE ALL SORTS OF NEAT OUTPUT ABOUT WIRING BACKPANELS FOR HARDWARE DEVICES. INPUT TO THE PROGRAM IS A MACRO-ORIENTED LANGUAGE FOR DESCRIBING HARDWARE DEVICES FROM LOGIC DIAGRAMS. OUTPUT INCLUDES LISTS OF SIGNALS, WIRE-CHAINS, IC'S USED, COST AND POWER TOTALS, AND A PUNCHED CARD DECK FOR AUTOMATICALLY DRIVING ANY GARDNER-DENVER WIREWRAP MACHINE. THE WIREWRAP PROGRAM CONSISTS OF THREE CSECTS: WW.S.MAIN (306/1), WW.S.AUX (306/2), AND WW.S.MACR (306/3). EACH REQUIRES COPY SECTIONS WWCOPY (306/5) AND WWDATA (306/6) AND MACRO LIBRARIES WWMAC (306/7) AND *SYSMAC. THE OBJECT MODULE (*WIREWRAP) MUST BE RUN IN CONJUNCTION WITH THE *WWLIB (306/9) LIBRARY FILE OR MUST BE CONCATENATED WITH A PRIVATE SUBROUTINE PACKAGE USED TO DEFINE THE CHARACTERSITICS OF THE IC MOUNTING TECHNIQUE. SOURCE FILE WWJOB (306/8) WILL ASSEMBLE *WIREWRAP. 0 Referenced by comments of: 306/1 00306/02 WIREWRAP WW.S.AUX SA G WWAU S0767 'SAVETAPE' FSNAME=WW.S.AUX D3.1T1 212 WIREWRAP.WW.S.AUX.SA.2 1 LINE 80 37 PAGE UM GERSCH JAN. 16, 1974 13:11.57 0 Referenced by comments of: 306/1 00306/03 WIREWRAP WW.S.MACR SA G WWMC S0767 'SAVETAPE' FSNAME=WW.S.MACR D3.1T1 213 WIREWRAP.WW.S.MACR.SA.3 1 LINE 80 28 PAGE UM GERSCH JAN. 16, 1974 13:12.15 0 Referenced by comments of: 306/1 00306/04 WIREWRAP *WIREWRAP OE G *WIREWRAP D3.1T1 214 WIREWRAP.*WIREWRAP.OE.4 1 SEQ 11776 9 PAGE UM GERSCH MAR. 06, 1974 03:49.39 00306/05 WIREWRAP WWCOPY SA G WWCO S0767 'SAVETAPE' FSNAME=WWCOPY D3.1T1 215 WIREWRAP.WWCOPY.SA.5 1 LINE 80 4 PAGE UM GERSCH JAN. 16, 1974 16:32.18 0 COPY SECTION USED BY 306/1, 306/2, AND 306/3 0 Referenced by comments of: 306/1 00306/06 WIREWRAP WWDATA SA G WWDA S0767 'SAVETAPE' FSNAME=WWDATA D3.1T1 216 WIREWRAP.WWDATA.SA.6 1 LINE 80 8 PAGE UM GERSCH JAN. 16, 1974 16:32.00 0 COPY SECTION USED BY 306/1, 306/2, AND 306/3 0 Referenced by comments of: 306/1 00306/07 WIREWRAP WWMAC SM G S0767 'SAVETAPE' FSNAME=WWMAC D3.1T1 217 WIREWRAP.WWMAC.SM.7 1 LINE 73 3 PAGE UM GERSCH JAN. 16, 1974 16:31.52 0 MACRO LIB USED BY 306/1, 306/2, AND 306/3 0 Referenced by comments of: 306/1 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00306/08 WIREWRAP WWJOB C G S0767 'SAVETAPE' FSNAME=WWJOB D3.1T1 218 WIREWRAP.WWJOB.C.8 1 LINE 92 1 PAGE UM GERSCH JAN. 16, 1974 13:12.32 0 Referenced by comments of: 306/1 00306/09 WIREWRAP *WWLIB OL G *WWLIB D3.1T1 219 WIREWRAP.*WWLIB.OL.9 1 LINE 255 24 PAGE UM GERSCH MAR. 06, 1974 03:49.49 0 NON-STANDARD LIBRARY FILE USED BY *WIREWRAP TO OBTAIN CHARACTERISTICS OF THE IC MOUNTING TECHNIQUE. CONSISTS OF A DIRECTORY FOLLOWED BY THE LINK-EDITED OBJECT MODULES FOR BAY TYPES: MSERIES, RSERIES, IC, MIC, LAB, AUGATPG1, AUGATPG3, AUGATPG5, AUGATPG13, AND AUGATUG1. THE *WIREWRAP USER'S GUIDE (306/29) DESCRIBES THESE BAY TYPES. THIS LIBRARY ALSO MAKES USE OF OBJECT FILES *WWSQGRD (306/11), *WWSTGRD1 (306/13), AND *WWSTGRD2 (306/15). 0 Referenced by comments of: 306/1, 306/16, 306/17, 306/18, 306/19, 306/20, 306/21, 306/22, 306/23, 306/24, 306/25 00306/10 WIREWRAP SQGRD SA G SQGR S0767 'SAVETAPE' FSNAME=SQGRD.S D3.1T1 220 WIREWRAP.SQGRD.SA.10 1 LINE 80 6 PAGE UM GERSCH DEC. 13, 1973 12:57.39 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/11 WIREWRAP SQGRD OE G *WWSQGRD D3.1T1 221 WIREWRAP.SQGRD.OE.11 1 SEQ 606 1 PAGE UM GERSCH MAR. 06, 1974 03:50.22 0 Referenced by comments of: 306/9 00306/12 WIREWRAP STGRD1 SA G STG1 S0767 'SAVETAPE' FSNAME=STGRD1.S D3.1T1 222 WIREWRAP.STGRD1.SA.12 1 LINE 80 8 PAGE UM GERSCH DEC. 13, 1973 12:57.57 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/13 WIREWRAP STGRD1 OE G *WWSTGRD1 D3.1T1 223 WIREWRAP.STGRD1.OE.13 1 SEQ 726 1 PAGE UM GERSCH MAR. 06, 1974 03:50.26 0 Referenced by comments of: 306/9 00306/14 WIREWRAP STGRD2 SA G STG2 S0767 'SAVETAPE' FSNAME=STGRD2.S D3.1T1 224 WIREWRAP.STGRD2.SA.14 1 LINE 80 8 PAGE UM GERSCH DEC. 13, 1973 12:58.13 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/15 WIREWRAP STGRD2 OE G *WWSTGRD2 D3.1T1 225 WIREWRAP.STGRD2.OE.15 1 SEQ 5718 2 PAGE UM GERSCH MAR. 06, 1974 03:50.31 0 Referenced by comments of: 306/9 00306/16 WIREWRAP LAB SF G LAB0 S0767 'SAVETAPE' FSNAME=LAB.S D3.1T1 226 WIREWRAP.LAB.SF.16 1 LINE 80 4 PAGE UM GERSCH DEC. 13, 1973 12:49.54 0 SUBROUTINE PACKAGE FOR BAY TYPE 'LAB'. OBJECT MODULE IN *WWLIB (306/9). 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00306/17 WIREWRAP MSERIES SF G MSER S0767 'SAVETAPE' FSNAME=MSERIES.S D3.1T1 227 WIREWRAP.MSERIES.SF.17 1 LINE 80 5 PAGE UM GERSCH DEC. 13, 1973 12:56.06 0 SUBROUTINE PACKAGE FOR BAY TYPE 'MSERIES'. OBJECT MODULE IN *WWLIB (306/9). 00306/18 WIREWRAP RSERIES SF G RSER S0767 'SAVETAPE' FSNAME=RSERIES.S D3.1T1 228 WIREWRAP.RSERIES.SF.18 1 LINE 80 5 PAGE UM GERSCH DEC. 13, 1973 12:56.35 0 SUBROUTINE PACKAGE FOR BAY TYPE 'RSERIES'. OBJECT MODULE IN *WWLIB (306/9). 00306/19 WIREWRAP IC SF G IC00 S0767 'SAVETAPE' FSNAME=IC.S D3.1T1 229 WIREWRAP.IC.SF.19 1 LINE 80 5 PAGE UM GERSCH DEC. 13, 1973 12:55.30 0 SUBROUTINE PACKAGE FOR BAY TYPE 'IC'. OBJECT MODULE IN *WWLIB (306/9). 00306/20 WIREWRAP MIC SF G MIC0 S0767 'SAVETAPE' FSNAME=MIC.S D3.1T1 230 WIREWRAP.MIC.SF.20 1 LINE 80 5 PAGE UM GERSCH JAN. 16, 1974 13:12.44 0 SUBROUTINE PACKAGE FOR BAY TYPE 'MIC'. OBJECT MODULE IN *WWLIB (306/9). 00306/21 WIREWRAP PG1 SF G PG10 S0767 'SAVETAPE' FSNAME=79.PG1SOU D3.1T1 231 WIREWRAP.PG1.SF.21 1 LINE 80 6 PAGE UM GERSCH DEC. 13, 1973 13:35.38 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG1'. OBJECT MODULE IN *WWLIB (306/9). 00306/22 WIREWRAP PG3 SF G PG30 S0767 'SAVETAPE' FSNAME=79.PG3SOU D3.1T1 232 WIREWRAP.PG3.SF.22 1 LINE 80 6 PAGE UM GERSCH DEC. 13, 1973 13:36.09 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG3'. OBJECT MODULE IN *WWLIB (306/9). 00306/23 WIREWRAP PG5 SF G PG50 S0767 'SAVETAPE' FSNAME=79.PG5SOU D3.1T1 233 WIREWRAP.PG5.SF.23 1 LINE 80 6 PAGE UM GERSCH DEC. 13, 1973 13:36.26 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG5'. OBJECT MODULE IN *WWLIB (306/9). 00306/24 WIREWRAP PG13 SF G PG13 S0767 'SAVETAPE' FSNAME=79.PG13SOU D3.1T1 234 WIREWRAP.PG13.SF.24 1 LINE 80 6 PAGE UM GERSCH DEC. 13, 1973 13:35.53 0 SUBROUTINE PACKAGE FOR BAY TYPE 'PG13'. OBJECT MODULE IN *WWLIB (306/9). 00306/25 WIREWRAP UG1 SA G UG10 S0767 'SAVETAPE' FSNAME=AUGATUG1.S D3.1T1 235 WIREWRAP.UG1.SA.25 1 LINE 80 19 PAGE UM GERSCH JAN. 16, 1974 13:13.19 0 SUBROUTINE PACKAGE FOR BAY TYPE 'UG1'. OBJECT MODULE IN *WWLIB (306/9). 00306/26 WIREWRAP *WWICMAC D G *WWICMAC D3.1T1 236 WIREWRAP.*WWICMAC.D.26 1 SEQ 65 4 PAGE UM GERSCH MAR. 06, 1974 03:51.28 0 THIS FILE CONTAINS "WIREWRAP MACROS" FOR MOST OF THE IC'S USED FOR LOGIC DESIGN AT THE UM COMPUTING CENTER. THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES "PAR=TYPE=IC" FOR THE MOUNTING TECHNIQUE. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00306/27 WIREWRAP *WWLABMAC D G *WWLABMAC D3.1T1 237 WIREWRAP.*WWLABMAC.D.27 1 LINE 56 1 PAGE UM GERSCH MAR. 06, 1974 03:51.30 0 THIS FILE CONTAINS A "WIREWRAP MACRO" DICTIONARY FOR IC'S USED IN THE LOGIC LAB "SUITCASE" USED IN ECE DEPARTMENT CLASSES AT UM. THIS FILE MAY BE READ BY *WIREWRAP WHEN THE USER SPECIFIES "PAR=TYPE=LAB" FOR THE MOUNTING TECHNIQUE. 00306/28 WIREWRAP TTLMAC D G S0767 'SAVETAPE' FSNAME=TTLMAC D3.1T1 238 WIREWRAP.TTLMAC.D.28 1 LINE 91 4 PAGE UM GERSCH DEC. 13, 1973 13:22.40 0 ANOTHER "WIREWRAP MACRO" DICTIONARY. 00306/29 WIREWRAP USER'S GUIDE PT G S0767 'SAVETAPE' FSNAME=TEXT360PRINT D3.1T1 239 WIREWRAP.USER'S_GUIDE.PT.29 1 LINE 79 65 PAGE UM GERSCH FEB. 05, 1974 09:26.06 0 THIS IS COMPUTING CENTER MEMO M267 -- "*WIREWRAP USER'S GUIDE" 0 Referenced by comments of: 306/9 00307/01 *OBJCONV SA FXOB S0721 'D3T2' FSNAME=OBJCONV..SA.1 220 D3T2 220 OBJCONV..SA.1 1 SEQ 80 1 PAGE UM DWB JULY 31, 1973 22:54.21 0 PROGRAM TO CONVERT AN OS/360 OBJECT DECK WHICH HAS THE CSECT LENGTH ON THE END CARD TO AN MTS COMPATIBLE DECK, I.E. TO A DECK WITH THE CSECT LENGTH ON THE FIRST ESD CARD. USED WITH *COBOL. UNCHANGED SINCE DIST 2. 00307/02 *OBJCONV OC *OBJCONV D3T2 221 OBJCONV..O.2 1 LINE 80 1 PAGE UM DWB JULY 31, 1973 22:54.24 00308/01 *FORMAT MAIN SA G W030:FMT D3T2 222 FORMAT..SA.1 1 LINE 80 70 PAGE UM LIFT JULY 31, 1973 22:54.25 0 Referenced by comments of: 560/1 00308/02 *FORMAT SUBROUTINES SA G W030:FMTRTNS UM LIFT 0 SUBROUTINES TO BE ASSEMBLED WITH PAR=B. 00308/03 *FORMAT SUBROUTINES SA G W030:FMTSUB UM LIFT 0 MORE SUBROUTINES TO BE ASSEMBLED WITH PAR=B. 00308/04 *FORMAT SUBROUTINES SA G W030:MTSTIME.S UM LIFT 0 MORE SUBROUTINES TO BE ASSEMBLED WITH PAR=B. 00308/05 *FORMAT PLIST SA G W030:PLIST.S UM LIFT 0 ANOTHER SUBROUTINE. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00308/06 *FORMAT INFREE SA G W030:INFREE#.S UM LIFT 0 Referenced by comments of: 410/2 00308/07 *FORMAT HASH SA G W030:HASH.S UM LIFT 00308/08 *FORMAT EXT FUNC LOAD SA G W030:LOADFN.S UM LIFT 0 EXTERNAL FUNCTION LOADER. 00308/09 *FORMAT FUNCTIONS SA G W030:GCONVERT.S UM LIFT 00308/10 *FORMAT MACLIB #1 SA G W030:FMTMACLIB UM LIFT 0 MACRO LIBRARY NEEDED TO ASSEMBLE ALL FORMAT SOURCE. 00308/11 *FORMAT MACLIB #2 SA G W030:MACLIB UM LIFT 0 ANOTHER MACRO LIBRARY NEEDED TO ASSEMBLE ALL FORMAT SOURCE. 00308/12 *FORMAT OE G *FORMAT D3T2 224 FORMAT..OE.3 1 SEQ 15577 5 PAGE UM LIFT JULY 31, 1973 22:54.44 00309/01 *STASS360 MONITOR SA MNTR S0373 'STASS360' FMT=FB(3200,80) 1 D3T2 225 STASS360.MONITOR.SA.1 1 SEQ 80 11 PAGE UM SALISBURY JULY 31, 1973 22:55.58 0 COMPONENTS 309/1 THRU 309/6 ARE THE SOURCE FILES FOR STASS360. THEY ARE THE SAME AS THE UBC DISTRIBUTION OF STASS360 EXCEPT FOR RE-SEQUENCING. 00309/02 *STASS360 ASSEMBLER SA ASSM S0373 'STASS360' FMT=FB(3200,80) 2 D3T2 226 STASS360.ASSEMBLER.SA.2 1 SEQ 80 85 PAGE UM SALISBURY JULY 31, 1973 22:56.10 00309/03 *STASS360 SIMULATOR SA SIML S0373 'STASS360' FMT=FB(3200,80) 3 D3T2 227 STASS360.SIMULATOR.SA.3 1 SEQ 80 48 PAGE UM SALISBURY JULY 31, 1973 22:56.22 00309/04 *STASS360 I/O CONVERSION SA CVTH S0373 'STASS360' FMT=FB(3200,80) 4 D3T2 228 STASS360.I/O_CONVERSION.SA.4 1 SEQ 80 25 PAGE UM SALISBURY JULY 31, 1973 22:56.28 00309/05 *STASS360 IBCOM SA ICOM S0373 'STASS360' FMT=FB(3200,80) 5 D3T2 229 STASS360.IBCOM.SA.5 1 SEQ 80 18 PAGE UM SALISBURY JULY 31, 1973 22:56.32 00309/06 *STASS360 FIOCS SA FIOC S0373 'STASS360' FMT=FB(3200,80) 6 D3T2 230 STASS360.FIOCS.SA.6 1 SEQ 80 5 PAGE UM SALISBURY JULY 31, 1973 22:56.34 00309/07 *STASS360 UPDATE UU S0721 'D3T2' FSNAME=STASS360.UPDATE.UU.7 231 D3T2 231 STASS360.UPDATE.UU.7 1 LINE 72 1 PAGE UM SALISBURY JULY 31, 1973 22:56.52 0 *UPDATE DECK TO PRODUCE THE UM VERSION OF STASS360 FROM COMPONENTS 309/1 THRU 309/6. 1 FRI AUG 02/96 19:04:25 Page 94 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 UPDATES FOR COMPONENTS BEGIN AT LINES 1000, 2000, 3000, 4000, 5000, AND 6000. THE UPDATES ASSUME THAT THE SOURCE COMPONENTS ARE ON TAPE *STASS* AT FILE 1, 2, ETC. THE CHANGES MADE BY THIS UPDATE FIX SOME OBSCURE BUGS IN THE UBC VERSION. 00309/08 *STASS360 OE *STASS360 D3T2 232 STASS360..OE.8 1 SEQ 14248 9 PAGE UM SALISBURY JULY 31, 1973 22:56.54 00310 *1ASR # (SEE COMP 234) UM 00311 *VARRLIST S # (OBSOLETE) D2T1 333 UM 00312 *ARUVOC D # (SEE COMP 084) UM 00313 1130 RJE SUPPORT PROGRAM S # (OBSOLETE) D2T1 096 UM 00314/01 *LABELSNIFF SA G W062:SNIFF D3T2 233 LABELSNIFF..SA.1 1 SEQ 80 31 PAGE UM TIFFANY JULY 31, 1973 22:56.56 0 PROGRAM TO FORMAT AND PRINT LABEL INFORMATION FROM LABELED TAPES. COUNTS RECORDS AND BLOCKS AND RECOVERS FROM TAPE ERRORS. ALSO COMPUTES NUMBER OF FEET IN EACH FILE AND ON TOTAL TAPE. PROGRAM NOW ACCEPTS ADDITIONAL PARAMETERS (IN PAR OR FROM GUSER): REW CONTROLS THE POSITIONING OF THE TAPE AFTER SNIFFING. THE DEFAULT IS TO NOREW REWIND THE TAPE (REW), BUT NOREW CAUSES THE TAPE TO BE LEFT POSITIONED AFTER THE LAST FILE SNIFFED. FILES=N IF SPECIFIED, CAUSES ONLY N FILES TO BE SNIFFED (RATHER THAN ENTIRE TAPE). POSN= IF POSN IS NOT SPECIFIED, THE TAPE IS REWOUND BEFORE SNIFFING, OTHERWISE A "POSN" CONTROL COMMAND IS ISSUED PRIOR TO SNIFFING. 00314/02 *LABELSNIFF OE G W062:LBLSNIFF D3T2 234 LABELSNIFF..O.2 1 SEQ 5320 3 PAGE UM TIFFANY JULY 31, 1973 22:57.00 00315 *ANS SA # (OBSOLETE) D2T1 155 UM 00316 GENLIB SA # (OBSOLETED BY 389) D3T2 236 GENLIB..SA. 1 SEQ 80 6 PAGE UNE JULY 31, 1973 22:59.46 00317 *8CARD S # (OBSOLETE) UM 00318/01 XPL SUBMONITOR SA G XMON S0296 S296 'JOH XPL' POSN=XMON@S 15 D3T2 237 XPL.SUBMONITOR.SA.1 1 SEQ 80 24 PAGE UM JWS JULY 31, 1973 23:01.38 0 XPL COMPILER AND EXECUTION CONTROL (SEE 1968 FJCC PROC, PP 617-636). ONE NEVER $RUNS AN XPL OBJECT DECK SINCE THE OBJECT CODE IS STORED IN A FORMAT UNIQUE TO XPL. RATHER, ONE RUNS THE XPL SUBMONITOR, WHICH IN TURN LOADS THE XPL PROGRAM AND PROVIDES A RUN-TIME INTERFACE TO MTS. SINCE THE COMPILER ITSELF IS ALSO AN XPL PROGRAM, IT MUST BE RUN IN THE 1 FRI AUG 02/96 19:04:25 Page 95 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/02 XPL SUBMONITOR OC G S0296 S296 'JOH XPL' POSN=XMON@O 17 D3T2 238 XPL.SUBMONITOR.OC.2 1 SEQ 80 2 PAGE UM JWS JULY 31, 1973 23:01.42 0 THIS FILE PLUS THE OBJECT FOR TRACE (318/4) CONSTITUTE *XMON. THE FOLLOWING PATCH SHOULD BE INSERTED INTO THIS OBJECT FILE: REP 0008C6 01,0700,0700 TRACE DIES IF LEFT IN <<<<<<<<----- BOO HISS BOO HISS ... 0 Referenced by comments of: 318/4 00318/03 XPL TRACE SA G TRAC S0296 S296 'JOH XPL' POSN=TRACE@S 4 D3T2 239 XPL.TRACE.SA.3 1 SEQ 80 33 PAGE UM JWS JULY 31, 1973 23:01.54 0 UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON) AND *SPL (336). 00318/04 XPL TRACE OC G S0296 S296 'JOH XPL' POSN=TRACE@O 6 D3T2 240 XPL.TRACE.OC.4 1 SEQ 80 2 PAGE UM JWS JULY 31, 1973 23:01.59 0 THE SUBMONITOR OBJECT (318/2) PLUS THIS FILE CONSTITUTE *XMON. THE FOLLOWING 2 LOADER CARDS SHOULD ALSO BE ADDED AT THE END OF *XMON: LCS LCSYMBOL LDT XPLSM 0 Referenced by comments of: 318/2 00318/05 XPL DEFAULTS SA G DFLT S0296 S296 'JOH XPL' POSN=DFLT@S 1 D3T2 241 XPL.DEFAULTS.SA.5 1 SEQ 80 1 PAGE UM JWS JULY 31, 1973 23:02.03 0 SOURCE FOR THE 2 SETS OF SUBMONITOR DEFAULTS, THE FIRST FOR THE EXECUTION OF THE COMPILER (*XPL) AND THE SECOND FOR THE EXECUTION OF COMPILED CODE (*XPLGO). 00318/06 XPL DEFAULTS OC G S0296 S296 'JOH XPL' POSN=DFLT@O 3 D3T2 242 XPL.DEFAULTS.OC.6 1 SEQ 80 1 PAGE UM JWS JULY 31, 1973 23:02.04 0 THE FIRST 4 LINES OF THIS FILE ARE THE OBJECT FOR THE FIRST DEFAULTS PROGRAM AND SHOULD BE PLACED IS THE FILE *XPL FOLLOWED BY A "$CONTINUE WITH *XMON" LINE. LINES 5 THROUGH 8 ARE THE OBJECT FOR THE SECOND DEFAULTS PROGRAM AND SHOULD BE PLACED IN THE FILE *XPLGO ALSO FOLLOWED BY A "$CONTINUE WITH *XMON" LINE. 00318/07 XPL COMPILER SX G S0296 S296 'JOH XPL' POSN=XCOM@S 18 D3T2 243 XPL.COMPILER.SX.7 1 SEQ 80 98 PAGE UM JWS JULY 31, 1973 23:02.26 0 XPL SOURCE FOR THE XPL COMPILER (*XCOM). THIS VERSION IS MODIFIED FROM AN EARLY STANFORD RELEASE; IT IS NOT THE SHARE RELEASE. IT IS USED QUITE HEAVILY AT UM AND IS RELATIVELY BUG-FREE. THE COMPILER SOURCE IS KEPT IN A PUBLIC FILE (*XCOM) SO THAT PARTS OF IT ARE AVAILABLE FOR EXTRACTION BY STUDENTS IN COMPILER WRITING COURSES. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00318/08 XPL COMPILER O G S0296 S296 'JOH XPL' POSN=XCOM@O 20 D3T2 244 XPL.COMPILER.O.8 1 SEQ 240 29 PAGE UM JWS JULY 31, 1973 23:02.40 0 XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER). 00318/09 XPL *XPLIBRARY SX G S0296 S296 'JOH XPL' POSN=XLIB 14 D3T2 245 XPL.*XPLIBRARY.SX.9 1 SEQ 80 3 PAGE UM JWS JULY 31, 1973 23:02.54 0 SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL. 00318/10 XPL *SKELETON SX G S0296 S296 'JOH XPL' POSN=SKTN@S 10 D3T2 246 XPL.*SKELETON.SX.10 1 SEQ 80 18 PAGE UM JWS JULY 31, 1973 23:02.59 0 THIS IS THE MINIMAL FRAMEWORK FOR A TABLE-DRIVEN COMPILER. USER IS EXPECTED TO REPLACE THE SYNTAX TABLES WITH APPROPRIATE TABLES PRODUCED BY *ANALYZER AND COMPLETE THE COMPILER BY WRITING THE CODE SYNTHESIZER SECTION. 0 Referenced by comments of: 495/6 00318/11 XPL *ANALYZER SX G S0296 S296 'JOH XPL' POSN=ANAL@S 7 D3T2 247 XPL.*ANALYZER.SX.11 1 SEQ 80 33 PAGE UM JWS JULY 31, 1973 23:03.08 0 XPL PROGRAM TO ANALYZE A BNF DESCRIPTION OF A LANGUAGE AND PRODUCE TABLES FOR COMPILING IT. 00318/12 XPL *ANALYZER O G S0296 S296 'JOH XPL' POSN=ANAL@O 9 D3T2 248 XPL.*ANALYZER.O.12 1 SEQ 240 24 PAGE UM JWS JULY 31, 1973 23:03.14 0 XPL FORMAT OBJECT FILE. 0 Referenced by comments of: 495/5 00318/13 XPL XPLBNF D G S0296 S296 'JOH XPL' POSN=XPLBNF 13 D3T2 249 XPL.XPLBNF.D.13 1 SEQ 80 3 PAGE UM JWS JULY 31, 1973 23:03.18 0 BNF DESCRIPTION OF XPL SUITABLE FOR INPUT TO *ANALYZER. 00318/14 XPL USER'S GUIDE WF S0721 'D3T2' FSNAME=XPL.USER'S_GUIDE.WF.14 250 D3T2 250 XPL.USER'S_GUIDE.WF.14 1 LINE 109 4 PAGE UM JWS JULY 27, 1973 21:35.19 0 THIS IS COMPUTING CENTER MEMO M230 -- "XPL USER'S GUIDE" 00319 *FLIKPLT OC *FLIKPLT D3T2 251 FLIKPLT..OC. 1 LINE 80 15 PAGE UM ? JULY 31, 1973 23:03.29 0 PROGRAM TO PRODUCE CALCOMP OR PRINTER PLOT HARD COPY OF SC4020 FRAMES AS GENERATED BY *PIB (321). THE SOURCE IS NOT AVAILABLE. THIS FILE HAS 2 "$CONTINUE WITH *LIBRARY" RECORDS AND 1 "$CONTINUE WITH *PLOTSYS" RECORDS. 00320 *CREVOC # (SEE COMP 084/12 AND 084/13) UM 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00321 *PIB OC *PIB D3T2 252 PIB..OC. 1 LINE 80 122 PAGE UM ? JULY 31, 1973 23:03.31 0 THE POLYTECHNIC INSTITUTE OF BROOKLYN POLYGRAPHICS SUBROUTINES TO GENERATE SC4020 PLOTTING COMMANDS FOR THE PRODUCTION OF MOVIES, SLIDES, AND HARD COPY. THE SOURCE IS NOT AVAILABLE. 0 Referenced by comments of: 319/1 00322/01 *2260RTN SA G D226 S0721 'D3T2' FSNAME=2260RTN..SA.1 253 D3T2 253 2260RTN..SA.1 1 LINE 80 54 PAGE UM MTA JULY 31, 1973 23:03.55 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 2260 DISPLAY. FROM UBC. 00322/02 *2260RTN OC G *2260RTN D3T2 254 2260RTN..OC.2 1 LINE 80 4 PAGE UM MTA JULY 31, 1973 23:04.03 00323 *VLIST # (SEE COMP 084/14 AND 084/15) UM 00324/01 EDITOR SA G EDIT S0422 ARCHIV 'DWBARCHIVE' FSNAME=EDITOR.D3.SA D3T2 255 EDITOR..SA.1 1 LINE 80 97 PAGE UM DWB FEB. 02, 1973 21:38.36 0 THIS IS THE SOURCE FOR THE COMMAND LANGUAGE SUBSYSTEM (CLS) EDITOR. A SHARED COPY IS NORMALLY LOADED IN SEGMENT 2 AFTER IPL BY THE SEG 2 LOADER AND IS THEN EXECUTED BY THE $EDIT COMMAND. HOWEVER, IF THE SEG 2 LOADER HAS NOT BEEN RUN (I.E. THE SYMBOL 'EDITOR' IS NOT DEFINED IN LCSYMBOL), THEN MTS DYNAMICALLY LOADS A PRIVATE COPY OF THE EDITOR FROM THE FILE *CLSED INTO SEGMENT 4. NOTE: THIS PROGRAM COPIES "MTS:CLSPLAN" WHICH NO LONGER EXISTS. IF IT IS RE-ASSEMBLED, THE SOURCE SHOULD BE CHANGED TO COPY "COPY:CLSPLAN" (535/1) INSTEAD. 00324/02 EDITOR OC G SEG2:EDITOR D3T2 256 EDITOR..O.2 1 LINE 80 9 PAGE UM DWB JULY 31, 1973 23:08.18 0 THE SEG 2 LOADER LOADS THE CLS EDITOR INTO SEGMENT 2 FROM THIS FILE. THE SEG 2 LOADER FILE LIST (SEG2:S2FILES) COULD BE CHANGED TO LOAD THE EDITOR FROM *CLSED. 00324/03 EDITOR OC G *CLSED D3T2 257 EDITOR..O.3 1 LINE 80 9 PAGE UM DWB JULY 31, 1973 23:08.19 0 MTS WILL DYNAMICALLY LOAD A PRIVATE COPY (SEGMENT 4) OF THE CLS EDITOR IF THE LCS SYMBOL 'EDITOR' IS UNDEFINED WHEN A $EDIT COMMAND IS ISSUED. THE PRIVATE COPY IS LOADED FROM THIS FILE. THIS FILE IS (OR SHOULD BE) EXACTLY THE SAME AS 324/2. 00324/04 EDITOR MESSAGES M *EDEXPLAIN D3T2 258 EDITOR.MESSAGES.M.4 1 LINE 70 8 PAGE UM DWB JULY 31, 1973 23:08.21 0 EDITOR EXPLANATION FILE, REFERENCED BY THE EDITOR "EXPLAIN" COMMAND. 00324/05 EDITOR *ED SA G EDCL DWB:EDCALLER.S D3T2 259 EDITOR.*ED.SA.5 1 LINE 80 3 PAGE UM DWB JULY 31, 1973 23:08.24 0 THIS IS A PROGRAM TO INTERFACE TO THE CLS EDITOR FROM THE $RUN LEVEL. IT REFERENCES ALL MANNER OF LOW-CORE STUFF IN PROVIDING A FAKE CLS T/V FOR THE EDITOR. THEREFORE, THE OBJECT (IN *ED) CONTAINS A RIP CARD AND EXTRA LCS CARD FOR THE 'SYSDEFS' LOW-CORE SYMBOL TABLE. 1 FRI AUG 02/96 19:04:25 Page 98 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 NOTE: THIS PROGRAM COPIES "MTS:STANDARDTV" WHICH NO LONGER EXISTS. IF IT IS RE-ASSEMBLED, THE SOURCE SHOULD BE CHANGED TO COPY "COPY:STANDARDTV" (535/3) INSTEAD. 00324/06 EDITOR *ED OC G *ED D3T2 260 EDITOR.*ED.OC.6 1 SEQ 80 2 PAGE UM DWB JULY 31, 1973 23:08.26 00325 *ANALYZER # (SEE COMP 318/11 AND 318/12) UM 00326/01 STAT MONTHLY SUMMARY MAIN PGM SP W041:STATP17.S(1,1999) D3.2T1 171 STAT_MONTHLY_SUMMARY.MAIN.SP.01 1 LINE 99 26 PAGE UM DWB MAR. 21, 1975 01:24:12 0 READS STATISTICS (*STATISTICS) TAPES WHICH HAVE BEEN COMBINED BY *CMB (256) AND PRINTS MANY PAGES OF INTERESTING (HOPEFULLY) INFORMATION ABOUT A MONTHS RUNNING OF THE SYSTEM. IT ALSO READS STATISTICS FROM THE JOBS PROGRAM (413/13) AND PRINTS THAT INFORMATION. THE FOLLOWING PL/I FILE NAMES ARE USED: STAT INPUT TAPE(S). IF NOT LABELED, SET @U(8192). SPRINT OUTPUT. SET @U(133). ERROR LOG OF SKIPPED INPUT RECORDS AND LIST OF MINUTES WITH MORE THAN 90 USERS SIGNED ON. SYSTAT INPUT FROM JOBS PROGRAM. TAPE MUST BE FB(32400,108). SAVE SAVE OR RESTORE INTERMEDIATE INFORMATION (SEE BELOW). SCARDS USES GET LIST FOR 6 OR 7 ITEMS, FOLLOWED BY GET DATA FOR 2 VARIABLES: 1) 'MM' MONTH TO ANALYZE, OR '00' LOOK AT ALL INPUT (REQUIRES 'FULL', Â'CPU', AND Â'MIXED') 2) 'YYYY' YEAR 3) 'PART' USE DATA FROM WHATEVER PART OF MONTH IS PRESENT, OR 'FULL' EXPECT DATA FROM ENTIRE MONTH, OR '9TO5' FILTERS ALL DATA EXCEPT 9AM TO 5PM, OR '5TOM' FILTERS ALL DATA EXCEPT 5PM TO MIDNIGHT, OR 'COUR' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS BEGINNING WITH "1", "2", OR "3", OR 'UGRD' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS 1AWA, 1BF4, 1AAA, 1AGA, 1APA, 1AVA, 1CXA, OR 1HGA. 4) 'REST' RESTORE DATA (CHECKPOINT) FROM SAVE, OR 'SAVE' SAVE (CHECKPOINT) DATA ON SAVE, OR 'USER' SAVE NUM OF USERS VERSUS TIME DATA ONLY ON SAVE, OR 'CPU.' SKIP EVERYTHING EXCEPT JOBS PROGRAM STATISTICS, OR 'NONE' NONE OF ABOVE 5) 'CPU' PROCESS JOBS STATISTICS DATA (SEE COMP 413/11), 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) 1 FRI AUG 02/96 19:04:25 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 9) DEBUG='1'B PRODUCES GENERAL DEBUG OUTPUT. PRINTS FOR ONLY N RECORDS IF TESTCOUNT GIVEN. AT UM, THE NORMAL INPUT LINE USED IS: 'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE'; 0 Referenced by comments of: 413/11 00326/02 STAT MONTHLY SUMMARY PPAGES SUBR SP W041:STATP17.S(2000,2999) D3.2T1 172 STAT_MONTHLY_SUMMARY.PPAGE.SP.02 1 LINE 99 26 PAGE UM DWB MAR. 21, 1975 01:24:18 0 SUBROUTINES CALLED BY MAIN PROGRAM. 00326/03 STAT MONTHLY SUMMARY CPUSE SUBR SP W041:STATP17.S(3000,3999) D3.2T1 173 STAT_MONTHLY_SUMMARY.CPUSE.SP.03 1 LINE 99 26 PAGE UM DWB MAR. 21, 1975 01:24:20 0 SUBROUTINE WHICH READS JOBS STATISTICS DATA (SEE COMP 413/11) AND PRINTS THE RESULTS. CALLED ONLY IF 'CPU' IS SPECIFIED FOR THE FIFTH PARAMETER. 00326/04 STAT MONTHLY SUMMARY SETRATE SP W041:STATP17.S(4000,4999) D3.2T1 174 STAT_MONTHLY_SUMMARY.SETRA.SP.04 1 LINE 99 26 PAGE UM DWB MAR. 21, 1975 01:24:32 0 SUBROUTINE THAT FILLS IN A RATE STRUCTURE BY CALLING GETRATES. HAS BUILT-IN ASSUMPTION OF HOW RATE NUMBER IS COMPUTED. LINE 4034 IS THE FORMULA. 326/1 USES THE BUILT-IN OLD RATES, BUT CALLS SETRATE TO DYNAMICALLY CONSTRUCT THE CURRENT RATES. 00326/05 STAT MONTHLY SUMMARY GETRATE SA W041:GETRATE(1,999) D3.2T1 175 STAT_MONTHLY_SUMMARY.GETRA.SA.05 1 LINE 80 1 PAGE UM DWB MAR. 21, 1975 01:24:35 0 SINCE PL1 IS UNABLE TO CALL AN EXTERNAL NAME OF 8 CHARACTERS (IT MODIFIES THE 8 CHARACTER NAME GETRATES INTO A 7 CHARACTER NAME), THIS 3 LINE ROUTINE DEFINES AN EXTERNAL NAME WHICH IS THAT 7 CHARACTER FORM FOR GETRATES AND THEN CALLS GETRATES. 00326/06 STAT MONTHLY SUMMARY GETRATE OC W041:GETRATE(1000) D3.2T1 176 STAT_MONTHLY_SUMMARY.GETRA.OC.06 1 LINE 80 1 PAGE UM DWB MAR. 21, 1975 01:24:38 00326/07 STAT MONTHLY SUMMARY OBJECT OC W041:STATP17.O D3.2T1 177 STAT_MONTHLY_SUMMARY.OBJEC.OC.07 1 LINE 80 65 PAGE UM DWB MAR. 21, 1975 01:24:40 00327 XPLBNF D # (SEE COMP 318) UM 00328/01 ALLLINES SA # (OBSOLETE) D2T1 264 UM 00328/02 ALLLINES O # (OBSOLETE) D2T1 265 UM 00329 *SKELETON # (SEE COMP 318) UM 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00330/01 ABKGET SP O W041:ABKGET.S4 D3T2 265 ABKGET..SP.1 1 LINE 80 3 PAGE UM DWB JULY 31, 1973 23:08.45 0 PROGRAM TO SORT AND TABULATE TERMINAL ANSWERBACK STATISTICS FROM *STATISTICS DATA. 00330/02 ABKGET OC O W041:ABKGET.O4 D3T2 266 ABKGET..OC.2 1 LINE 80 5 PAGE UM DWB JULY 31, 1973 23:08.47 00331 INITLOG # (SEE COMP 097) UM 00332 UPGEN S # (OBSOLETE) UM 00333 5LINE S # (OBSOLETE) UM 00334/01 *SNOBOL4B S4 SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 1 D3T2 267 SNOBOL4B.S4.SA.1 1 SEQ 80 107 PAGE UM DE JONG JULY 31, 1973 23:13.39 0 BELL LABS SOURCE FOR VERSION 3.6 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.6). 00334/02 *SNOBOL4B SUBR SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 6 D3T2 268 SNOBOL4B.SUBR.SA.2 1 SEQ 80 49 PAGE UM DE JONG JULY 31, 1973 23:14.01 0 BELL LABS SOURCE FOR SUBROUTINES. 00334/03 *SNOBOL4B BASIC MACROS SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 4 D3T2 269 SNOBOL4B.BASIC_MACROS.SA.3 1 SEQ 80 41 PAGE UM DE JONG JULY 31, 1973 23:14.15 0 BELL LABS SOURCE FOR BASIC MACROS. 00334/04 *SNOBOL4B NEW MACROS SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 3 D3T2 270 SNOBOL4B.NEW_MACROS.SA.4 1 SEQ 80 5 PAGE UM DE JONG JULY 31, 1973 23:14.21 0 BELL LABS SOURCE FOR NEW MACROS. 00334/05 *SNOBOL4B CLEANIO SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 5 D3T2 271 SNOBOL4B.CLEANIO.SA.5 1 SEQ 80 8 PAGE UM DE JONG JULY 31, 1973 23:14.24 0 BELL LABS SOURCE FOR CLEANIO. 00334/06 *SNOBOL4B UPDATE UU S0721 'D3T2' FSNAME=SNOBOL4B.UPDATE.UU.6 272 D3T2 272 SNOBOL4B.UPDATE.UU.6 1 LINE 80 21 PAGE UM DE JONG JULY 30, 1973 03:32.45 0 *UPDATE DECK TO MODIFY BELL LABS SOURCE TO MAKE THE NECESSARY CHANGES TO RUN IT IN MTS. 00334/07 *SNOBOL4B OBJECT OE *SNOBOL4B D3T2 273 SNOBOL4B.OBJECT.O.7 1 SEQ 32767 37 PAGE UM DE JONG JULY 31, 1973 23:14.34 00334/08 *SNOBOL4B MACLEAN # (SEE COMP 182) UM DE JONG 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00334/09 *SNOBOL4B WRITEUP WF # (SEE COMP 182) UM DE JONG 00335/01 *DITTO SA G DTTO S0721 'D3T2' FSNAME=DITTO..SA.1 274 D3T2 274 DITTO..SA.1 1 LINE 80 8 PAGE UM LIFT JULY 31, 1973 23:14.38 0 PROGRAM TO PRODUCE DITTO (OR OTHER DUPLICATING PROCESS) MASTERS ON A 2741 OR 1050. 00335/02 *DITTO OL G *DITTO D3T2 275 DITTO..OL.2 1 SEQ 1874 1 PAGE UM LIFT JULY 31, 1973 23:14.40 00336/01 SPL SUBMONITOR SA S0721 'D3T2' FSNAME=SPL.SUBMONITOR.SA.1 277 D3T2 277 SPL.SUBMONITOR.SA.1 1 SEQ 80 21 PAGE UM SALISBURY JULY 31, 1973 23:16.06 0 UNMODIFIED UBC PROGRAM TO INTERFACE SPL TO MTS (UNCHANGED SINCE DIST 2.0). PROGRAM LOADS SPL COMPILER FROM *SPLCOMPILER WHICH IS AN XPL OBJECT FILE. 0 Referenced by comments of: 318/3 00336/02 SPL TRACE SA # (SEE COMP 318) UM SALISBURY 0 TRACE PROGRAM. 00336/03 SPL OBJECT OC *SPL D3T2 278 SPL.OBJECT.OC.3 1 LINE 80 6 PAGE UM SALISBURY JULY 31, 1973 23:16.08 0 OBJECT FOR INTERFACE (WITH PATCH FOR VM SIZE) AND TRACE. 00336/04 SPL COMPILER SX S0721 'D3T2' FSNAME=SPL.COMPILER.SX.4 279 D3T2 279 SPL.COMPILER.SX.4 1 SEQ 80 160 PAGE UM SALISBURY JULY 31, 1973 23:16.33 0 THE STUDENT PROGRAMMING LANGUAGE COMPILER FROM STANFORD BY WAY OF UNIV OF BRITISH COLUMBIA. THIS IS NOT THE SHARE DISTRIBUTION OF SPL, BUT RATHER AN EARLIER ONE BY SOME OTHER ROUTE. IT HAS HOWEVER BEEN WORKED ON BY UNIV OF MICH AND SOME OF THE MORE IMPORTANT BUGS IN THE EARLY VERSION WERE FIXED. THIS FILE CONTAINS THE CURRENT UM XPL SOURCE. UNCHANGED SINCE DIST 2. 00336/05 SPL COMPILER O *SPLCOMPILER D3T2 280 SPL.COMPILER.O.5 1 SEQ 240 49 PAGE UM SALISBURY JULY 31, 1973 23:16.49 0 XPL FORMAT OBJECT FILE FOR SPL COMPILER. 00337/01 PRINT TRACE SA G PTTR MTA:PRINTTRACE(1,999) D3.2T1 178 PRINT_TRACE..SA.01 1 LINE 80 9 PAGE UM MTA MAR. 21, 1975 01:24:52 0 SUBROUTINE TO PRINT TRACE TABLE ENTRIES FROM DUMP TAPE OR STAT JOB TAPE. TO GET TRACE TABLE ON STAT JOB TAPE TYPE "TRCTP" ON OPERATORS CONSOLE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 400/1, 400/2 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00337/02 PRINT TRACE OC G MTA:PRINTTRACE(1000,1999) D3.2T1 179 PRINT_TRACE..OC.02 1 LINE 80 6 PAGE UM MTA MAR. 21, 1975 01:24:55 00338/01 RIPPLE PN/QN SA O RPLE MTA:RIPPLE(1,999) D3T2 283 RIPPLE.PN/QN.SA.1 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 23:16.59 0 PROGRAM TO RIPPLE PRINT ON A PN OR QN PRINTER. USEFUL FOR CLEANING A TRAIN OR CHECKING OUT A PRINTER. OLTS (458) DOES A BETTER JOB. 00338/02 RIPPLE PN/QN OC O MTA:RIPPLE(1000) D3T2 284 RIPPLE.PN/QN.OC.2 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 23:17.00 00338/03 RIPPLE *RIP C *RIP D3T2 285 RIPPLE.*RIP.C.3 1 LINE 36 1 PAGE UM MTA JULY 31, 1973 23:17.03 0 COMMAND FILE TO RUN MTA:RIPPLE(1000). INVOKED BY ENTERING "MTS *RIP , PTRX" ON THE OPERATOR'S CONSOLE, WHERE PTRX IS THE PRINTER TO BE RIPPLED. 0 Referenced by comments of: 338/6 00338/04 RIPPLE TN SA O TNRP MTA:TNRIP(1,999) D3T2 286 RIPPLE.TN.SA.4 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 23:17.05 0 SAME AS 338/1 EXCEPT FOR TN PRINTERS. 00338/05 RIPPLE TN OC O MTA:TNRIP(1000) D3T2 287 RIPPLE.TN.OC.5 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 23:17.07 00338/06 RIPPLE *TNR C *TNR D3T2 288 RIPPLE.*TNR.C.6 1 LINE 18 1 PAGE UM MTA JULY 31, 1973 23:17.09 0 SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000). 00339 WRITE80 S # (OBSOLETE) D2T1 165 UM 00340/01 READRESTP SA O RDRS MTA:READRESTP(1,94) D3T2 289 READRESTP..SA.1 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 23:17.11 0 PROGRAM WHICH WILL READ A 2311 OR 2314 DUMP/RESTORE TAPE AND EXTRACT THINGS FROM AN OS PDS. IT PRODUCES OUTPUT THAT CAN BE USED AS INPUT TO *UNLINKER (562). IT SHOULD BE RUN WITH SDS AS IT READS NO PARAMETERS BUT EXPECTS THEM TO BE MODIFIED IN CORE. IT WILL READ EITHER A LOAD MODULE OR A CARD IMAGE MEMBER. 00340/02 READRESTP SUBROUTINE SA O SUBR MTA:READRESTP(95) D3T2 290 READRESTP.SUBROUTINE.SA.2 1 LINE 80 5 PAGE UM MTA JULY 31, 1973 23:17.13 0 SUBROUTINE CALLED BY 340/1. 00340/03 READRESTP O # (NOT DISTRIBUTED) UM MTA 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00341/01 RDRSTP UNLINK SA # (OBSOLETED BY *UNLINKER) D2T1 168 UM 00341/02 RDRSTP BLKRTN SA # (OBSOLETED BY *UNLINKER) D2T1 169 UM 00342 LIBPRINT S # (OBSOLETE) D2T1 171 UM 00343 MTS.CONTAB SA G COPY:MTS.CONTAB D3.2T1 180 MTS.CONTAB..SA. 1 LINE 80 4 PAGE UM DWB MAR. 21, 1975 01:24:57 0 THIS IS "COPY:MTS.CONTAB" WHICH IS COPIED BY ALL PROGRAMS THAT USE THE MTS DSECT. COPY:LLMPSEQU (087) AND COPY:MTS.EQU (345) MUST BE COPIED BEFORE THIS FILE CAN BE COPIED. 0 Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 354/1, 462/1, 464/1, 531/1, 539/1, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1, 651/10 00344 MTS.MACROS SM G MMAC COPY:MTS.MACROS D3.2T1 181 MTS.MACROS..SM. 1 LINE 80 7 PAGE UM DWB MAR. 21, 1975 01:24:59 0 THIS IS "COPY:MTS.MACROS" WHICH IS USED TO ASSEMBLE MTS (042) AND THE "MTS SUBROUTINES": KWIC (040), GETSPACE/FREESPAC (041), GUINFO/CUINFO (198), LLXU (354), CHECKSUM (462), PLIMIT (464), TIMNTRP (539), AND RSF (578), FSUB (635), CMDS (636), DSRS (637), USUB (638), AND DSRI (639). IN ADDITION, THESE MACROS ARE USED BY CMDSTAT (531/1), CMDPIKUP (531/4), AND CMDTAPE (531/8). 0 Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 354/1, 462/1, 464/1, 539/1, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1 00345 MTS.EQU SA G COPY:MTS.EQU D3.2T1 182 MTS.EQU..SA. 1 LINE 80 4 PAGE UM DWB MAR. 21, 1975 01:25:01 0 THIS IS "COPY:MTS.EQU" WHICH IS COPIED BY ALL PROGRAMS WHICH USE THE MTS DSECT. IT ENDS WITH A "$CONTINUE WITH COPY:MTS.EQU2" (347). 0 Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 343/1, 354/1, 462/1, 464/1, 531/1, 531/4, 531/8, 539/1, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1, 651/10 00346 MTS.DSECT SA G COPY:MTS.DSECT D3.2T1 183 MTS.DSECT..SA. 1 LINE 80 20 PAGE UM DWB MAR. 21, 1975 01:25:03 0 THIS IS "COPY:MTS.DSECT" WHICH IS A COPY SECTION FOR THE MAIN MTS DSECTS. CONTAINS THE FOLLOWING CONTINUE WITH'S: $CONTINUE WITH COPY:UBCDSECTS RETURN (645) $CONTINUE WITH COPY:WOPTRDSECT RETURN (624) $CONTINUE WITH COPY:FCBDSECT RETURN (622) $CONTINUE WITH COPY:FDUBDSECT RETURN (623) $CONTINUE WITH COPY:CLSAREA RETURN (641) AND $CONTINUE WITH COPY:STATDSECT RETURN (620) 0 Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 354/1, 462/1, 464/1, 531/1, 539/1, 578/1, 635/1, 636/1, 637/1, 638/1, 639/1, 641/1, 645/1, 651/10 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00347 MTS.EQU2 SA G COPY:MTS.EQU2 D3.2T1 184 MTS.EQU2..SA. 1 LINE 81 4 PAGE UM DWB MAR. 21, 1975 01:25:08 0 THIS IS "COPY:MTS.EQU2" WHICH IS THE SECOND SECTION OF THE MTS EQUALITIES. THIS IS THE ONLY SECTION COPIED BY HASP. 0 Referenced by comments of: 345/1, 482/44 00348 MTS.RHTABLE SA G COPY:MTS.RHTABLE D3.2T1 185 MTS.RHTABLE..SA. 1 LINE 80 3 PAGE UM DWB MAR. 21, 1975 01:25:10 0 "COPY:MTS.RHTABLE" DEFINES THE RIGHT HAND TABLE FOR THE KWIC CALLS BY MTS. COPIED BY MTS (042) AND KWIC (040). 0 Referenced by comments of: 40/1, 42/1 00349 OPEROPEROPER # (OBSOLETE) UM 00350 BLOCKLETTER SA # (OBSOLETE) D2T1 252 UM 00351 DCVD SUBROUTINE # (SEE COMP 084) UM 00352 DCVC SUBROUTINE # (SEE COMP 084) UM 00353/01 BABYSIT SA O BBST WSG:BBSIT(1,999) D3T2 297 BABYSIT..SA.1 1 LINE 80 4 PAGE UM WSG JULY 31, 1973 23:17.28 0 PROGRAM TO WATCH FOR SPECIFIED USERS TO SIGNON OR SIGNOFF. USEFUL FOR CATCHING A PIRATE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). 00353/02 BABYSIT OC O WSG:BBSIT(1000) D3T2 298 BABYSIT..OC.2 1 LINE 80 1 PAGE UM WSG JULY 31, 1973 23:17.30 00353/03 BABYSIT *BBS C *BBS D3T2 299 BABYSIT.*BBS.C.3 1 LINE 67 1 PAGE UM WSG JULY 31, 1973 23:17.32 0 COMMAND FILE INVOKED BY ENTERING "MTS *BBS" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "OPER" AND RUNS WSG:BBSIT(1000) WITH I/O ON THE OPERATOR'S CONSOLE. 00354/01 LLXU D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=LLXU 7 D3T2 300 LLXU..SA.1 1 SEQ 80 31 PAGE UM DWB JULY 31, 1973 23:19.10 0 LOAD/LINK/XCTL/UNLOAD SUBROUTINES, THE INTERFACE BETWEEN MTS AND UMLOAD. COPIES COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:CLSPLAN (535/1), COPY:MTS.DSECT (346), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640). NEEDS MACROS IN COPY:MTS.MACROS (344). 0 Referenced by comments of: 344/1, 354/2 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00354/02 LLXU UPDATE UU G MTS:LLXUUPD D3.2T1 186 LLXU.UPDATE.UU.02 1 LINE 71 10 PAGE UM DWB MAR. 21, 1975 01:25:11 0 UPDATE TO D3 MASTER (354/1) TO PRODUCE CURRENT SOURCE. UPDATE DECK USES %POSN *IN* LLXU. 00354/03 LLXU OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00354/04 LLXU LLXUTEST SA W009:LLXUTEST.S D3.1T1 249 LLXU.LLXUTEST.SA.4 1 LINE 60 5 PAGE UM DE JONG MAR. 06, 1974 03:52.20 0 PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD. ASSEMBLE USING THE 354/6 MACRO LIBRARY. 0 Referenced by comments of: 354/6 00354/05 LLXU LLXUTEST OC W009:LLXUTEST.O D3.1T1 250 LLXU.LLXUTEST.OC.5 1 LINE 80 4 PAGE UM DE JONG MAR. 06, 1974 03:52.23 00354/06 LLXU MACROS SM W009:MACROS D3T2 303 LLXU.MACROS.SM.5 1 LINE 44 1 PAGE UM DE JONG JULY 31, 1973 23:19.18 0 MACROS USED TO ASSEMBLE LLXUTEST (354/4). 00355/01 STATSCN SA G STSC WSG:STATSCN(1,999) D3T2 304 STATSCN..SA.1 1 LINE 80 7 PAGE UM WSG JULY 31, 1973 23:19.20 0 PROGRAM TO READ THROUGH *STATISTICS DATA (FROM FILE OR TAPE) LOOKING FOR SPECIFIED USER ID-DATE COMBINATIONS. RECORDS FOR ANY OF THE SPECIFIED USERS ON THE SPECIFIED DATES ARE WRITTEN ON SPUNCH. FOR EXAMPLE: $RUN STATSCN(1000) SPUNCH=-F WSG. 05-08-73 STRT 04-XX-73 DONE *TAPE* *STATISTICS DONE WILL SCAN THROUGH THE TAPE *TAPE* AND THE FILE *STATISTICS LOOKING FOR ALL STATISTICS RECORDS FOR USER "WSG." ON 8 MAY 1973 AND USER "STRT" ON ANY DAY IN APRIL 1973 (NOTE THAT XX'S MAY BE USED IN ANY FIELD(S) OF THE DATE OR "XXXX" GIVEN TO ACCEPT ANY USER ID). THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE). THE LISTSTAT PROGRAM (071) CAN BE USED TO PRINT THE STATISTICS RECORDS. FOR EXAMPLE: $RUN LISTSTAT(1000) SCARDS=-F COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:STATDSECT (620). 00355/02 STATSCN OC G WSG:STATSCN(1000) D3T2 305 STATSCN..OC.2 1 LINE 80 2 PAGE UM WSG JULY 31, 1973 23:19.25 00357/01 RCALL SA G RCAL S0721 'D3T2' FSNAME=RCALL..SA.1 306 D3T2 306 RCALL..SA.1 1 SEQ 80 2 PAGE UM ENGLE JULY 31, 1973 23:20.43 0 SUBR TO ALLOW FORTRAN PROGRAMS TO CALL SUBROUTINES WITH R TYPE CALLING SEQUENCES, E.G. GETFD. 1 FRI AUG 02/96 19:04:25 Page 106 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 UNCHANGED FROM DIST 2.0. 00357/02 RCALL OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00358/01 *TAPECOPY SA G TPCP WSG:TAPECOPY(1,999) D3.2T1 187 TAPECOPY..SA.01 1 LINE 80 17 PAGE UM WSG MAR. 21, 1975 01:25:14 0 MULTIPLE FILE TAPE COPY PROGRAM. COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK. 00358/02 *TAPECOPY OC G *TAPECOPY D3.2T1 188 TAPECOPY..OC.02 1 LINE 80 3 PAGE UM WSG MAR. 21, 1975 01:25:19 00359 SORT SUBROUTINE # (SEE COMP 303) UM 00360/01 TIME SUBROUTINE SA G TIME S0721 'D3T2' FSNAME=TIME_SUBROUTINE..SA.1 309 D3T2 309 TIME_SUBROUTINE..SA.1 1 LINE 80 6 PAGE UM ENGLE JAN. 05, 1973 12:33.55 0 SUBROUTINE TO DO THINGS WITH THE TIME, BOTH CPU AND ELAPSED. 00360/02 TIME SUBROUTINE OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00361 BAIR S # (NOT DISTRIBUTED) D2T1 397 UM HARDING 0 SUBR TO USE BAIRSTOWS ITERATION METHOD TO REFINE THE COEFFICIENTS OF A QUADRATIC FACTOR OF AN N DEGREE POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00362 DAINT S # (NOT DISTRIBUTED) D2T1 398 UM HARDING 0 INTERPOLATION SUBR IN LONG PRECISION. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00363 GRAND S # (NOT DISTRIBUTED) D2T1 399 UM HARDING 0 SUBR TO GENERATE NORMALLY DISTRIBUTED RANDOM NUMBERS. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00364 JESS S # (NOT DISTRIBUTED) D2T1 400 UM HARDING 0 SUBR IMPLENTING THE JACOBI METHOD FOR THE EIGENVALUE PROBLEM. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00365 LINC S # (NOT DISTRIBUTED) D2T1 401 UM HARDING 0 SUBR TO COMPUTE THE LAGUERRE INCREMENT. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00366 QDIV S # (NOT DISTRIBUTED) D2T1 402 UM HARDING 0 SUBROUTINE TO DIVIDE A POLYNOMIAL BY A QUADRATIC FACTOR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00367 SAINT S # (NOT DISTRIBUTED) D2T1 403 UM HARDING 0 SHORT PRECISION INTERPOLATION. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00368 SINV S # (NOT DISTRIBUTED) D2T1 404 UM HARDING 0 MATRIX INVERSION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00369 SINV1 S # (NOT DISTRIBUTED) D2T1 405 UM HARDING 0 SUBR TO INVERT A LOWER TRIANGULAR MATRIX. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00370 SLRD S # (NOT DISTRIBUTED) D2T1 406 UM HARDING 0 SUBR FOR DECOMPOSITION OF A SQUARE SYMMETRIC MATRIX. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00371 TSEP S # (NOT DISTRIBUTED) D2T1 407 UM HARDING 0 SUBR FOR TAYLOR SERIES EXPANSION OF A POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00372 URAND S # (NOT DISTRIBUTED) D2T1 408 UM HARDING 0 SUBR TO GENERATE UNIFORMALLY DISTRIBUTED RANDOM NUMBERS. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00373 ZLOOK S # (NOT DISTRIBUTED) D2T1 409 UM HARDING 0 SUBR TO SEARCH THE UPPER PLANE FOR A ROOT OF AN N DEGREE POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00374 ZPOLY S # (NOT DISTRIBUTED) D2T1 410 UM HARDING 0 SCRATCH STORAGE FOR ZPOLY2 (375) APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00375 ZPOLY2 S # (NOT DISTRIBUTED) D2T1 411 UM HARDING 0 SUBR TO FIND ALL ZEROS OF A POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 0 Referenced by comments of: 374/1 00376 ZPR S # (NOT DISTRIBUTED) D2T1 412 UM HARDING 0 SUBR TO FIND A ZERO OF A POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00377 ZQUAD S # (NOT DISTRIBUTED) D2T1 413 UM HARDING 0 SUBR TO FIND ROOTS OF A QUADRATIC. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00385 CATALOG SUBR # (SEE COMP 482) UM 00386 READ/WRITE SEQUENTIAL # (SEE COMP 482) UM 00387/01 HASP D3 MASTER SA G S0644 HASP3S 'HASP DISTR 3.0 SOURCE' 1 D3T2 310 HASP.MASTER_SOURCE.SA.1 1 SEQ 80 383 PAGE UM DWB AUG. 02, 1973 02:25.09 0 HASP MASTER SOURCE FOR DIST 3. THIS IS THE COMPLETE SOURCE FOR MTS HASP VERSION D3, WHICH IS DERIVED FROM IBM HASP II VERSION 2.3. THIS VERSION OF HASP DOES NOT REQUIRE *OSMAC FOR ASSEMBLY. THIS VERSION NOW USES THE SLT (SEARCH LIST) INSTRUCTION, OPTIONALLY (&NOSLT), TO SEARCH PCE'S, DCT'S, AND MESSAGE BLOCKS. COPIES COPY:JOBSTA (413/14), COPY:LLMPSEQU (087), COPY:WOPTRDSECT (624), COPY:FCBDSECT (622), AND COPY:FDUBDSECT (623). 0 Referenced by comments of: 243/1, 387/2 00387/02 HASP UPDATE UU G MTS:HASPUPDATES D3.2T1 189 HASP.UPDATE.UU.02 1 LINE 77 17 PAGE UM DWB MAR. 21, 1975 01:25:21 0 UPDATE DECK TO PRODUCE CURRENT SOURCE FROM D3 HASP MASTER SOURCE (387/1). HASP NOW USES THE SYSPARM PARAMETER TO SET CERTAIN ASSEMBLY PARAMETERS. THIS IS USED BY SPECIFYING $RUN *ASMG . . . PAR=SYSPARMS='P1,P2,...', . . . WHERE P1, P2, ETC. ARE THE VALUES FOR THE PARAMETERS (IN ORDER). OMITTED PARAMETERS ASSUME DEFAULT VALUES. PARAMETER DEFAULT NUMRDRS 2 NUMPRTS 4 NUMPUNS 1 NUMRJE 21 NUMCONS 3 1 FRI AUG 02/96 19:04:25 Page 109 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 MAX2314 0 MAX7330 1 MAXXEQS 25 MAXJOBS 600 NUMBUF 100 TIMER YES NUMTPBUF 50 BSC2780 YES BSCCPU YES UM YES OMR YES NOSLT 0 NOTE: THIS UPDATE CAUSES COPY:GLOBALDEFS (1026/1) AND COPY:GLOBALSETS (1026/2) TO BE COPIED IN ADDITION TO THE ITEMS LISTED FOR 387/1. 00387/03 HASP OC G SEG2:HASP D3.2T1 190 HASP..OC.03 1 LINE 80 39 PAGE UM DWB MAR. 21, 1975 01:25:29 0 THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL. THIS FILE ALSO CONTAINS THE HASPLING OBJECT. CONTAINS REPS TO CHANGE SEVERAL REMOTE STATION PARAMETERS AND TO ADD A 'BPI' TO THE LINE MANAGER TO RECOVER AFTER SDA ERRORS. 00387/04 HASP HRTP1130 SA G 1130 MTS:HRTP1130.U D3T2 318 HASP.HRTP1130.SA.10 1 LINE 80 169 PAGE UM JWS AUG. 02, 1973 02:30.40 0 REMOTE TERMINAL PROGRAM FOR 1130. THIS IS THE OS VERSION WITH A FEW BUGS FIXED. 00387/05 HASP HRTPLOAD SA G LOAD MTS:HRTPLOAD.U D3T2 319 HASP.HRTPLOAD.SA.11 1 LINE 80 37 PAGE UM JWS AUG. 02, 1973 02:31.04 0 LOADER FOR REMOTE 1130 PROGRAM. THIS IS THE OS VERSION WITH A FEW BUGS FIXED. 00387/06 HASP HRPTB360 SA G B360 MTS:HRTPB360.U D3T2 320 HASP.HRPTB360.SA.12 1 LINE 80 105 PAGE UM JWS AUG. 02, 1973 02:31.10 0 REMOTE PROGRAM FOR 360'S (BOTH MODEL 20 AND OTHER). THIS IS THE OS VERSION WITH BUGS FIXED. NOTE: THIS REMOTE PROGRAM IS FROM HASP II VERSION 3.1, ALTHOUGH IT WORKS OK WITH MTS HASP D3.0 (WHICH WAS DERIVED PRINCIPALLY FROM HASP II VERSION 2.3). 00387/07 HASP HRTPSYS3 SA G SYS3 MTS:HRTPSYS3.U D3T2 321 HASP.HRTPSYS3.SA.13 1 LINE 80 98 PAGE UM JWS AUG. 02, 1973 02:31.26 0 REMOTE PROGRAM FOR IBM SYSTEM/3. HERE AGAIN, THIS VERSION IS FROM HASP II VERSION 3.1. 00387/08 HASP RTPBOOT B G W092:RTPBOOT D3T2 322 HASP.RTPBOOT.B.14 1 LINE 160 1 PAGE UM JWS AUG. 02, 1973 02:31.40 0 BOOTSTRAP LOADER FOR 1130 REMOTE PROGRAM. 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. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00387/09 HASP LETRRIP SA G LETI S0721 'D3T2' FSNAME=HASP.LETRRIP.SA.15 323 D3T2 323 HASP.LETRRIP.SA.15 1 LINE 80 2 PAGE UM MTA AUG. 02, 1973 02:31.42 0 PARTIAL SOURCE FOR AN MTS PROGRAM TO CONVERT 1130 OBJECT PROGRAMS ASSEMBLED BY *ASMG FROM ASMG OBJECT FORMAT TO 1130 BINARY OBJECT CARD FORMAT. READS FROM SCARDS, WRITES ON SPUNCH. 00387/10 HASP LETRRIP OC G S0721 'D3T2' FSNAME=HASP.LETRRIP.OC.16 324 D3T2 324 HASP.LETRRIP.OC.16 1 LINE 80 6 PAGE UM MTA AUG. 02, 1973 02:31.44 0 OBJECT IS IN 3 PARTS: (1) THE OS/360 OBJECT FOR LETRRIP FROM HASP WITH REP CARDS TO PATCH ALL OS SVC'S INTO INVALID OP-CODES (TO PRODUCE PROGRAM INTERRUPTS WHICH CAN BE FIELDED), (2) THE OBJECT FROM 387/9, AND (3) THE OBJECT FOR THE ALGOL COMPILER (OR LIBRARY) MTS INTERFACE (COMP 505/2 OR 505/22). 00387/11 HASP *HSP C *HSP D3T2 325 HASP.*HSP.C.17 1 LINE 9 1 PAGE UM WSG AUG. 02, 1973 02:31.47 0 COMMAND FILE WHICH SIGNS ON AND SOURCES TO STRT:HSP (387/12). INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE. 00387/12 HASP STRT:HSP C STRT:HSP D3.1T1 255 HASP.STRT:HSP.C.12 1 LINE 23 1 PAGE UM WSG MAR. 06, 1974 03:52.44 0 THIS FILE ISSUES BUNCHES OF HASP COMMANDS ($START ET AL). THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE I/O GEAR IN USE AT EACH INSTALLATION. 0 Referenced by comments of: 387/11 00387/13 HASP *DRN C *DRN D3T2 327 HASP.*DRN.C.19 1 LINE 9 1 PAGE UM WSG AUG. 02, 1973 02:31.51 0 COMMAND FILE WHICH SIGNS ON AND SOURCES TO STRT:DRN (387/14). INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE. 00387/14 HASP STRT:DRN C STRT:DRN D3.1T1 256 HASP.STRT:DRN.C.14 1 LINE 13 1 PAGE UM WSG MAR. 06, 1974 03:52.45 0 THIS FILE ISSUES "$DRAIN SAXX" HASP COMMANDS. THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE SDA LINES AVAILABLE (IF ANY) AT EACH INSTALLATION. 0 Referenced by comments of: 387/13 00387/15 HASP OPER MANUAL WF MTS:HASPMANUAL D3T2 329 HASP.OPER_MANUAL.WF.21 1 LINE 152 24 PAGE UM DWB AUG. 02, 1973 02:31.55 0 MTS HASP OPERATOR'S MANUAL. NOTE: SEE ALSO THE MAIN MTS OPERATOR'S MANUAL (592). 00387/16 HASP INSTALLATION WF MTS:HASPCHANGES D3T2 330 HASP.INSTALLATION.WF.22 1 LINE 126 6 PAGE UM DWB AUG. 02, 1973 02:32.01 0 NOTES DESCRIBING MTS IMPLEMENTATION AND INSTALLATION OF HASP. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00387/17 HASP ASM JOB C MTS:HASPASM UM DWB 0 BATCH JOB TO ASSEMBLE HASP -- START AT LINE 1 FOR 360; LINE 1000 FOR 370. 00388/01 HASPLING SA G HSPL MTS:HASPLING.370(1,999) D3.2T1 191 HASPLING..SA.01 1 LINE 80 18 PAGE UM MTA MAR. 21, 1975 01:25:32 0 NEW MASTER SOURCE FOR THE HASPLING. COPIES COPY:GLOBALS (1026/4). ASSEMBLE USING COPY:SETPARM (653). NOTE: &S370 CAUSES THE 360 AND 370 OBJECT TO BE DIFFERENT. 00388/02 HASPLING 370 OBJECT OC G # (PART OF 387/3) UM MTA 00388/03 HASPLING 360 OBJECT OC G = ??? UM MTA 00389/01 *GENLIB SA G GENL W062:GENLIB.S D3T2 332 GENLIB..SA.1 1 SEQ 80 32 PAGE UM TIFFANY AUG. 02, 1973 02:32.09 0 OBJECT LIBRARY GENERATOR PROGRAM. 00389/02 *GENLIB OE G *GENLIB D3T2 333 GENLIB..O.2 1 LINE 255 4 PAGE UM TIFFANY AUG. 02, 1973 02:32.15 00390/01 *QUE SA G HSPQ S0721 'D3T2' FSNAME=QUE..SA.1 334 D3T2 334 QUE..SA.1 1 SEQ 80 2 PAGE UM PIRKOLA AUG. 02, 1973 02:35.17 0 PROGRAM TO PRINT OUT HASP QUEUE. 00390/02 *QUE OC G *QUE(3,26) D3T2 335 QUE..OC.2 1 LINE 80 1 PAGE UM PIRKOLA AUG. 02, 1973 02:35.17 00391 FILE STATISTICS SP # (OBSOLETE) D2T1 123 UM 00392 *FSAVE SA # (OBSOLETED BY COMP 548) D2.2 116 UM 0 Referenced by comments of: 549/1 00393 TRIP S # (NOT DISTRIBUTED) D2T2 199 UBC HOGG 0 TRIANGLULAR REGRESSION PROGRAM FROM UBC. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00394 UBC TAPE ROUTINES S # (OBSOLETE) D2T1 102 UBC 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00395 UBC MOUNT S # (OBSOLETE) D2T1 256 UBC 00396 UBC DISMOUNT S # (OBSOLETE) UBC 00397 UBC LABEL FULL TAPE S # (OBSOLETE) D2T1 179 UBC 00398 UBC LABEL EMPTY TAPE S # (OBSOLETE) D2T1 181 UBC 00399/01 SYSTEM DUMP SA G DUMP MTA:DUMP(1,999) D3.2T1 192 SYSTEM_DUMP..SA.01 1 LINE 80 13 PAGE UM MTA MAR. 21, 1975 01:25:33 0 THIS IS THE UMMPS SYSTEM DUMP PROGRAM. IT TAKES A DUMP OF ALL OF REAL MEMORY PLUS, OPTIONALLY, THE VM FOR A SPECIFIED JOB. IT WRITES THE DUMP UNFORMATED ONTO A 9-TRACK LABELED TAPE FOR WHICH THE VOLUME LABEL MUST BE 'DUMP'. THE PRINT DUMP PROGRAM (400) WILL PRINT SELECTED PARTS OF A DUMP TAPE. COPIES COPY:GLOBALS (1026/4). ASSEMBLE WITH COPY:SETPARM (653). 0 Referenced by comments of: 400/1 00399/02 SYSTEM DUMP 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00399/03 SYSTEM DUMP 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00400/01 PRINT DUMP SA G DMPL MTA:DMPLST(1,1999) D3.2T1 193 PRINT_DUMP..SA.01 1 LINE 80 39 PAGE UM MTA MAR. 21, 1975 01:25:36 0 PRINTS DUMP TAPES PRODUCED BY SYSTEM DUMP (399). IN MTS:PRINTDUMP ON RESTORE PACK. REQUIRES PRINTTRACE (337) AND IOH/360 (278) FOR THE "TRACE" COMMAND ONLY. COPIES COPY:LLMPSEQU (087), COPY:PCBDSECT (470), COPY:GLOBALDEFS (1026/1), AND COPY:GLOBALSETS (1026/2). ASSEMBLE USING *SYSMAC AND COPY:SETPARM (653). 0 Referenced by comments of: 399/1 00400/02 PRINT DUMP 370 OBJECT OC G MTA:PRINTDUMP D3.2T1 194 PRINT_DUMP.370_OBJECT.OC.02 1 LINE 80 9 PAGE UM MTA MAR. 21, 1975 01:25:44 0 NOTE: THIS FILE ALSO CONTAINS THE OBJECT FOR PRINT TRACE (337). 00400/03 PRINT DUMP 360 OBJECT OC G = ???? UM MTA 00401 MVTAB S # (NOT DISTRIBUTED) D2T2 200 UBC HOGG 0 MULTI-VARIATE TABULATION PROGRAM FROM UBC. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00402 MFAV S # (NOT DISTRIBUTED) D2T2 201 UBC HOGG 0 MULTI-FACTOR ANALYSIS OF VARIANCE FROM UBC. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00403 MFACO S # (OBSOLETE) D2T2 202 UM 00404 COLBIN S # (NOT AVAILABLE) D2T1 435 UBC HOGG 0 SUBROUTINE TO READ BINARY CARDS IN FORTRAN (BARF-- BINARY ARRAY READER FOR FORTRAN). 00405 CJDATE S # (NOT AVAILABLE) D2T1 436 UBC HOGG 0 SUBR TO CONVERT A CALENDER DATE TO A JULIAN DATE (YES STILL ANOTHER ONE). 00406 SLANCO S # (OBSOLETE) D2T1 437 UM 00407 POLY S # (OBSOLETE) D2T1 438 UM 00408 RANDLN S # (OBSOLETE) D2T1 439 UM 00409 FACTO S # (NOT DISTRIBUTED) D2T2 203 UBC HOGG 0 FACTOR ANALYSIS FROM UBC. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00410/01 *ASMTIDY SA S ASMT DWB:UD19.ATIDY.S D3.2T1 195 ASMTIDY..SA.01 1 LINE 80 15 PAGE UBC DWB MAR. 21, 1975 01:25:45 0 MODIFIED VERSION OF UBC PROGRAM TO CLEAN UP AND ENTER ASSEMBLY PROGRAMS INTO FILES. REQUIRES THAT USER "$SET SEQFCHK=OFF" IF OUTPUT IS INTO A SEQUENTIAL FILE. NOTE: THIS VERSION SHOULD BE USED IF AND ONLY IF THE MTS @NOTIFY CHANGE IS INSTALLED. 00410/02 *ASMTIDY OC S *ASMTIDY D3.2T1 196 ASMTIDY..OC.02 1 SEQ 2385 4 PAGE UBC DWB MAR. 21, 1975 01:25:50 0 CONTAINS OBJECT FOR ASMTIDY AND INFREE (308/6). >>> OBJECT PATCHED TO FIX ANOTHER BUG. <<< 00410/03 *ASMTIDY WRITEUP WF S0630 UDST1S 'UBC -> UM #20' FSNAME=ASMTIDY..WF 15 D3T2 341 ASMTIDY.WRITEUP.WF.3 1 LINE 155 2 DISK UBC DWB OCT. 26, 1972 15:28:06 0 UBC WRITEUP FOR *ASMTIDY. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00411 STAT4 S # (NOT AVAILABLE) D2T1 157 UBC HOGG 00413/01 SYSTEM STATUS ROUTINE SSRTN SA G SRTN WSG:SSRTN D3.2T1 197 SYSTEM_STATUS_ROUTINE.SSRT.SA.01 1 LINE 80 65 PAGE UM WSG MAR. 21, 1975 01:25:52 0 SYSTEM STATUS ROUTINE (SSRTN) COMPUTES SYSTEM LOAD (CPU, PAGING, DISK, AND CHANNEL ACTIVITY). CALLED BY THE "JOBS" JOB (413/4) AND THE MTS $SYSTEMSTATUS CLS (413/6) TO COMPUTE AND FORMAT PRINTED OUTPUT. ALSO HAS AN EXTERNAL ENTRY POINT (SSFMT) WHICH PRODUCES THE FORMATED OUTPUT VECTOR PRINTED BY THE L(OAD) COMMAND. THIS ENTRY IS CURRENTLY CALLED BY THE 3270 OPERATOR JOB (634/1) TO PRODUCE THE TOP LINE ON THE SCREEN. CALLS BJPMOD (650) AND TASKSTAT (647). COPIES COPY:JOBSTA (413/14), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:BJPDSCT (650/3). 0 Referenced by comments of: 19/1, 413/4, 413/6, 413/8, 647/1, 650/1 00413/02 SYSTEM STATUS ROUTINE 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00413/03 SYSTEM STATUS ROUTINE 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM WSG 00413/04 SYSTEM STATUS ROUTINE JOBS JOB SA G JOBS WSG:JOBS(1,999) D3.1T1 262 SYSTEM_STATUS_.JOBS.SA.3 1 LINE 80 4 PAGE UM WSG MAR. 06, 1974 03:53.24 0 UMMPS JOB PROGRAM (NAMED "JOBS") TO INTERFACE TO SSRTN (413/1) FROM THE JOB PROGRAM LEVEL. ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 413/1, 413/8 00413/05 SYSTEM STATUS ROUTINE JOBS JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM WSG 00413/06 SYSTEM STATUS ROUTINE SYS STAT CLS SA G SCLS WSG:SSTA.CLS(1,999) D3.2T1 198 SYSTEM_STATUS_ROUTINE.SYS.SA.06 1 LINE 80 10 PAGE UM WSG MAR. 21, 1975 01:25:57 0 $SYSTEMSTATUS CLS FOR INTERFACING WITH SSRTN (413/1) FROM MTS COMMAND LEVEL. COPIES COPY:LLMPSEQU (087), COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), COPY:CLSVECTOR (535/2), AND COPY:CLSPLAN (535/1). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 413/1, 413/8 00413/07 SYSTEM STATUS ROUTINE SYS STAT CLS OC G *CLSSSTA D3.2T1 199 SYSTEM_STATUS_ROUTINE.SYS.OC.07 1 LINE 80 1 PAGE UM WSG MAR. 21, 1975 01:26:01 0 THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY PISTLE. IF THIS IS NOT DONE MTS WILL DYNAMICALLY LOAD A PRIVATE COPY FOR EACH $SY COMMAND. 00413/08 SYSTEM STATUS ROUTINE SYS STA VECTOR SA G SVEC WSG:SSTA.VEC(1,999) D3.1T1 265 SYSTEM_STATUS_.SYS_S.SA.7 1 LINE 80 1 PAGE UM WSG MAR. 06, 1974 03:53.36 0 SYSTEM STATUS INFORMATION VECTOR MAINTAINED BY SSRTN (413/1) AND USED BY IT TO COMMUNICATE WITH THE JOBS JOB (413/4) AND THE $SYSTEMSTATUS CLS (413/6). COPIES COPY:JOBSTA (413/14). 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00413/09 SYSTEM STATUS ROUTINE SYS STA 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/10 SYSTEM STATUS ROUTINE SYS STAT SAVE C G *SSS D3.1T1 266 SYSTEM_STATUS_.SYS_S.C.9 1 LINE 26 1 PAGE UM WSG MAR. 06, 1974 03:53.38 0 COMMANDS TO SIGNON AND SOURCE TO SYS:SSS. INVOKED BY *LAS (154) OR BY ENTERING "MTS *SSS" ON OPERATORS CONSOLE. 00413/11 SYSTEM STATUS ROUTINE SYS STAT SAVE C SYS:SSS(1,99) D3.1T1 267 SYSTEM_STATUS_.SYS_S.C.10 1 LINE 86 1 PAGE UM WSG MAR. 06, 1974 03:53.41 0 COMMANDS TO RUN THE SYSTEM STATUS SAVE PROGRAM (413/12) WHICH ACCUMLATES SYSTEM LOAD INFORMATION IN A FILE (SYS:STAT), ONE LINE EVERY 20 SECONDS. THIS FILE IS AUTOMATICALLY DUMPED ONTO A TAPE PERIODICALLY. THIS INFORMATION (ON TAPE) CAN BE PROCESSED BY THE STAT MONTHLY SUMMARY PROGRAM (326). 00413/12 SYSTEM STATUS ROUTINE SAVE PGM SA G SSSV WSG:SSTA.SAVE(1,999) D3.1T1 268 SYSTEM_STATUS_.SAVE.SA.11 1 LINE 80 3 PAGE UM WSG MAR. 06, 1974 03:58.25 0 SYSTEM STATUS SAVE PROGRAM (SEE COMMENTS FOR 413/11). ASSEMBLE WITH DBS:MAC (455). 0 Referenced by comments of: 413/11 00413/13 SYSTEM STATUS ROUTINE SAVE PGM OC G SYS:SSS(100) D3.1T1 269 SYSTEM_STATUS_.SAVE.OC.12 1 LINE 80 1 PAGE UM WSG MAR. 06, 1974 03:58.27 0 Referenced by comments of: 326/1 00413/14 SYSTEM STATUS ROUTINE JOBSTA SA G JSTV COPY:JOBSTA D3.2T1 200 SYSTEM_STATUS_ROUTINE.JOBS.SA.14 1 LINE 80 3 PAGE UM WSG MAR. 21, 1975 01:26:03 0 THIS IS THE "COPY:JOBSTA" DSECT DESCRIBING THE SYSTEM STATUS VECTOR. 0 Referenced by comments of: 42/1, 121/1, 387/1, 413/1, 413/8, 650/1 00413/15 SYSTEM STATUS ROUTINE DOCUMENTATION WF WSG:SSRTN.DOC D3.2T1 201 SYSTEM_STATUS_ROUTINE.DOCU.WF.15 1 LINE 105 2 PAGE UM WSG MAR. 21, 1975 01:26:06 0 OUT-OF-DATE WRITEUP DESCRIBING THE SYSTEM JOB SCHEDULING MECHANISM. 00414/01 *TAPEDUMP SA G TDMP WSG:TAPEDUMP(1,999) D3T2 348 TAPEDUMP..SA.1 1 LINE 80 16 PAGE UM WSG AUG. 02, 1973 02:49.49 0 PROGRAM TO DUMP 7- OR 9-TRACK TAPES OR FILES. 00414/02 *TAPEDUMP OC G *TAPEDUMP D3T2 349 TAPEDUMP..OC.2 1 LINE 80 3 PAGE UM WSG AUG. 02, 1973 02:49.53 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00416 *EDEXPLAIN # (SEE COMP 324) UM 00417 *MSERIES # (SEE COMP 306) UM 00418 *HBT S # (OBSOLETED BY *...*) D2T1 183 UM 00419 LOVOC SUBR S # (OBSOLETE) UM 00420 LODEF SUBR S # (OBSOLETE) UM 00421 *SCN S # (OBSOLETED BY *...*) D2T1 199 UM 00422/01 FORTRAN LIBRARY IBCOM# SA G IBCM S0190 LJH.FS FSNAME=SOURCE.IBCOM D3T2 350 FORTRAN_LIBRARY.IBCOM#.SA.1 1 LINE 80 29 PAGE UM HARDING AUG. 02, 1973 02:49.57 0 MAIN COMMUNICATIONS MODULE OF FORTRAN LIBRARY. 00422/02 FORTRAN LIBRARY FIOCS# SA G FIOC S0190 LJH.FS FSNAME=SOURCE.FIOCS D3T2 351 FORTRAN_LIBRARY.FIOCS#.SA.2 1 LINE 80 18 PAGE UM HARDING AUG. 02, 1973 02:50.02 0 MORE I/O LIBRARY FOR FORTRAN. 00422/03 FORTRAN LIBRARY ADCON# SA O ADCN S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.ADCON#.SA.3 352 D3T2 352 FORTRAN_LIBRARY.ADCON#.SA.3 1 SEQ 80 29 PAGE UM HARDING AUG. 02, 1973 02:51.10 0 REST OF I/O LIBRARY. 00422/04 FORTRAN LIBRARY IHCNAMEL SA G NAML S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.IHCNAMEL.SA.4 353 D3T2 353 FORTRAN_LIBRARY.IHCNAMEL.SA.4 1 SEQ 80 17 PAGE UM HARDING AUG. 02, 1973 02:51.13 0 NAME LIST I/O 00422/05 FORTRAN LIBRARY IHCDBUG SA G DBUG S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.IHCDBUG.SA.5 354 D3T2 354 FORTRAN_LIBRARY.IHCDBUG.SA.5 1 SEQ 80 17 PAGE UM HARDING AUG. 02, 1973 02:51.16 0 DEBUG STATEMENTS CALL THIS. THIS MODULE IS SLIGHTLY CHANGED FROM OS RELEASE 9.5 TO FIX A FEW BUGS. 00422/06 FORTRAN LIBRARY IHCFDUMP SA G FDMP S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.IHCFDUMP.SA.6 355 D3T2 355 FORTRAN_LIBRARY.IHCFDUMP.SA.6 1 SEQ 80 6 PAGE UM HARDING AUG. 02, 1973 02:51.17 0 DUMP AND PDUMP. THIS MODULE IS OS RELEASE 9.5 00422/07 FORTRAN LIBRARY SETSTA SA G SSTA S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.SETSTA.SA.7 356 D3T2 356 FORTRAN_LIBRARY.SETSTA.SA.7 1 SEQ 80 1 PAGE UM HARDING AUG. 02, 1973 02:51.19 0 SET STARE COUNT. ALLOWS REREADING INPUT LINES SEVERAL TIMES. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00422/08 FORTRAN LIBRARY SETGRE SA G SGRE S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.SETGRE.SA.8 357 D3T2 357 FORTRAN_LIBRARY.SETGRE.SA.8 1 SEQ 80 1 PAGE UM HARDING AUG. 02, 1973 02:51.22 0 SET GREEN WORD FLAG. ALLOWS PROCESSING OLD TAPES WITH GREEN WORDS. 00422/09 FORTRAN LIBRARY SETDSR SA G SDSR S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.SETDSR.SA.9 358 D3T2 358 FORTRAN_LIBRARY.SETDSR.SA.9 1 SEQ 80 1 PAGE UM HARDING AUG. 02, 1973 02:51.24 0 SET RECORD LENGTHS FOR A DATA SET REFERENCE NBR. 00422/10 FORTRAN LIBRARY SETDSN SA G SDSN S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.SETDSN.SA.10 359 D3T2 359 FORTRAN_LIBRARY.SETDSN.SA.10 1 SEQ 80 2 PAGE UM HARDING AUG. 02, 1973 02:51.27 0 ATTACHES A FILE OR DEVICE TO A DATA SET REFERENCE NUMBER. FORTRAN INTERFACE TO GETFD. 00422/11 FORTRAN LIBRARY DIOCS# SA G DIOC S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.DIOCS#.SA.11 360 D3T2 360 FORTRAN_LIBRARY.DIOCS#.SA.11 1 SEQ 80 1 PAGE UM HARDING AUG. 02, 1973 02:51.29 0 DIRECT ACESS STATEMENTS. 00422/12 FORTRAN LIBRARY GETIHC/PUTIHC SA G IHC0 S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.GETIHC/PUT.SA.12 361 D3T2 361 FORTRAN_LIBRARY.GETIHC/PUT.SA.12 1 SEQ 80 2 PAGE UM HARDING AUG. 02, 1973 02:51.32 0 ALLOWS FORTRAN PROGRAM TO INTERCEPT ERRORS. WITH NEW EFL, THESE ROUTINES NOW INTERCEPT ONLY I/O RELATED ERRORS. 00422/13 FORTRAN LIBRARY OBJECT OC # *LIBRARY (SEE COMP 524) UM HARDING 00422/14 FORTRAN LIBRARY USER'S GUIDE WF S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.USER'S_GUI.WF.14 362 D3T2 362 FORTRAN_LIBRARY.USER'S_GUI.WF.14 1 LINE 104 4 DISK UM HARDING MAR. 15, 1973 18:04.21 0 THIS IS COMPUTING CENTER MEMO M175 -- "MTS FORTRAN USER'S GUIDE" 00422/15 FORTRAN LIBRARY CALLING SEQ WF S0721 'D3T2' FSNAME=FORTRAN_LIBRARY.CALLING_SE.WF.15 363 D3T2 363 FORTRAN_LIBRARY.CALLING_SE.WF.15 1 LINE 102 3 DISK UM HARDING MAR. 15, 1973 18:36.37 0 THIS IS COMPUTING CENTER MEMO M210 -- "FORTRAN LIBRARY CALLING SEQUENCES" 00434 *HSP # (SEE COMP 387) UM 00436/01 GTDJMSR SA DWB:GRJTM(1,124) D3T2 364 GTDJMSR..SA.1 1 LINE 77 3 PAGE UM DWB AUG. 02, 1973 02:53.55 0 SUBROUTINE TO CONVERT GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900. SIMILAR TO GRGJULTM (518), BUT TAKES DIFFERENT ARGUMENTS. 00436/02 GTDJMSR OC # *LIBRARY (SEE COMP 524) D2T1 432 UM DWB 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00436/03 GTDJMSR GTDJMS SA DWB:GTDJMS(1,999) D3T2 365 GTDJMSR.GTDJMS.SA.3 1 LINE 77 1 PAGE UM DWB AUG. 02, 1973 02:53.57 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO GTDJMSR. CONVERTS GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900. 00436/04 GTDJMSR GTDJMS OC # *LIBRARY (SEE COMP 524) UM DWB 00437/01 JMSGTDR/JTUGTDR SA DWB:GRJTM(125,264) D3T2 366 JMSGTDR/JTUGTDR..SA.1 1 LINE 77 4 PAGE UM DWB AUG. 02, 1973 02:53.59 0 SUBROUTINE TO CONVERT JULIAN MICRO-SECONDS TO GREGORIAN TIME AND DATE. SIMILAR TO JULGRGTM (522), BUT TAKES DIFFERENT ARGUMENTS. HAS ALTERNATE ENTRY POINT (JTUGTDR) WHICH CONVERTS JULIAN TIMER-UNITS TO GREGORIAN TIME AND DATE. 0 Referenced by comments of: 531/10 00437/02 JMSGTDR/JTUGTDR OC # *LIBRARY (SEE COMP 524) D2T1 434 UM DWB 0 NOTE: *ANALYSIS CALLS A SUBROUTINE (JULGRGTM/JULGRGTU) WHICH IS ESSENTIALLY THE SAME AS THIS, BUT WITH DIFFERENT NAMES. THE OBJECT FOR THAT SUBROUTINE IS PART OF *ANALYSIS. *ANALYSIS COULD (SHOULD) BE CHANGED TO USE THIS SUBR OUT OF *LIBRARY. 00437/03 JMSGTDR/JTUGTDR JMSGTD SA DWB:JMSGTD(1,999) D3T2 367 JMSGTDR/JTUGTDR.JMSGTD.SA.3 1 LINE 77 1 PAGE UM DWB AUG. 02, 1973 02:54.01 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JMSGTDR. 00437/04 JMSGTDR/JTUGTDR JMSGTD OC # *LIBRARY (SEE COMP 524) UM DWB 00437/05 JMSGTDR/JTUGTDR JTUGTD SA DWB:JTUGTD(1,999) D3T2 368 JMSGTDR/JTUGTDR.JTUGTD.SA.5 1 LINE 77 1 PAGE UM DWB AUG. 02, 1973 02:54.03 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JTUGTDR. 00437/06 JMSGTDR/JTUGTDR JTUGTD OC # *LIBRARY (SEE COMP 524) UM DWB 00439 UCATDES # (SEE COMP 502) UM 00440 CATEQU # (SEE COMP 482) UM 00441/01 *FILEUSE SA G FUSE W045:NEWFILEUSE D3T2 369 FILEUSE..SA.1 1 LINE 80 5 PAGE UM PIRKOLA AUG. 02, 1973 02:54.05 0 PROGRAM TO PRINT USE COUNTS, LAST REFERENCED DATE, AND CREATION DATE FOR FILES. CALLS GFINFO SUBROUTINE. COPIES COPY:LLMPSEQU (087) AND *GFINFODSECT (593). MAINTAINED FOR HISTORICAL REASONS ONLY. USE $FILESTATUS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00441/02 *FILEUSE OE G *FILEUSE D3T2 370 FILEUSE..O.2 1 LINE 255 1 PAGE UM PIRKOLA AUG. 02, 1973 02:54.08 00442/01 CCATL SA O CCAT W045:PF.CCATL D3T2 371 CCATL..SA.1 1 LINE 80 23 PAGE UM PIRKOLA AUG. 02, 1973 02:54.10 0 PROGRAM TO CONSTRUCT A CATALOG FROM SCRATCH IF THAT SHOULD EVER BECOME NECESSARY. COMMENTS IN LISTING EXPLAIN HOW TO DO THIS. THE SECTION TO RECATALOG FILES HAS NOT BEEN MODIFIED FOR THE PAGE FORMATTED FILE SYSTEM. THAT SECTION REQUIRES AIO AND ALST FROM THE ACCOUNTING ROUTINES (104) TO SCAN THE ACCOUNTING FILE. COPIES COPY:CATEQU (482/28), COPY:DSKDSCT (482/42) AND COPY:FCBEQU (482/27). 00442/02 CCATL OC O W045:PF.CCATL.O D3T2 372 CCATL..OC.2 1 LINE 80 3 PAGE UM PIRKOLA AUG. 02, 1973 02:54.13 00443 FORMAT-TEXT360 CONVERTER SS O FOT3 S0721 'D3T2' FSNAME=FORMAT-TEXT360_CONVERTER..SS. 373 D3T2 373 FORMAT-TEXT360_CONVERTER..SS. 1 LINE 80 9 PAGE UM ENGLE JAN. 05, 1973 12:36.21 0 SNOBOL PROGRAM TO CONVERT INPUT FOR THE IBM TYPE III FORMAT PROGRAM TO INPUT FOR TEXT/360. 00444/01 MTS VOLUME 2 MASTER WT G S0485 MTSV2 'MTS MANUALS' POSN=NEWM5.V2 D3.1T1 271 MTS_VOLUME_2.MASTER.WT.1 1 SEQ 132 205 PAGE UM SALISBURY MAR. 06, 1974 04:01.56 0 TEXT/360 MASTER FOR VOLUME 2 "PUBLIC FILE DESCRIPTIONS" OF THE UM MTS MANUAL. 00444/02 MTS VOLUME 2 PRINT PT G > S0485 MTSV2 'MTS MANUALS' POSN=PRINT5.V2 D3.1T1 272 MTS_VOLUME_2.PRINT.PT.2 1 SEQ 132 90 PAGE UM SALISBURY MAR. 06, 1974 04:03.38 0 TEXT/360 PRINT FILE. 00444/03 MTS VOLUME 2 TABLE CONTENTS P G S0485 MTSV2 'MTS MANUALS' POSN=TABCONT4.V2 10 D3.1T1 273 MTS_VOLUME_2.TABLE_CONTENT.P.3 1 SEQ 108 3 PAGE UM SALISBURY MAR. 06, 1974 04:05.58 0 TABLE OF CONTENTS WITH ".XX" PAGE NUMBERS ADDED. 00444/04 MTS VOLUME 2 FLOWCHART P G S0485 MTSV2 'MTS MANUALS' POSN=FLOWCHART UM SALISBURY 0 *FLOWCHART EXAMPLE -- MUST BE PRINTED AT 8 LINES/INCH. 00446 TEXT/360 SUBRS # (SEE COMP 138) UM 00447/01 TAPESTAT TAPESTAT SUBR SA G TPST WSG:TAPESTAT(1,999) D3.2T1 202 TAPESTAT.TAPESTAT_SUBR.SA.01 1 LINE 80 5 PAGE UM WSG MAR. 21, 1975 01:26:08 0 CALLED BY MOUNT (101/1) AFTER EACH SUCCESSFUL MOUNT TO COLLECT STATISTICS IN *TAPESTAT. IF *TAPESTAT DOES NOT EXIST OR ISN'T A SEQUENTIAL FILE, IT RETURNS QUIETLY. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:CLSVECTOR (535/2). 0 Referenced by comments of: 101/1, 101/2 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00447/02 TAPESTAT TAPESTAT SUBR OC G # (PART OF COMP 101) UM WSG 0 OBJECT IS PART OF *CLSMOUNT (101/2). 00447/03 TAPESTAT SAVTS SA G SVTS WSG:SAVTS(1,999) D3.2T1 203 TAPESTAT.SAVTS.SA.03 1 LINE 80 16 PAGE UM WSG MAR. 21, 1975 01:26:11 0 PROGRAM TO SAVE *TAPESTAT MOUNT STATISTICS ON TAPE (RUN MONTHLY AT UM WHERE *TAPESTAT IS ABOUT 150 PAGES). IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A TAPE, EMPTIES *TAPESTAT, AND RESTORES THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH RACK NUMBER. AT UM, THIS RESTORES ABOUT 80 PAGES WORTH OF MOUNT STATISTICS. THIS IS DONE SO THAT AN ONLINE FILE CONTAINING THE LAST REFERENCE (AND LAST POTENTIAL CHANGE) FOR EACH TAPE IS AVAILABLE FOR THE TSSCN PROGRAM (447/5). THE TAPE PRODUCED 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. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). 0 Referenced by comments of: 447/7 00447/04 TAPESTAT SAVTS OC G WSG:SAVTS(1000) D3.2T1 204 TAPESTAT.SAVTS.OC.04 1 LINE 80 12 PAGE UM WSG MAR. 21, 1975 01:26:13 00447/05 TAPESTAT TSSCN SA G TSSN WSG:TSSCN(1,999) D3.2T1 205 TAPESTAT.TSSCN.SA.05 1 LINE 80 11 PAGE UM WSG MAR. 21, 1975 01:26:16 0 PROGRAM TO SCAN *TAPESTAT RECORDS (FROM FILE OR TAPE) LOOKING FOR SPECIFIED RACK NUMBER-DATE COMBINATIONS. IT CALLS SORT AND THEN PRINTS THE RECORDS ON SPRINT. FOR EXAMPLE: $RUN TSSCN(1000) S0622 03-25-73 S0500 01-XX-73 DONE *TAPESTAT *T* DONE WILL SCAN *TAPESTAT AND TAPE *T* FOR ALL MOUNTS OF TAPE S0622 ON 25 MARCH 1973 AND S0500 ON ANY DAY IN JANUARY 1973. NOTE: "XX" MAY BE USED IN ANY DATE FIELD(S) AND "XXXXXX" MAY BE USED TO DENOTE THAT ALL MOUNTS ON THE SPECIFIED DATE ARE TO BE PRINTED (XXXXXX XX-XX-XX MEANS EVERYTHING). THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE). COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). 0 Referenced by comments of: 447/3 00447/06 TAPESTAT TSSCN OC G WSG:TSSCN(1000) D3.2T1 206 TAPESTAT.TSSCN.OC.06 1 LINE 80 7 PAGE UM WSG MAR. 21, 1975 01:26:18 00447/07 TAPESTAT TSDEL SA G TSDL WSG:TSDEL(1,999) D3.2T1 207 TAPESTAT.TSDEL.SA.07 1 LINE 80 5 PAGE UM WSG MAR. 21, 1975 01:26:20 0 PROGRAM USED TO DELETE UNWANTED RECORDS FROM THE MOUNT STATISTICS FILE (*TAPESTAT). ASKS FOR RACK NUMBERS TO BE DELETED WHICH MUST BE ENTERED ONE PER LINE. AFTER "DONE" IS ENTERED, IT MAKES ONE PASS THROUGH *TAPESTAT (WITH IT LOCKED FOR MODIFICATION) AND REPLACES ANY RECORD WHICH HAS ONE OF THE SPECIFIED RACK NUMBERS WITH AN ALL-ZERO RECORD (IT CAN'T ACTUALLY DELETE RECORDS SINCE *TAPESTAT IS A SEQUENTIAL FILE). WHEN SAVTS (447/3) IS RUN, IT WILL 1 FRI AUG 02/96 19:04:25 Page 121 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 DELETE THE ALL-ZERO RECORDS. AT UM, THIS PROGRAM IS RUN PERIODICALLY TO CLEAN OUT OLD SERIES OF RACK NUMBERS TO KEEP *TAPESTAT AT A REASONABLE SIZE. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). ASSEMBLE WITH *SYSMAC. 00447/08 TAPESTAT TSDEL OC G WSG:TSDEL(1000) D3.2T1 208 TAPESTAT.TSDEL.OC.08 1 LINE 80 3 PAGE UM WSG MAR. 21, 1975 01:26:23 00448 *RSERIES # (SEE COMP 306) UM 00449 *DEB S # (OBSOLETED BY *SORT) D2T1 341 UM 00451/01 CATALOG VERIFY - VNTD SA G VNTD W045:PF.VNTD D3.2T1 209 CATALOG_VERIFY_-_VNTD..SA.01 1 LINE 80 32 PAGE UM PIRKOLA MAR. 21, 1975 01:26:25 0 PROGRAM TO VERIFY, TRACE, AND/OR DUMP THE FILE SYSTEM CATALOG. COPIES COPY:CATEQU (482/28) AND COPY:FCBEQU (482/27). IT WILL VERIFY, TRACE AND/OR DUMP THE ENTIRE CATALOG, A PARTICULAR USER CATALOG, OR A PARTICULAR USER FILE. LOGICAL I/O UNITS: SCARDS PARAMETERS IF NO PAR= IS GIVEN. END-OF-FILE STOPS PROGRAM. SPRINT PRINTED OUTPUT SERCOM ERROR COMMENTS PARAMETERS MUST BE SEPARATED BY BLANKS OR COMMAS AND MUST BE GIVEN IN THE FOLLOWING ORDER: (1) ANY, ALL OR NONE OR THE FOLLOWING: (A) "V" - VERIFY (B) "T" - TRACE (C) "D" - DUMP IF NONE OF THESE IS GIVEN, ONLY STATISTICS ABOUT THE WHOLE CATALOG OR THE USER CATALOG WILL BE PRINTED. (2) AT MOST, ONE OF THE FOLLOWING: (A) "C" - THE ENTIRE CATALOG (THE DEFAULT) (B) "U" - A PARTICULAR USER CATALOG (C) "F" - A PARTICULAR FILE IF "U" IS GIVEN, THEN A LEGAL MTS USERID MUST BE THE NEXT PARAMETER, OR "*ALL" IF ALL USER CATALOGS ARE DESIRED. IF "F" IS GIVEN, THEN AN 'INTERNAL' MTS FILE NAME (USERID AND FILENAME WITHOUT COLON) MUST BE THE NEXT PARAMETER, OR "*ALL" AND A LEGAL MTS USERID IF ALL FILES BELONGING TO A PARTICULAR USER ARE DESIRED. EXAMPLES: $RUN VNTD PAR=T,C $RUN VNTD PAR=V,T,D,U,W045 $RUN VNTD PAR=D,F,WO45VNTD OUTPUT: VERIFY (A) VERIFYING THE CATALOG WILL VALIDATE SEGMENT ALLOCATION AS WELL AS ERROR CHECKING RECORD AND SEGMENT HEADERS. PRESENTLY, THE CATALOG CAN ONLY BE VERIFIED WHEN SEGMENTS ARE NOT BEING ALLOCATED OR DEALLOCATED, 1 FRI AUG 02/96 19:04:25 Page 122 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 I.E., WHEN NO ONE IS USING THE SYSTEM. (B) VERIFYING A USER CATALOG WILL ERROR CHECK RECORD AND SEGMENT HEADERS AS WELL AS FILE DESCRIPTORS. IN ADDITION, IT WILL CHECK THAT FILE DESCRIPTORS POINT TO SHARING DESCRIPTORS IN THE SAME CATALOG AND THAT ALL SHARING DESCRIPTORS ARE ACCOUNTED FOR. (C) VERIFYING A FILE CHECKS FILE DESCRIPTORS AND SHARING DESCRIPTORS FOR REASONABLENESS. TRACE (A) TRACING THE CATALOG WILL PRINT OUT THE FILE HEADER LOCATIONS AND THE NUMBER OF PAGES IN EACH FILE. (B) TRACING A USER CATALOG WILL PRINT OUT THE SEGMENT LOCATIONS FOR EACH SEGMENT ASSIGNED TO THE USER CATALOG. (C) TRACING A FILE WILL PRINT OUT FILE AND SHARING DESCRIPTOR LOCATIONS. DUMP (A) DUMPING THE CATALOG WILL DUMP (VIA SDUMP) EACH FILE HEADER. (B) DUMPING A USER CATALOG WILL DUMP EACH SEGMENT ASSIGNED TO THE USER CATALOG. (C) DUMPING A FILE WILL DUMP THE FILE AND SHARING DESCRIPTORS ASSOCIATED WITH THE FILE IN THE CATALOG. STATISTICS (ALWAYS PRINTED) (A) FOR THE WHOLE CATALOG, THE NUMBER OF AVAILABLE INITIAL SEGMENTS (0, 1, AND 2) AND THE NUMBER OF AVAILABLE OVERFLOW SEGMENTS (3, 4, AND 5) ARE PRINTED. (B) FOR A USER CATALOG, THE NUMBER OF FILE AND SHARING DESCRIPTORS AS WELL AS THE NUMBER OF SEGMENTS, RECORDS, AND CYLINDERS OCCUPIED BY THIS USER CATALOG ARE PRINTED. 00451/02 CATALOG VERIFY - VNTD OC G W045:PF.VNTD.O D3.2T1 210 CATALOG_VERIFY_-_VNTD..OC.02 1 LINE 80 8 PAGE UM PIRKOLA MAR. 21, 1975 01:26:40 00452/01 PLCALL SA G PLCL S0027 DISTRB FSNAME=PLCALL D3T3 13 PLCALL..SA.1 1 LINE 80 5 PAGE UM ENGLE JULY 24, 1973 11:51.52 0 SUBROUTINES PLCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL/I PROGRAM TO CALL SUBROUTINES WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE. 00452/02 PLCALL OC G # *PL1LIB (SEE COMP 233) D3T3 14 PLCALL..O.2 1 LINE 80 1 PAGE UM ENGLE JULY 24, 1973 11:52.05 00453/01 DRUM INIT SA DNIT S0722 'D3T3' FSNAME=DRUM_INIT_..SA.1 15 D3T3 15 DRUM_INIT_..SA.1 1 SEQ 80 7 PAGE UM DWB AUG. 01, 1973 18:21.35 0 STAND ALONE PROGRAM TO FORMAT DRUMS. HAS REP CARDS TO DEFINE CERTAIN PARAMETERS. UNCHANGED SINCE DIST 2.0 00453/02 DRUM INIT OC S0722 'D3T3' FSNAME=DRUM_INIT_..OC.2 16 D3T3 16 DRUM_INIT_..OC.2 1 SEQ 80 6 PAGE UM DWB AUG. 01, 1973 18:21.37 00454 ARU COPY SECTION SA # (OBSOLETE) D2T1 084 UM 00455 DBS:MAC SM S0722 'D3T3' FSNAME=DBS:MAC..SM. 17 D3T3 17 DBS:MAC..SM. 1 LINE 66 3 PAGE UM FRONCZAK AUG. 01, 1973 18:21.38 0 MACRO LIBRARY NOW USED ONLY BY THE IBM 7772 ARU DSR (084), WE HOPE. 1 FRI AUG 02/96 19:04:25 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 Referenced by comments of: 84/1, 84/5, 84/7, 84/12, 84/14, 413/12 00456 *CONFIG SA # (OBSOLETE) D2T1 318 UM 00457 TPSBUFFER SA # (OBSOLETE) D2T1 147 UM 00458/01 OLTS 21.7 SOURCE SA G S0710 OLTEP 1 D3.2T1 211 OLTS.21.7_SOURCE.SA.01 1 SEQ 80 1 PAGE UM MTA MAR. 21, 1975 01:27:39 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 A SPECIAL VERSION OF FAKEOS (SEE COMP 545). 0 Referenced by comments of: 338/1, 545/44 00458/02 OLTS 21.7 SOURCE SA G S0710 OLTEP 2 D3.2T1 212 OLTS.21.7_SOURCE.SA.02 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:27:39 00458/03 OLTS 21.7 SOURCE SA G S0710 OLTEP 3 D3.2T1 213 OLTS.21.7_SOURCE.SA.03 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:27:41 00458/04 OLTS 21.7 SOURCE SA G S0710 OLTEP 4 D3.2T1 214 OLTS.21.7_SOURCE.SA.04 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:27:44 00458/05 OLTS 21.7 SOURCE SA G S0710 OLTEP 5 D3.2T1 215 OLTS.21.7_SOURCE.SA.05 1 SEQ 80 1 PAGE UM MTA MAR. 21, 1975 01:27:46 00458/06 OLTS 21.7 SOURCE SA G S0710 OLTEP 6 D3.2T1 216 OLTS.21.7_SOURCE.SA.06 1 SEQ 80 1 PAGE UM MTA MAR. 21, 1975 01:27:48 00458/07 OLTS 21.7 SOURCE SA G S0710 OLTEP 7 D3.2T1 217 OLTS.21.7_SOURCE.SA.07 1 SEQ 80 1 PAGE UM MTA MAR. 21, 1975 01:27:51 00458/08 OLTS 21.7 SOURCE SA G S0710 OLTEP 8 D3.2T1 218 OLTS.21.7_SOURCE.SA.08 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:27:53 00458/09 OLTS 21.7 SOURCE SA G S0710 OLTEP 9 D3.2T1 219 OLTS.21.7_SOURCE.SA.09 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:27:55 00458/10 OLTS 21.7 SOURCE SA G S0710 OLTEP 10 D3.2T1 220 OLTS.21.7_SOURCE.SA.10 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:27:57 00458/11 OLTS 21.7 SOURCE SA G S0710 OLTEP 11 D3.2T1 221 OLTS.21.7_SOURCE.SA.11 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:00 00458/12 OLTS 21.7 SOURCE SA G S0710 OLTEP 12 D3.2T1 222 OLTS.21.7_SOURCE.SA.12 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:02 00458/13 OLTS 21.7 SOURCE SA G S0710 OLTEP 13 D3.2T1 223 OLTS.21.7_SOURCE.SA.13 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:04 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00458/14 OLTS 21.7 SOURCE SA G S0710 OLTEP 14 D3.2T1 224 OLTS.21.7_SOURCE.SA.14 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:07 00458/15 OLTS 21.7 SOURCE SA G S0710 OLTEP 15 D3.2T1 225 OLTS.21.7_SOURCE.SA.15 1 SEQ 80 1 PAGE UM MTA MAR. 21, 1975 01:28:09 00458/16 OLTS 21.7 SOURCE SA G S0710 OLTEP 16 D3.2T1 226 OLTS.21.7_SOURCE.SA.16 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:11 00458/17 OLTS 21.7 SOURCE SA G S0710 OLTEP 17 D3.2T1 227 OLTS.21.7_SOURCE.SA.17 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:14 00458/18 OLTS 21.7 SOURCE SA G S0710 OLTEP 18 D3.2T1 228 OLTS.21.7_SOURCE.SA.18 1 SEQ 80 1 PAGE UM MTA MAR. 21, 1975 01:28:16 00458/19 OLTS 21.7 SOURCE SA G S0710 OLTEP 19 D3.2T1 229 OLTS.21.7_SOURCE.SA.19 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:18 00458/20 OLTS 21.7 SOURCE SA G S0710 OLTEP 20 D3.2T1 230 OLTS.21.7_SOURCE.SA.20 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:20 00458/21 OLTS 21.7 SOURCE SA G S0710 OLTEP 21 D3.2T1 231 OLTS.21.7_SOURCE.SA.21 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:23 00458/22 OLTS 21.7 SOURCE SA G S0710 OLTEP 22 D3.2T1 232 OLTS.21.7_SOURCE.SA.22 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:25 00458/23 OLTS 21.7 SOURCE SA G S0710 OLTEP 23 D3.2T1 233 OLTS.21.7_SOURCE.SA.23 1 SEQ 80 1 PAGE UM MTA MAR. 21, 1975 01:28:27 00458/24 OLTS 21.7 SOURCE SA G S0710 OLTEP 24 D3.2T1 234 OLTS.21.7_SOURCE.SA.24 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:28:30 00458/25 OLTS 21.7 SOURCE SA G S0710 OLTEP 25 D3.2T1 235 OLTS.21.7_SOURCE.SA.25 1 SEQ 80 11 PAGE UM MTA MAR. 21, 1975 01:28:32 00458/26 OLTS 21.7 SOURCE SA G S0710 OLTEP 26 D3.2T1 236 OLTS.21.7_SOURCE.SA.26 1 SEQ 80 12 PAGE UM MTA MAR. 21, 1975 01:28:35 00458/27 OLTS 21.7 SOURCE SA G S0710 OLTEP 27 D3.2T1 237 OLTS.21.7_SOURCE.SA.27 1 SEQ 80 35 PAGE UM MTA MAR. 21, 1975 01:28:38 00458/28 OLTS 21.7 SOURCE SA G S0710 OLTEP 28 D3.2T1 238 OLTS.21.7_SOURCE.SA.28 1 SEQ 80 19 PAGE UM MTA MAR. 21, 1975 01:28:40 00458/29 OLTS 21.7 SOURCE SA G S0710 OLTEP 29 D3.2T1 239 OLTS.21.7_SOURCE.SA.29 1 SEQ 80 24 PAGE UM MTA MAR. 21, 1975 01:28:42 00458/30 OLTS 21.7 SOURCE SA G S0710 OLTEP 30 D3.2T1 240 OLTS.21.7_SOURCE.SA.30 1 SEQ 80 12 PAGE UM MTA MAR. 21, 1975 01:28:44 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00458/31 OLTS 21.7 SOURCE SA G S0710 OLTEP 31 D3.2T1 241 OLTS.21.7_SOURCE.SA.31 1 SEQ 80 26 PAGE UM MTA MAR. 21, 1975 01:28:47 00458/32 OLTS 21.7 SOURCE SA G S0710 OLTEP 32 D3.2T1 242 OLTS.21.7_SOURCE.SA.32 1 SEQ 80 11 PAGE UM MTA MAR. 21, 1975 01:28:49 00458/33 OLTS 21.7 SOURCE SA G S0710 OLTEP 33 D3.2T1 243 OLTS.21.7_SOURCE.SA.33 1 SEQ 80 23 PAGE UM MTA MAR. 21, 1975 01:28:52 00458/34 OLTS 21.7 SOURCE SA G S0710 OLTEP 34 D3.2T1 244 OLTS.21.7_SOURCE.SA.34 1 SEQ 80 21 PAGE UM MTA MAR. 21, 1975 01:28:54 00458/35 OLTS 21.7 SOURCE SA G S0710 OLTEP 35 D3.2T1 245 OLTS.21.7_SOURCE.SA.35 1 SEQ 80 8 PAGE UM MTA MAR. 21, 1975 01:28:56 00458/36 OLTS 21.7 SOURCE SA G S0710 OLTEP 36 D3.2T1 246 OLTS.21.7_SOURCE.SA.36 1 SEQ 80 7 PAGE UM MTA MAR. 21, 1975 01:28:58 00458/37 OLTS 21.7 SOURCE SA G S0710 OLTEP 37 D3.2T1 247 OLTS.21.7_SOURCE.SA.37 1 SEQ 80 3 PAGE UM MTA MAR. 21, 1975 01:29:00 00458/38 OLTS 21.7 SOURCE SA G S0710 OLTEP 38 D3.2T1 248 OLTS.21.7_SOURCE.SA.38 1 SEQ 80 9 PAGE UM MTA MAR. 21, 1975 01:29:02 00458/39 OLTS 21.7 SOURCE SA G S0710 OLTEP 39 D3.2T1 249 OLTS.21.7_SOURCE.SA.39 1 SEQ 80 11 PAGE UM MTA MAR. 21, 1975 01:29:05 00458/40 OLTS 21.7 SOURCE SA G S0710 OLTEP 40 D3.2T1 250 OLTS.21.7_SOURCE.SA.40 1 SEQ 80 16 PAGE UM MTA MAR. 21, 1975 01:29:07 00458/41 OLTS 21.7 SOURCE SA G S0710 OLTEP 41 D3.2T1 251 OLTS.21.7_SOURCE.SA.41 1 SEQ 80 8 PAGE UM MTA MAR. 21, 1975 01:29:09 00458/42 OLTS 21.7 SOURCE SA G S0710 OLTEP 42 D3.2T1 252 OLTS.21.7_SOURCE.SA.42 1 SEQ 80 3 PAGE UM MTA MAR. 21, 1975 01:29:12 00458/43 OLTS 21.7 SOURCE SA G S0710 OLTEP 43 D3.2T1 253 OLTS.21.7_SOURCE.SA.43 1 SEQ 80 37 PAGE UM MTA MAR. 21, 1975 01:29:15 00458/44 OLTS 21.7 SOURCE SA G S0710 OLTEP 44 D3.2T1 254 OLTS.21.7_SOURCE.SA.44 1 SEQ 80 17 PAGE UM MTA MAR. 21, 1975 01:29:18 00458/45 OLTS 21.7 SOURCE SA G S0710 OLTEP 45 D3.2T1 255 OLTS.21.7_SOURCE.SA.45 1 SEQ 80 15 PAGE UM MTA MAR. 21, 1975 01:29:19 00458/46 OLTS 21.7 SOURCE SA G S0710 OLTEP 46 D3.2T1 256 OLTS.21.7_SOURCE.SA.46 1 SEQ 80 31 PAGE UM MTA MAR. 21, 1975 01:29:22 00458/47 OLTS 21.7 SOURCE SA G S0710 OLTEP 47 D3.2T1 257 OLTS.21.7_SOURCE.SA.47 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:29:24 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00458/48 OLTS 21.7 SOURCE SA G S0710 OLTEP 48 D3.2T1 258 OLTS.21.7_SOURCE.SA.48 1 SEQ 80 12 PAGE UM MTA MAR. 21, 1975 01:29:26 00458/49 OLTS 21.7 SOURCE SA G S0710 OLTEP 49 D3.2T1 259 OLTS.21.7_SOURCE.SA.49 1 SEQ 80 15 PAGE UM MTA MAR. 21, 1975 01:29:29 00458/50 OLTS 21.7 SOURCE SA G S0710 OLTEP 50 D3.2T1 260 OLTS.21.7_SOURCE.SA.50 1 SEQ 80 10 PAGE UM MTA MAR. 21, 1975 01:29:31 00458/51 OLTS 21.7 SOURCE SA G S0710 OLTEP 51 D3.2T1 261 OLTS.21.7_SOURCE.SA.51 1 SEQ 80 5 PAGE UM MTA MAR. 21, 1975 01:29:33 00458/52 OLTS 21.7 SOURCE SA G S0710 OLTEP 52 D3.2T1 262 OLTS.21.7_SOURCE.SA.52 1 SEQ 80 24 PAGE UM MTA MAR. 21, 1975 01:29:36 00458/53 OLTS 21.7 SOURCE SA G S0710 OLTEP 53 D3.2T1 263 OLTS.21.7_SOURCE.SA.53 1 SEQ 80 27 PAGE UM MTA MAR. 21, 1975 01:29:38 00458/54 OLTS 21.7 SOURCE SA G S0710 OLTEP 54 D3.2T1 264 OLTS.21.7_SOURCE.SA.54 1 SEQ 80 24 PAGE UM MTA MAR. 21, 1975 01:29:41 00458/55 OLTS 21.7 SOURCE SA G S0710 OLTEP 55 D3.2T1 265 OLTS.21.7_SOURCE.SA.55 1 SEQ 80 33 PAGE UM MTA MAR. 21, 1975 01:29:43 00458/56 OLTS 21.7 SOURCE SA G S0710 OLTEP 56 D3.2T1 266 OLTS.21.7_SOURCE.SA.56 1 SEQ 80 11 PAGE UM MTA MAR. 21, 1975 01:29:45 00458/57 OLTS 21.7 SOURCE SA G S0710 OLTEP 57 D3.2T1 267 OLTS.21.7_SOURCE.SA.57 1 SEQ 80 39 PAGE UM MTA MAR. 21, 1975 01:29:48 00458/58 OLTS 21.7 SOURCE SA G S0710 OLTEP 58 D3.2T1 268 OLTS.21.7_SOURCE.SA.58 1 SEQ 80 32 PAGE UM MTA MAR. 21, 1975 01:29:51 00458/59 OLTS 21.7 SOURCE SA G S0710 OLTEP 59 D3.2T1 269 OLTS.21.7_SOURCE.SA.59 1 SEQ 80 21 PAGE UM MTA MAR. 21, 1975 01:29:54 00458/60 OLTS 21.7 SOURCE SA G S0710 OLTEP 60 D3.2T1 270 OLTS.21.7_SOURCE.SA.60 1 SEQ 80 20 PAGE UM MTA MAR. 21, 1975 01:29:56 00458/61 OLTS 21.7 SOURCE SA G S0710 OLTEP 61 D3.2T1 271 OLTS.21.7_SOURCE.SA.61 1 SEQ 80 18 PAGE UM MTA MAR. 21, 1975 01:29:58 00458/62 OLTS 21.7 SOURCE SA G S0710 OLTEP 62 D3.2T1 272 OLTS.21.7_SOURCE.SA.62 1 SEQ 80 8 PAGE UM MTA MAR. 21, 1975 01:30:00 00458/63 OLTS 21.7 SOURCE SA G S0710 OLTEP 63 D3.2T1 273 OLTS.21.7_SOURCE.SA.63 1 SEQ 80 10 PAGE UM MTA MAR. 21, 1975 01:30:02 00458/64 OLTS 21.7 SOURCE SA G S0710 OLTEP 64 D3.2T1 274 OLTS.21.7_SOURCE.SA.64 1 SEQ 80 12 PAGE UM MTA MAR. 21, 1975 01:30:05 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00458/65 OLTS 21.7 SOURCE SA G S0710 OLTEP 65 D3.2T1 275 OLTS.21.7_SOURCE.SA.65 1 SEQ 80 38 PAGE UM MTA MAR. 21, 1975 01:30:08 00458/66 OLTS 21.7 SOURCE SA G S0710 OLTEP 66 D3.2T1 276 OLTS.21.7_SOURCE.SA.66 1 SEQ 80 7 PAGE UM MTA MAR. 21, 1975 01:30:10 00458/67 OLTS 21.7 SOURCE SA G S0710 OLTEP 67 D3.2T1 277 OLTS.21.7_SOURCE.SA.67 1 SEQ 80 3 PAGE UM MTA MAR. 21, 1975 01:30:12 00458/68 OLTS 21.7 SOURCE SA G S0710 OLTEP 68 D3.2T1 278 OLTS.21.7_SOURCE.SA.68 1 SEQ 80 19 PAGE UM MTA MAR. 21, 1975 01:30:15 00458/69 OLTS 21.7 SOURCE SA G S0710 OLTEP 69 D3.2T1 279 OLTS.21.7_SOURCE.SA.69 1 SEQ 80 13 PAGE UM MTA MAR. 21, 1975 01:30:17 00458/70 OLTS 21.7 SOURCE SA G S0710 OLTEP 70 D3.2T1 280 OLTS.21.7_SOURCE.SA.70 1 SEQ 80 15 PAGE UM MTA MAR. 21, 1975 01:30:19 00458/71 OLTS 21.7 SOURCE SA G S0710 OLTEP 71 D3.2T1 281 OLTS.21.7_SOURCE.SA.71 1 SEQ 80 24 PAGE UM MTA MAR. 21, 1975 01:30:22 00458/72 OLTS 21.7 SOURCE SA G S0710 OLTEP 72 D3.2T1 282 OLTS.21.7_SOURCE.SA.72 1 SEQ 80 11 PAGE UM MTA MAR. 21, 1975 01:30:24 00458/73 OLTS 21.7 SOURCE SA G S0710 OLTEP 73 D3.2T1 283 OLTS.21.7_SOURCE.SA.73 1 SEQ 80 2 PAGE UM MTA MAR. 21, 1975 01:30:26 00458/74 OLTS 21.7 SOURCE SA G S0710 OLTEP 74 D3.2T1 284 OLTS.21.7_SOURCE.SA.74 1 SEQ 80 21 PAGE UM MTA MAR. 21, 1975 01:30:29 00458/75 OLTS 21.7 SOURCE SA G S0710 OLTEP 75 D3.2T1 285 OLTS.21.7_SOURCE.SA.75 1 SEQ 80 26 PAGE UM MTA MAR. 21, 1975 01:30:31 00458/76 OLTS 21.7 SOURCE SA G S0710 OLTEP 76 D3.2T1 286 OLTS.21.7_SOURCE.SA.76 1 SEQ 80 9 PAGE UM MTA MAR. 21, 1975 01:30:33 00458/77 OLTS OLTEPMACLIB SM G MTA:OLTEPMACLIB D3.2T1 287 OLTS.OLTEPMACLIB.SM.77 1 LINE 72 56 PAGE UM MTA MAR. 21, 1975 01:30:37 0 MACROS, SOME OF WHICH ARE USED BY OLTEP -- NOT SURE WHICH MACROS ARE NOT NEEDED. 0 Referenced by comments of: 458/1 00458/78 OLTS OBJECT OC G MTA:OLTEP D3.2T1 288 OLTS.OBJECT.OC.78 1 SEQ 920 2 PAGE UM MTA MAR. 21, 1975 01:30:42 0 OBJECT FOR OLTEP MAIN PROGRAM AND IFDOLT59, WHICH IS INCLUDED TO GET THE RIGHT DEFINITION OF SOME MULTIPLY DEFINED SYMBOLS. 00458/79 OLTS OLTEPLIB OL G MTA:OLTEPLIB D3.2T1 289 OLTS.OLTEPLIB.OL.79 1 SEQ 2572 62 PAGE UM MTA MAR. 21, 1975 01:30:44 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: 1 FRI AUG 02/96 19:04:25 Page 128 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TO IFDOLT20: REP 000000 0141F00020,07FE TO IFDOLT22: REP 000386 0147000000 00458/80 OLTS OLTEPBLDLIN D G MTA:OLTEPBLDLIN D3.2T1 290 OLTS.OLTEPBLDLIN.D.80 1 LINE 60 4 PAGE UM MTA MAR. 21, 1975 01:30:47 0 INPUT TO CREBLDL (538/4) FOR OLTEP INCLUDING ITEL 7330'S. 0 Referenced by comments of: 458/82 00458/81 OLTS OLTEPBLDL D G S0938 FSAVE2 FSNAME=OLTEPBLDL.D D3.2T1 291 OLTS.OLTEPBLDL.D.81 1 SEQ 242 1 PAGE UM MTA FEB. 14, 1975 02:18:51 0 BLDL INFO FOR OLTEP. CREATED BY CREBLDL (538/4) USING 458/80 AS INPUT. NOTE: ITEL 7330 STUFF NOT INCLUDED. 00458/82 OLTS OLTEPTSTLIB OL G S0938 FSAVE2 FSNAME=OLTEPTSTLIB.D D3.2T1 292 OLTS.OLTEPTSTLIB.OL.82 1 SEQ 3970 46 PAGE UM MTA FEB. 14, 1975 02:12:22 0 OBJECT LIBRARY FOR TEST SECTIONS AND CDS (CONFIGURATION DATA SET) MODULES. INCLUDES TESTS FOR 2400, 2301, 2540, 2541, 2501, AND 1403. TO ADD NEW TEST SECTIONS, SIMPLY PUT THEM IN THIS LIBRARY AND ADD A LINE FOR EACH TO OLTEPBLDLIN (458/80) (AND RUN IT THROUGH CREBLDL). EACH TEST SECTION MUST HAVE AN ENTRY WITH THE SAME NAME AS THE SECTION (E.G. T2400A). NOTE: ITEL 7330 TESTS NOT INCLUDED BECAUSE OF ISS COPYRIGHTS. 00458/83 OLTS OLTEPCDSGEN OC G # MTA:OLTEPCDSGEN UM MTA 0 ITEL OS PROGRAM TO PRODUCE CDS MODULES FOR 7330 DISKS. RUN IT UNDER *FAKEOS WITH SYSIN, SYSPRINT, AND SYSPUNCH. NOTE: NOT DISTRIBUTED BECAUSE OF ISS COPYRIGHTS. 0 Referenced by comments of: 458/84 00458/84 OLTS OLTEPCDSIN D G # MTA:OLTEPCDSIN UM MTA 0 INPUT TO OLTEPCDSGEN (458/83) TO PRODUCE CDS MODULES FOR UM 7330 CONFIGURATION. 00458/85 OLTS OLTEPCMD C MTA:OLTEPCMD D3.2T1 293 OLTS.OLTEPCMD.C.85 1 LINE 90 1 PAGE UM MTA MAR. 21, 1975 01:31:05 0 THE FOLLOWING PROCEDURES SHOULD BE USED FOR RELEASE 21.7 OLTS. TO RUN OLTS, ISSUE THE FOLLOWING COMMAND: $SOURCE OLTEPCMD WHERE OLTEPCMD IS 458/85 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 OLTS 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 FRI AUG 02/96 19:04:25 Page 129 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (1) PAGES 1-40 DESCRIBE HOW TO INSTALL AND INVOKE OLTEP IN OS AND ARE IRRELEVANT. (2) THE PROCEDURE REQUIRED TO STOP RUNNING A TEST IS TO PRESS THE ATTENTION KEY. (3) ALL COMMUNICATION IS VIA THE TERMINAL, NOT THE OPERATOR'S CONSOLE. (4) IT IS NOT NECESSARY TO TYPE "R 00,'XXX'", SINCE "XXX" IS TREATED IN EXACTLY THE SAME WAY. (5) THE PRINTED OUTPUT FROM OLTEP (REFERED TO AS THE DIAGMSG DD IN THE MANUAL) WILL BE PUT IN THE TEMPORARY FILE -DIAG WHICH MAY BE COPIED TO *PRINT* AFTER OLTEP TERMINATES. 00459 *ICSERIES S # (OBSOLETE) D2T2 155 UM 00460 WIREWRAP TEST # (OBSOLETE) D2T2 156 UM 00461/01 DISTRIBUTION *FS # (SEE COMP 548) UBC 00461/02 DISTRIBUTION *DEDIT SA G DED0 WSG:DEDIT D3.2T1 294 DISTRIBUTION.*DEDIT.SA.02 1 LINE 80 39 PAGE UM WSG MAR. 21, 1975 01:31:07 0 DISTRIBUTION DRIVER/COMMENT FILE EDITOR PROGRAM. THIS PROGRAM IS USED TO CONSTRUCT AND EDIT A DISTRIBUTION DRIVER FILE SUCH AS 461/7. IT ALSO ALLOWS COMMENTS TO BE ENTERED IN THE DRIVER FILE (OR ANOTHER FILE) FOR EACH COMPONENT. COPIES COPY:DRDSECT (461/12). 00461/03 DISTRIBUTION *DEDIT OE G *DEDIT D3.2T1 295 DISTRIBUTION.*DEDIT.OE.03 1 SEQ 8938 4 PAGE UM WSG MAR. 21, 1975 01:31:13 00461/04 DISTRIBUTION 5-LINE SA G 5LIN S0675 UBCUM 'UBC -> UM #23' FSNAME=FS5L.S D3T3 31 DISTRIBUTION.5-LINE.SA.7 1 LINE 80 7 PAGE UBC HOGG MAR. 01, 1973 19:33:27 0 PROGRAM TO PRINT THE FIRST 5 AND LAST 5 LINES OF EACH FILE ON A *FS TAPE. USED TO VERIFY DIST TAPE CONTENTS. 00461/05 DISTRIBUTION 5-LINE OC G MTS:FS5L D3T3 32 DISTRIBUTION.5-LINE.OC.8 1 LINE 80 3 PAGE UBC HOGG AUG. 01, 1973 18:28.14 00461/06 DISTRIBUTION CLEAN COMMENTS # (OBSOLETED BY *DEDIT) D3T3 33 DISTRIBUTION.CLEAN_COMMENT.SA.9 1 LINE 80 3 PAGE UM AUG. 01, 1973 18:28.16 00461/07 DISTRIBUTION CURRENT DRIVER D MTS:DRIVER D3.2T2 128 DISTRIBUTION.CURRENT_DRIVE.D.07 1 LINE 235 149 PAGE UM WSG MAR. 21, 1975 13:20:21 0 THIS IS THE CURRENT COMPLETE DRIVER FILE FOR ALL COMPONENTS. 00461/08 DISTRIBUTION CURRENT COMM D MTS:COMM D3.2T2 129 DISTRIBUTION.CURRENT_COMM.D.08 1 LINE 122 65 PAGE UM WSG MAR. 21, 1975 13:20:51 0 THIS IS THE CURRENT COMPLETE DISTRIBUTION COMMENT FILE. 00461/09 DISTRIBUTION NEW SYSTEMS WF MTS:D3.INSTALL D3T3 35 DISTRIBUTION.NEW_SYSTEMS.WF.13 1 LINE 189 3 PAGE UM MTA AUG. 01, 1973 18:29.08 0 A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 3.0 AT NEW INSTALLATIONS, I.E. INSTALLATIONS WHICH ARE NOT CURRENTLY RUNNING MTS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00461/10 DISTRIBUTION OLD SYSTEMS WF MTS:D3CONVERSION D3T5 257 DISTRIBUTION.OLD_SYSTEMS.WF.14 1 LINE 77 3 PAGE UM MTA AUG. 11, 1973 01:29.07 0 A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 3.0 AT OLD INSTALLATIONS, I.E. INSTALLATIONS WHICH ARE CURRENTLY RUNNING MTS. 00461/11 DISTRIBUTION GENERAL NOTES WF MTS:D3GENERAL D3T5 258 DISTRIBUTION.GENERAL_NOTES.WF.15 1 LINE 129 6 PAGE UM DWB AUG. 11, 1973 01:29.09 0 GENERAL NOTES ON DISTRIBUTION 3.0. 00461/12 DISTRIBUTION DRIVER DSECT SA G DRVD COPY:DRDSECT D3.2T1 296 DISTRIBUTION.DRIVER_DSECT.SA.12 1 LINE 80 3 PAGE UM WSG MAR. 21, 1975 01:32:10 0 COPY SECTION FOR DRIVER FILE DSECT (USED BY *FS, *DEDIT, CLEANCOMM, ETC.). IT DEFINES THE STRUCTURE OF A DIST DRIVER FILE RECORD. THIS DSECT HAS BEEN CHANGED TO EXPLICITLY SHOW THE UNUSED COLUMNS (BETWEEN SOME OF THE FIELDS) WHICH WERE PREVIOUSLY ONLY IMPLIED BY FIELD LENGTHS WHICH WERE ONE GREATER THAN ACTUALLY USED. ALL FIELD LENGTHS ARE NOW EXACT. *DEDIT AND *FS HAVE BOTH BEEN CHANGED TO ACCEPT THIS NEW FORMAT. 0 Referenced by comments of: 461/2, 548/1 00461/13 DISTRIBUTION DRIV INDEX GEN C MTS:DISTINDEX D3.2T1 297 DISTRIBUTION.DRIV_INDEX_GE.C.13 1 LINE 133 1 PAGE UM WSG MAR. 21, 1975 01:32:11 0 COMMAND FILE TO PRODUCE AN INDEX FROM A DRIVER FILE. 00461/14 DISTRIBUTION D3.2 DRIVER D MTS:D3.2DRIVER D3.2T2 130 DISTRIBUTION.D3.2_DRIVER.D.14 1 LINE 235 50 PAGE UM WSG MAR. 21, 1975 13:21:28 0 THIS DRIVER IS A SUBSET OF 461/7 AND WAS USED TO PRODUCE THE 1600 BPI D3.2 DISTRIBUTION TAPE. 00461/15 DISTRIBUTION D3.2DRIVER 800 D MTS:D3.2DRIVE800 D3.2T2 131 DISTRIBUTION.D3.2DRIVER_80.D.15 1 LINE 235 50 PAGE UM WSG MAR. 21, 1975 13:21:33 0 SAME AS 461/14 EXCEPT THE OUTPUT TAPE NUMBERS REFLECT THE 800 BPI D3.2 DISTRIBUTION. 00462/01 CHECKSUM D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=CHKS 8 D3T3 36 CHECKSUM..SA.1 1 SEQ 80 3 PAGE UM DWB AUG. 01, 1973 18:30.28 0 SUBROUTINE TO DETERMINE IF THE MTS DSECT IS STILL VALID. CAN FORCE A SNARK OR CALL SIGNOFF IF NOT. COPIES COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640). NEEDS MACROS IN COPY:MTS.MACROS (344). 0 Referenced by comments of: 344/1, 462/2 00462/02 CHECKSUM UPDATE UU G MTS:CHKSUPD D3.2T1 298 CHECKSUM.UPDATE.UU.02 1 LINE 35 1 PAGE UM DWB MAR. 21, 1975 01:32:27 0 UPDATE TO D3 MASTER (462/1) TO PRODUCE CURRENT SOURCE. UPDATE DECK USES %POSN *IN* CHKS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00462/03 CHECKSUM OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00463/01 STANDARD DUMP SA G S0722 'D3T3' FSNAME=STANDARD_DUMP..SA.1 37 D3T3 37 STANDARD_DUMP..SA.1 1 SEQ 80 7 PAGE UM MTA AUG. 01, 1973 18:30.34 0 PRODUCES STANDARD FORMAT DUMPS. SEE ALSO SDUMP (049). 00463/02 STANDARD DUMP OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00464/01 PLIMIT D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=PLIM 5 D3T3 38 PLIMIT..SA.1 1 SEQ 80 3 PAGE UM DWB AUG. 01, 1973 18:30.37 0 CHECKS PAGE AND PUNCH LIMITS. COPIES COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640). NEEDS MACROS IN COPY:MTS.MACROS (344). 0 Referenced by comments of: 344/1, 464/2 00464/02 PLIMIT UPDATE UU G MTS:PLIMUPD D3.2T1 299 PLIMIT.UPDATE.UU.02 1 LINE 55 1 PAGE UM DWB MAR. 21, 1975 01:32:28 0 UPDATE TO D3 MASTER (464/1) TO PRODUCE CURRENT SOURCE. UPDATE DECK USES %POSN *IN* PLIM. 00464/03 PLIMIT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00465/01 *APL MONITOR SA APLM DWB:PF.APLMTS.S D3T3 39 APL.MONITOR.SA.1 1 LINE 80 54 PAGE UM DWB AUG. 01, 1973 18:30.48 0 APL MONITOR. COPIES APLDEFN (465/2), DIRSECT (465/3), ZSYMBOLS (465/4), PERTERM (465/5), AND *GFINFODSECT (593). THIS IS UBC'S UD18 SOURCE (REC'D 2 DEC 71) WITH CHANGES TO ADD PAR=CORR, CHANGES FOR RSF, AND CHANGES TO CALL GFINFO INSTEAD OF THE LOW-LEVEL FILE ROUTINES. NO LONGER REQUIRES TSNIF. 00465/02 *APL APLDEFN SA APLD DWB:APLDEFN D3T3 40 APL.APLDEFN.SA.2 1 LINE 80 6 PAGE UM DWB AUG. 01, 1973 18:31.12 0 Referenced by comments of: 465/1 00465/03 *APL DIRSECT SA DIRS DWB:DIRSECT D3T3 41 APL.DIRSECT.SA.3 1 LINE 80 2 PAGE UM DWB AUG. 01, 1973 18:31.13 0 Referenced by comments of: 465/1 00465/04 *APL ZSYMBOLS SA ZSYM DWB:ZSYMBOLS D3T3 42 APL.ZSYMBOLS.SA.4 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 18:31.18 0 Referenced by comments of: 465/1, 465/6 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00465/05 *APL PERTERM SA PERT DWB:PERTERM D3T3 43 APL.PERTERM.SA.5 1 LINE 80 4 PAGE UM DWB AUG. 01, 1973 18:31.20 0 Referenced by comments of: 465/1 00465/06 *APL TRTAB SA TRTA DWB:UD18.TRTA.S D3T3 44 APL.TRTAB.SA.6 1 LINE 80 24 PAGE UM DWB AUG. 01, 1973 18:31.22 0 THIS IS UBC'S UD18 SOURCE FOR TRANSLATE TABLES WITH ERROR CORRECTED. COPIES ZSYMBOLS (465/4). 00465/07 *APL COMPIL/INTERPR S # (NOT AVAILABLE) UM DWB 0 APL COMPILER/INTERPRETER. NO SOURCE AVAILABLE. 00465/08 *APL SHARED OBJECT OC SEG2:S2APL D3T3 45 APL.SHARED_OBJECT.O.8 1 LINE 255 48 PAGE UM DWB AUG. 01, 1973 18:31.28 0 APL OBJECT LOADED INTO SHARED VM BY SEG 2 LOADER AT IPL. 00465/09 *APL *APL OC *APL D3T3 46 APL.*APL.OC.9 1 LINE 24 1 PAGE UM DWB AUG. 01, 1973 18:31.37 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SEGMENT 2 APL (465/9). 0 Referenced by comments of: 465/9 00465/10 *APL USERS' GUIDE WF S0722 'D3T3' FSNAME=APL.USERS'_GUIDE.WF.10 47 D3T3 47 APL.USERS'_GUIDE.WF.10 1 LINE 80 6 DISK UM DWB MAR. 16, 1973 16:01.32 0 THIS IS COMPUTING CENTER MEMO M203 -- "MTS APL USERS' GUIDE" NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY. 00466/01 ACTIVCNT/ASTATSUB SA G ACAS MTS:ACTIVCNT(1,99) D3T3 48 ACTIVCNT/ASTATSUB..SA.1 1 LINE 80 1 PAGE UM DWB AUG. 01, 1973 18:32.00 0 ACTIVCNT CONTAINS THE NUMBER OF USERS SIGNED ON AND ASTATSUB IS USED TO COMMUNICATE BETWEEN MTS AND THE STAT JOB. ACTIVCNT HAS BEEN EXPANDED SINCE DIST 2.0 FROM ONE TO THREE WORDS. THE EXTRA TWO WORDS (ONE FOR BATCH, ONE FOR TERMINAL) ARE INCREMENTED WHENEVER ANYONE SIGNS OFF. THIS PERMITS PROGRAMS TO MEASURE JOB THROUGHPUT CONVENIENTLY. ASTATSUB IS UNCHANGED SINCE DIST 2.0. 00466/02 ACTIVCNT/ASTATSUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00467/01 ENDSEG2 SA G ENDS S0722 'D3T3' FSNAME=ENDSEG2..SA.1 49 D3T3 49 ENDSEG2..SA.1 1 SEQ 80 1 PAGE UM MTA AUG. 01, 1973 18:33.38 0 ASSEMBLY WHOSE ONLY PURPOSE IS TO MARK THE END OF THE IPLED PART OF SEGMENT 2. UNCHANGED SINCE DIST 2.0. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00467/02 ENDSEG2 OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00468/01 RESIDENT SYSTEM 370 OBJECT OC XXX 'CURRENT SYSTEM OBJECT TAPE' FMT=F(80,80) 1 D3.2T1 300 RESIDENT_SYSTEM.370_OBJECT.OC.01 1 SEQ 80 141 PAGE UM MTA MAR. 21, 1975 01:34:00 0 CURRENT UM 370/168 RESIDENT SYSTEM OBJECT. 0 Referenced by comments of: 156/1, 468/3, 634/5 00468/02 RESIDENT SYSTEM 360 OBJECT D = ??? UM MTA 0 Referenced by comments of: 634/6 00468/03 RESIDENT SYSTEM UM RAMROD D MTS:ROD D3.2T1 301 RESIDENT_SYSTEM.UM_RAMROD.D.03 1 SEQ 32767 249 PAGE UM MTA MAR. 21, 1975 01:34:08 0 CURRENT UM RAMROD FILE INCLUDING SYSTEM "AR205" (468/1). THE FOLLOWING PROCEDURES ARE USED IN MAINTAINING THIS FILE. WHENEVER A NEW SYSTEM IS INSTALLED (I.E. WRITTEN ON MTS001), THREE THINGS ARE DONE: (1) AN IPLABLE DECK IS WRITTEN ON A TAPE USING THE RAMROD "COPY" COMMAND AND THIS TAPE IS PUT ON THE TOP OF A THREE TAPE PUSH DOWN STACK OF SYSTEM OBJECT TAPES KEPT IN THE MACHINE ROOM. (2) THE NAME OF THE SYSTEM INSTALLED IS CHANGED TO THE "MODEL NUMBER" OF THE DATE IT IS INSTALLED, E.G. "AR135" FOR TODAY. (3) THE SYSTEM INSTALLED IS MADE THE CURRENT SYSTEM. (4) THE OLDEST SYSTEM IS DELETED SO THAT THERE ARE THREE SYSTEMS-- THE CURRENT ONE AND THE TWO PRECEDING. WHEN SOMEONE WISHES TO INSTALL A NEW COMPONENT, BUT NOT WRITE THE DISK, A NEW SYSTEM CALLED "NEWSYS" SHOULD BE 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 DISK IS WRITTEN, THE SYSTEM "NEWSYS" IS THE ONE USED ACCORDING TO THE PROCEDURE ABOVE. A TEST SYSTEM CAN BE CREATED AT ANY TIME WITH ANY NAME, BUT WHEN THE NEW COMPONENTS ARE READY TO BE INSTALLED, THEY SHOULD BE PUT IN "NEWSYS" AND THE TEST SYSTEM DESTROYED. 00468/04 RESIDENT SYSTEM WRITEUP WF = ???? D3T3 50 SYSTEM_OBJECT_DECK.WRITEUP.WF.3 1 LINE 142 4 PAGE UM MTA AUG. 01, 1973 18:34.23 0 A WRITEUP DESCRIBING THE STRUCTURE OF THE SYSTEM OBJECT DECKS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00469 360/20 RJE SUPPORT PGM S # (OBSOLETE) D2T1 094 UM 00470 PCB DSECT COPY:PCBDSECT SA G COPY:PCBDSECT D3.2T1 302 PCB_DSECT.COPY:PCBDSECT.SA. 1 LINE 72 2 PAGE UM MTA MAR. 21, 1975 01:34:25 0 DSECT FOR THE PAGE CONTROL BLOCK. COPIED BY THE SUPERVISOR, PDP, AND CONFIG AMONG OTHERS. 0 Referenced by comments of: 44/1, 45/2, 46/2, 400/1, 577/25, 577/53 00471/01 REX MONITOR SA G REX0 S0871 REX370 FSNAME=REXS2 1 D3.2T1 303 REX.MONITOR.SA.01 1 LINE 80 78 PAGE UM MTA JULY 16, 1974 13:04:27 0 CUSTOMER ENGINEER I/O EXERCISOR PROGRAM WRITEN BY IBM C.E. ROLF WITZSCHE AT UBC. THIS IS THE REX SUPERVISOR-MONITOR WHICH LOADS THE PROGRAM SECTIONS FROM THE SECTION FILE (REXC). THIS FILE ALSO CONTAINS A SPECIAL ASSEMBLER FOR ASSEMBLING THE UDT TABLES AND PROGRAM SECTIONS. >>>> NOTE: THE IBM EREP PROGRAM (655) IS ALSO AVAILABLE FOR USE UNDER *FAKEOS. <<< 00471/02 REX MONITOR OC G MTA:REX D3.2T1 304 REX.MONITOR.OC.02 1 LINE 80 15 PAGE UM MTA MAR. 21, 1975 01:36:14 00471/03 REX UDT TABLE S G REXU MTA:REXUDT D3.2T1 305 REX.UDT_TABLE.S.03 1 LINE 80 2 PAGE UM MTA MAR. 21, 1975 01:36:16 0 REX UDT TABLE FOR THE UM CONFIGURATION. WILL HAVE TO BE MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION. MUST BE ASSEMBLED BY REX, NOT *ASMG (SEE 471/6 AND 471/7). 00471/04 REX PGM SECTIONS S G REXC S0722 'D3T3' FSNAME=REX.PGM_SECTIONS.S.4 55 D3T3 55 REX.PGM_SECTIONS.S.4 1 SEQ 80 123 PAGE UM MTA AUG. 01, 1973 18:37.32 0 PROGRAM SECTIONS (EXCEPT EREP) WHICH MUST BE ASSEMBLED BY REX, NOT *ASMG (SEE 471/6 AND 471/7). 00471/05 REX REXC O G MTA:REXC D3.2T1 306 REX.REXC.O.05 1 LINE 80 20 PAGE UM MTA MAR. 21, 1975 01:36:18 0 OBJECT FOR UDT TABLE AND PROGRAM SECTIONS EREP, PRIN, CARD, FRND, COMP, AND TAPE (471/3, 471/4, AND 471/8). NOTE: THIS IS NOT ASMG OBJECT FORMAT. 00471/06 REX REXGEN C S0722 'D3T3' FSNAME=REX.REXGEN.C.6 57 D3T3 57 REX.REXGEN.C.6 1 LINE 57 1 PAGE UM MTA AUG. 01, 1973 18:39.57 0 COMMAND FILE TO ASSEMBLE REX (USING *ASMG) AND TO ASSEMBLE THE UDT TABLE AND PROGRAM SECTIONS (USING REX). 00471/07 REX REXGEN1 C S0722 'D3T3' FSNAME=REX.REXGEN1.C.7 58 D3T3 58 REX.REXGEN1.C.7 1 LINE 24 1 PAGE UM MTA AUG. 01, 1973 18:39.59 0 COMMAND FILE TO ASSEMBLE CERTAIN PROGRAM SECTIONS (USING REX). 00471/08 REX 370 EREP S MTA:REX.EREP D3.2T1 307 REX.370_EREP.S.08 1 LINE 101 11 PAGE UM MTA MAR. 21, 1975 01:36:23 0 SOURCE FOR REX EREP, SLIGHTLY MODIFIED FROM UBC VERSION. 1 FRI AUG 02/96 19:04:25 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 INPUT TO REX/EREP IS GIVEN AS "LNN" WHERE IS L IS A SINGLE LETTER CODE AND NN IS A 2-DIGIT NUMBER CODE AS FOLLOWS: LETTER CODES: A, B, C, AND D ALL GENERATE TEST PATTERNS INSTEAD OF READING DATA. A = 0000000200040006 ... B = FFFFFFFFFFFFFFFF ... C = 0000000000000000 ... D - WHATEVER IS IN THE INPUT AREA E READS FROM A TAPE ATTACHED BY THE "S06" REX COMMAND. F, G, H, AND I READ FROM A LOGOUT FILE ON UNIT 2. F - READ AND UPDATE THE LINE POINTER IN FILE. G - READ AND DON'T UPDATE THE LINE POINTER. H - DON'T UPDATE LINE POINTER AND PRINT ONLY ONE LINE PER ERROR. I - IGNORE LINE POINTER. NOTE: THE LINE POINTER IS USED TO DETERMINE WHERE TO START READING. IT IS AT LOCATION X'20' IN LINE 1 OF THE FILE REXC, WHICH MUST BE ON UNIT 3. IT IS A HALFWORD GIVING THE NUMBER OF RECORDS TO INITIALLY SKIP ON UNIT 2. NUMBER CODES: 00 - FIGURE OUT LOGOUT TYPE BY INSPECTION. 01 - ASSUME A 2870 LOGOUT. 02 - ASSUME A 2880 LOGOUT. 03 - ASSUME A CPU LOGOUT. 04 - RESET THE LINE POINTER. 05 - PRINT THE LINE POINTER. 06 - ASSUME A 2860 LOGOUT. THE FIRST TIME IT IS ENTERED AFTER BEING ASSEMBLED, EREP READS A BUNCH OF STUFF FROM UNIT 2 (EREP1) AND STORES IT AT THE END OF ITSELF. IT THEN PROCEEDS TO FIND ITSELF IN REXC ON UNIT 3 AND WRITE ITSELF BACK OUT STARTING AT LOCATION X'200' AND SKIPPING 8 LINES IN REXC. 0 Referenced by comments of: 471/9 00471/09 REX EREP DATA D MTA:REX.EREP1 D3.2T1 308 REX.EREP_DATA.D.09 1 LINE 94 21 PAGE UM MTA MAR. 21, 1975 01:36:27 0 DATA FOR EREP SECTION (471/8), SLIGHTLY MODIFIED FROM UBC VERSION. 00471/10 REX XREF SS MTA:REX.XREF D3.2T1 309 REX.XREF.SS.10 1 LINE 67 1 PAGE UM MTA MAR. 21, 1975 01:36:30 0 SNOBOL PROGRAM TO PRODUCE A CROSS REFERENCE FOR A REX SECTION (!"#@!). 00471/11 REX UPDATE S0871 REX370 FSNAME=UPDATE 4 D3.2T1 310 REX.UPDATE..11 1 LINE 83 2 PAGE UM MTA JULY 16, 1974 13:05:17 0 MTS AND REX COMMANDS AND INCOMPLETE PROSE DESCRIPTION FOR INSTALLING AND USING THE 370 EREP SECTION IN REX. A BETTER PROSE DESCRIPTION IS INCLUDED IN THE DISTRIBUTION PAPER MATERIAL. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00472/01 *ST360 MAIN PGM SA G STMN S0722 'D3T3' FSNAME=ST360.MAIN_PGM.SA.1 59 D3T3 59 ST360.MAIN_PGM.SA.1 1 SEQ 80 41 PAGE UM MTA AUG. 01, 1973 18:40.02 0 THE STUDENT VIRTUAL MACHINE SIMULATOR. THE SIMULATED MACHINE HAS THE FOLLOWING CHARACTERISTICS: 1. THE SYSTEM/360 UNIVERSAL INSTRUCTION SET 2. NO INTERVAL TIMER 3. NO MEMORY PROTECTION 4. 32K BYTES OF STORAGE 5. AN I/O COMPLEMENT CONSISTING OF: A. 1052 OPERATOR'S CONSOLE ADDRESS 0009 B. 2540 CARD READER ADDRESS 000C C. 2540 CARD PUNCH ADDRESS 000D D. 1403 LINE PRINTER ADDRESS 000E E. 2 2401 9-TRACK TAPE DRIVES ADDRESSES 0180-0181 6. EXCEPT AT IPL, SELF-MODIFYING CCW'S ARE NOT ALLOWED 7. INSTANTANEOUS I/O NOTE: THE STANDARD VIRTUAL MACHINE (558) NOW HAS AN ASSEMBLY PARAMETER TO PRODUCE A STUDENT VERSION. 00472/02 *ST360 CCWTRANS SUBR SA G CCWT S0722 'D3T3' FSNAME=ST360.CCWTRANS_SUBR.SA.2 60 D3T3 60 ST360.CCWTRANS_SUBR.SA.2 1 SEQ 80 12 PAGE UM MTA AUG. 01, 1973 18:49.51 0 SUBROUTINE CALLED BY 472/1 TO TRANSLATE CCW LISTS. UNCHANGED SINCE DIST 2.0. 00473/001 *1130ASM CCD SA CCD0 S0059 '*1130ASM' FMT=FB(4000,80) 1 D3T3 62 1130ASM.CCD.SA.1 1 SEQ 80 48 PAGE UM ? AUG. 01, 1973 18:51.47 0 IBM ASSEMBLER FOR THE IBM 1130 AND IBM 1800 COMPUTERS. THIS VERSION HAS BEEN MODIFIED TO RUN IN MTS. THIS THING APPEARS TO CONSIST OF 4 ASSEMBLIES AND 1 COPY SECTION. THE QUESTION IS WHICH IS WHICH. WE SUGGEST THAT THE FIRST MAY BE THE COPY SECTION, BUT WE'RE NOT SURE. 00473/002 *1130ASM M0 SA M000 S0059 '*1130ASM' FMT=FB(4000,80) 2 D3T3 63 1130ASM.M0.SA.2 1 SEQ 80 2 PAGE UM ? AUG. 01, 1973 18:51.57 00473/003 *ST360 OBJECT OE G *ST360 D3T3 61 ST360.OBJECT.OE.3 1 SEQ 8776 3 PAGE UM MTA AUG. 01, 1973 18:49.56 00473/004 *1130ASM M12 SA M120 S0059 '*1130ASM' FMT=FB(4000,80) 3 D3T3 64 1130ASM.M12.SA.3 1 SEQ 80 74 PAGE UM ? AUG. 01, 1973 18:52.43 00473/005 *1130ASM M3 SA M030 S0059 '*1130ASM' FMT=FB(4000,80) 4 D3T3 65 1130ASM.M3.SA.4 1 SEQ 80 89 PAGE UM ? AUG. 01, 1973 18:53.47 00473/006 *1130ASM M4 SA M040 S0059 '*1130ASM' FMT=FB(4000,80) 5 D3T3 66 1130ASM.M4.SA.5 1 SEQ 80 25 PAGE UM ? AUG. 01, 1973 18:54.12 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00473/007 *1130ASM OBJECT OC *1130ASM D3T3 67 1130ASM.OBJECT.OC.6 1 SEQ 80 18 PAGE UM ? AUG. 01, 1973 18:54.16 00474 FILETEST # (SEE COMP 482) UM 00475 OS SIMULATION PACKAGE S # (OBSOLETE) D2T1 284 UM 00476 DBS:MSG S # (OBSOLETE) D2T1 441 UM 00477 SIMPLEX OBJECT DECK OC # (SEE COMP 468) UM 00480 APF SA # (OBSOLETE) D2T1 329 UM 00481 FILE SAVE - OLD VERSION O # (OBSOLETE) D2T1 001 UM 00482/01 FILE SYSTEM DASDUC SA G DAUC W045:DASDUC D3T3 68 FILE_SYSTEM.DASDUC.SA.1 1 LINE 80 18 PAGE UM PIRKOLA AUG. 01, 1973 18:54.20 0 2311/2314/2321/2301 UNIT CHECK ROUTINES. 00482/02 FILE SYSTEM DASDUC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/03 FILE SYSTEM MOVIT SA G MOVE W045:PF.MOVE D3.2T1 311 FILE_SYSTEM.MOVIT.SA.03 1 LINE 80 4 PAGE UM PIRKOLA MAR. 21, 1975 01:36:36 0 SUBROUTINE TO MOVE CORE AROUND. COPIES *CNFGINFODSECT (654). 00482/04 FILE SYSTEM MOVIT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/05 FILE SYSTEM VOLGET SA G VGET W045:PF.VOLGET D3.2T1 312 FILE_SYSTEM.VOLGET.SA.05 1 LINE 80 22 PAGE UM PIRKOLA MAR. 21, 1975 01:36:37 0 BASIC LOW LEVEL DISK SUBROUTINES TO EXECUTE CHANNEL PROGRAMS, ETC. COPIES COPY:DSKDSCT (482/42) AND COPY:FCBEQU (482/27). 0 Referenced by comments of: 534/5 00482/06 FILE SYSTEM VOLGET OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/07 FILE SYSTEM TRAK SA G TRAK W045:PF.TRAK D3.2T1 313 FILE_SYSTEM.TRAK.SA.07 1 LINE 80 17 PAGE UM PIRKOLA MAR. 21, 1975 01:36:40 0 BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE PHYSICAL RECORDS. COPIES COPY:FCBEQU (482/27), COPY:DSKDSCT (482/42), AND *CNFGINFODSECT (654). NOTE: THIS PROGRAM USES SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00482/08 FILE SYSTEM TRAK OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/09 FILE SYSTEM FILETEST SA O FTST W045:PF.FILETEST D3T3 72 FILE_SYSTEM.FILETEST.SA.9 1 LINE 80 23 PAGE UM PIRKOLA AUG. 01, 1973 18:54.35 0 FILE ROUTINES PRIMATIVE TEST PROGRAM. SEE COMMENTS IN SOURCE FOR USAGE. THIS PROGRAM ACTS AS A MAIN PROGRAM TO CALL PRIVATE COPIES OF ALL OF THE FILE ROUTINES. 00482/10 FILE SYSTEM FILETEST OC O W045:PF.FILETEST.O D3T3 73 FILE_SYSTEM.FILETEST.OC.10 1 LINE 80 5 PAGE UM PIRKOLA AUG. 01, 1973 18:54.46 0 PRIVATE COPIES OF THE FOLLOWING FILE ROUTINES SHOULD BE LOADED WITH FILETEST: VOLGET, TRAK, READI, WRITEI, READL, OPEN ETC, GETDSK, FLINE, CATALOG, RWSEQ, TABLRTN, TABLES, AND DSACC. THESE SHOULD BE THE REGULAR VERSIONS EXCEPT AS FOLLOWS: TABLRTN THIS SHOULD BE A SPECIAL VERSION OF TABLRTN (482/30) WHICH DOES NOT EXECUTE ANY SVC'S. A CHANGE IN THE MYSVC MACRO TO ASSEMBLE A NOP WILL ACCOMPLISH THIS. DSACC THIS SHOULD BE THE SPECIAL VERSION OF DSACC (482/40), THE DISK ACCOUNTING ROUTINES, WHICH JUST GIVE RETURN CODE ZERO. IF THIS IS NOT PROVIDED THE REGULAR DISK ACCOUNTING ROUTINES WOULD BE CALLED THEREBY ACCOUNTING FOR FILES CREATED OR DESTROYED ON THE TEST PACK. TABLES YOU SHOULD MAKE A SPECIAL VERSION OF TABLES (004) WHICH HAS ONLY VOLUME "MTSTST" (THE TEST PACK) AND PERHAPS HAS ONLY A LIMITED SET OF DRIVE ADDRESSES. IF THE FULL SET OF VOLUMES WERE INCLUDED, THE FILE TESTING PROCEDURE COULD EASILY LATCH ONTO A "LIVE" (I.E. NON-TEST) DISK PACK AND SCREW-UP REGULAR USER FILES. THIS FILE HAS A "$CONTINUE WITH W045:DSACC(1000) RETURN" RECORD IN IT. 00482/11 FILE SYSTEM READI SA G READ W045:PF.READ D3.2T1 314 FILE_SYSTEM.READI.SA.11 1 LINE 80 14 PAGE UM PIRKOLA MAR. 21, 1975 01:36:42 0 SUBROUTINE TO READ FROM A LINE FILE. COPIES COPY:FCBEQU (482/27) 00482/12 FILE SYSTEM READI OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/13 FILE SYSTEM WRITEI SA G WRIT W045:PF.WRITEI D3.2T1 315 FILE_SYSTEM.WRITEI.SA.13 1 LINE 80 30 PAGE UM PIRKOLA MAR. 21, 1975 01:36:44 0 SUBROUTINE TO WRITE INTO A LINE FILE. COPIES COPY:FCBEQU (482/27) 00482/14 FILE SYSTEM WRITEI OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/15 FILE SYSTEM READL SA G REDL W045:PF.READL D3.2T1 316 FILE_SYSTEM.READL.SA.15 1 LINE 80 11 PAGE UM PIRKOLA MAR. 21, 1975 01:36:47 0 SUBROUTINE TO FIND THE FIRST OR LAST LINE NUMBER IN A FILE. 1 FRI AUG 02/96 19:04:25 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 ALSO CONTAINS A SUBROUTINE TO RENUMBER A LINE FILE. COPIES COPY:FCBEQU (482/27). 00482/16 FILE SYSTEM READL OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 0 ***** NOTE: THIS OBJECT CONTAINS A REP CARD. 00482/17 FILE SYSTEM OPEN ETC SA G OPEN W045:PF.OPEN D3.2T1 317 FILE_SYSTEM.OPEN_ETC.SA.17 1 LINE 80 62 PAGE UM PIRKOLA MAR. 21, 1975 01:36:49 0 SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES. COPIES COPY:FCBEQU (482/27), COPY:CATEQU (482/28), COPY:DSKDSCT (482/42), AND COPY:DSCBDSCT (482/41). 00482/18 FILE SYSTEM OPEN ETC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/19 FILE SYSTEM GETDSK ETC SA G GDSK W045:PF.GETDSK D3.2T1 318 FILE_SYSTEM.GETDSK_ETC.SA.19 1 LINE 80 28 PAGE UM PIRKOLA MAR. 21, 1975 01:36:53 0 ALLOCATE AND RELEASE DISK SPACE. COPIES COPY:FCBEQU (482/27), COPY:DSCBDSCT (482/41), COPY:DSKDSCT (482/42), AND COPY:PATEQU (482/43). 00482/20 FILE SYSTEM GETDSK ETC OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/21 FILE SYSTEM FLINE SA G FLIN W045:PF.FLIN D3.2T1 319 FILE_SYSTEM.FLINE.SA.21 1 LINE 80 9 PAGE UM PIRKOLA MAR. 21, 1975 01:36:58 0 SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE. COPIES COPY:FCBEQU (482/27) 00482/22 FILE SYSTEM FLINE OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/23 FILE SYSTEM CATALOG SUBR SA G CSBR W045:PF.CATL D3.2T1 320 FILE_SYSTEM.CATALOG_SUBR.SA.23 1 LINE 80 69 PAGE UM PIRKOLA MAR. 21, 1975 01:37:00 0 SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES. COPIES COPY:CATEQU (482/28), COPY:FCBEQU (482/27), COPY:DSKDSCT (482/42), AND COPY:DSCBDSCT (482/41). 00482/24 FILE SYSTEM CATALOG SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 0 ***** NOTE: THIS OBJECT CONTAINS A REP CARD. 00482/25 FILE SYSTEM READ/WRITE SEQ SA G RWSE W045:PF.RWSEQ D3.2T1 321 FILE_SYSTEM.READ/WRITE_SEQ.SA.25 1 LINE 80 27 PAGE UM PIRKOLA MAR. 21, 1975 01:37:07 0 SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES. COPIES COPY:FCBEQU (482/27) 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00482/26 FILE SYSTEM READ/WRITE SEQ OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/27 FILE SYSTEM FCBEQU SA G FCBE COPY:FCBEQU D3.2T1 322 FILE_SYSTEM.FCBEQU.SA.27 1 LINE 80 4 PAGE UM PIRKOLA MAR. 21, 1975 01:37:09 0 DEFINITION OF A FILE CONTROL BLOCK. COPIED BY MOST FILE ROUTINES, BUT NOT MTS. 0 Referenced by comments of: 67/2, 67/4, 92/2, 104/92, 104/94, 143/1, 442/1, 451/1, 482/5, 482/7, 482/11, 482/13, 482/15, 482/17, 482/19, 482/21, 482/23, 482/25, 482/32, 482/45, 502/13, 509/1, 546/1 00482/28 FILE SYSTEM CATEQU SA G CATE COPY:CATEQU D3.2T1 323 FILE_SYSTEM.CATEQU.SA.28 1 LINE 80 4 PAGE UM PIRKOLA MAR. 21, 1975 01:37:12 0 DEFINITION OF THE CATALOG FORMAT. COPIED BY MOST FILE ROUTINES. 0 Referenced by comments of: 67/1, 67/2, 92/2, 97/7, 104/90, 104/92, 104/94, 442/1, 451/1, 482/17, 482/23, 502/1, 502/11, 509/1, 578/1, 599/1 00482/29 FILE SYSTEM ICEQU SA G ICEQ COPY:ICEQU D3.2T1 324 FILE_SYSTEM.ICEQU.SA.29 1 LINE 80 3 PAGE UM PIRKOLA MAR. 21, 1975 01:37:14 0 COPY SECTION FOR DEFINITION OF SYSTEM-WIDE SHARED FILE TABLE FORMAT. 0 Referenced by comments of: 482/30, 554/1, 554/3 00482/30 FILE SYSTEM TABLRTN SA G TABL W045:PF.TABLRTN D3.2T1 325 FILE_SYSTEM.TABLRTN.SA.30 1 LINE 80 52 PAGE UM PIRKOLA MAR. 21, 1975 01:37:16 0 SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE. COPIES COPY:ICEQU (482/29). 0 Referenced by comments of: 482/10, 534/5 00482/31 FILE SYSTEM TABLRTN OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/32 FILE SYSTEM GETFINF SA G GETF W045:PF.GETFINF D3.2T1 326 FILE_SYSTEM.GETFINF.SA.32 1 LINE 80 11 PAGE UM PIRKOLA MAR. 21, 1975 01:37:26 0 SUBROUTINE TO RETURN INFORMATION ABOUT A FILE. CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF). MANY PROGRAMS SHOULD BE CHANGED TO USE GFINFO TO DO THEIR DIRTY WORK. COPIES COPY:FCBEQU (482/27). 00482/33 FILE SYSTEM GETFINF OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00482/34 FILE SYSTEM CATALOG DESC WF G S0722 'D3T3' FSNAME=FILE_SYSTEM.CATALOG_DESC.WF.34 87 D3T3 87 FILE_SYSTEM.CATALOG_DESC.WF.34 1 LINE 115 6 PAGE UM PIRKOLA JULY 24, 1973 22:12.35 0 THIS IS A WRITEUP ON THE "INTERNAL STRUCTURE OF THE CATALOG IN MTS" 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00482/35 FILE SYSTEM LINE FILE DESC WF G S0722 'D3T3' FSNAME=FILE_SYSTEM.LINE_FILE_DESC.WF.35 88 D3T3 88 FILE_SYSTEM.LINE_FILE_DESC.WF.35 1 LINE 120 3 PAGE UM PIRKOLA JULY 24, 1973 22:12.49 0 THIS IS A WRITEUP ON "THE INTERNAL STRUCTURE OF LINE FILES IN MTS" 00482/36 FILE SYSTEM SEQ FILE DESC WF G S0722 'D3T3' FSNAME=FILE_SYSTEM.SEQ_FILE_DESC.WF.36 89 D3T3 89 FILE_SYSTEM.SEQ_FILE_DESC.WF.36 1 LINE 119 3 PAGE UM PIRKOLA JULY 24, 1973 22:13.06 0 THIS IS A WRITEUP ON THE "INTERNAL STRUCTURE OF SEQUENTIAL FILES IN MTS" 00482/37 FILE SYSTEM SHAR INTERNALS WF G W098:INTERNSHARED 6 D3.1T1 287 FILE_SYSTEM.SHAR_INTERNALS.WF.37 1 LINE 131 5 PAGE UM PIRKOLA MAR. 06, 1974 17:42.05 0 THIS IS A WRITEUP ON "THE INTERNAL STRUCTURE OF THE SYSTEM WIDE SHARED FILE TABLE IN MTS" 00482/38 FILE SYSTEM NEW MTS SUBRS WF G S0722 'D3T3' FSNAME=FILE_SYSTEM.NEW_MTS_SUBRS.WF.38 91 D3T3 91 FILE_SYSTEM.NEW_MTS_SUBRS.WF.38 1 LINE 114 4 DISK UM PIRKOLA MAR. 16, 1973 16:02.02 0 THIS IS COMPUTING CENTER MEMO M229 -- "NEW SUBROUTINES IN MTS" IT DESCRIBES THE FOLLOWING NEW USER SUBROUTINES, ADDED WITH "RSF" -- REALLY SHARED FILES: LOCK, UNLK, GETFST, GETLST, TRUNC, RENUMB, RENAME, FSRF, BSRF, AND PERMIT. 00482/39 FILE SYSTEM TEST DSACC SA G DSAC W045:DSACC(1,999) D3T3 92 FILE_SYSTEM.TEST_DSACC.SA.39 1 LINE 80 1 PAGE UM PIRKOLA AUG. 01, 1973 18:58.01 0 SPECIAL NOP VERSION OF DSACC. 00482/40 FILE SYSTEM TEST DSACC OC G W045:DSACC(1000) D3T3 93 FILE_SYSTEM.TEST_DSACC.OC.40 1 LINE 80 1 PAGE UM PIRKOLA AUG. 01, 1973 18:58.03 0 Referenced by comments of: 482/10 00482/41 FILE SYSTEM DSCBDSCT SA G DSCB COPY:DSCBDSCT D3.2T1 327 FILE_SYSTEM.DSCBDSCT.SA.41 1 LINE 80 1 PAGE UM PIRKOLA MAR. 21, 1975 01:37:28 0 DSECT FOR DSCB USED BY FILE ROUTINES. 0 Referenced by comments of: 67/1, 67/2, 67/4, 104/94, 482/17, 482/19, 482/23, 502/13, 597/1, 598/1, 642/1 00482/42 FILE SYSTEM DSKDSCT SA G DSKD COPY:DSKDSCT D3.2T1 328 FILE_SYSTEM.DSKDSCT.SA.42 1 LINE 80 2 PAGE UM PIRKOLA MAR. 21, 1975 01:37:30 0 DSECT FOR DISK TABLE DSECT USED BY FILE ROUTINES. 0 Referenced by comments of: 4/1, 4/4, 67/1, 67/2, 67/4, 73/2, 442/1, 482/5, 482/7, 482/17, 482/19, 482/23, 502/13, 597/1, 621/2, 642/1, 644/1 00482/43 FILE SYSTEM PATEQU SA G PATE COPY:PATEQU D3.2T1 329 FILE_SYSTEM.PATEQU.SA.43 1 LINE 80 1 PAGE UM PIRKOLA MAR. 21, 1975 01:37:32 0 EQU'S FOR PAGE ASSIGNMENT TABLE USED BY RESTORE AND OTHERS. 0 Referenced by comments of: 67/1, 67/4, 482/19 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00482/44 FILE SYSTEM FSMAC SA G W045:FSMAC D3.2T1 330 FILE_SYSTEM.FSMAC.SA.44 1 LINE 72 3 PAGE UM PIRKOLA MAR. 21, 1975 01:37:35 0 A PROGRAM WHICH ONLY CONSISTS OF A MACRO AND MACRO CALLS USED TO CALCULATE THE FILE SYSTEM SCRATCH AREA SIZES. IT PRODUCES NO OBJECT CODE, BUT THE ASSEMBLY LISTING IS USEFUL IN DETERMINING THE VALUES TO USE IN SETTING UP COPY:MTS.EQU2 (347). 00482/45 FILE SYSTEM FSTEST SA G FSTS W047:FSTEST.S D3.2T1 331 FILE_SYSTEM.FSTEST.SA.45 1 LINE 80 25 PAGE UM HAMILTON MAR. 21, 1975 01:37:37 0 FILE SYSTEM TEST PROGRAM. COPIES COPY:FCBEQU (482/27). ASSEMBLE WITH *SYSMAC AND PAR=B. USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES. SOME NEW COMMANDS AND OPTIONS HAVE BEEN ADDED. SEE THE WRITEUP (482/47). 0 Referenced by comments of: 482/47 00482/46 FILE SYSTEM FSTEST OC G W047:FSTEST D3.2T1 332 FILE_SYSTEM.FSTEST.OC.46 1 LINE 80 6 PAGE UM HAMILTON MAR. 21, 1975 01:37:40 0 >>>>>>>>>> CONTAINS A REP CARD <<<<<<<<<<<<<< 00482/47 FILE SYSTEM FSTEST WRITEUP PF W047:FSTEST.W D3.2T1 333 FILE_SYSTEM.FSTEST_WRITEUP.PF.47 1 LINE 69 4 PAGE UM HAMILTON MAR. 21, 1975 01:37:42 0 WRITEUP DESCRIBING THE FILE SYSTEM TEST PROGRAM (482/45). COPY TO A TN PRINTER. 0 Referenced by comments of: 482/45 00483/01 *WATFIV UPDATE UU G WATF:WAT5.SGEN D3T3 101 WATFIV.UPDATE.UU.1 1 LINE 80 21 PAGE UM SHERRY AUG. 01, 1973 18:58.35 0 WATFIV GENERATION PROCEDURE 1) OBTAIN WATFIV (V1L3) DISTRIBUTION TAPE FROM THE UNIVERSITY OF WATERLOO. 2) $RUN *IEHMOVE ON FILE WATFIV.SOURCE (OF ABOVE TAPE), PLACING OUTPUT ON ANOTHER TAPE. YOU SHOULD GET 83 FILES BLOCKED FB(3440,80). 3) SEVERAL OF THESE 83 FILES ARE COPY SECTIONS. USING THE WATFIV UPDATE (483/1), $RUN *UPDATE ON THE THE FOLLOWING FILES TO PRODUCE UPDATED DISK FILES BY THE SAME NAME: 2 (ACCT), 11 (CDEFN), 17 (COMMR), 42 (ERRTEXTS), 44 (EXTRN), 66 (OPTIONS), 74 (STARTA), 75 (STARTB), AND 77 (SYS). 4) FILES 1, 3-8, 10, 12-16, 18-28, 30, 31, 33-38, 41, 43, 46, 50, 52, 54, 55, 57, 60, 62, 63, 67, 68, 70-72, 76, AND 78 ARE MACROS. ALL CAN BE COPIED INTACT TO A MACRO LIBRARY EXCEPT FOR 76 (STOP#) WHICH MUST BE UPDATED. THIS MACRO LIBRARY GENERATES CODE FOR THE ELEMENTARY FUNCTIONS. 5) ANOTHER MACRO LIBRARY COMES FROM THE WATERLOO DIST TAPE. $RUN *IEHMOVE ON FILE WATFIV.MACLIB TO GET THIS. 6) NEXT, 16 OF THE 83 FILES CONTAIN ASSEMBLY SOURCE. EACH OF THESE MUST BE UPDATED BY *UPDATE TO PRODUCE THE MTS VERSION. THEN ASSEMBLE THESE USING THE 3 MACRO LIBRARIES: *SYSMAC, AND THE ONES PRODUCED IN STEPS 4 AND 5. SEVERAL OF THESE ASSEMBLIES COPY FILES GENERATED IN STEP 3. THE 16 FILES ARE: 9 (ARITH), 32 (DODO), 40 (ERROR), 47 (FORMAT), 48 (FORMCONV), 49 (FRIOSCAN), 51 (FUNCTION), 53 (IBCOM#), 56 (INOUT), 58 (LANDR), 59 (MAIN), 64 (NAMELIST), 69 (SCAN), 73 (SPEX), 82 (WATIO), AND 83 (WATLOAD). 1 FRI AUG 02/96 19:04:25 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 7) ASSEMBLE THE 3 CSECTS FIOCS (483/2), DIOCS (483/3) AND DEFAULT (483/4). 8) THE 19 CSECTS FROM STEPS 6 AND 7 CONSTITUTE *WATFIV. THE ENTRY POINT IS AT MAINP IN THE MODULE MAIN. THE WATFIV UPDATE DECK (483/1) IS ORGANIZED (BY LINE NUMBER) AS FOLLOWS: LINE NUMBERS FILE # NAME (2000,2999) *2* ACCT (9000,9999) *9* ARITH (11000,11999) *11* CDEFN (17000,17999) *17* COMMR (32000,32999) *32* DODO (40000,40999) *40* ERROR (42000,42999) *42* ERRTEXTS (44000,44999) *44* EXTRN (47000,47999) *47* FORMAT (48000,48999) *48* FORMCONV (49000,49999) *49* FRIOSCAN (51000,51999) *51* FUNCTION (53000,53999) *53* IBCOM# (56000,56999) *56* INOUT (58000,58999) *58* LANDR (59000,59999) *59* MAIN (64000,64999) *64* NAMELIST (66000,66999) *66* OPTIONS (69000,69999) *69* SCAN (73000,73999) *73* SPEX (74000,74999) *74* STARTA (75000,75999) *75* STARTB (76000,76999) *76* STOP# (77000,77999) *77* SYS (82000,82999) *82* WATIO (83000,83999) *83* WATLOAD NOTE: THIS FILE CONTAINS MANY "$CONTINUE WITH WAT5.SGEN(---)" CARDS, SO IT IS SUGGESTED THAT THIS COMPONENT BE RESTORED TO A FILE NAMED WAT5.SGEN. 0 Referenced by comments of: 483/1 00483/02 *WATFIV FIOCS SA FIOC WATF:WAT5.FIOCS.S D3T3 102 WATFIV.FIOCS.SA.2 1 LINE 80 20 PAGE UM SHERRY AUG. 01, 1973 18:58.44 0 ASSEMBLE WITH *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO. 0 Referenced by comments of: 483/1 00483/03 *WATFIV DIOCS SA DIOC WATF:WAT5.DIOCS.S D3T3 103 WATFIV.DIOCS.SA.3 1 LINE 80 3 PAGE UM SHERRY AUG. 01, 1973 18:58.49 0 ASSEMBLE WITH *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO. 0 Referenced by comments of: 483/1 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00483/04 *WATFIV DEFAULT SA DFLT WATF:WAT5.DFALT.S D3T3 104 WATFIV.DEFAULT.SA.4 1 LINE 80 4 PAGE UM SHERRY AUG. 01, 1973 18:58.52 0 SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER. ASSEMBLE WITH *SYSMAC. NOTE: THIS ROUTINE IS ALSO USED BY ALGOLW (528) AND PLC (485). 0 Referenced by comments of: 483/1 00483/05 *WATFIV OBJECT OE # *WATFIV UM SHERRY 0 NOTE: BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED. 00483/06 *WATFIV TEST DECKS SF WATF:WAT5.TEST D3T3 105 WATFIV.TEST_DECKS.SF.6 1 LINE 97 6 PAGE UM SHERRY AUG. 03, 1973 21:22.13 0 STARTING AT LINE 1000 IS A WHOLE BATCH OF TEST PROGRAMS. THEY MUST BE RUN WITH THE FOLLOWING I/O ASSIGNMENTS (TEMPORARY FILES): 1 A SEQUENTIAL FILE 2 A LINE FILE 3 ANOTHER LINE FILE 00483/07 *WATFIV USER'S GUIDE WF W098:KDM249 D3T3 106 WATFIV.USER'S_GUIDE.WF.7 1 LINE 130 5 DISK UM SHERRY MAR. 15, 1973 18:03.51 0 THIS IS COMPUTING CENTER MEMO M249 -- "WATFIV USER'S GUIDE" 00484 *ACCRESTORE OE G *ACCRESTORE D3.2T1 334 ACCRESTORE..OE. 1 LINE 255 3 PAGE UM ENGLE MAR. 21, 1975 01:37:44 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/24), THE MAIN PROGRAM, PLUS CURSIG (104/70), ACATALOG (104/91), GETFILE (104/89), ACCIO (104/18), AND ACCFLUPD (104/66). 0 Referenced by comments of: 136/2 00485/01 *PLC UPDATE UU G W081:PLCUPDATE D3.1T1 289 PLC.UPDATE.UU.1 1 LINE 73 10 PAGE UM GOODRICH MAR. 06, 1974 17:42.10 0 UPDATE TO CONVERT CORNELL'S OS/360 PLC (VERSION 6.5) COMPILER/OPERATING SYSTEM INTERFACE TO RUN IN MTS. NOTE: PLC CANNOT BE DISTRIBUTED; YOU MUST OBTAIN IT DIRECTLY FROM CORNELL UNIVERSITY. 0 Referenced by comments of: 483/4 00485/02 *PLC DEFAULT SA # (SEE COMP 483) UM GOODRICH 0 SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00485/03 *PLC INSTALLATION P W081:PLCINSTALL.W D3T3 109 PLC.INSTALLATION.P.2 1 LINE 81 1 PAGE UM GOODRICH AUG. 03, 1973 21:25.58 0 NOTES ON THE INSTALLATION OF PLC IN MTS, WHICH INCLUDES UPDATING AND RE-ASSEMBLING THE PLC/OPERATING SYSTEM INTERFACE (ZZOS) USING 485/1 AND EDITTING THE NON-ZZOS PLC OBJECT, FOR WHICH CORNELL REFUSES TO SUPPLY THE SOURCE, THEREBY MAKING IT NECESSARY TO APPLY PATCHES TO FIX THEIR BUGS. COPY THIS WRITEUP TO A TN PRINTER. 00485/04 *PLC USER'S GUIDE WF W098:KDM262 D3.1T1 290 PLC.USER'S_GUIDE.WF.3 1 LINE 110 45 PAGE UM GOODRICH MAR. 06, 1974 17:42.13 0 THIS IS COMPUTING CENTER MEMO M262 -- "USER'S GUIDE TO PL/C - THE CORNELL COMPILER FOR PL/I" 00486/01 *HBQ SA G HBQ0 S0579 SAVE 'JWS-SAVE' FSNAME=HBQ.S D3T3 111 HBQ..SA.1 1 LINE 80 18 PAGE UM JWS AUG. 03, 1973 21:26.14 0 PROGRAM TO PRINT HASP STATUS OF A PARTICULAR BATCH JOB (BY RECEIPT NUMBER) OR THE BACKLOG AT A PARTICULAR REMOTE STATION OR THE ENTIRE SYSTEM. 00486/02 *HBQ OE G *HBQ D3T3 112 HBQ..O.2 1 LINE 255 3 PAGE UM JWS AUG. 03, 1973 21:26.19 00487/01 LABEL SA G LABL WSG:LABEL(1,999) D3T3 113 LABEL..SA.1 1 LINE 80 7 PAGE UM WSG AUG. 03, 1973 21:26.23 0 PROGRAM TO INITIALIZE LABELED OR UNLABELED MAGNETIC TAPES. AS DISTRIBUTED, IT PRODUCES THE MTS VERSION (*LABEL). IF "&OPER SETB 1" IS ADDED AFTER LINE 12, THE OPERATOR'S VERSION (*LBL) IS PRODUCED WHICH WILL ALLOW A COMPLETELY BLANK TAPE TO BE LABELED. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). 0 Referenced by comments of: 487/4 00487/02 LABEL *LABEL OC G *LABEL D3T3 114 LABEL.*LABEL.OC.2 1 LINE 80 2 PAGE UM WSG AUG. 03, 1973 21:26.27 0 MTS USER PROGRAM FOR LABELING MAGNETIC TAPES WHICH ARE ALREADY MOUNTED. 00487/03 LABEL *LBL C G *LBL D3T3 115 LABEL.*LBL.C.3 1 LINE 29 1 PAGE UM WSG AUG. 03, 1973 21:26.31 0 COMMAND FILE TO RUN THE SYSTEM OPERATOR'S TAPE LABELING PROGRAM (487/4). INVOKED BY ENTERING "MTS *LBL" ON THE OPERATOR'S CONSOLE. 00487/04 LABEL OPERATOR VERS OC G SYS:LBL D3T3 116 LABEL.OPERATOR_VERS.OC.4 1 LINE 80 2 PAGE UM WSG AUG. 03, 1973 21:26.36 0 SPECIAL VERSION OF LABEL (487/1) WHICH CLEARS THE CHKLABEL BIT IN THE MAG TAPE DSR (135) DSECT SO THAT LABEL CHECKING IS NOT PERFORMED. THIS ALLOWS COMPLETELY BLANK TAPES, FOR EXAMPLE, TO BE LABELED BY THE SYSTEM OPERATOR. 0 Referenced by comments of: 487/3 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00488 CONTROL SA # (OBSOLETE) D2.3 035 UM 00489/01 TAPETEST SA G TT00 WSG:TT(1,999) D3.1T1 291 TAPETEST..SA.1 1 LINE 80 11 PAGE UM WSG MAR. 06, 1974 17:43.07 0 THE TAPETEST (TT) PROGRAM WAS DESIGNED TO CHECK OUT THE MTS MAG TAPE ROUTINES (135). HOWEVER, IT SEEMS TO BE A RATHER MORE GENERALLY USEFUL UTILITY FOR MANIPULATING TAPES. IT FIELDS ATTENTION INTERRUPTS AND DSR ERRORS. TT WILL ACCEPT THE FOLLOWING COMMANDS (ON GUSER): ATTACH FDNAME ATTACH A FILE OR DEVICE (CALL "GETFD"). CONTROL STRING CALL "CONTROL" WITH STRING AS THE ARGUMENT. MTS STRING CALL "MTSCMD" (WITH STRING) OR "MTS" (IF STRING OMITTED). READ N READ THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA. RBKWD N READ BACKWARD THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA. SNS ISSUE A "SNS" CONTROL COMMAND AND PRINT THE "SENSE DATA" IN A READABLE FORMAT. STA IDENTICAL TO "SNS" EXCEPT FOR LABELED TAPES, IN WHICH CASE IT DOES NOT CAUSE THE NEXT FILE TO BE OPENED. WRITE FDNAME WRITE RECORDS READ FROM FDNAME (OR *MSOURCE* IF OMITTED) ON THE ATTACHED UNIT. (NOTE: COMMANDS MAY BE ABBREVIATED BY THEIR FIRST LETTER EXCEPT FOR "RBKWD" AND "STA" WHICH REQUIRES 2 LETTERS.) EXAMPLE: $MOUNT POOL 9TP *T* $RUN TT(1000) A *T* C DSN TEST1 C FMT FB(8000,80) W TESTFILE C WTM C DSN TWO W HELLO $ENDFILE C REW SNS MTS $RUN *TAPEDUMP 0=*T* SPRINT=*PRINT* 00489/02 TAPETEST OC G WSG:TT(1000) D3.1T1 292 TAPETEST..OC.2 1 LINE 80 3 PAGE UM WSG MAR. 06, 1974 17:43.10 00490/01 *LAR C *LAR D3T3 119 LAR..C.1 1 LINE 29 1 PAGE UM MTA AUG. 03, 1973 21:26.50 0 COMMAND FILE TO RUN BLAST2703. INVOKED BY ENTERING "MTS *LAR" ON OPERATOR'S CONSOLE. SHOULD ONLY BE USED WHEN 2703 HAS DROPPED ITS LINES SINCE BLAST2703 FAKES A UNIT CHECK ON EACH 2703 ADDRESS. 00490/02 *LAR BLAST2703 SA O BLST MTA:BLAST2703(1,998) D3T3 120 LAR.BLAST2703.SA.2 1 LINE 80 1 PAGE UM MTA AUG. 03, 1973 21:26.55 0 PROGRAM WHICH GIVES A FAKE UNIT EXCEPTION TO EACH 2703 ADDRESS. MAY BE USED TO CLEAN UP 2703 LINES AFTER A CHANNEL RESET. ***** NOTE: MUST BE RE-ASSEMBLED FOR EACH INSTALLATION'S 2703 ADDRESSES. *** ASSEMBLE WITH *SYSMAC. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00490/03 *LAR BLAST2703 OC O MTA:BLAST2703(1000) D3T3 121 LAR.BLAST2703.OC.3 1 LINE 80 1 PAGE UM MTA AUG. 03, 1973 21:26.59 00491/01 *SCRAMBLE OC G *SCRAMBLE D3T3 122 SCRAMBLE..OC. 1 LINE 175 3 PAGE UM ENGLE AUG. 03, 1973 21:27.03 0 PROGRAM TO SCRAMBLE AND UNSCRAMBLE DATA IN MTS LINE FILES. UNFORTUNATELY, WE THINK THAT THE ONLY COPY OF THE SOURCE FOR THIS STARTS AT LINE 10000 IN THE OBJECT FILE AND IS SCRAMBLED. ANYBODY KNOW WHAT KEY WAS USED TO SCRAMBLE IT? MAYBE FRANK WESTERVELT AT WSU MIGHT. THERE IS A "$CONTINUE WITH *DUMMY*" RECORD AT THE END OF THIS FILE. 00491/02 *SCRAMBLE WRITEUP WT O S0780 'D3.1T1' FSNAME=SCRAMBLE.WRITEUP.WT.2 293 D3.1T1 293 SCRAMBLE.WRITEUP.WT.2 1 LINE 132 4 PAGE UM ENGLE JAN. 08, 1974 16:05.57 0 GENERAL WRITEUP ON SCRAMBLE ALGORITHMNS. 00492/01 *DCALC SP G S0722 'D3T3' FSNAME=DCALC..SP.1 123 D3T3 123 DCALC..SP.1 1 LINE 80 13 PAGE UM MTA AUG. 03, 1973 21:27.08 0 PL/I DESK CALCULATOR PROGRAM. 00492/02 *DCALC OE G S0722 'D3T3' FSNAME=DCALC..OE.2 124 D3T3 124 DCALC..OE.2 1 SEQ 21678 8 PAGE UM MTA AUG. 03, 1973 21:27.13 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00493/01 *TALLY 370 MAIN SA G TALY W044:TALLYSOU D3.2T1 335 TALLY.370_MAIN.SA.01 1 LINE 80 8 PAGE UM SALISBURY MAR. 21, 1975 01:37:47 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/02 *TALLY 370 SIM SUBR SA G TSIM W044:TALLYSIMSOU D3.2T1 336 TALLY.370_SIM_SUBR.SA.02 1 LINE 80 35 PAGE UM SALISBURY MAR. 21, 1975 01:37:49 00493/03 *TALLY 370 OBJECT OC G *TALLY D3.2T1 337 TALLY.370_OBJECT.OC.03 1 LINE 255 4 PAGE UM SALISBURY MAR. 21, 1975 01:37:52 00493/04 *TALLY 360 MAIN SA G TALY W044:OLDTALLYSOU D3T3 125 TALLY..SA.1 1 LINE 80 8 PAGE UM SALISBURY AUG. 03, 1973 21:27.17 00493/05 *TALLY 360 SIM SUBR SA G TSIM W044:OLDTALLYSIMS D3T3 126 TALLY.SIM_SUBR.SA.2 1 LINE 80 25 PAGE UM SALISBURY AUG. 03, 1973 21:27.22 00493/06 *TALLY 360 OBJECT OC G W044:OLDTALLY D3T3 127 TALLY..OC.3 1 LINE 80 4 PAGE UM SALISBURY AUG. 03, 1973 21:27.34 0 CONTENTS OF *TALLY FOR 360 SYSTEMS. 00494/01 CSMP *CSMP SA G CSMP W020:CSMPDISTR(1,341) D3T3 128 CSMP.*CSMP.SA.1 1 LINE 80 8 PAGE UM FLANIGAN AUG. 03, 1973 21:27.38 0 CONTINUOUS SYSTEM MODELING PROGRAM (MODIFIED FROM IBM). 1 FRI AUG 02/96 19:04:25 Page 148 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS. 00494/02 CSMP *CSMP OE G *CSMP D3T3 129 CSMP.*CSMP.O.2 1 SEQ 3232 2 PAGE UM FLANIGAN AUG. 03, 1973 21:27.47 00494/03 CSMP *CSMPTRAN SA G CPTR W020:CSMPDISTR(500,720) D3T3 130 CSMP.*CSMPTRAN.SA.3 1 LINE 80 6 PAGE UM FLANIGAN AUG. 03, 1973 21:27.52 0 TRANSLATION CONTROL. ASSEMBLE WITH *SYSMAC AND PUT IN *CSMPTRAN. ADD "$CONTINUE WITH *CSMPLIB" AT END. 00494/04 CSMP *CSMPTRAN OE G *CSMPTRAN D3T3 131 CSMP.*CSMPTRAN.OE.4 1 SEQ 1672 1 PAGE UM FLANIGAN AUG. 03, 1973 21:27.58 0 ENDS WITH A "$CONTINUE WITH *CSMPLIB" CARD. 00494/05 CSMP *CSMPEXEC SA G CPEX W020:CSMPDISTR(1000,1107) D3T3 132 CSMP.*CSMPEXEC.SA.5 1 LINE 80 4 PAGE UM FLANIGAN AUG. 03, 1973 21:28.04 0 EXECUTION CONTROL 00494/06 CSMP *CSMPEXEC OE G *CSMPEXEC D3T3 133 CSMP.*CSMPEXEC.O.6 1 SEQ 712 1 PAGE UM FLANIGAN AUG. 03, 1973 21:28.10 00494/07 CSMP *CSMPLIB S G S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80) 2 D3T3 134 CSMP.*CSMPLIB.S.7 1 SEQ 80 155 PAGE UM FLANIGAN AUG. 03, 1973 21:29.55 0 ORIGINAL IBM SOURCE (FORTRAN AND ASM). 00494/08 CSMP *CSMPLIB UU G W020:CSMPDISTR(2000,2175) D3T3 135 CSMP.*CSMPLIB.UU.8 1 LINE 80 3 PAGE UM FLANIGAN AUG. 03, 1973 21:30.18 0 THIS UPDATE DECK APPLIES ALL KNOWN IBM APARS PLUS LOCAL CHANGES. IT ASSUMES THE FOLLOWING: (1) IBM SOURCE IS ON TAPE *S* (2) A POOL (SCRATCH) TAPE HAS BEEN MOUNTED AS *P* (3) AN EMPTY SEQUENTIAL FILE -A EXISTS THIS UPDATE PUTS THE UPDATED CSMP FORTRAN ROUTINES ON *P* (BLOCKING FACTOR 100), REWINDS IT, PUTS THE UPDATED CSMP ASSEMBLER ROUTINES IN -A, AND REWINDS AND UNLOADS *S*. 00494/09 CSMP *CSMPLIB SA G W020:CSMPDISTR(1500,1531) D3T3 136 CSMP.*CSMPLIB.SA.9 1 LINE 70 1 PAGE UM FLANIGAN AUG. 03, 1973 21:30.23 0 TWO ASM ROUTINES USED DURING DYNAMIC LINKING. 00494/10 CSMP *CSMPLIB OL G *CSMPLIB D3T3 137 CSMP.*CSMPLIB.OL.10 1 SEQ 6924 32 PAGE UM FLANIGAN AUG. 03, 1973 21:30.27 0 OBJECT LIBRARY (DIR FORMAT) MADE FROM ASM AND FTN ROUTINES UPDATED BY 494/8 AND ASM ROUTINES FROM COMPONENT 494/9. (NOTE: FORTRANH HAS BEEN USED.) 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00495/01 *EXPL SUBMONITOR SA XMON S0579 SAVE 'JWS-SAVE' FSNAME=EXMON.S D3T3 138 EXPL.SUBMONITOR.SA.1 1 LINE 80 31 PAGE UM JWS AUG. 03, 1973 21:30.32 0 EXTENDED VERSION OF XPL. USING THIS VERSION, AN XPL PROGRAM CAN CONSIST OF A COLLECTION OF INDEPENDENTLY COMPILED PROCEDURES. THIS VERSION PRODUCES NORMAL MTS OBJECT DECKS, RATHER THAN SPECIAL OBJECT MODULES. THIS SUB-COMPONENT CONSISTS OF 4 CSECTS: XMON, XPLDFLTS, COMPACT#, AND SORTIT. ASSEMBLE USING *SYSMAC. 00495/02 *EXPL SUBMONITOR OC S0579 SAVE 'JWS-SAVE' FSNAME=EXMON.O D3T3 139 EXPL.SUBMONITOR.OC.2 1 LINE 80 4 PAGE UM JWS AUG. 03, 1973 21:30.46 0 *EXPLIB SHOULD BE A LINKEDIT OF XMON, COMPACT#, AND SORTIT, PLUS THE XPLDFLTS CSECT WHICH SPECIFIES A FREE STRING AREA SIZE (FSASIZE) OF 5 PAGES. ALL SYMBOLS SHOULD BE PURGED EXCEPT XPLSM, XPLSM@SP, COMPACTI, AND TIMEXOFX. IN ADDITION, TIMEXOFX SHOULD BE CHANGED TO TIME_OF_ AND AN ENT CARD SPECIFYING XPLSM AS THE ENTRY POINT SHOULD BE INSERTED INTO THE OBJECT MODULE. 00495/03 *EXPL COMPILER SX S0579 SAVE 'JWS-SAVE' FSNAME=EXCOM D3T3 140 EXPL.COMPILER.SX.3 1 LINE 80 59 PAGE UM JWS AUG. 03, 1973 21:30.50 0 EXPL SOURCE FOR THE EXTENDED XPL COMPILER. THE RESULTING OBJECT MUST BE RUN UNDER *EXPLIB. 00495/04 *EXPL COMPILER OE S0579 SAVE 'JWS-SAVE' FSNAME=EXPL.V5 D3T3 141 EXPL.COMPILER.O.4 1 LINE 240 38 PAGE UM JWS AUG. 03, 1973 21:31.03 0 IT IS MOST CONVENIENT TO LINKEDIT THE COMPILER AND SUBMONITOR TOGETHER TO MAKE *EXPL. NOTE THAT THE ENTRY POINT MUST BE EXPLIB. WHEN LINKEDITING, THE XPLDFLTS CSECT WHICH SETS THE FREE STRING AREA SIZE (FSASIZE) TO 15 PAGES SHOULD BE USED. 00495/05 *EXPL EXPLBNF D S0579 SAVE 'JWS - SAVE' FSNAME=XPLBNF D3T3 142 EXPL.XPLBNF.D.5 1 LINE 73 2 DISK UM JWS JUNE 08, 1973 12:58.56 0 SUITABLE INPUT TO *ANALYZER (318/12) TO PRODUCE THE NECESSARY DECLARATIONS FOR DRIVING THE PARSING ALGORITHM FOR *EXPL. 00495/06 *EXPL SKELETON SX G *EXSKELETON UM JWS 0 THIS IS A VERSION OF SKELETON (318/10), 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/07 *EXPL WRITEUP WF S0722 'D3T3' FSNAME=EXPL.WRITEUP.WF.6 143 D3T3 143 EXPL.WRITEUP.WF.6 1 LINE 114 3 DISK UM JWS JUNE 29, 1973 13:54.15 0 THIS IS COMPUTING CENTER MEMO M240 -- "EXPL - EXTENDED XPL" 00496/01 *APC SA APC0 DWB:APC.S D3.2T1 338 APC..SA.01 1 LINE 80 15 PAGE UBC DWB MAR. 21, 1975 01:37:54 0 UBC ALL PURPOSE FILE COMPARE PROGRAM. NOTE: THIS VERSION SHOULD BE USED IF AND ONLY IF THE MTS @NOTIFY CHANGE IS INSTALLED. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00496/02 *APC OE *APC D3.2T1 339 APC..OE.02 1 SEQ 80 5 PAGE UBC DWB MAR. 21, 1975 01:37:59 0 CONTAINS OBJECT FOR APC AND MSG ROUTINE (1023). 00497/01 *SNAP SF G S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80) 1 D3T3 146 SNAP..SF.1 1 SEQ 80 132 PAGE UM FLANIGAN AUG. 03, 1973 21:35.51 00497/02 *SNAP UU G S0722 'D3T3' FSNAME=SNAP..UU.2 147 D3T3 147 SNAP..UU.2 1 LINE 73 1 PAGE UM FLANIGAN JULY 30, 1973 20:45.57 00497/03 *SNAP OE G *SNAP D3T3 148 SNAP..OE.3 1 SEQ 5212 27 PAGE UM FLANIGAN AUG. 03, 1973 21:36.24 00498/01 *IG IG.EQUS.C SA S0933 IG 'IG.DIST' FSNAME=IG.EQUS.C D3.2T1 340 IG.IG.EQUS.C.SA.01 1 LINE 71 3 PAGE UM GOODRICH FEB. 21, 1975 16:13:32 0 THE INTEGRATED GRAPHICS (IG) SYSTEM IS A LIBRARY OF FORTRAN CALLABLE SUBROUTINES FOR PERFORMING GRAPHICS OPERATIONS ON A VARIETY OF GRAPHIC TERMINALS. IT CONSISTS OF *IG AND ROUTINES FOR DEVICE DEPENDENT I/O SUPPORT. ALL SOURCE MODULES FOR THIS COMPONENT ALSO CONTAIN MTS COMMMANDS FOR ASSEMBLING THEM. 498/1 IS A COPY SECTION DEFINING ALL DATA STRUCTURE BLOCKS. IT IS GENERALLY COPIED AS "W114:IG.EQUS.C" BY OTHER SUB-COMPONENTS. 00498/02 *IG IG.DI SA S0933 IG 'IG.DIST' FSNAME=IG.DI.S D3.2T1 341 IG.IG.DI.SA.02 1 LINE 85 28 PAGE UM GOODRICH FEB. 21, 1975 16:12:30 0 COMPS 498/2 THROUGH 498/7 ARE THE SOURCE FOR *IG (498/9). EACH FILE BEGINS WITH COMMANDS TO ASSEMBLE. THE ACTUAL SOURCE STARTS ON LINE 7 OF EACH FILE. COMP 498/2 IS DEVICE INTERFACE ROUTINES IGINIT, IGDRON, IGXYIN, IGPICK, IGCTRL, AND IGSENS. 00498/03 *IG IG.DSM SA S0933 IG 'IG.DIST' FSNAME=IG.DSM.S D3.2T1 342 IG.IG.DSM.SA.03 1 LINE 80 18 PAGE UM GOODRICH FEB. 21, 1975 16:12:43 0 DATA STRUCTURE MODIFICATION ROUTINES. 00498/04 *IG IG.GETDD SA S0933 IG 'IG.DIST' FSNAME=IG.GETDD.S D3.2T1 343 IG.IG.GETDD.SA.04 1 LINE 94 9 PAGE UM GOODRICH FEB. 21, 1975 16:13:57 0 DEVICE PARAMETER DECODER AND DEVICE ID ROUTINE. REQUIRES A FILE CALLED IG.STAT TO WRITE INTO. 00498/05 *IG IG.PD SA S0933 IG 'IG.DIST' FSNAME=IG.PD.S D3.2T1 344 IG.IG.PD.SA.05 1 LINE 85 13 PAGE UM GOODRICH MAR. 16, 1975 13:35:32 0 PICTURE DESCRIPTION ROUTINES. 00498/06 *IG IG.ERRCOM SA S0933 IG 'IG.DIST' FSNAME=IG.ERRCOM.S D3.2T1 345 IG.IG.ERRCOM.SA.06 1 LINE 95 3 PAGE UM GOODRICH FEB. 21, 1975 16:13:36 0 ERROR PROCESSING ROUTINE. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00498/07 *IG IG.PWRIT SA S0933 IG 'IG.DIST' FSNAME=IG.PWRIT.S D3.2T1 346 IG.IG.PWRIT.SA.07 1 LINE 99 7 PAGE UM GOODRICH FEB. 21, 1975 16:15:23 0 INTERFACE TO CALCOMP PLOTTER ROUTINES (PDS). CONTAINS A REPLACEMENT FOR THE ROUTINE #PWRIT. 00498/08 *IG IG.RELINK C S0933 IG 'IG.DIST' FSNAME=IG.RELINK D3.2T1 347 IG.IG.RELINK.C.08 1 LINE 61 1 PAGE UM GOODRICH FEB. 21, 1975 16:11:30 0 COMMAND FILE TO LINKEDIT OBJECT FILES FOR *IG. 00498/09 *IG OBJECT OL S0933 IG 'IG.DIST' FSNAME=IG D3.2T1 348 IG.OBJECT.OL.09 1 SEQ 17975 7 PAGE UM GOODRICH MAR. 16, 1975 13:35:43 0 Referenced by comments of: 498/2 00498/10 *IG IG.DD.C SA S0933 IG 'IG.DIST' FSNAME=IG.DD.C D3.2T1 349 IG.IG.DD.C.SA.10 1 LINE 73 1 PAGE UM GOODRICH FEB. 21, 1975 16:12:26 0 COPY SECTION FOR DEVICE DEPENDENT ROUTINES (DDR'S). IT IS SOMETIMES COPIED AS "W114:IG.DD.C" BY OTHER SUB-COMPONENTS. 00498/11 *IG *IG.CCMP SA S0933 IG 'IG.DIST' FSNAME=IG.CCMP.S D3.2T1 350 IG.*IG.CCMP.SA.11 1 LINE 83 7 PAGE UM GOODRICH FEB. 21, 1975 16:12:03 0 DDR FOR CALCOMP PLOTTER. SOURCE STARTS ON LINE 9. 00498/12 *IG *IG.CCMP OE S0933 IG 'IG.DIST' FSNAME=IG.CCMP.O D3.2T1 351 IG.*IG.CCMP.OE.12 1 LINE 255 2 PAGE UM GOODRICH FEB. 21, 1975 16:12:10 0 ENDS WITH A "$CONTINUE WITH *PLOTSYS" CARD. 00498/13 *IG *IG.CK400 SA S0933 IG 'IG.DIST' FSNAME=IG.CK400.S D3.2T1 352 IG.*IG.CK400.SA.13 1 LINE 82 7 PAGE UM GOODRICH FEB. 21, 1975 16:12:14 0 DDR FOR COMPUTEK 400 STORAGE TUBE TERMINAL. SOURCE STARTS ON LINE 7. 00498/14 *IG *IG.CK400 OE S0933 IG 'IG.DIST' FSNAME=IG.CK400.O D3.2T1 353 IG.*IG.CK400.OE.14 1 LINE 255 2 PAGE UM GOODRICH FEB. 21, 1975 16:12:23 00498/15 *IG *IG.DTC300 SA S0933 IG 'IG.DIST' FSNAME=IG.DTC300.S D3.2T1 354 IG.*IG.DTC300.SA.15 1 LINE 84 7 PAGE UM GOODRICH FEB. 21, 1975 16:13:02 0 DDR FOR DATA TERMINAL CORPORATION 300 TERMINAL WITH DIABLO PRINTER. SOURCE STARTS ON LINE 7. 00498/16 *IG *IG.DTC300 OE S0933 IG 'IG.DIST' FSNAME=IG.DTC300.O D3.2T1 355 IG.*IG.DTC300.OE.16 1 LINE 255 2 PAGE UM GOODRICH FEB. 21, 1975 16:13:19 00498/17 *IG *IG.GT40 SA S0933 IG 'IG.DIST' FSNAME=IG.GT40.S D3.2T1 356 IG.*IG.GT40.SA.17 1 LINE 81 7 PAGE UM GOODRICH FEB. 21, 1975 16:14:06 0 DDR FOR DEC GT40 DISPLAY RUNNING GT40 GRAPHICS SYSTEM (656). SOURCE STARTS ON LINE 7. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00498/18 *IG *IG.GT40 OE S0933 IG 'IG.DIST' FSNAME=IG.GT40.O D3.2T1 357 IG.*IG.GT40.OE.18 1 LINE 255 2 PAGE UM GOODRICH FEB. 21, 1975 16:14:23 00498/19 *IG *IG.PEP SA S0933 IG 'IG.DIST' FSNAME=IG.PEP.S D3.2T1 358 IG.*IG.PEP.SA.19 1 LINE 89 11 PAGE UM GOODRICH FEB. 21, 1975 16:14:54 0 DDR FOR PRINCETON ELECTRONICS PRODUCTS 801 LITHICON TUBE DISPLAY TERMINAL. SOURCE STARTS ON LINE 7. 00498/20 *IG *IG.PEP OE S0933 IG 'IG.DIST' FSNAME=IG.PEP.O D3.2T1 359 IG.*IG.PEP.OE.20 1 LINE 80 3 PAGE UM GOODRICH FEB. 21, 1975 16:14:58 00498/21 *IG *IG.PRNT SA S0933 IG 'IG.DIST' FSNAME=IG.PRNT.S D3.2T1 360 IG.*IG.PRNT.SA.21 1 LINE 78 3 PAGE UM GOODRICH FEB. 21, 1975 16:15:12 0 DDR FOR IBM 1403 LINE PRINTER. SOURCE STARTS ON LINE 7. 00498/22 *IG *IG.PRNT OE S0933 IG 'IG.DIST' FSNAME=IG.PRNT.O D3.2T1 361 IG.*IG.PRNT.OE.22 1 LINE 255 3 PAGE UM GOODRICH FEB. 21, 1975 16:15:18 00498/23 *IG *IG.TTY SA S0933 IG 'IG.DIST' FSNAME=IG.TTY.S D3.2T1 362 IG.*IG.TTY.SA.23 1 LINE 91 8 PAGE UM GOODRICH FEB. 21, 1975 16:15:50 0 DDR FOR TELETYPES. USED TO GET HARD COPY WHILE DEBUGGING PROGRAMS. SOURCE STARTS ON LINE 7. 00498/24 *IG *IG.TTY OE S0933 IG 'IG.DIST' FSNAME=IG.TTY.O D3.2T1 363 IG.*IG.TTY.OE.24 1 LINE 255 3 PAGE UM GOODRICH FEB. 21, 1975 16:15:55 00498/25 *IG *IG.TX4002 SA S0933 IG 'IG.DIST' FSNAME=IG.TX4002.S D3.2T1 364 IG.*IG.TX4002.SA.25 1 LINE 85 9 PAGE UM GOODRICH FEB. 21, 1975 16:15:58 0 DDR FOR TEKTRONIX 4002 STORAGE TUBE DISPLAY. SOURCE STARTS ON LINE 7. 00498/26 *IG *IG.TX4002 OE S0933 IG 'IG.DIST' FSNAME=IG.TX4002.O D3.2T1 365 IG.*IG.TX4002.OE.26 1 LINE 255 2 PAGE UM GOODRICH FEB. 21, 1975 16:16:04 00498/27 *IG *IG.TX4010 SA S0933 IG 'IG.DIST' FSNAME=IG.TX4010.S D3.2T1 366 IG.*IG.TX4010.SA.27 1 LINE 97 8 PAGE UM GOODRICH FEB. 21, 1975 16:16:07 0 DDR FOR TEKTRONIX 4010/4012 STORAGE TUBE DISPLAYS. SOURCE STARTS ON LINE 7. 00498/28 *IG *IG.TX4010 OE S0933 IG 'IG.DIST' FSNAME=IG.TX4010.O D3.2T1 367 IG.*IG.TX4010.OE.28 1 LINE 255 3 PAGE UM GOODRICH FEB. 21, 1975 16:16:16 00498/29 *IG *IG.TX4014 SA S0933 IG 'IG.DIST' FSNAME=IG.TX4014.S D3.2T1 368 IG.*IG.TX4014.SA.29 1 LINE 97 9 PAGE UM GOODRICH FEB. 21, 1975 16:16:19 0 DDR FOR TEKTRONIX 4014 STORAGE TUBE DISPLAY. SOURCE STARTS ON LINE 7. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00498/30 *IG *IG.TX4014 OE S0933 IG 'IG.DIST' FSNAME=IG.TX4014.O D3.2T1 369 IG.*IG.TX4014.OE.30 1 LINE 255 3 PAGE UM GOODRICH FEB. 21, 1975 16:16:31 00498/31 *IG *IG.338 SA S0933 IG 'IG.DIST' FSNAME=IG.338.S D3.2T1 370 IG.*IG.338.SA.31 1 LINE 81 13 PAGE UM GOODRICH FEB. 21, 1975 16:16:44 0 DDR FOR DEC 338 DISPLAY RUNNING RAMP 69 OPERATING SYSTEM. SOURCE STARTS ON LINE 7. 00498/32 *IG *IG.338 OE S0933 IG 'IG.DIST' FSNAME=IG.338.O D3.2T1 371 IG.*IG.338.OE.32 1 LINE 255 3 PAGE UM GOODRICH FEB. 21, 1975 16:17:05 00498/33 *IG *IG.339 SA S0933 IG 'IG.DIST' FSNAME=IG.339.S D3.2T1 372 IG.*IG.339.SA.33 1 LINE 99 5 PAGE UM GOODRICH FEB. 21, 1975 16:17:09 0 DDR FOR DEC 339 DISPLAY RUNNING IGRI PROGRAM UNDER SEL EXEC SYSTEM. SOURCE STARTS ON LINE 7. 00498/34 *IG *IG.339 OE S0933 IG 'IG.DIST' FSNAME=IG.339.O D3.2T1 373 IG.*IG.339.OE.34 1 LINE 80 3 PAGE UM GOODRICH FEB. 21, 1975 16:17:16 00498/35 *IG IGRI.339 S S0933 IG 'IG.DIST' FSNAME=IGRI.339.S D3.2T1 374 IG.IGRI.339.S.35 1 LINE 79 13 PAGE UM GOODRICH FEB. 21, 1975 16:18:26 0 PDP-9 ASSEMBLY LANGUAGE SOURCE FOR IG INTERPRETER FOR DEC 339 DISPLAY. SOURCE STARTS ON LINE 5. OBJECT NOT DISTRIBUTED. 00498/36 *IG *IG.3270 SA O S0933 IG 'IG.DIST' FSNAME=IG.3270.S D3.2T1 375 IG.*IG.3270.SA.36 1 LINE 78 3 PAGE UM GOODRICH FEB. 21, 1975 16:16:35 0 DDR FOR IBM 3270 DISPLAY TERMINAL. SOURCE STARTS ON LINE 7. 00498/37 *IG *IG.3270 OE O S0933 IG 'IG.DIST' FSNAME=IG.3270.O D3.2T1 376 IG.*IG.3270.OE.37 1 LINE 255 3 PAGE UM GOODRICH FEB. 21, 1975 16:16:39 00498/38 *IG IG.TEST SF S0933 IG 'IG.DIST' FSNAME=IG.TEST.S D3.2T1 377 IG.IG.TEST.SF.38 1 LINE 71 8 PAGE UM GOODRICH FEB. 21, 1975 16:15:31 0 IG TEST PROGRAM. SOURCE STARTS ON LINE 7. OBJECT NOT DISTRIBUTED. 00498/39 *IG BMON SA S0933 IG 'IG.DIST' FSNAME=BMON.S D3.2T1 378 IG.BMON.SA.39 1 LINE 69 4 PAGE UM GOODRICH FEB. 21, 1975 16:18:39 0 BRANCH MONITOR PROGRAM USED FOR DEBUGGING IG ROUTINES. SOURCE STARTS ON LINE 4. 00498/40 *IG BMON OE S0933 IG 'IG.DIST' FSNAME=BMON.O D3.2T1 379 IG.BMON.OE.40 1 LINE 255 1 PAGE UM GOODRICH FEB. 21, 1975 16:18:44 0 >>>>>>>>> CONTAINS REP CARDS <<<<<<<<<<< 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00498/41 *IG USER'S GUIDE WF S0933 IG 'IG.DIST' FSNAME=IG.WF D3.2T1 380 IG.USER'S_GUIDE.WF.41 1 LINE 139 39 PAGE UM GOODRICH FEB. 21, 1975 16:11:10 0 CONTAINS MANY "$CONTINUE WITH W114:IG.EXAMP.S" LINES. SEE COMP 498/42. 00498/42 *IG EXAMPLE PGM SF W114:IG.EXAMP.S D3.2T1 381 IG.EXAMPLE_PGM.SF.42 1 LINE 64 6 PAGE UM GOODRICH MAR. 21, 1975 01:43:46 00498/43 *IG INSTALLATION WF S0933 IG 'IG.DIST' FSNAME=IGIG.W D3.2T1 382 IG.INSTALLATION.WF.43 1 LINE 125 13 PAGE UM GOODRICH FEB. 21, 1975 16:11:03 0 IMPLEMENTATION GUIDE. 00500/01 BILLING BILLRFT SP G BLRF S0027 DISTRB FSNAME=BILLRFT D3.2T1 383 BILLING.BILLRFT.SP.01 1 LINE 80 19 PAGE UM ENGLE MAY 03, 1974 14:04.51 0 PROGRAM TO REFORMAT STATISTICS RECORDS, HAND BILLING RECORDS, OS/360 BILLING RECORDS, AND NETWORK RECORDS FOR BILLING SORT. 0 Referenced by comments of: 500/11, 500/18, 500/24 00500/02 BILLING BILLRFT OC G S0027 DISTRB FSNAME=BLRF D3.2T1 384 BILLING.BILLRFT.OC.02 1 LINE 80 15 PAGE UM ENGLE MAY 03, 1974 14:04.59 0 REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';). 00500/03 BILLING BILLRFT OC G S0027 DISTRB FSNAME=NETBLRF D3.2T1 385 BILLING.BILLRFT.OC.03 1 LINE 80 11 PAGE UM ENGLE MAY 03, 1974 14:05.09 0 REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/04 BILLING BILLING SP G BILL S0027 DISTRB FSNAME=BILLING D3.2T1 386 BILLING.BILLING.SP.04 1 LINE 80 29 PAGE UM ENGLE MAR. 12, 1975 10:53:18 0 PROGRAM TO DO MAIN PART OF BILLING AFTER SORT. 0 Referenced by comments of: 500/11, 500/13, 500/26 00500/05 BILLING BILLING OC G S0027 DISTRB FSNAME=BILL D3.2T1 387 BILLING.BILLING.OC.05 1 LINE 80 20 PAGE UM ENGLE DEC. 06, 1974 13:11.03 0 REGULAR BILLING (COMPILED WITH %NET='';). PATCHED TO LOGICALLY AGREE WITH SOURCE. 00500/06 BILLING BILLING OC G S0027 DISTRB FSNAME=NETBILL D3.2T1 388 BILLING.BILLING.OC.06 1 LINE 80 10 PAGE UM ENGLE DEC. 06, 1974 13:11.23 0 NETWORK BILLING (COMPILED WITH %NET='YES';). PATCHED TO LOGICALLY AGREE WITH SOURCE. 00500/07 BILLING BILPRNT SP G BLPR S0722 'D3T3' FSNAME=BILLING.BILPRNT.SP.7 187 D3T3 187 BILLING.BILPRNT.SP.7 1 LINE 80 11 PAGE UM ENGLE JAN. 05, 1973 16:08.48 0 PROGRAM TO PRINT BILLING REPORTS. 1 FRI AUG 02/96 19:04:25 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 Referenced by comments of: 500/12 00500/08 BILLING BILPRNT OC G S0722 'D3T3' FSNAME=BILLING.BILPRNT.OC.8 188 D3T3 188 BILLING.BILPRNT.OC.8 1 LINE 80 7 DISK UM ENGLE JAN. 05, 1973 16:09.29 00500/09 BILLING BILLWRITEUP WF O S0027 DISTRB FSNAME=BILLWRITEUP D3.2T1 389 BILLING.BILLWRITEUP.WF.09 1 LINE 80 8 PAGE UM ENGLE MAY 03, 1974 14:11.04 0 WRITEUP FOR RUNNING BILLING. 00500/10 BILLING BILLSOURCE C G S0780 'D3.1T1' FSNAME=BILLING.BILLSOURCE.C.10 301 D3.1T1 301 BILLING.BILLSOURCE.C.10 1 LINE 121 1 PAGE UM ENGLE JAN. 31, 1974 17:27.49 0 COMMAND FILE FOR RUNNING BILLING. 0 Referenced by comments of: 500/14 00500/11 BILLING BILLTABLES D G S0027 DISTRB FSNAME=BILLTABLES D3.2T1 390 BILLING.BILLTABLES.D.11 1 LINE 76 4 PAGE UM ENGLE MAY 03, 1974 14:12.24 0 MACHINE READABLE TABLE OF EFFECTIVE DATES AND RATES FOR BILLING. READ DURING EXECUTION OF BILLRFT (500/1) AND BILLING (500/4). 00500/12 BILLING DIVISION D G BILL:DIVISION D3.2T1 391 BILLING.DIVISION.D.12 1 LINE 104 21 PAGE UM ENGLE MAR. 21, 1975 01:46:32 0 MACHINE READABLE TABLE OF UNIVERSITY UNITS ACCORDING TO UNIT CODE. READ AND WRITTEN BY BILPRNT (500/7). 00500/13 BILLING COVER D G S0027 DISTRB FSNAME=COVER D3.2T1 392 BILLING.COVER.D.13 1 LINE 66 1 PAGE UM ENGLE MAY 03, 1974 14:13.44 0 MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS. READ BY BILLING (500/4). 00500/14 BILLING RESTART C G S0780 'D3.1T1' FSNAME=BILLING.RESTART.C.14 304 D3.1T1 304 BILLING.RESTART.C.14 1 LINE 51 1 PAGE UM ENGLE JAN. 31, 1974 17:38.24 0 COMMAND FILE TO RESTART IN THE MIDDLE OF THE BILLING PROCESS AFTER SOME PARTS HAVE BEEN COMPLETED. HAS $CONTINUE WITH'S TO BILLSOURCE (500/10). 00500/15 BILLING BILLLIB OL G S0027 DISTRB FSNAME=BILLLIB D3.2T1 393 BILLING.BILLLIB.OL.15 1 LINE 80 4 PAGE UM ENGLE DEC. 06, 1974 13:12.31 0 LIBRARY FOR BILLING PROGRAMS. ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00500/16 BILLING FLUSH SP G FLSH S0722 'D3T3' FSNAME=BILLING.FLUSH.SP.17 197 D3T3 197 BILLING.FLUSH.SP.17 1 LINE 80 1 PAGE UM ENGLE JUNE 07, 1973 10:28.44 0 SUBROUTINE TO FORCE A LINE OF OUTPUT TO A PL/I STREAM FILE (PUT STATEMENTS) TO BE PRINTED NOW (DAMNIT), E.G., ON A TERMINAL FOR PROMPTING FOR INPUT. 00500/17 BILLING FLUSH OC G FLSH S0780 'D3.1T1' FSNAME=BILLING.FLUSH.OC.17 306 D3.1T1 306 BILLING.FLUSH.OC.17 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1974 15:46.26 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00500/18 BILLING BLPRJFL SA G BPFL S0027 DISTRB FSNAME=BLPRJFL D3.2T1 394 BILLING.BLPRJFL.SA.18 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/1). COPIES ACCPROJFMT (104/2). 00500/19 BILLING BLPRJFL OC G S0027 DISTRB FSNAME=BPFL D3.2T1 395 BILLING.BLPRJFL.OC.19 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 13:13.11 00500/20 BILLING PNLIST SP G PNLS S0027 DISTRB FSNAME=PNLIST D3.2T1 396 BILLING.PNLIST.SP.20 1 LINE 80 5 PAGE UM ENGLE MAR. 12, 1975 11:07:36 0 PROGRAM TO PRODUCE LISTINGS OF PROJECT NUMBERS IN *PROJECT SORTED BY UNIVERSITY ACCOUNT NUMBER, INTER-DEPARTMENTAL REQUISITION NUMBER, UNIT CODE, AND NAME. 0 Referenced by comments of: 500/22 00500/21 BILLING PNLIST OC G S0027 DISTRB FSNAME=PNLS D3.2T1 397 BILLING.PNLIST.OC.21 1 LINE 80 6 PAGE UM ENGLE MAR. 12, 1975 11:07:48 0 PATCHED TO LOGICALLY AGREE WITH SOURCE. 00500/22 BILLING PNLSEXTR SA G PEXT S0027 DISTRB FSNAME=PNLSEXTR D3.2T1 398 BILLING.PNLSEXTR.SA.22 1 LINE 80 3 PAGE UM ENGLE DEC. 06, 1974 13:16.12 0 SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/20). CALLED BY PRJLIST (104/34) WHICH IS CALLED BY PNLIST. COPIES ACCPROJFMT (104/2). 00500/23 BILLING PNLSEXTR OC G S0027 DISTRB FSNAME=PEXT D3.2T1 399 BILLING.PNLSEXTR.OC.23 1 LINE 80 1 PAGE UM ENGLE DEC. 06, 1974 13:16.32 00500/24 BILLING BLRECPR SP G BLRP S0027 DISTRB FSNAME=BLRECPR D3.2T1 400 BILLING.BLRECPR.SP.24 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 14:16.05 0 PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/1). 00500/25 BILLING BLRECPR OC G S0027 DISTRB FSNAME=BLRP D3.2T1 401 BILLING.BLRECPR.OC.25 1 LINE 80 3 PAGE UM ENGLE MAY 03, 1974 14:16.20 00500/26 BILLING POSIFIL SP G POSF S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.SP.26 312 D3.1T1 312 BILLING.POSIFIL.SP.26 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1974 15:49.10 0 SUBROUTINE CALLED BY BILLING (500/4) TO POSITION PL/1 FILES FOR RESTART. 00500/27 BILLING POSIFIL OC G POSF S0780 'D3.1T1' FSNAME=BILLING.POSIFIL.OC.27 313 D3.1T1 313 BILLING.POSIFIL.OC.27 1 LINE 80 2 PAGE UM ENGLE JAN. 08, 1974 15:49.29 00501/01 MTS VOLUME 3 MASTER WT G S0486 MTSV3 'MTS MANUALS' POSN=NEWM7.V3 D3T3 206 MTS_VOLUME_3.MASTER.WT.1 1 SEQ 132 344 PAGE UM SALISBURY AUG. 03, 1973 21:52.05 0 TEXT/360 MASTER FOR VOLUME 3 "SUBROUTINE AND MACRO DESCRIPTIONS" OF THE UM MTS MANUAL. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00501/02 MTS VOLUME 3 PRINT PT G > S0486 MTSV3 'MTS MANUALS' POSN=PRINT7.V3 D3T3 207 MTS_VOLUME_3.PRINT.PT.2 1 SEQ 132 454 PAGE UM SALISBURY AUG. 03, 1973 21:56.56 0 TEXT/360 PRINT FILE. 00502/01 DEADFILES SCANFILES SA G SCNF RSTR:DEADSCANFILE(1000) D3.2T1 402 DEADFILES.SCANFILES.SA.01 1 LINE 80 10 PAGE UM BERSTIS MAR. 21, 1975 01:48:15 0 DEADFILES IS A SERIES OF PROGRAMS USED TO REMOVE FILES WHICH BELONG TO EXPIRED USER ID'S. AT UM, THE PROCEDURE, OUTLINED BELOW, IS DONE ONCE PER MONTH AND THE TAPE(S) GENERATED ARE SAVED INDEFINITELY (AS LEAST SO FAR). PROCEDURE FOR REMOVING FILES BELONGING TO EXPIRED SIGNON ID'S (DEADFILES) 1. DEADFILES SHOULD BE RUN FROM A TERMINAL (NOT BATCH) AND MAY BE RUN DURING NORMAL SYSTEM OPERATION. DEPENDING ON HOW MANY FILES ARE TO BE REMOVED, THIS PROCEDURE MAY EASILY TAKE SEVERAL HOURS (ELAPSED) TO COMPLETE. 2. AFTER SIGNING ON, ENTER THE FOLLOWING COMMANDS: $CREATE DEADFILES SIZE=10P $CREATE CATLIST SIZE=10P $CREATE ACCLIST SIZE=10P $REL $RUN SCANFILES SPRINT=*PRINT* 0=DEADFILES 1=CATLIST 2=ACCLIST NOTE: A PERMANENT FILE MAY BE USED IN PLACE OF *PRINT* IF DESIRED; HOWEVER, THE OUTPUT MUST BE PRINTED AND INSPECTED. 3. CHECK THE OUTPUT FROM STEP 2 TO SEE IF THERE ARE ENOUGH FILES FLAGGED 'EXP' OR 'MISSING' TO BE WORTH CONTINUING. NOTHING HAS BEEN DONE TO ANY OF THE FILES AT THIS POINT. 4. MAKE A LISTING OF THE FILE "DEADFILES" FOR LATER USE. 5. ENTER THE COMMAND: $RUN SAVEFILES 0=*SOURCE* SCARDS=DEADFILES SPRINT=*PRINT* WHEN ASKED, ENTER THE NAME OF A 9-TRACK TAPE DRIVE. SAVE THE TAPE WHICH IS PRODUCED. FILES FROM IT CAN BE RESTORED AT A LATER TIME USING *RST (092). AT UM, WE MAKE A $5.00 SERVICE CHARGE FOR RESTORING FILES. 6. COMPARE THE OUTPUT FROM STEP 5 WITH THE LISTING OF "DEADFILES" TO MAKE SURE THAT ALL FILES WERE PROPERLY SAVED. 7. ENTER THE COMMAND: $RUN COPYSAVE 0=>T9XX 1=>T9YY WHERE T9XX IS THE TAPE DRIVE ON WHICH THE SAVE TAPE PRODUCED IN STEP 5 IS MOUNTED (RING OUT) AND T9YY IS THE TAPE DRIVE ON WHICH THE TAPE WHICH WILL BE WRITTEN AS A COPY OF THE SAVE TAPE IS MOUNTED (RING IN). 1 FRI AUG 02/96 19:04:25 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 8. COMPARE THE COUNT PRINTED IN STEP 7 WITH THE NUMBER OF THE LAST LINE IN DEADFILES. IF THEY DO NOT AGREE, STOP!!!!! 9. ENTER THE COMMAND: $RUN PRINTSAVE SPRINT=*PRINT* 0=>T9XX 1=*DUMMY* WHERE T9XX IS A TAPE DRIVE ON WHICH IS MOUNTED ONE THE TAPES FROM STEP 7. THE OUTPUT, WHICH IS A LISTING OF ALL FILES ON THE TAPE SORTED BY SIGNON ID, SHOULD BE SAVED WITH THE TWO TAPES FROM STEP 7. 10. IF THERE HAS BEEN ANY TROUBLE UP TO THIS POINT, DO NOT CONTINUE; OTHERWISE, ENTER: $RUN DESTROY SCARDS=DEADFILES SPRINT=*PRINT* THIS IS THE STEP WHICH ACTUALLY DESTROYS THE FILES. 11. ENTER THE COMMAND: $RUN CATDES SCARDS=CATLIST SPRINT=*PRINT* THIS STEP DESTROYS THE CATALOG ENTRIES FOR THE EXPIRED SIGNON ID'S. 12. ENTER THE COMMAND: $RUN FIX SCARDS=ACCLIST SPRINT=*PRINT* THIS RESETS THE ACCOUNTING FILE RECORDS FOR THE SIGNON ID'S WHICH HAD FILES DESTROYED AND BILLS FOR THE FILE STORAGE UP TO THE EXPIRATION TIME OF THE USER ID. 13. ENTER THE COMMANDS: $DESTROY DEADFILES $DESTROY CATLIST $DESTROY ACCLIST SCANFILES MAKES A LIST OF WHAT FILES ARE TO BE REMOVED. COPIES COPY:CATEQU (482/28), *GFINFODSECT (593), AND W013:ACCFORMAT (104/1). ASSEMBLE WITH *SYSMAC. NOTE: THIS PROGRAM CALLS THE ACCOUNTING SUBROUTINES ACCIO (104/17) AND GETFILE (104/88), OBJECT DECKS FOR WHICH MUST BE INCLUDED WITH THE OBJECT FOR THIS PROGRAM. 0 Referenced by comments of: 92/1 00502/02 DEADFILES SCANFILES OC G RSTR:DEADSCANFILE(1,998) D3.2T1 403 DEADFILES.SCANFILES.OC.02 1 LINE 255 7 PAGE UM BERSTIS MAR. 21, 1975 01:48:17 0 THE ACCIO SUBROUTINE IN THIS OBJECT DECK HAS SEVERAL REP CARDS TO CHANGE THE NAMES OF THE "ACCOUNTING" FILES FROM "$-----" (AS ASSEMBLED FOR TESTING) TO "*------" FOR ACTUAL USE. 00502/03 DEADFILES COPYSAVE SA G CPSV RSTR:DEADCOPYSAVE(1000) D3.2T1 404 DEADFILES.COPYSAVE.SA.03 1 LINE 80 3 PAGE UM BERSTIS MAR. 21, 1975 01:48:20 0 PROGRAM TO COPY A FILE SAVE TAPE COUNTING THE NUMBER OF FILES ON IT. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 0 ASSEMBLE WITH *SYSMAC. 00502/04 DEADFILES COPYSAVE OC G RSTR:DEADCOPYSAVE(1,998) D3.2T1 405 DEADFILES.COPYSAVE.OC.04 1 LINE 255 3 PAGE UM BERSTIS MAR. 21, 1975 01:48:22 00502/05 DEADFILES PRINTSAVE SA G PRSV RSTR:DEADPRNTSAVE(1000) D3.2T1 406 DEADFILES.PRINTSAVE.SA.05 1 LINE 80 4 PAGE UM BERSTIS MAR. 21, 1975 01:48:24 0 PROGRAM TO PRINT A SORTED LIST OF FILES ON A SAVE TAPE SEPARATED BY USERID. ASSEMBLE WITH *SYSMAC. 00502/06 DEADFILES PRINTSAVE OC G RSTR:DEADPRNTSAVE(1,998) D3.2T1 407 DEADFILES.PRINTSAVE.OC.06 1 LINE 255 3 PAGE UM BERSTIS MAR. 21, 1975 01:48:27 00502/07 DEADFILES DESTROY SA G DSTR RSTR:DEADFILEDES(1000) D3.2T1 408 DEADFILES.DESTROY.SA.07 1 LINE 80 3 PAGE UM BERSTIS MAR. 21, 1975 01:48:29 0 PROGRAM TO DESTROY A LIST OF FILES. CALLS DESTROY DIRECTLY, NOT THE MTS INTERFACE TO IT. ASSEMBLE WITH *SYSMAC AND PAR=B. 00502/08 DEADFILES DESTROY OC G RSTR:DEADFILEDES(1,998) D3.2T1 409 DEADFILES.DESTROY.OC.08 1 LINE 80 3 PAGE UM BERSTIS MAR. 21, 1975 01:48:32 00502/09 DEADFILES CATDES SA G CDES RSTR:DEADUCATDES(1000) D3.2T1 410 DEADFILES.CATDES.SA.09 1 LINE 80 3 PAGE UM BERSTIS MAR. 21, 1975 01:48:34 0 PROGRAM TO DESTROY USER CATALOGS. IT DOES NOT CHECK TO SEE IF THERE ARE ANY FILES IN THE CATALOG BEFORE DESTROYING IT (WHICH IT SHOULD). THIS IS THE ONLY WAY THAT CATALOG SPACE IS EVER RECLAIMED AND IF THIS PROGRAM IS NOT RUN, THE CATALOG WILL ONLY GET BIGGER. ASSEMBLE WITH *SYSMAC. 00502/10 DEADFILES CATDES OC G RSTR:DEADUCATDES(1,998) D3.2T1 411 DEADFILES.CATDES.OC.10 1 LINE 80 1 PAGE UM BERSTIS MAR. 21, 1975 01:48:36 00502/11 DEADFILES SAVEFILES SA G SVFL RSTR:DEADSAVE(1000) D3.2T1 412 DEADFILES.SAVEFILES.SA.11 1 LINE 80 7 PAGE UM BERSTIS MAR. 21, 1975 01:48:38 0 PROGRAM TO SAVE A SPECIFIC SET OF FILES IN THE SAME FORMAT AS FILESAVE (067). COPIES COPY:CATEQU (482/28). ASSEMBLE WITH *SYSMAC. CALLS THE FOLLOWING SUBROUTINES: SAVEFILE (067/2), TAPEOUT (067/3), AND FILEDSCB (502/13). 0 Referenced by comments of: 502/13 00502/12 DEADFILES SAVEFILES OE G RSTR:DEADSAVEOBJ D3.2T1 413 DEADFILES.SAVEFILES.OE.12 1 SEQ 3146 3 PAGE UM BERSTIS MAR. 21, 1975 01:48:41 00502/13 DEADFILES FILEDSCB SUBR SA G DSCB RSTR:FILEDSCB(1000) D3.2T1 414 DEADFILES.FILEDSCB_SUBR.SA.13 1 LINE 80 6 PAGE UM BERSTIS MAR. 21, 1975 01:48:43 0 SUBROUTINE CALLED BY SAVEFILES (502/11) TO GET DSCB'S FOR A FILE. COPIES COPY:DSCBDSCT (482/41), COPY:DSKDSCT (482/42), AND COPY:FCBEQU (482/27). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 502/11 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00502/14 DEADFILES FILEDSCB SUBR OC G RSTR:FILEDSCB(1,998) D3.2T1 415 DEADFILES.FILEDSCB_SUBR.OC.14 1 LINE 80 4 PAGE UM BERSTIS MAR. 21, 1975 01:48:46 00502/15 DEADFILES FIX SA G DFFX S0722 'D3T3' FSNAME=DEADFILES.FIX.SA.15 222 D3T3 222 DEADFILES.FIX.SA.15 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1973 17:58.20 0 PROGRAM TO UPDATE THE FILE INFORMATION IN AN ACCOUNTING RECORD TO ADJUST FOR THE FILES DESTROYED. CALLS *ACCRESTORE. 00502/16 DEADFILES FIX OC G S0722 'D3T3' FSNAME=DEADFILES.FIX.OC.16 223 D3T3 223 DEADFILES.FIX.OC.16 1 LINE 80 1 DISK UM ENGLE JAN. 08, 1973 17:59.15 00503 FUTIL # (OBSOLETED BY $FILESTATUS COMMAND) UM 00504/01 MTS VOLUME 1 MASTER WT G S0488 MTSV1 'MTS MANUALS' POSN=NEWM4.V1 D3T3 224 MTS_VOLUME_1.MASTER.WT.1 1 SEQ 132 336 PAGE UM SALISBURY AUG. 03, 1973 22:07.51 0 TEXT/360 MASTER FOR VOLUME 1 "MTS AND THE COMPUTING CENTER" OF THE UM MTS MANUAL (JANUARY 1973) INCLUDING UPDATE NUMBER 1 (JULY 1973) WHICH WAS ISSUED AS CCMEMO M243 (120 PP). 00504/02 MTS VOLUME 1 PRINT PT G > S0488 MTSV1 'MTS MANUALS' POSN=PRINT4.V1 D3T3 225 MTS_VOLUME_1.PRINT.PT.2 1 SEQ 132 275 PAGE UM SALISBURY AUG. 03, 1973 22:11.43 0 TEXT/360 PRINT FILE. 00504/03 MTS VOLUME 1 ERROR DUMP P G S0488 MTSV1 'MTS MANUALS' POSN=ERRORDUMP2 D3T3 226 MTS_VOLUME_1.ERROR_DUMP.P.3 1 SEQ 133 3 PAGE UM SALISBURY AUG. 03, 1973 22:18.57 0 PRINTED OUTPUT FOR EXAMPLE ON PAGES 419 AND 420. 00505/01 ALGOL DUMPRESTORE C S0504 'UBC -> UM #6' FMT=U(255) 1 D3T3 227 ALGOL.DUMPRESTORE.C.1 1 SEQ 44 2 PAGE UNE SALISBURY AUG. 03, 1973 22:20.29 0 MTS COMMANDS USED TO GENERATE OR RESTORE THE ALGOL FILES ON THE UNE ALGOL DISTRIBUTION TAPE. ALTHOUGH THESE COMMANDS ARE NOT APPROPRIATE FOR RESTORING THE ALGOL FILES FROM THE DIST 3 TAPE, THEY ARE INCLUDED BECAUSE THEY SHOW THE ORGANIZATION OF THE UNE ALGOL. 00505/02 ALGOL CINTSORC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 4 D3T3 228 ALGOL.CINTSORC.SA.2 1 SEQ 80 30 PAGE UNE SALISBURY AUG. 03, 1973 22:20.35 0 COMPILER/MTS INTERFACE MODULE. ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 505/19 00505/03 ALGOL FSACONV SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 5 D3T3 229 ALGOL.FSACONV.SA.3 1 SEQ 80 2 PAGE UNE SALISBURY AUG. 03, 1973 22:20.37 0 COPY SECTION COPIED BY COMPILER. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00505/04 ALGOL FSAREA SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 6 D3T3 230 ALGOL.FSAREA.SA.4 1 SEQ 80 3 PAGE UNE SALISBURY AUG. 03, 1973 22:20.43 0 COPY SECTION COPIED BY COMPILER. 00505/05 ALGOL IEX50T SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 7 D3T3 231 ALGOL.IEX50T.SA.5 1 SEQ 80 95 PAGE UNE SALISBURY AUG. 03, 1973 22:20.57 0 COPY SECTION COPIED BY COMPILER. 00505/06 ALGOL IEX60000 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 8 D3T3 232 ALGOL.IEX60000.SA.6 1 SEQ 80 15 PAGE UNE SALISBURY AUG. 03, 1973 22:21.06 0 COPY SECTION COPIED BY COMPILER. 00505/07 ALGOL OSALG00 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 14 D3T3 233 ALGOL.OSALG00.SA.7 1 SEQ 80 10 PAGE UNE SALISBURY AUG. 03, 1973 22:21.22 0 COMPS 505/7 THROUGH 505/16 ARE OS/360 ALGOL COMPILER SOURCE. EACH MUST BE ASSEMBLED USING THE SPECIAL OS MACRO LIBRARY (505/17). 00505/08 ALGOL OSALG01 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 15 D3T3 234 ALGOL.OSALG01.SA.8 1 SEQ 80 4 PAGE UNE SALISBURY AUG. 03, 1973 22:21.23 00505/09 ALGOL OSALG10 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 16 D3T3 235 ALGOL.OSALG10.SA.9 1 SEQ 80 22 PAGE UNE SALISBURY AUG. 03, 1973 22:21.29 00505/10 ALGOL OSALG11 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 17 D3T3 236 ALGOL.OSALG11.SA.10 1 SEQ 80 88 PAGE UNE SALISBURY AUG. 03, 1973 22:21.44 00505/11 ALGOL OSALG20 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 18 D3T3 237 ALGOL.OSALG20.SA.11 1 SEQ 80 16 PAGE UNE SALISBURY AUG. 03, 1973 22:21.54 00505/12 ALGOL OSALG30 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 19 D3T3 238 ALGOL.OSALG30.SA.12 1 SEQ 80 62 PAGE UNE SALISBURY AUG. 03, 1973 22:22.03 00505/13 ALGOL OSALG40 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 20 D3T3 239 ALGOL.OSALG40.SA.13 1 SEQ 80 17 PAGE UNE SALISBURY AUG. 03, 1973 22:22.10 00505/14 ALGOL OSALG50 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 21 D3T3 240 ALGOL.OSALG50.SA.14 1 SEQ 80 96 PAGE UNE SALISBURY AUG. 03, 1973 22:22.22 00505/15 ALGOL OSALG51 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 22 D3T3 241 ALGOL.OSALG51.SA.15 1 SEQ 80 24 PAGE UNE SALISBURY AUG. 03, 1973 22:22.32 00505/16 ALGOL OSALG51M SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 23 D3T3 242 ALGOL.OSALG51M.SA.16 1 SEQ 80 9 PAGE UNE SALISBURY AUG. 03, 1973 22:22.36 00505/17 ALGOL OSMAC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 24 D3T3 243 ALGOL.OSMAC.SA.17 1 SEQ 80 103 PAGE UNE SALISBURY AUG. 03, 1973 22:22.49 0 SPECIAL OS INTERFACE MACRO LIBRARY. MUST BE USED TO ASSEMBLE COMPS 505/7 THROUGH 505/16. 1 FRI AUG 02/96 19:04:25 Page 162 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 505/7, 505/20, 505/21 00505/18 ALGOL WORKAREA SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 25 D3T3 244 ALGOL.WORKAREA.SA.18 1 SEQ 80 4 PAGE UNE SALISBURY AUG. 03, 1973 22:22.57 0 COPY SECTION COPIED BY COMPILER AND LIBRARY. 00505/19 ALGOL *ALGOL OC G *ALGOL D3T3 245 ALGOL.*ALGOL.O.19 1 SEQ 80 31 PAGE UM SALISBURY AUG. 03, 1973 22:23.02 0 COMPLETE COMPILER OBJECT FILE. CONSISTS OF OBJECT OF COMPS 505/7 THROUGH 505/16 (THE OS/360 SOURCE) PLUS THE COMPILER/MTS INTERFACE MODULE (505/2) AND AN " ENT COMENTRY" LOADER CARD TO SPECIFY THE COMPILER ENTRY POINT. 00505/20 ALGOL LIBSORC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 11 D3T3 246 ALGOL.LIBSORC.SA.20 1 SEQ 80 181 PAGE UNE SALISBURY AUG. 03, 1973 22:23.48 0 OS/360 LIBRARY SOURCE. ASSEMBLE WITH OSMAC (505/17). 00505/21 ALGOL LIBSORC1 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 12 D3T3 247 ALGOL.LIBSORC1.SA.21 1 SEQ 80 37 PAGE UNE SALISBURY AUG. 03, 1973 22:24.06 0 MORE OS/360 LIBRARY SOURCE. ASSEMBLE WITH OSMAC (505/17). 00505/22 ALGOL LINTSORC SA G MTA:ALGLIBINT D3T3 248 ALGOL.LINTSORC.SA.22 1 LINE 80 28 PAGE UM SALISBURY AUG. 03, 1973 22:24.23 0 LIBRARY/MTS INTERFACE MODULE. ASSEMBLE WITH *SYSMAC. MODIFIED BY UM. 0 Referenced by comments of: 505/23 00505/23 ALGOL *ALGOLLIB OL G *ALGOLLIB D3T3 249 ALGOL.*ALGOLLIB.OL.23 1 SEQ 3963 11 PAGE UM SALISBURY AUG. 03, 1973 22:24.45 0 COMPLETE LIBRARY OBJECT FILE. CONSISTS OF OBJECT OF COMPS 505/20 AND 505/21 (THE OS/360 LIBRARY SOURCE) PLUS THE LIBRARY/MTS INTERFACE MODULE (505/22) AND AN " ENT LIBENTRY" LOADER CARD TO SPECIFY THE LIBRARY ENTRY POINT. 00505/24 ALGOL KDFSORC S G S0504 'UBC -> UM #6' FMT=FB(3200,80) 10 D3T3 250 ALGOL.KDFSORC.S.24 1 SEQ 80 45 PAGE UNE SALISBURY AUG. 03, 1973 22:25.02 0 SOURCE FOR THE "KDF9" I/O LIBRARY. MAY BE USED BY USERS WHO ARE ACCUSTOMED TO RUNNING ALGOL PROGRAMS ON THE KDF9 COMPUTER. THE SOURCE IS ENTIRELY IN ALGOL EXCEPT FOR "FORMAT" WHICH IS ASSEMBLE LANGUAGE. 00505/25 ALGOL *KDFLIB OL G *KDFLIB D3T3 251 ALGOL.*KDFLIB.OL.25 1 SEQ 348 56 PAGE UM SALISBURY AUG. 03, 1973 22:25.11 0 KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB. NOTE: THIS VERSION OF KDFLIB USES SHORT FLOATING POINT ARITHMETIC. PAR=LONG,PROCEDURE SHOULD BE USED TO RECOMPILE THE LIBRARY IF LONG FLOATING POINT ARITHMETIC IS DESIRED. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00505/26 ALGOL KDFLIBTEST S G S0722 'D3T3' FSNAME=ALGOL.KDFLIBTEST.S.26 252 D3T3 252 ALGOL.KDFLIBTEST.S.26 1 LINE 67 1 PAGE UM MTA AUG. 03, 1973 22:25.28 0 ALGOL PROGRAM TO TEST *KDFLIB. 00506/01 PL1 MAINTENANCE CRELCS SA G CLCS S0410 MTSPL1 'PL1LIB' POSN=CRELCS 37 D3T4 1 PL1_MAINTENANCE.CRELCS.SA.1 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 21:55.11 0 CREATE LOW-CORE SYMBOL TABLES, ESPECIALLY PL1SYM AND INTSUBS. 0 Referenced by comments of: 506/9, 506/10 00506/02 PL1 MAINTENANCE CRELCSPR SA G LCSP W062:CRELCSPR(1,999) D3T4 2 PL1_MAINTENANCE.CRELCSPR.SA.2 1 LINE 80 5 PAGE UM TIFFANY AUG. 01, 1973 21:55.14 0 SAME AS 506/1 EXCEPT FOR PSEUDO-REGISTERS. IHEPRD IS GENERATED. 0 Referenced by comments of: 233/39 00506/03 PL1 MAINTENANCE FIXSEQ2 SA G FXS2 S0410 MTSPL1 'PL1LIB' POSN=FIXSEQ2 41 D3T4 3 PL1_MAINTENANCE.FIXSEQ2.SA.3 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 21:55.21 0 PROGRAM TO CONVERT ALL LONG RECORDS (>256 BYTES) TO RECORDS NOT LONGER THAN 256 SO THAT THEY CAN BE LOADED BY THE SEGMENT 2 LOADER. 00506/04 PL1 MAINTENANCE PICKUP SA G PKUP S0410 MTSPL1 'PL1LIB' POSN=PICKUP 42 D3T4 4 PL1_MAINTENANCE.PICKUP.SA.4 1 SEQ 80 4 PAGE UM TIFFANY AUG. 01, 1973 21:55.27 0 PROGRAM TO PICK UP A MODULE FROM A LOADER LIBRARY. 00506/05 PL1 MAINTENANCE PL1LOADR SA G PL1L S0410 MTSPL1 'PL1LIB' POSN=PL1LOADR 43 D3T4 5 PL1_MAINTENANCE.PL1LOADR.SA.5 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 21:55.31 0 SIMULATE LOADING PROCESS WITH PL/I LIBRARY IN SEGMENT 5 INSTEAD OF SEGMENT 2 (FOR CHECKOUT). 00506/06 PL1 MAINTENANCE SYMBOLS SA G SYMB S0410 MTSPL1 'PL1LIB' POSN=SYMBOLS 44 D3T4 6 PL1_MAINTENANCE.SYMBOLS.SA.6 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 21:55.40 0 PRINT PL1LIB SYMBOLS AND THEIR CURRENT ADDRESSES. 00506/07 PL1 MAINTENANCE REMOVELIBS SA G RMVL S0410 MTSPL1 'PL1LIB' POSN=REMOVELIBS 45 D3T4 7 PL1_MAINTENANCE.REMOVELIBS.SA.7 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 21:55.42 0 REMOVE LOADER CARDS LIKE RIP, LIB, ETC. 00506/08 PL1 MAINTENANCE GENSPL1LIB C S0410 MTSPL1 'PL1LIB' POSN=GENSPL1LIB 46 D3T4 8 PL1_MAINTENANCE.GENSPL1LIB.C.8 1 SEQ 122 1 PAGE UM TIFFANY AUG. 01, 1973 21:55.49 0 COMMANDS TO GENERATE SHAREDPL1LIB. 00506/09 PL1 MAINTENANCE PL1SYMBOLS D S0410 MTSPL1 'PL1LIB' POSN=PL1SYMBOLS 47 D3T4 9 PL1_MAINTENANCE.PL1SYMBOLS.D.9 1 SEQ 117 2 PAGE UM TIFFANY AUG. 01, 1973 21:55.55 0 LIST OF PL/I SYMBOL NAMES. USED BY CRELCS (506/1). 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00506/10 PL1 MAINTENANCE INTSUBS D S0410 MTSPL1 'PL1LIB' POSN=INTSUBS 48 D3T4 10 PL1_MAINTENANCE.INTSUBS.D.10 1 SEQ 56 1 PAGE UM TIFFANY AUG. 01, 1973 21:56.00 0 LIST OF INTERNAL SUBROUTINES. USED BY CRELCS (506/1). 00506/11 PL1 MAINTENANCE PATCHER SA G PAT0 W062:PATCH D3T4 11 PL1_MAINTENANCE.PATCHER.SA.11 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 21:56.10 0 MODULE TO INSERT PATCHES INTO PL1 COMPILER AS IT IS LOADED 00506/12 PL1 MAINTENANCE LLXU SA G LLXU S0723 'D3T4' FSNAME=PL1_MAINTENANCE.LLXU.SA.12 12 D3T4 12 PL1_MAINTENANCE.LLXU.SA.12 1 LINE 80 18 PAGE UM TIFFANY JULY 30, 1973 03:34.02 0 SIMULATE OS LINK/LOAD/XCTL WITH GOODIES. THIS PROGRAM CALLS UMLOAD DIRECTLY AND HAS RECENTLY BEEN MODIFIED FOR NEW UMLOAD. 00506/13 PL1 MAINTENANCE SETUP DIRECTRY SA G SETP S0410 MTSPL1 'PL1LIB' POSN=SETUP 56 D3T4 13 PL1_MAINTENANCE.SETUP_DIRE.SA.13 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 21:58.17 0 PROGRAM TO SET UP *PL1DIRECTOR FOR PL/I COMPILER. 00506/14 PL1 MAINTENANCE SQUEEZE SA G SQIZ S0410 MTSPL1 'PL1LIB' POSN=SQUEEZE 57 D3T4 14 PL1_MAINTENANCE.SQUEEZE.SA.14 1 SEQ 80 4 PAGE UM TIFFANY AUG. 01, 1973 21:58.23 0 PROGRAM TO REMOVE PL/I COMPILER MODULES WHICH ARE NO LONGER IN USE TO SAVE FILE SPACE. 00506/15 PL1 MAINTENANCE INSTALLATION WF W062:INSTALL D3T4 15 PL1_MAINTENANCE.INSTALLATI.WF.15 1 LINE 128 18 PAGE UM TIFFANY AUG. 01, 1973 21:58.34 0 INSTRUCTIONS FOR INSTALLATION OF PL/I IN MTS. 00507/01 *LIM C *LIM D3T4 16 LIM..C.1 1 LINE 66 1 PAGE UM WSG AUG. 01, 1973 21:58.41 0 COMMAND FILE USED BY OPERATORS TO FIND OUT HOW MUCH CPU TIME IS REMAINING FOR AN EXECUTING BATCH JOB. INVOKED BY ENTERING "MTS *LIM" ON OPERATOR'S CONSOLE. 00507/02 *LIM TLIMIT SA G TLIM WSG:TLIMIT(1,999) D3.2T1 416 LIM.TLIMIT.SA.02 1 LINE 80 4 PAGE UM WSG MAR. 21, 1975 01:48:48 0 PROGRAM TO COMPUTE HOW MUCH TIME IS LEFT BEFORE A JOB EXCEEDS ITS GLOBAL TIME LIMIT. OPERATOR ENTERS EITHER AN UMMPS JOB NUMBER OR USER ID TO SPECIFY THE JOB FOR WHICH THE REMAINING TIME IS TO BE CALCULATED. END-OF-FILE TERMINATES PROGRAM. COPIES COPY:LLMPSEQU (087) AND COPY:GLOBALS (1026/4). ASSEMBLE USING *SYSMAC. 00507/03 *LIM 370 OBJECT OC G SYS:TLIMIT D3.2T1 417 LIM.370_OBJECT.OC.03 1 LINE 80 1 PAGE UM WSG MAR. 21, 1975 01:48:51 0 OBJECT FOR 370 VERSION. 00507/04 *LIM 360 OBJECT OC G WSG:TLIMIT.O.360 D3T4 18 LIM.TLIMIT_PGM.OC.3 1 LINE 80 1 PAGE UM WSG AUG. 01, 1973 21:58.51 0 OBJECT FOR 360 VERSION. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00508/01 *BASIC STRT1 C W070:BASIC.STRT1 D3T4 19 BASIC.STRT1.C.1 1 LINE 70 1 PAGE UM FRONCZAK AUG. 01, 1973 21:58.56 0 MTS COMMANDS TO CREATE AND RESTORE FILES NEEDED TO GENERATE BASIC. ASSUMES THAT BASIC (BY ITSELF) IS ON A *FS TAPE AND RESTORES FILES FROM IT. 00508/02 *BASIC STRT2 C W070:BASIC.STRT2 D3T4 20 BASIC.STRT2.C.2 1 LINE 126 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.00 0 MTS COMMANDS TO ASSEMBLE AND LINK-EDIT BASIC. ASSUMES THE ASSEMBLER IS ON A REGULAR BLOCKED TAPE. 00508/03 *BASIC BIFDSECT SA G W070:BIFDSECT D3T4 21 BASIC.BIFDSECT.SA.3 1 LINE 66 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.05 0 THE DSECT USED BY "BUILT-IN" FUNCTIONS. 00508/04 *BASIC CLIDSECT SA G W070:CLIDSECT D3T4 22 BASIC.CLIDSECT.SA.4 1 LINE 72 3 PAGE UM FRONCZAK AUG. 01, 1973 21:59.10 0 THE DSECT USED BY COMMAND AND CMNDINIT. 00508/05 *BASIC DS6A SA G W070:DS6A D3T4 23 BASIC.DS6A.SA.5 1 LINE 72 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.15 0 THE DSECT USED BY LOADER. 00508/06 *BASIC DSECTCOMM SA G W070:DSECTCOMM D3T4 24 BASIC.DSECTCOMM.SA.6 1 LINE 70 3 PAGE UM FRONCZAK AUG. 01, 1973 21:59.20 0 THE BASIC COMMON DSECT. 00508/07 *BASIC DSECT9A SA G W070:DSECT9A D3T4 25 BASIC.DSECT9A.SA.7 1 LINE 71 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.24 0 THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH. 00508/08 *BASIC FHDRDSECT SA G W070:FHDRDSECT D3T4 26 BASIC.FHDRDSECT.SA.8 1 LINE 72 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.29 0 THE "FILE HEADER" DSECT. 00508/09 *BASIC GLOBALSYM SA G W070:GLOBALSYM D3T4 27 BASIC.GLOBALSYM.SA.9 1 LINE 62 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.34 0 CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE INSTALLATION NAME. 00508/10 *BASIC INTFACMAC SM G W070:INTFACMAC D3T4 28 BASIC.INTFACMAC.SM.10 1 LINE 58 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.39 0 BASIC MACRO LIBRARY. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00508/11 *BASIC LDICDSCT SA G W070:LDICDSCT D3T4 29 BASIC.LDICDSCT.SA.11 1 LINE 72 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.45 0 THE "LOADING DIRECTORY" DSECT. 00508/12 *BASIC MAPDSECT SA G W070:MAPDSECT D3T4 30 BASIC.MAPDSECT.SA.12 1 LINE 68 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.51 0 THE "MAP ENTRY DESCRIPTION" DSECT. 00508/13 *BASIC OPDEFEQUS SA G W070:OPDEFEQUS D3T4 31 BASIC.OPDEFEQUS.SA.13 1 LINE 70 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.54 0 "EQUS" USED IN OPERATOR DEFINITIONS. 00508/14 *BASIC OPDEFMACROS SM G W070:OPDEFMACROS D3T4 32 BASIC.OPDEFMACROS.SM.14 1 LINE 72 3 PAGE UM FRONCZAK AUG. 01, 1973 21:59.59 0 MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS. 00508/15 *BASIC PDSECT SA G W070:PDSECT D3T4 33 BASIC.PDSECT.SA.15 1 LINE 72 3 PAGE UM FRONCZAK AUG. 01, 1973 22:00.06 0 THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----). 00508/16 *BASIC SYMTABDEF SA G W070:SYMTABDEF D3T4 34 BASIC.SYMTABDEF.SA.16 1 LINE 33 1 PAGE UM FRONCZAK AUG. 01, 1973 22:00.10 0 THE SYMBOL TABLE DSECT (UNDOCUMENTED). 00508/17 *BASIC SYMTABSECT SA G W070:SYMTABSECT D3T4 35 BASIC.SYMTABSECT.SA.17 1 LINE 70 1 PAGE UM FRONCZAK AUG. 01, 1973 22:00.15 0 THE SYMBOL TABLE DSECT (DOCUMENTED). 00508/18 *BASIC WSLAYOUT SA G W070:WSLAYOUT D3T4 36 BASIC.WSLAYOUT.SA.18 1 LINE 68 1 PAGE UM FRONCZAK AUG. 01, 1973 22:00.19 0 THE "WORKING STORAGE LAYOUT" DSECT. 00508/19 *BASIC CLI SA G S0076 BSCSET POSN=*BASIC.CLI 1 D3T4 37 BASIC.CLI.SA.19 1 SEQ 80 118 PAGE UM FRONCZAK AUG. 01, 1973 22:01.38 00508/20 *BASIC LEX SA G S0076 BSCSET POSN=*BASIC.LEX 2 D3T4 38 BASIC.LEX.SA.20 1 SEQ 80 111 PAGE UM FRONCZAK AUG. 01, 1973 22:02.21 00508/21 *BASIC CMP SA G S0076 BSCSET POSN=*BASIC.CMP 3 D3T4 39 BASIC.CMP.SA.21 1 SEQ 80 99 PAGE UM FRONCZAK AUG. 01, 1973 22:03.05 00508/22 *BASIC CPS SA G S0076 BSCSET POSN=*BASIC.CPS 4 D3T4 40 BASIC.CPS.SA.22 1 SEQ 80 79 PAGE UM FRONCZAK AUG. 01, 1973 22:03.48 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00508/23 *BASIC NUM SA G S0076 BSCSET POSN=*BASIC.NUM 5 D3T4 41 BASIC.NUM.SA.23 1 SEQ 80 60 PAGE UM FRONCZAK AUG. 01, 1973 22:04.43 00508/24 *BASIC VFL SA G S0076 BSCSET POSN=*BASIC.VFL 6 D3T4 42 BASIC.VFL.SA.24 1 SEQ 80 25 PAGE UM FRONCZAK AUG. 01, 1973 22:05.36 00508/25 *BASIC BIO SA G S0076 BSCSET POSN=*BASIC.BIO 7 D3T4 43 BASIC.BIO.SA.25 1 SEQ 80 47 PAGE UM FRONCZAK AUG. 01, 1973 22:06.10 00508/26 *BASIC INF SA G S0076 BSCSET POSN=*BASIC.INF 8 D3T4 44 BASIC.INF.SA.26 1 SEQ 80 42 PAGE UM FRONCZAK AUG. 01, 1973 22:06.44 00508/27 *BASIC BSI SA G S0076 BSCSET POSN=*BASIC.BSI 9 D3T4 45 BASIC.BSI.SA.27 1 SEQ 80 5 PAGE UM FRONCZAK AUG. 01, 1973 22:06.57 00508/28 *BASIC LIBSYM SA G W070:LIBSYM D3T4 46 BASIC.LIBSYM.SA.28 1 LINE 66 1 PAGE UM FRONCZAK AUG. 01, 1973 22:07.05 0 PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER. 00508/29 *BASIC SPECIALRATES SA G W070:SPECIALRATES D3T4 47 BASIC.SPECIALRATES.SA.29 1 LINE 70 1 PAGE UM FRONCZAK AUG. 01, 1973 22:07.07 0 THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR: %PRINT BALANCE AND STATISTICS PRINTING. 00508/30 *BASIC OBJECT OC G SEG2:BASIC D3T4 48 BASIC.OBJECT.OC.30 1 LINE 80 106 PAGE UM FRONCZAK AUG. 01, 1973 22:07.15 0 OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY THE SEG 2 LOADER. 0 Referenced by comments of: 508/31 00508/31 *BASIC *BASIC OC G *BASIC D3T4 49 BASIC.*BASIC.OC.31 1 SEQ 24 1 PAGE UM FRONCZAK AUG. 01, 1973 22:08.11 0 CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SEGMENT 2 (SHARED) BASIC (508/30). 00508/32 *BASIC *BASICHELPC M *BASICHELPC D3T4 50 BASIC.*BASICHELPC.M.32 1 LINE 66 1 PAGE UM FRONCZAK AUG. 01, 1973 22:08.16 0 BASIC HELP COMMAND FILE. 00508/33 *BASIC INSTALLATION PT W070:T360SYSGENPRT D3T4 51 BASIC.INSTALLATION.PT.33 1 SEQ 132 4 PAGE UM FRONCZAK AUG. 01, 1973 22:08.51 0 NOTES ON THE INSTALLATION OF BASIC. COPY TO A TN PRINTER @MCC. 00509/01 PERMIT CMMD/SUBR SA G DWB:PF.PERSUB D3.2T1 418 PERMIT.CMMD/SUBR.SA.01 1 LINE 72 13 PAGE UM DWB MAR. 21, 1975 01:48:53 0 THIS IS THE SOURCE FOR THE MTS $PERMIT COMMAND AND PERMIT SUBROUTINE. THE PERMIT COMMAND IS IMPLEMENTED AS A COMMAND LANGUAGE SUB-SYSTEM (CLS) ALTHOUGH IT REALLY ISN'T A CLS (IT HAS NO SUB-COMMANDS). THIS WAS DONE SOLELY FOR EASE OF ISOLATION, CHECKOUT, AND MODIFICATION AND TO KEEP THE MTS ASSEMBLY FROM BURSTING 1 FRI AUG 02/96 19:04:25 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 AT MORE SEAMS. NORMALLY, *CLSPERMIT IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. COPIES COPY:CLSVECTOR (535/2), COPY:FDUBDSECT (623), COPY:FCBEQU (482/27), COPY:CATEQU (482/28), AND COPY:STANDARDTV (535/3). HAS ENTRY POINTS PERCMD (FOR $PERMIT CLS CALL) AND PERMIT (NORMAL SUBROUTINE CALL). CALLS THE FILE ROUTINES (GETCINF, SDMOD, AND SDWRITE) DIRECTLY. 00509/02 PERMIT CMMD/SUBR OC G *CLSPERMIT D3.2T1 419 PERMIT.CMMD/SUBR.OC.02 1 LINE 80 6 PAGE UM DWB MAR. 21, 1975 01:48:55 0 THIS FILE (*CLSPERMIT) IS NORMALLY LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. THE FIRST LINE IS A LOADER "COM" CARD SO THAT THE SEG 2 LOADER WILL DEFINE THE SYMBOLS PERCMD AND PERMIT IN LCSYMBOL. 00509/03 PERMIT SUBR TEST PGM SF DWB:PERSTEST D3T4 61 PERMIT.SUBR_TEST_PGM.SF.3 1 LINE 62 1 PAGE UM DWB AUG. 01, 1973 22:10.06 0 PROGRAM TO TEST THE PERMIT SUBROUTINE. THIS PROGRAM PROVIDES A FAKE SDMOD SUBROUTINE FOR PERMIT TO CALL. THE FAKE SDMOD JUST PRINTS OUT THE CALLING PARAMETERS. THIS PROGRAM WILL CALL PERMIT SEVERAL TIMES WITH AN ASSORTMENT OF PARAMETERS. IN ORDER TO USE THIS TEST PROGRAM, YOU WILL HAVE TO SUPPLY, IN ADDITION, A FAKE SDWRITE SUBROUTINE FOR PERMIT TO CALL. THIS FAKE SDWRITE CAN BE A NOP. 00510/01 MTS VOLUME 13 WF W098:W55 D3T4 62 MTS_VOLUME_13..WF.1 1 LINE 159 61 PAGE UM SALISBURY AUG. 01, 1973 22:10.11 0 FORMAT INPUT FOR VOLUME 13 "DATA CONCENTRATOR USER'S GUIDE" OF THE UM MTS MANUAL (AUGUST 1973). HARD COPIES OF THIS MANUAL ARE NOT BEING DISTRIBUTED WITH DIST 3.0 BECAUSE OF THE LIMITED APPLICATION OF THE INFORMATION IN THIS MANUAL AT OTHER INSTALLATIONS. HOWEVER, COPIES ARE CERTAINLY AVAILABLE ON REQUEST. 00510/02 MTS VOLUME 13 PF W073:VOL13 D3T4 63 MTS_VOLUME_13..PF.2 1 LINE 80 81 PAGE UM SALISBURY AUG. 01, 1973 22:11.01 0 PRINT FILE FOR VOLUME 13. COPY TO A TN PRINTER. 00511/01 *OBJLIST SA G OBJL W062:OBJLIST D3.2T1 420 OBJLIST..SA.01 1 LINE 80 18 PAGE UM TIFFANY MAR. 21, 1975 01:48:57 0 PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT. NEW VERSION AFTER MTS @NOTIFY CHANGE. NOTE: THIS VERSION SHOULD BE INSTALLED IF AND ONLY IF THE MTS @NOTIFY CHANGE IS INSTALLED. 00511/02 *OBJLIST OC G *OBJLIST D3.2T1 421 OBJLIST..OC.02 1 LINE 80 4 PAGE UM TIFFANY MAR. 21, 1975 01:49:00 0 >>> CONTAINS REP CARD TO MAKE OBJECT CORRESPOND TO DISTRIBUTED SOURCE <<< 00512/01 MTS VOLUME 11 MASTER WT G S0549 MTSV11 'MTS MANUALS' POSN=NEWM1.V11 4 D3T4 66 MTS_VOLUME_11.MASTER.WT.1 1 SEQ 80 106 PAGE UM SALISBURY AUG. 01, 1973 22:14.35 0 TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUAL. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00512/02 MTS VOLUME 11 PRINT PT G S0549 MTSV11 'MTS MANUALS' POSN=PRINT1.V11 5 D3T4 67 MTS_VOLUME_11.PRINT.PT.2 1 SEQ 132 108 PAGE UM SALISBURY AUG. 01, 1973 22:15.55 0 TEXT/360 PRINT FILE. 00512/03 MTS VOLUME 11 UPDATE 1 PT G W038:V11UDPRT D3.1T1 322 MTS_VOLUME_11.UPDATE_1.PT.3 1 SEQ 132 51 PAGE UM SALISBURY MAR. 06, 1974 17:50.09 0 TEXT/360 PRINT FILE FOR MTS VOLUME 11, UPDATE 1. NOTE, THIS UPDATE HAS NOT BEEN RELEASED BY THE UM COMP CNTR PUBLICATIONS OFFICE YET. THERE MAY BE SOME CHANGES BEFORE IT IS PRINTED. ALSO NOTE THAT IT CLAIMS TO BE COMPUTING CENTER MEMO M271 WHICH IS WRONG. WHEN ISSUED, IT WILL BE MEMO M270. 00512/04 MTS VOLUME 11 FIGURES D W038:V11FIGS.P D3.1T1 323 MTS_VOLUME_11.FIGURES.D.4 1 SEQ 254 88 PAGE UM SALISBURY MAR. 06, 1974 17:50.19 0 PLOT FILE FOR FIGURES APPEARING IN MTS VOLUME 11. 00513 DYSSUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 0 THIS IS A SUBROUTINE CALLED BY THE MTS $DISPLAY COMMAND WHICH WILL EVENTUALLY DO NEAT THINGS. CURRENTLY, IT CONSISTS OF: LA 15,4 BR 14 THE SOURCE IS NOT DISTRIBUTED (OBVIOUSLY). 00514/01 *PL1TIDY SP G W062:NEATENED D3T4 68 PL1TIDY..SP.1 1 LINE 80 16 PAGE UM TIFFANY AUG. 01, 1973 22:16.49 0 THIS IS A REVISED VERSION OF THE IBM "NEATER" PROGRAM. 00514/02 *PL1TIDY OC G NEW:PL1TIDY D3T4 69 PL1TIDY..OE.2 1 SEQ 20974 7 PAGE UM TIFFANY AUG. 01, 1973 22:16.58 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00515/01 *11ASR 11ASMJOB C W051:11ASMJOB D3T4 70 11ASR.11ASMJOB.C.1 1 LINE 94 1 PAGE UM LUBBERS AUG. 01, 1973 22:17.03 0 MTS COMMANDS TO ASSEMBLE AND LINK EDIT ALL THE CSECTS FOR THE PDP-11 ASSEMBLER ORIGINALLY WRITTEN BY THE MERIT COMPUTER NETWORK PROJECT. THE REQUIRED MACRO LIBRARY IS ALSO GENERATED. 0 Referenced by comments of: 516/1 00515/02 *11ASR MACRO SM G W051:MACRO D3T4 71 11ASR.MACRO.SA.2 1 LINE 68 4 PAGE UM LUBBERS AUG. 01, 1973 22:17.07 0 MACRO LIBRARY USED TO ASSEMBLE COMPS 515/3 THROUGH 515/7. 00515/03 *11ASR UATS/MAL SA G W051:UATS/MAL D3T4 72 11ASR.UATS/MAL.SA.3 1 LINE 86 93 PAGE UM LUBBERS AUG. 01, 1973 22:17.14 0 CAPABILTIES FOR EXPRESSION EVALUATION IN LENGTH AND REPLICATION FACTORS 1 FRI AUG 02/96 19:04:25 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 IN DC AND DS STATEMENT HAVE BEEN ADDED. LOGICAL OPERATORS IN ADDRESS CALCULATIONS HAVE BEEN ADDED, AS HAS THE SPLITTING OF LONG SOURCE STATEMENTS INTO SEVERAL OUTPUT LINES. 0 Referenced by comments of: 515/11 00515/04 *11ASR DCEVAL.SOU SA G W051:DCEVAL.SOU D3T4 73 11ASR.DCEVAL.SOU.SA.4 1 LINE 74 15 PAGE UM LUBBERS AUG. 01, 1973 22:19.08 00515/05 *11ASR REPSCAN SA O S0658 W051SV FSNAME=REPSCAN D3T4 74 11ASR.REPSCAN.SA.5 1 LINE 63 3 DISK UM LUBBERS FEB. 22, 1973 16:48.41 00515/06 *11ASR MAC SA O S0658 W051SV FSNAME=MAC D3T4 75 11ASR.MAC.SA.6 1 LINE 70 23 DISK UM LUBBERS FEB. 22, 1973 16:47.34 00515/07 *11ASR EXTF11.SOU SA G W051:EXTF11.SOU D3T4 76 11ASR.EXTF11.SOU.SA.7 1 LINE 72 7 PAGE UM LUBBERS AUG. 01, 1973 22:23.11 00515/08 *11ASR OPCODES11 SA G W051:OPCODES11 D3T4 77 11ASR.OPCODES11.SA.8 1 LINE 72 11 PAGE UM LUBBERS AUG. 01, 1973 22:23.15 00515/09 *11ASR MICROP SA G W051:MICROP D3T4 78 11ASR.MICROP.SA.9 1 LINE 72 3 PAGE UM LUBBERS AUG. 01, 1973 22:23.21 00515/10 *11ASR OBJECT OE G *11ASR D3T4 79 11ASR.OBJECT.O.10 1 SEQ 28468 16 PAGE UM LUBBERS AUG. 01, 1973 22:23.26 00515/11 *11ASR ERROR D G W051:ERROR D3T4 80 11ASR.ERROR.D.11 1 LINE 70 4 PAGE UM LUBBERS AUG. 01, 1973 22:23.31 0 ERROR COMMENT FILE REFERENCED BY UATS/MAL (515/3) AS "W051:ERROR" ON LINE 2349. 00515/12 *11ASR USER'S GUIDE WT G W016:11MANUAL.SOU D3.1T1 324 11ASR.USER'S_GUIDE.WT.12 1 LINE 79 46 PAGE UM LUBBERS MAR. 06, 1974 17:50.27 0 "A USER'S GUIDE TO *11ASR AND *LINK11" 00516/01 *LINK11 SA G W051:LINKSOU D3T4 82 LINK11..SA.1 1 LINE 79 39 PAGE UM LUBBERS JULY 20, 1973 15:39.38 0 LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515). NEW VERSION ALLOWS UP TO 1024 EXTERNAL SYMBOLS (INSTEAD OF 256). 00516/02 *LINK11 OE G *LINK11 D3T4 83 LINK11..O.2 1 SEQ 9916 3 PAGE UM LUBBERS AUG. 01, 1973 22:24.31 00516/03 *LINK11 USER'S GUIDE WT # (SEE COMP 515/12) UM LUBBERS 00517/01 LOGICAL OPERATORS SA G S0190 LJH.FS FSNAME=ASM.LOGOPS D3T4 84 LOGICAL_OPERATORS..SA.1 1 LINE 70 4 PAGE UM HARDING AUG. 01, 1973 22:24.34 0 SUBROUTINES TO PROVIDE THE FOLLOWING SYSTEM/360 MACHINE OPERATIONS: MVC, CLC, NC, OC, XC, TR, TRT, ED, AND EDMK. REWRITTEN SINCE DIST 2.0. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00517/02 LOGICAL OPERATORS OC G # *LIBRARY (SEE COMP 524) UM HARDING 00518/01 GRGJUL SUBRS SA G GRJL S0027 DISTRB FSNAME=GRGJULTM D3T4 85 GRGJUL_SUBRS..SA.1 1 LINE 80 4 PAGE UM ENGLE MAY 03, 1973 09:59.47 0 GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC). 0 Referenced by comments of: 143/2, 436/1, 529/1 00518/02 GRGJUL SUBRS OC G # (PART OF COMP 143) UM ENGLE 0 THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE" BY THE SEG 2 LOADER AT IPL. 00519/01 GRJLDT/GRJLTM SUBRS GRJLDT SA G GJDT S0723 'D3T4' FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLDT.SA.1 86 D3T4 86 GRJLDT/GRJLTM_SUBRS.GRJLDT.SA.1 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:46.03 0 GREGORIAN-TO-JULIAN CONVERSION SUBROUTINES (TWO OF MANY -- TOO MANY). 00519/02 GRJLDT/GRJLTM SUBRS GRJLDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00519/03 GRJLDT/GRJLTM SUBRS GRJLTM SA G GJTM S0723 'D3T4' FSNAME=GRJLDT/GRJLTM_SUBRS.GRJLTM.SA.3 87 D3T4 87 GRJLDT/GRJLTM_SUBRS.GRJLTM.SA.3 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:47.21 00519/04 GRJLDT/GRJLTM SUBRS GRJLTM OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00520/01 GROSDT SA G GODT S0723 'D3T4' FSNAME=GROSDT..SA.1 88 D3T4 88 GROSDT..SA.1 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:52.15 0 GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE. 00520/02 GROSDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00521/01 JLGRDT/JLGRTM JLGRDT SA G JGDT S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRDT.SA.1 89 D3T4 89 JLGRDT/JLGRTM.JLGRDT.SA.1 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:55.50 0 JULIAN-TO-GREGORIAN CONVERSION SUBROUTINES. 00521/02 JLGRDT/JLGRTM JLGRDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00521/03 JLGRDT/JLGRTM JLGRTM SA G JGTM S0723 'D3T4' FSNAME=JLGRDT/JLGRTM.JLGRTM.SA.3 90 D3T4 90 JLGRDT/JLGRTM.JLGRTM.SA.3 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:57.15 00521/04 JLGRDT/JLGRTM JLGRTM OC G # *LIBRARY (SEE COMP 524) UM ENGLE 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00522/01 JULGRG SUBRS SA G JLGR S0723 'D3T4' FSNAME=JULGRG_SUBRS..SA.1 91 D3T4 91 JULGRG_SUBRS..SA.1 1 LINE 80 5 PAGE UM ENGLE MAY 03, 1973 10:00.10 0 JULIAN TO GREGORIAN DATE/TIME CONVERSION SUBROUTINES (JULGRGDT, JULGRGTM, AND JLGRSEC). 0 Referenced by comments of: 143/2, 437/1, 529/1 00522/02 JULGRG SUBRS OC G # (PART OF COMP 143/2) UM ENGLE 0 THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE" BY THE SEG 2 LOADER AT IPL. 00523/01 OSGRDT SA G OGDT S0723 'D3T4' FSNAME=OSGRDT..SA.1 92 D3T4 92 OSGRDT..SA.1 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 12:10.55 0 OS/360 (YYDDD) TO GREGORIAN DATE CONVERSION SUBROUTINE. 00523/02 OSGRDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00524/01 *LIBRARY OL *LIBRARY D3.2T1 422 LIBRARY..OL.01 1 SEQ 14184 38 PAGE UM SALISBURY MAR. 21, 1975 01:49:02 0 OBJECT LIBRARY FOR SYSTEM NON-RESIDENT SUBROUTINES. THE SOURCE FILES FOR THE PROGRAMS CONTAINED IN THIS LIBRARY ARE GIVEN ELSEWHERE IN THIS DISTRIBUTION UNDER THE SPECIFIC SUBROUTINE NAME. THIS LIBRARY IS AUTOMATICALLY SEARCHED WHEN PROGRAMS ARE LOADED IF THERE ARE UNRESOLVED SYMBOLS. 00524/02 *LIBRARY CREATELIB C LIB:CREATELIB D3.1T1 326 LIBRARY.CREATELIB.C.2 1 LINE 75 1 PAGE UM SALISBURY MAR. 06, 1974 17:50.54 0 MTS COMMAND FILE TO CONSTRUCT A NEW LIBRARY FILE; IT COPIES THE INDIVIDUAL MODULES INTO A FILE, LINK EDITS THE FILE, AND THEN RUN *GENLIB. NOTE: THIS COMMAND FILE HAS MANY "$CONTINUE WITH" LINES FOR PRIVATE FILES (NOT DISTRIBUTED) WHICH CONSTITUTE THE COMPONENTS OF *LIBRARY. 0 Referenced by comments of: 524/3 00524/03 *LIBRARY ENTERLIB C LIB:ENTERLIB D3.1T1 327 LIBRARY.ENTERLIB.C.3 1 LINE 37 1 PAGE UM SALISBURY MAR. 06, 1974 17:50.56 0 MTS COMMAND FILE TO ENTER THE NEW LIBRARY FILE CONSTRUCTED BY CREATELIB (524/2) INTO *LIBRARY. WITH RSF, THIS CAN BE DONE DURING NORMAL SYSTEM OPERATION. 00525/01 ELEM FUNC LIB SQRT SA G S0496 EFL74 FSNAME=SQRT D3T4 96 ELEM_FUNC_LIB.SQRT.SA.1 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:02.02 0 THE ELEMENTARY FUNCTION LIBRARY CONTAINS THE MATHEMATICAL AND IMPLICITLY CALLED SUBROUTINES USUALLY ASSOCIATED WITH THE FORTRAN IV LANGUAGE AS WELL AS A FEW ADDITIONAL FUNCTIONS WHICH, INEXPLICABLY, ARE NOT PART OF THE IBM FORTRAN LIBRARY. THESE FUNCTIONS ARE ALL RE-ENTRANT AND, THEREFORE, ARE NORMALLY LOADED INTO SHARED VM (SEGMENT 2). COMPS 525/1 THROUGH 525/46 SHOULD ALL BE ASSEMBLED WITH THE EFL.MACLIB MACRO LIBRARY (525/47). 1 FRI AUG 02/96 19:04:25 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: 527/1 00525/02 ELEM FUNC LIB EXP SA G S0496 EFL74 FSNAME=EXP D3T4 97 ELEM_FUNC_LIB.EXP.SA.2 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.07 00525/03 ELEM FUNC LIB ALOG10/ALOG SA G S0496 EFL74 FSNAME=ALOG10.ALOG D3T4 98 ELEM_FUNC_LIB.ALOG10/ALOG.SA.3 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.13 00525/04 ELEM FUNC LIB COS/SIN SA G S0496 EFL74 FSNAME=COS.SIN D3T4 99 ELEM_FUNC_LIB.COS/SIN.SA.4 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.18 00525/05 ELEM FUNC LIB COTAN/TAN SA G S0496 EFL74 FSNAME=COTAN.TAN D3T4 100 ELEM_FUNC_LIB.COTAN/TAN.SA.5 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.23 00525/06 ELEM FUNC LIB ARCOS/ARSIN SA G S0496 EFL74 FSNAME=ARCOS.ARSIN D3T4 101 ELEM_FUNC_LIB.ARCOS/ARSIN.SA.6 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:02.28 00525/07 ELEM FUNC LIB ATAN2/ATAN SA G S0496 EFL74 FSNAME=ATAN2.ATAN D3T4 102 ELEM_FUNC_LIB.ATAN2/ATAN.SA.7 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:02.33 00525/08 ELEM FUNC LIB COSH/SINH SA G S0496 EFL74 FSNAME=COSH.SINH D3T4 103 ELEM_FUNC_LIB.COSH/SINH.SA.8 1 LINE 71 1 DISK UM HARDING JUNE 27, 1972 12:02.38 00525/09 ELEM FUNC LIB TANH SA G S0496 EFL74 FSNAME=TANH D3T4 104 ELEM_FUNC_LIB.TANH.SA.9 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:02.42 00525/10 ELEM FUNC LIB ERFC/ERF SA G S0496 EFL74 FSNAME=ERFC.ERF D3T4 105 ELEM_FUNC_LIB.ERFC/ERF.SA.10 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.46 00525/11 ELEM FUNC LIB ALGAMA/GAMMA SA G S0496 EFL74 FSNAME=ALGAMA.GAMMA D3T4 106 ELEM_FUNC_LIB.ALGAMA/GAMMA.SA.11 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:02.51 00525/12 ELEM FUNC LIB DSQRT SA G S0496 EFL74 FSNAME=DSQRT D3T4 107 ELEM_FUNC_LIB.DSQRT.SA.12 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:02.56 00525/13 ELEM FUNC LIB DEXP SA G S0496 EFL74 FSNAME=DEXP D3T4 108 ELEM_FUNC_LIB.DEXP.SA.13 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:03.00 00525/14 ELEM FUNC LIB DLOG10/DLOG SA G S0496 EFL74 FSNAME=DLOG10.DLOG D3T4 109 ELEM_FUNC_LIB.DLOG10/DLOG.SA.14 1 LINE 67 2 DISK UM HARDING JUNE 27, 1972 12:03.05 00525/15 ELEM FUNC LIB DCOS/DSIN SA G S0496 EFL74 FSNAME=DCOS.DSIN D3T4 110 ELEM_FUNC_LIB.DCOS/DSIN.SA.15 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.11 00525/16 ELEM FUNC LIB DCOTAN/DTAN SA G S0496 EFL74 FSNAME=DCOTAN.DTAN D3T4 111 ELEM_FUNC_LIB.DCOTAN/DTAN.SA.16 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:03.15 00525/17 ELEM FUNC LIB DARCOS/DARSIN SA G S0496 EFL74 FSNAME=DARCOS.DARSI D3T4 112 ELEM_FUNC_LIB.DARCOS/DARSI.SA.17 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.20 00525/18 ELEM FUNC LIB DATAN2/DATAN SA G S0496 EFL74 FSNAME=DATAN2.DATAN D3T4 113 ELEM_FUNC_LIB.DATAN2/DATAN.SA.18 1 LINE 70 2 DISK UM HARDING FEB. 16, 1973 09:37.48 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00525/19 ELEM FUNC LIB DCOSH/DSINH SA G S0496 EFL74 FSNAME=DCOSH.DSINH D3T4 114 ELEM_FUNC_LIB.DCOSH/DSINH.SA.19 1 LINE 68 2 DISK UM HARDING JUNE 27, 1972 12:03.32 00525/20 ELEM FUNC LIB DTANH SA G S0496 EFL74 FSNAME=DTANH D3T4 115 ELEM_FUNC_LIB.DTANH.SA.20 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:03.36 00525/21 ELEM FUNC LIB DERFC/DERF SA G S0496 EFL74 FSNAME=DERFC.DERF D3T4 116 ELEM_FUNC_LIB.DERFC/DERF.SA.21 1 LINE 72 2 DISK UM HARDING JUNE 27, 1972 12:03.39 00525/22 ELEM FUNC LIB DLGAMA/DGAMMA SA G S0496 EFL74 FSNAME=DLGAMA.DGAMM D3T4 117 ELEM_FUNC_LIB.DLGAMA/DGAMM.SA.22 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:03.42 00525/23 ELEM FUNC LIB CABS SA G S0496 EFL74 FSNAME=CABS D3T4 118 ELEM_FUNC_LIB.CABS.SA.23 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:03.46 00525/24 ELEM FUNC LIB CSQRT SA G S0496 EFL74 FSNAME=CSQRT D3T4 119 ELEM_FUNC_LIB.CSQRT.SA.24 1 LINE 67 2 DISK UM HARDING JUNE 27, 1972 12:03.50 00525/25 ELEM FUNC LIB CEXP SA G S0496 EFL74 FSNAME=CEXP D3T4 120 ELEM_FUNC_LIB.CEXP.SA.25 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:03.54 00525/26 ELEM FUNC LIB CLOG SA G S0496 EFL74 FSNAME=CLOG D3T4 121 ELEM_FUNC_LIB.CLOG.SA.26 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.57 00525/27 ELEM FUNC LIB CCOS/CSIN SA G S0496 EFL74 FSNAME=CCOS.CSIN D3T4 122 ELEM_FUNC_LIB.CCOS/CSIN.SA.27 1 LINE 69 1 DISK UM HARDING JUNE 27, 1972 12:04.00 00525/28 ELEM FUNC LIB CDABS SA G S0496 EFL74 FSNAME=CDABS D3T4 123 ELEM_FUNC_LIB.CDABS.SA.28 1 LINE 69 1 DISK UM HARDING JUNE 27, 1972 12:04.04 00525/29 ELEM FUNC LIB CDSQRT SA G S0496 EFL74 FSNAME=CDSQRT D3T4 124 ELEM_FUNC_LIB.CDSQRT.SA.29 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:04.08 00525/30 ELEM FUNC LIB CDEXP SA G S0496 EFL74 FSNAME=CDEXP D3T4 125 ELEM_FUNC_LIB.CDEXP.SA.30 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:04.12 00525/31 ELEM FUNC LIB CDLOG SA G S0496 EFL74 FSNAME=CDLOG D3T4 126 ELEM_FUNC_LIB.CDLOG.SA.31 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:04.16 00525/32 ELEM FUNC LIB CDCOS/CDSIN SA G S0496 EFL74 FSNAME=CDCOS.CDSIN D3T4 127 ELEM_FUNC_LIB.CDCOS/CDSIN.SA.32 1 LINE 63 2 DISK UM HARDING JUNE 27, 1972 12:04.19 00525/33 ELEM FUNC LIB FIXPI# SA G S0496 EFL74 FSNAME=FIXPI D3T4 128 ELEM_FUNC_LIB.FIXPI#.SA.33 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:04.23 00525/34 ELEM FUNC LIB FRXPI# SA G S0496 EFL74 FSNAME=FRXPI D3T4 129 ELEM_FUNC_LIB.FRXPI#.SA.34 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:04.25 00525/35 ELEM FUNC LIB FDXPI# SA G S0496 EFL74 FSNAME=FDXPI D3T4 130 ELEM_FUNC_LIB.FDXPI#.SA.35 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:04.28 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00525/36 ELEM FUNC LIB FCXPI# SA G S0496 EFL74 FSNAME=FCXPI D3T4 131 ELEM_FUNC_LIB.FCXPI#.SA.36 1 LINE 67 1 DISK UM HARDING JUNE 27, 1972 12:04.31 00525/37 ELEM FUNC LIB FCDXI# SA G S0496 EFL74 FSNAME=FCDXI D3T4 132 ELEM_FUNC_LIB.FCDXI#.SA.37 1 LINE 71 1 DISK UM HARDING JUNE 27, 1972 12:04.34 00525/38 ELEM FUNC LIB FRXPR# SA G S0496 EFL74 FSNAME=FRXPR D3T4 133 ELEM_FUNC_LIB.FRXPR#.SA.38 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:04.37 00525/39 ELEM FUNC LIB FDXPD# SA G S0496 EFL74 FSNAME=FDXPD D3T4 134 ELEM_FUNC_LIB.FDXPD#.SA.39 1 LINE 67 1 DISK UM HARDING JUNE 27, 1972 12:04.43 00525/40 ELEM FUNC LIB CMPY# SA G S0496 EFL74 FSNAME=CMPY D3T4 135 ELEM_FUNC_LIB.CMPY#.SA.40 1 LINE 61 1 DISK UM HARDING JUNE 27, 1972 12:04.46 00525/41 ELEM FUNC LIB CDVD# SA G S0496 EFL74 FSNAME=CDVD D3T4 136 ELEM_FUNC_LIB.CDVD#.SA.41 1 LINE 55 1 DISK UM HARDING JUNE 27, 1972 12:04.50 00525/42 ELEM FUNC LIB CDMPY# SA G S0496 EFL74 FSNAME=CDMPY D3T4 137 ELEM_FUNC_LIB.CDMPY#.SA.42 1 LINE 61 1 DISK UM HARDING JUNE 27, 1972 12:04.54 00525/43 ELEM FUNC LIB CDDVD# SA G S0496 EFL74 FSNAME=CDDVD D3T4 138 ELEM_FUNC_LIB.CDDVD#.SA.43 1 LINE 55 1 DISK UM HARDING JUNE 27, 1972 12:04.56 00525/44 ELEM FUNC LIB DREAL SA G S0496 EFL74 FSNAME=DREAL D3T4 139 ELEM_FUNC_LIB.DREAL.SA.44 1 LINE 58 1 DISK UM HARDING JUNE 27, 1972 12:05.00 00525/45 ELEM FUNC LIB DIMAG SA G S0496 EFL74 FSNAME=DIMAG D3T4 140 ELEM_FUNC_LIB.DIMAG.SA.45 1 LINE 58 1 DISK UM HARDING JUNE 27, 1972 12:05.02 00525/46 ELEM FUNC LIB MINMAX SA G S0496 EFL74 FSNAME=MINMAX D3T4 141 ELEM_FUNC_LIB.MINMAX.SA.46 1 LINE 65 2 DISK UM HARDING JUNE 27, 1972 12:05.05 00525/47 ELEM FUNC LIB EFL.MACLIB SM G S0496 EFL74 FSNAME=EFL.MACLIB D3T4 142 ELEM_FUNC_LIB.EFL.MACLIB.SM.47 1 LINE 65 1 PAGE UM HARDING AUG. 01, 1973 22:37.35 0 EFL MACRO LIBRARY REQUIRED FOR ASSEMBLING COMPS 525/1 THROUGH 525/46. 0 Referenced by comments of: 525/1 00525/48 ELEM FUNC LIB ERRMON# SA G S0496 EFL74 FSNAME=ERRMON D3T4 143 ELEM_FUNC_LIB.ERRMON#.SA.48 1 LINE 70 4 DISK UM HARDING APR. 25, 1973 11:37.48 0 EFL ERROR MONITOR. 00525/49 ELEM FUNC LIB SA G S0496 EFL74 FSNAME=ASM.EFL D3T4 144 ELEM_FUNC_LIB..SA.49 1 LINE 57 3 PAGE UM HARDING AUG. 01, 1973 22:38.02 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. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00525/50 ELEM FUNC LIB OBJECT OC G SEG2:EFL D3.2T1 423 ELEM_FUNC_LIB.OBJECT.OC.50 1 LINE 80 18 PAGE UM HARDING MAR. 21, 1975 01:49:04 0 OBJECT LOADED INTO SHARED VM AT IPL BY SEG 2 LOADER. THE FOLLOWING SYMBOLS ARE ADDED TO LCSYMBOL BY THE SEG 2 LOADER: TRACER, TRACER#, SIOC, SIOC#, SIOCP, AND THE SYMBOL DEFINES A SEPARATE SYMBOL TABLE WHICH CONTAINS THE ADDRESSES OF ALL OF THE EFL ENTRY POINTS. NOTE: THIS OBJECT IS INSTALLATION DEPENDENT IN THAT IT CONTAINS AN SIOC WHICH USES THE 370 EXTENDED PRECISION FLOATING POINT INSTRUCTIONS. 00526/01 SIOC SA G SIOC W060:ASM.SIOC370 D3.2T1 424 SIOC..SA.01 1 LINE 80 40 PAGE UM HARDING MAR. 21, 1975 01:49:06 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. USES AN ASSEMBLY PARAMETER TO CONTROL WHETHER THE CODE SHOULD BE GENERATED FOR A STANDARD 360 OR FOR A 370 WITH THE EXTENDED PRECISION FEATURE. 00526/02 SIOC OC G # (PART OF COMP 525) UM HARDING 0 OBJECT IS PART OF FILE "SEG2:EFL". 00526/03 SIOC SIOCP SA G SIOP W060:ASM.SIOCP D3.2T1 425 SIOC.SIOCP.SA.03 1 LINE 80 6 PAGE UM HARDING MAR. 21, 1975 01:49:10 0 SUBROUTINE TO TRANSLATE FORTRAN FORMAT-LIKE CHARACTER STRINGS INTO THE DATA BLOCK REQUIRED FOR CALLLING SIOC. 00526/04 SIOC SIOCP OC G # (PART OF COMP 525) UM HARDING 00527/01 TRACER SA G TRAC S0496 EFL74 FSNAME=TRACER D3T4 149 TRACER..SA.1 1 LINE 80 50 PAGE UM HARDING AUG. 01, 1973 22:38.24 0 THE TRACEBACK PROGRAM PROVIDES CONVERSATIONAL ERROR PROCESSING FOR ERROR CONDITIONS DETECTED BY THE ELEMENTARY FUNCTION LIBRARY (525) AS WELL AS PROGRAM AND ATTENTION INTERRUPT PROCESSING. COMMANDS ARE AVAILABLE FOR DISPLAYING AND ALTERING FLOATING POINT, INTEGER, CHARACTER, AND HEX DATA. THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, IS NORMALLY LOADED INTO SHARED VM (SEGMENT 2). 00527/02 TRACER OC G # (PART OF COMM 525) UM HARDING 0 OBJECT IS PART OF FILE "SEG2:EFL". 00527/03 TRACER WRITEUP WF S0496 EFL74 FSNAME=DOC.TRACER D3T4 150 TRACER.WRITEUP.WF.3 1 LINE 147 10 PAGE UM HARDING AUG. 01, 1973 22:38.33 0 THIS IS COMPUTING CENTER MEMO M218 -- "THE TRACEBACK PROGRAM" 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00528/01 ALGOLW *ALGOLW SA ALG0 WATF:ALGW.MAIN.S(4) D3T4 151 ALGOLW.*ALGOLW.SA.1 1 SEQ 80 9 PAGE UNE STAVELY AUG. 01, 1973 22:40.39 0 SOURCE FOR MTSCOMP, THE MTS ALGOL W COMPILER INTERFACE. 0 Referenced by comments of: 483/4 00528/02 ALGOLW *ALGOLW OE *ALGOLW D3T4 152 ALGOLW.*ALGOLW.OE.2 1 SEQ 1833 1 PAGE UNE STAVELY AUG. 01, 1973 22:40.40 0 THE OBJECT FOR THE ALGOL W COMPILER INTERFACE, PLUS P3DSECT FROM PHASE B OF THE COMPILER (SEE 528/11). 0 Referenced by comments of: 528/11 00528/03 ALGOLW *XALGOLW SA XALG WATF:ALGW.XMAIN.S(5) D3T4 153 ALGOLW.*XALGOLW.SA.3 1 LINE 73 11 PAGE UNE STAVELY AUG. 01, 1973 22:40.45 0 SOURCE FOR MONITOR, PART OF THE MTS ALGOL W COMPILE-AND-GO INTERFACE. FROM UNE, BUT MODIFIED AT UM TO CHANGE CONTROL CARDS AND DEFAULT ESTIMATES. 00528/04 ALGOLW *XALGOLW S3 XLOD WATF:ALGW.XLOAD.S(5) D3T4 154 ALGOLW.*XALGOLW.S3.4 1 SEQ 80 5 PAGE UNE STAVELY AUG. 01, 1973 22:40.53 0 PL360 SOURCE FOR LOADER, PART OF THE MTS ALGOL W COMPILE-AND-GO INTERFACE. 00528/05 ALGOLW *XALGOLW SA # (SEE COMP 483) UM STAVELY 0 SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER. THE OBJECT OF THE SUBROUTINE IS ALSO PART OF *ALGOLWLIB. 00528/06 ALGOLW *XALGOLW OE *XALGOLW D3T4 155 ALGOLW.*XALGOLW.OE.6 1 SEQ 3432 2 PAGE UNE STAVELY AUG. 01, 1973 22:40.57 0 THE OBJECT FOR THE ALGOL W COMPILE-AND-GO INTERFACE, PLUS P3DSECT FROM PHASE B OF THE COMPILER (SEE 528/11). 0 Referenced by comments of: 528/11 00528/07 ALGOLW PHASE A S3 PHSA WATF:ALGW.P12.S D3T4 156 ALGOLW.*AWXCMPA2.S3.7 1 SEQ 80 103 PAGE UNE STAVELY AUG. 01, 1973 22:41.22 0 PL360 SOURCE FOR PHASE A OF THE ALGOL W COMPILER. 00528/08 ALGOLW PHASE A UU WATF:ALGW.P12.U(1000) UNE STAVELY 0 PL360 UPDATES FOR PHASE A OF ALGOL W COMPILER. 00528/09 ALGOLW PHASE B S3 PHSB WATF:ALGW.P3.S D3T4 158 ALGOLW.*AWXCMPB2.S3.9 1 SEQ 80 107 PAGE UNE STAVELY AUG. 01, 1973 22:41.54 0 PL360 SOURCE FOR PHASE B OF THE ALGOL W COMPILER. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00528/10 ALGOLW PHASE B UU WATF:ALGW.P3.U(1000) UNE STAVELY 0 PL360 UPDATES FOR PHASE B OF THE ALGOL W COMPILER. 00528/11 ALGOLW PHASES A&B OE SEG2:ALGW D3T4 157 ALGOLW.*AWXCMPA2.OE.8 1 SEQ 7801 13 PAGE UNE STAVELY AUG. 01, 1973 22:41.33 0 THIS FILE CONTAINS THE OBJECT OF PHASES A AND B WHICH ARE NORMALLY LOADED INTO SHARED VM BY PISTLE. TWO ENTRY POINTS (AWXCMPA2 AND AWXCMPB2) ARE DEFINED IN LCSYMBOL FOR REFERENCE BY *ALGOLW AND *XALGOLW. THE PHASE B OBJECT CONTAINS A CSECT (P3DSECT) WHICH IS INCLUDED IN BOTH *ALGOLW (528/2) AND *XALGOLW (528/6) RATHER THAN IN THIS FILE. THE ENTIRE CONTENTS OF THIS FILE MUST BE INCLUDED IN BOTH *ALGOLW AND *XALGOLW IF NOT LOADED INTO SHARED VM. 00528/12 ALGOLW *ALGWXLIB S3 PHSC WATF:ALGW.XLIB.SP(6) D3T4 160 ALGOLW.*AWXLIBR2.S3.11 1 SEQ 80 69 PAGE UNE STAVELY AUG. 01, 1973 22:42.20 0 PL360 SOURCE FOR PHASEC, THE ALGOL W LIBRARY WITH DEBUGGING ROUTINES. 00528/13 ALGOLW *ALGWXLIB SA XLIB WATF:ALGW.XLIB.SA D3T4 161 ALGOLW.*AWXLIBR2.SA.12 1 SEQ 80 1 PAGE UNE STAVELY AUG. 01, 1973 22:42.28 0 SOURCE FOR LIBDIR, THE ALGOL W LIBRARY DIRECTORY. 00528/14 ALGOLW *ALGWXLIB OE *ALGWXLIB D3T4 162 ALGOLW.*AWXLIBR2.OE.13 1 SEQ 4032 8 PAGE UNE STAVELY AUG. 01, 1973 22:42.31 00528/15 ALGOLW *ALGOLWLIB SA LIB0 WATF:ALGW.LIB.SA(5) D3T4 163 ALGOLW.*ALGOLWLIB.SA.14 1 SEQ 80 10 PAGE UNE STAVELY AUG. 01, 1973 22:42.55 0 SOURCE FOR MTSEXEC, THE MTS ALGOL W OBJECT PROGRAM INTERFACE. 00528/16 ALGOLW *ALGOLWLIB S3 LIB0 WATF:ALGW.LIB.SP(4) D3T4 164 ALGOLW.*ALGOLWLIB.S3.15 1 SEQ 80 40 PAGE UNE STAVELY AUG. 01, 1973 22:43.18 0 PL360 SOURCE FOR LIBRC, THE ALGOL W LIBRARY WITHOUT DEBUGGING ROUTINES. 00528/17 ALGOLW *ALGOLWLIB OE *ALGOLWLIB D3T4 165 ALGOLW.*ALGOLWLIB.OE.16 1 SEQ 2048 6 PAGE UNE STAVELY AUG. 01, 1973 22:43.26 0 OBJECT FROM 528/15, 528/16, AND 528/5. 00528/18 ALGOLW WRITEUP WF WATF:ALGW.W D3T4 166 ALGOLW.WRITEUP.WF.17 1 LINE 99 11 PAGE UM STAVELY AUG. 01, 1973 22:43.28 0 THIS IS COMPUTING CENTER MEMO M199 -- "ALGOL W IN MTS" 00529/01 FILESTATUS COMMAND SA DWB:FSTATCMD3(1) D3.2T1 426 FILESTATUS_COMMAND..SA.01 1 LINE 80 24 PAGE UM DWB MAR. 21, 1975 01:49:11 0 SOURCE FOR FILESTATUS COMMAND WHICH IS NORMALLY LOADED BY THE SEG 2 LOADER AT IPL AND EXECUTED WHENEVER A $FILESTATUS COMMAND IS ISSUED. (THIS COMMAND PRINTS INFO ABOUT FILES.) THE FILESTATUS COMMAND, LIKE THE PERMIT COMMAND, WAS IMPLEMENTED AS A COMMAND LANGUAGE SUBSYSTEM (CLS) EVEN THOUGH IT REALLY ISN'T A CLS (SEE THE COMMENTS FOR COMP 509/1). 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 0 COPIES *GFINFODSECT (593) AND COPY:CLSVECTOR (535/2). REQUIRES SHARED (SEG 2) SUBROUTINES JULGRGDT (522) AND GRGJULDT (518). 00529/02 FILESTATUS COMMAND OC *CLSFILESTATUS D3.2T1 427 FILESTATUS_COMMAND..OC.02 1 LINE 80 9 PAGE UM DWB MAR. 21, 1975 01:49:16 0 >>> PATCHED OBJECT CORRESPONDS TO DISTRIBUTED SOURCE <<< 00530/01 *AMENDS SA AMEN DWB:UNEPA.S D3T4 169 AMENDS..SA.1 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 22:43.50 0 ORIGINAL UNE PROGRAM, UNCHANGED SINCE AUG 1970 EXCEPT TO REVERSE HANDLING OF UNITS 0 AND 1 TO AGREE WITH WRITEUP. 00530/02 *AMENDS OC *AMENDS D3T4 170 AMENDS..OC.2 1 LINE 80 1 PAGE UM DWB AUG. 01, 1973 22:43.55 00531/01 COMMAND STATISTICS CMDSTAT SA G CMDS DWB:CMDSTAT.370(1) D3.2T1 428 COMMAND_STATISTICS.CMDSTAT.SA.01 1 LINE 80 10 PAGE UM DWB MAR. 21, 1975 01:49:18 0 SUBROUTINE IN RESIDENT SYSTEM WHICH MTS CALLS (IF ENABLED BY CMDPIKUP JOB) TO SAVE STATISTICS ABOUT ALL MTS COMMANDS ISSUED. COPIES COPY:CMDAREADSECT (531/12), CMDSTAT.D (531/13), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), AND COPY:MTS.DSECT (346). NOTE: THE DROP AREA IS ALSO USED BY THE 3330 UNIT CHECK ROUTINES (603) AND THE READ 3330 LOG PROGRAM (604) FOR RECORDING 3330 DISK UNIT CHECK MESSAGES FOR LATER RETRIEVAL. THE S-TYPE CALLING SEQUENCE ENTRY IS CALLED BY HASP TO RECORD THE HASP LOG (TYPE 7), SYSTEM STATUS ROUTINE (TYPE 8), AND THE OPERATOR JOB CONSOLE LOG (TYPE 11). FOR MTS/370, MACHINE CHECK LOGOUT RECORDS ARE PUT IN SEPARATE LARGE DROP AREAS (TYPE 10). ASSEMBLE WITH COPY:SETPARM (653). 0 Referenced by comments of: 344/1 00531/02 COMMAND STATISTICS CMDSTAT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00531/03 COMMAND STATISTICS *CMD C G *CMD D3.1T1 331 COMMAND_STATISTICS.*CMD.C.3 1 LINE 42 1 PAGE UM DWB MAR. 06, 1974 17:51.21 0 THIS COMMAND FILE IS INVOKED BY INIT:INTCMD (097/2) WHENEVER THE SYSTEM IS IPLED. AFTER SIGNON, *CMD RUNS CMDPIKUP (531/4). AN ERROR FILE (CMDERRORS) MUST EXIST UNDER THE USER ID USED FOR *CMD. THE SYSTEM ROUTINELY COLLECTS COMMAND STATISTICS, 7330 UNIT CHECK RECORDS, MACHINE AND CHANNEL CHECK LOGOUTS, SSRTN STATISTICS, THE HASP AND OPERATOR CONSOLE LOGS, ETC. THESE VARIOUS 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, 97/3 00531/04 COMMAND STATISTICS CMDPIKUP SA G CMDP DWB:CMDPIKUP.370(1) D3.2T1 429 COMMAND_STATISTICS.CMDPIKU.SA.04 1 LINE 80 16 PAGE UM DWB MAR. 21, 1975 01:49:20 0 PROGRAM TO PICKUP MTS COMMAND STATISTICS (FROM CMDSTAT) AND SAVE THEM IN FILES; FILENAMES ARE SPECIFIED BY THE CMDDIR FILE (531/6). IN ADDITION, MACHINE AND CHANNEL CHECK RECORDS ARE ALSO WRITTEN ON UNIT 10 WHICH IS ATTACHED TO INIT:MCFILE. WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC STRTJB 1 FRI AUG 02/96 19:04:25 Page 180 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 TO START "MTS *DWB" (531/7) WHICH DUMPS THE FILLED FILE ONTO TAPE ACCORDING INFO IN CMDDIR. REQUIRES AN EMPTY FILE NAMED CMDSTATLOCK WHICH IS USED TO MAKE SURE THAT ONLY ONE COPY OF THIS PROGRAM IS RUNNING AT A TIME. NOTE: THE FILE "CMDDIR" (531/6) IS REFERENCED DIRECTLY BY THIS PROGRAM. COPIES COPY:CMDAREADSECT (531/12), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), COPY:MTS.EQU (345), CMDSTAT.D (531/13), AND *GDINFODSECT (594). 0 Referenced by comments of: 344/1, 531/3, 603/1 00531/05 COMMAND STATISTICS CMDPIKUP OC G SYS:CMDPIKUP.O D3.2T1 430 COMMAND_STATISTICS.CMDPIKU.OC.05 1 LINE 80 4 PAGE UM DWB MAR. 21, 1975 01:49:25 00531/06 COMMAND STATISTICS CMDDIR D G SYS:CMDDIR D3T4 175 COMMAND_STATISTICS.CMDDIR.D.6 1 LINE 75 1 PAGE UM DWB AUG. 01, 1973 22:44.21 0 THIS FILE SPECIFIES THE NAMES OF THE DATA FILES USED FOR DUMPING THE STATISTICS. IT ALSO SPECIFIES THE TAPE PARAMETERS USED FOR DUMPING EACH FILE TO TAPE WHEN FULL. 0 Referenced by comments of: 531/4, 531/8 00531/07 COMMAND STATISTICS *DWB C G *DWB D3.1T1 332 COMMAND_STATISTICS.*DWB.C.7 1 LINE 63 1 PAGE UM DWB MAR. 06, 1974 17:51.23 0 COMMAND FILE INVOKED BY CMDPIKUP TO DUMP A FULL FILE ONTO TAPE. REQUIRES FILE "CMDERRORS" FOR LOGGING PURPOSES. IT ALSO WRITES ANY 3330 UNIT CHECK MESSAGES IT FINDS ONTO UNIT 4, WHICH IN THIS COMMAND FILE, IS ATTACHED TO INIT:UC3330LOG. IT WOULD SEEM THAT DON COULD OF THOUGHT OF SOME NAME MORE ORIGINAL THAN HIS INITIALS. DON'S RESPONSE: "SINCE NO ONE WOULD NAME AN SVC AFTER ME, I WAS FORCED ... " 0 Referenced by comments of: 531/4 00531/08 COMMAND STATISTICS FILE-TO-TAPE SA G CMDT DWB:CMDTAPE.370(1) D3.2T1 431 COMMAND_STATISTICS.FILE-TO.SA.08 1 LINE 80 11 PAGE UM DWB MAR. 21, 1975 01:49:27 0 PROGRAM TO COPY COMMAND STATISTICS FILES TO TAPE. RUN BY *DWB. NOTE: THE FILE "CMDDIR" (531/6) IS REFERENCED DIRECTLY BY THIS PROGRAM. COPIES COPY:CMDAREADSECT (531/12), *GDINFODSECT (594), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.EQU (345). 0 Referenced by comments of: 344/1 00531/09 COMMAND STATISTICS FILE-TO-TAPE OC G SYS:CMDTAPE.O D3.2T1 432 COMMAND_STATISTICS.FILE-TO.OC.09 1 LINE 80 3 PAGE UM DWB MAR. 21, 1975 01:49:30 00531/10 COMMAND STATISTICS PRINT PROGRAM SA G CMDP DWB:CMDAREAPRINT(1,999) D3T4 179 COMMAND_STATISTICS.PRINT_P.SA.10 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 22:44.44 0 PROGRAM TO PRINT COMMAND STATISTICS FROM TAPES GENERATED BY 531/8. COPIES COPY:CMDAREADSECT (531/12) AND CALLS JMSGTDR (437). 0 Referenced by comments of: 531/28 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00531/11 COMMAND STATISTICS PRINT PROGRAM OC G DWB:CMDAREAPRINT(1000) D3T4 180 COMMAND_STATISTICS.PRINT_P.O.11 1 LINE 80 2 PAGE UM DWB AUG. 01, 1973 22:44.50 00531/12 COMMAND STATISTICS CMDAREADSECT SA G CMDA COPY:CMDAREADSECT D3.2T1 433 COMMAND_STATISTICS.CMDAREA.SA.12 1 LINE 80 2 PAGE UM DWB MAR. 21, 1975 01:49:32 0 COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD. 0 Referenced by comments of: 531/1, 531/4, 531/8, 531/10, 531/22, 531/26, 531/28, 577/53, 603/1, 621/2, 621/4, 621/12, 655/2 00531/13 COMMAND STATISTICS CMDSTATDATA SA G CMDD DWB:CMDSTAT.D D3.2T1 434 COMMAND_STATISTICS.CMDSTAT.SA.13 1 LINE 80 1 PAGE UM DWB MAR. 21, 1975 01:49:35 0 COPY SECTION FOR CMDSTAT DATA. 0 Referenced by comments of: 531/1, 531/4 00531/14 COMMAND STATISTICS CHECKTIME SA G CHKT DWB:CMDCHECKTIME(1,999) D3T4 183 COMMAND_STATISTICS.CHECKTI.SA.14 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 22:45.07 0 PROGRAM TO CHECK COMMAND STATISTICS OUTPUT TIMES TO SEE IF SOMETHING IS MISSING OR WHATEVER. IT PRINTS THE TIME/DATE OF THE FIRST AND LAST RECORDS AND OTHER RECORDS IF THE DIFFERENCE FROM THE PREVIOUS RECORD IS AT LEAST 1 SECOND AND IS GREATER THAN 128 TIMES THE AVERAGE OF THE LAST 8 DIFFERENCES, OR IF THE DIFFERENCE IS GREATER THAN 10 MINUTES. IF THE DIFFERENCE IS NEGATIVE, IT DOES THE SAME THING EXCEPT THAT IT USES 16 TIMES THE AVERAGE OF THE LAST 8. IF PAR=M IS GIVEN, IT GOES THROUGH MULTIPLE FILES. IF PAR=S IS GIVEN, IT PRINTS EVERY 128TH RECORD INSTEAD OF MAKING THE ABOVE CHECKS. 00531/15 COMMAND STATISTICS CHECKTIME OC G DWB:CMDCHECKTIME(1000) D3T4 184 COMMAND_STATISTICS.CHECKTI.OC.15 1 LINE 80 2 PAGE UM DWB AUG. 01, 1973 22:45.13 00531/16 COMMAND STATISTICS CMDXTRACT SF DWB:CMDXTRACT(1,999) D3.1T1 334 COMMAND_STATISTICS.CMDXTRA.SF.16 1 LINE 71 1 PAGE UM DWB MAR. 06, 1974 17:51.28 0 PROGRAM TO EXTRACT COMMAND LINES FOR A GIVEN USERID AND TIME RANGE TAKES STATISTICS INPUT ON SCARDS,PRINTS LINES (WITH TIME,DATE,ID PROJ NO,AND TASK NUMBER) ON 6. 5 (INPUT) AND SPRINT (OUTPUT) SHOULD BE ATTACHED TO TERMINAL. IT WILL ASK QUESTIONS FOR ITS PARAMETERS. 00531/17 COMMAND STATISTICS CMDXTRACT OC DWB:CMDXTRACT(1000) D3.1T1 335 COMMAND_STATISTICS.CMDXTRA.OC.17 1 LINE 240 2 PAGE UM DWB MAR. 06, 1974 17:51.31 00531/18 COMMAND STATISTICS CMDXTRACT3 SF DWB:CMDXTRACT3(1,999) D3.1T1 336 COMMAND_STATISTICS.CMDXTRA.SF.18 1 LINE 65 1 PAGE UM DWB MAR. 06, 1974 17:51.34 0 PROGRAM TO EXTRACT HASP LOG ITEMS. ASKS FOR A "THING" (USUALLY A S8 NUMBER) TO SEARCH FOR. RUN IT SAME AS 531/16. 00531/19 COMMAND STATISTICS CMDXTRACT3 OC DWB:CMDXTRACT3(1000) D3.1T1 337 COMMAND_STATISTICS.CMDXTRA.OC.19 1 LINE 253 1 PAGE UM DWB MAR. 06, 1974 17:51.36 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00531/20 COMMAND STATISTICS PROCESSING SF DWB:CMDPROC D3.1T1 338 COMMAND_STATISTICS.PROCESS.SF.20 1 LINE 75 8 PAGE UM DWB MAR. 06, 1974 17:51.39 0 PROGRAM TO READ AND GENERATE VARIOUS STATISTICS ON COMMAND DATA (USAGE OF VARIOUS COMMANDS FOR VARIOUS CATEGORIES OF USERS, AVERAGE LENGTH OF COMMANDS AND COMMAND NAMES,USAGE OF ABBREVIATIONS,...) SCARDS-DATA IN 6 -PRINT OUT 5 -PROMPT INPUT SPRINT-PROMPT OUTPUT (ASKS FOR NUMBER OF FILES TO PROCESS) 00531/21 COMMAND STATISTICS PROCESSING OC DWB:CMDPROCO D3.1T1 339 COMMAND_STATISTICS.PROCESS.OC.21 1 LINE 248 11 PAGE UM DWB MAR. 06, 1974 17:51.44 00531/22 COMMAND STATISTICS SCANCMD SA G SCNC MTS:SCANCMD(1,999) D3.2T1 435 COMMAND_STATISTICS.SCANCMD.SA.22 1 LINE 80 7 PAGE UM MTA MAR. 21, 1975 01:49:37 0 PROGRAM TO BUILD A DIRECTORY OF CMDSTAT TAPES. CALLS READBFR ROUTINE (531/24). COPIES COPY:CMDAREADSECT (531/12). 0 Referenced by comments of: 531/24, 531/26 00531/23 COMMAND STATISTICS SCANCMD OC G MTS:SCANCMD(1000) D3.2T1 436 COMMAND_STATISTICS.SCANCMD.OC.23 1 LINE 80 4 PAGE UM MTA MAR. 21, 1975 01:49:40 0 HAS A "$CONTINUE WITH MTA:READBFR(1000) RETURN" LINE. 00531/24 COMMAND STATISTICS READBFR SA G RBFR MTA:READBFR(1,999) D3.2T1 437 COMMAND_STATISTICS.READBFR.SA.24 1 LINE 80 3 PAGE UM MTA MAR. 21, 1975 01:49:43 0 SUBROUTINE TO PROVIDE "LOCATE MODE" INPUT WHEN INPUT RECORD LENGTH IS NOT KNOWN. USES GDINFO AND @NOTIFY TO ALLOCATE INPUT BUFFER. CALLED BY SCANCMD (531/22) AND SELECTCMD (531/26). COPIES *GDINFODSECT (594). 0 Referenced by comments of: 531/22, 531/26, 621/4 00531/25 COMMAND STATISTICS READBFR OC G MTA:READBFR(1000) D3.2T1 438 COMMAND_STATISTICS.READBFR.OC.25 1 LINE 80 1 PAGE UM MTA MAR. 21, 1975 01:49:45 00531/26 COMMAND STATISTICS SELECTCMD SA G SELC MTS:SELECTCMD(1,999) D3.2T1 439 COMMAND_STATISTICS.SELECTC.SA.26 1 LINE 80 8 PAGE UM MTA MAR. 21, 1975 01:49:48 0 PROGRAM TO RETRIEVE DATA FROM CMDSTAT TAPES USING DIRECTORY BUILT BY SCANCMD (531/22). COPIES COPY:CMDAREADSECT (531/12). CALLS READBFR ROUTINE (531/24). 0 Referenced by comments of: 531/24 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00531/27 COMMAND STATISTICS SELECTCMD OC G MTS:SELECTCMD(1000) D3.2T1 440 COMMAND_STATISTICS.SELECTC.OC.27 1 LINE 80 5 PAGE UM MTA MAR. 21, 1975 01:49:51 0 HAS A "$CONTINUE WITH MTA:READBFR(1000) RETURN" LINE. 00531/28 COMMAND STATISTICS CMDUTIL SA G CMDU DWB:CMDUTIL(1,999) D3.2T1 441 COMMAND_STATISTICS.CMDUTIL.SA.28 1 LINE 80 10 PAGE UM DWB MAR. 21, 1975 01:49:53 0 PROGRAM TO PRINT OR COPY (OR BOTH) COMMAND STATISTICS RECORDS BASED ON RECORD TYPES. THIS PROGRAM REPLACES AND EXTENDS CMDAREAPRINT (531/10). 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. COPIES COPY:CMDAREADSECT (531/12). 00531/29 COMMAND STATISTICS CMDUTIL OC G DWB:CMDUTIL(1000) D3.2T1 442 COMMAND_STATISTICS.CMDUTIL.OC.29 1 LINE 84 6 PAGE UM DWB MAR. 21, 1975 01:49:56 00532/01 *PLOTSEE SA G S0933 IG 'IG.DIST' FSNAME=IG.PLOTSEE.S D3.2T1 443 PLOTSEE..SA.01 1 LINE 78 7 PAGE UM GOODRICH FEB. 21, 1975 16:15:03 0 PLOT PREVIEWING PROGRAM. USER OF ANY IG-SUPPORTED DISPLAY CONNECTED TO MTS VIA UM DATA CONCENTRATOR CAN VIEW PDS PLOT FILES PRODUCED VIA *PLOTSYS. HAS "WINDOWING" FACILITY. SOURCE START ON LINE 7. 00532/02 *PLOTSEE OE G S0933 IG 'IG.DIST' FSNAME=IG.PLOTSEE.O D3.2T1 444 PLOTSEE..OE.02 1 LINE 255 4 PAGE UM GOODRICH FEB. 21, 1975 16:15:09 0 CONTAINS "$CONTINUE WITH *IG+*PLOTSYS" LINE. 00533/01 *FRISK SA S0664 UBC22 'UBC -> UM #22' FSNAME=FRISK..SA 9 D3T4 187 FRISK..SA.1 1 LINE 72 11 DISK UBC HALL FEB. 09, 1973 14:25:43 0 PROGRAM TO PRODUCE CROSS-REFERENCES OF SUBROUTINE, VARIABLE, LABEL, AND I/O UNIT REFERENCES IN FORTRAN PROGRAMS. OBJECT NOT DISTRIBUTED. 00533/02 *FRISK WRITEUP WF S0723 'D3T4' FSNAME=FRISK.WRITEUP.WF.2 188 D3T4 188 FRISK.WRITEUP.WF.2 1 LINE 110 2 DISK UBC HALL MAR. 23, 1973 18:19.40 00534/01 TMTS JOB LIST ENTRY SA G # (PART OF COMP 003) UM MTA 0 "TEST MTS" JOB LIST ENTRY. NORMALLY, IT POINTS TO TMTS FAKE JOB-PROGRAM (534/3), WHICH WHEN ACTIVATED, SAYS "NO TEST SYSTEM LOADED." RUNNING THE LOADMTS PROGRAM (534/5) LOADS A TEST VERSION OF MTS AND FRIENDS INTO SEGMENT 2 AND PLUGS THE MTS ENTRY POINT INTO THIS JOB LIST ENTRY. THIS PROVIDES A WAY OF CHECKING OUT NEW VERSIONS OF MTS WITHOUT USING THE VIRTUAL MACHINE. 0 Referenced by comments of: 534/3 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00534/02 TMTS JOB LIST ENTRY OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00534/03 TMTS FAKE JOB-PGM SA G TMFK MTS:TMTSFAKE(1,999) D3T4 189 TMTS.FAKE_JOB-PGM.SA.3 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 22:52.38 0 DUMMY JOB PROGRAM POINTED TO BY TMTS JOB LIST ENTRY (534/1). 0 Referenced by comments of: 534/1 00534/04 TMTS FAKE JOB-PGM OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00534/05 TMTS LOADMTS SA G LMTS MTS:LOADMTS(1,999) D3.2T1 445 TMTS.LOADMTS.SA.05 1 LINE 80 19 PAGE UM MTA MAR. 21, 1975 01:50:14 0 PROGRAM TO LOAD A TEST VERSION OF MTS AND FRIENDS INTO SEGMENT 2 AND PLANT THE ENTRY POINT IN THE TMTS JOB LIST ENTRY. I/O UNIT USAGE: GUSER - FOR USER INPUT SERCOM - FOR PROMPTING SPRINT - MAP, MESSAGES, AND EVERYTHING WRITTEN ON SERCOM TWO PARAMETERS MAY BE GIVEN: PAR=TEST (THE DEFAULT) MEANS LOAD THE TEST SYSTEM INTO PRIVATE VM (SEGMENT 5) AND DON'T CHANGE THE ENTRY POINT IN THE TMTS JOB LIST, PAR=NOTEST MEANS LOAD THE TEST SYSTEM INTO SHARED VM (SEGMENT 2) AND CHANGE THE TMTS JOB LIST ENTRY POINT. THE PROGRAM FINDS THE FIRST UNREFERENCED PAGE IN SEGMENT 2 AND ASKS IF IT IS OK TO START LOADING THERE. REPLY "OK" OR WITH A NEW ADDRESS IN THE RANGE 200000 TO 2FF000. THE PROGRAM PROMPTS FOR THE NAME OF A FILE TO LOAD FROM, WHICH SHOULD CONTAIN THOSE PARTS OF THE SYSTEM TO BE TESTED, BUT MUST CONTAIN AT LEAST THE FOLLOWING: MTS, MTS SUBRS (KWIC, GETSPACE/FREESPAC, GUINFO/CUINFO, PLIMIT, LLXU, CHECKSUM, TIMER, CMDS, USUB, FSUB, DSRS, DSRI), COST, CFDUB, LCSYMBOL, SYSDEFS, GETRATES, AND RATEVEC, AND RATENBR. OTHER COMPONENTS MAY ALSO BE INCLUDED, BUT NEITHER VOLGET (482/5) NOR TABLRTN (482/30) SHOULD BE INCLUDED. 0 Referenced by comments of: 534/1 00534/06 TMTS LOADMTS OC G MTS:LOADMTS(1000) D3.2T1 446 TMTS.LOADMTS.OC.06 1 LINE 80 11 PAGE UM MTA MAR. 21, 1975 01:50:17 00534/07 TMTS TMTSLIB OL O MTS:TMTSLIB D3.1T1 342 TMTS.TMTSLIB.OL.7 1 SEQ 13704 50 PAGE UM MTA MAR. 06, 1974 17:51.53 0 THIS IS A SPECIAL (AND SLIGHTLY OBSOLETE) VERSION OF *LIBRARY WHICH INCLUDES ADDITIONAL SUBROUTINES WHICH NORMALLY ARE IN SHARED VM AND NOT PART OF *LIBRARY. THE TEST SYSTEM SHOULD REFERENCE THIS FILE AND NOT *LIBRARY. THE FOLLOWING COMMAND WILL CAUSE THIS TO BE DONE: $SET LIBSRCH=MTS:TMTSLIB *LIBRARY=OFF 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00535/01 CLS INTERFACE PLAN COPY SECT SA G CLSP COPY:CLSPLAN D3.2T1 447 CLS_INTERFACE.PLAN_COPY_SE.SA.01 1 LINE 80 3 PAGE UM DWB MAR. 21, 1975 01:50:18 0 COPY SECTION DEFINING COMMAND LANGUAGE SUBSYSTEM (CLS) CALLING CONVENTIONS. 0 Referenced by comments of: 42/1, 324/1, 354/1, 413/6, 535/4, 539/1, 553/1, 585/1, 585/4, 600/1, 600/4, 600/6, 600/8, 600/10, 635/1, 636/1, 637/1, 638/1, 639/1, 648/1, 651/10 00535/02 CLS INTERFACE T/V DSECT SA G CLSV COPY:CLSVECTOR D3.2T1 448 CLS_INTERFACE.T/V_DSECT.SA.02 1 LINE 80 3 PAGE UM DWB MAR. 21, 1975 01:50:21 0 DSECT COPY SECTION FOR TRANSFER VECTOR PASSED BY MTS TO COMMAND LANGUAGE SUBSYSTEMS. 0 Referenced by comments of: 101/1, 413/6, 447/1, 509/1, 529/1, 535/4, 553/1, 585/1, 600/1, 600/4, 600/6, 600/8, 600/10, 631/1, 648/1 00535/03 CLS INTERFACE T/V STD ADCONS SA G STDV COPY:STANDARDTV D3.2T1 449 CLS_INTERFACE.T/V_STD_ADCO.SA.03 1 LINE 80 3 PAGE UM DWB MAR. 21, 1975 01:50:23 0 COPY SECTION WHICH WILL DEFINE A CLS T/V FOR SUBROUTINES OR EXECUTION-LEVEL PROGRAMS TO USE, I.E. V(GETSPACE) FOR GETSPACE, V(SCARDS) FOR SOURCE, ETC. 0 Referenced by comments of: 324/5, 509/1, 648/4 00535/04 CLS INTERFACE CLS DRIVER PGM SA O DRIV W044:MTSSOU D3.1T1 345 CLS_INTERFACE.CLS_DRIVER_P.SA.4 1 LINE 80 41 PAGE UM SALISBURY MAR. 06, 1974 17:52.04 0 PROGRAM TO FAKE AN MTS/CLS INTERFACE FOR DEBUGGING A NEW CLS. SINCE IT EXECUTES AS A NORMAL PROGRAM, SDS CAN BE USED IN THE DEBUGGING. COPIES COPY:CLSPLAN (535/1) AND COPY:CLSVECTOR (535/2). 00535/05 CLS INTERFACE CLS DRIVER PGM OC O W044:MTS D3.1T1 346 CLS_INTERFACE.CLS_DRIVER_P.OC.5 1 LINE 80 8 PAGE UM SALISBURY MAR. 06, 1974 17:52.14 00536 *BRAILLE # OBSOLETE D3T4 199 BRAILLE..SA.1 1 LINE 73 21 PAGE UM JULY 30, 1973 03:34.19 00537 360/20 TAB SHOP PGM # (NOT DISTRIBUTED) UM EMERY 0 UTILITY PROGRAM RUN ON 360/20 AT UM WHICH PERFORMS CARD LISTINGS, INTERPRETING, REPRODUCING, ETC. NOT DISTRIBUTED, BUT AVAILABLE UPON REQUEST. 00538/01 COBOL *COBOLU SA G COBU W071:COBU.S D3.1T1 347 COBOL.*COBOLU.SA.1 1 LINE 80 3 PAGE UM YOUNG MAR. 06, 1974 17:52.16 0 THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM. COPIES FAKEOS.GBLS (545/10). ASSEMBLE WITH *SYSMAC. 00538/02 COBOL *COBOLU OC G *COBOLU D3.1T1 348 COBOL.*COBOLU.OC.2 1 LINE 80 1 PAGE UM YOUNG MAR. 06, 1974 17:52.18 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00538/03 COBOL CREBLDL.S SA W071:CREBLDL.S D3.1T1 349 COBOL.CREBLDL.S.SA.3 1 LINE 68 3 PAGE UM YOUNG MAR. 06, 1974 17:52.20 0 PROGRAM TO CREATE A DIRECTORY THAT FAKEOS WILL USE WHEN DOING A BLDL ON LINKLIB. ASSEMBLE WITH *SYSMAC. 00538/04 COBOL CREBLDL.O OC W071:CREBLDL.O D3.1T1 350 COBOL.CREBLDL.O.OC.4 1 LINE 80 3 PAGE UM YOUNG MAR. 06, 1974 17:52.22 0 RUNNING THIS PROGRAM WITH SCARDS ASSIGNED TO BLDLNAMES (538/5) WILL PRODUCE COBOL.BLDL (538/6) ON UNIT 0. 0 Referenced by comments of: 458/80, 458/81, 538/5 00538/05 COBOL BLDLNAMES D W071:BLDLNAMES D3.1T1 351 COBOL.BLDLNAMES.D.5 1 LINE 44 1 PAGE UM YOUNG MAR. 06, 1974 17:52.24 0 SCARDS INPUT TO CREBLDL.O (538/4) TO BUILD COBOL.BLDL (538/6). 0 Referenced by comments of: 538/4 00538/06 COBOL COBOL.BLDL D W071:COBOL.BLDL D3.1T1 352 COBOL.COBOL.BLDL.D.6 1 SEQ 238 2 PAGE UM YOUNG MAR. 06, 1974 17:52.27 0 Referenced by comments of: 538/4, 538/5 00538/07 COBOL *IKFCBL00 OE O W071:IKFCBL00 D3.1T1 353 COBOL.*IKFCBL00.OE.7 1 SEQ 1024 4 PAGE UM YOUNG MAR. 06, 1974 17:52.29 0 COMPONENTS 538/7 THROUGH 538/18 ARE THE UNMODIFIED OS/360 OBJECT FOR THE ANSI COBOL COMPILER (RELEASE 21.6, VERSION 2). 00538/08 COBOL *IKFCBL01 OE O W071:IKFCBL01 D3.1T1 354 COBOL.*IKFCBL01.OE.8 1 SEQ 6144 5 PAGE UM YOUNG MAR. 06, 1974 17:52.31 0 OBJECT HAS REP CARD TO CHANGE DEFAULT PAR FIELD. 00538/09 COBOL *IKFCBL10 OE O W071:IKFCBL10 D3.1T1 355 COBOL.*IKFCBL10.OE.9 1 SEQ 1024 12 PAGE UM YOUNG MAR. 06, 1974 17:52.33 00538/10 COBOL *IKFCBL1B OE O W071:IKFCBL1B D3.1T1 356 COBOL.*IKFCBL1B.OE.10 1 SEQ 1024 7 PAGE UM YOUNG MAR. 06, 1974 17:52.35 00538/11 COBOL *IKFCBL20 OE O W071:IKFCBL20 D3.1T1 357 COBOL.*IKFCBL20.OE.11 1 SEQ 1024 13 PAGE UM YOUNG MAR. 06, 1974 17:52.38 00538/12 COBOL *IKFCBL30 OE O W071:IKFCBL30 D3.1T1 358 COBOL.*IKFCBL30.OE.12 1 SEQ 1024 4 PAGE UM YOUNG MAR. 06, 1974 17:52.40 00538/13 COBOL *IKFCBL40 OE O W071:IKFCBL40 D3.1T1 359 COBOL.*IKFCBL40.OE.13 1 SEQ 1024 11 PAGE UM YOUNG MAR. 06, 1974 17:52.42 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00538/14 COBOL *IKFCBL50 OE O W071:IKFCBL50 D3.1T1 360 COBOL.*IKFCBL50.OE.14 1 SEQ 1024 9 PAGE UM YOUNG MAR. 06, 1974 17:52.44 00538/15 COBOL *IKFCBL51 OE O W071:IKFCBL51 D3.1T1 361 COBOL.*IKFCBL51.OE.15 1 SEQ 1024 10 PAGE UM YOUNG MAR. 06, 1974 17:52.46 00538/16 COBOL *IKFCBL60 OE O W071:IKFCBL60 D3.1T1 362 COBOL.*IKFCBL60.OE.16 1 SEQ 1024 8 PAGE UM YOUNG MAR. 06, 1974 17:52.49 00538/17 COBOL *IKFCBL6A OE O W071:IKFCBL6A D3.1T1 363 COBOL.*IKFCBL6A.OE.17 1 SEQ 1024 1 PAGE UM YOUNG MAR. 06, 1974 17:52.51 00538/18 COBOL *IKFCBL70 OE O W071:IKFCBL70 D3.1T1 364 COBOL.*IKFCBL70.OE.18 1 SEQ 1024 13 PAGE UM YOUNG MAR. 06, 1974 17:52.53 00538/19 COBOL *COBLIB OL O *COBLIB D3.1T1 365 COBOL.*COBLIB.OL.19 1 SEQ 1024 7 PAGE UM YOUNG MAR. 06, 1974 17:52.55 0 OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY. 00538/20 COBOL USER'S GUIDE WF S0723 'D3T4' FSNAME=COBOL.USER'S_GUIDE.WF.16 216 D3T4 216 COBOL.USER'S_GUIDE.WF.16 1 LINE 112 5 DISK UM YOUNG MAR. 15, 1973 18:36.23 0 THIS IS COMPUTING CENTER MEMO M209 -- "MTS COBOL USER'S GUIDE" 00539/01 TIMNTRP D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=TIMT 9 D3T4 217 TIMNTRP..SA.1 1 SEQ 80 18 PAGE UM HAMILTON AUG. 01, 1973 22:56.40 0 MTS TIMER INTERRUPT ROUTINES (USER CALLABLE): SETIME, RSTIME, GETIME, AND TIMNTRP. ASSEMBLE WITH *SYSMAC AND COPY:MTS.MACROS (344); USE SIZE=16. COPIES COPY:MTS.DSECT (346), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:CLSPLAN (535/1), COPY:LLMPSEQU (087), AND COPY:MTS.TV (640). 0 Referenced by comments of: 344/1, 539/2 00539/02 TIMNTRP UPDATE UU G MTS:TIMTUPD D3.2T1 450 TIMNTRP.UPDATE.UU.02 1 LINE 72 2 PAGE UM HAMILTON MAR. 21, 1975 01:50:26 0 UPDATE TO D3 MASTER (539/1) TO PRODUCE CURRENT SOURCE. UPDATE DECK USES %POSN *IN* TIMT. COPIES COPY:GLOBALS (1026/4) IN ADDITION TO ITEMS LISTED FOR 539/1. ASSEMBLE USING COPY:SETPARM (653). 00539/03 TIMNTRP 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM HAMILTON 00539/04 TIMNTRP 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM HAMILTON 00540/01 PDPBUG SA G PDPB W047:PDPBUG(1000) D3.2T1 451 PDPBUG..SA.01 1 LINE 80 11 PAGE UM HAMILTON MAR. 21, 1975 01:50:28 0 PROGRAM TO PRINT STATISTICS ABOUT SYSTEM PAGING. COMMENTS IN THE SOURCE CODE DESCRIBE THE OUTPUT. MUST BE RE-ASSEMBLED IF EITHER THE SUPERVISOR OR THE PDP IS RE-ASSEMBLED. THE ITEMS TO BE CHANGED ARE DOCUMENTED IN SOURCE COMMENTS. 1 FRI AUG 02/96 19:04:25 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 COPIES COPY:LLMPSEQU(100) (087) AND COPY:GLOBALS (1026/4). 00540/02 PDPBUG 370 OBJECT OC G W047:PDPBUG(1,999) D3.2T1 452 PDPBUG.370_OBJECT.OC.02 1 LINE 80 5 PAGE UM HAMILTON MAR. 21, 1975 01:50:31 0 >>>>>>>>> CONTAINS REP CARDS <<<<<<<<<< 00540/03 PDPBUG 360 OBJECT OC G W047:PDPBUG.360 UM HAMILTON 00541/01 *DECODE SA G DECD S0723 'D3T4' FSNAME=DECODE..SA.1 220 D3T4 220 DECODE..SA.1 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 22:56.50 0 PROGRAM TO PROVIDE HASP-TYPE DECOMPRESSION/DEBLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE. 00541/02 *DECODE OC G *DECODE D3T4 221 DECODE..O.2 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 22:56.54 00542/01 *DF SA 338:DF.S D3T4 222 DF..SA.1 1 LINE 72 93 PAGE UM GOODRICH AUG. 01, 1973 22:56.58 0 DISPLAY FILE SUBROUTINE LIBRARY. FORTRAN CALLABLE SUBROUTINES TO ALLOW USERS TO CONSTRUCT, DISPLAY, AND INTERACT WITH DISPLAY FILES FOR THE DEC 338 AND DEC 339 DISPLAY CONTROLLERS ATTACHED TO MTS VIA UM DATA CONCENTRATOR. TO IMPLEMENT DFCONV, A SPECIAL VERSION OF FIOCS# IS NEEDED (SAME AS SYSTEM VERSION, PLUS A CHECK IN THE DSRN OPEN SECTION FOR DSRN #9). THE DSRN #9 MUST HAVE LABWRITE FOR ITS OUTPUT ROUTINE. THIS INVOLVES THE ADDITION OF ABOUT 6 EXTRA INSTRUCTIONS. ALSO, SETDSRN SHOULD BE REWRITTEN TO PREVENT TAMPERING WITH DSRN #9. FOR LINK EDITING PURPOSES, THE MODULES DF201, DFXYV, DFINI, AND PSECT1 (WHICH SHOULD BE LAST) SHOULD BE COMBINED, AS MUST DFCONV AND FIOCS#; OTHERWISE THINGS WON'T LOAD PROPERLY. THE LIBRARY SHOULD THEN BE BUILT AS FOLLOWS: 1. COPY THE FIRST COMBINED MODULES (DF201 ET AL) INTO A TEMPORARY SEQUENTIAL FILE. 2. RUN *GENLIB ON THE REST OF THE MODULES, SPECIFYING THE TEMP FILE FROM STEP 1 AS SPUNCH AND PAR=DIR. *GENLIB WILL WARN THAT SPUNCH IS NOT EMPTY, BUT THAT'S OK. NOTE: ALL MODULES SHOULD BE SQUASHED, BUT NO OTHERS SHOULD BE COMBINED. COPIES 338:PSECT (542/2). 00542/02 *DF PSECT SA 338:PSECT D3T4 223 DF.PSECT.SA.2 1 LINE 72 3 PAGE UM GOODRICH AUG. 01, 1973 22:57.15 0 Referenced by comments of: 542/1 00542/03 *DF OL *DF D3T4 224 DF..OL.3 1 SEQ 3536 6 PAGE UM GOODRICH AUG. 01, 1973 22:57.19 00543/01 *ENCODE SA G ENCD S0723 'D3T4' FSNAME=ENCODE..SA.1 225 D3T4 225 ENCODE..SA.1 1 LINE 80 9 PAGE UM MTA AUG. 01, 1973 22:57.23 0 PROGRAM TO PROVIDE HASP-TYPE COMPRESSION/BLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00543/02 *ENCODE OC G *ENCODE D3T4 226 ENCODE..O.2 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 22:57.27 00544 *ENDJUNK OC G *ENDJUNK D3T4 227 ENDJUNK..OC. 1 LINE 24 1 PAGE UM MTA AUG. 01, 1973 22:57.32 0 CONTAINS THE TWO LOADER CARDS: LCS LCSYMBOL LDT 00545/01 *FAKEOS INSTALLATION P S0723 'D3T4' FSNAME=FAKEOS.INSTALLATION.P.1 228 D3T4 228 FAKEOS.INSTALLATION.P.1 1 LINE 73 7 PAGE UM YOUNG AUG. 01, 1973 02:25.53 0 WRITEUP DESCRIBING THE ORGANIZATION AND INSTALLATION OF *FAKEOS. COPY IT TO A TN PRINTER. 00545/02 *FAKEOS WRITEUP P S0723 'D3T4' FSNAME=FAKEOS.WRITEUP.P.2 229 D3T4 229 FAKEOS.WRITEUP.P.2 1 LINE 77 6 PAGE UM YOUNG AUG. 01, 1973 02:25.59 0 WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS. COPY TO A TN PRINTER. 00545/03 *FAKEOS PREFIX SA W071:FAKEOS.P.S D3.1T1 367 FAKEOS.PREFIX.SA.3 1 LINE 73 13 PAGE UM YOUNG MAR. 06, 1974 17:53.00 0 SOURCE FOR FAKEOS PREFIX. COPIES FAKEOS.GBLS (545/10), CVT (545/11), TCB (545/12), COMDSECT (545/13), AND COMMON (545/14). ASSEMBLE WITH *SYSMAC. 00545/04 *FAKEOS PREFIX OC W071:FAKEOS.P.O D3.1T1 368 FAKEOS.PREFIX.OC.4 1 LINE 80 5 PAGE UM YOUNG MAR. 06, 1974 17:53.04 0 Referenced by comments of: 545/9 00545/05 *FAKEOS MAIN SA W071:FAKEOS.V2.S D3.1T1 369 FAKEOS.FAKEOS.SA.5 1 LINE 77 59 PAGE UM YOUNG MAR. 06, 1974 17:53.06 0 SOURCE FOR THE MAIN FAKEOS PROGRAM. COPIES FAKEOS.GBLS (545/10), CVT (545/11), TCB (545/12), COMDSECT (545/13), COMMON (545/14), DSDSECT (545/15), AND EXCPXT (545/22). ASSEMBLE WITH *SYSMAC AND *OSMAC (FOR DCBD MACRO). 0 Referenced by comments of: 545/22 00545/06 *FAKEOS MAIN OC W071:FAKEOS.V2.O D3.1T1 370 FAKEOS.FAKEOS.OC.6 1 LINE 80 8 PAGE UM YOUNG MAR. 06, 1974 17:53.54 0 Referenced by comments of: 545/9 00545/07 *FAKEOS JFCB BUILDER SA W071:FAKEJFCB.S D3.1T1 371 FAKEOS.JFCB_BUILDER.SA.7 1 LINE 71 1 PAGE UM YOUNG MAR. 06, 1974 17:53.55 0 SOURCE FOR JFCB BUILDER. COPIES JFCBD (545/25). 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00545/08 *FAKEOS JFCB BUILDER OC W071:FAKEJFCB.O D3.1T1 372 FAKEOS.JFCB_BUILDER.OC.8 1 LINE 80 2 PAGE UM YOUNG MAR. 06, 1974 17:53.57 0 Referenced by comments of: 545/9 00545/09 *FAKEOS *FAKEOS OE *FAKEOS D3.1T1 373 FAKEOS.*FAKEOS.OE.9 1 SEQ 18416 7 PAGE UM YOUNG MAR. 06, 1974 17:54.00 0 LINKEDIT OF PREFIX (545/4) + FAKEOS (545/6) + JFCB BUILDER (545/8). 00545/10 *FAKEOS FAKEOS.GBLS SA W071:FAKEOS.GBLS D3.1T1 374 FAKEOS.FAKEOS.GBLS.SA.10 1 LINE 66 1 PAGE UM YOUNG MAR. 06, 1974 17:54.02 0 GLOBAL PARAMETERS COPY SECTION. EACH INSTALLATION SHOULD RE-DEFINE &OWNER, &VOSID, &QSAMID, &COBUID, AND &MPSID. 0 Referenced by comments of: 538/1, 545/3, 545/5 00545/11 *FAKEOS CVT SA W071:CVT D3.1T1 375 FAKEOS.CVT.SA.11 1 LINE 57 1 PAGE UM YOUNG MAR. 06, 1974 17:54.04 0 CVT COPY SECTION. 0 Referenced by comments of: 545/3, 545/5 00545/12 *FAKEOS TCB SA W071:TCB D3.1T1 376 FAKEOS.TCB.SA.12 1 LINE 62 1 PAGE UM YOUNG MAR. 06, 1974 17:54.06 0 TCB COPY SECTION. 0 Referenced by comments of: 545/3, 545/5 00545/13 *FAKEOS COMDSECT SA W071:COMDSECT D3.1T1 377 FAKEOS.COMDSECT.SA.13 1 LINE 71 3 PAGE UM YOUNG MAR. 06, 1974 17:54.08 0 COPY SECTION FOR COMMON AREA FOR PREFIX AND FAKEOS. 0 Referenced by comments of: 545/3, 545/5 00545/14 *FAKEOS COMMON SA W071:COMMON D3.1T1 378 FAKEOS.COMMON.SA.14 1 LINE 69 1 PAGE UM YOUNG MAR. 06, 1974 17:54.10 0 EQUS COPY SECTION. 0 Referenced by comments of: 545/3, 545/5 00545/15 *FAKEOS DSDSECT SA W071:DSDSECT D3.1T1 379 FAKEOS.DSDSECT.SA.15 1 LINE 72 1 PAGE UM YOUNG MAR. 06, 1974 17:54.13 0 COPY SECTION FOR DSECT TO ASSOCIATE DCB AND FDUB. 0 Referenced by comments of: 545/5, 545/20 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00545/16 *FAKEOS FAKEOS.MSG M W071:FAKEOS.MSG D3.2T1 453 FAKEOS.FAKEOS.MSG.M.16 1 LINE 62 1 PAGE UM YOUNG MAR. 21, 1975 01:50:33 0 MESSAGE FILE. 00545/17 *FAKEOS VOSDDEF.S SA W071:VOSDDEF.S D3.2T1 454 FAKEOS.VOSDDEF.S.SA.17 1 LINE 80 9 PAGE UM YOUNG MAR. 21, 1975 01:50:35 0 SOURCE FOR DDNAME SCANNER. COPIES SAMEQU (545/19). ASSEMBLE WITH *SYSMAC AND *OSMAC. 0 Referenced by comments of: 545/19 00545/18 *FAKEOS VOSDDEF OE W071:VOSDDEF D3.2T1 455 FAKEOS.VOSDDEF.OE.18 1 SEQ 2586 1 PAGE UM YOUNG MAR. 21, 1975 01:50:37 00545/19 *FAKEOS SAMEQU SA W071:SAMEQU D3.2T1 456 FAKEOS.SAMEQU.SA.19 1 LINE 80 4 PAGE UM YOUNG MAR. 21, 1975 01:50:40 0 COPY SECTION FOR VOSDDEF.S (545/17). 0 Referenced by comments of: 545/17 00545/20 *FAKEOS FAKEEXCP.S SA W071:FAKEEXCP.S D3.2T1 457 FAKEOS.FAKEEXCP.S.SA.20 1 LINE 76 5 PAGE UM YOUNG MAR. 21, 1975 01:50:42 0 EXCP FAKER. COPIES DSDSECT (545/15) AND EXCPXT (545/22). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 545/22, 545/47 00545/21 *FAKEOS FAKEOS.EXCP OE W071:FAKEOS.EXCP D3.2T1 458 FAKEOS.FAKEOS.EXCP.OE.21 1 SEQ 1576 1 PAGE UM YOUNG MAR. 21, 1975 01:50:44 00545/22 *FAKEOS EXCPXT SA W071:EXCPXT D3.1T1 386 FAKEOS.EXCPXT.SA.22 1 LINE 59 1 PAGE UM YOUNG MAR. 06, 1974 17:54.29 0 COPY SECTION USED BY FAKEEXCP.S (545/20) AND FAKEOS (545/5). 0 Referenced by comments of: 545/5, 545/20 00545/23 *FAKEOS *FAKEOSTRACE SA W071:TRACER.S D3.1T1 387 FAKEOS.*FAKEOSTRACE.SA.23 1 LINE 65 2 PAGE UM YOUNG MAR. 06, 1974 17:54.31 0 SOURCE FOR PROGRAM TO PRINT FAKEOS TRACE FILE. ASSEMBLE WITH *SYSMAC. 00545/24 *FAKEOS *FAKEOSTRACE OC *FAKEOSTRACE D3.1T1 388 FAKEOS.*FAKEOSTRACE.OC.24 1 LINE 80 1 PAGE UM YOUNG MAR. 06, 1974 17:54.33 00545/25 *FAKEOS JFCBD SA W071:JFCBD D3.1T1 389 FAKEOS.JFCBD.SA.25 1 LINE 70 1 PAGE UM YOUNG MAR. 06, 1974 17:54.35 0 COPY SECTION FOR JFCB DSECT. 0 Referenced by comments of: 545/7 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00545/26 *FAKEOS *IGG019AA OE *IGG019AA D3.1T1 390 FAKEOS.*IGG019AA.OE.26 1 SEQ 168 1 PAGE UM YOUNG MAR. 06, 1974 17:54.38 00545/27 *FAKEOS *IGG019AB OE *IGG019AB D3.1T1 391 FAKEOS.*IGG019AB.OE.27 1 SEQ 176 1 PAGE UM YOUNG MAR. 06, 1974 17:54.40 00545/28 *FAKEOS *IGG019AC OE *IGG019AC D3.1T1 392 FAKEOS.*IGG019AC.OE.28 1 SEQ 280 1 PAGE UM YOUNG MAR. 06, 1974 17:54.42 00545/29 *FAKEOS *IGG019AD OE *IGG019AD D3.1T1 393 FAKEOS.*IGG019AD.OE.29 1 SEQ 248 1 PAGE UM YOUNG MAR. 06, 1974 17:54.44 00545/30 *FAKEOS *IGG019AE OE *IGG019AE D3.1T1 394 FAKEOS.*IGG019AE.OE.30 1 SEQ 400 1 PAGE UM YOUNG MAR. 06, 1974 17:54.46 00545/31 *FAKEOS *IGG019AI OE *IGG019AI D3.1T1 395 FAKEOS.*IGG019AI.OE.31 1 SEQ 144 1 PAGE UM YOUNG MAR. 06, 1974 17:54.49 00545/32 *FAKEOS *IGG019AJ OE *IGG019AJ D3.1T1 396 FAKEOS.*IGG019AJ.OE.32 1 SEQ 312 1 PAGE UM YOUNG MAR. 06, 1974 17:54.51 00545/33 *FAKEOS *IGG019AK OE *IGG019AK D3.1T1 397 FAKEOS.*IGG019AK.OE.33 1 SEQ 240 1 PAGE UM YOUNG MAR. 06, 1974 17:54.53 00545/34 *FAKEOS *IGG019BN OE *IGG019BN D3.1T1 398 FAKEOS.*IGG019BN.OE.34 1 SEQ 1952 1 PAGE UM YOUNG MAR. 06, 1974 17:54.55 00545/35 *FAKEOS *IGG019BO OE *IGG019BO D3.1T1 399 FAKEOS.*IGG019BO.OE.35 1 SEQ 608 1 PAGE UM YOUNG MAR. 06, 1974 17:54.58 00545/36 *FAKEOS *IGG019FB OE *IGG019FB D3.1T1 400 FAKEOS.*IGG019FB.OE.36 1 SEQ 248 1 PAGE UM YOUNG MAR. 06, 1974 17:55.00 00545/37 *FAKEOS *IGG019FD OE *IGG019FD D3.1T1 401 FAKEOS.*IGG019FD.OE.37 1 SEQ 448 1 PAGE UM YOUNG MAR. 06, 1974 17:55.02 00545/38 *FAKEOS *IGG019FF OE *IGG019FF D3.1T1 402 FAKEOS.*IGG019FF.OE.38 1 SEQ 414 1 PAGE UM YOUNG MAR. 06, 1974 17:55.04 00545/39 *FAKEOS *IGG019FJ OE *IGG019FJ D3.1T1 403 FAKEOS.*IGG019FJ.OE.39 1 SEQ 296 1 PAGE UM YOUNG MAR. 06, 1974 17:55.07 00545/40 *FAKEOS *IGG019FG OE *IGG019FG D3.1T1 404 FAKEOS.*IGG019FG.OE.40 1 SEQ 504 1 PAGE UM YOUNG MAR. 06, 1974 17:55.09 00545/41 *FAKEOS *IGG019FL OE *IGG019FL D3.1T1 405 FAKEOS.*IGG019FL.OE.41 1 SEQ 560 1 PAGE UM YOUNG MAR. 06, 1974 17:55.11 00545/42 *FAKEOS *IGG019AL OE *IGG019AL D3.1T1 406 FAKEOS.*IGG019AL.OE.42 1 SEQ 344 1 PAGE UM YOUNG MAR. 06, 1974 17:55.13 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00545/43 *FAKEOS *IECQBFG1 OE *IECQBFG1 D3.1T1 407 FAKEOS.*IECQBFG1.OE.43 1 SEQ 232 1 PAGE UM YOUNG MAR. 06, 1974 17:55.16 00545/44 *FAKEOS OLT.FOS.PFX SA G MTA:FAKEOS.PFX D3.2T1 459 FAKEOS.OLT.FOS.PFX.SA.44 1 LINE 73 13 PAGE UM MTA MAR. 21, 1975 01:50:46 0 THE FOLLOWING 5 COMPONENTS ARE THE SOURCE FOR A SPECIAL VERSION OF FAKEOS FOR USE WITH OLTS (458). IN ADDITION, THE FOLLOWING PARTS OF THE REGULAR *FAKEOS ARE USED: 545/17 - 545/21 AND 545/26 - 545/43. ALSO, 545/23 AND 545/24 ARE COMPATIBLE WITH THIS SPECIAL VERSION. COPIES FOS.GBLS (545/51), FOS.CVT (545/52), FOS.TCB (545/53), FOS.COMDSECT (545/54), AND FOS.COMMON (545/55). 00545/45 *FAKEOS OLT.FOS.MAIN SA G MTA:FAKEOS.MAIN D3.2T1 460 FAKEOS.OLT.FOS.MAIN.SA.45 1 LINE 77 61 PAGE UM MTA MAR. 21, 1975 01:50:49 0 COPIES COPY:GLOBALDEFS (1026/1), COPY:GLOBALSETS (1026/2), FOS.GBLS (545/51), COPY:LLMPSEQU (087), FOS.COMMON (545/55), FOS.COMDSECT (545/54), FOS.CVT (545/52), FOS.TCB (545/53), FOS.DSDSECT (545/56), FOS.EXCPXT (545/57), AND FOS.IOBD (545/60). ASSEMBLE WITH *SYSMAC AND *OSMAC. ***** NOTE: THIS COMPONENT MUST BE REASSEMBLED WHENEVER COPY:GLOBALSETS CHANGES. ***** IF NOT, IT WILL CAUSE SUPERDUMPS!!!! 00545/46 *FAKEOS OLT.FOS.JFCB SA G MTA:FAKEOS.JFCB D3.2T1 461 FAKEOS.OLT.FOS.JFCB.SA.46 1 LINE 71 1 PAGE UM MTA MAR. 21, 1975 01:51:03 0 COPIES FOS.JFCBD (545/58). 00545/47 *FAKEOS OLT.FOS.EXCP SA G MTA:FOS.EXCPOLTS D3.2T1 462 FAKEOS.OLT.FOS.EXCP.SA.47 1 LINE 69 4 PAGE UM MTA MAR. 21, 1975 01:51:05 0 COPIES FOS.DEBD (545/59), FOS.UCBD (545/62), FOS.IOBD (545/60), FOS.OCBD (545/61), FOS.COMMON (545/55), AND FOS.COMDSECT (545/54). NOTE: THIS IS NOT A REPLACEMENT FOR THE OTHER EXCP ROUTINE (545/20). THIS ROUTINE PERFORMS ON UNRELATED FUNCTION. 00545/48 *FAKEOS OLT.FOS.SVC59 SA G MTA:FOS.SVC59 D3.2T1 463 FAKEOS.OLT.FOS.SVC59.SA.48 1 LINE 70 5 PAGE UM MTA MAR. 21, 1975 01:51:08 0 COPIES *CNFGINFODSECT (654), FOS.COMMON (545/55), FOS.UCBD (545/62), AND FOS.COMDSECT (545/54). 00545/49 *FAKEOS OLT.FOS.OBJECT OC G MTA:FAKEOS D3.2T1 464 FAKEOS.OLT.FOS.OBJECT.OC.49 1 LINE 80 27 PAGE UM MTA MAR. 21, 1975 01:51:10 0 370 OBJECT FOR SPECIAL OLTS VERSION OF FAKEOS. ***** NOTE: DO NOT USE THIS OBJECT ON A 360/67. SEE 545/45 COMMENTS. ***** 00545/50 *FAKEOS OLT.FOS.MSG M MTA:FAKEOS.MSG D3.2T1 465 FAKEOS.OLT.FOS.MSG.M.50 1 LINE 62 1 PAGE UM MTA MAR. 21, 1975 01:51:12 0 MESSAGE FILE FOR OLTS VERSION OF FAKEOS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00545/51 *FAKEOS OLT.FOS.GBLS SA G MTA:FOS.GBLS D3.2T1 466 FAKEOS.OLT.FOS.GBLS.SA.51 1 LINE 67 1 PAGE UM MTA MAR. 21, 1975 01:51:15 0 THE FOLLOWING 12 COMPONENTS ARE COPY SECTIONS FOR THE SPECIAL OLTS VERSION OF FAKEOS. 0 Referenced by comments of: 545/44, 545/45 00545/52 *FAKEOS OLT.FOS.CVT SA G MTA:FOS.CVT D3.2T1 467 FAKEOS.OLT.FOS.CVT.SA.52 1 LINE 57 1 PAGE UM MTA MAR. 21, 1975 01:51:17 0 Referenced by comments of: 545/44, 545/45 00545/53 *FAKEOS OLT.FOS.TCB SA G MTA:FOS.TCB D3.2T1 468 FAKEOS.OLT.FOS.TCB.SA.53 1 LINE 62 1 PAGE UM MTA MAR. 21, 1975 01:51:20 0 Referenced by comments of: 545/44, 545/45 00545/54 *FAKEOS OLT.FOS.COMDCT SA G MTA:FOS.COMDSECT D3.2T1 469 FAKEOS.OLT.FOS.COMDCT.SA.54 1 LINE 71 3 PAGE UM MTA MAR. 21, 1975 01:51:22 0 Referenced by comments of: 545/44, 545/45, 545/47, 545/48 00545/55 *FAKEOS OLT.FOS.COMMON SA G MTA:FOS.COMMON D3.2T1 470 FAKEOS.OLT.FOS.COMMON.SA.55 1 LINE 69 1 PAGE UM MTA MAR. 21, 1975 01:51:24 0 Referenced by comments of: 545/44, 545/45, 545/47, 545/48 00545/56 *FAKEOS OLT.FOS.DSDSCT SA G MTA:FOS.DSDSECT D3.2T1 471 FAKEOS.OLT.FOS.DSDSCT.SA.56 1 LINE 72 1 PAGE UM MTA MAR. 21, 1975 01:51:27 0 Referenced by comments of: 545/45 00545/57 *FAKEOS OLT.FOS.EXCPXT SA G MTA:FOS.EXCPXT D3.2T1 472 FAKEOS.OLT.FOS.EXCPXT.SA.57 1 LINE 59 1 PAGE UM MTA MAR. 21, 1975 01:51:29 0 Referenced by comments of: 545/45 00545/58 *FAKEOS OLT.FOS.JFCBD SA G MTA:FOS.JFCBD D3.2T1 473 FAKEOS.OLT.FOS.JFCBD.SA.58 1 LINE 70 1 PAGE UM MTA MAR. 21, 1975 01:51:32 0 Referenced by comments of: 545/46 00545/59 *FAKEOS OLT.FOS.DEBD SA G MTA:FOS.DEBD D3.2T1 474 FAKEOS.OLT.FOS.DEBD.SA.59 1 LINE 62 1 PAGE UM MTA MAR. 21, 1975 01:51:34 0 Referenced by comments of: 545/47 00545/60 *FAKEOS OLT.FOS.IOBD SA G MTA:FOS.IOBD D3.2T1 475 FAKEOS.OLT.FOS.IOBD.SA.60 1 LINE 71 1 PAGE UM MTA MAR. 21, 1975 01:51:37 0 Referenced by comments of: 545/45, 545/47 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00545/61 *FAKEOS OLT.FOS.OCBD SA G MTA:FOS.OCBD D3.2T1 476 FAKEOS.OLT.FOS.OCBD.SA.61 1 LINE 72 1 PAGE UM MTA MAR. 21, 1975 01:51:39 0 Referenced by comments of: 545/47 00545/62 *FAKEOS OLT.FOS.UCBD SA G MTA:FOS.UCBD D3.2T1 477 FAKEOS.OLT.FOS.UCBD.SA.62 1 LINE 66 1 PAGE UM MTA MAR. 21, 1975 01:51:41 0 Referenced by comments of: 545/47, 545/48 00546/01 *VALIDATEFILE SA G VALD RSTR:VALIDATEFILE(1000) D3T4 262 VALIDATEFILE..SA.1 1 LINE 80 14 PAGE UM BERSTIS AUG. 01, 1973 23:04.41 0 PROGRAM TO VALIDATE LINE FILES FOR CONSISTENCY. CAN BE USED (BY USERS) AFTER A SYSTEM CRASH DURING WHICH A FILE WAS OPEN. PROMPTS FOR INPUT. COPIES COPY:FCBEQU (482/27). 00546/02 *VALIDATEFILE OE G *VALIDATEFILE D3T4 263 VALIDATEFILE..OC.2 1 SEQ 8192 3 PAGE UM BERSTIS AUG. 01, 1973 23:04.47 00547 *FOREVER D *FOREVER D3T4 264 FOREVER..D. 1 LINE 51 3 PAGE UM MTA AUG. 01, 1973 23:04.52 0 A FILE CONTAINING ABOUT 300 LINES OF JUNK, ENDING WITH "$CONTINUE WITH *FOREVER" SO THAT IT APPEARS TO CONTAIN EVEN MORE. 00548/01 *FS SA G FS00 MTS:FS.S D3.2T1 478 FS..SA.01 1 LINE 80 128 PAGE UBC MTA MAR. 21, 1975 01:51:44 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. COPIES COPY:DRDSECT (461/12). ASSEMBLE USING *SYSMAC. CALLS SNIFF SUBROUTINE (548/2). SEVERAL BUGS FIXED SINCE D3. 0 Referenced by comments of: 549/1 00548/02 *FS SNIFF SUBR SA G SNIF MTS:FS.SNIFF(1,999) D3.2T1 479 FS.SNIFF_SUBR.SA.02 1 LINE 80 5 PAGE UBC MTA MAR. 21, 1975 01:52:08 0 SUBROUTINE TO DETERMINE THE AMOUNT OF SPACE REQUIRED BY A FILE. CALLED BY *FS. COPIES *GFINFODSECT (593). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 548/1 00548/03 *FS OE G *FS D3.2T1 480 FS..OE.03 1 SEQ 32480 11 PAGE UBC MTA MAR. 21, 1975 01:52:09 00549/01 *FSCON SA G FSCN MTS:FSCON.S(1,1449) D3T4 268 FSCON..SA.1 1 LINE 80 32 PAGE UM MTA AUG. 01, 1973 23:05.15 0 PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT. NO LONGER REQUIRES THE FSZ SUBROUTINE. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00549/02 *FSCON OE G *FSCON D3T4 269 FSCON..OE.2 1 SEQ 8116 3 PAGE UM MTA AUG. 01, 1973 23:05.27 00550 *FSCOPY # (OBSOLETED BY 548) D3T4 270 FSCOPY..SA.1 1 LINE 80 30 PAGE UBC AUG. 01, 1973 23:05.32 00551/01 *FTN SA G FTN0 S0579 SAVE 'JWS-SAVE' FSNAME=FTN.S D3T4 276 FTN.FTNH_VERSION.SA.5 1 LINE 80 64 PAGE UM JWS AUG. 01, 1973 23:06.26 0 THIS VERSION OF *FTN INCLUDES SUPPORT FOR INTERFACING TO FORTRAN H (298). THERE ARE 3 REFERENCES TO PUBLIC FILES IN THIS VERSION: AT X'000F38' (ESID 01), THERE IS A REFERENCE TO THE FILE CONTAINING THE 'TEST' VERSION OF FORTRAN G (*FTNGTEST), AT X'000F18' (ESID 01) TO THE FILE CONTAINING FORTRAN H (*FORTRANH), AND AT X'000F28 (ESID 01) TO THE FILE CONTAINING FORTRAN G (*FORTRANG). 0 Referenced by comments of: 298/1 00551/02 *FTN OC G *FTN D3T4 277 FTN.FTNH_VERSION.OC.6 1 LINE 80 6 PAGE UM JWS AUG. 01, 1973 23:06.36 00552/01 GASP *GASP SF G GASP W020:GASPSOURCE D3T4 279 GASP.*GASP.S.1 1 LINE 80 29 PAGE UM FLANIGAN AUG. 01, 1973 23:06.58 0 FTN SOURCE FOR GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION. NOTE: SOURCE CONTAINS MANY "$CONTINUE WITH *GASPCOM RETURN" LINES. 00552/02 GASP *GASP SA G GASP W020:GASP.ASMB(1,14) UM FLANIGAN 0 ASMG SOURCE FOR GASP ERROR EXIT ROUTINE. 00552/03 GASP *GASP OL G *GASP D3T4 280 GASP.*GASP.OL.2 1 SEQ 6930 15 PAGE UM FLANIGAN AUG. 01, 1973 23:07.04 0 DIR FORMAT OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN 552/1. 00552/04 GASP *GASPCOM SF G GPCM *GASPCOM(0,7) D3T4 281 GASP.*GASPCOM.SF.3 1 LINE 80 1 PAGE UM FLANIGAN AUG. 01, 1973 23:07.09 00552/05 GASP WRITEUP WF G W098:KDM246 24 D3.1T1 408 GASP.WRITEUP.WF.4 1 LINE 127 11 PAGE UM FLANIGAN MAR. 06, 1974 22:00.56 0 THIS IS COMPUTING CENTER MEMO M246 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM" 00552/06 GASP INTERNAL DESC P G W020:GASPINFO(1,1488) D3T4 283 GASP.INTERNAL_DESC.P.5 1 LINE 80 27 PAGE UM FLANIGAN AUG. 01, 1973 23:07.29 0 DESCRIPTION OF THE INTERNALS OF GASP. 00553/01 NETWORK CLS SA G NETC WSG:NET D3T4 284 MERIT_NETWORK_CLS..SA.1 1 LINE 80 24 PAGE UM WSG AUG. 01, 1973 23:07.34 0 COMMAND LANGUAGE SUB-SYSTEM FOR MERIT COMPUTER NETWORK ($NET COMMAND). DESCRIBED IN "MERIT NETWORK USER'S GUIDE" IN MTS VOLUME 4. COPIES COPY:CLSVECTOR (535/2) AND COPY:CLSPLAN (535/1). 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00553/02 NETWORK CLS OC G *CLSNET D3T4 285 MERIT_NETWORK_CLS..OC.2 1 LINE 80 3 PAGE UM WSG AUG. 01, 1973 23:07.40 0 THIS FILE IS LOADED INTO SHARED VM BY PISTLE (559) AFTER IPL. 00554/01 TABLMOD JOB PROGRAM SA G TBJP W045:TABLMOD D3.2T1 481 TABLMOD.JOB_PROGRAM.SA.01 1 LINE 80 27 PAGE UM PIRKOLA MAR. 21, 1975 01:52:11 0 UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE SHARED OPEN 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 # OPEN FILES,#MATRIX COMPUTATIONS,#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 DUMP COMMAND. LOCATE PRINTS THE HALF-WORD OFFSET INTO THE IN-CORE TABLE FOR THE ENTRY ASSOCIATED WITH A PARTICULAR FILE ("LOCATE FILE FNAME"). CLEAN TAKES THE SPECIFIED JOB ("CLEAN JOB N") OFF ALL OPEN OR LOCKED AND WAITING LISTS. CLEANF SAME AS "CLEAN" EXCEPT FOR ONE FILE ONLY ("CLEANF JOB N FILE FNAME"). DEQ TAKES THE SPECIFIED JOB ("DEQ JOB N") OFF ALL WAITING LISTS. DEQF SAME AS "DEQ" EXCEPT FOR ONE FILE ONLY ("DEQF JOB N FILE FNAME"). THE TABLMOD PROGRAM TERMINATES WHEN AN END-OF-FILE IS ENTERED. COPIES COPY:ICEQU (482/29), COPY:GLOBALS (1026/4), AND COPY:LLMPSEQU (087). ASSEMBLE THIS STARTING AT LINE 1. 0 Referenced by comments of: 554/3 00554/02 TABLMOD TABLMOD JOB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00554/03 TABLMOD MTS PROGRAM SA G # (SAME AS COMP 554/1) D3.1T1 410 TABLMOD.MTS_PROGRAM.SA.3 1 LINE 80 14 PAGE UM PIRKOLA MAR. 06, 1974 22:01.08 0 MTS PROGRAM TO ALLOW SYSTEM PROGRAMMERS TO INTERROGATE AND ALTER SYSTEM-WIDE SHARED FILE TABLE. TAKES SAME COMMANDS AS TABLMOD JOB (554/1) AS WELL AS A "DUMP" COMMAND TO DUMP THE WHOLE SHARED FILE TABLE. IT CALL SDUMP TO ACCOMPLISH THIS. COPIES COPY:ICEQU (482/29), COPY:GLOBALS (1026/4), AND COPY:LLMPSEQU (087). ASSEMBLE THIS STARTING AT LINE 0. IT HAS A "$CONTINUE WITH TABLMOD(2)" TO INCLUDE THOSE THINGS NECESSARY FOR THE MTS PROGRAM. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00554/04 TABLMOD MTS PROGRAM OC G W045:TABLMODMP.O D3.2T1 482 TABLMOD.MTS_PROGRAM.OC.04 1 LINE 80 4 PAGE UM PIRKOLA MAR. 21, 1975 01:52:19 00555/01 MESSAGE MANUAL PGM SS MTS:MESSAGEPGM D3T4 289 MESSAGE_MANUAL.PGM.SS.1 1 LINE 63 2 PAGE UM DWB AUG. 01, 1973 23:08.01 0 SNOBOL PROGRAM TO PRODUCE MESSAGE MANUAL FROM DATA IN 555/2. RUN AS FOLLOWS: $RUN *SPITBOL SCARDS=MESSAGEPGM 5=MESSAGEDATA SPUNCH=PRINTOUT OR $RUN *SNOBOL4 5=MESSAGEPGM+MESSAGEDATA 7=PRINTOUT THE PRINTOUT CONSISTS OF USER MESSAGES (ALPHABETICAL) AND OPERATOR MESSAGES (ALPHABETICAL). 0 Referenced by comments of: 592/1 00555/02 MESSAGE MANUAL DATA M MTS:MESSAGEDATA D3T4 290 MESSAGE_MANUAL.DATA.M.2 1 LINE 107 13 PAGE UM DWB AUG. 01, 1973 23:08.06 0 A DATA FILE DESCRIBING THE VARIOUS SYSTEM MESSAGES. THE FORMAT OF THE FILE IS AS FOLLOWS: 1. LOCATION OF MESSAGES A) MTS "FMSG" MESSAGES ARE FOUND STARTING AT THE LINE NUMBER WHICH IS THE FMSG NUMBER. B) MTS "CMSG" MESSAGES START AT LINE 2000. C) OTHER MESSAGES START AT LINE 3000. 2. FORMAT OF LINES A GROUP OF CONSECTIVE LINES IN THE FILE HAS INFORMATION ABOUT A GIVEN MESSAGE. THE FIRST LINE SPECIFIES THE MESSAGE TEXT, WHILE SUCCEEDING LINES IN THE GROUP INDENTIFY THE DESTINATION, SOURCE, AND MEANING. EACH LINE IS IDENTIFIED BY ITS LEADING CHARACTERS, WHICH MUST BE UPPERCASE; THE TEXT OF MESSAGES MAY BE OF MIXED CASE. THE FOLLOWING LINE FORMATS ARE SPECIFIED: A) MESSAGE LINE BEGINS WITH "## "; MESSAGE, STARTING IN COLUMN 4, IN UPPER CASE EXCEPT FOR GENERIC QUANTITIES WHICH ARE LOWER CASE. B) DESTINATION OF MESSAGE BEGINS WITH " DEST OPER" IF OPERATOR MESSAGE; NO DESTINATION LINE IF NORMAL MESSAGE. C) LOCATION OF MESSAGE TEXT BEGINS WITH " ERROR "; ERROR NAME STARTING IN COLUMN 8, SUCH AS FSMG 21. D) WHO ISSUED MESSAGE (MAY BE SEVERAL OF THESE IN A GROUP) BEGINS WITH " SOURCE "; INFORMATION STARTING IN COLUMN 9: COMPONENT NAME, COMPONENT NUMBER, LABEL, SEQUENCE ID. FOR EXAMPLE, SOURCE MTS,42,LINNBR,M0212800 E) EXPLANATION OF MESSAGE (AS MANY LINES AS NEEDED) BEGINS WITH 3 BLANKS; TEXT STARTING IN COLUMN 4. SINCE THIS MESSAGE MANUAL WAS DEVELOPED SPECIFICALLY FOR THIS MTS DISTRIBUTION, IT IS CURRENTLY SOMEWHAT THIN AND OFTEN NON-EXISTENT. SO FAR, THE MESSAGE MANUAL INCLUDES MESSAGES FROM MTS, MTS SUBR, PERMIT COMMAND, AND FILESTATUS COMMAND. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00556/01 *REDUCE2 MTS MASTER S G WATF:RDC2SOU D3T4 291 REDUCE2.MTS_MASTER.S.1 1 LINE 80 124 PAGE UM MTA AUG. 01, 1973 23:08.11 0 REDUCE 2 IS A LISP 1.5 PROGRAM DESIGNED FOR GENERAL ALGEBRAIC COMPUTATIONS. THIS IS THE OS/360 VERSION OF REDUCE2 MODIFIED TO RUN IN MTS. THE LISP COMPILER IS EXPECTED TO BE IN THE FILE "COMPILE" UNDER THE USER ID COMPILING REDUCE2. 0 Referenced by comments of: 210/1, 556/3 00556/02 *REDUCE2 OS SOURCE S G WATF:RDC2OV303 D3T4 292 REDUCE2.OS_SOURCE.S.2 1 LINE 80 124 PAGE UM MTA AUG. 01, 1973 23:08.31 0 OS/360 SOURCE FOR REDUCE2 (VERSION NOV 30, 1973). 0 Referenced by comments of: 556/3 00556/03 *REDUCE2 UPDATE UU G WATF:RDC2UPD D3T4 293 REDUCE2.UPDATE.UU.3 1 LINE 79 3 PAGE UM MTA AUG. 01, 1973 23:08.57 0 UPDATE DECK TO CONVERT OS/360 SOURCE (556/2) TO MTS VERSION (556/1). 00556/04 *REDUCE2 CHKPOINT O G ETC:RDC2.CKPT D3T4 294 REDUCE2.CHKPOINT.O.4 1 LINE 80 83 PAGE UM MTA AUG. 01, 1973 23:09.02 0 FILE IN LISP OBJECT FORMAT CONTAINING CHECKPOINT OF REDUCE2. THIS FILE IS REFERENCED BY *REDUCE2. 00556/05 *REDUCE2 *REDUCE2 C *REDUCE2 D3T4 295 REDUCE2.*REDUCE2.C.5 1 LINE 40 1 PAGE UM MTA AUG. 01, 1973 23:09.15 0 FILE TO WHICH USERS $SOURCE TO INVOKE REDUCE2. IT RUNS THE REDUCE VERSION OF LISP AND THEN LOADS THE REDUCE2 CHECKPOINT. 00556/06 *REDUCE2 UPDCOMP C WATF:RDC2JOB UM MTA 0 COMMANDS TO UPDATE AND COMPILE REDUCE2. 00556/07 *REDUCE2 EXAMPLE S WATF:RDC2TEST D3T4 296 REDUCE2.EXAMPLE.S.6 1 LINE 82 6 PAGE UM MTA AUG. 01, 1973 23:09.19 0 EXAMPLE OF REDUCE2 INPUT. 00556/08 *REDUCE2 LISP OS/MAS SA G S0736 REDUCE 2 D3T2 42 LISP.OS_MASTER.SA.2 1 SEQ 3200 96 PAGE UM MTA JULY 31, 1973 21:16.33 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/9 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00556/09 *REDUCE2 LISP UPDATE UU G WATF:LISPUPD D3T2 43 LISP.MTS_UPDATE.UU.3 1 LINE 72 20 PAGE UM MTA JULY 30, 1973 03:32.24 0 UPDATE TO GO FROM OS/360 SOURCE (556/8) TO MTS VERSION. 00556/10 *REDUCE2 LISP OBJECT OE G ETC:RDC2.LISP D3T2 44 LISP..OC.4 1 LINE 80 30 PAGE UM MTA JULY 31, 1973 21:17.03 00556/11 *REDUCE2 LISP COMPILER S G S0736 REDUCE 3 D3T2 45 LISP.*LISPCOM.S.5 1 SEQ 80 52 PAGE UM MTA JULY 31, 1973 21:17.08 0 LISP/360 COMPILER AND ASSEMBLY PROGRAM. FEED THIS FILE TO LISP AND CHECKPOINT THE RESULT. 00556/12 *REDUCE2 LISP COMPILER O G WATF:COMPILE D3T2 46 LISP.*LISPCOM.O.6 1 LINE 80 29 PAGE UM MTA JULY 31, 1973 21:17.18 0 CHECKPOINTED LISP/360 COMPILER AND ASSEMBLY PROGRAM. LISP OBJECT FORMAT. 00556/13 *REDUCE2 LISP DEBUG S O WATF:LISPBREAK D3T2 48 LISP.DEBUG_PACKAGE.S.8 1 LINE 97 3 PAGE UM MTA JULY 31, 1973 21:17.50 0 THIS PROGRAM (WRITTEN IN LISP) DEFINES TWO FUNCTIONS: BREAK AND UNBREAK. BREAK TAKES A LIST OF FUNCTION NAMES AND SETS A BREAKPOINT AT THE ENTRY AND EXIT TO EACH OF THEM. UNBREAK TAKES A LIST OF FUNCTION NAMES AND RESETS THE BREAKPOINT AT EACH. ALL FUNCTIONS MUST BE PREVIOUSLY DEFINED. BOTH BREAK AND UNBREAK ARE DEFINED AS FEXPR'S SO THAT THEIR ARGUMENTS ARE NOT EVALUATED. WHEN A FUNCTION WHICH HAS A BREAKPOINT SET IS CALLED, THE MESSAGE ">>> ENTERING NAME TYPE ARGS" IS TYPED, WHERE "NAME" IS THE NAME OF THE FUNCTION, "TYPE" IS SUBR, FSUBR, EXPR, OR FEXPR, AND "ARGS" ARE THE NAMES OF THE ARGUMENTS. WHEN THE FUNCTION EXITS, THE MESSAGE ">>> EXITING NAME" IS TYPED. BOTH MESSAGES ARE FOLLOWED BY THE MESSAGE "LISTENING" AND LINES ARE READ AND PASSED TO EVAL UNTIL "T" IS ENTERED. THE ATOM "VALUE" WILL BE BOUND TO THE RESULT OF THE FUNCTION ON EXIT, AND THE ARGUMENTS WILL BE BOUND BOTH TIMES. CONDITIONAL BREAKPOINTS MAY BE SET BY MAKING ONE OF THE ARGUMENTS OF BREAK A LIST. CAR OF THE LIST IS THE NAME OF THE FUNCTION AND CADR OF THE LIST IS A CONDITION WHICH MUST BE TRUE FOR THE BREAKPOINT TO OCCUR. THE CONDITION IS TESTED WHEN THE FUNCTION IS CALLED. EXAMPLE: BREAK (FN (FN2 (EQ ARG1 1))) WILL ALWAYS BREAK AT FUNCTION FN AND BREAK AT FN2 IF ARG1 IS 1 (ASSUMING ARG1 IS THE FIRST ARGUMENT OF FN2). 00557/01 FLOATEST SA O FLOT MTS:FLOATEST D3T4 299 FLOATEST..SA.1 1 LINE 80 4 PAGE UM DWB AUG. 01, 1973 23:09.34 0 PROGRAM TO TEST THAT FLOATING-POINT REGISTERS AND PROGRAM MASK ARE PRESERVED ACROSS ABNORMAL PROGRAM EXITS. DESIGNED TO BE RUN BOTH BY $RUN COMMAND AND UNDER CONTROL OF SDS ($DEBUG OR $SET DEBUG=ON AND $RUN). 00557/02 FLOATEST OC O MTS:FLOATEST.O D3T4 300 FLOATEST..OC.2 1 LINE 80 3 PAGE UM DWB AUG. 01, 1973 23:09.39 00558/01 VIRTUAL MACHINE MAIN PGM SA G VMNS MTA:VMN.S D3.2T1 483 VIRTUAL_MACHINE.MAIN_PGM.SA.01 1 LINE 80 124 PAGE UM MTA MAR. 21, 1975 01:52:21 0 PROGRAM TO PROVIDE A SYSTEM/360 OR SYSTEM/370 VIRTUAL MACHINE. 1 FRI AUG 02/96 19:04:25 Page 201 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 WITH *SYSMAC. 0 Referenced by comments of: 472/1 00558/02 VIRTUAL MACHINE V370 SUPPORT SA G V370 MTA:V370.S D3.2T1 484 VIRTUAL_MACHINE.V370_SUPPO.SA.02 1 LINE 80 16 PAGE UM MTA MAR. 21, 1975 01:52:44 0 COPY SECTION CONTAINING THE 370 INSTRUCTION SIMULATION CODE. 0 Referenced by comments of: 558/1 00558/03 VIRTUAL MACHINE 3066 SUPPORT SA G 3066 MTA:OC.S D3.2T1 485 VIRTUAL_MACHINE.3066_SUPPO.SA.03 1 LINE 80 9 PAGE UM MTA MAR. 21, 1975 01:52:46 0 COPY SECTION CONTAINING THE 3066 SIMULATION CODE. 0 Referenced by comments of: 558/1 00558/04 VIRTUAL MACHINE 2301 SUPPORT SA G 2301 MTA:S2301 D3.2T1 486 VIRTUAL_MACHINE.2301_SUPPO.SA.04 1 LINE 80 9 PAGE UM MTA MAR. 21, 1975 01:52:48 0 COPY SECTION CONTAINING VIRTUAL 2301 DRUM SUPPORT. THE DRUM IS SIMULATED USING VIRTUAL MEMORY. 0 Referenced by comments of: 558/1 00558/05 VIRTUAL MACHINE 168 DEV LIST SA G 168D MTA:V370DEV.UM(1,999) D3.2T1 487 VIRTUAL_MACHINE.168_DEV_LI.SA.05 1 LINE 80 3 PAGE UM MTA MAR. 21, 1975 01:52:51 0 SOURCE FOR UM 370/168 DEVICE LIST. 00558/06 VIRTUAL MACHINE 67 DEV LIST SA G V67D MTA:V67DEV.S D3T4 302 VIRTUAL_67.DEVICE_LIST.SA.2 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:10.01 0 SOURCE FOR UM 360/67 DEVICE LIST. 00558/07 VIRTUAL MACHINE 370 OBJECT OC G MTA:V370 D3.2T1 488 VIRTUAL_MACHINE.370_OBJECT.OC.07 1 LINE 80 17 PAGE UM MTA MAR. 21, 1975 01:52:54 0 OBJECT FOR UM VIRTUAL 370/168, I.E. 558/1 WITH Â&DUPLEX, Â&M67, Â&ST, AND &S370. 00558/08 VIRTUAL MACHINE 67 OBJECT OC G MTA:V67 D3.2T1 489 VIRTUAL_MACHINE.67_OBJECT.OC.08 1 LINE 80 15 PAGE UM MTA MAR. 21, 1975 01:52:56 0 OBJECT FOR UM VIRTUAL 360/67, I.E. 558/1 WITH &DUPLEX, &M67, Â&ST, AND Â&S370. 00558/09 VIRTUAL MACHINE WRITEUP P MTA:V67WRUP D3.1T1 414 VIRTUAL_67.WRITEUP.P.5 1 LINE 75 11 PAGE UM MTA MAR. 06, 1974 22:01.32 0 WRITEUP TO BE COPIED TO A TN PRINTER. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 0 NOTE: WRITEUP IS NOT UP TO DATE. 00559/01 PISTLE *S2L C G *S2L D3T4 306 SEGMENT_2_LOADER.*S2L.C.1 1 LINE 60 1 PAGE UM DWB AUG. 01, 1973 23:10.21 0 COMMAND FILE TO RUN SEGMENT 2 LOADER, WHICH IS NOW KNOWN AS PISTLE (POST-IPL SYSTEM LOADER). NOTE: THE "SEGMENT 2 LOADER" NOW LOADS INTO SEGMENTS 1 AND 2 (SHARED VM). INVOKED BY INIT:INITCMD (097/2 OR 097/3) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN SEG2:S2FILES (559/4). 0 Referenced by comments of: 553/2 00559/02 PISTLE SA G PIST W009:PISTLE.S D3.2T1 490 PISTLE_..SA.02 1 LINE 80 21 PAGE UM DE JONG MAR. 21, 1975 01:52:59 0 PROGRAM TO LOAD THINGS INTO UNUSED AREA AT THE END OF SHARED VM. READS A LIST OF FILE NAMES (NORMALLY SEG2:S2FILES) FROM SCARDS WHICH CONTAIN THE OBJECT DECKS TO BE LOADED. EACH FILE MUST BEGIN WITH A LOADER "COM" CARD ON WHICH ENTRY POINT(S) TO THE MODULES IN THAT FILE ARE GIVEN. THESE NAMES WILL BE ADDED TO LCSYMBOL WHEN THE LOADER FINISHES. IF PAR=NOTEST IS NOT GIVEN, THE LOADER LOADS INTO PRIVATE VM AND DOES NOT CHANGE LCSYMBOL. ORIGINALLY FROM UBC, THIS PROGRAM HAS BEEN MODIFIED FOR NEW LOADER INTERFACE AND TO NOT DIE ON THE FIRST ERROR. THIS PROGRAM ALLOWS PARAMETERS TO BE GIVEN AFTER THE FILE NAME ON INPUT LINES FROM SCARDS. ALLOWABLE PARAMETERS ARE: IPL USE LOADER TABLES GENERATED BY BSLOAD. NOMAP SUPPRESS PRINTING OF MAP FOR THE LOADING OF THIS COMPONENT. NN SPECIFY STORAGE INDEX NUMBER TO BE USED FOR LOADING THIS COMPONENT. THESE PARAMETERS ARE FULLY DESCRIBED IN THE PISTLE WRITEUP (559/5). 00559/03 PISTLE OC G SEG2:S2L D3.2T1 491 PISTLE_..OC.03 1 SEQ 80 2 PAGE UM DE JONG MAR. 21, 1975 01:53:07 00559/04 PISTLE FILE LIST D G SEG2:S2FILES D3.1T1 417 PISTLE_.FILE.D.4 1 LINE 15 1 PAGE UM DWB MAR. 06, 1974 22:01.49 0 A LIST OF FILES FROM WHICH THE SEGMENT 2 LOADER WILL LOAD PROGRAMS AT IPL, I.E. WHEN INVOKED BY *S2L. 0 Referenced by comments of: 559/1 00559/05 PISTLE WRITEUP WF W009:PISTLE.W D3.1T1 418 PISTLE_.WRIT.WF.5 1 LINE 93 3 PAGE UM DE JONG MAR. 06, 1974 22:01.52 0 Referenced by comments of: 559/2 00560 *TYPEIT C *TYPEIT D3T4 311 TYPEIT..C. 1 LINE 64 1 PAGE UM LIFT AUG. 01, 1973 23:10.49 0 A FILE WHICH CAN BE $SOURCED TO WHICH AIDS THE UM SECRETARIAL STAFF IN THE PREPARATION OF MATERIAL PRODUCED IN *FORMAT (308). WE HAVE ATTEMPTED TO DISTRIBUTE ALL *FORMAT MACHINE-READABLE DOCUMENTATION IN THE FORM OF DIRECT INPUT TO *FORMAT AND NOT IN THE FORM USED WITH *TYPEIT. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00561/01 *UNEDIT SA G UNED WATF:UNEDIT(1,999) D3T4 312 UNEDIT..SA.1 1 LINE 80 10 PAGE UM MTA AUG. 01, 1973 23:10.55 0 PROGRAM TO COMPARE THE CURRENT VERSION OF A LINE FILE WITH A PREVIOUS VERSION AND PRODUCE THE APPROPRIATE MTS EDITOR COMMANDS FOR TRANSFORMING THE OLD VERSION TO THE NEW, I.E. THIS PROGRAM PRODUCES AN "UPDATE" DECK WHICH IS IN EDITOR FORMAT RATHER THAN *UPDATE FORMAT. CALL SCANPAR SUBROUTINE (267/3). 0 Referenced by comments of: 267/3 00561/02 *UNEDIT OE G *UNEDIT D3T4 313 UNEDIT..OE.2 1 SEQ 2124 1 PAGE UM MTA AUG. 01, 1973 23:11.03 00562/01 *UNLINKER SA G W062:NEW.UNLINK D3T4 314 UNLINKER..SA.1 1 LINE 80 28 PAGE UM TIFFANY AUG. 01, 1973 23:11.08 0 PROGRAM TO CHANGE OS/360 LOAD MODULES INTO MTS OBJECT DECKS. CALLS BLKRTN SUBROUTINE (SEE 291) FOR INPUT. 0 Referenced by comments of: 291/1, 291/3, 340/1 00562/02 *UNLINKER OC G W062:UNLINK D3T4 315 UNLINKER..OE.2 1 SEQ 5664 2 PAGE UM TIFFANY AUG. 01, 1973 23:11.14 00563/01 CHAR MANIP SUBRS BTD SA BTD0 S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.BTD.SA.1 316 D3T4 316 CHAR_MANIP_SUBRS.BTD.SA.1 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.19 0 THESE ARE THE UBC CHARACTER MANIPULATION SUBROUTINES. 00563/02 CHAR MANIP SUBRS LCOMC/COMC SA COMC S0780 'D3.1T1' FSNAME=CHAR_MANIP_SUBRS.LCOMC/COM.SA.2 419 D3.1T1 419 CHAR_MANIP_SUBRS.LCOMC/COM.SA.2 1 LINE 80 3 PAGE UBC GOODRICH MAR. 06, 1974 22:01.54 00563/03 CHAR MANIP SUBRS DTB SA DTB0 S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.DTB.SA.3 318 D3T4 318 CHAR_MANIP_SUBRS.DTB.SA.3 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.29 00563/04 CHAR MANIP SUBRS FINDC SA FINC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDC.SA.4 319 D3T4 319 CHAR_MANIP_SUBRS.FINDC.SA.4 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.35 00563/05 CHAR MANIP SUBRS FINDST SA FINS S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.FINDST.SA.5 320 D3T4 320 CHAR_MANIP_SUBRS.FINDST.SA.5 1 LINE 80 4 PAGE UBC GOODRICH AUG. 01, 1973 23:11.40 00563/06 CHAR MANIP SUBRS IGC SA IGC0 S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.IGC.SA.6 321 D3T4 321 CHAR_MANIP_SUBRS.IGC.SA.6 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.45 00563/07 CHAR MANIP SUBRS MOVEC SA MOVC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.MOVEC.SA.7 322 D3T4 322 CHAR_MANIP_SUBRS.MOVEC.SA.7 1 LINE 80 1 PAGE UBC GOODRICH AUG. 01, 1973 23:11.51 00563/08 CHAR MANIP SUBRS SETC SA SETC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.SETC.SA.8 323 D3T4 323 CHAR_MANIP_SUBRS.SETC.SA.8 1 LINE 80 1 PAGE UBC GOODRICH AUG. 01, 1973 23:11.58 00563/09 CHAR MANIP SUBRS TRNC SA TRNC S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNC.SA.9 324 D3T4 324 CHAR_MANIP_SUBRS.TRNC.SA.9 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:12.02 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00563/10 CHAR MANIP SUBRS TRNST SA TRNS S0723 'D3T4' FSNAME=CHAR_MANIP_SUBRS.TRNST.SA.10 325 D3T4 325 CHAR_MANIP_SUBRS.TRNST.SA.10 1 LINE 80 4 PAGE UBC GOODRICH AUG. 01, 1973 23:12.07 00563/11 CHAR MANIP SUBRS EQUC SA EQUC S0780 'D3.1T1' FSNAME=CHAR_MANIP_SUBRS.EQUC.SA.11 420 D3.1T1 420 CHAR_MANIP_SUBRS.EQUC.SA.11 1 LINE 80 1 PAGE UBC GOODRICH MAR. 06, 1974 22:01.57 00563/12 CHAR MANIP SUBRS OBJECT OC # *LIBRARY (SEE COMP 524) UM GOODRICH 00564/01 SYMBOL XREF PROGRAM SA G SSXR MTA:SSXREF(1,999) D3T4 327 SYMBOL_XREF_PROGRAM..SA.1 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:12.18 0 PROGRAM READS ASSEMBLY SOURCE PROGRAMS FROM SCARDS AND WRITES EACH LINE WHICH CONTAINS A SEQUENCE OR SET SYMBOL ON SPUNCH WITH THE SYMBOL PREFIXED TO THE BEGINNING OF THE LINE (FOR SORTING). ASSEMBLE WITH *SYSMAC. 00564/02 SYMBOL XREF PROGRAM OC G MTA:SSXREF(1000) D3T4 328 SYMBOL_XREF_PROGRAM..OC.2 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:12.23 00565/01 STOR PROTECT DIAGNOSTIC SA G PROT S0723 'D3T4' FSNAME=STOR_PROTECT_DIAGNOSTIC..SA.1 329 D3T4 329 STOR_PROTECT_DIAGNOSTIC..SA.1 1 LINE 80 5 PAGE UM MTA AUG. 01, 1973 23:12.29 0 HARDWARE STORAGE PROTECT DIAGNOSTIC TO TEST ALL OF CORE ABOVE X'1000'. PSW RESTART WILL RERUN THE TEST. ASSUMES A 1052 TYPEWRITER AT ADDRESS 009. IBM DOESN'T SEEM TO PROVIDE A DIAGNOSTIC TO PERFORM THE FUNCTIONS PROVIDED BY THIS PROGRAM. THE FOLLOWING ERRORS ARE REPORTED BY NUMBER ALONG WITH THE FAILING ADDRESS: 1. INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 10. 2. KEY NOT EQUAL TO 14 AFTER TEST 1. 3. NO INTERRUPT ON STORE WITH PSW KEY 2 AND STORAGE KEY 10. 4. KEY NOT EQUAL TO 16 AFTER TEST 3. 5. STORAGE CHANGED AFTER TEST 3 OR INTERRUPT LOOKING. 6. NO INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 18. 7. KEY NOT EQUAL TO 1C AFTER TEST 6. 8. INTERRUPT ON LOAD WITH PSW KEY 1 AND STORAGE KEY 18. 9. KEY NOT EQUAL TO 1C AFTER TEST 8. 10. INTERRUPT ON STORE WITH PSW KEY 1 AND STORAGE KEY 18. 11. STORAGE NOT CHANGED CORRECTLY AFTER TEST 10 OR INTERRUPT LOOKING. 12. KEY NOT EQUAL TO 1E AFTER TEST 10. 00565/02 STOR PROTECT DIAGNOSTIC OC G S0723 'D3T4' FSNAME=STOR_PROTECT_DIAGNOSTIC..OC.2 330 D3T4 330 STOR_PROTECT_DIAGNOSTIC..OC.2 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:12.34 0 NEEDS AN ABSOLUTE LOADER. IPL ON A REAL OR VIRTUAL MACHINE. 00566/01 *PIL/2 MACLIB SM G S0543 MTSPIL 'MTSPIL2' POSN=MACLIB 1 D3T4 331 PIL/2.MACLIB.SM.1 1 SEQ 80 14 PAGE UM TIFFANY AUG. 01, 1973 23:13.57 0 *PIL/2 IS A NEWER (AND MUCH BETTER) VERSION OF *PIL (COMP 178) THE PITTSBURGH INTERPRETIVE LANGUAGE. MACLIB IS THE ONLY MACRO LIBRARY USED IN ASSEMBLING *PIL/2. 0 Referenced by comments of: 178/1 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00566/02 *PIL/2 DSECT SA G S0543 MTSPIL 'MTSPIL2' POSN=DSECT 2 D3T4 332 PIL/2.DSECT.SA.2 1 SEQ 80 4 PAGE UM TIFFANY AUG. 01, 1973 23:14.00 0 COMPS 566/2 THROUGH 566/10 ARE COPY SECTIONS. 00566/03 *PIL/2 EQUS SA G S0543 MTSPIL 'MTSPIL2' POSN=EQUS 3 D3T4 333 PIL/2.EQUS.SA.3 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.04 00566/04 *PIL/2 EVOUTPUT SA G S0543 MTSPIL 'MTSPIL2' POSN=EVOUTPUT 4 D3T4 334 PIL/2.EVOUTPUT.SA.4 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.09 00566/05 *PIL/2 FORMDS SA G S0543 MTSPIL 'MTSPIL2' POSN=FORMDS 5 D3T4 335 PIL/2.FORMDS.SA.5 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.13 00566/06 *PIL/2 KEYCODES SA G S0543 MTSPIL 'MTSPIL2' POSN=KEYCODES 6 D3T4 336 PIL/2.KEYCODES.SA.6 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.18 00566/07 *PIL/2 PARTDS SA G S0543 MTSPIL 'MTSPIL2' POSN=PARTDS 7 D3T4 337 PIL/2.PARTDS.SA.7 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.23 00566/08 *PIL/2 SCRDS SA G S0543 MTSPIL 'MTSPIL2' POSN=SCRDS 8 D3T4 338 PIL/2.SCRDS.SA.8 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.28 00566/09 *PIL/2 STACKDS SA G S0543 MTSPIL 'MTSPIL2' POSN=STACKDS 9 D3T4 339 PIL/2.STACKDS.SA.9 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.33 00566/10 *PIL/2 STEPDS SA G S0543 MTSPIL 'MTSPIL2' POSN=STEPDS 10 D3T4 340 PIL/2.STEPDS.SA.10 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.37 00566/11 *PIL/2 PILL SA G S0543 MTSPIL 'MTSPIL2' POSN=PILL 11 D3T4 341 PIL/2.PILL.SA.11 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 23:14.42 0 COMPS 566/11 THROUGH 566/48 ARE THE ASMG SOURCE FOR *PIL/2. 00566/12 *PIL/2 READIT SA G S0543 MTSPIL 'MTSPIL2' POSN=READIT 12 D3T4 342 PIL/2.READIT.SA.12 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:14.47 00566/13 *PIL/2 TYPEIT SA G S0543 MTSPIL 'MTSPIL2' POSN=TYPEIT 13 D3T4 343 PIL/2.TYPEIT.SA.13 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:14.52 00566/14 *PIL/2 PAGEMSG SA G S0543 MTSPIL 'MTSPIL2' POSN=PAGEMSG 14 D3T4 344 PIL/2.PAGEMSG.SA.14 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:14.57 00566/15 *PIL/2 CANIT SA G S0543 MTSPIL 'MTSPIL2' POSN=CANIT 15 D3T4 345 PIL/2.CANIT.SA.15 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:15.01 00566/16 *PIL/2 PIL2 SA G S0543 MTSPIL 'MTSPIL2' POSN=PIL2 16 D3T4 346 PIL/2.PIL2.SA.16 1 SEQ 80 11 PAGE UM TIFFANY AUG. 01, 1973 23:15.07 00566/17 *PIL/2 DSBRK SA G S0543 MTSPIL 'MTSPIL2' POSN=DSBRK 17 D3T4 347 PIL/2.DSBRK.SA.17 1 SEQ 80 8 PAGE UM TIFFANY AUG. 01, 1973 23:15.11 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00566/18 *PIL/2 BKDOWN SA G S0543 MTSPIL 'MTSPIL2' POSN=BKDOWN 18 D3T4 348 PIL/2.BKDOWN.SA.18 1 SEQ 80 21 PAGE UM TIFFANY AUG. 01, 1973 23:15.17 00566/19 *PIL/2 FORMPROC SA G S0543 MTSPIL 'MTSPIL2' POSN=FORMPROC 19 D3T4 349 PIL/2.FORMPROC.SA.19 1 SEQ 80 44 PAGE UM TIFFANY AUG. 01, 1973 23:15.24 00566/20 *PIL/2 PILSQRT SA G S0543 MTSPIL 'MTSPIL2' POSN=PILSQRT 20 D3T4 350 PIL/2.PILSQRT.SA.20 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:15.28 00566/21 *PIL/2 PILATAN SA G S0543 MTSPIL 'MTSPIL2' POSN=PILATAN 21 D3T4 351 PIL/2.PILATAN.SA.21 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:15.33 00566/22 *PIL/2 PILSINE SA G S0543 MTSPIL 'MTSPIL2' POSN=PILSINE 22 D3T4 352 PIL/2.PILSINE.SA.22 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:15.38 00566/23 *PIL/2 PILLOGE SA G S0543 MTSPIL 'MTSPIL2' POSN=PILLOGE 23 D3T4 353 PIL/2.PILLOGE.SA.23 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:15.43 00566/24 *PIL/2 PILETX SA G S0543 MTSPIL 'MTSPIL2' POSN=PILETX 24 D3T4 354 PIL/2.PILETX.SA.24 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:15.48 00566/25 *PIL/2 LOOKPS SA G S0543 MTSPIL 'MTSPIL2' POSN=LOOKPS 25 D3T4 355 PIL/2.LOOKPS.SA.25 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:15.53 00566/26 *PIL/2 WANT16 SA G S0543 MTSPIL 'MTSPIL2' POSN=WANT16 26 D3T4 356 PIL/2.WANT16.SA.26 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:16.00 00566/27 *PIL/2 MOVPOL SA G S0543 MTSPIL 'MTSPIL2' POSN=MOVPOL 27 D3T4 357 PIL/2.MOVPOL.SA.27 1 SEQ 80 4 PAGE UM TIFFANY AUG. 01, 1973 23:16.02 00566/28 *PIL/2 FORTROL SA G S0543 MTSPIL 'MTSPIL2' POSN=FORTROL 28 D3T4 358 PIL/2.FORTROL.SA.28 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:16.07 00566/29 *PIL/2 RETHEAD SA G S0543 MTSPIL 'MTSPIL2' POSN=RETHEAD 29 D3T4 359 PIL/2.RETHEAD.SA.29 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 23:16.12 00566/30 *PIL/2 TALPL SA G S0543 MTSPIL 'MTSPIL2' POSN=TALPL 30 D3T4 360 PIL/2.TALPL.SA.30 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:16.17 00566/31 *PIL/2 CONVERT SA G S0543 MTSPIL 'MTSPIL2' POSN=CONVERT 31 D3T4 361 PIL/2.CONVERT.SA.31 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:16.22 00566/32 *PIL/2 STEPMESS SA G S0543 MTSPIL 'MTSPIL2' POSN=STEPMESS 32 D3T4 362 PIL/2.STEPMESS.SA.32 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:16.27 00566/33 *PIL/2 FUNCS SA G S0543 MTSPIL 'MTSPIL2' POSN=FUNCS 33 D3T4 363 PIL/2.FUNCS.SA.33 1 SEQ 80 30 PAGE UM TIFFANY AUG. 01, 1973 23:16.34 00566/34 *PIL/2 LOPL SA G S0543 MTSPIL 'MTSPIL2' POSN=LOPL 34 D3T4 364 PIL/2.LOPL.SA.34 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:16.37 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00566/35 *PIL/2 DELVALS SA G S0543 MTSPIL 'MTSPIL2' POSN=DELVALS 35 D3T4 365 PIL/2.DELVALS.SA.35 1 SEQ 80 25 PAGE UM TIFFANY AUG. 01, 1973 23:16.45 00566/36 *PIL/2 XFORMX SA G S0543 MTSPIL 'MTSPIL2' POSN=XFORMX 36 D3T4 366 PIL/2.XFORMX.SA.36 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:16.48 00566/37 *PIL/2 EXTRANS SA G S0543 MTSPIL 'MTSPIL2' POSN=EXTRANS 37 D3T4 367 PIL/2.EXTRANS.SA.37 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:16.53 00566/38 *PIL/2 TYPEPS SA G S0543 MTSPIL 'MTSPIL2' POSN=TYPEPS 38 D3T4 368 PIL/2.TYPEPS.SA.38 1 SEQ 80 15 PAGE UM TIFFANY AUG. 01, 1973 23:16.59 00566/39 *PIL/2 XPRES SA G S0543 MTSPIL 'MTSPIL2' POSN=XPRES 39 D3T4 369 PIL/2.XPRES.SA.39 1 SEQ 80 19 PAGE UM TIFFANY AUG. 01, 1973 23:17.05 00566/40 *PIL/2 MINDIR SA G S0543 MTSPIL 'MTSPIL2' POSN=MINDIR 40 D3T4 370 PIL/2.MINDIR.SA.40 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 23:17.08 00566/41 *PIL/2 HEADINS SA G S0543 MTSPIL 'MTSPIL2' POSN=HEADINS 41 D3T4 371 PIL/2.HEADINS.SA.41 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:17.12 00566/42 *PIL/2 STROP SA G S0543 MTSPIL 'MTSPIL2' POSN=STROP 42 D3T4 372 PIL/2.STROP.SA.42 1 SEQ 80 15 PAGE UM TIFFANY AUG. 01, 1973 23:17.18 00566/43 *PIL/2 SETUP SA G S0543 MTSPIL 'MTSPIL2' POSN=SETUP 43 D3T4 373 PIL/2.SETUP.SA.43 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:17.22 00566/44 *PIL/2 SPLIT SA G S0543 MTSPIL 'MTSPIL2' POSN=SPLIT 44 D3T4 374 PIL/2.SPLIT.SA.44 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:17.26 00566/45 *PIL/2 FORBREAK SA G S0543 MTSPIL 'MTSPIL2' POSN=FORBREAK 45 D3T4 375 PIL/2.FORBREAK.SA.45 1 SEQ 80 10 PAGE UM TIFFANY AUG. 01, 1973 23:17.34 00566/46 *PIL/2 EVAL SA G S0543 MTSPIL 'MTSPIL2' POSN=EVAL 46 D3T4 376 PIL/2.EVAL.SA.46 1 SEQ 80 28 PAGE UM TIFFANY AUG. 01, 1973 23:17.40 00566/47 *PIL/2 TYPARRY SA G S0543 MTSPIL 'MTSPIL2' POSN=TYPARRY 47 D3T4 377 PIL/2.TYPARRY.SA.47 1 SEQ 80 12 PAGE UM TIFFANY AUG. 01, 1973 23:17.44 00566/48 *PIL/2 PROCESS SA G S0543 MTSPIL 'MTSPIL2' POSN=PROCESS 48 D3T4 378 PIL/2.PROCESS.SA.48 1 SEQ 80 51 PAGE UM TIFFANY AUG. 01, 1973 23:17.54 00566/49 *PIL/2 *PIL/2 OC G LBT:PILL D3T4 379 PIL/2.*PIL/2.OC.49 1 LINE 24 1 PAGE UM TIFFANY AUG. 01, 1973 23:20.04 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SEGMENT 2 PIL/2 (566/51). WHEN PIL/2 IS MADE OFFICIALLY AVAILABLE (VERY SOON), THIS WILL BE IN THE FILE "*PIL/2". 00566/50 *PIL/2 OBJECT OE G SEG2:PIL D3T4 380 PIL/2.OBJECT.OE.50 1 SEQ 256 20 PAGE UM TIFFANY AUG. 01, 1973 23:20.04 0 PIL/2 IS RE-ENTRANT AND IS LOADED IN TO SHARED VM AT IPL BY THE SEG 2 LOADER. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00566/51 *PIL/2 USER'S GUIDE WT W062:M D3T4 381 PIL/2.USER'S_GUIDE.WT.51 1 SEQ 256 82 PAGE UM TIFFANY AUG. 01, 1973 23:20.09 0 TEXT/360 MASTER FOR PIL/2 USER'S GUIDE (MTS VOLUME 12). 0 Referenced by comments of: 566/49 00566/52 *PIL/2 USER'S GUIDE PT W062:P D3T4 382 PIL/2.USER'S_GUIDE.PT.52 1 SEQ 132 294 PAGE UM TIFFANY AUG. 01, 1973 23:20.18 0 TEXT/360 PRINT FILE FOR THE PIL/2 USER'S GUIDE (MTS VOLUME 12). NOTE: THIS IS NOT QUITE READY TO BE PRINTED YET, AND THEREFORE WE ARE NOT SENDING HARD COPY. 00567/01 *1052RTN SA O TFTS S0723 'D3T4' FSNAME=1052RTN..SA.1 383 D3T4 383 1052RTN..SA.1 1 LINE 80 37 PAGE UM MTA AUG. 01, 1973 23:20.54 0 MTS DEVICE SUPPORT ROUTINES FOR 1052 OPERATOR'S CONSOLE. ALLOWS USE OF ALTERNATE CONSOLE ON DUPLEX 67 AS MTS TERMINAL. 00567/02 *1052RTN OC O *1052RTN D3T4 384 1052RTN..OC.2 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:21.04 00568/01 *TIMETALLY SA G TTLY W047:TIMETALLY.S D3.2T1 492 TIMETALLY..SA.01 1 LINE 80 45 PAGE UM HAMILTON MAR. 21, 1975 01:53:09 0 TIMETALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO PRODUCE A HISTOGRAM DEPICTING THE DISTRIBUTION OF CPU ACTIVITY WITHIN THE PROGRAM. COPIES *CNFGINFODSECT (654). 00568/02 *TIMETALLY OE G *TIMETALLY D3.2T1 493 TIMETALLY..OE.02 1 SEQ 32670 12 PAGE UM HAMILTON MAR. 21, 1975 01:53:14 00569/01 PCE SNIFFER SA PCE0 DWB:PCE(1,999) D3T4 387 PCE_SNIFFER..SA.1 1 LINE 80 4 PAGE UM DWB AUG. 01, 1973 23:21.23 0 PCE SNIFFER UTILITY PROGRAM. EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE: F:N1 B:N2 T: N3P N4U N5B WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S, N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION, N3 IS THE NUMBER OF *PRINT* PCE'S, N4 IS THE NUMBER OF *PUNCH* PCE'S, AND N5 IS THE NUMBER OF *BATCH* PCE'S. IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS FROM THE PREVIOUS LINE PRINTED. IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE USER THEY THINK THEY ARE. IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS FROM THE JCT ID, IT PRINTS: PCE: AAAAA JCTID: IIII JOB TABLE: PPPPPPPP JOB N 1 FRI AUG 02/96 19:04:25 Page 209 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 WHERE AAAAA IS THE HEX LOCN OF THE PCE, IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL), PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER), AND N IS THE JOB NUMBER. USES IOH (278) FOR OUTPUT FORMATTING AND HAS ABSOLUTE DEFINITIONS FOR DISPLACEMENTS OF SOME ITEMS IN PCE AND WORK AREA OF EXECUTION PCE. 00569/02 PCE SNIFFER OC DWB:PCE(1000) D3T4 388 PCE_SNIFFER..OC.2 1 LINE 80 1 PAGE UM DWB AUG. 01, 1973 23:21.28 00570/01 *MNETRTN SA G MNET WSG:MNET D3T4 389 MNETRTN..SA.1 1 LINE 80 64 PAGE UM WSG AUG. 01, 1973 23:21.33 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). 00570/02 *MNETRTN OC G *MNETRTN D3T4 390 MNETRTN..O.2 1 LINE 80 5 PAGE UM WSG AUG. 01, 1973 23:21.58 00571/01 APL LIBRARY WS ADVANCEDE D APL:001ADVANCEDE D3T4 391 APL_LIBRARY_WS.ADVANCEDE.D.1 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:22.03 0 THE APL LIBRARY WORKSPACES MUST BE RESTORED AS FILES UNDER USER ID "APL." USING AS FILE NAMES THE 3 DIGIT (WITH LEADING ZEROS) LIBRARY FILE NUMBER FOLLOWED BY THE WORKSPACE NAME, I.E., USE THE SAME NAMES AS WERE USED TO GENERATE THE DISTRIBUTION TAPE. 00571/02 APL LIBRARY WS APLCOURSE D APL:001APLCOURSE D3T4 392 APL_LIBRARY_WS.APLCOURSE.D.2 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:22.07 00571/03 APL LIBRARY WS CLASS D APL:001CLASS D3T4 393 APL_LIBRARY_WS.CLASS.D.3 1 LINE 255 7 PAGE UM DWB AUG. 01, 1973 23:22.12 00571/04 APL LIBRARY WS EIGENVALU D # (NOT AVAILABLE) UM DWB 00571/05 APL LIBRARY WS NEWS D APL:001NEWS D3T4 394 APL_LIBRARY_WS.NEWS.D.5 1 SEQ 26040 8 PAGE UM DWB AUG. 01, 1973 23:22.18 00571/06 APL LIBRARY WS PLOTFORMA D APL:001PLOTFORMA D3T4 395 APL_LIBRARY_WS.PLOTFORMA.D.6 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:22.23 00571/07 APL LIBRARY WS TYPEDRILL D APL:001TYPEDRILL D3T4 396 APL_LIBRARY_WS.TYPEDRILL.D.7 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:22.30 00571/08 APL LIBRARY WS WSFNS D APL:001WSFNS D3T4 397 APL_LIBRARY_WS.WSFNS.D.8 1 LINE 255 3 PAGE UM DWB AUG. 01, 1973 23:22.34 00571/09 APL LIBRARY WS CATALOG D APL:002CATALOG D3T4 398 APL_LIBRARY_WS.CATALOG.D.9 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:22.39 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00571/10 APL LIBRARY WS STP1 D APL:002STP1 D3T4 399 APL_LIBRARY_WS.STP1.D.10 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:22.45 00571/11 APL LIBRARY WS STP2 D APL:002STP2 D3T4 400 APL_LIBRARY_WS.STP2.D.11 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:22.52 00571/12 APL LIBRARY WS STP3 D APL:002STP3 D3T4 401 APL_LIBRARY_WS.STP3.D.12 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:22.55 00571/13 APL LIBRARY WS STP4 D APL:002STP4 D3T4 402 APL_LIBRARY_WS.STP4.D.13 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:23.01 00571/14 APL LIBRARY WS STP5 D APL:002STP5 D3T4 403 APL_LIBRARY_WS.STP5.D.14 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:23.06 00571/15 APL LIBRARY WS STP6 D APL:002STP6 D3T4 404 APL_LIBRARY_WS.STP6.D.15 1 LINE 255 5 PAGE UM DWB AUG. 01, 1973 23:23.11 00571/16 APL LIBRARY WS STP7 D APL:002STP7 D3T4 405 APL_LIBRARY_WS.STP7.D.16 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:23.16 00571/17 APL LIBRARY WS STP8 D APL:002STP8 D3T4 406 APL_LIBRARY_WS.STP8.D.17 1 LINE 255 5 PAGE UM DWB AUG. 01, 1973 23:23.23 00571/18 APL LIBRARY WS COMPLEX D APL:003COMPLEX D3T4 407 APL_LIBRARY_WS.COMPLEX.D.18 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:23.27 00571/19 APL LIBRARY WS INDEX D APL:003INDEX D3T4 408 APL_LIBRARY_WS.INDEX.D.19 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:23.32 00571/20 APL LIBRARY WS UTIL D APL:003UTIL D3T4 409 APL_LIBRARY_WS.UTIL.D.20 1 LINE 255 3 PAGE UM DWB AUG. 01, 1973 23:23.37 00571/21 APL LIBRARY WS ALGFORM D APL:005ALGFORM D3T4 410 APL_LIBRARY_WS.ALGFORM.D.21 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:23.43 00571/22 APL LIBRARY WS COGO D APL:005COGO D3T4 411 APL_LIBRARY_WS.COGO.D.22 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:23.48 00571/23 APL LIBRARY WS COMPCENT D APL:005COMPCENT D3T4 412 APL_LIBRARY_WS.COMPCENT.D.23 1 LINE 255 3 PAGE UM DWB AUG. 01, 1973 23:23.53 00571/24 APL LIBRARY WS CW D APL:005CW D3T4 413 APL_LIBRARY_WS.CW.D.24 1 LINE 255 7 PAGE UM DWB AUG. 01, 1973 23:23.59 00571/25 APL LIBRARY WS EDIT D APL:005EDIT D3T4 414 APL_LIBRARY_WS.EDIT.D.25 1 LINE 255 7 PAGE UM DWB AUG. 01, 1973 23:24.05 00571/26 APL LIBRARY WS MATRIXALG D APL:005MATRIXALG D3T4 415 APL_LIBRARY_WS.MATRIXALG.D.26 1 LINE 255 8 PAGE UM DWB AUG. 01, 1973 23:24.10 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00571/27 APL LIBRARY WS SNOBOL D APL:005SNOBOL D3T4 416 APL_LIBRARY_WS.SNOBOL.D.27 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:24.15 00571/28 APL LIBRARY WS SRADEMO D APL:005SRADEMO D3T4 417 APL_LIBRARY_WS.SRADEMO.D.28 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:24.20 00572/01 BLOKLETR SA G BKLT DWB:BLOKLETR.S D3T4 418 BLOKLETR..SA.1 1 LINE 80 7 PAGE UM DWB AUG. 01, 1973 23:24.26 0 SUBROUTINE CALLLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS. 00572/02 BLOKLETR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 00573/01 MTS VOLUME 5 MASTER WT S0451 MTSV5 'MTS MANUALS' POSN=NEWM2.V5 11 D3T4 419 MTS_VOLUME_5.MASTER.WT.1 1 SEQ 132 242 PAGE UM SALISBURY AUG. 01, 1973 23:30.30 0 TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" (REVISED MARCH 1974) OF THE UM MTS MANUAL. 00573/02 MTS VOLUME 5 PRINT PT S0451 MTSV5 'MTS MANUALS' POSN=PRINT2.V5 12 D3T4 420 MTS_VOLUME_5.PRINT.PT.2 1 SEQ 132 570 PAGE UM SALISBURY AUG. 01, 1973 23:31.54 0 TEXT/360 PRINT FILE. 00573/03 MTS VOLUME 5 FORMAT EXAMP PF S0451 MTSV5 'MTS MANUALS' POSN=V5FORMATEXA 7 UM SALISBURY 00573/04 MTS VOLUME 5 TEXT360 EXAMP PT S0451 MTSV5 'MTS MANUALS' POSN=V5TEXT360EXA 8 UM SALISBURY 00573/05 MTS VOLUME 5 LOADER MAP P S0451 MTSV5 'MTS MANUALS' POSN=V5LOADERMAP 9 UM SALISBURY 00573/06 MTS VOLUME 5 INDEX SOURCE D S0451 MTSV5 'MTS MANUALS' POSN=V5INDEXSOU 10 UM SALISBURY 00574/01 MTS VOLUME 10 MASTER WT G S0546 MTSV10 'MTS MANUALS' POSN=NEWM2.V10 D3T4 421 MTS_VOLUME_10.MASTER.WT.1 1 SEQ 133 236 PAGE UM SALISBURY AUG. 01, 1973 23:34.08 0 TEXT/360 MASTER FOR VOLUME 10 "BASIC IN MTS" OF THE UM MTS MANUAL. 00574/02 MTS VOLUME 10 PRINT PT G S0546 MTSV10 'MTS MANUALS' POSN=VOL10SEPT74 D3T4 422 MTS_VOLUME_10.PRINT.PT.2 1 SEQ 132 839 PAGE UM SALISBURY AUG. 01, 1973 23:35.37 0 TEXT/360 PRINT FILE. 00575/01 MTS VOLUME 4 MASTER WT G S0616 MTSV4 'MTS MANUALS' POSN=NEWM3.V4 D3T4 424 MTS_VOLUME_4.MASTER.WT.1 1 SEQ 132 157 PAGE UM SALISBURY AUG. 01, 1973 23:39.38 0 TEXT/360 MASTER FOR VOLUME 4 "TERMINALS AND TAPES" OF THE UM MTS MANUALS. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00575/02 MTS VOLUME 4 PRINT PT G S0616 MTSV4 'MTS MANUALS' POSN=PRINT3.V4 D3T4 425 MTS_VOLUME_4.PRINT.PT.2 1 SEQ 132 596 PAGE UM SALISBURY AUG. 01, 1973 23:40.43 0 TEXT/360 PRINT FILE. 00575/03 MTS VOLUME 4 KEYBOARD PLOT SF W032:KBDPLOTSOU D3T4 426 MTS_VOLUME_4.KEYBOARD_PLOT.SF.3 1 LINE 80 10 PAGE UM EMERY AUG. 01, 1973 23:41.35 0 FORTRAN PROGRAM TO PRODUCE THE CALCOMP KEYBOARD PLOTS USED IN THE MEMOREX 1270 (IBM 2703) USER'S GUIDE IN VOLUME 4. REQUIRES A SPECIAL VERSION OF THE CALCOMP 'SYMBOL' ROUTINE (575/4 AND 575/5). USES EBCDDEFN (038/9) AND GOLFPTTC (038/10) (OR GOLFCORR (038/11)) AS INPUT DURING EXECUTION. OBJECT NOT DISTRIBUTED. 0 Referenced by comments of: 575/4 00575/04 MTS VOLUME 4 SYMBOL SUBR SA S W032:PSYMBSOU3.1 D3.1T1 424 MTS_VOLUME_4.SYMBOL_SUBR.SA.4 1 LINE 80 16 PAGE UM EMERY MAR. 06, 1974 22:04.18 0 THIS IS A SPECIAL VERSION OF THE CALCOMP 'SYMBOL' ROUTINES INTENDED FOR USE WITH THE KEYBOARD PLOT PROGRAM (575/3). 00575/05 MTS VOLUME 4 SYMBOL SUBR OC S W032:PSYMBOBJ3.1 D3.1T1 425 MTS_VOLUME_4.SYMBOL_SUBR.OC.5 1 LINE 80 3 PAGE UM EMERY MAR. 06, 1974 22:04.21 00576/01 OMR CONVERT SA G COMR DWB:CVTOMR.D3(1,999) D3.1T1 426 OMR_CONVERT..SA.1 1 LINE 80 14 PAGE UM DWB MAR. 06, 1974 22:04.23 0 SUBROUTINE CALLED BY BOTH HASP (ONLY IF FIRST CARD FOLLOWING A DECK (S8) CARD IS AN OMR CARD) AND MTS (FOR ALL OTHER CONVERSION) TO CONVERT OMR CARDS TO EBCDIC. NOTE: THIS ROUTINE CURRENTLY HANDLES THE WATERLOO OMR CARD FORMAT (2-4-6 MARK IN COLUMN 1), AND THE UM MTS-AND-FORTRAN CARD (1-5-7 MARK IN COLUMN 1). 00576/02 OMR CONVERT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM DWB 0 Referenced by comments of: 86/2 00576/03 OMR CONVERT WRITEUP WF W098:KDM250 D3.1T1 427 OMR_CONVERT.WRITEUP.WF.3 1 LINE 136 7 PAGE UM EMERY MAR. 06, 1974 22:04.34 0 THIS IS COMPUTING CENTER MEMO M250 -- "OPTICAL MARK READING AND THE OPTICAL MTS AND FORTRAN CARD" 00577/01 MACHINE CHECK RECOVERY 67 CEAIR SA G EAIR S0938 FSAVE2 FSNAME=CEAIR.S D3.2T1 494 MACHINE_CHECK_RECOVERY.67.SA.01 1 LINE 80 18 PAGE UM MTA 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. CEAIR IS THE RECOVERY NUCLEUS. COPIES COPY:CHAERC (577/30), COPY:LLMPSEQU (087), COPY:PSA (162), AND COPY:CHADMR (577/29). 00577/02 MACHINE CHECK RECOVERY 67 CEAIR OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00577/03 MACHINE CHECK RECOVERY 67 CMASA SA G MASA S0938 FSAVE2 FSNAME=CMASA.S D3.2T1 495 MACHINE_CHECK_RECOVERY.67.SA.03 1 LINE 80 14 PAGE UM MTA FEB. 13, 1975 23:52:02 0 BOOTSTRAP. COPIES COPY:CHAERC (577/30), COPY:CHASYS.2 (577/35), COPY:LLMPSEQU (087), AND COPY:PSA (162). 00577/04 MACHINE CHECK RECOVERY 67 CMASA OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00577/05 MACHINE CHECK RECOVERY 67 CEABE SA G EABE S0938 FSAVE2 FSNAME=CEABE.S D3.2T1 496 MACHINE_CHECK_RECOVERY.67.SA.05 1 LINE 80 20 PAGE UM MTA FEB. 13, 1975 23:51:48 0 EXTERNAL MACHINE CHECK HANDLER. COPIES COPY:CHACHL(11,27) (577/27), COPY:CHADMR (577/29), COPY:CHAERE (577/31), COPY:LLMPSEQU (087), COPY:CHAPSA(1,51) (577/34), AND COPY:PSA (162). 00577/06 MACHINE CHECK RECOVERY 67 CEABE OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00577/07 MACHINE CHECK RECOVERY 67 CMASB SA G MASB S0938 FSAVE2 FSNAME=CMASB.S D3.2T1 497 MACHINE_CHECK_RECOVERY.67.SA.07 1 LINE 80 15 PAGE UM MTA FEB. 13, 1975 23:52:06 0 ERROR RECORDING. COPIES COPY:LLMPSEQU (087), COPY:PSA (162), AND COPY:CHAOER (577/33). 00577/08 MACHINE CHECK RECOVERY 67 CMASB OC G # (PART OF 577/52) D3T4 435 MACHINE_CHECK_REC'Y.CMASB.O.8 1 LINE 80 2 PAGE UM MTA AUG. 01, 1973 23:45.44 00577/09 MACHINE CHECK RECOVERY 67 CMASC SA G MASC S0938 FSAVE2 FSNAME=CMASC.S D3.2T1 498 MACHINE_CHECK_RECOVERY.67.SA.09 1 LINE 80 13 PAGE UM MTA FEB. 13, 1975 23:52:10 0 IMMEDIATE PRINT. COPIES COPY:CHAERC (577/30). 00577/10 MACHINE CHECK RECOVERY 67 CMASC OC G # (PART OF 577/52) D3.1T1 432 MACHINE_CHECK_REC'Y.CMASC.OC.10 1 LINE 80 2 PAGE UM MTA MAR. 06, 1974 22:04.55 00577/11 MACHINE CHECK RECOVERY 67 CMASD SA G MASD S0938 FSAVE2 FSNAME=CMASD.S D3.2T1 499 MACHINE_CHECK_RECOVERY.67.SA.11 1 LINE 80 28 PAGE UM MTA FEB. 13, 1975 23:52:13 0 CHECKER (CHECKS PARITY ETC.). COPIES COPY:CHAPSA (577/34) AND COPY:CHACST (577/28). 00577/12 MACHINE CHECK RECOVERY 67 CMASD OC G # (PART OF 577/52) D3.1T1 434 MACHINE_CHECK_REC'Y.CMASD.OC.12 1 LINE 80 3 PAGE UM MTA MAR. 06, 1974 22:05.05 00577/13 MACHINE CHECK RECOVERY 67 CMASE SA G MASE S0938 FSAVE2 FSNAME=CMASE.S D3.2T1 500 MACHINE_CHECK_RECOVERY.67.SA.13 1 LINE 80 30 PAGE UM MTA FEB. 13, 1975 23:52:17 0 POINTER (FIND FAILING INSTRUCTION). 00577/14 MACHINE CHECK RECOVERY 67 CMASE OC G # (PART OF 577/52) D3T4 441 MACHINE_CHECK_REC'Y.CMASE.O.14 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:46.13 00577/15 MACHINE CHECK RECOVERY 67 CMASF SA G MASF S0938 FSAVE2 FSNAME=CMASF.S D3.2T1 501 MACHINE_CHECK_RECOVERY.67.SA.15 1 LINE 80 23 PAGE UM MTA FEB. 13, 1975 23:52:22 0 RESTORE AND VALIDATE. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00577/16 MACHINE CHECK RECOVERY 67 CMASF OC G # (PART OF 577/52) D3T4 443 MACHINE_CHECK_REC'Y.CMASF.O.16 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:46.24 00577/17 MACHINE CHECK RECOVERY 67 CMASG SA G MASG S0938 FSAVE2 FSNAME=CMASG.S D3.2T1 502 MACHINE_CHECK_RECOVERY.67.SA.17 1 LINE 80 26 PAGE UM MTA FEB. 13, 1975 23:52:26 0 INSTRUCTION RETRY. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:PSA (162). 00577/18 MACHINE CHECK RECOVERY 67 CMASG OC G # (PART OF 577/52) D3.1T1 436 MACHINE_CHECK_REC'Y.CMASG.OC.18 1 LINE 80 3 PAGE UM MTA MAR. 06, 1974 22:05.13 00577/19 MACHINE CHECK RECOVERY 67 CMASH SA G MASH S0938 FSAVE2 FSNAME=CMASH.S D3.2T1 503 MACHINE_CHECK_RECOVERY.67.SA.19 1 LINE 80 35 PAGE UM MTA FEB. 13, 1975 23:52:30 0 FIRST DIAGNOSTIC. COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34). 00577/20 MACHINE CHECK RECOVERY 67 CMASH OC G # (PART OF 577/52) D3T4 447 MACHINE_CHECK_REC'Y.CMASH.O.20 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:46.47 00577/21 MACHINE CHECK RECOVERY 67 CMASI SA G MASI S0938 FSAVE2 FSNAME=CMASI.S D3.2T1 504 MACHINE_CHECK_RECOVERY.67.SA.21 1 LINE 80 30 PAGE UM MTA FEB. 13, 1975 23:52:36 0 SECOND DIAGNOSTIC. COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34). 00577/22 MACHINE CHECK RECOVERY 67 CMASI OC G # (PART OF 577/52) D3.1T1 438 MACHINE_CHECK_REC'Y.CMASI.OC.22 1 LINE 80 3 PAGE UM MTA MAR. 06, 1974 22:05.27 00577/23 MACHINE CHECK RECOVERY 67 CMASJ SA G MASJ S0938 FSAVE2 FSNAME=CMASJ.S D3.2T1 505 MACHINE_CHECK_RECOVERY.67.SA.23 1 LINE 80 17 PAGE UM MTA FEB. 13, 1975 23:52:41 0 THIRD DIAGNOSTIC. COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34). 00577/24 MACHINE CHECK RECOVERY 67 CMASJ OC G # (PART OF 577/52) D3T4 451 MACHINE_CHECK_REC'Y.CMASJ.O.24 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:47.10 00577/25 MACHINE CHECK RECOVERY 67 CGCMA SA G GCMA S0938 FSAVE2 FSNAME=CGCMA.S D3.2T1 506 MACHINE_CHECK_RECOVERY.67.SA.25 1 LINE 80 22 PAGE UM MTA FEB. 13, 1975 23:51:58 0 RECONFIGURATION. COPIES COPY:PCBDSECT (470), COPY:CHADMR (577/29), COPY:PSA (162), AND COPY:LLMPSEQU (087). 00577/26 MACHINE CHECK RECOVERY 67 CGCMA OC G # (PART OF 577/52) D3.1T1 440 MACHINE_CHECK_REC'Y.CGCMA.OC.26 1 LINE 80 3 PAGE UM MTA MAR. 06, 1974 22:05.33 00577/27 MACHINE CHECK RECOVERY 67 CHACHL SA G CHL0 S0938 FSAVE2 FSNAME=COPY:CHACHL D3.2T1 507 MACHINE_CHECK_RECOVERY.67.SA.27 1 LINE 80 1 PAGE UM MTA FEB. 13, 1975 23:52:48 0 COPY SECTION FOR TSS FLAVOR CHANNEL TABLE. 0 Referenced by comments of: 577/5 00577/28 MACHINE CHECK RECOVERY 67 CHACST SA G CST0 S0938 FSAVE2 FSNAME=COPY:CHACST D3.2T1 508 MACHINE_CHECK_RECOVERY.67.SA.28 1 LINE 80 2 PAGE UM MTA FEB. 13, 1975 23:52:51 0 COPY SECTION FOR CPU STATUS TABLE. 1 FRI AUG 02/96 19:04:25 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 Referenced by comments of: 97/11, 121/2, 577/11, 577/19, 577/21, 577/23, 611/1, 654/1 00577/29 MACHINE CHECK RECOVERY 67 CHADMR SA G DMR0 S0938 FSAVE2 FSNAME=COPY:CHADMR D3.2T1 509 MACHINE_CHECK_RECOVERY.67.SA.29 1 LINE 80 1 PAGE UM MTA FEB. 13, 1975 23:52:53 0 COPY SECTION FOR DAMAGE REPORT. 0 Referenced by comments of: 577/1, 577/5, 577/25 00577/30 MACHINE CHECK RECOVERY 67 CHAERC SA G ERC0 COPY:CHAERC D3.2T1 510 MACHINE_CHECK_RECOVERY.67.SA.30 1 LINE 80 4 PAGE UM MTA MAR. 21, 1975 01:54:50 0 COPY SECTION FOR ERROR RECOVERY CONTROL TABLE (X'C00' IN PSA). 0 Referenced by comments of: 46/2, 577/1, 577/3, 577/9, 589/1 00577/31 MACHINE CHECK RECOVERY 67 CHAERE SA G ERE0 S0938 FSAVE2 FSNAME=COPY:CHAERE D3.2T1 511 MACHINE_CHECK_RECOVERY.67.SA.31 1 LINE 80 1 PAGE UM MTA FEB. 13, 1975 23:52:58 0 COPY SECTION FOR EXTERNAL MACHINE CHECK ERROR RECORD FORMAT. 0 Referenced by comments of: 577/5, 577/37 00577/32 MACHINE CHECK RECOVERY 67 CHAIER SA G IER0 S0938 FSAVE2 FSNAME=COPY:CHAIER D3.2T1 512 MACHINE_CHECK_RECOVERY.67.SA.32 1 LINE 80 1 PAGE UM MTA FEB. 13, 1975 23:53:01 0 COPY SECTION FOR INBOARD I/O ERROR RECORD FORMAT. 0 Referenced by comments of: 577/37, 589/1 00577/33 MACHINE CHECK RECOVERY 67 CHAOER SA G OER0 S0938 FSAVE2 FSNAME=COPY:CHAOER D3.2T1 513 MACHINE_CHECK_RECOVERY.67.SA.33 1 LINE 80 1 PAGE UM MTA FEB. 13, 1975 23:53:03 0 COPY SECTION FOR OUTBOARD I/O ERROR RECORD FORMAT. 0 Referenced by comments of: 577/7, 577/37 00577/34 MACHINE CHECK RECOVERY 67 CHAPSA SA G PSA0 S0938 FSAVE2 FSNAME=COPY:CHAPSA D3.2T1 514 MACHINE_CHECK_RECOVERY.67.SA.34 1 LINE 80 3 PAGE UM MTA FEB. 13, 1975 23:53:06 0 COPY SECTION FOR TSS FLAVOR PSA. 0 Referenced by comments of: 577/5, 577/11, 577/19, 577/21, 577/23, 588/1 00577/35 MACHINE CHECK RECOVERY 67 CHASYS.2 SA G SYS2 COPY:CHASYS.2 D3.2T1 515 MACHINE_CHECK_RECOVERY.67.SA.35 1 LINE 80 1 PAGE UM MTA MAR. 21, 1975 01:55:03 0 COPY SECTION FOR THE 'SYSTEM TABLE'. 0 Referenced by comments of: 46/2, 577/3 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00577/36 MACHINE CHECK RECOVERY 67 CHASDT SA G SDT0 S0938 FSAVE2 FSNAME=COPY:CHASDT D3.2T1 516 MACHINE_CHECK_RECOVERY.67.SA.36 1 LINE 80 3 PAGE UM MTA FEB. 13, 1975 23:53:08 0 COPY SECTION FOR STATISTICAL DATA TABLE. NOT USED BY MTS. 0 Referenced by comments of: 577/37 00577/37 MACHINE CHECK RECOVERY 67 CZASE SA G ZASE S0938 FSAVE2 FSNAME=CZASE.S D3.2T1 517 MACHINE_CHECK_RECOVERY.67.SA.37 1 LINE 80 132 PAGE UM MTA FEB. 13, 1975 23:53:17 0 VMEREP. COPIES COPY:CHAOER (577/33), COPY:CHASDT (577/36), COPY:CHAERE (577/31), AND COPY:CHAIER (577/32). ASSEMBLE WITH MTA:MACLIB (577/39) AND *SYSMAC. CZASE WILL ACCEPT INPUT FROM THE FILE IT WRITES. ENTER "FILE" WHEN IT ASKS FOR A DRUM AND IT WILL READ FROM A SEQUENTIAL FILE ON UNIT 1. THIS ALLOWS USE OF ALL THE SELECTIVE PRINT COMMANDS IN MTS. 00577/38 MACHINE CHECK RECOVERY 67 CZASE OC G S0938 FSAVE2 FSNAME=CZASE D3.2T1 518 MACHINE_CHECK_RECOVERY.67.OC.38 1 LINE 176 21 PAGE UM MTA FEB. 13, 1975 23:53:13 0 CONTAINS SEVERAL PROGRAMS IN ADDITION TO CZASE. 0 Referenced by comments of: 577/49 00577/39 MACHINE CHECK RECOVERY 67 MACROS SM G MAC0 S0938 FSAVE2 FSNAME=MACLIB D3.2T1 519 MACHINE_CHECK_RECOVERY.67.SM.39 1 LINE 80 4 PAGE UM MTA FEB. 13, 1975 23:53:34 0 MACROS, MOST OF WHICH ARE NOT USED. 0 Referenced by comments of: 577/37 00577/40 MACHINE CHECK RECOVERY 67 DRMINIT SA G DRMI S0938 FSAVE2 FSNAME=DRMINIT.S D3.2T1 520 MACHINE_CHECK_RECOVERY.67.SA.40 1 LINE 80 6 PAGE UM MTA FEB. 13, 1975 23:53:32 0 WRITE MACHINE CHECK MODULES ON DRUMS. ASSEMBLE WITH *SYSMAC. 00577/41 MACHINE CHECK RECOVERY 67 DRMINIT OC G S0938 FSAVE2 FSNAME=DRMINIT.O D3.2T1 521 MACHINE_CHECK_RECOVERY.67.OC.41 1 LINE 80 3 PAGE UM MTA FEB. 13, 1975 23:53:29 00577/42 MACHINE CHECK RECOVERY 67 LOGPRINT SA G LOGP S0421 'UBC -> UM #16' FSNAME=LOGPRINT.S 14 D3T4 469 MACHINE_CHECK_REC'Y.LOGPRI.SA.42 1 LINE 80 3 PAGE UBC MTA SEP. 27, 1971 11:03:35 0 PROGRAM TO PRINT CZASE OUTPUT. ASSEMBLE WITH *SYSMAC? 00577/43 MACHINE CHECK RECOVERY 67 LOGPRINT OC G S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.LOGPRI.O.43 470 D3T4 470 MACHINE_CHECK_REC'Y.LOGPRI.O.43 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:51.53 00577/44 MACHINE CHECK RECOVERY 67 SHORTPRINT SA G SHRT S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.SHORTP.SA.44 471 D3T4 471 MACHINE_CHECK_REC'Y.SHORTP.SA.44 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 23:51.59 0 ONE LINE SUMMARY (POOR) FROM CZASE OUTPUT. ASSEMBLE WITH *SYSMAC. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00577/45 MACHINE CHECK RECOVERY 67 SHORTPRINT OC G S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.SHORTP.O.45 472 D3T4 472 MACHINE_CHECK_REC'Y.SHORTP.O.45 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:52.05 00577/46 MACHINE CHECK RECOVERY 67 WRITEUP P S0938 FSAVE2 FSNAME=MCHDESCR D3T4 473 MACHINE_CHECK_REC'Y.WRITEU.P.46 1 LINE 67 4 PAGE UM MTA AUG. 01, 1973 23:52.11 0 WRITE-UP FOR MACHINE CHECK STUFF. 00577/47 MACHINE CHECK RECOVERY 67 MCHDEFS SA G MCHD S0938 FSAVE2 FSNAME=MCHDEFS D3.2T1 522 MACHINE_CHECK_RECOVERY.67.SA.47 1 LINE 80 2 PAGE UM MTA FEB. 13, 1975 23:53:37 0 LOW-CORE SYMBOL TABLE (LIKE LCSYMBOL) FOR SYMBOLS REFERENCED BY DRMINIT. NOTE: SOURCE IS IN MCHDEFS(1,999). 00577/48 MACHINE CHECK RECOVERY 67 MCHDEFS OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00577/49 MACHINE CHECK RECOVERY 67 CZASY1 SA G ZASY S0421 'UBC -> UM #16' FSNAME=CZASY1.S 13 D3T4 475 MACHINE_CHECK_REC'Y.CZASY1.SA.49 1 LINE 80 2 PAGE UBC MTA SEP. 27, 1971 11:03:07 0 SUBROUTINE TO EXECUTE DRUM I/O FOR CZASE. OBJECT IS PART OF INIT:CZASE (577/38). 00577/50 MACHINE CHECK RECOVERY 67 COMMANDS C S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.COMMAN.C.50 476 D3T4 476 MACHINE_CHECK_REC'Y.COMMAN.C.50 1 LINE 9 1 PAGE UM MTA AUG. 01, 1973 23:52.34 0 COMMANDS TO CZASE. 00577/51 MACHINE CHECK RECOVERY 67 MCFILES D S0723 'D3T4' FSNAME=MACHINE_CHECK_REC'Y.MCFILE.D.51 477 D3T4 477 MACHINE_CHECK_REC'Y.MCFILE.D.51 1 LINE 5 1 PAGE UM MTA AUG. 01, 1973 23:52.36 0 LIST OF FILES FOR DRMINIT. 00577/52 MACHINE CHECK RECOVERY 67 OBJECT OC G S0938 FSAVE2 FSNAME=MCHOBJ D3.2T1 523 MACHINE_CHECK_RECOVERY.67.OC.52 1 LINE 80 16 PAGE UM MTA FEB. 13, 1975 23:53:45 0 OBJECT FOR MOST OF THE 360/67 MACHINE CHECK RECOVERY. 00577/53 MACHINE CHECK RECOVERY 370 MCHCCH SA G MCHC MTA:MCHCCH.S D3.2T1 524 MACHINE_CHECK_RECOVERY.370.SA.53 1 LINE 80 20 PAGE UM MTA MAR. 21, 1975 01:55:43 0 370 MODEL-INDEPENDENT MACHINE AND CHANNEL CHECK HANDLER. ASSEMBLE WITH COPY:SETPARM (653), *SYSMAC, AND VS2 MACROS (655/8). COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CMDAREADSECT (531/12), AND COPY:GLOBALS (1026/4). IGNORE THE ASSEMBLY ERRORS!!!!!! 0 Referenced by comments of: 655/2 00577/54 MACHINE CHECK RECOVERY 370 MCHCCH OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00577/55 MACHINE CHECK RECOVERY 370 LOGGER SA G STLG MTA:STLOG(1,999) D3.2T1 525 MACHINE_CHECK_RECOVERY.370.SA.55 1 LINE 80 4 PAGE UM MTA MAR. 21, 1975 01:55:46 0 THIS IS A PROGRAM THAT PRODUCES ON SPUNCH A STANDALONE PROGRAM TO BE WRITTEN TO A TAPE AND IPL'D AFTER A HARD MACHINE CHECK. THE STANDALONE PROGRAM COPIES THE 370 MACHINE CHECK RECORD (I.E. PSA PLUS EXTENDED LOGOUT AREA) TO THE SECOND FILE OF THE TAPE FROM WHICH IT WAS IPL'D. THE RECORD IN ON TAPE HAS THE SAME FORMAT AS NORMAL MTS MACHINE CHECK LOGOUTS. COPIES COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:PSA (162). 00577/56 MACHINE CHECK RECOVERY 370 LOGGER OC G MTA:STLOG(1000) D3.2T1 526 MACHINE_CHECK_RECOVERY.370.OC.56 1 LINE 80 3 PAGE UM MTA MAR. 21, 1975 01:55:49 00578/01 RSF D3 MASTER SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=RSF 10 D3T5 1 RSF..SA.1 1 SEQ 80 60 PAGE UM PIRKOLA AUG. 02, 1973 00:14.51 0 REALLY SHARED FILES (RSF) PORTION OF MTS. COPIES *GFINFODSECT (593), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:CATEQU (482/28), COPY:LLMPSEQU (087), COPY:GLOBALS (1026/4), AND COPY:MTS.TV (640). ASSEMBLE WITH COPY:MTS.MACROS (344), COPY:SETPARM (653), AND *SYSMAC. 0 Referenced by comments of: 344/1, 578/2 00578/02 RSF UU G MTS:RSFUPD D3.2T1 527 RSF..UU.02 1 LINE 72 7 PAGE UM PIRKOLA MAR. 21, 1975 01:55:51 0 UPDATE TO D3 MASTER (578/1) TO PRODUCE CURRENT SOURCE. UPDATE DECK USES %POSN *IN* RSF. 00578/03 RSF OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM PIRKOLA 00579/01 SYSDEFS SA G SYSD MTS:SYSDEFS(1,999) D3.2T1 528 SYSDEFS..SA.01 1 LINE 80 9 PAGE UM MTA MAR. 21, 1975 01:55:54 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/4). ASSEMBLE WITH COPY:SETPARM (653). 00579/02 SYSDEFS 370 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00579/03 SYSDEFS 360 OBJECT OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00580/01 *INDEX SP W016:RAWINDEX D3T5 3 INDEX..SP.1 1 LINE 71 8 PAGE UM LEADER AUG. 02, 1973 00:14.59 0 PROGRAM TO PRODUCE MANUAL INDICES. WILL PRODUCE INDEX AS TEXT/360 INPUT, FORMAT INPUT, OR REGULAR PRINTED OUTPUT. 00580/02 *INDEX OC W016:INDEX D3T5 4 INDEX..OC.2 1 LINE 80 17 PAGE UM LEADER AUG. 02, 1973 00:15.02 0 END WITH A "$CONTINUE WITH *PL1LIB" CARD. 00581/01 INDEXGT SA G INDX W010:GTSOURCE D3T5 5 INDEXGT..SA.1 1 LINE 80 3 PAGE UM GALLER AUG. 02, 1973 00:15.05 0 INDEXGT IS AN OBJECT-CODE FUNCTION TO BE USED BY A SNOBOL PROGRAM (VIA THE SNOBOL4 'LOAD' FUNCTION). IT PROVIDES A COMPARISON OPERATOR FOR THE COLLATING SEQUENCE WHICH IS THE SAME AS THE 360 COLLATING SEQUENCE EXCEPT THAT THE LOWERCASE LETTERS APPEAR RIGHT AFTER THEIR UPPERCASE EQUIVALENTS. THIS IS SO THAT THE INDEX PRODUCED BY THE INDEX PROGRAM SORTS PROPERLY. 00581/02 INDEXGT OC G W010:INDEXGT D3T5 6 INDEXGT..OC.2 1 LINE 80 1 PAGE UM GALLER AUG. 02, 1973 00:15.06 0 OBJECT CONTAINS A REP CARD. 00582/01 LIBRARY INDEX PROGRAM C DWB:LIBRARY D3T5 7 LIBRARY_INDEX_PROGRAM..C.1 1 LINE 138 1 PAGE UM DWB AUG. 02, 1973 00:15.08 0 COMMAND FILE TO RUN LIBRARY INDEX PROGRAM. THIS PROGRAM IS USED AT UM TO MAINTAIN AN INDEX AND BIBLIOGRAPHY FOR THE COMPUTING CENTER LIBRARY. COMMAND FILE REFERS TO *SORT, QUIC1 AND QUIC2 (SEE COMP 584), DWB:KWSCARDS (582/4), AND REQUIRES THE FILE "LIBCARDS" FOR ITS OUTPUT. 0 Referenced by comments of: 584/1 00582/02 LIBRARY INDEX PROGRAM SP DWB:LIBRARY.S D3T5 8 LIBRARY_INDEX_PROGRAM..SP.2 1 LINE 68 3 PAGE UM DWB AUG. 02, 1973 00:15.10 00582/03 LIBRARY INDEX PROGRAM OC DWB:LIBRARY.O D3T5 9 LIBRARY_INDEX_PROGRAM..OC.3 1 LINE 80 5 PAGE UM DWB AUG. 02, 1973 00:15.13 00582/04 LIBRARY INDEX PROGRAM QUIC1 INPUT D DWB:KWSCARDS D3T5 10 LIBRARY_INDEX_PROGRAM.QUIC.D.4 1 LINE 36 1 PAGE UM DWB AUG. 02, 1973 00:15.15 0 INPUT LINES FOR QUIC1 (SEE COMP 584). 0 Referenced by comments of: 582/1 00583/01 KWIC/360 PHASE A SP DWB:KWIC/360(1,319) D3T5 11 KWIC/360.PHASE_A.SP.1 1 LINE 80 8 PAGE UM DWB AUG. 02, 1973 00:15.18 0 MODIFIED VERSION OF IBM PROGRAM 360D-06.7.014. PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION. SOURCE FOR PHASE A. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00583/02 KWIC/360 PHASE A OC DWB:KWICA D3T5 12 KWIC/360.PHASE_A.OC.2 1 SEQ 80 7 PAGE UM DWB AUG. 02, 1973 00:15.20 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/03 KWIC/360 PHASE B SP DWB:KWIC/360(321,476) D3T5 13 KWIC/360.PHASE_B.SP.3 1 LINE 80 5 PAGE UM DWB AUG. 02, 1973 00:15.22 0 SOURCE FOR PHASE B. 00583/04 KWIC/360 PHASE B OC DWB:KWICB D3T5 14 KWIC/360.PHASE_B.OC.4 1 SEQ 80 3 PAGE UM DWB AUG. 02, 1973 00:15.24 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/05 KWIC/360 PHASE C SP DWB:KWIC/360(478,751) D3T5 15 KWIC/360.PHASE_C.SP.5 1 LINE 80 7 PAGE UM DWB AUG. 02, 1973 00:15.27 0 SOURCE FOR PHASE C. 00583/06 KWIC/360 PHASE C OC DWB:KWICC D3T5 16 KWIC/360.PHASE_C.OC.6 1 SEQ 80 4 PAGE UM DWB AUG. 02, 1973 00:15.29 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/07 KWIC/360 PHASE D SP DWB:KWIC/360(753,987) D3T5 17 KWIC/360.PHASE_D.SP.7 1 LINE 80 6 PAGE UM DWB AUG. 02, 1973 00:15.31 0 SOURCE FOR PHASE D. 00583/08 KWIC/360 PHASE D OC DWB:KWICD D3T5 18 KWIC/360.PHASE_D.OC.8 1 SEQ 80 4 PAGE UM DWB AUG. 02, 1973 00:15.33 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/09 KWIC/360 SCAN2 SUBR SA DWB:KWIC/360(989,1029) D3T5 19 KWIC/360.SCAN2_SUBR.SA.9 1 LINE 80 2 PAGE UM DWB AUG. 02, 1973 00:15.36 0 SUBROUTINE CALLED BY PHASE A. OBJECT IS IN 583/2. 00583/10 KWIC/360 TRANS SUBR SA DWB:KWIC/360(1031,1066) D3T5 20 KWIC/360.TRANS_SUBR.SA.10 1 LINE 80 1 PAGE UM DWB AUG. 02, 1973 00:15.38 0 SUBROUTINE CALLED BY BOTH PHASE A AND PHASE B. OBJECT IS IN 583/2 AND 583/4. 00583/11 KWIC/360 TEST DATA D DWB:KWIC/360(1068) D3T5 21 KWIC/360.TEST_DATA.D.11 1 LINE 80 7 PAGE UM DWB AUG. 02, 1973 00:15.40 0 INPUT FOR TEST RUN IS AS FOLLOWS: LINES 1068-1083 ARE PRIMARY STOPWORDS LINES 1084-1085 ARE SECONDARY STOPWORDS LINES 1086-LAST ARE INPUT CARDS 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00584/01 QUIC PHASE 1 SP DWB:QUIC.S(252,1249) D3T5 22 QUIC.PHASE_1.SP.1 1 LINE 81 22 PAGE UM DWB AUG. 02, 1973 00:15.43 0 THIS IS THE IBM PROGRAM 360D-06.7.022. IT IS USED AS FOLLOWS: RUN PHASE 1 (QUIC1), THEN *SORT, THEN PHASE 2 (QUIC2). THE LIBRARY INDEX PROGRAM (582/1) SHOWS AN EXAMPLE RUN. PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION. 00584/02 QUIC PHASE 1 OC DWB:QUIC1 D3T5 23 QUIC.PHASE_1.OC.2 1 LINE 80 20 PAGE UM DWB AUG. 02, 1973 00:15.50 00584/03 QUIC PHASE 2 SP DWB:QUIC.S(1347,1496) D3T5 24 QUIC.PHASE_2.SP.3 1 LINE 80 4 PAGE UM DWB AUG. 02, 1973 00:15.54 00584/04 QUIC PHASE 2 OC DWB:QUIC2 D3T5 25 QUIC.PHASE_2.OC.4 1 LINE 80 4 PAGE UM DWB AUG. 02, 1973 00:15.56 00584/05 QUIC TEST DATA D DWB:QUIC.S(1269,1320) D3T5 26 QUIC.TEST_DATA.D.5 1 LINE 80 2 PAGE UM DWB AUG. 02, 1973 00:15.57 00585/01 CALC CLS SA G CALC S0579 SAVE 'JWS - SAVE' FSNAME=CALC.S D3.2T1 529 CALC.CLS.SA.01 1 LINE 80 46 PAGE UM JWS MAR. 15, 1975 18:25:22 0 THIS IS THE SOURCE FOR THE MTS $CALC COMMAND. THE CALC COMMAND IS IMPLEMENTED AS A COMMAND LANGUAGE SUB-SYSTEM (CLS). IT COPIES COPY:CLSPLAN (535/1) AND COPY:CLSVECTOR (535/2). 00585/02 CALC CLS OE G *CLSCALC D3.2T1 530 CALC.CLS.OE.02 1 LINE 80 7 PAGE UM JWS MAR. 21, 1975 01:55:59 0 NORMALLY LOADED BY SEG 2 LOADER AT IPL. 00585/03 CALC $CALC WRITEUP WF W098:SMM279 D3.2T1 531 CALC.$CALC_WRITEUP.WF.03 1 LINE 96 3 PAGE UM JWS MAR. 21, 1975 01:56:00 0 THIS IS COMPUTING CENTER MEMO M279 -- "CHANGES TO THE MTS $CALC COMMAND" 00585/04 CALC SUBROUTINE SA G CLCS S0579 SAVE 'JWS - SAVE' FSNAME=CALC.SUB.S D3.2T1 532 CALC.SUBROUTINE.SA.04 1 LINE 80 8 PAGE UM JWS OCT. 09, 1974 11:43.10 0 USER CALLABLE SUBROUTINE INTERFACE TO CALC CLS. COPIES SPECIFIC LINE NUMBER RANGES FROM COPY:CLSPLAN (0535/1). ASSEMBLE USING *SYSMAC. 00585/05 CALC SUBROUTINE OC G # *LIBRARY (SEE COMP 524) UM JWS 00585/06 CALC SUBR WRITEUP WF W098:SMM280 D3.2T1 533 CALC.SUBR_WRITEUP.WF.06 1 LINE 128 3 PAGE UM JWS MAR. 21, 1975 01:56:38 0 THIS IS COMPUTING CENTER MEMO M280 -- "A SUBROUTINE INTERFACE TO THE CALC COMMAND ROUTINES" 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00586/01 COST SUBR SA G COST S0027 DISTRB FSNAME=COST D3.2T1 534 COST_SUBR..SA.01 1 LINE 80 7 PAGE UM ENGLE MAR. 12, 1975 11:10:35 0 SUBROUTINE TO COMPUTE CURRENT COST OF RUN. (E.G. CALLED BY MTS FOR $DISPLAY $). COPIES ACCFORMAT (104/1), COPY:RATEVEC (651/2), AND GRDEF (104/57). 00586/02 COST SUBR OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM ENGLE 0 PATCHED TO AGREE WITH SOURCE. 00587/01 RESEQUENCING PGM SA RSEQ UBC:RSEQ.S D3T5 31 RESEQUENCING_PGM..SA.1 1 LINE 80 4 PAGE UBC HOGG AUG. 02, 1973 00:23.52 0 TO USE THIS PROGRAM: $RUN RSEQ SCARDS=INPUT SPUNCH=OUTPUT SERCOM=ERRORS PAR=SEQNAME WHERE SEQNAME IS A 1 TO 8 CHARACTER SEQUENCE FIELD INITIALIZER. IF OMITTED, THE SEQUENCE DEFAULTS TO 00000001, 00000002, ETC. IF THE LAST CHARACTER OF SEQNAME IS 1, THE SEQUENCING TAKES PLACE AT THAT COLUMN. FOR EXAMPLE, IF PAR=BARF IS GIVEN, THE SEQUENCE IS BARF0001, BARF0002, ETC. IF PAR=BARF01 IS GIVEN, THE SEQUENCE IS BARF0100, BARF0200, ETC. SEQUENCING INTRUDES INTO THE ALPHABETIC FIELD IF NECESSARY. FOR EXAMPLE, THE SEQUENCE ID FOLLOWING BARF9999 IS BARG0000. 00587/02 RESEQUENCING PGM OC UBC:RSEQ D3T5 32 RESEQUENCING_PGM..OC.2 1 LINE 80 2 PAGE UBC HOGG AUG. 02, 1973 00:23.54 00588/01 INTERCOM SA G EAIC S0938 FSAVE2 FSNAME=CEAIC.S D3.2T1 535 INTERCOM..SA.01 1 LINE 80 12 PAGE UM MTA 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. COPIES COPY:CHAPSA(1,50) (577/34), COPY:PSA (162), AND COPY:LLMPSEQU (087). 00588/02 INTERCOM OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 00589/01 I/O INBOARD ERROR REC SA G EAI7 S0938 FSAVE2 FSNAME=CEAI7.S D3.2T1 536 I/O_INBOARD_ERROR_REC..SA.01 1 LINE 80 8 PAGE UM MTA FEB. 13, 1975 23:53:49 0 360/67 I/O INBOARD ERROR RECORDING. MODIFIED FROM TSS/360. COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:CHAIER (577/32), AND COPY:CHAERC (577/30). 00589/02 I/O INBOARD ERROR REC OC G # RESIDENT SYSTEM (SEE COMP 468/2) UM MTA 0 NOT USED ON 370. 00590/01 SPITBOL SYS INTERFACE UU G W086:SPIT.OSI.U D3.1T1 451 SPITBOL.SYS_INTERFACE.UU.1 1 LINE 72 18 PAGE UM DE JONG MAR. 06, 1974 22:29.42 0 BY CONTRACT, THE SOURCE AND OBJECT FOR SPITBOL CANNOT BE DISTRIBUTED. CONTACT ROBERT DE WAR AT THE ILLINOIS INSTITUTE OF TECHNOLOGY, CHICAGO, IL, USA. UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6. 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00590/02 SPITBOL ZAP CONVERT SS G W086:ZAPCNV D3T5 36 SPITBOL.ZAP_CONVERT.SS.2 1 LINE 72 1 PAGE UM DE JONG AUG. 02, 1973 00:24.06 0 SNOBOL PROGRAM TO CONVERT SPITBOL SUPERZAP DECKS INTO MTS COM AND REP LOADER CARDS. 00590/03 SPITBOL UPDATE UU G W086:SPIT.MAIN.U D3.1T1 452 SPITBOL.UPDATE.UU.3 1 LINE 67 6 PAGE UM DE JONG MAR. 06, 1974 22:30.03 0 UPDATE DECK TO BRING THE SPITBOL COMPILER AND LIBRARY FROM VERSION 2.2.0 TO 2.2.6. 00590/04 SPITBOL USERS GUIDE WF W098:M252 D3.1T1 453 SPITBOL.USERS_GUIDE.WF.4 1 LINE 114 31 PAGE UM DE JONG MAR. 06, 1974 22:30.13 0 THIS IS COMPUTING CENTER MEMO M252 -- "SPITBOL USER'S GUIDE V2.2" 00591/01 CFDUB SA G CFDB MTS:CFDUB(1,999) D3T5 39 CFDUB..SA.1 1 LINE 80 1 PAGE UM MTA AUG. 02, 1973 00:24.12 0 SUBROUTINE TO COMPARE TWO FDUBS TO SEE IF THEY ARE ASSIGNED TO THE SAME THING. TO USE, CALL CFDUB(F1,F2) WHERE F1 AND F2 ARE CHKFDUB THINGS. RC=0 MEANS THAT THEY'RE THE SAME, RC=4 MEANS THEY'RE DIFFERENT, RC=8 MEANS THAT AT LEAST ONE IS INVALID. FOR EXAMPLE, CALL CFDUB('SPUNCH ','SPRINT ',&1,&2). COPIES COPY:FDUBDSECT (623). 00591/02 CFDUB OC G # RESIDENT SYSTEM (SEE COMP 468/1) UM MTA 00592 OPERATORS MANUAL WF MTS:OPERMANUAL D3T5 40 OPERATORS_MANUAL..WF. 1 LINE 179 40 PAGE UM DWB AUG. 02, 1973 00:24.14 0 MTS OPERATOR'S MANUAL. IT IS DESIGNED TO HAVE THE OPERATOR MESSAGES FROM THE MESSAGE MANUAL (555) INSERTED AFTER THE LAST PAGE. 0 Referenced by comments of: 387/15 00593 *GFINFODSECT SA G GFID *GFINFODSECT D3.2T1 537 GFINFODSECT..SA. 1 LINE 80 3 PAGE UM PIRKOLA MAR. 21, 1975 01:58:03 0 COPY SECTION FOR DSECTS DEFINING INFORMATION REGIONS USED IN CONJUNCTION WITH THE GFINFO SUBROUTINE (PART OF 578/1). 0 Referenced by comments of: 47/1, 212/1, 441/1, 465/1, 502/1, 529/1, 548/2, 578/1, 630/1, 1019/27 00594 *GDINFODSECT SA G GDID *GDINFODSECT D3.2T1 538 GDINFODSECT..SA. 1 LINE 80 2 PAGE UM DWB MAR. 21, 1975 01:58:05 0 COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE. 0 Referenced by comments of: 531/4, 531/8, 531/24, 621/4 00595/01 APL - GMRL INSTALLATION P S0625 GMAPL 'APL SOURCE' FSNAME=DESCRIPTION 1 D3T5 43 APL_-_GMRL.INSTALLATION.P.1 1 LINE 73 1 PAGE UM HAMILTON JULY 16, 1973 01:42.51 0 THIS IS THE GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE (APL), NOT TO BE CONFUSED WITH COMPONENT 465 (*APL). APL (PRONOUNCED "APPLE") IS A SUPERSET OF PL/I, WHICH HAS EXTENSIONS IN THE AREA OF DATA STRUCTURE PROCESSING. IT IS 1 FRI AUG 02/96 19:04:25 Page 224 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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/02 APL - GMRL *APLGM OE G S0625 GMAPL 'APL SOURCE' FSNAME=*APLGM 2 D3T5 44 APL_-_GMRL.*APLGM.OL.2 1 SEQ 1812 1 PAGE UM HAMILTON JULY 16, 1973 01:43.06 0 COMPONENTS 595/2 THROUGH 595/5 ARE THE FOUR APL OBJECT FILES AS DESCRIBED IN CCMEMO M236 (SEE 595/93). 00595/03 APL - GMRL *APLTRAN OE G S0625 GMAPL 'APL SOURCE' FSNAME=*APLTRAN 3 D3T5 45 APL_-_GMRL.*APLTRAN.OL.3 1 SEQ 32767 47 PAGE UM HAMILTON JULY 16, 1973 01:43.19 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/04 APL - GMRL *APLLIB OL G S0625 GMAPL 'APL SOURCE' FSNAME=*APLLIB 4 D3T5 46 APL_-_GMRL.*APLLIB.OL.4 1 SEQ 4222 21 PAGE UM HAMILTON JULY 16, 1973 01:43.32 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/05 APL - GMRL *APLEDCL OE G S0625 GMAPL 'APL SOURCE' FSNAME=*APLEDCL 5 D3T5 47 APL_-_GMRL.*APLEDCL.OL.5 1 SEQ 10704 7 PAGE UM HAMILTON JULY 16, 1973 01:43.44 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/06 APL - GMRL APLLL0 SA G S0625 GMAPL 'APL SOURCE' FSNAME=APLLL0 6 D3T5 48 APL_-_GMRL.APLLL0.SA.6 1 LINE 68 4 PAGE UM HAMILTON JULY 16, 1973 01:43.54 0 THE SOURCE FOR *APLGM. ASSEMBLE WITH *SYSMAC. 00595/07 APL - GMRL XAPL SP G S0625 GMAPL 'APL SOURCE' FSNAME=XAPL 7 D3T5 49 APL_-_GMRL.XAPL.SP.7 1 LINE 72 6 PAGE UM HAMILTON JULY 16, 1973 01:45.18 0 COMPONENTS 595/7 THROUGH 595/48 ARE THE SOURCE FOR *APLTRAN. 00595/08 APL - GMRL MINITERM SP G S0625 GMAPL 'APL SOURCE' FSNAME=MINITERM 8 D3T5 50 APL_-_GMRL.MINITERM.SP.8 1 LINE 73 4 PAGE UM HAMILTON JULY 16, 1973 01:45.20 00595/09 APL - GMRL MAPLGET SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGET 9 D3T5 51 APL_-_GMRL.MAPLGET.SP.9 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:45.23 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/10 APL - GMRL MCARDGET SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCARDGET 10 D3T5 52 APL_-_GMRL.MCARDGET.SP.10 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.26 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00595/11 APL - GMRL MCHMOVE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHMOVE 11 D3T5 53 APL_-_GMRL.MCHMOVE.SP.11 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.30 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/12 APL - GMRL MCHSCAN SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHSCAN 12 D3T5 54 APL_-_GMRL.MCHSCAN.SP.12 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.33 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/13 APL - GMRL MAPLGOOF SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGOOF 13 D3T5 55 APL_-_GMRL.MAPLGOOF.SP.13 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.36 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/14 APL - GMRL MAPLPUT SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLPUT 14 D3T5 56 APL_-_GMRL.MAPLPUT.SP.14 1 LINE 71 3 PAGE UM HAMILTON JULY 16, 1973 01:45.39 00595/15 APL - GMRL MCARDPUT SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCARDPUT 15 D3T5 57 APL_-_GMRL.MCARDPUT.SP.15 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.42 00595/16 APL - GMRL MAPLNAME SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLNAME 16 D3T5 58 APL_-_GMRL.MAPLNAME.SP.16 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.46 00595/17 APL - GMRL MCHNAM1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM1 17 D3T5 59 APL_-_GMRL.MCHNAM1.SP.17 1 LINE 71 2 PAGE UM HAMILTON JULY 16, 1973 01:45.49 00595/18 APL - GMRL MCHNAM2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM2 18 D3T5 60 APL_-_GMRL.MCHNAM2.SP.18 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.52 00595/19 APL - GMRL MCHNAM3 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHNAM3 19 D3T5 61 APL_-_GMRL.MCHNAM3.SP.19 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:45.55 00595/20 APL - GMRL MBEGPRC SP G S0625 GMAPL 'APL SOURCE' FSNAME=MBEGPRC 20 D3T5 62 APL_-_GMRL.MBEGPRC.SP.20 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:45.59 00595/21 APL - GMRL MDIAGNS SP G S0625 GMAPL 'APL SOURCE' FSNAME=MDIAGNS 21 D3T5 63 APL_-_GMRL.MDIAGNS.SP.21 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:46.02 00595/22 APL - GMRL MENTDCL SP G S0625 GMAPL 'APL SOURCE' FSNAME=MENTDCL 22 D3T5 64 APL_-_GMRL.MENTDCL.SP.22 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:46.05 00595/23 APL - GMRL MSCOPE01 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE01 23 D3T5 65 APL_-_GMRL.MSCOPE01.SP.23 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:46.08 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00595/24 APL - GMRL MSCOPE02 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE02 24 D3T5 66 APL_-_GMRL.MSCOPE02.SP.24 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:46.11 00595/25 APL - GMRL MSCOPE03 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE03 25 D3T5 67 APL_-_GMRL.MSCOPE03.SP.25 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:46.15 00595/26 APL - GMRL MSCOPE04 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE04 26 D3T5 68 APL_-_GMRL.MSCOPE04.SP.26 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:46.18 00595/27 APL - GMRL MSCOPE05 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE05 27 D3T5 69 APL_-_GMRL.MSCOPE05.SP.27 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:46.21 00595/28 APL - GMRL MSCOPE06 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSCOPE06 28 D3T5 70 APL_-_GMRL.MSCOPE06.SP.28 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:46.25 00595/29 APL - GMRL MSUBDCL SP G S0625 GMAPL 'APL SOURCE' FSNAME=MSUBDCL 29 D3T5 71 APL_-_GMRL.MSUBDCL.SP.29 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:46.28 00595/30 APL - GMRL MXCREATE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXCREATE 30 D3T5 72 APL_-_GMRL.MXCREATE.SP.30 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:46.31 00595/31 APL - GMRL MXDCL SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL 31 D3T5 73 APL_-_GMRL.MXDCL.SP.31 1 LINE 72 8 PAGE UM HAMILTON JULY 16, 1973 01:46.35 00595/32 APL - GMRL MXDCL1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL1 32 D3T5 74 APL_-_GMRL.MXDCL1.SP.32 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:46.38 00595/33 APL - GMRL MXDCL2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXDCL2 33 D3T5 75 APL_-_GMRL.MXDCL2.SP.33 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:46.41 00595/34 APL - GMRL MXDELETE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXDELETE 34 D3T5 76 APL_-_GMRL.MXDELETE.SP.34 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:46.44 00595/35 APL - GMRL MXEND SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXEND 35 D3T5 77 APL_-_GMRL.MXEND.SP.35 1 LINE 71 3 PAGE UM HAMILTON JULY 16, 1973 01:46.47 00595/36 APL - GMRL MXFIND SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND 36 D3T5 78 APL_-_GMRL.MXFIND.SP.36 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:46.51 00595/37 APL - GMRL MXFIND1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXFIND1 37 D3T5 79 APL_-_GMRL.MXFIND1.SP.37 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:46.54 00595/38 APL - GMRL MXINSERT SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXINSERT 38 D3T5 80 APL_-_GMRL.MXINSERT.SP.38 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:46.57 00595/39 APL - GMRL MXLET SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXLET 39 D3T5 81 APL_-_GMRL.MXLET.SP.39 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:47.00 00595/40 APL - GMRL MXON SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXON 40 D3T5 82 APL_-_GMRL.MXON.SP.40 1 LINE 71 2 PAGE UM HAMILTON JULY 16, 1973 01:47.03 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00595/41 APL - GMRL MXPLI SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXPLI 41 D3T5 83 APL_-_GMRL.MXPLI.SP.41 1 LINE 72 5 PAGE UM HAMILTON JULY 16, 1973 01:47.06 00595/42 APL - GMRL MXQUEST SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXQUEST 42 D3T5 84 APL_-_GMRL.MXQUEST.SP.42 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:47.09 00595/43 APL - GMRL MXREMOVE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MXREMOVE 43 D3T5 85 APL_-_GMRL.MXREMOVE.SP.43 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:47.12 00595/44 APL - GMRL MX4EACH SP G S0625 GMAPL 'APL SOURCE' FSNAME=MX4EACH 44 D3T5 86 APL_-_GMRL.MX4EACH.SP.44 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:47.15 00595/45 APL - GMRL MAPLGO SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGO 45 D3T5 87 APL_-_GMRL.MAPLGO.SP.45 1 LINE 68 1 PAGE UM HAMILTON JULY 16, 1973 01:47.18 00595/46 APL - GMRL XPLEMES SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLEMES(1) 46 D3T5 88 APL_-_GMRL.XPLEMES.SP.46 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:47.22 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB. 00595/47 APL - GMRL MXXLOCSET SA G S0625 GMAPL 'APL SOURCE' FSNAME=MXXLOCSET 47 D3T5 89 APL_-_GMRL.MXXLOCSET.SA.47 1 LINE 67 1 PAGE UM HAMILTON JULY 16, 1973 01:47.25 0 ASSEMBLE WITH *SYSMAC AND PL1MACLIB (595/88). 00595/48 APL - GMRL XPLFORM SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFORM(1) 48 D3T5 90 APL_-_GMRL.XPLFORM.SA.48 1 LINE 71 4 PAGE UM HAMILTON JULY 16, 1973 01:47.28 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLLIB. ASSEMBLE WITH *SYSMAC AND PL1MACLIB (595/88). 00595/49 APL - GMRL XPLCONA SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLCONA 49 D3T5 91 APL_-_GMRL.XPLCONA.SP.49 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:47.31 0 COMPONENTS 595/49 THROUGH 595/86 PLUS 595/46 AND 595/48 ARE THE SOURCE FOR *APLLIB. 00595/50 APL - GMRL XPLCON SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLCON 50 D3T5 92 APL_-_GMRL.XPLCON.SP.50 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:47.34 00595/51 APL - GMRL XPLCRT1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT1 51 D3T5 93 APL_-_GMRL.XPLCRT1.SP.51 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:47.38 00595/52 APL - GMRL XPLCRT2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLCRT2 52 D3T5 94 APL_-_GMRL.XPLCRT2.SP.52 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:47.41 00595/53 APL - GMRL XPLDEL1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL1 53 D3T5 95 APL_-_GMRL.XPLDEL1.SP.53 1 LINE 70 1 PAGE UM HAMILTON JULY 16, 1973 01:47.44 00595/54 APL - GMRL XPLDEL2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL2 54 D3T5 96 APL_-_GMRL.XPLDEL2.SP.54 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:47.47 00595/55 APL - GMRL XPLDEL3 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLDEL3 55 D3T5 97 APL_-_GMRL.XPLDEL3.SP.55 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:47.51 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00595/56 APL - GMRL XPLESET SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLESET 56 D3T5 98 APL_-_GMRL.XPLESET.SP.56 1 LINE 63 1 PAGE UM HAMILTON JULY 16, 1973 01:47.54 00595/57 APL - GMRL XPLEVAR SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLEVAR 58 D3T5 99 APL_-_GMRL.XPLEVAR.SP.57 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:48.00 00595/58 APL - GMRL XPLFND1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND1 59 D3T5 100 APL_-_GMRL.XPLFND1.SP.58 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:48.03 00595/59 APL - GMRL XPLFND2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND2 60 D3T5 101 APL_-_GMRL.XPLFND2.SP.59 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:48.07 00595/60 APL - GMRL XPLFND3 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFND3 61 D3T5 102 APL_-_GMRL.XPLFND3.SP.60 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:48.10 00595/61 APL - GMRL XPLGO SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLGO 62 D3T5 103 APL_-_GMRL.XPLGO.SP.61 1 LINE 68 1 PAGE UM HAMILTON JULY 16, 1973 01:48.13 00595/62 APL - GMRL XPLGARB SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLGARB 63 D3T5 104 APL_-_GMRL.XPLGARB.SP.62 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:48.16 00595/63 APL - GMRL XPLNUMB SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLNUMB 64 D3T5 105 APL_-_GMRL.XPLNUMB.SP.63 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:48.19 00595/64 APL - GMRL XPLINDX SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLINDX 65 D3T5 106 APL_-_GMRL.XPLINDX.SP.64 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:48.23 00595/65 APL - GMRL XPLNOBL SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLNOBL 66 D3T5 107 APL_-_GMRL.XPLNOBL.SP.65 1 LINE 71 3 PAGE UM HAMILTON JULY 16, 1973 01:48.26 00595/66 APL - GMRL XPLNSRT SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLNSRT 67 D3T5 108 APL_-_GMRL.XPLNSRT.SP.66 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:48.29 00595/67 APL - GMRL XPLOWNI SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWNI 68 D3T5 109 APL_-_GMRL.XPLOWNI.SP.67 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:48.32 00595/68 APL - GMRL XPLOWRS SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLOWRS 69 D3T5 110 APL_-_GMRL.XPLOWRS.SP.68 1 LINE 70 1 PAGE UM HAMILTON JULY 16, 1973 01:48.35 00595/69 APL - GMRL XPLREL0 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL0 70 D3T5 111 APL_-_GMRL.XPLREL0.SP.69 1 LINE 70 1 PAGE UM HAMILTON JULY 16, 1973 01:48.38 00595/70 APL - GMRL XPLREL1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLREL1 71 D3T5 112 APL_-_GMRL.XPLREL1.SP.70 1 LINE 70 1 PAGE UM HAMILTON JULY 16, 1973 01:48.42 00595/71 APL - GMRL XPLSNAM SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLSNAM 72 D3T5 113 APL_-_GMRL.XPLSNAM.SP.71 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:48.45 00595/72 APL - GMRL XPLRMV1 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV1 73 D3T5 114 APL_-_GMRL.XPLRMV1.SP.72 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:48.48 1 FRI AUG 02/96 19:04:25 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 + ______________ _____________________ 00595/73 APL - GMRL XPLRMV2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV2 74 D3T5 115 APL_-_GMRL.XPLRMV2.SP.73 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:48.51 00595/74 APL - GMRL XPLTYPE SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLTYPE 75 D3T5 116 APL_-_GMRL.XPLTYPE.SA.74 1 LINE 59 1 PAGE UM HAMILTON JULY 16, 1973 01:48.55 0 COMPONENTS 595/74 THROUGH 595/86 SHOULD BE ASSEMBLED WITH *SYSMAC AND PL1MACLIB (595/88). 00595/75 APL - GMRL XPLUDAT SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLUDAT 76 D3T5 117 APL_-_GMRL.XPLUDAT.SA.75 1 LINE 72 7 PAGE UM HAMILTON JULY 16, 1973 01:48.58 00595/76 APL - GMRL XPLADDR SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLADDR 77 D3T5 118 APL_-_GMRL.XPLADDR.SA.76 1 LINE 40 1 PAGE UM HAMILTON JULY 16, 1973 01:49.01 00595/77 APL - GMRL XPLALOC SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLALOC 78 D3T5 119 APL