1FILE 1; 4266 RECORDS: 0%DELETE '00012000' &NAME $GETBUF &NONE,&DUMMY,&TYPE=T UM3.0 00012000 %DELETE '00078000' &NAME $FREUNIT &LOC UM3.0 00078000 %DELETE '00082500' '00084000' BAL LINK,$FREUNIT UM3.0 00084000 %DELETE '00100000' &NAME $TRACK &NONE,&DUMMY UM3.0 00100000 AIF ('&NONE' NE '$WAIT').A UM3.0 00100400 &NAME BAL LINK,$TRACK LINK TO TRACK SUBROUTINE UM3.0 00100800 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $GENDCT LNE,&TEMP,$TPDCB,SDA,WORKWDS=4 UM3.0 20300650 .SKIP14 ANOP UM3.0 20300700 * UM3.0 20300750 * REMOTE DEVICE CONTROL TABLES UM3.0 20300800 * UM3.0 20300850 $RMTDCT $GENDCT RJR,&NUMRJE,,(RM,.RD1),WORKWDS=2 20300900 $GENDCT RPR,&NUMRJE,,(RM,.PR1),WORKWDS=2 20300950 AIF (&NUMTPPU EQ 0).NORMTPU UM3.0 20301000 $GENDCT RPU,&NUMRJE,,(RM,.PU1),WORKWDS=2 20301050 .NORMTPU ANOP UM3.0 20301100 -FILE 2; 12402 RECORDS: 0HASP TITLE 'S P O O L ' UM1.0 00000000 * 00002000 ***** $GETBUF ***** GET A BUFFER 00004000 * 00006000 * 00008000 MACRO 00010000 &NAME $GETBUF &NONE,&DUMMY,&TYPE=T UM3.0 00012000 &NAME BAL LINK,$GE&TYPE.BUF LINK TO ROUTINE V02.0 00014000 $NPEXIT &NONE SET UP NON-PROCESS EXIT 00016000 MEND 00018000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *256+$L5/10*16+$L6 20348000 SPACE 3 UM1.0 20348100 TRACES UM1.0 20348200 TITLE 'M T S -- DSECTS ETC.' 20348300 COPY MTS.EQU2 20348400 DUMMY DSECT 20348500 COPY MTS.CONTAB 20348600 SPACE 3 UM1.0 20348700 COPY MTS.DSECT UM1.0 20348800 END 20350000 -FILE 3; 400 RECORDS: 0 AIF (&NUMRJE EQ 0).NOCONP UM3.0 00002000 &WRCB SETC '91' WRITE TO REMOTE CONSOLE. 00140000 &ORCB SETC '92' READ FROM REMOTE CONSOLE. 00160000 TITLE 'S P O O L -- REMOTE TERMINAL CONSOLE PROCESSOR' 00180000 AIF ('&BSCCPU' NE 'YES').NOBCPU1 00200000 * 00220000 * REMOTE TERMINAL CONSOLE PROCESSOR 00240000 * 00260000 * THE REMOTE TERMINAL CONSOLE PROCESSOR WRITES TO REMOTE TERMI- 00280000 * NAL CONSOLES (VIA $EXTP OPEN, PUT, AND CLOSE) AND READS FROM THEM 00300000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(111) REMOTE CONSOLE LINE LENGTH. UM3.0 06362000 MCDTPLIN DC AL1(0) DCTPLINE FROM ANOTHER DCT. 06400000 DC A(0) EVENT WAIT FIELD. 06420000 DC A(0) POINTER TO NEXT DCT. 06440000 DC CL4'RMT-' DEVICE NAME. 06460000 MCONCON DC CL4'CON ' CONSOLE NAME CONSTANT. 06480000 MDUMMY DC 2A(0) DUMMY UM3.0 06482000 MCDTRCB DC F'0' VARIABLE DEVICE WORK AREA. UM3.0 06484000 DC XL2'0040' FN CTRL SEQ - SHOW CONSOLE. UM3.0 06486000 .NOCONP ANOP UM3.0 06488000 -FILE 4; 326 RECORDS: 0 MACRO 00020000 HRTPCONP 00040000 GBLA &NUMRJE 00060000 GBLC &BSCCPU 00080000 LCLC &WRCB,&ORCB 00100000 AIF (&NUMRJE EQ 0).NORJE 00120000 &WRCB SETC '91' WRITE TO REMOTE CONSOLE. 00140000 &ORCB SETC '92' READ FROM REMOTE CONSOLE. 00160000 TITLE 'S P O O L -- REMOTE TERMINAL CONSOLE PROCESSOR' 00180000 AIF ('&BSCCPU' NE 'YES').NOBCPU1 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(15) PRIORITY LIMIT. 06340000 DC X'234B' PRINTER FORMS. 06360000 DC AL1(120) REMOTE CONSOLE LINE LENGTH. 06380000 MCDTPLIN DC AL1(0) DCTPLINE FROM ANOTHER DCT. 06400000 DC A(0) EVENT WAIT FIELD. 06420000 DC A(0) POINTER TO NEXT DCT. 06440000 DC CL4'RMT-' DEVICE NAME. 06460000 MCONCON DC CL4'CON ' CONSOLE NAME CONSTANT. 06480000 MCDTRCB DC F'0' VARIABLE DEVICE WORK AREA. 06500000 DC XL2'0040' FN CTRL SEQ - SHOW CONSOLE. 06520000 -FILE 5; 161 RECORDS: 0%BEFORE '00020000' AIF (&NUMRJE EQ 0).NOCONP UM3.0 00002000 %DELETE '00020000' '00120000' %BEFORE '01000000' MCONREDO NULL UM3.0 00982000 %DELETE '01000000' %BEFORE '01240000' AIF ('&BSCCPU' EQ 'YES').BSCCPU1 UM3.0 01222000 MVC 0(4,WB),0(WC) DECHAIN WQUEBUSY HERE IF NOT BSCCPU 01224000 AGO .NOBCPU3 UM3.0 01226000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEFORE '06380000' DC AL1(111) REMOTE CONSOLE LINE LENGTH. UM3.0 06362000 %DELETE '06380000' %BEFORE '06500000' MDUMMY DC 2A(0) DUMMY UM3.0 06482000 MCDTRCB DC F'0' VARIABLE DEVICE WORK AREA. UM3.0 06484000 DC XL2'0040' FN CTRL SEQ - SHOW CONSOLE. UM3.0 06486000 .NOCONP ANOP UM3.0 06488000 %DELETE '06500000' '06520000' %BEF FILEMARK -FILE 6; 2420 RECORDS: 0 AIF (&NUMRJE EQ 0).NORTAM UM3.0 00002000 TITLE 'S P O O L -- REMOTE TERMINAL HASPGEN OPTIONS' 00540000 $WAITIME EQU 10 TERMINAL POLLING TIME IN SECONDS 00560000 $DELAYCT EQU 256 MODEL 20 DELAY COUNT 00580000 SPACE 10 00600000 TITLE 'S P O O L -- REMOTE TERMINAL ACCESS METHOD' 00940000 * 00960000 * LINE MANAGER REGISTER DEFINITIONS 00980000 * 01000000 SPACE 3 01020000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'F0D1D2C3D4C5C647D8C9F0F0F0F0F0F0' 9X 47340000 DC X'F0F0B2A3B4A5A627B8A9F0F0F0F0F0F0' AX 47360000 DC X'9AE1E293E4959617E899F0F0F0F0F0F0' BX 47380000 DC X'F0717263746566877869F0F0F0F0F0F0' CX 47400000 DC X'F0D1D2C3D4C5C647D8C9F0F0F0F0F0F0' DX 47420000 DC X'AAF0B2A3B4A5A627B8A9F0F0F0F0F0F0' EX 47440000 DC X'9AE1E293E4959617E899F0F0F0F0F0F0' FX 47460000 SPACE 5 47480000 .NSHDW91 DROP MDCT,MBUF,MCODE,MBASE1,MBASE2 DROP ALL ADDRESSABILITY 47500000 .NORTAM ANOP UM3.0 47502000 -FILE 7; 2375 RECORDS: 0 MACRO 00020000 HRTPRTAM 00040000 GBLA &NUMRJE,&NUMTPPU,&TPBFSIZ,&MLBFSIZ,&PRTRANS 00060000 GBLC &STROPT,&STR1978,&STRCPU 00080000 GBLC &BSCOPT,&BSC2780,&BSCCPU,&USASCII 00100000 LCLA &HTDIST 00120000 LCLC &BSVBOPT 00140000 AIF (&NUMRJE EQ 0).NORJE 00160000 .* 00180000 .* DEFINE HASPGEN OPTIONS 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'F0717263746566877869F0F0F0F0F0F0' 8X 47320000 DC X'F0D1D2C3D4C5C647D8C9F0F0F0F0F0F0' 9X 47340000 DC X'F0F0B2A3B4A5A627B8A9F0F0F0F0F0F0' AX 47360000 DC X'9AE1E293E4959617E899F0F0F0F0F0F0' BX 47380000 DC X'F0717263746566877869F0F0F0F0F0F0' CX 47400000 DC X'F0D1D2C3D4C5C647D8C9F0F0F0F0F0F0' DX 47420000 DC X'AAF0B2A3B4A5A627B8A9F0F0F0F0F0F0' EX 47440000 DC X'9AE1E293E4959617E899F0F0F0F0F0F0' FX 47460000 SPACE 5 47480000 .NSHDW91 DROP MDCT,MBUF,MCODE,MBASE1,MBASE2 DROP ALL ADDRESSABILITY 47500000 -FILE 8; 235 RECORDS: 0%BEFORE '00020000' AIF (&NUMRJE EQ 0).NORTAM UM3.0 00002000 %DELETE '00020000' '00520000' %DELETE '00620000' '00920000' %BEFORE '01620000' MDCTJOB1 EQU X'20' JOB POST INDICATOR 1 H02.3 01602000 MDCTJOB2 EQU X'10' JOB POST INDICATOR 2 H02.3 01604000 MDCTJOB EQU MDCTJOB1+MDCTJOB2 JOB POST INDICATION H02.3 01606000 %DELETE '01620000' %BEFORE '05500000' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %DELETE '41700000' '41720000' %BEFORE '41840000' DC X'0F0F0F0F0F0F0F0F0F0F0F0F2D174E4E' H02.3 41822000 %DELETE '41840000' %BEFORE '41980000' DC X'B1B1B2A3B1B1B1B1B1B1B1B1B1B171CA' H02.3 41962000 %DELETE '41980000' %AFTER '47500000' .NORTAM ANOP UM3.0 47502000 %BEF FILEMARK -FILE 9; 946 RECORDS: 0 AIF (&NUMRJE EQ 0).NOMLLM UM3.0 00002000 TITLE 'S P O O L -- MULTI-LEAVING LINE MANAGER' 00140000 $MULTILV NULL MULTI-LEAVING LINE MANAGER 00160000 USING DCTDSECT,MDCT ESTABLISH DCT ADDRESSABILITY 00180000 USING BUFDSECT,MBUF ESTABLISH BUFFER ADDRESSABILITY 00200000 USING MCODSECT,MCODE ESTABLISH CODE TABLE ADDRESSABILITY 00220000 USING $RTAM,MBASE1,MBASE2 ESTABLISH RTAM ADDRESSABILITY 00240000 USING $MULTILV,BASE2 ESTABLISH PROCESSOR ADDRESSABILITY 00260000 LM MBASE1,MBASE2,$RTAMBAS LOAD RTAM BASE REGISTERS 00280000 SPACE 5 00300000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MVC IOBCCW5+5(9),MWABTSEQ FOR 17100000 MVC IOBCCW6(2),MSTXSEQ RESPONSE 17120000 SPACE 1 17140000 MTIMEXCP NULL * 17160000 .NBCPUXO MVC IOBSTART,IOBRESTR SET UP ADDRESS OF FIRST CCW UM3.0 17162000 BAL ML,MERREXCP INITIATE I/O 17200000 B MSEARCH SEARCH FOR OTHER REQUIRED PROCESSING 17220000 SPACE 5 17240000 DROP MDCT,MBUF,MCODE,MBASE1,MBASE2 DROP ALL ADDRESSABILITY 17260000 .NOMLLM ANOP UM3.0 17262000 -FILE 10; 863 RECORDS: 0 MACRO 00020000 HRTPMLLM 00040000 GBLA &NUMRJE,&NUMLNES,&NUMTPPU,&PRINT,&PUNCH 00060000 GBLC &STROPT,&STR1978,&STRCPU 00080000 GBLC &BSCOPT,&BSC2780,&BSCCPU,&USASCII 00100000 AIF (&NUMRJE EQ 0).NORJE 00120000 TITLE 'S P O O L -- MULTI-LEAVING LINE MANAGER' 00140000 $MULTILV NULL MULTI-LEAVING LINE MANAGER 00160000 USING DCTDSECT,MDCT ESTABLISH DCT ADDRESSABILITY 00180000 USING BUFDSECT,MBUF ESTABLISH BUFFER ADDRESSABILITY 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MVI IOBCCW5,X'02' SEQUENCE 17080000 MVC IOBCCW5+5(9),MWABTSEQ FOR 17100000 MVC IOBCCW6(2),MSTXSEQ RESPONSE 17120000 SPACE 1 17140000 MTIMEXCP NULL * 17160000 .NBCPU61 MVC IOBSTART,IOBRESTR SET UP ADDRESS OF FIRST CCW 17180000 BAL ML,MERREXCP INITIATE I/O 17200000 B MSEARCH SEARCH FOR OTHER REQUIRED PROCESSING 17220000 SPACE 5 17240000 DROP MDCT,MBUF,MCODE,MBASE1,MBASE2 DROP ALL ADDRESSABILITY 17260000 -FILE 11; 285 RECORDS: 0%BEFORE '00020000' AIF (&NUMRJE EQ 0).NOMLLM UM3.0 00002000 %DELETE '00020000' '00120000' %BEFORE '00500000' MCHANTST TS $MULTLB UM3.0 00482000 BZ *+10 UM3.0 00484000 SVC DORMNT UM3.0 00486000 B MCHANTST UM3.0 00488000 %DELETE '00500000' '00520000' %BEFORE '00920000' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L MBUF,DCTBUFAD GET ADDRESS OF BUFFER UM3.0 16684000 MTIMERST L MCODE,MDCTCODE GET ADDRESS OF CODE TABLE UM3.0 16686000 AIF ('&BSCCPU' NE 'YES').NBCPUXO UM3.0 16688000 %DELETE '16700000' '16760000' %BEFORE '17180000' .NBCPUXO MVC IOBSTART,IOBRESTR SET UP ADDRESS OF FIRST CCW UM3.0 17162000 %DELETE '17180000' %AFTER '17260000' .NOMLLM ANOP UM3.0 17262000 %BEF FILEMARK -FILE 12; 98 RECORDS: 0 AIF (&NUMRJE EQ 0).NOEXTP UM3.0 00002000 TITLE 'S P O O L -- $EXTP SERVICE ENTRY ROUTINES' 00100000 *********************************************************************** 00120000 * * 00140000 * REMOTE JOB ENTRY OPEN ROUTINE * 00160000 * * 00180000 * ENTRY PARAMETER -- * 00200000 * R1 = ADDRESS OF REMOTE DEVICE CONTROL TABLE. * 00220000 * * 00240000 *********************************************************************** 00260000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BR LINK AND RETURN 01840000 SPACE 10 01860000 $RTAMBAS DC A($RTAM,$RTAM+4096) BASE ADDRESSES FOR RJE ACCESS METHOD 01880000 MCONPCE DC A($MCONPCE) ADDRESS OF REMOTE CONSOLE PCE 01900000 MRMTDCT DC A($RMTDCT) ADDRESS OF FIRST REMOTE DCT 01920000 MPOOLECF DC X'00' REMOTE MASTER EVENT CONTROL FIELD 01940000 MSOFCODE DS 0CL10 UM3.0 01942000 DC X'E0',CL9'$SIGNOFF' S-8 $SIGNOFF CODE UM3.0 01944000 DROP R1,MBASE1,MBASE2 DROP ADDRESSABILITY UM3.0 01946000 .NOEXTP ANOP UM3.0 01948000 -FILE 13; 99 RECORDS: 0 MACRO 00020000 HRTPEXTP 00040000 GBLA &NUMRJE 00060000 AIF (&NUMRJE EQ 0).NORJE 00080000 TITLE 'S P O O L -- $EXTP SERVICE ENTRY ROUTINES' 00100000 *********************************************************************** 00120000 * * 00140000 * REMOTE JOB ENTRY OPEN ROUTINE * 00160000 * * 00180000 * ENTRY PARAMETER -- * 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 01800000 MABEXIT SR R0,R0 SET EOF CONDITION CODE 01820000 BR LINK AND RETURN 01840000 SPACE 10 01860000 $RTAMBAS DC A($RTAM,$RTAM+4096) BASE ADDRESSES FOR RJE ACCESS METHOD 01880000 MCONPCE DC A($MCONPCE) ADDRESS OF REMOTE CONSOLE PCE 01900000 MRMTDCT DC A($RMTDCT) ADDRESS OF FIRST REMOTE DCT 01920000 MPOOLECF DC X'00' REMOTE MASTER EVENT CONTROL FIELD 01940000 MSOFCODE DC CL10'/*SIGNOFF' SIGN-OFF CODE 01960000 DROP R1,MBASE1,MBASE2 DROP ADDRESSABILITY 01980000 -FILE 14; 10 RECORDS: 0%BEFORE '00020000' AIF (&NUMRJE EQ 0).NOEXTP UM3.0 00002000 %DELETE '00020000' '00080000' %BEFORE '01960000' MSOFCODE DS 0CL10 UM3.0 01942000 DC X'E0',CL9'$SIGNOFF' S-8 $SIGNOFF CODE UM3.0 01944000 DROP R1,MBASE1,MBASE2 DROP ADDRESSABILITY UM3.0 01946000 .NOEXTP ANOP UM3.0 01948000 %DELETE '01960000' '01980000' %BEF FILEMARK -FILE 15; 7877 RECORDS: 0 TITLE 'RTP1130 (1130 MACRO DEFINITIONS) 07/27/69' 00010000 SPACE 3 00020000 *********************************************************************** 00030000 * * 00040000 * TITLE - OS/360 MACRO DEFINTIONS FOR 1130 INSTRUCTIONS * 00050000 * * 00060000 * GENERAL DESCRIPTION - * 00070000 * * 00080000 * THE MACROS DEFINED BELOW ATTEMPT TO ALLOW 1130 PROGRAMS TO BE * 00090000 * ASSEMBLED ON AN IBM 360 USING THE OS/360 ASSEMBLER OR IT'S * 00100000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TITLE 'RTP1130 (TP BUFFER ORIGIN)' 75420000 SPACE 3 75430000 *********************************************************************** 75440000 * TP BUFFER ORIGIN AND QUEUE POINTER DEFINITIONS * 75450000 *********************************************************************** 75460000 TPBUFFQP $ADCON ($BUFPOOL) FREE BUFFER QUEUE POINTER 75470000 TPBUFIQP DC AL2(*-*) INPUT BUFFER QUEUE POINTER 75480000 TPBUFOQP DC AL2(*-*) OUTPUT BUFFER QUEUE POINTER 75490000 $BUFPOOL $NULL START OF TP BUFFER POOL 75500000 END RTPETIN UM3.0 75502000 -FILE 16; 7550 RECORDS: 0 TITLE 'RTP1130 (1130 MACRO DEFINITIONS) 07/27/69' 00010000 SPACE 3 00020000 *********************************************************************** 00030000 * * 00040000 * TITLE - OS/360 MACRO DEFINTIONS FOR 1130 INSTRUCTIONS * 00050000 * * 00060000 * GENERAL DESCRIPTION - * 00070000 * * 00080000 * THE MACROS DEFINED BELOW ATTEMPT TO ALLOW 1130 PROGRAMS TO BE * 00090000 * ASSEMBLED ON AN IBM 360 USING THE OS/360 ASSEMBLER OR IT'S * 00100000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PRINT ON 75410000 TITLE 'RTP1130 (TP BUFFER ORIGIN)' 75420000 SPACE 3 75430000 *********************************************************************** 75440000 * TP BUFFER ORIGIN AND QUEUE POINTER DEFINITIONS * 75450000 *********************************************************************** 75460000 TPBUFFQP $ADCON ($BUFPOOL) FREE BUFFER QUEUE POINTER 75470000 TPBUFIQP DC AL2(*-*) INPUT BUFFER QUEUE POINTER 75480000 TPBUFOQP DC AL2(*-*) OUTPUT BUFFER QUEUE POINTER 75490000 $BUFPOOL $NULL START OF TP BUFFER POOL 75500000 -FILE 17; 761 RECORDS: 0%BEFORE '05450000' GBLB &PN1442 CARD PUNCH (1442-5 OR 6,7) H02.3 05442000 %DELETE '05450000' %BEFORE '05500000' GBLA &UCS UCS FEATURE ON 1403 UM3.0 05492000 GBLA &PNTRAIN PN PRINT TRAIN ON 1403 UM3.0 05494000 GBLA &UCSBLNK USE X'40' AS BLANK CHARACTER UM3.0 05496000 %BEFORE '05600000' GBLA &CLOCK DATA SET OR INTERNAL CLOCKING H02.3 05592000 %DELETE '05600000' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00C6' CHARACTER F UM3.0 72129000 .U1403K ANOP UM3.0 72129500 %BEFORE '73160000' AIF (&PRFOTLW NE 132).D1403LN UM3.0 73152000 DMREADEM DS 66H UM3.0 73154000 AGO .DMASM11 1403 BUFFER UM3.0 73156000 .D1403LN ANOP UM3.0 73158000 %AFTER '75500000' END RTPETIN UM3.0 75502000 %BEF FILEMARK -FILE 18; 1650 RECORDS: 0 TITLE 'RTP1130 (1130 MACRO DEFINITIONS) 07/27/69' 00020000 SPACE 3 00040000 *********************************************************************** 00060000 * * 00080000 * TITLE - OS/360 MACRO DEFINTIONS FOR 1130 INSTRUCTIONS * 00100000 * * 00120000 * GENERAL DESCRIPTION - * 00140000 * * 00160000 * THE MACROS DEFINED BELOW ATTEMPT TO ALLOW 1130 PROGRAMS TO BE * 00180000 * ASSEMBLED ON AN IBM 360 USING THE OS/360 ASSEMBLER OR IT'S * 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * OF UPPER CORE TO SIDESTEP 32740000 * RTP1130 TP BUFFER BUILDING 32760000 * PROCESS 32780000 AIF (&RMTID LT 10).LT10 UM3.0 32782000 RTPETSOR DC AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',58C' ' 32784000 AGO .END UM3.0 32786000 .LT10 ANOP UM3.0 32788000 RTPETSOR DC AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',59C' ' 32790000 .END ANOP UM3.0 32792000 END RTPLINIT UM3.0 32794000 -FILE 19; 1640 RECORDS: 0 TITLE 'RTP1130 (1130 MACRO DEFINITIONS) 07/27/69' 00020000 SPACE 3 00040000 *********************************************************************** 00060000 * * 00080000 * TITLE - OS/360 MACRO DEFINTIONS FOR 1130 INSTRUCTIONS * 00100000 * * 00120000 * GENERAL DESCRIPTION - * 00140000 * * 00160000 * THE MACROS DEFINED BELOW ATTEMPT TO ALLOW 1130 PROGRAMS TO BE * 00180000 * ASSEMBLED ON AN IBM 360 USING THE OS/360 ASSEMBLER OR IT'S * 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'0004' 4 PUNCH 32620000 DC X'0003' 3 PUNCH 32640000 DC X'0002' 2 PUNCH 32660000 TITLE 'RTPLOAD (/*SIGNON CARD STORAGE)' 32680000 UPPER EQU START+2*(1024-42) 32700000 ORG UPPER ORIGIN SIGN-ON IN FAR REACHES 32720000 * OF UPPER CORE TO SIDESTEP 32740000 * RTP1130 TP BUFFER BUILDING 32760000 * PROCESS 32780000 RTPETSOR DC AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',59C' ' 32800000 -FILE 20; 27 RECORDS: 0%BEFORE '10160000' &RMTID SETA 1 DEFINE REMOTE IDENTIFICATION H02.3 10142000 %DELETE '10160000' %BEFORE '10500000' &CONINSZ SETA 120 CONSOLE INPUT TANK SIZE UM3.0 10482000 %DELETE '10500000' %BEFORE '29320000' $LD 0,WA UM3.0 29302000 $EOR SIGT00 UM3.0 29304000 $BZ SIGS8 ITS AN S-8 $ UM3.0 29306000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEFORE '32800000' AIF (&RMTID LT 10).LT10 UM3.0 32782000 RTPETSOR DC AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',58C' ' 32784000 AGO .END UM3.0 32786000 .LT10 ANOP UM3.0 32788000 RTPETSOR DC AL1(0),C'0A/*SIGNON',7C' ',C'REMOTE',C'&RMTID',59C' ' 32790000 .END ANOP UM3.0 32792000 END RTPLINIT UM3.0 32794000 %DELETE '32800000' %BEF FILEMARK -FILE 21; 5114 RECORDS: 0HRTP TITLE 'H A S P / R T P *MACRO DEFINITIONS*(MODEL 20 INSTS.)' 00020000 * 00040000 ***** BAS ***** BRANCH AND STORE 00060000 * 00080000 MACRO 00100000 &NAME BAS &R,&LOC 00120000 GBLA &MACHINE 00140000 &NAME NULL 00160000 AIF (&MACHINE NE 20).ANOT20 00180000 DC X'4D' 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * 97100000 * 08 = ADAPTER WRITE LOGGING 97120000 * 08OOOOOO OOOOOO= BYTES 2,3,4 OF OUTPUT DATA 97140000 * 97160000 * 09 = ALL COMMUNICATION ADAPTER INTERRUPTS 97180000 * 09IIIIII IIIIII= BYTES 2,3,4 OF INPUT DATA 97200000 * 97220000 *********************************************************************** 97240000 EJECT 97260000 END $REPLOAD UM3.0 97262000 -FILE 22; 4863 RECORDS: 0HRTP TITLE 'H A S P / R T P *MACRO DEFINITIONS*(MODEL 20 INSTS.)' 00020000 * 00040000 ***** BAS ***** BRANCH AND STORE 00060000 * 00080000 MACRO 00100000 &NAME BAS &R,&LOC 00120000 GBLA &MACHINE 00140000 &NAME NULL 00160000 AIF (&MACHINE NE 20).ANOT20 00180000 DC X'4D' 00200000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * 07000000 97080000 * 97100000 * 08 = ADAPTER WRITE LOGGING 97120000 * 08OOOOOO OOOOOO= BYTES 2,3,4 OF OUTPUT DATA 97140000 * 97160000 * 09 = ALL COMMUNICATION ADAPTER INTERRUPTS 97180000 * 09IIIIII IIIIII= BYTES 2,3,4 OF INPUT DATA 97200000 * 97220000 *********************************************************************** 97240000 EJECT 97260000 -FILE 23; 411 RECORDS: 0%BEFORE '08420000' &NAME SPSW *+4 H02.3 08402000 %DELETE '08420000' %BEFORE '08600000' &NAME SSM =X'&MASK' H02.3 08582000 %DELETE '08600000' %BEFORE '14500000' GBLA &XIOFAKE UM3.0 14482000 %BEFORE '15100000' &PRE.LOC&A XIO &ADDR.(&LOP+&XIOFAKE),&PRE.CT UM3.0 15082000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $SSM FF PREPARE FOR INTERRUPT UM3.0 94486000 B * LOOP UNITL INTERRUPT H02.2 94488000 %DELETE '94500000' '94540000' %BEFORE '94660000' CLC IREADRES,=AL1(XDLE,XACK0) WAS ACK RECEIVED H02.3 94642000 BNE IAGAIN START OVER IF NOT UM3.0 94644000 %DELETE '94660000' '94880000' %AFTER '97260000' END $REPLOAD UM3.0 97262000 %BEF FILEMARK -FILE 24; 16 RECORDS: 0Ƴ䭥 ú  ƪ      ڥ ٥ ٥ Υ ƥ   >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  ð ư   ƪ     åíúƥƭƺ ٥          ê ڥ -FILE 25; 258 RECORDS: 0SYM LETRINThhhhgIHB0004BLTRI0001 SYM INTkOKSVCEyIMPINTyBADINThhhhLTRI0002 SYM {hDcF###1fYOLDSPIEASALTRI0003 SYM LETRINThhh hhh<h&hLTRI0004 SYM  LTRI0005 ESD LETRINT LETRRIP  SPIE  LTRI0006 ESD SVXOS10  SVXOS19  SVXOS20  LTRI0007 ESD SERCOM  ERROR  LTRI0008 TXT } 0{&0}&}0{  0A &{Y0{0{LTRI0009 TXT  ͓{Y0A ͓}}q} k} h0n 0LTRI0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD ^ OSIM0179 RLD D8<&* OSIM0180 RLD mqy\UY4 OSIM0181 RLD  @{DHQ OSIM0182 RLD *-uy^ 0OSIM0183 RLD 48   HY OSIM0184 RLD 48٥ٳ OSIM0185 RLD   & OSIM0186 END ASMG 70JUL10 19:41.43 3 SEP 70 OSIM0187 ENT LETRINT -FILE 26; 331 RECORDS: 0%BEFORE 'HSPL0007' * ON ENTRY R2 POINTS TO A PARAMETER LIST AS FOLLOWS * 0-3 THE BCD NAME OF THE DEVICE * 4-7 THE LOCATION IN THE DCT OF THE FOLLOWING * 0 : SLEEP BYTE * 1-3 : BUFFER CHAIN * 4-5 : JOB NUMBER * 6 : LOCK BYTE * %BEFORE 'HSPL0017' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IOBCCW6 DS D IOBCCW7 DS D IOBCCW8 DS D TPBUFCHN DS 0F TPBUFST DS 0F %DELETE 'HSPL0370' 'HSPL0371' %BEFORE 'HSPL0377' DCTPSTAT DS 0C %DELETE 'HSPL0394' %BEF FILEMARK -FILE 27; 635 RECORDS: 0HSPL TITLE ' HASPLING -- JOB TO CONTROL AN I/O DEVICE' HSPL0001 ********************************************************************** HSPL0002 * * HSPL0003 * T H I S IS THE HASPLING * HSPL0004 * * HSPL0005 ********************************************************************** HSPL0006 * ON ENTRY R2 POINTS TO A PARAMETER LIST AS FOLLOWS HSPL0007 * 0-3 THE BCD NAME OF THE DEVICE HSPL0008 * 4-7 THE LOCATION IN THE DCT OF THE FOLLOWING HSPL0009 * 0 : SLEEP BYTE HSPL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DCTEWF DS F HSPL0626 DCTFLAGS DS 0C HSPL0627 DCTCHAIN DS F HSPL0628 DCTDEVN DS CL8 HSPL0629 DCTWAYT DS F HSPL0630 DCTSJNO DS H HSPL0631 DCTSJWK DS H HSPL0632 DCTWORK DS 0F HSPL0633 SPACE HSPL0634 END HSPL0635 -FILE 28; 777 RECORDS: 0HBQ TITLE 'HASP BATCH QUEUE POSITION FINDER' HBQ00001 HBQ CSECT HBQ00002 SPACE 1 HBQ00003 *********************************************************************** HBQ00004 * * HBQ00005 * TO USE THIS ROUTINE: * HBQ00006 * $RUN *HBQ PAR=RFSNO * HBQ00007 * WHERE 'RFSNO' IS A LEGITIMATE REQUEST-FOR-SERVICE (S8) NUMBER * HBQ00008 * IF 'PAR=' IS NOT SPECIFIED, *HBQ PROMPTS FROM GUSER. * HBQ00009 * * HBQ00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> QUEPRIO DS C JOB PRIORITY HBQ00768 QUETYPE DS C Q TYPE HBQ00769 QUEPRTRT DS C HBQ00770 QUEPUNRT DS C HBQ00771 QUEFLAGS EQU * Q FLAGS HBQ00772 QUECHAIN DS A NEXT Q ENTRY HBQ00773 DS A HBQ00774 QUEJOBNO DS XL4 JOB NUMBER HBQ00775 SPACE 1 HBQ00776 END HBQ00777 -FILE 29; 5086 RECORDS: 0 PRINT NOGEN 00000001 TITLE 'Table of Contents' 00000002 PRINT NOGEN 00000003 TITLE 'Linkage and Equivalences' 00000004 COPY MLINK Linkage segment 00000005 * 00000006 * ENTRY POINTS USED BY BLOCKS 00000007 * 00000008 ENTRY ARGVAL 00000009 ENTRY AUGATL 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SOURCF FORMAT '(42H0BELL TELEPHONE LABORATORIES, INCORPORATED,/1H1)' 00005077 STATHD FORMAT '(28H1SNOBOL4 STATISTICS SUMMARY-)' 00005078 STDMP FORMAT '(33H1DUMP OF VARIABLES AT TERMINATION/1H )' 00005079 STGENO FORMAT '(1H0,I15,33H REGENERATIONS OF DYNAMIC STORAGE)' 00005080 SUCCF FORMAT '(37H0NO ERRORS DETECTED IN SOURCE PROGRAM/1H1)' 00005081 SYSCMT FORMAT '(27H0CUT BY SYSTEM IN STATEMENT,I4,9H AT LEVEL,I3)' 00005082 TIMEPS FORMAT '(1H0,F15.2,35H MS. AVERAGE PER STATEMENT EXECUTED/1H1)' 00005083 TITLEF FORMAT '(37H1SNOBOL4 (VERSION 3.3, MAR. 26, 1970)/8H+_______)' 00005084 WRITNO FORMAT '(1H0,I15,17H WRITES PERFORMED)' 00005085 END 00005086 -FILE 30; 4427 RECORDS: 0 MACRO 00000001 &LOC ACOMP@ &CL1,&CL2,&LOC1,&LOC2,&LOC3 00000002 &LOC L 1,0 00000003 C 1,0 00000004 AIF ('&LOC1' NE '&LOC2').NOT12 00000005 AIF ('&LOC1' NE '').K1 00000006 BL 0 00000007 MEXIT 00000008 .K1 BNL 0 00000009 AIF ('&LOC3' EQ '').DONE 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BRANCH RTN1 00004418 WA$FMT1 FORMAT '(29H IT OCCURRED IN STATEMENT NO. ,I5)' 00004419 WA1 LHERE 00004420 SETAC ERRTYP,ERRNO+2 00004421 BRANCH FTLEND 00004422 WA$N DESCR 0,0,0 00004423 WA$DIAG DESCR DIAGUN,0,0 00004424 WA$FMT FORMAT '(20H THIS IS WARNING NO.,I4)' 00004425 LTORG 00004426 END 00004427 -FILE 31; 226 RECORDS: 0./ ADD LIST=ALL,SEQFLD=774,NAME=CYC 00000001 ./ NUMBER SEQ1=ALL,NEW1=0010,INCR=0010 00000002 MACRO 00000003 &LOC CYC &CL1 00000004 &LOC ACOMPC &CL1,3*DESCR,,,AA&SYSNDX 00000005 SETAC &CL1,0 00000006 AA&SYSNDX INCRA &CL1,DESCR 00000007 MEND CYC 00000008 ./ ADD LIST=ALL,SEQFLD=774,NAME=FASTPR 00000009 ./ NUMBER SEQ1=ALL,NEW1=0010,INCR=0010 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ./ ADD LIST=ALL,SEQFLD=774,NAME=TRL 00000217 ./ NUMBER SEQ1=ALL,NEW1=0010,INCR=0010 00000218 MACRO 00000219 &LOC TRL &CL1,&CL2 00000220 &LOC MOVD &CL1,&CL2 00000221 VEQLC &CL2,EDGDT,AA&SYSNDX 00000222 GETDC &CL1,&CL2,TR1$ 00000223 AA&SYSNDX LHERE , 00000224 MEND TRL 00000225 ./ ENDUP 00000226 -FILE 32; 1925 RECORDS: 0./ ADD NAME=AAAA,LEVEL=01,SOURCE=0 00000001 00000002 E31 MACROS (NOVEMBER 26, 1969) 00000003 00000004 ./ ADD NAME=ACOMP,LEVEL=01,SOURCE=0 00000005 MACRO 00000006 &LOC ACOMP &CL1,&CL2,&LOC1,&LOC2,&LOC3 00000007 &LOC L 1,&CL1 00000008 C 1,&CL2 00000009 AIF ('&LOC1' NE '&LOC2').NOT12 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> &LOC ZERBLK &PTR,&CL 00001916 &LOC L 1,&PTR 00001917 L 5,&CL 00001918 LR 4,8 00001919 LR 3,0 00001920 LD 0,=D'0' 00001921 A&SYSNDX STD 0,0(3,1) 00001922 BXLE 3,4,A&SYSNDX 00001923 MEND ZERBLK 00001924 ./ ENDUP 00001925 -FILE 33; 365 RECORDS: 0CLEANIO CSECT 00000001 ENTRY FASTRD 00000002 ENTRY STREAD 00000003 ENTRY FASTPR 00000004 ENTRY FINIS 00000005 ENTRY FORTSAVE 00000006 ENTRY IHCTRCH 00000007 *********************************************************************** 00000008 * * 00000009 * CLEANIO * 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 4H 00000356 DS CL1 00000357 DS 0F 00000358 SAVE DS 16F REGISTER SAVE 00000359 FDIOCS$ DS F 00000360 MAINEP DS F MAIN PROGRAM ENTRY POINT 00000361 ERRSAV DS 18F 00000362 ENDFILE DS F EXIT ADDRESS FOR EOF, OR ZEROS 00000363 IOERROR DS F EXIT FOR I/O ERROR CR ZEROS 00000364 END 00000365 -FILE 34; 2284 RECORDS: 0 TITLE 'E31 (NOVEMBER 24, 1969)' 00000001 SUBR START 00000002 ENTRY ALPHA 00000003 ENTRY APDSP 00000004 ENTRY BDSPEC 00000005 ENTRY BIOPTB 00000006 ENTRY CARDTB 00000007 ENTRY COMPLG 00000008 ENTRY COPL 00000009 ENTRY DATER 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B 8(14) 00002275 STRMTRT TRT 1(0,1),0(3) TRANSLATE AND TEST. 00002276 STTEMP DC 2F'0' 00002277 LTORG 00002278 TITLE 'ARITH# AND ADJSWTCH' 00002279 ARITH# CSECT 00002280 DC F'0' 00002281 ADJSWTCH CSECT 00002282 DC F'0' 00002283 END 00002284 -FILE 35; 45 RECORDS: 0SNOMAC: PROCEDURE OPTIONS (MAIN); DECLARE HEADER STATIC CHARACTER (2); DECLARE DUMMY1 STATIC CHARACTER (7); DECLARE NAME STATIC CHARACTER (5); DECLARE LINE STATIC CHARACTER (58); DECLARE DUMMY2 STATIC CHARACTER (8); DECLARE CNT BINARY FIXED INITIAL (0); START: CALL READ; IF HEADER='./' THEN GO TO NEWMAC; PRINT: PUT FILE(MACRO) EDIT (HEADER,DUMMY1,NAME,LINE) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COP3: PUT FILE(COPY3) EDIT (HEADER,DUMMY1,NAME,LINE) (A(2), A(7), A(5), A(58)); CALL READ; IF HEADER='./' THEN GO TO NEWMAC; GO TO COP3; READ: PROCEDURE; GET EDIT (HEADER,DUMMY1,NAME,LINE,DUMMY2) (A(2), A(7), A(5), A(58), A(8)); END READ; END: END SNOMAC; -FILE 36; 66 RECORDS: 0ESD SNOMAC ;*SNOMACA IHEQINV  SNOM0001 ESD IHESADA  IHESADB  IHEQERR  SNOM0002 ESD IHEQTIC IHEMAIN IHENTRY SNOM0003 ESD IHESAPC  IHEQLWF IHEQSLA  SNOM0004 ESD IHEQLW0 *SNOMACB*SNOMACC SNOM0005 ESD IHEDIBA  IHEDOBA  IHEIOAT  SNOM0006 ESD IHEIOAA  IHEIOBT  IHEIOBA  SNOM0007 ESD IHESAFA  IHESCDS SCARDS  SNOM0008 ESD COPY3 COPY3 COPY2 SNOM0009 ESD COPY2 COPY1 COPY1  SNOM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT SNOM0057 TXT ٓ00 SNOM0058 RLD r ~jr~z SNOM0059 TXT SCARDSSNOM0060 TXT COPY3SNOM0061 TXT COPY2SNOM0062 TXT COPY1SNOM0063 TXT MACROSNOM0064 RLD `SNOM0065 END SNOM0066 -FILE 37; 1081 RECORDS: 0$RUN *MOUNT S322 9TP *IN* SIZE=3200 RING=OUT 'S4B-V3.3 SEQ ID SOURCE' S320 9TP *OUT* SIZE=3200 RING=IN 'S4B-V3.3 UPDATE' $ENDFILE $RUN *UPDATE %REW *IN* %REW *OUT* %INPUT *IN* 40 %OUTPUT *OUT* 40 %DELETE '00000001' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $EMPTY MDATA $EMPTY MLINK $EMPTY PARMS $RUN MACLEAN+*PL1LIB PAR=SCARDS=*OUT*@F(3200,80) MACRO=MACROS1(1000)@F(72) - COPY1=MDATA@F(72) COPY2=MLINK@F(72) COPY3=PARMS@F(72) $RUN *MACGEN SCARDS=MACROS1(1000) SPUNCH=MACROS1 $LIST MACROS1 $LIST MDATA $LIST MLINK $LIST PARMS -FILE 38; 3725 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 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRTCCW DS 3D TSFO3716 WRITCCW DS (WRITCCWL/8)D TSFO3717 NEWCCW DS 2D TSFO3718 RTNLST DS (RTNLSTL/4)F TSFO3719 TABCHAR DS C TSFO3720 ORG (PSCT+((((*-PSCT)+31)/32)*32)) TSFO3721 TRACTAB DS (NTRACE*LTRACE)F TSFO3722 DS 0D TSFO3723 PSECTL EQU *-PSCT TSFO3724 END TSFO3725 -FILE 39; 346 RECORDS: 0 MACRO TGEN0001 EMSG &N,&C TGEN0002 EMSG&N DC A(EMSG&N.L) TGEN0003 DC A(*+4) TGEN0004 DC C&C TGEN0005 EMSG&N.L EQU *-EMSG&N-8 TGEN0006 DS 0F TGEN0007 MEND TGEN0008 EJECT TGEN0009 START 0 TGEN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EJECT TGEN0337 SA DS 18F TGEN0338 SPACE 5 TGEN0339 GOLFBALL DS 64CL(GOLFSCTL) TGEN0340 GOLFL EQU *-GOLFBALL TGEN0341 EBCD DS (EBCDMAX)CL(EBCDSCTL) TGEN0342 EBCDL EQU *-EBCD TGEN0343 KEYBOARD DS 64CL(KBDSCTL) TGEN0344 KBDL EQU *-KEYBOARD TGEN0345 END TGEN0346 -FILE 40; 64 RECORDS: 0 00 1 X'02' X 1 X'82' 01 B 8 C X'51' XB 8 C X'D1' 02 BA 1 X'62' XBA 1 X'E2' 03 2 X'04' X 2 X'84' 04 A8 1 X'32' X A8 1 X'B2' 05 A 42 X'2C' X A 42 X'AC' 06 A 2 C X'25' X A 2 C X'A5' 07 21C X'07' X 21C X'87' 08 A 421C X'2F' X A 421C X'AF' 09 BA 4 1C X'6B' XBA 4 1C X'EB' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 54 BA84 1 X'7A' XBA84 1 X'FA' 55 842 X'1C' X 842 X'9C' 56 A842 C X'3D' X A842 C X'BD' 57 B 842 C X'5D' XB 842 C X'DD' 58 BA842 X'7C' XBA842 X'FC' 59 8421C X'1F' X 8421C X'9F' 60 A8421 X'3E' X A8421 X'BE' 61 B 8421 X'5E' XB 8421 X'DE' 62 BA8421C X'7F' XBA8421C X'FF' 63 C X'01' X C X'81' -FILE 41; 64 RECORDS: 0 00 1 X'02' X 1 X'82' 01 BA 42 C X'6D' XBA 42 C X'ED' 02 B 421C X'4F' XB 421C X'CF' 03 2 X'04' X 2 X'84' 04 8 2 C X'15' X 8 2 C X'95' 05 B 8 21C X'57' XB 8 21C X'D7' 06 B 8 1 X'52' XB 8 1 X'D2' 07 21C X'07' X 21C X'87' 08 A 1C X'23' X A 1C X'A3' 09 A 4 C X'29' X A 4 C X'A9' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 54 BA84 1 X'7A' XBA84 1 X'FA' 55 842 X'1C' X 842 X'9C' 56 A842 C X'3D' X A842 C X'BD' 57 B 842 C X'5D' XB 842 C X'DD' 58 BA842 X'7C' XBA842 X'FC' 59 8421C X'1F' X 8421C X'9F' 60 A8421 X'3E' X A8421 X'BE' 61 B 8421 X'5E' XB 8421 X'DE' 62 BA8421C X'7F' XBA8421C X'FF' 63 C X'01' X C X'81' -FILE 42; 265 RECORDS: 0'00' NUL '01' SOH '02' STX '03' ETX '04' PF '05' HT '06' LC '07' DEL '08' '09' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 'F6' SIX 'F7' SEVEN 'F8' EIGHT 'F9' NINE 'FA' 'FB' 'FC' 'FD' 'FE' 'FF' -FILE 43; 64 RECORDS: 0 00 ONE EQUALS 01 Q(LC) Q(UC) 02 A(LC) A(UC) 03 TWO LESS-THAN SIGN 04 Z(LC) Z(UC) 05 W(LC) W(UC) 06 S(LC) S(UC) 07 THREE SEMICOLON 08 X(LC) X(UC) 09 E(LC) E(UC) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 54 HT HT 55 UC UC 56 EOB EOB 57 BS BS 58 LC LC 59 EOT EOT 60 PRE PRE 61 IL IL 62 DEL DEL 63 SPACE SPACE -FILE 44; 64 RECORDS: 0 00 ONE DIERESIS 01 Q(UC) QUESTION MARK 02 A(UC) ALPHA(LC) 03 TWO NEGATION 04 Z(UC) SUBSET 05 W(UC) OMEGA(LC) 06 S(UC) CEILING 07 THREE LESS THAN 08 X(UC) SUPERSET 09 E(UC) EPSILON(LC) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 54 HT HT 55 UC UC 56 EOB EOB 57 BS BS 58 LC LC 59 EOT EOT 60 PRE PRE 61 IL IL 62 DEL DEL 63 SPACE SPACE -FILE 45; 64 RECORDS: 0 00 ONE APOSTROPHE 01 Q(UC) FILLED SQUARE 02 A(UC) AT SIGN 03 TWO QUOTATION MARK 04 Z(UC) PERCENT SIGN 05 W(UC) FILLED SQUARE 06 S(UC) POUND SIGN 07 THREE LESS-THAN SIGN 08 X(UC) EXCLAMATION POINT 09 E(UC) FILLED SQUARE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 54 HT HT 55 UC UC 56 EOB EOB 57 BS BS 58 LC LC 59 EOT EOT 60 PRE PRE 61 IL IL 62 DEL DEL 63 SPACE SPACE -FILE 46; 64 RECORDS: 0 00 ONE DIERESIS 01 Q(UC) QUESTION MARK 02 A(UC) ALPHA(LC) 03 TWO NEGATION 04 Z(UC) SUBSET 05 W(UC) OMEGA(LC) 06 S(UC) CEILING 07 THREE LESS THAN 08 X(UC) SUPERSET 09 E(UC) EPSILON(LC) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 54 HT HT 55 UC UC 56 EOB EOB 57 BS BS 58 LC LC 59 EOT EOT 60 PRE PRE 61 IL IL 62 DEL DEL 63 SPACE SPACE -FILE 47; 2435 RECORDS: 0CLOSE 1001 MACL0001 GETMAIN 1162 MACL0002 ABEND 1429 MACL0003 SNARK 1482 MACL0004 FREEMAIN 1489 MACL0005 OPEN 1738 MACL0006 ESDLIST 1955 MACL0007 GUINFO 1985 MACL0008 CUINFO 2001 MACL0009 GUSER$ 2009 MACL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MACRO MACL2426 &NAME RELSE &DCB MACL2427 AIF ('&DCB' EQ '').ERR MACL2428 &NAME IHBINNRA &DCB MACL2429 L 15,40(0,1) LOAD REG 15 FROM DCB MACL2430 BAL 14,8(0,15) LINK TO RELSE RTN MACL2431 MEXIT MACL2432 .ERR IHBERMAC 06,117 MACL2433 MEND MACL2434 MACL2435 -FILE 48; 646 RECORDS: 0IHEEVT 1001 PLMC0001 IHELIB 1043 PLMC0002 IHEPRV 1167 PLMC0003 IHESDR 1184 PLMC0004 IHEXLV 1199 PLMC0005 IHEZAP 1235 PLMC0006 IHEZZZ 1580 PLMC0007 00000000 PLMC0008 ./ ADD IHEEVT,01,1,1,00059280 PLMC0009 MACRO PLMC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPIA DS A . ADDRESS OF PREVIOUS SPICA PLMC0637 APBFA DS A . ADDRESS OF PUT BUFFER ROUTINE. PLMC0638 APBFB DS A . '' FOR DOUBLE SPACING. PLMC0639 APBFC DS A . '' FOR TRIPLE SPACING. PLMC0640 OPNL DS A PLMC0641 .LNTH ANOP PLMC0642 LWRK EQU *-WORK . LENGTH OF WORK SAPCE FOR DUMP. PLMC0643 EJECT PLMC0644 MEND PLMC0645 ./ ENDUP PLMC0646 -FILE 49; 139 RECORDS: 0 EJECT SEQU0001 DECDSECT DSECT SEQU0002 DECSDECB DS F EVENT CNTL BLK SEQU0003 DECTYPE DS H TYPE OF I/O MACRO SEQU0004 DECLNGTH DS H LENGTH OF KEY AND KATA SEQU0005 DECDCBAD DS A A(DCB) SEQU0006 DECAREA DS A A(AREA) SEQU0007 DECIOBPT DS A A(IOB) OR ZERO. SEQU0008 EJECT SEQU0009 DCBD DSORG=(PS) SEQU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RY EQU 14 SEQU0130 RZ EQU 15 SEQU0131 SPACE SEQU0132 * FLOATING POINT REGISTERS. SEQU0133 SPACE SEQU0134 FA EQU 0 SEQU0135 FB EQU 2 SEQU0136 FC EQU 4 SEQU0137 FD EQU 6 SEQU0138 EJECT SEQU0139 -FILE 50; 44 RECORDS: 0PAT TITLE ' PATCHES.....' PAT00001 MACRO PAT00002 PAT &NAME,&LOC,&INFO PAT00003 DC CL2'&NAME' PAT00004 DC XL2'&LOC' PAT00005 DC AL1(L'A&SYSNDX-1) PAT00006 A&SYSNDX DC X'&INFO' PAT00007 MEND PAT00008 PATCHER CSECT PAT00009 USING PATCHER,15 PAT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PAT IL,752,08 DATE PAT00035 PAT IL,760,08 TIME PAT00036 PAT OS,18A,1BFF40F0D080 WAS D201D0800000 PAT00037 PAT OS,3A0,1BFF40F0D080 WAS D201D0800000 PAT00038 PAT OS,40A,1BFF40F0D080 WAS D201D0800000 PAT00039 PAT OS,7BE,1BFF40F0D112 WAS D201D1120000 PAT00040 PAT XC,8B2,F0 PAT00041 PAT ZZ,0,0 STOPPER PAT00042 DS 50F PAT00043 END PAT00044 -FILE 51; 124 RECORDS: 0FDN TITLE 'SUBROUTINE FDNAME' FDNM0001 ** NOTE THIS IS NOW REENTRANT FDNM0002 FDNAME CSECT FDNM0003 STM 14,12,12(13) *GR13* REQUIRED FDNM0004 LR 10,15 FDNM0005 USING FDNAME,10 FDNM0006 LR 2,0 FDNM0007 USING FDBDCT,2 FDNM0008 LA 1,24 FDNM0009 L 15,=V(GETSPACE) FDNM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBDS DS F FDNM0115 FDUBCH DS F FDNM0116 FDUBTYPE DS X FDNM0117 DS 7X SPARES FDNM0118 SPACE FDNM0119 NAMDCT DSECT FDNM0120 NAME DS CL24 FDNM0121 SPACE FDNM0122 RJBBUF EQU X'44' FDNM0123 END FDNM0124 -FILE 52; 13 RECORDS: 0TIOT TITLE ' I/O TABLE' TIOT0001 TIOT# CSECT TIOT0002 SPACE TIOT0003 PRINT OFF TIOT0004 COPY SAMEQU TIOT0005 TIOT# CSECT TIOT0006 PRINT ON TIOT0007 SPACE TIOT0008 DC X'FF' TIOT0009 DC (25*TIOLTH-1)X'00' ENUF FOR 25 DDNAMES TIOT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'EE' STOPPER TIOT0011 SPACE 5 TIOT0012 END TIOT0013 -FILE 53; 230 RECORDS: 0STOR TITLE ' SIMULATE REGMAIN,GETMAIN,FREEMAIN' STOR0001 STORMAIN CSECT STOR0002 * PARAMETERS FOR REGMAIN SVC STOR0003 * REG0 FIRST BYTE - SUBPOOL STOR0004 * 3 BYTES LENGTH STOR0005 * REG1 FIRST BYTE - ZERO FOR FREEMAIN STOR0006 * 3 BYTES - ADDR OF BUFFER, ZERO IF ENTIRE SUBPOOL IS TO STOR0007 * BE RELEASED STOR0008 * STOR0009 * ABENDS FOR SVC 10 (GETMAIN/FREEMAIN WITH R OPERAND) STOR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE STOR0221 MSG1 MSG 'SUBPOOL RELEASING IS NOT SUPPORTED' STOR0222 MSG2 MSG 'RELEASING SUBPOOL ZERO NOT PERMITTED' STOR0223 MSG3 MSG 'ILLEGAL SUBPOOL NUMBER' STOR0224 MSG4 MSG 'REQUESTED STORAGE COULD NOT BE RELEASED' STOR0225 MSG5 MSG 'NOT ENOUGH STORAGE AVAILABLE' STOR0226 MSG6 MSG 'AREA TO BE RELEASED NOT A MULTIPLE OF 8' STOR0227 MSG7 MSG 'LIST REQUEST IS NOT SUPPORTED' STOR0228 SPACE STOR0229 END STOR0230 -FILE 54; 349 RECORDS: 0DDEF TITLE ' ROUTINE TO SET UP DD''S' DDEF0001 MACRO DDEF0002 &NAME SINK &LOC DDEF0003 &NAME MVC &LOC+2(8),DDNAME MOVE DDNAME DDEF0004 SERCOM$ &LOC PRINT A MSG DDEF0005 MEND DDEF0006 SPACE 5 DDEF0007 DDEF# CSECT DDEF0008 USING MHADCB,BR DDEF0009 USING DDEF#,BASE DDEF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MODTEST CLC 3(0,RF),0(RC) DDEF0340 PATCH DS 10F DDEF0341 SA DS 18F DDEF0342 SPACE 2 DDEF0343 BASE EQU 10 DDEF0344 TIOR EQU 11 DDEF0345 FLDR EQU 12 DDEF0346 PRINT OFF DDEF0347 COPY SAMEQU DDEF0348 END DDEF0349 -FILE 55; 606 RECORDS: 0OPEN TITLE ' SIMULATE QSAM-BSAM OPEN RTN' OPEN0001 DMTOPEN CSECT OPEN0002 SPACE OPEN0003 ENTRY OPEN# OPEN0004 * OPTION PARAMETER IN HIGH ORDER BITS OPEN0005 SPACE OPEN0006 * BIT 0 - IF ON, THEN IS THE LAST DCB OPEN0007 SPACE OPEN0008 LAST EQU 128 OPEN0009 SPACE OPEN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BASE EQU 8 OPEN0597 PARMR EQU 9 OPEN0598 TIOR EQU 10 OPEN0599 DCBR EQU 11 OPEN0600 FLDR EQU 12 OPEN0601 GDFR EQU 12 OPEN0602 NOT EQU 255 OPEN0603 SPACE 2 OPEN0604 COPY SAMEQU OPEN0605 END OPEN0606 -FILE 56; 1016 RECORDS: 0ROUT TITLE ' LIST OF ROUTINES' ROUT0001 DMTROUTE CSECT ROUT0002 DC AL2(GETPUT-DMTROUTE) ROUT0003 DC AL2(EOBRTN-DMTROUTE) ROUT0004 DC AL2(CNTRL-DMTROUTE) ROUT0005 GETPUT DC AL2(RTNTBL-GETPUT) ROUT0006 DC AL2(UNITBL-GETPUT) ROUT0007 RTNTBL DC AL2(GETLOCAT-*) ROUT0008 DC AL2(GETLVARR-*) ROUT0009 DC AL2(GETMOVER-*) ROUT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DBL DS D ROUT1007 ASATABLE DC C' 0-+123456789ABC' ROUT1008 OPNTABLE DC X'0B131B038B939BA3ABB3BBC3CBD3DBE309' ROUT1009 TRTABLE DC X'09111901899199A1A9B1B9C1C9D1D9E109' ROUT1010 SPACE 3 ROUT1011 PATCH DS 20F ROUT1012 SPACE 5 ROUT1013 COPY SAMEQU ROUT1014 SPACE ROUT1015 END ROUT1016 -FILE 57; 125 RECORDS: 0CLOS TITLE ' CLOSING SCHEME' CLOS0001 DMTCLOS CSECT CLOS0002 SPACE CLOS0003 ENTRY CLOSE# CLOS0004 SPACE CLOS0005 * CLOSE OPTIONS CLOS0006 SPACE CLOS0007 * BIT 0 CLOS0008 SPACE CLOS0009 LAST EQU 128 THE VERY LAST ONE CLOS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> QQSV DS 15F CLOS0116 COPY SAMEQU CLOS0117 TIOR EQU RB CLOS0118 FDUBR EQU 7 CLOS0119 DCBR EQU 11 CLOS0120 BASE EQU 8 CLOS0121 PARMR EQU 3 CLOS0122 GDFR EQU 9 CLOS0123 NOT EQU 255 CLOS0124 END CLOS0125 -FILE 58; 874 RECORDS: 0LOAD TITLE ' DYNAMIC LOADING ROUTINES' LOAD0001 DYNAMIC# CSECT LOAD0002 SPACE 5 LOAD0003 *********************************************************************** LOAD0004 ENTRY LOAD# LOAD0005 *********************************************************************** LOAD0006 SPACE LOAD0007 USING LOAD#,15 LOAD0008 LOAD# STM 0,14,SAFETY SAVE CALLER'S REGS LOAD0009 MVI LOADSW,LOAD WE ARELOADING LOAD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOADTYPE DS 0BL1 LOAD TYPE LOAD0865 RTNREG DS A TO RESTORE REGISTER 14 LOAD0866 SI DS A STORAGE INDEX LOAD0867 CPUTIME DS F CPU TIME TO LOAD LOAD0868 ELTIME DS F ELAPSED TIME TO LOAD LOAD0869 ENDL DS 0D LOAD0870 PTRS EQU FOREPTR LOAD0871 LOADLTH EQU ENDL-LOADLIST TOTAL AMOUNT OF LOAD LIST LOAD0872 SPACE 5 LOAD0873 END LOAD0874 -FILE 59; 33 RECORDS: 0TIMR TITLE ' TIME THINGS UP' TIMR0001 TIMER CSECT , HELLO THE TIMER TIMR0002 SPACE 2 TIMR0003 ENTRY STIMER START THE TIMER TIMR0004 SPACE 5 TIMR0005 USING STIMER,15 TIMR0006 STIMER ST 2,TWO SAVE THIS TWO TIMR0007 SVC 38 CALL MTA'S SUPERVISOR TIMR0008 STM 0,2,TIME SET THE CLOCK TIMR0009 L 2,TWO RESTORE THIS TWO TIMR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> S 2,TIME+8 GET ELAPSED TIME TIMR0024 LPR 1,2 POSITIVE TIME, THAT IS TIMR0025 L 2,TWO RESTOR REG 2 TIMR0026 BR 14 SAY A GOOD-BYE TIMR0027 SPACE 5 TIMR0028 DAY DC A(24*60*60*300) DAY IN TERMS OF 300THS SECS TIMR0029 TWO DS F TIMR0030 TIME DS 3F TIMR0031 SPACE 5 TIMR0032 END TIMR0033 -FILE 60; 18 RECORDS: 0QUIT TITLE ' QUIT ONLY IN BATCH' QUIT0001 QUIT$ CSECT QUIT0002 USING *,15 QUIT0003 ST 14,RG14 SAVE THE RETURN REG QUIT0004 L 15,=V(CANREPLY) QUIT0005 BALR 14,15 FIGURE WHTHER WE ARE IN BATCH QUIT0006 DROP 15 QUIT0007 USING *,14 QUIT0008 B *+4(15) QUIT0009 B NOCALL QUIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 15,=V(QUIT) OK QUIT THE USER QUIT0011 BALR 14,15 QUIT0012 NOCALL BALR 14,0 SET COMMON BASE REG QUIT0013 USING *,14 QUIT0014 L 14,RG14 QUIT0015 BR 14 QUIT0016 RG14 DS F QUIT0017 END QUIT0018 -FILE 61; 76 RECORDS: 0$ TITLE ' AUXILIARY ROUTINES' $0000001 $ CSECT $0000002 SPACE 5 $0000003 ENTRY SERCOM$,SPRINT$,SPUNCH$ $0000004 ENTRY SCARDS$,GUSER$ $0000005 SPACE 5 $0000006 USING SERCOM$,15 $0000007 SERCOM$ MVI MOD+3,X'40' $0000008 MVC ROUTE,=V(SERCOM#) $0000009 B OUTMSG $0000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RETURN DC F'0' $0000067 ROUTE DC F'0' $0000068 MOD DC F'0' $0000069 NOTRIM DC A(X'4000') $0000070 INPARM DC A(BUFFER,LTH,NOTRIM,QQSV) $0000071 OUTPARM DC A(0,LTH,MOD,QQSV) $0000072 LTH DC H'0' $0000073 BUFFER DS 256C $0000074 SPACE $0000075 END $0000076 -FILE 62; 1113 RECORDS: 0%M IEMAA COMP0001 %A 10960015 COMP0002 SPACE COMP0003 L GRA,=V(INESD) SHOW DEFINED SYMBOLS COMP0004 L LR,=V(ESDLIST) COMP0005 BALR RR,LR COMP0006 SPACE COMP0007 LA GRA,=C'*PL1DIRECTORY ' COMP0008 L LR,=V(DIRECTRY) COMP0009 BALR RR,LR COMP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %D 84520015 85280015 COMP1104 TIME DS 4F COMP1105 %B END COMP1106 %M IEMXB COMP1107 %D 35500013 37500013 COMP1108 CONTIN MVC 0(2,RC),3(RA) MOVE IN PHASE NAME COMP1109 MVC 3(2,RC),8(RA) CONCATENATION AND ID COMP1110 MVC 5(4,RC),10(RA) L# OF 1ST RECORD COMP1111 %B END COMP1112 %E COMP1113 -FILE 63; 608 RECORDS: 0%M IHECLT PLIB0001 %AFT 08000017 PLIB0002 PRINT NOGEN PLIB0003 %DEL 09700017 PLIB0004 %DEL 09900017 10300017 PLIB0005 %DEL 10500017 PLIB0006 %DEL 12100017 PLIB0007 %DEL 19730001 20700017 PLIB0008 %DEL 23900017 PLIB0009 %DEL 24000017 PLIB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LM LR,PR,OFLR(DR) PLIB0599 BR LR PLIB0600 VSNAP DC V(SNAP) SUBROUTINE TO SNAP USER OUT PLIB0601 %B END PLIB0602 %M IHEZZF PLIB0603 %A 26300015 PLIB0604 LTR RB,RB HELP PREVENT PROTECTION VIOLATOON PLIB0605 BZ CALLS PLIB0606 %B END PLIB0607 %E PLIB0608 -FILE 64; 756 RECORDS: 0ITB TITLE 'UN-QSAM I/O TRANSMIT ROUTINE FOR PL/I' ITB00001 IHEITB CSECT ITB00002 PRINT NOGEN ITB00003 SPACE ITB00004 IHELIB ITB00005 SPACE ITB00006 IHEZAP ITB00007 SPACE ITB00008 DCBD ITB00009 PRINT GEN ITB00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERRK DC AL2(ERR11) ITB00747 ERRL DC AL2(ERR12) ITB00748 ERRM DC AL2(ERR13) ITB00749 ERRN DC AL2(ERR14) ITB00750 ERRO DC AL2(ERR15) ITB00751 ERRP DC AL2(ERR16) ITB00752 SPACE ITB00753 TENS DC H'1000,100,10,1' ITB00754 LTORG ITB00755 END ITB00756 -FILE 65; 79 RECORDS: 0KEY TITLE 'PROGRAM TO DETERMINE NEXTKEY, LASTKEY' KEY00001 IHEKEY CSECT KEY00002 SPACE 1 KEY00003 PRINT NOGEN KEY00004 SPACE KEY00005 IHELIB KEY00006 SPACE KEY00007 IHEZAP KEY00008 SPACE KEY00009 DCBD KEY00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L DR,OFDR(DR) KEY00070 LM LR,WR,OFLR(DR) AND RETURN TO THE KEY00071 BR LR CALLER KEY00072 NULL LA RA,WHAZZIT KEY00073 B SETPTR KEY00074 SPACE 3 KEY00075 VNOTE DC V(NOTE#) KEY00076 WHAZZIT DC F'-1' ALL BITS ON KEY00077 SPACE KEY00078 END KEY00079 -FILE 66; 4 RECORDS: 0INESD CSECT INSD0001 ESDLIST CLOSE#,DDEF#,DELETE,ERROR#,FREESPAC,LOAD#,NOTE#,OPEN#,POINT#, XINSD0002 REGMAIN,SCANSTOR,SERCOM$,SETIOERR,SPIE,STDDMP INSD0003 END INSD0004 -FILE 67; 21 RECORDS: 0BAT TITLE 'BATCH (CANREPLY) FOR PL/I USERS' BAT00001 BATCH CSECT BAT00002 USING *,15 BAT00003 STM 14,2,SAVE SAVE FEW REGS BAT00004 L 15,=V(CANREPLY) BAT00005 BALR 14,15 BAT00006 USING *,14 BAT00007 DROP 15 BAT00008 STC 15,BIT SET BIT IN THE BYTE BAT00009 L 2,0(0,1) THE REPLY SDV BAT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 15,=V(IHEBSKA) LET IT ASSIGN BAT00012 BALR 14,15 BAT00013 USING *,14 BAT00014 LM 14,2,SAVE RESTORE EVERYTHING BAT00015 BR 14 RETURN BAT00016 BIT DC X'0' BAT00017 SAVE DC 5F'0' BAT00018 BITSDV DC BL1'10100000',AL3(BIT),H'1,1' BAT00019 LTORG BAT00020 END BAT00021 -FILE 68; 25 RECORDS: 0CPUT TITLE 'INDICATE CPU TIME FOR PL/I' CPUT0001 CPUTIME CSECT CPUT0002 * DCL CPUTIME ENTRY RETURNS (FLOAT BIN); /*IN SECS*/ CPUT0003 IHEQTIM DXD 3F CPUT0004 USING *,15 BASE REG ALL THE WAY DOWN CPUT0005 STM 1,2,SAVE SAVE PRECIOUS REGISTERS CPUT0006 SVC 38 GET SUPERVISOR BUSY... CPUT0007 AR 1,0 ADD BOTH TIME CPUT0008 IHEPRV TIM,2,OP=LA CPUT0009 S 1,0(,2) CPUT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 1,0(,1) CPUT0016 STE 0,0(,1) CPUT0017 LM 1,2,SAVE RESTORE REGS CPUT0018 BR 14 CPUT0019 DS 0D CPUT0020 DBLE DC X'4E00000000000000' CPUT0021 SAVE DC 2F'0' ON DBL FOR SPEED CPUT0022 TIMER DC D'13.02083333E-6' 13-1/48 MICROSECS CPUT0023 PR EQU 12 CPUT0024 END CPUT0025 -FILE 69; 28 RECORDS: 0ELPS TITLE 'INDICATE ELAPSED TIME FOR PL/I' ELPS0001 ELAPSED CSECT ELPS0002 * DCL ELAPSED ENTRY RETURNS (FLOAT BIN); ELPS0003 IHEQTIM DXD 3F ELPS0004 PR EQU 12 ELPS0005 USING *,15 ELPS0006 STM 1,2,SAVE ELPS0007 SVC 38 ELPS0008 IHEPRV TIM,1,OP=LA ELPS0009 L 0,8(,1) ELPS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 1,0(,1) ELPS0019 STE 0,0(,1) ELPS0020 LM 1,2,SAVE ELPS0021 BR 14 ELPS0022 DS 0D ELPS0023 DBLE DC X'4E00000000000000' ELPS0024 SAVE DC 2F'0' ELPS0025 TIMER DC D'.003333333333333333333' 1/300 ELPS0026 DAY DC A(24*360*300) ELPS0027 END ELPS0028 -FILE 70; 38 RECORDS: 0RAND TITLE 'FAST RANDOM GENERATOR' RAND0001 RAND CSECT RAND0002 LM 0,1,0(1) RAND0003 STM 0,1,24(13) RAND0004 LR 1,0 RAND0005 BALR 15,0 RAND0006 USING *,15 RAND0007 ST 15,MASK RAND0008 ST 1,TEMP RAND0009 SR 1,1 RAND0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPM 1 RAND0029 BR 14 RAND0030 OVF SLL 0,1 RAND0031 SRL 0,1 RAND0032 A 0,=F'1' RAND0033 B CONT RAND0034 MASK DC F'0' RAND0035 TEMP DS D RAND0036 LTORG RAND0037 END RAND0038 -FILE 71; 36 RECORDS: 0ATCH TITLE 'TO ASSOCIATE A PL/I FILE VARIABLE WITH AN FDNAME' ATCH0001 ATTACH CSECT ATCH0002 PRINT NOGEN ATCH0003 IHELIB ATCH0004 SPACE ATCH0005 ATTACH CSECT ATCH0006 STM LR,WR,OFLR(DR) ATCH0007 IHESDR LW1,WR ATCH0008 BALR WR,0 ATCH0009 USING *,WR ATCH0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L BR,=V(DDEF#) ATCH0027 BALR LR,BR ATCH0028 SR R0,R0 ATCH0029 L BR,=V(FREESPAC) ATCH0030 BALR LR,BR ATCH0031 RET L DR,OFDR(DR) ATCH0032 LM LR,WR,OFLR(DR) ATCH0033 BR LR ATCH0034 MOVE MVC 2(0,RA),0(RB) ATCH0035 END ATCH0036 -FILE 72; 78 RECORDS: 0DSP TITLE ' IHEDSP DISPLAY XDSP00001 MTS PL/I LIBRARY' DSP00002 IHEDSP CSECT DSP00003 IHELIB DSP00004 IHEDSP CSECT DSP00005 ENTRY IHEDSPA DSP00006 IHEDSPA STM LR,PWR,OFLR(DR) DSP00007 IHESDR LW0 GET SAVE AREA DSP00008 BALR PWR,0 ESTABLISH ADDRESSIBILITY DSP00009 USING *,PWR DSP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> H100 DC H'100' DSP00069 VERRC DC V(IHEERRC) CATATASTROPHIC ERROR MSG DSP00070 SPACE 5 DSP00071 ADDR EQU 0 SOME LOCAL EQUATES DSP00072 CURL EQU 6 DSP00073 MAXL EQU 4 DSP00074 MEOL EQU 128 DSP00075 PWR EQU WR DSP00076 SPACE 5 DSP00077 END DSP00078 -FILE 73; 9 RECORDS: 0MAIN TITLE ' IN CASE OF ABSENCE OF IHEMAIN' MAIN0001 IHEMAIN CSECT MAIN0002 DC A(*+4) MAIN0003 BALR 10,0 SET TEMPORARY BASE REGISTER MAIN0004 USING *,10 MAIN0005 SERCOM$ 'IHE006I - NO MAIN PROCEDURE' MAIN0006 L 15,=V(SYSTEM#) MAIN0007 BALR 14,15 MAIN0008 END MAIN0009 -FILE 74; 15 RECORDS: 0OSI TITLE ' DELAY STATEMENT IN MTS' OSI00001 SPACE OSI00002 IHEOSI CSECT OSI00003 SPACE OSI00004 ENTRY IHEOSIA OSI00005 SPACE OSI00006 USING *,15 OSI00007 IHEOSIA L 1,0(0,1) GET MILLISECONDS OSI00008 M 0,=F'3' THEN TRANSLATE THIS OSI00009 D 0,=F'10' INTO 300THS OF SECONDS OSI00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTR 0,1 TEST RESULT OSI00011 BCR 12,14 BRANCH IF NOT POSITIVE OSI00012 SVC 128 TWAYT SVC CALL OSI00013 BR 14 DAS IST ALLES. OSI00014 END OSI00015 -FILE 75; 28 RECORDS: 0OST TITLE ' IHEOST TIME ROUTINE XOST00001 MTS PL/I LIBRARY' OST00002 IHEOST CSECT OST00003 IHELIB OST00004 IHEOST CSECT OST00005 SPACE 2 OST00006 ENTRY IHEOSTA,IHEOSDA OST00007 SPACE 2 OST00008 IHEOSTA NOPR 0 TIME ROUTINE OST00009 IHEOSDA STM LR,RF,OFLR(DR) DATE ROUTINE OST00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BZ TIME OST00019 STM RB,RC,72(DR) SHOW DATE OST00020 TIME L RD,0(0,RD) OST00021 L RD,0(0,RD) OST00022 MVC 0(8,RD),72(DR) THAT'S ALL OST00023 L DR,OFDR(0,DR) OST00024 LM LR,RF,OFLR(DR) OST00025 BR LR OST00026 SPACE 5 OST00027 END OST00028 -FILE 76; 222 RECORDS: 0RDWT TITLE ' READ/WRITE RTNS FOR PL/I' RDWT0001 * RDWT0002 * DECLARATION FOR IHEREAD, IHERITE RDWT0003 * RDWT0004 * DECLARE IHEREAD ENTRY ( /*CHAR(*) VARYING*/, /*BUFFER*/ RDWT0005 * BIT (32), /* MODIFIER */ RDWT0006 * DEC FIXED (9,3), /*LINE NUMBER*/ RDWT0007 * FILE /*FILENAME */) RDWT0008 * RDWT0009 READRITE CSECT RDWT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE RDWT0213 ENDFIL DC X'B800' ERROR CODE FOR ENDFILE RDWT0214 TOOBIG DC X'9001' RECORD TOO LARGE RDWT0215 OUTPTERR DC X'9801' ERROR CODE FOR OUTPUT I/O ERROR RDWT0216 INPUTERR DC X'9802' ERROR CODE FOR INPUT I/O ERROR RDWT0217 UNSUPD DC X'0009' UNSUPPORTED FILE OPERATION RDWT0218 BADRD DC X'0000' ATTEMPT TO READ OUTPUT FILE RDWT0219 BADWT DC X'0001' ATTEMPT TO WRITE INPUT FILE RDWT0220 SPACE RDWT0221 END RDWT0222 -FILE 77; 10 RECORDS: 0OFF TITLE 'TO SIGN OFF THE USER' OFF00001 SIGNOFF CSECT OFF00002 USING *,15 OFF00003 L 15,=V(QUIT) QUIT OFF00004 BALR 14,15 OFF00005 DROP 15 OFF00006 USING *,14 OFF00007 L 15,=V(IHEOSSA) RAISE FINISH AND TERMINATE OFF00008 BALR 14,15 OFF00009 END OFF00010 -FILE 78; 35 RECORDS: 0EASY TITLE ' SYSERR SYSTEM/ERROR ROUTINES *SERR0001 MTS PL/I LIBRARY' SERR0002 SYSERR CSECT SERR0003 ENTRY ERROR,SYSTEM SERR0004 IHELIB SERR0005 IHEZAP SERR0006 SPACE 1 SERR0007 SYSERR CSECT SERR0008 SPACE 1 SERR0009 ERROR NOPR 0 PSEUDO-ERROR IS CALLED SERR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BO AROUND YES, BRANCH AROUND SERR0026 ERRAGN L BR,VERROR THEN USE ERROR SERR0027 AROUND BALR LR,BR SAY A GOOD-BYE SERR0028 B ERRAGN A RESTART WILL ONLY RECALL SERR0029 SPACE 2 SERR0030 OCLD DC V(IHEOCLD) IMPLICIT CLOSE ROUTINE SERR0031 VERROR DC V(ERROR#) MTS ERROR ROUTINE SERR0032 VSYSTEM DC V(SYSTEM#) MTS SYSTEM ROUTINE SERR0033 SPACE 5 SERR0034 END SERR0035 -FILE 79; 21 RECORDS: 0GTID TITLE 'USERID FOR PL/I USERS' GTID0001 USERID CSECT GTID0002 USING *,15 GTID0003 L 15,=V(GUSERID) ANOTHER NAME GTID0004 BALR 14,15 GTID0005 DROP 15 NO LONGER USING GTID0006 USING *,14 GTID0007 ST 1,USERID# ANSWER IN REG 1 DAMNIT GTID0008 L 1,SAVE+3*4 RESTORE REG 1 GTID0009 L 2,0(,1) SHOW SUBRTN THE TARGET SDV GTID0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 15,=V(IHECSMF) GTID0012 BALR 14,15 GTID0013 USING *,14 GTID0014 LM 14,2,SAVE GTID0015 BR 14 RETURN GTID0016 SAVE DC 5F'0' GTID0017 USERID# DC F'0' GTID0018 USERSDV DC A(USERID#),H'4,4' GTID0019 LTORG GTID0020 END GTID0021 -FILE 80; 95 RECORDS: 0SNAP TITLE ' SUBROUTINE TO SNAP' SNAP0001 SNAP CSECT SNAP0002 USING SNAP,10 SNAP0003 STM 14,12,12(13) SNAP0004 LR 10,15 SNAP0005 LA 15,SA$1 SNAP0006 ST 15,8(0,13) SNAP0007 ST 13,4(0,15) SNAP0008 LR 13,15 SNAP0009 ST 1,DCB ADDR OF DCB SNAP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GARBAGE DS 100F HECK SNAP0086 SPACE SNAP0087 SA$1 DS 18F SNAP0088 SA$2 DS 18F SNAP0089 SA$3 DS 18F SNAP0090 DCB DS F SNAP0091 L# DS H SNAP0092 H060 DC H'60' SNAP0093 DCBD SNAP0094 END SNAP0095 -FILE 81; 109 RECORDS: 0 MACRO AF000001 PL1 &DESIGN=F,&PUNCH=NODECK,&TYPERUN=LOAD,&SORCODE=EBCDIC, XAF000002 &SIZE=73728,&OBJLIST=NOLIST,&MSGLEV=FLAGW,&OPT=1, XAF000003 &SORLIST=SOURCE,&CHARSET=CHAR60,&EXTLIST=NOEXTREF, XAF000004 &ATRLIST=NOATR,&SORMGIN=(2,72),&LINECNT=50,&PAGECTL=0, XAF000005 &CMPTIME=NOMACRO,&MACLIST=SOURCE2,&COMPILE=COMP, XAF000006 &STMDIAG=STMT,&MCPUNCH=NOMACDECK,&DICTYPE=NOEXTDIC, XAF000007 &OPPRINT=OP,&LEVCNT=NONEST,&MODEL=67,&LIBRARY=REAL, XAF000008 &REFLIST=NOXREF,&DELETE=,&VERSION=4,&DATE=11/15/68 AF000009 LCLA &V,&S1 AF000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SORMGINS DC F'&SS' AF000100 SORMGINE DC F'&SE' AF000101 PAGECTL DC F'&P' AF000102 DS 2F SPARE AF000103 DC CL8'&DATE' AF000104 MEND AF000105 IEMAF START AF000106 PL1 PUNCH=DECK,TYPERUN=NOLOAD,LINECNT=60,LEVCNT=NEST,DATE=03/09/70, XAF000107 SIZE=40960,SORMGIN=(1,72),ATRLIST=ATR,REFLIST=XREF AF000108 END AF000109 -FILE 82; 187 RECORDS: 0 /* PROGRAM TO DO SOMETHING FOR IEBUPDAT AND IEBUPDTE INPUT */ UPTE0001 UPTE0002 UPDATE: PROCEDURE OPTIONS(MAIN); UPTE0003 DCL UPTE0004 SPRINT FILE PRINT, UPTE0005 INTAPE INPUT FILE RECORD ENV(LEAVE), UPTE0006 OUTTAPE OUTPUT FILE RECORD ENV(LEAVE), UPTE0007 SCARDS FILE INPUT RECORD, UPTE0008 (BUFFER,WHAT,FIELD,DUMMY,BAFF) CHAR(80) VAR, UPTE0009 (FRSTNR,LASTNR,MEMBR,NAME) CHAR(8), UPTE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FIELD = BREAK(BAFF); UPTE0178 I=INDEX(FIELD,'NAME='); UPTE0179 IF I=0 THEN FIELD=SUBSTR(FIELD,I+5); UPTE0180 I = INDEX(FIELD,','); UPTE0181 IF I=0 THEN I=LENGTH(FIELD)+1; UPTE0182 NAME = SUBSTR(FIELD,1,I-1); UPTE0183 RETURN; UPTE0184 END; UPTE0185 UPTE0186 END UPDATE; UPTE0187 -FILE 83; 1050 RECORDS: 0GLIB TITLE ' GENERATE A LOAD LIBRARY' GLIB0001 MACRO GLIB0002 &A PUNT &B,&C GLIB0003 LCLC &D,&E GLIB0004 &D SETC '&B' GLIB0005 &E SETC 'L''' GLIB0006 &A LA 1,&B GLIB0007 AIF (T'&C EQ 'O').DF GLIB0008 LA 0,&C GLIB0009 AGO .SPUNT GLIB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BACKPTR EQU 4 GLIB1041 NAME EQU 8 GLIB1042 LIBPTR EQU 16 GLIB1043 NXTPTR EQU 20 GLIB1044 ERPTR EQU 24 GLIB1045 NXTLIB EQU 24 GLIB1046 REFCNT EQU 28 GLIB1047 LIBSEQ EQU 30 GLIB1048 SPACE 5 GLIB1049 END GLIB1050 -FILE 84; 400 RECORDS: 0OBJ TITLE 'OBJSCAN' SCAN0001 *DATE: 3-28-68 SCAN0002 * REVISED 11-17-69 SCAN0003 SPACE 2 SCAN0004 MACRO SCAN0005 &LABE SERCOM &LIST SCAN0006 &LABE L 15,=V(SERCOM) SCAN0007 LA 1,&LIST SCAN0008 BASR 14,15 SCAN0009 MEND SCAN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(MODC) SCAN0391 LLNQ DC H'0' SCAN0392 ALINE DC A(BUFFER) SCAN0393 BUFFER DS 72C SCAN0394 MOVEPAR MVC FILLN(0),2(1) SCAN0395 MOVE MVC 1(0,1),ONCE SCAN0396 MOVECHRS MVC 0(0,6),0(1) SCAN0397 COM1S DC C'-**** FILE ' SCAN0398 FILLN DS CL256' ' SCAN0399 END SCAN0400 -FILE 85; 52 RECORDS: 0 BALR 10,0 SETS0001 * THIS ROUTINE SETUPS *PL1DIRECTORY SETS0002 * SCANS FILE ASKED FOR SETS0003 * WRITES OUT *PL1DIRECTORY ON UNIT 1 SETS0004 USING *,10 SETS0005 LA 13,SA SETS0006 SPACE 1 SETS0007 SCARDS FILENAME,EXIT=SYS SETS0008 LA 1,FILENAME SETS0009 CALL GETFD SETS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE SETS0043 SW DC X'0' SETS0044 BLANKS DC CL8' ' PRIVATE SECTION SETS0045 DS 0F SETS0046 OUT DS CL8 SETS0047 INFO DS 4F SETS0048 SA DS 18F SETS0049 LTORG SETS0050 REG DS 1024F SETS0051 END SETS0052 -FILE 86; 52 RECORDS: 0TABS TITLE ' TRANSLATE TABLE FOR COMPILER' TABS0001 TABLES CSECT TABS0002 ENTRY INTAB,EXTAB TABS0003 * TRANSLATE TABLES TABS0004 * TABS0005 * THESE ARE USED TO TRANSLATE EXTERNAL CODES (WHICH MAY TABS0006 * VARY EG. EBCDIC,BCD) INTO A FIXED FORMAT INTERNAL CODE. THE TABS0007 * REVERSE TABLE IS ALSO INCLUDED. THE TABLE ACTUALLY USED DEPEND TABS0008 * S UPON THE OPTION SPECIFIED AT INVOCATION TIME. IF BCD IS TABS0009 * SPECIFIED THEN THE BELOW TABLES ARE OVERWRITTEN BY AB. THE BCD TABS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC XL16'70717260744E7661785C11201012137F' TABS0043 DC XL16'808182838485868788898A8B8C8D8E8F' TABS0044 DC XL16'909192939495969798999A9B9C9D9E9F' TABS0045 DC XL16'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' TABS0046 DC XL16'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' TABS0047 DC XL16'C0141516171819212223CACBCCCDCECF' TABS0048 DC XL16'D0242526272829323334DADBDCDDDEDF' TABS0049 DC XL16'E0E13536373839414243EAEBECEDEE5E' TABS0050 DC XL16'4546484A0773757779EFFAFBFCFDFEFF' TABS0051 END TABS0052 -FILE 87; 616 RECORDS: 0CSI# TITLE 'SEQUENTIAL OBJECT MODULE SQUASHING GENERATOR' CSI00001 * CSI00002 * THINGS TO DO CSI00003 * CSI00004 * REMOVE UNNECESSARY PR'S CSI00005 * OVERLAY TEXT DATA (CAUSED BY AN ORG *-2) CSI00006 * NOTHING TO WORRY ON DS (ALL RTNS ARE REENTERABLE) CSI00007 * CONSIDERS REP AND DEF CARDS CSI00008 * CSI00009 DIET CSECT CSI00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FAC DS F CSI00607 ESDTBLE DS 3F CSI00608 IDTBLE DS 100H CSI00609 SDTBLE DS 50F CSI00610 RLDTBLE DS 3F CSI00611 HEXSW DC X'0' SWITCH FOR ODD/EVEN TEST CSI00612 LTHSAVE EQU *-SAVE CSI00613 EJECT CSI00614 DCBD DSORG=(PS) CSI00615 END CSI00616 -FILE 88; 200 RECORDS: 0TEXT TITLE ' EXTRACT TEXT RECORDS' TEXT0001 *********************************************************************** TEXT0002 *********************************************************************** TEXT0003 * 0 - OS UNLOADED VERSION ON TAPE BLOCKED (800) TEXT0004 SPACE 2 TEXT0005 * 1 TEXT RECORDS ONLY -- AS MUCH AS TWO PAGES LONG TEXT0006 SPACE 2 TEXT0007 * 2 - THE REST OF PDS USERDATA, CESD DATA, RLD DATA (LINE FIL) TEXT0008 SPACE 2 TEXT0009 *********************************************************************** TEXT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTH1BLK DS 2X TEXT0191 EP DS 3X TEXT0192 ORG1TBLK DS 3X TEXT0193 PDSLOAD CSECT TEXT0194 TEXTCOMG DC X'0' TEXT0195 JUNK DS 18F TEXT0196 DS 0D TEXT0197 BLOCK DS CL1030 TEXT0198 RECORD EQU BLOCK+6 TEXT0199 END TEXT0200 -FILE 89; 754 RECORDS: 0PDS TITLE ' ROUTINE TO PUNCH/PRINT A PDS' LINK0001 *********************************************************************** LINK0002 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* LINK0003 * VITAL MESSAGES FROM THE DIRECTORY RECORD FOR LOAD MODS. LINK0004 PDSDSECT DSECT LINK0005 LTH DS H LENGTH OF DIR. RECORD LINK0006 IND1 DS X INDICATOR - WHAT KIND OF RECORD LINK0007 TTR DS 3X TTR LINK0008 NAME DS CL8 NAME LINK0009 FSTBLK DS 3X TTR OF FST BLK LINK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE LINK0745 ID#TBL DC 75H'0' LINK0746 SPACE 5 LINK0747 PATCH DS 20F LINK0748 LTORG LINK0749 TXTESDID DC H'0' LINK0750 TXTBLKAD DC A(0) LINK0751 TXTBLKLG DC H'0' LINK0752 TXTBLK DS XL1024 LINK0753 END PDSPNCH# LINK0754 -FILE 90; 8157 RECORDS: 0$COM ---THIS IS THE MTS UPDATE DECK FOR WATERLOO G-ASSEMBLER $RUN *MOUNT S151 9TP *ASMG* 'ASMG MASTER SOURCE' S416 9TP *POOL* RING=IN 'LP UPDATE' $ENDFILE $EMP ASMGSET $EMP ASMGMACROS $CRE -SYSUT1 SIZE=10P $RUN *UPDATE %REW *POOL* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $DES -DICT $EMP NEWASMG $R *ASMG SCARDS=*POOL* SPRINT=*LIST* 0=*SYSMAC 2=ASMGMACROS SPUNCH=NEWASMG PAR=- FX,RD,B,SIZE=200,IBLK=40,OBLK=40 $R *DISMOUNT PAR=*LIST* $LI ASMGMACROS $RUN *OBJSCAN NEWASMG *ASMG *ASMBLR -FILE 91; 2597 RECORDS: 0$RUN *MOUNT S475 9TP *WATFOR* 'WATFOR MASTER SOURCE' S416 9TP *POOL* RING=IN MODE=1600 'LP-UPDATE' $ENDFILE $EMP NEWATFOR $EMP CDEFN $EMP COMMR $EMP STARTA $EMP WATMAC $EMP WATERR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $COP *SOURCE* NEWATFOR(LAST+1) LCS LCSYMBOL LDT XTART $ENDFILE $LIST WATMAC $LIS WATERR $R DIAGS SCARDS=WATERR 0=WATGRIPES $RUN *OBJSCAN NEWATFOR *SWAT -FILE 92; 1392 RECORDS: 0$EMPTY STARTA $EMPTY STARTB $EMPTY COMMR $EMPTY SYS $EMPTY ACCT $EMPTY EXTRN $EMPTY ERRTEXTS $EMPTY CDEFN $EMPTY OPTIONS $EMPTY -MAC >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L=121 'WAT5 LISTING' $RUN *ASMG SCARDS=*POOL* SPUNCH=WAT5.OBJECT 0=*SYSMAC 2=WAT5.MACLIB 3=WAT5.FUNMA C SPRINT=*LIST* PAR=B,FX,T,IBLK=50,OBLK=50,SIZE=25,ERR $RUN *DISMOUNT PAR=*POOL* $RUN *ASMG SCARDS=WAT5.FIOCS+WAT5.DIOCS SPUNCH=WAT5.OBJECT(LAST+1) SPRINT=*LIST* 0=*SYSMAC 2=WAT5.MACLIB 3=WAT5.FUNMAC PAR=B,FX,T,OBLK=50,SIZE=25,ERR $CONTROL *LIST* WTM $CONTROL *LIST* REW $RUN *OBJSCAN PAR=WAT5.OBJECT $RUN *LIST SPRINT=*SINK*@MCC PAR=*LIST* 50 -FILE 93; 786 RECORDS: 0FIOS TITLE 'MTS WATFOR VERSION OF MTS FORTRAN'S IHCFIOSH' FIOC0001 COPY OPTIONS FIOC0002 IHCFIOSH CSECT FIOC0003 ENTRY FIOCS# FIOC0004 EXTRN IHCUATBL FIOC0005 * ***** REGISTER ASSIGNMENTS ***** FIOC0006 R EQU 0 FIOC0007 L EQU 1 FIOC0008 GRX EQU 2 FIOC0009 R2 EQU 2 FIOC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UATELEN DC H'5' HALFWORD SHIFT FIOC0777 MTSDSRN DC H'&NOUTILS' MAX DSRN IN MTS WATFOR FIOC0778 DAFDSRN DC H'0' MAX DAF... DSRN FIOC0779 PARTREC DC H'255' FILE RECORD LENGTH FIOC0780 &I SETA 0 GENERATE UAT ENTRIES FIOC0781 .UAL ANOP FIOC0782 UA&I DC F'&I,0',V(READ#,WRITE#),F'0',H'80,133',F'0',A(BUFFER) FIOC0783 &I SETA &I+1 FIOC0784 AIF (&I LE &NOUTILS).UAL FIOC0785 END FIOC0786 -FILE 94; 71 RECORDS: 0******************************************************************** DIOC0001 ****************WATFIV DIOCS# DIRECT ACCESS I/O**************** DIOC0002 * THIS CODE PROVIDES THE LINK BETWEEN WATIO AND FIOCS, WHICH DIOC0003 * ACTUALLY PERFORMS THE I/O OPERATIONS DIOC0004 ** THE CALLING SEQUENCE IS AS FOLLOWS: DIOC0005 * L 1,AIBCENTRY DIOC0006 * BALR 0,1 DIOC0007 * DC AL1(ENTRY) DIOC0008 * DC AL1(IOCODE) DIOC0009 * WHERE: DIOC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ST 2,SAVE+4 SAVE REG 2 TEMPORARILY DIOC0062 L GRX,SAVE+8 GET POINTER TO DSRN DIOC0063 NI 0(GRX),X'FF'-INDEX TURN OFF INDEX BIT DIOC0064 L 2,SAVE+4 RESTORE REG 2 DIOC0065 L 1,SAVE GET ORIGINAL R0 INTO R1 DIOC0066 B 6(0,1) RETURN TO CALLING PROGRAM DIOC0067 SAVE DS 3F DIOC0068 INDEX EQU X'80' DIOC0069 GRX EQU 2 DIOC0070 END DIOC0071 -FILE 95; 214 RECORDS: 0$COMPILE C***** TEST DECK 1 ***** C TEST DO,IF,GOTO,PRINT,ETC. DO 10 J=1,10 A=J*J IF(J .GT. 8) GOTO 20 10 PRINT,J,A 20 STOP END $DATA >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RECORD 1 RECORD 2 RECORD 3 RECORD 4 RECORD 5 RECORD 6 RECORD 7 RECORD 8 RECORD 9 RECORD 10 -FILE 96; 119 RECORDS: 0 SUBROUTINE SYSTEM STOP END $TERM SUBROUTINE RKSUB(M,Y,F,P,Q,DERIV,T,DT) DIMENSION Y(1),F(1),P(4),Q(4) CALL DERIV(Y,F,T) DO 10 I=1,M P(I)=F(I) Q(I)=Y(I) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END;SUBROUTINEPUNCH;CHARACTEROUT72*72,OUT(72),BLANK/Z40/;EQUIVALEN *CE(OUT72,OUT);COMMON/UNPKPN/NOUT,JSEQ,IO,OUT72 C PRINT10,OUT72,JSEQ;WRITE(NOUT,11)OUT72,JSEQ C JSEQ=JSEQ+1;IO=7;OUT72=BLANK;RETURN;10:FORMAT(' ',A72,'00000000',T *74,I4) 11 FORMAT(A72,'00000000',T73,I4) END $TERM -FILE 97; 1072 RECORDS: 0%BEFORE '00080014' IEKA TITLE 'MTS FORTRAN H COMPILER - FORTRAN SYSTEM DIRECTOR' IEKAA00 CSECT * %DELETE '00080014' '00470016' %AFTER '13440014' USING IEKSAVE,SAVE %BEFORE '13680014' L LINK,ADDRIFPI SET FETCH PROTECTION INTERRUPT EXIT BALR RETN,LINK >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC V(IEKLGN#),X'000000A8' DC V(IEKLMA#),X'00000078' DC V(IEKRF1#),X'000000E0' DC V(IEKRSL#),X'00000110' DC V(IEKRSS#),X'00000118' DC V(IEKP31#),X'000001E0' CNT EQU (*-TBL)/8 LTORG AREA DS XL(X'2E80') END -FILE 98; 3353 RECORDS: 0IEKAA00 CSECT 00080014 IEKA TITLE 'IEKAA00 - OS/360 FORTRAN H COMPILER - FORTRAN SYSTEM DI100160014 RECTOR,V.5.1' 00240014 * 00320014 * 004000 0000A 00330015 * 120000 0000A 00340015 * 135200-136000 0000A 00350015 * 144000 0000A 00360015 * 214400 0000A 00370015 * 233600 0000A 00380015 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC F'2' 84400014 DC F'5' 84800014 DC F'2' 85200014 DS 128F MVD(128) 85600014 SIZMAJ DC F'&SZMAJ' 86000014 DS &CMAJOR.F 86400014 SPACE 3 86800014 IEKJA4 CSECT 87200014 DS &RMAJOR.F 87600014 MEND 88000014 -FILE 99; 7951 RECORDS: 0ESD  IEKJA1 JA1 0001 TXT JA1 0002 TXT JA1 0003 TXT JA1 0004 TXT y JA1 0005 TXT \ JA1 0006 TXT  JA1 0007 TXT & JA1 0008 TXT h JA1 0009 TXT { JA1 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT GOTOKK } &0H}0D&} {^{8^hȵ{܌{{ ͓}WKK 0005 TXT {q} k} WKK 0006 TXT WKK 0007 TXT y dʿWKK 0008 TXT \ i&ʿi&WKK 0009 RLD   &< WKK 0010 RLD *-d%@h WKK 0011 RLD mqu^y WKK 0012 RLD {D WKK 0013 END WKK 0014 -FILE 100; 8287 RECORDS: 0ESD  IEKJA1 JA1 0001 TXT JA1 0002 TXT JA1 0003 TXT JA1 0004 TXT y JA1 0005 TXT \ JA1 0006 TXT  JA1 0007 TXT & JA1 0008 TXT h JA1 0009 TXT { JA1 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT GOTOKK } &0H}0D&} {^{8^hȵ{܌{{ ͓}WKK 0005 TXT {q} k} WKK 0006 TXT WKK 0007 TXT y dʿWKK 0008 TXT \ i&ʿi&WKK 0009 RLD   &< WKK 0010 RLD *-d%@h WKK 0011 RLD mqu^y WKK 0012 RLD {D WKK 0013 END WKK 0014 -FILE 101; 142 RECORDS: 0PID1HDR1624P360S40249B008 593-CHI EE00141 C 931 086 NW //PTF40249 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 03/23/70 *01600000 // THIS PTF IS IN TWO PARTS. THE FIRST STEP LINK EDITS NEW*02400000 // MODULES INTO FO500. THE SECOND STEP WILL CREATE A NEW *03200000 // COMPILER IN LINKLIB. THE SECOND STEP REQUIRES THAT 160 *04000000 // TRACKS BE AVAILABLE IN THE LINKLIB. 04800000 //STEP1 EXEC PGM=IEWL,PARM='LIST,LET,MAP,NCAL' 05600000 //SYSPRINT DD SYSOUT=A 06400000 //SYSLMOD DD DSNAME=SYS1.FO500,DISP=OLD 07200000 //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 08000000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OVERLAY PHASE 89600000 INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU# 90400000 INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR# 91200000 INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR# 92000000 INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP# 92800000 ENTRY IEKAA00 93600000 SETSSI 19110429 94400000 NAME IEKAA00(R) 95200000 /* 96000000 // 96800000 -FILE 102; 338 RECORDS: 0.//ADD 360S40037008 12/15/SCRAP THIS CARD 0005 OF 0010 //PTF40037 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 12/15/69 *01600000 // THIS PTF IS IN TWO PARTS. THE FIRST STEP LINK EDITS NEW*02400000 // MODULES INTO FO500. THE SECOND STEP WILL CREATE A NEW *03200000 // COMPILER IN LINKLIB. THE SECOND STEP REQUIRES THAT 160 *04000000 // TRACKS BE AVAILABLE IN THE LINKLIB. 04800000 //STEP1 EXEC PGM=IEWL,PARM='LIST,LET,MAP,NCAL' 05600000 //SYSPRINT DD SYSOUT=A 06400000 //SYSLMOD DD DSNAME=SYS1.FO500,DISP=OLD 07200000 //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 08000000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU# 90400000 INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR# 91200000 INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR# 92000000 INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP# 92800000 ENTRY IEKAA00 93600000 SETSSI 19110037 94400000 NAME IEKAA00(R) 95200000 /* 96000000 // 96800000 -FILE 103; 148 RECORDS: 0PID1HDR1602P360S40447B008 593-CHI EE00147 C 931 123 NW //PTF40447 JOB 20,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 06/26/70 *01600000 // THIS PTF IS IN TWO PARTS. THE FIRST STEP LINK EDITS NEW*02400000 // MODULES INTO FO500. THE SECOND STEP WILL CREATE A NEW *03200000 // COMPILER IN LINKLIB. THE SECOND STEP REQUIRES THAT 160 *04000000 // TRACKS BE AVAILABLE IN THE LINKLIB. 04800000 //STEP1 EXEC PGM=IEWL,PARM='LIST,LET,MAP,NCAL' 05600000 //SYSPRINT DD SYSOUT=A 06400000 //SYSLMOD DD DSNAME=SYS1.FO500,DISP=OLD 07200000 //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 08000000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR# 92000000 INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP# 92800000 ENTRY IEKAA00 93600000 SETSSI 20110447 94400000 NAME IEKAA00(R) 95200000 /* 96000000 // 96800000 -FILE 104; 1136 RECORDS: 0.//ADD 360S40328608 05/06/SCRAP THIS CARD 0003 OF 0005 //PTF40328 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 04/29/70 *01600000 // THIS PTF IS IN TWO PARTS. THE FIRST STEP LINK EDITS NEW*02400000 // MODULES INTO FO500. THE SECOND STEP WILL CREATE A NEW *03200000 // COMPILER IN LINKLIB. THE SECOND STEP REQUIRES THAT 160 *04000000 // TRACKS BE AVAILABLE IN THE LINKLIB. 04800000 //STEP1 EXEC PGM=IEWL,PARM='LIST,LET,MAP,NCAL' 05600000 //SYSPRINT DD SYSOUT=A 06400000 //SYSLMOD DD DSNAME=SYS1.FO500,DISP=OLD 07200000 //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 08000000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OVERLAY PHASE 89600000 INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU# 90400000 INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR# 91200000 INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR# 92000000 INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP# 92800000 ENTRY IEKAA00 93600000 SETSSI 19110328 94400000 NAME IEKAA00(R) 95200000 /* 96000000 // 96800000 -FILE 105; 300 RECORDS: 0 //PTF40267 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 03/11/70 *01600000 // THIS PTF IS IN TWO PARTS. THE FIRST STEP LINK EDITS NEW*02400000 // MODULES INTO FO500. THE SECOND STEP WILL CREATE A NEW *03200000 // COMPILER IN LINKLIB. THE SECOND STEP REQUIRES THAT 160 *04000000 // TRACKS BE AVAILABLE IN THE LINKLIB. 04800000 //STEP1 EXEC PGM=IEWL,PARM='LIST,LET,MAP,NCAL' 05600000 //SYSPRINT DD SYSOUT=A 06400000 //SYSLMOD DD DSNAME=SYS1.FO500,DISP=OLD 07200000 //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 08000000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OVERLAY PHASE 89600000 INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU# 90400000 INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR# 91200000 INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR# 92000000 INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP# 92800000 ENTRY IEKAA00 93600000 SETSSI 19110267 94400000 NAME IEKAA00(R) 95200000 /* 96000000 // 96800000 -FILE 106; 319 RECORDS: 0.//ADD 360S40194008 03/24/SCRAP THIS CARD 0008 OF 0060 //PTF40194 JOB 18,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 03/24/70 *01600000 // THIS PTF IS IN TWO PARTS. THE FIRST STEP LINK EDITS NEW*02400000 // MODULES INTO FO500. THE SECOND STEP WILL CREATE A NEW *03200000 // COMPILER IN LINKLIB. THE SECOND STEP REQUIRES THAT 160 *04000000 // TRACKS BE AVAILABLE IN THE LINKLIB. 04800000 //STEP1 EXEC PGM=IEWL,PARM='LIST,LET,MAP,NCAL' 05600000 //SYSPRINT DD SYSOUT=A 06400000 //SYSLMOD DD DSNAME=SYS1.FO500,DISP=OLD 07200000 //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 08000000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OVERLAY PHASE 89600000 INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU# 90400000 INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR# 91200000 INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR# 92000000 INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP# 92800000 ENTRY IEKAA00 93600000 SETSSI 18110194 94400000 NAME IEKAA00(R) 95200000 /* 96000000 // 96800000 -FILE 107; 176 RECORDS: 0.//ADD 360S40190008 04/23/SCRAP THIS CARD 0051 OF 0060 //PTF40190 JOB 19,'360-FO-500',MSGLEVEL=1,REGION=250K DATE IS 04/23/70 *01600000 // THIS PTF IS IN TWO PARTS. THE FIRST STEP LINK EDITS NEW*02400000 // MODULES INTO FO500. THE SECOND STEP WILL CREATE A NEW *03200000 // COMPILER IN LINKLIB. THE SECOND STEP REQUIRES THAT 160 *04000000 // TRACKS BE AVAILABLE IN THE LINKLIB. 04800000 //STEP1 EXEC PGM=IEWL,PARM='LIST,LET,MAP,NCAL' 05600000 //SYSPRINT DD SYSOUT=A 06400000 //SYSLMOD DD DSNAME=SYS1.FO500,DISP=OLD 07200000 //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20)),SEP=SYSLMOD 08000000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OVERLAY PHASE 89600000 INSERT IEKVTS#,IEKVFN#,IEKTRN#,IEKTIO#,IEKTIS#,IEKVPL#,IEKVSU# 90400000 INSERT IEKP25,IEKWCN,IEKVTN#,IEKTPK#,IEKTLS#,IEKVBL#,IEKTSR# 91200000 INSERT IEKTEN#,IEKUEN#,IEKVFP#,IEKTA#,IEKTLB#,IEKVUN#,IEKGMP,IEKTPR# 92000000 INSERT IEKVAD#,IEKWKK#,IEKVM2#,IEKTEP# 92800000 ENTRY IEKAA00 93600000 SETSSI 19110190 94400000 NAME IEKAA00(R) 95200000 /* 96000000 // 96800000 -FILE 108; 510 RECORDS: 0SYM IEKAA00hhhΥhhDDLOOPIEKA0001 SYM bNONOCKCHARCNTXECCOMP8SETCKNUMCIEKA0002 SYM KDMPfOPTLINEePARMSWCOMPPACKIEKA0003 SYM ePACKEDgTEMPNAMEgPARMLISThhhIEKA0004 SYM h hhhh h<h+h|IEKA0005 SYM hhh!h)hh- hhhIEKA0006 SYM h_h?h hhh`h'hIEKA0007 SYM "h hfhhhihhh hoIEKA0008 SYM hqhrhhhhuhwhxhIEKA0009 SYM hh hhhhh]hIEKA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT 0{&&Ĉ&{&ʥ{K{AK{%A}}q} K FUDG0012 TXT   \\0FUDG0013 TXT 0 ^y\FUDG0014 TXT  \ FUDG0015 TXT   FUDG0016 RLD  { H} Q\Y FUDG0017 RLD 08  FUDG0018 RLD  FUDG0019 END ASMG 26FEB70 05:00.29 16 MAR 70 FUDG0020 MDL ON -FILE 109; 520 RECORDS: 0%INPUT PLC.ZZSR %OUTPUT -INPUT %FIND ZZOS0001 %DELETE ZZOS0010 USING ZZSTART,R11,R8 %DELETE ZZOS0016 DROP R11,R8 %AFTER ZZOS0028 DROP R8 %DELETE ZZOS0030 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEFORE '00009999' %OUTPUT '-PLCEXCDS' %FIND EXCD0001 %BEFORE EXCD9999 %OUTPUT '-MACROS(LAST+1)' %FIND '00000100' %BEFORE '00009999' %FIND '00000001' %BEFORE '00009999' %END -FILE 110; 10 RECORDS: 0 MDL ON NCA ONSTMT NCA ONRVRT NCA ONCOND NCA ONSGNL NCA PLCRTT $CONTINUE WITH PLC.ZZSR.O RETURN $CONTINUE WITH PLC.OM.C RETURN LCS LCSYMBOL LDT ZZSTART -FILE 111; 3387 RECORDS: 0TAPE TITLE ' M T S MAGNETIC TAPE ROUTINES' TAPE0001 SPACE 15 TAPE0002 *********************************************************************** TAPE0003 * * TAPE0004 * * TAPE0005 * M T S MAGNETIC TAPE DEVICE SUPPORT ROUTINES * TAPE0006 * * TAPE0007 * * TAPE0008 *********************************************************************** TAPE0009 SPACE 10 TAPE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBSCR DS F SCRATCH TAPE3378 FDUBNAM DS A BACK POINTER TAPE3379 FDUBDS DS F DEFAULT SWITCHES TAPE3380 FDUBCH DS F CHAIN TAPE3381 FDUBTYPE DS X TYPE TAPE3382 DS XL3 UNUSED TAPE3383 FDUBNAME DS A POINTER TO EXTERNAL NAME TAPE3384 EJECT TAPE3385 SPACE 10 TAPE3386 END TAPE3387 -FILE 112; 615 RECORDS: 0TPUC TITLE 'MAGNETIC TAPE UNIT CHECK' TPUC0001 TAPEUC START 0 TPUC0002 ENTRY TPRDUC TPUC0003 ENTRY TPWRUC TPUC0004 * REGISTERS TPUC0005 SPACE 1 TPUC0006 BASE1 EQU 7 TPUC0007 BASE2 EQU 6 TPUC0008 DREG1 EQU 13 TPUC0009 DREG2 EQU 8 TPUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RTNADR EQU DSECT2 TPUC0606 REREAD EQU RTNADR+4 TPUC0607 CLEANS EQU REREAD+1 TPUC0608 CNTCHR EQU CLEANS+1 TPUC0609 SNSCC EQU CNTCHR+1 TPUC0610 SENSE EQU SNSCC+1 TPUC0611 FLAG EQU SENSE+6 TPUC0612 STOPCD EQU FLAG+1 TPUC0613 DEVID EQU SENSE+8 TPUC0614 END TPUC0615 -FILE 113; 2218 RECORDS: 0MNT TITLE 'M O U N T' MOUN0001 *********************************************************************** MOUN0002 * * MOUN0003 * MACROS TO GENERATE KWIC RHS AND LHS TABLES * MOUN0004 * * MOUN0005 *********************************************************************** MOUN0006 SPACE 3 MOUN0007 MACRO MOUN0008 &ST1 LHS &KWD,&RHS,&EX MOUN0009 LCLA &LNG MOUN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBNAM DS A BACK POINTER MOUN2209 FDUBDS DS F DEFAULT SWITCHES MOUN2210 FDUBCH DS F CHAIN MOUN2211 FDUBTYPE DS X FDUB TYPE (0 THRU 7) MOUN2212 FDUBMNTD EQU 7 FDUB TYPE FOR 'MOUNTED' DEVICE MOUN2213 DS XL3 UNUSED MOUN2214 FDUBNAME DS A POINTER TO EXTERNAL NAME MOUN2215 EJECT MOUN2216 SPACE 5 MOUN2217 END MOUN2218 -FILE 114; 543 RECORDS: 0TCPY TITLE 'PROGRAM TO COPY TAPES' TCPY0001 SPACE 5 TCPY0002 MACRO TCPY0003 &L1 ERROR &MSG TCPY0004 &L1 LA R0,L'Q&SYSNDX TCPY0005 BAL R1,RD2 TCPY0006 Q&SYSNDX DC C&MSG TCPY0007 MEND TCPY0008 SPACE 3 TCPY0009 MACRO TCPY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OMIT EQU X'04' SKIP BAD RECORDS TCPY0534 STOR EQU X'08' GETSPACE BUFFERS ATTACHED TCPY0535 ALL EQU X'10' COPY ALL OF TAPE TCPY0536 REBLK EQU X'20' USE BLOCKING TCPY0537 TAPEIN EQU X'40' INPUT DEVICE IS A TAPE TCPY0538 TAPEOUT EQU X'80' OUTPUT DEVICE IS A TAPE TCPY0539 SPACE TCPY0540 LTORG TCPY0541 SPACE 5 TCPY0542 END TCPY0543 -FILE 115; 646 RECORDS: 0TDMP TITLE 'MTS TAPE/FILE DUMP UTILITY' TDMP0001 PRINT NOGEN TDMP0002 SPACE 3 TDMP0003 MACRO TDMP0004 &SLB ERMSG &MSG TDMP0005 LCLA &BARF TDMP0006 &SLB BAL RF,ERRMSG PRINT OUT ERROR MESSAGE TDMP0007 &BARF SETA K'&MSG-2 TDMP0008 DC Y(&BARF),C&MSG TDMP0009 MEND TDMP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C', VOLUME: ' TDMP0637 VOLUME DC C'VVVVVV, DATA SET: ' TDMP0638 DSN DS CL17 TDMP0639 TPHDRL2 EQU *-TPHDR TDMP0640 SPACE 4 TDMP0641 LTORG TDMP0642 SPACE 4 TDMP0643 IBUF DS CL32767 TDMP0644 SPACE 2 TDMP0645 END TDMP0646 -FILE 116; 708 RECORDS: 0 MACRO FSAV0001 &LOC TZ &MSK,&ADD FSAV0002 &LOC TM SW,&MSK FSAV0003 BZ &ADD FSAV0004 MEND FSAV0005 SPACE 3 FSAV0006 MACRO FSAV0007 &LOC TN &MSK,&ADD FSAV0008 &LOC TM SW,&MSK FSAV0009 BNZ &ADD FSAV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTORG FSAV0699 DS 0F FSAV0700 MORTOC DS 250XL16 FSAV0701 TOC DS 250CL16 FSAV0702 TOCSIZ DS F FSAV0703 AUXTOC DS 250CL16 FSAV0704 TERM DC XL16'0' FSAV0705 SIZLOC EQU TOCSIZ-TOC FSAV0706 BUF DS 16CL4096 FSAV0707 END FSAV0708 -FILE 117; 185 RECORDS: 0LABL TITLE 'PROGRAM TO LABEL MAGNETIC TAPES' LBL00001 SPACE 2 LBL00002 GBLB &OPER LBL00003 SPACE 2 LBL00004 LABEL START 0 LBL00005 SPACE 2 LBL00006 REQU LBL00007 SPACE LBL00008 DEVS EQU 4 LBL00009 CHKLABEL EQU X'80' LBL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> VOL DC C'VOL1' LBL00176 VOLUME DS CL6 LBL00177 DC C'0' LBL00178 BLANKS DC CL30' ' LBL00179 OWNER DS CL10 LBL00180 DC CL29' ' LBL00181 SPACE 5 LBL00182 LTORG LBL00183 SPACE 5 LBL00184 END LBL00185 -FILE 118; 52 RECORDS: 0CTRL TITLE 'FAKE MTS "CONTROL" ROUTINE FOR OLD-FASHIONED SYSTEMS' CTRL0001 SPACE 2 CTRL0002 CONTROL START 0 CTRL0003 SPACE 2 CTRL0004 PRINT NOGEN CTRL0005 SPACE 2 CTRL0006 REQU CTRL0007 SPACE 2 CTRL0008 ENTER RC,SA=SA CTRL0009 MVC IOLST(8),0(R1) A(REGION),A(LENGTH) CTRL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RC8 EXIT 8 CTRL0043 EJECT CTRL0044 SA DS 18F CTRL0045 IOLST DC A(0,0,MOD,LNR,0) CTRL0046 ARET DS A CTRL0047 MOD DC X'40000080' @ERRRTN@CC CTRL0048 LNR DS F CTRL0049 TI DS X CTRL0050 SPACE 2 CTRL0051 END CTRL0052 -FILE 119; 415 RECORDS: 0 TITLE 'PROGRAM TO TEST TAPE ROUTINES' TT000001 TT START 0 TT000002 SPACE TT000003 REQU TT000004 PRINT NOGEN TT000005 SPACE TT000006 ENTER RC TT000007 SPACE TT000008 SR R1,R1 TT000009 ST R1,FDUB TT000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 TT000406 SNS4 DC C' STATUS: ' TT000407 SSTAT DS CL40 TT000408 EJECT TT000409 LTORG TT000410 SPACE 5 TT000411 DS 0F TT000412 BUF DS CL32767 TT000413 SPACE 5 TT000414 END TT000415 -FILE 120; 2219 RECORDS: 0STAN TITLE 'STATISTICS PHASE 1 ANALYSIS (VERSION KM003) 12/10/70' ANAL0001 ********************************************************************** ANAL0002 * * ANAL0003 * PROGRAM TO PROCESS TAPES PRODUCED BY STAT JOB * ANAL0004 * (THIS IS *ANALYSIS) * ANAL0005 * * ANAL0006 ********************************************************************** ANAL0007 SPACE 1 ANAL0008 PRINT ON,NODATA,NOGEN ANAL0009 SPACE 1 ANAL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NEWAREA DS (JOBEND-JOBINFO)C PRINT JOB AREA ANAL2210 PTIME DS F PRINT TIME ANAL2211 EDMPAREA DS 0C END OF TAPE OUTPUT AREA ANAL2212 CNT DC A(EDMPAREA-NEWAREA) LENGTH OF TAPE OUTPUT ANAL2213 ADDAREA DS 8F ITEM PRINT AREA ANAL2214 PAGAREA1 DS (PAGETBLE-PAGETABL)X AREA FOR CURRENT PAGE DSECT ANAL2215 SPACE 2 ANAL2216 DATA DS 4096C BUFFER OF ITEMS FROM STAT JOB ANAL2217 SPACE 2 ANAL2218 END STATANAL ANAL2219 -FILE 121; 643 RECORDS: 0STAT TITLE 'STAT/SW JOBS -- TAD PINKERTON (WR. 6-67, REV. 11-70)' STAT0001 SPACE 2 STAT0002 *********************************************************************** STAT0003 * * STAT0004 * STAT AND STATSW JOBS * STAT0005 * * STAT0006 * WRITES STATISTICS TAPE FOR PROCESSING BY *ANALYSIS * STAT0007 * * STAT0008 *********************************************************************** STAT0009 SPACE 2 STAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * STAT0634 * JOB TABLE RECORDING BIT DISPLACEMENTS STAT0635 * STAT0636 JTLDISP EQU X'F4' JOB TABLE WORD FOR STAT BITS DISPLACEMENT STAT0637 JTLNAME EQU 4 JOB TABLE WORDS FOR JOB NAME DISPLACEMENT STAT0638 JTLPAR EQU X'48' DISPLACEMENT FOR PARAMETERS IN JOB STAT0639 MAXPARS EQU 12 MAXIMUM NUMBER PARAMETERS IN AN UMMPS JOB STAT0640 JOBNO EQU 0 JOB NUMBER DISPLACEMENT IN JOB TABLE STAT0641 * STAT0642 END STAT0643 -FILE 122; 1706 RECORDS: 0STP2 TITLE 'STP2/ANALYSIS PROGRAM - THESIS STATISTICS (2/17/71)' STP20001 SPACE 1 STP20002 *********************************************************************** STP20003 * * STP20004 * ANALYSIS SUBROUTINE TO PRINT HISTOGRAMS OF VARIOUS AND * STP20005 * SUNDRY INTERVAL DISTRIBUTIONS, PRIMARILY WITH REGARD * STP20006 * TO THE INTERACTION TIME IN THE SYSTEM * STP20007 * * STP20008 *********************************************************************** STP20009 SPACE 1 STP20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 STP21697 *********************************************************************** STP21698 * * STP21699 * DSECT FOR JOB INFORMATION AREA BUILT BY STAT * STP21700 * * STP21701 *********************************************************************** STP21702 SPACE 2 STP21703 COPY W091:STATDSECT STP21704 SPACE 1 STP21705 END STP21706 -FILE 123; 468 RECORDS: 0HSTO TITLE 'HISTOGRAM BUILDER AND PRINTER' HIST0001 SPACE 1 HIST0002 HISTO CSECT HIST0003 SPACE 1 HIST0004 *********************************************************************** HIST0005 * * HIST0006 * PROGRAM TO BUILD AND PRINT HISTOGRAMS (FIXED POINT) * HIST0007 * * HIST0008 *********************************************************************** HIST0009 SPACE 1 HIST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HISTAB DSECT HIST0459 SPACE 1 HIST0460 ACCUM DS 2F DOUBLE WORD FOR ACCUMULATING VALUES HIST0461 VARIANCE DS D ACCUMULATOR FOR VARIANCE OF ITEMS HIST0462 TOTCNT DS 1F COUNTS NUMBER OF ITEMS ENTERED HIST0463 UNDRFLOW DS 1F COUNTER FOR UNDERFLOW ITEMS HIST0464 OVERFLOW DS 1F COUNTER FOR OVERFLOW ITEMS HIST0465 ACTAB DS 1000F BEGINNING OF PAIRED RECORDING TABLE HIST0466 SPACE 2 HIST0467 END HIST0468