1FILE 1; 1863 RECORDS: 0UMLD TITLE 'UNIVERSITY OF MICHIGAN RELOCATABLE LOADER' UMLD0001 UMLOADCS START X'FF8' START AT ABSOLUTE X'1000'-8 UMLD0002 ENTRY UMLOAD UMLD0003 DC A(0) JUST A FOUR BYTE FILL UMLD0004 DC A(LODTOP) DEFINE FIRST AVAIL LOC FOR BOOTSTRAP UMLD0005 SPACE 2 UMLD0006 *********************************************************************** UMLD0007 * REGISTER DEFINITIONS * UMLD0008 *********************************************************************** UMLD0009 SPACE 1 UMLD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * BYTE 18-19 SYMBOL STATUS BITS (DEFINED,REFERENCED...* UMLD1854 * * UMLD1855 * RLD TABLE - * UMLD1856 * BYTE 0-3 ADDRESS OF LOCATION TO BE CHANGED * UMLD1857 * BYTE 4-7 ADDRESS OF PROPER ESD TABLE ENTRY * UMLD1858 * BYTE 8-11 FLAG BYTES TO INDICATE SIZE AND COMPL. * UMLD1859 *********************************************************************** UMLD1860 SPACE 1 UMLD1861 ESDT EQU SETRLD+RLDL BEGINNING OF ESD TABLE UMLD1862 END UMLD1863 -FILE 2; 303 RECORDS: 0TASK TITLE 'TASKS JOB -- IDENTIFY ACTIVE JOBS' UTSK0001 TASKS START 0 UTSK0002 ENTRY TSKFMT UTSK0003 SPACE 2 UTSK0004 DC A(TASK1) UTSK0005 DC H'0' NO DEVICES UTSK0006 DC H'1' ONE BUFFER OF 178 BYTES UTSK0007 DC F'178' UTSK0008 * BYTE ASSIGNMENT UTSK0009 * 0-7 FAKE PARAMETER AREA UTSK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' BEING USED' UTSK0294 LHEADER EQU *-HEADER UTSK0295 FILL DC C': F' UTSK0296 FAKEF EQU FILL+1 UTSK0297 HEXTRA EQU *-240 UTSK0298 DC C'0123456789ABCDEF' UTSK0299 SPACE 2 UTSK0300 LTORG UTSK0301 SPACE 2 UTSK0302 END UTSK0303 -FILE 3; 74 RECORDS: 0MOVE TITLE 'SUBROUTINE TO MOVE ARBITRARY LENGTH STRINGS' MOVE0001 SPACE MOVE0002 *********************************************************************** MOVE0003 * * MOVE0004 * SUBROUTINE 'MOVIT' * MOVE0005 * * MOVE0006 *********************************************************************** MOVE0007 SPACE MOVE0008 *********************************************************************** MOVE0009 * * MOVE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> S R7,MOVITH DROP 'TO BE MOVED' COUNT MOVE0065 B MOVITG AND RUN THROUGH AGAIN MOVE0066 SPACE MOVE0067 MOVITC MVC 0(0,R9),0(R8) EXECUTED TO DO ODD PART OF MOVE MOVE0068 SPACE MOVE0069 MOVITA DC F'256' MAXIMUM MOVE IN ONE INSTRUCTION MOVE0070 MOVITE DC F'1' ACCOUNTING CONSTANT FOR MOVE FORMAT MOVE0071 MOVITH DC F'4' LENGTH OF FORWARD MOVE BLOCKS MOVE0072 SPACE MOVE0073 END MOVE0074 -FILE 4; 90 RECORDS: 0VTAD TITLE 'SUBROUTINE TO ADD A NAME TO INTERNAL LIST OF FILES' VTAD0001 * VTADD -- ADD A NAME TO INTERNAL LIST OF FILES VTAD0002 * VTAD0003 * INPUT -- R2: POINTER TO SCRATCH AREA VTAD0004 * R3: RETURN ADDRESS VTAD0005 * R4: ENTRY POINT OF VTADD VTAD0006 * R9: POINTER TO FULL FILE NAME VTAD0007 * VTAD0008 * OUTPUT-- R2: POINTER TO TABLE ENTRY VTAD0009 * R4: RETURN CODE (ZERO ONLY) VTAD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LM R11,R1,0(R2) VTAD0081 LR R2,R4 VTAD0082 SR R4,R4 VTAD0083 BR R3 VTAD0084 EJECT VTAD0085 VTALJB DC A(LASTJOB) VTAD0086 VTAGS DC A(GETSPACE) VTAD0087 VTAFS DC A(FREESPAC) VTAD0088 VTA27 DC H'27' VTAD0089 END VTAD0090 -FILE 5; 856 RECORDS: 0VTOC TITLE 'VOLREL,VOLGET,VTOCS AND DSKOP SUBROUTINES' VTOC0001 SPACE VTOC0002 ********************************************************************-** VTOC0003 * * VTOC0004 * SUBROUTINES VOLREL, VOLGET, VTOCS, DSKOP * VTOC0005 * * VTOC0006 *********************************************************************** VTOC0007 SPACE VTOC0008 START 0 VTOC0009 SPACE VTOC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE VTOC0847 *********************************************************************** VTOC0848 * * VTOC0849 * DEFINE A SAFE PATCHING AREA * VTOC0850 * * VTOC0851 DS 4F * VTOC0852 * * VTOC0853 *********************************************************************** VTOC0854 SPACE VTOC0855 END VTOC0856 -FILE 6; 485 RECORDS: 0TRAK TITLE 'READT, WRITET, AND READR SUBROUTINES' TRAK0001 *********************************************************************** TRAK0002 * * TRAK0003 * SUBROUTINES READT, READR, AND WRITET * TRAK0004 * * TRAK0005 *********************************************************************** TRAK0006 SPACE TRAK0007 START 0 TRAK0008 SPACE TRAK0009 * ENTRIES, EXTERNAL REFERENCES TRAK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FCBFB EQU 48 ADDRESS OF FIRST BYTE IN BUFFER ENTRY TRAK0476 SPACE TRAK0477 *********************************************************************** TRAK0478 * * TRAK0479 * END OF FILE CONTROL BLOCK DESCRIPTOR * TRAK0480 * * TRAK0481 *********************************************************************** TRAK0482 SPACE TRAK0483 LOGTRKLN EQU 3520 LOGICAL TRACK LENGTH TRAK0484 END TRAK0485 -FILE 7; 320 RECORDS: 0GTZ- TITLE 'GTZ - GET A TYPE ZERO RECORD FROM VTOC' GTZ00001 SPACE GTZ00002 START 0 GTZ00003 SPACE GTZ00004 *********************************************************************** GTZ00005 * * GTZ00006 * SUBROUTINE GTZ * GTZ00007 * * GTZ00008 *********************************************************************** GTZ00009 SPACE GTZ00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> VTEXT EQU 91 GTZ00311 DTL EQU 124 GTZ00312 SPACE 2 GTZ00313 *********************************************************************** GTZ00314 * * GTZ00315 DS 4F A PATCHING TYPE AREA * GTZ00316 * * GTZ00317 *********************************************************************** GTZ00318 SPACE 2 GTZ00319 END GTZ00320 -FILE 8; 376 RECORDS: 0READ TITLE 'SUBROUTINES READ AND READS(SEQUENTIAL)' READ0001 SPACE 3 READ0002 *********************************************************************** READ0003 * * READ0004 * SUBROUTINES READ AND READS(EQUENTIAL) * READ0005 * * READ0006 *********************************************************************** READ0007 SPACE READ0008 SPACE READ0009 SPACE READ0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE READ0367 *********************************************************************** READ0368 * * READ0369 * DEFINE A SAFE SCRATCH AREA * READ0370 * * READ0371 DS 5F * READ0372 * * READ0373 *********************************************************************** READ0374 SPACE READ0375 END READ0376 -FILE 9; 1130 RECORDS: 0WRIT TITLE 'WRITE SUBROUTINE' WRIT0001 SPACE 4 WRIT0002 *********************************************************************** WRIT0003 * * WRIT0004 * SUBROUTINE WRITE - WRITE A LINE INTO THE FILE * WRIT0005 * * WRIT0006 *********************************************************************** WRIT0007 SPACE WRIT0008 *********************************************************************** WRIT0009 * * WRIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE WRIT1121 *********************************************************************** WRIT1122 * * WRIT1123 * DEFINE A SAFE PATCHING AREA * WRIT1124 * * WRIT1125 DS 4F * WRIT1126 * * WRIT1127 *********************************************************************** WRIT1128 SPACE WRIT1129 END WRIT1130 -FILE 10; 70 RECORDS: 0REDL TITLE 'READL - RETURN ADDRESS OF LAST LINE NUMBER' REDL0001 SPACE REDL0002 *********************************************************************** REDL0003 * * REDL0004 * SUBROUTINE READL - RETURN LAST LINE NUMBER * REDL0005 * * REDL0006 *********************************************************************** REDL0007 SPACE 2 REDL0008 *********************************************************************** REDL0009 * * REDL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * REDL0061 EOFOK L R1,56(RD) GET THAT LAST LINE NUMBER REDL0062 ST R1,4(RD) REDL0063 LA R1,0 REDL0064 B OUT REDL0065 * REDL0066 FLINEA DC A(FLINE) REDL0067 LLN DC X'7FFFFFFD' REDL0068 SPACE REDL0069 END REDL0070 -FILE 11; 182 RECORDS: 0SCRC TITLE 'SCRATCH AND CLEAN OUT A FILE ' SCRC0001 SPACE 2 SCRC0002 *********************************************************************** SCRC0003 * * SCRC0004 * SCRTCH SUBROUTINE - CLEANS OUT A FILE * SCRC0005 * * SCRC0006 *********************************************************************** SCRC0007 SPACE 2 SCRC0008 *********************************************************************** SCRC0009 * * SCRC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FCBBC EQU 35 SCRC0173 FCBFB EQU 48 SCRC0174 * SCRC0175 LOGTRKLN EQU 3520 LENGTH OF A RECORD SCRC0176 * SCRC0177 * PATCH AREA IN UNLIKELY CASE OF AN ERROR SCRC0178 * SCRC0179 DS 4F SCRC0180 SPACE 2 SCRC0181 END SCRC0182 -FILE 12; 1209 RECORDS: 0OPEN TITLE 'SUBROUTINES OPEN, CLOSE, CREATE, DESTROY, CHKSUM' OPEN0001 START 0 OPEN0002 *********************************************************************** OPEN0003 * * OPEN0004 * SUBROUTINES OPEN, CLOSE, CREATE, DESTROY, CHKSUM * OPEN0005 * * OPEN0006 *********************************************************************** OPEN0007 SPACE OPEN0008 * ENTRY POINTS AND EXTERNAL NAMES OPEN0009 SPACE OPEN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DESRCIBES ENTRIES IN DSKTAB OPEN1200 * OPEN1201 RETBC EQU 0 OPEN1202 VOLSER EQU 18 OPEN1203 VOLSW EQU 60 BYTE OF SWITCHES IN TYPE 4 OPEN1204 VOLPRIV EQU X'80' ONE MEANS PRIVATE PACK OPEN1205 DTL EQU 124 OPEN1206 * OPEN1207 * OPEN1208 END OPEN1209 -FILE 13; 1119 RECORDS: 0GETD TITLE 'SUBROUTINES GETDSK AND RELDSK' GETD0001 SPACE 5 GETD0002 START 0 GETD0003 SPACE GETD0004 *********************************************************************** GETD0005 * * GETD0006 * SUBROUTINES GETDSK,RELDSK * GETD0007 * * GETD0008 *********************************************************************** GETD0009 SPACE GETD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * GETD1110 * DSECT FOR PART OF RELDSK WHICH GETS A NEW TYPE 5 RECORD SET UP GETD1111 * GETD1112 DSCTA DSECT GETD1113 DS 5D GETD1114 T5SAV EQU DSCTA GETD1115 NT5AD EQU DSCTA+16 GETD1116 GTZWA EQU DSCTA+32 GETD1117 * GETD1118 END GETD1119 -FILE 14; 302 RECORDS: 0FLIN TITLE 'SUBROUTINE FLINE - FIND A LINE ENTRY' FLIN0001 SPACE 6 FLIN0002 *********************************************************************** FLIN0003 * * FLIN0004 * SUBROUTINE FLINE * FLIN0005 * * FLIN0006 *********************************************************************** FLIN0007 SPACE FLIN0008 *********************************************************************** FLIN0009 * * FLIN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE FLIN0293 *********************************************************************** FLIN0294 * * FLIN0295 * DEFINE A SAFE PATCHING AREA * FLIN0296 * * FLIN0297 DS 4F * FLIN0298 * * FLIN0299 *********************************************************************** FLIN0300 SPACE FLIN0301 END FLIN0302 -FILE 15; 1288 RECORDS: 0PDP8 TITLE ' M T S DATA CONCENTRATOR ROUTINES (MODEL UG298)' PDP80001 SPACE 15 PDP80002 ********************************************************************** PDP80003 * * PDP80004 * * PDP80005 * M T S DATA CONCENTRATOR DEVICE SUPPORT ROUTINES * PDP80006 * * PDP80007 * * PDP80008 ********************************************************************** PDP80009 EJECT PDP80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NO. PDP81279 FDUBEL DS F ENDING LINE NO. PDP81280 FDUBIL DS F INCREMENT PDP81281 FDUBSBR DS F SUBR LOC PDP81282 FDUBSCR DS F SCRATCH (SEQ PNTR) PDP81283 FDUBNAM DS F PTR TO WHO IS USING THIS FDUB PDP81284 FDUBDS DS F DEFAULT SWITCHES PDP81285 FDUBCH DS F CHAIN (FOR CONCAT FILES) PDP81286 EJECT PDP81287 END PDP81288 -FILE 16; 492 RECORDS: 0BSLD TITLE 'UNIVERSITY OF MICHIGAN BOOTSTRAP RELOCATABLE LOADER' BSLD0001 BSLOAD START 0 BSLD0002 IPL88 EQU BSLOAD BSLD0003 USING BSLOAD,0 BSLD0004 SPACE 2 BSLD0005 *********************************************************************** BSLD0006 * * BSLD0007 * FIRST ASSEMBLE WITH ANY HANDY SYSTEM/360 ASSEMBLER * BSLD0008 * * BSLD0009 * THEN 1) THROW AWAY FIRST CARD IN OBJECT DECK * BSLD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** BSLD0483 * * BSLD0484 * THE JAZZY UMLOAD SAVE AREA DEFINITION * BSLD0485 * * BSLD0486 *********************************************************************** BSLD0487 SPACE 1 BSLD0488 SAVAD DC A(SAVE) DEFINE SAVE AREA AND LENGTH BSLD0489 ORG BSLOAD+X'3D000' PUT SAVE AREA WAY UP HIGH BSLD0490 SAVE DC A(X'2000') THIS IS ITS LENGTH BSLD0491 END START BSLD0492 -FILE 17; 983 RECORDS: 0ARURTN CSECT ARU00001 ARU TITLE ' **** MTS DEVICE SUPPORT FOR THE ARU ****' ARU00002 DC A(ARINIT,ARDITCH,ARGET,ARPUT,ARSETATN,ARWAIT,ARDITCH) ARU00003 USING FDUB,R8 ARU00004 USING PSCT,R9 ARU00005 SPACE 2 ARU00006 USING *,R15 ARU00007 ARINIT B ARUPS ARU00008 B *+8 ARU00009 B ARRTRN ARU00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PROTON EQU 26 ARU00974 PCISU EQU 31 ARU00975 PCIPOP EQU 32 ARU00976 PROOFF EQU 34 ARU00977 WAYT EQU 35 ARU00978 SETXIT EQU 36 ARU00979 HALTIO EQU 37 ARU00980 ENDXIT EQU 39 ARU00981 XITPOP EQU 42 ARU00982 END ARURTN ARU00983 -FILE 18; 5844 RECORDS: 0 MACRO SYSM0001 &NAME SAVE ®,&CODE,&ID SYSM0002 LCLA &A,&B,&C SYSM0003 LCLC &E,&F,&G,&H SYSM0004 AIF ('®' EQ '').E1 SYSM0005 AIF ('&ID' EQ '').NULLID SYSM0006 AIF ('&ID' EQ '*').SPECID SYSM0007 &A SETA ((K'&ID+2)/2)*2+4 SYSM0008 &NAME B &A.(0,15) BRANCH AROUND ID SYSM0009 &A SETA K'&ID SYSM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 15,=V(FREESPAC) SYSM5835 BALR 14,15 FREE SPACE ACQUIRED BY GDINFO SYSM5836 BNE ###&SYSNDX+4 SYSM5837 #MTSIOPS SYSM5838 #MTSIOCP @CC SYSM5839 #MTSIOG '&MSG',,,###&SYSNDX,O,,,,WRITE SYSM5840 CNOP 0,4 SYSM5841 B *+8 AROUND CONSTANTS SYSM5842 ###&SYSNDX DC F'0' SYSM5843 MEND SYSM5844 -FILE 19; 270 RECORDS: 0BDCS TITLE 'BROADCAST JOB -- SEND MESSAGE TO ACTIVE MTS JOBS' BDCS0001 BROADCST START 0 BDCS0002 ENTRY MESSAGE BDCS0003 SPACE 2 BDCS0004 DC A(BDCS1) ENTRY POINT BDCS0005 DC H'0' NO DEVICES BDCS0006 DC H'1' ONE BUFFER BDCS0007 DC A(BUFL) BUFFER LENGTH BDCS0008 SPACE 2 BDCS0009 PRINT OFF BDCS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 BDCS0261 JBUF DSECT BDCS0262 SPACE BDCS0263 CCW DS D DOUBLE WORD FOR CCW CONSTRUCTION BDCS0264 SW DS CL1 SWITCHES BDCS0265 BUFFER DS CL100 ERROR MESSAGE BUFFER BDCS0266 EOBUF DS H,CL79 BUFFER FOR ECHOING MSG TO DATA CONC BDCS0267 BUFL EQU *-JBUF BDCS0268 SPACE 4 BDCS0269 END BDCS0270 -FILE 20; 393 RECORDS: 067TB TITLE 'TABLES FOR MODEL 67' TABL0001 EJECT TABL0002 MACRO TABL0003 DEV &ADDR,&NAME,&ID,&LCH,&APT=,&OFFLIN=,&CCWT=0 TABL0004 GBLA &DTLN DEVICE TABLE NUMBER TABL0005 LCLC &PAD SCRATCH TABL0006 LCLA &CNT TABL0007 &NAME DC CL4'&ID' TABL0008 &PAD SETC '' TABL0009 AIF (K'&NAME EQ 4).D TABL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0F TABL0384 MAXADD DC X'FFE00000' BITS IN POSITIONS OUTSIDE VM SIZE TABL0385 NUMDEV DC A((ENDDLS-DEVLST)/LDVLST) TOTAL NUMBER OF DEVICES TABL0386 JTBLLIM DC A(0,0,0) FILLED IN BY INITIALIZATION TABL0387 SPACE TABL0388 DS 0H TABL0389 TYPAD DC X'0009' OPERATOR'S CONSOLE ADDRESS TABL0390 CONS DC X'0009' ALTERNATE OPERATOR'S CONSOLE TABL0391 SPACE 3 TABL0392 END TABL0393 -FILE 21; 261 RECORDS: 0JBRP TITLE 'JOB REQUEST PROCESSOR' JBRP0001 * THIS IS JOB PART OF REQUEST PROCESSOR JBRP0002 SPACE JBRP0003 * JBRP0004 * VERSION OF 23 MAY 1966 JBRP0005 * REPLACES VERSION OF 25 NOVEMBER 1956 JBRP0006 * JBRP0007 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE JBRP0008 * JBRP0009 * 1. USE IS MADE OF THE NEW SVC "GTBUF" AND "GTUNIT" JBRP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> JBLST DC A(JOBLST) JBRP0252 DVTBL DC A(DEVTBL) JBRP0253 FOUR DC F'4' JBRP0254 ZEROS DC 11F'0' JBRP0255 ZERO EQU FOUR DC X'0000' JBRP0256 LSTJOB DC CL8' ' FENCE FOR LAST JOB JOBLST JBRP0257 JBRPLOCK DC X'0' LOCK OUT FOR JBRP JBRP0258 DS 0F JBRP0259 JBRPBUF DS CL(TWOSUM) BUFFER FOR PARAMETERS JBRP0260 END BEGIN JBRP0261 -FILE 22; 55 RECORDS: 0FJTL TITLE 'FIND JOB TABLE LOCATION' FNDJ0001 * SUBROUTINE FNDJTL FNDJ0002 * FNDJ0003 * FNDJ0004 * VERSION OF 23 MAY 1966 FNDJ0005 * REPLACES VERSION OF 25 NOVEMBER 1965 FNDJ0006 * FNDJ0007 * THIS VERSION DIFFERS FORM THE PREVIOUS VERSION IN THAT IT FNDJ0008 * USES THE STANDARD EQUALITIES DECK. FNDJ0009 * FNDJ0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END EQU 6 FNDJ0046 WRITE EQU 7 FNDJ0047 DS 0F FNDJ0048 JBTBL DC A(JTBLLIM) WHERE TO FIND JOB TBL LIMITS FNDJ0049 ERMESS DC C'JOB NUMB' FNDJ0050 DC C'ER NOT I' FNDJ0051 DC C'N JOB TA' FNDJ0052 DC C'BLES.' FNDJ0053 LENGTH EQU *-ERMESS FNDJ0054 END FNDJ0055 -FILE 23; 129 RECORDS: 0FBUF TITLE 'FREE BUFFERS AND JOB TABLE' FBJT0001 * SUBROUTINE FBJTJL FBJT0002 * FBJT0003 * FBJT0004 * VERSION OF 23 MAY 1966 FBJT0005 * REPLACES VERSION OF 25 NOVEMBER 1965 FBJT0006 * FBJT0007 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE FBJT0008 * FBJT0009 * 1. THE STANDARD EQUALITIES DECK IS USED FBJT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERMES4 DC C'JOB NAME NOT IN ' FBJT0120 DC C'JOB LIST.' FBJT0121 LNGTH4 EQU *-ERMES4 FBJT0122 DS 0F FBJT0123 BGNTBL EQU *-240 FBJT0124 DC X'F0F1F2F3' HEX NUMBERS TO BE TRANSLATED FBJT0125 DC X'F4F5F6F7' FBJT0126 DC X'F8F9C1C2' FBJT0127 DC X'C3C4C5C6' FBJT0128 END FBJT0129 -FILE 24; 56 RECORDS: 0FIOD TITLE 'FREE I/O DEVICES AND CPU QUEUE' FIDC0001 * SUBROUTINE FIDCQ FIDC0002 * FIDC0003 * FIDC0004 * VERSION OF 23 MAY 1966 FIDC0005 * REPLACES VERSION OF 25 NOVEMBER 1965 FIDC0006 * FIDC0007 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE FIDC0008 * FIDC0009 * 1. THE EQUALITIES DECK IS USED FIDC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SRL GR0,2 FIDC0047 SVC FREE ELSE FREE THIS DEVICE IF POSSIBLE FIDC0048 JFREE1 EQU * DEVICE FREED--SET JOB TBL DTL TO -1 FIDC0049 LA PTRGR,4(PTRGR) FIDC0050 BC 15,RFREE2 FIDC0051 FCQGR EQU 0 CPU QUEUE FREED FLAG FIDC0052 FIDGR EQU 1 I/O DEVICES FREED FLAG FIDC0053 FREE EQU 22 FIDC0054 CLEAR EQU 15 FIDC0055 END FIDC0056 -FILE 25; 37 RECORDS: 0 TITLE 'EXIT SUBROUTINE (SIGN OFF CALLING JOB)' EXIT0001 * SUBPROGRAM EXIT EXIT0002 * EXIT0003 * VERSION OF 1 APRIL 1966 EXIT0004 * REPLACES VERSION OF 25 NOVEMBER 1965 EXIT0005 * EXIT0006 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE -- EXIT0007 * EXIT0008 * 1. THIS SUBPROGRAM HAS BEEN RENAMED EXIT TO EXIT0009 * PERMIT THE JOB WHICH WAS CALLED CIT TO BE CALLED EXIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 15,ADFID EXIT0028 BALR 14,15 CLEAR DEVICE TABLES, LIST AND CPU Q EXIT0029 L 15,ADFBJ EXIT0030 BALR 14,15 FREE BUFFERS,JOB TABLE AND JOB LIST EXIT0031 SVC POPQ EXIT0032 DS 0F EXIT0033 ADFID DC A(FIDCQ) EXIT0034 ADFBJ DC A(FBJTJL) EXIT0035 POPQ EQU 12 EXIT0036 END EXIT0037 -FILE 26; 335 RECORDS: 0PRUC TITLE 'PRINTER UNIT CHECK ROUTINES' PRUC0001 PTRUC START 0 PRUC0002 SPACE 3 PRUC0003 * REGISTER ASSIGNMENT PRUC0004 SR EQU 13 SAVE AREA REGISTER PRUC0005 GR0 EQU 0 PRUC0006 GR1 EQU 1 PRUC0007 GR2 EQU 2 PRUC0008 GR3 EQU 3 PRUC0009 PR EQU 4 PARAMETER AREA PRUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PCM DC C'PRINT CHECK' PRUC0326 PCL EQU *-PCM PRUC0327 MERMSG DC C': MACHINE ERROR ' PRUC0328 PERMSG DC C': PROGRAM ERROR ' PRUC0329 STTMSG DC C'PRINTER STATUS ' PRUC0330 ABVM DC C' THE ABOVE LINE MAY BE PRINTED INCORRECTLY. IT IS REP' PRUC0331 DC C'EATED AFTER THIS COMMENT.' PRUC0332 ABVL EQU *-ABVM PRUC0333 END PRUC0334 /* PRUC0335 -FILE 27; 40 RECORDS: 0STOP TITLE 'JOB TO STOP ANOTHER JOB' STOP0001 * CONSOLE INITIATED TERMINATE JOB STOP0002 * STOP0003 * JOB TYPE - REENTRANT STOP0004 * ARGUMENTS - GR2 - LOCATION OF JOB NUMBER STOP0005 * FUNCTION - FREES ALL BUFFERS,TABLES,LISTS, AND QUEU STOP0006 * ASSOCIATED WITH THIS JOB. STOP0007 * COMMENTS - NO BUFFER OR I/O REQUIREMENTS STOP0008 * STOP0009 TERM1 START 0 STOP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L CODEGR,BLST STOP0031 B CITENT STOP0032 DS 0F STOP0033 ATTN DC C'ATTN' STOP0034 BLST DC C'BLST' STOP0035 KILL DC C'KILL' STOP0036 END EQU 6 STOP0037 STOP EQU 27 STOP0038 CODEGR EQU 10 STOP0039 END STOP0040 -FILE 28; 44 RECORDS: 0JDMP TITLE 'JOB TO DUMP SPECIFIED JOB' JOBD0001 * JOBDUMP JOB JOBD0002 * JOBD0003 * VERSION OF 1 APRIL 1966 JOBD0004 * JOBD0005 * THIS JOB CAUSES A DUMP TO BE PRINTED ON THE SYSTEM JOBD0006 * OUTPUT DEVICE. THE JOB DUMPED IS INDICATED BY THE JOBD0007 * TASK NUMBER TYPED ON JOB INITIATION. A DUMP CAN BE JOBD0008 * CALLED FOR WHILE THE JOB BEING DUMPED IS RUNNING. JOBD0009 * JOBD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'DUMPED' JOBD0035 CNT EQU *-MES JOBD0036 * JOBD0037 END EQU 6 JOBD0038 WRITE EQU 7 JOBD0039 JBDMP EQU 17 JOBD0040 * JOBD0041 AFNDJTL DC V(FNDJTL) LOCATION OF SUBROUTINE TO FIND A JOB TBL JOBD0042 END JOBD0043 $RUN *ASMBLR;SCARDS=*SOURCE* SPRINT=*SINK* SPUNCH=*PUNCH* 0=*SYSMAC JOBD0044 -FILE 29; 30 RECORDS: 0LOWC TITLE 'JOB TO DUMP LOW CORE' LOWC0001 * LOWCORE JOB LOWC0002 * LOWC0003 * VERSION OF 1 APRIL 1966 LOWC0004 * LOWC0005 * THIS JOB CAUSES A DUMP OF THE LOWCORE IOOPSW INT AND CSW LOWC0006 * LOCATIONS TO BE PRINTED ON THE SYSTEM OUTPUT DEVICE. LOWC0007 * LOWC0008 SPACE LOWC0009 LOWCOR START 0 LOWC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * LOWC0021 DMPLST EQU 1 LOWC0022 END EQU 6 LOWC0023 * LOWC0024 LIST DC X'C5' LOWC0025 DC AL3(0) LOWC0026 SIZE DC XL4'1050' LOWC0027 DC C'LOW CORE' LOWC0028 * LOWC0029 END LOWC0030 -FILE 30; 62 RECORDS: 0PN TITLE 'PN BUFFER LOAD PROGRAM' PN000001 PN START 0 PN000002 EXTRN UCBLOD PN000003 DC A(PNBEG) PN000004 DC H'1' PN000005 DC H'0' PN000006 DC CL4'PTR' PN000007 USING *,15 PN000008 PNBEG LA 0,CCWPN PN000009 L 15,AUCBLD PN000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'%$*#&&@<;Â''?>' PN000053 DC C'1234567890XY/STU' PN000054 DC C'VW|:_",=JKLMNOPQ' PN000055 DC C'R-Z(ABCDEFGHI+.)' PN000056 DC C'%$*#&&@<;Â''?>' PN000057 DC C'1234567890XY/STU' PN000058 DC C'VW|:_",=JKLMNOPQ' PN000059 DC C'R-Z(ABCDEFGHI+.)' PN000060 DC C'%$*#&&@<;Â''?>' PN000061 END PN000062 -FILE 31; 89 RECORDS: 0QN TITLE 'PROGRAM TO LOAD QN PRINT TRAIN BUFFER' QN000001 QN START 0 QN000002 EXTRN PTRUC QN000003 ENTRY UCBLOD QN000004 DC A(QNBEG) QN000005 DC H'1' QN000006 DC H'0' QN000007 DC CL4'PTR' QN000008 USING *,15 QN000009 QNBEG LA 0,CCWQN ADDRESS OF CCW'S FOR SUBROUTINE QN000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SENSE DC XL2'0' SENSE DATA HERE QN000080 ID DC CL4' ' DEVICE ID QN000081 SPACE 3 QN000082 * PARAMETERS FOR ALL SIO OPERATIONS QN000083 PARS DC F'0' QN000084 DC A(PTRUEX) QN000085 DC A(PTRUC) QN000086 SPACE 3 QN000087 ECHO DC C'ECHO' QN000088 END QN000089 -FILE 32; 324 RECORDS: 0CPCC TITLE 'CARD TO CARD AND CARD TO PRINT JOBS' CPCC0001 CPCC START 0 CPCC0002 ENTRY CP,CC CPCC0003 EXTRN CDRDUC,CDSTUC,PUNUC,PTRUC,TRANTB CPCC0004 PCHUC EQU PUNUC CPCC0005 SPACE 3 CPCC0006 * SCRATCH AREA DEFINITION CPCC0007 SCR DSECT CPCC0008 UCLINK DC F'0' CPCC0009 DC 24F'0' UNIT CHECK ROUTINE SAVE AREA CPCC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DBLSPC DC C'DBLS' CPCC0315 FENCE DC 4X'FF' CPCC0316 CPSOM DC C'CARD TO PRINT VERSION 1' CPCC0317 CPSOL EQU *-CPSOM CPCC0318 CCSOM DC C'CARD TO CARD VERSION 1' CPCC0319 CCSOL EQU *-CCSOM CPCC0320 EOFM DC C'END OF FILE' CPCC0321 DC C', CARDS READ' CPCC0322 EOFL EQU *-EOFM CPCC0323 END CPCC0324 -FILE 33; 1000 RECORDS: 0*********************************************************************** TCP00001 *TAPE COPY PROGRAM,VERSION 3 (1/66),RE-ENTRANT**************JACK NOLAN* TCP00002 *********************************************************************** TCP00003 * TCP00004 * COPIES AND/OR COMPARES ALL OR PART OF TWO 7- OR 9-TRACK TAPES TCP00005 * WITH SPECIFIED PARITY AND DENSITY AND WITH DATA CONVERTER TCP00006 * OPTION. TCP00007 * TCP00008 * JOB INITIATION MESSAGE. TCP00009 * TPCOPY (INPUT UNIT) (OUTPUT UNIT) (PARAMETER PAIRS) TCP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRITE EQU 7 TCP00991 SAVE EQU 8 TCP00992 RESTOR EQU 9 TCP00993 DELETE EQU 10 TCP00994 SKIP EQU 13 TCP00995 SPWAIT EQU 16 TCP00996 SNSADR EQU 19 TCP00997 GETID EQU 20 TCP00998 TEN DC A(10) TCP00999 END TCP01000 -FILE 34; 4 RECORDS: 0STBA TITLE 'CURRENT STATISTICS BUFFER ADDRESS (6-21-67)' STBF0001 STATBUFF DC F'0' STBF0002 ENTRY STATBUFF CURRENT STAT BUFFER ADDRESS STBF0003 END STBF0004 -FILE 35; 76 RECORDS: 0IOST TITLE 'I/O INTERFACE STATISTICS SUBROUTINE' STSB0001 * STSB0002 * STATISTICS SUBROUTINE FOR I/O INTERFACE STSB0003 * STSB0004 STATSUB START 0 STSB0005 USING STATSUB,15 STSB0006 B ENTER-STATSUB(15) BRANCH TO PREFIX DUMP ROUTINE STSB0007 LA 8,X'F8' POSTFIX ENTRANCE STSB0008 PROCEED LR 6,0 SAVE THE FDUB ADDRESS STSB0009 TM FDUBS(6),X'80' CHECK FOR DEVICE I/O STSB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B AGAIN NOW CONTINUE STSB0067 * STSB0068 ONES EQU 1 CONDITION CODE ALL ONES STSB0069 EQL EQU 8 CONDITION CODE EQUAL STSB0070 * STSB0071 FDUBS EQU 0 SWITCHES DISPLACEMENT IN FDUB STSB0072 FDUBLN EQU 4 LDN DISPLACEMENT IN FDUB STSB0073 * STSB0074 STATENT EQU 44 PLACE ITEM IN STAT BUFFER SVC STSB0075 END STSB0076 -FILE 36; 569 RECORDS: 0STAT TITLE 'STAT/SW JOBS--TAD PINKERTON (WR. 6-67, REV. 5-68)' STJB0001 * STJB0002 * STATISTICS JOB STJB0003 * STJB0004 * JOB HEADER STJB0005 * STJB0006 STATJOB START 0 STJB0007 DC A(STATBEG) ENTRY POINT ADDRESS STJB0008 DC H'1' ONE DEVICE ALWAYS REQUIRED STJB0009 NOBUFRS DC H'3' THREE BUFFERS STJB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DATA EQU 16 LOCATION OF FIRST DATA ITEM IN BUFFER STJB0560 * STJB0561 * JOB TABLE RECORDING BIT DISPLACEMENTS STJB0562 * STJB0563 JTLDISP EQU X'F4' JOB TABLE WORD FOR STAT BITS DISPLACEMENT STJB0564 JTLNAME EQU 4 JOB TABLE WORDS FOR JOB NAME DISPLACEMENT STJB0565 MAXPARS EQU 12 MAXIMUM NUMBER PARAMETERS IN AN UMMPS JOB STJB0566 JOBNO EQU 0 JOB NUMBER DISPLACEMENT IN JOB TABLE STJB0567 * STJB0568 END STJB0569 -FILE 37; 224 RECORDS: 0PNUC TITLE 'PUNCH UNIT CHECK ROUTINES' PUUC0001 PUNUC START 0 PUUC0002 SPACE 3 PUUC0003 * SVC CODES PUUC0004 SIO EQU 2 PUUC0005 WAIT EQU 3 PUUC0006 EXIT EQU 6 PUUC0007 WRITE EQU 7 PUUC0008 SAVE EQU 8 PUUC0009 RESTOR EQU 9 PUUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NRM DC C'PUNCH NOT READY.' PUUC0215 NRL EQU *-NRM PUUC0216 MERMSG DC C': MACHINE ERROR ' PUUC0217 PERMSG DC C': PROGRAM ERROR ' PUUC0218 STTMSG DC C'CARD PUNCH STATUS ' PUUC0219 TBL EQU *-X'F0' PUUC0220 DC C'0123456789ABCDEF' PUUC0221 BOM DC C'PUNCH BUS OUT CHECK.' PUUC0222 BOL EQU *-BOM PUUC0223 END PUUC0224 -FILE 38; 23 RECORDS: 0INIT TITLE 'JOB TO INITIALIZE THE SYSTEM ' INIT0001 * THE FOLLOWING IS A JOB TO FINISH INITIALIZATION INIT0002 SPACE INIT0003 INITJE START 0 INIT0004 DC A(*+8,0) INIT0005 USING *,15 INIT0006 SVC 28 ECHO THE TIME AND DATE INIT0007 STM 0,1,TDTE INIT0008 STM 2,3,TDDE INIT0009 LA 0,TDECL INIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA 1,RESMTS INIT0014 SVC 41 INITIALIZE MTS INIT0015 SVC 6 QUIT INIT0016 DS 0F INIT0017 TDEC DC CL32'TIME AND DATE HAVE BEEN SET TO' INIT0018 TDTE DC CL12' ' INIT0019 TDDE DC CL8' ' INIT0020 TDECL EQU *-TDEC INIT0021 RESMTS DC C'MTS *INI T,,,' INIT0022 END INIT0023 -FILE 39; 53 RECORDS: 0BDEV TITLE 'SUBROUTINE TO BLAST A DEVICE FOR A NEW OPERATION' BLSD0001 SPACE 5 BLSD0002 * CALLING SEQUENCE: BLSD0003 * BLSD0004 * GR0: LOGICAL DEVICE NUMBER BLSD0005 * GR13: LOCATION OF 7 WORD SAVE AREA BLSD0006 * GR14: RETURN LOCATION BLSD0007 * GR15: ENTRY POINT TO BLSTDEV BLSD0008 * BLSD0009 * ALL OPERATIONS ON THE DEVICE ARE HALTED AND THEIR BLSD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERR SVC SAVE MOVE L ALL TO SAVED QUEUE BLSD0044 CLEAR SVC DELETE DELETE ONE OP FROM SAVDE QUEUE BLSD0045 BNE *-2 B IF MORE BLSD0046 SR 15,15 GOOD RETURN CODE BLSD0047 LM 0,5,4(13) BLSD0048 BR 14 BLSD0049 SNARK LA 15,4 BAD RETURN CODE BLSD0050 LM 0,5,4(13) BLSD0051 BR 14 BLSD0052 END BLSD0053 -FILE 40; 135 RECORDS: 0DOVR TITLE 'DUMP OVERRIDE' DMPO0001 DMP START 0 DMPO0002 USING *+X'82',14 DMPO0003 ORG DMP+X'C5C' DMPO0004 DC X'FFFF' DMPO0005 TYPWTR DC X'0009' DMPO0006 OUTDEV DC X'00000070' DMPO0007 ORG DMP+X'AC' DMPO0008 B INIT DMPO0009 ORG DMP+X'5A6' DMPO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PAREA2 DS 120C DMPO0126 SENSE DS C DMPO0127 CTLSW DC X'0' DMPO0128 LOCK DC X'0' DMPO0129 FIX1 AR 3,7 MAKE IT POSSIBLE TO DUMP LAST POSITION IN DMPO0130 CR 3,4 DMPO0131 BC 10,X'3E2'(0,14) DMPO0132 SR 3,7 DMPO0133 BC 15,X'3D0'(0,14) DMPO0134 END DMPO0135 -FILE 41; 107 RECORDS: 0IPLC TITLE 'ABSOLUTE BOOTSTRAP LOADER FOR LLMPS WRITER' IPLP0001 SPACE 2 IPLP0002 *********************************************************************** IPLP0003 * IPLP0004 * THEN 1) THROW AWAY FIRST CARD IN OBJECT DECK IPLP0005 * 2) MOVE BOOTSTRAP LOAD INFORMATION OF SECOND CARD IPLP0006 * (COL 17-40) INTO NEW CARD (IPL),(COL 1-24) IPLP0007 * 3) THROW AWAY ORIGINAL SECOND CARD AND RLD CARDS IPLP0008 * IPLP0009 * DECK 1) IPL CARD IPLP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ABOVE 5 CARDS READ BY IPL PROCEDURE IPLP0098 SPACE IPLP0099 REPLAS DC X'1F1F1F1F' IPLP0100 REPLAT DC X'000A0B0C0D0E0F00' IPLP0101 DC X'0000000000000000' IPLP0102 DC X'0001020304050607' IPLP0103 DC X'0809' IPLP0104 DATAL DC F'0' IPLP0105 SPACE IPLP0106 END IPLP0107 -FILE 42; 569 RECORDS: 0STAT TITLE 'STAT/SW JOBS--TAD PINKERTON (WR. 6-67, REV. 5-68)' STAT0001 * STAT0002 * STATISTICS JOB STAT0003 * STAT0004 * JOB HEADER STAT0005 * STAT0006 STATJOB START 0 STAT0007 DC A(STATBEG) ENTRY POINT ADDRESS STAT0008 DC H'1' ONE DEVICE ALWAYS REQUIRED STAT0009 NOBUFRS DC H'3' THREE BUFFERS STAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DATA EQU 16 LOCATION OF FIRST DATA ITEM IN BUFFER STAT0560 * STAT0561 * JOB TABLE RECORDING BIT DISPLACEMENTS STAT0562 * STAT0563 JTLDISP EQU X'F4' JOB TABLE WORD FOR STAT BITS DISPLACEMENT STAT0564 JTLNAME EQU 4 JOB TABLE WORDS FOR JOB NAME DISPLACEMENT STAT0565 MAXPARS EQU 12 MAXIMUM NUMBER PARAMETERS IN AN UMMPS JOB STAT0566 JOBNO EQU 0 JOB NUMBER DISPLACEMENT IN JOB TABLE STAT0567 * STAT0568 END STAT0569 -FILE 43; 341 RECORDS: 0* * * * * * EQUALITIES * * * * * LLMPE001 SPACE 3 LLMPE002 SPACE 2 LLMPE003 * GENERAL REGISTERS USED BY THE SUPERVISOR LLMPE004 * LLMPE005 FRSTGR EQU 0 FIRST REGISTER SAVED - MUST NOT EXCEED LASTGR LLMPE006 LASTGR EQU 15 LAST REGISTER SAVED LLMPE007 GR0 EQU 0 UTILITY REGISTERS FOR SUPERVISOR USE LLMPE008 GR1 EQU 1 LLMPE009 GR2 EQU 2 LLMPE010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ( O INDICATES EMPTY QUEUE ) LLMPE332 SPACE LLMPE333 * BITS: LLMPE334 SPACE LLMPE335 * 0-3 STORAGE KEY FOR SIO LLMPE336 * 4 1 IF RETURNS LIST HAS NOT BEEN MOVED YET LLMPE337 * 5 1 IF HALT I/O HAS BEEN DONE FOR LAST OPERATION LLMPE338 * 6 1 IF A UC IS PENDING ON THE DEVICE LLMPE339 * 7 1 IF A UE IS PENDING ON THE DEVICE LLMPE340 SPACE LLMPE341 -FILE 44; 93 RECORDS: 0BUFA TITLE 'TERMINAL DEVICE BUFFER ALLOCATION SUBROUTINE' BFAL0001 BUFALLOC START 0 BFAL0002 USING *,15 BFAL0003 LA 0,BUFLOCK SET MY LOCK BFAL0004 SVC LOCK BFAL0005 SVC PROOFF BFAL0006 STM 2,3,SAVREG NEED ONLY TWO REGISTERS BFAL0007 L 3,=V(LASTJOB) GET JOB TABLE AND JOB NUMBERS BFAL0008 L 3,0(0,3) BFAL0009 MVC JOBT#(4),0(3) BFAL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> #BUFS EQU 28 ONE FOR EACH DATA SET BFAL0084 * TABLES TO KEEP TRACK OF USE OF BUFFERS BFAL0085 INUSE DC XL(#BUFS)'0' BFAL0086 JOB#TBL DC XL(#BUFS)'0' BFAL0087 * GET LITERALS UNDER BASE REGISTER BFAL0088 LTORG BFAL0089 * THE BUFFERS -- BFAL0090 DS 0D BFAL0091 BUF DS (#BUFS)CL128 BFAL0092 END BFAL0093 -FILE 45; 152 RECORDS: 0TPMV TITLE 'JOB TO EXECUTE CONTROL COMANDS FOR TAPES' TPJB0001 TPMOVE START 0 TPJB0002 ENTRY JBBSR,JBBSF,JBFSR,JBFSF,JBWTM,JBERG,JBRUN,JBREW TPJB0003 USING *,12 TPJB0004 USING DSECT1,13 TPJB0005 COM LA 0,1 COMMON PART OF JOBS TPJB0006 L 13,0(0,1) GET LOC OF SCRATCH AREA TPJB0007 LA 1,DSECT2 LINK UP FOR TAPE UC TPJB0008 ST 1,DSECT1 TPJB0009 L 9,0(0,2) GET COUNT TPJB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * TPJB0143 TPMOVE CSECT TPJB0144 LPC DC C'LOAD POINT' TPJB0145 EOTC DC C'END OF TAPE' TPJB0146 UEC DC C'TAPE MARK' TPJB0147 DCC DC C'DATA CHECK' TPJB0148 RCC DC C'REMAINING COUNT IS' TPJB0149 DC X'402020202120' TPJB0150 RCCL EQU *-RCC TPJB0151 END TPJB0152 -FILE 46; 267 RECORDS: 0DRMI TITLE 'PROGRAM TO INITIALIZE DRUM' DMIN0001 DRUMINIT START 0 DMIN0002 SPACE 5 DMIN0003 STIO EQU 2 DMIN0004 WAIT EQU 3 DMIN0005 SILI EQU X'20' DMIN0006 SPACE 5 DMIN0007 USING *,15 DMIN0008 BALR 10,0 DMIN0009 DROP 15 DMIN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'0900' DMIN0258 DC AL2(PAGE) DMIN0259 SPACE 5 DMIN0260 FMASK DC X'C0' ALLOW EVERYTHING DMIN0261 LTORG DMIN0262 SPACE DMIN0263 SPACE 4 DMIN0264 DRUMDATA DC 1024F'0' DMIN0265 SPACE 5 DMIN0266 END DMIN0267 -FILE 47; 912 RECORDS: 067TB TITLE 'TABLES FOR MODEL 67' UMTB0001 * UMTB0002 * THIS IS THE MODEL 50 TABLES UMTB0003 SPACE 5 UMTB0004 * THIS PROGRAM CONTAINS SPACE FOR THE TABLES SPECIFIED BY THE UMTB0005 * 'ENTRY' FIELDS BELOW. UMTB0006 SPACE 3 UMTB0007 * VERSION OF 23 MAY 1966 UMTB0008 * REPLACES VERSION OF 1 APRIL 1966 UMTB0009 * UMTB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0F UMTB0903 MAXADD DC X'FFE00000' BITS IN POSITIONS OUTSIDE VM SIZE UMTB0904 NUMDEV DC A((ENDDLS-DEVLST)/LDVLST) TOTAL NUMBER OF DEVICES UMTB0905 JTBLLIM DC A(0,0,0) FILLED IN BY INITIALIZATION UMTB0906 SPACE UMTB0907 DS 0H UMTB0908 TYPAD DC X'0009' OPERATOR'S CONSOLE ADDRESS UMTB0909 CONS DC X'0809' ALTERNATE OPERATOR'S CONSOLE UMTB0910 SPACE 3 UMTB0911 END UMTB0912 -FILE 48; 393 RECORDS: 067TB TITLE 'TABLES FOR MODEL 67' UBCT0001 EJECT UBCT0002 MACRO UBCT0003 DEV &ADDR,&NAME,&ID,&LCH,&APT=,&OFFLIN=,&CCWT=0 UBCT0004 GBLA &DTLN DEVICE TABLE NUMBER UBCT0005 LCLC &PAD SCRATCH UBCT0006 LCLA &CNT UBCT0007 &NAME DC CL4'&ID' UBCT0008 &PAD SETC '' UBCT0009 AIF (K'&NAME EQ 4).D UBCT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0F UBCT0384 MAXADD DC X'FFE00000' BITS IN POSITIONS OUTSIDE VM SIZE UBCT0385 NUMDEV DC A((ENDDLS-DEVLST)/LDVLST) TOTAL NUMBER OF DEVICES UBCT0386 JTBLLIM DC A(0,0,0) FILLED IN BY INITIALIZATION UBCT0387 SPACE UBCT0388 DS 0H UBCT0389 TYPAD DC X'0009' OPERATOR'S CONSOLE ADDRESS UBCT0390 CONS DC X'0009' ALTERNATE OPERATOR'S CONSOLE UBCT0391 SPACE 3 UBCT0392 END UBCT0393 -FILE 49; 388 RECORDS: 0CDUC TITLE 'CARD READER UNIT CHECK ROUTINES' RDUC0001 CARDUC START X'A000' RDUC0002 SPACE RDUC0003 ENTRY CDSTUC RDUC0004 ENTRY CDRDUC RDUC0005 SPACE RDUC0006 BASE EQU * RDUC0007 SPACE RDUC0008 USING DSECT1,13 REGISTER 13 INITIALIZED BY CALLER RDUC0009 SPACE RDUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(MERR) RDUC0379 DC A(DUMUC) RDUC0380 SPCRTN DS F RETURNS LIST FOR SPECIAL WAIT RDUC0381 DC A(MERR) RDUC0382 DC A(SPCUC) RDUC0383 DUMCCW CCW X'E2',*,X'30',1 DUMMY READ, NO-FEED, SKIP FLAG ON RDUC0384 END RDUC0385 $ENDFILE RDUC0386 $RUN *OBJSCAN RDUC0387 NEWOBJ RDUC0388 -FILE 50; 514 RECORDS: 0DSKC TITLE 'DISK AND DRUM UNIT CHECK' DUC00001 DISKUC START 0 DUC00002 SPACE 3 DUC00003 * REGISTER ASSIGNMENTS DUC00004 GR0 EQU 0 DUC00005 GR1 EQU 1 DUC00006 GR2 EQU 2 DUC00007 GR3 EQU 3 DUC00008 PR EQU 4 POINTER TO PARAMETERS DUC00009 BR EQU 5 BASE REGISTER DUC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NRM DC C' NOT READY' DUC00505 NRL EQU *-NRM DUC00506 ERRM DC C' ERROR *, EEII F' DUC00507 DC C'F SSSSSSSSSSSS C' DUC00508 DC C'C HH OO' DUC00509 ERRL EQU *-ERRM DUC00510 SEEKSU DC X'200000060000' DUC00511 TBL EQU *-240 DUC00512 DC C'0123456789ABCDEF' DUC00513 END DUC00514 -FILE 51; 83 RECORDS: 0CCTB TITLE 'CARRIAGE CONTROL TRANSLATE TABLES' CCTR0001 ENTRY CCTB CCTR0002 ENTRY CCTBP,CCTBTR CCTR0003 SPACE 3 CCTR0004 * CARRIAGE CONTROL TABLE CCTR0005 DS 0F CARRIAGE CONTROL TABLE CCTR0006 CCTB DC X'00' NUMBER OF ENTRIES CCTR0007 DC X'09' COMMAND CODE CCTR0008 DC H'1' AMOUNT TO ADD TO LINE POINTER CCTR0009 CCTB9 DC X'00090001' CCTR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(CCTB2-CCTB) 2 CCTR0074 DC X'00' CCTR0075 DC AL1(CCTB4-CCTB) 4 CCTR0076 DC X'00' CCTR0077 DC AL1(CCTB6-CCTB) 6 CCTR0078 DC X'00' CCTR0079 DC AL1(CCTB6-CCTB) 8 CCTR0080 DC AL1(CCTB9-CCTB) CCTR0081 DC XL6'0' CCTR0082 END CCTR0083 -FILE 52; 39 RECORDS: 0TRAN TITLE 'QN OR PN TRANSLATE TABLE' TRNT0001 ENTRY TRANTB TRNT0002 SPACE 3 TRNT0003 * TRANSLATE TABLE FOR QN PRINT TRAIN TRNT0004 TRANTB EQU * TRNT0005 DC X'4040404040404040' 1 TRNT0006 DC X'4040404040404040' 2 TRNT0007 DC X'4040404040404040' 3 TRNT0008 DC X'4040404040404040' 4 TRNT0009 DC X'4040404040404040' 5 TRNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'6FC1C2C3C4C5C6C7' 25 TRNT0030 DC X'C8C9404040404040' 26 TRNT0031 DC X'7CD1D2D3D4D5D6D7' 27 TRNT0032 DC X'D8D9404040404040' 28 TRNT0033 DC X'7B40E2E3E4E5E6E7' 29 TRNT0034 DC X'E8E9404040404040' 30 TRNT0035 DC X'F0F1F2F3F4F5F6F7' 31 TRNT0036 DC X'F8F9404040404040' 32 TRNT0037 SPACE 3 TRNT0038 END TRNT0039 -FILE 53; 128 RECORDS: 0STSW TITLE 'CHANGE UNIT STATUS' ONOF0001 * JOB TO CHANGE A UNIT FROM OFFLINE TO ONLINE STATUS ONOF0002 * OR ONLINE TO OFFLINE STATUS ONOF0003 SPACE 3 ONOF0004 ONLIN START 0 ONOF0005 ENTRY OFFLIN ONOF0006 DC A(ON) OFFLINE JOB HEADER ONOF0007 DC F'1' ONE BUFFER ONOF0008 DC F'32' 32 BYTES LONG ONOF0009 OFFLIN DC A(OFF) OFFLIN JOB HEADER ONOF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BUSYM DC AL1(BUSYME-*-2) ONOF0119 DC C'IS BUSY' ONOF0120 BUSYME EQU * ONOF0121 OFOFM DC AL1(OFOFME-*-2) ONOF0122 DC C'IS ALREADY OFFLINE' ONOF0123 OFOFME EQU * ONOF0124 ONONM DC AL1(ONONME-*-2) ONOF0125 DC C'IS ALREADY ONLINE' ONOF0126 ONONME EQU * ONOF0127 END ONOF0128 -FILE 54; 271 RECORDS: 01JLE TITLE 'FIRST JOB JLE ' JBLS0001 JOBLST START 0 JBLS0002 SPACE JBLS0003 * JBLS0004 * VERSION OF 23 MAY 1966 JBLS0005 * REPLACES VERSION OF 7 APRIL 1966 JBLS0006 * JBLS0007 * THIS VERSION DIFFERS FROM THE PREVIOUS VERSION JBLS0008 * IN THE FOLLOWING WAYS JBLS0009 * JBLS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * JBLS0262 * VERSION OF 25 NOVEMBER 1965 JBLS0263 * JBLS0264 DC C' ' LAST JOB MUST HAVE BLANK JOB NAME JBLS0265 DC X'00' LAST JOB HAS 0 VERSION NUMBER JBLS0266 DC X'00' LAST JOB HAS BITS SET TO 0 JBLS0267 DC X'FFFF' LAST JOB HAS JOB NUMBER POSITION FILLED JBLS0268 DC X'FFFFFFFF' LAST JOB HAS LOCATION OF JOB HEADER JBLS0269 * SET TO ALL ONES JBLS0270 END JBLS0271 -FILE 55; 107 RECORDS: 0LCSY TITLE 'LOW CORE SYMBOL DEFINITION' LCSYM001 MACRO LCSYM002 ESDD &SYM,&ENAME LCSYM003 DC CL8'&SYM' LCSYM004 AIF (T'&ENAME EQ 'O').A LCSYM005 DC V(&ENAME) LCSYM006 MEXIT LCSYM007 .A DC V(&SYM) LCSYM008 MEND LCSYM009 SPACE 3 LCSYM010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ESDD MTS#,MTSSUB LCSYM098 ESDD MTS#,MTSSUB LCSYM099 ESDD MAXADD LCSYM100 ESDD READL LCSYM101 ESDD TRANTB LCSYM102 ESDD TSKFMT LCSYM103 ESDD PEEL LCSYM104 ESDD CASECONV LCSYM105 ENDESD EQU * LCSYM106 END LCSYM107 -FILE 56; 23 RECORDS: 0INIT TITLE 'JOB TO INITIALIZE THE SYSTEM ' INIT0001 * THE FOLLOWING IS A JOB TO FINISH INITIALIZATION INIT0002 SPACE INIT0003 INITJE START 0 INIT0004 DC A(*+8,0) INIT0005 USING *,15 INIT0006 SVC 28 ECHO THE TIME AND DATE INIT0007 STM 0,1,TDTE INIT0008 STM 2,3,TDDE INIT0009 LA 0,TDECL INIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA 1,RESMTS INIT0014 SVC 41 INITIALIZE MTS INIT0015 SVC 6 QUIT INIT0016 DS 0F INIT0017 TDEC DC CL32'TIME AND DATE HAVE BEEN SET TO' INIT0018 TDTE DC CL12' ' INIT0019 TDDE DC CL8' ' INIT0020 TDECL EQU *-TDEC INIT0021 RESMTS DC C'MTS *INI T,,,' INIT0022 END INIT0023 -FILE 57; 488 RECORDS: 0CRDR TITLE 'MTS 2501 SUPPORT ROUTINES (NON-RESIDENT) --- VERSION @RD250001 1 OCTOBER 1968' RD250002 MACRO RD250003 &SLB ERMSG &WHAT,&RC RD250004 LCLA &LNG RD250005 &LNG SETA K'&WHAT-2 RD250006 &SLB STM R2,R4,ERMSGSA SAVE REGISTERS FOR POP RD250007 BAL R3,ERMSG SUBROUTINE TO PROCESS THEM RD250008 DC AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE RD250009 SPACE 1 RD250010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER RD250479 FDUBEL DS F NOT PERTINENT RD250480 FDUBIL DS F INCREMENT RD250481 FDUBSR DS F SUBROUTINE LOCATION RD250482 FDUBSCR DS F SCRATCH RD250483 FDUBNAM DS F BACK POINTER TO WHO'S USING IT RD250484 FDUBDS DS F DEFAULT SWITCHES RD250485 FDUBCH DS F NOT PERTINENT RD250486 EJECT RD250487 END CRDR RD250488 -FILE 58; 8132 RECORDS: 0UMPS TITLE 'UM VERSION OF LLMPS SUPERVISOR' SUPR0001 MACRO SUPR0002 &N SETUP &A,&B SUPR0003 AIF (T'&N EQ 'O').A SUPR0004 &N DS 0H SUPR0005 .A IHBINNRA &A,&B SUPR0006 MEND SUPR0007 SPACE 3 SUPR0008 MACRO SUPR0009 &N GRAB &L SUPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * BYTE-ALIGNED STUFF. SSUCONF THRU CPUCONF ASSEMBLED FOR SIMPLEX CONF0755 FSAMAP DC X'0' BIT FOR EACH FSA CONF0756 SSUCONF DC X'88' BIT FOR EACH CPU & CCU CONF0757 CCUCONF DC X'08' BIT FOR EACH CCU IN 4-7 CONF0758 CPUCONF DC X'80' BIT FOR EACH CPU IN 0-3 CONF0759 BIT DC X'8040201008040201' CONF0760 FSAVALID DC X'80C0E0F0F8FCFEFF' CONF0761 NUMBITS DC X'00010102010202030102020302030304' CONF0762 INP DS CL50 INPUT AREA FOR TYPEWRITER CONF0763 END CONF0764 -FILE 59; 9790 RECORDS: 0MTS TITLE ' UMMPS TERMINAL SYSTEM ' MTS00001 MACRO MTS00002 &SLB RSAVE &GRX MTS00003 &SLB L SCA,&GRX.SS MTS00004 LA SCA,4(SCA) MTS00005 ST SCA,&GRX.SS MTS00006 ST &GRX,&GRX.SS(SCA) MTS00007 MEND MTS00008 SPACE 3 MTS00009 MACRO MTS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GTSBSE DC A(INLOOP+X'1000',INLOOP) MTS09781 LGIOSP DC A(GIOSP) MTS09782 LTORG MTS09783 ENDOFMTS EQU * LOCATION OF END OF MTS MTS09784 EJECT MTS09785 DUMMY DSECT MTS09786 COPY MTS.RHTABLE MTS09787 COPY MTS.DSECT MTS09788 TOTAL MTS09789 END MTS09790 -FILE 60; 447 RECORDS: 0********************************************************************* KWIC0001 * * KWIC0002 * K W I C -- KEYWORD SCANNER * KWIC0003 * * KWIC0004 * SELF-ADDRESSABLE * KWIC0005 * * KWIC0006 * ENTRY: GR0 = LENGTH OF LEFT-HAND TABLE * KWIC0007 * GR1 = LOCATION OF LEFT-HAND TABLE * KWIC0008 * GR2 = LOCATION OF EXECUTE TABLE * KWIC0009 * SCA = LOCATION OF TEXT KWIC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * COPY MTS.CONTAB KWIC0438 * COPY MTS.DSECT KWIC0439 COPY *LLMPSEQU(100) KWIC0440 COPY MTS.EQU KWIC0441 EJECT KWIC0442 DUMMY DSECT KWIC0443 COPY MTS.CONTAB KWIC0444 COPY MTS.DSECT KWIC0445 PRINT ON KWIC0446 END KWIC0447 -FILE 61; 712 RECORDS: 0GSFS TITLE 'STORAGE ALLOCATION FOR MTS.' GTFR0001 MACRO GTFR0002 &LAB HWIMB &N,&R=4 GTFR0003 &LAB L &R,LASTJBA GTFR0004 L &R,0(0,&R) GTFR0005 L &R,RJBBUF(0,&R) GTFR0006 MEND GTFR0007 * GTFR0008 MACRO GTFR0009 &LAB GTBUF GTFR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MTS.DSECT GTFR0703 PRINT OFF GTFR0704 COPY *LLMPSEQU(100) GTFR0705 COPY MTS.EQU GTFR0706 DUMMY DSECT , DOWN THE DRAIN GTFR0707 COPY MTS.CONTAB GTFR0708 COPY MTS.DSECT GTFR0709 PRINT ON GTFR0710 DSCTL EQU (LASTDSCT-DSCT+7)/8*8 GTFR0711 END GTFR0712 -FILE 62; 1238 RECORDS: 0PDP TITLE 'PAGING DRUM PROCESSOR' PDP00001 SPACE 15 PDP00002 ********************************************************************** PDP00003 * * PDP00004 * * PDP00005 * P A G I N G D R U M P R O C E S S O R * PDP00006 * * PDP00007 * * PDP00008 ********************************************************************** PDP00009 EJECT PDP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DRMS7 DC 100X'01' PDP01229 DRMS8 DC 100X'01' PDP01230 DRMS9 DC 100X'01' PDP01231 DRMSAVAL DC 18H'100' CURRENT AND MIN. NBR AVAIL PDP01232 SPACE 4 PDP01233 DRUMDL EQU *-DRUMD V2 PDP01234 EJECT PDP01235 COPY *PCBDSECT PDP01236 EJECT PDP01237 END PDP01238 -FILE 63; 13 RECORDS: 0SPDP TITLE 'PROGRAM TO START THE PAGING DRUM PROCESSOR' SPDP0001 STRTPDP START 0 SPDP0002 USING *,15 SPDP0003 SPACE 2 SPDP0004 STJOB EQU 41 START JOB SVC SPDP0005 SPACE 2 SPDP0006 LA 0,L'STPDP SPDP0007 LA 1,STPDP SPDP0008 SVC STJOB SPDP0009 BR 14 SPDP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE SPDP0011 STPDP DC C'PDP ' SPDP0012 END SPDP0013 -FILE 64; 123 RECORDS: 0USER TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS' USER0001 USERS START 0 USER0002 * COPY *LLMPSEQU(100) INCLUDE SYSTEM EQUALITIES USER0003 PRINT OFF USER0004 COPY *LLMPSEQU(100) USER0005 PRINT ON USER0006 EJECT USER TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS' USER0001 USERS START 0 USER0002 * COPY *LLMPSEQU(100) INCLUDE SYSTEM EQUALITIES USER0003 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' AVAILABLE LINES, AND' USER0107 DC X'40202120' USER0108 DC C' NON-MTS JOBS USING' USER0109 DC X'40202120' USER0110 DC C' VIRTUAL PAGES AND' USER0111 DC X'40202120' USER0112 DC C' REAL PAGES.' USER0113 SA DS 18F USER0114 WORK DS D USER0115 END USER0116 -FILE 65; 85 RECORDS: 0 TITLE 'EBCDBCD -- TRANSLATES EBCDIC TO AUGMENTED BCD' ETOB0001 * ETOB0002 * EBCDBCD TRANSLATES INPUT LINES IN EBCDIC TO ETOB0003 * CHARACTER-EQUIVALENT OUTPUT LINES IN AUGMENTED BCD. ETOB0004 * ETOB0005 * LOWER-CASE LETTERS ARE CONVERTED TO UPPER CASE. ETOB0006 * ETOB0007 SPACE 6 ETOB0008 MACRO ETOB0009 &NAME CALL &SUB,&PARLIST ETOB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC 10X'40',X'7DE0D07C7B7F' ETOB0076 DC X'40C1C2C3C4C5C6C7C8C9',6X'40' ETOB0077 DC X'40D1D2D3D4D5D6D7D8D9',6X'40' ETOB0078 DC X'4040E2E3E4E5E6E7E8E9',22X'40' ETOB0079 DC X'40C1C2C3C4C5C6C7C8C9',6X'40' ETOB0080 DC X'40D1D2D3D4D5D6D7D8D9',6X'40' ETOB0081 DC X'4040E2E3E4E5E6E7E8E9',6X'40' ETOB0082 DC X'F0F1F2F3F4F5F6F7F8F9',6X'40' ETOB0083 LTORG ETOB0084 END EBCDBCD ETOB0085 -FILE 66; 2139 RECORDS: 0MAIN TITLE 'MACRO DEFINITIONS' 8ASR0001 * 8ASR0002 PRINT NOGEN 8ASR0003 * 8ASR0004 MACRO SUBROUTINE ENTRY 8ASR0005 &L SAVE &X 8ASR0006 &L STM RE,&X,12(RD) 8ASR0007 LA RF,4*(&X+3)+12(RD) 8ASR0008 ST RF,8(RD) 8ASR0009 ST RD,4(RF) 8ASR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GENPS OPDM,19+FSW1,V(OPRTAB) 8ASR2130 * 8ASR2131 * PREDEFINED OPERAND SYMBOL TABLE 8ASR2132 * 8ASR2133 ABCTAB GENOP @VALUE,0,0 8ASR2134 GENOP @CSID,0,0 8ASR2135 GENOP @FLAGS,0,0 8ASR2136 GENOP @TYPE,0,0,V(SYMTAB) 8ASR2137 * 8ASR2138 END 8ASR2139 -FILE 67; 767 RECORDS: 0UPDT TITLE 'UNIVERSITY OF MICHIGAN MTS SEQUENTIAL UPDATE PROGRAM' UPDT0001 *********************************************************************** UPDT0002 * * UPDT0003 * MACROS * UPDT0004 * * UPDT0005 *********************************************************************** UPDT0006 SPACE 1 UPDT0007 MACRO UPDT0008 &LAB TPCNT &A UPDT0009 &LAB MVC T2(4),=CL4'&A' UPDT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SRCAREA DS 80CL1 SOURCE INPUT AREA UPDT0758 DC C' ' UPDT0759 INAREA DS 80CL1 INPUT FILE INPUT AREA UPDT0760 DC C' ' UPDT0761 OUTAREA DS 80CL1 OUTPUT FILE OUTPUT AREA UPDT0762 SPACE 1 UPDT0763 KYWDAD DS F CURRENT LOCATION IN SRCAREA UPDT0764 KYWDREG DS 6F KEYWORD PROCESSOR REGISTER SAVE AREA UPDT0765 SPACE 2 UPDT0766 END UPDATE UPDT0767 -FILE 68; 29 RECORDS: 0DEST START 0 DEST0001 ENTER 12,SA=SA DEST0002 MVC SAV13,4(13) DEST0003 READ SCARDS NAME,LEN,EXIT=QUIT DEST0004 LH 1,LEN DEST0005 CH 1,=H'16' DEST0006 BNL NOCLEAR DEST0007 LA 1,NAME(1) DEST0008 MVC 0(16,1),=CL16' ' DEST0009 NOCLEAR SPRINT NAME,16,@ÂCC DEST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> QUIT L 13,SAV13 DEST0020 LM 14,12,12(13) DEST0021 SR 15,15 DEST0022 BR 14 DEST0023 SAV13 DS F DEST0024 SA DS 200D DEST0025 NAME DS 10CL16 DEST0026 ERRM DC C' X ERROR RETURN FROM DESTRY' DEST0027 LEN DS H DEST0028 END DEST0029 -FILE 69; 158 RECORDS: 0RECP TITLE 'PROGRAM TO GENERATE MTS RECEIPT CARDS' RCPT0001 RECP START 0 RCPT0002 USING RECP,12 RCPT0003 LR 12,15 LOAD THE BASE REGISTER RCPT0004 PRINT NOGEN WE REALLY DON'T WANT ALL THOSE MACROS RCPT0005 SPACE 1 RCPT0006 SERCOM ' MTS RECEIPT CARD PROGRAM ' RCPT0007 SPACE 1 RCPT0008 GETPCH SERCOM ' ENTER THE NAME OF THE PUNCH' RCPT0009 GUSER INPUT,INL RCPT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> INL DS H LENGTH OF THE INPUT RECORD RCPT0149 SPACE 1 RCPT0150 TRTOP DC X'08040201000000000000' TOP HALF GENERATION RCPT0151 TRBOT DC X'00000000201008040201' BOTTOM HALF GENERATION RCPT0152 TREXCHNG DC X'0006010702080309040A050B' TOP AND BOTTOM EXCHANGE RCPT0153 SPACE 1 RCPT0154 FDUB DS F THE FDUB OF THE PUNCH RCPT0155 RECPSW DS XL1 SWITCH FOR THE RECEIPT CARD OPTION RCPT0156 SPACE 2 RCPT0157 END RECP RCPT0158 -FILE 70; 253 RECORDS: 0CATL TITLE 'PROGRAM TO LIST THE NAMES OF A USERS FILES' NCAT0001 ACATALOG START 0 NCAT0002 SPACE 3 NCAT0003 * ENTRY POINT NCAT0004 USING *,12 NCAT0005 STM 14,12,12(13) NCAT0006 LR 12,15 NCAT0007 ST 13,SA NCAT0008 LA 13,SCR NCAT0009 L 15,=V(GUSERID) NCAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PUNTM DC C'PUNT' NCAT0244 PUNTC DC H'4' NCAT0245 SPACE NCAT0246 LTORG NCAT0247 SPACE NCAT0248 CNOP 0,8 NCAT0249 CARD DS 256C NCAT0250 FCB DS 70F NCAT0251 SCR DS 250F NCAT0252 END NCAT0253 -FILE 71; 7 RECORDS: 0OPER MTS BATCH MORE RDR3 , PTR5 , PCH3 BTST0001 OPER MTS BATCH MORE RDR1 , PTR3 , PCH1 BTST0002 OPER MTS BATCH MORE RDR2 , PTR1 , PCH2 BTST0003 OPER MTS BATCH MORE RDR5 , PTR2 BTST0004 EOF OFF BTST0005 BATCH CONFIGURATION (11 SEPTEMBER 1968) BTST0006 JOBS ON: RDR3/PTR5/PCH3, RDR1/PTR3/PCH1, RDR2/PTR1/PCH2, RDR5/PTR2 BTST0007 -FILE 72; 581 RECORDS: 0QSAM TITLE 'UNIVERSITY OF MICHIGAN MTS QSAM INPUT/OUTPUT ROUTINES' QSAM0001 *********************************************************************** QSAM0002 * * QSAM0003 * MACROS * QSAM0004 * * QSAM0005 *********************************************************************** QSAM0006 SPACE 1 QSAM0007 MACRO QSAM0008 INIT &A QSAM0009 Q&A STM 14,12,12(13) SAVE REGISTERS QSAM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> T1 DS 5F TEMPORARY FOR DIRTY WORK QSAM0572 T2 DS D DITTO QSAM0573 SPACE 1 QSAM0574 ERMSGL DS H ERROR MESSAGE LENGTH QSAM0575 ERMSGA DS 100CL1 ERROR MESSAGE TEXT QSAM0576 SPACE 1 QSAM0577 SRLD DC C'SRL00000' QSAM0578 SRLDL DC H'8' QSAM0579 SPACE 2 QSAM0580 END QSAM0581 -FILE 73; 385 RECORDS: 0DDMP TITLE 'UNIVERSITY OF MICHIGAN DIRECT ACCESS DEVICE HEX DUMP' DADMP001 DDUMP START 0 DADMP002 SPACE 1 DADMP003 EXTRN SCARDS DADMP004 EXTRN SPRINT DADMP005 EXTRN DISKUC DADMP006 EXTRN GETD DADMP007 EXTRN GDINFO DADMP008 EXTRN FREED DADMP009 SPACE 1 DADMP010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BC 4,*-2 DADMP376 L 13,SAV13 DADMP377 BC 15,SRREST RETURN WITH NO LABEL RECORD DADMP378 SPACE 1 DADMP379 LTORG DADMP380 SPACE 1 DADMP381 BUFL EQU 20856 DADMP382 BUF DS (BUFL/4)F DADMP383 SPACE 1 DADMP384 END DADMP385 -FILE 74; 74 RECORDS: 0PRINT START 0 PRNT0001 PRINT NOGEN PRNT0002 ENTER 12,SA=SA PRNT0003 WRITE 0,'REW',@CC PRNT0004 LA 3,TBL PRNT0005 RD READ 0,IN PRNT0006 CLC ENDOFTP,IN PRNT0007 BE SORT PRNT0008 MVC 0(16,3),IN PRNT0009 LA 3,16(0,3) PRNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IN DS CL256 PRNT0065 LIM DC A(TBL,16,0) PRNT0066 LLIM DC A(LINE+7-13,13,LINE+7+9*13-1) PRNT0067 SYSLIM DC A(LINE+7-17,17,LINE+132-17) PRNT0068 T DS CL16 PRNT0069 UID DS CL4 PRNT0070 LINE DC CL133' XXXX:' PRNT0071 LTORG PRNT0072 TBL DS 2000CL16 PRNT0073 END PRNT0074 -FILE 75; 92 RECORDS: 0C LIBRARY TO FAST LIBRARY EDIT LBFS0001 C LBFS0002 C LOGICAL DEVICE NUMBERS: LBFS0003 C 1 - NEW LIBRARY PUT HERE. LBFS0004 C 2 - OLD LIBRARY EXPECTED HERE. LBFS0005 C 3 - SCRATCH FILE. LBFS0006 C 6 - PRINTED OUTPUT. LBFS0007 C LBFS0008 C THIS PROGRAM READS A CORRECTLY STRUCTURED LIBRARY LBFS0009 C FILE AND CONVERTS THE 'LIB' RECORDS TO THE NEW LBFS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRITE (6,902) IRECDS LBFS0083 101 IF ( LINE .EQ. LINTMP) CALL SYSTEM LBFS0084 CALL READ(INPUT,INPUTL,22,LINE,3) LBFS0085 CALL WRITE(INPUT,INPUTL,86,LINE,1) LBFS0086 LINE = LINE+1000 LBFS0087 GO TO 101 LBFS0088 C LBFS0089 C THAT'S ALL FOLKS LBFS0090 C LBFS0091 END LBFS0092 -FILE 76; 24 RECORDS: 0UID START 0 UFND0001 PRINT NOGEN UFND0002 ENTER 12,SA=SA UFND0003 READ SCARDS IN,EXIT=OUT UFND0004 L 1,IN UFND0005 LM 3,5,BXLECON UFND0006 BXH BXH 3,4,ADD UFND0007 C 1,0(0,3) UFND0008 BE READ UFND0009 B BXH UFND0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BXH2 BXH 3,4,DONE UFND0015 SPRINT (3),4,@ÂCC UFND0016 B BXH2 UFND0017 DONE EXIT 0 UFND0018 BXLECON DC A(TAB-4,4,TAB-4) UFND0019 SA DS 18A UFND0020 IN DS CL256 UFND0021 LTORG UFND0022 TAB DS 1000CL4 UFND0023 END UFND0024 -FILE 77; 820 RECORDS: 0DSAV TITLE 'PROGRAM TO SAVE DISK FILES ON TAPE' FLSV0001 DSKDMP START 0 FLSV0002 EXTRN VOLGET FLSV0003 EXTRN DSKOP FLSV0004 EXTRN MOVIT FLSV0005 EXTRN SCARDS FLSV0006 EXTRN TPWRUC FLSV0007 EXTRN SERCOM FLSV0008 EXTRN ERROR FLSV0009 EXTRN WRITE,GETFD FLSV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FCB DS 70F FLSV0811 SCR DS 250F FLSV0812 TI DS (RECSIZE)X FLSV0813 ORG DSKDMP+(((*-DSKDMP)+4095)/4096*4096) FLSV0814 DS CL4 FLSV0815 TBF1 DS (BFSIZE+HDRLEN)C FLSV0816 ORG DSKDMP+(((*-DSKDMP)+4095)/4096*4096) FLSV0817 DS CL4 FLSV0818 TBF2 DS (BFSIZE+HDRLEN)C FLSV0819 END FLSV0820 -FILE 78; 658 RECORDS: 0* 8LNK0001 * LINK EDIT PROGRAM FOR RELOCATABLE PROGRAMS 8LNK0002 * PRODUCED BY THE MTS ASSEMBLER. 8LNK0003 * 8LNK0004 * PAGE 0 COMMON POINTERS 8LNK0005 * 8LNK0006 ORG 10 8LNK0007 AXR1 DS 1 AUTO-INDEX REGISTERS 8LNK0008 AXR2 DS 1 8LNK0009 * 8LNK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CKERR DC *-CKERL 8LNK0649 DC 7777 8LNK0650 CKERL EQU * 8LNK0651 * 8LNK0652 CSCER DC *-CSCERL 8LNK0653 DC 7777 8LNK0654 CSCERL EQU * 8LNK0655 TABL DS 200 8LNK0656 PMAX EQU * 8LNK0657 END LINK 8LNK0658 -FILE 79; 35 RECORDS: 0COPY START 0 CPSV0001 PRINT NOGEN CPSV0002 ENTER 12,SA=SA CPSV0003 WRITE 0,'SRL4000',@CC CPSV0004 WRITE 1,'SRL4000',@CC CPSV0005 OI SW,1 CPSV0006 MVC FCNT+1(3),=PL3'0' CPSV0007 LOOP READ 0,IN,INL,@-TRIM,EXIT=EOF CPSV0008 WRITE 1,IN,INL,@-TRIM CPSV0009 TM SW,1 CPSV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OI SW,1 CPSV0026 B LOOP CPSV0027 SA DS 18A CPSV0028 INL DS H CPSV0029 SW DC X'0' CPSV0030 TRLR DC 16C'*',C'ENDOFTP' CPSV0031 FCNT DC C' FILES PROCESSED' CPSV0032 LTORG CPSV0033 IN DS CL4000 CPSV0034 END CPSV0035 -FILE 80; 130 RECORDS: 0PCOP TITLE 'COPY SUBROUTINES FOR PLOTTER RTNS' FRCP0001 PRINT NOGEN FRCP0002 UFILINIT START 0 FRCP0003 ENTRY UFILGET FRCP0004 ENTER 12,SA=SA FRCP0005 L 2,0(0,1) FRCP0006 MVC UID,0(2) FRCP0007 L 2,4(0,1) FRCP0008 MVC NAME(256),0(2) FRCP0009 LA 2,NAME FRCP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC CL8'GUSER' FRCP0121 DC A(GUSER) FRCP0122 F1 DC F'1' FRCP0123 MOVNAM MVC CPYNAM(0),0(1) FRCP0124 CPYPAR DC A(CPYLNG) FRCP0125 SP1 DC A(0) FRCP0126 SP13 DC A(0) FRCP0127 GET1 DS A FRCP0128 MVCLIN MVC 0(0,4),0(5) FRCP0129 END FRCP0130 -FILE 81; 32 RECORDS: 0OPER MTS LA00 02ST0001 OPER MTS LA01 02ST0002 OPER MTS LA02 02ST0003 OPER MTS LA03 02ST0004 OPER MTS LA04 02ST0005 OPER MTS LA07 02ST0006 OPER MTS LA08 02ST0007 OPER MTS LA09 02ST0008 OPER MTS LA10 02ST0009 OPER MTS LA11 02ST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OPER MTS LA24 02ST0023 OPER MTS LA25 02ST0024 OPER MTS LA26 02ST0025 OPER MTS LA27 02ST0026 OPER MTS LA28 02ST0027 OPER MTS LA29 02ST0028 OPER MTS LA30 02ST0029 EOF OFF 02ST0030 2702 CONFIGURATION (10 SEPTEMBER 1968) 02ST0031 JOBS ON LA00 THRU LA04 AND LA07 THRU LA30 02ST0032 -FILE 82; 200 RECORDS: 0DEST TITLE 'PROGRAM TO DESTROY FILES FOR ANY USER' SCDS0001 DESTROY START 0 SCDS0002 SPACE 3 SCDS0003 * ENTRY POINT SCDS0004 USING *,12 SCDS0005 STM 14,12,12(13) SCDS0006 LR 12,15 SCDS0007 ST 13,SA SCDS0008 LA 13,SCR SCDS0009 SPACE SCDS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PUNTM DC C'PUNT' SCDS0191 PUNTC DC H'4' SCDS0192 SPACE SCDS0193 LTORG SCDS0194 SPACE SCDS0195 CNOP 0,8 SCDS0196 CARD DS 256C SCDS0197 FCB DS 70F SCDS0198 SCR DS 250F SCDS0199 END SCDS0200 -FILE 83; 280 RECORDS: 0CATL TITLE 'PROGRAM TO LIST THE NAMES OF A USERS FILES' SDSK0001 ACATALOG START 0 SDSK0002 SPACE 3 SDSK0003 * ENTRY POINT SDSK0004 USING *,12 SDSK0005 STM 14,12,12(13) SDSK0006 LR 12,15 SDSK0007 ST 13,SA SDSK0008 LA 13,SCR SDSK0009 L 15,=V(GUSERID) SDSK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AMAP DC A(MAP) SDSK0271 SPACE SDSK0272 LTORG SDSK0273 SPACE SDSK0274 CNOP 0,8 SDSK0275 CARD DS 256C SDSK0276 FCB DS 70F SDSK0277 SCR DS 250F SDSK0278 MAP DC 1000F'0' SDSK0279 END SDSK0280 -FILE 84; 460 RECORDS: 0PRSY TITLE 'LISTER FOR MTS SYSTEM AND LIBRARY EXTERNAL SYMBOLS' SYMB0001 SPACE 2 SYMB0002 MACRO SYMB0003 &LAB CLEAR SYMB0004 &LAB MVI LINE,C' ' SYMB0005 MVC LINE+1(131),LINE SYMB0006 MEND SYMB0007 SPACE 2 SYMB0008 MACRO SYMB0009 &LAB ENGRAVE SYMB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 1 SYMB0451 ENDAD DS F ADDRESS OF END OF LIB SEARCH SYMB0452 SPACE 1 SYMB0453 PRSYSAV DS 18F SYMB0454 INCORSAV DS 18F SYMB0455 SORTALL DS 18F SYMB0456 SPACE 1 SYMB0457 TABLE DSECT SYMB0458 SPACE 1 SYMB0459 END PRSY SYMB0460 -FILE 85; 36 RECORDS: 0RSRV TITLE 'RESERVE DISK DRIVES TO 2844 OR 2314' RSRV0001 RESERVE CSECT RSRV0002 PRINT NOGEN RSRV0003 ENTER 12,SA=SA RSRV0004 LP SPRINT 'ENTER VOLUME NAME' RSRV0005 SCARDS IN,EXIT=EOF RSRV0006 LA 2,IN RSRV0007 LA 0,5 RSRV0008 L 4,=V(VOLGET) RSRV0009 BALR 3,4 RSRV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B FRLP RSRV0027 UCK SVC 8 RSRV0028 SVC 10 RSRV0029 SPRINT 'UNIT CHECK' RSRV0030 B FRLP RSRV0031 CCW CCW X'B4',SENSE,X'20',7 RSRV0032 SENSE DS XL8 RSRV0033 IN DS CL100 RSRV0034 SA DS 18A RSRV0035 END RSRV0036 -FILE 86; 134 RECORDS: 0MTSK TITLE 'MTS VERSION OF TASKS' MTSK0001 MTASKS START 0 MTSK0002 SPACE 2 MTSK0003 GR1 EQU 1 MTSK0004 GR2 EQU 2 MTSK0005 GR3 EQU 3 MTSK0006 GR4 EQU 4 MTSK0007 GR5 EQU 5 MTSK0008 GR6 EQU 6 MTSK0009 GR11 EQU 11 MTSK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LNR DS F MTSK0125 RDYCNT DC Y(L'READY) MTSK0126 ERRCNT DC Y(L'ERROR) MTSK0127 CNT DS H MTSK0128 BUF DS 96C MTSK0129 READY DC C' READY!' MTSK0130 ERROR DC C' INVALID INPUT' MTSK0131 SW DC X'00' MTSK0132 SPACE 2 MTSK0133 END MTSK0134 -FILE 87; 12 RECORDS: 0SIOE TITLE 'SUBROUTINE TO FIX UP SETIOERR FOR FORTRAN' SIER0001 SIOERR START 0 SIER0002 USING *,15 SIER0003 L 1,0(0,1) NEED ONE LEVEL OF INDIRECTION SIER0004 L 15,=V(SETIOERR) SIER0005 BR 15 SIER0006 END SIER0007 ESD ¥ SIOERR ÿSETIOERR SIER0008 TXT Ú ““00Ä SIER0009 TXT  þ  SIER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD ÷  SIER0011 END SIER0012 -FILE 88; 77 RECORDS: 0SPIE TITLE 'PROGRAM TO SIMULATE OS/360 SPIE MACRO IN MTS' SPIE0001 SPIE START 0 SPIE0002 USING *,15 SPIE0003 STM 14,5,SAVE ENTRY FROM SPIE MACRO IN USER'S PROGRAM SPIE0004 LR 5,15 SPIE0005 DROP 15 SPIE0006 USING SPIE,5 SPIE0007 MVC SAVE+12(4),PIE RETURN ADDRESS OF OLD PICA SPIE0008 LTR 1,1 IS IT A RESET ENTRANCE SPIE0009 BZ RESET YES SPIE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MVI PGNTSV,X'FF' SPIE0068 NI PIE,X'7F' SPIE0069 B RESTART GO BACK TO INTERRPUTED PROGRAM SPIE0070 * SPIE0071 * DATA SPIE0072 SAVE DS 8F SPIE0073 PIE DC 8F'0' PROGRAM INTERRUPT ELEMENT SPIE0074 PGNTSV DS 18F MTS PGNTTRP SAVE AREA SPIE0075 LTORG SPIE0076 END SPIE0077 -FILE 89; 763 RECORDS: 0DSAV TITLE 'PROGRAM TO SAVE DISK FILES ON TAPE' LBSV0001 DSKDMP START 0 LBSV0002 EXTRN VOLGET LBSV0003 EXTRN DSKOP LBSV0004 EXTRN OPENV LBSV0005 EXTRN CLOSE LBSV0006 EXTRN READS LBSV0007 EXTRN SCARDS LBSV0008 EXTRN TPWRUC LBSV0009 EXTRN SERCOM LBSV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CARD DS 256C LBSV0754 FCB DS 70F LBSV0755 SCR DS 250F LBSV0756 TABLE DS 2000CL16 LBSV0757 BF1 DS 3624C LBSV0758 BF2 DS 3624C LBSV0759 TBF1 DS (BFSIZE+255)C LBSV0760 DS 0H LBSV0761 TBF2 DS (BFSIZE+255)C LBSV0762 END LBSV0763 -FILE 90; 101 RECORDS: 0BNEB TITLE 'SUBROUTINE TO CONVERT BINARY READ CARDS TO EBCD' BNBD0001 BINEBCD START 0 BNBD0002 USING *,15 BNBD0003 BIN EQU 1 POINTER TO BINARY IMAGE BNBD0004 EBCD EQU 2 POINTER TO EBCD IMAGE BNBD0005 MVC 0(80,EBCD),SCRMBL REARRANGE FIRST 40 BNBD0006 TR 0(80,EBCD),0(BIN) BNBD0007 MVC 0(80,BIN),SCRMBL REARRANGE LAST 40 BNBD0008 TR 0(80,BIN),80(BIN) BNBD0009 TR 0(40,EBCD),TOPTAB BNBD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT ù ù ÃK¥ÃŸ|¥1¶Äòþº÷Ú ÿ⥭³ÃÉÔÆäöùûõ ‰ˆ‹BNBD0092 TXT ¿ ù ¢<+ Ù ·½¶ª° ÅÑÎãðúýÊŠ‡Œ–.(|¥ª­BNBD0093 TXT y ù ° ʉŠ-/倯abcµ~st{ABC\ÖST÷BNBD0094 TXT \ ù þ ÿ ·º½BNBD0095 TXT  ù  32176549ãÎöðä8#:`"='@ùýûúõ0TS/XWVUZ°­ª ³Y,\„BNBD0096 TXT & ù ?>_%ÃÑÉÅÔ-LKJPONMR½·ÿQ$!§Â;)*¶â}ts~xwvuz€åÖBNBD0097 TXT h ù ÌçËyÀÁµ¨Þ Ü‚ïÓ¥Íîñ…&CBAGFEDIº þH.¢–|+(<÷ ÚÙ {cbaBNBD0098 TXT { ù gfediŠ‰ÊŒ‹‡ˆhÈǯ±ßàݙЛ—˜šÏlkjponmr‘Ž•”’q¼»¡Û®ü¾“žÕBNBD0099 TXT 8 ³ ØœŸ¿á´£¹¦¤©²èæƒìëêé¸][^׫¬øíóÒÆÄòô† BNBD0100 END BNBD0101 -FILE 91; 37 RECORDS: 0OPER MTS LA31 03ST0001 OPER MTS LA32 03ST0002 OPER MTS LA33 03ST0003 OPER MTS LA34 03ST0004 OPER MTS LA35 03ST0005 OPER MTS LA39 03ST0006 OPER MTS LA40 03ST0007 OPER MTS LA41 03ST0008 OPER MTS LA42 03ST0009 OPER MTS LA43 03ST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OPER MTS LA61 03ST0028 OPER MTS LA62 03ST0029 OPER MTS LA63 03ST0030 OPER MTS LA64 03ST0031 OPER MTS LA65 03ST0032 OPER MTS LA66 03ST0033 OPER MTS LA67 03ST0034 EOF OFF 03ST0035 2703 CONFIGURATION (10 SEPTEMBER 1968) 03ST0036 JOBS ON LA31 THRU LA35 AND LA39 THRU LA67 03ST0037 -FILE 92; 8 RECORDS: 0OPER MTS ARU0 MSST0001 OPER MTS DT1, MSST0002 OPER MTS ARU1 MSST0003 OPER MTS ARU2 MSST0004 OPER MTS ARU3 MSST0005 EOF OFF MSST0006 MISC. CONFIGURATION (10 SEPTEMBER 1968) MSST0007 JOBS ON DT1 AND ARU0 THRU ARU3 MSST0008 -FILE 93; 43 RECORDS: 0EOF OFF DCST0001 PD DCST0002 EE * DCST0003 ME 1 DCST0004 SN 37 101 DCST0005 OR DATA CONCENTRATOR CONFIGURATION (1 AUGUST 1968) DCST0006 EOF OFF DCST0007 EE * 0 1 2 3 32 33 34 35 36 37 76 77 DCST0008 AE 1 3 DCST0009 AE 2 2 DCST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OPER MTS DC12 DCST0034 OPER MTS DC13 DCST0035 OPER MTS DC14 DCST0036 OPER MTS DC15 DCST0037 OPER MTS DC16 DCST0038 OPER MTS DC17 DCST0039 OR JOBS ON: DC00 THRU DC17 DCST0040 ME 3 0 2 3 32 33 34 35 36 37 76 77 DCST0041 DATA CONCENTRATOR CONFIGURATION (1 AUGUST 1968) DCST0042 JOBS ON: DC00 THRU DC17 DCST0043 -FILE 94; 116 RECORDS: 0CMB TITLE 'PROGRAM TO COMBINE STATISTICS TAPES - VERSION 2' CMB00001 PRINT NOGEN CMB00002 CMB START 0 CMB00003 ENTER 12,SA=SA CMB00004 SPRINT 'ENTER OUTPUT TAPE NAME' CMB00005 BAL 11,RD1 CMB00006 INRD SPRINT 'ENTER INPUT TAPE NAME OR "DONE"' CMB00007 RD2 SCARDS IN,LEN,EXIT=RD2 CMB00008 CLC =C'DONE',IN CMB00009 BE EXIT CMB00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IFDUB DS A CMB00107 OFDUB DS A CMB00108 ILEN DS H CMB00109 MOVE MVC 0(0,2),0(5) CMB00110 SA DS 18A CMB00111 LTORG CMB00112 IBUF DS 32XL128 CMB00113 OBUF DS 34XL128 CMB00114 ENDOBUF EQU *-256 CMB00115 END CMB00116 -FILE 95; 127 RECORDS: 0LODC TITLE 'PROGRAM TO CALL THE LOADER... ... ...' LDCL0001 LOADCLCS CSECT LDCL0002 PRINT NOGEN LDCL0003 USING LOADCLCS,12 LDCL0004 LR 12,15 LDCL0005 ST 13,SAVE SAVE THE MTS SAVE AREA ADDRESS LDCL0006 ST 1,REG1 HE MAY WANT THE PAR= FIELD LDCL0007 SERCOM '0ENTER THE OBJECT FILE NAME.' LDCL0008 GUSER OFN,OFNL READ THE OBJECT FILE NAME LDCL0009 LH 2,OFNL PUT A BLANK AT THE END LDCL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 1 LDCL0118 INPAR DC A(0,0,0,0,OFNFDUB) READ PARAMETERS LDCL0119 SPACE 1 LDCL0120 LTORG LDCL0121 SPACE 1 LDCL0122 LOADSAV DC A(LOADSAVE-LOADSAV) THE LOADER FUNNY PSECT LDCL0123 DS 4096F LDCL0124 LOADSAVE EQU * LDCL0125 SPACE 1 LDCL0126 END LOADCLCS LDCL0127 -FILE 96; 215 RECORDS: 0BATCH CSECT BTCH0001 SVE BTCH0002 LA 11,BATRITE INITIALIZE REGISTERS BTCH0003 LA 10,4 BTCH0004 LA 9,1 BTCH0005 LA 8,INPUT-1 BTCH0006 L 7,0(0,1) SAVE PARAMETER POINTER. BTCH0007 L 6,BATLOCK LOAD & READY LOCKOUT BTCH0008 OI BATLOCK,X'80' BTCH0009 LM 0,1,=C'SCARDS ' BTCH0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0D BTCH0206 MSG1 DC C' ENTER COMMANDS' BTCH0207 MSG2 DC C' PLEASE TRY AGAIN LATER ' BTCH0208 PROOFF EQU 34 BTCH0209 PROTON EQU 26 BTCH0210 RJBBUF EQU X'44' BTCH0211 TOD EQU 28 BTCH0212 WAYT EQU 35 BTCH0213 BUFF EQU INPUT BTCH0214 END BATCH BTCH0215 -FILE 97; 184 RECORDS: 0DBS TITLE 'DOUBLE BACK SUBSTITUTION' DBS#0001 DBS# CSECT DBS#0002 ENTRY DBS DBS#0003 SR2 EQU 14 SCRATCH REGISTER DBS#0004 GRK EQU 0 INDEX REGISTER DBS#0005 SRN EQU 2 INCREMENTING REGISTER OVER N DBS#0006 GRN EQU 3 DIMENSION OF UL DBS#0007 SRM EQU 4 INCREMENTING REGISTER OVER M DBS#0008 GRM EQU 5 NO. OF COLUMNS OF X AND B DBS#0009 GRL2 EQU 6 DIMENSIONED COL LENGTH OF X & B DBS#0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FINI LD FR2,0(0,GRX) DBS#0175 DDR FR2,FR0 X(1) = X(1)/UL(1,1) DBS#0176 STD FR2,0(0,GRX) (UNCHANGED IF UL(1,1) IS ZERO) DBS#0177 ALR GRX,GRL2 DBS#0178 BXLE GRK,SRM,FINI DBS#0179 END LM 14,12,12(13) DBS#0180 MVI 12(13),X'FF' DBS#0181 SR 15,15 DBS#0182 BR 14 DBS#0183 END DBS#0184 -FILE 98; 137 RECORDS: 0DBST TITLE 'DOUBLE BACK SUBSTITUTION FOR TRANSFORMED SYSTEM' DBST0001 DBST# CSECT DBST0002 ENTRY DBST DBST0003 GRK EQU 14 INDEX REGISTER DBST0004 SRN EQU 2 INCREMENTING REGISTER OVER N DBST0005 GRN EQU 3 DIMENSION OF UL DBST0006 SRM EQU 4 INCREMENTING REGISTER OVER M DBST0007 GRM EQU 5 NO. OF COLUMNS OF X AND B DBST0008 GRL2 EQU 6 DIMENSIONED COL LENGTH OF X & B DBST0009 GRB EQU 7 ADDRESS OF B DBST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STD FR2,0(GRI,GRX) DBST0128 BXH GRI,SRN,PERMX BRANCH IF I>-8 DBST0129 ALR GRX,GRL2 DBST0130 BXLE GRK,SRM,PERM DBST0131 END LM 14,12,12(13) DBST0132 MVI 12(13),X'FF' DBST0133 SR 15,15 DBST0134 BR 14 DBST0135 EIGHT DC F'8' DBST0136 END DBST0137 -FILE 99; 328 RECORDS: 0GLI TITLE 'GAUSS-LEGENDRE INTEGRATION' GLNT0001 GLINT# CSECT GLNT0002 ENTRY GLINT GLNT0003 ENTRY SGLINT GLNT0004 * TO COMPUTE SINGLE AND MULTIPLE INTEGRALS USING THE GAUSS- GLNT0005 * LEGENDRE QUADRATURE METHOD. EACH INTERVAL IS DIVIDED INTO EQUAL GLNT0006 * SUBINTERVALS AND THE QUADRATURE FORMULA IS APPLIED TO EACH GLNT0007 * SUBINTERVAL. 'GLINT' IS THE DOUBLE PRECISION ROUTINE AND GLNT0008 * 'SGLINT' THE SINGLE PRECISION ROUTINE. GLNT0009 GR1 EQU 1 PARAMETER POINTER GLNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> H DS 1D GLNT0319 SUM1 DS 1D GLNT0320 SUM2 DS 1D GLNT0321 NSAVE DS 1F GLNT0322 II DS 1F GLNT0323 KSAVE DS 1H GLNT0324 JJ DS 1H GLNT0325 UPPERM DS 1H GLNT0326 LOWERM DS 1H GLNT0327 END GLNT0328 -FILE 100; 117 RECORDS: 0IHCLOGIC START 0 IHCL0001 ENTRY AND,LAND,OR,LOR,XOR,LXOR,COMPL,LCOMPL,SHFTL,SHFTR IHCL0002 * IHCL0003 * IHCL0004 *CALLING SEQUENCE IHCL0005 * LA S,SAVLOC IHCL0006 * LA A,ARGLST IHCL0007 * L L,=V(FCN) IHCL0008 * BALR R,L IHCL0009 * SAVLOC IS THE LOCATION OF A REGISTER STORAGE AREA, IHCL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * IHCL0108 TEMP DS F IHCL0109 ALLONES DC F'-1' IHCL0110 EXNR NR 0,1 IHCL0111 EXOR OR 0,1 IHCL0112 EXXR XR 0,1 IHCL0113 EXSLL SLL 0,0(1) IHCL0114 EXSRL SRL 0,0(1) IHCL0115 SWITCH DS X IHCL0116 END IHCL0117 -FILE 101; 50 RECORDS: 0INV TITLE 'MATRIX INVERSION ORGANISER ' INV#0001 INV# CSECT INV#0002 ENTRY INV INV#0003 USING *,12 INV#0004 INV STM 14,12,12(13) INV#0005 LR 12,15 INV#0006 LM 4,9,0(1) INV#0007 LR 3,4 INV#0008 STM 3,9,PARLIST INV#0009 LA 1,PARLIST INV#0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 14,12(0,13) INV#0041 MVI 12(13),X'FF' INV#0042 BR 14 INV#0043 PARLIST DS 7F INV#0044 SAVE DS 18F INV#0045 ALRD DC V(LRD) INV#0046 AINV1 DC V(INV1) INV#0047 ASPAC DC V(GETSPACE) INV#0048 AFREE DC V(FREESPAC) INV#0049 END INV#0050 -FILE 102; 279 RECORDS: 0INV1 TITLE 'MATRIX INVERSION' INV10001 INV1# CSECT INV10002 * INV10003 * THE SUBROUTINE LRD IS CALLED PREVIOUS TO ENTERING THIS INV10004 * ROUTINE AND SETS UP THE DECOMPOSED MATRIX UL AND THE INV10005 * PERMUTATION VECTOR IP. FOR SOME MATRIX A WE HAVE: INV10006 * -1 -1 -1 -1 INV10007 * PA = LU OR A = P LU, THUS A = U L P INV10008 * INV10009 * THIS ROUTINE COMPUTES THE INVERSES OF L AND U AND HENCE INV10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STD FR0,0(GRI,ULCOLI) INV10270 ALR ULCOLI,GRL INV10271 BXLE GRJ,SRN,LASTROW INV10272 OUT LM 14,12,12(13) INV10273 SR 15,15 INV10274 MVI 12(13),X'FF' INV10275 BR 14 INV10276 CNOP 0,8 INV10277 ONE DC X'4110000000000000' INV10278 END INV10279 -FILE 103; 307 RECORDS: 0LRD TITLE 'MATRIX DECOMPOSITION' LRD#0001 LRD# CSECT LRD#0002 ENTRY LRD LRD#0003 GRK EQU 14 INDEX REGISTER LRD#0004 SR1 EQU 14 SCRATCH REGISTER LRD#0005 SRN EQU 0 INCREMENTING REGISTER FOR N LRD#0006 GRN EQU 1 NO. OF ROWS OF MATRIX LRD#0007 SRM EQU 2 INCREMENTING REGISTER FOR M LRD#0008 GRM EQU 3 NO. OF COLUMNS OF MATRIX LRD#0009 GRSIGN EQU 4 SIGN OF PERMUTATION LRD#0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTR GRSIGN,GRSIGN LRD#0298 BNZ *+8 LRD#0299 LA SR1,4 LRD#0300 LR 15,SR1 LRD#0301 LM 0,12,20(13) LRD#0302 L 14,12(0,13) LRD#0303 SPM 14 RESTORE PROGRAM MASK LRD#0304 MVI 12(13),X'FF' LRD#0305 BR 14 LRD#0306 END LRD#0307 -FILE 104; 103 RECORDS: 0SLE TITLE 'SIMULTANEOUS LINEAR EQUATIONS' SLE#0001 SLE# CSECT SLE#0002 ENTRY SLE1 SLE#0003 ENTRY SLE2 SLE#0004 ENTRY SLE3 SLE#0005 ENTRY SLE4 SLE#0006 * CALLING SEQUENCE - SLE1/2 (N,LENA,A,NSOL,LENBX,B,X,IP) SLE#0007 * SLE3/4 (N,LENA,A,NSOL,LENBX,B,X,IP,LENUL,UL) SLE#0008 USING *,15 SLE#0009 SLE3 STM 14,12,12(13) SLE#0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ULPARS DS 2F SLE#0094 PARLIST DS 8F SLE#0095 SAVE DS 18F SLE#0096 ALRD DC V(LRD) SLE#0097 ADBS DC V(DBS) SLE#0098 ADBST DC V(DBST) SLE#0099 FREE DC V(FREESPAC) SLE#0100 GET DC V(GETSPACE) SLE#0101 DS 10F SLE#0102 END SLE#0103 -FILE 105; 319 RECORDS: 0INT1 TITLE 'INTERPRETER FOR MTS TEST MACROS VERSION 25APRIL1967' TSTI0001 @TESTITP CSECT TSTI0002 PRINT DATA TSTI0003 USING *,15 TSTI0004 STM 12,1,@TESTTMP TSTI0005 LR 12,15 TSTI0006 USING @TESTITP,12 TSTI0007 DROP 15 TSTI0008 BC 0,@TESTELC EXECUTE FOLLOWING CODE ON FIRST TSTI0009 MVI *-3,X'F0' ENTRY ONLY TSTI0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 8F TSTI0310 DC C'0123456789ABCDEF' TSTI0311 @TESTSAR DS 18F TSTI0312 @TESTSAV DS 18F TSTI0313 @TESTEFS DC X'FFFFFFFC' TSTI0314 @TESTR14 DS F TSTI0315 DC C' ' TSTI0316 DC C' ' TSTI0317 @TESTOUT DS CL131 TSTI0318 END TSTI0319 -FILE 106; 368 RECORDS: 0SQSH TITLE 'CARD SQUASHER' SQSH0001 * DATE: 02-03-68 CHANGES MADE TO RECOGNIZE SYM,NCA, AND ENT CARDS SQSH0002 * CARDS WHICH ARE NOT RECOGNIZED ARE TREATED AS REP CARDS SQSH0003 SQUASH START SQSH0004 COPY APF SQSH0005 EJECT SQSH0006 ENTRY SQUASHC SQSH0007 * SQSH0008 SQUASHC STM RR,RC,12(RD) SAVE REGISTERS SQSH0009 USING SQUASHC,RC SQSH0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSGAR3 DC C' RECORD LENGTH > 80;ILLEGAL' SQSH0359 MSGLNG3 DC Y(L'MSGAR3) SQSH0360 * SQSH0361 MSG4 DC A(MSGAR4) SQSH0362 DC A(MSGLNG4) SQSH0363 DC A(0) SQSH0364 MSGAR4 DC C' RECORD IGNORED' SQSH0365 MSGLNG4 DC Y(L'MSGAR4) SQSH0366 WORKAR DS 64F SQSH0367 END SQSH0368 -FILE 107; 114 RECORDS: 0 PRINT NOGEN ASA00001 MAIN START 0 ASA00002 USING MAIN,10 ASA00003 SAVE (14,12) ASA00004 LR 10,15 ASA00005 LA 13,SA ASA00006 CALL ASAOPEN,(SCRATCH) ASA00007 LOOP CALL SCARDS,(AREA,LEN,MODIFY,LINENR) ASA00008 LTR 15,15 ASA00009 BNZ CLOSE ASA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE DC X'09' ASA00105 ASATABLE DC C' 0-+123456789ABC' ASA CODES ASA00106 OPENTBLE DC X'0B131B038B939BA3ABB3BBC3CBD3DBE3' MCC FOR OPENING ASA00107 TRTABLE DC X'09111901899199A1A9B1B9C1C9D1D9E1' USUAL MCC ASA00108 NO#OP DC X'03' ASA00109 EJECT ASA00110 *-*-*-*-*-*-*-*- HOW TO ALLOCATE BUFAREA ASA00111 BUFAREA DC 133C' ' ASA00112 SPACE ASA00113 END ASA00114 -FILE 108; 108 RECORDS: 0CFLP TITLE ' COINFLIP DEMONSTRATION PROGRAM' CNFL0001 MACRO CNFL0002 &LABEL READ &EOFEXIT CNFL0003 &LABEL MVI HT,C' ' CNFL0004 SCARDS HT,,@UC,EXIT=&EOFEXIT CNFL0005 MEND CNFL0006 SPACE 4 CNFL0007 MACRO CNFL0008 &L PICK &LABE1,&LABE2 CNFL0009 &L LTR SAVELINK,SAVELINK CNFL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'A FLIP OF AN IMAGINARY COIN. IF IT GUESSES INCOR- ' CNFL0099 DC C'RECTLY, ONE DOLLAR WILL BE ADDED TO YOUR SCORE, ' CNFL0100 DC C'OTHERWISE YOU WILL LOSE A DOLLAR. YOU "FLIP" THE ' CNFL0101 DC C'COIN BY DEPRESSING EITHER THE "H" OR THE "T" ON YOUR' CNFL0102 DC C'CONSOLE. DEPRESSING THE "?" KEY FORCES COINFLIP TO ' CNFL0103 DC C'DIVULGE ITS CURRENT PREDICTION. TO END THE GAME, ' CNFL0104 DC C'TYPE "END". ' CNFL0105 DC C' GOOD LUCK! ' CNFL0106 TMSG EQU * CNFL0107 END CNFL0108 -FILE 109; 607 RECORDS: 0DUBCON START 0 DBLE0001 COPY APF DBLE0002 EJECT DBLE0003 USING *,RC DBLE0004 STM RR,RC,12(RD) SAVE REGISTERS DBLE0005 LR RC,LR ADDRESSABILITY DBLE0006 LA R6,SAVAR SAVE AREA DBLE0007 ST R6,8(0,RD) FORWARD LINKAGE DBLE0008 ST RD,4(0,R6) BACKWARDS LINKAGE DBLE0009 LR RD,R6 .. DBLE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTRM DC Y(L'TRM) DBLE0598 SAVF DS A DBLE0599 PUNCHOUT DC C' DC X''' DBLE0600 FIRSTW DC CL16' ' DBLE0601 DC C''',X''' DBLE0602 SECW DC CL16' ' DBLE0603 DC C''' ' DBLE0604 DEC DC CL15' ' DBLE0605 CLCP CLC 2(0,R1),=C'PUNCH' DBLE0606 END DBLE0607 -FILE 110; 151 RECORDS: 0*********************************************************************** EDHL0001 * * EDHL0002 * HELP MESSAGES CSECT * EDHL0003 * * EDHL0004 * THIS CSECT CONTAINS THE MESSAGES USED BY THE "HELP" * EDHL0005 * COMMAND IN THE MTS FILE EDITOR, *ED. THE CSECT IS LOADED * EDHL0006 * INTO THE USER'S VM FROM THE FILE *EDHELP WHEN THE FIRST * EDHL0007 * HELP COMMAND IS ISSUED IN *ED. * EDHL0008 * * EDHL0009 *********************************************************************** EDHL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' EDHL0142 MLINE MSG ' #LINENO LINENO' EDHL0143 MSG ' #LINENO' EDHL0144 MSG '#LINENO CAUSES THE LINE OF THE FILE WITH THE SPECIFIED' EDHL0145 MSG 'MTS LINE NUMBER TO BECOME THE CURRENT LINE. #LINE' EDHL0146 MSG 'WITH NO LINE NUMBER SPECIFIED CAUSES THE CURRENT' EDHL0147 MSG 'LINE NUMBER TO BE PRINTED.' EDHL0148 DC X'00' EDHL0149 MNOSUCH DC FL1'34',C'THERE IS NO COMMAND WITH THAT NAME',X'00' EDHL0150 END EDHL0151 -FILE 111; 221 RECORDS: 0DMPF TITLE 'DUMP LINE FILE IN HEXADECIMAL' FLDM0001 *DATE:11/22/67 FLDM0002 MACRO FLDM0003 &LABE SPRINT &ARG FLDM0004 &LABE LA R1,COM&SYSNDX FLDM0005 L LR,=V(SPRINT) FLDM0006 BASR RR,LR FLDM0007 B T&SYSNDX FLDM0008 * FLDM0009 COM&SYSNDX DC A(MCOM&SYSNDX) FLDM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LENLIN DC H'0' FLDM0212 LENLIN1 DC H'0' FLDM0213 MAXAR EQU 256 FLDM0214 PACK PACK CONVERT,0(0,R2) FLDM0215 CONVERT DS D'0' FLDM0216 MAXCHR EQU 3 FLDM0217 LENGTH DC C'LENGTH=' FLDM0218 MINLEN DC Y(L'LENGTH+1) FLDM0219 OUTIT MVC OUTBUF+1(0),0(R3) FLDM0220 END FLDM0221 -FILE 112; 913 RECORDS: 0FORT TITLE ' NEW MTS FORTEDIT' FTED0001 SPACE FTED0002 MACRO FTED0003 &L MSG &X FTED0004 &L DC Y(L'L&L) FTED0005 L&L DC C&X FTED0006 MEND FTED0007 SPACE FTED0008 CANOE CSECT FTED0009 SPACE FTED0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBELN DS F END LINE NR FTED0904 FDUBILN DS F INCREMENT LINE NR FTED0905 FDUBSBR DS F SUBROUTINE LOCN FTED0906 FDUBSCR DS F SCRATCH - SEQL PTR FTED0907 FDUBNAM DS F BACK PTR TO WHO'S USING IT FTED0908 FDUBDSW DS F DEFAULT SWITCHES FTED0909 FDUBCHN DS F FDUB CHAIN FTED0910 * FTED0911 FDUBLTH EQU *-FDUBDCT FTED0912 END CANOE FTED0913 -FILE 113; 227 RECORDS: 0HXL TITLE 'HEXADECIMAL CARD LISTER' HXLS0001 * DATE: 02-03-68 CHARLIE BENET HXLS0002 * FIXED TO ACCEPT IMAGES UP TO 256 CHARACTERS IN LENGTH HXLS0003 MACRO HXLS0004 &LABE SPRINT &LIST HXLS0005 &LABE L 15,=V(SPRINT) HXLS0006 LA 1,&LIST HXLS0007 BASR 14,15 HXLS0008 MEND HXLS0009 START 0 HXLS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LINE DC 69C' ' HXLS0218 HEXS EQU LINE+1 HXLS0219 FILEIT DC A(FA) HXLS0220 DC A(LA) HXLS0221 DC A(0) HXLS0222 LA DS H HXLS0223 FA DC C'0****FILE "' HXLS0224 BA DS CL20 HXLS0225 MOVEQ MVC BA(0),CARDIN HXLS0226 END HXLS0227 -FILE 114; 238 RECORDS: 0*DATE: 3-28-68 OBJS0001 MACRO OBJS0002 &LABE SERCOM &LIST OBJS0003 &LABE L 15,=V(SERCOM) OBJS0004 LA 1,&LIST OBJS0005 BASR 14,15 OBJS0006 MEND OBJS0007 START 0 OBJS0008 R6 EQU 6 OBJS0009 FIND STM 14,12,12(13) SAVE OBJS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LASTL DS F OBJS0229 SWITCH DS C OBJS0230 COMS DC A(COM1S) OBJS0231 DC A(LLNQ) OBJS0232 DC A(MODC) OBJS0233 LLNQ DC H'0' OBJS0234 MVCC MVC FILLN(0),INCARD OBJS0235 COM1S DC C' ****FILE ' OBJS0236 FILLN DC CL256' ' OBJS0237 END OBJS0238 -FILE 115; 373 RECORDS: 0 TITLE 'SNOREF - A CROSS-REFERENCE PRODUCER' SNRF0001 * SNRF0002 * SNRF0003 *EACH WORD IS STORED IN ONE OF 9 CHAINS OF SPECIFIERS WHICH ARE SNRF0004 * ORDERED ALPHABETICALLY IN ASCENDING ORDER AND HAVE THE FORM: SNRF0005 * SNRF0006 * *********************** SNRF0007 * * P1 * P2 * L * WORD * SNRF0008 * *********************** SNRF0009 * SNRF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUTNUM DS D SNRF0364 MOVE2 MVC 0(0,6),6(14) SNRF0365 MOVE3 MVC 0(0,6),0(1) SNRF0366 DASH DC C' - ' SNRF0367 TTAB DC X'00FFFFFFFFFFFFFFFFFF000000000000' SNRF0368 LTORG SNRF0369 ENDPTR DC X'0020' SNRF0370 SLOPTRS DC 11H'0' SNRF0371 SLOPAREA DS 512D SNRF0372 END SNRF0373 -FILE 116; 56 RECORDS: 0ASMERR CSECT ASMR0001 TITLE 'SCANS F-LEVEL ASSEMBLER'S LISTING.' ASMR0002 SVE ASMR0003 LA 1,PAR INITIALIZE REGISTERS. ASMR0004 LA 10,1000(0,0) ASMR0005 LA 7,INOUT+34 ASMR0006 LA 6,INOUT ASMR0007 SCAN MVI MODIF+3,1 SET SEQUENTIAL MODIFIER. ASMR0008 BAL 11,SREAD READ A RECORD. ASMR0009 CLC =C'** E',INOUT+11 IS PRECEEDING LINE IN ERROR? ASMR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ********************************************************************* ASMR0047 PAR DC A(INOUT) ASMR0048 DC A(COUNT) ASMR0049 DC A(MODIF) ASMR0050 DC A(LINE) ASMR0051 MODIF DC F'0' ASMR0052 INOUT DS 20D ASMR0053 LINE DS F ASMR0054 COUNT DS H ASMR0055 END ASMERR ASMR0056 -FILE 117; 276 RECORDS: 0DMOD TITLE 'SINGLE RECORD DISK DUMP AND MODIFY PROGRAM' DMOD0001 SPACE 2 DMOD0002 *********************************************************************** DMOD0003 * * DMOD0004 * PROGRAM TO FIX UP WIPED OUT DISK RECORDS * DMOD0005 * * DMOD0006 *********************************************************************** DMOD0007 SPACE 2 DMOD0008 MACRO DMOD0009 &LABL1 MESG &LINE DMOD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSAV DS 16F DMOD0267 RCNT DS H DMOD0268 OCNT DS H DMOD0269 RJNK DS F DMOD0270 DSKSAV DS 1F DMOD0271 SAVA DS 75D DMOD0272 DS 12X PRECEDE DSKA TO PUT THINGS ON BOUNDARY DMOD0273 DSKA DS 3700X DMOD0274 SPACE DMOD0275 END DMOD0276 -FILE 118; 234 RECORDS: 0DSKM TITLE 'DISK LIST MANAGEMENT PROGRAM' DSKM0001 SPACE 2 DSKM0002 *********************************************************************** DSKM0003 * * DSKM0004 * PROGRAM TO MODIFY DISK LIST IN MTS * DSKM0005 * * DSKM0006 *********************************************************************** DSKM0007 SPACE 2 DSKM0008 MACRO DSKM0009 &LABL1 MESG &LINE DSKM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CAREA DS 64F DSKM0225 SAVA DS 200F DSKM0226 * DSKM0227 * TELLS ABOUT DSKAB ENTRIES DSKM0228 * DSKM0229 VOLSER EQU 18 DSKM0230 VOLID EQU 24 DSKM0231 DTL EQU 124 DSKM0232 * DSKM0233 END DSKM0234 -FILE 119; 26 RECORDS: 0TIME TITLE ' ROUTINE TO TELL TIME' TIME0001 PRINT NOGEN TIME0002 TIME CSECT TIME0003 SAVE (14,12),T,TIME SAVE THE REGISTERS. TIME0004 LR 11,13 SAVE THE SA REG. TIME0005 LR 12,15 ESTABLISH THE BASE REGISTER. TIME0006 USING TIME,12 TELL THE STUPID ASM OF THE BASE REG. TIME0007 LA 13,SA SET UP OWN SA REG. TIME0008 SVC TOD ISSUE THE TIME SVC. TIME0009 STM 0,1,CLOCK PUT DOWN THE CLOCK. TIME0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' CLOCK ' TIME0017 CLOCK DS CL8 HH:MM.SS TIME0018 DC C' DATE ' TIME0019 DATE DS CL8 MM-DD-YY TIME0020 ENDANS EQU * TIME0021 LENGTH DC Y(ENDANS-ANSWER) LENGTH OF ANSWER IN HALF WORD FORM. TIME0022 ZERO DC F'0' NO MODIFIERS. TIME0023 LINNR DS F JUNK LINE NUMBER. TIME0024 SA DS 19F SAVE AREA TIME0025 END TIME0026 -FILE 120; 993 RECORDS: 0CT TITLE 'CARD TO TAPE JOB (U OF M VERSION)' CT000001 CT START 0 CT000002 EXTRN TPWRUC CT000003 EXTRN CDRDUC CT000004 EXTRN BSF CT000005 EXTRN CDSTUC CT000006 SPACE 5 CT000007 * THIS IS THE UNIVERSITY OF MICHIGAN CARD TO TAPE PROGRAM CT000008 * DESIGNED TO RUN UNDER THE LINCOLN LABORATORY MULTI-PROGRAMMING CT000009 * SUPERVISOR CT000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TPERL EQU *-TPERM CT000984 EOTM DC C'END OF TAPE' CT000985 EOTL EQU *-EOTM CT000986 EOFM DC C'END, CARDS READ' CT000987 EOFL EQU *-EOFM CT000988 BCM DC C'...ILLEGAL CHARACTER IN COLUMN ' CT000989 BCL EQU *-BCM CT000990 BPTM DC C'...PLOT TIME ESTIMATE IS NOT BLANK' CT000991 BPTL EQU *-BPTM CT000992 END CT000993 -FILE 121; 32 RECORDS: 0 DIMENSION A(1000) COPY0001 DIMENSION INNAME(4),OUTNAM(4) COPY0002 INTEGER FILES COPY0003 PRINT 500 COPY0004 500 FORMAT('ENTER INPUT AND OUTPUT NAMES ON SEPARATE LINES') COPY0005 READ 200,INNAME,OUTNAM COPY0006 200 FORMAT(4A4) COPY0007 CALL QGTUCB(INNAME,UCBIN) COPY0008 CALL QGTUCB(OUTNAM,UCBOUT) COPY0009 PRINT 600 COPY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IF(J.GT.5)GO TO 3 COPY0023 JJ=(INRL-1)/4+1 COPY0024 PRINT 400,(A(JJJ),JJJ=1,JJ) COPY0025 400 FORMAT(1H ,30A4) COPY0026 3 CONTINUE COPY0027 2 CALL QCLOSE(0) COPY0028 CALL QCNTRL('WTM',UCBOUT) COPY0029 10 CONTINUE COPY0030 STOP COPY0031 END COPY0032 -FILE 122; 374 RECORDS: 0SNIF TITLE 'PROGRAM TO EXAMINE FILE STORAGE CHARACTERISTICS' FLSN0001 FILESNIF START 0 FLSN0002 PRINT ON,NOGEN FLSN0003 ENTER 5,SA=SAVEAREA FLSN0004 L 2,0(1) GET THE PARAMETER ADCON FLSN0005 LH 3,0(2) GET THE PARAMETER LENGTH FLSN0006 LTR 3,3 SEE IF THERE IS A PARAMETER FLSN0007 BZ OLDBACK BRANCH IF NOT FLSN0008 STH 3,NAMELEN SAVE THE LENGTH FLSN0009 BCTR 3,0 SUBTRACT ONE FROM PARAMETER LENGTH FLSN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CCW X'08',*-8,0,0 TIC BACK FOR MORE FLSN0365 CCW X'0E',BUFFER,X'20',140 AND FINALLY READ THE RECORD FLSN0366 LTORG FLSN0367 HOLECNT DS F NUMBER OF HOLES WE FOUND SO FAR FLSN0368 HOLEAREA DS CL256 PLACE TO KEEP HOLE COUNTS FLSN0369 WORKAREA DS 40D STANDARD WORK AREA FOR FILE ROUTINES FLSN0370 BUFFER DS CL140 VTOC RECORD AREA FOR CALLS ON DSKOP FLSN0371 END FILESNIF FLSN0372 BUFFER DS CL140 VTOC RECORD AREA FOR CALLS ON DSKOP FLSN0373 END FILESNIF FLSN0374 -FILE 123; 185 RECORDS: 0DMNT TITLE 'DISMOUNT-- TO GET RID OF THINGS' DISM0001 MACRO DISM0002 &SLB CMSG &WHAT DISM0003 LCLA &X DISM0004 LCLA &Y DISM0005 &X SETA ((K'&WHAT-1)/2*2)+18 DISM0006 &Y SETA K'&WHAT-2 DISM0007 CNOP 0,4 DISM0008 &SLB LA R1,*+12 DISM0009 L RF,=V(SERCOM) DISM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BR RF DISM0176 COMPARE CLC 0(0,SCC),0(SCA) DISM0177 SCRATCH DS 18F DISM0178 CPUQAD1 DC V(CPUQ) DISM0179 ZERO DC F'0' DISM0180 OFFMSG DC C'REMOVE TAPE FROM XXXX' DISM0181 OFFMSGL EQU *-OFFMSG DISM0182 LTORG DISM0183 DSECT DSECT DISM0184 END DISMOUNT DISM0185 -FILE 124; 452 RECORDS: 0 SUBROUTINE LINPG(V,SOL,M,N,M2,N2,CNSTR,SW) LNPG0001 IMPLICIT REAL*8 (A-H,O-Z) LNPG0002 REAL*4 CNSTR,SW LNPG0003 DIMENSION V(22500),SOL(150),I(150),J(150),K(300),IS(150) LNPG0004 C LNPG0005 C INPUT ROUTINE TO INITIALIZE VARIABLES LNPG0006 C LNPG0007 NLESS1 = N-1 LNPG0008 DO 9999 III=1,NLESS1 LNPG0009 9999 SOL(III) = 0. LNPG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 711 LTEMP = I(LR1) LNPG0443 I(LR1) = I(LR2) LNPG0444 I(LR2) = LTEMP LNPG0445 712 DO 713 IC=1,NO,2 LNPG0446 IF (LR2 - K(IC)) 713,715,713 LNPG0447 713 CONTINUE LNPG0448 GO TO 716 LNPG0449 715 K(IC) = LR1 LNPG0450 716 GO TO LABEL,(525,543,546,556) LNPG0451 END LNPG0452 -FILE 125; 1366 RECORDS: 0PLOT TITLE 'UNIVERSITY OF MICHIGAN SYSTEM /360 PRINTER PLOT ROUTINE' PRPL0001 * PRPL0002 * PRPL0003 * PROGRAMMED BY VICTOR J. STREETER PRPL0004 * COMPUTING CENTER PRPL0005 * UNIVERSITY OF MICHIGAN PRPL0006 * ANN ARBOR, MICHIGAN PRPL0007 * PRPL0008 * MACRO DEFINITIONS * PRPL0009 * PRPL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> XDIG1 DC C'0' PRPL1357 XDIG2 DS 1C PRPL1358 DC C' TIMES THEIR ACTUAL VALUES' PRPL1359 YCOM DC C'0 PRINTED VALUES OF Y ARE 1E' PRPL1360 YSI DC C' ' PRPL1361 YDIG1 DC C'0' PRPL1362 YDIG2 DS 1C PRPL1363 DC C' TIMES THEIR ACTUAL VALUES' PRPL1364 DS 10F PRPL1365 END PRPL1366 -FILE 126; 21 RECORDS: 0RWND TITLE 'FORTRAN CALLABLE SUBROUTINE TO REWIND A FILE OR TAPE' REW00001 REWIND START 0 REW00002 ENTER 12,SA=SA REW00003 L 2,0(0,1) LOCATION OF FULL WORD DS REF # REW00004 NI NUM,X'F0' PUT IT INTO BCD GARBAGE REW00005 OC NUM(1),3(2) REW00006 LM 0,1,NUM SET UP CALL TO REWIND# REW00007 L 15,=V(REWIND#) REW00008 BALR 14,15 REW00009 LTR 15,15 DID IT WORK REW00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SERCOM 'ILLEGAL CALL TO "REWIND"' REW00012 L 13,4(0,13) SET UP REGISTERS FOR DUMP REW00013 L 14,12(0,13) REW00014 L 15,=V(ERROR) REW00015 LM 0,12,20(13) REW00016 BR 15 GO SIDEWAYS TO ERROR REW00017 EXIT EXIT 0 REW00018 NUM DC 0F'0',CL8'0' REW00019 SA DS 18F REW00020 END REW00021 -FILE 127; 902 RECORDS: 0PTPP TITLE 'MTS PAPER TAPE PUNCH SUPPORT ROUTINES ---- VERSION @PUNC0001 30 DECEMBER 1967 (MODEM 1)' PUNC0002 MACRO PUNC0003 &SLB ERMSG &WHAT,&RC PUNC0004 LCLA &LNG,&LNG4,&LNG16 PUNC0005 &LNG SETA K'&WHAT-1 PUNC0006 &LNG4 SETA &LNG+4 PUNC0007 &LNG16 SETA &LNG+16 PUNC0008 &SLB OI FDUBS,DSRERR PUNC0009 MVC PAD(&LNG),*+54 THE MESSAGE PUNC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER PUNC0893 FDUBEL DS F NOT PERTINENT PUNC0894 FDUBIL DS F INCREMENT PUNC0895 FDUBSR DS F SUBROUTINE LOCATION PUNC0896 FDUBSCR DS F SCRATCH PUNC0897 FDUBNAM DS F BACK POINTER TO WHO'S USING IT PUNC0898 FDUBDS DS F DEFAULT SWITCHES PUNC0899 FDUBCH DS F NOT PERTINENT PUNC0900 EJECT PUNC0901 END TAPE PUNC0902 -FILE 128; 761 RECORDS: 0TSK TITLE 'ROUTINE TO DISPLAY TASK STATUS ON 2250' TSK00001 MACRO TSK00002 &NAME IOREQ &CCW TSK00003 &NAME L 0,DEVICE TSK00004 LA 1,&CCW TSK00005 LA 2,RTNL TSK00006 SVC STIO TSK00007 SVC WAIT TSK00008 MEND TSK00009 PTASKS CSECT TSK00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL2(GECFB) TSK00752 INPUT DC 37C' ' INPUT LINE TSK00753 INITLEN EQU *-GDOA TSK00754 DC AL2(GSRT) TSK00755 DC AL2(GTRU) TSK00756 DC HL2'0' TSK00757 ********************************************************************** TSK00758 DS 800F REMAINDER OF GDOA TSK00759 GDOALEN EQU *-GDOA TSK00760 END TSK00761 -FILE 129; 99 RECORDS: 0PERM TITLE 'PROGRAM TO SET ACCESS BITS IN FILES' PERM0001 PRINT NOGEN PERM0002 PERMIT START 0 PERM0003 ENTER 12,SA=SA PERM0004 L 2,0(0,1) PERM0005 LTR 2,2 PERM0006 BZ READ PERM0007 LH 3,0(0,2) SEE IF HE GAVE US PARAMS PERM0008 LTR 3,3 PERM0009 BZ READ NO -- GO READ FILE NAMES PERM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> QUIT EXIT 0 PERM0090 ERRACC SERCOM 'ACCESS MUST BE "ALL", "RO", "NONE", OR "PRJNO"' PERM0091 B READ PERM0092 ROACC LA 4,X'AC' PERM0093 B SET PERM0094 IN DS CL100 PERM0095 INL DS H PERM0096 FCBAI EQU 36 PERM0097 SA DS 18F PERM0098 END PERM0099 -FILE 130; 101 RECORDS: 0BNEB TITLE 'SUBROUTINE TO CONVERT BINARY READ CARDS TO EBCD' BNBC0001 BINEBCD START 0 BNBC0002 USING *,15 BNBC0003 BIN EQU 1 POINTER TO BINARY IMAGE BNBC0004 EBCD EQU 2 POINTER TO EBCD IMAGE BNBC0005 MVC 0(80,EBCD),SCRMBL REARRANGE FIRST 40 BNBC0006 TR 0(80,EBCD),0(BIN) BNBC0007 MVC 0(80,BIN),SCRMBL REARRANGE LAST 40 BNBC0008 TR 0(80,BIN),80(BIN) BNBC0009 TR 0(40,EBCD),TOPTAB BNBC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT ù ù ÃK¥ÃŸ|¥1¶Äòþº÷Ú ÿ⥭³ÃÉÔÆäöùûõ ‰ˆ‹BNBC0092 TXT ¿ ù ¢<+ Ù ·½¶ª° ÅÑÎãðúýÊŠ‡Œ–.(|¥ª­BNBC0093 TXT y ù ° ʉŠ-/倯abcµ~st{ABC\ÖST÷BNBC0094 TXT \ ù þ ÿ ·º½BNBC0095 TXT  ù  32176549ãÎöðä8#:`"='@ùýûúõ0TS/XWVUZ°­ª ³Y,\„BNBC0096 TXT & ù ?>_%ÃÑÉÅÔ-LKJPONMR½·ÿQ$!§Â;)*¶â}ts~xwvuz€åÖBNBC0097 TXT h ù ÌçËyÀÁµ¨Þ Ü‚ïÓ¥Íîñ…&CBAGFEDIº þH.¢–|+(<÷ ÚÙ {cbaBNBC0098 TXT { ù gfediŠ‰ÊŒ‹‡ˆhÈǯ±ßàݙЛ—˜šÏlkjponmr‘Ž•”’q¼»¡Û®ü¾“žÕBNBC0099 TXT 8 ³ ØœŸ¿á´£¹¦¤©²èæƒìëêé¸][^׫¬øíóÒÆÄòô† BNBC0100 END BNBC0101 -FILE 131; 985 RECORDS: 0TAPE TITLE 'MTS TAPE SUPPORT ROUTINES (NON-RESIDENT) --- VERSION @TAPE0001 15 OCTOBER 1968 (SYSTEM RELEASE # 1)' TAPE0002 MACRO TAPE0003 &SLB ERMSG &WHAT,&RC TAPE0004 LCLA &LNG TAPE0005 &LNG SETA K'&WHAT-2 TAPE0006 &SLB STM R1,R5,ERMSGSA SAVE REGISTERS FOR POP TAPE0007 BAL R5,ERMSG SUBROUTINE TO PROCESS THEM TAPE0008 DC AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE TAPE0009 SPACE 1 TAPE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER TAPE0976 FDUBEL DS F NOT PERTINENT TAPE0977 FDUBIL DS F INCREMENT TAPE0978 FDUBSR DS F SUBROUTINE LOCATION TAPE0979 FDUBSCR DS F SCRATCH TAPE0980 FDUBNAM DS F BACK POINTER TO WHO'S USING IT TAPE0981 FDUBDS DS F DEFAULT SWITCHES TAPE0982 FDUBCH DS F NOT PERTINENT TAPE0983 EJECT TAPE0984 END TAPE TAPE0985 -FILE 132; 82 RECORDS: 0REW# TITLE 'INTERNAL FORTRAN SUBROUTINE TO REWIND A FILE OR TAPE' REW#0001 REWIND# START 0 REW#0002 ENTER 12,SA=SA SET UP REGISTERS REW#0003 CALL GDINFO,MF=(E,(1)) REGISTERS ALREADY SET UP FOR GDINFO REW#0004 LTR 15,15 LEGAL CALL REW#0005 BNE ERROR NO JUST PASS IT ON REW#0006 L 2,0(0,1) GET FDUB POINTER REW#0007 L 3,FDUBBL(0,2) RESET LINE NUMBER FOR ANYTHING REW#0008 S 3,FDUBIL(0,2) REW#0009 ST 3,FDUBCL(0,2) REW#0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EOF2 SPRINT 'EOF 2' REW#0073 EXIT 0 REW#0074 END REW#0075 WRITE FDUB,'REW',@CC REW#0076 B LEAVE REW#0077 FDUB DS F REW#0078 SA DS 18F REW#0079 FDUBBL EQU 8 REW#0080 FDUBCL EQU 12 REW#0081 END REW#0082 -FILE 133; 147 RECORDS: 0SYM ù ·GUINFO‡÷CUINFOB COMÿ‰NBR‰uBCDŠÜLOOPBGUIN0001 SYM ù }RC4ÿCÕRC12ÿ‰UGETˆRTNFWB¥OUTÿ‡ÉTGUIN0002 SYM ù YPE16‡õISBYTE‹ADDONLYˆ%EXTABg@TABLENDA¥D¯PATGUIN0003 SYM ù CHÿa}SWþ÷JfMLASTJBAÔDQTABLEhQ¥HGUIN0004 SYM ù Ÿ¥þh\hY¥H…¥þh0h8¥H†¥þhGUIN0005 SYM ù h÷¥H ¥þhh¥H¥þh¥hÃ¥HÔGUIN0006 SYM ù ¥þhÆhù¥H¥þh h¥H<¥þh&GUIN0007 SYM ù h“¥H*¥þh-H‚þhí¥H@¥þh¯hGUIN0008 SYM ù h¥HÝ¥þh¡hq¥H¾¥þhµHyþh¸¥GUIN0009 SYM ù Hø¥þh{HHþhQ¥HŸ¥þh\hY¥HGUIN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT ºù ù GUIN0138 TXT º¿ ù þÄþCUMDISK GUIN0139 TXT ºy ù þdÄþGLOBCPUTþhÄþGLOBPGS GUIN0140 TXT º\ ù þÝÄþGLOBPCH GUIN0141 TXT  ù þmÄþLOCCPUT þqÄþGUIN0142 TXT & ù LOCPGS þ¾ÄþLOCPCH GUIN0143 TXT h Æ þ¯ÄþGLOBTTN þ¡ÄþLOCTTN GUIN0144 TXT ¸  ÄÄÄÄÄ ÄÄÄ Ä GUIN0145 RLD   @M GUIN0146 END GUIN0147 -FILE 134; 135 RECORDS: 0 /* PROGRAM TO DO SOMETHING FOR IEBUPDAT INPUT */ UPDT0001 UPDT0002 UPDATE: PROCEDURE OPTIONS(MAIN); UPDT0003 DCL UPDT0004 INTAPE INPUT FILE RECORD ENV(LEAVE), UPDT0005 OUTTAPE OUTPUT FILE RECORD ENV(LEAVE), UPDT0006 DATA FILE INPUT RECORD, UPDT0007 (BUFFER,WHAT) CHAR(80) INIT ((80)' '), UPDT0008 (FRSTNR,LASTNR,MEMBR,TEST) CHAR(8), UPDT0009 ID CHAR(8) DEFINED BUFFER POS(73), UPDT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COUNT = COUNT + INCR; UPDT0126 NEW_ID = COUNT; UPDT0127 SUBSTR(X,73,8) = NEW_ID; UPDT0128 END; UPDT0129 SCREW = X; UPDT0130 WRITE FILE(OUTTAPE) FROM (SCREW); UPDT0131 RETURN; UPDT0132 END PUTOUT; UPDT0133 UPDT0134 END UPDATE; UPDT0135 -FILE 135; 757 RECORDS: 0PDS TITLE ' ROUTINE TO PUNCH/PRINT A PDS' PDS00001 *********************************************************************** PDS00002 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* PDS00003 * VITAL MESSAGES FROM THE DIRECTORY RECORD FOR LOAD MODS. PDS00004 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* PDS00005 *********************************************************************** PDS00006 SPACE 5 PDS00007 PDSDSECT DSECT PDS00008 LTH DS H LENGTH OF DIR. RECORD PDS00009 IND1 DS X INDICATOR - WHAT KIND OF RECORD PDS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE PDS00748 ID#TBL DC 75H'0' PDS00749 SPACE 5 PDS00750 PATCH DS 20F PDS00751 LTORG PDS00752 TXTESDID DC H'0' PDS00753 TXTBLKAD DC A(0) PDS00754 TXTBLKLG DC H'0' PDS00755 TXTBLK DS XL1024 PDS00756 END PDSPNCH# PDS00757 -FILE 136; 205 RECORDS: 0BLKS TITLE ' ROUTINE TO EXTRACT VAR. BLKS FROM IEHMOVE TAPE' BLKS0001 *********************************************************************** BLKS0002 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* BLKS0003 * FILES NOW SUPPORTED BY THIS PROGRAM: BLKS0004 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* BLKS0005 *********************************************************************** BLKS0006 SPACE 15 BLKS0007 * BLKS0008 * SCARDS - CONTROL STATEMENTS PROVIDED BY THE USER. BLKS0009 * IF NONE, DEFAULTS WILL BE ASSUMED. BLKS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ZERO DC F'0' UNIT NUMBER. BLKS0196 SCRATCH DS 78C BLKS0197 ATAPRTN DC A(TAPRTN) BLKS0198 H078 DC H'78' BLKS0199 EXMOVE MVC 0(*-*,2),0(7) REMOTE INSTRUCTION BLKS0200 BLKPTR DC F'0' START WITH ZERO, REMEMBER. BLKS0201 SA#0 DS 18F SAVE AREA FOR THIS ROUTINE BLKS0202 SA#1 DS 18F SAVE AREA FOR ASK AND BLKRTN. BLKS0203 BLK DS X AIN'T THERE IS SOMEWHERE ELSE. BLKS0204 END BLKS0205 -FILE 137; 39 RECORDS: 0WIPE TITLE ' ROUTINE TO CLEAN OFF NON-PRINTABLE CH?WIPE0001 ARACTERS' WIPE0002 CLEAN## CSECT WIPE0003 ENTRY CLEAN WIPE0004 CLEAN STM 14,12,12(13) WIPE0005 LR 10,15 WIPE0006 L 15,0(1) GET ADDR WIPE0007 USING CLEAN,10 WIPE0008 L 1,4(1) WIPE0009 L 1,0(1) WIPE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'ABCDEFGHI' WIPE0030 ORG TABLE+C'J' WIPE0031 DC C'JKLMNOPQR' WIPE0032 ORG TABLE+C'S' WIPE0033 DC C'STUVWXYZ' WIPE0034 ORG TABLE+C'0' WIPE0035 DC C'0123456789' WIPE0036 ORG WIPE0037 EXTR TR 0(*-*,15),TABLE WIPE0038 END WIPE0039 -FILE 138; 127 RECORDS: 0MOVE TITLE ' AN MTS PROGRAM TO STIMULATE IHEMOVE ' MOVE0001 IEHMOVE CSECT MOVE0002 SPACE 5 MOVE0003 PDSDSECT DSECT MOVE0004 LTH DS H LENGTH OF DIR. RECORD MOVE0005 IND1 DS X INDICATOR - WHAT KIND OF RECORD MOVE0006 TTR DS 3X TTR MOVE0007 NAME DS CL8 NAME MOVE0008 SPACE 5 MOVE0009 TTRSW EQU X'80' 3-BYTE TTR FOLLOWS MOVE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CARD DC CL80' ' MOVE0118 H080 DC H'80' MOVE0119 JUNK DC F'0' MOVE0120 Z DC F'0' MOVE0121 PDS DC XL80'0' MOVE0122 CNOP 2,4 MOVE0123 BLOCK DS CL4000 BLOCK FACTOR 50 ************** MOVE0124 RECORD EQU BLOCK+6 MOVE0125 PATCH DS 25F MOVE0126 END IEHMOVE MOVE0127 -FILE 139; 274 RECORDS: 0TMSR TITLE 'TAPE MOVEMENT SUBROUTINES' TMSR0001 TPSUBR START 0 TMSR0002 ENTRY WTM WRITE TAPE MARK TMSR0003 ENTRY ERG ERASE RECORD GAP TMSR0004 ENTRY FSR FORWARD SPACE RECORD TMSR0005 ENTRY BSR BACKSPACE RECORD TMSR0006 ENTRY BSF BACKSPACE FILE TMSR0007 ENTRY FSF FORWARD SPACE FILE TMSR0008 ENTRY REW REWIND TMSR0009 ENTRY RUN REWIND AND UNLOAD TMSR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TABB CCW X'2B',*,X'40',1 REC BACK 200 TMSR0265 CCW X'27',*,0,1 TMSR0266 CCW X'6B',*,X'40',1 REC BACK 556 TMSR0267 CCW X'27',*,0,1 TMSR0268 CCW X'AB',*,X'40',1 REC BACK 800 TMSR0269 CCW X'27',*,0,1 TMSR0270 SAVE EQU 8 TMSR0271 DELETE EQU 10 TMSR0272 BASADD DC A(BASE) TMSR0273 END TMSR0274 -FILE 140; 92 RECORDS: 0SSAV TITLE 'PROGRAM TO SAVE *STATISTICS' STSV0001 STATSAV START 0 STSV0002 ENTER 12,SA=SA STSV0003 SPRINT 'WHAT TAPE IS TO BE USED?' STSV0004 RDTP SCARDS IN,INL,EXIT=RDTP STSV0005 LA 1,IN TRY TO GET TAPE STSV0006 AH 1,INL BUT PUT A BLANK AT END STSV0007 MVI 0(1),C' ' STSV0008 LA 1,IN STSV0009 L 15,=V(GETFD) STSV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SA DS 18F STSV0083 LOCK EQU 58 SVC TO SET LOCK STSV0084 UNLOCK EQU 59 SVC TO RESET LOCK STSV0085 ACCTLOCK EQU 1 STSV0086 COMPARE CLC IN(0),IN2 STSV0087 INL DS H STSV0088 IN2L DS H STSV0089 IN DS CL256 STSV0090 IN2 DS CL256 STSV0091 END STSV0092 -FILE 141; 135 RECORDS: 0 /* PROGRAM TO DO SOMETHING FOR IEBUPDAT INPUT */ IEBU0001 IEBU0002 UPDATE: PROCEDURE OPTIONS(MAIN); IEBU0003 DCL IEBU0004 INTAPE INPUT FILE RECORD ENV(LEAVE), IEBU0005 OUTTAPE OUTPUT FILE RECORD ENV(LEAVE), IEBU0006 DATA FILE INPUT RECORD, IEBU0007 (BUFFER,WHAT) CHAR(80) INIT ((80)' '), IEBU0008 (FRSTNR,LASTNR,MEMBR,TEST) CHAR(8), IEBU0009 ID CHAR(8) DEFINED BUFFER POS(73), IEBU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COUNT = COUNT + INCR; IEBU0126 NEW_ID = COUNT; IEBU0127 SUBSTR(X,73,8) = NEW_ID; IEBU0128 END; IEBU0129 SCREW = X; IEBU0130 WRITE FILE(OUTTAPE) FROM (SCREW); IEBU0131 RETURN; IEBU0132 END PUTOUT; IEBU0133 IEBU0134 END UPDATE; IEBU0135 -FILE 142; 333 RECORDS: 0ROSS TITLE 'PROGRAM TO PROCESS ROSS TAPES FROM TEXT90' RSPR0001 MACRO RSPR0002 &SL GET &NAME RSPR0003 &SL SCARDS INREG,DCBLRECL,EXIT=DONE RSPR0004 LA 1,INREG RSPR0005 MEND RSPR0006 SPACE 3 RSPR0007 MACRO RSPR0008 &SL PUT &NAME RSPR0009 &SL TM POPEN,X'01' RSPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TAPEPL DC F'0' RSPR0324 DC A(TAPEND) RSPR0325 DC V(TPRDUC) RSPR0326 TAPEND SVC 8 SAVE RSPR0327 SVC 10 DELEDE RSPR0328 B DONE RSPR0329 POPEN DC F'0' SPWITCHES FOR PRINTER RSPR0330 EJECT RSPR0331 SPACE 10 RSPR0332 END RSPR0333 -FILE 143; 205 RECORDS: 0* SYN00001 READ('INPUT',5,80) SYN00002 * SYN00003 * SYN00004 * THE FOLLOWING CONSTANTS DEFINE THE PARTICULAR CHARACTERS AND SYN00005 * CLASSES OF CHARACTERS USED IN THE SYNTAX TABLES FOR SNOBOL4. SYN00006 * SYN00007 * SYN00008 * SYN00009 * ALL CHARACTERS WHICH APPEAR AS QUOTED LITERALS, AND ALL SYN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 39 BYTE = '9C' :(RETURN) SYN00196 40 BYTE = 'A0' :(RETURN) SYN00197 * SYN00198 * SYN00199 * SYN00200 PUBLISH SYN00201 OUTPUT = X SYN00202 PUNCH = X :(RETURN) SYN00203 TER SYN00204 END SYN00205 -FILE 144; 120 RECORDS: 0BIOPTB SYNT0001 FOR('+') PUT(ADDFN) GOTO(TBLKTB) SYNT0002 FOR('-') PUT(SUBFN) GOTO(TBLKTB) SYNT0003 FOR('.') PUT(NAMFN) GOTO(TBLKTB) SYNT0004 FOR('$') PUT(DOLFN) GOTO(TBLKTB) SYNT0005 FOR('*') GOTO(STARTB) SYNT0006 FOR('/') PUT(DIVFN) GOTO(TBLKTB) SYNT0007 FOR(ORSYM) PUT(ORFN) GOTO(TBLKTB) SYNT0008 ELSE ERROR SYNT0009 CARDTB SYNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FOR(',') PUT(CMATYP) STOPSHORT SYNT0111 FOR(')') PUT(RPTYP) STOPSHORT SYNT0112 ELSE ERROR SYNT0113 VARTB SYNT0114 FOR(ALPHANUMERIC,'.') CONTINUE SYNT0115 FOR(TERMINATOR) PUT(VARTYP) STOPSHORT SYNT0116 FOR('(') PUT(FNCTYP) STOP SYNT0117 FOR(LEFTBR) PUT(ARYTYP) STOP SYNT0118 ELSE ERROR SYNT0119 $CONTINUE WITH SYNTBL SYNT0120 -FILE 145; 556 RECORDS: 0$RUN *ASMBLR 2=PSYSMAC 0=*SYSMAC 1=CCQUEUE PAR=FULLXREF,LOAD,TEST,BATCH,CCQ00001 ,NODECK CCQ00002 CCQ TITLE '*** CALCOMP BATCH BROCESSING QUEUEING PROGRAM ***' CCQ00003 SPACE 4 CCQ00004 *********************************************************************** CCQ00005 * * CCQ00006 * *CCQUEUE - INVOKED BY $RUN WITH PAR=PLOT FILE CHAIN * CCQ00007 * - ASSIGNS PLOT RECEIPT # * CCQ00008 * - AT TERMINAL: * CCQ00009 * (1) PRINTS PLOT TIME. * CCQ00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DWB TITLE '*** DWB DUMMY ***' CCQ00547 GUINFO START 0 CCQ00548 ENTRY CUINFO CCQ00549 USING *,15 CCQ00550 ST 1,12(13) CCQ00551 L 1,4(0,1) S8 BUFFER CCQ00552 MVC 0(8,1),=C'999999 ' CCQ00553 L 1,12(13) CCQ00554 CUINFO BR 14 CCQ00555 END CCQ00556 -FILE 146; 195 RECORDS: 0$RUN *ASMBLR 2=PSYSMAC 0=*SYSMAC 1=CCPOST PAR=FULLXREF,LOAD,BATCCPST0001 SIZE=60 CPST0002 UPST TITLE '*** CCPOST - USER PLOT TAPE POST PROCESSOR ***' CPST0003 SPACE 4 CPST0004 *********************************************************************** CPST0005 * * CPST0006 * GRAPHICS DATA BASE TO CALCOMP PLOT TAPE POST PROCESSOR * CPST0007 * FOR USER SCRATCH TAPE GENERATION. * CPST0008 * INVOKED BY: * CPST0009 * $RUN *CCPOST SCARDS=PFILECHAIN PAR=KEYWORDLIST * CPST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> KEYPAR DC A(LHTL,LHT,EXTAB) CPST0186 TEXT DC A(BUFF) THIS IS INITIALIZED & UPDATED. CPST0187 DC A(RHT) CPST0188 * CPST0189 EXTAB BAL 11,TIMSET 0 CPST0190 BAL 11,FDNSET 4 CPST0191 NOP 0 8 CPST0192 * CPST0193 END CPST0194 $ENDFILE CPST0195 -FILE 147; 293 RECORDS: 0$RUN *ASMBLR 2=PSYSMAC 0=*SYSMAC 1=CCSPOST PAR=FULLXREF,LOAD,BATCCP00001 ,SIZE=60 CCP00002 CPST TITLE '*** SYSTEM CALCOMP BATCH POST PROCESSOR ***' CCP00003 SPACE 4 CCP00004 *********************************************************************** CCP00005 * * CCP00006 * SYSTEM CALCOMP BATCH POST-PROCESSOR * CCP00007 * (1) HAS ENTENDABLE TAIL END * CCP00008 * (2) HANDLES ATTENTIONS ON THE LOCK BYTE * CCP00009 * (3) PRODUCES PLOT STATISTICS * CCP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC V(BMLOCK) CCP00284 DBUFF DS D CCP00285 EDPAT DC X'402020202120' CCP00286 PROTON EQU 26 CCP00287 PROOF EQU 34 CCP00288 WAYT EQU 35 CCP00289 RJBBUF EQU X'44' CCP00290 MTSPCSWT EQU X'C0' CCP00291 END CCP00292 $ENDFILE CCP00293 -FILE 148; 4216 RECORDS: 0$RUN *FORTRAN PAR=SML,LOAD,DECK PLTS0001 SUBROUTINE PELIPS(X0,Y0,A1,B1,ALPHA,THETA0,THETAF,SC) PLTS0002 C CAN ONLY BE USED WRT A LINEAR COORD SYSTEM PLTS0003 C A LINEAR COORDINATE SYSTEM IS ASSUMED. PLTS0004 REAL*8 SUBNAM PLTS0005 DATA SUBNAM/'PELIPS '/ PLTS0006 CALL PLFSPL(SUBNAM) PLTS0007 TYPE=PLTTYP(0) PLTS0008 ALP = ALPHA/57.2958 PLTS0009 THE0 = THETA0 / 57.2958 PLTS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC F'0' PLTS4207 DC F'-1' PLTS4208 NMB DC F'1' PLTS4209 DC F'0' PLTS4210 DC F'-1' PLTS4211 IV DS F PLTS4212 ADDPCC DC A(#PLOTCC) A GOOD ADCON PLTS4213 SLND DS C PLTS4214 END PLTS4215 $ENDFILE PLTS4216 -FILE 149; 770 RECORDS: 0$RUN *ASMBLR 2=PSYSMAC 0=*SYSMAC 1=PCPS PAR=FULLXREF,LOAD,BATCCPCR0001 SIZE=60,NODECK CPCR0002 PCPS TITLE '*** PLOTCC ET. AL. FOR POST PROCESSING ***' CPCR0003 *********************************************************************** CPCR0004 * * CPCR0005 * PLOTCC(X,Y,IC), PENDN(X,Y), PENUP(X,Y) CPCR0006 * FOR POST-PROCESSING * CPCR0007 * PORGUP(X,Y) <=> PLOTCC(X,Y,23) I.E., RESET ORIGIN. CPCR0008 * * CPCR0009 *********************************************************************** CPCR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** CPCR0761 * * CPCR0762 * PLOT TAPE BUFFER * CPCR0763 * * CPCR0764 *********************************************************************** CPCR0765 SPACE 1 CPCR0766 #PBUFF CSECT CPCR0767 PBUFF DS CL8192 CPCR0768 END CPCR0769 $ENDFILE CPCR0770 -FILE 150; 16 RECORDS: 0CALL 10 PMAC0001 CALLS 20 PMAC0002 00000000 PMAC0003 MACRO PMAC0004 &L1 CALL &SNAM,&PLST PMAC0005 CNOP 0,4 FORCE FULL WORD ALIGNMENT PMAC0006 &L1 BAL 1,C&SYSNDX PMAC0007 DC A&PLST PMAC0008 C&SYSNDX L 15,=V(&SNAM) PMAC0009 BALR 14,15 PMAC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MEND PMAC0011 MACRO PMAC0012 &L1 CALLS &SNAM PMAC0013 &L1 L 15,=V(&SNAM) PMAC0014 BALR 14,15 PMAC0015 MEND PMAC0016 -FILE 151; 130 RECORDS: 0PCOP TITLE 'COPY SUBROUTINES FOR PLOTTER RTNS' FRCP0001 PRINT NOGEN FRCP0002 UFILINIT START 0 FRCP0003 ENTRY UFILGET FRCP0004 ENTER 12,SA=SA FRCP0005 L 2,0(0,1) FRCP0006 MVC UID,0(2) FRCP0007 L 2,4(0,1) FRCP0008 MVC NAME(256),0(2) FRCP0009 LA 2,NAME FRCP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC CL8'GUSER' FRCP0121 DC A(GUSER) FRCP0122 F1 DC F'1' FRCP0123 MOVNAM MVC CPYNAM(0),0(1) FRCP0124 CPYPAR DC A(CPYLNG) FRCP0125 SP1 DC A(0) FRCP0126 SP13 DC A(0) FRCP0127 GET1 DS A FRCP0128 MVCLIN MVC 0(0,4),0(5) FRCP0129 END FRCP0130 -FILE 152; 2699 RECORDS: 0********************************************************************** TSFO0001 * * TSFO0002 * * TSFO0003 * MTS TERMINAL ROUTINES FOR: * TSFO0004 * 1. TELETYPES (MODEL 33 AND MODEL 35) * TSFO0005 * 2. IBM 2741 * TSFO0006 * 3. IBM 1050 (INCLUDING CARD READER) * TSFO0007 * 4. FRIDEN FLEXOWRITER * TSFO0008 * * TSFO0009 * * TSFO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRUCCW EQU * TSFO2690 PSTCCW DS (PSTCCWL/8)D TSFO2691 WRTCCW DS 3D TSFO2692 WRITCCW DS (WRITCCWL/8)D TSFO2693 SNSCCW DS (SNSCCWL/8)D TSFO2694 NEWCCW DS 2D TSFO2695 RTNLST DS (RTNLSTL/4)F TSFO2696 TABCHAR DS C TSFO2697 PSECTL EQU *-PSCT TSFO2698 END TSFO2699 -FILE 153; 2701 RECORDS: 0********************************************************************** UTSF0001 * * UTSF0002 * * UTSF0003 * MTS TERMINAL ROUTINES FOR: * UTSF0004 * 1. TELETYPES (MODEL 33 AND MODEL 35) * UTSF0005 * 2. IBM 2741 * UTSF0006 * 3. IBM 1050 (INCLUDING CARD READER) * UTSF0007 * 4. FRIDEN FLEXOWRITER * UTSF0008 * * UTSF0009 * * UTSF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRUCCW EQU * UTSF2692 PSTCCW DS (PSTCCWL/8)D UTSF2693 WRTCCW DS 3D UTSF2694 WRITCCW DS (WRITCCWL/8)D UTSF2695 SNSCCW DS (SNSCCWL/8)D UTSF2696 NEWCCW DS 2D UTSF2697 RTNLST DS (RTNLSTL/4)F UTSF2698 TABCHAR DS C UTSF2699 PSECTL EQU *-PSCT UTSF2700 END UTSF2701 -FILE 154; 19 RECORDS: 0CASECONV START 0 CCNV0001 CASE TITLE ' UPPERCASE CONVERSION TRANSLATE TABLE ' CCNV0002 DC X'000102030405060708090A0B0C0D0E0F' 00...0F CCNV0003 DC X'101112131415161718191A1B1C1D1E1F' 10...1F CCNV0004 DC X'202122232425262728292A2B2C2D2E2F' 20...2F CCNV0005 DC X'303132333435363738393A3B3C3D3E3F' 30...3F CCNV0006 DC X'404142434445464748494A4B4C4D4E4F' 40...4F CCNV0007 DC X'505152535455565758595A5B5C5D5E5F' 50...5F CCNV0008 DC X'606162636465666768696A6B6C6D6E6F' 60...6F CCNV0009 DC X'707172737475767778797A7B7C7D7E7F' 70...7F CCNV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' 80...8F CCNV0011 DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' 90...9F CCNV0012 DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' A0...AF CCNV0013 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' B0...BF CCNV0014 DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' C0...CF CCNV0015 DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' D0...DF CCNV0016 DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' E0...EF CCNV0017 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' F0...FF CCNV0018 END CCNV0019 -FILE 155; 1337 RECORDS: 0MNT TITLE '*MOUNT - FOR MOUNTING PRIVATE VOLUMES AND ALLOCATING DE@MNT00001 VICES (VERSION UN248)' MNT00002 *********************************************************************** MNT00003 * * MNT00004 * MACROS TO GENERATE KWIC RHS AND LHS TABLES * MNT00005 * * MNT00006 *********************************************************************** MNT00007 MACRO MNT00008 &SLB LHS &X,&Y,&Z MNT00009 LCLA &LNG MNT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RETRY EQU X'01' SEND RETRY MESSAGE TO PTPP MNT01328 RETRYON EQU X'02' FORCE RETRIES ON IF SET, OFF IF NOT MNT01329 SIZE EQU X'08' SET RECORD LENGTH OF MOUNTED DEVICE MNT01330 TABL EQU X'10' SET TRANSLATE TABLE FOR NEW DEVICE MNT01331 EOR EQU X'20' SET END OF RECORD SEQUENCE FOR DEVICE MNT01332 * MNT01333 DEVCODE DS XL1 DEVICE CODE MNT01334 PSECTL# EQU *-PSECT# MNT01335 PSECTL EQU *-PSECT LENGTH OF BEASTIE MNT01336 END MNT01337 -FILE 156; 11 RECORDS: 0DMNT TITLE 'LIBRARY SUBROUTINE INTERFACE FOR *DISMOUNT ' DSMN0001 DISMOUNT CSECT DSMN0002 USING *,15 DSMN0003 ST 1,USERPAR PARAMETERS FOR DISMOUNT DSMN0004 LA 1,PARS PARAMETERS FOR CALL TO LINK DSMN0005 L 15,=V(LINK) GET *DISMOUNT DSMN0006 BR 15 BRANCH DIRECTLY TO LINK (RETURNS TO CALLING PROGRAM) DSMN0007 PARS DC A(CDMNT,0) DSMN0008 USERPAR DS F PARAMETER LIST FOR SUBROUTNE DSMN0009 CDMNT DC C'*DISMOUNT ' DSMN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END DSMN0011 -FILE 157; 11 RECORDS: 0MNT TITLE 'LIBRARY SUBROUTINE INTERFACE FOR *MOUNT' MNT00001 MOUNT CSECT MNT00002 USING *,15 MNT00003 ST 1,USERPAR PARAMETERS FOR MOUNT MNT00004 LA 1,PARS PARAMETERS FOR CALL TO LINK MNT00005 L 15,=V(LINK) GET *MOUNT MNT00006 BR 15 BRANCH DIRECTLY TO LINK (RETURNS TO CALLING PROGRAM) MNT00007 PARS DC A(CMOUNT,0) MNT00008 USERPAR DS F PARAMETER LIST FOR SUBROUTNE MNT00009 CMOUNT DC C'*MOUNT ' MNT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END MNT00011 -FILE 158; 623 RECORDS: 0PTPR TITLE 'MTS PAPER TAPE READER SUPPORT ROUTINES --- VERSION @RDR00001 28 MARCH 1968 (MODEM 2)' RDR00002 MACRO RDR00003 &SLB ERMSG &WHAT,&RC RDR00004 LCLA &LNG,&LNG4,&LNG16 RDR00005 &LNG SETA K'&WHAT-1 RDR00006 &LNG4 SETA &LNG+4 RDR00007 &LNG16 SETA &LNG+16 RDR00008 &SLB OI FDUBS,DSRERR RDR00009 MVC PAD(&LNG),*+54 THE MESSAGE RDR00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER RDR00614 FDUBEL DS F NOT PERTINENT RDR00615 FDUBIL DS F INCREMENT RDR00616 FDUBSR DS F SUBROUTINE LOCATION RDR00617 FDUBSCR DS F SCRATCH RDR00618 FDUBNAM DS F BACK POINTER TO WHO'S USING IT RDR00619 FDUBDS DS F DEFAULT SWITCHES RDR00620 FDUBCH DS F NOT PERTINENT RDR00621 EJECT RDR00622 END TAPE RDR00623 -FILE 159; 249 RECORDS: 0ACAT TITLE 'SUBROUTINE TO FIND OUT HOW MUCH DISK A USER HAS' 10CT0001 ACATALOG START 0 10CT0002 SPACE 3 10CT0003 * ENTRY POINT 10CT0004 USING *,12 10CT0005 STM 14,12,12(13) 10CT0006 LR 12,15 10CT0007 ST 13,SA 10CT0008 ST 0,UID SAVE USER ID 10CT0009 LA 11,VOLUMES-6 POINTER TO LAST VOLUME LOOKED AT 10CT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PUNTM DC C'PUNT' 10CT0240 PUNTC DC H'4' 10CT0241 SPACE 10CT0242 LTORG 10CT0243 SPACE 10CT0244 CNOP 0,8 10CT0245 CARD DS 256C 10CT0246 FCB DS 70F 10CT0247 SCR DS 250F 10CT0248 END 10CT0249 -FILE 160; 245 RECORDS: 0ACAT TITLE 'SUBROUTINE TO FIND OUT HOW MUCH DISK A USER HAS' 6CAT0001 ACATALOG START 0 6CAT0002 SPACE 3 6CAT0003 * ENTRY POINT 6CAT0004 USING *,12 6CAT0005 STM 14,12,12(13) 6CAT0006 LR 12,15 6CAT0007 ST 13,SA 6CAT0008 ST 0,UID SAVE USER ID 6CAT0009 LA 11,VOLUMES-6 POINTER TO LAST VOLUME LOOKED AT 6CAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PUNTM DC C'PUNT' 6CAT0236 PUNTC DC H'4' 6CAT0237 SPACE 6CAT0238 LTORG 6CAT0239 SPACE 6CAT0240 CNOP 0,8 6CAT0241 CARD DS 256C 6CAT0242 FCB DS 70F 6CAT0243 SCR DS 250F 6CAT0244 END 6CAT0245 -FILE 161; 100 RECORDS: 0SORT START 0 SORT0001 EXTRN SPRINT SORT0002 ENTER 12,SA=SA SORT0003 LA 0,5 SORT0004 LA 2,=C'MTS009' SORT0005 L 4,=V(VOLGET) SORT0006 BALR 3,4 SORT0007 LTR 4,4 SORT0008 BNE PUNT SORT0009 LA 0,0(0,1) SORT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SWS DC A(X'91') SORT0091 OUT DC CL10' ' SORT0092 TBL DC C'0123456789ABCDEF' SORT0093 LTORG SORT0094 SCR DS 50D SORT0095 TI DS XL8,(3512/16)XL16 SORT0096 DS D SORT0097 AREA DS (50*3520/8)XL8 SORT0098 ENDA EQU *-1 SORT0099 END SORT0100 -FILE 162; 67 RECORDS: 0*********************************************************************** APF00001 * * APF00002 * ALL-PURPOSE DEFINITIONS * APF00003 * * APF00004 *********************************************************************** APF00005 SPACE 2 APF00006 *REGISTER EQUATES... APF00007 SPACE 1 APF00008 R0 EQU 0 APF00009 R1 EQU 1 APF00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LZ EQU X'8' ZERO APF00058 LNZ EQU X'4' NOT ZERO APF00059 * FOR 'TM' INSTRUCTIONS... APF00060 NONE EQU X'8' APF00061 MIXED EQU X'4' APF00062 ONES EQU X'1' APF00063 *FOR 'TRANSLATE AND TEST'... APF00064 TRTZ EQU X'8' ZERO APF00065 TRTI EQU X'4' INCOMPLETE APF00066 TRTC EQU X'2' COMPLETE APF00067 -FILE 163; 693 RECORDS: 0SDMP TITLE 'MTS DUMP SUBROUTINE' SDMP0001 SDUMP START 0 SDMP0002 ENTRY SDMP SDMP0003 ENTRY MTSDMP SDMP0004 GR0 EQU 0 SDMP0005 GR1 EQU 1 SDMP0006 GR2 EQU 2 SDMP0007 GR3 EQU 3 SDMP0008 GR4 EQU 4 SDMP0009 GR5 EQU 5 SDMP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FORMAT DS H SDMP0684 CBPPI DS H SDMP0685 GLPPI DS H SDMP0686 PIPPL DS H SDMP0687 CBPPL DS H SDMP0688 LDOTS DS H SDMP0689 LINE DS CL136 DON'T SHORTEN THIS....... SDMP0690 CCCHAR DS C SDMP0691 CLFSWS DS C SDMP0692 END SDMP0693 -FILE 164; 124 RECORDS: 0TABEDIT CSECT TBED0001 TABCODE EQU X'05' TBED0002 * TBED0003 BALR 12,0 TBED0004 USING *,12 ESTABLISH BASE REGISTER TBED0005 PRINT NOGEN TBED0006 LA 13,SAVEAREA AND SAVEAREA REGISTER TBED0007 SPACE 1 TBED0008 TM 0(1),X'80' IS THERE A PARAMETER LIST? TBED0009 BC 8,NOPAR BIT 0 TELLS ALL TBED0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LEN2 DS H TBED0115 LEM DC H'27' TBED0116 MOD DC F'0' TBED0117 TWO DC F'0' TBED0118 LNR DS F TBED0119 AIMAGE DC A(IMAGE) TBED0120 SAVEAREA DS 18F TBED0121 DBWD DS D TBED0122 TABS DS 20F TBED0123 END TBED0124 -FILE 165; 90 RECORDS: 0COPI TITLE 'JOB TO PRINT MIXED CC OUTPUT' COPY0001 COPIES START 0 COPY0002 USING *,12 COPY0003 LR 12,15 COPY0004 L 1,0(1) COPY0005 LH 5,0(1) COPY0006 LA 10,1 COPY0007 LTR 5,5 COPY0008 BZ LOOP COPY0009 * COPY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LNR DC F'0' COPY0081 LNR1 DC F'1000' COPY0082 COPSW DC X'00' COPY0083 * COPY0084 MCCL DC X'0101010100000000' COPY0085 DC X'0000000000000000' COPY0086 DC X'0001010101010101' COPY0087 DC X'0001000101000000' COPY0088 SPACE 3 COPY0089 END COPY0090 -FILE 166; 167 RECORDS: 0 TITLE 'WATFOR UPDATER' UNUP0001 * UNUP0002 * UNIT 5 CONTAINS CURRENT WATFOR SOURCE UNUP0003 * UNIT 6 CONTAINS ORIGINAL WATFOR SOURCE WITH UPDATE-TYPE ID UNUP0004 * PROGRAM PRODUCES UPDATE CONTROL CARDS ON *PUNCH* UNUP0005 * UNUP0006 * UNUP0007 * UNUP0008 MACRO UNUP0009 &LABEL CMP &N UNUP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BEFORE DC CL80'%BEFORE' UNUP0158 CARD DS CL80 UNUP0159 OPTR DS A UNUP0160 NPTR DS A UNUP0161 LASTID DS CL8 UNUP0162 * UNUP0163 LTORG UNUP0164 XNEW DS 200000C UNUP0165 XOLD DS 200000C UNUP0166 END UNUP0167 -FILE 167; 1254 RECORDS: 0TCLS TITLE 'TYPE T CLOSE ROUTINE FOR DASD BSAM IN MTS' BSAM0001 * ROUTINE TO HANDLE A TYPE T CLOSE FOR BSAM DATA SETS IN MTS. BSAM0002 * CURRENTLY THIS SUPPORTS ONLY DASD. BSAM0003 * THE CALLING SEQUENCE IS THE SAME AS IN OS. "LEAVE" AND BSAM0004 * "REREAD" ARE SUPPORTED AND THE TYPE 1 DSCB IS UPDATED TO BSAM0005 * INDICATE THE LAST TRACK USED. BSAM0006 SPACE BSAM0007 TCLOSE CSECT BSAM0008 COPY BSAMEQU BSAM0009 EJECT BSAM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LE' BSAM1245 ERLST DC A(*+14) BSAM1246 DC A(*+8) BSAM1247 DC A(ZERO) BSAM1248 DC H'16' BSAM1249 DC C'ERROR IN "BOPEN"' BSAM1250 FMSK DC X'58' BSAM1251 BLNK DC CL8' ' BSAM1252 LTORG BSAM1253 END BSAM1254 -FILE 168; 1880 RECORDS: 0LLTP TITLE 'LINCOLN LABS TAPE TO PRINT VERSION 2' TPS00001 PRINT START 0 TPS00002 EXTRN TPRDUC EXTERNAL TAPE READ UC ROUTINE TPS00003 EXTRN PRTUC TPS00004 EXTRN PRTUE TPS00005 EXTRN BUFF1 TPS00006 EXTRN BUFF2 TPS00007 EJECT TPS00008 * REGISTER ASSIGNMENTS TPS00009 SPACE 3 TPS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BUFCCC EQU BUFFER+36 TPS01871 SPACE 3 TPS01872 * DSECT6 TPS01873 SPACE 3 TPS01874 SWCHES DS 0F TPS01875 SWTCH1 DC X'0' TPS01876 SWTCH2 DC X'0' TPS01877 SWTCH3 DC X'0' TPS01878 SWTCH4 DC X'0' TPS01879 END BEGIN TPS01880 -FILE 169; 1090 RECORDS: 0TP TITLE 'TAPE TO PRINTER AND PUNCH' **TP0001 TP START 0 **TP0002 EXTRN PUNUC **TP0003 EXTRN TPRDUC **TP0004 EXTRN PTRUC **TP0005 ENTRY TRANTB **TP0006 ENTRY CCTB,CCTBTR,CCTBP **TP0007 SPACE 3 **TP0008 * JOB HEADER **TP0009 DC A(TPBEG) **TP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TERM DC C' CARD 00000 OF JOB 000000 PUNCHED FROM RECORD WITH ' **TP1081 TPERC DC C'TAPE ERROR' **TP1082 TERL EQU *-TERM **TP1083 BPM DC C'ILLEGAL PARAMETER' **TP1084 BPL EQU *-BPM **TP1085 TPERM DC C'PERMANENT READ ERROR ON ' **TP1086 TPERL EQU *-TPERM **TP1087 LINES DC C': 00000 LINES PRINTED' **TP1088 CARDS DC C'CARDS PUNCHED' **TP1089 END **TP1090 -FILE 170; 388 RECORDS: 0LLPC TITLE 'LINCOLN LAB''S PRINT UNIT CHECK ROUTINES' LLPU0001 PRNTUC START 0 LLPU0002 ENTRY PRTUC LLPU0003 ENTRY PRTUE LLPU0004 *********************************************************************** LLPU0005 * ***************PRINTER UNIT EXCEPTION ROUTINE***************** LLPU0006 * THIS ROUTINE HANDLES PRINTER UNIT EXCEPTIONS. LINKAGE FROM LLPU0007 * THE CALLING PROGRAM REQUIRES PLACING THE PROPER ENTRY POINT LLPU0008 * ADDRESS (PRTUE) WHICH HAS BEEN DEFINED AS AN EXTRN IN THE LLPU0009 * CALLING PROGRAM INTO THE RETURNS LIST AS THE UNIT EXCEPTION LLPU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LDN EQU SAVAR+16 LLPU0379 DSECT2 EQU PRTUC+8192 LLPU0380 RTNADR EQU DSECT2 LLPU0381 FLAG EQU RTNADR+4 LLPU0382 MYFLAG EQU FLAG+1 LLPU0383 STOPCD EQU MYFLAG+1 LLPU0384 SNSCC EQU STOPCD+1 LLPU0385 SENBYT EQU SNSCC+1 LLPU0386 DEVID EQU SENBYT+4 LLPU0387 END LLPU0388 -FILE 171; 713 RECORDS: 0T7D2 TITLE 'VERSION 2 OF 7 TRACK TAPE DUMP' T7D00001 T7DUMP START 0 T7D00002 * ************************************************************** T7D00003 * *T7DUMP DUMPS A BCD OR BINARY(IN OCTAL) OR MIXED MODE T7D00004 * (BCD AND BINARY) 7-TRACK TAPE GENERATED ON THE 1401 OR 7094 T7D00005 * *T7DUMP ALSO DUMPS AN EVEN PARITY 7-TRACK TAPE IN OCTAL. T7D00006 * *OPTIONS T7D00007 * OPTIONS SUCH AS THE MODE OF THE TAPE,TAPE DENSITY, OR FILES T7D00008 * ON THE TAPE MAY BE ENTERED ON THE CONSOLE TYPEWRITER. T7D00009 * FOR T7D00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(PTRUC) T7D00704 BASEAD DC A(T7DUMP) T7D00705 NUMCHR DS D T7D00706 RECCNT DS D T7D00707 FILCNT DS D T7D00708 * FLAG SETTINGS T7D00709 FLAG DC X'00' T7D00710 TRCBIT EQU 1 TRUNCATION OF ORIG RECORD SIZE T7D00711 EVNPAR EQU 2 EVEN PARITY TAPE DUMP IN OCTAL T7D00712 END BEGIN T7D00713 -FILE 172; 452 RECORDS: 0T9D2 TITLE 'VERSION 2 OF 9 TRACK TAPE DUMP' T9D00001 T9DUMP START 0 T9D00002 EXTRN PTRUC PRINTER UNIT CHECK ROUTINE T9D00003 EXTRN TPRDUC TAPE UNIT CHECK ROUTINE T9D00004 * ************************************************************** T9D00005 * *T9DUMP DUMPS A 9 TRACK TAPE GENERATED ON THE 360/65 OR T9D00006 * 360/40 IN HEXADECIMAL WITH AN OPTION FOR BOTH A HEXADECIMAL T9D00007 * AND EBCDIC DUMP. IN THE LATTER CASE A LINE IS FIRST DUMPED T9D00008 * IN HEXADECIMAL THEN IN EBCDIC. T9D00009 * *OPTIONS T9D00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC CL7' ' T9D00443 DC C'JKLMNOPQR' T9D00444 DC CL8' ' T9D00445 DC C'STUVWXYZ' T9D00446 DC CL6' ' T9D00447 DC C'0123456789' T9D00448 DC CL6' ' T9D00449 * FLAG SETTINGS T9D00450 TRCBIT EQU 1 TRUNCATION OF ORIGINAL RECORD SIZE T9D00451 END BEGIN T9D00452 -FILE 173; 661 RECORDS: 0JBRP TITLE 'JOB REQUEST PROCESSOR' JBRP0001 * THIS IS JOB PART OF REQUEST PROCESSOR JBRP0002 SPACE JBRP0003 * JBRP0004 * VERSION OF 23 MAY 1966 JBRP0005 * REPLACES VERSION OF 25 NOVEMBER 1956 JBRP0006 * JBRP0007 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE JBRP0008 * JBRP0009 * 1. USE IS MADE OF THE NEW SVC "GTBUF" AND "GTUNIT" JBRP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0F JBRP0652 XXXERR DC C' ERR' JBRP0653 ADMAX DC A(MAXADD) JBRP0654 JOBAD DC A(JOB) JBRP0655 FOUR DC F'4' JBRP0656 ZEROS DC 11F'0' JBRP0657 JOBTBL DC F'0' JBRP0658 ZERO EQU FOUR DC X'0000' JBRP0659 ORG JOBTBL+LJBTBL JBRP0660 END BEGIN JBRP0661 -FILE 174; 528 RECORDS: 0CATL TITLE 'CATALOG PRINTOUT PROGRAM FOR MTS' LVTC0001 SPACE 2 LVTC0002 *********************************************************************** LVTC0003 * * LVTC0004 * CATALOG PRINTOUT FOR DISKS IN MTS SYSTEM - PRINTS VTOC * LVTC0005 * * LVTC0006 *********************************************************************** LVTC0007 SPACE 2 LVTC0008 * LVTC0009 * LVTC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CONVN DS 1F NUMBER TO BE CONVERTED BY CONVERSION LVTC0519 RDL DS 1F LVTC0520 TTYSWT DS 1F LVTC0521 TYP5T DS 1F LVTC0522 DSKAP DS 3F PLACE TO BUILD PRINT FORM OF ADDRESS LVTC0523 SPACE LVTC0524 NOEPV EQU DSKA+59 LVTC0525 EXT1 EQU 105 LVTC0526 SPACE LVTC0527 END LVTC0528 -FILE 175; 304 RECORDS: 0 MACRO LSTT0001 &L EDIT &FIELD,&SOURCE,&PATL,&PATR,&OP=L LSTT0002 LCLA &T2 LSTT0003 LCLA &T LSTT0004 LCLC &C LSTT0005 LCLC &C2 LSTT0006 AIF (T'&SOURCE EQ 'O').SK2 LSTT0007 &L &OP 1,&SOURCE LSTT0008 AGO .SK3 LSTT0009 .SK2 AIF (T'&L EQ 'O').SK3 LSTT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'ABCDEFGHI' LSTT0295 DC CL(C'J'-C'I'-1)' ' LSTT0296 DC C'JKLMNOPQR' LSTT0297 DC CL(C'S'-C'R'-1)' ' LSTT0298 DC C'STUVWXYZ' LSTT0299 DC CL(C'0'-C'Z'-1)' ' LSTT0300 DC C'0123456789' LSTT0301 DC CL(255-C'9'-1)' ' LSTT0302 COPY STATDSECT LSTT0303 END LSTT0304 -FILE 176; 126 RECORDS: 0 EJECT BEQU0001 * EQU'S FOR ALL GPR'S USED EXCEPT 13,14, AND 15 BEQU0002 SPACE BEQU0003 GR0 EQU 0 BEQU0004 GR1 EQU 1 BEQU0005 GR2 EQU 2 BEQU0006 GR3 EQU 3 BEQU0007 GR4 EQU 4 BEQU0008 GR5 EQU 5 BEQU0009 GR6 EQU 6 BEQU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EJECT BEQU0117 * DSECT FOR A DATA EVENT CONTROL BLOCK (DECB) BEQU0118 SPACE BEQU0119 DECB DSECT BEQU0120 DECBECB DC F'0' EVENT CONTROL BLOCK BEQU0121 DECBFLG DC XL2'0' FLAG BEQU0122 DECBLGTH DC H'0' LENGTH OF RECORD TO WRITE BEQU0123 DECBDCB DC A(0) ADDRESS OF DCB BEQU0124 DECBADDR DC A(0) ADDRESS OF I/O AREA BEQU0125 DECBSTAT DC F'0' POINTER TO STATUS BITS (NOT SUPPORTED) BEQU0126 -FILE 177; 726 RECORDS: 0RSTR TITLE 'UTILITY TO RESTORE DISC FILES (VERSION 5 JUNE 1968)' RST00001 MACRO RST00002 &SLB MESSAGE &WHAT,&NEXT RST00003 &SLB BAL 1,*+((L'###&SYSNDX+1)/2*2)+6 AROUND CONSTANETS RST00004 DC Y(L'###&SYSNDX) LENGTH RST00005 ###&SYSNDX DC C&WHAT,0H'0' RST00006 BAL 15,MESSAGE RST00007 AIF (T'&NEXT EQ 'O').END RST00008 B &NEXT RST00009 .END ANOP RST00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TIDSECT DSECT TRACK INDEX PROTOTYPE RST00717 SPACE RST00718 TIDISK DS CL6 DISK PACK NAME RST00719 TICYLNDR DS H CYLINDER ON THAT PACK RST00720 TITRACK DS H TRACK WITHIN THAT CYLINDER RST00721 TIRECORD DS X PHYSICAL RECORD NUMBER (0 OR 1) RST00722 TIUNU DS XL5 UNUSED RST00723 TIENTL EQU *-TIDSECT LENGTH OF TI ENTRY RST00724 SPACE 4 RST00725 END RESTORE RST00726 -FILE 178; 6 RECORDS: 0$SIG INIT PW=Æþä INIT0001 $RUN DINIT SERCOM=OPER INIT0002 $RUN STRTPDP INIT0003 $RUN CLEAN;SCARDS=CLEAN(100) SPRINT=OPER INIT0004 $RUN INIT;SPRINT=OPER INIT0005 $SIGNOFF INIT0006 -FILE 179; 2 RECORDS: 0 LCS LCSYMBOL NDJN0001 LDT NDJN0002 -FILE 180; 1393 RECORDS: 0* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * TNL00001 * SUBROUTINE TO RETURN MONTH, DAY, & YEAR, GIVEN A REGION (ADDRESS TNL00002 * IN GR 1) CONTAINING MM-DD-YY IN EBCDIC. CALLING SEQUENCE FROM TNL00003 * FORTRAN: NUMBR=DCONV(REG) WHERE NUMBER=YY*10000+MM*100+DD TNL00004 * GR15 IS PRESERVED. GR0 CONTAINS NUMBER TNL00005 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * TNL00006 DCONV CSECT TNL00007 COPY EQU TNL00008 SAVE (14,12),T,DCONV TNL00009 BASR 12,0 TNL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DONEB BCTR 2,0 TNL01384 EX 2,MO TNL01385 LA 2,1(2) TNL01386 RETURN (3,12) TNL01387 MO MVC 0(0,1),0(3) TNL01388 DS 0D TNL01389 SCRATCH DS CL9' ' TNL01390 DS 0D TNL01391 TEMP DS CL16' ' TNL01392 END TNL01393 -FILE 181; 314 RECORDS: 0SCAN TITLE 'PROGRAM TO FIND FILES BELONGING TO ILLEGAL USERS' SCNF0001 DESTROY START 0 SCNF0002 PRINT NOGEN SCNF0003 SPACE 3 SCNF0004 * ENTRY POINT SCNF0005 USING *,12 SCNF0006 STM 14,12,12(13) SCNF0007 LR 12,15 SCNF0008 ST 13,SA SCNF0009 LA 13,SCR SCNF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 20F SCNF0305 SPACE SCNF0306 LTORG SCNF0307 SPACE SCNF0308 CNOP 0,8 SCNF0309 CARD DS 256C SCNF0310 FCB DS 70F SCNF0311 SCR DS 250F SCNF0312 UIDT DS 2000XL5 TABLE FOR USER IDS SCNF0313 END SCNF0314 -FILE 182; 61 RECORDS: 0*********************************************************************** PCBD0001 * * PCBD0002 * PCB -- PAGE CONTROL BLOCK * PCBD0003 * * PCBD0004 * DSECT * PCBD0005 * * PCBD0006 *********************************************************************** PCBD0007 SPACE 5 PCBD0008 PCBDCT DSECT PCBD0009 * PCBD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE PCBD0052 PCBXA DS H EXTERNAL ADDRESS - KEPT AS PCBD0053 PCBXAS EQU PCBXA SLOT - 1 BYTE PCBD0054 * 4 BITS MODULE NBR PCBD0055 * 4 BITS SLOT NUMBER PCBD0056 PCBXAT EQU PCBXA+1 TRACK - 1 BYTE PCBD0057 * PCBD0058 * PCBD0059 * PCBD0060 LPCB EQU *-PCBDCT LENGTH OF PCB PCBD0061 -FILE 183; 1505 RECORDS: 0STAN TITLE 'STATISTICS PHASE I ANALYSIS' ANAL0001 PRINT ON,NODATA,NOGEN ANAL0002 LCLC &Q(25) ANAL0003 * ANAL0004 * INITIALIZATION ANAL0005 * ANAL0006 STATANAL START 0 ENTRY POINT ANAL0007 SAVE (14,12) SAVE THE MTS REGISTERS ANAL0008 BALR 12,0 THIS IS THE BASE REGISTER ANAL0009 USING *,12,10 ESTABLISH THEM ANAL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EDMPAREA EQU * END OF TAPE OUTPUT AREA ANAL1496 CNT DC A(EDMPAREA-NEWAREA) LENGTH OF TAPE OUTPUT ANAL1497 ADDAREA DS 8F ITEM PRINT AREA ANAL1498 JOBAREA DS (NOJOBS*(JOBEND-JOBINFO))C ANAL1499 EJOBAREA EQU * END OF INFORMATION AREAS ANAL1500 PAGETBL DS (NOPAGES*LPTBL)F PAGE TABLE FOR VIRTUAL MEMORY ANAL1501 PAGEND EQU * END OF PAGE TABLE ANAL1502 DATA DS 4096C BUFFER OF ITEMS FROM STAT JOB ANAL1503 JOBPTR DS (NJOBPTR)F JOB TABLE ADDRESS TABLE ANAL1504 END STATANAL ANAL1505 -FILE 184; 456 RECORDS: 0IPL TITLE 'IPL PROGRAM - LLMPS TO DISK AND BACK' IPL00001 SPACE 10 IPL00002 *XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* IPL00003 *XXX XXX* IPL00004 *XXX IPL PROGRAM FOR READING AND WRITING LLMPS XXX* IPL00005 *XXX XXX* IPL00006 *XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* IPL00007 SPACE 3 IPL00008 *********************************************************************** IPL00009 * * IPL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' ON DRIVE ' IPL00447 EM4B DC 5C' ' IPL00448 EM4L EQU *-EM4 IPL00449 SPACE IPL00450 SPACE IPL00451 ENDW EQU * END OF PROGRAM ADDRESS GENERATOR IPL00452 SPACE IPL00453 * *** CODE MAY NOT GO BEYOND HEX '51A' (LOADER IS THERE) IPL00454 SPACE IPL00455 END WRITE GO TO WRITE SECTION ON TERMINATE IPL00456 -FILE 185; 113 RECORDS: 0STRTPSW DC D'0' EXTERNAL START PSW MPSA0001 DS XL6 MPSA0002 EXICOD DS H EXTERNAL INTERUPT INTERRUPT CODE MPSA0003 SVICOD DS H SVC INTERRUPT CODE MPSA0004 PGICOD DS H PROGRAM INTERRUPT CODE MPSA0005 MCICOD DS H MACHINE CHECK INTERRUPT CODE MPSA0006 IOICOD DS H I/O INTERRUPT CODE MPSA0007 EXOPSW DS D EXTERNAL INTERRUPT OLD PSW MPSA0008 SVOPSW DS D SVC INTERRUPT OLD PSW MPSA0009 PGOPSW DS D PROGRAM INTERRUPT OLD PSW MPSA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'8000' SSU 6 MPSA0104 DC X'8000' SSU 7 MPSA0105 DC X'8000' SSU 8 MPSA0106 * MPSA0107 * END OF CST AND SST MPSA0108 * MPSA0109 TRACE DS 0F START OF TRACE TABLE ( IN IPLED CPU'S PSA MPSA0110 * MPSA0111 ORG PSA+4092 MUST PUT LAST JOB IN SECOND HALF PF PSA MPSA0112 LASTJOB DC A(DUMJOB) ADDRESS OF LAST JOB TABLE DISPATCHED MPSA0113 -FILE 186; 113 RECORDS: 0STRTPSW DC D'0' EXTERNAL START PSW UPSA0001 DS XL6 UPSA0002 EXICOD DS H EXTERNAL INTERUPT INTERRUPT CODE UPSA0003 SVICOD DS H SVC INTERRUPT CODE UPSA0004 PGICOD DS H PROGRAM INTERRUPT CODE UPSA0005 MCICOD DS H MACHINE CHECK INTERRUPT CODE UPSA0006 IOICOD DS H I/O INTERRUPT CODE UPSA0007 EXOPSW DS D EXTERNAL INTERRUPT OLD PSW UPSA0008 SVOPSW DS D SVC INTERRUPT OLD PSW UPSA0009 PGOPSW DS D PROGRAM INTERRUPT OLD PSW UPSA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'8000' SSU 6 UPSA0104 DC X'8000' SSU 7 UPSA0105 DC X'8000' SSU 8 UPSA0106 * UPSA0107 * END OF CST AND SST UPSA0108 * UPSA0109 TRACE DS 0F START OF TRACE TABLE ( IN IPLED CPU'S PSA UPSA0110 * UPSA0111 ORG PSA+4092 MUST PUT LAST JOB IN SECOND HALF PF PSA UPSA0112 LASTJOB DC A(DUMJOB) ADDRESS OF LAST JOB TABLE DISPATCHED UPSA0113 -FILE 187; 1 RECORDS: 0 LCS LCSYMBOL LCS00001 ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ -FILE 188; 192 RECORDS: 0INFO TITLE 'PROGRAM TO GET AND CHANGE USER INFORMATION' INFO0001 SPACE 5 INFO0002 MACRO INFO0003 &SL ITEM &NAME,&XNAME,&INDEX,&TYPE=4,&MASK=255,&SHIFT=0,&CHANGE=0 INFO0004 GBLA &IX INFO0005 .L3 ANOP INFO0006 &IX SETA &IX+1 INFO0007 AIF (&IX EQ &INDEX).L INFO0008 AIF (&IX GT &INDEX).L2 INFO0009 DC 4F'0' INFO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ITEM LOCPCH,LOCPCH,90 INFO0183 ITEM LOCPTM,LOCPTM,92 INFO0184 ITEM GLOBTTN,GLOBTTN,94 INFO0185 ITEM LOCTTN,LOCTTN,96 INFO0186 TABLEND EQU * INFO0187 EJECT INFO0188 JUNK DSECT INFO0189 COPY MTS.CONTAB INFO0190 COPY MTS.DSECT INFO0191 END INFO0192 -FILE 189; 8 RECORDS: 0$SIG USER SVI00001 $RUN *SAV(5) 0=OPER SERCOM=OPER SCARDS=*SV1(10) SVI00002 $SIGNOFF SVI00003 MTS001C SVI00004 MTS003C SVI00005 MTS005C SVI00006 MTS007C SVI00007 MTS009C SVI00008 -FILE 190; 8 RECORDS: 0$SIG SYS SV200001 $RUN *SAV(5) 0=OPER SERCOM=OPER SCARDS=*SV2(10) SV200002 $SIGNOFF SV200003 MTS002C SV200004 MTS004C SV200005 MTS006C SV200006 MTS008C SV200007 MTS010C SV200008 -FILE 191; 222 RECORDS: 0COPY TITLE 'PROGRAM TO MOVE FILES TO ANOTHER USERID' FCOP0001 PRINT NOGEN FCOP0002 FILECOPY START 0 FCOP0003 ENTER 12,SA=SA FCOP0004 MVC SAV13(4),4(13) SAVE IT FROM READS FCOP0005 L 2,0(0,1) FCOP0006 LTR 2,2 ARE THERE PARAMETERS FCOP0007 BZ READ FCOP0008 LH 3,0(0,2) CHECK LENGTH ALSO FCOP0009 LTR 3,3 FCOP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FLAGS DS X FLAGS MOF MY USERID FCOP0213 FAKENAME DC CL100'****' FCOP0214 ENDLINE DS F FCOP0215 READL DS 0F PARAMETER LIST FOR READS FCOP0216 LINE DS F LINE NUMBER FCOP0217 DC A(IN) LINE FCOP0218 FCBAD DS A FCB ADDRESS FCOP0219 DC A(CWRD) FCOP0220 CWRD DS XL4 FCOP0221 END FCOP0222 -FILE 192; 90 RECORDS: 0FSPC TITLE 'PROGRAM TO FIND HOW MUCH FILE SPACE IS IN USE' FSPC0001 FSPC START 0 FSPC0002 PRINT NOGEN FSPC0003 CUR EQU 40 FSPC0004 MAX EQU X'D4'-X'C8' FSPC0005 ENTER 12,SA=SA FSPC0006 LA 1,=C'*ACCOUNTING ' FSPC0007 L 15,=V(GETFD) FSPC0008 BALR 14,15 FSPC0009 ST 0,FDUB FSPC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' CUR: ' FSPC0081 TC DS CL5 FSPC0082 DC C' NOT INCLUDING SYSTEM FILES AND PRIVILEDGED USERS' FSPC0083 TOTE EQU * FSPC0084 TOTL DC Y(TOTE-TOT) FSPC0085 ERCMT DC C'UNABLE TO READ USER ID ' FSPC0086 ERCMTUID DC C' ' FSPC0087 ERCMTE EQU * FSPC0088 ERCMTL DC Y(ERCMTE-ERCMT) FSPC0089 END FSPC0090 -FILE 193; 80 RECORDS: 0BLOCKLIS CSECT LIST0001 SAVE (14,12),T,BLOCKLIS LIST0002 BALR 12,0 LIST0003 USING *,12 LIST0004 L 1,0(1) LIST0005 LH 2,0(1) LIST0006 LA 1,2(1) LIST0007 CHECK LTR 2,2 LIST0008 STH 2,LEN LIST0009 BC 7,PAR LIST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UCBDST DS F LIST0071 INFO DC F'2' LIST0072 MAXR DS F LIST0073 FLEN DC F'121' LIST0074 REG DS 31F LIST0075 HLEN DC H'121' LIST0076 MOD DC F'0' LIST0077 LINE DS F LIST0078 LEN DS H LIST0079 END LIST0080 -FILE 194; 85 RECORDS: 0SKIP START SKIP0001 SAVE (14,12),T,SKIP SKIP0002 BASR 12,0 SKIP0003 USING *,12 SKIP0004 LM 3,5,0(1) SKIP0005 ST 13,REG13 TUCK 13 AWAY SKIP0006 LA 13,SAVAR GET NEW WORK SPACE SKIP0007 L 3,0(3) GET NUMBER OF FILES SKIP0008 L 4,0(4) AND THE NUMBER OF RECORDS SKIP0009 MVC FDUB(4),0(5) GET INFO ABOUT DSRN SKIP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MODS DC F'128' SKIP0076 LINE DC F'0' SKIP0077 UNIT DS F SKIP0078 SAVAR DS 18F SKIP0079 REG13 DS F SKIP0080 DS 0F SKIP0081 FDUB DC C' ' SKIP0082 SUB DS F SKIP0083 GOTTEN DS F SKIP0084 END SKIP0085 -FILE 195; 96 RECORDS: 0 USING PROLOG,10 BAT00001 PROLOG STM 14,12,12(13) BAT00002 LR 10,15 BAT00003 LA 12,SAVE BAT00004 ST 13,4(0,12) BAT00005 ST 12,8(0,13) BAT00006 LR 13,12 BAT00007 B START BAT00008 EPILOG L 13,4(0,13) BAT00009 LM 14,12,12(13) BAT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG TABLE+C'A' BAT00087 DC C'ABCDEFGHI' BAT00088 ORG TABLE+C'J' BAT00089 DC C'JKLMNOPQR' BAT00090 ORG TABLE+C'S' BAT00091 DC C'STUVWXYZ' BAT00092 ORG TABLE+C'0' BAT00093 DC C'0123456789' BAT00094 ORG BAT00095 END BAT00096 -FILE 196; 290 RECORDS: 0DICT DICT0001 IAN AS AT BE BY DO EX GO HA HE HO ID IF IN IS IT MA ME MY NO OF OH ON ORDICT0002 IPI SO TO UN UP US WE YE DICT0003 IADD AID ALL AND ANY ARE BAD BAR BCD BIT BOX BUS BUT CAN CCW CPU CSW DAYDICT0004 IDIM DUE ECB END ESD ETC FAR FEW FIG FIT FIX FOR GAP GET GPR HAD HAS HIMDICT0005 IIBM INC IOS IPL ITS JOB KEY LAB LET LOG LOT LOW MAN MAP MAY MEN MET NETDICT0006 INOR NOT NOW ODD OFF OLD ONE OUR OUT OWN PER PIN PSW PUT RLD ROW RUN SAYDICT0007 ISIX SLT SUM SVC TAG TEN THE TIP TOP TWO TXT USE WAS WAY WHO WHY YES YETDICT0008 IABLE ADDS ALSO AREA BACK BANK BASE BEEN BEST BETA BITS BOOK BOTH BUMP BDICT0009 ICALL CARD CARE CASE CCWS CENT CODE COME COPY CORE COST DATA DATE DECK DDICT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IADDRESSABILITY ASYNCHRONOUSLY CAPITALIZATION CHARACTERISTIC CLASSIFICATDICT0281 ICOMMUNICATIONS CONFIGURATIONS CONSIDERATIONS CORRESPONDENCE EXPONENTIATDICT0282 IIDENTIFICATION IMPLEMENTATION INITIALIZATION INTERCONNECTED INTERPRETATDICT0283 IMALFUNCTIONING MULTIPLICATION NONSUBSCRIPTED RELOCATABILITY REPRESENTATDICT0284 IRESPONSIBILITY SIMULTANEOUSLY SPECIFICATIONS TELEPROCESSING TRANSFORMATDICT0285 ICHARACTERISTICS INTERCHANGEABLE MAINTAINABILITY REPRESENTATIONS SYNCHRODICT0286 ITRANSFORMATIONS TROUBLESHOOTING DICT0287 IMICROINSTRUCTION MULTIPROGRAMMING DICT0288 IINTERRELATIONSHIP DICT0289 ITELECOMMUNICATIONS DICT0290 -FILE 197; 2126 RECORDS: 0********************************************************************** SDA00001 * * SDA00002 * * SDA00003 * MTS DEVICE SUPPORT ROUTINES FOR IBM 2780'S * SDA00004 * * SDA00005 * * SDA00006 ********************************************************************** SDA00007 SPACE 3 SDA00008 MACRO SDA00009 PFXD &M,&N SDA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BLKNDLOC DS F SDA02117 BUF1 DS 64F SDA02118 CCSAVE DS 6F SDA02119 OUTPAGES DS F SDA02120 INPAGES DS F SDA02121 TEMP DS D SDA02122 SNSCCW DS (SNSCCWL/8)D SDA02123 RTNLST DS (RTNLSTL/4)F SDA02124 PSECTL EQU *-PSCT SDA02125 END SDA02126 -FILE 198; 68 RECORDS: 0ACCDCT DS AL1(ENDREC-ACCDCT-2) COUNT TO NEXT COUNT FORM0001 FLAGS DS XL3'0' FLAGS: 0-PRIVILEDGED, 2-IN USE, 1FORM0002 3-IGNORE TERMINAL MAXIMUM, 4-LIBRARY 2FORM0003 FILE PRIVILEGE, 5-NO CHANGE FORM0004 ACCUAN DS F'0' UNIVERSITY ACCOUNT NUMBER FORM0005 ACCPN DS CL4 PROJECT NUMBER FORM0006 ACCMDT DS H'0' MAXIMUM FILE (PAGES) FORM0007 ACCMFUB DS H'0' MAXIMUM BULK FILE (PAGES) FORM0008 ACCMTM DS F'0' MAXIMUM TERMINAL (SEC*1000) FORM0009 ACCM$ DS F'0' MAXIMUM CHARGE (DOLLARS*10000) FORM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *100000) FORM0059 ACCRPLT DS H PLOTTING RATE FORM0060 ACCPTR DS F FORM0061 DS AL1(ENDWRITE-ENDREC-1) COUNT TO NEXT COUNT FORM0062 ENDREC EQU * END OF FIXED PORTION OF RECORD FORM0063 ACCPWFLG DS C'P' PASSWORD FLAG FORM0064 ACCPWLEN DS X PASSWORD LENGTH FORM0065 ACCPW DS CL6 PASSWORD FORM0066 DS X'FF' FORM0067 ENDWRITE EQU * END OF PHYSICAL RECORD FORM0068 -FILE 199; 25 RECORDS: 0 DC H'0' BILLING CLASS 0 RATE0001 DC H'71' TERMINAL RATE RATE0002 DC H'178' VIRTUAL MEMORY RATE OVER CPU TIME RATE0003 DC H'178' VIRTUAL MEMORY RATE OVER WAIT TIME RATE0004 DC H'7333' CPU RATE RATE0005 DC H'54' LINES PRINTED RATE RATE0006 DC H'395' PAGES PRINTED RATE RATE0007 DC H'1556' CARDS PUNCHED RATE RATE0008 DC H'156' CARDS READ RATE RATE0009 DC H'6' FILE STORAGE RATE RATE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC H'231' RATE0016 DC H'8972' RATE0017 DC H'61' RATE0018 DC H'395' RATE0019 DC H'1679' RATE0020 DC H'174' RATE0021 DC H'20' RATE0022 DC H'0' RATE0023 DC H'0' RATE0024 RATELEN EQU 24 RATE0025 -FILE 200; 5 RECORDS: 0MAXFLAGS DS XL4 FLAGS: 3-IGNORE TERMINAL MAXIMUM PFMT0001 UAN DS 2CL4 UNIVERSITY ACCOUNT NUMBER PFMT0002 MAXMDT DS F MAXIMUM FILE (PAGES) PFMT0003 MAXMTM DS F MAXIMUM TERMINAL (MINUTES) PFMT0004 MAXM$ DS F MAXIMUM CHARGE (DOLLARS*10000) PFMT0005 -FILE 201; 18 RECORDS: 0SYM ù ½ACCDSPLAŠREADŒõREADFILEŒ‹COMPBLNKŒMVSIGNONDSPL0001 SYM ù Œ:NORECORDHÝ¥ˆqPRINTHu¥þa©F0a¸F2gDSPL0002 SYM ù øFDOT$DOTe{RECORDÄC{SAVEg÷SIGNONIDdDSPL0003 SYM ù  COUNTÿbH39ÿŠMOVEdBLANKÙg¥NORECMSG½DSPL0004 SYM ù ACCDSPLA÷ŒH¥þH“¥þh‚Ôh%¥h¿ÔhéÔDSPL0005 SYM híÔh@Ô DSPL0006 ESD Æ ACCDSPLA ¯SCARDS  ACCREAD  DSPL0007 ESD Æ þERROR  SERCOM  ACCPRINT DSPL0008 TXT ù ¡…} {&}A«Ê}A[“¥{¦Ê Ê&{¬K{[BÊB‰“0Bå ÍŒÄ{ÉŒ0{ù“}A«DSPL0009 TXT ù ù q…} ò&¥BÊÆ{]n ÆŒ¯{>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT ¿ ù “\B>“0BæÄKBBÊ\{“0Bæ ¥©Ê\{“0Bë ÷DSPL0011 TXT y  {  .$. DSPL0012 TXT  ù KB{[ *** IS NOT IN THE ACCOUNTING FILDSPL0013 TXT ‹  E DSPL0014 TXT  ù { ©÷{ ¸÷ADSPL0015 RLD ù Ý¡muyÜ^<&“ *DSPL0016 RLD ù -Ë %‚¿þé íº@DSPL0017 END DSPL0018 -FILE 202; 436 RECORDS: 0AIO TITLE 'MTS ACCOUNTING RECORD INPUT/OUTPUT PROGRAM--20 OCT 68' IO000001 *********************************************************************** IO000002 * * IO000003 * ON ENTRY TO ACCREAD AND ACCWRITE, GR1 POINTS TO A FOUR WORD * IO000004 * PARAMETER LIST * IO000005 * WORD1 AREA TO OR FROM WHICH THE DATA IS TO BE * IO000006 * TRANSMITTED. * IO000007 * WORD2 LENGTH OF THE DATA. * IO000008 * WORD3 MODIFIERS. * IO000009 * WORD4 SIGNON ID. * IO000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RDNR14 DS A IO000427 LEN DS H IO000428 AUXFLNAM DC CL16'$ACCOUNTING' IO000429 BADAUXFL DC C' *** FILE IS NOT AVAILABLE' IO000430 MISRECRD DC C' *** IS NOT IN ' IO000431 NOFILNAM DC C' *** IS NOT AN AUXILIARY FILE' IO000432 SPACE 5 IO000433 LTORG IO000434 SPACE 5 IO000435 END IO000436 -FILE 203; 84 RECORDS: 0ALST TITLE 'MTS ACCOUNTING LISTING PROGRAM--18 OCT 68' LIST0001 *********************************************************************** LIST0002 * * LIST0003 * ACCLIST * LIST0004 * * LIST0005 * LISTS THE MTS ACCOUNTING FILE. * LIST0006 * * LIST0007 *********************************************************************** LIST0008 SPACE 5 LIST0009 ACCLIST START LIST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> F2 DC F'2' LIST0075 RECORD DS CL256 LIST0076 SAVE DS 18F LIST0077 SIGNONID DC X'80000000' LIST0078 COUNT DS H LIST0079 H23 DC H'23' LIST0080 BLANKS DC CL10' ' LIST0081 NRRECMSG DC C'- ',X'2020202120',C' RECORDS IN FILE' LIST0082 SPACE 5 LIST0083 END LIST0084 -FILE 204; 450 RECORDS: 0APRT TITLE 'MTS ACCOUNTING RECORD PRINT PROGRAM--17 OCT 68' PRNT0001 *********************************************************************** PRNT0002 * * PRNT0003 * ACCPRINT * PRNT0004 * * PRNT0005 * GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY. * PRNT0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* PRNT0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * PRNT0008 * RECORD TO BE PRINTED. * PRNT0009 * WORD3 ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* PRNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** PRNT0441 * * PRNT0442 * DUMMY SECTION FOR ACCOUNTING RECORD * PRNT0443 * * PRNT0444 *********************************************************************** PRNT0445 SPACE 5 PRNT0446 RECORD DSECT PRNT0447 COPY ACCFORMAT PRNT0448 ORG RECORD+255 PRNT0449 END PRNT0450 -FILE 205; 1536 RECORDS: 0AMAT TITLE 'MTS ACCOUNTING MAINTENANCE PROGRAM--21 OCT 68' MNT00001 MACRO MNT00002 &NAME BINPAR &FIELD,&NEXT,&MULT,&LEN MNT00003 .********************************************************************** MNT00004 .* * MNT00005 .* FIELD A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE * MNT00006 .* VALUE OF THE POSITIONAL PARAMETER IS PLACED. * MNT00007 .* NEXT LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* MNT00008 .* MISSING. * MNT00009 .* MULT AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER * MNT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TUV',X'FF',10X'0',X'FFFFFFFF00FF',10X'0' MNT01527 BLKORD2 EQU * MNT01528 BLKORD3 EQU * MNT01529 BLKORD1 DC 193X'0',AL1(11,12,13,14,15,16,17,18),8X'0',AL1(19,20,21,1MNT01530 22,23,0,24,25,26),8X'0',AL1(27,28,29,30,31,32,33,34),6X'2MNT01531 0',AL1(1,2,3,4,5,6,7,8,9,10),6X'0' MNT01532 BLKORD4 DC 201X'0',AL1(4),7X'0',AL1(5,1,2,3,4,0,5,0,1),8X'0',AL1(2,1MNT01533 3,4,5),10X'0',AL1(5,5,5,5,0,5),10X'0' MNT01534 SPACE 5 MNT01535 END MNT01536 -FILE 206; 1 RECORDS: 0*MISSING FILE................. PMNT0001 ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ -FILE 207; 173 RECORDS: 0AERR TITLE 'MTS ACCOUNTING FILE RECORD ERROR DETECTION PROGRAM--22 1ERR00001 OCT 68' ERR00002 MACRO ERR00003 &NAME BNEI &A,&I ERR00004 &NAME CLI &A,&I BRANCH ON NOT EQUAL IMMEDIATE ERR00005 BNE PRINT ERR00006 MEND ERR00007 SPACE 5 ERR00008 MACRO ERR00009 &NAME TMBNZ &A,&M ERR00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * ERR00164 * DUMMY SECTION FOR ACCOUNTING RECORD * ERR00165 * * ERR00166 *********************************************************************** ERR00167 SPACE 5 ERR00168 RECORD DSECT ERR00169 COPY ACCFORMAT ERR00170 ORG RECORD+255 ERR00171 SPACE 5 ERR00172 END ERR00173 -FILE 208; 217 RECORDS: 0ASTR TITLE 'MTS ACCOUNTING RECORD STORAGE SPACE UPDATE AND LOCK OFF1STRP0001 PROGRAM--18 OCT 68' STRP0002 *********************************************************************** STRP0003 * * STRP0004 * ACCSTRUP * STRP0005 * * STRP0006 * UPDATES NUMBER OF FILES AND PAGES AND TURNS OFF THE LOCK FLAG* STRP0007 * IN MTS ACCOUNTING RECORDS. INPUT IS THE SIGNON ID OF THE * STRP0008 * RECORD TO BE UPDATED IN COLUMNS 1-4 OR FRACTION THEREOF. * STRP0009 * * STRP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * STRP0208 * ACCOUNTING RECORD STORAGE * STRP0209 * * STRP0210 *********************************************************************** STRP0211 SPACE 5 STRP0212 RECORD DS 0F STRP0213 COPY ACCFORMAT STRP0214 ORG RECORD+255 STRP0215 SPACE 5 STRP0216 END STRP0217 -FILE 209; 1 RECORDS: 0* ANOTHER MISSING FILE NITZ0001 ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ -FILE 210; 233 RECORDS: 0STAT TITLE 'ACCOUNTING STATUS FOR MTS USER--18 OCT 68' STAT0001 MACRO STAT0002 &NAME WRITE &OUTPUT,&LEN STAT0003 .********************************************************************** STAT0004 .* * STAT0005 .* OUTPUT THE OUTPUT LINE TO BE PRINTED. * STAT0006 .* LEN A HALF WORD CONTAINING THE LENGTH OF 'OUTPUT'. * STAT0007 .* * STAT0008 .********************************************************************** STAT0009 &NAME LA R1,=A(&OUTPUT,&LEN,0) STAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * STAT0224 * INPUT AREA FOR ACCOUNTING RECORD * STAT0225 * * STAT0226 *********************************************************************** STAT0227 SPACE 5 STAT0228 RECORD DS 0F STAT0229 COPY ACCFORMAT STAT0230 ORG RECORD+255 STAT0231 EJECT STAT0232 END STAT0233 -FILE 211; 1155 RECORDS: 0AMXM TITLE 'MTS USERS'' ACCOUNTING MAXIMUM MAINTENANCE PROGRAM--23 1MXMT0001 OCT 68' MXMT0002 MACRO MXMT0003 &NAME ACUM &MAX,&CUM,&DIV,&LEN MXMT0004 LCLA &RND MXMT0005 &NAME L&LEN R9,ACC&MAX MAXIMUM MXMT0006 C&LEN R9,ACC&CUM MXMT0007 BNL S&SYSNDX CUMULATIVE IS LESS THAN MAXIMUM MXMT0008 L&LEN R9,ACC&CUM CUMULATIVE MXMT0009 AIF ('&DIV' NE '').DIVIDE MXMT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 MXMT1146 KEYWDADR DC A(FILE) MXMT1147 DC A(CHARGE) MXMT1148 DC A(TERMINAL) MXMT1149 DC A(TERMHRS) MXMT1150 DC A(NOLIST) MXMT1151 DC A(NOCHANGE) MXMT1152 EJECT MXMT1153 LTORG MXMT1154 END MXMT1155 -FILE 212; 1 RECORDS: 0* AND ANOTHER ONE UPRN0001 ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ -FILE 213; 94 RECORDS: 0ADSP TITLE 'MTS ACCOUNTING RECORD DISPLAY PROGRAM--18 OCT 68' DSPL0001 *********************************************************************** DSPL0002 * * DSPL0003 * ACCDSPLA * DSPL0004 * * DSPL0005 * DISPLAYS MTS ACCOUNTING FILE RECORDS. INPUT IS THE SIGNON ID* DSPL0006 * OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR FRACTION * DSPL0007 * THEREOF. * DSPL0008 * * DSPL0009 *********************************************************************** DSPL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDOT$DOT DC C' .$.' DSPL0085 RECORD DS CL256 DSPL0086 SAVE DS 18F DSPL0087 SIGNONID DS F DSPL0088 COUNT DS H DSPL0089 H39 DC H'39' DSPL0090 MOVE MVC SIGNONID(0),RECORD DSPL0091 BLANK DC CL10' ' DSPL0092 NORECMSG DC C' *** IS NOT IN THE ACCOUNTING FILE' DSPL0093 END DSPL0094 -FILE 214; 935 RECORDS: 0APMT TITLE 'MTS PROJECT ACCOUNTING MAINTENANCE PROGRAM--23 OCT 68' PRJM0001 MACRO PRJM0002 &NAME BINPAR &FIELD,&NEXT,&MULT,&LEN PRJM0003 .********************************************************************** PRJM0004 .* * PRJM0005 .* FIELD A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE * PRJM0006 .* VALUE OF THE POSITIONAL PARAMETER IS PLACED. * PRJM0007 .* NEXT LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* PRJM0008 .* MISSING. * PRJM0009 .* MULT AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER * PRJM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG RECORD+255 PRJM0926 SPACE 5 PRJM0927 DS 0F PRJM0928 MASK DS CL255 PRJM0929 MDISP EQU MASK-RECORD PRJM0930 SPACE 5 PRJM0931 DS 0F PRJM0932 DEFAULT DC F'0',CL8' ',3F'0' PRJM0933 EJECT PRJM0934 END PRJM0935 -FILE 215; 195 RECORDS: 0AINT TITLE 'MTS ACCOUNTING FILE INITIALIZATION PROGRAM--18 OCT 68' INIT0001 *********************************************************************** INIT0002 * * INIT0003 * ACCINITL * INIT0004 * * INIT0005 * RC=0 NORMAL RETURN. * INIT0006 * 4 ERROR IN OBTAINING ACCOUNTING FILE, SOME DISK, OR * INIT0007 * CLOSING ACCOUNTING FILE. * INIT0008 * * INIT0009 * ACCFILUP * INIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * INIT0186 * ACCOUNTING RECORD STORAGE * INIT0187 * * INIT0188 *********************************************************************** INIT0189 SPACE 5 INIT0190 RECORD DS 0F INIT0191 COPY ACCFORMAT INIT0192 ORG RECORD+255 INIT0193 SPACE 5 INIT0194 END INIT0195 -FILE 216; 178 RECORDS: 0AUPR TITLE 'MTS USERS'' ACCOUNTING RECORD PRINT PROGRAM--20 OCT 68' PRNT0001 *********************************************************************** PRNT0002 * * PRNT0003 * ACUSPRNT * PRNT0004 * * PRNT0005 * GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY. * PRNT0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* PRNT0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * PRNT0008 * RECORD TO BE PRINTED. * PRNT0009 * * PRNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** PRNT0169 * * PRNT0170 * DUMMY SECTION FOR ACCOUNTING RECORD * PRNT0171 * * PRNT0172 *********************************************************************** PRNT0173 SPACE 5 PRNT0174 RECORD DSECT PRNT0175 COPY ACCFORMAT PRNT0176 SPACE 5 PRNT0177 END PRNT0178 -FILE 217; 136 RECORDS: 0 /* PROGRAM TO DO SOMETHING FOR IEBUPDAT INPUT */ IEB00001 IEB00002 UPDATE: PROCEDURE OPTIONS(MAIN); IEB00003 DCL IEB00004 INTAPE INPUT FILE RECORD ENV(LEAVE), IEB00005 OUTTAPE OUTPUT FILE RECORD ENV(LEAVE), IEB00006 DATA FILE INPUT RECORD, IEB00007 (BUFFER,WHAT) CHAR(80) INIT ((80)' '), IEB00008 (FRSTNR,LASTNR,MEMBR,TEST) CHAR(8), IEB00009 ID CHAR(8) DEFINED BUFFER POS(73), IEB00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COUNT = COUNT + INCR; IEB00127 NEW_ID = COUNT; IEB00128 SUBSTR(X,73,8) = NEW_ID; IEB00129 END; IEB00130 SCREW = X; IEB00131 WRITE FILE(OUTTAPE) FROM (SCREW); IEB00132 RETURN; IEB00133 END PUTOUT; IEB00134 IEB00135 END UPDATE; IEB00136 -FILE 218; 201 RECORDS: 0TIME CSECT TIME0001 ********************************************************************** TIME0002 * * TIME0003 * CALLING SEQUENCE FROM FORTRAN * TIME0004 * CALL TIME(KEY, PRINT, RESULT) * TIME0005 * ALL PARAMETERS ARE FULL WORD INTEGERS * TIME0006 * IF KEY IS 0 THE CPU, ELAPSED, SUP., & PROB. TIMES * TIME0007 * ARE INITIALIZED TO THE CURRENT "TIME". * TIME0008 * 1 THE CPU TIME SINCE INIT. IS RETURNED * TIME0009 * 2 THE ELAPSED TIME SINCE INIT. IS RETURNED * TIME0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COUNTCP DC H'24' TIME0192 COUNTEL DC H'28' TIME0193 COUNTB DC H'9' TIME0194 COUNTD DC H'13' TIME0195 MONTHS DS F TIME0196 DC C'JAN FEB MAR APR MAY JUN ' TIME0197 DC C'JUL AUG SEP OCT NOV DEC ' TIME0198 MOD DC F'0' TIME0199 LINENO DS F TIME0200 END TIME0201 -FILE 219; 591 RECORDS: 0TPUC TITLE 'MAGNETIC TAPE UNIT CHECK' TUC00001 TAPEUC START 0 TUC00002 ENTRY TPRDUC TUC00003 ENTRY TPWRUC TUC00004 * REGISTERS TUC00005 SPACE 1 TUC00006 BASE1 EQU 7 TUC00007 BASE2 EQU 6 TUC00008 DREG1 EQU 13 TUC00009 DREG2 EQU 8 TUC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RTNADR EQU DSECT2 TUC00582 REREAD EQU RTNADR+4 TUC00583 CLEANS EQU REREAD+1 TUC00584 CNTCHR EQU CLEANS+1 TUC00585 SNSCC EQU CNTCHR+1 TUC00586 SENSE EQU SNSCC+1 TUC00587 FLAG EQU SENSE+6 TUC00588 STOPCD EQU FLAG+1 TUC00589 DEVID EQU SENSE+8 TUC00590 END TUC00591 -FILE 220; 52 RECORDS: 0BCDE TITLE 'BCD TO EBCDIC CONVERSION' BCEB0001 MACRO BCEB0002 &NAME GEN &START,&END MACRO TO GENERATE CONSTANTS BETWEEN BCEB0003 LCLA &COUNT &START AND &END BCEB0004 &COUNT SETA &START BCEB0005 AIF ('&NAME' EQ '').REPEAT BCEB0006 &NAME EQU * BCEB0007 .REPEAT DC AL1(&COUNT) BCEB0008 &COUNT SETA &COUNT+1 BCEB0009 AIF (&COUNT LE &END).REPEAT BCEB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TABLE GEN 0,75 BCEB0043 DC C')' BCEB0044 GEN 77,79 BCEB0045 DC C'+' BCEB0046 GEN 81,107 BCEB0047 DC C'(' BCEB0048 GEN 109,122 BCEB0049 DC C'=''' BCEB0050 GEN 125,255 BCEB0051 END BEGIN BCEB0052 -FILE 221; 306 RECORDS: 0APPR TITLE 'MTS PROJECT ACCOUNTING RECORD PRINT PROGRAM--13 JUL 68' APPR0001 *********************************************************************** APPR0002 * * APPR0003 * ACCPRINT * APPR0004 * * APPR0005 * GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY. * APPR0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* APPR0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * APPR0008 * RECORD TO BE PRINTED. * APPR0009 * WORD3 ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* APPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** APPR0297 * * APPR0298 * DUMMY SECTION FOR ACCOUNTING RECORD * APPR0299 * * APPR0300 *********************************************************************** APPR0301 SPACE 5 APPR0302 RECORD DSECT APPR0303 COPY ACCPROJFMT APPR0304 ORG RECORD+255 APPR0305 END APPR0306 -FILE 222; 54 RECORDS: 0AXPR TITLE 'MTS ACCOUNTING RECORD HEXADECIMAL PRINT PROGRAM--16 JUN1AXPR0001 E 67' AXPR0002 *********************************************************************** AXPR0003 * * AXPR0004 * ACCPRINT * AXPR0005 * * AXPR0006 * GR1 POINTS TO A FOUR WORD PARAMETER LIST ON ENTRY. * AXPR0007 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID. * AXPR0008 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * AXPR0009 * RECORD TO BE PRINTED. * AXPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 AXPR0045 SAVE DS 18F AXPR0046 FMT DC C'''0SIGNON ID IS '',C4,'' ('',X,'')''/'' RECORD IS (HEX1AXPR0047 ) LENGTH='',X2/(S10,6(X,S2))*' AXPR0048 SPACE 5 AXPR0049 SIGNON DSECT AXPR0050 RECORD DSECT AXPR0051 LENGTH DSECT AXPR0052 SPACE 5 AXPR0053 END AXPR0054 -FILE 223; 78 RECORDS: 0APSW TITLE 'MTS PASSWORD EXTRACTION PROGRAM--2 FEB 68' APSW0001 *********************************************************************** APSW0002 * * APSW0003 * ACCPRINT * APSW0004 * * APSW0005 * GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY. * APSW0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID. * APSW0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * APSW0008 * RECORD FOR THE PASSWORD TO BE PRINTED. * APSW0009 * * APSW0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 APSW0069 SAVE DS 18F APSW0070 MVPSWRD MVC PASSWORD+18(0),RECORD+3 APSW0071 DC C'0123456789ABCDEF' APSW0072 HEXCONV EQU *-256 APSW0073 PASSWORD DC C' PASSWORD IS ( ' APSW0074 SPACE 5 APSW0075 RECORD DSECT APSW0076 SPACE 5 APSW0077 END APSW0078 -FILE 224; 97 RECORDS: 0APLS TITLE 'MTS PROJECT ACCOUNTING LISTING PROGRAM--15 JUL 68' APLS0001 *********************************************************************** APLS0002 * * APLS0003 * ACCLIST * APLS0004 * * APLS0005 * LISTS THE MTS PROJECT ACCOUNTING FILE. * APLS0006 * * APLS0007 *********************************************************************** APLS0008 SPACE 5 APLS0009 ACCLIST START APLS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SIGNONID DC X'80000000' APLS0088 COUNT DS H APLS0089 H24 DC H'24' APLS0090 H31 DC H'31' APLS0091 BLANKS DC CL10' ' APLS0092 FILENAME DC C'*ACCUSERMAINT ' APLS0093 NOFILMSG DC C' ERROR IN OBTAINING FILE' APLS0094 NRRECMSG DC C'- ',X'2020202120',C' RECORDS IN FILE' APLS0095 SPACE 5 APLS0096 END APLS0097 -FILE 225; 110 RECORDS: 0APDS TITLE 'MTS PROJECT ACCOUNTING RECORD DISPLAY PROGRAM--15 JUL 61APDS0001 8' APDS0002 *********************************************************************** APDS0003 * * APDS0004 * ACCDSPLA * APDS0005 * * APDS0006 * DISPLAYS MTS PROJECT ACCOUNTING FILE RECORDS. INPUT IS THE * APDS0007 * SIGNON ID OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR * APDS0008 * FRACTION THEREOF. * APDS0009 * * APDS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SIGNONID DS F APDS0101 COUNT DS H APDS0102 H24 DC H'24' APDS0103 H39 DC H'39' APDS0104 MOVE MVC SIGNONID(0),RECORD APDS0105 BLANK DC CL10' ' APDS0106 FILENAME DC C'*ACCUSERMAINT ' APDS0107 NOFILMSG DC C' ERROR IN OBTAINING FILE' APDS0108 NORECMSG DC C' *** IS NOT IN THE ACCOUNTING FILE' APDS0109 END APDS0110 -FILE 226; 763 RECORDS: 0CONF TITLE 'INITIALIZATION AND CONFIGURATION PROGRAM' CONF0001 SPACE 5 CONF0002 * PERFORMS ERROR CHECKING FOR 2167 AND SETS UP TABLES FOR SUPER CONF0003 * THE MAIN ERROR CHECKS ARE AS FOLLOWS: CONF0004 * CONF0005 * ALL SSU'S CONNECTED TO MY CPU ARE CONNECTED TO SAME THIN CONF0006 * CONF0007 * ALL SSU'S NOT CONNECTED TO MY CPU ARE NOT CONNECTED CONF0008 * TO ANYTHING MY SSU'S ARE CONNECTED TO. CONF0009 * CONF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * BYTE-ALIGNED STUFF. SSUCONF THRU CPUCONF ASSEMBLED FOR SIMPLEX CONF0754 FSAMAP DC X'0' BIT FOR EACH FSA CONF0755 SSUCONF DC X'88' BIT FOR EACH CPU & CCU CONF0756 CCUCONF DC X'08' BIT FOR EACH CCU IN 4-7 CONF0757 CPUCONF DC X'80' BIT FOR EACH CPU IN 0-3 CONF0758 BIT DC X'8040201008040201' CONF0759 FSAVALID DC X'80C0E0F0F8FCFEFF' CONF0760 NUMBITS DC X'00010102010202030102020302030304' CONF0761 INP DS CL50 INPUT AREA FOR TYPEWRITER CONF0762 END CONF0763 -FILE 227; 113 RECORDS: 0STRTPSW DC D'0' EXTERNAL START PSW PSA00001 DS XL6 PSA00002 EXICOD DS H EXTERNAL INTERUPT INTERRUPT CODE PSA00003 SVICOD DS H SVC INTERRUPT CODE PSA00004 PGICOD DS H PROGRAM INTERRUPT CODE PSA00005 MCICOD DS H MACHINE CHECK INTERRUPT CODE PSA00006 IOICOD DS H I/O INTERRUPT CODE PSA00007 EXOPSW DS D EXTERNAL INTERRUPT OLD PSW PSA00008 SVOPSW DS D SVC INTERRUPT OLD PSW PSA00009 PGOPSW DS D PROGRAM INTERRUPT OLD PSW PSA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'8000' SSU 6 PSA00104 DC X'8000' SSU 7 PSA00105 DC X'8000' SSU 8 PSA00106 * PSA00107 * END OF CST AND SST PSA00108 * PSA00109 TRACE DS 0F START OF TRACE TABLE ( IN IPLED CPU'S PSA PSA00110 * PSA00111 ORG PSA+4092 MUST PUT LAST JOB IN SECOND HALF PF PSA PSA00112 LASTJOB DC A(DUMJOB) ADDRESS OF LAST JOB TABLE DISPATCHED PSA00113 -FILE 228; 214 RECORDS: 0FPC TITLE 'FLOATING POINT CONVERTER --- 7090 TO 360' FPC00001 #FPCON START FPC00002 COPY APF FPC00003 EJECT FPC00004 ENTRY E7090 ENTRY FOR E-TYPE CONVERSION FPC00005 ENTRY D7090 ENTRY FOR D-TYPE CONVERSION FPC00006 ENTRY E7090P ENTRY FOR E-TYPE CONVERSION (6 BITS/BYTE) FPC00007 ENTRY D7090P ENTRY FOR D-TYPE CONVERSION (6 BITS/BYTE) FPC00008 SPACE 2 FPC00009 E7090 STM 14,12,12(13) FPC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SINSW EQU X'40' FPC00205 BCD EQU X'20' FPC00206 DS 0F FPC00207 HIGHEST DC X'10000000' FPC00208 MANSAVE DC F'0',F'0' SECOND WORD SHOULD NEVER CHANGE FPC00209 SAVAR DS 18A FPC00210 TESTFULL TM =X'03',0 FPC00211 TESTOV TM =X'80',0 FPC00212 MOVER MVC 1(0,2),MANSAVE FPC00213 END FPC00214 -FILE 229; 31416 RECORDS: 0ASM TITLE 'F ASSEMBLER MASTER ROOT SEGMENT--RELEASE VERSION' 00020020 *TITLE-ASMGASM- PHASE 'ASM'- MASTER ROOT SEGMENT 00060020 *FUNCTION- PERMANENT RESIDENT PHASE. 00080020 * SAVES CONTROL PROGRAM (O.S. OR INVOKER) REGS. 00100020 * BRANCHES TO ASMGMAC TO INITIATE MACRO GENERATION. 00120020 * RECEIVES CONTROL FROM 'MAC' AT END OF ASSEMBLY, AND RETURNS TO 00140020 * CONTROL PROGRAM. 00160020 * DEFINES DCB'S FOR ALL 8 DATASETS. 00180020 *ENTRY POINT- ASMGASM 00200020 *INPUT- N/A 00220020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG ACT1+CSGCTR 04020020 DC H'16' 04040020 ORG ACT1+CPRIME 04060020 DC A(PRIME) 04080020 PRIME EQU 307 04100020 LASH EQU 28 SIZE OF LITERAL HASH 04120020 HASH EQU 3*PRIME+LASH SIZE OF HASH TABLE 04140020 FASH EQU HASH/8*8+8 HASH ROUNDED TO D LENGTH 04160020 ESDSEG EQU 256 ESD RESIDENT SEGMENT POINTR LGTH 04180020 END ASMGRTA 04200020 -FILE 230; 1597 RECORDS: 0COMMENCE 10 DCBOUT 41 DEFCHAR 52 ENTRYOUT 161 FDIMEN 172 FINISH 553 INST 561 INSTSET 651 MESSAGE 1212 PRINTOUT 1256 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BALR 14,15 LINK TO GET ROUTINE MEXIT .E1 IHBERMAC 06 MEND MACRO &LABEL QCALL &Q,&L &LABEL L 15,ADLIST1 L 15,168+&Q.(0,15) CALL (15),&L MEND -FILE 231; 8 RECORDS: 0* COPIED BY NAME 'ASMGSET' 00020020 * THIS BLOCK OF CODING SETS THE GLOBAL SWITCHES 00040020 GBLB &DEBUG,&NOTBUG,&STAT,&NOTSTAT 00060020 &DEBUG SETB 0 SET 1 FOR DEBUG VERSION 00080020 &STAT SETB 0 SET 1 FOR STATISTICS VERSION 00100020 &NOTBUG SETB ( NOT &DEBUG) 00120020 &NOTSTAT SETB ( NOT &STAT) 00140020 * END OF COPIED CODE 00160020 -FILE 232; 1949 RECORDS: 0IS00 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS00 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09000020 SUB=NO,F8UPC=NO,MASK=04 09020020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09040020 SUB=NO,F8UPC=YES,MASK=00 09060020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09080020 SUB=NO,F8UPC=NO,MASK=00 09100020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,09120020 SUB=YES,F8UPC=YES,MASK=06 09140020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 09160020 END 09180020 -FILE 233; 3323 RECORDS: 0****** 00000000 MACRO 00000100 &NAME ERROR &MSG 00000200 LCLA &L 00000300 &NAME BAL 0,ERROR 00000400 &L SETA K'&MSG 00000500 DC AL2(&L+2),C' ',C&MSG 00000600 CNOP 2,4 00000700 MEND 00000800 ****** 00000900 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ECHO UNTRACE,SUBR,UNTRACE,1 00313200 ECHO TRACE,SUBR,TRACE,1 00313300 ECHO PACK,SUBR,PACK,1 00313400 ECHO CLEARBUFF,SUBR,CLEARBUF,0 00313500 ECHO MKATOM,SUBR,MKATOM,0 00313600 ECHO CCLASS,SUBR,CCLASS,2 00313700 DC A(*+16-NIL,NIL-NIL) MARK END OF LIST 00313800 ECHO SASSOC,SUBR,SASSOCC,3 00313900 EFWS EQU * 00314000 END MAIN 00314100 -FILE 234; 2193 RECORDS: 0BEGIN COMMENT PL360 COMPILER -- MTS VERSION JUNE 1968, MODIF SEPT 16; PL000002 EXTERNAL PROCEDURE SYSINIT(R14); NULL; PL000003 COMMENT OBTAINS FREE STORAGE AND OPENS DATA SETS; PL000004 EXTERNAL PROCEDURE SYSTERM(R14); NULL; PL000005 COMMENT RELEASES FREE STORAGE AND CLOSES DATA SETS; PL000006 PL000007 BYTE LISTFLAG=#FF; COMMENT USED TO CONTROL SOURCE CODE LISTING; PL000008 BYTE NOGOFLAG=#00; COMMENT USED TO INDICATE GO OR NOGO TO NEXT STEP;PL000009 BYTE EXITFLAG=#00; COMMENT USED TO INDICATE END OF ASSEMBLY; PL000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> R0 := 1; CSEGNO := R0; PROCBR := R0; PL002184 R9 := PROGBASE; R10 := DATABASE; R7 := STACKBASE - 16; PL002185 R0 := 0; R1 := DATAESDADR; DC := R0; PL002186 PL360NO(R1) := R0; SYMTYPE := R0; PL002187 R0 := ENDCHAIN; PREVSEG(R9) := R0; PREVSEG(R10) := R0; PL002188 R2 := 1; R3 := PROGREG; R5 := R9; OPENSEG; PL002189 R3 := R3 SHLL 12; PTAG := R3; PL002190 R1 := PROGESDADR; R0 := R1; R2 := @SD; R3 := @VTYPE; R4 := 1; PL002191 FINDESDENTRY; PROGESDEND := R0; PL002192 MVC (132,WBUFF,BLANK); R1 := LABELBASE; MVC (11,B1,ZERO); -FILE 235; 21881 RECORDS: 0 TITLE 'DEFINITIONS' CDF00001 R0 EQU 0 CDF00002 R1 EQU 1 CDF00003 R2 EQU 2 CDF00004 R3 EQU 3 CDF00005 R4 EQU 4 CDF00006 R5 EQU 5 CDF00007 R6 EQU 6 CDF00008 R7 EQU 7 CDF00009 R8 EQU 8 CDF00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UATEPTR DC F'0' PTR TO ACTIVE UATE FIOC0335 BUFLEN DC H'32' LENGTH OF BUFFER IN DOUBLE WORDS FIOC0336 LENGTH DC H'0' FIOC0337 LTORG FIOC0338 DS 0D FIOC0339 SAVE DC 16F'0' FIOC0340 DWBLANK DC CL8' ' FIOC0341 SAVEAREA DS 9D FIOC0342 BUFFER DS 32D FIOC0343 END FIOC0344 -FILE 236; 108 RECORDS: 0******************* * FOLLOWING ARE THE DECLARATIONS FOR THE INST PARAMETERS * THESE SHOULD NOT BE CHANGED ******************* GBLA &FTABC(255) GBLA &ARGA GBLA &PARMCOL GBLA &READ GBLA &PRINT GBLA &PUNCH >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .SET2 ANOP &VCHECK1 SETA 0 &VCHECK2 SETA 0 .VEND ANOP AIF ('&CHRMODE' EQ 'BCDIC').SET4 &VCHECK3 SETA 6 AGO .VEND1 .SET4 ANOP &VCHECK3 SETA 0 .VEND1 ANOP -FILE 237; 1312 RECORDS: 0BEGTRACE 1002 BER 1013 BHR 1019 BLR 1025 BNER 1031 BNHR 1037 BNLR 1043 BNOR 1049 BNPR 1055 BOR 1061 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MACRO &NAME XROUTS &NUM &NAME MVC XLAS&NUM+2(2),2(R14) XLAS&NUM LA R15,*-*(R12) CLC XUNDEF(&NUM),0(R15) BNER R14 B XERRUV0 MEND -FILE 238; 72 RECORDS: 0 TITLE 'MACRO LIBRARY GENERATOR' MCGN0001 * MCGN0002 * SCARDS - MACRO LIBRARY MCGN0003 * SPUNCH - MACRO DIRECTORY MCGN0004 * MCGN0005 LIBGEN CSECT MCGN0006 * MCGN0007 R0 EQU 0 MCGN0008 R1 EQU 1 MCGN0009 R2 EQU 2 MCGN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MCGN0063 ADW DS D MCGN0064 IMG DS CL80 MCGN0065 DC CL8'%' MCGN0066 LNO DS F MCGN0067 WA DS CL8 MCGN0068 OBF DS CL80 MCGN0069 SETLNO MVC OBF+9(0),0(R1) MCGN0070 SETMN MVC OBF(0),0(R3) MCGN0071 END MCGN0072 -FILE 239; 6757 RECORDS: 0ABEND 1002 MCGN0073 ATTACH 1055 MCGN0074 BLDL 1382 MCGN0075 BSP 1395 MCGN0076 BUILD 1405 MCGN0077 CALL 1454 MCGN0078 CHAP 1492 MCGN0079 CHECK 1516 MCGN0080 CLOSE 1528 MCGN0081 CNTRL 1688 MCGN0082 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .SVC SVC 7 ISSUE XCTL SVC MCGN6820 MEXIT MCGN6821 .E4 IHBERMAC 36,,® MCGN6822 MEXIT MCGN6823 .E1 IHBERMAC 95 MCGN6824 MEXIT MCGN6825 .E2 IHBERMAC 84 MCGN6826 MEXIT MCGN6827 .E3 IHBERMAC 75 MCGN6828 .END MEND MCGN6829 -FILE 240; 7839 RECORDS: 0 MACRO &SL PUTLINE &SL STM 13,2,SAVR# LR 2,15 LA 13,SAVREG# LA 1,BLPFX# L 15,=V(SETPFX) BALR 14,15 LR 15,2 L 14,ANSADR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MDLALA L R8,IOPSUB PIL07432 B IOPXX1 PIL07433 USING MDEL,R8 PIL07434 SPACE 1 PIL07435 * DELETE DATASET XXXXXX. PIL07436 * PIL07437 DLTDTS L R8,IOPSUB USING MASSIGN,R8 B MTYASNX NOT IMPLEM YET USING MDEL,R8 -FILE 241; 2324 RECORDS: 0 EJECT PIL07444 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PIL07445 * PIL07446 * 'FOR' PROCESSOR FOR PIL/L PIL07447 * E. ANDREW JOHNSON PIL07448 * PIL07449 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PIL07450 SPACE 2 PIL07451 PTINIT EQU 0 H EXPR TO INITIALIZE LOOP PIL07452 PTRBY EQU 2 H EXPR TO STEP VAR PIL07453 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SAVR# DS 3D SAVREG# DS 18F PARREG# DS 6F SAV57# DS 3F SAV10# DS F SAV14# DS F SAV15# DS F WORK DS D START OF WORK AREA PIL09712 EJECT PIL09713 END PIL09714 -FILE 242; 75 RECORDS: 0PLSP TITLE 'PL360 SUPPORT LIBRARY' PLLB0001 MACRO PLLB0002 &EP ENTER PLLB0003 ENTRY &EP PLLB0004 USING &EP,15 PLLB0005 &EP STM 12,11,SAVE PLLB0006 L 12,=A($PLCOMP) PLLB0007 USING $PLCOMP,12 PLLB0008 DROP 15 PLLB0009 MEND PLLB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PAGE ENTER PLLB0066 SPRINT '1' PLLB0067 EXIT PLLB0068 * PLLB0069 BIR MVC 0(0,6),BL80 PLLB0070 LEN# DS H PLLB0071 BL80 DC CL80' ' PLLB0072 SAVE DS 18A PLLB0073 EOF DC X'00' PLLB0074 END PLLB0075 -FILE 243; 2282 RECORDS: 0BEGIN COMMENT PL360 COMPILER -- MTS VERSION JUNE 1968, MODIF SEPT 16; PL000002 EXTERNAL PROCEDURE SYSINIT(R14); NULL; PL000003 COMMENT OBTAINS FREE STORAGE AND OPENS DATA SETS; PL000004 EXTERNAL PROCEDURE SYSTERM(R14); NULL; PL000005 COMMENT RELEASES FREE STORAGE AND CLOSES DATA SETS; PL000006 PL000007 BYTE LISTFLAG=#FF; COMMENT USED TO CONTROL SOURCE CODE LISTING; PL000008 BYTE NOGOFLAG=#00; COMMENT USED TO INDICATE GO OR NOGO TO NEXT STEP;PL000009 BYTE EXITFLAG=#00; COMMENT USED TO INDICATE END OF ASSEMBLY; PL000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CVD(R1,CONWORK); ED(4,WBUF(3),CONWORK(5)); PL002273 R1 := ERRCOUNT; IF R1 > ERRLIMIT THEN PL002274 MVC(37,WBUF(25),"- ERROR MESSAGE LISTING INCOMPLETE ***"); PL002275 PRINT; SET(NOGOFLAG); PL002276 END; PL002277 R0 := 0; IF ÂEXITFLAG THEN GOTO LOOP; PL002278 SYSTERM; COMMENT RELEASE SYSTEM RESOURCES; PL002279 R2 := MEM(R13+4); IF NOGOFLAG THEN R0 := 16 ELSE R0 := 0; PL002280 MEM(R2+16) := R0; COMMENT SET RETURN CODE; PL002281 END. PL002282 -FILE 244; 19644 RECORDS: 0C SYSTEM/360 SCIENTIFIC SUBROUTINE PACKAGE, VERSION 2, LEVEL 0 001 C MFGR 001 C ..................................................................MFGR 002 C MFGR 003 C SUBROUTINE MFGR MFGR 004 C MFGR 005 C PURPOSE MFGR 006 C FOR A GIVEN M BY N MATRIX THE FOLLOWING CALCULATIONS MFGR 007 C ARE PERFORMED MFGR 008 C %1< DETERMINE RANK AND LINEARLY INDEPENDENT ROWS AND MFGR 009 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 9 SUM#SUM&AMN DTEUL093 IF%ABS%SNGL%AMN<<-EPS*ABS%SNGL%SUM<<<10,10,3 DTEUL094 C DTEUL095 C TEST END OF PROCEDURE DTEUL096 C DTEUL097 10 J#J&1 DTEUL098 IF%J-5<4,11,11 DTEUL099 11 IER#0 DTEUL100 12 RETURN DTEUL101 END DTEUL102 -FILE 245; 1061 RECORDS: 0FTN TITLE 'FORTRAN G MODULE IEYFORT VERSION 13 -- *FTN' IEYFORT CSECT 00020000 *********************************************************************** 00040000 * 00080000 *FUNCTION/OPERATION. 00100000 * THIS MODULE CONTROLS THE OPERATION OF THE FORTRAN IV(G) COMPILER. 00120000 * IT INITIALLY RECEIVES CONTROL FROM THE INVOKING PROGRAM, PERFORMS 00140000 * APPROPRIATE INITIALIZING FUNCTIONS, THEN TRANSFERS CONTROL TO THE 00160000 * FIRST PHASE (IEYPAR). CONTAINED WITHIN THIS MODULE ARE ALL THE 00180000 * INPUT/OUTPUT ROUTINES USED BY THE COMPILER, THE DYNAMIC WORK- 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDCARD DSECT DS CL1 X'02' ENDHDR DS CL3 C'END' DS CL1 BLANK ENDENTRY DS CL3 ENTRY POINT ADDRESS (OPTIONAL) ENDBLANK DS CL6 BLANK ENDESDID DS CL2 ESDID IF ENTRY POINT (OPTIONAL) DS CL12 BLANK ENDLEN DS CL4 CSECT LENGTH END IEYFORT 20220000 -FILE 246; 6018 RECORDS: 0$COM 'UNIVERSITY OF MICHIGAN SCORS/360 FOR THE SC-4020' $RUN *NEWFORT; 0=*DUMMY* PAR=LIST,DECK SUBROUTINE ANDV(A,B,C) 00000010 C ANDV PERFORMS THE LOGICAL PRODUCT C=A*B 00000020 C=AND(A,B) 00000030 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UNIT DC F'9' UNIT NUMBER SAVER DS 18F SAVE AREA COUNT DS H BYTE COUNT * END -FILE 247; 1233 RECORDS: 0JOH3 TITLE 'GPSS/360 OS/MTS INTERFACE ROUTINES J. HENRIKSEN' GPSS0001 GPSSPKG CSECT GPSS0002 ENTRY OPENDUMY,CLOSDUMY,FRPLDUMY GPSS0003 ENTRY CLOSTAPE,CLOSFILE GPSS0004 ENTRY XXSCARDS,XXSPRINT,XXSPUNCH GPSS0005 ENTRY PSREAD,PSWRITE,TPREAD,TPWRITE GPSS0006 USING GPSSPKG,10,11,12 GPSS0007 STM 14,12,12(13) GPSS0008 LM 10,12,BASADR1-GPSSPKG(15) USE 15 AS BASE REGISTER GPSS0009 LA 14,MSTRSAVE GPSS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(MASSAGE) GPSS1224 DC V(MLMP) GPSS1225 DS 5F EXTRA SPACE IF EVER NEEDED GPSS1226 PSWCOM DC C'0PSW...XXXXXXXX XXXXXXXX' GPSS1227 ABENDCOM DC C'-**** "ABEND" TERMINATION REQUESTED AT LOCATION XXXXXXXGPSS1228 ' GPSS1229 COMPCODE DC C'0COMPLETION CODE XXX' GPSS1230 ERR# DC C'0ERROR NUMBER XXX' GPSS1231 LTORG GPSS1232 END GPSSPKG GPSS1233 -FILE 248; 274 RECORDS: 0KTOE TITLE 'K.T.O.E. KEEP TRACK OF ERRORS' XTRA0001 * XTRA0002 * EACH OF THE 5 ENTRY POINTS IS REACHED BY PICKING THE XTRA0003 * E.P. ADDRESS OUT OF THE EXTENDED SAVE AREA AND USING XTRA0004 * A FREE REGISTER TO BALR. THE NECESSARY CODE IS XTRA0005 * "REP'ED" IN. HENCE, THE CALLING AND RETURN SEQUENCES XTRA0006 * ARE SCREWY. UPON NEXT ASSEMBLY, THE DCBERR DCB XTRA0007 * SHOULD BE INCLUDED IN DAG01 AND PASSED ALONG IN THE XTRA0008 * IOSECT. THEN ALL THAT WILL BE NECESSARY IS TO INSERT XTRA0009 * IN THE APPROPRIATE PLACES, "PUT" MACROS THAT WRITE OUT XTRA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GIVEBACK DS F XTRA0265 OVERLAY DS F XTRA0266 ABENDLOC DS F XTRA0267 HEADRADR DS F XTRA0268 ABND1LC DS F XTRA0269 ADCBERR DS F XTRA0270 HELPBLOK DS F XTRA0271 UPBLKTM DS F XTRA0272 END XTRA0273 $LIS EXTRAS XTRA0274 -FILE 249; 531 RECORDS: 0EPRC TITLE 'GPSS ERROR PROCESSING ROUTINES' ERRP0001 * ERRP0002 * HERE THEY ARE: ERRP0003 * ROUTINES WHICH HANDLE ATTENTION AND PROGRAM INTERRUPTS ERRP0004 * AND "ABEND" TERMINATIONS WITH THE GREATEST OF EASE ERRP0005 * ERRP0006 ERRPROC CSECT ERRP0007 USING ERRPROC,11,12 ERRP0008 USING EDSECT,10 DSECT ADDRESS PASSED BY GPSSPKG ERRP0009 LM 11,13,BASADR-ERRPROC(15) USE GR15 A LA BASE REGISTER ERRP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IINITADR DS 3F SAME FOR PGM INT EXIT ERRP0522 SAVERADR DS F ADDRESS OF WHERE GRS SAVED BY GPSSPK ERRP0523 OVERLAY DS F ERRP0524 PROMPTSW DS X ERRP0525 ENTCODE DS X ERRP0526 PUNTIND DS X ERRP0527 REPLYSW DS X ERRP0528 AMASSAGE DS F ERRP0529 VMLMP DS F ERRP0530 END ERRP0531 -FILE 250; 581 RECORDS: 0DAG1 TITLE 'GPSS/360/MTS VERSION I 4/1/68' DG010001 * DG010002 * THIS IS THE CONTROL SECTION OF GPSS/360 ---- IT PERFORMS THE DG010003 * FOLLOWING FUNCTION ---- 1. SAVES REGISTERS USED BY OS/360 DG010004 * 2. ISSUES A GETMAIN FOR -CONTROL- SAVEAREA DG010005 * 3. ISSUES A GETMAIN FOR I/O PASS AREA INFO. DG010006 * 4. CHECKS FOR UPDATE -OPTION- DG010007 * 5. DETERMINES GPSS/360 ENTITY QUANTITIES DG010008 * 6. REALLOCATES IF REQUESTED DG010009 * DG010010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CLSAVE DC A(CLRDSAVE) CLOSE READ - SAVE TAPE DG010572 * DG010573 WAJBTAPE DS F WORK AREA FOR ALL JOBTAPES DG010574 SAVEAREA DSECT DG010575 GENSAVE DS 18F DG010576 GRABSOME DS F DG010577 GIVEBACK DS F DG010578 OVERLAY DS F DG010579 ABENDLOC DS F DG010580 END DAG01 DG010581 -FILE 251; 426 RECORDS: 0DG1A TITLE 'GPSS 360 MTS VERSION I 4/1/68' DG1A0001 * DG1A0002 * THIS LOAD MODULE DTERMINES WHAT ENTITY QUANTITIES ARE REQUESTED DG1A0003 * AND IF REALLOCATION IS REQUIRED ---- DG1A0004 * DG1A0005 * IT WILL SET UP THE QUANTITY TABLE AND PLACE THE TABLE ADDRESS DG1A0006 * IN WORD5 OF THE PASS AREA DG1A0007 * DG1A0008 * IF ILLEGAL OR NO -PARM- ARGUMENT SPECIFIED, 64K VERSIO/N OF DG1A0009 * GPSS/360 WILL BE PROVIDED DG1A0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG1A0417 GIVEBACK DS F DG1A0418 OVERLAY DS F DG1A0419 ABENDLOC DS F DG1A0420 HEADRADR DS F DG1A0421 END DG1A0422 $DES DAG01 DG1A0423 OK DG1A0424 $COP DAG01A *TAPE* DG1A0425 $COP *SOURCE* *TAPE*@CC DG1A0426 -FILE 252; 2918 RECORDS: 0DAG2 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG020001 DAG02 CSECT DG020002 SAVER MYPARS=20,USGR=5,CSECT=DAG02 DG020003 LR 4,2 SAVE ADDRESS OF PASS AREA DG020004 LR 9,6 JOBIND DG020005 N 6,MASK JOBIND+3 DG020006 LA 7,194 B CHARACTER DG020007 CLR 7,6 DETERMINE GET SIZE DG020008 BE GETB DG020009 BH GETA DG020010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG022909 GIVEBACK DS F DG022910 OVERLAY DS F DG022911 ABENDLOC DS F DG022912 HEADRADR DS F DG022913 END DG022914 $DES DAG01 DG022915 OK DG022916 $COP DAG01A *TAPE* DG022917 $COP *SOURCE* *TAPE*@CC DG022918 -FILE 253; 4546 RECORDS: 0DAG3 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG030001 DAG03 CSECT DG030002 SAVER MYPARS=20,USGR=1,CSECT=DAG03 DG030003 LA 11,DAG03+4090 DG030004 USING DAG03+4090,11 DG030005 LA 14,DAG03+8180 DG030006 USING DAG03+8180,14 DG030007 LA 12,DAG03+12270 DG030008 USING DAG03+12270,12 DG030009 USING FINK,2 DG030010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG034537 GIVEBACK DS F DG034538 OVERLAY DS F DG034539 ABENDLOC DS F DG034540 HEADRADR DS F DG034541 END DG034542 $DES DAG01 DG034543 OK DG034544 $COP DAG01A *TAPE* DG034545 $COP *SOURCE* *TAPE*@CC DG034546 -FILE 254; 1075 RECORDS: 0DAG4 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG040001 DAG04 CSECT DG040002 SAVER MYPARS=20,USGR=11,CSECT=DAG04 DG040003 USING DAG04+4096,2 DG040004 USING NUM1,3 GR3 IS BASE FOR BLOCKS DG040005 USING DCBINP,1 GR1 IS BASE FOR IOSECT DG040006 USING QUDSECT,4 GR4 IS BASE FOR ENTITY QUANTITY TABLE DG040007 BEGIN LTR 3,3 TEST FOR ALTERNATE ENTRY DG040008 BZ BEGIN1 NO - INITIALIZE DG040009 B DAG04A ALTERNATE DG040010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG041066 GIVEBACK DS F DG041067 OVERLAY DS F DG041068 ABENDLOC DS F DG041069 HEADRADR DS F DG041070 END DG041071 $DES DAG01 DG041072 OK DG041073 $COP DAG01A *TAPE* DG041074 $COP *SOURCE* *TAPE*@CC DG041075 -FILE 255; 9117 RECORDS: 0DG4B TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG4B0001 DAG04B CSECT DG4B0002 SAVER MYPARS=20,USGR=11,CSECT=DAG04B DG4B0003 USING DAG04B+4096,2 DG4B0004 USING DCBINP,1 DG4B0005 USING QUDSECT,4 DG4B0006 USING NUM1,3 DG4B0007 BEGIN L 2,BASADR DG4B0008 * THIS ROUTINE TESTS FOR BLOCK REDEFINITION DG4B0009 * GR4 = ADDRESS OF BLOCK WORDS DG4B0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG4B9108 GIVEBACK DS F DG4B9109 OVERLAY DS F DG4B9110 ABENDLOC DS F DG4B9111 HEADRADR DS F DG4B9112 END DG4B9113 $DES DAG01 DG4B9114 OK DG4B9115 $COP DAG01A *TAPE* DG4B9116 $COP *SOURCE* *TAPE*@CC DG4B9117 -FILE 256; 7081 RECORDS: 0DAG5 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG050001 DAG05 CSECT DG050002 SAVER MYPARS=20,USGR=11,CSECT=DAG05 DG050003 USING DAG05+4096,2,14 DG050004 BEGIN L 2,BASADR LOAD CONTINUATION REGISTERS DG050005 L 14,BASADR1 DG050006 USING DCBINP,1 GR1 IS BASE FOR IOSECT DG050007 USING NUM1,3 REG 3 IS BASE FOR WORDS DG050008 USING B1,4 REG 4 IS BASE FOR BLOCK WORDS DG050009 CLI PATCH15,X'02' DAG05A SWITCH ON DG050010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG057072 GIVEBACK DS F DG057073 OVERLAY DS F DG057074 ABENDLOC DS F DG057075 HEADRADR DS F DG057076 END DG057077 $DES DAG01 DG057078 OK DG057079 $COP DAG01A *TAPE* DG057080 $COP *SOURCE* *TAPE*@CC DG057081 -FILE 257; 5033 RECORDS: 0DAG6 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG060001 DAG06 CSECT DG060002 SAVER MYPARS=20,USGR=11,CSECT=DAG06 DG060003 USING NUM1,3 REG 3 IS BASE FOR WORDS DG060004 USING DCBINP,1 DG060005 L 5,PROGMASK DG060006 SPM 5 DG060007 BAL 5,OPENSYM OPEN SYMBOL TAPE DG060008 L 8,CLOCK COMPUTE DG060009 S 8,BCLOK RELATIVE CLOCK DG060010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG065024 GIVEBACK DS F DG065025 OVERLAY DS F DG065026 ABENDLOC DS F DG065027 HEADRADR DS F DG065028 END DG065029 $DES DAG01 DG065030 OK DG065031 $COP DAG01A *TAPE* DG065032 $COP *SOURCE* *TAPE*@CC DG065033 -FILE 258; 5178 RECORDS: 0DAG04C CSECT DG4C0001 SAVE (14,12) DG4C0002 BALR 11,0 GR11 IS BASE DG4C0003 USING BEGIN,11,2 DG4C0004 USING DCBINP,1 DG4C0005 USING QUDSECT,4 DG4C0006 USING NUM1,3 DG4C0007 BEGIN L 2,BASADR DG4C0008 GETMAIN R,LV=72 GET 18 WORDS FOR NEW SAVE AREA DG4C0009 ST 13,4(1) DG4C0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DCBRDSAV DS F READ/SAVE DCB DG4C5169 EODRDSAV DS F END OF DATA DG4C5170 OPSAVEI DS F OPEN READ/SAVE INPUT DG4C5171 OPSAVEO DS F OPEN READ/SAVE OUTPUT DG4C5172 CLSAVE DS F CLOSE READ/SAVE TAPE DG4C5173 * DG4C5174 WAJBTAPE DS F WORK AREA FOR ALL JOBTAPES DG4C5175 * DG4C5176 END DAG04C DG4C5177 /* DG4C5178 -FILE 259; 2601 RECORDS: 0DAG07 CSECT DG070001 TITLE 'GPSS/360 - OUTPUT PHASE' DG070002 BALR 14,0 DG070003 USING *,14 DG070004 LA 11,DAG07+4090 DG070005 USING DAG07+4090,11 DG070006 USING DCBINP,1 DG070007 USING NUM1,3 DG070008 LA 12,DAG07+8180 DG070009 USING DAG07+8180,12 DG070010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DG072592 CLLJBT3 DS F CLOSE JBTAP3 WITH LEAVE ADDRESS DG072593 DCBRDSAV DS F DG072594 EODRDSAV DS F DG072595 OPSAVEI DS F DG072596 OPSAVEO DS F DG072597 CLSAVE DS F DG072598 WAJBTAPE DS F WORK AREA FOR ALL JOBTAPES DG072599 END DAG07 DG072600 /* DG072601 -FILE 260; 9998 RECORDS: 0GSTO TITLE 'GSTOR' STORE GRAPHIC DATA GLIB0001 IFFPAAST CSECT GSTOR GLIB0002 *STATUS. CHANGE LEVEL 0 GLIB0003 * GLIB0054 *FUNCTION/OPERATION. GSTOREG EQUALS BYTES-CAN'T STORE GLIB0055 SR WRKREG,TEMREG NUMBER OF BYTES-CAN STORE GLIB0056 C WRKREG,ZERO GLIB0057 BNH GSTOR4 NO STORAGE AVAILABLE GLIB0058 SR CNTREG,WRKREG BYTES REMAINING GLIB0059 BAL LINREG,GSTOR6 MOVE GRAPHIC DATA GLIB0060 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COM15L DC AL2(COM15L-COM15) GLIB9989 COM23 DC C' ***** GDOA OVERFLOW, TOO MANY POINTS ' GLIB9990 COM23L DC AL2(COM23L-COM23) GLIB9991 COM25 DC C' ***** GDOA OVERFLOW, GRID TOO FINE ' GLIB9992 COM25L DC AL2(COM25L-COM25) GLIB9993 LTORG GLIB9994 EJECT GLIB9995 WKAREA DS 100F WORK AREA FOR POR IN GRAPHLIB GLIB9996 GDOA DS 8192F GLIB9997 END GLIB9998 -FILE 261; 571 RECORDS: 0DRAW TITLE '2250 DRAWING ROUTINE' DRAW0001 START 0 DRAW0002 ENTRY DRAW DRAW0003 EXTRN GETFD DRAW0004 EXTRN SCARDS DRAW0005 EXTRN SPUNCH DRAW0006 USING *,12 DRAW0007 USING *+4095,11 DRAW0008 DRAW STM 14,12,12(13) DRAW0009 LR 12,15 DRAW0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'4000' DRAW0562 DC H'4092' DRAW0563 DC AL2(GECPB) DRAW0564 DC 296C'XXXXXXXXXXXXX' DRAW0565 DS 0H DRAW0566 DC AL2(GTRU) DRAW0567 STLOC2 DC H'0' DRAW0568 DISP1L EQU *-DISP1 DRAW0569 DISP2L EQU *-DISP2 DRAW0570 END DRAW0571 -FILE 262; 637 RECORDS: 0TVCT TITLE 'TRANSFER VECTOR FOR TASKS ROUTINES' PTRT0001 CSECT PTRT0002 ENTRY TVECT PTRT0003 TVECT DC V(ERROR) PTRT0004 DC V(DEVICES) PTRT0005 DC V(JOBTABLE) PTRT0006 END PTRT0007 JOB TITLE 'SUBROUTINE TO DISPLAY JOB TABLE INFORMATION' PTRT0008 JBTBL CSECT PTRT0009 ENTRY JOBTABLE PTRT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'2 SPURIOUS DE RECEIVED 6 UNIT CHECK' PTRT0628 DC X'15' PTRT0629 DC C'3 PROCEED 7 UNIT EXCEPTION' PTRT0630 DC A(GECPB) PTRT0631 DC X'15' PTRT0632 DC X'00' PTRT0633 DLINEL EQU *-DLINE PTRT0634 TBL DC C'0123456789ABCDEF' PTRT0635 TRTBL EQU TBL-240 PTRT0636 END PTRT0637 -FILE 263; 761 RECORDS: 0TSK TITLE 'ROUTINE TO DISPLAY TASK STATUS ON 2250' PTSK0001 MACRO PTSK0002 &NAME IOREQ &CCW PTSK0003 &NAME L 0,DEVICE PTSK0004 LA 1,&CCW PTSK0005 LA 2,RTNL PTSK0006 SVC STIO PTSK0007 SVC WAIT PTSK0008 MEND PTSK0009 PTASKS CSECT PTSK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL2(GECFB) PTSK0752 INPUT DC 37C' ' INPUT LINE PTSK0753 INITLEN EQU *-GDOA PTSK0754 DC AL2(GSRT) PTSK0755 DC AL2(GTRU) PTSK0756 DC HL2'0' PTSK0757 ********************************************************************** PTSK0758 DS 800F REMAINDER OF GDOA PTSK0759 GDOALEN EQU *-GDOA PTSK0760 END PTSK0761 -FILE 264; 1358 RECORDS: 0 MACRO 25ED0001 &LABEL IOREQ &CCW 25ED0002 &LABEL L 0,DEVICE 25ED0003 LA 1,&CCW 25ED0004 LA 2,RTNL 25ED0005 SVC STIO 25ED0006 SVC WAIT 25ED0007 MEND 25ED0008 MACRO 25ED0009 &LABEL IOREQ2 &CCW 25ED0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOCCURI DC AL2(ILN-DISP) 25ED1349 LOCCURSC DC AL2(SCAN-DISP) 25ED1350 SETLOC DC AL2(STAB-DISP) 25ED1351 COMMLOC DC AL2(COMM-DISP) 25ED1352 SEQADD DC AL2(SEQASTK-DISP) 25ED1353 INDADD DC AL2(INDASTK-DISP) 25ED1354 ILNLOC EQU LOCCURI 25ED1355 ILN2LOC DC AL2(ILN2-DISP) 25ED1356 SCANLOC EQU LOCCURSC 25ED1357 END BEGIN 25ED1358 -FILE 265; 1214 RECORDS: 0PDSR TITLE '2250 DEVICE SUPPORT ROUTINES' 25RT0001 MACRO 25RT0002 &NAME IOREQ &CCW 25RT0003 &NAME L 0,DEVICE 25RT0004 LA 1,&CCW 25RT0005 LA 2,RTNL 25RT0006 SVC STIO 25RT0007 SVC WAIT 25RT0008 MEND 25RT0009 CSECT 25RT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PTABPT DC F'-8' PRIMARY TABLE POINTER (# OF PAGES) 25RT1205 SAVEREG1 DS F REG 1 POINTS TO CALLING PARAMETERS 25RT1206 REG2SAVE DS F REG 2 POINTS TO RELEASE PARS 25RT1207 CURLINE DS H CURRENT LINE NUMBER 25RT1208 LENGTH DS H TEMP STORAGE FOR LGTH OF LINEOUT & LINEIN 25RT1209 CURDISP DS H CURRENT DISPLACEMENT 25RT1210 STABPT DS H SECONDARY TABLE POINTER (# OF LINES) 25RT1211 LINENO DS H LINE # IN LINEIN 25RT1212 DISP DS H DISPLACEMENT IN LINE IN 25RT1213 END 25RT1214 -FILE 266; 177 RECORDS: 0PMIN TITLE 'CONVERSATIONAL INTERFACE WITH GRAPHIC PLOT ROUTINES' 25PL0001 PMAIN CSECT 25PL0002 EXTRN GPLOT2 25PL0003 EXTRN GPLOT3 25PL0004 STM 14,12,12(13) 25PL0005 LA 12,0(0,13) 25PL0006 BAL 13,84(0,15) 25PL0007 USING *,13 25PL0008 SAREA DS 18F 25PL0009 ST 12,SAREA+4 25PL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COM25 DC C' ***** START AGAIN FROM THE BEGINNING ' 25PL0168 COM25L DC AL2(COM25L-COM25) 25PL0169 COM26 DC C' ***** FILE ON LUNIT 1 HAS BEEN REWOUND ' 25PL0170 COM26L DC AL2(COM26L-COM26) 25PL0171 COM4 DC C' ENTER # X,Y PAIRS(INT) ' 25PL0172 COM4L DC AL2(COM4L-COM4) 25PL0173 FMT1 DC C'4(WE),I*' 25PL0174 FMT2 DC C'I*' 25PL0175 FMT4 DC C'C*' 25PL0176 END 25PL0177 -FILE 267; 581 RECORDS: 0 PLOT0001 CIPT TITLE 'CONVERSATIONAL INTERFACE WITH PLOT' PLOT0002 * PLOT0003 MACRO PLOT0004 &N EXCH &A,&B PLOT0005 L 1,&A PLOT0006 MVC &A,&B PLOT0007 ST 1,&B PLOT0008 MEND PLOT0009 * PLOT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL3(X) PLOT0572 X DC D'0' PLOT0573 CNVRT DC X'46000000' PLOT0574 FIVE DC F'5' PLOT0575 FNAM DS 80C PLOT0576 FM DC C'ENTER NAME OF FILE' PLOT0577 FML DC H'19' PLOT0578 FNL DC H'0' PLOT0579 PATCH DS 10F PLOT0580 END PLOT0581 -FILE 268; 196 RECORDS: 0LOW TITLE ' LOWCASE' TXT00001 LOWCASE START 0 TXT00002 USING *,15 TXT00003 L 15,0(0,1) TXT00004 L 15,0(0,15) TXT00005 NI 0(15),X'BF' TXT00006 BR 14 TXT00007 END TXT00008 CONV TITLE ' UPPER-LOWER CASE CONV' TXT00009 * TXT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BR 14 RETURN TO CALLER TXT00187 * TXT00188 TRINST TR 0(0,6),TRTABLE XLATE INSTRUCTION PROPER TXT00189 SET1 DC CL9'ABCDEFGHI' TXT00190 SET2 DC CL9'JKLMNOPQR' TXT00191 SET3 DC CL8'STUVWXYZ' TXT00192 DS 0D TXT00193 TRTABLE DC CL256' ' TXT00194 * TXT00195 END TXT00196 -FILE 269; 288 RECORDS: 0****TRANSNOBOL - A SNOBOL3-SNOBOL4 TRANSLATOR **** TRNS0001 * TRNS0002 * FIRST CONSTRUCT ALL PATTERNS TRNS0003 * TRNS0004 BLANK = SPAN(" ") ; MAYBL = BLANK | NULL TRNS0005 INFUNC = BREAK("'),") ("'" BREAK("'") "'" *INFUNC | NULL) TRNS0006 BACK = BREAK("= ") BLANK (*B " " | *BACK) TRNS0007 SKIP = BREAK("(), ") SPAN("(), ") (NULL | *SKIP) TRNS0008 END = ANY("), ") TRNS0009 TOTAL = BREAK("(), ") SPAN("(), ") (("'" BREAK("'") "'" | '"' TRNS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TRACE1 DO CREATE("S4") = "TRACE(" B ',"FUNCTION")' :(RETURN) TRNS0279 REMDR DO CREATE("S10") = A "(" :(RETURN) TRNS0280 OUTPUT C MAYBL "'7'" = "'6'" TRNS0281 STOPTR DO = A "(" B ',"FUNCTION")' :(RETURN) TRNS0282 DO = "PRINT(" B C ",'(6X,126A1)')" :(RETURN) TRNS0283 ELIT CNT = CNT + 1 ; BAD1 = BAD1 COUNT - CNT "," TRNS0284 DO = B FASTOUT("") :(RETURN) TRNS0285 ELI CNT = CNT + 1 ; BAD2 = BAD2 COUNT - CNT "," TRNS0286 DO = B FASTOUT("") :(RETURN) TRNS0287 END TRNS0288 -FILE 270; 663 RECORDS: 0PNTABL 91 UM000001 PVTABL 107 UM000002 TABGEN 124 UM000003 ENT 147 UM000004 MCRTBE 163 UM000005 BTINN 178 UM000006 MSG 198 UM000007 PSECT 212 UM000008 BAS 225 UM000009 BASR 235 UM000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * LENGTH OF THE SYMBOL NAME. UM000654 SPACE 2 UM000655 MACRO UM000656 MDFTB &CHAR,&DISP,&LEN UM000657 DC CL4'&CHAR' UM000658 DC AL1(&DISP) UM000659 DC AL1(BRKBEG) UM000660 DC H'&LEN' UM000661 MEND UM000662 END UM000663 -FILE 271; 328 RECORDS: 0 EJECT UM100001 SPACE 6 UM100002 *********************************************************************** UM100003 * * UM100004 *********************************************************************** UM100005 * * UM100006 *********************************************************************** UM100007 * * UM100008 * * UM100009 * UMIST PSECT * UM100010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 60F UM100319 Z@CALL EQU * UM100320 SPACE 3 UM100321 * STORAGE AREA FOR SDUMP UM100322 * UM100323 CNOP 0,8 UM100324 DUMPAREA EQU * UM100325 DS CL360 UM100326 CSECT UM100327 EJECT UM100328 -FILE 272; 159 RECORDS: 0 EJECT UM200001 SPACE 6 UM200002 *********************************************************************** UM200003 * * UM200004 *********************************************************************** UM200005 * * UM200006 *********************************************************************** UM200007 * * UM200008 * * UM200009 * UMIST SYMBOL DEFINITIONS... * UM200010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PNTYP EQU 5 TYPE OF PARAMETER UM200150 PNDX EQU 6 PARAMETER INDEX IN VALUE TABLE UM200151 SPACE 4 UM200152 * PARAMETER VALUE TABLE UM200153 SPACE 2 UM200154 PVAL EQU 0 PARAMETER INTERNAL VALUE UM200155 PVLEN EQU 4 EXTERNAL VALUE IBM LENGTH UM200156 PVMLEN EQU 5 EXTERNAL VALUE MAXIMUM LENGTH UM200157 PVDISP EQU 6 EXTERNAL VALUE DISPLACEMENT UM200158 EJECT UM200159 -FILE 273; 313 RECORDS: 0IST1 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' UM300001 SPACE 7 UM300002 *********************************************************************** UM300003 * * UM300004 *********************************************************************** UM300005 * * UM300006 *********************************************************************** UM300007 * * UM300008 * * UM300009 * * * ** ** *** ******* ********* * UM300010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EXTRN UMPSECT UM300304 EXTRN @RESTART UM300305 * UM300306 UMISTMSG DC C'... UMIST SIGNS ON ...' UM300307 UMISMSGL DC Y(L'UMISTMSG) LENGTH OF MESSAGE UM300308 UMISMODF DC F'0' MODIFIERS FOR SERCOM UM300309 UMISBASE DC A(UMPSECT) ***** OS ADCON ***** UMIST PSECT ***** UM300310 RESTART DC A(@RESTART) UM300311 DROP J UM300312 END UM300313 -FILE 274; 385 RECORDS: 0 SPACE 1 UM400001 GBLC &ASM UM400002 &ASM SETC 'TBL' UM400003 PRINT OFF UM400004 IST2 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' UM400005 COPY /SYMBOLS@S UM400006 COPY /PSECT@S UM400007 PRINT ON UM400008 SPACE 6 UM400009 *********************************************************************** UM400010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(B$TEST-$TEST) UM400376 DC A((E$TEST-$TEST)/(B$TEST-$TEST)) UM400377 DC A(B$NAME-$NAME) UM400378 DC A((E$NAME-$NAME)/(B$NAME-$NAME)) UM400379 DC A(B$DEFINE-$DEFINE) UM400380 DC A((E$DEFINE-$DEFINE)/(B$DEFINE-$DEFINE)) UM400381 DC A(B$PNAME-$PNAME) UM400382 DC A(B$PVALUE-$PVALUE) UM400383 E$LENGTH EQU * UM400384 END UM400385 -FILE 275; 64 RECORDS: 0IST3 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' UM500001 SPACE 1 UM500002 *********************************************************************** UM500003 * * UM500004 *********************************************************************** UM500005 * * UM500006 *********************************************************************** UM500007 * * UM500008 * * UM500009 * UMIST MISCELLANEOUS CONTROL SECTIONS * UM500010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 3 UM500055 CFREE CSECT UM500056 ENTRY FREE UM500057 ENTRY EFREE UM500058 SPACE 1 UM500059 FREE EQU * UM500060 DS 1018F UM500061 EFREE EQU * UM500062 SPACE 6 UM500063 END UM500064 -FILE 276; 1466 RECORDS: 0IST4 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' UM600001 PRINT OFF UM600002 SPACE 1 UM600003 GBLC &ASM UM600004 &ASM SETC 'PSECT' UM600005 COPY /SYMBOLS@S UM600006 PRINT ON UM600007 COPY /PSECT@S UM600008 &ASM SETC 'UT1' UM600009 SPACE 6 UM600010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PRINTZ LTR H,H ARE YOU THROUGH? UM601457 BNZ PRINT BRANCH IF NOT UM601458 ZR 0 CLEAN UP AFTER OS/360 UM601459 ZR 1 CLEAR OUT 1 AFTER OS UM601460 PRINTED POP , RESTORE STACK POINTER UM601461 PRINTOUT EXIT D,R UM601462 * UM601463 PRINTM DC F'0' MODIFIERS FOR SPRINT UM601464 DROP J UM601465 END UM601466 -FILE 277; 1755 RECORDS: 0IST5 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' UM700001 PRINT OFF UM700002 SPACE 1 UM700003 GBLC &ASM UM700004 &ASM SETC 'PR1' UM700005 COPY /SYMBOLS@S UM700006 COPY /PSECT@S UM700007 SPACE 6 UM700008 PRINT ON UM700009 *********************************************************************** UM700010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LEFERRA ERROR 'FUNCTION CALL TABLE OVERFLOW IN LEF',,12 UM701746 B LEFOUT UM701747 LEFERRB STM H,I,0(S) SAVE RESISTERS H AND I UM701748 GETARG H GET ARGUMENT BOUNDS UM701749 ERROR 'ATTEMPT TO REDEFINE A PROTECTED NAME IN LEF ',,12,H UM701750 LM H,I,0(S) RESTORE REGISTERS H AND I UM701751 B LEFTRY1 UM701752 DROP J UM701753 SPACE 6 UM701754 END UM701755 -FILE 278; 1398 RECORDS: 0IST6 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' UM800001 PRINT OFF UM800002 SPACE 1 UM800003 GBLC &ASM UM800004 &ASM SETC 'PR2' UM800005 COPY /SYMBOLS@S UM800006 PRINT ON UM800007 COPY /PSECT@S UM800008 SPACE 6 UM800009 *********************************************************************** UM800010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC CL8'8' UM801389 DC CL8'9' UM801390 MTSTBL1E EQU *-8 UM801391 MTSNOOP DC C'NOOP' UM801392 MTSBUSY DC C'BUSY' UM801393 MTSBAT DC C'BATCH' UM801394 MTSCONV DC C'CONV.' UM801395 DROP J UM801396 SPACE 6 UM801397 END UM801398 -FILE 279; 131 RECORDS: 01 THIS IS A GENERAL UMIST TEST AT ##(TM) ON ##(DT)...' UM900001 -' UM900002 ##(EQ,##(EQ,##(EQ,,,T,F),##(EQ,THIS IS A LOOONG STRINX,THIS IS A LOOONG UM900003 ,T),Y,N),##(EQ,1111,111,N,Y),EQ O.K.,EQ IN ERROR)' UM900004 ##(EQ,##(EQ,##(RS),(#(##(A,B))),Y,N),##(EQ,#(RS),,Y,Z),RS O.K.,RS IN ERRUM900005 (A,B))'#(DSS,MES,*)#(RS)#(DSS,MES,##(XTC,7D))#(RS)'*'' UM900006 ##(EQ,##(EQ,##(EQ,##(RC),1,OK,NO),##(EQ,##(RC),#,OK,NEG),YES,OH),##(EQ,#UM900007 (MES),YES,OOPS),RC O.K.,RC IN ERROR)'1#' UM900008 ##(EQ,##(EQ,##(RN,1),A,OK,NO),##(EQ,##(RN,7),1234567,OK,F),##(NL,##(RN,1UM900009 8),##(RN,11))'A1234567RN IN ERROR##(RN,7)RN O.K.RN IN ERROR UM900010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> )#(EASY)...#(CL,EASY)'DS,1,#( ,1)'DS,5,#( ,5)'EQ,#(CL,1)#(CL,5),1120,RECUM900122 ACTORIAL AND EASY WORK,RECURSIVE FACTORIAL AND EASY DO NOT WORK'CL,EASY,UM900123 -' UM900124 #(DS, ,(#(DS,CTR,1)#(DS,VAL,1)#(TEST,X)... UM900125 #(DS,TEST,(#(EQ,X,#(CTR),#(VAL),(#(DS,VAL,#(DS,CTR,#(AD,#(CTR),1))#(ML,#UM900126 VAL)))#(TEST,X)... UM900127 #(SS, ,X)#(SS,TEST,X)#(EQ,#( ,1)#( ,5),1120,ITERATIVE FACTORIAL WORKS,ITUM900128 FACTORIAL DOES NOT WORK)' UM900129 ##(DS,A,(-END OF UMIST TEST AT ##(TM) ON ##(DT)))' UM900130 ##(BYE,#(A))' UM900131 -FILE 280; 7541 RECORDS: 0 TITLE ' SUCCESS DIRECT GOTO SN000051 UGOTYP EQU 1 UNCONDITIONAL GOTO SN000052 UTOTYP EQU 4 UNCONDITIONAL DIRECT GOTO SN000053 VARTYP EQU 3 VARIABLE SN000054 TITLE 'DATA TYPE CODES' SN000055 ARRDT EQU 4 ARRAY. SN000056 BLKDT EQU 2 BLOCK (INTERNAL USE ONLY). SN000057 PATDT EQU 3 PATTERN. SN000058 CODEDT EQU 8 CODE. SN000059 TTLFLD EQU TITLE SN000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ILCHAR STRING 'ILLEGAL CHARACTER IN ELEMENT' SN007532 ILLBIN STRING 'BINARY OPERATOR MISSING OR IN ERROR' SN007533 ILLDEC STRING 'ERRONEOUS DECIMAL NUMBER' SN007534 ILLINT STRING 'ERRONEOUS INTEGER' SN007535 MISCMA STRING 'MISSING COMMA' SN007536 MISRPN STRING 'MISSING RIGHT PARENTHESIS' SN007537 OPNLIT STRING 'UNCLOSED LITERAL' SN007538 ILLEOS STRING 'IMPROPERLY TERMINATED STATEMENT' SN007539 CMSG1 STRING 'END OF FILE OCCURED BEFORE END CARD FOUND' SN007540 END SN007541 -FILE 281; 2319 RECORDS: 0 MACRO DOLFN SN100051 EXTRN NAMFN SN100052 EXTRN DIVFN SN100053 EXTRN ORFN SN100054 EXTRN MNSFN SN100055 * SN100006 MACRO SN100007 &L OUTPUT &DUM,&OUT SN100008 CNOP 0,4 SN100009 &L L 15,=V(IBCOM#) SN100010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L R3,0(R2) N SN102310 SR R3,R4 N-(N-I) = I SN102311 ST R3,0(R2) SET LENGTH OF R1. SN102312 L 1,=A(STYPE) SN102313 ST R7,0(1) SN102314 B 8(14) SN102315 STRMTRT TRT 1(0,1),0(R3) TRANSLATE AND TEST SN102316 STTEMP DC 2F'0' SN102317 LTORG SN102318 END SN102319 -FILE 282; 115 RECORDS: 0STINT START SN200001 DESCR EQU 8 SN200002 MEMLOW EQU 5000 DESCRIPTORS - FOR SMALL PROGRAM (45 PAGES TOTAL) SN200003 MEMMED EQU 15000 DESCRIPTORS - FOR MEDIUM PROGRAM (65 PAGES TOTAL) SN200004 MEMHIG EQU 25000 DESCRIPTORS - FOR LARGE PROGRAM (85 PAGES TOTAL) SN200005 TITLE 'STINT' SN200006 USING *,7 SN200007 LR 7,15 SN200008 STM 0,15,SAVEA SN200009 L 13,=V(SAVESAVE) SN200010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B NOXEX+8 SN200106 NOXEX BAL 6,*+4 SN200107 L 3,=V(EXECSP) SN200108 LA 1,2 SN200109 LA 2,GOKEY SN200110 ST 1,0(3,0) SN200111 ST 2,8(3,0) SN200112 BR 6 SN200113 * SN200114 END SN200115 -FILE 283; 70 RECORDS: 0 GBLB &TRACE MLNK0001 &TRACE SETB 0 MLNK0002 S4 START MLNK0003 ENTRY ADDFN MLNK0004 ENTRY DATA MLNK0005 ENTRY DIVFN MLNK0006 ENTRY DOLFN MLNK0007 ENTRY DOTFN MLNK0008 ENTRY EXPFN MLNK0009 ENTRY FRSGPT MLNK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EXTRN SPIECUT MLNK0061 EXTRN SPIECUTF MLNK0062 EXTRN SPREAL MLNK0063 EXTRN STPRNT MLNK0064 EXTRN STREAD MLNK0065 EXTRN STINT MLNK0066 EXTRN STREAM MLNK0067 EXTRN UNLOADER MLNK0068 EXTRN UNOPTB MLNK0069 EXTRN VARATB MLNK0070 -FILE 284; 21 RECORDS: 0 DS 0F MDAT0001 SIGRESET DC X'36000000' MDAT0002 HEX0C4 DC X'0C0C0C0C' MDAT0003 HEX044 DC X'04040404' MDAT0004 HEX084 DC X'08080808' MDAT0005 HEX04 DC X'00000004' MDAT0006 HEX08 DC X'00000008' MDAT0007 HEX0C DC X'0000000C' MDAT0008 HALFMASK DC X'0000FFFF' MDAT0009 AISAVE DC 5F'0' MDAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> REALB DC X'4E00000000000000' MDAT0012 BIG2 DC X'4E00000080000000' MDAT0013 AMPST DC C'&&' MDAT0014 COLSTR DC C': ' MDAT0015 QTSTR DC C'''' MDAT0016 SEMSTR DC C';' MDAT0017 ALPHSP SPEC ALPHA,256 MDAT0018 SAVESAVE DC 100F'0' MDAT0019 SAVE13 DC F'0' MDAT0020 LTORG MDAT0021 -FILE 285; 29 RECORDS: 0 TITLE 'CONSTANTS' PARM0001 * PARM0002 ZERO EQU 0 PARM0003 R1 EQU 1 PARM0004 R2 EQU 2 PARM0005 R3 EQU 3 PARM0006 R4 EQU 4 PARM0007 R5 EQU 5 PARM0008 R6 EQU 6 PARM0009 R7 EQU 7 PARM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FR0 EQU 0 PARM0020 FNC EQU X'F' PARM0021 MARK EQU 0 PARM0022 PTR EQU X'D' PARM0023 STTL EQU X'C' PARM0024 TTL EQU X'B' PARM0025 STKOFF EQU 100 PARM0026 DESCR EQU 8 ADDRESS WIDTH OF DESCRIPTOR. PARM0027 SPEC EQU 2*DESCR ADDRESS WIDTH OF SPECIFIER. PARM0028 SIZLIM EQU 65535 LIMIT OF SIZE FIELDS PARM0029 -FILE 286; 1935 RECORDS: 0ACOMP 138 MACR0001 ACOMPC 151 MACR0002 ADDLG 164 MACR0003 ADDSIB 172 MACR0004 ADDSON 188 MACR0005 ADJUST 202 MACR0006 ADREAL 211 MACR0007 AEQL 221 MACR0008 AEQLC 232 MACR0009 AEQLIC 247 MACR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MACRO MACR1926 &LOC ZERBLK &PTR,&CL MACR1927 &LOC L 2,&PTR MACR1928 L 5,&CL MACR1929 LA 4,8 MACR1930 LR 3,4 MACR1931 LD 0,=D'0' MACR1932 A&SYSNDX STD 0,0(3,2) MACR1933 BXLE 3,4,A&SYSNDX MACR1934 MEND ZERBLK MACR1935 -FILE 287; 2828 RECORDS: 0 BLOCK DATA TIDY0001 C TIDY0002 C THIS BLOCK DATA CONTAINS ALL THE DATA STATEMENTS FOR TIDY. TIDY0003 C TIDY0004 COMMON ICOL,IFIR,IOUT(1326),JCOL,JINT(1600),JMAX,JOB(80),KB15,KBUFTIDY0005 1F(80),KD15,KD79,KOL73(3),L772,LAST,LCPY,LDEF(3000),LDOS(10),LFIR,LTIDY0006 2QUAL,LREF(1000),MCOL,MCOM,MEOF,MEX,MILDO,MLBL,MLGC,MLIST,MP2,MPUN,TIDY0007 3MREF,MSKP,MSTOP,MTRAN,NBLC,NCD,NDEF,NDOS,NINS,NPAR,NPUN,NREC,NREF,TIDY0008 4NROUT,NRT1,NRT2,NTEMP(5),NXEQ TIDY0009 COMMON /ALPHA/ KBL,KDIG(10),KABC(26),KSPK(11) TIDY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 5 IF (LINE) 6,7,6 TIDY2819 6 NPAGE=NPAGE+1 TIDY2820 PRINT 9, NPAGE,JOB TIDY2821 LINE=0 TIDY2822 7 RETURN TIDY2823 8 LINE=LINE+N TIDY2824 IF (LINE-50) 7,6,6 TIDY2825 C TIDY2826 9 FORMAT (1H1,6X,11H* T I D Y *,61X,4HPAGE,I4/7X,80A1/1X) TIDY2827 END TIDY2828 -FILE 288; 1598 RECORDS: 0 /* TEXT360 - PHASE 1 (FILE MAINTENANCE) V3.0 JULY 3,1967 */ FMNT0001 1 FM: PROCEDURE OPTIONS(MAIN); FMNT0002 ON ERROR BEGIN; FMNT0003 PUT FILE(SYSPRINT)SKIP(3)DATA(NORM,PGLIN,MBINDX,LINE); FMNT0004 PUT FILE(SYSPRINT)SKIP DATA(OINDX,CH); FMNT0005 CALL IHEDUMP; FMNT0006 END; FMNT0007 DECLARE STATSW CHAR(1) STATIC INITIAL('0'); FMNT0008 DECLARE ORECNT FIXED BINARY INITIAL(0) STATIC; FMNT0009 DECLARE OTIME CHARACTER(9) STATIC; FMNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SCOR = SUBSTR(USC,MBINDX,1); FMNT1589 IF NOSTO = '1' THEN GO TO HYP2; FMNT1590 CALL STORCH; FMNT1591 HYP2: FMNT1592 IF DC Â= BLANK THEN GO TO HYP1; FMNT1593 DC = CH1; FMNT1594 NOSTO = '0'; FMNT1595 RETURN; FMNT1596 END HYPCHK; FMNT1597 END FM; FMNT1598 -FILE 289; 2994 RECORDS: 01 /*TEXT/360 PHASE 2 (BUILDLINE) V2.1 MAY 15,1967 */ BLD10001 /*IT FUNCTION IS TO BUILD THE FORMATTED AND UNFORMATTED LINES*/ BLD10002 /*CREATE A CROSS-REFERENCE TABLE ENTRY TO DESCRIBE THE LINE*/ BLD10003 /* IT CALLS */ BLD10004 /* 1. EOLCL - TO DO HOUSE KEEPING AFTER LINE IS FORCED OUT*/ BLD10005 /* 2. OVFCH - TO PROCESS A TEXT OVERFLOW. DOES JUST, HYPHEN ETC * BLD10006 /* 3. FOL - TO FORCE OUT A LINE */ BLD10007 /* 4. GETNC - TO GET THE NEXT CHARACTER. */ BLD10008 /* 5. PCWB - TO PLACE CHARACTER IN WORK BUFFERS */ BLD10009 /* IT GOES TO THE FOLLOWING ROUTINES */ BLD10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SKIP; BLD12985 ERSW = SWON; /*TURN ON ERROR SWITCH*/ BLD12986 /*STORE ERROR NUMBER*/ BLD12987 SUBSTR(ERBUF,1+(ERRCT*3),3) = PARA; BLD12988 ERRCT = ERRCT+1; /*BUMP COUNT*/ BLD12989 /*TOO MANY ERRORS FOR BUFFER*/ BLD12990 IF ERRCT > 9 THEN ERRCT = ERRCT -1; BLD12991 RETURN; BLD12992 END ERROR; /*END ERROR ROUTINE*/ BLD12993 END BUILINE; /*END BUILD A LINE ROUTINE*/ BLD12994 -FILE 290; 274 RECORDS: 01 HYPHEN : PROCEDURE ; HYPH0001 HYPH0002 0 DECLARE( HYPH0003 RHX FIXED BIN(15), HYPH0004 BREAKSW CHAR(1) INIT('0'), HYPH0005 JUSTCT FIXED (7) BINARY, /* THE JUSTIFICATION COUNT */ HYPH0006 HYPNSTR CHAR(1), HYPH0007 LHX FIXED BIN(15), HYPH0008 HLG FIXED BIN(15), HYPH0009 HYCTBUF(20) FIXED BIN(15), HYPH0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RHX = CTR1 ; HYPH0265 HYPNSTR = '1' ; HYPH0266 GO TO OUT ; HYPH0267 END ; HYPH0268 END ; HYPH0269 NOGO : HYPH0270 HYPNSTR = '0' ; HYPH0271 OUT : HYPH0272 RETURN ; HYPH0273 END HYPHEN ; HYPH0274 -FILE 291; 2167 RECORDS: 0 /* TEXT360 - PHASE 3 (PAGE PROCESSOR) V3.0 JULY 5,1967 */ PLAO0001 1/* THE FOLLOWING PROCEDURE CONSTRUCTS THE LINE BUFFER AND CROSS- PLAO0002 /* REFERENCE TABLE FOR LAYOUT AND OUTPUT. PLAO0003 /* NAME OF PROCEDURE IS PAGEPRO. PLAO0004 /* THE FUNCTION OF PAGEPRO IS TO READ INTERMEDIATE TAPE 2 PLAO0005 /* AND CONSTRUCT THE LINE BUFFER AND CROSS-REFERENCE TABLE PLAO0006 /* FRON THE INFORMATION ON THE TAPE. THIS PROCEDURE DEFINES PLAO0007 /* LOGICAL PAGES. CERTAIN ALTER CODES ARE ALSO PROCESSED BY PLAO0008 /* THIS PROCEDURE. PAGEPRO CALLS LAYOUT WHEN IT DETERMINES PLAO0009 /* THAT A PAGE CAN BE FORMATTED. THIS IS THE CONTROLLING PLAO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LCT1 = LCT1 - OFOTLNG - 2; PLAO2158 SUBSTR(PSTEXT,LCT1,OFOTLNG)= OFOTBUF; /*PUT IN ODD FOOTING.*/PLAO2159 END; PLAO2160 CALL PROUTP; /* PUT OUT FOOTING LINE. */ PLAO2161 END PRPAGE; PLAO2162 PROUTP: PROCEDURE; /* PUT OUT PRINT LINE*/ PLAO2163 WRITE FILE(PRTOT) FROM(PRLIN); PLAO2164 END PROUTP; PLAO2165 0 END OUTPUT; PLAO2166 0 END PAGEPRO; PLAO2167 -FILE 292; 15 RECORDS: 01 POSTPR : PROCEDURE OPTIONS (MAIN) ; PSTR0001 PSTR0002 DECLARE TIME1 CHAR (9) STATIC ; PSTR0003 PSTR0004 DECLARE SPELLER CHAR (1) INIT ('0') STATIC EXTERNAL ; PSTR0005 TIME1 = TIME ; /* SET THE OVERALL RUN TIMER */ PSTR0006 OPEN FILE (PRTOT) OUTPUT BUFFERED ; PSTR0007 CALL PPR1 ; PSTR0008 IF SPELLER = '1' THEN CALL PPR2 ; PSTR0009 PUT FILE (SYSPRINT) SKIP LIST (TIME1,'BEGIN PHASE 4') ; PSTR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PUT FILE (SYSPRINT) SKIP LIST (TIME,'END PHASE 4') ; PSTR0011 CLOSE FILE (PRTOT) ; PSTR0012 CLOSE FILE (SYSPRINT) ; PSTR0013 RETURN ; PSTR0014 END POSTPR ; PSTR0015 -FILE 293; 1298 RECORDS: 01 /* POST PROCESSOR, VERSION 3, PHASE 2 */ PPR10001 PPR1 : PROCEDURE ; /* THE POST PROCESSOR */ PPR10002 /* TEXT/360 POST PROCESSOR PPR10003 /* * * * * * * * * * * PPR10004 /* THE POST PROCESSOR PERFORMS THE FINAL CLEANUP OF THE TEXT/360 PPR10005 /* RUN. IT PRINTS LISTS OF ALTER CODES; EDIT CODES; FOOTNOTES; PPR10006 /* SEARCH, CHANGE, AND REVISE LINES; AND ERROR MESSAGES. THE TABLEPPR10007 /* OF CONTENTS AND OTHER LISTS OF USER-SPECIFIED LINES ARE ALSO PPR10008 /* PRINTED AT THIS TIME. THE POST PROCESSOR PERFORMS A SPELLING PPR10009 /* CHECK, IF REQUESTED. PPR10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSE ODDEVEN = 1 ; PPR11289 ENDPAGSW = '0' ; PPR11290 BEGINPAGSW = '1' ; PPR11291 BUFFER = PAGEBUF.TRAILBUF(ODDEVEN) ; PPR11292 WRITE FILE (PRTOT) FROM (BUFFER) ; PPR11293 END ; PPR11294 PPR11295 RETURN ; PPR11296 END OUTPUT ; PPR11297 END PPR1 ; PPR11298 -FILE 294; 226 RECORDS: 01 /* POST PROCESSOR, VERSION 3, PHASE 3 */ PPR20001 PPR2 : PROCEDURE ; /* THE SPELLING CHECK PROGRAM */ PPR20002 PPR20003 DECLARE MASTER FILE INPUT ; /* NEW MASTER IS READ FOR */ PPR20004 /* SPELLING CHECK */ PPR20005 PPR20006 DECLARE DICT FILE INPUT ; /* THE DICTIONARY FILE CONTAINS/*PPR20007 /*THE SPELLING-CHECK DICTIONARY*/PPR20008 PPR20009 DECLARE ( NWORDN (24) FIXED BIN (15) , PPR20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRITE FILE (PRTOT) FROM (LINE) ; PPR20217 LINE = ' ' ; PPR20218 DEPTH = DEPTH + 1 ; PPR20219 IF DEPTH = 61 THEN DO ; PPR20220 BEGINPAGSW = '1' ; PPR20221 DEPTH = 0 ; PPR20222 END ; PPR20223 RETURN ; PPR20224 END OUTPUT ; PPR20225 END PPR2 ; PPR20226 -FILE 295; 217 RECORDS: 01 /* TEXT90 TO TEXT360 CONVERSION V3.0 MAY 25,1967 */ T90T0001 TRNSL:PROCEDURE OPTIONS(MAIN); T90T0002 DECLARE T90T0003 BIN BINARY FIXED (8), T90T0004 LISTA CHAR (1), T90T0005 OFILE FILE INPUT, /*T90 MASTER TAPE*/ T90T0006 NFILE FILE OUTPUT, /*T360 MASTER TAPE*/ T90T0007 1 Y, /*MASBUF DEFINED AS ARRAY*/ T90T0008 2 AMASS(1956) CHAR (1), T90T0009 MASBUF CHAR (1956) DEFINED Y, /*PHYSICAL INPUT RECORD*/ T90T0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END; T90T0208 END; T90T0209 TRN55: T90T0210 Z=0; /*RESET CODE INDEX*/ T90T0211 GO TO TRN20; /*GO TO THE NEXT CHARACTER*/ T90T0212 TRN56: T90T0213 PUT FILE (SYSPRINT) LIST (TIME); /*OUTPUT TIME AT END OF JOB*/ T90T0214 CLOSE FILE (NFILE); T90T0215 CLOSE FILE (SYSPRINT); T90T0216 END TRNSL; T90T0217 -FILE 296; 200 RECORDS: 01/*UPDATE DICT0001 /*THE NAME OF THE PROCEDURE IS 'UPDATE'. THE FUNCTION OF 'UPDATE'IS DICT0002 /* TO FORM A DICTIONARY OF WORDS OF VARIOUS LENGTHS ON AN INITIAL RUN DICT0003 /*AND UPDATE THE DICTIONARY WITH ADDITIONS AND DELETIONS ON SUCCESSIVE DICT0004 /*RUNS DICT0005 */ DICT0006 UPDATE: PROCEDURE OPTIONS(MAIN); DICT0007 DECLARE ( DICT0008 FCOL CHAR (1), /*OPERATION INDICATOR*/ DICT0009 DICTBUF(24) CHAR (2300) VARYING, /*STORAGE FOR DICTIONARY*/ DICT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B = B + 5*T ; DICT0191 END ; DICT0192 B = 1 ; DICT0193 END ; DICT0194 END; DICT0195 OPEN FILE (DICT) OUTPUT; DICT0196 PUT FILE (DICT) LIST ((NOWRDBUF(T) DO T= 1 TO 24)); DICT0197 PUT FILE (DICT) LIST ((DICTBUF(T) DO T= 2 TO 24)); DICT0198 CLOSE FILE (DICT); DICT0199 END UPDATE; DICT0200 -FILE 297; 1404 RECORDS: 0* MAIN-LINE PROGRAM PRES0001 * PRES0002 START PRES0003 LOCATE BALR 9,0 ESTABLISH REGISTERS 9,10,11 AS PRES0004 USING *,9,10,11 THE BASE REGISTERS PRES0005 HERE LM 10,11,BASEADD LOAD THE BASE REGISTERS PRES0006 STM 15,14,REGS PRES0007 BC 15,GOOFY PRES0008 BASEADD DC A(HERE+4096) PRES0009 DC A(HERE+8192) PRES0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BIGREP DC C' REPLACE TOO LONG' PRES1395 BADCOP DC C' INVALID COPY' PRES1396 SWIDB DC C' SWIDTH' PRES1397 * PRES1398 * END OF FILE ROUTINE PRES1399 * PRES1400 CLEANUP BC 15,DEADEND PRES1401 DEADEND LM 15,14,REGS PRES1402 RETURN PRES1403 END LOCATE PRES1404 -FILE 298; 309 RECORDS: 0FOREAL CSECT *PRN0001 SAVE (14,12),,* *PRN0002 BALR 8,0 *PRN0003 USING *,8 *PRN0004 B STARTSAV *PRN0005 * EQUEATES FOR REG NUMONICS *PRN0006 R3 EQU 3 *PRN0007 R4 EQU 4 *PRN0008 R5 EQU 5 *PRN0009 R6 EQU 6 *PRN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUTLTH DC H'132' *PRN0300 MODIF DC A(X'2010') *PRN0301 LINNR DS F'0' *PRN0302 POINTER DS F *PRN0303 THREE DC 1F'3' *PRN0304 ZERO DC X'00000000' ZERO WORD *PRN0305 LEFT DS D *PRN0306 ADDR6 DC A(LOW) CONTENTS OF R6 AT START *PRN0307 ETINPUT DC A(TLAST) *PRN0308 END FOREAL *PRN0309 -FILE 299; 1529 RECORDS: 0 TITLE ' MTS FILE EDITOR (VERSION CT048)' *ED00001 MACRO *ED00002 &L ERR &M,&C *ED00003 AIF (N'&SYSLIST EQ 1).ONEOP *ED00004 &L B&C *+8 *ED00005 B A&SYSNDX *ED00006 L 2,=A(&M) *ED00007 B ILLEGAL *ED00008 A&SYSNDX DS 0H *ED00009 MEXIT *ED00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' *ED01520 MLINE MSG ' #LINENO LINENO' *ED01521 MSG ' #LINENO' *ED01522 MSG '#LINENO CAUSES THE LINE OF THE FILE WITH THE SPECIFIED' *ED01523 MSG 'MTS LINE NUMBER TO BECOME THE CURRENT LINE. #LINE' *ED01524 MSG 'WITH NO LINE NUMBER SPECIFIED CAUSES THE CURRENT' *ED01525 MSG 'LINE NUMBER TO BE PRINTED.' *ED01526 DC X'00' *ED01527 MNOSUCH DC FL1'34',C'THERE IS NO COMMAND WITH THAT NAME',X'00' *ED01528 END *ED01529 -FILE 300; 290 RECORDS: 0OPS8 TITLE 'PDP-8 OPERATOR AND FORMAT DEFINITIONS' OPS80001 * OPS80002 PRINT NOGEN OPS80003 * OPS80004 MACRO BUILD OPERATOR SYMBOL TABLE ENTRY OPS80005 &L GENOP &X,&Y,&Z,&W OPS80006 AIF ('&W' EQ '').A OPS80007 &L DC &W OPS80008 AGO .B OPS80009 .A ANOP OPS80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * SHORT-FORM RLD OPS80281 * OPS80282 * 0 1 2 3 4 5 6 7 8 9 A B C D E F OPS80283 FORMA DC X'4F1D1E1F2021222324191A1B1C003738' 0 OPS80284 DC X'393A0041424344004B4C4D4E00555657' 1 OPS80285 DC X'58005F60616200696A6B6C0073747576' 2 OPS80286 DC X'007D7E7F80008788898A009192939400' 3 OPS80287 DC X'9A9B9C9D00A5A6A7A800000000000000' 4 OPS80288 * OPS80289 END OPS80290 -FILE 301; 243 RECORDS: 0OPS9 TITLE 'PDP-9 OPERATOR AND FORMAT DEFINITIONS' OPS90001 * OPS90002 PRINT NOGEN OPS90003 * OPS90004 MACRO BUILD OPERATOR SYMBOL TABLE ENTRY OPS90005 &L GENOP &X,&Y,&Z,&W OPS90006 AIF ('&W' EQ '').A OPS90007 &L DC &W OPS90008 AGO .B OPS90009 .A ANOP OPS90010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'232425260028292A2B00000000000000' 4 OPS90234 * OPS90235 * FORM A SHORT FORM RLD DICTIONARY OPS90236 * OPS90237 FORMA9 DC X'4F1D1E1F202122232418191A1B1C0036' 0 OPS90238 DC X'3738393A004041424344004A4B4C4D4E' 1 OPS90239 DC X'005455565758005E5F6061620068696A' 2 OPS90240 DC X'6B6C007273747576007C7D7E7F800086' 3 OPS90241 DC X'8788898A009091929394000000000000' 4 OPS90242 END OPS90243 -FILE 302; 368 RECORDS: 0 MACRO TRCK0001 &LABEL IOREQ &CCW TRCK0002 &LABEL L 0,LDN TRCK0003 LA 1,&CCW TRCK0004 LA 2,RTNL TRCK0005 SVC STIO TRCK0006 SVC WAIT TRCK0007 MEND TRCK0008 MACRO TRCK0009 TRANSFER &N,&LOC TRCK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GEVM TRCK0359 GDV 0,4095,B TRCK0360 GECPB TRCK0361 DC 3848C'X' TRCK0362 GIBLC 3848 TRCK0363 DC AL2(GTRU) TRCK0364 DC AL2(DISL) TRCK0365 GTRU EQU X'2AFF' TRCK0366 XISL EQU *-XIS TRCK0367 END TRCK0368 -FILE 303; 2605 RECORDS: 0$EMPTY SLIPMACROS SLIP0001 $GET SLIPMACROS SLIP0002 $NUMBER SLIP0003 CALL 100 SLIP0004 SEXIT 105 SLIP0005 SINIT 110 SLIP0006 00000000 SLIP0007 $NUM 100,.01 SLIP0008 MACRO SLIP0009 &NAME CALL &CL,&AG,&NM SLIP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> % % 1 2 @N@ . @N@ < % 2 1 @N@ . < % 3 1 . @N@ < < SLIP2596 @FK@ SLIP2597 % % 1 2 @FK1@ E @N@ < % 2 1 @FK1@ < < SLIP2598 @EXP@ SLIP2599 % % 1 3 @V@ @OP@ @EXP@ < % 2 3 @FK@ @OP@ @EXP@ < % 3 2 @N@ @OP@ @EXP@ < SLIP2600 % 4 2 @OP@ @EXP@ < % 5 1 @V@ < % 6 1 @N@ < % 7 1 @FK@ << SLIP2601 @EXP@ A*B&C/D-32.E4.NE.52.E10&27.E22.3 SLIP2602 $ENDFILE SLIP2603 $RUN DRIVE2+*SLIP 5=DRIVE2DATA 6=*SINK* SLIP2604 $SIGNOFF SLIP2605 -FILE 304; 7235 RECORDS: 0IOH TITLE ' IOH 360 --- CHARLIE BENET' IOH00001 SPACE 3 IOH00002 * IIIIIIIIIIII OOOOOOOOOOOO HH HH IOH00003 * IIIIIIIIIIII OOOOOOOOOOOO HH HH IOH00004 * IIII OO OO HH HH IOH00005 * IIII OO OO HH HH IOH00006 * IIII OO OO HH HH IOH00007 * IIII OO OO HH HH IOH00008 * IIII OO OO HHHHHHHHHHHH IOH00009 * IIII OO OO HHHHHHHHHHHH IOH00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(SLIENO) IOH07226 DC A(*+4) IOH07227 DS A IOH07228 DC V(SERCOM) IOH07229 SLIENO DS A IOH07230 SCS DS H IOH07231 DC X'00' IOH07232 SERMODS DC A(0) IOH07233 DC A(0) IOH07234 END IOH07235 -FILE 305; 155 RECORDS: 0CALL 100 SEXIT 105 SINIT 110 00000000 MACRO &NAME CALL &CL,&AG,&NM LCLA &B LCLC &Q AIF (K'&AG EQ 0).T &Q SETC '&AG'(1,1) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .T3 AIF (K'&P2 EQ 0).T8 AIF (T'&P2 EQ 'N').T9 &NAME STM 14,12,12(13) AGO .T10 .T9 ANOP &NAME STM 14,&P2,12(13) MEXIT .T8 ANOP &NAME STM 14,12,12(13) MEND -FILE 306; 30 RECORDS: 0SYSTEM 100 WTLB0001 RKSUB 200 WTLB0002 00000000 WTLB0003 SUBROUTINE SYSTEM WTLB0004 STOP WTLB0005 END WTLB0006 $TERM WTLB0007 SUBROUTINE RKSUB(M,Y,F,P,Q,DERIV,T,DT) WTLB0008 DIMENSION Y(1),F(1),P(4),Q(4) WTLB0009 CALL DERIV(Y,F,T) WTLB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DO 30 I=1,M WTLB0021 P(I)=P(I)+2.0*F(I) WTLB0022 30 Y(I)=Q(I)+DT*F(I) WTLB0023 T=T+.5*DT WTLB0024 CALL DERIV(Y,F,T) WTLB0025 DO 40 I=1,M WTLB0026 40 Y(I)=Q(I)+(P(I)+F(I))*DT/6.0 WTLB0027 RETURN WTLB0028 END WTLB0029 $TERM WTLB0030 -FILE 307; 20 RECORDS: 0$RUN *SNOBOL4;5=*CONVSNOBOL(3) 6=*DUMMY*(1,20)+*MSINK* 8=*MSOURCE*@UC 9=CONV0001 $SOURCE *MSOURCE* CONV0002 READ("IN",8,132) CONV0003 READ("INPUT",8,80) CONV0004 PRINT("OUTPUT",9,"(1X,120A1)") CONV0005 PROG = ARRAY(200) CONV0006 I = 1 CONV0007 CLEAR PROG = CONVERT(" :>;","CODE") CONV0008 I = LT(I,199) I + 1 :S(CLEAR) CONV0009 PROG<200> = CONVERT(" :(NEXT);","CODE") CONV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUTPUT = " ENTER SNOBOL STATEMENTS." CONV0011 NEXT TRIM(IN) ARB . TEXT . LIST RPOS(0) :F(END) CONV0012 TEXT POS(0) SPAN("1234567890") . NUM RTAB(0) . TEXT :F(IMED) CONV0013 IDENT(NUM) :S(IMED) CONV0014 PROG = CONVERT(TEXT "; :>;","CODE") :F(ERROR) CONV0015 :(NEXT) CONV0016 IMED CODE = CONVERT(TEXT "; :(NEXT);","CODE") :F(ERROR) CONV0017 : CONV0018 ERROR OUTPUT = "COMPILATION ERROR" :(NEXT) CONV0019 END CONV0020 -FILE 308; 912 RECORDS: 0-UNLIST MDPL0001 ****MADTOPL1 - A MAD TO PL/I TRANSLATOR MDPL0002 * MDPL0003 *FIRST - CONSTRUCT ALL PATTERNS MDPL0004 * MDPL0005 &STLIMIT = 200000 MDPL0006 DEFINE("DELIT(TEXT)A,B,C,D") MDPL0007 DEFINE("DEBLANK(TEXT)") MDPL0008 DEFINE("PRINTOUT(TEXT)") MDPL0009 DEFINE("DECLOUT(TEXT,ATR)LIST,A") MDPL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FAIL13 $OUT1 = "**** UNDEFINED FORMAT LIST" :(FAILCOM) MDPL0903 FAIL14 $OUT1 = "**** UNTRANSLATABLE OCCURRENCE OF BLOCK OR ITERATION" MDPL0904 . :(FAILCOM) MDPL0905 FAIL15 $OUT1 = "**** UNTRANSLATABLE CONSTANT" :(FAILCOM) MDPL0906 FAIL16 $OUT1 = "**** UNTRANSLATABLE DIMENSIONING INFORMATION" MDPL0907 . :(FAILCOM) MDPL0908 FAILCOM $OUT1 = " IN STATEMENT " PROTEMP MDPL0909 PRINTOUT("/********UNTRANSLATABLE STATEMENT********/") :(PASS2) MDPL0910 * MDPL0911 END MDPL0912 -FILE 309; 368 RECORDS: 0 'ASSIGN STATEMENTS AND VARIABLES' WTER0001 AS-2 'ATTEMPT TO REDEFINE AN ASSIGNED VARIABLE IN AN ARITHMETIC STATEWTER0002 AS-3 'ASSIGNED VARIABLE USED IN AN ARITHMETIC EXPRESSION' WTER0003 AS-4 'ASSIGNED VARIABLE CANNOT BE HALF WORD INTEGER' WTER0004 AS-5 'ATTEMPT TO REDEFINE AN ASSIGN VARIABLE IN AN INPUT LIST' WTER0005 WTER0006 'BLOCK DATA STATEMENTS' WTER0007 BD-0 'EXECUTABLE STATEMENT IN BLOCK DATA SUBPROGRAM' WTER0008 BD-1 'IMPROPER BLOCK DATA STATEMENT' WTER0009 WTER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> VA-8 'ATTEMPT TO USE A PREVIOUSLY DEFINED NAME AS FUNCTION OR ARRAY' WTER0359 VA-9 'ATTEMPT TO USE A PREVIOUSLY DEFINED NAME AS A STATEMENT FUNCTIOWTER0360 VA-A 'ATTEMPT TO USE A PREVIOUSLY DEFINED NAME AS A SUBPROGRAMME NAMEWTER0361 VA-B 'NAME USED AS A COMMON BLOCK PREVIOUSLY USED AS A SUBPROGRAM NAMWTER0362 VA-C 'NAME USED AS SUBPROGRAMME PREVIOUSLY USED AS A COMMON BLOCK NAMWTER0363 WTER0364 'EXTERNAL STATEMENT' WTER0365 XT-0 'INVALID ELEMENT IN EXTERNAL LIST' WTER0366 XT-1 'INVALID DELIMITER IN EXTERNAL STATEMENT' WTER0367 XT-2 'SUBPROGRAMME PREVIOUSLY EXTERNALLED' WTER0368 -FILE 310; 703 RECORDS: 0ERR 01000 PL1M0001 INVK 01052 PL1M0002 MVW 01065 PL1M0003 NSTAT 01071 PL1M0004 NSTA2 01078 PL1M0005 OSTAT 01083 PL1M0006 OSTA2 01090 PL1M0007 OUTDA 01095 PL1M0008 POP 01142 PL1M0009 PUSH 01147 PL1M0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MTSLNR DS F LINE NUMBER PL1M0694 MTSFDB DS F FDUB PL1M0695 MTSBUF DS F BUFFER ADDR PL1M0696 MTSCBP DS F CURRENT BUFFER POINTER PL1M0697 MTSEOB DS F END OF BLOCK ADDR PL1M0698 MTSNAM DS 32C NAME OF FILE PL1M0699 MTSWRK DS 20F WORK AREA FOR ROUTINES PL1M0700 MTSEND EQU * PL1M0701 MEND PL1M0702 $TERM PL1M0703 -FILE 311; 867 RECORDS: 0* TO RUN GO-MAD - GMAD0001 * $RUN *SNOBOL4 5=GOMAD+(THE INPUT PROG) GMAD0002 * 7=PUNCHED OUTPUT GMAD0003 * 6=PRINTED OUTPUT GMAD0004 * GOMAD REQUIRES (PRESENTLY) EBCDIC INPUT GMAD0005 -UNLIST GMAD0006 QUOTE = "'" GMAD0007 &TRACE = "ON" GMAD0008 &DUMP = 'ON' GMAD0009 &MAXLNGTH = 1000 GMAD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * PRINT A LIST OF DELETED STATEMENT LABELS GMAD0858 END3. DEL.LAB "," = GMAD0859 IDENT(DEL.LAB,"") :S(END3) GMAD0860 SYSPOT = "-THE FOLLOWING LABELS ARE NOT USED AND HAVE BEEN " GMAD0861 ."DELETED -" GMAD0862 SYSPOT = "-" DEL.LAB GMAD0863 GMAD0864 END3 SWT "ON" :S(ALL.DONE)F(START1) GMAD0865 ALL.DONE &DUMP = GMAD0866 END GMAD0867 -FILE 312; 2590 RECORDS: 0ACQUIRE 1000 *1000001 BBLOCK 1036 *1000002 BFIELD 1071 *1000003 BLOCK 1088 *1000004 DO 1119 *1000005 FIELD 1134 *1000006 FINAL 1265 *1000007 GOTO 1334 *1000008 IF 1359 *1000009 IFANY 1410 *1000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MEXIT *1002581 .SHL ANOP *1002582 &$DIR SETC 'L' *1002583 AGO .BACK *1002584 .CALL ANOP *1002585 &NAME XCALL &THING *1002586 MEXIT *1002587 .SCALL ANOP *1002588 &NAME XCALL &THING,S *1002589 MEND *1002590 -FILE 313; 1 RECORDS: 0CAN'T FIND B01B08 IN DON'S FILES........ B1800001 ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ -FILE 314; 47 RECORDS: 0ILOG TITLE 'LOGICAL FUNCTIONS FOR MAD7' ILOG0001 ILOG CSECT ILOG0002 ENTRY ICOMPL,IAND,IOR,IPACK,BF$SF ILOG0003 SPACE 3 ILOG0004 USING *,15 ILOG0005 ICOMPL L 1,0(1) ILOG0006 L 0,0(1) ILOG0007 X 0,=F'-1' ILOG0008 SR 15,15 ILOG0009 BR 14 ILOG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENTRY XMAD,BF$S3,BF$II,ITIME ILOG0038 XMAD BR 14 ILOG0039 ITIME LA 0,1234 ILOG0040 BR 14 ILOG0041 BF$S3 SR 15,15 ILOG0042 BR 14 ILOG0043 BF$II SR 15,15 ILOG0044 BR 14 ILOG0045 SPACE 3 ILOG0046 END ILOG0047 -FILE 315; 63 RECORDS: 0 INTEGER FUNCTION W(II) FNFC0001 IMPLICIT INTEGER (A-Z) FNFC0002 COMMON /TYPEBL/ QQSV(21),ISTACK FNFC0003 COMMON PROG(1) FNFC0004 I1=2*II FNFC0005 IF(I1 .LT.1 .OR. I1 .GE. ISTACK) CALL MESS(4001) FNFC0006 W=PROG(I1) FNFC0007 RETURN FNFC0008 END FNFC0009 REAL FUNCTION FW(II) FNFC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> INTEGER FUNCTION S23(I2) FNFC0054 IMPLICIT INTEGER (A-Z) FNFC0055 COMMON PROG(1) FNFC0056 COMMON /TYPEBL/ QQSV(21),ISTACK FNFC0057 I1=2*I2-1 FNFC0058 IF(I1.LT.1.OR.I1.GE.ISTACK)CALL MESS(4001) FNFC0059 K=PROG(I1) FNFC0060 S23=K-(K/65536)*65536 FNFC0061 RETURN FNFC0062 END FNFC0063 -FILE 316; 40 RECORDS: 0FUDGE START 0 FDGE0001 USING *,15 FDGE0002 STM 0,14,REGS FDGE0003 STM 14,12,12(13) FDGE0004 LR 12,15 FDGE0005 DROP 15 FDGE0006 USING FUDGE,12 FDGE0007 ST 13,SA+4 FDGE0008 LA 13,SA FDGE0009 LM 3,5,BXLEC FDGE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CODE LM 0,14,12(14) FDGE0031 LA 15,4 FDGE0032 BR 14 FDGE0033 GR14O EQU 12+4*14+1 FDGE0034 LCODE EQU 12+4*15 FDGE0035 GR14S EQU REGS+4*14+1 FDGE0036 DS 0F FDGE0037 AREA DC 25XL(LCODE)'0' FDGE0038 EAREA EQU *-1 FDGE0039 END FDGE0040 -FILE 317; 4732 RECORDS: 0 BLOCK DATA FDGE0041 C C O M M O N V A R I A B L E S FDGE0042 IMPLICIT INTEGER (A-Z) FDGE0043 COMMON /TYPEBL/ FDGE0044 * REA ,INTE ,BOO ,RADR ,IADR , FDGE0045 * BADR ,RPADR ,IPADR ,BPADR ,RARR ,IARR , FDGE0046 * BARR ,RPROC ,IPROC ,BPROC ,LABE ,FORMSW, FDGE0047 * SWITC ,PROCE ,IMPSR ,STRIN , FDGE0048 *ISTACK,DISPLA,OP,PPI,QI,PP,IA,AP,PN,PM,PS,MPRIME FDGE0049 DIMENSION DISPLA(64) FDGE0050 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GO TO 1001 FDGE4763 C CFZ = 2 FDGE4764 2 I = I - 3 FDGE4765 1001 M = 0 FDGE4766 GO TO 1002 FDGE4767 C CF = 3 FDGE4768 3 I = I - 4 FDGE4769 IF (IA .GT. PROGSZ) ARITH = I FDGE4770 1002 CALL GO(M) FDGE4771 L1 = FUDGE(&1003) FDGE4772 -FILE 318; 1158 RECORDS: 0 SUBROUTINE CONTRL(IOPC) B1B80001 IMPLICIT INTEGER (A-Z) B1B80002 COMMON PROG(1) B1B80003 COMMON /TYPEBL/ B1B80004 * REAL ,INTEG ,BOOL ,RADR ,IADR , B1B80005 * BADR ,RPADR ,IPADR ,BPADR ,RARR ,IARR , B1B80006 * BARR ,RPROC ,IPROC ,BPROC ,LABEL ,FORMSW, B1B80007 * SWITCH ,PROC ,IMPSR ,STRING , B1B80008 *ISTACK,DISPLA,OP,P,I,PP,IA,AP, N,M,S, MPRIME B1B80009 DIMENSION DISPLA(64) B1B80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CALL WS(PP-1,W(AP-1)) B1B81149 ARITH = FNL(NL) B1B81150 IA = DNL(NL) B1B81151 3000 I = H1(PP+2) B1B81152 IRET = H2(PP+2) B1B81153 NL = NL - 1 B1B81154 CALL LEAVE B1B81155 GO TO IRET,(720) B1B81156 3001 RETURN B1B81157 END B1B81158 -FILE 319; 2288 RECORDS: 0*ONLY YOU SDS00001 *CAN PREVENT PROGRAM INTERRUPTS SDS00002 TITLE 'SDS INITIALIZATION' SDS00003 * SDS00004 * ********************************************************** SDS00005 * * * SDS00006 * * SYMBOLIC DEBUGGING SYSTEM - COMMUNICATIONS MODULE * SDS00007 * * * SDS00008 * ********************************************************** SDS00009 * SDS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * SDS02279 PSTE FR0,FREGS,8,11 SDS02280 PSTE FR2,FREGS+2*4,8,11 SDS02281 PSTE FR4,FREGS+4*4,8,11 SDS02282 PSTE FR6,FREGS+6*4,8,11 SDS02283 PSTE GRS,REGISTRS,4,12 SDS02284 PSTE FRS,FREGS,8,13 SDS02285 PSTE PSW,PSW,8,14 SDS02286 DC X'00000000' SDS02287 END SDS02288 -FILE 320; 1511 RECORDS: 0 TITLE 'CONTROL FUNCTION MODULE' FNC00001 * FNC00002 * ********************************************************** FNC00003 * * * FNC00004 * * SDS CONTROL FUNCTION MODULE * FNC00005 * * * FNC00006 * ********************************************************** FNC00007 * FNC00008 * THIS IS THE SDS FUNCTION MODULE. IT CONTAINS PROCEDURES FNC00009 * TO CARRY OUT EACH OF THE SDS COMMANDS. FNC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CSLINK DS XL3 POINTER TO CONTINUED CSECT FNC01502 * FNC01503 MAPENTRY DSECT MAP ENTRY FOR SDS MAP FNC01504 LOADADD DS XL3 LOADED ADDRESS FNC01505 RELOC DS XL3 RELOCATION FACTOR FNC01506 LCSECT DS XL3 LENGTH FOR THIS CSECT FNC01507 CSNAME DS CL8 CSECT NAME FNC01508 SKEY DS X MAP FLAG BYTE FNC01509 STPTR DS XL3 PTR TO START OF CSECT IN SYMBOL TABLE FNC01510 END FNC01511 -FILE 321; 611 RECORDS: 0 TITLE 'EDITOR' ED000001 * ED000002 * ********************************************************** ED000003 * * * ED000004 * * SDS EDITOR ROUTINE * ED000005 * * * ED000006 * ********************************************************** ED000007 * ED000008 * ED000009 * ED000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSING COMMENT '-***MISSING SYM OR ESD CARDS.' ED000602 B TDEXIT ED000603 MSEND COMMENT '-***MISSING END CARD IN OBJECT FILE.' ED000604 B TDEXIT ED000605 * ED000606 PUNT COMMENT '***SYSTEM ERROR.' ED000607 ERROR ED000608 * ED000609 INPUT DS 256C INPUT REGION ED000610 END ED000611 -FILE 322; 1 RECORDS: 0* ANOTHER MISSING FILE....... IOC00001 ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ -FILE 323; 364 RECORDS: 0 EJECT DSCT0001 * ********************************************************** DSCT0002 * * * DSCT0003 * * COMMUNICATION AREA * DSCT0004 * * * DSCT0005 * ********************************************************** DSCT0006 * DSCT0007 DS 0D DSCT0008 SAVEAREA DS 19F PRIMARY SAVE AREA DSCT0009 SAVEARE2 DS 19F SECONDARY SAVE AREA DSCT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PDVAL DS CL4 VALUE DSCT0355 PDLEN DS CL2 IBM LENGTH DSCT0356 PDTYP DS CL1 TYPE CODE DSCT0357 LPSTE EQU *-PDSTE LENGTH FOR PREDEFINED SYMTAB ENTRY DSCT0358 * DSCT0359 ATDS DSECT DSECT FOR AT-TABLE ENTRY DSCT0360 ATADRS DS A LOADED ADDRESS OF BREAKPOINT DSCT0361 CARAD DS A POINTER TO COMMAND IN COMMAND TABLE DSCT0362 LATENT EQU *-ATDS LENGTH FOR AT-TABLE ENTRY DSCT0363 EJECT DSCT0364 -FILE 324; 364 RECORDS: 0COMMENT 100 MAC00001 FETCH 105 MAC00002 GTSPC 110 MAC00003 TERM 115 MAC00004 XPAND 120 MAC00005 READ 130 MAC00006 LOAD 140 MAC00007 SMAP 145 MAC00008 WR 150 MAC00009 NBC 155 MAC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GBLC &SAVLOC MAC00355 &LABEL L LINK,&SAVLOC MAC00356 L BASE2,&SAVLOC+4 MAC00357 AIF (T'&MODE EQ 'O').B2 MAC00358 AIF ('&MODE'(1,1) EQ 'F').B4 MAC00359 .B2 B 4(0,LINK) MAC00360 &SAVLOC DS 2A MAC00361 MEXIT MAC00362 .B4 BR LINK MAC00363 MEND MAC00364 -FILE 325; 874 RECORDS: 0IOC TITLE 'I/O CONVERSION' IOC00001 * INOUT / OUTPUT CONTROL PACKAGE. IOC00002 * THIS SUB-LIBRARY CONATINS ALL THE SDS IOC00003 * INPUT / OUTPUT CONVERSION ROUTINES. IOC00004 * IOC00005 IOC CSECT IOC00006 PRINT NOGEN IOC00007 USING *,BASE COVER IOC IOC00008 USING LINKMOD,CHAIN COVER FOR SDSDSECT IOC00009 ENTRY FIXED IOC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BLR LINK YES - CONTINUE IOC00865 ST LINK,BFRLINK SAVE LINK ADDRESS IOC00866 BAL LINK,CLOSE DO A CLOSE IOC00867 L LINK,BFRLINK RETRIEVE LINK ADDRESS IOC00868 BR LINK IOC00869 * IOC00870 BFRLINK DS A IOC00871 * IOC00872 IOCSAVE DS 16F IOC TRANSFER SAVE AREA IOC00873 END IOC00874 -FILE 326; 1363 RECORDS: 0CVTH TITLE 'FORTRAN I/O CONVERSION MODULE' FCV00001 ADCON# START 0 FCV00002 EXTRN IBCOM# FCV00003 * THESE ENTRY POINTS ARE A TEMPORARY EXPEDIENT TO MAINTAIN FCV00004 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE. FCV00005 ENTRY FCVEO FCV00006 ENTRY FCVLO FCV00007 ENTRY FCVIO FCV00008 ENTRY FCVCO FCV00009 ENTRY FCVAO FCV00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MOVEX MVC 0(1,GRY),0(GRX) ITEM TO BUFFER FCV01354 CHRMOV MVC 0(1,GRY),0(CHRSAV) MOVE FROM CONVERT AREA FCV01355 CONONE EQU ONE FCV01356 CONFOR EQU FOU FCV01357 GFSWCH DC AL1(0) FLOATING DECIMAL SWITCH FCV01358 CGSWCH DC AL1(0) G-OUTPUT SWITCH FCV01359 DECIM DC C'0123456789ABCDEF' OUTPUT TRANSLATION TABLE FCV01360 ZERPNT DC C' 0.0' FCV01361 SPACE 3 FCV01362 END FCV01363 -FILE 327; 1292 RECORDS: 0ICOM TITLE 'FORTRAN I/O INTERFACE MODULE' ICOM0001 IBCOM# START 0 ICOM0002 EXTRN ADCON# ICOM0003 EXTRN FIOCS# ICOM0004 * THESE EXTERNAL REFERENCES ARE A TEMPORARY EXPEDIENT TO MAINTAIN ICOM0005 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE. ICOM0006 EXTRN FCVEO ICOM0007 EXTRN FCVLO ICOM0008 EXTRN FCVIO ICOM0009 EXTRN FCVCO ICOM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC H'282',C'EF',C'CDEXP ABS(IMAG(ARG)) >= 2**50*PI ' ICOM1283 DC H'283',C'EF',C'CDLOG ARGUMENT ZERO ' ICOM1284 DC H'284',C'EF',C'CDSIN/CDCOS ABS(REAL(ARG)) >= 2**50*PI ' ICOM1285 DC H'285',C'EF',C'CDSIN/CDCOS ABS(IMAG(ARG)) > 174.673 ' ICOM1286 DC H'290',C'EF',C'GAMMA RANGE IS 2**-252 < ARG < 57.5744 ' ICOM1287 DC H'291',C'EF',C'ALGAMA RANGE IS 0 < ARG < 4.2937E+73 ' ICOM1288 DC H'300',C'EF',C'DGAMMA RANGE IS 2**-252 < ARG < 57.5744 ' ICOM1289 IHCLAST DC H'301',C'EF',C'DLGAMA RANGE IS 0 < ARG < 4.2937E+73 ' ICOM1290 * ICOM1291 END ICOM1292 -FILE 328; 776 RECORDS: 0FIO TITLE 'FFORTRAN/MTS I/O INTERFACE MODULE' FIO00001 FIOCS# START 0 FIO00002 * ***** REGISTER ASSIGNMENTS ***** FIO00003 GRX EQU 2 FIO00004 GRY EQU 3 FIO00005 WKA EQU 4 FIO00006 WKB EQU 5 FIO00007 UATER EQU 6 FIO00008 BASE EQU 7 FIO00009 GRS EQU 7 FIO00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FLAGS EQU READVCON FIO00767 DEVFLG EQU RITEVCON FIO00768 LINE# DS F FIO00769 RECLENI DS H FIO00770 RECLENO DS H FIO00771 LASTINIT DS F FIO00772 FQUALS EQU LASTINIT FIO00773 BUFADDR DS F FIO00774 STARECNT EQU BUFADDR FIO00775 END FIO00776 -FILE 329; 796 RECORDS: 0NAME TITLE 'MTS FORTRAN VERSION OF IHCNAMEL' NAME0001 IHCNAMEL START 0 NAMELIST I/O ROUTINES NAME0002 ENTRY FRDNL# NAME0003 ENTRY FWRNL# NAME0004 EXTRN IBCOM# NAME0005 EXTRN ADCON# NAME0006 EXTRN FIOCS# NAME0007 * NAME0008 * STATUS - CHANGE LEVEL 4 NAME0009 * NAME0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NOSWCH DC AL1(0) NUMBER SWITCH NAME0787 VSUBSW DC AL1(0) SUBSCRIPTED VARIABLE NAME0788 COMPSW DC AL1(0) FIRST COMMA SWITCH NAME0789 HEXSW DC AL1(0) HEXADECIMAL INPUT NAME0790 QSTOP DC AL1(0) LAST QUOTE SWITCH NAME0791 QUOTE DC AL1(0) QUOTE OR COMMERCIAL AT NAME0792 ENDSW DC AL1(0) &END SWITCH NAME0793 DS 250C NAME0794 * NAME0795 END NAME0796 -FILE 330; 780 RECORDS: 0DBUG TITLE 'MTS FORTRAN VERSION OF IHCDBUG' DBUG0001 IHCDBUG START DBUG0002 ENTRY DEBUG# DBUG0003 EXTRN IHCUATBL DBUG0004 EXTRN FIOCS# DBUG0005 *********************************************************************** DBUG0006 *STATUS/CHANGE LEVEL 0000 DBUG0007 * DBUG0008 *FUNCTION/OPERATION. IHCDBUG IS A MEMBER OF THE FORTRAN IV (G) DBUG0009 * OBJECT LIBRARY (SYS1.FORTLIB). IT SUPPORTS THE DEBUG LANGUAGE DBUG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE DBUG0771 EXPONTBL DC X'000102030405060708090A141E28323C46' DBUG0772 TRACFLAG DC XL1'00' DBUG0773 DATATYPE DC XL1'00' DBUG0774 IOFLAG DC XL1'00' DBUG0775 TEMPFLAG DS XL1 DBUG0776 SWITCH DS XL1 DBUG0777 EXPLETER DS C DBUG0778 SPACE 10 DBUG0779 END DBUG0780 -FILE 331; 520 RECORDS: 0./ ADD IEMAS,01,0,0,01011416 84000000 IEMAS CSECT 73600013 EJECT 73640013 EJECT 73680013 * ROOT PHASE, TRANSFER VECTOR EQUATES 73720013 ROOTPH EQU X'06' 73760013 CLSBUF EQU ROOTPH+4 73800013 COMENT EQU CLSBUF+4 73840013 COMEND EQU COMENT+4 73880013 FREVAL EQU COMEND+4 73920013 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * 94040013 * PUSHDOWN LIST CODES 94080013 * 94120013 PCTHEN EQU 0 94160013 PCELSE EQU 1 94200013 PCPROC EQU 2 94240013 PCGRDO EQU 3 94280013 PCITDO EQU 4 94320013 PC1PDO EQU 5 94360013 ./ ENDUP -FILE 332; 2667 RECORDS: 0AA TITLE 'IEMAA,RESIDENT CONTROL PHASE,COMPILER CONTROL,MTS/360 PCMAA00001 L/I COMPILER(F)' MAA00002 * MAA00003 * STATUS - CHANGE LEVEL 0 MAA00004 * MAA00005 * MAA00006 * FUNCTIONS - 1)COMPILER INITIALISATION. IEMAB IS LOADED MAA00007 * IN ORDER TO PERFORM THIS FUNCTION MAA00008 * 2)CHARACTER TRANSLATION. EBCIDIC OR BCD TO MAA00009 * INTERNAL AND BACK TO EXTERNAL. THE RELEVANT TABLE IS SUPPLIED MAA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PERRSW EQU 189 MAA02658 * MAA02659 * THIS EQUATE IS FOR THE FIRST CARD READ BY THE INITIALISR MAA02660 * MAA02661 READSL EQU 500 MAA02662 * MAA02663 * THIS EQUATE IS FOR MTS SVC MAA02664 * MAA02665 GETELT EQU 38 MAA02666 END IEMAA MAA02667 -FILE 333; 196 RECORDS: 0LOAD TITLE ' SPEEDY LOADER FOR PL/I COMPILER' LDR00001 * PARAMETER LIST LDR00002 * DC A(PHASE DIRECTORY ENTRY) LDR00003 * DC A(FDUB OF PL1LINKLIBX) LDR00004 * DC A(LINNR) LINE NUMBER TO START WITH LDR00005 * LDR00006 LOADER CSECT LDR00007 USING LOADER,10 LDR00008 STM 14,12,12(13) SAVE REGS LDR00009 LR 10,15 BASE IT LDR00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(LINNR) LDR00187 DC A(FDUB) LDR00188 PARMLIST DC A(0) LDR00189 FOUR DC F'4' LDR00190 F240 DC F'240' LDR00191 SA DS 18F LDR00192 DS 0F LDR00193 CARD DS CL256 LDR00194 LTORG LDR00195 END LDR00196 -FILE 334; 2964 RECORDS: 0AB TITLE 'IEMAB,INITIALISING PHASE,COMPILER CONTROL,MTS/360 PL/I CMAB00001 COMPILER(F)' MAB00002 MACRO MAB00003 &L XPRINT &LEN,® MAB00004 &L DS 0H MAB00005 AIF (T'&LEN EQ 'O').NOLEN MAB00006 LA 15,&LEN MAB00007 .NOLEN STH 15,HLEN MAB00008 LA 15,® MAB00009 ST 15,SPRTPARM MAB00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BL EQU 4 MAB02955 BM EQU 4 MAB02956 BNE EQU 7 MAB02957 BE EQU 8 MAB02958 BZ EQU 8 MAB02959 BR EQU 15 MAB02960 B EQU 15 MAB02961 BLDLOF EQU X'84' OFFSET OF BLDL ROUTINE IN MTS MAB02962 TOD EQU 28 MAB02963 END IEMAB MAB02964 -FILE 335; 273 RECORDS: 0 MACRO MAF00001 ERROR &A,&B,&C MAF00002 MNOTE 8,'&A = ''&B'' IS ILLEGALLY SPECIFIED. ''&C'' IS ASSUMEDXMAF00003 .' MAF00004 MEND MAF00005 MACRO MAF00006 PL1 &DESIGN=F,&PUNCH=NODECK,&TYPERUN=LOAD,&SORCODE=EBCDIC, XMAF00007 &SIZE=73728,&OBJLIST=NOLIST,&MSGLEV=FLAGW,&OPT=1, XMAF00008 &SORLIST=SOURCE,&CHARSET=CHAR60,&EXTLIST=NOEXTREF, XMAF00009 &ATRLIST=NOATR,&SORMGIN=(2,72),&LINECNT=50,&PAGECTL=0, XMAF00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC B'&B(65).&B(66).&B(67).&B(68).&B(69).&B(70).&B(71).&B(72XMAF00264 ).&B(73).&B(74).&B(75).&B(76).&B(77).&B(78).&B(79).&B(80XMAF00265 )' MAF00266 DC B'&B(81).&B(82).&B(83).&B(84).&B(85).&B(86).&B(87).&B(88XMAF00267 ).&B(89).&B(90).&B(91).&B(92).&B(93).&B(94).&B(95).&B(96XMAF00268 )' MAF00269 MEND MAF00270 PL1 VERSION=3,SORMGIN=(1,72),LIBRARY=COMPLEX,ATRLIST=ATR,LINECNT=60, XMAF00271 REFLIST=XREF,SIZE=4096,DELETE=(M91) MAF00272 END MAF00273 -FILE 336; 221 RECORDS: 0AE TITLE 'IEMAE,CLEAN-UP AFTER READIN,COMPILER CONTROL,MTS/360 PLCMAE00001 /I COMPILER(F)' MAE00002 * MAE00003 * STATUS - CHANGE LEVEL 0 MAE00004 * MAE00005 * FUNCTIONS-1)OPEN SYSLIN AND SYSPUNCH IF REQUIRED MAE00006 * 2)CLOSE LAST INPUT DCB MAE00007 * 3)DELETE IEMAC IF NECESSARY MAE00008 * 4)EXPAND FROM 2 TO 4 TEXT AND DICTIONARY BLKS MAE00009 * IF NECESSARY MAE00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NOP EQU 0 MAE00212 BO EQU 1 MAE00213 BE EQU 8 MAE00214 BNE EQU 7 MAE00215 BZ EQU 8 MAE00216 BH EQU 2 MAE00217 B EQU 15 MAE00218 BR EQU 15 MAE00219 BNO EQU 12 MAE00220 END IEMAE MAE00221 -FILE 337; 381 RECORDS: 0AK TITLE 'IEMAK, CLOSING PHASE, COMPILER CONTROL,MTS/360 PL/1(F)' MAK00001 *1410322000,354000 1681 MAK00002 EJECT MAK00003 IEMAK START 0 MAK00004 USING *,BASE MAK00005 * MAK00006 * MAK00007 * INITIALISE AK MAK00008 * MAK00009 STM 14,12,12(13) SAVE AA REGISTERS MAK00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PROCES DC C'PROCESS' MAK00372 BLANK DC C' ' MAK00373 DELPHS DC CL8'IEM' MAK00374 ONEPK DC X'00001F' MAK00375 VFREE DC V(FREESPAC) MAK00376 STUFF DC 2F'0' MAK00377 EPIEMAD DC A(IEMAD,0,0) FOR DELETING IEMAD MAK00378 IEMAD DC CL8'*IEMAD' NAME OF FILE MAK00379 GETELT EQU 38 AN MTS SVC MAK00380 END MAK00381 -FILE 338; 166 RECORDS: 0JZ TITLE 'IEMJZ,SECOND HALF PHASE DIRECTORY,OS/360 PL/1(F)' MJZ00001 * MJZ00002 * STATUS-CHANGE LEVEL 0 MJZ00003 * MJZ00004 * MJZ00005 * FUNCTIONS- 1)CONSTRUCTS A BUILD LIST OF PHASES IN THE MJZ00006 * SECOND HALF OF THE COMPILER MJZ00007 * 2)ISSUES A BLDL ON THIS LIST MJZ00008 * 3)RECONSTRUCTS THE PHASE DIRECTORY FOR THE MJZ00009 * SECOND HALF OF THE COMPILER MJZ00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MJZ00157 MYNAM EQU 112 MJZ00158 PAR1 EQU 128 MJZ00159 PAR2 EQU PAR1+4 MJZ00160 SCNOF EQU 184 MJZ00161 SECHF EQU 185 MJZ00162 ERCODE EQU 224 MJZ00163 CCCODE EQU 232 MJZ00164 SPACE MJZ00165 END IEMJZ MJZ00166 -FILE 339; 195 RECORDS: 0XB TITLE 'IEMXB, CONSTRUCT BUILD LIST OF ERROR PHASES,PL/1F' MXB00001 EJECT MXB00002 * MXB00003 * FUNCTION 1) CONSTRUCT A BUILD LIST OF PHASES IN THE MXB00004 * ERROR MESSAGE LOGICAL PHASE MXB00005 * 2) ISSUE A BLDL FOR THIS LIST MXB00006 * 3) RECONSTRUCT THE PHASE DIRECTORY FOR THE MXB00007 * ERROR MESSAGE PHASES MXB00008 * MXB00009 * INPUT ) PHASE LIST IN THIS PHASE MXB00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MXB00186 PDOF EQU 28 MXB00187 * MXB00188 * COMMUNICATION REGION EQUATES MXB00189 * MXB00190 PAR1 EQU 128 MXB00191 SCNOF EQU 184 MXB00192 ERCODE EQU 224 MXB00193 SPACE MXB00194 END IEMXB MXB00195 -FILE 340; 185 RECORDS: 0)ERR PLMC0001 MACRO PLMC0002 &LAB ERR &MS,&SV,&LC,&DR,&NP,&TXT,&LNG,&CD PLMC0003 AIF (K'&LAB EQ 0).STRT PLMC0004 &LAB DS 0H PLMC0005 .STRT ANOP PLMC0006 AIF (K'&MS NE 0).BEG PLMC0007 DC X'0000' PLMC0008 MNOTE 3,' ERR MUST HAVE MESSAGE NUMBER ' PLMC0009 AGO .LAB2 PLMC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> )POP1 PLMC0176 MACRO PLMC0177 &NAME POP1 PLMC0178 &NAME SH GRC,XXH4 PLMC0179 MEND PLMC0180 )PUSH1 PLMC0181 MACRO PLMC0182 &NAME PUSH1 PLMC0183 &NAME LA GRC,4(GRC) PUSH A WORD ONTO PDS PLMC0184 MEND PLMC0185 -FILE 341; 25956 RECORDS: 0./ ADD IEMAC,01,0,0,03011445 84000000 AC TITLE 'IEMAC,INTERMEDIATE FILE CONTROL,COMPILER CONTROL,OS/360C00700013 PL/I COMPILER(F)' 01400013 * 02100013 * STATUS - CHANGE LEVEL 0 02800013 * 03500013 * FUNCTIONS-1)WRITE OUT RECORDS ONTO SYSUT3 04200013 * 2)WHEN LAST RECORD WRITTEN,LOAD IEMAG TO 04900013 * ACHIEVE FILE SWITCHING 05600013 * 06300013 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 83000013 M3901 DC AL2(E3901-M3901-2) 84000013 DC C' ERROR IN PROCES' 85000013 DC C'S STATEMENT. DEF' 86000013 DC C'AULT OPTION IS A' 87000013 DC C'SSUMED. ' 88000013 E3901 DC X'10' 89000013 SPACE 90000013 END IEMYY 91000013 ./ ENDUP -FILE 342; 703 RECORDS: 0ERR 01000 LBMC0001 INVK 01052 LBMC0002 MVW 01065 LBMC0003 NSTAT 01071 LBMC0004 NSTA2 01078 LBMC0005 OSTAT 01083 LBMC0006 OSTA2 01090 LBMC0007 OUTDA 01095 LBMC0008 POP 01142 LBMC0009 PUSH 01147 LBMC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MTSLNR DS F LINE NUMBER LBMC0694 MTSFDB DS F FDUB LBMC0695 MTSBUF DS F BUFFER ADDR LBMC0696 MTSCBP DS F CURRENT BUFFER POINTER LBMC0697 MTSEOB DS F END OF BLOCK ADDR LBMC0698 MTSNAM DS 32C NAME OF FILE LBMC0699 MTSWRK DS 20F WORK AREA FOR ROUTINES LBMC0700 MTSEND EQU * LBMC0701 MEND LBMC0702 $TERM LBMC0703 -FILE 343; 978 RECORDS: 0./ ADD IHESAPA,01,0,0,03011420 SAPA0001 SAP3 TITLE ' IHESAP STORAGE ALLOCATION PROGRAM. OS/360 PL/I LIBRAR*SAPA0002 Y.' SAPA0003 * VERSION THIRD VERSION OF F-LEVEL PL/1 COMPILER SAPA0004 * SAPA0005 * STATUS CHANGE LEVEL 0 SAPA0006 * SAPA0007 * SIZE BYTES SAPA0008 * SAPA0009 * FUNCTION TO ALLOCATE AND FREE DYNAMIC STORAGE AND PERFORM OBJECT SAPA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(SAF18) SAPA0969 DC A(SAFCR) SAPA0970 DC A(SAP04) 1ST TABLE3 ENTRY SAPA0971 DC A(SAPAC) SAPA0972 DC A(SAP04) SAPA0973 DC A(SAPAC) SAPA0974 * SAPA0975 ASADF DC A(IHESADF) SAPA0976 END IHESAPA SAPA0977 ./ ENDUP SAPA0978 -FILE 344; 91 RECORDS: 0DUM3 TITLE ' IHEDUM DUMP MODULE *DUMP0001 OS/360 PL/I LIBRARY' DUMP0002 * VERSION THIRD VERSION OF F-LEVEL PL/1 COMPILER DUMP0003 * DUMP0004 * STATUS CHANGE LEVEL - 3 DUMP0005 * DUMP0006 * SIZE 142 BYTES DUMP0007 * DUMP0008 * FUNCTION DUMP0009 * TERMINATE ABNORMALLY WITH DUMP DUMP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> VZZA DC C'*IHEZZA ' DUMP0082 DS 0A DUMP0083 PARM DC QL2(IHEQLCA) DUMP0084 DC QL2(IHEQFOP) DUMP0085 DC QL2(IHEQSPR) DUMP0086 DC QL2(IHEQCFL) DUMP0087 DC V(IHEDMAA) DUMP0088 DC QL2(IHEQINV) DUMP0089 SA DS 20F DUMP0090 END DUMP0091 -FILE 345; 390 RECORDS: 0ZZA TITLE ' IHEZZA - FIRST PART OF ABDUMP INDEX /ZZA00001 OS/360 PL/I LIBRARY' ZZA00002 * VERSION THIRD VERSION OF F-LEVEL PL/I COMPILER ZZA00003 * ZZA00004 * STATUS CHANGE LEVEL - 3 ZZA00005 * ZZA00006 * SIZE 1312 BYTES ZZA00007 * ZZA00008 * FUNCTION TO INITIALIZE THE FILE SYSABEND (OR SYSUDUMP) AND OUTPUT ZZA00009 * 1. THE CONTENTS OF THE SYSPRINT BUFFERS. ZZA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> H008 DC H'8' ZZA00381 H132 DC H'132' ZZA00382 H255 DC H'255' ZZA00383 SPACE 4 ZZA00384 VZZB DC V(IHEZZBA) ZZA00385 VGET DC V(GETSPACE) ZZA00386 VFREE DC V(FREESPAC) ZZA00387 VSERCOM DC V(SERCOM) ZZA00388 VPGNTTRP DC V(PGNTTRP) ZZA00389 END ZZA00390 -FILE 346; 518 RECORDS: 0ZZB TITLE ' IHEZZB - SECOND PART OF ABDUMP INDEX /ZZB00001 OS/360 PL/I LIBRARY' ZZB00002 * VERSION THIRD VERSION OF F-LEVEL PL/I COMPILER ZZB00003 * ZZB00004 * STATUS CHANGE LEVEL - 3 ZZB00005 * ZZB00006 * SIZE 1700 BYTES ZZB00007 * ZZB00008 * FUNCTION TO OUTPUT THE SAVE AREA TRACE BACK. ZZB00009 * ZZB00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CAST DC C'- ***' ZZB00509 H008 DC H'8' ZZB00510 H024 DC H'24' ZZB00511 H016 DC H'16' ZZB00512 SPACE 4 ZZB00513 VGET DC V(GETSPACE) ZZB00514 VFREE DC V(FREESPAC) ZZB00515 VSERCOM DC V(SERCOM) ZZB00516 VPGNTTRP DC V(PGNTTRP) ZZB00517 END ZZB00518 -FILE 347; 18 RECORDS: 0SPRT TITLE ' IHESPRINT IF NOT PROVIDED BY THE USER' SPRT0001 IHEQSPR DXD A SPRT0002 * LIBRARY PROVIDED CSECT FOR DECLARE CONTROL BLOCK FOR SPRT0003 * SYSPRINT FILE (THIS CSECT WILL BE REPLACED BY LINKAGE PROCESS SPRT0004 * IF SYSPRINT IS DECLARED EXPLICITLY OR IMPLICITLY BY SPRT0005 * COMPILED CODE) SPRT0006 SPACE 2 SPRT0007 IHESPRT CSECT SPRT0008 DC QL2(IHEQSPR) SPRT0009 DC X'10' SPRT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'2' SPRT0011 DC 3H'0' SPRT0012 DC X'0' SPRT0013 DC X'04' SPRT0014 DC 6H'0' SPRT0015 DC AL1(7) SPRT0016 DC C'SYSPRINT' SPRT0017 END SPRT0018 -FILE 348; 157 RECORDS: 0PRT TITLE ' IHEPRT COPY.ERROR MESSAGE PRINTER ' PRT00001 IHEPRT CSECT PRT00002 IHEZAP PRT00003 IHELIB PRT00004 PRTSAVE DSECT PRT00005 DS 17F PRT00006 WPFL DS B PRT00007 DS 2A CFL SLOT PRT00008 LSAV EQU *-PRTSAVE PRT00009 SPACE 3 PRT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(OPNS) PRT00148 DC 5A(0) PRT00149 DC X'80' PRT00150 DC AL3(0) PRT00151 SPACE 2 PRT00152 * SPECIAL OPEN CONTROL BLANK (OCB) FOR CALL TO IHEOCL. PRT00153 SPACE PRT00154 OPNS DC B'01000000' INDICATE CALL FROM IHEPRT. PRT00155 DC AL3(0) PRT00156 END PRT00157 -FILE 349; 73 RECORDS: 0OST TITLE ' IHEOST TIME ROUTINE *OST00001 OS/360 PL/I LIBRARY' OST00002 * VERSION SECOND VERSION OF F-LEVEL PL/1 COMPILER OST00003 * OST00004 * STATUS CHANGE LEVEL - 0 OST00005 * OST00006 * SIZE 83 BYTES OST00007 * OST00008 * FUNCTION OST00009 * TO OBTAIN THE TIME OF DAY CONVERT TO CHARACTERS AND OST00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TIME OST00064 L RE,0(0,RE) RE CONTAINS ADDRESS OF SDV OST00065 L RE,0(0,RE) RE CONTAINS ADDRESS OF TARGET OST00066 STM R0,R1,72(DR) SAVE TIME OST00067 MVC 0(8,RE),72(DR) MOVE TOME INTO TARGET OST00068 L DR,4(DR) UPDATE DR OST00069 LM LR,PWR,OFLR(DR) RESTORE REGISTERS OST00070 BR LR OST00071 PWR EQU WR OST00072 END OST00073 -FILE 350; 20 RECORDS: 0OSD TITLE ' IHEOSD DATE ROUTINE ' OSD00001 IHEOSD CSECT OSD00002 IHELIB OSD00003 IHEOSD CSECT OSD00004 ENTRY IHEOSDA OSD00005 USING *,PWR-1 OSD00006 IHEOSDA STM LR,PWR,OFLR(DR) OSD00007 LR PWR-1,BR LOAD BASE REGISTER OSD00008 IHESDR LW0,RB OSD00009 LR RE,RA SAVE ADDR OF PARM.LIST OSD00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TIME OSD00011 L RE,0(0,RE) RE CONTAINS ADDRESS OF SDV OSD00012 L RE,0(0,RE) RE CONTAINS ADDR OF TARGET OSD00013 STM RB,RC,72(DR) SAVE DATE OSD00014 MVC 0(8,RE),72(DR) MOVE DATE INTO TARGET OSD00015 L DR,4(DR) UPDATE DR OSD00016 LM LR,PWR,OFLR(DR) OSD00017 BR LR OSD00018 PWR EQU WR OSD00019 END OSD00020 -FILE 351; 79 RECORDS: 0%INPUT IHEDSP(2) DSP00001 %OUTPUT -S DSP00002 %DELETE '46000013' '82800013' DSP00003 LR RE,RA SAVE PARAMETER POINTER DSP00004 L RB,0(RE) GET SDV OF MESSAGE DSP00005 L RA,0(RB) ADDR OF STRING DSP00006 LH R0,CURL(RB) AND LENGTH DSP00007 LTR R0,R0 IF ZERO DSP00008 BZ DZ000 MAYBE ERROR DSP00009 CH R0,H100 100 IS MAX. DSP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MVI EFL2,EMCP DSP00070 %DELETE '89600013' '90000013' DSP00071 DZ000 TM 0(RE),X'80' IS REPLY EXPECTED?? DSP00072 BO DSP05 IGNORE IF NOT DSP00073 %AFTER '94400013' DSP00074 MOVE MVC 0(*-*,BR),0(RA) DSP00075 %DELETE '96400013' DSP00076 VDSPW DC A(IHEDSPW) DSP00077 %BEFORE FILEMARK DSP00078 %END DSP00079 -FILE 352; 841 RECORDS: 0OPN TITLE 'IHEOPN OPEN XOPN00001 MTS/360 PL/I LIBRARY' OPN00002 SPACE 2 OPN00003 IHEOPN CSECT OPN00004 IHELIB OPN00005 IHEZAP OPN00006 IHEMTS OPN00007 SPACE 5 OPN00008 IHEQPAR DXD A OPN00009 IHEQITG DXD 2A OPN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ZERO DC F'0' OPN00832 FIVE DC F'5' OPN00833 IHEITG DC C'*IHEITG ' OPN00834 LTH DC H'0' OPN00835 PLIST#1 DC A(0,LTH,ZERO,LINNR,MSOURCE) OPN00836 PLIST#2 DC A(0,LTH,ZERO,LINNR,MSUNK) OPN00837 LINNR DC F'0' OPN00838 MSG DS 256C OPN00839 PATCH DS 20F OPN00840 END IHEOPNA OPN00841 -FILE 353; 112 RECORDS: 0GET TITLE ' GET/PUTX ROUTINES' GET00001 IHEGET CSECT GET00002 IHELIB GET00003 IHEZAP GET00004 IHEMTS GET00005 EJECT GET00006 IHEGET CSECT GET00007 USING IHEZAPE,RG GET00008 USING MTSDCB,RH GET00009 USING IHEGET,BR GET00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE GET00103 SYN LA BR,8 SET CODE = 8 GET00104 B OOPS GET00105 SPACE GET00106 X04X DC H'4' GET00107 X08X DC H'8' GET00108 SAVE DC 18F'0' GET00109 SPACE GET00110 PATCH DC 20F'0' GET00111 END GET00112 -FILE 354; 329 RECORDS: 0CLS TITLE 'IHECLS CLOSE /CLS00001 OS/360 PL/I LIBRARY' CLS00002 * VERSION THIRD VERSION OF F-LEVEL PL/1 COMPILER CLS00003 * CLS00004 *1411177000,331000-336000 0751 CLS00005 * STATUS CHANGE LEVEL - 0 CLS00006 * CLS00007 * SIZE 756 BYTES. CLS00008 * CLS00009 * FUNCTION CLOSE FILES. CLS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CWTM DC C'WTM' CLS00320 CREW DC C'REW' CLS00321 CTP DC C'TP' CLS00322 PATCH DC 20F'0' SOME FRIENDLY PATCH AREA CLS00323 SYNADM DC F'1' CLS00324 SUBPL DC X'01000000' CLS00325 X12X DC H'12' CLS00326 X04X DC H'04' CLS00327 X80X DC H'80' CLS00328 END IHECLSA CLS00329 -FILE 355; 120 RECORDS: 0ITA TITLE ' IHEITA INTERFACE WITH QSAM /ITA00001 OS/360 PL/I LIBRARY' ITA00002 * VERSION THIRD VERSION OF F-LEVEL PL/1 COMPILER ITA00003 * ITA00004 * PRIVATE MACROS ITA00005 * IHELIB,IHEPRV,IHESDR,IHEZAP ITA00006 * ITA00007 * ASSEMBLY REQUIREMENTS ITA00008 * MUST BE ASSEMBLED BY AN ASSEMBLER WITH PSEUDO-REGISTER ITA00009 * SUPPORT E.G. O/S 360 F-ASSEMBLER. ITA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'0003' ITA00111 SPACE 3 ITA00112 * CONSTANTS ITA00113 X04X DC H'4' ITA00114 PATCH DC 20F'0' ITA00115 SPACE ITA00116 VERRB DC V(IHEERRB) ITA00117 VERRC DC V(IHEERRC) EXEP (ERROR CONDITION) ITA00118 ERRA DC AL2(ERR0) * ITA00119 END ITA00120 -FILE 356; 243 RECORDS: 0IOF TITLE ' IHEIOF RECORD ACCESSOR /IOF00001 OS/360 PL/I LIBRARY' IOF00002 * VERSION THIRD VERSION OF F-LEVEL PL/1 COMPILER IOF00003 * IOF00004 *1416315000,726000-750000 1685 IOF00005 * STATUS CHANGE LEVEL - 0 IOF00006 * IOF00007 * SIZE 472 BYTES IOF00008 * IOF00009 * FUNCTION TO ACCESS, AND PREPARE, LOGICAL RECORD FOR INPUT/OUTPUT IOF00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * CONSTANTS IOF00234 SPACE IOF00235 PATCH DS 20F IOF00236 NOIS DC H'14',H'00' LITTLE LL ANTI-NOISE CAMPAIGNER IOF00237 H004 DC H'4' IOF00238 ERRA DC AL2(ERR1) IOF00239 HEPG DC AL2(MEPG) IOF00240 VERRB DC V(IHEERRB) IOF00241 IOFM2 MVC 0(*-*,RD),0(RC) IOF00242 END IHEIOF IOF00243 -FILE 357; 392 RECORDS: 0ITG TITLE ' IHEITG QSAM INTERFACE /ITG00001 OS/360 PL/I LIBRARY' ITG00002 * VERSION SECOND VERSION OF F-LEVEL PL/1 COMPILER ITG00003 * ITG00004 * STATUS CHANGE LEVEL - 0 ITG00005 * ITG00006 * SIZE ITG00007 * ITG00008 * FUNCTION PERFORM I/O INTERFACE BETWEEN PL/I AND DATA MANAGEMENT ITG00009 * ACCESS METHOD, QSAM, FOR RECORD I/O. USED IF FILE ITG00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERRC DC AL2(ERR3) ITG00383 ERRD DC AL2(ERR4) ITG00384 ERRE DC AL2(ERR5) ITG00385 ERRF DC AL2(ERR7) ITG00386 ERRG DC AL2(ERR8) ITG00387 H004 DC H'4' ITG00388 DS 0F ITG00389 XMSK DC X'80000000' ITG00390 ITGMM MVC 0(*-*,RH),0(RI) MOVER ITG00391 END ITG00392 -FILE 358; 1312 RECORDS: 0ERD TITLE ' IHEERD THIS SECTION OF ERN CONTAINS D/P MESSAGES *ESM00001 OS/360 PL/I LIBRARY' ESM00002 * VERSION SECOND VERSION OF F-LEVEL PL/1 COMPILER ESM00003 * ESM00004 * STATUS CHANGE LEVEL - 3 ESM00005 * ESM00006 * SIZE ESM00007 * ESM00008 * FUNCTION ESM00009 * CONSISTS OF MESSAGES PLUS TABLES FOR LOCATING THEM ESM00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'RECD' ESM01303 DC C'TMIT' ESM01304 DC C' ' ESM01305 DC C'KEY ' ESM01306 DC C'ENDP' ESM01307 DC C'ENDF' ESM01308 DC C' ' ESM01309 DC C'UNDF' ESM01310 PWR EQU WR ESM01311 END ESM01312 -FILE 359; 305 RECORDS: 0OCL TITLE 'IHEOCL OPEN/CLOSE BOOTSTRAP /OCL00001 OS/360 PL/I LIBRARY' OCL00002 * VERSION THIRD VERSION OF F-LEVEL PL/1 COMPILER OCL00003 * OCL00004 * STATUS CHANGE LEVEL - 0 OCL00005 * OCL00006 * SIZE 532 BYTES. OCL00007 * OCL00008 * FUNCTION BOOTSTRAP OCL00009 * THIS MODULE LINKS EITHER TO IHEOPN (OPEN) OCL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(VERS) THIRD RELEASE FLAG OCL00296 DC AL3(*+3) OCL00297 DC QL2(IHEQFOP) FCB CHAIN ANCHOR. OCL00298 DC QL2(IHEQLW3) OFFSET OF LW3. OCL00299 DC QL2(IHEQLW2) OFFSET OF LW2. OCL00300 DC QL2(IHEQLW1) OFFSET OF LW1. OCL00301 DC QL2(IHEQLCA) OFFSET OF LCA. OCL00302 DC QL2(IHEQERR) OFFSET OF ERR. OCL00303 DC QL2(IHEQLW0) OFFSET OF LW0. OCL00304 END OCL00305 -FILE 360; 82 RECORDS: 0PUT TITLE ' MTS PUT ROUTINE' PUT00001 IHEPUT CSECT PUT00002 IHELIB PUT00003 IHEZAP PUT00004 IHEMTS PUT00005 EJECT PUT00006 IHEPUT CSECT PUT00007 USING IHEZAPE,RG PUT00008 USING MTSDCB,RH PUT00009 STM LR,PR,OFLR(DR) SAVE REGS. PUT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L DR,OFDR(0,DR) RETURN PUT00073 LM LR,R0,OFLR(DR) PUT00074 LM RB,PR,OFRB(DR) PUT00075 XR BR,BR CLEAR THE RETURN CODE PUT00076 BR LR PUT00077 SPACE PUT00078 SAVE DC 18F'0' PUT00079 FOUR DC XL4'00040000' CONTROL BYTES FOR V-FORMAT PUT00080 PATCH DC 20F'0' PUT00081 END PUT00082 -FILE 361; 178 RECORDS: 0RDWT TITLE ' READ/WRITE RTNS FOR PL/I' RDWR0001 * DECLARATION FOR IHEREAD, IHERITE RDWR0002 * RDWR0003 * DECLARE IHEREAD ENTRY ( /*CHAR(*) VARYING*/, /*BUFFER*/ RDWR0004 * BIT (32) , /*MODIFIER*/ RDWR0005 * DEC FIXED (9,3), /*LINE NUMBER */ RDWR0006 * FILE /* FILENAME */ ) RDWR0007 * RDWR0008 PRINT NOGEN RDWR0009 IHEMTSIO CSECT RDWR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OFCF EQU 72 CURRENT FILE P.R. UPDATE CELL RDWR0169 MCFL EQU X'01' CURRENT FILE ACTIVE RDWR0170 SPACE RDWR0171 ENDFIL DC X'B800' ERROR CODE FOR ENDFILE RDWR0172 TOOBIG DC X'9001' RECORD TOO LARGE RDWR0173 UNSUPD DC X'0009' UNSUPPORTED FILE OPERATION RDWR0174 BADRD DC X'0000' ATTEMPT TO READ OUTPUT FILE RDWR0175 BADWT DC X'0001' ATTEMPT TO WRITE INPUT FILE RDWR0176 SPACE RDWR0177 END RDWR0178 -FILE 362; 26 RECORDS: 0USER TITLE ' USERID ROUTINE' USER0001 USERID CSECT USER0002 IHELIB USER0003 MYWORK DSECT USER0004 WORK DS F USER0005 SPACE USER0006 USERID CSECT USER0007 USING MYWORK,DR USER0008 USING USERID,WR USER0009 STM LR,WR,OFLR(DR) USER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ST RA,WORK USER0017 MVC 0(4,RC),WORK USER0018 LA RC,4 USER0019 STH RC,6(0,RB) USER0020 L DR,OFDR(0,DR) USER0021 LM LR,WR,OFLR(DR) USER0022 BR LR USER0023 SPACE USER0024 VGUSRID DC V(GUSERID) USER0025 END USER0026 -FILE 363; 14 RECORDS: 0CPUT TITLE ' CPU TIME OF A JOB' CTIM0001 CPUTIME CSECT CTIM0002 IHELIB CTIM0003 CPUTIME CSECT CTIM0004 STM LR,WR,OFLR(DR) CTIM0005 IHESDR LW0 CTIM0006 L RC,0(0,RA) CTIM0007 SVC 38 GET TIME CTIM0008 AR R0,RA ADD CPU TIME TGR CTIM0009 ST R0,0(0,RC) CTIM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L DR,OFDR(DR) CTIM0011 LM LR,WR,OFLR(DR) CTIM0012 BR LR CTIM0013 END CTIM0014 -FILE 364; 14 RECORDS: 0TIME TITLE ' BINARY TIME OF 360/67' BTIM0001 BINTIME CSECT BTIM0002 IHELIB BTIM0003 BINTIME CSECT BTIM0004 STM LR,WR,OFLR(DR) BTIM0005 IHESDR LW0 BTIM0006 L RC,0(0,RA) BTIM0007 SVC 38 BTIM0008 ST RB,0(0,RC) BTIM0009 L DR,OFLR(0,DR) BTIM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LM LR,WR,OFLR(DR) BTIM0011 BR LR BTIM0012 SPACE BTIM0013 END BTIM0014 -FILE 365; 63 RECORDS: 0INFO TITLE ' GDINFO FOR PL/I' DTYP0001 PRINT NOGEN DTYP0002 DEVTYPE CSECT DTYP0003 IHELIB DTYP0004 IHEZAP DTYP0005 IHEMTS DTYP0006 PRINT GEN DTYP0007 MYWORK DSECT DTYP0008 DS 9D DTYP0009 NAME DS CL8 SPRINT ETC. DTYP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STH RD,6(0,RB) DONE DTYP0054 L DR,OFDR(0,DR) RESTORE SAVE AREA PTR DTYP0055 LM LR,WR,OFLR(DR) CALLER'S REGS DTYP0056 BR LR RETURN DTYP0057 SPACE DTYP0058 MOVE MVC NAME(*-*),DFIL DTYP0059 VFREE DC V(FREESPAC) DTYP0060 VINFO DC V(GDINFO) DTYP0061 SPACE DTYP0062 END DTYP0063 -FILE 366; 182 RECORDS: 0 /* ROUTINE TO PRINT ALL LABELS OF A TAPE SNIF0001 */ SNIF0002 SNIF0003 CHKLABL: PROCEDURE OPTIONS(MAIN); SNIF0004 SNIF0005 DECLARE SNIF0006 SNIF0007 DEVTYPE ENTRY(FILE) RETURNS (CHAR(4)), SNIF0008 IHEREAD ENTRY (,BIT(32), DEC FIXED(9,3),FILE), SNIF0009 (CC,NOTRIM) BIT(32) INIT ((32)'0'B), /* MODIFIERS */ SNIF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IF HDRSW THEN CALL IHEREAD('FSF',CC,JUNK,TAPE); /*SKIP DATA*/ SNIF0173 HDRSW='0'B; /* TURN HEADER SW OFF */ SNIF0174 GO TO LABEL_1; SNIF0175 SNIF0176 WHEW: PUT FILE(SPRINT) SKIP(5) LIST ((10)'<*>','END OF TAPE', SNIF0177 (9)'<*>'); SNIF0178 SNIF0179 DONE: PUT FILE(SPRINT) SKIP(2) LIST (' '); SNIF0180 RETURN; SNIF0181 END CHKLABL; SNIF0182 -FILE 367; 56 RECORDS: 0%REW *IN* SCUP0001 %REW *OUT* SCUP0002 %INPUT *IN* 50 SCUP0003 %OUTPUT *OUT* 50 SCUP0004 %BEFORE SUPR1879 SCUP0005 SVCERRUP BAL SVLKGR,POOLGV GET RID OF UNNEEDED POOL ENTRY SCUP0006 %DELETE SUPR2116 SCUP0007 BNE SVCERRUP SCUP0008 %AFTER SUPR2336 SCUP0009 LR GR1,GR0 POOL ENTRY ADDRESS SCUP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PFXP2 BXLE GR1,GR2,NXTPAGE SCUP0047 %DELETE CONF0717 SCUP0048 CCUMAP DC X'01000000' ONE BYTE PER CCU (1 IF ATTACHED) SCUP0049 %BEFORE FILEMARK SCUP0050 %CLOSE *IN* SCUP0051 %CLOSE *OUT* SCUP0052 %REW *IN* SCUP0053 %WTM *OUT* SCUP0054 %REW *OUT* SCUP0055 %END SCUP0056 -FILE 368; 330 RECORDS: 067TB TITLE 'TABLES FOR MODEL 67' NTBL0001 * NTBL0002 * THIS IS THE MODEL 50 TABLES NTBL0003 SPACE 5 NTBL0004 * THIS PROGRAM CONTAINS SPACE FOR THE TABLES SPECIFIED BY THE NTBL0005 * 'ENTRY' FIELDS BELOW. NTBL0006 SPACE 3 NTBL0007 * VERSION OF 23 MAY 1966 NTBL0008 * REPLACES VERSION OF 1 APRIL 1966 NTBL0009 * NTBL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0F NTBL0321 MAXADD DC X'FFE00000' BITS IN POSITIONS OUTSIDE VM SIZE NTBL0322 NUMDEV DC A((ENDDLS-DEVLST)/LDVLST) TOTAL NUMBER OF DEVICES NTBL0323 JTBLLIM DC A(0,0,0) FILLED IN BY INITIALIZATION NTBL0324 SPACE NTBL0325 DS 0H NTBL0326 TYPAD DC X'001F' OPERATOR'S CONSOLE NTBL0327 CONS DC X'001F' ALTERNATE OPERATOR'S CONSOLE NTBL0328 SPACE 3 NTBL0329 END NTBL0330 -FILE 369; 305 RECORDS: 0OPEN 21 GMAC0001 CLOSE 36 GMAC0002 ABEND 54 GMAC0003 GET 81 GMAC0004 PUT 92 GMAC0005 FREEPOOL 103 GMAC0006 NAMNGO 113 GMAC0007 LINK 150 GMAC0008 LOAD 155 GMAC0009 XCTL 160 GMAC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TR *+30-&DIGITS.(&DIGITS),=C'0123456789ABCDEF' GMAC0296 B *+24 GMAC0297 DS F GMAC0298 DC X'0000000000000000' GMAC0299 DS 8X GMAC0300 AIF (T'&LOC(1) NE 'N').CON1 GMAC0301 MVC 0(&DIGITS,&LOC(1).),*-&DIGITS GMAC0302 AGO .END GMAC0303 .CON1 MVC &LOC.(&DIGITS),*-&DIGITS GMAC0304 .END MEND GMAC0305 -FILE 370; 36 RECORDS: 0GETT TITLE 'GET TIME ESTIMATE FOR GPSS - VERSION 2' GTIM0001 GTIMEST START 0 GTIM0002 ENTER 12,SA=SA GTIM0003 CALL GUINFO,(F86,TIME) GTIM0004 L 1,TIME GTIM0005 LTR 1,1 GTIM0006 BZ TRYGLOB GTIM0007 CALL GUINFO,(F96,TTN) GTIM0008 B EXIT GTIM0009 TRYGLOB CALL GUINFO,(F78,TIME) GTIM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TTN DS F GTIM0027 SA DS 18A GTIM0028 END GTIM0029 ESD ¥ GTIMEST GUINFO  GTIM0030 TXT ù ¡…} ›Ê0{H&ô÷&ØþØŒ0{‡{Ã^{“0{ Í“{{Œ¯{“GTIM0031 TXT ù ù Œ0{ ‡{<¸D“0{ ÍŒ0{oŒ0{-‡{%©{“0{*GTIM0032 TXT ¿ ù  Í“{{Œ¯{®Œ0{d‡{¡øD“0{¯ Í“{{!{D“}}þ“\} qGTIM0033 TXT y  }¶Äò”+-; GTIM0034 RLD ù ¥Ù ˆÙ–ËÙ„h÷à*¯GTIM0035 END GTIM0036 -FILE 371; 35 RECORDS: 0SVE 10 BMAC0001 RTRN 20 BMAC0002 PARA 28 BMAC0003 00000000 BMAC0004 BMAC0005 BMAC0006 BMAC0007 BMAC0008 00000000 BMAC0009 MACRO BMAC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BR 14 BMAC0026 MEND BMAC0027 MACRO BMAC0028 &NAME PARA &I,&C,&M,&L,&U BMAC0029 &NAME DC A(BUFF&I) BMAC0030 DC A(COUNT&C) BMAC0031 DC A(MODIF&M) BMAC0032 DC A(LINE&L) BMAC0033 DC A(UNIT&U) BMAC0034 MEND BMAC0035 -FILE 372; 2186 RECORDS: 0********************************************************************** BSDA0001 * * BSDA0002 * * BSDA0003 * MTS DEVICE SUPPORT ROUTINES FOR IBM 2780'S * BSDA0004 * * BSDA0005 * * BSDA0006 ********************************************************************** BSDA0007 SPACE 3 BSDA0008 MACRO BSDA0009 PFXD &M,&N BSDA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BLKNDLOC DS F BSDA2177 BUF1 DS 64F BSDA2178 CCSAVE DS 6F BSDA2179 OUTPAGES DS F BSDA2180 INPAGES DS F BSDA2181 TEMP DS D BSDA2182 SNSCCW DS (SNSCCWL/8)D BSDA2183 RTNLST DS (RTNLSTL/4)F BSDA2184 PSECTL EQU *-PSCT BSDA2185 END BSDA2186 -FILE 373; 2324 RECORDS: 0********************************************************************** CSDA0001 * * CSDA0002 * * CSDA0003 * MTS DEVICE SUPPORT ROUTINES FOR IBM 2780'S * CSDA0004 * * CSDA0005 * * CSDA0006 ********************************************************************** CSDA0007 SPACE 3 CSDA0008 MACRO CSDA0009 PFXD &M,&N CSDA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BUF1 DS 64F CSDA2315 CCSAVE DS 6F CSDA2316 OUTPAGES DS F CSDA2317 INPAGES DS F CSDA2318 TEMP DS D CSDA2319 SNSCCW DS (SNSCCWL/8)D CSDA2320 RTNLST DS (RTNLSTL/4)F CSDA2321 CCCHAR DS C CSDA2322 PSECTL EQU *-PSCT CSDA2323 END CSDA2324 -FILE 374; 123 RECORDS: 0%BEFORE GTFR0023 GFUP0001 GBLB &NOSLT GFUP0002 &NOSLT SETB (1) GFUP0003 &NOSLT SETB (0) GFUP0004 %DELETE GTFR0023 GFUP0005 %DELETE GTFR0121 GFUP0006 %BEFORE GTFR0132 GFUP0007 AIF (&NOSLT).SLT1 GFUP0008 SR GR0,GR0 MAXIMUM COUNT GFUP0009 LA GR4,PBMXFR-PBDCT1 SET UP TO FIND PRIMARY BUFFER GFUP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .SLT7E ANOP GFUP0114 %BEFORE GTFR0670 GFUP0115 AIF (&NOSLT).SLT8 GFUP0116 SCSSLT SLT 0,1,SBLINK-SBDCT AN SLT FOR SCANSTOR TO EXECUTE GFUP0117 AGO .SLT8E GFUP0118 .SLT8 ANOP GFUP0119 SCSSLT NOPR GR14 EXECUTED BY SCANSTOR GFUP0120 .SLT8E ANOP GFUP0121 %DELETE GTFR0670 GFUP0122 XXXXXXXXXX GFUP0123 -FILE 375; 848 RECORDS: 0VTOC TITLE 'VOLREL,VOLGET,VTOCS AND DSKOP SUBROUTINES' TVTOC001 SPACE TVTOC002 ********************************************************************-** TVTOC003 * * TVTOC004 * SUBROUTINES VOLREL, VOLGET, VTOCS, DSKOP * TVTOC005 * * TVTOC006 *********************************************************************** TVTOC007 SPACE TVTOC008 START 0 TVTOC009 SPACE TVTOC010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE TVTOC839 *********************************************************************** TVTOC840 * * TVTOC841 * DEFINE A SAFE PATCHING AREA * TVTOC842 * * TVTOC843 DS 4F * TVTOC844 * * TVTOC845 *********************************************************************** TVTOC846 SPACE TVTOC847 END TVTOC848 -FILE 376; 69 RECORDS: 0$RUN SCARDS=OPER SERCOM=OPER SPRINT=OPER ESD Æ RESTR ¦TPRDUC  GETD  RSTR0001 ESD Æ þFREEFD  DESTRY  CREATE  RSTR0002 ESD Æ QQSVW  CLOSE  GETSPACE RSTR0003 ESD Æ ÚSERCOM  GETFD  FREED  RSTR0004 ESD Æ WRITE  SCARDS  ERROR  RSTR0005 ESD ¥ FREESPAC SYSTEM  RSTR0006 TXT ù ¡…} ›ÊÊÓ0ÐQ Í&÷&Jþ1q}ÿØ“0П‡{*‰ RSTR0007 TXT ù ù WHERE IS THE RESTORE TAPE ÍÊƶˆkЇµCöŒ0{éRSTR0008 TXT ¿ ù Œ0Fö“¥¿&¥GY“H“0F< ÍÄŒ¯{D“0П‡{«ÁyuRSTR0009 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD ä ÷ˆ þ ºq º<  º&º º º“ RSTR0059 RLD ù ÷ º*ÙÚQÚÚŸ Ú\ ÚUÚYÚ…RSTR0060 RLD  Ú0Ú4Ú8 RSTR0061 REP 000247 01,10 CREATE SMALLER FILES REP 00024F 01,10 CREATE SMALLER FILES REP 00023A 01,D705C73EC73E ALLOW FILE TO BE CREATED ON ANY DISK PACK REP 000638 01,4700,0000 assembler error END  RSTR0062 LCS LCSYMBOL LDT -FILE 377; 68 RECORDS: 0ACCDCT DS AL1(ENDREC-ACCDCT-2) COUNT TO NEXT COUNT AFMT0001 FLAGS DS XL3'0' FLAGS: 0-PRIVILEDGED, 2-IN USE, 1AFMT0002 3-IGNORE TERMINAL MAXIMUM, 4-LIBRARY 2AFMT0003 FILE PRIVILEGE, 5-NO CHANGE AFMT0004 ACCUAN DS F'0' UNIVERSITY ACCOUNT NUMBER AFMT0005 ACCPN DS CL4 PROJECT NUMBER AFMT0006 ACCMDT DS H'0' MAXIMUM FILE (PAGES) AFMT0007 ACCMFUB DS H'0' MAXIMUM BULK FILE (PAGES) AFMT0008 ACCMTM DS F'0' MAXIMUM TERMINAL (SEC*1000) AFMT0009 ACCM$ DS F'0' MAXIMUM CHARGE (DOLLARS*10000) AFMT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *100000) AFMT0059 ACCRPLT DS H PLOTTING RATE (DOLLARS/SEC*100000) AFMT0060 ACCPTR DS F AFMT0061 DS AL1(ENDWRITE-ENDREC-1) COUNT TO NEXT COUNT AFMT0062 ENDREC EQU * END OF FIXED PORTION OF RECORD AFMT0063 ACCPWFLG DS C'P' PASSWORD FLAG AFMT0064 ACCPWLEN DS X PASSWORD LENGTH AFMT0065 ACCPW DS CL6 PASSWORD AFMT0066 DS X'FF' AFMT0067 ENDWRITE EQU * END OF PHYSICAL RECORD AFMT0068 -FILE 378; 25 RECORDS: 0 DC H'0' BILLING CLASS 0 ARAT0001 DC H'59' TERMINAL RATE ARAT0002 DC H'513' VIRTUAL MEMORY RATE OVER CPU TIME ARAT0003 DC H'103' VIRTUAL MEMORY RATE OVER WAIT TIME ARAT0004 DC H'6417' CPU RATE ARAT0005 DC H'62' LINES PRINTED RATE ARAT0006 DC H'395' PAGES PRINTED RATE ARAT0007 DC H'650' CARDS PUNCHED RATE ARAT0008 DC H'134' CARDS READ RATE ARAT0009 DC H'26' FILE STORAGE RATE ARAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC H'139' ARAT0016 DC H'8556' ARAT0017 DC H'80' ARAT0018 DC H'395' ARAT0019 DC H'695' ARAT0020 DC H'155' ARAT0021 DC H'35' ARAT0022 DC H'8' ARAT0023 DC H'1528' ARAT0024 RATELEN EQU 24 ARAT0025 -FILE 379; 5 RECORDS: 0MAXFLAGS DS XL4 FLAGS: 3-IGNORE TERMINAL MAXIMUM PFMT0001 UAN DS 2CL4 UNIVERSITY ACCOUNT NUMBER PFMT0002 MAXMDT DS F MAXIMUM FILE (PAGES) PFMT0003 MAXMTM DS F MAXIMUM TERMINAL (MINUTES) PFMT0004 MAXM$ DS F MAXIMUM CHARGE (DOLLARS*10000) PFMT0005 -FILE 380; 173 RECORDS: 0AERR TITLE 'MTS ACCOUNTING FILE RECORD ERROR DETECTION PROGRAM--22 1AERR0001 OCT 68' AERR0002 MACRO AERR0003 &NAME BNEI &A,&I AERR0004 &NAME CLI &A,&I BRANCH ON NOT EQUAL IMMEDIATE AERR0005 BNE PRINT AERR0006 MEND AERR0007 SPACE 5 AERR0008 MACRO AERR0009 &NAME TMBNZ &A,&M AERR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * AERR0164 * DUMMY SECTION FOR ACCOUNTING RECORD * AERR0165 * * AERR0166 *********************************************************************** AERR0167 SPACE 5 AERR0168 RECORD DSECT AERR0169 COPY ACCFORMAT AERR0170 ORG RECORD+255 AERR0171 SPACE 5 AERR0172 END AERR0173 -FILE 381; 450 RECORDS: 0APRT TITLE 'MTS ACCOUNTING RECORD PRINT PROGRAM--17 OCT 68' APRT0001 *********************************************************************** APRT0002 * * APRT0003 * ACCPRINT * APRT0004 * * APRT0005 * GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY. * APRT0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* APRT0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * APRT0008 * RECORD TO BE PRINTED. * APRT0009 * WORD3 ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* APRT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** APRT0441 * * APRT0442 * DUMMY SECTION FOR ACCOUNTING RECORD * APRT0443 * * APRT0444 *********************************************************************** APRT0445 SPACE 5 APRT0446 RECORD DSECT APRT0447 COPY ACCFORMAT APRT0448 ORG RECORD+255 APRT0449 END APRT0450 -FILE 382; 84 RECORDS: 0ALST TITLE 'MTS ACCOUNTING LISTING PROGRAM--18 OCT 68' ALST0001 *********************************************************************** ALST0002 * * ALST0003 * ACCLIST * ALST0004 * * ALST0005 * LISTS THE MTS ACCOUNTING FILE. * ALST0006 * * ALST0007 *********************************************************************** ALST0008 SPACE 5 ALST0009 ACCLIST START ALST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> F2 DC F'2' ALST0075 RECORD DS CL256 ALST0076 SAVE DS 18F ALST0077 SIGNONID DC X'80000000' ALST0078 COUNT DS H ALST0079 H23 DC H'23' ALST0080 BLANKS DC CL10' ' ALST0081 NRRECMSG DC C'- ',X'2020202120',C' RECORDS IN FILE' ALST0082 SPACE 5 ALST0083 END ALST0084 -FILE 383; 195 RECORDS: 0AINT TITLE 'MTS ACCOUNTING FILE INITIALIZATION PROGRAM--18 OCT 68' AINT0001 *********************************************************************** AINT0002 * * AINT0003 * ACCINITL * AINT0004 * * AINT0005 * RC=0 NORMAL RETURN. * AINT0006 * 4 ERROR IN OBTAINING ACCOUNTING FILE, SOME DISK, OR * AINT0007 * CLOSING ACCOUNTING FILE. * AINT0008 * * AINT0009 * ACCFILUP * AINT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * AINT0186 * ACCOUNTING RECORD STORAGE * AINT0187 * * AINT0188 *********************************************************************** AINT0189 SPACE 5 AINT0190 RECORD DS 0F AINT0191 COPY ACCFORMAT AINT0192 ORG RECORD+255 AINT0193 SPACE 5 AINT0194 END AINT0195 -FILE 384; 233 RECORDS: 0STAT TITLE 'ACCOUNTING STATUS FOR MTS USER--18 OCT 68' STAT0001 MACRO STAT0002 &NAME WRITE &OUTPUT,&LEN STAT0003 .********************************************************************** STAT0004 .* * STAT0005 .* OUTPUT THE OUTPUT LINE TO BE PRINTED. * STAT0006 .* LEN A HALF WORD CONTAINING THE LENGTH OF 'OUTPUT'. * STAT0007 .* * STAT0008 .********************************************************************** STAT0009 &NAME LA R1,=A(&OUTPUT,&LEN,0) STAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * STAT0224 * INPUT AREA FOR ACCOUNTING RECORD * STAT0225 * * STAT0226 *********************************************************************** STAT0227 SPACE 5 STAT0228 RECORD DS 0F STAT0229 COPY ACCFORMAT STAT0230 ORG RECORD+255 STAT0231 EJECT STAT0232 END STAT0233 -FILE 385; 48 RECORDS: 0ARTU TITLE 'MTS ACCOUNTING FILE BILLING RATE UPDATE PROGRAM--29 OCT1ARTU0001 68' ARTU0002 ACCUPDAT START ARTU0003 R0 EQU 0 GENERAL REGISTER DEFINITIONS ARTU0004 R1 EQU 1 ARTU0005 R2 EQU 2 ARTU0006 R3 EQU 3 ARTU0007 R4 EQU 4 ARTU0008 R5 EQU 5 ARTU0009 R6 EQU 6 ARTU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** ARTU0039 * * ARTU0040 * ACCOUNTING RECORD FORMAT * ARTU0041 * * ARTU0042 *********************************************************************** ARTU0043 SPACE 5 ARTU0044 RECORD DSECT ARTU0045 COPY ACCFORMAT ARTU0046 SPACE 5 ARTU0047 END ARTU0048 -FILE 386; 1547 RECORDS: 0AMAT TITLE 'MTS ACCOUNTING MAINTENANCE PROGRAM--31 OCT 68' AMAT0001 MACRO AMAT0002 &NAME BINPAR &FIELD,&NEXT,&MULT,&LEN AMAT0003 .********************************************************************** AMAT0004 .* * AMAT0005 .* FIELD A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE * AMAT0006 .* VALUE OF THE POSITIONAL PARAMETER IS PLACED. * AMAT0007 .* NEXT LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* AMAT0008 .* MISSING. * AMAT0009 .* MULT AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER * AMAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TUV',X'FF',10X'0',X'FFFFFFFF00FF',10X'0' AMAT1538 BLKORD2 EQU * AMAT1539 BLKORD3 EQU * AMAT1540 BLKORD1 DC 193X'0',AL1(11,12,13,14,15,16,17,18),8X'0',AL1(19,20,21,1AMAT1541 22,23,0,24,25,26),8X'0',AL1(27,28,29,30,31,32,33,34),6X'2AMAT1542 0',AL1(1,2,3,4,5,6,7,8,9,10),6X'0' AMAT1543 BLKORD4 DC 201X'0',AL1(4),7X'0',AL1(5,1,2,3,4,0,5,0,1),8X'0',AL1(2,1AMAT1544 3,4,5),10X'0',AL1(5,5,5,5,0,5),10X'0' AMAT1545 SPACE 5 AMAT1546 END AMAT1547 -FILE 387; 436 RECORDS: 0AIO TITLE 'MTS ACCOUNTING RECORD INPUT/OUTPUT PROGRAM--20 OCT 68' AIO00001 *********************************************************************** AIO00002 * * AIO00003 * ON ENTRY TO ACCREAD AND ACCWRITE, GR1 POINTS TO A FOUR WORD * AIO00004 * PARAMETER LIST * AIO00005 * WORD1 AREA TO OR FROM WHICH THE DATA IS TO BE * AIO00006 * TRANSMITTED. * AIO00007 * WORD2 LENGTH OF THE DATA. * AIO00008 * WORD3 MODIFIERS. * AIO00009 * WORD4 SIGNON ID. * AIO00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RDNR14 DS A AIO00427 LEN DS H AIO00428 AUXFLNAM DC CL16'$ACCOUNTING' AIO00429 BADAUXFL DC C' *** FILE IS NOT AVAILABLE' AIO00430 MISRECRD DC C' *** IS NOT IN ' AIO00431 NOFILNAM DC C' *** IS NOT AN AUXILIARY FILE' AIO00432 SPACE 5 AIO00433 LTORG AIO00434 SPACE 5 AIO00435 END AIO00436 -FILE 388; 1155 RECORDS: 0AMXM TITLE 'MTS USERS'' ACCOUNTING MAXIMUM MAINTENANCE PROGRAM--23 1AMXM0001 OCT 68' AMXM0002 MACRO AMXM0003 &NAME ACUM &MAX,&CUM,&DIV,&LEN AMXM0004 LCLA &RND AMXM0005 &NAME L&LEN R9,ACC&MAX MAXIMUM AMXM0006 C&LEN R9,ACC&CUM AMXM0007 BNL S&SYSNDX CUMULATIVE IS LESS THAN MAXIMUM AMXM0008 L&LEN R9,ACC&CUM CUMULATIVE AMXM0009 AIF ('&DIV' NE '').DIVIDE AMXM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 AMXM1146 KEYWDADR DC A(FILE) AMXM1147 DC A(CHARGE) AMXM1148 DC A(TERMINAL) AMXM1149 DC A(TERMHRS) AMXM1150 DC A(NOLIST) AMXM1151 DC A(NOCHANGE) AMXM1152 EJECT AMXM1153 LTORG AMXM1154 END AMXM1155 -FILE 389; 94 RECORDS: 0ADSP TITLE 'MTS ACCOUNTING RECORD DISPLAY PROGRAM--18 OCT 68' ADSP0001 *********************************************************************** ADSP0002 * * ADSP0003 * ACCDSPLA * ADSP0004 * * ADSP0005 * DISPLAYS MTS ACCOUNTING FILE RECORDS. INPUT IS THE SIGNON ID* ADSP0006 * OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR FRACTION * ADSP0007 * THEREOF. * ADSP0008 * * ADSP0009 *********************************************************************** ADSP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDOT$DOT DC C' .$.' ADSP0085 RECORD DS CL256 ADSP0086 SAVE DS 18F ADSP0087 SIGNONID DS F ADSP0088 COUNT DS H ADSP0089 H39 DC H'39' ADSP0090 MOVE MVC SIGNONID(0),RECORD ADSP0091 BLANK DC CL10' ' ADSP0092 NORECMSG DC C' *** IS NOT IN THE ACCOUNTING FILE' ADSP0093 END ADSP0094 -FILE 390; 217 RECORDS: 0ASTR TITLE 'MTS ACCOUNTING RECORD STORAGE SPACE UPDATE AND LOCK OFF1ASTR0001 PROGRAM--18 OCT 68' ASTR0002 *********************************************************************** ASTR0003 * * ASTR0004 * ACCSTRUP * ASTR0005 * * ASTR0006 * UPDATES NUMBER OF FILES AND PAGES AND TURNS OFF THE LOCK FLAG* ASTR0007 * IN MTS ACCOUNTING RECORDS. INPUT IS THE SIGNON ID OF THE * ASTR0008 * RECORD TO BE UPDATED IN COLUMNS 1-4 OR FRACTION THEREOF. * ASTR0009 * * ASTR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * ASTR0208 * ACCOUNTING RECORD STORAGE * ASTR0209 * * ASTR0210 *********************************************************************** ASTR0211 SPACE 5 ASTR0212 RECORD DS 0F ASTR0213 COPY ACCFORMAT ASTR0214 ORG RECORD+255 ASTR0215 SPACE 5 ASTR0216 END ASTR0217 -FILE 391; 237 RECORDS: 0ARDW TITLE 'MTS ACCOUNTING FILE RECORD READ AND WRITE UPDATE PROGRA1ARDW0001 M--30 OCT 68' ARDW0002 *********************************************************************** ARDW0003 * * ARDW0004 * RECORDS BEFORE UPDATING ARE WRITTEN ON A TAPE ON LOGICAL * ARDW0005 * UNIT 0. * ARDW0006 * * ARDW0007 * A LIST OF RECORDS WHICH CANNOT BE UPDATED BECAUSE THE LOCK * ARDW0008 * BIT IS SET IS WRITTEN ON LOGICAL UNIT 1. IF, ON ENTRY TO * ARDW0009 * ACCRDWRT, LOGICAL UNIT 1 IS NOT EMPTY, ONLY THOSE RECORDS IN * ARDW0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FSF DC C'FSF' ARDW0228 LOCKSW DC X'0' ARDW0229 LOG1FULL DC C' *** LOGICAL DEVICE 1 IS FULL' ARDW0230 NORECMSG DC C' *** IS NOT IN THE ACCOUNTING FILE' ARDW0231 REW DC C'REW' ARDW0232 WEF DC C'WEF' ARDW0233 SPACE 5 ARDW0234 FLAGS EQU RECORD+1 ARDW0235 SPACE 5 ARDW0236 END ARDW0237 -FILE 392; 178 RECORDS: 0AUPR TITLE 'MTS USERS'' ACCOUNTING RECORD PRINT PROGRAM--20 OCT 68' AUPR0001 *********************************************************************** AUPR0002 * * AUPR0003 * ACUSPRNT * AUPR0004 * * AUPR0005 * GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY. * AUPR0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* AUPR0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * AUPR0008 * RECORD TO BE PRINTED. * AUPR0009 * * AUPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** AUPR0169 * * AUPR0170 * DUMMY SECTION FOR ACCOUNTING RECORD * AUPR0171 * * AUPR0172 *********************************************************************** AUPR0173 SPACE 5 AUPR0174 RECORD DSECT AUPR0175 COPY ACCFORMAT AUPR0176 SPACE 5 AUPR0177 END AUPR0178 -FILE 393; 933 RECORDS: 0APMT TITLE 'MTS PROJECT ACCOUNTING MAINTENANCE PROGRAM--23 OCT 68' APMT0001 MACRO APMT0002 &NAME BINPAR &FIELD,&NEXT,&MULT,&LEN APMT0003 .********************************************************************** APMT0004 .* * APMT0005 .* FIELD A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE * APMT0006 .* VALUE OF THE POSITIONAL PARAMETER IS PLACED. * APMT0007 .* NEXT LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* APMT0008 .* MISSING. * APMT0009 .* MULT AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER * APMT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG RECORD+255 APMT0924 SPACE 5 APMT0925 DS 0F APMT0926 MASK DS CL255 APMT0927 MDISP EQU MASK-RECORD APMT0928 SPACE 5 APMT0929 DS 0F APMT0930 DEFAULT DC F'0',CL8' ',3F'0' APMT0931 EJECT APMT0932 END APMT0933 -FILE 394; 53 RECORDS: 0AXPR TITLE 'MTS ACCOUNTING RECORD HEXADECIMAL PRINT PROGRAM--16 JUN1AXPR0001 E 67' AXPR0002 *********************************************************************** AXPR0003 * * AXPR0004 * ACCPRINT * AXPR0005 * * AXPR0006 * GR1 POINTS TO A FOUR WORD PARAMETER LIST ON ENTRY. * AXPR0007 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID. * AXPR0008 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * AXPR0009 * RECORD TO BE PRINTED. * AXPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 AXPR0044 SAVE DS 18F AXPR0045 FMT DC C'''0SIGNON ID IS '',C4,'' ('',X,'')''/'' RECORD IS (HEX1AXPR0046 ) LENGTH='',X2/(S10,6(X,S2))*' AXPR0047 SPACE 5 AXPR0048 SIGNON DSECT AXPR0049 RECORD DSECT AXPR0050 LENGTH DSECT AXPR0051 SPACE 5 AXPR0052 END AXPR0053 -FILE 395; 306 RECORDS: 0APPR TITLE 'MTS PROJECT ACCOUNTING RECORD PRINT PROGRAM--13 JUL 68' APPR0001 *********************************************************************** APPR0002 * * APPR0003 * ACCPRINT * APPR0004 * * APPR0005 * GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY. * APPR0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* APPR0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * APPR0008 * RECORD TO BE PRINTED. * APPR0009 * WORD3 ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* APPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** APPR0297 * * APPR0298 * DUMMY SECTION FOR ACCOUNTING RECORD * APPR0299 * * APPR0300 *********************************************************************** APPR0301 SPACE 5 APPR0302 RECORD DSECT APPR0303 COPY ACCPROJFMT APPR0304 ORG RECORD+255 APPR0305 END APPR0306 -FILE 396; 97 RECORDS: 0APLS TITLE 'MTS PROJECT ACCOUNTING LISTING PROGRAM--15 JUL 68' APLS0001 *********************************************************************** APLS0002 * * APLS0003 * ACCLIST * APLS0004 * * APLS0005 * LISTS THE MTS PROJECT ACCOUNTING FILE. * APLS0006 * * APLS0007 *********************************************************************** APLS0008 SPACE 5 APLS0009 ACCLIST START APLS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SIGNONID DC X'80000000' APLS0088 COUNT DS H APLS0089 H23 DC H'23' APLS0090 H24 DC H'24' APLS0091 BLANKS DC CL10' ' APLS0092 FILENAME DC C'*ACCUSERMAINT ' APLS0093 NOFILMSG DC C' ERROR IN OBTAINING FILE' APLS0094 NRRECMSG DC C'- ',X'2020202120',C' RECORDS IN FILE' APLS0095 SPACE 5 APLS0096 END APLS0097 -FILE 397; 110 RECORDS: 0APDS TITLE 'MTS PROJECT ACCOUNTING RECORD DISPLAY PROGRAM--15 JUL 61APDS0001 8' APDS0002 *********************************************************************** APDS0003 * * APDS0004 * ACCDSPLA * APDS0005 * * APDS0006 * DISPLAYS MTS PROJECT ACCOUNTING FILE RECORDS. INPUT IS THE * APDS0007 * SIGNON ID OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR * APDS0008 * FRACTION THEREOF. * APDS0009 * * APDS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SIGNONID DS F APDS0101 COUNT DS H APDS0102 H24 DC H'24' APDS0103 H28 DC H'28' APDS0104 MOVE MVC SIGNONID(0),RECORD APDS0105 BLANK DC CL10' ' APDS0106 FILENAME DC C'*ACCUSERMAINT ' APDS0107 NOFILMSG DC C' ERROR IN OBTAINING FILE' APDS0108 NORECMSG DC C' *** IS NOT IN THE FILE' APDS0109 END APDS0110 -FILE 398; 78 RECORDS: 0APSW TITLE 'MTS PASSWORD EXTRACTION PROGRAM--2 FEB 68' APSW0001 *********************************************************************** APSW0002 * * APSW0003 * ACCPRINT * APSW0004 * * APSW0005 * GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY. * APSW0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID. * APSW0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * APSW0008 * RECORD FOR THE PASSWORD TO BE PRINTED. * APSW0009 * * APSW0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 APSW0069 SAVE DS 18F APSW0070 MVPSWRD MVC PASSWORD+18(0),RECORD+3 APSW0071 DC C'0123456789ABCDEF' APSW0072 HEXCONV EQU *-256 APSW0073 PASSWORD DC C' PASSWORD IS ( ' APSW0074 SPACE 5 APSW0075 RECORD DSECT APSW0076 SPACE 5 APSW0077 END APSW0078 -FILE 399; 1318 RECORDS: 0$RUN *MOUNT PAR=POOL ON 9TP *POOL* ' RING IN ' $RUN *MOUNT PAR=S151 ON 9TP *ASMG* 'RING OUT -- ASMG SOURCE ' $RUN *UPDATE %REW *POOL* %REW *ASMG* %OUTPUT *POOL* 40 %INPUT *ASMG* 40 FD 3 %DELETE '00040020' %BEFORE FILEMARK %CLOSE *ASMG* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %REW *POOL* %END $RUN *DISMOUNT PAR=*ASMG* $EMPTY NEWASMG $CRE -SYSUT1 SIZE=2000 $CRE -SYSUT2 SIZE=2000 $CRE -SYSUT3 SIZE=2000 $RUN *MOUNT PAR=S111 ON 9TP *LIST* 'RING IN' $RUN *ASMG SCARDS=*POOL* SPRINT=*LIST* 0=*SYSMAC 2=ASMGMACROS SPUNCH=NEWASMG PA- R=FX,B,RD,SIZE=120,IBLK=40,OBLK=50 -FILE 400; 1597 RECORDS: 0COMMENCE 10 DCBOUT 41 DEFCHAR 52 ENTRYOUT 161 FDIMEN 172 FINISH 553 INST 561 INSTSET 651 MESSAGE 1212 PRINTOUT 1256 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BALR 14,15 LINK TO GET ROUTINE MEXIT .E1 IHBERMAC 06 MEND MACRO &LABEL QCALL &Q,&L &LABEL L 15,ADLIST1 L 15,168+&Q.(0,15) CALL (15),&L MEND -FILE 401; 278 RECORDS: 0ASM TITLE 'F ASSEMBLER MASTER ROOT SEGMENT--RELEASE VERSION' 00020020 ISEQ 73,80 00040020 *TITLE-ASMGASM- PHASE 'ASM'- MASTER ROOT SEGMENT 00060020 *FUNCTION- PERMANENT RESIDENT PHASE. 00080020 * SAVES CONTROL PROGRAM (O.S. OR INVOKER) REGS. 00100020 * BRANCHES TO ASMGMAC TO INITIATE MACRO GENERATION. 00120020 * RECEIVES CONTROL FROM 'MAC' AT END OF ASSEMBLY, AND RETURNS TO 00140020 * CONTROL PROGRAM. 00160020 * DEFINES DCB'S FOR ALL 8 DATASETS. 00180020 *ENTRY POINT- ASMGASM 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L B0,=A(ASMGASM) 05380020 DROP A 05400020 USING ASMGASM,B0 05420020 MVC PRINTMSG(59),BUFFMESG 05440020 B ABORT1 05460020 BUFFMESG DC CL59' ASMG990I INSUFFICENT MEMORY TO BUFFER UTILX05480020 ITIES.' 05500020 SPACE 3 05520020 LTORG 05540020 END ASMGASM 05560020 -FILE 402; 2199 RECORDS: 0 ICTL 1,71,20 00020020 ISEQ 73,80 00040020 PRINT ON,GEN,NODATA 00060020 BUFF TITLE ' ' 00080020 *********************************************************************** 00100020 * 00120020 * THIS DECK CONTAINS THE BUFFERING ROUTINES FOR ASMG. 00140020 * 00160020 * WRITTEN AUG. 67 BY RENNIE PETERSEN 00180020 * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> &WORK SETA 1 43800020 .USP ANOP 43820020 UCT&WORK DS CL(UCTLNGTH) 43840020 &WORK SETA &WORK+1 43860020 AIF (&WORK LE &MAXUT).USP 43880020 EJECT 43900020 *********************************************************************** 43920020 * AND NOW FOR MY LAST ACT... 43940020 * 43960020 END ASMGBUFF 43980020 -FILE 403; 621 RECORDS: 0FD TITLE 'G ASSEMBLER DIAGNOSTIC PROCESSOR' 00020020 ISEQ 73,80 00040020 SPACE 3 00060020 MACRO 00080020 EPTR &MAXNO GENERATE ERROR POINTERS 00100020 GBLA &GMAXNO MAXIMUM NUMBER OF ERRORS 00120020 LCLA &NBR ERROR NUMBER BINARY 00140020 LCLC &CNBR ERROR NUMBER CHAR 00160020 &NBR SETA 1 00180020 * GENERATED RELATIVE POINTER TABLE 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EMSG 104,12,'COPY CODE NOT FOUND' 12240020 EMSG 105,12,'EOD ON SYSTEM MACRO LIBRARY' 12260020 EMSG 106,08,'NOT NAME OF DSECT OR DXD' 12280020 EMSG 107,04,'INVALID OPERAND' 12300020 EMSG 108,16,'PREMATURE EOD' 12320020 EMSG 109,08,'PRECISION LOST' 12340020 EMSG 110,08,'EXPRESSION VALUE TOO LARGE' 12360020 EFM DC AL1(39,04),C'MESSAGE NOT DEFINED FOR THIS ERROR CODE' 12380020 ENDM DC AL1(0) 12400020 END ASMGFD 12420020 -FILE 404; 824 RECORDS: 0FEX TITLE ' LOAD AND EXECUTE PHASE ' 00020020 ISEQ 73,80 00040020 COPY ASMGSET 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 ASMGFEX CSECT 00140020 R0 EQU 0 00160020 R1 EQU 1 00180020 R2 EQU 2 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'DECIMAL OVERFLOW ' 16300020 DC C'DECIMAL DIVIDE OVERFLOW ' 16320020 DC C'EXPONENT OVERFLOW ' 16340020 DC C'EXPONENT UNDERFLOW ' 16360020 DC C'SIGNIFICANCE EXCEPTION ' 16380020 DC C'FLOATING DIVIDE OVERFLOW ' 16400020 ******* WARNING ******* CONSTANTS ARE CAREFULLY ARRANGED 16420020 * TAMPERING WITH THEIR ORDER IS DANGEROUS 16440020 * WRITTEN BY DAVE POTTER, AUGUST 1967 16460020 END 16480020 -FILE 405; 576 RECORDS: 0FI TITLE ' FI, ESD OUTPUT PHASE ' 00020020 ISEQ 73,80 00040020 COPY ASMGSET 00060020 ASMGFI CSECT 00080020 * * 00100020 * * 00120020 *TITLE 'ASMGFI F ASSEMBLER INTERLUDE PHASE * 00140020 *FUNCTION/OPERATION- * 00160020 * TO WRITE THE EXTERNAL SYMBOL DICTIONARY ON SYSPRINT, SYSPUNCH, * 00180020 * AND/OR SYSGO DATA SETS. THE EXTERNAL SYMBOL TABLE SEGMENTS AND * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NOESD EQU GRC COUNTS THROUGH ESD 11340020 SRPTR EQU GRC 11360020 ADJPTR EQU GRD POINTS TO ESD ADJUSTMENT TABLE 11380020 LADJP EQU SRR POINTS TO LITERAL ADJUSTMENT TABLE 11400020 ACC EQU SP1 ACCUMLATOR 11420020 DSPTR EQU GRY 11440020 INTSUB EQU GRY REGISTER FOR SUBROUTINE SUB 11460020 ADJCT EQU GRY USED TO SEARCH ADJ TABLE FOR A LIT POOL 11480020 SPACE 11500020 END ASMGFI 11520020 -FILE 406; 1019 RECORDS: 0FPP TITLE 'G ASSEMBLER POST PROCESSOR' 00020020 ISEQ 73,80 00040020 COPY ASMGSET 00060020 * 00080020 ASMGFPP START 00100020 PRINT NOGEN 00120020 FDIMEN SRR=3,GRC=8,GRA=9,GRB=10 00140020 PRINT GEN 00160020 SPACE 2 00180020 * * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' 20200020 ORG 20220020 SQTRTAB3 DC 256X'00' TABLE TO FIND BLANKS 20240020 ORG SQTRTAB3+C' ' 20260020 DC X'FF' 20280020 ORG 20300020 LTORG 20320020 RESBUF DS 0D,XL(XRFSIZ) INTERNAL I/O BUFFERS 20340020 ENDFPP DS 0D 20360020 END ASMGFPP 20380020 -FILE 407; 1602 RECORDS: 0F1 TITLE 'MACRO GENERATOR INITIALIZATION PHASE' 00020020 ISEQ 73,80 00040020 *TITLE-'ASMGF1' (PHASE F1) 00060020 *FUNCTION- INITIALIZATION, INCLUDING... 00080020 * PROCESS INVOKER'S DD NAMES, IF ANY. 00100020 * OPEN ALL NECESSARY DATASETS. 00120020 * GET MAIN STORAGE AND ALLOCATE BUFFER AREAS. 00140020 * INITIALIZE CONSTANTS AND INDICATORS IN COMMON AREA FOR PHASES 00160020 * F1-F3. 00180020 * BUILD HASH TABLE AND CHAINING FOR OP CODES IN GLOBAL DICTIONARY. 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * 31860020 COMMON INSTSET 31880020 * 31900020 GLDEND EQU * TO AVOID UNDEF SYMB ERRORS 31920020 EJECT 31940020 * DCB DSECT 31960020 * 31980020 DCBD DSORG=PS 32000020 EJECT 32020020 END ASMGF1 32040020 -FILE 408; 4186 RECORDS: 0F2 TITLE 'MACRO-GENERATOR EDITING PHASE' 00020020 ISEQ 73,80 00040020 *TITLE-'ASMGF2' (PHASE F2) 00060020 *FUNCTION/OPERATION 00080020 * PROCESSES ALL SOURCE, COPY AND SYSTEM MACRO STATEMENTS INTO EDITED 00100020 * TEXT. GENERATES A GLOBAL DICTIONARY, A LOCAL DICTIONARY FOR THE 00120020 * SOURCE PROGRAM AND ONE LOCAL DICTIONARY FOR EACH MACRO DEFINITION 00140020 * PROCESSED. 00160020 *ENTRY POINTS 00180020 * ASMGF2 REACHED VIA XCTL FROM PHASE IEUF1 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' 83540020 DC X'C00A0B0C0D0E0F101112CACBCCCDCECF' 83560020 DC X'D0131415161718191A1BDADBDCDDDEDF' 83580020 DC X'E0E11C1D1E1F20212223EAEBECEDEEEF' 83600020 FINDEC DC X'00010203040506070809FAFBFCFDFEFF' 83620020 * 83640020 *********************************************************************** 83660020 EJECT 83680020 DCBD DSORG=PS 83700020 END ASMGF2 83720020 -FILE 409; 3133 RECORDS: 0F2A TITLE ' MACRO-GENERATOR DICTIONARY SECTION IN F2 LOAD MODULE' 00020020 ISEQ 73,80 FIND 'EM AND FIX 'EM. 00040020 COPY ASMGSET 00060020 SPACE 1 00080020 ASMGF2A START 00100020 SPACE 2 00120020 *TITLE 'ASMGF2A'... SUBROUTINES FOR ASMGF2 * 00140020 *FUNCTION/OPERATION 00160020 * PROVIDES VARIOUS SUBROUTINES TO BE USED BY MODULE ASMGF2. 00180020 *ENTRY POINTS 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' 62480020 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' 62500020 DC X'C00A0B0C0D0E0F101112CACBCCCDCECF' 62520020 DC X'D0131415161718191A1BDADBDCDDDEDF' 62540020 DC X'E0E11C1D1E1F20212223EAEBECEDEEEF' 62560020 FINDEC DC X'00010203040506070809FAFBFCFDFEFF' 62580020 *********************************************************************** 62600020 EJECT 62620020 DCBD DSORG=PS 62640020 END ASMGF2A 62660020 -FILE 410; 2534 RECORDS: 0F3 TITLE 'MACRO GENERATOR GENERATION PHASE ' 00020020 ISEQ 73,80 00040020 *TITLE 'ASMGF3'.. MACRO GENERATION * 00060020 *FUNCTION/OPERATION * 00080020 * ASMGF3 EVALUATES CONDITIONAL ASSEMBLY EXPRESSIONS,PERFORMS * 00100020 * CONDITIONAL ASSEMBLY STATEMENTS AND GENERATES ASSEMBLER EDITED * 00120020 * TEXT USING MACRO DEFINITIONS AND THE ASSOCIATED EDITED INFORMATION* 00140020 * IN THE GLOBAL AND RELATED LOCAL DICTIONARIES. * 00160020 *ENTRY POINT- ASMGF3 * 00180020 * CALLED VIA * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ADCBIN DC A(0) 50500020 ADCBLB DC A(0) 50520020 ADCPRNT DC A(0) 50540020 INPLEN DS F SIZE OF INPUT AREA 50560020 OBSIZ DS F SIZE OF OUTPUT 1 AREA 50580020 SAVUSE DS 2F 50600020 BUFFENT DS F ADDRESS OF BUFFERING ROUTINE 50620020 ADLIST1 DS F ADDRESS OF LIST1 IN ASM 50640020 GDSTART DS 0D 50660020 END ASMGF3 50680020 -FILE 411; 1030 RECORDS: 0F7C TITLE 'AC7MLC - F/7 MAIN LINE CONTROL ' 00020020 ISEQ 73,80 00040020 ASMGF7C START 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 SPACE 2 00140020 *TITLE 'ASMGF7C' F/7 MAIN LINE CONTROL * 00160020 *FUNCTION/OPERATION- * 00180020 * PROCESS 'EDITED TEXT RECORDS' WRITTEN BY ASMGF3 * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OI TXSDOC(FRB),X'20' SYMBOL DEFINED IN DSECT OR COM 20420020 * 20440020 SUBWBE OI TXSUBS(FRB),X'10' SET VALUE SUBSTITUTED INDICATOR 20460020 * 20480020 SUBWBX TM TXSLAS(FRB),X'08' TEST FOR LAST SYMBOL W.B. 20500020 BCR 7,CRR RETURN TO CALLING ROUTINE 20520020 LA FRB,6(FRB) INC POINTER TO NEXT SYMB W.B. 20540020 B SUBWBA PROCESS NEXT SYMB W.B. 20560020 LTORG 20580020 END ASMGF7C 20600020 -FILE 412; 1090 RECORDS: 0F7D TITLE 'DC EVALUATION - PHASE 7 --- ' 00020020 ISEQ 73,80 00040020 ASMGF7D START 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 USING *,FRB 00120020 * * 00140020 *TITLE 'ASMGF7D ' ... DC EVALUATION * 00160020 *FUNCTION/OPERATION- * 00180020 * IEUF7D PROCESSES DC'S, DS'S, DXD'S, LITERALS, AND LITERAL DC'S, A * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EVENR EQU GRX 14 21620020 ODDR EQU GRY 15 21640020 R1 EQU WR1 21660020 SAVE EQU GRX 14 21680020 WBPTR EQU GRB 5 21700020 DS EQU X'27' DS OP-CODE 21720020 GR14 EQU 14 21740020 YTYPE EQU ATYPE 21760020 LTORG 21780020 END DCEVL 21800020 -FILE 413; 1184 RECORDS: 0F7E TITLE 'ASMGF7E, EXTERNAL SYMBOL DICTIONARY PROCESSOR' 00020020 ISEQ 73,80 00040020 ASMGF7E CSECT 00060020 PRINT DATA,NOGEN 00080020 FDIMEN 00100020 USING *,FRB 00120020 SPACE 00140020 *TITLE- ASMGF7E EXTERNAL SYMBOL DICTIONARY PROCESSOR * 00160020 *FUNCTION/OPERATION- * 00180020 * GENERATE EXTERNAL SYMBOL DICTIONARY ENTRIES * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END EQU ACC END OF SEGMENT 23500020 ITEMCT EQU GRD ITEMS IN SEGMENT 23520020 TXPTR EQU ACC POINTER TO TEXT 23540020 WBP EQU GRA POINTER TO WKBKT 23560020 LEV1 EQU GRA RETURN LEVEL 1 23580020 LEV2 EQU GRB RETURN LEVEL 2 23600020 LEV3 EQU GRD RETURN LEVEL 3 23620020 ELOOPR EQU GRC LOOP ADDRESS 23640020 SPACE 23660020 END 23680020 -FILE 414; 104 RECORDS: 0F7G TITLE 'DCGETR - F/7 LITERAL DC GENERATION SUBROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF7G START 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF7G ' ... LITERAL DC GENERATION * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF7G BUILDS A LITERAL DC EDITED TEXT RECORD FOR A OUTSTANDING * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(IEQUAL) EQUAL SIGN IN OPERAND FIELD 01900020 BLNK DC AL1(IBLANK) 01920020 COML DC X'00' COMMENTS FIELD LENGTH=0 01940020 LOC DC 3X'00' LOCATION COUNTER 01960020 URS DC X'00' UNRESOLVED SYMBOL COUNTER=0 01980020 LES DC X'00' 02000020 ALWRD DC F'0' TEMP FULL WORD 02020020 SAVPTR DC F'0' TEMP SAVE AREA FOR GRX 02040020 CON4 DC H'4' NO. OF LIT DC IN SYMBOL TABLE 02060020 END DCGTR 02080020 -FILE 415; 781 RECORDS: 0F7I TITLE '***F7 INITIALIZATION AND I/O SUBROUTINES-- ***' 00020020 ISEQ 73,80 00040020 MACRO 00060020 &L CKFLG &DUMMY 00080020 *CHECK TEXT READ COMPLETE ROUTINE CALL 00100020 &L BAL GR4,TEXTCK 00120020 MEND 00140020 COPY ASMGSET 00160020 ASMGF7I START 00180020 SPACE 1 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(VCON) 15440020 ORG F7CT3-CT3+CSTROM 15460020 DC A(STROOM) 15480020 ORG F7CT3-CT3+CSTREF 15500020 DC A(STREFR) 15520020 * 15540020 ORG F7CT3+CT3C*4 15560020 ORG , 15580020 SPACE 15600020 END ASMGF7 15620020 -FILE 416; 85 RECORDS: 0F7L TITLE 'LOGERR - F/7 LOG ERROR SUBROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF7L START 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 SPACE 00140020 *********************************************************************** 00160020 * * 00180020 * LOGERR IS CALLED BY ASMGF7 TO BUILD ERROR RECORD OR ADD ERROR * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA GR1,4(GR1,GR1) INC RECORD LENGTH 01520020 STH GR1,TXRL(SP2) 01540020 SPACE 01560020 RETURN LM SP1,SP2,SAVE2 RESTORE REGS 01580020 B 2(SRR) RETURN TO CALLING ROUTINE 01600020 SPACE 01620020 SAVE2 DS 2F SP1,SP2 SAVE AREA 01640020 SAVE4 DS 4F SRB-SP2 SAVE AREA 01660020 SPACE 01680020 END ASMGF7L 01700020 -FILE 417; 611 RECORDS: 0F7N TITLE 'TSTRAN - F/7 TESTRAN ROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF7N START 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 SPACE 2 00140020 *TITLE 'ASMGF7N ', TESTRAN * 00160020 *FUNCTION/OPERATION- * 00180020 * WHEN THE TESTRAN OPTION IS USED,ASMGF7C TRANSFERS CONTROL HERE. * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'14' 12040020 DC X'20' 12060020 DC X'24' 12080020 DC X'2C' 12100020 DC X'28' 12120020 DC X'20' 12140020 TEBFR EQU TTN 12160020 PTR EQU GRZ 12180020 LTORG 12200020 END ASMGF7N 12220020 -FILE 418; 358 RECORDS: 0F7S TITLE ' F7S, SYMBOL TABLE PROCESSOR' 00020020 ISEQ 73,80 00040020 ASMGF7S START 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 SPACE 2 00140020 * * 00160020 *TITLE 'ASMGF7S ' ... SYMBOL TABLE PROCESSOR * 00180020 *FUNCTION/OPERATION- * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'101112131415161718191A1B1C' LETTERS 06980020 DC X'1D1E1F20212223242526272829' LETTERS 07000020 DC X'0A0B0C' FUNNY LETTERS $ # @ 07020020 DC X'000000000000000000000000' BLANK 07040020 SPACE 07060020 FLAGS DC X'00' FLAG FOR FOLLOWIN INDICATORS 07080020 GETSW EQU X'0F' GET MODE 07100020 REFSW EQU X'F0' REF MODE 07120020 PUTSW EQU X'00' PUT MODE 07140020 END STGETR 07160020 -FILE 419; 863 RECORDS: 0F7V TITLE 'PHASE 7 EVALUATION ROUTINE' 00020020 ISEQ 73,80 00040020 ASMGF7V START 00060020 EEVAL EQU ASMGF7V 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 PRINT GEN 00140020 * SP1 AT ENTRY CONTAINS A POINTER TO THE FIRST CHARACTER OF THE 00160020 * EXPRESSION TO BE EVALUATED. 00180020 * SP1 AT EXIT CONTAINS A POINTER TO THE CHARACTER FOLLOWING THE 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDOE DS C END EXPRESSION FLAG 17080020 NEWOP DS C LATEST OPERATION FOUND 17100020 LREF DS C L'SYM REF ON(1) OFF(0) 17120020 NCOMP DS 11F 17140020 SAVE EQU NCOMP 17160020 NPTR DC A(NTRMS) ADDRESS OF NTRMS 17180020 TPTR DC A(TERMS) ADDRESS OF TERMS 17200020 OPTR DC A(OPRNS) ADDRESS OF OPRNS 17220020 COMP1 DC A(RLIST+30) CONST TO CHECK NO. OF TERMS 17240020 END 17260020 -FILE 420; 1123 RECORDS: 0F7X TITLE 'TXGET - F/7 GET STATEMENT ROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF7X START 00060020 SPACE 00080020 PRINT DATA,NOGEN 00100020 FDIMEN 00120020 SPACE 2 00140020 * * 00160020 *TITLE ASMGF7X F7 GET STATEMENT ROUTINE * 00180020 *FUNCTION/OPERATION- * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' SPACE= 14 22280020 DC X'1C1D0A1B1DA01B' START= 22300020 DC X'01' START= 1B 22320020 DC X'1D121D150E8018' TITLE= 22340020 DC X'00' TITLE= 18 22360020 OPFN DC X'1E1C1217108623' USING= 22380020 DC X'B9' USING= 23 22400020 EJECT 22420020 LTORG 22440020 END ASMGF7X 22460020 -FILE 421; 946 RECORDS: 0F8A TITLE 'F8AOP--F8 ASSEMBLER OPERATOR PROCESSOR' 00020020 ISEQ 73,80 00040020 ASMGF8A START , ASSEMBLER OP PROCESSOR 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF8A ' ... ASSEMBLER OPERATION PROCESSOR * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF8A PROCESSES THE FOLLOWING ASSEMBLER OPERATIONS- PRINT, SPACE,* 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERRASM EQU 100 OPERAND TOO COMPLES(ASSEMBLER ER 18740020 ERROPN EQU 107 OPERAND ERROR 18760020 ERRPNT EQU 107 UNRECOGNIZABLE PRINT PRAMTR 18780020 EREVL EQU AOPRTN EXPRESSION EVALUATION ERROR 18800020 EQUERR EQU ASERRB STATEMENT TOO COMPLEX ERROR 18820020 PPTR EQU GRA PARAMETER TABLE POINTER 18840020 RLDPTR EQU SP1 RLD POINTER 18860020 COUNT EQU GRB COUNTER REGISTER 18880020 KMNOTE EQU X'0E' HEXOP FOR MNOTE 18900020 END 18920020 -FILE 422; 240 RECORDS: 0F8C TITLE 'F8MLC--F8 MAIN LINE CONTROL--CSS/NO INITIALIZATION' 00020020 ISEQ 73,80 00040020 ASMGF8C START , MAIN LINE CONTROL PHASE 8 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF8C ' ... PHASE 8,MAIN LINE CONTROL * 00160020 *FUNCTION/OPERATION- * 00180020 * PROCESS EDITED TEXT RECORDS FROM ASMGF7. CONTROL THE CALLING OF * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COMREC EQU X'20' COMMENT RECORD TYPE 2 04620020 COMGREC EQU X'30' GENERATED COMMENT RECORD TYPE 3 04640020 PROCREC EQU X'40' PROCESS ONLY RECORD TYPE 4 04660020 PCREC EQU X'60' TYPE 2 AND 4 RECORDS 04680020 PCGREC EQU X'70' TYPE 1,2,AND 3 RECORDS 04700020 SOURCE EQU X'70' SOURCE RECORDS 04720020 LITRHEX EQU X'25' HEX OP FOR LITRAL 04740020 ERRWRP EQU 7 LOCATION COUNTER ERROR 04760020 ADBLDMG DC V(BLDIMG) ADDR OF BUILD IMAGE IN F8PRINT 04780020 END ASMGF8C 04800020 -FILE 423; 1064 RECORDS: 0F8D TITLE 'F8 DCEVAL -- DC AND DS EVALUATION' 00020020 ISEQ 73,80 00040020 ASMGF8D START , START OF DCEVAL FOR F8 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF8D ' ... DC AND DS EVALUATION * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF8D PROCESSES DC'S, DS'S, CXD'S, AND LITERAL DC'S. IT PROCESSES* 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * 01=FIRST OPERAND 21100020 * 02=DONT PRINT 21120020 * 08=NOT LAST CONSTANT 21140020 * 10=ZERO DUP FACTOR 21160020 CHTEMP DS CL3 PACKING SWITCH 21180020 HOLDLCTR DS CL3 ALIGNED LOCATION COUNTER 21200020 BYTEX DS C 00=DS, FF= DC, MIXED= LITERAL 21220020 ESDIDSAV DS C SAVE AREA FOR CESDID(ACT) 21240020 LTORG 21260020 END ASMGF8D 21280020 -FILE 424; 576 RECORDS: 0F8I TITLE 'F8/F8IO---F8 INITIALIZATION AND I/O' 00020020 MACRO 00040020 &L CKFLG &DUMMY 00060020 *CHECK TEXT READ COMPLETE ROUTINE CALL 00080020 &L BAL GR4,TEXTCK 00100020 MEND 00120020 COPY ASMGSET 00140020 ASMGF8I START 00160020 TEXTIO EQU ASMGF8I 00180020 PRINT DATA,NOGEN SEE RTSEGA FOR TABLE PRINT 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RD1 DC X'03' BUFFER ONE SWITCHES 11340020 RD2 DC X'00' BUFFER TWO SWITCHES 11360020 OSW DC X'00' 11380020 EOF DC 4X'7F' EOF FOR LAT 11400020 LABPTR DS F POINTER IN LAT 11420020 LALBA DC F'0' LAT LBA 11440020 RLDPTR DC A(RLDBUF+1) POINTER IN RLD 11460020 RLDLBA DC A(RLDBUF+121) END OF RLD BUFFER 11480020 PCCON EQU 4 PRIVATE CODE INDICATOR 11500020 END ASMGF8 11520020 -FILE 425; 103 RECORDS: 0F8L TITLE 'LOGERR - F/8 LOG ERROR SUBROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF8L START 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 SPACE 00140020 *TITLE 'ASMGF8L ' ... LOG ERROR * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF8L ATTACHES THE ERROR MESSAGE TO AN EDITED TEXT RECORD. IF THE* 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA GR1,4(GR1,GR1) INC RECORD LENGTH 01880020 STH GR1,TXRL(SP2) 01900020 SPACE 01920020 RETURN LM SP1,SP2,SAVE2 RESTORE REGS 01940020 B 2(SRR) RETURN TO CALLING ROUTINE 01960020 SPACE 01980020 SAVE2 DS 2F SP1,SP2 SAVE AREA 02000020 SAVE4 DS 4F SRB-SP2 SAVE AREA 02020020 SPACE 02040020 END ASMGF8L 02060020 -FILE 426; 1042 RECORDS: 0F8M TITLE 'F8MOP--F8 MACHINE OPERATOR PROCESSOR' 00020020 ISEQ 73,80 00040020 ASMGF8M START , MACHINE OP PROCESSOR 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 SPACE 2 00140020 * * 00160020 *TITLE 'ASMGF8M ' ... MACHINE OPERATOR PROCESSOR * 00180020 *FUNCTION/OPERATION- * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERRWRP EQU 7 WRAP AROUND ERROR CODE 20660020 LATP EQU CTXWAP POINTER TO LITERAL ADDRESS TABL 20680020 USNGPP EQU CTXIO3 I/O BUFFER 3 20700020 USNGTP EQU CTXIO4 I/O BUFFER 4 20720020 ERPROC EQU 80 ILLEGAL START CARD 20740020 ERRADR EQU 35 ADDRESSABILITY 20760020 SXTEEN EQU K16 CONSTANT OF 16 20780020 FOR095 EQU K4095 CONSTANT OF 4095 20800020 FOR096 EQU K4096 CONSTANT OF 4096 20820020 END ASMGF8M 20840020 -FILE 427; 489 RECORDS: 0F8N TITLE 'ASSM G - FLOATING-FIXED POINT CONVERSION--- ' 00020020 ISEQ 73,80 00040020 ASMGF8N START , DECIMAL CONVERSION ROUTINE 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF8N ' ... FIXED-FLOATING POINT CONVERSION * 00160020 *FUNCTION/OPERATION- * 00180020 * TO DO ALL FIXED OR FLOATING POINT CONVERSION FOR DC STATEMENTS. IT* 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'1F' 09600020 DC X'0F' 09620020 MERROR STC ZWRH,DCSW SET ERROR 09640020 BR ZWRG AND RETURN 09660020 ZRCD11 EQU 11 SCALE MODIFIER ERROR 09680020 ZRCD13 EQU 13 EXPONENT MODIFIER ERROR 09700020 ZRCD39 EQU 39 INVALID DELIMITER 09720020 ZRCD70 EQU 70 FLOATING POINT CHARACTERISTIC OUT OF RANGE 09740020 ZRCD109 EQU 109 PRECISION LOST 09760020 END DCNVRT1 09780020 -FILE 428; 882 RECORDS: 0F8P TITLE 'F8PRNT -- ASSEMBLER F, PHASE 8 OUTPUT FORMATTING SR' 00020020 ISEQ 73,80 00040020 ASMGF8P START 00060020 USING RECORD,GRA 00080020 USING MAINLN,FRB FRB IS PRIMARY BASE REGISTER 00100020 PRINT NOGEN 00120020 FDIMEN 00140020 PRINT GEN 00160020 * * 00180020 *TITLE 'ASMGF8P ' ... PRINT * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERREC EQU INPUT INTERNAL NAME 17460020 ERLI EQU INPUT LGHT VARIES FROM 8 TO 38 BYTES 17480020 EFLAG EQU INPUT+2 FLAG FOR ERROR RECORDS 17500020 NERR EQU INPUT+3 NUMBER OF ERRORAS 17520020 ESTMNT EQU INPUT+4 STATEMENT NUMBER 17540020 ERR1 EQU INPUT+6 1-16 ERR CODES AND PTRS 17560020 RGTHLF EQU INPUT RIGHT HALF 17580020 RLIX EQU RLIA LENGTH 17600020 FLAGX EQU FLAGA FLAG 17620020 END 17640020 -FILE 429; 113 RECORDS: 0F8S TITLE ' IEUF8S, SYMBOL TABLE GET' 00020020 ISEQ 73,80 00040020 ASMGF8S CSECT 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 * * 00140020 *TITLE 'ASMGF8S ' ... SYMBOL TABLE GET * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF8S LOOKS UP THE SYMBOL IN THE SYMBOL TABLE AND RETURNS * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 4 02080020 BENCH DS D WORK BENCH 02100020 F0XXX DC F'0' 02120020 SPACE 02140020 CODE2 DC X'30313233343536373839101112131415161718191A1B1C1D1E1F' 02160020 DC X'202122232425262728290A0B0C000000000000000000000000' 02180020 SPACE 02200020 LTORG 02220020 SPACE 02240020 END STGETR 02260020 -FILE 430; 863 RECORDS: 0F8V TITLE 'PHASE 8 EVALUATION ROUTINE' 00020020 ISEQ 73,80 00040020 ASMGF8V START 00060020 EEVAL EQU ASMGF8V 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 PRINT GEN 00140020 * * 00160020 *TITLE 'ASMGF8V ' ... EXPRESSION EVALUATION * 00180020 *FUNCTION/OPERATION- * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NEWOP DS C LATEST OPERATION FOUND 17080020 LREF DS C L'SYM REF ON(1) OFF(0) 17100020 NCOMP DS 11F GENERAL SAVE AREA 17120020 SAVE EQU NCOMP 17140020 NPTR DC A(NTRMS) ADDRESS OF NTRMS 17160020 TPTR DC A(TERMS) ADDRESS OF TERMS 17180020 OPTR DC A(OPRNS) ADDRESS OF OPRNS 17200020 COMP1 DC A(RLIST+30) CONST TO CHECK NO. OF TERMS 17220020 LTORG 17240020 END 17260020 -FILE 431; 417 RECORDS: 0IS00 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS00 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08160020 SUB=NO,F8UPC=NO,MASK=04 08180020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08200020 SUB=NO,F8UPC=YES,MASK=00 08220020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08240020 SUB=NO,F8UPC=NO,MASK=00 08260020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,08280020 SUB=YES,F8UPC=YES,MASK=06 08300020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 08320020 END 08340020 -FILE 432; 445 RECORDS: 0IS01 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS01 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08720020 SUB=NO,F8UPC=NO,MASK=04 08740020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08760020 SUB=NO,F8UPC=YES,MASK=00 08780020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08800020 SUB=NO,F8UPC=NO,MASK=00 08820020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,08840020 SUB=YES,F8UPC=YES,MASK=06 08860020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 08880020 END 08900020 -FILE 433; 233 RECORDS: 0IS20 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS20 INSTSET 00060020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES,MASK=2F 00100020 AH INST OP=4A,TYPE=MACH,CLASS=0,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES 00140020 AP INST OP=FA,TYPE=MACH,CLASS=0,ALIGN=C,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 AR INST OP=1A,TYPE=MACH,CLASS=0,ALIGN=C,FLOAT=NO,EVEN=NO, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,04480020 SUB=NO,F8UPC=NO,MASK=04 04500020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,04520020 SUB=NO,F8UPC=YES,MASK=00 04540020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,04560020 SUB=NO,F8UPC=NO,MASK=00 04580020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,04600020 SUB=YES,F8UPC=YES,MASK=06 04620020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 04640020 END 04660020 -FILE 434; 395 RECORDS: 0IS44 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS44 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,07720020 SUB=NO,F8UPC=NO,MASK=04 07740020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,07760020 SUB=NO,F8UPC=YES,MASK=00 07780020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,07800020 SUB=NO,F8UPC=NO,MASK=00 07820020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,07840020 SUB=YES,F8UPC=YES,MASK=06 07860020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 07880020 END 07900020 -FILE 435; 455 RECORDS: 0IS67 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS67 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08920020 SUB=NO,F8UPC=NO,MASK=04 08940020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08960020 SUB=NO,F8UPC=YES,MASK=00 08980020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09000020 SUB=NO,F8UPC=NO,MASK=00 09020020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,09040020 SUB=YES,F8UPC=YES,MASK=06 09060020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 09080020 END 09100020 -FILE 436; 459 RECORDS: 0IS85 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS85 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09000020 SUB=NO,F8UPC=NO,MASK=04 09020020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09040020 SUB=NO,F8UPC=YES,MASK=00 09060020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09080020 SUB=NO,F8UPC=NO,MASK=00 09100020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,09120020 SUB=YES,F8UPC=YES,MASK=06 09140020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 09160020 END 09180020 -FILE 437; 402 RECORDS: 0MAC TITLE 'MACRO GENERATOR INPUT/OUTPUT INTERFACE' 00020020 ISEQ 73,80 00040020 *TITLE-ASMGMAC- PHASE 'MAC'- MACRO GENERATOR INPUT/OUTPUT INTERFACE * 00060020 *FUNCTION- PHASE 'MAC' PROVIDES THE INTERFACE BETWEEN PHASES 'F1', * 00080020 * 'F2', AND 'F3'. 'MAC' IS BRANCHED TO FROM 'ASM'(ASMGASM) AND,* 00100020 * IN TURN, LINKS TO PHASE 'F1'. 'MAC' REMAINS RESIDENT DURING * 00120020 * THE ENTIRE ASSEMBLY, AND CONTAINS AND INITIALIZES THESE * 00140020 * I/O CONTROL PROGRAM ROUTINES- * 00160020 * WRITE * 00180020 * READ * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ASMRET DC V(ASMRET) FOR 'ASM' RETURN ADDRESS 07860020 PNTW1 DC 2F'0' STORAGE FOR N/P 07880020 BUFFENT DC V(BUFFENT) ADDRESS OF BUFFERING ROUTINE 07900020 DC V(BUFFERR) BUFF ERROR HANDLING RTN IN ASM 07920020 SYSINAD DC A(SYSINMON) SYSIN MONITOR 07940020 DCBGET DS F SAVE FOR DCBGET IN SYSIN DCB 07960020 FREEMEM DS 2F FREEMAIN OPERANDS 07980020 LTORG 08000020 SPACE 2 08020020 END ASMGMAC 08040020 -FILE 438; 210 RECORDS: 0RTA TITLE 'G ASSEMBLER ROOT SEGMENT A AND CONTROL TABLE.*.*.*.*.*.*.*' 00020020 ISEQ 73,80 00040020 COPY ASMGSET 00060020 ASMGRTA START 00080020 * * 00100020 *TITLE- 'ASMGRTA ' ... ROOT SEGMENT ASSEMBLER PHASE * 00120020 *FUNCTION/OPERATION- * 00140020 * SETS UP PARTS OF THE ASSEMBLER CONTROL TABLE AND SETS UP THE * 00160020 * REGISTER ACT FOR ALL OF PHASE F7, F8, AND FPP. CONTAINS THE * 00180020 * ASSEMBLER CONTROL TABLE AND THE TRANSLATE TABLE. 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG ACT1+CSGCTR 04020020 DC H'16' 04040020 ORG ACT1+CPRIME 04060020 DC A(PRIME) 04080020 PRIME EQU 307 04100020 LASH EQU 28 SIZE OF LITERAL HASH 04120020 HASH EQU 3*PRIME+LASH SIZE OF HASH TABLE 04140020 FASH EQU HASH/8*8+8 HASH ROUNDED TO D LENGTH 04160020 ESDSEG EQU 256 ESD RESIDENT SEGMENT POINTR LGTH 04180020 END ASMGRTA 04200020 -FILE 439; 423 RECORDS: 0$RUN *MOUNT PAR=POOL ON 9TP *POOL* 'RING IN' $RUN *MOUNT PAR=S472 ON 9TP *WATFOR* 'RING OUT' $EMPTY CDEFN $EMPTY COMMR $EMPTY STARTA $RUN *UPDATE %REW *POOL* %REW *WATFOR* %OUTPUT CDEFN 1 %INPUT *WATFOR* 40 CDEFN 1 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT ‚ ù UAT 0015 TXT µ ù &&UAT 0016 TXT Q ù d&UAT 0017 TXT  ÷  UAT 0018 RLD ù ÷  ÿ¥ -¯µ{\UAT 0019 RLD ù ¥ ³ˆËduDUþ³ˆUAT 0020 RLD ¥ þu {ºUþ UAT 0021 END UAT 0022 LCS LCSYMBOL LDT XTART -FILE 440; 1312 RECORDS: 0BEGTRACE 1002 BER 1013 BHR 1019 BLR 1025 BNER 1031 BNHR 1037 BNLR 1043 BNOR 1049 BNPR 1055 BOR 1061 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MACRO &NAME XROUTS &NUM &NAME MVC XLAS&NUM+2(2),2(R14) XLAS&NUM LA R15,*-*(R12) CLC XUNDEF(&NUM),0(R15) BNER R14 B XERRUV0 MEND -FILE 441; 331 RECORDS: 0 TITLE 'DEFINITIONS' CDF00001 R0 EQU 0 CDF00002 R1 EQU 1 CDF00003 R2 EQU 2 CDF00004 R3 EQU 3 CDF00005 R4 EQU 4 CDF00006 R5 EQU 5 CDF00007 R6 EQU 6 CDF00008 R7 EQU 7 CDF00009 R8 EQU 8 CDF00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Z8 EQU ZR8 /*PATCH*/ CDF00322 Z9 EQU ZR9 /*PATCH*/ CDF00323 Z10 EQU ZR10 /*PATCH*/ CDF00324 Z11 EQU ZR11 /*PATCH*/ CDF00325 Z12 EQU ZR12 /*PATCH*/ CDF00326 Z13 EQU ZR13 /*PATCH*/ CDF00327 Z14 EQU ZR14 /*PATCH*/ CDF00328 Z15 EQU ZR15 /*PATCH*/ CDF00329 ZSAVER EQU Z13 /*****PATCH*****/ CDF00330 TITLE ' ' CDF00331 -FILE 442; 863 RECORDS: 0 TITLE 'COMMUNICATIONS REGION' COM00001 CSTART BALR R11,0 COM00002 USING *,R11 COM00003 LA R10,CSAVER COM00004 CLINK1 MSTART COM00005 DROP R11 COM00006 CSTOP BALR R11,0 COM00007 USING *,R11 COM00008 LA R10,CSAVER COM00009 CLINK1 MSTOP COM00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * NEXT 4 HALF WORDS POINT TO DO PARAMETERS COM00854 AIF ('&WATTYPE' EQ 'DISTR').CCN1 COM00855 ORG CSAVER+3900 COM00856 .CCN1 ANOP COM00857 DMAXNEST EQU &DOSTACK COM00858 CDOIOCT DC A(*+88) COM00859 CDOIOST DC 21F'0' COM00860 CDTOPSTK DC A(CDOSTK+DMAXNEST*16) POINTER TO TOP ENTRY COM00861 CDOSTK DC (DMAXNEST+1)X'7FFFFFFF00FFFFFF0000000000000000' COM00862 TITLE ' ' COM00863 -FILE 443; 1921 RECORDS: 0 TITLE 'START AREA' STA00001 * EXECUTION PROGRAMME INTERRUPT MONITOR STA00002 * STA00003 XTIMINT DC 0H'0' STA00004 USING XTIMINT,15 STA00005 MVI XISNRTN+1,X'00' STA00006 BR R14 STA00007 DROP 15 STA00008 USING ZPIE,1 STA00009 USING XRUPT,15 STA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> XEXP42 LD F0,XEXPLIT STA01912 SDR F2,F2 STA01913 B XCDIV116 STA01914 DROP 15 STA01915 LTORG STA01916 EJECT STA01917 OBJECT DS 0F STA01918 DS &MEMSIZE.C STA01919 SYMBOL DS 0D STA01920 TITLE ' ' STA01921 -FILE 444; 706 RECORDS: 0 MACRO MN#00001 &NAME FLIST &FN,&MODE MN#00002 GBLC &FTABA(255) MN#00003 GBLA &FJ MN#00004 LCLA &I MN#00005 &I SETA 0 MN#00006 .LOOP AIF (&I EQ &FJ).SETUP MN#00007 &I SETA &I+1 MN#00008 AIF ('&FN' EQ '&FTABA(&I)').END MN#00009 AGO .LOOP MN#00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EJECT MN#00697 MRUPT EQU * MN#00698 USING ZPIE,R1 MN#00699 USING MRUPT,R15 MN#00700 CSNAP INTERRPT,,32 MN#00701 BR R14 MN#00702 DROP R1 MN#00703 DROP R15 MN#00704 LTORG MN#00705 END START MN#00706 -FILE 445; 2359 RECORDS: 0 MACRO FCN00001 &NAME FOMIT &FN FCN00002 GBLC &FTABA(255) FCN00003 GBLA &FJ FCN00004 LCLA &I FCN00005 &I SETA 0 FCN00006 .LOOP AIF (&I EQ &FJ).END FCN00007 &I SETA &I+1 FCN00008 AIF ('&FN' EQ '&FTABA(&I)').SETUP FCN00009 AGO .LOOP FCN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC 0F'0' FCN02350 CSAVER EQU * FCN02351 COUT EQU * FCN02352 CSN EQU * FCN02353 CSYMBASE EQU * FCN02354 ********* FCN02355 XSAVEFN2 DC 19F'0' FCN02356 XSAVEFN1 DC 19F'0' FCN02357 ONE EQU XFLTONE FCN02358 END FCN02359 -FILE 446; 1336 RECORDS: 0 TITLE 'RELOCATOR' RLC00001 COPY OPTIONS RLC00002 RCS123 CSECT RLC00003 ENTRY RPH12 RLC00004 ENTRY RPH3 RLC00005 EXTRN END RLC00006 EXTRN MAIN RLC00007 EXTRN XTART RLC00008 PRINT OFF RLC00009 EXTRN CXTART,CXTOP RLC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RPADR1 S R3,RDATBASE RLC01327 THEN DONE RLC01328 RSADRS LA R3,Z5+4 RLC01329 THEN (DO,RPADR1),DONE RLC01330 RSADRD LA R3,Z5+8 RLC01331 THEN (DO,RPADR1),DONE RLC01332 REL45TMP DC X'00' RLC01333 RVGENEQC DC X'00' RLC01334 LTORG RLC01335 END RLC01336 -FILE 447; 1368 RECORDS: 0 MACRO FRC00001 &ADDR DEFSAVE FRC00002 &ADDR LA R13,FVSAVE-FMCNBASE(R15) FRC00003 MEND FRC00004 COPY OPTIONS FRC00005 FORMCONV CSECT FRC00006 PRINT OFF FRC00007 COPY CDEFN FRC00008 STARTA CSECT FRC00009 COPY STARTA FRC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RECLEN DC H'0' FRC01359 INSPNCON DC C'1048576' FRC01360 INDPNCON DC C'4503599627370495' FRC01361 FRIOROUT DS 1F FRC01362 NDEC1 DS 1H V0L1 FRC01363 LTORG FRC01364 ADTBLE EQU TRTBLE+1 FRC01365 FINISH EQU XBOOT FRC01366 ABUFFER EQU XBUFFER FRC01367 END FRC01368 -FILE 448; 4438 RECORDS: 0 MACRO ART00001 &NAME ACENT &N ART00002 &NAME STM R13+1,R13-1,12(R13) ART00003 BAL R11,CENT ART00004 DC A(&N-START) ART00005 USING &N,R13 ART00006 L R3,ADENT ART00007 LA R11,0(R12,R3) ART00008 USING ARITH+8,R11 ART00009 MEND ART00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(ALOGCD00-ALOGCD) PHI.OR .L*4 ART04429 DC AL1(ALOGCD00-ALOGCD) .AND. ART04430 DC AL1(ALOGCD10-ALOGCD) .NOT. ART04431 DC AL1(ALOGCD05-ALOGCD) LR1.OR .L*4 ART04432 DC AL1(ALOGCD08-ALOGCD) .AND. ART04433 DC AL1(ALOGCD03-ALOGCD) .NOT. ART04434 DC AL1(ALOGCD04-ALOGCD) L*4.OR .L*4 ART04435 DC AL1(ALOGCD07-ALOGCD) .AND. ART04436 DC AL1(ALOGCD03-ALOGCD) .NOT. ART04437 END START ART04438 -FILE 449; 466 RECORDS: 0 MACRO FRM00001 &NAME FERROR &LIST FRM00002 &NAME BALR R14,R9 FRM00003 ERRCODE &LIST FRM00004 MEND FRM00005 COPY OPTIONS FRM00006 EXTRN DEXP FRM00007 EXTRN DLOG FRM00008 EXTRN INBINI,OUTBINI FRM00009 EXTRN XTART FRM00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FSAVE14 DS F FRM00457 FBCNT DC H'0' FRM00458 FHMOVE MVC 0(0,R15),0(R1) FRM00459 FLT DC X'0800000050' FRM00460 FRT DC X'380000004C' FRM00461 FORMCONS DC X'1C1814402800202C0000240048' FRM00462 FSW DS X FRM00463 FMTCHAR DS X FRM00464 LTORG FRM00465 END FORMAT FRM00466 -FILE 450; 1045 RECORDS: 0 COPY OPTIONS INO00001 EJECT INO00002 ENTRY GCONT INO00003 ENTRY ISTOP INO00004 ENTRY IPAUS INO00005 ENTRY IBACK INO00006 ENTRY IREWI INO00007 ENTRY IENDF INO00008 ENTRY IREAD INO00009 ENTRY IPUNC INO00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IOLPENDS EQU IOUNIT+2 CHEAP BASTARD INO01036 ILISTCNT EQU IDATACD3+9 INO01037 IMAXUNIT EQU CMAXUNIT INO01038 * IOEND1 DC AL1(IREL1),AL3(XIOEND-START),AL1(IREL1),AL3(XIOERR-START) INO01039 IOEND1 EQU XINPDSRN+4 SAVE SOME SPACE INO01040 INSTLIN EQU XINPDSRN+3 READFMT AND FREE INPUT UNIT INO01041 INSTLOUT EQU XOUTDSRN+3 PRINTFMT AND FREE OUTPUT UNIT INO01042 INSTLPUN EQU XPUNDSRN+3 PUNCHFMT AND FREE PUNCH UNIT INO01043 LTORG INO01044 END INO01045 -FILE 451; 1258 RECORDS: 0 MACRO DOD00001 &NAME DFIXU &LOC DOD00002 &NAME S R3,CSYMBASE DOD00003 STH R3,&LOC(1)+2 DOD00004 AIF (N'&LOC EQ 1).END DOD00005 STH R3,&LOC(2)+2 DOD00006 AIF (N'&LOC EQ 2).END DOD00007 STH R3,&LOC(3)+2 DOD00008 AIF (N'&LOC EQ 3).END DOD00009 STH R3,&LOC(4)+2 DOD00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DOPARMH DC X'00' DOD01249 GASSNSW DC X'00' V0L0 DOD01250 DHIGHEST DC X'00' HIGHEST DONO IN STACK V0L0 DOD01251 * PUTTING OUT END OF DO CODING V0L0 DOD01252 DSTACK DC X'7FFFFFFF',X'00FFFFFF',X'0000000000000000' V0L0 DOD01253 IRGO2 EQU XERRGO2 DOD01254 IRGO3 EQU XERRGO4 DOD01255 IRDO7 EQU XERRDO7 DOD01256 LTORG DOD01257 END DOD01258 -FILE 452; 2066 RECORDS: 0 TITLE '*** MACROS USED IN THIS DECK ***' SPC00001 MACRO SPC00002 &NAME MULTSS SPC00003 LCLA &A SPC00004 &A SETA 24 SPC00005 &NAME DS 0H SPC00006 .A ANOP SPC00007 M R2,TSS+&A SPC00008 &A SETA &A-4 SPC00009 AIF (&A GE 0).A SPC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SR R3,R3 V0L0 SPC02057 ST R3,0(R6,R12) V0L0 SPC02058 LR R7,R9 V0L0 SPC02059 SR R7,R15 V0L0 SPC02060 STH R7,ZVDIME V0L0 SPC02061 GETR R14,TSAVER+16 V0L0 SPC02062 BR R14 V0L0 SPC02063 ******* END OF TDIME2 **************************************V0L0 SPC02064 LTORG SPC02065 END SPC02066 -FILE 453; 990 RECORDS: 0 MACRO LNK00001 &A REND LNK00002 &A DC 0H'0',X'AA00' LNK00003 MEND LNK00004 MACRO LNK00005 &A RSAVA LNK00006 &A DC 0H'0',X'A0000000' LNK00007 MEND LNK00008 MACRO LNK00009 &A RSTNS &B LNK00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'AC' LNK00981 DC AL1(0) LNK00982 DC Y(*-*) LNK00983 LBARND B *-* LNK00984 LRSTNS DC 0H'0',X'A7',AL1(0),Y(0) LNK00985 LRVARS DC 0H'0',X'A6',AL1(0),Y(*-*) LNK00986 LRVARS1 DC 0H'0',X'A6',AL1(8),Y(*-*) LNK00987 LSAVER2 DS 18F LNK00988 LTORG LNK00989 END LNK00990 -FILE 454; 721 RECORDS: 0 PRINT ON,GEN FRI00001 COPY OPTIONS FRI00002 ENTRY FRIOTEMP FRI00003 ENTRY FRIOSCAN FRI00004 FRIO TITLE 'RUN TIME INPUT SCAN ROUTINES' FRI00005 *********************************************************************** FRI00006 *********************************************************************** FRI00007 *********************************************************************** FRI00008 * THIS SECTION SCANS THE INPUT FIELD, (IN FORMAT I/O), OR THE FRI00009 * COMPLETE INPUT BUFFER, (IN FREE I/O), TO SET UP THE INPUT FRI00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BAL R5,FREXIT2 GO TO END OF FIELD ROUTINE FRI00712 LM R1,R6,FREXSAVE RESTORE REGISTERS FRI00713 LA R1,1(0,R1) MOVE POINTER PAST DELIMITER FRI00714 CLI 0(R1),C',' IS THIS CHAR A COMMA FRI00715 BC 6,*+8 NO BRANCH AROUND FRI00716 LA R1,1(0,R1) YES POINT TO NEXT CHAR FRI00717 BC 15,FRIOINIT GO TO INITIALIZE SCAN FRI00718 EJECT FRI00719 LTORG FRI00720 END FRI00721 -FILE 455; 1553 RECORDS: 0 MACRO SCN00001 &NAME TEST &SW,&ON,&OFF SCN00002 &NAME TM &SW,X'01' SCN00003 AIF ('&ON' EQ '').A SCN00004 BO &ON SCN00005 MEXIT SCN00006 .A BNO &OFF SCN00007 MEND SCN00008 GBLA &X,&Y SCN00009 COPY OPTIONS SCN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CLI 2(R1),X'01' SCN01544 BNE PLOOP SCN01545 SNAPS STCK,SPEC,4 SCN01546 LA R1,SCARD SCN01547 SR R2,R2 SCN01548 BR R14 SCN01549 SPEC DC X'00000100' SCN01550 .SSN1 ANOP SCN01551 LTORG SCN01552 END SCN01553 -FILE 456; 344 RECORDS: 0FIOS TITLE 'MTS WATFOR VERSION OF MTS FORTRAN'S IHCFIOSH' FIOC0001 COPY OPTIONS FIOC0002 IHCFIOSH CSECT FIOC0003 ENTRY FIOCS# FIOC0004 EXTRN IBCOM# FIOC0005 EXTRN IHCUATBL FIOC0006 * ***** REGISTER ASSIGNMENTS ***** FIOC0007 R EQU 0 FIOC0008 L EQU 1 FIOC0009 GRX EQU 2 FIOC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UATEPTR DC F'0' PTR TO ACTIVE UATE FIOC0335 BUFLEN DC H'32' LENGTH OF BUFFER IN DOUBLE WORDS FIOC0336 LENGTH DC H'0' FIOC0337 LTORG FIOC0338 DS 0D FIOC0339 SAVE DC 16F'0' FIOC0340 DWBLANK DC CL8' ' FIOC0341 SAVEAREA DS 9D FIOC0342 BUFFER DS 32D FIOC0343 END FIOC0344 -FILE 457; 108 RECORDS: 0******************* OPT00001 * FOLLOWING ARE THE DECLARATIONS FOR THE INST PARAMETERS OPT00002 * THESE SHOULD NOT BE CHANGED OPT00003 ******************* OPT00004 GBLA &FTABC(255) OPT00005 GBLA &ARGA OPT00006 GBLA &PARMCOL OPT00007 GBLA &READ OPT00008 GBLA &PRINT OPT00009 GBLA &PUNCH OPT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .SET2 ANOP OPT00099 &VCHECK1 SETA 0 OPT00100 &VCHECK2 SETA 0 OPT00101 .VEND ANOP OPT00102 AIF ('&CHRMODE' EQ 'BCDIC').SET4 OPT00103 &VCHECK3 SETA 6 OPT00104 AGO .VEND1 OPT00105 .SET4 ANOP OPT00106 &VCHECK3 SETA 0 OPT00107 .VEND1 ANOP OPT00108 -FILE 458; 123 RECORDS: 0$RUN *MOUNT PAR=S415 ON 9TP *LISP* 'RING OUT' $RUN *MOUNT PAR=POOL ON 9TP *POOL* 'RING IN' $RUN *UPDATE %REW *LISP* %REW *POOL* %OUT *POOL* 20 %INP *LISP* 20 %AFTER '00008500' MACRO TTIMER >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEF FILEMARK %CLOSE *LISP* %CLO *POOL* %WTM *POOL* 25 %REW *POOL* %END $RUN *DISMOUNT PAR=*LISP* $CRE LISP $EMP LISP $RUN *ASMG SCARDS=*POOL* SPUNCH=LISP 0=*SYSMAC PAR=SIZE=100,FX,T,IBLK=20 -FILE 459; 3284 RECORDS: 0****** 00000000 MACRO 00000100 &NAME ERROR &MSG 00000200 LCLA &L 00000300 &NAME BAL 0,ERROR 00000400 &L SETA K'&MSG 00000500 DC AL2(&L+2),C' ',C&MSG 00000600 CNOP 2,4 00000700 MEND 00000800 ****** 00000900 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ECHO UNTRACE,SUBR,UNTRACE,1 00313200 ECHO TRACE,SUBR,TRACE,1 00313300 ECHO PACK,SUBR,PACK,1 00313400 ECHO CLEARBUFF,SUBR,CLEARBUF,0 00313500 ECHO MKATOM,SUBR,MKATOM,0 00313600 ECHO CCLASS,SUBR,CCLASS,2 00313700 DC A(*+16-NIL,NIL-NIL) MARK END OF LIST 00313800 ECHO SASSOC,SUBR,SASSOCC,3 00313900 EFWS EQU * 00314000 END MAIN 00314100 -FILE 460; 280 RECORDS: 0$RUN *MOUNT PAR=S469 ON 9TP *PL360* 'PL360 SOURCE - RING OUT' $RUN *MOUNT PAR=POOL ON 9TP *POOL* 'RING IN' $RUN *UPDATE %INP *PL360* %OUT *POOL* %DEL PL000001 BEGIN COMMENT PL360 COMPILER -- MTS VERSION JUNE 1968, MODIF SEPT 16; %DEL PL002193 MVC (132,WBUFF,BLANK); R1 := LABELBASE; MVC (11,B1,ZERO); %CLO *POOL* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPRINT '1' EXIT * BIR MVC 0(0,6),BL80 LEN# DS H BL80 DC CL80' ' SAVE DS 18A EOF DC X'00' END $SIG -FILE 461; 2282 RECORDS: 0 BEGIN COMMENT PL360 COMPILER -- OS VERSION -- JUNE, 1968; PL000001 PL000002 EXTERNAL PROCEDURE SYSINIT(R14); NULL; PL000003 COMMENT OBTAINS FREE STORAGE AND OPENS DATA SETS; PL000004 EXTERNAL PROCEDURE SYSTERM(R14); NULL; PL000005 COMMENT RELEASES FREE STORAGE AND CLOSES DATA SETS; PL000006 PL000007 BYTE LISTFLAG=#FF; COMMENT USED TO CONTROL SOURCE CODE LISTING; PL000008 BYTE NOGOFLAG=#00; COMMENT USED TO INDICATE GO OR NOGO TO NEXT STEP;PL000009 BYTE EXITFLAG=#00; COMMENT USED TO INDICATE END OF ASSEMBLY; PL000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CVD(R1,CONWORK); ED(4,WBUF(3),CONWORK(5)); PL002273 R1 := ERRCOUNT; IF R1 > ERRLIMIT THEN PL002274 MVC(37,WBUF(25),"- ERROR MESSAGE LISTING INCOMPLETE ***"); PL002275 PRINT; SET(NOGOFLAG); PL002276 END; PL002277 R0 := 0; IF ÂEXITFLAG THEN GOTO LOOP; PL002278 SYSTERM; COMMENT RELEASE SYSTEM RESOURCES; PL002279 R2 := MEM(R13+4); IF NOGOFLAG THEN R0 := 16 ELSE R0 := 0; PL002280 MEM(R2+16) := R0; COMMENT SET RETURN CODE; PL002281 END. PL002282 -FILE 462; 201 RECORDS: 0 ICTL 1,71,18 SUP00001 SPACE SUP00002 * SYSTEM LINKAGE ROUTINES * SUP00003 * PL360 COMPILER TO OS/360 * SUP00004 SPACE SUP00005 MACRO SUP00006 &EP ENTER SUP00007 ENTRY &EP SUP00008 USING &EP,15 SUP00009 &EP STM 12,2,SAVE SAVE LINKAGE AND WORK REGISTERS SUP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GOTLIST DS 2F SUP00192 SAVE DS 7F SAVE AREA SUP00193 WORK DS F SUP00194 COMPID DS CL16 COMPILATION ID (TIME AND DATE) SUP00195 EOF DS X SYSIN END-OF-FILE SUP00196 LISTSW DS X LISTING SUP00197 LOADSW DS X OBJECT MODULE (SYSGO) SUP00198 DECKSW DS X OBJECT MODULE (SYSPUNCH) SUP00199 SWITCH DS X SUP00200 END SUP00201 -FILE 463; 361 RECORDS: 0$RUN *MOUNT PAR=S417 ON 9TP *SDS* 'SDS SOURCE - RING OUT' $RUN *MOUNT PAR=POOL ON 9TP *POOL* 'RING IN' $RUN *UPDATE %REW *POOL* %REW *SDS* %OUT *POOL* 40 %INP *SDS* 40 EDITOR 1 %AFT EDIT0032 MACRO &LABEL READ &EOFEXIT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEF FILEMARK %CLO *SDS* %CLO *POOL* %WTM *POOL* 25 %REW *POOL* %END $RUN *DISMOUNT PAR=*SDS* $EMP NEWSDS $RUN *ASMG SCARDS=*POOL* SPUNCH=NEWSDS 0=*SYSMAC 2=SDSMACROS PAR=SIZE=120,IBLK=- 150,T,FX,RD,B -FILE 464; 346 RECORDS: 0COMMENT 100 FETCH 105 GTSPC 110 TERM 115 XPAND 120 LOAD 140 SMAP 145 WR 150 NBC 155 SCTBL 160 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GBLC &SAVLOC &LABEL L LINK,&SAVLOC L BASE2,&SAVLOC+4 AIF (T'&MODE EQ 'O').B2 AIF ('&MODE'(1,1) EQ 'F').B4 .B2 B 4(0,LINK) &SAVLOC DS 2A MEXIT .B4 BR LINK MEND -FILE 465; 642 RECORDS: 0EDTR TITLE 'EDITOR' EDIT0001 * EDIT0002 * ********************************************************** EDIT0003 * * * EDIT0004 * * SDS EDITOR ROUTINE * EDIT0005 * * * EDIT0006 * ********************************************************** EDIT0007 * EDIT0008 * EDIT0009 * EDIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSING COMMENT '-***MISSING SYM OR ESD CARDS.' EDIT0633 B TDEXIT EDIT0634 MSEND COMMENT '-***MISSING END CARD IN OBJECT FILE.' EDIT0635 B TDEXIT EDIT0636 * EDIT0637 PUNT COMMENT '***SYSTEM ERROR.' EDIT0638 ERROR EDIT0639 * EDIT0640 INPUT DS 256C INPUT REGION EDIT0641 END EDIT0642 -FILE 466; 2520 RECORDS: 0SDS TITLE 'SDS INITIALIZATION' SDS00001 * SDS00002 * ********************************************************** SDS00003 * * * SDS00004 * * SYMBOLIC DEBUGGING SYSTEM - COMMUNICATIONS MODULE * SDS00005 * * * SDS00006 * ********************************************************** SDS00007 * SDS00008 * THIS IS THE COMMUNICATIONS MODULE COMMON SDS00009 * TO ALL SECTIONS IN SDS. IT CONTAINS PROCEDURES SDS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * SDS02511 PSTE FR0,FREGS,8,11 SDS02512 PSTE FR2,FREGS+2*4,8,11 SDS02513 PSTE FR4,FREGS+4*4,8,11 SDS02514 PSTE FR6,FREGS+6*4,8,11 SDS02515 PSTE GRS,REGISTRS,4,12 SDS02516 PSTE FRS,FREGS,8,13 SDS02517 PSTE PSW,PSW,8,14 SDS02518 DC X'00000000' SDS02519 END SDS02520 -FILE 467; 1636 RECORDS: 0FCN TITLE 'CONTROL FUNCTION MODULE' FCN00001 * FCN00002 * FCN00003 * FCN00004 * ********************************************************** FCN00005 * * * FCN00006 * * SDS CONTROL FUNCTION MODULE * FCN00007 * * * FCN00008 * ********************************************************** FCN00009 * FCN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MAPENTRY DSECT MAP ENTRY FOR SDS MAP FCN01627 LOADADD DS XL3 LOADED ADDRESS FCN01628 RELOC DS XL3 RELOCATION FACTOR FCN01629 LCSECT DS XL3 LENGTH FOR THIS CSECT FCN01630 CSNAME DS CL8 CSECT NAME FCN01631 SKEY DS X MAP FLAG BYTE FCN01632 STPTR DS XL3 PTR TO START OF CSECT IN SYMBOL TABLE FCN01633 TOBECON DS AL4 PTR TO LAST SDS LINK FOR A SECTION FCN01634 LMAP EQU *-MAPENTRY FCN01635 END FCN01636 -FILE 468; 1758 RECORDS: 0IOC TITLE 'I/O CONVERSION' * INOUT / OUTPUT CONTROL PACKAGE. * THIS SUB-LIBRARY CONATINS ALL THE SDS * INPUT / OUTPUT CONVERSION ROUTINES. * IOC CSECT PRINT NOGEN USING *,BASE COVER IOC USING LINKMOD,CHAIN COVER FOR SDSDSECT ENTRY FIXED >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IE EQU C'E' IPLUS EQU C'+' IMINUS EQU C'-' ICOMMA EQU C',' IQUOTE EQU C'''' IPRIOD EQU C'.' IZERO EQU C'0' I9 EQU C'9' TXDEXP EQU 0 END -FILE 469; 396 RECORDS: 0 EJECT * ********************************************************** * * * * * COMMUNICATION AREA * * * * * ********************************************************** * DS 0D SAVEAREA DS 19F PRIMARY SAVE AREA SAVEARE2 DS 19F SECONDARY SAVE AREA >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CLINK DS A FORWARD POINTER TO CONTINUED ENTRY DC X'E0' TERMINATOR CODE PLINK DS AL4 PTR TO CONTINUATION FOR PREVIOUS SECT LCSE EQU *-SDSLINK * ATDS DSECT DSECT FOR AT-TABLE ENTRY ATADRS DS A LOADED ADDRESS OF BREAKPOINT CARAD DS A POINTER TO COMMAND IN COMMAND TABLE LATENT EQU *-ATDS LENGTH FOR AT-TABLE ENTRY EJECT -FILE 470; 2429 RECORDS: 0MAIN TITLE 'MACRO DEFINITIONS' * PRINT NOGEN * MACRO SUBROUTINE ENTRY &L SAVE &X &L STM RE,&X,12(RD) LA RF,4*(&X+3)+12(RD) ST RF,8(RD) ST RD,4(RF) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * SHORT-FORM RLD * * 0 1 2 3 4 5 6 7 8 9 A B C D E F FORMA DC X'4F1D1E1F2021222324191A1B1C003738' 0 DC X'393A0041424344004B4C4D4E00555657' 1 DC X'58005F60616200696A6B6C0073747576' 2 DC X'007D7E7F80008788898A009192939400' 3 DC X'9A9B9C9D00A5A6A7A800000000000000' 4 * END -FILE 471; 3330 RECORDS: 0 TITLE PDP-8 RAMP CONTROL SYSTEM (VERSION 55) ************************************************************************ * * * PDP-8 RAMP CONTROL SYSTEM * * BASIC SYSTEM NUCLEUS * * SYSTEM PARAMETERS AND OPERATOR DEFINITIONS * * * ************************************************************************ SPACE 2 * ASSEMBLY PARAMETERS >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RMPEND EQU * END OF RAMP EJECT ************************************************************************ * * * PDP-8 RAMP CONTROL SYSTEM * * SYMBOL REFERENCE DICTIONARY * * * ************************************************************************ SPACE 2 END TSK6 -FILE 472; 9747 RECORDS: 0 TITLE PDP-8 RAMP CONTROL SYSTEM (VERSION 54) ************************************************************************ * * * PDP-8 RAMP CONTROL SYSTEM * * SYSTEM PARAMETERS AND OPERATOR DEFINITIONS * * * ************************************************************************ SPACE 2 * ASSEMBLY PARAMETERS * >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RMPEND EQU * END OF RAMP EJECT ************************************************************************ * * * PDP-8 RAMP CONTROL SYSTEM * * SYMBOL REFERENCES * * * ************************************************************************ SPACE 2 END 0