1 FRI AUG 02/96 18:37:32 Page 1 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00001/1 UMLOAD 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/2 UMLOAD D3.1 UPDATE UU G W009:UMLOAD.U D3.1T1 1 UMLOAD.D3.1_UPDATE.UU.2 1 LINE 72 3 PAGE UM DE JONG MAR. 06, 1974 03:15.01 0 UPDATE DECK TO PRODUCE D3.1 UMLOAD FROM D3.0 MASTER SOURCE (001/1). 00001/3 UMLOAD OC G # RESIDENT SYSTEM (SEE COMP 468) UM DE JONG 00001/4 UMLOAD WRITEUP WF G W098:KDEJONGUM D3.1T1 2 UMLOAD.WRITEUP.WF.4 1 LINE 101 1 PAGE UM DE JONG MAR. 06, 1974 03:15.02 0 WRITEUP DESCRIBING THE DIFFERENCES BETWEEN D3.0 AND D3.1 UMLOAD. 00003/1 JOBLIST SA G JBLS MTA:JOBLIST 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/2 JOBLIST OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00004/1 TABLES SA G TABL WSG:TABLES(1,999) D3.1T1 4 TABLES..SA.1 1 LINE 80 18 PAGE UM WSG MAR. 06, 1974 03:15.07 0 TABLES THAT DEFINE THE HARDWARE CONFIGURATION FOR THE UM DUPLEX 67, THE NUMBER OF LOW-CORE TERMINAL I/O BUFFERS, THE LIST OF PUBLIC DISK VOLUME NAMES AND CORRESPONDING DISK DRIVES. (NOTE: *DSK (073) CAN BE USED BY THE OPERATOR TO MAKE CHANGES IN THE LIST OF DISK VOLUMES.) COPIES COPY:LLMPSEQU (087) AND COPY:DSKDSCT (482/42). THIS DECK IS DISTRIBUTED AS AN EXAMPLE OF A COMPLICATED I/O CONFIGURATION. OBVIOUSLY, EACH INSTALLATION MUST SUPPLY ITS OWN TABLES. THE DISTRIBUTED VERSION HAS 80 TERMINAL BUFFERS-- A NUMBER WHICH SHOULD BE REDUCED TO SAVE SPACE ON SMALLER SYSTEMS. FOR D3.1, TABLES HAS BEEN CHANGED TO ADD THE OPERDEVS AND OPERTBL ENTRIES OF INFORMATION USED BY THE 3270 OPERATOR JOB PROGRAM (634/1). 0 Referenced by comments of: 482/10 00004/2 TABLES OC G # RESIDENT SYSTEM (SEE COMP 468) UM WSG 00004/3 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 1 FRI AUG 02/96 18:37:32 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/4 TABLES DECKGEN SA G DCKP W047:DCKPCHR.S D3.1T1 5 TABLES.DECKGEN.SA.4 1 LINE 80 67 PAGE UM HAMILTON MAR. 06, 1974 03:15.16 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. FOR D3.1, THIS PROGRAM HAS BEEN MODIFIED TO FIX SEVERAL BUGS AND TO INCLUDE THE OPERDEVS AND OPERTBL ENTRIES. SEE THE WRITEUP (004/6). 00004/5 TABLES DECKGEN OC G W047:DCKPCHR.O D3.1T1 6 TABLES.DECKGEN.OC.5 1 LINE 80 7 PAGE UM HAMILTON MAR. 06, 1974 03:15.43 0 THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE. 00004/6 TABLES DECKGEN DESCR WF W047:DCKPCHR.W D3.1T1 7 TABLES.DECKGEN_DESCR.WF.6 1 LINE 108 6 PAGE UM HAMILTON MAR. 06, 1974 03:15.45 0 WRITEUP DESCRIBING HOW TO USE THE DECKGEN PROGRAM TO GENERATE A TABLES OBJECT DECK. A COPY IS INCLUDED WITH THE PAPER DOCUMENTATION. 0 Referenced by comments of: 4/4 00005/1 JBRP SA G JBRP MTA:JBRP D3.1T1 8 JBRP..SA.1 1 LINE 80 8 PAGE UM MTA MAR. 06, 1974 03:15.48 0 JOB REQUEST PROCESSOR (TASK INITIALIZATION). COPIES COPY:LLMPSEQU (087). 00005/2 JBRP OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00006/1 FNDJTL SA G FNDJ S0370 'D1T1' FMT=FB(6400,80) 22 D3T1 7 FNDJTL..SA.1 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:00.56 0 FIND JOB TABLE. UNCHANGED SINCE DIST 1.0. 00006/2 FNDJTL OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00007/1 FBJTL SA G FBJT MTA:FBJTJL(1,999) D3T1 8 FBJTL..SA.1 1 LINE 80 4 PAGE UM MTA JULY 30, 1973 23:00.56 0 FREE BUFFERS AND JOB TABLE. COPIES COPY:LLMPSEQU (087). 00007/2 FBJTL OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00008/1 FIDCQ SA G FIDC MTA:FIDCQ D3T1 9 FIDCQ..SA.1 1 LINE 80 3 PAGE UM MTA JULY 30, 1973 23:00.59 0 FREE I/O DEVICES AND CPU QUEUE. COPIES COPY:LLMPSEQU (087). THIS COPY STATEMENT IS THE ONLY CHANGE SINCE DIST 1.0. 1 FRI AUG 02/96 18:37:32 Page 3 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00008/2 FIDCQ OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00009/1 BUFALLOC SA G BUFA MTA:BUFALLOC(1,999) D3T1 10 BUFALLOC..SA.1 1 LINE 80 3 PAGE UM MTA JULY 30, 1973 23:01.01 0 SUBROUTINE TO ALLOCATE AND RELEASE 128-BYTE, LOW-CORE, TERMINAL, I/O BUFFERS. THIS ROUTINE IS CALLED BY SEVERAL TERMINAL DEVICE SUPPORT ROUTINES (TSFO, PDP8RTN, MNETRTN, ETC). IT ALLOCATES BUFFERS FROM A POOL OF BUFFERS WHICH ARE PART OF TABLES AND WHICH BUFALLOC REFERENCES WITH THE TABLES EXTERNAL SYMBOL 'TERMBFRS'. THE PURPOSE OF THESE BUFFERS IS TO HAVE THE TERMINAL ROUTINES DOING I/O INTO REAL-CORE BUFFERS, THUS AVOIDING THE OVERHEAD OF HAVING MANY VM PAGES LOCKED IN CORE DURING TERMINAL I/O. THE BUFSTAT PROGRAM (618) PRINTS WHICH JOB IS USING WHICH BUFFER(S). 00009/2 BUFALLOC OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00010/1 EXIT SA G EXIT MTA:EXIT(1,999) D3.1T1 9 EXIT..SA.1 1 LINE 80 3 PAGE UM MTA MAR. 06, 1974 03:15.50 0 KILLS CALLING TASK. COPIES COPY:LLMPSEQU (087). 00010/2 EXIT OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00011/1 CARDUC SA G CDUC 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/2 CARDUC OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00012/1 TAPEUC SA TPUC WSG:TAPEUC(1,999) D3T1 13 TAPEUC..SA.1 1 LINE 80 15 PAGE UM WSG JULY 30, 1973 23:01.16 0 MAGNETIC TAPE UNIT CHECK ROUTINES. 00012/2 TAPEUC OC # RESIDENT SYSTEM (SEE COMP 468) UM WSG 00013/1 PTRUC SA G PTUC MTA:PTRUC D3T1 14 PTRUC..SA.1 1 LINE 80 9 PAGE UM MTA JULY 30, 1973 23:01.23 0 1403 AND 1443 PRINTER UNIT CHECK ROUTINES. 00013/2 PTRUC OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00014/1 PCHUC SA G PCUC 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. 1 FRI AUG 02/96 18:37:32 Page 4 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00014/2 PCHUC OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00015 DASDUC # (SEE COMP 482) UM 00016/1 CCTRANTB SA G CCTR S0370 'D1T1' FMT=FB(6400,80) 51 D3T1 16 CCTRANTB..SA.1 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:01.33 0 USED BY MTS TO TRANSLATE LOGICAL CARRIAGE CONTROL TO PRINTER COMMANDS. UNCHANGED SINCE DIST 1.0. 00016/2 CCTRANTB OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00017/1 PN XLATE TABLE SA G PNXL S0370 'D1T1' FMT=FB(6400,80) 52 D3T1 17 PN_XLATE_TABLE..SA.1 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:01.33 0 USED TO TRANSLATE 7090 EXTENDED BCD FOR THE PN TRAIN. USED BY CPCC (026) AND OTHERWISE COMPLETELY WORTHLESS. UNCHANGED SINCE DIST 1.0. 00017/2 PN XLATE TABLE OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00018/1 STOP/BLAST/GOOSE JOBS SA G STOP S0370 'D1T1' FMT=FB(6400,80) 27 D3T1 18 STOP/BLAST/GOOSE_JOBS..SA.1 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:01.54 0 THE STOP, BLAST, AND GOOSE UMMPS JOB PROGRAMS. UNCHANGED SINCE DIST 1.0. 00018/2 STOP/BLAST/GOOSE JOBS OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00019/1 TASKS JOB SA G TSKS WSG:UTASKS(1,999) D3.1T1 10 TASKS_JOB..SA.1 1 LINE 80 10 PAGE UM WSG MAR. 06, 1974 03:15.52 0 THE JOB PROGRAM VERSION OF *TASKS (145); CONTAINS THE TSKFMT SUBROUTINE CALLED BY *TASKS. COPIES COPY:LLMPSEQU (087). FOR D3.1, TASKS HAS BEEN CHANGED SO THAT THE OUTPUT IS SLIGHTLY REFORMATED TO ACCOMMODATE LONG RELOCATABLE JOB NAMES (E.G. HASPLING) WITHOUT OVERLAYING THE NAME WITH THE VM PAGE COUNT. IT HAS ALSO BEEN CHANGED TO ALLOW "#" AS A FILL CHARACTER IN THE DEVICE COMMAND, E.G. "TASKS D D20#" WILL FIND ALL DEVICES WHOSE NAMES BEGIN WITH THE CHARACTERS "D20". 0 Referenced by comments of: 145/1 00019/2 TASKS JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM WSG 00020/1 JOBDUMP JOB SA G JBDM S0517 'D2T1' FMT=FB(4000,80) 38 D3T1 20 JOBDUMP_JOB..SA.1 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:03.31 0 UMMPS "JOBDUMP" JOB. USES SVC XJOBDUMP TO DUMP THE SPECIFIED JOB. UNCHANGED SINCE DIST 2.0. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00020/2 JOBDUMP JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00021/1 BROADCST SA G BDCS WSG:BDCS(1,999) D3T1 21 BROADCST..SA.1 1 LINE 80 8 PAGE UM WSG JULY 30, 1973 23:03.32 0 JOB PROGRAM USED BY SYSTEM OPERATOR TO SEND MESSAGES TO A SPECIFIC USER OR TO ALL USERS. COPIES COPY:LLMPSEQU (087). 00021/2 BROADCST OC G # RESIDENT SYSTEM (SEE COMP 468) UM WSG 00022 LOWCORE # (OBSOLETE) UM 00023/1 REW ET AL SA O TPMV S0370 'D1T1' FMT=FB(6400,80) 45 D3T1 22 REW_ET_AL..SA.1 1 SEQ 80 4 PAGE UM MTA JULY 30, 1973 23:03.39 0 JOBS TO MOVE A TAPE (REW, WTM, BSF, BSR, FSF, FSR, ERG) THE WTM JOB DOESN'T USE A MODESET, SO THE DENSITY WILL BE UNPREDICTABLE ON DUAL-DENSITY TAPE CONTROLS. UNCHANGED SINCE DIST 1.0. 00023/2 REW ET AL OC O # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00024/1 ONLINE/OFFLINE SA O ONOF S0720 'D3T1' FSNAME=ONLINE/OFFLINE..SA.1 23 D3T1 23 ONLINE/OFFLINE..SA.1 1 LINE 80 4 PAGE UM MTA JULY 30, 1973 03:31.33 0 JOBS TO ONLINE OR OFFLINE A DEVICE OR CONTROL UNIT. PROBABLY UNCHANGED SINCE DIST 2.0. 00024/2 ONLINE/OFFLINE OC O # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00025/1 QN/PN/TN JOBS SA G UCSI S0517 'D2T1' FMT=FB(4000,80) 41 D3T1 24 QN/PN/TN_JOBS..SA.1 1 SEQ 80 5 PAGE UM MTA JULY 30, 1973 23:03.42 0 THREE ASSEMBLIES THAT LOAD THE 1403 UCS BUFFER FOR QN, PN, OR TN CHARACTER SETS. THE QN JOB CONTAINS A SUBROUTINE USED BY ALL THE REST OF THEM. FOR EXAMPLE, ENTERING "PN PTR1 ECHO" ON THE OPERATOR'S CONSOLE WILL LOAD THE UCS BUFFER FOR PTR1 WITH THE PN CHARACTER SET AND ECHO THE CHARACTERS TO THE PRINTER FOR VERIFICATION. UNCHANGED SINCE DIST 2.0. 00025/2 QN/PN/TN JOBS OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00026/1 CPCC JOB SA G CPCC S0370 'D1T1' FMT=FB(6400,80) 32 D3T1 25 CPCC_JOB..SA.1 1 SEQ 80 7 PAGE UM MTA JULY 30, 1973 23:04.05 0 CARD-TO-PRINT (CP) AND CARD-TO-CARD (CC) JOBS. CP IS DESIGNED FOR LISTING 7090 DECKS AND IS POOR FOR EBCDIC DECKS. 0 Referenced by comments of: 17/1 1 FRI AUG 02/96 18:37:32 Page 6 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00026/2 CPCC JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00027 MOVIT # (SEE COMP 482) 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 00037 GETDSK ETC # (SEE COMP 482) UM 00038/1 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 1 FRI AUG 02/96 18:37:32 Page 7 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 OF COURSE, WHEN APL ITSELF IS RUNNING THE CHARACTERS ARE AS DEFINED BY APL. THIS SET IS USED ONLY WHEN USING THE APL GOLFBALL WITH PROGRAMS OTHER THAN APL. FOR D3.1, THE USE OF PHYSICAL TAB STOPS ON OUTPUT HAS BEEN IMPLEMENTED. ALSO, SEVERAL NEW DEVICE COMMANDS HAVE BEEN ADDED. A FORTHCOMING UPDATE TO MTS VOLUME 4 WILL DETAIL THE USE OF THESE NEW FEATURES. 0 Referenced by comments of: 42/2 00038/2 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/3 TSFO *TTYRTN OC G *TTYRTN D3T1 28 TSFO.*TTYRTN.OC.3 1 LINE 30 1 PAGE UM EMERY JULY 30, 1973 23:04.34 0 THIS FILE CONSISTS OF: $CONTINUE WITH *2741RTN RETURN LDT TEL2 IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL TEL2 IS UNDEFINED IN LCSYMBOL. NORMALLY TEL2 IS DEFINED BY TH1 SEG 2 LOADER AT IPL. 00038/4 TSFO *MRXARTN OC G *MRXARTN D3T1 29 TSFO.*MRXARTN.OC.4 1 LINE 30 1 PAGE UM EMERY JULY 30, 1973 23:04.36 0 THIS FILE CONSISTS OF: $CONTINUE WITH *2741RTN RETURN LDT MRXA IT SERVES THE SAME FUNCTION AS *2741RTN IF THE SYMBOL MRXA IS UNDEFINED IN LCSYMBOL. NORMALLY MRXA IS DEFINED BY THE SEG 2 LOADER AT IPL. 00038/5 TSFO TRTBLGEN SA TGEN W032:TRTBLGEN(1,500) D3T1 30 TSFO.TRTBLGEN.SA.5 1 LINE 80 11 PAGE UM EMERY JULY 30, 1973 23:04.38 0 PROGRAM TO GENERATE TRANSLATE TABLES FOR USE WITH TSFO. IT WAS USED TO GENERATE ALL NON-ASCII TABLES INCLUDED IN THE DECK DISTRIBUTED, AND CAN VERY EASILY BE USED TO GENERATE ANY ARBITRARY TRANSLATE TABLES. LOGICAL I/O UNITS USED ARE: 1 DEFINITION OF NAMES OF CHARACTERS (038/9). 2 DEFINITION OF CHARACTER SET ON THE GOLFBALL. 038/10 AND 038/11 ARE EXAMPLES. 3 DEFINITION OF THE CODE SET BEING USED (EITHER 038/7 OR 038/8). SPRINT PRINTED OUTPUT AND ERROR COMMENTS. SPUNCH NEW TRANSLATE TABLES. THE PROGRAM DOES EXTENSIVE ERROR CHECKING AND IF ANY OUTPUT OCCURS ON SPUNCH IT IS PROBABLY OK. 1 FRI AUG 02/96 18:37:32 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/6 TSFO TRTBLGEN OC W032:TRTBLGEN(2000) D3T1 31 TSFO.TRTBLGEN.OC.6 1 LINE 80 3 PAGE UM EMERY JULY 30, 1973 23:04.41 00038/7 TSFO KBD2741PTTC D W032:KBD2741PTTC D3T1 32 TSFO.KBD2741PTTC.D.7 1 LINE 41 1 PAGE UM EMERY JULY 30, 1973 23:04.43 0 SEE 038/5. THIS IS THE 2741 PTTC KEYBOARD DEFINITION. 00038/8 TSFO KBD2741CORR D W032:KBD2741CORR D3T1 33 TSFO.KBD2741CORR.D.8 1 LINE 41 1 PAGE UM EMERY JULY 30, 1973 23:04.45 0 SEE 038/5. THIS IS THE 2741 CORRESPONDENCE KEYBOARD DEFINITION. 00038/9 TSFO EBCDDEFN D W032:EBCDDEFN D3T1 34 TSFO.EBCDDEFN.D.9 1 LINE 32 3 PAGE UM EMERY JULY 30, 1973 23:04.47 0 SEE 038/5. THIS IS THE DEFINITION OF THE NAMES USED FOR CHARACTERS IN THE INPUT. 0 Referenced by comments of: 38/5, 575/3 00038/10 TSFO GOLFPTTC D W032:GOLFPTTC D3T1 35 TSFO.GOLFPTTC.D.10 1 LINE 72 3 PAGE UM EMERY JULY 30, 1973 23:04.50 0 SEE 038/5. THIS FILE CONTAINS DEFINITIONS OF PTTC GOLF BALLS. THE DEFINITONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER. CONTAINS "$CONTINUE WITH W032:GOLFPTTC" LINES. 0 Referenced by comments of: 575/3 00038/11 TSFO GOLFCORR D W032:GOLFCORR D3T1 36 TSFO.GOLFCORR.D.11 1 LINE 72 8 PAGE UM EMERY JULY 30, 1973 23:04.52 0 SEE 038/5. THIS FILE CONTAINS DEFINITIONS OF CORRESPONDENCE GOLF BALLS. THE DEFINITIONS START AT LINE NNN, WHERE NNN IS THE LAST 3 DIGITS OF THE GOLF BALL NUMBER. CONTAINS "$CONTINUE WITH W032:GOLFCORR" LINES. 0 Referenced by comments of: 575/3 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/1 CASECONV SA CASE W032:CASECONV D3T1 37 CASECONV..SA.1 1 LINE 80 1 PAGE UM EMERY JULY 30, 1973 23:04.54 0 TRANSLATE TABLE TO CONVERT LOWER CASE TO UPPER CASE. ALL OTHER CHARACTERS ARE UNCHANGED. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00039/2 CASECONV OC # RESIDENT SYSTEM (SEE COMP 468) UM EMERY 00040/1 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), 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/2 KWIC D3.1 UPDATE UU G MTS:KWICUPD D3.1T1 15 KWIC.D3.1_UPDATE.UU.2 1 LINE 72 1 PAGE UM DWB MAR. 06, 1974 03:16.30 0 UPDATE TO D3 MASTER (040/1) TO PRODUCE D3.1 SOURCE. UPDATE DECK USES %POSN *IN* KWIC. 00040/3 KWIC OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00041/1 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), AND COPY:MTS.TV (640). NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. 0 Referenced by comments of: 41/2, 344/1 00041/2 GETSPACE/FREESPAC D3.1 UPDATE UU G MTS:GSFSUPD D3.1T1 16 GETSPACE/FREESPAC.D3.1_UPD.UU.2 1 LINE 64 2 PAGE UM DWB MAR. 06, 1974 03:16.32 0 UPDATE TO D3 MASTER (041/1) TO PRODUCE D3.1 SOURCE. UPDATE DECK USES %POSN *IN* GSFS. 00041/3 GETSPACE/FREESPAC OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00042/1 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:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:MTS.RHTABLE (348), COPY:CLSPLAN (535/1), AND COPY:JOBSTA (413/13). REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. 0 Referenced by comments of: 42/2, 344/1, 348/1, 635/1, 635/2, 636/1, 636/2, 637/1, 637/2, 638/1, 638/2, 639/1, 639/2 00042/2 MTS D3.1 UPDATE UU G MTS:MTSUPD/D3.1 D3.1T1 17 MTS.D3.1_UPDATE.UU.2 1 LINE 72 8 PAGE UM DWB MAR. 06, 1974 03:16.34 0 UPDATE DECK TO PRODUCE D3.1 SOURCE FROM D3 MTS MASTER SOURCE (042/1). 1 FRI AUG 02/96 18:37:32 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 NOTE: D3.1 MTS HAS FIVE NEW SUBROUTINES, ALL OF WHICH WERE FORMERLY PART OF THE MAIN MTS ASSEMBLY. 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 (NEW) CMDS 636 (NEW) DSRS 637 (NEW) USUB 638 (NEW) DSRI 639 (NEW) NOTE: D3.1 MTS ISSUES THE CONTROL COMMAND "BLANK=12" TO THE MSOURCE TERMINAL DSR JUST BEFORE IT READS THE RESPONSE TO "ENTER USER PASSWORD". THE "BLANK" COMMAND CAUSES THE DSR TO PROVIDE INPUT LINE BLANKING FOR THE NEXT INPUT LINE IN SOME APPROPRIATE WAY. THIS COMMAND IS CURRENTLY SUPPORTED IN TSFO (038), *PDP8RTN (116), AND *3270RTN (629). 00042/3 MTS OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00042/4 MTS ASM JOB C MTS:MTSASM D3.1T1 18 MTS.ASM_JOB.C.4 1 LINE 105 1 PAGE UM DWB MAR. 06, 1974 03:16.37 0 AT LINE 1, A BATCH JOB TO ASSEMBLE MTS AND ALL OF THE SUBROUTINES. AT LINE 1000, A BATCH JOB TO ASSEMBLE ONLY PARTICULAR PIECES. NOTE: STANDARD DUMP (463) IS NO LONGER CONSIDERED TO BE AN MTS SUBROUTINE, I.E. IT IS NOT ASSEMBLED BY THIS COMMAND FILE. 00043/1 LCSYMBOL SA G LCSY MTS:LCSYMBOL(1,999) D3.1T1 19 LCSYMBOL..SA.1 1 LINE 80 5 PAGE UM DWB MAR. 06, 1974 03:16.39 0 LOW-CORE SYMBOL TABLE. CONTAINS DEFINITIONS OF SYMBOLS IN SEGMENTS 0 AND 2 THAT USERS REFER TO. 0 Referenced by comments of: 579/1 00043/2 LCSYMBOL OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00044/1 PDP SA G PDP0 W047:PDP.S D3.1T1 20 PDP..SA.1 1 LINE 80 53 PAGE UM HAMILTON MAR. 06, 1974 03:16.42 0 D3.0 VERSION OF THE PAGING DRUM PROCESSOR. COPIES COPY:PCBDSECT (470). 0 Referenced by comments of: 604/1 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00044/2 PDP OC G # RESIDENT SYSTEM (SEE COMP 468) UM HAMILTON 00045/1 SUPERVISOR D3 MASTER SA G S0699 D3TAPE POSN=UMMPS.SOURCE 1 D3T1 47 SUPERVISOR..SA.1 1 SEQ 80 236 PAGE UM MTA JULY 30, 1973 23:19.49 0 SUPERVISOR MASTER SOURCE FOR DIST 3. ASSEMBLY PARAMETERS ARE SET TO USE THE SLT RPQ, INITIALLY CLEAR VM, ASSUME A DUPLEX 67, AND NOT TIME THINGS LIKE TS LOOPS. THESE ARE THE ONLY CONFIGURATION DEPENDENT ASPECTS. COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), AND COPY:CPSCNPAR (609/3). ASSEMBLE WITH *SYSMAC. NOTE: THE SUPERVISOR HAS 3 PARAMETERS WHICH CONTROL THE OPERATION OF THE PRIVILEDGED JOB MECHANISM. THIS MECHANISM ATTEMPTS TO CONTROL THRASHING BY DETECTING JOBS WHICH REQUIRE A SIZEABLE AMOUNT OF REAL CORE AND ONLY LETTING SUCH JOBS RUN IF THE ESTIMATED WORKING SET SIZE OF ALL SUCH JOBS DOES NOT EXCEED A CERTAIN GLOBAL VALUE WHICH IS ESTABLISHED BY THE CONFIG PROGRAM (046) AT IPL, BASED ON THE NUMBER OF CORE BOXES AVAILABLE. ONE OF THE 3 PARAMETERS DETERMINES THE THRESHOLD (IN REAL PAGES) AT WHICH THE SUPERVISOR DECIDES (FOR ANY JOB WHICH MANAGES TO ACQUIRE THAT MANY REAL PAGES) WHETHER OR NOT THE JOB MAY GO FROM "NEUTRAL" TO "PRIVILEDED" AND CONTINUE TO EXECUTE (WITH A LARGER TIME SLICE). IF THE ANSWER IS NO, THE JOBS IS MADE "NON-PRIVILEDGED" FOR A WHILE AND NOT ALLOWED TO EXECUTE. THE ANSWER IS BASED ON THE SECOND OF THE 3 PARAMETERS, WHICH SPECIFIES HOW MANY REAL PAGES (MAXIMUM) ARE TO BE DEVOTED TO "BIG JOBS", I.E. PRIVILEDGED JOBS. ACTUALLY, WHEN THE TEST IS MADE FOR A JOB WHICH HAS ACHIEVED THE PARAMETER 1 (BIGJTH) THRESHOLD, THE GREATER OF THE JOB'S ACTUAL REAL PAGES AND HIS ESTIMATED WORKING SET IS USED TO DETERMINE IF THIS JOB WILL "BREAK THE CAMEL'S BACK", I.E. EXCEED THE PARAMETER 2 (ADDBIGJ) THRESHOLD. FOR THIS REASON, THE SECOND PARAMETER THRESHOLD MAY BE REACHED BEFORE THE CURRENT BIG JOBS COLLECTIVELY HAVE THAT MANY REAL PAGES IF THE CURRENT WORKING SET ESTIMATE FOR ANY OF THE JOBS IS TOO HIGH. 0 Referenced by comments of: 45/2, 604/1, 609/1, 611/1 00045/2 SUPERVISOR D3.1 UPDATE UU G MTA:UMMPSUPD D3.1T1 21 SUPERVISOR.D3.1_UPDATE.UU.2 1 LINE 71 9 PAGE UM MTA MAR. 06, 1974 03:16.56 0 UPDATE TO D3 MASTER (045/1) TO PRODUCE D3.1 SOURCE. 00045/3 SUPERVISOR OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00045/4 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/5 SUPERVISOR SVC WRITEUP PT MTS:SVCPRINT D3T1 53 SUPERVISOR.SVC_WRITEUP.PT.8 1 SEQ 132 91 PAGE UM HAMILTON JULY 30, 1973 23:24.22 0 TEXT/360 PRINT FILE. 00046/1 CONFIG D3 MASTER SA G S0699 D3TAPE POSN=CONFIG.SOURCE 2 D3T1 54 CONFIG..SA.1 1 SEQ 80 23 PAGE UM MTA JULY 30, 1973 23:24.57 0 CONFIGURATION PROGRAM MASTER SOURCE FOR DIST 3. COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:PCBDSECT (470), COPY:CHAERC (577/30), AND COPY:CHASYS.2 (577/35). 0 Referenced by comments of: 45/1, 46/2, 468/1 1 FRI AUG 02/96 18:37:32 Page 12 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00046/2 CONFIG D3.1 UPDATE UU G MTA:CONFIGUPD D3.1T1 22 CONFIG.D3.1_UPDATE.UU.2 1 LINE 71 1 PAGE UM MTA MAR. 06, 1974 03:17.02 0 UPDATE TO D3 MASTER (046/1) TO PRODUCE D3.1 SOURCE. 00046/3 CONFIG OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 0 ***** NOTE: THIS OBJECT CONTAINS A REP CARD TO CHANGE THE VERSION DATE TO 01-01-74. 00047/1 *CATALOG SA G CATL W045:PF.LCATALOG D3T1 56 CATALOG..SA.1 1 LINE 80 8 PAGE UM PIRKOLA JULY 30, 1973 23:26.21 0 PROGRAM TO PRINT NAMES OF USERS FILES (CALLED *FILES AT UBC). COPIES *GFINFODSECT (593). ALSO COPIES COPY:LLMPSEQU (087). 00047/2 *CATALOG OC G *CATALOG D3T1 57 CATALOG..OC.2 1 LINE 80 3 PAGE UM PIRKOLA JULY 30, 1973 23:26.23 00049/1 SDUMP SA SDMP W032:SDUMP(1,700) D3T1 58 SDUMP..SA.1 1 LINE 80 16 PAGE UM EMERY JULY 30, 1973 23:26.25 0 MTS SUBROUTINE TO PRODUCE DUMPS. REQUIRES *SYSMAC. 0 Referenced by comments of: 463/1 00049/2 SDUMP OC # RESIDENT SYSTEM (SEE COMP 468) UM EMERY 00050/1 STATISTICS *STA C *STA D3T1 59 STATISTICS.*STA.C.1 1 LINE 29 1 PAGE UM WSG JULY 30, 1973 23:26.29 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO RUN THE STATISTICS SAVE PROGRAM. INVOKED BY ENTERING "MTS *STA" ON THE OPERATOR'S CONSOLE. THE SAVE PROGRAM DUMPS THE MTS JOB STATISTICS FILE (*STATISTICS) TO TAPE. MTS AUTOMATICALLY WARNS THE OPERATOR WHEN *STATISTICS IS NEARLY FULL BY PRINTING "*** *STATISTICS IS FULL ***" ON THE CONSOLE. WHEN THIS HAPPENS, THE OPERATOR SHOULD IMMEDIATELY ENTER "MTS *STA" TO BEGIN THE SAVE PROGRAM BEFORE IT IS REALLY FULL (JOBS WILL BEGIN TO "SNARK" WHEN IT IS FULL). 00050/2 STATISTICS SAVE PROGRAM SA G SSAV WSG:SSAV(1,999) D3T1 60 STATISTICS.SAVE_PROGRAM.SA.2 1 LINE 80 8 PAGE UM WSG JULY 30, 1973 23:26.31 0 PROGRAM TO SAVE *STATISTICS ON TAPE. THIS PROGRAM IS RUN BY ENTERING "MTS *STA" ON THE OPERATOR'S CONSOLE. IT FIRST ASKS THE OPERATOR FOR THE NAME OF THE 9-TRACK TAPE DRIVE ON WHICH HE HAS MOUNTED AN "INDIVIDUAL" STAT TAPE (WITH THE RING IN). THE INDIVIDUAL TAPE (600 FEET IS LONG ENOUGH) SHOULD BE LABELED WITH "STAT " AS THE VOLUME NAME. THIS PROGRAM WILL THEN COPY *STATISTICS(3,LAST) TO THIS TAPE WHICH IS BLOCKED VB(16379,255). THE CURRENT TIME AND DATE WILL BE USED AS THE DATA SET NAME. THE DATA READ FROM *STATISTICS IS ALSO SAVED IN VM AND THE TAPE IS REWOUND AND COMPARED WITH THE VM COPY. IF THE COMPARE IS SUCCESSFUL, LINE 2 OF *STATISTICS (USED TO FIND THE CURRENT FILE ON THE MONTHLY TAPE) IS SAVED AND THE FILE IS EMPTIED. LINE 1 (USED BY MTS FOR HISTORICAL REASONS TO INDICATE THE LAST LINE NUMBER CURRENTLY IN THE FILE) IS SET TO "00002" AND LINE 2 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 1 FRI AUG 02/96 18:37:32 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 MONTHLY TAPE AS A NEW FILE. IF THE MONTHLY TAPE HAS NO FILES ON IT (FRESHLY LABELED), THE PROGRAM WILL ASK THE OPERATOR IF HE IS BEGINNING A NEW MONTHLY TAPE AND IF HE REPLIES "YES" THEN IT RESETS LINE 2 OF *STATISTICS. THERE IS NOTHING IN THE PROGRAM (OTHER THAN TERMINOLOGY) WHICH IS ORIENTED TO A MONTHLY CYCLE OF TAPES. THE CYCLE IS CONTROLLED BY THE OPERATOR STARTING A NEW "MONTHLY" TAPE. COPIES COPY:LLMPSEQU. 00050/3 STATISTICS SAVE PROGRAM OC G SYS:STA D3T1 61 STATISTICS.SAVE_PROGRAM.OC.3 1 LINE 80 3 PAGE UM WSG JULY 30, 1973 23:26.33 0 Referenced by comments of: 256/2 00051/1 *WATFOR ARITH S # (OBSOLETE) D2T2 011 UM 00051/2 *WATFOR DODO S # (OBSOLETE) D2T2 012 UM 00051/3 *WATFOR DUMMY S # (OBSOLETE) D2T2 013 UM 00051/4 *WATFOR DUMMYFUN S # (OBSOLETE) D2T2 014 UM 00051/5 *WATFOR FIOCS S # (OBSOLETE) D2T2 015 UM 00051/6 *WATFOR FIOSTAB S # (OBSOLETE) D2T2 016 UM 00051/7 *WATFOR FORMAT S # (OBSOLETE) D2T2 017 UM 00051/8 *WATFOR FORMCONV S # (OBSOLETE) D2T2 018 UM 00051/9 *WATFOR FRIOSCAN S # (OBSOLETE) D2T2 019 UM 00051/10 *WATFOR FUNCTION S # (OBSOLETE) D2T2 020 UM 00051/11 *WATFOR INOUT S # (OBSOLETE) D2T2 021 UM 00051/12 *WATFOR LINKR S # (OBSOLETE) D2T2 022 UM 00051/13 *WATFOR MAIN S # (OBSOLETE) D2T2 023 UM 1 FRI AUG 02/96 18:37:32 Page 14 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00051/14 *WATFOR MESSAGE S # (OBSOLETE) D2T2 024 UM 00051/15 *WATFOR RELOC S # (OBSOLETE) D2T2 025 UM 00051/16 *WATFOR SCAN S # (OBSOLETE) D2T2 026 UM 00051/17 *WATFOR SPECS S # (OBSOLETE) D2T2 027 UM 00051/18 *WATFOR OPTIONS S # (OBSOLETE) D2T2 028 UM 00051/19 *WATFOR CDEFN S # (OBSOLETE) D2T2 029 UM 00051/20 *WATFOR COMMR S # (OBSOLETE) D2T2 030 UM 00051/21 *WATFOR STARTA S # (OBSOLETE) D2T2 031 UM 00051/22 *WATFOR WATMAC S # (OBSOLETE) D2T2 032 UM 00051/23 *WATFOR UAT O # (OBSOLETE) D2T2 033 UM 00051/24 *WATFOR UPDATE U # (OBSOLETE) D2.2 091 UM 00051/25 *WATFOR DIAGS S # (OBSOLETE) D2T2 035 UM 00051/26 *WATFOR DIAGS O # (OBSOLETE) D2T2 036 UM 00052/1 *COINFLIP SA CNFL S0370 'D1T1' FMT=FB(6400,80) 108 D3T1 62 COINFLIP..SA.1 1 SEQ 80 3 PAGE UM HENRIKSEN JULY 30, 1973 23:27.01 0 DEMONSTARTION PROGRAM. 00052/2 *COINFLIP OE *COINFLIP D3T1 63 COINFLIP..O.2 1 LINE 255 1 PAGE UM HENRIKSEN JULY 30, 1973 23:27.02 00053/1 DISKDUMP SA G DSKD MTS:DISKDUMP.S D3T1 64 DISKDUMP..SA.1 1 LINE 80 11 PAGE UM PIRKOLA JULY 30, 1973 23:27.03 0 PROGRAM TO DUMP DISK AND DATACELL PHYSICAL RECORDS. DOESN'T CALL MTS FILE ROUTINES. 1 FRI AUG 02/96 18:37:32 Page 15 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00053/2 DISKDUMP OC G MTS:DISKDUMP D3T1 65 DISKDUMP..OC.2 1 LINE 80 3 PAGE UM PIRKOLA JULY 30, 1973 23:27.08 00054/1 *TPS S # (OBSOLETE) D2T1 145 UM 00054/2 *TPS LL PTR UC S # (OBSOLETE) D2T1 146 UM 00055/1 *BCDEBCD SA G BCDE S0370 'D1T1' FMT=FB(6400,80) 220 D3T1 66 BCDEBCD..SA.1 1 SEQ 80 2 PAGE UM ENGLE JULY 30, 1973 23:27.43 0 TRANSLATE SCIENTIFIC 026 CODE TO EBCD. 00055/2 *BCDEBCD OC G *BCDEBCD D3T1 67 BCDEBCD..O.2 1 LINE 80 1 PAGE UM ENGLE JULY 30, 1973 23:27.44 00056 *2250RTN SA O R225 S0371 'D1T2' FMT=FB(6400,80) 6 D3T1 68 2250RTN..SA. 1 SEQ 80 26 PAGE UM PIRKOLA JULY 30, 1973 23:28.54 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 2250 DISPLAY. HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 00057/1 *TABEDIT SA O TBED S0370 'D1T1' FMT=FB(6400,80) 164 D3T1 69 TABEDIT..SA.1 1 SEQ 80 3 PAGE UM MTA JULY 30, 1973 23:30.09 00057/2 *TABEDIT OC O *TABEDIT D3T1 70 TABEDIT..OC.2 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:30.09 00058 *T7D S # (OBSOLETE) D2T1 142 UM 00059 *TCP S # (OBSOLETE) D2T1 141 UM 00060 JBRP S # (OBSOLETE) D2T1 144 UM 00061 *T9D S # (OBSOLETE) D2T1 143 UM 00062 FLINE # (SEE COMP 482) UM 00063 *PTSKRTN SA O PTSK S0371 'D1T2' FMT=FB(6400,80) 3 D3T1 71 PTSKRTN..SA. 1 SEQ 80 14 PAGE UM PIRKOLA JULY 30, 1973 23:30.18 0 PROGRAM TO DISPLAY TASK STATUS ON A 2250. HASN'T BEEN TRIED IN YEARS AND MAY NOT WORK ANYMORE. THIS IS A SUBROUTINE CALLED BY 123. OBJECT NOT DISTRIBUTED. COPIES *LLMPSEQU (WHICH SHOULD BE COPY:LLMPSEQU (087)) TWICE. 0 Referenced by comments of: 123/1 1 FRI AUG 02/96 18:37:32 Page 16 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00064/1 *OBJSCAN SA G OBJS W062:SCAN 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. FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO PRINT THE INFORMATION FROM THE "COML" RECORDS PRODUCED BY *LINKEDIT AND TO HANDLE THE NEW IBM "END" CARD FORMAT. 00064/2 *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/1 *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/59 ARE THE MASTER OS/360 SOURCE FOR THE G LEVEL ASSEMBLER (ASMG) VERSION 2, LEVEL 5, FROM THE UNIVERSITY OF WATERLOO. THE UPDATE DECK (066/60) WILL PRODUCE AN ASMG WHICH RUNS IN MTS. COMPONENT 66/61 CONTAINS COMMANDS TO UPDATE AND ASSEMBLE ASMG. 00066/2 *ASMG ASMGBUFF SA G 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/3 *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/4 *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/5 *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/6 *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/7 *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/8 *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/9 *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 1 FRI AUG 02/96 18:37:32 Page 17 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/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 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 1 FRI AUG 02/96 18:37:32 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/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 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 1 FRI AUG 02/96 18:37:32 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/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 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 0 Referenced by comments of: 66/1 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. 1 FRI AUG 02/96 18:37:32 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/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 00066/64 *ASMG ASMGUPD UU G WATF:ASMGUPD D3.1T1 88 ASMG.ASMGUPD.UU.64 1 LINE 83 35 PAGE UM MTA MAR. 06, 1974 03:21.18 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/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 MACROS 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. NOTE: THIS FILE REQUIRES THE USE OF THE D3.1 *LINKEDIT (297). 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 ---- ----------- -------- *ASMG ASMGASM ASMGASM,ASMGBUFF,ASMGMOD *ASMBLR ASMGASM (EXACTLY THE SAME CONTENTS AS *ASMG) *ASMGFPP ASMGFPP ASMGFPP,ASMGFD,ASMGFEX *ASMGF2 ASMGF1 ASMGF1,ASMGF2,ASMGF2A *ASMGF3 ASMGF3 ASMGF3 *ASMGF7 ASMGF7 ASMGF7C,ASMGF7G,,ASMGF7L,ASMGF7S,ASMGFI, ASMGF7D,ASMGF7E,ASMGF7I,ASMGF7N,ASMGF7V,ASMGF7X *ASMGF8 ASMGF8 ASMGF8A,ASMGF8C,ASMGF8L,ASMGF8N,ASMGF8P, ASMGF8S,ASMGF8V,ASMGF8D,ASMGF8I,ASMGF8M *ASMGIS00 ASMGIS00 *ASMGIS09 ASMGIS09 *ASMGIS20 ASMGIS20 *ASMGIS44 ASMGIS44 *ASMGIS60 ASMGIS60 *ASMGIS67 ASMGIS67 *ASMGIS70 ASMGIS70 *ASMGRTA ASMGRTA ASMGRTA *ASMGUP ASMGUP ASMGUP 00066/70 *ASMG *ASMGFPP OE G *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 *ASMGF2 D3.1T1 95 ASMG.*ASMGF2.OE.71 1 SEQ 23168 7 PAGE UM MTA MAR. 06, 1974 03:21.46 00066/72 *ASMG *ASMGF3 OE G *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 *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 *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 *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 *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 *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 *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 *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 *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 18:37:32 Page 22 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/81 *ASMG *ASMGIS70 OE G *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 *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 *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/1 FILE SAVE MAIN SA G FSAV RSTR:FILESAVE(1000) D3.1T1 110 FILE_SAVE.MAIN.SA.1 1 LINE 80 28 PAGE UM BERSTIS MAR. 06, 1974 03:23.32 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. FOR D3.1, SMALL CHANGES IN BUFFERS ETC. 0 Referenced by comments of: 92/1, 502/11 00067/2 FILE SAVE SAVEFILE SA G SFIL RSTR:SAVEFILE(1000) D3T1 153 FILE_SAVE.SAVEFILE.SA.2 1 LINE 80 9 PAGE UM BERSTIS JULY 30, 1973 23:37.44 0 SUBROUTINE WHICH COPIES COPY:FCBEQU (482/27), COPY:CATEQU (482/28), COPY:DSKDSCT (482/42), AND COPY:DSCBDSCT (482/41). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 502/11 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00067/3 FILE SAVE TAPEOUT SA G TOUT RSTR:TAPEOUT(1000) D3T1 154 FILE_SAVE.TAPEOUT.SA.3 1 LINE 80 6 PAGE UM BERSTIS JULY 30, 1973 23:37.49 0 ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 502/11 00067/4 FILE SAVE VTOCRD SA O VTOC RSTR:VTOCRD(1000) D3T1 155 FILE_SAVE.VTOCRD.SA.4 1 LINE 80 7 PAGE UM BERSTIS JULY 30, 1973 23:37.51 0 SUBROUTINE WHICH COPIES COPY:DSKDSCT (482/42), COPY:DSCBDSCT (482/41), COPY:PATEQU (482/43), AND COPY:FCBEQU (482/27). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 642/1 00067/5 FILE SAVE OBJECT OE G RSTR:FILESAVEOBJ D3.1T1 111 FILE_SAVE.OBJECT.OE.5 1 SEQ 8192 5 PAGE UM BERSTIS MAR. 06, 1974 03:23.41 00067/6 FILE SAVE SVSTART C G RSTR:SVSTART D3T1 157 FILE_SAVE.SVSTART.C.6 1 LINE 42 1 PAGE UM BERSTIS JULY 30, 1973 23:37.56 0 COMMAND AND DATA FILE WHICH IS SOURCED TO BY *SVW (067/8) AND *SVD (067/13). THIS FILE STARTS UP THE SEVERAL (2 OR 4) STREAMS WHICH ARE USED FOR THE SHORT (PARTIAL) OR LONG (FULL) SAVE. 00067/7 FILE SAVE FSS C G RSTR:FSS D3T1 158 FILE_SAVE.FSS.C.7 1 LINE 100 1 PAGE UM BERSTIS JULY 30, 1973 23:37.57 0 COMMAND AND DATA FILE SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4, *SVA, AND *SVB). THIS FILE CONTAINS THE VOLUME SERIAL NUMBERS OF THE VOLUMES TO BE SAVED BY EACH STREAM. IN ADDITION, 2 CODE LETTERS FOLLOW THE VOLUME SERIAL NUMBERS TO INDICATE WHETHER THE LABEL FOR EACH TAPE IS TO BE CHECKED (C) AND WHETHER ALL FILES (A FULL SAVE) ARE TO BE SAVED (A), OR JUST THOSE WHICH HAVE BEEN REFERENCED SINCE THE LAST FILE SAVE (A PARTIAL SAVE). THIS FILE WILL HAVE TO BE CHANGED BY EACH INSTALLATION TO REFLECT THE NUMBER OF DISK PACKS IN USE AND THEIR VOLUME SERIAL NUMBERS. 00067/8 FILE SAVE WEEKLY START C G *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/9 FILE SAVE WKLY STREAM #1 C G *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 18:37:32 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/10 FILE SAVE WKLY STREAM #2 C G *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 G *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 G *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 G *SVD D3T1 164 FILE_SAVE.DAILY_START.C.13 1 LINE 23 1 PAGE UM BERSTIS JULY 30, 1973 23:38.12 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE DAILY (PARTIAL) FILESAVE PROCESS. ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN. THIS FILE WILL SOURCE TO RSTR:SVSTART WHICH WILL START UP 1 MORE STREAM (*SVB) SO THAT THE PARTIAL SAVE IS DONE IN 2 STREAMS. EACH INSTALLATION MAY WANT TO CHANGE THE NUMBER OF STREAMS USED. INVOKED BY ENTERING "MTS *SVD" ON THE OPERATORS CONSOLE. 0 Referenced by comments of: 67/6 00067/14 FILE SAVE DAILY STREAM 1 C G *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 G *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. 00068 *LINPG # (NOT DISTRIBUTED) UM HARDING 00069 *DRAW SA O DRAW S0371 'D1T2' FMT=FB(6400,80) 2 D3T1 167 DRAW..SA. 1 SEQ 80 13 PAGE UM PIRKOLA JULY 30, 1973 23:38.23 0 PROGRAM TO DO SIMPLE DRAWING ON A 2250. HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00071/1 LISTSTAT SA G LSTA WSG:LISTSTAT(1,999) D3.1T1 112 LISTSTAT..SA.1 1 LINE 80 14 PAGE UM WSG MAR. 06, 1974 03:23.42 0 PROGRAM TO PRINT *STATISTICS RECORDS. WILL READ RECORDS (ON SCARDS) FROM A FILE OR BLOCKED TAPE (SUCH AS PRODUCED BY *CMB). WRITES PRINTED OUTPUT ON SPRINT. HAS RATE TABLES ASSEMBLED IN SO IT CAN PRINT VALUE OF EACH RUN IN MONEY. FOR THIS REASON, IT WILL PROBABLY HAVE TO BE REASSEMBLED AT EACH INSTALLATION SINCE THE RATES WILL BE DIFFERENT. COPIES COPY:STATDSECT (620). 0 Referenced by comments of: 355/1 00071/2 LISTSTAT OC G WSG:LISTSTAT(1000) D3.1T1 113 LISTSTAT..OC.2 1 LINE 80 3 PAGE UM WSG MAR. 06, 1974 03:23.48 00072/1 *FORTEDIT SA FTED S0370 'D1T1' FMT=FB(6400,80) 112 D3T1 170 FORTEDIT..SA.1 1 SEQ 80 20 PAGE UM TIFFANY JULY 30, 1973 23:39.26 0 CONVERSATIONAL PROGRAM TO EDIT FORTRAN SOURCE FILES. 00072/2 *FORTEDIT OC *FORTEDIT D3T1 171 FORTEDIT..OC.2 1 LINE 80 3 PAGE UM TIFFANY JULY 30, 1973 23:39.27 0 OBJECT DECK CONTAINS REP CARDS. 00073/1 *DSK C *DSK D3T1 172 DSK..C.1 1 LINE 30 1 PAGE UM PIRKOLA JULY 30, 1973 23:39.29 0 COMMAND FILE TO RUN DSKMAM (073/3). INVOKED BY ENTERING "MTS *DSK" ON OPERATORS CONSOLE. 0 Referenced by comments of: 4/1 00073/2 *DSK DSKMAN SA G DMAN W047:DSKMAN(1,999) D3T1 173 DSK.DSKMAN.SA.2 1 LINE 80 6 PAGE UM PIRKOLA JULY 30, 1973 23:39.31 0 PROGRAM USED BY OPERATORS TO MANIPULATE THE LIST OF MTS DISK VOLUMES. PROGRAM ALLOWS VOLUMES TO BE ADDED AND REMOVED FROM THE SYSTEM DYNAMICALLY AS WELL AS ALLOWING THE DRIVE ADDRESS FOR A VOLUME TO BE FORGOTTEN, THUS CAUSING MTS TO SEARCH THROUGH ALL DRIVE ADDRESSES LOOKING FOR THAT VOLUME ON THE NEXT REFERENCE. THIS IS PARTICULARLY USEFUL WHEN THE OPERATOR WISHES TO MOVE A VOLUME TO A DRIVE WITH A DIFFERENT ADDRESS. COPIES COPY:DSKDSCT (482/42). 00073/3 *DSK DSKMAN OC G SYS:DSK D3T1 174 DSK.DSKMAN.OC.3 1 LINE 80 2 PAGE UM PIRKOLA JULY 30, 1973 23:39.34 0 Referenced by comments of: 73/1 00074 *2250EDIT SA O E225 S0371 'D1T2' FMT=FB(6400,80) 5 D3T1 175 2250EDIT..SA. 1 SEQ 80 29 PAGE UM PIRKOLA JULY 30, 1973 23:39.56 0 PROGRAM TO EDIT FILES USING 2250 DISPLAY. HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00075 *ROSSPRINT # (OBSOLETE) UM 00076/1 RESERVE DISK *RSV C *RSV D3T1 176 RESERVE_DISK.*RSV.C.1 1 LINE 42 1 PAGE UM MTA JULY 30, 1973 23:39.59 0 COMMAND FILE TO RUN THE DISK RESERVE PROGRAM (076/3). INVOKED BY ENTERING "MTS *RSV" ON OPERATOR'S CONSOLE. 00076/2 RESERVE DISK RESERVE PGM SA G RSV0 MTA:RESERVE(1,999) 85 D3T1 177 RESERVE_DISK.RESERVE_PGM.SA.2 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:40.00 0 PROGRAM TO EXECUTE A RESERVE COMMAND FOR A DISK PACK. USED ONLY WITH 2844 OR 2 TAIL SWITCH. 00076/3 RESERVE DISK RESERVE PGM OC G W000:RSV D3T1 178 RESERVE_DISK.RESERVE_PGM.OC.3 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:40.02 0 Referenced by comments of: 76/1 00077/1 STATBUFF SA G STBF MTA:STATBUFF D3T1 179 STATBUFF..SA.1 1 LINE 80 1 PAGE UM MTA JULY 30, 1973 23:40.05 0 POINTS TO THE BUFFER USED BY THE STAT JOB (079) IF IT IS ACTIVE. THE SECOND WORD POINTS TO THE STAT JOB'S JOB TABLE. 00077/2 STATBUFF OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00078/1 STAT SUBROUTINE SA G STSB MTA:STATSUB D3T1 180 STAT_SUBROUTINE..SA.1 1 LINE 80 4 PAGE UM MTA JULY 30, 1973 23:40.07 0 SUBROUTINE TO PRODUCE STAT JOB ENTRIES FOR MTS I/O. 00078/2 STAT SUBROUTINE OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00079/1 STAT JOB SA G STAT MTA:STATSOU D3T1 181 STAT_JOB..SA.1 1 LINE 80 15 PAGE UM MTA JULY 30, 1973 23:40.09 0 THE "STAT" JOB WILL SAVE STATISTICS ABOUT HARDWARE INTERRUPTS, MTS I/O OPERATIONS, AND INTERNAL SUPERVISOR FUNCTIONS (SUCH AS THE EXECUTION OF SIO) ON TAPE. CAN PRODUCE LARGE AMOUNTS OF DATA QUICKLY. *ANALYSIS (140) CAN HELP ANALYZE THE DATA. 0 Referenced by comments of: 77/1, 140/1 00079/2 STAT JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00080/1 INIT JOB SA G INIT MTA:INITJOB(1,999) 78 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). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00080/2 INIT JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00082/1 DMOD SA G DMOD W045:PF.DMOD D3T1 183 DMOD..SA.1 1 LINE 80 7 PAGE UM PIRKOLA JULY 30, 1973 23:40.15 0 PROGRAM TO PATCH A DISK PAGE. USE WITH EXTREME CAUTION. AVAILABLE COMMANDS ARE: RNNNNPPPP READ RELATIVE PAGE PPPP ON PUBLIC VOLUME NUMBER NNNN. RHNNNNPPPP SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. R READ PAGE USING THE LAST NNNNPPPP SPECIFIED. RH SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. WNNNNPPPP WRITE RELATIVE PAGE PPPP ON PUBLIC VOLUME NUMBER NNNN. WHNNNNPPPP SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. W WRITE PAGE USING THE LAST NNNNPPPP SPECIFIED. WH SAME AS PREVIOUS COMMAND, BUT DON'T RELEASE THE VOLUME. D DUMP PAGE ON SPRINT. I INTERRUPT (CALL ERROR). USED TO RETURN TO MTS SO THAT $MOD CAN BE USED TO PATCH THE PAGE, THEN $RESTART AND WRITE IT OUT. 00082/2 DMOD OC G W045:PF.DMOD.O D3T1 184 DMOD..OC.2 1 LINE 80 2 PAGE UM PIRKOLA JULY 30, 1973 23:40.17 00083/1 *EBCDBCD SA O EBCD S0370 'D1T1' FMT=FB(6400,80) 65 D3T1 185 EBCDBCD..SA.1 1 SEQ 80 2 PAGE UM WSG JULY 30, 1973 23:41.00 0 TRANSLATE 029 CARDS TO 026. UNCHANGED SINCE DIST 1.0. 00083/2 *EBCDBCD OC O *EBCDBCD D3T1 186 EBCDBCD..OC.2 1 LINE 80 1 PAGE UM WSG JULY 30, 1973 23:41.00 00084/1 ARU *ARURTN SA G S0001 'SMITH' FSNAME=ARURTN.S D3T1 187 ARU.*ARURTN.SA.1 1 LINE 72 23 DISK UM BLINN NOV. 21, 1972 16:31.23 0 DEVICE SUPPORT ROUTINES FOR THE IBM 7772 AUDIO RESPONSE UNIT. REQUIRES DBS:MAC MACRO LIB (455) AND REFERENCES *ARUDEF (084/4) AND *SPEAK (084/3). 0 Referenced by comments of: 84/3, 84/4 00084/2 ARU *ARURTN OC G *ARURTN D3T1 188 ARU.*ARURTN.OC.2 1 SEQ 80 3 PAGE UM BLINN JULY 30, 1973 23:42.24 00084/3 ARU *SPEAK D G *SPEAK D3T1 189 ARU.*SPEAK.D.3 1 LINE 255 60 PAGE UM BLINN JULY 30, 1973 23:42.25 0 VOCABULARY FILE FOR *ARURTN (084/1). 0 Referenced by comments of: 84/1 00084/4 ARU *ARUDEF D G *ARUDEF D3T1 190 ARU.*ARUDEF.D.4 1 LINE 10 1 PAGE UM BLINN JULY 30, 1973 23:42.34 0 PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1) 1 FRI AUG 02/96 18:37:32 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: 84/1 00084/5 ARU DCVD SUBR SA G # (PART OF 084/1) D2T1 420 UM BLINN 0 SUBROUTINE TO CONVERT DIGITALLY CODED VOICE FROM THE FORMAT EXPECTED BY THE 7772 TO A MORE REASONABLE FORMAT. REQUIRES DBS:MAC MACRO LIB (455). 0 Referenced by comments of: 84/13, 84/14, 84/16 00084/6 ARU DCVD SUBR OC G # *LIBRARY (SEE COMP 524) UM BLINN 00084/7 ARU DCVC SUBR SA G # (PART OF 084/1) D2T1 419 UM BLINN 0 SUBROUTINE TO CONVERT DIGITALLY CODED VOICE TO THE FORMAT EXPECTED BY THE 7772. REQUIRES DBS:MAC MACRO LIB (455). 0 Referenced by comments of: 84/13, 84/14, 84/16 00084/8 ARU DCVC SUBR OC G # *LIBRARY (SEE COMP 524) UM BLINN 00084/9 ARU DCVG SUBR SA G # (PART OF 084/1) UM BLINN 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 BLINN 00084/11 ARU *ARUVOC D G *ARUVOC D3T1 191 ARU.*ARUVOC.D.11 1 LINE 102 11 PAGE UM BLINN 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 BLINN 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 BLINN 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). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00084/14 ARU *VLIST SA G # (PART OF 084/1) D2T2 208 UM BLINN 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 BLINN 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 BLINN 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 BLINN 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 BLINN 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 BLINN 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 BLINN JULY 30, 1973 23:43.05 0 AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES. 00085 DRUM INIT INIT:DINIT # (SEE COMP 97/8 AND 97/9) UM 00086/1 *2501RTN SA G TFZO DWB:UBCTFZO.S D3T1 199 2501RTN..SA.1 1 LINE 80 16 PAGE UM DWB JULY 30, 1973 23:43.07 0 MTS DEVICE SUPPORT ROUTINES FOR THE IBM 2501 CARD READER. CALLS BINEBCD (243). 0 Referenced by comments of: 243/1 00086/2 *2501RTN OC G *2501RTN D3T1 200 2501RTN..OC.2 1 LINE 80 3 PAGE UM DWB JULY 30, 1973 23:43.10 0 OBJECT FOR 2501 ROUTINES AND OMR CONVERT SUBR (576/2). 00087 LLMPSEQU SA G COPY:LLMPSEQU D3.1T1 115 LLMPSEQU..SA. 1 LINE 74 6 PAGE UM MTA MAR. 06, 1974 03:23.52 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 1 FRI AUG 02/96 18:37:32 Page 30 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES). THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING AT LINE 100. 0 Referenced by comments of: 4/1, 5/1, 7/1, 8/1, 10/1, 19/1, 21/1, 40/1, 41/1, 42/1, 45/1, 46/1, 47/1, 63/1, 101/1, 102/1, 104/70, 111/1, 116/1, 121/1, 123/1, 135/1, 198/1, 343/1, 353/1, 354/1, 355/1, 387/1, 400/1, 413/1, 413/5, 441/1, 447/1, 447/3, 447/5, 447/7, 462/1, 464/1, 487/1, 531/1, 531/4, 531/8, 539/1, 554/1, 570/1, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 578/1, 588/1, 589/1, 614/1, 617/1, 618/1, 634/1, 635/1, 636/1, 637/1, 638/1, 639/1 00089 CLEAN # (SEE COMP 97/6 AND 97/7) UM 00090/1 *HEXLIST SA G HEXL W045:NEWHEXLIST D3T1 202 HEXLIST..SA.1 1 LINE 80 6 PAGE UM PIRKOLA JULY 30, 1973 23:43.29 0 PRINTS OBJECT DECKS IN HEX. 00090/2 *HEXLIST OC G *HEXLIST D3T1 203 HEXLIST..O.2 1 LINE 80 3 PAGE UM PIRKOLA JULY 30, 1973 23:43.31 00091/1 *DOUBLE SA O DBLE 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. 00091/2 *DOUBLE OC O *DOUBLE D3T1 205 DOUBLE..OC.2 1 LINE 80 3 PAGE UQV BENET JULY 30, 1973 23:43.35 00092/1 FILE RESTORE RSTFMT0 SA 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. FOR D3.1, A BUG IN THIS PROGRAM (POINTED OUT BY UNE) HAS BEEN FIXED. THE BUG CAUSED IT TO IMPROPERLY RESTORE THE LAST FILE ON A TAPE IF IT HAD NO CATL RECORD. 0 Referenced by comments of: 502/1 00092/2 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/3 FILE RESTORE OC G RSTR:RST D3.1T1 117 FILE_RESTORE..OC.3 1 SEQE 8534 9 PAGE UM BERSTIS MAR. 06, 1974 03:24.08 00092/4 FILE RESTORE *RST C G *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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00094/1 *TIME SA G TIME S0370 'D1T1' FMT=FB(6400,80) 119 D3T1 210 TIME..SA.1 1 SEQ 80 1 PAGE UM TIFFANY JULY 30, 1973 23:44.08 0 PRINT TIME AND DATE 00094/2 *TIME OC G *TIME D3T1 211 TIME..OC.2 1 SEQ 80 1 PAGE UM TIFFANY JULY 30, 1973 23:44.09 00096/1 *SYMBOLS SA G SYMB W009:SYMBOL.S D3T1 212 SYMBOLS..SA.1 1 LINE 80 12 PAGE UM DE JONG JULY 30, 1973 23:44.10 0 PRINTS EXTERNAL SYMBOLS DEFINED IN *LIBRARY, *SSP, AND LCSYMBOL. 00096/2 *SYMBOLS OC G *SYMBOLS D3T1 213 SYMBOLS..OC.2 1 LINE 255 3 PAGE UM DE JONG JULY 30, 1973 23:44.14 00097/1 INIT *INIT C G *INIT D3T1 214 INIT.*INIT.C.1 1 LINE 45 1 PAGE UM ENGLE JULY 30, 1973 23:44.15 0 THE COMMAND FILE *INIT IS AUTOMATICALLY INVOKED BY THE SYSTEM AFTER IPL. NO OPERATOR ACTION IS REQUIRED. THIS COMMAND FILE SIGNS ON UNDER USER ID INIT AND SOURCES TO INIT:INITCMD. *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY ACCINITL IN INIT:INIT TO PRODUCE LISTS OF THE USER IDS WHICH WERE NOT PROPERLY SIGNED OFF WHEN THE SYSTEM LAST WENT DOWN (IF ANY) SO THAT THEY MAY BE "FIXED." 00097/2 INIT INIT:INITCMD C INIT:INITCMD 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. THE FOLLOWING FUNCTIONS ARE PERFORMED BY INITCMD: (1) THE CURRENT TIME AND DATE ARE CHECKED AGAINST THE TIME AND DATE OF THE LAST SIGNOFF IN *STATISTICS TO VERIFY (AT LEAST PARTIALLY) THAT THE OPERATOR HASN'T SCREWED UP. (2) THE PROGRAM CZASE IS RUN. IT TAKES ANY MACHINE CHECK LOGOUTS (FOUND IN THE DRUM CRACKS), FORMATS THEM, AND WRITES THEM AT THE END OF THE FILE INIT:LOGOUT. IT ALSO WRITES THEM IN INIT:DRUMCRACKS UNFORMATTED. (3) THE PROGRAM INITLOG IS RUN. IT PRINTS THE CURRENT HARDWARE CONFIGURATION AND THE REASON FOR RELOADING (AS OBTAINED FROM THE OPERATOR) AT THE END OF THE FILE INIT:LOG. (4) DINIT IS RUN TO INITIALIZE THE DRUMS (ASSUMES DRM1 AND DRM2). (5) DRMINIT IS RUN TO WRITE THE MACHINE CHECK RECOVERY CODE ONTO THE DRUMS. INIT:MCFILES HAS A LIST OF FILES CONTAINING THE CODE. A MAP IS WRITTEN ON INIT:MCMAP. (6) THE PDP IS STARTED ASSUMING A PAGING DISK PACK ON DRIVE D320, D321, D322, OR D323. (7) THE SEGMENT 2 LOADER (MTS *S2L) IS STARTED. (8) MTS *CMD (531/3) IS STARTED TO BEGIN COLLECTING COMMAND STATISTICS, DASD ERRORS, AND THE HASP LOG. (9) THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE SYSTEM LAST WENT DOWN. (10) 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. 1 FRI AUG 02/96 18:37:32 Page 32 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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, 559/1 00097/3 INIT INIT:INIT OC G S0027 DISTRB FSNAME=INIT D3.1T1 119 INIT.INIT:INIT.OC.3 1 LINE 80 6 PAGE UM ENGLE FEB. 22, 1974 18:27.57 0 PROGRAM TO FIX USER IDS WHICH WERE IN USE WHEN THE SYSTEM LAST WENT DOWN. OBJECT HAS REPS. 0 Referenced by comments of: 104/68 00097/4 INIT INIT:INITCHK SA G ICHK S0720 'D3T1' FSNAME=INIT.INIT:INITCHK.SA.4 217 D3T1 217 INIT.INIT:INITCHK.SA.4 1 LINE 80 4 PAGE UM ENGLE JAN. 08, 1973 17:46.49 0 PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "RESONABLE" TIME AND DATE. COPIES GRDEF (104/58). 00097/5 INIT INIT:INITCHK OC G S0720 'D3T1' FSNAME=INIT.INIT:INITCHK.OC.5 218 D3T1 218 INIT.INIT:INITCHK.OC.5 1 LINE 80 2 DISK UM ENGLE JAN. 08, 1973 17:47.02 00097/6 INIT INIT:CLEAN SA G SFDS W045:PF.SFDESTRY D3T1 219 INIT.INIT:CLEAN.SA.6 1 LINE 80 3 PAGE UM PIRKOLA JULY 30, 1973 23:46.30 0 PROGRAM TO DESTROY SCRATCH FILES. COPIES COPY:CATEQU (482/28). 00097/7 INIT INIT:CLEAN OC G INIT:CLEAN D3T1 220 INIT.INIT:CLEAN.OC.7 1 LINE 80 1 PAGE UM PIRKOLA JULY 30, 1973 23:46.33 00097/8 INIT INIT:DINIT SA O DNIT DWB:DRUMINIT-S(1) D3T1 221 INIT.INIT:DINIT.SA.8 1 LINE 80 7 PAGE UM DWB AUG. 01, 1973 00:54.09 0 DRUM INITIALIZATION PROGRAM. HAS TABLE OF DRUM NAMES TO USE ASSEMBLED IN. AS DISTRIBUTED, THE TABLE CONTAINS TWO NAMES: DRM1 AND DRM2. IF THE PROGRAM CAN'T ACQUIRE ANY OF THE SPECIFIED DRUMS FROM THE SUPERVISOR, IT PRINTS "NNNN NOT AVAILABLE" AND GOES ON TO THE NEXT DRUM. 00097/9 INIT INIT:DINIT OC INIT:DINIT D3T1 222 INIT.INIT:DINIT.O.9 1 LINE 80 4 PAGE UM DWB JULY 30, 1973 23:46.37 00097/10 INIT INIT:INITLOG SA G INIL MTA:INITLOG(1,999) D3T1 223 INIT.INIT:INITLOG.SA.10 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 00:54.11 0 PROGRAM TO LOG RELOADS. RUN BY *INIT AND ASKS OPERATOR FOR REASON FOR RELOAD. COPIES COPY:PSA (162/1 OR 162/2). ASSEMBLE WITH *SYSMAC. 00097/11 INIT INIT:INITLOG OC G INIT:INITLOG D3T1 224 INIT.INIT:INITLOG.OC.11 1 LINE 80 2 PAGE UM MTA AUG. 01, 1973 02:08.00 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00098 *SQUASH SA # (OBSOLETED BY *LINKEDIT) D2T1 278 UM 00099 *IHC M *IHC D3T1 225 IHC..M. 1 LINE 68 1 PAGE UM TIFFANY JULY 30, 1973 23:46.44 0 LINE N CONTAINS ERROR COMMENT FOR ERROR COMMENT IHCNI 00100/1 *FILEDUMP SA G FILD W045:NEWFILEDUMP D3T1 226 FILEDUMP..SA.1 1 LINE 80 7 PAGE UM PIRKOLA JULY 30, 1973 23:46.46 0 USE *TAPEDUMP INSTEAD. 00100/2 *FILEDUMP OC G *FILEDUMP D3T1 227 FILEDUMP..O.2 1 LINE 80 2 PAGE UM PIRKOLA JULY 30, 1973 23:46.48 00101/1 MOUNT SA G MNT0 WSG:MOUNT D3.1T1 120 MOUNT..SA.1 1 LINE 80 63 PAGE UM WSG MAR. 06, 1974 03:26.11 0 PROGRAM TO MOUNT PRIVATE DEVICES. SUPPORT MAGNETIC TAPES, 2671 PAPER TAPE READER, PAPER TAPE PUNCHES ON THE UM DATA CONCENTRATOR, 7772 AUDIO RESPONSE UNIT, AND THE MERIT COMPUTER NETWORK. THIS PROGRAM IS INVOKED BY THE MTS $MOUNT COMMAND (SEE MTS VOLUME 1, JANUARY 1973 PP 269) OR BY A CALL ON THE MOUNT SUBROUTINE (OR RUNNING *MOUNT). THERE ARE TWO ENTRY POINTS: (1) "MOUNT" (SUBR AND *MOUNT) SETS UP A FAKE CLS TRANSFER VECTOR AND CALLS (2) "MOUNTCMD" (CLS ENTRY) WHICH DOES THE WORK. MTS VOLUME 4 (SEPTEMBER 1972) DESCRIBES EACH OF THE DEVICE TYPES WHICH CAN BE MOUNTED. MOUNT CONTAINS GLOBAL ASSEMBLY PARAMETERS FOR THE MAXIMUM NUMBER OF DEVICES OF EACH TYPE (IF ZERO, IT DELETES THE CODE AND TABLES NECESSARY FOR MOUNTING THAT DEVICE TYPE AND MAKES THE TYPE ILLEGAL). THE DISTRIBUTED VERSION HAS 10 9-TRACK TAPES, 2 7-TRACK TAPES, AND NOTHING ELSE-- SEE THE COMMENTS ON PAGE 4 OF THE ASSEMBLY LISTING. MOUNT CALLS THE TAPESTAT SUBR (447/1), WHICH REALLY SHOULD BE NAMED MOUNTSTA, TO ACCUMULATE MOUNT STATISTICS (NOT FOR BILLING). IT ALSO CALLS CUINFO FOR EACH SUCCESSFUL MOUNT TO INCREMENT THE MOUNT COUNT (FOR BILLING). COPIES COPY:LLMPSEQU (087), COPY:CLSVECTOR (535/2), AND COPY:FDUBDSECT (623). NOTE: THE $MOUNT COMMAND WAS IMPLEMENTED AS A COMMAND LANGUAGE SUBSYSTEM (CLS) AS A PROGRAMMING CONVENIENCE EVEN THOUGH MOUNT IS NOT STRICTLY A CLS (IT HAS NO SUB-COMMANDS). FOR D3.1, MOUNT HAS BEEN CHANGED TO USE 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 BECAUSE OF OUR 3270 OPERATOR'S CONSOLE. MOUNT HAS ALSO BEEN CHANGED TO FIX SEVERAL BUGS IN THE HANDLING OF INPUT (UPPER CASE CONVERSION AND CONTINUATION CHARACTERS), THE SIZE OF THE MTS PDN TABLE HAS BEEN EXPANDED TO ALLOW FOR THE RACK NUMBER, AND THE HANDLING OF PAPER TAPE PUNCH MOUNTS HAS BEEN CHANGED. 0 Referenced by comments of: 447/1 00101/2 MOUNT *CLSMOUNT OC G WSG:MNTOBJ.D3.1 D3.1T1 121 MOUNT.*CLSMOUNT.OC.2 1 LINE 80 5 PAGE UM WSG MAR. 06, 1974 03:26.20 0 OBJECT FOR MOUNT SUBROUTINE (MOUNT) AND CLS MOUNT (MOUNTCMD). NORMALLY *CLSMOUNT IS LOADED INTO SEGMENT 2 AT IPL BY THE SEGMENT 2 LOADER. HOWEVER, IF IT IS NOT, THE MTS $MOUNT COMMAND WILL DYNAMICALLY LOAD A PRIVATE COPY, BUT THE MOUNT SUBROUTINE WILL BE UNDEFINED IN LCS. NOTE THAT THE LDT CARD AT THE END OF THIS DECK CAUSES THE ENTRY POINT TO BE SET TO MOUNTCMD, SINCE THIS IS THE CLS ENTRY (IT IS THE SECOND ENTRY POINT). BECAUSE OF THIS LDT CARD, $RUN *CLSMOUNT DOESN'T WORK SINCE IT ENTERS AT THE CLS ENTRY POINT INSTEAD OF THE SUBR ENTRY. THIS FILE ALSO CONTAINS THE OBJECT FOR THE TAPESTAT SUBROUTINE (447/1) AND DISMOUNT (102/1). AT UM, WE HAVE DISMOUNT IN SEGMENT 2 BECAUSE THE MERIT COMPUTER NETWORK CLS (553) CALLS THE DISMOUNT SUBROUTINE. 1 FRI AUG 02/96 18:37:32 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 Referenced by comments of: 101/3 00101/3 MOUNT *MOUNT OC G *MOUNT D3T1 230 MOUNT.*MOUNT.OC.3 1 LINE 24 1 PAGE UM WSG JULY 30, 1973 23:47.04 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SEGMENT 2 MOUNT (101/2). 00102/1 DISMOUNT SA G DMNT WSG:DISMOUNT(1,999) D3.1T1 122 DISMOUNT..SA.1 1 LINE 80 5 PAGE UM WSG MAR. 06, 1974 03:26.22 0 PROGRAM TO DISMOUNT THINGS MOUNTED BY MOUNT. SINCE THIS CAN NOW BE DONE VIA THE $RELEASE COMMAND, THE PROGRAM IS PRIMARILY USEFUL AS A SUBROUTINE. THE PROGRAM IS RE-ENTRANT SO IT CAN BE LOADED INTO SEGMENT 2 (THE PRACTICE AT UM). COPIES COPY:LLMPSEQU (087). FOR D3.1, DISMOUNT HAS BEEN CHANGED BECAUSE OF THE EXPANDED SIZE OF THE MTS PDN TABLE. 0 Referenced by comments of: 101/2 00102/2 DISMOUNT OC G # (PART OF 101/2) UM WSG 00102/3 DISMOUNT *DISMOUNT OC G *DISMOUNT D3T1 232 DISMOUNT.*DISMOUNT.OC.3 1 LINE 24 1 PAGE UM WSG JULY 30, 1973 23:47.08 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SEGMENT 2 DISMOUNT (PART OF 101/2). 00104/1 ACCOUNTING ACCFORMAT SA G AFMT S0027 DISTRB FSNAME=ACCFORMAT D3.1T1 123 ACCOUNTING.ACCFORMAT.SA.1 1 SEQ 80 2 PAGE UM ENGLE JAN. 31, 1974 13:24.39 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 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+FLSH+GTFL+RBTA 1 FRI AUG 02/96 18:37:32 Page 35 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 +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: FOR D3.1, THE ACCOUNTING FILE FORMAT HAS CHANGED AS A NEW RATE WAS ADDED FOR THE MERIT COMPUTER NETWORK CONNECT-TIME CHARGE. ALSO, A NUMBER OF ACCOUNTING PROGRAMS HAVE A GBLB SYMBOL (&DC) TO ELIMINATE THE ASSEMBLY OF INSTRUCTIONS FOR THE DATA CELL. IF THE VALUE OF &DC IS 0, THE INSTRUCTIONS WILL NOT BE ASSEMBLED. IF THE VALUE IS 1, THE INSTRUCTIONS WILL BE ASSEMBLED. ALL DISTRIBUTION PROGRAMS HAVE THE VALUE SET TO 0, AND THE RESULTS OF SETTING &DC TO 1 ARE NOT GUARANTEED. 0 Referenced by comments of: 104/1, 104/4, 104/6, 104/10, 104/12, 104/14, 104/15, 104/16, 104/24, 104/39, 104/41, 104/49, 104/51, 104/66, 104/68, 104/73, 104/75, 104/77, 104/83, 442/1, 502/1, 586/1, 631/6, 631/8, 632/3 00104/2 ACCOUNTING ACCRATE SA G ARAT S0027 DISTRB FSNAME=ACCRATE D3.1T1 124 ACCOUNTING.ACCRATE.SA.2 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 13:25.00 0 COPIED UNDER THE NAME "ACCRATE" TO GIVE THE CURRENT RATES. 0 Referenced by comments of: 104/14, 104/16, 586/1 00104/3 ACCOUNTING ACCPROJFMT SA G APFT S0027 DISTRB FSNAME=ACCPROJFMT D3.1T1 125 ACCOUNTING.ACCPROJFMT.SA.3 1 SEQ 80 1 PAGE UM ENGLE JAN. 31, 1974 13:26.06 0 COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT. 0 Referenced by comments of: 104/16, 104/28, 104/33, 104/41, 500/18, 500/22, 631/6 00104/4 ACCOUNTING ACCERROR SA G AERR S0027 DISTRB FSNAME=ACCERROR D3.1T1 126 ACCOUNTING.ACCERROR.SA.4 1 LINE 80 8 PAGE UM ENGLE JAN. 31, 1974 13:27.23 0 CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN. COPIES ACCFORMAT (104/1). 00104/5 ACCOUNTING ACCERROR OC G S0027 DISTRB FSNAME=AERR D3.1T1 127 ACCOUNTING.ACCERROR.OC.5 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 13:27.40 00104/6 ACCOUNTING ACCPRINT SA G APRT S0027 DISTRB FSNAME=ACCPRINT D3.1T1 128 ACCOUNTING.ACCPRINT.SA.6 1 LINE 80 9 PAGE UM ENGLE JAN. 31, 1974 13:28.59 0 FORMATS AN ACCOUNTING RECORD FOR PRINTING. SUBROUTINE USED BY SEVERAL PROGRAMS. COPIES ACCFORMAT (104/1). 00104/7 ACCOUNTING ACCPRINT OC G S0027 DISTRB FSNAME=APRT D3.1T1 129 ACCOUNTING.ACCPRINT.OC.7 1 LINE 80 5 PAGE UM ENGLE JAN. 31, 1974 13:29.20 00104/8 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. 1 FRI AUG 02/96 18:37:32 Page 36 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/9 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/10 ACCOUNTING ACCINITL SA G AINT S0027 DISTRB FSNAME=ACCINITL 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/11 ACCOUNTING ACCINITL OC G S0027 DISTRB FSNAME=AINT D3.1T1 131 ACCOUNTING.ACCINITL.OC.11 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 13:31.49 00104/12 ACCOUNTING STATUS SA G STAT S0027 DISTRB FSNAME=STATUS D3.1T1 132 ACCOUNTING.STATUS.SA.12 1 LINE 80 11 PAGE UM ENGLE JAN. 31, 1974 13:33.09 0 MAIN PROGRAM FOR *STATUS. COPIES ACCFORMAT (104/1). 00104/13 ACCOUNTING STATUS OC G S0027 DISTRB FSNAME=STAT D3.1T1 133 ACCOUNTING.STATUS.OC.13 1 LINE 80 4 PAGE UM ENGLE JAN. 31, 1974 13:33.15 0 Referenced by comments of: 129/2 00104/14 ACCOUNTING ACCRTUPD SA G ARTU S0720 'D3T1' FSNAME=ACCOUNTING.ACCRTUPD.SA.14 246 D3T1 246 ACCOUNTING.ACCRTUPD.SA.14 1 LINE 80 2 PAGE UM ENGLE OCT. 03, 1972 15:49.38 0 PROGRAM TO UPDATE RATES. THIS IS TO BE USED WITH ARDW AND IT PROVIDES AN EXAMPLE OF HOW TO WRITE A SUBROUTINE TO BE USED WITH THAT PROGRAM. TO CHANGE RATES, PUT THE NEW RATES IN ACCRATE, ASSEMBLE ARTU, AND RUN ARDW WITH THE NEW ARTU. COPIES ACCFORMAT (104/1) AND ACCRATE (104/2). 00104/15 ACCOUNTING ACCRTUPD OC G # D3T1 247 ACCOUNTING.ACCRTUPD.OC.15 1 LINE 80 1 DISK UM ENGLE OCT. 03, 1972 15:50.00 0 NO OBJECT AVAILABLE FOR CURRENT VERSION OF ACCFORMAT (104/1). 00104/16 ACCOUNTING ACCMAINT SA G AMAT S0027 DISTRB FSNAME=ACCMAINT D3.1T1 134 ACCOUNTING.ACCMAINT.SA.16 1 LINE 80 56 PAGE UM ENGLE JAN. 31, 1974 13:39.35 0 MAIN PROGRAM FOR ACCMAINT. COPIES ACCFORMAT (104/1), ACCRATE (104/2), AND ACCPROJFMT (104/3). 00104/17 ACCOUNTING ACCMAINT OC G S0027 DISTRB FSNAME=AMAT D3.1T1 135 ACCOUNTING.ACCMAINT.OC.17 1 LINE 80 9 PAGE UM ENGLE JAN. 31, 1974 13:40.38 00104/18 ACCOUNTING ACCIO SA G AIO S0720 'D3T1' FSNAME=ACCOUNTING.ACCIO.SA.18 250 D3T1 250 ACCOUNTING.ACCIO.SA.18 1 LINE 80 15 PAGE UM ENGLE OCT. 05, 1972 10:48.59 0 GENERAL I/O SUBROUTINES FOR THE ACCOUNTING FILE(S). 0 Referenced by comments of: 104/32, 502/1 1 FRI AUG 02/96 18:37:32 Page 37 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/19 ACCOUNTING ACCIO OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCIO.OC.19 251 D3T1 251 ACCOUNTING.ACCIO.OC.19 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 10:51.23 0 Referenced by comments of: 129/2, 484/1, 631/12 00104/20 ACCOUNTING ACCGFUPD SA G W013:ACCGFUPD(100) D3T5 253 ACCOUNTING.ACCGFUPD.SA.98 1 LINE 72 1 PAGE UM ENGLE AUG. 11, 1973 01:28.06 0 PROGRAM TO UPDATE FILE STORAGE FIELDS FOR ALL USERIDS. RUN WITH ACCRDWRT (104/26). THIS PROGRAM IS IN "MTS:FILEUPD" ON THE D3 RESTORE PACK SINCE IT IS USED IN THE PROCESS OF CONVERTING FROM DISTRIBUTION 2 TO DISTRIBUTION 3. 00104/21 ACCOUNTING ACCGFUPD OC G W013:ACCGFUPD(1,98) D3.1T1 136 ACCOUNTING.ACCGFUPD.OC.21 1 LINE 80 1 PAGE UM ENGLE MAR. 06, 1974 03:27.22 00104/22 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/23 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/24 ACCOUNTING ACCSTRUP SA G ASTR S0027 DISTRB FSNAME=ACCSTRUP 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/25 ACCOUNTING ACCSTRUP OC G S0027 DISTRB FSNAME=ASTR D3.1T1 138 ACCOUNTING.ACCSTRUP.OC.25 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 13:43.39 0 Referenced by comments of: 484/1 00104/26 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/98) IS AN EXAMPLE OF SUCH A SUBROUTINE. THE COMMENTS AT THE FRONT OF ARDW GIVE MORE INFORMATION. 0 Referenced by comments of: 104/20 00104/27 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/51 00104/28 ACCOUNTING PCONVERT SA G PCNV S0027 DISTRB FSNAME=PCONVERT 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. TO USE, RUN PRJLIST (104/36) + PCONVERT + ACCLIB (104/32). NEW PROJECT FILE IS PRODUCED ON SPUNCH. COPIES ACCPROJFMT (104/3). 1 FRI AUG 02/96 18:37:32 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/29 ACCOUNTING PCONVERT OC G S0027 DISTRB FSNAME=PCNV D3.1T1 140 ACCOUNTING.PCONVERT.OC.29 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:33.42 00104/30 ACCOUNTING ACCPRJMT SA G APMT S0027 DISTRB FSNAME=ACCPRJMT D3.1T1 141 ACCOUNTING.ACCPRJMT.SA.30 1 LINE 80 26 PAGE UM ENGLE JAN. 31, 1974 13:46.03 0 MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT. 00104/31 ACCOUNTING ACCPRJMT OC G S0027 DISTRB FSNAME=APMT D3.1T1 142 ACCOUNTING.ACCPRJMT.OC.31 1 LINE 80 5 PAGE UM ENGLE JAN. 31, 1974 13:46.29 00104/32 ACCOUNTING ACCLIB OL G S0027 DISTRB FSNAME=ACCLIB D3.1T1 143 ACCOUNTING.ACCLIB.OL.32 1 LINE 80 14 PAGE UM ENGLE FEB. 22, 1974 18:26.20 0 THE RIP CARD FOR THE SYMBOL "LINCOUNT" SHOULD BE DELETED FROM ACCLIB AFTER IT IS GENERATED. THERE ARE SOME REP CARDS IN THIS LIBRARY. THE REP CARDS ARE TO CHANGE FILE NAMES IN ACCIO (104/18) TO PUBLIC FILES. 0 Referenced by comments of: 104/28, 632/1, 632/3, 632/5 00104/33 ACCOUNTING ACPRJPRT SA G APPR S0027 DISTRB FSNAME=ACPRJPRT D3.1T1 144 ACCOUNTING.ACPRJPRT.SA.33 1 LINE 80 8 PAGE UM ENGLE JAN. 31, 1974 13:51.10 0 SUBROUTINE TO PRINT A RECORD FROM *PROJECT. COPIES ACCPROJFMT (104/3). 00104/34 ACCOUNTING ACPRJPRT OC G S0027 DISTRB FSNAME=APPR D3.1T1 145 ACCOUNTING.ACPRJPRT.OC.34 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 13:51.25 00104/35 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/36 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/28 00104/37 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/38 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 00104/39 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 1 FRI AUG 02/96 18:37:32 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 THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET. COPIES ACCFORMAT (104/1). 00104/40 ACCOUNTING ACCPASWD OC G S0027 DISTRB FSNAME=APSW D3.1T1 146 ACCOUNTING.ACCPASWD.OC.40 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 13:54.15 00104/41 ACCOUNTING ACONSIST SA G ACNS S0720 'D3T1' FSNAME=ACCOUNTING.ACONSIST.SA.41 273 D3T1 273 ACCOUNTING.ACONSIST.SA.41 1 LINE 80 13 PAGE UM ENGLE JAN. 18, 1973 14:39.59 0 MAIN PROGRAM FOR ACCERRORSCAN. COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/3). 00104/42 ACCOUNTING ACONSIST OC G S0027 DISTRB FSNAME=ACNS D3.1T1 147 ACCOUNTING.ACONSIST.OC.42 1 LINE 80 4 PAGE UM ENGLE JAN. 31, 1974 13:55.14 00104/43 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/44 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/45 ACCOUNTING DIRECTRY SA G DIR S0720 'D3T1' FSNAME=ACCOUNTING.DIRECTRY.SA.45 277 D3T1 277 ACCOUNTING.DIRECTRY.SA.45 1 LINE 80 16 PAGE UM ENGLE JAN. 05, 1973 11:17.14 0 I/O SUBROUTINES FOR THE DIRECTORY FILE. 00104/46 ACCOUNTING DIRECTRY OC G S0720 'D3T1' FSNAME=ACCOUNTING.DIRECTRY.OC.46 278 D3T1 278 ACCOUNTING.DIRECTRY.OC.46 1 LINE 80 2 DISK UM ENGLE JAN. 05, 1973 11:17.35 0 Referenced by comments of: 631/12 00104/47 ACCOUNTING DIRLIST SA G DLST S0720 'D3T1' FSNAME=ACCOUNTING.DIRLIST.SA.47 279 D3T1 279 ACCOUNTING.DIRLIST.SA.47 1 LINE 80 4 PAGE UM ENGLE JAN. 12, 1973 13:57.10 0 MAIN PROGRAM FOR DIRLIST - LIST THE PROJECT DIRECTORY. 00104/48 ACCOUNTING DIRLIST OC G S0720 'D3T1' FSNAME=ACCOUNTING.DIRLIST.OC.48 280 D3T1 280 ACCOUNTING.DIRLIST.OC.48 1 LINE 80 1 DISK UM ENGLE JAN. 12, 1973 13:57.20 00104/49 ACCOUNTING FILUPDAT SA G FLUP S0027 DISTRB FSNAME=FILUPDAT D3.1T1 148 ACCOUNTING.FILUPDAT.SA.49 1 LINE 80 5 PAGE UM ENGLE JAN. 31, 1974 14:04.39 0 PROGRAM TO CHARGE USERS FOR FILE STORAGE FROM LAST SIGNON TO THE END OF THE MONTH OR EXPIRATION TIME. IT BOTH UPDATES THE ACCOUNTING RECORD AND WRITES A STATISTICS RECORD FOR BILLING. COPIES ACCFORMAT (104/1). 00104/50 ACCOUNTING FILUPDAT OC G S0027 DISTRB FSNAME=FLUP D3.1T1 149 ACCOUNTING.FILUPDAT.OC.50 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 14:06.19 1 FRI AUG 02/96 18:37:32 Page 40 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/51 ACCOUNTING ACONVERT SA G ACNV S0027 DISTRB FSNAME=ACONVERT D3.1T1 150 ACCOUNTING.ACONVERT.SA.51 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:31.42 0 ACCUPDAT SUBROUTINE TO CONVERT A DISTRIBUTION 3.0 ACCOUNTING FILE TO DISTRIBUTION 3.1 BY ADDING NETWORK FIELDS AND FLAG. USE WITH ACCRDWRT (104/27). COPIES ACCFORMAT (104/1). 0 Referenced by comments of: 104/52 00104/52 ACCOUNTING ACONVERT OC G S0027 DISTRB FSNAME=ACNV D3.1T1 151 ACCOUNTING.ACONVERT.OC.52 1 LINE 80 1 PAGE UM ENGLE FEB. 04, 1974 13:31.56 0 SEE COMMENTS FOR (104/51) 00104/53 ACCOUNTING STAPRJPA SA G SPPA S0027 DISTRB FSNAME=STAPRJPA D3.1T1 152 ACCOUNTING.STAPRJPA.SA.53 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 14:13.54 0 TXT PATCH RECORDS FOR ACCMXMAT USED IN ACC:STATPROJECT (104/55). 00104/54 ACCOUNTING STAPRJPA OC G S0027 DISTRB FSNAME=SPPA D3.1T1 153 ACCOUNTING.STAPRJPA.OC.54 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 14:17.36 00104/55 ACCOUNTING STAPRJCL SA G SPCL S0027 DISTRB FSNAME=STAPRJCL D3.1T1 154 ACCOUNTING.STAPRJCL.SA.55 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 14:18.43 0 MAIN PROGRAM FOR ACC:STAPROJECT. CALLS ACCMXMAT WHICH HAS BEEN PATCHED WITH TXT RECORDS FROM STAPRJPA. 0 Referenced by comments of: 104/53 00104/56 ACCOUNTING STAPRJCL OC G S0027 DISTRB FSNAME=STCL D3.1T1 155 ACCOUNTING.STAPRJCL.OC.56 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 14:19.54 00104/57 ACCOUNTING STAPROJECT OC G S0027 DISTRB FSNAME=STAPROJECT D3.1T1 156 ACCOUNTING.STAPROJECT.OC.57 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 14:21.07 0 PROGRAM TO PRINT "STATUS PROJECT" (AS IN $ACCOUNTING) FOR ANY GIVEN PROJECT. CONTAINS A "$CONTINUE WITH ACC:ACCLIB" RECORD. OBJECT HAS REP CARDS. 00104/58 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/4, 104/66, 104/68, 104/70, 104/77, 104/81, 104/87, 586/1, 631/1, 631/4, 631/10, 632/3, 632/5 00104/59 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/65). 1 FRI AUG 02/96 18:37:32 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/60 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 00104/61 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/62 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/63 ACCOUNTING DIRPRINT SA G DPRT S0720 'D3T1' FSNAME=ACCOUNTING.DIRPRINT.SA.63 295 D3T1 295 ACCOUNTING.DIRPRINT.SA.63 1 LINE 80 6 PAGE UM ENGLE JAN. 12, 1973 13:57.59 0 SUBROUTINE TO FORMAT A DIRECTORY ENTRY FOR PRINTING. USED IN ACC:ACCLIB. 00104/64 ACCOUNTING DIRPRINT OC G S0720 'D3T1' FSNAME=ACCOUNTING.DIRPRINT.OC.64 296 D3T1 296 ACCOUNTING.DIRPRINT.OC.64 1 LINE 80 2 DISK UM ENGLE JAN. 12, 1973 13:58.08 00104/65 ACCOUNTING INITCHK # (SEE COMP 097/4 AND 097/5) UM ENGLE 0 Referenced by comments of: 104/59 00104/66 ACCOUNTING ACCFLUPD SA G AFLU S0027 DISTRB FSNAME=ACCFLUPD D3.1T1 157 ACCOUNTING.ACCFLUPD.SA.66 1 LINE 80 6 PAGE UM ENGLE JAN. 31, 1974 14:23.52 0 SUBROUTINE TO UPDATE FILE STORAGE INFORMATION IN AN ACCOUNTING RECORD. COPIES ACCFORMAT (104/1) AND GRDEF (104/58). 00104/67 ACCOUNTING ACCFLUPD OC G S0027 DISTRB FSNAME=AFLU D3.1T1 158 ACCOUNTING.ACCFLUPD.OC.67 1 LINE 80 2 PAGE UM ENGLE JAN. 31, 1974 14:24.26 0 Referenced by comments of: 484/1 00104/68 ACCOUNTING ACCINSCN SA G AINS S0720 'D3T1' FSNAME=ACCOUNTING.ACCINSCN.SA.68 299 D3T1 299 ACCOUNTING.ACCINSCN.SA.68 1 LINE 80 6 PAGE UM ENGLE JAN. 08, 1973 17:51.49 0 USED IN INIT:INIT (097/3). COPIES ACCFORMAT (104/1) AND GRDEF (104/58). 00104/69 ACCOUNTING ACCINSCN OC G S0027 DISTRB FSNAME=AINS D3.1T1 159 ACCOUNTING.ACCINSCN.OC.69 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 14:27.48 00104/70 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/58) AND *LLMPSEQU. NOTE THAT THE SOURCE SHOULD BE CHANGED (IF RE-ASSEMBLED) SO THAT IT COPIES COPY:LLMPSEQU (087) INSTEAD OF *LLMPSEQU WHICH NO LONGER EXISTS. 00104/71 ACCOUNTING CURSIG OC G 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 18:37:32 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/72 ACCOUNTING DEDFLFIX # (SEE COMP 502/13 AND 502/14) UM ENGLE 00104/73 ACCOUNTING ACCLSTPR SA G ALPR S0027 DISTRB FSNAME=ACCLSTPR D3.1T1 160 ACCOUNTING.ACCLSTPR.SA.73 1 LINE 80 8 PAGE UM ENGLE JAN. 31, 1974 14:29.20 0 SUBROUTINE TO PRINT AN ACCOUNTING RECORD IN ABBREVIATED LISTING FORMAT. COPIES ACCFORMAT (104/1). 00104/74 ACCOUNTING ACCLSTPR OC G S0027 DISTRB FSNAME=ALPR D3.1T1 161 ACCOUNTING.ACCLSTPR.OC.74 1 LINE 80 3 PAGE UM ENGLE JAN. 31, 1974 14:30.11 00104/75 ACCOUNTING ACCFLCHG SA G AFLC S0027 DISTRB FSNAME=ACCFLCHG D3.1T1 162 ACCOUNTING.ACCFLCHG.SA.75 1 LINE 80 4 PAGE UM ENGLE JAN. 31, 1974 14:31.33 0 SUBROUTINE TO PRINT INFORMATION RELEVANT TO ACCUMULATED FILE CHARGES FOR AN ACCOUNTING RECORD. CALLED BY ACCDSPLA. COPIES ACCFORMAT (104/1). 00104/76 ACCOUNTING ACCFLCHG OC G S0027 DISTRB FSNAME=AFLC D3.1T1 163 ACCOUNTING.ACCFLCHG.OC.76 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 14:33.35 00104/77 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/58). 00104/78 ACCOUNTING APSWDISP OC G S0027 DISTRB FSNAME=APWD D3.1T1 164 ACCOUNTING.APSWDISP.OC.78 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 14:59.18 00104/79 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/80 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/81 ACCOUNTING TIMETRP SA G TTRP S0720 'D3T1' FSNAME=ACCOUNTING.TIMETRP.SA.81 311 D3T1 311 ACCOUNTING.TIMETRP.SA.81 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1973 11:04.33 0 SUBROUTINE TO SET UP REAL TIME INTERRUPTS AND SET A FLAG AT THE INTERRUPT. COPIES GRDEF (104/58). 00104/82 ACCOUNTING TIMETRP OC G S0720 'D3T1' FSNAME=ACCOUNTING.TIMETRP.OC.82 312 D3T1 312 ACCOUNTING.TIMETRP.OC.82 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 11:04.41 0 Referenced by comments of: 631/12 00104/83 ACCOUNTING ACCSGATR SA G ASAR S0027 DISTRB FSNAME=ACCSGATR 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) 1 FRI AUG 02/96 18:37:32 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/84 ACCOUNTING ACCSGATR OC G ASAR S0027 DISTRB FSNAME=ASAR D3.1T1 166 ACCOUNTING.ACCSGATR.OC.84 1 LINE 80 3 PAGE UM ENGLE JAN. 08, 1974 14:53.32 00104/85 ACCOUNTING ACCSAVE SA G ASAV S0720 'D3T1' FSNAME=ACCOUNTING.ACCSAVE.SA.85 315 D3T1 315 ACCOUNTING.ACCSAVE.SA.85 1 LINE 80 7 PAGE UM ENGLE JAN. 09, 1973 11:21.16 0 MAIN PROGRAM FOR ACC:ACCSAVE TO SAVE ACCOUNTING AND PROJECT FILES ON TAPE. 00104/86 ACCOUNTING ACCSAVE OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCSAVE.OC.86 316 D3T1 316 ACCOUNTING.ACCSAVE.OC.86 1 LINE 80 2 DISK UM ENGLE JAN. 09, 1973 11:21.35 00104/87 ACCOUNTING ACCTAPRD SA G ATRD S0720 'D3T1' FSNAME=ACCOUNTING.ACCTAPRD.SA.87 317 D3T1 317 ACCOUNTING.ACCTAPRD.SA.87 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1973 11:28.29 0 VERSION OF ACCREAD TO BE USED WITH ACCOUNTING FILE SAVE TAPES. COPIES GRDEF (104/58). 00104/88 ACCOUNTING ACCTAPRD OC G S0720 'D3T1' FSNAME=ACCOUNTING.ACCTAPRD.OC.88 318 D3T1 318 ACCOUNTING.ACCTAPRD.OC.88 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 11:28.51 00104/89 ACCOUNTING GETFILE SA G GTFL S0027 DISTRB FSNAME=GETFILE D3.1T1 167 ACCOUNTING.GETFILE.SA.89 1 LINE 80 3 PAGE UM ENGLE FEB. 22, 1974 18:30.09 0 SUBROUTINE TO GET A FDUB, ETC. 0 Referenced by comments of: 502/1 00104/90 ACCOUNTING GETFILE OC G S0027 DISTRB FSNAME=GTFL D3.1T1 168 ACCOUNTING.GETFILE.OC.90 1 LINE 80 1 PAGE UM ENGLE FEB. 22, 1974 18:30.14 0 Referenced by comments of: 129/2, 484/1, 631/12 00104/91 ACCOUNTING ACATALOG SA G ACAT W045:PF.ACATALOG D3T1 321 ACCOUNTING.ACATALOG.SA.91 1 LINE 80 4 PAGE UM PIRKOLA JULY 31, 1973 00:07.37 0 SUBROUTINE THAT GETS THE CURRENT DISK AND DATA CELL SPACE FOR A USER FROM THE CATALOG AND DSCB. USED BY ACC:ACCMAINT, INIT:INIT, AND *ACCRESTORE. COPIES COPY:CATEQU (482/28). 00104/92 ACCOUNTING ACATALOG OC G W045:PF.ACATALOG.O D3T1 322 ACCOUNTING.ACATALOG.OC.92 1 LINE 80 1 PAGE UM PIRKOLA JULY 31, 1973 00:07.39 0 Referenced by comments of: 484/1 00104/93 ACCOUNTING ACATALOG SA G ACAT MTA:ACATALOG(1,999) D3T1 323 ACCOUNTING.ACATALOG.SA.93 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 00:07.41 0 THIS IS A SPECIAL VERSION OF ACATALOG (REFERRED TO AS "SUPER ACATALOG") WHICH PERFORMS THE SAME FUNCTION, BUT CALLS THE ACATSUB SUBROUTINE (104/95) TO BUILD A TABLE OF USER ID VERSUS FILE SPACE FOR ALL USERS ON THE FIRST CALL TO ACATALOG. FROM THEN ON, IT JUST DOES A TABLE LOOKUP TO GET THE SIZE-- THE RESULT BEING A VERY FAST ACATALOG. THIS VERSION IS ONLY USED WHEN EVERY USER'S FILE SPACE IS TO BE RECALCULATED. AT UM, IT HAS ONLY BEEN USED WHEN NEW FILE SYSTEMS ARE INSTALLED, I.E. WHEN A COMPLETE FILE SAVE AND RESTORE HAVE BEEN DONE. COPIES COPY:CATEQU (482/28) AND COPY:FCBEQU (482/27). ASSEMBLE USING *SYSMAC. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 Referenced by comments of: 104/95 00104/94 ACCOUNTING ACATALOG OC G MTA:ACATALOG(1000) D3T1 324 ACCOUNTING.ACATALOG.OC.94 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 00:07.44 00104/95 ACCOUNTING ACATSUB SA G ACSB MTA:ACATSUB(1,999) D3T1 325 ACCOUNTING.ACATSUB.SA.95 1 LINE 80 10 PAGE UM MTA JULY 31, 1973 00:07.46 0 SUBROUTINE CALLED BY SUPER ACATALOG (104/93). COPIES COPY:CATEQU (482/28), COPY:FCBEQU (482/27), AND COPY:DSCBDSCT (482/41). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 104/93 00104/96 ACCOUNTING ACATSUB OC G MTA:ACATSUB(1000) D3T1 326 ACCOUNTING.ACATSUB.OC.96 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 00:07.49 00104/97 ACCOUNTING WRITEUP WF G S0027 DISTRB FSNAME=ACCWRITEUP D3.1T1 169 ACCOUNTING.WRITEUP.WF.97 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 15:20.27 0 A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS. 00107 ACATALOG # (SEE COMP 104) UM 00108/1 PL/360 ASSEMBLER S3 WATF:PL360.S D3T1 328 PL/360.ASSEMBLER.S3.1 1 LINE 73 38 PAGE UM BLINN JULY 31, 1973 00:08.12 0 MAY 1971 VERSION OF PL/360 FROM UNE. MODIFIED BY UM TO PRODUCE SYM CARDS. THIS FILE REQUIRES THE OBJECT IN *PL360 TO ASSEMBLE ITSELF. 00108/2 PL/360 MTS INTERFACE SA WATF:PL360SUP.S D3T1 329 PL/360.MTS_INTERFACE.SA.2 1 LINE 83 3 PAGE UM BLINN JULY 31, 1973 00:08.20 0 SOURCE IN ASMG FOR MTS INTERFACE OF PL/360. 00108/3 PL/360 *PL360 OE *PL360 D3T1 330 PL/360.*PL360.OE.3 1 SEQ 22059 9 PAGE UM BLINN JULY 31, 1973 00:08.22 00108/4 PL/360 *PL360LIB SA WATF:PL360LIB.S D3T1 331 PL/360.*PL360LIB.SA.4 1 LINE 80 3 PAGE UM BLINN JULY 31, 1973 00:08.24 0 SOURCE FOR THE RUN TIME PL360 LIBRARY - *PL360LIB. 00108/5 PL/360 *PL360LIB OC *PL360LIB D3T1 332 PL/360.*PL360LIB.OC.5 1 LINE 80 1 PAGE UM BLINN JULY 31, 1973 00:08.26 00108/6 PL/360 *PL360SLIB SA WATF:PL360SLIB.S D3T1 333 PL/360.*PL360SLIB.SA.6 1 LINE 80 3 PAGE UM BLINN JULY 31, 1973 00:08.28 0 SOURCE FOR ANOTHER RUN TIME PL360 LIBRARY - *PL360SLIB. THE ONLY DIFFERENCE BETWEEN THIS AND *PL360LIB IS THAT THIS ONE WRITES LINES @ÂCC (WITHOUT CARRIAGE CONTROL). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00108/7 PL/360 *PL360SLIB OC *PL360SLIB D3T1 334 PL/360.*PL360SLIB.OC.7 1 SEQ 80 1 PAGE UM BLINN JULY 31, 1973 00:08.31 00110/1 TNL *TNL SA *TNL S0370 'D1T1' FMT=FB(6400,80) 180 D3T1 335 TNL.*TNL.S.1 1 SEQ 80 30 PAGE UM DWB JULY 31, 1973 00:08.57 0 PROGRAM TO PRINT TNLS FOR USERS. REQUIRES DATA FILE *MTSTNL. THIS PROGRAM HAS NEVER BEEN USED, BUT MIGHT BE (SOMEDAY) IF THE PEOPLE HERE (UM) EVER CARE ABOUT DOCUMENTATION. 00110/2 TNL *TNL OC *TNL D3T1 336 TNL.*TNL.O.2 1 LINE 80 6 PAGE UM DWB JULY 31, 1973 00:09.00 00110/3 TNL *TNLBUILD SA # (SEE COMP 110/1) UM DWB 0 PROGRAM TO ADD TNLS TO *MTSTNL. 00110/4 TNL *TNLBUILD OC *TNLBUILD D3T1 337 TNL.*TNLBUILD.O.4 1 LINE 80 4 PAGE UM DWB JULY 31, 1973 00:09.02 00111/1 *PTPRRTN SA G PTPR WSG:PTAPE D3T1 338 PTPRRTN..SA.1 1 LINE 80 18 PAGE UM WSG JULY 31, 1973 00:09.04 0 DEVICE SUPPORT ROUTINES FOR THE IBM 2671 PAPER TAPE READER. COPIES COPY:LLMPSEQU (087) AND REQUIRES *SYSMAC. 00111/2 *PTPRRTN OC G *PTPRRTN D3T1 339 PTPRRTN..OC.2 1 LINE 80 2 PAGE UM WSG JULY 31, 1973 00:09.08 00112 MAD1 # (NOT DISTRIBUTED) UM GALLER 0 OBJECT (AND PROBABLY SOURCE) FOR THE MAD1 COMPILER ARE AVAILABLE ON REQUEST. 00113 SCANFILES # (SEE COMP 502) UM 00116/1 *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 AND PDP-8E DATA CONCENTRATORS. COPIES COPY:LLMPSEQU (087) AND COPY:FDUBDSECT (623). REQUIRES D3.0 SUPERVISOR FOR NEW HIGH-ORDER SVC STIO BITS. 0 Referenced by comments of: 42/2 00116/2 *PDP8RTN OC G *PDP8RTN D3.1T1 171 PDP8RTN..OC.2 1 LINE 80 4 PAGE UM WSG MAR. 06, 1974 03:31.13 0 AT UM, THIS FILE IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00116/3 *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" 00116/4 *PDP8RTN MEMO M256 WF G W098:KDM256 D3.1T1 173 PDP8RTN.MEMO_M256.WF.4 1 LINE 127 3 PAGE UM JLD MAR. 06, 1974 03:31.16 0 THIS IS COMPUTING CENTER MEMO M256 -- "THE INTERRELATIONSHIP BETWEEN THE DATA CONCENTRATOR "SIZE" AND "OVERFLOW" OPTIONS AND THE THE MTS DSR "LEN" COMMAND" 00116/5 *PDP8RTN MEMO M257 WF G W098:KDM257 D3.1T1 174 PDP8RTN.MEMO_M257.WF.5 1 LINE 110 3 PAGE UM BLINN MAR. 06, 1974 03:31.18 0 THIS IS COMPUTING CENTER MEMO M257 -- "TEKTRONIX 4010 USER'S GUIDE" 00117 *GRAPHMAC SM O GRPM S0518 'D2T2' FMT=FB(4000,80) 209 D3T1 342 GRAPHMAC..SM. 1 SEQ 80 63 PAGE UM PIRKOLA JULY 31, 1973 00:14.26 0 MACROS TO SUPPORT AN EXTENSION OF EXPRESS GRAPHICS ON 2250'S IN MTS. CALLS SUBROUTINES IN *GRAPHLIB (231). 0 Referenced by comments of: 231/1 00119/1 SYN360 SS S0370 'D1T1' FMT=FB(6400,80) 143 D3T1 343 SYN360..SS.1 1 SEQ 80 5 PAGE UM DWB JULY 31, 1973 00:15.37 0 PROGRAM (IN SNOBOL) TO PRODUCE THE SYNTAX TABLES THAT SNOBOL USES TO PARSE ITS INPUT. USED AS "CPU BURNER" AND "PAGER" FOR SYSTEM TESTING. 00119/2 SYN360 TABLES DATA D S0370 'D1T1' FMT=FB(6400,80) 144 D3T1 344 SYN360.TABLES_DATA.D.2 1 SEQ 80 3 PAGE UM DWB JULY 31, 1973 00:15.38 0 INPUT TO 119/1. ENDS WITH A "$CONTINUE WITH SYNTBL" CARD. 00120/1 REWIND SUBR SA G REW0 MTA:REWIND(1,999) D3T1 345 REWIND_SUBR..SA.1 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 00:15.39 0 FORTRAN CALLABLE REWIND SUBROUTINE. ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 143/1 00120/2 REWIND SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00121/1 *USERS MAIN PGM SA G USER MTA:USERS(1,999) D3T1 346 USERS.MAIN_PGM.SA.1 1 LINE 80 4 PAGE UM MTA JULY 31, 1973 00:15.41 0 USER-LEVEL PROGRAM TO PRINT THE CURRENT NUMBER OF TERMINAL USERS AND BATCH JOBS, AS WELL AS THE CURRENT HARDWARE CONFIGURATION (PROCESSORS, CHANNEL CONTROLLERS, AND STORAGE). COPIES COPY:LLMPSEQU (087). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00121/2 *USERS CONF SUBR SA G CONF MTA:USERSCONF(1,999) D3T1 347 USERS.CONF_SUBR.SA.2 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 00:15.43 0 COPIES COPY:CHACST (577/28). 00121/3 *USERS OC G *USERS D3T1 348 USERS..OC.3 1 LINE 255 1 PAGE UM MTA JULY 31, 1973 00:15.46 00121/4 *USERS *USE C *USE D3T1 349 USERS.*USE.C.4 1 LINE 35 1 PAGE UM MTA JULY 31, 1973 00:15.48 0 COMMAND FILE INVOKED BY ENTERING "MTS *USE" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "OPER" AND RUNS *USERS WITH OUTPUT ON THE OPERATOR'S CONSOLE. 00122 *STA C # (SEE COMP 050) UM 00123 *PTASKS SA O PTSK S0371 'D1T2' FMT=FB(6400,80) 4 D3T1 350 PTASKS..SA. 1 SEQ 80 17 PAGE UM PIRKOLA JULY 31, 1973 00:15.58 0 PROGRAM TO DISPLAY TASK STATUS ON A 2250 DISPLAY. CALLS *PTSKRTN (063). COPIES *LLMPSEQU, WHICH SHOULD BE CHANGED TO COPY COPY:LLMPSEQU (087). OBJECT NOT DISTRIBUTED. 00126/1 BLSTDEV SA G BLDV 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 116 AND 56. ALSO USED BY OLTS (458) 00126/2 BLSTDEV OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00127 SAVEFILES # (SEE COMP 502) UM 00128 *PTPPRTN SA S PTPP S0370 'D1T1' FMT=FB(6400,80) 127 D3T1 352 PTPPRTN..SA. 1 SEQ 80 19 PAGE UM WSG JULY 31, 1973 00:17.03 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 1018 PAPER TAPE PUNCH. HAS BUGS AND HAS NOT BEEN USED AT UM FOR MANY YEARS. OBJECT NOT DISTRIBUTED; WASTE YOUR OWN MONEY ASSEMBLING IT! 00129/1 *STATUS SA G # (SEE COMP 104) UM ENGLE 0 PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD. 00129/2 *STATUS OE G MTS:STATUS/D3.1 D3.1T1 175 STATUS..OE.2 1 LINE 255 4 PAGE UM ENGLE MAR. 06, 1974 03:31.21 0 CONSISTS OF: STATUS (104/13) + ACCIO (104/19) + GETFILE (104/90). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00131 STRTPDP # (OBSOLETE, SEE COMP 614) D2T1 149 UM 00132/1 *PERMIT SA G PMIT W045:OLDPERMITANU D3T1 354 PERMIT..SA.1 1 LINE 80 6 PAGE UM PIRKOLA JULY 31, 1973 00:17.06 0 ACTUALLY *PERMIT IS NO LONGER NEEDED SINCE THE ADVENT OF THE $PERMIT COMMAND. HOWEVER, THIS VERSION WORKS WITH THE NEW FILE ROUTINES SO THAT STUBBORN USERS CAN STILL HAVE *PERMIT. CALLS PERMIT SUBROUTINE. 00132/2 *PERMIT OE G *PERMIT D3T1 355 PERMIT..O.2 1 LINE 255 1 PAGE UM PIRKOLA JULY 31, 1973 00:17.08 00133/1 *PLOT SA PLOT S0371 'D1T2' FMT=FB(6400,80) 8 D3T1 356 PLOT..S.1 1 SEQ 80 13 PAGE UM LIFT JULY 31, 1973 00:17.15 0 INTERFACE TO PRINTER PLOT SUBROUTINES. NOT CHANGED SINCE DIST 1. 00133/2 *PLOT OC *PLOT D3T1 357 PLOT..O.2 1 LINE 80 3 PAGE UM LIFT JULY 31, 1973 00:17.16 00135/1 *TAPERTN SA G TAPE WSG:TAPE D3.1T1 176 TAPERTN..SA.1 1 LINE 80 85 PAGE UM WSG MAR. 06, 1974 03:31.23 0 MTS DEVICE SUPPORT ROUTINES FOR MAGNETIC TAPES. COPIES COPY:LLMPSEQU (087) AND COPY:FDUBDSECT (623). SPECIAL GLITCH: THE LABEL PROGRAMS (SEE COMP 487) RELY ON THE LOCATION OF THE "CHKLABEL" BIT IN THE TAPERTN DSECT, SO THEY WILL HAVE TO BE REASSEMBLED IF CHKLABEL IS MOVED. THE "MAG TAPE USER'S GUIDE" IN MTS VOLUME 4 CLOSELY CORRESPONDS WITH THIS VERSION OF TAPERTN. THERE IS AN ADDITIONAL CONTROL COMMAND (NOT IN THE MANUAL) WHICH ONLY WORKS IF ISSUED BY USER ID MTS. THE "NLC" (NO LABEL CHECK) COMMAND CAN BE USED TO DETERMINE WHAT A TAPE'S VOLUME LABEL IS AS FOLLOWS: $SIG MTS $GET >T900 $CONTROL >T900 NLC $LIST $RELEASE FOR D3.1, THE TAPE ROUTINES HAVE BEEN EXTENDED AS FOLLOWS: (1) THE @BKWD I/O MODIFIER IS FULLY SUPPORTED. (2) THE EXPIRATION DATE (IN MM-DD-YY) HAS BEEN ADDED TO THE 'SNS' DATA IN BYTES 64-71. (3) THE SVC STIO IMPLIED WAIT BIT IS USED. (4) THE UBC SUGGESTED CHANGE FOR DEFAULT 9TP UNLABELED TAPE DENSITY IS INCLUDED. THE DEFAULT DENSITY IS NOW THE DENSITY OF THE DATA CURRENTLY WRITTEN ON THE TAPE, RATHER THAN 1600 BPI. 0 Referenced by comments of: 487/4, 489/1 00135/2 *TAPERTN OC G WSG:XTAPERTN.D3.1 D3.1T1 177 TAPERTN..OC.2 1 LINE 80 6 PAGE UM WSG MAR. 06, 1974 03:31.43 0 AT UM, THIS FILE IS NORMALLY LOADED INTO SHARED VM BY THE SEGMENT 2 LOADER AT IPL. HOWEVER, FOR INSTALLATIONS WITH LOWER TAPE USAGE, MTS WILL DYNAMICALLY LOAD A PRIVATE COPY (AS REQUIRED) FROM THIS FILE. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00136/1 *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/2 *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/3 *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/1 *UPDATE SA G UPDT W086:UPDATE.S D3T1 363 UPDATE..SA.1 1 LINE 80 29 PAGE UM DE JONG JULY 31, 1973 00:17.39 0 D3.0 SOURCE FOR *UPDATE. REQUIRES D3.0 QSAM ROUTINES (283). 00137/2 *UPDATE UU G W086:UPDATE.U D3T1 364 UPDATE..UU.2 1 LINE 72 9 PAGE UM DE JONG JULY 31, 1973 00:17.45 0 UPDATE DECK TO PRODUCE D3.0 *UPDATE FROM D2.0. 00137/3 *UPDATE OE G *UPDATE D3T1 365 UPDATE..O.3 1 LINE 255 4 PAGE UM DE JONG JULY 31, 1973 00:17.47 00138/1 TEXT/360 *PRESCAN SA PRES S0518 'D2T2' FMT=FB(4000,80) 185 D3T1 366 TEXT/360.*PRESCAN.SA.1 1 SEQ 80 35 PAGE UM TIFFANY JULY 31, 1973 00:21.04 0 SINCE ALMOST ALL OF THE TEXT/360 PROGRAMS WERE COMPILED BY THE PL/I(F) VERSION 4 COMPILER, THERE ARE SEVERAL INCOMPATIBILITIES IN COMPILING THESE IN PL/I(F) VERSION 5 (THE CURRENT VERSION), ESPECIALLY SINCE VERSION 5 REALLY IMPLEMENTS HALFWORDS. FOR THIS REASON, THE OBJECT FOR *FMAINT, *BLDLIN, *PLAOUT, AND *POSTPR IS VERSION 4 OBJECT WHICH HAS BEEN PATCHED SINCE THE VERSION 4 COMPILER'S OBJECT CODE DOESN'T WORK WHEN LOADED INTO SEGMENT 5. *PRESCAN IS THE TEXT/360 PRESCAN PROGRAM. MODIFIED FROM OS/360. 00138/2 TEXT/360 *PRESCAN OC *PRESCAN D3T1 367 TEXT/360.*PRESCAN.OC.2 1 LINE 80 5 PAGE UM TIFFANY JULY 31, 1973 00:21.07 0 OBJECT HAS A REP 1 FRI AUG 02/96 18:37:32 Page 50 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00138/3 TEXT/360 *FMAINT SP FMAI S0518 'D2T2' FMT=FB(4000,80) 186 D3T1 368 TEXT/360.*FMAINT.SP.3 1 SEQ 80 35 PAGE UM TIFFANY JULY 31, 1973 00:21.12 0 TEXT/360 PHASE 1 -- FILE MAINTENANCE. PL/I VERSION 4. 00138/4 TEXT/360 *FMAINT OE *FMAINT D3T1 369 TEXT/360.*FMAINT.OE.4 1 SEQ 23106 9 PAGE UM TIFFANY JULY 31, 1973 00:21.15 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/5 TEXT/360 *BLDLIN 1 SP BLD1 S0518 'D2T2' FMT=FB(4000,80) 187 D3T1 370 TEXT/360.*BLDLIN_1.SP.5 1 SEQ 80 64 PAGE UM TIFFANY JULY 31, 1973 00:21.23 0 TEXT/360 PHASE 2 -- BUILD LINES. PL/I VERSION 4. 00138/6 TEXT/360 *BLDLIN 2 SP BLD2 S0518 'D2T2' FMT=FB(4000,80) 188 D3T1 371 TEXT/360.*BLDLIN_2.SP.6 1 SEQ 80 6 PAGE UM TIFFANY JULY 31, 1973 00:21.28 0 TEXT/360 PHASE 2 SUBROUTINE TO HYPHENATE WORDS. PL/I VERSION 4. 00138/7 TEXT/360 *BLDLIN OE *BLDLIN D3T1 372 TEXT/360.*BLDLIN.OE.7 1 SEQ 32751 14 PAGE UM TIFFANY JULY 31, 1973 00:21.29 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/8 TEXT/360 *PLAOUT SP PLAO S0518 'D2T2' FMT=FB(4000,80) 189 D3T1 373 TEXT/360.*PLAOUT.SP.8 1 SEQ 80 46 PAGE UM TIFFANY JULY 31, 1973 00:21.36 0 TEXT/360 PHASE 3 -- PAGE LAY OUT. PL/I VERSION 4. 00138/9 TEXT/360 *PLAOUT OE *PLAOUT D3T1 374 TEXT/360.*PLAOUT.OE.9 1 SEQ 28222 9 PAGE UM TIFFANY JULY 31, 1973 00:21.39 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/10 TEXT/360 *POSTPR 1 SP PPR1 S0518 'D2T2' FMT=FB(4000,80) 190 D3T1 375 TEXT/360.*POSTPR_1.SP.10 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:21.41 0 TEXT/360 PHASE 4 -- POST PROCESSOR. PL/I VERSION 4. 00138/11 TEXT/360 *POSTPR 2 SP PPR2 S0518 'D2T2' FMT=FB(4000,80) 191 D3T1 376 TEXT/360.*POSTPR_2.SP.11 1 SEQ 80 28 PAGE UM TIFFANY JULY 31, 1973 00:21.47 0 TEXT/360 PHASE 4 SUBROUTINE. PL/I VERSION 4. 00138/12 TEXT/360 *POSTPR 3 SP PPR3 S0518 'D2T2' FMT=FB(4000,80) 192 D3T1 377 TEXT/360.*POSTPR_3.SP.12 1 SEQ 80 6 PAGE UM TIFFANY JULY 31, 1973 00:21.50 0 TEXT/360 PHASE 4 SUBROUTINE. PL/I VERSION 4. 00138/13 TEXT/360 *POSTPR OE *POSTPR D3T1 378 TEXT/360.*POSTPR.OE.13 1 SEQ 15558 10 PAGE UM TIFFANY JULY 31, 1973 00:21.52 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00138/14 TEXT/360 *PRINT SA PRNT S0371 'D1T2' FMT=FB(6400,80) 39 D3T1 379 TEXT/360.*PRINT.SA.14 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 00:22.33 0 TEXT/360 OUTPUT PRINTING PROGRAM. 00138/15 TEXT/360 *PRINT OC *PRINT D3T1 380 TEXT/360.*PRINT.OC.15 1 LINE 80 3 PAGE UM TIFFANY JULY 31, 1973 00:22.34 00138/16 TEXT/360 *T90T360 SP T90T S0371 'D1T2' FMT=FB(6400,80) 36 D3T1 381 TEXT/360.*T90T360.SP.16 1 SEQ 80 5 PAGE UM TIFFANY JULY 31, 1973 00:22.40 0 CONVERT TEXT/90 MASTER TAPES TO TEXT/360. THIS IS IBM'S PROGRAM. PL/I VERSION 4. 00138/17 TEXT/360 *T90T360 OC *T90T360 D3T1 382 TEXT/360.*T90T360.OC.17 1 LINE 80 5 PAGE UM TIFFANY JULY 31, 1973 00:22.41 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/18 TEXT/360 *DICTUPD SP DICT S0371 'D1T2' FMT=FB(6400,80) 37 D3T1 383 TEXT/360.*DICTUPD.SP.18 1 SEQ 80 5 PAGE UM TIFFANY JULY 31, 1973 00:22.44 0 PROGRAM TO MAINTAIN TEXT/360 SPELLING DICTIONARY. 00138/19 TEXT/360 *DICTUPD OC *DICTUPD D3T1 384 TEXT/360.*DICTUPD.OC.19 1 LINE 80 6 PAGE UM TIFFANY JULY 31, 1973 00:22.46 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00138/20 TEXT/360 *DICT D S0518 'D2T2' FMT=FB(4000,80) 194 D3T1 385 TEXT/360.*DICT.D.20 1 SEQ 80 8 PAGE UM TIFFANY JULY 31, 1973 00:22.49 0 TEXT/360 SPELLING DICTIONARY. THIS FILE IS APPARENTLY NOT COMPATIBLE WITH *DICTUPD. 00138/21 TEXT/360 CONVERT SUBR SA UCLC S0518 'D2T2' FMT=FB(4000,80) 196 D3T1 386 TEXT/360.CONVERT_SUBR.SA.21 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 00:22.51 0 UPPER CASE - LOWER CASE CONVERSION SUBROUTINE USED BY *FMAINT AND *BLDLIN. 00138/22 TEXT/360 CVTUPC SUBR SA LCUC S0518 'D2T2' FMT=FB(4000,80) 197 D3T1 387 TEXT/360.CVTUPC_SUBR.SA.22 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 00:22.53 0 LOWER CASE - UPPER CASE CONVERSION SUBROUTINE USED BY *BLDLIN. 00138/23 TEXT/360 CVSPEL SUBR SA SPEC S0518 'D2T2' FMT=FB(4000,80) 198 D3T1 388 TEXT/360.CVSPEL_SUBR.SA.23 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 00:22.55 0 SPELLING CONVERION SUBROUTINE USED BY *POSTPR. 00139 COPYSAVE # (SEE COMP 502/3 AND 502/4) UM 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00140/1 *ANALYSIS SA G ANAL MTA:ANALYSIS(1,9999) D3T1 389 ANALYSIS..SA.1 1 LINE 80 52 PAGE UM MTA JULY 31, 1973 00:22.57 0 PROGRAM USED IN ANALYZING THE STATISTICS PRODUCED ON MAGNETIC TAPE BY THE STAT JOB (079). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 79/1 00140/2 *ANALYSIS OC G *ANALYSIS D3T1 390 ANALYSIS..OC.2 1 LINE 80 15 PAGE UM MTA JULY 31, 1973 00:23.36 0 THIS FILE CONTAINS SEVERAL OTHER THINGS STARTING AT LINE -1000. SEE CCMEMO M200 (140/7). 00140/3 *ANALYSIS EXAMPLE STP2 SA G STP2 MTA:KIPSSTP2(1,9999) D3T1 391 ANALYSIS.EXAMPLE_STP2.SA.3 1 LINE 80 40 PAGE UM MTA JULY 31, 1973 00:23.40 0 EXAMPLE STP2 SUBROUTINE FOR USE WITH *ANALYSIS. CALLS THE HISTOGRAM SUBROUTINE (140/5). COPIES *ANALYSIS(-800,-700) AND REQUIRES *SYSMAC. 0 Referenced by comments of: 140/5 00140/4 *ANALYSIS EXAMPLE STP2 OC G MTA:KIPSSTP2(10000) D3T1 392 ANALYSIS.EXAMPLE_STP2.OC.4 1 LINE 80 25 PAGE UM MTA JULY 31, 1973 00:23.52 00140/5 *ANALYSIS HISTOGRAM SA G HIST MTA:HISTO(1,999) D3T1 393 ANALYSIS.HISTOGRAM.SA.5 1 LINE 80 11 PAGE UM MTA JULY 31, 1973 00:23.58 0 SUBROUTINE TO PLOT HISTOGRAMS, VAGUELY RELATED TO *ANALYSIS AND BRIEFLY DESCRIBED IN THE *ANALYSIS WRITEUP (140/7). CALLED BY THE EXAMPLE STP2 SUBROUTINE (140/3). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 140/3 00140/6 *ANALYSIS HISTOGRAM OC G MTA:HISTO(1000) D3T1 394 ANALYSIS.HISTOGRAM.OC.6 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 00:24.01 00140/7 *ANALYSIS WRITEUP WF S0720 'D3T1' FSNAME=ANALYSIS.WRITEUP.WF.7 395 D3T1 395 ANALYSIS.WRITEUP.WF.7 1 LINE 128 15 DISK UM MTA MAR. 15, 1973 18:35.48 0 THIS IS COMPUTING CENTER MEMO M200 -- "DATA COLLECTION FACILITY" 0 Referenced by comments of: 140/2, 140/5 00141/1 *GPAKDRAW S # (NO SOURCE AVAILABLE) UM PIRKOLA 0 PROGRAM TO DO DRAWING ON A 2250 DISPLAY. REQUIRES *GPAKLIB (175) AND *GRAPHLIB (231). THIS PROGRAM HASN'T BEEN TRIED IN YEARS. 00141/2 *GPAKDRAW OC O 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00143/1 REWIND# SUBR SA G REW# W045:PF.REWIND# D3T1 397 REWIND#_SUBR..SA.1 1 LINE 80 3 PAGE UM PIRKOLA JULY 31, 1973 00:24.31 0 INTERNAL SUBROUTINE TO REWIND THINGS. CALLED BY REWIND (120) AND FORTRAN LIBRARY. LOADED INTO SHARED VM BY SEG 2 LOADER AT IPL. COPIES COPY:FCBEQU (482/27) AND COPY:FDUBDSECT (623). 00143/2 REWIND# SUBR OC G SEG2:REWIND#&CFE D3T1 398 REWIND#_SUBR..OC.2 1 LINE 80 2 PAGE UM PIRKOLA JULY 31, 1973 00:24.34 0 CONTAINS OBJECT FOR REWIND#, GRGJUL SUBRS (518), AND JULGRG SUBRS (522). 00144/1 *ASA SA ASA0 S0370 'D1T1' FMT=FB(6400,80) 107 D3T1 399 ASA..SA.1 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 00:25.26 0 PRINTS OUTPUT WITH ASA STANDARD CARRIAGE CONTROL. UNCHANGED SINCE DIST 1. 00144/2 *ASA OC *ASA D3T1 400 ASA..OC.2 1 LINE 80 1 PAGE UM TIFFANY JULY 31, 1973 00:25.26 0 OBJECT CONTAINS REP CARDS. 00145/1 *TASKS SA G TSKS WSG:MTASKS(1,999) D3T1 401 TASKS..SA.1 1 LINE 80 5 PAGE UM WSG JULY 31, 1973 00:25.28 0 MTS PROGRAM TO PRINT TASK STATUS IN SAME FORMAT AS TASKS JOB (019). CALLS TSKFMT SUBROUTINE WHICH IS PART OF TASKS JOB (019). 0 Referenced by comments of: 19/1 00145/2 *TASKS OC G *TASKS D3T1 402 TASKS..OC.2 1 LINE 80 1 PAGE UM WSG JULY 31, 1973 00:25.31 00146 *OLDED SA # (OBSOLETE) D2T1 325 UM 00147/1 *FILESCAN SA G FSCN S0720 'D3T1' FSNAME=FILESCAN..SA.1 403 D3T1 403 FILESCAN..SA.1 1 LINE 80 8 PAGE UM ENGLE JAN. 05, 1973 12:33.28 0 MTS FILE SCANNING PROGRAM. NEW VERSION SINCE DIST 2. 00147/2 *FILESCAN OC G *FILESCAN D3T1 404 FILESCAN..O.2 1 LINE 80 3 PAGE UM ENGLE JULY 31, 1973 00:28.03 00148 *WATLIB SF *WATLIB D3T1 405 WATLIB..SF. 1 LINE 73 3 PAGE UM BLINN JULY 31, 1973 00:28.04 0 THIS IS SOURCE FOR A BUNCH OF FORTRAN SUBROUTINES TO BE ATTACHED AS A SUBROUTINE LIBRARY TO *WATFIV. 00150 *T90T360 # (SEE COMP 138) UM 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00151 *CONVSNOBOL SS G *CONVSNOBOL D3T1 406 CONVSNOBOL..SS. 1 LINE 69 1 PAGE UM DE JONG JULY 31, 1973 00:28.06 0 $SOURCE FILE WHICH RUNS A SNOBOL PROGRAM TO ENHANCE CONVERSATIONAL USE OF SNOBOL. 00152 *COPIES # (OBSOLETE) UM 00153 *MADTOPL1 SS MPL1 *MADTOPL1 D3T1 407 MADTOPL1..SS. 1 LINE 80 20 PAGE UM GALLER JULY 31, 1973 00:28.08 0 CONVERT MAD 7090 TO PL/I 00154/1 *LAS C *LAS D3T1 408 LAS..C.1 1 LINE 9 1 PAGE UM WSG JULY 31, 1973 00:28.11 0 COMMAND FILE FOR STARTING MTS TERMINAL LINES. INVOKED BY ENTERING "MTS *LAS" ON OPERATORS CONSOLE. SIGNS ON AND SOURCES TO STRT:LAS (154/2). 0 Referenced by comments of: 413/9, 621/1 00154/2 *LAS STRT:LAS C STRT:LAS D3T1 409 LAS.STRT:LAS.C.2 1 LINE 74 1 PAGE UM WSG JULY 31, 1973 00:28.13 0 COMMAND FILE WHICH RUNS STRT:START (614) TO CRANK UP MTS TERMINAL LINES, 7772 LINES, 2260 JOBS, OR ANYTHING ELSE YOU WANT TO ENABLE WHEN MTS IS "BROUGHT UP" AFTER IPL. THIS FILE WILL HAVE TO BE MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION. 0 Referenced by comments of: 154/1 00156/1 IPL PROGRAM SA G IPL0 MTS:IPL.S D3.1T1 178 IPL_PROGRAM..SA.1 1 LINE 80 13 PAGE UM MTA MAR. 06, 1974 03:31.45 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." FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO START WRITING AT DISK PAGE 7. 0 Referenced by comments of: 157/1, 468/1 00156/2 IPL PROGRAM OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 0 THIS OBJECT DECK (ALONG WITH 157 AND SOME REP CARDS) IS LOCATED AT THE END (AFTER THE LDT CARD) OF THE RESIDENT SYSTEM DECK. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00157/1 IPL BOOTSTRAP SA G IPLB S0370 'D1T1' FMT=FB(6400,80) 41 D3T1 411 IPL_BOOTSTRAP..SA.1 1 SEQ 80 3 PAGE UM MTA JULY 31, 1973 00:28.44 0 ABSOLUTE LOADER FOR THE DISK WRITE PROGRAM (156). SEE COMMENT FOR COMP 156/1. THE OBJECT DECK FOR THIS PROGRAM MUST BE MASSAGED BY HAND (OR KEYPUNCH) BEFORE IT WILL IPL (SEE COMMENTS IN LISTING IF IT BECOMES NECESSARY TO RE-ASSEMBLE -- UNLIKELY). 157/2 HAS ALREADY BEEN APPROPRIATELY FIXED. 0 Referenced by comments of: 156/1 00157/2 IPL BOOTSTRAP OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 0 THIS OBJECT DECK (ALONG WITH 156 AND SOME REP CARDS) IS LOCATED AT THE END (AFTER THE LDT CARD) OF THE RESIDENT SYSTEM DECK. 00159 *CCQUEUE # (SEE COMP 615) UM 00160 FRONCOPY S # OBSOLETE D2T1 387 UM 00162/1 PSA DSECT DUPLEX SA G COPY:PSA D3.1T1 179 PSA_DSECT.DUPLEX.SA.1 1 LINE 72 4 PAGE UM MTA MAR. 06, 1974 03:31.48 0 DEFINITION OF PREFIXED STORAGE AREA FOR A DUPLEX SYSTEM. EITHER THIS OR 162/2 SHOULD BE PLACED IN THE FILE COPY:PSA. COPIED BY CONFIG, THE SUPERVISOR, AND OTHERS. 0 Referenced by comments of: 45/1, 46/1, 577/1, 577/3, 577/5, 577/7, 577/17, 577/25, 588/1, 589/1, 611/1 00162/2 PSA DSECT SIMPLEX SA G PSA0 MTA:PSAS D3.1T1 180 PSA_DSECT.SIMPLEX.SA.2 1 LINE 80 7 PAGE UM MTA MAR. 06, 1974 03:31.50 0 DEFINITION OF THE PREFIXED STORAGE AREA FOR A SIMPLEX. CONFIG SHOULD BE REASSEMBLED WITH THIS FOR A SIMPLEX. THERE IS NO NEED TO REASSEMBLE THE SUPERVISOR FOR ONLY THIS REASON. 00163/1 PL1 COMPILER MACLIB SM G MAC0 S0410 MTSPL1 'PL1LIB' POSN=MACLIB 1 D3T1 414 PL1_COMPILER.MACLIB.SM.1 1 SEQ 80 51 PAGE UM TIFFANY JULY 31, 1973 00:31.15 0 PL/I(F) VERSION 5 COMPILER (RELEASE 20.1). MACLIB IS A MACRO LIBRARY FOR THE SIMULATION OF OS/360 STUFF IN MTS. 00163/2 PL1 COMPILER SAMEQU SA G SAMQ S0410 MTSPL1 'PL1LIB' POSN=SAMEQU 2 D3T1 415 PL1_COMPILER.SAMEQU.SA.2 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 00:31.20 0 COPY SECTION FOR OS SIMULATION PACKAGE. COPIED BY SEVERAL PARTS OF PL1 SOURCE 0 Referenced by comments of: 163/3, 163/4, 163/5, 163/6, 163/7, 163/8, 163/9, 163/10, 163/11, 163/14, 233/32 1 FRI AUG 02/96 18:37:32 Page 56 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00163/3 PL1 COMPILER REPLACE SA G RPLC S0410 MTSPL1 'PL1LIB' POSN=REPLACE 3 D3T1 416 PL1_COMPILER.REPLACE.SA.3 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 00:31.21 0 ROUTINE TO REPLACE A TIOT, ATTACHING ANYTHING TO AN MTS LOGICAL I/O UNIT IF APPLICABLE. COPIES SAMEQU (163/2). 00163/4 PL1 COMPILER CKLIO SA G CKL0 S0410 MTSPL1 'PL1LIB' POSN=CKLIO 4 D3T1 417 PL1_COMPILER.CKLIO.SA.4 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:31.24 0 ROUTINE TO CHECK IF A NAME IS AN MTS LOGICAL I/O UNIT. COPIES SAMEQU (163/2). 00163/5 PL1 COMPILER NONSENSE SA G NONE S0410 MTSPL1 'PL1LIB' POSN=NONSENSE 5 D3T1 418 PL1_COMPILER.NONSENSE.SA.5 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 00:31.26 0 ROUTINE TO SAY THAT SOMETHING DOES NOT EXIST OR IS NOT AVAILABLE. COPIES SAMEQU (163/2). 00163/6 PL1 COMPILER FREEDDEF SA G FREE S0410 MTSPL1 'PL1LIB' POSN=FREEDDEF 6 D3T1 419 PL1_COMPILER.FREEDDEF.SA.6 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:31.28 0 ROUTINE TO FREE ALL DDEF'S. COPIES SAMEQU (163/2). 00163/7 PL1 COMPILER FINDTIOT SA G FIND S0410 MTSPL1 'PL1LIB' POSN=FINDTIOT 7 D3T1 420 PL1_COMPILER.FINDTIOT.SA.7 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:31.31 0 ROUTINE TO FIND A TIOT GIVEN A "DDNAME." COPIES SAMEQU (163/2). 00163/8 PL1 COMPILER DDEF SA G DDEF S0410 MTSPL1 'PL1LIB' POSN=DDEF 8 D3T1 421 PL1_COMPILER.DDEF.SA.8 1 SEQ 80 8 PAGE UM TIFFANY JULY 31, 1973 00:31.34 0 ROUTINE TO PROCESS DDEF COMMANDS AND GET A TIOT FOR EACH. COPIES SAMEQU (163/2). 00163/9 PL1 COMPILER OPEN SA G OPEN S0410 MTSPL1 'PL1LIB' POSN=OPEN 9 D3T1 422 PL1_COMPILER.OPEN.SA.9 1 SEQ 80 17 PAGE UM TIFFANY JULY 31, 1973 00:31.37 0 SIMULATE OS/360 OPEN. COPIES SAMEQU (163/2). 00163/10 PL1 COMPILER ROUT SA G RUTE S0410 MTSPL1 'PL1LIB' POSN=DMTROUTE 10 D3T1 423 PL1_COMPILER.ROUT.SA.10 1 SEQ 80 26 PAGE UM TIFFANY JULY 31, 1973 00:31.41 0 LIST OF VARIOUS ROUTINES. COPIES SAMEQU (163/2). 00163/11 PL1 COMPILER CLOSE SA G CLOS S0410 MTSPL1 'PL1LIB' POSN=CLOSE 11 D3T1 424 PL1_COMPILER.CLOSE.SA.11 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 00:31.44 0 SIMULATE OS/360 CLOSE. COPIES SAMEQU (163/2). 00163/12 PL1 COMPILER QUIT SA G QUIT S0410 MTSPL1 'PL1LIB' POSN=QUIT 12 D3T1 425 PL1_COMPILER.QUIT.SA.12 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:31.46 0 QUIT ONLY IN BATCH 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 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 ESDL S0410 MTSPL1 'PL1LIB' POSN=INESD 55 D3T1 428 PL1_COMPILER.ESDLIST.SA.15 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 00:32.27 0 TABLE OF SOMETHING OR OTHER 00163/16 PL1 COMPILER *PL1 OE *PL1 D3T1 429 PL1_COMPILER.*PL1.OE.16 1 SEQ 4796 7 PAGE UM TIFFANY JULY 31, 1973 00:32.28 00163/17 PL1 COMPILER *PL1DIRECTOR D *PL1DIRECTOR D3T1 430 PL1_COMPILER.*PL1DIRECTOR.D.17 1 SEQ 4096 2 PAGE UM TIFFANY JULY 31, 1973 00:32.31 00163/18 PL1 COMPILER *PLI OL *PLI D3T1 431 PL1_COMPILER.*PLI.OL.18 1 SEQ 7340 18 PAGE UM TIFFANY JULY 31, 1973 00:32.33 0 THERE IS A REP CARD IN THIS FILE 00163/19 PL1 COMPILER *PL1LINKLIB1 OE *PL1LINKLIB1 D3T1 432 PL1_COMPILER.*PL1LINKLIB1.OE.19 1 SEQ 7340 231 PAGE UM TIFFANY JULY 31, 1973 00:32.36 0 THERE ARE SEVERAL REP CARDS IN THIS FILE 00163/20 PL1 COMPILER PL/I ADDENDUM WF 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 18:37:32 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 + ______________ _____________________ 00170 *LISTVTOC SA # (OBSOLETE) D2T1 105 UM 00171 *BATCH SA # (OBSOLETED BY *BATCH*) D2T1 327 UM 00172/1 *UMIST MACRO LIB SM ISTM S0518 'D2T2' FMT=FB(4000,80) 125 D3T1 435 UMIST.MACRO_LIB.SM.1 1 SEQ 80 14 PAGE UM SALISBURY JULY 31, 1973 00:35.25 0 172/1 THRU 172/9 REPRESENT THE CURRENT SOURCE FOR *UMIST. IT CONSISTS OF 1 MACRO LIBRARY, 2 COPY SECTIONS, AND 6 ASSEMBLIES. TO ASSEMBLE UMIST CREATE AND FILL /SYMBOLS AND /PSECT (THE COPY SECTIONS), CREATE THE MACRO LIBRARY, AND ASSEMBLE ANY OR ALL OF THE ASSEMBLIES USING BOTH *SYSMAC AND THE SPECIAL MACRO LIBRARY. COMPONENT 172/1 IS THE MACRO LIBRARY READY FOR COPYING INTO A FILE. UMIST IS THE UM VERSION OF THE TRAC STRING PROCESSING LANGUAGE AND IS UNCHANGED SINCE 2.0. 00172/2 *UMIST /SYMBOLS SA ISC1 S0518 'D2T2' FMT=FB(4000,80) 126 D3T1 436 UMIST./SYMBOLS.SA.2 1 SEQ 80 4 PAGE UM SALISBURY JULY 31, 1973 00:35.27 0 THIS IS THE "/SYMBOLS" COPY SECTION 00172/3 *UMIST /PSECT SA ISC2 S0518 'D2T2' FMT=FB(4000,80) 127 D3T1 437 UMIST./PSECT.SA.3 1 SEQ 80 7 PAGE UM SALISBURY JULY 31, 1973 00:35.29 0 THIS IS THE "/PSECT" COPY SECTION 00172/4 *UMIST /ENTRY SA IST1 S0518 'D2T2' FMT=FB(4000,80) 128 D3T1 438 UMIST./ENTRY.SA.4 1 SEQ 80 7 PAGE UM SALISBURY JULY 31, 1973 00:35.31 0 "/ENTRY" MODULE WHICH MAKES UMIST INDEPENDENT OF SYSTEM CONVENTIONS AS MUCH AS POSSIBLE. 00172/5 *UMIST /TABLES SA IST2 S0518 'D2T2' FMT=FB(4000,80) 129 D3T1 439 UMIST./TABLES.SA.5 1 SEQ 80 9 PAGE UM SALISBURY JULY 31, 1973 00:35.33 0 MASTER DEFINITION TABLES FOR VARIOUS UMIST FEATURES, E.G., SPECIAL SYMBOLS. CALLED "/TABLES" 00172/6 *UMIST /MISC SA IST3 S0518 'D2T2' FMT=FB(4000,80) 130 D3T1 440 UMIST./MISC.SA.6 1 SEQ 80 2 PAGE UM SALISBURY JULY 31, 1973 00:35.35 0 "/MISC" -- FOUR MISCELLANEOUS CONTROL SECTIONS USED WITH THE CODE: ACTIVE-NEUTRAL STRING STORAGE, PUSH DOWN STACK, INPUT BUFFER, AND FREE STORAGE. 00172/7 *UMIST /UTILITIES SA IST4 S0518 'D2T2' FMT=FB(4000,80) 131 D3T1 441 UMIST./UTILITIES.SA.7 1 SEQ 80 32 PAGE UM SALISBURY JULY 31, 1973 00:35.40 0 "/UTILITIES" -- UTILITY FUNCTIONS, INCLUDING THE MAIN PROCESSOR, WHICH SUPPORT PRIMITIVE FUNCTIONS. THIS ASSEMBLY USES THE "SWPR" RPQ'ED INSTRUCTION. 00172/8 *UMIST /FCNS/1 SA IST5 S0518 'D2T2' FMT=FB(4000,80) 132 D3T1 442 UMIST./FCNS/1.SA.8 1 SEQ 80 37 PAGE UM SALISBURY JULY 31, 1973 00:35.46 0 "/FCNS/1" -- THE MOST IMPORTANT PRIMITIVE FUCNTIONS. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00172/9 *UMIST /FCNS/2 SA IST6 S0518 'D2T2' FMT=FB(4000,80) 133 D3T1 443 UMIST./FCNS/2.SA.9 1 SEQ 80 30 PAGE UM SALISBURY JULY 31, 1973 00:35.51 0 "/FCNS/2" -- MORE PRIMITIVE FUNCTIONS. 00172/10 *UMIST TEST DECK D S0518 'D2T2' FMT=FB(4000,80) 134 D3T1 444 UMIST.TEST_DECK.D.10 1 SEQ 80 3 PAGE UM SALISBURY JULY 31, 1973 00:35.54 0 "/TEST" COMPREHENSIVE TEST DECK FOR *UMIST. NOT PART OF UMIST ITSELF. 00172/11 *UMIST OBJECT OC *UMIST D3T1 445 UMIST.OBJECT.O.11 1 LINE 80 16 PAGE UM SALISBURY JULY 31, 1973 00:35.55 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/1 *PIL SA S PIL0 S0518 'D2T2' FMT=FB(4000,80) 122 D3T1 447 PIL..SA.1 1 SEQ 80 215 PAGE UM TIFFANY JULY 31, 1973 00:38.27 0 SOURCE FOR *PIL (PITTSBURGH INTERPRETIVE LANGUAGE). UNCHANGED FROM DIST 2. AT UM, *PIL WILL BE REPLACED BY *PIL/2 (566) LATER IN 1973. 00178/2 *PIL OC S *PIL D3T1 448 PIL..OC.2 1 LINE 100 21 PAGE UM TIFFANY JULY 31, 1973 00:38.47 0 CONTAINS REP CARDS IN OBJECT WHICH ARE NOT REFLECTED IN SOURCE. 00179 *GPAKGRID OC O 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/1 *SNOBOL4 S4 SA G S0099 S4V3 'SNOBOL4 VERSION 3' POSN=MAIN1 3 D3T1 450 SNOBOL4.S4.SA.1 1 SEQ 80 138 PAGE UM DE JONG JULY 31, 1973 00:40.21 0 BELL LABS SOURCE FOR VERSION 3.0 SNOBOL 4. 0 Referenced by comments of: 182/4 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00182/2 *SNOBOL4 SUBR SA G S0099 S4V3 'SNOBOL4 VERSION 3' POSN=SUBR 5 D3T1 451 SNOBOL4.SUBR.SA.2 1 SEQ 80 46 PAGE UM DE JONG JULY 31, 1973 00:41.01 0 BELL LABS SOURCE FOR SUBROUTINES. 00182/3 *SNOBOL4 MACROS SA G S0099 S4V3 'SNOBOL4 VERSION 3' POSN=SNOMAC 6 D3T1 452 SNOBOL4.MACROS.SA.3 1 SEQ 80 41 PAGE UM DE JONG JULY 31, 1973 00:44.08 0 BELL LABS SOURCE FOR MACROS. 00182/4 *SNOBOL4 UPDATE UU G S0101 'SNOBOL4 SCRATCH' FMT=FB(3200,80) 1 D3T1 453 SNOBOL4.UPDATE.UU.4 1 SEQ 80 35 PAGE UM DE JONG JULY 31, 1973 00:45.31 0 *UPDATE DECK TO MODIFIY BELL LABS SOURCE (182/1) TO BRING IT UP TO VERSION 3.6 SNOBOL 4 AND TO ADD THE CHANGES NECESSARY TO RUN IT IN MTS. 00182/5 *SNOBOL4 OBJECT OE G *SNOBOL4 D3T1 454 SNOBOL4.OBJECT.O.5 1 SEQ 32767 27 PAGE UM DE JONG JULY 31, 1973 00:45.35 00182/6 *SNOBOL4 MACLEAN SP G S0510 'D2.2' FMT=FB(4000,80) 35 D3T1 455 SNOBOL4.MACLEAN.SP.6 1 SEQ 80 1 PAGE UM DE JONG JULY 31, 1973 00:47.21 0 SOURCE FOR A PROGRAM TO PROCESS THE MACRO LIBRARY AND COPY SECTIONS FOR A SNOBOL ASSEMBLY. UNCHANGED SINCE DIST 2.2. 00182/7 *SNOBOL4 MACLEAN OC G W086:MACLEAN D3T1 456 SNOBOL4.MACLEAN.OC.7 1 SEQ 80 2 PAGE UM DE JONG JULY 31, 1973 00:47.23 0 REQUIRES *PL1LIB. 00182/8 *SNOBOL4 WRITEUP WF 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 S0371 'D1T2' FMT=FB(6400,80) 10 D3T1 458 TRANSNOBOL..SS. 1 SEQ 80 7 PAGE UM DE JONG JULY 31, 1973 00:48.59 0 CONVERT SNOBOL3 TO SNOBOL4. UNCHANGED SINCE DIST 1. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00192 *DCS C # (NOT DISTRIBUTED) UM 00193/1 *OSMAC SM *OSMAC D3T2 1 OSMAC..SM.1 1 LINE 72 129 PAGE UM YOUNG JULY 31, 1973 20:57.35 0 MACRO LIBRARY FOR OS/360 RELEASE 21.0 00193/2 *OSMAC BUILD PROGRAM SA MACB S0652 SOURCE POSN=MACBLD 1 D3T2 2 OSMAC.BUILD_PROGRAM.SA.2 1 SEQ 80 11 PAGE UM YOUNG JULY 31, 1973 20:59.15 0 THIS IS A PROGRAM TO BUILD *OSMAC. IT READS NAMES OF MACROS (UP TO 255 CHARS PER LINE) FROM SCARDS, DELETING ANY NAMES WHICH ARE DUPLICATES OR WHICH ARE LONGER THAN 8 CHARS. THE LIST OF MACRO NAMES IS TERMINATED BY AN END-OF-FILE FROM SCARDS. THE NAMES ARE SORTED INTO ALPHABETICAL ORDER AND THE MACRO TAPE IS THEN READ FROM LOGICAL I/O UNIT 0. THE SPECIFIED MACROS ARE WRITTEN IN THE MACRO LIBRARY FILE (LOGICAL I/O UNIT 1) BEGINNING AT LINE 3000. THE READING IS TERMINATED WHEN ALL SPECIFIED MACROS HAVE BEEN FOUND OR WHEN 2 CONSEQUTIVE END-OF-FILES HAVE BEEN READ. A DIRECTORY SHOWING THE STARTING LINE NUMBER FOR EACH MACRO IS PRINTED ON SPRINT. NORMALLY, THIS PROGRAM DELETES SEQUENCE ID FROM THE MACROS TO SAVE FILE SPACE (A LOT). STATEMENTS 201 AND 202 SHOULD BE DELETED IF SEQUENCE ID IS TO BE PRESERVED: LA 1,72 STH 1,LEN 00193/3 *OSMAC BUILD PROGRAM OC W116:BUILDMAC D3T2 3 OSMAC.BUILD_PROGRAM.O.3 1 LINE 80 3 PAGE UM YOUNG JULY 31, 1973 20:59.22 00195 *EDHELP OC # (OBSOLETE) UM 00196 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.1T1 181 SMDS..M. 1 LINE 118 3 PAGE UM MTA MAR. 06, 1974 03:31.52 0 MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET). USED IN CONJUNCTION WITH FMSG MACRO IN MTS. 00198/1 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), AND COPY:LLMPSEQU (087). NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. 0 Referenced by comments of: 198/2, 344/1 00198/2 GUINFO/CUINFO D3.1 UPDATE UU G MTS:INFOUPD/D3.1 D3.1T1 182 GUINFO/CUINFO.D3.1_UPDATE.UU.2 1 LINE 61 1 PAGE UM DWB MAR. 06, 1974 03:31.54 0 UPDATE TO D3 MASTER (198/1) TO PRODUCE D3.1 SOURCE. 1 FRI AUG 02/96 18:37:32 Page 62 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 UPDATE DECK USES %POSN *IN* INFO. 00198/3 GUINFO/CUINFO OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00200/1 *SDARTN SA SDA0 W032:SDASOU092970 D3T2 8 SDARTN..SA.1 1 LINE 80 94 PAGE UM EMERY JULY 31, 1973 21:01.58 0 DEVICE SUPPORT ROUTINES FOR RJE FROM A REMOTE COMPUTER OR 2780 THROUGH A 2701 OR 2703 SDA TYPE II. THIS IS MTS DIRECT RJE (NOT HASP), I.E. IT IS NOT SPOOLED. HAS NOT BEEN USED AT UM FOR MANY YEARS, ALTHOUGH SHOULD STILL WORK. FORMAT OF DEVICE DESCRIPTION RECORD AVAILABLE ON REQUEST (INCLUDED WITH DIST 2.0). REQUIRES *SYSMAC. 00200/2 *SDARTN OC *SDARTN D3T2 9 SDARTN..O.2 1 LINE 80 7 PAGE UM EMERY JULY 31, 1973 21:02.27 00201/1 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 14 D3T2 10 GPSS/360.OS_SOURCE.SA.1 1 SEQ 80 20 PAGE UM HENRIKSEN JULY 31, 1973 21:03.57 0 THE MTS IMPLEMENTATION OF GPSS OFFERS SEVERAL FEATURES NOT PROVIDED BY THE IBM VERSION: (1) IMPROVED LISTING CONTROL WITH BATCH AND TERMINAL DEFAULTS. (2) LINE NUMBERS IN THE LISTING. (3) SENSIBLE CARRIAGE CONTROL (FAR FEWER PAGE SKIPS). (4) CAPABILITY OF DIRECTLY INTERFACING WITH SUBROUTINES THAT USE OS/I CALLING SEQUENCES. (5) SUBROUTINES TO ALLOW MANIPULATION OF GPSS DATA FROM FORTRAN PROGRAMS. (6) TIME ESTIMATES TO ALLOW ERROR OUTPUT TO BE PRINTED BEFORE MTS TERMINATES A JOB. (7) ATTENTION INTERRUPT CONTROL TO TELL THE USER WHERE HIS PROGRAM IS AND HOW MUCH HAS BEEN SPENT. (8) PADDING AND TRUNCATION OF JOBTAPES FOR DISK SPACE ECONOMY. (9) ERROR MESSAGE SUMMARY. THREE PRINCIPLE APPENDAGES ARE TACKED ONTO THE IBM MODULES TO MAKE THESE IMPROVEMENTS. FIRST, A DRIVER PROGRAM IS PROVIDED TO SCAN THE PAR= FIELD AND SET-UP DEFAULTS; AND, AT THE CONCLUSION OF A RUN, TO PRINT AN ERROR SUMMARY WHERE APPROPRIATE. SECOND, A SET OF INTERFACE SUBROUTINES PROVIDE A SIMULATED OS/360 ENVIRONMENT. ONE NOTABLE FEATURE OF THIS INTERFACE IS THAT SCRATCH FILE I/O IS IMPLEMENTED BY USE OF VIRTUAL MEMORY FILES. THIRD, A SET OF SMALL "HOOK" SUBROUTINES IS PROVIDED. BECAUSE OF THE VOLATILITY OF THE RATHER POOR IBM CODE, SUCH FUNCTIONS AS IMPROVED LISTING CONTROL WERE IMPLEMENTED BY ASSEMBLING "HOOKS" INTO THE IBM CODE, EACH "HOOK" RESULTING IN A CALL TO A "HOOK" SUBROUTINE. WHILE THE "HOOK" SUBROUTINES EXHIBIT WHAT WOULD APPEAR TO BE BAD PROGRAMMING PRACTICES (E.G. ABSOLUTE DISPLACEMENTS IN INSTRUCTIONS), THEY HAVE BEEN CODED IN SUCH A WAY AS TO BE INSENSITIVE TO REASSEMBLY OF THE IBM MODULES. COMPONENTS 201/1 THROUGH 201/11 ARE THE OS/360 SOURCE FOR GPSS VERSION 1 MODIFICATION LEVEL 3. 00201/2 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 15 D3T2 11 GPSS/360.OS_SOURCE.SA.2 1 SEQ 80 11 PAGE UM HENRIKSEN JULY 31, 1973 21:04.01 00201/3 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 16 D3T2 12 GPSS/360.OS_SOURCE.SA.3 1 SEQ 80 8 PAGE UM HENRIKSEN JULY 31, 1973 21:04.03 1 FRI AUG 02/96 18:37:32 Page 63 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00201/4 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 17 D3T2 13 GPSS/360.OS_SOURCE.SA.4 1 SEQ 80 62 PAGE UM HENRIKSEN JULY 31, 1973 21:04.11 00201/5 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 18 D3T2 14 GPSS/360.OS_SOURCE.SA.5 1 SEQ 80 102 PAGE UM HENRIKSEN JULY 31, 1973 21:04.28 00201/6 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 19 D3T2 15 GPSS/360.OS_SOURCE.SA.6 1 SEQ 80 22 PAGE UM HENRIKSEN JULY 31, 1973 21:04.44 00201/7 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 20 D3T2 16 GPSS/360.OS_SOURCE.SA.7 1 SEQ 80 88 PAGE UM HENRIKSEN JULY 31, 1973 21:04.55 00201/8 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 21 D3T2 17 GPSS/360.OS_SOURCE.SA.8 1 SEQ 80 112 PAGE UM HENRIKSEN JULY 31, 1973 21:05.20 00201/9 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 22 D3T2 18 GPSS/360.OS_SOURCE.SA.9 1 SEQ 80 152 PAGE UM HENRIKSEN JULY 31, 1973 21:05.46 00201/10 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 23 D3T2 19 GPSS/360.OS_SOURCE.SA.10 1 SEQ 80 109 PAGE UM HENRIKSEN JULY 31, 1973 21:06.10 00201/11 GPSS/360 OS SOURCE SA G S0577 'GPSS VERSION 1, MOD 3' FMT=FB(8000,80) 24 D3T2 20 GPSS/360.OS_SOURCE.SA.11 1 SEQ 80 57 PAGE UM HENRIKSEN JULY 31, 1973 21:06.25 00201/12 GPSS/360 GPSSUPDATE UU G S0289 S289 'GPSS/360' FSNAME=GPSSUPDATE D3.1T1 183 GPSS/360.GPSSUPDATE.UU.12 1 LINE 80 7 PAGE UM HENRIKSEN 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 HENRIKSEN 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 HENRIKSEN DEC. 13, 1972 20:57.52 0 MACRO LIBRARY NEEDED FOR ALL ASSEMBLIES. 00201/15 GPSS/360 GPSS.S SA G GPSS S0289 S289 'GPSS/360' FSNAME=GPSS.S D3T2 24 GPSS/360.GPSS.S.SA.15 1 LINE 80 6 PAGE UM HENRIKSEN DEC. 13, 1972 20:58.07 0 SOURCE FOR MTS DRIVER PROGRAM. 00201/16 GPSS/360 GPSSPKG.S SA G GPKG S0289 S289 'GPSS/360' FSNAME=GPSSPKG.S D3T2 25 GPSS/360.GPSSPKG.S.SA.16 1 LINE 80 7 PAGE UM HENRIKSEN DEC. 13, 1972 20:58.45 0 SOURCE FOR THE MTS INTERFACE SUBROUTINES WHICH SIMULATE OS/360 FUNCTIONS. 00201/17 GPSS/360 HOOKSECT.S SA G GHOK S0289 S289 'GPSS/360' FSNAME=HOOKSECT.S D3.1T1 185 GPSS/360.HOOKSECT.S.SA.17 1 LINE 80 15 PAGE UM HENRIKSEN JAN. 16, 1974 16:26.40 0 SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00201/18 GPSS/360 JUNK.S SA G GJNK S0289 S289 'GPSS/360' FSNAME=JUNK.S D3T2 27 GPSS/360.JUNK.S.SA.18 1 LINE 80 3 PAGE UM HENRIKSEN DEC. 13, 1972 20:59.09 0 SOURCE FOR SEVERAL SUBROUTINES. 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 HENRIKSEN 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 HENRIKSEN 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 HENRIKSEN DEC. 13, 1972 20:59.21 0 SOURCE FOR SUBROUTINES WHICH ALLOW THE MANIPULATION OF GPSS DATA FROM FORTRAN SUBROUTINES. 00201/22 GPSS/360 *GPSSLIB OC G *GPSSLIB D3T2 31 GPSS/360.*GPSSLIB.O.22 1 SEQ 80 1 PAGE UM HENRIKSEN JULY 31, 1973 21:11.46 00201/23 GPSS/360 *GPSSERR M G *GPSSERR D3.1T1 188 GPSS/360.*GPSSERR.M.23 1 LINE 73 9 PAGE UM HENRIKSEN 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 HENRIKSEN DEC. 13, 1972 20:59.42 0 SOURCE FOR TEST PROGRAM. 00201/25 GPSS/360 TESTOUTPUT D G S0289 S289 'GPSS/360' FSNAME=TESTOUTPUT D3.1T1 189 GPSS/360.TESTOUTPUT.D.25 1 SEQ 129 1 DISK UM HENRIKSEN MAY 18, 1973 17:17.38 0 OUTPUT WHICH SHOULD BE OBTAINED FROM TEST PROGRAM. 00201/26 GPSS/360 D3.1 NOTES WF W098:HEN D3.1T1 190 GPSS/360.D3.1_NOTES.WF.26 1 LINE 107 1 PAGE UM HENRIKSEN MAR. 06, 1974 03:34.46 0 WRITEUP DESCRIBING D3.1 GPSS/360. 00203 *TNLBUILD # (SEE COMP 110) UM 00204/1 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00204/2 FORTRANG *FORTRANG OE G *FORTRANG D3T2 36 FORTRANG.*FORTRANG.O.2 1 SEQ 18732 17 PAGE UM JWS JULY 31, 1973 21:12.25 00204/3 FORTRANG IEYFORT W/ SYM SA G IEYF 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/4 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/5 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/6 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/1 *LISP MTS MASTER SA G WATF:NEWLISP.S D3T2 41 LISP.MTS_MASTER.SA.1 1 LINE 80 115 PAGE UM MTA JULY 31, 1973 21:15.35 0 SOURCE FOR THE LISP/360 INTERPRETER AS MODIFIED TO RUN IN MTS. IT IS BASED ON AN OS/360 VERSION OF LISP (210/2) AS DISTRIBUTED WITH REDUCE2. THE LISP 1.5 LANGUAGE IS DESCRIBED IN "LISP 1.5 PROGRAMMER'S MANUAL" BY J. MC CARTHY, ET AL, MIT PRESS, 1966 AS SUPPLEMENTED BY UM COMPUTING CENTER MEMO M135 (210/5). 0 Referenced by comments of: 210/3 00210/2 *LISP OS MASTER SA G WATF:LISP360 D3T2 42 LISP.OS_MASTER.SA.2 1 SEQ 3200 96 PAGE UM MTA JULY 31, 1973 21:16.33 0 THIS IS THE OS/360 SOURCE FOR LISP AS DISTRIBUTED WITH REDUCE2. NOTE: IT IS BLOCKED AT 40 CARDS/RECORD. 0 Referenced by comments of: 210/1, 210/3 00210/3 *LISP MTS UPDATE UU G S0721 'D3T2' FSNAME=LISP.MTS_UPDATE.UU.3 43 D3T2 43 LISP.MTS_UPDATE.UU.3 1 LINE 72 20 PAGE UM MTA JULY 30, 1973 03:32.24 0 UPDATE TO GO FROM OS/360 SOURCE (210/2) TO MTS VERSION (210/1). 00210/4 *LISP OC G WATF:LISP360.O D3T2 44 LISP..OC.4 1 LINE 80 30 PAGE UM MTA JULY 31, 1973 21:17.03 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00210/5 *LISP *LISPCOM S G WATF:LAP D3T2 45 LISP.*LISPCOM.S.5 1 SEQ 80 52 PAGE UM MTA JULY 31, 1973 21:17.08 0 LISP/360 COMPILER AND ASSEMBLY PROGRAM. FEED THIS FILE TO LISP AND CHECKPOINT THE RESULT. 0 Referenced by comments of: 210/1 00210/6 *LISP *LISPCOM O G WATF:COMPILE D3T2 46 LISP.*LISPCOM.O.6 1 LINE 80 29 PAGE UM MTA JULY 31, 1973 21:17.18 0 CHECKPOINTED LISP/360 COMPILER AND ASSEMBLY PROGRAM. LISP OBJECT FORMAT. 00210/7 *LISP USER'S GUIDE WF S0721 'D3T2' FSNAME=LISP.USER'S_GUIDE.WF.7 47 D3T2 47 LISP.USER'S_GUIDE.WF.7 1 LINE 107 9 DISK UM MTA MAR. 15, 1973 17:25.26 0 THIS IS COMPUTING CENTER MEMO M135 -- "LISP/360 USER'S GUIDE." NOTE: NEEDS MANY LEFT AND RIGHT BRACKETS INSERTED BY HAND. 00210/8 *LISP DEBUG PACKAGE S O WATF:BREAK D3T2 48 LISP.DEBUG_PACKAGE.S.8 1 LINE 97 3 PAGE UM MTA JULY 31, 1973 21:17.50 0 THIS PROGRAM (WRITTEN IN LISP) DEFINES TWO FUNCTIONS: BREAK AND UNBREAK. BREAK TAKES A LIST OF FUNCTION NAMES AND SETS A BREAKPOINT AT THE ENTRY AND EXIT TO EACH OF THEM. UNBREAK TAKES A LIST OF FUNCTION NAMES AND RESETS THE BREAKPOINT AT EACH. ALL FUNCTIONS MUST BE PREVIOUSLY DEFINED. BOTH BREAK AND UNBREAK ARE DEFINED AS FEXPR'S SO THAT THEIR ARGUMENTS ARE NOT EVALUATED. WHEN A FUNCTION WHICH HAS A BREAKPOINT SET IS CALLED, THE MESSAGE ">>> ENTERING NAME TYPE ARGS" IS TYPED, WHERE "NAME" IS THE NAME OF THE FUNCTION, "TYPE" IS SUBR, FSUBR, EXPR, OR FEXPR, AND "ARGS" ARE THE NAMES OF THE ARGUMENTS. WHEN THE FUNCTION EXITS, THE MESSAGE ">>> EXITING NAME" IS TYPED. BOTH MESSAGES ARE FOLLOWED BY THE MESSAGE "LISTENING" AND LINES ARE READ AND PASSED TO EVAL UNTIL "T" IS ENTERED. THE ATOM "VALUE" WILL BE BOUND TO THE RESULT OF THE FUNCTION ON EXIT, AND THE ARGUMENTS WILL BE BOUND BOTH TIMES. CONDITIONAL BREAKPOINTS MAY BE SET BY MAKING ONE OF THE ARGUMENTS OF BREAK A LIST. CAR OF THE LIST IS THE NAME OF THE FUNCTION AND CADR OF THE LIST IS A CONDITION WHICH MUST BE TRUE FOR THE BREAKPOINT TO OCCUR. THE CONDITION IS TESTED WHEN THE FUNCTION IS CALLED. EXAMPLE: BREAK (FN (FN2 (EQ ARG1 1))) WILL ALWAYS BREAK AT FUNCTION FN AND BREAK AT FN2 IF ARG1 IS 1 (ASSUMING ARG1 IS THE FIRST ARGUMENT OF FN2). 00212/1 *FILESNIFF SA G FSNF W045:NEWFILESNIF D3T2 49 FILESNIFF..SA.1 1 LINE 80 6 PAGE UM PIRKOLA JULY 31, 1973 21:17.52 0 PROGRAM TO PRINT INFO ABOUT LOCATION, SIZE, NUMBER OF EXTENTS, TYPE, AND PERMIT STATUS OF FILES. CALLS GFINFO SUBROUTINE AND COPIES *GFINFODSECT (593). 00212/2 *FILESNIFF OE G *FILESNIFF D3T2 50 FILESNIFF..O.2 1 LINE 255 1 PAGE UM PIRKOLA JULY 31, 1973 21:17.59 00214 *CCPOST # (SEE COMP 615) UM 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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/1 SIOERR SUBR SA G SERR MTA:SIOERR(1,999) D3T2 51 SIOERR_SUBR..SA.1 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 21:18.00 0 FORTRAN INTERFACE TO SETIOERR. 00223/2 SIOERR SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00225 *SYSMAC SM G SYSM *SYSMAC D3.1T1 191 SYSMAC..SM. 1 LINE 80 67 PAGE UM MTA MAR. 06, 1974 03:34.47 0 MTS SYSTEM MACRO LIBRARY FOR GENERAL USE. 00229/1 *TIDY SF S TIDY S0371 'D1T2' FMT=FB(6400,80) 28 D3T2 53 TIDY..SF.1 1 SEQ 80 60 PAGE UM LIN JULY 31, 1973 21:20.10 0 WILL "TIDY" UP FORTRAN SOURCE FILES. UNCHANGED SINCE DIST 1. 00229/2 *TIDY OC S *TIDY D3T2 54 TIDY..O.2 1 LINE 80 29 PAGE UM LIN JULY 31, 1973 21:20.16 00231 *GRAPHLIB SA O GLIB S0371 'D1T2' FMT=FB(6400,80) 1 D3T2 55 GRAPHLIB..S. 1 SEQ 80 211 PAGE UM PIRKOLA JULY 31, 1973 21:21.10 0 SUBROUTINE TO SUPPORT AN EXTENSION OF EXPRESS GRAPHICS ON A 2250 IN MTS. CALLED BY MACROS IN *GRAPHMAC (117). THIS IS AN ANCIENT VERSION AND HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 0 Referenced by comments of: 117/1, 141/1, 175/1, 179/1 00232 FCBEQU # (SEE COMP 482) UM 00233/1 PL1 LIBRARY MACLIB SM # (SEE COMP 163) UM TIFFANY 00233/2 PL1 LIBRARY SAMEQU SA # (SEE COMP 163) UM TIFFANY 1 FRI AUG 02/96 18:37:32 Page 68 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/3 PL1 LIBRARY REPLACE SA # (SEE COMP 163) UM TIFFANY 00233/4 PL1 LIBRARY CKLIO SA # (SEE COMP 163) UM TIFFANY 00233/5 PL1 LIBRARY NONSENSE SA # (SEE COMP 163) UM TIFFANY 00233/6 PL1 LIBRARY FREEDDEF SA # (SEE COMP 163) UM TIFFANY 00233/7 PL1 LIBRARY FINDTIOT SA # (SEE COMP 163) UM TIFFANY 00233/8 PL1 LIBRARY DDEF SA # (SEE COMP 163) UM TIFFANY 00233/9 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 S0410 MTSPL1 'PL1LIB' POSN=RAND 16 D3T2 59 PL1_LIBRARY.RAND.SA.16 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:23.53 0 RANDOM NUMBER GENERATOR 00233/17 PL1 LIBRARY USERID SA G USER S0410 MTSPL1 'PL1LIB' POSN=USERID 17 D3T2 60 PL1_LIBRARY.USERID.SA.17 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:23.56 0 RUN TIME SUBR 1 FRI AUG 02/96 18:37:32 Page 69 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/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 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 1 FRI AUG 02/96 18:37:32 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/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. 00233/32 PL1 LIBRARY FINFO SA G FINF S0410 MTSPL1 'PL1LIB' POSN=FINFO 32 D3T2 75 PL1_LIBRARY.FINFO.SA.32 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 21:24.31 0 ROUTINE TO GET INFORMATION FOR A PL/I FILE. COPIES SAMEQU (163/2). 00233/33 PL1 LIBRARY READ/WRITE SA G READ S0410 MTSPL1 'PL1LIB' POSN=IHEREAD 33 D3T2 76 PL1_LIBRARY.READ/WRITE.SA.33 1 SEQ 80 5 PAGE UM TIFFANY JULY 31, 1973 21:24.33 0 ROUTINES IHEREAD AND IHERITE. 00233/34 PL1 LIBRARY NOTE/POINT SA G PNTS S0410 MTSPL1 'PL1LIB' POSN=IHENOTE 34 D3T2 77 PL1_LIBRARY.NOTE/POINT.SA.34 1 SEQ 80 2 PAGE UM TIFFANY JULY 31, 1973 21:24.35 0 SUBROUTINE TO INTERFACE BETWEEN PL/I PROGRAMS AND THE MTS SUBROUTINES 'NOTE' AND 'POINT'. 00233/35 PL1 LIBRARY UPDATE UI G S0410 MTSPL1 'PL1LIB' POSN=PL1LIB.UPDATE 35 D3T2 78 PL1_LIBRARY.UPDATE.UI.35 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 21:24.38 0 *IEBUPDAT INPUT TO PRODUCE CURRENT PL1 LIBRARY. UM RECEIVED ONLY PART OF THE NEW PL/I LIBRARY FROM IBM. 00233/36 PL1 LIBRARY 18.0 UPDATE UI S0410 MTSPL1 'PL1LIB' POSN=OLD.UPDATE 36 D3T2 79 PL1_LIBRARY.18.0_UPDATE.UI.36 1 SEQ 80 12 PAGE UM TIFFANY JULY 31, 1973 21:24.41 0 *IEBUPDAT INPUT TO PRODUCE OS RELEASE 18.0 PL1 LIBRARY. REQUIRES RELEASE 18.0 OS PL1 SOURCE. 00233/37 PL1 LIBRARY ENDPL1LIB OC G S0410 MTSPL1 'PL1LIB' POSN=ENDPL1LIB 40 D3T2 80 PL1_LIBRARY.ENDPL1LIB.OC.37 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:24.44 0 CONTAINS 6 LOADER CARDS (RIP PL1SYM, RIP IHEPRD, LCS LCSYMBOL, LCS PL1SYM, LCSPR IHEPRD, LDT). 00233/38 PL1 LIBRARY *PL1LIB OL G *PL1LIB D3T2 81 PL1_LIBRARY.*PL1LIB.O.38 1 SEQ 256 3 PAGE UM TIFFANY JULY 31, 1973 21:24.47 0 NON-REENTRANT PART OF RUN-TIME LIBRARY; THE REMAINDER IS IN SHAREDPL1LIB. 1 FRI AUG 02/96 18:37:32 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/39 PL1 LIBRARY SHAREDPL1LIB OE G SEG2:SHAREDPL1LIB D3T2 82 PL1_LIBRARY.SHAREDPL1LIB.OE.39 1 SEQ 256 60 PAGE UM TIFFANY JULY 31, 1973 21:24.48 0 REENTRANT PART OF RUN-TIME LIBRARY; LOADED INTO SHARED VM AT IPL BY SEG 2 LOADER. CONTAINS IHEPRD WHICH IS SET UP CORRECTLY BY CRELCSPR (506/2). ******* NOTE: CONTAINS REP CARDS. ********* 00233/40 PL1 LIBRARY *LINEPL1LIB O # (OBSOLETE) UM 00233/41 PL1 LIBRARY *PL1LINKLIB O # (OBSOLETE) UM 00234/1 8ASR MACLIB SM G MAC8 S0676 PDP-8 FSNAME=8ASRMAC 4 D3T2 83 8ASR.MACLIB.SM.1 1 LINE 80 15 PAGE UM JLD JUNE 29, 1973 21:30.56 0 MACRO LIBRARY FOR DEC ASSEMBLERS. 0 Referenced by comments of: 234/4, 234/6 00234/2 8ASR 8ASREQU SA G DEF8 S0676 PDP-8 FSNAME=8ASREQU 5 D3T2 84 8ASR.8ASREQU.SA.2 1 LINE 80 4 PAGE UM JLD JUNE 29, 1973 21:31.59 0 COPY SECTION. 0 Referenced by comments of: 234/4, 234/6 00234/3 8ASR 8ASRST SA G COP8 S0676 PDP-8 FSNAME=8ASRST 6 D3T2 85 8ASR.8ASRST.SA.3 1 LINE 80 6 PAGE UM JLD JUNE 29, 1973 21:32.23 0 COPY SECTION. 0 Referenced by comments of: 234/4, 234/6 00234/4 8ASR MAIN PROGRAM SA G ASR8 S0676 PDP-8 FSNAME=8ASRM 7 D3T2 86 8ASR.MAIN_PROGRAM.SA.4 1 LINE 80 42 PAGE UM 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/5 8ASR MAIN PROGRAM OC G S0676 PDP-8 FSNAME=8ASRMOBJ 17 D3T2 87 8ASR.MAIN_PROGRAM.OC.5 1 LINE 80 4 DISK UM JLD JUNE 29, 1973 21:44.03 00234/6 8ASR SUBROUTINES SA G COM8 S0676 PDP-8 FSNAME=8ASRCOM 8 D3T2 88 8ASR.SUBROUTINES.SA.6 1 LINE 80 16 PAGE UM 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/7 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 1 FRI AUG 02/96 18:37:32 Page 72 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00234/8 8ASR PDP-8 OP TBLS SA G OPS8 S0676 PDP-8 FSNAME=8OPS 9 D3T2 90 8ASR.PDP-8_OP_TBLS.SA.8 1 LINE 80 8 PAGE UM JLD JUNE 29, 1973 21:35.56 0 ASSEMBLY TO DEFINE PDP-8 OPERATION CODES FOR *8ASR. 00234/9 8ASR PDP-8 OP TBLS OC G S0676 PDP-8 FSNAME=8OPSOBJ 19 D3T2 91 8ASR.PDP-8_OP_TBLS.OC.9 1 LINE 80 2 DISK UM 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 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. 1 FRI AUG 02/96 18:37:32 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/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). 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00238 *2250PLOT SA O P225 S0371 'D1T2' FMT=FB(6400,80) 7 D3T2 111 2250PLOT..SA. 1 SEQ 80 4 PAGE UM PIRKOLA JULY 31, 1973 21:29.07 0 PROGRAM TO PLOT ON A 2250 DISPLAY. HASN'T BEEN TRIED IN YEARS. OBJECT NOT DISTRIBUTED. 00239 *8LINK # (SEE COMP 234) UM 00241 *TRACK SA O *TRK S0371 'D1T2' FMT=FB(6400,80) 43 D3T2 112 TRACK..SA. 1 SEQ 80 8 PAGE UM PIRKOLA JULY 31, 1973 21:29.51 0 EXPERIMENTAL PROGRAM TO DO LIGHT PEN TRACKING ON A MOD 3 2250. HASN'T BEEN TRIED IN YEARS, PROBABLY WON'T WORK ANYMORE. OBJECT NOT DISTRIBUTED. 00243/1 BINEBCD SA G BBCD MTA:BINEBCD(1,999) D3T2 113 BINEBCD..SA.1 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 21:29.54 0 SUBROUTINE TO CONVERT AN EBCDIC CARD WHICH WAS READ IN COLUMN BINARY BACK TO EBCDIC. CALLED BY *2501RTN (086) AND BY HASP (387). THIS VERSION DOES NO ERROR CHECKING. 0 Referenced by comments of: 86/1 00243/2 BINEBCD OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00243/3 BINEBCD SA G BBCD MTA:BINEBCD(2000) D3T2 114 BINEBCD..SA.3 1 LINE 80 4 PAGE UM MTA JULY 31, 1973 21:29.56 0 SAME SUBROUTINE, BUT WITH ERROR CHECKING. OBJECT NOT DISTRIBUTED. 00244/1 **CT S # (OBSOLETE) D2T1 138 UM 00244/2 **CT TAPE SUBR S # (OBSOLETE) D2T1 139 UM 00245 DESTROY # (SEE COMP 502) UM 00246 *8EDIT SF # (OBSOLETE) UM 00247 *SPEAK D # (SEE COMP 084) UM 00249/1 *COPY SA O COPY W045:NEWFILECOPY D3T2 115 COPY..SA.1 1 LINE 80 4 PAGE UM PIRKOLA JULY 31, 1973 21:29.58 0 PROGRAM TO COPY A FILE FROM ANOTHER USER. IT IS MAINTAINED ONLY FOR HISTORICAL REASONS (SOME USER'S NEVER GIVE UP) AND SHOULD NOT BE USED. TRY $COPY, YOU'LL LIKE IT. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00249/2 *COPY OE O *COPY D3T2 116 COPY..O.2 1 LINE 255 1 PAGE UM PIRKOLA JULY 31, 1973 21:30.02 00251/1 *IEBUPDAT SA S0370 'D1T1' FMT=FB(6400,80) 134 D3T2 117 IEBUPDAT..SA.1 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 21:31.45 0 A PROGRAM TO COPY TAPES CONTAINING CARD IMAGES CONFORMING TO THE IBM IEBUPDAT OR IEBUPDTE PROGRAMS. THIS PROGRAM WILL MAKE INSERTIONS AND DELETIONS. 00251/2 *IEBUPDAT OC *IEBUPDAT D3T2 118 IEBUPDAT..OC.2 1 LINE 80 5 PAGE UM TIFFANY JULY 31, 1973 21:31.46 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00253 LINE DIRECTORY SORT SA # (OBSOLETED BY COMP 546) D2T1 121 UM 00254/1 BSLOAD SA G BSLD W009:BSLOAD.S 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). FOR D3.1, BSLOAD HAS BEEN CHANGED TO SAVE THE UMLOAD SYMBOL TABLES AT THE BEGINNING OF SHARED VM. THESE TABLES CAN THEN BE USED BY PISTLE (THE SEGMENT 2 LOADER) TO RESOLVE REFERENCES TO SHARED VM SYMBOLS MADE FROM SEGMENT 0 CSECTS. TO AVOID LOADER ERRORS, SUCH SYMBOLS SHOULD BE "NCA"ED IN THE SEGMENT 0 DECK. 00254/2 BSLOAD OC G # RESIDENT SYSTEM (SEE COMP 468) UM DE JONG 00255 UIDFIND S # (OBSOLETE) UM 00256/1 STATISTICS COMBINE *CMB C *CMB D3T2 120 STATISTICS_COMBINE.*CMB.C.1 1 LINE 29 1 PAGE UM WSG JULY 31, 1973 21:31.54 0 COMMAND FILE TO RUN STATISTICS COMBINE PROGRAM (256/2). INVOKED BY ENTERING "MTS *CMB" ON THE OPERATOR'S CONSOLE. 0 Referenced by comments of: 326/1, 447/3 00256/2 STATISTICS COMBINE COMBINE PGM SA G CMB0 WSG:CMB(1,999) D3T2 121 STATISTICS_COMBINE.COMBINE.SA.2 1 LINE 80 5 PAGE UM WSG JULY 31, 1973 21:31.55 0 PROGRAM TO COMBINE AND BLOCK MTS STATISTICS TAPES AS PRODUCED BY *STA (050/3) AND THE TAPESTAT SAVE PROGRAM (447/3). PROGRAM WILL ASK FOR TAPE DRIVE WHERE OUTPUT TAPE IS MOUNTED, THEN ASK FOR INPUT TAPE DRIVE NAMES. COMBINE PROCESS IS ENDED BY ENTERING "DONE" FOR AN INPUT DRIVE NAME. THIS PROGRAM PRODUCES TAPES WHICH ARE BLOCKED IN A RATHER NON-STANDARD MANNER. HOWEVER, ALL SYSTEM PROGRAMS WHICH READ *STATISTICS (OR *TAPESTAT) DATA, ARE ABLE TO DEBLOCK THESE TAPES. 0 Referenced by comments of: 256/1 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00256/3 STATISTICS COMBINE COMBINE PGM OC G SYS:CMB D3T2 122 STATISTICS_COMBINE.COMBINE.OC.3 1 LINE 80 2 PAGE UM WSG JULY 31, 1973 21:31.57 00257 *MOMS OC 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. 00258/1 RECEIPT CARDS *RCP C *RCP D3T2 124 RECEIPT_CARDS.*RCP.C.1 1 LINE 29 1 PAGE UM EMERY JULY 31, 1973 21:32.11 0 COMMAND FILE TO RUN BATCH RECEIPT (S-8) CARD GENERATOR PROGRAM (258/3). INVOKED BY ENTERING "MTS *RCP" FROM OPERATORS CONSOLE. 00258/2 RECEIPT CARDS RECEIPT PGM SA RECP W032:RCP D3T2 125 RECEIPT_CARDS.RECEIPT_PGM.SA.2 1 LINE 80 5 PAGE UM EMERY JULY 31, 1973 21:32.12 0 PROGRAM TO GENERATE MTS BATCH RECEIPT CARDS. 00258/3 RECEIPT CARDS RECEIPT PGM OC SYS:RCP D3T2 126 RECEIPT_CARDS.RECEIPT_PGM.OC.3 1 LINE 80 2 PAGE UM EMERY JULY 31, 1973 21:32.15 0 Referenced by comments of: 258/1 00259 *LIST SA # (OBSOLETE) D2T1 332 UM 00260/1 SSP *SSP OC G *SSP D3T2 127 SSP.*SSP.O.1 1 LINE 32 1 PAGE UM HARDING JULY 31, 1973 21:32.18 0 IBM'S SCIENTIFIC SUBROUTINE PACKAGE AS DESCRIBED IN FORM H20-0205-3. THE CHANGES DESCRIBED IN TNL N20-1944 HAVE NOT YET BEEN MADE. FOR CONSISTENT DOCUMENTATION, THIS TNL SHOULD NOT BE INSTALLED IN THE SSP MANUAL (H20-0205-3). WE ARE TRYING TO GET A NEW VERSION READY WHICH WILL INCLUDE THE N20-1944 CHANGES. THE FILE *SSP CONTAINS ONE LINE WHICH IS "$CONTINUE WITH *SSPSTAT+*SSPMATH". 00260/2 SSP *SSPSTAT OL G *SSPSTAT D3T2 128 SSP.*SSPSTAT.OL.2 1 LINE 255 30 PAGE UM HARDING JULY 31, 1973 21:32.20 00260/3 SSP *SSPMATH OL G *SSPMATH D3T2 129 SSP.*SSPMATH.OL.3 1 LINE 255 129 PAGE UM HARDING JULY 31, 1973 21:32.27 00260/4 SSP SSP SOURCE 1 SF # (NOT DISTRIBUTED) D2T1 363 UM HARDING 0 IN ACCORDANCE WITH THE DECISION TO DISTRIBUTE "APPLICATION" PROGRAMS SEPARATELY FROM THE REST OF THE SYSTEM, WE ARE NOT DISTRIBUTING THE SOURCE FOR SSP OR FOR THE SSP EXAMPLE PROGRAMS WITH DIST 3. HOWEVER, FOR THE CONVENIENCE OF NEW INSTALLATIONS, THE OBJECT (*SSPSTAT AND *SSPMATH) IS DISTRBUTED. THIS IS THE CURRENT UM RUNNING OBJECT. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00260/5 SSP SSP SOURCE 2 SF # (NOT DISTRIBUTED) D2T1 364 UM HARDING 00260/6 SSP EXAMPLE PGM 1 SF # (NOT DISTRIBUTED) D2T1 365 UM HARDING 00260/7 SSP EXAMPLE PGM 2 SF # (NOT DISTRIBUTED) D2T1 366 UM HARDING 00260/8 SSP EXAMPLE PGM 3 SF # (NOT DISTRIBUTED) D2T1 367 UM HARDING 00260/9 SSP EXAMPLE PGM 4 SF # (NOT DISTRIBUTED) D2T1 368 UM HARDING 00260/10 SSP EXAMPLE PGM 5 SF # (NOT DISTRIBUTED) D2T1 369 UM HARDING 00260/11 SSP EXAMPLE PGM 6 SF # (NOT DISTRIBUTED) D2T1 370 UM HARDING 00260/12 SSP EXAMPLE PGM 7 SF # (NOT DISTRIBUTED) D2T1 371 UM HARDING 00260/13 SSP EXAMPLE PGM 8 SF # (NOT DISTRIBUTED) D2T1 372 UM HARDING 00260/14 SSP EXAMPLE PGM 9 SF # (NOT DISTRIBUTED) D2T1 373 UM HARDING 00260/15 SSP EXAMPLE PGM 10 SF # (NOT DISTRIBUTED) D2T1 374 UM HARDING 00260/16 SSP EXAMPLE PGM 11 SF # (NOT DISTRIBUTED) D2T1 375 UM HARDING 00260/17 SSP EXAMPLE PGM 12 SF # (NOT DISTRIBUTED) D2T1 376 UM HARDING 00260/18 SSP EXAMPLE PGM 13 SF # (NOT DISTRIBUTED) D2T1 377 UM HARDING 00260/19 SSP EXAMPLE PGM 14 SF # (NOT DISTRIBUTED) D2T1 378 UM HARDING 00260/20 SSP EXAMPLE PGM 15 SF # (NOT DISTRIBUTED) D2T1 379 UM HARDING 00261/1 *SLIP 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00261/2 *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/3 *SLIP *SLIP OL G *SLIP D3.1T1 195 SLIP.*SLIP.OL.3 1 SEQE 254 38 PAGE UM GOODRICH MAR. 06, 1974 03:35.15 00261/4 *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. 00261/5 *SLIP NEW INFO PF G W081:3.1SLIPINFO D3.1T1 197 SLIP.NEW_INFO.PF.5 1 LINE 70 8 PAGE UM GOODRICH MAR. 06, 1974 03:35.22 0 THIS IS A TEMPORARY WRITEUP ON THE D3.1 SLIP. OFFICIAL USER DOCUMENTATION IS NOT READY YET. 00261/6 *SLIP WRITEUP WF @ D3T2 132 SLIP.WRITEUP.WF.3 1 LINE 115 3 DISK UM GOODRICH MAR. 15, 1973 18:35.38 00262 *PLOTSYS # (SEE COMP 615) UM 00265 *1 SM *1 D3T2 133 1..SM. 1 LINE 80 30 PAGE UM SALISBURY JULY 31, 1973 21:33.27 0 MACRO LIBRARY FOR LIST PROCESSIGN IN ASSEMBLY LANGUAGE. SIMILAR TO L6. 00267/1 *DOWNDATE SA O DNDT WATF:DOWNDATE(1,999) D3T2 134 DOWNDATE..SA.1 1 LINE 80 7 PAGE UM MTA JULY 31, 1973 21:33.36 0 THE INVERSE OF *UPDATE. WILL PRODUCE AN UPDATE DECK FROM TWO SOURCE TAPES. 00267/2 *DOWNDATE OC O *DOWNDATE D3T2 135 DOWNDATE..OC.2 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 21:33.38 00268 @TESTITP S # (OBSOLETE) D2T1 421 UM 00270 DISMOUNT SUBR SA # (SEE COMP 102) D2T1 426 UM 00271 MOUNT SUBR SA # (SEE COMP 101) D2T1 427 UM 00273/1 FPC SA G FPC0 WSG:FPC D3T2 136 FPC..SA.1 1 LINE 80 6 PAGE UM WSG JULY 31, 1973 21:33.40 0 SUBROUTINES E7090, D7090, E7090P, D7090P TO CONVERT IBM 7090 SERIES FLOATING POINT NUMBERS TO SYSTEM/360 LONG AND SHORT FORM. 00273/2 FPC OC G # *LIBRARY (SEE COMP 524) UM WSG 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00274 GLINT S # (NOT DISTRIBUTED) D2T1 395 UM HARDING 0 GAUSS-LEGENDRE INTEGRATION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00275/1 IHCLOGIC SUBR SA G IHCL S0370 'D1T1' FMT=FB(6400,80) 100 D3T2 137 IHCLOGIC_SUBR..SA.1 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 21:34.32 0 SUBROUTINES AND, LAND, OR, LOR, XOR, LXOR, COMPL, LCOMPL, SHFTL, AND SHFTR USED FOR LOGICAL OPERATIONS IN FORTRAN. UNCHANGED SINCE DIST 1. 00275/2 IHCLOGIC SUBR OC G # *LIBRARY (SEE COMP 524) UM TIFFANY 00278/1 IOH SA O IOH0 W016:IOH D3.1T1 198 IOH..SA.1 1 LINE 80 157 PAGE UM LEADER MAR. 06, 1974 03:35.24 0 IOH/360. THIS CONVERSION PACKAGE USES SEVERAL RPQS, PARTICULARLY SWAP. HOWEVER, THESE WILL BE REMOVED IN FUTURE VERSIONS. MANY BUGS HAVE BEEN FIXED IN THIS NEW VERSION, BUT SOME STILL REMAIN. FORMAT TYPES E AND F HAVE BEEN CHANGED TO DEFAULT TO FULL-WORD CONVERSION INSTEAD OF DOUBLE-WORD. WORK ON IMPROVING IOH CONTINUES WITH THE NEXT VERSION EXPECTED TO CALL SIOC. ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 400/1, 569/1 00278/2 IOH IOPKG SA G MTS:IOHPKG D3.1T1 199 IOH.IOPKG.SA.2 1 LINE 80 14 PAGE UM LEADER MAR. 06, 1974 03:36.16 0 THIS IS THE IOH I/O PACKAGE WHICH IS UNCHANGED FROM D3 (WHICH WAS UNCHANGED SINCE D1). IT HAS BEEN SPLIT INTO A SEPARATE SUB-COMPONENT FOR CONVENIENCE. 00278/3 IOH OC O W016:IOHOBJ D3.1T1 200 IOH..OC.3 1 LINE 80 10 PAGE UM LEADER MAR. 06, 1974 03:36.20 0 THIS NEW VERSION HAS NOT YET BEEN INSTALLED IN *LIBRARY, BUT DEFINITELY IS BETTER THAN THE D3 *LIBRARY VERSION. AS SOON AS OUR USERS CAN BE ADEQUATELY WARNED, THE NEW IOH WILL BE INSTALLED IN *LIBRARY. 00279 LINPG SUBR S # (NOT DISTRIBUTED) D2T1 396 UM HARDING 0 SOLVE LINEAR PROGRAMMING PROBLEMS. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00282/1 PRINTER PLOT SUBR SA PRPL W030:PRPLOT D3T2 139 PRINTER_PLOT_SUBR..SA.1 1 LINE 80 31 PAGE UM LIFT JULY 31, 1973 21:35.23 0 PLOT SUBROUTINES FOR PRINTED OUTPUT. USED BY *PLOT AMONG OTHERS. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00282/2 PRINTER PLOT SUBR OC # *LIBRARY (SEE COMP 524) UM LIFT 00283/1 QSAM SA G QSAM MTA:QSAM(1,999) D3T2 140 QSAM..SA.1 1 LINE 80 19 PAGE UM MTA JULY 31, 1973 21:35.33 0 LIBRARY SUBROUTINES TO PERFORM FIXED BLOCKING (FORMAT FB) ON FILES, TAPES, ETC. ENTRY POINTS: QGETUCB (QGTUCB), QOPEN, QGET, QPUT, QCLOSE, QCNTRL, AND QFREEUCB (QFRUCB). 0 Referenced by comments of: 137/1 00283/2 QSAM OC G # *LIBRARY (SEE COMP 524) UM MTA 00285/1 SKIP SA G SKIP W061:SKIP(1,999) D3T2 141 SKIP..SA.1 1 LINE 80 5 PAGE UM HENRIKSEN JULY 31, 1973 21:35.40 0 SUBR TO SPACE A FILE OR MAG TAPE FORWARD OR BACKWARD BY RECORDS AND/OR FILES. 00285/2 SKIP OC G # *LIBRARY (SEE COMP 524) UM HENRIKSEN 00286/1 MATH SUBRS SLE S # (NOT DISTRIBUTED) D2T1 389 UM HARDING 0 SIMULTANEOUS LINEAR EQUATIONS LIBRARY SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00286/2 MATH SUBRS INV S # (NOT DISTRIBUTED) D2T1 390 UM HARDING 0 MATRIX INVERSION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00286/3 MATH SUBRS INV1 S # (NOT DISTRIBUTED) D2T1 391 UM HARDING 0 MATRIX INVERSION SUBR WHICH ASSUMES PREVIOUS CALL ON LRD (286/4). APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00286/4 MATH SUBRS LRD S # (NOT DISTRIBUTED) D2T1 392 UM HARDING 0 MATRIX DECOMPOSITION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 0 Referenced by comments of: 286/3 00286/5 MATH SUBRS DBS S # (NOT DISTRIBUTED) D2T1 393 UM HARDING 0 DOUBLE BACK SUBSTITUTION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00286/6 MATH SUBRS DBST S # (NOT DISTRIBUTED) D2T1 394 UM HARDING 0 DOUBLE BACK SUBSTITUTION SUBR FOR TRANSFORMED SYSTEM. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00287/1 SPIE SUBR SA G SPIE MTA:SPIE(1,999) D3T2 142 SPIE_SUBR..SA.1 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 21:35.41 0 SUBROUTINE TO INTERFACE OS/360 'SPIE' MACRO WITH MTS 'PGNTTRP' SUBROUTINE. 00287/2 SPIE SUBR OC G # *LIBRARY (SEE COMP 524) UM MTA 00289 LOADCALL S # (OBSOLETE) UM 00291/1 *IEHMOVE SA IEH1 S0370 'D1T1' FMT=FB(6400,80) 135 D3T2 143 IEHMOVE..SA.1 1 SEQ 80 16 PAGE UM TIFFANY JULY 31, 1973 21:35.54 0 PART OF A PACKAGE TO READ UNLOADED OS/360 DATA SETS IN MTS. SEE ALSO *UNLINKER (562). UNCHANGED SINCE DIST 1.0. 00291/2 *IEHMOVE SA IEH2 S0370 'D1T1' FMT=FB(6400,80) 136 D3T2 144 IEHMOVE..SA.2 1 SEQ 80 5 PAGE UM TIFFANY JULY 31, 1973 21:35.56 00291/3 *IEHMOVE SA IEH3 S0370 'D1T1' FMT=FB(6400,80) 137 D3T2 145 IEHMOVE..SA.3 1 SEQ 80 1 PAGE UM TIFFANY JULY 31, 1973 21:35.57 00291/4 *IEHMOVE SA IEH4 S0370 'D1T1' FMT=FB(6400,80) 138 D3T2 146 IEHMOVE..SA.4 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 21:35.59 00291/5 *IEHMOVE OC *IEHMOVE D3T2 147 IEHMOVE..OC.5 1 LINE 80 7 PAGE UM TIFFANY JULY 31, 1973 21:36.05 0 ********* NOTE: OBJECT CONTAINS MANY REP CARDS. ********* 00292 *CPCORE # (SEE COMP 615) UM 00293/1 *MACGEN SA G MACG WATF:MACGEN(1,999) D3T2 148 MACGEN..SA.1 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 21:36.07 0 GENERATE THE DIRECTORY FOR A MACRO LIBRARY. ASSEMBLE WITH *SYSMAC. 00293/2 *MACGEN OC G *MACGEN D3T2 149 MACGEN..OC.2 1 LINE 255 1 PAGE UM MTA JULY 31, 1973 21:36.08 00295 *PL360LIB # (SEE COMP 108) UM 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00296 CHECKDASD SA # OBSOLETE D2T1 119 UM 00297/1 *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). 0 Referenced by comments of: 66/67 00297/2 *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/3 *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/4 *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/5 *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. 00297/6 *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 00297/7 *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/8 *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/9 *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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00297/10 *LINKEDIT USERS' GUIDE WF W099:M241 D3T2 159 LINKEDIT.USERS'_GUIDE.WF.10 1 LINE 121 7 PAGE UM DE JONG JULY 31, 1973 10:12.07 0 THIS IS COMPUTING CENTER MEMO M241 -- "LINKAGE EDITOR USERS' GUIDE" 00297/11 *LINKEDIT D3.1 NOTES WF W098:HEN3 D3.1T1 210 LINKEDIT.D3.1_NOTES.WF.11 1 LINE 114 3 PAGE UM DE JONG MAR. 06, 1974 03:36.58 0 NOTES ON D3.1 LINKAGE EDITOR ADDITIONS AND CHANGES. 00298/1 *FORTRANH OS SOURCE SA G S0579 SAVE 'JWS - SAVE' FSNAME=FTNH.20.UDIN D3T2 160 FORTRANH.OS_SOURCE.SA.1 1 SEQ 80 47 DISK UM JWS JUNE 23, 1972 12:55.28 0 SUBSET OF OS/360 FORTRAN H RELEASE 20.1 00298/2 *FORTRANH MTS UPDATE UU G S0579 SAVE 'JWS - SAVE' FSNAME=FTNH.20.UDS D3T2 161 FORTRANH.MTS_UPDATE.UU.2 1 LINE 76 8 DISK UM JWS OCT. 23, 1972 12:15.14 0 UPDATE DECK TO GET FORTRAN H INTO MTS. MODULES NOT INCLUDED IN 298/1 ARE NOT CHANGED OR RECOMPILED IN MTS. *UNLINKER (562) WAS USED TO GET THESE MODULES OUT OF OS. 00298/3 *FORTRANH OS OBJECT OE O S0579 SAVE 'JWS - SAVE' FSNAME=FTNH.20.OSM D3T2 163 FORTRANH.OS_OBJECT.O.4 1 SEQ 1024 63 DISK UM JWS JUNE 23, 1972 12:54.06 0 OBJECT MODULES FOR THOSE PARTS OF FORTRAN H UNCHANGED FROM OS. NO PTF'S ARE INCLUDED IN THIS FILE. 00298/4 *FORTRANH COMPILER SA S0579 SAVE 'JWS-SAVE' FSNAME=FSDSOURCE D3T2 165 FORTRANH.FTN_VERSION.SA.6 1 LINE 80 77 PAGE UM JWS JULY 31, 1973 21:43.07 0 THIS COMPONENT CORRESPONDS TO 298/1 UPDATED BY 298/2, BUT WITH ADDITIONAL MODIFICATIONS SO AS TO MAKE IT COMPATIBLE WITH THE *FTN INTERFACE. THIS IS THE CURRENT SOURCE FOR THOSE PARTS OF THE FTNH COMPILER WHICH ARE DIFFERENT IN MTS THAN IN OS. 00298/5 *FORTRANH COMPILER OC S0579 SAVE 'JWS-SAVE' FSNAME=FSDOBJ D3T2 166 FORTRANH.FTN_VERSION.OC.7 1 LINE 255 7 PAGE UM JWS JULY 31, 1973 21:43.35 0 THIS OBJECT CORRESPONDS TO THE SOURCE IN 298/4 AND, AS SUCH, MUST BE COMBINED WITH 298/3 TO PRODUCE THE CURRENT FORTRAN H COMPILER. 00299 *LOVOC S # (OBSOLETE) D2T2 205 UM 00300 *LODEF S # (OBSOLETE) D2T2 206 UM 00302/1 *SSPSOURCE SF G SSPS S0497 'GENERAL *FS TAPE' FSNAME=SNATCH.SSP D3T2 167 SSPSOURCE..SF.1 1 LINE 80 5 PAGE UM HARDING FEB. 17, 1972 13:31.13 0 PROGRAM TO RETRIEVE SOURCE FOR SSP FOR USERS. EXPECTS AN INPUT TAPE CONTAINING 260/4 THRU 260/20 AS THE FIRST 17 FILES. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00302/2 *SSPSOURCE OC G *SSPSOURCE D3T2 168 SSPSOURCE..O.2 1 SEQ 3334 2 PAGE UM HARDING JULY 31, 1973 22:37.40 00303/1 SORT *SORT SA G S0001 'SMITH' FSNAME=SRT.S D3T2 169 SORT.*SORT.SA.1 1 LINE 70 20 DISK UM ENGLE APR. 13, 1973 16:10.26 0 GENERAL SORT PROGRAM. REQUIRES DBS:MAC MACRO LIB (455) AND REFERENCES DBS:LM1 (303/6) AND DBS:LM2 (303/9). ASSEMBLE AS FOLLOWS FOR THE TWO VERSIONS: &SUB SETB 0 FOR *SORT VERSION (303/2) &SUB SETB 1 FOR SORT SUBROUTINE VERSION (303/3) 00303/2 SORT *SORT OE G *SORT D3T2 170 SORT.*SORT.O.2 1 SEQ 3228 2 PAGE UM ENGLE JULY 31, 1973 22:40.55 0 Referenced by comments of: 303/1 00303/3 SORT SORT SUBR OC G # *LIBRARY (SEE COMP 524) UM ENGLE 0 Referenced by comments of: 303/1 00303/4 SORT SORT2/3 SUBRS SA G # (PART OF 303/1) UM ENGLE 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. 00303/5 SORT SORT2/3 SUBRS OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00303/6 SORT LM1 SUBROUTINE SA G # (PART OF 303/1) UM ENGLE 0 Referenced by comments of: 303/1 00303/7 SORT LM1 SUBROUTINE OE G DBS:LM1(1,99) D3T2 171 SORT.LM1_SUBROUTINE.O.7 1 LINE 255 1 PAGE UM ENGLE JULY 31, 1973 22:40.57 00303/8 SORT LM1 MESSAGES M G DBS:LM1(100) D3T2 172 SORT.LM1_MESSAGES.M.8 1 LINE 81 1 PAGE UM ENGLE JULY 31, 1973 22:40.59 00303/9 SORT LM2 SUBROUTINE SA G # (PART OF 303/1) UM ENGLE 0 Referenced by comments of: 303/1 00303/10 SORT LM2 SUBROUTINE OE G DBS:LM2 D3T2 173 SORT.LM2_SUBROUTINE.O.10 1 SEQ 782 1 PAGE UM ENGLE JULY 31, 1973 22:41.01 00303/11 SORT DOC (MASTER) WT G S0001 'SMITH' FSNAME=SORTDES.M D3T2 174 SORT.DOC_(MASTER).WT.11 1 SEQ 132 30 DISK UM ENGLE AUG. 14, 1972 17:45.47 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00303/12 SORT DOC (UPDATE) WT G S0001 'SMITH' FSNAME=SORTDES.U D3T2 175 SORT.DOC_(UPDATE).WT.12 1 LINE 80 3 DISK UM ENGLE AUG. 14, 1972 17:46.01 00303/13 SORT M223 PREFACE WF G S0721 'D3T2' FSNAME=SORT.M223_PREFACE.WF.13 176 D3T2 176 SORT.M223_PREFACE.WF.13 1 LINE 96 1 DISK UM ENGLE MAR. 16, 1973 16:01.55 0 THIS IS THE PREFACE (FIRST PAGE) OF COMPUTING CENTER MEMO M223 -- "SORT, SORT2, SORT3 SUBROUTINES" 00304 *TPD SA # (NOT DISTRIBUTED) D2T1 137 UM WSG 00305/1 *FTNTOPL1 SLCPF4 SP O S0517 'D2T1' FMT=FB(4000,80) 294 D3T2 177 FTNTOPL1.SLCPF4.SP.1 1 SEQ 80 2 PAGE UM 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. THE ONLY PROGRAMS THAT ARE NOT PL/I ARE SCONVER, SPUTTBS, AND SLBLNK. THESE ARE ASSEMBLY. UNCHANGED SINCE DIST 2. 00305/2 *FTNTOPL1 SCONVER SA O SCON S0517 'D2T1' FMT=FB(4000,80) 295 D3T2 178 FTNTOPL1.SCONVER.SA.2 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:47.14 00305/3 *FTNTOPL1 SPUTTBS SA O SPUT S0517 'D2T1' FMT=FB(4000,80) 296 D3T2 179 FTNTOPL1.SPUTTBS.SA.3 1 SEQ 80 24 PAGE UM TIFFANY JULY 31, 1973 22:47.18 00305/4 *FTNTOPL1 SLTCOL SP O S0517 'D2T1' FMT=FB(4000,80) 297 D3T2 180 FTNTOPL1.SLTCOL.SP.4 1 SEQ 80 12 PAGE UM TIFFANY JULY 31, 1973 22:47.22 00305/5 *FTNTOPL1 SIPPRS SP O S0517 'D2T1' FMT=FB(4000,80) 298 D3T2 181 FTNTOPL1.SIPPRS.SP.5 1 SEQ 80 27 PAGE UM TIFFANY JULY 31, 1973 22:47.25 00305/6 *FTNTOPL1 SPH10 SP O S0517 'D2T1' FMT=FB(4000,80) 299 D3T2 182 FTNTOPL1.SPH10.SP.6 1 SEQ 80 11 PAGE UM TIFFANY JULY 31, 1973 22:47.28 00305/7 *FTNTOPL1 SFNPRO SP O S0517 'D2T1' FMT=FB(4000,80) 300 D3T2 183 FTNTOPL1.SFNPRO.SP.7 1 SEQ 80 10 PAGE UM TIFFANY JULY 31, 1973 22:47.30 00305/8 *FTNTOPL1 SDMPRO SP O S0517 'D2T1' FMT=FB(4000,80) 301 D3T2 184 FTNTOPL1.SDMPRO.SP.8 1 SEQ 80 18 PAGE UM TIFFANY JULY 31, 1973 22:47.32 00305/9 *FTNTOPL1 SNLPRO SP O S0517 'D2T1' FMT=FB(4000,80) 302 D3T2 185 FTNTOPL1.SNLPRO.SP.9 1 SEQ 80 9 PAGE UM TIFFANY JULY 31, 1973 22:47.34 00305/10 *FTNTOPL1 SFTPRO SP O S0517 'D2T1' FMT=FB(4000,80) 303 D3T2 186 FTNTOPL1.SFTPRO.SP.10 1 SEQ 80 21 PAGE UM TIFFANY JULY 31, 1973 22:47.38 00305/11 *FTNTOPL1 SRTPRO SP O S0517 'D2T1' FMT=FB(4000,80) 304 D3T2 187 FTNTOPL1.SRTPRO.SP.11 1 SEQ 80 10 PAGE UM TIFFANY JULY 31, 1973 22:47.40 00305/12 *FTNTOPL1 SIOPRO SP O S0517 'D2T1' FMT=FB(4000,80) 305 D3T2 188 FTNTOPL1.SIOPRO.SP.12 1 SEQ 80 25 PAGE UM TIFFANY JULY 31, 1973 22:47.43 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00305/13 *FTNTOPL1 SARPRO SP O S0517 'D2T1' FMT=FB(4000,80) 306 D3T2 189 FTNTOPL1.SARPRO.SP.13 1 SEQ 80 27 PAGE UM TIFFANY JULY 31, 1973 22:47.47 00305/14 *FTNTOPL1 SCAPRO SP O S0517 'D2T1' FMT=FB(4000,80) 307 D3T2 190 FTNTOPL1.SCAPRO.SP.14 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:47.49 00305/15 *FTNTOPL1 SIFPRO SP O S0517 'D2T1' FMT=FB(4000,80) 308 D3T2 191 FTNTOPL1.SIFPRO.SP.15 1 SEQ 80 6 PAGE UM TIFFANY JULY 31, 1973 22:47.52 00305/16 *FTNTOPL1 SALPRO SP O S0517 'D2T1' FMT=FB(4000,80) 309 D3T2 192 FTNTOPL1.SALPRO.SP.16 1 SEQ 80 7 PAGE UM TIFFANY JULY 31, 1973 22:47.54 00305/17 *FTNTOPL1 SPH20 SP O S0517 'D2T1' FMT=FB(4000,80) 310 D3T2 193 FTNTOPL1.SPH20.SP.17 1 SEQ 80 16 PAGE UM TIFFANY JULY 31, 1973 22:47.58 00305/18 *FTNTOPL1 SPH30 SP O S0517 'D2T1' FMT=FB(4000,80) 311 D3T2 194 FTNTOPL1.SPH30.SP.18 1 SEQ 80 41 PAGE UM TIFFANY JULY 31, 1973 22:48.03 00305/19 *FTNTOPL1 SLBLNK SA O SLBL S0517 'D2T1' FMT=FB(4000,80) 312 D3T2 195 FTNTOPL1.SLBLNK.SA.19 1 SEQ 80 4 PAGE UM TIFFANY JULY 31, 1973 22:48.07 00305/20 *FTNTOPL1 SUT1 SP O S0517 'D2T1' FMT=FB(4000,80) 313 D3T2 196 FTNTOPL1.SUT1.SP.20 1 SEQ 80 3 PAGE UM TIFFANY JULY 31, 1973 22:48.08 00305/21 *FTNTOPL1 UPDATE UU O S0517 'D2T1' FMT=FB(4000,80) 314 D3T2 197 FTNTOPL1.UPDATE.UU.21 1 SEQ 80 8 PAGE UM 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. 0 Referenced by comments of: 305/1 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/1 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 1 FRI AUG 02/96 18:37:32 Page 87 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/2 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/3 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/4 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/5 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/6 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/7 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 00306/8 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/9 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00306/11 WIREWRAP SQGRD OE G *WWSQGRD D3.1T1 221 WIREWRAP.SQGRD.OE.11 1 SEQE 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 SEQE 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 SEQE 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). 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). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 SEQE 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. 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/1 *OBJCONV SA FXOB S0372 'D1.1' FMT=FB(4000,80) 146 D3T2 220 OBJCONV..SA.1 1 SEQ 80 1 PAGE UM DWB JULY 31, 1973 22:54.21 0 PROGRAM TO CONVERT AN OS/360 OBJECT DECK WHICH HAS THE CSECT LENGTH ON THE END CARD TO AN MTS COMPATIBLE DECK, I.E. TO A DECK WITH THE CSECT LENGTH ON THE FIRST ESD CARD. USED WITH *COBOL. UNCHANGED SINCE DIST 2. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00307/2 *OBJCONV OC *OBJCONV D3T2 221 OBJCONV..O.2 1 LINE 80 1 PAGE UM DWB JULY 31, 1973 22:54.24 00308/1 *FORMAT SA G FMT0 W114:FMT.S(1) D3T2 222 FORMAT..SA.1 1 LINE 80 70 PAGE UM BLINN JULY 31, 1973 22:54.25 0 UBC ASMG VERSION OF 'FORMAT' TEXT PROCESSING LANGUAGE. AT UM, THIS VERSION (ORIGINALLY KNOWN AS *FMT) HAS NOW TOTALLY REPLACED THE OLD *FORMAT, WHICH WAS AN IBM FORTRAN PROGRAM. THIS FILE CONTAINS 3 ASSEMBLIES, THE SECOND OF WHICH (FMTED) IS NOT NEEDED. REQUIRES WEBBMAC MACRO LIBRARY (308/2). 0 Referenced by comments of: 560/1 00308/2 *FORMAT WEBBMACLIB SM G WMAC MTS:WEBBMACLIB D3T2 223 FORMAT.WEBBMACLIB.SM.2 1 LINE 80 26 PAGE UM BLINN JULY 31, 1973 22:54.40 0 MACRO LIBRARY. 0 Referenced by comments of: 308/1 00308/3 *FORMAT OE G *FORMAT D3T2 224 FORMAT..OE.3 1 SEQ 15577 5 PAGE UM BLINN JULY 31, 1973 22:54.44 00309/1 *STASS360 MONITOR SA MNTR S0373 'STASS360' FMT=FB(3200,80) 1 D3T2 225 STASS360.MONITOR.SA.1 1 SEQ 80 11 PAGE UM BLINN JULY 31, 1973 22:55.58 0 COMPONENTS 309/1 THRU 309/6 ARE THE SOURCE FILES FOR STASS360. THEY ARE THE SAME AS THE UBC DISTRIBUTION OF STASS360 EXCEPT FOR RE-SEQUENCING. 00309/2 *STASS360 ASSEMBLER SA ASSM S0373 'STASS360' FMT=FB(3200,80) 2 D3T2 226 STASS360.ASSEMBLER.SA.2 1 SEQ 80 85 PAGE UM BLINN JULY 31, 1973 22:56.10 00309/3 *STASS360 SIMULATOR SA SIML S0373 'STASS360' FMT=FB(3200,80) 3 D3T2 227 STASS360.SIMULATOR.SA.3 1 SEQ 80 48 PAGE UM BLINN JULY 31, 1973 22:56.22 00309/4 *STASS360 I/O CONVERSION SA CVTH S0373 'STASS360' FMT=FB(3200,80) 4 D3T2 228 STASS360.I/O_CONVERSION.SA.4 1 SEQ 80 25 PAGE UM BLINN JULY 31, 1973 22:56.28 00309/5 *STASS360 IBCOM SA ICOM S0373 'STASS360' FMT=FB(3200,80) 5 D3T2 229 STASS360.IBCOM.SA.5 1 SEQ 80 18 PAGE UM BLINN JULY 31, 1973 22:56.32 00309/6 *STASS360 FIOCS SA FIOC S0373 'STASS360' FMT=FB(3200,80) 6 D3T2 230 STASS360.FIOCS.SA.6 1 SEQ 80 5 PAGE UM BLINN JULY 31, 1973 22:56.34 00309/7 *STASS360 UPDATE UU WATF:STAS.U D3T2 231 STASS360.UPDATE.UU.7 1 LINE 72 1 PAGE UM BLINN JULY 31, 1973 22:56.52 0 *UPDATE DECK TO PRODUCE THE UM VERSION OF STASS360 FROM COMPONENTS 309/1 THRU 309/6. UPDATES FOR COMPONENTS BEGIN AT LINES 1000, 2000, 3000, 4000, 5000, AND 6000. THE UPDATES ASSUME THAT THE SOURCE COMPONENTS ARE ON TAPE *STASS* AT FILE 1, 2, ETC. THE CHANGES MADE BY THIS UPDATE ARE ALL VERY MINOR AND THE UBC VERSION WILL WORK FINE. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00309/8 *STASS360 OE *STASS360 D3T2 232 STASS360..OE.8 1 SEQ 14248 9 PAGE UM BLINN JULY 31, 1973 22:56.54 00310 *1ASR # (SEE COMP 234) 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/1 *LABELSNIFF SA W062:SNIFF D3T2 233 LABELSNIFF..SA.1 1 SEQ 80 31 PAGE UM TIFFANY JULY 31, 1973 22:56.56 0 PROGRAM TO FORMAT AND PRINT LABEL INFORMATION FROM LABELED TAPES. COUNTS RECORDS AND BLOCKS AND RECOVERS FROM TAPE ERRORS. ALSO COMPUTES NUMBER OF FEET IN EACH FILE AND ON TOTAL TAPE. PROGRAM NOW ACCEPTS ADDITIONAL PARAMETERS (IN PAR OR FROM GUSER): REW CONTROLS THE POSITIONING OF THE TAPE AFTER SNIFFING. THE DEFAULT IS TO NOREW REWIND THE TAPE (REW), BUT NOREW CAUSES THE TAPE TO BE LEFT POSITIONED AFTER THE LAST FILE SNIFFED. FILES=N IF SPECIFIED, CAUSES ONLY N FILES TO BE SNIFFED (RATHER THAN ENTIRE TAPE). POSN= IF POSN IS NOT SPECIFIED, THE TAPE IS REWOUND BEFORE SNIFFING, OTHERWISE A "POSN" CONTROL COMMAND IS ISSUED PRIOR TO SNIFFING. 00314/2 *LABELSNIFF OE W062:LBLSNIFF D3T2 234 LABELSNIFF..O.2 1 SEQ 5320 3 PAGE UM TIFFANY JULY 31, 1973 22:57.00 00314/3 *LABELSNIFF WRITEUP WT S0721 'D3T2' FSNAME=LABELSNIFF.WRITEUP.WT.3 235 D3T2 235 LABELSNIFF.WRITEUP.WT.3 1 LINE 80 2 DISK UM TIFFANY JUNE 08, 1973 11:15.06 0 WRITEUP WHICH WILL BE PRINTED IN NEXT REVISION OF MTS VOLUME 2. 00315 *ANS SA # (OBSOLETE) D2T1 155 UM 00316 GENLIB SA # (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/1 XPL SUBMONITOR SA G XMON S0296 S296 'JOH XPL' POSN=XMON@S 15 D3T2 237 XPL.SUBMONITOR.SA.1 1 SEQ 80 24 PAGE UM HENRIKSEN JULY 31, 1973 23:01.38 0 XPL COMPILER AND EXECUTION CONTROL (SEE 1968 FJCC PROC, PP 617-636). ONE NEVER $RUNS AN XPL OBJECT DECK SINCE THE OBJECT CODE IS STORED IN A FORMAT UNIQUE TO XPL. RATHER, ONE RUNS THE XPL SUBMONITOR, WHICH IN TURN LOADS THE XPL PROGRAM AND PROVIDES A RUN-TIME 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 INTERFACE TO MTS. SINCE THE COMPILER ITSELF IS ALSO AN XPL PROGRAM, IT MUST BE RUN IN THE SAME MANNER, I.E. IT MUST BE RUN UNDER CONTROL OF THE SUBMONITOR. THE 2 FILES *XPL AND *XPLGO CONTAIN MTS OBJECT FOR A SET OF DEFAULT FILE NAMES FOR THE COMPILER AND COMPILED CODE EXECUTION RESPECTIVELY. EACH ENDS WITH "$CONTINUE WITH *XMON" SO THAT BY $RUNNING *XPL OR *XPLGO, THE SUBMONITOR (*XMON), WITH APPROPRIATE DEFAULTS, IS INVOKED. MODIFIED UBC SOURCE FOR THE XPL SUBMONITOR (*XMON). 00318/2 XPL SUBMONITOR OC G S0296 S296 'JOH XPL' POSN=XMON@O 17 D3T2 238 XPL.SUBMONITOR.OC.2 1 SEQ 80 2 PAGE UM HENRIKSEN JULY 31, 1973 23:01.42 0 THIS FILE PLUS THE OBJECT FOR TRACE (318/4) CONSTITUTE *XMON. THE FOLLOWING PATCH SHOULD BE INSERTED INTO THIS OBJECT FILE: REP 0008C6 01,0700,0700 TRACE DIES IF LEFT IN <<<<<<<<----- BOO HISS BOO HISS ... 0 Referenced by comments of: 318/4 00318/3 XPL TRACE SA G TRAC S0296 S296 'JOH XPL' POSN=TRACE@S 4 D3T2 239 XPL.TRACE.SA.3 1 SEQ 80 33 PAGE UM HENRIKSEN JULY 31, 1973 23:01.54 0 UNMODIFIED UBC SOURCE FOR TRACE SUBROUTINE USED BY THE SUBMONITOR (*XMON) AND *SPL (336). 00318/4 XPL TRACE OC G S0296 S296 'JOH XPL' POSN=TRACE@O 6 D3T2 240 XPL.TRACE.OC.4 1 SEQ 80 2 PAGE UM HENRIKSEN JULY 31, 1973 23:01.59 0 THE SUBMONITOR OBJECT (318/2) PLUS THIS FILE CONSTITUTE *XMON. THE FOLLOWING 2 LOADER CARDS SHOULD ALSO BE ADDED AT THE END OF *XMON: LCS LCSYMBOL LDT XPLSM 0 Referenced by comments of: 318/2 00318/5 XPL DEFAULTS SA G DFLT S0296 S296 'JOH XPL' POSN=DFLT@S 1 D3T2 241 XPL.DEFAULTS.SA.5 1 SEQ 80 1 PAGE UM HENRIKSEN JULY 31, 1973 23:02.03 0 SOURCE FOR THE 2 SETS OF SUBMONITOR DEFAULTS, THE FIRST FOR THE EXECUTION OF THE COMPILER (*XPL) AND THE SECOND FOR THE EXECUTION OF COMPILED CODE (*XPLGO). 00318/6 XPL DEFAULTS OC G S0296 S296 'JOH XPL' POSN=DFLT@O 3 D3T2 242 XPL.DEFAULTS.OC.6 1 SEQ 80 1 PAGE UM HENRIKSEN JULY 31, 1973 23:02.04 0 THE FIRST 4 LINES OF THIS FILE ARE THE OBJECT FOR THE FIRST DEFAULTS PROGRAM AND SHOULD BE PLACED IS THE FILE *XPL FOLLOWED BY A "$CONTINUE WITH *XMON" LINE. LINES 5 THROUGH 8 ARE THE OBJECT FOR THE SECOND DEFAULTS PROGRAM AND SHOULD BE PLACED IN THE FILE *XPLGO ALSO FOLLOWED BY A "$CONTINUE WITH *XMON" LINE. 00318/7 XPL COMPILER SX G S0296 S296 'JOH XPL' POSN=XCOM@S 18 D3T2 243 XPL.COMPILER.SX.7 1 SEQ 80 98 PAGE UM HENRIKSEN JULY 31, 1973 23:02.26 0 XPL SOURCE FOR THE XPL COMPILER (*XCOM). THIS VERSION IS MODIFIED FROM AN EARLY STANFORD RELEASE; IT IS NOT THE SHARE RELEASE. IT IS USED QUITE HEAVILY AT UM AND IS RELATIVELY BUG-FREE. THE COMPILER SOURCE IS KEPT IN A PUBLIC FILE (*XCOM) SO THAT PARTS OF IT ARE AVAILABLE FOR EXTRACTION BY STUDENTS IN COMPILER WRITING COURSES. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00318/8 XPL COMPILER O G S0296 S296 'JOH XPL' POSN=XCOM@O 20 D3T2 244 XPL.COMPILER.O.8 1 SEQ 240 29 PAGE UM HENRIKSEN JULY 31, 1973 23:02.40 0 XPL FORMAT OBJECT FILE FOR THE XPL COMPILER (*XPLCOMPILER). 00318/9 XPL *XPLIBRARY SX G S0296 S296 'JOH XPL' POSN=XLIB 14 D3T2 245 XPL.*XPLIBRARY.SX.9 1 SEQ 80 3 PAGE UM HENRIKSEN JULY 31, 1973 23:02.54 0 SOURCE LIBRARY USED BY ALL XPL COMPILATIONS. MUST BE IN *XPLIBRARY TO RUN XPL. 00318/10 XPL *SKELETON SX G S0296 S296 'JOH XPL' POSN=SKTN@S 10 D3T2 246 XPL.*SKELETON.SX.10 1 SEQ 80 18 PAGE UM HENRIKSEN JULY 31, 1973 23:02.59 0 THIS IS THE MINIMAL FRAMEWORK FOR A TABLE-DRIVEN COMPILER. USER IS EXPECTED TO REPLACE THE SYNTAX TABLES WITH APPROPRIATE TABLES PRODUCED BY *ANALYZER AND COMPLETE THE COMPILER BY WRITING THE CODE SYNTHESIZER SECTION. 00318/11 XPL *ANALYZER SX G S0296 S296 'JOH XPL' POSN=ANAL@S 7 D3T2 247 XPL.*ANALYZER.SX.11 1 SEQ 80 33 PAGE UM HENRIKSEN JULY 31, 1973 23:03.08 0 XPL PROGRAM TO ANALYZE A BNF DESCRIPTION OF A LANGUAGE AND PRODUCE TABLES FOR COMPILING IT. 00318/12 XPL *ANALYZER O G S0296 S296 'JOH XPL' POSN=ANAL@O 9 D3T2 248 XPL.*ANALYZER.O.12 1 SEQ 240 24 PAGE UM HENRIKSEN JULY 31, 1973 23:03.14 0 XPL FORMAT OBJECT FILE. 0 Referenced by comments of: 495/5 00318/13 XPL XPLBNF D G S0296 S296 'JOH XPL' POSN=XPLBNF 13 D3T2 249 XPL.XPLBNF.D.13 1 SEQ 80 3 PAGE UM HENRIKSEN JULY 31, 1973 23:03.18 0 BNF DESCRIPTION OF XPL SUITABLE FOR INPUT TO *ANALYZER. 00318/14 XPL USER'S GUIDE WF S0721 'D3T2' FSNAME=XPL.USER'S_GUIDE.WF.14 250 D3T2 250 XPL.USER'S_GUIDE.WF.14 1 LINE 109 4 PAGE UM HENRIKSEN JULY 27, 1973 21:35.19 0 THIS IS COMPUTING CENTER MEMO M230 -- "XPL USER'S GUIDE" 00319 *FLIKPLT OC *FLIKPLT D3T2 251 FLIKPLT..OC. 1 LINE 80 15 PAGE UM ? JULY 31, 1973 23:03.29 0 PROGRAM TO PRODUCE CALCOMP OR PRINTER PLOT HARD COPY OF SC4020 FRAMES AS GENERATED BY *PIB (321). THE SOURCE IS NOT AVAILABLE. THIS FILE HAS 2 "$CONTINUE WITH *LIBRARY" RECORDS AND 1 "$CONTINUE WITH *PLOTSYS" RECORDS. 00320 *CREVOC # (SEE COMP 084/12 AND 084/13) UM 00321 *PIB OC *PIB D3T2 252 PIB..OC. 1 LINE 80 122 PAGE UM ? JULY 31, 1973 23:03.31 0 THE POLYTECHNIC INSTITUTE OF BROOKLYN POLYGRAPHICS SUBROUTINES TO GENERATE SC4020 PLOTTING COMMANDS FOR THE 1 FRI AUG 02/96 18:37:32 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 PRODUCTION OF MOVIES, SLIDES, AND HARD COPY. THE SOURCE IS NOT AVAILABLE. 0 Referenced by comments of: 319/1 00322/1 *2260RTN SA G D226 MTA:2260.S D3T2 253 2260RTN..SA.1 1 LINE 80 54 PAGE UM MTA JULY 31, 1973 23:03.55 0 MTS DEVICE SUPPORT ROUTINES FOR IBM 2260 DISPLAY. FROM UBC. 00322/2 *2260RTN OC G *2260RTN D3T2 254 2260RTN..OC.2 1 LINE 80 4 PAGE UM MTA JULY 31, 1973 23:04.03 00323 *VLIST # (SEE COMP 084/14 AND 084/15) UM 00324/1 EDITOR SA G EDIT S0422 ARCHIV 'DWBARCHIVE' FSNAME=EDITOR.D3.SA D3T2 255 EDITOR..SA.1 1 LINE 80 97 PAGE UM DWB FEB. 02, 1973 21:38.36 0 THIS IS THE SOURCE FOR THE COMMAND LANGUAGE SUBSYSTEM (CLS) EDITOR. A SHARED COPY IS NORMALLY LOADED IN SEGMENT 2 AFTER IPL BY THE SEG 2 LOADER AND IS THEN EXECUTED BY THE $EDIT COMMAND. HOWEVER, IF THE SEG 2 LOADER HAS NOT BEEN RUN (I.E. THE SYMBOL 'EDITOR' IS NOT DEFINED IN LCSYMBOL), THEN MTS DYNAMICALLY LOADS A PRIVATE COPY OF THE EDITOR FROM THE FILE *CLSED INTO SEGMENT 4. NOTE: THIS PROGRAM COPIES "MTS:CLSPLAN" WHICH NO LONGER EXISTS. IF IT IS RE-ASSEMBLED, THE SOURCE SHOULD BE CHANGED TO COPY "COPY:CLSPLAN" (535/1) INSTEAD. 00324/2 EDITOR OC G SEG2:EDITOR D3T2 256 EDITOR..O.2 1 LINE 80 9 PAGE UM DWB JULY 31, 1973 23:08.18 0 THE SEG 2 LOADER LOADS THE CLS EDITOR INTO SEGMENT 2 FROM THIS FILE. THE SEG 2 LOADER FILE LIST (SEG2:S2FILES) COULD BE CHANGED TO LOAD THE EDITOR FROM *CLSED. 00324/3 EDITOR OC G *CLSED D3T2 257 EDITOR..O.3 1 LINE 80 9 PAGE UM DWB JULY 31, 1973 23:08.19 0 MTS WILL DYNAMICALLY LOAD A PRIVATE COPY (SEGMENT 4) OF THE CLS EDITOR IF THE LCS SYMBOL 'EDITOR' IS UNDEFINED WHEN A $EDIT COMMAND IS ISSUED. THE PRIVATE COPY IS LOADED FROM THIS FILE. THIS FILE IS (OR SHOULD BE) EXACTLY THE SAME AS 324/2. 00324/4 EDITOR MESSAGES M *EDEXPLAIN D3T2 258 EDITOR.MESSAGES.M.4 1 LINE 70 8 PAGE UM DWB JULY 31, 1973 23:08.21 0 EDITOR EXPLANATION FILE, REFERENCED BY THE EDITOR "EXPLAIN" COMMAND. 00324/5 EDITOR *ED SA G EDCL DWB:EDCALLER.S D3T2 259 EDITOR.*ED.SA.5 1 LINE 80 3 PAGE UM DWB JULY 31, 1973 23:08.24 0 THIS IS A PROGRAM TO INTERFACE TO THE CLS EDITOR FROM THE $RUN LEVEL. IT REFERENCES ALL MANNER OF LOW-CORE STUFF IN PROVIDING A FAKE CLS T/V FOR THE EDITOR. THEREFORE, THE OBJECT (IN *ED) CONTAINS A RIP CARD AND EXTRA LCS CARD FOR THE 'SYSDEFS' LOW-CORE SYMBOL TABLE. NOTE: THIS PROGRAM COPIES "MTS:STANDARDTV" WHICH NO LONGER EXISTS. IF IT IS RE-ASSEMBLED, THE SOURCE SHOULD BE CHANGED TO COPY "COPY:STANDARDTV" (535/3) INSTEAD. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00324/6 EDITOR *ED OC G *ED D3T2 260 EDITOR.*ED.OC.6 1 SEQ 80 2 PAGE UM DWB JULY 31, 1973 23:08.26 00325 *ANALYZER # (SEE COMP 318/11 AND 318/12) UM 00326/1 STAT MONTHLY SUMMARY MAIN PGM SP W041:STATP16.S D3T2 261 STAT_MONTHLY_SUMMARY.MAIN.SP.1 1 LINE 99 17 PAGE UM DWB JULY 31, 1973 23:08.28 0 READS STATISTICS (*STATISTICS) TAPES WHICH HAVE BEEN COMBINED BY *CMB (256) AND PRINTS MANY PAGES OF INTERESTING (HOPEFULLY) INFORMATION ABOUT A MONTHS RUNNING OF THE SYSTEM. IT ALSO READS STATISTICS FROM THE JOBS PROGRAM (413/12) AND PRINTS THAT INFORMATION. THE FOLLOWING PL/I FILE NAMES ARE USED: STAT INPUT TAPE(S). IF NOT LABELED, SET @U(8192). SPRINT OUTPUT. SET @U(133). ERROR LOG OF SKIPPED INPUT RECORDS. SYSTAT INPUT FROM JOBS PROGRAM. TAPE MUST BE FB(32400,108). SAVE SAVE OR RESTORE INTERMEDIATE INFORMATION (SEE BELOW). SCARDS USES GET LIST FOR 6 OR 7 ITEMS, FOLLOWED BY GET DATA FOR 2 VARIABLES: 1) 'MM' MONTH TO ANALYZE, OR '00' LOOK AT ALL INPUT (REQUIRES 'FULL', Â'CPU', AND Â'MIXED') 2) 'YYYY' YEAR 3) 'PART' USE DATA FROM WHATEVER PART OF MONTH IS PRESENT, OR 'FULL' EXPECT DATA FROM ENTIRE MONTH, OR '9TO5' FILTERS ALL DATA EXCEPT 9AM TO 5PM, OR '5TOM' FILTERS ALL DATA EXCEPT 5PM TO MIDNIGHT, OR 'COUR' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS BEGINNING WITH "1", "2", OR "3", OR 'UGRD' FILTERS ALL DATA EXCEPT FOR PROJECT NUMBERS 1AWA, 1BF4, 1AAA, 1AGA, 1APA, 1AVA, 1CXA, OR 1HGA. 4) 'REST' RESTORE DATA (CHECKPOINT) FROM SAVE, OR 'SAVE' SAVE (CHECKPOINT) DATA ON SAVE, OR 'USER' SAVE NUM OF USERS VERSUS TIME DATA ONLY ON SAVE, OR 'CPU.' SKIP EVERYTHING EXCEPT JOBS PROGRAM STATISTICS, OR 'NONE' NONE OF ABOVE 5) 'CPU' PROCESS JOBS STATISTICS DATA (SEE COMP 413/10), OR 'YES' SAME AS 'CPU', OR 'NOT' OMIT PROCESSING OF JOBS STATISTICS 6) 'WHOLE' NO RATE CHANGE DURING PERIOD OF COMPUTATION, OR 'MIXED' RATE CHANGE OCCURRED 7) 'DD' FIRST DAY (OF MONTH) FOR NEW RATES. GIVE ONLY IF 'MIXED' GIVEN. 8) TESTCOUNT=N NUMBER OF INPUT RECORDS TO ECHO ON SPRINT (DEBUG) 9) DEBUG='1'B PRODUCES GENERAL DEBUG OUTPUT. PRINTS FOR ONLY N RECORDS IF TESTCOUNT GIVEN. AT UM, THE NORMAL INPUT LINE USED IS: 1 FRI AUG 02/96 18:37:32 Page 96 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE'; 0 Referenced by comments of: 413/10 00326/2 STAT MONTHLY SUMMARY PPAGES SUBR SP W041:STATP16.S(2000,2999) D3T2 262 STAT_MONTHLY_SUMMARY.PPAGE.SP.2 1 LINE 82 4 PAGE UM DWB JULY 31, 1973 23:08.31 0 SUBROUTINES CALLED BY MAIN PROGRAM. 00326/3 STAT MONTHLY SUMMARY CPUSE SUBR SP W041:STATP16.S(3000) D3T2 263 STAT_MONTHLY_SUMMARY.CPUSE.SP.3 1 LINE 91 4 PAGE UM DWB JULY 31, 1973 23:08.34 0 SUBROUTINE WHICH READS JOBS STATISTICS DATA (SEE COMP 413/10) AND PRINTS THE RESULTS. CALLED ONLY IF 'CPU' IS SPECIFIED FOR THE FIFTH PARAMETER. 00326/4 STAT MONTHLY SUMMARY OBJECT OC W041:STATP16.O D3T2 264 STAT_MONTHLY_SUMMARY.OBJEC.OC.4 1 LINE 80 56 PAGE UM DWB JULY 31, 1973 23:08.36 00327 XPLBNF D # (SEE COMP 318) UM 00328/1 ALLLINES SA # (OBSOLETE) D2T1 264 UM 00328/2 ALLLINES O # (OBSOLETE) D2T1 265 UM 00329 *SKELETON # (SEE COMP 318) UM 00330/1 ABKGET SP O W041:ABKGET.S4 D3T2 265 ABKGET..SP.1 1 LINE 80 3 PAGE UM DWB JULY 31, 1973 23:08.45 0 PROGRAM TO SORT AND TABULATE TERMINAL ANSWERBACK STATISTICS FROM *STATISTICS DATA. 00330/2 ABKGET OC O W041:ABKGET.O4 D3T2 266 ABKGET..OC.2 1 LINE 80 5 PAGE UM DWB JULY 31, 1973 23:08.47 00331 INITLOG # (SEE COMP 097) UM 00332 UPGEN S # (OBSOLETE) UM 00333 5LINE S # (OBSOLETE) UM 00334/1 *SNOBOL4B S4 SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 1 D3T2 267 SNOBOL4B.S4.SA.1 1 SEQ 80 107 PAGE UM DE JONG JULY 31, 1973 23:13.39 0 BELL LABS SOURCE FOR VERSION 3.6 SNOBOL 4 WITH BLOCKS (BLOCKS VERSION 1.6). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00334/2 *SNOBOL4B SUBR SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 6 D3T2 268 SNOBOL4B.SUBR.SA.2 1 SEQ 80 49 PAGE UM DE JONG JULY 31, 1973 23:14.01 0 BELL LABS SOURCE FOR SUBROUTINES. 00334/3 *SNOBOL4B BASIC MACROS SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 4 D3T2 269 SNOBOL4B.BASIC_MACROS.SA.3 1 SEQ 80 41 PAGE UM DE JONG JULY 31, 1973 23:14.15 0 BELL LABS SOURCE FOR BASIC MACROS. 00334/4 *SNOBOL4B NEW MACROS SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 3 D3T2 270 SNOBOL4B.NEW_MACROS.SA.4 1 SEQ 80 5 PAGE UM DE JONG JULY 31, 1973 23:14.21 0 BELL LABS SOURCE FOR NEW MACROS. 00334/5 *SNOBOL4B CLEANIO SA G S0322 'S4B - SEQ ID SOURCE' FMT=FB(3200,80) 5 D3T2 271 SNOBOL4B.CLEANIO.SA.5 1 SEQ 80 8 PAGE UM DE JONG JULY 31, 1973 23:14.24 0 BELL LABS SOURCE FOR CLEANIO. 00334/6 *SNOBOL4B UPDATE UU 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/7 *SNOBOL4B OBJECT OE *SNOBOL4B D3T2 273 SNOBOL4B.OBJECT.O.7 1 SEQ 32767 37 PAGE UM DE JONG JULY 31, 1973 23:14.34 00334/8 *SNOBOL4B MACLEAN # (SEE COMP 182) UM DE JONG 00334/9 *SNOBOL4B WRITEUP WF # (SEE COMP 182) UM DE JONG 00335/1 *DITTO SA G DTTO W114:DITTO.S(5) D3T2 274 DITTO..SA.1 1 LINE 80 8 PAGE UM BLINN JULY 31, 1973 23:14.38 0 PROGRAM TO PRODUCE DITTO (OR OTHER DUPLICATING PROCESS) MASTERS ON A 2741 OR 1050. 00335/2 *DITTO OL G *DITTO D3T2 275 DITTO..OL.2 1 SEQ 1874 1 PAGE UM BLINN JULY 31, 1973 23:14.40 00335/3 *DITTO WRITEUP WF W114:DITTO.W D3T2 276 DITTO.WRITEUP.WF.3 1 LINE 105 2 PAGE UM BLINN JULY 31, 1973 23:14.42 00336/1 SPL SUBMONITOR SA S0518 'D2T2' FMT=FB(4000,80) 38 D3T2 277 SPL.SUBMONITOR.SA.1 1 SEQ 80 21 PAGE UM SALISBURY JULY 31, 1973 23:16.06 0 UNMODIFIED UBC PROGRAM TO INTERFACE SPL TO MTS (UNCHANGED SINCE DIST 2.0). PROGRAM LOADS SPL COMPILER FROM *SPLCOMPILER WHICH IS AN XPL OBJECT FILE. 0 Referenced by comments of: 318/3 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00336/2 SPL TRACE SA # (SEE COMP 318) UM SALISBURY 0 TRACE PROGRAM. 00336/3 SPL OBJECT OC *SPL D3T2 278 SPL.OBJECT.OC.3 1 LINE 80 6 PAGE UM SALISBURY JULY 31, 1973 23:16.08 0 OBJECT FOR INTERFACE (WITH PATCH FOR VM SIZE) AND TRACE. 00336/4 SPL COMPILER SX S0518 'D2T2' FMT=FB(4000,80) 37 D3T2 279 SPL.COMPILER.SX.4 1 SEQ 80 160 PAGE UM SALISBURY JULY 31, 1973 23:16.33 0 THE STUDENT PROGRAMMING LANGUAGE COMPILER FROM STANFORD BY WAY OF UNIV OF BRITISH COLUMBIA. THIS IS NOT THE SHARE DISTRIBUTION OF SPL, BUT RATHER AN EARLIER ONE BY SOME OTHER ROUTE. IT HAS HOWEVER BEEN WORKED ON BY UNIV OF MICH AND SOME OF THE MORE IMPORTANT BUGS IN THE EARLY VERSION WERE FIXED. THIS FILE CONTAINS THE CURRENT UM XPL SOURCE. UNCHANGED SINCE DIST 2. 00336/5 SPL COMPILER O *SPLCOMPILER D3T2 280 SPL.COMPILER.O.5 1 SEQ 240 49 PAGE UM SALISBURY JULY 31, 1973 23:16.49 0 XPL FORMAT OBJECT FILE FOR SPL COMPILER. 00337/1 PRINT TRACE SA G PTTR MTA:PRINTTRACE(1,999) D3.1T1 240 PRINT_TRACE..SA.1 1 LINE 80 6 PAGE UM MTA MAR. 06, 1974 03:52.02 0 SUBROUTINE TO PRINT TRACE TABLE ENTRIES FROM DUMP TAPE OR STAT JOB TAPE. TO GET TRACE TABLE ON STAT JOB TAPE TYPE "TRCTP" ON OPERATORS CONSOLE. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 400/1, 400/2 00337/2 PRINT TRACE OC G MTA:PRINTTRACE(1000,1999) D3.1T1 241 PRINT_TRACE..OC.2 1 LINE 80 3 PAGE UM MTA MAR. 06, 1974 03:52.04 00338/1 RIPPLE PN/QN SA O RPLE MTA:RIPPLE(1,999) D3T2 283 RIPPLE.PN/QN.SA.1 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 23:16.59 0 PROGRAM TO RIPPLE PRINT ON A PN OR QN PRINTER. USEFUL FOR CLEANING A TRAIN OR CHECKING OUT A PRINTER. OLTS (458) DOES A BETTER JOB. 00338/2 RIPPLE PN/QN OC O MTA:RIPPLE(1000) D3T2 284 RIPPLE.PN/QN.OC.2 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 23:17.00 00338/3 RIPPLE *RIP C *RIP D3T2 285 RIPPLE.*RIP.C.3 1 LINE 36 1 PAGE UM MTA JULY 31, 1973 23:17.03 0 COMMAND FILE TO RUN MTA:RIPPLE(1000). INVOKED BY ENTERING "MTS *RIP , PTRX" ON THE OPERATOR'S CONSOLE, WHERE PTRX IS THE PRINTER TO BE RIPPLED. 0 Referenced by comments of: 338/6 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00338/4 RIPPLE TN SA O TNRP MTA:TNRIP(1,999) D3T2 286 RIPPLE.TN.SA.4 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 23:17.05 0 SAME AS 338/1 EXCEPT FOR TN PRINTERS. 00338/5 RIPPLE TN OC O MTA:TNRIP(1000) D3T2 287 RIPPLE.TN.OC.5 1 LINE 80 1 PAGE UM MTA JULY 31, 1973 23:17.07 00338/6 RIPPLE *TNR C *TNR D3T2 288 RIPPLE.*TNR.C.6 1 LINE 18 1 PAGE UM MTA JULY 31, 1973 23:17.09 0 SAME AS *RIP (338/3) EXCEPT THAT IT RUNS MTA:TNRIP(1000). 00339 WRITE80 S # (OBSOLETE) D2T1 165 UM 00340/1 READRESTP SA O RDRS MTA:READRESTP(1,94) D3T2 289 READRESTP..SA.1 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 23:17.11 0 PROGRAM WHICH WILL READ A 2311 OR 2314 DUMP/RESTORE TAPE AND EXTRACT THINGS FROM AN OS PDS. IT PRODUCES OUTPUT THAT CAN BE USED AS INPUT TO *UNLINKER (562). IT SHOULD BE RUN WITH SDS AS IT READS NO PARAMETERS BUT EXPECTS THEM TO BE MODIFIED IN CORE. IT WILL READ EITHER A LOAD MODULE OR A CARD IMAGE MEMBER. 00340/2 READRESTP SUBROUTINE SA O SUBR MTA:READRESTP(95) D3T2 290 READRESTP.SUBROUTINE.SA.2 1 LINE 80 5 PAGE UM MTA JULY 31, 1973 23:17.13 0 SUBROUTINE CALLED BY 340/1. 00340/3 READRESTP O # (NOT DISTRIBUTED) UM MTA 00341/1 RDRSTP UNLINK SA # (OBSOLETED BY *UNLINKER) D2T1 168 UM 00341/2 RDRSTP BLKRTN SA # (OBSOLETED BY *UNLINKER) D2T1 169 UM 00342 LIBPRINT S # (OBSOLETE) D2T1 171 UM 00343 MTS.CONTAB SA G MTS:CONTAB/D3.1 D3.1T1 242 MTS.CONTAB..SA. 1 LINE 80 4 PAGE UM DWB MAR. 06, 1974 03:52.06 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 00344 MTS.MACROS SM G MMAC MTS:MACROS/D3.1 D3.1T1 243 MTS.MACROS..SM. 1 LINE 80 7 PAGE UM DWB MAR. 06, 1974 03:52.08 0 THIS IS "COPY:MTS.MACROS" WHICH IS USED TO ASSEMBLE MTS (042) AND THE "MTS SUBROUTINES": KWIC (040), 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 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). 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.1T1 244 MTS.EQU..SA. 1 LINE 80 4 PAGE UM DWB MAR. 06, 1974 03:52.10 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 00346 MTS.DSECT SA G MTS:DSECT/D3.1 D3.1T1 245 MTS.DSECT..SA. 1 LINE 80 21 PAGE UM DWB MAR. 06, 1974 03:52.12 0 THIS IS "COPY:MTS.DSECT" WHICH IS A COPY SECTION FOR THE MAIN MTS DSECTS. CONTAINS THE FOLLOWING CONTINUE WITH'S: $CONTINUE WITH COPY:FCBDSECT RETURN (622) $CONTINUE WITH COPY:FDUBDSECT RETURN (623) $CONTINUE WITH COPY:WOPTRDSECT RETURN (624) $CONTINUE WITH COPY:STATDSECT RETURN (620) $CONTINUE WITH COPY:UBCDSECTS RETURN (645) AND $CONTINUE WITH COPY:CLSAREA RETURN (641) NOTE: THE ACCOUNTING DSECT HAS BEEN CHANGED SINCE D3 TO INCLUDE A NEW RATE FIELD FOR THE MERIT COMPUTER NETWORK CONNECT-TIME CHARGE. A NEW VARIABLE FIELD IS ALSO GENERATED ON STATISTICS RECORDS FOR THE MERIT TIME. 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 00347 MTS.EQU2 SA G COPY:MTS.EQU2 D3.1T1 246 MTS.EQU2..SA. 1 LINE 80 4 PAGE UM DWB MAR. 06, 1974 03:52.15 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.1T1 247 MTS.RHTABLE..SA. 1 LINE 80 3 PAGE UM DWB MAR. 06, 1974 03:52.17 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00351 DCVD SUBROUTINE # (SEE COMP 084) UM 00352 DCVC SUBROUTINE # (SEE COMP 084) UM 00353/1 BABYSIT SA O BBST WSG:BBSIT(1,999) D3T2 297 BABYSIT..SA.1 1 LINE 80 4 PAGE UM WSG JULY 31, 1973 23:17.28 0 PROGRAM TO WATCH FOR SPECIFIED USERS TO SIGNON OR SIGNOFF. USEFUL FOR CATCHING A PIRATE. COPIES COPY:LLMPSEQU (087). 00353/2 BABYSIT OC O WSG:BBSIT(1000) D3T2 298 BABYSIT..OC.2 1 LINE 80 1 PAGE UM WSG JULY 31, 1973 23:17.30 00353/3 BABYSIT *BBS C *BBS D3T2 299 BABYSIT.*BBS.C.3 1 LINE 67 1 PAGE UM WSG JULY 31, 1973 23:17.32 0 COMMAND FILE INVOKED BY ENTERING "MTS *BBS" FROM OPERATOR'S CONSOLE WHICH SIGNS ON UNDER USER ID "OPER" AND RUNS WSG:BBSIT(1000) WITH I/O ON THE OPERATOR'S CONSOLE. 00354/1 LLXU 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), AND COPY:MTS.TV (640). NEEDS MACROS IN COPY:MTS.MACROS (344). 0 Referenced by comments of: 344/1, 354/2 00354/2 LLXU D3.1 UPDATE UU G MTS:LLXUUPD D3.1T1 248 LLXU.D3.1_UPDATE.UU.2 1 LINE 70 3 PAGE UM DWB MAR. 06, 1974 03:52.18 0 UPDATE TO D3 MASTER (354/1) TO PRODUCE D3.1 SOURCE. UPDATE DECK USES %POSN *IN* LLXU. 00354/3 LLXU OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00354/4 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/5 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/6 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). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00355/1 STATSCN SA G STSC WSG:STATSCN(1,999) D3T2 304 STATSCN..SA.1 1 LINE 80 7 PAGE UM WSG JULY 31, 1973 23:19.20 0 PROGRAM TO READ THROUGH *STATISTICS DATA (FROM FILE OR TAPE) LOOKING FOR SPECIFIED USER ID-DATE COMBINATIONS. RECORDS FOR ANY OF THE SPECIFIED USERS ON THE SPECIFIED DATES ARE WRITTEN ON SPUNCH. FOR EXAMPLE: $RUN STATSCN(1000) SPUNCH=-F WSG. 05-08-73 STRT 04-XX-73 DONE *TAPE* *STATISTICS DONE WILL SCAN THROUGH THE TAPE *TAPE* AND THE FILE *STATISTICS LOOKING FOR ALL STATISTICS RECORDS FOR USER "WSG." ON 8 MAY 1973 AND USER "STRT" ON ANY DAY IN APRIL 1973 (NOTE THAT XX'S MAY BE USED IN ANY FIELD(S) OF THE DATE OR "XXXX" GIVEN TO ACCEPT ANY USER ID). THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE). THE LISTSTAT PROGRAM (071) CAN BE USED TO PRINT THE STATISTICS RECORDS. FOR EXAMPLE: $RUN LISTSTAT(1000) SCARDS=-F COPIES COPY:LLMPSEQU (087) AND COPY:STATDSECT (620). 00355/2 STATSCN OC G WSG:STATSCN(1000) D3T2 305 STATSCN..OC.2 1 LINE 80 2 PAGE UM WSG JULY 31, 1973 23:19.25 00357/1 RCALL SA G RCAL S0517 'D2T1' FMT=FB(4000,80) 415 D3T2 306 RCALL..SA.1 1 SEQ 80 2 PAGE UM ENGLE JULY 31, 1973 23:20.43 0 SUBR TO ALLOW FORTRAN PROGRAMS TO CALL SUBROUTINES WITH R TYPE CALLING SEQUENCES, E.G. GETFD. UNCHANGED FROM DIST 2.0. 00357/2 RCALL OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00358/1 *TAPECOPY SA G TPCP WSG:TAPECOPY(1,999) D3.1T1 251 TAPECOPY..SA.1 1 LINE 80 14 PAGE UM WSG MAR. 06, 1974 03:52.25 0 MULTIPLE FILE TAPE COPY PROGRAM. COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK. FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO COPY THE EXPIRATION DATE FOR LABELED TAPES. 00358/2 *TAPECOPY OC G *TAPECOPY D3.1T1 252 TAPECOPY..OC.2 1 LINE 80 3 PAGE UM WSG MAR. 06, 1974 03:52.29 00359 SORT SUBROUTINE # (SEE COMP 303) UM 00360/1 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00360/2 TIME SUBROUTINE OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00361 BAIR S # (NOT DISTRIBUTED) D2T1 397 UM HARDING 0 SUBR TO USE BAIRSTOWS ITERATION METHOD TO REFINE THE COEFFICIENTS OF A QUADRATIC FACTOR OF AN N DEGREE POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00362 DAINT S # (NOT DISTRIBUTED) D2T1 398 UM HARDING 0 INTERPOLATION SUBR IN LONG PRECISION. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00363 GRAND S # (NOT DISTRIBUTED) D2T1 399 UM HARDING 0 SUBR TO GENERATE NORMALLY DISTRIBUTED RANDOM NUMBERS. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00364 JESS S # (NOT DISTRIBUTED) D2T1 400 UM HARDING 0 SUBR IMPLENTING THE JACOBI METHOD FOR THE EIGENVALUE PROBLEM. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00365 LINC S # (NOT DISTRIBUTED) D2T1 401 UM HARDING 0 SUBR TO COMPUTE THE LAGUERRE INCREMENT. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00366 QDIV S # (NOT DISTRIBUTED) D2T1 402 UM HARDING 0 SUBROUTINE TO DIVIDE A POLYNOMIAL BY A QUADRATIC FACTOR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00367 SAINT S # (NOT DISTRIBUTED) D2T1 403 UM HARDING 0 SHORT PRECISION INTERPOLATION. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00368 SINV S # (NOT DISTRIBUTED) D2T1 404 UM HARDING 0 SINGLE PRECISION MATRIX INVERSION SUBR. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00369 SINV1 S # (NOT DISTRIBUTED) D2T1 405 UM HARDING 0 SUBR TO INVERT A LOWER TRIANGULAR MATRIX IN SINGLE PRECISION. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00370 SLRD S # (NOT DISTRIBUTED) D2T1 406 UM HARDING 0 SUBR FOR SINGLE PRECISION DECOMPOSITION OF A SQUARE SYMMETRIC MATRIX. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00371 TSEP S # (NOT DISTRIBUTED) D2T1 407 UM HARDING 0 SUBR FOR TAYLOR SERIES EXPANSION OF A POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00372 URAND S # (NOT DISTRIBUTED) D2T1 408 UM HARDING 0 SUBR TO GENERATE UNIFORMALLY DISTRIBUTED RANDOM NUMBERS. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00373 ZLOOK S # (NOT DISTRIBUTED) D2T1 409 UM HARDING 0 SUBR TO SEARCH THE UPPER PLANE FOR A ROOT OF AN N DEGREE POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00374 ZPOLY S # (NOT DISTRIBUTED) D2T1 410 UM HARDING 0 SCRATCH STORAGE FOR ZPOLY2 (375) APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00375 ZPOLY2 S # (NOT DISTRIBUTED) D2T1 411 UM HARDING 0 SUBR TO FIND ALL ZEROS OF A POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 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/1 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/13), COPY:LLMPSEQU (087), COPY:WOPTRDSECT (624), COPY:FCBDSECT (622), AND COPY:FDUBDSECT (623). 0 Referenced by comments of: 243/1, 387/2 00387/2 HASP D3.1 UPDATE UU G MTS:HASPUPDATES D3.1T1 253 HASP.D3.1_UPDATE.UU.2 1 LINE 72 15 PAGE UM DWB MAR. 06, 1974 03:52.30 0 UPDATE DECK TO PRODUCE D3.1 SOURCE FROM D3 HASP MASTER SOURCE (387/1). FOR D3.1, HASP HAS BEEN CHANGED AS FOLLOWS: (1) SUPPORT HAS BEEN ADDED TO ALLOW ITEL 7330 DISKS TO BE USED. (2) HASP HAS BEEN CHANGED TO RUN IN SHARED VM (SEGMENT 1). THIS INVOLVES CHANGES IN THE BUFFER ALLOCATION, COMMAND PROCESSING INTERFACE WITH THE SUPERVISOR, AND THE INTERFACE TO MTS. (3) A GENERAL CLEANUP OF ALL OF HASP. (4) NEW $STIMER AND $TTIMER. THE MOVING OF HASP TO SHARED VM REQUIRES MANY SMALL CHANGES THROUGHOUT THE SYSTEM. THE FOLLOWING MODULES ARE AFFECTED: (1) MTS - HASP INTERFACE CHANGED. (2) SUPERVISOR - SEGMENT 2 MOVED TO SEGMENTS 1 AND 2, HASP COMMAND INTERFACE CHANGED, REMOVED $STIMER AND $TTIMER. (3) PISTLE - NEW NAME FOR SEGMENT 2 LOADER. REQUIRED TO LOAD HASP INTO SHARED VM AFTER IPL. (4) BSLOAD - CHANGED TO LEAVE LOADER SYMBOL TABLE AT THE BEGINNING OF SHARED VM SO THAT PISTLE CAN RESOLVE SEGMENT 0 REFERENCES TO SHARED VM SYMBOLS. BSLOAD CONTROL CARD CHANGED TO ALLOW ENOUGH ROOM FOR NEW SHARED VM MODULES (E.G. HASP). (5) JBRP - CHANGED TO TEST FOR ZERO ADDRESS IN JOB LIST ENTRY AND COMPLAIN IF FOUND. (6) EXIT - CHANGED TO NOT CALL HASP IF IT HASN'T BEEN LOADED. (7) JOB LIST - MAKE ABOUT 15 MORE JOBS RELOCATABLE. (8) CONFIG - CHANGED FOR SEGMENTS 1 AND 2 PAGED. (9) UNIT CHECK - ROUTINES MOVED TO SEGMENT 1. (10) TABLES - CHANGED NAMES OF BSC LINES TO SAXX INSTEAD OF SDAX. (11) STRT:HSP - CHANGED SDAX TO SAXX. (12) SYSDEFS - ADDED NAMES FOR IPL UMLOAD TABLES AND LSW. (13) SEGMENT2 - SEGMENT2 CARD IN SYSTEM OBJECT DECK NOW CALLED SEGMENT1 CARD. (14) IPL PGM - DISK WRITE PROGRAM CHANGED TO START AT DISK PAGE 7. (15) NCA - MANY NCA CARDS ADDED TO SYSTEM OBJECT DECK FOR HASP SYSBOLS. (16) LNGSEG2 - CHANGED TO INCLUDE BOTH SEGMENTS 1 AND 2. (17) ZAP - CHANGED FOR SEGMENT 1. (18) TASKS - CHANGED SO NUMBER OF VM PAGES DOESN'T OVERPRINT JOB NAME. 1 FRI AUG 02/96 18:37:32 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 (19) LOADMTS - CHANGED FOR SEGMENT 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 MAX2314 0 MAX7330 1 MAXXEQS 25 MAXJOBS 600 NUMBUF 100 TIMER YES NUMTPBUF 50 BSC2780 YES BSCCPU YES UM YES OMR YES NOSLT 0 THERE ARE TWO PROBLEMS IN HASP WHICH SHOULD BE FIXED, BUT HAVEN'T BEEN TO DATE: (1) IF HASP GETS A CSW STORED AT THE END OF AN I/O OPERATION WHICH THE SUPERVISOR CAN'T UNTRANSLATE, IT GETS A PGNT IN THE LINE MANAGER BECAUSE OF A BAD REGISTER "WA". THE FIX FOR THIS IS EASY. (2) THE REMOTE CONSOLE PROCESSOR CAN HANG UP THE CONSOLE SERVICE PROCESSOR IF IT PROCESSES A COMMAND FROM A REMOTE WHICH ISN'T SIGNED ON (WHICH CAN HAPPEN). 00387/3 HASP OC G SEG2:HASP D3.1T1 254 HASP..OC.3 1 LINE 80 39 PAGE UM DWB MAR. 06, 1974 03:52.38 0 THE HASP OBJECT IS LOADED BY PISTLE AFTER IPL. THIS FILE ALSO CONTAINS THE HASPLING OBJECT. 00387/4 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/5 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00387/6 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/7 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/8 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. THIS IS SIX BINARY CARDS THAT THE HASP MANUAL TELLS YOU TO HAND PUNCH. THE CARDS SHOULD BE COPIED TO *PUNCH*@BIN AND PLACED AT THE BEGINNING OF THE 1130 REMOTE PROGRAM DECK. NO SOURCE AVAILABLE. 00387/9 HASP LETRRIP SA G LETI MTA:LETRRIPI D3T2 323 HASP.LETRRIP.SA.15 1 LINE 80 2 PAGE UM MTA AUG. 02, 1973 02:31.42 0 PARTIAL SOURCE FOR AN MTS PROGRAM TO CONVERT 1130 OBJECT PROGRAMS ASSEMBLED BY *ASMG FROM ASMG OBJECT FORMAT TO 1130 BINARY OBJECT CARD FORMAT. READS FROM SCARDS, WRITES ON SPUNCH. 00387/10 HASP LETRRIP OC G MTA:LETRRIP D3T2 324 HASP.LETRRIP.OC.16 1 LINE 80 6 PAGE UM MTA AUG. 02, 1973 02:31.44 0 OBJECT IS IN 3 PARTS: (1) THE OS/360 OBJECT FOR LETRRIP FROM HASP WITH REP CARDS TO PATCH ALL OS SVC'S INTO INVALID OP-CODES (TO PRODUCE PROGRAM INTERRUPTS WHICH CAN BE FIELDED), (2) THE OBJECT FROM 387/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 RUNS STRT:START (614) TO CRANK UP HASP, I.E. IT ISSUES BUNCHES OF HASP COMMANDS ($START ET AL). THE PARTICULAR COMMANDS WILL HAVE TO BE MODIFIED FOR THE I/O GEAR IN USE AT EACH INSTALLATION. 0 Referenced by comments of: 387/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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 RUNS STRT:START (614) TO DRAIN ALL THE HASP REMOTE LINES, I.E. IT 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. 00388/1 HASPLING SA G HSPL MTS:HASPLING(1,999) D3.1T1 257 HASPLING..SA.1 1 LINE 80 16 PAGE UM MTA MAR. 06, 1974 03:52.47 0 NEW MASTER SOURCE FOR THE HASPLING. 00388/2 HASPLING OC G # (PART OF 387/3) UM MTA 00389/1 *GENLIB SA G GENL W062:GENLIB.S D3T2 332 GENLIB..SA.1 1 SEQ 80 32 PAGE UM TIFFANY AUG. 02, 1973 02:32.09 0 OBJECT LIBRARY GENERATOR PROGRAM. 00389/2 *GENLIB OE G *GENLIB D3T2 333 GENLIB..O.2 1 LINE 255 4 PAGE UM TIFFANY AUG. 02, 1973 02:32.15 00390/1 *QUE SA G HSPQ S0517 'D2T1' FMT=FB(4000,80) 178 D3T2 334 QUE..SA.1 1 SEQ 80 2 PAGE UM PIRKOLA AUG. 02, 1973 02:35.17 0 PROGRAM TO PRINT OUT HASP QUEUE. 00390/2 *QUE OC G *QUE(3,26) D3T2 335 QUE..OC.2 1 LINE 80 1 PAGE UM PIRKOLA AUG. 02, 1973 02:35.17 00391 FILE STATISTICS SP # (OBSOLETE) D2T1 123 UM 00392 *FSAVE SA # (OBSOLETED BY COMP 548) D2.2 116 UM 0 Referenced by comments of: 549/1 00393 TRIP S # (NOT DISTRIBUTED) D2T2 199 UBC HOGG 0 TRIANGLULAR REGRESSION PROGRAM FROM UBC. 1 FRI AUG 02/96 18:37:32 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 APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00394 UBC TAPE ROUTINES S # (OBSOLETE) D2T1 102 UBC 00395 UBC MOUNT S # (OBSOLETE) D2T1 256 UBC 00396 UBC DISMOUNT S # (OBSOLETE) UBC 00397 UBC LABEL FULL TAPE S # (OBSOLETE) D2T1 179 UBC 00398 UBC LABEL EMPTY TAPE S # (OBSOLETE) D2T1 181 UBC 00399/1 SYSTEM DUMP SA G DUMP MTA:DUMP D3.1T1 258 SYSTEM_DUMP..SA.1 1 LINE 80 13 PAGE UM MTA MAR. 06, 1974 03:52.57 0 THIS IS THE UMMPS SYSTEM DUMP PROGRAM. IT TAKES A DUMP OF ALL OF REAL MEMORY PLUS, OPTIONALLY, THE VM FOR A SPECIFIED JOB. IT WRITES THE DUMP UNFORMATED ONTO A 9-TRACK LABELED TAPE FOR WHICH THE VOLUME LABEL MUST BE 'DUMP'. THE PRINT DUMP PROGRAM (400) WILL PRINT SELECTED PARTS OF A DUMP TAPE. THIS PROGRAM HAS BEEN MODIFIED FROM THE ORIGINAL UBC VERSION. 0 Referenced by comments of: 400/1, 468/1 00399/2 SYSTEM DUMP OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 0 ***** NOTE: THIS OBJECT CONTAINS A REP CARD. 00400/1 PRINT DUMP SA G DMPL MTA:DMPLST(1,1999) D3.1T1 259 PRINT_DUMP..SA.1 1 LINE 80 24 PAGE UM MTA MAR. 06, 1974 03:52.59 0 PRINTS DUMP TAPES PRODUCED BY SYSTEM DUMP (399). IN MTS:PRINTDUMP ON RESTORE PACK. REQUIRES PRINTTRACE (337) AND IOH/360 (278) FOR THE "TRACE" COMMAND ONLY. THIS MAY NOT WORK WITHOUT THE "SWPR" RPQ. IF THIS IS THE CASE, REMOVING THE UNNECESSARY FLOATING POINT FIELD FROM THE FORMATS IN PRINTTRACE MAY CURE IT. COPIES COPY:LLMPSEQU (087) AND COPY:PCBDSECT (470). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 399/1 00400/2 PRINT DUMP OC G MTA:PRINTDUMP D3.1T1 260 PRINT_DUMP..OC.2 1 LINE 80 7 PAGE UM MTA MAR. 06, 1974 03:53.06 0 NOTE: THIS FILE ALSO CONTAINS THE OBJECT FOR PRINT TRACE (337). 00401 MVTAB S # (NOT DISTRIBUTED) D2T2 200 UBC HOGG 0 MULTI-VARIATE TABULATION PROGRAM FROM UBC. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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/1 *ASMTIDY SA S ASMT DWB:UD19.ATIDY.S D3T2 339 ASMTIDY..SA.1 1 LINE 80 15 PAGE UBC DWB AUG. 02, 1973 02:35.29 0 MODIFIED VERSION (TO FIX BUGS) OF UBC PROGRAM TO CLEAN UP AND ENTER ASSEMBLY PROGRAMS INTO FILES. REQUIRES THAT USER "$SET SEQFCHK=OFF" IF OUTPUT IS INTO A SEQUENTIAL FILE. 00410/2 *ASMTIDY OC S *ASMTIDY D3T2 340 ASMTIDY..O.2 1 SEQ 2385 4 PAGE UBC DWB AUG. 02, 1973 02:35.32 00410/3 *ASMTIDY WRITEUP WF S0630 UDST1S 'UBC -> UM #20' FSNAME=ASMTIDY..WF 15 D3T2 341 ASMTIDY.WRITEUP.WF.3 1 LINE 155 2 DISK UBC DWB OCT. 26, 1972 15:28:06 0 UBC WRITEUP FOR *ASMTIDY. 00411 STAT4 S # (NOT AVAILABLE) D2T1 157 UBC HOGG 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00413/1 SYSTEM STATUS SSRTN SA G SRTN WSG:SSRTN(1,2999) D3.1T1 261 SYSTEM_STATUS_.SSRTN.SA.1 1 LINE 80 51 PAGE UM WSG MAR. 06, 1974 03:53.07 0 SYSTEM STATUS ROUTINE (SSRTN) COMPUTES SYSTEM LOAD (CPU, PAGING, DISK, AND CHANNEL ACTIVITY). CALLED BY THE "JOBS" JOB (413/3) AND THE MTS $SYSTEMSTATUS CLS (413/5) TO COMPUTE AND FORMAT PRINTED OUTPUT. COPIES COPY:JOBSTA (413/13) AND COPY:LLMPSEQU (087). ASSEMBLE WITH *SYSMAC. HAS OPTION FOR USE OF THE SEARCH LIST (SLT) INSTRUCTION: &SLT SETB 0 NO SLT &SLT SETB 1 USE SLT FOR D3.1, THE FOLLOWING CHANGES HAVE BEEN MADE: (1) THE COMMAND PREFIX (/) IS NOW OPTIONAL ON ALL COMMANDS. THE /O(PERATOR) COMMAND WILL NOW TAKE A PARAMETER WHICH IS PASSED TO THE SUPERVISOR VIA SVC STRTJOB (FOR PRIVILEGED USERS). (2) THE /A(LTER), /M(ODIFY), AND /D(ISPLAY) COMMANDS WILL NOW TAKE AN ADDRESS WHICH BEGINS WITH "R" TO BE A REAL ADDRESS RATHER THAN VM. ALTERNATIVELY, /AR, /MR, AND /DR COMMANDS HAVE BEEN ADDED TO ALTER (MODIFY) AND DISPLAY REAL MEMORY. (3) THE /DE(VICE) COMMAND NOW ADDITIONALLY PRINTS THE ENTIRE DEVICE TABLE IN HEX. (4) THE /L(OAD) COMMAND WITH NO PARAMETER NOW PRINTS A "BPH" (BATCH PER HOUR) FIGURE. THIS IS A MEASURE OF THE APPROXIMATE BATCH THROUGHPUT OVER THE LAST FEW MINUTES. (5) THE BATCH SCHEDULING ALGORITHM HAS BEEN IMPROVED, AS HAS THE LSS CONTROL. TWO FLAGS (SAT AND LLF) ARE MAINTAINED BY THE SCHEDULING ALGORITHM. SAT INDICATES WHETHER THE SYSTEM IS CONSIDERED TO BE OVERLOADED. LLF INDICATES THAT THE SYSTEM IS NOT ONLY OVERLOADED, BUT THAT IN ADDITION, ONLY THE MINIMUM NUMBER OF BATCH JOBS (MIB) IS BEING RUN OR THAT THE BATCH THROUGHPUT (BPH) IS BELOW A MINIMUM THRESHOLD (MBH). IF LIMITED SERVICE STATE (LSS) IS BEING USED BY THE INSTALLATION (/MODIFY LSS 1), THEN MTS WILL ENFORCE LSS FOR SIGNING-ON USERS WHENEVER LLF IS ON. SAT, LLF, AND LSS MAY BE DISPLAYED OR ALTERED (0 OR 1) IF NECESSARY. (6) AN EXTERNAL ENTRY POINT (SSFMT) HAS BEEN ADDED 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. 0 Referenced by comments of: 413/3, 413/5, 413/7 00413/2 SYSTEM STATUS SSRTN OC G # RESIDENT SYSTEM (SEE COMP 468) UM WSG 00413/3 SYSTEM STATUS JOBS JOB SA G JOBS WSG:JOBS.JOB(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. 0 Referenced by comments of: 413/1, 413/7 00413/4 SYSTEM STATUS JOBS JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM WSG 0 COPIES COPY:JOBSTA (413/13). ASSEMBLE WITH *SYSMAC. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00413/5 SYSTEM STATUS SYS STAT CLS SA G SCLS WSG:SSTA.CLS(1,999) D3.1T1 263 SYSTEM_STATUS_.SYS_S.SA.5 1 LINE 80 9 PAGE UM WSG MAR. 06, 1974 03:53.27 0 $SYSTEMSTATUS CLS FOR INTERFACING WITH SSRTN (413/1) FROM MTS COMMAND LEVEL. COPIES COPY:LLMPSEQU (087) AND COPY:CLSVECTOR (535/2). ASSEMBLE WITH *SYSMAC. ****** NOTE: AT UM, ALTHOUGH THIS CLS IS AVAILABLE, IT HAS NOT BEEN PUBLICLY ANNOUNCED SINCE COMMAND EXTENSIONS AND CHANGES ARE CURRENTLY BEING PLANNED. IT IS WIDELY USED BY THE COMPUTING CENTER STAFF. 0 Referenced by comments of: 413/1, 413/7 00413/6 SYSTEM STATUS SYS STAT CLS OC G *CLSSSTA D3.1T1 264 SYSTEM_STATUS_.SYS_S.OC.6 1 LINE 80 1 PAGE UM WSG MAR. 06, 1974 03:53.34 0 AT UM, THIS FILE IS NORMALLY LOADED INTO SHARED VM AT IPL BY THE SEGMENT 2 LOADER. IF THIS IS NOT DONE MTS WILL DYNAMICALLY LOAD A PRIVATE COPY FOR EACH $SY COMMAND. 00413/7 SYSTEM STATUS 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/3) AND THE $SYSTEMSTATUS CLS (413/5). COPIES COPY:JOBSTA (413/13). 00413/8 SYSTEM STATUS SYS STA VECTOR OC G # RESIDENT SYSTEM (SEE COMP 468) UM WSG 0 THIS OBJECT DECK SHOULD BE KEPT IN SEGMENT 0 TO REDUCE THE OVERHEAD OF THE SVC WAYT. 00413/9 SYSTEM STATUS 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/10 SYSTEM STATUS 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/11) 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/11 SYSTEM STATUS 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/10). ASSEMBLE WITH DBS:MAC (455). 0 Referenced by comments of: 413/10 00413/12 SYSTEM STATUS 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00413/13 SYSTEM STATUS JOBSTA SA G JSTV COPY:JOBSTA D3.1T1 270 SYSTEM_STATUS_.JOBST.SA.13 1 LINE 80 3 PAGE UM WSG MAR. 06, 1974 03:58.30 0 THIS IS THE "COPY:JOBSTA" DSECT DESCRIBING THE SYSTEM STATUS VECTOR. 0 Referenced by comments of: 42/1, 387/1, 413/1, 413/4, 413/7 00414/1 *TAPEDUMP SA G TDMP WSG:TAPEDUMP(1,999) D3T2 348 TAPEDUMP..SA.1 1 LINE 80 16 PAGE UM WSG AUG. 02, 1973 02:49.49 0 PROGRAM TO DUMP 7- OR 9-TRACK TAPES OR FILES. MUCH BETTER THAN *FILEDUMP. 00414/2 *TAPEDUMP OC G *TAPEDUMP D3T2 349 TAPEDUMP..OC.2 1 LINE 80 3 PAGE UM WSG AUG. 02, 1973 02:49.53 00416 *EDEXPLAIN # (SEE COMP 324) 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/1 FORTRAN LIBRARY IBCOM# SA G IBCM W019:SOURCE.IBCOM D3T2 350 FORTRAN_LIBRARY.IBCOM#.SA.1 1 LINE 80 29 PAGE UM HARDING AUG. 02, 1973 02:49.57 0 MAIN COMMUNICATIONS MODULE OF FORTRAN LIBRARY. 00422/2 FORTRAN LIBRARY FIOCS# SA G FIOC W019:SOURCE.FIOCS D3T2 351 FORTRAN_LIBRARY.FIOCS#.SA.2 1 LINE 80 18 PAGE UM HARDING AUG. 02, 1973 02:50.02 0 MORE I/O LIBRARY FOR FORTRAN. 00422/3 FORTRAN LIBRARY ADCON# SA O ADCN S0517 'D2T1' FMT=FB(4000,80) 353 D3T2 352 FORTRAN_LIBRARY.ADCON#.SA.3 1 SEQ 80 29 PAGE UM HARDING AUG. 02, 1973 02:51.10 0 REST OF I/O LIBRARY. 00422/4 FORTRAN LIBRARY IHCNAMEL SA G NAML S0517 'D2T1' FMT=FB(4000,80) 354 D3T2 353 FORTRAN_LIBRARY.IHCNAMEL.SA.4 1 SEQ 80 17 PAGE UM HARDING AUG. 02, 1973 02:51.13 0 NAME LIST I/O 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00422/5 FORTRAN LIBRARY IHCDBUG SA G DBUG S0517 'D2T1' FMT=FB(4000,80) 355 D3T2 354 FORTRAN_LIBRARY.IHCDBUG.SA.5 1 SEQ 80 17 PAGE UM HARDING AUG. 02, 1973 02:51.16 0 DEBUG STATEMENTS CALL THIS. THIS MODULE IS SLIGHTLY CHANGED FROM OS RELEASE 9.5 TO FIX A FEW BUGS. 00422/6 FORTRAN LIBRARY IHCFDUMP SA G FDMP S0517 'D2T1' FMT=FB(4000,80) 356 D3T2 355 FORTRAN_LIBRARY.IHCFDUMP.SA.6 1 SEQ 80 6 PAGE UM HARDING AUG. 02, 1973 02:51.17 0 DUMP AND PDUMP. THIS MODULE IS OS RELEASE 9.5 00422/7 FORTRAN LIBRARY SETSTA SA G SSTA S0517 'D2T1' FMT=FB(4000,80) 357 D3T2 356 FORTRAN_LIBRARY.SETSTA.SA.7 1 SEQ 80 1 PAGE UM HARDING AUG. 02, 1973 02:51.19 0 SET STARE COUNT. ALLOWS REREADING INPUT LINES SEVERAL TIMES. 00422/8 FORTRAN LIBRARY SETGRE SA G SGRE S0517 'D2T1' FMT=FB(4000,80) 358 D3T2 357 FORTRAN_LIBRARY.SETGRE.SA.8 1 SEQ 80 1 PAGE UM HARDING AUG. 02, 1973 02:51.22 0 SET GREEN WORD FLAG. ALLOWS PROCESSING OLD TAPES WITH GREEN WORDS. 00422/9 FORTRAN LIBRARY SETDSR SA G SDSR S0517 'D2T1' FMT=FB(4000,80) 359 D3T2 358 FORTRAN_LIBRARY.SETDSR.SA.9 1 SEQ 80 1 PAGE UM HARDING AUG. 02, 1973 02:51.24 0 SET RECORD LENGTHS FOR A DATA SET REFERENCE NBR. 00422/10 FORTRAN LIBRARY SETDSN SA G SDSN S0517 'D2T1' FMT=FB(4000,80) 360 D3T2 359 FORTRAN_LIBRARY.SETDSN.SA.10 1 SEQ 80 2 PAGE UM HARDING AUG. 02, 1973 02:51.27 0 ATTACHES A FILE OR DEVICE TO A DATA SET REFERENCE NUMBER. FORTRAN INTERFACE TO GETFD. 00422/11 FORTRAN LIBRARY DIOCS# SA G DIOC S0517 'D2T1' FMT=FB(4000,80) 361 D3T2 360 FORTRAN_LIBRARY.DIOCS#.SA.11 1 SEQ 80 1 PAGE UM HARDING AUG. 02, 1973 02:51.29 0 DIRECT ACESS STATEMENTS. 00422/12 FORTRAN LIBRARY GETIHC/PUTIHC SA G IHC0 S0517 'D2T1' FMT=FB(4000,80) 362 D3T2 361 FORTRAN_LIBRARY.GETIHC/PUT.SA.12 1 SEQ 80 2 PAGE UM HARDING AUG. 02, 1973 02:51.32 0 ALLOWS FORTRAN PROGRAM TO INTERCEPT ERRORS. WITH NEW EFL, THESE ROUTINES NOW INTERCEPT ONLY I/O RELATED ERRORS. 00422/13 FORTRAN LIBRARY OBJECT OC # *LIBRARY (SEE COMP 524) UM HARDING 00422/14 FORTRAN LIBRARY USER'S GUIDE WF 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" 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 00435 *CCI # (OBSOLETE) UM 00436/1 GTDJMSR SA DWB:GRJTM(1,124) D3T2 364 GTDJMSR..SA.1 1 LINE 77 3 PAGE UM DWB AUG. 02, 1973 02:53.55 0 SUBROUTINE TO CONVERT GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900. SIMILAR TO GRGJULTM (518), BUT TAKES DIFFERENT ARGUMENTS. 00436/2 GTDJMSR OC # *LIBRARY (SEE COMP 524) D2T1 432 UM DWB 00436/3 GTDJMSR GTDJMS SA DWB:GTDJMS(1,999) D3T2 365 GTDJMSR.GTDJMS.SA.3 1 LINE 77 1 PAGE UM DWB AUG. 02, 1973 02:53.57 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO GTDJMSR. CONVERTS GREGORIAN TIME AND DATE TO JULIAN MICRO-SECONDS SINCE MARCH 1, 1900. 00436/4 GTDJMSR GTDJMS OC # *LIBRARY (SEE COMP 524) UM DWB 00437/1 JMSGTDR/JTUGTDR SA DWB:GRJTM(125,264) D3T2 366 JMSGTDR/JTUGTDR..SA.1 1 LINE 77 4 PAGE UM DWB AUG. 02, 1973 02:53.59 0 SUBROUTINE TO CONVERT JULIAN MICRO-SECONDS TO GREGORIAN TIME AND DATE. SIMILAR TO JULGRGTM (522), BUT TAKES DIFFERENT ARGUMENTS. HAS ALTERNATE ENTRY POINT (JTUGTDR) WHICH CONVERTS JULIAN TIMER-UNITS TO GREGORIAN TIME AND DATE. 0 Referenced by comments of: 531/10 00437/2 JMSGTDR/JTUGTDR OC # *LIBRARY (SEE COMP 524) D2T1 434 UM DWB 0 NOTE: *ANALYSIS CALLS A SUBROUTINE (JULGRGTM/JULGRGTU) WHICH IS ESSENTIALLY THE SAME AS THIS, BUT WITH DIFFERENT NAMES. THE OBJECT FOR THAT SUBROUTINE IS PART OF *ANALYSIS. *ANALYSIS COULD (SHOULD) BE CHANGED TO USE THIS SUBR OUT OF *LIBRARY. 00437/3 JMSGTDR/JTUGTDR JMSGTD SA DWB:JMSGTD(1,999) D3T2 367 JMSGTDR/JTUGTDR.JMSGTD.SA.3 1 LINE 77 1 PAGE UM DWB AUG. 02, 1973 02:54.01 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JMSGTDR. 00437/4 JMSGTDR/JTUGTDR JMSGTD OC # *LIBRARY (SEE COMP 524) UM DWB 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00437/5 JMSGTDR/JTUGTDR JTUGTD SA DWB:JTUGTD(1,999) D3T2 368 JMSGTDR/JTUGTDR.JTUGTD.SA.5 1 LINE 77 1 PAGE UM DWB AUG. 02, 1973 02:54.03 0 SUBROUTINE WITH S-TYPE CALLING SEQUENCE TO INTERFACE TO JTUGTDR. 00437/6 JMSGTDR/JTUGTDR JTUGTD OC # *LIBRARY (SEE COMP 524) UM DWB 00439 UCATDES # (SEE COMP 502) UM 00440 CATEQU # (SEE COMP 482) UM 00441/1 *FILEUSE SA G FUSE W045:NEWFILEUSE D3T2 369 FILEUSE..SA.1 1 LINE 80 5 PAGE UM PIRKOLA AUG. 02, 1973 02:54.05 0 PROGRAM TO PRINT USE COUNTS, LAST REFERENCED DATE, AND CREATION DATE FOR FILES. CALLS GFINFO SUBROUTINE. COPIES COPY:LLMPSEQU (087) AND *GFINFODSECT (593). 00441/2 *FILEUSE OE G *FILEUSE D3T2 370 FILEUSE..O.2 1 LINE 255 1 PAGE UM PIRKOLA AUG. 02, 1973 02:54.08 00442/1 CCATL SA O CCAT W045:PF.CCATL D3T2 371 CCATL..SA.1 1 LINE 80 23 PAGE UM PIRKOLA AUG. 02, 1973 02:54.10 0 PROGRAM TO CONSTRUCT A CATALOG FROM SCRATCH IF THAT SHOULD EVER BECOME NECESSARY. COMMENTS IN LISTING EXPLAIN HOW TO DO THIS. THE SECTION TO RECATALOG FILES HAS NOT BEEN MODIFIED FOR THE PAGE FORMATTED FILE SYSTEM. THAT SECTION REQUIRES AIO AND ALST FROM THE ACCOUNTING ROUTINES (104) TO SCAN THE ACCOUNTING FILE. COPIES COPY:CATEQU (482/28), COPY:DSKDSCT (482/42) AND COPY:FCBEQU (482/27). 00442/2 CCATL OC O W045:PF.CCATL.O D3T2 372 CCATL..OC.2 1 LINE 80 3 PAGE UM PIRKOLA AUG. 02, 1973 02:54.13 00443 FORMAT-TEXT360 CONVERTER SS O FOT3 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/1 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/2 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/3 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00446 TEXT/360 SUBRS # (SEE COMP 138) UM 00447/1 TAPESTAT TAPESTAT SUBR SA G TPST WSG:TAPESTAT(1,999) D3.1T1 274 TAPESTAT.TAPESTAT_SUBR.SA.1 1 LINE 80 5 PAGE UM WSG MAR. 06, 1974 04:06.01 0 CALLED BY MOUNT (101/1) AFTER EACH SUCCESSFUL MOUNT TO COLLECT STATISTICS IN *TAPESTAT. IF *TAPESTAT DOES NOT EXIST OR ISN'T A SEQUENTIAL FILE, IT RETURNS QUIETLY. COPIES COPY:LLMPSEQU (087) AND COPY:CLSVECTOR (535/2). FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO ACCOMODATE THE LARGER MTS PDN TABLE SIZE. 0 Referenced by comments of: 101/1, 101/2 00447/2 TAPESTAT TAPESTAT SUBR OC G # (PART OF COMP 101) UM WSG 0 OBJECT IS PART OF *CLSMOUNT. 00447/3 TAPESTAT SAVTS SA G SVTS WSG:SAVTS(1,999) D3T3 5 TAPESTAT.SAVTS.SA.3 1 LINE 80 8 PAGE UM WSG AUG. 01, 1973 18:14.38 0 PROGRAM TO SAVE *TAPESTAT MOUNT STATISTICS ON TAPE (RUN MONTHLY AT UM WHERE *TAPESTAT IS ABOUT 120 PAGES). IT COPIES ALL PREVIOUSLY UNSAVED RECORDS TO A SAVE TAPE (VOLUME=STAT), EMPTIES *TAPESTAT, AND RESTORES THE LAST REFERENCE(S) (WITH AND WITHOUT RING=IN) FOR EACH RACK NUMBER. AT UM, THIS RESTORES ABOUT 40 PAGES WORTH OF MOUNT STATISTICS. THIS IS DONE SO THAT AN ONLINE FILE CONTAINING THE LAST REFERENCE (AND LAST POTENTIAL CHANGE) FOR EACH TAPE IS AVAILABLE FOR THE TSSCN PROGRAM (447/5). THE LABELED SAVE TAPE PRODUCED IS BLOCKED VB(16379,255). WE USE *CMB (256) TO COMBINE EACH MONTH'S TAPE ONTO A LARGER TAPE SINCE THE TAPESTAT RECORD FORMAT IS COMPATIBLE WITH THE *STATISTICS RECORD FORMAT. COPIES COPY:LLMPSEQU (087) 0 Referenced by comments of: 256/2, 447/7 00447/4 TAPESTAT SAVTS OC G WSG:SAVTS(1000) D3T3 6 TAPESTAT.SAVTS.OC.4 1 LINE 80 8 PAGE UM WSG AUG. 01, 1973 18:14.44 00447/5 TAPESTAT TSSCN SA G TSSN WSG:TSSCN(1,999) D3T3 7 TAPESTAT.TSSCN.SA.5 1 LINE 80 9 PAGE UM WSG AUG. 01, 1973 18:14.52 0 PROGRAM TO SCAN *TAPESTAT RECORDS (FROM FILE OR TAPE) LOOKING FOR SPECIFIED RACK NUMBER-DATE COMBINATIONS. IT CALLS SORT AND THEN PRINTS THE RECORDS ON SPRINT. FOR EXAMPLE: $RUN TSSCN(1000) S0622 03-25-73 S0500 01-XX-73 DONE *TAPESTAT *T* DONE WILL SCAN *TAPESTAT AND TAPE *T* FOR ALL MOUNTS OF TAPE S0622 ON 25 MARCH 1973 AND S0500 ON ANY DAY IN JANUARY 1973. NOTE: "XX" MAY BE USED IN ANY DATE FIELD(S) AND "XXXXXX" MAY BE USED TO DENOTE THAT ALL MOUNTS ON THE SPECIFIED DATE ARE TO BE PRINTED (XXXXXX XX-XX-XX MEANS EVERYTHING). THE PROGRAM PROMPTS FOR INPUT (NOT SHOWN HERE). 1 FRI AUG 02/96 18:37:32 Page 118 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COPIES COPY:LLMPSEQU (087). 0 Referenced by comments of: 447/3 00447/6 TAPESTAT TSSCN OC G WSG:TSSCN(1000) D3T3 8 TAPESTAT.TSSCN.OC.6 1 LINE 80 3 PAGE UM WSG AUG. 01, 1973 18:15.02 00447/7 TAPESTAT TSDEL SA G TSDL WSG:TSDEL(1,999) D3T3 9 TAPESTAT.TSDEL.SA.7 1 LINE 80 5 PAGE UM WSG AUG. 01, 1973 18:15.05 0 PROGRAM USED TO DELETE UNWANTED RECORDS FROM THE MOUNT STATISTICS FILE (*TAPESTAT). ASKS FOR RACK NUMBERS TO BE DELETED WHICH MUST BE ENTERED ONE PER LINE. AFTER "DONE" IS ENTERED, IT MAKES ONE PASS THROUGH *TAPESTAT (WITH IT LOCKED FOR MODIFICATION) AND REPLACES ANY RECORD WHICH HAS ONE OF THE SPECIFIED RACK NUMBERS WITH AN ALL-ZERO RECORD (IT CAN'T ACTUALLY DELETE RECORDS SINCE *TAPESTAT IS A SEQUENTIAL FILE). WHEN SAVTS (447/3) IS RUN, IT WILL DELETE THE ALL-ZERO RECORDS. AT UM, THIS PROGRAM IS RUN PERIODICALLY TO CLEAN OUT OLD SERIES OF RACK NUMBERS TO KEEP *TAPESTAT AT A REASONABLE SIZE. COPIES COPY:LLMPSEQU (087). ASSEMBLE WITH *SYSMAC. 00447/8 TAPESTAT TSDEL OC G WSG:TSDEL(1000) D3T3 10 TAPESTAT.TSDEL.OC.8 1 LINE 80 1 PAGE UM WSG AUG. 01, 1973 18:15.08 00448 *RSERIES # (SEE COMP 306) UM 00449 *DEB S # (OBSOLETED BY *SORT) D2T1 341 UM 00451/1 CATALOG VERIFY - VNTD SA G VNTD W045:PF.VNTD D3T3 11 CATALOG_VERIFY_-_VNTD..SA.1 1 LINE 80 25 PAGE UM PIRKOLA AUG. 01, 1973 18:15.10 0 PROGRAM TO VERIFY, TRACE, AND/OR DUMP THE FILE SYSTEM CATALOG. COPIES COPY:CATEQU (482/28) AND COPY:FCBEQU (482/27). IT WILL VERIFY, TRACE AND/OR DUMP THE ENTIRE CATALOG, A PARTICULAR USER CATALOG, OR A PARTICULAR USER FILE. LOGICAL I/O UNITS: 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 1 FRI AUG 02/96 18:37:32 Page 119 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ARE DESIRED. EXAMPLES: $RUN VNTD PAR=T,C $RUN VNTD PAR=V,T,D,U,W045 $RUN VNTD PAR=D,F,WO45VNTD OUTPUT: VERIFY (A) VERIFYING THE CATALOG WILL VALIDATE SEGMENT ALLOCATION AS WELL AS ERROR CHECKING RECORD AND SEGMENT HEADERS. PRESENTLY, THE CATALOG CAN ONLY BE VERIFIED WHEN SEGMENTS ARE NOT BEING ALLOCATED OR DEALLOCATED, I.E., WHEN NO ONE IS USING THE SYSTEM. (B) VERIFYING A USER CATALOG WILL ERROR CHECK RECORD AND SEGMENT HEADERS AS WELL AS FILE DESCRIPTORS. IN ADDITION, IT WILL CHECK THAT FILE DESCRIPTORS POINT TO SHARING DESCRIPTORS IN THE SAME CATALOG AND THAT ALL SHARING DESCRIPTORS ARE ACCOUNTED FOR. (C) PRESENTLY, VERIFYING A FILE DOES NOTHING. TRACE (A) TRACING THE CATALOG WILL PRINT OUT THE FILE HEADER LOCATIONS AND THE NUMBER OF PAGES IN EACH FILE. (B) TRACING A USER CATALOG WILL PRINT OUT THE SEGMENT LOCATIONS FOR EACH SEGMENT ASSIGNED TO THE USER CATALOG. (C) TRACING A FILE WILL PRINT OUT FILE AND SHARING DESCRIPTOR LOCATIONS. DUMP (A) DUMPING THE CATALOG WILL DUMP (VIA SDUMP) EACH FILE HEADER. (B) DUMPING A USER CATALOG WILL DUMP EACH SEGMENT ASSIGNED TO THE USER CATALOG. (C) DUMPING A FILE WILL DUMP THE FILE AND SHARING DESCRIPTORS ASSOCIATED WITH THE FILE IN THE CATALOG. STATISTICS (ALWAYS PRINTED) (A) FOR THE WHOLE CATALOG, THE NUMBER OF AVAILABLE INITIAL SEGMENTS (0, 1, AND 2) AND THE NUMBER OF AVAILABLE OVERFLOW SEGMENTS (3, 4, AND 5) ARE PRINTED. (B) FOR A USER CATALOG, THE NUMBER OF FILE AND SHARING DESCRIPTORS AS WELL AS THE NUMBER OF SEGMENTS, RECORDS, AND CYLINDERS OCCUPIED BY THIS USER CATALOG ARE PRINTED. 00451/2 CATALOG VERIFY - VNTD OC G W045:PF.VNTD.O D3T3 12 CATALOG_VERIFY_-_VNTD..OC.2 1 LINE 80 6 PAGE UM PIRKOLA AUG. 01, 1973 18:15.38 00452/1 PLCALL SA G PLCL S0722 'D3T3' FSNAME=PLCALL..SA.1 13 D3T3 13 PLCALL..SA.1 1 LINE 80 5 PAGE UM ENGLE JULY 24, 1973 11:51.52 0 SUBROUTINES PLCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL/I PROGRAM TO CALL SUBROUTINES WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE. 00452/2 PLCALL OC G S0722 'D3T3' FSNAME=PLCALL..O.2 14 D3T3 14 PLCALL..O.2 1 LINE 80 1 PAGE UM ENGLE JULY 24, 1973 11:52.05 0 THIS SUBROUTINE IS IN *PL1LIB. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00453/1 DRUM INIT SA DNIT S0517 'D2T1' FMT=FB(4000,80) 186 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/2 DRUM INIT OC S0517 'D2T1' FMT=FB(4000,80) 187 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 DBS:MAC D3T3 17 DBS:MAC..SM. 1 LINE 66 3 PAGE UM WSG AUG. 01, 1973 18:21.38 0 MACRO LIBRARY USED BY MANY OF DOUG SMITH'S PROGRAMS (ARU, SORT, AND JOBS). 0 Referenced by comments of: 84/1, 84/5, 84/7, 84/12, 84/14, 303/1, 413/11 00456 *CONFIG SA # (OBSOLETE) D2T1 318 UM 00457 TPSBUFFER SA # (OBSOLETE) D2T1 147 UM 00458/1 OLTS MONITOR SA G OLTS S0722 'D3T3' FSNAME=OLTS.MONITOR.SA.1 18 D3T3 18 OLTS.MONITOR.SA.1 1 LINE 80 73 PAGE UM MTA JULY 30, 1973 03:33.02 0 MAIN ASSEMBLY FOR ON-LINE TEST SYSTEM EXECUTIVE PROGRAM. WILL SUPPORT ANY TEST EXCEPT 2702/3. THIS VERSION OF THE OLTS SUPERVISOR ALLOWS THE OS TEST SECTIONS TO BE RUN UNMODIFIED IN MTS. THIS IS OS RELEASE 18 VERSION. ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 126/1, 338/1 00458/2 OLTS MONITOR OC G MTA:OLTS D3T3 19 OLTS.MONITOR.OC.2 1 LINE 80 11 PAGE UM MTA AUG. 01, 1973 18:23.30 00458/3 OLTS SCAN OLTS SA G SCAN MTA:SCANOLTS(1,999) D3T3 20 OLTS.SCAN_OLTS.SA.3 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 18:23.33 0 PROGRAM TO READ A FILE CONTAINING OBJECT DECKS FOR THE OLTS TEST SECTIONS (458/7) ON SCARDS AND PUNCH ASMG SOURCE FOR TWO TABLES (ON UNITS 0 AND 2) WHICH FORM THE BULK OF THE SOURCE FOR THE DIRECTORY ASSEMBLY (458/5). ASSEMBLE USING *SYSMAC. 0 Referenced by comments of: 458/5, 458/7 00458/4 OLTS SCAN OLTS OC G MTA:SCANOLTS(1000) D3T3 21 OLTS.SCAN_OLTS.OC.4 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 18:23.35 00458/5 OLTS DIRECTORY SA G OLTT MTA:OLTSTESTDIR D3T3 22 OLTS.DIRECTORY.SA.5 1 LINE 80 7 PAGE UM MTA AUG. 01, 1973 18:23.37 0 ASSEMBLY THAT DEFINES WHICH TESTS ARE AVAILABLE AND THE FILE (WITH LINE NUMBER RANGE) FROM WHICH TO LOAD THEM. 1 FRI AUG 02/96 18:37:32 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 THE TWO TABLES (TEST SECTION NAMES AND CORRESPONDING FILE NAMES) IN THIS ASSEMBLY ARE GENERATED BY THE SCAN OLTS PROGRAM (458/3). 0 Referenced by comments of: 458/3 00458/6 OLTS DIRECTORY OC G MTA:OLTSSUB D3T3 23 OLTS.DIRECTORY.OC.6 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 18:23.41 00458/7 OLTS TEST SECTIONS OC G MTA:OLTSSECT D3T3 24 OLTS.TEST_SECTIONS.OC.7 1 LINE 95 186 PAGE UM MTA AUG. 01, 1973 18:23.43 0 THESE ARE THE IBM (AND BRAND X) OBJECT FOR THE VARIOUS TEST SECTIONS. SOURCE IS NOT AVAILABLE FROM IBM. THIS FILE WAS GENERATED BY IPLING THE IBM OLTS DISTRIBUTION TAPE IN THE VIRTUAL MACHINE AND LETTING IT PUNCH THE CARDS (WHICH WOULD BE LINK-EDITTED IN OS) INTO THIS FILE. THIS FILE THEN SERVES AS THE FILE CONTAINING ALL OF THE TEST SECTION OBJECT DECKS. THE SCAN OLTS PROGRAM (458/3) WILL READ THIS FILE AND PRODUCE THE DIRECTORY WHICH TELLS WHICH TEST SECTION HAS WHAT LINE NUMBER RANGE IN THIS FILE. NOTE: THE ISS TESTS FOR THE 400 CYLINDER "2314" ARE REALLY IBM 2314 TESTS WHICH HAVE BEEN WORKED OVER BY THE EDITOR AND PATCHED WITH REP CARDS. 0 Referenced by comments of: 458/3 00459 *ICSERIES S # (OBSOLETE) D2T2 155 UM 00460 WIREWRAP TEST # (OBSOLETE) D2T2 156 UM 00461/1 DISTRIBUTION *FS SA G DIST UBC:DIST.S D3.1T1 275 DISTRIBUTION.*FS.SA.1 1 LINE 80 96 PAGE UM MTA MAR. 06, 1974 04:06.02 0 D3.1 VERSION OF FILE SAVE AND RESTORE PROGRAM ORIGINALLY FROM UBC. SAVES DISK FILES ON MAG TAPE, MAINTAINING A DIRECTORY AND PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION. COPIES COPY:DRDSECT (461/16). ASSEMBLE USING *SYSMAC. CALLS SNIFF SUBROUTINE (461/2). SEVERAL BUGS FIXED SINCE D3. 0 Referenced by comments of: 461/3 00461/2 DISTRIBUTION SNIFF SUBR SA G SNIF MTS:FS.SNIFF(1,999) D3.1T1 276 DISTRIBUTION.SNIFF_SUBR.SA.2 1 LINE 80 4 PAGE UM MTA MAR. 06, 1974 04:06.26 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: 461/1, 461/3 00461/3 DISTRIBUTION *FS OE G *FS D3.1T1 277 DISTRIBUTION.*FS.OE.3 1 SEQE 23132 9 PAGE UBC MTA MAR. 06, 1974 04:06.28 0 OBJECT FOR *FS (461/1) AND SNIFF SUBROUTINE (461/2). 00461/4 DISTRIBUTION *FS WRITEUP WF MTS:FS.WRUP D3T3 28 DISTRIBUTION.DIST_WRITEUP.WF.4 1 LINE 117 6 PAGE UBC MTA AUG. 01, 1973 18:26.14 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00461/5 DISTRIBUTION *DEDIT SA G DED0 WSG:DEDIT D3.1T1 278 DISTRIBUTION.*DEDIT.SA.5 1 LINE 80 32 PAGE UM WSG MAR. 06, 1974 04:06.30 0 DISTRIBUTION DRIVER/COMMENT FILE EDITOR PROGRAM. THIS PROGRAM IS USED TO CONSTRUCT AND EDIT A DISTRIBUTION DRIVER FILE SUCH AS 461/11. IT ALSO ALLOWS COMMENTS TO BE ENTERED IN THE DRIVER FILE (OR ANOTHER FILE) FOR EACH COMPONENT. COPIES COPY:DRDSECT (461/16). FOR D3.1, THIS PROGRAM HAS BEEN EXPANDED AND CHANGED AS FOLLOWS: (1) THE "DELETE" COMMAND NOW ALSO DELETES ANY ASSOCIATED COMMENTS. (2) IMPROVED END-OF-FILE AND BEGINNING-OF-FILE HANDLING. (3) ADDITION OF THE "LINE" COMMAND, WHICH IS SIMILIAR TO THE EDITOR'S LINE COMMAND IN THAT IT ACCEPTS *F (OR FIRST), *L (OR LAST), OR A LINE NUMBER (IN THE DRIVER FILE) AS PARAMETERS. IT PRINTS THE CURRENT LINE NUMBER IF NO PARAMETER IS GIVEN. (4) THE "SAVE" COMMAND WRITES THE CURRENT DRIVER LINE INTO AN AUXILIARY FILE AT THE SAME LINE NUMBER. THIS COMMAND IS USEFUL FOR PRODUCING A SETSET OF A LARGER DRIVER FILE, E.G. PRODUCING THE D3.1 DRIVER FILE FROM THE COMPLETE FILE. (5) THE "LIST" AND "PLIST" COMMANDS HAVE BEEN CHANGED TO REQUIRE THE WORD "ON" BEFORE THE OPTIONAL OUTPUT FDNAME. A LIST OF PEOPLE NAMES (SEPARATED BY COMMAS) MAY FOLLOW TO SPECIFY A SUBSET TO BE PRINTED. (6) A "STOP" COMMAND HAS BEEN ADDED. (7) AN "ASSIGN" COMMAND HAS BEEN ADDED WHICH ALLOWS A CHARACTER STRING (THE SECOND PARAMETER) TO BE ASSOCIATED WITH AN OUTPUT TAPE NAME (THE FIRST PARAMETER), E.G. "ASSIGN D3T1 S1234 'DIST 3 TAPE 1'". THIS COMMAND IS USED IN CONJUNCTION WITH THE "REDISTRIBUTE" COMMAND. (8) THE "REDISTRIBUTE" COMMAND HAS BEEN ADDED (IN CONJUCTION WITH "ASSIGN") WHICH CAUSES THE FDNAME FIELD FOR THE CURRENT COMPONENT TO BE REPLACED BY THE CHARACTER STRING ASSIGNED TO THE COMPONENT'S OUTPUT TAPE NAME, FOLLOWED BY "FSNAME=" AND THE OUTPUT FSNAME FOR THE COMPONENT. THE INPUT FILE NUMBER IS ALSO REPLACED BY THE OUTPUT FILE NUMBER. THIS COMMAND IS USED WHEN A COMPONENT HAS NOT CHANGED SINCE THE LAST DISTRIBUTION AND THE CURRENT LOCATION IS ON THAT DISTRIBUTION TAPE. 00461/6 DISTRIBUTION *DEDIT OE G *DEDIT D3.1T1 279 DISTRIBUTION.*DEDIT.OE.6 1 SEQE 7182 4 PAGE UM WSG MAR. 06, 1974 04:06.35 00461/7 DISTRIBUTION 5-LINE SA G 5LIN S0675 UBCUM 'UBC -> UM #23' FSNAME=FS5L.S D3T3 31 DISTRIBUTION.5-LINE.SA.7 1 LINE 80 7 PAGE UBC HOGG MAR. 01, 1973 19:33:27 0 PROGRAM TO PRINT THE FIRST 5 AND LAST 5 LINES OF EACH FILE ON A *FS TAPE. USED TO VERIFY DIST TAPE CONTENTS. 00461/8 DISTRIBUTION 5-LINE OC G MTS:FS5L D3T3 32 DISTRIBUTION.5-LINE.OC.8 1 LINE 80 3 PAGE UBC HOGG AUG. 01, 1973 18:28.14 00461/9 DISTRIBUTION CLEAN COMMENTS SA G CCOM WSG:CLEANCOMM(1,999) D3T3 33 DISTRIBUTION.CLEAN_COMMENT.SA.9 1 LINE 80 3 PAGE UM WSG AUG. 01, 1973 18:28.16 0 PROGRAM TO GENERATE A NEW DISTRIBUTION COMMENT FILE FROM EXISTING DRIVER AND COMMENT FILES. I/O ASSIGNMENTS: 0 -- DRIVER FILE 1 -- OLD COMMENT FILE 2 -- NEW COMMENT FILE (SHOULD HAVE NOTHING AT NEG LINE NUMBERS) THIS PROGRAM MAKES ONE PASS THROUGH THE DRIVER FILE (UNIT 0) AND FOR EACH COMP WHICH HAS ANY COMMENTS, IT COPIES THEM FROM THE OLD COMMENT FILE (UNIT 1) TO THE NEW COMMENT FILE (UNIT 2) AND CHANGES THE LINE NUMBERS TO COMPACT THEM WITHIN THE NEGATIVE LINE NUMBER RANGE. IT THEN REPLACES THE COMMENT LINE NUMBER FIELD IN EACH SUCH DRIVER FILE LINE SO THAT IT POINTS TO THE LINE NUMBER OF THE COMMENTS IN THE NEW FILE. NO CHANGES ARE MADE TO THE OLD COMMENT FILE, BUT CHANGES IN THE COMMENT LINE NUMBER FIELD (DRDECLN) ARE MADE IN THE DRIVER FILE. A SIDE EFFECT OF THIS PROCESS IS TO ELIMINATE (I.E. NOT COPY) ANY UNREFERENCED COMMENTS. 1 FRI AUG 02/96 18:37:32 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 COPIES COPY:DRDSECT (461/16). 00461/10 DISTRIBUTION CLEAN COMMENTS OC G WSG:CLEANCOMM(1000) D3T3 34 DISTRIBUTION.CLEAN_COMMENT.OC.10 1 LINE 80 1 PAGE UM WSG AUG. 01, 1973 18:28.18 00461/11 DISTRIBUTION CURRENT DRIVER D MTS:DRIVER D3.1T1 562 DISTRIBUTION.CURRENT_DRIVE.D.11 1 LINE 235 131 PAGE UM WSG MAR. 08, 1974 15:20.14 0 THIS IS THE CURRENT COMPLETE UM DRIVER FILE (FOR ALL COMPONENTS, NOT JUST D3.1). 0 Referenced by comments of: 461/17 00461/12 DISTRIBUTION CURRENT COMM D MTS:COMM D3.1T1 563 DISTRIBUTION.CURRENT_COMM.D.12 1 LINE 124 60 PAGE UM WSG MAR. 08, 1974 15:21.49 0 THIS IS THE CURRENT COMPLETE UM DIST COMMENT FILE (IT IS ALSO THE D3.1 COMMENT FILE). 00461/13 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. 00461/14 DISTRIBUTION OLD SYSTEMS WF MTS:D3CONVERSION D3T5 257 DISTRIBUTION.OLD_SYSTEMS.WF.14 1 LINE 77 3 PAGE UM MTA AUG. 11, 1973 01:29.07 0 A WRITEUP DESCRIBING THE INSTALLATION OF MTS DISTRIBUTION 3.0 AT OLD INSTALLATIONS, I.E. INSTALLATIONS WHICH ARE CURRENTLY RUNNING MTS. 00461/15 DISTRIBUTION GENERAL NOTES WF MTS:D3GENERAL D3T5 258 DISTRIBUTION.GENERAL_NOTES.WF.15 1 LINE 129 6 PAGE UM DWB AUG. 11, 1973 01:29.09 0 GENERAL NOTES ON DISTRIBUTION 3.0. 00461/16 DISTRIBUTION DRIVER DSECT SA G DRVD COPY:DRDSECT D3T3 26 DISTRIBUTION.DRIVER_DSECT.SA.2 1 LINE 80 1 PAGE UM WSG AUG. 01, 1973 18:26.08 0 COPY SECTION FOR DRIVER FILE DSECT (USED BY *FS, *DEDIT, CLEANCOMM, ETC.). IT DEFINES THE STRUCTURE OF A DIST DRIVER FILE RECORD. 0 Referenced by comments of: 461/1, 461/5, 461/9 00461/17 DISTRIBUTION D3.1 DRIVER D MTS:D3.1DRIVER D3.1T1 564 DISTRIBUTION.D3.1_DRIVER.D.17 1 LINE 235 38 PAGE UM WSG MAR. 08, 1974 15:22.39 0 THIS IS THE D3.1 1600 BPI DRIVER FILE. THIS FILE, A SUBSET OF THE CURRENT COMPLETE DRIVER (461/11), WAS USED TO MAKE THE D3.1 1600 BPI TAPE. 00461/18 DISTRIBUTION DRIV INDEX GEN C WSG:D3.1INDEX D3.1T1 280 DISTRIBUTION.DRIV_INDEX_GE.C.18 1 LINE 133 1 PAGE UM WSG MAR. 06, 1974 17:40.31 0 COMMAND FILE TO PRODUCE AN INDEX FROM A DRIVER FILE. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00461/19 DISTRIBUTION D3.1 DRIVE 800 D MTS:D3.1DRIVE800 D3.1T1 565 DISTRIBUTION.D3.1_DRIVE_80.D.19 1 LINE 235 38 PAGE UM WSG MAR. 08, 1974 15:23.11 0 THIS IS THE D3.1 800 BPI DRIVER FILE. IT HAS THE FILE NUMBERS FOR THE 2 800 BPI D3.1 TAPES. 00462/1 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), AND COPY:MTS.TV (640). NEEDS MACROS IN COPY:MTS.MACROS (344). 0 Referenced by comments of: 344/1, 462/2 00462/2 CHECKSUM D3.1 UPDATE UU G MTS:CHKSUPD D3.1T1 281 CHECKSUM.D3.1_UPDATE.UU.2 1 LINE 35 1 PAGE UM DWB MAR. 06, 1974 17:40.32 0 UPDATE TO D3 MASTER (462/1) TO PRODUCE D3.1 SOURCE. UPDATE DECK USES %POSN *IN* CHKS. 00462/3 CHECKSUM OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00463/1 STANDARD DUMP SA G S0722 'D3T3' FSNAME=STANDARD_DUMP..SA.1 37 D3T3 37 STANDARD_DUMP..SA.1 1 SEQ 80 7 PAGE UM DWB AUG. 01, 1973 18:30.34 0 PRODUCES STANDARD FORMAT DUMPS. SEE ALSO SDUMP (049). 0 Referenced by comments of: 42/4 00463/2 STANDARD DUMP OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00464/1 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), AND COPY:MTS.TV (640). NEEDS MACROS IN COPY:MTS.MACROS (344). 0 Referenced by comments of: 344/1, 464/2 00464/2 PLIMIT D3.1 UPDATE UU G MTS:PLIMUPD D3.1T1 282 PLIMIT.D3.1_UPDATE.UU.2 1 LINE 55 1 PAGE UM DWB MAR. 06, 1974 17:40.35 0 UPDATE TO D3 MASTER (464/1) TO PRODUCE D3.1 SOURCE. UPDATE DECK USES %POSN *IN* PLIM. 00464/3 PLIMIT OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00465/1 *APL MONITOR SA APLM DWB:PF.APLMTS.S D3T3 39 APL.MONITOR.SA.1 1 LINE 80 54 PAGE UM DWB AUG. 01, 1973 18:30.48 0 APL MONITOR. COPIES APLDEFN (465/2), DIRSECT (465/3), ZSYMBOLS (465/4), PERTERM (465/5), AND *GFINFODSECT (593). THIS IS UBC'S UD18 SOURCE (REC'D 2 DEC 71) WITH CHANGES TO ADD PAR=CORR, CHANGES FOR RSF, AND CHANGES TO CALL GFINFO INSTEAD OF THE LOW-LEVEL FILE ROUTINES. NO LONGER REQUIRES TSNIF. 00465/2 *APL APLDEFN SA APLD DWB:APLDEFN D3T3 40 APL.APLDEFN.SA.2 1 LINE 80 6 PAGE UM DWB AUG. 01, 1973 18:31.12 0 Referenced by comments of: 465/1 00465/3 *APL DIRSECT SA DIRS DWB:DIRSECT D3T3 41 APL.DIRSECT.SA.3 1 LINE 80 2 PAGE UM DWB AUG. 01, 1973 18:31.13 0 Referenced by comments of: 465/1 00465/4 *APL ZSYMBOLS SA ZSYM DWB:ZSYMBOLS D3T3 42 APL.ZSYMBOLS.SA.4 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 18:31.18 0 Referenced by comments of: 465/1, 465/6 00465/5 *APL PERTERM SA PERT DWB:PERTERM D3T3 43 APL.PERTERM.SA.5 1 LINE 80 4 PAGE UM DWB AUG. 01, 1973 18:31.20 0 Referenced by comments of: 465/1 00465/6 *APL TRTAB SA TRTA DWB:UD18.TRTA.S D3T3 44 APL.TRTAB.SA.6 1 LINE 80 24 PAGE UM DWB AUG. 01, 1973 18:31.22 0 THIS IS UBC'S UD18 SOURCE FOR TRANSLATE TABLES WITH ERROR CORRECTED. COPIES ZSYMBOLS (465/4). 00465/7 *APL COMPIL/INTERPR S # (NOT AVAILABLE) UM DWB 0 APL COMPILER/INTERPRETER. NO SOURCE AVAILABLE. 00465/8 *APL SHARED OBJECT OC SEG2:S2APL D3T3 45 APL.SHARED_OBJECT.O.8 1 LINE 255 48 PAGE UM DWB AUG. 01, 1973 18:31.28 0 APL OBJECT LOADED INTO SHARED VM BY SEG 2 LOADER AT IPL. 00465/9 *APL *APL OC *APL D3T3 46 APL.*APL.OC.9 1 LINE 24 1 PAGE UM DWB AUG. 01, 1973 18:31.37 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SEGMENT 2 APL (465/9). 0 Referenced by comments of: 465/9 00465/10 *APL USERS' GUIDE WF 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" 1 FRI AUG 02/96 18:37:32 Page 126 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY. 00466/1 ACTIVCNT/ASTATSUB SA G ACAS MTS:ACTIVCNT(1,99) D3T3 48 ACTIVCNT/ASTATSUB..SA.1 1 LINE 80 1 PAGE UM DWB AUG. 01, 1973 18:32.00 0 ACTIVCNT CONTAINS THE NUMBER OF USERS SIGNED ON AND ASTATSUB IS USED TO COMMUNICATE BETWEEN MTS AND THE STAT JOB. ACTIVCNT HAS BEEN EXPANDED SINCE DIST 2.0 FROM ONE TO THREE WORDS. THE EXTRA TWO WORDS (ONE FOR BATCH, ONE FOR TERMINAL) ARE INCREMENTED WHENEVER ANYONE SIGNS OFF. THIS PERMITS PROGRAMS TO MEASURE JOB THROUGHPUT CONVENIENTLY. ASTATSUB IS UNCHANGED SINCE DIST 2.0. 00466/2 ACTIVCNT/ASTATSUB OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00467/1 ENDSEG2 SA G ENDS S0517 'D2T1' FMT=FB(4000,80) 103 D3T3 49 ENDSEG2..SA.1 1 SEQ 80 1 PAGE UM MTA AUG. 01, 1973 18:33.38 0 ASSEMBLY WHOSE ONLY PURPOSE IS TO MARK THE END OF THE IPLED PART OF SEGMENT 2. UNCHANGED SINCE DIST 2.0. 00467/2 ENDSEG2 OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00468/1 SYSTEM OBJECT DECK UM D3.1 DUPLEX OC G MTS:SYSOBJ/D3.1 D3.1T1 283 SYSTEM_OBJECT_DECK.UM_D3.1.OC.1 1 LINE 80 155 PAGE UM MTA MAR. 06, 1974 17:40.37 0 ENTIRE RESIDENT SYSTEM OBJECT DECK FOR THE UM DUPLEX 360/67. ACTUALLY, THIS DECK IS IN 3 PARTS: THE FIRST IS THE REAL CORE RESIDENT OBJECT (THE SUPERVISOR, PDP, ETC.), THE SECOND IS THE SHARED VM INITIAL OBJECT (MTS, THE FILE SYSTEM, ETC.), AND THIRD, AFTER A LOAD TERMINATE (LDT) CARD, A DECK WHICH CAN BE IPLED AFTER THE FIRST IPL (OF PARTS 1 AND 2) TO WRITE THE CONTENTS OF MEMORY AS AN IPL RECORD ONTO A DISK. NOTE: THERE ARE REP CARDS IN THIS DECK AS FOLLOWS: DUMP (399) CONFIG (046) SET DATE TO 1974 CATL (482/23) READL (482/15) IPL (156) SET SIZE OF REAL AND VM 0 Referenced by comments of: 156/1, 634/4 00468/2 SYSTEM OBJECT DECK D3 SIMPLEX OC G S0724 'D3T5' FSNAME=SYSTEM_OBJECT_DECK.SIMPLEX.OC.2 261 D3T5 261 SYSTEM_OBJECT_DECK.SIMPLEX.OC.2 1 LINE 80 157 PAGE UM MTA AUG. 11, 1973 01:30.03 00468/3 SYSTEM OBJECT DECK WRITEUP WF MTS:D3.OBJDECK D3T3 50 SYSTEM_OBJECT_DECK.WRITEUP.WF.3 1 LINE 142 4 PAGE UM MTA AUG. 01, 1973 18:34.23 0 A WRITEUP DESCRIBING THE STRUCTURE OF THE SYSTEM OBJECT DECK. 00469 360/20 RJE SUPPORT PGM S # (OBSOLETE) D2T1 094 UM 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00470 PCB DSECT COPY:PCBDSECT SA G COPY:PCBDSECT D3T3 51 PCB_DSECT.COPY:PCBDSECT.SA. 1 SEQ 80 2 PAGE UM MTA AUG. 01, 1973 18:36.08 0 DSECT FOR THE PAGE CONTROL BLOCK. COPIED BY THE SUPERVISOR, PDP, CONFIG. 0 Referenced by comments of: 44/1, 45/1, 46/1, 400/1, 577/25 00471/1 REX MONITOR SA G REX0 MTA:REXS D3T3 52 REX.MONITOR.SA.1 1 SEQ 80 75 PAGE UM MTA AUG. 01, 1973 18:36.10 0 CUSTOMER ENGINEER I/O EXERCISOR PROGRAM WRITEN BY IBM C.E. ROLF WITZSCHE AT UBC. PAPER DOCUMENTATION INCLUDED IN DISTRIBUTION. THIS IS THE REX SUPERVISOR-MONITOR WHICH LOADS THE PROGRAM SECTIONS FROM THE SECTION FILE (REXC). THIS FILE ALSO CONTAINS A SPECIAL ASSEMBLER FOR ASSEMBLING THE UDT TABLES AND PROGRAM SECTIONS. 00471/2 REX MONITOR OC G MTA:REX D3T3 53 REX.MONITOR.OC.2 1 SEQ 80 7 PAGE UM MTA AUG. 01, 1973 18:37.21 00471/3 REX UDT TABLE S G REXU MTA:REXUDT D3T3 54 REX.UDT_TABLE.S.3 1 LINE 80 2 PAGE UM MTA AUG. 01, 1973 18:37.27 0 REX UDT TABLE FOR THE UM CONFIGURATION. WILL HAVE TO BE MODIFIED FOR EACH INSTALLATION'S I/O CONFIGURATION. MUST BE ASSEMBLED BY REX, NOT *ASMG (SEE 471/6 AND 471/7). 00471/4 REX PGM SECTIONS S G REXC MTA:REXCS D3T3 55 REX.PGM_SECTIONS.S.4 1 SEQ 80 123 PAGE UM MTA AUG. 01, 1973 18:37.32 0 PROGRAM SECTIONS WHICH MUST BE ASSEMBLED BY REX, NOT *ASMG (SEE 471/6 AND 471/7). 00471/5 REX REXC O G MTA:REXC D3T3 56 REX.REXC.O.5 1 LINE 80 16 PAGE UM MTA AUG. 01, 1973 18:39.48 0 OBJECT FOR UDT TABLE AND PROGRAM SECTIONS (471/3 AND 471/4). NOTE: THIS IS NOT ASMG OBJECT FORMAT. 00471/6 REX REXGEN C MTA:REXGEN D3T3 57 REX.REXGEN.C.6 1 LINE 57 1 PAGE UM MTA AUG. 01, 1973 18:39.57 0 COMMAND FILE TO ASSEMBLE REX (USING *ASMG) AND TO ASSEMBLE THE UDT TABLE AND PROGRAM SECTIONS (USING REX). 00471/7 REX REXGEN1 C MTA:REXGEN1 D3T3 58 REX.REXGEN1.C.7 1 LINE 24 1 PAGE UM MTA AUG. 01, 1973 18:39.59 0 COMMAND FILE TO ASSEMBLE CERTAIN PROGRAM SECTIONS (USING REX). 00472/1 *ST360 MAIN PGM SA G STMN MTA:SVMNSOU D3T3 59 ST360.MAIN_PGM.SA.1 1 SEQ 80 41 PAGE UM MTA AUG. 01, 1973 18:40.02 0 THE STUDENT VIRTUAL MACHINE SIMULATOR. THE SIMULATED MACHINE HAS THE FOLLOWING CHARACTERISTICS: 1. THE SYSTEM/360 UNIVERSAL INSTRUCTION SET 2. NO INTERVAL TIMER 3. NO MEMORY PROTECTION 1 FRI AUG 02/96 18:37:32 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 4. 32K BYTES OF STORAGE 5. AN I/O COMPLEMENT CONSISTING OF: A. 1052 OPERATOR'S CONSOLE ADDRESS 0009 B. 2540 CARD READER ADDRESS 000C C. 2540 CARD PUNCH ADDRESS 000D D. 1403 LINE PRINTER ADDRESS 000E E. 2 2401 9-TRACK TAPE DRIVES ADDRESSES 0180-0181 6. EXCEPT AT IPL, SELF-MODIFYING CCW'S ARE NOT ALLOWED 7. INSTANTANEOUS I/O 00472/2 *ST360 CCWTRANS SUBR SA G CCWT S0518 'D2T2' FMT=FB(4000,80) 158 D3T3 60 ST360.CCWTRANS_SUBR.SA.2 1 SEQ 80 12 PAGE UM MTA AUG. 01, 1973 18:49.51 0 SUBROUTINE CALLED BY 472/1 TO TRANSLATE CCW LISTS. UNCHANGED SINCE DIST 2.0. 00473/001 *1130ASM CCD SA CCD0 S0059 '*1130ASM' FMT=FB(4000,80) 1 D3T3 62 1130ASM.CCD.SA.1 1 SEQ 80 48 PAGE UM ? AUG. 01, 1973 18:51.47 0 IBM ASSEMBLER FOR THE IBM 1130 AND IBM 1800 COMPUTERS. THIS VERSION HAS BEEN MODIFIED TO RUN IN MTS. THIS THING APPEARS TO CONSIST OF 4 ASSEMBLIES AND 1 COPY SECTION. THE QUESTION IS WHICH IS WHICH. WE SUGGEST THAT THE FIRST MAY BE THE COPY SECTION, BUT WE'RE NOT SURE. 00473/002 *1130ASM M0 SA M000 S0059 '*1130ASM' FMT=FB(4000,80) 2 D3T3 63 1130ASM.M0.SA.2 1 SEQ 80 2 PAGE UM ? AUG. 01, 1973 18:51.57 00473/003 *ST360 OBJECT OE G *ST360 D3T3 61 ST360.OBJECT.OE.3 1 SEQ 8776 3 PAGE UM MTA AUG. 01, 1973 18:49.56 00473/004 *1130ASM M12 SA M120 S0059 '*1130ASM' FMT=FB(4000,80) 3 D3T3 64 1130ASM.M12.SA.3 1 SEQ 80 74 PAGE UM ? AUG. 01, 1973 18:52.43 00473/005 *1130ASM M3 SA M030 S0059 '*1130ASM' FMT=FB(4000,80) 4 D3T3 65 1130ASM.M3.SA.4 1 SEQ 80 89 PAGE UM ? AUG. 01, 1973 18:53.47 00473/006 *1130ASM M4 SA M040 S0059 '*1130ASM' FMT=FB(4000,80) 5 D3T3 66 1130ASM.M4.SA.5 1 SEQ 80 25 PAGE UM ? AUG. 01, 1973 18:54.12 00473/007 *1130ASM OBJECT OC *1130ASM D3T3 67 1130ASM.OBJECT.OC.6 1 SEQ 80 18 PAGE UM ? AUG. 01, 1973 18:54.16 00474 FILETEST # (SEE COMP 482) UM 00475 OS SIMULATION PACKAGE S # (OBSOLETE) D2T1 284 UM 00476 DBS:MSG S # (OBSOLETE) D2T1 441 UM 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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/1 FILE SYSTEM DASDUC SA G DAUC W045:DASDUC D3T3 68 FILE_SYSTEM.DASDUC.SA.1 1 LINE 80 18 PAGE UM PIRKOLA AUG. 01, 1973 18:54.20 0 2311/2314/2321/2301 UNIT CHECK ROUTINES. 00482/2 FILE SYSTEM DASDUC OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/3 FILE SYSTEM MOVIT SA G MOVE W045:PF.MOVE D3T3 69 FILE_SYSTEM.MOVIT.SA.3 1 LINE 80 4 PAGE UM PIRKOLA AUG. 01, 1973 18:54.25 0 SUBROUTINE TO MOVE CORE AROUND. 00482/4 FILE SYSTEM MOVIT OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/5 FILE SYSTEM VOLGET SA G VGET W045:PF.VOLGET D3T3 70 FILE_SYSTEM.VOLGET.SA.5 1 LINE 80 20 PAGE UM PIRKOLA AUG. 01, 1973 18:54.27 0 BASIC LOW LEVEL DISK SUBROUTINES TO EXECUTE CHANNEL PROGRAMS, ETC. COPIES COPY:DSKDSCT (482/42) AND COPY:FCBEQU (482/27). 0 Referenced by comments of: 534/5 00482/6 FILE SYSTEM VOLGET OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/7 FILE SYSTEM TRAK SA G TRAK W045:PF.TRAK D3.1T1 284 FILE_SYSTEM.TRAK.SA.7 1 LINE 80 16 PAGE UM PIRKOLA MAR. 06, 1974 17:41.38 0 BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE PHYSICAL RECORDS. COPIES COPY:FCBEQU (482/27) AND COPY:DSKDSCT (482/42). FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO USE SOFTWARE COMMAND CHAINING FOR 2314'S AND 2311'S. NOTE: THE D3.1 SUPERVISOR IS REQUIRED FOR THIS CHANGE. 00482/8 FILE SYSTEM TRAK OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/9 FILE SYSTEM FILETEST SA O FTST W045:PF.FILETEST D3T3 72 FILE_SYSTEM.FILETEST.SA.9 1 LINE 80 23 PAGE UM PIRKOLA AUG. 01, 1973 18:54.35 0 FILE ROUTINES PRIMATIVE TEST PROGRAM. SEE COMMENTS IN SOURCE FOR USAGE. THIS PROGRAM ACTS AS A MAIN PROGRAM TO CALL PRIVATE COPIES OF ALL OF THE FILE ROUTINES. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 D3T3 74 FILE_SYSTEM.READI.SA.11 1 LINE 80 14 PAGE UM PIRKOLA AUG. 01, 1973 18:54.48 0 SUBROUTINE TO READ FROM A LINE FILE. COPIES COPY:FCBEQU (482/27) 00482/12 FILE SYSTEM READI OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/13 FILE SYSTEM WRITEI SA G WRIT W045:PF.WRITEI D3T3 75 FILE_SYSTEM.WRITEI.SA.13 1 LINE 80 30 PAGE UM PIRKOLA AUG. 01, 1973 18:54.52 0 SUBROUTINE TO WRITE INTO A LINE FILE. COPIES COPY:FCBEQU (482/27) 00482/14 FILE SYSTEM WRITEI OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/15 FILE SYSTEM READL SA G REDL W045:PF.READL D3T3 76 FILE_SYSTEM.READL.SA.15 1 LINE 80 11 PAGE UM PIRKOLA AUG. 01, 1973 18:55.06 0 SUBROUTINE TO FIND THE FIRST OR LAST LINE NUMBER IN A FILE. ALSO CONTAINS A SUBROUTINE TO RENUMBER A LINE FILE. COPIES COPY:FCBEQU (482/27). 0 Referenced by comments of: 468/1 00482/16 FILE SYSTEM READL OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 0 ***** NOTE: THIS OBJECT CONTAINS A REP CARD. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00482/17 FILE SYSTEM OPEN ETC SA G OPEN W045:PF.OPEN D3T3 77 FILE_SYSTEM.OPEN_ETC.SA.17 1 LINE 80 62 PAGE UM PIRKOLA AUG. 01, 1973 18:55.09 0 SUBROUTINES TO OPEN, CLOSE, CREATE, DESTROY, EMPTY, RENAME, AND TRUNCATE FILES. COPIES COPY:FCBEQU (482/27), COPY:CATEQU (482/28), COPY:DSKDSCT (482/42), AND COPY:DSCBDSCT (482/41). 00482/18 FILE SYSTEM OPEN ETC OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/19 FILE SYSTEM GETDSK ETC SA G GDSK W045:PF.GETDSK D3T3 78 FILE_SYSTEM.GETDSK_ETC.SA.19 1 LINE 80 27 PAGE UM PIRKOLA AUG. 01, 1973 18:55.43 0 ALLOCATE AND RELEASE DISK SPACE. COPIES COPY:FCBEQU (482/27), COPY:DSCBDSCT (482/41), COPY:DSKDSCT (482/42), AND COPY:PATEQU (482/43). 00482/20 FILE SYSTEM GETDSK ETC OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/21 FILE SYSTEM FLINE SA G FLIN W045:PF.FLIN D3T3 79 FILE_SYSTEM.FLINE.SA.21 1 LINE 80 9 PAGE UM PIRKOLA AUG. 01, 1973 18:55.48 0 SUBROUTINE TO SEARCH THE LINE DIRECTORY OF A LINE FILE. COPIES COPY:FCBEQU (482/27) 00482/22 FILE SYSTEM FLINE OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/23 FILE SYSTEM CATALOG SUBR SA G CSBR W045:PF.CATL D3T3 80 FILE_SYSTEM.CATALOG_SUBR.SA.23 1 LINE 80 68 PAGE UM PIRKOLA AUG. 01, 1973 18:55.51 0 SUBROUTINES WHICH MAINTAIN THE CATALOG OF FILES. COPIES COPY:CATEQU (482/28), COPY:FCBEQU (482/27), COPY:DSKDSCT (482/42), AND COPY:DSCBDSCT (482/41). 0 Referenced by comments of: 468/1 00482/24 FILE SYSTEM CATALOG SUBR OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 0 ***** NOTE: THIS OBJECT CONTAINS A REP CARD. 00482/25 FILE SYSTEM READ/WRITE SEQ SA G RWSE W045:PF.RWSEQ D3T3 81 FILE_SYSTEM.READ/WRITE_SEQ.SA.25 1 LINE 80 27 PAGE UM PIRKOLA AUG. 01, 1973 18:56.08 0 SUBROUTINES TO READ AND WRITE SEQUENTIAL FILES. COPIES COPY:FCBEQU (482/27) 00482/26 FILE SYSTEM READ/WRITE SEQ OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/27 FILE SYSTEM FCBEQU SA G FCBE COPY:FCBEQU D3T3 82 FILE_SYSTEM.FCBEQU.SA.27 1 LINE 80 4 PAGE UM PIRKOLA AUG. 01, 1973 18:56.19 0 DEFINITION OF A FILE CONTROL BLOCK. COPIED BY MOST FILE ROUTINES, BUT NOT MTS. 1 FRI AUG 02/96 18:37:32 Page 132 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 67/2, 67/4, 92/2, 104/93, 104/95, 143/1, 442/1, 451/1, 482/5, 482/7, 482/11, 482/13, 482/15, 482/17, 482/19, 482/21, 482/23, 482/25, 482/32, 482/45, 502/13, 509/1, 546/1, 597/1 00482/28 FILE SYSTEM CATEQU SA G CATE COPY:CATEQU D3T3 83 FILE_SYSTEM.CATEQU.SA.28 1 LINE 80 4 PAGE UM PIRKOLA AUG. 01, 1973 18:56.21 0 DEFINITION OF THE CATALOG FORMAT. COPIED BY MOST FILE ROUTINES. 0 Referenced by comments of: 67/1, 67/2, 92/2, 97/6, 104/91, 104/93, 104/95, 442/1, 451/1, 482/17, 482/23, 502/1, 502/11, 509/1, 578/1, 599/1 00482/29 FILE SYSTEM ICEQU SA G ICEQ COPY:ICEQU D3.1T1 285 FILE_SYSTEM.ICEQU.SA.29 1 LINE 80 3 PAGE UM PIRKOLA MAR. 06, 1974 17:41.43 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.1T1 286 FILE_SYSTEM.TABLRTN.SA.30 1 LINE 80 48 PAGE UM PIRKOLA MAR. 06, 1974 17:41.44 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) UM PIRKOLA 00482/32 FILE SYSTEM GETFINF SA G GETF W045:PF.GETFINF D3T3 86 FILE_SYSTEM.GETFINF.SA.32 1 LINE 80 11 PAGE UM PIRKOLA AUG. 01, 1973 18:56.58 0 SUBROUTINE TO RETURN INFORMATION ABOUT A FILE. CALLED BY MTS SUBROUTINE "GFINFO" (PART OF RSF). MANY PROGRAMS SHOULD BE CHANGED TO USE GFINFO TO DO THEIR DIRTY WORK. COPIES COPY:FCBEQU (482/27). 00482/33 FILE SYSTEM GETFINF OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00482/34 FILE SYSTEM CATALOG DESC WF G 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" 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" 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 D3T3 94 FILE_SYSTEM.DSCBDSCT.SA.41 1 LINE 80 1 PAGE UM PIRKOLA AUG. 01, 1973 18:58.05 0 DSECT FOR DSCB USED BY FILE ROUTINES. 0 Referenced by comments of: 67/1, 67/2, 67/4, 104/95, 482/17, 482/19, 482/23, 502/13, 597/1, 598/1, 642/1 00482/42 FILE SYSTEM DSKDSCT SA G DSKD COPY:DSKDSCT D3T3 95 FILE_SYSTEM.DSKDSCT.SA.42 1 LINE 80 2 PAGE UM PIRKOLA AUG. 01, 1973 18:58.08 0 DSECT FOR DISK TABLE DSECT USED BY FILE ROUTINES. 0 Referenced by comments of: 4/1, 67/1, 67/2, 67/4, 73/2, 442/1, 482/5, 482/7, 482/17, 482/19, 482/23, 502/13, 597/1, 621/2, 642/1, 644/1 00482/43 FILE SYSTEM PATEQU SA G PATE COPY:PATEQU D3T3 96 FILE_SYSTEM.PATEQU.SA.43 1 LINE 80 1 PAGE UM PIRKOLA AUG. 01, 1973 18:58.10 0 EQU'S FOR PAGE ASSIGNMENT TABLE USED BY RESTORE AND OTHERS. 0 Referenced by comments of: 67/1, 67/4, 482/19, 597/1 00482/44 FILE SYSTEM FSMAC SA G W045:FSMAC D3T3 97 FILE_SYSTEM.FSMAC.SA.44 1 LINE 72 3 PAGE UM PIRKOLA AUG. 01, 1973 18:58.12 0 A PROGRAM WHICH ONLY CONSISTS OF A MACRO AND MACRO CALLS USED TO CALCULATE THE FILE SYSTEM SCRATCH AREA SIZES. IT PRODUCES NO OBJECT CODE, BUT THE ASSEMBLY LISTING IS USEFUL IN DETERMINING THE VALUES TO USE IN SETTING UP COPY:MTS.EQU2 (347). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00482/45 FILE SYSTEM FSTEST SA G FSTS W047:FSTEST.S D3T3 98 FILE_SYSTEM.FSTEST.SA.45 1 LINE 80 18 PAGE UM HAMILTON AUG. 01, 1973 18:58.16 0 NEW FILE SYSTEM TEST PROGRAM. SEE WRITEUP (482/47). COPIES COPY:FCBEQU (482/27). ASSEMBLE WITH *SYSMAC AND PAR=B. USES MANY SYMBOLS IN SYSDEFS UNLESS LOADED WITH PRIVATE COPIES OF FILE ROUTINES. 0 Referenced by comments of: 482/47 00482/46 FILE SYSTEM FSTEST OC G W047:FSTEST D3T3 99 FILE_SYSTEM.FSTEST.OC.46 1 LINE 80 6 PAGE UM HAMILTON AUG. 01, 1973 18:58.27 00482/47 FILE SYSTEM FSTEST WRITEUP PF W047:FSTEST.W D3T3 100 FILE_SYSTEM.FSTEST_WRITEUP.P.47 1 LINE 69 3 PAGE UM HAMILTON AUG. 01, 1973 18:58.32 0 WRITEUP DESCRIBING THE FILE SYSTEM TEST PROGRAM (482/45). COPY TO A TN PRINTER. 0 Referenced by comments of: 482/45 00483/1 *WATFIV UPDATE UU G WATF:WAT5.SGEN D3T3 101 WATFIV.UPDATE.UU.1 1 LINE 80 21 PAGE UM BLINN AUG. 01, 1973 18:58.35 0 WATFIV GENERATION PROCEDURE 1) OBTAIN WATFIV (V1L3) DISTRIBUTION TAPE FROM THE UNIVERSITY OF WATERLOO. 2) $RUN *IEHMOVE ON FILE WATFIV.SOURCE (OF ABOVE TAPE), PLACING OUTPUT ON ANOTHER TAPE. YOU SHOULD GET 83 FILES BLOCKED FB(3440,80). 3) SEVERAL OF THESE 83 FILES ARE COPY SECTIONS. USING THE WATFIV UPDATE (483/1), $RUN *UPDATE ON THE THE FOLLOWING FILES TO PRODUCE UPDATED DISK FILES BY THE SAME NAME: 2 (ACCT), 11 (CDEFN), 17 (COMMR), 42 (ERRTEXTS), 44 (EXTRN), 66 (OPTIONS), 74 (STARTA), 75 (STARTB), AND 77 (SYS). 4) FILES 1, 3-8, 10, 12-16, 18-28, 30, 31, 33-38, 41, 43, 46, 50, 52, 54, 55, 57, 60, 62, 63, 67, 68, 70-72, 76, AND 78 ARE MACROS. ALL CAN BE COPIED INTACT TO A MACRO LIBRARY EXCEPT FOR 76 (STOP#) WHICH MUST BE UPDATED. THIS MACRO LIBRARY GENERATES CODE FOR THE ELEMENTARY FUNCTIONS. 5) ANOTHER MACRO LIBRARY COMES FROM THE WATERLOO DIST TAPE. $RUN *IEHMOVE ON FILE WATFIV.MACLIB TO GET THIS. 6) NEXT, 16 OF THE 83 FILES CONTAIN ASSEMBLY SOURCE. EACH OF THESE MUST BE UPDATED BY *UPDATE TO PRODUCE THE MTS VERSION. THEN ASSEMBLE THESE USING THE 3 MACRO LIBRARIES: *SYSMAC, AND THE ONES PRODUCED IN STEPS 4 AND 5. SEVERAL OF THESE ASSEMBLIES COPY FILES GENERATED IN STEP 3. THE 16 FILES ARE: 9 (ARITH), 32 (DODO), 40 (ERROR), 47 (FORMAT), 48 (FORMCONV), 49 (FRIOSCAN), 51 (FUNCTION), 53 (IBCOM#), 56 (INOUT), 58 (LANDR), 59 (MAIN), 64 (NAMELIST), 69 (SCAN), 73 (SPEX), 82 (WATIO), AND 83 (WATLOAD). 7) ASSEMBLE THE 3 CSECTS FIOCS (483/2), DIOCS (483/3) AND DEFAULT (483/4). 8) THE 19 CSECTS FROM STEPS 6 AND 7 CONSTITUTE *WATFIV. THE ENTRY POINT IS AT MAINP IN THE MODULE MAIN. THE WATFIV UPDATE DECK (483/1) IS ORGANIZED (BY LINE NUMBER) AS FOLLOWS: LINE NUMBERS FILE # NAME (2000,2999) *2* ACCT (9000,9999) *9* ARITH (11000,11999) *11* CDEFN 1 FRI AUG 02/96 18:37:32 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 (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/2 *WATFIV FIOCS SA FIOC WATF:WAT5.FIOCS.S D3T3 102 WATFIV.FIOCS.SA.2 1 LINE 80 20 PAGE UM BLINN AUG. 01, 1973 18:58.44 0 ASSEMBLE WITH *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO. 0 Referenced by comments of: 483/1 00483/3 *WATFIV DIOCS SA DIOC WATF:WAT5.DIOCS.S D3T3 103 WATFIV.DIOCS.SA.3 1 LINE 80 3 PAGE UM BLINN AUG. 01, 1973 18:58.49 0 ASSEMBLE WITH *SYSMAC + 2 MACRO LIBRARIES FROM WATERLOO. 0 Referenced by comments of: 483/1 00483/4 *WATFIV DEFAULT SA DFLT WATF:WAT5.DFALT.S D3T3 104 WATFIV.DEFAULT.SA.4 1 LINE 80 4 PAGE UM BLINN AUG. 01, 1973 18:58.52 0 SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES TO SET UP DEFAULTS INTERNAL TO THE COMPILER. ASSEMBLE WITH *SYSMAC. NOTE: THIS ROUTINE IS ALSO USED BY ALGOLW (528). 0 Referenced by comments of: 483/1 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00483/5 *WATFIV OBJECT OE # *WATFIV UM BLINN 0 NOTE: BECAUSE OF WATERLOO RESTRICTIONS, THE WATFIV OBJECT CANNOT BE DISTRIBUTED. 00483/6 *WATFIV TEST DECKS SF WATF:WAT5.TEST D3T3 105 WATFIV.TEST_DECKS.SF.6 1 LINE 97 6 PAGE UM BLINN AUG. 03, 1973 21:22.13 0 STARTING AT LINE 1000 IS A WHOLE BATCH OF TEST PROGRAMS. THEY MUST BE RUN WITH THE FOLLOWING I/O ASSIGNMENTS (TEMPORARY FILES): 1 A SEQUENTIAL FILE 2 A LINE FILE 3 ANOTHER LINE FILE 00483/7 *WATFIV USER'S GUIDE WF S0722 'D3T3' FSNAME=WATFIV.USER'S_GUIDE.WF.7 106 D3T3 106 WATFIV.USER'S_GUIDE.WF.7 1 LINE 130 5 DISK UM BLINN MAR. 15, 1973 18:03.51 0 THIS IS COMPUTING CENTER MEMO M161 -- "WATFIV USER'S GUIDE" NOTE THAT ONLY PART OF CCMEMO M161 IS INCLUDED HERE SINCE MUCH OF IT IS SIMPLY REPRODUCED FROM OTHER SOURCES (WATERLOO OR UBC). 00484 *ACCRESTORE OE G MTS:ACCREST/D3.1 D3.1T1 288 ACCRESTORE..OE. 1 LINE 255 3 PAGE UM ENGLE MAR. 06, 1974 17:42.07 0 PROGRAM TO COMPUTE NUMBER OF CURRENT SIGNONS AND CURRENT DISK SPACE FOR A USERID AND THEN UPDATE THE ACCOUNTING RECORD. FILE IS LINKEDIT OF ACCSTRUP (104/25), THE MAIN PROGRAM, PLUS CURSIG (104/71), ACATALOG (104/92), GETFILE (104/90), ACCIO (104/19), AND ACCFLUPD (104/67). 0 Referenced by comments of: 136/2 00485/1 *PLC UPDATE UU G W061:PLCUPDATE D3.1T1 289 PLC.UPDATE.UU.1 1 LINE 73 10 PAGE UM GOODRICH MAR. 06, 1974 17:42.10 0 D3.1 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. FOR D3.1, AN ERROR IN ZZSR BASE REGISTER SPECIFICATION HAS BEEN FIXED. 00485/2 *PLC INSTALLATION P W061:PLC.INSTALL 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/3 *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" 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00486/1 *HBQ SA G HBQ0 W092: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/2 *HBQ OE G *HBQ D3T3 112 HBQ..O.2 1 LINE 255 3 PAGE UM JWS AUG. 03, 1973 21:26.19 00487/1 LABEL SA G LABL WSG:LABEL(1,999) D3T3 113 LABEL..SA.1 1 LINE 80 7 PAGE UM WSG AUG. 03, 1973 21:26.23 0 PROGRAM TO LABEL MAGNETIC TAPES. AS DISTRIBUTED, IT PRODUCES THE MTS VERSION (*LABEL). IF "&OPER SETB 1" IS ADDED AFTER LINE 10, THE OPERATOR'S VERSION (*LBL) IS PRODUCED WHICH WILL ALLOW A COMPLETELY BLANK TAPE TO BE LABELED. THE PROGRAM PROMPTS FOR: THE TAPE PSEUDO-DEVICE NAME, DENSITY, VOLUME NAME, AND OWNER ID. ENTERING JUST THE PDN AND DENSITY, BUT NO VOLUME NAME, CAUSES 6 TAPE-MARKS TO BE WRITTEN ON THE TAPE. COPIES COPY:LLMPSEQU (087). 0 Referenced by comments of: 487/4 00487/2 LABEL *LABEL OC G *LABEL D3T3 114 LABEL.*LABEL.OC.2 1 LINE 80 2 PAGE UM WSG AUG. 03, 1973 21:26.27 0 MTS USER PROGRAM FOR LABELING MAGNETIC TAPES WHICH ARE ALREADY MOUNTED. 00487/3 LABEL *LBL C G *LBL D3T3 115 LABEL.*LBL.C.3 1 LINE 29 1 PAGE UM WSG AUG. 03, 1973 21:26.31 0 COMMAND FILE TO RUN THE SYSTEM OPERATOR'S TAPE LABELING PROGRAM (487/4). INVOKED BY ENTERING "MTS *LBL" ON THE OPERATOR'S CONSOLE. 00487/4 LABEL OPERATOR VERS OC G SYS:LBL D3T3 116 LABEL.OPERATOR_VERS.OC.4 1 LINE 80 2 PAGE UM WSG AUG. 03, 1973 21:26.36 0 SPECIAL VERSION OF LABEL (487/1) WHICH CLEARS THE CHKLABEL BIT IN THE MAG TAPE DSR (135) DSECT SO THAT LABELING CHECKING IS NOT PERFORMED. THIS ALLOWS COMPLETELY BLANK TAPES, FOR EXAMPLE, TO BE LABELED BY THE SYSTEM OPERATOR. 0 Referenced by comments of: 487/3 00488 CONTROL SA # (OBSOLETE) D2.3 035 UM 00489/1 TAPETEST SA G TT00 WSG:TT(1,999) 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). 1 FRI AUG 02/96 18:37:32 Page 138 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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* FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO ADD THE "RB" (READ BACKWARD) COMMAND AND TO PRINT EXPIRATION DATE AS PART OF THE SNS DATA. 00489/2 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/1 *LAR C *LAR D3T3 119 LAR..C.1 1 LINE 29 1 PAGE UM MTA AUG. 03, 1973 21:26.50 0 COMMAND FILE TO RUN BLAST2703. INVOKED BY ENTERING "MTS *LAR" ON OPERATOR'S CONSOLE. SHOULD ONLY BE USED WHEN 2703 HAS DROPPED ITS LINES SINCE BLAST2703 FAKES A UNIT CHECK ON EACH 2703 ADDRESS. 00490/2 *LAR BLAST2703 SA O BLST MTA:BLAST2703(1,998) D3T3 120 LAR.BLAST2703.SA.2 1 LINE 80 1 PAGE UM MTA AUG. 03, 1973 21:26.55 0 PROGRAM WHICH GIVES A FAKE UNIT EXCEPTION TO EACH 2703 ADDRESS. MAY BE USED TO CLEAN UP 2703 LINES AFTER A CHANNEL RESET. ***** NOTE: MUST BE RE-ASSEMBLED FOR EACH INSTALLATION'S 2703 ADDRESSES. *** ASSEMBLE WITH *SYSMAC. 00490/3 *LAR BLAST2703 OC O MTA:BLAST2703(1000) D3T3 121 LAR.BLAST2703.OC.3 1 LINE 80 1 PAGE UM MTA AUG. 03, 1973 21:26.59 00491/1 *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. 1 FRI AUG 02/96 18:37:32 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 THERE IS A "$CONTINUE WITH *DUMMY*" RECORD AT THE END OF THIS FILE. 00491/2 *SCRAMBLE WRITEUP WT O S0027 DISTRB FSNAME=SCRMBLWRITUP 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/1 *DCALC SP G MTA:DCALCS D3T3 123 DCALC..SP.1 1 LINE 80 13 PAGE UM MTA AUG. 03, 1973 21:27.08 0 PL/I DESK CALCULATOR PROGRAM. 00492/2 *DCALC OE G *DCALC D3T3 124 DCALC..OE.2 1 SEQ 21678 8 PAGE UM MTA AUG. 03, 1973 21:27.13 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00493/1 *TALLY SA G TALY W044:TALLYSOU D3T3 125 TALLY..SA.1 1 LINE 80 8 PAGE UM SALISBURY AUG. 03, 1973 21:27.17 0 TALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO COUNT THE NUMBER OF TIMES EACH MACHINE INSTRUCTION IS EXECUTED. 00493/2 *TALLY SIM SUBR SA G TSIM W044:TALLYSIMSOU D3T3 126 TALLY.SIM_SUBR.SA.2 1 LINE 80 25 PAGE UM SALISBURY AUG. 03, 1973 21:27.22 00493/3 *TALLY OC G *TALLY D3T3 127 TALLY..OC.3 1 LINE 80 4 PAGE UM SALISBURY AUG. 03, 1973 21:27.34 00494/1 CSMP *CSMP SA G CSMP W020:CSMPDISTR(1,341) D3T3 128 CSMP.*CSMP.SA.1 1 LINE 80 8 PAGE UM FLANIGAN AUG. 03, 1973 21:27.38 0 CONTINUOUS SYSTEM MODELING PROGRAM (MODIFIED FROM IBM). *CSMP PROVIDES FULL COMPREHENSIVE CONTROL OVER ALL PHASES FOR ONE OR MORE STACKED MODELS. 00494/2 CSMP *CSMP OE G *CSMP D3T3 129 CSMP.*CSMP.O.2 1 SEQ 3232 2 PAGE UM FLANIGAN AUG. 03, 1973 21:27.47 00494/3 CSMP *CSMPTRAN SA G CPTR W020:CSMPDISTR(500,720) D3T3 130 CSMP.*CSMPTRAN.SA.3 1 LINE 80 6 PAGE UM FLANIGAN AUG. 03, 1973 21:27.52 0 TRANSLATION CONTROL. ASSEMBLE WITH *SYSMAC AND PUT IN *CSMPTRAN. ADD "$CONTINUE WITH *CSMPLIB" AT END. 00494/4 CSMP *CSMPTRAN OE G *CSMPTRAN D3T3 131 CSMP.*CSMPTRAN.OE.4 1 SEQ 1672 1 PAGE UM FLANIGAN AUG. 03, 1973 21:27.58 0 ENDS WITH A "$CONTINUE WITH *CSMPLIB" CARD. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00494/5 CSMP *CSMPEXEC SA G CPEX W020:CSMPDISTR(1000,1107) D3T3 132 CSMP.*CSMPEXEC.SA.5 1 LINE 80 4 PAGE UM FLANIGAN AUG. 03, 1973 21:28.04 0 EXECUTION CONTROL 00494/6 CSMP *CSMPEXEC OE G *CSMPEXEC D3T3 133 CSMP.*CSMPEXEC.O.6 1 SEQ 712 1 PAGE UM FLANIGAN AUG. 03, 1973 21:28.10 00494/7 CSMP *CSMPLIB S G S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80) 2 D3T3 134 CSMP.*CSMPLIB.S.7 1 SEQ 80 155 PAGE UM FLANIGAN AUG. 03, 1973 21:29.55 0 ORIGINAL IBM SOURCE (FORTRAN AND ASM). 00494/8 CSMP *CSMPLIB UU G W020:CSMPDISTR(2000,2175) D3T3 135 CSMP.*CSMPLIB.UU.8 1 LINE 80 3 PAGE UM FLANIGAN AUG. 03, 1973 21:30.18 0 THIS UPDATE DECK APPLIES ALL KNOWN IBM APARS PLUS LOCAL CHANGES. IT ASSUMES THE FOLLOWING: (1) IBM SOURCE IS ON TAPE *S* (2) A POOL (SCRATCH) TAPE HAS BEEN MOUNTED AS *P* (3) AN EMPTY SEQUENTIAL FILE -A EXISTS THIS UPDATE PUTS THE UPDATED CSMP FORTRAN ROUTINES ON *P* (BLOCKING FACTOR 100), REWINDS IT, PUTS THE UPDATED CSMP ASSEMBLER ROUTINES IN -A, AND REWINDS AND UNLOADS *S*. 00494/9 CSMP *CSMPLIB SA G W020:CSMPDISTR(1500,1531) D3T3 136 CSMP.*CSMPLIB.SA.9 1 LINE 70 1 PAGE UM FLANIGAN AUG. 03, 1973 21:30.23 0 TWO ASM ROUTINES USED DURING DYNAMIC LINKING. 00494/10 CSMP *CSMPLIB OL G *CSMPLIB D3T3 137 CSMP.*CSMPLIB.OL.10 1 SEQ 6924 32 PAGE UM FLANIGAN AUG. 03, 1973 21:30.27 0 OBJECT LIBRARY (DIR FORMAT) MADE FROM ASM AND FTN ROUTINES UPDATED BY 494/8 AND ASM ROUTINES FROM COMPONENT 494/9. (NOTE: FORTRANH HAS BEEN USED.) 00495/1 *EXPL SUBMONITOR SA XMON W034:XMON.S D3T3 138 EXPL.SUBMONITOR.SA.1 1 LINE 80 31 PAGE UM JWS AUG. 03, 1973 21:30.32 0 EXTENDED VERSION OF XPL. USING THIS VERSION, AN XPL PROGRAM CAN CONSIST OF A COLLECTION OF INDEPENDENTLY COMPILED PROCEDURES. THIS VERSION PRODUCES NORMAL MTS OBJECT DECKS, RATHER THAN SPECIAL OBJECT MODULES. THIS SUB-COMPONENT CONSISTS OF 4 CSECTS: XMON, XPLDFLTS, COMPACT#, AND SORTIT. ASSEMBLE USING *SYSMAC. 00495/2 *EXPL SUBMONITOR OC W034:XMON.O D3T3 139 EXPL.SUBMONITOR.OC.2 1 LINE 80 4 PAGE UM JWS AUG. 03, 1973 21:30.46 0 *EXPLIB SHOULD BE A LINKEDIT OF XMON, COMPACT#, AND SORTIT, PLUS THE XPLDFLTS CSECT WHICH SPECIFIES A FREE STRING AREA SIZE (FSASIZE) OF 5 PAGES. ALL SYMBOLS SHOULD BE PURGED EXCEPT XPLSM, XPLSM@SP, COMPACTI, AND TIMEXOFX. IN ADDITION, TIMEXOFX SHOULD BE CHANGED TO TIME_OF_ AND AN ENT CARD SPECIFYING XPLSM AS THE ENTRY POINT SHOULD BE INSERTED INTO THE OBJECT MODULE. 00495/3 *EXPL COMPILER SX W034:XCOM D3T3 140 EXPL.COMPILER.SX.3 1 LINE 80 59 PAGE UM JWS AUG. 03, 1973 21:30.50 0 EXPL SOURCE FOR THE EXTENDED XPL COMPILER. THE RESULTING OBJECT MUST BE RUN UNDER *EXPLIB. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00495/4 *EXPL COMPILER OE W034:XPL.V4 D3T3 141 EXPL.COMPILER.O.4 1 LINE 240 38 PAGE UM JWS AUG. 03, 1973 21:31.03 0 IT IS MOST CONVENIENT TO LINKEDIT THE COMPILER AND SUBMONITOR TOGETHER TO MAKE *EXPL. NOTE THAT THE ENTRY POINT MUST BE EXPLIB. WHEN LINKEDITING, THE XPLDFLTS CSECT WHICH SETS THE FREE STRING AREA SIZE (FSASIZE) TO 15 PAGES SHOULD BE USED. 00495/5 *EXPL XPLBNF D S0579 SAVE 'JWS - SAVE' FSNAME=XPLBNF D3T3 142 EXPL.XPLBNF.D.5 1 LINE 73 2 DISK UM JWS JUNE 08, 1973 12:58.56 0 SUITABLE INPUT TO *ANALYZER (318/12) TO PRODUCE THE NECESSARY DECLARATIONS FOR DRIVING THE PARSING ALGORITHM FOR *EXPL. 00495/6 *EXPL WRITEUP WF 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/1 *APC SA APC0 DWB:UD19.APC.S D3T3 144 APC..SA.1 1 LINE 80 17 PAGE UBC DWB AUG. 03, 1973 21:34.38 0 UBC ALL PURPOSE FILE COMPARE PROGRAM. 00496/2 *APC OE *APC D3T3 145 APC..O.2 1 SEQ 1720 1 PAGE UBC DWB AUG. 03, 1973 21:34.51 00497/1 *SNAP SF G S0280 'FLANIGAN SYSTEM SOURCE ONE' FMT=FB(8000,80) 1 D3T3 146 SNAP..SF.1 1 SEQ 80 132 PAGE UM FLANIGAN AUG. 03, 1973 21:35.51 00497/2 *SNAP UU G 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/3 *SNAP OE G *SNAP D3T3 148 SNAP..OE.3 1 SEQ 5212 27 PAGE UM FLANIGAN AUG. 03, 1973 21:36.24 00498/1 *IG IG.EQUS SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.EQUS D3T3 149 IG.IG.EQUS.SA.1 1 LINE 71 2 DISK UM BLINN APR. 23, 1973 15:25.43 0 THE INTEGRATED GRAPHICS (IG) SYSTEM IS A LIBRARY OF FORTRAN CALLABLE SUBROUTINES FOR PERFORMING GRAPHICS OPERATIONS ON A VARIETY OF GRAPHIC TERMINALS. IT CONSISTS OF *IG AND ROUTINES FOR DEVICE DEPENDENT I/O SUPPORT. MANY OF THE SOURCE MODULES FOR THIS COMPONENT ALSO CONTAIN MTS COMMMANDS FOR ASSEMBLING THEM. 498/1 IS A COPY SECTION DEFINING ALL DATA STRUCTURE BLOCKS. IT IS SOMETIMES COPIED AS "W114:IG.EQUS" BY OTHER SUB-COMPONENTS. 00498/2 *IG IG.DI SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.DI.S D3T3 150 IG.IG.DI.SA.2 1 LINE 87 14 DISK UM BLINN JUNE 28, 1973 23:28.15 0 COMPS 498/2 THROUGH 498/7 ARE THE SOURCE FOR *IG (498/9). COMP 498/2 IS DEVICE INTERFACE ROUTINES IGINIT, IGDRON, IGXYIN, IGPICK, IGCTRL, AND IGSENS. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00498/3 *IG IG.DSM SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.DSM.S D3T3 151 IG.IG.DSM.SA.3 1 LINE 80 8 DISK UM BLINN JUNE 28, 1973 23:29.20 0 DATA STRUCTURE MODIFICATION ROUTINES. 00498/4 *IG IG.ETDD SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.ETDD.S D3T3 152 IG.IG.ETDD.SA.4 1 LINE 82 5 DISK UM BLINN APR. 23, 1973 15:27.28 0 DEVICE PARAMETER DECODER AND DEVICE ID ROUTINE. 00498/5 *IG IG.MISC SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.MISC.S D3T3 153 IG.IG.MISC.SA.5 1 LINE 95 6 DISK UM BLINN APR. 23, 1973 15:27.52 0 ROUTINES IGFMT, IGTXT, AND ERRCOM#. 00498/6 *IG IG.PWRIT SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.PWRIT.S D3T3 154 IG.IG.PWRIT.SA.6 1 LINE 88 5 DISK UM BLINN APR. 23, 1973 15:28.15 0 INTERFACE TO CALCOMP PLOTTER ROUTINES (PDS). CONTAINS A REPLACEMENT FOR THE ROUTINE #PWRIT. 00498/7 *IG IG.VEC SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.VEC.S D3T3 155 IG.IG.VEC.SA.7 1 LINE 79 5 DISK UM BLINN MAY 14, 1973 21:06.46 0 ROUTINES WHICH ADD DATA TO NIBBLE BUFFERS WITHIN LEAVES. CONTAINS IGVEC, IGMA, IGDA, IGMR, IGDR, AND AN INTERFACE TO IGTXT AND IGFMT. 00498/8 *IG IG.RELINK C S0596 BLAH 'IG ROUTINES' FSNAME=IG.RELINK D3T3 156 IG.IG.RELINK.C.8 1 LINE 61 1 DISK UM BLINN APR. 23, 1973 15:30.38 0 SOURCE FILE TO LINKEDIT OBJECT FILES FOR *IG. 00498/9 *IG OBJECT OL *IG D3T3 157 IG.OBJECT.OL.9 1 SEQ 13541 6 PAGE UM BLINN AUG. 03, 1973 21:39.34 0 Referenced by comments of: 498/2 00498/10 *IG IG.DD SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.DD D3T3 158 IG.IG.DD.SA.10 1 LINE 73 1 DISK UM BLINN APR. 23, 1973 15:28.53 0 COPY SECTION FOR DEVICE DEPENDENT ROUTINES (DDR'S). IT IS SOMETIMES COPIED AS "W114:IG.DD" BY OTHER SUB-COMPONENTS. 00498/11 *IG *IG.CCMP SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.CCMP.S D3T3 159 IG.*IG.CCMP.SA.11 1 LINE 81 2 DISK UM BLINN APR. 23, 1973 15:28.59 0 DDR FOR CALCOMP PLOTTER. 00498/12 *IG *IG.CCMP OE *IG.CCMP D3T3 160 IG.*IG.CCMP.OE.12 1 SEQ 708 1 PAGE UM BLINN AUG. 03, 1973 21:39.50 0 ENDS WITH A "$CONTINUE WITH *PLOTSYS" CARD. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00498/13 *IG *IG.CK400 SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.CK400.S D3T3 161 IG.*IG.CK400.SA.13 1 LINE 83 4 DISK UM BLINN MAY 25, 1973 01:00.15 0 DDR FOR COMPUTEK 400 STORAGE TUBE TERMINAL. 00498/14 *IG *IG.CK400 OE *IG.CK400 D3T3 162 IG.*IG.CK400.OE.14 1 SEQ 1788 1 PAGE UM BLINN AUG. 03, 1973 21:40.05 00498/15 *IG *IG.PEP SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.PEP.S D3T3 163 IG.*IG.PEP.SA.15 1 LINE 81 6 DISK UM BLINN MAY 25, 1973 00:59.59 0 DDR FOR PRINCETON ELECTRONICS PRODUCTS 801 LITHICON TUBE DISPLAY TERMINAL. 00498/16 *IG *IG.PEP OE *IG.PEP D3T3 164 IG.*IG.PEP.OE.16 1 SEQ 2276 1 PAGE UM BLINN AUG. 03, 1973 21:40.15 00498/17 *IG *IG.TTY SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.TTY.S D3T3 165 IG.*IG.TTY.SA.17 1 LINE 83 5 DISK UM BLINN JUNE 28, 1973 23:29.39 0 DDR FOR TELETYPES. USED TO GET HARD COPY WHILE DEBUGGING PROGRAMS. 00498/18 *IG *IG.TTY OE *IG.TTY D3T3 166 IG.*IG.TTY.OE.18 1 SEQ 3233 1 PAGE UM BLINN AUG. 03, 1973 21:40.28 00498/19 *IG *IG.TX4002 SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.TX4002.S D3T3 167 IG.*IG.TX4002.SA.19 1 LINE 76 5 DISK UM BLINN APR. 23, 1973 15:29.42 0 DDR FOR TEKTRONIX 4002 STORAGE TUBE DISPLAY. 00498/20 *IG *IG.TX4002 OE *IG.TX4002 D3T3 168 IG.*IG.TX4002.OE.20 1 SEQ 1980 1 PAGE UM BLINN AUG. 03, 1973 21:40.48 00498/21 *IG *IG.TX4010 SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.TX4010.S D3T3 169 IG.*IG.TX4010.SA.21 1 LINE 85 5 DISK UM BLINN APR. 23, 1973 15:29.50 0 DDR FOR TEKTRONIX 401X STORAGE TUBE DISPLAY. 00498/22 *IG *IG.TX4010 OE *IG.TX4010 D3T3 170 IG.*IG.TX4010.OE.22 1 SEQ 2072 1 PAGE UM BLINN AUG. 03, 1973 21:40.58 00498/23 *IG *IG.338 SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.338.S D3T3 171 IG.*IG.338.SA.23 1 LINE 82 5 DISK UM BLINN APR. 23, 1973 15:30.10 0 DDR FOR DEC 338 DISPLAY RUNNING RAMP 69 OPERATING SYSTEM. 00498/24 *IG *IG.338 OE *IG.338 D3T3 172 IG.*IG.338.OE.24 1 SEQ 1572 1 PAGE UM BLINN AUG. 03, 1973 21:41.08 00498/25 *IG *IG.339 SA S0596 BLAH 'IG ROUTINES' FSNAME=IG.339.S D3T3 173 IG.*IG.339.SA.25 1 LINE 86 4 DISK UM BLINN APR. 23, 1973 15:30.22 0 DDR FOR DEC 339 DISPLAY RUNNING IGRI PROGRAM UNDER SEL EXEC SYSTEM. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00498/26 *IG *IG.339 OE *IG.339 D3T3 174 IG.*IG.339.OE.26 1 SEQ 1102 1 PAGE UM BLINN AUG. 03, 1973 21:41.17 00498/27 *IG IGRI S S0596 BLAH 'IG ROUTINES' FSNAME=IGRI.S D3T3 175 IG.IGRI.S.27 1 LINE 82 8 DISK UM BLINN APR. 23, 1973 15:30.53 0 PDP-9 ASSEMBLY LANGUAGE SOURCE FOR IG INTERPRETER FOR DEC 339 DISPLAY. OBJECT NOT DISTRIBUTED. 00498/28 *IG IG.TEST SF S0596 BLAH 'IG ROUTINES' FSNAME=IG.TEST.S D3T3 176 IG.IG.TEST.SF.28 1 LINE 71 4 DISK UM BLINN MAY 14, 1973 21:08.12 0 IG TEST PROGRAM. OBJECT NOT DISTRIBUTED. 00498/29 *IG USER'S GUIDE WF S0596 BLAH 'IG ROUTINES' FSNAME=IG.W D3T3 177 IG.USER'S_GUIDE.WF.29 1 LINE 117 14 DISK UM BLINN APR. 23, 1973 20:23.21 00498/30 *IG INSTALLATION WF S0596 BLAH 'IG ROUTINES' FSNAME=IGIG.W D3T3 178 IG.INSTALLATION.WF.30 1 LINE 125 8 DISK UM BLINN APR. 23, 1973 15:25.02 0 IMPLEMENTATION GUIDE. 00500/1 BILLING BILLRFT SP G BLRF S0027 DISTRB FSNAME=BILLRFT D3.1T1 294 BILLING.BILLRFT.SP.1 1 LINE 80 16 PAGE UM ENGLE JAN. 31, 1974 17:15.27 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/2 BILLING BILLRFT OC G S0027 DISTRB FSNAME=BLRF D3.1T1 295 BILLING.BILLRFT.OC.2 1 LINE 80 14 PAGE UM ENGLE JAN. 31, 1974 17:15.59 0 REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';). 00500/3 BILLING BILLRFT OC G S0027 DISTRB FSNAME=NETBLRF D3.1T1 296 BILLING.BILLRFT.OC.3 1 LINE 80 10 PAGE UM ENGLE JAN. 31, 1974 17:16.10 0 REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/4 BILLING BILLING SP G BILL S0027 DISTRB FSNAME=BILLING D3.1T1 297 BILLING.BILLING.SP.4 1 LINE 80 24 PAGE UM ENGLE JAN. 31, 1974 17:18.35 0 PROGRAM TO DO MAIN PART OF BILLING AFTER SORT. 0 Referenced by comments of: 500/11, 500/13, 500/26 00500/5 BILLING BILLING OC G S0027 DISTRB FSNAME=BILL D3.1T1 298 BILLING.BILLING.OC.5 1 LINE 80 18 PAGE UM ENGLE NOV. 12, 1973 11:27.20 0 REGULAR BILLING (COMPILED WITH %NET='';). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00500/6 BILLING BILLING OC G S0027 DISTRB FSNAME=NETBILL D3.1T1 299 BILLING.BILLING.OC.6 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 17:19.33 0 NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/7 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. 0 Referenced by comments of: 500/12 00500/8 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/9 BILLING BILLWRITEUP WF G S0027 DISTRB FSNAME=BILLWRITEUP D3.1T1 300 BILLING.BILLWRITEUP.WF.9 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 17:21.56 0 WRITEUP FOR RUNNING BILLING. 00500/10 BILLING BILLSOURCE C G S0027 DISTRB FSNAME=BILLSOURCE 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.1T1 302 BILLING.BILLTABLES.D.11 1 LINE 80 6 PAGE UM ENGLE JAN. 31, 1974 17:28.38 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 D3T3 193 BILLING.DIVISION.D.13 1 LINE 104 12 DISK UM ENGLE JAN. 05, 1973 16:41.08 0 MACHINE READABLE TABLE OF UNIVERSITY UNITS ACCORDING TO UNIT CODE. READ AND WRITTEN BY BILPRNT (500/7). 00500/13 BILLING COVER D G S0027 DISTRB FSNAME=COVER D3.1T1 303 BILLING.COVER.D.13 1 LINE 66 1 PAGE UM ENGLE JAN. 31, 1974 17:29.04 0 MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS. READ BY BILLING (500/4). 00500/14 BILLING RESTART C G S0027 DISTRB FSNAME=RESTART 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.1T1 305 BILLING.BILLLIB.OL.15 1 LINE 80 4 PAGE UM ENGLE FEB. 22, 1974 18:27.30 0 LIBRARY FOR BILLING PROGRAMS. ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 S0027 DISTRB FSNAME=FLSH D3.1T1 306 BILLING.FLUSH.OC.17 1 LINE 80 1 PAGE UM ENGLE JAN. 08, 1974 15:46.26 00500/18 BILLING BLPRJFL SA G BPFL S0722 'D3T3' FSNAME=BILLING.BLPRJFL.SA.18 198 D3T3 198 BILLING.BLPRJFL.SA.18 1 LINE 80 4 PAGE UM ENGLE JAN. 05, 1973 18:05.37 0 SUBROUTINE TO READ THE NEXT PROJECT RECORD FROM *PROJECT. CALLED BY BILLRFT (500/1). COPIES ACCPROJFMT (104/3). 00500/19 BILLING BLPRJFL OC G S0027 DISTRB FSNAME=BPFL D3.1T1 307 BILLING.BLPRJFL.OC.19 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 17:39.09 00500/20 BILLING PNLIST SP G PNLS S0027 DISTRB FSNAME=PNLIST D3.1T1 308 BILLING.PNLIST.SP.20 1 LINE 80 5 PAGE UM ENGLE NOV. 12, 1973 12:04.33 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.1T1 309 BILLING.PNLIST.OC.21 1 LINE 80 6 PAGE UM ENGLE NOV. 12, 1973 12:05.10 00500/22 BILLING PNLSEXTR SA G PEXT S0027 DISTRB FSNAME=PNLSEXTR D3.1T1 310 BILLING.PNLSEXTR.SA.22 1 LINE 80 3 PAGE UM ENGLE NOV. 12, 1973 12:08.33 0 SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST (500/20). CALLED BY PRJLIST (104/35) WHICH IS CALLED BY PNLIST. COPIES ACCPROJFMT (104/3). 00500/23 BILLING PNLSEXTR OC G S0027 DISTRB FSNAME=PEXT D3.1T1 311 BILLING.PNLSEXTR.OC.23 1 LINE 80 1 PAGE UM ENGLE JAN. 31, 1974 17:49.46 00500/24 BILLING BLRECPR SP G BLRP S0722 'D3T3' FSNAME=BILLING.BLRECPR.SP.24 204 D3T3 204 BILLING.BLRECPR.SP.24 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1973 13:51.34 0 PROGRAM TO PRINT REFORMATTED BILLING RECORDS PRODUCED BY BILLRFT (500/1). 00500/25 BILLING BLRECPR OC G S0722 'D3T3' FSNAME=BILLING.BLRECPR.OC.25 205 D3T3 205 BILLING.BLRECPR.OC.25 1 LINE 80 2 DISK UM ENGLE JAN. 09, 1973 13:51.51 00500/26 BILLING POSIFIL SP G POSF S0027 DISTRB FSNAME=POSIFIL 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00500/27 BILLING POSIFIL OC G POSF S0027 DISTRB FSNAME=POSF D3.1T1 313 BILLING.POSIFIL.OC.27 1 LINE 80 2 PAGE UM ENGLE JAN. 08, 1974 15:49.29 00501/1 MTS VOLUME 3 MASTER WT G S0486 MTSV3 'MTS MANUALS' POSN=NEWM7.V3 D3T3 206 MTS_VOLUME_3.MASTER.WT.1 1 SEQ 132 344 PAGE UM SALISBURY AUG. 03, 1973 21:52.05 0 TEXT/360 MASTER FOR VOLUME 3 "SUBROUTINE AND MACRO DESCRIPTIONS" OF THE UM MTS MANUAL. 00501/2 MTS VOLUME 3 PRINT PT G > S0486 MTSV3 'MTS MANUALS' POSN=PRINT7.V3 D3T3 207 MTS_VOLUME_3.PRINT.PT.2 1 SEQ 132 454 PAGE UM SALISBURY AUG. 03, 1973 21:56.56 0 TEXT/360 PRINT FILE. 00502/1 DEADFILES SCANFILES SA G SCNF RSTR:DEADSCANFILE(1000) D3.1T1 314 DEADFILES.SCANFILES.SA.1 1 LINE 80 8 PAGE UM BERSTIS MAR. 06, 1974 17:49.48 0 DEADFILES IS A SERIES OF PROGRAMS USED TO REMOVE FILES WHICH BELONG TO EXPIRED USER ID'S. AT UM, THE PROCEDURE, OUTLINED BELOW, IS DONE ONCE PER MONTH AND THE TAPE(S) GENERATED ARE SAVED INDEFINITELY (AS LEAST SO FAR). PROCEDURE FOR REMOVING FILES BELONGING TO EXPIRED SIGNON ID'S (DEADFILES) 1. DEADFILES SHOULD BE RUN FROM A TERMINAL (NOT BATCH) AND MAY BE RUN DURING NORMAL SYSTEM OPERATION. DEPENDING ON HOW MANY FILES ARE TO BE REMOVED, THIS PROCEDURE MAY EASILY TAKE SEVERAL HOURS (ELAPSED) TO COMPLETE. 2. AFTER SIGNING ON, ENTER THE FOLLOWING COMMANDS: $CREATE DEADFILES SIZE=10P $CREATE CATLIST SIZE=10P $CREATE ACCLIST SIZE=10P $REL $RUN SCANFILES SPRINT=*PRINT* 0=DEADFILES 1=CATLIST 2=ACCLIST NOTE: A PERMANENT FILE MAY BE USED IN PLACE OF *PRINT* IF DESIRED; HOWEVER, THE OUTPUT MUST BE PRINTED AND INSPECTED. 3. CHECK THE OUTPUT FROM STEP 2 TO SEE IF THERE ARE ENOUGH FILES FLAGGED 'EXP' OR 'MISSING' TO BE WORTH CONTINUING. NOTHING HAS BEEN DONE TO ANY OF THE FILES AT THIS POINT. 4. MAKE A LISTING OF THE FILE "DEADFILES" FOR LATER USE. 5. ENTER THE COMMAND: $RUN SAVEFILES 0=*SOURCE* 1=DEADFILES SPRINT=*PRINT* WHEN ASKED, ENTER THE NAME OF A 9-TRACK TAPE DRIVE. SAVE THE TAPE WHICH IS PRODUCED. FILES FROM IT CAN BE RESTORED AT A LATER TIME USING *RST (092). AT UM, WE MAKE A $5.00 SERVICE CHARGE FOR RESTORING FILES. 6. COMPARE THE OUTPUT FROM STEP 5 WITH THE LISTING OF "DEADFILES" TO MAKE SURE THAT ALL FILES WERE PROPERLY SAVED. 1 FRI AUG 02/96 18:37:32 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 7. ENTER THE COMMAND: $RUN COPYSAVE 0=>T9XX 1=>T9YY WHERE T9XX IS THE TAPE DRIVE ON WHICH THE SAVE TAPE PRODUCED IN STEP 5 IS MOUNTED (RING OUT) AND T9YY IS THE TAPE DRIVE ON WHICH THE TAPE WHICH WILL BE WRITTEN AS A COPY OF THE SAVE TAPE IS MOUNTED (RING IN). 8. COMPARE THE COUNT PRINTED IN STEP 7 WITH THE NUMBER OF THE LAST LINE IN DEADFILES. IF THEY DO NOT AGREE, STOP!!!!! 9. ENTER THE COMMAND: $RUN PRINTSAVE SPRINT=*PRINT* 0=>T9XX 1=*DUMMY* WHERE T9XX IS A TAPE DRIVE ON WHICH IS MOUNTED ONE THE TAPES FROM STEP 7. THE OUTPUT, WHICH IS A LISTING OF ALL FILES ON THE TAPE SORTED BY SIGNON ID, SHOULD BE SAVED WITH THE TWO TAPES FROM STEP 7. 10. IF THERE HAS BEEN ANY TROUBLE UP TO THIS POINT, DO NOT CONTINUE; OTHERWISE, ENTER: $RUN DESTROY SCARDS=DEADFILES SPRINT=*PRINT* THIS IS THE STEP WHICH ACTUALLY DESTROYS THE FILES. 11. ENTER THE COMMAND: $RUN CATDES SCARDS=CATLIST SPRINT=*PRINT* THIS STEP DESTROYS THE CATALOG ENTRIES FOR THE EXPIRED SIGNON ID'S. 12. ENTER THE COMMAND: $RUN FIX SCARDS=ACCLIST SPRINT=*PRINT* THIS RESETS THE ACCOUNTING FILE RECORDS FOR THE SIGNON ID'S WHICH HAD FILES DESTROYED AND BILLS FOR THE FILE STORAGE UP TO THE EXPIRATION TIME OF THE USER ID. 13. ENTER THE COMMANDS: $DESTROY DEADFILES $DESTROY CATLIST $DESTROY ACCLIST SCANFILES MAKES A LIST OF WHAT FILES ARE TO BE REMOVED. COPIES COPY:CATEQU (482/28) AND W013:ACCFORMAT (104/1). ASSEMBLE WITH *SYSMAC. NOTE: THIS PROGRAM CALLS THE ACCOUNTING SUBROUTINES ACCIO (104/18) AND GETFILE (104/89), OBJECT DECKS FOR WHICH MUST BE INCLUDED WITH THE OBJECT FOR THIS PROGRAM. FOR D3.1, THE ONLY CHANGE IS IN ACCFORMAT (104/1) WHICH THIS COPIES. 0 Referenced by comments of: 92/1 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00502/2 DEADFILES SCANFILES OC G RSTR:DEADSCANFILE(1,998) D3.1T1 315 DEADFILES.SCANFILES.OC.2 1 LINE 255 4 PAGE UM BERSTIS MAR. 06, 1974 17:49.51 0 THE ACCIO SUBROUTINE IN THIS OBJECT DECK HAS SEVERAL REP CARDS TO CHANGE THE NAMES OF THE "ACCOUNTING" FILES FROM "$-----" (AS ASSEMBLED FOR TESTING) TO "*------" FOR ACTUAL USE. 00502/3 DEADFILES COPYSAVE SA G CPSV RSTR:DEADCOPYSAVE(1000) D3T3 210 DEADFILES.COPYSAVE.SA.3 1 LINE 80 2 PAGE UM BERSTIS AUG. 03, 1973 22:01.57 0 PROGRAM TO COPY A FILE SAVE TAPE COUNTING THE NUMBER OF FILES ON IT. ASSEMBLE WITH *SYSMAC. 00502/4 DEADFILES COPYSAVE OC G RSTR:DEADCOPYSAVE(1,998) D3T3 211 DEADFILES.COPYSAVE.OC.4 1 LINE 80 1 PAGE UM BERSTIS AUG. 03, 1973 22:02.03 00502/5 DEADFILES PRINTSAVE SA G PRSV RSTR:DEADPRNTSAVE(1000) D3.1T1 316 DEADFILES.PRINTSAVE.SA.5 1 LINE 80 3 PAGE UM BERSTIS MAR. 06, 1974 17:49.53 0 PROGRAM TO PRINT A SORTED LIST OF FILES ON A SAVE TAPE SEPARATED BY USERID. ASSEMBLE WITH *SYSMAC. FOR D3.1, THIS HAS BEEN CHANGED TO USE A LARGER BUFFER. 00502/6 DEADFILES PRINTSAVE OC G RSTR:DEADPRNTSAVE(1,998) D3.1T1 317 DEADFILES.PRINTSAVE.OC.6 1 LINE 255 3 PAGE UM BERSTIS MAR. 06, 1974 17:49.55 00502/7 DEADFILES DESTROY SA G DSTR RSTR:DEADFILEDES(1000) D3T3 214 DEADFILES.DESTROY.SA.7 1 LINE 80 3 PAGE UM BERSTIS AUG. 03, 1973 22:02.17 0 PROGRAM TO DESTROY A LIST OF FILES. CALLS DESTROY DIRECTLY, NOT THE MTS INTERFACE TO IT. ASSEMBLE WITH *SYSMAC AND PAR=B. 00502/8 DEADFILES DESTROY OC G RSTR:DEADFILEDES(1,998) D3T3 215 DEADFILES.DESTROY.OC.8 1 LINE 80 1 PAGE UM BERSTIS AUG. 03, 1973 22:02.23 00502/9 DEADFILES CATDES SA G CDES RSTR:DEADUCATDES(1000) D3T3 216 DEADFILES.CATDES.SA.9 1 LINE 80 2 PAGE UM BERSTIS AUG. 03, 1973 22:02.28 0 PROGRAM TO DESTROY USER CATALOGS. IT DOES NOT CHECK TO SEE IF THERE ARE ANY FILES IN THE CATALOG BEFORE DESTROYING IT (WHICH IT SHOULD). THIS IS THE ONLY WAY THAT CATALOG SPACE IS EVER RECLAIMED AND IF THIS PROGRAM IS NOT RUN, THE CATALOG WILL ONLY GET BIGGER. ASSEMBLE WITH *SYSMAC. 00502/10 DEADFILES CATDES OC G RSTR:DEADUCATDES(1,998) D3T3 217 DEADFILES.CATDES.OC.10 1 LINE 80 1 PAGE UM BERSTIS AUG. 03, 1973 22:02.33 00502/11 DEADFILES SAVEFILES SA G SVFL RSTR:DEADSAVE(1000) D3T3 218 DEADFILES.SAVEFILES.SA.11 1 LINE 80 6 PAGE UM BERSTIS AUG. 03, 1973 22:02.38 0 PROGRAM TO SAVE A SPECIFIC SET OF FILES IN THE SAME FORMAT AS FILESAVE (067). COPIES COPY:CATEQU (482/28). ASSEMBLE WITH *SYSMAC. CALLS THE FOLLOWING SUBROUTINES: SAVEFILE (067/2), TAPEOUT (067/3), AND FILEDSCB (502/13). 0 Referenced by comments of: 502/13 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00502/12 DEADFILES SAVEFILES OC G RSTR:DEADSAVEOBJ D3T3 219 DEADFILES.SAVEFILES.OC.12 1 SEQ 2634 3 PAGE UM BERSTIS AUG. 03, 1973 22:02.43 00502/13 DEADFILES FILEDSCB SUBR SA G DSCB RSTR:FILEDSCB(1000) D3T3 220 DEADFILES.FILEDSCB_SUBR.SA.13 1 LINE 80 5 PAGE UM BERSTIS AUG. 03, 1973 22:02.48 0 SUBROUTINE CALLED BY SAVEFILES (502/11) TO GET DSCB'S FOR A FILE. COPIES COPY:DSCBDSCT (482/41), COPY:DSKDSCT (482/42), AND COPY:FCBEQU (482/27). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 502/11 00502/14 DEADFILES FILEDSCB SUBR OC G RSTR:FILEDSCB(1,998) D3T3 221 DEADFILES.FILEDSCB_SUBR.OC.14 1 LINE 80 2 PAGE UM BERSTIS AUG. 03, 1973 22:02.54 00502/15 DEADFILES FIX SA G DFFX 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/1 MTS VOLUME 1 MASTER WT G S0488 MTSV1 'MTS MANUALS' POSN=NEWM4.V1 D3T3 224 MTS_VOLUME_1.MASTER.WT.1 1 SEQ 132 336 PAGE UM SALISBURY AUG. 03, 1973 22:07.51 0 TEXT/360 MASTER FOR VOLUME 1 "MTS AND THE COMPUTING CENTER" OF THE UM MTS MANUAL (JANUARY 1973) INCLUDING UPDATE NUMBER 1 (JULY 1973) WHICH WAS ISSUED AS CCMEMO M243 (120 PP). 00504/2 MTS VOLUME 1 PRINT PT G > S0488 MTSV1 'MTS MANUALS' POSN=PRINT4.V1 D3T3 225 MTS_VOLUME_1.PRINT.PT.2 1 SEQ 132 275 PAGE UM SALISBURY AUG. 03, 1973 22:11.43 0 TEXT/360 PRINT FILE. 00504/3 MTS VOLUME 1 ERROR DUMP P G S0488 MTSV1 'MTS MANUALS' POSN=ERRORDUMP2 D3T3 226 MTS_VOLUME_1.ERROR_DUMP.P.3 1 SEQ 133 3 PAGE UM SALISBURY AUG. 03, 1973 22:18.57 0 PRINTED OUTPUT FOR EXAMPLE ON PAGES 419 AND 420. 00505/1 ALGOL DUMPRESTORE C S0504 'UBC -> UM #6' FMT=U(255) 1 D3T3 227 ALGOL.DUMPRESTORE.C.1 1 SEQ 44 2 PAGE UNE SALISBURY AUG. 03, 1973 22:20.29 0 MTS COMMANDS USED TO GENERATE OR RESTORE THE ALGOL FILES ON THE UNE ALGOL DISTRIBUTION TAPE. ALTHOUGH THESE COMMANDS ARE NOT APPROPRIATE FOR RESTORING THE ALGOL FILES FROM THE DIST 3 TAPE, THEY ARE INCLUDED BECAUSE THEY SHOW THE ORGANIZATION OF THE UNE ALGOL. 00505/2 ALGOL CINTSORC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 4 D3T3 228 ALGOL.CINTSORC.SA.2 1 SEQ 80 30 PAGE UNE SALISBURY AUG. 03, 1973 22:20.35 0 COMPILER/MTS INTERFACE MODULE. ASSEMBLE WITH *SYSMAC. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 Referenced by comments of: 505/19 00505/3 ALGOL FSACONV SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 5 D3T3 229 ALGOL.FSACONV.SA.3 1 SEQ 80 2 PAGE UNE SALISBURY AUG. 03, 1973 22:20.37 0 COPY SECTION COPIED BY COMPILER. 00505/4 ALGOL FSAREA SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 6 D3T3 230 ALGOL.FSAREA.SA.4 1 SEQ 80 3 PAGE UNE SALISBURY AUG. 03, 1973 22:20.43 0 COPY SECTION COPIED BY COMPILER. 00505/5 ALGOL IEX50T SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 7 D3T3 231 ALGOL.IEX50T.SA.5 1 SEQ 80 95 PAGE UNE SALISBURY AUG. 03, 1973 22:20.57 0 COPY SECTION COPIED BY COMPILER. 00505/6 ALGOL IEX60000 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 8 D3T3 232 ALGOL.IEX60000.SA.6 1 SEQ 80 15 PAGE UNE SALISBURY AUG. 03, 1973 22:21.06 0 COPY SECTION COPIED BY COMPILER. 00505/7 ALGOL OSALG00 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 14 D3T3 233 ALGOL.OSALG00.SA.7 1 SEQ 80 10 PAGE UNE SALISBURY AUG. 03, 1973 22:21.22 0 COMPS 505/7 THROUGH 505/16 ARE OS/360 ALGOL COMPILER SOURCE. EACH MUST BE ASSEMBLED USING THE SPECIAL OS MACRO LIBRARY (505/17). 00505/8 ALGOL OSALG01 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 15 D3T3 234 ALGOL.OSALG01.SA.8 1 SEQ 80 4 PAGE UNE SALISBURY AUG. 03, 1973 22:21.23 00505/9 ALGOL OSALG10 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 16 D3T3 235 ALGOL.OSALG10.SA.9 1 SEQ 80 22 PAGE UNE SALISBURY AUG. 03, 1973 22:21.29 00505/10 ALGOL OSALG11 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 17 D3T3 236 ALGOL.OSALG11.SA.10 1 SEQ 80 88 PAGE UNE SALISBURY AUG. 03, 1973 22:21.44 00505/11 ALGOL OSALG20 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 18 D3T3 237 ALGOL.OSALG20.SA.11 1 SEQ 80 16 PAGE UNE SALISBURY AUG. 03, 1973 22:21.54 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00505/16 ALGOL OSALG51M SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 23 D3T3 242 ALGOL.OSALG51M.SA.16 1 SEQ 80 9 PAGE UNE SALISBURY AUG. 03, 1973 22:22.36 00505/17 ALGOL OSMAC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 24 D3T3 243 ALGOL.OSMAC.SA.17 1 SEQ 80 103 PAGE UNE SALISBURY AUG. 03, 1973 22:22.49 0 SPECIAL OS INTERFACE MACRO LIBRARY. MUST BE USED TO ASSEMBLE COMPS 505/7 THROUGH 505/16. 0 Referenced by comments of: 505/7, 505/20, 505/21 00505/18 ALGOL WORKAREA SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 25 D3T3 244 ALGOL.WORKAREA.SA.18 1 SEQ 80 4 PAGE UNE SALISBURY AUG. 03, 1973 22:22.57 0 COPY SECTION COPIED BY COMPILER AND LIBRARY. 00505/19 ALGOL *ALGOL OC G *ALGOL D3T3 245 ALGOL.*ALGOL.O.19 1 SEQ 80 31 PAGE UM SALISBURY AUG. 03, 1973 22:23.02 0 COMPLETE COMPILER OBJECT FILE. CONSISTS OF OBJECT OF COMPS 505/7 THROUGH 505/16 (THE OS/360 SOURCE) PLUS THE COMPILER/MTS INTERFACE MODULE (505/2) AND AN " ENT COMENTRY" LOADER CARD TO SPECIFY THE COMPILER ENTRY POINT. 00505/20 ALGOL LIBSORC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 11 D3T3 246 ALGOL.LIBSORC.SA.20 1 SEQ 80 181 PAGE UNE SALISBURY AUG. 03, 1973 22:23.48 0 OS/360 LIBRARY SOURCE. ASSEMBLE WITH OSMAC (505/17). 00505/21 ALGOL LIBSORC1 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 12 D3T3 247 ALGOL.LIBSORC1.SA.21 1 SEQ 80 37 PAGE UNE SALISBURY AUG. 03, 1973 22:24.06 0 MORE OS/360 LIBRARY SOURCE. ASSEMBLE WITH OSMAC (505/17). 00505/22 ALGOL LINTSORC SA G MTA:ALGLIBINT D3T3 248 ALGOL.LINTSORC.SA.22 1 LINE 80 28 PAGE UM SALISBURY AUG. 03, 1973 22:24.23 0 LIBRARY/MTS INTERFACE MODULE. ASSEMBLE WITH *SYSMAC. MODIFIED BY UM. 0 Referenced by comments of: 505/23 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 1 FRI AUG 02/96 18:37:32 Page 153 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 EXCEPT FOR "FORMAT" WHICH IS ASSEMBLE LANGUAGE. 00505/25 ALGOL *KDFLIB OL G *KDFLIB D3T3 251 ALGOL.*KDFLIB.OL.25 1 SEQ 348 56 PAGE UM SALISBURY AUG. 03, 1973 22:25.11 0 KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB. NOTE: THIS VERSION OF KDFLIB USES SHORT FLOATING POINT ARITHMETIC. PAR=LONG,PROCEDURE SHOULD BE USED TO RECOMPILE THE LIBRARY IF LONG FLOATING POINT ARITHMETIC IS DESIRED. 00505/26 ALGOL KDFLIBTEST S G MTA:KDFLIBTEST D3T3 252 ALGOL.KDFLIBTEST.S.26 1 LINE 67 1 PAGE UM MTA AUG. 03, 1973 22:25.28 0 ALGOL PROGRAM TO TEST *KDFLIB. 00506/1 PL1 MAINTENANCE CRELCS SA G CLCS S0410 MTSPL1 'PL1LIB' POSN=CRELCS 37 D3T4 1 PL1_MAINTENANCE.CRELCS.SA.1 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 21:55.11 0 CREATE LOW-CORE SYMBOL TABLES, ESPECIALLY PL1SYM AND INTSUBS. 0 Referenced by comments of: 506/9, 506/10 00506/2 PL1 MAINTENANCE CRELCSPR SA G LCSP W062:CRELCSPR(1,999) D3T4 2 PL1_MAINTENANCE.CRELCSPR.SA.2 1 LINE 80 5 PAGE UM TIFFANY AUG. 01, 1973 21:55.14 0 SAME AS 506/1 EXCEPT FOR PSEUDO-REGISTERS. IHEPRD IS GENERATED. 0 Referenced by comments of: 233/39 00506/3 PL1 MAINTENANCE FIXSEQ2 SA G FXS2 S0410 MTSPL1 'PL1LIB' POSN=FIXSEQ2 41 D3T4 3 PL1_MAINTENANCE.FIXSEQ2.SA.3 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 21:55.21 0 PROGRAM TO CONVERT ALL LONG RECORDS (>256 BYTES) TO RECORDS NOT LONGER THAN 256 SO THAT THEY CAN BE LOADED BY THE SEGMENT 2 LOADER. 00506/4 PL1 MAINTENANCE PICKUP SA G PKUP S0410 MTSPL1 'PL1LIB' POSN=PICKUP 42 D3T4 4 PL1_MAINTENANCE.PICKUP.SA.4 1 SEQ 80 4 PAGE UM TIFFANY AUG. 01, 1973 21:55.27 0 PROGRAM TO PICK UP A MODULE FROM A LOADER LIBRARY. 00506/5 PL1 MAINTENANCE PL1LOADR SA G PL1L S0410 MTSPL1 'PL1LIB' POSN=PL1LOADR 43 D3T4 5 PL1_MAINTENANCE.PL1LOADR.SA.5 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 21:55.31 0 SIMULATE LOADING PROCESS WITH PL/I LIBRARY IN SEGMENT 5 INSTEAD OF SEGMENT 2 (FOR CHECKOUT). 00506/6 PL1 MAINTENANCE SYMBOLS SA G SYMB S0410 MTSPL1 'PL1LIB' POSN=SYMBOLS 44 D3T4 6 PL1_MAINTENANCE.SYMBOLS.SA.6 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 21:55.40 0 PRINT PL1LIB SYMBOLS AND THEIR CURRENT ADDRESSES. 00506/7 PL1 MAINTENANCE REMOVELIBS SA G RMVL S0410 MTSPL1 'PL1LIB' POSN=REMOVELIBS 45 D3T4 7 PL1_MAINTENANCE.REMOVELIBS.SA.7 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 21:55.42 0 REMOVE LOADER CARDS LIKE RIP, LIB, ETC. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00506/8 PL1 MAINTENANCE GENSPL1LIB C S0410 MTSPL1 'PL1LIB' POSN=GENSPL1LIB 46 D3T4 8 PL1_MAINTENANCE.GENSPL1LIB.C.8 1 SEQ 122 1 PAGE UM TIFFANY AUG. 01, 1973 21:55.49 0 COMMANDS TO GENERATE SHAREDPL1LIB. 00506/9 PL1 MAINTENANCE PL1SYMBOLS D S0410 MTSPL1 'PL1LIB' POSN=PL1SYMBOLS 47 D3T4 9 PL1_MAINTENANCE.PL1SYMBOLS.D.9 1 SEQ 117 2 PAGE UM TIFFANY AUG. 01, 1973 21:55.55 0 LIST OF PL/I SYMBOL NAMES. USED BY CRELCS (506/1). 00506/10 PL1 MAINTENANCE INTSUBS D S0410 MTSPL1 'PL1LIB' POSN=INTSUBS 48 D3T4 10 PL1_MAINTENANCE.INTSUBS.D.10 1 SEQ 56 1 PAGE UM TIFFANY AUG. 01, 1973 21:56.00 0 LIST OF INTERNAL SUBROUTINES. USED BY CRELCS (506/1). 00506/11 PL1 MAINTENANCE PATCHER SA G PAT0 S0410 MTSPL1 'PL1LIB' POSN=PATCHER 52 D3T4 11 PL1_MAINTENANCE.PATCHER.SA.11 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 21:56.10 0 MODULE TO INSERT PATCHES INTO PL1 COMPILER AS IT IS LOADED 00506/12 PL1 MAINTENANCE LLXU SA G LLXU 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/1 *LIM C *LIM D3T4 16 LIM..C.1 1 LINE 66 1 PAGE UM WSG AUG. 01, 1973 21:58.41 0 COMMAND FILE USED BY OPERATORS TO FIND OUT HOW MUCH CPU TIME IS REMAINING FOR AN EXECUTING BATCH JOB. INVOKED BY ENTERING "MTS *LIM" ON OPERATOR'S CONSOLE. 00507/2 *LIM TLIMIT PGM SA O TLIM WSG:TLIMIT(1,999) D3T4 17 LIM.TLIMIT_PGM.SA.2 1 LINE 80 3 PAGE UM WSG AUG. 01, 1973 21:58.47 0 PROGRAM TO COMPUTE HOW MUCH TIME IS LEFT BEFORE A JOB EXCEEDS ITS GLOBAL TIME LIMIT. OPERATOR ENTERS EITHER AN UMMPS JOB NUMBER OR USER ID TO SPECIFY THE JOB FOR WHICH THE REMAINING TIME IS TO BE CALCULATED. END-OF-FILE TERMINATES PROGRAM. ASSEMBLE USING *SYSMAC. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00507/3 *LIM TLIMIT PGM OC O WSG:TLIMIT(1000) D3T4 18 LIM.TLIMIT_PGM.OC.3 1 LINE 80 1 PAGE UM WSG AUG. 01, 1973 21:58.51 00508/1 *BASIC STRT1 C W070:BASIC.STRT1 D3T4 19 BASIC.STRT1.C.1 1 LINE 70 1 PAGE UM LUBBERS AUG. 01, 1973 21:58.56 0 MTS COMMANDS TO CREATE AND RESTORE FILES NEEDED TO GENERATE BASIC. ASSUMES THAT BASIC (BY ITSELF) IS ON A *FS TAPE AND RESTORES FILES FROM IT. 00508/2 *BASIC STRT2 C W070:BASIC.STRT2 D3T4 20 BASIC.STRT2.C.2 1 LINE 126 1 PAGE UM LUBBERS AUG. 01, 1973 21:59.00 0 MTS COMMANDS TO ASSEMBLE AND LINK-EDIT BASIC. ASSUMES THE ASSEMBLER IS ON A REGULAR BLOCKED TAPE. 00508/3 *BASIC BIFDSECT SA G W070:BIFDSECT D3T4 21 BASIC.BIFDSECT.SA.3 1 LINE 66 1 PAGE UM LUBBERS AUG. 01, 1973 21:59.05 0 THE DSECT USED BY "BUILT-IN" FUNCTIONS. 00508/4 *BASIC CLIDSECT SA G W070:CLIDSECT D3T4 22 BASIC.CLIDSECT.SA.4 1 LINE 72 3 PAGE UM LUBBERS AUG. 01, 1973 21:59.10 0 THE DSECT USED BY COMMAND AND CMNDINIT. 00508/5 *BASIC DS6A SA G W070:DS6A D3T4 23 BASIC.DS6A.SA.5 1 LINE 72 1 PAGE UM LUBBERS AUG. 01, 1973 21:59.15 0 THE DSECT USED BY LOADER. 00508/6 *BASIC DSECTCOMM SA G W070:DSECTCOMM D3T4 24 BASIC.DSECTCOMM.SA.6 1 LINE 70 3 PAGE UM LUBBERS AUG. 01, 1973 21:59.20 0 THE BASIC COMMON DSECT. 00508/7 *BASIC DSECT9A SA G W070:DSECT9A D3T4 25 BASIC.DSECT9A.SA.7 1 LINE 71 1 PAGE UM LUBBERS AUG. 01, 1973 21:59.24 0 THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH. 00508/8 *BASIC FHDRDSECT SA G W070:FHDRDSECT D3T4 26 BASIC.FHDRDSECT.SA.8 1 LINE 72 1 PAGE UM LUBBERS AUG. 01, 1973 21:59.29 0 THE "FILE HEADER" DSECT. 00508/9 *BASIC GLOBALSYM SA G W070:GLOBALSYM D3T4 27 BASIC.GLOBALSYM.SA.9 1 LINE 62 1 PAGE UM LUBBERS 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 LUBBERS AUG. 01, 1973 21:59.39 0 BASIC MACRO LIBRARY. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00508/11 *BASIC LDICDSCT SA G W070:LDICDSCT D3T4 29 BASIC.LDICDSCT.SA.11 1 LINE 72 1 PAGE UM LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS AUG. 01, 1973 22:00.19 0 THE "WORKING STORAGE LAYOUT" DSECT. 00508/19 *BASIC CLI SA G S0358 BSCSEF POSN=*BASIC.CLI 1 D3T4 37 BASIC.CLI.SA.19 1 SEQ 80 118 PAGE UM LUBBERS AUG. 01, 1973 22:01.38 00508/20 *BASIC LEX SA G S0358 BSCSEF POSN=*BASIC.LEX 2 D3T4 38 BASIC.LEX.SA.20 1 SEQ 80 111 PAGE UM LUBBERS AUG. 01, 1973 22:02.21 00508/21 *BASIC CMP SA G S0358 BSCSEF POSN=*BASIC.CMP 3 D3T4 39 BASIC.CMP.SA.21 1 SEQ 80 99 PAGE UM LUBBERS AUG. 01, 1973 22:03.05 00508/22 *BASIC CPS SA G S0358 BSCSEF POSN=*BASIC.CPS 4 D3T4 40 BASIC.CPS.SA.22 1 SEQ 80 79 PAGE UM LUBBERS AUG. 01, 1973 22:03.48 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00508/23 *BASIC NUM SA G S0358 BSCSEF POSN=*BASIC.NUM 5 D3T4 41 BASIC.NUM.SA.23 1 SEQ 80 60 PAGE UM LUBBERS AUG. 01, 1973 22:04.43 00508/24 *BASIC VFL SA G S0358 BSCSEF POSN=*BASIC.VFL 6 D3T4 42 BASIC.VFL.SA.24 1 SEQ 80 25 PAGE UM LUBBERS AUG. 01, 1973 22:05.36 00508/25 *BASIC BIO SA G S0358 BSCSEF POSN=*BASIC.BIO 7 D3T4 43 BASIC.BIO.SA.25 1 SEQ 80 47 PAGE UM LUBBERS AUG. 01, 1973 22:06.10 00508/26 *BASIC INF SA G S0358 BSCSEF POSN=*BASIC.INF 8 D3T4 44 BASIC.INF.SA.26 1 SEQ 80 42 PAGE UM LUBBERS AUG. 01, 1973 22:06.44 00508/27 *BASIC BSI SA G S0358 BSCSEF POSN=*BASIC.BSI 9 D3T4 45 BASIC.BSI.SA.27 1 SEQ 80 5 PAGE UM LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS 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 LUBBERS AUG. 01, 1973 22:08.51 0 NOTES ON THE INSTALLATION OF BASIC. COPY TO A TN PRINTER @MCC. 00508/34 *BASIC *DEAL D G W054:BSC.S*DEAL D3T4 52 BASIC.*DEAL.D.34 1 SEQ 4032 2 PAGE UM LUBBERS AUG. 01, 1973 22:08.58 0 COMPONENTS 508/34 THROUGH 508/40 ARE TEST PROGRAMS FOR *BASIC. THESE ARE IN THE BASIC INTERNAL FILE STRUCTURE. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00508/35 *BASIC *PLOT D G W054:BSC.S*PLOT D3T4 53 BASIC.*PLOT.D.35 1 SEQ 4032 2 PAGE UM LUBBERS AUG. 01, 1973 22:09.04 00508/36 *BASIC *RKDEQ D G W054:BSC.S*RKDEQ D3T4 54 BASIC.*RKDEQ.D.36 1 SEQ 4032 2 PAGE UM LUBBERS AUG. 01, 1973 22:09.10 00508/37 *BASIC *RKMAIN D G W054:BSC.S*RKMAIN D3T4 55 BASIC.*RKMAIN.D.37 1 SEQ 4032 2 PAGE UM LUBBERS AUG. 01, 1973 22:09.14 00508/38 *BASIC *SORT D G W054:BSC.S*SORT D3T4 56 BASIC.*SORT.D.38 1 SEQ 4032 2 PAGE UM LUBBERS AUG. 01, 1973 22:09.22 00508/39 *BASIC *CONCRD D G W054:BSC.S*CONCRD D3T4 57 BASIC.*CONCRD.D.39 1 SEQ 4032 2 PAGE UM LUBBERS AUG. 01, 1973 22:09.26 00508/40 *BASIC *GUNNER D G W054:BSC.S*GUNNER D3T4 58 BASIC.*GUNNER.D.40 1 SEQ 8128 3 PAGE UM LUBBERS AUG. 01, 1973 22:09.30 00509/1 PERMIT CMMD/SUBR SA G DWB:PF.PERSUB D3.1T1 318 PERMIT.CMMD/SUBR.SA.1 1 LINE 72 13 PAGE UM DWB MAR. 06, 1974 17:49.57 0 THIS IS THE SOURCE FOR THE MTS $PERMIT COMMAND AND PERMIT SUBROUTINE. THE PERMIT COMMAND IS IMPLEMENTED AS A COMMAND LANGUAGE SUB-SYSTEM (CLS) ALTHOUGH IT REALLY ISN'T A CLS (IT HAS NO SUB-COMMANDS). THIS WAS DONE SOLELY FOR EASE OF ISOLATION, CHECKOUT, AND MODIFICATION AND TO KEEP THE MTS ASSEMBLY FROM BURSTING AT MORE SEAMS. NORMALLY, *CLSPERMIT IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. COPIES COPY:CLSVECTOR (535/2), COPY:FDUBDSECT (623), COPY:FCBEQU (482/27), 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/2 PERMIT CMMD/SUBR OC G *CLSPERMIT D3.1T1 319 PERMIT.CMMD/SUBR.OC.2 1 LINE 80 6 PAGE UM DWB MAR. 06, 1974 17:50.01 0 THIS FILE (*CLSPERMIT) IS NORMALLY LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. THE FIRST LINE IS A LOADER "COM" CARD SO THAT THE SEG 2 LOADER WILL DEFINE THE SYMBOLS PERCMD AND PERMIT IN LCSYMBOL. 00509/3 PERMIT SUBR TEST PGM SF DWB:PERSTEST D3T4 61 PERMIT.SUBR_TEST_PGM.SF.3 1 LINE 62 1 PAGE UM DWB AUG. 01, 1973 22:10.06 0 PROGRAM TO TEST THE PERMIT SUBROUTINE. THIS PROGRAM PROVIDES A FAKE SDMOD SUBROUTINE FOR PERMIT TO CALL. THE FAKE SDMOD JUST PRINTS OUT THE CALLING PARAMETERS. THIS PROGRAM WILL CALL PERMIT SEVERAL TIMES WITH AN ASSORTMENT OF PARAMETERS. IN ORDER TO USE THIS TEST PROGRAM, YOU WILL HAVE TO SUPPLY, IN ADDITION, A FAKE SDWRITE SUBROUTINE FOR PERMIT TO CALL. THIS FAKE SDWRITE CAN BE A NOP. 00510/1 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00510/2 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/1 *OBJLIST SA G OBJL W062:OBJLIST.S D3.1T1 320 OBJLIST..SA.1 1 SEQE 80 17 PAGE UM TIFFANY MAR. 06, 1974 17:50.03 0 PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT. FOR D3.1, THIS PROGRAM HAS BEEN CHANGED TO PRINT THE INFORMATION FROM THE "COML" RECORDS PRODUCED BY *LINKEDIT AND TO HANDLE THE NEW IBM "END" CARD FORMAT. 00511/2 *OBJLIST OC G *OBJLIST D3.1T1 321 OBJLIST..OC.2 1 LINE 80 4 PAGE UM TIFFANY MAR. 06, 1974 17:50.07 00512/1 MTS VOLUME 11 MASTER WT G S0549 MTSV11 'MTS MANUALS' POSN=NEWM1.V11 4 D3T4 66 MTS_VOLUME_11.MASTER.WT.1 1 SEQ 80 106 PAGE UM SALISBURY AUG. 01, 1973 22:14.35 0 TEXT/360 MASTER FOR VOLUME 11 "PLOT DESCRIPTION SYSTEM" OF THE UM MTS MANUAL. 00512/2 MTS VOLUME 11 PRINT PT G S0549 MTSV11 'MTS MANUALS' POSN=PRINT1.V11 5 D3T4 67 MTS_VOLUME_11.PRINT.PT.2 1 SEQ 132 108 PAGE UM SALISBURY AUG. 01, 1973 22:15.55 0 TEXT/360 PRINT FILE. 00512/3 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 BLINN 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. 0 Referenced by comments of: 615/1 00512/4 MTS VOLUME 11 FIGURES D W038:V11FIGS.P D3.1T1 323 MTS_VOLUME_11.FIGURES.D.4 1 SEQ 254 88 PAGE UM BLINN 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) UM MTA 0 THIS IS A SUBROUTINE CALLED BY THE MTS $DISPLAY COMMAND WHICH WILL EVENTUALLY DO NEAT THINGS. CURRENTLY, IT CONSISTS OF: LA 15,4 BR 14 THE SOURCE IS NOT DISTRIBUTED (OBVIOUSLY). 00514/1 *PL1TIDY SP W062:NEATER D3T4 68 PL1TIDY..SP.1 1 LINE 80 16 PAGE UM TIFFANY AUG. 01, 1973 22:16.49 0 THIS IS IBM'S NEATER. KANSAS STATE UNIV'S NEATER2 (CACM V.13 N.11 PG 664) IS BETTER (NEATER?). ANY VOLUNTEERS? 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00514/2 *PL1TIDY OE *PL1TIDY D3T4 69 PL1TIDY..OE.2 1 SEQ 20974 7 PAGE UM TIFFANY AUG. 01, 1973 22:16.58 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00515/1 *11ASR 11ASMJOB C W051:11ASMJOB D3T4 70 11ASR.11ASMJOB.C.1 1 LINE 94 1 PAGE UM LUBBERS AUG. 01, 1973 22:17.03 0 MTS COMMANDS TO ASSEMBLE AND LINK EDIT ALL THE CSECTS FOR THE PDP-11 ASSEMBLER ORIGINALLY WRITTEN BY THE MERIT COMPUTER NETWORK PROJECT. THE REQUIRED MACRO LIBRARY IS ALSO GENERATED. 0 Referenced by comments of: 516/1 00515/2 *11ASR MACRO SM G W051:MACRO D3T4 71 11ASR.MACRO.SA.2 1 LINE 68 4 PAGE UM LUBBERS AUG. 01, 1973 22:17.07 0 MACRO LIBRARY USED TO ASSEMBLE COMPS 515/3 THROUGH 515/7. 00515/3 *11ASR UATS/MAL SA G W051:UATS/MAL D3T4 72 11ASR.UATS/MAL.SA.3 1 LINE 86 93 PAGE UM LUBBERS AUG. 01, 1973 22:17.14 0 Referenced by comments of: 515/11 00515/4 *11ASR DCEVAL.SOU SA G W051:DCEVAL.SOU D3T4 73 11ASR.DCEVAL.SOU.SA.4 1 LINE 74 15 PAGE UM LUBBERS AUG. 01, 1973 22:19.08 00515/5 *11ASR REPSCAN SA O S0658 W051SV FSNAME=REPSCAN D3T4 74 11ASR.REPSCAN.SA.5 1 LINE 63 3 DISK UM LUBBERS FEB. 22, 1973 16:48.41 00515/6 *11ASR MAC SA O S0658 W051SV FSNAME=MAC D3T4 75 11ASR.MAC.SA.6 1 LINE 70 23 DISK UM LUBBERS FEB. 22, 1973 16:47.34 00515/7 *11ASR EXTF11.SOU SA G W051:EXTF11.SOU D3T4 76 11ASR.EXTF11.SOU.SA.7 1 LINE 72 7 PAGE UM LUBBERS AUG. 01, 1973 22:23.11 00515/8 *11ASR OPCODES11 SA G W051:OPCODES11 D3T4 77 11ASR.OPCODES11.SA.8 1 LINE 72 11 PAGE UM LUBBERS AUG. 01, 1973 22:23.15 00515/9 *11ASR MICROP SA G W051:MICROP D3T4 78 11ASR.MICROP.SA.9 1 LINE 72 3 PAGE UM LUBBERS AUG. 01, 1973 22:23.21 00515/10 *11ASR OBJECT OE G *11ASR D3T4 79 11ASR.OBJECT.O.10 1 SEQ 28468 16 PAGE UM LUBBERS AUG. 01, 1973 22:23.26 00515/11 *11ASR ERROR D G W051:ERROR D3T4 80 11ASR.ERROR.D.11 1 LINE 70 4 PAGE UM LUBBERS AUG. 01, 1973 22:23.31 0 ERROR COMMENT FILE REFERENCED BY UATS/MAL (515/3) AS "W051:ERROR" ON LINE 2349. 00515/12 *11ASR USER'S GUIDE WT G 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" 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00516/1 *LINK11 SA G S0658 W051SV FSNAME=LINKSOU D3T4 82 LINK11..SA.1 1 LINE 79 39 PAGE UM LUBBERS JULY 20, 1973 15:39.38 0 LINK EDITOR FOR PDP-11 ASSEMBLER *11ASR (515). 00516/2 *LINK11 OE G *LINK11 D3T4 83 LINK11..O.2 1 SEQ 9916 3 PAGE UM LUBBERS AUG. 01, 1973 22:24.31 00516/3 *LINK11 USER'S GUIDE WT # (SEE COMP 515/12) UM LUBBERS 00517/1 LOGICAL OPERATORS SA G W056:ASM.LOGOPS D3T4 84 LOGICAL_OPERATORS..SA.1 1 LINE 70 4 PAGE UM HARDING AUG. 01, 1973 22:24.34 0 SUBROUTINES TO PROVIDE THE FOLLOWING SYSTEM/360 MACHINE OPERATIONS: MVC, CLC, NC, OC, XC, TR, TRT, ED, AND EDMK. REWRITTEN SINCE DIST 2.0. 00517/2 LOGICAL OPERATORS OC G # *LIBRARY (SEE COMP 524) UM HARDING 00518/1 GRGJUL SUBRS SA G GRJL S0723 'D3T4' FSNAME=GRGJUL_SUBRS..SA.1 85 D3T4 85 GRGJUL_SUBRS..SA.1 1 LINE 80 4 PAGE UM ENGLE MAY 03, 1973 09:59.47 0 GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC). 0 Referenced by comments of: 143/2, 436/1, 529/1 00518/2 GRGJUL SUBRS OC G # (PART OF COMP 143) UM ENGLE 0 THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE" BY THE SEG 2 LOADER AT IPL. 00519/1 GRJLDT/GRJLTM SUBRS GRJLDT SA G GJDT 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/2 GRJLDT/GRJLTM SUBRS GRJLDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00519/3 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/4 GRJLDT/GRJLTM SUBRS GRJLTM OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00520/1 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. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00520/2 GROSDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00521/1 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/2 JLGRDT/JLGRTM JLGRDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00521/3 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/4 JLGRDT/JLGRTM JLGRTM OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00522/1 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/2 JULGRG SUBRS OC G # (PART OF COMP 143/2) UM ENGLE 0 THE OBJECT FOR THESE RE-ENTRANT SUBROUTINES IS LOADED IN SHARED VM FROM THE FILE "SEG2:REWIND#&CFE" BY THE SEG 2 LOADER AT IPL. 00523/1 OSGRDT SA G OGDT 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/2 OSGRDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00524/1 *LIBRARY OL *LIBRARY D3.1T1 325 LIBRARY..OL.1 1 SEQ 13704 33 PAGE UM SALISBURY MAR. 06, 1974 17:50.51 0 OBJECT LIBRARY FOR SYSTEM NON-RESIDENT SUBROUTINES. THE SOURCE FILES FOR THE PROGRAMS CONTAINED IN THIS LIBRARY ARE GIVEN ELSEWHERE IN THIS DISTRIBUTION UNDER THE SPECIFIC SUBROUTINE NAME. THIS LIBRARY IS AUTOMATICALLY SEARCHED WHEN PROGRAMS ARE LOADED IF THERE ARE UNRESOLVED SYMBOLS. 00524/2 *LIBRARY CREATELIB C LIB:CREATELIB 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00524/3 *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/1 ELEM FUNC LIB SQRT SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=SQRT D3T4 96 ELEM_FUNC_LIB.SQRT.SA.1 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:02.02 0 THE ELEMENTARY FUNCTION LIBRARY CONTAINS THE MATHEMATICAL AND IMPLICITLY CALLED SUBROUTINES USUALLY ASSOCIATED WITH THE FORTRAN IV LANGUAGE AS WELL AS A FEW ADDITIONAL FUNCTIONS WHICH, INEXPLICABLY, ARE NOT PART OF THE IBM FORTRAN LIBRARY. THESE FUNCTIONS ARE ALL RE-ENTRANT AND, THEREFORE, ARE NORMALLY LOADED INTO SHARED VM (SEGMENT 2). COMPS 525/1 THROUGH 525/46 SHOULD ALL BE ASSEMBLED WITH THE EFL.MACLIB MACRO LIBRARY (525/47). 0 Referenced by comments of: 527/1 00525/2 ELEM FUNC LIB EXP SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=EXP D3T4 97 ELEM_FUNC_LIB.EXP.SA.2 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.07 00525/3 ELEM FUNC LIB ALOG10/ALOG SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=ALOG10.ALOG D3T4 98 ELEM_FUNC_LIB.ALOG10/ALOG.SA.3 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.13 00525/4 ELEM FUNC LIB COS/SIN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=COS.SIN D3T4 99 ELEM_FUNC_LIB.COS/SIN.SA.4 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.18 00525/5 ELEM FUNC LIB COTAN/TAN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=COTAN.TAN D3T4 100 ELEM_FUNC_LIB.COTAN/TAN.SA.5 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.23 00525/6 ELEM FUNC LIB ARCOS/ARSIN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=ARCOS.ARSIN D3T4 101 ELEM_FUNC_LIB.ARCOS/ARSIN.SA.6 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:02.28 00525/7 ELEM FUNC LIB ATAN2/ATAN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=ATAN2.ATAN D3T4 102 ELEM_FUNC_LIB.ATAN2/ATAN.SA.7 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:02.33 00525/8 ELEM FUNC LIB COSH/SINH SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=COSH.SINH D3T4 103 ELEM_FUNC_LIB.COSH/SINH.SA.8 1 LINE 71 1 DISK UM HARDING JUNE 27, 1972 12:02.38 00525/9 ELEM FUNC LIB TANH SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=TANH D3T4 104 ELEM_FUNC_LIB.TANH.SA.9 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:02.42 00525/10 ELEM FUNC LIB ERFC/ERF SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=ERFC.ERF D3T4 105 ELEM_FUNC_LIB.ERFC/ERF.SA.10 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:02.46 00525/11 ELEM FUNC LIB ALGAMA/GAMMA SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=ALGAMA.GAMMA D3T4 106 ELEM_FUNC_LIB.ALGAMA/GAMMA.SA.11 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:02.51 00525/12 ELEM FUNC LIB DSQRT SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DSQRT D3T4 107 ELEM_FUNC_LIB.DSQRT.SA.12 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:02.56 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00525/13 ELEM FUNC LIB DEXP SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DEXP D3T4 108 ELEM_FUNC_LIB.DEXP.SA.13 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:03.00 00525/14 ELEM FUNC LIB DLOG10/DLOG SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DLOG10.DLOG D3T4 109 ELEM_FUNC_LIB.DLOG10/DLOG.SA.14 1 LINE 67 2 DISK UM HARDING JUNE 27, 1972 12:03.05 00525/15 ELEM FUNC LIB DCOS/DSIN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DCOS.DSIN D3T4 110 ELEM_FUNC_LIB.DCOS/DSIN.SA.15 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.11 00525/16 ELEM FUNC LIB DCOTAN/DTAN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DCOTAN.DTAN D3T4 111 ELEM_FUNC_LIB.DCOTAN/DTAN.SA.16 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:03.15 00525/17 ELEM FUNC LIB DARCOS/DARSIN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DARCOS.DARSI D3T4 112 ELEM_FUNC_LIB.DARCOS/DARSI.SA.17 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.20 00525/18 ELEM FUNC LIB DATAN2/DATAN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DATAN2.DATAN D3T4 113 ELEM_FUNC_LIB.DATAN2/DATAN.SA.18 1 LINE 70 2 DISK UM HARDING FEB. 16, 1973 09:37.48 00525/19 ELEM FUNC LIB DCOSH/DSINH SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DCOSH.DSINH D3T4 114 ELEM_FUNC_LIB.DCOSH/DSINH.SA.19 1 LINE 68 2 DISK UM HARDING JUNE 27, 1972 12:03.32 00525/20 ELEM FUNC LIB DTANH SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DTANH D3T4 115 ELEM_FUNC_LIB.DTANH.SA.20 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:03.36 00525/21 ELEM FUNC LIB DERFC/DERF SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DERFC.DERF D3T4 116 ELEM_FUNC_LIB.DERFC/DERF.SA.21 1 LINE 72 2 DISK UM HARDING JUNE 27, 1972 12:03.39 00525/22 ELEM FUNC LIB DLGAMA/DGAMMA SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DLGAMA.DGAMM D3T4 117 ELEM_FUNC_LIB.DLGAMA/DGAMM.SA.22 1 LINE 70 2 DISK UM HARDING JUNE 27, 1972 12:03.42 00525/23 ELEM FUNC LIB CABS SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CABS D3T4 118 ELEM_FUNC_LIB.CABS.SA.23 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:03.46 00525/24 ELEM FUNC LIB CSQRT SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CSQRT D3T4 119 ELEM_FUNC_LIB.CSQRT.SA.24 1 LINE 67 2 DISK UM HARDING JUNE 27, 1972 12:03.50 00525/25 ELEM FUNC LIB CEXP SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CEXP D3T4 120 ELEM_FUNC_LIB.CEXP.SA.25 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:03.54 00525/26 ELEM FUNC LIB CLOG SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CLOG D3T4 121 ELEM_FUNC_LIB.CLOG.SA.26 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:03.57 00525/27 ELEM FUNC LIB CCOS/CSIN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CCOS.CSIN(1) D3T4 122 ELEM_FUNC_LIB.CCOS/CSIN.SA.27 1 LINE 69 1 DISK UM HARDING JUNE 27, 1972 12:04.00 00525/28 ELEM FUNC LIB CDABS SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDABS D3T4 123 ELEM_FUNC_LIB.CDABS.SA.28 1 LINE 69 1 DISK UM HARDING JUNE 27, 1972 12:04.04 00525/29 ELEM FUNC LIB CDSQRT SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDSQRT D3T4 124 ELEM_FUNC_LIB.CDSQRT.SA.29 1 LINE 71 2 DISK UM HARDING JUNE 27, 1972 12:04.08 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00525/30 ELEM FUNC LIB CDEXP SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDEXP D3T4 125 ELEM_FUNC_LIB.CDEXP.SA.30 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:04.12 00525/31 ELEM FUNC LIB CDLOG SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDLOG D3T4 126 ELEM_FUNC_LIB.CDLOG.SA.31 1 LINE 69 2 DISK UM HARDING JUNE 27, 1972 12:04.16 00525/32 ELEM FUNC LIB CDCOS/CDSIN SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDCOS.CDSIN D3T4 127 ELEM_FUNC_LIB.CDCOS/CDSIN.SA.32 1 LINE 63 2 DISK UM HARDING JUNE 27, 1972 12:04.19 00525/33 ELEM FUNC LIB FIXPI# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=FIXPI D3T4 128 ELEM_FUNC_LIB.FIXPI#.SA.33 1 LINE 70 1 DISK UM HARDING JUNE 27, 1972 12:04.23 00525/34 ELEM FUNC LIB FRXPI# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=FRXPI D3T4 129 ELEM_FUNC_LIB.FRXPI#.SA.34 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:04.25 00525/35 ELEM FUNC LIB FDXPI# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=FDXPI D3T4 130 ELEM_FUNC_LIB.FDXPI#.SA.35 1 LINE 68 1 DISK UM HARDING JUNE 27, 1972 12:04.28 00525/36 ELEM FUNC LIB FCXPI# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=FCXPI D3T4 131 ELEM_FUNC_LIB.FCXPI#.SA.36 1 LINE 67 1 DISK UM HARDING JUNE 27, 1972 12:04.31 00525/37 ELEM FUNC LIB FCDXI# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=FCDXI D3T4 132 ELEM_FUNC_LIB.FCDXI#.SA.37 1 LINE 71 1 DISK UM HARDING JUNE 27, 1972 12:04.34 00525/38 ELEM FUNC LIB FRXPR# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=FRXPR D3T4 133 ELEM_FUNC_LIB.FRXPR#.SA.38 1 LINE 66 1 DISK UM HARDING JUNE 27, 1972 12:04.37 00525/39 ELEM FUNC LIB FDXPD# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=FDXPD D3T4 134 ELEM_FUNC_LIB.FDXPD#.SA.39 1 LINE 67 1 DISK UM HARDING JUNE 27, 1972 12:04.43 00525/40 ELEM FUNC LIB CMPY# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CMPY D3T4 135 ELEM_FUNC_LIB.CMPY#.SA.40 1 LINE 61 1 DISK UM HARDING JUNE 27, 1972 12:04.46 00525/41 ELEM FUNC LIB CDVD# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDVD D3T4 136 ELEM_FUNC_LIB.CDVD#.SA.41 1 LINE 55 1 DISK UM HARDING JUNE 27, 1972 12:04.50 00525/42 ELEM FUNC LIB CDMPY# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDMPY D3T4 137 ELEM_FUNC_LIB.CDMPY#.SA.42 1 LINE 61 1 DISK UM HARDING JUNE 27, 1972 12:04.54 00525/43 ELEM FUNC LIB CDDVD# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=CDDVD D3T4 138 ELEM_FUNC_LIB.CDDVD#.SA.43 1 LINE 55 1 DISK UM HARDING JUNE 27, 1972 12:04.56 00525/44 ELEM FUNC LIB DREAL SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DREAL D3T4 139 ELEM_FUNC_LIB.DREAL.SA.44 1 LINE 58 1 DISK UM HARDING JUNE 27, 1972 12:05.00 00525/45 ELEM FUNC LIB DIMAG SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=DIMAG D3T4 140 ELEM_FUNC_LIB.DIMAG.SA.45 1 LINE 58 1 DISK UM HARDING JUNE 27, 1972 12:05.02 00525/46 ELEM FUNC LIB MINMAX SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=MINMAX D3T4 141 ELEM_FUNC_LIB.MINMAX.SA.46 1 LINE 65 2 DISK UM HARDING JUNE 27, 1972 12:05.05 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00525/47 ELEM FUNC LIB EFL.MACLIB SM G W060:EFL.MACLIB D3T4 142 ELEM_FUNC_LIB.EFL.MACLIB.SM.47 1 LINE 65 1 PAGE UM HARDING AUG. 01, 1973 22:37.35 0 EFL MACRO LIBRARY REQUIRED FOR ASSEMBLING COMPS 525/1 THROUGH 525/46. 0 Referenced by comments of: 525/1 00525/48 ELEM FUNC LIB ERRMON# SA G S0595 UMEFL 'EFL DISTRIBUTION TAPE' FSNAME=ERRMON D3T4 143 ELEM_FUNC_LIB.ERRMON#.SA.48 1 LINE 70 4 DISK UM HARDING APR. 25, 1973 11:37.48 0 EFL ERROR MONITOR. 00525/49 ELEM FUNC LIB SA G W060: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. 00525/50 ELEM FUNC LIB OBJECT OC G SEG2:EFL D3T4 145 ELEM_FUNC_LIB.OBJECT.O.50 1 LINE 80 18 PAGE UM HARDING AUG. 01, 1973 22:38.04 0 OBJECT LOADED INTO SHARED VM AT IPL BY SEG 2 LOADER. THE FOLLOWING SYMBOLS ARE ADDED TO LCSYMBOL BY THE SEG 2 LOADER: TRACER, TRACER#, SIOC, SIOC#, AND THE SYMBOL DEFINES A SEPARATE SYMBOL TABLE WHICH CONTAINS THE ADDRESSES OF ALL OF THE EFL ENTRY POINTS. 00525/51 ELEM FUNC LIB WRITEUP WF W060:DOC.EFL D3T4 146 ELEM_FUNC_LIB.WRITEUP.WF.51 1 LINE 126 13 PAGE UM HARDING AUG. 01, 1973 22:38.09 0 THIS IS COMPUTING CENTER MEMO M214 -- "THE ELEMENTARY FUNCTION LIBRARY" 00526/1 SIOC SA G SIOC W060:ASM.SIOC D3T4 147 SIOC..SA.1 1 LINE 80 35 PAGE UM HARDING AUG. 01, 1973 22:38.14 0 AN I/O CONVERSION PROGRAM TO PERFOR FLOATING POINT, INTEGER, LOGICAL, AND HEX CONVERSIONS. THE CONVERSIONS AVAILABLE CORRESPOND TO THOSE USUALLY ASSOCIATED WITH THE D, E, F, G, I, L, AND Z FORTRAN FORMAT SPECIFICATIONS. THIS PROGRAM IS RE-ENTRANT AND, THEREFORE, IS NORMALLY LOADED INTO SHARED VM (SEGMENT 2). 00526/2 SIOC OC G # (PART OF COMP 525) UM HARDING 0 OBJECT IS PART OF FILE "SEG2:EFL". 00526/3 SIOC WRITEUP WF W060:DOC.SIOC D3T4 148 SIOC.WRITEUP.WF.3 1 LINE 112 11 PAGE UM HARDING AUG. 01, 1973 22:38.20 0 THIS IS COMPUTING CENTER MEMO M202 -- "THE I/O CONVERSION PROGRAM" 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00527/1 TRACER SA G TRAC W060:ASM.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/2 TRACER OC G # (PART OF COMM 525) UM HARDING 0 OBJECT IS PART OF FILE "SEG2:EFL". 00527/3 TRACER WRITEUP WF W060: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" 00528/1 ALGOLW *ALGOLW SA S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80) 67 D3T4 151 ALGOLW.*ALGOLW.SA.1 1 SEQ 80 9 PAGE UNE BLINN AUG. 01, 1973 22:40.39 0 SOURCE FOR MTSCOMP, THE MTS ALGOL W COMPILER INTERFACE. 0 Referenced by comments of: 483/4 00528/2 ALGOLW *ALGOLW OE *ALGOLW D3T4 152 ALGOLW.*ALGOLW.OE.2 1 SEQ 1833 1 PAGE UNE BLINN AUG. 01, 1973 22:40.40 00528/3 ALGOLW *XALGOLW SA WATF:ALGW.XMAIN.S(5) D3T4 153 ALGOLW.*XALGOLW.SA.3 1 LINE 73 11 PAGE UNE BLINN AUG. 01, 1973 22:40.45 0 SOURCE FOR MONITOR, PART OF THE MTS ALGOL W COMPILE-AND-GO INTERFACE. FROM UNE, BUT MODIFIED AT UM TO CHANGE CONTROL CARDS AND DEFAULT ESTIMATES. 00528/4 ALGOLW *XALGOLW S3 S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80) 66 D3T4 154 ALGOLW.*XALGOLW.S3.4 1 SEQ 80 5 PAGE UNE BLINN AUG. 01, 1973 22:40.53 0 PL360 SOURCE FOR LOADER, PART OF THE MTS ALGOL W COMPILE-AND-GO INTERFACE. 00528/5 ALGOLW *XALGOLW SA # (SEE COMP 483) UM BLINN 0 SUBROUTINE TO RETURN MTS PAGE AND TIME ESTIMATES. 00528/6 ALGOLW *XALGOLW OE *XALGOLW D3T4 155 ALGOLW.*XALGOLW.OE.6 1 SEQ 3432 2 PAGE UNE BLINN AUG. 01, 1973 22:40.57 00528/7 ALGOLW *AWXCMPA2 S3 WATF:ALGW.P12.S D3T4 156 ALGOLW.*AWXCMPA2.S3.7 1 SEQ 80 103 PAGE UNE BLINN AUG. 01, 1973 22:41.22 0 PL360 SOURCE FOR PHASE A OF THE ALGOL W COMPILER. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00528/8 ALGOLW *AWXCMPA2 S3 WATF:ALGW.P12.U(1000) UNE BLINN 0 PL360 UPDATES FOR PHASE A OF ALGOL W COMPILER 00528/9 ALGOLW *AWXCMPA2 OE *AWXCMPA2 D3T4 157 ALGOLW.*AWXCMPA2.OE.8 1 SEQ 7801 13 PAGE UNE BLINN AUG. 01, 1973 22:41.33 00528/10 ALGOLW *AWXCMPB2 S3 WATF:ALGW.P3.S D3T4 158 ALGOLW.*AWXCMPB2.S3.9 1 SEQ 80 107 PAGE UNE BLINN AUG. 01, 1973 22:41.54 0 PL360 SOURCE FOR PHASE B OF THE ALGOL W COMPILER. 00528/11 ALGOLW *AWXCMPB2 S3 WATF:ALGW.P3.U(1000) UNE BLINN 0 PL360 UPDATES FOR PHASE B OF THE ALGOL W COMPILER. 00528/12 ALGOLW *AWXCMPB2 OE *AWXCMPB2 D3T4 159 ALGOLW.*AWXCMPB2.OE.10 1 SEQ 3776 14 PAGE UNE BLINN AUG. 01, 1973 22:42.04 00528/13 ALGOLW *AWXLIBR2 S3 WATF:ALGW.XLIB.S(6) D3T4 160 ALGOLW.*AWXLIBR2.S3.11 1 SEQ 80 69 PAGE UNE BLINN AUG. 01, 1973 22:42.20 0 PL360 SOURCE FOR PHASEC, THE ALGOL W LIBRARY WITH DEBUGGING ROUTINES. 00528/14 ALGOLW *AWXLIBR2 SA S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80) 73 D3T4 161 ALGOLW.*AWXLIBR2.SA.12 1 SEQ 80 1 PAGE UNE BLINN AUG. 01, 1973 22:42.28 0 SOURCE FOR LIBDIR, THE ALGOL W LIBRARY DIRECTORY. 00528/15 ALGOLW *AWXLIBR2 OE *AWXLIBR2 D3T4 162 ALGOLW.*AWXLIBR2.OE.13 1 SEQ 4032 8 PAGE UNE BLINN AUG. 01, 1973 22:42.31 00528/16 ALGOLW *ALGOLWLIB SA S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80) 68 D3T4 163 ALGOLW.*ALGOLWLIB.SA.14 1 SEQ 80 10 PAGE UNE BLINN AUG. 01, 1973 22:42.55 0 SOURCE FOR MTSEXEC, THE MTS ALGOL W OBJECT PROGRAM INTERFACE. 00528/17 ALGOLW *ALGOLWLIB S3 S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80) 72 D3T4 164 ALGOLW.*ALGOLWLIB.S3.15 1 SEQ 80 40 PAGE UNE BLINN AUG. 01, 1973 22:43.18 0 PL360 SOURCE FOR LIBRC, THE ALGOL W LIBRARY WITHOUT DEBUGGING ROUTINES. 00528/18 ALGOLW *ALGOLWLIB OE *ALGOLWLIB D3T4 165 ALGOLW.*ALGOLWLIB.OE.16 1 SEQ 2048 6 PAGE UNE BLINN AUG. 01, 1973 22:43.26 00528/19 ALGOLW WRITEUP WF WATF:ALGW.W D3T4 166 ALGOLW.WRITEUP.WF.17 1 LINE 99 11 PAGE UM BLINN AUG. 01, 1973 22:43.28 0 THIS IS COMPUTING CENTER MEMO M199 -- "ALGOL W IN MTS" 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00529/1 FILESTATUS COMMAND SA DWB:FSTATCMD3(1) D3.1T1 328 FILESTATUS_COMMAND..SA.1 1 LINE 75 23 PAGE UM DWB MAR. 06, 1974 17:50.58 0 SOURCE FOR FILESTATUS COMMAND WHICH IS NORMALLY LOADED BY THE SEG 2 LOADER AT IPL AND EXECUTED WHENEVER A $FILESTATUS COMMAND IS ISSUED. (THIS COMMAND PRINTS INFO ABOUT FILES.) THE FILESTATUS COMMAND, LIKE THE PERMIT COMMAND, WAS IMPLEMENTED AS A COMMAND LANGUAGE SUBSYSTEM (CLS) EVEN THOUGH IT REALLY ISN'T A CLS (SEE THE COMMENTS FOR COMP 509/1). COPIES *GFINFODSECT (593) AND COPY:CLSVECTOR (535/2). REQUIRES SHARED (SEG 2) SUBROUTINES JULGRGDT (522) AND GRGJULDT (518). 00529/2 FILESTATUS COMMAND OC *CLSFILESTATUS D3.1T1 329 FILESTATUS_COMMAND..OC.2 1 LINE 80 9 PAGE UM DWB MAR. 06, 1974 17:51.16 0 THIS FILE (*CLSFILESTATUS) IS NORMALLY LOADED INTO SHARED VM AT IPL BY THE SEG 2 LOADER. HOWEVER, IF IT HAS NOT BEEN LOADED INTO SEG 2 (I.E., IF "FSTATCMD" IS UNDEFINED IN LCSYMBOL), MTS WILL LOAD A PRVATE (SEG 4) COPY WHEN A $FILESTATUS COMMAND IS ISSUED. 00530/1 *AMENDS SA AMEN DWB:UNEPA.S D3T4 169 AMENDS..SA.1 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 22:43.50 0 ORIGINAL UNE PROGRAM, UNCHANGED SINCE AUG 1970 EXCEPT TO REVERSE HANDLING OF UNITS 0 AND 1 TO AGREE WITH WRITEUP. 00530/2 *AMENDS OC *AMENDS D3T4 170 AMENDS..OC.2 1 LINE 80 1 PAGE UM DWB AUG. 01, 1973 22:43.55 00531/1 COMMAND STATISTICS CMDSTAT SA G CMDS DWB:CMDSTAT.D3(1) D3.1T1 330 COMMAND_STATISTICS.CMDSTAT.SA.1 1 LINE 80 6 PAGE UM DWB MAR. 06, 1974 17:51.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: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. FOR D3.1, THE S-TYPE CALLING SEQUENCE ENTRY IS CALLED BY HASP TO RECORD THE HASP LOG. 00531/2 COMMAND STATISTICS CMDSTAT OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00531/3 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 ENTERING "MTS *CMD" ON THE OPERATORS CONSOLE. AFTER SIGNON, IT RUNS CMDPIKUP (531/4). AN ERROR FILE (CMDERRORS) MUST EXIST UNDER THE USER ID USED FOR *CMD. AT UM, WE ARE ROUTINELY COLLECTING COMMAND STATISTICS AND 3330 UNIT CHECK MESSAGES ALL OF THE TIME; THEREFORE PART OF OUR INIT:INITCMD (97/2) PROCEDURE INVOKES "MTS *CMD" AUTOMATICALLY WHENEVER THE SYSTEM IS STARTED UP. THESE STATISTICS PLUS THE HASP LOG FILL UP A 384 PAGE FILE ABOUT 3 TIMES PER DAY UNDER BUSY CONDITIONS. TWO SUCH FILES ARE USED ALTERNATELY. THE TAPES ONTO WHICH THEY ARE DUMPED FILL UP IN ABOUT 2 WEEKS. 0 Referenced by comments of: 97/2 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00531/4 COMMAND STATISTICS CMDPIKUP SA G CMDP DWB:CMDPIKUP.D3(1) D3T4 173 COMMAND_STATISTICS.CMDPIKU.SA.4 1 LINE 80 8 PAGE UM DWB AUG. 01, 1973 22:44.09 0 PROGRAM TO PICKUP MTS COMMAND STATISTICS (FROM CMDSTAT) AND SAVE THEM IN FILES; FILENAMES ARE SPECIFIED BY THE CMDDIR FILE (531/6). WHEN A FILE FILLS UP, CMDPIKUP USES THE SVC STRTJB TO START "MTS *DWB" (531/7) WHICH DUMPS THE FILLED FILE ONTO TAPE ACCORDING INFO IN CMDDIR. REQUIRES AN EMPTY FILE NAMED CMDSTATLOCK WHICH IS USED TO MAKE SURE THAT ONLY ONE COPY OF THIS PROGRAM IS RUNNING AT A TIME. NOTE: THE FILE "CMDDIR" (531/6) IS REFERENCED DIRECTLY BY THIS PROGRAM. COPIES COPY:CMDAREADSECT (531/12), COPY:LLMPSEQU (087), COPY:MTS.EQU (345), AND CMDSTAT.D (531/13). 0 Referenced by comments of: 531/3, 603/1 00531/5 COMMAND STATISTICS CMDPIKUP OC G SYS:CMDPIKUP.O D3T4 174 COMMAND_STATISTICS.CMDPIKU.OC.5 1 LINE 80 2 PAGE UM DWB AUG. 01, 1973 22:44.16 00531/6 COMMAND STATISTICS CMDDIR D G 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/7 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/8 COMMAND STATISTICS FILE-TO-TAPE SA G CMDT DWB:CMDTAPE.S(1) D3T4 177 COMMAND_STATISTICS.FILE-TO.SA.8 1 LINE 80 8 PAGE UM DWB AUG. 01, 1973 22:44.33 0 PROGRAM TO COPY COMMAND STATISTICS FILES TO TAPE. RUN BY *DWB. NOTE: THE FILE "CMDDIR" (531/6) IS REFERENCED DIRECTLY BY THIS PROGRAM. COPIES COPY:CMDAREADSECT (531/12), *GDINFODSECT (594), COPY:LLMPSEQU (087), AND COPY:MTS.EQU (345). 00531/9 COMMAND STATISTICS FILE-TO-TAPE OC G SYS:CMDTAPE.O D3T4 178 COMMAND_STATISTICS.FILE-TO.OC.9 1 LINE 80 3 PAGE UM DWB AUG. 01, 1973 22:44.38 00531/10 COMMAND STATISTICS PRINT PROGRAM SA G CMDP DWB:CMDAREAPRINT(1,999) D3T4 179 COMMAND_STATISTICS.PRINT_P.SA.10 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 22:44.44 0 PROGRAM TO PRINT COMMAND STATISTICS FROM TAPES GENERATED BY 531/8. COPIES COPY:CMDAREADSECT (531/12) AND CALLS JMSGTDR (437). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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.1T1 333 COMMAND_STATISTICS.CMDAREA.SA.12 1 LINE 80 2 PAGE UM DWB MAR. 06, 1974 17:51.26 0 COPY SECTION FOR DSECT WHICH DEFINES A CMDSTAT RECORD. 0 Referenced by comments of: 531/1, 531/4, 531/8, 531/10, 603/1, 621/2, 621/4 00531/13 COMMAND STATISTICS CMDSTATDATA SA G CMDD DWB:CMDSTAT.D D3T4 182 COMMAND_STATISTICS.CMDSTAT.SA.13 1 LINE 80 1 PAGE UM DWB AUG. 01, 1973 22:45.02 0 COPY SECTION FOR CMDSTAT DATA. 0 Referenced by comments of: 531/1, 531/4 00531/14 COMMAND STATISTICS CHECKTIME SA G CHKT DWB:CMDCHECKTIME(1,999) D3T4 183 COMMAND_STATISTICS.CHECKTI.SA.14 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 22:45.07 0 PROGRAM TO CHECK COMMAND STATISTICS OUTPUT TIMES TO SEE IF SOMETHING IS MISSING OR WHATEVER. IT PRINTS THE TIME/DATE OF THE FIRST AND LAST RECORDS AND OTHER RECORDS IF THE DIFFERENCE FROM THE PREVIOUS RECORD IS AT LEAST 1 SECOND AND IS GREATER THAN 128 TIMES THE AVERAGE OF THE LAST 8 DIFFERENCES, OR IF THE DIFFERENCE IS GREATER THAN 10 MINUTES. IF THE DIFFERENCE IS NEGATIVE, IT DOES THE SAME THING EXCEPT THAT IT USES 16 TIMES THE AVERAGE OF THE LAST 8. IF PAR=M IS GIVEN, IT GOES THROUGH MULTIPLE FILES. IF PAR=S IS GIVEN, IT PRINTS EVERY 128TH RECORD INSTEAD OF MAKING THE ABOVE CHECKS. 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 18:37:32 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 + ______________ _____________________ 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 00532/1 *PLOTSEE SA G W114:PLOTSEE.S(6) D3T4 185 PLOTSEE..SA.1 1 LINE 74 9 PAGE UM BLINN AUG. 01, 1973 22:45.19 0 PLOT PREVIEWING PROGRAM. USER OF TEKTRONIX 4010 DISPLAY CONNECTED TO MTS VIA UM DATA CONCENTRATOR CAN VIEW PDS PLOT FILES PRODUCED VIA *PLOTSYS. HAS "WINDOWING" FACILITY. DEPENDS ON SPECIAL DATA CONCENTRATOR DEVICE COMMANDS, SO WOULD HAVE TO BE MODIFIED FOR OTHER INSTALLATIONS. 00532/2 *PLOTSEE OE G *PLOTSEE D3T4 186 PLOTSEE..OE.2 1 SEQ 2788 2 PAGE UM BLINN AUG. 01, 1973 22:45.24 00533/1 *FRISK SA S0664 UBC22 'UBC -> UM #22' FSNAME=FRISK..SA 9 D3T4 187 FRISK..SA.1 1 LINE 72 11 DISK UBC HALL FEB. 09, 1973 14:25:43 0 PROGRAM TO PRODUCE CROSS-REFERENCES OF SUBROUTINE, VARIABLE, LABEL, AND I/O UNIT REFERENCES IN FORTRAN PROGRAMS. OBJECT NOT DISTRIBUTED. 00533/2 *FRISK WRITEUP WF 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/1 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 00534/2 TMTS JOB LIST ENTRY OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00534/3 TMTS FAKE JOB-PGM SA G TMFK MTS:TMTSFAKE(1,999) D3T4 189 TMTS.FAKE_JOB-PGM.SA.3 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 22:52.38 0 DUMMY JOB PROGRAM POINTED TO BY TMTS JOB LIST ENTRY (534/1). 1 FRI AUG 02/96 18:37:32 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: 534/1 00534/4 TMTS FAKE JOB-PGM OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00534/5 TMTS LOADMTS SA G LMTS MTS:LOADMTS(1,999) D3.1T1 340 TMTS.LOADMTS.SA.5 1 LINE 80 16 PAGE UM MTA MAR. 06, 1974 17:51.47 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, AND DSRI), COST, CFDUB, LCSYMBOL, AND SYSDEFS. OTHER COMPONENTS MAY ALSO BE INCLUDED, BUT NEITHER VOLGET (482/5) NOR TABLRTN (482/30) SHOULD BE INCLUDED. 0 Referenced by comments of: 534/1 00534/6 TMTS LOADMTS OC G MTS:LOADMTS(1000) D3.1T1 341 TMTS.LOADMTS.OC.6 1 LINE 80 4 PAGE UM MTA MAR. 06, 1974 17:51.52 00534/7 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 00535/1 CLS INTERFACE PLAN COPY SECT SA G CLSP COPY:CLSPLAN D3.1T1 343 CLS_INTERFACE.PLAN_COPY_SE.SA.1 1 LINE 80 3 PAGE UM DWB MAR. 06, 1974 17:52.00 0 COPY SECTION DEFINING COMMAND LANGUAGE SUBSYSTEM (CLS) CALLING CONVENTIONS. 0 Referenced by comments of: 42/1, 324/1, 354/1, 535/4, 539/1, 585/1, 600/1, 600/4, 600/6, 600/8, 600/10, 635/1, 636/1, 637/1, 638/1, 639/1 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00535/2 CLS INTERFACE T/V DSECT SA G CLSV COPY:CLSVECTOR D3.1T1 344 CLS_INTERFACE.T/V_DSECT.SA.2 1 LINE 80 3 PAGE UM DWB MAR. 06, 1974 17:52.01 0 DSECT COPY SECTION FOR TRANSFER VECTOR PASSED BY MTS TO COMMAND LANGUAGE SUBSYSTEMS. 0 Referenced by comments of: 101/1, 413/5, 447/1, 509/1, 529/1, 535/4, 553/1, 585/1, 600/1, 600/4, 600/6, 600/8, 600/10, 631/1 00535/3 CLS INTERFACE T/V STD ADCONS SA G STDV COPY:STANDARDTV D3T4 196 CLS_INTERFACE.T/V_STD_ADCO.SA.3 1 LINE 80 3 PAGE UM DWB AUG. 01, 1973 22:53.14 0 COPY SECTION WHICH WILL DEFINE A CLS T/V FOR SUBROUTINES OR EXECUTION-LEVEL PROGRAMS TO USE, I.E. V(GETSPACE) FOR GETSPACE, V(SCARDS) FOR SOURCE, ETC. 0 Referenced by comments of: 324/5, 509/1 00535/4 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/5 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/1 *BRAILLE SA S S0723 'D3T4' FSNAME=BRAILLE..SA.1 199 D3T4 199 BRAILLE..SA.1 1 LINE 73 21 PAGE UM TIFFANY JULY 30, 1973 03:34.19 0 EXPERIMENTAL PROGRAM TO PRINT BRAILLE (GRADE 2) ON A 1403 PRINTER. 00536/2 *BRAILLE OC S *BRAILLE D3T4 200 BRAILLE..OC.2 1 SEQ 94 8 PAGE UM TIFFANY AUG. 01, 1973 22:53.52 0 OBJECT HAS MANY REP CARDS. 00537 360/20 TAB SHOP PGM # (NOT DISTRIBUTED) UM EMERY 0 UTILITY PROGRAM RUN ON 360/20 AT UM WHICH PERFORMS CARD LISTINGS, INTERPRETING, REPRODUCING, ETC. NOT DISTRIBUTED, BUT AVAILABLE UPON REQUEST. 00538/1 COBOL *COBOLU SA G 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/2 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 18:37:32 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 + ______________ _____________________ 00538/3 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/4 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: 538/5 00538/5 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/6 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/7 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/8 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/9 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 18:37:32 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 + ______________ _____________________ 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/1 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/2 TIMNTRP D3.1 UPDATE UU G MTS:TIMTUPD D3.1T1 366 TIMNTRP.D3.1_UPDATE.UU.2 1 LINE 72 1 PAGE UM HAMILTON MAR. 06, 1974 17:52.58 0 UPDATE TO D3 MASTER (539/1) TO PRODUCE D3.1 SOURCE. UPDATE DECK USES %POSN *IN* TIMT. 00539/3 TIMNTRP OC G # RESIDENT SYSTEM (SEE COMP 468) UM HAMILTON 00540/1 PDPBUG SA G PDPB W047:PDPBUG(1000) D3T4 218 PDPBUG..SA.1 1 LINE 80 9 PAGE UM HAMILTON AUG. 01, 1973 22:56.41 0 PROGRAM TO PRINT STATISTICS ABOUT SYSTEM PAGING. COMMENTS IN THE SOURCE CODE DESCRIBE THE OUTPUT. MUST BE RE-ASSEMBLED IF EITHER THE SUPERVISOR OR THE PDP IS RE-ASSEMBLED. THE ITEMS TO BE CHANGED ARE DOCUMENTED IN SOURCE COMMENTS. 00540/2 PDPBUG OC G W047:PDPBUG(1,999) D3T4 219 PDPBUG..OC.2 1 LINE 80 3 PAGE UM HAMILTON AUG. 01, 1973 22:56.45 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00541/1 *DECODE SA G DECD MTS:DECODE(1,999) D3T4 220 DECODE..SA.1 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 22:56.50 0 PROGRAM TO PROVIDE HASP-TYPE DECOMPRESSION/DEBLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE. 00541/2 *DECODE OC G *DECODE D3T4 221 DECODE..O.2 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 22:56.54 00542/1 *DF SA 338:DF.S D3T4 222 DF..SA.1 1 LINE 72 93 PAGE UM BLINN AUG. 01, 1973 22:56.58 0 DISPLAY FILE SUBROUTINE LIBRARY. FORTRAN CALLABLE SUBROUTINES TO ALLOW USERS TO CONSTRUCT, DISPLAY, AND INTERACT WITH DISPLAY FILES FOR THE DEC 338 AND DEC 339 DISPLAY CONTROLLERS ATTACHED TO MTS VIA UM DATA CONCENTRATOR. TO IMPLEMENT DFCONV, A SPECIAL VERSION OF FIOCS# IS NEEDED (SAME AS SYSTEM VERSION, PLUS A CHECK IN THE DSRN OPEN SECTION FOR DSRN #9). THE DSRN #9 MUST HAVE LABWRITE FOR ITS OUTPUT ROUTINE. THIS INVOLVES THE ADDITION OF ABOUT 6 EXTRA INSTRUCTIONS. ALSO, SETDSRN SHOULD BE REWRITTEN TO PREVENT TAMPERING WITH DSRN #9. FOR LINK EDITING PURPOSES, THE MODULES DF201, DFXYV, DFINI, AND PSECT1 (WHICH SHOULD BE LAST) SHOULD BE COMBINED, AS MUST DFCONV AND FIOCS#; OTHERWISE THINGS WON'T LOAD PROPERLY. THE LIBRARY SHOULD THEN BE BUILT AS FOLLOWS: 1. COPY THE FIRST COMBINED MODULES (DF201 ET AL) INTO A TEMPORARY SEQUENTIAL FILE. 2. RUN *GENLIB ON THE REST OF THE MODULES, SPECIFYING THE TEMP FILE FROM STEP 1 AS SPUNCH AND PAR=DIR. *GENLIB WILL WARN THAT SPUNCH IS NOT EMPTY, BUT THAT'S OK. NOTE: ALL MODULES SHOULD BE SQUASHED, BUT NO OTHERS SHOULD BE COMBINED. COPIES 338:PSECT (542/2). 00542/2 *DF PSECT SA 338:PSECT D3T4 223 DF.PSECT.SA.2 1 LINE 72 3 PAGE UM BLINN AUG. 01, 1973 22:57.15 0 Referenced by comments of: 542/1 00542/3 *DF OL *DF D3T4 224 DF..OL.3 1 SEQ 3536 6 PAGE UM BLINN AUG. 01, 1973 22:57.19 00543/1 *ENCODE SA G ENCD MTS:ENCODE(1,999) D3T4 225 ENCODE..SA.1 1 LINE 80 9 PAGE UM MTA AUG. 01, 1973 22:57.23 0 PROGRAM TO PROVIDE HASP-TYPE COMPRESSION/BLOCKING FOR EXPERIMENTAL REMOTE BATCH USAGE. 00543/2 *ENCODE OC G *ENCODE D3T4 226 ENCODE..O.2 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 22:57.27 00544 *ENDJUNK OC G *ENDJUNK D3T4 227 ENDJUNK..OC. 1 LINE 24 1 PAGE UM MTA AUG. 01, 1973 22:57.32 0 CONTAINS THE TWO LOADER CARDS: LCS LCSYMBOL LDT 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00545/1 *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/2 *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/3 *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/4 *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/5 *FAKEOS FAKEOS 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/6 *FAKEOS FAKEOS 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/7 *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). 00545/8 *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/9 *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). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 00545/16 *FAKEOS FAKEOS.MSG M W071:FAKEOS.MSG D3.1T1 380 FAKEOS.FAKEOS.MSG.M.16 1 LINE 62 1 PAGE UM YOUNG MAR. 06, 1974 17:54.15 0 MESSAGE FILE. 00545/17 *FAKEOS VOSDDEF.S SA W071:VOSDDEF.S D3.1T1 381 FAKEOS.VOSDDEF.S.SA.17 1 LINE 80 9 PAGE UM YOUNG MAR. 06, 1974 17:54.17 0 SOURCE FOR DDNAME SCANNER. COPIES SAMEQU (545/19). ASSEMBLE WITH *SYSMAC AND *OSMAC. 0 Referenced by comments of: 545/19 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00545/18 *FAKEOS VOSDDEF OE W071:VOSDDEF D3.1T1 382 FAKEOS.VOSDDEF.OE.18 1 SEQ 2586 1 PAGE UM YOUNG MAR. 06, 1974 17:54.20 00545/19 *FAKEOS SAMEQU SA W071:SAMEQU D3.1T1 383 FAKEOS.SAMEQU.SA.19 1 LINE 80 4 PAGE UM YOUNG MAR. 06, 1974 17:54.22 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.1T1 384 FAKEOS.FAKEEXCP.S.SA.20 1 LINE 69 5 PAGE UM YOUNG MAR. 06, 1974 17:54.24 0 EXCP FAKER. COPIES DSDSECT (545/15) AND EXCPXT (545/22). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 545/22 00545/21 *FAKEOS FAKEOS.EXCP OE W071:FAKEOS.EXCP D3.1T1 385 FAKEOS.FAKEOS.EXCP.OE.21 1 SEQ 1576 1 PAGE UM YOUNG MAR. 06, 1974 17:54.27 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 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 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 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 00546/1 *VALIDATEFILE SA G VALD RSTR:VALIDATEFILE(1000) D3T4 262 VALIDATEFILE..SA.1 1 LINE 80 14 PAGE UM BERSTIS AUG. 01, 1973 23:04.41 0 PROGRAM TO VALIDATE LINE FILES FOR CONSISTENCY. CAN BE USED (BY USERS) AFTER A SYSTEM CRASH DURING WHICH A FILE WAS OPEN. PROMPTS FOR INPUT. COPIES COPY:FCBEQU (482/27). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00546/2 *VALIDATEFILE OE G *VALIDATEFILE D3T4 263 VALIDATEFILE..OC.2 1 SEQ 8192 3 PAGE UM BERSTIS AUG. 01, 1973 23:04.47 00547 *FOREVER D *FOREVER D3T4 264 FOREVER..D. 1 LINE 51 3 PAGE UM MTA AUG. 01, 1973 23:04.52 0 A FILE CONTAINING ABOUT 300 LINES OF JUNK, ENDING WITH "$CONTINUE WITH *FOREVER" SO THAT IT APPEARS TO CONTAIN EVEN MORE. 00548 *FS # (SEE COMP 461) UM 0 Referenced by comments of: 549/1, 550/1 00549/1 *FSCON SA G FSCN MTS:FSCON.S(1,1449) D3T4 268 FSCON..SA.1 1 LINE 80 32 PAGE UM MTA AUG. 01, 1973 23:05.15 0 PROGRAM TO CONVERT *FSAVE (392) TAPES TO *FS (548) FORMAT. NO LONGER REQUIRES THE FSZ SUBROUTINE. 00549/2 *FSCON OE G *FSCON D3T4 269 FSCON..OE.2 1 SEQ 8116 3 PAGE UM MTA AUG. 01, 1973 23:05.27 00550/1 *FSCOPY SA G FSCY MTS:FSCOPY.S D3T4 270 FSCOPY..SA.1 1 LINE 80 30 PAGE UM MTA AUG. 01, 1973 23:05.32 0 PROGRAM TO COPY SELECTED PORTIONS OF *FS (548) FORMAT TAPES. 00550/2 *FSCOPY OE G *FSCOPY D3T4 271 FSCOPY..OE.2 1 SEQ 7732 3 PAGE UM MTA AUG. 01, 1973 23:05.38 00551/1 *FTN SA G FTN0 S0579 SAVE 'JWS-SAVE' FSNAME=SOURCE.FTN 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/6). THERE ARE 4 REFERENCES TO PUBLIC FILES IN THIS VERSION: AT X'0008A6' (ESID 01), THERE IS A REFERENCE TO THE FILE CONTAINING THE 'TEST' VERSION OF FORTRAN G (*FTNGTEST), AT X'002DA4' (ESID 02) TO THE FILE CONTAINING FORTRAN H (*FORTRANH), AND AT X'002D94' AND X'002DB4' (ESID 02) ARE REFERENCES TO FORTRAN G (*FORTRANG). 00551/2 *FTN OC G *FTN D3T4 277 FTN.FTNH_VERSION.OC.6 1 LINE 80 6 PAGE UM JWS AUG. 01, 1973 23:06.36 00551/3 *FTN USER'S GUIDE WF @ UM JWS 0 NEW *FTN USER'S GUIDE-- NOT OUT YET. 00552/1 GASP *GASP S G GASP = W020:GASPSOURCE(1,13070) D3T4 279 GASP.*GASP.S.1 1 LINE 80 29 PAGE UM FLANIGAN AUG. 01, 1973 23:06.58 0 GASP SIMULATION PACKAGE FOR EVENT-ORIENTED DISCRETE SIMULATION. W020:GASPSOURCE CONTAINS THE FORTRAN SOURCE ASM SOURCE IS IN UPDATE DECK IN FLANIGANS FILE CABINET AND IN W020:GASPCOMPILE(9,22) 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 CONTAINS "$CONTINUE WITH *GASPCOM" THROUGHOUT. 00552/2 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 OBJECT LIBRARY BUILT FROM ASM AND FTN COMPONENTS IN 552/1. 00552/3 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/4 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/5 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/1 MERIT NETWORK CLS SA G NETC K1Y2:NETCLS(500) D3T4 284 MERIT_NETWORK_CLS..SA.1 1 LINE 80 24 PAGE UM LANDWEHR AUG. 01, 1973 23:07.34 0 COMMAND LANGUAGE SUB-SYSTEM FOR MERIT COMPUTER NETWORK ($NET COMMAND). DESCRIBED IN "MERIT NETWORK USER'S GUIDE" IN MTS VOLUME 4. COPIES COPY:CLSVECTOR (535/2). 0 Referenced by comments of: 101/2 00553/2 MERIT NETWORK CLS OC G *CLSNET D3T4 285 MERIT_NETWORK_CLS..OC.2 1 LINE 80 3 PAGE UM LANDWEHR AUG. 01, 1973 23:07.40 0 DYNAMICALLY LOADED BY MTS FOR $NET COMMAND. 00554/1 TABLMOD TABLMOD JOB SA G TBJP W045:TABLMODJP D3.1T1 409 TABLMOD.TABLMOD_JOB.SA.1 1 LINE 80 16 PAGE UM PIRKOLA MAR. 06, 1974 22:01.04 0 UMMPS JOB PROGRAM TO DISPLAY AND MODIFY INFORMATION IN THE IN-CORE OPEN FILE TABLE. INVOKED BY ENTERING "TABLMOD" ON THE OPERATOR'S CONSOLE. THE FOLLOWING COMMANDS ARE AVAILABLE: DUMP PRINTS OUT THE ENTIRE OPEN-FILE TABLE. EACH ENTRY CONSISTS OF A FILE NAME, JOB NUMBER, OPEN STATUS ("OPEN" OR "NOTO"), LOCK STATUS ("LOCKR", "LOCKM", OR "LOCKD"), AND WAIT STATUS ("WAITR", "WAITM", OR "WAITD"). LSTAT PRINTS THE INFORMATION ASSOCIATED WITH A SINGLE FILE ("LSTAT FILE FNAME") OR A SINGLE JOB ("LSTAT JOB N") IN THE SAME FORMAT AS THE DUMP COMMAND. LOCATE PRINTS THE HALF-WORD OFFSET INTO THE IN-CORE TABLE FOR THE ENTRY ASSOCIATED WITH A PARTICULAR FILE ("LOCATE FILE FNAME"). CLEAN TAKES THE SPECIFIED JOB ("CLEAN JOB N") OFF ALL OPEN OR LOCKED AND WAITING LISTS. CLEANF SAME AS "CLEAN" EXCEPT FOR ONE FILE ONLY ("CLEANF JOB N FILE FNAME"). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 DEQ TAKES THE SPECIFIED JOB ("DEQ JOB N") OFF ALL WAITING LISTS. DEQF SAME AS "DEQ" EXCEPT FOR ONE FILE ONLY ("DEQF JOB N FILE FNAME"). THE TABLMOD TERMINATES WHEN AN END-OF-FILE IS ENTERED. COPIES COPY:ICEQU (482/29) AND COPY:LLMPSEQU (087). 0 Referenced by comments of: 554/3 00554/2 TABLMOD TABLMOD JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00554/3 TABLMOD MTS PROGRAM SA G TBMD W045:TABLMOD 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). COPIES COPY:ICEQU (482/29). 00554/4 TABLMOD MTS PROGRAM OC G W045:TABLMOD.O D3.1T1 411 TABLMOD.MTS_PROGRAM.OC.4 1 LINE 80 3 PAGE UM PIRKOLA MAR. 06, 1974 22:01.10 00555/1 MESSAGE MANUAL PGM SS MTS:MESSAGEPGM D3T4 289 MESSAGE_MANUAL.PGM.SS.1 1 LINE 63 2 PAGE UM DWB AUG. 01, 1973 23:08.01 0 SNOBOL PROGRAM TO PRODUCE MESSAGE MANUAL FROM DATA IN 555/2. RUN AS FOLLOWS: $RUN *SPITBOL SCARDS=MESSAGEPGM 5=MESSAGEDATA SPUNCH=PRINTOUT OR $RUN *SNOBOL4 5=MESSAGEPGM+MESSAGEDATA 7=PRINTOUT THE PRINTOUT CONSISTS OF USER MESSAGES (ALPHABETICAL) AND OPERATOR MESSAGES (ALPHABETICAL). 0 Referenced by comments of: 592/1 00555/2 MESSAGE MANUAL DATA M MTS:MESSAGEDATA D3T4 290 MESSAGE_MANUAL.DATA.M.2 1 LINE 107 13 PAGE UM DWB AUG. 01, 1973 23:08.06 0 A DATA FILE DESCRIBING THE VARIOUS SYSTEM MESSAGES. THE FORMAT OF THE FILE IS AS FOLLOWS: 1. 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. 1 FRI AUG 02/96 18:37:32 Page 185 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 00556/1 *REDUCE2 MTS MASTER S G WATF:RDC2SOU D3T4 291 REDUCE2.MTS_MASTER.S.1 1 LINE 80 124 PAGE UM MTA AUG. 01, 1973 23:08.11 0 REDUCE 2 IS A LISP 1.5 PROGRAM DESIGNED FOR GENERAL ALGEBRAIC COMPUTATIONS. THIS IS THE OS/360 VERSION OF REDUCE2 MODIFIED TO RUN IN MTS. THE LISP COMPILER IS EXPECTED TO BE IN THE FILE "COMPILE" UNDER THE USER ID COMPILING REDUCE2. 0 Referenced by comments of: 556/3 00556/2 *REDUCE2 OS SOURCE S G WATF:RDC2EP152 D3T4 292 REDUCE2.OS_SOURCE.S.2 1 LINE 80 124 PAGE UM MTA AUG. 01, 1973 23:08.31 0 OS/360 SOURCE FOR REDUCE2 (VERSION SEPT 15, 1972). 0 Referenced by comments of: 556/3 00556/3 *REDUCE2 UPDATE UU G WATF:RDC2UPD D3T4 293 REDUCE2.UPDATE.UU.3 1 LINE 79 3 PAGE UM MTA AUG. 01, 1973 23:08.57 0 UPDATE DECK TO CONVERT OS/360 SOURCE (556/2) TO MTS VERSION (556/1). 00556/4 *REDUCE2 CHKPOINT O G WATF:RDC2CHKPT D3T4 294 REDUCE2.CHKPOINT.O.4 1 LINE 80 83 PAGE UM MTA AUG. 01, 1973 23:09.02 0 FILE IN LISP OBJECT FORMAT CONTAINING CHECKPOINT OF REDUCE2. THIS FILE IS REFERENCED BY *REDUCE. 00556/5 *REDUCE2 *REDUCE2 C *REDUCE2 D3T4 295 REDUCE2.*REDUCE2.C.5 1 LINE 40 1 PAGE UM MTA AUG. 01, 1973 23:09.15 0 FILE TO WHICH USERS $SOURCE TO INVOKE REDUCE2. IT RUNS LISP (CURRENTLY NEW:LISP) AND THEN LOADS THE REDUCE2 CHECKPOINT (FROM WATF:RDC2CHKPT). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00556/6 *REDUCE2 EXAMPLE S WATF:RDC2TEST D3T4 296 REDUCE2.EXAMPLE.S.6 1 LINE 82 6 PAGE UM MTA AUG. 01, 1973 23:09.19 0 EXAMPLE OF REDUCE2 INPUT. 0 Referenced by comments of: 556/7 00556/7 *REDUCE2 EXAMPLE P *REDUCE2EXAMP D3T4 297 REDUCE2.EXAMPLE.P.7 1 LINE 119 6 PAGE UM MTA AUG. 01, 1973 23:09.24 0 REDUCE2 PRINTED OUTPUT FOR EXAMPLE INPUT (556/6). 00556/8 *REDUCE2 WRITEUP WF S0723 'D3T4' FSNAME=REDUCE2.WRITEUP.WF.8 298 D3T4 298 REDUCE2.WRITEUP.WF.8 1 LINE 107 2 DISK UM MTA MAR. 15, 1973 18:04.41 0 THIS IS COMPUTING CENTER MEMO M182 -- "REDUCE 2" ONLY PART OF MEMO M182 IS INCLUDED HERE SINCE THE BULK OF IT IS SIMPLY REPRODUCED FROM THE MANUAL FOR REDUCE 2 FROM THE STANFORD ARTIFICIAL INTELLIGENCE PROJECT. 00557/1 FLOATEST SA O FLOT MTS:FLOATEST D3T4 299 FLOATEST..SA.1 1 LINE 80 4 PAGE UM DWB AUG. 01, 1973 23:09.34 0 PROGRAM TO TEST THAT FLOATING-POINT REGISTERS AND PROGRAM MASK ARE PRESERVED ACROSS ABNORMAL PROGRAM EXITS. DESIGNED TO BE RUN BOTH BY $RUN COMMAND AND UNDER CONTROL OF SDS ($DEBUG OR $SET DEBUG=ON AND $RUN). 00557/2 FLOATEST OC O MTS:FLOATEST.O D3T4 300 FLOATEST..OC.2 1 LINE 80 3 PAGE UM DWB AUG. 01, 1973 23:09.39 00558/1 VIRTUAL 67 MAIN PGM SA G V67S MTA:V67.S D3.1T1 412 VIRTUAL_67.MAIN_PGM.SA.1 1 LINE 80 108 PAGE UM MTA MAR. 06, 1974 22:01.12 0 PROGRAM TO PROVIDE A SYSTEM/360 MODEL 67 VIRTUAL MACHINE. COPIES S2301 (558/3). ASSEMBLE WITH *SYSMAC. 00558/2 VIRTUAL 67 DEVICE LIST SA G V67D MTA:V67DEV.S D3T4 302 VIRTUAL_67.DEVICE_LIST.SA.2 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:10.01 0 ASSEMBLY WHICH DEFINES THE VIRTUAL MACHINE I/O CONFIGURATION, I.E. A TABLE OF PRE-DEFINED ATTACH COMMANDS. 00558/3 VIRTUAL 67 S2301 SA G DRUM MTA:S2301 D3T4 303 VIRTUAL_67.S2301.SA.3 1 LINE 80 9 PAGE UM MTA AUG. 01, 1973 23:10.05 0 COPIED CODE WHICH PROVIDES VIRTUAL DRUM SUPPORT. 0 Referenced by comments of: 558/1 00558/4 VIRTUAL 67 OBJECT OC G MTA:V67 D3.1T1 413 VIRTUAL_67.OBJECT.OC.4 1 LINE 80 14 PAGE UM MTA MAR. 06, 1974 22:01.30 00558/5 VIRTUAL 67 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 18:37:32 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 + ______________ _____________________ 00559/1 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) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN SEG2:S2FILES (559/4). 00559/2 PISTLE SA G PIST W009:PISTLE.S D3.1T1 415 PISTLE_..SA.2 1 LINE 80 20 PAGE UM DE JONG MAR. 06, 1974 22:01.36 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 HAS BEEN MODIFIED FOR D3.1 TO LOAD INTO SEGMENTS 1 AND 2. IT NOW 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/3 PISTLE OC G SEG2:S2L D3.1T1 416 PISTLE_..OC.3 1 SEQ 80 3 PAGE UM DE JONG MAR. 06, 1974 22:01.47 00559/4 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. NOTE: THIS LIST INCLUDES A REFERENCE TO *RATENBR WHICH IS PART OF THE MTS DIFFERENTIAL RATES IMPLEMENTATION RECENTLY MADE AT UM. SINCE DIFFERENTIAL RATES IS NOT A PART OF D3.1, REFERENCE TO THIS FILE SHOULD BE IGNORED. 0 Referenced by comments of: 559/1 00559/5 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 BLINN AUG. 01, 1973 23:10.49 0 A FILE WHICH CAN BE $SOURCED TO WHICH AIDS THE UM SECRETARIAL STAFF IN THE PREPARATION OF MATERIAL PRODUCED IN *FORMAT (308). WE HAVE ATTEMPTED TO DISTRIBUTE ALL *FORMAT MACHINE-READABLE DOCUMENTATION IN THE FORM OF DIRECT INPUT TO *FORMAT AND NOT IN THE FORM USED WITH *TYPEIT. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00561/1 *UNEDIT SA G UNED WATF:UNEDIT(1,999) D3T4 312 UNEDIT..SA.1 1 LINE 80 10 PAGE UM MTA AUG. 01, 1973 23:10.55 0 PROGRAM TO COMPARE THE CURRENT VERSION OF A LINE FILE WITH A PREVIOUS VERSION AND PRODUCE THE APPROPRIATE MTS EDITOR COMMANDS FOR TRANSFORMING THE OLD VERSION TO THE NEW, I.E. THIS PROGRAM PRODUCES AN "UPDATE" DECK WHICH IS IN EDITOR FORMAT RATHER THAN *UPDATE FORMAT. 00561/2 *UNEDIT OE G *UNEDIT D3T4 313 UNEDIT..OE.2 1 SEQ 2124 1 PAGE UM MTA AUG. 01, 1973 23:11.03 00562/1 *UNLINKER SA G W062:UNLOAD.S D3T4 314 UNLINKER..SA.1 1 LINE 80 28 PAGE UM TIFFANY AUG. 01, 1973 23:11.08 0 PROGRAM TO CHANGE OS/360 LOAD MODULES INTO MTS OBJECT DECKS. ASSEMBLE WITH PAR=BATCH. 0 Referenced by comments of: 291/1, 298/2, 340/1 00562/2 *UNLINKER OE G *UNLINKER D3T4 315 UNLINKER..OE.2 1 SEQ 5664 2 PAGE UM TIFFANY AUG. 01, 1973 23:11.14 0 PROBABLY LINKEDITED FROM A FILE WHICH INCLUDED A REP CARD. 00563/1 CHAR MANIP SUBRS BTD SA BTD0 W081:UBCCHAR(1,60) D3T4 316 CHAR_MANIP_SUBRS.BTD.SA.1 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.19 0 THESE ARE THE UBC CHARACTER MANIPULATION SUBROUTINES. 00563/2 CHAR MANIP SUBRS LCOMC/COMC SA COMC W081:UBCCHAR(61,130) D3.1T1 419 CHAR_MANIP_SUBRS.LCOMC/COM.SA.2 1 LINE 80 3 PAGE UBC GOODRICH MAR. 06, 1974 22:01.54 0 D3.1 CHANGE: RETURN CODE NOT ZEROED ON SUCCESSFUL RETURN; FIXED IN THIS VERSION. 00563/3 CHAR MANIP SUBRS DTB SA DTB0 W081:UBCCHAR(131,218) D3T4 318 CHAR_MANIP_SUBRS.DTB.SA.3 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.29 00563/4 CHAR MANIP SUBRS FINDC SA FINC W081:UBCCHAR(219,298) D3T4 319 CHAR_MANIP_SUBRS.FINDC.SA.4 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.35 00563/5 CHAR MANIP SUBRS FINDST SA FINS W081:UBCCHAR(299,403) D3T4 320 CHAR_MANIP_SUBRS.FINDST.SA.5 1 LINE 80 4 PAGE UBC GOODRICH AUG. 01, 1973 23:11.40 00563/6 CHAR MANIP SUBRS IGC SA IGC0 W081:UBCCHAR(404,478) D3T4 321 CHAR_MANIP_SUBRS.IGC.SA.6 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.45 00563/7 CHAR MANIP SUBRS MOVEC SA MOVC W081:UBCCHAR(479,510) D3T4 322 CHAR_MANIP_SUBRS.MOVEC.SA.7 1 LINE 80 1 PAGE UBC GOODRICH AUG. 01, 1973 23:11.51 00563/8 CHAR MANIP SUBRS SETC SA SETC W081:UBCCHAR(511,544) D3T4 323 CHAR_MANIP_SUBRS.SETC.SA.8 1 LINE 80 1 PAGE UBC GOODRICH AUG. 01, 1973 23:11.58 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00563/9 CHAR MANIP SUBRS TRNC SA TRNC W081:UBCCHAR(545,603) D3T4 324 CHAR_MANIP_SUBRS.TRNC.SA.9 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:12.02 00563/10 CHAR MANIP SUBRS TRNST SA TRNS W081:UBCCHAR(604,717) D3T4 325 CHAR_MANIP_SUBRS.TRNST.SA.10 1 LINE 80 4 PAGE UBC GOODRICH AUG. 01, 1973 23:12.07 00563/11 CHAR MANIP SUBRS EQUC SA EQUC W081:UBCCHAR(1173) D3.1T1 420 CHAR_MANIP_SUBRS.EQUC.SA.11 1 LINE 80 1 PAGE UBC GOODRICH MAR. 06, 1974 22:01.57 0 D3.1 CHANGE: VALUE RETURNED FOR TRUE WOULD NOT WORK PROPERLY IN CERTAIN FTN EXPRESSIONS; FIXED IN THIS VERSION. 00563/12 CHAR MANIP SUBRS OBJECT OC # *LIBRARY (SEE COMP 524) UM GOODRICH 00564/1 SYMBOL XREF PROGRAM SA G SSXR MTA:SSXREF(1,999) D3T4 327 SYMBOL_XREF_PROGRAM..SA.1 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:12.18 0 PROGRAM READS ASSEMBLY SOURCE PROGRAMS FROM SCARDS AND WRITES EACH LINE WHICH CONTAINS A SEQUENCE OR SET SYMBOL ON SPUNCH WITH THE SYMBOL PREFIXED TO THE BEGINNING OF THE LINE (FOR SORTING). ASSEMBLE WITH *SYSMAC. 00564/2 SYMBOL XREF PROGRAM OC G MTA:SSXREF(1000) D3T4 328 SYMBOL_XREF_PROGRAM..OC.2 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:12.23 00565/1 STOR PROTECT DIAGNOSTIC SA G PROT MTS:TESTPROTECT(1,999) D3T4 329 STOR_PROTECT_DIAGNOSTIC..SA.1 1 LINE 80 5 PAGE UM MTA AUG. 01, 1973 23:12.29 0 HARDWARE STORAGE PROTECT DIAGNOSTIC TO TEST ALL OF CORE ABOVE X'1000'. PSW RESTART WILL RERUN THE TEST. ASSUMES A 1052 TYPEWRITER AT ADDRESS 009. IBM DOESN'T SEEM TO PROVIDE A DIAGNOSTIC TO PERFORM THE FUNCTIONS PROVIDED BY THIS PROGRAM. THE FOLLOWING ERRORS ARE REPORTED BY NUMBER ALONG WITH THE FAILING ADDRESS: 1. INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 10. 2. KEY NOT EQUAL TO 14 AFTER TEST 1. 3. NO INTERRUPT ON STORE WITH PSW KEY 2 AND STORAGE KEY 10. 4. KEY NOT EQUAL TO 16 AFTER TEST 3. 5. STORAGE CHANGED AFTER TEST 3 OR INTERRUPT LOOKING. 6. NO INTERRUPT ON LOAD WITH PSW KEY 2 AND STORAGE KEY 18. 7. KEY NOT EQUAL TO 1C AFTER TEST 6. 8. INTERRUPT ON LOAD WITH PSW KEY 1 AND STORAGE KEY 18. 9. KEY NOT EQUAL TO 1C AFTER TEST 8. 10. INTERRUPT ON STORE WITH PSW KEY 1 AND STORAGE KEY 18. 11. STORAGE NOT CHANGED CORRECTLY AFTER TEST 10 OR INTERRUPT LOOKING. 12. KEY NOT EQUAL TO 1E AFTER TEST 10. 00565/2 STOR PROTECT DIAGNOSTIC OC G MTS:TESTPROTECT(1000) D3T4 330 STOR_PROTECT_DIAGNOSTIC..OC.2 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:12.34 0 NEEDS AN ABSOLUTE LOADER. IPL ON A REAL OR VIRTUAL MACHINE. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00566/1 *PIL/2 MACLIB SM S0543 MTSPIL 'MTSPIL2' POSN=MACLIB 1 D3T4 331 PIL/2.MACLIB.SM.1 1 SEQ 80 14 PAGE UM TIFFANY AUG. 01, 1973 23:13.57 0 *PIL/2 IS A NEWER (AND MUCH BETTER) VERSION OF *PIL (COMP 178) THE PITTSBURGH INTERPRETIVE LANGUAGE. MACLIB IS THE ONLY MACRO LIBRARY USED IN ASSEMBLING *PIL/2. 0 Referenced by comments of: 178/1 00566/2 *PIL/2 DSECT SA S0543 MTSPIL 'MTSPIL2' POSN=DSECT 2 D3T4 332 PIL/2.DSECT.SA.2 1 SEQ 80 4 PAGE UM TIFFANY AUG. 01, 1973 23:14.00 0 COMPS 566/2 THROUGH 566/10 ARE COPY SECTIONS. 00566/3 *PIL/2 EQUS SA S0543 MTSPIL 'MTSPIL2' POSN=EQUS 3 D3T4 333 PIL/2.EQUS.SA.3 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.04 00566/4 *PIL/2 EVOUTPUT SA S0543 MTSPIL 'MTSPIL2' POSN=EVOUTPUT 4 D3T4 334 PIL/2.EVOUTPUT.SA.4 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.09 00566/5 *PIL/2 FORMDS SA S0543 MTSPIL 'MTSPIL2' POSN=FORMDS 5 D3T4 335 PIL/2.FORMDS.SA.5 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.13 00566/6 *PIL/2 KEYCODES SA S0543 MTSPIL 'MTSPIL2' POSN=KEYCODES 6 D3T4 336 PIL/2.KEYCODES.SA.6 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.18 00566/7 *PIL/2 PARTDS SA S0543 MTSPIL 'MTSPIL2' POSN=PARTDS 7 D3T4 337 PIL/2.PARTDS.SA.7 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.23 00566/8 *PIL/2 SCRDS SA S0543 MTSPIL 'MTSPIL2' POSN=SCRDS 8 D3T4 338 PIL/2.SCRDS.SA.8 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.28 00566/9 *PIL/2 STACKDS SA S0543 MTSPIL 'MTSPIL2' POSN=STACKDS 9 D3T4 339 PIL/2.STACKDS.SA.9 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.33 00566/10 *PIL/2 STEPDS SA S0543 MTSPIL 'MTSPIL2' POSN=STEPDS 10 D3T4 340 PIL/2.STEPDS.SA.10 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:14.37 00566/11 *PIL/2 PILL SA S0543 MTSPIL 'MTSPIL2' POSN=PILL 11 D3T4 341 PIL/2.PILL.SA.11 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 23:14.42 0 COMPS 566/11 THROUGH 566/48 ARE THE ASMG SOURCE FOR *PIL/2. 00566/12 *PIL/2 READIT SA S0543 MTSPIL 'MTSPIL2' POSN=READIT 12 D3T4 342 PIL/2.READIT.SA.12 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:14.47 00566/13 *PIL/2 TYPEIT SA S0543 MTSPIL 'MTSPIL2' POSN=TYPEIT 13 D3T4 343 PIL/2.TYPEIT.SA.13 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:14.52 00566/14 *PIL/2 PAGEMSG SA S0543 MTSPIL 'MTSPIL2' POSN=PAGEMSG 14 D3T4 344 PIL/2.PAGEMSG.SA.14 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:14.57 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00566/15 *PIL/2 CANIT SA S0543 MTSPIL 'MTSPIL2' POSN=CANIT 15 D3T4 345 PIL/2.CANIT.SA.15 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:15.01 00566/16 *PIL/2 PIL2 SA S0543 MTSPIL 'MTSPIL2' POSN=PIL2 16 D3T4 346 PIL/2.PIL2.SA.16 1 SEQ 80 11 PAGE UM TIFFANY AUG. 01, 1973 23:15.07 00566/17 *PIL/2 DSBRK SA S0543 MTSPIL 'MTSPIL2' POSN=DSBRK 17 D3T4 347 PIL/2.DSBRK.SA.17 1 SEQ 80 8 PAGE UM TIFFANY AUG. 01, 1973 23:15.11 00566/18 *PIL/2 BKDOWN SA S0543 MTSPIL 'MTSPIL2' POSN=BKDOWN 18 D3T4 348 PIL/2.BKDOWN.SA.18 1 SEQ 80 21 PAGE UM TIFFANY AUG. 01, 1973 23:15.17 00566/19 *PIL/2 FORMPROC SA S0543 MTSPIL 'MTSPIL2' POSN=FORMPROC 19 D3T4 349 PIL/2.FORMPROC.SA.19 1 SEQ 80 44 PAGE UM TIFFANY AUG. 01, 1973 23:15.24 00566/20 *PIL/2 PILSQRT SA S0543 MTSPIL 'MTSPIL2' POSN=PILSQRT 20 D3T4 350 PIL/2.PILSQRT.SA.20 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:15.28 00566/21 *PIL/2 PILATAN SA S0543 MTSPIL 'MTSPIL2' POSN=PILATAN 21 D3T4 351 PIL/2.PILATAN.SA.21 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:15.33 00566/22 *PIL/2 PILSINE SA S0543 MTSPIL 'MTSPIL2' POSN=PILSINE 22 D3T4 352 PIL/2.PILSINE.SA.22 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:15.38 00566/23 *PIL/2 PILLOGE SA S0543 MTSPIL 'MTSPIL2' POSN=PILLOGE 23 D3T4 353 PIL/2.PILLOGE.SA.23 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:15.43 00566/24 *PIL/2 PILETX SA S0543 MTSPIL 'MTSPIL2' POSN=PILETX 24 D3T4 354 PIL/2.PILETX.SA.24 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:15.48 00566/25 *PIL/2 LOOKPS SA S0543 MTSPIL 'MTSPIL2' POSN=LOOKPS 25 D3T4 355 PIL/2.LOOKPS.SA.25 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:15.53 00566/26 *PIL/2 WANT16 SA S0543 MTSPIL 'MTSPIL2' POSN=WANT16 26 D3T4 356 PIL/2.WANT16.SA.26 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:16.00 00566/27 *PIL/2 MOVPOL SA S0543 MTSPIL 'MTSPIL2' POSN=MOVPOL 27 D3T4 357 PIL/2.MOVPOL.SA.27 1 SEQ 80 4 PAGE UM TIFFANY AUG. 01, 1973 23:16.02 00566/28 *PIL/2 FORTROL SA S0543 MTSPIL 'MTSPIL2' POSN=FORTROL 28 D3T4 358 PIL/2.FORTROL.SA.28 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:16.07 00566/29 *PIL/2 RETHEAD SA S0543 MTSPIL 'MTSPIL2' POSN=RETHEAD 29 D3T4 359 PIL/2.RETHEAD.SA.29 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 23:16.12 00566/30 *PIL/2 TALPL SA S0543 MTSPIL 'MTSPIL2' POSN=TALPL 30 D3T4 360 PIL/2.TALPL.SA.30 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:16.17 00566/31 *PIL/2 CONVERT SA S0543 MTSPIL 'MTSPIL2' POSN=CONVERT 31 D3T4 361 PIL/2.CONVERT.SA.31 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:16.22 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00566/32 *PIL/2 STEPMESS SA S0543 MTSPIL 'MTSPIL2' POSN=STEPMESS 32 D3T4 362 PIL/2.STEPMESS.SA.32 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:16.27 00566/33 *PIL/2 FUNCS SA S0543 MTSPIL 'MTSPIL2' POSN=FUNCS 33 D3T4 363 PIL/2.FUNCS.SA.33 1 SEQ 80 30 PAGE UM TIFFANY AUG. 01, 1973 23:16.34 00566/34 *PIL/2 LOPL SA S0543 MTSPIL 'MTSPIL2' POSN=LOPL 34 D3T4 364 PIL/2.LOPL.SA.34 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:16.37 00566/35 *PIL/2 DELVALS SA S0543 MTSPIL 'MTSPIL2' POSN=DELVALS 35 D3T4 365 PIL/2.DELVALS.SA.35 1 SEQ 80 25 PAGE UM TIFFANY AUG. 01, 1973 23:16.45 00566/36 *PIL/2 XFORMX SA S0543 MTSPIL 'MTSPIL2' POSN=XFORMX 36 D3T4 366 PIL/2.XFORMX.SA.36 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:16.48 00566/37 *PIL/2 EXTRANS SA S0543 MTSPIL 'MTSPIL2' POSN=EXTRANS 37 D3T4 367 PIL/2.EXTRANS.SA.37 1 SEQ 80 3 PAGE UM TIFFANY AUG. 01, 1973 23:16.53 00566/38 *PIL/2 TYPEPS SA S0543 MTSPIL 'MTSPIL2' POSN=TYPEPS 38 D3T4 368 PIL/2.TYPEPS.SA.38 1 SEQ 80 15 PAGE UM TIFFANY AUG. 01, 1973 23:16.59 00566/39 *PIL/2 XPRES SA S0543 MTSPIL 'MTSPIL2' POSN=XPRES 39 D3T4 369 PIL/2.XPRES.SA.39 1 SEQ 80 19 PAGE UM TIFFANY AUG. 01, 1973 23:17.05 00566/40 *PIL/2 MINDIR SA S0543 MTSPIL 'MTSPIL2' POSN=MINDIR 40 D3T4 370 PIL/2.MINDIR.SA.40 1 SEQ 80 5 PAGE UM TIFFANY AUG. 01, 1973 23:17.08 00566/41 *PIL/2 HEADINS SA S0543 MTSPIL 'MTSPIL2' POSN=HEADINS 41 D3T4 371 PIL/2.HEADINS.SA.41 1 SEQ 80 1 PAGE UM TIFFANY AUG. 01, 1973 23:17.12 00566/42 *PIL/2 STROP SA S0543 MTSPIL 'MTSPIL2' POSN=STROP 42 D3T4 372 PIL/2.STROP.SA.42 1 SEQ 80 15 PAGE UM TIFFANY AUG. 01, 1973 23:17.18 00566/43 *PIL/2 SETUP SA S0543 MTSPIL 'MTSPIL2' POSN=SETUP 43 D3T4 373 PIL/2.SETUP.SA.43 1 SEQ 80 6 PAGE UM TIFFANY AUG. 01, 1973 23:17.22 00566/44 *PIL/2 SPLIT SA S0543 MTSPIL 'MTSPIL2' POSN=SPLIT 44 D3T4 374 PIL/2.SPLIT.SA.44 1 SEQ 80 2 PAGE UM TIFFANY AUG. 01, 1973 23:17.26 00566/45 *PIL/2 FORBREAK SA S0543 MTSPIL 'MTSPIL2' POSN=FORBREAK 45 D3T4 375 PIL/2.FORBREAK.SA.45 1 SEQ 80 10 PAGE UM TIFFANY AUG. 01, 1973 23:17.34 00566/46 *PIL/2 EVAL SA S0543 MTSPIL 'MTSPIL2' POSN=EVAL 46 D3T4 376 PIL/2.EVAL.SA.46 1 SEQ 80 28 PAGE UM TIFFANY AUG. 01, 1973 23:17.40 00566/47 *PIL/2 TYPARRY SA S0543 MTSPIL 'MTSPIL2' POSN=TYPARRY 47 D3T4 377 PIL/2.TYPARRY.SA.47 1 SEQ 80 12 PAGE UM TIFFANY AUG. 01, 1973 23:17.44 00566/48 *PIL/2 PROCESS SA S0543 MTSPIL 'MTSPIL2' POSN=PROCESS 48 D3T4 378 PIL/2.PROCESS.SA.48 1 SEQ 80 51 PAGE UM TIFFANY AUG. 01, 1973 23:17.54 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00566/49 *PIL/2 *PIL/2 OC LBT:PILL D3T4 379 PIL/2.*PIL/2.OC.49 1 LINE 24 1 PAGE UM TIFFANY AUG. 01, 1973 23:20.04 0 CONTAINS 4 LOADER CARDS (RIP, COM, LCS, LDT) TO FORCE REFERENCE TO SEGMENT 2 PIL/2 (566/51). WHEN PIL/2 IS MADE OFFICIALLY AVAILABLE (VERY SOON), THIS WILL BE IN THE FILE "*PIL/2". 00566/50 *PIL/2 OBJECT OE SEG2:PIL D3T4 380 PIL/2.OBJECT.OE.50 1 SEQ 256 20 PAGE UM TIFFANY AUG. 01, 1973 23:20.04 0 PIL/2 IS RE-ENTRANT AND IS LOADED IN TO SHARED VM AT IPL BY THE SEG 2 LOADER. 00566/51 *PIL/2 USER'S GUIDE WT W062:M D3T4 381 PIL/2.USER'S_GUIDE.WT.51 1 SEQ 256 82 PAGE UM TIFFANY AUG. 01, 1973 23:20.09 0 TEXT/360 MASTER FOR PIL/2 USER'S GUIDE (MTS VOLUME 12). 0 Referenced by comments of: 566/49 00566/52 *PIL/2 USER'S GUIDE PT W062:P D3T4 382 PIL/2.USER'S_GUIDE.PT.52 1 SEQ 132 294 PAGE UM TIFFANY AUG. 01, 1973 23:20.18 0 TEXT/360 PRINT FILE FOR THE PIL/2 USER'S GUIDE (MTS VOLUME 12). NOTE: THIS IS NOT QUITE READY TO BE PRINTED YET, AND THEREFORE WE ARE NOT SENDING HARD COPY. 00567/1 *1052RTN SA O TFTS MTA:TFTS.S D3T4 383 1052RTN..SA.1 1 LINE 80 37 PAGE UM MTA AUG. 01, 1973 23:20.54 0 MTS DEVICE SUPPORT ROUTINES FOR 1052 OPERATOR'S CONSOLE. ALLOWS USE OF ALTERNATE CONSOLE ON DUPLEX 67 AS MTS TERMINAL. 00567/2 *1052RTN OC O *1052RTN D3T4 384 1052RTN..OC.2 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:21.04 00568/1 *TIMETALLY SA G TTLY S0297 S297 'UTIL III' FSNAME=TT.S D3.1T1 421 TIMETALLY..SA.1 1 LINE 80 31 PAGE UM HENRIKSEN NOV. 23, 1973 16:03.47 0 TIMETALLY IS A PROGRAM TO MONITOR THE EXECUTION OF A USER PROGRAM AND TO PRODUCE A HISTOGRAM DEPICTING THE DISTRIBUTION OF CPU ACTIVITY WITHIN THE PROGRAM. 00568/2 *TIMETALLY OE G *TIMETALLY D3.1T1 422 TIMETALLY..OE.2 1 SEQ 8940 6 PAGE UM HENRIKSEN MAR. 06, 1974 22:04.15 00568/3 *TIMETALLY D3.1 NOTES WF W098:HEN1 D3.1T1 423 TIMETALLY.D3.1_NOTES.WF.3 1 LINE 105 1 PAGE UM HENRIKSEN MAR. 06, 1974 22:04.16 0 WRITEUP DESCRIBING D3.1 *TIMETALLY. 00569/1 PCE SNIFFER SA PCE0 DWB:PCE(1,999) D3T4 387 PCE_SNIFFER..SA.1 1 LINE 80 4 PAGE UM DWB AUG. 01, 1973 23:21.23 0 PCE SNIFFER UTILITY PROGRAM. EVERY 3 SECONDS, THIS PROGRAM PRINTS THE FOLLOWING OUTPUT LINE: F:N1 B:N2 T: N3P N4U N5B 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 WHERE N1 IS THE NUMBER OF FREE HASP EXECUTION PCE'S, N2 IS THE NUMBER OF PCE'S CURRENTLY BEING USED FOR BATCH EXECUTION, N3 IS THE NUMBER OF *PRINT* PCE'S, N4 IS THE NUMBER OF *PUNCH* PCE'S, AND N5 IS THE NUMBER OF *BATCH* PCE'S. IF PAR=CHANGE IS SPECIFIED WHEN THE PROGRAM IS RUN, IT PRINTS THE LINE ONLY IF IT DIFFERS FROM THE PREVIOUS LINE PRINTED. IF PAR=VERIFY IS SPECIFIED, THE PROGRAM CHECKS TO MAKE SURE THE PCE'S ARE ATTACHED TO THE USER THEY THINK THEY ARE. IF IT DISCOVERS A PCE FOR WHICH THE JOB TABLE USER ID DIFFERS FROM THE JCT ID, IT PRINTS: PCE: AAAAA JCTID: IIII JOB TABLE: PPPPPPPP JOB N WHERE AAAAA IS THE HEX LOCN OF THE PCE, IIII IS THE ID IN THE JCT (0000 IF ZERO, ???? IF JCT ADDR NOT LEGAL), PPPPPPPP IS THE USERID AND PROJECT NO. FROM THE JOB TABLE (???????? IF BAD JOB NUMBER), AND N IS THE JOB NUMBER. USES IOH (278) FOR OUTPUT FORMATTING AND HAS ABSOLUTE DEFINITIONS FOR DISPLACEMENTS OF SOME ITEMS IN PCE AND WORK AREA OF EXECUTION PCE. 00569/2 PCE SNIFFER OC DWB:PCE(1000) D3T4 388 PCE_SNIFFER..OC.2 1 LINE 80 1 PAGE UM DWB AUG. 01, 1973 23:21.28 00570/1 *MNETRTN SA G MNET K1Y2:MNETDSR D3T4 389 MNETRTN..SA.1 1 LINE 80 64 PAGE UM LANDWEHR AUG. 01, 1973 23:21.33 0 MTS DEVICE SUPPORT ROUTINES FOR THE MERIT COMPUTER NETWORK INTERACTIVE SERVICE. COPIES COPY:LLMPSEQU (087). 00570/2 *MNETRTN OC G *MNETRTN D3T4 390 MNETRTN..O.2 1 LINE 80 5 PAGE UM LANDWEHR AUG. 01, 1973 23:21.58 0 OBJECT CONTAINS REP CARDS. 00571/1 APL LIBRARY WS ADVANCEDE D APL:001ADVANCEDE D3T4 391 APL_LIBRARY_WS.ADVANCEDE.D.1 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:22.03 0 THE APL LIBRARY WORKSPACES MUST BE RESTORED AS FILES UNDER USER ID "APL." USING AS FILE NAMES THE 3 DIGIT (WITH LEADING ZEROS) LIBRARY FILE NUMBER FOLLOWED BY THE WORKSPACE NAME, I.E., USE THE SAME NAMES AS WERE USED TO GENERATE THE DISTRIBUTION TAPE. 00571/2 APL LIBRARY WS APLCOURSE D APL:001APLCOURSE D3T4 392 APL_LIBRARY_WS.APLCOURSE.D.2 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:22.07 00571/3 APL LIBRARY WS CLASS D APL:001CLASS D3T4 393 APL_LIBRARY_WS.CLASS.D.3 1 LINE 255 7 PAGE UM DWB AUG. 01, 1973 23:22.12 00571/4 APL LIBRARY WS EIGENVALU D # (NOT AVAILABLE) UM DWB 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00571/5 APL LIBRARY WS NEWS D APL:001NEWS D3T4 394 APL_LIBRARY_WS.NEWS.D.5 1 SEQ 26040 8 PAGE UM DWB AUG. 01, 1973 23:22.18 00571/6 APL LIBRARY WS PLOTFORMA D APL:001PLOTFORMA D3T4 395 APL_LIBRARY_WS.PLOTFORMA.D.6 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:22.23 00571/7 APL LIBRARY WS TYPEDRILL D APL:001TYPEDRILL D3T4 396 APL_LIBRARY_WS.TYPEDRILL.D.7 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:22.30 00571/8 APL LIBRARY WS WSFNS D APL:001WSFNS D3T4 397 APL_LIBRARY_WS.WSFNS.D.8 1 LINE 255 3 PAGE UM DWB AUG. 01, 1973 23:22.34 00571/9 APL LIBRARY WS CATALOG D APL:002CATALOG D3T4 398 APL_LIBRARY_WS.CATALOG.D.9 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:22.39 00571/10 APL LIBRARY WS STP1 D APL:002STP1 D3T4 399 APL_LIBRARY_WS.STP1.D.10 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:22.45 00571/11 APL LIBRARY WS STP2 D APL:002STP2 D3T4 400 APL_LIBRARY_WS.STP2.D.11 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:22.52 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 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00571/22 APL LIBRARY WS COGO D APL:005COGO D3T4 411 APL_LIBRARY_WS.COGO.D.22 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:23.48 00571/23 APL LIBRARY WS COMPCENT D APL:005COMPCENT D3T4 412 APL_LIBRARY_WS.COMPCENT.D.23 1 LINE 255 3 PAGE UM DWB AUG. 01, 1973 23:23.53 00571/24 APL LIBRARY WS CW D APL:005CW D3T4 413 APL_LIBRARY_WS.CW.D.24 1 LINE 255 7 PAGE UM DWB AUG. 01, 1973 23:23.59 00571/25 APL LIBRARY WS EDIT D APL:005EDIT D3T4 414 APL_LIBRARY_WS.EDIT.D.25 1 LINE 255 7 PAGE UM DWB AUG. 01, 1973 23:24.05 00571/26 APL LIBRARY WS MATRIXALG D APL:005MATRIXALG D3T4 415 APL_LIBRARY_WS.MATRIXALG.D.26 1 LINE 255 8 PAGE UM DWB AUG. 01, 1973 23:24.10 00571/27 APL LIBRARY WS SNOBOL D APL:005SNOBOL D3T4 416 APL_LIBRARY_WS.SNOBOL.D.27 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:24.15 00571/28 APL LIBRARY WS SRADEMO D APL:005SRADEMO D3T4 417 APL_LIBRARY_WS.SRADEMO.D.28 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:24.20 00572/1 BLOKLETR SA G BKLT DWB:BLOKLETR.S D3T4 418 BLOKLETR..SA.1 1 LINE 80 7 PAGE UM DWB AUG. 01, 1973 23:24.26 0 SUBROUTINE CALLLED BY MTS TO PRODUCE BLOCKLETTERS PRINTED ON *PRINT* TAIL SHEETS. 00572/2 BLOKLETR OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00573/1 MTS VOLUME 5 MASTER WT G S0451 MTSV5 'MTS MANUALS' POSN=NEWM1.V5 5 D3T4 419 MTS_VOLUME_5.MASTER.WT.1 1 SEQ 132 242 PAGE UM SALISBURY AUG. 01, 1973 23:30.30 0 TEXT/360 MASTER FOR VOLUME 5 "SYSTEM SERVICES" OF THE UM MTS MANUAL. 00573/2 MTS VOLUME 5 PRINT PT G S0451 MTSV5 'MTS MANUALS' POSN=PRINT1.V5 6 D3T4 420 MTS_VOLUME_5.PRINT.PT.2 1 SEQ 132 570 PAGE UM SALISBURY AUG. 01, 1973 23:31.54 0 TEXT/360 PRINT FILE. 00574/1 MTS VOLUME 10 MASTER WT G S0546 MTSV10 'MTS MANUALS' POSN=NEWM1.V10 2 D3T4 421 MTS_VOLUME_10.MASTER.WT.1 1 SEQ 133 236 PAGE UM SALISBURY AUG. 01, 1973 23:34.08 0 TEXT/360 MASTER FOR VOLUME 10 "BASIC IN MTS" OF THE UM MTS MANUAL. 00574/2 MTS VOLUME 10 PRINT PT G S0546 MTSV10 'MTS MANUALS' POSN=PRINT1.V10 3 D3T4 422 MTS_VOLUME_10.PRINT.PT.2 1 SEQ 132 839 PAGE UM SALISBURY AUG. 01, 1973 23:35.37 0 TEXT/360 PRINT FILE. 00574/3 MTS VOLUME 10 INDEX P G S0546 MTSV10 'MTS MANUALS' POSN=VOL10END 4 D3T4 423 MTS_VOLUME_10.INDEX.P.3 1 SEQ 100 9 PAGE UM SALISBURY AUG. 01, 1973 23:38.03 0 VOLUME 10 INDEX. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00575/1 MTS VOLUME 4 MASTER WT G S0616 MTSV4 'MTS MANUALS' POSN=NEWM2.V4 D3T4 424 MTS_VOLUME_4.MASTER.WT.1 1 SEQ 132 157 PAGE UM SALISBURY AUG. 01, 1973 23:39.38 0 TEXT/360 MASTER FOR VOLUME 4 "TERMINALS AND TAPES" OF THE UM MTS MANUALS. 00575/2 MTS VOLUME 4 PRINT PT G S0616 MTSV4 'MTS MANUALS' POSN=PRINT2.V4 D3T4 425 MTS_VOLUME_4.PRINT.PT.2 1 SEQ 132 596 PAGE UM SALISBURY AUG. 01, 1973 23:40.43 0 TEXT/360 PRINT FILE. 00575/3 MTS VOLUME 4 KEYBOARD PLOT SF W032:KBDPLOTSOU D3T4 426 MTS_VOLUME_4.KEYBOARD_PLOT.SF.3 1 LINE 80 10 PAGE UM EMERY AUG. 01, 1973 23:41.35 0 FORTRAN PROGRAM TO PRODUCE THE CALCOMP KEYBOARD PLOTS USED IN THE MEMOREX 1270 (IBM 2703) USER'S GUIDE IN VOLUME 4. REQUIRES A SPECIAL VERSION OF THE CALCOMP 'SYMBOL' ROUTINE (575/4 AND 575/5). USES EBCDDEFN (038/9) AND GOLFPTTC (038/10) (OR GOLFCORR (038/11)) AS INPUT DURING EXECUTION. OBJECT NOT DISTRIBUTED. 0 Referenced by comments of: 575/4 00575/4 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). MODIFIED TO WORK WITH D3.1 PLOT ROUTINES. 00575/5 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/1 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/2 OMR CONVERT OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 0 Referenced by comments of: 86/2 00576/3 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/1 MACHINE CHECK REC'Y CEAIR SA G EAIR MTA:CEAIR.S D3.1T1 428 MACHINE_CHECK_REC'Y.CEAIR.SA.1 1 LINE 80 18 PAGE UM MTA MAR. 06, 1974 22:04.40 0 THE MTS 360/67 MACHINE CHECK ERROR RECOVERY. MODIFIED (AND DEBUGGED) FROM TSS/360 BY UBC AND UM. 1 FRI AUG 02/96 18:37:32 Page 198 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CEAIR IS THE RECOVERY NUCLEUS. COPIES COPY:CHAERC (577/30), COPY:LLMPSEQU (087), COPY:PSA (162), AND COPY:CHADMR (577/29). 00577/2 MACHINE CHECK REC'Y CEAIR OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00577/3 MACHINE CHECK REC'Y CMASA SA G MASA MTA:CMASA.S D3.1T1 429 MACHINE_CHECK_REC'Y.CMASA.SA.3 1 LINE 80 14 PAGE UM MTA MAR. 06, 1974 22:04.43 0 BOOTSTRAP. COPIES COPY:CHAERC (577/30), COPY:CHASYS.2 (577/35), COPY:LLMPSEQU (087), AND COPY:PSA (162). 00577/4 MACHINE CHECK REC'Y CMASA OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00577/5 MACHINE CHECK REC'Y CEABE SA G EABE MTA:CEABE.S D3.1T1 430 MACHINE_CHECK_REC'Y.CEABE.SA.5 1 LINE 80 20 PAGE UM MTA MAR. 06, 1974 22:04.47 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/6 MACHINE CHECK REC'Y CEABE OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00577/7 MACHINE CHECK REC'Y CMASB SA G MASB MTA:CMASB.S D3T4 434 MACHINE_CHECK_REC'Y.CMASB.SA.7 1 LINE 80 15 PAGE UM MTA AUG. 01, 1973 23:42.16 0 ERROR RECORDING. COPIES COPY:LLMPSEQU (087), COPY:PSA (162), AND COPY:CHAOER (577/33). 00577/8 MACHINE CHECK REC'Y CMASB OC G INIT:CMASB D3T4 435 MACHINE_CHECK_REC'Y.CMASB.O.8 1 LINE 80 2 PAGE UM MTA AUG. 01, 1973 23:45.44 00577/9 MACHINE CHECK REC'Y CMASC SA G MASC MTA:CMASC.S D3.1T1 431 MACHINE_CHECK_REC'Y.CMASC.SA.9 1 LINE 80 13 PAGE UM MTA MAR. 06, 1974 22:04.51 0 IMMEDIATE PRINT. COPIES COPY:CHAERC (577/30). 00577/10 MACHINE CHECK REC'Y CMASC OC G INIT:CMASC 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 REC'Y CMASD SA G MASD MTA:CMASD.S D3.1T1 433 MACHINE_CHECK_REC'Y.CMASD.SA.11 1 LINE 80 28 PAGE UM MTA MAR. 06, 1974 22:04.57 0 CHECKER (CHECKS PARITY ETC.). COPIES COPY:CHAPSA (577/34) AND COPY:CHACST (577/28). 00577/12 MACHINE CHECK REC'Y CMASD OC G INIT:CMASD 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 REC'Y CMASE SA G MASE MTA:CMASE.S D3T4 440 MACHINE_CHECK_REC'Y.CMASE.SA.13 1 LINE 80 30 PAGE UM MTA AUG. 01, 1973 23:46.07 0 POINTER (FIND FAILING INSTRUCTION). 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00577/14 MACHINE CHECK REC'Y CMASE OC G INIT:CMASE D3T4 441 MACHINE_CHECK_REC'Y.CMASE.O.14 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:46.13 00577/15 MACHINE CHECK REC'Y CMASF SA G MASF MTA:CMASF.S D3T4 442 MACHINE_CHECK_REC'Y.CMASF.SA.15 1 LINE 80 23 PAGE UM MTA AUG. 01, 1973 23:46.20 0 RESTORE AND VALIDATE. 00577/16 MACHINE CHECK REC'Y CMASF OC G INIT:CMASF D3T4 443 MACHINE_CHECK_REC'Y.CMASF.O.16 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:46.24 00577/17 MACHINE CHECK REC'Y CMASG SA G MASG MTA:CMASG.S D3.1T1 435 MACHINE_CHECK_REC'Y.CMASG.SA.17 1 LINE 80 26 PAGE UM MTA MAR. 06, 1974 22:05.07 0 INSTRUCTION RETRY. COPIES COPY:LLMPSEQU (087) AND COPY:PSA (162). 00577/18 MACHINE CHECK REC'Y CMASG OC G INIT:CMASG 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 REC'Y CMASH SA G MASH MTA:CMASH.S D3T4 446 MACHINE_CHECK_REC'Y.CMASH.SA.19 1 LINE 80 35 PAGE UM MTA AUG. 01, 1973 23:46.42 0 FIRST DIAGNOSTIC. COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34). 00577/20 MACHINE CHECK REC'Y CMASH OC G INIT:CMASH D3T4 447 MACHINE_CHECK_REC'Y.CMASH.O.20 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:46.47 00577/21 MACHINE CHECK REC'Y CMASI SA G MASI MTA:CMASI.S D3.1T1 437 MACHINE_CHECK_REC'Y.CMASI.SA.21 1 LINE 80 29 PAGE UM MTA MAR. 06, 1974 22:05.15 0 SECOND DIAGNOSTIC. COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34). 00577/22 MACHINE CHECK REC'Y CMASI OC G INIT:CMASI 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 REC'Y CMASJ SA G MASJ MTA:CMASJ.S D3T4 450 MACHINE_CHECK_REC'Y.CMASJ.SA.23 1 LINE 80 16 PAGE UM MTA AUG. 01, 1973 23:47.05 0 THIRD DIAGNOSTIC. COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34). 00577/24 MACHINE CHECK REC'Y CMASJ OC G INIT:CMASJ D3T4 451 MACHINE_CHECK_REC'Y.CMASJ.O.24 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:47.10 00577/25 MACHINE CHECK REC'Y CGCMA SA G GCMA MTA:CGCMA.S D3.1T1 439 MACHINE_CHECK_REC'Y.CGCMA.SA.25 1 LINE 80 22 PAGE UM MTA MAR. 06, 1974 22:05.28 0 RECONFIGURATION. COPIES COPY:PCBDSECT (470), COPY:CHADMR (577/29), COPY:PSA (162), AND COPY:LLMPSEQU (087). 00577/26 MACHINE CHECK REC'Y CGCMA OC G INIT:CGCMA D3.1T1 440 MACHINE_CHECK_REC'Y.CGCMA.OC.26 1 LINE 80 3 PAGE UM MTA MAR. 06, 1974 22:05.33 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00577/27 MACHINE CHECK REC'Y CHACHL SA G CHL0 COPY:CHACHL D3T4 454 MACHINE_CHECK_REC'Y.CHACHL.SA.27 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:47.28 0 COPY SECTION FOR TSS FLAVOR CHANNEL TABLE. 0 Referenced by comments of: 577/5 00577/28 MACHINE CHECK REC'Y CHACST SA G CST0 COPY:CHACST D3T4 455 MACHINE_CHECK_REC'Y.CHACST.SA.28 1 LINE 80 2 PAGE UM MTA AUG. 01, 1973 23:47.33 0 COPY SECTION FOR CPU STATUS TABLE. 0 Referenced by comments of: 121/2, 577/11, 577/19, 577/21, 577/23, 611/1 00577/29 MACHINE CHECK REC'Y CHADMR SA G DMR0 COPY:CHADMR D3T4 456 MACHINE_CHECK_REC'Y.CHADMR.SA.29 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:47.39 0 COPY SECTION FOR DAMAGE REPORT. 0 Referenced by comments of: 577/1, 577/5, 577/25 00577/30 MACHINE CHECK REC'Y CHAERC SA G ERC0 COPY:CHAERC D3T4 457 MACHINE_CHECK_REC'Y.CHAERC.SA.30 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 23:47.45 0 COPY SECTION FOR ERROR RECOVERY CONTROL TABLE (X'C00' IN PSA). 0 Referenced by comments of: 46/1, 577/1, 577/3, 577/9, 589/1 00577/31 MACHINE CHECK REC'Y CHAERE SA G ERE0 COPY:CHAERE D3T4 458 MACHINE_CHECK_REC'Y.CHAERE.SA.31 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:47.51 0 COPY SECTION FOR EXTERNAL MACHINE CHECK ERROR RECORD FORMAT. 0 Referenced by comments of: 577/5, 577/37 00577/32 MACHINE CHECK REC'Y CHAIER SA G IER0 COPY:CHAIER D3T4 459 MACHINE_CHECK_REC'Y.CHAIER.SA.32 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:47.57 0 COPY SECTION FOR INBOARD I/O ERROR RECORD FORMAT. 0 Referenced by comments of: 577/37, 589/1 00577/33 MACHINE CHECK REC'Y CHAOER SA G OER0 COPY:CHAOER D3T4 460 MACHINE_CHECK_REC'Y.CHAOER.SA.33 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:48.02 0 COPY SECTION FOR OUTBOARD I/O ERROR RECORD FORMAT. 0 Referenced by comments of: 577/7, 577/37 00577/34 MACHINE CHECK REC'Y CHAPSA SA G PSA0 COPY:CHAPSA D3T4 461 MACHINE_CHECK_REC'Y.CHAPSA.SA.34 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:48.08 0 COPY SECTION FOR TSS FLAVOR PSA. 1 FRI AUG 02/96 18:37:32 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 Referenced by comments of: 577/5, 577/11, 577/19, 577/21, 577/23, 588/1 00577/35 MACHINE CHECK REC'Y CHASYS.2 SA G SYS2 COPY:CHASYS.2 D3.1T1 441 MACHINE_CHECK_REC'Y.CHASYS.SA.35 1 LINE 80 1 PAGE UM MTA MAR. 06, 1974 22:05.36 0 COPY SECTION FOR THE 'SYSTEM TABLE'. 0 Referenced by comments of: 46/1, 577/3 00577/36 MACHINE CHECK REC'Y CHASDT SA G SDT0 COPY:CHASDT D3T4 463 MACHINE_CHECK_REC'Y.CHASDT.SA.36 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:48.20 0 COPY SECTION FOR STATISTICAL DATA TABLE. NOT USED BY MTS. 0 Referenced by comments of: 577/37 00577/37 MACHINE CHECK REC'Y CZASE SA G ZASE MTA:CZASE.S D3.1T1 442 MACHINE_CHECK_REC'Y.CZASE.SA.37 1 LINE 80 132 PAGE UM MTA MAR. 06, 1974 22:05.38 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. FOR D3.1, CZASE HAS BEEN CHANGED TO 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 REC'Y CZASE OE G INIT:CZASE D3.1T1 443 MACHINE_CHECK_REC'Y.CZASE.OE.38 1 SEQ 176 20 PAGE UM MTA MAR. 06, 1974 22:06.14 0 CONTAINS SEVERAL PROGRAMS IN ADDITION TO CZASE. 0 Referenced by comments of: 577/49 00577/39 MACHINE CHECK REC'Y MTA:MACLIB SM G MAC0 MTA:MACLIB D3T4 466 MACHINE_CHECK_REC'Y.MTA:MA.SM.39 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 23:48.51 0 MACROS, MOST OF WHICH ARE NOT USED. 0 Referenced by comments of: 577/37 00577/40 MACHINE CHECK REC'Y DRMINIT SA G DRMI MTA:DRMINIT.S D3T4 467 MACHINE_CHECK_REC'Y.DRMINI.SA.40 1 LINE 80 6 PAGE UM MTA AUG. 01, 1973 23:48.57 0 WRITE MACHINE CHECK MODULES ON DRUMS. ASSEMBLE WITH *SYSMAC. 00577/41 MACHINE CHECK REC'Y DRMINIT OC G INIT:DRMINIT D3T4 468 MACHINE_CHECK_REC'Y.DRMINI.O.41 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:49.03 00577/42 MACHINE CHECK REC'Y LOGPRINT SA G LOGP S0421 'UBC -> UM #16' FSNAME=LOGPRINT.S 14 D3T4 469 MACHINE_CHECK_REC'Y.LOGPRI.SA.42 1 LINE 80 3 PAGE UBC MTA SEP. 27, 1971 11:03:35 0 PROGRAM TO PRINT CZASE OUTPUT. ASSEMBLE WITH *SYSMAC? 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00577/43 MACHINE CHECK REC'Y LOGPRINT OC G MTA:LOGPRINT D3T4 470 MACHINE_CHECK_REC'Y.LOGPRI.O.43 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:51.53 00577/44 MACHINE CHECK REC'Y SHORTPRINT SA G SHRT MTA:SHORT.S(1,999) D3T4 471 MACHINE_CHECK_REC'Y.SHORTP.SA.44 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 23:51.59 0 ONE LINE SUMMARY (POOR) FROM CZASE OUTPUT. ASSEMBLE WITH *SYSMAC. 00577/45 MACHINE CHECK REC'Y SHORTPRINT OC G MTA:SHORT.S(1000) D3T4 472 MACHINE_CHECK_REC'Y.SHORTP.O.45 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:52.05 00577/46 MACHINE CHECK REC'Y WRITEUP P MTA:MCHDESCR D3T4 473 MACHINE_CHECK_REC'Y.WRITEU.P.46 1 LINE 67 4 PAGE UM MTA AUG. 01, 1973 23:52.11 0 WRITE-UP FOR MACHINE CHECK STUFF. 00577/47 MACHINE CHECK REC'Y MCHDEFS SA G MCHD MTA:MCHDEFS(1,999) D3T4 474 MACHINE_CHECK_REC'Y.MCHDEF.SA.47 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:52.16 0 LOW-CORE SYMBOL TABLE (LIKE LCSYMBOL) FOR SYMBOLS REFERENCED BY DRMINIT. 00577/48 MACHINE CHECK REC'Y MCHDEFS OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00577/49 MACHINE CHECK REC'Y CZASY1 SA G ZASY S0421 'UBC -> UM #16' FSNAME=CZASY1.S 13 D3T4 475 MACHINE_CHECK_REC'Y.CZASY1.SA.49 1 LINE 80 2 PAGE UBC MTA SEP. 27, 1971 11:03:07 0 SUBROUTINE TO EXECUTE DRUM I/O FOR CZASE. OBJECT IS PART OF INIT:CZASE (577/38). 00577/50 MACHINE CHECK REC'Y COMMANDS C INIT:COM D3T4 476 MACHINE_CHECK_REC'Y.COMMAN.C.50 1 LINE 9 1 PAGE UM MTA AUG. 01, 1973 23:52.34 0 COMMANDS TO CZASE. 00577/51 MACHINE CHECK REC'Y MCFILES D INIT:MCFILES D3T4 477 MACHINE_CHECK_REC'Y.MCFILE.D.51 1 LINE 5 1 PAGE UM MTA AUG. 01, 1973 23:52.36 0 LIST OF FILES FOR DRMINIT. 00578/1 RSF 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), AND COPY:MTS.TV (640). ASSEMBLE WITH COPY:MTS.MACROS (344) AND *SYSMAC. 0 Referenced by comments of: 344/1, 578/2 00578/2 RSF D3.1 UPDATE UU G MTS:RSFUPD/D3.1 D3.1T1 444 RSF.D3.1_UPDATE.UU.2 1 LINE 72 5 PAGE UM PIRKOLA MAR. 06, 1974 22:06.17 0 UPDATE TO D3 MASTER (578/1) TO PRODUCE D3.1 SOURCE. UPDATE DECK USES %POSN *IN* RSF. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00578/3 RSF OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00579/1 SYSDEFS SA G SYSD MTS:SYSDEFS(1,999) D3.1T1 445 SYSDEFS..SA.1 1 LINE 80 5 PAGE UM MTA MAR. 06, 1974 22:06.19 0 THIS IS A LOW-CORE SYMBOL TABLE FOR THE DEFINITION OF SYMBOLS USED FOR SYSTEMS WORK, I.E. NOT REQUIRED BY USER PROGRAMS. THESE DEFINITIONS WERE FORMERLY PART OF THE LCSYMBOL SYMBOL TABLE (043), BUT WERE REMOVED TO REDUCE ITS SIZE AND TO SPEED UP THE SEARCH. TO REFERENCE THIS SYMBOL TABLE, THE FOLLOWING 3 LOADER CARDS ARE REQUIRED AT THE END OF AN OBJECT DECK: RIP SYSDEFS LCS LCSYMBOL LCS SYSDEFS 00579/2 SYSDEFS OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00580/1 *INDEX SP W016:RAWINDEX D3T5 3 INDEX..SP.1 1 LINE 71 8 PAGE UM LEADER AUG. 02, 1973 00:14.59 0 PROGRAM TO PRODUCE MANUAL INDICES. WILL PRODUCE INDEX AS TEXT/360 INPUT, FORMAT INPUT, OR REGULAR PRINTED OUTPUT. 00580/2 *INDEX OC W016:INDEX D3T5 4 INDEX..OC.2 1 LINE 80 17 PAGE UM LEADER AUG. 02, 1973 00:15.02 0 END WITH A "$CONTINUE WITH *PL1LIB" CARD. 00581/1 INDEXGT SA G INDX W010:GTSOURCE D3T5 5 INDEXGT..SA.1 1 LINE 80 3 PAGE UM GALLER AUG. 02, 1973 00:15.05 0 INDEXGT IS AN OBJECT-CODE FUNCTION TO BE USED BY A SNOBOL PROGRAM (VIA THE SNOBOL4 'LOAD' FUNCTION). IT PROVIDES A COMPARISON OPERATOR FOR THE COLLATING SEQUENCE WHICH IS THE SAME AS THE 360 COLLATING SEQUENCE EXCEPT THAT THE LOWERCASE LETTERS APPEAR RIGHT AFTER THEIR UPPERCASE EQUIVALENTS. THIS IS SO THAT THE INDEX PRODUCED BY THE INDEX PROGRAM SORTS PROPERLY. 00581/2 INDEXGT OC G W010:INDEXGT D3T5 6 INDEXGT..OC.2 1 LINE 80 1 PAGE UM GALLER AUG. 02, 1973 00:15.06 0 OBJECT CONTAINS A REP CARD. 00582/1 LIBRARY INDEX PROGRAM C DWB:LIBRARY D3T5 7 LIBRARY_INDEX_PROGRAM..C.1 1 LINE 138 1 PAGE UM DWB AUG. 02, 1973 00:15.08 0 COMMAND FILE TO RUN LIBRARY INDEX PROGRAM. THIS PROGRAM IS USED AT UM TO MAINTAIN AN INDEX AND BIBLIOGRAPHY FOR THE COMPUTING CENTER LIBRARY. COMMAND FILE REFERS TO *SORT, QUIC1 AND QUIC2 (SEE COMP 584), DWB:KWSCARDS (582/4), AND REQUIRES THE FILE "LIBCARDS" FOR ITS OUTPUT. 0 Referenced by comments of: 584/1 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00582/2 LIBRARY INDEX PROGRAM SP DWB:LIBRARY.S D3T5 8 LIBRARY_INDEX_PROGRAM..SP.2 1 LINE 68 3 PAGE UM DWB AUG. 02, 1973 00:15.10 00582/3 LIBRARY INDEX PROGRAM OC DWB:LIBRARY.O D3T5 9 LIBRARY_INDEX_PROGRAM..OC.3 1 LINE 80 5 PAGE UM DWB AUG. 02, 1973 00:15.13 00582/4 LIBRARY INDEX PROGRAM QUIC1 INPUT D DWB:KWSCARDS D3T5 10 LIBRARY_INDEX_PROGRAM.QUIC.D.4 1 LINE 36 1 PAGE UM DWB AUG. 02, 1973 00:15.15 0 INPUT LINES FOR QUIC1 (SEE COMP 584). 0 Referenced by comments of: 582/1 00583/1 KWIC/360 PHASE A SP DWB:KWIC/360(1,319) D3T5 11 KWIC/360.PHASE_A.SP.1 1 LINE 80 8 PAGE UM DWB AUG. 02, 1973 00:15.18 0 MODIFIED VERSION OF IBM PROGRAM 360D-06.7.014. PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION. SOURCE FOR PHASE A. 00583/2 KWIC/360 PHASE A OC DWB:KWICA D3T5 12 KWIC/360.PHASE_A.OC.2 1 SEQ 80 7 PAGE UM DWB AUG. 02, 1973 00:15.20 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/3 KWIC/360 PHASE B SP DWB:KWIC/360(321,476) D3T5 13 KWIC/360.PHASE_B.SP.3 1 LINE 80 5 PAGE UM DWB AUG. 02, 1973 00:15.22 0 SOURCE FOR PHASE B. 00583/4 KWIC/360 PHASE B OC DWB:KWICB D3T5 14 KWIC/360.PHASE_B.OC.4 1 SEQ 80 3 PAGE UM DWB AUG. 02, 1973 00:15.24 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/5 KWIC/360 PHASE C SP DWB:KWIC/360(478,751) D3T5 15 KWIC/360.PHASE_C.SP.5 1 LINE 80 7 PAGE UM DWB AUG. 02, 1973 00:15.27 0 SOURCE FOR PHASE C. 00583/6 KWIC/360 PHASE C OC DWB:KWICC D3T5 16 KWIC/360.PHASE_C.OC.6 1 SEQ 80 4 PAGE UM DWB AUG. 02, 1973 00:15.29 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00583/7 KWIC/360 PHASE D SP DWB:KWIC/360(753,987) D3T5 17 KWIC/360.PHASE_D.SP.7 1 LINE 80 6 PAGE UM DWB AUG. 02, 1973 00:15.31 0 SOURCE FOR PHASE D. 00583/8 KWIC/360 PHASE D OC DWB:KWICD D3T5 18 KWIC/360.PHASE_D.OC.8 1 SEQ 80 4 PAGE UM DWB AUG. 02, 1973 00:15.33 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00583/9 KWIC/360 SCAN2 SUBR SA DWB:KWIC/360(989,1029) D3T5 19 KWIC/360.SCAN2_SUBR.SA.9 1 LINE 80 2 PAGE UM DWB AUG. 02, 1973 00:15.36 0 SUBROUTINE CALLED BY PHASE A. OBJECT IS IN 583/2. 00583/10 KWIC/360 TRANS SUBR SA DWB:KWIC/360(1031,1066) D3T5 20 KWIC/360.TRANS_SUBR.SA.10 1 LINE 80 1 PAGE UM DWB AUG. 02, 1973 00:15.38 0 SUBROUTINE CALLED BY BOTH PHASE A AND PHASE B. OBJECT IS IN 583/2 AND 583/4. 00583/11 KWIC/360 TEST DATA D DWB:KWIC/360(1068) D3T5 21 KWIC/360.TEST_DATA.D.11 1 LINE 80 7 PAGE UM DWB AUG. 02, 1973 00:15.40 0 INPUT FOR TEST RUN IS AS FOLLOWS: LINES 1068-1083 ARE PRIMARY STOPWORDS LINES 1084-1085 ARE SECONDARY STOPWORDS LINES 1086-LAST ARE INPUT CARDS 00584/1 QUIC PHASE 1 SP DWB:QUIC.S(252,1249) D3T5 22 QUIC.PHASE_1.SP.1 1 LINE 81 22 PAGE UM DWB AUG. 02, 1973 00:15.43 0 THIS IS THE IBM PROGRAM 360D-06.7.022. IT IS USED AS FOLLOWS: RUN PHASE 1 (QUIC1), THEN *SORT, THEN PHASE 2 (QUIC2). THE LIBRARY INDEX PROGRAM (582/1) SHOWS AN EXAMPLE RUN. PAPER DOCUMENTATION IS ENCLOSED WITH DISTRIBUTION. 00584/2 QUIC PHASE 1 OC DWB:QUIC1 D3T5 23 QUIC.PHASE_1.OC.2 1 LINE 80 20 PAGE UM DWB AUG. 02, 1973 00:15.50 00584/3 QUIC PHASE 2 SP DWB:QUIC.S(1347,1496) D3T5 24 QUIC.PHASE_2.SP.3 1 LINE 80 4 PAGE UM DWB AUG. 02, 1973 00:15.54 00584/4 QUIC PHASE 2 OC DWB:QUIC2 D3T5 25 QUIC.PHASE_2.OC.4 1 LINE 80 4 PAGE UM DWB AUG. 02, 1973 00:15.56 00584/5 QUIC TEST DATA D DWB:QUIC.S(1269,1320) D3T5 26 QUIC.TEST_DATA.D.5 1 LINE 80 2 PAGE UM DWB AUG. 02, 1973 00:15.57 00585/1 CALC CLS SA G CALC S0579 SAVE 'JWS - SAVE' FSNAME=CALC.S.UM D3.1T1 446 CALC_CLS..SA.1 1 LINE 80 31 PAGE UM JWS JULY 19, 1973 13:48.49 0 THIS IS THE SOURCE FOR THE MTS $CALC COMMAND. THE CALC COMMAND IS IMPLEMENTED AS A COMMAND LANGUAGE SUB-SYSTEM (CLS). IT COPIES COPY:CLSPLAN (535/1) AND COPY:CLSVECTOR (535/2). MODIFIED FROM WSU. 00585/2 CALC CLS OE G *CLSCALC D3.1T1 447 CALC_CLS..OE.2 1 LINE 80 3 PAGE UM JWS MAR. 06, 1974 22:11.14 0 NORMALLY LOADED BY SEG 2 LOADER AT IPL. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00585/3 CALC CLS WRITEUP WF S0724 'D3T5' FSNAME=CALC_CLS.WRITEUP.WF.3 29 D3T5 29 CALC_CLS.WRITEUP.WF.3 1 LINE 108 2 PAGE UM JWS JULY 20, 1973 16:49.03 0 THIS IS COMPUTING CENTER MEMO M244 -- "CHANGES TO THE MTS $CALC COMMAND" 00586/1 COST SUBR SA G COST S0027 DISTRB FSNAME=COST D3.1T1 448 COST_SUBR..SA.1 1 LINE 80 7 PAGE UM ENGLE JAN. 31, 1974 17:51.40 0 SUBROUTINE TO COMPUTE CURRENT COST OF RUN. (E.G. CALLED BY MTS FOR $DISPLAY $). COPIES ACCFORMAT (104/1), ACCRATE (104/2), AND GRDEF (104/58). 00586/2 COST SUBR OC G # RESIDENT SYSTEM (SEE COMP 468) UM ENGLE 00587/1 RESEQUENCING PGM SA RSEQ UBC:RSEQ.S D3T5 31 RESEQUENCING_PGM..SA.1 1 LINE 80 4 PAGE UBC HOGG AUG. 02, 1973 00:23.52 0 TO USE THIS PROGRAM: $RUN RSEQ SCARDS=INPUT SPUNCH=OUTPUT SERCOM=ERRORS PAR=SEQNAME WHERE SEQNAME IS A 1 TO 8 CHARACTER SEQUENCE FIELD INITIALIZER. IF OMITTED, THE SEQUENCE DEFAULTS TO 00000001, 00000002, ETC. IF THE LAST CHARACTER OF SEQNAME IS 1, THE SEQUENCING TAKES PLACE AT THAT COLUMN. FOR EXAMPLE, IF PAR=BARF IS GIVEN, THE SEQUENCE IS BARF0001, BARF0002, ETC. IF PAR=BARF01 IS GIVEN, THE SEQUENCE IS BARF0100, BARF0200, ETC. SEQUENCING INTRUDES INTO THE ALPHABETIC FIELD IF NECESSARY. FOR EXAMPLE, THE SEQUENCE ID FOLLOWING BARF9999 IS BARG0000. 00587/2 RESEQUENCING PGM OC UBC:RSEQ D3T5 32 RESEQUENCING_PGM..OC.2 1 LINE 80 2 PAGE UBC HOGG AUG. 02, 1973 00:23.54 00588/1 INTERCOM SA G EAIC MTA:CEAIC.S D3.1T1 449 INTERCOM..SA.1 1 LINE 80 11 PAGE UM MTA MAR. 06, 1974 22:29.28 0 INTER-CPU COMMUNICATION PROGRAM USED BY SUPERVISOR AND MACHINE CHECK ERROR RECOVERY. MODIFIED FROM TSS/360. COPIES COPY:CHAPSA(1,50) (577/34), COPY:PSA (162), AND COPY:LLMPSEQU (087). 00588/2 INTERCOM OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00589/1 I/O INBOARD ERROR REC SA G EAI7 MTA:CEAI7.S D3.1T1 450 I/O_INBOARD_ERROR_REC..SA.1 1 LINE 80 9 PAGE UM MTA MAR. 06, 1974 22:29.35 0 I/O INBOARD ERROR RECORDING. MODIFIED FROM TSS/360. COPIES COPY:LLMPSEQU (087), COPY:PSA (162), COPY:CHAIER (577/32), AND COPY:CHAERC (577/30). 00589/2 I/O INBOARD ERROR REC OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00590/1 SPITBOL 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. 1 FRI AUG 02/96 18:37:32 Page 207 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6. 00590/2 SPITBOL ZAP CONVERT SS G W086:ZAPCNV D3T5 36 SPITBOL.ZAP_CONVERT.SS.2 1 LINE 72 1 PAGE UM DE JONG AUG. 02, 1973 00:24.06 0 SNOBOL PROGRAM TO CONVERT SPITBOL SUPERZAP DECKS INTO MTS COM AND REP LOADER CARDS. 00590/3 SPITBOL 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/4 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/1 CFDUB SA G CFDB MTS:CFDUB(1,999) D3T5 39 CFDUB..SA.1 1 LINE 80 1 PAGE UM MTA AUG. 02, 1973 00:24.12 0 SUBROUTINE TO COMPARE TWO FDUBS TO SEE IF THEY ARE ASSIGNED TO THE SAME THING. TO USE, CALL CFDUB(F1,F2) WHERE F1 AND F2 ARE CHKFDUB THINGS. RC=0 MEANS THAT THEY'RE THE SAME, RC=4 MEANS THEY'RE DIFFERENT, RC=8 MEANS THAT AT LEAST ONE IS INVALID. FOR EXAMPLE, CALL CFDUB('SPUNCH ','SPRINT ',&1,&2). COPIES COPY:FDUBDSECT (623). 00591/2 CFDUB OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00592 OPERATORS MANUAL WF MTS:OPERMANUAL D3T5 40 OPERATORS_MANUAL..WF. 1 LINE 179 40 PAGE UM DWB AUG. 02, 1973 00:24.14 0 MTS OPERATOR'S MANUAL. IT IS DESIGNED TO HAVE THE OPERATOR MESSAGES FROM THE MESSAGE MANUAL (555) INSERTED AFTER THE LAST PAGE. 0 Referenced by comments of: 387/15 00593 *GFINFODSECT SA G GFID *GFINFODSECT D3.1T1 454 GFINFODSECT..SA. 1 LINE 80 3 PAGE UM PIRKOLA MAR. 06, 1974 22:30.55 0 COPY SECTION FOR DSECTS DEFINING INFORMATION REGIONS USED IN CONJUNCTION WITH THE GFINFO SUBROUTINE (PART OF 578/1). 0 Referenced by comments of: 47/1, 212/1, 441/1, 461/2, 465/1, 529/1, 578/1, 630/1 00594 *GDINFODSECT SA G GDID *GDINFODSECT D3T5 42 GDINFODSECT..SA. 1 LINE 80 2 PAGE UM DWB AUG. 02, 1973 00:24.42 0 COPY SECTION DEFINING THE INFORMATION REGION USED IN CONJUNCTION WITH THE GDINFO SUBROUTINE. 0 Referenced by comments of: 531/8 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00595/1 APL - GMRL INSTALLATION P S0625 GMAPL 'APL SOURCE' FSNAME=DESCRIPTION 1 D3T5 43 APL_-_GMRL.INSTALLATION.P.1 1 LINE 73 1 PAGE UM HAMILTON JULY 16, 1973 01:42.51 0 THIS IS THE GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE (APL), NOT TO BE CONFUSED WITH COMPONENT 465 (*APL). APL (PRONOUNCED "APPLE") IS A SUPERSET OF PL/I, WHICH HAS EXTENSIONS IN THE AREA OF DATA STRUCTURE PROCESSING. IT IS INTENDED PRIMARILY FOR LARGE SCALE STRUCTURAL DESIGN APPLICATIONS, PARTICULARLY THOSE INVOLVING INTERACTIVE GRAPHICS. COMPONENT 595/1 EXPLAINS THE CONTENTS OF COMPONENTS 595/2 THROUGH 595/92 AND TELLS HOW TO GENERATE THE SEVERAL COMPONENTS WHICH MAKE UP APL. 00595/2 APL - GMRL *APLGM OE G S0625 GMAPL 'APL SOURCE' FSNAME=*APLGM 2 D3T5 44 APL_-_GMRL.*APLGM.OL.2 1 SEQ 1812 1 PAGE UM HAMILTON JULY 16, 1973 01:43.06 0 COMPONENTS 595/2 THROUGH 595/5 ARE THE FOUR APL OBJECT FILES AS DESCRIBED IN CCMEMO M236 (SEE 595/93). 00595/3 APL - GMRL *APLTRAN OE G S0625 GMAPL 'APL SOURCE' FSNAME=*APLTRAN 3 D3T5 45 APL_-_GMRL.*APLTRAN.OL.3 1 SEQ 32767 47 PAGE UM HAMILTON JULY 16, 1973 01:43.19 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/4 APL - GMRL *APLLIB OL G S0625 GMAPL 'APL SOURCE' FSNAME=*APLLIB 4 D3T5 46 APL_-_GMRL.*APLLIB.OL.4 1 SEQ 4222 21 PAGE UM HAMILTON JULY 16, 1973 01:43.32 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/5 APL - GMRL *APLEDCL OE G S0625 GMAPL 'APL SOURCE' FSNAME=*APLEDCL 5 D3T5 47 APL_-_GMRL.*APLEDCL.OL.5 1 SEQ 10704 7 PAGE UM HAMILTON JULY 16, 1973 01:43.44 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00595/6 APL - GMRL APLLL0 SA G S0625 GMAPL 'APL SOURCE' FSNAME=APLLL0 6 D3T5 48 APL_-_GMRL.APLLL0.SA.6 1 LINE 68 4 PAGE UM HAMILTON JULY 16, 1973 01:43.54 0 THE SOURCE FOR *APLGM. ASSEMBLE WITH *SYSMAC. 00595/7 APL - GMRL XAPL SP G S0625 GMAPL 'APL SOURCE' FSNAME=XAPL 7 D3T5 49 APL_-_GMRL.XAPL.SP.7 1 LINE 72 6 PAGE UM HAMILTON JULY 16, 1973 01:45.18 0 COMPONENTS 595/7 THROUGH 595/48 ARE THE SOURCE FOR *APLTRAN. 00595/8 APL - GMRL MINITERM SP G S0625 GMAPL 'APL SOURCE' FSNAME=MINITERM 8 D3T5 50 APL_-_GMRL.MINITERM.SP.8 1 LINE 73 4 PAGE UM HAMILTON JULY 16, 1973 01:45.20 00595/9 APL - GMRL MAPLGET SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGET 9 D3T5 51 APL_-_GMRL.MAPLGET.SP.9 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:45.23 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/10 APL - GMRL MCARDGET SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCARDGET 10 D3T5 52 APL_-_GMRL.MCARDGET.SP.10 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.26 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 1 FRI AUG 02/96 18:37:32 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 Referenced by comments of: 595/92 00595/11 APL - GMRL MCHMOVE SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHMOVE 11 D3T5 53 APL_-_GMRL.MCHMOVE.SP.11 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.30 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/12 APL - GMRL MCHSCAN SP G S0625 GMAPL 'APL SOURCE' FSNAME=MCHSCAN 12 D3T5 54 APL_-_GMRL.MCHSCAN.SP.12 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.33 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 00595/13 APL - GMRL MAPLGOOF SP G S0625 GMAPL 'APL SOURCE' FSNAME=MAPLGOOF 13 D3T5 55 APL_-_GMRL.MAPLGOOF.SP.13 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:45.36 0 THIS COMPONENT IS USED IN BOTH *APLTRAN AND *APLEDCL. 0 Referenced by comments of: 595/92 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 18:37:32 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 + ______________ _____________________ 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 18:37:32 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 + ______________ _____________________ 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 18:37:32 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 + ______________ _____________________ 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 18:37:32 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 + ______________ _____________________ 00595/73 APL - GMRL XPLRMV2 SP G S0625 GMAPL 'APL SOURCE' FSNAME=XPLRMV2 74 D3T5 115 APL_-_GMRL.XPLRMV2.SP.73 1 LINE 72 2 PAGE UM HAMILTON JULY 16, 1973 01:48.51 00595/74 APL - GMRL XPLTYPE SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLTYPE 75 D3T5 116 APL_-_GMRL.XPLTYPE.SA.74 1 LINE 59 1 PAGE UM HAMILTON JULY 16, 1973 01:48.55 0 COMPONENTS 595/74 THROUGH 595/86 SHOULD BE ASSEMBLED WITH *SYSMAC AND PL1MACLIB (595/88). 00595/75 APL - GMRL XPLUDAT SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLUDAT 76 D3T5 117 APL_-_GMRL.XPLUDAT.SA.75 1 LINE 72 7 PAGE UM HAMILTON JULY 16, 1973 01:48.58 00595/76 APL - GMRL XPLADDR SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLADDR 77 D3T5 118 APL_-_GMRL.XPLADDR.SA.76 1 LINE 40 1 PAGE UM HAMILTON JULY 16, 1973 01:49.01 00595/77 APL - GMRL XPLALOC SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLALOC 78 D3T5 119 APL_-_GMRL.XPLALOC.SA.77 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:49.04 00595/78 APL - GMRL XPLDREC SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLDREC 79 D3T5 120 APL_-_GMRL.XPLDREC.SA.78 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:49.07 00595/79 APL - GMRL XPLEV SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLEV 80 D3T5 121 APL_-_GMRL.XPLEV.SA.79 1 LINE 56 1 PAGE UM HAMILTON JULY 16, 1973 01:49.11 00595/80 APL - GMRL XPLFREE SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLFREE 81 D3T5 122 APL_-_GMRL.XPLFREE.SA.80 1 LINE 72 1 PAGE UM HAMILTON JULY 16, 1973 01:49.14 00595/81 APL - GMRL XPLOC SA G S0625 GMAPL 'APL SOURCE' FSNAME=XPLOC 83 D3T5 123 APL_-_GMRL.XPLOC.SA.81 1 LINE 72 3 PAGE UM HAMILTON JULY 16, 1973 01:49.20 00595/82 APL - GMRL XIRMIN SA G S0625 GMAPL 'APL SOURCE' FSNAME=XIRMIN 84 D3T5 124 APL_-_GMRL.XIRMIN.SA.82 1 LINE 72 9 PAGE UM HAMILTON JULY 16, 1973 01:49.23 00595/83 APL - GMRL XIRMOUT SA G S0625 GMAPL 'APL SOURCE' FSNAME=XIRMOUT 85 D3T5 125 APL_-_GMRL.XIRMOUT.SA.83 1 LINE 72 9 PAGE UM HAMILTON JULY 16, 1973 01:49.26 00595/84 APL - GMRL RRIN SA G S0625 GMAPL 'APL SOURCE' FSNAME=RRIN 86 D3T5 126 APL_-_GMRL.RRIN.SA.84 1 LINE 72 5 PAGE UM HAMILTON JULY 16, 1973 01:49.29 00595/85 APL - GMRL RROUT SA G S0625 GMAPL 'APL SOURCE' FSNAME=RROUT 87 D3T5 127 APL_-_GMRL.RROUT.SA.85 1 LINE 72 5 PAGE UM HAMILTON JULY 16, 1973 01:49.32 00595/86 APL - GMRL SYSVM SA G S0625 GMAPL 'APL SOURCE' FSNAME=SYSVM 88 D3T5 128 APL_-_GMRL.SYSVM.SA.86 1 LINE 69 7 PAGE UM HAMILTON JULY 16, 1973 01:49.35 00595/87 APL - GMRL CHGSCR SA G S0625 GMAPL 'APL SOURCE' FSNAME=CHGSCR 89 D3T5 129 APL_-_GMRL.CHGSCR.SA.87 1 LINE 71 1 PAGE UM HAMILTON JULY 16, 1973 01:49.38 0 COPY SECTION USED BY SEVERAL MODULES IN *APLLIB. 00595/88 APL - GMRL PL1MACLIB SM G S0625 GMAPL 'APL SOURCE' FSNAME=PL1MACLIB 90 D3T5 130 APL_-_GMRL.PL1MACLIB.SM.88 1 LINE 80 15 PAGE UM HAMILTON JULY 16, 1973 01:49.58 0 MACRO LIBRARY REQUIRED BY ASSEMBLY LANGUAGE MODULES IN *APLTRAN AND *APLLIB. 1 FRI AUG 02/96 18:37:32 Page 214 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 595/47, 595/48, 595/74 00595/89 APL - GMRL BLDTRAN C S0625 GMAPL 'APL SOURCE' FSNAME=BLDTRAN 91 D3T5 131 APL_-_GMRL.BLDTRAN.C.89 1 LINE 82 1 PAGE UM HAMILTON JULY 16, 1973 01:50.08 0 A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLTRAN. HAS MANY "$CONTINUE WITH" LINES. 00595/90 APL - GMRL BLDLIB C S0625 GMAPL 'APL SOURCE' FSNAME=BLDLIB 92 D3T5 132 APL_-_GMRL.BLDLIB.C.90 1 LINE 74 1 PAGE UM HAMILTON JULY 16, 1973 01:50.17 0 A COMMAND FILE TO COMPILE, ASSEMBLE, AND LINKEDIT THE MODULES OF *APLLIB. HAS MANY "$CONTINUE WITH" LINES. 00595/91 APL - GMRL APLTRAN.SEP OE G S0625 GMAPL 'APL SOURCE' FSNAME=APLTRAN.SEP 93 D3T5 133 APL_-_GMRL.APLTRAN.SEP.OL.91 1 SEQ 11606 54 PAGE UM HAMILTON JULY 16, 1973 01:51.03 0 OBJECT MODULES FOR *APLTRAN, LINK-EDITTED, BUT NOT COMBINED, SO THAT INDIVIDUAL MODULES CAN BE REPLACED. 00595/92 APL - GMRL APLEDCL.S SP G S0625 GMAPL 'APL SOURCE' FSNAME=APLEDCL.S 94 D3T5 134 APL_-_GMRL.APLEDCL.S.SP.92 1 LINE 72 4 PAGE UM HAMILTON JULY 16, 1973 01:51.23 0 THE SOURCE FOR *APLEDCL CONSISTS OF THIS COMPONENT, PLUS MAPLGET (595/9), MCARDGET (595/10), MCHSCAN (595/12), MCHMOVE (595/11), AND MAPLGOOF (595/13). 00595/93 APL - GMRL USER'S GUIDE WF S0724 'D3T5' FSNAME=APL_-_GMRL.USER'S_GUIDE.WF.93 135 D3T5 135 APL_-_GMRL.USER'S_GUIDE.WF.93 1 LINE 114 8 PAGE UM HAMILTON JULY 17, 1973 17:39.33 0 THIS IS COMPUTING CENTER MEMO M236 -- "GENERAL MOTORS' ASSOCIATIVE PROGRAMMING LANGUAGE" ONLY PART OF MEMO M236 IS INCLUDED HERE SINCE THE BULK OF IT IS SIMPLY REPRODUCED FROM THE GENERAL MOTORS APL USER'S MANUAL (PUBLICATION GMR-1219 OF THE GENERAL MOTORS RESEARCH LAB). NOTE: BECAUSE OF A MISTAKE AT THE UM COPY SERVICE, THE PAPER COPY INCLUDED WITH THE DISTRIBUTION MAY NOT BE COLLATED CORRECTLY. 00596/1 ZAP SA G ZAP0 MTS:ZAPSOU D3.1T1 455 ZAP..SA.1 1 LINE 80 13 PAGE UM MTA MAR. 06, 1974 22:30.58 0 PROGRAM TO PATCH THE IPL RECORD ON DISK "MTS001" WITHOUT GOING THROUGH THE "DISK WRITE" PROCEDURE (SEE 156). THERE ARE THREE COMMANDS FOR THIS PROGRAM: DIS ADDR+DISP N DISPLAYS N WORDS (FROM THE DISK) AT ADDRESS ADDR (WITH OPTIONAL DISPLACEMENT DISP). THE ADDRESS IS A REAL CORE ADDRESS (FOR SEGMENTS 0 AND 1) OR A VM ADDRESS (FOR SEGMENT 2). MOD ADDR+DISP VALUE MODIFIES DISK RECORD TO NEW VALUE (IN HEX). WILL PRINT OLD DISK VALUE, CURRENT CORE VALUE, AND NEW DISK VALUE. IF CORE AND NEW DISK DIFFER, IT PRINTS A WARNING MESSAGE. CONFIRMATION IS ALWAYS REQUIRED BEFORE THE CHANGE IS MADE ON THE DISK. CC ADDR+DISP N MODIFIES THE DISK RECORD TO BE THE SAME AS THE CURRENT CORE VALUE FOR N WORDS STARTING AT THE GIVEN LOCATION (COPY CORE). THE PROGRAM PRODUCES A RECORD OF ALL CHANGES BY WRITING MESSAGES AT THE END OF THE "ZAPLOG" FILE WHICH MUST EXIST UNDER THE ID BEING USED. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00596/2 ZAP OC G MTS:ZAP D3.1T1 456 ZAP..OC.2 1 LINE 80 4 PAGE UM MTA MAR. 06, 1974 22:31.02 00597/1 CHKVTOC SA G CHKV W047:CHKVTOC.S D3T5 138 CHKVTOC..SA.1 1 LINE 80 17 PAGE UM HAMILTON AUG. 02, 1973 00:30.11 0 PROGRAM AND VTOCRD SUBROUTINE TO CHECK CONSISTENCY OF PAGE ASSIGNMENT TABLE (PAT) WITH TYPE E'S AND TYPE F'S FOR A PARTICULAR VOLUME. REQUIRES SYMBOLS IN SYSDEFS. COPIES COPY:DSKDSCT (482/42) AND COPY:DSCBDSCT (482/41). ASSEMBLE WITH *SYSMAC AND PAR=B. THE VTOCRD SUBROUTINE COPIES COPY:DSKDSCT (482/42), COPY:DSCBDSCT (482/41), COPY:PATEQU (482/43), AND COPY:FCBEQU (482/27). 00597/2 CHKVTOC OC G W047:CHKVTOC D3T5 139 CHKVTOC..OC.2 1 LINE 80 5 PAGE UM HAMILTON AUG. 02, 1973 00:30.15 00598/1 DASDI 7330 SA G DASD W047:DASDI.S D3.1T1 457 DASDI_7330..SA.1 1 LINE 80 11 PAGE UM HAMILTON MAR. 06, 1974 22:31.04 0 PROGRAM TO PAGE FORMAT DASDI ITEL 7330 (IBM 3330) DISKS. INPUT DESCRIBED IN SOURCE COMMENTS. COPIES COPY:DSCBDSCT (482/41). ASSEMBLE WITH *SYSMAC. 00598/2 DASDI 7330 OC G W047:DASDI D3.1T1 458 DASDI_7330..OC.2 1 LINE 80 4 PAGE UM HAMILTON MAR. 06, 1974 22:31.08 00599/1 CHONID SA G CHON W045:PF.CHONID(1,999) D3T5 142 CHONID..SA.1 1 LINE 80 4 PAGE UM PIRKOLA AUG. 02, 1973 00:30.27 0 PROGRAM (NOT FOR GENERAL USE) TO CHANGE THE OWNERID (IN CATALOG) OF A LIBRARY FILE. USED BY SYSTEM PROGRAMMERS TO ASSIGN APPROPRIATE OWNERS TO PUBLIC FILES. IT TAKES INPUT IN THE FORM "*FILENAME USERID" AND STOPS WHEN AN END-OF-FILE IS ENTERED. COPIES COPY:CATEQU (482/28). ASSEMBLE WITH *SYSMAC. 00599/2 CHONID OC G W045:PF.CHONID(1000) D3T5 143 CHONID..OC.2 1 LINE 80 1 PAGE UM PIRKOLA AUG. 02, 1973 00:30.29 00600/1 SDS CLSSOU SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSCLSSOU 1 D3.1T1 459 SDS.CLSSOU.SA.1 1 SEQ 80 141 PAGE UM SALISBURY MAR. 06, 1974 22:32.36 0 SDS, THE SYMBOLIC DEBUGGING SYSTEM. 600/1 AND 600/2 ARE THE SOURCE FOR THE CLS INTERFACE TO SDS. 600/1 COPIES COPY:CLSPLAN (535/1), COPY:CLSAREA (641), COPY:CLSVECTOR (535/2), AND SDSPSECT (600/13). ASSEMBLE USING *SYSMAC AND SDSMACROS (600/12). 00600/2 SDS UTSDSSOU SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSUTILSOU 2 D3.1T1 460 SDS.UTSDSSOU.SA.2 1 SEQ 80 31 PAGE UM SALISBURY MAR. 06, 1974 22:33.01 0 COPIES SDSCONSTANT (600/15). 00600/3 SDS CLS OC G W059:SDSCLS D3.1T1 461 SDS.CLS.OC.3 1 LINE 80 26 PAGE UM SALISBURY MAR. 06, 1974 22:33.06 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00600/4 SDS CLI SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSCLISOU 3 D3.1T1 462 SDS.CLI.SA.4 1 SEQ 80 88 PAGE UM SALISBURY MAR. 06, 1974 22:33.34 0 THE SDS COMMAND LANGUAGE INTERPRETER. COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13), COPY:CLSPLAN (535/1), COPY:CLSAREA (641), AND COPY:CLSVECTOR (535/2). ASSEMBLE WITH SDSMACROS (600/12). 00600/5 SDS CLI OC G W059:SDSCLI D3.1T1 463 SDS.CLI.OC.5 1 LINE 80 19 PAGE UM SALISBURY MAR. 06, 1974 22:33.47 00600/6 SDS IOC SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSIOCSOU 4 D3.1T1 464 SDS.IOC.SA.6 1 SEQ 80 27 PAGE UM SALISBURY MAR. 06, 1974 22:33.53 0 THE SDS I/O CONTROL MODULE. COPIES SDSPSECT (600/13), COPY:CLSPLAN (535/1), COPY:CLSAREA (641), COPY:CLSVECTOR (535/2), SDSCONSTANT (600/15), AND SDSBT (600/14). ASSEMBLE WITH *SYSMAC AND SDSMACROS (600/12). 00600/7 SDS IOC OC G W059:SDSIOC D3.1T1 465 SDS.IOC.OC.7 1 LINE 80 8 PAGE UM SALISBURY MAR. 06, 1974 22:33.55 00600/8 SDS SIMULATOR SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSSIMLSOU 5 D3.1T1 466 SDS.SIMULATOR.SA.8 1 SEQ 80 26 PAGE UM SALISBURY MAR. 06, 1974 22:34.01 0 THE SDS INSTRUCTION SIMULATOR. COPIES SDSPSECT (600/13), COPY:CLSPLAN (535/1), COPY:CLSAREA (641), AND COPY:CLSVECTOR (535/2). ASSEMBLE WITH SDSMACROS (600/12). 00600/9 SDS SIMULATOR OC G W059:SDSSIML D3.1T1 467 SDS.SIMULATOR.OC.9 1 LINE 80 8 PAGE UM SALISBURY MAR. 06, 1974 22:34.03 00600/10 SDS EDITOR SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSEDTRSOU 6 D3.1T1 468 SDS.EDITOR.SA.10 1 SEQ 80 31 PAGE UM SALISBURY MAR. 06, 1974 22:34.09 0 THE SDS EDITOR. COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13), COPY:CLSPLAN (535/1), COPY:CLSAREA (641), AND COPY:CLSVECTOR (535/2). ASSEMBLE WITH SDSMACROS (600/12). 00600/11 SDS EDITOR OC G W059:SDSEDTR D3.1T1 469 SDS.EDITOR.OC.11 1 LINE 80 8 PAGE UM SALISBURY MAR. 06, 1974 22:34.12 00600/12 SDS SDSMACROS SM G SDSM S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSMACROS 10 D3.1T1 470 SDS.SDSMACROS.SM.12 1 SEQ 80 10 PAGE UM SALISBURY MAR. 06, 1974 22:34.18 0 SDS MACRO LIBRARY. 0 Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 00600/13 SDS SDSPSECT SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSPSECT 7 D3.1T1 471 SDS.SDSPSECT.SA.13 1 SEQ 80 39 PAGE UM SALISBURY MAR. 06, 1974 22:34.27 0 COPY SECTION FOR SDS DSECTS. 0 Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00600/14 SDS SDSBT SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSBT 8 D3.1T1 472 SDS.SDSBT.SA.14 1 SEQ 80 3 PAGE UM SALISBURY MAR. 06, 1974 22:34.32 0 COPY SECTION FOR BRANCH TABLES. 0 Referenced by comments of: 600/4, 600/6, 600/10 00600/15 SDS SDSCONSTANT SA G S0777 SDSSOU 'SDS SOURCE - DIST 3.1' POSN=SDSCONSTANT 9 D3.1T1 473 SDS.SDSCONSTANT.SA.15 1 SEQ 80 1 PAGE UM SALISBURY MAR. 06, 1974 22:34.34 0 COPY SECTION FOR CONSTANTS. 0 Referenced by comments of: 600/2, 600/4, 600/6, 600/10 00600/16 SDS OBJECT OE G *CLSSDS D3.1T1 474 SDS.OBJECT.OE.16 1 LINE 255 19 PAGE UM SALISBURY MAR. 06, 1974 22:34.37 0 THE SDS OBJECT IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. 00600/17 SDS TEST PROGRAM C W044:ASMSDSTEST D3.1T1 475 SDS.TEST_PROGRAM.C.17 1 LINE 80 1 PAGE UM SALISBURY MAR. 06, 1974 22:34.40 0 SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAM (600/18). 00600/18 SDS TEST PROGRAM SA W044:SDSTESTSOU D3.1T1 476 SDS.TEST_PROGRAM.SA.18 1 LINE 63 4 PAGE UM SALISBURY MAR. 06, 1974 22:34.42 0 Referenced by comments of: 600/17 00600/19 SDS TEST PROGRAM OC W044:SDSTEST D3.1T1 477 SDS.TEST_PROGRAM.OC.19 1 LINE 80 7 PAGE UM SALISBURY MAR. 06, 1974 22:34.44 00600/20 SDS MEMO M266 PT W098:KDM266 D3.1T1 478 SDS.MEMO_M266.PT.20 1 LINE 133 7 PAGE UM SALISBURY MAR. 06, 1974 22:34.46 0 THIS IS COMPUTING CENTER MEMO M266 -- "RECENT CHANGES TO SDS" 00601 SLT INSTRUCTION DIAGRAM P MTS:SLTDIAGRAM D3T5 163 SLT_INSTRUCTION_DIAGRAM..P. 1 LINE 75 1 PAGE UM BERSTIS AUG. 02, 1973 00:33.08 0 PRINTER DIAGRAM SHOWING OPERATION OF SYSTEM/360 SLT (SEARCH LIST) INSTRUCTION. 00602 NOT-RESEQUENCER SS DWB:NONRESEQ D3T5 164 NOT-RESEQUENCER..SS. 1 LINE 63 2 PAGE UM DWB AUG. 02, 1973 00:33.10 0 PROGRAM TO PUT SEQUENCE ID ON MTS (OR ANYTHING ELSE) FOR A NEW MASTER WITHOUT CHANGING THE ID'S ON EXISTING CARDS. UNLIKE EARLIER VERSIONS, THE SEQUENCE ID DOES NOT HAVE TO BE ALL NUMERIC. USAGE: RUN UPDATE DECK AGAINST MASTER TO PRODUCE UPDATED SOURCE. THEN RUN THIS PROGRAM FEEDING THE UPDATE DECK IN ON UNIT 3 AND THE UPDATED SOURCE ON UNIT 4. OUTPUT: ON UNIT 8, THE NEW SOURCE TAPE WITH NEW ID'S INSERTED, AND ON UNIT 7 (SPUNCH IF *SPITBOL), THE NEW UPDATE DECK WITH THE NEW ID'S ON THE CARDS TO BE INSERTED. IF THIS PROGRAM CAN'T FIT THE CARDS TO BE INSERTED BETWEEN TWO EXISTING ID'S, IT WILL PRINT AN ERROR COMMENT 1 FRI AUG 02/96 18:37:32 Page 218 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 ON UNIT 6 ALONG WITH THE PREVIOUS CARD, THE FOLLOWING CARD, AND THE NUMBER OF CARDS TO BE INSERTED. IT THEN GOES AHEAD, BUT USES "********" FOR THE ID ON THE CARDS FOR THAT INSERTION. ONE GENERALLY RUNS THIS PROGRAM TWICE-- FIRST TO FIND ALL THE PLACES THAT DON'T FIT, AND THEN FUDGES THE UPDATE DECK SLIGHTLY SO AS TO MAKE THEM FIT, THEN THE FINAL RUN. 00603/1 UC3330 SA G UC33 MTA:UC3330(1,999) D3.1T1 479 UC3330..SA.1 1 LINE 80 21 PAGE UM MTA MAR. 06, 1974 22:34.48 0 UNIT CHECK ROUTINES FOR ITEL 7330 (IBM 3330) DISKS ON EITHER A 2860 OR 2880 CHANNEL. DOES NOT YET SUPPORT OTHER DASD DEVICE TYPES. LOGS UNIT CHECK MESSAGES IN SUCH A WAY THAT THE COMMAND STAT PICK-UP PROGRAM (531/4) WILL WRITE THEM INTO A FILE. COPIES COPY:CMDAREADSECT (531/12). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 531/1, 621/4 00603/2 UC3330 OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00604/1 PRNTCNTS SA G PCNT MTA:PRNTCNTS(1000) D3T5 166 PRNTCNTS..SA.1 1 LINE 80 14 PAGE UM MTA AUG. 02, 1973 00:33.17 0 PROGRAM TO PRINT ALL SORTS OF COUNTS AND TIMES FROM THE PDP (044) AND SUPERVISOR (045). IT MUST BE REASSEMBLED WHENEVER EITHER THE PDP OR UMMPS CHANGES BECAUSE OF THE MANY SYMBOLS OF THE FORM "DISPN EQU X" WHICH GIVE THE LOCATIONS OF THE COUNTS IN THE PDP AND SUPERVISOR. ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 531/1 00604/2 PRNTCNTS OC G MTA:PRNTCNTS(1,999) D3T5 167 PRNTCNTS..OC.2 1 LINE 80 4 PAGE UM MTA AUG. 02, 1973 00:33.21 00605/1 TWAIT SUBR SA G TWAT W047:TIMESUBRS(1,199) D3T5 168 TWAIT_SUBR..SA.1 1 LINE 80 4 PAGE UM HAMILTON AUG. 02, 1973 00:33.23 0 USER CALLABLE SUBROUTINE TO WAIT FOR A SPECIFIED REAL TIME INTERVAL AND THEN RETURN. 0 Referenced by comments of: 606/1, 607/1 00605/2 TWAIT SUBR OC G # *LIBRARY (SEE COMP 524) UM HAMILTON 00606/1 TICALL SUBR SA G TICL W047:TIMESUBRS(200,299) D3T5 169 TICALL_SUBR..SA.1 1 LINE 80 3 PAGE UM HAMILTON AUG. 02, 1973 00:33.25 0 SUBROUTINE TO PROVIDE AN INTERFACE TO THE MTS TIMER INTERRUPT SUBROUTINES (605) FROM FORTRAN PROGRAMS. HAS A "$CONTINUE WITH TIMESUBRS(13,34) RETURN" LINE IN THE SOURCE TO PICKUP SOME REGISTERS EQUALITIES FROM THE SOURCE FOR THE TWAIT SUBR (605/1). 00606/2 TICALL SUBR OC G # *LIBRARY (SEE COMP 524) UM HAMILTON 00607/1 STIMER SUBR SA G STIM W047:TIMESUBRS(300) D3T5 170 STIMER_SUBR..SA.1 1 LINE 80 4 PAGE UM HAMILTON AUG. 02, 1973 00:33.27 0 SUBROUTINE TO PROVIDE MTS SUPPORT FOR THE OS/360 STIMER AND TTIMER MACROS WHICH ARE AVAILABLE IN *SYSMAC. 1 FRI AUG 02/96 18:37:32 Page 219 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 HAS A "$CONTINUE WITH TIMESUBRS(11,34) RETURN" LINE IN THE SOURCE TO PICKUP SOME SVC AND REGISTER EQUALITIES FROM THE SOURCE FOR THE TWAIT SUBR (605/1). 00607/2 STIMER SUBR OC G # *LIBRARY (SEE COMP 524) UM HAMILTON 00608/1 *MVC SA G MVC0 W032:MVCSOU3.1 D3.1T1 480 MVC..SA.1 1 LINE 80 36 PAGE UM EMERY MAR. 06, 1974 22:34.58 0 RECORD REFORMATTING PROGRAM. BUG FIXED FOR D3.1. 00608/2 *MVC OC G *MVC D3.1T1 481 MVC..OC.2 1 LINE 80 4 PAGE UM EMERY MAR. 06, 1974 22:35.05 00609/1 7330 CCW SCANNER SA G CPSC MTA:CPSCN(1,999) D3.1T1 482 7330_CCW_SCANNER..SA.1 1 LINE 80 5 PAGE UM MTA MAR. 06, 1974 22:35.07 0 PROGRAM TO SCAN ITEL 7330 DISK CHANNEL PROGRAMS TO FIND RESTART ADDRESS. CALLED BY THE SUPERVISOR (045). COPIES COPY:CPSCNPAR (609/3). ASSEMBLE WITH *SYSMAC. 00609/2 7330 CCW SCANNER OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00609/3 7330 CCW SCANNER COPY:CPSCNPAR SA G CPSP S0699 D3TAPE POSN=CPSCNPAR 6 D3T5 174 7330_CCW_SCANNER.COPY:CPSC.SA.3 1 SEQ 80 1 PAGE UM MTA AUG. 02, 1973 00:35.01 0 COPY SECTION FOR ITEL 7330 (IBM 3330) CCW SCANNER PARAMETER AND SCRATCH AREAS. 0 Referenced by comments of: 45/1, 609/1 00610/1 FILE SAVE TAPE COPY MAIN SA S0652 SOURCE POSN=FCOPYA 2 D3T5 175 FILE_SAVE_TAPE_COPY.MAIN.SA.1 1 SEQ 80 19 PAGE UM YOUNG AUG. 02, 1973 00:36.02 0 PROGRAM TO MAKE BACKUP COPIES OF SYSTEM FILESAVE TAPES (AS PRODUCED BY 067). SEE NOTES IN PAPER DOCUMENTATION. 00610/2 FILE SAVE TAPE COPY MAIN OC RSTR:FSAVECOPY D3T5 176 FILE_SAVE_TAPE_COPY.MAIN.OC.2 1 LINE 80 4 PAGE UM YOUNG AUG. 02, 1973 00:36.05 00610/3 FILE SAVE TAPE COPY AUX SA S0652 SOURCE POSN=FCOPYB 3 D3T5 177 FILE_SAVE_TAPE_COPY.AUX.SA.3 1 SEQ 80 4 PAGE UM YOUNG AUG. 02, 1973 00:36.08 00610/4 FILE SAVE TAPE COPY AUX OC RSTR:FSAVAUXOBJ D3T5 178 FILE_SAVE_TAPE_COPY.AUX.OC.4 1 LINE 80 1 PAGE UM YOUNG AUG. 02, 1973 00:36.12 00611/1 LOCKSTAT SA G LKST MTA:LOCKSTAT(1,999) D3T5 179 LOCKSTAT..SA.1 1 LINE 80 6 PAGE UM MTA AUG. 02, 1973 00:36.13 0 PROGRAM TO PRINT LOCK BYTE COUNTS AND TIMES FROM THE SUPERVISOR (045). THE SUPERVISOR MUST BE REASSEMBLED WITH &NOLOKC SET TO 0. COPIES COPY:PSA (162) AND COPY:CHACST (577/28). ASSEMBLE WITH *SYSMAC. NOTE: THIS PROGRAM HAS EQUS FOR THE LOCATION OF THE LOCK BYTE COUNTS IN THE PSA. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00611/2 LOCKSTAT OC G MTA:LOCKSTAT(1000) D3T5 180 LOCKSTAT..OC.2 1 LINE 80 3 PAGE UM MTA AUG. 02, 1973 00:36.15 00612/1 LETGO SA G LETG WSG:LETGO(1,999) D3T5 181 LETGO..SA.1 1 LINE 80 4 PAGE UM WSG AUG. 02, 1973 00:36.17 0 FORTRAN CALLABLE SUBROUTINE TO UNLOCK AND RELOCK FILES AT SPECIFIED INTERVALS OF REAL TIME. ASSEMBLE USING *SYSMAC. 00612/2 LETGO OC G # *LIBRARY (SEE COMP 524) UM WSG 00613/1 LONGREAD SA S LNGR WSG:LONGREAD(1,999) D3T5 182 LONGREAD..SA.1 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:36.19 0 PROGRAM TO DEBLOCK MAGNETIC TAPE BLOCKS WHICH ARE UP TO 65534 BYTES LONG USING MTS MAG TAPE DSR. NOT FOR GENERAL USE SINCE IT REQUIRES THAT THE SIZE PARAMETER IN THE TAPERTN DSECT BE PATCHED. SEE COMMENTS IN LISTING. ASSEMBLE WITH *SYSMAC. 00613/2 LONGREAD OC S WSG:LONGREAD(1000) D3T5 183 LONGREAD..OC.2 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:36.21 00614/1 START JOB SA G STRT WSG:START(1,999) D3T5 184 START_JOB..SA.1 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:36.23 0 PROGRAM TO START UMMPS JOBS. CHECKS THE MTS SWITCHES TO MAKE SURE USER HAS EITHER "PRIV" OR "LIB CHANGE" BITS IN ACCOUNTING RECORD. THEN READS COMMAND LINES FROM SCARDS AND FEEDS THEM TO SUPERVISOR VIA SVC STRTJB. COPIES COPY:LLMPSEQU (087). 0 Referenced by comments of: 154/2, 387/12, 387/14 00614/2 START JOB OC G STRT:START D3T5 185 START_JOB..OC.2 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:36.25 00615/1 PLOT SYSTEM INSTALLATION C W038:PSYSGEN D3.1T1 483 PLOT_SYSTEM.INSTALLATION.C.1 1 LINE 106 3 PAGE UM BLINN MAR. 06, 1974 22:35.08 0 THE UM MTS CALCOMP PLOT ROUTINES. FOR D3.1, THIS VERSION HAS BEEN CHANGED TO COMPLETELY CORRESPOND TO MTS VOLUME 11 (WITH UPDATE 1 (512/3) APPLIED). SEVERAL OF THE SOURCE SUB-COMPONENTS OF THE PLOT SYSTEM CONSIST OF MORE THAN ONE ASSEMBLY, SO USE PAR=B 615/1 CONTAINS COMMANDS TO ASSEMBLE AND COMPILE THE VARIOUS SUB-COMPONENTS OF THE PLOT SYSTEM AND COMPOSE THE PUBLIC FILE IMAGES. 00615/2 PLOT SYSTEM MACROS SM S0686 PDSBAK POSN=PDSCC.MACROS 1 D3.1T1 484 PLOT_SYSTEM.MACROS.SM.2 1 SEQ 80 2 PAGE UM BLINN MAR. 06, 1974 22:36.11 0 CALCOMP SYSTEM MACROS. MUST BE RUN THROUGH *MACGEN BEFORE USING. 0 Referenced by comments of: 615/3, 615/4, 615/5, 615/6, 615/7, 615/8, 615/9, 615/10 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00615/3 PLOT SYSTEM GETSETPLTS8 SA G S0686 PDSBAK POSN=CC.GETSETPLTS8 2 D3.1T1 485 PLOT_SYSTEM.GETSETPLTS8.SA.3 1 SEQ 80 4 PAGE UM BLINN MAR. 06, 1974 22:36.12 0 SUBROUTINE USED IN *CCQUEUE (615/13) AND SYS:CCP (615/14). ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/4 PLOT SYSTEM CCQUEUE SA G S0686 PDSBAK POSN=CC.CCQUEUE 3 D3.1T1 486 PLOT_SYSTEM.CCQUEUE.SA.4 1 SEQ 80 34 PAGE UM BLINN MAR. 06, 1974 22:36.17 0 MAIN PROGRAM FOR *CCQUEUE. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/5 PLOT SYSTEM CCP SA G S0686 PDSBAK POSN=CC.CCP 4 D3.1T1 487 PLOT_SYSTEM.CCP.SA.5 1 SEQ 80 18 PAGE UM BLINN MAR. 06, 1974 22:36.21 0 MAIN PROGRAM FOR SYS:CCP (615/14). ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/6 PLOT SYSTEM CCPOST SA G S0686 PDSBAK POSN=CC.CCPOST 5 D3.1T1 488 PLOT_SYSTEM.CCPOST.SA.6 1 SEQ 80 6 PAGE UM BLINN MAR. 06, 1974 22:36.23 0 SOURCE FOR *CCPOST. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/7 PLOT SYSTEM CPCORE SA G S0686 PDSBAK POSN=CC.CPCORE 6 D3.1T1 489 PLOT_SYSTEM.CPCORE.SA.7 1 SEQ 80 35 PAGE UM BLINN MAR. 06, 1974 22:36.28 0 MAIN PROGRAM FOR *CPCORE. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/8 PLOT SYSTEM PWRIT SA G S0686 PDSBAK POSN=PDS.PWRIT 7 D3.1T1 490 PLOT_SYSTEM.PWRIT.SA.8 1 SEQ 80 16 PAGE UM BLINN MAR. 06, 1974 22:36.32 0 SUBROUTINE IN *PLOTSYS. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/9 PLOT SYSTEM PSYMB SA G S0686 PDSBAK POSN=PDS.PSYMB 8 D3.1T1 491 PLOT_SYSTEM.PSYMB.SA.9 1 SEQ 80 13 PAGE UM BLINN MAR. 06, 1974 22:36.34 0 SUBROUTINES IN *PLOTSYS. ALSO USED IN *CPCORE. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/10 PLOT SYSTEM ASM SA G S0686 PDSBAK POSN=PDS.ASM 9 D3.1T1 492 PLOT_SYSTEM.ASM.SA.10 1 SEQ 80 31 PAGE UM BLINN MAR. 06, 1974 22:36.39 0 SUBROUTINES IN *PLOTSYS. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/11 PLOT SYSTEM FORT SF G S0686 PDSBAK POSN=PDS.FORT 10 D3.1T1 493 PLOT_SYSTEM.FORT.SF.11 1 SEQ 80 27 PAGE UM BLINN MAR. 06, 1974 22:36.44 0 SUBROUTINES IN *PLOTSYS. 00615/12 PLOT SYSTEM PSYMCHK SF G S0686 PDSBAK POSN=CC.PSYMCHK 11 D3.1T1 494 PLOT_SYSTEM.PSYMCHK.SF.12 1 SEQ 80 2 PAGE UM BLINN MAR. 06, 1974 22:36.46 0 SYMBOL STRING CHECK FOR PSYM LINE PROCESSING AND GENERATION. 00615/13 PLOT SYSTEM *CCQUEUE OC G *CCQUEUE D3.1T1 495 PLOT_SYSTEM.*CCQUEUE.OC.13 1 LINE 80 9 PAGE UM BLINN MAR. 06, 1974 22:36.49 0 PROGRAM TO QUEUE USERS PLOTS FOR POST-PROCESSING BY *CCP. ADDS A LINE TO *CCPFILE (NOT DISTRIBUTED) INDICATING 1 FRI AUG 02/96 18:37:32 Page 222 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 THE PLOT TO BE PROCESSED. OBJECT FROM 615/4 + 615/3 + 615/12. 0 Referenced by comments of: 615/3 00615/14 PLOT SYSTEM SYS:CCP OC G SYS:CCP D3.1T1 496 PLOT_SYSTEM.SYS:CCP.OC.14 1 LINE 80 5 PAGE UM BLINN MAR. 06, 1974 22:36.51 0 POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/15) USED BY THE SYSTEM OPERATORS TO GENERATE OFFLINE PLOT TAPES. OBJECT CONSISTS OF 615/5 + 615/3 + A "$CONTINUE WITH *CPCORE" CARD. 0 Referenced by comments of: 615/3, 615/5, 615/15, 615/17 00615/15 PLOT SYSTEM *CCP C *CCP D3.1T1 497 PLOT_SYSTEM.*CCP.C.15 1 LINE 23 1 PAGE UM BLINN MAR. 06, 1974 22:36.53 0 COMMAND FILE INVOKED BY ENTERING "MTS *CCP" ON OPERATOR'S CONSOLE. USED BY THE SYSTEM OPERATOR TO GENERATE THE SYSTEM PLOT TAPES. RUNS THE SYS:CCP PROGRAM (615/14). 0 Referenced by comments of: 615/14 00615/16 PLOT SYSTEM *CCPOST OC G *CCPOST D3.1T1 498 PLOT_SYSTEM.*CCPOST.OC.16 1 LINE 80 3 PAGE UM BLINN MAR. 06, 1974 22:36.56 0 PROGRAM TO ALLOW USERS TO POST-PROCESS THEIR OWN PLOTS. OBJECT FROM 615/6 + A "$CONTINUE WITH *CPCORE" CARD. 0 Referenced by comments of: 615/17 00615/17 PLOT SYSTEM *CPCORE OC G *CPCORE D3.1T1 499 PLOT_SYSTEM.*CPCORE.OC.17 1 LINE 80 9 PAGE UM BLINN MAR. 06, 1974 22:36.58 0 BASIC PROGRAMS IN CALCOMP POST-PROCESSOR. USED WITH BOTH *CCPOST (615/16) AND SYS:CCP (615/14). *CPCORE DUPLICATES NAMES IN *PLOTSYS (615/18), BUT WRITES A CALCOMP PLOTTER TAPE, NOT A PLOT FILE. OBJECT CONSISTS OF OBJECT FROM 615/7 + 615/9 + 615/12. 00615/18 PLOT SYSTEM *PLOTSYS OL G *PLOTSYS D3.1T1 500 PLOT_SYSTEM.*PLOTSYS.OL.18 1 SEQ 4290 14 PAGE UM BLINN MAR. 06, 1974 22:37.00 0 OBJECT LIBRARY GENERATED FROM 615/8 + 615/9 + 615/10 + 615/11 + 615/12. 0 Referenced by comments of: 615/17 00615/19 PLOT SYSTEM *PFILESCAN OC G *PFILESCAN D3T5 203 PLOT_SYSTEM.*PFILESCAN.OC.18 1 SEQ 23 1 PAGE UM BLINN AUG. 02, 1973 00:38.31 0 CONTAINS A "$CONTINUE WITH *OBJSCAN" CARD. 00616/1 TERM USAGE STATISTICS SA G DCST W108:DCSTATSOU D3T5 204 TERM_USAGE_STATISTICS..SA.1 1 LINE 80 11 PAGE UM WSG AUG. 02, 1973 00:38.33 0 PROGRAM TO COMPUTE SYSTEM USAGE BY VARIOUS TERMINAL TYPES, CLASSES, AND SPEEDS. IT READS "*STATISTICS" DATA AND PRINTS THE TOTAL USAGE (ELAPSED TIME, CPU TIME, CPU VMI, AND WAIT VMI) FOR EACH TERMINAL TYPE AND SUMMARY LINES FOR CLASSES OF TERMINALS. THE DISTRIBUTED VERSION IS SET UP FOR THE UM TERMINAL I/O CONFIGURATION (OLD DATA CONCENTRATOR, NEW DATA CONCENTRATOR, MEMOREX 1270 (2703), 7772, 2260, ETC). THE FILE CONTAINING THE STATISTICS DATA MAY BE SPECIFIED IN THE PAR= FIELD OR A TAPE MAY BE SPECIFIED BY GIVING 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 0 "PAR=TAPE-VOL" WHERE VOL IS THE VOLUME NAME OF THE TAPE TO BE MOUNTED ("PAR=TAPE" MEANS THE TAPE IS UNLABELED). IF NO PAR= IS GIVEN, THE DATA IS READ FROM *STATISTICS. COPIES COPY:STATDSECT (620). ASSEMBLE WITH *SYSMAC. 00616/2 TERM USAGE STATISTICS OC G W108:DCSTAT D3T5 205 TERM_USAGE_STATISTICS..OC.2 1 LINE 80 3 PAGE UM WSG AUG. 02, 1973 00:38.35 00617/1 USAGE STATISTICS SA G STAT W108:STATSOU D3T5 206 USAGE_STATISTICS..SA.1 1 LINE 80 8 PAGE UM WSG AUG. 02, 1973 00:38.38 0 PROGRAM TO PRINT SYSTEM USAGE FOR SPECIFIED USER ID'S, ANSWERBACKS, AND MASTER SOURCE DEVICE NAMES. FOR EACH RECORD FOUND, THE USER ID, PROJECT NUMBER, SIGNON AND OFF TIMES, DATE, ANSWERBACK, AND ELAPSED TIME ARE PRINTED ON SPRINT AND THE TOTAL ELAPSED TIME FOR ALL JOBS FOUND IS PRINTED ON SERCOM. INPUT COMMANDS ARE READ FROM GUSER IN RESPONSE TO THE PROMPT "READY:" ON SERCOM. THE FOLLOWING COMMANDS ARE ACCEPTED: DATE MM-DD MM-DD SPECIFY DATE RANGE FOR SUBSEQUENT SEARCHES. TIME HH:MM HH:MM SPECIFY TIME RANGE FOR SUBSEQUENT SEARCHES. U USERID SCAN FOR ALL RUNS FOR THIS USERID. D NAME SCAN FOR ALL RUNS FROM THIS MSOURCE DEVICE. A ANSWERBACK SCAN FOR ALL RUNS WITH THIS ANSWERBACK CODE. NOTE: THE CHARACTER "#" IS USED AS A FILL CHARACTER FOR THE MATCHING DONE BY THE "D" COMMAND. FOR EXAMPLE, "D LA##:TTYUM##########" WILL FIND ALL JOBS ON ANY "LA" (2703) LINE WITH ANSWERBACKS STARTING WITH UM. THE FILE FROM WHICH THE INPUT "*STATISTICS" DATA IS READ MAY BE SPECIFIED IN THE PAR= FIELD OR A TAPE MAY BE SPECIFIED BY GIVING "PAR=TAPE-VOL" WHERE VOL IS THE VOLUME NAME OF THE TAPE TO BE MOUNTED ("PAR=TAPE" MEANS THE TAPE IS UNLABELED). IF NO PAR= IS GIVEN, THE DATA IS READ FROM *STATISTICS. COPIES COPY:STATDSECT (620) AND COPY:LLMPSEQU (087). ASSEMBLE WITH *SYSMAC. 00617/2 USAGE STATISTICS OC G W108:STAT D3T5 207 USAGE_STATISTICS..OC.2 1 LINE 80 3 PAGE UM WSG AUG. 02, 1973 00:38.40 00618/1 BUFSTAT SA G BUFS WSG:BUFSTAT(1,999) D3T5 208 BUFSTAT..SA.1 1 LINE 80 4 PAGE UM WSG AUG. 02, 1973 00:38.46 0 PROGRAM TO PRINT WHICH JOBS ARE USING WHICH LOW-CORE TERMINAL BUFFERS, HOW MANY ARE NOT BEING USED, AND APPROXIMATELY HOW MANY MORE ARE REQUIRED WHEN THEY ARE ALL IN USE. COPIES COPY:LLMPWEQU (087). 0 Referenced by comments of: 9/1 00618/2 BUFSTAT OC G WSG:BUFSTAT(1000) D3T5 209 BUFSTAT..OC.2 1 LINE 80 1 PAGE UM WSG AUG. 02, 1973 00:38.48 00619/1 *ASMT *ASMTSYSMAC SM O SYSM S0653 'ASMT' FSNAME=*ASMTSYSMAC D3T5 210 ASMT.*ASMTSYSMAC.SM.1 1 LINE 80 70 PAGE UM BERSTIS JULY 29, 1973 16:04.30 0 THE IBM TSS/360 ASSEMBLER MODIFIED TO RUN IN MTS. *ASMTSYSMAC IS THE TSS VERSION OF *SYSMAC. 00619/2 *ASMT MACROS SM G MAC0 S0653 'ASMT' FSNAME=ASMTMACROS D3T5 211 ASMT.MACROS.SM.2 1 LINE 80 67 PAGE UM BERSTIS JULY 23, 1973 18:02.28 0 MACRO LIBRARY USED TO ASSEMBLE COMPS 619/3 THROUGH 619/23. CONTAINS DSECTS, PSECTS, AND OTHER TID BITS. 1 FRI AUG 02/96 18:37:32 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 Referenced by comments of: 619/3 00619/3 *ASMT PHASE 1.1 SA S A100 S0653 'ASMT' FSNAME=CEVA1.S D3T5 212 ASMT.PHASE_1.1.SA.3 1 LINE 80 43 PAGE UM BERSTIS JULY 23, 1973 19:48.37 0 COMPS 619/3 THROUGH 619/23 SHOULD ALL BE ASSEMBLED USING THE ASMTMACROS MACRO LIBRARY (619/2) AND *SYSMAC. 00619/4 *ASMT PHASE 1.2 SA S A200 S0653 'ASMT' FSNAME=CEVA2.S D3T5 213 ASMT.PHASE_1.2.SA.4 1 LINE 80 50 PAGE UM BERSTIS FEB. 12, 1973 22:00.06 00619/5 *ASMT PHASE 1.3 SA S A300 S0653 'ASMT' FSNAME=CEVA3.S D3T5 214 ASMT.PHASE_1.3.SA.5 1 LINE 80 48 PAGE UM BERSTIS JUNE 04, 1973 01:55.14 00619/6 *ASMT PHASE 1.4 SA S A400 S0653 'ASMT' FSNAME=CEVA4.S D3T5 215 ASMT.PHASE_1.4.SA.6 1 LINE 80 40 PAGE UM BERSTIS JULY 23, 1973 18:38.45 00619/7 *ASMT PHASE 1.5 SA S A500 S0653 'ASMT' FSNAME=CEVA5.S D3T5 216 ASMT.PHASE_1.5.SA.7 1 LINE 80 53 PAGE UM BERSTIS JULY 23, 1973 18:38.34 00619/8 *ASMT PHASE 1.6 SA S A600 S0653 'ASMT' FSNAME=CEVA6.S D3T5 217 ASMT.PHASE_1.6.SA.8 1 LINE 80 47 PAGE UM BERSTIS JULY 28, 1973 21:31.34 00619/9 *ASMT PHASE 1.7 SA S A700 S0653 'ASMT' FSNAME=CEVA7.S D3T5 218 ASMT.PHASE_1.7.SA.9 1 LINE 80 39 PAGE UM BERSTIS JULY 28, 1973 21:31.27 00619/10 *ASMT PHASE 1.8 SA S A800 S0653 'ASMT' FSNAME=CEVA8.S D3T5 219 ASMT.PHASE_1.8.SA.10 1 LINE 80 18 PAGE UM BERSTIS JULY 13, 1973 03:07.03 00619/11 *ASMT PHASE 1.9 SA S A900 S0653 'ASMT' FSNAME=CEVA9.S D3T5 220 ASMT.PHASE_1.9.SA.11 1 LINE 80 10 PAGE UM BERSTIS FEB. 11, 1973 18:48.12 00619/12 *ASMT PHASE 2.1 SA S B100 S0653 'ASMT' FSNAME=CEVB1.S D3T5 221 ASMT.PHASE_2.1.SA.12 1 LINE 80 29 PAGE UM BERSTIS JULY 23, 1973 19:48.45 00619/13 *ASMT PHASE 2.2 SA S C100 S0653 'ASMT' FSNAME=CEVC1.S D3.1T1 501 ASMT.PHASE_2.2.SA.13 1 LINE 80 41 PAGE UM BERSTIS MAR. 02, 1974 01:14.21 00619/14 *ASMT PHASE 2.3 SA S D100 S0653 'ASMT' FSNAME=CEVD1.S D3T5 223 ASMT.PHASE_2.3.SA.14 1 LINE 80 19 PAGE UM BERSTIS JUNE 04, 1973 01:57.46 00619/15 *ASMT PHAS1 3.1 SA S E100 S0653 'ASMT' FSNAME=CEVE1.S D3T5 224 ASMT.PHAS1_3.1.SA.15 1 LINE 80 61 PAGE UM BERSTIS JULY 23, 1973 18:38.52 00619/16 *ASMT PHASE 3.2 SA S E200 S0653 'ASMT' FSNAME=CEVE2.S D3T5 225 ASMT.PHASE_3.2.SA.16 1 LINE 80 63 PAGE UM BERSTIS JULY 16, 1973 02:01.35 00619/17 *ASMT PHASE 4 SA S F100 S0653 'ASMT' FSNAME=CEVF1.S D3.1T1 502 ASMT.PHASE_4.SA.17 1 LINE 80 57 PAGE UM BERSTIS MAR. 02, 1974 01:14.28 00619/18 *ASMT ASMTGO SA G GO00 S0653 'ASMT' FSNAME=ASMTGO.S D3.1T1 503 ASMT.ASMTGO.SA.18 1 LINE 80 4 PAGE UM BERSTIS MAR. 02, 1974 01:14.54 0 THIS ROUTINE CALLS THE ASSEMBLER WITH TSS CALLING CONVENTIONS. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00619/19 *ASMT ASMTDEFS SA DEFS S0653 'ASMT' FSNAME=ASMTDEFS.S D3T5 228 ASMT.ASMTDEFS.SA.19 1 LINE 80 4 PAGE UM BERSTIS JULY 23, 1973 18:06.18 0 ASMT LOW-CORE SYMBOL TABLE. 00619/20 *ASMT CEVAR SA S AR00 S0653 'ASMT' FSNAME=CEVAR.S D3T5 229 ASMT.CEVAR.SA.20 1 LINE 80 8 PAGE UM BERSTIS JULY 23, 1973 18:06.40 0 ASMT PSECTS. ASSEMBLE WITH PAR=BATCH. 00619/21 *ASMT LPC SA O LPC0 S0653 'ASMT' FSNAME=ASMTLPC.S D3.1T1 504 ASMT.LPC.SA.21 1 LINE 80 19 PAGE UM BERSTIS MAR. 02, 1974 01:14.17 0 ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT). 00619/22 *ASMT OBJ PRODUCER SA O DECK S0653 'ASMT' FSNAME=DECK.S D3T5 231 ASMT.OBJ_PRODUCER.SA.22 1 LINE 80 23 PAGE UM BERSTIS JULY 23, 1973 18:06.57 0 PROGRAM TO CONVERT TSS OBJECT TO MTS FORMAT OBJECT DECK. 00619/23 *ASMT CEVML SA O ML00 S0653 'ASMT' FSNAME=CEVML.S D3T5 232 ASMT.CEVML.SA.23 1 LINE 80 6 PAGE UM BERSTIS JULY 28, 1973 21:31.21 0 MACRO AND COPY LIBRARY RETRIEVAL. 00619/24 *ASMT SHARED OBJECT OE S0653 'ASMT' FSNAME=ASMTLCOBJ D3.1T1 505 ASMT.SHARED_OBJECT.OE.24 1 SEQ 10151 84 PAGE UM BERSTIS MAR. 02, 1974 01:14.09 0 SHARED (RE-ENTRANT) PART OF ASSEMBLER. LOADED INTO SEGMENT 2 BY SEG 2 LOADER. 00619/25 *ASMT *ASMT OE S0653 'ASMT' FSNAME=*ASMT D3.1T1 506 ASMT.*ASMT.OE.25 1 SEQ 4096 9 PAGE UM BERSTIS MAR. 02, 1974 01:14.51 0 NON-SHARED OBJECT. 00619/26 *ASMT DOCUMENTATION WF S0653 'ASMT' FSNAME=ASMTDOC D3.1T1 507 ASMT.DOCUMENTATION.WF.26 1 LINE 153 5 PAGE UM BERSTIS MAR. 02, 1974 01:14.02 0 *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION. FILE HAS A "$CONTINUE WITH *DUMMY*" LINE. NOTE: THIS FILE HAS COMMANDS AT NEGATIVE LINE NUMBERS. 00620 STATDSECT SA G STAD MTS:STATDCT/D3.1 D3.1T1 508 STATDSECT..SA. 1 LINE 80 3 PAGE UM MTA MAR. 06, 1974 22:40.27 0 THIS IS "COPY:STATDSECT" WHICH IS A COPY SECTION FOR THE *STATISTICS RECORD FORMAT DSECT. 0 Referenced by comments of: 71/1, 346/1, 355/1, 616/1, 617/1 00621/1 DISK ERROR LOG *DLG C *DLG D3T5 237 DISK_ERROR_LOG.*DLG.C.1 1 LINE 26 1 PAGE UM MTA AUG. 02, 1973 00:53.34 0 COMMAND FILE, INVOKED AT UM AS PART OF *LAS (154), WHICH RUNS THE READ3330LOG PROGRAM (621/2) TO LOG ALL 3330 DISK ERRORS. THIS FILE COULD ALTERNATIVELY BE SETUP TO RUN THE CONSOLE WATCH PROGRAM (621/6) IF 2314 DISKS ARE BEING USED. 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00621/2 DISK ERROR LOG READ3330LOG SA G RD33 MTA:READ3330LOG(1,999) D3T5 238 DISK_ERROR_LOG.READ3330LOG.SA.2 1 LINE 80 3 PAGE UM MTA AUG. 02, 1973 00:53.36 0 WHEN FIRST RUN AND EVERY HOUR THEREAFTER, THIS PROGRAM READS THE BUFFERED HARDWARE ERROR LOG FROM EVERY PUBLIC DISK VOLUME AND LOGS THE RESULTS IN THE FORM OF UC ERROR MESSAGES. COPIES COPY:CMDAREADSECT (531/12) AND COPY:DSKDSCT (482/42). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 621/1, 621/4, 621/6 00621/3 DISK ERROR LOG READ3330LOG OC G MTA:READ3330LOG(1000) D3T5 239 DISK_ERROR_LOG.READ3330LOG.OC.3 1 LINE 80 1 PAGE UM MTA AUG. 02, 1973 00:53.39 00621/4 DISK ERROR LOG PRINT UC 3330 SA G PRUC MTA:PRINTUC3330(1,999) D3T5 240 DISK_ERROR_LOG.PRINT_UC_33.SA.4 1 LINE 80 4 PAGE UM MTA AUG. 02, 1973 00:53.42 0 PROGRAM TO READ ITEL 7330 UNIT CHECK LOG RECORDS, AS SAVED BY READ3330LOG (621/2) OR UC3330 (603), ON SCARDS AND FORMAT THEM FOR PRINTING ON SPRINT. IT IGNORES ALL RECORDS THAT ARE NOT OF TYPE 4, THE TYPE USED FOR UC3330 RECORDS. COPIES COPY:CMDAREADSECT (531/12). ASSEMBLE WITH *SYSMAC. 00621/5 DISK ERROR LOG PRINT UC 3330 OC G MTA:PRINTUC3330(1000) D3T5 241 DISK_ERROR_LOG.PRINT_UC_33.OC.5 1 LINE 80 3 PAGE UM MTA AUG. 02, 1973 00:53.45 00621/6 DISK ERROR LOG CONSOLE WATCH SA O LOGD MTA:LOGDISKERRS(1,999) D3T5 242 DISK_ERROR_LOG.CONSOLE_WAT.SA.6 1 LINE 80 1 PAGE UM MTA AUG. 02, 1973 00:53.48 0 PROGRAM TO KEEP WATCHING OUTPUT PRINTED ON OPERATORS CONSOLE LOOKING FOR DIRECT ACCESS UNIT CHECK MESSAGES AND WRITES THEM IN A FILE. READ3330LOG (621/2) IS A REPLACEMENT FOR THIS PROGRAM WHEN 3330 DISKS ARE BEING USED. ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 621/1 00621/7 DISK ERROR LOG CONSOLE WATCH OC O MTA:LOGDISKERRS(1000) D3T5 243 DISK_ERROR_LOG.CONSOLE_WAT.OC.7 1 LINE 80 1 PAGE UM MTA AUG. 02, 1973 00:53.50 00621/8 DISK ERROR LOG SCAN LOG C W032:DISKERRS D3T5 244 DISK_ERROR_LOG.SCAN_LOG.C.8 1 LINE 56 1 PAGE UM EMERY AUG. 02, 1973 00:53.53 0 COMMAND FILE TO FORMAT, SORT, AND PRINT DISK ERRORS ACCUMULATED BY THE CONSOLE WATCHING PROGRAM. ASSUMES UNIT CHECK MESSAGES ARE IN INIT:DISKLOG AND USES W032:DISKERR (621/9). 00621/9 DISK ERROR LOG SCAN PROGRAM SA DERR W032:DISKERR(1,999) D3T5 245 DISK_ERROR_LOG.SCAN_PROGRA.SA.9 1 LINE 80 7 PAGE UM EMERY AUG. 02, 1973 00:53.55 0 PROGRAM TO REFORMAT DIRECT ACCESS UNIT CHECK MESSAGES SO THAT THEY CAN BE SORTED BY DEVICE NAME, TIME, AND DATE. 0 Referenced by comments of: 621/8 00621/10 DISK ERROR LOG SCAN PROGRAM OC W032:DISKERR(2000) D3T5 246 DISK_ERROR_LOG.SCAN_PROGRA.OC.10 1 LINE 80 2 PAGE UM EMERY AUG. 02, 1973 00:53.58 1 FRI AUG 02/96 18:37:32 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 + ______________ _____________________ 00622 FCBDSECT SA G COPY:FCBDSECT D3.1T1 509 FCBDSECT..SA. 1 LINE 80 4 PAGE UM DWB MAR. 06, 1974 22:40.28 0 THIS IS "COPY:FCBDSECT" WHICH IS THE COPY SECTION FOR THE FILE CONTROL BLOCK (FCB) DSECT. 0 Referenced by comments of: 346/1, 387/1 00623 FDUBDSECT SA G COPY:FDUBDSECT D3.1T1 510 FDUBDSECT..SA. 1 LINE 80 3 PAGE UM DWB MAR. 06, 1974 22:40.30 0 THIS IS "COPY:FDUBDSECT" WHICH IS THE COPY SECTION FOR FILE OR DEVICE USAGE BLOCK (FDUB) DSECT. 0 Referenced by comments of: 101/1, 116/1, 135/1, 143/1, 346/1, 387/1, 509/1, 591/1 00624 WOPTRDSECT SA G COPY:WOPTRDSECT D3.1T1 511 WOPTRDSECT..SA. 1 LINE 80 1 PAGE UM DWB MAR. 06, 1974 22:40.32 0 THIS IS "COPY:WOPTRDSECT" WHICH IS THE COPY SECTION FOR THE WRITEON PRINTER DSECT. 0 Referenced by comments of: 346/1, 387/1 00625 SIMSCRIPT2 @ WSU HENRIKSEN 00626/1 ATNTRP SUBR SA G ATRP W034:ATNTRP.S D3.1T1 512 ATNTRP_SUBR..SA.1 1 LINE 80 1 PAGE UM JWS MAR. 06, 1974 22:40.34 0 SUBROUTINE TO ALLOW FORTRAN USERS TO CALL ATTNTRP. MISSED IN DIST 3.0. 00626/2 ATNTRP SUBR OC G # *LIBRARY (SEE COMP 524) UM JWS 00627/1 GDINF SUBR SA G GDIN W034:GDINF.S D3.1T1 513 GDINF_SUBR..SA.1 1 LINE 80 1 PAGE UM JWS MAR. 06, 1974 22:40.36 0 SUBROUTINE TO ALLOW FORTRAN USERS TO CALL GDINFO. MISSED IN DIST 3.0. 00627/2 GDINF SUBR OC G # *LIBRARY (SEE COMP 524) UM JWS 00628/1 UC3284 SA G MTS:UC3284(1,999) D3.1T1 514 UC3284..SA.1 1 LINE 72 3 PAGE UM HAMILTON MAR. 06, 1974 22:40.38 0 UNIT CHECK ROUTINES FOR IBM 3284 PRINTER. 00628/2 UC3284 OC G MTS:UC3284(1000) D3.1T1 515 UC3284..OC.2 1 LINE 80 1 PAGE UM HAMILTON MAR. 06, 1974 22:40.40 00629/1 *3270RTN SA G 3270 W047:3270.S D3.1T1 516 3270RTN..SA.1 1 LINE 80 86 PAGE UM HAMILTON MAR. 06, 1974 22:40.42 0 UBC DSR FOR IBM 3277-1 AND 3277-2 DISPLAY TERMINALS. 1 FRI AUG 02/96 18:37:32 Page 228 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ __________