1 WED JUL 24/96 18:21:34 Page 1 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00001/1 UMLOAD SA G UMLD W009:UMLOAD.S 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. SOME INSTALLATIONS HAVE RECENTLY RECEIVED AN INTERIM VERSION OF UMLOAD WHICH WAS LABELED VERSION 3.0. HOWEVER, BECAUSE OF THE DELAY IN DISTRIBUTION 3.0, UMLOAD HAS SINCE BEEN CHANGED. THIS IS THE REAL VERSION 3.0 (DON'T STAND UP). 0 Referenced by comments of: 254/1 00001/2 UMLOAD UU # (NOT AVAILABLE) UM DE JONG 0 BECAUSE OF VERY EXTENSIVE CHANGES TO UMLOAD, WE DO NOT HAVE AN UPDATE DECK TO PRODUCE D3.0 FROM D2.0. RUN *DOWNDATE AND YOU'LL GET A MESS! 00001/3 UMLOAD OC G # RESIDENT SYSTEM (SEE COMP 468) UM DE JONG 00001/4 UMLOAD WRITEUP WF G W098:KDJLDRDOC D3T1 2 UMLOAD.WRITEUP.WF.4 1 LINE 114 9 PAGE UM DE JONG JULY 30, 1973 22:56.05 00003/1 JOBLIST SA G JBLS S0622 D3MISC FSNAME=JOBLST.S 58 D3T1 3 JOBLIST..SA.1 1 LINE 80 8 PAGE UM MTA JULY 30, 1973 20:46.02 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) D3T1 4 TABLES..SA.1 1 LINE 80 18 PAGE UM WSG JULY 30, 1973 22:58.59 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. 0 Referenced by comments of: 482/10 00004/2 TABLES OC G # RESIDENT SYSTEM (SEE COMP 468) UM WSG 00004/3 TABLES WRITEUP WF MTS:TABLESDESCR D3T1 5 TABLES.WRITEUP.WF.3 1 LINE 133 13 PAGE UM WSG JULY 30, 1973 22:59.04 00004/4 TABLES DECKGEN SA G DCKP W047:DCKPCHR.S D3T5 250 TABLES.DECKGEN.SA.4 1 LINE 80 64 PAGE UBC MADDEROM AUG. 11, 1973 01:27.27 0 STAND-ALONE PROGRAM WRITTEN AT UBC AND MODIFIED AT UM WHICH GENERATES AN MTS OBJECT DECK FOR TABLES BASED 1 WED JUL 24/96 18:21:34 Page 2 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. A WRITEUP (004/6) IS INCLUDED IN THE PAPER DOCUMENTATION. 00004/5 TABLES DECKGEN OC G W047:DCKPCHR.O D3T5 251 TABLES.DECKGEN.OC.5 1 LINE 80 6 PAGE UBC MADDEROM AUG. 11, 1973 01:27.45 0 THIS OBJECT DECK IS ALSO THE THIRD IPL DECK IN THE FIRST FILE OF THE DISTRIBUTION RESTORE TAPE. 0 Referenced by comments of: 468/2 00004/6 TABLES DECKGEN DESCR WF W047:DCKPCHR.W D3T5 252 TABLES.DECKGEN_DESCR.WF.6 1 LINE 108 4 PAGE UM HAMILTON AUG. 11, 1973 01:27.47 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 D3T1 6 JBRP..SA.1 1 LINE 80 7 PAGE UM MTA JULY 30, 1973 22:59.27 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 WED JUL 24/96 18:21:34 Page 3 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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) D3T1 11 EXIT..SA.1 1 LINE 80 3 PAGE UM MTA JULY 30, 1973 23:01.03 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 S0622 D3MISC FSNAME=CARDUC.S 47 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 S0622 D3MISC FSNAME=PCHUC.S 48 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 WED JUL 24/96 18:21:34 Page 4 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00014/2 PCHUC OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00015 DASDUC # (SEE COMP 482/1 AND 482/2) 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) D3T1 19 TASKS_JOB..SA.1 1 LINE 80 9 PAGE UM WSG JULY 30, 1973 23:01.54 0 THE JOB PROGRAM VERSION OF *TASKS. CONTAINS TSKFMT SUBROUTINE CALLED BY *TASKS (145) COPIES COPY:LLMPSEQU (087). 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. 00020/2 JOBDUMP JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 1 WED JUL 24/96 18:21:34 Page 5 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=ONLINE.OFFLINE.S 49 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 WED JUL 24/96 18:21:34 Page 6 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00026/2 CPCC JOB OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00027 MOVIT # (SEE COMP 482/3 AND 482/4) UM 00029 VTOC # (SEE COMP 482/5 AND 482/6) UM 00030 READT # (SEE COMP 482/7 AND 482/8) UM 00031 GTZ # OBSOLETE D2.1 036 UM 00032 READI # (SEE COMP 482/11 AND 482/12) UM 00033 WRITEI # (SEE COMP 482/13 AND 482/14) UM 00034 READL # (SEE COMP 482/15 AND 482/16) UM 00036 OPEN SCRTCH ETC # (SEE COMP 482/17 AND 482/18) UM 00037 GETDSK ETC # (SEE COMP 482/19 AND 482/20) UM 00038/1 TSFO SA G TSFO W032:TSFOSOU3.0 D3T1 26 TSFO..SA.1 1 LINE 80 140 PAGE UM EMERY AUG. 01, 1973 00:53.44 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 WED JUL 24/96 18:21:34 Page 7 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 OF COURSE, WHEN APL ITSELF IS RUNNING THE CHARACTERS ARE AS DEFINED BY APL. THIS SET IS USED ONLY WHEN USING THE APL GOLFBALL WITH PROGRAMS OTHER THAN APL. 00038/2 TSFO *2741RTN OC G *2741RTN D3T1 27 TSFO.*2741RTN.OC.2 1 LINE 80 10 PAGE UM EMERY AUG. 01, 1973 00:54.07 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. 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 1 WED JUL 24/96 18:21:34 Page 8 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00038/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 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. 00039/2 CASECONV OC # RESIDENT SYSTEM (SEE COMP 468) UM EMERY 00040/1 KWIC 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), AND COPY:LLMPSEQU (087). REQUIRES MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1 1 WED JUL 24/96 18:21:34 Page 9 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00040/2 KWIC OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00041/1 GETSPACE/FREESPAC 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), AND COPY:LLMPSEQU (087). NEEDS MACROS IN COPY:MTS.MACROS (344) AND *SYSMAC. FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1, 468/2 00041/2 GETSPACE/FREESPAC OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00042/1 MTS 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). 0 Referenced by comments of: 42/3, 42/4, 42/5, 468/1 00042/2 MTS UPDATE #1 UU G S0602 MTSSAV 'MTS BACKUP' FSNAME=MTSUPDATES.D3 D3T1 41 MTS.UPDATE_#1.UU.2 1 LINE 73 82 DISK UM DWB JUNE 07, 1973 20:46.58 0 UPDATE DECK TO PRODUCE PRE-PF (PAGE FORMATTED FILE SYSTEM) DIST 3 SOURCE FROM DIST 2 SOURCE. THIS UPDATE RESEQUENCES THE SOURCE, CONTAINS A %REW CARD, AND ASSUMES THAT THE MASTER IS ON THE FIRST FILE OF A TAPE. 00042/3 MTS UPDATE #2 UU G MTS:MTSUPD.D3#2 D3T1 42 MTS.UPDATE_#2.UU.3 1 LINE 80 6 PAGE UM DWB JULY 30, 1973 23:12.30 0 THIS SECOND UPDATE DECK WAS REQUIRED WHEN IT WAS DECIDED TO INCLUDE THE PAGE-FORMATTED FILE SYSTEM AS PART OF DIST 3.0. IT PRODUCES THE REAL DIST 3.0 MASTER FOR MTS (042/1) FROM THE OUTPUT OF THE FIRST UPDATE. IT DOES NOT RESEQUENCE THE SOURCE; ALL INSERTED CARDS HAVE ID'S GENERATED BY THE NOT-RESEQUENCER PROGRAM (602). 00042/4 MTS OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 0 NOTE: THE MTS OBJECT IN BOTH SYSTEM OBJECT DECKS (468/1 AND 468/2) CONTAINS A REP CARD WHICH PROVIDES FOR MORE SCRATCH SPACE FOR THE $LSTAT COMMAND. THIS CHANGE HAS ALREADY BEEN MADE IN THE MTS SOURCE (042/1), BUT WE DID NOT BOTHER TO REASSEMBLE. 00042/5 MTS MTS LISTING P S0703 MTSD4L 'MTS LISTING' 1 D3T1 43 MTS.MTS_LISTING.P.5 1 SEQ 133 965 PAGE UM DWB JULY 30, 1973 23:14.25 0 *ASMG LISTING OF DIST 3 MTS (042/1) ASSEMBLY. COPY TO A PRINTER USING @MCC I/O MODIFIER, E.G. $COPY *T* *PRINT*@MCC. 00042/6 MTS SUBR LISTING P S0704 MTSS4L 'MTS SUBR LISTING' 1 D3T1 44 MTS.SUBR_LISTING.P.6 1 SEQ 133 761 PAGE UM DWB JULY 30, 1973 23:17.22 0 *ASMG LISTING OF THE "MTS SUBROUTINES": KWIC (040), GETSPACE/FREESPAC (041), GUINFO/CUINFO (198), 1 WED JUL 24/96 18:21:34 Page 10 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 LLXU (354), CHECKSUM (462), STANDARD DUMP (463), PLIMIT (464), TIMNTRP (539), AND RSF (578). COPY TO A PRINTER USING @MCC I/O MODIFIER. 00043/1 LCSYMBOL SA G LCSY MTS:LCSYMBOL(1,999) D3T1 45 LCSYMBOL..SA.1 1 LINE 80 5 PAGE UM DWB JULY 30, 1973 23:18.23 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 D3T1 46 PDP..SA.1 1 LINE 80 51 PAGE UM HAMILTON JULY 30, 1973 23:18.26 0 D3.0 VERSION OF THE PAGING DRUM PROCESSOR. COPIES COPY:PCBDSECT (470). 0 Referenced by comments of: 604/1 00044/2 PDP OC G # RESIDENT SYSTEM (SEE COMP 468) UM HAMILTON 00045/1 SUPERVISOR 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. ALL OF THIS IS LEADING UP TO AN EXPLANATION OF 8 REP CARDS IN THE RESIDENT SYSTEM OBJECT FOR CONFIG. SINCE THE 3 PARAMETERS ARE SET AT IPL BY CONFIG, THEY MUST BE PATCHED IN CONFIG, NOT IN THE SUPERVISOR IF THE PATCHED VALUES ARE TO HAVE ANY AFFECT AT THE NEXT IPL. CONFIG HAS AN 8 ENTRY TABLE (1 TO 8 CORE BOXES) WHICH CONTAINS VALUES FOR THE 3 PARAMETERS (BIGJTH, ADDBIGJ, AND MAXRDPGS). AT UM, WE HAVE DECIDED THAT THE ASSEMBLED VALUES IN CONFIG ARE TOO LARGE FOR THE SECOND PARAMETER, I.E. THE SYSTEM ALLOWS BIG JOBS TO MONOPOLIZE TOO MUCH OF REAL CORE. THUS, YOU WILL FIND 8 REP CARDS IN THE SYSTEM OBJECT DECKS (468/1 AND 468/2) FOR CONFIG TO REDUCE THE VALUES OF THE SECOND PARAMETER. THERE ARE NO HARD AND FAST RULES ABOUT ADJUSTING THESE PARAMETERS. IT IS USEFUL TO WATCH THE 3 HALFWORDS 1 WED JUL 24/96 18:21:34 Page 11 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 WHICH FOLLOW THE PARAMETERS (BIGJPGS, PRIVJBC, AND NPRIVJBC) IN THE SUPERVISOR TO TRY A GET SOME IDEA OF WHETHER THE VALUES ARE REASONABLE. THE PARAMETERS (BUT NOT THE NEXT 3 HALFWORDS) MAY BE PATCHED ON THE FLY FROM THE OPERATOR'S CONSOLE OR BY USING THE JOBS PROGRAM (413). 0 Referenced by comments of: 46/1, 468/1, 468/2, 604/1, 609/1, 611/1 00045/2 SUPERVISOR UPDATE 1 UU G S0699 D3TAPE POSN=UMMPS.UPD 7 D3T1 48 SUPERVISOR.UPDATE_1.UU.2 1 SEQ 80 102 PAGE UM MTA JULY 30, 1973 23:20.19 0 MAIN UMMPS UPDATE DECK WHICH PRODUCES 2 FILES OF OUTPUT (THE SUPERVISOR AND CONFIG) WHEN APPLIED TO THE DIST 2 SOURCE. NEW INSTALLATIONS WILL ONLY BE INTERESTED IN 45/1 AND 46/1. 00045/3 SUPERVISOR UPDATE 2 UU G S0699 D3TAPE POSN=UMMPS.UPD2 8 D3T1 49 SUPERVISOR.UPDATE_2.UU.3 1 SEQ 80 12 PAGE UM MTA JULY 30, 1973 23:20.26 0 SECONDARY UMMPS UPDATE DECK (APPLIED TO OUTPUT OF UPDATE 1) WHICH MAKES NO SUBSTANTIVE CHANGES, ONLY REPLACES ABSOLUTE NUMBERS BY SYMBOLS. 00045/4 SUPERVISOR UPDATE 3 UU G S0699 D3TAPE POSN=UMMPS.UPD3 9 D3T1 50 SUPERVISOR.UPDATE_3.UU.4 1 SEQ 80 17 PAGE UM MTA JULY 30, 1973 23:20.29 0 THIRD UPDATE TO BE APPLIED TO OUTPUT OF SECOND UPDATE TO PRODUCE 45/1 (FINALLY). THE CHANGES MADE IN THIS UPDATE ARE RELATED TO THE SUPPORT OF ITEL 7330 (IBM 3330) DISKS. 00045/5 SUPERVISOR OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00045/6 SUPERVISOR LISTING P S0035 UMMPS 'SUPERVISOR LISTING' POSN=UMMPS.LISTING.SPX 6 D3T1 51 SUPERVISOR.LISTING.P.6 1 SEQ 133 498 PAGE UM MTA JULY 30, 1973 23:23.38 0 *ASMG LISTING OF ASSEMBLY OF 045/1 WITH ASSEMBLER UPDATE TO CHANGE SOURCE FOR NO SLT AND SIMPLEX. THIS LISTING CORRESPONDS TO THE SIMPLEX OBJECT DECK (468/2). COPY TO A PRINTER @MCC. 00045/7 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/8 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 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). SEE ALSO THE NOTE IN THE SUPERVISOR (045/1) COMMENTS ABOUT THE PATCHES IN THE PRIVILEDGED JOB PARAMETERS TABLE. 0 Referenced by comments of: 45/1, 468/1, 468/2 1 WED JUL 24/96 18:21:34 Page 12 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00046/2 CONFIG UU G # SEE COMP 045/2 UM MTA 00046/3 CONFIG OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00046/4 CONFIG LISTING P S0035 UMMPS 'SUPERVISOR LISTING TAPE' POSN=CONFIG.LISTING 2 D3T1 55 CONFIG.LISTING.P.4 1 SEQ 133 100 PAGE UM MTA JULY 30, 1973 23:26.10 0 *ASMG LISTING OF ASSEMBLY OF 46/1. COPY TO PRINTER @MCC, E.G. $COPY *T* *PRINT*@MCC. THIS IS A LISTING OF THE DUPLEX VERSION OF CONFIG. THE CHANGES ARE EXTREMELY MINOR AND ONLY IN THE PSA. 0 Referenced by comments of: 468/2 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 1 WED JUL 24/96 18:21:34 Page 13 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 IS RESTORED AFTER BEING UPDATED BY 1. THE FILE IS THEN UNLOCKED WHICH ALLOWS ANY WAITING USERS TO SIGNOFF. THE INDIVIDUAL TAPE IS UNLOADED AND THE OPERATOR IS ASKED TO ENTER THE NAME OF THE TAPE DRIVE WHERE THE MONTHLY TAPE IS MOUNTED (RING IN). THE MONTHLY TAPE SHOULD HAVE "STATM " AS THE VOLUME NAME. THE TAPE WILL BE SPACED OUT TO THE FILE NUMBER SPECIFIED BY LINE 2 OF *STATISTICS AND THE VM COPY OF THE DATA WILL BE ADDED TO THE MONTHLY TAPE AS A NEW FILE. IF THE MONTHLY TAPE HAS NO FILES ON IT (FRESHLY LABELED), THE PROGRAM WILL ASK THE OPERATOR IF HE IS BEGINNING A NEW MONTHLY TAPE AND IF HE REPLIES "YES" THEN IT RESETS LINE 2 OF *STATISTICS. 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 1 WED JUL 24/96 18:21:34 Page 14 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00051/13 *WATFOR MAIN S # (OBSOLETE) D2T2 023 UM 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 WED JUL 24/96 18:21:34 Page 15 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/21 AND 482/22) 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 WED JUL 24/96 18:21:34 Page 16 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00064/1 *OBJSCAN SA G OBJS W062:SCAN D3T1 72 OBJSCAN..SA.1 1 SEQ 80 19 PAGE UM TIFFANY JULY 30, 1973 23:30.19 0 SCANS OBJECT DECKS (OR FILES) AND PRINTS ENTRY POINTS AND LINE NUMBER RANGES FOR EACH MODULE ENCOUNTERED. 00064/2 *OBJSCAN OE G *OBJSCAN D3T1 73 OBJSCAN..OE.2 1 SEQ 4604 2 PAGE UM TIFFANY JULY 30, 1973 23:30.24 00065 *ASMERR S # (OBSOLETE) D2T1 323 UM 00066/1 *ASMG ASMGASM SA G S0603 ASMGOS POSN=ASMGASM 1 D3T1 74 ASMG.ASMGASM.SA.1 1 SEQ 80 13 PAGE UM MTA JULY 30, 1973 23:31.18 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 S0603 ASMGOS POSN=ASMGBUFF 2 D3T1 75 ASMG.ASMGBUFF.SA.2 1 SEQ 80 50 PAGE UM MTA JULY 30, 1973 23:31.24 00066/3 *ASMG ASMGFD SA G S0603 ASMGOS POSN=ASMGFD 3 D3T1 76 ASMG.ASMGFD.SA.3 1 SEQ 80 20 PAGE UM MTA JULY 30, 1973 23:31.31 00066/4 *ASMG ASMGFEX SA G S0603 ASMGOS POSN=ASMGFEX 4 D3T1 77 ASMG.ASMGFEX.SA.4 1 SEQ 80 19 PAGE UM MTA JULY 30, 1973 23:31.36 00066/5 *ASMG ASMGFI SA G S0603 ASMGOS POSN=ASMGFI 5 D3T1 78 ASMG.ASMGFI.SA.5 1 SEQ 80 13 PAGE UM MTA JULY 30, 1973 23:31.39 00066/6 *ASMG ASMGFPP SA G S0603 ASMGOS POSN=ASMGFPP 6 D3T1 79 ASMG.ASMGFPP.SA.6 1 SEQ 80 27 PAGE UM MTA JULY 30, 1973 23:31.44 00066/7 *ASMG ASMGF1 SA G S0603 ASMGOS POSN=ASMGF1 7 D3T1 80 ASMG.ASMGF1.SA.7 1 SEQ 80 36 PAGE UM MTA JULY 30, 1973 23:31.50 00066/8 *ASMG ASMGF2 SA G S0603 ASMGOS POSN=ASMGF2 8 D3T1 81 ASMG.ASMGF2.SA.8 1 SEQ 80 84 PAGE UM MTA JULY 30, 1973 23:32.00 00066/9 *ASMG ASMGF2A SA G S0603 ASMGOS POSN=ASMGF2A 9 D3T1 82 ASMG.ASMGF2A.SA.9 1 SEQ 80 59 PAGE UM MTA JULY 30, 1973 23:32.12 00066/10 *ASMG ASMGF3 SA G S0603 ASMGOS POSN=ASMGF3 10 D3T1 83 ASMG.ASMGF3.SA.10 1 SEQ 80 61 PAGE UM MTA JULY 30, 1973 23:32.22 00066/11 *ASMG ASMGF7C SA G S0603 ASMGOS POSN=ASMGF7C 11 D3T1 84 ASMG.ASMGF7C.SA.11 1 SEQ 80 25 PAGE UM MTA JULY 30, 1973 23:32.28 00066/12 *ASMG ASMGF7D SA G S0603 ASMGOS POSN=ASMGF7D 12 D3T1 85 ASMG.ASMGF7D.SA.12 1 SEQ 80 25 PAGE UM MTA JULY 30, 1973 23:32.33 1 WED JUL 24/96 18:21:34 Page 17 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/13 *ASMG ASMGF7E SA G S0603 ASMGOS POSN=ASMGF7E 13 D3T1 86 ASMG.ASMGF7E.SA.13 1 SEQ 80 26 PAGE UM MTA JULY 30, 1973 23:32.37 00066/14 *ASMG ASMGF7G SA G S0603 ASMGOS POSN=ASMGF7G 14 D3T1 87 ASMG.ASMGF7G.SA.14 1 SEQ 80 3 PAGE UM MTA JULY 30, 1973 23:32.40 00066/15 *ASMG ASMGF7I SA G S0603 ASMGOS POSN=ASMGF7I 15 D3T1 88 ASMG.ASMGF7I.SA.15 1 SEQ 80 15 PAGE UM MTA JULY 30, 1973 23:32.43 00066/16 *ASMG ASMGF7L SA G S0603 ASMGOS POSN=ASMGF7L 16 D3T1 89 ASMG.ASMGF7L.SA.16 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:32.45 00066/17 *ASMG ASMGF7N SA G S0603 ASMGOS POSN=ASMGF7N 17 D3T1 90 ASMG.ASMGF7N.SA.17 1 SEQ 80 13 PAGE UM MTA JULY 30, 1973 23:32.48 00066/18 *ASMG ASMGF7S SA G S0603 ASMGOS POSN=ASMGF7S 18 D3T1 91 ASMG.ASMGF7S.SA.18 1 SEQ 80 8 PAGE UM MTA JULY 30, 1973 23:32.50 00066/19 *ASMG ASMGF7V SA G S0603 ASMGOS POSN=ASMGF7V 19 D3T1 92 ASMG.ASMGF7V.SA.19 1 SEQ 80 19 PAGE UM MTA JULY 30, 1973 23:32.53 00066/20 *ASMG ASMGF7X SA G S0603 ASMGOS POSN=ASMGF7X 20 D3T1 93 ASMG.ASMGF7X.SA.20 1 SEQ 80 28 PAGE UM MTA JULY 30, 1973 23:32.57 00066/21 *ASMG ASMGF8A SA G S0603 ASMGOS POSN=ASMGF8A 21 D3T1 94 ASMG.ASMGF8A.SA.21 1 SEQ 80 21 PAGE UM MTA JULY 30, 1973 23:33.01 00066/22 *ASMG ASMGF8C SA G S0603 ASMGOS POSN=ASMGF8C 22 D3T1 95 ASMG.ASMGF8C.SA.22 1 SEQ 80 6 PAGE UM MTA JULY 30, 1973 23:33.03 00066/23 *ASMG ASMGF8D SA G S0603 ASMGOS POSN=ASMGF8D 23 D3T1 96 ASMG.ASMGF8D.SA.23 1 SEQ 80 23 PAGE UM MTA JULY 30, 1973 23:33.07 00066/24 *ASMG ASMGF8I SA G S0603 ASMGOS POSN=ASMGF8I 24 D3T1 97 ASMG.ASMGF8I.SA.24 1 SEQ 80 16 PAGE UM MTA JULY 30, 1973 23:33.10 00066/25 *ASMG ASMGF8L SA G S0603 ASMGOS POSN=ASMGF8L 25 D3T1 98 ASMG.ASMGF8L.SA.25 1 SEQ 80 3 PAGE UM MTA JULY 30, 1973 23:33.12 00066/26 *ASMG ASMGF8M SA G S0603 ASMGOS POSN=ASMGF8M 26 D3T1 99 ASMG.ASMGF8M.SA.26 1 SEQ 80 26 PAGE UM MTA JULY 30, 1973 23:33.16 00066/27 *ASMG ASMGF8N SA G S0603 ASMGOS POSN=ASMGF8N 27 D3T1 100 ASMG.ASMGF8N.SA.27 1 SEQ 80 13 PAGE UM MTA JULY 30, 1973 23:33.19 00066/28 *ASMG ASMGF8P SA G S0603 ASMGOS POSN=ASMGF8P 28 D3T1 101 ASMG.ASMGF8P.SA.28 1 SEQ 80 20 PAGE UM MTA JULY 30, 1973 23:33.23 00066/29 *ASMG ASMGF8S SA G S0603 ASMGOS POSN=ASMGF8S 29 D3T1 102 ASMG.ASMGF8S.SA.29 1 SEQ 80 3 PAGE UM MTA JULY 30, 1973 23:33.25 1 WED JUL 24/96 18:21:34 Page 18 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/30 *ASMG ASMGF8V SA G S0603 ASMGOS POSN=ASMGF8V 30 D3T1 103 ASMG.ASMGF8V.SA.30 1 SEQ 80 19 PAGE UM MTA JULY 30, 1973 23:33.28 00066/31 *ASMG ASMGIS00 SA G S0603 ASMGOS POSN=ASMGIS00 31 D3T1 104 ASMG.ASMGIS00.SA.31 1 SEQ 80 10 PAGE UM MTA JULY 30, 1973 23:33.30 00066/32 *ASMG ASMGIS01 SA G S0603 ASMGOS POSN=ASMGIS01 32 D3T1 105 ASMG.ASMGIS01.SA.32 1 SEQ 80 11 PAGE UM MTA JULY 30, 1973 23:33.33 00066/33 *ASMG ASMGIS09 SA G S0603 ASMGOS POSN=ASMGIS09 33 D3T1 106 ASMG.ASMGIS09.SA.33 1 SEQ 80 9 PAGE UM MTA JULY 30, 1973 23:33.35 00066/34 *ASMG ASMGIS20 SA G S0603 ASMGOS POSN=ASMGIS20 34 D3T1 107 ASMG.ASMGIS20.SA.34 1 SEQ 80 5 PAGE UM MTA JULY 30, 1973 23:33.37 00066/35 *ASMG ASMGIS44 SA G S0603 ASMGOS POSN=ASMGIS44 35 D3T1 108 ASMG.ASMGIS44.SA.35 1 SEQ 80 9 PAGE UM MTA JULY 30, 1973 23:33.40 00066/36 *ASMG ASMGIS67 SA G S0603 ASMGOS POSN=ASMGIS67 36 D3T1 109 ASMG.ASMGIS67.SA.36 1 SEQ 80 11 PAGE UM MTA JULY 30, 1973 23:33.42 00066/37 *ASMG ASMGIS85 SA G S0603 ASMGOS POSN=ASMGIS85 37 D3T1 110 ASMG.ASMGIS85.SA.37 1 SEQ 80 10 PAGE UM MTA JULY 30, 1973 23:33.44 00066/38 *ASMG ASMGMAC SA G S0603 ASMGOS POSN=ASMGMAC 38 D3T1 111 ASMG.ASMGMAC.SA.38 1 SEQ 80 8 PAGE UM MTA JULY 30, 1973 23:33.46 00066/39 *ASMG ASMGRTA SA G S0603 ASMGOS POSN=ASMGRTA 39 D3T1 112 ASMG.ASMGRTA.SA.39 1 SEQ 80 5 PAGE UM MTA JULY 30, 1973 23:33.48 00066/40 *ASMG ASMGUP SA G S0603 ASMGOS POSN=ASMGUP 40 D3T1 113 ASMG.ASMGUP.SA.40 1 SEQ 80 18 PAGE UM MTA JULY 30, 1973 23:33.51 00066/41 *ASMG ASMGSET SA G S0603 ASMGOS POSN=ASMGSET 41 D3T1 114 ASMG.ASMGSET.SA.41 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:33.53 00066/42 *ASMG COMMENCE SM G S0603 ASMGOS POSN=COMMENCE 42 D3T1 115 ASMG.COMMENCE.SM.42 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:33.55 00066/43 *ASMG COMMON SM G S0603 ASMGOS POSN=COMMON 43 D3T1 116 ASMG.COMMON.SM.43 1 SEQ 80 14 PAGE UM MTA JULY 30, 1973 23:33.58 00066/44 *ASMG DCBOUT SM G S0603 ASMGOS POSN=DCBOUT 44 D3T1 117 ASMG.DCBOUT.SM.44 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.00 00066/45 *ASMG DEFCHAR SM G S0603 ASMGOS POSN=DEFCHAR 45 D3T1 118 ASMG.DEFCHAR.SM.45 1 SEQ 80 3 PAGE UM MTA JULY 30, 1973 23:34.02 00066/46 *ASMG ENTRYOUT SM G S0603 ASMGOS POSN=ENTRYOUT 46 D3T1 119 ASMG.ENTRYOUT.SM.46 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.03 1 WED JUL 24/96 18:21:34 Page 19 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/47 *ASMG FDIMEN SM G S0603 ASMGOS POSN=FDIMEN 47 D3T1 120 ASMG.FDIMEN.SM.47 1 SEQ 80 9 PAGE UM MTA JULY 30, 1973 23:34.06 00066/48 *ASMG FINISH SM G S0603 ASMGOS POSN=FINISH 48 D3T1 121 ASMG.FINISH.SM.48 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.08 00066/49 *ASMG INST SM G S0603 ASMGOS POSN=INST 49 D3T1 122 ASMG.INST.SM.49 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:34.10 00066/50 *ASMG INSTSET SM G S0603 ASMGOS POSN=INSTSET 50 D3T1 123 ASMG.INSTSET.SM.50 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:34.12 00066/51 *ASMG LIST1EQU SM G S0603 ASMGOS POSN=LIST1EQU 51 D3T1 124 ASMG.LIST1EQU.SM.51 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.14 00066/52 *ASMG MESSAGE SM G S0603 ASMGOS POSN=MESSAGE 52 D3T1 125 ASMG.MESSAGE.SM.52 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.16 00066/53 *ASMG PRINTOUT SM G S0603 ASMGOS POSN=PRINTOUT 53 D3T1 126 ASMG.PRINTOUT.SM.53 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.18 00066/54 *ASMG PRNT SM G S0603 ASMGOS POSN=PRNT 54 D3T1 127 ASMG.PRNT.SM.54 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.20 00066/55 *ASMG RD SM G S0603 ASMGOS POSN=RD 55 D3T1 128 ASMG.RD.SM.55 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.22 00066/56 *ASMG SETR SM G S0603 ASMGOS POSN=SETR 56 D3T1 129 ASMG.SETR.SM.56 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.24 00066/57 *ASMG SNAPOUT SM G S0603 ASMGOS POSN=SNAPOUT 57 D3T1 130 ASMG.SNAPOUT.SM.57 1 SEQ 80 2 PAGE UM MTA JULY 30, 1973 23:34.26 00066/58 *ASMG TIMEOUT SM G S0603 ASMGOS POSN=TIMEOUT 58 D3T1 131 ASMG.TIMEOUT.SM.58 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.28 00066/59 *ASMG TRANSLAT SM G S0603 ASMGOS POSN=TRANSLAT 59 D3T1 132 ASMG.TRANSLAT.SM.59 1 SEQ 80 1 PAGE UM MTA JULY 30, 1973 23:34.30 00066/60 *ASMG ASMGUPD UU G S0603 ASMGOS POSN=ASMGUPD 60 D3T1 133 ASMG.ASMGUPD.UU.60 1 SEQ 80 50 PAGE UM MTA JULY 30, 1973 23:34.37 0 UPDATE DECK TO CONVERT ALL OF THE OS VERSION OF ASMG (066/1 THROUGH 066/59) TO RUN IN MTS. 0 Referenced by comments of: 66/1, 66/61 00066/61 *ASMG ASMGJOB C S0603 ASMGOS POSN=ASMGJOB 61 D3T1 134 ASMG.ASMGJOB.C.61 1 SEQ 112 1 PAGE UM MTA JULY 30, 1973 23:34.41 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/60) ASMGSET - EMPTIED AND WRITTEN WITH A COPY SECTION ASMGMACROS - EMPTIED AND WRITTEN WITH A MACROS LIBRARY 1 WED JUL 24/96 18:21:34 Page 20 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 S603 VOL=ASMGOS - MASTER TAPE, CONTAINS CURRENT OS VERSION OF ASMG (066/1 THROUGH 066/59) ***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. 00066/62 *ASMG *ASMG OE G *ASMG D3T1 135 ASMG.*ASMG.OE.62 1 SEQ 6873 3 PAGE UM MTA JULY 30, 1973 23:35.09 0 THE OBJECT FOR ASMG IS STORED IN 15 SEQUENTIAL, PUBLIC FILES IN MTS (066/62 THROUGH 066/76). THE FILES AND THEIR CONTENTS BY MODULE NAME ARE: FILE ENTRY POINT CONTENTS ---- ----------- -------- *ASMG ASMGASM ASMGASM,ASMGBUFF *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 *ASMGIS01 ASMGIS01 *ASMGIS09 ASMGIS09 *ASMGIS20 ASMGIS20 *ASMGIS44 ASMGIS44 *ASMGIS67 ASMGIS67 *ASMGRTA ASMGRTA ASMGRTA *ASMGUP ASMGUP ASMGUP 00066/63 *ASMG *ASMBLR OE G # (SAME AS *ASMG) UM MTA 00066/64 *ASMG *ASMGFPP OE G *ASMGFPP D3T1 136 ASMG.*ASMGFPP.OE.64 1 SEQ 12096 5 PAGE UM MTA JULY 30, 1973 23:35.10 00066/65 *ASMG *ASMGF2 OE G *ASMGF2 D3T1 137 ASMG.*ASMGF2.OE.65 1 SEQ 17095 6 PAGE UM MTA JULY 30, 1973 23:35.12 00066/66 *ASMG *ASMGF3 OE G *ASMGF3 D3T1 138 ASMG.*ASMGF3.OE.66 1 SEQ 8028 3 PAGE UM MTA JULY 30, 1973 23:35.14 00066/67 *ASMG *ASMGF7 OE G *ASMGF7 D3T1 139 ASMG.*ASMGF7.OE.67 1 SEQ 14976 6 PAGE UM MTA JULY 30, 1973 23:35.16 00066/68 *ASMG *ASMGF8 OE G *ASMGF8 D3T1 140 ASMG.*ASMGF8.OE.68 1 SEQ 9176 6 PAGE UM MTA JULY 30, 1973 23:35.19 1 WED JUL 24/96 18:21:34 Page 21 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00066/69 *ASMG *ASMGIS00 OE G *ASMGIS00 D3T1 141 ASMG.*ASMGIS00.OE.69 1 SEQ 1015 1 PAGE UM MTA JULY 30, 1973 23:35.21 00066/70 *ASMG *ASMGIS01 OE G *ASMGIS01 D3T1 142 ASMG.*ASMGIS01.OE.70 1 SEQ 1407 1 PAGE UM MTA JULY 30, 1973 23:35.23 00066/71 *ASMG *ASMGIS09 OE G *ASMGIS09 D3T1 143 ASMG.*ASMGIS09.OE.71 1 SEQ 792 1 PAGE UM MTA JULY 30, 1973 23:35.25 00066/72 *ASMG *ASMGIS20 OE G *ASMGIS20 D3T1 144 ASMG.*ASMGIS20.OE.72 1 SEQ 394 1 PAGE UM MTA JULY 30, 1973 23:35.27 00066/73 *ASMG *ASMGIS44 OE G *ASMGIS44 D3T1 145 ASMG.*ASMGIS44.OE.73 1 SEQ 550 1 PAGE UM MTA JULY 30, 1973 23:35.29 00066/74 *ASMG *ASMGIS67 OE G *ASMGIS67 D3T1 146 ASMG.*ASMGIS67.OE.74 1 SEQ 2141 1 PAGE UM MTA JULY 30, 1973 23:35.32 00066/75 *ASMG *ASMGRTA OE G *ASMGRTA D3T1 147 ASMG.*ASMGRTA.OE.75 1 SEQ 1288 1 PAGE UM MTA JULY 30, 1973 23:35.34 00066/76 *ASMG *ASMGUP OE G *ASMGUP D3T1 148 ASMG.*ASMGUP.OE.76 1 SEQ 3618 1 PAGE UM MTA JULY 30, 1973 23:35.36 00066/77 *ASMG USER'S GUIDE P S0426 ASMG25 POSN=ASMG.GUIDE.USERS 3 D3T1 149 ASMG.USER'S_GUIDE.P.77 1 SEQ 133 96 PAGE UM MTA JULY 30, 1973 23:37.05 0 WATERLOO USER'S GUIDE FOR OS/360 ASMG. COPY TO A TN PRINTER @MCC. 00066/78 *ASMG MODS WRITEUP WF S0622 D3MISC FSNAME=M171 14 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/79 *ASMG IMPLEMENTATION P S0426 ASMG25 POSN=ASMG.GUIDE.IMPL 4 D3T1 151 ASMG.IMPLEMENTATION.P.79 1 SEQ 133 33 PAGE UM MTA JULY 30, 1973 23:37.32 0 IMPLEMENTATION GUIDE WHICH DESCRIBES OS/360 ASMG. COPY TO A TN PRINTER @MCC. 00067/1 FILE SAVE MAIN SA FSAV RSTR:FILESAVE(1000) D3T1 152 FILE_SAVE.MAIN.SA.1 1 LINE 80 28 PAGE UM BERSTIS JULY 30, 1973 23:37.36 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), 1 WED JUL 24/96 18:21:34 Page 22 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 COPY:PATEQU (482/43), AND COPY:DSKDSCT (482/42). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 92/1, 502/11 00067/2 FILE SAVE SAVEFILE SA 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 00067/3 FILE SAVE TAPEOUT SA 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 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. 00067/5 FILE SAVE OBJECT OE RSTR:FILESAVEOBJ D3T1 156 FILE_SAVE.OBJECT.O.5 1 SEQ 7254 4 PAGE UM BERSTIS JULY 30, 1973 23:37.53 00067/6 FILE SAVE SVSTART C RSTR:SVSTART D3T1 157 FILE_SAVE.SVSTART.C.6 1 LINE 42 1 PAGE UM BERSTIS JULY 30, 1973 23:37.56 0 COMMAND AND DATA FILE WHICH IS SOURCED TO BY *SVW (067/8) AND *SVD (067/13). THIS FILE STARTS UP THE SEVERAL (2 OR 4) STREAMS WHICH ARE USED FOR THE SHORT (PARTIAL) OR LONG (FULL) SAVE. 00067/7 FILE SAVE FSS C RSTR:FSS D3T1 158 FILE_SAVE.FSS.C.7 1 LINE 100 1 PAGE UM BERSTIS JULY 30, 1973 23:37.57 0 COMMAND AND DATA FILE SOURCED TO BY THE VARIOUS STREAMS (*SV1, *SV2, *SV3, *SV4, *SVA, 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 *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 1 WED JUL 24/96 18:21:34 Page 23 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 *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. 00067/10 FILE SAVE WKLY STREAM #2 C *SV2 D3T1 161 FILE_SAVE.WKLY_STREAM_#2.C.10 1 LINE 19 1 PAGE UM BERSTIS JULY 30, 1973 23:38.04 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #2. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #2. 00067/11 FILE SAVE WKLY STREAM #3 C *SV3 D3T1 162 FILE_SAVE.WKLY_STREAM_#3.C.11 1 LINE 19 1 PAGE UM BERSTIS JULY 30, 1973 23:38.07 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #3. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #3. 00067/12 FILE SAVE WKLY STREAM #4 C *SV4 D3T1 163 FILE_SAVE.WKLY_STREAM_#4.C.12 1 LINE 19 1 PAGE UM BERSTIS JULY 30, 1973 23:38.09 0 COMMAND FILE FOR WEEKLY (FULL) FILESAVE STREAM #4. THIS FILE IS AUTOMATICALLY INVOKED BY *SVW, BUT MAY BE USED TO RESTART STREAM #4. 00067/13 FILE SAVE DAILY START C *SVD D3T1 164 FILE_SAVE.DAILY_START.C.13 1 LINE 23 1 PAGE UM BERSTIS JULY 30, 1973 23:38.12 0 COMMAND FILE USED BY THE SYSTEM OPERATOR TO START THE DAILY (PARTIAL) FILESAVE PROCESS. ALL USERS SHOULD BE OFF THE SYSTEM WHEN THIS IS RUN. THIS FILE WILL SOURCE TO RSTR:SVSTART WHICH WILL START UP 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 *SVA D3T1 165 FILE_SAVE.DAILY_STREAM_1.C.14 1 LINE 20 1 PAGE UM BERSTIS JULY 30, 1973 23:38.14 0 THIS FILE IS NOT USED NORMALLY, BUT CAN BE USED IF IT BECOMES NECESSARY TO RESTART DAILY (PARTIAL) STREAM #1. 00067/15 FILE SAVE DAILY STREAM 2 C *SVB D3T1 166 FILE_SAVE.DAILY_STREAM_2.C.15 1 LINE 20 1 PAGE UM BERSTIS JULY 30, 1973 23:38.16 0 COMMAND FILE FOR DAILY (PARTIAL) FILESAVE STREAM #2. THIS FILE IS AUTOMATICALLY INVOKED BY *SVD, BUT MAY BE USED TO RESTART STREAM #2. 1 WED JUL 24/96 18:21:34 Page 24 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 00071/1 LISTSTAT SA G LSTA WSG:LISTSTAT(1,999) D3T1 168 LISTSTAT..SA.1 1 LINE 80 13 PAGE UM WSG JULY 30, 1973 23:38.24 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) D3T1 169 LISTSTAT..OC.2 1 LINE 80 3 PAGE UM WSG JULY 30, 1973 23:38.29 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). 1 WED JUL 24/96 18:21:34 Page 25 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 1 WED JUL 24/96 18:21:34 Page 26 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T1 182 INIT_JOB..SA.1 1 LINE 80 2 PAGE UM MTA JULY 30, 1973 23:40.13 0 AFTER IPL, THE "INIT" JOB IS AUTOMATICALLY STARTED (WITHOUT AN OPERATOR REQUEST). AFTER FINDING THE MTS DISK CATALOGS, THIS JOB TURNS OVER THE REMAINING WORK OF INITIALIZING THE SYSTEM TO MTS BY USING THE SVC STRTJB TO START "MTS *INIT" (SEE COMP 097). 00080/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 SMITH 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 SMITH JULY 30, 1973 23:42.24 1 WED JUL 24/96 18:21:34 Page 27 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00084/3 ARU *SPEAK D G *SPEAK D3T1 189 ARU.*SPEAK.D.3 1 LINE 255 60 PAGE UM SMITH 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 SMITH JULY 30, 1973 23:42.34 0 PUBLIC "TEXT INSERTION" FILE FOR *ARURTN (084/1) 0 Referenced by comments of: 84/1 00084/5 ARU DCVD SUBR SA G # (PART OF 084/1) D2T1 420 UM SMITH 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 SMITH 00084/7 ARU DCVC SUBR SA G # (PART OF 084/1) D2T1 419 UM SMITH 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 SMITH 00084/9 ARU DCVG SUBR SA G # (PART OF 084/1) UM SMITH 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 SMITH 00084/11 ARU *ARUVOC D G *ARUVOC D3T1 191 ARU.*ARUVOC.D.11 1 LINE 102 11 PAGE UM SMITH JULY 30, 1973 23:42.36 0 LISTING OF ARU VOCABULARY (*SPEAK) SUITABLE FOR PRINTING. 1 WED JUL 24/96 18:21:34 Page 28 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00084/12 ARU *CREVOC SA G # (PART OF 084/1) D2T2 207 UM SMITH 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 SMITH JULY 30, 1973 23:42.39 0 CALLS THE *LIBRARY SUBROUTINES DCVD (084/5), DCVC (084/7), AND DCVG (084/9). ENDS WITH A "$CONTINUE WITH DBS:LM1" WHICH PRINTS MESSAGES (SEE 303/6). 00084/14 ARU *VLIST SA G # (PART OF 084/1) D2T2 208 UM SMITH 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 SMITH 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 SMITH 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 SMITH 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 SMITH 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 SMITH 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 SMITH JULY 30, 1973 23:43.05 0 AN ARU VOCABULARY THAT DEFINES TWO OCTAVES OF "MUSICAL" TONES. 00085 DRUM INIT # (SEE COMP 97/8 AND 97/9) UM DWB 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). 1 WED JUL 24/96 18:21:34 Page 29 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 COPY:LLMPSEQU SA G S0622 D3MISC FSNAME=LLMPSEQU 43 D3T1 201 LLMPSEQU.COPY:LLMPSEQU.SA. 1 LINE 80 11 PAGE UM MTA JULY 27, 1973 21:15.33 0 COPY SECTION FOR DEFINITIONS OF JOB TABLE, DEVICE LIST, DEVICE TABLE, ETC. WHICH IS COPIED BY MANY PROGRAMS. ITS NAME COMES STRAIGHT FROM ANCIENT HISTORY (LINCOLN LABS MULTI-PROGRAMMING SUPERVISOR EQUALITIES). THE LINE NUMBERS IN THIS FILE ARE IMPORTANT SINCE SOME PROGRAMS COPY IT STARTING AT LINE 100. 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, 441/1, 447/1, 447/3, 447/5, 447/7, 462/1, 464/1, 487/1, 531/1, 531/4, 531/8, 539/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 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 S0622 D3MISC FSNAME=DOUBLE.S 46 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 FMT0 RSTR:RSTFMT0 D3T1 206 FILE_RESTORE.RSTFMT0.SA.1 1 LINE 80 42 PAGE UM BERSTIS JULY 30, 1973 23:43.37 0 MAIN PROGRAM TO RESTORE FILES FROM TAPES PRODUCED BY FILESAVE (067) OR DEADFILES (502). ASSEMBLE WITH *SYSMAC. NOTE: NORMALLY RESTORE TRIES TO RESTORE FILES TO THE SAME VOLUME THEY WERE ON WHEN SAVED. HOWEVER, SOMETIMES IT IS DESIRABLE TO "SPREAD" FILES AROUND, E.G. ALL OF THE FILES ON THE DISTRIBUTION RESTORE PACK (TSS DUMP/RESTORE TAPE) ARE ON VOLUME MTS001 SINCE THE DISTRIBUTED "STARTER" SYSTEM HAS ONLY ONE PACK. HOWEVER, ON A MULTI-PACK SYSTEM IT IS OBVIOUSLY UNDESIRABLE TO HAVE ALL OF THE IMPORTANT FILES ON THE SAME PACK. ONE WAY TO CORRECT THIS PROBLEM IS TO RUN A FULL FILESAVE AND RESTORE, HAVING FIRST PATCHED RESTORE (OR MODIFIED THE SOURCE) SO THAT IT DOES NOT ATTEMPT TO PUT FILES BACK WHERE THEY CAME FROM. THE FOLLOWING CHANGES TO THE 2 SOURCE COMPONENTS FOR RESTORE WILL DO THIS: 1 WED JUL 24/96 18:21:34 Page 30 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 IN RSTFMT0 (092/1) CHANGE LINE 578.000 AS FOLLOWS: MVC TMPVOL,OLDVOL <----AS DISTRIBUTED XC TMPVOL,TMPVOL <----MODIFICATION THE EQUIVALENT REP CARD IS REP 0008F8 01D705BAE1BAE1 IN RSTFMT1 (092/2) CHANGE LINE 188.000 AS FOLLOWS: MVC TMPVOL,OLDVOL <----AS DISTRIBUTED XC TMPVOL,TMPVOL <----MODIFICATION THE EQUIVALENT REP CARD IS REP 000206 01D705B0C5B0C5 0 Referenced by comments of: 92/1, 502/1 00092/2 FILE RESTORE RSTFMT1 SA 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. 0 Referenced by comments of: 92/1 00092/3 FILE RESTORE OC RSTR:RST D3T1 208 FILE_RESTORE..OC.3 1 LINE 80 14 PAGE UM BERSTIS JULY 30, 1973 23:43.52 00092/4 FILE RESTORE *RST C *RST D3T1 209 FILE_RESTORE.*RST.C.4 1 LINE 35 1 PAGE UM BERSTIS JULY 30, 1973 23:43.55 0 COMMAND FILE TO RUN FILE RESTORE PROGRAM (RSTR:RST). INVOKED BY ENTERING "MTS *RST" ON OPERATOR'S CONSOLE. 00094/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 *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. 1 WED JUL 24/96 18:21:34 Page 31 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *INIT(10), *INIT(20), *INIT(30), *INIT(40), AND *INIT(50) ARE INVOKED LATER BY ACCINITL IN INIT:INIT TO PRODUCE LISTS OF THE USER IDS WHICH WERE NOT PROPERLY SIGNED OFF WHEN THE SYSTEM LAST WENT DOWN (IF ANY) SO THAT THEY MAY BE "FIXED." 00097/2 INIT INIT:INITCMD C INIT:INITCMD D3T1 215 INIT.INIT:INITCMD.C.2 1 LINE 82 1 PAGE UM MTA JULY 30, 1973 23:44.17 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) THE CLEAN PROGRAM IS RUN TO DESTROY ANY SCRATCH FILES WHICH WERE LEFT AROUND WHEN THE SYSTEM LAST WENT DOWN. (9) THE INIT PROGRAM IS RUN. IT STARTS UP 5 (THE NUMBER OF AUXILIARY ACCOUNTING FILES) OTHER JOBS (MTS *INIT(10), MTS *INIT(20), ETC.) TO MAKE A LIST (IN 5 FILES) OF ALL OF THE USER IDS WHICH WERE IN USE (SIGNED-ON) WHEN THE SYSTEM LAST WENT DOWN. WHEN THE 5 FILES ARE COMPLETE, IT PRINTS "THE ACCOUNTING FILE IS AVAILABLE" ON THE OPERATORS CONSOLE AND BEGINS "FIXING" THE IDS. WHEN FINISHED, THE TOTAL NUMBER OF IDS FIXED IS PRINTED ON THE CONSOLE. NO BATCH JOBS SHOULD BE ALLOWED TO RUN (I.E. DON'T RELEASE EXECUTION) UNTIL THIS INFORMATION HAS PRINTED, SINCE IT IS POSSIBLE THAT SOME OF THE BATCH JOBS TO BE RUN WILL HAVE USER IDS WHICH ARE STILL BEING FIXED. IT IS OK TO BRING UP TERMINAL LINES AFTER THE "ACCOUNTING FILE AVAILABLE" MESSAGE PRINTS AND AFTER THE "SEGMENT 2 LOADED OK" MESSAGE PRINTS, BUT SOME TERMINAL USERS MAY NOT BE ABLE TO SIGNON UNTIL THEIR USER IDS HAVE BEEN FIXED. THESE USERS WILL GET A MESSAGE WHICH INDICATES THAT THEIR IDS ARE TEMPORARILY UNAVAILABLE. 0 Referenced by comments of: 559/1 00097/3 INIT INIT:INIT OC G S0027 DISTRB FSNAME=INIT D3T1 216 INIT.INIT:INIT.OC.3 1 LINE 80 6 PAGE UM ENGLE JULY 24, 1973 11:51.32 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 S0027 DISTRB FSNAME=INITCHK D3T1 217 INIT.INIT:INITCHK.SA.4 1 LINE 80 4 PAGE UM ENGLE JAN. 08, 1973 17:46.49 0 PROGRAM TO CHECK FOR REINITIALIZATION AND THAT THE OPERATOR HAS ENTERED A "RESONABLE" TIME AND DATE. COPIES GRDEF (104/58). 1 WED JUL 24/96 18:21:34 Page 32 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00097/5 INIT INIT:INITCHK OC G S0027 DISTRB FSNAME=ICHK D3T1 218 INIT.INIT:INITCHK.OC.5 1 LINE 80 2 DISK UM ENGLE JAN. 08, 1973 17:47.02 00097/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 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 D3T1 228 MOUNT..SA.1 1 LINE 80 62 PAGE UM WSG JULY 30, 1973 23:46.50 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 1 WED JUL 24/96 18:21:34 Page 33 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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). MOUNT USES A SUPERVISOR LOCK (CURRENTLY 13) TO INTERLOCK OPERATOR CONSOLE COMMUNICATION. 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). 0 Referenced by comments of: 447/1 00101/2 MOUNT *CLSMOUNT OC G WSG:MNTOBJ.D3 D3T1 229 MOUNT.*CLSMOUNT.OC.2 1 LINE 80 5 PAGE UM WSG JULY 30, 1973 23:47.02 0 OBJECT FOR MOUNT SUBROUTINE (MOUNT) AND CLS MOUNT (MOUNTCMD). NORMALLY THIS FILE 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. 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) D3T1 231 DISMOUNT..SA.1 1 LINE 80 5 PAGE UM WSG JULY 30, 1973 23:47.06 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). 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). 1 WED JUL 24/96 18:21:34 Page 34 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/1 ACCOUNTING ACCFORMAT SA G AFMT S0027 DISTRB FSNAME=ACCFORMAT D3T1 233 ACCOUNTING.ACCFORMAT.SA.1 1 SEQ 80 2 PAGE UM ENGLE FEB. 14, 1973 16:33.08 0 COMPONENT 104 CONTAINS THE SOURCE AND OBJECT FOR ALL OF 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 *PROJECTACCOUNT AMXM+GTFL+DIR+AIO+FLNM+AUPR+FIOC+TTRP *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+GTFL+TTRP+SYSDEFS 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. 0 Referenced by comments of: 104/1, 104/4, 104/6, 104/10, 104/12, 104/14, 104/16, 104/20, 104/24, 104/28, 104/39, 104/41, 104/49, 104/51, 104/66, 104/68, 104/73, 104/75, 104/77, 442/1, 502/1, 586/1 00104/2 ACCOUNTING ACCRATE SA G ARAT S0027 DISTRB FSNAME=ACCRATE D3T1 234 ACCOUNTING.ACCRATE.SA.2 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 12:24.02 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 D3T1 235 ACCOUNTING.ACCPROJFMT.SA.3 1 SEQ 80 1 PAGE UM ENGLE OCT. 03, 1972 12:24.41 0 COPIED UNDER THE NAME "ACCPROJFMT" TO GIVE THE FORMAT OF THE PROJECT FILE *PROJECT. 0 Referenced by comments of: 104/16, 104/20, 104/33, 104/41, 104/51, 500/18, 500/22 00104/4 ACCOUNTING ACCERROR SA G AERR S0027 DISTRB FSNAME=ACCERROR D3T1 236 ACCOUNTING.ACCERROR.SA.4 1 LINE 80 7 PAGE UM ENGLE OCT. 03, 1972 15:06.02 0 CHECKS ACCOUNTING RECORD FOR ERRORS (SUCH AS NEGATIVE NUMBERS). PART OF ACCERRORSCAN. COPIES ACCFORMAT (104/1). 1 WED JUL 24/96 18:21:34 Page 35 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/5 ACCOUNTING ACCERROR OC G S0027 DISTRB FSNAME=AERR D3T1 237 ACCOUNTING.ACCERROR.OC.5 1 LINE 80 2 DISK UM ENGLE OCT. 03, 1972 15:06.19 00104/6 ACCOUNTING ACCPRINT SA G APRT S0027 DISTRB FSNAME=ACCPRINT D3T1 238 ACCOUNTING.ACCPRINT.SA.6 1 LINE 80 9 PAGE UM ENGLE FEB. 14, 1973 16:47.35 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 D3T1 239 ACCOUNTING.ACCPRINT.OC.7 1 LINE 80 3 DISK UM ENGLE FEB. 14, 1973 16:47.56 00104/8 ACCOUNTING ACCLIST SA G ALST S0027 DISTRB FSNAME=ACCLIST D3T1 240 ACCOUNTING.ACCLIST.SA.8 1 LINE 80 4 PAGE UM ENGLE OCT. 05, 1972 16:22.45 0 READS THE ACCOUNTING FILE AND CALLS ACCLSTPR FOR EACH RECORD. 00104/9 ACCOUNTING ACCLIST OC G S0027 DISTRB FSNAME=ALST 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 D3T1 242 ACCOUNTING.ACCINITL.SA.10 1 LINE 80 6 PAGE UM ENGLE OCT. 03, 1972 15:19.12 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 D3T1 243 ACCOUNTING.ACCINITL.OC.11 1 LINE 80 2 DISK UM ENGLE OCT. 03, 1972 15:19.28 00104/12 ACCOUNTING STATUS SA G STAT S0027 DISTRB FSNAME=STATUS D3T1 244 ACCOUNTING.STATUS.SA.12 1 LINE 80 10 PAGE UM ENGLE OCT. 03, 1972 15:27.01 0 MAIN PROGRAM FOR *STATUS COPIES ACCFORMAT (104/1). 00104/13 ACCOUNTING STATUS OC G S0027 DISTRB FSNAME=STAT D3T1 245 ACCOUNTING.STATUS.OC.13 1 LINE 80 2 DISK UM ENGLE OCT. 03, 1972 15:28.39 0 Referenced by comments of: 129/2 00104/14 ACCOUNTING ACCRTUPD SA G ARTU S0027 DISTRB FSNAME=ACCRTUPD 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 S0027 DISTRB FSNAME=ARTU D3T1 247 ACCOUNTING.ACCRTUPD.OC.15 1 LINE 80 1 DISK UM ENGLE OCT. 03, 1972 15:50.00 1 WED JUL 24/96 18:21:34 Page 36 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/16 ACCOUNTING ACCMAINT SA G AMAT S0027 DISTRB FSNAME=ACCMAINT D3T1 248 ACCOUNTING.ACCMAINT.SA.16 1 LINE 80 52 PAGE UM ENGLE FEB. 14, 1973 16:46.11 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 D3T1 249 ACCOUNTING.ACCMAINT.OC.17 1 LINE 80 5 DISK UM ENGLE FEB. 14, 1973 16:47.12 00104/18 ACCOUNTING ACCIO SA G AIO S0027 DISTRB FSNAME=ACCIO 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 00104/19 ACCOUNTING ACCIO OC G S0027 DISTRB FSNAME=AIO 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, 499/1 00104/20 ACCOUNTING ACCMXMAT SA G AMXM S0027 DISTRB FSNAME=ACCMXMAT D3T1 252 ACCOUNTING.ACCMXMAT.SA.20 1 LINE 80 39 PAGE UM ENGLE MAY 09, 1973 13:51.12 0 ACCOUNTING MAXIMUM MAINTENANCE (MAIN PROGRAM FOR *PROJECTACCOUNT). COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/3). 00104/21 ACCOUNTING ACCMXMAT OC G S0027 DISTRB FSNAME=AMXM D3T1 253 ACCOUNTING.ACCMXMAT.OC.21 1 LINE 80 5 DISK UM ENGLE MAY 09, 1973 14:07.35 0 Referenced by comments of: 499/1 00104/22 ACCOUNTING ACCDSPLA SA G ADSP S0027 DISTRB FSNAME=ACCDSPLA 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 S0027 DISTRB FSNAME=ADSP 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 D3T1 256 ACCOUNTING.ACCSTRUP.SA.24 1 LINE 80 6 PAGE UM ENGLE OCT. 05, 1972 12:15.33 0 MAIN PROGRAM OF *ACCRESTORE - THE PROGRAM THAT *FIX RUNS. COPIES ACCFORMAT (104/1). 00104/25 ACCOUNTING ACCSTRUP OC G S0027 DISTRB FSNAME=ASTR D3T1 257 ACCOUNTING.ACCSTRUP.OC.25 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 12:15.44 0 OBJECT HAS REPS TO REMOVE DATA CELL FIELDS. 0 Referenced by comments of: 484/1 1 WED JUL 24/96 18:21:34 Page 37 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/26 ACCOUNTING ACCRDWRT SA G ARDW S0027 DISTRB FSNAME=ACCRDWRT 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/98 00104/27 ACCOUNTING ACCRDWRT OC G S0027 DISTRB FSNAME=ARDW D3T1 259 ACCOUNTING.ACCRDWRT.OC.27 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 12:20.35 00104/28 ACCOUNTING ACUSPRNT SA G AUPR S0027 DISTRB FSNAME=ACUSPRNT D3T1 260 ACCOUNTING.ACUSPRNT.SA.28 1 LINE 80 6 PAGE UM ENGLE OCT. 05, 1972 12:25.47 0 PRINT SUBROUTINE FOR *PROJECTACCOUNT COPIES ACCFORMAT (104/1). 00104/29 ACCOUNTING ACUSPRNT OC G S0027 DISTRB FSNAME=AUPR D3T1 261 ACCOUNTING.ACUSPRNT.OC.29 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 12:25.57 0 Referenced by comments of: 499/1 00104/30 ACCOUNTING ACCPRJMT SA G APMT S0027 DISTRB FSNAME=ACCPRJMT D3T1 262 ACCOUNTING.ACCPRJMT.SA.30 1 LINE 80 26 PAGE UM ENGLE OCT. 05, 1972 14:20.51 0 MAIN PROGRAM FOR PROJECTMAINT - THE PROGRAM THAT MAINTAINS *PROJECT. 00104/31 ACCOUNTING ACCPRJMT OC G S0027 DISTRB FSNAME=APMT D3T1 263 ACCOUNTING.ACCPRJMT.OC.31 1 LINE 80 3 DISK UM ENGLE OCT. 05, 1972 14:22.10 00104/32 ACCOUNTING ACCLIB OL S0027 DISTRB FSNAME=ACCLIB D3T1 264 ACCOUNTING.ACCLIB.OL.32 1 LINE 80 12 PAGE UM ENGLE JULY 24, 1973 11:51.07 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, AND TO FIX A BUG IN ACPRJPRT (104/33) WHICH ARE NOT (!!) FIXED IN THE SOURCE (SORRY). 0 Referenced by comments of: 104/33, 104/34 00104/33 ACCOUNTING ACPRJPRT SA G APPR S0027 DISTRB FSNAME=ACPRJPRT D3T1 265 ACCOUNTING.ACPRJPRT.SA.33 1 LINE 80 8 PAGE UM ENGLE OCT. 05, 1972 15:06.36 0 SUBROUTINE TO PRINT A RECORD FROM *PROJECT. COPIES ACCPROJFMT (104/3). THIS SOURCE FILE IS NOT QUITE CORRECT. THERE IS A PATCH IN ACCLIB (104/32) TO FIX IT. 0 Referenced by comments of: 104/32 1 WED JUL 24/96 18:21:34 Page 38 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/34 ACCOUNTING ACPRJPRT OC G S0027 DISTRB FSNAME=APPR D3T1 266 ACCOUNTING.ACPRJPRT.OC.34 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 15:06.52 0 THIS OBJECT DECK NEEDS A PATCH CARD WHICH IS IN ACCLIB (104/32). 00104/35 ACCOUNTING PRJLIST SA G APLS S0027 DISTRB FSNAME=PRJLIST 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. 00104/36 ACCOUNTING PRJLIST OC G S0027 DISTRB FSNAME=APLS D3T1 268 ACCOUNTING.PRJLIST.OC.36 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:13.55 00104/37 ACCOUNTING PRJDSPLA SA G APDS S0027 DISTRB FSNAME=PRJDSPLA 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 S0027 DISTRB FSNAME=APDS 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 S0027 DISTRB FSNAME=ACCPASWD D3T1 271 ACCOUNTING.ACCPASWD.SA.39 1 LINE 80 5 PAGE UM ENGLE OCT. 05, 1972 15:22.09 0 PROGRAM TO GENERATE A RANDOM PASSWORD FOR AN ACCOUNTING RECORD AND PRINT THE NEW PASSWORD PLUS THE DATE AND TIME THE PASSWORD WAS PREVIOUSLY SET. COPIES ACCFORMAT (104/1). 00104/40 ACCOUNTING ACCPASWD OC G S0027 DISTRB FSNAME=APSW D3T1 272 ACCOUNTING.ACCPASWD.OC.40 1 LINE 80 2 DISK UM ENGLE OCT. 05, 1972 15:22.23 00104/41 ACCOUNTING ACONSIST SA G ACNS S0027 DISTRB FSNAME=ACONSIST 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 D3T1 274 ACCOUNTING.ACONSIST.OC.42 1 LINE 80 2 DISK UM ENGLE JAN. 18, 1973 14:40.19 00104/43 ACCOUNTING FILENAME SA G FLNM S0027 DISTRB FSNAME=FILENAME 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 S0027 DISTRB FSNAME=FLNM D3T1 276 ACCOUNTING.FILENAME.OC.44 1 LINE 80 1 DISK UM ENGLE OCT. 05, 1972 15:37.58 0 Referenced by comments of: 499/1 00104/45 ACCOUNTING DIRECTRY SA G DIR S0027 DISTRB FSNAME=DIRECTRY 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. 1 WED JUL 24/96 18:21:34 Page 39 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/46 ACCOUNTING DIRECTRY OC G S0027 DISTRB FSNAME=DIR D3T1 278 ACCOUNTING.DIRECTRY.OC.46 1 LINE 80 2 DISK UM ENGLE JAN. 05, 1973 11:17.35 0 Referenced by comments of: 499/1 00104/47 ACCOUNTING DIRLIST SA G DLST S0027 DISTRB FSNAME=DIRLIST 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 S0027 DISTRB FSNAME=DLST 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 D3T1 281 ACCOUNTING.FILUPDAT.SA.49 1 LINE 80 5 PAGE UM ENGLE MAY 09, 1973 13:52.15 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 D3T1 282 ACCOUNTING.FILUPDAT.OC.50 1 LINE 80 2 DISK UM ENGLE MAY 09, 1973 13:52.25 00104/51 ACCOUNTING ACONVERT SA O ACON S0027 DISTRB FSNAME=ACONVERT D3T1 283 ACCOUNTING.ACONVERT.SA.51 1 LINE 80 5 PAGE UM ENGLE JAN. 05, 1973 11:29.05 0 PROGRAM TO CONVERT A DISTRIBUTION 2 ACCOUNTING FILE TO DISTRIBUTION 3. THIS PROGRAM (OR AN EQUIVALENT) MUST BE RUN SINCE DIST 3 MTS DEPENDS ON THE NEW FORMAT. SEE THE COMMENTS IN THE ASSEMBLY LISTING. COPIES ACCFORMAT (104/1) AND ACCPROJFMT (104/3). 00104/52 ACCOUNTING ACONVERT OC O S0027 DISTRB FSNAME=ACNV D3T1 284 ACCOUNTING.ACONVERT.OC.52 1 LINE 80 2 DISK UM ENGLE JAN. 05, 1973 11:29.18 00104/53 ACCOUNTING STAPRJPA SA O SPPA S0027 DISTRB FSNAME=STAPRJPA D3T1 285 ACCOUNTING.STAPRJPA.SA.53 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1973 17:04.58 0 PATCHED TXT RECORDS FOR ACCMXMAT USED IN ACC:STATPROJECT (104/55). 00104/54 ACCOUNTING STAPRJPA OC O S0027 DISTRB FSNAME=SPPA D3T1 286 ACCOUNTING.STAPRJPA.OC.54 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 17:05.24 00104/55 ACCOUNTING STAPRJCL SA G SPCL S0027 DISTRB FSNAME=STAPRJCL D3T1 287 ACCOUNTING.STAPRJCL.SA.55 1 LINE 80 1 PAGE UM ENGLE JAN. 09, 1973 17:00.59 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 D3T1 288 ACCOUNTING.STAPRJCL.OC.56 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 17:01.11 1 WED JUL 24/96 18:21:34 Page 40 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/57 ACCOUNTING STAPROJECT OC G S0027 DISTRB FSNAME=STAPROJECT D3T1 289 ACCOUNTING.STAPROJECT.OC.57 1 LINE 80 4 DISK UM ENGLE JAN. 09, 1973 17:05.42 0 PROGRAM TO PRINT "STATUS PROJECT" (AS IN *PROJECTACCOUNT) FOR ANY GIVEN PROJECT. CONTAINS A "$CONTINUE WITH ACC:ACCLIB" RECORD 00104/58 ACCOUNTING GRDEF SA G GRDF S0027 DISTRB FSNAME=GRDEF 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/83, 104/87, 586/1 00104/59 ACCOUNTING WKDAY SA G WKDA S0027 DISTRB FSNAME=WKDAY 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). 00104/60 ACCOUNTING WKDAY OC G S0027 DISTRB FSNAME=WKDA 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 S0027 DISTRB FSNAME=DIRDSPLA 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 S0027 DISTRB FSNAME=DDSP 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 S0027 DISTRB FSNAME=DIRPRINT 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 S0027 DISTRB FSNAME=DPRT 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 D3T1 297 ACCOUNTING.ACCFLUPD.SA.66 1 LINE 80 6 PAGE UM ENGLE JAN. 08, 1973 17:49.07 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 D3T1 298 ACCOUNTING.ACCFLUPD.OC.67 1 LINE 80 1 DISK UM ENGLE JAN. 08, 1973 17:49.16 0 Referenced by comments of: 484/1 1 WED JUL 24/96 18:21:34 Page 41 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/68 ACCOUNTING ACCINSCN SA G AINS S0027 DISTRB FSNAME=ACCINSCN 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 D3T1 300 ACCOUNTING.ACCINSCN.OC.69 1 LINE 80 2 DISK UM ENGLE JAN. 08, 1973 17:52.03 00104/70 ACCOUNTING CURSIG SA G CSIG S0027 DISTRB FSNAME=CURSIG 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 S0027 DISTRB FSNAME=CSIG 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 00104/72 ACCOUNTING DEDFLFIX # (SEE COMP 502/13 AND 502/14) UM ENGLE 00104/73 ACCOUNTING ACCLSTPR SA G ALPR S0027 DISTRB FSNAME=ACCLSTPR D3T1 303 ACCOUNTING.ACCLSTPR.SA.73 1 LINE 80 7 PAGE UM ENGLE FEB. 14, 1973 16:49.46 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 D3T1 304 ACCOUNTING.ACCLSTPR.OC.74 1 LINE 80 2 DISK UM ENGLE FEB. 14, 1973 16:50.10 00104/75 ACCOUNTING ACCFLCHG SA G AFLC S0027 DISTRB FSNAME=ACCFLCHG D3T1 305 ACCOUNTING.ACCFLCHG.SA.75 1 LINE 80 4 PAGE UM ENGLE JAN. 08, 1973 18:05.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 D3T1 306 ACCOUNTING.ACCFLCHG.OC.76 1 LINE 80 1 DISK UM ENGLE JAN. 08, 1973 18:05.45 00104/77 ACCOUNTING APSWDISP SA G APWD S0027 DISTRB FSNAME=APSWDISP 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 D3T1 308 ACCOUNTING.APSWDISP.OC.78 1 LINE 80 1 DISK UM ENGLE JAN. 08, 1973 18:07.57 00104/79 ACCOUNTING ACCHEXPR SA O AXPR S0027 DISTRB FSNAME=ACCHEXPR 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. 1 WED JUL 24/96 18:21:34 Page 42 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00104/80 ACCOUNTING ACCHEXPR OC O S0027 DISTRB FSNAME=AXPR 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 S0027 DISTRB FSNAME=TIMETRP 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 S0027 DISTRB FSNAME=TTRP D3T1 312 ACCOUNTING.TIMETRP.OC.82 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 11:04.41 00104/83 ACCOUNTING FASTIOCK SA G FIOC S0027 DISTRB FSNAME=FASTIOCK D3T1 313 ACCOUNTING.FASTIOCK.SA.83 1 LINE 80 3 PAGE UM ENGLE JAN. 09, 1973 11:07.38 0 SUBROUTINE TO DETERMINE IF AN I/O UNIT IS "FAST." USED IN *PROJECTACCOUNT. COPIES GRDEF (104/58). 00104/84 ACCOUNTING FASTIOCK OC G S0027 DISTRB FSNAME=FIOC D3T1 314 ACCOUNTING.FASTIOCK.OC.84 1 LINE 80 1 DISK UM ENGLE JAN. 09, 1973 11:07.52 0 Referenced by comments of: 499/1 00104/85 ACCOUNTING ACCSAVE SA G ASAV S0027 DISTRB FSNAME=ACCSAVE 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 S0027 DISTRB FSNAME=ASAV 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 S0027 DISTRB FSNAME=ACCTAPRD 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 S0027 DISTRB FSNAME=ATRD 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 D3T1 319 ACCOUNTING.GETFILE.SA.89 1 LINE 80 3 PAGE UM ENGLE JAN. 05, 1973 17:28.40 0 SUBROUTINE TO GET A FDUB, ETC. 0 Referenced by comments of: 502/1 00104/90 ACCOUNTING GETFILE OC G S0027 DISTRB FSNAME=GTFL D3T1 320 ACCOUNTING.GETFILE.OC.90 1 LINE 80 1 DISK UM ENGLE JAN. 05, 1973 17:28.51 0 Referenced by comments of: 129/2, 484/1, 499/1 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 1 WED JUL 24/96 18:21:34 Page 43 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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 S0027 DISTRB FSNAME=ACCWRITEUP D3T1 327 ACCOUNTING.WRITEUP.WF.97 1 LINE 81 7 PAGE UM ENGLE JULY 20, 1973 20:28.16 0 A WRITEUP DESCRIBING THE MTS ACCOUNTING SYSTEM: FILES AND MAINTENANCE PROGRAMS. 00104/98 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 RESTORE PACK SINCE IT IS USED IN THE PROCESS OF CONVERTING FROM DISTRIBUTION 2 TO DISTRIBUTION 3. 0 Referenced by comments of: 104/26 00104/99 ACCOUNTING ACCGFUPD OC G W013:ACCGFUPD(1,98) D3T5 254 ACCOUNTING.ACCGFUPD.OC.99 1 LINE 80 1 PAGE UM ENGLE AUG. 11, 1973 01:28.07 1 WED JUL 24/96 18:21:34 Page 44 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00107 ACATALOG # (SEE COMP 104/91) 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). 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 1 WED JUL 24/96 18:21:34 Page 45 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/1 AND 502/2) UM 00116/1 *PDP8RTN SA G PDP8 WSG:PDP8 D3T1 340 PDP8RTN..SA.1 1 LINE 80 45 PAGE UM WSG JULY 31, 1973 00:09.10 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. 00116/2 *PDP8RTN OC G *PDP8RTN D3T1 341 PDP8RTN..OC.2 1 LINE 80 4 PAGE UM WSG JULY 31, 1973 00:09.21 0 AT UM, THIS FILE IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. 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 1 WED JUL 24/96 18:21:34 Page 46 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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). 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 50/1) 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 S0622 D3MISC FSNAME=BLSTDEV.S 50 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/11 AND 502/12) 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! 1 WED JUL 24/96 18:21:34 Page 47 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00129/1 *STATUS SA G # (SEE COMP 104/12) UM ENGLE 0 PROGRAM TO ALLOW USER TO PRINT INFO FROM HIS ACCOUNTING RECORD. 00129/2 *STATUS OE G *STATUS D3T1 353 STATUS..O.2 1 LINE 255 4 PAGE UM ENGLE JULY 31, 1973 00:17.04 0 CONSISTS OF: STATUS (104/13) + ACCIO (104/19) + GETFILE (104/90). 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 FRONCZAK 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 FRONCZAK JULY 31, 1973 00:17.16 00135/1 *TAPERTN SA G TAPE WSG:TAPE D3T1 358 TAPERTN..SA.1 1 LINE 80 82 PAGE UM WSG JULY 31, 1973 00:17.18 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 0 Referenced by comments of: 487/4, 489/1 00135/2 *TAPERTN OC G WSG:XTAPERTN.D3 D3T1 359 TAPERTN..OC.2 1 LINE 80 6 PAGE UM WSG JULY 31, 1973 00:17.32 0 AT UM, THIS FILE IS NORMALLY LOADED INTO SHARED VM BY THE SEGMENT 2 LOADER AT IPL. 1 WED JUL 24/96 18:21:34 Page 48 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 HOWEVER, FOR INSTALLATIONS WITH LOWER TAPE USAGE, MTS WILL DYNAMICALLY LOAD A PRIVATE COPY (AS REQUIRED) FROM THIS FILE. 00136/1 *FIX C *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 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 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 WED JUL 24/96 18:21:34 Page 49 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 WED JUL 24/96 18:21:34 Page 50 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 WED JUL 24/96 18:21:34 Page 51 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=M200 20 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 S0622 D3MISC FSNAME=GPAKDRAW 3 D3T1 396 GPAKDRAW..OC.2 1 LINE 80 2 DISK UM PIRKOLA JAN. 22, 1973 22:09.16 1 WED JUL 24/96 18:21:34 Page 52 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0027 DISTRB FSNAME=FILESCAN D3T1 403 FILESCAN..SA.1 1 LINE 80 8 PAGE UM ENGLE JAN. 05, 1973 12:33.28 0 MTS FILE SCANNING PROGRAM. 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 WED JUL 24/96 18:21:34 Page 53 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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, 531/3, 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 D3T1 410 IPL_PROGRAM..SA.1 1 LINE 80 12 PAGE UM MTA AUG. 01, 1973 00:54.14 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." 0 Referenced by comments of: 157/1 00156/2 IPL PROGRAM OC G # RESIDENT SYSTEM (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. 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. 1 WED JUL 24/96 18:21:34 Page 54 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 S0699 D3TAPE POSN=PSA 3 D3T1 412 PSA_DSECT.DUPLEX.SA.1 1 SEQ 80 6 PAGE UM MTA JULY 31, 1973 00:29.57 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, 468/2, 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 D3T1 413 PSA_DSECT.SIMPLEX.SA.2 1 LINE 80 7 PAGE UM MTA JULY 31, 1973 00:30.00 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. 0 Referenced by comments of: 468/2 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 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). 1 WED JUL 24/96 18:21:34 Page 55 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 00163/13 PL1 COMPILER UPDATE UI S0622 D3MISC FSNAME=PL1.COMPILER.UPD 51 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). 1 WED JUL 24/96 18:21:34 Page 56 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=M195 18 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 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. 1 WED JUL 24/96 18:21:34 Page 57 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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 1 WED JUL 24/96 18:21:34 Page 58 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00173 PRINTSAVE # (SEE COMP 502/5 AND 502/6) UM 00175 *GPAKLIB OL S0622 D3MISC FSNAME=GPAKLIB 1 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 ACIENT 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 S0622 D3MISC FSNAME=GPAKGRID 2 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 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. 1 WED JUL 24/96 18:21:34 Page 59 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=M179 16 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. 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 1 WED JUL 24/96 18:21:34 Page 60 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/1 PAGEIT SA G PGIT W047:PAGEIT(1,999) D3T2 4 PAGEIT..SA.1 1 LINE 80 3 PAGE UM HAMILTON JULY 31, 1973 20:59.23 0 NOTHING PROGRAM THAT PAGES A LOT TO TEST PAGING. REQUIRES *SYSMAC. 00196/2 PAGEIT OC G W047:PAGEIT(1000) D3T2 5 PAGEIT..O.2 1 LINE 80 1 PAGE UM HAMILTON JULY 31, 1973 20:59.25 00197 *SMDS M G *SMDS D3T2 6 SMDS..M. 1 LINE 118 3 PAGE UM MTA JULY 31, 1973 20:59.27 0 MTS MESSAGE FILE (SYSTEM MESSAGES DATA SET). USED IN CONJUNCTION WITH FMSG MACRO IN MTS. 00198/1 GUINFO/CUINFO 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. FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1 00198/2 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 1 WED JUL 24/96 18:21:34 Page 61 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 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 1 WED JUL 24/96 18:21:34 Page 62 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T2 21 GPSS/360.GPSSUPDATE.UU.12 1 LINE 80 6 PAGE UM HENRIKSEN JULY 03, 1973 17:20.25 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 D3T2 22 GPSS/360.GPSS.OS.O.O.13 1 LINE 255 36 PAGE UM HENRIKSEN JULY 03, 1973 17:20.04 0 OBJECT CODE FOR 11 UPDATED IBM SOURCE FILES. ******** NOTE: THIS OBJECT CONTAINS A REP CARD. ******* 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 D3T2 26 GPSS/360.HOOKSECT.S.SA.17 1 LINE 80 13 PAGE UM HENRIKSEN MAY 22, 1973 15:22.07 0 SOURCE FOR SUBROUTINES CALLED FROM "HOOKS" PLACED IN THE OS/360 CODE. 00201/18 GPSS/360 JUNK.S SA G GJNK S0289 S289 'GPSS/360' FSNAME=JUNK.S D3T2 27 GPSS/360.JUNK.S.SA.18 1 LINE 80 3 PAGE UM HENRIKSEN DEC. 13, 1972 20:59.09 0 SOURCE FOR SEVERAL SUBROUTINES. 1 WED JUL 24/96 18:21:34 Page 63 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00201/19 GPSS/360 GPSS.MTS.O OE G S0289 S289 'GPSS/360' FSNAME=GPSS.MTS.O D3T2 28 GPSS/360.GPSS.MTS.O.O.19 1 LINE 255 3 DISK UM HENRIKSEN MAY 31, 1973 15:32.25 0 OBJECT CODE FOR GPSS.S, GPSSPKG.S, HOOKSECT.S, AND JUNK.S. 00201/20 GPSS/360 *GPSS OL G *GPSS D3T2 29 GPSS/360.*GPSS.OL.20 1 SEQ 32767 34 PAGE UM HENRIKSEN JULY 31, 1973 21:11.09 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 D3T2 32 GPSS/360.*GPSSERR.M.23 1 LINE 73 9 PAGE UM HENRIKSEN JULY 31, 1973 21:11.48 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 D3T2 34 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. 00203 *TNLBUILD # (SEE COMP 110) UM 00204/1 FORTRANG IEYFORT SA G IEYF W019:SOURCE.FORT D3T2 35 FORTRANG.IEYFORT.SA.1 1 LINE 80 20 PAGE UM JWS JULY 31, 1973 21:12.20 0 THIS IS THE MTS VERSION OF THE CONTROL MODULE OF THE FORTRAN G COMPILER. IT INCORPORATES THE FUNCTIONS OF THE OS MODULES IEYFORT AND IEYFORT2. 00204/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 W034: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. 1 WED JUL 24/96 18:21:34 Page 64 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00204/4 FORTRANG IEYSYM SA G IEYS W034: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 W019: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 S0622 D3MISC FSNAME=M137 11 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 S0622 D3MISC FSNAME=LISP.UPDATE 52 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 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. 1 WED JUL 24/96 18:21:34 Page 65 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00210/7 *LISP USER'S GUIDE WF S0622 D3MISC FSNAME=M135 10 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 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 1 WED JUL 24/96 18:21:34 Page 66 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T2 52 SYSMAC..SM. 1 LINE 80 67 PAGE UM MTA JULY 31, 1973 21:18.02 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/27) UM 00233/1 PL1 LIBRARY MACLIB SM # (SEE COMP 163/1) UM TIFFANY 00233/2 PL1 LIBRARY SAMEQU SA # (SEE COMP 163/2) UM TIFFANY 00233/3 PL1 LIBRARY REPLACE SA # (SEE COMP 163/3) UM TIFFANY 00233/4 PL1 LIBRARY CKLIO SA # (SEE COMP 163/4) UM TIFFANY 00233/5 PL1 LIBRARY NONSENSE SA # (SEE COMP 163/5) UM TIFFANY 00233/6 PL1 LIBRARY FREEDDEF SA # (SEE COMP 163/6) UM TIFFANY 1 WED JUL 24/96 18:21:34 Page 67 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00233/7 PL1 LIBRARY FINDTIOT SA # (SEE COMP 163/7) UM TIFFANY 00233/8 PL1 LIBRARY DDEF SA # (SEE COMP 163/8) UM TIFFANY 00233/9 PL1 LIBRARY OPEN SA # (SEE COMP 163/9) UM TIFFANY 00233/10 PL1 LIBRARY ROUT SA # (SEE COMP 163/10) UM TIFFANY 00233/11 PL1 LIBRARY CLOSE SA # (SEE COMP 163/11) UM TIFFANY 00233/12 PL1 LIBRARY QUIT SA # (SEE COMP 163/12) 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 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 1 WED JUL 24/96 18:21:34 Page 68 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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. 1 WED JUL 24/96 18:21:34 Page 69 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 1 WED JUL 24/96 18:21:34 Page 70 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE JUNE 29, 1973 21:44.23 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 LAURANCE 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 LAURANCE 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 LAURANCE JULY 31, 1973 21:26.46 0 OBJECT CONSISTING OF 234/5 + 234/7 + 234/9 1 WED JUL 24/96 18:21:34 Page 71 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE 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 LAURANCE JUNE 29, 1973 21:38.49 0 SUBROUTINES TO PROVIDE MTS ENVIRONMENT FOR 8ASR IN OS/360. NOT COMPLETELY CHECKED OUT. OBJECT NOT DISTRIBUTED. ASSEMBLE WITH *OSMAC OR USE OS/360. 00234/20 8ASR LINK EDITOR SA G LNK8 S0676 PDP-8 FSNAME=8LINK 14 D3T2 102 8ASR.LINK_EDITOR.SA.20 1 LINE 80 75 PAGE UM LAURANCE 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 24 D3T2 103 8ASR.LINK_EDITOR.OC.21 1 LINE 80 5 DISK UM LAURANCE 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 LAURANCE JUNE 29, 1973 21:42.44 0 PDP-8 SIMULATOR SECTION OF *8LINK. COPIES PANEL (234/24). 1 WED JUL 24/96 18:21:34 Page 72 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 LAURANCE 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 LAURANCE 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 LAURANCE JULY 31, 1973 21:28.37 0 LINK EDIT OF 234/21 + 234/23. 00234/26 8ASR *8LINK WRITEUP WF S0622 D3MISC FSNAME=M133 9 D3T2 108 8ASR.*8LINK_WRITEUP.WF.26 1 LINE 110 8 DISK UM LAURANCE MAR. 15, 1973 17:02.58 0 THIS IS COMPUTING CENTER MEMO M133 -- "*8LINK" 00234/27 8ASR *8ASR WRITEUP WF S0622 D3MISC FSNAME=M165 31 D3T2 109 8ASR.*8ASR_WRITEUP.WF.27 1 LINE 153 13 DISK UM LAURANCE MAR. 16, 1973 21:15.47 0 THIS IS COMPUTING CENTER MEMO M165 -- "*8ASR, PDP-8 ASSEMBLER" 00234/28 8ASR *8LINK/*8ASR WF S0622 D3MISC FSNAME=M220 26 D3T2 110 8ASR.*8LINK/*8ASR.WF.28 1 LINE 108 2 DISK UM LAURANCE 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/13) UM 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/25) 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. 1 WED JUL 24/96 18:21:34 Page 73 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/7 AND 502/8) UM 00246 *8EDIT SF # (OBSOLETE) UM 00247 *SPEAK D # (SEE COMP 084/3) 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. 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. 1 WED JUL 24/96 18:21:34 Page 74 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00253 LINE DIRECTORY SORT SA # (OBSOLETED BY COMP 546) D2T1 121 UM 00254/1 BSLOAD SA G BSLD W009:BSLOAD.S D3T2 119 BSLOAD..SA.1 1 LINE 80 24 PAGE UM DE JONG JULY 31, 1973 21:31.48 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). 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 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 S0622 D3MISC FSNAME=*MOMS 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. 1 WED JUL 24/96 18:21:34 Page 75 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 1 WED JUL 24/96 18:21:34 Page 76 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 SA O S0371 'D1T2' FMT=FB(6400,80) 44 D3T2 130 SLIP..S.1 1 SEQ 80 55 PAGE UM SALISBURY JULY 31, 1973 21:33.04 0 FORTRAN CALLABLE LIST PROCESSING PACKAGE. NOT CHANGED SINCE DIST 1.0. 00261/2 *SLIP OL O *SLIP D3T2 131 SLIP..O.2 1 LINE 248 44 PAGE UM SALISBURY JULY 31, 1973 21:33.09 00261/3 *SLIP WRITEUP WF S0622 D3MISC FSNAME=M197 19 D3T2 132 SLIP.WRITEUP.WF.3 1 LINE 115 3 DISK UM SALISBURY MAR. 15, 1973 18:35.38 0 THIS IS COMPUTING CENTER MEMO M197 -- "360 SLIP" 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. 1 WED JUL 24/96 18:21:34 Page 77 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 S0371 'D1T2' FMT=FB(6400,80) 45 D3T2 138 IOH..SA.1 1 SEQ 80 153 PAGE UM LEADER JULY 31, 1973 21:35.00 0 IOH/360. THIS CONVERSION PACKAGE USES SEVERAL RPQS, PARTICULARLY SWAP. UNFORTUNATELY, THIS PROGRAM IS STILL UNCHANGED SINCE DIST 1 AND DOES NOT STRICTLY CORRESPOND TO THE IOH/360 DOCUMENTATION IN VOLUME 5 OF THE UM MTS MANUAL. SIGH! NOW FOR THE GOOD NEWS: IT LOOKS LIKE SOMEONE WILL BE FIXING IT SOON. 0 Referenced by comments of: 400/1, 569/1 1 WED JUL 24/96 18:21:34 Page 78 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00278/2 IOH OC # *LIBRARY (SEE COMP 524) UM LEADER 00279 LINPG SUBR S # (NOT DISTRIBUTED) D2T1 396 UM HARDING 0 SOLVE LINEAR PROGRAMMING PROBLEMS. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00282/1 PRINTER PLOT SUBR SA PRPL W038:PLOT1TO4 D3T2 139 PRINTER_PLOT_SUBR..SA.1 1 LINE 80 31 PAGE UM FRONCZAK JULY 31, 1973 21:35.23 0 PLOT SUBROUTINES FOR PRINTED OUTPUT. USED BY *PLOT AMONG OTHERS. 00282/2 PRINTER PLOT SUBR OC # *LIBRARY (SEE COMP 524) UM FRONCZAK 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. 1 WED JUL 24/96 18:21:34 Page 79 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. ********* 1 WED JUL 24/96 18:21:34 Page 80 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 00296 CHECKDASD SA # OBSOLETE D2T1 119 UM 00297/1 *LINKEDIT LKEDCMD SP G W052:LINK.CMD.S D3T2 150 LINKEDIT.LKEDCMD.SP.1 1 LINE 98 16 PAGE UM DE JONG JULY 31, 1973 21:36.10 0 FANCY NEW VERSION OF THE MTS LINKAGE EDITOR WRITTEN IN PL/I. REQUIRES COPY SECTION LINK.COM (297/6). 00297/2 *LINKEDIT INCLUDE SP G W052:LINK.INCL.S D3T2 151 LINKEDIT.INCLUDE.SP.2 1 LINE 100 15 PAGE UM DE JONG JULY 31, 1973 21:36.18 0 COPIES LINK.COM (297/6). 00297/3 *LINKEDIT PUNCH SP G W052:LINK.PUNCH.S D3T2 152 LINKEDIT.PUNCH.SP.3 1 LINE 100 5 PAGE UM DE JONG JULY 31, 1973 21:36.21 0 COPIES LINK.COM (297/6). 00297/4 *LINKEDIT COMBINE SP G W052:LINK.COMB.S D3T2 153 LINKEDIT.COMBINE.SP.4 1 LINE 100 9 PAGE UM DE JONG JULY 31, 1973 21:36.23 0 COPIES LINK.COM (297/6). 00297/5 *LINKEDIT SUBR SP G W052:LINK.SUBR.S D3T2 154 LINKEDIT.SUBR.SP.5 1 LINE 91 3 PAGE UM DE JONG JULY 31, 1973 21:36.26 0 COPIES LINK.COM (297/6). 00297/6 *LINKEDIT LINK.COM SP G W052:LINK.COM D3T2 155 LINKEDIT.LINK.COM.SP.6 1 LINE 100 5 PAGE UM DE JONG JULY 31, 1973 21:36.28 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 1 WED JUL 24/96 18:21:34 Page 81 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00297/7 *LINKEDIT ASMSUBR SA G W052:LINK.ALIB.S D3T2 156 LINKEDIT.ASMSUBR.SA.7 1 LINE 72 1 PAGE UM DE JONG JULY 31, 1973 21:36.30 0 ASMG SUBROUTINES. 00297/8 *LINKEDIT DUMP SP G W052:LINK.DUMP.S D3T2 157 LINKEDIT.DUMP.SP.8 1 LINE 91 4 PAGE UM DE JONG JULY 31, 1973 21:36.32 0 SUBROUTINE TO PRODUCE ERROR DUMPS. CONTAINS "$CONTINUE WITH LINK.COM" (297/6) 00297/9 *LINKEDIT OBJECT OE G *LINKEDIT D3T2 158 LINKEDIT.OBJECT.O.9 1 SEQ 32767 33 PAGE UM DE JONG JULY 31, 1973 21:36.34 0 THIS FILE HAS A "$CONTINUE WITH *PL1LIB" RECORD IN IT. 00297/10 *LINKEDIT USERS' GUIDE WF S0622 D3MISC FSNAME=M241 59 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" NOTE: THIS HAS NOT BEEN COMPLETELY FINISHED, BUT IS VERY CLOSE. 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 0 Referenced by comments of: 298/3 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. 0 Referenced by comments of: 298/3 00298/3 *FORTRANH MTS OBJECT OC G S0579 SAVE 'JWS - SAVE' FSNAME=FSDOBJ D3T2 162 FORTRANH.MTS_OBJECT.O.3 1 LINE 80 8 DISK UM JWS JUNE 23, 1972 12:58.13 0 OBJECT RESULTING FROM ASSEMBLY OF SOURCE (298/1) AFTER UPDATE (298/2). 00298/4 *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/5 *FORTRANH OBJECT OE G W034:OLDFORTRANH D3T2 164 FORTRANH.OBJECT.OE.5 1 SEQ 32767 102 PAGE UM JWS JULY 31, 1973 21:42.58 0 LINK EDITED OBJECT FROM 298/4 + 298/3. 1 WED JUL 24/96 18:21:34 Page 82 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00298/6 *FORTRANH FTN VERSION SA W034: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. IN THIS WAY, A USER WILL BE ABLE TO RUN *FTN AND THEN SELECT EITHER FORTRAN G OR H. THIS VERSION IS CURRENTLY UNDER PRELIMINARY USER TESTING AT UM. 0 Referenced by comments of: 551/5 00298/7 *FORTRANH FTN VERSION OC W034: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 298/3 AND, AS SUCH, MUST BE COMBINED WITH 298/4 TO PRODUCE A 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. 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 SMITH 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 SMITH 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 SMITH 0 Referenced by comments of: 303/1 00303/4 SORT SORT2/3 SUBRS SA G # (PART OF 303/1) UM SMITH 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. 1 WED JUL 24/96 18:21:34 Page 83 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00303/5 SORT SORT2/3 SUBRS OC G # *LIBRARY (SEE COMP 524) UM SMITH 00303/6 SORT LM1 SUBROUTINE SA G # (PART OF 303/1) UM SMITH 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 SMITH 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 SMITH JULY 31, 1973 22:40.59 00303/9 SORT LM2 SUBROUTINE SA G # (PART OF 303/1) UM SMITH 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 SMITH 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 SMITH AUG. 14, 1972 17:45.47 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 SMITH AUG. 14, 1972 17:46.01 00303/13 SORT M223 PREFACE WF G S0622 D3MISC FSNAME=M223 27 D3T2 176 SORT.M223_PREFACE.WF.13 1 LINE 96 1 DISK UM SMITH 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 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 SALISBURY 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 SALISBURY 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 SALISBURY JULY 31, 1973 22:47.18 1 WED JUL 24/96 18:21:34 Page 84 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY JULY 31, 1973 22:47.43 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY 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 SALISBURY JULY 31, 1973 22:48.08 1 WED JUL 24/96 18:21:34 Page 85 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 SALISBURY 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 SALISBURY JULY 31, 1973 22:48.12 0 ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00306/1 WIREWRAP *WIREWRAP SA G WIRE W064:WW.S D3T2 199 WIREWRAP.*WIREWRAP.SA.1 1 LINE 80 108 PAGE UM SMITH JULY 31, 1973 22:48.24 0 PROGRAM TO PRODUCE ALL SORTS OF NEAT OUTPUT ABOUT WIRING BACKPANELS FOR SOME HARDWARE DEVICES. MUST BE CONCATENATED WITH *MSERIES, *RSERIES, OR *IC TO DEFINE THE CHARACTERISTICS OF THE MODULES USED IN THE DESIGN. THE M OR R REFER TO DEC SERIES. REQUIRES COPY SECTIONS WWCOPY(306/3) AND WWDATA (306/4) AND MACRO LIBRARIES WWMAC (306/5) AND *SYSMAC. 00306/2 WIREWRAP *WIREWRAP OE G *WIREWRAP D3T2 200 WIREWRAP.*WIREWRAP.O.2 1 SEQ 10200 8 PAGE UM SMITH JULY 31, 1973 22:48.42 00306/3 WIREWRAP WWCOPY SA G W064:WWCOPY D3T2 201 WIREWRAP.WWCOPY.SA.3 1 LINE 71 3 PAGE UM SMITH JULY 31, 1973 22:48.44 0 COPY SECTION USED BY 306/1 00306/4 WIREWRAP WWDATA SA G W064:WWDATA D3T2 202 WIREWRAP.WWDATA.SA.4 1 LINE 72 5 PAGE UM SMITH JULY 31, 1973 22:48.46 0 COPY SECTION USED BY 306/1 0 Referenced by comments of: 306/1 00306/5 WIREWRAP WWMAC SM G W064:WWMAC D3T2 203 WIREWRAP.WWMAC.SM.5 1 LINE 73 3 PAGE UM SMITH JULY 31, 1973 22:48.48 0 MACRO LIB USED BY 306/1/ 0 Referenced by comments of: 306/1 00306/6 WIREWRAP *MSERIES SF G MSER W064:MSERIES.S D3T2 204 WIREWRAP.*MSERIES.SF.6 1 LINE 80 5 PAGE UM SMITH JULY 31, 1973 22:48.50 0 DIGITAL EQUIPMENT CORP M-SERIES LOGIC DESCRIPTION SUBROUTINES. COMPILED OBJECT SHOULD BE COMBINED WITH STGRD1 OBJECT (306/15). 0 Referenced by comments of: 306/14 1 WED JUL 24/96 18:21:34 Page 86 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/7 WIREWRAP *MSERIES OE G *MSERIES D3T2 205 WIREWRAP.*MSERIES.O.7 1 LINE 255 3 PAGE UM SMITH JULY 31, 1973 22:48.52 00306/8 WIREWRAP *RSERIES SF G RSER W064:RSERIES.S D3T2 206 WIREWRAP.*RSERIES.SF.8 1 LINE 80 5 PAGE UM SMITH JULY 31, 1973 22:48.55 0 DIGITAL EQUIPMENT CORP R-SERIES LOGIC DESCRIPTION SUBROUTINES. COMPILED OBJECT SHOULD BE COMBINED WITH STGRD2 OBJECT (306/17). 0 Referenced by comments of: 306/16 00306/9 WIREWRAP *RSERIES OE G *RSERIES D3T2 207 WIREWRAP.*RSERIES.O.9 1 LINE 255 3 PAGE UM SMITH JULY 31, 1973 22:48.57 00306/10 WIREWRAP *IC SF IC00 W064:IC.S D3T2 208 WIREWRAP.*IC.SF.10 1 LINE 80 5 PAGE UM SMITH JULY 31, 1973 22:48.59 0 INTEGRATED CIRCUITS DESCRIPTION SUBROUTINES. COMPILED OBJECT SHOULD BE COMBINED WITH STGRD1 OBJECT (306/15). 0 Referenced by comments of: 306/14 00306/11 WIREWRAP *IC OE G *IC D3T2 209 WIREWRAP.*IC.O.11 1 LINE 255 3 PAGE UM SMITH JULY 31, 1973 22:49.01 00306/12 WIREWRAP *LAB SF G W064:LAB.S D3T2 210 WIREWRAP.*LAB.SF.12 1 LINE 70 3 PAGE UM SMITH JULY 31, 1973 22:49.04 0 LOGIC LAB DESCRIPTION SUBROUTINES. 00306/13 WIREWRAP *LAB OE G *LAB D3T2 211 WIREWRAP.*LAB.O.13 1 LINE 255 3 PAGE UM SMITH JULY 31, 1973 22:49.06 00306/14 WIREWRAP STGRD1 SA G STG1 W064:STGRD1.S D3T2 212 WIREWRAP.STGRD1.SA.14 1 LINE 80 8 PAGE UM SMITH JULY 31, 1973 22:49.08 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. CALLED BY *MSERIES (306/6) AND *IC (306/10). 00306/15 WIREWRAP STGRD1 OC G W064:STGRD1 D3T2 213 WIREWRAP.STGRD1.OC.15 1 LINE 80 1 PAGE UM SMITH JULY 31, 1973 22:49.10 0 Referenced by comments of: 306/6, 306/10 00306/16 WIREWRAP STGRD2 SA G STG2 W064:STGRD2.S D3T2 214 WIREWRAP.STGRD2.SA.16 1 LINE 80 8 PAGE UM SMITH JULY 31, 1973 22:49.12 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. CALLED BY *RSERIES (306/8). 00306/17 WIREWRAP STGRD2 OC G W064:STGRD2 D3T2 215 WIREWRAP.STGRD2.OC.17 1 LINE 255 3 PAGE UM SMITH JULY 31, 1973 22:49.14 0 Referenced by comments of: 306/8 1 WED JUL 24/96 18:21:34 Page 87 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00306/18 WIREWRAP SQGRD SA G W064:SQGRD.S D3T2 216 WIREWRAP.SQGRD.SA.18 1 LINE 72 4 PAGE UM SMITH JULY 31, 1973 22:49.17 0 SUBROUTINE FOR GARDNER-DENVER AUTOMATIC WIREWRAP MACHINE. 00306/19 WIREWRAP SQGRD OC G W064:SQGRD D3T2 217 WIREWRAP.SQGRD.OC.19 1 LINE 80 1 PAGE UM SMITH JULY 31, 1973 22:49.19 00306/20 WIREWRAP ICMAC D G W064:ICMAC D3T2 218 WIREWRAP.ICMAC.D.20 1 LINE 65 4 PAGE UM SMITH JULY 31, 1973 22:49.21 0 CONTAINS "WIREWRAP MACROS" FOR MOST OF THE IC'S USED FOR LOGIC DESIGN AT THE UM COMPUTING CENTER. 00306/21 WIREWRAP USER'S GUIDE WT G W064:WWDES D3T2 219 WIREWRAP.USER'S_GUIDE.WT.21 1 LINE 80 22 PAGE UM SMITH JULY 31, 1973 22:49.23 0 THIS IS COMPUTING CENTER MEMO M181 -- "*WIREWRAP USER'S GUIDE" 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. 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. 1 WED JUL 24/96 18:21:34 Page 88 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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.SGEN 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. 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/16) UM 00311 *VARRLIST S # (OBSOLETE) D2T1 333 UM 00312 *ARUVOC D # (SEE COMP 084/11) 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. 1 WED JUL 24/96 18:21:34 Page 89 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=LABELSNIFF.WT 34 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 GENL S0517 'D2T1' FMT=FB(4000,80) 282 D3T2 236 GENLIB..SA. 1 SEQ 80 6 PAGE UNE BARNETT JULY 31, 1973 22:59.46 0 NEWCASTLE'S VERSION OF LIBRARY GENERATOR PROGRAM *GENLIB (SEE ALSO COMP 389). REQUIRES A LINE FILE AS OUTPUT (SPUNCH). OBJECT NOT DISTRIBUTED. THIS IS THE DIST 2 VERSION AND MAY WELL BE OBSOLETE BY NOW. 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 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: 1 WED JUL 24/96 18:21:34 Page 90 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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. 1 WED JUL 24/96 18:21:34 Page 91 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=M230 44 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 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. 1 WED JUL 24/96 18:21:34 Page 92 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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:STATP15.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 1 WED JUL 24/96 18:21:34 Page 93 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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: 'MM' 'YYYY' 'PART' 'NONE' 'CPU' 'WHOLE'; 0 Referenced by comments of: 413/10 00326/2 STAT MONTHLY SUMMARY PPAGES SUBR SP W041:STATP14.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:STATP14.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:STATP15.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/13) UM 00328/1 ALLLINES SA # (OBSOLETE) D2T1 264 UM 1 WED JUL 24/96 18:21:34 Page 94 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00328/2 ALLLINES O # (OBSOLETE) D2T1 265 UM 00329 *SKELETON # (SEE COMP 318/10 AND 318/11) 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 97/10 AND 97/11) 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). 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 S0622 D3MISC FSNAME=SNOBOL4B.UPD 53 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. 1 WED JUL 24/96 18:21:34 Page 95 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/6 AND 182/7) UM DE JONG 00334/9 *SNOBOL4B WRITEUP WF # (SEE COMP 182/8) 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 00336/2 SPL TRACE SA # (SEE COMP 318/3) 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. 1 WED JUL 24/96 18:21:34 Page 96 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00337/1 PRINT TRACE SA G PTTR MTA:PRINTTRACE(1,999) D3T2 281 PRINT_TRACE..SA.1 1 LINE 80 6 PAGE UM MTA JULY 31, 1973 23:16.54 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) D3T2 282 PRINT_TRACE..OC.2 1 LINE 80 3 PAGE UM MTA JULY 31, 1973 23:16.57 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 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. 1 WED JUL 24/96 18:21:34 Page 97 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 COPY:MTS.CONTAB D3T2 291 MTS.CONTAB..SA. 1 LINE 80 3 PAGE UM DWB JULY 31, 1973 23:17.15 0 THIS IS "COPY:MTS.CONTAB" WHICH IS COPIED BY ALL PROGRAMS THAT USE THE MTS DSECT. COPY:LLMPSEQU (087) AND EITHER COPY:MTS.EQU (345) OR COPY:MTS.EQU2 (347) 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 00344 MTS.MACROS SM G MMAC COPY:MTS.MACROS D3T2 292 MTS.MACROS..SM. 1 LINE 80 3 PAGE UM DWB JULY 31, 1973 23:17.17 0 THIS IS "COPY:MTS.MACROS" WHICH IS USED TO ASSEMBLE THE "MTS SUBROUTINES": KWIC (040), GETSPACE/FREESPAC (041), GUINFO/CUINFO (198), LLXU (354), CHECKSUM (462), STANDARD DUMP (463), PLIMIT (464), TIMNTRP (539), AND RSF (578). 0 Referenced by comments of: 40/1, 41/1, 198/1, 354/1, 462/1, 464/1, 539/1, 578/1 00345 MTS.EQU SA G COPY:MTS.EQU D3T2 293 MTS.EQU..SA. 1 LINE 80 4 PAGE UM DWB JULY 31, 1973 23:17.19 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 00346 MTS.DSECT SA G COPY:MTS.DSECT D3T2 294 MTS.DSECT..SA. 1 LINE 80 21 PAGE UM DWB JULY 31, 1973 23:17.21 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) AND $CONTINUE WITH COPY:STATDSECT RETURN (620) 0 Referenced by comments of: 40/1, 41/1, 42/1, 198/1, 354/1, 462/1, 464/1, 531/1, 539/1, 578/1 1 WED JUL 24/96 18:21:34 Page 98 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00347 MTS.EQU2 SA G COPY:MTS.EQU2 D3T2 295 MTS.EQU2..SA. 1 LINE 80 4 PAGE UM DWB JULY 31, 1973 23:17.24 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: 343/1, 345/1, 482/44 00348 MTS.RHTABLE SA G COPY:MTS.RHTABLE D3T2 296 MTS.RHTABLE..SA. 1 LINE 80 3 PAGE UM DWB JULY 31, 1973 23:17.26 0 THIS IS "COPY:MTS.RHTABLE" WHICH DEFINES THE RIGHT HAND TABLE FOR THE KWIC CALLS BY MTS. COPIED BY MTS AND KWIC. 0 Referenced by comments of: 40/1, 42/1 00349 OPEROPEROPER # (OBSOLETE) UM 00350 BLOCKLETTER SA # (OBSOLETE) D2T1 252 UM 00351 DCVD SUBROUTINE # (SEE COMP 084/5 AND 084/6) UM 00352 DCVC SUBROUTINE # (SEE COMP 084/7 AND 084/8) 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 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), AND COPY:LLMPSEQU (087). NEEDS MACROS IN COPY:MTS.MACROS (344). FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1 1 WED JUL 24/96 18:21:34 Page 99 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00354/2 LLXU OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00354/3 LLXU LLXUTEST SA W009:LLXUTEST.S D3T2 301 LLXU.LLXUTEST.SA.3 1 LINE 60 5 PAGE UM DE JONG JULY 31, 1973 23:19.14 0 PROGRAM TO TEST LOAD/LINK/XCTL/UNLOAD. ASSEMBLE USING THE 354/5 MACRO LIBRARY. 0 Referenced by comments of: 354/5 00354/4 LLXU LLXUTEST OC W009:LLXUTEST.O D3T2 302 LLXU.LLXUTEST.OC.4 1 LINE 80 4 PAGE UM DE JONG JULY 31, 1973 23:19.16 00354/5 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/3). 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 ? 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 ? 1 WED JUL 24/96 18:21:34 Page 100 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00358/1 *TAPECOPY SA G TPCP WSG:TAPECOPY(1,999) D3T2 307 TAPECOPY..SA.1 1 LINE 80 14 PAGE UM WSG JULY 31, 1973 23:20.43 0 MULTIPLE FILE TAPE COPY PROGRAM. COPIES LABELED OR UNLABELED TAPES, 7- OR 9-TRACK. 00358/2 *TAPECOPY OC G *TAPECOPY D3T2 308 TAPECOPY..OC.2 1 LINE 80 3 PAGE UM WSG JULY 31, 1973 23:20.46 00359 SORT SUBROUTINE # (SEE COMP 303/1 AND 303/3) UM 00360/1 TIME SUBROUTINE SA G TIME S0027 DISTRB FSNAME=TIME D3T2 309 TIME_SUBROUTINE..SA.1 1 LINE 80 6 PAGE UM ENGLE JAN. 05, 1973 12:33.55 0 SUBROUTINE TO DO THINGS WITH THE TIME, BOTH CPU AND ELAPSED. 00360/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. 1 WED JUL 24/96 18:21:34 Page 101 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 1 WED JUL 24/96 18:21:34 Page 102 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 374/1 00376 ZPR S # (NOT DISTRIBUTED) D2T1 412 UM HARDING 0 SUBR TO FIND A ZERO OF A POLYNOMIAL. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00377 ZQUAD S # (NOT DISTRIBUTED) D2T1 413 UM HARDING 0 SUBR TO FIND ROOTS OF A QUADRATIC. APPLICATION PROGRAMS ARE NOT BEING DISTRIBUTED AS PART OF DIST 3. 00385 CATALOG SUBR # (SEE COMP 482/23 AND 482/24) UM 00386 READ/WRITE SEQUENTIAL # (SEE COMP 482/25 AND 482/26) UM 00387/1 HASP MASTER SOURCE 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, 468/2 00387/2 HASP UPDATE UU G MTS:HASP2.U D3T2 311 HASP.UPDATE.UU.2 1 LINE 104 33 PAGE UM DWB AUG. 02, 1973 02:26.05 0 THIS UPDATE CONVERTS MTS HASP DIST 2.2 TO 387/1. THIS FILE ACTUALLY CONTAINS COMPLETE COMMANDS FOR UPDATING AND ASSEMBLING AND HAS "$CONTINUE WITH" CARDS FOR: HRTPCONP.U (387/3), HRTPRTAM.U (387/4), HRTPMLLM.U (387/5), AND HRTPEXTP.U (387/6). NEW INSTALLATIONS WILL NOT BE INTERESTED IN 387/2 THROUGH 387/6, ONLY 387/1. 00387/3 HASP HRTPCONP SA G MTS:HRTPCONP.U D3T2 312 HASP.HRTPCONP.SA.3 1 LINE 80 10 PAGE UM SMITH AUG. 02, 1973 02:26.24 0 REMOTE TERMINAL CONSOLE PROCESSOR. COPIED AS "HRTPCONP.U". THIS IS THE MTS VERSION. 0 Referenced by comments of: 387/2 00387/4 HASP HRTPRTAM SA G MTS:HRTPRTAM.U D3T2 313 HASP.HRTPRTAM.SA.4 1 LINE 80 53 PAGE UM SMITH AUG. 02, 1973 02:26.26 0 REMOTE TERMINAL ACCESS METHOD. COPIED AS "HRTPRTAM.U". THIS IS THE MTS VERSION. 0 Referenced by comments of: 387/2 1 WED JUL 24/96 18:21:34 Page 103 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00387/5 HASP HRTPMLLM SA G MTS:HRTPMLLM.U D3T2 314 HASP.HRTPMLLM.SA.5 1 LINE 80 21 PAGE UM SMITH AUG. 02, 1973 02:26.40 0 MULTI-LEAVING LINE MANAGER. COPIED AS "HRTPMLLM.U". THIS IS THE MTS VERSION. 0 Referenced by comments of: 387/2 00387/6 HASP HRTPEXTP SA G MTS:HRTPEXTP.U D3T2 315 HASP.HRTPEXTP.SA.6 1 LINE 80 3 PAGE UM SMITH AUG. 02, 1973 02:26.47 0 INTERFACE TO RTAM. COPIED AS "HRTPEXTP.U". THIS IS THE MTS VERSION. 0 Referenced by comments of: 387/2 00387/7 HASP UPDATE 2 UU G MTS:HASP2.U2 D3T2 316 HASP.UPDATE_2.UU.7 1 LINE 80 1 PAGE UM DWB AUG. 02, 1973 02:26.53 0 THIS IS A SMALL UPDATE DECK TO BE APPLIED TO THE OUTPUT OF 387/2. IT CORRECTS A FEW MINOR BUGS FOUND IN HASP AT THE LAST MINUTE. 387/1 IS THE RESULT OF APPLYING BOTH UPDATES. 00387/8 HASP OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00387/9 HASP LISTING P S0035 UMMPS 'SUPERVISOR LISTING TAPE' POSN=HASP.LISTING.SPX 9 D3T2 317 HASP.LISTING.P.9 1 SEQ 133 664 PAGE UM DWB AUG. 02, 1973 02:29.55 0 *ASMG LISTING OF ASSEMBLY OF 387/1 WITH ASSEMBLER UPDATE TO CHANGE SOURCE FOR NO RJE, NO SLT, NO &UM, AND &NUMCYL SETA 200. THIS LISTING CORRESPONDS TO THE SIMPLEX OBJECT DECK (468/2). COPY TO A PRINTER @MCC. 00387/10 HASP HRTP1130 SA G 1130 MTS:HRTP1130.U D3T2 318 HASP.HRTP1130.SA.10 1 LINE 80 169 PAGE UM SMITH AUG. 02, 1973 02:30.40 0 REMOTE TERMINAL PROGRAM FOR 1130. THIS IS THE OS VERSION WITH A FEW BUGS FIXED. 00387/11 HASP HRTPLOAD SA G LOAD MTS:HRTPLOAD.U D3T2 319 HASP.HRTPLOAD.SA.11 1 LINE 80 37 PAGE UM SMITH AUG. 02, 1973 02:31.04 0 LOADER FOR REMOTE 1130 PROGRAM. THIS IS THE OS VERSION WITH A FEW BUGS FIXED. 00387/12 HASP HRPTB360 SA G B360 MTS:HRTPB360.U D3T2 320 HASP.HRPTB360.SA.12 1 LINE 80 105 PAGE UM SMITH 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/13 HASP HRTPSYS3 SA G SYS3 MTS:HRTPSYS3.U D3T2 321 HASP.HRTPSYS3.SA.13 1 LINE 80 98 PAGE UM SMITH AUG. 02, 1973 02:31.26 0 REMOTE PROGRAM FOR IBM SYSTEM/3. HERE AGAIN, THIS VERSION IS FROM HASP II VERSION 3.1. 1 WED JUL 24/96 18:21:34 Page 104 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00387/14 HASP RTPBOOT B G W092:RTPBOOT D3T2 322 HASP.RTPBOOT.B.14 1 LINE 160 1 PAGE UM SMITH 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/15 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/16 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/15, AND (3) THE OBJECT FOR THE ALGOL COMPILER (OR LIBRARY) MTS INTERFACE (COMP 505/2 OR 505/22). 00387/17 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/18). INVOKED BY ENTERING "MTS *HSP" FROM OPERATORS CONSOLE. 00387/18 HASP STRT:HSP C STRT:HSP D3T2 326 HASP.STRT:HSP.C.18 1 LINE 24 1 PAGE UM WSG AUG. 02, 1973 02:31.49 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/17 00387/19 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/20). INVOKED BY ENTERING "MTS *DRN" FROM OPERATORS CONSOLE. 00387/20 HASP STRT:DRN C STRT:DRN D3T2 328 HASP.STRT:DRN.C.20 1 LINE 13 1 PAGE UM WSG AUG. 02, 1973 02:31.53 0 THIS FILE RUNS STRT:START (614) TO DRAIN ALL THE HASP REMOTE LINES, I.E. IT ISSUES "$DRAIN SDAX" 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/19 00387/21 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). 1 WED JUL 24/96 18:21:34 Page 105 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00387/22 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) D3T2 331 HASPLING..SA.1 1 LINE 80 15 PAGE UM MTA AUG. 02, 1973 02:32.04 0 NEW MASTER SOURCE FOR THE HASPLING. 0 Referenced by comments of: 468/2 00388/2 HASPLING OC G # RESIDENT SYSTEM (SEE COMP 468) 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. 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 1 WED JUL 24/96 18:21:34 Page 106 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T2 336 SYSTEM_DUMP..SA.1 1 LINE 80 13 PAGE UM MTA AUG. 02, 1973 02:35.19 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 00399/2 SYSTEM DUMP OC G # RESIDENT SYSTEM (SEE COMP 468) UM MTA 00400/1 PRINT DUMP SA G DMPL MTA:DMPLST(1,1999) D3T2 337 PRINT_DUMP..SA.1 1 LINE 80 24 PAGE UM MTA AUG. 02, 1973 02:35.21 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 D3T2 338 PRINT_DUMP..OC.2 1 LINE 80 7 PAGE UM MTA AUG. 02, 1973 02:35.27 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. 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 1 WED JUL 24/96 18:21:34 Page 107 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00404 COLBIN S # (UBC WILL DISTRIBUTE THIS AFTER D3.0) D2T1 435 UBC HOGG 0 SUBROUTINE TO READ BINARY CARDS IN FORTRAN (BARF-- BINARY ARRAY READER FOR FORTRAN). 00405 CJDATE S # (UBC WILL DISTRIBUTE THIS AFTER 3.0) 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 # (UBC WILL DISTRIBUTE THIS AFTER 3.0) D2T1 157 UBC HOGG 00413/1 JOBS TASK STAT ROUT SA G WSG:JOBS D3T2 342 JOBS.TASK_STAT_ROUT.SA.1 1 LINE 70 32 PAGE UM SMITH AUG. 02, 1973 02:40.49 0 TASKS STAT ROUTINES (TSR) COMPUTE SYSTEM LOAD (CPU, PAGING, DISK, AND CHANNEL ACTIVITY). CALLED BY THE "JOBS" JOB (413/3) AND THE MTS JOBS (MJ) PROGRAM (413/5) TO COMPUTE AND FORMAT PRINTED OUTPUT. A SET OF NOTES ("NOTES ON JOBS") IS INCLUDED WITH THE PAPER DOCUMENTATION. COPIES COPY:JOBSTA (413/13) AND REQUIRES DBS:MAC MACRO LIBRARY (455). HAS OPTION FOR USE OF THE SEARCH LIST (SLT) INSTRUCTION: &SLT SETB 0 NO SLT &SLT SETB 1 USE SLT 1 WED JUL 24/96 18:21:34 Page 108 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 *****NOTE: AT THE LAST MINUTE A BUG WAS DISCOVERED IN THIS PROGRAM WHICH ONLY BECOMES APPARENT WHEN THE &SLT OPTION IS SET TO ZERO. THIS SOURCE HAS NOT BEEN CORRECTED, ALTHOUGH THE DISTRIBUTED OBJECT HAS BEEN CORRECTED BY RE-ASSEMBLY. THE SOURCE SHOULD BE CHANGED AT LINE 2298.000 AS FOLLOWS: OLD--> C R3,4(0,R2) NEW--> CL R3,4(0,R2) 0 Referenced by comments of: 45/1, 468/2 00413/2 JOBS TASK STAT ROUT OC G # RESIDENT SYSTEM (SEE COMP 468) UM SMITH 00413/3 JOBS JOB PROGRAM SA G # (PART OF 413/1) UM SMITH 0 UMMPS JOB PROGRAM (NAMED "JOBS") TO INTERFACE TO THE TASKS STAT ROUTINES FROM THE JOB PROGRAM LEVEL. "JOBS" CAN USE THE OPERATORS CONSOLE, A 2260 DISPLAY, OR A TTY OR HAZELTINE 2000 DISPLAY (CONNECTED VIA UM DATA CONCENTRATOR). AT UM, THE LATTER IS USED WITH THE /H COMMAND TO DRIVE A TV MONITOR IN THE USER'S WORK AREA WHICH DISPLAYS THE CURRENT STATUS OF EACH BATCH JOB IN THE SYSTEM. COPIES COPY:JOBSTA (413/13) AND REQUIRES DBS:MAC MACRO LIBRARY (455). 0 Referenced by comments of: 413/1 00413/4 JOBS JOB PROGRAM OC G # RESIDENT SYSTEM (SEE COMP 468) UM SMITH 00413/5 JOBS MTS JOBS PGM SA G # (PART OF 413/1) UM SMITH 0 MTS JOBS PROGRAM (MJ) TO INTERFACE TO THE TASKS STAT ROUTINES FROM THE MTS EXECUTION LEVEL. COPIES COPY:JOBSTA (413/13) AND REQUIRES DBS:MAC MACRO LIBRARY (455). 0 Referenced by comments of: 413/1 00413/6 JOBS MTS JOBS PGM OC G DBS:MJ D3T2 343 JOBS.MTS_JOBS_PGM.OC.6 1 SEQ 500 1 PAGE UM SMITH AUG. 02, 1973 02:41.11 00413/7 JOBS HAZELTINE I/O SA G # (PART OF 413/1) UM SMITH 0 I/O ROUTINES WHICH MTS JOBS PGM USES IF OUTPUT IS ON A HAZELTINE 2000 DISPLAY CONNECTED TO UM DATA CONCENTRATOR. REQUIRES DBS:MAC MACRO LIBRARY (455). 00413/8 JOBS HAZELTINE I/O OC G # (PART OF 413/6) UM SMITH 00413/9 JOBS TASKS STAT SAV C G *BST D3T2 344 JOBS.TASKS_STAT_SAV.C.9 1 LINE 26 1 PAGE UM SMITH AUG. 02, 1973 02:41.19 0 COMMANDS TO SIGNON AND SOURCE TO OPER:BST. INVOKED BY *LAS (154) OR BY ENTERING "MTS *BST" ON OPERATORS CONSOLE. 1 WED JUL 24/96 18:21:34 Page 109 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00413/10 JOBS TASKS STAT SAV C G OPER:BST(1,99) D3T2 345 JOBS.TASKS_STAT_SAV.C.10 1 LINE 108 1 PAGE UM SMITH AUG. 02, 1973 02:41.25 0 COMMANDS TO RUN THE TASKS STAT SAVE PROGRAM (413/11) WHICH ACCUMLATES SYSTEM LOAD INFORMATION IN A FILE (OPER:STAT), ONE LINE EVERY 20 SECONDS. THIS FILE IS AUTOMATICALLY DUMPED ONTO A TAPE PERIODICALLY AND, BECAUSE OF THIS, WILL HAVE TO BE REASSEMBLED SO THAT THE CORRECT TAPE RACK NUMBER IS USED FOR EACH INSTALLATION. THIS INFORMATION (ON TAPE) CAN BE PROCESSED BY THE STAT MONTHLY SUMMARY PROGRAM (326). 00413/11 JOBS TASKS STAT SAV SA G # (PART OF 413/1) UM SMITH 0 SOURCE FOR TASKS STAT SAVE PROGRAM (SEE COMMENTS FOR 413/10). 0 Referenced by comments of: 413/10 00413/12 JOBS TASKS STAT SAV OC G OPER:BST(100) D3T2 346 JOBS.TASKS_STAT_SAV.OC.12 1 LINE 187 1 PAGE UM SMITH AUG. 02, 1973 02:49.45 0 Referenced by comments of: 326/1 00413/13 JOBS JOBSTA SA G JSTV COPY:JOBSTA D3T2 347 JOBS.JOBSTA.SA.13 1 LINE 80 3 PAGE UM SMITH AUG. 02, 1973 02:49.47 0 THIS IS A DSECT COPY SECTION FOR THE JOBS PROGRAM DROP AREA. IT IS ALSO ASSEMBLED (CHANGING THE DSECT TO CSECT) SEPARATELY AND USED IN THE SYSTEM OBJECT DECK (468). 0 Referenced by comments of: 42/1, 387/1, 413/1, 413/3, 413/5 00413/14 JOBS JOBSTA OC G # RESIDENT SYSTEM (SEE COMP 468) UM SMITH 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/5) UM 00417 *MSERIES # (SEE COMPS 306/6 AND 306/7) UM 00418 *HBT S # (OBSOLETED BY *...*) D2T1 183 UM 00419 LOVOC SUBR S # (OBSOLETE) UM 1 WED JUL 24/96 18:21:34 Page 110 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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. 1 WED JUL 24/96 18:21:34 Page 111 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=M175 15 D3T2 362 FORTRAN_LIBRARY.USER'S_GUI.WF.14 1 LINE 104 4 DISK UM HARDING MAR. 15, 1973 18:04.21 0 THIS IS COMPUTING CENTER MEMO M175 -- "MTS FORTRAN USER'S GUIDE" 00422/15 FORTRAN LIBRARY CALLING SEQ WF S0622 D3MISC FSNAME=M210 23 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/15) 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 1 WED JUL 24/96 18:21:34 Page 112 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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/9 AND 502/10) UM 00440 CATEQU # (SEE COMP 482/28) 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. 1 WED JUL 24/96 18:21:34 Page 113 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 S0027 DISTRB FSNAME=FMTTOTEXT360 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=NEWM4.V2 8 D3T3 1 MTS_VOLUME_2.MASTER.WT.1 1 SEQ 132 176 PAGE UM SALISBURY AUG. 01, 1973 18:07.49 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=PRINT4.V2 9 D3T3 2 MTS_VOLUME_2.PRINT.PT.2 1 SEQ 132 971 PAGE UM SALISBURY AUG. 01, 1973 18:12.26 0 TEXT/360 PRINT FILE. 00444/3 MTS VOLUME 2 TABLE CONTENTS P G S0485 MTSV2 'MTS MANUALS' POSN=TABCONT4.V2 10 D3T3 3 MTS_VOLUME_2.TABLE_CONTENT.P.3 1 SEQ 108 3 PAGE UM SALISBURY AUG. 01, 1973 18:14.29 0 TABLE OF CONTENTS WITH ".XX" PAGE NUMBERS ADDED. 00446 TEXT/360 SUBRS # (SEE COMPS 138/21 THRU 138/23) UM 00447/1 TAPESTAT TAPESTAT SUBR SA G TPST WSG:TAPESTAT(1,999) D3T3 4 TAPESTAT.TAPESTAT_SUBR.SA.1 1 LINE 80 5 PAGE UM WSG AUG. 01, 1973 18:14.35 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). 0 Referenced by comments of: 101/1, 101/2 00447/2 TAPESTAT TAPESTAT SUBR OC G # (PART OF 101/2) UM WSG 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 1 WED JUL 24/96 18:21:34 Page 114 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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). 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/8 AND 306/9) 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: 1 WED JUL 24/96 18:21:34 Page 115 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 SCARDS PARAMETERS IF NO PAR= IS GIVEN. END-OF-FILE STOPS PROGRAM. SPRINT PRINTED OUTPUT SERCOM ERROR COMMENTS PARAMETERS MUST BE SEPARATED BY BLANKS OR COMMAS AND MUST BE GIVEN IN THE FOLLOWING ORDER: (1) ANY, ALL OR NONE OR THE FOLLOWING: (A) "V" - VERIFY (B) "T" - TRACE (C) "D" - DUMP IF NONE OF THESE IS GIVEN, ONLY STATISTICS ABOUT THE WHOLE CATALOG OR THE USER CATALOG WILL BE PRINTED. (2) AT MOST, ONE OF THE FOLLOWING: (A) "C" - THE ENTIRE CATALOG (THE DEFAULT) (B) "U" - A PARTICULAR USER CATALOG (C) "F" - A PARTICULAR FILE IF "U" IS GIVEN, THEN A LEGAL MTS USERID MUST BE THE NEXT PARAMETER, OR "*ALL" IF ALL USER CATALOGS ARE DESIRED. IF "F" IS GIVEN, THEN AN 'INTERNAL' MTS FILE NAME (USERID AND FILENAME WITHOUT COLON) MUST BE THE NEXT PARAMETER, OR "*ALL" AND A LEGAL MTS USERID IF ALL FILES BELONGING TO A PARTICULAR USER ARE DESIRED. EXAMPLES: $RUN VNTD PAR=T,C $RUN VNTD PAR=V,T,D,U,W045 $RUN VNTD PAR=D,F,WO45VNTD OUTPUT: VERIFY (A) VERIFYING THE CATALOG WILL VALIDATE SEGMENT ALLOCATION AS WELL AS ERROR CHECKING RECORD AND SEGMENT HEADERS. PRESENTLY, THE CATALOG CAN ONLY BE VERIFIED WHEN SEGMENTS ARE NOT BEING ALLOCATED OR DEALLOCATED, 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) 1 WED JUL 24/96 18:21:34 Page 116 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 (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 S0027 DISTRB FSNAME=PLCALL D3T3 13 PLCALL..SA.1 1 LINE 80 5 PAGE UM ENGLE JULY 24, 1973 11:51.52 0 SUBROUTINES PLCALL, PLCALLD, PLCALLE, AND PLCALLF ENABLE A PL/I PROGRAM TO CALL SUBROUTINES WHICH REQUIRE THE NORMAL FTN OR ASM S-TYPE CALLING SEQUENCE. 00452/2 PLCALL OC G S0027 DISTRB FSNAME=PLCL D3T3 14 PLCALL..O.2 1 LINE 80 1 PAGE UM ENGLE JULY 24, 1973 11:52.05 0 THIS SUBROUTINE IS IN *PL1LIB. 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 SMITH 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/1, 413/3, 413/5, 413/7 00456 *CONFIG SA # (OBSOLETE) D2T1 318 UM 00457 TPSBUFFER SA # (OBSOLETE) D2T1 147 UM 00458/1 OLTS MONITOR SA G OLTS S0622 D3MISC FSNAME=OLTS.S 54 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 1 WED JUL 24/96 18:21:34 Page 117 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 DIST PROGRAM SA G DIST UBC:DIST.S D3T3 25 DISTRIBUTION.DIST_PROGRAM.SA.1 1 LINE 80 95 PAGE UM MTA AUG. 01, 1973 18:24.51 0 BUILDS DISTRIBUTION TAPE FROM THE DISTRIBUTION DRIVER FILE (461/11). MODIFIED VERSION OF *FS (548) WITH ADDITION OF 'DRIVE' COMMAND; SEE THE WRITEUP (461/4). CALLS SNIFF SUBROUTINE (548/2) AND FSIZE, AN ENTRY TO GETFINF (482/3). THIS PROGRAM WILL NOT RUN IN PREVIOUS VERSIONS OF MTS BECAUSE OF CALLS ON LOCK, GFINFO, FSIZE, ... COPIES COPY:DRDSECT (461/2) AND *GFINFODSECT (593). ASSEMBLE WITH *SYSMAC. 1 WED JUL 24/96 18:21:34 Page 118 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 NOTE: THE DISTRIBUTION PROGRAM IS INTENDED AS A REPLACEMENT FOR *FS, I.E. IT PERFORMS A SUPERSET OF THE FUNCTIONS PERFORMED BY *FS. AT UM, THE REPLACEMENT HAS NOT YET BEEN MADE BECAUSE OF THE LIMITED EXPERIENCE WITH THE DISTRIBUTION PROGRAM. HOWEVER, INASMUCH AS THERE ARE NO KNOWN BUGS IN THE DISTRIBUTION PROGRAM, IT WILL PROBABLY BE MOVED INTO *FS SHORTLY. 0 Referenced by comments of: 461/3, 461/11, 548/1, 548/2 00461/2 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 DISTRIBUTION UTILITIES. DEFINES STRUCTURE OF EACH RECORD IN DIST DRIVER FILE (461/11). 0 Referenced by comments of: 461/1, 461/5, 461/9 00461/3 DISTRIBUTION DIST PROGRAM OC G UBC:DIST D3T3 27 DISTRIBUTION.DIST_PROGRAM.OC.3 1 LINE 80 20 PAGE UBC MTA AUG. 01, 1973 18:26.09 0 OBJECT FOR DIST PROGRAM (461/1). REQUIRES SNIFF SUBROUTINE (548/2) OBJECT TO RUN. 00461/4 DISTRIBUTION DIST 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 0 THIS IS A WRITEUP FOR THE DISTRIBUTION PROGRAM. HOWEVER, SINCE THE DISTRIBUTION PROGRAM WILL REPLACE *FS, THE WRITEUP IS REALLY A COMPLETE *FS WRITEUP, NOT JUST THE CHANGES FOR THE DISTRIBUTION FUNCTIONS. 0 Referenced by comments of: 461/1 00461/5 DISTRIBUTION DEDIT SA G DED0 WSG:DEDIT(1,1999) D3T3 29 DISTRIBUTION.DEDIT.SA.5 1 LINE 80 24 PAGE UM WSG AUG. 01, 1973 18:26.19 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. REQUIRES THE NEW (D3.0) FILE ROUTINES AND MTS SINCE IT USES THE @BKWD I/O MODIFIER. ALSO PROVIDES COMMANDS FOR LINE-PRINTING ALL FIELDS AND COMMENTS IN THE DRIVER/COMMENT FILE(S) AND PRINTING MAJOR FIELDS AND COMMENTS SORTED BY "PERSON" APPROPRIATE FOR PROOFREADING. A WRITEUP FOR THIS PROGRAM IS INCLUDED IN THE PAPER DOCUMENTATION. COPIES COPY:DRDSECT (461/2). 0 Referenced by comments of: 461/12 00461/6 DISTRIBUTION DEDIT OC G WSG:DEDIT(2000) D3T3 30 DISTRIBUTION.DEDIT.OC.6 1 LINE 80 7 PAGE UM WSG AUG. 01, 1973 18:26.28 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. 1 WED JUL 24/96 18:21:34 Page 119 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. COPIES COPY:DRDSECT (461/2). 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 D3 DRIVER FILE D MTS:D3DESCR D3T5 255 DISTRIBUTION.D3_DRIVER_FIL.D.11 1 LINE 235 125 PAGE UM WSG AUG. 11, 1973 01:28.30 0 THIS IS THE DRIVER FILE USED FOR MTS DIST 3.0. IT WAS READ BY THE DIST PROGRAM (461/1) IN RESPONSE TO THE "DRIVE D3DESCR" COMMAND CAUSING THE D3 TAPES TO BE GENERATED. THIS FILE IS WHAT TOOK US SO LONG TO GENERATE. ***NOTE: THE OUTPUT TAPE NAMES AND FILE NUMBERS IN THIS FILE ARE FOR THE 1600 BPI DISTRIBUTION TAPES. COMPONENT 461/16 IS THE CORRESPONDING FILE FOR 800 BPI. 0 Referenced by comments of: 461/1, 461/2 00461/12 DISTRIBUTION D3 COMM FILE D MTS:D3COMM D3T5 256 DISTRIBUTION.D3_COMM_FILE.D.12 1 LINE 124 56 PAGE UM WSG AUG. 11, 1973 01:28.41 0 THIS FILE CONTAINS THE DIST 3.0 COMMENTS (SUCH AS YOU ARE NOW READING) AT NEGATIVE LINE NUMBERS. THE DIST EDITOR PROGRAM (461/5) ALLOWS THE COMMENTS TO BE IN THE DRIVER FILE OR IN A SEPARATE FILE. WE USED A SEPARATE FILE FOR DIST 3.0 SINCE THE DRIVER FILE WAS ALREADY QUITE LARGE. THE COMMENTS ARE POINTED TO (BY LINE NUMBER) IN EACH RECORD OF THE DRIVER FILE. 00461/13 DISTRIBUTION NEW SYSTEMS WF MTS:NEWINSTALL 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. 1 WED JUL 24/96 18:21:34 Page 120 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3 800 DRIVER D MTS:D3DESCR.800 D3T5 259 DISTRIBUTION.D3_800_DRIVER.D.16 1 LINE 235 125 PAGE UM WSG AUG. 11, 1973 01:29.13 0 THIS IS THE DRIVER FILE FOR 800 BPI OUTPUT TAPES. IT IS EXACTLY THE SAME AS 461/11 EXCEPT THAT THE OUTPUT TAPE NAMES AND FILE NUMBERS CORRESPOND TO THE 800 BPI VERSION OF DISTRIBUTION 3.0. 00462/1 CHECKSUM 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), AND COPY:LLMPSEQU (087). NEEDS MACROS IN COPY:MTS.MACROS (344). FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1 00462/2 CHECKSUM OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00463/1 STANDARD DUMP SA G S0713 MTSD4S 'MTS MASTER D3.0 #2' POSN=STDD 6 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). FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1 00463/2 STANDARD DUMP OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00464/1 PLIMIT 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), AND COPY:LLMPSEQU (087). NEEDS MACROS IN COPY:MTS.MACROS (344). FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1 00464/2 PLIMIT OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 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. 1 WED JUL 24/96 18:21:34 Page 121 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=M203 25 D3T3 47 APL.USERS'_GUIDE.WF.10 1 LINE 80 6 DISK UM DWB MAR. 16, 1973 16:01.32 0 THIS IS COMPUTING CENTER MEMO M203 -- "MTS APL USERS' GUIDE" NEEDS HAND-INSERTED APL CHARACTERS IN MANY PLACES-- SEE PAPER COPY. 00466/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. 1 WED JUL 24/96 18:21:34 Page 122 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 DUPLEX OC G MTS:SYSOBJ D3T5 260 SYSTEM_OBJECT_DECK.UM_DUPL.OC.1 1 LINE 80 172 PAGE UM MTA AUG. 11, 1973 01:29.38 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, HASP, 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: BOTH THIS DECK AND THE SIMPLEX DECK (468/2) HAVE 2 SETS OF PATCHES (REP CARDS). THE FIRST SET (8 CARDS) IS IN CONFIG (046). THE DISTRIBUTION COMMENTS FOR THE SUPERVISOR COMPONENT (045/1) DESCRIBE THIS SET OF PATCHES WHICH ADJUST THE TABLE VALUES FOR THE PRIVILEDGED JOB MECHANISM. THE SECOND PATCH IS TO MTS (042) AND MAKES A MINOR PATCH WHICH HAS ALREADY BEEN CHANGED IN THE DISTRIBUTED SOURCE (SEE THE COMMENTS FOR COMPONENT 042/4). 0 Referenced by comments of: 156/1, 413/13, 468/2 00468/2 SYSTEM OBJECT DECK SIMPLEX OC G MTS:SIMPLEX.OBJ D3T5 261 SYSTEM_OBJECT_DECK.SIMPLEX.OC.2 1 LINE 80 157 PAGE UM MTA AUG. 11, 1973 01:30.03 0 THIS IS THE SIMPLEX RESIDENT SYSTEM OBJECT DECK WHICH IS THE SAME AS THE DUPLEX DECK (468/1) EXCEPT FOR THE FOLLOWING COMPONENTS: SUPERVISOR THIS VERSION OF UMMPS (045) HAS BEEN ASSEMBLED WITH THE NOSLT AND SIMPLEX PARAMETERS, I.E., IT DOES NOT USE THE SLT INSTRUCTION AND ASSUMES A SIMPLEX SYSTEM. AN ASSEMBLY LISTING FOR THIS VERSION OF UMMPS IS INCLUDED AS COMPONENT 045/6. HASP THIS VERSION OF HASP (387) HAS BEEN ASSEMBLED WITH ZERO RJE STATIONS (INSTEAD OF 21), 10 EXECUTION PROCESSORS (INSTEAD OF 25), MAXIMUM JOB QUEUE OF 200 (INSTEAD OF 600), THE UM PARAMETER SET TO NO, AND NOSLT. AN ASSEMBLY LISTING IS INCLUDED AS COMPONENT 387/9. HASPLING THIS VERSION OF THE HASPLING (388) HAS BEEN ASSEMBLED WITH THE UM AND RJE PARAMETERS SET TO NO. THE HASPLING IS SMALL ENOUGH SO THAT NO LISTING IS DISTRIBUTED. CONFIG THIS VERSION OF THE CONFIG PROGRAM (046) IS ASSEMBLED TO COPY THE SIMPLEX PSA (162/2) INSTEAD OF THE DUPLEX PSA (162/1). THE DISTRIBUTED LISTING (046/4) IS FOR THE DUPLEX VERSION IN 468/1, NOT THE SIMPLEX VERSION IN THIS OBJECT DECK. GSFS THIS VERSION OF GETSPACE/FREESPAC (041) IS ASSEMBLED WITH THE NOSLT OPTION. NO LISTING IS DISTRIBUTED. JOBS THIS VERSION OF TSRTN (413/1) IS ASSEMBLED WITH THE SLT OPTION OFF. NO LISTING IS DISTRIBUTED. ***NOTE: THE DISTRIBUTED SOURCE, NOT OBJECT, HAS A BUG WHICH WAS DISCOVERED TOO LATE FOR 1 WED JUL 24/96 18:21:34 Page 123 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 CORRECTION OF THE SOURCE. THE COMPARE INSTRUCTION AT LINE 2298 (IN 413/1) SHOULD BE CHANGED TO A COMPARE LOGICAL. THIS AFFECTS ONLY THE NON-SLT VERSION, BUT THE NON-SLT OBJECT INCLUDED IN THIS SIMPLEX OBJECT DECK DOES INCLUDE THE CORRECTION; ONLY THE DISTRIBUTED SOURCE IS WRONG. NOTE THAT THE TABLES DECK IN THIS COMPONENT IS FOR THE UM SYSTEM, I.E., IT IS THE SAME AS THE TABLES DECK IN THE DUPLEX OBJECT (468/1). THIS SIMPLEX OBJECT IS ALSO ON THE DISTRIBUTED RESTORE TAPE. THE DECKGEN PROGRAM (004/5), WHICH IS ALSO ON THE RESTORE TAPE, IS A STAND-ALONE PROGRAM WHICH IS TO BE USED DURING SYSTEM INSTALLATION TO GENERATE A TABLES OBJECT DECK IN RESPONSE TO INPUT FROM THE CONSOLE WHICH DESCRIBES THE LOCAL CONFIGURATION. IT WILL ALSO COPY THE SIMPLEX OBJECT DECK FROM THE RESTORE TAPE TO A SCRATCH TAPE AND INSERT THE NEW TABLES DECK AS IT DOES SO. THIS SCRATCH TAPE CAN THEN BE IPLED TWICE: FIRST TO LOAD THE SYSTEM OBJECT DECK AND PRODUCE A MAP, AND SECOND TO WRITE THE DISK IPL RECORD FOR FUTURE LOADING OF THE SYSTEM FROM DISK. THIS DECK HAS THE SAME 2 SETS OF PATCHES AS THE DUPLEX DECK (468/1). 0 Referenced by comments of: 45/6, 387/9, 468/1 00468/3 SYSTEM OBJECT DECK WRITEUP WF MTS: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 00470 PCB DSECT COPY:PCBDSECT SA G S0699 D3TAPE POSN=PCBDSECT 4 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). 1 WED JUL 24/96 18:21:34 Page 124 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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. 1 WED JUL 24/96 18:21:34 Page 125 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/39 AND 482/40) UM 00475 OS SIMULATION PACKAGE S # (OBSOLETE) D2T1 284 UM 00476 DBS:MSG S # (OBSOLETE) D2T1 441 UM 00477 SIMPLEX OBJECT DECK OC # (SEE COMP 468/2) D2T1 442 UM MTA 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. 0 Referenced by comments of: 461/1 1 WED JUL 24/96 18:21:34 Page 126 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/7 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 D3T3 71 FILE_SYSTEM.TRAK.SA.7 1 LINE 80 17 PAGE UM PIRKOLA AUG. 01, 1973 18:54.32 0 BASIC SUBROUTINES TO HANDLE FILE BUFFERING AND TO READ AND UPDATE PHYSICAL RECORDS. COPIES COPY:FCBEQU (482/27) AND COPY:DSKDSCT (482/42). 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. 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. 1 WED JUL 24/96 18:21:34 Page 127 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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). 00482/16 FILE SYSTEM READL OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 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) 1 WED JUL 24/96 18:21:34 Page 128 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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). 00482/24 FILE SYSTEM CATALOG SUBR OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 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. 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 D3T3 84 FILE_SYSTEM.ICEQU.SA.29 1 LINE 80 3 PAGE UM PIRKOLA AUG. 01, 1973 18:56.26 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 D3T3 85 FILE_SYSTEM.TABLRTN.SA.30 1 LINE 80 45 PAGE UM PIRKOLA AUG. 01, 1973 18:56.27 0 SUBROUTINES TO MAINTAIN SYSTEM-WIDE SHARED FILE TABLE. COPIES COPY:ICEQU (482/29). 0 Referenced by comments of: 482/10, 534/7 1 WED JUL 24/96 18:21:34 Page 129 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0622 D3MISC FSNAME=CATALOG.INTERNALS 39 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 S0622 D3MISC FSNAME=LINEFILES.INTERNALS 40 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 S0622 D3MISC FSNAME=SEQFILES.INTERNALS 41 D3T3 89 FILE_SYSTEM.SEQ_FILE_DESC.WF.36 1 LINE 119 3 PAGE UM PIRKOLA JULY 24, 1973 22:13.06 0 THIS IS A WRITEUP ON THE "INTERNAL STRUCTURE OF SEQUENTIAL FILES IN MTS" 00482/37 FILE SYSTEM SHAR INTERNALS WF G S0622 D3MISC FSNAME=SHARING.INTERNALS 6 D3T3 90 FILE_SYSTEM.SHAR_INTERNALS.WF.37 1 LINE 114 3 DISK UM PIRKOLA FEB. 09, 1973 16:50.32 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 S0622 D3MISC FSNAME=M229 28 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. 1 WED JUL 24/96 18:21:34 Page 130 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 67/1, 67/2, 67/4, 104/95, 482/17, 482/19, 482/23, 502/13, 597/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 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). 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), 1 WED JUL 24/96 18:21:34 Page 131 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 (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 1 WED JUL 24/96 18:21:34 Page 132 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 S0622 D3MISC FSNAME=M161 12 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 *ACCRESTORE D3T3 107 ACCRESTORE..O. 1 LINE 255 3 PAGE UM ENGLE AUG. 03, 1973 21:25.47 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 1 WED JUL 24/96 18:21:34 Page 133 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00485/1 *PLC UPDATE UU G W061:PLCUPDATE D3T3 108 PLC.UPDATE.UU.1 1 LINE 73 10 PAGE UM HENRIKSEN AUG. 03, 1973 21:25.53 0 UPDATE TO CONVERT CORNELL'S OS/360 PLC (VERSION 6.5) COMPILER/OPERATING SYSTEM INTERFACE TO RUN IN MTS. NOTE: PLC CANNOT BE DISTRIBUTED; YOU MUST OBTAIN IT DIRECTLY FROM CORNELL UNIVERSITY. 00485/2 *PLC INSTALLATION P W061:PLC.INSTALL D3T3 109 PLC.INSTALLATION.P.2 1 LINE 81 1 PAGE UM HENRIKSEN 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 W061:PLCUSE.S D3T3 110 PLC.USER'S_GUIDE.WF.3 1 LINE 92 45 PAGE UM HENRIKSEN AUG. 03, 1973 21:26.02 0 THIS IS COMPUTING CENTER MEMO M178 -- "USER'S GUIDE TO PL/C - THE CORNELL COMPILER FOR PL/I" NOTE: THE FINAL EDITING OF THIS MAY NOT BE QUITE COMPLETE. 00486/1 *HBQ SA G HBQ0 W092:HBQ.S D3T3 111 HBQ..SA.1 1 LINE 80 18 PAGE UM PIRKOLA 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 PIRKOLA 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. 1 WED JUL 24/96 18:21:34 Page 134 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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) D3T3 117 TAPETEST..SA.1 1 LINE 80 10 PAGE UM WSG AUG. 03, 1973 21:26.41 0 THE TAPETEST (TT) PROGRAM WAS DESIGNED TO CHECK OUT THE MTS MAG TAPE ROUTINES (135). HOWEVER, IT SEEMS TO BE A RATHER MORE GENERALLY USEFUL UTILITY FOR MANIPULATING TAPES. IT FIELDS ATTENTION INTERRUPTS AND DSR ERRORS. TT WILL ACCEPT THE FOLLOWING COMMANDS (ON GUSER): ATTACH FDNAME ATTACH A FILE OR DEVICE (CALL "GETFD"). CONTROL STRING CALL "CONTROL" WITH STRING AS THE ARGUMENT. MTS STRING CALL "MTSCMD" (WITH STRING) OR "MTS" (IF STRING OMITTED). READ N READ THE NEXT N (OR 1 IF OMITTED) RECORDS AND PRINT THE LENGTH AND DATA. 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 "STA" WHICH REQUIRES 2 LETTERS.) EXAMPLE: $MOUNT POOL 9TP *T* $RUN TT(1000) A *T* C DSN TEST1 C FMT FB(8000,80) W TESTFILE C WTM C DSN TWO W HELLO $ENDFILE C REW SNS MTS $RUN *TAPEDUMP 0=*T* SPRINT=*PRINT* 00489/2 TAPETEST OC G WSG:TT(1000) D3T3 118 TAPETEST..OC.2 1 LINE 80 3 PAGE UM WSG AUG. 03, 1973 21:26.46 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. 1 WED JUL 24/96 18:21:34 Page 135 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 *SCRAMBLE OC G *SCRAMBLE D3T3 122 SCRAMBLE..OC. 1 LINE 175 3 PAGE UM ? 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 A LINE 10000 IN THE OBJECT FILE AND IS SCRAMBLED. ANYBODY KNOW WHAT KEY WAS USED TO SCRAMBLE IT? MAYBE FRANK WESTERVELT AT WSU MIGHT. THERE IS A "$CONTINUE WITH *DUMMY*" RECORD AT THE END OF THIS FILE. 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 1 WED JUL 24/96 18:21:34 Page 136 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 IS *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. 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. 1 WED JUL 24/96 18:21:34 Page 137 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 S0622 D3MISC FSNAME=M240 36 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 S0622 D3MISC FSNAME=SNAP.UPD 57 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. 1 WED JUL 24/96 18:21:34 Page 138 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 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. 1 WED JUL 24/96 18:21:34 Page 139 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 1 WED JUL 24/96 18:21:34 Page 140 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 00499/1 *PROJECTACCOUNT OBJECT OE *PROJECTACCOUNT D3T3 179 PROJECTACCOUNT.OBJECT.OE.1 1 LINE 255 7 PAGE UM ENGLE AUG. 03, 1973 21:42.16 0 MTS PROJECT ACCOUNTING ALLOCATION PROGRAM. ALLOWS PROJECT DIRECTORS AND INSTRUCTORS TO DISTRIBUTE MONEY, DISK SPACE, AND TERMINAL AND PLOT TIME TO THEIR USER ID'S AND TO CHANGE EXPIRATION DATES. FILE IS LINKEDIT OF ACCMXMAT (104/21), THE MAIN PROGRAM, PLUS ACCIO (104/19), DIRECTRY (104/46), FILENAME (104/44), ACUSPRNT (104/29), GETFILE (104/90), AND FASTIOCK (104/84). 00499/2 *PROJECTACCOUNT WRITEUP WT S0027 DISTRB FSNAME=PRJACCWRITUP D3T3 180 PROJECTACCOUNT.WRITEUP.WT.2 1 LINE 80 13 DISK UM ENGLE APR. 24, 1973 16:46.10 0 TEXT/360 MASTER FOR USER-LEVEL DOCUMENTATION. 00500/1 BILLING BILLRFT SP G BLRF S0027 DISTRB FSNAME=BILLRFT D3T3 181 BILLING.BILLRFT.SP.1 1 LINE 80 16 PAGE UM ENGLE OCT. 13, 1972 12:12.00 0 PROGRAM TO REFORMAT STATISTICS RECORDS, HAND BILLING RECORDS, OS/360 BILLING RECORDS, AND MERIT NETWORK RECORDS FOR BILLING SORT. 00500/2 BILLING BILLRFT OC G S0027 DISTRB FSNAME=BLRF D3T3 182 BILLING.BILLRFT.OC.2 1 LINE 80 8 DISK UM ENGLE OCT. 13, 1972 12:13.24 0 REFORMATTING PROGRAM FOR REGULAR BILLING (COMPILED WITH %NET='';). 1 WED JUL 24/96 18:21:34 Page 141 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/3 BILLING BILLRFT OC G S0027 DISTRB FSNAME=NETBLRF D3T3 183 BILLING.BILLRFT.OC.3 1 LINE 80 5 DISK UM ENGLE OCT. 13, 1972 12:16.55 0 REFORMATTING PROGRAM FOR NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/4 BILLING BILLING SP G BILL S0027 DISTRB FSNAME=BILLING D3T3 184 BILLING.BILLING.SP.4 1 LINE 80 19 PAGE UM ENGLE JAN. 05, 1973 16:03.34 0 PROGRAM TO DO MAIN PART OF BILLING AFTER SORT. 00500/5 BILLING BILLING OC G S0027 DISTRB FSNAME=BILL D3T3 185 BILLING.BILLING.OC.5 1 LINE 80 9 DISK UM ENGLE JAN. 05, 1973 16:04.31 0 REGULAR BILLING (COMPILER WITH %NET='';). 00500/6 BILLING BILLING OC G S0027 DISTRB FSNAME=NETBILL D3T3 186 BILLING.BILLING.OC.6 1 LINE 80 4 DISK UM ENGLE JAN. 05, 1973 16:06.09 0 NETWORK BILLING (COMPILED WITH %NET='YES';). 00500/7 BILLING BILPRNT SP G BLPR S0027 DISTRB FSNAME=BILPRNT 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. 00500/8 BILLING BILPRNT OC G S0027 DISTRB FSNAME=BLPR D3T3 188 BILLING.BILPRNT.OC.8 1 LINE 80 7 DISK UM ENGLE JAN. 05, 1973 16:09.29 00500/9 BILLING BILLWRITEUP WF S S0027 DISTRB FSNAME=BILLWRITEUP D3T3 189 BILLING.BILLWRITEUP.WF.9 1 LINE 80 4 DISK UM ENGLE JAN. 05, 1973 16:26.02 0 WRITEUP FOR RUNNING BILLING. 00500/10 BILLING BILLWRITEUP PF S S0027 DISTRB FSNAME=BLWRITEUPOUT D3T3 190 BILLING.BILLWRITEUP.PF.10 1 LINE 133 7 DISK UM ENGLE JAN. 05, 1973 16:26.21 00500/11 BILLING BILLSOURCE C S0027 DISTRB FSNAME=BILLSOURCE D3T3 191 BILLING.BILLSOURCE.C.11 1 LINE 122 1 DISK UM ENGLE JAN. 05, 1973 16:28.08 0 COMMAND FILE FOR RUNNING BILLING. 00500/12 BILLING BILLTABLES D S0027 DISTRB FSNAME=BILLTABLES D3T3 192 BILLING.BILLTABLES.D.12 1 LINE 80 3 DISK UM ENGLE OCT. 13, 1972 13:10.24 0 MACHINE READABLE TABLE OF EFFECTIVE DATES AND RATES FOR BILLING. READ DURING EXECUTION OF BILLRFT AND BILLING. 00500/13 BILLING DIVISION D S0027 DISTRB FSNAME=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. 1 WED JUL 24/96 18:21:34 Page 142 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/14 BILLING COVER D S0027 DISTRB FSNAME=COVER D3T3 194 BILLING.COVER.D.14 1 LINE 66 1 DISK UM ENGLE OCT. 13, 1972 13:10.48 0 MACHINE READABLE COVER LETTER FOR LISTINGS OF INDIVIDUAL RUNS. READ BY BILLING. 00500/15 BILLING RESTART C S0027 DISTRB FSNAME=RESTART D3T3 195 BILLING.RESTART.C.15 1 LINE 43 1 DISK UM ENGLE JAN. 05, 1973 16:43.34 0 COMMAND FILE TO RESTART IN THE MIDDLE OF THE BILLING PROCESS AFTER SOME PARTS HAVE BEEN COMPLETED. 00500/16 BILLING BILLLIB OL S0027 DISTRB FSNAME=BILLLIB D3T3 196 BILLING.BILLLIB.OL.16 1 LINE 80 2 DISK UM ENGLE JAN. 05, 1973 16:45.53 0 LIBRARY FOR BILLING PROGRAMS. ENDS WITH A "$CONTINUE WITH *PL1LIB" CARD. 00500/17 BILLING FLUSH SP G FLSH S0622 D3MISC FSNAME=FLUSH 33 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/18 BILLING BLPRJFL SA G BPFL S0027 DISTRB FSNAME=BLPRJFL 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. COPIES ACCPROJFMT (104/3). 00500/19 BILLING BLPRJFL OC G S0027 DISTRB FSNAME=BPFL D3T3 199 BILLING.BLPRJFL.OC.19 1 LINE 80 1 DISK UM ENGLE JAN. 05, 1973 18:07.08 00500/20 BILLING PNLIST SP G PNLS S0027 DISTRB FSNAME=PNLIST D3T3 200 BILLING.PNLIST.SP.20 1 LINE 80 4 PAGE UM ENGLE JAN. 05, 1973 18:07.49 0 PROGRAM TO PRODUCE LISTINGS OF PROJECT NUMBERS IN *PROJECT SORTED BY UNIVERSITY ACCOUNT NUMBER, INTER-DEPARTMENTAL REQUISITION NUMBER, AND UNIT CODE. 00500/21 BILLING PNLIST OC G S0027 DISTRB FSNAME=PNLS D3T3 201 BILLING.PNLIST.OC.21 1 LINE 80 3 DISK UM ENGLE JAN. 05, 1973 18:07.57 00500/22 BILLING PNLSEXTR SA G PEXT S0027 DISTRB FSNAME=PNLSEXTR D3T3 202 BILLING.PNLSEXTR.SA.22 1 LINE 80 3 PAGE UM ENGLE JAN. 05, 1973 18:10.24 0 SUBROUTINE TO EXTRACT PROJECT INFORMATION FOR PNLIST. CALLED BY PRJLIST WHICH IS CALLED BY PNLIST. COPIES ACCPROJFMT (104/3). 00500/23 BILLING PNLSEXTR OC G S0027 DISTRB FSNAME=PEXT D3T3 203 BILLING.PNLSEXTR.OC.23 1 LINE 80 1 DISK UM ENGLE JAN. 05, 1973 18:10.43 00500/24 BILLING BLRECPR SP G BLRP S0027 DISTRB FSNAME=BLRECPR 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. 1 WED JUL 24/96 18:21:34 Page 143 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00500/25 BILLING BLRECPR OC G S0027 DISTRB FSNAME=BLRP D3T3 205 BILLING.BLRECPR.OC.25 1 LINE 80 2 DISK UM ENGLE JAN. 09, 1973 13:51.51 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) D3T3 208 DEADFILES.SCANFILES.SA.1 1 LINE 80 8 PAGE UM BERSTIS AUG. 03, 1973 22:01.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 WED JUL 24/96 18:21:34 Page 144 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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. 0 Referenced by comments of: 92/1 1 WED JUL 24/96 18:21:34 Page 145 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00502/2 DEADFILES SCANFILES OC G RSTR:DEADSCANFILE(1,998) D3T3 209 DEADFILES.SCANFILES.OC.2 1 LINE 255 5 PAGE UM BERSTIS AUG. 03, 1973 22:01.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) D3T3 212 DEADFILES.PRINTSAVE.SA.5 1 LINE 80 3 PAGE UM BERSTIS AUG. 03, 1973 22:02.07 0 PROGRAM TO PRINT A SORTED LIST OF FILES ON A SAVE TAPE SEPARATED BY USERID. ASSEMBLE WITH *SYSMAC. 00502/6 DEADFILES PRINTSAVE OC G RSTR:DEADPRNTSAVE(1,998) D3T3 213 DEADFILES.PRINTSAVE.OC.6 1 LINE 80 1 PAGE UM BERSTIS AUG. 03, 1973 22:02.12 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 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 WED JUL 24/96 18:21:34 Page 146 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00502/12 DEADFILES SAVEFILES OC 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 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 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 S0027 DISTRB FSNAME=DEDFLFIX 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 S0027 DISTRB FSNAME=DFFX 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. 00504/004 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. 00504/005 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. 1 WED JUL 24/96 18:21:34 Page 147 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 1 WED JUL 24/96 18:21:34 Page 148 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00505/12 ALGOL OSALG30 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 19 D3T3 238 ALGOL.OSALG30.SA.12 1 SEQ 80 62 PAGE UNE SALISBURY AUG. 03, 1973 22:22.03 00505/13 ALGOL OSALG40 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 20 D3T3 239 ALGOL.OSALG40.SA.13 1 SEQ 80 17 PAGE UNE SALISBURY AUG. 03, 1973 22:22.10 00505/14 ALGOL OSALG50 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 21 D3T3 240 ALGOL.OSALG50.SA.14 1 SEQ 80 96 PAGE UNE SALISBURY AUG. 03, 1973 22:22.22 00505/15 ALGOL OSALG51 SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 22 D3T3 241 ALGOL.OSALG51.SA.15 1 SEQ 80 24 PAGE UNE SALISBURY AUG. 03, 1973 22:22.32 00505/16 ALGOL OSALG51M SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 23 D3T3 242 ALGOL.OSALG51M.SA.16 1 SEQ 80 9 PAGE UNE SALISBURY AUG. 03, 1973 22:22.36 00505/17 ALGOL OSMAC SA G S0504 'UBC -> UM #6' FMT=FB(3200,80) 24 D3T3 243 ALGOL.OSMAC.SA.17 1 SEQ 80 103 PAGE UNE SALISBURY AUG. 03, 1973 22:22.49 0 SPECIAL OS INTERFACE MACRO LIBRARY. MUST BE USED TO ASSEMBLE COMPS 505/7 THROUGH 505/16. 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 1 WED JUL 24/96 18:21:34 Page 149 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00505/23 ALGOL *ALGOLLIB OL G *ALGOLLIB D3T3 249 ALGOL.*ALGOLLIB.OL.23 1 SEQ 3963 11 PAGE UM SALISBURY AUG. 03, 1973 22:24.45 0 COMPLETE LIBRARY OBJECT FILE. CONSISTS OF OBJECT OF COMPS 505/20 AND 505/21 (THE OS/360 LIBRARY SOURCE) PLUS THE LIBRARY/MTS INTERFACE MODULE (505/22) AND AN " ENT LIBENTRY" LOADER CARD TO SPECIFY THE LIBRARY ENTRY POINT. 00505/24 ALGOL KDFSORC S G S0504 'UBC -> UM #6' FMT=FB(3200,80) 10 D3T3 250 ALGOL.KDFSORC.S.24 1 SEQ 80 45 PAGE UNE SALISBURY AUG. 03, 1973 22:25.02 0 SOURCE FOR THE "KDF9" I/O LIBRARY. MAY BE USED BY USERS WHO ARE ACCUSTOMED TO RUNNING ALGOL PROGRAMS ON THE KDF9 COMPUTER. THE SOURCE IS ENTIRELY IN ALGOL EXCEPT FOR "FORMAT" WHICH IS ASSEMBLE LANGUAGE. 00505/25 ALGOL *KDFLIB OL G *KDFLIB D3T3 251 ALGOL.*KDFLIB.OL.25 1 SEQ 348 56 PAGE UM SALISBURY AUG. 03, 1973 22:25.11 0 KDF9 I/O LIBRARY AS PRODUCED BY *GENLIB. NOTE: THIS VERSION OF KDFLIB USES SHORT FLOATING POINT ARITHMETIC. PAR=LONG,PROCEDURE SHOULD BE USED TO RECOMPILE THE LIBRARY IF LONG FLOATING POINT ARITHMETIC IS DESIRED. 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. 1 WED JUL 24/96 18:21:34 Page 150 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 S0622 D3MISC FSNAME=PL1.LLXU.S 55 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. 1 WED JUL 24/96 18:21:34 Page 151 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 FRONCZAK AUG. 01, 1973 21:58.56 0 MTS COMMANDS TO CREATE AND RESTORE FILES NEEDED TO GENERATE BASIC. ASSUMES THAT BASIC (BY ITSELF) IS ON A *FS TAPE AND RESTORES FILES FROM IT. 00508/2 *BASIC STRT2 C W070:BASIC.STRT2 D3T4 20 BASIC.STRT2.C.2 1 LINE 126 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.00 0 MTS COMMANDS TO ASSEMBLE AND LINK-EDIT BASIC. ASSUMES THE ASSEMBLER IS ON A REGULAR BLOCKED TAPE. 00508/3 *BASIC BIFDSECT SA G W070:BIFDSECT D3T4 21 BASIC.BIFDSECT.SA.3 1 LINE 66 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.05 0 THE DSECT USED BY "BUILT-IN" FUNCTIONS. 00508/4 *BASIC CLIDSECT SA G W070:CLIDSECT D3T4 22 BASIC.CLIDSECT.SA.4 1 LINE 72 3 PAGE UM FRONCZAK AUG. 01, 1973 21:59.10 0 THE DSECT USED BY COMMAND AND CMNDINIT. 00508/5 *BASIC DS6A SA G W070:DS6A D3T4 23 BASIC.DS6A.SA.5 1 LINE 72 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.15 0 THE DSECT USED BY LOADER. 00508/6 *BASIC DSECTCOMM SA G W070:DSECTCOMM D3T4 24 BASIC.DSECTCOMM.SA.6 1 LINE 70 3 PAGE UM FRONCZAK AUG. 01, 1973 21:59.20 0 THE BASIC COMMON DSECT. 1 WED JUL 24/96 18:21:34 Page 152 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/7 *BASIC DSECT9A SA G W070:DSECT9A D3T4 25 BASIC.DSECT9A.SA.7 1 LINE 71 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.24 0 THE DSECT USED BY ENCODE, DECODE, AND CIOGLTCH. 00508/8 *BASIC FHDRDSECT SA G W070:FHDRDSECT D3T4 26 BASIC.FHDRDSECT.SA.8 1 LINE 72 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.29 0 THE "FILE HEADER" DSECT. 00508/9 *BASIC GLOBALSYM SA G W070:GLOBALSYM D3T4 27 BASIC.GLOBALSYM.SA.9 1 LINE 62 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.34 0 CODE TO SET "GLOBAL SETC SYMBOLS" TO ENABLE OR DISABLE THE SLT AND SWPR INSTRUCTIONS AND DEFINE THE INSTALLATION NAME. 00508/10 *BASIC INTFACMAC SM G W070:INTFACMAC D3T4 28 BASIC.INTFACMAC.SM.10 1 LINE 58 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.39 0 BASIC MACRO LIBRARY. 00508/11 *BASIC LDICDSCT SA G W070:LDICDSCT D3T4 29 BASIC.LDICDSCT.SA.11 1 LINE 72 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.45 0 THE "LOADING DIRECTORY" DSECT. 00508/12 *BASIC MAPDSECT SA G W070:MAPDSECT D3T4 30 BASIC.MAPDSECT.SA.12 1 LINE 68 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.51 0 THE "MAP ENTRY DESCRIPTION" DSECT. 00508/13 *BASIC OPDEFEQUS SA G W070:OPDEFEQUS D3T4 31 BASIC.OPDEFEQUS.SA.13 1 LINE 70 1 PAGE UM FRONCZAK AUG. 01, 1973 21:59.54 0 "EQUS" USED IN OPERATOR DEFINITIONS. 00508/14 *BASIC OPDEFMACROS SM G W070:OPDEFMACROS D3T4 32 BASIC.OPDEFMACROS.SM.14 1 LINE 72 3 PAGE UM FRONCZAK AUG. 01, 1973 21:59.59 0 MACRO LIBRARY TO GENERATE THE OPERATOR DEFINITIONS. 00508/15 *BASIC PDSECT SA G W070:PDSECT D3T4 33 BASIC.PDSECT.SA.15 1 LINE 72 3 PAGE UM FRONCZAK AUG. 01, 1973 22:00.06 0 THE DSECT USED BY THE LEXICAL SCAN ROUTINES (LEX----). 00508/16 *BASIC SYMTABDEF SA G W070:SYMTABDEF D3T4 34 BASIC.SYMTABDEF.SA.16 1 LINE 33 1 PAGE UM FRONCZAK AUG. 01, 1973 22:00.10 0 THE SYMBOL TABLE DSECT (UNDOCUMENTED). 1 WED JUL 24/96 18:21:34 Page 153 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/17 *BASIC SYMTABSECT SA G W070:SYMTABSECT D3T4 35 BASIC.SYMTABSECT.SA.17 1 LINE 70 1 PAGE UM FRONCZAK AUG. 01, 1973 22:00.15 0 THE SYMBOL TABLE DSECT (DOCUMENTED). 00508/18 *BASIC WSLAYOUT SA G W070:WSLAYOUT D3T4 36 BASIC.WSLAYOUT.SA.18 1 LINE 68 1 PAGE UM FRONCZAK AUG. 01, 1973 22:00.19 0 THE "WORKING STORAGE LAYOUT" DSECT. 00508/19 *BASIC CLI SA G S0358 BSCSEF POSN=*BASIC.CLI 1 D3T4 37 BASIC.CLI.SA.19 1 SEQ 80 118 PAGE UM FRONCZAK AUG. 01, 1973 22:01.38 00508/20 *BASIC LEX SA G S0358 BSCSEF POSN=*BASIC.LEX 2 D3T4 38 BASIC.LEX.SA.20 1 SEQ 80 111 PAGE UM FRONCZAK AUG. 01, 1973 22:02.21 00508/21 *BASIC CMP SA G S0358 BSCSEF POSN=*BASIC.CMP 3 D3T4 39 BASIC.CMP.SA.21 1 SEQ 80 99 PAGE UM FRONCZAK AUG. 01, 1973 22:03.05 00508/22 *BASIC CPS SA G S0358 BSCSEF POSN=*BASIC.CPS 4 D3T4 40 BASIC.CPS.SA.22 1 SEQ 80 79 PAGE UM FRONCZAK AUG. 01, 1973 22:03.48 00508/23 *BASIC NUM SA G S0358 BSCSEF POSN=*BASIC.NUM 5 D3T4 41 BASIC.NUM.SA.23 1 SEQ 80 60 PAGE UM FRONCZAK AUG. 01, 1973 22:04.43 00508/24 *BASIC VFL SA G S0358 BSCSEF POSN=*BASIC.VFL 6 D3T4 42 BASIC.VFL.SA.24 1 SEQ 80 25 PAGE UM FRONCZAK AUG. 01, 1973 22:05.36 00508/25 *BASIC BIO SA G S0358 BSCSEF POSN=*BASIC.BIO 7 D3T4 43 BASIC.BIO.SA.25 1 SEQ 80 47 PAGE UM FRONCZAK AUG. 01, 1973 22:06.10 00508/26 *BASIC INF SA G S0358 BSCSEF POSN=*BASIC.INF 8 D3T4 44 BASIC.INF.SA.26 1 SEQ 80 42 PAGE UM FRONCZAK AUG. 01, 1973 22:06.44 00508/27 *BASIC BSI SA G S0358 BSCSEF POSN=*BASIC.BSI 9 D3T4 45 BASIC.BSI.SA.27 1 SEQ 80 5 PAGE UM FRONCZAK AUG. 01, 1973 22:06.57 00508/28 *BASIC LIBSYM SA G W070:LIBSYM D3T4 46 BASIC.LIBSYM.SA.28 1 LINE 66 1 PAGE UM FRONCZAK AUG. 01, 1973 22:07.05 0 PARAMETERIZES THE STAFF USER ID FOR BASIC LIBRARY FILES AS WELL AS THE LIBRARY PREFIX CHARACTER. 00508/29 *BASIC SPECIALRATES SA G W070:SPECIALRATES D3T4 47 BASIC.SPECIALRATES.SA.29 1 LINE 70 1 PAGE UM FRONCZAK AUG. 01, 1973 22:07.07 0 THE DISK STORAGE CHARGES USED FOR THE CALCULATION OF THE REMAINING BALANCE FOR: %PRINT BALANCE AND STATISTICS PRINTING. 00508/30 *BASIC OBJECT OC G SEG2:BASIC D3T4 48 BASIC.OBJECT.OC.30 1 LINE 80 106 PAGE UM FRONCZAK AUG. 01, 1973 22:07.15 0 OBJECT FOR BASIC WHICH IS LOADED INTO SHARED VM AT IPL BY THE SEG 2 LOADER. 0 Referenced by comments of: 508/31 1 WED JUL 24/96 18:21:34 Page 154 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00508/31 *BASIC *BASIC OC G *BASIC D3T4 49 BASIC.*BASIC.OC.31 1 SEQ 24 1 PAGE UM FRONCZAK AUG. 01, 1973 22:08.11 0 CONTAINS ONLY THE 4 LOADER CARDS (RIP, COM, LCS, LDT) NECESSARY TO FORCE THE REFERENCE TO THE SEGMENT 2 (SHARED) BASIC (508/30). 00508/32 *BASIC *BASICHELPC M *BASICHELPC D3T4 50 BASIC.*BASICHELPC.M.32 1 LINE 66 1 PAGE UM FRONCZAK AUG. 01, 1973 22:08.16 0 BASIC HELP COMMAND FILE. 00508/33 *BASIC INSTALLATION PT W070:T360SYSGENPRT D3T4 51 BASIC.INSTALLATION.PT.33 1 SEQ 132 4 PAGE UM FRONCZAK AUG. 01, 1973 22:08.51 0 NOTES ON THE INSTALLATION OF BASIC. COPY TO A TN PRINTER @MCC. 00508/34 *BASIC *DEAL D G W054:BSC.S*DEAL D3T4 52 BASIC.*DEAL.D.34 1 SEQ 4032 2 PAGE UM FRONCZAK 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. 00508/35 *BASIC *PLOT D G W054:BSC.S*PLOT D3T4 53 BASIC.*PLOT.D.35 1 SEQ 4032 2 PAGE UM FRONCZAK 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 FRONCZAK 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 FRONCZAK 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 FRONCZAK 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 FRONCZAK 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 FRONCZAK AUG. 01, 1973 22:09.30 00509/1 PERMIT CMMD/SUBR SA G DWB:PF.PERSUB D3T4 59 PERMIT.CMMD/SUBR.SA.1 1 LINE 72 13 PAGE UM DWB AUG. 01, 1973 22:09.37 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), AND COPY:CATEQU (482/28). HAS ENTRY POINTS PERCMD (FOR $PERMIT CLS CALL) AND PERMIT (NORMAL SUBROUTINE CALL). CALLS THE FILE ROUTINES (GETCINF, SDMOD, AND SDWRITE) DIRECTLY. 1 WED JUL 24/96 18:21:34 Page 155 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00509/2 PERMIT CMMD/SUBR OC G *CLSPERMIT D3T4 60 PERMIT.CMMD/SUBR.OC.2 1 LINE 80 6 PAGE UM DWB AUG. 01, 1973 22:09.59 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. 00511/1 *OBJLIST SA G W062:OBJLIST D3T4 64 OBJLIST..SA.1 1 LINE 68 6 PAGE UM TIFFANY AUG. 01, 1973 22:12.27 0 PROGRAM TO DUMP MTS OBJECT DECKS IN A NICE FORMAT. 00511/2 *OBJLIST OC G *OBJLIST D3T4 65 OBJLIST..O.2 1 LINE 80 3 PAGE UM TIFFANY AUG. 01, 1973 22:12.40 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. 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? 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. 1 WED JUL 24/96 18:21:34 Page 156 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0658 W051SV FSNAME=11MANUAL.SOU D3T4 81 11ASR.USER'S_GUIDE.WT.12 1 LINE 79 46 PAGE UM LUBBERS JULY 17, 1973 02:23.58 0 THIS IS COMPUTING CENTER MEMO M208 -- "A USER'S GUIDE TO *11ASR AND *LINK11" 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). 1 WED JUL 24/96 18:21:34 Page 157 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0027 DISTRB FSNAME=GRGJULTM D3T4 85 GRGJUL_SUBRS..SA.1 1 LINE 80 4 PAGE UM ENGLE MAY 03, 1973 09:59.47 0 GREGORIAN TO JULIAN DATE/TIME CONVERSION SUBROUTINES (GRGJULDT, GRGJULTM, AND GRJLSEC). 0 Referenced by comments of: 143/2, 436/1, 529/1 00518/2 GRGJUL 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. 00519/1 GRJLDT/GRJLTM SUBRS GRJLDT SA G GJDT S0027 DISTRB FSNAME=GRJLDT 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 S0027 DISTRB FSNAME=GRJLTM 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 S0027 DISTRB FSNAME=GROSDT D3T4 88 GROSDT..SA.1 1 LINE 80 1 PAGE UM ENGLE OCT. 03, 1972 11:52.15 0 GREGORIAN TO OS/360 (YYDDD) DATE CONVERSION SUBROUTINE. 00520/2 GROSDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00521/1 JLGRDT/JLGRTM JLGRDT SA G JGDT S0027 DISTRB FSNAME=JLGRDT 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. 1 WED JUL 24/96 18:21:34 Page 158 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00521/2 JLGRDT/JLGRTM JLGRDT OC G # *LIBRARY (SEE COMP 524) UM ENGLE 00521/3 JLGRDT/JLGRTM JLGRTM SA G JGTM S0027 DISTRB FSNAME=JLGRTM 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 S0027 DISTRB FSNAME=JULGRGTM 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 S0027 DISTRB FSNAME=OSGRDT 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 D3T4 93 LIBRARY..OL.1 1 SEQ 13704 33 PAGE UM SALISBURY AUG. 01, 1973 22:30.15 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 D3T4 94 LIBRARY.CREATELIB.C.2 1 LINE 75 1 PAGE UM SALISBURY AUG. 01, 1973 22:30.19 0 MTS COMMAND FILE TO CONSTRUCT A NEW LIBRARY FILE; IT COPIES THE INDIVIDUAL MODULES INTO A FILE, LINK EDITS THE FILE, AND THEN RUN *GENLIB. NOTE: THIS COMMAND FILE HAS MANY "$CONTINUE WITH" LINES FOR PRIVATE FILES (NOT DISTRIBUTED) WHICH CONSTITUTE THE COMPONENTS OF *LIBRARY. 0 Referenced by comments of: 524/3 00524/3 *LIBRARY ENTERLIB C LIB:ENTERLIB D3T4 95 LIBRARY.ENTERLIB.C.3 1 LINE 37 1 PAGE UM SALISBURY AUG. 01, 1973 22:30.24 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. 1 WED JUL 24/96 18:21:34 Page 159 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 160 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 161 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 162 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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:SOURCE.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:EFL.DOC 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:SOURCE.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/50) UM HARDING 00526/3 SIOC WRITEUP WF W060:SIOC.DOC 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" 00527/1 TRACER SA G TRAC W060:SOURCE.TRACE 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). 1 WED JUL 24/96 18:21:34 Page 163 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00527/2 TRACER OC G # (PART OF COMP 525/50) UM HARDING 00527/3 TRACER WRITEUP WF W060:TRACER.DOC 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. FROM UNE, BUT MODIFIED AT UM TO CHANGE CONTROL CARDS AND DEFAULT ESTIMATES. 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.XMON.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. 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/4) 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 S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80) 69 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. 00528/8 ALGOLW *AWXCMPA2 OE *AWXCMPA2 D3T4 157 ALGOLW.*AWXCMPA2.OE.8 1 SEQ 7801 13 PAGE UNE BLINN AUG. 01, 1973 22:41.33 00528/9 ALGOLW *AWXCMPB2 S3 S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80) 70 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/10 ALGOLW *AWXCMPB2 OE *AWXCMPB2 D3T4 159 ALGOLW.*AWXCMPB2.OE.10 1 SEQ 3776 14 PAGE UNE BLINN AUG. 01, 1973 22:42.04 1 WED JUL 24/96 18:21:34 Page 164 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00528/11 ALGOLW *AWXLIBR2 S3 S0220 'NEWCASTLE TAPE NCL71A' FMT=FB(4000,80) 71 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/12 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/13 ALGOLW *AWXLIBR2 OE *AWXLIBR2 D3T4 162 ALGOLW.*AWXLIBR2.OE.13 1 SEQ 4032 8 PAGE UNE BLINN AUG. 01, 1973 22:42.31 00528/14 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/15 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/16 ALGOLW *ALGOLWLIB OE *ALGOLWLIB D3T4 165 ALGOLW.*ALGOLWLIB.OE.16 1 SEQ 2048 6 PAGE UNE BLINN AUG. 01, 1973 22:43.26 00528/17 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" 00529/1 FILESTATUS COMMAND SA DWB:FSTATCMD3(1) D3T4 167 FILESTATUS_COMMAND..SA.1 1 LINE 75 23 PAGE UM DWB AUG. 01, 1973 22:43.32 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 D3T4 168 FILESTATUS_COMMAND..OC.2 1 LINE 80 9 PAGE UM DWB AUG. 01, 1973 22:43.45 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. 1 WED JUL 24/96 18:21:34 Page 165 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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.S(1) D3T4 171 COMMAND_STATISTICS.CMDSTAT.SA.1 1 LINE 80 5 PAGE UM DWB AUG. 01, 1973 22:44.00 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. 00531/2 COMMAND STATISTICS CMDSTAT OC G # RESIDENT SYSTEM (SEE COMP 468) UM DWB 00531/3 COMMAND STATISTICS *CMD C G *CMD D3T4 172 COMMAND_STATISTICS.*CMD.C.3 1 LINE 42 1 PAGE UM DWB AUG. 01, 1973 22:44.04 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 "*LAS" (154) PROCEDURE INVOKES "MTS *CMD" AUTOMATICALLY WHENEVER THE TERMINAL LINES ARE STARTED UP. THESE STATISTICS FILL UP A 256 PAGE FILE ABOUT ONCE PER DAY UNDER BUSY CONDITIONS AT UM. TWO SUCH FILES ARE USED ALTERNATELY. THE TAPES ONTO WHICH THEY ARE DUMPED FILL UP IN ABOUT A MONTH. 00531/4 COMMAND STATISTICS CMDPIKUP SA G CMDP DWB:CMDPIKUP.S(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 "DWB: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 DWB: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 DWB: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 D3T4 176 COMMAND_STATISTICS.*DWB.C.7 1 LINE 63 1 PAGE UM DWB AUG. 01, 1973 22:44.27 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 1 WED JUL 24/96 18:21:34 Page 166 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 "DWB: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 DWB: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. PROGRAMS TO ACTUALLY ANALYZE (RATHER THAN PRINT) ALL OF THIS DATA HAVE YET TO BE WRITTEN. COPIES COPY:CMDAREADSECT (531/12) AND CALLS JMSGTDR (437). 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 D3T4 181 COMMAND_STATISTICS.CMDAREA.SA.12 1 LINE 80 2 PAGE UM DWB AUG. 01, 1973 22:44.56 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. 1 WED JUL 24/96 18:21:34 Page 167 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 S0622 D3MISC FSNAME=FRISK.WRITEUP 32 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 003/1) 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). 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) D3T4 190 TMTS.LOADMTS.SA.5 1 LINE 80 15 PAGE UM MTA AUG. 01, 1973 22:52.43 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 1 WED JUL 24/96 18:21:34 Page 168 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 280000 TO 2FF000. THE PROGRAM PROMPTS FOR THE NAME OF A FILE TO LOAD FROM, FOR EXAMPLE MTS:TESTMTS (534/7). 0 Referenced by comments of: 534/1, 534/7 00534/6 TMTS LOADMTS OC G MTS:LOADMTS(1000) D3T4 191 TMTS.LOADMTS.OC.6 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 22:52.48 00534/7 TMTS TESTMTS OC G MTS:TESTMTS D3T4 192 TMTS.TESTMTS.OC.7 1 LINE 79 1 PAGE UM MTA AUG. 01, 1973 22:52.53 0 LOADER CARDS AND "$CONTINUE WITH TSYSOBJ(1000)" WHICH SERVE AS INPUT TO LOADMTS (534/5). THE FILE TSYSOBJ 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, AND RSF), 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/5 00534/8 TMTS TMTSLIB OL O MTS:TMTSLIB D3T4 193 TMTS.TMTSLIB.OL.8 1 SEQ 13704 51 PAGE UM MTA AUG. 01, 1973 22:52.58 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 D3T4 194 CLS_INTERFACE.PLAN_COPY_SE.SA.1 1 LINE 80 3 PAGE UM DWB AUG. 01, 1973 22:53.03 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 00535/2 CLS INTERFACE T/V DSECT SA G CLSV COPY:CLSVECTOR D3T4 195 CLS_INTERFACE.T/V_DSECT.SA.2 1 LINE 80 3 PAGE UM DWB AUG. 01, 1973 22:53.08 0 DSECT COPY SECTION FOR TRANSFER VECTOR PASSED BY MTS TO COMMAND LANGUAGE SUBSYSTEMS. 0 Referenced by comments of: 101/1, 447/1, 509/1, 529/1, 535/4, 553/1, 585/1, 600/1, 600/4, 600/6, 600/8, 600/10 1 WED JUL 24/96 18:21:34 Page 169 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 00535/4 CLS INTERFACE CLS DRIVER PGM SA O DRIV W044:MTSSOU D3T4 197 CLS_INTERFACE.CLS_DRIVER_P.SA.4 1 LINE 80 37 PAGE UM SALISBURY AUG. 01, 1973 22:53.19 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 D3T4 198 CLS_INTERFACE.CLS_DRIVER_P.OC.5 1 LINE 80 7 PAGE UM SALISBURY AUG. 01, 1973 22:53.25 00536/1 *BRAILLE SA S S0622 D3MISC FSNAME=BRAILLE.S 56 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 COBL W071:GOCOBOL D3T4 201 COBOL.*COBOLU.SA.1 1 LINE 80 3 PAGE UM FRANK AUG. 01, 1973 22:53.57 0 THIS IS THE COBOL EXECUTOR (ANALOGOUS TO *FTN), I.E. IT IS THE COMPILER INTERFACE PROGRAM. EACH INSTALLATION MAY WANT TO CHANGE THIS BECAUSE OF THE FILE NAMES USED. 00538/2 COBOL *COBOLU OC G W071:COBOLU D3T4 202 COBOL.*COBOLU.OC.2 1 LINE 80 1 PAGE UM FRANK AUG. 01, 1973 22:54.01 0 COMPONENTS 538/2 THROUGH 538/14 ARE THE UNMODIFIED OS/360 OBJECT FOR THE COBOL COMPILER (RELEASE 21.6). 00538/3 COBOL *IKFCBL00 OE O W071:IKFCBL00 D3T4 203 COBOL.*IKFCBL00.OE.3 1 SEQ 1024 4 PAGE UM FRANK AUG. 01, 1973 22:54.06 00538/4 COBOL *IKFCBL01 OE O W071:IKFCBL01 D3T4 204 COBOL.*IKFCBL01.OE.4 1 SEQ 6144 5 PAGE UM FRANK AUG. 01, 1973 22:54.11 0 OBJECT HAS REP CARD TO CHANGE DEFAULT PAR FIELD. 1 WED JUL 24/96 18:21:34 Page 170 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00538/5 COBOL *IKFCBL10 OE O W071:IKFCBL10 D3T4 205 COBOL.*IKFCBL10.OE.5 1 SEQ 1024 12 PAGE UM FRANK AUG. 01, 1973 22:54.15 00538/6 COBOL *IKFCBL1B OE O W071:IKFCBL1B D3T4 206 COBOL.*IKFCBL1B.OE.6 1 SEQ 1024 7 PAGE UM FRANK AUG. 01, 1973 22:54.22 00538/7 COBOL *IKFCBL20 OE O W071:IKFCBL20 D3T4 207 COBOL.*IKFCBL20.OE.7 1 SEQ 1024 13 PAGE UM FRANK AUG. 01, 1973 22:54.25 00538/8 COBOL *IKFCBL30 OE O W071:IKFCBL30 D3T4 208 COBOL.*IKFCBL30.OE.8 1 SEQ 1024 4 PAGE UM FRANK AUG. 01, 1973 22:54.31 00538/9 COBOL *IKFCBL40 OE O W071:IKFCBL40 D3T4 209 COBOL.*IKFCBL40.OE.9 1 SEQ 1024 11 PAGE UM FRANK AUG. 01, 1973 22:54.35 00538/10 COBOL *IKFCBL50 OE O W071:IKFCBL50 D3T4 210 COBOL.*IKFCBL50.OE.10 1 SEQ 1024 9 PAGE UM FRANK AUG. 01, 1973 22:54.40 00538/11 COBOL *IKFCBL51 OE O W071:IKFCBL51 D3T4 211 COBOL.*IKFCBL51.OE.11 1 SEQ 1024 10 PAGE UM FRANK AUG. 01, 1973 22:54.45 00538/12 COBOL *IKFCBL60 OE O W071:IKFCBL60 D3T4 212 COBOL.*IKFCBL60.OE.12 1 SEQ 1024 8 PAGE UM FRANK AUG. 01, 1973 22:54.50 00538/13 COBOL *IKFCBL6A OE O W071:IKFCBL6A D3T4 213 COBOL.*IKFCBL6A.OE.13 1 SEQ 1024 1 PAGE UM FRANK AUG. 01, 1973 22:54.55 00538/14 COBOL *IKFCBL70 OE O W071:IKFCBL70 D3T4 214 COBOL.*IKFCBL70.OE.14 1 SEQ 1024 13 PAGE UM FRANK AUG. 01, 1973 22:55.00 00538/15 COBOL *COBLIB OL O W071:COBLIB D3T4 215 COBOL.*COBLIB.OL.15 1 SEQ 1024 7 PAGE UM FRANK AUG. 01, 1973 22:55.06 0 OBJECT LIBRARY FOR OS/360 RELEASE 21.6 COBOL LIBRARY. 00538/16 COBOL USER'S GUIDE WF S0622 D3MISC FSNAME=M209 22 D3T4 216 COBOL.USER'S_GUIDE.WF.16 1 LINE 112 5 DISK UM FRANK MAR. 15, 1973 18:36.23 0 THIS IS COMPUTING CENTER MEMO M209 -- "MTS COBOL USER'S GUIDE" 00539/1 TIMNTRP 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), AND COPY:LLMPSEQU (087). FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1 00539/2 TIMNTRP OC G # RESIDENT SYSTEM (SEE COMP 468) UM HAMILTON 1 WED JUL 24/96 18:21:34 Page 171 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 WAGMAN 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 WAGMAN 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 WAGMAN 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. 1 WED JUL 24/96 18:21:34 Page 172 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 00545/1 FAKEOS INSTALLATION P S0622 D3MISC FSNAME=FAKEOS.INSTALL 60 D3T4 228 FAKEOS.INSTALLATION.P.1 1 LINE 73 7 PAGE UQV BENET 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 S0622 D3MISC FSNAME=FAKEOS.WRITEUP 61 D3T4 229 FAKEOS.WRITEUP.P.2 1 LINE 77 6 PAGE UQV BENET AUG. 01, 1973 02:25.59 0 WRITEUP DESCRIBING THE USAGE AND FEATURES OF *FAKEOS. COPY TO A TN PRINTER. 00545/3 FAKEOS FAKEOSPFX.S SA S0591 UQVD01 FSNAME=FAKEOSPFX.S D3T4 230 FAKEOS.FAKEOSPFX.S.SA.3 1 LINE 73 8 DISK UQV BENET MAR. 16, 1972 13:48.44 00545/4 FAKEOS FAKEOSB.S SA S0591 UQVD01 FSNAME=FAKEOSB.S D3T4 231 FAKEOS.FAKEOSB.S.SA.4 1 LINE 77 35 DISK UQV BENET MAR. 16, 1972 13:49.18 00545/5 FAKEOS FAKEOS.GBLS SA S0591 UQVD01 FSNAME=FAKEOS.GBLS D3T4 232 FAKEOS.FAKEOS.GBLS.SA.5 1 LINE 55 1 DISK UQV BENET MAR. 16, 1972 13:51.08 00545/6 FAKEOS CVT SA S0591 UQVD01 FSNAME=CVT D3T4 233 FAKEOS.CVT.SA.6 1 LINE 57 1 DISK UQV BENET MAR. 16, 1972 13:51.19 00545/7 FAKEOS TCB SA S0591 UQVD01 FSNAME=TCB D3T4 234 FAKEOS.TCB.SA.7 1 LINE 62 1 DISK UQV BENET MAR. 16, 1972 13:51.27 00545/8 FAKEOS COMDSECT SA S0591 UQVD01 FSNAME=COMDSECT D3T4 235 FAKEOS.COMDSECT.SA.8 1 LINE 71 2 DISK UQV BENET MAR. 16, 1972 13:51.38 00545/9 FAKEOS COMMON SA S0591 UQVD01 FSNAME=COMMON D3T4 236 FAKEOS.COMMON.SA.9 1 LINE 69 1 DISK UQV BENET MAR. 16, 1972 13:51.48 00545/10 FAKEOS DSDSECT SA S0591 UQVD01 FSNAME=DSDSECT D3T4 237 FAKEOS.DSDSECT.SA.10 1 LINE 72 1 DISK UQV BENET MAR. 16, 1972 13:51.59 00545/11 FAKEOS FAKEOS.MSG M S0591 UQVD01 FSNAME=FAKEOS.MSG D3T4 238 FAKEOS.FAKEOS.MSG.M.11 1 LINE 62 1 DISK UQV BENET MAR. 16, 1972 13:52.11 00545/12 FAKEOS VOSDDEF.S SA S0591 UQVD01 FSNAME=VOSDDEF.S D3T4 239 FAKEOS.VOSDDEF.S.SA.12 1 LINE 80 6 DISK UQV BENET MAR. 16, 1972 13:52.29 1 WED JUL 24/96 18:21:34 Page 173 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00545/13 FAKEOS SAMEQU SA S0591 UQVD01 FSNAME=SAMEQU D3T4 240 FAKEOS.SAMEQU.SA.13 1 LINE 80 3 DISK UQV BENET MAR. 16, 1972 13:52.46 00545/14 FAKEOS FAKEEXCP.S SA S0591 UQVD01 FSNAME=FAKEEXCP.S D3T4 241 FAKEOS.FAKEEXCP.S.SA.14 1 LINE 69 4 DISK UQV BENET MAR. 16, 1972 13:53.05 00545/15 FAKEOS EXCPXT SA S0591 UQVD01 FSNAME=EXCPXT D3T4 242 FAKEOS.EXCPXT.SA.15 1 LINE 59 1 DISK UQV BENET MAR. 16, 1972 13:53.19 00545/16 FAKEOS TRACER.S SA S0591 UQVD01 FSNAME=TRACER.S D3T4 243 FAKEOS.TRACER.S.SA.16 1 LINE 65 2 DISK UQV BENET FEB. 16, 1972 13:11.55 00545/17 FAKEOS *IGG019AA OE S0591 UQVD01 FSNAME=*IGG019AA D3T4 244 FAKEOS.*IGG019AA.OE.17 1 SEQ 168 1 DISK UQV BENET FEB. 16, 1972 13:11.59 00545/18 FAKEOS *IGG019AB OE S0591 UQVD01 FSNAME=*IGG019AB D3T4 245 FAKEOS.*IGG019AB.OE.18 1 SEQ 176 1 DISK UQV BENET FEB. 16, 1972 13:12.03 00545/19 FAKEOS *IGG019AC OE S0591 UQVD01 FSNAME=*IGG019AC D3T4 246 FAKEOS.*IGG019AC.OE.19 1 SEQ 280 1 DISK UQV BENET FEB. 16, 1972 13:12.07 00545/20 FAKEOS *IGG019AD OE S0591 UQVD01 FSNAME=*IGG019AD D3T4 247 FAKEOS.*IGG019AD.OE.20 1 SEQ 248 1 DISK UQV BENET FEB. 16, 1972 13:12.11 00545/21 FAKEOS *IGG019AE OE S0591 UQVD01 FSNAME=*IGG019AE D3T4 248 FAKEOS.*IGG019AE.OE.21 1 SEQ 400 1 DISK UQV BENET FEB. 16, 1972 13:12.15 00545/22 FAKEOS *IGG019AI OE S0591 UQVD01 FSNAME=*IGG019AI D3T4 249 FAKEOS.*IGG019AI.OE.22 1 SEQ 144 1 DISK UQV BENET FEB. 16, 1972 13:12.18 00545/23 FAKEOS *IGG019AJ OE S0591 UQVD01 FSNAME=*IGG019AJ D3T4 250 FAKEOS.*IGG019AJ.OE.23 1 SEQ 312 1 DISK UQV BENET FEB. 16, 1972 13:12.22 00545/24 FAKEOS *IGG019AK OE S0591 UQVD01 FSNAME=*IGG019AK D3T4 251 FAKEOS.*IGG019AK.OE.24 1 SEQ 240 1 DISK UQV BENET FEB. 16, 1972 13:12.27 00545/25 FAKEOS *IGG019BN OE S0591 UQVD01 FSNAME=*IGG019BN D3T4 252 FAKEOS.*IGG019BN.OE.25 1 SEQ 1952 1 DISK UQV BENET FEB. 16, 1972 13:12.30 00545/26 FAKEOS *IGG019BO OE S0591 UQVD01 FSNAME=*IGG019BO D3T4 253 FAKEOS.*IGG019BO.OE.26 1 SEQ 608 1 DISK UQV BENET FEB. 16, 1972 13:12.34 00545/27 FAKEOS *IGG019FB OE S0591 UQVD01 FSNAME=*IGG019FB D3T4 254 FAKEOS.*IGG019FB.OE.27 1 SEQ 248 1 DISK UQV BENET FEB. 16, 1972 13:12.37 00545/28 FAKEOS *IGG019FD OE S0591 UQVD01 FSNAME=*IGG019FD D3T4 255 FAKEOS.*IGG019FD.OE.28 1 SEQ 448 1 DISK UQV BENET FEB. 16, 1972 13:12.41 00545/29 FAKEOS *IGG019FF OE S0591 UQVD01 FSNAME=*IGG019FF D3T4 256 FAKEOS.*IGG019FF.OE.29 1 SEQ 414 1 DISK UQV BENET FEB. 16, 1972 13:12.46 1 WED JUL 24/96 18:21:34 Page 174 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00545/30 FAKEOS *IGG019FJ OE S0591 UQVD01 FSNAME=*IGG019FJ D3T4 257 FAKEOS.*IGG019FJ.OE.30 1 SEQ 296 1 DISK UQV BENET FEB. 16, 1972 13:12.49 00545/31 FAKEOS *IGG019FG OE S0591 UQVD01 FSNAME=*IGG019FG D3T4 258 FAKEOS.*IGG019FG.OE.31 1 SEQ 504 1 DISK UQV BENET FEB. 16, 1972 13:12.53 00545/32 FAKEOS *IGG019FL OE S0591 UQVD01 FSNAME=*IGG019FL D3T4 259 FAKEOS.*IGG019FL.OE.32 1 SEQ 560 1 DISK UQV BENET FEB. 16, 1972 13:12.56 00545/33 FAKEOS *IGG019AL OE S0591 UQVD01 FSNAME=*IGG019AL D3T4 260 FAKEOS.*IGG019AL.OE.33 1 SEQ 344 1 DISK UQV BENET FEB. 16, 1972 13:13.00 00545/34 FAKEOS *IECQBFG1 OE S0591 UQVD01 FSNAME=*IECQBFG1 D3T4 261 FAKEOS.*IECQBFG1.OE.34 1 SEQ 232 1 DISK UQV BENET FEB. 16, 1972 13:13.05 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). 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/1 *FS MAIN PGM SA G FS00 MTS:FS.S D3T4 265 FS.MAIN_PGM.SA.1 1 LINE 80 47 PAGE UM MTA AUG. 01, 1973 23:04.56 0 FILE SAVE AND RESTORE PROGRAM. SAVES DISK FILES ON MAG TAPE, MAINTAINING A DIRECTORY AND PRESERVING LINE NUMBERS AND FILE SIZE INFORMATION. NOTE: THIS PROGRAM AND THE DISTRIBUTION PROGRAM (461/1) BOTH REFERENCE THE NEW FSIZE SUBROUTINE. HOWEVER, FSIZE IS NOT CALLED BY *FS. COPIES *GFINFODSECT (593). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 461/1, 549/1, 550/1 00548/2 *FS SNIFF SUBR SA G SNIF MTS:FS.SNIFF(1,999) D3T4 266 FS.SNIFF_SUBR.SA.2 1 LINE 80 4 PAGE UM MTA AUG. 01, 1973 23:05.05 0 SUBROUTINE TO DETERMINE THE AMOUNT OF SPACE REQUIRED BY A FILE. THIS IS A NEW VERSION OF SNIFF WHICH CALLS THE MTS SUBROUTINE 'GFINFO' TO DO THE BULK OF THE WORK. SNIFF RETURNS THE FILE SIZE IN PAGES. THIS SUBROUTINE IS ALSO USED BY THE DISTRIBUTION PROGRAM (461/1). COPIES *GFINFODSECT (593). ASSEMBLE WITH *SYSMAC. 0 Referenced by comments of: 461/1, 461/3 1 WED JUL 24/96 18:21:34 Page 175 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00548/3 *FS OBJECT OE G *FS D3T4 267 FS.OBJECT.OE.3 1 SEQ 11252 5 PAGE UM MTA AUG. 01, 1973 23:05.09 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 W034:SOURCE.FTN D3T4 272 FTN..SA.1 1 LINE 80 60 PAGE UM JWS AUG. 01, 1973 23:05.43 0 MTS INTERFACE WITH THE FORTRAN G COMPILER. SOURCE CONTAINS A USER ID WHICH IS USED AS THE PREFIX FOR THE FILE WHICH CONTAINS THE 'TEST' VERSION OF THE COMPILER (THE ONE WHICH PRODUCES THE SYM RECORDS). THIS ID IS AT LOCATION X'0007F6' IN THE FIRST CSECT (ESID 01). INSTALLATIONS WILL WANT TO REP THIS TO THE DESIRED USER ID, OR REP THE ENTIRE NAME TO USE A LIBRARY FILE. THE ASSEMBLED VERSION USES USER ID 'W019'. 00551/2 *FTN OC G *FTN D3T4 273 FTN..OC.2 1 SEQ 80 5 PAGE UM JWS AUG. 01, 1973 23:05.52 00551/3 *FTN *FTN WRITEUP WF S0622 D3MISC FSNAME=M232 30 D3T4 274 FTN.*FTN_WRITEUP.WF.3 1 LINE 136 10 DISK UM JWS MAR. 16, 1973 16:14.18 0 THIS IS COMPUTING CENTER MEMO M232 -- "*FTN" 00551/4 *FTN FTN ADDENDUM 1 WF S0622 D3MISC FSNAME=M164 13 D3T4 275 FTN.FTN_ADDENDUM_1.WF.4 1 LINE 140 2 DISK UM JWS MAR. 15, 1973 18:04.07 0 THIS IS COMPUTING CENTER MEMO M164 -- "*FTN ADDENDUM I" 00551/5 *FTN FTNH VERSION SA FTN0 W034:NEWFTN.S D3T4 276 FTN.FTNH_VERSION.SA.5 1 LINE 80 64 PAGE UM JWS AUG. 01, 1973 23:06.26 0 THIS IS A NEW VERSION OF *FTN WHICH INCLUDES SUPPORT FOR INTERFACING TO A NEW VERSION OF FORTRAN H (298/6). THIS VERSION IS CURRENTLY UNDER PRELIMINARY USER TESTING AT UM. 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). 1 WED JUL 24/96 18:21:34 Page 176 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00551/6 *FTN FTNH VERSION OC W034:NEWFTN D3T4 277 FTN.FTNH_VERSION.OC.6 1 LINE 80 6 PAGE UM JWS AUG. 01, 1973 23:06.36 00551/7 *FTN FTNH WRITEUP WF S0622 D3MISC FSNAME=M245 45 D3T4 278 FTN.FTNH_WRITEUP.WF.7 1 LINE 107 3 PAGE UM JWS JULY 27, 1973 21:35.25 0 THIS IS COMPUTING CENTER MEMO M245 -- "USING FORTRAN H WITH *FTN" 00552/1 GASP *GASP S G GASP W020:GASPDISTR 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. CONTAINS ASM SOURCE AT LINES (-100,-87) AND FTN SOURCE AT LINES (1,1308). CONTAINS "$CONTINUE WITH *GASPCOM" THROUGHOUT. 00552/2 GASP *GASP OL G NEW: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 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 S0622 D3MISC FSNAME=M215 24 D3T4 282 GASP.WRITEUP.WF.4 1 LINE 84 6 DISK UM FLANIGAN MAR. 15, 1973 18:36.49 0 THIS IS COMPUTING CENTER MEMO M215 -- "DESCRIPTION OF MTS GASP SIMULATION SYSTEM" 00552/5 GASP INTERNAL DESC P G W020:GASPINFO 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 D3T4 286 TABLMOD.TABLMOD_JOB.SA.1 1 LINE 80 14 PAGE UM PIRKOLA AUG. 01, 1973 23:07.45 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: 1 WED JUL 24/96 18:21:34 Page 177 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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"). 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). 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 D3T4 287 TABLMOD.MTS_PROGRAM.SA.3 1 LINE 80 14 PAGE UM PIRKOLA AUG. 01, 1973 23:07.51 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:OTABLMOD D3T4 288 TABLMOD.MTS_PROGRAM.OC.4 1 LINE 80 3 PAGE UM PIRKOLA AUG. 01, 1973 23:07.55 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 WED JUL 24/96 18:21:34 Page 178 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 1. LOCATION OF MESSAGES A) MTS "FMSG" MESSAGES ARE FOUND STARTING AT THE LINE NUMBER WHICH IS THE FMSG NUMBER. B) MTS "CMSG" MESSAGES START AT LINE 2000. C) OTHER MESSAGES START AT LINE 3000. 2. FORMAT OF LINES A GROUP OF CONSECTIVE LINES IN THE FILE HAS INFORMATION ABOUT A GIVEN MESSAGE. THE FIRST LINE SPECIFIES THE MESSAGE TEXT, WHILE SUCCEEDING LINES IN THE GROUP INDENTIFY THE DESTINATION, SOURCE, AND MEANING. EACH LINE IS IDENTIFIED BY ITS LEADING CHARACTERS, WHICH MUST BE UPPERCASE; THE TEXT OF MESSAGES MAY BE OF MIXED CASE. THE FOLLOWING LINE FORMATS ARE SPECIFIED: A) MESSAGE LINE BEGINS WITH "## "; MESSAGE, STARTING IN COLUMN 4, IN UPPER CASE EXCEPT FOR GENERIC QUANTITIES WHICH ARE LOWER CASE. B) DESTINATION OF MESSAGE BEGINS WITH " DEST OPER" IF OPERATOR MESSAGE; NO DESTINATION LINE IF NORMAL MESSAGE. C) LOCATION OF MESSAGE TEXT BEGINS WITH " ERROR "; ERROR NAME STARTING IN COLUMN 8, SUCH AS FSMG 21. D) WHO ISSUED MESSAGE (MAY BE SEVERAL OF THESE IN A GROUP) BEGINS WITH " SOURCE "; INFORMATION STARTING IN COLUMN 9: COMPONENT NAME, COMPONENT NUMBER, LABEL, SEQUENCE ID. FOR EXAMPLE, SOURCE MTS,42,LINNBR,M0212800 E) EXPLANATION OF MESSAGE (AS MANY LINES AS NEEDED) BEGINS WITH 3 BLANKS; TEXT STARTING IN COLUMN 4. SO FAR, THE MESSAGE MANUAL INCLUDES MESSAGES FROM MTS, MTS SUBR, PERMIT COMMAND, AND FILESTATUS COMMAND. SINCE THIS MESSAGE MANUAL WAS DEVELOPED SPECIFICALLY FOR THIS MTS DISTRIBUTION, IT IS CURRENTLY SOMEWHAT THIN AND OFTEN NON-EXISTENT. 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). 1 WED JUL 24/96 18:21:34 Page 179 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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). 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 S0622 D3MISC FSNAME=M182 17 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 D3T4 301 VIRTUAL_67.MAIN_PGM.SA.1 1 LINE 80 107 PAGE UM MTA AUG. 01, 1973 23:09.44 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. 1 WED JUL 24/96 18:21:34 Page 180 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 Referenced by comments of: 558/1 00558/4 VIRTUAL 67 OBJECT OC G MTA:V67 D3T4 304 VIRTUAL_67.OBJECT.OC.4 1 LINE 80 14 PAGE UM MTA AUG. 01, 1973 23:10.11 00558/5 VIRTUAL 67 WRITEUP P MTA:V67WRUP D3T4 305 VIRTUAL_67.WRITEUP.P.5 1 LINE 75 9 PAGE UM MTA AUG. 01, 1973 23:10.16 0 WRITEUP TO BE COPIED TO A TN PRINTER. 00559/1 SEGMENT 2 LOADER *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. INVOKED BY INIT:INITCMD (097/2) AFTER IPL TO LOAD SHARED PIECES OF THE SYSTEM AS DESCRIBED IN SEG2:S2FILES (559/4). 00559/2 SEGMENT 2 LOADER LOADER PGM SA G S2L MTS:S2L.S D3T4 307 SEGMENT_2_LOADER.LOADER_PG.SA.2 1 LINE 80 16 PAGE UM DWB AUG. 01, 1973 23:10.26 0 PROGRAM TO LOAD THINGS INTO UNUSED AREA AT THE END OF SHARED VM (SEGMENT 2). 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. 00559/3 SEGMENT 2 LOADER LOADER PGM OC G SEG2:S2L D3T4 308 SEGMENT_2_LOADER.LOADER_PG.OC.3 1 SEQ 80 3 PAGE UM DWB AUG. 01, 1973 23:10.32 00559/4 SEGMENT 2 LOADER FILE LIST D G SEG2:S2FILES D3T4 309 SEGMENT_2_LOADER.FILE_LIST.D.4 1 LINE 15 1 PAGE UM DWB AUG. 01, 1973 23:10.38 0 A LIST OF FILES FROM WHICH THE SEGMENT 2 LOADER WILL LOAD PROGRAMS AT IPL, I.E. WHEN INVOKED BY *S2L. 0 Referenced by comments of: 559/1 00559/5 SEGMENT 2 LOADER WRITEUP WF SEG2:S2LWRUP D3T4 310 SEGMENT_2_LOADER.WRITEUP.WF.5 1 LINE 84 1 PAGE UM DWB AUG. 01, 1973 23:10.44 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. 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. 1 WED JUL 24/96 18:21:34 Page 181 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 W045:CHAR(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 W045:CHAR(61,130) D3T4 317 CHAR_MANIP_SUBRS.LCOMC/COM.SA.2 1 LINE 80 3 PAGE UBC GOODRICH AUG. 01, 1973 23:11.23 00563/3 CHAR MANIP SUBRS DTB SA DTB0 W045:CHAR(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 W045:CHAR(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 W045:CHAR(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 W045:CHAR(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 W045:CHAR(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 W045:CHAR(511,544) D3T4 323 CHAR_MANIP_SUBRS.SETC.SA.8 1 LINE 80 1 PAGE UBC GOODRICH AUG. 01, 1973 23:11.58 00563/9 CHAR MANIP SUBRS TRNC SA TRNC W045:CHAR(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 W045:CHAR(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 W045:CHAR(1173) D3T4 326 CHAR_MANIP_SUBRS.EQUC.SA.11 1 LINE 80 1 PAGE UBC GOODRICH AUG. 01, 1973 23:12.13 1 WED JUL 24/96 18:21:34 Page 182 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 1 WED JUL 24/96 18:21:34 Page 183 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 184 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 185 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 186 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 W061:TT.S D3T4 385 TIMETALLY..SA.1 1 LINE 80 31 PAGE UM HENRIKSEN AUG. 01, 1973 23:21.08 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 D3T4 386 TIMETALLY..OE.2 1 SEQ 6532 6 PAGE UM HENRIKSEN AUG. 01, 1973 23:21.18 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 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. 1 WED JUL 24/96 18:21:34 Page 187 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 188 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00571/12 APL LIBRARY WS STP3 D APL:002STP3 D3T4 401 APL_LIBRARY_WS.STP3.D.12 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:22.55 00571/13 APL LIBRARY WS STP4 D APL:002STP4 D3T4 402 APL_LIBRARY_WS.STP4.D.13 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:23.01 00571/14 APL LIBRARY WS STP5 D APL:002STP5 D3T4 403 APL_LIBRARY_WS.STP5.D.14 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:23.06 00571/15 APL LIBRARY WS STP6 D APL:002STP6 D3T4 404 APL_LIBRARY_WS.STP6.D.15 1 LINE 255 5 PAGE UM DWB AUG. 01, 1973 23:23.11 00571/16 APL LIBRARY WS STP7 D APL:002STP7 D3T4 405 APL_LIBRARY_WS.STP7.D.16 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:23.16 00571/17 APL LIBRARY WS STP8 D APL:002STP8 D3T4 406 APL_LIBRARY_WS.STP8.D.17 1 LINE 255 5 PAGE UM DWB AUG. 01, 1973 23:23.23 00571/18 APL LIBRARY WS COMPLEX D APL:003COMPLEX D3T4 407 APL_LIBRARY_WS.COMPLEX.D.18 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:23.27 00571/19 APL LIBRARY WS INDEX D APL:003INDEX D3T4 408 APL_LIBRARY_WS.INDEX.D.19 1 LINE 255 4 PAGE UM DWB AUG. 01, 1973 23:23.32 00571/20 APL LIBRARY WS UTIL D APL:003UTIL D3T4 409 APL_LIBRARY_WS.UTIL.D.20 1 LINE 255 3 PAGE UM DWB AUG. 01, 1973 23:23.37 00571/21 APL LIBRARY WS ALGFORM D APL:005ALGFORM D3T4 410 APL_LIBRARY_WS.ALGFORM.D.21 1 LINE 255 6 PAGE UM DWB AUG. 01, 1973 23:23.43 00571/22 APL LIBRARY WS COGO D APL:005COGO D3T4 411 APL_LIBRARY_WS.COGO.D.22 1 LINE 255 9 PAGE UM DWB AUG. 01, 1973 23:23.48 00571/23 APL LIBRARY WS COMPCENT D APL:005COMPCENT D3T4 412 APL_LIBRARY_WS.COMPCENT.D.23 1 LINE 255 3 PAGE UM DWB AUG. 01, 1973 23:23.53 00571/24 APL LIBRARY WS CW D APL:005CW D3T4 413 APL_LIBRARY_WS.CW.D.24 1 LINE 255 7 PAGE UM DWB AUG. 01, 1973 23:23.59 00571/25 APL LIBRARY WS EDIT D APL:005EDIT D3T4 414 APL_LIBRARY_WS.EDIT.D.25 1 LINE 255 7 PAGE UM DWB AUG. 01, 1973 23:24.05 00571/26 APL LIBRARY WS MATRIXALG D APL:005MATRIXALG D3T4 415 APL_LIBRARY_WS.MATRIXALG.D.26 1 LINE 255 8 PAGE UM DWB AUG. 01, 1973 23:24.10 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 1 WED JUL 24/96 18:21:34 Page 189 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 1 WED JUL 24/96 18:21:34 Page 190 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00575/4 MTS VOLUME 4 SYMBOL SUBR SA S W032:SYMBOL D3T4 427 MTS_VOLUME_4.SYMBOL_SUBR.SA.4 1 LINE 81 11 PAGE UM EMERY AUG. 01, 1973 23:41.37 0 THIS IS A SPECIAL VERSION OF THE CALCOMP 'SYMBOL' ROUTINES INTENDED FOR USE WITH THE KEYBOARD PLOT PROGRAM (575/3). 00575/5 MTS VOLUME 4 SYMBOL SUBR OC S W032:SYMOBJ D3T4 428 MTS_VOLUME_4.SYMBOL_SUBR.OC.5 1 LINE 80 3 PAGE UM EMERY AUG. 01, 1973 23:41.43 00576/1 OMR CONVERT SA COMR DWB:CVTOMR D3T4 429 OMR_CONVERT..SA.1 1 LINE 80 9 PAGE UM DWB AUG. 01, 1973 23:41.49 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 ONLY THE WATERLOO OMR CARD FORMAT (2-4-6 MARK IN COLUMN 1). IT WILL BE CHANGED SHORTLY TO ALSO HANDLE THE NEW UM OMR CARD. 00576/2 OMR CONVERT OC # RESIDENT SYSTEM (SEE COMP 468) UM DWB 0 Referenced by comments of: 86/2 00576/3 OMR CONVERT WRITEUP WF S0622 D3MISC FSNAME=M201 21 D3T4 430 OMR_CONVERT.WRITEUP.WF.3 1 LINE 108 2 DISK UM DWB MAR. 15, 1973 18:36.15 0 THIS IS COMPUTING CENTER MEMO M201 -- "OMR FEATURE" 00577/1 MACHINE CHECK REC'Y CEAIR SA G EAIR MTA:CEAIR.S D3T4 431 MACHINE_CHECK_REC'Y.CEAIR.SA.1 1 LINE 80 18 PAGE UM MTA AUG. 01, 1973 23:41.59 0 THE MTS 360/67 MACHINE CHECK ERROR RECOVERY. MODIFIED (AND DEBUGGED) FROM TSS/360 BY UBC AND UM. CEAIR IS THE RECOVERY NUCLEUS. COPIES COPY:CHAERC (577/30), COPY:LLMPSEQU (087), COPY:PSA (162), AND COPY:CHADMR (577/29). 00577/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 D3T4 432 MACHINE_CHECK_REC'Y.CMASA.SA.3 1 LINE 80 14 PAGE UM MTA AUG. 01, 1973 23:42.04 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 D3T4 433 MACHINE_CHECK_REC'Y.CEABE.SA.5 1 LINE 80 20 PAGE UM MTA AUG. 01, 1973 23:42.10 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). 1 WED JUL 24/96 18:21:34 Page 191 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T4 436 MACHINE_CHECK_REC'Y.CMASC.SA.9 1 LINE 80 13 PAGE UM MTA AUG. 01, 1973 23:45.45 0 IMMEDIATE PRINT. 00577/10 MACHINE CHECK REC'Y CMASC OC G INIT:CMASC D3T4 437 MACHINE_CHECK_REC'Y.CMASC.O.10 1 LINE 80 2 PAGE UM MTA AUG. 01, 1973 23:45.50 00577/11 MACHINE CHECK REC'Y CMASD SA G MASD MTA:CMASD.S D3T4 438 MACHINE_CHECK_REC'Y.CMASD.SA.11 1 LINE 80 28 PAGE UM MTA AUG. 01, 1973 23:45.56 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 D3T4 439 MACHINE_CHECK_REC'Y.CMASD.O.12 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:46.02 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). 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 D3T4 444 MACHINE_CHECK_REC'Y.CMASG.SA.17 1 LINE 80 26 PAGE UM MTA AUG. 01, 1973 23:46.30 0 INSTRUCTION RETRY. COPIES COPY:LLMPSEQU (087) AND COPY:PSA (162). 00577/18 MACHINE CHECK REC'Y CMASG OC G INIT:CMASG D3T4 445 MACHINE_CHECK_REC'Y.CMASG.O.18 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:46.36 1 WED JUL 24/96 18:21:34 Page 192 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T4 448 MACHINE_CHECK_REC'Y.CMASI.SA.21 1 LINE 80 29 PAGE UM MTA AUG. 01, 1973 23:46.53 0 SECOND DIAGNOSTIC. COPIES COPY:CHACST (577/28) AND COPY:CHAPSA (577/34). 00577/22 MACHINE CHECK REC'Y CMASI OC G INIT:CMASI D3T4 449 MACHINE_CHECK_REC'Y.CMASI.O.22 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:46.59 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 D3T4 452 MACHINE_CHECK_REC'Y.CGCMA.SA.25 1 LINE 80 24 PAGE UM MTA AUG. 01, 1973 23:47.16 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 D3T4 453 MACHINE_CHECK_REC'Y.CGCMA.O.26 1 LINE 80 3 PAGE UM MTA AUG. 01, 1973 23:47.22 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 1 WED JUL 24/96 18:21:34 Page 193 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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, 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. 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 D3T4 462 MACHINE_CHECK_REC'Y.CHASYS.SA.35 1 LINE 80 1 PAGE UM MTA AUG. 01, 1973 23:48.14 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 D3T4 464 MACHINE_CHECK_REC'Y.CZASE.SA.37 1 LINE 80 130 PAGE UM MTA AUG. 01, 1973 23:48.26 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. 1 WED JUL 24/96 18:21:34 Page 194 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00577/38 MACHINE CHECK REC'Y CZASE OC G INIT:CZASE D3T4 465 MACHINE_CHECK_REC'Y.CZASE.O.38 1 SEQ 176 19 PAGE UM MTA AUG. 01, 1973 23:48.46 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? 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 1 WED JUL 24/96 18:21:34 Page 195 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 EXTERNAL PORTION (SEPARATE ASSEMBLY) OF MTS WHICH SUPPORTS THE IMPLEMENTATION OF "REALLY SHARED FILES" (RSF). THIS PORTION OF MTS WAS REMOVED FROM THE MAIN ASSEMBLY SO THAT MTS WAS SMALL ENOUGH TO ASSEMBLE. COPIES *GFINFODSECT (593), COPY:MTS.EQU (345), COPY:MTS.CONTAB (343), COPY:MTS.DSECT (346), COPY:CATEQU (482/28), AND COPY:LLMPSEQU (087). ASSEMBLE WITH COPY:MTS.MACROS (344) AND *SYSMAC. FOR AN *ASMG LISTING OF THIS COMPONENT, SEE 042/5. 0 Referenced by comments of: 42/6, 344/1 00578/2 RSF OC G # RESIDENT SYSTEM (SEE COMP 468) UM PIRKOLA 00579/1 SYSDEFS SA G SYSD MTS:SYSDEFS(1,999) D3T5 2 SYSDEFS..SA.1 1 LINE 80 5 PAGE UM MTA AUG. 02, 1973 00:14.56 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. 1 WED JUL 24/96 18:21:34 Page 196 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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. 1 WED JUL 24/96 18:21:34 Page 197 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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. 1 WED JUL 24/96 18:21:34 Page 198 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T5 27 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) ALTHOUGH IT REALLY ISN'T A CLS (IT HAS NO SUB-COMMANDS). THIS WAS DONE SOLELY AS A PROGRAMMING CONVENIENCE. IT COPIES COPY:CLSPLAN (535/1) AND COPY:CLSVECTOR (535/2). MODIFIED FROM WSU. 00585/2 CALC CLS OE G NEW:CALC D3T5 28 CALC_CLS..OE.2 1 LINE 255 3 PAGE UM JWS AUG. 02, 1973 00:19.38 0 NORMALLY LOADED BY SEG 2 LOADER AT IPL. 00585/3 CALC CLS WRITEUP WF S0622 D3MISC FSNAME=M244 38 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$ D3T5 30 COST_SUBR..SA.1 1 LINE 80 7 PAGE UM ENGLE OCT. 03, 1972 11:21.30 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. 1 WED JUL 24/96 18:21:34 Page 199 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T5 33 INTERCOM..SA.1 1 LINE 80 11 PAGE UM MTA AUG. 02, 1973 00:23.56 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 D3T5 34 I/O_INBOARD_ERROR_REC..SA.1 1 LINE 80 9 PAGE UM MTA AUG. 02, 1973 00:23.58 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 UU G W086:SPIT.OSI.U D3T5 35 SPITBOL..UU.1 1 LINE 72 15 PAGE UM DE JONG AUG. 02, 1973 00:24.01 0 BY CONTRACT, THE SOURCE AND OBJECT FOR SPITBOL CANNOT BE DISTRIBUTED. CONTACT ROBERT DE WAR AT THE ILLINOIS INSTITUTE OF TECHNOLOGY, CHICAGO, IL, USA. UPDATE DECK FOR MODIFYING THE SPITBOL VERSION 2.2 INTERFACE TO RUN IN MTS AT SPITBOL VERSION LEVEL 2.2.6. 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 COMP REPS OC G W086:SPIT.MAIN.REPS D3T5 37 SPITBOL.COMP_REPS.OC.3 1 LINE 89 5 PAGE UM DE JONG AUG. 02, 1973 00:24.07 0 REP CARDS TO BRING THE SPITBOL COMPILER FROM VERSION 2.2.0 TO 2.2.6. 00590/4 SPITBOL LIB REPS OC G W086:SPIT.LIB.REPS D3T5 38 SPITBOL.LIB_REPS.OC.4 1 LINE 85 4 PAGE UM DE JONG AUG. 02, 1973 00:24.10 0 REP CARDS TO BRING THE SPITBOL LIBRARY FROM VERSION 2.2.0 TO 2.2.6. 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). 1 WED JUL 24/96 18:21:34 Page 200 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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/21 00593 *GFINFODSECT SA G GFID *GFINFODSECT D3T5 41 GFINFODSECT..SA. 1 LINE 80 3 PAGE UM PIRKOLA AUG. 02, 1973 00:24.40 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/1, 465/1, 529/1, 548/1, 548/2, 578/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 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. 1 WED JUL 24/96 18:21:34 Page 201 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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 1 WED JUL 24/96 18:21:34 Page 202 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 203 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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). 1 WED JUL 24/96 18:21:34 Page 204 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 205 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 1 WED JUL 24/96 18:21:34 Page 206 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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). 1 WED JUL 24/96 18:21:34 Page 207 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00595/93 APL - GMRL USER'S GUIDE WF S0622 D3MISC FSNAME=M236 37 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 D3T5 136 ZAP..SA.1 1 LINE 80 13 PAGE UM MTA AUG. 02, 1973 00:30.07 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. 00596/2 ZAP OC G MTS:ZAP D3T5 137 ZAP..OC.2 1 LINE 80 4 PAGE UM MTA AUG. 02, 1973 00:30.09 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 D3T5 140 DASDI_7330..SA.1 1 LINE 80 9 PAGE UM HAMILTON AUG. 02, 1973 00:30.22 0 PROGRAM TO PAGE FORMAT DASDI ITEL 7330 (IBM 3330) DISKS. INPUT DESCRIBED IN SOURCE COMMENTS. ASSEMBLE WITH *SYSMAC. 00598/2 DASDI 7330 OC G W047:DASDI D3T5 141 DASDI_7330..OC.2 1 LINE 80 3 PAGE UM HAMILTON AUG. 02, 1973 00:30.24 1 WED JUL 24/96 18:21:34 Page 208 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSCLSSOU 1 D3T5 144 SDS.CLSSOU.SA.1 1 SEQ 80 110 PAGE UM SALISBURY AUG. 02, 1973 00:31.47 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:CLSVECTOR(1,60) (535/2), AND SDSPSECT (600/13). ASSEMBLE USING *SYSMAC AND SDSMACROS (600/12). 00600/2 SDS UTSDSSOU SA G S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSUTILSOU 2 D3T5 145 SDS.UTSDSSOU.SA.2 1 SEQ 80 31 PAGE UM SALISBURY AUG. 02, 1973 00:32.01 0 COPIES SDSCONSTANT (600/15). 00600/3 SDS CLS OC G W044:SDSCLS D3T5 146 SDS.CLS.OC.3 1 LINE 80 22 PAGE UM SALISBURY AUG. 02, 1973 00:32.03 00600/4 SDS CLI SA G S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSCLISOU 3 D3T5 147 SDS.CLI.SA.4 1 SEQ 80 64 PAGE UM SALISBURY AUG. 02, 1973 00:32.13 0 THE SDS COMMAND LANGUAGE INTERPRETER. COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13), COPY:CLSPLAN (535/1), AND COPY:CLSVECTOR(1,60) (535/2). ASSEMBLE WITH SDSMACROS (600/12). 00600/5 SDS CLI OC G W044:SDSCLI D3T5 148 SDS.CLI.OC.5 1 LINE 80 15 PAGE UM SALISBURY AUG. 02, 1973 00:32.18 00600/6 SDS IOC SA G S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSIOCSOU 4 D3T5 149 SDS.IOC.SA.6 1 SEQ 80 27 PAGE UM SALISBURY AUG. 02, 1973 00:32.25 0 THE SDS I/O CONTROL MODULE. COPIES SDSPSECT (600/13), COPY:CLSPLAN (535/1), AND COPY:CLSVECTOR(1,60) (535/2). ASSEMBLE WITH *SYSMAC AND SDSMACROS (600/12). 00600/7 SDS IOC OC G W044:SDSIOC D3T5 150 SDS.IOC.OC.7 1 LINE 80 8 PAGE UM SALISBURY AUG. 02, 1973 00:32.27 00600/8 SDS SIMULATOR SA G S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSSIMLSOU 5 D3T5 151 SDS.SIMULATOR.SA.8 1 SEQ 80 22 PAGE UM SALISBURY AUG. 02, 1973 00:32.31 0 THE SDS INSTRUCTION SIMULATOR. COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13), COPY:CLSPLAN (535/1), AND COPY:CLSVECTOR(1,60) (535/2). ASSEMBLE WITH SDSMACROS (600/12). 1 WED JUL 24/96 18:21:34 Page 209 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00600/9 SDS SIMULATOR OC G W044:SDSSIML D3T5 152 SDS.SIMULATOR.OC.9 1 LINE 80 7 PAGE UM SALISBURY AUG. 02, 1973 00:32.32 00600/10 SDS EDITOR SA G S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSEDTRSOU 6 D3T5 153 SDS.EDITOR.SA.10 1 SEQ 80 29 PAGE UM SALISBURY AUG. 02, 1973 00:32.38 0 THE SDS EDITOR. COPIES SDSBT (600/14), SDSCONSTANT (600/15), SDSPSECT (600/13), COPY:CLSPLAN (535/1), AND COPY:CLSVECTOR(1,60) (535/2). ASSEMBLE WITH SDSMACROS (600/12). 00600/11 SDS EDITOR OC G W044:SDSEDTR D3T5 154 SDS.EDITOR.OC.11 1 LINE 80 7 PAGE UM SALISBURY AUG. 02, 1973 00:32.39 00600/12 SDS SDSMACROS SM G SDSM S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSMACROS 10 D3T5 155 SDS.SDSMACROS.SM.12 1 SEQ 80 10 PAGE UM SALISBURY AUG. 02, 1973 00:32.45 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 S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSPSECT 7 D3T5 156 SDS.SDSPSECT.SA.13 1 SEQ 80 33 PAGE UM SALISBURY AUG. 02, 1973 00:32.51 0 COPY SECTION FOR SDS DSECTS. 0 Referenced by comments of: 600/1, 600/4, 600/6, 600/8, 600/10 00600/14 SDS SDSBT SA G S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSBT 8 D3T5 157 SDS.SDSBT.SA.14 1 SEQ 80 3 PAGE UM SALISBURY AUG. 02, 1973 00:32.54 0 COPY SECTION FOR BRANCH TABLES. 0 Referenced by comments of: 600/4, 600/8, 600/10 00600/15 SDS SDSCONSTANT SA G S0668 SDSSOU 'SDS SOURCE - DIST 3.0' POSN=SDSCONSTANT 9 D3T5 158 SDS.SDSCONSTANT.SA.15 1 SEQ 80 1 PAGE UM SALISBURY AUG. 02, 1973 00:32.56 0 COPY SECTION FOR CONSTANTS. 0 Referenced by comments of: 600/2, 600/4, 600/8, 600/10 00600/16 SDS OBJECT OC G *CLSSDS D3T5 159 SDS.OBJECT.OE.16 1 LINE 255 16 PAGE UM SALISBURY AUG. 02, 1973 00:32.59 0 THE SDS OBJECT IS LOADED INTO SHARED VM BY THE SEG 2 LOADER AT IPL. 00600/17 SDS TEST PROGRAM C W044:ASMSDSTEST D3T5 160 SDS.TEST_PROGRAM.C.17 1 LINE 80 1 PAGE UM SALISBURY AUG. 02, 1973 00:33.01 0 SOURCE FILE TO ASSEMBLE THE SDS TEST PROGRAM (600/18). 00600/18 SDS TEST PROGRAM SA W044:SDSTESTSOU D3T5 161 SDS.TEST_PROGRAM.SA.18 1 LINE 59 4 PAGE UM SALISBURY AUG. 02, 1973 00:33.03 0 Referenced by comments of: 600/17 1 WED JUL 24/96 18:21:34 Page 210 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00600/19 SDS TEST PROGRAM OC W044:SDSTEST D3T5 162 SDS.TEST_PROGRAM.O.19 1 LINE 80 5 PAGE UM SALISBURY AUG. 02, 1973 00:33.06 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 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. 0 Referenced by comments of: 42/3 00603/1 UC3330 SA G UC33 MTA:UC3330(1,999) D3T5 165 UC3330..SA.1 1 LINE 80 18 PAGE UM MTA AUG. 02, 1973 00:33.12 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 1 WED JUL 24/96 18:21:34 Page 211 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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:FORMAT(1,1999) D3T5 171 MVC..SA.1 1 LINE 80 36 PAGE UM EMERY AUG. 02, 1973 00:33.29 0 RECORD REFORMATTING PROGRAM. 00608/2 *MVC OC G *MVC D3T5 172 MVC..O.2 1 LINE 80 4 PAGE UM EMERY AUG. 02, 1973 00:33.39 00609/1 7330 CCW SCANNER SA G CPSC MTA:CPSCN(1,999) D3T5 173 7330_CCW_SCANNER..SA.1 1 LINE 80 5 PAGE UM MTA AUG. 02, 1973 00:33.41 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 1 WED JUL 24/96 18:21:34 Page 212 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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. 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/18, 387/20 1 WED JUL 24/96 18:21:34 Page 213 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 D3T5 186 PLOT_SYSTEM.INSTALLATION.C.1 1 LINE 108 2 PAGE UM FRONCZAK AUG. 02, 1973 00:36.27 0 THE MTS CALCOMP PLOT SYSTEM ROUTINES. THIS IS A NEW VERSION WHICH WAS INSTALLED FOR USERS JUST PRIOR TO DISTRIBUTION AT UM AND IS, THEREFORE, NOT FULLY TESTED. ALTHOUGH THIS VERSION OF THE PLOT SYSTEM COMES CLOSER TO THE MTS VOLUME 11 DESCRIPTION, IT STILL DOES NOT FULLY SUPPORT ALL ADVERTISED FEATURES, E.G. TAPE QUEUING. 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. 00615/2 PLOT SYSTEM MACROS SM S0682 PDSFNL POSN=PDSCC.MACROS 1 D3T5 187 PLOT_SYSTEM.MACROS.SM.2 1 SEQ 80 2 PAGE UM FRONCZAK AUG. 02, 1973 00:37.33 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 00615/3 PLOT SYSTEM GETSETPLTS8 SA S0682 PDSFNL POSN=CC.GETSETPLTS8 2 D3T5 188 PLOT_SYSTEM.GETSETPLTS8.SA.3 1 SEQ 80 4 PAGE UM FRONCZAK AUG. 02, 1973 00:37.35 0 SUBROUTINE USED IN *CCQUEUE AND SYS:CCP (615/13). ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/4 PLOT SYSTEM CCQUEUE SA S0682 PDSFNL POSN=CC.CCQUEUE 3 D3T5 189 PLOT_SYSTEM.CCQUEUE.SA.4 1 SEQ 80 13 PAGE UM FRONCZAK AUG. 02, 1973 00:37.37 0 MAIN PROGRAM FOR *CCQUEUE. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/5 PLOT SYSTEM CCP SA S0682 PDSFNL POSN=CC.CCP 4 D3T5 190 PLOT_SYSTEM.CCP.SA.5 1 SEQ 80 14 PAGE UM FRONCZAK AUG. 02, 1973 00:37.40 0 MAIN PROGRAM FOR SYS:CCP (615/13). ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/6 PLOT SYSTEM CCPOST SA S0682 PDSFNL POSN=CC.CCPOST 5 D3T5 191 PLOT_SYSTEM.CCPOST.SA.6 1 SEQ 80 5 PAGE UM FRONCZAK AUG. 02, 1973 00:37.42 0 SOURCE FOR *CCPOST. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/7 PLOT SYSTEM CPCORE SA S0682 PDSFNL POSN=CC.CPCORE 6 D3T5 192 PLOT_SYSTEM.CPCORE.SA.7 1 SEQ 80 33 PAGE UM FRONCZAK AUG. 02, 1973 00:37.47 0 MAIN PROGRAM FOR *CPCORE. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/8 PLOT SYSTEM PWRIT SA S0682 PDSFNL POSN=PDS.PWRIT 7 D3T5 193 PLOT_SYSTEM.PWRIT.SA.8 1 SEQ 80 14 PAGE UM FRONCZAK AUG. 02, 1973 00:37.52 0 SUBROUTINE IN *PLOTSYS. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 1 WED JUL 24/96 18:21:34 Page 214 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/9 PLOT SYSTEM PSYMB SA S0682 PDSFNL POSN=PDS.PSYMB 8 D3T5 194 PLOT_SYSTEM.PSYMB.SA.9 1 SEQ 80 13 PAGE UM FRONCZAK AUG. 02, 1973 00:37.58 0 SUBROUTINES IN *PLOTSYS. ALSO USED IN *CPCORE. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/10 PLOT SYSTEM ASM SA S0682 PDSFNL POSN=PDS.ASM 9 D3T5 195 PLOT_SYSTEM.ASM.SA.10 1 SEQ 80 30 PAGE UM FRONCZAK AUG. 02, 1973 00:38.06 0 SUBROUTINES IN *PLOTSYS. ASSEMBLE WITH PLOT MACROS (615/2) AND *SYSMAC. 00615/11 PLOT SYSTEM FORT SF S0682 PDSFNL POSN=PDS.FORT 10 D3T5 196 PLOT_SYSTEM.FORT.SF.11 1 SEQ 80 25 PAGE UM FRONCZAK AUG. 02, 1973 00:38.12 0 SUBROUTINES IN *PLOTSYS. 00615/12 PLOT SYSTEM *CCQUEUE OC *CCQUEUE D3T5 197 PLOT_SYSTEM.*CCQUEUE.OC.12 1 LINE 80 4 PAGE UM FRONCZAK AUG. 02, 1973 00:38.16 0 PROGRAM TO QUEUE USERS PLOTS FOR POST-PROCESSING BY *CCP. ADDS A LINE TO *CCPFILE (NOT DISTRIBUTED) INDICATING THE PLOT TO BE PROCESSED. OBJECT FROM 615/4 + 615/3. 00615/13 PLOT SYSTEM SYS:CCP OC SYS:CCP D3T5 198 PLOT_SYSTEM.SYS:CCP.OC.13 1 LINE 80 5 PAGE UM FRONCZAK AUG. 02, 1973 00:38.17 0 POST-PROCESSOR PROGRAM RUN BY *CCP COMMAND FILE (615/14) 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/14, 615/16 00615/14 PLOT SYSTEM *CCP C *CCP D3T5 199 PLOT_SYSTEM.*CCP.C.14 1 LINE 23 1 PAGE UM FRONCZAK AUG. 02, 1973 00:38.20 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/13). 0 Referenced by comments of: 615/13 00615/15 PLOT SYSTEM *CCPOST OC *CCPOST D3T5 200 PLOT_SYSTEM.*CCPOST.OC.15 1 LINE 80 2 PAGE UM FRONCZAK AUG. 02, 1973 00:38.22 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/16 00615/16 PLOT SYSTEM *CPCORE OC *CPCORE D3T5 201 PLOT_SYSTEM.*CPCORE.OC.16 1 LINE 80 8 PAGE UM FRONCZAK AUG. 02, 1973 00:38.24 0 BASIC PROGRAMS IN CALCOMP POST-PROCESSOR. USED WITH BOTH *CCPOST (615/15) AND SYS:CCP (615/13). *CPCORE DUPLICATES NAMES IN *PLOTSYS (615/17), BUT WRITES A CALCOMP PLOTTER TAPE, NOT A PLOT FILE. OBJECT CONSISTS OF OBJECT FROM 615/7 + 615/9. 1 WED JUL 24/96 18:21:34 Page 215 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00615/17 PLOT SYSTEM *PLOTSYS OL *PLOTSYS D3T5 202 PLOT_SYSTEM.*PLOTSYS.OL.17 1 SEQ 1404 22 PAGE UM FRONCZAK AUG. 02, 1973 00:38.26 0 OBJECT LIBRARY GENERATED FROM 615/8 + 615/9 + 615/10 + 615/11. 0 Referenced by comments of: 615/16 00615/18 PLOT SYSTEM *PFILESCAN OC *PFILESCAN D3T5 203 PLOT_SYSTEM.*PFILESCAN.OC.18 1 SEQ 23 1 PAGE UM FRONCZAK 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 "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 1 WED JUL 24/96 18:21:34 Page 216 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 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 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 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. 0 Referenced by comments of: 619/3 00619/3 *ASMT PHASE 1.1 SA 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 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 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 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 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 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 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 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 1 WED JUL 24/96 18:21:34 Page 217 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00619/11 *ASMT PHASE 1.9 SA 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 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 C100 S0653 'ASMT' FSNAME=CEVC1.S D3T5 222 ASMT.PHASE_2.2.SA.13 1 LINE 80 41 PAGE UM BERSTIS JULY 09, 1973 02:15.18 00619/14 *ASMT PHASE 2.3 SA 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 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 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 F100 S0653 'ASMT' FSNAME=CEVF1.S D3T5 226 ASMT.PHASE_4.SA.17 1 LINE 80 57 PAGE UM BERSTIS JULY 23, 1973 19:48.27 00619/18 *ASMT ASMTGO SA GO00 S0653 'ASMT' FSNAME=ASMTGO.S D3T5 227 ASMT.ASMTGO.SA.18 1 LINE 80 1 PAGE UM BERSTIS JULY 23, 1973 21:24.29 0 THIS ROUTINE CALLS THE ASSEMBLER WITH TSS CALLING CONVENTIONS. 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 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 LPC0 S0653 'ASMT' FSNAME=ASMTLPC.S D3T5 230 ASMT.LPC.SA.21 1 LINE 80 18 PAGE UM BERSTIS JULY 28, 1973 21:31.24 0 ASMT LANGUAGE PROCESSOR CONTROL (MAIN ASMT ENTRY POINT). 00619/22 *ASMT OBJ PRODUCER SA 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 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. 1 WED JUL 24/96 18:21:34 Page 218 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 00619/24 *ASMT SHARED OBJECT OC S0653 'ASMT' FSNAME=ASMTLCOBJ D3T5 233 ASMT.SHARED_OBJECT.O.24 1 SEQ 10151 84 PAGE UM BERSTIS JULY 28, 1973 21:31.13 0 SHARED (RE-ENTRANT) PART OF ASSEMBLER. LOADED INTO SEGMENT 2 BY SEG 2 LOADER. 00619/25 *ASMT *ASMT OC S0653 'ASMT' FSNAME=*ASMT D3T5 234 ASMT.*ASMT.O.25 1 SEQ 4096 9 PAGE UM BERSTIS JULY 28, 1973 21:31.10 0 NON-SHARED OBJECT. 00619/26 *ASMT DOCUMENTATION WF S0653 'ASMT' FSNAME=ASMTDOC D3T5 235 ASMT.DOCUMENTATION.WF.26 1 LINE 153 5 PAGE UM BERSTIS JULY 28, 1973 20:53.06 0 *FORMAT SOURCE FOR USER-LEVEL DOCUMENTATION. FILE HAS A "$CONTINUE WITH *DUMMY*" LINE. 00620 STATDSECT SA G STAD COPY:STATDSECT D3T5 236 STATDSECT..SA. 1 LINE 80 3 PAGE UM MTA AUG. 02, 1973 00:53.32 0 COPY SECTION FOR *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. 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 1 WED JUL 24/96 18:21:34 Page 219 0 Num R Component Name Subname Type G Seq ID S Location File +_________ _________________________ ______________ ____ _ ______ _ ___________________________________________________________ ____ 6250 tape-file FS Name Ver FType LRECL Size DevT Inst Person Local Per Date Time + ______________ ________________________________ ___ _____ _____ ____ ____ ____ _________ _________ ______________ ________ 1600 tape-file Disk Name + ______________ _____________________ 0 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 00622 FCBDSECT SA G COPY:FCBDSECT D3T5 247 FCBDSECT..SA. 1 LINE 80 4 PAGE UM DWB AUG. 02, 1973 00:54.03 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 D3T5 248 FDUBDSECT..SA. 1 LINE 80 3 PAGE UM DWB AUG. 02, 1973 00:54.04 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 D3T5 249 WOPTRDSECT..SA. 1 LINE 80 1 PAGE UM DWB AUG. 02, 1973 00:54.06 0 THIS IS "COPY:WOPTRDSECT" WHICH IS THE COPY SECTION FOR THE WRITEON PRINTER DSECT. 0 Referenced by comments of: 346/1, 387/1